include"8515def.inc"
org $0000
rjmp RESET
org $0010
RESET:ldi r16,$5F
      out SPL,R16
      ldi r16,$02
      out SPH,r16   ;设堆栈底为$025F
      ldi r25,$00   ;r25用于统计密码输错的次数．
　　　ldi r22,$04   ;内定４个密码
　　　clr r29
      ldi r28,$73   ;4个密码存于70－73H
　L1：clr r30
      ldi r31,$03
      ld  r0,z+
      st  y-,r0
      dec r22
      brne L1 
START:ldi r16,$03
      out ddrc,r16   ; c口为低二位输出，其余为输入
　　　ldi r16,$FC
      out portc,r16    ; 开始灯不亮，出c口无输入
　　　ldi r20, $04    ;清除显示器存放地址80-83H的地址
　　　ldi r16,$00
CLEAR: ldi r28,$80
       clr r29
       st y+,r16
       dec r20
       brne CLEAR
L2:   clr r16
      out ddrb,r16  ;B口输入
　　　ldi r16,$FF
      out portb,r16　  
l3:   in r0,pinb    ;读b口的输入值
      cpi r0,$FF　　；是否有b口键按下？
      brne KEYIN1
      in r1,pinc　　 ;读c口的输入值
      andi r1,$FC   ；是否有c口键按下？
      cpi r1,$FC
      brne KEYIN2
      rjmp L3    
KEYIN2: bst r1,4    ;是否按"C",是则显示密码
　　　　brtc X3
        bst r1,5    ;是否按"D",是则比较密码
　　　　brtc x4 
D1:  ldi r16,$56
     recall DELAY  ;消除抖动，延时1s 
D2:  in r2,pinc
     andi r2,$FC
     cp r2,r1
     breq D2      ; 按键放开否？
　　bst r1,6      ;是否按"#"
    brtc START    ;是则清除
　　bst r1,7      ;是否按"*"　
    brtc SET0     ;是则设定新密码
　　clr r31
    ldi r30,$82
    ldi r16,$03
CS1: ld r3,z+     ;82H存人83H,81H存人82H,80H存人81H
     st z, r3
     subi r30,2
     dec r16
     brne CS1
     bst r1,3    ;新输入值存人80H
     brtc N9
     bst r1,2
     brtc N8
     rcall disp  ;调用显示子程序
     rjmp L3　　　　　　　　　　　　　
 　
N8: ldi r19,8    ;如果按8,9中的数，
    st  z,r19    ;分别把它们存人z寄存器所指向的RAM
    ret
N9:ldi r19,9
   st  z,r19
   ret
KEYIN1:in r2,pinc
       cp r2,r0
       breq  KEYIN1   ;按键放开否？
　　　clr r31
      ldi r30,$82 
      ldi r16,$03
  CS2:ld r3,z+     ;$82存人$83,$81存人$82,$80存人$81,
      st z,r3
      subi r30,2
      dec r16
      brne CS2
     bst r0,0      ;按键值0-7 存人$80
     brtc N0
     bst r0,1
     brtc N1
     bst r0,2
     brtc N2
     bst r0,3
     brtc N3
     bst r0,4
     brtc N4
     bst r0,5
     brtc N5
     bst r0,6
     brtc N6
     bst r0,7
     brtc N7
     rcall disp
     rjmp L3
N0: ldi r19,0       ;如果按0－7中的数，
    st  z,r19       ;分别把它们存人z寄存器所指向的RAM
    ret
N1: ldi r19,1
    st  z,r19
    ret
N2: ldi r19,2
    st  z,r19
    ret
N3: ldi r19,3
    st  z,r19
    ret
N4: ldi r19,4
    st  z,r19
    ret
N5: ldi r19,5
    st  z,r19
    ret
N6: ldi r19,6
    st  z,r19
    ret
N7: ldi r19,7
    st  z,r19
    ret
X3:rjmp disp2
X4:rjmp COMP
disp:ldi r30,$83  　　；显示地址指针
　　 clr r31
disp1:ld r3,z-    　　;载人D4显示值
      adiw r3,$30     ;加上D4　74138的扫描值
　　　ldi r16,oxFF
      out ddra,r16    ;设置A口为输出
　　　out porta,r3    ;显示D4的值
　　　ldi r16,ox56
      rcall DELAY     ;扫描延时1s
      ld r3,z-         ; 显示D3,D2,D1
      adiw r3,$20
      out porta,r3
      rcall DELAY     ;扫描延时1s
      ld r3,z-
      adiw r3,$10
      out porta,r3
      rcall DELAY     ;扫描延时1s
      ld r3,z-
      adiw r3,$00
      out porta,r3  
      rcall DELAY     ;扫描延时1s
      ret
SET0: ldi r18,$04    ;　　要设置4位密码
　　　ldi r28,$80    ;    按键显示地址
　　　ldi r30,$70    ;    密码存放地址
      clr r29
      clr r31               
　E1:ld  r3,y+       ;$80 存人$70.....$83存人$73
     st z+,r3
     dec r18
     brne E1
     ldi r16,ox56　　；延时1s
     rcall DELAY　　
  E2:rjmp START
COMP:ldi r18, $04   ;比较4位密码
　　ldi r28,$83     ;按键显示地址
    ldi r30,$73     ;密码存放地址
    clr r29
    clr r31
 C1:ld r3,y-
    ld r4,z-
    cp r3,r4　　　　；按键值与密码值比较
    brne C3
    dec r18　　　　； 相同则比较下一位
    brne C1
    out portc,$FE　；全部相同则开锁
    ldi r16,$2F
  C2:rcall DELAY
     clr r25
     rjmp START
  C3:inc r25
     cpi r25,$03
     breq  C4
     rjmp  START
  c4:ldi r16,$FD　　　　；门不开，并打开报警装置
     out portc,r16
     ldi r16,$CF     ； 报警30秒
     rcall DELAY
     ret
disp2:　　　　　　　　　；欲显示密码值
　　　ldi r30,$73　　　；密码存放地址
      clr r31
      rcall  disp1　　　；调用显示子程序
      in r3,pinc 　　　　；"C"放开否？没有则继续显示
      bst r3,4     
      brtc disp2
     ldi r16,$56　　　　；延时1ｓ
      rcall DELAY
      rjmp  START
DELAY:push r16　　　　；三次嵌套延时子程序
   L0:push r16
   L1:push r16
   L2:push r16
   L3:dec r16
      brne L3
      pop r16
      dec r16
      brne L2
      pop r16
      dec r16
      brne L1
      pop r16
      dec r16
      brne L0
      pop r16
      ret
org $300
TABLE:  db $02,$06,$03,$02         ;内定密码值
end