文章标题 汇编 计算 Fibonacci 数（20~30）

;计算 Fibonacci 数 ; 20 = 6765 ; 21 = 10946 ; 22 = 17711 ; 23 = 28657 ; 24 = 46368 ; 25 = 75025 ; 26 = 121393 ; 27 = 196418 ; 28 = 317811 ; 29 = 514229 ; 30 = 832040 .MODEL SMALL .Data mass1 DB 'input the number(20~30):','$' mass2 DB 'The result is :','$' mass3 DB 0dh, 0ah,'press q/Q to exit',0dh,0ah,'$' mass4 DB 0dh, 0ah,'thank you!',0dh,0ah,'$' mass5 DB 0dh, 0ah,'input is error,input again',0dh,0ah,'$' num DW ? result1H DW 0;高位 result1L DW 0;低位 result2H DW 0;高位 result2L DW 0;低位 ans db 6 dup(' '), 0dh,0ah,'$';保存答案的十进制数 text DB 'text', 0dh,0ah,'$' .code MAIN PROC FAR MOV AX ,@Data MOV DS ,AX ;-------------------------------- again: mov ax , 0;初始化 mov bx , 0 mov dx , 0 mov result1L,0;初始化 mov result1H,0 mov result2L,0 mov result2H,0 mov dx , offset mass3;停止输入提示 mov ah , 9 int 21h mov dx , offset mass1;输入限制提示 mov ah , 9 int 21h ;----------- mov ah , 1 int 21h cmp al , 'q';输入停止 jz return cmp al ,'Q';输入停止 jz return sub al , 30h;减去48 cbw mov bx , ax call input;调用输入的子程序 cmp bx , 20;小于20 ， 大于30 都是输入错误 jl error cmp bx , 30 ja error mov num , bx;将输入的值放进num中 call fibP;调用求fibonacci数的子程序 mov dx , offset mass2;运算结果提示 mov ah , 9 int 21h mov ax , result2L;低位放进ax中 mov dx , result2H;高位放进dx中 call output;调用输出的子程序 jmp again error: lea dx , mass5;输入错误错误提示 mov ah , 9 int 21h jmp again ;------------------------------- return: mov dx , offset mass4;程序结束提示 mov ah , 9 int 21h mov ax,4C00H int 21h Main endp ;********************************************************** ;输入子程序---------------------------------------------- ;********************************************************** input proc near ;键盘输入十进制数放在bx中 ;mov bx , 0 newchar: mov ah, 1 ;键盘输入 int 21h sub al, 30h jl exit ; <0退出 cmp al, 9 jg exit ; >9退出 cbw xchg ax, bx mov cx, 10 mul cx xchg ax, bx add bx, ax jmp newchar exit: ret input endp ;********************************************************** ;32位输出子程序-------------------------------------------- ;********************************************************** output proc near lea di,ans add di,5 m2: mov bx,10000 div bx ; 这里是发生溢出之处 push ax push dx ; ============ ; 以下转换10进制的低4位 pop dx mov cx,4 mov ax,dx m3: mov dx,0 mov bx,10 div bx add dl,30h mov [di],dl;求的余数加30h然后放进字符数组里面 dec di loop m3 ; =========== ; 以下转换10进制的高2位 pop ax mov cx,2 m4: mov dx,0 mov bx,10 div bx add dl,30h mov [di],dl dec di loop m4 ; ============ ; 输出10进制串 lea dx,ans mov ah,9 int 21h ret output endp ;********************************************************** ;调试子程序-------------------------------------------------- ;********************************************************** TextP proc near mov dx , offset text mov ah , 9 int 21h ret TextP endp ;********************************************************** ;fibonacci数的子程序--------------------------------------- ;********************************************************** fibP proc near cmp num , 1;等于1 的情况 jz fibL1 cmp num , 2;等于2 的情况 jz fibL2 dec num call fibP mov ax , result2L ; 将当前f(num-1) 的高位和地位放进dx,ax mov dx , result2H mov cx , result1L;然后加上f(num-2),即放在result1L,result1H 的值，计算得到f(num-1)+f(num-2)放进result2中 add result2L , cx mov cx , result1H adc result2H , cx mov result1L , ax ;最后将保存在dx,ax，中的值放进result1中 mov result1H , dx jmp exitFib fibL1: ;num等于1 的时候 mov result1L , 1 mov result2L , 1 jmp exitFib fibL2: ;num等于2 的时候 mov result2L , 1 dec num call fibP exitFib: ret fibP endp ;****************************************************************** end