!
! 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
MC
!
! FIRST ORDER OF BUSSINESS IS TO REMOVE ANY INSTALLED COPIES OF BASIC FROM
! THE SYSTEM.
REM ...BAS
REM $$$BAS
REM BASPUR/LI
!
! COMMAND FILE TO ASSEMBLE BASIC FOR USE UNDER RSX11D
!
MAC IDNTFY,IDNTFY/-SP=BASPRE/PA:1,IDNTFY
MAC BASIC0,BASIC0/-SP/CR=BASPRE/PA:1,BASIC0
MAC BASIC1,BASIC1/-SP/CR=BASPRE/PA:1,BASIC1
MAC BASIC2,BASIC2/-SP/CR=BASPRE/PA:1,BASIC2
MAC BASIC3,BASIC3/-SP/CR=BASPRE/PA:1,BASIC3
MAC BASIC4,BASIC4/-SP/CR=BASPRE/PA:1,BASIC4
MAC CATB,CATB/-SP=CATB
!
! FOLLOWING MODULE IS FOR USE UNDER IAS V3 ONLY
!
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
!
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"
!
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:
!
TKB @IMPURNOMO
!
! NOW BUILD PURE AREA:
!
TKB @BASPUR
!
! NOW PUT LIBRARY UNDER [1,1] ON LB: DEVICE
!
PIP LB:[1,1]/NV=BASPUR.STB,BASPUR.TSK/FO/CO
INS LB:[1,1]BASPUR/LI/ACC=RO/UIC=[1,1]
!
! NOW BUILD THE IMPURE TASK IMAGE:
!
TKB @BAS
!
! WE SHOULD PUT THE TASK IN DOWN IN [11,1] ON THE DEVICE LB: NEXT
!
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.
!
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.
!
F4P MSG=MSG
!
! F4POTS IS ASSUMED TO BE IN THE SYSLIB LIBRARY. CHANGE THE FOLLOWING LINE
! IF NOT.
!
TKB MSG=MSG
!
RUN MSG
!
! THATS IT FOLKS, HAVE FUN.