stack segment stack'stack'
      dw 32 dup(?)
stack ends
data segment
B1 DB 24
B2 DB 92
B3 DB 25
B4 DB 12
B5 DB 31
W 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,B1
      ADD AL,B2
      SUB AL,B3
      CBW
      IDIV B4
      IMUL B5
      IMUL AX
      MOV W,AX
      MOV W+2,DX
      ret
begin endp
code ends
     end begin