far_call_advanced.asm

name "faradv"

org  100h	; set location counter to 100h


jmp start

adr_a dw  offset a
seg_a dw  ?

adr_c dw  offset c
seg_c dw  ?

; set segments, requred because we don't know where
; the program will be loaded by the operating system
start:
mov ax, cs
mov seg_a, ax
mov seg_c, ax

call far adr_a
call b
call far adr_c

mov ax, offset d
call ax           

ret  ; return to os.

;--------------------------------------------------
a proc
	mov ax, 1
	retf      ; far return, pop ip and cs.
a endp
;--------------------------------------------------
b proc
	add ax, 2
	ret       ; return, pop ip only.
b endp
;-------------------------------------------------
c proc
	add ax, 3
	retf      ; far return, pop ip and cs.
c endp
;-------------------------------------------------
d proc
	add ax, 4
	ret       ; return, pop ip only.
d endp
;-------------------------------------------------


; note: assembler automatically replaces ret (C3) with retf (CB)
;       if proc has far label, for example:
;       c proc far
;          ....