* $Revision Header * Header built automatically - do not edit! *************
*
*	(C) Copyright 1991 by Olaf 'Olsen' Barthel & MXM
*
*	Name .....: XprGlue.asm
*	Created ..: Monday 21-Jan-91 20:12
*	Revision .: 0
*
*	Date            Author          Comment
*	=========       ========        ====================
*	21-Jan-91       Olsen           Created this file!
*
* $Revision Header *********************************************************

	csect	text,0,0,1,2

*--------------------------------------------------------------------------
*
*	This file contains all library glue routines for the xpr
*	libraries. I didn't want to use inline library calls since
*	I had a few crashes in this area.
*
*--------------------------------------------------------------------------

	xdef	_XProtocolCleanup

_XProtocolCleanup:
	pea	(a6)
	move.l	_XProtocolBase(a4),a6
	move.l	8(sp),a0
	jsr	-30(a6)
	move.l	(sp)+,a6
	rts

*--------------------------------------------------------------------------

	xdef	_XProtocolSetup

_XProtocolSetup:
	pea	(a6)
	move.l	_XProtocolBase(a4),a6
	move.l	8(sp),a0
	jsr	-36(a6)
	move.l	(sp)+,a6
	rts

*--------------------------------------------------------------------------

	xdef	_XProtocolSend

_XProtocolSend:
	pea	(a6)
	move.l	_XProtocolBase(a4),a6
	move.l	8(sp),a0
	jsr	-42(a6)
	move.l	(sp)+,a6
	rts

*--------------------------------------------------------------------------

	xdef	_XProtocolReceive

_XProtocolReceive:
	pea	(a6)
	move.l	_XProtocolBase(a4),a6
	move.l	8(sp),a0
	jsr	-48(a6)
	move.l	(sp)+,a6
	rts

*--------------------------------------------------------------------------

	xdef	_XProtocolHostMon

_XProtocolHostMon:
	pea	(a6)
	move.l	_XProtocolBase(a4),a6
	movem.l	8(sp),a0/a1
	movem.l	16(sp),d0/d1
	jsr	-54(a6)
	move.l	(sp)+,a6
	rts

*--------------------------------------------------------------------------

	xdef	_XProtocolUserMon

_XProtocolUserMon:
	pea	(a6)
	move.l	_XProtocolBase(a4),a6
	movem.l	8(sp),a0/a1
	movem.l	16(sp),d0/d1
	jsr	-60(a6)
	move.l	(sp)+,a6
	rts

	csect	__MERGED

	xref	_XProtocolBase

	end