Калькулятор - сохранить результаты в файл

include 'emu8086.inc'
.model tiny
 
.code
org 100h
start:
 
    a dd ?     
    b dd ?            
    c dd ?
    d dd ?
    
    diviz dd ?
    summa dd ?
    razno dd ?
    multi dd ?
 
;jmp start
 
;dir1 db "\\fs\home\desktop\Calculator\Result", 0
;file1 db "\\fs\home\desktop\Calculator\result\file1.txt", 0
;handle dw ?
   
    
LEA    SI, msg1       ; 
CALL   print_string   ;
CALL   scan_num       ; 
 
MOV    AX, CX         ;
MOV    a, CX         ;   
MOV    c, CX         ; 
CALL   pthis
DB  13, 10,0
 
LEA    SI, msg2       ; 
CALL   print_string   ;
CALL   scan_num
MOV    BX, CX         ;
MOV    b, CX         ;
MOV    d, CX         ;
 
CALL   pthis
DB  13, 10,0
    
mov ax,3
int 10h
 
xor di,di
push 0b800h
pop es
 
mov ax,a     
mov bx,b      
mov bp,10
xor cx,cx
xor dx,dx
div bx
push dx
 
@@:
xor dx,dx
div bp
push dx
inc cx
test ax,ax
 
 
 
pop ax
or ax,0a30h
stosw
 
 
pop dx
test dx,dx
je exit
 
mov cx,40  ; 
mov ax,0e00h+'.'
stosw
 
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx   
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx   
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx   
 
mov ax,dx
mul bp
xor dx,dx
div bx
or ax,0a30h
stosw
test dx,dx   
 
exit:
xor ax,ax
int 16h
 
CALL   pthis
DB  13, 10,0
 
LEA    SI, msg3       ;
CALL   print_string   ; 
 
MOV    AX,c 
ADD    AX,d          ; 
 
MOV    summa,AX  
CALL   print_num      ;  
CALL   pthis
DB  13, 10,0
 
LEA    SI, msg4       ;
CALL   print_string   ;
 
MOV    AX, a         ;
MOV    BX, b
SUB    AX, BX         ;
 
 
MOV    razno,AX
CALL   print_num      ; 
CALL   pthis
DB  13, 10,0
 
 
LEA    SI, msg5       ; 
CALL   print_string   ;
 
MOV    AX, a         ; 
IMUL   b
MOV    CX, DX;  
MOV    multi,AX;
CALL   print_num;
CALL   pthis
DB  13, 10,0            
 
;MOV AX,summa
;CALL   print_num;
;CALL   pthis
;DB  13, 10,0 
 
;MOV AX,razno
;CALL   print_num;
;CALL   pthis
;DB  13, 10,0     
 
 
;MOV AX,multi
;CALL   print_num;
;CALL   pthis
;DB  13, 10,0       
 
 
RET
msg1   DB  'Enter the first number: ', 0
msg2   DB  'Enter the second number: ', 0 
msg3   DB  'Sum is : ', 0        
msg4   DB  'Difference is : ', 0  
msg5   DB  'multiplication is : ', 0 
 
 
DEFINE_SCAN_NUM
DEFINE_PRINT_STRING
DEFINE_PRINT_NUM
DEFINE_PRINT_NUM_UNS  ; 
DEFINE_PTHIS
 
 
end start