.ENABLE SUBSTITUTION
.ENABLE DATA
;
;	BUILD FILE FOR XMITR.TSK
;
.ASK ASSM DO YOU WANT TO REASSEMBLE ALL THE MODULES
.IFF ASSM .GOTO SINGLE
.ASK LIST DO YOU WANT LISTINGS
.OPEN XMTFTN.CMD
.IFF LIST .GOTO ASMONLY
XMITR,SP:XMITR=XMITR/NOTR/NOCK/CO:6
ABREAK,SP:ABREAK=ABREAK/NOTR/NOCK/CO:6
ASCII8,SP:ASCII8=ASCII8/NOTR/NOCK/CO:6
BREAK,SP:BREAK=BREAK/NOTR/NOCK/CO:6
CLSFIL,SP:CLSFIL=CLSFIL/NOTR/NOCK/CO:6
COPYMD,SP:COPYMD=COPYMD/NOTR/NOCK/CO:6
CTLCHR,SP:CTLCHR=CTLCHR/NOTR/NOCK/CO:6
CTLSUB,SP:CTLSUB=CTLSUB/NOTR/NOCK/CO:6
DELAY,SP:DELAY=DELAY/NOTR/NOCK/CO:6
ECHO,SP:ECHO=ECHO/NOTR/NOCK/CO:6
ENQUE,SP:ENQUE=ENQUE/NOTR/NOCK/CO:6
FORMAT,SP:FORMAT=FORMAT/NOTR/NOCK/CO:6
HELP,SP:HELP=HELP/NOTR/NOCK/CO:6
INPFIL,SP:INPFIL=INPFIL/NOTR/NOCK/CO:6
OPNGET,SP:OPNGET=OPNGET/NOTR/NOCK/CO:6
OPNPUT,SP:OPNPUT=OPNPUT/NOTR/NOCK/CO:6
OUTFIL,SP:OUTFIL=OUTFIL/NOTR/NOCK/CO:6
PROMPT,SP:PROMPT=PROMPT/NOTR/NOCK/CO:6
READST,SP:READST=READST/NOTR/NOCK/CO:6
REDEF,SP:REDEF=REDEF/NOTR/NOCK/CO:6
SETUP,SP:SETUP=SETUP/NOTR/NOCK/CO:6
STATUS,SP:STATUS=STATUS/NOTR/NOCK/CO:6
STOPIT,SP:STOPIT=STOPIT/NOTR/NOCK/CO:6
.CLOSE XMTFTN.CMD
F4P @XMTFTN.CMD
.;
.OPEN XMTMAC.CMD
GETSQ,SP:GETSQ=GETSQ
ICNT,SP:ICNT=ICNT
ITTOUR,SP:ITTOUR=ITTOUR
TTYOUT,SP:TTYOUT=TTYOUT
TWAIT,SP:TWAIT=TWAIT
.CLOSE XMTMAC.CMD
MAC @XMTMAC
.;
.GOTO LINK
.;
.ASMONLY:
.;
XMITR=XMITR/NOTR/NOCK/CO:6
ABREAK=ABREAK/NOTR/NOCK/CO:6
ASCII8=ASCII8/NOTR/NOCK/CO:6
BREAK=BREAK/NOTR/NOCK/CO:6
CLSFIL=CLSFIL/NOTR/NOCK/CO:6
COPYMD=COPYMD/NOTR/NOCK/CO:6
CTLCHR=CTLCHR/NOTR/NOCK/CO:6
CTLSUB=CTLSUB/NOTR/NOCK/CO:6
DELAY=DELAY/NOTR/NOCK/CO:6
ECHO=ECHO/NOTR/NOCK/CO:6
ENQUE=ENQUE/NOTR/NOCK/CO:6
FORMAT=FORMAT/NOTR/NOCK/CO:6
HELP=HELP/NOTR/NOCK/CO:6
INPFIL=INPFIL/NOTR/NOCK/CO:6
OPNGET=OPNGET/NOTR/NOCK/CO:6
OPNPUT=OPNPUT/NOTR/NOCK/CO:6
OUTFIL=OUTFIL/NOTR/NOCK/CO:6
PROMPT=PROMPT/NOTR/NOCK/CO:6
READST=READST/NOTR/NOCK/CO:6
REDEF=REDEF/NOTR/NOCK/CO:6
SETUP=SETUP/NOTR/NOCK/CO:6
STATUS=STATUS/NOTR/NOCK/CO:6
STOPIT=STOPIT/NOTR/NOCK/CO:6
.CLOSE XMTFTN.CMD
.;
.XQT F4P @XMTFTN
.;
.OPEN XMTMAC.CMD
TTYOUT=TTYOUT
ITTOUR=ITTOUR
TWAIT=TWAIT
ICNT=ICNT
GETSQ=GETSQ
.CLOSE XMTMAC
.;
MAC @XMTMAC
.;
.WAIT F4P
.;
.GOTO LINK
.;
.SINGLE:
.ASK SING DO YOU WANT TO ASSEMBLE A SINGLE MODULE
.IFF SING .GOTO LINK
.SETS NULL ""
.;
.ASMLOP:
.;
.ASKS FORT ENTER NAME OF FORTRAN MODULE
.IF FORT = NULL .GOTO MACASK
F4P 'FORT'='FORT'/NOTR/NOCK/CO:6
.GOTO ASMLOP
.;
.MACASK:
.;
.ASKS MACR ENTER NAME OF MACRO MODULE
.IF MACR = NULL .GOTO LINK
MAC 'MACR'='MACR'
.GOTO MACASK
.;
.LINK:
.OPEN XMTMAP.ODL
;
;	OVERLAY DESCRIPTION FOR XMITR.TSK
;
;	WRITTEN  10/26/79 BY MICHAEL LAMPI
;
	.ROOT	XMITR-ENQUE-ABREAK-TTYOUT-ITTOUR-TWAIT-ICNT-ROOT2
ROOT2:	.FCTR	LB:[1,1]SYSLIB/LB-CTLSUB-GETSQ-*(TREE1,TREE2)
;
TREE1:	.FCTR	READST-*(CLSFIL-*(OPNPUT,OPNGET),HELP,FORMAT,BRNCH)
BRNCH:	.FCTR	BREAK,PROMPT,ASCII8,COPYMD,ECHO,CTLCHR,BRNCH2
BRNCH2: .FCTR	DELAY,STATUS,REDEF
;
TREE2:	.FCTR	SETUP,OUTFIL-INPFIL-*(STOPIT,CLSFIL)
;
	.END
.CLOSE XMTMAP.ODL
.;
.;
.OPEN XMTTKB.CMD
XMITR/PR:0=XMTMAP/MP
;LIBR=FCSRES:RO
;COMMON=TERMS:RW
MAXBUF=512
TASK=...XMT
ASG=SY:4
ASG=TI:5
ASG=TI:6
UNITS=7
PRI=10
//
.CLOSE XMTTKB.CMD
TKB @XMTTKB
PIP XMTMAP.ODL;*,XMTTKB.CMD;*,XMTMAC.CMD;*,XMTFTN.CMD;*/DE
REM ...XMT
INS XMITR
