MOV TCTER #O ACALL XPDO ACALL COUNT TOINTR: POP POP PSW 恢复现场 POP ACC RETI COUNT: JB XP, COUNTO MOVA,4H;个十单元 DA A MOV 41H,A COUNTI CLR C A,42H;百千单元 A MOV 42H A SJMP COUNTI COUNT0:MOVA,41H;个十单元 ADD A #9 9H 41H,A CJNE A, #99H, COUNT2 MOVA,42H;百千单元 ADD A,#99H DA A MOv 42 SJMP COUNT2 COUNT1: MOV A, CTCH JNZ TINTO A 41H A, CTCL JNZ TINTO SETB XP TINTO COUNT MOV A, 41H JNZ TINTO TINT0:MOVA,41H;第一拆字MOV TCTER,#0 ACALL XPD0 ACALL COUNT T0INTR: POP 01H POP PSW ;恢复现场 POP ACC RETI COUNT: JB XP,COUNT0 MOV A,41H ;个十单元 INC A DA A MOV 41H,A JNZ COUNT1 CLR C MOV A,42H ;百千单元 INC A DA A MOV 42H,A SJMP COUNT1 COUNT0: MOV A,41H ;个十单元 ADD A,#99H DA A MOV 41H,A CJNE A,#99H,COUNT2 MOV A,42H ;百千单元 ADD A,#99H DA A MOV 42H,A SJMP COUNT2 COUNT1: MOV A,42H XRL A,CTCH JNZ TINT0 MOV A,41H XRL A,CTCL JNZ TINT0 SETB XP SJMP TINT0 COUNT2: MOV A,42H JNZ TINT0 MOV A,41H JNZ TINT0 CLR XW ; TINT0: MOV A,41H ;第一拆字