.ENABLE SUBSTITUTION
.ENABLE ESCAPE
.SETS TASK "SSA"
;
;		SSA Assembler Build Command File
;
;		Builds the "SSA" task from scratch
;
;
.SETS $UIC <UIC>
.SETS $DISK <SYDISK>
.SETN UNIT <SYUNIT>
.SETF LIB
.SETF FCS
.DEVICE:
.ASK LIB DO YOU WISH TO BUILD THE NON-FCSRES VERSION OF THE ASSEMBLER
.IFF LIB .ASK FCS DO YOU WISH TO BUILD THE FCSRES VERSION OF THE ASSEMBLER
.IFT LIB .ASK FCS DO YOU WISH TO BUILD THE FCSRES VERSION OF THE ASSEMBLER ALSO
;
;	The resulting task or tasks will be placed in uic [67,54] 
;	on '$DISK''UNIT':
;	If a copy of the tasks are needed on another device, such as the
;	SYSTEM disk then answer the next question with that device.
;	A CARRAGE RETURN will indicate no other device.
;
;Enter target DEVICE and UNIT number for the 
.ASKS DV additional 'TASK' modules.
.IF <STRLEN> EQ 0 .SETS DV "NL"
ASN 'DV':=TK:
.IF <STRLEN> EQ 0 .GOTO PROCES
.TESTFILE 'DV':[0,0]INDEXF.SYS
.IF <FILERR> NE 1 .GOTO DSKERR
.PROCES:
;
.ASKS LDV Enter the DEVICE and UNIT number for listings ( default = NL:)
.IF <STRLEN> EQ 0  .SETS LDV "NL"
ASN 'LDV':=LS:
.IF LDV EQ "NL" .GOTO MAPS
.TESTFILE LS:[0,0]INDEXF.SYS
.IF <FILERR> NE 1 .GOTO DSKERR
;
.MAPS:
.ASKS MAPS Enter the DEVICE and UNIT number for maps ( default = NL:)
.IF <STRLEN> EQ 0  .SETS MAPS "NL"
ASN 'MAPS':=MP:
.IF MAPS EQ "NL" .GOTO SETUP
.TESTFILE MP:[0,0]INDEXF.SYS
.IF <FILERR> EQ 1 .GOTO SETUP
;
.DSKERR:
;
;	*****	Device not Mounted or Allocated
;
.GOTO DONE
.SETUP:
SET /UIC=[67,24]
;
;		Assemble all macro files
;
PIP [67,20]*.OBJ;*/DE
.IF LDV NE "NL" PIP LS:[67,30]*.LST;*/DE
.TESTFILE [67,20]SSAMAC.OLB
.IF <FILERR> EQ 1 PIP [67,20]SSAMAC.OLB;*/DE
.TESTFILE [67,20]SSAMACOLB.DIR
.IF <FILERR> EQ 1 PIP [67,20]SSAMACOLB.DIR;*/DE
.ASK ORIG DO WE HAVE ALL OF THE .MAC FILES NEEDED IN [67,10]
.IFT ORIG .GOTO 23
;MOUNT THE DEC UTILITIES SOURCE DISK NO 2 (BL26SRC2). 
.ASKS SRCDSK WHAT DISK IS THIS (EX DK0:)
PIP [30,10]='SRCDSK'[30,10]
SLP @[67,40]ASSEM.SLP
SLP @[67,40]CODHD.SLP
SLP @[67,40]CRFFIL.SLP
SLP @[67,40]EXPRS.SLP
SLP @[67,40]MACRO.SLP
SLP @[67,40]MLIBS.SLP
SLP @[67,40]SETDN.SLP
SLP @[67,40]CRFIO.SLP
SLP @[67,40]ENDPS.SLP
SLP @[67,40]FLGDF.SLP
SLP @[67,40]FLOAT.SLP
SLP @[67,40]GETLN.SLP
SLP @[67,40]INFIL.SLP
SLP @[67,40]INIFL.SLP
SLP @[67,40]INOFL.SLP
SLP @[67,40]LSTNG.SLP
SLP @[67,40]MCIOCH.SLP
SLP @[67,40]MPARAM.SLP
SLP @[67,40]MSCDR.SLP
SLP @[67,40]OPTERR.SLP
SLP @[67,40]PROCSI.SLP
SLP @[67,40]PST.SLP
SLP @[67,40]ROLHD.SLP
SLP @[67,40]RSDAT.SLP
SLP @[67,40]RSEXEC.SLP
.23:
MAC @SSAMACMAC
;
;		Build SSA Assembler Object Library File
;
PIP [67,20]SSAMAC.OBS=[67,20]*.OBJ
PIP [67,20]*.OBJ;*/DE
LBR [67,20]SSAMAC/CR:250.:128./-EP=[67,20]SSAMAC.OBS
.WAIT LBR
LBR [67,20]SSAMAC.OLB,SSAMACOLB.DIR/LE/FU/-SP
.WAIT LBR
PIP [67,20]SSAMAC.OLB/PU
PIP [67,20]SSAMAC.OLB/TR
PIP [67,20]SSAMAC.OBS;*/DE
.IFF FCS GOTO NFCS
;
;		Build task using FCS Resident Library
;
.IF LDV EQ "NL" .GOTO 100
.TESTFILE MP:[67,34]SSAMACFCS.MAP
.IF <FILERR> EQ 1 PIP MP:[67,34]SSAMACFCS.MAP;*/DE
.100:
.TESTFILE [67,54]SSAMACFCS.TSK
.IF <FILERR> EQ 1 PIP [67,54]SSAMACFCS.TSK;*/DE
TKB @SSAMACFCS
.WAIT TKB
.IF LDV NE "NL" PIP MP:[67,34]SSAMACFCS.MAP/TR
PIP [67,54]SSAMACFCS.TSK/TR
.IF DV NE "NL" PIP TK:[67,54]/NV=[67,54]SSAMACFCS.TSK
.NFCS:
.IFF LIB GOTO DONE
;
;		Build task using System Library
;
.IF LDV EQ "NL" .GOTO 200
.TESTFILE MP:[67,34]SSAMACSLB.MAP
.IF <FILERR> EQ 1 PIP MP:[67,34]SSAMACSLB.MAP;*/DE
.200:
.TESTFILE [67,54]SSAMACSLB.TSK
.IF <FILERR> EQ 1 PIP [67,54]SSAMACSLB.TSK;*/DE
TKB @SSAMACSLB
.WAIT TKB
.IF LDV NE "NL" PIP MP:[67,34]SSAMACSLB.MAP/TR
PIP [67,54]SSAMACSLB.TSK/TR
.IF DV NE "NL" PIP TK:[67,54]/NV=[67,54]SSAMACSLB.TSK
;
;		Linker Build Complete
;
.DONE:
ASN =
SET /UIC='$UIC'
.EXIT
