Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0100/lincur.c21
There are no other files named lincur.c21 in the archive.
; FILE LINCUR.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 CG0 IS SETUP TO USE THE F10 COMPILER WITHOUT OVERLAY.
; FILE CG4 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
;
; LIN10 ALLOWS 35 MAX VARIABLES BEFORE TRANSFORMATIONS,
; 10 MAX VARIABLES AFTER TRANSFORMATIONS, AND
; 200 MAX OBSERVATIONS.
;
; LIN40 ALLOWS 65 MAX VARIABLES BEFORE TRANSFORMATIONS,
; 40 MAX VARIABLES AFTER TRANSFORMATIONS, AND
; 1000 MAX OBSERVATIONS.
;
; LIN80 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.
;
; LINCUR.MC1 AND LINCUR.MC4 ARE 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 F40 COMPILER AND OVERLAYING.
;
;
;
; RENAME THE MACRO ROUTINE FROM DECUS NAME
COPY LINCUR.MC1 LINF10.MAC
;
;
; LINSEP WILL SEPERATE THE SOURCE INTO SEPERATE FILE FOR
; EASE OF OVERLAYING AND PROGRAM MAINTENANCE
;
COPY LINCUR.SEP LINSEP.F4
COMPILE LINSEP.F4/LIST
COPY LINCUR.F4 FOR01.DAT
EXEC LINSEP
;
; THIS STEP IS RENAMING THE RESULTS OF LINSEP
;
RENAME LINC.100 L40MAN.F4
RENAME LINC.101 L40BAS.F4
RENAME LINC.102 L40STA.F4
RENAME LINC.103 L40FIT.F4
RENAME LINC.104 L40RED.F4
RENAME LINC.105 L40TRA.F4
RENAME LINC.106 L40INV.F4
RENAME LINC.107 L40MIN.F4
RENAME LINC.108 L40YBA.F4
RENAME LINC.109 L40PIT.F4
RENAME LINC.110 L40GRI.F4
RENAME LINC.111 L40PAC.F4
RENAME LINC.112 L40CPM.F4
RENAME LINC.113 L40SWE.F4
RENAME LINC.114 L40SOR.F4
RENAME LINC.115 L40CRD.F4
RENAME LINC.116 L40TPT.F4
RENAME LINC.117 L40FAL.F4
RENAME LINC.118 L40OPN.F4
;
; NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE L40MAN.F4 /LIST
COMPILE L40BAS.F4 /LIST
COMPILE L40STA.F4 /LIST
COMPILE L40FIT.F4 /LIST
COMPILE L40RED.F4 /LIST
COMPILE L40TRA.F4 /LIST
COMPILE L40INV.F4 /LIST
COMPILE L40MIN.F4 /LIST
COMPILE L40YBA.F4 /LIST
COMPILE L40PIT.F4 /LIST
COMPILE L40GRI.F4 /LIST
COMPILE L40PAC.F4 /LIST
COMPILE L40CPM.F4 /LIST
COMPILE L40SWE.F4 /LIST
COMPILE L40SOR.F4 /LIST
COMPILE L40CRD.F4 /LIST
COMPILE L40TPT.F4 /LIST
COMPILE L40FAL.F4 /LIST
COMPILE L40OPN.F4 /LIST
COMPILE LINF10.MAC/LIST
;
; CREATE OVERLAYED VERSION OF 40 VARIABLE
; PROGRAM LIN40
;
R LINK
LIN40/OVERLA,LIN40/MAP,LPT:LIN40/PLOT=/SPACE:3000 L40MAN,L40BAS,L40CRD,L40TPT/LINK:MAIN
/NODE:0 L40OPN/LINK:OPNFLS
/NODE:0 L40STA,L40RED,L40TRA/LINK:STAT
/NODE:0 L40FIT,L40INV,L40MIN,L40YBA,L40FAL,L40SOR/LINK:FIT
/NODE:0 L40GRI,L40PAC,LINF10/LINK:GRID
/NODE:GRID L40PIT/LINK:PITCHA
/NODE:GRID L40CPM,L40SWE,L40SOR/LINK:CPMAIN
LIN40/SAVE/GO
DELETE FOR01.DAT
;
;
;
; NOW CREATE 10 VARIABLE PROGRAM USING THE PROGRAM
; MODIFICATIONS IN LINCUR.M10 AND THE UPDATING PROGRAM
; LINCUR.UPD
;
COPY LINCUR.UPD LINUPD.F4
COMPILE LINUPD.F4/LIST
COPY LINCUR.M10 FOR01.DAT
COPY LINCUR.F4 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.F4
RENAME LINC.101 L10BAS.F4
RENAME LINC.102 L10STA.F4
RENAME LINC.103 L10FIT.F4
RENAME LINC.104 L10RED.F4
RENAME LINC.105 L10TRA.F4
RENAME LINC.106 L10INV.F4
RENAME LINC.107 L10MIN.F4
RENAME LINC.108 L10YBA.F4
RENAME LINC.109 L10PIT.F4
RENAME LINC.110 L10GRI.F4
RENAME LINC.111 L10PAC.F4
RENAME LINC.112 L10CPM.F4
RENAME LINC.113 L10SWE.F4
RENAME LINC.114 L10SOR.F4
RENAME LINC.115 L10CRD.F4
RENAME LINC.116 L10TPT.F4
RENAME LINC.117 L10FAL.F4
RENAME LINC.118 L10OPN.F4
;
; NOW COMPILE INDIVIDUAL ROUTINES
;
COMPILE L10MAN.F4 /LIST
COMPILE L10BAS.F4 /LIST
COMPILE L10STA.F4 /LIST
COMPILE L10FIT.F4 /LIST
COMPILE L10RED.F4 /LIST
COMPILE L10TRA.F4 /LIST
COMPILE L10INV.F4 /LIST
COMPILE L10MIN.F4 /LIST
COMPILE L10YBA.F4 /LIST
COMPILE L10PIT.F4 /LIST
COMPILE L10GRI.F4 /LIST
COMPILE L10PAC.F4 /LIST
COMPILE L10CPM.F4 /LIST
COMPILE L10SWE.F4 /LIST
COMPILE L10SOR.F4 /LIST
COMPILE L10CRD.F4 /LIST
COMPILE L10TPT.F4 /LIST
COMPILE L10FAL.F4 /LIST
COMPILE L10OPN.F4 /LIST
;
; NOW CREAT OVERLAYED VERSION OF THE 10 VARIABLE PROGRAM
; LIN10
;
R LINK
LIN10/OVERLA,LIN10/MAP,LPT:LIN10/PLOT=/SPACE:3000 L10MAN,L10BAS,L10CRD,L10TPT/LINK:MAIN
/NODE:0 L10OPN/LINK:OPNFLS
/NODE:0 L10STA,L10RED,L10TRA/LINK:STAT
/NODE:0 L10FIT,L10INV,L10MIN,L10YBA,L10FAL,L10SOR/LINK:FIT
/NODE:0 L10GRI,L10PAC,LINF10/LINK:GRID
/NODE:GRID L10PIT/LINK:PITCHA
/NODE:GRID L10CPM,L10SWE,L10SOR/LINK:CPMAIN
LIN10/SAVE/GO
DELETE LIN10.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 LINCUR.M80 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.F4
RENAME LINC.101 L80BAS.F4
RENAME LINC.102 L80STA.F4
RENAME LINC.103 L80FIT.F4
RENAME LINC.104 L80RED.F4
RENAME LINC.105 L80TRA.F4
RENAME LINC.106 L80INV.F4
RENAME LINC.107 L80MIN.F4
RENAME LINC.108 L80YBA.F4
RENAME LINC.109 L80PIT.F4
RENAME LINC.110 L80GRI.F4
RENAME LINC.111 L80PAC.F4
RENAME LINC.112 L80CPM.F4
RENAME LINC.113 L80SWE.F4
RENAME LINC.114 L80SOR.F4
RENAME LINC.115 L80CRD.F4
RENAME LINC.116 L80TPT.F4
RENAME LINC.117 L80FAL.F4
RENAME LINC.118 L80OPN.F4
;
; NOW COMPILING THE INDIVIDUAL MODULES.
;
COMPILE L80MAN.F4 /LIST
COMPILE L80BAS.F4 /LIST
COMPILE L80STA.F4 /LIST
COMPILE L80FIT.F4 /LIST
COMPILE L80RED.F4 /LIST
COMPILE L80TRA.F4 /LIST
COMPILE L80INV.F4 /LIST
COMPILE L80MIN.F4 /LIST
COMPILE L80YBA.F4 /LIST
COMPILE L80PIT.F4 /LIST
COMPILE L80GRI.F4 /LIST
COMPILE L80PAC.F4 /LIST
COMPILE L80CPM.F4 /LIST
COMPILE L80SWE.F4 /LIST
COMPILE L80SOR.F4 /LIST
COMPILE L80CRD.F4 /LIST
COMPILE L80TPT.F4 /LIST
COMPILE L80FAL.F4 /LIST
COMPILE L80OPN.F4 /LIST
;
; CREATE OVERLAYED VERSION OF 80 VARIABLE
; PROGRAM LIN80
;
R LINK
LIN80/OVERLA,LIN80/MAP,LPT:LIN80/PLOT=/SPACE:3000 L80MAN,L80BAS,L80CRD,L80TPT/LINK:MAIN
/NODE:0 L80OPN/LINK:OPNFLS
/NODE:0 L80STA,L80RED,L80TRA/LINK:STAT
/NODE:0 L80FIT,L80INV,L80MIN,L80YBA,L80FAL,L80SOR/LINK:FIT
/NODE:0 L80GRI,L80PAC,LINF10/LINK:GRID
/NODE:GRID L80PIT/LINK:PITCHA
/NODE:GRID L80CPM,L80SWE,L80SOR/LINK:CPMAIN
LIN80/SAVE/GO
DELETE LIN40.REL,LIN80.REL
; THESE FILES ARE NO LONGER NEEDED
DELETE FOR23.DAT,FOR01.DAT,FOR20.DAT
;
;
;
; LINCUR.TST HAS THE TEST DATA FOR THE PROGRAMS.
; LINCUR.TRN HAS THE RESULTS OF THE TEST RUN FOR
; COMPARISON.
;
; RUN THE PROGRAMS
;
RUN LIN40
;INPUT THE NAME OF THE INPUT FILE
LINCUR.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN40.TRN
RUN LIN10
;INPUT THE NAME OF THE INPUT FILE
LINCUR.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN10.TRN
RUN LIN80
;INPUT THE NAME OF THE INPUT FILE
LINCUR.TST
;INPUT THE NAME OF THE OUTPUT FILE
LIN80.TRN