работа fsin

kr2_12 PROC FAR a:word, b:word 
PUBLIC kr2_12
 
      mov  ax,b ; 
      mov  bx,a  ;
      mov di,ax
      xor dx,dx
      div bx
      mov cx,37
      mul cx
      xor dx,dx
      mov cx,ax
      mov ax,di
      div bx
      add dx,cx
      xor ax,ax
      mov ax,dx
      xor dx,dx
      mov cx, 0001h
     shl ax,cl
     xor bx,bx
      mov bx,163
      sub ax,bx
              
    mov a,ax
    finit
    fild a
    fsin
        
    ret
    
kr2_12 ENDP

.model tiny
.286
.code
org 100h
start:  finit
    fld a ; загружаю вещественное число
.386
    fsin
    fmul ten
    fistp a1; извлекаю целое число - в ячейку а1 вернет число 10 то есть 10*1,0
    fld b
    fsin
    fmul ten
    fistp b1; в ячейку b1 вернет число 7 то есть 10*0,70710678118654752440084436210485
    fld d
    fsin
    fmul ten
    fistp d1; в ячейку d1 вернет число 3 то есть 10*0,30901699437494742410229341718282
exit:   ret; выходим из программы
a dd 1.5707963267948966192313216916398;в радианах pi/2=90 градусов
b dd 0.78539816339744830961566084581988;в радианах pi/4=45 градусов
d dd 0.31415926535897932384626433832795;в радианах pi/10=18 градусов
a1 dw ?
b1 dw ?
d1 dw ?
ten dd 10.0
end start