6.0.143_80 Series_Multiple_Linear_Regression_System 6.0.143 80 Series Multiple Linear Regression System
6.0.143_80-Series_Multiple_Linear_Regression_System 6.0.143_80-Series_Multiple_Linear_Regression_System
User Manual: 6.0.143_80-Series_Multiple_Linear_Regression_System
Open the PDF directly: View PDF 
.
Page Count: 257
•
c
DISCLAIMER
Although each program has been tested by its contributor, no
warranty, express or implied, is made by the contributor or
1620 USERS Group, as to the accuracy and functioning of the
program and related program material, nor shall the fact of
distribution constitute any such warranty, and no responsibility
is assumed by the contributor or 1620 USERS Group, in connection therewith.
-cL-
6
F
t
"
0
•
11
i
80-SERIES MULTIPLE LINEAR REGRESSION SYSTEM
80-Series Multiple
Line~r
Regression System
Table of Contents
~
Deck Key •
iii
Hash Total
iv
v
Program Abstract
vi
Note to Users
I.
James N. Boles
Associate Professor
Department of Agricultural Economics
University of California
Berkeley 4, California
II.
III.
IV.
V.
VI.
VII.
1620 Users Group Membership Code:
~
Modifications or revisions to this program, as they occur,
will be announced in the appropriate Catalog of Programs
for IBM Data Processing Systems. When such an announcement occurs, users should order a complete new program
from the Program Information Department.
Description of Programs and Functions
1
Data Preparation, 80-1 Through 4
9
Operating Details
.. ....................
22
Description of Output
30
Symbol Identification, Core Layout, and Problem Size
41
Sample Problems
45
Flow Charts
66
VIII.
SPS Program Listings
107
IX.
Object Deck Listings
405
Sample Problem Deck Listings
487
X.
- -----1
iii
Deck
Hash Total
Ke~
Deck
BASIC
10
II
12
80-1
80-2
80-3
80-4A
80-4B
80-4C
80-A
80-B
80-c
80-D
80-E
Sample
Condensed object
Condensed object
Condensed object
Condensed object
Condensed object
Condensed object
Condensed object
Condensed object
Condensed object
Condensed object
Condensed obje.ct
problem deck
13
14
15
16
17
18
19
20
80-1
80-2
80-3
80-4A
80-4B
80-4c
80-A
80-B
SPSII
SPSII
SPSII
SPSII
SPSII
SPSII
SPSII
SPSII
SPSII
SPSII
SPSII
1
2
3
-4
5
6
7
8
9
OPTIONAL
Source
Source
Source
Source
Source
Source
Source
Source
Source
Source
Source
deck
deck
deck
deck
deck
deck
deck
deck
deck
deck
deck
deck~
deck
deck
deck
deck
deck ~
deck
deck
deck .
deck
deck
N.A.
I
I
~
00010-05150
05160-ll600
ll610-14100
14000-23790
00010-09150
00010-08560
00010-03090
00010-04300
00010-04570
00010-09890
00010-08350
Deck Number'
EQUAL
46190626064069348263
1
EQUAL
73461492426567834814
2
EQUAL
89412472962124627477
3
EQUAL
04408253451025925445
4
EQUAL
98018157852322292134
5
EQUAL
85181203900791876682
6
EQUAL
27176051790018804230
7
EQUAL
56431578808636899592
8
EQUAL
83746942699848182921
9
EQUAL
82835284285053439184
10
EOUAl
36239883628047047641
II
EQUAL
53325607416680609504
12
The first card of each of the 23 decks is a "hash total" card (punched by
EQUAL
29381323226313192125
13
The hasn totals are given on the next
EQU,'-Il
26495402244(,3991153b
14
EQUAL
19009365767391421501
15
EQUAL
81489874454979882768
16
EQUAL
77S37403318404022108
17
EQUAL
62556408597192652274
18
EQUAL
54617792396940972939
19
EQUAL
63839556659216422864
20
EQUAL
26452080549484315125
21
EQUAL
60750037954386257177
22
EQUAL
85515762847535637392
23
2l
8o-c
22
23
80-D
80-E
the IBM 1620 library program, 1.6.031).
page.
Sequence
numbers
Description
~
iv
The hash total cards for object decks 1 through II do not interfere
with loading and need not be removed.
They should be removed from decks 12
through 23 prior to use.
.
Optional material will be forwarded only upon speclal request.
(")
r~
~
\
~.
~~-~=-
•
C)
~
0
0
1620 USERS GROUP LIBRARY
PROGRAM ABSTRACT
v
vi
Notes to Users
1. TITLE (If subroutine, state in Title): 80-Series Mu1.tlp1e Linear Regression System
2. Author; Organization: James N BQ;Les. Associate Professor. Department of Agricultural
Economics. University of California. Berkeley.
Date: January 2, 1964
Users Group Membership Code:,...5~0~7..;;b_--:-_ __:~:----:-:-3. Direct Inquiries to Name: James N. Boles, Department of Agricultural Economics, University
of California, Berkeley
Phone: THornwall 5-6000 3349
4. Description/Purpose: (5. Method; 6. Restriction/Range; When Applicab1e) _ _ _~_ _ __
This system solves the general multiple linear regression problem. By means of a
variety of transformations. i~~valso_be_usedto fit_curved surfaces to data noints
•
1.
01974.
The input subroutine used by 80-1 and 80-2 is located from 00892 to
It is initialized when 80-1 is in core.
Several cards of the object
80~2 have been deleted so that the initialization is not disturbed as 80-2 loads.
The gap appears between cards loading into 00840 and 01716 (see page 410).
2.
The object decks have been condensed by a routine similar to squeez.
The first six and the last four cards serve as program loader and contain the
and output. Options are selected lIIBinly
analysis is nrovided.
by
control Card.
Complete residual. or error
add and multiply tables.
The remaining cards have a standard format.
The first
five columns contain a flagged address to which the digits starting in column 8
7. Specific(!.tions (Check.or fill in appropriate spaces):
a. Storage used by program:..l3~ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __
b. Equipment required by program:
Card System_X
__; Magnetic Tape System ___: No. of Tapes
Paper Tape System___.i Disk File SysteIn___; No. of Packs ___;
TNS, TNF, MF __: Auto divide.,L: Indirect addressing__;Floating point hardware ___:
Other (specify) _________..,--_ _ _ _ _~--------------------Can program be used on lesser Machine? Yes
• Specify which requirements can be
easily removed Recompile with subroutine deck without automatic divide featUre.
c. Programming type (Check appropriate spaces):
will be transmitted.
Columns 6 and 7 contain a flagged number indicating how
many digits are to be transmitted.
by a two· card memory clear rou1rine.
Programs 80-1, B, C, D, and E are preceded
All object decks are preceded by a hash
total card that does not interfere with loading.
3.
Programs 1 through 4 are designed to operate sequentially with no halt.
Each of these programs end with a simulated "load," read numeric card into zero,
and branch to zero.
4.
Program 8o-D proceeds by setting up an alphameric card image and then
either types or punches the card image.
In order to transmit the record mark
Fortran without Format___; Fortran with Format___j
as well as other data, the flag has been removed from the flagged zero at 08424
Fortran II
; Mainline, Complete __; Subroutine or function subprogram(S or F) _ _ _;
Is the program a library (ie, SPS) function to the Fortran system checked ? _ _ _ _ _--.:
SPS_ _ _; SPS - l6Z0/l710_X_;
Mainline, Complete_X_ _; Macro_ _ _; Subroutine _ _ _;
Other programming language:
; Give details _ _ _ _ _ _ _ _ _ _ _ _ __
d. Language used in the writeup:...:En~g::2:11=s::!h::-~:_-_:___:_-_:_:_-----_::_--""7""-__::_::_--~8. Additional Remarks: Alloca.tion of memory is made by the program for each problem. The
programs are independent of memory size. For 20, 40, and 60 K memories. awroximate1y
30. 65. and 85 variables may be used.
6-63
following OUTPUT.
~.
I.
DESCRIPrION OF PROGRAMS AND FUNCTIONS
4.
5.
of a long series of revisions starting basically with Stepwise Multiple
Contrary to most input routines for regression analYSiS, either onepass input or two-pass' input is available on option.
Linear Regression Analysis for the IBM 1620 (card), 6.0.007 (now withdrawn),
products.
"large" standard deViations, means, standard deviations, and simple
a.
order.
A flexible input routine is provided.
Under format control,
cards are read with field widths ranging from 1 to 14 digits.
From these, the. "large" variance-covariance matrix,
correlation coefficients are computed:
Perhaps a general description of certain features of the system is in
Input.
Lij = f.lXin?jm -
The
b.
Contrary to
the explicit decimal.
Fortran~
c.
Negative numbers are indicated by an explicit
minus Sign appearing somewhere in the field.
allows card columns to be skipped.
The maximum number of card col-
d.
=~i
~
S.::
Transformations.
1
A rather complete set of transformations is pro-
vided, including all the floating point arithmetic subroutines pro-
Memory Allocation.
A single reference address is defined, and memory
allocation is then computed for each
problem~
flexibility in optimizing the use of memory.
1
f i-
Li
r ..
l.J
l.J
LiLj
Using one-pass input, however, .'ith 8-significant-digit floating
This allows great
point arithmetic, may cause the loss of significant digits.
In other wards, if the
Two-pass input, on the other hand, reads the data once to form
problem is of rather Simple structure, involving few formats, trans-
sums and means and then reads the data the second time to form the
formations, etc., a greater portion of the memory is made available
"large" variance-covariance matrix, automatically subtracting means
for data storage.
before forming the sums of products.
This feature also makes the system usuable without
modification for memory sizes from 20 to 60 K.
o
~~-
M m im
L ..
e.
vided in the SPS II library •
.3.
1. zx
Standard deviation.
umns to be read per card can also be specified.
2.
(ffiXim) ~Xjm)
Arithmetic mean.
xi
Format control also
~
"Large" standard deviation.
Li
the format description overrides
M = number of observations.
"Large" covariance.
cards are read alphamerically so that explicit decimals mayor may
not be used.
In one-pass
input, the data are read only once, forming the sums and sums of
The basic mathematical method is given in:
M. A. Efroymsen, "Multiple Regression Analysis," Mathematical
Methods for Digital Computers, ed. A. Ralston and H. Wilf
(New York: John Wiley and Sons, 1960), Chap. 17, pp. 191-203.
1.
p08-
sible and easy to rearrange and recompile for different purposes.
The 80-Series Multiple Linear Regression System is the current result
written by Don Wyman.
Extensive use is made of programmed subroutines, thus making it
Lij - ~ (Xim - Y.i)(X jm - ~j)'
(-OJ
•
•
o
o
4.
3.
Two-pass input takes more time but does result in a more accurate cor-
application, and considering one variable at a time, the T random
relation matrix and does make available for punching and later use the
variable is equivalent
"large"variance-covariance matrix.
An experiment was run using zero-
to~.
Thus, the selection of FOUT
is equivalent to the selection of a critical value of T
= 4.0
2.0.
fill and nine-fill to determine the relative accuracy of the one-
The actual level of significance associated with a critical value
versus two-pass procedure.
of F or T depends also on the degrees of freedom (DF) which, in
On
the average, correlation coefficients
turn, is equal to the number of observations minus the number of
using the two-pass method had about 1.5 more significant digits.
6. Matrix Inversion. A matrix inversion routine has been adapted from
parameters estimated (including the constant term).
A test is made at each iteration so that no independent
Strap, 6.0.004 (now withdrawn), that requires only an upper triangular matrix.
variable is selected for inclusion if its diagonal element in
The correlation matrix is used in order to start with
numbers ranging in magnitude between -1 and +1 and thus to improve
the correlation matrix is smaller than 0.001.
the :accuracy ·of inversion.
a very high degree of multiple correlation between the variable
7. Regression Form. Three alternative forms of linear multiple regres-
in question and the already included independent variables, that
is, an R2 greater than 0.999.
sion are provided:
a.
Stepwise.
This value implies
In this form there is a single dependent variable.
b.
Multiple Dependent Variable Regression.
Here the problem is to
A stepwise method of matrix inversion is used so that at each
compute the
iteration the program selects the particular independent vari-
regressed against the remaining subset of variables.
able to add that will cause the greatest reduction in the un-
example, when regressing the second, fifth, and eighth variables
explained variance of the dependent variable.
against the first, third, fourth, sixth, and seventh, three
and FOUT may be entered so that· the program
abl~s
Values of FIN
~ll
Thus, for
separate regreSSion equations and. their associated statistics
select vari-
for inclusion providing the associated F level is greater
are computed.
The technique used here to select the independent variable
than FIN and select variables to delete providing the associated
to add is to aggregate the variance reduction for each of the
F level is less than FOUT.
dependent variables and select the independent variable that
The purpose of the stepwise procedure is to automatically
causes the greatest reduction in the aggregate.
select a subset of the independent variables such that their
associated coefficients will be statistically Significant at
some preselected level of significance.
regression statistics for a subset of the variables
In this particular
c.
Alternate Dependent Variable Regression.
treated symmetrically.
Here all variables are
The entire matrix of correlation coeffi-
cients is inverted and regression statistics computed for each
•
6.
t:
,'.
made to see if DF
N-l variables.
is not performed since it involves division by DF.
In order for this method to '{ork, all variables used
must be linearly independent.
8.
Sense s,,!itches
the number of variables (including the dependent variable).
are used only to select printing ·of input and/or transformed. data and
14.
Printing of input data is done only for one or
11.
the switches are turned off.
all typewriter output can be suppressed.
Contrary to most regression programs, the location of dependent variables
15. Complete residual analysis is available.
is arbitrary.
16.
A record of one-digit fields is used in .;hich a zero in-
~r
13.
option, almost
(b) means, standard deviations, and the correlation matrix.
t ' indicates a dependent variable.
In stepwise and multiple dependent variable regression, if one
On
Provision is made for reloading (a) sums and sums of products or
At
load time, variables can be deleted and/or sets of data from sub-
more
groups can be aggregated.
There are two alternative methods for
independent variables is excluded, an option is provided "hereby this ex-
aggregating subgroups:
eluded variable may be regressed against the includ.ed set of independent
sion function to a set of subgroups such that all regression coeffi-
variables.
cients are forced to be the same for each subgroup and the second
If, by chance or error, one of the variables is constant and thus has a
such that the constant terms are allowed to vary from one subgroup
zero "large" variance, the zero value is replaced by one so that no attempt
to another.
will be made to divide by zero iv-hile computing the correlation matri;:.
12.
This output is either provided for on the
typewriter or is punched for 80 x 80 listing.
dicates an excluded independent variable, a one indicates an included in-
10.
Convenient output is provided, complete with alphabetical headings
and explicit decimals.
t"o observations to see if the data are entering properly after '''hieh
dependent variable, and a record mark,
This situation
can arise only if the number of observations equals or is less than
Most of the options are indicated on a parameter card.
to halt computation.
9.
= 0.0. If it is, the normal computation of Sy.x
specified dependent variable regressed against the remaining set of
one which corresponds to fitting a regres-
For simplicity, assume that there are two subgroups:
one con-
Computation continues, but this variable will not enter into the regression.
sisting of 40 observations and the second of 60 observations.
If perfect multiple correlation is obtained, the standard error of the de-
the first method, both subgroups are analyzed separately, using one-
pendent variable is zero.
pass input.
lrnen this happens, the standard error of the
For
Then the "sums" decks are aggregated by Program 80-A,
coefficient is zero and the T ratio is not computed.
and the regreSSion results obtained are precisely those that would
If the number of parameters estimated (including the constant term) is
have been obtained by analyzing the whole set of 100 observations
equal to the n~~ber of observations, the degrees of freedom (DF) are
as one problem.
equal to zero, and the standard error
as:
of estimate is zero.
A test is
This is so because the aggregation forms sums such
40
100
100
1: X + Z
X ... Z X
t
t
t
t=1
t=41
t=1
...
o
(~)
rj
\'
/
•
o
o
S.
7.
and
80-3.
40
100
Z XtYt + Z
t=l
. t=41
XtYt •
correlation matrix.
Z XtYt
The second method analyses the two subgroups using two-pass input.
40
t=l
X2 ,
verted matrix.
80-4B.
Y'1.)(Yt - Y1 ) + Z
t=41
XZ)(Yt - Yz) 1 Z
f
(X t=l t
Program 80-4B performs multiple dependent variable regression.
It has
similar options to 80-4A.
100
(Xt -
On option,
transformed correlation matrix, and reinverts and punches the rein-
and Y •
2
100
(Xt -
Program 80-4A performs stepwise multiple linear regression.
it punches the regression statistics for each iteration, punches the
Here the sums of squares and products are in terms of deviations from
the group means, Xl' Y ,
l
In this case
On option, these statistics are punched.
t=l
80-4A.
}!
Program 80-3 forms mea.ns, standard deviations, and the upper triangular
100
X)(Y - Y).
t
80-4c.
Program. 80-4c performs alternate dependent variable regression.
It
has similar options to 80-4A.
where
Xand Yare
means of the entire set of 100 observations.
gression model that allows for separate values of the constant terms in
It is followed by 80-3 and 4 if sums are loaded or by 80_4 if means
each subset but forces all other coefficients to be the same.
are loaded.
The sepa-
In the Simple case de-
SO~B.
EXl ,
and A02 = Y - BX •
2
2
On option, any of the regression forms can be forced through the origin.
A specific description of the programs and their functions follows.
It reads and flags the parameter cards and computes data addresses
Program. 80-B is used to read, translate, and print on the typewriter
in explicit decimal form any or all of the punched output from 80-2,
3, or 4.
oO-C.
Program SO-l reads the header cards and initializes for either SO-2 or
SO-A.
SO-2.
Program 80-A is used to load, delete and/or cumulate sums and sums of
products or means, standard deviations, and correlation coefficients.
scribed above, AOI = Yl -
80-1.
SO-A.
case, all results, except the constant term, are appropriate for the re-
rate constant terms must be calculated by hand.
17.
In this
Program 80-c is used to read, translate, and punch in explicit decimal
form any or all of the punched output from 80-2, 3, or 4.
80-D.
Program 80-D is used to compute and print and/or punch reSiduals.
If
for the specific problem at hand.
the dependent variable is in logarithmic form, this program, in option,
Program SO-2 reads, floats, and stores the basic data; transforms the
computes the antilogs of the actual value, predicted value, and re-
data; performs either one-pass or two-pass input; and forms sums and
sidual.
sums of products.
On option, sums and sums of products are punched.
80-E.
Program 80_E is used to check punching accuracy.
It reads, floats,
and stores the basic data; and it cumulates and prints the sums of
the basic data and the sums of the transformed data.
9.
II.
10.
Columns
DATA PREPARATION, 80-1 THROUGH 4
23-25
(Note:
A.
Sequence of header cards is given by flow chart on page 18.)
Alphameric Cards
26-28
Example
N, number of variables used in regression.
If the load and delete option is selected,
N must be the number of variables before
deletion.
NDEP, number of dependent variables.
060
Used
only with ADV option.
014
immediately listed on the typewriter and are normally used to describe
29-31
NOTHAN, number of transformations.
015
the particular problem being solved.
32-34
NOCON, number of transformation constants.
012
35-36
NCOL, number of card columns read. If left
blank, up to 76 columns will be read.
65
37-39
NELIM, number of variables eliminated. Used
One or more alphameric cards must be used.
Alphameric cards are read and
If no such typing is deSired, a
blank card may be used.
The program recognizes that another alphameric card follows by the
presence of a record mark (0-2-8 multiple punch) in column 80.
only with CON 16.
Conse-
Columns 40 through 57 are used to enter one-digit constants that
quently, the last alphameric card in a sequence must not have a record
mark in column 80.
deSignate options.
All alphameric cards, except the last, must have a
For a particular card) listing on the typewriter continues until a
record mark is encountered.
Consequently, it is desirable to place a
record mark immediately following the last alphameric character to be
typed.
40
CON 1.
41
CON 2. A one indicates a choice of multiple dependent
variable regression.
42
CON 3. A one indicates a choice of alternate dependent
variable regression.
Some cards may then have two record marks, one following the al-
Note:
phameric information and one in column 80.
There is no limit on the number of alphameric cards used.
Description
1-
6
Date.
7- 8
Problem number.
Example
013163
02
9-13
NaBS, number of observations.
14-16
NFORM, number of data formats.
035
17-19
INVAR, number of variables read.
046
20-22
NOVAR, number of locations needed to accommodate all variables during transformation.
NOVAR ~ N.
00031
A ~ indicates a choice of stepwise regression.
Only one of the first three options should be used.
43
CON 4. A one indicates that FIN and FOUT are to be
These values-are used only in stepwise regression.
are not entered, FIN and FOUT are automatically set
to zero. A ~ or ~ indicates no F values are
44
CON 5. A one indicates that two-pass input is selected.
With two-pass input, the data are read first and, after
transformation, the variables are summed and means computed.
During the second pass of the data deck, the means are subtracted from the transformed variables, and sums of squares
and cross products are formed of the residuals. If sums
are punched, the sums-of-products matrix consists of large
variances and covariances,
One Parameter Card--No Flags Necessary
Columns
All but column 55 are either 0 (blank) or 1.
Column
record mark in column 80.
B.
Description
Li . ". Z (X.
J
- X.)(X.
1
Jm
-
X.).
J
065
NaVAR 2: INVAR.
o
mJ.m
entered.
If they
equal
read.
~
.~
(' /
.
,..-,,'
~
b
o
()
12.
11.
A zero or blank indicates one-pass input.
products matrix is then
Mij •
Co1unm
The sums-of-
55
CON 16. A digit, M, indicates that the "load" option
is selected and' M sets of previously punched "sums" or
"means" are to be cumulated. Normally, M is greater
than one only when CON 17 is blank or zero; that is,
the cumulation option is used only to aggregate sums
and sums of products for subsets of data. With this
option, it is possible to eliminate designated variables. A zero or blank indicates the load option is
not used. ~ 16 ~ndicates the selection of the load
option. Only i f CON 16 is a digi t will CON 17 be
tested.
56
CON 17. A one indicates that previously punched means,
standard deViations, and correlation matrix are to be
loaded; a zero or blank indicates that previously
punched sums-ahd sums of products are to be loaded.
~imXjm
Column
45
CON 6. A one indicates that weighted regression is used;
a zero or Mank that no weighting is reCluired. If weights
areused, the weight must be entered as an additional variable and, after transformation, it must occupy the (N+1)st
position.
46
CON 7. A one indicates that the regression surface is
forced to pass through the origin; a zero or blank indicates that forcing is not desired. TEISoption ~s used
only with one-pass input.
47
CON 8. A one indicates that typing of regression statistics is no~wanted. A zero or blank will cause the regression statrStics to be typed. In-any case, at least the
final regression statistics are punched and may be listed
with Program 80-B or C.
48
49
CON 9. A one indicates that sums and sums of products
are punchea-Tn internal floating point format. A zero
or blank indicates that "sums" are ~ punched. - -
57
C.
CON 11. A one indicates that "steps" are punched; a zero
or blank tha-r-"steps" are not punched. This option i-s-used only with the stepwis~egression option.
51
CON 12. A one indicates that the transformed correlation
matrix is punched in internal floating point format; a
zero or ~ indicates ~ punching.
CON 13. A one indicates that the transformed correlation
matrix is re1nverted and punched in internal floating
point format; a zero or blank indicates no reinversion
and' punching.
--
This constant is tested only if CON 16 is a digit.
CON 18. A one indicates that if anY,independent variable
is not used due to multico11inearit~it is regressed
against the included set of independent variables; a zero
or blank indicates that this option is ~ selected. - -
IND Card
This card is used only for stepwise or multiple dependent variable re-
CON 10. A one indicates that means, standard deviations,
and correlation matrix are punched in internal floating
point format. A zero or blank indicates that "means" are
not punched.
----
50
52
Note:
greSSion to denote the dependent variable (for stepwise regression) or
dependent variab1e(s) for multiple dependent variable regression.
Punch
a record mark (0-2-8 multiple punch) in the column or columns corresponding to the dependent variable or variables.
If the load and delete option
is used, the variables are renumbered seCluentially after deletion
and the
record mark or marks should be located relative to the new indexes.
D.
IDD CarMs)
This card is used only with alternate dependent variable regression.
Start-
ing with co1unms 1 and 2, punch in two-digit indices of all dependent variNote:
CON 14 and CON 15 are not used in the 80 Series.
ab1es to be used.
Use columns 1 through 80.
If more than 40 dependent
variables are used, punch a second card with the same format.
do not have to be in ascending or descending sequence •
..!I
cr- ,t-or c£ite.r Ye a
S01lS.
The variables
13.
E.
14.
02
Transformation Index Card(s)
XJ (original)~xI
As many transformation cards as needed, each card containing 10 eight--digit
The number in the Ith location of DATAl is replaced
'transformation indi ces.
~th
by the
Perhaps a brief eXplanation of the transformation scheme is in order
before a detailed description of each -transformation is given.
21
input variable stored in DATA2.
-XJ~
The data
The number in the Ith location is replaced by the
are read, floated, and stored in the first INVAR locations of DATAl.
There
negative of the number in the
are NOVAR locations provided in DATAl.
to these NOVAR locations.
X(l) through X(NOVAR), then, refer
04
The original INVAR variables are transmitted to
DATA2 which consists of exactly INVAR locations.
The number in the Ith location is replaced by the
sum of the number in the
Sequential transformations
~h
location and the !th con-
stant.
These numbers may be the numbers originally read in or numbers
found as a result of previous transformations.
location.
XJ + CKXI
All of the transforma
tions except the second refer to the numbers stored in the NOVAR locations
of DATAl.
~th
~
X
CKXI
J
may be applied to the same variable.
The number in the !th location is replaced by the
~roduct
of the number in the
~th
location and the !th
8-Digit Transformation Index
constant.
Columns
06
1-2
Transformation code, TT.
3-4
Index II, where the result of transformation is stored.
5-6
Index JJ, of first variable used in the transformation.
7-8
Index KK, of additional variable or transformation con-
XJ + ~-XI
The number in the !th location is replaced by the
sum of the numbers in ,the
07
~th
and !th locations.
XJ - ~-XI
The number in the !th location is replaced by the
stant used in the transformation.
Transformation Index
01
(TTIIJJKK).
Code
~th
difference of the numbers in the
TT.
08
X,r---JS:
X
J
and !th locations.
JSc-XI
The number in the !th location is replaced by the
The number in the Ith location is replaced by the numproduct of the numbers in the
ber in the
~th
location.
The number in the
~th
Q2
unchanged.
Example:
(01060300).
placed by the third number.
The sixth number is re-
~
/
and !th locations.
XJ :- ~-XI
The number in the Ith location is replaced by the
ratio of the numbers in the
r')
~th
location is
~th
and !th locations.
~
\
'
•
6
o
~
15·
10
1.0
16.
G.
X.r--XI
As many cards as needed to punch all transformation constants according
The number in the !th location is replaced by the
to format specifications.
reciprocal of the number in the Jth location.
11
XJ
Transformation Constant Card(s)
Negative constants require an explicit minus
sign somewhere in the specified field.
(C )
K
-XI
H.
The number in the Ith location is replaced by the
No flags are used.
Format Card for FIN and FDUT
FIN and FOUT are read under format control in the same way as data cards.
number in theJth location raised to theC(K) power.
If this option is chosen, a single format card must be used.
12
Ln X
more detail.
13
Log X (base 10)-~
J
X
J
(e) -~
14
J (natural log)-XI
I.
(10) J-JS:
16
SI~
card for FIN and FOUT
A single card is punched according to the format specification.
should be greater than FOUT in order to prevent cycling.
X
15
See "J" for
FIN
At the con-
clusion of the stepwise process, all included independent variables
will have an F value greater than FOUT and all excluded independent
Xy-JS:
variables will have an F value less than FIN.
17
Cos Xy--Xr
18
ARCTAN X.r-- XI
19
VXy--XI
20
This is a dummy transformation inserted so that the user
J.
Format Card(s) for Data
As many cards as needed, each card containing up to 13 six-digit formats.
Column
1-2
Number of sequential variables of the same format.
3-4
Number of card columns in field, that is, field width
of variable.
5-6
Number of decimal places from right of the field. If an
explicit decimal is present in the field, it is ignored.
can write any specific transformation, and use this code
to get to it.
F.
Format Card for Transformation Constants
Thus, if the first three variables are entered in five-column fields
Transformation constants are read under the same type of format control as
with the implicit decimal two places from the right, the six-digit format
are the data cards.
specification would be (030502).
If transformation constants are used, a single format
An example of the first three data fields
card must be prepared that specifies the number of fields, the field width,
for the numbers 2.35, 8.9, and 128 would be 00235/00890/12800.
and the location of decimal points.
are not punched.)
See "J" for more detail.
(Slashes
-
n.
PROGRAM 80-1
A six-digit format code is used. to skip cOlumns.
1
In the third "nd
ALP\.IA CA12.0(S,)
fourth columns of the six-diGit code, enter the number of card colUll'Jls to
skip.
Enter zeros in the first, second, fifth, Gnd sixth columns.
J
I
For
example, 004200 will cause the next 42 colw.!lS of the input card to be
PAR/).I'II.TIER. C/).IZ.t:'
l
IVP·C.II.IZ.I:HS)
skipped.
I7IGIT
O~
K.
1~1i'\C.ES
VE? VAftl"&LES
J.PV ItEGItU,"510N
Elimination Card(s)
As many cards as needed. are used ..ri th the load option.
Columns I and
::0
of the ,first card are used to denote the number of variables after deletion.
Columns 1-80 of the second. card are used to punch in ascending
order the indices of up to 40. variables to be deleted.
If more than 40
vartables are to be deleted, punch the hro-digit sequential i.ndices in
columns I through 80 of the third card.
If' no variables are to be deleted,
a single card vr:i.th the number Df variables loaded, nunched in columns 1
and 2, is all that is required.
All of these header cards are not used for all problems.
The se-
quence needed may be determined by consulting the flow chart on the next
page.
L.
Data Cards
Data fields are requtred to be from 1 to lLc columns vride.
If NCOL in the
parameter card is left blank, data fields are punched consecutively from
column 1 through 76.
If NCOL is punched, data fields are
tively from column 1 through NCOL.
consecu-
A ne", input card must be used if the
next data field would otherwise overlap NCOL+l.
may be used for any other purpose.
~')unehed
~UMS- f'UWC\.IEO
PT20GT2~M
Columns from NCOL+l to 80
~y
t50- 2
NCOL may be set as high as 80, :, n
which case the entire card is used for aata nelds.
I
As many data cards
per observation are used as a.re necessary for the INVAR variables.
FIN,fOUT c..~1Z.17
l
I7ATA CAIZ.t:'S
~)
(~
\
)
I'
'\
\,
)
t
•
6
o
o
20.
19.
b.
In order to clarify the input format, a number of examples are given
below.
Input cards are read alphamerically.
code in the data field is then analyzed.
digit code represents a decimal
point~
The number of decimal ?igits (digits to right of decimal point) in-
Each two-digit alphameric
dicated by the format is not limited by the field length because
If the two-digit code represents
a number, the numeric digit is transmitted to a work area.
the number of decimal digits is only used in calculating the ex-
If the two-
no transmission takes place.
Format decimal
ponent of the floating point number.
If
A negative number of decimal
the two-digit code represents a minus sign, a flag is placed over the low-
digits is equivalent to adding that number of zeros to the right
order digit, and a zero is transmitted.
of the number.
Any other two-digit code including
alphabetic information results in a zero being transmitted.
Example 2 illustrates these points.
After all two-
Example 2
digit codes have been analyzed, the resulting numeric field is translated
Input Card Columns 1-20
into internal floating point format and stored in "DATA 1."
1.
Decimal points
a.
Format
Tumber of
Length
words with
of
format
field
Punched decimaJ. points
The decimal point indicated by the format statement for the step-
12345678901234567890
Decimal
digits
The number
01
04-
of digits in the field in the format is the number of columns con-
01
04
05
sidered.
01
05
06
01
05
0'0
01
02
05
wise regression overrides decimal points in the input.
A punched decimal point counts as one column in the field.
Example 1 illustrates these points.
05
Meaning
First
mlinber in
field
.01234
I23400000I'
567800000
.090123
45678000000
.00090
Result
;678000009
~123000ur
!j:5678000Il
~OOOOOOUj
Example 1
In the first field of four digits, there are five decimal digits
Input Card Columns 1-10
12345.6789
Meaning
indicated so that these result in .01234.
four digits, there are negative five decimal digits indicated which
Result
Number of
words with
format
Format
Length
of
field
Decimal
digits
01
04
03
1.234
I23400000l
01
06
01
5678.9
;678900004
In the second field of
results in adding five zeros to the field of four digits.
2.
In the second field of six digits, the input shows the number to be
5.6789, but the format says there is only one decimal digit and
5678.9 results because the format overrides.
Minus signs
Negative numbers must be indicated by an explicit minus Sign because
a number overpunched by a negative Sign will be interpreted as a
letter.
A minus sign will result in a zero digit and a negative sign.
-
21.
Thefonnat field indicates the number of columns in the·field.
22.
III.
The
above is illustrated in Example 3.
OPERATING DFl'AILS
General
Set left margin at 15.
Example 3
Set tab stops at 21, 34, 47, 60, and 73.
All pro-
grams that are first of a sequence have a 2-card. memory clearing routine.
-1234- 4567-1234-45-7
Input Columns 1-20
Result
Meaning
Number of
words with
format
Fonnat
Length
of
field
Decimal
digits
01
05
03
-1.234
T234000mJ.J..
01
05
00
-4567.
4567000004-
01
03
01
-1.2
T20000omJ.J.
01
03
02
-3.40
340000000"1
01
04
00
-4507.
!j:"507000004
key upon completion.
Programs BO-l Through 80-4
A.
The minus sign
In the. fifth field,
Sense sWitch 2
The minus sign again resulted in a
B.
C.
This is illustrated in Example 4.
A = IbB = 2bC = 3-D
Note: b = blank
Input Card Columns 1;'20
~-
Off
No print
Prints trarisformed data
No print
Push reset button on console.
Computer must be in manual mode.
Meaning
03
04
Decimal
digits
01
01
08
04
001.0
002.0
-003.0
001.2345
Load program 80-1 into read hopper.
Follow With header cards, BO-2,
data cards, 80-3, and 80-4A, 4B, or 4c.
Example 4
(j
On
Prints basic
data
If it is not, push instant stop and then reset.
Any alphabetic information besides a decimal or a minus vill be re-
Format
Length
words vi th
of
format
field
Set sense sWitches.
Sense svi tch 1
Other alphabetic information
boor of
The
current IND card and "means" deck are punched for restart.
zero digit and a negative field.
placed by a zero digit.
Programs 80-4A, 4B, and 4c may be ter-
minated after a matrix transformation cycle by turning 2!! sense switch 4.
resulted in a zero digit and a negative field.
3.
simulate the load
That is, it reads a card into location zero and branches
to zero, thus loading the next program.
In the fourth field, the input card contained 34-.
the input card contained 45-7.
Each program in the sequence 1 through 4 is designed to
= 1.2345
Result
D.
Push load key on 1622 Card Read.
E.
Push punch start.
F.
Push reader start to complete reading final cards of 80-4.
TooooooOOl
~000000m.
300000IATR I X
AVERAGES
1.00000
-.12834
.08388
.99260
-.35924
1.00000
-.62993
-.15200
-.23401
1.00000
.09078
.18753
1.00000
-.39633
1.00000
STEP 999
CONS TANT TERM
2.75374
.36400
197.16039
04
=
COEFF
VAR
1.53782
-4.71950
.04049
-43.41737
01
02
03
04
121. 25260
STD ERR
T RAT! 0
.70645
2.77966
.32825
17.39774
2.17680
-1.69786
.12337
-2.49557
5.83929
1.00000
f
I
00031 OBSER
SUMS OF VARIABLES
125.99000
100.20248
127.92000
-6.17295
26.62500
42.67956
-182.45575
1.69902
-9.06542
-.29508
-4.57319
111.72000
sur-Is OF SQUARES AND CROSS-PRODUCTS
1057.01680
117 .02537
4.12645
.23410
1. 94293
.23754
2.99391
-.14566
.07570
.99253
-.33666
1.00000
-.64290
-.17116
-.21047
1.00000
.08208
.22138
1.00000
-.37309
STEP 999
cm-IB I NED GROUPS. TWO PASS
807.49000
3.23233
1.00000
DEP VAR
STD ERR Y.X
R SQUARED
SU~1 SQR RES
'NO VAR USED
VAR
05 VAR
4.06419
CORRELA TI ON nATR I X
CONS TANT
09 06 63
PROB 02
3.60387
STANDARD DEVIATIONS
I
05
DEPVAR
STD ERR V.X
R SQUARED
SU~1 SQR RES
INO VAR USED
,
26.04806
1.17439
39.92097
1.74931
-8.22561
277.86930
01
02
03
04
TER~1
05
2.66538
.33525
184.71178
04
=
COEFF
1.42606
-3.84201
.12273
-40.22568
110.35052
STD ERR
T RAT! 0
.69031
2.77233
.32381
17 .04627
2.06582
-1. 38583
.37903
-2.35979
-r
64.
63'
GROUP 1, COLUt-INS 21-30 OF FIRSTS TEP CARD MODI F I EO TO REFLECT
APPROPRIATE CONST TERM FOR FIRST GROUP, 111.03216.
RESIDUAL ANALYStS, COMBINED GROUPS, TWO PASS
STEP OUTPUT USED WITHOUT CHANGE. ALL OBSERVATIONS.
09 06 63
PROB 01
09 06 63
PROB 02
05 VAR
OBS
ACTUAL
PRED
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
2.98000
7.51000
.22000
3.15000
.98000
7.50000
8.03000
2.62000
2.74000
7.51000
5.36000
10.13000
.80000
10.93000
7.21000
2.54000
3.91000
4.96000
5.19000
2.62000
5.78000
3.19000
1. 63000
10.96000
.13000
4.39828
8.33926
2.13434
2.29856
3.41273
2.62413
4.03176
2.90167
5.42630
6.16389
2.49541
4.92560
5.06493
5.47169
7.75788
3.71649
6.01488
5.21117
4.84709
4.05791
5.97317
2.93852
4.52327
6.69808
1.72180
2.59860
3.03149
3.05118
2.86816
2.30646
.91440
2.9~0
.44000
2.13000
.17000
2.04000
1.62000
05 VAR
00031 OBSER
OBS
ACTUAL
PRED
RES
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
2.98000
7.51000
.22000
3.15000
.98000
7.50000
8.03000
2.62000
2.74000
7.51000
5.36000
10.13000
.80000
10.93000
7.21000
5.07992
9.02090
2.81598
2.98020
4.09437
3.30577
4.71340
3.58331
6.10794
6.84553
3.17705
5.60724
5.74657
6.15333
8.43952
-1.41828
-.82926
-1.91434
.85144
-2.43273
4.87587
3.99824
-.28167
-2.68630
1.34611
2.86459
5.20440
-4.26493
5.45831
-.54788
-1.17649
-2.10488
-.25117
.34291
-1.43791
-.19317
.25148
-2.89327
4.26192
-1.59180
.34140
-2.59149
-.92118
-2.69816
-.26646
.70560
00015 OBSER
RES
-2.09992
-1.51090
-2.59598
.16980
-3.11437
4.19423
3.31660
-.96331
-3.36794
.66447
2.18295
4.52276
-4.94657
4.77667
-1.22952
000150BSERVATIONS
SUH RES
-.00103
=
AVE AB RES=
2.64373
SSQR
138.48109
=
DSQR/SSQR =
2.47376
000310BSERVATIONS
SUt-1 RES
.00090
AVE AB RES=
1. 96785
SSQR
198.21127
2.38650
OSQR/SSQR =
()
(~)
r -\
i
'-
/
o
c
65.
GROUP 2, COLUr-1NS 21-30 OF FIRSTS TEP CARD t·l0D I F I ED TO REFLECT
APPROPRIATE CONST TERM FOR SECOND GROUP, 109.71869.
09 06 63
PROS 02
05 VAR
ass
ACTUAL
PRED
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
2.54000
3.91000
4.96000
5.19000
2.62000
5.78000
3.19000
1.63000
10.96000
.13000
2.94000
.44000
2.13000
.17000
2.04000
1.62000
3.08466
5.38305
4.57934
4.21526
3.42608
5.34134
2.30669
3.89144
6.06625
1.08997
1. 96677
2.39966
2.41935
2.23633
1.67463
.28257
00016 OBSER
RES
-.54466
-1.47305
.38066
.97474
-.80608
.43866
.88331
-2.26144
4.89375
-.95997
.97323
-1.95966
-.28935
-2.06633
.36537
1.33743
000160BSERVATIONS
SUM RES
-.11339
=
AVE AB RES=
1.28798
SSQR
q6.23151
=
DSQR/SSQR =
2.81337
l
. . - - -" -,
--
(-)
o
i. _
.
a 4¥#Qwn
\. i. $;
;W@i\qwm .;. ail" ti:a IH . •A. .;;:;;• • :;;:sniaiiUUXUJ :JSililtlii liiiitUliii4::,a.=-_ _ _
f"
I:'
!,I
1620 USERS GROUP PROGRAM REVIEW AND EVALUATION
(fill out. in typewriter or pencil, do not use ink)
PTogramNo. _________________
,,---,
',,~J
Da~,
______________
Program Name: _ _ _ _ _ _ _ _ _ _ _ _...........____________________
1.
Does the abstract adequately describe what the program is and what
it does?
_________________________
Yes_No_
2.
Does the program do \AJhat t1-}e abstract says?
Comment
Yes_ No
3.
Is the Description clear, understandable, and adequate? "
Comment
Yes
No
-
4.
Are the Operating Instructions understandable and in sufficient detail?
Comment
Axe the Sense Switch options adequately described (if applicable)?
Are the mnemonic labels identified or sufficiently understandable?
Comment
Yes_ No
-
Yes
No
Yes_ No
--
50
Does the source prograrn compile satisfactorily (if applicable)?
Comment
Yes__ No
---
6.
Does the obj ect program run satisfactorily?
Comment
Yes
7.
Number of test cases run
Are any restrictions as to data,
size, range, etc. covered adequately in description?
Comment
Yes_ No
Does the Program Meet the minimal standards of the 1620 Users
Group?
Comnlent
Yes_No_
Were all necessary parts of the program received?
Comment
Yes_No_
Comment~
-"
r~"
.
,-~-.;'''
8.
--
-
No
-
-------------------------------------------------
9.
"--------------------------------------------------
10..
Please list on the back any suggestions to improve the usefulness of the program.
These will be passed onto the author for his consideration.
Please return to:
Mr. Richard La Pratt
Data Corporation
7500 Old Xenia Pike
Dayton, Ohio 45432
/"--1\r.
Your Name
Company
Address
User Group Code_ _ _ _ _ _ _ _ _ __
THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM
REVIEW AN"D EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED
TO PARTICIPATE IN THIS EVALUATION.
-h-
11/09/64
\/11.
~L
c
o
o
OW
C\.\MZTco
67.
P12.DGI2.AM 80-1,
INITIAlIZ.ATION
~TAItT1
[~t.2.\l.IAGE
I \l.EA~
,....-------. I TEMPi = TEMP\. T
iZ.eTU\l.~
I
ALP~~U~
,
I
Wtl.ITE"
~
2 I::.
!
1
II1P= uw;~
C.AI7P1
"'LPI-l~~
"F01Z.MAT
= TEMPi
-]
I
TEMP2:: NFOtl.M~
1
~
GTIZ.·O
I
INC
~ =
C,Ttl. ="GT!2.+ 1-
1
I Tf;tl.P2= TEMf'2
I
"" \3
iE.MPl
J
I
IM?e= ~I
I
FIN: ZE.IZO
I
,
I
FOOT
= i!~f2.0
F = e '" /2.0
I
I~
WJ
v
C.AVI1
IN17"
I~OO--J
,
J
iEMP2 = NOT2AN
TEMPi :: I~V - ~
1
C--CTll.=C
I~C2
ITEMP1 .. TiNlP1-1-1C. + 1.
l
!
CTIl.~ C.Tll.","~
117"TEM~1.
I
I TE MV2. s
TEMII2- "'" 1.0
YE!»
•
~OG
s
:.....:.:.
Il.peON
Il~AV ANV FLAG
J:"Oi2Jo/\AT CAIZ.Q
FD!2. TIlAN?FO/ZMATIDti
~
CtOON,;'-K:
Il.INV
,
1f2.~AD
-~
INI7 CArLl?
Q
~
C.ON?TAt{T~
I
J
LOlli
!l.~AO NUM~~12. Of
\JA[IA~L£'5
AFTER
~UWt.\N Al10~
ANU FLAb
1
'<~?
[("LtAt2. . INV
V&~8
PI2~
I PIZ.INT
I
DAT~I
-I
NO
Q.EAV ANV j:LAG
INVE. ):t~ DF VAIlIA&1£5
TO E.L\MIMAT~
YE.~
8
c
r--)
\c. /
f'
'"
n
c
o
7C.
PIZOGI2A~ 80- 2, e.EA17, FLOAT
V~I~,
\=0\2.1\1\
~UN6
~NV 5T0I2£
b.~~ ~UN6
OAT~,
OF
~t20VUCTo.
~~8
SUMWT= O.O~
L..OOP5
~
C.OUt-lT ..
1..001'4
Q
5U0Y
,
I
\-lOe,~
r
~EAI7I
HOAT AND
~TOIZ.E ONE
Og,~EIZ.V~T'O~
IIWAIZ.
",11.
T1Z.~N'=>fOQ.~
NUM&ElZc;,
I C.OUt-lT
.. c.oUWT - 1.
I
M08
veo8
MGNT= N
I=-1
5U~w\1
J
I
[XCI) = XlI)- )«(fY]
l
I
= I+ 1
~
[MC"tJTo. W\GNT- 1 I
~
tDl2PIlO
~X<.I))I.{J)'" £X(I)X(J)
TXtI') X(1)j I : i}1 J J= 1., ~
IF WEIG\.ITEI7
lZEc:,.,
2WXL!)XCn c ~W)(ll)l((j)
-+ WXlI»){(J)
rc:ouNT=-C.O\Jt.l1 - 1 I
•
8
NO
?~ .•
P2.0G.1t"1IA
eo-~,
F02.M
ANO
ME "t-l'!),
&TAtolOAsz.V DEVIATION':>,
"-l\r..T1l.\ Y..
Q
[l\lCT1.::::t-.\
LSVY
I
NO
?
LV£, T1
L-V
J::.i.~
-,
r
l
L-VCT2 ... N
~X(I)
EX(I)= O!l5EIl.
I= i,tI\
~
c
I--LVCT 2 =-
LVCTll
+
i
;1":;-l:.
l
ca:::v-c:.-" 1 :. LV C ,. Z
LV!.
~
[L\FCTZ = LVCTZ-ll
t
L504
I:.-f~
I
!I:..VC.Ti .. L-VGT.i-
.
I
1\
LY0FJ]
+
y~?
C
r- -[\ICT1= N
)
1
!
c= 1= 1
l
7ET i
,
I2.lI,I)", 1.D
\-.----,......,
tJ' .. 1:
~ .. LVC.T2. - i
~o
~
I':>
--.......
J
"lOS
1:.1+T-
t
o
1LVCT 1 ... LVCT1-11
t
_.-------.....1
/lVGT1=l\fCTi-iJ----
~-c
I
+
N
I
LVGT f~
~~
\.0 / )
t
;r~
c- - t
L-V4
G
=
J
,
,-----.. c=-r -;1
("DIZ
C.01l.a.~LII."\ON
7:3.
Y£?
HDG
/
\
l,_ )
n
o
()
?E.
?Li.
P~06~AM 80-4~.
STEPWI&E
lZ.EG2.ES~'OtJ
At-lAL'iS'~
I7FsOe.5~
1
r--------.I
t
C.OUt-lT~-~
STW24-
=N
I
AV=
I
~
IND~
I
J
~v 1
I: 1
t
I T1N2.3
$TA1Z.45
PF ~ OB5Erl
I
-I
MV9
\..l\C;\f:ZElZ.O~
""171
s
I
t-\O
,
C.OU~T
~
8
'1ES·
= Io.l
1
,
y~~
6
NO
8
n
~~~e
c)
(
\
o
MI7VMOV
~,
r - - -__
..
c=J'J' ---;;-, \IE. +i
J
Mc,trr == M.C,Ni -1-
I
C
COMPUTE NO\N
r-
o
n
,
NOS
MC"T-=- N
NO
I-C,OMV-UT~
,
l
M.eNt -=
~
L
~ IV£
I
.
l
t.
I
NO\N
~
l:)(N\OO
IVE. "'-WE. + 1-
1
CMr-NT =MCNi - 1-
YE,
8
s
J
NO
s
s
PIZ.O()"~M
80- 4",
AL TEItNATE
\( = j( +
[
2eGIZ.E.~S\ON
M~VVL
6TA.TZ.4c
RF-= OS5E;-rz.
9
VAIZ.IA~\'E
17EPE W17ENi
. - - - - -.. I
-]
I
C.NTTZ.1. "" N
\.1\ u \.I .-0-:-OU==:=-J
1
I&·i-~
I
C--:J
1
- COUNT ;;;-C6UNT=I~
J
~'s8
Plva
ITEMPl·~IGH - !leI, 1)1
PUNCU-12.
):\~~L
1
S-'MUlAT£ lOAV
,
\olO
- AI7= INt'
I
I
PIV4
ITEMPi ~-O.00.1-R.(:t,l)1
+
e
CNTlZ.l; CNTIZ.1.:"60!
'
PIVS
J
l
I
1-4161-(
I
()
I
1
,,= I
P\\I6
I:-I+c=J
I
C.NTtU
a
~o
= rl.(1.:1:)
=C.WTrl.1-1h
n
o
~
.,.
YESG
T5Tl
(3
G
\
eel
Q
A9~ x~-
Q
J
C=CNn2=-N
T~T1Y
r-
~
J~--]
~
CTIZ.=
C~Q~Y
l
-I=l
VE)(2
C
INVC;r)=
~.
r
J"- J"+i
CTrl-'::'ll
1
VE)(3
I
r=I+-l
1
t
I C-NTlZ.-1 =c, NTItI.:D
I
CCM017
I-=I+1
~
G
[
~-NTI2=
- I
ChlTrl-i
'1Ecs.
I
+
CNTI2::. ~olf,rl
~
J .. 1
,TilL
NO
I
I 1Z.':>~1Z. =
Ao
c= -J .... J.,.!
I
l
\.10
Y£5
I
J
I = 1
= 0.0
I
CNTrz:= CNTIl-ll
t.o - TEMP2]
8-·
l
;J;;1-~~
~
C.NT~1
MC.NT=
;. N
MC.NT=-rJ
1
.---I
'YES
8
a
8
ADV2
o
o
~
PROGRAM SOA, WAD, DELETE AND JOR CUMULATE SUMS OR MEANS DECKS
e
I.
NOBS(l), N(l)j
From parameter card read by SO-I.
NOBS(2), N(2)j
From parameter card--first card of sums or means deck.
N(3)j Number of variables after elimination, read by SO-I.
II.
INDEXES:
Ij
I COUNT: COVNFIl
I
G
III.
Loading sums, means and standard deviations.
Index of variable on card, 1=1, 2, •.• , S.
Variables on cards, K
X(J)j
Variables in memory, J = 1, 2, .•• ,
\(=
I
2, ••• , N(l).
N(3).
ELIM(M)j
Indexes of variables eliminated, M = 1, 2, ... , NELIM.
INDEXES:
Loading sums of products or correlation coefficients.
Ij
Index of variable on card, 1=1, 2, ... , S.
Y(L,K);
Variables on cards,
L
r==-
= 1,
Y(K)j
=
1, 2, ... , N(l)j
K = L, L + 1, .•. , N(l).
i
X(J)j Variables in memory,
N(3).L'N(3) +
J = 1, 2, ... ,
ELIM(Ml or M2)
2
Ml for row comparisons.
M2 for column comparisons.
Ml
= 1,
M2
= MI.,
2, ••• , NELIM
Ml. + 1, .•. , NELIM
g
1
PROGI2AM BOA - lOAV, \]HfT~ ~~Q/olL. C.U~IJUS[ SUMS
ou. M(At-lS
{)~C\Lc)
MOVEl
tQ.l2.0W
,J=-T~=:J
Noes
I
L= 1
I
M1.= 1
!
l
=-0
~
.
....------- I
"lit = N\\. + 1
~
J
-,
\(.~c--~
I
W\'2.-;-1··-~
5K.IPl
112.~M7
C=M"'M+i
1
MOY1
I=- -1 + 1.
I
DATA CAl2.V-'
1
r--
i~i
NOPEIZ.
J
NDO
C=~1L+1··
-I
prrz.- lIT@\[]
I
l
K. K.+ 1-J
1
1:';;I~
==
J
MV\~O
t-A'2 . ~ M1 - . -
J
l
I
= 1.
NoB 8
MOVE 2
K= 1
~1(j,MKJ-'---~
ILOAD INTO
~o
YE~
~---.
1
I :.
i
r
fAi
~y
o
1
r =1
1
J
I
If
8 --------1
k
~
I
I
~
(~
'-/
o
Z
III
d\
o
•. .~ ..
Q}
n..
o
.
u
.~
!\..
U
,
P!l.OG.IZ.~"'"
BOB -
TYP£
t:"\N~L
1Z.£.pmz.T
'7
. 5TA12.T &
IQEn-V ALPUA c.n-tLv]
I
9
WlZ.ln: ~LP~A
I
YE'Zl
8
172-INT SUM'::'
OF'P2.D17VC; TS
rz.D('OIZ.'O
IZ.EAO PAUNETEI2.
c.~2.V
ES
'<
G
rJ
8
lZ.I7STEV
8
8
n
~'---
/
o
o
c
9
1: = 1-
1
M= 1.
"":1
-
1
-~
COUNT
J
WI
=- NO\N
I
l
92.It-lT 1Q(I\,\)
TAe,
J
wz
Ip~I~T ?TEP NO.
!
PlZ.lt-lT
~lM)
I
!
\t-l
TA~~
W?>
17~
TUSE[ijJ~
1
TAB
IV2
W4
C-rV{Ml=!
1
M.~I\tI+-\..
1
1
I=I;.i
,
-~
'-OUN':. COUN1-
-I
rne-:>
ao
Is:
z"
Oc
.-1
orn·
(7)::0
-<
1
P!Z.It-1T TeN'.)
iJ
I C~Il.~IA(;£ ~ETUt2..~'lI
J
».:. WI.+- t
I
'-DUNT=- CO\l~\-\l
1
t-lO
8
C==··I-'ALT
l
8
8
PQ.06,lZAM
80G - PUNC\..\ FINAL \ZEI70IZ.T
TI-lE flOW CI-lAlZ..T FOll
TO
T\'\AT
. PUNC.~Et7
1= OlZ.
BOC
I?
60~,
\N~TEAlI
£.XC.E PT
T\-\AT
OF
T"I'PEQ.
VIZ.OGIZ.A.M. 8017 - rlESIOUAl
t.?SENTIP>.LlY
CAlZ.V
\N\~6'C. S
Sl""'\\.\l\~
~---..
9
~~~
A.~~L '{SIS
1Z.t.~D
~
I
o-~~EI2.~
1
~QI2:; 0.0
l 0.0
?AV€';'
5'S
I
~
u_
1
?UMtz.E:';O.O ~
I
I
~u""~~;~
J
J2.EAV T'6
C.CEAlZ. ALV"A
I
175GHZ:; 0.0
I
Il.EAt75E'S
IIZ.EAt> AlP~Ac..AIZ.t>
-,
I
l.OOP'
{
VJL\"lT ALPHA
J
/),,9= INIl
1
NO
~'8
GOUNT= GOUN1'-i1
l
pUtR\J.--ALV\:\~~
J
8
()
I ~EQU~~(~
III 0
~O.:; 0
I
J
P£EP'l+i= 1.
()
C)
Il
o
,. .y
I:. 1.
M::.
~--.. [T~M"I" i£."5.-2..t.5~
Q
11-11)
CD
CD
o
o
c
PIZ.06T2.AM BOE -
SUM
n
I
G\.{E c.\l. PIZ.OGt2.AM
~TAI2TE'
I~£At7 AU'\..IA
CA.12 P
1
t--lO
TYPE: A.LP\..IA
I
ewv
"
c..OUNi ~ ~OUNT - \
I
~
l
YE'O
~1~\S\-\
\.\A.LT
1
8
o
o
\III\,
SP5
P12.0Gl2..Aw\
\..\C5TIt-1G~
/07,
00010* PROGRAH 80-1, INITIALIZATION, ~·IULTIPLE REGRESSION SYSTEH,
00020* OCT. 10, 1963.
00030REF
OS
,13400
00040
OORG 402
00050CONT
oss
80
00070PROB
00080NOBS
OS
os
OS
5,CONT+12
0009QNFORI'I
OS
3,CONT+15
00100lNVAR
OS
3,CONT+18
00110NOVAR
OS
3,CONT+21
--
00407 00006
00409 00002
- -oo-lt-14-0006S-----00417 00003
00420 00003
AAh9:1
00120N
00130NOEP
OS
OS
0014ONOTRAN OS
---. - - - - - _ ..
001~ONOCON
OS
00160NCOL
OS
00 170NEl) H OS
_._-------.--00180CONl
OS
3,CONT+30
3,CONT+33
2,CONT+35
3,CONT+38
OS
- ---""--_.-. -- -_._-- ..
00210CON4
OS
1,CONT+41
00220CON5
00230CON6
00240CON7
00250CON8
00260CON9
OS
OS
OS
OS
OS
00429 00003
.----OOlf32 eeee 3
1,CONT+42
1,CONT+43
1,CONT+44
00437 00002
~
~-oooot00~2
ee~3
oooot
eeee1
00444 00001
1,CONT+45
1,CONT+47
OS
1,CONT+48
00280CON11
OS
1,CONT+4~
00300CON13
OS
1,CONT+51
00310CON14
OS
1 ,CaNT +52
00320CON1,
DS
1,CONT+53
00330CON16
OS
1,CONT+54
00340CON17
OS
1 ,CONT +55
00350CON18
OS
1,COtH+56
•
00454 00001
00001
00456 00001
00457 00001
--~~Otl'\O~OOl"\-lt-----
003600BSER
os
10,CONT+79
00370 I ND
OS
5
0038010
OS
5
003~0100
os
5
00400FORMA T OS
5
00481 00010
00486 00005
00491 00005
00496 00005
OO~o-t
00410lNOEX
OS
5
00420CONST
OS
5
004300ATA 1
OS
5
004400ATA2
OS
5
00450B
OS
5
00460S£
OS
5
00470T
OS
5
00480SUI'11
OS
5
00490S IG~1A
OS
5
00500R
OS
5
00510VIT
OS
5
00520AOKK
OS
5
00530AORNN
OS
5
00448 00001
U"\701JT
-oo-oo-s
00506 00005
00511 00005
00516 00005
uu:;,z IUUUU5
00526 00005
00531 00005
00536 00005
00541 00005
00546 00005
0055-1-
oooos-- -
00556 00005
00561 00005
AAr;;f.,f., AAAA"
00540AOIJ
OS
5
00550AORIJ
OS
5
00450 00001
00451 00001
00452 00001
00453 00001
--~-----OO455
00447 00001
U U"1""1";1
.Q0270CON 10
1, CONT +50
00445 00001
00446 00001
1,CONT+46
OS
00435 00003
1,CONT+39
1,CONT+40
00200CON3
00426 00003
00440 AAAA
os
00190CON2
AAAA:I
3,CONT+24
3,CONT+27
002:JOCON 12
00402
6,CONT+5
2,CONT+7
/08_
13400 00000
0041)£-~--------
000600ATE
o
~
00571 00005
00576 00005
110.
109.
005.)QSIG';3 - :.S
5
i~S
5
00581 00005
00570CC)u"'T
;S
os
DS
3
00610J
OS
3
00620K
OS
3
005~15
)S
00640P
DS
006SoQ
os
00670 I VE
DS
3
3
00690THiPl
os
10
00700THIP2
DS
10
00710AO
DS
10
OOnOEY
JS
10
0073QRSQR
)S
10
00740sCR
r,s
10
00750l)F
os
10
00760F
0S
10
007]OF I j:
[is
10
007S0FOUT
'jS
10
oOrOI'IIG,~
)S
10
OO~OO\,P
- <::
:J
-'
·10
00 ~ lOVE
~)S
10
OO~~20)UT
;JS
80
DC
8,10000000
00870FHIGH
DC
2,50
00851 00002
DC
2,-99
00604 00003
00900ZEROS
DC
10,0
00607 00003
00910
DC
8,10000000
00610 00003
OOnOONE
DC
2,1
00859 00008
00861 00002
00871 00010
00879 00008
0088100002
0092SSU: lI'lT
00 930'\00q40'<00~l50"<
00:)60"<
00970'"
00620 00003
00630 00010
00~)80HCTR
us
*
*
10
*
*
*
*
REID, FLOAT,
*
00891 00010
*
*
*
*
*~<
SU8ROUTINE TO
tND STORE NUI'18ERS UNfJER
FORIIAT CONTROL.
NEE:~ S NunEER OF \;/ORJ~ AND INI TltL
t'DDRESS I,/I-!ERE STOREJ.
us
*
3
*
*
*
*
*
*
-;,
-;,
,',
*
00894 00003
00640 00010
00~)90
00050 00010
01000RFS
00660 00010
01010
00670 00010
01020
00680 00010
010 30FR,' IT
00690 00010
01040
00700 00010
01050
00710 00010
01060
00720 00010
01070
00730 000 10
010S0RE/\DN
00740 00010
010:lO
00750 00010
01100
00830 00080
a
00860
00890ZERO
00617 00003
DS
2,-2
0060 1 00003
00614 00004
00680lVP
DC
8,0
3
4
008S0FPOOl
uC
3
[lS
8, 10000000
00880
3
00660 1 lSZ
UC
00849 00008
00003
005S8 00003
00630L
00840
00841 00002
3
00592 00003
00600 I
1, ,
00839 00008
3
005b:: 00003
. 005:'OCTR
0C
00831 00001
00536 00005
00 5 soc;n;~
00830
o 1 110 L 00 P 1
r)
"-L~/
os
5
00899 00005
TRS!iT+23,RFS-l, ,SET UP STORE ADDRESS.
00900 26 01823
TFil READN-2,READN
00~12 16 00978
TF
FRtH + 11, FOR; ,A T
00924 26 00947
TF
S·PEC, 9~1:)99
00936 26 01939
SF
SPEC-l
00948 32 01938
SF
SPEC-3
00960 32 01936
t;
'J?-999",READN OR LOOPl
00~72 49 99999
[lORe; -;<-3
00980
P/~CJ t,LPHA
00980 37 01983
TFi1 READN-2,LOOPl
00~92 16 00?78
Tfi \ f. [lDR, t,LPHA-2
01004 16 01944
t
t\llOR,5PEC-2
01016 21 01944
TF
00899
00980
00501
~9~99
00000
00000
00000
00500
01016
01981
01937
r-'\
~'"-
)
o
o·
()
112·
III.
01120
t,
ADDR,SPEC-2
01130
Tf
INPUT,ZEROS
TF
01140
en
01150C~\COL
BNl
01160
UI
01162
01164
BE
01170
TOtl
TF
01180
TF
01190
TF
01200
TF
01210
TF
01220
01230
01240
01250
01260
-
~r-
TFtl
TF/I
TF/I
I NPUT-~I,ZEROS-5
AODR,ALPHA+154
RtAONSPEC-4
STEP1
SIGN2,O
D1+6,ADDR
D2+11,D1+6
PER+b,Dl+6
D4+6,Dl+6
RET+6,01+6
_
RET+T)~T~lIT
02+6, INPUT
05+6, INPUT
SETFI+b,-fNl'UT +"1
S
SITFL+6,SPEC-2
01280RET
SF
99999" ,ADDR-l
01300
01310D2
m
BL
TO
- g9g9g;7{r~
99999,99999"INPUT,ADDR
B
01330
DORG *-3
01340PER
01350
01360D4
Ct-1
ro-
PER
01320
CHG+20
99999,03,10,AOOR
BE ----ci-lC--Ct-1
01370
BE
/·11 N
01040 26 01958 00871
o 1380D5
TDH
99999,0" INPUT
01052 26 01949 00866
o 13:X)
B
CHG+20
01064 14 01944 02137
01400
DORG *-3
01076 46 00980 01300
0141011 IN
SF
SIGN2
01088 14 01935 00000
01420
B
PER+48
01100 46 01890 01200
014.30
DORG *-3
01112 15 01974 00000
01440CHG
Ml
SETFL+6, 1,10
01124 26 01262 01944
01450
B
*+32
01136 26 01291 01262
01460
OORG "°-3
01148 26 01306 01262
01470
SII
02+6,1,10
01160 2&'0133001262
01480
S/'\
D5+6,1,10
01336 46 01368 01200
01360 49 01408 00000
--0136801368 32 01974 00000
01380 49 01348 00000
013815 ----
01400 49 01432 00000
-
01172 2601250 01262
01490
S/'\
D1+6,2,10
01184 12 01250 00001
01500
S/,1
02+11,2,10
01196 16 01286 01958
01510
SM
PER+6,2,10
01208 16 01354 01958
01520
S/'\
04+6,2,10
01220 16 01522 01959
01530
S~1
RET+6,2,10
01232 22 01522 01937
01540
C
02+6,SETFL+6
01244 32 99999 00000
01550
BNL
RET
01256 14 99999 00070
01560sETFL
SF
99999",(INPUT+l)-(SPEC-2)
01268 47 01300 01300
o 1570MOVE
U1
INPUT,0,10
01280 25 99999 99999
01580
BE
ZEROX
01292 49 01408 00000
01590
TF
CO/~N
01300
01600
CF
COMN-9
01300 14 99999 00003
01610
Tnl
EXPNT,INPUT+1
01312 46 01388 01200
01620
S
EXPNT ,SETFL+6
01324 14 99999 00020
01630
TF
BRNCH+11,SETFL+6
99999,20,10
01348 15 99999 00000
01388 1101522 00001
I
--- - -----
01270
oft90D f
01028 21 01944 01937
-o-t40S------------~-------
------
01408 12 01286 00001
01420 12 01354 00001
Oooo-z--- ----- -
-01432 17 --ol707 -
01444 12 01291 00002
o 1456 1 2 a 1 30 6 0000 2
--U14oa-Tz 01330
ooonz
01480 12 01250 00002
01492 24 01286 01522
,ZEROS
Ot504 4-6- 01244 -01300
01516 32 99999 00000
01528 14 01958 00000
0"1540 46 0191201£00
01552 26 01968 00871
0156433 01959 00000
-t)1"5-y-6--t-6 -o-t9/ 3"
6m~---
01588 22 01973 01522
01600 26 01647 01522
I
F
113_
01640
SF
EXPNT -1
01650
S
EXPNT,SPEC
o1660BRNCH
SD
DtGtT,99999
01670
SM
114-
01890
OORG *-3
01624 22 01973 01939
019000VR2
8B
01636 43 01680 99999
01910
OORG "<-9
--e-~t 2--3-2--&t--9-n-OOOOO- - -~-
EXPNT, 1 , 10
----------_._--- - -
01680
Ml
BRNCH+11,1,10
01690
B
BRNCH
01700
OORG *-3
1_
-&t6Jt8---+r---&-m-3--ooOO--l-----01660 11 01647 00001
01910
TF
*+30,BRNCH+11
01720
A~\
*+18,9,10
01680 26 0171~ 01647
TF
99999,EXPNT
01704 26 99999 01973
01740
TF
*+18,BRNCH+ll
01750
SF
99999
01716 26 01734 01647
_~_ TRS~1T+28,EX+6
01728 32 99999 00000
01760
01770
BNF
*+48,SI~N2-------------e-t-7~ 26 01828 &+1-1iT--------
01780
TF
*+3Q,TRSHT+28
01752 44
*+18,2,10
01764 26 01794 01828
01790
______ ~~~
A 177(, 19--e-t794
01800
SF
01810TRSMT
TFLS 99999,99999
99999
00002
•
- u-i)-l1-8&-:3-2- ~~9~9 00000
01800 16 O,i)23 01823
01812 49 04992 00000
01819 00005
~~9~~
01824 00005
99999
01820
AM
TRSMT+23, 10,10
S~1
VICTR, 1,10
DI~r
UYr\ £
01850
SM
SPEC-4, 1, 10
01860
BP
LOOP1
01830
at8-ro-s- ffP+ -AM-------f-R-M-1+tt-,-f,,-1-& 01880
B
01924 49 01800 00000
01932
8
---
o1960AODR
DS
5
01970lNPUT
OS
14
01939 00008
01944 00005
01958 00014
o 1980COt1N
DS
10
01990EXPNT
DS
5
02000S I GN2
DS
02001 PNUfvl
OS
4
02002MCNT
os
3
02003ALPHA
OAS
80
02004
DAC
1,@
02010PRBL
DAC
6,PROB
02020VRBL
DAC
5, VAR(w
020300BSR
DAC
7, OBSER(w
01968 00010
ot973 00005
- --01~ttr--oooo-t- -----
-- 01978 00004
01981 00003
01983 00080
~@
Ull4j UUUUl
02145 00006
02157 00005
02167 00007
------
02060STARTl RCTY
oooTo
02070
RACO ALPHA
01842 12 00894 00001
02080
'vIA TY ALPHA
01854 47 01910 01100
02090
BNR
*+20,ALPHA+158
01866 12 01935 00001
02100
B
STARTl
01878 46 01016 01100
02110
01830 1101823
~------
OS
----------
--------
018()-(}--~'f!t-
TRSMT
01912
01912 16 01828 00861
OORG *-3
01950SPEC
01692 11 017100&009
01730EX
B
01940
01672 49 01636 00000
01710DIGIT
~92E~~P'.9~ _ 2F~__!RSMT-::_?8, ZERO
0
- , 01930
G~----------
01910 42 00000 QOOOO
-----
02180 34 00000 00102
021~2 37 01983 00500
- o-zzo4 --39""
-
- - - _.
-
DORG *-3
---- - . _ - -
_ ..
---
01890 11 00947 00006
02120
RNCD CONT
01902 49 00936 00000
02130
SF
FRMT
DA TE-5
•
,,~
02216 45 02236 02141
02228 49 02180 00000
u££;;o
02236 36 00402 00500
02248 32 00lt02 00000
c
()
C)
o
n
~
116.
1J5·
TE-3
02140
Sf
J.!\
02150
SF
,)f\.TE-l
02160
SF
PROE~-l
02170
02180
SF
SF
NOBS-4
NFORt·I-2
021 ~l()
SF
I rlVAR-2
02200
SF
NOVAR-2
02210
SF
:'J-2
02220
02230
SF
SF
NDEP-2
~JOTRAN-2
SF
NOCON-2
02250
SF
NCOL-l
02260
SF
NELII-1-2
02270
Tnl
CMCOL+l~,ALPHA+152
02272
TF
BD
*+20,cmJ16
02273
fj
02274
DORG *-3
02275
S
02280"c
02290*
02300*
02310CADD
02284 32 00408 00000
022~t6
32 00410 00000
02308 32 00415 00000
02320 32 00418 00000
02356 32 00427 00000
02368 32 00430 00000
02380 32 00433 00000
02404 32 00438 00000
02428 26 0060 1 00426
TF
TEMPI, I NO
02330
TH~Pl
02340
Ai'l
TEHPI , 1, 10
02350
TF
1'),TEHPl
02360
firl
*+20,COrl3
023~lO
j,
nl',Pl,K
02400
A
TE~·.Pl,K
02410
TF
I :)0, TEr-IP 1
02420CAODl
A
TEHPI,K
02430
p
TEr;Pl,v.
o 24L,O
,\11
TE',PI ,1.;,10
02450
TF
FOW·,t',T, TH1Pl
02460
TF
TP1P2,;":FOR;~
02470
TH1
CTR,O, to
02480 /tJC
, ,
I'·
CTR, t, 10
o 24:lO
srI
TE:-IP2, 13,10
02500
f,P
INC
02510
n.'1
cm,7a , l0
02520
A
TEt·1P 1 , 9~J
I rJJEX, E'\Pl
02550
iF
TE :P2 ,iWTRt.~~
02560
TF:1
CTR,O,10
02570 I rie2
A:l
CTR,LI0
02472 16 00486 T3400
02580
SII
TErlP2, 10,10
02484 26 00630 00486
025:)0
SP
I Ne2
02496 21 00630 0060 1
02600
;.\ 1
CTR, 80,10
02508 11 00630 00001
02610
A
TEtlPl,99
02520 26 00491 00630
02620
Art
T01Pl,2,10
02532 L:3 02552 00443
02630
TF
CONST, TPIPt
,I'.
02552
02552 21 006.30 0060 1
02564 21 00630 00601
02588 21 00630 0060 1
02600 21 00630 00601
TF
02460
02544 49 02588 00000·
02576 26 00496 00630
02540
IND,REF
A
-;'-3
TEI~P 1,4,10
COMPUTE ADDRESSES FOR DATA F I ELOS.
02320
.j·:Jr.'...,
Ail
02460 22 0060 1 00440
Tnl
023~;0
02530
02452 49 02472 00000
K,tJElIH
U,I)ul
02392 32 00436 00000
02440 43 02460 00456
CADD
t~
02344 32 00424 00000
02416 16 01075 02135
K,N
02370
02272 32 00406 00000
02332 32 00421 00000
02240
02271
02260 32 00404 00000
02612 11 00630 000~4
02624 26 00501 00630
02636 26 00641) 004'7
02648 16 00552 OOO~O
02660 11 005~2 00001
02672 12 00640 000T3
02684 46 02660 01100
02696 13 00592 00079
02708 21 00630 00099
02720 l' 006.30 oooG4
02732 26 00506 00630
02744 26 00640 00432
02756 16 005S2 000~0
02768 1100592 00001
02780 12 00640 oooTo
02792 46 02768 01100
02804 13005:'2 oooBa
028.6 2' 00630 000~9
02828 11 00630 000~2
02840 26 00511 00630
""--, ..
118.
117.
n
x:::>
'i"')
w
TEiiPl-1,NOCar;
02650
02660
TF
Jt. TA 1,
02670
,1:\
TEHP1-1,NO\iJ.\R
02680
TF
026~OCAJD2
.A
TEliP 1
uA TA2, TEhP 1
TUIP 1-1, I NVAR
TUiPl
02700
TF
02710
t,
TEr-Wl-1,K
02720
TF
SE,THlPl
02730
t,
TL-iP1-1,K
02740
. IF
02750
ti
THiPl-1,K
02760
TF
SUIll, TEt,P 1
02770
t,
THIP1-l.K
6,
T, TEI·iP 1
02780
TF
S I G~\A, TEHP 1
02790
A
THiPl-1,K
02800
TF
02810
.\:\
02820
Tf
R,
TEt\P1
K,S,10
TEr-iP 1, 9:.1
02830
TF
TE!·iP2.K
02840
t.tl
TEijP2, 1,10
02850
j\
TEr-ip 1, TEfiP2
0~860
SF
:15
Oi870
TF
I;SZ, )8
02880
TFLS FIN,ZERO
'J23~0
TFLS FSL'T ,ZE?=1
02S00
TFLS F,ZERO
02864 26 00516 00630
02876 21 0062) 00423
02~00
21 00629 00420
02' 10;"
02~120~'
02912 26 00526 00630
02)30'"
o29 L,0
02924 21 00629 00601
02::'50>"
02:;6CP';
02S'70;'
02936 26 00531 00630
02948 21
0062~
00601
IS
~E~J
QliJO,C0i!3
1M]
03218 43 03310
TF
COU::T , i<.
02~!JO
TF
,', + 1 8, I tiD
02972 21 00629 00601
kiJCl)
:'99)~'
02984 26 00541 00630
~;\
RI:JI)+6,GO,1O
02996 21 00629 00601
SI·l
COUNT, 80. 10
03008 26 00546 00630
f: P
RIW)
[)
CliPL
03020 21 00629 00601
03032 26 00551 00630
~0443
CA~J(S).
02930
02960 26 00536 00630
03181
00000
00720
00861
USU.
!,:]\!
CJ
16 05023
49 04S;92
00005
Q0005
03188160502303211
03200 4S 04~92 00000
03207 00005
00700
03212 00005
00861
02888 26 00521 00630
03230 26 00586 00601
03242 26 03260 00486
OOR,; ;;-3
03044 13 00601 00005
TF
f: F 1+ ("
03056 26 00630 00099
$; ~
D.F 1+6, 1.10
03068 26 00640 00601
TF::
?
03080 1100640 00001
TFf·j
R. F 3+ 11
03092 23 00630 00640
TF! 1
'(F5+11,?10
03104 32 00095 00000
L: T
f"l,F, i';JEP
I [; D
F 2+ 11 ,80, 10
~:)
,40, 10
03116 26 00614 00098
03128
03140
03147
03152
16 05023
49 04992
00005
00005
LOA0 ?OUTINE USE).
03151
00000
00710
00861
RD
o
o
150-1'
160"
o 170-;'
o
03158
03170
03177
03132
02852 21 00629 00435
()
LOA fIR , COt!16
IS F;E :JUW,E;: OF
TR;',JSFO':("l?\TJG(~
CO;~STi-:~TS
ZEQO.
t-~l
\;
>1
o
o
o
119.
031S00lPR
CH
8P
03190
NOCON,O,10
o351O-k
03394 14- 004 35- 00000-
RDCON
03520*- ME f tit AtID foof READ.
03530"'0
o3540CMPF BD *+20, CON4
03406 46 03450 01100
03Z00*
03210*
03220*
03236
120.
IS THE
CH
NU~IBER
OF TRANSFOR1'-IATIONS= ZERO.
NOTRAN,O,lO
03240
8P
RDTRAN
03250
8
Cl'IPF
03418 14 00432 00000
03430 46 0354601100
03442 49 03618 00000
03260
B
03550
OORG- *-3
I
---t}OOt;-
03560-
03618 43 03638 00444
ROFORM
03630 49 03658 00000
*-J ------
03570
TH1
RET7+6,ROFORM
03580
B
FF
O~~
03638 16 04646 03658
03650 49 04544 00000
03450
03270*
03i80*
03290*
03300RDCON
03658
READ FORHATS FOR TRANSfOR~IA T ION CONS TANTS, ONE CARD.
TF
RF1+6,FOR~IAT
SM
RF1+6,5,10
. {} 34-5&-- ~- {}!r6&2-005{} t03462 12 04682 00005
TFM
RF2+11,78,10
03474 16 04699 00078
TFM
RF3+11,13,10
TFt1
RF5+11,6,10
8m
RF,13.10
BT
RFS,CONST
{}~-l-6-
&47 t- t- ooel3--- ----
03itt&*--
03546 26 04682 00506
RF1+6,7,10
_u
TFM
---
6-355&-12 04682 OOO(}7
RF2+11,80,10
03570 16 04699 00080
03470
TH1
RF3+11,10,10
TH!
RF5+11,8,10
Q3490
BT
RF,NOTRAN
03500*
RF2+11, 78,10
TFM
RF3+11,13,10
TFM
RF5+11,6,10
BT
RF ,NFORM
03730
A
vlT-1 , K
03670 12 04682 00005
---- --- ---~tO-04o~u007S------
037:30 26 00556 00516
03742 21 00555 00601
- ----- ---- --------------------------
03740*
-
03750*
03760*
03770
SET UP NUMBER OF CARD COLUMNS TO READ.
CM
NCOl,0,10
03780
BE
FLT
03790
TfM
CMCOl+l1,AlPHA
03754 14 00437 OO~O
--0"376tf- 4 int3814- trt2O(t--- - --
oooTo
{} WJ4- t-& &4 7-59--0000&-- - -
03800
A
C~1COl+11
03810
A
CMCOl+11,NCOl
03606 27 04652 00432
03820*
03830*
03840*
03582 16 04711
03480
TFM
03658 26 04682 OOSO 1
03522 26 00894 00435
03534 27 00900 00511
S~1
RF 1+6,5,10
-----------
03498 16 04759 ~
READ TRANSFORMATION INDEXES.
03420*
03430*
03440RDTRAN TF
RF1 +6, INDEX
03450
-03460
S~1
,NCOL
03778 16 01075 ~1983
03790 21 01075 00437
03802 21 01075 00437
FLOAT NUMBER OF OBSERVATIONS.
122.
121.
BT
03850FLT
CONV,N08S
-~:38t-42r A47'l9 AA414
03860*
03870*
03880* CLEAR 10,SUMl,SIGMA, ANO R
03890*
03900CLR
TF
CLR2+6,10
TF
03910
-- e-3826--lft-~-0049+------
CNTR,K
03838 26 00589 00-601
Tn1
o 3920CLR2
AM
03930
----
-
99999,0,10
CLR2+6, 2,10
------~----
03940
SM
03950
BP
CLR2
03960
TF
COUNT ,MSZ
03970
A
A
00000
93862-1-1 0395' oo-oG-l--
8P
CLRI
-~CTY-------
04170
BT
04180
SPTY
041~
8T
04200
SPTY
04210
BT
04220
RCTY
vJRNU~1,DA TE-4
COUNT,K
WRNU~1,DATE-2
TF
•
vIRNU~1,DATE
,..L
\T;}7':)~--ZV-
04000CLR3
---~
04020
04030
~
04050*
04060*
04070
04080
TFLS 99999,ZERO
Atl
CLR3+23, 16, 16
5t4
COUNT ,1; ~---:---
BP
042.30
WA TY PRBL
04240
BT
04250
TBTY
04260
BT
04270
vJATY VRBL
04280
TBTY
04290
TF
OUT, NaBS
OUT-4+
-1)42tr 34- 00000'-00103
WRNUt-I,K
04236 39 02157 00100
V,:)7V7 VU;}'
03965 00005
99999
03970 00005
00861
~4 300
CF
03976 11 03969
oooTo
04310
VlN TY OUT-4+
04272 33 00826 00000
04320
vJATY OBSR
04000 46 03946 01100
04330
RCTY
0434ORET2
RNCO a
04350
B
04360
OORG *-3
04370LOAOR
8D
*+20,CON4
04380
8
LOR 1
043~
DORG *-3
04400
TFN
RET7+6, *+20
04410
B
FF
*+20, CON3
----
PRH
04100
TF
CLR 1+6, I NO
TF
CNTR,K
~7
U~IU~
0
-- - - - - - - - - - - - - - -
uuuuu
04032
------
04032 26 04062 00486
-------
,..1._1.1.
,..,
U~"r1'
LV UU;r;::r;T
AA,...~r..
A_',
3tr 00820 00 roo
04~ ~1)2167
ooroo .
99999
04130
AM
CLR 1+6, 1 , 10
04140
S~1
CNTR,1,10
04068 11 04062 00001
- _n __ ------ --- _-n_---&46a&---tr-ee-5 A'l
04no- 30- OO()()O- 00500
04-nz- 49 0000-0- 00000
uq~'fU
043!to- 4 ~ 04360 00444
043S2 !t9
04 380- ()0()()1)
----------------------~O~!t~3~~----~~-----------
uuuu
04056 15 99999 00000
(j
00414
04J)8 34 00000 00102
OORG *-3
Tot-'
04260 20 00830
03988 12 00586 00001
Olte 12 43 Olte 32 00443B
0424a 34 00000 00108
04284
CLR3
04090
04120CLR 1
04224 27 04952 0060 1
ft.'~IL1~.J_ ..
I SIT AOV.
80
04 188--- ~ -02t4-S-- 00100
WRNU~1,PROB
04200 27 04952 001409
03946 16 05O-23-~---03958 49 04992 00000
U~L~
04110
"'''Ir-.Ln
04152-34-()()t)O(Iootol
04164 27 04952 001407
03898 26 00586 0061!t
03910 21 OOs86 00601-
l"ln..!'lL
21 04~2 00405
-- 04 1 i-6" 34- 00000- 00(1)2 -
03886 46 03856 01 too
CLR 3+ 23, SUt-I 1
34 00000 00102
04128 34 00000 00101
04140
03922 21 00586 00601
03990
04104
04tt6270495200403
03814 12 00589 00001
C'OUNT,K
04092 46 0405-6 0"--1t1'10""0,-----
n
CNTR, 1,10
------- _. ---- - - - - - - - - _ . _ - - - - - - -
03980
03850 16 ~~9~9
04150
04160PRH
- 0-4360 t6 0-4 6if 6 64 380
- 04312
!t~ 04544 0000()
AAAA 1
()
()
o
o
c
124.
123.
04420
uOR·.; "<-3
04430LJR 1
TF
,'< + 30, F or~!\A T
04440
St·\
><+18,5,10
04450RNC
RNCD 999S19
04451
TF
>,,+ 18 ,RNC+6
04452
SF
~)999:)
04453
cn
NEL P\,O, 10
04454
8E
ClR
04460
TF
RF 1+6,FORtIAT
04470
S~1
RF 1+6, 1,10
04480
TFtl
RF2+11,80,10
04490
TFi\
RF3+1',40,10
04500
Tnl
RF5+11,2,10
04510
8T
RF ,f'JELHI
04520
[)
CLR
04380
Ol~ 380 26 04410
99999 00500
04416 26 04434 04410
04428 32
L
046,\0
uOI<,; "<-3
04 64{) 4~ :Y:1:7~' 0000&
04648
00 50 1
04392 12 04410 00005
04404 36
))~J;tq
04670RE T7
99999 00000
041-,.40 14 00440 00000
046J01,
04700 1'
04710 1'
04720*
04730
it:
*
*
SUCROUTltlE
tND I UO,
*
04740RF
TF
ctHR,RF-l
04750
TF
Rf4+6,RF1+6
04760RFl
R~IC[j
:):J9~1{)
04770RF2
P.i\
RF 1+6, ~)~:1~9
04530
04512 1604759 00002
04524 27 04652 00440
04536 49 03826 00000
DORS *-3
047S0RF3
S:.
CIHR,
047'10
GP
RFl
04800
TF
CNTR,RF-1
04810RF4
SF
99~}')~}
·k
04540*
*
*
*
*
04550* SUBROUTINE FOR READING FIN AND
it:
;',
-I:
04560*
*
*
*
TF
RF 1+6, FORMAT
04570FF
04580
S+\
RF 1+6,5,1-0
04590
TFM
RF2+1',78,10
04600
TFM
RF3+1',13,10
04610
TFH
RF5+11,6,10
04620
8H1
~F,2,10
i:
FOUT~
'Ok
04820RF5
1'.;1
RF4+6,99999
04830
Sl'\
CNTR, 1 , 10
.
*
n
*
A
fiB
04860
OORG *-9
04688 11 04682 999~)
':):J~))~)
~12
048~10'"
04:)()0
fln~
RFS,FIN
04628 17 OO~OO 00710
99999 00000
04748 11 0474l~'
RF4
n
*
7,
...;,
-f}lfl~
04736 01100
04786
*
SUBROUTINE TO FLOAT NeBS.
it:
"k
*
uS
5
"
-:k--
",;":
n
04790 00005
04~10CONV
TFt\
EXP3,5,10
04~)20
TH1
TES TO+ 1l, CottV-5'
04:130
TFtl
.'\VVJRo+6,OSSER-5
04:)40
TF
OP.S£R,Z£ROS
04792 16 04947 00005
04804 16 04851 04787
04816 16 04926 00476
04828 26 00481 00871
04950TESTD
eo
SETH,
04%0
M\
TESTD+l1 ,1,10
~)t}i-)~
04616 16 00894 00002
04660
99~39
04712 46 ~676 01100
04604 17 04652 00002
READ,FLOAT AtW STORE FIN AIlJ FOUr.
TFM W£TR, 2,10
ee58)
- 6'!f~--oooot(1)()6OO--
ok
*
*
*
*
-*-.-----*--.-~--"Ir---.*-
04760 12 00589 00001
04850
04556 12 04682 00005
04630*
*
04-664·· ztr-a4-~l--~f,&2----
04592 16 04759 00006
04650
-><
04-650 00003
04568 16 04699 00078
04640"1,
*
.~* 32
Ejp
04870*
04880*
oooT3
*
04652 26 00589 04651
04840
04544 26 04682 00501
04580 1604711
*
-
*
*
*
04724 26 00589 04651
e~544-;'(
*
04676 36 9:1999 00500
()4'-f76 12 04682 00001
04500' 16 04711 0004'0
-;:
3
04464 26 04682 00501
oooBo
*
TO
, TRANSFORi'lATlmJ INOEXES,
I tHJEXES UF l.i[PENLEIH VAR I ABLES FOR AD\'.
[IS
04452 46 03826 01200
04488 16 04699
*
*REt..O *f:..NO FLAC,
* FORt-1ATS
*
*
04840 43 04896 99999
04852 11 04851 00001
125.
04~)70
.
SrI
EXP3, 1,10
04~180
S~I
; IVv/RD+6, 1,10
04:)5)0
E~
TESTO
05000
OORG >'<-3
05010SEHl
TF
04864 12 04947 onOOl
04876 12 04926 00001
04888 49 04840 00000
corns
048go - - .
'~+18,TESTD+l1
04896 26 04 914 0485 1
05020
SF
)q999
050~0,'WV/RO
TF
,::n9:)9,C~Ny-l
04908 32 99999 00000
--U432U·-ZO~1J4:i9I--
05040
TF
05050
BB
---
OESER,EXP3
04932 26 00481 04947
04944 42 00000 00000
05060
DORG
05070EXP3
05080
os
os
4
05090WRN~;
TF
OUT,NO
-.------.-- .. ---~-----------------
2
os-
04947 00002
049S1 00004
O-49?Z-Zo
05100NO
os
,\'/RNWt-l
05110
CF
OUT-1
05120
vlNTY OUT-l
05130
EB
05140
DORG
*-9
0r;145
uAC
1,0
05150
UENl) STARTl
END OF PASS I I
13400
REF
00402
CONT
00407
DATE
00409
PROB
00417
NFORM-- 00426
I NVAR
00!I'2"~ - - +HWA-R00426
I~
00432 >''020FH I GH
DC
2,50
06030
DC
8,0
0604OZERO
DC
2,-99
06050ZEROS
DC
10 ,0
00586 00005
00839 00008
3
00841 00002
00589 00003
DS
3
OS
_._.-
3.-.. _----
05760J
OS
3
05770K
OS
3
05780L
DS
3
05740CTR
00592 00003
057501
-
..
.
---
.. -
-
-
~
00849 00008
60851 00002
00595 00003
00598 00003
00859 00008
00601 00003
00861 00002
00604 00003
05790P
OS
00871 000 10
3
06060
DC
8,10000000
060700NE
DC
2,1
o 6OZ5SUtMT
os
1Q .
00607 00003
05800Q
OS
3
05810ilSZ
OS
4
05820lVE
DS
3
00879 00008
00610 00003
00614 00004
00630 000 10
06080'"
06090 0"
06100",
06110",
06120 0"
06130\;ICTR
00640 00010
00617 00003
05830lVP
OS
05840TE~'IPI
OS
10--.. ------
3
00620 00003
..-
05850TH1P2
0586OAO
OS
OS
OS
10
os
10
05890SQR
DS
10
059000F
OS
10
OS
DS
10
05930FOUT
OS
10
05940HIG~1
OS
10
05950VP
DS
to
05960VE
OS
"
"
"
OS
3
06140
DS
5
00650 00010
06150RFS
TF
00660 00010
06160
IFf:l
00670 00010
06170
TF
- - ---.-------
00680 00010
06180 FRt·\T
TF
00690 000 10
06190
SF
00700 00010
06200
SF
00710 00010
06210
e
00720 00010
06220
OORG
00730 00010
06230RE:,ON
RACD
00740 00010
06240
THI
00750 000 TO
- b6250
TFH
10
059700UT
DS
80
05980
DC
1,0)
"
*
FLOAT,
"
"
"
*
--;,
"
"
*
"
*
*
*
"
00830 00080
06260LOOP 1
fJ.
00899 00005
TRSMT+23,RfS-I"SET UP STORE ADDRESS.
g0900 26 01823
. READN-i ,REt.ON
00912 16 00978
FR~\T + 11 , FORI·1A T
00924 26 00947
SPEC,99999
00936 26 01939
SfYEC-l
00948 32 01938
SPEC-3
00960 32 01936
99999",READN OR LOOPI
00972 49 99999
"'-3
00980
tLPHA
00980 37 01983
READN-2,LOOPI
00992 16 00978
ADDR ,AIPFIA-2
01004 16 01944
ADDR,SPEC-2
01016 21 01944
00899
00980
00501
99999
00000
00000
00000
00500
01016
01981
01937
00831 00001
o
*
*
*
*
*
00894 00003
10
05920FIN
-k
SUBROUTINE TO READ,
AND STORE NUMBERS UNDER
FORtlAT CONTROL.
NEEDS NUMBER OF WORDS AND INITIAL
ADDRESS WHERE STORED.
10
05870EY
--- ._-
00891 00010
"
"
10
05880RSC'R
05910F
"
00881 00002
o
f-~
~--)
o
c
~
\- ,}
131·
06270
A
AODR,SPEC-2
06280
TF
INPUT,ZEROS
06290
TF
06312
06314
06320
06330
06340
06350
06360
06370
06380
06390
01088 14 01935 00000
STEPI
TDM
01100 46 01890 01200
SIGN2,0
TF
01112 15 01974 00000
D1+6,ADDR
TF
- -
...
01172 26 01250 01262
RET+6, 1,10
01184 12 01250 00001
D2+6, INPUT
D2~~_~.!..~P'~T
TFM
SETFL+6,INPUT+l
06450
01160 26 01330 01262
RET+6,01+6
_._--- - - - ---
TH!
0644001
01148 26 01306 01262
D4+6,01+6
06410
06430RET
01136 26 01291 01262
PER+6,Dl+6
TF
S
01124 26 01262 01944
02+ 11 ,9 t"±"6
TF
06400
06420
01076 46 00980 01300
SPEC-4,0,10
8E
THI
01064 14 01944 02137
READN
CM
St·1
01052 26 01949 00866
ADO~ ,AL.~H~.+154
BNL
TF
01040 26 01958 00871
1NPUT-9,ZEROS-5
Q?3.0 QOICOL. CM
06310
01028 21 01944 01937
01196 16 01286 01958
01208 16 01354 01958
01220 16 01522 01959
SETFL+6,SPEC-2
01232 22 01522 01937
SF .. 9~?!2~.! !..!~OD.R-1
CI-l
BL
01244 32 99999 00000
99999,70, 10
01256 14 99999 00070
PER
0646OD2
TD
99999,99999"INPUT,ADDR
06470
B
CHG+20
06480
0649QPER
06500
06510D4
01280 25 99999 99999
01292 49 01408 00000
OORG *-3
C~l
8E
Ctl
~9~9.9 ~o 3,
01268 47 01300 01300
'.9 ,AODR
CHG
99999,20,10
_
01300
01300 14 99999 00003
01312 46 01388 01200
01324 14 99999 00020
132.
06520
CE
ill N
0653005
TOM
99999,0,. INPUT
06540
[:
CHG+20
06550
OORG
-(<-]
065601-11 N
SF
SIGN2
06570
El
PER+48
06580_
pORG
*~3.
06S90CHG
AM
SETFL+6,1,10
06600
[3
*+32
06610
DORCi.-!<=3 _
06620
SI-l
D2+6, 1 , 10
06630
S/1
05+6,1,10
06640
St-l
o 1+6!..2, 10
06650
SI-l
02+11,2,10
06660
SM
PER+6,2,10
01336 46 01368 01200
01348 15 99999 00000
01360 49 01408 00000
01368
01368 32 01974 00000
01380 49 01348 00000
01388
01388 11 01522 00001
01400 49 01432 00000
06670.
~iL
D4+~J
06680
51-1
RET+6, 2, 10
06690
C
02+6,SETFL+6
06700
ElNL
RET
06710SETFL
SF
99999",(INPUT+l)-(SPEC-2)
06720ilOVE
cn
1
2L1Q _...
NPUT ,0,10
01408
01408 12 01286 00001
01420 12 01354 00001
01432 12 01262 00002
01444 12 01291 00002
01456 12 01306 00002
01468 12 01330
ooooi
01480 12 01250 00002
. 0~f492 24 01286 01522
01504 46 01244 01300
01516 32 99999 00000
01528 14 01958 00000
06730
ElE
ZEROX
06740
TF
cmlN, ZEROS
06750
CF
CO~IN-9
0~7.60
THI .
EXP~I,!
06770
S
EXPNT,SETFL+6
06780
TF
CRNCH+l1,SETFL+6
01540 46 01912 01200
01552 26 01968 00871
NPU!"±"1.
01564 33 01959 00000
01576 16 01973 01959
01588 22 01973 01522
01600 26 01647 01522
133.
SF
06790
S
06800
06810BRNCH
8D
EXPNT-1
EXPNT, SPEC
DI C; IT, 99999
EXPNT,1,10
-_ _._-
06820
S~1
06830
MI
BRNCH+ll,1,10
06840
8
8RNCH
06850
DORG *-3
06860DIGIT
TF
..
>"+30,8RNCH+ll
06870
Alii
06880EX
TF
9~~99,~XPNT
06890
TF
~'+18,r.RNCH+11
06900
SF
"'+18,9,10
99999
06920
CNi
"'+48, S I GN2
06930
TF
*+30, TRS~IT+28
06940
_
..
S~l
_------- ---
01612 32 01972 00000
01624 22 01973 01939
01636 43 01680 99999
01648 12 01973 00001
01660 11 01647 00001
01672 49 01636 00000
01680
01680 26 01710 01647
01692 11 01710 00009
01704 26 99999 01973
01716 26 01734 01647
TRSMT+28,EX+6
_..TF
_-_._._---_.
- -- --_ .. -----
06910
134.
*+18,2,10
01728 32 99999 00000
01740 26 01828 01710
01752 44 01800 01974
01764 26 01794 01828
01776 12 01794 000D2
06950
SF
06960TRStH
TFLS 99999,99999
99999
06970
AM
TRSMT+23,10,10
06980
S~l
HCTR, 1 , 10
069"9"0 --
DfW·
16 06741
49 06690
00005
00005
SPEC-4,1,10
07010
DP
LOOP 1
07020STEP1- f':M
FRT1T+1l ,6;TO
07030
FR~'IT
~\
~ ;'
07060
DORG >"-9
~'-3
01910
01910 42 00000 00000
07070ZEROX
TH~
TRSl'n +~8~~~RO
07080
B
TRSMT
07090
DORG *-3
07100SPEC
DS
S.
07110AOOR
DS
5
°71201NPUT
DS
07130~0!IN._
OS__ JQ
07140EXPNT
DS
07150SIGN2
DS
Q7160PNUil
OS
07170tlCNT
OS
3
07073ALPHA
DAS
80
_97 H2. _ _ __
Q~c:
07189
01912
·01912 16 01828 ooS61
01924 49 01800 00000
01932
01939 00008
01944 00005
14
01958 00014
6196S- 00010
5
._--
01973 00005
01974 00001
4
01978 00004
01981 00003
01983 00080
___ llczu
02143 00001
TRIG1,0"SET TRIGGER 1 FOR FIRST PASS.
02144 15 02301
TFLS SUHvlT, ZERO
02156 16 06741
02168 49 06690
02175 00005
02180 00005
TF
SUMS2+28,WT
02186 26 05894
TF
SU~IS25+28, vlT
02198 26 06016
01866 12 01935 00001
07190'"
07200>" FORtI SU:1S AND sur,s OF PRODUCTS.
07210",
07220LOOP5 TF
COUNT,NOBS
01878 46 01016 01100
07230'"
01854 47 01910 01100
07240'k -
01890 11 00947 00006
[,
88
07187
01830 11 01823 oooTo
UVRL-~~-·
srI
070500VR2
07185
01823
00000
99999
99999
01842 12 00894 00001
07000
LJORG
07180START2 TOti
01788 32 99999 00000
01800
01812
01819
01824
07040
07250-"
0726QLOOP4
01902 49 00936 00000
00000
02179
00000
00891
00861
00556
00556
02210 26 00586 00414
REA [);--tTOAT,- AN-OS TORE O[:SERVA TI OfL
TF
\/CTR,
I NVAR
02222 26 00894 00420
()
'-----:
r
\-
c
o
~
136.
135·
07270
07280*
07290"<
07300*
07310
r:n320
DT
RFS,DATA1
BNCl CMNO
-rr
PR I NTl +28, Dt- TA
07340
THI
RET1+6,*+20
U7350
B
PRINT
07360
DORG *-4
t
02270 26 02956 00516
02282 16 03024 02302
07700>'<
07710>'<07720>'<
07730
NOTRAN,O,10
07420
BE
PASS
*+20,CON5
07740
[3
FORPRO
07750
OORG ~c":'3
07760
51,1
COUNT, " 10
02302 14 00432 00000
07770
BP
Loop4 --
02314 46 02394 01200
07771
BO
07772
[l
07773
DaRe; >'<-3
07174
-TFl.S OSS tR~-$LJMWI
TFS,O,10
02438 43 02458 00445
02326 17 03214 00000
IF SHITCH 2 ON, PRINT TRANSFORfvlED DATA.
TF
07520
TF
PRINT1+28,DATAl
07530
TFt-1
RET1+6,"<+20
07540
B
PR I NT
07550
DORG *-3
---
vJORDS, N
--_. ------ -- --
-* +20 ; C-C)N6 .
FOR~IS
02470 46 02222 011QO
02362 26 02956 00516
02374 16 03024 02394
07830
D
02386 49 02916 00000
07840
DORC *~J
02394
07850>'<
07860>'<
07870*
07880
02350 26 02914 00426
02406 49 02426 00000
02494 49 02532 00000
_0250~
02502
02514
02521
02526
07780*
07800* ARE SU~iS PUNCHED.
07810>'<
07820CPS
GO
*+20,CON9
~U· - 'F.+ZO-~C-ON5-;-,BR~NCfr TFTVlO PAS~2394 43 02414 00445
[l
02458 12 00586 00001
CPS
02338 47 02394 00200
IS IT ONE PASS INPUT.
07600
Qzit50 49. Q2111 QUODO_
02458
BNC2 PASS
07510
02426 17 05780 000~0
02482 43 02502 00446
TRANSFORM DATA
0747rP-
024_14 43 02..60~LD230L
I S i r ONE -pAss··, NPUt
BO
= ZERO.
CM
07560>'<
07570*
07580*
o7590 PA-S S
SUS,...I, TR I G1
07660>'<
FORtI SUt-1S OF DATA.
07670*
07680>':
0769QFDRMS BHI SUI~1S,O, 10
0230 1 00001
IS NOTRAN
07400>'<
07410CMNO
07480*
07490*
07500
02258 26 02914 00420
02294 49 02916 00000
os
UTM
DO
02301
TI7380*
07430*
07440*
07450"<
07460
IS IT FIRST PASS
02246 47 02302 00100
HORUS-,-TNWrn
Tf
07390~<
LJORG "<-3
02414
07620"<
07630>'<
07640>'<
07650
IF SvllTCH lON, PRINT INPUT DATA.
07330
07370TRIGl
07610
02234 27 00900 00516
07890
16 06741 02525
49 06690 00000
00005
00005
00481
00891
02532 43 02552 00449
FORMM
02544 49 02576 00000
02552
PUNCH SUtlS
TF
P~~~l! N_
GT
PNCH,SU~11
02552 26 01978 00426
02564 27 03032 00541
_
137.
07900",
07910":
07920''<
fORn i'tEAr1S AT
07930FOR~t~1
07940'"
07950*
Bnt
~lEANS
138.
08168
SU~l1.
02576 17 03120 00000
08170":
08180"': ARE SUI'IS PUNCHEl,.
08190>',
-08200CtlStl
80
>"+20 I CON9
SET TRIGGER 1 FOR SECOND PASS.
07970
TD~l
TRIG1,1
07980
B
LOOPS
07990
OORG >'<-3
02588 15 02301 00001
02600 49 02210 00000
02608
08000''<
08010*
08020*
SUBTRACT
~lEANS
TF
~lCNT,
08040
TF
SUBHf+23,DATAl
N
08050
TF
SUB~11 +28, SU~11
08060SUB~11
FS
99999,99999
08070
Ml
SUB~11+23,
08080
Ml
--
SU8J:l~,!"28, 10,10
08090
SI'-1
1'ICNT, 1,10
BP
SUB~11
02632 26 02672 00541
16 06741
49 06450
00005
00005
02667
00000
99999
99999
02674 11 02667
oooTo
oooTo
02686 11 02672
cmT60
SF - - -LOOF4
80
COUNT, 1,10
""+20,CON6
08164
B
UISM
08166
DORG
'''-3"
DORG >'<.~3
END2
02778
02790
02797
02802
16 0674102801
49 06690 00000
00005
00481
00005
00891
02808 43 02828 00449
02820 49 02888 00000
6~82g
I SIT ONE PASS INPUT.
CD
PSP,CON5
02828 43 Q2864 OQ445
PUNCH SUH1.
TF
PNUH, tl
DT
PNCH,SUtl1
08310 i ,
08320", PUNCH SUHS OF PRODUCTS.
08330""
08340psp
TF
PNUtl,~lSZ
02840 26 01978 00426
02852 27 03032 005~1
02864 26 01978 00614
02698 12 01981 00001
08350
BT
..IN_UltR_
0836OEND2
RNCD 0
08370
B
o
-k
-;':
08380>"
"
"
*
*
08390""
SU8RDUTrN[' FOR PRHITI NG N ~mRDS.
"'I:
"k
08400>"
"
"
*
*
0841 OVJOR DS OS
3
PROD ,0, 10
S~l
08220
08300
- TURn----surqs---utPRUUU CTS
08150
f,
08270>"
08280'"
08290
02620 26 02667 00516
02710 46 02644 01100
08130*
08140FORPRO fJHl
08162
10, 10
02608 26 01981 00426
02644
02656
02663
02668
08210
08230":
08240>',
08250":
08260
FRml DATA
08030SU8~1
08110*
u-s-rzw----
OBSER,SU~I'.n
,0,10
07960''<
08100
TFLS
02722 17 06022 00000
08420PRINT
02734 12 00586 00001
02876 27 03032 005-51
02888 36 00000 00500
02900 49 00000 00000
**
*
02914 00003
RCTY
•
02916 34 00000 00102
08430PR I NT1 DTFS FlfF I X, 99999
02746 46 02222 01100
02758 43 02778 00446
02770 49 02808 00000
08440
\fA TX__ OYTP_lJI~2P
02778
08450
TBT','
08460
AM
02928
02940
02947
02952
16 06741
49 06710
00005
00005
02958 39 05731 00100
PRINT1+28,10,10
02970 34 00000 00108
02982 11 02956
rJ
~
r4..
\ )
02951
00000
04864
99999
r~
\
)
oooTo
o
n
c
131.
08470
St·,
"lORDS, 1, 10
08480
8P
PR I NTl
08490RETl
_~~?0!l
08510*
08520"1,
08530''<
08540
99999
P,
. ____ ~~RG
_~-:~_
~:
*
-1:
02994 12 02914 00001
-;';
PUNCH SU8ROUTINE. *
*
*
*
*
OS
085S0PNCH
08560
TF
S~l
cr8580PNCHf
vmcD~9999----
08590
M1
PNCHl+6, 80,10
08600
SI1
PNUM,8,10
-U8bTrr-
!)P
08620
SB
~~Q86BOHEANS
08690
0
08700 1VS
08710
0.8720
0ll730~
08740
03026
08800rF~
TF . CN-f~
08810
TF
MV+23,OATA2
08820
TF
tW+28, DATA 1
TF LS
9999-9~99999--
. o8B30:1V
n.fV~-
-.
03044 26 03074 03031
-- -
--PNCTIl
-.--X--'l<--~~----~--
*
*DATA *
SUBROUTINE TO *TRANSFORM
* OS * 2 *
*
*
*
*
"
03018 49 99999 00000
03032 38 00402 00400
PNCH1+6,9,10
08630
DORG *-9
Otlb40'K·
08650* SUBROUTINE TO FORH HEANS.
08660*
7:
1<
---'1r - 'It
Of<
08670
DS
2
08760":
"'-9
08780"<
08790
03030 00005
08570
~)ORG
08170",
5
PNCHl+6,PNCH-l
08750
03006 46 02928 01100
*
WNcu-1fOZ--
140.
*-.
OJ056 12 03074 00009
__()8alt:O
MI
03068 38 99999 00400
08850
Al1
t-1V+28. 10, 10
03080 11 03074 00080
08860
St·'
CNT.l~10
03092 12 01978 00008
._Q~f310
BP
:IV
0310446 03068 01100
08880
TF
CNT,NOTRAN
03116 42 00000 00000
08890TRNF
TF
___*+23, INDEX
03118
*
*
_}:!y_±~
to_L1O
03212
*
*
"k
_o~~Ll QQQO~.
03214 26 04742 00420
03226 260327300521
_()323~ ~6_Q3V§_ .9Q51~
032S0
03262
03269
03274
16 06741 03273
49 06690 00000
~9999
00005
OOOOS
99999
-0328()" 1r 03273 00010 -03292 11 03278000To
03304 12 04742 00001
---- -- --- -
_Q!39!>Q __________lL __~P_~ ~~~9~9_
08910
SF
SPEC-l
08920
SF
SPEC-3
0"3316 46 0.3250 0 f100
03328 26 04742 00432
03340 26 03363 00S06
0.3352 2b01939 99999-·
03364 32 01938 00000
03119 00002
08~3Q
.?~ __~PEC_~_~
TF
"(NT. N
1131211 26 01981 00426
0891!O
TF
TRF+28. DATA 1
03.3BB 32- 019.34 00000
TF
DIVS+23.SlJ11
03132 26 03167 00541
08950
SH
TRF+28.10.10
03400 26 03464 0051 6
FD
99999. OSS ER
03144 16 06741 03167
0 B960
A
TRF
03412 12 03464 oooTo
DIVS+23, 10,10
03156 49 06510 0 0 0 0 0 _ _
08970TRF
03163
00005
'99999
03168 00005
00481
03174 11 03167 oooTo
~1CNT,~~~_0
0}186 12 01_981 00001
_______ T---OS9BO
- -_ -fF"
03198 46 03144 01100
08990
SH
At·l
____ Sr'1 ___
DP
PoB
urvs-
03210 42 00000 00000
03376 32 01936 00000
+~l.SPEC-~ ~
.
TFLS "/ORK,99999
03424 21 03463 01937
.-TivE+i3~-bAIAr
03436 16 06741 034S9
03448 49 06690 00000
03455 00005
04751
03460 00005
99993
HVE+23.10.10
03466 26 04695 00516
03478 12 04695 ooolo
142.
141.
09000
A
;'1VE+22. SPEC-4
09010
~1t'l
SPEC-6,5,10
09020
Tn1
*+35,TRCON-5
09030
_
~~ ___ .>,<-=,:~,l,J~
090'40
TF
090508RCH
8
09060
DORG *-3
~'+18.99999
99999
Q3Z1~
03490 21 04694 01935
03502 13 01933 00005
09270
B
03514 16 03549 04752
09280
DORG '';-3
03'526 21 03549 00099
09290~IAGN
TF
.- FMUL+2~-CONS T
03538 26 03556 99999
09300
S~1
Ft·1UL+28, 10. 10
03550 49 99999 00000
09310
A
Ft1UL+27, SPEC
- 093ioFTWL
03558
09070",
09080*
HERE ARE HIE TRANS FORt'1A TJ otJ SUEROUTJ NES.
09090",
09100RETURN TF
TRNF1+28,DATA2
03558 26 03622
,
SIl"
TR1lFT
+ 28 •TO~ to (r9110
03570'12 03622
A
TRNF1+27,SPEC-2
09120
03582 21 03621
09130TRNFl TFLS WORK,99999
03594 16 06741
03606 49 06690
03613 00005
03618 00005
~1VE
B
09140
03624 49 04672
.Q~~_,_ DORG _j~:?_______ .
03632
09160CHSIGN BNF OVR1,WORK-2
03632 44 03664
CF
vJORK-2
09170
03644 33 04750
~IVE
B
09180
U3656 49 04672
DORG *-3
09190
03664
vIORK-2
onOOOVR 1 SF
03664 32 04750
[l
tWE
on10
-------03676 49 04672
DORG *-3
09220
03684
FADO+28,CONST
09230SCALE TF
03684 26 03748
SN ___~AO~~~ lQ.J.O_
09240
, 036'96 T2 03748
A
FAOO+27,SPEC
09250
03708 21 03747
FA
v/ORK,99999
09260FADD
03720 16 06741
--------~-
c
~1VE
.. J22ll~
oooTo
09340
LJORG *-3
01937
09350SU~'1
TF
03617
00000
04752
99999
~,_.
09370
A
FAD01+Z8
1
123258.
03770 12 03822 oooTo
,QlI~l_lL_(U821 __QJ939:.._.
Dt.TA
1
l!lEL.JQ. 10
FAOD1+27,SPEC
03794
03806
03813
03818
16 06741
49 06490
00005
00005
_
03817
00000
04752
99999
0382449046]'2- 0000'0'
03832
0383i 26 03896 00516
o3BlIlt' -12-03896
mmTrr
03856 21 03895 01939
09 380FAOO 1 FA ___vJ9R_K, 99999
00000
OOQQQ
04752
99999
03758 26 03822 00511
___ EL __ t:1Y_L__ _____ _
.Q9l6Q.,~tL __ F~PP
0~4Z0
03750 49 0467200000
nC\'IORK;99999
00521
LJ9
03739 00005
03744 00005
03868 16 06741 03891
J)388gQ.,~~ ~_4IQ..~Q.L ...
038 7 00005
u~752
04750
09390
8
00000
09400
00000
CJ9410'SU8'''' "TF
00000
00511
-TSW+28~w\TA
r
09420
St·1
FSU8+28, 10,10
09430
tl
FSU8+27,SPEC
WORK~99999·
0..3 4.i(L_ ,_. ___ ll..__. _JJY1 ______ .
000 To
01939
03743
09460
DORG *-3
09470l1PY
TF
99999
03898 49 04672 00000
DORG *-3
. 0'94Ij.QFSU8- . FS
00000
03892 00005
~1VE
FMOL1+28,OATAl
03906
03906 26 03970 00516
03918 12 03970 oooTo
03930 21 03969 01939
03942
03954
03961
03966
16 06741
49 06450
00005
00005
03965
00000
04752
99999
. 03972-4901+6]200006
03980
03980 26 04044 00516
()
o
o
n
~
,--;
144.
143.
09480
09490
Sfl
A
09500Ff'IUL 1 HI
HWL 1+28,10, 10
Ft1UL 1+27, SPEC
04016 16 06741
04028 490649Q
04035 00005
04040 00005
09510
B
09520
DORG >'<-3
o9530DVUE
IT
VD IV+28 ~ DATA 1
09540
Sf!
FD I V+28, 10,10
09550
A
FDIV+27,SPEC
0-9'SbOF DI V
Fn-
HeRK; 99999
~1VE
09580
DORG 'k-3
09590RCPR
TF LS TUIP 1 , ONE
09600
fD
09610
' IT%10-
09630
o 9640POWER
TF
IT9650
09660
A
04128 16 06741
04140 4906690
04147 00005
04152 00005
M+28, CONS T
AA+27,SPEC
16 0674 1
49 06510
00005
00005
541 13
QOOOO
Q4752
99999
04128
-TNE
+213';10 ,-m
04066 12 04118 oooTo
0412.0 49 04672 ooodo
roWT ,HORK
t\J~.
04054 26 04118 00516
04090
04102
04109
04114
DORG *-3
- Stf
IIORK 1 vlORK
09680AA
H1
vJORK,99999
09690
FEX
VlORK,vlORK
09700
[,
fIVE
O~l710
DORG ""-3
O~)7z0LN
FLf~ 'lioRK, i/ORK
on~Q
G
09740
DORG ""-3
09750LOG
FLOG _VJORK, vlORK
09760
8
09770
DORG "<-3
04054
04078 21 04117 01939
TFLS vIORK, TUIP1
- -I; -- -
04039
00000
Q4752
99999
04046 49 04672 00000
~1VE
8
FLN
04004 21 04043 01939
VJORK,99999
_095Zq__
09670
03992 12 04044 oooTo
--
04151
QOOOO
Q0630
00881
04158
04170
04177
0'4'1'82
16 06741 54181
49 06510 QOOOO
00005
006~0
00005
54752
04188
04200
04207
04212
16 06741
49 06690
00005
00005
-0918dEXN
i1'{E
rWE
fEX . "TORR, \OTORK
04211
QOOOO
Q4752
00630
,0~790
04218 49 04672 00000
0(1800
DORG *-3
04226
09810EX T
FEX T vlORK, "laRK
09820
8
8
fiVE
04226 26 04320 00511
04238 12 04320 oooTo
04250 21 04319 01939
16 06741
49 06670
00005
00005
042B5
00000
04752
04752
Jf! Q.Qlli
04304 49 06490
04311 00005
04316 00005
04312
00000
04752
04262
04274
04281
04286
04~2_
~9999
04322 16 06741 04345
04.334 4:~ Q66.1Q 00Q9Q _
64341 00005
Q47S2
04346 00005
04752
04352 49 04672 00000
Q43_60.. _
04360
04372
04379
04384
16 06741
49 06670
00005
00005
04383
QOOOO
Q4752
04752
-04390 49 04672 '00000
04398
04398 16 06741 54421
04410 4~_.Q665_(L009_QO
~~17 00005
Q4752
04422 00005
04752
04428 49 04672 00000
04436
04436
04448
04455
04460
16 06741
49 06630
00005
00005
04459
QOOOO
Q4752
04752
04466 49 04672 00000
04474
04474
04486
04493
04498
16 06741
49 g66JQ.
00005
00005
04497
QQQQQ
04752
04752
~WE
04504 49 04672 00000
145.
09830
OORG *-3
09840S IN
FSIN WORK,WORK
U9850-
--lj---l'IVr----.
09860
DORG "'-3
09870COS
FCOS WORK, HORK
rWE
09880
8
09~_9~ __
DORG _*___ ~_______ ._
04512
04512
04524
04531
04536
16 06741 04535
49 06570 00000
00005
04752
OOOOS
0_4752
09920
04542 49 04672 00000
09930S0RT
09940
FSGR WORK,WORK
B
iWE
OORG *-3
-09950
- - - - _ .. _._-_ .. _------099600UtltW
8
09970
DORG *-3
0998011VE
TFLS
99999,vJORK
-_
.. _----------------.-
09990
- TUUOO
10010
f',~1
TRNF +23,8, 10
CNT;l~W----
OP
TRNF+12
10030
DORG ;'-9
10040CNT
DS
100 60TRC ON
04550
04562
04569
04574
16 06741
49 06550
00005
00005
04573
00000
04752
04752
04742 00003
-- --- 04752 --0-0010
tWE J RETURN, CHS I GN, S CA LE ,~lAGN J SUN, SUS, 1'1PY , OVOE, RCPR
04757 00005
04672
04762 00005
03558
04767 00005
03632
04772 00005
03684
__ .Q~ __ J.Q______________________
DSA
04611
00000
04752
04752
04626
04649
00000
04752
04752
- 04664
0466449 99999 00000
04672
T6 00741 0~695
49 06690 00000
00005
99999
00005
04752
04rO_2_ 11
~3~6}_
-04ff3Z-booo 5
04512
04837 00005
04842 00005
04847 00005
04852 00005
*
*
*
04550
04588
04626
04664
*
*
10080""
,',
,',
,';
;,
*
;,
,',
--1009Cfic--SUBROUTfNt--FOR PRtPAP:1NG-OATA-FDi'r -AlfiHAHn{ rCAC f>RTNfTNGOR
10100;' PUNCHING. INTERNAL FORt1AT IS SPSII.
10 110''<
,'r
,'r
-ic
,'r
,'r
*
*
-k
-k
*
*
10120
DS
10
04862 00010
'10 130FL TFI X CF _ ~_~~::-9_
04864 33 04854 00000
10140ARG
OS
,FLTFIX-l
04863 00000
10150
TF
OUTPUT,SEVENS
04876 26 05751 05763
10160
CF
OUTPUT-9
04888 33 05742 00000
10170
TF
OUTPUT-l0,DCMAL
04900 26 05741 05773
10180
TFM OUTPUT-19,O,9
04912 16 05732 00000
04656 49 04672 00000
04672
04684
04691
04696
00000
04740
3
04618 49 04672 00000
04626 16 06741
04638ij9 06530
04645 00005
04650 00005
ooobo
04782 00005
03832
04787 00005
03906
04792 00005
03980
04797 00005
04054
-- ---- --------------------- _____________ . ____ . Q4J30LO'O0Q5____ 0Itll~
10070
DSA POWER,LN,LOG,EXN,EXT,SIN,COS,ARCTAN,SQRT,OUMMY
04807 00005
04226
04812 00005
04360
04817 00005
04398
04822 00005
04436
04827 00005
04474
04580 49 04672 00000
.- o4-SB8
16 06741
49 06590
00005
00005
04738 42
-OTi771 ~ OOOOS-----037Sff
99999
srr --
BB
04550
04588
04600
04607
Q461J
OORG *-3
10020
lOQ2P_~/()RI<.
09900ARCTAN FA TN vIORK, "IORK
-uGGlo----
146.
000Q8
_]~!99_
_JH1_2LG~.lQ.,~ __
04714 12 04742 00001
10200
GNF
JU~1P
04726 46 03352 01100
10210
TDrl
SIGN-l,2,11
,ARG-2
04924 16 05775 00000
04936 44 04972 04861
04948 15 0577400002
~
()
(~)
-/;
*-.
-
-
I
o
C)
~
148.
147,
10220
CF
,I',R(,-2
10230JUiW
C;·\
:RG,
10240
8E
\/RALPH
10250
10260
10270
U1
E~
NP
CI'I
~)),
1011
04)72 14 04863 OOO§§
04984 46 05308 01200
tR{;,0,10
04996 14 04863 00000
DEC I~IL
05008 47 05354 01100
ARG.4,10
05020 14 04863 00004
10280
DH
LARGE
102~~
TFtI
TRN~lt +11
10300
TFH
*+42, OUTPUT -10
10310
10320
10330TRN,'1T
10340
10350
10360
10370
S
S
TD
Atl
At-I
cn
CNH
-- -
,ARG-9
",,+ 30, A.-RG
'''+18,ARG
99999,99999
TR N~1T +11 , 1, 10
,
TRNtH+6,2,10
TRNMT+6,OUTPUT-12
TRN~IT
103~0
TFf-1
EXPNT2,5,10
10400
S
EX_P~T~~ARG
10430
S
s
*+47,SEVENS
"'+3S , EYPNT2
~'+23.EXPNT2
10440
A.
OUTPUT-12. :)9999
10450i/R I TE
TFt!
~,+ 18, OUTPUT-8
10460
10470
10480
TD
All
All
OUTPUT-B,O
viR
VIR
OS080 22 OS098 04863
05092 25 99999 99999
05104 11 05103
000~1
05116 11 05098 00002
OS128 14 05098 OS739
viR I TE+23, TRNrH+l1
10420
05044 16 05103 04854
05068 22 05098 04863
TF
TFt-1
05032 46 05434 01100
050S6 16 OS098 05741
10380
10410
04)60 33 04861 00000
I TE+23, 1; 10
I TE + 18 2, 10
OS140 47 05092 01100
05152 26 OS259 OS103
05164 16 05777 OOOOS
05176 22 05777 04863
05188 16 0523S 05763
05200 22 05235 05777
05212 22 05235 05777
05224 21 05739 99999
05236 16 05254 05743
05248 25 05743 00000
05260 11 05259 00001
I
05272 11 05254 00002
10490
u~
\)R1TE+18,OUTPUT
10500
~'W;
\If:
10510IJRALPH
['D
SETZRO,OUTPUT-18
10520
B
SETS I (
10530
DORG
10540SETZRO Turl
~,-
I TE+12
3
OHTPUT ,0
]0550
TF
10560
:':8
10570
DORe; ,-,-:)
lOS80JECI::L c-
OUTPUT-20,SICN
05284 14 05254 05751
052~6
47 05248 01100
05308 43 05328 05733
05320 49 05640 00000
05328
05328 15 05751 00000
05340 26 05731 05775
ARG,4,1011
]0590
8NH
LARGE
10600
TF;\
\/R I TE+23,ARG-:J
10610
TFli
WRITE+1B,OUTPUT-8
10620
S
';!R I TE+18,ARG
10630
S
VIR
10640
[;
viR I TE+12
I TE+18,I',RG
10650
DaRe; '-'-3
10660LARGE
TF
OUTPUT-17,SEVENS-7
10670
CNF
JUt\P2,ARG
10680
TFI1
OUTPUT -20,20, 10
10690
CF
ARG
10700
CF
OUTPUT-1J
10710JUI'IP2
TD
OUTPUT -16 , t-.RG
10720
TO
OUTPUT-18,ARG-l
10730
CF
Ol,!TPUT-18
10740
TF
OUTPUT-12,SIGN
10750
CF
OUTPUT-13
05352 42 00000 00000
05354
05354 14 04863 00004
05366 47 05434 01100
05378 16 OS259-04854
05390 16 05254 05743
05402 22 05254 04863
05414 22 05254 04863
05426 49 05248 00000
05434
05434 26 05734 05756
05446 44 05494 04863
05458 16 05731 00020
05470 33 04863 00000
05482 33 05732 00000
05494 25 05735 04863
05506 25 05733 04862
05518 33 05733 00000
05530 26 05739 05775
05542 33 05738 00000
I
149-
10760
TF: 't
\/f1.+ 11
,ARG-:J
10770
TFn
V/R+6,OUTPUT-8
107801/R
TO
99999,99999
107~J()
Ml
v/R+l1,1,10
10800
AH
V/R+6,2,10
10810
cr.1
'dR+6,OUTPUT
10820
BNH
'ilR
10830
cs
10840
DORe; *-9
SETS+l1,OUTPUT-16
f0860SETS
SET,OUTPUT-16
10870
Ali
10880
8
10890
DORG -;c-3
10900SET
TF
*+30, SETS+11
10910
SI·l
;', +)Jl-,l, 10
10920
TF
99999,SIGN
10930
88
10940
DORG
10950
DAS
SETS+11 ,2, 10
SETS
- --
14
1,
11000SIGN
UC
-}:
"
"
"
"
"
"
uS
2
TF
CNT,N
"
11070
TF
Sur S 1+28 , D,f, TA 1
05602 1105584 00002
11080
TF
SUllS3+23,SUlll
05614 14 05584 05751
110 :)()SUflS 1
TFLS TEIIPI, :)~J999
05638 42 00000 00000
05640
05640 16 05663 05735
05652 43 05684 05735
05664 11 05663 00002
10,7070707070
10,0000000003
US
2
1101OEXPNT2 [)S
2
11092
80
>"+20, CON6
110 9lt
f,
SWiS3
11096
DORG *-3
11100SUI·1S2
FI·1
11102SU/1S3"FA
TEI1Pl, :39999
99999, THIPI
05684 26 05714 05663
05696 12 05714 00002
05708 26 99999 05775
05722
05751 00002
05753 00001
05763 00010
11104
At·l
SU/'IS 1+28,10,10
11110
All
surlS 3+23,10,10
11120
SI·1
CNT ~ L 10
11130
[;P
SU~1S
11131
80
>'<+14,CON6
11132
OS
11133
DORG >"-9
11135SUtlS25 FA
0577 3 000 10
05775 00002
05777 00002
11140
GB
"
"
Jt.. Tt...
"
0577 ') 00002
05780 26 04742 00426
05792 26 05844 00516
05~19
00541
16 0674)
49 06690
00005
00005
aSe39
05804 26
05816
05828
05835
05840
00000
00630
99999
05846 43 05866 00446
05858 49 oS896 60606
05676 49 05652 00000
05684
"
SUSROUT I rJE TO FOR; 1 ~ UI'S OF
05590 11 05589 00001
05723 00014
10970
109')()JU1AL
11060SUI1S
~'-9
2
10980SEVENS DC
05578 25 99909 99999
05720 42 00000 00000
l09600UTPUT OS
DAC
05566 16 05584 05743
11020-:'
11030>"
11040>"
11050
05554 16 05589 04854
05626 47 05578 01100
10850SETS I G TFr1
80
150.
1
05866
OS866
OS878
05885
oS89O
16 06741
49 06490
00005
OOOOS
OS889
00000
00630
99999
05896
05908
Q5915
05920
16 06741
49 06470
PQQQ5
00005
OS919
00000
:292~_
00630
05926 11 05844 oopTo
05938 11 05919 oooTo
05950 12 04742 00001
05962 46 05816 01100
05974 43 OS988 00,46
SUI1\t/T,99999
05986 42 00000 00000
05988
o 5988
0600Q
06007
06012
16 0674 1
49 06470
OOOOS 00005
060 11
00000
00891
99999
06018 42 00000 00000
CJ
(~
'-
)
o
o
~
~
151.
152.
11150
11160':
11170",
11180":
11190
DORG
~,-~)
06020
SUGROUTINE TO FORM SUMS OF PRODUCTS.
"
* DS * 2 *
"
*
*
~
*
*
113)OPRO>3
"
PRUD2+28,O.r,TA 1
06021 00002
11210
TF
PROD4+28, 'vIT
06022 26 06110 00516
11220
TF
PROD8+23,R
06034 26 06184 00556
1T240
TF
\1CNT., N
06046 26 06317 00551
11250PROD 1
TF
RCtH, VietH
06058 26 06444 00426
] 1260PROD2
TFLS 'vIORK,09999
06070 26 06447 06444
C
06082
06094
06101
06106
11280
BE
TUiPI
062::'4 16 06741 66317
TF
V/ORK,ZERO
\:'~',
~
11200PROD
11270PROD3
FA
16 06741
49 06690
00005
00005
06105
00000
04752
99999
06~06 4? 06470 00000
~9Y~9
06313 n0005
06313 OOOOS
006~0
11400'10') 1
1',:1
PROJ6+6, 10,10
11lJ. 11)
Att
PROD7+2fr;
to, to
11420
A:l
PR0[18+2~,
10, 10
11430
S!1
R.CNT,l,lQ
06348 11 06317 ooolo
06160 12 06447 0000'1
06~24
11 06216 ooolo
06336 II 06262 ooolo
11440
Sf>
PRO'J6
11450'1002
t.'l
PI~0J2+28,
11460
S'1
'!CNT, 1,10
11470
r'P
PitOU1
114')()
SC
06408 46 06070 01100
UORG *_t;
Oh420 42 nooOO 00000
10,10
PROD 11
06112 24 04752 00861
11S00
t t5lfOPRfrO ff /'I.
PROD8+L2, ~eHT
:1002
06372 46 06210 01100
06384 11 06110 ooolo
063~6
12 06444 00001
06422
11290
BD
PROD4, CON6
06124 46 06422 01200
11300
B
PRODS
06136 43 06156 00446
11550
!:~
11310
OORG
--.
06148 49 06186 00000
11560
DORG *-3
06434 4~ 06384 00000
--
FM
WORK, 99999
06156
H;;O"Wettf'
~
06442
11580RCNT
os
rr---- PftODOf-o;PRUU2.f28
06156
06168
06175
06180
11605
flAC
frHto- S-ff';iH l
TF
PR007+28,PR002+28
06186 26 ~6216 06110
t t 600
l' 340
11 350PR OD6
C
99999,ZERO
06198 26 06262 06110
11360
BE
11370PR007
TFLS TEMP1,99999
t1320PR004
. -ltJ30PRODS-'
11380
HI
>~-3
--------
. - HODT ---
TEt1P 1 , \tIORK
16 06741
49 06490
00005
00005
06179
00000
04752
99999
06210 24 99999 00861
06222 46 06324 01200
06234
06246
06253
0625&
16 06741
49 06690
00005
00005
06264 16 0674J
06276 49 06490
06i83 00005
06288 00005
06257
00000
00630
~9999
06287
00000
00630
04752
-!--
06422 21 Oh316 06444
06444 00003
1,0
06447
Oooo~
06449 00001
02144
153·
lOf'.O SUE;ROUT I NES
06450
06462
06470
06482
064?Q
06502
. n6510
06522
06530
06542
06550
06562
06570
06582
065~;0
--
-~"-'--"----
-- _.-._---
06602
06610
06622
66630
06642
06650
06662
06670
06682
.--~--
066~
06702
06710
06722
-_
..
----- -
-
--~---.
-'"
~--.--------
.--
-_.
16
49
16
4)
16
49
16
49
16
49
16
49
16
49
16
49
16
49
16
49
16
49
16
49
16
49
16
49
0714L~ 077:l()
06730 0
07144 07834
067300
n7144 08334
06730 0
07144 08574
06730 0
07144 08~110
n6834 0
07144 0:J490
06834 0
07144 09522
06834 0
07144 T03~4
06834 0
n7144 11 ~24
06834 0
07144 11344
06834 0
07144 12064
n6834 0
07144 12084
06834 0
07144 12';'06
06834 0
07144 12938
06834 0
END OF PASS t t
00402
corn
00407
DATE
0040~'
PROB
00414
~JOas
00420 u--1m'M -. 0047T---~--_00_4ro-- 1"!p-- - ~--l'tt:ff
00435
i'JOCCm
00437
l'lCOl
00440
NEll ~1
00441
CON 1
00443
CON3
00444
COtJ4
00445
CONS
00446
CON6
00448
cmW
00449
COW)
00450
CON 10
00451
CON 11
00453
CON11
00454
CON14
00455
CON15
00456
CON16
00458
CON1S
00481
OBSER
00486
IND
00491
ID
005(}t---"'feRWtf-- -oo-stt6-- - ttttift--p---oo-s-tt- --c-01't3'f- -00-5J6-. fJt\ff;.
00526
B
00531
SE
00536
T
00541
SUM1
00551
R
00556
\'/T
00561
AOKK
00566
AD~NN
00576
ADR I J
00581
S I GN3
00586
COUNT
0058::)
CtHR
005')5
I
005:)8
J
00601
K
00604
L
00610
Q
00614
~~sz
00617
IVE
00620
I\'P
00-6!t:6--~--oo-650
t.O
o-o-6tJ(J---ty-----oo~ ~so~
006~)0
ClF
00700
F
00710
FIN
00720
FOUT
00740
VP
00750
VE
0083ft
OUT
00841
FPO01
00861
ZERO
00871
ZEROS
00881
onE
008:J1
SW·1vIT
00:)00
RFS
00936
FRiH
00S~80
READN
01016
LOOP1
012 l f4
RET
01256
01
01280
02
01300
PER
1H~ :15--01368
11111
-~------e-r.c----P015i&- --SITrL
01636
8R:KH
01680
DIGIT
01704
EX
01800
TRSt-1T
01910
OVR2
01912
HR0X
01'039
SPEC
Ot944
f.,DOR
01:)68
CO:1iJ
01973
EXPNT
01974
SIGN2
01978
PNUt-l
01983
ALPHA
O-2tfJ:4~ft;1nZ- --022to
tOWs
02222
L0tW4
02302
GI~IO
02394
PASS
02426
FOR~1S
02532
CPS
62f,e-8----~--
02888
03032
03250
035:)4
03758
C)
f)
\/
END2
PNU:
il\/
TRrlFf
~\AGN
02644
StJE:1I1
02~t4
WORDS
03068
PNCH1
03340
TRNF
-o-3632-*CHSIGN
0 37~i4
H1Ul
02722 }'fOR~IH:r-- -o-zeo-B--~
02916
03120
03436
03664
0 i832
PRINT
MEt\NS
TRF
OVR1
SU~'1
02928 *PRINTl
03144
DIVS
0 ~550
BRCH
0~684
SCALE
n 3868
FAiJD 1
00417
NFOR~1
00432 nf1iJTRAI~
00442
CON2
00447
CON7
n"'uc2
CON 12
00457
CON17
00496
100
00521
DATAz
00546
SIGr1A
00571
ADt J
005S2
eTR
00607
p
00630
THlPl
00680
~
00730
HIGH
00851
fHtGH
00894
VICTR
01064
CMeOL
01324
04
01528 --~--01890
STEPt
01958
INPUT
01981
~1CNT
02301
TfttG1
02576
FORMM
0286-4
0~018
P3P
RETl
TFS
03558 *RETURN
03720
FAOD
03906
SUB
0~214
t~
't.
/
o
O~4!
fStJC
04128
04436
04626
04757
052 ~6
RCPR
05~~
057 51
05780
06022
06186
06384
EXtl
n
~
~J
03:Yt50
tWY
n4226
POVIER
04474
EXT
04664
[JU~1tiY
04864 *FlTFIX
05308 *V1RAlPH
S(:R.T
mCON
\'IR I TE
JUMP!' tl557B' "VIR
~
Source Exif Data:
File Type : PDF
File Type Extension : pdf
MIME Type : application/pdf
PDF Version : 1.3
Linearized : No
XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date : 2014:03:13 18:32:30-08:00
Modify Date : 2014:03:13 19:16:52-08:00
Metadata Date : 2014:03:13 19:16:52-08:00
Producer : Adobe Acrobat 9.55 Paper Capture Plug-in
Format : application/pdf
Document ID : uuid:36c5e61e-9935-814a-adf8-7f822588a6b2
Instance ID : uuid:d2d43760-2596-8d4d-b0fe-c84c10bbfd4e
Page Layout : SinglePage
Page Mode : UseNone
Page Count : 257
EXIF Metadata provided by EXIF.tools