字典汇编程序0001

1、实验报告实验目 的综合运用已学知识独 立完成课程设计，熟练掌握汇编语言程序 设计的基础知识。 实验题 目简易英英词典功能要求：1. 单词及其英文解释的录入、修改和删除（ 1） 录入的新单词，把它 插入到相应的位置 （和一般词典一样 ）；（ 2） 可修改单词英文解释 ；（ 3） 删除单词及其英文解 释；2. 查找：（ 1） 输入不完整的 字符串，会依顺序列出单词前缀和字符串 相匹配的单词； 如输入： en列出： enable, enabled, enact 等（ 2） 查询某个单 词英文解释 （ 如 enable: to provide with the means or opportunity

2、; to makepossible, practical, or easy） ，词 库中不存在此单词，则提 示找不到；（ 3） 查询某个单词的同义 词 （如 accept: approve） ；（ 4） 查询某个单词的反义 词 （如 win: lose） ；3. 显示： 界面美观实验内 容 一、数据文件结构说 明1、每个词义（共 4个） 占 64字节，近义词占 64字节，反义词占 64字节，均以 $结 束。2、单词索引表置于文件 尾，每个索引项中单词占 22 字节（包含结束符 $），单词信息 块位置信息占 2字节 。单词索引表以空格组成的串为结束标志 。3、文件最末尾的 6个字 节，分别记录单

3、词索引表中单词个数（包 含空格组成的串 ）， 单词索引表距文件首 的字节数（依次为高位字、低位字 ）。一、功能模块及主要 宏、函数1、查询模块（ 1）、mycmps功能：字符串比较参数： mycmpstab0 字符串 1 偏移地址 ； mycmpstab2 字符串 2 偏移地址。 返回： str1 str2 CF= 0,ZF= 0。 （ 2）、halfsearch功能：字符串查找（ 折半）参数： halfsearchtab 0 字符串缓冲区偏移地址； halfsearchtab 2 字符串个数； halfsearchtab 4 查询字符串偏移地址； halfsearchtab 6 字符串长度。

4、返回：查找成功， CF=0 ，ax 返回匹配串的偏 移地址。 查找不成功， CF=1，ax 返回查询串插入时偏移地址。2、显示模块（ 1）、displayword功能：显示单词前缀 和字符串相匹配的单词参数： displaywordtab0 字符串缓冲区偏移地 址； displaywordtab2显示字符串个数；displaywordtab4displaywordtab8字符串长度； displaywordtab6 亮行位置； 返回光标位置； displaywordtab10 实际显示字符串个数。返回：2）、 功能： 参数：操作成功， displaywordtab10 返回实际显示 字符串个数

5、，光标位于 displaywordtab8 设置位置。readwordinfo读取单词解释 、近义词、反义词信息readwordinfotab0 单词信息块位置； readwordinfotab2 存放信息块缓冲区 偏移地址； readwordinfotab4 单词信息块大小。返回：操作成功，从 文件中读取信息块于主存偏移地址为 readwordinfotab2 缓冲区中。3）、 功能：4）、 功能： 参数：showasentence 显示一条单词 信息 showwordinfo 显示单词信息 showwordinfotab0 showwordinfotab2 showwordinfotab4

6、 showwordinfotab6 showwordinfotab8单词索引表中该单词的偏移地址；单词信息缓单词信息块返回光标位实际显示单冲区偏移地址； 大小； 置； 词信息条数。操作成功，显 示单词信息， showwordinfotab8 返回实际显示单词 信息条数， 光标位于 showwordinfotab6 设置位置。3、编辑模块 1）、indexinsert 功能： 参数：返回：在单词索引表 中插入一个单词indexinserttab0单词索引表偏移地址； indexinserttab2 单词索引表单词个数；单词大小； indexinserttab6 插入单词的偏移地址； 插入位置偏移

7、地址。返回：（2）、功能：参数： 数；indexdeletetab4 删除位置偏移地址。单词索引表中 删除一个单词，完成索引表信息的维护。indexinserttab4indexinserttab8单词索引表中 插入一个单词，完成索引表信息的维护。 indexdelete在单词索引表 中删除一个单词indexdeletetab0 单词索引表偏移地址； indexdeletetab2 单词索引表单词个返回：3）、inputnewinfo 功能：接受新的单词 信息 哑元： bufad 存放新的单词信息的缓冲区偏移地址；maxindex 最大下标值，信息中 字符个数减结束符减 1； charperl

8、ine 输入时每行字符数； specialpoint 键入 BackSpace 需 特殊处理的点；wndb 窗口属性； begincursor 接受字符起始光标位置。4）、appdnewword 功能：添加新的单词5）、editnotfind 功能：完成未找到匹 配单词时的编辑（添加操作） 参数： editnotfindtab 单词插入索引表位置偏移地 址。6）、delallwordinfo 功能：删除一个单词 。7）、editfind 功能：完成找到匹配 单词时的编辑（修改、删除操作） 参数： editfindtab 单词插入索引表位置偏移地址 。4、文件处理模块（ 1）、createfil

9、e功能：创建文件参数： createfiletab0 ASCIZ 串偏移地址； createfiletab2 文件属性； createfiletab4 出错信息偏移地址； createfiletab6 返回文件代号。返回：操作成功， createfiletab6 返回文件代号， CF=0 。 操作不成功， 输出提示信息， CF=1。（ 2）、openfile功能：打开文件参数： openfiletab 0 ASCIZ 串偏移地址； openfiletab 2 出错信息偏移地址。 返回：操作成功， handle 返 回文件代号， CF=0。操作不成功， 输出提示信息， CF=1。（ 3）、mov

10、fp 功能：移动文件指针 参数： handle 文件代号； movfptab 0 移动方式码； movfptab 2 偏移字节数（高位 ）；movfptab 4 偏移字节数（低位 ）； movfptab 6 出错信息偏移地址。返回：操作成功， CF=0 。 操作不成功，输出提 示信息， CF=1。（ 4）、wrfile功能：读 /写文件参数： handle 文件代号； wrfiletab 0 读 / 写；wrfiletab 2 数据缓冲区 偏移地址； wrfiletab 4 读 /写字节 数； wrfiletab 6 出错信息偏 移地址。返回：操作成功， CF=0 。 操作不成功，输出提 示信

11、息， CF=1。5、绘制界面模块（ 1）、drawwnd功能：绘制窗口哑元： attribute 窗口属性； wndleftr 左上角行号； wndleftc 左上角列号； wndrightr 右上角行号； wndrihgtc 右上角行号。（ 2）、setcursor 功能：设置光标位置哑元： page 页号； row 行号； colu mn 歹U号；addp 页号增量；addr 行号增量； addc 列号增量。(3) 、in terface功能：绘制界面(4) 、operdeclare功能：显示操作说明、程序流程图dseg segmentdataindexelemsize equ 24 wo

12、rdmaxsize equ 23 wordinfosize equ 64 wordmeaningsize equ 384 Up equ 48hDown equ 50hLeft equ 4Bh BackSpace equ 08h KeyEsc equ 1bh Dollar equ 24h Enter equ 0dhdictionary db Weeds Dictionary 1.0$ inpmsg db Input the word:$ indexmsg db Index:$ welcomemsg db Welcome to use Weeds Dictionary 1.0$ pathmsg d

13、b Please input the path of words.dat$ escmsgdb Esc: exit$ entermsg db Enter: edit$ bslmsg db BackSpace and Left: step back$ upmsg db Up: line up$ downmsg db Down: line down$ meaningmsg db Meaning:$ synonymsmsg db Synonyms:$ antonymmsg db Antonym:$ nofindmsg0 dbNO FIND! _$ nofindmsg1 db PRESS ENTER T

14、O EDIT THE WORD! _$ editnotfindmsg db Append(A) $ appendmsg db Append:$ editfindmsg db Modify(M) Delete(D) $ modifymsg db Modify:$ deletemsg db Delete:$ optionmsg0 db Word(W) $ optionmsg1 db Meaning(M) Synonyms(S) $ optionmsg2 db Antonym(A) $ optretmsg db Return(R): $ operfinmsg db Operation has fin

15、ished! *_*$ retmsg db Enter R or r to return: $ nosynonymsmsg db no synonyms$ noantonymmsg db no antonym$ meaningnomsg db Meaning NO.(14): $ savechgmsgdb Save the information? Y/N $ delmsmsg db Delete the information? Y/N $ delnotemsg db LOSE ALL WORDS INFORMATION: Y/N $ mdfywdmsg db !_! REALLY TO D

16、O THAT: Y/N $ crefilmsg db ERROR: createfile()$ opefilmsg db ERROR: openfile()$ movfpmsg db ERROR: movfp()$ wrfilemsg db ERROR: wrfile()$ clsfilmsg db ERROR: closefile()$defaultpath db c:weeddic, 0 wndone1r db0 wndone1c db 0 wndone2r db24 wndone2c db 79 wndoneb db 96h barone1r db 1 barone1c db 0 bar

17、one2r db 1 barone2c db 79 baroneb db 70h bartwo1r db 2 bartwo1c db 31 bartwo2r db 24 bartwo2c db 31 bartwob db 70h wndtwo1r db 4 wndtwo1c db 3 wndtwo2r db 5 wndtwo2c db 26 wndtwob db 0fch wndthree1r db 9 wndthree1c db 3 wndthree2r db 22 wndthree2c db 26 wndthreeb db 0f2h wndfour1r db 4 wndfour1c db

18、36 wndfour2r db 22 wndfour2c db 75 wndfourb db 0fdh wndwel1r db 10 wndwel1c db20 wndwel2r db 14 wndwel2c db57 wndwelb db 0e0h wndeditb db 0f5h wndsaveb db 0edh wndeditnb db 0f6hmycmpstab dw 2 dup(?) ;str1ad str2ad halfsearchtab dw 4 dup(?) ;wordsad tablen searchwordad wordsize indexinserttab dw 5 du

19、p(?);indexad indexlen wordsize inswordad insertad indexdeletetab dw 4 dup(?);indexad indexlen wordsize deletead displaywordtab dw 7 dup(?);wordarrad displaynum wordsize lightline retcursor realdispnum showwordinfotab dw 5 dup(?);wordad wordinfoad wordinfosize nonemptynum returncursor readwordinfotab

20、 dw ? ;wordplaceinputpath db 37, 0 pathnamedb 37 dup(?) handle dw ? ;sharecreatefiletab dw 4 dup(?) openfiletab dw 2 dup(?) movfptab dw 4 dup(?) wrfiletab dw 4 dup(?) closefiletab dw ?;ascizad fileattribute msgad rethandle;pathname msgad;movfpway movfph movfpl msgad;w/r, bufferad size msgad;msgadfin

21、dflag dbcpyflag db ? editnotfindtab dw ?editflag db 0 editfindtab dw ?;insertplace;ifedit;deleteadindexinfo dw 3 dup(?) searchword db 23 dup(Dollar) wordmeaning label byte wordm1 db 64 dup(?) wordm2 db 64 dup(?) wordm3 db 64 dup(?) wordm4 db 64 dup(?) similar db 64 dup(?) opposite db64 dup(?)wordsin

22、dex db 10000 dup(?) dseg endsssegsegment stack stack db 256 dup(0)ssegendscseg segment code assumeds:dseg, ss:sseg, cs:cseg pushregister macro r1, r2, r3, r4 push r1 push r2 push r3 push r4endm popregister macro r1, r2, r3, r4pop r1 pop r2 pop r3 pop r4 endm drawwnd macro attribute, wndleftr, wndlef

23、tc, wndrightr, wndrihgtc pushregister ax, bx, cx, dx mov ax, 0600h mov bh, attribute mov ch, wndleftr mov cl, wndleftc mov dh, wndrightr mov dl, wndrihgtcint 10h popregister dx, cx, bx, axendm setcursor macro page, row, column, addp, addr, addc push ax push bx push dx mov ah,2 mov bh, page add bh, a

24、ddp mov dh, row add dh, addr mov dl, column add dl, addc int 10h pop dx pop bx pop axendm printc macro charpush ax push dx mov ah,2mov dl, char int 21h pop dx pop ax endm printstr macro strname push ax push dx mov ah, 9 mov dx, offset strname int 21h pop dx pop ax endm putstr macro straddrpush ax pu

25、sh dx mov ah, 9 mov dx, straddr int 21h pop dx pop axendminterface macrodrawwnd wndoneb, wndone1r, wndone1c, wndone2r, wndone2c drawwnd baroneb, barone1r, barone1c, barone2r, barone2c drawwnd bartwob, bartwo1r, bartwo1c, bartwo2r, bartwo2c drawwnd wndtwob, wndtwo1r, wndtwo1c, wndtwo2r, wndtwo2c draw

26、wnd wndthreeb, wndthree1r, wndthree1c, wndthree2r, wndthree2c drawwnd wndfourb, wndfour1r, wndfour1c, wndfour2r, wndfour2c setcursor 0, 0, 28, 0, 0, 0 printstr dictionarysetcursor 0, 3, 3, 0, 0, 0 printstr inpmsg setcursor 0, 8, 3, 0, 0, 0 printstr indexmsg endm operdeclare macrosetcursor 0, wndfour

27、1r, wndfour1c, 0, 1, 3 printstr escmsgsetcursor 0, wndfour1r, wndfour1c, 0, 2, 3 printstr entermsgsetcursor 0, wndfour1r, wndfour1c, 0, 3, 3 printstr bslmsgsetcursor 0, wndfour1r, wndfour1c, 0, 4, 3printstr upmsgsetcursor 0, wndfour1r, wndfour1c, 0, 5, 3printstr downmsgendmfirstuse macrowndwel2cdraw

28、wnd wndwelb, wndwel1r, wndwel1c, wndwel2r, setcursor 0, wndwel1r, wndwel1c, 0, 1,1 printstr welcomemsgsetcursor 0, wndwel1r, wndwel1c, 0, 2,2printstr pathmsgsetcursor 0, wndwel1r, wndwel1c, 0, 3,1mov ah, 0ahmov dx, offset inputpathint 21hmov bh, 0mov bl, inputpath1add bx, 2mov inputpathbx, 0mov crea

29、tefiletab0, offset defaultpathmov createfiletab2, 02mov createfiletab4, offset crefilmsgcall createfilemov ax, createfiletab6mov handle, axmov wrfiletab0, 4000hmov wrfiletab2, offset inputpath1mov wrfiletab4, bxmov wrfiletab6, offset crefilmsgcall wrfile mov closefiletab0, offset clsfilmsg call clos

30、efileendmnotfirstuse macromov wrfiletab0,mov wrfiletab2,mov wrfiletab4, mov wrfiletab6, call wrfile3f00hoffset inputpath11offset wrfilemsgmov wrfiletab2, offset pathnamemov ah, 0mov al, inputpath1mov wrfiletab4, ax call wrfilemov closefiletab0, offset clsfilmsgcall closefilesub wndwel2r, 2drawwnd wn

31、dwelb, wndwel1r, wndwel1c, wndwel2r, wndwel2c setcursor 0, wndwel1r, wndwel1c, 0, 1,1printstr welcomemsgadd wndwel2r, 2mov ah,1or ch, 20hint 10hmov ax, 3000hmov cx, 0ffffhtimedelay:timdly: loop timdlydecaxjnz timedelaymov ah,1mov ch, 0dhmov cl, chint 10hendmmain proc farmov ax, dsegmov ds,axmov es,a

32、xmov ax, 3 ;screeninitializeint 10hinterfacemov ax, 3d00hmov dx, offset defaultpathint 21hmov handle, axjc firsttimenotfirstusejmp dicstartfirsttime:firstusedicstart:interfacemov openfiletab0, offset pathname ;open words.datmov openfiletab2, offset opefilmsgcall openfilejc firsttime operdeclare setc

33、ursor 0, wndtwo1r, wndtwo1c, 0, 0, 3 movmovmovmovfptab0, 4202h movfptab2, 0ffffh movfptab4, 0fffah movfptab6,;read indexinformation:len addmov call movfp jc toclosefile mov wrfiletab0, mov wrfiletab2, mov wrfiletab4, mov wrfiletab6, call wrfileoffset movfpmsg3f00h offset indexinfo 6offset wrfilemsgj

34、c toclosefile;wordsindexmov movfptab0, 4200h mov dx, indexinfo4 mov movfptab2, dx mov cx, indexinfo2 mov movfptab4, cxcall movfpjc toclosefilemov ax, indexinfo0mov dx, indexelemsizemul dxcmp dx, 0jz readwordsindexsetcursor 0, wndfour1r, wndfour1c, 0, 1, 3 putstr openfiletab0jmp toclosefile readwords

35、index:mov wrfiletab2, offset wordsindex mov wrfiletab4, ax call wrfilejc toclosefile redwdindfin:;input search wordmov halfsearchtab0, offset wordsindex mov halfsearchtab4, offset searchword mov halfsearchtab6, indexelemsizemov displaywordtab2, 10mov displaywordtab4, wordmaxsize;not beyond 418hmov d

36、isplaywordtab8, 405hmov readwordinfotab2, offset wordm1 mov readwordinfotab4, wordmeaningsize mov showwordinfotab2, offset wordm1 mov showwordinfotab4, wordinfosizemov cx, 0mov si, 0mov findflag, 2 getchar:mov ah,0int 16hcmp al, KeyEsc jz escape cmp al, Enter jnz notenter cmp byte ptr findflag, 2 jz

37、 notentercmp byte ptr findflag, 1jnz calleditnotfindchar then di = 1mov di, 0 ;di is use to be a flag, if al is acall editfindjmp dealwithchar calleditnotfind:mov di, 0call editnotfindjmp dealwithchar notenter:cmp word ptr displaywordtab8, 418h ja notletter cmp al, Dollar jz notletter cmp al, 20h jb

38、 notletter cmp al, 7eh jbe isletter isletter:mov ah,2mov bh, 0mov dx, displaywordtab8int 10hmov ah,2mov dl, alint 21hmov di, 1 ;flagmov searchwordsi, alinc si dealwithchar:mov findflag, 1mov cpyflag, 1mov ax, indexinfo0decaxmov halfsearchtab2, axcall halfsearchjnc meaningdisplaymov findflag, 0mov cp

39、yflag, 0drawwnd wndfourb, wndfour1r, wndfour1c, wndfour2r, wndfour2c setcursor 0, wndfour1r, wndfour1c, 0, 1, 3printstr nofindmsg0setcursor 0, wndfour1r, wndfour1c, 0, 3, 3printstr nofindmsg1jmp wordsdisplay meaningdisplay:mov editfindtab, axmov bx, ax ;(ax) is the correct position after call halfse

40、archmov bx, bx+22mov readwordinfotab0, bxcall readwordinfomov showwordinfotab0, axmov bx, displaywordtab8mov showwordinfotab8, bxcall showwordinfomov cx, 0 wordsdisplay:mov editnotfindtab, axmov displaywordtab0, axmov displaywordtab6, 0add displaywordtab8, dicall displaywordjmp getchar notletter:cmp

41、 al, BackSpacejnz notbackspace isbackspace:cmp si, 0jle notbackspacedecsimov searchwordsi, Dollarmov ax, 0600hmov bh, wndtwob dec displaywordtab8 mov cx, displaywordtab8 mov dx, cx int 10h mov ah, 2 mov bh, 0mov dx, displaywordtab8 int 10hmov cx, 0mov di, 0jmp dealwithchar notbackspace:cmp ah, Upjnz

42、 notupcmp cx, 0jle notupdeccxjmp changeline notup:cmp ah, Downjnz notdowncmp cx, displaywordtab10 jge notdown inc cx jmp changeline notdown:cmp ah, Leftjz isbackspacejmp getchar changeline:mov displaywordtab6, cx call displaywordmov bx, displaywordtab0 mov ax, cx cmp cx, 0 jnz chglinenextnz mov dl,

43、cpyflag mov findflag, dl jmp chglinenextz chglinenextnz:mov findflag, 1decaxchglinenextz:mov dx, indexelemsizemul dxadd bx, axmov ax, bx+22mov readwordinfotab0, ax call readwordinfomov showwordinfotab0, bx mov ax, displaywordtab8 mov showwordinfotab8, ax call showwordinfo mov editfindtab, bx jmp get

44、charescape:mov movfptab0, 4200hmov ax, indexinfo2mov dx, indexinfo4mov movfptab2, dxmov movfptab4, axcall movfpmov wrfiletab0, 4000hmov wrfiletab2, offset wordsindexmov ax, indexinfo0mov dx, indexelemsize mul dxmov wrfiletab4, axmov wrfiletab6, offset wrfilemsg call wrfile mov wrfiletab2, offset ind

45、exinfo mov wrfiletab4, 6 call wrfilemov movfptab0, 4202hmov movfptab2, 0ffffhmov movfptab4, 0fffahcall movfpcall wrfile toclosefile:mov closefiletab, offset clsfilmsg call closefileexit:mov ax, 4c00h ;exit to operating system. int 21hmain endp displayword proc near ;wordarrad displaynum wordsize lig

46、htline retcursor realdispnum pushregister ax, bx, cx, dx push sidrawwnd wndthreeb, wndthree1r, wndthree1c, wndthree2r, wndthree2c mov bx, displaywordtab6 cmp bx, 0 jle todisplayindex decbx mov ax, 0600h mov ch, wndthree1r add ch, bl mov cl, wndthree1c mov dh, ch mov dl, wndthree2c mov bh, 0b2h int 1

47、0h todisplayindex:mov bx, displaywordtab0 ;indexadcmp byte ptr bx, 20h jz displayfinish mov si, 0 mov cx, 0 mov dh, wndthree1r mov dl, 5 displayindex:cmp cx, displaywordtab2 ;diplaynum jge displayfinish push bx mov ah, 2 mov bh, 0 int 10h pop bx push dx mov dx, bx add dx, simov ah, 9 int 21h pop dx

48、inc cx add si, displaywordtab4;wordsizeinc sicmp byte ptr bx+si, 20h jz displayfinish inc dhjmp displayindexdisplayfinish:mov ah, 2mov dx, displaywordtab8mov bh, 0int 10hmov displaywordtab10, cxpop si popregister dx, cx, bx, ax retdisplayword endpreadwordinfo proc near ;wordplace wordmeanad wordmean

49、size push ax push dxmov ax, readwordinfotab0mov dx, wordmeaningsize mul dxmov movfptab2, dxmov movfptab4, ax call movfpmov ax, readwordinfotab2mov dx, readwordinfotab4mov wrfiletab0, 3f00hmov wrfiletab2, axmov wrfiletab4, dxcall wrfilepop dxpop axret readwordinfo endp showasentence macro ;accessoria

50、l macrolocal printchar, print, nextsentencemov si, 0mov di, 34printchar:;because somesentence is too longcmp byte ptr bx+si, Dollarjz nextsentencecmp si, dijle printinc clsetcursor 0, wndfour1r, wndfour1c, 0, cl, 3 add di, 34print:mov ah, 2mov dl, bx+siint 21hinc sijmp printchar nextsentence: endm s

51、howwordinfo proc near ;wordad wordinfoad wordinfosize returncursor, nonemptynum略showwordinfo endpmycmps proc near ;str1str2 cf=0 and zf=0 pushregister si, di, dx, axmov si, mycmpstab0 ;offset str1mov di, mycmpstab2 ;offset str2mov dh, 50strcmp:cmp byte ptr si, Dollar;25hlahfmov al, ahcmp byte ptr di

52、, Dollar;25hlahfand al, 41hand ah, 41hcmp ah, aljnz strcmpfinishcmp ah, 40hjnz strcmpcontinuexor ah, ahjmp strcmpfinish strcmpcontinue:mov dl, sicmp dl, dijz strcmpnextjmp strcmpfinish strcmpnext:inc siinc didecdhjnz strcmp strcmpfinish:popregister ax, dx, di, siret mycmps endp halfsearch proc nearp

53、ush si ;low push di ;high push dxmov dx, 0;swordad;wordsadmov si, halfsearchtab4 mov mycmpstab0, si mov si, halfsearchtab0 mov mycmpstab2, si call mycmps jb nofind ja chklast mov ax, si clc jmp hsfinish chklast:mov ax, halfsearchtab2 decaxmul halfsearchtab6 mov di, ax add di, si mov mycmpstab2, di c

54、all mycmps jb search ja lastnofind mov ax, di clc jmp hsfinish search:mov ax, di sub ax,si div halfsearchtab6 shr ax, 1 mul halfsearchtab6 add ax, si mov mycmpstab2, ax call mycmps jb midgreater ja midless clc jmp hsfinish midless:mov si, ax add si, halfsearchtab6jmp hsnextmidgreater:mov di, axsub di, halfsearchtab6hsnext:cmp si, dijbe searchlastnofind:mov ax, di ;ax the correct positionadd ax, halfsearchtab6stcjmp hsfinishnofind:mov ax, sistchsfinish:pop dxpop dipop sirethalfsearch endpindexinsert proc nearpushregister ax, dx, si, dimov