stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
W1 DW 1296H
W2 DW 5697H
OBF 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
      DAA
      MOV BL,AL
      MOV AL,BYTE PTR W1+1
      ADC AL,BYTE PTR W2+1
      DAA 
      MOV BH,AL  
      MOV AX,BX
      MOV DI,4
      MOV OBF[DI],'$'

      MOV CL,4
AGAIN:MOV DL,0FH
      AND DL,AL
      OR DL,30H
      DEC DI
      MOV OBF[DI],DL
      SHR AX,CL
      AND AX,AX
      JNZ AGAIN
      MOV DX,OFFSET OBF
      MOV AH,9
      INT 21H
      ret
begin endp
code ends
     end begin