------------------------------------------------------------------------實驗報告子程序設(shè)計實驗實驗5子程序?qū)嶒炓唬畬嶒災(zāi)康?．掌握主程序與子程序之間的調(diào)用關(guān)系及調(diào)用方法；2．掌握子程序調(diào)用過程中近程調(diào)用與遠(yuǎn)程調(diào)用的區(qū)別；3．掌握通過堆棧轉(zhuǎn)送參數(shù)的方法。4.掌握多模塊程序設(shè)計方法二．實驗內(nèi)容1．將BUF開始的10個單元中的二進(jìn)制數(shù)轉(zhuǎn)換成兩位十六進(jìn)制數(shù)的ASCII碼，在屏幕上顯示出來。要求碼型轉(zhuǎn)換通過子程序HEXAC實現(xiàn),在轉(zhuǎn)換過程中,通過子程序DISP實現(xiàn)顯示。DATASSEGMENT BUFDB00000111B,00100001B,00100010B,00000011B,00000101B,10000010B,10010011B,00100100B,11100010B,01010010BCANDB$-BUF;定義常量CANDATASENDSCODESSEGMENTASSUMECS:CODES,DS:DATASMAINPROCFAR;主程序塊START:MOVAX,DATASMOVDS,AXMOVCL,10LEASI,BUFLOOP1:;調(diào)用子程序語句callHEXACcallDISPDECCANJNZLOOP1EXIT:MOVAH,4CHINT21HMAINENDPHEXACPROCNEAR;二進(jìn)制轉(zhuǎn)換成十六進(jìn)制子程序MOVBL,[SI]INCSIRETHEXACENDPDISPPROCNEAR;顯示子程序MOVCL,4MOVCH,2MOVE:;移位語句ROLBL,CLMOVDL,BLANDDL,0FHADDDL,30HCMPDL,'9'JBEPRINTADDDL,07HPRINT:MOVAH,02H;顯示語句INT21HDECCHJNZMOVEMOVDL,''MOVAH,02HINT21HRETDISPENDPCODESENDSENDSTART2．編寫一個主程序,從鍵盤接收若干個字符,然后用遠(yuǎn)調(diào)用的方法,調(diào)用子程序統(tǒng)計字符串中字符’b’的個數(shù).子程序的參數(shù)是字符串的首地址TABLE,字符串長度N及字符”b”.子程序返回字符＂b”的個數(shù).參數(shù)傳送采用堆棧實現(xiàn).主程序在子程序返回后,顯示字符”b”及其個數(shù)(設(shè)為一位十六進(jìn)制數(shù))。DATASEGMENTSTR1DB0ah,0dh,'PLEASEINPUTYOURSTRING:$'STR2DB0ah,0dh,'THENUMBEROFbis:$'TABLEDB50,?,50DUP(?),'$'DATAENDSCODESEGMENTASSUMECS:CODE,DS:DATASTART:MOVAX,DATAMOVDS,AXLEADX,STR1MOVAH,9INT21HLEADX,TABLEMOVAH,0AHINT21HLEASI,TABLEMOVCL,[SI+1]MOVCH,0INCSIINCSIMOVAL,'b'MOVAH,0PUSHSIPUSHCXPUSHAXCALLFARPTRCHECKPOPAXMOVCL,ALLEADX,STR2MOVAH,9INT21HMOVDL,CLANDDL,0FHCMPDL,9JBECANADDDL,7CAN:ADDDL,30HMOVAH,2INT21HEXIT:MOVAH,4CHINT21HCODEENDSSCODESEGMENTASSUMECS:SCODECHECKPROCFARPUSHBPMOVBP,SPMOVSI,[BP+10]MOVCX,[BP+8]MOVAX,[BP+6]XORAH,AHAGAIN:CMPAL,[SI]JNECAN1INCAHCAN1:INCSILOOPAGAINMOVAL,AHMOV[BP+10],AXPOPBPRET4CHECKENDPSCODEENDSENDSTART3.請編寫一個程序來實現(xiàn)簡單的程序菜單顯示。(采用多模塊程序設(shè)計方法)顯示一個菜單要求用戶從下表中選擇：（1） HEXACGAME（對應(yīng)－－>程序1）（2） CHARSTATISTICSPROGRAM（對應(yīng)－－>程序２）（3） PRESS“ESC”TOQUIT用戶作出選擇1~3時，顯示輸出要執(zhí)行操作的名字，如“Yourselectionis1,theprogramwillexecuteHEXACNUMBERGAME!”然后轉(zhuǎn)向相應(yīng)的程序去執(zhí)行，執(zhí)行結(jié)束前進(jìn)行退出的判斷，顯示一個提示信息“willyoucontinueprogramreally？(Y:N)”要求用戶從鍵盤鍵入字符，若是“Y”鍵，則繼續(xù)程序的執(zhí)行,若是“N”鍵，則返回到菜單。若用戶選擇3，要求程序顯示提示信息“PleasepressESCkeytoexit!”,并能按要求正確退出。DATASSEGMENT OPTDWYI DWERmenuDB0DH,0AH,'THEMENU:';顯示菜單DB0DH,0AH,'(1)HEXACGAME';對應(yīng)－－>程序1 DB0DH,0AH,'(2)CHARSTATISTICSPROGRAM';對應(yīng)－－>程序２ DB0DH,0AH,'(3)PRESS"ESC"TOQUIT$' BUFDB00000111B,00100001B,00100010B,00000011B,00000101B,10000010B,10010011B,00100100B,11100010B,01010010BCANDB$-BUF;定義常量CANstr1DB0DH,0AH,'Yourselectionis1,theprogramwillexecuteHEXACGAME!$'str2DB0dh,0ah,'Yourselectionis2,theprogramwillexecuteCHARSTATISTICSPROGRAM!$'str3DB0DH,0AH,'willyoucontinueprogramreally?(Y:N)$'str4DB0DH,0AH,'PleasepressESCkeytoexit!$'TABLEDB50,?,50DUP(?),'$'char1db0ah,0dh,'PLEASEINPUTYOURSTRING:$'char2db0ah,0dh,'THENUMBEROFbis:$'DATASENDSCODESSEGMENTMAINPROCFARASSUMECS:CODES,DS:DATASSTART:MOVAX,DATASMOVDS,AXXORDI,DIsubbx,bxxorsi,siLEADX,menu;顯示主菜單MOVAH,9INT21Hmovdl,0dh;顯示回車movah,2int21hMOVDL,0AH;顯示換行MOVAH,2INT21HMOVAH,1;輸入選項INT21HCMPAL,'1'JEYICMPAL,'2'JEERCMPAL,'3'JEQUITYI:MOVDI,0leadx,str1movah,9int21hMOVCL,10LEASI,BUFCALLHEXACLOOP1:;調(diào)用子程序語句callHEXACcallDISPDECCANJNZLOOP1JMPCONTINUEER:MOVDI,02Hleadx,str2movah,9int21hLEADX,char1MOVAH,9INT21HLEADX,TABLEMOVAH,0AH;輸入字符串INT21HLEASI,TABLEMOVCL,[SI+1]MOVCH,0;CX中為字符串長度INCSIINCSI;SI指向串首址TABLEMOVAL,'b'MOVAH,0;AX中為待查字符PUSHSIPUSHCXPUSHAX;參數(shù)送堆棧CALLCHECKPOPAX;統(tǒng)計個數(shù)在AL中MOVCL,ALLEADX,char2;顯示結(jié)果MOVAH,9INT21HMOVDL,CLANDDL,0FHCMPDL,9JBECAN3ADDDL,7CAN3:ADDDL,30HMOVAH,2INT21H;顯示統(tǒng)計個數(shù)JMPCONTINUEQUIT:LEADX,str4;退出的子程序MOVAH,9INT21HMOVAH,1INT21HCMPAL,1BH;按ESC退出JEEXITCONTINUE:LEADX,str3;用戶是否繼續(xù)執(zhí)行當(dāng)前程序MOVAH,9INT21HMOVAH,1INT21HCMPAL,'Y';按y繼續(xù)，按n退出，不需區(qū)分大小寫JEYESCMPAL,'y'JEYESCMPAL,'N'JESTARTCMPAL,'n'JESTARTYES:JMPopt[DI];繼續(xù)運行當(dāng)前子程序EXIT:MOVAH,4CH;退出INT21HMAINENDPCODESENDSHEXACCODESSEGMENTASSUMECS:HEXACCODESHEXACPROCFAR;二進(jìn)制轉(zhuǎn)換成十六進(jìn)制子程序MOVBL,[SI]INCSIRETHEXACENDPHEXACCODESENDSDISPCODESSEGMENTASSUMECS:DISPCODESDISPPROCFAR;顯示子程序MOVCL,4MOVCH,2MOVE:;移位語句ROLBL,CLMOVDL,BLANDDL,0FHADDDL,30HCMPDL,'9'JBEPRINTADDDL,07HPRINT:MOVAH,02H;顯示語句INT21HDECCHJNZMOVEMOVDL,''MOVAH,02HINT21HRETDISPENDPDISPCODESENDSCHARCODESEGMENTASSUMECS:CHARCODE;子程序部分CHECKPROCFARPUSHBPMOVBP,SPMOVSI,[BP+10]MOVCX,[BP+8]MOVAX,[BP+6]XORAH,AHAGAIN:CMPAL,[SI]JNECAN1INCAHCAN1:INCSILOOPAGAINMOVAL,AHMOV[BP+10],AXPOPBPRET4CHECKENDPCHARCODEENDSENDSTART三．實驗要求1．第一個實驗程序用子程序的近程調(diào)用實現(xiàn)。由于在調(diào)用HEXASC子程序時，子程序又