;P0口接J3，數據端口
;P2.2接 J2 B端子，表示段碼鎖存
;P2.3接 J2 A端子，標志位碼鎖存
  LATCH1 BIT P2.2
  LATCH2 BIT P2.3

ORG 00H
JMP START
ORG 0BH
JMP TIM0
START:MOV R3,#00
      MOV R4,#100
      MOV DPTR,#TABLE
      MOV SP,#40H
      MOV TMOD,#01H
      MOV TH0,#HIGH(65536-3800)
      MOV TL0,#LOW(65536-3800)  ;初值4Ms
      SETB TR0
      MOV IE,#82H
TIM0:
     MOV TH0,#HIGH(65536-3800)
     MOV TL0,#LOW(65536-3800)
     INC R3
     CJNE R3,#250,X1
     MOV R3,#00
     DEC R4
     MOV A,R4
     MOV B,#10
     DIV AB
     MOV 20H,B ; 個位
     MOV 21H,A  ; 十位
     CJNE R4,#00,DD1
     MOV R4,#100
 DD1:    CALL SCAN
X1:  PUSH ACC
      PUSH PSW
      CALL SCAN
      POP PSW
      POP ACC
      RETI
SCAN:MOV P0,#11111110B ;掃描子程序
     SETB LATCH2
     CLR LATCH2
     MOV A,21H
     MOVC A,@A+DPTR
     MOV P0,A
     SETB LATCH1
     CLR LATCH1
     CALL DELAY1
     MOV P0,#11111101B
     SETB LATCH2
     CLR LATCH2
     MOV A,20H
     MOVC A,@A+DPTR
     MOV P0,A
     SETB LATCH1
     CLR LATCH1
     CALL DELAY1
     RET
DELAY:MOV R5,#50
D1:   MOV R6,#40
D2:   MOV R7,#248
      CALL SCAN
      DJNZ R7,$
      DJNZ R6,D2
      DJNZ R5,D1
      RET
DELAY1:MOV R6,#4    ;掃描延時
D3:    MOV R7,#248
       DJNZ R7,$
       DJNZ R6,D3
       RET
TABLE:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH    ;共陰字碼表
END