10.aqd

这是一个流水灯加汽灯控制程序。采用四位的拨码开关

L0:CLR P1.7
JB P3.0,L1
LCALL DELAY5MS
X1:MOV R5,#3FH
LCALL DISPLAY
JNB P3.0,X1
L1:JB P3.1,L2
LCALL DELAY5MS
X2:MOV R5,#0FCH
LCALL DISPLAY
JNB P3.1,X2
L2:JB P3.2,L3
LCALL DELAY5MS
X3:MOV R5,#3CH
LCALL DISPLAY
JNB P3.2,X3
L3:JB P3.7,L0
LCALL DELAY5MS
X4:LCALL DISPLAY1
JNB P3.7,X4
JMP L0
DISPLAY:MOV P1,R5
LCALL DELAY200MS
MOV P1,#0FFH
LCALL DELAY200MS
RET
DISPLAY1:MOV 31H,#18
MOV 30H,#0
PLAY2:MOV R7,#3
PLAY1:MOV R6,30H
PLAY:MOV A,R6
MOV DPTR,#TABEL
MOVC A,@A+DPTR
MOV P1,A
LCALL DELAY200MS
INC R6
MOV A,R6
CJNE A,31H,PLAY
DJNZ R7,PLAY1
CJNE R6,#45,L5
RET
L5:MOV 30H,R6
CJNE A,#18,L4
MOV 31H,#35
JMP PLAY2
L4:MOV 31H,#45
JMP PLAY2
DELAY5MS:MOV R2,#25
L6:MOV R3,#100
DJNZ R3,$
DJNZ R2,L6
RET
DELAY200MS:MOV R4,#2
L8:MOV R2,#216
L7:MOV R3,#230
DJNZ R3,$
DJNZ R2,L7
DJNZ R4,L8
RET
TABEL:DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,7FH,0FFH,7FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH,0FFH
DB 0FCH,0F9H,0F3H,0E7H,0CFH,9FH,3FH,0FFH,3FH,0FFH,9FH,0CFH,0E7H,0F3H,0F9H,0FCH,0FFH
DB 0E7H,0DBH,0BDH,7EH,0FFH,7EH,0BDH,0DBH,0E7H,0FFH