stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
W1 DW 2548H
W2 DW 3209H
W3 DW ?
data ends
code segment
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax
      MOV AL,BYTE PTR W1
      ADD AL,BYTE PTR W2
      DAA 
      MOV BYTE PTR W3,AL
      MOV AL,BYTE PTR W1+1
      ADC AL,BYTE PTR W2+1
      DAA
      MOV BYTE PTR W3+1,AL
      MOV BX,W3
      ret
begin endp
code ends
     end begin