DREXP.MAC;2/AU:72.=DREXP.MAC;1/-BF
\
-2,2
	.IDENT	/00.02/
-5,5
 
 
 
; COPYRIGHT (C) 1976, 1977
-24,24
; VERSION 00.02
-27
; MODIFIED BY:
;
;		TM069 -- ADD CHECK FOR OUTSTANDING TERMINAL I/O.
;
;		TM072 -- DISALLOW DECREASE IN SIZE FOR TASK'S WITH
;			RESIDENT OVERLAYS.
;
%
-75,,/; TM069/
 
	.IF DF	A$$TRP&C$$CKP&T$$BUF
 
	BIT	#T2.TIO,(R2)	;TASK HAVE OUTSTANDING TERMINAL I/O?
	BNE	15$		;IF NE YES
 
	.ENDC
 
-85,85,/; TM072/
	BLOS	25$		;IF LOS NO
-87,87,/; TM072/
	BHI	45$		;IF HI YES
-102,,/; TM072/
 
 
	.IF DF	P$$LAS
 
	BR	30$		;
 
	.IFTF
 
25$:				;REF LABEL
 
	.IFT
 
	BEQ	30$		;IF EQ SIZE OK
	BIT	#T3.ROV,2(R2)	;TASK HAVE RESIDENT OVERLAYS?
	BNE	67$		;IF NE YES, CANNOT DECREASE SIZE
 
	.ENDC
 
 
-147,147,/; TM072/
45$:	BR	90$		;ILLEGAL SIZE
/