电子密码锁源程序

   T12MS:MOV     R7,   #18H
     TM1:MOV     R6,   #0FFH
    TM66:DJNZ    R6,   TM66
         DJNZ    R7,   TM1
         RET

;****************检验密码正误******************************
   C_PSW:PUSH  PSW
         PUSH  ACC
         MOV  R2,#06H
         MOV  R0,#PS1
         MOV  R1,#AT1
     C_P:CLR  C
         MOV  A,@R0
         SUBB A,@R1
         JNZ  RETURN
         DEC  R0
         DEC  R1
         DJNZ R2,C_P
         NOP
         SETB PSW_F
         AJMP EXIT7
  RETURN:CLR  PSW_F
   EXIT7:NOP
         POP  ACC
         POP  PSW
         RET
;×××××××××××××××××锁定，鸣笛子程序××××××××××××
 LOCK_1M:MOV  R4,#3CH                   ;锁定1分钟
 M1_LOOP:LCALL SEC
         DJNZ  R4,M1_LOOP
         NOP
         RET

    WARN2S:PUSH  PSW
          PUSH  ACC
          MOV   R5, #14H      ;调用20次BP,报警2s
     WARN:LCALL BP
          DJNZ  R5,WARN
          NOP
          POP   ACC
          POP   PSW
          NOP
          RET
      BP:CLR   SPK            ;鸣笛子程序
         LCALL T100MSD
         SETB  SPK
         NOP
         RET

上一页  [1] [2] [3] [4] [5] 

本文关键字：电子  源程序  密码锁  源码-程序，单片机-工控设备 - 源码-程序