斐波那契数列——汇编语言(共4页)

1、精选优质文档-倾情为你奉上datareasegmentstring1db'please input the number: ',13,10,'$'string2db13,10,'here is:',13,10,'$'Bufferdb4db?db4 dup(?)numberdb?mulfactdb1feidb254 dup(?)datareaendscodeareasegmentmainprocfarassumecs:codearea,ds:datareastart:pushdssubax,axpushaxmovax,datarea

2、movds,axleadx,string1movah,09int21hleadx,Buffermovah,0ahint21hcallconvertnummoval,numberleadx,string2movah,09int21hcallinit;moval,Buffer+1;andax,00ffh;movsi,axcalloutputfei;movfeisi+1,24h;leadx,fei;movah,09;int21hretmainendp;=convertnum proc nearpushbxmov si,Buffer1and si,00ffhmov cx,simov mulfact,1

3、mov bx,0Next:mov al,Buffersi+1;cmp al,'0'js Exit;cmp al,'9'ja Exitsub al,30hand ax,000fhmov dl,mulfactmul dladd bx,axmov al,mulfactmov dl,10mul dlmov mulfact,axdec siloop Nextmov number,blpopbxretconvertnumendp;=initprocnearmovcx,alandcx,00ffhandax,00ffhmovsi,1;andsi,00ffhmovfei+1,1m

4、ovfei+2,1loop1:subcx,2cmpsi,cxjnbexitmovbl,0addbl,feisiaddbl,feisi+1movfeisi+2,blincsijmploop1exit:retinitendp;=outputfeiprocnearmovcl,numberandcx,00ffhmovsi,0loop4:cmpsi,cxjzbreakmovax,feisi+1andax,00ffhcalloutputincsijmploop4break:retoutputfeiendp;=outputprocnearpushaxpushbxpushcxpushdxcmpax,100jlg2movbl,100divbladdal,30hmovbh,ahmovdl,almovah,2int21hmoval,bhcbwg2:cmpax,10jlg4movbl,10divblmovbh,ahaddal,30hmovdl,almovah,2int21hmoval,bhcbwg4:addal,30hmovdl,almovah,2int21hmovdl,20hmo