日历/时钟的汇编程序段

AJMP STRAT
ORG 0003H ;中断0入口地址
ACALL DEL
AJMP INTA ;跳转到中断0服务程序
ORG 0013H ;中断1入口地址
ACALL DEL
AJMP INTB ;跳转到中断1服务程序

STRAT:SETB EA
SETB EX0
SETB EX1
SETB IT0
SETB IT1
;*****************************************
A8:MOV R6,#0 ;24进制计数器
MOV R5,#0
MOV 25H,#3FH ;时十位
A7:MOV R4,#0
MOV 24H,#3FH ;时个位
A6:MOV R3,#0
MOV 23H,#3FH ;分十位
A5:MOV R2,#0
MOV 22H,#3FH ;分个位
A4:MOV R1 ,#0
;MOV 21H,#3FH； ;秒十位
SETB 21H.0
SETB 21H.1
SETB 21H.2
SETB 21H.3
SETB 21H.4
SETB 21H.5
CLR 21H.6
CLR 21H.7
A3:MOV R0,#0
MOV 20H,#3FH ;秒个位

;**********************************************
A2:MOV A,R0
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV 20H,A

MOV A,R1
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV 21H,A

MOV A,R2
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV 22H,A