.ENABLE SUBSTITUTION .ENABLE SUBSTITUTION .SETS MCR "" .IF NE "MCR" .SETS MCR "MCR " .SETS LI "" .SETS MP "" .IFDF $ASM .GOTO START .SETF $MAP .SETF $LIST .IFNDF $TKB .SETF $TKB .IFNDF $ASM .SETF $ASM .SETF $TKB .ASK $ASM ASSEMBLE .IFT $ASM .ASK $LIST LIST .IFT $LIST .SETS LI ",TI:" .START: .IFT $ASM 'mcr'PIP GREP.OBJ;*/DE .IFT $ASM 'mcr'MAC GREP'LI'=GREP .IFT $ASM 'mcr'MAC PRFCS'LI'=PRFCS .IFT $ASM 'mcr'MAC DIRDL'LI'=DIRDL .IFT $ASM 'mcr'MAC WLDCRD'LI'=WLDCRD .IFT $TKB .GOTO START2 .ASK $TKB TASKBUILD .IFT $TKB .ASK $MAP MAP .IFT $MAP .SETS MP ",TI:" .START2: .IFF $TKB .EXIT .SETF fcsfsl ! Assume FSL false .SETF fcsres ! Assume RES false .TSTFSL: .TESTFILE lb:[1,1]fcsfsl.tsk ! Look for the FSL Library .IF NE 1 .GOTO tstres ! Not present, can''t use it .TESTFILE lb:[1,1]fcsfsl.stb ! Look for the symbol table .IF NE 1 .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 NE 1 .GOTO nores ! Not present, can''t use it .TESTFILE lb:[1,1]fcsres.stb ! Look for the symbol table .IF NE 1 .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: 'mcr'PIP GREP.TSK;*/DE .OPEN GREPBLD.CMD .DATA GREP/CP/-FP=GREP,PRFCS,DIRDL .DATA WLDCRD,LB:[1,24]PIPUTL/LB .DATA / .DATA ASG=TI:2:3 .DATA ASG=SY:1 .DATA UNITS=3 .;ACTFIL=8 READ/WRITE 4 BLOCKS AT A TIME .DATA ACTFIL=8 .DATA STACK=64 .DATA TASK=...GRE .IFT FCSFSL .DATA SUPLIB=FCSFSL:SV .IFT FCSRES .DATA LIBR=FCSRES:RO .DATA / .CLOSE 'mcr'TKB @GREPBLD 'mcr'PIP GREPBLD.CMD;*/DE,GREP.OBJ;1