Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0100/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