通信字识别例子.doc

.486disp macro y,x,length,color,var ;显示彩色文本mov ax,1301h ;调用Bios屏显13号子功能mov bl,color ;设置文本显示的背景色和前景色mov bh,0 ;设置显示页号mov cx,length ;限定显示长度mov dh,y ;行号mov dl,x ;列号mov bp,offset var ;待显示字符串的地址int 10hendmset_pointer macro var ;宏定义：光标定位 mov ah,02h mov bh,0 mov dh,11 mov dl,var int 10h endmdata segment use16L1 db 201,19 dup(205),187 ;边框数据存放区L2 db 186,password:,10 dup( ),186L3 db 200,19 dup(205),188count db 35 ;光标初始位置，35列key db hellox ;默认的密码key_length equ $-key ;密码的长度mesg1 db password passed! ;密码通过提示数据存储mesg2 db password incorrect! Retry? y or n: ;密码错误提示数据存储buff db 8 dup(?) ;用户键入数据存放的区域data endscode segment use16assume cs:code,ds:databeg: mov ax,data mov ds,ax mov es,ax ;-clear screen ;清屏显示 mov ah,00h mov al,3 int 10h ;-dispay the menu ;显示边框，调用disp宏 disp 10,25,21,2eh,L1 disp 11,25,21,2eh,L2 disp 12,25,21,2eh,L3 ;-set the pointer ;预置光标位置 set_pointer 35 mov count,35 mov bp,offset buffhere: cmp count,42 jb typein ;密码长度小于8位，正常读入字符，并且光标记录增1，Buff指针增1 set_pointer 42;-密码满8位时的输入- mov ah,07h ;无回显读取键盘输入 int 21h ;-backspace_check cmp al,08h je backspace_check ;-enter_check cmp al,0dh je enter_check ;-AL放入buff中 mov byte ptr ds:bp,al ;-display * mov ah,02h mov DL,* int 21h jmp here;-typein: mov ah,07h int 21h ;-backspace_check cmp al,08h je backspace_check ;-enter_check cmp al,0dh je enter_check ;-AL放入buff中 mov byte ptr ds:bp,al inc bp inc count ;-display * mov ah,02h mov DL,* int 21h jmp here ;-backspace_checkbackspace_check: dec count cmp count,35 jae bs set_pointer 35 mov ah,02h mov DL, int 21h set_pointer 35 jmp herebs: dec bp set_pointer count mov ah,02h mov DL, int 21h set_pointer count jmp here ;-比较enter_check: mov si,offset key mov di,offset buff mov cx,key_length cld repe cmpsb jz pw_correct mov ah,00h mov al,3 int 10h disp 8,20,35,2eh,mesg2 mov ah,01h int 21h cmp al,y je beg jmp exitpw_correct: mov a