Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0100/lincur.c11
There are no other files named lincur.c11 in the archive.
; FILE LINCUR.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 CP0 IS SETUP TO USE THE F10 COMPILER WITHOUT OVERLAY.
; FILE CP4 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 NOT OVERLAYING.
;
;
;
; RENAME THE MACRO ROUTINE FROM DECUS NAME
COPY LINF10.MAC=LINCUR.MC1
;
;
; LINSEP WILL SEPERATE THE SOURCE INTO SEPERATE FILE FOR
; EASE OF OVERLAYING AND PROGRAM MAINTENANCE
;
COPY LINSEP.F4=LINCUR.SEP
COMPILE LINSEP.F4/F10/LIST
COPY FOR01.DAT=LINCUR.F4
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 L40OPN.F4 = LINC.118
RENAME L40SIN.F4 = LINC.119
RENAME L40COS.F4 = LINC.120
;
; 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 L40OPN.F4 /LIST/F10
COMPILE L40SIN.F4 /LIST/F10
COMPILE L40COS.F4 /LIST/F10
COMPILE LINF10.MAC/LIST
;
; CREATE OVERLAYED VERSION OF 40 VARIABLE
; PROGRAM LIN40
;
R LINK
LIN40/OVERLA.LIN40/MAP.LPT:LIN40/PLOT=/SPACE:3000 L40MAN.L40
/NODE:0 L40OPN/LINK:OPNFLS
/NODE:0 L40CRD/LINK:CCARD
/NODE:0 L40STA.L40RED.L40TRA/LINK:STAT
/NODE:0 L40FIT.L40INV.L40MIN.L40YBA.L40FAL.L40SIN.L40COS/LINK:FIT
/NODE:0 L40GRI.L40PAC.LINF10/LINK:GRID
/NODE:GRID L40PIT/LINK:PITCHA
/NODE:GRID L40CPM.L40SWE/LINK:CPMAIN
/GO
SAVE LIN40
DELETE FOR01.DAT
;
;
;
; NOW CREATE 10 VARIABLE PROGRAM USING THE PROGRAM
; MODIFICATIONS IN LINCUR.M10 AND THE UPDATING PROGRAM
; LINCUR.UPD
;
COPY LINUPD.F4=LINCUR.UPD
COMPILE LINUPD.F4/F10/LIST
COPY FOR01.DAT=LINCUR.M10
COPY FOR20.DAT=LINCUR.F4
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 L10OPN.F4 = LINC.118
RENAME L10SIN.F4 = LINC.119
RENAME L10CDS.F4 = LINC.120
;
; NOW COMPILE INDIVIDUAL ROUTINES
;
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 L10CRI.F4 /LIST/F10
COMPILE L10PAC.F4 /LIST/F10
COMPILE L10CPM.F4 /LIST/F10
COMPILE L10SWE.F4 /LIST/F10
COMPILE L10SOR.F4 /LIST/F10
COMPILE L10SIN.F4 /LIST/F10
COMPILE L10COS.F4 /LIST/F10
;
; NOW CREAT OVERLAYED VERSION OF THE 10 VARIABLE PROGRA
; LIN10
;
R LINK
LIN10/OVERLA.LIN10/MAP.LPT:LIN10/PLOT=/SPACE:3000 L10MAN.L10
/NODE:0 L10OPN/LINK:OPNFLS
/NODE:0 L10CRD/LINK:CCARD
/NODE:0 L10STA.L10RED.L10TRA/LINK:STAT
/NODE:0 L10FIT.L10INV.L10MIN.L10YBA.L10FAL.L10SIN.L10COS/LINK:FIT
/NODE:0 L10GRI.L10PAC.LINF10/LINK:GRID
/NODE:GRID L10PIT/LINK:PITCHA
/NODE:GRID L10CPM.L10SWE/LINK:CPMAIN
/GO
SAVE LIN10
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 FOR01.DAT=LINCUR.M80
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 L80OPN.F4 = LINC.118
RENAME L80SIN.F4 = LINC.119
RENAME L80COS.F4 = LINC.120
;
; 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 L80OPN.F4 /LIST/F10
COMPILE L80SIN.F4 /LIST/F10
COMPILE L80COS.F4 /LIST/F10
;
; CREATE OVERLAYED VERSION OF 80 VARIABLE
; PROGRAM LIN80
;
R LINK
LIN80/OVERLA.LIN80/MAP.LPT:LIN80/PLOT=/SPACE:3000 L80MAN.L8
/NODE:0 L80OPN/LINK:OPNFLS
/NODE:0 L80CRD/LINK:CCARD
/NODE:0 L80STA.L80RED.L80TRA/LINK:STAT
/NODE:0 L80FIT.L80INV.L80MIN.L80YBA.L80FAL.L80SIN.L80COS/LINK:FIT
/NODE:0 L80GRI.L80PAC.LINF10/LINK:GRID
/NODE:GRID L80PIT/LINK:PITCHA
/NODE:GRID L80CPM.L80SWE/LINK:CPMAIN
/GO
SAVE LIN80
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.
;
COPY FOR05,DAT=LINCUR,TST
;
; RUN THE PROGRAMS
;
RUN LIN40
RENAME LINCUR.TRN = FOR05.DAT
RUN LIN10
RUN LIN80