LibCall		macro
		xref	_LVO\1
		jsr	_LVO\1(a6)
		endm

ExCall		macro
		xref	_SysBase
		ifd	Relative
		move.l	_SysBase(a4),a6
		endc
		ifnd	Relative
		move.l	_SysBase,a6
		endc
		xref	_LVO\1
		jsr	_LVO\1(a6)
		endm

DosCall		macro
		xref	_DOSBase
		ifd	Relative
		move.l	_DOSBase(a4),a6
		endc
		ifnd	Relative
		move.l	_DOSBase,a6
		endc
		xref	_LVO\1
		jsr	_LVO\1(a6)
		endm

IntCall		macro
		xref	_IntuitionBase
		ifd	Relative
		move.l	_IntuitionBase(a4),a6
		endc
		ifnd	Relative
		move.l	_IntuitionBase,a6
		endc
		xref	_LVO\1
		jsr	_LVO\1(a6)
		endm

Call		macro
		ifnd	\1
		xref	\1
		endc
		ifd	LatticeAsm
		jsr	\1(pc)
		endc
		ifnd	LatticeAsm
		bsr	\1
		endc
		endm

Jump		macro
		xref	\1
		ifd	LatticeAsm
		jmp	\1(pc)
		endc
		ifnd	LatticeAsm
		bra	\1
		endc
		endm


		ifnd	LatticeAsm
Func		macro
		xdef	\1
\1
		ifeq	NARG-1
		mexit
		endc
		xdef	\2
\2
		ifeq	NARG-2
		mexit
		endc
		xdef	\3
\3
		endm
		endc

		ifd	LatticeAsm
Func		macro
		ifnc	\1,''
		xdef	\1
\1
		endc
		ifnc	\2,''
		xdef	\2
\2
		endc
		ifnc	\3,''
		xdef	\3
\3
		endc
		endm
		endc