.ROOT	MYCODE,FCSM,VMSUB,VMCOD1,VMCOD2
 
MYCODE:	.FCTR	[1,24]MLTUSR/LB:ACNT-[1,24]MCR/LB:ACTFIL-SYSRES
 
	.NAME	VMSUBS
VMSUB:	.FCTR	VMSUBS-*[1,1]VMLIB/LB:ALVRT:RQVCB:ALBLK:GTCOR-VMSUB1
VMSUB1:	.FCTR	LB:[1,1]SYSLIB/LB:SAVVR
	.NAME	VIRT1
VMCOD1:	.FCTR	VIRT1-*(VMCD1A,VMCD1B,VMCD1C)
VMCD1A:	.FCTR	[1,1]VMLIB/LB:CVRL
VMCD1B:	.FCTR	[1,1]VMLIB/LB:INIVM
VMCD1C:	.FCTR	[1,1]VMLIB/LB:MRKPG
	.NAME	VIRT2
VMCOD2:	.FCTR	VIRT2-*(VMCD2A,VMCD2B,VMCD2C)
VMCD2A:	.FCTR	[1,1]VMLIB/LB:EXTSK
VMCD2B:	.FCTR	[1,1]VMLIB/LB:FNDPG
VMCD2C:	.FCTR	[1,1]VMLIB/LB:RDPAG-SYS
 
SYSRES:	.FCTR	SYSRS1-SYSRS2-VMDAT-MCRSUB-EXEDF-STB
SYSRS1:	.FCTR	LB:[1,1]SYSLIB/LB:SAVR1:.ODCVT:RQLCB:FCSFSR:SAVRG:VCTDF
SYSRS2:	.FCTR	LB:[1,1]SYSLIB/LB:XQIOI:WAITI
VMDAT:	.FCTR	[1,1]VMLIB/LB:VMDAT
SYS:	.FCTR	[1,1]EXELIB/LB-LB:[1,1]SYSLIB/LB
MCRSUB:	.FCTR	[1,24]MCR/LB:GETNUM:$FDUCB
EXEDF:	.FCTR	[1,1]EXELIB/LB:EXEDF
 
STB:	.FCTR	[1,54]RSX11M.STB
 
;******************* ALL OVERLAY CODE BELOW HERE IS FCS ******************
FCSM:	.FCTR	FCSCM-*(OPENM,PUTLEG,WRTLEG,CLOSE)
FCSCM:	.FCTR	F1-F2-F3-F4
F1:	.FCTR	LB:[1,1]SYSLIB/LB:FCSGBL:BKRG:COMMON
F2:	.FCTR	LB:[1,1]SYSLIB/LB:BDBREC:FINIT:RDWAIT:WTWAIT:CKALOC
F3:	.FCTR	LB:[1,1]SYSLIB/LB:WATNOD:RWBLK:EOFCHK:WATSET:ANSPAD:RSTFDB
F4:	.FCTR	LB:[1,1]SYSLIB/LB:RETADR
	.NAME	OPNLEG
OPENM:	.FCTR	OPNLEG-(OPENNA,OPENFN)
OPENNA:	.FCTR	LB:[1,1]SYSLIB/LB:OPEN-OPNSB1
OPENFN:	.FCTR	LB:[1,1]SYSLIB/LB:OPFNB-OPNSB2
OPNSB1:	.FCTR	OPNSBA-*(CREAT,DELET,PARS)
OPNSB2:	.FCTR	OPNSBA-*(CREAT,DELET)
OPNSBA:	.FCTR	LB:[1,1]SYSLIB/LB:ASSLUN:DIRECT:MKDL
CREAT:	.FCTR	LB:[1,1]SYSLIB/LB:CREATE
DELET:	.FCTR	LB:[1,1]SYSLIB/LB:DEL
PARS:	.FCTR	LB:[1,1]SYSLIB/LB:PARSE:ASCR50-*(PARDIR,PARDEV,PARNAM)
PARDIR:	.FCTR	LB:[1,1]SYSLIB/LB:PARSDI:PPNASC-DIR
DIR:	.FCTR	LB:[1,1]SYSLIB/LB:PARDI-DIRF
DIRF:	.FCTR	LB:[1,1]SYSLIB/LB:ASCPPN-LB:[1,1]SYSLIB/LB:DIFND-DIRFN
DIRFN:	.FCTR	LB:[1,1]SYSLIB/LB:DIRFND
PARDEV:	.FCTR	LB:[1,1]SYSLIB/LB:PARSDV
PARNAM:	.FCTR	LB:[1,1]SYSLIB/LB:PARSFN
PUTLEG:	.FCTR	LB:[1,1]SYSLIB/LB:PUTSQ:MOVREC:PGCS
WRTLEG:	.FCTR	LB:[1,1]SYSLIB/LB:WRITE:RDWRIT:RWLONG
CLOSE:	.FCTR	LB:[1,1]SYSLIB/LB:CLOSE
 
	.END