密码门
单片机源程序如下:
- ORG 0000H
- JMP START
- START:
- MOV R0, #7
- CLR P1.6
- MOV P2, #01111110B
- LOOP:
- MOV A, P1
- MOV B, A
- ORL A, #01000000B
- CPL A
- JZ LOOP
- CALL DL20MS
- MOV A, P1
- CJNE A, B, LOOP
- MOV C, ACC.7
- CPL C
- RL A
- MOV ACC.7, C
- CLR ACC.0
- MOV P2, A
- LOP2:
- MOV A, P1
- ORL A, #01000000B
- CPL A
- JNZ LOP2
- MOV P2, #01111110B
- JNB B.0, KEY0
- JNB B.1, KEY1
- JNB B.2, KEY2
- JNB B.3, KEY3
- JNB B.4, KEY4
- JNB B.5, KEY5
- JNB B.7, KEY7
- JMP LOOP
- KEY0:
- CJNE R0, #7, LOOP
- DEC R0
- JMP LOOP
- KEY1:
- CJNE R0, #6, LOOP
- DEC R0
- JMP LOOP
- KEY2:
- CJNE R0, #5, LOOP
- DEC R0
- JMP LOOP
- KEY3:
- CJNE R0, #4, LOOP
- DEC R0
- JMP LOOP
- KEY4:
- CJNE R0, #3, LOOP
- DEC R0
- JMP LOOP
- KEY5:
- CJNE R0, #2, LOOP
- DEC R0
- JMP LOOP
- KEY7:
- CJNE R0, #1, ERROR
- MOV P2, #0
- SETB P1.6
- SJMP $
- ERROR:
- MOV P2, #0
- SETB P2.0
- SJMP $
- DL20MS:
- MOV R6, #40
- DJNZ R7, $
- DJNZ R6, $ - 2
- RET
-
- END
所有资料51hei提供下载:
密码门.rar
(22.23 KB, 下载次数: 4)
|
