单词记忆测试器程序的设计说明

b6 db 1000h dup('$')b9 db 'You do not know the following words , please remember them agian',0ah,0dh,'$' f1 db 'very good,congratulations to you',0ah,0dh,'$'call zi4;输出不认识的单词mov ah,02h;回车换行mov dl,0dhint 21hmov ah,02hmov dl,0ahint 21hcall zi2;将不认识的单词存到B6所指单元call zi2;将不认识的单词存到B6所指单元m2:inc dilea si,b6;将不认识的单词放到B6所指单元1111mov si,z;保留SI的地址zi4 procpush axpush bxpush cxpush dxpush sipush dilea dx,b9;输出不认识的单词mov ah,09hint 21hlea dx,b6mov ah,09hint 21hpop dipop sipop dxpop cxpop bxpop axretzi4 endp操作说明：一、输入单词：;1、提示输入单词，输入最少5个、最多255个英文单词，每个单词不超过20个字符。

2、若直接回车，则结束单词输入，进入单词测试；3、输足20个字符，自动进入下一个单词的输入；4、不足20个字符个字符，按回车键进入下一个单词的输入。

;二、单词记忆测试：1、从输入的第一个单词开始测试2、键入'y'(不分大小写)或'n'，回答是否认识，不需按回车键确认，其它按键无效；3、紧接着，没有提示，可按上移键或下移键循环测试；4、按Esc键结束测试。

三、计算单词识别率并显示输出;四、提示是否进行下一组单词的输入和测试，键入'y'(不分大小写)或'n'选择是否继续，不需按回车键确认，其它按键无效。

本程序在MASMPlus 1.2集成环境下通过编译，经过调试，运行正确。

Code SegmentAssume CS:Code,DS:Code; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 功能：显示指定地址（Str_Addr）的字符串; 入口：Str_Addr＝字符串地址（要求在数据段）; 用法: Output Str_Addr 用法举例：Output PromptStr）Output MACRO Str_Addrpush axlea dx,Str_Addrmov ah,9int 21hpop axEndM; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 功能：输出一个字符; 入口：dl=要显示的字符Output_Chr proc Nearpush axmov ah,02hint 21hpop axretOutput_Chr endp; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 功能：输出回车换行Output_CTLF proc Nearpush axpush dxmov ah,02hmov dl,0dhint 21hmov dl,0ahint 21hpop dxpop axretOutput_CTLF endp; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示; 入口：AX=二进制数; 出口：在当前光标位置显示转换后的ASCII码数字Dec_ASCII Proc Nearpush dxpush bxpush dimov bx,10lea di,Temp_Save[6]mov BYTE ptr [di],'$'dec diDivide: xor dx,dxdiv bxor dl,30hmov [di],dldec ditest ax,0ffffhjnz Divideinc dipush dipop dxmov ah,9int 21hpop dipop bxpop dxretTemp_Save db 7 dup(?)Dec_ASCII EndP; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 功能：键盘输入一个字符，若输入的是'y'或'n'（不分大小写），则显示并返回; 入口：无; 出口：若输入的是'y'，进位标志置位；若输入的是'n'，进位标志复位。

Yes_or_No proc Nearpush dxpush axInput_Chr: mov ah,7 ;不带回显的键盘输入int 21hmov dl,aland al,0dfhcmp al,'Y'jnz $+5stcjmp $+7cmp al,'N'jnz Input_Chrclcmov ah,2int 21hpop axpop dxretYes_or_No Endp; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Input_Words Proc Near ;输入一组单词xor cl,cl ;输入的单词数目初值lea bx,Buffer ;数据缓冲区地址mov di,bxOutput Prompt_Str1 ;提示输入单词Input_Words: cmp cl,255jz Termanate ;限定最多255个单词mov [bx.Recognise],No ;初始化识别标志mov [bx.previous],di ;前一个节点地址mov [bx.Next],Chrs+1 ;每个单词最多字符数mov di,bxlea dx,[bx.Next] ;键盘输入缓冲区地址mov ah,0ah ;输入单词int 21hmov si,dxinc silodsb ;读入实际输入的字符个数，即单词长度test al,al ;直接回车?jz Termanate ;是，结束单词输入inc cl ;累计输入的单词数目xor ah,ahadd si,axmov [si],'$' ;使之能用dos功能调用9号功能显示这个字符串（单词）inc simov [bx.Next],si ;下一个节点地址mov bx,sicall Output_CTLF ;输出一个回车、换行jmp Input_Words ;输入下一个单词Termanate: cmp cl,5jb Input_Words ;限定最少5个单词mov Words,cl ;保存单词数目lea si,Buffer ;数据缓冲区地址mov bx,[bx.previous]mov [si.previous],bx ;把第一个节点的前一个节点地址指向最后一个节点mov [bx.Next],si ;把最后一个节点的下一个节点地址指向第一个节点，形成循环链表 call Output_CTLFretInput_Words EndP; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Test_Words Proc Nearcall Output_CTLFcall Output_CTLFlea dx,[si.Next][2]mov ah,9int 21hcall Output_CTLFOutput Prompt_Str2 ;要求回答是否认识这个词汇，回答字母不分大小写Recognise: or [si.Recognise],Yescall Yes_or_Nojc Up_Downand [si.Recognise],NoUp_Down: xor ah,ahint 16hcmp ah,KBEscjnz $+3retcmp ah,KBUpjnz Next_KBDownmov si,[si.previous]jmp Test_WordsNext_KBDown: cmp ah,KBDownjnz Up_Downmov si,[si.Next]jmp Test_WordsTest_Words EndP; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Statics_Words Proc Near ;计算单词识别率mov cl,Words ;取单词数xor ch,chlea si,Buffer ;数据缓冲区地址mov bx,[si.Next]xor ax,axL0: add al,[si.Recognise] ;累加识别率mov si,[si.Next]loop L0mov bl,100mul bldiv WordsOutput Prompt_Str3 ;提示显示单词识别率call Dec_ASCII ;把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示mov dl,'%'call Output_Chr ;显示输出一个字符retStatics_Words EndP; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Chrs equ 20 ;单词最多字符数Yes equ 1 ;认识No equ 0 ;不认识KBEsc equ 1 ;Esc键扫描码KBUp equ 48H ;↑键扫描码KBD own equ 50H ;↓键扫描码; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－; 定义结构类型Words_Table Struc ;单词链表Recognise db ? ;识别标志(是否认识这个单词)previous dw ? ;前一个节点地址Next dw ? ;下一个节点地址Words_Table EndS; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Prompt_Str1 db 'Pl ease input words:',13,10,'$' ;“请输入单词”提示信息Prompt_Str2 db 'do you know it ?(y/n):$' ;“是否认识单词”提示信息Prompt_Str3 db 7,13,10,13,10,'your answer rate is: $' ;“单词识别率”提示信息Prompt_Str4 db 7,13,10,13,10,'Do you want to test again(y/n)?$' ;“测试下一组单词？”提示信息Words db 0 ;实际输入的单词数目Press_Key db 7,13,10,13,10,'The complated. Press any key to exit...$' ;操作完成按任意键结束程序提示信息Start: push cspop dspush cspop es ;使数据段、附加段与代码段同段InputWord: call Input_Words ;输入一组单词call Test_Words ;测试识别率call Statics_Words ;计算单词识别率Output Prompt_Str4 ;再测试一组单词？call Yes_or_Nocall Output_CTLFcall Output_CTLFjc InputWord; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－Exit_Proc: Output Press_Key ;提示操作完成，按任意键结束程序mov ah,1int 21hmov ah,4ch ;结束程序int 21hBuffer: ;数据缓冲区Code ENDSEND Start ;编译到此结束1．实现单词的录入（为使程序具有可演示性，单词不少于10个）。