汇编与组成原理

1、实验一Fibonacci数列实现实验目的及内容1、实验目的进一步掌握子程序的设计方法，熟悉递归程序的设计2、实验要求掌握递归程序的调用、返回及入口、出口参数的传递方法。3、实验内容程序接收由用户键入的数N,根据给定的N值，计算Fibonacci数。Fibonacci数的定义如下：FIB(1)=1FIB(2)=1一. FIB(N)=FIB(N-2)+FIB(N-1)N>=3实验环境二. MasmForWindows集成实验环境共享版编写编译程序实验方法程序接收用户输大于20小于30的十进制正整数，存入输入缓冲区后再把它转化为十六进制数，存入内存单元N中。调用FIB函数求Fibonacci数

2、，结果高位存在RESULT2H低位存在RESULT2L最后调用OUTPUT!数将结果以十进制的形式显示出来。程序亮点在于将结果转换为十进制时采用了除10取余的方法，对于高位通过在适当的位数加65536(ADD65536)的方式巧妙地将乘法转化为加法。实验步骤1. 显示提示，并接受一个数字N;2. 调用fib递归得到结果存入内存;三. 调用显示10进制函数OUTPUT实验结论输入数据25（十进制）输出数据75025（10进制）空C;TIin)OYSsyste*32coKAaiLd.vcokpleaseinputnunber<20-30N-2SpiB<N；=75025Pt*essany

3、keyt«e=xi-tB«输入19与31,验证边界满足，如下图:BMC:YIHD0VS.syst*32couajid.cobPleaseinputanu.nbex-C2030=H=19Hnunherbetween20and30please!Fleaseinputanunbei*<20-30>：H-31Anumberhetueen20and30please*Pleaseinputanunbep<2030>：H=_实验分析本实验使我进一步掌握子程序的设计方法，熟悉递归程序的设计，丰富了我写汇编程序的经验。实验二窗口颜色改变实验一、实验目的编写程序，在屏幕

4、上设置任意两个数值，以此为对角线坐标点开设窗口，设定热键控制窗口的颜色，使屏幕颜色有浅至深。二、实验要求要求用汇编实现，并使用热键控制颜色改变。三、实验环境MasmForWindows集成实验环境共享版编写编译程序四、实验步骤输入两个坐标，作为对角线坐标，建立窗口用热键控制颜色，看颜色变化。五、实验结论输入坐标：top_left为50,50,;bottom_right为100,100实验三学生信息管理系统一、实验目的利用汇编语言编写学生信息管理系统二、实验要求熟悉汇编语言编程，编写学生信息系统三、实验内容建立学生成绩信息库，包括学号、成绩、名次，从键盘输入学号，实现成绩、名次等信息的查询：学号

5、姓名成绩名次01cjh80102np993四、实验环境MasmForWindows集成实验环境共享版编写编译程序五、实验结论MyStudenl;lina.grenent;temiCi>lia-t<1><s>quHTheclioidCsCldAaihlAdinJdfAH!WJrihTdUd'WriUf*WriVflW#UdW侦WdUCVriU'-ffW列出所有学生信息，输入lKC:SYsystID：61NANE；GjhSCORE：80BANK；IB：G2NAtlE：npSCORE：99RANK：IB：63NAIIE；JjbSCORE：6。RANK：e

6、nter"f"toreturn查询记录，输入s,并且输入ID号查询and.cqbPleaseinputID：02ID：班NAME：npSCORE二99EflNK：2Pleaseenter'*r'*toreturn,"c',tocontinue插入记录，输入i混C:fTNDOTSsysteB32couand«cob._-；、匚HITDOTSAsvTtID：04ID；04NAME：xsflNAHE：xglSCORE：9RSCORE：9iRAHX=4RANK；4Pieaseenter"p"toreturn,pcMto

7、centinue实验四虚拟实验平台模型机实验1. 实验目的1）掌握模型机的基本原理和结构2）掌握机器指令与微程序的对应关系；2. 3）掌握机器指令的执行流程；实验设备74LS181芯片两片，memory6116一片，微程序控制存储器芯片一片，编译器芯片一片,八位同步计数器芯片一片，ALU_G芯片一片，PC_G芯片一片，74LS273芯片若干，输入,输出芯片各一片，选择器芯片若干，连接器芯片若干，灯泡若干，开关若干等。实验原理些部件的动作控制信号都有微控器根据微指令产生。需要特别说明的是由机器指令构成的程序存放在存储器中，而每条机器指令对应的微程序存储在微控器中的存储器中。模型机详细原理见附件。

8、3. 实验内容1）选择实验设备，将所需要的组件从组件列表中拖到实验设计流程栏中2）搭建实验流程：根据原理图1和电路图（见附件），将已选择的组件进行连线。3）输入机器指令：选择菜单中的“工具”,再选择“模型机调试”,在指令输入窗口中输入如下指令:本实验设计机器指令程序如下:地址（二进制）内容（二进制）助记符说明00000000P00000000INR0“INPUTDEVICE，->R00000000100010000ADD0AH,R0R0+0AH->R000000010r000010100000001100100000STAR0,0BHR0->0BH00000100000010

9、110000010100110000OUT0BH0BH->LED00000110000010110000011101000000JMP00H00H->PC000010000000000000001010运算数据自定00001011求和结果4）这里做的是个加法运算，第一个加数已经存入到内存的00001010单元中，第二个加数是需要手工输入的。在实验运行面板中点击“运行”按钮，选择“输入”芯片，设置输入的数据后，双击连接“输入”芯片的单脉冲，这样第二个加数就设置好了。5）在实验运行面板中双击连续脉冲，模型机便开始工作，观察各个芯片的状态。或者在模型机调试窗口中（如图2所示）点击“指令执

10、行”选项卡，在模型机调试窗口中点击“下一时钟”，模型机机执行到下一个时钟，点击“下一微指令”，模型机机执行到下一个微指令，点击“下一指令”，模型机机执行到下一条指令。观察各个芯片的状态，思考模型机的运行原理。5:实验调试在指令输入框中输入指令，点击输入按钮，然后执行指令，点击下一时钟，下一微指令HIE屈机做U11T'71Al，IIIOUTMiBn|?1TLEDCTTa?r*IH：Cw?HC»nr«ikTHDK1=JDItEELOO|pg。1日fc图2模型机调试窗口实验心得：通过这次汇编组成原理课程设计，更加深入的了解了汇编指令的执行过程，更加透彻得明确了计算机执行指

11、令的过程，特别是虚拟平台的模型及实验，让我知道计算机执行指令时的具体过程。对于计算机的底层运算不在陌生。源码附录1:Fibonacci数DATASSEGMENTSTR1DB'Pleaseinputanumber(20-30):N=','$'STR2DB13,10,'FIB(N)=','$'WRONGSTRDB13,10,13,10,'Anumberbetween20and30please!',13,10,13,10,'$'INPUTBUFFERDB3,?,3DUP(?)NDW?;输入N值RESULT

12、1HDW0RESULT1LDW0RESULT2HDW0；结果的高16位RESULT2LDW0;结果的低16位C10DW10OUTPUTBUFFERDB11DUP('0')DATASENDSCODESSEGMENTASSUMECS:CODES,DS:DATASSTART:MOVAX,DATASMOVDS,AXCALLINPUTCALLFIBCALLOUTPUTJMPQUIT;INPUTPROCJMPT1WRONG:LEADX,WRONGSTRMOVAH,9INT21HT1:LEADX,STR1MOVAH,9INT21HLEADX,INPUTBUFFERMOVAH,10INT21H

13、MOVAX,0MOVCL,INPUTBUFFER+1MOVCH,0LEABX,INPUTBUFFER+2T2:MULC10MOVDL,BXCMPDL,'0'JBWRONGCMPDL,'9'JAWRONGANDDL,0FHADDAL,DLADCAH,0INCBXLOOPT2CMPAX,001EHJAWRONGCMPAX,0014HJBWRONGMOVN,AXRETINPUTENDP;*FIBPROCCMPN,1JZL1CMPN,2JZL2DECNCALLFIBMOVAX,RESULT2LMOVDX,RESULT2HMOVCX,RESULT1LADDRESULT2L

14、,CXMOVCX,RESULT1HADCRESULT2H,CXMOVRESULT1L,AXMOVRESULT1H,DXJMPEXITL1:MOVRESULT1L,1MOVRESULT2L,1JMPEXITL2:MOVRESULT2L,1DECNCALLFIBEXIT:RETFIBENDP.*OUTPUTPROCMOVAX,RESULT2LLEASI,OUTPUTBUFFERMOVCX,5R1:MOVDX,0;低位力口AOUTPUTBUFFERDIVC10INCSIADDSI,DLLOOPR1;MOVAX,RESULT2HLEASI,OUTPUTBUFFERMOVCX,5R2:MOVDX,0DI

15、VC10INCSIPUSHCX;高位力口入OUTPUTBUFFERCMPDX,0JENOADDMOVCX,DXADDN:CALLADD65536LOOPADDNNOADD:POPCXLOOPR2;LEADX,STR2MOVAH,9INT21HLEASI,OUTPUTBUFFERMOVBX,10R3:CMPBYTEPTRSI+BX,'0'JAPRINTDECBX；显示十进制结果JMPR3PRINT:MOVDL,SI+BXMOVAH,2INT21HDECBXCMPBX,1JAEPRINTRETOUTPUTENDP；ADD65536PROC;高位算法ADDBYTEPTRSI,6MOV

16、DL,0CMPBYTEPTRSI,3AHJBA1SUBBYTEPTRSI,10MOVDL,1A1:ADDBYTEPTRSI+1,3ADDBYTEPTRSI+1,DLMOVDL,0CMPBYTEPTRSI+1,3AHJBA2SUBBYTEPTRSI+1,10MOVDL,1A2:ADDBYTEPTRSI+2,5ADDBYTEPTRSI+2,DLMOVDL,0CMPBYTEPTRSI+2,3AHJBA3SUBBYTEPTRSI+2,10MOVDL,1A3:ADDBYTEPTRSI+3,5ADDBYTEPTRSI+3,DLMOVDL,0CMPBYTEPTRSI+3,3AHJBA4SUBBYTEPTRS

17、I+3,10MOVDL,1A4:ADDBYTEPTRSI+4,6ADDBYTEPTRSI+4,DLMOVDL,0CMPBYTEPTRSI+4,3AHJBA0SUBBYTEPTRSI+4,10MOVDL,1A5:ADDBYTEPTRSI+5,DLMOVDL,0CMPBYTEPTRSI+5,3AHJBA0SUBBYTEPTRSI+5,10MOVDL,1A6:ADDBYTEPTRSI+6,DLMOVDL,0CMPBYTEPTRSI+6,3AHJBA0SUBBYTEPTRSI+6,10MOVDL,1A7:ADDBYTEPTRSI+7,DLMOVDL,0CMPBYTEPTRSI+7,3AHJBA0SUB

18、BYTEPTRSI+7,10MOVDL,1A8:ADDBYTEPTRSI+8,DLMOVDL,0CMPBYTEPTRSI+8,3AHJBA0SUBBYTEPTRSI+8,10MOVDL,1A9:ADDBYTEPTRSI+9,DLA0:RETADD65536ENDP.*;QUIT:MOVAH,4CHINT21HCODESENDSENDSTART2:颜色改变.*.MACRODEFINE.clearscreencl_scrnmacrotlr,tlc,brr,brcmovah,6moval,0movbh,7movch,tlrmovcl,tlcmovdh,brrmovdl,brcint10hendm.o

19、utputprintfmacromsg_addrleadx,msg_addrmovah,9int21hendm.crlfmacromovdl,0dhmovah,2int21h.movdl,0ahmovah,2int21hendm.modelsmall.stack.datatlrdw?.top_leftrowtlcdw?.top_leftcolumnbrrdw?.bottom_rightrowbrcdw?.bottom_rightcolumncolordb0fh-rowppdw?biggerdw?countdw8pattern1db00000001bpattern2db00010001bpatt

20、ern3db00100101bpattern4db01010101bpattern5db11011010bpattern6db11101110bpattern?db11111110bpatternsdb11111111bmsgdb'*PRESSESCTOENDTHEPROGRAM*',13,10,'$'msg1db'Inputtop_leftposition(row:0479,column:0639):row,column',13,10,'$'msg2db'Inputbottom_rightposition(row:047

21、9,column:0639):row,column',13,10,'$'msg3db'InputError!Again.',13,10,'$'flagdb0ffh.*,.code.mainprocfarstart:movax,datamovds,ax.MAINPARTGOESHEREagain:callget_pos.getwindow'spositionfromkbdtestflag,0f0hjzexitcalldisplay.displaythewindowjmpagainexit:movax,4c00hint21hmaine

22、ndp.get_posprocnear.seEGA/VGAmovah,00hmoval,02hint10h.clearscreencl_scrn0,0,24,79printfmsginput:printfmsg1leasi,tlrcallget_numtestflag,0f0hjzget_pos_exittestflag,0fhjzerrorcrlfprintfmsg2leasi,brrcallget_numtestflag,0f0hjzget_pos_exittestflag,0fhjzerrorget_pos_exit:reterror:cl_scrn1,0,24,79movbh,0mov

23、dh,1movdl,0movah,2int10hprintfmsg3orflag,0fhjmpinputget_posendp;get_numprocnearcalldecibincmpdl,','jzstore_firstcmpdl,1bhjzst_endcmpdl,0jnzget_num_errormovah,7int21hjmpget_num_errorstore_first:cmpbx,479jaget_num_errormovsi,bxcalldecibincmpdl,0dhjzstore_secondcmpdl,1bhjzst_endcmpdl,0jnzget_nu

24、m_errormovah,7int21hjmpget_num_errorst_end:andflag,0fhjmpget_num_exitget_num_error:andflag,0f0hjmpget_num_exitstore_second:cmpbx,639jaget_num_errormovsi+2,bxget_num_exit:retget_numendp;decibinprocnear;storethenumberfromkbdinBXmovbx,0get_char:movah,1int21hmovdl,alsubal,30hjldecibin_exitcmpal,9jgdecib

25、in_exitcbwxchgax,bxmovcx,10mulcxaddbx,axjmpget_chardecibin_exit:retdecibinendp;displayprocnear;displaythewindowpushsi;setEGA/VGAmovah,0moval,13hint10h;movax,brrsubax,tlrincaxmovdx,0movcx,8divcxmovrowpp,axmovbigger,dx;repaint:movsi,8leadi,pattern1movbh,0movah,0chmoval,colormovdx,tlrcmpdx,brrjaxchg_rm

26、ovcx,tlccmpcx,brcjaxchg_cjmpwrite_partxchg_r:xchgdx,brrmovtlc,dxjmpwrite_partxchg_c:xchgcx,brcmovtlc,cxwrite_part:movbl,dipushrowppcmpsi,biggerjawrite_rowincrowppwrite_row:cmprowpp,0jzrow_endpushbxnext_p:rolbl,1;jncdont_write;int10h-;jmpwrite_enddont_write:;addal,8int10h;subal,8write_end:inccxcmpcx,

27、brcjbenext_p;popbxrolbl,1rolbl,1movcx,tlcincdxdecrowppjmpwrite_rowrow_end:incdipoprowppdecsijnzwrite_part;changecolorget_key:movah,0int16hcmpah,1jzdisplay_exitcmpah,48hjzinc_colorcmpah,4dhjzinc_colorcmpah,50hjzdec_colorcmpah,4bhjzdec_colorsubah,2jlget_keycmpah,7jgget_keymovcolor,ahjmprepaintinc_colo

28、r:inccolor;andcolor,07hjmprepaintdec_color:deccolorandcolor,07hjmprepaintdisplay_exit:popsiretdisplayendp;endstart3:学生管理系统DATASEGMENTTIPS3DB'PleaseinputID:$'查询提示信息TIPS4DB'Pleaseenter"r"toreturn$'TIPS5DB'Pleaseenter"r"toreturn,"c"tocontinue$'IDDB&

29、#39;ID:$'NAMDB'NAME:$'SEXDB'SEX:$'SCOREDB'SCORE:$'RANKDB'RANK:$'FIDDW?;文件号SEXMDB'male$'SEXFDB'female$'mess0DB'*',0ah,0dh,'$'mess1DB'*',0ah,0dh,'$'mess2DB'*WelcomeToUseThisStudentManagementSystem*',0ah,0dh,

30、9;$'mess3DB'*insert(i)*',0ah,0dh,'$'mess4DB'*list(l)*',0ah,0dh,'$'mess5DB'*search(s)*',0ah,0dh,'$'mess6DB'*quit(q)*',0ah,0dh,'$'mess7DB'*Pleasechose(i/l/s/q):*',0ah,0dh,'$'mess8DB'*',0ah,0dh,'$'mess9D

31、B'*PoweredByLinx*',0ah,0dh,'$'mess10DB'*',0ah,0dh,'$'ID_LENGTHEQU4;配置信息NAM_LENGTHEQU10SCORE_LENGTHEQU5RANK_LENGTHEQU5STU_LENGTHDW?;每条学生信息总长度DELDB30DUP('');清空信息用DEL_DONEDB'Deletesuccess!$'ERRDB'Dataerror,Pleaseinputagain成；错误提示信息NOSTUDB'Sorry,the

32、reisnothisstudnet!$'ERR_NODB'Nostudentinformation!$'ERR_SAMEDB'ThereisthesameID,pleaseinputagain成NEWFDB0DH,0AH,0DH,0AH,'Warning:thisoperationwillemptyallyourdata!',0DH,0AH,0DH,0AH,'Willyoucontinue?(y:empty,otherkey:return):$'FPATHDB'c:recoder.txt',。;数据库文本STRDB

33、50;缓冲区strDB?DB50DUP(?)STR0DB50DUP(?);缓冲区str0ENTERDB'$'TMPDW0SCDB0;空格;是否为空标志信息;分数保护处用BYEDB'ThanksForUsingAgain!',0DH,0AH,0DH,0AH,'Bye$'DATAENDSSET_P1MACROMOVAH,02HMOVDH,02MOVDL,03MOVBH,0INT10HENDMSET_P3MACROMOVAH,02HMOVDH,10MOVDL,50MOVBH,0INT10HENDM;设定光标位置A;设定光标的位置B;当前这页TABMAC

34、ROMOVAH,2MOVDL,0DHINT21HMOVDL,0AHINT21HENDM;换行CREATEFMACROMOVAH,3CHMOVCX,00HLEADX,INT21HMOVENDM;创建文件（传入文件号、传入文件路径）;普通文件OPENFMACRO;打开文件（传入文件号、传入文件路径）MOVAL,2;读写文式打开MOVAH,3DHLEADX,INT21HMOVENDMCLOSEFMACROMOVBX,MOVAH,3EHINT21HENDM;关闭文件（传入文件号）READFMACROMOVBX,LEADX,TEMPMOVAX,NUMMOVCX,AXMOVAH,3FHINT21H;读文件

35、（传入文件号、传入缓冲区、传入字节数）ENDMWRITEFMACRO；写文件（传入文件号、传入缓冲区、传入字节数）MOVBX,MOVCX,NUMLEADX,TEMP2MOVAH,40HINT21HENDMMOVEFMACRO;移动文件指针（传入文件号、传入移动方式、传入偏移字节（高位）传入偏移字节（低位）MOVBX,MOVAH,42HMOVAL,STYPE;尾+1!移量方式MOVCX,HIGEC;偏移字节（高位）MOVDX,LOWD;偏移字节（低位）INT21HENDMINPUTMACROBUFFER,LENGTH;输入字符串（传入字符串名、返回字符串长度）MOVAH,10LEADX,BUFF

36、ERINT21HMOVLENGTH,BUFFER1ENDMSHOWMACROBUFFER;显示字符串（传入字符串名）MOVAH,9LEADX,BUFFERINT21HENDMSTAKSEGMENTSTACKDB200DUP（?）STAKENDSJ;代码段,=CODESEGMENTASSUMECS:CODE,DS:DATASHOW_EXITPROCNEAR;提示按r退出PUSHAXPUSHBXPUSHCXPUSHDXTABTABSHOWTIPS4EXIT_1:MOVAH,7INT21HCMPAL,'r'JNZEXIT_1POPDXPOPCXPOPBXPOPAXRETSHOW_EX

37、ITENDPSHOW_ECPROCNEARPUSHAXPUSHBXPUSHCXPUSHDXTABTABSHOWTIPS5EXIT_2:MOVAH,7INT21HCMPAL,'r'JZEXIT_4CMPAL,'c'JNZEXIT_2CALLINSERTEXIT_4:POPDXPOPCXPOPBXPOPAXRETSHOW_ECENDP;询问退出还是继续SHOW_ERRPROCNEARPUSHAXPUSHBXPUSHCXPUSHDXTABTABSHOWERRTABTABPOPDXPOPCXPOPBXPOPAXRETSHOW_ERRENDP;显示出错信息子程序RE_TM

38、PPROCNEARPUSHAXPUSHBXPUSHCXPUSHDXMOVCX,50MOVBX,1RE:INCBXMOVSTRBX,''LOOPREPOPDXPOPCXPOPBXPOPAXRETRE_TMPENDP;用空格初始化缓冲区子程序CLEARPROCNEARPUSHAXPUSHBXPUSHCXPUSHDXMOVAL,0MOVCL,0;清屏;上滚行数;上滚窗口左上角的列号为MOVCH,0;上滚窗口左上角的行号为0MOVDH,24;上滚窗口右上角的行号为24MOVDL,79;上滚窗口右上角的列号为79MOVBH,14；空白行的属性MOVAH,6；入口参数INT10HSET_P

39、1POPDXPOPCXPOPBXPOPAXRETCLEARENDPSHOW_STUPROCNEAR;显示学生信息子程序PUSHAXPUSHBXPUSHCXPUSHDXSHOWID;IDMOVCX,ID_LENGTHMOVBX,-1SH_ID:INCBXMOVDL,STR0BXMOVAH,2INT21HLOOPSH_IDSHOWENTERSHOWNAM;NAMEMOVCX,NAM_LENGTH;MOVBX,ID_LENGTH;DECBXSH_NAME:INCBXMOVDL,STR0BXMOVAH,2INT21HLOOPSH_NAMENN:SHOWENTERSHOWSCORE;SCOREMOVCX

40、,SCORE_LENGTH;MOVBX,ID_LENGTH;ADDBX,NAM_LENGTHSH_SCORE:INCBXMOVDL,STR0BXMOVAH,2INT21HLOOPSH_SCORENN1:SHOWENTERSHOWRANK;RANKMOVCX,RANK_LENGTH;MOVBX,ID_LENGTH;ADDBX,NAM_LENGTH;ADDBX,SCORE_LENGTHSH_RANK:INCBXMOVDL,STR0BXMOVAH,2INT21HLOOPSH_RANKPOPDXPOPCXPOPBXPOPAXRETSHOW_STUENDP;=以下插入（insert）子程序=INSERT

41、PROCNEARPUSHAXPUSHBXPUSHCXPUSHDXTABCALLCLEAR;清屏TABTABOPENFFID,FPATH;打开文件IN_ID:SHOWID;学号INPUTSTR,BL;向缓冲区输入IDCMPBL,ID_LENGTH;看ID是否合法JZL1JNZERR_IDERR_SA:;错误处理TABTABSHOWERR_SAMETABTABJMPIN_IDERR_ID:TABTABCALLSHOW_ERRTABTABJMPIN_IDL1:;ID判断只能为数字MOVCX,ID_LENGTHLEASI,STR+2LN:MOVAL,BYTEPTRSICMPAL,'0'

42、JBERR_IDCMPAL,'9'JAERR_IDINCSILOOPLNMOVEFFID,0,0,0;指针移到文件首IA:MOVEFFID,1,0,5IB:READFFID,STR0,STU_LENGTH;读取学生信息CMPAX,0;文件是否结束JNZIL1JMPIC;没有重复学号，可以插入IL1:LEASI,STR0LEADI,STRINCDIDECSIMOVCX,ID_LENGTHIL2:INCSIINCDIMOVAL,BYTEPTRDICMPAL,BYTEPTRSIJNZIA;不符合条件读取下一个同学信息LOOPZIL2JMPERR_SA；有重复学号IC:MOVEFFID

43、,2,0,5WRITEFFID,STR,ID_LENGTH;数据合法则写入数据TABIN_NAM:SHOWNAM;姓名CALLRE_TMP;初始化缓冲区INPUTSTR,BLADDBL,2;去掉回车MOVBH,0MOVSI,BXMOVSTRSI,''SUBBL,2CMPBL,NAM_LENGTHJNAL2ERR_NAM:CALLSHOW_ERRJMPIN_NAML2:CMPSTR2,''姓名第一个字符不为空JZERR_NAMCMPSTR2,'z'JAERR_NAMCMPSTR2,'A'JBERR_NAMCMPSTR2,'a

44、'JNBIIICMPSTR2,'Z'JAERR_NAMCMPSTR2,'A'JBERR_NAMIII:MOVCX,NAM_LENGTHMOVBX,2II0:INCBXDECCXCMPSTRBX,'z'JAERR_NAMCMPSTRBX,''JBERR_NAMCMPSTRBX,'a'JNBII0CMPSTRBX,'Z'JAERR_NAMCMPSTRBX,'A'JNBII0CMPSTRBX,''JNZERR_NAMCMPCX,0JNZII0WRITEFFID,ST

45、R,NAM_LENGTHTABIN_SCORE:SHOWSCORECALLRE_TMPINPUTSTR,BLMOVSC,BL;BL保护ADDBL,2;去掉回车MOVBH,0MOVSI,BXMOVSTRSI,''SUBBL,2CMPBL,SCORE_LENGTH;分数最多4位JBL5ERR_SCORE:CALLSHOW_ERRJMPIN_SCOREL5:MOVCX,BX；分数只能是数字和.MOVBX,2L6:CMPSTRBX,'0'JNBL7;>=0CMPSTRBX,'.'JNZERR_SCOREJZL8L7:CMPSTRBX,'9&

46、#39;<=9JAERR_SCOREINCBXLOOPL6L8:MOVBL,SCCMPBL,4;分数(0100),支持一位小数JNZL9CMPSTR4,'.'JNZERR_SCOREJMPLWL9:CMPBL,3JNZL10CMPSTR3,'.'JZLWCMPSTR2,'1'JNZERR_SCORECMPSTR3,'0'JNZERR_SCORECMPSTR4,'0'JNZERR_SCOREJMPLWL10:CMPBL,2JNZL11CMPSTR2,'.'JZERR_SCOREJMPLWL11:

47、CMPSTR2,'.'JZERR_SCORELW:WRITEFFID,STR,SCORE_LENGTHTABIN_RANK:SHOWRANKCALLRE_TMPINPUTSTR,BLMOVSC,BL;BL保护ADDBL,2;去掉回车MOVBH,0MOVSI,BXMOVSTRSI,''SUBBL,2CMPBL,RANK_LENGTH;分数最多4位JBL12ERR_RANK:CALLSHOW_ERRJMPIN_RANKL12:MOVCX,BX;分数只能是数字和.MOVBX,2L13:CMPSTRBX,'0'JNBL14;>=0CMPSTRBX,

48、'.'JNZERR_RANKJZL15L14:CMPSTRBX,'9'<=9JAERR_RANKINCBXLOOPL13L15:MOVBL,SCCMPBL,4;分数(0100),支持一位小数JNZL16CMPSTR4,'.'JNZERR_RANKJMPLW1L16:CMPBL,3JNZL17CMPSTR3,'.'JZLW1CMPSTR2,'1'JNZERR_RANKCMPSTR3,'0'JNZERR_RANKCMPSTR4,'0'JNZERR_RANKJMPLW1L17:CMP

49、BL,2JNZL18CMPSTR2,'.'JZERR_RANKJMPLW1L18:CMPSTR2,'.'JZERR_RANKLW1:WRITEFFID,STR,RANK_LENGTHTAB;关闭文件CLOSEFFIDCALLSHOW_ECPOPDXPOPCXPOPBXPOPAXRETINSERTENDP=以下是浏览(list)子程序=LISTPROCNEARPUSHAXPUSHBXPUSHCXPUSHDXCALLCLEARMOVAX,0MOVTMP,AXOPENFFID,FPATHTAB;是否为空标志清0;打开文件D:MOVEFFID,1,0,5E:READFFID,STR0,STU_LENGTH;读取学生信息CMPAX,0;是否到文件尾JNZGCMPTMP,0;判断有没有信息JNZFTABTABTABSHOWER