Multiply two numbers using Far Procedure

;PROGRAM TO MULTIPLY TWO NUMBERS USING FAR PROCEDURE

data segment

opr1 dw 12h

opr2 dw 48h

res dw 1 dup(0)

data ends

code segment

assume cs:code, ds:data

start:

mov ax,data

mov ds,ax

call far ptr multiply

mov res,ax

int 3

code ends

code2 segment

assume cs:code2, ds:data

multiply proc far

mov ax,opr1

mul opr2

ret

multiply endp

code2 ends

end start