;   ICEPT.ASM
		;
		;  $Header: Beta:src/uucp/src/getty/RCS/icept.asm,v 1.1 90/02/02 12:13:28 dillon Exp Locker: dillon $
		;
		;   Intercept OpenDevice() for serial.device and force
		;   SERF_SHARED.
		;
		;   A1 holds IOExtSer request ptr.  D0-D1/A0-A1 are NOT
		;   scratch.
		;
		;   You CANNOT use A4 relative addressing since this routine
		;   is called from a different context.

		include "exec/types.i"
		include "devices/serial.i"

		section text,CODE

		xdef	_AsmIntercept
		xdef	_AsmRoute

RouteVector	dc.l	0

_AsmRoute:	lea	RouteVector(pc),A0
		move.l	4(sp),(A0)
		rts

_AsmIntercept:
		or.b	#SERF_SHARED,IO_SERFLAGS(A1)
		move.l	RouteVector(pc),-(sp)
		rts

		END