匯編 電子密碼鎖 程序

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、就調(diào)用音效提示錯誤 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那么前往上一級繼續(xù)輸入原密碼 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機(jī)提供的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