单片机密码锁源程序清单.docVIP

PAGE 1 PAGE 1 单片机密码锁源程序清单 ORG 0000H ;程序入口地址 AJMP MAIN ORG 000BH ;T0中断入口地址 AJMP WT0 ; ORG 001BH ;T1中断入口地址 AJMP WT1 ; ORG 20H MAIN:MOV SP,#40H ;设置栈指针 MOV 20H,#0H ;定时状态, ;00H-每隔0.5ms取反(T0中断)用于按健音响提示(1KHz) ;01H-每隔11s置位 (T0) 用于按健时的音响延时 ;02H-每隔1min置位 (T0) 用于开锁延时 ;03H-每隔0.5ms取反(T1中断)用于报警1KHz ;04H-每隔1.25ms取反(T1中断)用于报警400Hz ;05H-KC5min清零 (T1) 用于报警延时 MOV 21H,#0 ;T0/0.5ms加1/00H取反/X200=100ms清21H/22H加1 MOV 22H,#0 ;WT0/100ms加1/X10=1s清22H/23H加1/01H置位 MOV 23H,#0 ;WT0/1s加1/X60=1min清23H/02H置位 MOV 24H,#0 ;T1/0.05ms加1/X10=0.5ms03H取反/清24H MOV 25H,#0 ;T1/0.05ms加1/X25=1.25ms04H取反/清25H/26H加1 MOV 26H,#0 ;WT1/1.25ms加1/X200=250ms清26H/27H加1 MOV 27H,#0 ;WT1/250ms加1/X200=50s清27H/28H加1 MOV 28H,#0 ;WT1/50s加1/X6=300s=5min/05H清零 MOV 29H,#16H;预设密码1698 MOV 2AH,#98H; MOV 2BH,#0 ;按健键码(第1、2次) MOV 2CH,#0 ;按健键码(第3、4次) ;当(2BH)=(29H) (2CH)=(2AH)时开锁,否则报警 MOV TL0,#5 ;装入定时初值(0.05ms) MOV TH0,#5 ;重装入定时初值 MOV TL1,#0E6H ;装入定时初值 MOV TH1,#0E6H ;重装入定时初值 MOV TMOD,#22H ;设T0、T1为方式2 SETB EA ;开CPU中断 SETB ET0 ;允许T0中断 SETB ET1 ;允许T0中断 SETB TR0 ;允许T0计数 CLR TR1 ;禁止T1计数 M: NOP ACALL KEY MOV A,29H CJNE A,2BH,BJ MOV A,2AH CJNE A,2CH,BJ CLR P3.4 ;按健正确,P3.4清零,开锁 CLR P3.5 ;按健正确,P3.5清零,LED亮 MOV 23H,#0 CLR 02H JB 02H,$ SETB P3.4 SETB P3.5 AJMP M BJ: SETB 05H ;报警子程序 SETB TR1 JB 05H,$ CLR TR1 MOV 24H,#0 MOV 25H,#0 MOV 26H,#0 MOV 27H,#0 MOV 28H,#0 AJMP M YY: JNB 01H,$ SETB TR1 JB 01H,$ CLR TR1 RET ;延时子程序 DL: MOV R7,#02H DL1: MOV R6,#0FFH DL2: DJNZ R6,DL2 DJNZ R7,DL1 RET ;T0中断服务子程序 WT0: PUSH ACC PUSH PSW INC 21H ;0.5ms MOV A,21H CJNE A,#0C8H,TORETI ;200D=C8H MOV 21H,#0 IN