stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
W1 DW 0609H
W2 DW 0305H
OBUF1 DB 'The result is:$'
OBUF2 DB 5 DUP(?) 
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
      MOV AH,0
      AAA
      OR AX,3030H
      MOV OBUF2+3,AL
      MOV OBUF2+2,AH
      MOV AL,BYTE PTR W1+1
      ADC AL,BYTE PTR W2+1
      MOV AH,0
      AAA
      OR AX,3030H
      MOV OBUF2+1,AL
      MOV OBUF2,AH
      MOV OBUF2+4,'$'
      MOV DX,OFFSET OBUF1
      MOV AH,9
      INT 21H
      MOV DX,OFFSET OBUF2
      MOV AH,9
      INT 21H
      ret
begin endp
code ends
     end begin