dianzisuo.asm

该程序是基于AT89C51控制的电子密码锁的源程序（汇编语言）

MM EQU 30H
NN EQU 31H
MN EQU 37H
NM EQU 48H
ORG 00H
LJMP START
ORG 50H
START:MOV 40H,#01H
      MOV 41H,#02H
      MOV 42H,#03H
      MOV 43H,#04H
      MOV 44H,#0AH
      MOV IE,#81H
      MOV SP,#6FH
      MOV R4,#03H
      SETB P3.2
      MOV P0,#0
MAIN: MOV R3,#0
      MOV R1,#40H
      MOV R2,#5
      MOV R0,#32H
      MOV P2,#0FEH
LOOP2:MOV P1,#01111000B
N1:   JNB P1.0 ,N2
      MOV MM,#0
      LJMP LOOP
N2:   JNB P1.1,N3
      MOV MM,#1
      LJMP LOOP
N3:   JNB P1.2,N1
      MOV MM,#2
      LJMP LOOP
LOOP: MOV P1,#00000111B
L1:   JNB P1.3,L2
      MOV NN,#0
      LJMP LOOP1
L2:   JNB P1.4,L3
      MOV NN,#1
      LJMP LOOP1
L3:   JNB P1.5 ,L4
      MOV NN,#2
       LJMP LOOP1
L4:   JNB P1.6,L1
      MOV NN,#3
      LJMP LOOP1

DELAY:MOV R7,#1
   DI:MOV R6,#5
      DJNZ R6,$
      DJNZ R7,DI
      RET
MAINI:LJMP MAIN
LOOP6:jnb  p3.0,START
LOOP1:MOV P0,#0FFH
      CLR P2.5
      LCALL DELAY
      SETB P2.5
      MOV A,MM
      MOV B,#4
      MUL AB
      ADD A,NN
      MOV @R0,A
      INC R0
       MOV P0,#0
      DJNZ R2,LOOP2
      MOV R1,#40H
      MOV MN,@R1
      MOV R0,#32H
      MOV A,@R0
      CJNE A,MN,LOOP4
      INC R0
      INC R1
      MOV MN,@R1
      MOV A,@R0
      CJNE  A,MN,LOOP4
      INC R0
      INC R1
      MOV MN,@R1
      MOV A,@R0
      CJNE  A,MN,LOOP4
      INC R0
      INC R1
      MOV MN,@R1
      MOV A,@R0
      CJNE  A,MN,LOOP4
      INC R0
      INC R1
      MOV MN,@R1
      MOV A,@R0
      CJNE  A,MN,LOOP4
      SETB P2.0
      CLR P2.1
      MOV R1,#40H
      MOV R3,#0
      MOV R2,#5
      MOV R4,#3
      MOV R0,#32H
      LJMP LOOP5
LOOP4: CLR P2.3
       LCALL DELAY
       SETB P2.3        
       DJNZ R4,MAINI       
BAOJIN:CLR P2.2
       CLR P2.3
       MOV NM,#0
       LCALL DELAY
       jnb p3.0,LOOP6
       MOV R4,#3
       LJMP BAOJIN        
LOOP5: MOV R1,#40H
       MOV R3,#0
       MOV R2,#5
       MOV R0,#32H
       JNB P2.4 ,MAINI
       JNB P3.2,POOP2
       LJMP LOOP5
POOP2:JB P2.1,POOP2           
      MOV P1,#01111000B
M1:   JB P3.2,LOOP5
      JNB P1.0 ,M2       
      MOV MM,#0
      LJMP POOP
M2:   JNB P1.1,M3
      MOV MM,#1
      LJMP POOP
M3:   JNB P1.2,M1
      MOV MM,#2
      LJMP POOP
POOP: MOV P1,#00000111B
Q1:   JNB P1.3,Q2
      MOV NN,#0
      LJMP POOP1
Q2:   JNB P1.4,Q3
      MOV NN,#1
      LJMP POOP1
Q3:   JNB P1.5,Q4
      MOV NN,#2
      LJMP POOP1
Q4:   JNB P1.6,Q1
      MOV NN,#3
      LJMP POOP1
POOP1:MOV P0,#0FFH
      CLR P2.5
      LCALL DELAY
      SETB P2.5
      MOV A,MM
      MOV B,#4
      MUL AB
      ADD A,NN
      MOV @R1,A
      INC R1
       MOV P0,#0
      JB P3.2,LOOP5
      LJMP POOP2       
;POOP4:RETI
END