;  liblink.asm -- jimm mackraz, oct 28, 1986
;  application side interface for C-routines calling example library

	include 'exec/types.i'
	include 'exec/libraries.i'

	LIBINIT
	LIBDEF	_LVOXProtocolCleanup
	LIBDEF	_LVOXProtocolSetup
	LIBDEF	_LVOXProtocolSend
	LIBDEF	_LVOXProtocolReceive

	; --- xref from application
	public	_XProtocolBase

	; --- xdef for application
        public	_XProtocolCleanup
        public	_XProtocolSetup
        public	_XProtocolSend
	public	_XProtocolReceive

_XProtocolCleanup:
	movea.l	4(sp),a0		; First argument on stack
	move.l	_XProtocolBase,a6
	jmp	_LVOXProtocolCleanup(a6)

_XProtocolSetup:
	movea.l	4(sp),a0		; First argument on stack
	move.l	_XProtocolBase,a6
	jmp	_LVOXProtocolSetup(a6)

_XProtocolSend:
	movea.l	4(sp),a0		; First argument on stack
	move.l	_XProtocolBase,a6
	jmp	_LVOXProtocolSend(a6)

_XProtocolReceive:
	movea.l	4(sp),a0		; First argument on stack
	move.l	_XProtocolBase,a6
	jmp	_LVOXProtocolReceive(a6)