
*	ExecIO.asm (of PCQ Pascal runtime library)
*	Copyright (c) 1989 Patrick Quaid

*	This implements the routines defined in ExecIO.i

	SECTION	ExecIO

	XDEF	_AbortIO
_AbortIO
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jsr	_LVOAbortIO(a6)
	rts

	XDEF	_BeginIO
_BeginIO
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jsr	_LVOBeginIO(a6)
	rts

	XDEF	_CheckIO
_CheckIO
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jsr	_LVOCheckIO(a6)
	rts

	XDEF	_DoIO
_DoIO
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jsr	_LVODoIO(a6)
	rts

	XDEF	_SendIO
_SendIO
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jsr	_LVOSendIO(a6)
	rts

	XDEF	_WaitIO
_WaitIO
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jsr	_LVOWaitIO(a6)
	rts

	XREF	_LVOAbortIO
	XREF	_LVOBeginIO
	XREF	_LVOCheckIO
	XREF	_LVODoIO
	XREF	_LVOSendIO
	XREF	_LVOWaitIO
	XREF	_AbsExecBase

	END

