	.title	pdpbuf	return a buffer in an overlay for buf pool

;	return a private buffer pool address (in an overlay) for
;	file loading and ending (writing)
;
;	01-Sep-85  20:44:28  BDN


	.psect
	.psect	pdpbuf	,rw,d,lcl,rel,con
buf:	.blkb	4000
	.psect	code	,ro,i,lcl,rel,con

pdpbuf::mov	#buf	,r0
	mov	#4000/1000,r1
	return

	.end
