ryyk.aqd

来自「这是一个任意遥控器」· AQD 代码 · 共 42 行

MOV R0,#30H
MOV 40H,#0
MOV R5,#4
QL:MOV @R0,#0
INC R0
DJNZ R5,QL
DISPLAY:JB P1.5,L0
LCALL DELAY1MS
JB P1.5,L0
MOV A,40H
ADD A,#1
CJNE A,#60,L1
MOV A,#0
L1:MOV 40H,A
MOV B,#10
DIV AB
MOV 30H,B
MOV 31H,A
JNB P1.5,$
L0:MOV R0,#30H
MOV R5,#7FH ;从P2.7开始扫描
PLAY:MOV A,@R0
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P0,A
INC R0
MOV A,R5
MOV P2,A
LCALL DELAY1MS
MOV A,R5
JNB ACC.4,DISPLAY ;四位显示完了，是则重新开始显示，否则断续显示
RR A
MOV R5,A
JMP PLAY
DELAY1MS:MOV R2,#7
L2:MOV R3,#120
DJNZ R3,$
DJNZ R2,L2
RET
TABLE:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
END