SRDROT.MAC;2/AU:72./-BF=SRDROT.MAC;1
\
-2,2
	.IDENT	-5.2-		; 08-JUN-80
-53
;	MBK001	CORRECT INVERSE CONDITIONALIZATION IN D$$CAL CODE
;		AND USE STANDARD RSX-11M EXTK$ MACRO
;
;	MBK002	SUBTRACT FROM BUFFER SIZE WHEN SHRINKING TASK
;
%
-68,68,/;MBK001
	.MCALL	FINIT$,CLOSE$,QIOW$S,EXTK$S
-90,90,/;MBK002
LSTNX$::
-93,93,/;MBK001
	.IF DF	D$$CAL		; IF DYNAMIC CHECKPOINTING...
-96,,/;MBK002
	MOV	R1,R0		; AND ALSO SHRINK
	.REPT	6
	ASL	R0		; BUFFER SIZE
	.ENDR			; 6
	SUB	R0,DIRBE$	; DO ADJUSTMENT
-98,98,/;MBK001
	EXTK$S	R1		; GO BACK TO ORIGINAL SIZE.
-103,103,/;MBK002
10$:	MOV	#UFDFDB,R0	; FDB FOR READING UFD
	CALL	CCLOSE		; CONDITIONALLY CLOSE
/