ORG 0000H
MOV R1, #0
LOOP0:
MOVA, R1
MOVDPTR, #TABLE1
ANLA,#0FH
MOVC A, @A+DPTR
MOVP1, A
MOVA, R1
MOVDPTR, #TABLE2
ANLA,#0FH
MOVC A, @A+DPTR
MOVP2, A
MOVA, R1
MOVDPTR, #TABLE3
ANLA,#0FH
MOVC A, @A+DPTR
MOVP3, A
INCR1
CALL DL500MS
SJMP LOOP0
TABLE1:DB0,0FFH,01H,02H,04H,08H,10H,20H,40H,80H,40H,20H,10H,08H,04H,02H,01H
DB0,0FFH,80H,40H,20H,10H,08H,04H,02H,01H
TABLE2:DB 0,0,0,0,0,0,0,0,01H,02H,04H,08H,10H,20H,40H,80H
DB0,0FFH,0,0FFH,7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH,0,0,0,0,0,0,0,0,0,0
TABLE3:DB0DFH, 0FFH, 0DFH, 0FFH, 0DFH, 0FFH
DB0CFH, 0F7H, 0DBH, 0FDH, 0DEH,0FFH, 0CFH, 0F7H, 0DBH, 0FDH, 0DEH, 0FFH, 0CFH, 0F7H, 0DBH, 0FDH, 0DEH, 0FFH
DB0DFH, 0FFH, 0DFH, 0FFH
DB0C0H, 0FFH, 0C0H, 0FFH, 0C0H, 0FFH
DB 0DFH, 0FFH, 0DFH, 0FFH
DB0C7H, 0FFH, 0C7H, 0FFH, 0C7H, 0FFH
DB0D8H, 0FFH, 0D8H, 0FFH, 0D8H, 0FFH
DB 0DFH, 0FFH, 0DFH, 0FFH
DB0C0H, 0FFH, 0C0H, 0FFH, 0C0H, 0FFH
DL500MS:
MOV R5, #9
DL1: MOV R6, #128
DL2: MOV R7, #215
NOP
DL3: DJNZ R7, DL3
DJNZ R6, DL2
DJNZ R5, DL1
RET
END
|