实验报告子程序设计实验

1、实验5子程序实验一. 实验目的1 掌握主程序与子程序之间的调用关系及调用方法；2掌握子程序调用过程中近程调用与远程调用的区别；3掌握通过堆栈转送参数的方法。4.掌握多模块程序设计方法二. 实验内容1.将BUF开始的10个单元中的二进制数转换成两位十六进制数的ASCIl码，在屏幕上显示出来。要求码型转换通过子程序HEXAC实现,在转换过程中，通过子程序 DISP实现显示。DATAS SEGMENTBUF DB 00000111B,00100001B,00100010B,00000011B,00000101B,10000010B,10010011B,00100100B, 11100010B,010

2、10010BCAN DB $-BUF；定义常量 CANDATAS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATASMAIN PROC FAR;主程序块START:MOVAX,DATASMOVDS,AXMOVCL,10LEASI,BUFLOOP1:;调用子程序语句Call HEXACCall DISPDEC CANJNZ LOOP1EXIT:MOV AH,4CHINT 21HMAIN ENDP;二进制转换成十六进制子程序HEXAC PROC NEARMOV BL,SIINC SIRETHEXAC ENDPDlSP PRoC NEAR；显示子程序MOV CL,4M

3、OV CH,2MOVE:;移位语句ROL BL,CLMOV DL,BLAND DL,0FHADD DL,30HCMP DL,9JBE PRINTADD DL,07HPRINT:MOV AH,02H;显示语句INT 21HDEC CHJNZ MOVEMOV DL,MOV AH,02HINT 21HRETDISP ENDPCODES ENDSEND STARTD = SmaSH5 .01 -exe07 21 22 03 05 82 93 24 E2 S22 编写一个主程序，从键盘接收若干个字符，然后用远调用的方法，调用子程序统计字符 串中字符的个数子程序的参数是字符串的首地址TABLE,字符串长度

4、 N及字符” b子程序返回字符b”的个数参数传送采用堆栈实现主程序在子程序返回后，显示字符” b及其个 数(设为一位十六进制数)。DATA SEGMENTSTR1 DB Oah,Odh,PLEASE INPUT YOUR STRING:$ STR2 DB 0ah,0dh,THE NUMBER OF b is:$ TABLE DB 50, ? ,50 DUP(?),$DATA ENDSCODE SEGMENTASSUME CS: CODE, DS: DATASTART:MOVAX,DATAMOVDS,AXLEADX,STR1MOVAH,9INT21HLEADX,TABLEMOVAH,0AHINT

5、21HLEASI , TABLEMOVCL, SI+1MOVCH, 0INCSIINCSIMOVAL,bMOVAH,0PUSHSIPUSHCXPUSHAXCALLFAR PTR CHECKPOPAXMOVCL,ALLEADX,STR2MOVAH,9INT21HMOVDL,CLANDDL, 0FHCMPDL,9JBECANADDDL,7ADDDL,30HMOVAH,2INT21HMOVAH,4CHINT21HENDSSEGMENTASSUMECS:SCODEPROCFARPUSHBPMOVBP,SPMOVSI,BP+10MOVCX, BP+8MOVAX, BP+6XORAH, AHCMPAL,S

6、IJNECAN1INCAHCAN:EXIT:CoDESCoDECHECKAGAIN:CAN1:INC SlLooP AGAINMoVAL, AHMOVBP+10,AXPOPBPRET4CHECK ENDPSCODE ENDSEND STARTPLEfiSE INPUT VoUFl STRlNG = ehbuIhfbda,Eh THE NIIHRFR OF h is詞3请编写一个程序来实现简单的程序菜单显示。(采用多模块程序设计方法)显示一个菜单要求用户从下表中选择：(1)HEXAC GAME(对应程序1)(2)CHAR STATISTICS PROGRAM(对应程序2)(3)PRESS “ E

7、SC”TO QUIT用户作出选择13时，显示输出要执行操作的名字，如YoUr SeleCtion is 1,the ProgramWill execute HEXAC NUMBER GAME!”然后转向相应的程序去执行，执行结束前进行退出的判断，显示一个提示信息will you ContinUe PrOgram really ？ (Y:N) ”要求用户从键盘键入字符，若是“ Y”键，则继续程序的执行，若是“ N”键，则返回到菜单。若用户选择3,要求程序显示提示信息PIeaSe PreSS ESC key to exit!” ,并能按要求正确退出。DATAS SEGMENTOPT DW YIDW

8、 ERmenu DB ODH,OAH,THE MENU:;显示菜单DB 0DH,0AH,(1)HEXAC GAME;对应一一 程序 1DB 0DH,0AH,(2)CHARSTATISTICS PROGRAM;对应 程序2DB 0DH,0AH,(3)PRESS ESC TO QUIT$BUFDB00000111B,00100001B,00100010B,00000011B,00000101B,10000010B,10010011B,00100100B,11100010B,01010010BCANDB $-BUF；定义常量 CANstr1 DB 0DH,0AH,Your SeIeCtiO n is

9、 1,the PrOgram will execute HEXAC GAME!$str2 DB 0dh,0ah,Your SeIeCtiOn is 2,the PrOgram will execute CHARSTATISTICS PROGRAM!$str3 DB 0DH,0AH,will you ContinUe PrOgram really?(Y:N)$str4 DB 0DH,0AH,Please PreSS ESC key to exit!$TABLE DB 50, ? ,50 DUP(?),$Char1 db 0ah,0dh,PLEASE INPUT YOUR STRING:$Char

10、2 db 0ah,0dh,THE NUMBER OF b is:$DATAS ENDSCODES SEGMENTMAIN PROC FARASSUME CS:CODES,DS:DATASSTART:MOVAX,DATASMOVDS,AXXORDI,DISUbbx,bxXorsi,siLEADX,me nu;显示主采单MOVAH,9INT21Hmovdl,0dh;显示回车movah,2int21hMOVDL,0AH;显示换行MOVAH,2INT21HMOVAH,1;输入选项INT21HCMPAL,1JEYICMPAL,2JEERCMPAL,3JEQUITYI:MOVDI,0Ieadx,str1m

11、ovah,9int21hMOVCL,10LEASI,BUFCALLHEXACLOOP1:；调用子程序语句callHEXACcallDISPDECCANJNZLOOP1JMPCONTINUEER:MOVDI,02Hleadx,str2movah,9int21hLEADX,char1MOVAH,9INT21HLEADX,TABLEMoVAH,0AHINT21HLEASI , TABLEMOVCL, SI+1MOVCH, 0INCSIINCSIMOVAL,bMOVAH,0PUSHSIPUSHCXPUSHAXCALLCHECKPOPAXMOVCL,ALLEADX,char2MOVAH,9INT21HM

12、OVDL,CLANDDL, 0FHCMPDL,9JBECAN3ADDDL,7CAN3:ADDDL,30HMOVAH,2INT21HJMPCONTINUEQUIT:LEADX,str4MOVAH,9INT21HMOVAH,1INT21HCMPAL,1BHJEEXITCONTINUE:LEADX,str3MOVAH,9INT21HMOVAH,1INT21HCMPAL,YJEYES;输入字符串；CX中为字符串长度；Sl指向串首址TABLE；AX中为待查字符；参数送堆栈；统计个数在AL中；显示结果；显示统计个数；退出的子程序；按ESC退出；用户是否继续执行当前程序；按y继续，按n退出，不需区分大小写C

13、MPAL,yJEYESCMPAL,NJESTARTCMPAL, nJESTARTYES:JMPoptDIEXIT:MOVAH,4CH;退出INT21HMAIN ENDP;继续运行当前子程序CoDES ENDSHEXACCoDES SEGMENTASSUME CS:HEXACCODES HEXAC PROC FARMOV BL,SIINC SIRETHEXAC ENDPHEXACCODES ENDSDISPCODES SEGMENTASSUME CS:DISPCODESDISP PROC FAR；二进制转换成十六进制子程序MOVMOVCL,4CH,2MOVE:ROLBL,CLMOVDL,BLAN

14、DDL,0FHADDDL,30HCMPDL,9JBEPRINTADDDL,07HPRINT:MOVAH,02HINT21HDECCHJNZMOVEMOVDL,MOVAH,02HINT21HRET;显示子程序;移位语句;显示语句DlSP ENDPDlSPCoDES ENDSCHARCoDE SEGMENTASSUME CS: CHARCODE；子程序部分CHECK PROC FARPUSHBPMOVBP,SPMOVSI,BP+10MOVCX, BP+8MOVAX, BP+6XORAH, AHAGAIN:CMPAL,SIJNE CAN1INCAHCAN1:INCSILOOP AGAINMOVAL,

15、 AHMOVBP+10,AXPOPBPRET4CHECK ENDPCHARCODE ENDSEND STARTTME HEMtnHbXHC GfiHE(2CHftH STATISTICS PRoGRflPRtS *ESC,* To QUEI1VOllr SF IECt i IS 1 ,t lie PrOgrdn WiIl execute HEXAC GAnEt21 25 03 咅5 S2 93t 24 E： 52 01UiLI you COnC iuc PrCyMn Feal1 ?YTHE MFNtUHEXAC GArlECHAH STftTISTlcS PHOGAAMaPBESS dTSC

16、To QUIT2VlDUr eion i甲 2FthC prrdR WilI CKECUtC OtAR STATISTICS PRoGRMPLFASF IHPl)T 0iR STRlHGiMbfhhhhsrijfhTME NUMBtR OF h is=Wiil VaU CUntinUe IPrCyrcall)7V =H)THE HKNtl:HEXAC GAHECHftR STATISTlCS FTOGHfiHPRFSS -ESC TO QUtT3卩】UEUH nff：; ESG kc v t_ti xitF一C1HEXAC GAtlEJ)CMH ETfiTISTieS PROCBflrtOPP

17、RESS i,ESC,* TO QUITlQUr s1c1o is IthV PrGJJr*m WiII execute HEXAC GANE21 22 阳3 2 93 252 OaMlIL j/vu Ct InUE preyram rvallyTV :HnHE HENUiC1HEXAC GAHEPHESS ESC1* TO QUIT*ur 3flIACtiOn Li Rtbc prorfln WilI execute QlAR STATISTICS PROGRAH? PLFftSF IHPUT VOnF STKfHG:Mbfhhbb=djfhHE HIJnBER OF b icz1L you

18、 GOfltinDICrn *JLlyTlt聲：FHE HEMJ =C1HEXC GArlEuchh Etatistics PRQGHfiH3)PRESS i,ESC1i Jo QUn三. 实验要求1. 第一个实验程序用子程序的近程调用实现。由于在调用HEXASC子程序时，子程序又调用了 DISP子程序，这叫子程序的嵌套调用。实验过程中可以从堆栈的内容看到两个子 程序的返回地址值。 由于是近调用，地址值只包括返回地址的段内偏移量。在每个子程序的执行中，检查CS值是不变的。2第二个程序是利用远调用的方法调用子程序的。在远调用情况下，主程序与子程序 处在不同的逻辑代码段中，可在子程序执行中查看 CS值，它与主程序中的 CS值是不同的。子程序调用后，堆栈中保留了返回地址的段地址及段内偏移量。3. 第二个程序中，主程序与子程序之间参数的传送是由堆栈实现的。一段是将参数（此 处是串首址TABLE ,串的长度N及待统计的字符“ b”）顺序压如堆栈，在子程序调用后