单词记忆测试器程序设计.doc

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所指单元111111111111111111111mov 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 ax retzi4endp操作说明： 一、输入单词：;1、提示输入单词，输入最少5个、最多255个英文单词，每个单词不超过20个字符。2、若直接回车，则结束单词输入，进入单词测试；3、输足20个字符，自动进入下一个单词的输入；4、不足20个字符个字符，按回车键进入下一个单词的输入。;二、单词记忆测试：1、从输入的第一个单词开始测试2、键入y(不分大小写)或n，回答是否认识，不需按回车键确认，其它按键无效；3、紧接着，没有提示，可按上移键或下移键循环测试；4、按Esc键结束测试。 三、计算单词识别率并显示输出;四、提示是否进行下一组单词的输入和测试，键入y(不分大小写)或n选择是否继续，不需按回车键确认，其它按键无效。本程序在MASMPlus 1.2集成环境下通过编译，经过调试，运行正确。Code Segment Assume CS:Code,DS:Code; ; 功能：显示指定地址（Str_Addr）的字符串; 入口：Str_Addr字符串地址（要求在数据段）; 用法: Output Str_Addr 用法举例：Output PromptStr）Output MACRO Str_Addr push ax lea dx,Str_Addr mov ah,9 int 21h pop ax EndM; ; 功能：输出一个字符 ; 入口：dl=要显示的字符 Output_Chr proc Near push ax mov ah,02h int 21h pop ax ret Output_Chr endp ; ; 功能：输出回车换行Output_CTLF proc Near push ax push dx mov ah,02h mov dl,0dh int 21h mov dl,0ah int 21h pop dx pop ax retOutput_CTLF endp ; ; 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示; 入口：AX=二进制数 ; 出口：在当前光标位置显示转换后的ASCII码数字 Dec_ASCII Proc Near push dx push bx push di mov bx,10 lea di,Temp_Save6 mov BYTE ptr di,$ dec di Divide: xor dx,dx div bx or dl,30h mov di,dl dec di test ax,0ffffh jnz Divide inc di push di pop dx mov ah,9 int 21h pop di pop bx pop dx ret Temp_Save db 7 dup(?)Dec_ASCII EndP; ; 功能：键盘输入一个字符，若输入的是y或n（不分大小写），则显示并返回; 入口：无; 出口：若输入的是y，进位标志置位；若输入的是n，进位标志复位。Yes_or_No proc Near push dx push axInput_Chr: mov ah,7 ;不带回显的键盘输入 int 21h mov dl,al and al,0dfh cmp al,Y jnz $+5 stc jmp $+7 cmp al,N jnz Input_Chr clc mov ah,2 int 21h pop ax pop dx retYes_or_No Endp; Input_Words Proc Near ;输入一组单词 xor cl,cl ;输入的单词数目初值 lea bx,Buffer ;数据缓冲区地址 mov di,bx Output Prompt_Str1 ;提示输入单词Input_Words: cmp cl,255 jz Termanate ;限定最多255个单词 mov bx.Recognise,No ;初始化识别标志 mov bx.previous,di ;前一个节点地址 mov bx.Next,Chrs+1 ;每个单词最多字符数 mov di,bx lea dx,bx.Next ;键盘输入缓冲区地址 mov ah,0ah ;输入单词 int 21h mov si,dx inc si lodsb ;读入实际输入的字符个数，即单词长度 test al,al ;直接回车? jz Termanate ;是，结束单词输入 inc cl ;累计输入的单词数目 xor ah,ah add si,ax mov si,$ ;使之能用dos功能调用9号功能显示这个字符串（单词） inc si mov bx.Next,si ;下一个节点地址 mov bx,si call Output_CTLF ;输出一个回车、换行 jmp Input_Words ;输入下一个单词Termanate: cmp cl,5 jb Input_Words ;限定最少5个单词 mov Words,cl ;保存单词数目 lea si,Buffer ;数据缓冲区地址 mov bx,bx.previous mov si.previous,bx ;把第一个节点的前一个节点地址指向最后一个节点 mov bx.Next,si ;把最后一个节点的下一个节点地址指向第一个节点，形成循环链表 call Output_CTLF retInput_Words EndP; Test_Words Proc Near call Output_CTLF call Output_CTLF lea dx,si.Next2 mov ah,9 int 21h call Output_CTLF Output Prompt_Str2 ;要求回答是否认识这个词汇，回答字母不分大小写Recognise: or si.Recognise,Yes call Yes_or_No jc Up_Down and si.Recognise,NoUp_Down: xor ah,ah int 16h cmp ah,KBEsc jnz $+3 ret cmp ah,KBUp jnz Next_KBDown mov si,si.previous jmp Test_WordsNext_KBDown: cmp ah,KBDown jnz Up_Down mov si,si.Next jmp Test_WordsTest_Words EndP; Statics_Words Proc Near ;计算单词识别率 mov cl,Words ;取单词数 xor ch,ch lea si,Buffer ;数据缓冲区地址 mov bx,si.Next xor ax,axL0: add al,si.Recognise ;累加识别率 mov si,si.Next loop L0 mov bl,100 mul bl div Words Output 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 ;键扫描码KBDown equ 50H ;键扫描码; ; 定义结构类型Words_Table Struc ;单词链表Recognise db ? ;识别标志(是否认识这个单词)previous dw ? ;前一个节点地址Next dw ? ;下一个节点地址Words_Table EndS; Prompt_Str1 db Please 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 cs pop ds push cs pop es ;使数据段、附加段与代码段同段InputWord: call Input_Words ;输入一组单词 call Test_Words ;测试识别率 call Statics_Words ;计算单词识别率 Output Prompt_Str4 ;再测试一组单词？ call Yes_or_No call Output_CTLF call Output_CTLF jc InputWord; Exit_Proc: Output Press_Key ;提示操作完成，按任意键结束程序 mov ah,1 int 21h mov ah,4ch ;结束程序 int 21hBuffer: ;数据缓冲区Code ENDSEND Start ;编译到此结束1 实现单词的录入（为使程序具有可演示性，单词不少于10个）。2 单词根据按键控制依次在屏幕上显示，按键选择认识还是不认识，也可以直接进入下一个或者上一个。3 单词背完后给出正确率。Code Segment Assume CS:Code,DS:Code; Output MACRO Str_Addr push ax lea dx,Str_Addr mov ah,9 int 21h pop ax EndM; Output_Chr proc Near push ax mov ah,02h int 21h pop ax ret Output_Chr endp ; Output_CTLF proc Near push ax push dx mov ah,02h mov dl,0dh int 21h mov dl,0ah int 21h pop dx pop ax retOutput_CTLF endp ; ;Dec_ASCII Proc Near push dx push bx push di mov bx,10 lea di,Temp_Save6 mov BYTE ptr di,$ dec di Divide: xor dx,dx div bx or dl,30h mov di,dl dec di test ax,0ffffh jnz Divide inc di push di pop dx mov ah,9 int 21h pop di pop bx pop dx ret Temp_Save db 7 dup(?)Dec_ASCII EndP; ; 功能：键盘输入一个字符，若输入的是y或n（不分大小写），则显示并返回; 入口：无; 出口：若输入的是y，进位标志置位；若输入的是n，进位标志复位。Yes_or_No proc Near push dx push axInput_Chr: mov ah,7 ;不带回显的键盘输入 int 21h mov dl,al and al,0dfh cmp al,Y jnz $+5 stc jmp $+7 cmp al,N jnz Input_Chr clc mov ah,2 int 21h pop ax pop dx retYes_or_No Endp; Input_Words Proc Near ;输入一组单词 xor cl,cl ;输入的单词数目初值 lea bx,Buffer ;数据缓冲区地址 mov di,bx Output Prompt_Str1 ;提示输入单词Input_Words: cmp cl,255 jz Termanate ;限定最多255个单词 mov bx.Recognise,No ;初始化识别标志 mov bx.previous,di ;前一个节点地址 mov bx.Next,Chrs+1 ;每个单词最多字符数 mov di,bx lea dx,bx.Next ;键盘输入缓冲区地址 mov ah,0ah ;输入单词 int 21h mov si,dx inc si lodsb ;读入实际输入的字符个数，即单词长度 test al,al ;直接回车? jz Termanate ;是，结束单词输入 inc cl ;累计输入的单词数目 xor ah,ah add si,ax mov si,$ ;使之能用dos功能调用9号功能显示这个字符串（单词） inc si mov bx.Next,si ;下一个节点地址 mov bx,si call Output_CTLF ;输出一个回车、换行 jmp Input_Words ;输入下一个单词Termanate: cmp cl,10 jb Input_Words ;限定最少5个单词 mov Words,cl ;保存单词数目 lea si,Buffer ;数据缓冲区地址 mov bx,bx.previous mov si.previous,bx ;把第一个节点的前一个节点地址指向最后一个节点 mov bx.Next,si ;把最后一个节点的下一个节点地址指向第一个节点，形成循环链表 call Output_CTLF retInput_Words EndP; Test_Words Proc Near call Output_CTLF call Output_CTLF lea dx,si.Next2 mov ah,9 int 21h call Output_CTLF Output Prompt_Str2 ;要求回答是否认识这个词汇，回答字母不分大小写Recognise: or si.Recognise,Yes call Yes_or_No jc Up_Down and si.Recognise,NoUp_Down: xor ah,ah int 16h cmp ah,KBEsc jnz $+3 ret cmp ah,KBUp jnz Next_KBDown mov si,si.previous jmp Test_WordsNext_KBDown: cmp ah,KBDown jnz Up_Down mov si,si.Next jmp Test_WordsTest_Words EndP; Statics_Words Proc Near ;计算单词识别率 mov cl,Words ;取单词数 xor ch,ch lea si,Buffer ;数据缓冲区地址 mov bx,si.Next xor ax,axL0: add al,si.Recognise ;累加识别率 mov si,si.Next loop L0 mov bl,100 mul bl div Words Output 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 ;键扫描码KBDown equ 50H ;键扫描码; ; 定义结构类型Words_Table Struc ;单词链表Recognise db ?