STACK SEGMENT PARA STACK 'stack'
DW 20H DUP(?)
STACK ENDS
DATA SEGMENT
TITL DB '汇编通讯录程序'
LENG EQU $-TITL
NAM DB ' * * * * * * ',0DH,0AH
DB ' * 通 讯 录 * ',0DH,0AH
DB ' * * * * * * ',0DH,0AH,'$'
SELECT DB ' ┏━━━━━━━━━━━┓ ',0DH,0AH
DB ' ┃ 1.添加新记录并回显 ┃ ',0DH,0AH
DB ' ┃ 2.查看所有记录 ┃ ',0DH,0AH
DB ' ┃ 3.查寻检索某一记录 ┃ ',0DH,0AH
DB ' ┃ 4.修改记录 ┃ ',0DH,0AH
DB ' ┃ 5.删除记录 ┃ ',0DH,0AH
DB ' ┃ 6.退出 ┃ ',0DH,0AH
DB ' ┗━━━━━━━━━━━┛ ',0DH,0AH,'$'
SEL DB ' 请选择(1,2,3,4,5,6):','$'
RGST STRUC
NA DB 18,?,18 DUP(20H)
TEL DB 18,?,18 DUP(20H)
ADDR DB 20,?,20 DUP(20H)
PS DB 0DH,0AH,'$'
RGST ENDS
PRNA DB '请输入姓名:$'
PRTEL DB '请输入电话号码:$'
PRADDR DB '请输入家庭住址:$'
PROMPT DB '**********************************************************',0DH,0AH
DB ' 姓名 电话号码 家庭住址 ',0DH,0AH
DB '**********************************************************',0DH,0AH,'$'
Q RGST <> ;用于恢复D
D RGST 10H DUP(<>)
S RGST <> ;数据缓冲区
T DB 18,?,18 DUP(20H) ;存放检索人名
PATH DB 'yf.DAT',0 ;文件路径
SELF DB ' 错误!请在规定范围内选择.',0DH,0AH,'$'
WRITEF DB '写文件错误!',0DH,0AH,'$'
OPENF DB '打开文件错误!',0DH,0AH,'$' ; 错误提示
READF DB '读文件错误!',0DH,0AH,'$'
CLSETF DB '关闭文件错误!',0DH,0AH,'$'
HNF DW ? ; 文件代号
CNT DB 0
FANHUI DB 0
SEARC1 DB ' ┏━━━━━━━━━┓ ',0DH,0AH
DB ' ┃1.按姓名查询 ┃ ',0DH,0AH
DB ' ┃2.按电话号码查询 ┃ ',0DH,0AH
DB ' ┃3.按家庭住址查询 ┃ ',0DH,0AH
DB ' ┃4.返回主菜单 ┃ ',0DH,0AH
DB ' ┗━━━━━━━━━┛ ',0DH,0AH
DB ' 请选择查询方式:$'
SEARCF DB ' 错误!请重新选择查询方式:$'
SEARCH1 DB '请输入要查询的人名:$'
SEARCH2 DB '请输入要查询的电话号码:$'
SEARCH3 DB '请输入要查询的住址:$'
FAI DB '* *对不起!没有找到!* *',0DH,0AH,'$'
SEA DB '* * O K ! !已经找到! * *',0DH,0AH,'$'
LINE DB '**********************************************************',0DH,0AH,'$'
LINE1 DB '----------------------------------------------------------',0DH,0AH,'$'
ROW DB 0
OVER DB '显示一屏完毕,按任意键继续..................$'
NOTIC DB '★★THAT IS ALL! !全部显示完毕★★ 按任意健返回主菜单...........$'
NOTI DB '&& OK!! 添加完毕! !按任意键返回主菜单................$'
NOTI1 DB '按任意键返回主菜单! !.......................$'
NOTI2 DB '&& 查询完毕! !按任意键返回主菜单.....................$'
NOTI4 DB '&& 修改完毕! !按任意键返回主菜单.....................$'
NOTI5 DB '&& 删除完毕! !按任意键返回主菜单.....................$'
CHAN1 DB '! ! 确实要修改该记录 ? ? (Y && N ):$'
DEL1 DB '! ! 确实要删除该记录 ? ? (Y && N ):$'
TTT DB '★★汇编语言毕业计★★ ',0DH,0AH
LEN EQU $-TTT
TTT1 DB '指导老师',0DH,0AH
LEN1 EQU $-TTT1
TTT2 DB '学生：',0AH,0DH
LEN2 EQU $-TTT2
TTT3 DB ' 计算机',0DH,0AH
LEN3 EQU $-TTT3
TTT4 DB ' 按 < Enter >键进入,按 < Esc >键退出 ',0DH,0AH