亚博开发板数码管动态显示学号 -

标题: 亚博开发板数码管动态显示学号 [打印本页]

作者: 陈江河 时间: 2020-12-11 08:51
标题: 亚博开发板数码管动态显示学号
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

欢迎光临 (http://www.51hei.com/bbs/)