单片机两位数正计时程序

ORG 0000H
LJMP MAIN
ORG 0030H
MAIN: MOV   R2,#00H
MAIN1:MOV   A,R2
      ANL   A,#00001111B
      MOV   R3,A             ;R3 LOW
      MOV   A,R2
      ANL   A,#11110000B
      SWAP  A
      MOV   R4,A             ;R4 HIG

      MOV   A,R3
      MOV   DPTR,#TAB
      MOVC  A,@A+DPTR
      MOV   P1,A
      MOV   A,R4
      MOV   DPTR,#TAB
      MOVC  A,@A+DPTR
      MOV   P3,A
      LCALL  DEALY

      MOV   A,R2
      ADD   A,#01H
      DA    A             ;秒单元减1
      MOV   R2,A
      LJMP   MAIN1
     
     
TAB:  DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090H
       SJMP $
DEALY:MOV R7,#20
LOOP3:MOV R6,#123
LOOP2:MOV R5,#200
LOOP: jnb p2.1,loop
loop1:djnz R5,LOOP1
DJNZ R6,LOOP2
DJNZ R7,LOOP3
RET
END