.title	K11XM	Set virtual bit in JSW for Kermit-11 and XM execs
	.ident	/1.0.01/

;	19-May-86  11:20:33 Brian Nelson


	.asect
	.	=	44
	.word	2000!1000		; Virtual + overlayed

	.psect	$RTQUE	,RW,D,GBL,REL,OVR
	.psect	hnbuff	,RW,D,LCL,REL,CON
xmflow::
	.blkb	2			; Use /E:nnnn to expand
	.psect	hnbend	,RW,D,LCL,REL,CON
xmftop::.blkb	2

	.psect	CLECTX	,RW,D,GBL,REL,CON
	.psect	MAPWIN	,RW,D,GBL,REL,CON
	.psect	$RWDAT	,RW,D,GBL,REL,CON
	.psect	$CODE 	,RO,I,LCL,REL,CON
	.psect	$PDATA	,RO,D,LCL,REL,CON
	.psect	USERMD	,RW,D,GBL,REL,CON
	.psect	RTDIR1	,RW,D,GBL,REL,CON
	.psect	RTIODA	,RW,D,LCL,REL,CON
	.psect	SCCADA	,RW,D,LCL,REL,CON
	.psect	SCCAIN	,RO,I,LCL,REL,CON
	.psect	$code	,ro,i,lcl,rel,con

xmstar::call	mapini
	call	kermit			; In case we force transfer address

	.end