ALGY_Algebraic_Manipulation_Program_Jun1961 ALGY Algebraic Manipulation Program Jun1961

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.

USE 0

has

been

designated

as

the

ALGY

INPUT

PROGRAM

tape.

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

pro-

gram.

Please

note

that

the

program

was

written

for

MESS

I

which

lC)

employs

a USE

table

and

USE

number

rather

than

logical

numbers

when

~O

;.,..

..

,'

programming

for

magnetic

tapes.

There

is

no

restart

procedure

and

a

successful

finish

is

ter-

minated.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.

*

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

affec-

ting

the

program.

",',

o

Page

2

'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

work-

ing

table

beginning

at

octal

XXXXX

overflows

with

BCD

information.

The

six

working

tables

are,

at

present,

each

1900

words

in

length.

In

the

this

restriction

will

be

eliminated

by

including

an

expand-

able

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

prog~g~

is,

it

may

take

from

a

few

minutes

to

several

hours.

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.

It

uses

8

index

registers

and

is

core

independent.

o

Page

3

The

present

ALGY

commands

are:*

EQAT

(Equate)

SBST

(Substitute)

,OPEN

(Remove

Parenth~sis)

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.

All

other

columns

may

be

used

for

the

progr~.

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~

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

of

each

card.

Note

this

includes

cc

1-4.

"~'

Se'e'

'ALGY

-

AN

ALGEBRAIC MANIPULATION

PR~GRAM,

M.

Bernick,

E

~D.

Callender,

J.

R.

Sanford;

'Western

Joint

Comput~r

Conference,

~os

Angeles,

1961.

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

J.

QUINN

H.

TAMANAHA

w.

WOOD

c.

LEVENTHAL

./'

.. ,

I ,

\---/

o

'S!

n

-/'

j'...

:~

0

GOV('~1;n.I1!C.:n

t

[.-

IrH.1u.r;

~:r-iJ..:'.].

COUls;UtC!':';:

D:.vifJion

Hl:

Q

John

C

~

U 0

C!.1doo)

JIl~

<1

TUG

E::~e~~u

t

1-vo.

Se::1:ctn~y

Phi

leo

Co~z:,c'i."'~'ltion

Compute/I: Di'\yi:Jio1'A

~~900

Helsl!! Rurtd

~'1i

~

lou

G:roV'c,

PGunoyl

V'llui[j

Ua~te~n

Computiug

C8UCG~

3375

~"<:~;:;\:L:ln

Hr.~~?

Pgl0

Al

to,

Cal:lfo?,'ni':"1

T:?~·Hll~l

30

J"~XQC

19:51

Tais

letteu-

tn-Ot1mn:U::/J

HI,

A.l.£l{

1!)

iln

nllJcb:4;ji~~

mfl~lipulctioll

p:c·:)gU'.::.1ID

~~or~

Phi

leo

2000 use&'c Q

Eucloccdycr;

ui,11

fi!~t!

0

~~l"Ogt'OU1

~'i::ite~t:!p:t

:Jymboli~

li9ting~

~uld

ope~7Q~.:i'J.l3

;h:~at::ructione.,

all

.ot

t!J:tic:Zl

;a~nTc

bc~en

cii.sti.:.:-ibwi:::ld

to

the

'.rEG

!:~~mh~~s~i.p

0<

UndC':.Z'

a.epor

..

3.tc

ccrt;e~

1.

8J:ll

fO&'\:1o'itdi!c:)3

the

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~:

una::'::l;:"

coma oii:UoE'

8::,:·e~utive

GYOt(;;ill,Q

, .

.

it

.

()

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

Reproduction

of

all

or

part of this paper

is

permissible when acknowl-

edgement

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~

C)

0,

ALGY

-

AN

ALGEBRAIC

MANIPULATION

PROGRAM

H.

D.

Bernick,

E.

D.

Callender

and

J.

R.

Sanford,

,

Western Development

Laboratories

-

Philco

Corporation

-

Palo

Alto,

California

'Sununary

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.

Introduction

The

kinds

of

problems which

initiated

inte-

rest

in

general

purpose

high-,speed

digital

compu-

ters

were,

fqr

the

most

part,

problems

whi~h

in-

volved

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

be-

cause

of

the

very

small

probability

that

the

re-

sults

after

months

of

hand

calculation

would be

correct.

With

the

advent

of

the

electronic

compu-

,

ter,

the

arithmetic

involved

in

these

problems

be-

came

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

pertur-

bation

methods.

These

problems,

rather

than

in-

volving

arithmetic,

required

an o'verwhelming

amount

of

algebraic

manipulation.

The

only

feas-

ible

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.'

Definitions

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

quan-

tity

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-alpha-

betic

quantities,

also,

must ,have

less

than

16

characters

in

them and

they

must

begin

with

a

let-

ter.

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

-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

ex-

pression.

Throughout

the

r~mainder

of

this

paper"

re-

ference

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

ma-

nipulate

equations,

but

only

expressions.

How-

ever,

it

is

easily

seen

that

for

algebraic

mani-

pulations,

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

, .

389

10.4

()

0,

o

390

10.'4

is

a

brief

description

of

each

command.

It

is

very

easy

to

learn

to

use

ALGY.

~~o

hours

of

in-

struction

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

se-

veral

different

lvays

during

a

single

ALGY

prograll\.

OPEN:

Open removes

parentheses

from

an

algebraic

expression.

To

do

this,

it

performs

all'alge-

braic

multiplication

necessary,

grouping

identi-

cal

terms,;

and

sorting

in

a

qua~i-alphabetical

manner.

SBST:

SBST

substitutes

one

or

more

expression

in

a

given

expression.

The

routine

inserts

parenthe-

ses

about

each

expression

substituted.

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

va-

riables

"lith

the

restriction

that

if

a

particular

group

contains

two·or

more

variables

to

be

fac-

tored,

it

can

be

factored

with

respect

to

only

one

of

the

variables.

TRGA:

Trig

A

expands

a

product

of

sin

and

cos

func-

tions

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

catego-

ry.

~:

Done

is

a

control

word

which

allows

several

independent

problems

to

be

processed

du~ing

the

same

run.

Logical

Flow

of

ALGY

accepts

algebraic

expressions

as

input,

processes

these

expressions

in

the

manner

in

which

the

user

has

programmed,

and

outputs

a

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

in-

put

program. A

very

simple

example

follows

to

fa-'

cilitate

explaining

the

logical

flow

of

ALGY.

Consider

e(f,g)

=

(fg

+

1)3

f(x)

= 1 +

Ax

+

1/2

A2x2 +

1/6

A3

x3 •

g(x)

=Bx

-

1/6

B3

x3 +

1/120

B5x5 -

1/5040

B7x7

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.

, 3

ie(Equate

E = (FG.+

1)

).

EQAT

F =

111

+

A*X

+ 1/2*A$2 +

1/6*A$3*X$3.

'EQAT

G =

B~~

-1/6*B$3 +

1/120i~$5*X$5

1/5040*13$

7X$

7 •

S~ST

E/F,G.

ie(Substitute

in

E,

the

expressions

equal

to

F and

G.

OPEN

E. 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.,

tag-

ging

the

remainder

of

E

after

all

fac-

toring

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

sym-

bol.

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,

substitu-

ting

the

F

expression

with

parentheses

around

it

each

time

it

appears

in

E.

After

F

has

been

sub-

stituted,

the

same

procedure

is

done

for

the

ex-

pression

G.

The

resulting

substitution

in

E

would

appear

in

print

as

follows:

...

o·

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

fol-

lows:

Ell

= E1l(Xn,A,B) where n assumes

ali

inte-

gers

1

through

19

E7

= E7(X,A,B)

E4

= E4(X,X2,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 ma-

nual

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

sub-

routine,

detailed

flow

charts

have

not

been

in-

cluded

in

this

pap~r.

Future

Operations

We

will

tremendously

increase,

during

the

years,

the

scope

and number

of

allowable

ALGY

commands. Because

of

the

specific

problem

in'

perturbation

theory

for

which

ALGY

was

origi-

nally

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

sug-

gest

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

ex-

ponents

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

poly-

nomial

of

given

degree

when

only

the

ith

term

is

given.

There

are

also

numerous form

of

factoriza-

tion

which

suggest

themselves.

It

should

also

bc

noted.

that

the

ALGY

coded program

is

a

straight-

flow program

just

as

the

first

numerical

programs

were.

Undoubtcdly,

we

will

develop

a

loop

tech-

nique

for

the

ALGY

system.

Conclusion

~9.l

10.4

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

pow-

erful

tool

in

the

hands

of

an

intelligent

user.

It

I~nables

the

mathematician

to

consider

and

to

sorve

problems

that

he would

otherwise

never

con-

sider',because

of

the

large

amounts

of

algebraic

manipulation

necessary

for

a

solution.

It

en-

ables

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

ne-

cessary

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

PRINT

AND

STORE

RESULTING

EXPRESSION

SEARCH AND

READ'

EXPRESSION

WHICH

IS

TO

BE

OPERATED

UPON

.1

,

\.

\

. I

C)

Magnetic

Tapes

AJ.£;Y

--

Algebraic

Manipulation·'

Program

Operating

Instructions

and Program

Statistics

OUT

ALGY

Input

Program

in

code

mode

lUT

In~ermediate

scratch

tape

3UT

Printer

output

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.

The

six

working

tables

are,

at

present,

each

1900 words

in

length.

In

the

this

restriction

will

be

eliminated

by

C)

o

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

The

time

required

for

an

ALGY

run

is

difficult

to

estimat~~

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)

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.

All

other

columns

may

be

used

for

the

program. Blank columns

~

ignored!

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

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

o

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

B9

input

clp~onume~ic

algcbxsic

bit

pnttc~ns

~ud

prod~ceG

a

modified

SGt

of

algebraic

J~b606

J 0001 !

~~~¥!

AN

ALGEBRAIC

MANIPULATION

PROGRAM

FOR

THE

PHILCO

2000

JR0002 *

PHILCO

CORP.,

WESTERN

DEVELOPMENT

LABORATORIES

~

..

~\

JROOO:3

*

pALO

ALTO,

CALIFORNIA

( \

JR0004

.;~

MAY

1,

1961

'--._./

JR0005

';E-

JERALD

R.

SANFORD

JROOO6

AFEND

39$

JROC07

NAME

JRS

,JROOO8

5'ET

M/4000

'jROOo9

sAME

54,Sl

JRoOIO

sAME

SUBSTAtMY

JROOll

SAME

SUBSTBtMN

JROO12

SAME

MP,MUL.TC

JROO13

SAME

T2~Fl

JROO14

SAME

T3;F2

JROO15

SAME

SORTC,G

JROO16

ASGN

USEtM)600

JROO17

OPEN

rJM

OPNX

REMOVE

PARENTHESES

JROO18

eM

CTE,

CbEAR

FLAG

AND

FOLLOWING

JROO19

eM

MFFl

FLAG

FOR

wrTHIN

PARA

JROO20

eM

CTL

N

TH

ORDER

COUNTER

JR0021

eM

CTLP

RUNNING

COUNTER

JROO22

TMD

LC+2

SET

OPENM

JR002'3

TDM

LV+2

JROO24

TMD

LC+5

SET

El

JROO25

TDM

LV+S

JROO26

TMb

LC+8

SET

MY

JROO27

TbM

LV+B

JROO28

TMD

LC+~;·,'

SET

MN

0

JROO29

TbM

LV+9'

JROO30

TMD

LC+22

SET

MULTA

JROO31

rbM

LV+22

JROO32

TMD

I"!~

,61

LC+23

SET

MULTB

JROO33

TDM

LV+23

JROO34

TMD

LC+24

SET

MULTC

JROO35

TDM

LV+24

FIND

ORDER

DFPARENTHESES

JR0036,

YFB

TMD

LV+2

BRING

ON'OPENM

JROO37

JMP

B

JR0038

TMD'

PTABL

END

CODE

JROO39

JAE:D

OPN2

JROO40

TMD

P1ABL+5

JROO41

JAED

YFD

JROO42

TMD

PTABL+6

JROO43

JAED

YFE

JROO44

vr=c

TIXZ

2;4X

NO

JR0045

JMP

NBV

ON

OPENM

'JROO46

JMP

YFB+1H

JROO47

YFD

TMA

CNST+2

1847

JROO48

AMS

CTLP

LEFT

PARA

JROO49

TMD

bV+2

SAVE

LOC

IN

OP

ENfvl

JROOSO

TDM

LvJ+6

JROO51

JMP

Yf=c

JROO52

YFE

TMA

CTL

FIND

HIGHEST

ORDER

JROO53

TMD

CTlP

0

JRoos4

JAED

YFF

JROOS5

JAGD

YFF

JROO56

TDM

eTL

JR0057

TMD

LW+6

FIND

LOC

OF

INNERMOST

NEST

JROO58

rDM

LW+7

JROO59

YFF

eSM

CNST+2

REDUCE

FOR

RIGHf

PARA

JROO60

AMS

eTLp

JROO61

JMP

YFC

JROb62

OPN2

TMD

LC+2

ENTERtCTLP

TO

O.

CTL

TO

NTH

(,I

JROO63

TbM

LV+2

JROO64

TMA

eTL

-'

JROO65

JAZ

YFG

.

JROO66

JMP

OPNX+iH

NO

JROO67

YFG

TMD

Y44

JROO68

TDM

l.W+I0

JROO69

TMD

Yi

JROO70

TDXLC

t4X

LW+lO,4X

III

TO

JROO71

TDXRC

lH,5X bV+22.5X

MULTA

JROO72

JMP

BSQ

BRING

STORE

QUANITY

JROO73

JMP

SLw-1H

END

CODE

MULTA

JROO74

TMD

Y2

JROO75

TDXL.C

f4x

L.V+2,4X

OPENM

JROO76

TDXRC

iH,5X LV+23,5X MULTB

JROO77

JMP

SSE

BRING

STORE

EXPRESSION

JROO78

JMP

SLw-iH

END

CODE

f'.1UL

IB

JROO79

JMP

MULT

MULTIPLY

JROO80

TMD

.

Y3

JROO81

TDXLC

,4X

MULTC,4X

JROO82

TDXRC

lH,5X

OPENM~5X

JROO83

JMP

BLOCK

TRANSFER

TABLE

JR0084 '

OPNX

JMP

(

P)

EXIT

OPEN

JROO85

TMD

LC+2

SET

OPENM

JROO86

TDM

LV+2

JROOa7

Yt=I

TMD

LV+2

JROOaS

JMP

B

BRING

ON

OPENM

(::)

JROO89

TMD

LV+9

JROO90

JMP

S

STORE

IN

MN

JROO91

TrXZ

9t5X

JROO92

JMP

NSV

ON

MN

JROO9:3

TMA

L\~+7

LOC

INNER

NEST

JROO94

TMD

LV+2

LaC

OPENM

JROO95

JAED

YFU

IF

EQUAL

r.9

YFU

JROO96

T'lXZ

2~4X

JROO97

J~~P

NBV

ON

OPENM

JROO98

JMP

YFI+iH

JROO99'

YFU

TMD

LV+9

SAVE

Loc'

OF

MN

JROioo

TOM

LtoJ+8

SEARCH

FOR

EXPONENTIAL

JR010l

TMD

LC+24

SET

MuLTC

JRol02

TDM

LV+24

JR0103

OPN5

TIXZ

7,4X

JROlO4

JMP

NB~J

ON

OPENM

JRo105

JMP

B

BRING

ON

OPENM

JROI06

TMD

PTAB~+6

)

JR0107

JAED

YFK

JR0-108

.

TMD

LV+24

NO

JROlo9

JMP

S stORE

IN

MULtc

JR0110 rIXZ

24,5X

JROlll

JMP

NSV

IN

MULTC

JROl12

JMP

OPN5

JRO:t13

YF'k

TIXZ

7;4X

0

JRot14

JMP

NBW

ON

OPENM

JROl15 Tixz 24,5X

JROl16

JMP

sLwv

END

CODE

MULTC

JROl17

TMD

L\A/+7

JROl18

JMP

8

BRING

ON

OPENM

JR0119

TMD

P,ABL+4 $

JROi2d

JAED

VFL

JR0121

JMP

YFM

NO

JRoi22

YFL

TMD

Y4

ell

JR0123

TDXLc

.4X

MULTCt4X

JR0124

TDXRC

iH~5X

MULTB,5X

JR0125

JMP

BLOCK

TRANSFER

TABLE

JROi26

TIXZ

7fJ4X

JR0121

JMP

N8W

NEXf

BRING

ON

OPENM

JR0128

TMD

LC+5

SET

El

JR0129

TDM

LV+5

JR0130

TMb

Y2

JR0131

TDXLc

t5X

LV+2,5X

JR0132

AIXO

3~5X

LV+5,5X

JR0133

JMP

BSQ

OPENM

TO

E1

JR0134

JMP

SLW-1H

END

CODE

El

JR013S'

TMD

LC+S

JR0136

TDXLC

t3X

E1

JR0137

JMP

RT

BCD

TO

BINARY

JR0138

TMA

RT\~+1

NUMBER

AT

B47

JRoi39

TDM

CTE

N

TH

PO~JER

JR0140

YFN

TMD

CNST+2

1847

JR014i

JAED

YFM

JR014'2

TMD

Y5

JROi43

TDXL.C

t4X

MULTC,4X

JR0144

TDXRC

IH,5X

MULTA;5X

JROi45

JMP

BLOCK

TRANSFER

TABl.E

JR0146

JMP

MUbT

~lULTI

PLY

JR0147

CSM

CNST+2

1B47

JR0148

AMS

eTE

N

....

IST

POvJER

1"0

N

()

JR0149

JMP

YFN

JR01SO

YFM

TMD

LC+24

SET

MULTC

JR015i

TDM

LV+24

JRoi52

TMD

Y6

JR0153

TDXLC

,4X

bV+24.4X

MULTC

JROi54

TDXRC

1H.5X b\tJ+8,

SX

MN

JROis5

JMP

BSE

BRING

STORE

EXPRESSION

JR0156

TMD

PTABL+6

BRING

)

JR0157

TDM

T1

JR0158

TMD

Lt'l+8

JRO:J.59

JMP

S

STORE

IN

MN

JRo160

Tixz

a,5X

JR0161

JMP

NSW

ON

MN

JR0162·

TMA

CTL

JR0163

SM

CNST+2

1B47

JR0164

TAM

CTLP

REDUCE

ORDER

JR0165

YFP

TMD

LW+7

BRING

ON

OPENM

JR0166

JMP

8

JR0167

TMb

LvJ+8

JROi68

JMP

S

STORE

IN

MN

JROi69

TIXZ

8~SX

JRoi10

JMP

NSW

ON

MN

JR0171

TMA

T1

JR0172

TMD

PTABL

END

CODE

JR0173

JAED

OPN4

0 JR0174

1Mb

PTABL+6

JROi75

JAED

YFS

JROi76

TMD

P,ABL+5

JR0177

JAED

YFR

JR0118

YFQ

rrxz 7.4X

NO

JRot19

Jf.1P

NByJ

ON

OPENM

JR0180

JMP

'YFP+iH

JRO!81

Vt=S

csM

CNST+2

JR0182

AMS

CTLP

,REDUCE

ORDER

C)

J~Ola3

JMP

,(FQ

JR0184

YFR

TMA

CNST+2

JR0185

AMS

CTLP

INC

ORDER

JRoia6

TMD

eTl

JR0187

jAED

YFU+2H

JR0188

TIXZ

1~4X

JR0189

JMP

NBW

ON

OPENM

JR0190

JMP

YFP+iH

JROi9i

OPN4

TIXZ

a,5X

PREPARE

TO

REMOVE

PARA

JRoi92

JMP

SLt1W

END

CODE

MN

JR0193

TMD

LC+2

SET

OPENM

JR0194

TDM

LV+2

JR0195

TMD

Lc+s

SET

El

JR0196

TDM

LV+5

I

JROi91

TMD

LC+8

SET

tvlY

JROi98

tbM

LV+8

JRCi99

TMD

Lc+9

SEt

MN

JR0200

roM

LV+9

JR0201

TMD

LC+22

SET

MULTA

JR0202

roM

LV+'22

JR0203

TMD

LC+23

SET

MuLTB

JR0204

TDM

LV+23

JR020S

TMb

LC+24

SET

MuLlC

JR0206

TDM

LV+24

JR0207

TMD

v7

JR0208 TbxLc

t4X

MNi4X

0

J~0209

TDXRC

iH~5X

OPENM~5X

JR0210

JMP

BLOCK

TRANSFER

TABLE

,

JR021i

TMD

LV+2

SAVE

Lac

OPENM

JR0212

TbM

LW+l1

JR0213

eM

tTLP

JRO~14

OPNi6

TMb

LV+2

JR0215

JMP

8

BRING

ON

OPENM

JR0216

TMD

PTABL

END

CODE

JR0217

JAED

OPNi7

JR02i8

TMD

PTABL+6

JR0219,

JAE()

YFTi

JR0220

TMD

PTABL+5

JR0221

JAED

YFT2

JR0222

Y~r'

TIXZ

2.4X

NO

JR0223

JMP

Nf3V

Nt:XT

BRING

ONOPENM

JR0224

JMP

OPN16+iH

JR0225 YFTl

CSM

CNST+2

REDUCE

RUNNING

COUNTER

JR0226

AMS

CTLP

JR0227 rrxz 2t4X

JR0228

JMP

NBV

NExr

BRING

ON

OPENM

JR0229

JtvtP

OPN16+1H

JR0230

YFT2

TMA

CNST+2

JR0231

AMS

CTLP

INCREASE

RUNNING

COUNTER

JR0232

TMD

CTL

JR0233

JAED

(P)+2H

MULTIPL.y

tERM

ON

LEFt

0 JR0234

JMP

YFT

AND

tHEN

ON

RIGHt

JR0235

TMD

LV+2

JRC236

rDM

L\AJ+3

sAVE

Lac

OF

LEFTPARA

JR0237

TIXZ

2,4X

JR0238

JMP

NBV

ON

OPENM

JR0239

YFV

TMD

LV+2

JR0240

JMP

B

BRING

ON

OPt:NM

JR024i

TIXZ

2t4X

JR0242

JMP

NBV

ON

OPENM

0 JR0243

TMA

T1

JR0244

TMD

PTABL+6

JR0245

JAED

YFVl

JR0246

TMD

LV+24

NO

JR0241

JMP

S

STORE

IN

MULTC

JR0248 TrXZ

24~5X

JR0249

JMP

NSV

ON

MULTC

JR0250

JMP

YFV

JR0251 YFVl

TIXZ

24,5X

JR0252

JMP

SlWV

END

CODE

MULTC

JR0253

TMD

LV+2

SAVE

Loe

JUst

PAST

RIGHT

JR0254

TD~1

LJv+1O

PARENTHESES

JR0255

OPN8

TMD

LC+22

JR0256

TDM

LV+23

SET

MULTB

JR0257

TMD

LV+2

JR0258

JMP

B

BRING

ON

MULTB

JR0259

TMD

PTABL+3

ASTERICK

JR0260

JAED

OPN81

JR026i

JMP

OPN10

NO

JR0262

OPN81

Trxz

2,4X

JR0263

JMP

NBV

ON

OPENM

JR02.64

JMP

B

BRING

ON

OPENt~

JR0265

1Mb

PTABL+5

(

JR0266

JAED

YFtq

JR0267

JMP

YFWl

NO

JR0268

YFW

TMD

CN5T+2

1B47

0 JR0269

TDM

MFFl

SET

FLAG

FOR

\!J

I

THI

N

PARA

JR0270

TIXZ

2.4X

JR0271·

JMP

NBV

ON

OPENM

JR0272

JMP

B

BRING

ON

OPENM

JR0273

Yr~Jl

TMO

PTABL

JR0274

JAED

YFX

JR0275

TMD

PTABL+l

+

JR0276

JAEO

YFX

JR0277

TMD

PTABL+2

JR0278

JAED

YFX

JR0279

TMD

PTABL+5

JR0280

JAED

OPN9A

JR0281

TMD

PTABL+6

JR0282

JAED

YGF

JR0283

YF\~2

TMD

LV+2

NO

JR0284

JMP

B

BRING

ON

OPENM

JR0285

TMD

LV+23

JR0286

JMP

S

STORE

IN

MULTS

JR0287 rIXZ 23,5X

JR0288

JMP

NSV

ON

MULTB

JR0289

JMP

·YFW+2H

JR0290

YFX

TMA

MFFl

JR0291

TDM

Tl

JR0292

TMD

CNST+2

1B47

JR0293

JAED

YFi12

0 JR0294

JMP

OPN9

NO

JR0295 YFXl

TIXZ

2~4X

JR0296

JMP

NSV

ON

OPENM

JR0297

eM

MFFl

CLEAR

FLAG

JR0298

OPN9

TMD

LV+2

SAVE

LOC

OF

OPENM

JR0299

TOM

L\~+io

JR6~oo·

TIXZ

24t5X

JRO:jol

JMP

sLwv

END

CODE

MUL,C

JROg02

SIXO

i,5X

C.)

JR0303

JMP

sL.W-1H

END

CODE

MULIB

JRO~04·

TMb

Y5

JR03C5

TDXLc

t4X

MULTC~4X

JR0306

TDXRC

iH,5X

MULTA,5X

JR0307

JMP

BLoCK

TRANSFER

DATAtASLE

JR0308·

JMP

MuLT

AhGEBRArC

MULTIPLY

JR0309

JMP

OPNB

JRO~10

OPN9A

rIXZ

23~4X

JR0311

JMP

DECKV

LAST

STORE

ON

MULTS

JR0212

TIXZ

2,4X

JR0313

JMP

DECKV

L.AST

BRING

ON

OPENM

JR0314

JMP

OPN9

JR0315 OPNio

TMb

LC+23

JRO~i6

TDM

LV+23

SET

MULTB

JRD311

TIXZ

3.4X

JR031B

JMP

DECKW

bAST

BRING

ON

OPENM

JR0319

TMA

LvJ+3

JR0320

TMD

Y8

OPENM-l~42

JR0321

JAED

YFYY

JR0322

TAD

JR0323

JMP

B

BRING

ON

OPENM

JR0324

TMD

PTABt...+3

ASTERICK

JR0325

JAED

YFXX

JR0326

TMb

PiABL+5

JRO~27

JAED

YFYY

JR0328

JMP

YFYY+2H

NO

0 JR0329

YFVY

rIXZ

3t4X

JR0330

JMP

NBvJ

ON

OPENM

JR0331

TMD

LW+3

JR0332

TDM

L~J+5

SAVE

LOCATION

iN

OPENM

JR0333

JMP

YGA

JRO:334

YFXX

rrxz

3.4X

JR0335

JMP

DECK\\I

LAST

BRING

ON

OPENM

J~0336

TMA

L~oJ+3

JR0337

TMD

YB

OPENM

....

1,42

JR0338

JAED

YFXXl

JR0339

TMb

LW+3

JR0340

JMP

B

BRING

ON

OPENM

JR0341

1MD

PTABL+l +

JR0342

JAED

YFY

JR0343

TMD

PTABL+2

JRO~44

JAED

YFY

JR0345

TMD

PTABL+5

JR0346

JAED

YFY

JRO~47

JMP

Yt=XX

NO

JRO:348

YFXXl

Ttxz

3~4X

JR0349

JMP

NBW

ON

OPENM

JR0350

TMD

L\1+3

JR03S1

TDM

L~J+5

JR035·2

JMP

Yi=Y+4H·

JR0353

YFY

TMD

LvJ+3

0 JR0354

TbM

L.W+5

JR0355 Ttxz

3,4X

JR0356

JMP

NBW

ON

OPENM

JRO:357

JMP

B

BRING

ON

OPENM

JR035B

TMD

PTABL+5

(

JRO:359

JAED

YFZ

JR0360

TMb

LV+23

NO

JR036i

JMP

S

STORE

IN

MULfB

JR0362

Tixz

23t5X

".

JR0363

JMP

NSV

MULTB

()

ON

JR0364

JMP

YFY+2H

JR0365

YFZ

rrxz

23,4X

JR0366

JMP

DECkV

LAST

STORE

ON

MULTB

JR0367 rrxz 23,SX

JR0368

JMP

SLvJV

END

CODE

MULTB

JR0369

TMD

YS

JR0370

rDXLG

.4X

MULTC

t

4X

JR0371

TDXRC

IH,5X

MULTA.SX

JR0372·

JMP

BLOCK

TRANSFER

DArA

TABLE

JR0373

JMP

MuLT

ALGEBRAIC

MULtIPLY

JR0374

YGA

TMA

LW+l1

BRING

EXPRESSION

UP

TO

PARA

JR0375

TMD

LW+5

JR0376

JAED

YGB

JR0377

TMD

I..W+ll

JR0278

JMP

B

BR

I

NG

ON

OPEN~1

JR0379 . rixz .

11,4X

JR0380

JMP

NB\~

ON

OPENM

JR0381

Ttv1D

LV+9

JRO~82

JMP

S

STORE

IN

MN·

JRO~83

TIXZ

9tSX

JR0384

JMP

NSV

ON

MN

JR0385

JMP

YGA

JR0386

YGB

TMD

L.e+24

JR0387

TDM

LV+24

SET

MULTC

C)

JR0388

TMD

LV+24

JR0389

JMP

B

BRING

ON

MULTe

JR0390

TMD

PTABL

END

CODE

JR0391

JAED

OPN15

JR0392

TMD

L\~+ll

.JR0393

JMP

B

BRING

ON

OPENM

JRO_394

TMD

PTABl+5 (

JRO:j95

JAED

YGDD

JR039.6 .

.TMD

PTABL+2

JRO-397

JAED

YGG

JR0398

JMP

y.GD

....

NO

JR0399

TMD

LW+9

JRo400

~MP

S

STORE

JR0401

Tlxz

9-j.sX .

."

JR0402

JMP

NSW

JR0403

YGD

TMD

LV+24

MULTC

JR0404

JMP

8.

JR0405

TMD

PTAB6+2

JR0406

JAED

YGD2

JR0407

TrvtD

PTABL+i

+

JR0408

JAED

VGD2

JR0409

TDM

Tl

JR0410

TMb

LV+9

JR0411

JMP

s·

JR04i2

TIXZ

9;5X

JR0413

JMP

NSV

("'\

JR0414

YGD2

TMD·

Y9

\.. .

.../

JR0415

rDxlc

.4X

....

,._

..

LV+24,4X

MuLTC

JR0416 rDXRC IH.,

..

5X l V+9,

5X_

...

~1N

JR0417

,JMP

SSE

BRING

STORE

EXPRESSION

JR0418

JMP

ORNi5

JR0419

YGD1

TMD

LV+24

JR0420

JfvlP

B

BRING

....

ON

MULTC

JR0421

TMD

PTABL

END

CODE

JR0422

JAED

ORN15

('-"\

JR0423

TMD

PTABL+i

+

I ! JRo424

JAED

YGC

,"'--

....

' JR0425

TMD

PTABL+2

JR0426

JAED

YGCi

JR0427

JMP

YGC2·

NO

JR0428

YGC

TMD

PTAB6+2

JR0429

TDM

T1

PRESENT

CHARACTER

JR0430

JMP

YGC2·

JR0431

YGCl

TMD

PTABL+l

+

,._-

.....

JR0432

rDM

Tl

PRESENT

CHARACTER

JR0433

YGC2

TMD

LV+9

JR0434

JMP.

s.··

STORE

IN

MN

JR0435 rIXZ 9

;5X

JR0436

JMP

NSV

ON

MN

JR0437

Trxz

24t4X

JR0438

JMP

NBV

ON

MULTC

JR0439

JMP

YGDl

JR0440

OPN15

TMD

LW+l0

SAVE

OPENM

LOC

JR0441

TDM

LW+l1

JR0442

TMD

LC+5

JR0443

TDM

l..V+5

SET

El

. JR0444

TMD

L..C+8

JR0445

ToM

LV+8

SET

MY

JR0446

TMD

LC+22

JR0447

rDM

LV+22

SET

MUL.TA

JR0448

TMb

LC+23

(j

JR0449

TDM

LV+23

SET

MULTB

JR0450

TMD

LC-f'24

JR0451

TDM

LV+24

SET

MuLTC

JR0452

CSM

CNST+2

JR0453

AMS

CTLP

REDUCE

RUNNING

COUNTER

JR0454

JMP

OPNi6

JR0455

OPN17

TMD·

YiC

JR0456

TDXLC

~4x

LW+l1,4X

OPt:NM

JR0457

TDXRC

IH;5X LV+9,5X

MN

JR0458

JMP

BSE;

BRING

StORE

EXPRESSION

JR0459

JMP

SL~"-iH

END

CODE

MN

JR0460

TMD·

Y7

JR0461

TDXLC

.4X

MN,4X

JR0462

TDXRC

IH,5X

OPENM.5X

JRo463

JMP

BLOCK

TRANSFER

DATA

tABLE

JR0464

JMP

OPEN+1H

JR0465

YGF

TMA

MFF1

JR0466

TDM

T1

JR0467

JAZ

OPN9

.JR0468

JMP

YFXl

NO

JR0469

YGG

TMD

LV+24

JR0470

JMP

B

BRING

ON

MULTC

JR0471

Tf~D

PTASL+i +

JR0472

JAED

y.~.C

JR0473

TMD

PTABL.+2

('I

JR0474

JAED

YGCl

'-.)

JR0475

.TMD

PTABL+2

NO.-

JR0476

TDM

Tl

PRESENT

CHARACTER

JR0477

TMD

-LV+9

JRo'478

JMP

, $,.

STORE

IN

MN

JR0479 rIXZ 9*5X

JR0480

JMP

NSV

Nt:XT

stORE

ON

MN

JR0481

JMP

YGDl

JR0482

YGDD

TIXZ

11~4X

(-, JR0483

JMP

DECKW

JR0484

TMA

YB

JR0485

TMD

LW+l1

JR0486

JAED

YGDDl

JR0487

JMP

8-.

JR04B8

TMD

PTABL+5

JR0489

JAED

VGDbl

JR0490

TDM

Ti

JR049i

JMP

NBV-2H

JR0492

TMD

LV+9

JR0493

JMP

s·

JR0494

Tixz

9;5X

JR0495

JMP

NSV

JR0496

JMP

YGD·

JR0497

YGDDl

Jtv1P

NBV-2H

JR0498

JMP

YGD

JR0499

PAGt:

JR0500

MULT

TJM

MULTX

ALGEBRAIC

MULTIPLICATION

JR050i

TMD

L.C+22

JR0502

rDM

LV+22

SET

MULTA

JR0503

TMD

LC+24

JR0504

TDM

f...V+24

SET

MUL.TC

JR0505 .

TMD

LC+21

JR0506

TOM

LV+21

SET

SORTC

JR0507

TIXZ

24,5X

JR0508

JMP

SLWV

END

CODE

MULTC

0 "JR0509

TMD

LC+24

JR0510

TDM

LV+24

SET

MULTC

JR0511

MULT2

TMD

PTABL+l

+

JR0512

rDM

T1

PRESENT

CHARACTER

JR0513

TMD

LC+25

JR05-14

JMP

S

STORE

IN

S3

JR051S

TMD

LC+23

JR0516

TDM

LV+23

SET

MULTB

JR0517

TMD

LV+22

JR0518

JMP

B

BRING

ON

MULTA

JR0519

TIXZ

22,4X

JROS2C

JMP

.b1B.V

ON

MULTA

JR0521

TMA

Tl

JR0522

TMb

PTABL+l

+

JR0523

JAED

MULT5

JR0524

TMD

PiABL+2

JR0525

JAEO

YCA

JR0526 rrxz 22t4X

NO

JR0527

JMP

DECKV

LAst

BRiNG

ON

t~UL

'fA

JROS28

JMP

MUlT5

JR0529 yeA

TMD

LC+25

JR0530

JMP

S

STORE

IN

S3

JR0531

MUbT5

TMD

LV+22

JR0532

JMP

B

BRING

ON

r4ULTA

JR0533

TMD

PTAB~

END

CODE

0 JROS34

JAED

MULT4

JR0535

TMb

Lc+i2

NO

JR0536

TO~4

LV+12

SET

SORTO

JR0537

iMD·

Yll

JR0538

TDXLC

.4X

MULTA,4X

JR0539

TDXRC

IH,5X

SORTO.SX

JR0540

Jf.1p

BSG

BRING

STORE

GROUP

JR0541

TMD

PTABL+3

ASTERICK

JR0542

TDM

T1

PRESENT

CHARACTER

C~:I

JR0543

TMb

Lv+i2

JR0544

JMP

S

STORE

IN

SORTO

JR0545

JMP

NSV-2H

ON

SORTO

JR0546

TMD·

Y12

JR0547

TDXLC

.4X

SORTO.4X

JR0548

TDXRC

lH~5X

SORTC.5X

JR0549

JrvtP

BLOCK

TRANSFER

DATA

TABLE

JR0550

TMD

S3

JR0551

TDM

S2

JR0552

-TMD

LV+12

JR0553

TDM

LW+4

JR0554

MULTl

TMD

Y12

JR0555

TDXRC

IH.4X

SORTC.,4X

JR0556

TbXLC

.5X

SORTO,5X

....

_.

JR0557

JMP

BL.OCK

TRANSFER

DATA

TABLE

JR0558

TMD

52

JR0559

TDM

S3

JR0560

TMD

LW+4

JR0561

TDM

L.V+12

JR0562

TMD

LV+23

JR0563

JMP

B

BRING

ON

MULTB

JR0564

TIXZ

23.4X

JR0565

JMP

NBV

NEX,

BRING

ON

MULTB

JRO~66

TMA

T1

JR0567

TMD

PiABL+l +

JR0568

JAED

MULT6B

0 JR0569

TMD

PTABL+2

...

JR057b

JAED

Yee

JR0571

Ttxz

23,4X

NO

JR0512

JMP

DECKV

LAST

BRING

ON

MULTS

JR0573

JMP

MULT6

JR0574 Yee

TMD

le+25

JR0575

JMP

B

BRING

ON

$3

'JR0576

TMD

PTABL+i +

JR0577

JAED

Vecl

JR0578

TDM

Ti

JR0579

TMD

Le+25

JR0580

JMP

S

STORE

IN

53

JR0581

JMP

MULT6B

JR0582

Vcel

TMD

PTABL+2

JR0583

TDM

T1

JR0584

TMD

LC+25

JRO:;85

JMP

s.

STORE

IN

S3

JR0586

MULT6

TMD

LV+23

JR0587

JMP

B

BRING

ON

MULTB

JR0588

TMD

PTABL

END

CODE

JR0589

JAED

MULT2

JR0590

MULT68

TMD

Y13

NO

JR0591

TDXLC

.4X

MULIB

•

.4X

JR0592

TDXRC

IH~5X

SORTO.SX

JR0593

JMP

BSG·

BRING

Sf

ORE

GROUP

0 JR0594

JMP

SLW-1H

END

CODE

SORTO

JR0595

JMP

SORT

MULT1PkY

LIKE

tERMS

JR0596

JMP

GATHER

ADD

LIKE

TERMS

JR0597

JMP

MULTl

JR0598

MULT4

TMD

LC+24

JR0599

TDM

LV+24

SET

MULTC

JR0600

JMP

B

BRING

ON

MuLrc

JR0601

TrXZ

24t4X

JR0602

JMP

NBV

ON

MULTC

,

r . JR0603

TMA

rI

"--->

JR0604

TMD

.PTABb

END

CODE

JR0605

JAED

MULTX

to

EXIT

JR0606

TMD

LV+24

NO

JR0607

JMP

MULT4+2H

...

JR060B

MULTX

J~1P

( P )

EXIT

MULT

JR0609

PAGE

JR0610

SORT

T

JIv1

SORTX

MULTIPLY

LIKE

tERMS

JR0611

TMD

LC+14

JR0612

TDM

LV+-l4

SET

SORTB

JR06l3

TMb

Lc+i6

JR06'14

TDM

LV+16

SET

N2

JR0615

TMD

Lc+12

JR0616

TDM

LV+12

SET

SaRTO

JR0617

TMD

CNST

ill

•

•.•••

JR0618

TDM

N2

JR0619

Trxz

1495X

JR0620

"-"~

. .

JMP

SLWV

END

CODE

SORTS

JR0621

STS1

TMb

Y14

JR0622

TDXLC

.4X

L.G+13.4X

JR0623

TDXRC

iH~5X

LV+13

;.5X

.....

_ "

JR0624 R

RPTAA

8,

SET

8

CONfROL

WORDS

JR0625

TMb

lt4X

JR0626

TDM

1.5X

JR0627

5TS2

TMD

LC+19

SET

T2

C)

JR0628

.TDM

LV+19

JR0629

TMD

L.V+12

...•

JR0630

Jt~P

B

..

_

BRING,ON

SaRTO

JR0631

TMD

prABl.

END

CODE

JR0632

JAED

STS12

JR0633

eM

T2

JR0634

eM

T2+1

JR0635

TMb;

Y15

NO

JR0636

TDXLc

,4X

LV+12t4X

SaRTO

JR0637

TDXRC

1H~5X

LV+i9~5X

T2

'-~.,-

JR0638

JMP

BSQ·

BRING

STORE

QUANTITY

JR0639

JMP

SLW-IH

END

CODE

t2

JR064()

TMA

QFF'

JR064i

TDM

T1

PRESENT

CHARACTER

JR0642

TMD

PTABL+2

JR0643

JAED

STS2

JR0644

TMD

PTASL+3

ASTERICK

JR0645

JAED

5T53

JR0646

TMD

LC+19

NO

JR0647

TDM

LV+i9

SET

T2

JR0648

Tf'v1D

LC+-i5

JR0649

TOM

LV+15

SET

Nl

JR0650

TMD·

Y16

JRC65i

TDXLc

.4X

Lv+i9.4X

12

JR0652

rDXRC

IH,5X

LV+15.SX

N1

JR0653

JMP

SSQ

BRING

STORE

QUANITY

0 JR0654

JMP

SLvJ-1H

JR0655

JMP

NUt-1uL

T

NUMER

Ie

FRACT

ION

MULTIPLY

JR0656

JMP

STS2

JR0657 ST53

TMb

LV+14

JR0658

JMP

B-

BRING

ON

saRis

JR0659

TMD

PlASh

END

CODE

JR0660

JAED

YBG

JR0661

TMD

LC+20

NO

JR0662

TDM

LV+20

SET

T3

C,>

JR0663

eM

T3

JR0664

eM

T3+1

JR0665

TMD

V17

JR0666

TDXLC

t4X

LV+14.4X

SORTS

JR0667

TDXRC

IH,5X LV+20.SX

T3

JR0668

JMP

SSQ

BRING

STORE

QUANTITY

JR0669

JMP

SL~J-IH

JR0670

TMA

QFF

JR0671

TDM

T1

JR0672

TMb

PTABL+2

JR0673

JAED

5TS9

JR0674

YBB

TMA

T2

NO

JR0675

TMD

T3

JR0676

JAED

(P)+3H

JR0677

JAGD

ST59

JR0678

JMP

S1510

JR0679

TMA

T2+1

JR0680

TMD

T3+1

JR0681

JAED

5T54

JR0682

JMP

YSB+3H.

JR0683

5TS9

tMD

LC+20

JR0684

TOM

LV+20

SET

T3

JR0685

TMD

V18

JR0686

TDXlC

.4X

LV+20,4X

T3

JR0687

TDXRC

1Ht5X LV+13,5X

SaRrA

JR0688

JMP

BSQ

BRING

STORE

QUANTITY

C)

JR0689

TMD

LV+14

JR0690

JMP

B

BRING

ON

SORTS

JR0691

Ttw1D

PTABL+4

$

JR0692

JAED

YBC

JR0692

JMP

5T53

NO

JR0694

YBe

TMD

Y19

JR0695

TDXLC

.4X LV+14.4X

SORTB

JR0696

TDXRC

iH,5X LV+13.5x

SORTA

JR0697

JMP

SSQ

BRING

STORE

QUANTITY

JR0698

JMP

BSQ

BRING

STORE

QUANTITY

JR0699

JMP

5TS3

JR0700 STS10

TMD

..

LC+19

JR0701

TDM

LV+19

SET

T2

JR0702

TMD

Y20

JR0703

TDXkC

j4X

LV+19;4X

T2

JR0704

TDXRC

1H,5X I-V+13.5X

SORTA

JR0705

JMP

BSQ

BRING

stORE

QUANTITY

JR0706

TMD

LV+12

JR0707

JMP

B

BRING

ON

SaRTo

JR0708

TMD

PTABL,+4

$

JR0709

JAED

YBD

JR0710

JMP

STS5

NO

JR0711

YBD

TMD

Y21

JR0712 TDXlc

t4X

LV+12.4X

SaRTO

JR0713

rDXRC

IH,·5X

LV+13,SX

SORTA

0 JR0714

JMP

BSQ

BRING

STORE

QUANTITY

JR0715

JMP

SSQ

BRING

STORE

QUANtITY

JR0716

STS5

TMb

PTABL+3

ASTERICK

JR0717

TDM

Tl

PRESENT

CHARACTER

JR0718

TMD

LV+13

JR0719

Jr~p

s

STORE

IN

SORTA

JR072b rixz

13~5X

JR0121

JMP

NSV

ON

SORTA

JR0722

TMD

LC+20

C~I

JR0723

TDM

LV+20

SET

T3

JR0724

TMD·

Y18

JR0725

TDXLC

.4X LV+20,4X

T3

JR0726

TDXRC

1H,5X LV+13t5X

SORTA

JR0727

JMP

BSG

BRING

STORE

GROUP

JR0728 STS7

TMD

'Y19

JR0729

TDXbc

.4X LV+14.4X

SORTB

JR0730

TOXRC

lH~5X

LV+i3~5X

SORTA

JR0731

JMP

BSG

BRING

STORE

GROUP

JR0732

STS8

TIXZ

13;SX

JR0733

JMP

SLWV

END

CODE

saRrA

JR0734

TMD·

Y22

JR0735

TDXLC

.4X

SORTAt4X

JR0736

TDXRC

iH,SX

SORTB~5X

JR0737

JMP

BhOCK

TRANSFER

DATA

tABLE

JR0738

JMP

STs1

JR0739 STs4

TMD

LC+19

JR0740

TDM

LV+19

SET

T2

JR0741

TMb·

Y20

JR0742

TDXLC

j4X LV+19.4X

T2

JR0743

TDXRC

IH,5X LV+13.5X

SORTA

JR0744

JMP

BSQ

BRING

stORE

QUANTITY

JR0745

TMD

LV+i2

JR0146

JMP

B·

BRING

ON

SORTO

JR0747

TMD

PTABL+4

$

JRb748

JAED

VBE

0 JR0749

TMD

CNST+2

NO~

1B47

JR0750

TDM

Tl

PRESENT

CHARACTER

JR0751

TMD

LV+l7

JR0752

JMP

S ;

STORE.

IN

EEl

JR0753

TIXZ

l7.SX

JR0754

JMP

NSV··

ON

EEl

JR0755

JMP

YBEl

JR0756

VBE

rIXZ

12;4X

JR0751

JMP

NBV

ON

SORTO

JR0758

iMD

Y23

JR0759

TDXLC

J4X LV+iZt4X

SaRTO

JR0760

TDXRC

lH,5X LV+17,5X EEl

JR0761

JMP

BSQ·

BRING

STORE

QUANTITY

JR0762

YBEl

JMP

SL\1-1H

END

CODE

EEl

JR0763

TMD

LV+14

JR0764

J~1P

B

BRING

ON

SORTS

JR0165

Ttv1D

PTA8L+4 $

JR0766

JAED

YBt:

JR0167

TMD

CNST+2

NO,

1B47·

JR0768

TDM

11

JR0769

TMD

lV+l8

JR0770

JMP

S

STORE

IN

EE2

JR0771

TIXZ

i8,5X

JR0772

JMP

NSV·

ON

EE2

JR0773

JMP

YBFi

0 JR0774

VBF

TIXZ

14.4X

JR0775

JMP

NBV

ON

SORTB

JR0776

TMD·

Y24

JR0777

TDXLC

.4X lV+14t4X

SORTB

JR0778

TDXRC

lH,SX

LV+i8;5X

EE2

JR0179

JMP

BSQ

~RING

STORE

QUANTITY

, .

JRb780

YBFi

JMP

sLW-1H

I:ND

CODE

EE2

JR0781

TMD

Y25

G/TMA.RTW+IC/AMtEE2

JR0782

JMP

EXPAD

EXPONENT

ADD

JR0783

TMD

PTABL+4

$

l

~l

JR0784

TDM

Ti

..

PRESENT

CHARACTtR

-'

JR0785

TMD

LV+i3

JR0786

JMP

S

STORE

IN

SORTA

JR0787

TIXZ

13t5X

JR0788

JMP

NSV

ON

SORTA

JR0789

TMD

LC+18

JR0790

TDM

LV+18

SET

EE2

JR0791

TMD·

Y26

JR0792

TDXLc

t4X

LV+18

~4X

EE2

JR0793

rDXRC

' IH,

5X

L.V+13,5X

SORTA

JR0794

JMP

BSQ

BRING

STORE

QUANTITY

JR0795

JMP

STS7

JR0796 STSl2

TMD

LC+13

JRo797

rDM

Lv+13

SET

SORTA

JRb198

TMD

Lc+14

JR0799

TDM

LV+14

SET

SORtB

JR0800

TMD

LC+16

JR0801

TDt~

LV+16

SET

N2

JR0802

TMA

N2

JR0803

TMQ

eNST

1/1

•••••

JR0804

JAEQ

SSlB

JR0805

55l

TMD

Y27

JR0806

TDXLC

.4X LV+16.4X N2

JR0807

TDXRC

IH

,,sx

L.V+13.5X

SaRrA

JR0808

JMP

SSQ

BRING

STORE

QUANTITY

0 JR0809 SSlA

TMD

Y19

JR0810

TDXbC

t4X

LV+14,4X

SORTB

JR0811

JMP

BSG

BRING

STORE

GROUP

JR0812

JMP

SS4A

JR0813 SSlB

TMA

Nl

JR0814

JAZ

553

JR0815

TMD

LC+14

JR0816

JMP

B

BRING

ON

SORTB

JR0817

TMD

PTABL

END

CODE

JR0818

JAED

ss4

JR0819

TIXZ

14,4X

NO

JR0820

JMP

NBV

ON

SORTB

JR0821

TMD

Y27

JR0822

TDXRC

lHt5X LV+13.SX

SORTA

JR0823

JMP

SSlA

JR0824 SS3

Trxz

14,4X

JR0825

Jr>1p

NBV

ON

SORTB

JROS26

TMD

Y27

JR0827

TDXRC

IHt5X LV+13.5X

SORTA

JR0828

JMP

sslA+2H

JR0829 SS4

TMD

Y27

JR0830

TDXLC

t4X

LV+16.4X

N2

JR0831

TDXRC

lHt5X L.V+13.SX

SORTA

JR0832

Jt-1P

BSQ

BRING

STORE

QUANTITY

JR0833

SS4A

JMP

SLt1-1H

END

CODE

SORT

A ,

0 JR0834

TMD

Y28

JR0835

rDXLC

,4X SORrA,Ax

JR0836

rDXRC

iH,SX

SORiO~·5X

JR0837

JMP

BLOCK

TRANSFER

DATA

TABLE

JR0838

SORTX

JMP

(

P)

EXIt

FROM

SORT

JR0839

YBG

TMD

PTABL.+3

ASTER

LCK

JR0840

TDM

Ti

PRESENT

CHARACTER

JR0841

TMD

LV+13

JROB42

JMP

S

STORE

IN

SORTA

(-) JR0843

Tixz

13.5X

JR0844

JMP

NSV

ON

SORTA

JR0845

TMD

Lc+19

JR0846

TDM

LV+19

SET

T2

JR0847

TMD·

Y20

JR0848

TDXLC

t4X

LV+19,4X

T2

JR0849

TDXRC

IH,5X LV+13.5X

SORTA

JROS50

JMP

BSQ

BRING

STORE

QUANTITY

JR0851

'TMb

LV+12

JR0852

JMP

B

BRING

ON

SaRTO

JR0853

TMD

PTABL+4

$

JR0854

JAED

GAT

JR0855

JMP

stS8

NO

JR0856

GAT

TMD

'121

JR0857

TDXLC

.4x

LV+12t4X

SaRTO

JR0858

TDXRC

IH,5X LV+i3t5X

SORtA

JR0859

JMP

BSQ

BRING

STORE

QUANt'ITY

JROB60

JMP

BSQ

BRING

STORE

QUANTITY

'JR0861

JMP

ST58

JR0862

pAGE

JR0863

GATHE:R

TJM

GATHX

SUM

IDENTICAL

TERMS

JR0864

TMD

LC+12

JR0865

TDM

LV+i2

SET

SaRTO

JR0866

TMD

LC+i3

, JR0867

TOM

LV+i3

SET

SORTA

JR0868

lMD

LC+i4

"-,,,

JR0869

TDM

Lv+i4

SET

SORiB

l_)

JR0870

rMD

LC+i5

JR0871

TDM

LV+15

SET

Nl

JR0872

TMD

LC+i6

JR0873

TDM

LV+16

SET

N2

JROS74

TMD

LC+24

JR0875

TDM

LV+24

SET

MULTC

JR0876

TMb

LC+25

JR0877

TDM

LV+25

SET

S3

JR0878

TMD

LC4'28

JR0879

TDM

LV+28

SET

S4

JR0880

TMD

LV+12

JR0881

JMP

B

BRING

ON

SaRTO

JR0882

trv1D

PTABL

END

CODE

JR0883

JAED

GATHX-

TO

.EXIT

JR0884

TMQ

tNST+4

0/12

JR0885

JAGQ

t P

).+2H

JR0886

JMP

GAtH6A

JR0887

TMD

CNST

NO

JROBB8

TDM

Ni

111

•••••

JR0889

JMP

GATH6+2H

JR0890

GATH6A

TMD·

Y29

JR0891

TDXbC

J4X

LV+12t4X

SaRTO

JR0892

TDXRC

1Ht

5X'

LV+1St5X Nl

JR0893

JMP

BSQ

BRING

STORE

QUANTITY

0 JROS94

TMD

LV+12

JR0895

JMP

B

BRING

ON

sORia

JR0896

TMD

PTABL+3

ASTERICK

JR0897

JAED

GATH68

JR0898

JMP

GATH6

NO

JR0899

GATH6B

TIXZ

i2,4X

JR0900

JMP

NBV

ON

SaRTO

JR0901

GATH6

TIXZ

15t5X

JR0902

JMP

SLWV

l:ND

CODE

Nl

/,00'"

JR0903

TMb·

LC+13

I~I

JR0904

TDXLc

,7X

SORTA~7X

"--I JR0905 L

RPTA

20

JR0906

CM·

lt7X

JR0907

TMD

Y21

JR0908

TDXLC

t4X 4V+12J4X

SaRTO

JR0909

TDXRC

IHt5X

LV+13t5X

SORTA

JR0910

JMP

BSG

BRING

STORE

GROUP

JR0911

JMP

SbW-1H

END

CODE

SORfA

JR0912

GATHl

TMD

LV+24

JR0913

rDM

LvJ+l

SAVE

CONTENTS

OF

MULTC

JR0914

JMP

B

BRING

ON

MULTC

JR0915

TMD

PTABb

END

CODE

JR0916

JAED

GATH4A

JR0911

TMD

LV+28

NO

JR0918

JMP

S

STORE

IN

S4

JR0919

TIXZ

24,4X

JR092Q

JMP

NBV

ON

MULTC

JR0921

TMD

LV~24

JR0922

JMP

B

BRING

ON

MULTC

JR0923

TMQ

CNST+4

0/12

JR0924

JAGQ

(P)+2H

JR0925

JMP

YDA+IH

JR0926

TMD

CNST

NO

JRD927

iDM

N2

111

•••

•.•

JR0928

YDA

JMP

YDA2+2H

C)

JR0929

TMD

Y30

JR0930

TDXhC

;4X bV+24,4X

MULTC

JR0931

TDXRC

1Ht5X bV+16,5X

N2

JR0932

JMP

Bsa

BRING

stORE

QUANTITY

JR0933

TMD

LV+24

JR0934

JMP

B

BRING

ON

MULTC

JR0935

TMD

prAB6+3

ASTERICK

JR0936

JAED

YDAl

JR0937

JMP

YDA2

NO

JR0938

YDAl

TIXZ

24t4X

JR0939

JMP

N8V

ON

NULTC

JR0940

YDA2

TlxZ

16t5X

JR0941

JMP

Sb.\IJV

END

CODE

N2

JR0942

TMD

Lc+14

JR0943

TDXLC

.7X SORTS;7X

JR0944 L RPTA 20

JR0945

eM'

lt7X

JR0946

TMD

Y31

JR0947

TDXt..C

t4X LV+24t4X

MULTC

JR0948

TDXRC

lH~5X

LV+14.SX

SORTB

JR0949

JMP

BSG·

BRING

STORE

GROUP

JR0950

JMP

SLW-1H

JR0951

YDB

TMD

XWRD

JR0952

TDXLC

j2X SORTA-l

JR0953

TDXRC

lHJ3X

SORTS

0 JR0954

YDBI

TMD

XWRD+l

SORTA+19jGATH7

JR0955 AIXJ

It2X

JR0956

JMP

GATH2

EQUAL

GROUP

JUfv1P

JR0957

GATH7

TMA

t2X

JR0958

TMQ

,.ax

JR0959

JAEQ

YDBi

· .

~ JR696b

TMD

Lc+i4

JR0961

TDM

LV+14

SET

SORTB

JR0962

TMD

LC+16

0 JRC963

TDM

LV+16

SET

N2

JR0964

TMD

LC+28

JR0965

TDM

LV+28

SET

S4

JR0966

JMP

GATHl

JR0967

GATH2

TMD

LV+24

JR0968

JMP

B

BRING

ON

MULTC

JR0969 rixz 24t4X

JR0970

JMP

NBV

ON

MULTC

JR0971 :

TMA

T1

JR0972

TMD·

PTABL

END

CODE

JR0973

JAED

YDC

JR0974

TMD

LW+l

NO

JR0975

JMP

S

STORE

tN

MuLtc

JR0976

TIXZ

It5X

JR0977

JMP

NSW

NEXfsTORE

ON

MUCTC

JR0978

JMP

GATH2

JR0979

YDC

JMP

NUMAD

ADD

FRACTioNS

JR0980

TMb

LC+16

JR0981

TDM

LV+i6

SET

N2

JRD982

TMb

LC+28

JR0983

1DM

LV+28

SET

s4

JR0984

JMP

GAtH4

JR0985

GAtH4A

TMD·

'132

JR0986

rDxLc

j4X

Nl,4X

JR0987

TDXRC

IH,5X N2t5X

JR0988

JMP

BLOCK

TRANSFER

DATA

tABLE

0

J~0989

TMD

LC+25

JR0990

TDM

LV+28

SET

53

TO

54

JR0991

GATH4

TMD

Lc+i3

JR0992

TDM

LV+13

SET

SORTA

JR0993

TMD'

LV+i6

JR0994

JMP

B

BRING

ON

N2

JR0995

JAz

GATH3

JR0996

YDD

TMA

eNST

NO,1/1

•••••

JR0997

TMD

N2

.

JRD998

JAED

YDE

JR0999

TMb·

'(33

JRIOOO

roxLc

~4X

LV+28~4X

54

JRIOOl

TDXRC

lHt5X LW+l,5X

MULTC

JR1OO2

JMP

BSQ

BRING

STORE

QUANTITY

JR1003

TMD

Y27

JR1OO4

TOXLC

.4X LV+16t4X

N2

JR1005

JMP

BSQ

BRING

StORE

QUANfITY

JR1006

TMD

LC+13

JR1007

JMP

B

BRING

ON

sORrA

JR1OO8

TMD

PTABL

END

CODE

JRio09

JAED

GATH3

JRIOIO

TMD

P1ABL.+3

NO,A5rERlcK

JR10ll

TOM

T1

PRESENT

CHARACTER

JRI012

TMD

L\fJ+l

JRlot3

JMP

S

STORE

IN

tJtuL

rc

0 JR1014

TIXZ

1.5X

JR1015

JMP

NSW

ON

MULTC

JRI016

JMP

GATH5

JRI017

YDE

TMD

LC+13

JR1018

JMP

B

BRING

ON

SaRrA

JR1019

TMD

PTABL

END

CODE

JR1020

JAED

GArH5A

JRI02i

TMD

Y33

NO

JRI022

TDXLc

.4X LV+28f4X S4

C)

JR1023

rDXRC

lH;5X L

\'J+l,

5X

MUL.rC

JR1024

JMP

BSQ

BRING

STORE

QUANTITY

JRI025

GATH5

TMD

Y27

JRI026

TDXRC

IHt4X LV+13.4X

SORTA

JRI027

JMP

BSG

BRING

STORE

GROUP

JRIC28

Jr~p

GATH3

JR1029

GATH5A

TMD·

Y33

JRlO30

TDXLC

.4x

LV+28t4X S4

JRI031

TDXRC

lHtSX 6W+l,5X

MULTC

JR1032

JMP

BSQ

BRING

STORE

QUANTITY

JRI033

TMD

Y27

JR1034

TDXLC

.4X LV+16,4X

N2

JRI035

JMP

BSQ

BRING

STORE

QUANTITY

JR1036

GATH3

TrXZ

It5X

JRi037

JMP

SLWW

END

CODE

MULTC

JRI038

GATHX

JMP

(P)

EXIT

GATHER

JR1039

PAGE

JR1040

FACTOR

TJM

FACX

FACTOR

B

FROM

A

JR1041

JMP

OPEN

REMOVE

PARENtHESES

·JRI042

TMD··

Lc+l0

JR1043

TDM

LV+io

SET

MP

JRI044

TMD

LC+35

JR1045

TDM

LV+35

SET

PROG

JRt046

rrxz

35·,4X

JR1047

JMP

NBV-

ON

PROG

JRlO48

JMP

NBV-2H

NB

0 JR1049

JMP

NBV"'2H

NB

JRI050

JMP

NBV-2H

NB

JRIOSl

Tt-iD

Lc+1

JRIOS2

iDM

LV+1

SET

FOT

JRI053

TMD

Y34

JRIOS4

TDXLC

;4X

LV+35,4X

PROG

JRI0S5

TDXRC

IH.5X LV+l;5X

FOT

JRI056

JMP

BSQ

BRING

STORE

QUANTITY

JRI057

FeTRIl

TMD

L.c+i

JRI058

TDM

LV+l

SET

FaT

JRI059

TMD

LC+2

JRI060

TDM

LV+2

SET

OPENM

JRI061

TMD

LC+3

JR1062

TDM

LV+3

SET

Fl

JRI063

TMD

LC+4

JRI064

TDM

LV+4

SET

F2

JRI065

TMD

LC+5

JRI066

TDM

LV+5

SET

El

JR1067

TMD

LC+8

JR1068

TDM

LV+8

SET

t~Y

JRI069

TMD

LC+9

JR1070

TDM

LV+9

SET

MN

JR1071

eM

Fl

JRI072

eM

Fl+l

JR1073

eM

F2

0

JRI074

eM

F2+1

"clRI075

eM

EFFl

JRi076

TMD

LV+35

JR1077

JMP,

B

BRING

ON

PROG

JR1078

Tlxz

35,,4X

JR1079

JMP

N8V

ON

PROG

JRl0ab

itviA

fl'

JRI081

TMD

PTABL

END

CODE

JR1082

JAED

FCTRr:

C)

JR1083

TMD

LV+35

NO

JR1084

JMP

B

BRING

ON

PRot;

JRI085

TMD

PTABl..+7

COtvlMA

JRI086

JAED

FCTR20

JRi087

1MD

Lc·k3

NO

JRi088

TDM

LV+3

SET

Fl

JR1089

TMD

Y39

JR.1090

TDX~C

,4X LV+35.4X

PROG

JRI091

TDXRC

1H,5X LV+3,5X Fl

JRI092

JMP

BSQ

BRING

stORE

QUANTITY

JRI093

JMP

SLvJ-1H

END

CODE

Fl

JR1094

TMb

LV+35

JRi095

JMP

B

BRING

ON

PROG

JRld96

TMD

PTABL+4

$

JRI097

JAED

FC2

JR1098

tMb

CNST+2

1847

JRlcJ99

TDM

Tl

JRl100

tbM

EFFl

JR1101

TMb

LV+5

JRI102

JMP

S

STORE

IN

Ei

JR1103

TIXZ

5;5X

JR1104

JMP

NSV

Nt:XT

STORE

ON

Ei

JR1105 FCI

JMP

SLW-IH

JRil06

rt~D

'

Y40

JRll07

TDXLC

t4X

El,4X

JR1IOa

TDXRC

IH,5X EEl.5X

C)

JRII09

JMP

BLOCK

TRANSFER

DATA

TABLE

JRII1- 0

TMD

LC+5

JR1111

rDXLC

.3X

El

JR11r2

JMP

RT

BCD

TO

BIN

JRll1:1

'

TMD

~TW+l

JR1114

TbM

E1,

JRilT5

JMP

FACX+1H

JRTi16

FC2

rtxz 35,4X

JR11i1

JMP

NSV

ON

PROG

JR1118

1Mb

Lc+s

JRlt19

TOM

LV+5

SET

E1

JRti~O

FC2A

TMD

LV+35

JRli2i

JMP

8

BRING

ON

PROG

JRllZ2

TMD

PTABL+8

I

JR1123

JAED

Fei

JR1124

TMD

PTABL+1

cOt~MA

JRl125

JAED

Fcl

'

JRl126

TMb

LV+5

NO

JRl127

JMP

S

STORE

IN

El

JR1128 Ttxz

5tSX

JRli29

JMP

NSV

ON

Ei

J~1130

rtxz

35t4X

JRl131

JMP

NBV

ON

PROG

JRl132

J~~P

FC2A

JRl133

FcrRE

TMD

LV+2

0

JRl134

JMP

B

BRING

ON

OPENM

JRi135

TMD

PTABL

END

CODE

JRl136

JAED

(P)+5H

JRlt37

'TMD·

Y112

JRl138

TDX!.C

;4X LV+2t4X

OPENM

JR1139

TDXRC

IH~5X

LV+IOt5X

MP

JR1140

JMP

SSE

BRING

StORE

EXPRESSION

JRl141

F"CTEE

TIXZ

10t5X

JRl142

JMP

SLWV

END

CODE

MP

C',I

JR1143

TMD

LC+l0

JRl144

TbM

LV+IO

SET

MP

JRl145

JMP

B

BRIN'G

ON

MP

JR1146

TMD

PTABL

END

CODE

JR1147

JAED

FACX

TO

EXIT

JR1148

TMD

Y41

NO

JRl149

TDXLc

.4X

MP,4X

JRl150

rDXRC

IHf5X

OPENM~SX

JRl151

JMP

BLOCK

TRANSFER

DATA

TABLE

JRlt52

FACX

JMP

(P)

EXIT

FAcTOR

JRllS'3

TMD

LC+7

JRl154

TDM

LV+7

SET

G

JRltS5

TMD

LV+2

JRl-lS6

JMP

B-

BRING

ON

OPENM

JRli57

TtXZ

2;4X

JRllSS

JMP

NBV

ON

OPENM

J~1159

TMD

LV+7

JRl160

JMP

S

STORE

IN

G

JRl161

TIXZ

7~5X

JRl162

JMP

NSV

ON

G

JRl163

F'CTR14

TMD

LV+2

JR1164

JMP

B

BRING

ON

OPENM

JRi165

iMD

PTABL

END

CODE

JR1166

JAED

FCTR3

JRl167

TMD

PTABL+l

+

JRl168

JAED

FCTR3

0

JRl169

TMD

PTABL+2

JR1170

JAED

FCTR3

JRl171

TMD

LC+4

NO

JRli72

TDM

LV+4

SET

F2

JRl173

TMD

Y42

JRl174

'

TDXLC

t4X LV+2,4X

OPENM

JRl175

,

TDXRC

IH,5X LV+4,5X

F2

JRi176

JMP

BSQ

BRING

STORE

QUANTITY

JRl177

JMP

SL\'J-IH

END

CODE

F2

JRl178

TMD

LC+4

JRl179

TOM

LV+4

SET

F2

JRllS0

FC3

T~1A

Fl

JR1181

TMD

F2

JR1182

JAED

(P)+2H

JRl183

'

J~1P

FCTR6

JRl184

TMA

Fl+l

JR1185

TMD

F2+1

JRl186

JAED

FCTR2

JR1187

FCTR6

TMD

Y4~

JRl188

rDXLC

.4X LV+4,4X

F2

JRl189

rDXRC

IH,5K

LV+7,5X G

JR1t90

'

JMP

BSQ

BRING

STORE

QUANTITY

JRli91

eM

F2

JRl192

eM

F2+1

JRl193

JMP

FCTR14

0

JRl194

FCTR3

TIXZ

7;5X

JR1195

JMP

sLvJV

END

CODE

G

JRl196

TMD

LC+7

JRl197

TDM

LV+7

SET

G

JRli98

JMP

B

BRING

ON

G

JRl199

TIXZ

7t4X

JR1200

JMP

NBV

ON

G

JR1201

Ttvtb

LV+9

JR1202

JMP

S'

STORE

IN

MN

l/.'

JR1203 TixZ

9.5X

JR1204

JMP

NSV

ON

MN

JR1205

JMP

BSG

BRING

STORE

GROUP

JR1206 FCTRi3

TMD

LV+2

JR1207

JMP

B

BRING

ON

OPENM

JR1208

TMD

PTABL

END

CODE

J~1209

JAED

FC4·

JRI210

JMP

t=ACX+1H

JR1211

Fc4

TMA

LV+8

ANYTHING

STORED

IN

MY

JR1212

TMD

LC+8

JR1213

JAED

FCTRI1

NO

JR1214

Tlxt

S.5X

YES

JR12.15

JMP

sLwv

END

CODE

MY

.JR1216

A1XO

1.5X

JR1217

JMP

SLvl-iH

END

CODE

MN

JR1218

JMP

FCTR9

JRi219

i=cTR2

eM

E2

JR·1220

TMD

LC+6

JR122t

rDM

LV+6

SET

E2

JR1222

TMD

LV+2

JRi223

TDM

LitJ+2

SAVELOC

OF

OPENM

JR1224

JMP

S

BRING

ON

OPENM

JR1225

T-MD

.PTASL+4

$

JR1226

JAED

FC5

JR1227

TMD

CNST+2

NO,lB41

JR12Z8

rDM

Ti

PRESENt

CHARACTER

r-"

JR1229

TMD

LV+6

U JR1230

JMP

S

STORE

IN

'E2

JR1231

Ttxz

6,5X

JR1232

JMP

NSV

ON

E2

JR1233

JMP

FC6

JR1234

~C5

TIXZ

2f4X

JR1235

JMP

NBV

ON

OPENM

JR1236

TMC>

Y4S

JR1237

TDXLc

t4X LV+2,4X

OPENM

JR1238

TDXRC

iH.SX

lv+6,5X

E2

JR1·239

JMP

BSQ

..

BRING

stORE

QuANTITY

JRt240

.

FC6

JMP

sLvJ-1H

END

CODE

E2

JR1241

TMD-

Y46

JR1242 . rDxLc

.4x

E2,4X

JR1243

rDXRC

IH,5X EE2.5X

JR1244

JMP

BLoCK

TRANSFER

DATA

TABLE

JR1245

TMb

Lc+6

JR1246 rDxLc ,3X

E2

JRt247

JMP

RT

BCD

TO

BiN

JRi~48

tMb

RTW+i

JR1249

rOM

E2

JR1250

TMA

E1

JR12Si

TMD:

E2

JR1252

JAED

FCTR21

JR1253

JAGD

Fci5

C)

JR1254

TMD

Y43

JR125S'

TDXLc

,4X LV+4,4X

F2

JR1256

rDXRC

lH,5X LV+7,5X G

JR1257

JMP

SSQ

BRING

stORE

QUANTITY

JR1258

TMD

Y47

G/CSM,RtW+l~C/AM.EE2

JR12s9

JMP

~XPAD

EXPONENt

SUBTRACT

",I

JR1260

1Mb

LC+i8

JR1261

TDM

~V+18

SET

EE2

JR1262

JMP

B

BRING

ON

EE2

C)

JR1263 TtXZ

18,4X

JR1264

JMP

Nl3V

ON

EE2

JR1265

I~~A

T1

JR1266

TMD

CNST+2

lB47

JR1267

JAED

FCll

JR1268 Fe8

TMD

PTABL+4

NO,$

JR1269

TDM

T1

PRESENT

CHARACTER

J~1270

TMb

L..V+7

JR1271

JMP

S

STORE

IN

G

JR1272 '

T!XZ

7;5X

JR1273

JMP

NSV

ON

G

JR1274

TMD

LC+18

JR1275

TDM

LV+18

SET

EE2

JR1276

TMD

Y48

JR1277

TDXLC

.4X LV+18.4X

EE2

JR1278

TDXRC

IHt5X LV+7,5X G

JRi279

JMP

BSQ

BRING

STORE

QUANTITY

JR1280

FC9

TMD

Y49

JR1281

TDXLc

.4X 6V+2,4X

OPENM

JR1282

TDXRC

lHJ5X LV+7f5X G

JR1283

JMP

BSG·

BRING

STORE

GROUP

JR1284 FC10

JMP

SLW-IH

END

CODE

G

JR1285

TMD

LC4-7

JR1286

TDM

LV+7

SET

G

JR1287

JMP

B·

BRING

ON

G

JR1288

TIXZ

7t4X

0 JR1289

JMP

NBV

ON

G

JR1290

TMD

LV+8

JRi29:L

JMP

$

STORE

IN

MY

JR1292 rIXZ

8,5X

JR1293

JMP

NSV

ON

MY

JR1294

JMP

SSG

BRING

STORE

GROUP

JR1295

eM

F2

JR1296

eM

F2+t

JR1297

eM

E2

JR1298

TMD

LC+3

JR1299

TDM

LV+3

SET

Fl

JR1300

1MD

Lc+4

JR1301

TDM

LV+4

SET

F2

JR1302

TMD

LC+5

JR

1.:1

03

TDM

LV+5

SET

El

JRl~04

TMD

LC+6

JR1305

rDM

LV+6

SET

E2

JR1306

JMP

FCTR13

JR1307

Fell

TMD

LV+18

JRi308

JMP

B

BRING

ON

EE2

JR1309

TMD

PTABL

END

CODE

JR1310

JAED

f='C9

JR1:111

JMP

FC8

NO

JR1312

FCTR21

rIXZ

7t4X

JR1313

JMP

DECKV

bAST

BRING

ON

G

0 JR13T4

JMP

B

BRING

ON

G

JR1315

TMD

PTABL+3

ASTER

ICK

JRl:316

JAtD

FC9

JR1317

TIXZ

7J4X

NO

JRl:3t8

JMP'

N8V

ON

G

jRl~19

TMD

LV+2

-.1

JR13zC

JMP

B

BRING

ON

bPENM

JR1321

TMD

PI"ABL.f'3

ASTERICk

JR1322

JAEO

FC12

(

'.

JR13'23

TMb

v44

NO'CNST~Ti5

I JR1324

TDM

LW+3

SET

1/100

•••

_/

JR1325

TMD

Y56

JR1326

TOXLC

,4X

L.

\~+3

,4X

111

JR1327

TOXRC

iH~5X

LV+7,5X G

JR1328

JMP

BSQ

BRING

StORE

QUANTITY

JR1329

.JMP

r=C1O

JR1330

t=C12

TTXZ

2t4X

JR1331

JMP

NBV

ON

OPENM

JR1~32

JMP

FC9

JR1~33

FCTR20

TMD

Y5i

JR1334

TDXlC

.4X

OPENM.4x

JR1335

TDXRC

iH,5X

MY,5X

JR1336

JMP

BLOCK

TRANSFER

DATA

TABLE

JR1~31

TMb

LC+3

JR1338

TDM

LV+3

SET

Fl

JR1339 TtxZ

3,5X

JRi340

JMP'

SLWV

END

CODE

Fl

JR1~41

FCTR9

TMD

LC+8

JRf~42

TDM

LV+8

SET

MY

JR1:343

TMb

LV+35

JRi344

JMP

B

BRING

ON

PRot;

JR1345

TMD

PtABL+?

COMMA

JR1346

JAED

FC13

JR1347

JMP

FCtR23

NO

JR1348

Fci3

TIXZ

35,4X

C~)

JRi349

JMP

NBV

ON

PROG

JRia50

TMb

\(34

I

JR1351

ToXLc

.4X LV+35.4X

PROG

JR1352

TOXRC

iH,5X

LV+it5X

FaT

JRi353

JMP

BSQ

BRING

stORE

QUANTITY

JR1354

JMP

sLw-iH

END

CODE

Fot

JR1355

TMb

LC+8

J~1:j56

10M

Lww

SET

LOC

OF

MV

JR1351 '

JMP

stoT

STORE

EXPRESSION

ON

rApE

JRl~58

JMP

1=<::16

JR1359 ·Fci4

TMD

LC+8

JRt360

TDM

LV+B

SET

MY

JRl~6i

TMD

LC+l

JR1362

TDM

LV-rl

SET

FaT

JR1363

TMDI

Y52

JR1364

TDXLc

t4X LV+l;4X FOt

JRl~65

TDXRC

: iHt5X LV+8t5X

MY

JRi366

JMP

SSQ

BRING

STORE

QUANTITY

JR1:367 .

JMP

SLW-IH

END

CODE

MY

JR1368

·TMD

LC~8

JR1~69

TDM

LV+8

SEt

MY

JR1370

FCTR23

TMD

PTABL+l

+

jRl~71

TDM

r1

PRESENT

CHARACTER

jRl~72

TMD

l..V+IO

JR1373

JMP

5

STORE

IN

MP

(~)

JR1~74

Ttxz

io,sX

JRt~75

JMP

NSV

ON

MP

JRl:j76

TMD

LC+3

I

JR1377

TOM

LV+3

SET

Fl

JRt378

JMP

B

BRING

ON

Fl

JR1379

TMD

PI"ABL

END

CODE

;-

..

I

JR1380

JAED

Fe18

jRl~8i

TMD

PTASL+5

JRl~82

rDM

Ti

/'"

~

JR1383

TMb

LV+IO

I JR1384

JMP

S

STORE

IN

r-1p

"'-.j

JRl~85

JMP

NSV-2H

IN

MP

JR1386

TMD

Y53

NO

JRl~87

TDXLC

.4X LV+8,4X

MY

JRl~88

TDXRC

iH.5X LV+IQ,5X

MP

JRl~89

TMA

MY

JRl~90

SL.A

6

JR1391

TMD

Yl13

A/I/I

•••

oO$

J~1392

JAED

FFeT2

JR1~93

Jrv1p

SSE

BRING

STORE

EXPRESSION

JR1394

TMD

PTASL+6

)

JRl~95

TDM

11

JR1396

TMD

Lv+10

JR1397

JMP

S

STORE

IN

MP

JR1398

JMP

NSV-2H

IN

MP

JR1399

TMD

PiABL+3

ASTER

I

CK

JR1400

TDM

T1

PRESENT

CHARACTER

JR1401

iMD

LV+I0

JR1402

JMP

S

STORE

IN

MP

JR1403

JMP

NSV-2H

ON

MP

JRi404

FreTt

TMD

Y36

JR1405

TDXL.C

,4x

LV+3,4X

Fl

JR1406

J~1P

B$Q

BRING

STORE

QUANTITY

JR1407

TMA

EFFi

JR1408

TMD

CNST+2

1B47

(-~)

JR14b9

JAED

FeTRiC

JR141C

tMD

PTABL+4

$

JR14rl

TOM

T1

PRESENT

CHARACTER

JR1412

TMD

LV+l0

JR141:3

JMP

S

STORE

rN

MP

JR1414

JMP

NSV-2H

ON

MP

JR14l5

TMD

LC+17

JR1416

TDM

LV+17

SET

EE1

JR1417

TMD

Y23

JRl-418

TDXRC

IH~4X

LV+17.4X EEl

JR14l9

JMP

BSQ

BRING

STORE

QUANTITY

JR1420

FerRic

TMD

Y54

JR1421

TDXLc

,4X

MN,4X

JR1422

TDXRC

IH,5X

OPENM,5X

JR1423

JMP

BLOCK

iRANSFER

DATA

TABLE

JR1424

JMP

FCTR11

JR1425

FC15

TMA

E2

JR1426

TMD

CNST+2

1B47

JR1427

JAED

FCTR6

JR1428

TMD

Y43

JR1429

TDXbC

t4X

bV+4,4X

F2

JR1430

TDXRC

1H,5X

L.V+T,5X

G

JRi431

JMP

SSQ

BRING

S-rORE

QUANTITY

JR1432

TMD

PTASl..+4

$

JR1433

TDM

T1

PRESENT

CHARACTER

(')

JR1434

1MD

LV+7

JR1435

JMP

S

STORE

IN

G

j JR1436

JMP

NSV-zH

ON

G

JR1437

TMD

L.c+18

JR1438

TDM

LV+18

SET EE2

JR1439

TMD

Y48

'f'

-.J

JR1440

TDXLC

.4X LV+18.4X EE2"

JR1441

JMP

BSQ

BRING

STORE

QUANT

lTV

JR1442

eM

F2

C)

JR1443

eM

F2+1

JR1444

JMP

FCTRi4

JR1445

Fci6

TMD

ys4

JR1446 TbxLc .4X

MN,4X

JR1447

TDXRC

IH~5X

OPENM;5X

JR1448

JMP

BLOCK

fRANSFER

DATA

TABLE

JR1449

TMb

LC+9

JRt450

TDM

LV+9

SET

~1N

JRi4:si

TMD

LC+8

JR1452

TDM

LV+8

SET

MY

JR1453

TMD

LC+i

JRi454

TDM

LV+i

SEt

FOT

JR14S5

1Mb

LV+8

JR14S6

JMP

B

BRING

ON

MY

JR1457

TMD

PTABL

END

CODE

JR1458

JAED

F"CTR11

JR1459

TMb

Y55

NO

JR14bO

rDxLt

~4X

LV+l,4X

FOT

JR1461 TbxRc iH,5X LV+9,5X

MN

JR1462

JMP

BSQ

BRING

STORE

QuANtITY

JR1463

TMD

PTABL+9

EQuATE

sYMBOL.

JR1464

TDM

Tl

PRESENT

CHARAcTt:R

JR1465

TMD

LV+9

JR1466

JMP

S

STORE

IN

MN

J~1461

JMP

NSV-2H

ON

MN

JR1468

AIXO

7.4X

LV+8,4X

MY

C)

JRi469

JMP

SSE

BRING

STORE

EXPRESSION

JR1470

JMP

SLW-1H

END

CODE

MN

JR147i

TMb

LC+9

JR1472

TOM

LlfHv

SET

LaC

OF

MN

JR1473

JMP

EDT

PRINT

EXPRESSION

JR1474

TMD

Y54

JRt475

TDXRC

iH,4X

OPENM~4X

JR1476

TDXLC

.5X

MN,5X

JR1471

JMP

BLOCK

TRANSFER

DATA

TABLE

JR1478

JMP

FC14

JR1479

FC18

TMD

Y53

JR1480

TDXLc

.4X LV+8,4X

MY

JR1481

TDXRC

lH,5X

LV+I0t5X

MP

JR1482

JMP

BSE

BRING

STORE

EXPRESSION

JRi483

JMP

FCTEE

JR1484

FFCT2

TMD

LC+8

JR1485

JMP

B

BRING

ON

MY

JR1486

TMD

LV+I0

JRi487

JMP

5

STORE

IN

MP

JR1488

JMP

NSV-2H

IN

MP

JR1489

JMP

FFCTl

JRi490

PAGE

JR1491

SUBST

TJM

SBSTX

SUBSTITUTE

A

INTO

B

JR1492

TMD

L..C+l

JR1493

rDM

t..V+i

SET

FOT

0

JR1494

TMD

L.C+2

JR1495

TDM

LV+2

SET

OPENM

JR1496

TMD

LC+3

JR1497

TDM

LV+3

SET

Fl

JRI498

TMD

LC+31

JR1499

TDM

L.V+~l

SET

SUBSTB

JR1500

TMb

LC+35

JR150i

TDM

LV+35

SET

PROG

JRlS02

Ttxz

35.4X

:,:J

JR1503

JMP

NBV

ON

PROG

JR1504

JMP

NeV-2H

JR1505

JMP

NBV-2H

JR1506

JMP

NBV-2H

JR1507

TMD

Y34

JR1508

TOXLC

;4X LV+35,4X

PROG

JR1509

TOXRC

lH~5X

LV+l,5X

FOT

JR1510

JMP

BSQ

BRING

STORE

QUANTITY

JR1511 S85T4

TMD

LC+l

JR1512

TDM

LV+l

SET

For

JR1513

TMD

I...V+35

.JR1514

JMP

B

BRING

ON

PROG

JR1515'

TMD

PTABL

END

CODE

JR1516

SBSTX

JAED

( P)

EXIT

SUBST

JR1517

eM

FOT

NO

JR1518

eM

FOT+l

JR1519

TIXZ

35,4X

JR1520

JMP

NBV

ON

PROG

JR1521 .

TMD

Y34

JR1522

TDXRC

IH,5X bV+l,5X

FOT

JR1523

JMP

SSQ

BRING

STORE

QUANTITY

JR1524

JMP

SLW-IH

END

CODE

FOT

JR1525

TMD

LC+30

JR1526

TDM

Lww

SET

SUBsiA

JRi527

JMP

BRFT

BRING

FROM

JAPE

0 JR1528

SBST2

TMD

LC+30

JR1529

TDM

LV+30

SET

sUBsrA

JR1530

TMD

LC+3

JR1531

TDM

LV+3

SET

Fl

JRi532

eM

F1

JR1533

eM

Fl+1

JRi534

TMD

LV+2

JRi535

JMP

B

BRING

ON

OPENM

JR1536

TMD

PTABL

END

CODE

JR1537

JAED

SBST3

JR1538

TMD

Y35

NO

JR1539

TDXLC

.4X

hV+2~4X

OPENM

JR1540

rDXRC

IH,5X lV+3,5X

Fl

JRi541

JMP

BSQ

BRING

STORE

QUANTITY

JR1542

JMP

SLW-IH

.

ENO

CODE

Fl

JR1543

TMA

Fl

JR1544

TMD

FaT

JR1545

JAE:D

(P)+2H

JR1546

JMP

YEA

JRl$47

TMA

Fl+l

JR1548

TMD

F01+1

JR1549

JAED

YEB

JR1550

YEA

TMD

LC+3

JR1551

TDM

LV+:3

SET

Fl

JR1552

TMD

Y36

JR1553

TDXLC

*4X

L.V+3,4X

Fl

0 . JR1554

rDXRC

lH,5X'

l:V+31.5X

SUBSTB

JR1555

Jr~p

8SQ

BRING

stORE

QuANTITY

JR1556

JMP

SBST2

JR1557

YE:B

TMb

PTABL+5

t

JR1558

TDM

T1

PRESENT

CHARACTER

JR1559

iMD

LV+31

JR1560

JMP

S

STORE

IN

SUBSTB

JR1561 Ttxz

31~5X

JR1562

JMP

NSV

ON

SUBSTB

0 JR1563

TMD

LC+30

JR1564

T6M

LV+3O

SET

sUBsrA

JR1565

TMD

Y37

JR1566

TDXLc

,4X LV+30,4X

SUBSTA

JR1567

TDXRC

IH,5X LV+31,5X

SUBSTB

JRi568

JMP

BSE

BRING

StORE

EXPRESSION

JR1569

TMD

PTABL+6

)

JR1570

TDM

11

PREsENT

CHARACtER

JR1571

TMb

LV+31

JR1572

JMP

S

STORE

IN

SUBSTB

JR1573

JMP

NSV-2H

ON

SUBSTB

JRi574

JMP

SBST2

JR1575 58ST3 Ttxz

3i,sx

JRt576

JMP

sLwV

END

CObE

SUBSTB

JR1577

1Mb

'(38

JR1578

TDXLc

J4·X

SUBSTB,4X

JR1579

TbXRC

iH,SX

OPENM~5X

JRis80

JMP

BLOCK

TRANSFER

DATA

TABLE

JRis8i

TMb

LC~2

JR1582

TDM

LV+2

SET

OPENM

JR1583

TMb

LC+30

JR1584

TDM

LV+30

SET

SUBsTA

JR1585

TMb

LC+31

JR1586

rbM

LV+31

SET

SUBSTB

JR1587

JMP

SBST4

JR1588

PAGE

0 JR1589

LAlGY

TIJ

SEARCH

ALGEBRAIC

PROCESSOR

SANFORD

JR1S90

TJM

AL3

SET

UP

tAPE

SEARCH

JR1591

JMP

ALl+2H

JR1592

LALl

fIJ

LOCATE

SET

UP

PROGRAM

LOCATE

JR1'593

TJM

AL3

JR1594 rcoz

JR1595

TMA

Y99

USE

NO'TlS

....

USE

LOC,T:39

JR1596

JMP

PINT

JR1597

TMD

LC+37

JR1598

TDM

LV+37

SET

PROGB

JR1599

TMA

USE+l

USE

1

FOR

SCRAtCH

TAPE

JR16.o0

JMP

IN

TAPE

INITIALIZATION

JR160i

JMP

. Rwscr

REWIND

SCRATCH

TAPE

JR1602

AL.3

JMP

(P \

S~ARCH

OR

lOCAtE

JR1603

TMD

PTABL.+1

+

JR1604

TDM

DATA-2

StORE 1ST

BLK

MARKER

JR1605

JMP

WFD

WRITE

1

BLK

FORWARD

JR1606

TMD

PTABL+2

JR1607

TDM

DATA-2

STORE

LAST

BL.K

MARKER

JR1608

JMP

WFD

~JR

I

TE

1

BLK

FORWARD

JR1609

JMP

BSD

BACKSPAcE

1 BlK

JRi610

JMP

PAGE

EJECT

PAGE

ON,

PRINTER

JR1611

TEST

TMD

Y59

tEST

ON

COMr-1AND

ID

JR1612

TDXLC

t4X

LV+37,4X

JR1613

Jt-1P

Bl

BRING

IGNORE

ON

PROGB

0

JR16r4

1Mb

PTABL+15

E

JR1615

JAED

EQUATE

JR1616

TMD

PTABL+16

r

JR1617

JAED·

INEQT

JR1618

TMD

PTABL.+20

B

JR1619

JAED

BUG

JR16Z0

1Mb

PrABL+i2 s

JR1621

JAED

SBST

JR1622

TMb

PTABL+23

F

JR1623

JAI:D

FCTR

C' JR1624

TMb

PTABL+l1 0

JRi625

JAED

OPN

JR1626

TMD

PTABL+18

T

JR1627

JAED

TRIG

JR1628

TMD

PTABL+24

P

JR1629

JAED

PUNCH

JR1630

TMD

PTABL+1O

D

JR1631

JAED

DONE

JR1632 '

TMD

PTABL+17

l

JR1633

JAED

FINI

JR1634

JMP

BF11-4H

JR1635

EQUATE

CM

OPENM-l

JR1636

TMD

LC+2

JRi637

TDM

LV+2

SET

OPENM

JR1638 '

TMD

LC+39

JR1639

TDM

L.V+39

SET

OPENM--2

JR1640

Ttxz

37,4X

LV+37,4X

JR1641

JMP

NBV

ON

PROG8

JR1642

J~1P

NBV-2H

JR1643

JMP

NBV-2H

JR1644 '

JMP

NBV-2H

JR1645

TMD

V61

JR1646

TDXRC

IH.5X LV+39,5X

OPENM

.....

2

JRi647

JMP

8S1

BRING

STORE

EXPRESSION

JR1648

JMP

SL,vJ-1H

END

CODE

OPENM-2

0 JR16'49

JMP

NBV-2H

ON

PROGB

JR1650

TMD

Y35

JR1651

TDXLc

~5X

LV+2,5X

OPENM

JR1652

JMP

BSI

BRING

STORE

EXPRESSION

JR1653

JMP

Sl:hf-1H

END

CODE

OPENM

JR1654

JMP

NBV-2H

ON

PROGB

JR1655

JMP

OUTPUT

PRINT

AND

STORE

JR1656

tNEQT

TIJ

BRFT

JR1657

tJM

SRNGX-IH

JR1658

JMP

BRNG

BRING

FROM

DATA

TAPE

JR1659

TIJ

BRFTD

JR1660

TJM

BRNGX-IH

JR166i

TMb

LC+35

JR1662

TDM

LV+35

SET

PROG

JR1663

TMD

Lc+1

JR1664

TDM

LV+l

SET

FOT

J~1665

TIXZ

35~4X

JR1666

JMP

NSV

ON

PROG

JR1667

JMP

NBV-2H

JR1668

JMP

NBV-2H

JR16'69

JMP

NBV-2H'

JR1670

TMD

LC+7

JR1671

TDM

LV+7

SET

G

JR1672

TMb

Y62

JR1673

TDXLC

.4X

LV+35.4X-

PROG

JR1674

TDXRC

IH,5X

LV+7~5X

G

0 JR1675 ,

JMP

SSQ

BR1NG

StORE

QUANTITY

JR1676

rNE

rMb

LV+35

JR1677

JMP

B

BRING

ON

PROG

JR1678

Ttxz

35~4X

JR1679 ,

JMP

NBV

ON

PROG

JRi680

TMA

T1

JR1681

TMb

PTABL

END

CODE

JRi682

JAED

TEST

('i

JR1683

TMb

Y34

JR1684

TDXRC

IH,5X

LV+1,5X

FOT

/'

JR1685

JMP

BSQ

BRING

StORE

QUANTITY

JR1686

JMP

SLw-iH

END

CODE

FOt

JR1681

TMD

LC+2

JR1688 '

TDM

LW\o,J

SET

LOC

OF

OPENM

JR1689

JMP

STOT

STORE

ON

TAPE

JR1690

TMD

LC+1

JRi69i

TDM

Lv+i

SET

FOT

JRi692

JMP

INE

JR1693

JMP

TEST

JR1694

BUG

JMP

BRNG

BRING

FROM

TAPE

DESTROY

tAG

JRt695

SSST

JMP

BRNG

BRING

AND

DESTROY

TAG

JR1696

JMP

SUBST

SUBSTITUTE

JR1697'

JMP

OUTPUT

PRINT

AND

STORE

JRi698

FCTR

JMP

BRNG

BRING

AND

DESTROY

JR1699

JMP

I=ACTOR

FACTOR

JR1700

JMP

OUTPUT

PRINT

AND

STORE

JR1701

,OPN

JMP

BRNG

BRING

AND

DESTROY

JRI102

JMP

OPEN OPEN

JR1703

JMP

OUTPUT

PRINT

AND

STORE

JR1704

TRIG

JMP

BRNG

BRING

AND

DESTROY

JR1705

TMD

LC+35

JR1706

TDM

LV+35

SET

PROG

JR1707

TIXZ

35,4X

JR1708

JMP

NBV

ONPROG

(j

JR1709

JMP

NBV-2H

JR1710

JMP

NBV-2H

JRi711

TMD

LV+35

JR1712

JMP

8

BRING

ON·PROG

JR1713 '

TMD

PTABL+19

A

JR1714

JAED

TRGA

JR1715

iMD

PTAB~+20

B

JRi716

JAED

TRGB

JR1711

TMD

PiABL+21 C

JR17'18

JAED

TRGC

JRi719

HbT

ERROR

HALT

JR1120

TRGA

JMP

OPEN

REMOVE

PARENTHESES

,

JRi721

JMP

(P

),

TRIGA

JR1722

JMP

OUTPUi

PRINT

AND

STORE

JR172~

TRGB

HLT

JR1724

TRGC

HLT

JR1725

PUNCH

HL.T

JR1726

DONE

TMD

LV+37

JR1721

TDM

Lt~vJ

SET

LOC

OF

PROGB+

JR!728

JMP

EDT

PRINt

JRli'29

JMP

RWSCT

RE\tJ1ND

SCRATCH

TAPE

JR1730

TMb

LV+37

JR1731

JMP

B

BRING

ON

PROGB

JR1732

TIXZ

37,4X

JR1733

JMP

NBV

ONPROGB

r-~',

JR1734

TMA

T1

(J'

JR1735

TMD

PTABL

END

CODE

JRI736

JAED

AL3+1H

JR1737

JMP

DONE+4H

JR1738 FINI

JMP

PAGE

EJECT

ON

PRINTER

JR1739

TMD

FIN2

()

\)

.......

,

JR174C

JR1741

JR1742

JR1743

JR1744

JR1745

JR1746

JR1747

JR174B

JR174'9

JR17S0

JR1751

JR1752

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

FINl

R

FIN2

FIN3

FTN4

BRNG

BRNGX

OUTPUT

rbxLc

,1x

TrvtD

.1X

RPTNN

8

rDC

SCD

42

TMD

FIN3

AIXJ

1.lX

JMP

FINISH

J~1P

~~/620

P!FIN4,T15

C/HLTtFIN4+3-C/JMPtFINl$

A/IFINISH

OF

ALGY

RUN

1$

T

J~1

BRNGX

TMD

LC+35

TOM

LV+35

TMb

Y59

TDXLc

,4X

TDXRC

IH,5X

JMP SS!

JMP

NBV-2H

JMP

SLW-IH

TMD

LC+35

TDM

L\vW

JMP

EDT

eM

FOT+l

TMD

LC+l

TD~1

LV+l

TMD

LC+35

TD~~

LV+35

Trxz

35,4X

JMP

NBV

JMP

NBV-2H

JMP

N6V~2H

JMP

NSV-2H

TMD

..

"

..

-_

Y52

TDXLc;5X

JMP

BSQ

JMP

SL\~-lH

TMD

FaT

TDM

OPENM-2

TMD

FOT+l

TDM

OPENM-l

TMD

LC+2

TDM

L\!JW

JMP

SRFTD

J~1P

(P)

TMD

OPENM-2

TDM

FOT

TMD

OPENM-l

TDM

FOT+l

TMD

LC+2

TDM

LWVJ

TMD

LC+39

TDM

LV+39

TMD

LvJ\~

Jlv1P

B

Tr-.tO

PTABL

JAED

(P}+2H

JMP

Otl-1H

TMD

Y60

BRING

PROM

SCRATCH

SET

PROG

LV+37.4X

PROGB

LV+35J5X

PROG

BRING

STORE

EXPRESSION

ON

PROGB

END

CODE

PROG

SET

LOC

OF

PROG

PRINT

SET

FOT

SET

PROG

LV+35,4X

ON

PROG

"--.

LV+l,5XFOT

BRING

STORE.

QUANTITY

END

CODE

FOT

SET

LOC·OF

OPENM

BRING

AND

DESTROY

TAG

EXIT

STORE

AND

PRINT

RESULTS

SET

LaC

OF

OPENM

SET

OPENM-2

BRING

ON

END

coDE

.--

0/1

•••••

,,~'

. '\

Ll

o

JR1800

JR1801

JR1802

01"1

JR1803

JR1804

JR1805

JR1806

JR1807

JR1808

JR1809

JR181C

JR1811

JR1812

JR1813

OT2

JR1814

JR1815

JR1816

JR18-17

JR1818

JR1819

JR1820

JR18Z1

JR1822

JR1823

OT3

JR1824

JR1825

JR1826

JR1827

JR1828

~E

JR1829

SEARCH

JR1830

JRt831

JR1832

~R1833'

JR1834

JR1835 LI5

JRl'836

JR-1837

JR1838

JR1839

LT6

JR1840

JR1841

JR184Z

JR1843

JR1844

JR1845

JR1846

JR1847

'jR1848

JR1849

JR1850

JRi851

JR1852

LT7

JR1853

JR1854

JR1855

JR1856

SEAX

JR1857

L;OCATE

JR1858

JR1859

TbM

OPENM

JMP

STaT

T

fv1

D '

LV

-¥

3 9

,

JMP

B- '

TMD

PTABL

JAED

(P)+4H

Trxz

39~4X

JMP

NBV

JMP

OTl

TMD

PTABL+9

rDM

Tl

TMD

LV+39

JMP

S

T(Xl

39;4X

J~1P

NBV

TMA

LV+39

TMD

L.C+2

JAED

OT3

TMD

PTABL+13

rDM

Tl

TMD

LV+39

JMP

S

JMP

OT2

TMD

LC+39

TDM

6WW

JMP

EDT·,

JMP

TEST

PAGE

--.

._

EDIT

INPUT

PROGRAM

TJM

SEAX

TIJ

LtX

TJM

LTZ

JMP

LOCATE

TIJ

LTZ+IH

TJM

LTZ

TMA

USE

JMP

.

IN

TMD

Y64

TDXLC:

.7X

TMA

.1X

Tfv1D

Y65

JAED

LT7

TMA

Y66

TMQ

V67

EISJ7X

TMD

Y68

AI

XJ

10

~

7X

JMP

BsseT

TMA

Y64

JMP

WTSCT

JMP

REP

JMP

L

T5,

JMP

BsseT

TMA

Y64

..

JMP

Hisex·

JMP

LOCATE

JMP

(P)

TJM

LTX

TMA

USE

JMP

IN

-

STORE

ON

TAPE

BRING

ON

OPENM"2

END

CODE

ON

OPENM-Z

",

PRESENT._CHARACTER

EQUATE.SYMBOL

STORE

IN

OPENt-1

....

2

.ON

OPENM~2

DOES

(LV+39)

EQUAL

OPENM

r

GNORE

..

_

..

PRESENT

CHARACTER

STORE

IN

OPEN~1-2

OPENM--Z

SET

LOC

OF

OPENM-2

PRINT

RETURN

to

TEST

DESTROYING

SEQUENCE

NOS

EXIT

LOCATE

PREMATURE

LOCATE

INPUT

PROGRAM

SET

NORMAL

EXIT

IN

LOCATE

USE

ZERO

INITIALIZE

PROGB~T15

lON

TH

\IJORD

A/LAST

$

8/1100.00

_.

24/0-z4/1

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

o

JR1860

JR1861 LTI

JR1862

J~1863

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

STX

JR1916 *

JR1917

BRFT

JR1918

JR1919

JMP

Jt~P

TMA

TMD

JAED

TMD

JAED

JMP

TMD

TDM

JMP

TMD

TDXL.C

TMD

RPTNN

'fDC

seD

TMD·

AIXJ

HLT

R\~SCj

RFP

PROGB

Y69

LT2

Y65

LTX+1H

LT1

L T2+iH

Y66

PROGB

( P )

Y70

,IX

8

JMP

LT1-IH

A/1PROGRAM

NOT

TJM

STX

JMP

RI'=D

TMA

DATA-2

TMD

PTABL+2

JAED

tP)+2H

JMP

STOT+IH

TMD

LC+36

TDXLC

J2X

RPTA

128

eM

,2X

TMD'

LC+l

TDM

L..V+l

TMD

LC+36

TOM

LV+36

TMD

LC+27

TDM

LV+27

JMP

BSD

iMD

X79

rDxLc

;4X

TDXRC

1.1:1,5X

JMP

BSE·

JMP

SLvJ-IH

1Mb·

yeo

TDXLC

t4X

TDXRC

1H,5X

JMP

'aSE

J~4P

SLvJ-1H

JMP

t~FD

T~1D

P

TAB

L.+2

tDM

DATA-2

JtvlP

.

WFD

JMP

BSD

JMP

(P)

.SEARCH

DA

IA.

FOR

r

Jtvt

BRF

TX

CM

SCNT

TIJ

BF9

~.

,~.

REW!ND

iNPUT

TA~E

READ

B~K

INPUT

TAPE

A/

B $

A/LAsT

$

8/110000

EXIT

P/LT4JT15

ON

TAPE

I$

STORE

ON

TAPE

READ

FORWARD

DATA

TAPE

IS

IT

L.AST

BLOCK

MARKER

YES

NO.READ

ANOTHER

BLK

DATA-2

FOT

DATA-2

DATA

BACkSpAcE

DATA

TAPE

LV+l,4X

FOT

LV+36,5X

DATA-2

-

__

BRING

STORE

EXPRESSION

END

CODE

DATA-2

L~J\VtT15

LV+27,t39

DATA

BRING

STORE

EXPRESSION

END

CODE

DATA

vJRItE

DATA

TAPE

LAST

BLOCK

MARKER

WRITE

FORWAR~

DATA-TAPE

BACKSPACE

DATA

TAPE

EXIT,

NAME

EQUAL

TO

CONTENTS

OF

FOT.+1

BRING

~ROMDATA

TAPE

BbK

COUNTER

DO

NOT

DESTROY

NAME

JR1920

rJM

BF8

JR1921

JMP

BFl

JR1922

BRFTD

TJM

BRFTX

BRING

DESTROY

TAG

0 JR1923

cr;1·

BCNT

BLK

COUNTER

JR1924

TIJ

BF8+IH

JRI925

TJM

BF8

JRI926

BFI

TMD

[..C+27

DATA-2

JR1927

TDM

LV+27

JR1928

BF2

INCAL

BCNT

JR1929

JMP

RFD

READ

I BlK

FROM

DATA

TAPE

JR1930

TMA

DATA-2

NAME

.•.

JRI931

TMD

PTABL+2

'

IS

LAST

BLK

MARKER.-

JR1932

JAED

BF4

YES

TO.BF4

JR1933

TMA

FO.T-.

DESIRED

NAME

JR1934

TMD

DATA-2

NAME

JR1935

JAED

BF3

YES

TO

BF3

JR1936

JMP

BF2

NO

ro

BF2

JR1937

BF3

1MA

FOT+l

20ND

PART

OF

NAME

JR1938

TMD

DATA-l

JR1939

JAED

BF8

SAME

NAMES

TO

BFa

JR1940

JMP

BF2

NO

RETURN

BF2

JR1941

BF4

TMD·

BeNT

JR-1942

TDXLC

".lX

NOo

OF

BlKS

PROCESSED

JR1943

JMP

B$D

BASK

SPACE

1

BLOCK

JR1944

CD

JRl945

sixOL

t,1X

JR1946

JNO

(p.)

-3H

JR1947

BF5

JMP

RRD.

READ

IN

REVERSE

DATA

TAPE

JR1948

TMA

DATA+125

NAME

C)

JRl949

TMD

PTABL+l

PLUS

JR19;;C

JAED

BRETX+'lH

NOT

ON

TAPE

ERROR

EXIT

JR1951

TMD

FOT

DESIRED

NAME

JRI952

JAED

BF6

EQUAL

TO~BF6

JR1953

JMP

BP5

UNEQUAL

to

BF5

JR1954

BF6

TMA

DAfA+124

20ND

PART

OF

NAME

JRl955

TMD

FOr+l

20ND

PARt

OF

DESIRED

NAt4E

JR1956

JAED

BF7

EQUAL

TO

BF7

JR1957

JMP

BF5

UNEQUAL

TO

BF5

JR1958

BF7

JMP

RFD

READ

FORWARD

DATA

TAPE

JR1959

BF8

JMP

( P j

S\~I

TCH

10

DESTROY

OR

NOT

JR1960

JMP

BSD

BACKSPACE

DATA

TAPE

JR1961

eM

DAtA~2

CLEAR

THE

NAME

JR1962

eM

DATA-i

...

"

JRI963

JMP

WFD

WRITE

FORWARD

DATA

TAPE

JR1964

BF9

TMD···,,·_.:

Y72

JR1965

TDXLC

t4X

LV+27t4X

DATA

JRI966

TDXRC

IH~5X

LvJvh5X

JRl967

JMP

BSE

BRING

STORE

EXPRESSION

JR1968

JMP

SLW-1H

END

CODE

JR1969

SRFTX

JMP

(P)

EXIT

JR1970

TMD·

Y73

P

ISFII,T

15

JR1971

TDXLC

,IX

JR1972

BF10

TMD

,

IX

JR1973 R

RPTNN

a

0 JR1974

TDe

JR1975

seD

42

JR1976

TMD

Y74

G/HLTtBFI1+3-C/JMP~SFIO

JR1977 A1XJ

1,lX

JR1978

JMP

PAGE

JR1979

NOP

TRAP

LOCATION

, .

JR1980

JMP

FINISH

JRt981

JMP

FLEXO

JRi982

BF11

AlIEXPRESSION

NOT

ON

TAPEI$

0 JR1983

SeNT

D/O

JR1984

PAGE

JRi985

EDT

TJM

EDTX

EDIt

AND

PRINT

OUTPUT

JR1986

TMD

LC+~4

JR1987

TDM

LV+34

SET

BUFF

JR1988

TDXLc

~2X

JR1989

TMD'

Y66

8/110000

JR1990 L

RPTA

15

JR1991

TDM

1,2X

JR1992

EDfD

TtvlD

L.WW

JR1993

JMP

B

BRING

ON

LvH~

JR1994

TMD

'Y72

JR1995

TDXRC

IHj,4X

JR1996

JMP

NBV

....

2H

ON

LWW

JR1997

TMA

Tl

JR1998

TMD

PTABL

END

CODE

JR1999 ,JAED

EDTC

JR2000

TMD

Y75

C/HLTLtPTABL

JR2001

TDXLc

.2X

JR2002

TMA

Tl

,-

JR2003 R

RPTAN

10

IS

IT

A

SPECIAL

CHARACTER

!iR2004

TMD

1.2X

JR2005

JAED

EDTB

JR2006

TMD

LV+34

JR2007 .

Jf'.1P

5

STORE

IN

BUFF

JR2008

Ttxz

34,5X --

__

.,0

0 JR2009

JMP

NSV

IN

BUFF

JR2010

JMP

EDTD

JR2011

EDTB

eM

LwX·

-

JR2012

TIJ

TAB-PTABL-1.ZX

JR2013

TJ~1

LWX

JR2014

TMD·

Y76

JR2015 TbxLc

t4X

LWX.4X

5S

JR2016

TDXRC

IH~5X

LV+34.SX

BUFF

'JR2011

JMP

BSE

BRING

stORE

EXPRESSION

JR2018

JMP

EDTD

JR2019

EDTC

TMD

LV+34

JR2020

JMP

S

STORE

IN

BUFF

JR2021 '

JMP

PRINT

-JR2022

ED

TiC,

JMP

(P)

EXli

EDIT

JR2023

PRINT

TJM

(P)+3H

JR2024

TMA

Y77

JR2025

JMP

PANT

JR2026

JMP

<p)

JR2027

SPACE

3

JR2028

RFP

TJM

RFPX

READ

FROM

PROGRAM

TAPE

JR2029

TIJ

RD

READ

FORWARD

1

B.LK

JR2036

rJM

RDl

JR2031

TJM

RD2

JR2032

TMA

USE

ZERO

FOR

PROGRAM

tAPt::

JR2033

JMP

iN

INItIALIZE

CONtROL

0 JR2034

IMA

Y64

P/PROGB

JR2635

JMP

Roser

READ

i

BLOCK

JR2036

TMA

U5E+i

USE

1

FOR

DATA

TAPE

JR2037

JMP

IN

INItIALIZE

'JR2038

RFPX

JMP

(p)

EXIT

JR2039

SPACE

3

·.

JR2040

RFD

TJM.

RFDX

READ

FROM

DAtA

rAPE

JR2041

TIJ

RD

READ

FORWARD

JR2042

rJM

ROl

l)

JR2043

TJM

RD2

JR2044

RFDl

TMA

Y78

DATA-2tT15

JR2045

JMP

RDSCT

READ

1

BLOCK

JR2046

RFDX

J"MP

(

P)

EXIT

JR2047

SPACE

3

JR2048

RRD

TJM

RFDX

READ

REVERSE

DATA

TAPE

JR2049 TIJ

RDR

READ

BACKWARD

JR2050

rJM

RD1

'JR2051

TJM

RD2

JR2052

JMP

RFD1

JR2053

SPACI:

3

JR2054

WFD

TJM

vJFDX

vJRITE

ON

DATA

TAPE

JR2055

TMA

Y78

DATA-2,r15

JR2056

JMP

\vTSCT

WRITE

1

BLOCK

JR2057

vJFDX

JMP

iP)

EXIT

JR2058

SPACE

3

JR2059

BSD

TJM

BSDX

BACKSPACE

THE

DATA

TAPE

JR2060

JMP

BSSCT

BACKSPACE

1

BLOCK

JR2061

BSDX

Jt~P

(P)

EXIT

JR2062

PAGE

JR2063

EXPAD

TD~1

EXPV

EXPONENT

ARITHMETIC

JR2064

TJM

EXPX

JR2065

TMD

LC+18

EE2

JR2066

TDXLC

t3X

JR2067

JMP

RT

BGD

TO'BINARY

CONVERSION

C'

JR2068

TMD

RTW+l

RESULTING

CONVERSION

JR2069

TDM

EE2

'

JR2070

TMD

LC+17

EEl

JR2071

TDXLC

,3X

"JR2072

JMP

Rt

BCD

TO

BIN

CONVERSION

JR2073

EXPV

0/0

JR2074

TAQ

JR2075

JMP

TR

BINARY

TO

BCD

CONVERSION

JR2076

TMD

LC+32

JR2077

TDM

LV+32

SET

TRU

JR2078

TMD

LC+18

JR2079,.

TDM

LV+18

SET

EE2

JR2080

EXPZ

TMD

LV-ft32

JR2081

JMP

B

BRING

ON

TRU

JR2082 Ttxz

3294X

JR2083

JMP

NBV

ON

TRU

JR2084

TMA

T1

:JR2085

JAZ

EXPZ

~R2Q86

TMD

PTABL

END

CODE

JRZ087

JAED

EXPX+1H

JR2088

EXP~J

TIXZ

32~4X

JR2089

JMP

DECKV

La

ON

TRU

JRZ090

TMD

Y63

JR2091

TDXLc

.4X LV+32,4X

TRU

JR2092

TDXRC

lHiJ5X

lV+18t5X

,EE2

JR2093

JMP

BSQ

BRING

STORE

QUANTITY

0 JR2094

JMP

sbW-1H

END

CODE

EE2

JR2095

EXPX

JMP

( P )

JR2096

eM

Tl

. JR2097

TMD

LV+18

JR2098

JMP

S

STORE

IN

EE2

JR2099

TIXZ

i8~5X

o

C)

JR2ioo

JR2101

JR2i02

JR2103

JR2104

JR2105

JR2106

JR2107

JR2108

JR2109

JR2110

JR2111

JR2112

JR21l3

JR2114

JR2115

JR2116

JR2i-17

JR2118

JR2119

JR2120

JR2121

JR2122

JR2123

JR2124

JR2i25

JR2126

JR2127

JR2128

JR2129

JR2130

JR2131

JR2132

JR2133

JR2134

JR2i35

JR2136

JR2137

JR2138

JR2139

JR2140

JR2141

JR2142

JR2143

JR2l-44

JR2145

JR2146

JR2147

JR2148

JR2149

JR2150

JR2151

JR2152

JR2153

JR2154

JR2155

JR2156

JR2157

JR2158

JR2159

JMP

NUMAD

TJM

reoz

JMP

TMA

TMQ

SLQ

JAEQ

CSMS

TMA

JAEQ

CSM$·

TMQ

MM

JAZ

JMP

TQM.

TMQ

MM

JAZ

AM

JAZ

JMP

TQM

TMQ

MM

JAZ

AM

JAZ

JMP

TQA

AMS

JOF

TMQ

JAP

CAMAs

TMQ

S6Q

TQM

TMD

TDM

JMP

P6UX

JMP

Dlo

SPACE

NUMULT

TJM

JMP

TMQ

MM

JAZ

J~1P

TQM

TMQ

MM

JAZ

Jrv1p

TQM

JMP

XX

JMP

Nsv

EXPW

PLuX

MUA

$·3

PTABL+1

42

(P)+2H

NUMER

S4

(P)+2H

RT\v+2

DENOM

RTW+l

(P)+ZH

WOLF

pLUX+l

NUMER

RlvJ+l

(P)+4H

CNST+2

(P)+2H

WOkF

NUMER

DENOM

RT~v+2

(P)+4H

CNST+2

(P)+ZH

vJOlF

NUtv1ER

WOLF

PTABL.+i

(P)+3H

NUMER

PTABL+2

42

s4

PLux+1

DENOM

MUB

(P)

3

XX

MUA

RTW+2

NUtJ1ER

(P)+2H

VJOLF

NUMER

RT\AJ+l

DENOM

(P)+2H

WOLF

DENOM

MUB

(P)

ON

EE2

ADD

FRACTIONS

CONVERT

FROM

BCD

TO

BINARY

SIGN

OF

Nl

+

IS

N1

POSITIVE

NO;'-NUMERATOR

Nl

SIGN

OF

N2

IS

N2

POSITIVE

NO,

-NUMERATOR

N2

DENOMINATOR

Nl

DENOMINATOR

NZ

ERROR

EXIT

NUMERATOR

Nl

DENOMINATOR

NZ

1B47

ERROR

EXIT

DENOMINATOR

N1

NUMERATOR

N2

1B47·

ERROR

EXIT

AD

+

CB

ERROR

EXIt

+

ASSOLUTESUM

SIGN

OF

SUM

PRODUCT

OF

DENOMINATORS

REDUCE

AND

CONVERTBIN.BCD

EXIT

MULTIPLY

FRACTIONS

CONVERT

TO

BINARY

NUMERATOR

OF

N2

NUMERATOR

OF

Nl

IF

EXACT

JMP

ERROR

EXIT

PRODUCT

NUMERATOR

DENOMINATOR

OF

N2

DENOMINATOR

OF

Nl

IF

EXACT

JMP

ERROR

EXIT

PRODUCT

DENOMINAtOR

REDUCE

LOW

COM.CONVERT

BCD

EXIT

JR2160

MUA

TJM

MUAX

CONVERT

FROM

,BCD

TO

BINARY

JR2161

TMD'

Lc+15 Nl

JR2162

TDXLc

t3X

lj\ JR2163

JMP

RT

BCD

TO

BIN

JR2164

TMD

RTW+2

NUMERATOR

JR2165

TDM

NUMER

JR2166

TMD

RTW+l

DENOMINATOR

JR2167

TDfv1

DENOM

JR2168

TMD

LC+16

N,2

JR2169

TDXLC

,3X

JR2170

JMP

RT

BCD

TO

BIN

JR2171

MUAX

JMP

( P)

EXIT

JR2172

MUB

TJM

MUBX

REDUCE

TO

LCD

AND

BCD

JR2i73

JMP

DUCT

TO

LCD'

JR2i74

Tti1Q

NUMER

NUMERATOR

JR2175

JMP

TR

BIN

TO

BCD

JR2176

tMD

LC+32

JR2177

TDM

LV+32

SET

TRU

JR2178

TMD

LC+16

JR2179

TDM

LV+16

SET

N2

JR2180

tvlUSD

TMD

LV+32

JR2181

JMP

B

BRING

ON

tRU

JR2182

TIXZ

32t4X

JR2183

JMP

NBV

ON

TRU

JR2i84

TMA

T1

JR2-i85

JAZ

MUBD

JR2186

TMD

PTABL

END

CODE

JR2ia7

JAED

tvlUBE

JR2188

TIXZ

32.4X

0 JR2189

JMP

DECKV

LAST

BRING

ON

TRU

JR2190

iMD

Y30

JR2191

TDXRC

IH~5X

LV+16.SX

N2

JR2192

JMP

BSQ

BRING

STORE

QUANTITY

, JR2193

MUBF

TMD

PTABL+8

SLASH

JR2194

TDM

T1

JR2195

TMD

LV+1.6

JR2196

JMP

S

STORE

IN

N2

JR2197

JMP

NSV-2H

ON

N2

JR2198

JMP

MUBe

JR2199

MUt3E

eM

TI

JR2200

TtvlD

LV+16

JR2201

JMP

5

STORE

IN

N2

JR2202 rIXZ

16,5X

JR2~03

JMP

NSV

ON

N2

JR2204

JMP

MUBF

JR2205

MUBC

TMQ

DENOM

DENOMINATOR

JR2206

JMP

TR

BIN

TO

BCD

JR2207

TMD

L.C+32

JR2208

TDM

LV+32

SET

TRU

JR2209

MUBG

TMD

LV+32

JR2210

JMP

B :

BRING

ON

jRU

JR2211

TIXZ

32 ,4X,

JR2212

JMP

NBV

ON

TRU

JR2213

rMA

11

C)

JR2214

JAZ

MUBG

JR221"5

JMP

DECKV-'2H

LAST

BRING

ON

TRU

JR2216

TMD

Y30

JR2217

TDXRC

IH~5X

LV+16

tSX

N2

JR2218

JMP

BSQ:

BRING

STORE

QUANTITY

JR22i9

JMP

SL~J-1H

C)

JR2'226

JR2221

JR2222

MUBX

JR2223

DUCT'

JR2224

JR2225

JR2226

JR2227

JR2228

DULL

JR2229

JR2230

JR2231

JR2232

JR2233

JR2234

DUCK

JR2235

JR2236

JR2237

JR2238

JR2239

JR2240

DUX

JR2241

JR2242

RT

JR2243

JR2244

JR2245

JR2246

RTY

JR2247

JR2248

JR2249

JR2250

JR2251

RTX

JR2252

JR2253 L

JR2254

JR2255

JR2256

RTV

JR2257

JR2258

JR2259

JR2260

RTW

JR2261

JR2262

RTZ

JR2263

JR2264

JR2265

JR2266

TR

JR2267

JR2268

JR2269

JR2270

JR2271

JR2272

TRY

JR2273

JR2274

JR2275

JR2276

JR2277

JR2278

JR2279

TMD

TDM

JMP

TJM

TMA

JAZ

TAM

TMQ

CA.

DAQ

JAZ

TMQ

TAM

JMP

TMQ

DAQ

TQM

TMQ

DAQ

TQ~1

Jj\1P

SPACE

TJM

eM

TMQ

rIXZ

CA

SlAQ

TMD

JAED

TMD

JAED

AM

RPT

AD

LC+16

LV+i6

(P)

DUX

DENOM

WoLF

REMAN

NUMER

REMAN

DUCK

REMAN

DULL

NUMER

REMAN

NUMER

DENOM

REMAN

DENOM

(P)

3

RTX

R1W+l

;3X

Ot2X

6·

PTABL+8

Rrz

PTABL

(

P)

RTW+l

9

TAM

RTW+l

Tt4D

RTW

AIXJ

1,2X

AIXO

lt3X

JMP

·R1Y-2H

C/HLT.S-C/JMPtRTY

SET

(P)

+2

.

TMD

RT\~+l

TDM

RTW+2

eM

RTW+l

JMP

Rl'V

TJM

TRX

TMD

PTABL

TDM

TRU+l

eM

TRU

TMD

X~~RD+2

TDXLC

t3X

TDXRC

lH,2X

CA

JAEQ

DAQ

SLA

AMS

TMD,

AIXJ

TRX

CNST+4

t2X

t3X

TRW

6t2X

SET

N2

EXIT

MUB

REDUCE

TO

LCD

DENOMINATOR

ERROR

EXIT

REMAINDER

,

NU~1ERATOR

DIVIDE

BY

REMAINDER

IS

NEW

REMAINDER

ZERO

NO~

OLD

REMAN

ro

Q

NEW

REMAINDER

'TO

REMAN

NUMERATOR

DIVIDE

BY

GREATEST

FACTOR

REDUCED

NUMERATOR

DENOMINATOR

DIVIDE

BY

GREATEST

FACTOR

REDUCED

DENOMINATOR

EXIT

BCD

TO

BINARY

CONVERSION

XO

NO.

TO

BE

CONVERTED

N=l

XN

TO

A

IS

C A

SLASH

YES

TO

RTZ

1S C

AN

END

CODE

YES.

EXIT

XN

8.RTY

N+l

TO

NtIS

N 8

NEW

WORD

XN

TO

RTW+2

BIN

TO

BCD

END

CODE

TRU+lt6

IS

NO.

A

ZERO

YES

to

EXIT

D/I0

SHIFT

LEFT

AMOUNT

OF

2X

ANSWER

STORAGE

48,TRY+IH

JR2280

JR2281

JR2282

JR2283

TRX

JR2284

TRW

JR2285

TRU

JR2286

WOLF

JR2287

JR2288

JR2289

vJO,l

JR2290

R

JR2291

JR2292

JR2293

JR2294

JR2295

JR2296

JR2297

JR2298

JR2299

W03

JR2300

W02

JR2301

JR2302 *

JR2303 B

JR2304

JR2305

JR2306

JR2:307

JR2~08

JR2309

JR2~lO

JR2311

BX

JR2212 S

JR231~

JR2314

JR2315

JR2316 :

JR23T7

JR2318

JR2319

JR2320

JR2:321

JR2322

JR2:323

JR2324 R

JR2325

JR2326

JR2327

JR2328

JR2329

JR2:33,Q

JR2331

JR2332

JR2333

oVi

JR2334 R

JR~33'5

JR2336

JR2337

JR2338

JR2339

SIxoL i.3X

CD

JMP

TRY

JMP (

P)

, EX I T

C/HLT.48-C/JMP,TRY+1H

SET

(P)+2.

TJM

W03

TMD·

YBl

TDXLc ;

2X

TMD

,2X

RPTNN

8

TOC

seD

42

TMD

Y82

AIXJ

It2X

JMP

PAGE

Nap'

TRAP

LOCATION

JMP

FINISH

..JMP

FlEXO

HLT

0

A/INO.

TOO

LARGE

1$

PAGE

INTERPRETIVE

eONTRdL

ROUTINE

TDXLc

fOX

TDXRC

IH.1X

TJM

BX

CA

.

TMQ

tOX

SLQ

,lX

sLAQ

6

TAM

T1

JMP·

(P)

TDXLC

.ox

rDXRC

IHtlX

TJM

SX

TMD

.OX

TDXRC

IHtix

TtvlD

Y84

AIXJ

O;2X

CD

TXDRC

lH,OX

SRD

8

TDA

CO

RPTNN

8

SRAQ

:3

SRQ

:3

rQA

TMQ

Yas

SbAQ

6

lAM

TRU+l

TMD·

V86

TDXLC

t3X

TMD

.3X

RPTNN

8

IDe

seD

42

iMD

Ya?

AIXJ

1.·3X

TMD

Y88

v

JR2340 R

RPTNN

3

JR2341

iDC

("

"""\

JR2342 seD 42

JR2343

TMD

TRU+l

"-..../

JR2344 R

RPTNN

8

JR2~45

TDC

JR2346

seD

42

JR2347

JMP

PAGE

JR2348

NOP

JR2349

JMP

FINISH

JR2350

JMP

FLEXO

JR2~51

SVJ

TMQ

tax

JR2352

SLAQ

;lX

JR2353

SL.Q

6

JR2:354

sLA

6

JR2355

AM

T1

JR2256

SRAQ

6 _IX

JR2~57

TQM

.ox

JR2358

sX

JMP

(p)

JR2359

OV2

A/ITAB6E

OVERFLOW

$

JR2360

NBvJ

TMD

COT

JR2361

ADXR

lH,4X

JR2362

TJM

NBX

JR2~63

JMP

NB

JR2364

NBV

TJM

NBX

JR2365

TMb

COT

JR2366

ADXb

,4X

JR2367

NB

TMD,

.4X

0 JR2368

TDXLC

,ox

JR2369

TDXRC

1H,-iX

JR2370

TMD

V89

JR237i

AIXJ'

6,lX

JR2372

SDXL

,1X

JR2373

TMD

V90

JR2374

AIXJ

l~OX

JR2375

TMD·

6C+37

JR2376

TDXL~

.OX

JR2377

JMP

RFP

JR2378

JMP

NBA

JR2379

NBB

TMD

Y91

JR2380 AIXJ

OjOX

JR2:j81

TMD

1..C+27

JR2382

TDXLC

.ox

JR2383

JMP

RFD

JR2384

NBA

CD

JR2385

TXDLC

tOX

JR2386

TXDRC

IH;lX

JR2387

TDM

,.4X

JR2388

NBX

JMP

(P)

JR2389

NSW

iMD

COT

JR2390

ADXR

lH~5X

JR2391

TJM

NSX

JR2392

JMP

NS

{~

JR2393

NSV

lJM

NSX

JR2394

TMD

COT

'-..J

JR2295

ADXL

t5X

JR2396

NS

TMD

.5X

JR2397

TDXlM.C

.ox

JR2398

TDXRC

lH.1X

JR2399

TMD

Y92

,..

JR2400

A1XJ

6tlX

JR2401

SDxL

.1X

,,---'"

JR2402

TMD·

Y93

'--

JR2403

AIXJ

1.0X

JR2404

JMP

PRINT

JR2405

TMD

LC+34

JR2406

TDXLc

tOX

JR24b7

TDXLc

.3X

JR2408

TMD

''(66

JR2409 L

RPTA

15

JR2410

TDM

lt3X

JR241i

JMP

NSB

JR2412

NsA

TMD

Y94

JR2413 AIXJ

D·t·OX

JR2414

TMD

LC+27

JR2415

TDXLC

.OX

JR2416

JMP'

WFD

JR2417

eM

'

DATA-2

JR24-i8

eM

DAt

A-l

JR2419 NSB

CD

JR2420

TXDLC

.ox

JR2421

TXDRC

IH.1X

JR2422

TDM

,5X

JR2423

NsX

JMP

tP)

JR2424

DECkvJ

TMD

COT

JR2425

ADXR

'lH~4X

JR2426

TJM

DKX

JR2427

JMP

DECK

0 JR2428

DECKV

TJM

DKX

JR2429

TMD

COT

JR2430

ADXL'

t4X

JR2431

DECK

TMD

,4X

JR2432

TDXLC

.ox

JR2433

TDXRC

IH~1X

JR2434

iMD

Y95

JR2435

S!xJ

O;lX

JR2436

TMD

Y96

JR2437

SDXL

,ox

JR2438

TDXRC

IH,

IX

JR2439

DKW

TXDLG

.ox

JR2440

TXDRC

IH,lX

JR244i

rDM

~4X

JR2442

DKX

Jt~P

(P)

JR2443

S!XO

6tlX

JR2444

CD

JR2445

JMP

DKW

JR2446

SLvJW

1Mb

cor

JR2447

ADXR

iH,5X

JR2448

rJM

slwX

JR2449

JMP

SL\IJ

JR2450

SLWV

T~1D

.

COT

JR2451

ADXL

,.sx·

JR2452

TJM

sL.wx

0 JR245·3

SLW

lMD

PTA8L

JR2454

TDM

T1

'JR2455

TMD

t5X

JR2456

JMP

S

JR2457

TMD

Y97

JR2458

AIXJ

6tlX

JR2459

SL.WX

JMP

( P)

.'

JR2460

TMD

.sx

JR2461

rXDRC

lH,lX

~

JR2462

rDM

.5X

JR2463

JMP

SLW+:3H

JR2464 .COl

P/LV.T15~P/LW.T39

JR2465

BS'Q

TJM

BSQX

JR2466

JMP

Bf

JR2467

T~1D

-

Y75

JR2468

rDXLc

.2X

JR2469 R

RPTAN

' 9

JR2470

TMb

lt2X

JR2471

JAED

BSQP

JR2472

TMQ

CNST+4

JR2473

JAGQ

BSQL

JR2474

TMD

PTABL+l

JR2475

TDM

QFF

JR2476

8SQ\IJ

JMP

NBIJJ+2H

JR2477

1Mb

,5X

JR2478

JMP

S

JR2479

JMP

NSvJ+2H

JR2480

JMP

81

JR2481

TMD

PTABL+8

JR2482

JAED

BSQW

JR2483

TMQ

CNST+4

JR2484

JAGQ'

BSQX

JR2485

J~1P

BSQW

JR2486

BSQL

TMD

PTABL+3

(:)

JR2487

TDM

QFF

JR2488

JMP

NBW+2H

JR2489

TMD

.sx·

JR2490

JMP

S

JR2491

JMP

NSW+2H

JR2492' '

JMP

BI

JR2493

TMD

Y75

JR2494

TDXLC

.2X

JR2495 R

RPTAN

9

JR2496

TMD

1.2X

, JR2497

JAED

BSQX

JR2498

JMP

B$QL+2H

JR2499

BSQP

TMD

PTABL+2

'JR2500

TDM

QFF

JR2so1

JMP

NBW+2H

JR2502

TMD

.5X

JR2503

JMP

S

JR2504

JMP

NSW+2H'

JR2505

BSQX

JMP

(

P)

JR2506

BSt:

TJM

BSEX

-JR2507

TMD

.4X

JR2508

JMP

B

JR2509

TMD

PfABL.

JR2510

BSEX

JAED

(Pl

JR2511

TMD

t5X

JR2512

Jrv1P

S

()

, JR2513

J~1P

,

NSW+2H

JR2514

JMP

NBltJ+2H

JR251S

JMP

BSE+iH

JR2516

BSG

rJM

BSGX

JR2517

TMD

.4X

JR2518

J~1P

B

JR2519

TMD

PTABL

JR252C

JAED

BSGX

JR2521

TMD

PTABL+l

C':'I

JR2522

JAED

BSGX

JR2523

TMD

PTABL+2

JR2524

BSGX

JAED

( P )

JR2525

1Mb

t5X

JR2526

JMP

S

JR2527

JMP

NSW+2H

JR2528

JMP

NB\v+2H

JR2529

JMP

BSG+1H

JR2530

BLOCK

T

J~~

BLOX

JR2531

S!XO

3;5X

JR2532

TMA

t5X

JR2533

SRA

24

NB39

JR2534

TMQ

Y98

JR2535

EIS

Sb\~

SET

REPEAT

COUNTER

JR2536

AIXb

3~5X

JR2537

RBL\~

RPTAA

O·

JR2538

TMD

1,4X A

JR2539

TDM

1,5X

S

JR2S4.0·

BLOX

JMP

(P)

EXIT

JR2541

st

TJM

81><

JR2542

TMb

,4X

JR2543

JMP

B

JR2'544

fMD

PTABL+i4

JR2545

JAED

BIX+IH

JR2546

TMb

PTABL+i3

0 JR2547

JAED

B

IX+1H

.

JR2548

BIX

JMP

(P)

JR2549

JMP

NBW+2H

JR2550

JMP

SI-I-iH

JR2551

eSI

TJM

BSIX

JR2552

JMP

Bt

.

JR2553

TfvtD

PTABL

JR2554

JAED

BSIX

JR2555

TMb

PTABL+9

JR2556

BSIX

JAED

(Pl

JR2557

JMP

NBW+2H

JR2558

TMD

.5X

JR2559

JMP

S

JR2560 .

JMP

NS\~+2H

JR2561

JMP

SSI+1H

JR2562

FLEXO

TMD

Y81

JR2563

rDXRC

1Ht7X

JR2564

FLEXl

TMD

.7X

JR2565 R

RPTNN

8

JR2566

rDC

JR2567 seD 42

JR2568

TMD

ViOO

JR2569

AixJ

1.7X

JR2570

JMP

M/620

JR257i

FLEX2

AIIDUMP

AND

FINISH

HAVE

BEEN

TAKEN$

JR2512 AJICONriNUE

WITH

I$

0

JR2573

pAGE

JR2574

AFEND

39$

JR2575

NAME

SCT

JR2576;(-

WRITE,READ,SPACE,BACKSPAGE.REWIND,AND

READREVERSE

JR2577 *

J.

SANFORD

JR2578

CWTSCT

TJM

wtx

WRITE

ON

MAG

TAPE

JR2579

CD·

JR2580

TXDLc

.5X

STORE

XREGS

,.

...

'\

JR2581

TXDRC

1H,7X

I JR2582

1DM

XSAVE

",--/'

JR2583

TAD

JR2584

TDXLC

,7X

LOCATION

OF

DATA

JR2585

TMQ

PL1

13/1-1/0-34/1

JR2586

CA

JR2587 EIS

Kl

JR2588

JMP

SKP

IS

UNIT

AVAILABLE

JR2589

WT3

J~1P

WTl

ALTERNAtE

BUFFERS

JR2590

WTl

TMD

PL2

MeB.T15

JR2591

TDXLC

f5X

JR2592 R

RPTAA

128

MOVE

128

WORDS

UPSTAIRS

JR2593

TMD

1;7X

JR2594

TDM

1~5X

JR2595

TMA

WT

WRITE

1

BLOCK

JR2596

Tio

MCB·

FROM

MeB

JR2597

WT4

JMP

(P)-lH

JR2598

JMP

SKP

PAUSE

FOR

TAPE

ACTION

JR2599

TIJ

\vT2

SI:T

UP

FOR

JR2600

TJM

WT3

JR260r

WT5

TMD

XSAVE

RESTORE

XREGS

JR2602

rDXLC

,5X

JR2603

TDXRC

IHt7X

JR2604

vJTX

JMP

( P )

EXIT

JR260S

WT2

TMD

PL.3

MC8+128tT15

JR26C6 rDxLc

t5X

0 JR2607 R

RPTAA

i28

MOVE

UPSTAIRS

JR2608

TMD

1~7X

JR2609

TDM

1~5X

JR2610

TMA

\~T

VJR

I

TE

1

BLOCK

JR2611

TIO

MCB+128

FROM

20ND

BUFFER

JR2612

JMP

(P)-lH

JR2613

JMP

SKP

PAUSE

FOR

TAPE

ACTION

JR2614

TIJ

viTI

SET

UP

FOR

1ST

BUFFER

JR2615

TJM

WT3

JR26i6

JMP

WTS

EXIT

JR261-7

CRDscr

TJM

RDX

READ

FROM

MAG

TAPE

JR2618

CD

JR2619

TXDLC

.SX

SAVE

XREGS

JR2620

rXDRC

1H~7X

JR2621

TDM

XSAVE

'JR2622

TAD

JR2623

TDXLC

t7X

L.OCATION

TO

READ

INTO

JR2624'

TMQ

PLl

13/-1/0-3411

JR2625

TMA

PL6

D/1B13

JR2626

EIS

Kl

JR2627

JMP

SKP

UNIT

AVAILABLE

JR2628

RD3

JMP

RDl

AlTERNATE,

BUFFERS

JR2629

CRDl

TMA

(P)

READ

FORWARDt

BACKVJARD

JR2630

TIO

MeB

INTO

MeB

. JR2631

JMP

(P)-lH

0 JR2632

JMP

SKP

PAUSE

FOR

TAPE

AGTION

JR2.633

TMD

PL2

MCB.T1S

JR2634

TDXLc

.sx

JR2635 R

RPTAA

128

MOVE

128

WORDS

DO\\fNST

AI

RS

JR2636

TMD

1,SX

JR2637

rDM

1,7X

JR2638

TIJ

RD2

SET

UP

FOR

ALTERNATE

BUFFER

JR2639

TJM

RD3

JR2640

RD4

TMD

XSAVE

RESTORE

)(REGS

JR2641

TDXLc

j5X

,r

'\\

JR2642

TDXRC

lH,7X

'---/

JR2643

RDX

JMP

( P

~

EXIT

JR2644

CRD2

TMA

( P )

READ

FORvJARO,

BACKvJARD

JR2645

TIO

MCB+i28

20ND

BUFFER

JR2646

JMP

(P)-1H

JR2647

JMP

SKP

PAUSE

FOR

TAPE

ACTION

JR2648

tt~D

PL3

MCB+128,T15

JR2649

TOXLC

~5X

JR2650 R

RPTAA

128

MOVE

128

WORD

DOWNSTAIRS

JR26Si

1Mb

i95X

JR2652

rDM

1,7X

JR2653

TIJ

RDl

SET

UP

FOR

1ST

BUFFER

JR2654

rJM

Rb3

JR2655

JMP

Rb4

EXIT

JR2656

spACE

:3

JR2657

CR\A/SCT

TJM

RvJX

JR2658

TMA

RW

JR2659

rIO

JR2660

JMP

(P)-iH

JR266i

RWX

J~1P

(P)

JR2662

spAcf:

:3

JR2663 CSPSCi

TJM

SPX

JR2664

TMQ

PL1

13/1'-'1/0-34/1

JR2665

TMA

PL6

0)1B13

JR2666

EIS

kl

(j

JR2667

SP1

TMA

SP

SPACE

i

BLK

FR\~D

JR2668

Tto

'--

JR2669 JMP,

(P)-lH

JR26-rO

JMP

SKP

JR2671

SPX

JMP

( P;

JR2672

SPACE

3

JR2673

CBSSCT

TJM

BSX

JR2674

TMQ

PL.1

13/1"'1/0-34/1

JR2575

TMA

PL6

D/IB13

JR2676 EIS

Kl

JR2677

BS

1

TMA

ssP,

BACKSPACE

1

BLK

JR2678 TIO

JR2679

JMP

CP)-lH

JR2680

JMP

SKP

JR2681

BSX

JMP

(

P)

JR2682

XSAVE

DID

JR2683' *

LOAD

A

REG

\\lI1H

PL

NO.

AND

Jf'.1P

TO

IN

JR2684

BIN

TJM

INX

JR2685

eM

L

JR2686

TMQ

PL8

20/1-4/0-24/1

JR2687 ETS L·

JR2688'

TMQ

pL9

0/10B23

JR2689

JAGQ

INX+1H

fAP~

Not

ASSIGNED

JR2690

iMQ

pLa

20/1-4/6-24/1

JR2691 EIS

RD

READ

i

BlK

FORWARD

JR2692 EIS

RDR

READ

1

BLK

IN

REVERSE

C)

JR2693

EIS

\'1T

WRITE

i

BLK

FORWARD

JR2694

EIS

SP

SPACE

i

BL.K

f=ORWARD

JR2695

EIS

BSP

BACKSPACE

1

BLK

JR2696 EIS

RW

REvJIND

JR2697

EIS

EC

ERASE

1

BLOCK

JR2698

TMA

L

JR2699

SLA

19

JR2700

iMC>

pLiO

1/1-4/0-43/1

=)

JR270i

EIS

K1

JR2702 EIS

K2

JR2703

EIS

K3

JR2704 f::!S

K4

JR2705

tNX

JMP

(P)

EXIT

JR2706

TMD

PL11

P/Cl,T15

JR2107

TDXLC

91X

JR2708

1NY

TMD

~

IX

JR2709 R

RPTNN

8

JR2710

TDC

JR2711

seD

42

JR2712

TMD

Pl12

Cl+3,INY

JR2713 AIXJ

1,IX

JR2714

HLT

0

JR2715

JMP

(P)-lH

JR2716

C1

A/rUSE

NO.

NOT

ASSIGNED

1$

JR2717

'RSKP

TJM

KX

JR2118 Kl

SKC

JR2719

JMP

K3

JR2120

K2

SKF

1,0

JR2721

JMP

FAULT

JR2722

K3

SKC

0,0

JR2723

JMP

K1

JR2724

K4

SKF

ltD

JR2725

JMP

Kl

JR2126

kX

JMP

( P )

C)

JR2727

FAULT

TMA

K2

JR2728

TMQ

24/1T47

JR2129 EIS

k6

JR2730

K5

INCA

K6

JR2131

LK6

SKF

1,0

JR2732

JMP

K5

JR2133

TDA

JR2734

TMD

P/K109T15

JR2735

TDM

KI1

JR2736

·eM

ES

JR2737

TMQ

6/1-10/0-32/1

JR2738 EIS

ES

JR2739

SLA

5

JR2740 K7

JAZ

K9

JR2141

SL.A

1

JR2142

JAN

K8

JR2743

INCAL

Kl1

JR2744

JMP

,

K7

JR2745 .

K8

TMD

K11

JR2746

TDXLC

.7X

JR2147

TMD

t7X

JR2748

JMP

FLEX

JR2749 K9

TMD

P/BIO,T15-P/3tT39$

JR2750

JMP

FLEX

JR2751

LKIO

P/B1tT15-P/3,T39

C)

JR2752

P/B2.T15-P/4tT39

JR2753

P/B3!>T15-P/4tT~9

JR2754

P/B4.T15-P/2.T39

JR2755

P/BS.T15-P/3.T39

JR2756

P/B6~T15-P/ltTg9

JR2757

P/B7.T15-P/1.T39

JR2758

P/B8tT15~P/3fT39

JR2759

P/B9tTI5-P/2tT39

o

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

JR2781

JR2782

JR2783

BRD

JR2784

BRDR

JR2785

Wi

JR278'6

RW

JR2787

SP

JR2788

SSP

JR2789

EC

JR2790 pLl

JR2791 PLz

JR2792

pL3

JR2793

IJL4

JR2794 .

PL5

'JR2795 PL6

JR2796 PL7

JR2?97· .

PL8

JR2798,

pL9

JR2799

PLIO

JR2800

PLll

JR2801 PL12

JR2802

pLi3

JR2803

PL14

JR2804 ' L

JR2805

MeB

JR2806

JR2807

JR2808

BPANT

JR28C9

JR2810

JR2811

JR281Z

JR28i3

PAND

JR2814

JR2815

JR2816

JR2817

JR28t8

JR2819

RESX

0)6

D/O

A/ITRANSPORT

DISABLED

1$

A/IMIS$ING

BEGINNING

BLoCK

MARK

A/!MISSING

ENDING

BLOCk

MARK

1$

A/I$PROCKET

1$

All

IMPROPER

BLOCK

MARK

1$

A/IPARITYi$

A/ICRAZY

1$

A)rBEGINNI~G

OF

tAPE

1$

AIIEND

OF

TAPE

1$

A/tPREMATURE

ERROR

EXIT

1$

TbxLc ;

1X

TDXRC

IHJ6X

TMD

;

7X

RPTNN

8

TDC

seD

CD

42

sixoL

i.6X

JNO

FLx

NOP

JMP

M)620

0/661

i47

0/761T47

0/433T47

0/212T47

0/40000000261147

0/40000000361T47

0/316T47

13/1-1/0-34/1

P/MCS,TI5

P/MCB+i28.fi5

A/IWE

T$

16/1

D/IB13

AlIRE

T$

20/1-4/0-24/1

b/l0B23

1/1-4/0-43/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

PiCl,T15

C/HLT.Cl+3-C/JMP,INY

15)1

A/ISE

T$

SET

(P)+1

SET

CPl+256

PAGE

NAME

rJM

TAD

TDXC

·rcxs

TMA

JtvlP

CD

slxo

JNC

JMP

PANT$

RESX$

$

lHt3X$

.1X$

t3X$

stUF$

$

ltlX$

pAND$

EOl$

tp)$

STARTING

-ADDRESS

NUMBER

OF

WORDS

TEST

FOR

DONE

NOT

DONE

WRITE

END

OF

lINE

EXIT

o

C)

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

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

JR2869

JR2870

JR2871

JR2872

JR2873

JR2874

JR2875

JR2876

JR2877

JR2878

JR2879

*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

LSTUF

TJM

STuA

TAM

TMA

INCA

JAGD

T

t"J

TJM

STUX

JMP

LSTUl

TJM

TAM

~~SUBROUT

INE

TO

LOUT

TJM

oUA

TMD

Tto

Jr4P

LSK

SKC

JMP

RS1(F·

SKF

LSKEC

SKG

JMP

LSKF'A

SKF

JMP

TMA

JMP

TMQ

JMP

TMA

JMP

TMD

TID

JMP

TMD

TIO

Jf'.1P

JMP

NO

GO

TMA

Jtv1P

TIXZ

TMA

TMQ

NOGA

AQS

TIO

NOP

SIXO

JNO

JMP

FLEX

TJM

TAD

R

RPTNN

LOUe

TDe

SCD

FLX

JMP

STUX$

BUFF+l$

STORE

WORD

IN

BUFFER

STUl$

STuA$

STUX$

OUTS

SET

SWITCH

TO

WRITE

BUFF

EOB$

WHEN

LINE

IS

DONE

tP;$

STUX$

BUFF+lv1/156$

WRITE

BUFFER

AND

REsET

SWITCHES

AND

OUX$

WRIT1$

BUFF$

WRIT~

BUFFER

NOGO$

TT

OR

AU

NOT

AVAILABLE

0$

SKF$

OUB$

SUCCESS

1.0$

M/3777,0$

SK$

M/177,O$

FAULT

HELP$

RECOVERY

IMPOSSISLE-

51

FAUL1$

FLEX

$

TYPE

)FAULT

T)

UN!Tl$

DP$

TYPE

UNIT

NUMBER

ERAS2$

FLEX$

TYPE

}ERASE)

ERAS1$

$

ERASE

BAD

BLOCK

(P)-lH$

RELl$

$

,I

(P)-lH$

OUA$

REl3$

FLEX$

16,2X$

REL2$

1B23$

T1$

$

1.2X$

NOGA$

OUA$

FLX$

$

8$

BUFF'+l$

42$

(P)$

RELEASE

UNIT

TRY

AGAIN

TYPE

1

RELE)

SET

UP

LOOP

RELEASE

ALL

UNITS

END

lOOP

TRY

AGAIN

SUBROUTINE

TO

TYPE

ONE

W

o

DP

DPA

DPX

HELP

WRITl

ERASl

RELI

UNITi

RI:L2

T1

TENI

1823

FAULl

ERAS2

REL3

HELpl

Loue

JR2880

JR288.1

JR2882

JR2883

JR2884

JR~885

JR2886

JR2881

JR2888

JR2889

JR2890

JR2891

JR2892

JR2893

JR2894

JR2895

JR2896

JR2897

JR2898

JR2899

JR2900

JR2901

JR2962

JR2903

JR2904

JR2905

JR2906

JR2907

JR290a

JR2909

JR2916·

JR2911.

JR2912

R

JR2913

JR2914

JR2915

JR2916

JR2911 L

JR2918

JR2919

JR2920

JR2921

JR2922

JR2923

JR2924

JR2925

JR2926

JR2921

JR2928

JR2929

JR2930

JR293i

JR2932

JR2933

JR2934

JR2935

JR2936

JR2937

JR2938

JR2939

oux

OU2

CU3

pAl

cptNT

TJM

DPX$

CA

$

DAQ

TENi$

rob

$

SRAQ

6$

TDA

$

JAZ

DPA$

TDC

$

TOD

$

TDC

$

Jt~P

(P)

$

TMA

HELP1$

JMP

FLEX$

HLT

M/7777$

JMP

OUA$

c/HLr.O-CITOAtl$

C/HbT~O-c/FCAQA$

C/HLTtO-c/FAOA$

$

C/HLT,O-C/FAQA$

$

D/lO$

D/lB23$

CONVERT

AND

TYPE

DECIMAL

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

0/3226216443636063$

0/6025512162256032$

0/3235512543253532$

0/3235302543472532$

TIJ

STUF$

RESEt

SWITCHES,

SET

UP

B

TJM

EOB$

RESET

TIJ

BUFF+i$

iJM

STuA$

TMD

DSi$

TDM

BUFF$

TMA

OU2$

TMD

oUC$

TDXC:

t 2X$

TMD

OU3$

RPTNN

M/176$

RESET

DATA

SELECT

END

OF

LINE

TDM

,2X$

STORE

IGNORE

TAM

BUFF+M/177$

STORE

END

OF

LINE

JMP

(P)

$

0/3232323232322277$

0/3232323232323232$

O}3232323232770700~

TJM

RESX$

TAD

$

TDXC

iH,2X$

ADX

.2X$

TMA

,2X$

shA

i9$

TMQ

MI$

USE

TAPE

NUMBER

PL

UNIT

EIS

SK$

SET

UP

SKIPS

Ers SKEes

EIS

SKFA$

SRA

19$

SRQN

19$

EI

S

\~RI

Tl$

SET

UP

10

ORDERS

EIS

.

ERASl$

EIS RELl$

SRA

5$

o

JR2940-

JR294i

JR2942

JR2943

JR2944

JR2945

JR2946

JR2941

JR2948

JR2949

JR2950

JR2951

JR2952

JR2953

JR2954

JR2955

JR2956

JR2951

JR2958

JR2959

JR2960

JR2961

JR2962

JR2963

JR2964

JR2965

JR2966

JR2967

JR2968

JR2969

JR2970

JR2971

JR2972·

JR2973

JR2974

JR2975

JR2976

JR2977

JR2978

JR2979

JR29aO

JR2981

JR2982

JR2983

JR2984

JR2985

JR2986

JR2987

JR2988

JR2989

JR2990

JR2991

JR2992

JR2993

JR2994

JR2995

JR2996

JR2997

JR2998

JR2999

SRQN

5$

EIS

SKF$

SET

UP

SKF

SRA

19$

SRQN

19$

EiS

UNITI$

SET

UP

UNIT

TIJ

RESX$

TJM

OUX$

JMP

OUB$

RESET

AND

EXIT

*SUBROUTINE

TO

CHANGE

DATA

SELECT

CHARACTER

LeDS

TDM

MO$

CDA

DSl

bS2

Ml

M2

BUFF

MD

CSPCE

CPAGE

TJM

RESX$

TMQ

M2$

ETA

MD$

ETO

051$

JAED

RESX$

ES

D51$

AMS

D5I$

TDQ

$

TMA

BUFF'+l$

TMD

OU3$

JAED

CDA$

JMP

ours

TQM

BUFF$

Jtv1P

RESX$

EXTRACT

NEW

DATA

SELECT

EXTRACT

OLD

DAtA

SELECT

ExtT IF

NO

CHANGE

NEW

DATA

SELECT

BUFFER

EMPTY

BUFFER

NOT

EMPTY.

FINISH

NEW

DATA

SELECT

TO

BUFFE

0)0200323232322232$

0/0252323232323232$

0/4I77777t77777777$

0/17i11$

SET

(P)+M/200$

128

WORD

OUTPUT

BUFFER

$

TJM

JMP

TJM

TMA

JMP

CFINISH

TJM

TMO

TOM

JMP

PAGE

RESX$

EOL$

RE$X$

RESX$

PAlS

STUF$

SPCE+IH$

RESX$

DS2$

BUFF$

OUTS

RESX$

Yi

Y2

Y3

Y4

,

Y5

Y6

Y7

YB

Y9

-ViO'

YII

Y12

Yi3

,Yi4

Yi5

V16

NAME

JRS

P/LW+IO,T15-P/LV+22~T39$

P/LV+2.TI5-P/LV+23.T39

P/MU~TC~T15-P/OPENM.T39$

P/MULTC,T15-P/MULTB;T39$

P/MULTC.T15-P/MULTA.T39$

PfLV+24,T15-P/LW+8tT39

PJMN,T15-P/OPtNM,T39

P/OPENM-19T15-P/42tT39

P/LV+24,T15-P/LV+9,T39

P/LW+ll'T15~P/LV+9.T39

P/LV+22,T15-P/LV+12.r39$

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$

o

JR3000

Yl7

JR3001 YI8

JR3002

Y19

JR~003

Y20

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

Y40

JR3024' Y41

JR3025

Y42

JR3026 Y43

JR3027

Y44

JR3028

Y45

J~3029

Y46

JR3030 Y47

JR3031Y48

JR3032

Y49

JR3033 Y50

JR3034

Y51

JR3035

Y52

JR3036

V53

JR3037

V54

JR3038

Y55

JR3039

Y56

JR3040

Y57

JR~04i

Y58

JR3042

Y59

JR3043 Y60

JR3044

.

Y6i

JR3045

Y62

JR3046

Y63

JR3047

Y64

JR~048

Y65

JR3049

'166

JR3050

'(67

JR30s1

Y68

JR3052 Y69

JR3053

Y70

JR3054 Y7i

JR3055

Y72

JR3056

Y73

JR3057

Y74

JR30S8 Y75

JR3059

Y76

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$

P/LV+12~t15~P)LV+13,T39$'

P)SORTA,T15-P/SOR1S,T39$

P/LV+12,T15-P/LV+17~T39$

P/LV+14,T15-P)LV+18tT39$

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 '

P/LV+2~T15-P/LV+6,T39

P/E2tT15-P/EE2,T39

C/CSM,RTW+1-C/AM.EE2

P/LV+18tT15-P/LV+7.r39

P/LV+2,T15-~/LV+7fT39

P/Lw+3.T15-P/LV+7.T39

P/OP~NM'TI5-pJMY,T39

P)LV+ltt15-P/Lv+a.r39

P/lV+8,Ti5-P/Lv+10tT39

PJMN,T15-P/OPENM,T39

P/Lv~lfT15-PjLv+9~T39

PITi,Ti5

DID

D/O

P/LV+37.T15~P/LV435.T39$

010061013333333333

P/LV+37;T15~P/LV+39~T39$

piLv+3S;T15-P)LV+7,T39

P/LV+329T15~P/LV+18.T39$

P/PROGB,TJ.5

A/LAST

$

8/110000

24/0-24/1

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-

..

JR3b60

V77

P/15,T15-P/~UFF;T39

Cl

JR3061

Y18-

P/DATA-2~T15

JR3062

Y79

p/LV+i.T15-P/LV+36tT39

JR3063

Y80

P/LWW.T15-P/LV+27.T39

JR3064

Yal

P/W02~T15-P/FLEX2.T39

JR3065

Y82

C)HLTfW02+2-C/JMP.W01

JR3066

Y83

C/HLT,PTABL-C/TJMLtBUFF+16$

JR3067 Y84 C/HLTt4095-C/JMP.SW

JR3068

Yas

0/32

JR3069 Y86 P/OV2tT15

JR3070

Y87

C/HLT,OV2+2-C/JMP.OV1

JR3071

Y88

AIAT

$

JR3072

Y89

C/HLT;48-C/JMP,NBA

JR3073

Y90

C/HbT;PROGB+128-C/JMP,NBB$

JR3074

Y91

CIHLT;DATA

.....

126-C/JMPtNBA$

JR3075

Y92

C/HLT.48-C/JMP.NSB

JR3076

Y93

C/HLT~BUFF+1S-C/JMP~NSA$

JR3077

Y94

C/HLt.DATA+126-C/JMP.NSB$

JR3078

Y95

C/HLTiO-C/JMP,DKX+1H

JR3079

Y96

P/l,T15-P/42.T39

JR3080

Y97

C/HLf.48-C/JMPtSLWX+1H

JR3081

Y98

28/1-12/0-8/1

JR3082

Y99

P/3tT15-P/USE,T39

JR30S3 VIeD CJHLTJFLEX2+8-C/JMP,FLEXI$

JR3084 Yr12

P/LV+2.T15-P/LV+10,T39

JR3085

Yl13

A/I/lo

••

oD$

JR3086

PTABL

0/33T47

END

CODE

0

JR30a7

0/20T47

PLUS

JR3088 0/40-T47

MINUS

JR3089

0/54T47

TIMES

JR3090'

0/53T47

EXPON

JR309i

0/74147

OPEN

JR3092 0/34T'47

CLOSE

JR3093

0173147

COMMA

JR3094

0/61i47

SLASH

JR3095 0/13'T47

EQUAL

JR3096

0/24i47

D

JR3097

0/46147

0

JR3098

0/62T47

S

JR3099 O/32T47

IGNORE

JR3100

0/60T47

SPACE

JR3101

0/25147

E

JR3102

0/31T47

1

JR3103

0/43147

L

JR3i04

0/63147

T

JR.3105

0/21147

A

JR3106

0/22T47

B

JR3107

0/23T47

C

JR3108

0/55147

QUotE

JR3109

0126i47

F

JR3110

0/47T47

P

JR3il:l

TAB

0/3315

END

CODE

0

JR3i12

0/60206033T23

PLus

JR3i13

0/60406033T23

MINUS

JR3114

0/5433T11

TIMES

JR3115 0)53331"11

EXP

JR3116

0/7433T11

OPEN

JR31i7

O)3433fli

CLOSE

JR3118

0/7333111

COMMA

JR3119

0/6233111

SLASH

"

J,-

..

JR3120

0/1333T11

EQUAL

Cj

JR3121

eNSr

0/0161013333333333

JR3122

48/0'

JR3123

0/1147

JR3124

0/11r47

JR3125

0/12f47

JR3126

8/110000

JR3127-

QFF

SET

(P)+l

JR3128 EFFl

SET

(p

)+1

JR3129

EFF2

SET

(P)+1

JR3i30

MFF1

SET

(P)+l

JR3131

CtL

SET

(P)+l

JR3132

CTLP

SET

(P)+1

JR3133

eTr:

SET

(P)+l

JR3134

XWRD

C/HLTL.SORTA-I-C/HLTR.SORfB+1H$

JR3135 C/HLT.SORTA+19-CIJMP,GATH7$

JR3136

P/1RU+1,T15-P/6tT39

JR3i37

Lt

D/O

JR313S P

)FOi~T15

JR3i39

P/OPENMtT15

JR3i46

p

IFtt

TiS

JR314i

p)F29ri5

JR3142

P)~i'Ti5

JR3i43

P/E2,Ti5

JR3t.44

P/e;,li5

JR3i45

p/Mv,ri5

JR3i46

P/MNtT15

0

JR3i47

P/MP,T15

JR3148 DID

JR3149 , P/SORTO.T15

JR315.0 P

ISO

R T A 9 T

i5

JR-31.51

p/SORTB,r15

J-R3152

P

IN1-t

T15-

JR315'3

P/N2;lls

JR3i54

P

IEEl

,,_tIS

JR3155 P)EEZtT15

JR3156 P

IT2·,

T15

JR3-i57 P

/.1-3

,Ti5

-

JR3158

PI

SOR.!C,I15

JR3i59

P/MUL,fA.T15

JR3160 P /

MU

I...T

89.1_15

JR3161

P/MUL.TC.T15

JR3162

P/S3,T15

JR3163

DJo

JR3164 PlDA1AfT15

JR3165

P/S4,T15

JR3166

0/0

JR3i67

P

ISUBSTA

.-T15

JR3168 P/SUBSTB,T15

JR3-i69

P-ITRU

,T15

JR3170

0/0

JR3171 P/BUFF,T15

0 JR3172 P

IPROG,

r

1-5

JR3-l73 P

IDATA-2.--_

. .TlS

JR3174

P/PROGB

.•

r15

-

JR3175 P/PROGB.T15-P/24,T39

JR3176 P/OPE:NM-2.T15

JR3177

LV

SET

tP)+45

JR3178

lW

SET t P )+15

JR3i79

Lww

0/0

,

~

q

JR3-i80

L\vX

DID

JR3181

Tl

SET

(P)+l

""'-'j JR3182

NUMER

SET

{P)+2

\....-

JR3183

DENOM

SET

(P)+2

JR3184

REMAN

SET

......

'.

(P)

+2

JR3185

P/i,T15-P/4095.T39

JR3186

SE.T

(P)+2

JR3187 EEl SET' ·

(P)+l

JR3188

P/l,T15-P/409S,T39

JR3189

SET

(P)+2

JR3190

EE2

SET

· (P)

+1

JR3191

P/l.r15-P/4095,T39

JR3192

SET

(P)+2

JR3193

Ei

SET·

(P)+l

-.

JR3194

P/1,T15-P/409S.T39

JR3i95

SET

(P)+2

JR3196

E2

SET·

· (P )+1

JR3197 P 11

tT15-P

14095·, T39

JR3198

SET

(P)+2

JR3i99

si

SET

· (1')+1

JR3200

P/i,r15~P/4095,T39

JR3201

SET

(P)+2

JR3202 S2

SET

·

(P)+l

JR3203

Pll.T15-P/4095,T39

JR3204

SET

(P)+2

JR3205

S3

SET

(P)+l

JR3206

P/2,T15-P/409S.T39

(j

JR3207

SET

(P)+2

JR3208

FOT

SET

(P)+2

JR3209

P/49T15~P/4095,T39

JR3210

SET

(P)

+2

JR3211

Fl

SET

· (I'

)+4

JR3212

P/4.T15-P/4095,T39

JR3213

St:T

(P)+2

JR3214

F2

SET

· (P) +4

JR3215

P/4~T15-PJ4095,T39

JR3216

SET

(P)+2

JR3217

Nl

SET

(P)+4

-

JR3218

P/4tT15-P/4095,T39

JR3219

SET

(P )+2

JR32Z0

N2

SET

(P)+4

W_

..

JR3221

P/20.T15-P/409StT39

JR3222

SET

(P)+2

JR3223 G

SET

(P)+20

"".,.

JR3224

P/20,T15-P/4095,T39

JR3225

SET

(P}+2

JR3226

SORTO

SET

(P)+20

JR3227

P/20,T15-P/4095,T39

JR3228

SET

(P)+2

JR3229

SORTA

SET

(P)+20

JR3230

P/20.T15~P/4095,T39

JR3231

SET

(P )+2

JR3232

SORTS

SET

...

(P)+20

0 JR3233

P/1900~TlS-P/4095.T39

JR3234

SEt

tP)+2

JR3235

OPENM

SET

.

(P}+i900

.

JR3236

P/1900.Tl~-P/4095.T39

JR3237

SET

(P)+2

JR3238

MY

SET

(P)+190Q

.......

-

JR3239

P/1900.t15·P)4095~T39

..

,..

~

JR3240

SET

(P)+2

,-------.

JR3241

MN

SEt '--

(P

) +

1900

~)

JR3242

~!~900.Ti5-~/4095.t39

JR3243

SET (P)+2

JR3244

MULrA

SET

(P)+i900

JR3245

P/1900~T15-P)4095;T39

JR3246

SET

(P)+2

JR3247

MULIB

SET . <P)+1900 .

JR3248

P/i900,TlS-P/4095,T39

JR3249

SET-

tp)+2

JR3250

MULTC

SET

(1')+1900

JR3251

P/i28tT15-P/4095,T39

JR3252

PROGS

SET

(P)+i28

JR3253

P/30,T15-P/4095tT39

JR3254

SET

(P)+2

JR3255

PROG

SET

tp)+30

JR3256

P/126~T15-P/4095.T39

Jf.<32s1

0/0

JR3258

0/0

JR3259

DATA

SET

(P

)+126

JR3260

P/15,T15-P/4095tT39

JR3261

SET

tP)42

JR3262

BUFF

SET

(P)+15

JR3263

P/409S.T39

JR3264

END

ALGY

(~)

I~

ALGY_Algebraic_Manipulation_Program_Jun1961 ALGY Algebraic Manipulation Program Jun1961

Navigation menu

Versions of this User Manual:

Views

Navigation