.; .; Command file for assembling and building the .; RTRRSX router. .; .; The command file will also ask if you wish to .; build a new routing database. .; .ENABLE SUBSTITUTION .ASK IASM Do you want to assemble .ASK ITKB Do you want to taskbuild .ASK IDBS Do you want to build a new database .IFT IDBS .SETT ITKB .IFF IASM .GOTO GO .ASK LST Do you want an assembly listing .IFT LST .SETS LIST ",RTRRSX/-SP" .IFF LST .SETS LIST "" .GO: .IFF ITKB .GOTO GO1 .ASK ODT Do you want ODT .ASKN [1.:64.:8.] LUNS What is the maximum number of remote nodes to connect to .IFT ODT .SETS ODT1 "/DA" .IFF ODT .SETS ODT1 "" .GO1: .; .; DATABASE ASSEMBLY AND TASKBUILD .; .IFF IDBS .GOTO ASSM MAC RTRDBS,RTRDBS/LI:ME/-SP=[1,1]NETLIB.MLB/ML,''QUEUE.MLB/ML,''RTRDBS .; .OPEN RTRDBSBLD.CMD .ENABLE DATA RTRDBS/CO/-PI/-HD,RTRDBS/-SP,RTRDBS=RTRDBS / PAR=RTRDBS:40000:60000 ; MAP WITH APRS 2, 3, AND 4 (12K WORDS MAX). STACK=0 ; IF APR MAPPING CHANGED, ALSO CHANGE APR // ; IN ''WDB:'' OF TASKS FNDSRV AND NRBDMP .DISABLE DATA .CLOSE RTRDBSBLD.CMD TKB @RTRDBSBLD PIP RTRDBSBLD.CMD;*/DE PIP RTRDBS.*;*/PU .; .; .; ASSEMBLY .; .ASSM: .IFF IASM .GOTO NOASM MAC RTRRSX'LIST'=[1,1]NETLIB.MLB/ML,''QUEUE.MLB/ML,''RTRRSX .IF NE 1 .EXIT .; .; TASK BUILD .; .NOASM: .IFF ITKB .GOTO NOTKB .; .; NOTE: The logical unit numbers 4 to N+3 are the logical unit .; numbers assigned to different tasks on the N remote .; nodes. The logical unit number 3 is used for .; unsolicited messages from the network. .; .SETN TOTLUN LUNS+3. .OPEN RTRRSXBLD.CMD .ENABLE DATA RTRRSX/ID/-CP/FP'ODT1',RTRRSX/-SP=RTRRSX / WNDWS=1 .DISABLE DATA .DATA UNITS='TOTLUN' .SETN ILUN 4. .LUNLUP: .DATA ASG=NS:'ILUN' .INC ILUN .IF ILUN LE TOTLUN .GOTO LUNLUP .ENABLE DATA STACK=200 RESCOM=RTRDBS/RW ASG=TI:1 ASG=ZQ:2 ASG=NS:3 // .DISABLE DATA .CLOSE RTRRSXBLD.CMD .; TKB @RTRRSXBLD.CMD .; .NOTKB: .; .; CLEAN UP .; .; CREATE BACKUP COPY OF DATABASE IN CASE 'REM RTRDBS/REG' (V2.1 M-PLUS) .; CAUSES DATABASE IN MEMORY TO BE WRITTEN BACK TO RTRDBS.TSK ON DISK. .; DON'T WANT TO INSTALL A DATABASE ALREADY MODIFIED BY ROUTER. .; PIP RDBS.TSK=RTRDBS.TSK PIP RDBS.TSK/PU PIP RTRRSXBLD.CMD;*/DE/NM PIP RTRRSX.*/PU