.; This command file compiles and builds the STB symbol table lister
.; task. from B. Z. Lederman
.;
.; STB.CMD by Volker Huck, 23-Aug-1989
.;
.ENABLE SUBSTITUTION
.SETS MCR ""
.IF <CLI> NE "MCR" .SETS MCR "MCR "
.;
.;
'mcr'F77 STB, STB/-SP = STB/TR:ALL
.;
	.IF <SUCCES> NE <EXSTAT>&7 .GOTO END
;
; Looking for possible FCS Libraries
;
	.SETF fcsfsl				! Assume FSL false
	.SETF fcsres				! Assume RES false

.TSTFSL:
	.TESTFILE lb:[1,1]fcsfsl.tsk		! Look for the FSL Library
	.IF <FILERR> NE <SUCCES> .GOTO tstres	! Not present, can''t use it
	.TESTFILE lb:[1,1]fcsfsl.stb		! Look for the symbol table
	.IF <FILERR> NE <SUCCES> .GOTO tstres	! Not present, can''t use it
	.SETT fcsfsl				! Now we have all needed for
.;						! supervisor mode FCS support
;
; Linking Task to Supervisor Mode FCS Library
;
	.GOTO FCSEND

.TSTRES:
	.TESTFILE lb:[1,1]fcsres.tsk		! Look for the RES Library
	.IF <FILERR> NE <SUCCES> .GOTO nores	! Not present, can''t use it
	.TESTFILE lb:[1,1]fcsres.stb		! Look for the symbol table
	.IF <FILERR> NE <SUCCES> .GOTO nores	! Not present, can''t use it
	.SETT fcsres				! Now we have all needed for
.;						! resident FCS support
;
; Linking Task to resident FCS-Library
;
	.GOTO FCSEND
.NORES:
;
; Linking Task to normal FCS-Library
;
.FCSEND:
.OPEN STBBLD.CMD
.DATA ; Task build file for STB symbol table lister task. This assumes that
.DATA ; the fortran OTS modules are in a seperate library. If they are
.DATA ; not in [1,1] change the UIC or library name. If they are in
.DATA ; SYSLIG, change the libarary name or remove the references.
.DATA ; B. Z. Lederman
.DATA ;
.DATA STB/FP,STB/-SP/MA=STB,LB:[1,1]F77FCS/LB
.DATA /
.IFT FCSFSL .DATA SUPLIB=FCSFSL:SV
.IFT FCSRES .DATA LIBR=FCSRES:RO
.DATA TASK=...STB
.DATA //
.CLOSE
.;
'mcr'TKB @STBBLD
.;
.END:
'mcr'PIP STB*.*/PU