標(biāo)題: 單片機(jī)密碼門(mén)Proteus仿真程序 [打印本頁(yè)]
作者: 電子討論    時(shí)間: 2020-1-5 08:25
標(biāo)題: 單片機(jī)密碼門(mén)Proteus仿真程序
密碼門(mén)


單片機(jī)源程序如下:
  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
復(fù)制代碼

所有資料51hei提供下載:
密碼門(mén).rar (22.23 KB, 下載次數(shù): 4)






歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1