ORG 0100H
DIR:
MOV 20H,#0
MOV 21H,#0
MOV 22H,#0
MOV 23H,#1
MOV 24H,#7
MOV 25H,#2
MOV 26H,#0
MOV 27H,#5
LATCH1 BIT P2.6
LATCH2 BIT P2.7
START:LCALL SCAN
JMP START
SCAN:
MOV R3,#0FEH
MOV R0,#20H
MOV R2,#08H
LOOP:
MOV A,R3
MOV P0,A
SETB LATCH2
CLR LATCH2
MOV DPTR,#DSE
MOV A,@R0
MOVC A,@A+DPTR
MOV P0,A
SETB LATCH1
CLR LATCH1
LCALL DL1ms
INC R0
MOV A,R3
RL A
MOV R3,A
DJNZ R2,LOOP
RET
DSE:
DB 3FH,06H,5BH,4FH,66H,6DH
DB 7DH,07H,7FH,6FH,77H,7CH
DB 39H,5EH,79H,71H,73H,3EH
DB 31H,6EH,1CH,23H,40H,03H
DB 18H,00
DL1ms: MOV R7,#02H
DL: MOV R6,#0FFH
DL6: DJNZ R6,DL6
DJNZ R7,DL
RET
END
|