.TITLE	SETUP
;
; USUAL DEC COPYRIGHT STUFF
;
; MODIFICATIONS:
;	03A -- MAKE NEW LOAD SIZE LESS THAN FILE SIZE
;
	.IDENT	/03A/
	.MCALL	LBLDF$
	LBLDF$
	.PSECT
.BLK.=.
.=.BLK.+734
	CALL	PAT1		;
	MOV	R2,$BUFFR+L$BMXZ ;SET NEW MAX SIZE
.=.BLK.
	.PSECT	$$PAT
$$PAT=.
PAT1:	CMPB	-(R2),-(R2)	;CONVERT SMALLEST OF SYSIZ AND
	ASL	R2		;FILE SIZE TO UNITS OF 32W
	ASL	R2		;
	ASL	R2		;
	MOV	R2,$BUFFR+L$BLDZ ;SET NEW LOAD SIZE
	RETURN
.=$$PAT
	.END