西科大微机课程设计：电子密码锁实现与修改功能

;**************************************************************************************
;功能：电子密码锁程序设计
;作者：HengJi
;时间：2013-12-17   
;************************************************************************************** 

DATA SEGMENT
TABLE1 DW 392H,262H,392H,262H,0000H ;密码错误音乐
TABLE2 DW 1046H,1318H,440H,262H,262H,262H,262H,262H,262H,0000H ;密码正确及修改完成音乐
    TABLE3 DW 494H,330H,494H,0000H ;一般音乐
    KEYCODE DB 25 DUP('$')  ;存储密码 
    BUFFER DB 25 DUP('$')    ;输入缓存  
    NEWCODE DB 25 DUP('$')    ;新密码缓存    
    FLAG1 DB 'Y'  ;表示第一次输入  
    FLAGX DB 'N'   ;标记是否输入回车
    KEYF DB 0   ;存放F1、F2按键     
    FLAGN DB 'N'    ;标记是否为新密码比较   
    FLAGE DB 'N'   ;标记字符串是否相等  
    FLAGF1 DB 'N'   ;表示F1是否被按下   
    FLAGT DB 0  ;记录输入错误密码次数  
    STIME DB 5   ;显示倒计时
    CONT DB 0 ;定时器计时 
    FLAGM DB ?  ;标记延时后是否返回主界面
    HINT0 DB 'OR',0AH,0DH,'MODIFY KEYCODE(F1)',0AH,0DH,'EXIT(F2)',0AH,0DH,0AH,0DH,'$'  ;提示0
    HINT1 DB 0AH,0DH,'PLEASE INPUT KEYCODE!',0AH,0DH,0AH,0DH,'$'  ;提示1       
    HINT2 DB 0AH,0DH,'KEYCODE ERROR!',0AH,0DH,'$'  ;提示2
    HINT3 DB 0AH,0DH,'YOU ARE RIGHT!',0AH,0DH,0AH,0DH,'$'  ;提示3        
    HINT4 DB 0AH,0DH,'PLEASE INPUT OLD KEYCODE!',0AH,0DH,0AH,0DH,'$'  ;提示4 
    HINT5 DB 0AH,0DH,'KEYCODE MODIFICATION SUCCED!',0AH,0DH,'$'  ;提示5    
    HINT6 DB 0AH,0DH,'***********************************',0AH,0DH,'$' ;提示6    

    HINT7 DB 0AH,0DH,'YOU HAVE THREE CONSECUTIVE INPUT ERRORS!',0AH,0DH,'SYSTEM IS ABOUT TO QUIT!',0AH,0DH,'$'  ;提示7    
    HINT8 DB 'OR',0AH,0DH,'RETURN(F1)',0AH,0DH,'EXIT(F2)',0AH,0DH,0AH,0DH,'$'  ;提示8   
    HINT9 DB 0AH,0DH,'PLEASE INPUT NEW KEYCODE!',0AH,0DH,0AH,0DH,'$'  ;提示9 
    HINT10 DB 0AH,0DH,'PLEASE REINPUT NEW KEYCODE!',0AH,0DH,0AH,0DH,'$'  ;提示10
    HINT11 DB 'SYSTEM WILL BACK TO THE MAIN INTERFACE AFTER 5 SECONDS',0AH,0DH,'$'
    HINT12 DB 'SYSTEM WILL EXIT AFTER 5 SECONDS',0AH,0DH,'$'
DATA ENDS 

STACK SEGMENT 
    STA DB 256 DUP('?')
    TOP EQU $-STA
STACK ENDS    

CODE SEGMENT
    ASSUME CS:CODE, DS:DATA, ES:STACK
    START:    
        CLI
        XOR AX,AX
        MOV AX,DATA
        MOV DS,AX
        MOV AX,STACK
        MOV SS,AX
        MOV AX,TOP
        MOV SP,AX
        CLI                   
        
     ;******取原键盘09号中断向量并保存*************     
        MOV AL,09H
        MOV AH,35H
        INT 21H