山東大學(xué)匯編語言上機實驗-實驗五

1、子程序設(shè)計2.6顯示學(xué)生名次表rank編制一個程序，要求接受鍵盤輸入的一個班的學(xué)生成績，并存放于一個50字的grade數(shù)組中，其中g(shù)rade+i保存學(xué)號為1+1的學(xué)生成績。然后根據(jù)grade中的學(xué)生成績，把學(xué)生成績依次填入50字的rank數(shù)組中，其中rank+i的內(nèi)容是學(xué)號為i+1的學(xué)生的名次。再按學(xué)號順序把名次從終端上顯示出來。本題要做的主要工作和例2.2的內(nèi)容是完全一樣的，只是增加了由用戶鍵入學(xué)生成績及輸出學(xué)生名次兩個部分的內(nèi)容，因此這三個部分可以用子程序結(jié)構(gòu)來完成。子程序結(jié)構(gòu)劃分的層次圖如圖2.17所示，可以看出，main為主要模塊，其下一層的三個模塊為程序的三大部分。現(xiàn)將各模塊說明如下

2、：模塊名：main為總模塊輸入：從鍵盤輸入一個班的學(xué)生成績輸出：顯示一個班的學(xué)生成績功能：根據(jù)輸入的學(xué)生成績，計算并顯示學(xué)生名次。算法如下：一個學(xué)生名次等于成績高于該學(xué)生的人數(shù)+1.模塊名：input輸入：以學(xué)號為序型鍵盤輸入一個班的學(xué)生成績。各個成績之間用逗號隔開，最后以回車符號結(jié)束。輸出：把一個班的學(xué)生成績存入grade數(shù)組。功能：接受一個班的學(xué)生成績。調(diào)用子模塊decibin把鍵盤輸入的一個十進制數(shù)轉(zhuǎn)換為二進制數(shù)。調(diào)用子模塊crlf完成回車，換行功能。模塊名：rankp輸入：從grade數(shù)組取得一個班的學(xué)生成績。輸出：以學(xué)號為序計算出該班每個學(xué)生的名次存入rank數(shù)組。功能：計算一個班的

3、學(xué)生成績。算法為：一個學(xué)生的名次等于成績高于該生的學(xué)生人數(shù)加1.4,0模塊名；output輸入：把rank數(shù)組取得一個班的學(xué)生名次。輸出：把一個班的學(xué)生名次以學(xué)號為序在總端上顯示出來。功能：先是一個班的學(xué)生名次。調(diào)用子模塊decibin把鍵盤輸入的一個十進制數(shù)轉(zhuǎn)換為二進制數(shù)。調(diào)用子模塊crlf完成回車，換行功能。5:模塊名：decilin輸入：從鍵盤輸入一個十進制數(shù)。輸出：把該數(shù)轉(zhuǎn)換成二進制數(shù)并存入BX寄存器中功能：從鍵盤輸入一個十進制數(shù)轉(zhuǎn)換成二進制數(shù)并存入BX寄存器中6模塊名：crlf輸出：向終端發(fā)出回車換行符。功能：完成一次回車換行操作。7模塊名：binidec輸入：從BX寄存器取得一個二

4、進制數(shù)。輸出：在終端屏幕顯示一個十進制數(shù)。功能：把BX寄存器中的二進制數(shù)轉(zhuǎn)換為十進制數(shù)，并在終端顯示出來。調(diào)用子模塊DCE_DIV用來作除法運算并顯示字符。8.模塊名：dec_div輸入：從BX寄存器中的二進制數(shù)除以相應(yīng)的十的幕，并在屏幕顯示一位商。余數(shù)保存在BX寄存器中。有了以上的層次圖及模塊說明，對程序的全貌有了基本了解。在圖2.18中，我們給出了除rankp以外的其余各個子程序的程序框圖。Rankp的框圖與圖2.4相同。圖2.19是程序清單，圖2.20是本例的運行情況。;PROGRAMTITLEGOESHEERank*Jdatareasegmentgraderankdw50dupdw50

5、dupcountdw?mess1dbGrade?$mess2db13,10，InputError!,13,10,$mess3dbRank:$datareaends*Jprognamsegmentmainprocfarassumecs:prognam,ds:datareastart:;setupstackforreturnpushdssubax,axpushax;setDSregistertocurrentdatasegmentmovax,datareamovds,ax;MAINPARTOFPROGRAMGOESHEREcallinputcallrankpcalloutputretmainend

6、pinputprocnearleadx,mess1movah,09int21hJmovsi,0movcount,0enter:calldecibininccountcmpdl,jestorecmpdl,13jeexit2jneerrorstore:movgradesi,bxaddsi,2jmpentererror:leadx,mess2movah,09int21hexit2:movgradesi,bxcallcrlfretinputendprankpprocnearmovdi,countmovbx,0Ioop1:movax,gradebxmovwordptrrankbx,0movcx,coun

7、tleasi,gradenext:cmpax,sijgno_countincwordptrrankbxno_count:addsi,2loopnextaddbx,2decdijneloop1retrankpendpoutputprocnearleadx,mess3movah,09int21hJmovsi,0movdi,countnext1:movbx,ranksicallbinidecmovdl,movah,02int21haddsi,2decdijnznext1callcrlfretoutputendpdecibinprocnear;proceduretoconverdecimalonkey

8、bdtobinary.;resultisleftinBXregister.movbx,0;getdigitfromkeyboard,converttobinarynewchar:movah,1int21hmovdl,alsubal,30hjlexit1cmpal,9djgexit1cbw;(digitisnowinAX)multiplynumberinBXby10decimal.xchgax,bxmovcx,10dmulcxxchgax,bx;adddigitinAXtonumberinBXaddbx,axjmpnewcharexit1:retdecibinendpbinidecprocnea

9、r;proceduretoconvertbinarynumberinBXtodecimal;onconsolescreenpushbxpushcxpushsipushdimovcx,100dcalldec_divmovcx,10dcalldec_divmovcx,1dcalldec_divpopdipopsipopcxpopbxretbinidecendpdec_divprocnear;sub_subroutinetodividenumberinBXybnumberinCX;printquotientonscreenmovax,bxmovdx,0divcxmovbx,dxmovdl,al;pr

10、intthecontentsofDLonscreenadddl,30hmovah,02hint21hretdec_divendpcrlfprocnear;printcarriagereturnandlinefeedmovdl,0ahmovah,02hint21h5movdl,0dhmovah,02hint21h5retcrlfendpprognamends*5endstart程序框圖如下：S3實驗截圖如下:G：masmranhNicmsofcOverlayLinkei*Uersion3.fCopyright6我們知道，對于16位整數(shù)而言，及其允許的最大數(shù)是65535,對于NODEC6的數(shù)，移位

11、因子將=10000,該數(shù)已經(jīng)超過機器允許的范圍，因此本例限制NODEC的值必須6則作為溢出處理，此時將輸出值變?yōu)?。NODEC=36此時移位因子SHIFT=(10)Anodec2舍入值A(chǔ)DJUST=2SHIFT例如：輸入工作時間為8.52,工資率為10.25,則乘機為Product=852X1025=873300移位因子為shift=(10)Anodec2舍入值A(chǔ)DJUST=2SHIFT=50作舍入及移位處理(Product+adjust)/shift=(873300+50)/100=8733又如：輸入工作時間為65.245,工資率為8.52則，product=65245X852=555887

12、40SHIFT=(10)A5-2=1000Adjust=500作舍入及移位處理55588740+500/1000=55589240/1000=55589金處理的值只是取得了答案的有效值，并未考錄小數(shù)點的位置，這個問題將會在輸出時得到解決。NODEC=02在這種情況下，乘積的結(jié)果不必做舍入及移位處理，只需記錄NODEC的值，并在輸出顯示是解決小數(shù)點的問題即可在計算時還需啊喲說明一個問題：由于采用整數(shù)運算，要求輸入數(shù)不超過6535,任意輸入數(shù)超過改制就做溢出處理，在這里我們用輸出0來表示。此外，兩個輸入數(shù)的成績可能得到三十二位二進制數(shù)的結(jié)果，這用一般的運算乘法指令就可以得到。對于這樣的雙精度數(shù)作除

13、法運算時，盡管我們已經(jīng)限制shift的值不超過65535，但字運算的出發(fā)指令要求雙精度被除數(shù)和單精度的除數(shù)相除，其結(jié)果應(yīng)該是雙精度的商，否則作為溢出處理。為了避免這種溢出情況的發(fā)生，我們采用以下程序段來作為除法。設(shè)在以下程序段運行前，我們已取得雙精度被除數(shù)在DX:AX中，除數(shù)在shift單元中，除法運算結(jié)果的商在DX,AX中。模塊名：begin為中控制模塊輸入：接受從鍵盤輸入的工作時間hour和工資rate輸出：在屏幕上顯示工資值wage功能：根據(jù)工作時間和工資率計算工資Wage=hour*rate調(diào)用：2:模塊名：Q10SCR功能：清除屏幕3:模塊名：Q20CURS功能：置于光標(biāo)位置4模塊名

14、：B10inpt輸入：接受從鍵盤輸入的以小時為單位的工作時間及工資率輸出：把工作時間緩存HASPAF緩存區(qū)，吧工資率存入ratepar緩沖區(qū)功能：接受從鍵盤輸入的工作時間及工資率，分別存入相應(yīng)的緩存區(qū)中。5模塊名：D10HOUR輸入：從HRSPAR中取出工作時間輸出：把轉(zhuǎn)換為二進制的時間存入BINHRS單元中。功能：調(diào)用子過程M10ASBI把工作時間從ASCLL馬轉(zhuǎn)換為二進制數(shù)。6模塊名：E10RATE輸入：從RATEPA中取出工資率。輸出：把轉(zhuǎn)換為二進制的工資率存入BINRATE單元中。功能：調(diào)用子過程M10ASBI把工資率從ASCL碼轉(zhuǎn)換為二進制數(shù)。7:模塊名：M10ASBI輸入：根據(jù)調(diào)用

15、過程給出的指針以及字符個數(shù)取得一個ASCLL字符竄、輸出：將ASCLL字符竄轉(zhuǎn)換為二進制數(shù)，結(jié)果存放與BINAL單元中功能：把ASCLL字符竄轉(zhuǎn)換為二進制數(shù)。同時記錄輸入的小數(shù)點后的位數(shù)累計在NODEC單元中。&模塊名：F10MULT輸入：從binHRAS中取得工作時間，從BINRAT沖取得工資率。輸出：根據(jù)工作時間及工資率的取值將其結(jié)果存放在DX,AX中功能：把工作時間和工資率的成績經(jīng)過舍入和移位處理后得到的二進制工資值存放在DX.:AX中。9模塊名：G10WAGE輸入：DX,AX中的二進制工資數(shù)以及NODEC單元中的小數(shù)點后的位數(shù)輸出：把二進制的工資數(shù)轉(zhuǎn)換為ASCLL碼存放在ASCWAGE

16、為首地址的字符竄當(dāng)中功能：10模塊名輸入：ASCWAG中的字符竄輸出：把字符竄在屏幕上顯示出來功能：顯示工資數(shù);PROGRAMTITLEGOESHERE-SCREMP;Enterhours&rate,displaywage*Jstacksgsegmentparastackstackdw32dup(?)stacksgends*Jdatasgsegmentparadatahrsparlabelbyte;Hoursparameterlist;maxhlendb6acthlendb?hrsflddb6dup(?)rateparlabelbyte;rateparameterlist;maxrlendb6

17、actrlendb?rateflddb6dupmessg1dbHoursworked?,$messg2dbRateofpay?,$messg3dbWage=ascwagedb14dup(30h),13,10,$messg4db13,10,0verflow!,13,10,$adjustdw?binvaldw0binhrsdw0binratedw0coldb0decinddb0mult10dw01nodecdw0rowdb3shiftdw?tenwddw10tempdxdw?tempaxdw?datasgends.*Jcodesgsegmentparacodebeginprocfar;mainpa

18、rtofprogramassumecs:codesg,ds:datasg,ss:stacksg,es:datasg;setupstackforreturnpushdssubax,axpushax;setDSregistertocurrentdatasegmentmovax,datasgmovds,axmoves,ax;mainpartofprogramgoesheremovax,0600h;CALLDISPcallq10scrcallq20cursa20loop:callb10inptcmpacthlen,0jea30calld10hourcalle10ratecallf10multcallg

19、10wagecallk10dispjmpa20loopa30:;calltimedatemovax,0600hcallq10scrretbeginendp;Inputhours&rateJb10inptprocnearleadx,messg1movah,09hint21hleadx,hrsparmovah,0ahint21hcmpacthlen,0jneb20retb20:movcol,25callq20cursleadx,messg2movah,09hint21hleadx,rateparmovah,0ahint21hretb10inptendp;Processhours:dIOhourpr

20、ocnearmovnodec,0movcl,acthlensubch,chleasi,hrsfld-1addsi,cxcallmIOasbimovax,binvalmovbinhrs,axretdIOhourendp;Processrate:elOrateprocnearmovcl,actrlensubch,chleasi,ratefld-1addsi,cxcallm10asbimovax,binvalmovbinrate,axrete10rateendp;Multiply,round,&shiftf10multprocnearmovcx,07leadi,ascwagemovax,3030hc

21、ldrepstoswmovshift,10movadjust,0movcx,nodeccmpcl,06jaf40deccxdeccxjlef30movnodec,02movax,01f20:multenwdloopf20movshift,axshrax,1movadjust,axf30:movax,binhrsmulbinrateaddax,adjustadcdx,0movtempdx,dxmovtempax,axJcmpadjust,0jzf50Jmovax,dxmovdx,0divshiftmovtempdx,axmovax,tempaxdivshiftmovdx,tempdxmovtem

22、pax,axjmpf50Jf40:movax,0movdx,0f50:retf10multendp;ConverttoASCg10wageprocnearleasi,ascwage+11movbyteptrsi,.addsi,nodecg30:cmpbyteptrsi,.jneg35decsig35:cmpdx,0jnzg40cmpax,0010jbg50g40:movax,dxmovdx,0divtenwdmovtempdx,axmovax,tempaxdivtenwdmovtempax,axordl,30hmovsi,dldecsimovdx,tempdxjmpg30g50:oral,30

23、hmovsi,alretg10wageendp;Displaywagek10dispprocnearmovcol,50callq20cursmovcx,10leasi,ascwagek20:cmpbyteptrsi,30hjnek30movbyteptrsi,20hincsiloopk20k30:leadx,messg3movah,09int21hcmprow,20jaek80incrowjmpk90k80:movax,0601hcallqlOscrmovcol,0callq20cursk90:retk10dispendp;ConvertASCtobinarym10asbiprocnearmo

24、vmult10,01movbinval,0movdecind,0subbx,bxm20:moval,sicmpal,.jnem40movdecind,01jmpm90m40:andax,000fhmulmult10jcoverflowaddbinval,axjcoverflowmovax,mult10multenwdmovmult10,axcmpdecind,0jnzm90incbxm90:decsiloopm20cmpdecind,0jzm100addnodec,bxjmpm100overflow:movbinval,0m100:retmIOasbiendp;ScrollscreenqlOs

25、crprocnearmovbh,07subcx,cxmovdx,184fhint10hretq10screndp;Setcursorq20cursprocnearmovah,2subbh,bhmovdh,rowmovdl,colint10hretq20cursendpcodesgendsendbegin該部分的程序框圖如下:1RE|G和NbnIWATT實驗截圖如下:I-丿I5Di、onnBL#實驗總結(jié)：在進行接受用戶工作時間及工資率的時候必須先畫好結(jié)構(gòu)框圖，避免出現(xiàn)前后不對應(yīng)的情況，字的除法運算指令要求雙精度的被除數(shù)和單精度的除數(shù)相處，結(jié)果應(yīng)該是單精度的商。2.8HAN0I塔題編寫HAN0塔的

26、程序，在這個謎題中，A軸自下而上的疊有大小逐漸見效的N的盤子，現(xiàn)在要求把它們都移到C軸上并保持原來的秩序。移動時允許把盤子暫時存放在B軸但必須遵循以下規(guī)則：1:一次只能有一個盤子從一個軸移動打另外一個軸2：一個盤子不能放在比他小的盤子上面。這是一個經(jīng)典的遞歸子程序的例子。我們用N表示盤子數(shù)，并從小到大把盤子編號為1,2,3,。No用X,Y,Z，表示起始軸，宗建洲和最終軸。用UVI表示第I個盤子從U軸移動到V軸，V可以是X,Y,Z，中的任意一個軸基數(shù)：HANOI(1,X,Y,Z)顯示X1Z歸納步驟：HANOI(N,X,Y,Z)(N1)做以下三步1執(zhí)行HANOI(N-1,X,Z,Y)2顯示XNZ3

27、執(zhí)行HANOI(N-1,X,Y,Z)根據(jù)這一算法可以分析出HANO的執(zhí)行過程如圖所示1模塊名：main為總控制塊輸入：接受從鍵盤輸入的盤子數(shù)N及起始中間和最終軸名，存放在BX,CX,SI，DI，寄存器當(dāng)中。輸出：以UIV形式，順序顯示出盤子的移動辦法功能：用遞歸計算并顯示出HANO的移動辦法基數(shù)：HANOI(1,X,Y,Z)顯示XIZ歸納步驟：HANOI(N,X,Y,Z,)(N-1)執(zhí)行HANOI(N-1,X,Z,Y)顯示XNZ執(zhí)行HANOI(N-1,Y,X,Z)調(diào)用子程序接受盤子數(shù)調(diào)用子程序?qū)崿F(xiàn)回車，換行功能2模塊名：decibin輸入：鍵盤接受盤子數(shù)N輸出：把轉(zhuǎn)換為二進制的N值存入BX寄存

28、器當(dāng)中。功能：把從鍵盤接受的十進制裝換為二進制數(shù)并存入BX寄存器當(dāng)中3:模塊名：HANOI輸入：從BX寄存器中取得盤子數(shù)N輸出：顯示盤子的移動辦法功能：用遞歸算法計算并顯示HANO的結(jié)果4模塊名：CTRF功能：顯示回車，換行5:模塊名：save功能：保存NX,Y,Z,入站6:模塊名：restore功能：恢復(fù)N,X,Y,Z7:模塊名：PRINT功能：顯示XNZ調(diào)用子程序BINIDEC把N值從二進制轉(zhuǎn)換為十進制并在屏幕上顯示出來調(diào)用子程序CRLF回車換行&模塊名：BINIDEC輸入：從BX寄存器中取得N值輸出：把N值以是十進制形式在屏幕上顯示出來功能：把BX中的二進制N值轉(zhuǎn)換為十進制形式，并在屏幕

29、上顯示出來。源程序如下:*Jdatareasegmentmessage1dbN=?,0ah,0dh,$message2dbWhatisthenameofspindleX?db0ah,0dh,$message3dbWhatisthenameofspindleY?db0ah,0dh,$message4dbWhatisthenameifspindleZ?db0ah,0dh,$flagdw0constantdw10000,1000,100,10,1datareaends.*Jprognamsegmentmainprocfarassumecs:prognam,ds:datareastart:;setup

30、stackforreturnpushdssubax,axpushax;setDSregistertocurrentdatasegmentmovax,datareamovds,ax;mainpartofprogramgoeshereleadx,message1movah,09hint21hcalldecibincallcrlfJcmpbx,0jzexitJleadx,message2movah,09hint21hmovah,01hint21hmovah,0movcx,axcallcrlfJleadx,message3movah,09hint21hmovah,01hint21hmovah,0mov

31、si,axcallcrlfJleadx,message4movah,09hint21hmovah,O1hint21hmovah,0movdi,axcallcrlfJcallhanoiJexit:ret;returntoDOSJmainendphanoiprocnear;definesubprocedure;SolvestowerofHANOIpuzzle;Argement:(BX)=N,(CX)=X,(SI)=Y,(DI)=Zcmpbx,1jebasiscallsavedecbxxchgsi,dicallhanoicallrestorcallprintdecbxxchgcx,sicallhan

32、oijmpreturnbasis:callprintreturn:rethanoiendpprintprocnear;printxnzmovdx,cxmovah,02hint21hcallbinidecmovdx,dimovah,02hint21hcallcrlfretprintendpsaveprocnear;pushN,X,Y,Zontostackpopbppushbxpushcxpushsipushdipushbpretsaveendprestorprocnearpopbppopdipopsipopcxpopbxpushbpretrestorendpdecibinprocnearmovb

33、x,0newchar:movah,1int21hsubal,30hjlexit1cmpal,9djgexit1cbwxchgax,bxmovcx,10dmulcxxchgax,bxJaddbx,axjmpnewcharexit1:retdecibinendpbinidecprocnearpushbxpushcxpushsipushdimovflag,0movcx,5leasi,constantJdec_div:movax,bxmovdx,0divwordptrsimovbx,dxmovdl,alJcmpflag,0jnzprint1cmpdl,0jeskipmovflag,1;printthe

34、contetsofDLonscreenprint1:adddl,30hmovah,02hint21hskip:addsi,2loopdec_divpopdipopsipopcxpopbxretbinidecendpcrlfprocnear;printcarriagereturnandlinefeedmovdl,0ahmovah,02hint21hJmovdl,0dhmovah,02hint21hretcrlfendpprognamends.*Jendstart實驗結(jié)構(gòu)框圖如下：實驗截圖如下:賈命令提示符|c：C：masnHanoiMicrosoftRMacroAssemblerUersion5

35、.00CopyrightMicrosoftCorp1981-1985,1987.Allrightsreserved.ObjectfilenaneHanoi.OBJ-SourcelistingNUL.LST:Cross-referenceNULCRF:50390415594Bytessymbolspacefree0WarningErrors0SevereErrorsC：linkhanoiMicrosoftOverlayLinkerUersion3.60CopyrightMicrosoftCorp1983-198?.Allrightsreserved.RunFile(HANOI.EXE：Li?tF

36、ileNULHAP=Libraries.LIB：LINK:warningL4021:nostacksegnent藥命令提示符CopyrightMicrosoftCorp1983-198?.Allrightsreserved.RunFileHANOI.EXE：ListFileNUL.MAP：Libraries(.LIBI：ILINK:viarningL4021:nostacksegmentCN3wAwBwCAacABBAc71ianOliat1stiIdt1st：iatistnaneofspindleX?naneofspindleY?naneifspindleZ?)eCBBCACC1213121

37、-iDlxlthenaneofspindleX?thenaneofspindleY?thenaneifspindleZ?isBCCBABBCCAACBCCN=4vnAMBwcn1A2B1A3C1C2A1A4B1B2C1B3A1A2B1金令提示符,|q|x|頁命令提示符-debughanoi.exeBICC：debughanoi.exe-g59N-?3WhatisthenaneofspindleX?Whatbisthenameofspindle?WliatisthenaneifspindleZ?AX=020DBX=0003DS-140AES=13FA1412:005983FB01-dla04：f

38、fe01A04：FFE0EE3A1A04：FFF00001CX=0061DX=000DSP=FFFASS=140ACS=1412IP=0059CMPBX,*01000011000000-010000EE3A00001100-000001BP=0000SI=0062DI=0063NUUPElPLNZNAPENC00000084000000000000AX=020DBX=0003IDS=140AES=13FA1412：005C7418CX=006iDX=000DSP=FFFASS=140ACS=1412IP=005CJZ00?6BP=0000SI=0062DI=0063NUUPElPLNZNAPO

39、NC,|q|x|ca命令捺示符一debughanoi.exe1412：005C?418JZ00?6AX=020DBX=0003DS-140AES-13FA1412：005EE82C00-PCX=0061DX=000DSP=FFFASS-140ACS-1412IP=005ECALL008DBP=0000SI=0062DI=0063NUUPElPLNZNAPONCAX=020DBX=0003DS-140AES-13FA1412:00614B-dla04：ffe01A04：FFE0EE3A1A04：FFF00001CX=0061DX=000DSS-140ACS-1412DECBX000011EE3A

40、00SP=FFF2IP-0061BP=0061SI=0062DI=0063NUUPElPLNZNAPONC000000-010000001100-00000100000084000000000000AX=020DBX=0002DS=140AES=13FA1412:00628?F?CX=0061DX=000DSP=FFF2SS=140ACS=1412IP=0062XCHGSUDIBP=0061SI=0062DI=0063NUUPElPLNZNAPONCAX=020DBX=0002DS=140AES=13FA1412:0064E8F2FFCX=006iDX=000DSP=FFF2SS=140ACS=1412IP=0064CALL00S9BP=0061S1=0063DI=0062NUUPElPLNZNAPONC頁金令提不符debu(hanoi.exeC：debughanoi.exe3WhatisthenaneofspindleX?Whatisthenaneofspindle?WhatisthenaneifspindleZ?BX=0003ES-13FAAX=0063IDS-140A1412:00508BF8-dla04：ffe0CX=0061DX=0048SP=FFFCSS-140ACS-1412IP=00