OTSROT:	.FCTR	LB:[1,1]F4POTS/LB:$OTV
	.NAME	OTS
OTSALL:	.FCTR	OTS-OTSCM0,OTSFRT
	.NAME	OTSCOM
OTSCM0:	.FCTR	OTSCOM-OTSCM1-OTSCM2-*(OTSIO0,OTSMS0,OTSMT0)
OTSCM1:	.FCTR	LB:[1,1]F4POTS/LB:$ERRPT:$ERRLO:$ERRMO:$FPERR:$R50:$FPPUTI
OTSCM2:	.FCTR	LB:[1,1]F4POTS/LB:$SAVRG:$SHORT:$CGO
	.NAME	OTSIO
OTSIO0:	.FCTR	OTSIO-OTSIO1-OTSIO2-*(OTSOP0,OTSRW0)
OTSIO1:	.FCTR	LB:[1,1]F4POTS/LB:$FCHNL:$INITIO
OTSIO2:	.FCTR	LB:[1,1]F4POTS/LB:$ISF:$OSF:$IRU:$OSU
	.NAME	OTSOPN
OTSOP0:	.FCTR	OTSOPN-OTSOP1-*(OTSOP2,OTSOP3)
OTSOP1:	.FCTR	LB:[1,1]F4POTS/LB:$OPEN:$OPNSTM
OTSOP2:	.FCTR	LB:[1,1]F4POTS/LB:$FNBST
OTSOP3:	.FCTR	LB:[1,1]F4POTS/LB:$CLOSE:$CLSSTM
	.NAME	OTSRW
	.PSECT	$$FIOC,GBL,RO,I,CON
	.PSECT	$$FIOD,GBL,RO,D,CON
OTSRW0:	.FCTR	OTSRW-LB:[1,1]F4POTS/LB:$IOARY:$IOELEM-OTSRW1
OTSRW1:	.FCTR	OTSCNV-OTSGP-OTSFIO
OTSFIO:	.FCTR	LB:[1,1]F4POTS/LB:$FIO-$$FIOC-$$FIOD
OTSCNV:	.FCTR	LB:[1,1]F4POTS/LB:$CONVR:$CONVI:$CONVL
OTSGP:	.FCTR	LB:[1,1]F4POTS/LB:$GETS:$PUTS:$GETR:$CKRCN
	.NAME	OTSMTH
OTSMT0:	.FCTR	OTSMTH-LB:[1,1]F4POTS/LB:$SWPXY:$ISHFT:$JMIX:$JSHFT:$MLJ:$DVJ
OTSMS0:	.FCTR	OTSMS1
	.NAME	OTSINI
OTSMS1:	.FCTR	OTSINI-OTSIN1
OTSIN1:	.FCTR	LB:[1,1]F4POTS/LB:$OTI:$VINIT:$EXIT
OTSFRT:	.FCTR	OTSFCS-OTSFCM-*(OTSFOP,OTSFSQ,OTSFDA)
	.NAME	OTSFCS
OTSFCM:	.FCTR	LB:[1,1]SYSLIB/LB:SAVR1:PPNASC:.GCML
OTSFOP:	.FCTR	OTSFO1,OTSFO2,OTSFO3,OTSFO4
OTSFO1:	.FCTR	LB:[1,1]SYSLIB/LB:.CSI1:.CSI2
OTSFO2:	.FCTR	LB:[1,1]SYSLIB/LB:PARSE
OTSFO3:	.FCTR	LB:[1,1]SYSLIB/LB:OPFNB:FINIT
OTSFO4:	.FCTR	LB:[1,1]SYSLIB/LB:CLOSE:DLFNB:$PRINT:GETDID:MRKDL
OTSFSQ:	.FCTR	LB:[1,1]SYSLIB/LB:GETSQ:PUTSQ
OTSFDA:	.FCTR	LB:[1,1]SYSLIB/LB:GET:POSREC