Guest User

Числа фибаначчи

a guest
Jan 9th, 2017
53
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;Числа фибоначчи.
  2.  
  3. .data
  4.     n DW 0    
  5. .const
  6.     scale EQU 10
  7. .code
  8.     mov ah,0ah
  9.     xor di,di
  10.     mov dx,offset buff
  11.     int 21h
  12.     mov dl,0ah
  13.     mov ah,02
  14.     int 21h    
  15.     xor ax,ax
  16.     mov bx,scale    
  17.  
  18. MakeNum:
  19.     mov cl,[si]
  20.     cmp cl,0dh
  21.     jz FibCalc
  22.     sub cl,'0'
  23.     mul bx  
  24.     add ax,cx
  25.     inc si  
  26.     jmp MakeNum
  27.  
  28. FibCalc:
  29.     mov n, ax
  30.     xor ax,ax
  31.     mov dx,1
  32.     mov cx,n
  33.     sum:
  34.         add ax,dx
  35.         loop sum
  36.     xor cx, cx
  37.     mov bx, scale  
  38.  
  39. AddStackNum:
  40.     xor dx,dx
  41.     div bx
  42.     push dx
  43.     inc cx
  44.     test ax, ax
  45.     jnz AddStackNum
  46.     mov ah, 02h
  47.  
  48. PrintSymb:
  49.     pop dx
  50.     add dl, '0'
  51.     int 21h
  52.     loop PrintSymb
RAW Paste Data