$JOB SYSTEM BASIC 999
$SET DEF [14,106]
$!
$! PAUL D. CLAYTON RMS AT NADC, WARMINSTER, PA.
$!
$! THIS FILE WILL BUILD A MULTI-USER SHARED LIBRARY VERSION OF REESE'S
$! BASIC. THIS FILE IS A COMBINED FILE FROM ALL THE ONES DISTRIBUTED WITH
$! THE PROGRAM. IT DOES NOT DO ALL THE THINGS THAT REESE HAS MADE AVAILABLE
$! BUT IT WILL WORK. YOU CAN BUILD ON IT.
$!
$! I HAD PROBLEMS GETTING THE ERROR MESSAGES TO PRINT CORRECT AND FOUND THAT THE
$! FILE LB:[1,2]BASIC.MSG WAS FORMATTED WRONG. THE FORTRAN PROGRAM, "MSG.FTN"
$! WILL CREATE THE MESSAGE FILE INSTEAD OF USING THE BASIC PROGRAM 
$! "BASDOKMAK.BAS" WHICH IF IT HAS A PROBLEM YOU WON'T KNOW BECAUSE THERE IS
$! NO ERROR MESSAGE FILE IN LB:[1,2]. ITS THE OLD CAT CHASING ITS TAIL TRICK$!$!$!
$! ANYWAY, THE MSG.FTN PROGRAM WILL READ IN THE FILE 'BASIC.MES' AND WRITE
$! OUT A CORRECTLY FORMATTED FILE IN LB:[1,2]. IF YOU HAVE ANY PROBLEMS WITH
$! THIS FILE CALL ME AT (215) 441-2708. ANY QUESTIONS ABOUT THE BASIC CALL FRANK
$! BORGER AT (312) 791-2515. GOOD LUCK
$!
$DC
$ON ERROR CONTINUE
$!
$! FIRST ORDER OF BUSSINESS IS TO $REMOVE ANY INSTALLED COPIES OF BASIC FROM
$! THE SYSTEM.
$MCR REM ...BAS
$MCR REM $$$BAS
$MCR REM BASPUR/LI
$!
$! COMMAND FILE TO ASSEMBLE BASIC FOR USE UNDER RSX11D
$!
$MCR MAC IDNTFY,IDNTFY/-SP=BASPRE/PA:1,IDNTFY
$MCR MAC BASIC0,BASIC0/-SP/CR=BASPRE/PA:1,BASIC0
$MCR MAC BASIC1,BASIC1/-SP/CR=BASPRE/PA:1,BASIC1
$MCR MAC BASIC2,BASIC2/-SP/CR=BASPRE/PA:1,BASIC2
$MCR MAC BASIC3,BASIC3/-SP/CR=BASPRE/PA:1,BASIC3
$MCR MAC BASIC4,BASIC4/-SP/CR=BASPRE/PA:1,BASIC4
$MCR MAC CATB,CATB/-SP=CATB
$!
$! FOLLOWING MODULE IS FOR USE UNDER IAS V3 ONLY
$!
$MCR MAC SPAWN,SPAWN/-SP=BASPRE/PA:1,SPAWN
$!
$! FOLLOWING COMMAND LINE IS USED TO ASSEMBLE THE MODULE IMPUR.$MAC
$! FOR USE IN A TASK IMAGE. IT THEREFORE DEFINES THE SYMBOL
$! "TASK" BY INCLUDING THE HEADER FILE IMPURTASK.$MAC
$!
$MCR MAC IMPUR,IMPUR/-SP/CR=BASPRE/PA:1,IMPURTASK,IMPUR
$!
$! FOLLOWING COMMAND LINE IS USED TO ASSEMBLE IMPUR.$MAC FOR
$! SYMBOL TABLE USE ONLY. IT THUS OMITS REFERENCE TO THE
$! HEADER MODULE IMPURTASK.$MAC WHICH DEFINES THE SYMBOL
$! "TASK"
$!
$MCR MAC IMPURNOMO,IMPURNOMO/-SP=BASPRE/PA:1,IMPUR
$!
$!
$! FOLLOWING COMMAND FILE IS USED TO LINK A MULTI USER VERSION
$! OF BASIC UNDER RSX11D OR IAS.
$! THIS COMMAND FILE IS FOR USE WITH THE INDIRECT COMMAND PROCESSOR AT.
$!
$! FIRST BUILD IMPURE AREA SYMBOL TABLE:
$!
$MCR TKB @IMPURNOMO
$!
$! NOW BUILD PURE AREA:
$!
$MCR TKB @BASPUR
$!
$! NOW PUT LIBRARY UNDER [1,1] ON LB: DEVICE
$!
$MCR PIP LB:[1,1]/NV=BASPUR.STB,BASPUR.TSK/FO/CO
$MCR INS LB:[1,1]BASPUR/LI/ACC=RO/UIC=[1,1]
$!
$! NOW BUILD THE IMPURE TASK IMAGE:
$!
$MCR TKB @BAS
$!
$! WE SHOULD PUT THE TASK IN DOWN IN [11,1] ON THE DEVICE LB: NEXT
$!
$MCR PIP LB:[11,1]/NV=BAS.TSK/FO/CO
$!
$! NOW THE TASK MAY BE INSTALLED WITH ANY INCREMENT UP TO
$! A TOTAL TASK SIZE OF 16K WORDS. THE TOP 16K OF ADDRESS
$! SPACE IS USED BY THE LIBRARY (PURE) PORTION OF BASIC.
$! THE CURRENT INSTALL IS FOR THE MAX. SIZE.
$!
$MCR INS LB:[11,1]BAS/TASK=...BAS/INC=13000
$!
$! NEXT IS THE CREATION OF THE ERROR MESSAGE FILE IN LB:[1,2]. THE FOLLOWING
$! PROGRAM WILL HANDLE IT. YOU MUST BE LOGGED INTO A SYSTEM ACCOUNT AND HAVE
$! YOUR DEFAULT SET TO THIS ACCOUNT.
$!
$MCR F4P MSG=MSG
$!
$! F4POTS IS ASSUMED TO BE IN THE SYSLIB LIBRARY. CHANGE THE FOLLOWING LINE
$! IF NOT.
$!
$MCR TKB MSG=MSG
$!
$RUN MSG
$!
$! THATS IT FOLKS, HAVE FUN.
$SET DEF
$EOJ