斐波那契数列 - 汇编语言-

1、datarea segmentstring1 db 'please input the number: ',13,10,'$' string2 db 13,10,'here is:',13,10,'$'Buffer db 4db ?db 4 dup(?number db ?mulfact db 1fei db 254 dup(?datarea endscodearea segmentmainproc farassume cs:codearea,ds:datareastart:push dssub ax,axpush axmov a

2、x,datareamov ds,axlea dx,string1mov ah,09int 21hlea dx,Buffermov ah,0ahint 21hcall convertnummov al,numberlea dx,string2mov ah,09int 21hcall init; mov al,Buffer+1; and ax,00ffh; mov si,axcall outputfei; mov feisi+1,24h; lea dx,fei; mov ah,09; int 21hretmainendp;= convertnum proc nearpush bxmov si,Bu

3、ffer1and si,00ffhmov cx,simov mulfact,1mov 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,blpop bxretconvertnum endp;= init proc nearmov cx,aland

4、 cx,00ffhand ax,00ffhmov si,1; and si,00ffhmov fei+1,1mov fei+2,1loop1:sub cx,2cmp si,cxjnb exitmov bl,0add bl,feisiadd bl,feisi+1mov feisi+2,blinc sijmp loop1exit:retinit endp;= outputfei proc nearmov cl,numberand cx,00ffhmov si,0loop4:cmp si,cxjz breakmov ax,feisi+1and ax,00ffhcall outputinc sijmp loop4break:retoutputfei endp;= output proc nearpush axpush bxpush cxpush dxcmp ax,100jl g2mov bl,100div bladd al,30hmov bh,ahmov dl,almov ah,2int 21hmov al,bhcbwg2:cmp ax,10jl g4mov bl,10div blmov bh,ahadd al,30hmov dl,almov ah,2int 21hmov al,bhcbwg4:add al,30hmov dl,almov ah,2int 21hmov dl,2