.psect	data,long
secfab:	$FAB	fnm=<DRA0:[SYSEXE]PLOTQSECT.EXE>, -
	fop=<ufo,cif,ctg>,alq=20
section: 
	.blkb	10752
jbcsect:
	.blkb	102400
	.psect	code
	.entry	useropen,^M<r2,r3>
	$create	fab=secfab
	movw	r0,@8(ap)
	movl	secfab+fab$l_stv,@4(ap)
	ret
	.entry	addr1,^M<r2,r3>
	movl	4(ap),r3
	moval	section,r2
	addl2	#511,r2
	movl	r2,(r3)+
	addl	#10240,r2
	movl	r2,(r3)
	ret
	.entry	addr2,^M<r2,r3>
	moval	jbcsect,r2
	movl	4(ap),r3
	addl	#511,r2
	movl	r2,(r3)+
	addl	#101888,r2
	movl	r2,(r3)
	ret
	.end