单片机设计霓虹灯控制器程序

ORG 0000H
LJMP MAIN
LCALL DELAY
ORG 0003H
LCALL DELAY
LJMP EX0INT
LCALL DELAY
ORG 0100H
MAIN:
MOV IE,#081H
MOV TCON,#00H
MOV SP,#60H
MOV DPTR,#TABLE5
MOV R3,#00H
MOV R0,#00H
MOV R6,#00H
MOV R7,#00H

START:LCALL DELAY
JNB P3.4,L1
JNB P3.5,ZZ3
JNB P3.6,ZZ
JNB P3.7,ZZ1
JNB P3.0,KEY1
JNB P3.1,KEY2
JNB P3.2,KEY3
JNB P3.3,KEY4
SJMP START
KEY1:
JB P3.0,KEY1
INC R3
MOV A,R3
MOV 30H,R3
CJNE A,#100,DISP0
KEY2: JB P3.1,KEY2
CALL DELAY
INC R0
MOV A,R0
MOV 32H,R0
CJNE A,#100,DISP0

KEY3:
JB P3.2,KEY3
CALL DELAY
INC R6
MOV A,R6
MOV 34H,R6
CJNE A,#100,DISP0
KEY4:
JB P3.3,KEY4
CALL DELAY
INC R7
MOV A,R7
MOV 36H,R7
CJNE A,#100,DISP0
DISP0: MOV B,#10
DIV AB
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY
MOV A,B
MOVC A,@A+DPTR
MOV P2,A
LCALL DELAY
SJMP START

ZZ:LJMP L3
ZZ1:LJMP L4
ZZ3:LJMP L2
L1: MOV P2,#079H
MOV P1,#0C0H
MOV R3,30H
L11:
MOV DPTR,#TABLE1
CLR A
LOOP1:MOV R1,A
MOVC A,@A+DPTR
CJNE A,#02H,LOOP11
DJNZ R3,L11
SJMP L2
LOOP11:JB P3.4,S1
MOV P1,A
LCALL DELAY
MOV A,R1
INC A
SJMP LOOP1
L2: MOV P2,#0A4H
MOV P0,#0C0H
MOV R0,36H
L22: MOV DPTR,#TABLE2
CLR A
LOOP2: MOV R1,A
MOVC A,@A+DPTR
CJNE A,#02H,LOOP22
DJNZ R0,L22
SJMP L3
LOOP22:JB P3.5,S2
MOV P1,A
LCALL DELAY
MOV A,R1
INC A
SJMP LOOP2
L3: MOV P2,#030H
MOV P0,#0C0H
MOV R6,34H
L33:
MOV DPTR,#TABLE3
CLR A
LOOP3: MOV R1,A
MOVC A,@A+DPTR
CJNE A,#02H,LOOP33
DJNZ R6,L33
SJMP L4
LOOP33:JB P3.6,S3
MOV P1,A
LCALL DELAY
MOV A,R1
INC A
JMP LOOP3

L4: MOV P2,#019H
MOV P0,#0C0H
MOV R7,36H
L44: MOV DPTR,#TABLE4
CLR A
LOOP4: MOV R1,A
MOVC A,@A+DPTR
CJNE A,#02H,LOOP44
DJNZ R7,L44
LJMP MAIN
LOOP44:JB P3.7,S4
MOV P1,A
LCALL DELAY
MOV A,R1
INC A
JMP LOOP4
S1: MOV P1,#0FFH
LJMP L2
S2: MOV P1,#0FFH
LJMP L3
S3: MOV P1,#0FFH
LJMP L4
S4: MOV P1,#0FFH
LJMP JS
DELAY:MOV R2,#200
LOOPD:MOV R4,#10
D1: MOV R5,#100
DJNZ R5,$
DJNZ R4,D1
DJNZ R2,LOOPD
RET
TABLE1:
DB 0FEH,0FDH,0FBH,0F7H
DB 0EFH,0DFH,0BFH,07FH
DB 07FH,0BFH,0DFH,0EFH
DB 0F7H,0FBH,0FDH,0FEH
DB 02H
TABLE2: DB 07EH,03CH,018H,00H
DB 018H,03CH,07EH,0FFH
DB 02H
TABLE3: DB 00H,080H,0C0H,0E0H
DB 0F0H,0F8H,0FCH,0FEH
DB 0FCH,0F8H,0F0H
DB 0E0H,0C0H,080H
DB 02H
TABLE4: DB 0AAH,055H,0AAH,055H
DB 0B6H,06DH,0DBH,0B6H,06DH,0DBH
DB 0EEH,0DDH,0BBH,077H
DB 0EEH,0DDH,0BBH,077H
DB 02H
TABLE5:
DB 0C0H;0
DB 0F9H;1
DB 0A4H;2
DB 0B0H;3
DB 099H;4

DB 092H;5
DB 082H;6
DB 0F8H;7
DB 080H;8
DB 090H;9
EX0INT: AJMP START
RETI
JS: MOV R3,#00H
MOV R0,#00H
MOV R6,#00H
MOV R7,#00H
CLR A
END