SRDINI.MAC;2=SRDINI.MAC;1
-2,2
	.IDENT	-5.3-		; 18-AUG-80
-40
;
;	MBK001 -- 04-APR-80 CORRECT CALCULATION OF TASK SIZE IN RSX-11M
;	 BT007 -- 18-AUG-80 DO NOT ATTEMPT TO SHRINK TASK BY ZERO BLOCKS
-49,49
	.MCALL	GPRT$,EXTK$S
-97,101
	.REPT	6		;AND
	ASL	R0		; CONVERT TO SIZE IN BYTES
	.ENDR
-112
	BEQ	LOOP		; BR IF BLOCK COUNT ZERO
-114,114
	EXTK$S	R1		; TRY TO SHRINK TASK
/