Ввод вывод вещественных чисел

ln macro par;макрос нахождения ln^3(1+cos|z-1|)
FLDL2E  
FLD par 
FLD1 
FSUBP 
FABS 
FCOS 
FLD1 
FADDP
FYL2X
FDIVRP
FLD ST(0)
FMUL ST(0)  
FMULP 
endm
 
step macro par, par 
FLD par1
FLD par
fld st(0)   
frndint 
fsubp
fxch 
fyl2x
f2xml   
fldl 1
faddp 
fid par1
fid par 
frndint 
fxch 
fyl2x 
fld 1   
fscale
fxch st(1)
fxch st(2)
ffree st(2) 
fmulp
 
 
fid c3 
fmulp
endm
 
Input_data segment para public 'data'
xdd1.1 
у dd 2.3 
z dd 1.4
 t dd?
tl dd ? 
cl dd 0.71
c2 dd 0.005 
c3 dd 2.0 
input_data ends
 
output data segment para public ?data' 
a dd ? 
b dd ? 
Output_data ends
 
stk segment stack
db 256 dup('?')
stk ends
 
code segment para public ‘code’
main proc
assume cs:code, ds:input_data, es:output_data, ss:stk
MOV AX, output_data
MOV ES, AX
 
.386 
MOV ЕАХ, х MOV ЕВХ, у 
MOV ЕСХ, z 
FINIT 
call solve_a 
MOV ES:a,EAX 
MOV EAX, x 
MOV ЕВХ, у 
MOV ECX, z 
finit
call solve_b 
MOV ES:b, EAX
MOV AX, 4c00h 
int 2lh
 
solve_a PROC
MOV t,ECX 
Ln t 
FLD cl 
MOV t,EBX   
FLD t 
FMUL 
FADD 
FLD t 
Fmul C2 
Mov t,eax 
Mov t, ebx 
Step t, t1
fxch st(1)  
fstp t1 
 
FADD 
FDIVP
FSTP t  
MOV EAX, t ;    
RET 
solve_a endp
 
solve_b PROC
MOV t, ecx
ln t
mov t, eax
mov tl, ebx
Step t,t1
Fxch st(1)
fstptl
FADDP
FSTP t
MOV eax, t
Solve_b endp 
 
main endp 
code ends 
end main

MOV ЕАХ, х MOV ЕВХ, у 
MOV ЕСХ, z