ORG   0000H

 
main:  MOV   SP,#70
      MOV   SCON,#50H
      MOV   TMOD,#20H
      MOV   TH1,#0F3H
      SETB  TR1  
      MOV   R7,#00H         ;延時
      DJNZ  R7,$
      MOV   R7,#10H         ;內定密碼在TABLE的起始地址
      MOV   R6,#06          ;內定6個密碼
      MOV   R1,#35H         ;6個密碼分別存入35H~30H地址
L1:   MOV   A,R7            ;內定密碼取碼指針
      MOV   DPTR,#TABLE     ;數(shù)據(jù)指針指到TABLE
      MOVC  A,@A+DPTR       ;至TABLE取碼
      MOV   @R1,A           ;存入35H~30H地址
      DEC   R1              ;存下一個地址
      INC   R7              ;取碼指針加1
      DJNZ  R6,L1
START:ORL   P2,#0FFH        ;清除P2
      MOV   R4,#06          ;清除顯示器存放地址40H~45H的地址
      MOV   R0,#40H
CLEAR:MOV   @R0,#00H
      INC   R0
      DJNZ  R4,CLEAR
L0:   JBC   RI,UART
      ajmp  L2
      JMP   L0
UART: MOV   A,SBUF
      MOV   R7,A
      XRL   A,#0AH
      JZ    COMPQ
      AJMP COMPA
COMPQ: LJMP COMP

COMPA: MOV   A,R7
     XRL   A,#0BH
      JZ    START
      MOV   A,R7
      XCH   A,40H
      XCH   A,41H
      XCH   A,42H
      XCH   A,43H
      XCH   A,44H
      XCH   A,45H
      CALL  DISP
     JMP   L0
L2:   MOV   R3,#0F7H        ;掃描指針初值
      MOV   R1,#00H         ;鍵盤取碼指針
L3:   MOV   A,R3
      MOV   P1,A
      MOV   A,P1
      MOV   R4,A
      SETB  C
      MOV   R5,#04H
L4:   RLC   A
      JNC   KEYIN
      INC   R1
      DJNZ  R5,L4
      CALL  DISP
      MOV   A,R3
      SETB  C
      RRC   A
      MOV   R3,A
      JC    L3
      JMP   L2
KEYIN:MOV   A,R1
      XRL   A,#0EH
      JZ    X3
      MOV   A,R1
      XRL   A,#0FH
      JZ    X4
      MOV   R7,#10
D1:   MOV   R6,#248
      DJNZ  R6,$
      DJNZ  R7,D1
D2:   MOV   A,P1
      XRL   A,R4
      JZ    D2
      MOV   A,R1
      MOV   DPTR,#TABLE
      MOV   R7,A
      XRL   A,#0AH
      JZ    SET0
      MOV   A,R7
      XRL   A,#0BH
      JZ    START
      MOV   A,R7
      XRL   A,#0CH
      JZ    L2
      MOV   A,R7
      XRL   A,#0DH
      JZ    L2
      MOV   A,R7
      XCH   A,40H
      XCH   A,41H
      XCH   A,42H
      XCH   A,43H
      XCH   A,44H
      XCH   A,45H
      CALL  DISP
      JMP   L2
X3:   JMP   DISP2
X4:   JMP   COMP
DISP: MOV   R0,#45H
DISP1:MOV   A,@R0
      ADD   A,#50H         ;顯示D6
      MOV   P0,A
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D5數(shù)據(jù)值加上74138掃描值
      ADD   A,#40H         ;顯示D5
      MOV   P0,A
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D4數(shù)據(jù)值加上74138掃描值
      ADD   A,#30H         ;顯示D4
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D3數(shù)據(jù)值加上74138掃描值
      ADD   A,#20H         ;顯示D3
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D2數(shù)據(jù)值加上74138掃描值
      ADD   A,#10H         ;顯示D2
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      DEC   R0
      MOV   A,@R0          ;D1數(shù)據(jù)值加上74138掃描值
      ADD   A,#00H         ;顯示D1
      MOV   P0,A           ;掃描延時
      CALL  DELAY
      RET
SET0: MOV   R2,#06H
      MOV   R0,#40H
      MOV   R1,#30H
E1:   MOV   A,@R0
      XCH   A,@R1
      INC   R0
      INC   R1
      DJNZ  R2,E1
      CALL  DELAY
E2:   JMP   START
COMP: MOV   R1,#45H
      MOV   R0,#35H
      MOV   R2,#06H
C1:   MOV   A,@R1
      XRL   A,@R0
      JNZ   C3
      DEC   R1
      DEC   R0
      DJNZ  R2,C1
      CLR   P2.0
      MOV   R2,#50
C2:   MOV   R6,#248
      DJNZ  R6,$
      DJNZ  R2,C2
C3:   JMP   START
DISP2:
      MOV   R0,#35H
      CALL  DISP1
      MOV   A,P1
      XRL   A,R4
      JZ    DISP2
      CALL  DELAY
      JMP   START
DELAY:MOV   R7,#03
D3:   MOV   R6,#248
      DJNZ  R6,$
      DJNZ  R7,D3
      RET
      ORG   300H
TABLE:DB  01H,02H,03H,0CH
      DB  04H,05H,06H,0DH
      DB  07H,08H,09H,0EH
      DB  0AH,00H,0BH,0FH
      DB  02H,02H,01H,05H,08H,02H
      END