1、IBMPC汇编语言程序设计 第二版部分习题答案第5章5.1 试编写一个汇编语言程序,要求对键盘输入的小写字母用大写字母显示出来.model small.stack 100H.codemain proc farStart:push dxmov ax,0push axmov ah,01Hint 21Hcmp al,61Hjl lop1cmp al,7BHjge lop1sub al,20Hmov dl,allop1:mov ah,2int 21HretEnd start5.2 编写一个程序,从键盘接受一个小写字母,然后找出它的前导字符和后续字符,再按顺序显示这三个字符.model small.38
2、6.codeMAIN PROC FARstart:push dssub ax,axpush axinput:mov ah,7Hint 21Hcmpe:cmp al,20HJE exitcmp al,61HJL inputcmp al,7AHJG inputprint:sub al,01Hmov dl,almov ah,02Hint 21Hadd al,01Hmov dl,almov ah,02Hint 21Hadd al,01Hmov dl,almov ah,02Hint 21H;输出换行回车mov dl,0AHmov ah,02Hint 21Hjmp inputexit :retMAIN E
3、NDPEND start5.3 将AX寄存器中的16位数分成4组,每组4位,然后把这四组数分别放在AL、BL、CL、DL中。.model small.datax DB 4 dup(?).stack 100H.codeMAIN PROC FARstart:push dsand ax,00Hpush axmov ax,1234Hmov cx,04Hmov si,00Hlop:push cxmov cl,04Hrol ax,clpush axand al,0FHmov BYTE PTR xsi,alpop axpop cxadd si,2Loop lopmov al,Xmov bl,X+2mov c
4、l,X+4mov dl,X+6print:mov ah,02Hint 21Hmov dl,almov ah,02Hint 21Hmov dl,blmov ah,02Hint 21Hmov dl,clmov ah,02Hint 21Hexit:retMAIN ENDPEND start5.4 编写一个程序,要求比较两个字符串STRING1和STRING2所含字符是否相同,若相同则显示MATCH,若不同在显示:NO MATCH。.model small.dataSTRING1 DB I must study hardSTRING2 DB I must study hardX DB MATCH .$
5、Y DB NO MATCH.$.stack 100H.codemain proc farStart:push dxmov ax,0push axmov ax,datamov ds,axmov es,axlea si,STRING1lea di,STRING2cldmov cx,(string2-string1)/ type STRING2retEnd start5.5编写一个程序,要求能从键盘接收一个个位数N,然后响铃N次,(响铃的ASCII为07)。这题比较有意思,呵呵。model small.codemain proc farstart:push dssub ax,axpush axinp
6、ut: mov ah,01H int 21H cmp al,20H je exit cmp al,30H jle input cmp al,3AH jge input sub al,30H mov cx,ax and cx,0FFHlop: mov dl,07H mov ah,2H int 21H loop lop jmp inputexit : retmain endpend start5.6编写程序,将一个包含有20个数据的数组M分成两个数组:正数数组和负数数组N,并分别把这两个数组中的数据个数显示出来。.model small.386.dataM DB 1,2,3,4,5,6,7,8,9
7、,10,-1,-2,-3,-4,-5,-6,-7,-8,-9,-10P DB 20 dup(?)N DB 20 dup(?).codeMAIN PROC FARstart:PUSH dsAND ax,0PUSH axMOV ax,datamov ds,axMOV bx,0MOV si,0MOV di,0MOV cx,20Dcmpe :CMP Mbx,0JL ifLowhight :MOV al,byte ptr MbxMOV byte ptr Psi,al inc siJMP commonContrlifLow :MOV al,byte ptr MbxMOV byte ptr Ndi,alIN
8、C dicommonContrl:INC bxloop cmpemov ax,sicall showNumbercall printCRmov ax,dicall showNumberexit:retMAIN ENDP;注意,ShowNumber这个子过程有问题,请自行修改;showNumber PROC NEARcovernum:DAAMOV dx,axMOV cl,2Hshow:ROL dl,4Hpush dxAND dl,0fHADD dl,30HMOV ah,02Hint 21Hpop dxloop showretshowNumber ENDP;printCR PROC NEARmov
9、 dl,0aHmov ah,02Hint 21Hmov dl,0dHmov ah,02Hint 21HretprintCR ENDPend start5.7编制一个汇编语言程序,求出首地址为DATA的100D字数组中的最小偶数,并把它放在AX中。 此题根据题意要求应该使用完整汇编格式,因为精简格式也使用DATA.dataare segmentDATA DW 3322H,4555H,200H,3544H,1245Hnum DB ($-DATA)/2dataare endscode segmentassume cs:code,ds:dataareMAIN PROC FARstart:push ds
10、mov ax,0Hpush axmov ax,dataaremov ds,axmov dx,0H ;偶数数量计数mov cx,Word ptr nummov si,0HisO:mov bx,WORD PTR DATAsishr bx,1Hjnc addDXjmp commonControladdDX:ADD dx,1Hcmp dx,1Hje firstAXValuecompare:mov bx,WORD PTR DATAsicmp bx,axjge commonControlmov ax,bxcommonControl:ADD si,2Hloop isOjmp exitfirstAXvalue
11、:mov ax,WORD PTR DATAsijmp compareexit:retMAIN ENDPcode endsEND start5.8没有做。5.9编写一个汇编语言程序,要求从键盘上接收一个思维的十六位进制数,并在终端上显示与它等值的二进制数。.model small.386.codemain proc farstart:push dsmov ax,0push axmov ax,0mov cx,4mov dx,0input:mov ah,1Hint 21Hcmp al,30Hjl input cmp al,39H jle scmp al,61Hjl inputcmp al,66Hjg
12、 inputsub al,27Hs:sub al,30Hadd dl,alcmp cx,1Hje frol dx,4f:loop inputexit:call printretmain endpprint proc nearmov cx,10Hp: rol dx,1push dxand dx,1add dx,30Hmov ah,2int 21Hpop dxloop pretprint endpend start5.10设有一段英文,其变量字符名为ENG,并以$字符结束。试编写一程序,查对单词SUN在该文中的出现次数,并以格式SUN XXXX显示出次数。.model small .386.dat
13、aENG db SUNs SUN JAVA,24H ;24H = $MESSAGE db SUN:,$.stack 100H.codeMAIN PROC FARstart:PUSH DSAND AX,0PUSH AXMOV AX,dataMOV DS,AX;-MOV AX,0HMOV SI,1HsubSI1:SUB SI,1HsubSI2:SUB SI,1HcompareS:ADD SI,1HMOV DL,ENGSICMP DL,24HJE printCMP DL,53HJNE compareScompareU:ADD SI,1HMOV DL,ENGSICMP DL,55HJNE subSI2
14、compareN:ADD SI,1HMOV DL,ENGSICMP DL,4EHJNE subSI1INC AXJMP comparesprint:LEA DX,MESSAGEPUSH AXMOV AH,09HINT 21HPOP AXcall showNumberexit:retMAIN ENDP;注意,ShowNumber这个子过程有问题,请自行修改;showNumber PROC NEARcovernum:DAAMOV dx,axMOV cl,4Hshow:ROL dx,4Hpush dxAND dx,0fHADD dx,30HMOV ah,02Hint 21Hpop dxloop sh
15、owretshowNumber ENDPEND start5.11从键盘输入一系列以$为结束副的字符串,然后对其中的非数字字符计数,并显示出计数结果。.model small.386.codeMAIN PROC FARstart:push dsmov ax,0push axmov cx,0input:mov ah,1Hint 21Hcompare:cmp al,24Hje printcmp al,30Hjl addCountcmp al,39Hjg addCountaddCount:add ax,1Hjmp inputprint:call showNumberexit:retMAIN ENDP
16、;注意,ShowNumber这个子过程有问题,请自行修改;showNumber PROC NEARcovernum:DAAMOV dx,axMOV cl,2Hshow:ROL dl,4Hpush dxAND dl,0fHADD dl,30HMOV ah,02Hint 21Hpop dxloop showretshowNumber ENDPEND start5.12 有一个首地址为MEM的100D字数组,试编制程序删除数组中所有为零的项,并将后续项向前压缩,最后将数组的剩余部分补上零。.model small.386.stack 100H.datamem dw 12,0,0,0,0,0,1,2,
17、3,6,4,7,8,2,1,0,0,54,5,0,2,4,7,8,0,5,6,2,1,4,8,5,1,45,7,5,1,2,0,2,4,0,2,54,0,12,0,0,0,0,0,1,2,3,6,4,7,8,2,1,0,0,54,5,0,2,4,7,8,0,5,6,2,1,4,8,5,1,45,7,5,1,2,0,2,4,0,2,54,0,45,7,5,1,2,0,2,4,0,2.codeMAIN PROC FARstart:push dsand ax,0push axmov ax,datamov ds,ax;-mov ax,0Hmov bx,64Hmov cx,64Hmov si,0FFFEHrepeat:ADD si,2Hcmp MEMsi,0HJE callsloop repeatcalls:INC axcall sortcmp ax,1HJE lastValueDEC cxjmp repeatexit :retlastValue:mov membx,0HDEC cxjmp repeatMAIN ENDPsort PROC NEARpush cxpush sisub si,2Hs:add si,2Hmov dx,memsimov memsi+2,dxloop sreturn:pop sipop cxretsort ENDPEND start