data    segment
fuck    dd   ?
numa    dd   84560
sum     dt   ?
data    ends

extr    segment
numb    dd   -13212
extr    ends

code    segment
        assume  cs:code,ds:data,es:extr
start:
        mov  ax,data
        mov  ds,ax
        mov  ax,extr
        mov  es,ax
        
        finit 
        fild    es:[numb]
        fild    ds:[numa]
        fadd        
        fbstp   ds:[sum]
        
        mov  ah,04ch
        int  21h
code    ends
        end     start