篮球赛计时计分器程序源代码
篮球赛计时计分器程序源代码
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
KP11: JB P2.6, KP11
AJMP KP12
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
LOOP2: DJNZ R5, LOOP2
DJNZ R6, LOOP3
DJNZ R7, D10MS
DJNZ R3, D200MS
DJNZ 50H, D2S
RET