PDP-10 Archive: 43,50401/lin81.c11 from decuslib10-06

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50401/lin81.c11
There is 1 other file named lin81.c11 in the archive. Click here to see a list.
;       FILE LIN81.C11
;
;       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-10
;       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 C10 IS SETUP TO USE THE F10 COMPILER WITHOUT OVERLAY.
;           FILE C14 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
;       FOR 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 F10 COMPILER AND OVERLAYING.
;
;
;
;       RENAME THE MACRO ROUTINE FROM DECUS NAME
COPY LINDEP.MAC=LIN81.MAC
;
;
;      LINSEP WILL SEPERATE THE SOURCE INTO SEPERATE FILE FOR
;              EASE OF OVERLAYING AND PROGRAM MAINTENANCE
;
COPY LINSEP.F4=LIN81.SEP
COMPILE LINSEP.F4/F10/LIST
COPY FOR01.DAT=LIN814.FOR
EXEC LINSEP.REL
;
;      THIS STEP IS RENAMING THE RESULTS OF LINSEP
;
RENAME  L40MAN.F4 = LINC.100
RENAME  L40BAS.F4 = LINC.101
RENAME  L40STA.F4 = LINC.102
RENAME  L40FIT.F4 = LINC.103
RENAME  L40RED.F4 = LINC.104
RENAME  L40TRA.F4 = LINC.105
RENAME  L40INV.F4 = LINC.106
RENAME  L40MIN.F4 = LINC.107
RENAME  L40YBA.F4 = LINC.108
RENAME  L40PIT.F4 = LINC.109
RENAME  L40GRI.F4 = LINC.110
RENAME  L40PAC.F4 = LINC.111
RENAME  L40CPM.F4 = LINC.112
RENAME  L40SWE.F4 = LINC.113
RENAME  L40SOR.F4 = LINC.114
RENAME  L40CRD.F4 = LINC.115
RENAME  L40TPT.F4 = LINC.116
RENAME  L40FAL.F4 = LINC.117
RENAME  L40CCP.F4 = LINC.118
RENAME  L40LBM.F4 = LINC.119
RENAME  L40LAN.F4 = LINC.120
RENAME  L40BAC.F4 = LINC.121
RENAME  L40STO.F4 = LINC.122
RENAME  L40COE.F4 = LINC.123
RENAME  L40PIV.F4 = LINC.124
RENAME  L40VAR.F4 = LINC.125
RENAME  L40OPN.F4 = LINC.126
;
;      NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE  L40MAN.F4 /LIST/F10
COMPILE  L40BAS.F4 /LIST/F10
COMPILE  L40STA.F4 /LIST/F10
COMPILE  L40FIT.F4 /LIST/F10
COMPILE  L40RED.F4 /LIST/F10
COMPILE  L40TRA.F4 /LIST/F10
COMPILE  L40INV.F4 /LIST/F10
COMPILE  L40MIN.F4 /LIST/F10
COMPILE  L40YBA.F4 /LIST/F10
COMPILE  L40PIT.F4 /LIST/F10
COMPILE  L40GRI.F4 /LIST/F10
COMPILE  L40PAC.F4 /LIST/F10
COMPILE  L40CPM.F4 /LIST/F10
COMPILE  L40SWE.F4 /LIST/F10
COMPILE  L40SOR.F4 /LIST/F10
COMPILE  L40CRD.F4 /LIST/F10
COMPILE  L40TPT.F4 /LIST/F10
COMPILE  L40FAL.F4 /LIST/F10
COMPILE  L40CCP.F4 /LIST/F10
COMPILE  L40LBM.F4 /LIST/F10
COMPILE  L40LAN.F4 /LIST/F10
COMPILE  L40BAC.F4 /LIST/F10
COMPILE  L40STO.F4 /LIST/F10
COMPILE  L40COE.F4 /LIST/F10
COMPILE  L40PIV.F4 /LIST/F10
COMPILE  L40VAR.F4 /LIST/F10
COMPILE  L40OPN.F4 /LIST/F10
COMPILE  LINDEP.MAC/LIST
;
;      CREATE OVERLAYED VERSION OF 40 VARIABLE
;      PROGRAM LIN814
;
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
;      LINCUR.UPD
;
COPY LINUPD.F4=LIN81.UPD
COMPILE LINUPD.F4/F10/LIST
COPY FOR01.DAT=1081.RPL
COPY  FOR20.DAT=LIN814.FOR
EXEC LINUPD.REL
;
;      NOW SEPERATE THE SUBROUTINES INTO SEPERATE FILES
;      FOR23.DAT HAS THE 10 VARIABLE CODE IF IT IS DESIRED
;      IN ONE FILE
;
COPY FOR01.DAT=FOR23.DAT
EXEC LINSEP.REL
;
;      RENAME FILES
;
RENAME  L10MAN.F4 = LINC.100
RENAME  L10BAS.F4 = LINC.101
RENAME  L10STA.F4 = LINC.102
RENAME  L10FIT.F4 = LINC.103
RENAME  L10RED.F4 = LINC.104
RENAME  L10TRA.F4 = LINC.105
RENAME  L10INV.F4 = LINC.106
RENAME  L10MIN.F4 = LINC.107
RENAME  L10YBA.F4 = LINC.108
RENAME  L10PIT.F4 = LINC.109
RENAME  L10GRI.F4 = LINC.110
RENAME  L10PAC.F4 = LINC.111
RENAME  L10CPM.F4 = LINC.112
RENAME  L10SWE.F4 = LINC.113
RENAME  L10SOR.F4 = LINC.114
RENAME  L10CRD.F4 = LINC.115
RENAME  L10TPT.F4 = LINC.116
RENAME  L10FAL.F4 = LINC.117
RENAME  L10CCP.F4 = LINC.118
RENAME  L10LBM.F4 = LINC.119
RENAME  L10LAN.F4 = LINC.120
RENAME  L10BAC.F4 = LINC.121
RENAME  L10STO.F4 = LINC.122
RENAME  L10COE.F4 = LINC.123
RENAME  L10PIV.F4 = LINC.124
RENAME  L10VAR.F4 = LINC.125
RENAME  L10OPN.F4 = LINC.126
;
;      NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE  L10MAN.F4 /LIST/F10
COMPILE  L10BAS.F4 /LIST/F10
COMPILE  L10STA.F4 /LIST/F10
COMPILE  L10FIT.F4 /LIST/F10
COMPILE  L10RED.F4 /LIST/F10
COMPILE  L10TRA.F4 /LIST/F10
COMPILE  L10INV.F4 /LIST/F10
COMPILE  L10MIN.F4 /LIST/F10
COMPILE  L10YBA.F4 /LIST/F10
COMPILE  L10PIT.F4 /LIST/F10
COMPILE  L10GRI.F4 /LIST/F10
COMPILE  L10PAC.F4 /LIST/F10
COMPILE  L10CPM.F4 /LIST/F10
COMPILE  L10SWE.F4 /LIST/F10
COMPILE  L10SOR.F4 /LIST/F10
COMPILE  L10CRD.F4 /LIST/F10
COMPILE  L10TPT.F4 /LIST/F10
COMPILE  L10FAL.F4 /LIST/F10
COMPILE  L10CCP.F4 /LIST/F10
COMPILE  L10LBM.F4 /LIST/F10
COMPILE  L10LAN.F4 /LIST/F10
COMPILE  L10BAC.F4 /LIST/F10
COMPILE  L10STO.F4 /LIST/F10
COMPILE  L10COE.F4 /LIST/F10
COMPILE  L10PIV.F4 /LIST/F10
COMPILE  L10VAR.F4 /LIST/F10
COMPILE  L10OPN.F4 /LIST/F10
COMPILE  LINDEP.MAC/LIST
;
;      CREATE OVERLAYED VERSION OF 10 VARIABLE
;      PROGRAM LIN811
;
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
LIN811/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 LINCUR.M80  AND THE UPDATING PROGRAM
;      LINCUR.UPD
;
COPY FOR01.DAT=8081.RPL
EXEC LINUPD.REL
;
;      NOW SEPERATE THE SUBROUTINES INTO SEPERATE FILES
;      FOR23.DAT HAS THE 80 VARIABLE CODE IF IT IS DESIRED
;      IN ONE FILE
;
COPY FOR01.DAT=FOR23.DAT
EXEC LINSEP.REL
;
;      RENAME FILES
;
RENAME  L80MAN.F4 = LINC.100
RENAME  L80BAS.F4 = LINC.101
RENAME  L80STA.F4 = LINC.102
RENAME  L80FIT.F4 = LINC.103
RENAME  L80RED.F4 = LINC.104
RENAME  L80TRA.F4 = LINC.105
RENAME  L80INV.F4 = LINC.106
RENAME  L80MIN.F4 = LINC.107
RENAME  L80YBA.F4 = LINC.108
RENAME  L80PIT.F4 = LINC.109
RENAME  L80GRI.F4 = LINC.110
RENAME  L80PAC.F4 = LINC.111
RENAME  L80CPM.F4 = LINC.112
RENAME  L80SWE.F4 = LINC.113
RENAME  L80SOR.F4 = LINC.114
RENAME  L80CRD.F4 = LINC.115
RENAME  L80TPT.F4 = LINC.116
RENAME  L80FAL.F4 = LINC.117
RENAME  L80CCP.F4 = LINC.118
RENAME  L80LBM.F4 = LINC.119
RENAME  L80LAN.F4 = LINC.120
RENAME  L80BAC.F4 = LINC.121
RENAME  L80STO.F4 = LINC.122
RENAME  L80COE.F4 = LINC.123
RENAME  L80PIV.F4 = LINC.124
RENAME  L80VAR.F4 = LINC.125
RENAME  L80OPN.F4 = LINC.126
;
;      NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE  L80MAN.F4 /LIST/F10
COMPILE  L80BAS.F4 /LIST/F10
COMPILE  L80STA.F4 /LIST/F10
COMPILE  L80FIT.F4 /LIST/F10
COMPILE  L80RED.F4 /LIST/F10
COMPILE  L80TRA.F4 /LIST/F10
COMPILE  L80INV.F4 /LIST/F10
COMPILE  L80MIN.F4 /LIST/F10
COMPILE  L80YBA.F4 /LIST/F10
COMPILE  L80PIT.F4 /LIST/F10
COMPILE  L80GRI.F4 /LIST/F10
COMPILE  L80PAC.F4 /LIST/F10
COMPILE  L80CPM.F4 /LIST/F10
COMPILE  L80SWE.F4 /LIST/F10
COMPILE  L80SOR.F4 /LIST/F10
COMPILE  L80CRD.F4 /LIST/F10
COMPILE  L80TPT.F4 /LIST/F10
COMPILE  L80FAL.F4 /LIST/F10
COMPILE  L80CCP.F4 /LIST/F10
COMPILE  L80LBM.F4 /LIST/F10
COMPILE  L80LAN.F4 /LIST/F10
COMPILE  L80BAC.F4 /LIST/F10
COMPILE  L80STO.F4 /LIST/F10
COMPILE  L80COE.F4 /LIST/F10
COMPILE  L80PIV.F4 /LIST/F10
COMPILE  L80VAR.F4 /LIST/F10
COMPILE  L80OPN.F4 /LIST/F10
COMPILE  LINDEP.MAC/LIST
;
;      CREATE OVERLAYED VERSION OF 80 VARIABLE
;      PROGRAM LIN818
;
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.
;      LINCUR.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
;       THAT HAS CREATED THE F10 VERSIONS WITH OVERLAY OF THE 
;       LINWOOD LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM