标题: 单片机密码门Proteus仿真程序 [打印本页]
作者: 电子讨论    时间: 2020-1-5 08:25
标题: 单片机密码门Proteus仿真程序
密码门


单片机源程序如下:
  1.       ORG 0000H

  3.       JMP  START

  5. START:

  7.       MOV  R0, #7

  9.       CLR  P1.6

  11.       MOV  P2, #01111110B

  13. LOOP:

  15.       MOV  A, P1

  17.       MOV  B, A

  19.       ORL  A, #01000000B

  21.       CPL  A

  23.       JZ LOOP

  25.       CALL DL20MS

  27.       MOV  A, P1

  29.       CJNE A, B, LOOP


  32.       MOV  C, ACC.7

  34.        CPL  C

  36.       RL A

  38.       MOV  ACC.7, C

  40.       CLR  ACC.0

  42.       MOV  P2, A




  47. LOP2:

  49.       MOV  A, P1

  51.       ORL  A, #01000000B

  53.       CPL  A

  55.       JNZ  LOP2





  61.       MOV  P2, #01111110B




  66.       JNB  B.0, KEY0

  68.       JNB  B.1, KEY1

  70.       JNB  B.2, KEY2

  72.       JNB  B.3, KEY3

  74.       JNB  B.4, KEY4

  76.       JNB  B.5, KEY5

  78.       JNB  B.7, KEY7

  80.       JMP  LOOP



  84. KEY0:

  86.       CJNE R0, #7, LOOP

  88.       DEC  R0

  90.       JMP  LOOP

  92. KEY1:

  94.       CJNE R0, #6, LOOP

  96.       DEC  R0

  98.        JMP  LOOP

  100. KEY2:

  102.        CJNE R0, #5, LOOP

  104.         DEC  R0

  106.        JMP  LOOP

  108. KEY3:

  110.       CJNE R0, #4, LOOP

  112.        DEC  R0

  114.        JMP  LOOP

  116. KEY4:

  118.         CJNE R0, #3, LOOP

  120.        DEC  R0

  122.        JMP  LOOP

  124. KEY5:

  126.        CJNE R0, #2, LOOP

  128.        DEC  R0

  130.        JMP  LOOP

  132. KEY7:

  134.        CJNE R0, #1, ERROR

  136.        MOV  P2, #0

  138.        SETB P1.6

  140.        SJMP $

  142. ERROR:

  144.        MOV  P2, #0

  146.        SETB P2.0

  148.         SJMP $



  152. DL20MS:

  154.        MOV  R6, #40

  156.        DJNZ R7, $

  158.        DJNZ R6, $ - 2

  160.        RET
  161.   


  164. END
复制代码

所有资料51hei提供下载:
密码门.rar (22.23 KB, 下载次数: 4)






欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1