.ENABLE SUBSTITUTION
.SETF LIST
.IF P1 EQ "LIST" .SETT LIST
;
;	BUILD FILE FOR XMITR.TSK
;
.SETS FILE "XMITR"
.GOSUB COMP
.SETS FILE "ABREAK"
.GOSUB COMP
.SETS FILE "ASCII8"
.GOSUB COMP
.SETS FILE "BREAK"
.GOSUB COMP
.SETS FILE "CLSFIL"
.GOSUB COMP
.SETS FILE "COPYMD"
.GOSUB COMP
.SETS FILE "CTLCHR"
.GOSUB COMP
.SETS FILE "CTLSUB"
.GOSUB COMP
.SETS FILE "DELAY"
.GOSUB COMP
.SETS FILE "DIAL"
.GOSUB COMP
.SETS FILE "ECHO"
.GOSUB COMP
.SETS FILE "ENQUE"
.GOSUB COMP
.SETS FILE "FORMAT"
.GOSUB COMP
.SETS FILE "HELP"
.GOSUB COMP
.SETS FILE "INPFIL"
.GOSUB COMP
.SETS FILE "OPNGET"
.GOSUB COMP
.SETS FILE "OPNPUT"
.GOSUB COMP
.SETS FILE "OUTFIL"
.GOSUB COMP
.SETS FILE "PROMPT"
.GOSUB COMP
.SETS FILE "READST"
.GOSUB COMP
.SETS FILE "REDEF"
.GOSUB COMP
.SETS FILE "SETUP"
.GOSUB COMP
.SETS FILE "STATUS"
.GOSUB COMP
.SETS FILE "STOPIT"
.GOSUB COMP
.SETS FILE "GETSQ"
.GOSUB ASSEM
.SETS FILE "ICNT"
.GOSUB ASSEM
.SETS FILE "ITTOUR"
.GOSUB ASSEM
.SETS FILE "TTYOUT"
.GOSUB ASSEM
.SETS FILE "TWAIT"
.GOSUB ASSEM
.LINK:
PIP *.OBJ/PU
PIP XMITR.TSK;*/DE/NM
.ASK FCS USE FCSRES
.OPEN XMTMAP.ODL
.ENABLE DATA
;
;	OVERLAY DESCRIPTION FOR XMITR.TSK
;
;	WRITTEN  10/26/79 BY MICHAEL LAMPI
;	MODIFIED 03/01/83 BY JEFF HAMILTON
;
	.ROOT	XMITR-ENQUE-ABREAK-TTYOUT-ITTOUR-TWAIT-ICNT-ROOT2
ROOT2:	.FCTR	LB:[1,1]SYSLIB/LB-CTLSUB-READST-GETSQ-*(TREE1,TREE2)
;
TREE1:	.FCTR	*(CLSFIL-*(OPNPUT,OPNGET),HELP,FORMAT,BRNCH)
BRNCH:	.FCTR	BREAK,PROMPT,ASCII8,COPYMD,ECHO,CTLCHR,BRNCH2
BRNCH2: .FCTR	DELAY,STATUS,REDEF
;
TREE2:	.FCTR	SETUP-DIAL,OUTFIL-INPFIL-*(STOPIT,CLSFIL)
;
	.END
.DISABLE DATA
.CLOSE XMTMAP.ODL
.;
.;
.IFT LIST .SETS LIS ",XMITR/-SP"
.IFF LIST .SETS LIS ""
.OPEN XMTTKB.CMD
.DATA XMITR/PR:0/-CP'LIS'=XMTMAP/MP
.IFT FCS .DATA LIBR=FCSRES:RO
.ENABLE DATA
;COMMON=TERMS:RW
MAXBUF=512
TASK=...XMT
UNITS=7
ASG=SY:1
ASG=SY:2
ASG=SY:3
ASG=SY:4
ASG=TI:5
ASG=TI:6
ASG=SY:7
PRI=70
//
.DISABLE DATA
.CLOSE XMTTKB.CMD
TKB @XMTTKB
.IF <EXSTAT> NE 1 .EXIT
PIP XMTMAP.ODL;*,XMTTKB.CMD;*,XMTMAC.CMD;*,XMTFTN.CMD;*/DE/NM
.EXIT
.COMP:
	.TESTFILE 'FILE'.FTN
	.IF <FILERR> NE 1 ;'FILE'.FTN NOT FOUND
	.IF <FILERR> NE 1 .RETURN
	.TESTFILE 'FILE'.OBJ
	.IF <FILERR> EQ 1 .RETURN
	.IFF LIST .SETS LIS ""
	.IFT LIST .SETS LIS ",'FILE'/-SP"
	F77 'FILE''LIS'='FILE'/NOTR/NOCK/CO:6
	.IF <EXSTAT> NE 1 ; ERROR DURING COMPILE
	.IF <EXSTAT> NE 1 .EXIT
	.RETURN
.ASSEM:
	.TESTFILE 'FILE'.MAC
	.IF <FILERR> NE 1 ;'FILE'.MAC NOT FOUND
	.IF <FILERR> NE 1 .RETURN
	.TESTFILE 'FILE'.OBJ
	.IF <FILERR> EQ 1 .RETURN
	.IFF LIST .SETS LIS ""
	.IFT LIST .SETS LIS ",'FILE'/-SP"
	MAC 'FILE''LIS'='FILE'
	.IF <EXSTAT> NE 1 ; ERROR DURING ASSEMBLY
	.IF <EXSTAT> NE 1 .EXIT
	.RETURN
