.TITLE	KEDIOX
;	CHANGE	$IOERR TO ALLOW MULTI-USER KED
;	This patch file provided by:
;
;			E. Derek Franks
;			c/o Saskatchewan Wheat Pool
;			2625 Victoria Ave.
;			Regina, Saskatchewan
;			S4P  2Y7
;			CANADA

	.IDENT	/KEDPAT/
	.PSECT	KEDIO,RO,I,REL,CON,LCL
PATEDF==.+410

.=PATEDF
	JMP	IOERRX
	.PSECT	PATCH,RW,I,REL,CON,LCL
IOERRX::
	MOV	(R4)+,10$
	JSR	R4,ERROR
10$:	.WORD	0
	MOV	(SP)+,R4
	RETURN
	.END