mms.asm

单片机控制密码锁

ORG 0000H 
	MOV P3,#0BFH 
	MOV R4,#00H
BEGIN: 
	MOV R0,#01FH 
	MOV R3,#00H 
KEY : 
	MOV P1,#0FH 
	MOV A,P1 
	ANL A,#0FH 
	CJNE A,#0FH,KEY1 SJMP KEY 
	KEY1: MOV P3,#0BFH 
	LCALL DEL12 
	MOV A,#0EFH 
	KEY2: MOV R2,A 
	MOV P1,A 
	MOV A,P1 
	ANL A,#0FH 
	CJNE A,#0FH,KEY3 
	MOV A,R2 
	SETB C 
	RLC A 
	JC KEY2 
	SJMP KEY 
KEY3: 
	MOV B,#0FBH 
KEY4: 
	RRC A 
	INC B 
	JC KEY4 
	MOV A,R2 
	SWAP A 
KEY5: 
	RRC A 
	INC B 
	INC B 
	INC B 
	INC B 
	JC KEY5 
KEY6:
	MOV A,P1
	ANL A,#0FH 
	CJNE A,#0FH,KEY6 
	LCALL DEL12 
	LCALL OPREAT 
	LJMP KEY 
ORG 0100H 
DEL12: 
	MOV R6,#01EH 
DEL2: 
	MOV R7,#64H 
DEL1: 
	DJNZ R7,DEL1 
	DJNZ R6,DEL2 
	RET 
ORG 0200H 
OPREAT:
	INC R0 
	MOV A,B 
	MOV @R0,A 
	CJNE A,#0FH,COUNT 
	CJNE R3,#08H,ERROR 
	MOV R1,#20H 
	MOV B,#00H 
	MOV DPTR,#TAB 
LOOP: 
	MOV A,B 
	MOVC A,@A DPTR 
	CLR C 
	SUBB A,@R1 
	JNZ ERROR 
	INC R1 
	INC B 
	DJNZ R3,LOOP 
OPEN: 
	MOV P3,#0BEH 
	LJMP $ 
ERROR: 
	MOV P3,#0BDH 
	INC R4 
	CJNE R4,#03H,AGAIN 
ALARM: 
	MOV P3,#0B9H 
	LJMP $ 
AGAIN: 
	LJMP BEGIN 
COUNT: 
	INC R3 
	RET 
TAB:DB 01H,03H,05H,07H,02H,04H,06H,08H