ORG 3000H
DISPLAY:
MOV 30,#01H
MOV 31,#02H
MOV 32,#03H
MOV 33,#04H
MOV 34,#05H
MOV 35,#06H
MOV A,#33H
MOV DPTR,#0FD00H
MOVX @DPTR,A
BEGIN: MOV R0,#30H
MOV R2,#20H
DISPY1: MOV A,@R0
MOV DPTR,#SEGTAB
MOVC A,@A+DPTR
MOV DPTR,#0FD01H
MOVX @DPTR,A
MOV A,R2
INC DPTR
MOVX @DPTR,A
LCALL D1MS
MOV A,R2
JNB ACC.0,DISPY2
LJMP BEGIN
; ret
DISPY2: INC R0
MOV A,R2
RR A
MOV R2,A
LJMP DISPY1
D1MS: MOV R3,#04H
DEL1: MOV R4,#125
DEL2: DJNZ R4,DEL2
DJNZ R3,DEL1
RET
SEGTAB: DB 3FH
DB 06H
DB 5BH
DB 4FH
DB 66H
DB 6DH
DB 7DH
DB 07H
DB 7FH
DB 6FH
DB 77H
DB 7CH
DB 39H
DB 5EH
DB 79H
DB 71H
ENDfile:///E:/LED.BMP |