汇编 电子密码锁 程序

1、.：.；最终程序代码：DATA SEGMENT KEY DB ABCDEF TRYKEY DB 7 DB ? DB 7 DUP (?) OLDKEY DB 7 DB ? DB 7 DUP (?) NEWKEY1 DB 7 DB ? DB 7 DUP (?) NEWKEY2 DB 7 DB ? DB 7 DUP (?) FLAG DB 1 DB ? ESUM DB 0 STR1 DB PLEASE INPUT KEYCODE:,0DH,0AH DB $ STR3 DB You are right!,0DH,0AH DB $ STR4 DB Keycode error!,0DH,0AH,24H S

2、TR5 DB Please Input old keycode:,0DH,0AH DB $ STR6 DB Please Input new keycode:,0DH,0AH DB $ STR7 DB Please ReInput new keycode:,0DH,0AH DB $ STR8 DB Keycode modification succeed!,0DH,0AH DB $ STR9 DB The two keycodes are different!,0DH,0AH DB $ STRa DB ESC:Choice to EXIT; ENTER:Choice to go on;,0DH

3、,0AH DB $ STRc DB ESC:Choice to EXIT; ENTER:Choice to Modify keycode;,0DH,0AH DB $ STRb DB ESC:Choice to EXIT; BACKSPACE:RETURN; ENTER:Choice to go on,0DH,0AH DB $ STRd DB ESC:Choice to EXIT; BACKSPACE:RETURN;,0DH,0AH DB $ DATA ENDSSTACK SEGMENT DW 100 DUP(?)STACK ENDSCODE SEGMENT ASSUME CS:CODE,DS:

4、DATA,SS:STACKSTART: MOV AX,DATA MOV DS,AX MOV ES,AX INPUT: MOV AH,9 ;屏幕显示，提示输入密码 LEA DX,STR1 INT 21H MOV AH,0AH ;输入密码 LEA DX,OFFSET TRYKEY INT 21H MOV AH,9 ;屏幕显示，菜单项选择项 LEA DX,STRa INT 21H MOV AH,1 ;密码正确后下一步选择 INT 21H CMP AL,1BH ;选择ESC那么退出 JZ EXIT CMP AL,0DH ;选择ENTER验证密码 JZ COMPARE COMPARE: ;输入密码与实践

5、密码比较验证 MOV AX,DS MOV ES,AX MOV SI,OFFSET KEY MOV DI,OFFSET TRYKEY INC DI INC DI MOV CX,6 REPE CMPSB JZ RIGHT JNZ E1 E1: MOV DI,OFFSET ESUM INC BYTE PTRDI MOV AH,9 ;屏幕显示，输入密码错误 LEA DX,STR4 INT 21H MOV SI,OFFSET FLAG ;密码错误时的音效选择 INC SI MOV BYTE PTRSI,F CMP BYTE PTRDI,3 ;判别输入能否超越3次 JB SHENGYIN ;没超越3次连错

6、就调用音效提示错误 JMP EXIT ;输入密码超越3次自动终了程序RIGHT: MOV AH,9 ;屏幕显示，输入密码正确 LEA DX,STR3 INT 21H MOV AH,9 ;屏幕显示，菜单项选择项 LEA DX,STRcINT 21H MOV AH,1 ;密码正确后下一步选择 INT 21H CMP AL,1BH ;选择ESC那么退出 JZ EXIT CMP AL,0DH ;选择ENTER那么修正密码 JZ MODIFYMODIFY: A1: MOV AH,9 ;屏幕显示，输入原密码 LEA DX,STR5 INT 21H MOV AH,0AH ;原密码输入 LEA DX,OFFS

7、ET OLDKEY INT 21H MOV AX,DS MOV ES,AX MOV SI,OFFSET KEY MOV DI,OFFSET OLDKEY INC DI INC DI MOV CX,6 REPE CMPSB JZ Ab MOV AH,9 LEA DX,STR4 INT 21H JMP C1 C1: MOV AH,9 ;屏幕显示，菜单项选择项 LEA DX,STRd INT 21H MOV AH,1 ;密码正确后下一步选择 INT 21H CMP AL,1BH ;选择ESC那么退出 JZ EXIT CMP AL,08H ;选择BACKSPACE那么前往上一级继续输入原密码 JZ A

8、1 Ab: MOV AH,9 ;屏幕显示，菜单项选择项 LEA DX,STRb INT 21H MOV AH,1 ;密码正确后下一步选择 INT 21H CMP AL,1BH ;选择ESC那么退出 JZ EXIT CMP AL,0DH ;选择ENTER那么修正密码 JZ A2 A2: MOV AH,9 ;屏幕提示输入新密码 LEA DX,STR6 INT 21H MOV AH,0AH ;输入新密码 LEA DX,OFFSET NEWKEY1 INT 21H MOV AH,9 ;屏幕显示，菜单项选择项 LEA DX,STRb INT 21H MOV AH,1 ;密码正确后下一步选择 INT 21

9、H CMP AL,1BH ;选择ESC那么退出 JZ EXIT CMP AL,0DH ;选择ENTER那么修正密码 JZ A5 CMP AL,08H ;选择BACKSPACE那么前往上级菜单 JZ A2 A5: MOV AH,9 ;屏幕显示，再次输入新密码 LEA DX,STR7 INT 21H MOV AH,0AH ;新密码再次输入 LEA DX,OFFSET NEWKEY2 INT 21H MOV AH,9 ;屏幕显示，菜单项选择项 LEA DX,STRb INT 21H MOV AH,1 ;密码正确后下一步选择 INT 21H CMP AL,1BH ;选择ESC那么退出 JZ EXIT

10、CMP AL,0DH ;选择ENTER那么修正密码 JZ A6 CMP AL,08H ;选择BACKSPACE那么前往上级菜单 JZ A2 A6: MOV AX,DS ;两次输入的新密码验证 MOV ES,AX MOV SI,OFFSET NEWKEY1 MOV DI,OFFSET NEWKEY2 MOV CX,6 REPE CMPSB JNZ A3 JMP A4A3: MOV AH,9 ;屏幕显示两次输入密码不同，再次输入新验证密码 LEA DX,STR9 INT 21H JMP A5A4: MOV AH,9 ;修正密码胜利 LEA DX,STR8 INT 21H LEA SI,NEWKEY

11、1 INC SI INC SI LEA DI,KEY MOV CX,6 CLD REP MOVSB MOV SI,OFFSET FLAG ;修正密码胜利时的音效选择 INC SI MOV SI,TJMP SHENGYINDELAY:MOV AH,00H ;延时5s程序PC机提供的CLK信号频率为1.1931816MHZ INT 1AH ADD DL,91 MOV BL,DLLOP:MOV AH,00H INT 1AH CMP DL,BL JNZ LOP JMP INPUT SHENGYIN: SING: MOV BX,200 CALL SOUND MOV BX,1000 CALL SOUND JMP DELAY SOUND PROC MOV AL,10110110B OUT 43H,AL PUSH SI MOV SI,OFFSET FLAG CMP SI,F JZ B1B1: MOV AX,4553 CMP SI,T JZ B2B2: MOV AX,604 POP SI OUT 4