斐波那契数列

include irvine32.inc
.code
main proc
start:
    mov   bx,d_seg
    mov   ds,bx
prompt:lea dx,prompt1
       mov ah,09H
       int 21H                              ;显示提示
       mov ax,0                             ;产生Fibonacci首列
       mov bx,1                             ;产生Fibonacci次列
       lea si,Serier                        
again: mov [si],ax                          ;存数项                          
       xhg ax,bx
       add ax,bx                            ;产生当前数项
       add si,2                             ;修改指针
       inc Fibona                           ;项数计数
       cmp ax,Max 
       ja  next1
       jmp again
main endp
       
next1:call arrangement_sub                   ;Fibonacci数列排序
      call display_Max_number                ;显示最大数项
      call ah,01H
      int  21H                               ;暂停
      mov  ah,4ch
      int  21h                                ;退出汇编系统
      
arrangement_sub  proc near                   ;Fibonacci数列排序