LJMPA1
A1:
MOVDPTR,#TAB1
MOVA,R4
CJNEA,60H,DD;判断A中的内容与之
:
前的内容是否相同
A2:
MOVCA,@A+DPTR
MOVR5,A
LJMPA3
DD:
SETBEX1
SETBIT1
MOV60H,R4
LJMPA2
A3:
RETI
INT00:
MOVDPTR,#TAB2
MOVA,R4
MOVCA,@A+DPTR
LCALLDLY1
LCALLDLY1
MOVP2,A
RETI
TAB0:
DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H
DB0F8H,80H,90H,0FFH
TAB1:
DB0,199,206,213,220,227,234,241,248,255
TAB2:
DB0FFH,0FEH,0FDH,0FBH,0F7H,0EFH
DB0DFH,0BFH,07FH,07FH
DLY:
MOVR6,#40
DL:
MOVR7,#20
DL1:
DJNZR7,DL1
DJNZR6,DL
RET
DLY1:
MOV55H,#200
DL2:
MOV56H,#200
DL3:
DJNZ56H,DL3
DJNZ55H,DL2
RET
END