ALGY_Algebraic_Manipulation_Program_Jun1961 ALGY Algebraic Manipulation Program Jun1961
User Manual: Pdf ALGY_Algebraic_Manipulation_Program_Jun1961
Open the PDF directly: View PDF 
.
Page Count: 68
| Download | |
| Open PDF In Browser | View PDF |
ALGY -- Algebraic Manipulation Program
",',
Operating Instructions and Program Statistics
ALGY was designed to operate under .. ~.he WDL executive system,
MESS*.
The program requires three magn,etic tapes.
designated as the ALGY INPUT PROGRAM tape.
USE 0 has been
The ALGY Input Program
is transferred from cards to magnetic tape in CODE MODE.
USE 1 is
an intermediate scratch tape, the content of which is not saved,
and USE 3 is the executive system's
pr"inter output tape.
Write
enable rings should be mounted on all three. tapes used by the program.
lC)
Please note that the program was written for MESS I which
employs a USE table and USE number rather than logical numbers when
programming for magnetic tapes.
There is no restart procedure and a successful finish is terminated.with 'FINISH OF ALGY RUN' typed on the console flex and an
exit to M/620(SC).
A run may terminate by several error exits where
the error will be typed on the console flex.
These are:
'PROGRAM NOT ON TAPE' is indicated when a tape is
mounted with no ALGY INPUT PROGRAM .r.ecorded on it.
*
~O
;.,.. .. ,'
In order to operate the program outside the MESS system, without
reassembly, it should be noted that the program locations M/600,
M/60~and M/603 contain the tape numbers for input tape, scratch
tape:. .. and output tape, respectively.
In each instance the number
is located at B23. The program itself will insert the numbers
contained in these locations in the proper p~aces in the body '0£
the program.
If the program is reassembled, 'card JR0016 assigns
the locations of the USE table. By changing this card, locations
other than M/600, M/601 and M/603 can be used.
In addition,. there
are several jumps to M/620 which under MESS return control to the
executive system. These may be located and changed without affecting the program.
Page 2
o
'EXPRESSION NOT ON TAPE' is typed when an operation
on a particular symbol is called for without having
first defined the symbol wi than ROAT
e' u
'NUMBER TOO LARGE' occurs when a fixed point integer
exc.eeds 247.
Note all arithmetic is exact and hence
round-off is not allowed.
tTABLE OVERFLOW AT XXXXX' is recorded when the working table beginning at octal XXXXX overflows with BCD
information.
The six working tables are, at present,
each 1900 words in length.
o
In the next version, this
restriction will be eliminated by including an expandable table feature.
This
is not a severe limitation
if the user programs his problem wisely so as not to
allo~
the program to generate an algebraic expression
larger than 1900 BCD words.
Tne
time required for an ALGY run is difficult to estimate.
Depending on how complex the input
few minutes to several hours.
prog~g~
is, it may take from a
Seven to torty minutes, however, is
an average run for most problems programm,ed for ALGY.
The program is assembled at M/4000 and requires the remainder of
a 16K machine.
o
It uses 8 index registers and is core independent.
o
Page 3
The present ALGY commands are:*
EQAT
(Equate)
SBST
(Substitute)
,OPEN
(Remove
FCTR
(Factor)
INQT
(Internal Equate)
DONE
(End of Preceding Run)
LAST
(Finish of all Runs that are Stacked).
Parenth~sis)
Card columns 1 thru 4 of ALGY input program cards are reserved
for card sequencing since order is of the utmost importance.
o
other columns may be used for the
progr~.
All
Blank 'cO;lumns are ignored!
,--
The user MUST terminate each command ,fpllowed by any expressions with
a period to indicate to ALGY that this is the 'end of the present
command.
Several programs may be
stacke~
if they are separated by DONE commands.
on one tape for one run
After the last program,
twelve cards must follow with the code LAST in the first 4 cc of
of each card.
Note this includes cc 1-4.
'ALGY - AN ALGEBRAIC MANIPULATION PR~GRAM, M. Bernick, E ~D.
Callender, J. R. Sanford; 'Western Joint Comput~r Conference,
~os Angeles, 1961.
"~' Se'e'
o
J. R. Sanford
June 19, 1961
o
ROUTE LIST
Please read 1 check your name, date
and return to basket:
Date Read
J. DUNN
J. FRANZO
B. FRIEDMAN
B. MCCOY
G. MECHALAS
o
J. QUINN
H. TAMANAHA
o
w.
WOOD
c.
LEVENTHAL
'S!
GOV('~1;n.I1!C.:n t
n -/'
j'... :~ 0
[.- IrH.1u.r; ~:r-iJ..:'.].
COUls;UtC!':';:
./'
..
D:.vifJion
,
I
Computiug C8UCG~
3375 ~"<:~;:;\:L:ln Hr.~~?
Pgl0 Al to, Cal:lfo?,'ni':"1
Ua~te~n
,
\---/
T:?~·Hll~l
30
Hl:
John C ~ U C!.1doo)
E::~e~~u t
Phi leo
1-vo.
19:51
JIl~ <1
0
Q
TUG
J"~XQC
Se::1:ctn~y
Co~z:,c'i."'~'ltion
Compute/I: Di'\yi:Jio1'A
~~900
Helsl!! Rurtd
G:roV'c, PGunoyl V'llui[j
~'1i ~ lou
Tais letteu- tn-Ot1mn:U::/J HI, A.l.£l{ 1!) iln
p:c·:)gU'.::.1ID ~~or~ Phi leo 2000 use&'c
Eucloccdycr; ui,11
fi!~t! 0
~~l"Ogt'OU1 ~'i::ite~t:!p:t :Jymboli~ li9ting~
all
t!J:tic:Zl ;a~nTc bc~en cii.sti.:.:-ibwi:::ld
~uld ope~7Q~.:i'J.l3 ;h:~at::ructione.,
o
to the '.rEG !:~~mh~~s~i.p
the
0<
nllJcb:4;ji~~ mfl~lipulctioll
Q
.ot
UndC':.Z' a.epor ..3.tc ccrt;e~ 1.
8J:ll
fO&'\:1o'itdi!c:)3
oJJmbol:;~(; c:!L11tdDo
Although A1Glr in }?!t~oeutl~l s~t up to r.tan t1~t1G'g' !iBSS (tTn.e fro!.
opc:tnting syotcm) i~ mny be eno1.1;1 modillicd to r:un iod":;pa:!rl(!:i~tly
O~:
o
una::'::l;:" coma oii:UoE' 8::,:·e~utive GYOt(;;ill,Q
WESTERN JOINT COMPUTER CONFERENCE
PAPER PRESENTED AT
THE JOINT IRE-AIEE-ACM. COMPUTER CONFERENCE
LOS ANGELES, CALIF., MAY 9-11, 1961
.
Sponsors
THE INSTITUTE OF RADIO ENGINEERS
I
•
Professional Group on Electronic Com.puters
THE AMERICAN INSTITUTE OF ELECTRICAL ENGINEERS·
..
,
Committee on Computing Devices
THE ASSOCIATION FOR COMPUTING MACHINERY
@ 1961 by
National Joint Computer .<;ommittee
it .
()
Reproduction of all or part of this paper is permissible when acknowledgement is given to the author and National Joint Computer Committee.
, The ideas and opinions expressed herein are solely those of the author,
and are not necessarily representative of, or endorsed by, the WJCC
Committee or the NJCC Committee.
Published by
WESTERN JOINT COMPUTER CONFERENC~
389
C)
10.4
ALGY - AN ALGEBRAIC MANIPULATION PROGRAM
H. D. Bernick, E. D. Callender and J. R. ,Sanford,
Western Development Laboratories - Philco Corporation - Palo Alto, California
'Sununary
Definitions
In a great variety of scientific problems,
the reduction of complex analytical expressions
is highly desirable but often such reductions,
although straight forward, are extremely lengthy
and laborious. The following paper describes a
program written for a high-speed digital computer
which accepts algebraic expressions as input and
outputs a similar set of modified expressions.
The description includes the definition of the
ALGY operations used to obtain the desired results,
followed by an explanation of the logical flow of
the program, and concluding with a description of
future operations which will be incorporated into
the system.
In order to uriderstand the manipulation
which ALGY performs, it is necessary to define a
few special terms. The basic building block in
ALGY is the BCD character. These characters are
combined in various ways into quantities. There
are three types of quantities in an ALGY program:
numeric, such as 51/725; special, such as plus,
minus, per~od, parentheses, dollar sign, asterisk
and quasi-alphabetic, such as cos 5X. Because it
is desirable in algebraic manipulation to do
exact arithmetic, a1'l numbers are represented as
fractions. The restriction on the numeric quantity is that the total number of decimal digits
of the numerator and denominator must be less
than or equal to 15. Under this restriction,
arithmetic operations are exact. The quasi-alphabetic quantities, also, must ,have less than 16
characters in them and they must begin with a letter. Those restrictions are mec~anical ones and
could be removed by going to multiple arithmetic
precision and using larger storages. Of course,
l.n both numeric and quasi-alphabetic quantities,
no special symbols can appear.
A group is an algebraic expression contained
within a plus, minus or a parenthesis. It may
contain several quantities, for example
Introduction
0,
The kinds of problems which initiated interest in general purpose high-,speed digital computers were, fqr the most part, problems whi~h involved an extreme amount ~f arithmetic. l1ithout
computers, in many cases, no attempt could be
made to solve them, as valuable as.their solutions
were deemed to be, not only because o'f the time
required to perform the computations, but also because of the very small probability that the results after months of hand calculation would be
correct. With the advent of the electronic compu, ter, the arithmetic involved in these problems became a trivial matter and solutions were easily
effected with a high degree of reliability.
Recently, an analogous difficulty has arisen
in solving another kind of problem. \1e wish to
solve systems of differential equations by perturbation methods. These problems, rather than involving arithmetic, required an o'verwhelming
amount of algebraic manipulation. The only feasible way to handle t~is kind of problem is, again,
to "let the computer do it", and it "laS for this
purpose that the computer program called !lALGY"
was developed.
'
ALGY is an interpretive routine through the
use of which the programner or mathematic,ian may
'instruct the computer to perform certain algebraic
manipulations. ALGY is baSically an elaborate
scheme for the manipulation of alphanumeric bit
patterns. 'The input and output used with ALGY are
alphanumeric algebraic statements. In this paper, ,
we will give the definitions pertinent to the
ALGY program, describe the currently 'available, al'ge~raic manipulations in a brief.description of
the flow of the AJ.,Gy'program, demonstrate by use
of an example an ALGY program, and, finally, give
a brief outline of future algebraic operations
and applications.'
-13/2s*X$2*sin2X*Coef
is a group.
An expression is any algebraic combination
of groups and/or quantities which are terminated
by a period. Expressions are tagged ,.,ith a name.
This name may also be a quantity in another expression.
Throughout the r~mainder of this paper" reference uill be made to different programs, the
ALGY system and particular ALGY programs. The
mathematician writes the ALGY program which is
processed by the ALGY system. ALGY does not manipulate equations, but only expressions. However, it is easily seen that for algebraic manipulations, expression manipulation is sufeicient.'
ALGY Operations
There are a few general restrictions on 'the
size and type of algebraic expression that ALGY
can handle. Any expression can contain at most
4500 BCD charact~rs. Also, all exponents must be
positive integ~rs and the only available symbols
are the usual 64 BCD characters.
'
The currently' available basic ALGY commands
are EQAT, INQT, BUGG, OPEN, SBST,' FCTR, TRGA and
DONE. l~hen the ALGY system was being designed,
'we felt that these commands constituted a minimal
system to perform the algebraic manipulations
that we wex:,e interested in p'erforming. Following
,
.
()
390
10.'4
is a brief description of each command. It is
very easy to learn to use ALGY. ~~o hours of instruction are all that is usually required.
EOAT:
Equate merely records on tape the left and
right hand sides of the equation. The algebraic
expression on the right hand side of the equate
symbol is always preceeded by its name, that is,
the symbol used on the left of the equate symbol.
This method uniquely determines all expression
recorded on the tape.
INOT:
Internal equate renames an expression already
on tape, preserving the recorded name. This
allows an algebraic expression to be re-equated
without having to write the whole expression ~ver
again.
~:
Bugg is essentially an "unequate" operation.
It searches the tape for the tag that is to be
"bugged" and deletes it. This is useful if the
user wishes to define a particular variable several different lvays during a single ALGY prograll\.
0,
OPEN:
Open removes parentheses from an algebraic
expression. To do this, it performs all'algebraic multiplication necessary, grouping identical terms,; and sorting in a qua~i-alphabetical
manner.
similar set of expressions. To accomplish this,
a logical sequence of events is followed~
The algebraic equations are coded in the
ALGY format l~hich in essence is simply rewriting,
them on~coding sheets, using English letters
instead of Greek symbols when applicable, followed
by all the ALGY operations necessary to obtain the
desired results. After the program is key punched
it is submitted for recordi~g on tape.
ALGY accepts the coded statements, printing
and performing all operations directed by the input program. A very simple example follows to fa-'
cilitate explaining the logical flow of ALGY.
Consider
e(f,g) = (fg + 1)3
Ax + 1/2 A2x 2 + 1/6 A3 x3 •
g(x) =Bx - 1/6 B3x3 + 1/120 B5x5 - 1/5040 B7x 7
f(x)
11
9
7
4
3
and suppose the factors of x J x , X ,x and::
of the function e are desired, neglecting all
terms of order greater than 11. The ALGY input
program would appear as follows:
EQAT E = (F*G + 1/1)$3.
FCTR:
FCTR factors a given expression with respect
to a single variable, which may be exponentiated
with the option of equating its coefficient to a
given symbol for future reference. The expr~s
sion may be factored with respect to several variables "lith the restriction that if a particular
group contains two·or more variables to be factored, it can be factored with respect to only
one of the variables.
TRGA:
Trig A expands a product of sin and cos functions of i given argument to a sum of 'sin and cos
functions of'multiple angles. An exponentiated
sin or cos function would fall under this category.
~:
Done is a control word which allows several
independent problems to be processed du~ing the
same run.
o
Logical Flow of ALGY
ALGY accepts algebraic expressions as input,
processes these expressions in the manner in
which the user has programmed, and outputs a
ie(Equate E
,
= (FG.+
3
1) ).
= 111 + A*X + 1/2*A$2 + 1/6*A$3*X$3.
G = B~~ - 1/6*B$3 + 1/120i~$5*X$5
EQAT F
'EQAT
1/5040*13$ 7X$ 7 •
S~ST
SBST:
SBST substitutes one or more expression in a
given expression. The routine inserts parentheses about each expression substituted.
=1 +
E/F,G.
OPEN E.
ie(Substitute in E, the expressions
equal to F and G.
ie(Remove all parentheses).
FCTR E/X$11,EIl/X$9,E9/X$7,E7/X$4,E4/X$3,E3/ ,ER.
ie(Factor E l~ith respect to X$ll and
call the coefficient Ell, factor the
remainder of E with respect to X$9
calling its coefficient E9, etc., tagging the remainder of E after all factoring is completed, ER)
EQAT X = 0/1.
SBST Ell/X.
OPEN Ell.
DONE.
ALGY will accept the first three EQAT com'mands, print and store the algebraic expressions
on tape, where each expression is identified by
its tag on the left-hand side of the equate symbol. It then accepts the SBST command, searches
the tape for the expression equal to E and reads
it into memory. The routine locates and reads the
expression 'equal to F, and examines E, substituting the F expression with parentheses around it
each time it appears in E. After F has been substituted, the same procedure is done for the expression G. The resulting substitution in E
would appear in print as follows:
~9.l
10.4
...
E
a
«1/1
+ A*X + l/2*A$2*X$2 + 1/6*A$3X$3)*(B*X
- l/6*B$3*X$3 + l/l20*B$S*X$S
- 1/sOOO*B$7*X$7) + 1/1)$3.
ALGY accepts the OPEN command and commences
removing the parentheses in the E expression
above. The results are printed and stored on tape.
The system then enters FACTOR which will factor E
,with respect to each variable requested. It then
prints and stores the coefficients of each factor
as well as the new factored E expression as follows:
n
Ell = E1l(X ,A,B) where n assumes ali integers 1 through 19
E7 = E7(X,A,B)
2
E4 = E4(X,X ,A,B)
E3
= E3(A,B)
2
ER = ER(X,X ,A,B)
E
= Ell*X$11
+
+ E9*X$9 + E7*X$7 + E4*X$4
E3'1~$3
+ ER.
To eliminate .all higher order terms in Ell,
simply EQAT x to zero, SBST x into Ell and then,
Ell = E~l(A,B).
11
3
In this manner the coefficients of X and X
can be accurately determined with a minimum of
effort on the part of the user. The computer cost
of the solution for a few typical problems is less
than 1/6 the cost of the solution obtained by manual labor, assuming that the man performing the
algebraic manipulations is as reliable as the
computer.
.
Below is a flow diagram for the ALGYsystem.
Because of the logical complexity of each subroutine, detailed flow charts have not been included in this pap~r.
Future Operations
o·
We will tremendously increase, during the
next few years, the scope and number of allowable
ALGY commands. Because of the specific problem
in' perturbation theory for which ALGY was originally designed, we will immediately develop two
more trigonometric manipulations called TRIG B
a~d TRIG C. TRIG B allows angle variables to be
\ separated using the laws of addition for the sin
'and cos functions. TRIG C is, in a certain sense,
the inverse operation. to TRIG A. In TRIG C, sins
and cos of multiple angles are reduced to powers
of the sin and cos of the angle.
There are many algebraic operations that suggest themselves.now that we have the basic tools
for algebraic manipUlation developed. Our future
plans include differentiation, restrictive forms
of integration and solutions of linear systems
using determinants. The restriction on the exponents will be lessened. We have already found
several' cases where II super" ALGY commands would
be of value. For instance, it would be extremely
desirable to have a command to generate a polynomial of given degree when only the ith term is
given. There are also numerous form of factorization which suggest themselves. It should also bc
noted. that the ALGY coded program is a straightflow program just as the first numerical programs
were. Undoubtcdly, we will develop a loop technique for the ALGY system.
Conclusion
ALGY represents a first step in a new form
of computer usage. ALGY is not a general problem
solver. If the mathematician does not know how to
algebraically manipulate his equations, ALGY can
be of little help. But ALGY is an extremely powerful tool in the hands of an intelligent user.
It I~nables the mathematician to consider and to
sorve problems that he would otherwise never consider',because of the large amounts of algebraic
manipulation necessary for a solution. It enables him to try different forms of a solution
and use diffe~ent approaches to the same problem,
where before he waG often committed to just one
approach because of the large amount of time necessary to verify that one method.
ALGY INPUT
PROGRAM
INITIALIZE
TAPES AND
INTERNAL TABLES
ACCEPT AND
PRINT INPUT.
COMMAND
INTERPRET COMMAND
~ND EXIT TO
APPROPRIATE ROUTINE
SEARCH AND READ'
EXPRESSION
WHICH IS TO BE
OPERATED UPON
,
.1
\.
\
PRINT AND STORE
RESULTING
EXPRESSION
.
I
AJ.£;Y -- Algebraic Manipulation·' Program
Operating Instructions and Program Statistics
Magnetic Tapes
OUT
ALGY Input Program in code mode
lUT
In~ermediate
3UT
Printer output tape
scratch tape
All three tapes must have write enable rings •
. Note:
Program uses USE TAPE table in MESS (WDL Executive system).
Restart and Termination
Restart Procedure:
None
Successful Terminations
A successful ALGY termination is indicated by 'FINISH OF ALGY RUN'
on the· console typewriter and an exit to M/620 in SC.
Other Terminations
A run may terminate by any of several error exits where one of
. " . ,the,·following is typed on the console typewriter:
'PROGRAM NOT ON TAPE' is indicated when a tape is mounted with
no ALGY INPUT PROGRAM recorded on it.
'EXPRESSION NOT ON TAPE' is typed when an operation on a .
particular symbol is called for without having first defined
the symbol with an EQAT.
'NUMBER TOO LARGE' occurs when a fixed point integer exceeds 24?
Note all ari thmetic is .exact and hence round-off is not allowed •.
'TABLE OVERFLOX AT XXXXXV is recorded when the working table
beginning at octal XXXXX overflows with BCD information.
C)
The
six working tables are, at present, each 1900 words in length.
In the next version, this restriction will be eliminated by
Page 2
including an expandable table feature.
This is not a severe
limitation if the user programs his problem wisely so as not
to allow the program to generate an algebraic expression larger
than 1900 BCD words.
Timing
estimat~~
The time required for an ALGY run is difficult to
Depending
on how complex the input program is, it may take from a few minutes to
several hours.
Seven to forty minutes, however, is an average run for
most problems programmed for ALGY.
Input
The present ALGY commands are:*
EQAT (Equate)
SBST (Substitute)
C)
OPEN (Remove Parenthesis)
FCTR (Factor)
INQT (Internal Equate)
DONE (End of Preceding Run)
LAST (Finish of all Runs that are Stacked).
Card columns 1 thru 4 of ALGY input program cards are 'reserved for
card sequencing since order is of the utmost importance.
may be used for the program.
Blank columns
~
ignored!
All other columns
The user MUST
terminate each command followed by any expressions with a period to indicate
to ALGY that this is the end of the present command.
Several programs may be
stacked on one tape for one run if they are separated by DONE commands.
After
the last program, twelve cards must follow with the code LAST in the first 4 cc
o
of every 8 cc of each card.
Note this includes cc
1~4.
:,,'
*
See ALGY - AN ALGEBRAIC MANIPULATION PROGRAM, M. Bernick, E. D. Callender,
J. R. Sanford; Western Joint Computer Conference, Los Angeles, 19610
TITLE:
CO H5:!:.C '1' =
DATE:
SOURCE L.t'BGU!LGE:
'rAe
HINIHUH Ni':.CHINE:
.!\I.GY '" Ai1. Algcb.:}:,.:de i1ntlipulation P!:og::mn fo:1.:' the Phi leo :lOOO
Gompu ·;;c~_:
It accepts
o
o
bit
pnttc~ns ~ud prod~ceG
B9
input
clp~onume~ic
a modified
SGt of
algcbxsic
algebraic
~
(
.. ~\
\
'--._./
0
0
J 0001
J~b606
!
JR0002
JROOO:3
*
JR0004
*
.;~
JR0005 ';EJROOO6
JROC07
,JROOO8
'jROOo9
JRoOIO
JROOll
JROO12
JROO13
JROO14
JROO15
JROO16
JROO17 OPEN
JROO18
JROO19
JROO20
JR0021
JROO22
JR002'3
JROO24
JROO25
JROO26
JROO27
JROO28
JROO29
JROO30
JROO31
JROO32
JROO33
JROO34
JROO35
JR0036, YFB
JROO37
JR0038
JROO39
JROO40
JROO41
JROO42
JROO43
JROO44 vr=c
JR0045
'JROO46
JROO47 YFD
JROO48
JROO49
JROOSO
JROO51
JROO52 YFE
JROO53
JRoos4
JROOS5
JROO56
JR0057
JROO58
JROO59
YFF
~~~¥! AN ALGEBRAIC MANIPULATION PROGRAM FOR THE PHILCO 2000
PHILCO CORP., WESTERN DEVELOPMENT LABORATORIES
pALO ALTO, CALIFORNIA
MAY 1, 1961
JERALD R. SANFORD
39$
AFEND
NAME
JRS
5'ET
M/4000
54,Sl
sAME
sAME
SUBSTAtMY
SAME
SUBSTBtMN
SAME
MP,MUL.TC
SAME
T2~Fl
T3;F2
SAME
SORTC,G
SAME
USEtM)600
ASGN
OPNX
rJM
CTE,
eM
MFFl
eM
eM
CTL
eM
CTLP
TMD
LC+2
TDM
LV+2
LC+5
TMD
LV+S
TDM
LC+8
TMb
LV+B
TbM
LC+~;·,'
TMD
LV+9'
TbM
TMD
LC+22
rbM
LV+22
TMD I"!~
LC+23
TDM
LV+23
TMD
LC+24
TDM
LV+24
LV+2
TMD
B
JMP
TMD'
PTABL
OPN2
JAE:D
P1ABL+5
TMD
JAED
YFD
PTABL+6
TMD
YFE
JAED
2;4X
TIXZ
JMP
NBV
YFB+1H
JMP
CNST+2
TMA
CTLP
AMS
TMD
bV+2
LvJ+6
TDM
JMP
Yf=c
TMA
CTL
CTlP
TMD
JAED
YFF
YFF
JAGD
TDM
eTL
TMD
LW+6
rDM
LW+7
eSM
CNST+2
,61
REMOVE PARENTHESES
CbEAR FLAG AND FOLLOWING
FLAG FOR wrTHIN PARA
N TH ORDER COUNTER
RUNNING COUNTER
SET OPENM
SET El
SET MY
SET MN
SET MULTA
SET MULTB
SET MULTC
FIND ORDER DFPARENTHESES
BRING ON'OPENM
END CODE
NO
NEXT BRING ON OPENM
1847
LEFT PARA
SAVE LOC IN OP ENfvl
FIND HIGHEST ORDER
FIND LOC OF INNERMOST NEST
REDUCE FOR RIGHf PARA
(,I
-'
(::)
JROO60
JROO61
JROb62 OPN2
JROO63
JROO64
JROO65
JROO66
JROO67 YFG
JROO68
JROO69
JROO70
JROO71
JROO72
JROO73
JROO74
JROO75
JROO76
JROO77
JROO78
JROO79
JROO80
JROO81
JROO82
JROO83
JR0084 ' OPNX
JROO85
JROO86
JROOa7 Yt=I
JROOaS
JROO89
JROO90
JROO91
JROO92
JROO9:3
JROO94
JROO95
JROO96
JROO97
JROO98
JROO99' YFU
JROioo
JR010l
JRol02
JR0103 OPN5
JROlO4
JRo105
0
AMS
JMP
TMD
TbM
TMA
JAZ
JMP
TMD
TDM
TMD
TDXLC
TDXRC
JMP
JMP
TMD
TDXL.C
TDXRC
JMP
JMP
JMP
TMD
TDXLC
TDXRC
JMP
JMP
TMD
TDM
TMD
JMP
TMD
JMP
TrXZ
JMP
TMA
TMD
JAED
,4X
MULTC,4X
OPENM~5X
B
LV+9
S
9t5X
NSV
L\~+7
LV+2
YFU
2~4X
JMP
JMP
TIXZ
JRot14
JMP
JROl15
JROl16
JMP
TRANSFER TABLE
EXIT OPEN
SET OPENM
BRING ON OPENM
STORE IN MN
NEXT STORE ON MN
LOC INNER NEST
LaC OPENM
IF EQUAL r.9 YFU
NEXT BRING ON OPENM
SAVE Loc' OF MN
SEARCH FOR EXPONENTIAL
SET MuLTC
B
NEXT BRING ON OPENM
BRING ON OPENM
PTAB~+6
)
NB~J
YFK
LV+24
S
24,5X
Tixz
NSV
OPN5
7;4X
NBW
24,5X
TMD
L\A/+7
JMP
TMD
LW+lO,4X III TO
bV+22.5X MULTA
BRING STORE QUANITY
END CODE MULTA
lH,5X
BLOCK
( P)
LC+2
LV+2
LV+2
. Y3
NBV
YFI+iH
LV+9
LtoJ+8
LC+24
LV+24
7,4X
rIXZ
NO
MULT
SLw-iH
T'lXZ
JMP
TMD
TOM
TMD
TDM
TIXZ
JMP
JMP
TMD
JAED
TMD
JMP
ENTERtCTLP TO O. CTL TO NTH
L.V+2,4X OPENM
LV+23,5X MULTB
BRING STORE EXPRESSION
END CODE f'.1UL IB
MULTIPLY
J~~P
JROI06
JR0107
JR0-108 .
JROlo9
JR0110
JROlll
JROl12
JRO:t13 YF'k
JROl17
JROl18
JR0119
eTLp
YFC
LC+2
LV+2
eTL
YFG .
OPNX+iH
Y44
l.W+I0
Yi
t4X
lH,5X
BSQ
SLw-1H
Y2
f4x
iH,5X
SSE
NO
stORE IN MULtc
NEXT STORE IN MULTC
NEXT BRING ON OPENM
sLwv
END CODE MULTC
8
BRING ON OPENM
P,ABL+4
$
JAED
JROi2d
JR0121
ell
JRoi22
YFL
JR0123
JR0124
JR0125
JROi26
JR0121
JR0128
JR0129
()
JR0130
JR0131
JR0132
JR0133
JR0134
JR013S'
JR0136
JR0137
JR0138
JRoi39
JR0140
JR014i
JR014'2
JROi43
JR0144
JROi45
JR0146
JR0147
JR0148
JR0149
JR01SO
JR015i
YFN
YFM
JRoi52
JR0153
JROi54
JROis5
JR0156
JR0157
JR0158
JRO:J.59
JRo160
JR0161
JR0162·
JR0163
JR0164
JR0165 YFP
JR0166
JR0167
JROi68
JROi69
0
JRoi10
JR0171
JR0172
JR0173
JR0174
JROi75
JROi76
JR0177
JR0118
JRot19
YFQ
JMP
TMD
TDXLc
TDXRC
JMP
TIXZ
JMP
TMD
TDM
TMb
TDXLc
AIXO
JMP
JMP
TMD
TDXLC
JMP
TMA
TDM
TMD
JAED
TMD
TDXL.C
TDXRC
JMP
JMP
CSM
AMS
JMP
TMD
TDM
TMD
TDXLC
TDXRC
JMP
TMD
TDM
TMD
JMP
Tixz
JMP
TMA
SM
TAM
TMD
JMP
TMb
JMP
TIXZ
JMP
TMA
TMD
JAED
1Mb
JAED
TMD
JAED
rrxz
Jf.1P
VFL
YFM
NO
.4X
MULTCt4X
MULTB,5X
TRANSFER TABLE
Y4
iH~5X
BLOCK
7fJ4X
N8W
LC+5
LV+5
Y2
t5X
3~5X
BSQ
SLW-1H
LC+S
t3X
RT
RT\~+1
CTE
CNST+2
YFM
Y5
t4X
IH,5X
BLOCK
MUbT
CNST+2
eTE
YFN
LC+24
LV+24
NEXf BRING ON OPENM
SET El
LV+2,5X
LV+5,5X
BSQ OPENM TO E1
END CODE El
E1
BCD TO BINARY
NUMBER AT B47
N TH
PO~JER
1847
MULTC,4X
MULTA;5X
TRANSFER TABl.E
~lULTI PLY
1B47
N.... IST POvJER 1"0 N
SET MULTC
Y6
,4X
1H.5X
BSE
PTABL+6
T1
Lt'l+8
S
a,5X
NSW
CTL
CNST+2
CTLP
LW+7
8
LvJ+8
S
8~SX
NSW
T1
PTABL
OPN4
PTABL+6
YFS
P,ABL+5
YFR
7.4X
NByJ
bV+24.4X MULTC
MN
BRING STORE EXPRESSION
BRING )
b\tJ+8, SX
STORE IN MN
NEXT STORE ON MN
1B47
REDUCE ORDER
BRING ON OPENM
STORE IN MN
NEXT STORE ON MN
END CODE
NO
NExt BRING ON OPENM
JR0180
JRO!81
JR0182
C)
J~Ola3
JR0184
JR0185
JRoia6
JR0187
JR0188
JR0189
JR0190
JROi9i
JRoi92
JR0193
JR0194
JR0195
JR0196
JROi91
JROi98
JRCi99
JR0200
JR0201
Vt=S
AMS
YFR
OPN4
0
TMD
jAED
TIXZ
JMP
JMP
TIXZ
JMP
TMD
TDM
,REDUCE ORDER
INC ORDER
YFU+2H
1~4X
NBW
YFP+iH
a,5X
SLt1W
NEXt BRING ON OPENM
PREPARE TO REMOVE PARA
END CODE MN
SET OPENM
TMD
Lc+9
SEt MN
TMD
LC+22
LV+'22
LC+23
SET MULTA
LC+24
LV+24
v7
SET MuLlC
TMD
TDM
TMb
TDM
TMD
TbxLc
TDXRC
JMP
TMD
TbM
eM
JR0215
JR0216
JR0217
JR02i8
JR0219,
JR0220
JR0221
JR0222 Y~r'
JR0223
JR0224
JR0225 YFTl
JR0226
JR0227
JR0228
JR0229
JR0230 YFT2
JR0231
JR0232
JR0233
JR0234
JR0235
JRC236
JR0237
JR0238
JR0239 YFV
CNST+2
CTLP
,(FQ
CNST+2
CTLP
eTl
TDM
TMD
roM
OPNi6
'YFP+iH
LC+2
LV+2
Lc+s
LV+5
LC+8
roM
J~0209
JRO~14
AMS
tbM
JR0203
JR0204
JR020S
JR0206
JR0207
JR0208
JR0210
, JR021i
JR0212
JR0213
JMP
TMA
TMD
JR0202
0
JMP
csM
TMb
JMP
TMD
JAED
TMD
JAE()
TMD
JAED
TIXZ
JMP
JMP
CSM
AMS
rrxz
JMP
JtvtP
TMA
AMS
TMD
JAED
JMP
TMD
rDM
TIXZ
JMP
TMD
LV+8
LV+9
LV+23
t4X
iH~5X
BLOCK
LV+2
SET El
I
SET tvlY
SET MuLTB
MNi4X
OPENM~5X
TRANSFER TABLE
SAVE Lac OPENM
LW+l1
tTLP
LV+2
8
PTABL
OPNi7
PTABL+6
YFTi
PTABL+5
YFT2
2.4X
Nf3V
OPN16+iH
CNST+2
CTLP
2t4X
NBV
OPN16+1H
CNST+2
CTLP
CTL
(P)+2H
YFT
LV+2
L\AJ+3
2,4X
NBV
LV+2
BRING ON OPENM
END CODE
NO
Nt:XT BRING ONOPENM
REDUCE RUNNING COUNTER
NExr BRING ON OPENM
INCREASE RUNNING COUNTER
MULTIPL.y tERM ON LEFt
AND tHEN ON RIGHt
sAVE Lac OF LEFTPARA
NEXT BRING ON OPENM
0
0
0
JR0240
JR024i
JR0242
JR0243
JR0244
JR0245
JR0246
JR0241
JR0248
JR0249
JR0250
JR0251
JR0252
JR0253
JR0254
JR0255
JR0256
JR0257
JR0258
JR0259
JR0260
JR026i
JR0262
JR0263
JR02.64
JR0265
JR0266
JR0267
JMP
TIXZ
JMP
TMA
TMD
JAED
TMD
JMP
YFVl
OPN8
OPN81
YFW
JR0269
JR0270
JR0271·
JR0272
JR0273 Yr~Jl
JR0274
JR0275
JR0276
JR0277
JR0278
JR0279
JR0280
JR0281
JR0282
JR0283 YF\~2
JR0284
JR0285
JR0286
JR0287
JR0288
JR0289
JR0290 YFX
JR0291
JR0292
JR0293
JR0294
JR0295 YFXl
JR0296
JR0297
JR0298 OPN9
JR0299
JR0268
B
2t4X
NBV
T1
PTABL+6
YFVl
LV+24
S
TrXZ
24~5X
JMP
JMP
TIXZ
JMP
TMD
NSV
YFV
24,5X
SlWV
LV+2
TD~1
LJv+1O
TMD
LC+22
LV+23
LV+2
TDM
TMD
JMP
TMD
JAED
JMP
Trxz
JMP
JMP
1Mb
JAED
JMP
TMD
TDM
TIXZ
JMP
JMP
TMO
JAED
TMD
JAEO
TMD
JAED
TMD
JAED
TMD
JAED
TMD
JMP
TMD
JMP
rIXZ
JMP
JMP
TMA
TDM
TMD
JAED
JMP
TIXZ
JMP
eM
TMD
TOM
B
PTABL+3
OPN81
OPN10
2,4X
NBV
B
PTABL+5
YFtq
YFWl
CN5T+2
MFFl
2.4X
NBV
B
PTABL
YFX
PTABL+l
YFX
PTABL+2
YFX
PTABL+5
OPN9A
PTABL+6
YGF
LV+2
B
LV+23
S
23,5X
NSV
·YFW+2H
MFFl
Tl
CNST+2
BRING ON OPt:NM
NEXT BRING ON OPENM
NO
STORE IN MULTC
NEXT STORE ON MULTC
END CODE MULTC
SAVE Loe JUst PAST RIGHT
PARENTHESES
SET MULTB
BRING ON MULTB
ASTERICK
NO
NEXT BRING ON OPENM
BRING ON OPENt~
(
NO
1B47
SET FLAG FOR
\!J I THI N
NEXT BRING ON OPENM
BRING ON OPENM
+
NO
BRING
ON
OPENM
STORE IN MULTS
NEXT STORE ON MULTB
1B47
YFi12
OPN9
NO
2~4X
NSV
MFFl
LV+2
L\~+io
NEXT BRING ON OPENM
CLEAR FLAG
SAVE LOC OF OPENM
PARA
JR6~oo·
TIXZ
JMP
SIXO
JMP
JRO:jol
JROg02
C.)
JR0303
TMb
JRO~04·
JR03C5
JR0306
JR0307
JR0308·
JR0309
JRO~10
JR0311
JR0212
JR0313
JR0314
JR0315
OPN9A
OPNio
JRO~i6
JRD311
TIXZ
JR031B
JR0319
JR0320
JR0321
JR0322
JR0323
TMD
JMP
TMA
JR0324
JR0325
JR0326
JRO~27
0
JR0328
JR0329
JR0330
JR0331
JR0332
JR0333
JRO:334
JR0335
YFVY
TDM
JMP
YFXX
J~0336
JRO~44
JR0345
JR0346
JRO~47
JRO:348
JR0349
JR0350
JR03S1
JR035·2
JR0353
JR0354
JR0355
JR0356
JRO:357
JR035B
JRO:359
JAED
TAD
JMP
TMD
JAED
TMb
JAED
JMP
rIXZ
JMP
TMD
JR0337
JR0338
JR0339
JR0340
JR0341
JR0342
JR0343
0
TDXLc
TDXRC
JMP
JMP
JMP
rIXZ
JMP
TIXZ
JMP
JMP
TMb
TDM
YFXXl
rrxz
JMP
TMA
TMD
JAED
TMb
JMP
1MD
JAED
TMD
JAED
TMD
JAED
JMP
Ttxz
JMP
TMD
TDM
JMP
YFY
24t5X
sLwv
END CODE MUL,C
sL.W-1H
END CODE MULIB
i,5X
Y5
t4X
iH,5X
BLoCK
MuLT
OPNB
23~4X
DECKV
2,4X
DECKV
OPN9
LC+23
LV+23
3.4X
DECKW
LvJ+3
Y8
YFYY
B
PTABt...+3
LAST STORE ON MULTS
L.AST BRING ON OPENM
SET MULTB
bAST BRING ON OPENM
OPENM-l~42
BRING ON OPENM
ASTERICK
YFXX
PiABL+5
YFYY
YFYY+2H
3t4X
NBvJ
LW+3
NO
NEXT
BRING ON OPENM
L~J+5
SAVE LOCATION iN OPENM
YGA
3.4X
DECK\\I
LAST BRING ON OPENM
L~oJ+3
YB
YFXXl
LW+3
B
PTABL+l
YFY
PTABL+2
OPENM .... 1,42
BRING ON OPENM
+
YFY
PTABL+5
YFY
Yt=XX
NO
3~4X
NBW
L\1+3
NEXT BRING ON OPENM
L~J+5
TbM
Ttxz
Yi=Y+4H·
LvJ+3
L.W+5
3,4X
JMP
JMP
TMD
JAED
B
PTABL+5
YFZ
TMD
MULTC~4X
MULTA,5X
TRANSFER DATAtASLE
AhGEBRArC MULTIPLY
NBW
NEXT BRING ON OPENM
BRING ON OPENM
(
".
()
JR0360
JR036i
JR0362
JR0363
JR0364
JR0365 YFZ
JR0366
JR0367
JR0368
JR0369
JR0370
JR0371
JR0372·
JR0373
JR0374 YGA
JR0375
JR0376
JR0377
JR0278
JR0379 .
JR0380
JR0381
JRO~82
JRO~83
C)
JR0384
JR0385
JR0386
JR0387
JR0388
JR0389
JR0390
JR0391
YGB
JR0392
.JR0393
JRO_394
JRO:j95
JR039.6
JRO-397
JR0398
JR0399
JRo400
JR0401
JR0402
JR0403
YGD
JR0405
JR0406
JR0407
JR0408
JR0409
("'\
\.. ..../
NO
STORE IN MULfB
JMP
SLvJV
END CODE MULTB
TMD
YS
.4X
IH,5X
BLOCK
MuLT
LW+l1
LW+5
YGB
I..W+ll
rrxz
rrxz
JMP
rDXLG
TDXRC
JMP
JMP
TMA
TMD
JAED
TMD
JMP
rixz .
JMP
Ttv1D
JMP
TIXZ
JMP
JMP
TMD
TDM
TMD
JMP
TMD
JAED
TMD
JMP
TMD
JAED
..TMD
JAED
JMP
TMD
~MP
JR0404
JR0410
JR0411
JR04i2
JR0413
JR0414
JR0415
JR0416
JR0417
JR0418
JR0419
LV+23
S
23t5X
NSV
YFY+2H
23,4X
DECkV
23,SX
TMb
JMP
Tixz
JMP
JMP
YGD2
Tlxz
JMP
TMD
JMP
TMD
JAED
TrvtD
JAED
TDM
TMb
JMP
11,4X
MULTC t 4X
MULTA.SX
TRANSFER DArA TABLE
ALGEBRAIC MULtIPLY
BRING EXPRESSION UP TO PARA
BR I NG ON
OPEN~1
NEXT BRING ON OPENM
LV+9
S
STORE IN MN·
9tSX
NSV
NEXT STORE: ON MN
L.e+24
LV+24
LV+24
SET MULTC
YGA
B
PTABL
OPN15
BRING ON MULTe
END CODE
L\~+ll
B
BRING ON OPENM
PTABl+5
YGDD
PTABL+2
YGG
y.GD . .
LW+9
S
(
NO
STORE
9-j.sX
NSW
LV+24
.
."
NEXT STORE
MULTC
8.
PTAB6+2
YGD2
PTABL+i
VGD2
Tl
+
LV+9
s·
TIXZ
9;5X
NSV
,JMP
JMP
TMD
LAST STORE ON MULTB
NB\~
JMP
TMD·
rDxlc
rDXRC
YGD1
B
NEXT STORE ON MULTB
Y9
.4X ....,._.
IH.,..5X
SSE
ORNi5
LV+24
LV+24,4X MuLTC
l V+9, 5X_ ... ~1N
BRING STORE EXPRESSION
('-"\
I
,"'-- ....
!
'
(j
('I
'-.)
JR0420
JR0421
JR0422
JR0423
JRo424
JR0425
JR0426
JR0427
JR0428
JR0429
JR0430
JR0431
JR0432
JR0433
JR0434
JR0435
JR0436
JR0437
JR0438
JR0439
JR0440
JR0441
JR0442
JR0443
. JR0444
JR0445
JR0446
JR0447
JR0448
JR0449
JR0450
JR0451
JR0452
JR0453
JR0454
JR0455
JR0456
JR0457
JR0458
JR0459
JR0460
JR0461
JR0462
JRo463
JR0464
JR0465
JR0466
JR0467
.JR0468
JR0469
JR0470
JR0471
JR0472
JR0473
JR0474
JR0475
JR0476
JR0477
JRo'478
JR0479
YGC
YGCl
YGC2
OPN15
JfvlP
TMD
JAED
TMD
JAED
TMD
JAED
JMP
TMD
TDM
JMP
TMD
rDM
TMD
JMP.
rIXZ
JMP
Trxz
JMP
JMP
TMD
TDM
TMD
TDM
TMD
ToM
TMD
rDM
TMb
TDM
TMD
TDM
CSM
AMS
OPN17
YGF
JMP
TMD·
TDXLC
TDXRC
JMP
JMP
TMD·
TDXLC
TDXRC
JMP
JMP
TMA
TDM
JAZ
YGG
JMP
TMD
JMP
Tf~D
JAED
TMD
JAED
.TMD
TDM
TMD
JMP
rIXZ
B
PTABL
ORN15
PTABL+i
YGC
PTABL+2
YGCi
YGC2·
PTAB6+2
T1
YGC2·
PTABL+l
Tl
LV+9
s.··
BRING . . ON MULTC
END CODE
+
NO
PRESENT CHARACTER
+ ,._PRESENT CHARACTER
.....
STORE IN MN
9 ;5X
NSV
24t4X
NBV
YGDl
LW+l0
NEXT STORE ON MN
NEXT BRING ON MULTC
SAVE OPENM LOC
LW+l1
LC+5
l..V+5
L..C+8
LV+8
LC+22
LV+22
LC+23
LV+23
LC-f'24
LV+24
CNST+2
CTLP
OPNi6
YiC
~4x
IH;5X
BSE;
SL~"-iH
SET El
SET MY
SET MUL.TA
SET MULTB
SET MuLTC
REDUCE RUNNING COUNTER
LW+l1,4X OPt:NM
LV+9,5X MN
BRING StORE EXPRESSION
END CODE MN
Y7
.4X
IH,5X
BLOCK
OPEN+1H
MFF1
T1
OPN9
YFXl
LV+24
B
PTASL+i
MN,4X
OPENM.5X
TRANSFER DATA tABLE
NO
BRING ON MULTC
+
y.~.C
PTABL.+2
YGCl
PTABL+2
Tl
-LV+9
, $,.
9*5X
NO.PRESENT CHARACTER
STORE IN MN
(-,
0
JR0480
JR0481
JR0482
JR0483
JR0484
JR0485
JR0486
JR0487
JR04B8
JR0489
JR0490
JR049i
JR0492
JR0493
JR0494
JR0495
JR0496
JR0497
JR0498
JR0499
JR0500
JR050i
JR0502
JR0503
JR0504
JR0505
JR0506
JR0507
JR0508
"JR0509
JR0510
JR0511
JR0512
JR0513
JR05-14
JR051S
JR0516
JR0517
JR0518
JR0519
JROS2C
JR0521
JR0522
JR0523
JR0524
JR0525
JR0526
JR0527
JROS28
JR0529
JR0530
JR0531
JR0532
JR0533
0
JROS34
JR0535
JR0536
JR0537
JR0538
JR0539
YGDD
YGDDl
MULT
JMP
JMP
TIXZ
JMP
TMA
TMD
JAED
JMP
TMD
JAED
TDM
JMP
TMD
JMP
Tixz
JMP
JMP
Jtv1P
JMP
PAGt:
TJM
TMD
rDM
TMD
TDM
. TMD
MULT2
TOM
TIXZ
JMP
TMD
TDM
TMD
rDM
TMD
JMP
TMD
TDM
TMD
JMP
TIXZ
JMP
TMA
TMb
JAED
TMD
JAEO
rrxz
yeA
JMP
JMP
TMD
JMP
MUbT5
TMD
JMP
TMD
JAED
TMb
TO~4
iMD·
TDXLC
TDXRC
NSV
YGDl
Nt:XT stORE ON MN
11~4X
DECKW
YB
LW+l1
YGDDl
8-.
PTABL+5
VGDbl
Ti
NBV-2H
LV+9
s·
9;5X
NSV
YGD·
NBV-2H
YGD
MULTX
L.C+22
LV+22
LC+24
f...V+24
LC+21
LV+21
24,5X
SLWV
LC+24
LV+24
PTABL+l
T1
LC+25
S
LC+23
LV+23
LV+22
B
22,4X
.b1B.V
Tl
PTABL+l
MULT5
PiABL+2
YCA
22t4X
DECKV
MUlT5
LC+25
S
LV+22
B
PTAB~
ALGEBRAIC MULTIPLICATION
SET
MULTA
SET MUL.TC
SET SORTC
END CODE MULTC
SET MULTC
+
PRESENT CHARACTER
STORE IN S3
SET MULTB
BRING ON MULTA
NEXT BRING ON MULTA
+
NO
LAst BRiNG ON
STORE IN S3
BRING ON r4ULTA
END CODE
MULT4
Lc+i2
LV+12
Yll
.4X
IH,5X
NO
SET SORTO
MULTA,4X
SORTO.SX
t~UL 'fA
C~:I
JR0540
JR0541
JR0542
JR0543
JR0544
JR0545
JR0546
JR0547
JR0548
JR0549
JR0550
JR0551
JR0552
JR0553
JR0554
JR0555
JR0556
JR0557
JR0558
JR0559
JR0560
JR0561
JR0562
JR0563
JR0564
JR0565
Jf.1p
TMD
TDM
TMb
MULTl
TMD
TDM
TMD
JMP
TIXZ
JMP
TMA
TMD
JAED
JRO~66
0
0
JR0567
JR0568
JR0569
TMD
JAED
Ttxz
JMP
JMP
JR057b
JR0571
JR0512
JR0573
JR0574
JR0575
'JR0576
JR0577
JR0578
JR0579
JR0580
JR0581
JR0582
JR0583
JR0584
JRO:;85
JR0586
JR0587
JR0588
JR0589
JR0590
JR0591
JR0592
JR0593
JR0594
JR0595
JR0596
JR0597
JR0598
JR0599
JMP
JMP
TMD·
TDXLC
TDXRC
JrvtP
TMD
TDM
-TMD
TDM
TMD
TDXRC
TbXLC
JMP
TMD
TDM
Yee
Vcel
MULT6
TMD
JMP
TMD
JAED
TDM
TMD
JMP
JMP
TMD
TDM
TMD
JMP
TMD
JMP
TMD
JAED
MULT68 TMD
TDXLC
TDXRC
JMP
JMP
JMP
JMP
JMP
MULT4 TMD
TDM
BSG
PTABL+3
T1
Lv+i2
BRING STORE GROUP
ASTERICK
PRESENT CHARACTER
S
STORE IN SORTO
NEXT STORE ON SORTO
NSV-2H
Y12
.4X
lH~5X
BLOCK
S3
S2
LV+12
LW+4
Y12
IH.4X
.5X
BL.OCK
SORTO.4X
SORTC.5X
TRANSFER DATA TABLE
SORTC.,4X
...._.
SORTO,5X
TRANSFER DATA TABLE
52
S3
LW+4
L.V+12
LV+23
B
23.4X
NBV
T1
PiABL+l
MULT6B
PTABL+2
Yee
23,4X
DECKV
MULT6
le+25
B
PTABL+i
Vecl
Ti
Le+25
S
MULT6B
PTABL+2
T1
LC+25
s.
LV+23
B
PTABL
MULT2
Y13
.4X
IH~5X
BSG·
SLW-1H
SORT
GATHER
MULTl
LC+24
LV+24
BRING ON MULTB
NEX, BRING ON MULTB
+
...
NO
LAST BRING ON MULTS
BRING ON $3
+
STORE IN 53
STORE IN S3
BRING ON MULTB
END CODE
NO
MULIB •.4X
SORTO.SX
BRING Sf ORE GROUP
END CODE SORTO
MULT1PkY LIKE tERMS
ADD LIKE TERMS
SET MULTC
JMP
JR0600
,
r
.
"--->
JR0601
JR0602
JR0603
JR0604
JR0605
JR0606
JR0607
JR060B
JR0609
JR0610
JR0611
JR0612
JR06l3
TrXZ
JMP
TMA
TMD
JAED
TMD
JMP
MULTX
SORT
JR06'14
JR0615
JR0616
JR0617
JR0618
JR0619
JR0620
"-"~
.
.
JR0621 STS1
JR0622
JR0623
JR0624 R
JR0625
JR0626
JR0627 5TS2
C)
JR0628
JR0629
JR0630
JR0631
JR0632
JR0633
JR0634
JR0635
JR0636
JR0637
JR0638
JR0639
JR064()
JR064i
JR0642
JR0643
JR0644
JR0645
JR0646
0
TJIv1
TMD
TDM
TMb
TDM
TMD
TDM
TMD
TDM
Trxz
JMP
TMb
TDXLC
TDXRC
RPTAA
TMb
TDM
TMD
.TDM
TMD
.PTABb
MULTX
LV+24
MULT4+2H
(P)
SORTX
LC+14
NEXT BRING ON MULTC
END CODE
to EXIT
NO
...
EXIT MULT
SET SORTB
Lc+i6
LV+16
SET N2
Lc+12
LV+12
CNST
N2
1495X
SLWV
Y14
.4X
iH~5X
8,
lt4X
1.5X
LC+19
LV+19
L.V+12
B .. _
TMD
JAED
prABl.
STS12
T2
T2+1
Y15
TDM
Tf'v1D
TOM
TMD·
TDXLc
rDXRC
JMP
JMP
JMP
JMP
TMb
JMP
TMD
MULTIPLY LIKE tERMS
LV+-l4
Jt~P
eM
TMb;
TDXLc
TDXRC
JMP
JMP
TMA
TDM
TMD
JAED
TMD
JAED
TMD
ST53
rI
BRING ON MuLrc
PAGE
eM
JR0647
JR0648
JR0649
JR0650
JRC65i
JR0652
JR0653
JR0654
JR0655
JR0656
JR0657
JR0658
JR0659
J~1P
B
24t4X
NBV
,4X
1H~5X
BSQ·
SLW-IH
SET SaRTO
i l l • •.•••
END CODE SORTS
L.G+13.4X
LV+13 ;.5X . . ._
SET 8 CONfROL WORDS
"
SET T2
...•
BRING,ON SaRTO
END CODE
NO
LV+12t4X SaRTO
LV+i9~5X T2
BRING STORE QUANTITY
END CODE t2
'-~.,-
QFF'
T1
PTABL+2
STS2
PTASL+3
5T53
LC+19
LV+i9
PRESENT CHARACTER
ASTERICK
NO
SET T2
LC+-i5
LV+15
SET
Nl
Y16
.4X
IH,5X
SSQ
Lv+i9.4X 12
LV+15.SX N1
BRING STORE QUANITY
SLvJ-1H
NUt-1uL T
STS2
LV+14
B-
PlASh
NUMER Ie FRACT ION MULTIPLY
BRING ON saRis
END CODE
C,>
JR0660
JR0661
JR0662
JR0663
JR0664
JR0665
JR0666
JR0667
JR0668
JR0669
JR0670
JR0671
JR0672
JR0673
JR0674
JR0675
JR0676
JAED
TMD
TDM
eM
eM
YBB
JAGD
JR0677
C)
0
JR0678
JR0679
JR0680
JR0681
JR0682
JR0683
JR0684
JR0685
JR0686
JR0687
JR0688
JR0689
JR0690
JR0691
JR0692
JR0692
JR0694
JR0695
JR0696
JR0697
JR0698
JR0699
JR0700
JR0701
JR0702
JR0703
JR0704
JR0705
JR0706
JR0707
JR0708
JR0709
JR0710
JR0711
JR0712
JR0713
JR0714
JR0715
JR0716
JR0717
JR0718
JR0719
TMD
TDXLC
TDXRC
JMP
JMP
TMA
TDM
TMb
JAED
TMA
TMD
JAED
5TS9
YBe
STS10
YBD
STS5
JMP
TMA
TMD
JAED
JMP
tMD
TOM
TMD
TDXlC
TDXRC
JMP
TMD
JMP
Ttw1D
JAED
JMP
TMD
TDXLC
TDXRC
JMP
JMP
JMP
TMD .
TDM
TMD
TDXkC
TDXRC
JMP
TMD
JMP
TMD
JAED
JMP
TMD
TDXlc
rDXRC
JMP
JMP
TMb
TDM
TMD
Jr~p
YBG
LC+20
LV+20
T3
T3+1
V17
t4X
IH,5X
SSQ
NO
SET T3
LV+14.4X SORTS
LV+20.SX T3
BRING STORE QUANTITY
SL~J-IH
QFF
T1
PTABL+2
5TS9
T2
T3
(P)+3H
ST59
S1510
T2+1
T3+1
5T54
YSB+3H.
LC+20
LV+20
V18
.4X
1Ht5X
BSQ
LV+14
NO
SET T3
LV+20,4X T3
LV+13,5X SaRrA
BRING STORE QUANTITY
B
BRING ON SORTS
PTABL+4
YBC
5T53
Y19
.4X
iH,5X
SSQ
BSQ
5TS3
LC+19
LV+19
Y20
$
j4X
1H,5X
BSQ
LV+12
B
PTABL,+4
YBD
STS5
Y21
t4X
IH,·5X
BSQ
SSQ
PTABL+3
Tl
LV+13
s
NO
LV+14.4X SORTB
LV+13.5x SORTA
BRING STORE QUANTITY
BRING STORE QUANTITY
SET T2
LV+19;4X T2
I-V+13.5X SORTA
BRING stORE QUANTITY
BRING ON SaRTo
$
NO
LV+12.4X SaRTO
LV+13,SX SORTA
BRING STORE QUANTITY
BRING STORE QUANtITY
ASTERICK
PRESENT CHARACTER
STORE IN SORTA
C~I
JR072b
JR0121
JR0722
JR0723
JR0724
JR0725
JR0726
JR0727
JR0728
JR0729
JR0730
JR0731
JR0732
JR0733
JR0734
JR0735
JR0736
JR0737
JR0738
JR0739
JR0740
JR0741
rixz
JMP
TMD
TDM
TMD·
STS7
STS8
STs4
JR0742
JR0743
JR0744
JR0745
JR0146
JR0747
TMD
JRb748
0
0
JR0749
JR0750
JR0751
JR0752
JR0753
JR0754
JR0755
JR0756
JR0751
JR0758
JR0759
JR0760
JR0761
JR0762
JR0763
TDXLC
TDXRC
JMP
TMD
TDXbc
TOXRC
JMP
TIXZ
JMP
TMD·
TDXLC
TDXRC
JMP
JMP
TMD
TDM
TMb·
TDXLC
TDXRC
JMP
TMD
JMP
VBE
YBEl
JAED
TMD
TDM
TMD
JMP
TIXZ
JMP
JMP
rIXZ
JMP
iMD
TDXLC
TDXRC
JMP
JMP
TMD
13~5X
NSV
LC+20
LV+20
Y18
.4X
1H,5X
BSG
'Y19
.4X
lH~5X
BSG
13;SX
SLWV
Y22
.4X
iH,SX
BhOCK
STs1
LC+19
LV+19
Y20
j4X
IH,5X
BSQ
LV+i2
NEXT STORE ON SORTA
SET T3
LV+20,4X T3
LV+13t5X SORTA
BRING STORE GROUP
LV+14.4X SORTB
LV+i3~5X SORTA
BRING STORE GROUP
END CODE
saRrA
SORTAt4X
SORTB~5X
TRANSFER DATA tABLE
SET T2
LV+19.4X T2
LV+13.5X SORTA
BRING stORE QUANTITY
B·
BRING ON SORTO
PTABL+4
VBE
CNST+2
Tl
LV+l7
S
l7.SX
NSV··
YBEl
12;4X
NBV
Y23
$
;
J4X
lH,5X
BSQ·
SL\1-1H
LV+14
1B47
PRESENT CHARACTER
NO~
STORE. IN EEl
NEXt STORE ON EEl
NExt BR1NG ON SORTO
LV+iZt4X SaRTO
LV+17,5X EEl
BRING STORE QUANTITY
END CODE EEl
JR0764
J~1P
B
BRING ON SORTS
JR0165
JR0766
JR0167
JR0768
JR0769
JR0770
JR0771
JR0772
JR0773
JR0774
JR0775
JR0776
JR0777
JR0778
JR0179
Ttv1D
JAED
TMD
TDM
TMD
JMP
TIXZ
JMP
JMP
TIXZ
JMP
TMD·
TDXLC
TDXRC
JMP
PTA8L+4
YBt:
CNST+2
11
lV+l8
S
$
VBF
NO, 1B47·
STORE IN EE2
i8,5X
NSV·
YBFi
14.4X
NBV
Y24
.4X
lH,SX
BSQ
NEXT STORE ON EE2
NEXT BRING ON SORTB
lV+14t4X SORTB
LV+i8;5X EE2
~RING
STORE QUANTITY
,
.
JRb780
l
~l
-'
0
0
JR0781
JR0782
JR0783
JR0784
JR0785
JR0786
JR0787
JR0788
JR0789
JR0790
JR0791
JR0792
JR0793
JR0794
JR0795
JR0796
JRo797
JRb198
JR0799
JR0800
JR0801
JR0802
JR0803
JR0804
JR0805
JR0806
JR0807
JR0808
JR0809
JR0810
JR0811
JR0812
JR0813
JR0814
JR0815
JR0816
JR0817
JR0818
JR0819
JR0820
JR0821
JR0822
JR0823
JR0824
JR0825
JROS26
JR0827
JR0828
JR0829
JR0830
JR0831
JR0832
JR0833
JR0834
JR0835
JR0836
JR0837
JR0838
JR0839
YBFi
STSl2
JMP
TMD
JMP
TMD
TDM
TMD
JMP
TIXZ
JMP
TMD
TDM
TMD·
TDXLc
rDXRC
JMP
JMP
TMD
rDM
TMD
TDM
TMD
TDt~
55l
SSlA
SSlB
SS3
TMA
TMQ
JAEQ
TMD
TDXLC
TDXRC
JMP
TMD
TDXbC
JMP
JMP
TMA
JAZ
TMD
JMP
TMD
JAED
TIXZ
JMP
TMD
TDXRC
JMP
Trxz
Jr>1p
SS4
SS4A
SORTX
YBG
TMD
TDXRC
JMP
TMD
TDXLC
TDXRC
Jt-1P
JMP
TMD
rDXLC
rDXRC
JMP
JMP
TMD
sLW-1H
Y25
EXPAD
PTABL+4
Ti ..
I:ND CODE EE2
G/TMA.RTW+IC/AMtEE2
EXPONENT ADD
S
13t5X
NSV
LC+18
LV+18
Y26
STORE IN SORTA
LV+i3
t4X
' IH, 5X
BSQ
STS7
LC+13
Lv+13
Lc+14
LV+14
LC+16
LV+16
$
PRESENT CHARACTtR
NEXT STORE ON SORTA
SET EE2
LV+18 ~4X EE2
L.V+13,5X SORTA
BRING STORE QUANTITY
SET SORTA
SET SORtB
SET N2
N2
eNST
SSlB
Y27
.4X
IH ,,sx
SSQ
Y19
t4X
BSG
SS4A
Nl
553
LC+14
B
PTABL
ss4
14,4X
NBV
Y27
lHt5X
SSlA
14,4X
NBV
Y27
IHt5X
sslA+2H
Y27
t4X
lHt5X
BSQ
SLt1-1H
Y28
,4X
iH,SX
BLOCK
( P)
PTABL.+3
1/1 •••••
LV+16.4X N2
L.V+13.5X SaRrA
BRING STORE QUANTITY
LV+14,4X SORTB
BRING STORE GROUP
BRING ON SORTB
END CODE
NO
NEXT BRING ON SORTB
LV+13.SX SORTA
NEXT BRING ON SORTB
LV+13.5X SORTA
LV+16.4X N2
L.V+13.SX SORTA
BRING STORE QUANTITY
END CODE SORT A ,
SORrA,Ax
SORiO~·5X
TRANSFER DATA TABLE
EXIt FROM SORT
ASTER LCK
(-)
"-,,,
l_)
0
JR0840
JR0841
JROB42
JR0843
JR0844
JR0845
JR0846
JR0847
JR0848
JR0849
JROS50
JR0851
JR0852
JR0853
JR0854
JR0855
JR0856
JR0857
JR0858
JR0859
JROB60
'JR0861
JR0862
JR0863
JR0864
JR0865
JR0866
, JR0867
JR0868
JR0869
JR0870
JR0871
JR0872
JR0873
JROS74
JR0875
JR0876
JR0877
JR0878
JR0879
JR0880
JR0881
JR0882
JR0883
JR0884
JR0885
JR0886
JR0887
JROBB8
JR0889
JR0890
JR0891
JR0892
JR0893
JROS94
JR0895
JR0896
JR0897
JR0898
JR0899
TDM
TMD
JMP
Tixz
JMP
TMD
TDM
TMD·
TDXLC
TDXRC
JMP
'TMb
JMP
TMD
JAED
JMP
TMD
GAT
TDXLC
TDXRC
JMP
JMP
JMP
pAGE
GATHE:R TJM
TMD
TDM
TMD
TOM
lMD
TDM
rMD
TDM
TMD
TDM
TMD
TDM
TMb
TDM
TMD
TDM
TMD
JMP
trv1D
JAED
TMQ
JAGQ
JMP
TMD
TDM
JMP
GATH6A TMD·
TDXbC
TDXRC
JMP
TMD
JMP
TMD
JAED
JMP
GATH6B TIXZ
Ti
LV+13
S
13.5X
NSV
Lc+19
LV+19
Y20
t4X
IH,5X
BSQ
LV+12
B
PTABL+4
GAT
stS8
'121
PRESENT CHARACTER
STORE IN SORTA
NEXT STORE ON SORTA
SET T2
LV+19,4X T2
LV+13.5X SORTA
BRING STORE QUANTITY
BRING ON SaRTO
$
NO
.4x
LV+12t4X SaRTO
LV+i3t5X SORtA
BRING STORE QUANt'ITY
BRING STORE QUANTITY
GATHX
LC+12
LV+i2
LC+i3
SUM IDENTICAL TERMS
IH,5X
BSQ
BSQ
ST58
LV+i3
LC+i4
Lv+i4
LC+i5
LV+15
LC+i6
LV+16
LC+24
LV+24
LC+25
LV+25
LC4'28
LV+28
LV+12
B
PTABL
GATHXtNST+4
t P ).+2H
GAtH6A
CNST
Ni
GATH6+2H
Y29
J4X
1Ht 5X'
BSQ
LV+12
B
PTABL+3
GATH68
GATH6
i2,4X
SET SaRTO
SET SORTA
SET SORiB
SET Nl
SET N2
SET MULTC
SET S3
SET S4
BRING ON SaRTO
END CODE
TO .EXIT
0/12
NO
111 •••••
LV+12t4X SaRTO
LV+1St5X Nl
BRING STORE QUANTITY
BRING ON sORia
ASTERICK
NO
/,00'"
I~I
"--I
JR0900
JR0901 GATH6
JR0902
JR0903
JR0904
JR0905 L
JR0906
JR0907
JR0908
JR0909
JR0910
JR0911
JR0912 GATHl
JR0913
JR0914
JR0915
JR0916
JR0911
JR0918
JR0919
JR092Q
JR0921
JR0922
C)
0
JR0923
JR0924
JR0925
JR0926
JRD927
JR0928 YDA
JR0929
JR0930
JR0931
JR0932
JR0933
JR0934
JR0935
JR0936
JR0937
JR0938 YDAl
JR0939
JR0940 YDA2
JR0941
JR0942
JR0943
JR0944 L
JR0945
JR0946
JR0947
JR0948
JR0949
JR0950
JR0951 YDB
JR0952
JR0953
JR0954 YDBI
JR0955
JR0956
JR0957 GATH7
JR0958
JR0959
JMP
TIXZ
JMP
TMb·
TDXLc
RPTA
CM·
TMD
TDXLC
TDXRC
JMP
JMP
TMD
rDM
JMP
TMD
JAED
TMD
JMP
TIXZ
JMP
TMD
JMP
TMQ
JAGQ
JMP
TMD
iDM
JMP
TMD
TDXhC
TDXRC
JMP
TMD
JMP
TMD
JAED
JMP
TIXZ
JMP
TlxZ
JMP
TMD
TDXLC
RPTA
eM'
TMD
TDXt..C
TDXRC
JMP
JMP
TMD
TDXLC
TDXRC
TMD
AIXJ
JMP
TMA
TMQ
JAEQ
NBV
NEXT BRING ON SaRTO
SLWV
l:ND CODE Nl
LC+13
,7X
20
SORTA~7X
15t5X
lt7X
Y21
t4X
IHt5X
BSG
SbW-1H
LV+24
LvJ+l
B
PTABb
GATH4A
LV+28
S
24,4X
NBV
4V+12J4X SaRTO
LV+13t5X SORTA
BRING STORE GROUP
END CODE SORfA
SAVE CONTENTS OF MULTC
BRING ON MULTC
END CODE
NO
STORE IN S4
NEXT BRING ON MULTC
LV~24
B
CNST+4
(P)+2H
YDA+IH
CNST
N2
YDA2+2H
Y30
;4X
1Ht5X
Bsa
LV+24
B
prAB6+3
YDAl
YDA2
BRING ON MULTC
0/12
NO
111 ••• •.•
bV+24,4X MULTC
bV+16,5X N2
BRING stORE QUANTITY
BRING ON MULTC
ASTERICK
NO
24t4X
N8V
16t5X
NEXT BRING ON NULTC
Sb.\IJV
END CODE N2
Lc+14
.7X
20
lt7X
Y31
t4X
lH~5X
BSG·
SLW-1H
XWRD
j2X
lHJ3X
XWRD+l
It2X
GATH2
t2X
,.ax
YDBi
SORTS;7X
LV+24t4X MULTC
LV+14.SX SORTB
BRING STORE GROUP
SORTA-l
SORTS
SORTA+19jGATH7
EQUAL GROUP JUfv1P
·
~
0
0
.
JR696b
JR0961
JR0962
JRC963
JR0964
JR0965
JR0966
JR0967
JR0968
JR0969
JR0970
JR0971
JR0972
JR0973
JR0974
JR0975
JR0976
JR0977
JR0978
JR0979
JR0980
JR0981
JRD982
JR0983
JR0984
JR0985
JR0986
JR0987
JR0988
TMD
GATH2
rixz
JMP
: TMA
TMD·
JAED
TMD
JMP
TIXZ
JMP
JMP
YDC
JMP
TMb
TDM
TMb
1DM
JMP
GAtH4A TMD·
rDxLc
J~0989
JR0990
JR0991
JR0992
JR0993
JR0994
JR0995
JR0996
JR0997
JRD998
JR0999
JRIOOO
JRIOOl
JR1OO2
JR1003
JR1OO4
JR1005
GATH4
YDD
0
TDXRC
JMP
TMD
TDM
TMD
TDM
TMD'
JMP
JAz
TMA
TMD
JAED
TMb·
roxLc
TDXRC
JMP
TMD
TOXLC
JMP
TMD
JMP
TMD
JAED
JR1006
JR1007
JR1OO8
JRio09
JRIOIO
JR10ll
JRI012
JRlot3
JR1014
JR1015
JRI016
JRI017
JR1018
JR1019
TDM
TMD
TDM
TMD
TDM
JMP
TMD
JMP
TMD
YDE
TOM
TMD
JMP
TIXZ
JMP
JMP
TMD
JMP
TMD
Lc+i4
LV+14
LC+16
LV+16
LC+28
LV+28
GATHl
LV+24
B
24t4X
NBV
T1
PTABL
YDC
LW+l
S
It5X
NSW
GATH2
NUMAD
LC+16
LV+i6
LC+28
LV+28
GAtH4
'132
SET SORTB
SET N2
SET S4
BRING ON MULTC
NEXT BRING ON MULTC
END CODE
NO
STORE tN
MuLtc
NEXfsTORE ON MUCTC
ADD FRACTioNS
SET N2
SET s4
j4X
Nl,4X
IH,5X
BLOCK
LC+25
LV+28
N2t5X
TRANSFER DATA tABLE
LV+13
SET SORTA
B
BRING ON N2
Lc+i3
LV+i6
GATH3
eNST
N2 .
YDE
SET 53 TO 54
NO,1/1 •••••
'(33
~4X
lHt5X
BSQ
Y27
.4X
BSQ
LC+13
B
PTABL
GATH3
P1ABL.+3
T1
L\fJ+l
S
1.5X
NSW
54
LW+l,5X MULTC
BRING STORE QUANTITY
LV+28~4X
LV+16t4X N2
BRING StORE QUANfITY
BRING ON sORrA
END CODE
NO,A5rERlcK
PRESENT CHARACTER
STORE IN tJtuL
rc
NEXT STORE ON MULTC
GATH5
LC+13
B
PTABL
BRING ON SaRrA
END CODE
C)
0
0
JR1020
JRI02i
JRI022
JR1023
JR1024
JRI025
JRI026
JRI027
JRIC28
JR1029
JRlO30
JRI031
JR1032
JRI033
JR1034
JRI035
JR1036
JRi037
JRI038
JR1039
JR1040
JR1041
·JRI042
JR1043
JRI044
JR1045
JRt046
JR1047
JRlO48
JR1049
JRI050
JRIOSl
JRIOS2
JRI053
JRIOS4
JRI0S5
JRI056
JRI057
JRI058
JRI059
JRI060
JRI061
JR1062
JRI063
JRI064
JRI065
JRI066
JR1067
JR1068
JRI069
JR1070
JR1071
JRI072
JR1073
JRI074
"clRI075
JRi076
JR1077
JR1078
JR1079
JAED
TMD
GATH5
TDXLc
rDXRC
JMP
TMD
TDXRC
JMP
Jr~p
GATH5A TMD·
TDXLC
TDXRC
JMP
TMD
TDXLC
JMP
GATH3 TrXZ
JMP
GATHX JMP
PAGE
FACTOR TJM
JMP
TMD··
TDM
TMD
TDM
rrxz
JMP
JMP
JMP
JMP
Tt-iD
iDM
TMD
TDXLC
TDXRC
JMP
FeTRIl TMD
TDM
TMD
TDM
TMD
TDM
TMD
TDM
TMD
TDM
TMD
TDM
TMD
TDM
eM
eM
eM
eM
eM
TMD
JMP,
Tlxz
JMP
GArH5A
Y33
.4X
lH;5X
BSQ
Y27
IHt4X
BSG
GATH3
Y33
.4x
lHtSX
BSQ
Y27
.4X
BSQ
It5X
SLWW
(P)
FACX
OPEN
Lc+l0
LV+io
LC+35
LV+35
35·,4X
NBVNBV-2H
NBV"'2H
NBV-2H
Lc+1
LV+1
Y34
;4X
IH.5X
BSQ
L.c+i
LV+l
LC+2
LV+2
LC+3
LV+3
LC+4
LV+4
LC+5
LV+5
LC+8
LV+8
LC+9
LV+9
Fl
Fl+l
F2
F2+1
EFFl
LV+35
NO
LV+28f4X S4
L \'J+l, 5X MUL.rC
BRING STORE QUANTITY
LV+13.4X SORTA
BRING STORE GROUP
LV+28t4X S4
6W+l,5X MULTC
BRING STORE QUANTITY
LV+16,4X N2
BRING STORE QUANTITY
END CODE MULTC
EXIT GATHER
FACTOR B FROM A
REMOVE PARENtHESES
SET MP
SET PROG
NEXT BRING ON PROG
NB
NB
NB
SET FOT
LV+35,4X PROG
LV+l;5X FOT
BRING STORE QUANTITY
SET FaT
SET OPENM
SET Fl
SET F2
SET El
SET
t~Y
SET MN
B
35,,4X
BRING ON PROG
N8V
NEXT BRING ON PROG
C)
C)
JRl0ab
JRI081
JR1082
JR1083
JR1084
JRI085
JRI086
JRi087
JRi088
JR1089
JR.1090
JRI091
JRI092
JRI093
JR1094
JRi095
JRld96
JRI097
JR1098
JRlcJ99
JRl100
JR1101
JRI102
JR1103
JR1104
JR1105
JRil06
JRll07
JR1IOa
itviA
TMD
JAED
TMD
JMP
TMD
JAED
1MD
TDM
TMD
TDX~C
TDXRC
JMP
JMP
TMb
JMP
TMD
JAED
tMb
TDM
tbM
FCI
JRII09
JRII1- 0
JR1111
JR11r2
JRll1:1 '
JR1114
JRilT5
JRTi16
JR11i1
JR1118
JRlt19
JRti~O
JRli2i
JRllZ2
JR1123
JR1124
JRl125
JRl126
0
SLvJ-1H
LV+35
B
PTABL+4
FC2
CNST+2
Tl
EFFl
LV+5
BRING ON PROG
$
1847
JMP
NSV
NExt
TOM
SET E1
TMD
LV+5
LV+35
8
PTABL+8
BRING ON PROG
I
JAED
TMD
JAED
TMb
PTABL+1
cOt~MA
JMP
TMD
JR1128
JRli29
JRl131
JRl132
JRl133
JRl134
JRi135
JRl136
JRlt37
JRl138
JR1139
JMP
JMP
rtxz
J~~P
FcrRE
BSQ
LV+35.4X PROG
LV+3,5X Fl
BRING stORE QUANTITY
END CODE Fl
FACX+1H
rtxz
Ttxz
J~1130
LV+3
Y39
,4X
1H,5X
NO
SET Fl
JMP
JMP
JRl127
PTABl..+7
FCTR20
Lc·k3
NO
BRING ON PRot;
COtvlMA
NSV
SLW-IH
Y40
t4X
IH,5X
BLOCK
LC+5
1Mb
FC2A
B
END CODE
TMb
JMP
TIXZ
JMP
JMP
rt~D '
TDXLC
TDXRC
JMP
TMD
rDXLC
JMP
TMD
TbM
FC2
fl'
PTABL
FCTRr:
LV+35
TMD
JMP
TMD
JAED
'TMD·
TDX!.C
TDXRC
S
STORE IN Ei
5;5X
.3X
RT
Nt:XT STORE ON Ei
El,4X
EEl.5X
TRANSFER DATA TABLE
El
BCD TO BIN
~TW+l
E1,
35,4X
Lc+s
Fei
BRING ON PROG
Fcl '
LV+5
S
5tSX
NSV
35t4X
NBV
FC2A
LV+2
B
PTABL
(P)+5H
Y112
;4X
IH~5X
NO
STORE IN
El
NEXT STORE ON Ei
NEXT BRING ON PROG
BRING ON OPENM
END CODE
LV+2t4X OPENM
LV+IOt5X MP
C',I
JR1140
JRl141
JRl142
JR1143
JRl144
JRl145
JR1146
JR1147
JR1148
JRl149
JRl150
JRl151
JRlt52
JRllS'3
JRl154
JRltS5
JRl-lS6
JRli57
JRllSS
J~1159
0
0
F"CTEE
JMP
TIXZ
JMP
TMD
TbM
JMP
TMD
JAED
TMD
TDXLc
rDXRC
JMP
JMP
FACX
TMD
TDM
TMD
JMP
TtXZ
JMP
TMD
JMP
TIXZ
JMP
F'CTR14 TMD
JMP
iMD
JAED
TMD
JAED
TMD
JAED
TMD
TDM
TMD
JRl160
JRl161
JRl162
JRl163
JR1164
JRi165
JR1166
JRl167
JRl168
JRl169
JR1170
JRl171
JRli72
JRl173
' TDXLC
JRl174
TDXRC
JRl175 ,
JMP
JRi176
JMP
JRl177
TMD
JRl178
TOM
JRl179
T~1A
JRllS0 FC3
TMD
JR1181
JAED
JR1182
JRl183 '
J~1P
TMA
JRl184
TMD
JR1185
JAED
JRl186
JR1187 FCTR6 TMD
rDXLC
JRl188
rDXRC
JRl189
' JMP
JR1t90
eM
JRli91
eM
JRl192
JMP
JRl193
JRl194 FCTR3 TIXZ
JMP
JR1195
TMD
JRl196
TDM
JRl197
JMP
JRli98
TIXZ
JRl199
SSE
10t5X
SLWV
LC+l0
LV+IO
B
PTABL
FACX
Y41
.4X
IHf5X
BLOCK
(P)
LC+7
LV+7
LV+2
B-
2;4X
NBV
LV+7
S
BRING StORE EXPRESSION
END CODE MP
SET MP
BRIN'G ON MP
END CODE
TO EXIT
NO
MP,4X
OPENM~SX
TRANSFER DATA TABLE
EXIT FAcTOR
SET G
BRING ON OPENM
NEXT BRING ON OPENM
STORE IN G
7~5X
NSV
LV+2
B
PTABL
FCTR3
PTABL+l
FCTR3
PTABL+2
FCTR3
LC+4
LV+4
Y42
t4X
IH,5X
BSQ
SL\'J-IH
LC+4
LV+4
Fl
F2
(P)+2H
FCTR6
Fl+l
F2+1
FCTR2
Y4~
.4X
IH,5K
BSQ
F2
F2+1
FCTR14
7;5X
sLvJV
LC+7
LV+7
B
7t4X
NEXT STORE ON G
BRING ON OPENM
END CODE
+
NO
SET F2
LV+2,4X OPENM
LV+4,5X F2
BRING STORE QUANTITY
END CODE F2
SET F2
LV+4,4X F2
LV+7,5X G
BRING STORE QUANTITY
END CODE G
SET G
BRING ON G
l/.'
JR1200
JR1201
JR1202
JR1203
JR1204
JR1205
JR1206
JR1207
JR1208
J~1209
JRI210
JR1211
JR1212
JR1213
JR1214
JR12.15
.JR1216
JMP
Ttvtb
JMP
TixZ
JMP
JMP
FCTRi3 TMD
JMP
TMD
JAED
Fc4
JR1217
JR1218
JRi219
i=cTR2
JR·1220
JR122t
JR1222
JRi223
JR1224
JR1225
JR1226
JR1227
r-"
U
JR12Z8
JR1229
JR1230
JR1231
JR1232
JR1233
JR1234 ~C5
JR1235
JR1236
JR1237
JR1238
JR1·239
JRt240 . FC6
JR1241
JR1242 .
JR1243
JR1244
JR1245
JR1246
JRt247
JRi~48
JR1249
JR1250
C)
JR12Si
JR1252
JR1253
JR1254
JR125S'
JR1256
JR1257
JR1258
JR12s9
JMP
TMA
TMD
JAED
Tlxt
JMP
A1XO
JMP
JMP
eM
TMD
rDM
TMD
TDM
JMP
T-MD
JAED
TMD
rDM
TMD
JMP
Ttxz
JMP
JMP
TIXZ
JMP
TMC>
TDXLc
TDXRC
JMP
JMP
TMDrDxLc
rDXRC
JMP
TMb
rDxLc
JMP
tMb
rOM
TMA
TMD:
JAED
JAGD
TMD
TDXLc
rDXRC
JMP
TMD
JMP
NBV
LV+9
S'
9.5X
NSV
BSG
LV+2
B
PTABL
FC4·
t=ACX+1H
LV+8
LC+8
FCTRI1
S.5X
sLwv
1.5X
SLvl-iH
FCTR9
E2
LC+6
LV+6
LV+2
LitJ+2
S
.PTASL+4
FC5
CNST+2
Ti
LV+6
S
6,5X
NSV
FC6
2f4X
NBV
Y4S
t4X
iH.SX
BSQ .
sLvJ-1H
Y46
.4x
NEXT BRING ON G
STORE IN MN
NEXT STORE ON MN
BRING STORE GROUP
BRING ON OPENM
END CODE
ANYTHING STORED IN MY
NO
YES
END CODE MY
END CODE MN
SET E2
SAVELOC OF OPENM
BRING ON OPENM
$
NO,lB41
PRESENt CHARACTER
STORE IN 'E2
NEXT STORE ON E2
NExt BRING ON OPENM
LV+2,4X OPENM
lv+6,5X
E2
BRING stORE QuANTITY
END CODE E2
IH,5X
BLoCK
E2,4X
EE2.5X
TRANSFER DATA TABLE
,3X
E2
BCD TO BiN
Lc+6
RT
RTW+i
E2
E1
E2
FCTR21
Fci5
Y43
,4X
lH,5X
SSQ
Y47
~XPAD
LV+4,4X F2
LV+7,5X G
BRING stORE QUANTITY
G/CSM,RtW+l~C/AM.EE2
EXPONENt SUBTRACT
",I
C)
JR1260
JR1261
JR1262
JR1263
JR1264
JR1265
JR1266
JR1267
JR1268
JR1269
1Mb
TDM
JMP
TtXZ
JMP
I~~A
Fe8
J~1270
0
JR1271
JR1272
JR1273
JR1274
JR1275
JR1276
JR1277
JR1278
JRi279
JR1280
JR1281
JR1282
JR1283
JR1284
JR1285
JR1286
JR1287
JR1288
JR1289
JR1290
JRi29:L
JR1292
JR1293
JR1294
JR1295
JR1296
JR1297
JR1298
JR1299
JR1300
JR1301
JR1302
JR 1.:1 03
TMD
FC9
FC10
0
JR1317
JRl:3t8
jRl~19
TDXLC
TDXRC
JMP
TMD
TDXLc
TDXRC
JMP
JMP
TMD
TDM
JMP
TIXZ
JMP
TMD
JMP
rIXZ
JMP
JMP
eM
eM
JRl~04
JR1305
JR1306
JR1307
JRi308
JR1309
JR1310
JR1:111
JR1312
JR1313
JR13T4
JR1315
JRl:316
TMD
JAED
TMD
TDM
TMb
JMP
' T!XZ
JMP
TMD
TDM
Fell
eM
TMD
TDM
1MD
TDM
TMD
TDM
TMD
rDM
JMP
TMD
JMP
TMD
JAED
JMP
FCTR21 rIXZ
JMP
JMP
TMD
JAtD
TIXZ
JMP'
TMD
LC+i8
~V+18
B
18,4X
Nl3V
T1
CNST+2
FCll
PTABL+4
T1
L..V+7
S
7;5X
NSV
LC+18
LV+18
Y48
.4X
IHt5X
BSQ
Y49
.4X
lHJ5X
BSG·
SLW-IH
LC4-7
LV+7
B·
7t4X
NBV
LV+8
$
8,5X
NSV
SSG
F2
F2+t
E2
LC+3
LV+3
Lc+4
LV+4
LC+5
LV+5
LC+6
LV+6
FCTR13
LV+18
B
PTABL
f='C9
FC8
7t4X
DECKV
B
PTABL+3
FC9
7J4X
N8V
LV+2
SET EE2
BRING ON EE2
NEXT BRING ON EE2
lB47
NO,$
PRESENT CHARACTER
STORE IN G
NEXT STORE ON G
SET EE2
LV+18.4X EE2
LV+7,5X G
BRING STORE QUANTITY
6V+2,4X OPENM
LV+7f5X G
BRING STORE GROUP
END CODE G
SET G
BRING ON
G
NEXT BRING ON G
STORE IN MY
NEXT STORE ON MY
BRING STORE GROUP
SET Fl
SET F2
SET El
SET E2
BRING ON EE2
END CODE
NO
BRING
BRING ON G
ASTER ICK
bAST
ON
G
NO
NEXT BRING' ON G
-.1
(
'. I
_/
JR13zC
JR1321
JR1322
JR13'23
JR1324
JR1325
JR1326
JR1327
JR1328
JR1329
JR1330
JR1331
JR1~32
JR1~33
JR1334
JR1335
JR1336
JMP
TMD
JAEO
TMb
TDM
TMD
TOXLC
TOXRC
JMP
.JMP
TTXZ
JMP
JMP
FCTR20 TMD
TDXlC
TDXRC
JMP
t=C12
TMb
JR1~31
JR1338
JR1339
JRi340
JR1~41
JRf~42
C~)
JR1:343
JRi344
JR1345
JR1346
JR1347
JR1348
JRi349
JRia50
JR1351
JR1352
JRi353
JR1354
JR1355
J~1:j56
Fci3
10M
JMP
JMP
JRl~58
TMD
JR1359 ·Fci4
TDM
JRt360
TMD
JRl~6i
TDM
JR1362
TMDI
JR1363
TDXLc
JR1364
TDXRC :
JRl~65
JMP
JRi366
JR1:367 .
JMP
·TMD
JR1368
TDM
JR1~69
JR1370 FCTR23 TMD
TDM
jRl~71
jRl~72
TMD
JMP
JR1373
Ttxz
JR1~74
JMP
JRt~75
JRl:j76
TMD
TOM
JR1377
JMP
JRt378
TMD
JR1379
JR1351 '
(~)
FCTR9
TDM
TtxZ
JMP'
TMD
TDM
TMb
JMP
TMD
JAED
JMP
TIXZ
JMP
TMb I
ToXLc
TOXRC
JMP
JMP
TMb
B
PI"ABL.f'3
FC12
v44
LW+3
Y56
,4X
iH~5X
BSQ
r=C1O
2t4X
NBV
FC9
Y5i
.4X
iH,5X
BLOCK
BRING ON bPENM
ASTERICk
NO'CNST~Ti5
SET 1/100 •••
L. \~+3 ,4X 111
LV+7,5X G
BRING StORE QUANTITY
NExt BRiNG ON OPENM
OPENM.4x
MY,5X
TRANSFER DATA TABLE
LC+3
LV+3
3,5X
SLWV
LC+8
LV+8
LV+35
B
PtABL+?
FC13
FCtR23
35,4X
NBV
\(34
.4X
iH,5X
BSQ
sLw-iH
LC+8
Lww
stoT
SET Fl
END CODE Fl
SET MY
BRING ON PRot;
COMMA
NO
NExt BRING ON PROG
LV+35.4X PROG
LV+it5X FaT
BRING stORE QUANTITY
END CODE Fot
SET LOC OF MV
STORE EXPRESSION ON
1=<::16
LC+8
LV+B
LC+l
LV-rl
Y52
t4X
iHt5X
SSQ
SLW-IH
SET MY
SET FaT
LV+l;4X FOt
LV+8t5X MY
BRING STORE QUANTITY
END CODE MY
LC~8
r1
SEt MY
+
PRESENT CHARACTER
5
STORE IN MP
LV+8
PTABL+l
l..V+IO
io,sX
NSV
LC+3 I
LV+3
B
PI"ABL
NEXT STORE
SET Fl
BRING ON Fl
END CODE
ON
MP
rApE
;..I
JAED
TMD
JR1380
jRl~8i
rDM
JRl~82
/'"
~
I
"'-.j
TMb
JMP
JMP
TMD
TDXLC
TDXRC
TMA
JR1383
JR1384
JRl~85
JR1386
JRl~87
JRl~88
JRl~89
JRl~90
JR1391
J~1392
JR1~93
JR1394
JRl~95
JR1396
JR1397
JR1398
JR1399
(-~)
JR1400
JR1401
JR1402
JR1403
JRi404
JR1405
JR1406
JR1407
JR1408
JR14b9
JR141C
JR14rl
JR1412
JR141:3
(')
j
JR1414
JR14l5
JR1416
JR1417
JRl-418
JR14l9
JR1420
JR1421
JR1422
JR1423
JR1424
JR1425
JR1426
JR1427
JR1428
JR1429
JR1430
JRi431
JR1432
JR1433
JR1434
JR1435
JR1436
JR1437
JR1438
JR1439
FreTt
Fe18
PTASL+5
Ti
LV+IO
S
NSV-2H
Y53
.4X
iH.5X
MY
SL.A
6
TMD
JAED
Yl13
FFeT2
STORE IN r-1p
NEXT STORE IN MP
NO
LV+8,4X MY
LV+IQ,5X MP
A/I/I ••• oO$
Jrv1p
SSE
BRING STORE EXPRESSION
TMD
TDM
TMD
JMP
JMP
TMD
TDM
iMD
JMP
JMP
TMD
TDXL.C
PTASL+6
11
)
S
STORE IN MP
NEXT STORE IN MP
ASTER I CK
PRESENT CHARACTER
J~1P
TMA
TMD
JAED
tMD
TOM
TMD
JMP
JMP
TMD
TDM
TMD
TDXRC
JMP
FerRic TMD
TDXLc
TDXRC
JMP
JMP
FC15
TMA
TMD
JAED
TMD
TDXbC
TDXRC
JMP
TMD
TDM
1MD
JMP
JMP
TMD
TDM
TMD
Lv+10
NSV-2H
PiABL+3
T1
LV+I0
S
NSV-2H
Y36
,4x
B$Q
EFFi
CNST+2
FeTRiC
PTABL+4
T1
LV+l0
S
NSV-2H
LC+17
LV+17
Y23
IH~4X
BSQ
Y54
,4X
IH,5X
BLOCK
FCTR11
E2
CNST+2
FCTR6
Y43
t4X
1H,5X
SSQ
PTASl..+4
T1
LV+7
STORE IN MP
NEXT STORE ON MP
LV+3,4X Fl
BRING STORE QUANTITY
1B47
$
PRESENT CHARACTER
STORE rN MP
NEXT STORE ON MP
SET EE1
LV+17.4X EEl
BRING STORE QUANTITY
MN,4X
OPENM,5X
iRANSFER DATA TABLE
1B47
bV+4,4X F2
L.V+T,5X G
BRING S-rORE QUANTITY
$
PRESENT CHARACTER
S
NSV-zH
STORE IN G
NEXT STORE ON G
L.c+18
LV+18
Y48
SET EE2
'f'
-.J
C)
JR1440
JR1441
JR1442
JR1443
JR1444
JR1445
JR1446
JR1447
JR1448
JR1449
JRt450
TDXLC
JMP
eM
eM
Fci6
JRi4:si
JR1452
JR1453
JRi454
JR14S5
JR14S6
JR1457
TMD
TDM
1Mb
JMP
TMD
JAED
JR1458
TMb
JR1459
JR14bO
JR1461
JR1462
rDxLt
TbxRc
JMP
TMD
TDM
JR1463
JR1464
JR1465
JR1466
TMD
J~1461
C)
JR1468
JRi469
JR1470
JR147i
JR1472
JR1473
JR1474
JRt475
JR1476
JR1471
JR1478
JR1479
JR1480
JR1481
JR1482
JRi483
JR1484
JR1485
JR1486
JRi487
JR1488
JR1489
JRi490
JR1491
JR1492
JR1493
0
JR1494
JR1495
JR1496
JR1497
JRI498
JR1499
JMP
TMD
TbxLc
TDXRC
JMP
TMb
TDM
TMD
TDM
FC18
FFCT2
SUBST
.4X
BSQ
F2
F2+1
FCTRi4
LV+18.4X EE2"
BRING STORE QUANT lTV
.4X
MN,4X
OPENM;5X
fRANSFER DATA TABLE
ys4
IH~5X
BLOCK
LC+9
LV+9
SET
LV+8
LC+i
SET MY
LC+8
LV+i
SEt FOT
B
BRING ON MY
END CODE
LV+8
PTABL
F"CTR11
Y55
~4X
iH,5X
BSQ
PTABL+9
Tl
LV+9
S
JMP
JMP
AIXO
JMP
JMP
7.4X
TMb
TOM
LlfHv
JMP
TMD
TDXRC
TDXLC
JMP
JMP
TMD
TDXLc
TDXRC
JMP
JMP
TMD
JMP
TMD
JMP
JMP
JMP
PAGE
TJM
TMD
rDM
TMD
TDM
TMD
TDM
TMD
TDM
~1N
NSV-2H
SSE
SLW-1H
LC+9
EDT
Y54
iH,4X
.5X
BLOCK
FC14
Y53
.4X
lH,5X
BSE
FCTEE
LC+8
B
LV+I0
NO
LV+l,4X FOT
LV+9,5X MN
BRING STORE QuANtITY
EQuATE sYMBOL.
PRESENT CHARAcTt:R
STORE IN MN
NEXT STORE ON MN
LV+8,4X MY
BRING STORE EXPRESSION
END CODE MN
SET LaC OF MN
PRINT EXPRESSION
OPENM~4X
MN,5X
TRANSFER DATA TABLE
LV+8,4X MY
LV+I0t5X MP
BRING STORE EXPRESSION
BRING
ON MY
5
STORE IN MP
NEXT STORE IN MP
SBSTX
L..C+l
t..V+i
L.C+2
LV+2
LC+3
LV+3
LC+31
SUBSTITUTE A INTO B
NSV-2H
FFCTl
L.V+~l
SET FOT
SET OPENM
SET Fl
SET SUBSTB
TMb
JR1500
JR150i
:,:J
0
0
TDM
Ttxz
JMP
JMP
JMP
JMP
JRlS02
JR1503
JR1504
JR1505
JR1506
JR1507
JR1508
JR1509
JR1510
JR1511
JR1512
JR1513
.JR1514
JR1515'
JR1516
JR1517
JR1518
JR1519
JR1520
JR1521 .
JR1522
JR1523
JR1524
JR1525
JR1526
JRi527
JR1528
JR1529
JR1530
JR1531
JRi532
JR1533
JRi534
JRi535
JR1536
JR1537
JR1538
JR1539
JR1540
JRi541
JR1542
JR1543
JR1544
JR1545
JR1546
JRl$47
JR1548
JR1549
JR1550
JR1551
JR1552
JR1553
. JR1554
JR1555
JR1556
JR1557
JR1558
JR1559
TMD
S85T4
SBSTX
SBST2
TOXLC
TOXRC
JMP
TMD
TDM
TMD
JMP
TMD
JAED
eM
eM
TIXZ
JMP
TMD
TDXRC
JMP
JMP
TMD
TDM
JMP
TMD
TDM
TMD
TDM
eM
eM
TMD
JMP
TMD
JAED
TMD
TDXLC
rDXRC
JMP
JMP
TMA
TMD
JAE:D
JMP
TMA
TMD
JAED
YEA
TMD
TDM
TMD
TDXLC
rDXRC
Jr~p
YE:B
JMP
TMb
TDM
iMD
LC+35
LV+35
35.4X
NBV
NeV-2H
SET PROG
NEXT BRING ON PROG
NBV-2H
NBV-2H
Y34
;4X
lH~5X
BSQ
LC+l
LV+l
I...V+35
B
PTABL
( P)
FOT
FOT+l
35,4X
NBV
Y34
IH,5X
SSQ
SLW-IH
LC+30
Lww
BRFT
LC+30
LV+30
LC+3
LV+3
F1
Fl+1
LV+2
B
PTABL
SBST3
Y35
.4X
IH,5X
BSQ
SLW-IH .
Fl
FaT
(P)+2H
YEA
Fl+l
F01+1
YEB
LC+3
LV+:3
Y36
LV+35,4X PROG
LV+l,5X FOT
BRING STORE QUANTITY
SET
For
BRING ON PROG
END CODE
EXIT SUBST
NO
NEXT BRING ON PROG
bV+l,5X FOT
BRING STORE QUANTITY
END CODE FOT
SET SUBsiA
BRING FROM JAPE
SET sUBsrA
SET Fl
BRING ON OPENM
END CODE
NO
OPENM
lV+3,5X Fl
BRING STORE QUANTITY
ENO CODE Fl
hV+2~4X
SET Fl
Fl
l:V+31.5X SUBSTB
BRING stORE QuANTITY
*4X
L.V+3,4X
T1
PRESENT CHARACTER
lH,5X'
8SQ
SBST2
PTABL+5
LV+31
t
0
0
0
JR1560
JR1561
JR1562
JR1563
JR1564
JR1565
JR1566
JR1567
JRi568
JR1569
JR1570
JR1571
JR1572
JR1573
JRi574
JR1575 58ST3
JRt576
JR1577
JR1578
JR1579
JRis80
JRis8i
JR1582
JR1583
JR1584
JR1585
JR1586
JR1587
JR1588
JR1589 LAlGY
JR1S90
JR1591
JR1592 LALl
JR1'593
JR1594
JR1595
JR1596
JR1597
JR1598
JR1599
JR16.o0
JR160i
JR1602 AL.3
JR1603
JR1604
JR1605
JR1606
JR1607
JR1608
JR1609
JRi610
JR1611 TEST
JR1612
JR1613
JR16r4
JR1615
JR1616
JR1617
JR1618
JR1619
JMP
Ttxz
JMP
TMD
T6M
TMD
TDXLc
TDXRC
JMP
TMD
TDM
TMb
JMP
JMP
JMP
Ttxz
JMP
1Mb
TDXLc
TbXRC
JMP
TMb
TDM
TMb
TDM
TMb
rbM
JMP
PAGE
TIJ
TJM
JMP
fIJ
TJM
rcoz
TMA
JMP
TMD
TDM
TMA
JMP
JMP .
JMP
TMD
TDM
JMP
TMD
TDM
JMP
JMP
JMP
TMD
TDXLC
Jt-1P
1Mb
JAED
TMD
JAED·
TMD
JAED
S
STORE IN SUBSTB
31~5X
NSV
NExt STORE ON SUBSTB
LC+30
LV+3O
Y37
,4X
IH,5X
BSE
PTABL+6
11
LV+31
S
NSV-2H
SBST2
SET sUBsrA
LV+30,4X SUBSTA
LV+31,5X SUBSTB
BRING StORE EXPRESSION
)
PREsENT CHARACtER
STORE IN SUBSTB
NEXT STORE ON SUBSTB
3i,sx
sLwV
END CObE SUBSTB
iH,SX
OPENM~5X
'(38
J4·X
SUBSTB,4X
BLOCK
TRANSFER DATA TABLE
LV+2
LC+30
SET OPENM
LC~2
LV+30
SET
LC+31
LV+31
SBST4
SET SUBSTB
SUBsTA
SEARCH
AL3
ALl+2H
LOCATE
AL3
ALGEBRAIC PROCESSOR SANFORD
SET UP tAPE SEARCH
Y99
PINT
LC+37
LV+37
USE+l
IN
Rwscr
(P \
PTABL.+1
DATA-2
WFD
PTABL+2
DATA-2
WFD
BSD
PAGE
Y59
USE NO'TlS .... USE LOC,T:39
t4X
Bl
PTABL+15
EQUATE
PTABL+16
INEQT
PTABL.+20
BUG
SET UP PROGRAM LOCATE
SET PROGB
USE 1 FOR SCRAtCH TAPE
TAPE INITIALIZATION
REWIND SCRATCH TAPE
S~ARCH OR lOCAtE
+
StORE 1ST BLK MARKER
WRITE 1 BLK FORWARD
STORE LAST BL.K MARKER
I TE 1 BLK FORWARD
BACKSPAcE 1 BlK
EJECT PAGE ON, PRINTER
tEST ON COMr-1AND ID
LV+37,4X
BRING IGNORE ON PROGB
E
~JR
r
B
C'
0
1Mb
JR16Z0
JAED
JR1621
TMb
JR1622
JAI:D
JR1623
TMb
JR1624
JAED
JRi625
TMD
JR1626
JAED
JR1627
TMD
JR1628
JAED
JR1629
TMD
JR1630
JAED
JR1631
TMD
JR1632 '
JAED
JR1633
JMP
JR1634
JR1635 EQUATE CM
TMD
JR1636
TDM
JRi637
TMD
JR1638 '
TDM
JR1639
Ttxz
JR1640
JMP
JR1641
J~1P
JR1642
JMP
JR1643
JMP
JR1644 '
TMD
JR1645
TDXRC
JR1646
JMP
JRi647
JMP
JR1648
JMP
JR16'49
TMD
JR1650
TDXLc
JR1651
JMP
JR1652
JMP
JR1653
JMP
JR1654
JMP
JR1655
JR1656 tNEQT TIJ
tJM
JR1657
JMP
JR1658
TIJ
JR1659
JR1660
TJM
TMb
JR166i
TDM
JR1662
TMD
JR1663
TDM
JR1664
TIXZ
J~1665
JMP
JR1666
JMP
JR1667
JMP
JR1668
JMP
JR16'69
JR1670
0
JR1671
JR1672
JR1673
JR1674
JR1675 ,
JR1676 rNE
JR1677
JR1678
JR1679
TMD
TDM
TMb
TDXLC
TDXRC
JMP
rMb
JMP
Ttxz
, JMP
PrABL+i2
SBST
PTABL+23
FCTR
PTABL+l1
OPN
PTABL+18
TRIG
PTABL+24
PUNCH
PTABL+1O
DONE
PTABL+17
FINI
BF11-4H
OPENM-l
LC+2
LV+2
LC+39
L.V+39
37,4X
NBV
NBV-2H
NBV-2H
NBV-2H
V61
IH.5X
8S1
SL,vJ-1H
NBV-2H
Y35
~5X
BSI
Sl:hf-1H
NBV-2H
OUTPUT
BRFT
SRNGX-IH
BRNG
BRFTD
BRNGX-IH
LC+35
LV+35
Lc+1
LV+l
s
F
0
T
P
D
l
SET OPENM
SET OPENM--2
LV+37,4X
NEXT BRING ON PROG8
LV+39,5X OPENM ..... 2
BRING STORE EXPRESSION
END CODE OPENM-2
NEXT BRING ON PROGB
LV+2,5X OPENM
BRING STORE EXPRESSION
END CODE OPENM
NEXT BRING ON PROGB
PRINT AND STORE
BRING FROM DATA TAPE
SET PROG
SET
FOT
35~4X
NSV
NBV-2H
NBV-2H
NBV-2H'
LC+7
LV+7
Y62
.4X
IH,5X
NEXT BRING ON PROG
SET G
LV+35.4XLV+7~5X
PROG
G
SSQ
BR1NG StORE QUANTITY
LV+35
B
BRING ON PROG
35~4X
NBV
NEXT BRING ON PROG
('i
/'
JRi680
JR1681
JRi682
JR1683
JR1684
JR1685
JR1686
JR1681
JR1688 '
JR1689
JR1690
JRi69i
JRi692
JR1693
JR1694 BUG
JRt695 SSST
JR1696
JR1697'
(j
JRi698 FCTR
JR1699
JR1700
JR1701 ,OPN
JRI102
JR1703
JR1704 TRIG
JR1705
JR1706
JR1707
JR1708
JR1709
JR1710
JRi711
JR1712
JR1713 '
JR1714
JR1715
JRi716
JR1711
JR17'18
JRi719
JR1120 TRGA
, JRi721
JR1722
TRGB
JR172~
JR1724 TRGC
JR1725 PUNCH
JR1726 DONE
JR1721
JR!728
JRli'29
r-~',
(J'
JR1730
JR1731
JR1732
JR1733
JR1734
JR1735
JRI736
JR1737
JR1738
JR1739
FINI
TMA
TMb
JAED
TMb
TDXRC
JMP
JMP
TMD
TDM
JMP
TMD
TDM
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
TMD
TDM
TIXZ
JMP
JMP
JMP
TMD
JMP
TMD
JAED
iMD
JAED
TMD
JAED
HbT
JMP
JMP
JMP
HLT
HLT
HL.T
TMD
TDM
JMP
JMP
TMb
JMP
TIXZ
JMP
TMA
TMD
JAED
JMP
JMP
TMD
T1
PTABL
TEST
END CODE
IH,5X
LV+1,5X FOT
Y34
BSQ
SLw-iH
LC+2
LW\o,J
STOT
LC+1
Lv+i
INE
TEST
BRNG
BRNG
SUBST
OUTPUT
BRNG
I=ACTOR
OUTPUT
BRNG
OPEN
OUTPUT
BRNG
LC+35
LV+35
35,4X
NBV
NBV-2H
NBV-2H
LV+35
8
PTABL+19
TRGA
BRING StORE QUANTITY
END CODE FOt
SET LOC OF OPENM
STORE ON TAPE
SET FOT
BRING FROM TAPE DESTROY tAG
BRING AND DESTROY TAG
SUBSTITUTE
PRINT AND STORE
BRING AND DESTROY
FACTOR
PRINT AND STORE
BRING AND DESTROY
OPEN
PRINT AND STORE
BRING AND DESTROY
SET PROG
NEXT BRING ONPROG
BRING ON·PROG
A
PTAB~+20
B
TRGB
PiABL+21
TRGC
C
OPEN
(P ),
OUTPUi
ERROR HALT
REMOVE PARENTHESES
TRIGA
PRINT AND STORE
LV+37
Lt~vJ
EDT
RWSCT
LV+37
B
37,4X
NBV
T1
PTABL
AL3+1H
DONE+4H
PAGE
FIN2
SET LOC OF PROGB+
PRINt
RE\tJ1ND SCRATCH TAPE
BRING ON PROGB
NEXT BRING ONPROGB
END CODE
PAGE EJECT
ON
PRINTER
()
JR174C
JR1741 FINl
JR1742 R
JR1743
JR1744
JR1745
JR1746
JR1747
JR174B
JR174'9 FIN2
JR17S0 FIN3
JR1751 FTN4
JR1752 BRNG
JR1153
JR1754
JRi755
JR1756
JR1757
JR1758
JR1759
JRi760
JR1761
JR1762
JR1163
JR1164
JR1765
JR1766
JR1767
JR1768
JR1769
JR1770
.JR1771
JR1772
.JR1773
JRi..774
JR1775,
JR1776~'
\)
....... ,
JR1777
JR1778
JR1779
JR1180
JR1781
JR1782
JR1783
JR1784
JR1785
JR1786
JR1787
JR1788
JR1789
JR1790
JR1791
JR1792
JR1793
JR1794
JR1795
JR1796
JR1797
JR-l798
JR1799
rbxLc
TrvtD
RPTNN
rDC
SCD
TMD
AIXJ
JMP
J~1P
,1x
.1X
8
42
FIN3
1.lX
FINISH
~~/620
P!FIN4,T15
C/HLTtFIN4+3-C/JMPtFINl$
1$
A/IFINISH OF ALGY RUN
BRING PROM SCRATCH
TJ~1
BRNGX
TMD
LC+35
SET PROG
TOM
LV+35
TMb
Y59
LV+37.4X PROGB
TDXLc
,4X
LV+35J5X PROG
TDXRC
IH,5X
BRING STORE EXPRESSION
JMP
SS!
NEXT BRING ON PROGB
JMP
NBV-2H
END CODE PROG
JMP
SLW-IH
TMD
LC+35
SET LOC OF PROG
TDM
L\vW
PRINT
JMP
EDT
eM
FOT+l
TMD
LC+l
SET FOT
TD~1
LV+l
TMD
LC+35
SET PROG
TD~~
LV+35
LV+35,4X
Trxz
35,4X
NExt BRtNG ON PROG
JMP
NBV
JMP
NBV-2H
JMP
N6V~2H
JMP
NSV-2H
TMD . "..-_
Y52
"--.
LV+l,5XFOT
TDXLc;5X
BRING STORE. QUANTITY
JMP
BSQ
END CODE FOT
JMP
SL\~-lH
TMD
FaT
TDM
OPENM-2
TMD
FOT+l
TDM
OPENM-l
TMD
LC+2
SET LOC·OF OPENM
TDM
L\!JW
BRING AND DESTROY TAG
JMP
SRFTD
BRNGX J~1P
OUTPUT TMD
TDM
TMD
TDM
TMD
TDM
TMD
TDM
TMD
Jlv1P
Tr-.tO
JAED
JMP
TMD
(P)
OPENM-2
FOT
OPENM-l
FOT+l
LC+2
EXIT
STORE AND PRINT RESULTS
LWVJ
SET LaC OF OPENM
LC+39
LV+39
SET OPENM-2
LvJ\~
B
PTABL
(P}+2H
Otl-1H
Y60
BRING ON
END coDE
.--
0/1 •••••
,,~'
. '\
Ll
o
JR1800
JR1801
JR1802
JR1803
JR1804
JR1805
JR1806
JR1807
JR1808
JR1809
JR181C
JR1811
JR1812
JR1813
JR1814
JR1815
JR1816
JR18-17
JR1818
JR1819
JR1820
JR18Z1
JR1822
JR1823
JR1824
JR1825
JR1826
JR1827
JR1828
JR1829
JR1830
JRt831
JR1832
~R1833'
o
JR1834
JR1835
JRl'836
JR-1837
JR1838
JR1839
JR1840
JR1841
JR184Z
JR1843
JR1844
JR1845
JR1846
JR1847
'jR1848
JR1849
JR1850
JRi851
JR1852
JR1853
JR1854
JR1855
JR1856
JR1857
JR1858
JR1859
TbM
JMP
01"1
Tfv1 D
, JMP
TMD
JAED
Trxz
JMP
JMP
TMD
rDM
B- '
PTABL
(P)+4H
T(Xl
J~1P
NBV
TMA
TMD
LV+39
L.C+2
OT3
PTABL+13
Tl
LV+39
S
TMD
JAED
TMD
rDM
TMD
-
STORE ON TAPE
BRING ON OPENM"2
END CODE
39~4X
NBV
OTl
PTABL+9
Tl
LV+39
S
39;4X
JMP
OT2
OPENM
STaT
' LV -¥ 3 9
NEXT BRING ON OPENM-Z
",
PRESENT._CHARACTER
EQUATE.SYMBOL
STORE IN OPENt-1 .... 2
NEXT BRING .ON OPENM~2
DOES (LV+39) EQUAL OPENM
r GNORE . _.
PRESENT CHARACTER
STORE IN OPEN~1-2
JMP
JMP
OT2
OPENM--Z
TMD
LC+39
OT3
SET LOC OF OPENM-2
TDM
6WW
PRINT
JMP
EDT·,
RETURN to TEST
JMP
TEST
PAGE --. ._
EDIT INPUT PROGRAM DESTROYING SEQUENCE NOS
~E
SEAX
SEARCH TJM
EXIT LOCATE PREMATURE
TIJ
LtX
TJM
LTZ
LOCATE INPUT PROGRAM
JMP
LOCATE
SET NORMAL EXIT IN LOCATE
TIJ
LTZ+IH
TJM
LTZ
USE ZERO
TMA
USE
LI5
JMP
. IN
INITIALIZE
PROGB~T15
TMD
Y64
TDXLC:
.7X
lON TH \IJORD
TMA
.1X
LT6
A/LAST
$
Tfv1D
Y65
JAED
LT7
8/1100.00 _.
TMA
Y66
24/0-z4/1
TMQ
V67
EISJ7X
TMD
Y68
AI XJ
JMP
TMA
JMP
JMP
JMP
JMP
LT7
TMA
JMP
JMP
JMP
SEAX
L;OCATE TJM
TMA
JMP
10 ~ 7X
BsseT
Y64
WTSCT
REP
LT5,
BsseT
Y64 .
Hisex·
LOCATE
(P)
LTX
USE
IN
C!HLT~PROGB+IZO-C/JMPtLT6
--
BACkSPACE INPUT TAPE
P!PROGBjT15
WRITE INPUT TAPE
READ FORWARD INPUT TAPE
BACKSPACE_INPUT TAPE
P/PROGS.T15
WRItE INPUT TAPE
LOCATE INPUT PROGRAM
EXIT
~.
JR1860
JR1861
JR1862
LTI
J~1863
o
o
JR-i864
JR1865
JRi866
JR1867
JR1868 LT2
JR1869
JR1870
JR1871 LTX
JR1872
JR1873
JR1874 LT3
JR1875 R
JR1876
JR1877
JR1878
JRi879
JR188b
JR1881
JR1882 LT4
JR1883 STOT
JR1884
JR1885
JR1886
JR1887
JR1a88
JR1889
JR1890
JR1891 L
JR1892
JR1893
JR1894
JR1895
JR1896
JR1897
JR1898
JR1899
JR1900
JR1901
JR1902
JR1903
JRl904
JR1905
JR1906
JR1907
JR1908
JR1909
JR1910
JR1911
JR1912
JR1913
JR1914
JR1915
JR1916
JR1917
JR1918
JR1919
STX
*
BRFT
,~.
JMP
R\~SCj
REW!ND iNPUT TA~E
READ B~K INPUT TAPE
TMA
TMD
Y69
A/
Jt~P
JAED
TMD
JAED
JMP
JMP
TMD
TDM
RFP
PROGB
LT2
Y65
B
A/LAsT
$
$
LTX+1H
LT1
LT2+iH
Y66
PROGB
JMP
(P)
TMD
TDXL.C
Y70
TMD
RPTNN
'fDC
8
,IX
,IX
8/110000
EXIT
P/LT4JT15
seD
TMD·
AIXJ
HLT
JMP
LT1-IH
I$
A/1PROGRAM NOT ON TAPE
STORE ON TAPE
TJM
STX
READ FORWARD DATA TAPE
JMP
RI'=D
IS IT L.AST BLOCK MARKER
TMA
DATA-2
TMD
PTABL+2
YES
JAED
tP)+2H
NO.READ ANOTHER BLK
JMP
STOT+IH
DATA-2
TMD
LC+36
TDXLC
J2X
RPTA
128
eM
,2X
TMD'
TDM
LC+l
L..V+l
LC+36
LV+36
LC+27
LV+27
BSD
X79
TMD
TOM
TMD
TDM
JMP
iMD
rDxLc
TDXRC
JMP
JMP
1Mb·
TDXLC
TDXRC
JMP
J~4P
DATA-2
DATA
BACkSpAcE DATA TAPE
SLvJ-IH
FOT
DATA-2 -__
BRING STORE EXPRESSION
END CODE DATA-2
t4X
L~J\VtT15
1H,5X
LV+27,t39 DATA
BRING STORE EXPRESSION
END CODE DATA
vJRItE DATA TAPE
LAST BLOCK MARKER
;4X
1.1:1,5X
BSE·
yeo
'aSE
SLvJ-1H
JMP
t~FD
T~1D
PTAB L.+2
DATA-2
tDM
FOT
LV+l,4X
LV+36,5X
WRITE FORWAR~ DATA-TAPE
BACKSPACE DATA TAPE
EXIT,
JMP
.SEARCH DA IA. FOR NAME EQUAL TO CONTENTS OF FOT.+1
BRING ~ROMDATA TAPE
r Jtvt
BRF TX
BbK COUNTER
CM
SCNT
DO NOT DESTROY NAME
TIJ
BF9
JtvlP
. WFD
JMP
BSD
(P)
0
C)
0
JR1920
JR1921
JR1922
JR1923
JR1924
JRI925
JRI926
JR1927
JR1928
JR1929
JR1930
JRI931
JR1932
JR1933
JR1934
JR1935
JR1936
JR1937
JR1938
JR1939
JR1940
JR1941
JR-1942
JR1943
JR1944
JRl945
JR1946
JR1947
JR1948
JRl949
JR19;;C
JR1951
JRI952
JR1953
JR1954
JRl955
JR1956
JR1957
JR1958
JR1959
JR1960
JR1961
JR1962
JRI963
JR1964
JR1965
JRI966
JRl967
JR1968
JR1969
JR1970
JR1971
JR1972
JR1973
JR1974
JR1975
JR1976
JR1977
JR1978
JR1979
rJM
JMP
BRFTD
BFI
BF2
BF3
BF4
TJM
cr;1·
TIJ
TJM
TMD
TDM
INCAL
JMP
TMA
TMD
JAED
TMA
TMD
JAED
JMP
1MA
TMD
JAED
JMP
TMD·
TDXLC
JMP
CD
sixOL
BF5
BF6
BF7
BF8
JNO
JMP
TMA
TMD
JAED
TMD
JAED
JMP
TMA
TMD
JAED
JMP
JMP
JMP
JMP
eM
eM
BF9
SRFTX
BF10
R
JMP
TMD···,,·_.:
TDXLC
TDXRC
JMP
JMP
JMP
TMD·
TDXLC
TMD
RPTNN
TDe
seD
TMD
A1XJ
JMP
NOP
BF8
BFl
BRFTX
BCNT
BF8+IH
BF8
[..C+27
LV+27
BCNT
RFD
DATA-2
PTABL+2 '
BF4
FO.T-.
DATA-2
BF3
BF2
FOT+l
DATA-l
BF8
BF2
BeNT
".lX
BRING DESTROY TAG
BLK COUNTER
DATA-2
READ I BlK FROM DATA TAPE
NAME
IS LAST BLK MARKER.YES TO.BF4
DESIRED NAME
NAME
YES TO BF3
NO ro BF2
20ND PART OF NAME
.•.
SAME NAMES TO BFa
NO RETURN BF2
OF BlKS PROCESSED
BASK SPACE 1 BLOCK
NOo
B$D
t,1X
(p.)
-3H
RRD.
DATA+125
PTABL+l
BRETX+'lH
FOT
BF6
BP5
DAfA+124
FOr+l
BF7
BF5
RFD
(Pj
BSD
DAtA~2
DATA-i
WFD
Y72
t4X
READ IN REVERSE DATA TAPE
NAME
PLUS
NOT ON TAPE ERROR EXIT
DESIRED NAME
EQUAL TO~BF6
UNEQUAL to BF5
20ND PART OF NAME
20ND PARt OF DESIRED NAt4E
EQUAL TO BF7
UNEQUAL TO BF5
READ FORWARD DATA TAPE
S\~I TCH 10 DESTROY OR NOT
BACKSPACE DATA TAPE
CLEAR THE NAME
...
"
WRITE FORWARD DATA TAPE
LV+27t4X DATA
IH~5X
LvJvh5X
BSE
SLW-1H
(P)
Y73
,IX
, IX
a
BRING STORE EXPRESSION
END CODE
EXIT
P ISFII,T 15
42
Y74
1,lX
PAGE
G/HLTtBFI1+3-C/JMP~SFIO
TRAP LOCATION
,
0
.
FINISH
JMP
JR1980
FLEXO
JMP
JRt981
AlIEXPRESSION NOT ON TAPEI$
JRi982 BF11
D/O
JR1983 SeNT
PAGE
JR1984
EDIt AND PRINT OUTPUT
TJM
EDTX
JRi985 EDT
LC+~4
TMD
JR1986
SET BUFF
LV+34
TDM
JR1987
TDXLc
~2X
JR1988
8/110000
Y66
TMD'
JR1989
15
RPTA
JR1990 L
1,2X
TDM
JR1991
L.WW
TtvlD
EDfD
JR1992
BRING ON LvH~
JMP
B
JR1993
'Y72
TMD
JR1994
IHj,4X
TDXRC
JR1995
NEXT BRING ON LWW
NBV
.... 2H
JMP
JR1996
TMA
Tl
JR1997
END CODE
PTABL
TMD
JR1998
,JAED
EDTC
JR1999
C/HLTLtPTABL
Y75
TMD
JR2000
TDXLc
.2X
JR2001
,TMA
Tl
JR2002
IS IT A SPECIAL CHARACTER
RPTAN
10
JR2003 R
1.2X
TMD
!iR2004
JAED
EDTB
JR2005
LV+34
TMD
JR2006
STORE IN BUFF
5
.Jf'.1P
JR2007
34,5X
Ttxz
JR2008
-NEXT STORE IN BUFF
JMP
NSV
JR2009
EDTD
JMP
JR2010
eM
LwX·
JR2011 EDTB
TIJ
TAB-PTABL-1.ZX
JR2012
TJ~1
LWX
JR2013
Y76
TMD·
JR2014
LWX.4X 5S
TbxLc
t4X
JR2015
LV+34.SX BUFF
TDXRC
IH~5X
JR2016
BRING stORE EXPRESSION
BSE
'JR2011
JMP
JMP
EDTD
JR2018
LV+34
TMD
JR2019 EDTC
STORE IN BUFF
S
JMP
JR2020
' JMP
PRINT
JR2021
(P)
EXli EDIT
- JR2022 ED TiC, JMP
(P)+3H
JR2023 PRINT TJM
Y77
TMA
JR2024
JMP
PANT
JR2025
<
A
S
EXIT
,4X
B
PTABL+i4
BIX+IH
PTABL+i3
BIX+1H .
(P)
NBW+2H
SI-I-iH
BSIX
Bt .
PTABL
BSIX
PTABL+9
(Pl
NBW+2H
.5X
S
NS\~+2H
SSI+1H
Y81
1Ht7X
.7X
8
42
ViOO
AixJ
1.7X
M/620
JMP
AIIDUMP AND FINISH HAVE BEEN TAKEN$
I$
AJICONriNUE WITH NEXT PROGRAM
pAGE
39$
AFEND
NAME
SCT
WRITE,READ,SPACE,BACKSPAGE.REWIND,AND READREVERSE
J. SANFORD
WRITE ON MAG TAPE
TJM
wtx
CD·
,....
'\
I
",--/'
0
0
JR2580
JR2581
JR2582
JR2583
JR2584
JR2585
JR2586
JR2587
JR2588
JR2589
JR2590
JR2591
JR2592
JR2593
JR2594
JR2595
JR2596
JR2597
JR2598
JR2599
JR2600
JR260r
JR2602
JR2603
JR2604
JR260S
JR26C6
JR2607
JR2608
JR2609
JR2610
JR2611
JR2612
JR2613
JR2614
JR2615
JR26i6
JR261-7
JR2618
JR2619
JR2620
JR2621
'JR2622
JR2623
JR2624'
JR2625
JR2626
JR2627
JR2628
JR2629
JR2630
. JR2631
JR2632
JR2.633
JR2634
JR2635
JR2636
JR2637
JR2638
JR2639
TXDLc
TXDRC
1DM
TAD
TDXLC
TMQ
CA
WT3
WTl
R
WT4
WT5
vJTX
WT2
R
EIS
JMP
J~1P
TMD
TDXLC
RPTAA
TMD
TDM
TMA
Tio
JMP
JMP
TIJ
TJM
TMD
rDXLC
TDXRC
JMP
TMD
rDxLc
RPTAA
TMD
TDM
TMA
TIO
JMP
JMP
TIJ
TJM
CRDscr
JMP
TJM
CD
TXDLC
rXDRC
TDM
TAD
TDXLC
TMQ
TMA
EIS
RD3
CRDl
R
JMP
JMP
TMA
TIO
JMP
JMP
TMD
TDXLc
RPTAA
TMD
rDM
TIJ
TJM
.5X
1H,7X
XSAVE
STORE XREGS
,7X
LOCATION OF DATA
PL1
13/1-1/0-34/1
Kl
SKP
WTl
PL2
f5X
128
1;7X
IS UNIT AVAILABLE
ALTERNAtE BUFFERS
MeB.T15
MOVE 128 WORDS UPSTAIRS
1~5X
WT
MCB·
(P)-lH
SKP
\vT2
WT3
XSAVE
,5X
IHt7X
(P)
PL.3
t5X
i28
WRITE 1 BLOCK
FROM MeB
PAUSE FOR TAPE ACTION
SI:T UP FOR NEXT BUFFER
RESTORE XREGS
EXIT
MC8+128tT15
MOVE UPSTAIRS
1~7X
1~5X
\~T
MCB+128
(P)-lH
SKP
VJR I TE 1 BLOCK
FROM 20ND BUFFER
viTI
PAUSE FOR TAPE ACTION
SET UP FOR 1ST BUFFER
WT3
WTS
RDX
EXIT
READ FROM MAG TAPE
.SX
SAVE XREGS
1H~7X
XSAVE
L.OCATION TO READ INTO
t7X
PLl
PL6
D/1B13
SKP
RDl
(P)
MeB
UNIT AVAILABLE
AlTERNATE, BUFFERS
READ FORWARDt BACKVJARD
INTO MeB
Kl
13/-1/0-3411
(P)-lH
SKP
PL2
PAUSE FOR TAPE AGTION
MCB.T1S
128
1,SX
1,7X
RD2
RD3
MOVE 128 WORDS DO\\fNST AI RS
.sx
SET UP FOR ALTERNATE BUFFER
,r
'\\
'---/
(j
'--
C)
JR2640
JR2641
JR2642
JR2643
JR2644
JR2645
JR2646
JR2647
JR2648
JR2649
JR2650
JR26Si
JR2652
JR2653
JR2654
JR2655
JR2656
JR2657
JR2658
JR2659
JR2660
JR266i
JR2662
JR2663
JR2664
JR2665
JR2666
JR2667
JR2668
JR2669
JR26-rO
JR2671
JR2672
JR2673
JR2674
JR2575
JR2676
JR2677
JR2678
JR2679
JR2680
JR2681
JR2682
JR2683'
JR2684
JR2685
JR2686
JR2687
JR2688'
JR2689
JR2690
JR2691
JR2692
JR2693
JR2694
JR2695
JR2696
JR2697
JR2698
JR2699
RD4
RDX
CRD2
R
TMD
TDXLc
TDXRC
JMP
TMA
TIO
JMP
JMP
TOXLC
RPTAA
1Mb
128
i95X
TIJ
1,7X
RDl
Rb3
Rb4
JMP
spACE
TJM
TMA
rIO
JMP
CSPSCi
SPX
CBSSCT
BS 1
Tto
JMP,
JMP
JMP
SPACE
TJM
TMQ
TMA
EIS
TMA
MOVE 128 WORD DOWNSTAIRS
SET UP FOR 1ST BUFFER
EXIT
RW
(P)-iH
(P)
EIS
PAUSE FOR TAPE ACTION
MCB+128,T15
RvJX
:3
TMA
EXIT
READ FORvJARO, BACKvJARD
20ND BUFFER
:3
spAcf:
TJM
TMA
SP1
~5X
J~1P
TMQ
RESTORE )(REGS
lH,7X
tt~D
rJM
RWX
j5X
( P~
(P)
MCB+i28
(P)-1H
SKP
PL3
rDM
CR\A/SCT
XSAVE
SPX
PL1
PL6
kl
SP
SPACE i BLK
(P)-lH
SKP
( P;
3
BSX
PL.1
PL6
D/IB13
Kl
ssP,
13/1'-'1/0-34/1
0)1B13
FR\~D
13/1"'1/0-34/1
BACKSPACE 1 BLK
TIO
*
BSX
XSAVE
BIN
CP)-lH
JMP
JMP
SKP
( P)
JMP
DID
LOAD A REG \\lI1H PL NO. AND Jf'.1P TO IN
TJM
INX
eM
TMQ
ETS
TMQ
JAGQ
iMQ
EIS
EIS
L
PL8
L·
pL9
INX+1H
pLa
RD
RDR
EIS
\'1T
EIS
EIS
SP
BSP
RW
EC
TMA
L
EIS
EIS
SLA
19
20/1-4/0-24/1
0/10B23
fAP~
Not ASSIGNED
20/1-4/6-24/1
READ i BlK FORWARD
READ 1 BLK IN REVERSE
WRITE i BLK FORWARD
SPACE i BL.K f=ORWARD
BACKSPACE 1 BLK
REvJIND
ERASE 1 BLOCK
=)
C)
C)
JR2700
JR270i
JR2702
JR2703
JR2704
JR2705 tNX
JR2706
JR2107
JR2708 1NY
JR2709 R
JR2710
JR2711
JR2712
JR2713
JR2714
JR2715
JR2716 C1
JR2717 'RSKP
JR2118 Kl
JR2719
JR2120 K2
JR2721
JR2722 K3
JR2723
JR2724 K4
JR2725
JR2126 kX
JR2727 FAULT
JR2728
JR2129
JR2730 K5
JR2131 LK6
JR2732
JR2133
JR2734
JR2735
JR2736
JR2737
JR2738
JR2739
JR2740 K7
JR2141
JR2142
JR2743
JR2744
JR2745 . K8
JR2746
JR2147
JR2748
JR2749 K9
JR2750
JR2751 LKIO
JR2752
JR2753
JR2754
JR2755
iMC>
EIS
EIS
EIS
f::!S
pLiO
K1
K2
K3
K4
(P)
PL11
91X
EXIT
JMP
P/Cl,T15
TMD
TDXLC
TMD
~ IX
8
RPTNN
TDC
42
seD
Cl+3,INY
Pl12
TMD
1,IX
AIXJ
0
HLT
(P)-lH
JMP
A/rUSE NO. NOT ASSIGNED 1$
TJM
KX
SKC
K3
JMP
1,0
SKF
JMP
FAULT
0,0
SKC
JMP
K1
ltD
SKF
JMP
Kl
(P)
JMP
TMA
K2
TMQ
24/1T47
EIS
k6
INCA
K6
1,0
SKF
JMP
K5
TDA
P/K109T15
TMD
KI1
TDM
ES
·eM
TMQ
6/1-10/0-32/1
EIS
ES
5
SLA
JAZ
K9
SL.A
1
K8
JAN
INCAL
Kl1
, K7
JMP
K11
TMD
TDXLC
.7X
t7X
TMD
JMP
FLEX
P/BIO,T15-P/3tT39$
TMD
JMP
FLEX
P/B1tT15-P/3,T39
P/B2.T15-P/4tT39
P/B3!>T15-P/4tT~9
P/B4.T15-P/2.T39
P/BS.T15-P/3.T39
JR2756
P/B6~T15-P/ltTg9
JR2757
JR2758
P/B8tT15~P/3fT39
JR2759
1/1-4/0-43/1
P/B7.T15-P/1.T39
P/B9tTI5-P/2tT39
JR276C K1i
JR2761 ES
JR2162 91
JR2763 B2
JR2764 83
JR2765 84
JR2766 85
JR2767 86
JR2768 87
JR2769 88
JR2770 89
JR277i 810
JR2772 FLEX
JR2773
JR2174 FLx
JR2775 R
JR2776
JR2777
JR2778
JR2179
JR2"780
JR2782
JR2783 BRD
JR2784 BRDR
JR2785 Wi
JR278'6 RW
JR2787 SP
JR2788 SSP
JR2789 EC
JR2790 pLl
JR2791 PLz
JR2792 pL3
seD
CD
sixoL
JNO
1$
1$
42
i.6X
FLx
JMP
M)620
0/661 i47
0/761T47
0/433T47
0/212T47
0/40000000261147
0/40000000361T47
0/316T47
13/1-1/0-34/1
READ 1 BlK FRWD MODE 3
READ 1 BlK REVERSE
t-JR IrE i BhK FRWD
REWIND
SPACE 1 BlK FRWD
BACKSPAcE 1 BLK
ERASE 1 BLK
P/MCS,TI5
P/MCB+i28.fi5
A/IWE T$
JR2793 IJL4
JR2794 . PL5
'JR2795 PL6
JR2796 PL7
JR2?97· . PL8
JR2798, pL9
D/IB13
AlIRE T$
JR2799
PLIO
1/1-4/0-43/1
JR2800
JR2801
JR2802
PLll
JR2803
PL14
PiCl,T15
C/HLT.Cl+3-C/JMP,INY
15)1
A/ISE T$
SET
(P)+1
SET
CPl+256
PAGE
PANT$
NAME
RESX$
rJM
$
TAD
STARTING -ADDRESS
lHt3X$
TDXC
NUMBER OF WORDS
.1X$
TDXC
PL12
pLi3
JR2804 ' L
JR2805 MeB
JR2806
o
D/O
A/ITRANSPORT DISABLED
1$
A/IMIS$ING BEGINNING BLoCK MARK
A/!MISSING ENDING BLOCk MARK
A/I$PROCKET
1$
All IMPROPER BLOCK MARK
1$
A/IPARITYi$
A/ICRAZY 1$
1$
A)rBEGINNI~G OF tAPE
AIIEND OF TAPE
1$
A/tPREMATURE ERROR EXIT 1$
TbxLc
; 1X
TDXRC
IHJ6X
TMD
; 7X
RPTNN
8
TDC
NOP
JR2781
o
0)6
JR2807
JR2808 BPANT
JR28C9
JR2810
JR2811
JR281Z
JR28i3 PAND
JR2814
JR2815
JR2816
JR2817
JR28t8
JR2819
RESX
16/1
20/1-4/0-24/1
b/l0B23
·rcxs
TMA
JtvlP
CD
slxo
t3X$
t3X$
stUF$
$
ltlX$
JNC
JMP
pAND$
JMP
tp)$
EOl$
TEST FOR DONE
NOT DONE
WRITE END OF lINE
EXIT
JR2820
JR2821
JR2822
JR2823
JR2824
JR2825
JR2826
JR2827
JR2828
JR2829
JR2830
JR2831
JR2832
JR2833
JR2834
JR2835
JR2836
JR2837
JR2838
JR2839
JR2840
JR2841
JR2842
JR2843
JR2844
o
JR2845
JR2846
JR2847
JR2848
JR2849
JR2850
JR2851
JR2852
JR2853
JR2854
JR2855
JR2856
JR2857
JR2858
JR2859
JR2860
JR28.61
JR2862
JR286'3
JR2864
JR2865
JR2866
JR2867
JR2868
*SUBROUTINE TO WRITE END OF LINE
LEOl
TJM
EOX$
~oA
TMA
EOl$
END OF LINE CONSTANT
EOB
JMP
STUF$
SWITCH TO WRITE BUFFER
EOX
JMP
(p)$
EOl
0/3232323232770200$
*SUBROUTINE TO WRITE ONE WORD
STUX$
LSTUF
TJM
BUFF+l$
STORE WORD IN BUFFER
STuA
TAM
STUl$
TMA
STuA$
INCA
STUX$
JAGD
OUTS
SET SWITCH TO WRITE BUFF
T t"J
EOB$
WHEN LINE IS DONE
TJM
tP;$
STUX
JMP
STUX$
LSTUl
TJM
BUFF+lv1/156$
TAM
~~SUBROUT INE TO WRITE BUFFER AND REsET SWITCHES AND
OUX$
LOUT
TJM
WRIT1$
oUA
TMD
BUFF$
WRIT~ BUFFER
Tto
NOGO$
TT OR AU NOT AVAILABLE
Jr4P
0$
LSK
SKC
SKF$
JMP
OUB$
SUCCESS
JMP
1.0$
RS1(F·
SKF
M/3777,0$
LSKEC
SKG
SK$
JMP
M/177,O$ FAULT
LSKF'A
SKF
HELP$
RECOVERY IMPOSSISLE- 51
JMP
FAUL1$
TMA
FLEX $
TYPE )FAULT T)
JMP
TMQ
UN!Tl$
DP$
TYPE UNIT NUMBER
JMP
ERAS2$
TMA
FLEX$
TYPE }ERASE)
JMP
ERAS1$
TMD
$
ERASE BAD BLOCK
TID
(P)-lH$
JMP
RELl$
TMD
RELEASE UNIT
TIO
$
(P)-lH$
Jf'.1P
OUA$
TRY AGAIN
JMP
REl3$
NO GO
TMA
TYPE 1RELE)
FLEX$
Jtv1P
16,2X$
SET UP LOOP
TIXZ
REL2$
TMA
,I
TMQ
NOGA
JR2869
JR2870
JR2871
C)
JR2872
JR2873
JR2874
JR2875
FLEX
JR2876 R
JR2877 LOUe
JR2878
JR2879
FLX
1B23$
T1$
AQS
TIO
NOP
SIXO
JNO
JMP
TJM
NOGA$
OUA$
FLX$
TAD
$
RPTNN
TDe
SCD
JMP
8$
$
$
RELEASE ALL UNITS
1.2X$
BUFF'+l$
42$
(P)$
END lOOP
TRY AGAIN
SUBROUTINE TO TYPE ONE W
JR2880
JR288.1
JR2882
JR2883
JR2884
DP
JR~885
o
o
JR2886
JR2881
JR2888 DPA
JR2889
JR2890 DPX
JR2891 HELP
JR2892
JR2893
JR2894
JR2895 WRITl
JR2896 ERASl
JR2897 RELI
JR2898 UNITi
JR2899 RI:L2
JR2900 T1
JR2901 TENI
JR2962 1823
JR2903 FAULl
JR2904 ERAS2
JR2905 REL3
JR2906 HELpl
JR2907 Loue
JR290a
JR2909
JR2916·
JR2911.
JR2912 R
JR2913
JR2914
JR2915
JR2916
JR2911 L
JR2918
JR2919
JR2920 oux
JR2921 OU2
JR2922 CU3
JR2923 pAl
JR2924 cptNT
JR2925
JR2926
JR2921
JR2928
JR2929
JR2930
JR293i
JR2932
JR2933
JR2934
JR2935
JR2936
JR2937
JR2938
JR2939
TJM
CA
DAQ
rob
SRAQ
TDA
JAZ
TDC
TOD
TDC
DPX$
TENi$
$
6$
$
DPA$
Jt~P
$
$
$
(P) $
TMA
JMP
HELP1$
FLEX$
HLT
CONVERT AND TYPE DECIMAL
$
M/7777$
JMP
OUA$
c/HLr.O-CITOAtl$
C/HbT~O-c/FCAQA$
C/HLTtO-c/FAOA$
$
C/HLT,O-C/FAQA$
$
iGNORE LEADING ZERO
TYPE )HELP)
HALT FOR MANUAL ACTION
TRY AGAIN
VJR I TE ORDER- SET
ERASE ORDER- SET
RELEASE ORDER- SET
UNIT NUMBER- SET
RELEASE ORDER
TEM~ORARY STORAGE
D/lO$
D/lB23$
0/3226216443636063$
0/6025512162256032$
0/3235512543253532$
0/3235302543472532$
TIJ
TJM
TIJ
iJM
TMD
TDM
TMA
TMD
TDXC:
TMD
RPTNN
TDM
TAM
JMP
STUF$
EOB$
BUFF+i$
STuA$
DSi$
BUFF$
OU2$
oUC$
RESEt SWITCHES, SET UP B
RESET
RESET
DATA SELECT
END OF LINE
2X$
OU3$
t
M/176$
,2X$
STORE IGNORE
BUFF+M/177$
STORE END OF LINE
(P) $
0/3232323232322277$
0/3232323232323232$
O}3232323232770700~
TJM
TAD
TDXC
ADX
TMA
RESX$
TMQ
EIS
MI$
shA
Ers
EIS
SRA
SRQN
EI S
$
iH,2X$
USE TAPE NUMBER
.2X$
,2X$
PL UNIT
i9$
SET UP SKIPS
SK$
SKEes
SKFA$
19$
19$
\~RI
Tl$
EIS
. ERASl$
EIS
SRA
RELl$
5$
SET UP 10 ORDERS
o
SRQN
5$
JR2940SET UP SKF
EIS
SKF$
JR294i
SRA
19$
JR2942
SRQN
19$
JR2943
SET UP UNIT
EiS
UNITI$
JR2944
TIJ
RESX$
JR2945
TJM
OUX$
JR2946
JMP
OUB$
RESET AND EXIT
JR2941
JR2948 *SUBROUTINE TO CHANGE DATA SELECT CHARACTER
TDM
MO$
JR2949 LeDS
TJM
RESX$
JR2950
TMQ
M2$
JR2951
EXTRACT NEW DATA SELECT
ETA
MD$
JR2952
EXTRACT OLD DAtA SELECT
ETO
051$
JR2953
ExtT IF NO CHANGE
JAED
RESX$
JR2954
ES
D51$
JR2955
NEW DATA SELECT
AMS
D5I$
JR2956
TDQ
$
JR2951
TMA
BUFF'+l$
JR2958
TMD
OU3$
JR2959
BUFFER EMPTY
JAED
CDA$
JR2960
BUFFER NOT EMPTY. FINISH
JMP
ours
JR2961
NEW
DATA SELECT TO BUFFE
TQM
BUFF$
JR2962 CDA
Jtv1P
RESX$
JR2963
0)0200323232322232$
JR2964 DSl
0/0252323232323232$
JR2965 bS2
0/4I77777t77777777$
JR2966 Ml
0/17i11$
JR2967 M2
SET
(P)+M/200$ 128 WORD OUTPUT BUFFER
BUFF
JR2968
$
JR2969 MD
RESX$
TJM
JR2970 CSPCE
EOL$
JMP
JR2971
RE$X$
JMP
JR2972·
RESX$
TJM
JR2973 CPAGE
PAlS
TMA
JR2974
STUF$
JMP
JR2975
SPCE+IH$
JMP
JR2976
RESX$
JR2977 CFINISH TJM
DS2$
TMO
JR2978
BUFF$
TOM
JR2979
OUTS
JMP
JR29aO
RESX$
JMP
JR2981
PAGE
JR2982
NAME
JRS
JR2983
P/LW+IO,T15-P/LV+22~T39$
JR2984 Yi
P/LV+2.TI5-P/LV+23.T39
JR2985 Y2
P/MU~TC~T15-P/OPENM.T39$
JR2986 Y3
P/MULTC,T15-P/MULTB;T39$
JR2987 Y4
P/MULTC.T15-P/MULTA.T39$
JR2988 , Y5
PfLV+24,T15-P/LW+8tT39
JR2989 Y6
JR2990
o
JR2991
JR2992
JR2993
JR2994
JR2995
JR2996
JR2997
JR2998
JR2999
Y7
PJMN,T15-P/OPtNM,T39
YB
P/OPENM-19T15-P/42tT39
Y9
P/LV+24,T15-P/LV+9,T39
-ViO'
P/LW+ll'T15~P/LV+9.T39
YII
P/LV+22,T15-P/LV+12.r39$
Y12
Yi3
,Yi4
Yi5
V16
P/SORTO~TI5~p/SORrt.T39$
P/LV+23~ti5-P/Lv+12,r39$
P/Lc+i3,T15-P/LV+13,T39$
PJLV+12~t15~P)LV+19.139$
P/LV+l~_TI5-P)LV+15,'T39$
JR3000
JR3001
Yl7
JR3002
Y19
Y20
JR~003
YI8
JR3004 'Y21
JR3005 Y22
JR3006 Y23
JR3007 Y24
JR3008 Y25
JR3009 Y26
JR3010 Y27
JR30t1 Y28
JR3012 Y~9
JR3613 Y30
JR3014Y3i
JR3015 Y32
JR3016 Y33
JR3017 Y34
JR30i8 V35
JR36i9
Y36
JR3020 . V37
JR3021 Y38
JR3022 'Y39
JR3023
JR3024'
JR3025
o
JR3026
JR3027
JR3028
J~3029
Y40
Y41
Y42
Y43
Y44
JR3036
C/TMA~RTW+l~C/AM,EE2
P/LV*la,t15-p)LV+13,T39$
p)LV+16~T15-P/LV+13~T39$
P/SOR'A,T15-P/SORTO.T39$
P/Lv+12_T15-P)LV+15tT39$
P/Lv+24~Ti5-P/Lv+16,T39$
P/LV+24,T15-P/LV+14.T39$
P/N1,T15-P/N2,T39
P/LV+28~T15-P/LW+19T39
pjlV+35~Ti5-P/LV+l.T39
p/Lv~2,Ti5-P/LV+3tT39
P)LV+3_T15-P)Lv+31.T39
P/LV+30.1i5-P/Lv+31,T39$
P/SUBSTB.T15-P/OPENM,T39$
P/LV+35~TI5-P/LV+3tT39
P/E1fT15-P/EEl,139
P/MP,T15-P/OPENM,T39
p/LV+2.T15-P/LV+4~T39
PJLV+4,T15-P/LV+7tT39
P leNsT t"f 15 '
Y46
P/E2tT15-P/EE2,T39
C/CSM,RTW+1-C/AM.EE2
P/LV+18tT15-P/LV+7.r39
Y49
P/LV+2,T15-~/LV+7fT39
Y50
P/Lw+3.T15-P/LV+7.T39
Y51
Y52
P)LV+ltt15-P/Lv+a.r39
P/OP~NM'TI5-pJMY,T39
JR3038
V53
V54
Y55
JR3039
Y56
JR3040
Y57
PITi,Ti5
DID
Y58
D/O
JR3037
JR~04i
JR3042
Y59
P/lV+8,Ti5-P/Lv+10tT39
PJMN,T15-P/OPENM,T39
P/Lv~lfT15-PjLv+9~T39
P/LV+37.T15~P/LV435.T39$
JR3043 Y60
JR3044 . Y6i
010061013333333333
JR3045
JR3046
Y62
Y63
Y64
Y65
piLv+3S;T15-P)LV+7,T39
JR3049
'166
JR3050
JR30s1
JR3052
JR3053
JR3054
JR3055
JR3056
'(67
8/110000
24/0-24/1
JR3047
JR~048
o
P/LV+12,T15-P/LV+17~T39$
P/LV+14,T15-P)LV+18tT39$
P/LV+2~T15-P/LV+6,T39
Y47
JR3031Y48
JR3035
P/LV+12~t15~P)LV+13,T39$'
P)SORTA,T15-P/SOR1S,T39$
Y45
JR3030
JR3032
JR3033
JR3034
P)LV+14,T15-P/LV+20,139$
PJLV+20.T15-P)LV+13,T39$
P/LV+14,T15-P/LV+13tT39$
p)Lv+i9,T15-P)Lv+13.r39$
JR3057
JR30S8
JR3059
Y68
Y69
Y70
Y7i
Y72
Y73
Y74
Y75
Y76
P/LV+37;T15~P/LV+39~T39$
P/LV+329T15~P/LV+18.T39$
P/PROGB,TJ.5
A/LAST
$
C/HLT,PROGB+120-CJJMP,LT6$
AI
B
P/LT4,T15
$
CIHLT,LT4+3-C/JMPtLT3
PILv+27tT15-P/LWW.T39
P/BFll,T15
C/HLT,BF11+3-G/JMP.BFIO$
C/HLT,PTABL-C/TJML,BUFF+16$
P/Lwx.T15~P/LV+~4.T39
.J
\,0-
Cl
0
..
JR3b60
JR3061
JR3062
JR3063
JR3064
JR3065
JR3066
JR3067
JR3068
JR3069
JR3070
JR3071
JR3072
JR3073
JR3074
JR3075
JR3076
JR3077
JR3078
JR3079
JR3080
JR3081
JR3082
JR30S3
JR3084
JR3085
JR3086
JR30a7
JR3088
JR3089
JR3090'
JR309i
JR3092
JR3093
JR3094
JR3095
JR3096
JR3097
JR3098
JR3099
JR3100
V77
Y18Y79
Y80
Yal
Y82
Y83
Y84
Yas
Y86
Y87
Y88
Y89
Y90
Y91
Y92
Y93
Y94
Y95
Y96
Y97
Y98
Y99
VIeD
Yr12
Yl13
PTABL
JR3101
0
JR3102
JR3103
JR3i04
JR.3105
JR3106
JR3107
JR3108
JR3109
JR3110
JR3il:l
JR3i12
JR3i13
JR3114
JR3115
JR3116
JR31i7
JR3118
JR3119
TAB
P/15,T15-P/~UFF;T39
P/DATA-2~T15
p/LV+i.T15-P/LV+36tT39
P/LWW.T15-P/LV+27.T39
P/W02~T15-P/FLEX2.T39
C)HLTfW02+2-C/JMP.W01
C/HLT,PTABL-C/TJMLtBUFF+16$
C/HLTt4095-C/JMP.SW
0/32
P/OV2tT15
C/HLT,OV2+2-C/JMP.OV1
AIAT $
C/HLT;48-C/JMP,NBA
C/HbT;PROGB+128-C/JMP,NBB$
CIHLT;DATA ..... 126-C/JMPtNBA$
C/HLT.48-C/JMP.NSB
C/HLT~BUFF+1S-C/JMP~NSA$
C/HLt.DATA+126-C/JMP.NSB$
C/HLTiO-C/JMP,DKX+1H
P/l,T15-P/42.T39
C/HLf.48-C/JMPtSLWX+1H
28/1-12/0-8/1
P/3tT15-P/USE,T39
CJHLTJFLEX2+8-C/JMP,FLEXI$
P/LV+2.T15-P/LV+10,T39
A/I/lo •• oD$
END CODE
0/33T47
PLUS
0/20T47
MINUS
0/40-T47
TIMES
0/54T47
EXPON
0/53T47
OPEN
0/74147
CLOSE
0/34T'47
COMMA
0173147
SLASH
0/61i47
EQUAL
0/13'T47
D
0/24i47
0
0/46147
0/62T47
S
IGNORE
O/32T47
SPACE
0/60T47
0/25147
E
0/31T47
0/43147
1
L
0/63147
0/21147
T
A
0/22T47
B
0/23T47
C
QUotE
0/55147
0126i47
0/47T47
0/3315
0/60206033T23
0/60406033T23
0/5433T11
0)53331"11
0/7433T11
O)3433fli
0/7333111
0/6233111
F
P
END CODE
PLus
MINUS
TIMES
EXP
OPEN
CLOSE
COMMA
SLASH
J,-
Cj
"
..
JR3120
JR3121
JR3122
JR3123
JR3124
JR3125
JR3126
JR3127JR3128
JR3129
JR3i30
JR3131
JR3132
JR3133
JR3134
JR3135
JR3136
JR3i37
JR313S
JR3i39
JR3i46
JR314i
JR3142
eNSr
QFF
EFFl
EFF2
MFF1
CtL
CTLP
eTr:
XWRD
Lt
P)~i'Ti5
P/E2,Ti5
P/e;,li5
p/Mv,ri5
P/MNtT15
P/MP,T15
JR3i43
0
JR3t.44
JR3i45
JR3i46
JR3i47
JR3148
JR3149 ,
JR315.0
JR-31.51
J-R3152
JR315'3
DID
P/SORTO.T15
P ISO RTA9 T i5
p/SORTB,r15
P IN1-t T15P/N2;lls
P IEEl ,,_tIS
P)EEZtT15
P IT2·, T15
P /.1-3 ,Ti5 PI SOR.!C,I15
P/MUL,fA.T15
P/ MU I...T 89.1_15
P/MUL.TC.T15
P/S3,T15
JR3i54
0
JR3155
JR3156
JR3-i57
JR3158
JR3i59
JR3160
JR3161
JR3162
JR3163
JR3164
JR3165
JR3166
JR3i67
JR3168
JR3-i69
JR3170
JR3171
JR3172
JR3-l73
JR3174
JR3175
JR3176
JR3177
JR3178
JR3i79
EQUAL
0/1333T11
0/0161013333333333
48/0'
0/1147
0/11r47
0/12f47
8/110000
(P)+l
SET
(p )+1
SET
(P)+1
SET
(P)+l
SET
(P)+l
SET
(P)+1
SET
(P)+l
SET
C/HLTL.SORTA-I-C/HLTR.SORfB+1H$
C/HLT.SORTA+19-CIJMP,GATH7$
P/1RU+1,T15-P/6tT39
D/O
P )FOi~T15
P/OPENMtT15
p IFtt TiS
p)F29ri5
DJo
PlDA1AfT15
P/S4,T15
0/0
LV
lW
Lww
P ISUBSTA .-T15
P/SUBSTB,T15
P-ITRU ,T15
0/0
P/BUFF,T15
P IPROG, r 1-5
P IDATA-2.--_..TlS
P/PROGB.•r15 P/PROGB.T15-P/24,T39
P/OPE:NM-2.T15
tP)+45
SET
t P )+15
SET
0/0
,
~
""'-'j
\....-
(j
0
q
JR3-i80
JR3181
JR3182
JR3183
JR3184
JR3185
JR3186
JR3187
JR3188
JR3189
JR3190
JR3191
JR3192
JR3193
JR3194
JR3i95
JR3196
JR3197
JR3198
JR3i99
JR3200
JR3201
JR3202
JR3203
JR3204
JR3205
JR3206
JR3207
JR3208
JR3209
JR3210
JR3211
JR3212
JR3213
JR3214
JR3215
JR3216
JR3217
JR3218
JR3219
JR32Z0
JR3221
JR3222
JR3223
JR3224
JR3225
JR3226
JR3227
JR3228
JR3229
JR3230
JR3231
JR3232
JR3233
JR3234
JR3235
JR3236
JR3237
JR3238
JR3239
L\vX
Tl
NUMER
DENOM
REMAN
EEl
EE2
Ei
E2
si
S2
S3
FOT
DID
(P)+l
{P)+2
(P)+2
SET ...... '. (P) +2
P/i,T15-P/4095.T39
(P)+2
SE.T
· (P)+l
SET'
P/l,T15-P/409S,T39
(P)+2
SET
· (P) +1
SET
P/l.r15-P/4095,T39
(P)+2
SET
(P)+l
SET·
-.
P/1,T15-P/409S.T39
(P)+2
SET
·
(P )+1
SET·
P 11 tT15-P 14095·, T39
(P)+2
SET
·
(1')+1
SET
SET
SET
SET
P/i,r15~P/4095,T39
(P)+2
SET
·
(P)+l
SET
Pll.T15-P/4095,T39
(P)+2
SET
(P)+l
SET
P/2,T15-P/409S.T39
(P)+2
SET
(P)+2
SET
P/49T15~P/4095,T39
Fl
F2
Nl
N2
G
SORTO
SORTA
(P) +2
SET
· (I' )+4
SET
P/4.T15-P/4095,T39
(P)+2
St:T
· (P) +4
SET
P/4~T15-PJ4095,T39
(P)+2
SET
(P)+4 SET
P/4tT15-P/4095,T39
(P )+2
SET
W_..
(P)+4
SET
P/20.T15-P/409StT39
(P)+2
SET
(P)+20
SET
P/20,T15-P/4095,T39
(P}+2
SET
(P)+20
SET
P/20,T15-P/4095,T39
(P)+2
SET
(P)+20
SET
"".,.
P/20.T15~P/4095,T39
SET
(P )+2
... (P)+20
P/1900~TlS-P/4095.T39
SORTS
SET
OPENM
SEt
SET
tP)+2
. (P}+i900 .
MY
SET
SET
(P)+2
(P)+190Q
P/1900.Tl~-P/4095.T39
.......-
P/1900.t15·P)4095~T39
,..
,-------.
~)
(~)
I~
..
~
JR3240
JR3241
JR3242
JR3243
JR3244
JR3245
JR3246
JR3247
JR3248
JR3249
JR3250
JR3251
JR3252
JR3253
JR3254
JR3255
JR3256
Jf.<32s1
JR3258
JR3259
JR3260
JR3261
JR3262
JR3263
JR3264
SET
(P)+2
MN
SEt
'-- (P ) + 1900
MULrA
SET
SET
(P)+i900
MULIB
MULTC
PROGS
PROG
~!~900.Ti5-~/4095.t39
(P)+2
P/1900~T15-P)4095;T39
(P)+2
SET
SET
.
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-c041 52.342996, 2008/05/07-21:37:19
Create Date : 2018:05:15 13:18:53-08:00
Modify Date : 2018:05:15 13:22:51-07:00
Metadata Date : 2018:05:15 13:22:51-07:00
Producer : Adobe Acrobat 9.0 Paper Capture Plug-in
Format : application/pdf
Document ID : uuid:6febaf14-7c18-074e-b345-f13a9b3e5973
Instance ID : uuid:7c441739-ef2f-7445-968d-4b832b32830a
Page Layout : SinglePage
Page Mode : UseNone
Page Count : 68
EXIF Metadata provided by EXIF.tools