DREIF.MAC;22/AU:72.=DREIF.MAC;21/-BF
\
-2,2
	.IDENT	/08.09/
-5,5
; COPYRIGHT (C) 1974,1977
-24,24
; VERSION 08.09
-93
;		TM069 -- ADDITION OF CHECK FOR OUTSTANDONG
;			TERMINAL I/O
;
;		TM074 -- CORRECT BUG IN IO RUNDOWN
;
;		TM077 -- DEALLOCATE RECEIVE BY REFERENCE AST BLOCK.
;
;		TM096 -- FIX BUG RELATING TO THE RELEASE OF MEMORY IN
;			PLAS SYSTEMS.
;
%
-212,,/; TM077/
	.IF DF	A$$TRP&P$$LAS&P$$SRF
	MOV	#H.RRVA,R4	;SET OFFSET TO AST CONTROL BLOCK
	CALL	$DASTT		;DECLARE RECEIVE BY REFERENCE AST
	.ENDC
-286,,/; TM074/
	MOVB	T.IOC(R2),-(SP)	;SAVE CURRENT I/O COUNT
-304,304,/; TM074/
	CMPB	T.IOC(R5),(SP)+	; REQUEST ALREADY FINISHED?
-310,,/; TM069/
	.IF DF	T$$BUF
	BIT	#T2.TIO,T.ST2(R5)	;OUTSTANDING TERMINAL I/O?
	BNE	80$		;IF NE YES
	.ENDC


-384,384,/; TM096/
	MOV	T.PCB-T.ST3(R5),R0 ;POINT TO TASK PCB
	BIT	#PS.SYS,P.STAT(R0) ;IS IT A SYSTEM CONTROLLED PARTITION?
	BEQ	124$		;IF EQ NO
	MOV	P.MAIN(R0),T.PCB-T.ST3(R5) ;POINT BACK TO MAIN PCB
124$:	MOV	R5,-(SP)	;SAVE ADDRESS OF THIRD STATUS WORD
-412,,/; TM096/
	.IF NDF	P$$LAS

-418,421,/; TM096/
-424,426,/; TM096/
-433,436,/; TM096/
/