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

*	This implements the routines defined in ExecIO.i and
*	Ports.i

	SECTION	ExecIO

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

	XDEF	_AddDevice
_AddDevice
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jmp	_LVOAddDevice(a6)

	XDEF	_AddPort
_AddPort
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jmp	_LVOAddPort(a6)

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

	XDEF	_CloseDevice
_CloseDevice
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jmp	_LVOCloseDevice(a6)

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

	XDEF	_FindPort
_FindPort
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jmp	_LVOFindPort(a6)

	XDEF	_GetMsg
_GetMsg
	move.l	4(sp),a0
	move.l	_AbsExecBase,a6
	jmp	_LVOGetMsg(a6)

	XDEF	_OpenDevice
_OpenDevice
	move.l	16(sp),a0
	move.l	12(sp),d0
	move.l	8(sp),a1
	move.l	4(sp),d1
	move.l	_AbsExecBase,a6
	jmp	_LVOOpenDevice(a6)

	XDEF	_PutMsg
_PutMsg
	move.l	8(sp),a0
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jmp	_LVOPutMsg(a6)

	XDEF	_RemPort
_RemPort
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jmp	_LVORemPort(a6)

	XDEF	_ReplyMsg
_ReplyMsg
	move.l	4(sp),a1
	move.l	_AbsExecBase,a6
	jmp	_LVOReplyMsg(a6)

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

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

	XDEF	_WaitPort
_WaitPort
	move.l	4(sp),a0
	move.l	_AbsExecBase,a6
	jmp	_LVOWaitPort(a6)

	XREF	_LVOAbortIO
	XREF	_LVOAddPort
	XREF	_LVOAddDevice
	XREF	_LVOCheckIO
	XREF	_LVOCloseDevice
	XREF	_LVODoIO
	XREF	_LVOFindPort
	XREF	_LVOGetMsg
	XREF	_LVOOpenDevice
	XREF	_LVOPutMsg
	XREF	_LVORemPort
	XREF	_LVOReplyMsg
	XREF	_LVOSendIO
	XREF	_LVOWaitIO
	XREF	_LVOWaitPort
	XREF	_AbsExecBase

	END