BYE.MAC;5/AU/-BF=BYE.MAC;4
\
-2,2
	.IDENT	/01.2/
-4,4
; COPYRIGHT (C) 1976 1977
-27
; MODIFIED:
;
;	EB038	CLEAN UP A BIT
;
%
-34,,/; EB038/
ATERS=24			;DEFINE UCB OFFSET TO ADDITIONAL
				;TERMINAL STATUS WORD
-59,59,/; EB038/
ERRDPB:	QIO$	IO.WVB,1,1,,IOSTAT,,<0,0,40>
-79,,/; EB038/
	BIS	#U2.SLV,U.CW2(R0)	;TEMP SLAVE IT
-181,181,/; EB038/
	BIC	#U2.SLV,U.CW2(R0)	; RESET TERMINAL STATUS
-250,,/; EB038/
	MOV	UCB,R1		;GET TI:UCB ADDRESS
	BIC	#201,U.CNT+2+ATERS(R1)	;FAKE A CONTROL/Q
-261,261,/; EB038/
	MOV	#IO.WVB,ERRDPB+2	;RESET FUNCTION CODE
	CALLR	WAIT1			;WAIT FOR KILLED I/O TO FINI
/