Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0100/lin81.c21
There is 1 other file named lin81.c21 in the archive. Click here to see a list.
;       FILE LIN81.C21
;
;       THIS BATCH CONTROL FILE WILL CREATE THREE VERSIONS OF THE
;       LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM.
;       THE BATCH CONTROL FILE IS TO BE USED WITH THE TOPS-20 
;       OPERATING SYSTEM.
;       EITHER THE F40 OR THE F10 COMPILERS MAY BE USED.
;
;       THIS FILE IS SET UP TO USE THE F10 COMPILER WITH OVERLAY.
;
;           FILE C20 IS SETUP TO USE THE F10 COMPILER WITHOUT OVERLAY.
;           FILE C24 IS SETUP TO USE THE F40 COMPILER WITHOUT OVERLAY.
;
;                      NOTE THAT THE OVERLAY STRUCTURE IS AS COMPLETE
;       AS POSSIBLE AND SAVES ABOUT 8K FOR BOTH
;       THE 80 AND 10 VARIABLE PROGRAMS.  THIS IS SIGNIFICANT FOR THE
;       10 VARIABLE PROGRAM BUT NOT AS SIGNIFICANT FOR THE
;       80 VARIABLE PROGRAM
;
;       LIN811  ALLOWS  35 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       10 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                      200 MAX OBSERVATIONS.
;
;       LIN814  ALLOWS  65 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       40 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                     1000 MAX OBSERVATIONS.
;
;       LIN818  ALLOWS 105 MAX VARIABLES BEFORE TRANSFORMATIONS,
;                       80 MAX VARIABLES  AFTER TRANSFORMATIONS, AND
;                     1000 MAX OBSERVATIONS.
;
;       LOGICAL UNIT NUMBERS USED BY THE PROGRAM ARE DEFINED IN
;       SUBROUTINE BASPGM AT LINES CF1 0820 THRU CF1 0940.
;
;       LIN81.MAC IS THE F10 AND F40 COMPILER VERSION OF DEPSIT
;       PACKING PLOT CHARACTERS.
;               SHOULD SOME COMPILER OTHER THAN F10 OR F40 BE USED.
;               THIS ROUTINE WILL HAVE TO BE CHANGED TO CONFORM TO
;               THE REGISTER UTILIZATION EXPECTED BY THE COMPILER.
;
;
;       THE FOLLOWING INSTRUCTIONS WILL CREATE THE PROGRAMS
;       USING THE F40 COMPILER AND OVERLAYING.
;
;
;
;       RENAME THE MACRO ROUTINE FROM DECUS NAME
COPY LIN81.MAC LINDEP.MAC
;
;
;      LINSEP WILL SEPERATE THE SOURCE INTO SEPERATE FILE FOR
;              EASE OF OVERLAYING AND PROGRAM MAINTENANCE
;
COPY LIN81.SEP LINSEP.FOR
COMPILE  LINSEP.FOR/LIST
COPY LIN814.FOR FOR01.DAT
EXEC LINSEP
;
;      THIS STEP IS RENAMING THE RESULTS OF LINSEP
;
RENAME LINC.100 L40MAN.FOR
RENAME LINC.101 L40BAS.FOR
RENAME LINC.102 L40STA.FOR
RENAME LINC.103 L40FIT.FOR
RENAME LINC.104 L40RED.FOR
RENAME LINC.105 L40TRA.FOR
RENAME LINC.106 L40INV.FOR
RENAME LINC.107 L40MIN.FOR
RENAME LINC.108 L40YBA.FOR
RENAME LINC.109 L40PIT.FOR
RENAME LINC.110 L40GRI.FOR
RENAME LINC.111 L40PAC.FOR
RENAME LINC.112 L40CPM.FOR
RENAME LINC.113 L40SWE.FOR
RENAME LINC.114 L40SOR.FOR
RENAME LINC.115 L40CRD.FOR
RENAME LINC.116 L40TPT.FOR
RENAME LINC.117 L40FAL.FOR
RENAME LINC.118 L40CCP.FOR
RENAME LINC.119 L40LBM.FOR
RENAME LINC.120 L40LAN.FOR
RENAME LINC.121 L40BAC.FOR
RENAME LINC.122 L40STO.FOR
RENAME LINC.123 L40COE.FOR
RENAME LINC.124 L40PIV.FOR
RENAME LINC.125 L40VAR.FOR
RENAME LINC.126 L40OPN.FOR
;
;      NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE  L40MAN.FOR /LIST
COMPILE  L40BAS.FOR /LIST
COMPILE  L40STA.FOR /LIST
COMPILE  L40FIT.FOR /LIST
COMPILE  L40RED.FOR /LIST
COMPILE  L40TRA.FOR /LIST
COMPILE  L40INV.FOR /LIST
COMPILE  L40MIN.FOR /LIST
COMPILE  L40YBA.FOR /LIST
COMPILE  L40PIT.FOR /LIST
COMPILE  L40GRI.FOR /LIST
COMPILE  L40PAC.FOR /LIST
COMPILE  L40CPM.FOR /LIST
COMPILE  L40SWE.FOR /LIST
COMPILE  L40SOR.FOR /LIST
COMPILE  L40CRD.FOR /LIST
COMPILE  L40TPT.FOR /LIST
COMPILE  L40FAL.FOR /LIST
COMPILE  L40CCP.FOR /LIST
COMPILE  L40LBM.FOR /LIST
COMPILE  L40LAN.FOR /LIST
COMPILE  L40BAC.FOR /LIST
COMPILE  L40STO.FOR /LIST
COMPILE  L40COE.FOR /LIST
COMPILE  L40PIV.FOR /LIST
COMPILE  L40VAR.FOR /LIST
COMPILE  L40OPN.FOR /LIST
COMPILE  LINDEP.MAC/LIST
;
;      CREATE OVERLAYED VERSION OF 40 VARIABLE
;      PROGRAM LIN814
;
R LINK
LIN814/OVERLAY,LIN814/MAP,LPT:LIN814/PLOT=/SPACE:3000 L40MAN,L40BAS,L40CRD,L40TPT,L40OPN/LINK:MAIN
/NODE:0 L40STA,L40RED,L40TRA/LINK:STAT
/NODE:0 L40FIT,L40INV,L40MIN,L40YBA,L40FAL,L40SOR/LINK:FIT
/NODE:0 L40GRI,L40PAC,L40SOR,L40SWE,L40CCP,LINDEP,/LINK:GRID
       /NODE:GRID L40PIT,L40CPM/LINK:PITCHA
       /NODE:GRID L40LBM,L40LAN,L40BAC,L40STO,L40VAR,L40COE,L40PIV/LINK:LBMAIN
LIN814/SAVE/GO
DELETE FOR01.DAT
;
;
;
;      NOW CREATE 10 VARIABLE PROGRAM USING THE PROGRAM
;      MODIFICATIONS IN LINCUR.M10  AND THE UPDATING PROGRAM
;      LIN81.UPD
;
COPY LIN81.UPD LINUPD.FOR
COMPILE LINUPD.FOR/LIST
COPY 1081.RPL FOR01.DAT
COPY LIN814.FOR FOR20.DAT
EXEC LINUPD
;
;      NOW SEPERATE THE SUBROUTINES INTO SEPERATE FILES
;      FOR23.DAT HAS THE 10 VARIABLE CODE IF IT IS DESIRED
;      IN ONE FILE
;
COPY FOR23.DAT FOR01.DAT
EXEC LINSEP
;
;      RENAME FILES
;
RENAME LINC.100 L10MAN.FOR
RENAME LINC.101 L10BAS.FOR
RENAME LINC.102 L10STA.FOR
RENAME LINC.103 L10FIT.FOR
RENAME LINC.104 L10RED.FOR
RENAME LINC.105 L10TRA.FOR
RENAME LINC.106 L10INV.FOR
RENAME LINC.107 L10MIN.FOR
RENAME LINC.108 L10YBA.FOR
RENAME LINC.109 L10PIT.FOR
RENAME LINC.110 L10GRI.FOR
RENAME LINC.111 L10PAC.FOR
RENAME LINC.112 L10CPM.FOR
RENAME LINC.113 L10SWE.FOR
RENAME LINC.114 L10SOR.FOR
RENAME LINC.115 L10CRD.FOR
RENAME LINC.116 L10TPT.FOR
RENAME LINC.117 L10FAL.FOR
RENAME LINC.118 L10CCP.FOR
RENAME LINC.119 L10LBM.FOR
RENAME LINC.120 L10LAN.FOR
RENAME LINC.121 L10BAC.FOR
RENAME LINC.122 L10STO.FOR
RENAME LINC.123 L10COE.FOR
RENAME LINC.124 L10PIV.FOR
RENAME LINC.125 L10VAR.FOR
RENAME LINC.126 L10OPN.FOR
;
;      NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE  L10MAN.FOR /LIST
COMPILE  L10BAS.FOR /LIST
COMPILE  L10STA.FOR /LIST
COMPILE  L10FIT.FOR /LIST
COMPILE  L10RED.FOR /LIST
COMPILE  L10TRA.FOR /LIST
COMPILE  L10INV.FOR /LIST
COMPILE  L10MIN.FOR /LIST
COMPILE  L10YBA.FOR /LIST
COMPILE  L10PIT.FOR /LIST
COMPILE  L10GRI.FOR /LIST
COMPILE  L10PAC.FOR /LIST
COMPILE  L10CPM.FOR /LIST
COMPILE  L10SWE.FOR /LIST
COMPILE  L10SOR.FOR /LIST
COMPILE  L10CRD.FOR /LIST
COMPILE  L10TPT.FOR /LIST
COMPILE  L10FAL.FOR /LIST
COMPILE  L10CCP.FOR /LIST
COMPILE  L10LBM.FOR /LIST
COMPILE  L10LAN.FOR /LIST
COMPILE  L10BAC.FOR /LIST
COMPILE  L10STO.FOR /LIST
COMPILE  L10COE.FOR /LIST
COMPILE  L10PIV.FOR /LIST
COMPILE  L10VAR.FOR /LIST
COMPILE  L10OPN.FOR /LIST
;
;      NOW CREAT OVERLAYED VERSION OF THE 10 VARIABLE PROGRAM
;      LIN811
;
R LINK
LIN811/OVERLAY,LIN811/MAP,LPT:LIN811/PLOT=/SPACE:3000 L10MAN,L10BAS,L10CRD,L10TPT,L10OPN/LINK:MAIN
/NODE:0 L10STA,L10RED,L10TRA/LINK:STAT
/NODE:0 L10FIT,L10INV,L10MIN,L10YBA,L10FAL,L10SOR/LINK:FIT
/NODE:0 L10GRI,L10PAC,L10SOR,L10SWE,L10CCP,LINDEP,/LINK:GRID
       /NODE:GRID L10PIT,L10CPM/LINK:PITCHA
       /NODE:GRID L10LBM,L10LAN,L10BAC,L10STO,L10VAR,L10COE,L10PIV/LINK:LBMAIN
LIN814/SAVE/GO
DELETE LIN811.REL
;       THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT
;
;
;
;      NOW CREATE 80 VARIABLE PROGRAM USING THE PROGRAM
;      MODIFICATIONS IN LIN81.M80  AND THE UPDATING PROGRAM
;      LIN81.UPD
;
COPY 8081.RPL FOR01.DAT
EXEC LINUPD
;
;      NOW SEPERATE THE SUBROUTINES INTO SEPERATE FILES
;      FOR23.DAT HAS THE 80 VARIABLE CODE IF IT IS DESIRED
;      IN ONE FILE
;
COPY FOR23.DAT FOR01.DAT
EXEC LINSEP
;
;      RENAME FILES
RENAME LINC.100 L80MAN.FOR
RENAME LINC.101 L80BAS.FOR
RENAME LINC.102 L80STA.FOR
RENAME LINC.103 L80FIT.FOR
RENAME LINC.104 L80RED.FOR
RENAME LINC.105 L80TRA.FOR
RENAME LINC.106 L80INV.FOR
RENAME LINC.107 L80MIN.FOR
RENAME LINC.108 L80YBA.FOR
RENAME LINC.109 L80PIT.FOR
RENAME LINC.110 L80GRI.FOR
RENAME LINC.111 L80PAC.FOR
RENAME LINC.112 L80CPM.FOR
RENAME LINC.113 L80SWE.FOR
RENAME LINC.114 L80SOR.FOR
RENAME LINC.115 L80CRD.FOR
RENAME LINC.116 L80TPT.FOR
RENAME LINC.117 L80FAL.FOR
RENAME LINC.118 L80CCP.FOR
RENAME LINC.119 L80LBM.FOR
RENAME LINC.120 L80LAN.FOR
RENAME LINC.121 L80BAC.FOR
RENAME LINC.122 L80STO.FOR
RENAME LINC.123 L80COE.FOR
RENAME LINC.124 L80PIV.FOR
RENAME LINC.125 L80VAR.FOR
RENAME LINC.126 L80OPN.FOR
;
;      NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE  L80MAN.FOR /LIST
COMPILE  L80BAS.FOR /LIST
COMPILE  L80STA.FOR /LIST
COMPILE  L80FIT.FOR /LIST
COMPILE  L80RED.FOR /LIST
COMPILE  L80TRA.FOR /LIST
COMPILE  L80INV.FOR /LIST
COMPILE  L80MIN.FOR /LIST
COMPILE  L80YBA.FOR /LIST
COMPILE  L80PIT.FOR /LIST
COMPILE  L80GRI.FOR /LIST
COMPILE  L80PAC.FOR /LIST
COMPILE  L80CPM.FOR /LIST
COMPILE  L80SWE.FOR /LIST
COMPILE  L80SOR.FOR /LIST
COMPILE  L80CRD.FOR /LIST
COMPILE  L80TPT.FOR /LIST
COMPILE  L80FAL.FOR /LIST
COMPILE  L80CCP.FOR /LIST
COMPILE  L80LBM.FOR /LIST
COMPILE  L80LAN.FOR /LIST
COMPILE  L80BAC.FOR /LIST
COMPILE  L80STO.FOR /LIST
COMPILE  L80COE.FOR /LIST
COMPILE  L80PIV.FOR /LIST
COMPILE  L80VAR.FOR /LIST
COMPILE  L80OPN.FOR /LIST
;
;
;      CREATE OVERLAYED VERSION OF 80 VARIABLE
;      PROGRAM LIN818
;
R LINK
LIN818/OVERLAY,LIN818/MAP,LPT:LIN818/PLOT=/SPACE:3000 L80MAN,L80BAS,L80CRD,L80TPT,L80OPN/LINK:MAIN
/NODE:0 L80STA,L80RED,L80TRA/LINK:STAT
/NODE:0 L80FIT,L80INV,L80MIN,L80YBA,L80FAL,L80SOR/LINK:FIT
/NODE:0 L80GRI,L80PAC,L80SOR,L80SWE,L80CCP,LINDEP,/LINK:GRID
       /NODE:GRID L80PIT,L80CPM/LINK:PITCHA
       /NODE:GRID L80LBM,L80LAN,L80BAC,L80STO,L80VAR,L80COE,L80PIV/LINK:LBMAIN
LIN818/SAVE/GO
DELETE LIN814.REL,LIN818.REL
;       THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
;
;
;
;      LIN81.TST HAS THE TEST DATA FOR THE PROGRAMS.
;      LIN81.TRN HAS THE RESULTS OF THE TEST RUN FOR
;      COMPARISON.
;
;      RUN THE PROGRAMS
;
RUN LIN814
;INPUT THE NAME OF THE INPUT FILE 
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN814.TRN
RUN LIN811
;INPUT THE NAME OF THE INPUT FILE
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN811.TRN
RUN LIN818
;INPUT THE NAME OF THE INPUT FILE 
LIN81.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN818.TRN