关键是后面提示的错误要解决。
感楼主诚意，费了九牛二虎之力，方才完成。不知能否满足要求。本程序通过编译，运行正确
Code Segment
Assume CS:Code,DS:Code
CR equ 000DH
LF equ 000AH
KBBack equ 0008H
Name_Len equ 18 用户名最大长度
Pass_Len equ 8 密码最大长度
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
将用户名和密码定义为一个结构类型
User Struc 成绩单结构类型
User_Name db Name_Len dup(?) 用户名
Name_Lenth db ? 用户名实际长度
Pass_Word db Name_Len dup(?) 密码
Pass_Lenth db ? 密码实际长度
User EndS
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
功能：显示指定地址（Str_Addr）的字符串
入口：
Str_Addr＝字符串地址（要求在数据段）
用法: Output Str_Addr
用法举例：Output PromptStr
Output MACRO Str_Addr
lea dx,Str_Addr
mov ah,9
int 21h
EndM
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
功能：取光标位置
入口：无
出口：DH=行号，DL=列号
GetCursor Proc Near
PUSH AX
PUSH BX
PUSH CX
PUSH DX
XOR BX,BX
MOV AH,3
INT 10H
MOV Cursor_Row,DH
MOV Cursor_Col,DL
POP DX
POP CX
POP BX
POP AX
RET
Cursor_Row DB ?
Cursor_Col DB ?
GetCursor EndP
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
功能：置光标位置
入口：Cursor_Row=行坐标Cursor_Col: 列坐标)
SetCursor Proc Near
PUSH DX
PUSH CX
PUSH BX
PUSH AX
MOV DH,Cursor_Row
MOV DL,Cursor_Col
XOR BX,BX
MOV AH,2
INT 10H
POP AX
POP BX
POP CX
POP DX
RET
SetCursor EndP
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
窗口上滚指定行数
Roll_Up Proc Near
xor bh,bh 显示页号
mov ah,8 读光标位置的字符和属性
int 10h
mov bh,ah 上滚窗口空行属性
mov cx,100h 左上角坐标
mov al,5
mov dx,54fh 右下角坐标
mov ah,6
int 10h
ret
Roll_Up EndP
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
功能：输入指定位数的用户密码，实际输入的密码字符以“*”显示，并有回空纠错功能
入口：di=密码输入缓冲区地址
出口：AL=实际输入的密码字符数
Input_PassW Proc Near
push di
mov cx,Pass_Len 密码最大长度
@@Input: call GetCursor 取光标位置
mov ah,7 从键盘接受一个字符
int 21h
cmp al,CR 回车符？
jz @@Calc_Chrs 是，结束密码输入，转去计算实际输入的密码字符数
cmp al,KBBack
jz @@KB_Back 若是回空键，重新输入
stosb 保存输入的字符
mov dl,'*'
mov ah,2
int 21h
jmp @@KBBack
@@KB_Back: dec Cursor_Col
inc cx
dec di
@@KBBack: inc Cursor_Col
call SetCursor 置光标位置
loop @@Input 接受下一个数字
@@Calc_Chrs:mov cx,di
pop di
sub cx,di
cmp cl,[si.Pass_Lenth]
jnz @@Pass_Err 密码长度不等
mov cl,[si.Pass_Lenth]
xor ch,ch
push si
lea si,[si.Pass_Word]
cld
repz cmpsb 比较密码是否正确
pop si
jcxz $+4
@@Pass_Err: clc 进位标志复位，表示密码不正确
ret
stc 进位标志置位，表示密码正确
ret
Input_PassW EndP
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Again_Input Proc Near
Output Input_Again 提示：是否重新输入用户名
mov ah,1 从键盘接受一个字符
int 21h
or al,20h 转换成小写，大小写不敏感
cmp al,'y' 重新输入？
jnz $+7 不
call Roll_Up 窗口上滚指定行数
stc 进位标志置位，表示重复前面的操作
ret
cmp al,'n' 不重新输入？
jnz Again_Input 不是，非有效字母，重新输入
clc 进位标志复位，表示放弃前面的操作
ret
Again_Input EndP
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Users equ 5 用户数
Even
User_Inform User <'richcon',7,'12345678',8>
User <'WangMing',8,'21345678',8>
User <'ZhangHongQiao',13,'13245678',8>
User <'LiYan',5,'12435678',8>
User <'XuPengYu',12,'12354678',8>
Prompt_User db 'User name: $'
Prompt_Word db 'Pass word: $'
Empty_Error db 7,CR,LF,CR,LF,'User name is empty.$'
Register_No db 7,CR,LF,CR,LF,'No register.$'
Pass_Error db 7,CR,LF,CR,LF,'Pass word error!$'
Welcome db 7,CR,LF,CR,LF,'WELCOME$',0
Input_Again db CR,LF,CR,LF,'Do you input user name again(y/n)?$'
Start: push cs
pop ds 使数据段与代码段同段
push cs
pop es 使附加段与代码段同段
Output Prompt_User 提示输入用户名
call GetCursor 取光标位置
Input_Name: call SetCursor 置光标位置
lea dx,Buffer 数据缓冲区地址
mov ah,0ah 键盘缓冲区输入
int 21h
lea si,Buffer[1] 实际输入的字符数地址
lodsb 取实际输入的字符数
test al,al 空串？
jnz Valid_Test 不是，检测输入的用户是否注册
Output Empty_Error 提示用户名为空
jmp Input_Name 重新输入用户名
Valid_Test: mov cx,Users 注册用户数
lea si,User_Inform 注册用户信息地址
Valid_Test0:cmp al,[si.Name_Lenth] 输入的用户名长度=用户名实际长度？
jnz Next_One 不相等，与下一个注册用户名比较
push cx
push si
lea si,[si.User_Name]
lea di,Buffer[2] 实际输入的用户名地址
mov cl,al
xor ch,ch
cld
repz cmpsb 比较用户名是否已注册
stc 进位标志置位，表示用户名已注册
jcxz $+3
clc 进位标志复位，表示用户名未注册
pop si
pop cx
jc Input_Pass 用户名已注册，转去输入用户密码
Next_One: add si,type User 下一个注册用户信息地址
loop Valid_Test0
Output Register_No 提示：非注册用户
call Again_Input 是否继续
jc Input_Name 进位标志置位，转去重新输入用户名
jmp Exit_Proc 不重新输入用户名，结束程序
Input_Pass: mov word ptr Cursor_Row,1
call SetCursor 置光标位置
Output Prompt_Word 提示输入密码
lea di,Buffer 密码缓冲区地址
call Input_PassW 输入密码
jc @@Welcome 密码输入正确，显示欢迎信息
Output Pass_Error 提示密码输入错误
call Again_Input 是否继续
jc Input_Pass 进位标志置位，转去重新输入密码
jmp Exit_Proc 不重新输入密码，结束程序
@@Welcome: Output Welcome 显示欢迎信息
Exit_Proc: mov ah,4ch 结束程序
int 21h
Buffer db 20 数据缓冲区
Code ENDS
END Start 编译到此结束
