篮球赛计时计分器程序源代码

篮球赛计时计分器程序源代码 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