* $Revision Header * Header built automatically - do not edit! *************
*
*	(C) Copyright 1990 by MXM
*
*	Name .....: IOHandler.asm
*	Created ..: Tuesday 26-Jun-90 14:19
*	Revision .: 1
*
*	Date            Author          Comment
*	=========       ========        ====================
*	26-Jun-90       Olsen           Created this file!
*
* $Revision Header *********************************************************

	section	text,code

	include	"exec/types.i"
	include	"exec/nodes.i"
	include	"exec/io.i"

	xdef	_NewBeginIO
	xref	_PatchedBeginIO
	xref	_geta4

_NewBeginIO:

	movem.l	d1-d7/a2-a6,-(sp)		; Save registers

	move.l	a1,-(sp)			; Remember IORequest

	jsr	_geta4
	jsr	_PatchedBeginIO			; Call our patch

	move.l	(sp)+,a1			; Restore IORequest

	movem.l	(sp)+,d1-d7/a2-a6		; Restore registers

	tst.l	d0				; Valid result?
	bne	1$

	move.b	IO_ERROR(a1),d0			; Return error
	rts

1$	move.l	d0,a0				; Jump to original routine
	jmp	(a0)

	end