一些简单的汇编程序教学资料

一些简单的汇编程序精品资料1.编制程序计算S=1+2+3+4++N直MOVAH,2MOVDL,0AH到和大于500为止，并将结果在屏幕INT21HMOVAX,SUM上显示出来（N的值和最终的和的CWDMOVBX,100值）。DIVBXMOVCX,DXDATASEGMENTADDAL,30HNDW?MOVDL,ALSUMDW?MOVAH,2DATAENDSINT21HCODESEGMENTMOVBL,10ASSUMECS:CODE,DS:DATAMOVAX,CXSTART:DIVBLMOVAX,DATAMOVCL,AHMOVDS,AXMOVAH,2MOVAX,0ADDAL,30HMOVBL,0MOVDL,ALE1:INCBLINT21HADDAX,BXCMPAX,500MOVAH,2JBEE1ADDCL,30HMOV[N],BXMOVDL,CLMOV[SUM],AXINT21HE2:MOVAH,4CHMOVAX,BXINT21HMOVBL,10CODEENDSDIVBLENDSTARTADDAL,30H2.从键盘输入学生成绩（ A、B、C、MOVDL,ALMOVCL,AHD），自动汇总并显示各类分数的人MOVAH,2INT21H数。按下$键则停止输入；若按下A、ADDCL,30HB、C、D之外的键则提示“INPUTMOV DL,CLMOVAH,2ERROR”信息。INT21HDATASEGMENT仅供学习与交流，如有侵权请联系网站删除 谢谢2精品资料M1DB'PleaseinputCMPAH,ALA,B,C,D:',13,10,'$'JNZE4M2DB13,10,'Inputerror!INCCL',13,10,'$'JMPE1M3DB13,10,'ThenumberofAE4:is:$'MOVAH,44HM4DB13,10,'ThenumberofBCMPAH,ALis:$'JNZE5M5DB13,10,'ThenumberofCINCCHis:$'JMPE1M6DB13,10,'ThenumberofDE5:is:$'MOVAH,24HCMPAH,ALDATAENDSJZE6STACKSEGMENTMOVAH,9MOVDX,OFFSETM2STACKENDSINT21HCODESEGMENTJMPE1ASSUMEE6:CS:CODE,DS:DATA,SS:STACKMOVAH,9START:MOVDX,OFFSETM3MOVAX,DATAINT21HMOVDS,AXMOVAH,2MOVAH,9ADCBL,30HMOVDX,OFFSETM1MOVDL,BLINT21HINT21HMOVBX,0MOVAH,9MOVCX,0MOVDX,OFFSETM4E1:INT21HMOVAH,1MOVAH,2INT21HADCBH,30HMOVAH,41HMOVDL,BHCMPAL,AHINT21HJNZE2MOVAH,9INCBLMOVDX,OFFSETM5JMPE1INT21HE2:MOVAH,2MOVAH,42HADCCL,30HCMPAH,ALMOVDL,CLJNZE3INT21HINCBHMOVAH,9JMPE1MOVDX,OFFSETM6E3:INT21HMOVAH,43HMOVAH,2仅供学习与交流，如有侵权请联系网站删除 谢谢3精品资料ADCCH,30HMOVDL,CHINT21HMOVAH,4CHINT21HCODEENDSENDSTART动态输入20个二位无符号数，找出其中最大数并显示。DATASSEGMENTM1DB'Pleaseinput5numbers:',13,10,'$'M2DB'Thebiggestnumberis:$'M3 DB'' ,13,10,'$'MAX DW?DATASENDSSTACKSSEGMENTSTACKSENDSCODESSEGMENTASSUMECS:CODES,DS:DATAS,SS:STACKSSTART:MOVAX,DATASMOVDS,AXMOVMAX,0LEADX,M1MOVAH,9INT21HMOVCL,5LP: MOVAH,1INT21HSUBAL,30HMOVBH,ALMOVAH,1INT21HSUBAL,30H

MOVBL,ALLEADX,M3MOVAH,9INT21HCMPMAX,BXJNLEXITXCHGMAX,BXEXIT:LOOPLPLEADX,M2MOVAH,9INT21HMOVBX,MAXADDBH,30HMOVDL,BHMOVAH,2INT21HADDBL,30HMOVDL,BLMOVAH,2INT21HMOVAH,4CHINT21HCODESENDSENDSTART设数据区有两个字符串，串1的长度为5，串2的长度为10。编程：若串2的最后5个字符和串1相同，则置FLAG单元为“Y”，否则置为“N”。DATASSEGMENTS1 DB'DKJFD$'S2 DB'DSFGDDDJFD$'FLAGDB'THEFLAFISTHE:$'DATASENDS仅供学习与交流，如有侵权请联系网站删除 谢谢4精品资料CODESSEGMENTASSUMECS:CODES,DS:DATAS,ES:DATASSTART:MOVAX,DATASMOVDS,AXMOVES,AXLEADX,FLAGMOVAH,9INT21HLEASI,S1LEADI,S2+5MOVCX,5REPECMPSBJNEEXITMOVAH,2MOVDL,'Y'INT21HJMPOVEREXIT:MOVAH,2MOVDL,'N'INT21HOVER:MOVAH,4CHINT21HCODESENDSENDSTART编写打印图形程序DATASSEGMENTs db'9876543210',13,10,'$'dw?DATASENDSCODESSEGMENTASSUMECS:CODES,DS:DATASSTART:MOVAX,DATASMOVDS,AXmovcx,10movbx,9mova,2loop1:movdl,0ah

movah,2int21hmovdl,0dhmovah,2int21hloop2:movdl,s[bx]movah,2int21hincbxcmpbx,9jbeloop2subbx,aincalooploop1MOVAH,4CHINT21HCODESENDSENDSTART用子程序结构编写程序：从键盘入一个二位十进制数的月份（01~12），然后显示相应的英文缩写名。DATASSEGMENTPARA'DATA'THREEDB4MONIN DB4,5 DUP(?)ALFMONDB4,'???.' ,'$'MONTABDB'JAN.','FEB.','MAR.','APR.','MAY.','JUN.','JUL.','AUG.','SEP.''OCT.','NOV.','DEC.'DATASENDSCODESSEGMENTPARA'CODE'ASSUMECS:CODES,DS:DATAS,ES:DATASMAINPROCFARPUSHDSSUBAX,AX仅供学习与交流，如有侵权请联系网站删除 谢谢5精品资料PUSHAXLEADX,ALFMON+1MOVAX,DATASMOVAH,09MOVDS,AXINT21HMOVES,AXPOPDXCALLINPUTRETCALLLOCATEDISPLAYENDPCALLDISPLAYCODESENDSRETENDMAINMAINENDPINPUTPROCNEAR7.数组排序PUSHDXMOVAH,0AHDATASSEGMENTLEADX,MONINSTRINGDB'INPUT20INT21HNUMBERS:',0AH,0DH,'$'MOVAH,MONIN+2BUFDB20DUP(?)MOVAL,MONIN+3DATASENDSXORAX,3030HCMPAH,00CODESSEGMENTJZRETURNASSUMECS:CODES,DS:DATASSUBAH,AHSTART:ADDAL,10MOVAX,DATASRETURN:MOVDS,AXPOPDXRETLEADX,STRINGINPUTENDPMOVAH,9LOCATEPROCNEARINT21HPUSHSIPUSHDIMOVCX,20PUSHCXMOVSI,0LEASI,MONTABLOOP1:;动态输入20个无符号的DECALMULTHREE两位数ADDSI,AXMOVCX,03MOVAH,1CLDINT21HLEADI,ALFMON+1SUBAL,30HREPMOVSBMOVBL,10POPCXMULBLPOPDIMOVDX,AXPOPSIMOVAH,1RETINT21HLOCATEENDPSUBAL,30HDISPLAYPROCNEARADDDL,ALPUSHDXMOVBL,DL仅供学习与交流，如有侵权请联系网站删除 谢谢6精品资料CBWMOVAH,2MOVBL,10MOVDL,''DIVBLINT21HMOVBH,AHMOVBUF[SI],BLMOVAH,2INCSIADDAL,30HLOOPLOOP1MOVDL,ALINT21HMOVCX,19;比MOVAH,2ADDBH,30H较19次MOVDL,BHINT21HE1:MOVAH,2MOVDI,CXMOVDL,''MOVBX,0INT21HE2:;用冒泡法比较,前INCSILOOPLOOP2后比较MOVAH,2MOVAL,BUF[BX]MOVDL,0AHCMPAL,BUF[BX+1]INT21HJNGE3MOVAH,2XCHGAL,BUF[BX+1]MOVDL,0DHMOVBUF[BX],ALINT21HE3:ADDBX,1MOVAH,4CHLOOPE2INT21HMOVCX,DICODESENDSLOOPE1ENDSTARTMOVAH,2MOVDL,0AH8.求三个数中最大的数INT21HMOVAH,2DATASSEGMENTMOVDL,0DHBUF1DB3INT21HBUF2DB9BUF3DB7MOVCL,20;从小到大输MAXDB?STRINGDB'Themaxnamber出数组is:',13,10,'$'DATASENDSMOVBX,0MOVSI,0STACKSSEGMENTLOOP2:MOVAL,BUF[SI]STACKSENDS仅供学习与交流，如有侵权请联系网站删除 谢谢7精品资料CODESENDSCODESSEGMENT ENDSTARTASSUMECS:CODES,DS:DATAS,SS:STACKSSTART:MOVAX,DATASMOVDS,AXMOVBL,BUF2CMPBUF1,BLJGNEXTMOVCL,BUF3CMPBUF2,C