TJ0109_1 DATA 50H ;1至9洞数据计算
TJ0109_2 DATA 51H ;1至9洞数据计算TJ0109_3 DATA 52H ;1至9洞数据计算TJ1018_1 DATA 53H ;10至18洞数据计算TJ1018_2 DATA 54H ;10至18洞数据计算TJ1018_3 DATA 55H ;10至18洞数据计算TJ0118_1 DATA 56H ;1至18洞数据计算TJ0118_2 DATA 57H ;1至18洞数据计算TJ0118_3 DATA 58H ;1至18洞数据计算SHUJU_G DATA 56HSHUJU_S DATA 57HSHUJU_B DATA 58HSHUJU_W DATA 75HSHUJU_Z DATA 76H;;;;;;;;;;;;;;;;;;;;;;;;;;;DON1 DATA 31H ;洞1数据DON2 DATA 32HDON3 DATA 33HDON4 DATA 34HDON5 DATA 35HDON6 DATA 36HDON7 DATA 37HDON8 DATA 38HDON9 DATA 39HDON10 DATA 3AHDON11 DATA 3BHDON12 DATA 3CHDON13 DATA 3DHDON14 DATA 3EHDON15 DATA 3FHDON16 DATA 40HDON17 DATA 41HDON18 DATA 42H;;;;;;;;;;;;;;;;;;;;;;;KS BIT P0.0 ;开端JA BIT P0.1 ;加JD BIT P0.2 ;减CX BIT P0.3 ;查询;;;;;;;;;;;;;;;;;;;;;;;;;ORG 0H ;程序代码由地址0开端履行MAIN:;;;;;;;;;;;;;;;;;;;;;;;;按任意键进入人员编号设置SX_RY:MOV P3,#0FFH ;;;;;;封闭显现JB KS,SX_RY_1JNB KS,$AJMP BISAI_1SX_RY_1:JB JA,SX_RY_2JNB JA,$AJMP BISAI_1SX_RY_2:JB JD,SX_RY_3JNB JD,$AJMP BISAI_1SX_RY_3:JB CX,SX_RY_4JNB CX,$AJMP BISAI_1SX_RY_4:AJMP SX_RYRET;;;;;;;;;;;;;;;;;;;;;;;;;;;;数据调用SHUJU_T:LCALL SHUJU_1_9LCALL SHUJU_10_18LCALL SHUJU_0118RET;;;;;;;;;;;;;;;;;;;;;;;;洞位将抵触的数据暂时保存起来BISAI_1: MOV R1,#1MOV R0,#31HBISAI_1_A:MOV SHUJU_Z,R0 ;将数据暂时保存MOV SHUJU_W,R1LCALL SHUJU_TBISAI_1_B:;;;;;;;;;;作为查询时的回来进口MOV R0,SHUJU_Z ;将数据送回MOV R1,SHUJU_WMOV R2,#50MOV R3,#50BISAI_1_2:LCALL XSLED_CXDEC R2MOV A,R2CJNE A,#0,BISAI_1_4BISAI_1_3: LCALL XSLED_CX_2DEC R3MOV A,R3CJNE A,#0,BISAI_1_6AJMP BISAI_1_ARETBISAI_1_4: JB CX,BISAI_1_4_BJNB CX,$MOV SHUJU_Z,R0 ;将数据暂时保存MOV SHUJU_W,R1LCALL CX_1_BRETBISAI_1_4_B:JB KS,BISAI_1_5JNB KS,$INC R0INC R1MOV A,R1CJNE A,#19,BISAI_1_2LCALL BISAI_37RETBISAI_1_5: MOV A,@R0LCALL BISAI_TMOV @R0,AAJMP BISAI_1_2RETBISAI_1_6: JB CX,BISAI_1_6_BJNB CX,$MOV SHUJU_Z,R0 ;将数据暂时保存MOV SHUJU_W,R1LCALL CX_1_BRETBISAI_1_6_B:JB KS,BISAI_1_7JNB KS,$INC R0INC R1MOV A,R1CJNE A,#19,BISAI_1_3LCALL BISAI_37RETBISAI_1_7: MOV A,@R0LCALL BISAI_TMOV @R0,AAJMP BISAI_1_3RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;竞赛完结，不再进行数据挂号BISAI_37:MOV R0,#100 ;;;;;;;; 修正参数，就可以改动显现的延时时刻MOV R1,#100 ;;;;;;;; 修正参数，就可以改动显现的延时时刻XS_1: LCALL ANJIAN_SXLCALL XSLEDMOV P3,#0FFHDEC R0MOV A,R0CJNE A,#0,XS_1DEC R1MOV A,R1CJNE A,#0,XS_2LCALL ANJIAN_SXRETXS_2: MOV R0,#100AJMP XS_1RET;;;;;;;;;;;;;;;;;;;;;;;;;;洞位数据调整BISAI_T: JB JA,BISAI_T_1JNB JA,$INC ARETBISAI_T_1:JB JD,BISAI_T_2JNB JD,$DEC ARETBISAI_T_2:RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;显现时，按下，延时康复ANJIAN_SX:JB KS,ANJIAN_SX_1JNB KS,$AJMP BISAI_37ANJIAN_SX_1:JB JA,ANJIAN_SX_2JNB JA,$AJMP BISAI_37ANJIAN_SX_2:JB JD,ANJIAN_SX_3JNB JD,$AJMP BISAI_37ANJIAN_SX_3:JB CX,ANJIAN_SX_4JNB CX,$AJMP CX_1ANJIAN_SX_4:RET;;;;;;;;;;;;;;;;;;;数据0118SHUJU_0118:MOV A,TJ0109_1MOV B,TJ1018_1ADD A,BMOV TJ0118_1,AMOV A,TJ0109_2MOV B,TJ1018_2ADD A,BMOV TJ0118_2,AMOV A,TJ0109_3MOV B,TJ1018_3ADD A,BMOV TJ0118_3,AMOV A,TJ0118_3MOV B,#10DIV ABMOV TJ0118_3,BADD A,TJ0118_2MOV B,#10DIV ABMOV TJ0118_2,BADD A,TJ0118_1MOV B,#10DIV ABMOV TJ0118_1,BRET
