IBM-PC汇编语言程序设计课后习题答案(第二版 沈美明)

IBM-PC汇编语言程序设计课后习题答案(第二版沈美明))IBM-PC汇编语言程序设计课后习题答案(第二版沈美明))第五章5、1试编写一个汇编语言程序,要求对键盘输入的小写字母用大写字母显示出来。答:程序段如下:BEGIN:MOVAH,1DOSINT21HCMPAL,‘a’;输入字符<‘a’JBSTOPCMPAL,‘z’;输入字符>‘z’JASTOPSUBAL,20H;转换为大写字母,用ANDAL,11011111B也可MOVDL,ALDOSMOVAH,2INT21HJMPSTOP:5、2编写程序,从键盘接收一个小写字母,然后找出它的前导字符与后续字符,再按顺序显示这三个字符。答:程序段如下:BEGIN:MOVAH,1DOSINT21HCMPAL,‘a’;输入字符<‘a’JBSTOPCMPAL,‘z’;输入字符>‘z’不？JASTOPDECAL;得到前导字符MOVDL,AL;准备显示三个字符MOVCX,3DISPLAY:MOVAH,2DOSINT21HINCDLLOOPDISPLAYSTOP:RET53将AX1644ALBL、CLDL答:程序段如下:DSEGSEGMENTSTOREDB4DUP(?)DSEGENDS┇BEGIN:MOVCL,4;右移四次MOVCH,4;循环四次LEABX,STOREA10:MOVDX,AXANDDX,0FH;取AX的低四位MOV[BX],DLSTOREINCBXSHRAX,CL;右移四次DECCHJNZA10;循环四次完了码？B10:MOVDL,STOREAL、BL、CLDLMOVCL,STORE+1MOVBL,STORE+2MOVAL,STORE+3STOP:RET54STRING1STRING2全相同,若相同则显示‘MATCH’,‘NOMATCH’。DSEGSEGMENTSTRING1DB‘Iamastudent、’STRING2DB‘Iamastudent!’YESDB‘MATCH’,0DH,0AH,NODB‘NOMATCH’,0DH,0AH,‘$’DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEG,ES:DSEGSTART:PUSHDS;设置返回DOSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSMOV;ES,AXESBEGIN:LEASI,STRING1;设置串比较指令的初值LEADI,STRING2CLDMOVCX,STRING2-STRING1REPECMPSB;串比较JNEDISPNOLEADX,YESJMPDISPLAYDISPNO:LEADX,NO;显示NOMATCHDISPLAY:MOVAH,9DOSINT21HRETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART55试编写一程序,要求能从键盘接收一个个位数N,然后响铃N07)。答:程序段如下:BEGIN:MOVAH,1DOSINT21HSUBAL,‘0’JBSTOP;输入字符<‘0’不？CMPAL,9;输入字符>‘9’不？JASTOPCBWMOVCX,AXJCXZSTOPBELL:MOVDL,07H;准备响铃MOVAH,2DOSINT21HCALLDELAY100msLOOPBELLSTOP:RET5620MPN,并分别把这两个数组中数据的个数显示出来。DSEGCOUNTEQUARRAYDW20DUP(?);存放数组COUNT1DB0;存放正数的个数ARRAY1DW20DUP(?);存放正数COUNT2DB0;存放负数的个数ARRAY2DW20DUP(?);存放负数ZHENDB0DH,0AH,‘Thepositivenumberis:’,‘$’;正数的个数就是:FUDB0DH,0AH,‘Thenegativenumberis:’,‘$’;负数的个数就是:CRLFDB0DH,0AH,‘$’DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSBEGIN:MOVCX,COUNTLEABX,ARRAYLEASI,ARRAY1LEADI,ARRAY2BEGIN1:MOVAX,[BX]CMPAX,0;就是负数码？JSFUSHUMOV[SI],AX;就是正数,存入正数数组INCCOUNT1;正数个数+1ADDSI,2JMPSHORTNEXTFUSHU:MOV[DI],AX;就是负数,存入负数数组INCCOUNT2;负数个数+1ADDDI,2NEXT:ADDBX,2LOOPBEGIN1LEADX,ZHENMOVAL,COUNT1CALLDISPLAYLEADX,FU;显示负数个数MOVAL,COUNT2CALLDISPLAY;调显示子程序RETMAINENDP;--------------------------------------------------------------------DISPLAYPROCNEAR;显示子程序MOVAH,9DOSINT21HAAM(AL)BCDADDAH,‘0’0～9ASCIIMOVDL,AHMOVAH,2;显示一个字符的DOS调用INT21HADDAL,‘0’0～9ASCIIMOVDL,ALMOVAH,2;显示一个字符的DOS调用INT21HLEADX,CRLF;显示回车换行MOVAH,9DOSINT21HRETDISPLAYENDP;显示子程序结束CSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART57试编写一个汇编语言程序,求出首地址为DATA100DAX答:程序段如下:BEGIN:MOVBX,0MOVCX,100COMPARE:MOVAX,DATA[BX];取数组的第一个偶数ADDBX,2TESTAX,01H;就是偶数不？LOOPNZCOMPARE;不就是,比较下一个数JNZSTOP;没有偶数,退出JCXZSTOP;最后一个数就是偶数,即为最小偶数,退出COMPARE1:MOVDX,DATA[BX];取数组的下一个偶数ADDBX,2TESTDX,01H;就是偶数不？JNZNEXTCMPAX,DX;(AX)<(DX)不？JLENEXTMOVAX,DX;(AX)<(DX),则置换(AX)为最小偶数NEXT:LOOPCOMPARE1STOP:RET58AX16K83(11B)11B答:程序段如下:BEGIN:MOVDL,0;计数初始值MOVCX,8COMPARE:TESTAX,03H03JNZNOEQUAL;不就是,转走INCDL;就是,计数NOEQUAL:RORAX,1;准备判断下一个数RORAX,1LOOPCOMPAREADDDL,‘0’ASCIIMOVAH,2;进行显示INT21HSTOP:RET5916上显示与它等值的二进制数。答:程序段如下:BEGIN:MOVBX,016MOVCH,4MOVCL,4INPUT:SHLBX,CL4MOVAH,1;从键盘取数INT21HCMPAL,30H;<0不？JBINPUT;不就是‘0～F’的数重新输入CMPAL,39H;就是‘0～9’不？JAAF;不就是,转‘A～F’的处理ANDAL,0FH;转换为:0000B～1001BJMPBINARYAF:ANDAL,11011111B;转换为大写字母CMPAL,41H;又<A不？JBINPUT;不就是‘A～F’的数重新输入CMPAL,46H;>F不？JAINPUT;不就是‘A～F’的数重新输入ANDAL,0FH;转换为:1010B～1111BADDAL,9BINARY:ORBL,AL;将键盘输入的数进行组合DELCHJNZINPUTDISPN:MOVCX,1616ASCIIDISP:MOVDL,0ROLBX,1RCLDL,1ORDL,MOVAH,2;进行显示INT21HLOOPDISPSTOP:RET510ENG,并以$SUN“SUN:xxxx”显示出次数。DSEGSEGMENTENGDB‘Hereissun,sun,…,$’DISPDB‘SUN:’DATDB‘0000’,0DH,0AH,‘$’KEYWORDDB‘sun’DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEG,ES:DSEGSTART:PUSHDS;设置返回DOSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSMOVES,AXESBEGIN:MOVAX,0MOVDX,DISP-ENG-2ENGsun,因此比较次数LEABX,ENGCOMP:MOVDI,BXLEASI,KEYWORDMOVCX,3REPECMPSB;串比较JNZNOMATCHINCAX;就是,SUNADDBX,2NOMATCH:INCBXENGDECDXJNZCOMPDONE:MOVCH,416ASCIIMOVCL,4LEABX,DAT;转换结果存入DAT单元中DONE1:ROLAX,CLMOVDX,AXANDDL,0FH16ADDDL,30HCMPDL,39HJLESTOREADDDL,07H;就是“A～F”所以要加7STORE:MOV[BX],DLDATINCBXDECCHJNZDISPLAY:LEADX,DISPDISPDATMOVAH,09HINT21HRETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、11从键盘输入一系列以$为结束符的字符串,然后对其中的非数字字符计数,并显示出计数结果。答:程序段如下:DSEGSEGMENTBUFFDB50COUNTDWDSEGENDSDUP(‘’)┇BEGIN:LEABX,BUFFMOVCOUNT,0INPUT:MOVAH,01;从键盘输入一个字符的功能调用INT21HMOV[BX],ALINCBXCMPAL,‘$’;就是$结束符不？JNZINPUT;不就是,继续输入LEABX,BUFF;对非数字字符进行计数NEXT:MOVCL,[BX]INCBXCMPCL,‘$’;就是$JZDISPCMPCL,30H0JBNEXTCMPCL,39H9JANEXTINCCOUNTJMPNEXTDISP:┇;16进制数显示程序段(省略)512有一个首地址为MEM100D00。DSEGSEGMENTMEMDW100DUP(?)DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVSI,(100-1)*2;(SI)指向MEM的末元素的首地址MOVBX,-2;地址指针的初值MOVCX,100COMP:ADDBX,2CMPMEM[BX],0JZCONSLOOPCOMPJMPFINISH;比较完了,已无0则结束CONS:MOVDI,BXCONS1:CMPDI,SI;到了最后单元码？JAENOMOVMOVAX,MEM[DI+2];后面的元素向前移位MOVMEM[DI],AXADDDI,JMPNOMOV:MOVWORDPTR[SI],0LOOPCOMPFINISH:MAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART513STRINGSTRING+99CL51,0。DSEGSEGMENTSTRINGDB100DUP(?)DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVSI,0;(SI)MOVCX,100REPEAT:MOVAL,STRINGCMPAL,30HJBGO_ONCMPAL,JAGO_ONORCL,20HCL5JMPEXITGO_ON:INCSILOOPREPEATANDCL,0DFHCL5EXIT:RETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、14TABLE100H16AXCXDSEGSEGMENTTABLEDW100HDUPDATADW?COUNTDWDSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVCX,100H;循环计数器MOVSI,0NEXT:MOVDX,0MOVAX,TABLECOMP:CMPTABLE[SI],AX;计算一个数的出现次数JNEADDRINCDXADDSI,LOOPADDR:CMPDX,COUNTJLEDONEMOVCOUNT,DX;目前此数出现的次数最多,记下次数MOVDATA,AX;记下此数DONE:LOOPNEXT;准备取下一个数MOVCX,COUNT;出现最多的次数存入MOVAX,DATA;出现最多的数存入(AX)RETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、15nM,MM+2nDSEGSEGMENTnEQU100HMDWnDUP(?)DATADW?;M+2nDSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVCX,n;循环计数器LEADI,MMOVAX,[DI];取第一个数MOVADDR,DI;记下绝对值最大的数的地址CMPAX,0;此数就是正数不？JNSZHEN;就是正数,即为绝对值,转去判断下一个数NEGAX;不就是正数,变为其绝对值ZHEN:MOVBX,[DI]CMPBX,0;此数就是正数不？JNSCOMP;就是正数,即为绝对值,转去比较绝对值大小NEGBX;不就是正数,变为其绝对值COMP:CMPAX,BX;判断绝对值大小JAEADDRESSMOVAX,BX;(AX)<(BX),使(AX)中为绝对值最大的数MOVADDR,DI;记下绝对值最大的数的地址ADDRESS:ADDDI,2LOOPZHENMOVDATA,AX;记下此数RETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART516DATA100H16AXBXDSEGSEGMENTDATADW100HDUP(?)DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVCX,100H;循环计数器MOVSI,0MOVBX,0;与((DI),(BX))的初始值MOVDI,0NEXT:MOVAX,DATA[SI]CWDADDBX,AX;求与ADCDI,DX;加上进位位ADDSI,2LOOPNEXTMOVDX,DI;将((DI),(BX))中的累加与放入((DX),(AX))中MOVAX,BXMOVCX,100HIDIVCX;带符号数求平均值,放入(AX)MOVBX,0MOVSI,0COMP:CMPAX,DATA[SI];寻找小于平均值的数JLENOINCBX;小于平均值数的个数+1NO:ADDSI,2LOOPCOMPRETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、17AX16ASCIIMEM(AX)=2A49H439H,34H,41H,32H。DSEGSEGMENTMEMDB4DUPNDW2A49HDSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVCH,4;循环计数器MOVCL,4MOVAX,NLEABX,MEMROTATE:MOVDL,ALASCIIANDDL,0FHADDDL,30HCMPDL,3AH;就是0~9不？JLNEXTADDDL,07H;就是A~FNEXT:MOV[BX],DLASCIIMEMINCBXRORAX,CLDECCHJNZROTATERETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、180~100D30GRADE30,GRADE+ii+1RANK30i+1GRADERANK1。)答:程序如下:DSEGSEGMENTGRADEDW30DUP30RANKDW30DUP(?)DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSBEGIN:MOVDI,0MOVCX,30;外循环计数器LOOP1:PUSHCXMOVCX,30;内循环计数器MOVSI,0MOVAX,GRADE[DI]MOVDX,11LOOP2:CMPGRADE[SI],AX;成绩比较JBEGO_ONINCDX;名次+1GO_ON:ADDSI,2LOOPLOOP2POPCXMOVRNAK[DI],DXRANKADDDI,2LOOPLOOP1RETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART519A15B20ABC答:程序如下:DSEGSEGMENTADW15DUP(?)BDW20DUP(?)CDW15DUP(‘’)DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSBEGIN:MOVSI,0MOVBX,0MOVCX,15;外循环计数器LOOP1:PUSHCXMOVCX,20;内循环计数器MOVDI,0MOVAX,A[SI]ALOOP2:CMPB[DI],AXBJNENOMOVC[BX],AXCADDBX,2NO:ADDDI,LOOPLOOP2ADDSI,2POPCXLOOPRETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART520ABC0,D0,0。请编写此程序。答:程序如下:DSEGADW?BDWCDWDDWDSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSBEGIN:CMPA,0JENEXTCMPB,JENEXTCMPC,JENEXTMOVAX,AADDAX,BADDAX,CMOVD,AXJMPSHORTEXITNEXT:MOVA,MOVB,0MOVC,0EXIT:MAINCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、21ARRAY16果在终端上显示如下信息:0;1;2答:程序如下:DSEGSEGMENTARRAYDW3DUP(?)DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSBEGIN:LEASI,ARRAYMOVDX,0;(DX)用于存放所求的结果MOVAX,[SI]MOVBX,[SI+2]CMPAX,BX;比较第一与第二两个数就是否相等JNENEXT1INCDXNEXT1:CMP[SI+4],AX;比较第一与第三两个数就是否相等JNENEXT2INCDXNEXT2:CMP[SI+4],BX;比较第二与第三两个数就是否相等JNEINCDXNUM:CMPDX,JLDISPDECDXDISP:ADDDL,30H;转换为ASCII码MOVAH,2;显示一个字符INT21HRETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、22从键盘输入一系列字符(以回车符结束),并按字母、数字、及其它字符分类计数,最后显示出这三类的计数结果。DSEGSEGMENTALPHABETDB‘输入的字母字符个数为:’,‘$’NUMBERDB‘输入的数字字符个数为:’,‘$’OTHERDB‘输入的其它字符个数为:’,‘$’CRLFDB0DH,0AH,‘$’DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVBX,0;字母字符计数器MOVSI,0;数字字符计数器MOVDI,0;其它字符计数器INPUT:MOVAH,1INT21HCMPAL,0DHJEDISPCMPAL,30H0JAENEXT1OTHER:INCDI;就是其它字符JMPSHORTINPUTNEXT1:CMPAL,39H9JANEXT2INCSI;就是数字字符JMPSHORTINPUTNEXT2:CMPAL,41H;<字母A不？JAENEXT3JMPSHORTOTHER;就是其它字符NEXT3:CMPAL,5AHZJANEXT4INCBXJMPSHORTINPUTNEXT4:CMPAL,61HaJAENEXT5JMPSHORTOTHER;就是其它字符NEXT5:CMPAL,7AHzJASHORTOTHER;就是其它字符INCBX;就是字母字符a~zJMPSHORTINPUTDISP:LEADX,ALPHABETCALLDISPLAYLEADX,MOVBX,SICALLDISPLAYLEADX,OTHERMOVBX,DICALLDISPLAYRETMAINENDP;--------------------------------------------------------------------DISPLAYPROCNEARMOVAH,09H;显示字符串功能调用INT21HCALLBINIHEX;调把BX中二进制数转换为16进制显示子程序LEADX,CRLFMOVAH,09H;显示回车换行INT21HRETDISPLAYENDP;--------------------------------------------------------------------BINIHEXPROCNEARBX16MOVCH,4ROTATE:MOVCL,ROLBX,CLMOVDL,BLANDDL,ADDDL,CMPDL,3AHA~FJLPRINT_ITADDDL,07HPRINT_IT:MOVAH,02H;显示一个字符INT21HDECCHJNZROTATERETBINIHEXENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、23AB,试编写程序完成下列功能:AB1答:程序如下:DSEGSEGMENTADW？BDW？DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AXDSBEGIN:MOVAX,AMOVBX,BXORAX,BXTESTAX,0001H;ABJZCLASS;ABTESTBX,0001HJZEXIT;B为偶数,转走XCHGBX,A;AAMOVB,BXBJMPEXITCLASS:TESTBX,0001H;ABJZEXIT;ABINCBINCAEXIT:RETMAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5、245SINGLIST1~5,转去执行五个歌曲程序中的某一个。答:程序如下:DSEGSEGMENTSINGLISTDDDDSING2DDDDDDERRMSGDB‘Error!Invalidparameter!’,0DH,0AH,‘$’DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSHAXMOVAX,DSEGMOVDS,AX;给DS赋值BEGIN:MOVAH,1INT21HCMPAL,0DHJZEXIT;就是回车符,则结束SUBAL,‘1’1~5JBERROR1,错误CMPAL,4JAERROR;大于5,错误MOVBX,OFFSETSINGLISTMULAX,4;(AX)=(AL)*4,4ADDBX,AXJMPDWORDPTR[BX];转去执行歌曲程序ERROR:MOVDX,OFFSETERRMSGMOVAH,09HINT21HJMPBEGINSING1:JMPSING2:JMPSING3:JMPSING4:JMPSING5:JMPEXIT:MAINENDPCSEGENDS;以上定义代码段;--------------------------------------------------------------------ENDSTART5258086321680386的乘法指令编制一个3216答:8086DSEGSEGMENTMUL1DD?;32MUL2DW?;16MUL0DW0,0,0,064DSEGENDS;--------------------------------------------------------------------CSEGSEGMENTMAINPROCFARASSUMECS:CSEG,DS:DSEGSTART:PUSHDSSUBAX,AXPUSH