;
;		BUILD THE SSA FLX (SLX) FROM SCRATCH
;
;	***		ASSEMBLE ALL MODULES		***
;
;
.ENABLE SUBSTITUTION
SET /UIC=[33,24]
.SETS LS "NL"
;THIS DISK ('<SYDISK>''<SYUNIT>':) WILL NOT HOLD THE LISTINGS SO IF YOU
.ASKS LST WANT THEM SPECIFY THE UNIT HERE.  DEFAULT = NL:
.IF LST = "" .GOTO 10
.SETS LS LST[1:3]
.10: ASN 'LS':=LS: 
.IF LS <> "NL" PIP LS:[33,30]*.LST;*/DE
SLP @[33,40]OUTBLK.SLP
SLP @[33,40]XXXCB.SLP
MAC @SSASLXASM
;	BUILD THE SSA FLX (SLX) OBJECT LIBRARY FILE
;
PIP SSASLX.OBS=[33,20]*.OBJ
PIP [33,20]*.OBJ;*/DE
SET /UIC=[33,20]
PIP SSASLX.OLB;*/DE
LBR SSASLX/CR::::OBJ=[33,24]SSASLX.OBS
.WAIT LBR
SET /UIC=[33,24]
PIP SSASLX.OBS;*/DE
;	SSA FLX (SLX) TASK BUILD
;
PIP [33,34]SSASLX.MAP;*/DE
PIP [33,54]SSASLX.TSK;*/DE
TKB @SSASLXBLD
.WAIT TKB
.ASK PRINT DO YOU WANT THE MAP PRINTED
.IFT PRINT PIP [33,34]*.MAP/SP
SET /UIC=[33,24]
