ORG 0000H
AJMP LK1
ORG 000BH
AJMP CTCO
ORG 0013H
AJMP CXT
LK1: MOV 33H, #00H
MOV 35H, #00H
MOV 36H, #00H
MOV 37H, #00H
MOV 38H, #00H
MOV 40H, #00H
MOV 41H, #00H
CLR P0.0
CLR P2.0
CLR P2.1
CLR P2.2
CLR P2.3
MOV P1, #00H
NOP
NOP
SETB P2.0
SETB P2.1
SETB P2.2
SETB P2.3
MOV 42H, #05H
MOV 43H, #09H
MOV SCON, #00H
CLR P3.7
MOV R1, #33H
MOV R2, #06H
LP: MOV A, @R1
MOV DPTR, #TAB
MOVC A, @A+DPTR
MOV SBUF, A
JNB ti, $
CLR TI
INC R1
DJNZ R2, LP
SETB P3.7
LK3: JB P2.4, LK6
ACALL D10MS
JB P2.4, LK3
ACALL D2S
LK4: JB P2.4, LK3
CLR P2.0
ACALL D2S
INC 40H
MOV A, 40H
CJNE A, #0AH, LK4
MOV 40H, #00H
AJMP LK4
LK6: JB P2.5, LK5
ACALL D2S
LK7: JB P2.5, LK6
CLR P2.1
MOV P1, 41H
SETB P2.1
ACALL D2S
INC 41H
MOV A, 41H
MOV A, 41H
CJNE A, #0AH, LK7
MOV 41H, #00H
AJMP LK7
LK5: JB P2.6, LK3
ACALL D10MS
JB P2.6, LK5
CLR P2.2
MOV P1, 42H
NOP
NOP
SETB P2.2
CLR P2.3
MOV P1, 43H
NOP
NOP
SETB P2.3
SETB P0.0
MOV TMOD, #O1H
MOV TL0, #OBOH
MOV TH0, #3CH
SETB ET0
SETB EX1
CLR IT0
SETB TR0
MOV R0, #14H
SJMP $
CTC0: JNB P2.6, LK8
DJNZ R0, NEXT
MOV R0, #14H
DEC 43H
CLR P2.3
MOV P1, 43H
NOP
NOP
SETB P2.3
CLR P2.2
MOV P1, 42H
NOP
NOP
SETB P2.2
CLR P2.1
MOV P1, 41H
NOP
NOP
SETB P2.1
CLR P2.0
MOV P1, 40H
NOP
NOP
SETB P2.0
MOV A, 43H
CJNE A, #00H, NEXT
MOV 43H, #0AH
MOV A, 42H
CJNE A, 00H, LP3
MOV 42H, #05H
MOV A, 41H
CJNE A, #00H, LP2
MOV 41H, #09H
MOV A, 40H
CJNE A, #00H, LP1
CLR P0.0
CLR P3.6
ACALL D10S
SETB P3.6
KP11: JB P2.6, KP11
AJMP KP12
LK8: ACALL D10MS
JB P2.6, CTC0
CLR P0.0
LK9: JNB P2.6, LK9
KL10: JB P2.6, LK10
SETB P0.0
AJMP CTCO
P3: DEC 42H
AJMP NEXT
LP1: DEC 40H
AJMP NEXT
LP2: DEC 41H
NEXT: MOV TL0, #0B0H
MOV TH0, #3CH
RETI
KP12: MOV A, 33H
XCH A, 36H
MOV 33H, A
MOV A, 34H
XCH A, 37H
MOV 34H, A
MOV A, 35H
XCH A, 38H
MOV 35H, A
AJMP MP
CXT: JNB P3.5, KP1
JNB P3.4, KP2
JNB P0.2, KP3
JNB P0.1, KP4
AJMP KP
KP1: JNC 36H
MOV A, 36H
CJNE A, #0AH, KP5
MOV 36H, #00H
INC 37H
MOV A, 37H
CJNE A, #0AH, KP5
MOV 36H, #00H
INC 37H
MOV A, 37H
CJNE A, #0AH, KP5
MOV 37H, #00H
INC 38H
AJMP KP5
MOV 37H, #00H
INC 38H
AJMP KP5
KP2: MOV A, 36H
CJNE A, #00H, AP1
MOV 36H, #09H
DEC 37H
AJMP KP5
AP1: DEC 36H
AJMP KP5
KP3: INC 33H
MOV A, 33H
CJNE A, #0AH, KP5
MOV 33H, #00H
INC 34H
CJNE A, #0AH, KP5
MOV A, 34H
CJNE A, #0AH, KP5
MOV 34H, #00H
INC 35H
AJMP KP5
KP4: MOV A, 33H
CJNE A, #00H, AP2
MOV 34H, #09H
DEC 35H
AJMP KP5
AP2: DEC 34H
KP5: CLR P3.7
MOV R1, #33H
MOV R2, #06H
LP6: MOV A, @R1
MOV DPTR, #TAB
MOC A, @A+DPTR
MOV SBUF, A
JNB TI, $
CLR TI
INC R1
DJNZ R2, L
SETB P3.7
KP6: JNB P3.3, KP6
KP: RETI
TAB: DB 3FH, 06H, 5BH, 4FH, 66H, 6DH, 7DH, 07H, 7FH
DB 6FH, 00H
D10S: MOV 50H, #05H
D2S: MOV R3, #0AH
D200MS: R7, #14H
D10MS: R6, #05H
LOOP3: MOV R5, #0F9H
NOP
NOP
LOOP2: DJNZ R5, LOOP2
DJNZ R6, LOOP3
DJNZ R7, D10MS
DJNZ R3, D200MS
DJNZ 50H, D2S
RET
有7个错误。不知道改。希望大虾帮忙看下。。本人不胜感激。
0
|
|
|
|