.ENABLE SUBSTITUTION .SETS UIC .IF NE "[]" .SETS UIC ! Named directories enabled .SETS CLI .SETS MCR "" .IF <> "MCR" .SETS MCR "MCR " .ASK ASM Assemble FDC .ASK LINK Taskbuild FDC .ASK CLNUP Cleanup after succesful Taskbuild .IFF ASM .GOTO TKB .MAC: .SETN STATUS .SETS ODT "" .SETS CRFNLS "/CR:SYM:MAC:REG:PST" .IF P1 <> "DEBUG" .GOTO NODBG .SETS ODT "/DA" .SETS CRFNLS "/CR:SYM/NL:BEX:TOC:SYM:CND:MD" .NODBG: .OPEN FDC.ASM .DATA FDC,FDC/-SP'CRFNLS'=LB:[1,1]EXEMC/ML,SY:'UIC'FDC .CLOSE 'mcr'MAC @FDC.ASM .SETN STATUS .IF STATUS NE .EXIT STATUS .TKB: .IFF LINK .GOTO CLEAN .OPEN FDC.BLD .DATA FDC/CP/-FP'ODT',FDC/CR/-SP/-SH=FDC .DATA / .DATA UNITS=3 .DATA TASK=...FDC .DATA STACK=200 .SETF fcsfsl ! Assume FSL false .SETF fcsres ! Assume RES false .TESTFILE lb:[1,1]fcsfsl.tsk ! Look for the FSL Library .IF NE .GOTO tstres ! Not present, can''t use it .TESTFILE lb:[1,1]fcsfsl.stb ! Look for the symbol table .IF NE .GOTO tstres ! Not present, can''t use it .SETT fcsfsl ! Now we have all needed for .; ! FCS supervisor mode library ; Linking Task to Supervisor Mode FCS Library .GOTO FCSLIB .TSTRES: .TESTFILE lb:[1,1]fcsres.tsk ! Look for the RES Library .IF NE .GOTO nores ! Not present, can''t use it .TESTFILE lb:[1,1]fcsres.stb ! Look for the symbol table .IF NE .GOTO nores ! Not present, can''t use it .SETT fcsres ! Now we have all needed for .; ! FCS resident library ; Linking FDC to resident FCS-Library .GOTO FCSLIB .NORES: ; Linking FDC to normal FCS-Library .FCSLIB: .IFT FCSFSL .DATA SUPLIB=FCSFSL:SV .IFT FCSRES .DATA LIBR=FCSRES:RO .CLOSE 'mcr'TKB @FDC.BLD .SETN STATUS .IF STATUS NE .EXIT STATUS .CLEAN: .IFF CLNUP .EXIT STATUS 'mcr'PIP FDC.OBJ;*/DE/NM,FDC.LST;*,FDC.CRF;*,FDC.MAP;*,FDC.ASM;*,FDC.BLD;* 'mcr'PIP FDC.TSK/PU/NM .SETN STATUS .EXIT STATUS