009D B4601B CJNE A,#60H,DONE ;60秒到吗？
00A0 752200 MOV 22H,#00H ;秒单元清零
00A3 E521 MOV A,21H
00A5 04 INC A
00A6 D4 DA A ;分加1,十进制调整
00A7 F521 MOV 21H,A
00A9 B4600F CJNE A,#60H,DONE ;60分到吗？
00AC 752100 MOV 21H,#00H ;分单元清零
00AF E520 MOV A,20H
00B1 04 INC A
00B2 D4 DA A ;时加1,十进制调整
00B3 F520 MOV 20H,A
00B5 B42403 CJNE A,#24H,DONE ;24小时到吗？
00B8 752000 MOV 20H,#00H ;时单元清零
00BB D0E0 DONE: POP ACC ;退栈
00BD D0D0 POP PSW
00BF 32 RET1
ORG 0D59H
0D59 D2D4 SSEE: SETB RS1 ;换工作区
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页
