Digital PDFs

DEC-12-UW8B-D

December 2000

150 pages

Original

11MB

Document:	dec-12-uw8b-d
Order Number:	DEC-12-UW8B-D
Revision:
Pages:	150
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-12-uw8/dec-12-uw8b-d.pdf

OCR Text

mum

LIFE

pdo
boo

TABLE OF CONTENTS

1.0

INTRODUCTION

2.0

HARDWARE REQUIREMENTS

3.0

INITIAL STARTING PROCEDURE

4.0

OPERATING PROCEDURES

4. 1

INITIALI ZATION

4.2

CHOICE

1 -

GENERATE NEW SPECTRUM

4.2.1

Instrument Definition

4.2.2

Spectrum Definition

4.2.3

Commands

Halve Display Size

Double Display Size
Baseline Correction
Offset

6
7

Fix Point Value

Print Selected Peak Points

Exit

Identify Unknown Spectrum
2 - PRINT

4.3

CHOICE

4.4

CHOICE

ERASE

4.5

CHOICE

RETURN TO DIAL

5.0

ERROR MESSAGES

6.0

ASSEMBLY INSTRUCTIONS

APPENDIX A

SUMMARY OF DISPLAYED MESSAGES

A-1

APPENDIX B
APPENDIX C

CORE MAP

B-1

LIFE DATA TAPE

C-1

APPENDIX D
APPENDIX E
APPENDIX F

SPECTRUM DATA INDEX BLOCK
SPECTRUM DATA BLOCKS
FLOWCHARTS

INDEX

J2f

D-1

E-1
F-1

DEC"~12~UW8B-D
January, 1971
REPRINTED AUGUST, 1971

(cj

1970 by Digital Equipment Corporation

The material in this handbook, including but not
limited to instruction times and operating speeds,
is for information purposes and is subject to change
without notice.

The following are trademarks of Digital Equipment
Corporation Maynard Massachusetts
,

DEC
FLIP CHIP
DIGITAL

PDP
FOCAL

COMPUTER LAB

The equipment described herein is covered by patents
and patents pending.

For additional copies order DEC-12-UW8B-D from Program
Library, Digital Equipment Corporation, 146 Main Street,
Maynard, Mass.
01754
Price $S.OO

1-0

INTRODUCTION

LIFE (Library File Entry) is a data storage and retrieval program designed to characterize and store data acquired with the PDP-12 Signal

Processing Programs. Prominent features of the spectrum are located
using an interactive display and then characterized and stored on LINCtape or disk (RK8 or RF08) as an independent entry in a LIFE "library"
of spectra data.
An unknown sample can then be identified by comparing
its spectrum with spectra of known library samples

(fingerprinting)

for

that instrument.
2.0

HARDWARE REQUIREMENTS

The minimum configuration for using LIFE is:

PDP-12A computer with 8K of core memory
The program does not require, but will support, an RK8 or RF08 disk.
3.0

INITIAL STARTING PROCEDURE

LIFE runs under and must be loaded via LAP 6- DIAL- MS

using the command

LO LIFE,n^

where n is the unit containing LIFE.
regardless of the value of n.
4.0

OPERATING PROCEDURES

4.1

Initialization

DIAL-MS must be on logical unit 0,

LIFE indicates that it has been successfully loaded into the computer
by displaying the following message:

Message

LIFE IS CREATED

LIFE UNIT

Hereafter referred to as DIAL-MS.

The tape/disk unit which contains the LIFE library must be defined by

typing a one or two digit number followed by line feed on the teleAny of the DIAL-MS device unit numbers are applicable (refer

printer.

to the LAP6-DIAL Programmer's Reference Manual, DEC-12-SE2D-D) .

(All

scope messages are presented using the QANDA subroutine, DEC-12-FISA-D.
It is assumed that the user is familiar with the conventions of QANDA.

Briefly, they are:

by pressing line feed.

The last reply to a scope message is terminated
2.

Replies other than the last one to any

scope message are terminated by pressing carriage return.)

At this time, the LIFE library unit must be on-line to the PDP-12 and
its WRITE feature must be enabled.
If it is not, the program will wait
until either the I/O PRESET key is pressed, in which case the LIFE pro-

gram may be reloaded, or until the above conditions are satisfied,

Tne

program then interrogates the defined LIFE tape/disk and displays the
following message if the tape/disk has never been initialized by the
LIFE program:

Message

NOT LIFE TAPE

INITIALIZE?

Y OR N:_

Entering a Y and pressing line feed will cause the tape/disk on the
defined unit to be initialized.
Typing an N and line feed will cause message
initialization will take place.
If the tape/disk was initialized,

to be displayed and no

all other characters are ignored, or

if a Y was entered in response to message 2,

the following message is

displayed:

Message

FUNCTIONS
1.
2.
3.
4.

GENERATE NEW SPECTRUM
PRINT
ERASE
CALL DIAL

CHOICE
The four major modes of operation are defined in the above message.
The user indicates his choice by entering the number (1-4) associated

with the chosen mode.
2

CTRL/R may be typed in response to any subsequent display, causing an
immediate return to message 3.
Choice

4,2

GENKRATE NEW SPECTRUM

A spectrum which is stored on tape/disk can be displayed using choice
A definitive set of parameters can then be entered to the LIFE
1.
library tape/disk or the LIFE library tape/disk may be searched for
those previously stored spectra which have similar characteristics.
4.2.1

Instrument Definition

The following message is displayed -after choice

Message

is specified:

INSTRUMENT NAME
All entries to the LIFE library tape/disk are classified by the instrument from which the sample was taken.
Up to 67 different instrument
names may be defined; each name may be up to four alphanumeric characters in length.

Once the instrument name for the data has been defined LIFE interrogates its library tape for a match.
If no match is found (i.e., this
,

the first entry under the particular instrument name)

the following

message is displayed.
Message

NEW INSTRUMENT
ACCEPT? Y OR N:_
TYPE
1

IF X ONLY
IF X AND Y

To add a new instrument class to the library tape, type Y and press
RETURN.
The method by which the spectrum data stored under this instru-

ment class must be defined consists of two choices 1 for X only or 2
for X and Y.
X is the position in the file (nth point) and Y is the
magnitude (value of the nth point)
Therefore if a new instrument
class is to be entered, first type Y, then type 1 or 2 (describing the
,

number of parameters) and line feed.

If a new instrument class is not to be opened

error occurred)

(e.g., a typographical

type N and line feed; LIFE will return to message 4.

Spectrum Definition

4.2.2

In either case, once the instriiment name has been defined, the following

message is displayed:

Message

UNIT NAME

SPECTRUM NAME

The name assigned to the tape/disk on which the raw data is stored is

entered in the first line followed by pressing return.
be one to four alphanumeric characters.

(NOTE:

This name can

It is suggested that

each tape or disk be labeled or numbered and that this name or number
be entered in response to line 1 of message 6.)
The spectrum name is then requested by the LIFE program.

This name may

be up to 16 alphanumeric characters in length and must be entered in

two groups of up to eight characters each.

The second is terminated by a line

by a carriage return or line feed.
feed.

The first group is terminated

For example.

SPECTRUM NAME

SODIUM C

ARBONATE
or

SPECTRUM NAME

STYRENE

The location of the defined spectrum is specified next.

Message

UNIT NUMBER
START BLOCK
PTS IN SPECTRUM

The UNIT NUMBER may be ^-1

defining one of eight tape drives, or 1^-11
defining one of eight logical disk units.
The defined unit must be
on-line to the PDP-12 at this time.
If it is not, the program will
wait until the above condition is satisfied.
,

START BLOCK is a one to three digit octal number
starting block of the raw data.

defining the

PTS IN SPECTRUM defines the number of points in the spectrum and is
decimal number in the range 513 to 2040.

The location of the spectrum is now completely defined and LIFE displays
it on the scope.
The user may control the position of the display with
A/D knob 0.
A clockwise motion of knob 0 moves the display window to
the right; a counter-clockwise motion moves the display window to the
left.

The farther the knob is rotated from the mid-point position, the
faster the window moves.
The display is made stationary by leaving knob
0 in a middle position between its two extreme positions.

It should be noted that the display window wraps around either end of
the file, that is, PTj3 and PTn are assumed to be adjacent.

A/D knob 1 can be
There is also a cursor which is fixed to the curve.
to
counterclockwise
moved clockwise to move the cursor to the right or

move it to the left.

When knob

turned to its furthermost clockwise (counter-clockwise)
position, the cursor sits upon the rightmost (leftmost) scope point.
1 is

Associated with the cursor are four octal words displayed in the top
left corner of the scope.
The first word will always be zero.
The
second word is the actual core address of the cursor point.
Its range
from 2000

(representing the first point of the file) to 5770.
For
example, if the defined file contains 1001 octal points {513 decimal),
is

this word

will range from 2000 to 3000, where 2000 represents the first
point of the file and 3000 the 513th point of the file. The third word
is the octal equivalent of the contents of the cursor point

(i.e., the

actual 12 bit value in the data buffer of the data word which corresponds
to the cursor point) and is in the range 0 to 1000 ^ (top to bottom)
o

where the center value is 400^,
The fourth word is relative to the third
word and reflects the Y offset and Y scale and is of no interest to
the LIFE user.

Commands

4.2.3

Once the display appears, the Teletype becomes active and the user may
enter a number of commands
These command operations are performed immedi"-ately no terminating character is required.
They are
.

;

(halve display size

The command dash

(-)

)

divides each data point by

before it is displayed.

The actual data is untouched, but the peak heights seen on the scope are

smaller.
The dash may be typed repeatedly up to three times

(division by

8) .

should be noted that the display window returns to the beginning of the
file each time dash is typed.
The function of the halve command is to
enable 12-bit unsigned (feta (not gathered through the PDP-12 Signal Pro-

cessing System perhaps) to be processed.
+

(double display size )

Typing a plus sign (via the

;

key and the SHIFT key) multiplies the

value of the displayed points by

2 each time the key is struck.
It may
only be used after a dash (the initial display is the largest representa-

tion of the data available)

Doubling the display size only changes the

spectrum displayed; there is no change in the data file.

Each time a

plus sign is typed the display window is positioned to the beginning
of the spectrum.
B (baseline correction

)

When B is typed, the base line of the spectrum is set to the Y axis
cursor value.
Then the base line is positioned to the vertical center
of the scope and the display window returns to the beginning of the
spectrum.
All subsequent Y values will be interpreted relative to the
baseline.

O (offset)
The zero point of the X axis is set to the cursor X value

(i.e.,

the

point in the raw data file) which effectively sets the reference point
for all future X values.
Typically, the cursor would be positioned on
a reference or identity peak and then O will be typed.
In this way,
all library entries for a particular instrument have a common reference
point.
The spectrum must be offset before any values are fixed or an

error message will result.

(In that case,

fixed values must be deleted

with the E command.
F

(fix point value

)

Characteristic peaks of the displayed spectrum may be specified by the
user to describe the points of interest.
These values are stored on the
LIFE library tape/disk and used when identifying an unknown spectrum
by comparison.
A point is fixed by the following procedure.
1.

Position the display window (using knob 0) so that
the desired peak is in view, and the display has
stopped moving.

Position the cursor (using knob 1) to the characteristic value of the peak.
The third word of the cursor display may be helpful in this positioning.

Type F on the Teletype.
The value of the cursor
point is now recorded and the above procedure may
be repeated for the next point of interest.

As many as 95 values may be fixed at a time

(190 for a single parameter

instrument); at least five must be specified.
In addition, each successive X value must be greater than the previously specified X value as

determined from the second number displayed in the left corner of the
scope.

The response to message 5, type of instrument, determines what data is

stored.

For one parameter instruments, only the X value is stored.
diagram,

In the above

will be stored if an F is typed at the cursor value shown.

For two parameter instruments

point will be stored.

both the X and Y values of the cursor

In the. above example

X will still be 7.

Y will

be the difference between the cursor data point value and the baseline
value.

Note that if the baseline has not been set using the B command,

it is assumed to be zero.

In the following example

the O, B, and F commands are used.

The bottom

horizontal scale shows the X values of the raw data for a 25 point specThe vertical scale shows the Y values of the raw data.

trum.

The let-

tered points represent the cursor values.

123456 789

10 11

\
1

10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

First the cursor is moved to position A and 0 (for
offset) is typed to set the X axis zero point at raw
data point 14. The top horizontal scale shows the X
axis relative to the offset zero point.

The cursor is then moved to position B and B (for
baseline) is typed.
This sets the baseline to a
value of 2 on the vertical scale.

Finally, the cursor is moved to positions C, D, and
and F (for fix location) is typed at each position.
The values stored are as follows:

Cursor Position

X Value

Y Value

-8
0

3
4
2

C
D
E

(print selected peak points

)

The P command allows the user to print out the selected peaks just de-

For the above example

fined.

SPECTRUM

X VAL

-0008
0000
0001

the printout would be as follows

EXAMl

INSTRUMENT

NMR
Y VAL

0003
0^^4
0002

The above commands are used to define or characterize a spectrum.

Each one of them may be implemented at any time and as often as desired

When a spectrum has been completely characterized two options remain
X

(exit

)

An exit request will store the fixed spectrum characteristics on the
LIFE library tape/disk.
If less than five parameters have been defined,
an error message will result.

If E has purged the list of parameters,

or if no parameters were saved, no storage will take place, and the

program will redisplay message

U (identify iinknown spectrum)
This mode allows the user to search the LIFE library tape for spectra
with similar characteristics to the spectrum just defined. The search

will include only those spectra which were previously stored under the
defined instrument name of the unknown.
The comparison will be carried
out on those parameters defined by the fix command.

When U is typed, the following sequence of messages is generated:
Message

ALLOWABLE ERROR TOLERANCE
1
2

PERCENT
ABSOLUTE

CHOICE
X TOLERANCE:
Y TOLERANCE:

Because an exact match of parameters is not likely

LIFE allows the user

to specify the allowable error tolerance around a library spectrum peak

value within which the defined spectrum peak value being compared may
fall and still be considered a match.
This tolerance may be specified
as a percent of the library peak

from the library peak

[0-99%]

or as an absolute difference

[J2f"999] .

The choice of percent or absolute tolerances is made in the first line
of the above message by typing

for percent or

for absolute.

X tolerance is the tolerance applied to the X peak parameter.

If per-

cent was chosen, its range may be 0% to 99% of the library peak.
If
absolute was chosen, its range may be 0 to 999 (decimal).
Y tolerance
is

the tolerance applied to the Y peak.

those for the X tolerance.

Its restraints are the same as

Y tolerance will be ignored if the instru-

ment's spectra contain only X values.
The tolerance, whether percent or absolute, extends to both sides of

the library peak value.

Therefore, a match exists for X values between

of the library spectrum and X^ of the unknown spectrum if the follow-

ing condition is true:
X^-TOL<X, <X^+TOL

where
TOL = X VALUE (absolute)

or
TOL = X^

X VALUE (percent)
100

The next display for identifying unknown spectra is:

Message

MISSES ALLOWED
The number of misses, or non-matches , that will be accepted in the com-parison of the peaks of two spectra must be specified.
This number may

range from

to 94 and must be less than the number of fixed peaks in
the unknown spectrum, because the matching algorithm determines that
jZf

each peak in the smaller [fewer peaks] of the two spectra being com.pared
is either a "match" or a "miss".
If the number of misses is greater
than the number of points in the unknown, each library spectrum would be

considered a match for that unknown, regardless of the similarity of the
spectra.
After the number of misses is specified, the LIFE program will search
the LIFE library tape for matching spectra using the restrictions defined above.
If no spectra have been saved previously for this instrument, the program returns immediately to the spectrum display.
The following is a summary of the matching algorithm for a two parameter [X,Y]

instrument.

(The matching algorithm for

a one parameter

[X]

instrument

is a subset of this algorithm.

To determine if an unknown spectrum peak matches a library spectrum peak
it is necessary to know:

which spectrum has fewer fixed peaks [if the number
of spectrum peaks are equal, the library spectrum is
assumed to be smaller]

the X and Y components of this library peak,

the X and Y components of the unknown peak,

the absolute tolerance [if a percent tolerance was
chosen it is now multiplied first by the library peak
X component to yield the absolute X tolerance for this
peak, and then by the library peak Y component to yield
the absolute Y tolerance]
11

It is assumed that,

for both spectra, all peak X values are in ascending

order.

For the program to consider the library peak with which to "match" the
unknown peak, it is necessary that:
a.

LIB X VAL - XTOL£UNK X VAL£LIB X VAL 4- XTOL
LIB Y VAL - XTOL^UNK Y VAL£LIB Y VAL + YTOL

If both conditions are true,

the peaks match, and the next peak in each

spectrum is considered
If either one is untrue,

yet said to occur.

the peaks do not match, but a "miss" is not

"miss" is a peak on the smaller of the two spectra

that does not match any peak on the larger]

A miss will occur for a

peak if the following are true:

the peak is on the smaller spectrum,

the peak X value is less than the X value of the larger
spectrum,

the matching criteria a and b above are not met.

If the matching criteria are not met

the spectrum peak with the smaller

X value is replaced with the next peak from that spectrum, and a new

comparison is made.

Whenever the number of missed peaks on the smaller spectrum exceeds the
number of misses specified, the program immediately reinitializes and
starts comparing the unknown to the next library spectrum [if any]
If all spectrum peaks on the smaller spectrum have been compared,

and

the allowed number of misses has not been exceeded, the library spec-

trum is output as a match for the unknown.
If all spectrum peaks on the larger spectrum have been compared, all

remaining uncompared peaks on the smaller spectrum are considered as
misses, and the decision to output is made immediately thereafter.
The following is an example of the printout that will occur during the

matching operation:

UNKNOWN:

SPECTRUM

PK, PTS

T-BUTCL2
LIBRARY!

SPECTRUM

PTS

PK,

T-BUTCL2-SAMi

60
43
54

T-BUTCU2-'SAM2

T-BUTCL2-SAM3

MISSES
1

Note that either the library spectrum or the unknown spectrum may be a
subset of the other, and a match will still occur,

When the matching operation has been completed, LIFE returns to the
display mode and the +,
B, O, F, P, x, and U commands again become
active,
4.3

Choice

After initialization, the PRINT mode generates on the teleprinter
the
index of the LIFE library tape/disk unit or the peak values for a
particular spectrum for a specified instrument.
The initial PRINT display is:

Message 11
1.
2.
3.

INDEX
LIBRARY SPECTRUM
EXIT

CHOICE
Type the appropriate nximber

Typing

to 3.

prints an index containing the instrument' s name, spectrum
name, unit name, starting block and number of points fixed similar to
the following.
The order in which the spectra are listed is the order
in which they were placed on tape.
1

INDEX OF LIBRARY SPECTRA

strument

STARTING

DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC

OOCB

NMR
NHR
NMR
NMR
NMR
NMR
NMR
NMR
NMR
NMR
NMR
NMR
NMR
NMR
NMR
NMR

Typing

TAPE NAME

SPECTRUM NAME

INOENE
OlOXANE W/ Cl3
TETR4SLYME
OIPMENVL METMANE
TE RAHYOROfURAN
XYLENOU
ROUYITYRENC
METHYL FORMAMIOE
DIMETHOXYNAPTHA
t-butanol
T-BUTCL2-SAH1
T-BUTCL2-SAM2
T-BUTCL2-SAM3
I

•

T-BUTCl.2

010
160
170
220
230
240

0018
0032
0025
0012
0014
00(!7
n n ^ (%

260
270
320
390
370
390
410
430
450

0007
0014
0026
0012
0015
0060
0043
00§4
0090

displays the following message:

Message 12
INSTRUMENT NAME

SPECTRUM NAME

See message

and message

for the acceptable response sequence for

message 12.
The number of peaks printed is the number of peaks that were fixed,

A sample printout has the format:
SPECTRUM

T-BUTANOL

INSTRUMENT
PK

NMR

VAL

.0033

0844

-0026

0051

0050

0129

0054

0055

0077

0084

At the completion of either printout, LIFE returns to message
Typing

causes LIFE to return directly to message

4.4

Choice

ERASE

The ERASE mode permits deletion of the entire LIFE
library (essentially
reinitialize the tape), an entire instrument type, or a single
spectrum.
The first message displayed for the ERASE option is:

Message 13
ERASE
1.
ENTIRE LIBRARY
2.
ENTIRE INSTRUMENT
3.
SINGLE SPECTRUM
4.
EXIT

CHOICE^
The choice is made by typing the appropriate number
followed by line
feed.
If 1 is typed, the LIFE library is to be reinitialized,
removing all
files from the library tape/disk.
A warning message is displayed first
to minimize accidentally destroying a library tape.

Message 14

SURE?_
Type Y if the whole tape is to be erased; type N if this
was an incorrect choice. Message 3 is displayed after either response.

Typing

indicates that an instrument name is to be deleted from the
LIFE library tape/disk.
The following message is displayed:
2

Message 15

INSTRUMENT NAME
Refer to message

for the response syntax.

The instrument name and
all the associated spectra are then deleted from the
LIFE library tape/
disk and message 3 is displayed.
If 3 is typed, a particular spectrum is deleted
from the LIFE library
tape/disk.
Message 12 is displayed in order to define the spectrum to

be deleted.

Refer to message 6 for the response syntax. After typing
the reply, the spectrum is deleted and message 3 is displayed.

A response of

to message 13 causes LIFE to return to
message 3.
15

4,5

Choice

RETURN TO DIAL

After initialization, the user may return to the DIAL system by typing
4

on the teleprinter*

5.0

ERROR MESSAGES

An error will be indicated by a message in the form

ERROR
N

PRESS LINE FEED

TRY AGAIN,

where N is one of the following numeric error codes:
1.

ATTEMPTED TO ADD SPECTRUM THAT WAS ALREADY IN LIFE FILES.

ILLEGAL CHARACTER TYPED.

OFFSET

NUMBER OF MISSES REQUESTED

ATTEMPTED TO SAVE A SPECTRUM WHOSE NUMBER OF PEAKS IS NOT BETWEEN
5 AND 95.

X VALUE OF CURRENT PEAK <X VALUE OF LAST PEAK STORED.
CANNOT BE CARRIED OUT.

NO MORE ROOM ON LIFE UNIT .[INDEX OR BLOCKS].

6.0

[O]

REQUESTED, BUT PEAK VALUES HAVE ALREADY BEEN SAVED.
>

NUMBER OF POINTS IN UNKNOWN SPECTRUM.

F COMMAND

ASSEMBLY INSTRUCTIONS

There are four subprograms to the LIFE system, which are assembled together via the chaining feature of DIAL-MS. They are:
LIFE B0

[resides in instruction field 0]

LIFE B4

[resides in instruction field

LIFE B6

[resides in instruction field

LIFE B5

[resides in instruction field

To assemble LIFE, the command is simply
AS LIFE B01,0

assuming the DIAL-MS tape containing LIFE is mounted on unit 0.
To save the binary, the proper DIAL command is:

— SB LIFE,0,L10026^

APPENDIX A
SUMMARY OF DISPLAYED MESSAGES

LIFE IS CREATED
LIFE UNIT—
tape not initialized

initialize
LIFE tape
N

NOT LIFE TAPE
INITIALIZE? Y OR

FUNCTIONS}

GENERATE NEW SPECTRUM
PRINT
ERASE
CALL RETURN TO DIAL

1.
2,
34.

-0

choice:

—

INSTRUMENT NAME
new instrument

NEW INSTRUMENT
ACCEPT? Y OR N:
TYPE
1 IF X ONLY
2 IF X AND Y

DIAL
I

existing instrument

>J^

UNIT NAME
SPECTRUM NAME-

UNIT NUMBER
START BLOCK
PTS IN SPECTRUM-

(

Jcommands may be

typed:
|

+
B

O
F
P

X
U

halve display
double display
baseline correction
offset
fix point
print peaks
exit
identify
U

<E)

0
ALLOWABLE ERROR TOLERANCE
1
-

PERCENT
absolute

choice; _
x tolerance
y TOLERANCE-

—

MISSES ALLOWED—

ERASE
1.
2.
3.
4.

ENTIRE LIBRARY
ENTIRE INSTRUMENT
SINGLE SPECTRUM
EXIT

CHOICE

SURE?
*

INSTRUMENT NAME

INSTRUMENT NAME
SPECTRUM NAME

-INSTRUMENT
^ J

LIBRARY IS^
REINITIAL-*

—

NAME IS
DELETED

1.
2.
3.

INDEX
LIBRARY SPECTRUM
EXIT

CHOICE

Jl
INSTRUMENT NAMESPECTRUM NAME—

I
'

I
I

PEAK
VALUES
ARE
PRINTED

A-

INDEX

IS
^ PRINTED

SPECTRUM IS
DELETED

APPENDIX B
CORE MAP

Segment
LIFE BJ?
(UNKNOVm PK BUFF
FROM 10j2(-4i2ri2f)

LIFE B4

TEXT MESSAGES

QANDA
LIFE B6
(SUBROUTINES)

SUBROUTINES
LIFE TAPE BLK 0
LIFE TAPE CURRENT BLOCK
DIAL MS I/O ROUTINES

B-1

APPENDIX C
LIFE DATA TAPE

BLK 0
9^

INDEX

777

C-1

APPENDIX D

SPECTRUM DATA INDEX (BLOCK jS

WORD

)

1110-1111
3

word format/instrument
4
ASCII character
words 1,2:
instrument name
Bits 0,1- Numerical
word 3:
parameter of
instrument
Bits 2-11 = START BLOCK
of instrument
data

Maximum of

6j3f

instruments

N
T

R
I

E
S

325

MAP

377

bit corresponding to each block
from 0-^1111
Set if Block in use.
Clear if Block unassigned.
Bit 0 always set.
End bits corresponding to
Blocks > 7777 always set.
1

111111

D~l

APPENDIX E
SPECTRUM DATA BLOCKS
Unused (if first block of an instrument's data)
16 ASCII characters (if first word = 7777,
end of instrument datai

SPECTRUM NAME

TAPE NAME

]

START BLOCK

(if first word =
4 ASCII characters
spectrum deleted)
on DATA not LIFE) tape(

PTS IN SPEC

locations =

PTS

SPECTRUM NAME
TAPE NAME

NEW SPECTRUM

START BLOCK

NUM PTS
DATA
if 7777^ no new block.

BLKA
DATA
CONTINUED

E-1

parameters

APPENDIX F

FLOWCHARTS

STRTC

READ DIAL
MS I/O
ROUTINES

DISPLAY:
FUNCTIONS
1. GENERATE NEW
SPECTRUM
2.
PRINT
3
ERASE
4.
CALL DIAL
CHOICE _ "
/

/
S TRT^

DISPLAY:
/"LIFE IS CREATE!
'life unit _ ^ "

<;^H0ICe\
YES
READ BLOCK
INTO B7QJ0f

j2l

-^TRT^
)TD0R)

VRfi/lS TT T.TFfK

btprt )

(sterr)

TAPE?
STRT2j

DISPLAY:
^"NOT LIFE TAPE

INITIALIZE?
y OR N; _:r,^

<^ INIT

YES

INITIALIZE
TAPE
(7770-7777)

Q STDIAlT^
NO
GET TO PDP
MODE

JMP TO DIAL
RESTART IN
I/O HANDLER

DIAL

STPRT

TYA2

(PRINT
(Option!

DISPLAY
PRINT
1. INDEX
2. LIBRARY
SPECTRUM
3. EXIT

IS nextN

ENTRY A

YESi

|S^TC^

(PRINTOUT
OVER?)

CHOICE^

NO
IS NEXT

-Gentry del?)
>

,yes

SKIP PAST
INDEX ENTRY

GET INST NAME
FROM INDEX INTO
4 ASCII CHAR IN
SPECTRUM PART OF
PRINTOUT LINE

CHANGE
BANKS

^^^tya
,

)

PRINT 3
LF*S
GET THIRD WORD
OF INDEX ENTRY
(=FIRST SPEC BLOCK)

PRINT
"INDEX"
READ
FIRST BLOCK
INTO B7Q1

PRINT 2
LF'S

GET TO START OF
SPECTRUM DATA

> r

PRINT
HEADER

TYA4

MORE SPECTRA
\yes
(NEXT WORD =0) ?/(GE']
(GET NEXT

PRIN T 1
I.F

INST)

SET PTR:
11=L0C INDEX ENTRY BLK

DELETED
SPECTRUM
j2f

(TAPE WDl=j2f)?

F-2

TYA2

^ PRT2

^ 'PRINT

SAVE SPECTRUM
NAME, TAPE NAME

DISPLAY:
"INSTRUMENT NAME
SPECTRUM NAME"y

GET STARTING
BLK

SINGL

1
"^TYAYS)

END OF
INST DATA

STORE SPECTRUM,
INST ANS IN
OUTPUT BUFFERS

CONVERT TO
OCTAL

^TYC

^ STARTC J

^
DO ERi2f
(FIND INSTRUMENT
IF ANY,
MATCH,

GET NUM
PTS

FROM BLOCK0
OF LIFE TAPE)^
t

LINE

/to "PRINTLN"^^
I

GET TO
NEXT SPECTRUM

SPECTRUM

^ TYCIN

^WTCH^^^j^^~>^ S TARTC^

(OUTPUT IT) J

YES

(tyax)

UPDATE FILE
POINTERS

GET FIRST
BLOCK OF INST
DATA IN AC

—

TYA4

TYCl^

READ IN
BLOCK

^TYCIA^
,
TRANSFER
NEXT SPEC
NAME TO BUFF

IS SPECTRUm X vpr
,

DELETED?/
^TYCIM^
NO 4
(

PRINT
HEADERS
(SPEC NAME,
INST NAME
XVAL,YVAL,PR)

DO COMPARE
OF NAMES

^^^TYCNT
1

^MATCH'^-J^
YES

F-3

1
f
1

SET MR
TO -NUM PTS

SPECTRUM
FOUND,
PRINT

SET PTRll TO
(LINENUM)

J3f

TYCID

—

SET PTR7 TO

-NUM PARA
1"

TYClE

STORE NEW
LINE #

GET NXT X
VAL IN AC
.

TYCIF

CONVERT, STORE

.ISS^MORE

\PARA? /
NO

PRINT LINE
BMP 11

F-4

ERR2

STORE 7777
FOR 3 WD
INDEX ENTRY

^
DELETE "j
I

J INST ^ I

^ER2RTN

DISPLAY
^"INSTRUMENT)
NAME"

WRITE BLOCK
9

— iPcsuB ^
SAVE IT

^ STRTB ^
DO ERj?
(FIND MATCH, IF
[ANY, ON INST NAME

.FROM BLKj2( INDEX)

MATCH
YES

ST ARTE

ER2

GET FIRST
BLOCK IN
AC

DO ER2S1
(CLEAR
^CORRESPONDING
DA BIT)

GET THE
BLOCK

LAST?
NO^ /
(WD 377=7777)?

YES

F-5

Q STERR

INTP

^
'

/4 .

ERASE
OiOSEN j
I

DISPLAY
"ERASE
ENTIRE LIBRARY
1.
ENTIRE INSTRUMENT
2.
3.
SINGLE SPECTRUM
EXIT
CHOICE-

STORE 111^-1111
TO IDENTIFY
LIFE TAPE

STORE 0 THRU
INDEX, DA MAP

PUT I'S FOR BLKJ?,
ODD BITS OF

LAST WORD

WRITE BLOCK
OUT

(

sT^TC^

JERR3

F-6

Q ERR3 ^
I

DELETE '
SPECTRUM

WRITE OUT
BLOCK
!

DISPLAY
^"INSTRUMENT NAME
SPECTRUM NAME '7

WRITS OUT
BLOC:k j?
:

STORE SPECTRUM,
INSTRUMENT ANS
IN OUTPUT BUFF

^startb"~^
HDELSP

DO ER|?
(GET INSTRUMENT
[ENTRY IN BLOCK 0
IF ANY)

MATCH?
YES

WRITE OUT
BLOCK fg

GET FIRST
BLOCK IN
AC

Q STARTB ^
1f

FNDSPB
(GET SPECTRUM
MATCH: AC=0;
IF NONE, ACt^J?)

^ MATCH?

]>N0
^

YES

STORE 0
IN FIRST
TAPE WORD

F-7

^ STDOR

STD0R6

^
•GENERATE
I

DISPLAY
/iNSTRUMENT
/
NAME
/

SPECTRUM
CHOSEN

^PCSUB^

DISPLAY
UNIT #
START BLl

JL
SAVE IT

LEGAL

)

YES

STORE
DATA

DO ERjaf

((CHECK FOR INST
V MATCH IN BLK9)

^ STD0R3 ^

^ORAGO

(

SET:
#

PT 0FFSET=1777
LAST PT VAL=
-LARGE

DISPLAY
/"NEW INSTRUMENT
ACCEPT? 7 OR Ki/
DISPLAY
"UNIT NAME
/SPECTRUM NAME"

TYPE:
IF X ONLY
2 IF X AND
1

Xdo clrcru
/

{CLEAR UNK
CURVE B0 LOC
191 0-371)

STORE TAPE,
SPECTRUM NAME

J
^RGQl^

1 7

^ STDQRG

UNKPTS=J2f

SET UP TO READ
# BLKS OF
SPECTRUM DATA

—\ CARRY PAST
YES \

777?

NO
DO READ
OF DATA

^D0RGQ3
'D0RG03

F-8

SET PTR5 AS
UNK PEAK INDEX
(TO 77)

INITIALIZE
DORETTE
PARAM'S

D0RG04~^
CLEAR
KEYBOARD

DORETTE
(MOVING
WINDOW)

NEW
JiO/CHARACTER
FROM
VKEYBOARD/

YES
1r

ECHO IT

T
(

mINUSI)

PLUSl^

(^01

(

C Bl 3

F-9

Cji

OTHER

ADD ANOTHER||
I

IPEAK

TOO MANY

\PEAKS ALREADY

D0RG04

(795)

GET XV AL
- OFFSET

YES

^ FIRST PT ^
NO

IS THIS XVAL ^-^^^^-

(

LAST

—

STORE
XVAL

MORE THAN^
ONE PARA /

STORE YVAL
AS CORVAL-

YOFFST

BUMP #
UNK PEAKS

D0RG04

^^^^^

^
)

^ MINUS

PLUSl

DECREASE
jDISP SIZE

"
}

iBY 2

GET -1
IN AC

GET +1
IN AC

ADD TO
YSCALE
p<C—

'IS

SCALING
WITHIN
LIMITS

—

YES

REPLACE
WITH HARD
LIMIT

STORE AS
NEW SCALE

Q D0RG04

K
F-11

INCREASE
DISP SIZE
BY 2

^SET NEW )
'baseline;

ERASE ALL
CHOSEN PEAKS

CLRCRU

SENSE SWITCH
5 IGNORED

{CLREA UNK
rDD

CURVE, B)2f
LOC lJ2(jaf-377)

YOFFSET==-CORVAL
1

REINITIALIZE
PK PTR 5 TO
LOC 77

^ D0RG04 ^

CEZ)
J

SET

OFFSET

—

TAKE PRESENT
PEAK NUMBER,
STORE AS
OFFSET

^ D0RGQ4

F-12

Q PRNTl

^
print out
[peak values
cCHOSEN
'

CLEAR
PRINT BUFF

INITIALIZE TYCNT
PRINT ROUTINE BY:
A. NUMPTS=# LINES
B. DATA PTR TO UNK
BUFF (NOT LIB)

DO TYB
(PRINT HEADER)
"PK XVAL YVAL"

DO TYCNT
(PRINT PKS)

^ D0RG04 ^

F-13

ADSSPX

*
t

jEXIT PEAK
PICKING MODE.

\
1

/ARE THERE

NEW
SPECTRUM
UNIQUE
'

.MAY ADD SPECTRUM

YES

TRANSFER:
SPECTRUM NAME
TAPE NAME
START BLK #

^HAVE AT

# PTS
ALL PK VALUES
END 7777

ANY PKS
V CHOSEN?

LEAST

LIBRARY

S^PEAKS BEEN,

vCHOSEN?
YES

DO ERl
(FIND IF

NO./ BLOCK OVERFLOW
ANYWHERE?
\

YES

INSTRUMENT
]
EXI^S IN BLKJ2f J
/^
INDE X
j
)

DO FN DAD
(GET NEW DA
VbLOCK, SET BIT)

ADSSPA
J)

MATCH?

{

TAPE
FULL ?

PLACE NEW BLOCK*
IN LAST WORD
OF OLD BLOCK.
WRITE OUT

DO FNDSPB
ATTEMPT TO

D0RG04

GET SPECTRUM^
MATCH)

^
JL«.yes^
( MATCH )^D0RG04j

DO FN DAD
(GET, SET NEW)
DA BIT)

STORE LAST
LOC AS 7777

^ADSSP^T
)

WORD
INSTRUME]tJT ENTRY
CREATE

^ ADSSPX ^

WRITE OUT
LAST BLOCK

READ BLOCK
SET UP F OR FIRST
SPECTRUM STORAGE

^ D0^04 ^

ADSSPXJ
^

F-14

\
/

-«

jIDENTIFY AN.
.UNKNOWN

SPECTRUM

DISPLAY
MISSES ALLOWED

p/IA library]
I

CHANGE ANS
BUFFER FOR
B0 DISPLAYS

IS MISSES >
# PKS IN UNK

SPECTRUM?
^'

I
LEGAL

^BPR

DISPLAY:
'^"ALLOWABLE ERROR
TOLERANCE
1. PERCENT
2. ABSOLUTE
CHOICE
X TOLERANCE
Y TOLERANCE

DO ERj2f
(FIND INSTRUMENT \
^IN BLK ff INDEX)

ANY DATA
EXISTING?
(MATCH

y!^^DQRGQ^

^NO

D0RG04

?)>

Jyes

YES

—

READ IN
FIRST
BLOCK

^ % CHOSEN
ft

YES

X% AS A
FRACTION

PRINT:
3LF
"UNKNOWN:"
"SPECTRUM PK PTS"
2LF

ONE
\yk.s
\ PARAMETER

NAME, NUM PTS OF
UNKNOWN

CALCULATE

-/lbprb

TRANSFER SPECTRUM
/

PRINT
UNKNOWN LINE

CALCULATE
Y% AS A
FRACTION

PRINT:
3LF

"LIBRARY"
2LF
"SPECTRUM PK PTS,
MISSES"
2LF
I

F-15

/^^LBPRX
j

^ LBPRX ^
INITIATE
SPECTRUM
TRANSFER

LBPRC
/IS THIS THE
END OF INST~-)XE£L

\RUMENT DATA /
NO

IS THE
SPECTRUM
DELETED?

(^D0RG04^

LBPRD

.NO,

YES

GET PAST
IT

FILL SPEC NAME,
# PK PTS ON
PRINT LINE

—

LBPRF

DO "MATCH"
(MATCH BETWEEN

UNKNOWN AND
PRESENT LIBRARY
CURVE TRIED)

MATCH
^

YES

FILL IN
NUM PTS
MISSED

*
PRINT LF

F-^16

c MATCH ^
CH

TO FIND OUT|
IF SPECTRA
MATCH

(

-V

LIBRARY?
YES

SET
FLAG

(matchc

(DO
PTCMl
(COMPARE NEXT

)

POINT)

^ matchd ^

MISSES AnO,
\ OVERFLOWED?/
/

C MATCHE 3
ARE LIB

YES

?KS COMPLETELY .YES

EXAMINED
DO PASTSP
\
(GET PAST
)
PRESENT SPECTRUM)

3^
ARE UNK
'PKS COMPLETELY
EXAMINED

SET UP
"nomatch"
RETURN

(

SET UP
"MATCH"
RETURN

)

F-17

OOT

PTCMl

^ PTCM4

3 SUBROUTINE"!

TO COMPARE

PT MATCH?
unk+tol>^lib? ,YES
^unk-tol<_lib?^

Ino

SET NUM

^ PTFAIL ^

PARA

/
-(^

PTCM2

PTFALP

IN PTR 14

PTCM3

YES

^ NO

PTCM6

BUMP
ERROR
COUNT

^
YESi

X
-c

YES

ADVANCE
PTR 7 TO
TOLERANCE

TOL

\ YES

/"DOES SPECTRUM^
NO / WITH LESS PKS
HAVE PEAK OF
LESSER VALUE,

GET NEXT
LIB PK
IN OFFSET

FIRST
PARA

RESET COMPARE
WORDS WITH
XVALUES

GET SIEXT
UNK PK

/LAST PARAGES
(DO PEAKS
MATCH?),

(

'YVAL IN SPEC~>
TRUM WHOSE PK
XVAL IS LESS?
(WAS FAILURE
ON YVAL)

BUMP
TO
YVAL

PTCMA

MULTIPLY
LIB PK BY
% TOLERANCE
[STORE IN PTR7

MOVE LIB
PTR TO YVAL

^NO

PTCM4

PTFALK^

/WERE ALL>
YES ^EAKS SEENN
EN SMALLEI
VSPECTRUMV

NO
SAVE NEW
XVAL

^ PTCM4 J

PTCM3

N0>^

PEAKS ^YES
SEEN?

ALL REMAINING
PEAKS ARE
ERRORS

GET TOTAL
PKS COVERED
r

F~18

OUT

^ PTCM6 ^
i

MATCH ON

~
j

IXVAL IN
'2 PARA. INST

SAVE X
VALUES

/ WAS LIB OR
njNK PTR ALREADY \

^y^-;>

AT YVAL? (XVAL
\ MATCH ON PREV
.

PK) ?

BUMP APP ROPRIATE
PTR TO YVAL

^
r

Jr
UP DAT E ALL

SPECTRUM PTRS

^ PTCM3 ^

F-19

INDEX

Absolute Error 10

Line Feed 2,

Assembly Instructions 16
A/D Knobs 5, 6

Loading Procedure

Baseline Correction
Coininands

Cursor

Misses Accepted 11
Modes of Operation

Non-matches 11

Core Address

CTPL/R

Octal Words

Offset

Operating Procedures
DIAL-MS
Disks

Percent Error 10

Display Window

Print 13

Double Display Size

Print Peak Points

Erase 15

Raw Data

Error Messages 16
Error Tolerance 10

Spectrum Definition

Exit

Spectrum Deletion 15
Spectrum Display 5

Fix Point Values

Flowcharts of Displayed Messages A~l

Spectrum Matching 11
Spectrum Printout 14

Functions

Spectrum Search 10

Generating New Spectra
Halve Display Size

Wrap-around

Hardware Requirements

Identify Unknown Spectrum 10
Index 13

Initialization

Instrument Definition

Instrument Deletion 15

Introduction

Library

10,

13,

(

00 00

*2 0

0001
0002

/LITE B0
/REAL TIHE LIBRARY LOOKUP OF UNKNOWN SPECTRA
/COPYRiGHT 1970J DIGITAL EQUIPMENT CORPORATION
/
MAYNARD. MASSACHUSETTS 01754

00 03

0004
0005
0006

00 07

/RELEASED OCTOBER 1970

0010
0011
0012
0013
0014
0013
0016
0017
0020
0021
0022

/
/

002 3

0024
0025
0026
0027
00 30

0031
00 32

0033

/WRITTEN BY RON KLEINMAN
/

/PTR BUFF IN THIS BANK

SEGMNT 0
•20

0020
0021
0022
0023
0024
0025
0026
0027
0030
0031
0032

0000
0004
0000
0000
0000
1777
00 00
00 00

0000
0000
0000
0000
0000
0000
0000
0000
0024
3700
4040
0012
0000

00 34

00 33

0033
0036

0034
0035

00 37

00 36

0040
0041
0042
0043
0044
0045

0037
0040
0041
0042
0043
0044

00 46

00 45

0047

0046
0047
0050

0000
0000

0051

00 00

00 50

0051
0052
0053
0054

00 00
00 00

0055
0056
0057

00 52

00 00

0053

0000

00 60

00 54

00 00

0061
0062
0063
0064
0065
0066
0067
0070

0055
0056
0057
0060
0061
0062

0000
0000
0000
0000
0000
0000

0063

3777

00 71

00 64

77 74

0072

0065

7775

PARDAT*

NUMPT0
OFFSET
BASLIN.
NUMPRA
TLRNCE
,

,
,

MISSES,
PTSLIB,
PTSUNK*
COMMIS
PTSCVD,
PRCNTl

0
0
0
0
0
0
0
0
0
0

24
37 00

/PARA IN CURVES « NON LEGALLY 1 OR 2
/FDR PARA 1,2.3 RESPECTIVELY IF ABSOLUTE
/NUM
/NUM
/NUM
/NUM
/NUM
/ONE

MISSES ALLOWED
PTS IN LIBRARY TOTAL
PTS IN UNKNOWN « RUNNING TOTAL*
MISSES FOR THIS SPECTRUM
PTS COVERED IN MATCH ROUT
PERCENT - CONSTANT

SET PRIOR

4040

SPSPA,
P12,

UNKVAL

/CONSTANTS, TEMP STORAGE, REF FLGS ETC.
/DATA TAPE UNIT « SET BY 0 ISP
/CORE LOCATION • 81 - CNST
/STARTING BLK NUM « SET BY D ISP
/NUM BLKS « SET BY DORETTE PROC
/NUH PTS, SET BY DISP. - LEGALITY >200# <6000
0
1777
/ALSO TEMP FOR PAST SPECTRUM

0
4
0
0

12
»

0
0
0

BUMPR*
/SET=NO BUMP PTR 14, UNK
BUMPRl,
/SET=NO BUMP PTR 16, LIB
0
XWORDf
XWORDl
0
/ABOVE 3 FROM MATCH ROUTINE
FLAGWD* 0
/FLAG WORD
/BIT0S1, UNKNOWN SPECT RA>L IBRARY SPECTRA PTW IS E
/BITlsl, PERCENT TOLERANCE*
/FOR PARA 1,2,3. RESPECTIVELY IF PERCENT
PRCTl,
0
,

0
0

PRCT2»

0
0
0

PRCT3,

XNHBUF

0
0

/FOR MULT

XNMTMP,
/IN PTFAIL ROUT ALSO
/NEG IF LIB XVAL>UNK XVAL
3777
P3777,
READ
QRD,
QWT,
WRITE

00 74
00 75
7
/ A
0
"7 7

10 if

«4 00

tit) f

04 00

0000

/10 WO BUFTER FOR TEXT STRINGS

«4 15

/HALL SUBROUTINE IN B6 FROM B0
D6rRR01

41 S

019
MiC ^^1
ox

Rni

1 1^ k3

4 1 A

Ot 101

RflR

4
1 7
~X

0353

SCR 13
nA

ffl

!u i. id

lt»

1 01 OSOi

0103
0104
0105
0106
0107
0110
0111
01 12

0113
011^

m
04^ 9liX
99

04^0
0424
0425
0426

00 16

1560
6000
4015

0427

06 40
10 15
019
1
10 <: OO

BCL 1
6000
STC 15
LDF 0

04 30
04 31
ra4 19

0116
»111 7/

ait
14
!0** 0*T

60 20
CUft
10 O 47
"t /

014 'V^

661
1 A
vv XO

Id JL

LD A

VQ
AO Uf\

/bti

014
oo
|0"f 1/S

X V 7X

0063

04 40

52 57

JM P MA TC HB ®1

04 41
04 42
0!4 41
0 4 44

4034
4036

LMOQE
STC PTSLIB
STC COMMIS

4 4"^

4037

014
4
*» A
O
10

0\Qi 019

PD P

011

*1
V
I0X 4

04 47

1 0 "15

PMOOE
TAD 2 PTSUNK

0x4«l

101 710

71 40t

101

01451
I0"»
X

1034
7700

MA Tcw nr
nr i
1

icix 0<c

is;
i0X 09
011
17/
SOX 0
» X *T W
mi
A
fcJX **

MA TC H.

id "(

014 Sj(

0150

0454
0455

011

40 17

l^l
Oil
10 i, y o

04$7

(7(1
lo

X J

0 4 60

10 34

0156
01 57

04 61
04 62

7040
3012

0160
0161
0162
0163

0463
0464
0465
0466

10 35

0164
0165
0166
0167

0467
0470

0074
0077

0170
0171

04 71

65 57

1711

'Rl

s^
C

Kf *T

TAH
AND

LUw

LAUL

DOrnoio

V AL ur

OUTCOME

Fl AGWD
P3777

CODE

/LIB-UNK

MA TC MF

/IF LIB<UNK
TAO 2 FLAGWO
RAL
/SET SIT 0
STL RAR
OCA 2 FLAG WO
/I
R HAS
ESS PTS
MA TCHB
TAD I PTSLIB
CMA
/PTR 12 HAS - NUM LIB PTS
OCA 12
TAO 2 PTSUNK
CMA
/PTR 13 HAS - NUM UNK PTS
OCA 13
LINC
LMODE
/PTR 16 VIA TRANSB IS AT START OF LIB DATA
SET I 14
77
/SET PTR 14 TO START OF UNKNOWN DATA
/COMPARE NEXT POINT
MATCHCi JMP PTCMl
I

7040
3013
6141

?
2

TMA n
TAD 2 PTSLIB
SMA Ci A
JM P

1051
7004
7130
3051

01 1

Ann 0
STC 17
/SAVE RET
STC PTSCVO
/riNH WHICH SPECTRUM HAS MORE POINT

9010101
<. IC 10 V

iCX " c

0i1
l0X*tO

UUNIlNIo

0437

D11
lA
ftf X oo

X 010

i v3 *T

/SUBROUTINE TO COMPARE UNKNOWN TO LIBRARY
/ASSUMES TOL» MISSES* NUM PTS IN BOTH SET
/WILL HAVE BUMP IF MATCH, RET IF NO MATCH,
/PTRS 7^1A$ i5#16 IN B6SU6 CALLER
/AC CONTAINS POINTS IN LIB. FLAGWO CORRECTLY SET
/PTR 16 AT PTS LIB. ENDS AT LAST LOC IN DATA
PMOOE

K/X

INC

DX <.o
oil 97

IN
1-»11

1 A
o
X

P6 PAI
nr 7
/RFTliPN.

JM P

Oil

lOX

Uir
IMP

a
i ?4
10 X

RT T

/SAVr BITS

10 to (00

014
1
KJ *t O O

01 <1

/S AV r

1 10
*T 10
X 01401

/7i

11?

}

/CHECK
MISSES
ADO MISSES
COM
ADD COHMIS
APO
JMP MATCHO
/NUH MISSES TOO HIGH, NOMATCH

01 72

0472
0473
0474
0475
0476

2033
0017
2036
0451
6501

02 01

04 77

0202
0203
0204

0500

6535
6017

0i73
0174
0175
0176
0177
0200

02 05

0206
0207
0210
0211
0212
0213
0214
0215
0216
0217
0220
0221
0222
0223
0224
0225
0226
0227
0230
0231
0232
0233
0234
0235
02 36

0237
0240
0241
02 42

0243
0244
0245
0246
0247
0250
0251
02 52

0253
02 54

0255

0501
0502
0503
0504
0505

0212
6504
6506
0213

0506
0507
0510
0511
0512
0513
05 14

0237
6477
1000
0044
4050
2025
4047

0515
0516

7005
7014

0517
0520
0521
0522
0523
0524
0525
0526
0527
0530

0646
1000
2016
4001

6471

06 47

0531
0532
0533
0534

1001
4025
1014
4044
0017
4045
0017
4046
6571

0535
0536
0537
0540
0541
0542
0543

1000
0000
4545
2027
0017
4006
2012

02 56

05 44

04 70

0257
0260
0261
0262
0263
0264

0545
0546
0547
0550
0551
0552

02 65

05 53

6000
0017
4025
2025
0226
6550
0017

0554
0555

6415
6626

0266
0267
02 70

MTHRT*

JMP PASTSP
/GET PAST SPECTRUM
JMP 17
/EXIT
/GO ON, CHECK MORE PTS
MATCHD, XSK 12
JMP .+2
JMP MATCNE
XSK 13
JMP MATCHC
/OVER MATCH EOUNO. NUH HISSES IN COMMISi BUMP
MATCHE* XSK
17
JMP MTHRT
PTCM6,
UDA
UNKVAL
STC XWORDl
ADD OFFSET
STC XWORO
/XVALS SAVED, NOW BUMP PTRS, MAYBE
JMP PTHA
JMP PTEAl
/ONLY BUMP IF PTR AT XVAL
/MUST ALSO RESTORE BOTH Y VALS
/JUST IN CASE 1 NOT BUMPED
LDF 6
I

LDA
2016

STC 1
LDF 7
LDA 1
STC OFFSET
LDA 14
STC UNKVAL
COM
STC 8UMPR
COM
STC 8UMPR1
JMP PTCM3
/GET PAST SPECTRUM m SUBSUB
/PTR 16 IN MIDDLE AT (PTSLIB « PTSCUD)XPARA
/SET PTR 15 B6 TO « THIS, THEN 00 SUB ADV16

PASTSP* LDA
0

STC PASTRT
ADD NUMPRA
COM
/-NUM PAR IN 6
STC 6
ADD 12
AZE I
PASTRT, RETURN
/IF NO POINTS LEFT, RETURN(16 AT LAST
COM
STC OFFSET
/STORE DIFF IN TEMP
PASTSl, ADD OFFSET
XSK I 6
JMP PASTSl
COM
/MOVE LOC IN AC. PTR16 AT LAST SPEC PT
JMP B6FRB0
JMP MV16
/MOVE 16 TO SAFETY

0271
0272
0273
0274
0275
0276
0277
0300
0301
0302
0303
0 30 4

0305
0306
0307
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321
0322
0323
0324
0325
0326
0327
0330
0331
0332
0333
0334
0335
0336
0337
0340
0341
0342
0343
0344

05 56

0557
0560
0561
0562
0563

1000
0000
4630
4045
4046

0564
0565
0566
0567
0570
0571
0572
0573
0574
0575
0576
0577

6700
7002
6415
6244
4025
10 20

06 00

0030
2027
2006
4007
2051
0241
0451

0601

67 53

06 02

0603
0604
0605
0606
0607
0610

1007
2044
0017
2025
0017
0451
6631

0611
0612
0613
0614
0615
0616

1007
2025
0017
2044
0471
6631

0617
0620

0226
6510

0621
0622

03 45

06 23

0346

0624

1020
0001
2037
4037

0347
0350

06 25

10 32

0626

1033

0627
0630

0011
6000

0631
0632

4062
2006

06 33

20 27

0634
0635

0450
6770

03 51

0352
0353
0354
0355
0356
0357
0360
0361
0362
0363
0364
0365
03 66
0367

JMP PASTRT

65 45

PTCMl,

STC PTCMRT
STC BUMPR
STC BUMPRl
/SET IS PTR AT Y VAL FLAGS
/SET PTR6 TO - PARA
JMP PTFALC
JMP PTR14B
PTCM2.
/GET NEXT LIB PARAMETER IN OFFSET
JMP B6FRB0
/GET TO NEXT UNK PTR IN UNKVaL
JMP TRANS8
STC OFFSET
PT CM 3,
LDA
/ABSOLUTE TOLERANCE LOCATION
TLRNCE
ADD NUMPRA
ADD 6
/IN PTR 7
STC 7
ADO FLAGWD
ROL 1
APO
/IF PERCENT, GET CONVERTED TOLWO
JMP PTCMA
/ASSUME TOL WD SET, IN PTR7
/CHECK UPPER L IM IT
PT CM 4,
LDA 7
/UNK + TOL > =L 1 8 OK
ADD UNKVAL
COM
ADD OFFSET
COM
APO
/FAILURE, UPPER, ACJMP PTFAIL
/CHECK LOWER LIMIT
/UNK«TOL<, =LIB, OK
LOA 7
ADD OFFSET
COM
ADO UNKVAL
APO I
/FAILURE LOWER* AC*
JMP PTFAIL
/SUCCESS FOR THIS PARAMETER
XSK I 6
/GET NEXT, SAVE LIB X VAL
JMP PTCM6
/POINT CHECKS
/BUMP PTS CVO
PTCM5,
LDA I
1
PONE.
ADD PTSCVD
STC PTSCVO
12
LOA
LDA I 13
/BUMP BOTH PT COUNTS
CLR
PTCMRT, RETURN /EXIT
I

20 62

PTFA It,

/FAILURE
STC XNMTMP

PTFAQ,

/IS THIS THE FIRST PARAMETER
ADO 6
ADO NUMPRA
A2E
/NO, TRY TRY AGAIN
JMP PTFALP
/YES
DOES The CURVE WITH LESS POINTS HAVE THE LESSER VALUE
/IF YES, THAN THIS IS A FAILURE, BUMP NUM MISSES
/IF NO, BUMP CURVE WITH GREATER POINTS. TRY AGAIN
/FLAGWD NEG IF UNK HAS MORE PTS
/XNMTMP NEG IF LIB HAS GREATER VALUE
ADD XNMTMP
.

06 36

/EXI T

/SUBROUTINE TO COMPARE POINTS
/IP MATCH, OK, NO, BUMP COMMIS, CLEAR AC
IDA

0370

06 37

16 40

0371
0372
0373

0640
0641
0642

0051
0451
6743

06 43
06 44

1000
0062
0451
6705

03 74

0375
0376
0377

0645
0646

0400
0401
0402
0403
0404
0405
0406
0407
0410
0411
0412
0413
0414

0647
0650
0651
0652
0653
0654
0655
0656
0657
0660
0661

6647
6700
4046
0232
0456
6665
6415

04 15

06 62

62 44

0416
0417
0420

0663

4025

0664
0665
0666
0667

6571
0072
7776
2051

04 21

0422
0423

0226
6652
6654
701 4

04 24

06 70

04 51

0425
0426
0427

0671
0672
0673

6621
1000
0013

04 30

0431
0432
0433
043 4
0435

0674
0675
0676
0677

0017
20 36

4036
6621

04 36

07 00

10 00

0437
0440
0441
0442
0443
0444
0445

0701
0702
0703
0704

0027
0017
4006

04 46
04 47

0450
0451
0452
0453

07 05
07 06
07 07

0710
0711
0712
0713
0714

60 00

02 26

6710
67 12

70 05

6705
6700
4045
1034

04 54

0455
0456
04 57
04 60

0715
0716
0717

4044
0233
65 71

0461
0462
0463
0464
0465

0720
0722

2027
1460
0002

04 66

07 23

67 32

0721

BCD
riAGWD

/EXCLUSIVE OR IF NEC EITHER LIB OR UNK HAS
APO
/LESS VALUE AND LESS PTS
ERROR
JMP PTFALB
/BUMP ERROR
/BUMP PAST POINT IN SPEC WITH LESSER VALUE. HAY NOT BE ERROR
LDA
XNMTMP
APO
JMP PTFALH
/LIB HAS LESSER VALUE
PTFALDi XSK
6
JMP ,*2
JMP PTFALE
JMP PTHAl
/MAYBE BUMP LIB PTR
JMP PTFALD
PTFALE
JMP PTFALC
/RESTORE PTR 6 TO NUH PARA
STC BUMPRl
/RESET L IB BMP FLAG
XSK I 12
SKP
JMP YQl
/LIB OVER
JMP B6FRB0
JMP TRANS8
STC OFFSET
/NEW L IBX VAL SAVED
JMP PTCM3
/PROCESS MORE OR
YQl,
SET
12
/OVER, RESET PTR TO SKIP, BUMP ERROR
7776
PMl,
ADD FLAGWD
APO
/IF UMK SMALLER
JMP PTCM5
LDA
,

/ALL REMAINING UNK PTS ARE ERRORS
26,
COM
ADD COMMIS
STC COMMIS
JMP PTCM5
/RESTORE PTR 6
PTFALC
LDA
NUMPRA
COM
STC 6
JHP 0
/UNK HAS LESSER VALUE
6
PTFALH
XSK
JMP .+2
JMP PTFA LJ
/BUMP 1 WO FOR EACH PTR
JMP PT2A
/GET NEXT UNK LOG, MAYBE
JMP PTFALH
PTFALJ* JMP PTFALC
/RESTORE PTR6 TO NUM PARA
STC BUMPR
/RESET FLG
LDA I 14
/SAVE NEW UNK VAL-FRST PARA OF NXT PT
STC UNKVAL
XSK
/CURVE OVER?
13
JMP PTCH3
/NO, JUMP NEW COMPARE
/YES, MOVE LIB PTR TO Y PARA
/IF NOT ALREADY THERE
/AND A 2 PARA INST
PTFALK, ADD NUMPRA
SAE I
,

JMP PTFALL

/IF

PARA#OUT

0467

0724

(9470

07 25
07 26

0046
0451

0727
0730
0731
0732

6732
6415
6244
0011

0476
0477
0500
0501
0502
0503
0504
0505

07 33

00 73

0734
0735
0736
0737

7776
2051
0471
6621

05 06

0471
0472
0473
04 74

0475

07 40

10 00

0741

0012

07 42

66 74

0743
0744
0745
0746
0747
0750
0751
0752

1020
0001
2036
4036
2622
2037

0753
0754
0755
0756
0757
0760
0761

10 20

0507

0510
0511
0512
0513
0514
0515
0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535
0536

07 70

10 00

05 43

0771
0772
0773

0544

0774

0047
4025
2050
4044

05 37
05 40

0541
0542

05 45

0546
0547
0550
05 51

0552
0553
0554
0555

0775
0776
0777
1000
1001
1002
1003
10 0 4

2047
0017
2050
4062
6636
1034
4044
6000

05 56

0557
0560
0561
0562
0563
0564
05 65

1005
1006
1007
1010
1011
1012
1013

APO
JMP PTCM5
LDA
I

1000
0000
5013
2045

/ELSE MOVE LIB

/XT LIB SMALLER

/ALL REMAINING LIB PTS ARE ERRORS
JMP 26
/FAILURE, AT LAST PARA
/INCREMENT MISSES, EXIT
PTFALBi LDA 1
1

ADD
STC
AOO
ADO
STC

6000

0763
0764
0765
0766
0767

/IF LIB ON Y,OUT

40 37

0052
2027
2027
2006
2006
1620
4000
4010
2025
1250
1047
6000

07 62

LDA
BUMPRl
APO
JMP PTFALL
JMP B6rRB0
JMP TRANSB
PTFALL* CLR
13
SET
7776
AOO FLAGWO

COHMIS
COMMIS
PONE
PTSCVD
PTSCVD

/CONVERT PERCENT TO ABSOLUTE TOL FOR THIS PT
/LIB PT IN OFFSET
LDA
PRCTl
ADO NUMPRA
AOO NUMPRA

PTCMA,

ADD 6
ADO 6
/PTR 10 HAS SINGLE PREC PARA MULTIPLIER
BSE I
/4000 FOR FRACTIONAL MULT
4000
STC 10
ADD OFFSET
/TOLERANCE IS IN AC
MUL 10
/STORE IN TOL WD
ST A 7
/JUMP LIMIT CHECKING
JMP 0
/FAILURE ON Y, BMP APPROPRIATE PT
LDA
PTFALP
XMORD
STC OFFSET
ADD XWOROl
»

STC UNKVAL
/GET XTMP NEG IF LIBX>UNKX
AOO XWORO
COM
ADO XWORDl
STC XNMTMP
/SAVE
JMP PTFAQ
14
PTR148, LDA
I

STC UNKVAL
JMP 0
/BUMP ONLY UNK PTR MAYBE
LDA
PTZA,
0

STC PT2AR
ADD 8UMPR
APO I
JMP PTR14B

0471
7002
PTHAR.

VALS

05 66

0567
0570
0571
0572
0573
05 74
05 75

0576
^311
0600
0601

1014
1015
1016

1000
0000
5025

1017
1020
1021
1022
1023
1024
1025

2046
0451

/BUMP ONLY LIB PTR,
PT2A1.
LOA
0

SIC PTzfARl
ADO BUMPRl
APO
JMP PTHARl

7025
6415

JMP B6FRB0
JMP TRANS8
STC OFFSET

62 44

4025
0000

PTZARl *

EJECT

/SUBROUTINE TO MULTIPLY NUH

0602
06 03

0604
0605
0606
0607
0610
06

0612
0613
0614
0615
0616
0617
0620
0621

1032
1033
1034
1035

0017
4007
2000
5051
0050
0006
1046
1066

1036
1037
1040
1041

1010
2060
1050
0011

1042

2061
1206
4062
1210
0227

10 26
10 27

1030
10 31

06 22

10 43
10 44

0623
0624

1045
1046

06 25

1047
1050
1051
1052
1053

0626
0627
0630
0631
0632

70 36

0011
60 00

XNUM,

XNM8UF

/PTR

HAS

STC XNMRET
SET 10

/SAVE RET

ST A

6 /CLEAR BUFF INIT
I
/PTR 10 HAS UPPER ORQERi PTR 6 LOWER
LDA 10
XNUM8,
ADD XNMBUF
/GET UPPER ORDER
STA 10
CLR
ADD XNMBUF*!
LAM 6
CLEAR AC
/GET LOWER ORDER
STC XNMTHP
/GET CARRY IN UPPER ORDER
LAM 10
XSK I 7
/IF MORE MULT. 00 AGAIN
JMP XNUMB
CLR
XNMRET, RETURN /ELSE OUT

STA

LBDATA,

LB PR Fi

/SUB TO PRINT OUT MATCHING LIB SPECS
/OO CURVES MATCH
JMP MATCH
/NO MATCH
JMP LBPRH
/MATCH, FILL IN NUM PT S MISS
LDF 6

10 54

64 41

0634

1055

7102

06 35
06 36

0637
0640

10 56
10 57
10 60

06 46
10 20
70 51

1061

0641

10 62

0642

1063

1040
2017
1000

LDA

LBDATA*5777
STA
2017
LDA

/SET PTR 17 IN B6 DECML ROUT

06 43

10 64

00 36

CO MM IS

0644
0645
0646

6415
6430
0644
3053
1040

JMP 86FRB0
JMP OECML
LOF 4
ADD LBDATA+1
STA

06 51

1065
1066
1067
1070
1071
1072

0652
0653
0654

10 73

10 20

LDA

1074

7603

TYANS*5777

06 55

10 75

06 46

0656
0657
0660

1076
1077
1100
1101
1102
1103

1040
2001

LOF 6
STA
/SET PTRl IN PRINTOUT
2001
LIF 4
/PRT LN.GET NXT SPEC
JMP L8PR4
LIF 6
/JUST GET NEXT SPEC
JMP LBPRX

0647
0650

06 61

0662
06 63
06 64

ACi

0000
0000

06 33

COM
STC
ADD

XNUM A,

/STORE
TYAN1C*2000
/LINE COMPLETE, PRINT

36 27

0604

LBPRG.

7475
0606
7114

LBPRZ.

MISSES

EJECT

STORE IN PTR

0665
06 66

0667
0670
0671
06 72
06 73
06 74

0675
0676
0677
0700
0701
0702
07 03
07 04

0705
0706
0707
0710
0711
0712
0713
0714
0715
0716
0717
0720
0721
0722
0723
0724
0725
0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
07 40

0741
0742
0743
07 44

1104
1105

1106
1107
1110
1111
1112
1113
1114
1115
1116
1117
1120
1121
1122
1123
1124
1125
1126

1127
1130
1131
1132
1133
1134
1135
1136
11 37

1140

0604
7135
0646
40 35

1020
1777
40 25

1020
4400
1040
0075
1040
0076

IDA
4400

40 77

STC 77
/SET
JMP CLRCRV

7124
7137

0747
0750
0751
0752
0753
0754
0755
0756
0757

0763
fie

ST A

75
ST A
76

0000

51 36

STC CLRT
/CLR UNK CURVE LOC 100«377

0061
0077
0062
7477
1061
0222
7133
6000
0063
4064

SET

SET
-300
STA

CLRMOR

XSK
2
JMP CLRMOR
I

CLRT,
DORGOl

RETURN
,

SET

4064
/READ APPROPRIATE NUM BLKS

1141
1142
1143
1144
1145

1000
0024

LOA

2666
0350
2622

ADD PMl
SCR 10
ADD PONE

1146

4023

1147
1150
1151
1152
1153
1154
1155

2023
2022

1156
1157

0604
7261

1160

0002

1161
1162
1163

6201
6212
4464
0020
6141

2666
1560
0777
04 70

7160

NUHPT0

/SET NUH BLKS>NUH PTS»256
STC PARDAT*3
/LEGAL IT Yl - N UM BLKS *S TBLKS<77 7
/ASSUME NUHPTS<6000
ADD PAROAT'^3
ADD PARDAT*2
ADD PMl
BCL
777
AZE I
JMP .3
/ERROR
DO NOT DO READ
LIF 4
JMP STD0R6
/DO READ
PDP
PMOOE
CDF 0
GIF 10
QRD
JHS
PARDAT
LINC
LMODE
LOF 6
D0RG03, SET I 5
/INITIALIZE DATA PTR
77
I

1164
1165
1166
1167
1170

INITIAL UNK VAL TO
/CLR UNK CURVE

JMP DORGOl
CLRCRV, LDA

07 60

0761
0762

10 00

0745
07 46

/START OF INITIALIZE OORRETTE
/RETURN TO CHOICE OPT
DORART, LIT 4
JMP STRTC
DORAGO* Lor 6
STC PTSUNK
LDA I
1777
STC OFFSET

06 46

0065
0077

017 Ad

1171
XX X

1020

L DA

Oil ft^

1172
XX c

17 77

11
/ V
XX 73

9 519 4

Ann MUMP T0

1
Oi 40(
XIO
•tB

QT A

/INITIALIHE DORETTE CALL LOCATIONS

07
wO
\U 1 fifs

07 72

1174
XX / *
i
1 7S
9
XX
1 H 7A
11/0

0773

11 77

10 40

-J ^
7 7^
07

1200
1201
1202

A 01 7 O

10C0

LU A

n Hit.
0O
Ic

CP O
n

Di
r3l

7 7 01
7 71

0775
0776
0777
1000

OtfU / X

WW X 1(
(7101 i

*»» 09

1001
1002

1204
1205
1206

10 03

12 07

00 41
10 40
00 /3
04 l9
60 61

1004
1005
100 6

1210

0646

< 0! 01

12 11

52 21

1£ic
x<: 1 o

d
OJ A
sU So 0 0
4
A c;
*T sO 0 9

10 10

1011
1012
10

(?)

X)0]0\0

7 7 71

4.C XO

014 ^
9 iX

IcO 11 7

0101 1

9 901
<CtO
xc
1
9 91
£>X
Xc

1 01 901
X»
CtO

1014
10 1^

CT A

0101 oin

D0RG04

CURCNT+2000
APO
NOP
/JMP !LLG ir
LDA
D0RG08, 0

10 1/

A1
ox
9 401
Xc
*Tiy

ViQS

1 01 0"%.

19 94
Xc
Xc &9
Xp

010 A9

77 A A

1 c. 9ft
t.

9 ?7
1 5 3(7!
X cw
19
11X
X i& V
i p "J
<c <9
X
1

0I9A
'^^

X ju O SO
1

(7{

Xl£'

(71

^ .^9

1 01^*5
"OW
Xt)

0!TA

1 01

1 Kf
014
9
Mc
X
1 0143
iO "» w
A

1 Ot

19 33
19 ki4
1 9 35
w-*
X£
1 9 36
wv
X£

U vJ

14^ 61
wX
•i

7233
60 0 3

0223
0222
72 30

0063
4062
7764

12 41
12 42

03 05
02 55

1243

0253
0302

1237
X

104 0
X

fc*

72 52

79
Xw 4^
1 0)

1046
1047
1050

/bUALc.-l
blA
YSCALE>2000
JMP 86FRB0

/iNITIALiHE DORA, READ
JMP INTDRA
/PROCESS COMMAND
PROCMD* LDF 6
STC DQRG08
3
/IS 8RT SPOT ON CURVE
SET
4065
/IF NOT ERROR 5
LDA

4 CI i 7

XM? CIO

DORGOSi

512 PIS
/YES
/RESTORE AC» PROCEED
/COMMAND CHA R IN A C
1
SET
/INTERPRETATION TABLE
INTTBL-1
SET I 2
• 11
/«NUM LEGAL COMMANDS
<

3
SET
/JUMP TABLE
JMPTBL ^6000
1 /IS COMMAND SAME AS AC
D0RG06, SAE
JMP 00RG07
/YES, JUMP PROCESSING ROUTINE
JMP 3
D0RG07, XSK I 3
XSK I 2
/END, NO JUMP BACK
JMP D0RG06
SET I 3
/ERR CD 2
4062
/YES, JUMP ILLEGAL
JMP ILLG
I

/INTERPRETATION TABLE

12 44
19 45
"
"A
X94
1 ? 47

03 1

(?l3!aS
k;
so >

1250
1251

0330
0320
0325

1051
1052
1053
1054

1252
1253
1254

1055
1056
1057
1060
1061
1062

1255
1256
1257
1260
1261
1262

7264
7371
7420
7423
7467
7503
7510
7525
7603

INTTBLi 306
255
253
302
317
305
330
320

/F
//+
/B
/O
/E
/X
/P
/U

325
/JUMP TABLE
JMPTBLi JMP Fl
JMP MlNUSl
JMP PLUSl
JMP 81
JMP 01
JMP El
JMP XI
JMP PRNTl
JMP Ul

1063
1064

/SUBROUTINE TO FILE POINT VALUE
0
/TEMP
/HAVE TOO MANY PTS BEEN FILED
IDA

1065
1066
1067

1263
1264
1265
1266

0000
1020
0374
0063

10 70

12 67

40 67

1071

1270

0017
2005
0471
7764
06 44

COM
ADD 5
APO
JMP ILLG
/N0» GET
LDF 4

1000

LO A

10 72

12 71

1073

1272
1273

10 74
10 75
10 76

1077
1100
1101
1102
1103
1104
1105
1106
1107
1110
1111
1112
111 3
1114
1115
1116
1117
1120
1121
1122
1123
1124

1125
1126
1127
1130

U3i
-13 2
133

134

1135
1136
1137
1140
1141
1142

1143
1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160
1161

1274
1275
1276
1277

0011
0046
0005
0226
2027
0017
2006
4006
0063
4070

1337
1340
1341
1342
1343
1344
1345

40 35

13 46

1347
1350

6415
6075
7210

1351

0016

1352

7356

13 36

/YES, ILLEGAL
VALUE SUBTRACT OFFSET

/SAVE
/IF FRST PT,SKIP COMPARE

SAE

77
SK P

JMP F2ZXQ
CLR
SET 6
P0S5,

XSK
6
ADD NUMPRA
COM
ADD 6
/IS X VALUE LESS THAN LAST
STC 6
/IN PTR 6
SET I 3
I

4070
/ERR CD

r2HXQ,

LDA 6
COM
ADD FTEMP
APO
JHP ILLG
LDA

00 17

1020
0002
1440
0027
7342
7351
1000
0622
2035

2022
LDF 6
ST C FTEMP
LDA

1006

3263
0451
7764
1000
1263
1065

OFFSET

11 00

/YES, ERR OR

CO M
AD A

2022
0646
5263
1000
0005
1460
0077
0456
7331

1334
1335

0017

13 00

13 33

374
SET

00 25

1301
1302
1303
1304
1305
1306
1307
1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324
1325
1326
1327
1 330
1331
1332

FTEMp,
Fl,

/YESi ERROR

FTEMP
ST A I 5 /NO
STORE VALUE
/MORE THAN ONE PARAMETER
LOA I
1

SAE
NUMPRA
F3,

KEEP DR ,

JMP F3
JMP F2
LDA
PONE
ADD PTSUNK
STC PTSUNK
JMP B6FRB0
JMP CLLDRA
JMP PROCMD

/IF 1 IN AC* BUMP PTS
/IF 2 PARA*PROC Y VAL
/BMP NUM UNK PTS

/REFRESH DORETTE

/PROCESS NEXT CHAR
/STORE YVAL=CORVAL* OFFSET
r2,
NOP
/REP LACE WITH SNS 5
/IF FREE STANDING MODE DESIRED
JMP Gl
/YES,CORVAL=OFFSET= KNOB 5X21 (YSCL«1>

VALUE

11 63

13 53
13 54

1164

1355

1162

74 43

1065
7342

11 6t?

1166
1167
1170
1171
1172
1173
1174

1360
1361
1362
1363

1175

1365

1176
1177
12130

1366
1367
1370

1000
6072
0016
0644
1100
2023
0646
7354
7436
7433
0000

1201
1202
1203
1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
1223
1224
1225
1226

1371
1372
1373
1374
1375
1376
1377
1400
1401
1402
1403
1404
1405
1406
1407
1410
1411
1412
1413
1414
1415

1000
0622
1100
6073
1040
1370
0063
1366
1103
0451
7413
1023
3370
0471
7413
0011
3370
7415
1003
0017
1040

12 27

14 16

60 73

1230
1231
1232
1233
1234

1417

7206

1420
1421
1422

1020
7776
7373

1423
1424

0644
0016

1425

7436

1426
1427
1430
1431
1432
1433
1434
1435

7443
0017
1100
2023
0646
1040
6072
7206

1436
1437
1440
1441

1000
2023
0017
7432

13 56
13 57

1364

JMP Rl

r4,
rS,

/STORE
STA I 5
JMP F3
/SS5 OFF, STORE C ORVA L-OFFSET
LOA
Gl,

YOFFST*2000
NOP
LOF 4
ADA
2023
LDF 6
JMP F5
YSCRNG, -341
^344
YSCTMP. 0

1237

1240
1241
1242
1243
1244
1245
1246
1247
1250
12 51

1252
1253
1254
12 55

1256
1257

1260

1
4

/SUBROUTINE TO SCALE DISPLAY SMALLER BY HALF
MINUSlt LOA
/ADO 1 TO YSCALE
PONE
M0RP2,

ADA
YSCAlE:*2000
STA

YSCTMP
SET

M0RP3,

YSCRNG
ADA 3
APO
JMP M0RP4
LOA I 3
AOO YSCTMP
APO I
JMP M0RP4

-SCR

/ADD

/ERROR

/ERROR TOO HIGH

aR
M0RP4,
HQRP5,

/OK.

ADD YSCTMP
JMP H0RP5
IDA 3
COM
STA
YSCA Lt *2 00 0
JMP D0RG04

CHANGE SCALE

/ERR,STR LIMIT

/INITIALISE OQRA
/SUBROUTINE TO SCALE DISPLAY BIGGER

LOA
7776

PLUSl,

DOUBLE

FREESTANDING

JHP M0RP2
/SUBROUTINE

12 35

12 36

/^SCR
/«SCR

REDEFINE BASELINE

/REPLACE WITH SNS
NOP
/MODE OF DISPLAY DESIRED
JMP CI
/yes: OFFSET=CORVAL^<KNOB5)X2: (YSCL-1)
JMP Rl
82
COM
ADA
/CORVAL
2023

B3#

LDF
STA

/STORE

YOFFST*2000

OFFSET

JMP D0RG04

/NO SS5,
Cli

YOFFSET=«C0RVAL
LDA
2023
COM
JMP B3

/SUB TO ROTATE KNOB

/CORVAL

VAL 1 LFT FOR EVERY

DIG IN YSCL-1

1261

14 42

12 62

1443

1263
1264
1265

14 4 4

12 66

1267
1270
1271
12 72
12 7 3

1274
1275
1276
1277
1300
1301
1302

0000
0105
5442

FRES AM
STC R0
LOT 6
ADD PMl

\0O HO

11 00

AD A

6073
1560

YS CALE '2000

77 70

77 70
CO M
ST C 4

1451
14 52
14 53

1454

1455
1456
1457
1460
1461
1462
14 6 3

0017
4004
2000
5462
3442
0204
7463
6000

14 6 4

146 5

7463

14 66

BCL

R9
R2

132 5

1326
1327

1000
0 005

14 71
14 72

0063

SE T I
40 63

14/5

1460
0077
7764

14 74

1475
1476
14 7/

1500
1501
1502

01 1

40 63

1000
2022
4025
7o46

/IF PTS HAVE ALREADY BEEN STOR ED« I LL EG AL

/ I r

NO I

S T 0 HE ,

JUMP RLrRtbH uuNLTlL

/SUBROuT N E TO ERASE ALL PHEVIUUS UNKNOWN
JMP CLRCRV
/CLEAR UNKNOWN CURVE
5 /Rt N n AL Ic E CURVE PTH
SE T
I

1503
1504
1505

7124
0065

00 77

r To

1 5 06

15 10

1511

13 34

1512

1000
00OP
0063

1335
1336

1513
1514
1515
1516
1517
1520
1521

^06 7

1346
1347
1350
1351
1352
1353

1522
1523

0604
6707

1524

7104

X4 .

1525

0646

PRNTl.

13 54

15 26

05 00

1355
1356
1357

1527
1530
1531

6041
7526
1000

STC P T SUNK
JHP KEEPDH
/SUBROUT 1 Nt
LDA

/ bE 1

N UM

b =0

/HEFRLbH DUntTTL
TO EXIT DORETTE

PTSUNK
SET 1
4067

04 70
71 04
00 1
o ol 4

A2E I
JMP OORART
/IF NO POINTS. EXIT,
COM
ADD P0S5
APO I
JHP ILLG
/IF LESS THAN 5 PTS,
/ir MORE THAN 5 POINTS, ADD SPECTRUM

0471
7 76 4

1344
13 45

v..

JHP ILLG
LDP 4
IDA
2022
STC OFF bE
J MP KEEP UK

06 4 4

T
7
1 3'33

134 3

7o 46

1340
1341
1342

LD A

SAE

15 07

13 37

/« YSCL *1
ADO 0
STC R9
ADD R0
XSK 4
/NO ROTATES
JMP R2
RETURN
ROL 1
XSK I 4
JMP R2
jHP R
/OVER
/S UBROUT I Nt TO SET UP OFFSti

14 67

13 30
13 31
13 32
"t

1470

13 23

1324

/SAM 5

14!?0

13 03

1316
1317
1320
1321
1322

2666

130 4
13 05

13 15

14 46
14 47

02 41
02 24

1306
1307
1310
1311
1312
1313
1314

R0
Rl

ILLEGAL

/INST NAME IN INSTNUM, SPEC IN TY07A OF B7
LIT 4
JMP X2
/GO TO B4 PROCESSOR
/SPECTRUM ADDED, BLOCK 0 WRITTEN OUT
/RETURN TO DORETTE CALLER
JMP OORART
/SUBROUTINE TO PRINT VALUE OF POINTS ALREADY STORED VIA DORETTE
LDF 6
lOB
6041
/TSF-CLR PRNT BUFF
JMP ,-2
/INITIALIZE PRINT ROUTINE TYCNT
LDA

1360
13 61

1362
1363

0035
10 40

ST A

15 34

2056
6415
6531
0646

NUMPTS*2000
JMP B6FRB0

1364
1365

1535
1536
1537

13 66

15 40

10 20

1367
1370

1373
1374
1375
1376
1377
1400

1541
1542
1543
1544
1545
1546
1547
1550
1551
1552

2077
1040
2016
1020
7234
1040

14 01

1402
1403
1404
1405
1406
1^07
1410
1411
1412
1413
1414
1415

1371
1372

PTSUNK

1532
1533

/TELL NUM PTS TO PRINT

/GET HEADER
JMP TYB
LOF 6
LDA I
2077
STA
2016
/GET DATA PTR TO UNK. NOT LIB 8LK
LOA I
JMP P4

STA
P2*2000 /BUMP UNK.

27 66

NOT LIB PTR

1000
0027
1040

LOA

15 53

20 47

PRMTRS+2000

1554
1555
1556
1557
1560
1561
1562
1563

1020
6734

LOA I
JMP P5
LOF 4
STA
2005

/SET UP HtTURN TO ro IN 84

CL R
LI F

/JUMP PRINT ROUTINE

1564

7346

1565
1566
1567
1570

1421

1571

Ul AA #

1422
1424

1572
1573
1574

5571
2000
5602
1020
0000
6415

U1A»

1416
1417
1420

/PRINT ROUTINE ACCOMPLISHED* REFRESH DOHETTL
JMP KEEP OR
/TEXT PROC INITIALIZATION SUB
STC UlAA
ADD 0
STC UlARET
LOA I

14 25
14 26

15 75
15 76

0067

1427
1430
1431

1577
1600
1601
1602

77 74

SE T I 6
BU F8 0+ 20 00
SE T I 7
77 74

6415
7310
6000

JMP B6FR80
JMP BnULT
RE TURN

14 23

14 32
14 33

1434
1435
1436

1440
1441
14 42

16 10

1443
1444
1445

1611
1612
1613
1614
1615
1616

14 46

1447
1450
1451
1452
1453
1454
1455
1456
•

06 44

1040
2005
0011
0606
6735

/TELL NUM PARA

JMP TYCNT

JMP B6FRB0
ikjrv
K\t^
JMP GETANS
t

72 37

0066
24 00

Ul ARET

/ANS Tiki
IN LOG a65a

/GtT rnUl/taotU

iW »u

/SUBROUTINE TO COMPARE UNK SPECTRUM WITH LIB
/OUTPUT MATCHtb TO TTt
1603
1604
1605
1606
1607

14 37

NUMPRA
STA

1617
1620
1621

1020
2400
06 45

1040
2022
0063
4062
0011
40 36

1020
0336
7565
1460
0001
76 27

Ul »

LOA

BUFB0*2000
LOF 5
STA
AN SW EH +2 000
SE T I 3

/oET UP AN o oU rr Af

4062
CLR
STC COMMIS

/DISPLAY ALLOWABLE ERROR TOL
LOA
0SP2P1
JMP UlA
/PROC NUM IN AC
/GET PERCNT OR ABSOL
SAE
I

JMP U2
/I, PERCENT

uU U 05 U

1457

1622

1000

14 60

1623
1624

0051
1620
2000
7636
1460
0002
7764
1000
0051
1560
2000

1461
14 62

16 25

1463

1626
1627
1630
1631
1632

14 64

1465
1466
1467
1470
1471
1472
1473
14 74

1475
14 76

1477
1500
1501

1633
1634
1635

0066
2401

15 02

16 43

1644
1645
1646
1647
1650
1651
1652
1653
1654
1655
1656
1657

1660
1661
1662
1663

2000
5674
0067
7773

15 24

16 64

X525
1526
1527
1530
1531

1665
1666
1667
1670
1671

1642

15 32

16 72

1533
1534
1535

1673
1674
1675
1676
1677
1700
1701
1702
1703

7310
6000
0011
0016
7672
2051
0241
0471
7726

1704
1705
1706
1707
1710
1711
1712
1713
1714

1000

15 45

1546
1547
1550
1551
1552
1553
15 54

1555

FLAGWD

JMP ILLG
LOA

/IF NOT

ILLEGAL

FLAGNO
BCL

/ABSL. CLEAR BIT

2000
U3 ,

SET

BUFB0*2001
SIC FLAGND

/PROCESS PARAMETER

JMP UA

/VALUE OCTAL OR DECIMAL IS IN AC
APO
JMP ILLG
/IF NEGATIVE, ERROR
STC TLRNCE
/ELSE STORE PRA 1
ADD NUMPRA
SAE

JMP U4 /IF ONE PARA, GO ON
SET I 6

BUFB0*6003
JMP UA
/ELSE PROCESS SECOND
APO

JMP ILLG
STC TLRNCE^l
JMP U4

ERROR
/ELSE STORE PARA2
/IF NEG,

/PROCESS PARAMETER TOLERANCE, SUB

2051
0241
0471
7675
0227
0011
6415

1543
1544

4051
7660

1503
1504
1505
1506
1507
1510
1511
1S12
1513
1514
1515
1516
1517
1520
1521
1522
1523

1540
1541
1542

/SET BIT

/PROCESS PARAMETER TOLERANCES
1636
1637
1640
1641

0451
7764
4030
2027
1460
0002
7700
0066
6403
7660
0451
7764
4031
7700

15 36
15 37

U2 I

LOA
FLAGWO
BSE I
2000
JMP U3
SAE I

00 40

4060
2041
4061
0066
0052
20 30

7026

UA ,

ADD 0
STC UARET
SET

7773
ADD FLAGWD
ROL 1
APO
JMP UB
/IF PERCNT, ONLY 2 DIG ALLOWED
XSK I 7
/ACe*0
CLR
JMP B6FR80
JMP BMULT
/DO CONVERT 2 DECIMAL
I

UARET,

U4,

RETURN
CLR
NOP
JMP UC
/DO CONVERT
ADO FLAGWD

ABSOLUTE

DEC

ROL 1
APO
JMP U7
I

/IF ABSOLUTE, GO ON
/PERCENT, CONVERT TO ABSOLUTE

LDA
PRCNTl
STC KNMBUF
ADD PRCNTl^l
STC XNMBUF*1
/GET MULT NUM AS 1 PERCNT
6
SET
PRCTl
/SET PRCENT TOL 1
ADD TLRNCE
JMP XNUM
/PARA 1 PERCENT SET
I

1556
1557
1560
15 61
15 62

1563
15 64

1565
1566

X ^osu

ADO NUMPRA
SAE I

71 7

0101 019

7 91

CO
Oid
%iv AA
OO
00 54

/IF ONE PARA
JMP U7
SET I 6

0011
2031

CLR

7 1 S

9P} 97

f f

17 99
1723
1724
79R

PR CT 1+ 2

15 67

1570
1571
1572
1573
1574
1575
1576
1577
1600
1601
1602
1603
1604
1605
1606
1607
1610
1611
1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624

0645

7 97

10 20

1730
1731
1732
1733
1734
1735
1736
1737
1740
1741

0431
7565
4033
2033
0017
2035
0063
4066
0451
7764

1742
1743

0604
6743

1744

7346

U9,

JMP KEEPOR

17 45

1020
2400
0645
1040
2022
1020
0657
6415

iLLGLi

LOA

1746
1747
1750
1751
1752
1753
1754
1755
1756

72 37

6415

16 25

17 57

60 75

1626
1627
1630

1760
1761
1762

7210
1020
0657

16 31

17 63

77 54

16 32

1764
1765
1766
1767
1770
1771

1000
0003
0645
1040
2663

1633
1634
1635
1636
1637
1640

ADO TLRNCE^l
/PARA 2 PERCENT SET UP
JMP XNUM
/GET NUM MISSES ALLOWED, SAME ANS BUFF
LOT 5
IDA I
DSP2P2
JMP Ul A /PROCESSED NUM IN AC
/STORE NUM MISSES
STC MISSES
ADD MISSES
COM
ADO PTSUNK
SET I 3
4066
APO
/IF NUM PTS<NUM MISSES
JMP ILLG
/ALL OK, 00 MATCH
LIT 4
JMP U8

1726
1

7745

GO ON

U7,

ERROR

/SPECTRUM MATCHES OUTPUTTEO
/REFRESH DORETTE
/SOMETHING ILLEGAL HAS BEEN ENTERED
/MUST RESTORE ANSWER BUFF
I

BUF84+2000
LDF
STA

ANSWER+2000
LOA I
OSPERA
iLLGLli JMP 86FRB0
JMP GETANS
JMP B6FR80
JMP CLLDRA
JMP PROCMD
NOTUNO. LDA
DSPERA
JMP ILLGLI
LOA
ILLG,

/WAIT FOR CR
/WAIT FOR CHAR
/YES, PROCESS IT

LDF
STA

ERRCXX*2000
JMP ILLGL
CHAIN "LIFE B4"

/DISPLAY ADO SPEC NOT UNIQUE
/STR CODE IN PTR 3

0000

*20

/LIFE MAINLINE PROCESSING
/START DISPLAY INTERPRETATION

0001
00(32

0003
0004
0005
0006
0007
0010
0011
0012

SEGMNT

ttl7

0017

6201

0026
0027
0030

0647
0700

FLDH0,

6201
/CDF l^DORA
/IOC 21-24 ARE DORETTE PTRS

<*26

6322

INITDL* LDF 7
ROC
6322

0013
0014

00 31

0032

00 15

ROC
7323
POP
PMOOE
KCC
TLS
UINC
LMODE
JMP STRT

0 / 00
7/ 0
TO
I
c %j
100 0<c

0016
00 17

0020
00 21

0022
0023
0024
0023

00 34
00 35
00 36

60 32
60 46

00 3 7

70 6 6

0040

7777

6141

/CONSTANTSf TEMP STORp REFi FLAGS
Dl AL 77 »

RTN»

RE TURN

PREADi
PWRI TE

READ

00 44
00 4 5
004 6

0000

a
PAA O
HAA 01
0

01 171 01 fli

004 7

0001

/BLKS

0
0

/4 CHAR TAPE NAME

00 41

0031

0042

00 32
00 33

00 43

0034
0035
0036
0037

005

00 34

V 10 if 10

0 04 0

K)i0

01010101
0000
6777

M A MP T P -

Unu 1 o f

00 70

0301

0353
0101

a
00910
01 flic

and

0052
0053
0054
00 55
00 56
00 57

00 56
7
» as
10 ^ ^

a
o 10 01
10

006

0062
0063

00X1
1900
6000

OIOI Ail
0lfl o*t
01 Ot

/}I0)

0067

OX
00 62
00 63

OiOi 7(3S

SrCUST

10
^^
wA
0S
*t
0t

X0 X0
OT
0i£Ol
01

-1

an
7i
k}0 'X

OKI cl0

aa
70
\0v / c

A0I
i 1
OKI XX

0066
0067

71
00
Mini '7 R
00 /D

0009
0000

00 70
00 71

/o
00 "7A
0101 77

00 01
not 0101
00 00

PARA

01(71

rtioi

A P f.
Plr Af^
IMUIMP

01 01

01 0101 Cf

Kit

\0\u

00 00

TNST NM •

01 01

KiX

01 01 Tt^

00 /P
W

00 77

0100
0101
0102
0103
0104
0105
0106
0107
0110
0111

£71

0107
0110
0111
0112
0113
0114

00 01

P1B4
ERAST,

06 47

/- NUM PTS DISP
6777
/DO SUBROUTINE IN 86 . PTRS 10,11
/SAVE BIT 0
ROL I 1
ROR 1
SCR 13
LOA
/RETURN JUMP TO MAINLINE CALL
BCL I
/CONSTANT IN SPCSR ROUT
6000
STC 10
LDF 4
/CONTENTS OF NEXT LOC - JUMP SI
LOA 10
XSK
11
LIF 6
JMP B6CALL
JMP 11
/PARAMETERS - REST OF LIFE TAPE
/TAPE UNIT « SET FROM QUANOA
0
/CORE LOCATION - 87,
35
/ST BLK • SET FROM SUBROUTINES
0
1
/BLKS
/PARAPTS
0
/DATA PARA
0
/4 CHAR INST NAME
0
/FIRST BLK OF INST
/CONSTS

1020
2377
4006
0065
7767

/ST BLK

7775

7 77 5

0000

WRITE
/PARAMETERS • BLOCK 0
/TAPE UNIT « SETFROM QUANOA
0
/CORE LOCATION - B7Q0
34

01 01 C(

01 01 01 CI
ff K> i0 10

0104
0105
0106

NIT TP

0064
0101 as;

0
ST A
11

(71

a
XtO ^
*tKJ
1 01

0060
\OiO

/RETURN,

6000
7774
7775

00 30

00 41

7777

REA0=7774
WRITE=7775

0026
0027

»
,

00 01
0

/SUBROUTINE - CHECK IF LIFE TAPE
/PTRS 5 ,6,7 BLOCK 0 OF LIFE TAPE IN 87
/IF LIFE, BUMP RET, ELSE NOT
/SET FOR FIRST 8 WORDS
CKTPIN, LOA I
2377
STC 6
SET I
7767
LDF 7

/IN QUARTERl B7

0112
0113
0114
0115
0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0130
0131
0132
0133

011t?

0116
0117
0120
0121
0122
0123
0124
0125
0126
0127
0130
0131
0132
0133
0134
0135
0136
0137
0140

0134
0135
01 36

0137

6000
0047
0000
1025

LDA
LOA
SAE

5
6

/GET NEXT WO

6007
0205
6120
0227

JMP
XSK

7
5

JHP

CKTP*2
7 /YES, BUMP, EXIT

CKTPB*

60 07

0047
0000
6107
1025
1000
0005

IN TP ,

INTPA.

61 34

0011
1066
1000
0006
1460
2777
6142

0151

0011
1620
0077
1046
1000

/SUBROUTINE TO INITIALIHE LIFE TAPE
/SET UP BLK 0 IN 8300
/SET PTRS
SET 7
JMP CKTPIN
5 /STORE 7770-7777
LDA
LOA
I

0205

01 41

XSK
JMP

/IS IT CORRECT
/NO, GET OUT
/YES, OVER?

10 66

0142
0143
0144
0145
0146
0147
0150

0153
0154
0155
0156
0157
0160
0161
0162
0163

/THIS MUST ALSO BE

00 05

01 40

JMP 0
SET 7
0

1026
1440

0141
0142
0143
0144
0145
0146
0147
0150
0151
0152
0153
0154
0155
0156
0157
0160
0161
0162
0163
0164

01 52

CKTP,

INTPB,

STA I 6
XSK 5
JMP IMTPA
/WHEN riNISHEO, STORE REST
CLR
STA I 6
LDA
6

SAE
2777

INTP8
/STORE DAD NULL FOR BLK0. TRAILER
CLR
BSE I
/TRAILER
JMP

STA 6
LDA
2725
BSE I
4000
STA
2725

2725
1620
4000
1040
2725
6007

JMP

EJECT

/8LK0

OR DELETE ALL

0165
0166
01 67

0170
0171
0172
0173
0174

0164
0165
0166
0167
0170

0066
2006
02 26

0171

0226
0047
0000

01 77

01 72

06 47

0200
0201
0202

0173

1006

0174
0175

04 70

0176

1440

0175
0176

ERl,

ER0C.
ERlAt

01 01

0200
0201
0202
0203
0204
0205
0206
0207
0210

6226
1026
1440
0102
6227
1026
1560
6000
4103

0211
0212
0213
0214
0215
0216
0217

1006
0242
1560
7774
0646
1040
2047

02 27

02 20

06 40

0230
0231
0232
0233
0234

0221
0222
0223
0224
0225

1040
2027
4100

0211
0212
0213
0214
0215
0216
0217
0220
0221
0222
0223
0224
0225
0226

02 26

0227

0226

02 37

02 30

0240

0231

02 26
10 20

02 41

02 32

0242
0243
0244
0245
0246

0233
0234
0235
0236
0237

ERIB.

0
0

GET FIRST BLK

LOF 0
STA
NUMPRA*2000
STC NUMPAR
LOF 7
JMP ERIC
XSK I 6 /GET TO NEXT INSTRUMENT
6
XSK
XSK I 6
I

LDA I
5457
ADD 6
APO

5457
2006
0451
6173
0011
0227

ERIC,

02 4 0

02 27

0241

6007

0251
0252
0253
0254

0242
0243

ER0*

02 55

02 44

0256
02 57

0245
02 46
0247
0250
0251
0252

0044
0000
6164
6251
6004
02 24

ER0A,

6004
0451
6255

NEXT WO

PRMTRS*2000

02 47

0261
0262
0263

02 50

02 60

/IS THIS END

JMP ER18
LDA I 6
SAE
INSTNM*1
JMP ERlB+1
6 /MATCH MADE*
LOA
BCL
6000
FSTBLK
STC
/MATCH MADE, STORE NUM PARA
LOA 6
ROL 2
BCL 1
7774
LDF 6
STA

06 47

02 35

7
6

/YES, ERROR RETURN, PTR6 HAS FIRST
7
/COMPARE FIRST 2 CHAR
SAE
INSTNM

6240

0236

LOF

LDA
A2E
JMP

6007

01 77

02 03

0204
0205
0206
0207
0210

/SUBROUTINE SET TO ERASE AN INSTRUMENT
/B0 IN BNK 7 Q0
/SUBl « IDENTIFY INSTRUMENT, GET STARTING BLOCK
/RET ir NONE, BUMP IF FOUND, 2 BUMPS IF OVERFLOW. PTR6 HAS 0 OR 7777
6
SET
2006
XSK
6
XSK 1 '6
SET 7

/MAKE SURE INDEX DOES NOT OVERFLOW

/OK, RETURN
JMP ERIA
CLR
XSK I 7
7
XSK
/INDEX OVERFLOW, 2 BUMPS
JMP 7
/SUBROUTINE EOR MATCH SEARCH OF TAPE INDEX
/MATCH « 0 BUMPS, OVERFLOW » 1 BUMP, NO MATCH
SET 4
I

JMP ERl /JUMP MATCH
JMP .+4
/IF MATCH, 0 BUMPS
JMP 4
XSK 1 4 /IF OVERFLOW
JMP 4
/IF NO MATCH, CHECK FOR 7777
APO
/YES, RETURN
JMP ER0B

•

BUMPS

02 64

0265
0266
0267
0270
0271
0272
0273
0274
02 75
02 76
02 77

0300
030i
0302
0 30 3

0304
0305
0306

0253
0254
0255
0256
0257
0260

02 24

6247
0226
0226
0226
6172

ER08.

0011

ER2,

21 03
40 75

ER 2A .

0264

0647

02 65

63 07
20 75

02 73

04 50

0 30 7

0274

0310
0311
0312
0313
0314
0315
0316
0317

02 75
02 76

0302

6263
2104
2006
4006
0017
1046
1066

03 03

10 66

0304
0305
0306

6053

0307
0310
0311
0312
0313
0314

1000
0000
4350
4004
2075
4106
0065
7763
2106
2005
0470
0011
0451
63 30
0224
41 06
6317

ER2Si,

4007
2105
0241
0227
6332
0301
4007
2004
1120
2324
4004
1024
1540
0007

ER2S3,

03 20

0321

0277
0300
03 01

0315
0316
0317
0320
0321
0322
0323

03 4 0

03 24

0341
0342
0343
0344
0345
0346
0347

0325
0326
0327

0330
0331
0332

03 50

03 33

0351
0352
0353
0354
0355
0356

0334
0335
0336
0337
0340
0341

0357
0360
0361

03 42

0362

0343
0344
0345

BUMPS

JMP ER0C
/REENTRENT TO ER0
/SUB2 = DELETE INSTRUMETNT* GIVEN ST BlK
/PTR6 AT FST BLK OF INSTRUMENT
CLR
ADO
FSTBLK
STC PARA +2
/SETUP READ PTRS
LDF 7
JMP ER2S1
/SU8 sue TO CLR BIT COORESP TO WD IN PARA*2
ADD PARA+2
JMP OOSUB
JMP RDTAPE
/DO TPAPEREAD OF NEXT BLK
/WAS THIS THE LAST BLK
LDA
2777
AZE
JMP ER2A
/HOt CLR NEXT DAD BIT
ADD M2
ADD 6
/YES, STORE 7777 IN INDEX FILE
STC 6
COM
STA 6
ST A

ER2RTN

75 66

7127

03 22

0323
0324
0325
0326
0327
0330
0331
0332
0333
0334
0335
0336
0337

02 62
02 63

6053
6150
1000
2777

/NO MATCH,

0261

0266
0267
0270
0271
0272

4
XSK
JMP £R0A
6
XSK
XSK
6
XSK
6

STA I 6
JMP DOSUB
/JUMP WRITE UNIT
JMP WTUN0
JMP STRTB
/SUB SUB TO CLR BIT COORSP TO WD
LDA

PARA 2

STC ER2SRT
STC 4
/WO CNT
ADD PARA+2
STC ERAS!
SET I 5 /«12 BITS
77 63

ER2S2,

ADO ERAST
ADD 5
A2E I
CLR
APO
JMP ER2S3
XSK I 4
STC ERAST

JMP ER2S2
/AT WDi ROTATE

/GET PROPER WD

/AT WD

0 001

LEFT

BIT FOR EVERY NEG

STC 7
ADD P1B4
ROL 1
XSK I 7

JMP ER2S3+2
ROR 1
STC 7
/PROPEL BIT MASK SET
ADD 4
/START OF DAD IN BLK 0
ADA
2324
/SET FIRST LOC OF BIT MAP
STC 4
LOA I 4
8CL
/DO BIT CLEAR
I

03 63

0346

03 64
03 65

03 47
03 50

1044
0011

ST A

60 00

ER2SRT

0045

TYC»

0366
0367
0370
03 71

0372
03 73

0374
0375
0376

0351
0352
0353

03 77

03 54

0400
0401
0402

0355
0356
0357
0360
0361

04 03
04 04

0403

00 00
62 42
63 57

0016
6005
2103
06 06

6655

CLR
RETURN
/SUBROUTINE TO PRINT SPECTRUM DATA
/PTRS 10, 11, 12, X, 13-17 USED IN SUBSUB
/HEADER ALREADY ASSUMED PRINTED
/B0 IN B7O0
/AC=0 ir NO MATCH. =4000 IF MATCH
/4 CHAR NAME IN INSTNM
/SAVE RET
SET 5
0

TYCA,

JMP ER0 /FIND INSTRUMENT
/MATCH. DO PRINTOUT
JMP TYCA
/OVERFLOW ILLEGAL
NOP
/NO MATCH, EXIT
JMP 5
ADO FSTBLK
LIF 6
JMP TYCl
EJECT

/SUBROUTINE TO PRINT ALL MATCHING LIBRARY CURVES
/FOR UNKNOWN SPECTRUM IN 80
/I NSTNM BUFFER SET UP
/AC=0» NO HATCH ON INST, A NOT=0, OK
/ALL PARA IN B0* B4, B6 ASSUMED SET UP
LDA

04 06

0407
04 10
04 XI

0412
0413
0414

0362
0363
0364
0365
0366
0367
0370

0424

0372
0373

04 25

03 74

0426
0427
0430

0375

1000
0000
4370
6242
6371
0016
6000
2103
6053
6150
0606
7020

0400

0000

04 15

0416
0417
0420
04 21
04 22

0423

03 71

LBPR

LBPRRT

LBPRA.

«400
8Ur84

#415

04 31
04 32

/SUBROUTINE TO DELETE A SPECTROM
/WHOSE NAME IS IN TY07A OF B5
/AC=0 IF DELETED, AD - IF NO INST,
LDA

0433
04 34

0435
0436
04 37
04 40

0441
0442
0443
04 44

04 45

STC LBPRRT
JMP ER0 /GET FIRST BLOCK OF INSTRUMENT
JMP LBPRA
NOP
RE TURN
ADD rSTBLK
JMP DOSUB
JMP ROTAPE
/READ IN FIRST DATA BLK
LIF 6
JMP L8PRB
/GO TO B6 FOR PRINTOUT

0415
0416
0417
04 20
04 21

0422
0423
0424
0425

1000
0000
4424
6242
64 25

0016
2063
60 00

2103

04 46

04 26

60 53

0447
0450
0451
0452
0453
0454
0455

0427

7155

04 30

04 50

0431

6424

0432
0433

0016
0016

04 56

04 34

00 11

0457
0460
0461
0462

0435
0436
0437
0440

0646
1000
2016
4003

04 63
04 64
0 4 65
04 66

04 41
04 42
04 43
04 44

06 47

0467
0470
0471
0472
0473

0445
0446

1043
2075
6053
6173
6424

0447
0450

67 26

6516

0453

2515
0606
7217

0454
0455

1000
0000

04 74

04 51

0475
0476
0477
0500
0501
0502
0503
0504

04 52

OEISP,

IF NO

SPECTRA

STC DELSRT
JMP ER0 /GET FIRST BLOCK
JMP DELS PA
NOP
ADO SPCCST
RETURN
DELS RT
/ERROR, NOT FOUND, AC NEG
OELSPA, ADD FSTBLK
JMP OOSUB
/READ IN FIRST DATA BLOCK FIND MATCH
JHP FNDSPB
AEE
JMP DELSRT
/RETURN, NO SPEC MATCH, AC *
/MATCH, DELETE SPEC
/PTR 16 AT LAST SPEC WD
DEtSPCi NOP
NOP
CLR
/AT FRST TAPE CHARS
/STORE 0 IN LOC
LDF 6
LDA
2016
STC 3
LDF 7
STA 3
ADD PARA*2
JMP DOSUB
JMP WTTAPE
/WR TE IT
JMP DELSRT
/RETURN OK, AC»0
/84 PART OF B6 SUB TO STORE IN LIFE BLK
STRLFB, JMP FNOAO
JMP ERNNX
/IF NO 8LKS LEFT. JUMP ERROR
ADO AOSBLK
/BLOCK ASSIGNED, IN AC
LIF 6
JMP STRLFC
/TRANSFER-NUM WDS IN PTR 6
/FROM PTR 7 TO PTR 16 B7, PTR 16 AT START OF BUFF,
/ASSUME L0FS4
/PTR 16 ENDS AT NEXT WD AFTER BUFF
INSRT,
LDA
t

0505
0506
0507
0510
0511
0512
0513
0514
0515
0516
0517
0520
0521
0522

0456

4464

04 57

10 27
60 53
72 03

04 60

0461
0462
0463
0464

0226
6457
6000

INSHTN

ADSTMP

0465

^000

05 23
05 24

04 66
04 67

00 00

0525
0526
0527
0530

0470
0471
0472
0473

1000
0000
4002
4465
4466

0474
0475
0476

6164
6505
6617

0477
0500

1000
0465

0531

0532
0533
0534
0535
0536
0537
0540

STC INSRTN
LDA I 7 /GET NEXT WO
JMP 00 SUB
/STORE
JMP STRLF
XSK I 6 /END
/N0» GO BACK
JMP INSRTA
/YES
RETURN
/SUBROUTINE TO ADD A SPECTRUM
/WHOSE NAME IS IN TY07A OF B5» INST NAME IN INS'NM
/EXIT IF NAME REDUNDANT
/ONE BUMP IF NO MORE ROOM IN INDEX OR TAPE
/TWO BUMPS IF OK
/PTRS BY ERO HAS 4,6,7, USE 12i3
/LOC 8LK 0 OF FIRST 7777* 0 IF UNFILLED
0

INSRTA

AOSSP,

TRMP

STC 2
STC ADSTMP
STC ADSTMP+1
/FIND IF INSTRUMENT EXISTS
JMP ERl
/NO MATCH
JMP ADSSPl
/MATCH
JMP ADSSPA
/CHECK IF DELETED SrECTKA FuUND
/BEFORE END REACHED
LDA
ADSTMP

05 41

05 01

04 50

A2 E

0502
0503
0504

6565
0222
6002

0505
0506
0507
0510

0471
6557
2465
0450
6255
2006
4465
6255

JMP
AOSBMPf XSK
JMP
/NO
AOSSPl, APO
JMP
ADD
AHE
JMP
ADO
STC
JMP

00 00

AOSBLK

05 56

INI T

0542
0543
0544
0545
0546
0547
0550
0551
0552
0553
0554
0555

0511
0512
0513
0514
0515

/SAVE RET,

LDA

/STuHE IN UtLtlLP AULA
A0SSP5
2 /INDEX OVERFLOW
1
Z
/BUliP KLTURNj Ea I
EITHER END OF INDEX OK DEL
MATCH,
1

ADSSP2
ADSTMP

/DELE'EU

ER0B

/UNLE^'S rKiUK uiNt ruuiNU

IiNoi*

ADSTMP
ER08

/RET

0000

05 65

05 20

40 12

0566

0521
0522
0523

4013

10 00

FNOAOf

0
ST C

/S AV t RE T

0063

STC 13
/INIT BLK CNT
LDF 7
««r-T
•
4e«rT iir\
Ctot
mad
SET I 3 /SET WD TO STRT OF MAP

05 24
05 25

2324

23 24

0526

7763

05 75

05 27

0576
0577
0600
0601
0602
0603

0530
0531
0532
0533
0534
0535

1023
0471
6544
0241
0233
0225
6530

05 67

0570
05 71
05 72
05 73

oAvL LUo

bti otr\ Nun Luu«tbr
/SEARCH DAD MAP BLK0,
onr
/TO FIRST FREE BIT IN AUoHL'^* ^ti ai
/IF NO FREE BLOCKSf RET
/PTRS 3#5»10»11
LDA

0561

0516
0517

06 47

r
MnA n1
r NuA Ul t

0574

FNDAD2

No T

0557
0560
0562
0563
0564

7763
/START NEXT WO
LOA I 3
/IS BIT A 0
APO
JMP FN0AD3
/N0» ROTATE
ROL 1
/BUMP BLK CNT
XSK I 13
XSK I 5 /IS IT END OF WD
JMP FN0AD2+1
I

rtciuniN

0604
0605

0536
0537

06 06

05 40

0607

0541
0542
0543

60 12

0544
0545
0546
0547
0550
0551

1620
4000
0241
0225
6546
1043

06 21

05 52

10 00

0622

0553

0013

06 10

0611
0612
0613
0614
0615
0616
0617
0620

10 00
00 03
14 60

to A
3
I

rNDAD3

LD A
13

05 54

45 15

0 55 6

0232
6012

0557
0560

6516
6503

0561
0562
0563
0564
0565

1000
0465
0470
6567
0046

ADSSP5

05 66

04 65
10 00

ADSSP4

0647
0650
0651
06 52

0653
0654
0655
0656
0657
0660

0661
0662
0663
0664
0665
0666
0667
0670
06 71
0672
0673
0674

0675
0676
0677
0700
0701
0702

STC ADSBLK
XSK
12
/RETURN
JMP 12
/END or INDEX, ADD ENTRY
/PTR 6 AT INDEX ENTRY WDi
JMP FNDAD
/GET FIRST DAD LOG
JMP AOSBMP
/TAPE FULL* EXIT
1

A0SSP2

/TRANSFER

0567
0570
0571
0572
0573
0574
0575
0576
057 7

0642
0643
0644
0645
0646

/REROTATE

0555

06 40
06 41

XSK
5
JMP ,«2
STA 3

0624
0625
0626
0627
0630
0631
0632
0633
0634

0637

ROL

06 23

0635
0636

SAE
/END or DAD ?
2377
JMP FNOADl
/NQ GET NEXT, ELSE
JMP 12
/RETURN
/OPEN BLOCK FOUND* SET BIT, GET IN ADSBLK
BSE
4000

2377
6525

0515
4 103
1000
0101
10 46

1000

ENTRY

LD A

ADSTMP /ANY DEL ENTRIES
AHE I
JMP ADSSP4
/NO. STORE
SET 6
ADSTMP
/YES . FILL IT
LD A

ADS8 LK
STC FSTBLK

ADSSP3

LD A

INSTNM
STA 6

01 02

LD A
N ST NM *i

1066

STA

06 00

10 00

LD A

0601
0602
0603
0604
0605
0606
0607

0100
0302
2515
1066
1000
0515
6053

NUMPAR
ROR 2
ADO ADSBLK
6 /STORE NUM
STA

0610
0611
0612

61 50

1020
2402

06 13

06 46

0614
0615
0616

1040
2016
6626

0617
0620
0621
0622
0623
0624

1006
1560
6000
6053
7155
0470
6002

06 25

/STORE

INST NAME

P AR »

INIT 8LK NUM

LDA
AD SB LK

JMP DOSU B
JMP RDTAPE
LDA
2402
LOF 6

/R EA D BLOCK

ST A

2016
/SET PTR 16 TO START OF STORAGE
/JMP TO TRANSFER
JMP ADSSPX
/MATCH MADE IN INDEX, DO SEARCH FOR REDUNDANT
/INSTRUMENT ALREADY HAS CURVES
/SEE IF ONE TO BE ADDED IS REDUNDANT
/GET FIRST BLOCK
ADSSPA, LDA 6
BCL I
6000
JMP DOSUB
JMP FNDSPB
/CHECK MATCH
AHE I
JMP 2
/IF MATCHi EXIT

/NO MATCH, PTR 16 AT FIRST NEW LOCATION IN SPECTRA
/TRANSFER IN SPECTRUM DATA

0703
0704

ADSSPX

SET

07 05

06 26

00 66

0706

0627

7767

11 tl

07 07

06 30
06 31
06 32

00 67

1531

0633
0634
0635
0636
0637

0066
7775
0067
0047
6454

SET I 7
TY07 A«l
JMP INSRT
6
SET
7775
SET I 7

06 40
10 00

07 22

06 40
06 41
06 42
06 43

2022
6053

07 23

06 44

72 03

0724

06 45

0640

07 25

06 46
06 47

2035

0710
0711
07 12

0713
0714
0715
07 16

0717
07 20

0721

0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
0740
0741
0742
0743
0744

0650
0651
0652
0653
0654
0655
0656
0657
0660
0661
06 62

0663
0664
0665

64 54

00 66

V2»

7776

06 70

02 24

0750

0671

6664

07 51

06 72

00 17

0752
0753
0754
0755
0756
0757
0760
0761
0762
0763
0764

0673
0674
0675

6053
7203
0017

0772

n n s LJ R

JMP STRUT
LDF 0
LDA
PTSUNK'^2000

/STORE ST BLK NUM

COM
/MUST RESET LDF TO B0 EACH LINE
STC 4
6
SET
7776
tOF 0
JMP INSRT
XSK I 4
JMP V2
COM
JMP DOSUB
/STORE TERMINATING 7777
JMP STRLF
COM
LOF 7
STA
2777
/AFTER CURVE AND AS LAST WD OF BLK
/WRITE OUT LAST BLOCK,

07 47

06 76

06 47

0677
0700

1040
2777

0701
0702
0703
0704

0011
2075
6053
6173
0222
6503

0707
0710
0711

N AME

0017
4004

06 40

07 71

IMP

/TRANSFER TAPE

ST A

6454

07 05

NAMETP+7776
JMP INSRT
LOT 0
LOA
PA on AT 42^02

NUMPT4
JMP DOSUB
JMP STRLF
SET I 7
2077
LDF 0
ADD NUMPT4
MUL
NUMPAR

06 66

0706

/TRANSFER NEW SPECTRUM TO FILE

10 40

0667

0077
6053
7203
0067
2077
0640
2077
1240
0100

07 45

07 65

10 00

0746

0766
0767
0770

6467
67 31

6726

/STORE NUM PTS IN SPECTRUM

/GET -NUM PTS

CL R

X2,

ADD PARA+2
JMP DOSUB
JMP WTTAPE
XSK I 2
/RETURN, BUMP TWICE
JMP ADSBMP
/OORETTE HANDLER TO ADD SPECTRUM
JMP AOSSP
/JUMP ERROR, NAME NOT UNIQUE
JMP ERNNU
/JUMP ERROR, NO MORE ROOM
JMP ERNNX

SPECTRUM ADDED

/OK,

0774
0775
0776
0777
1000
1001

/NOW WRITE BLOCK 0
POP
PMODE
CDF 10
JMS I PWRITE
PARA0

0002

0713
0714
0715

6211
4443
0044

NUM PARA

07 73

0712

10 02

07 16

6141

0717
0720
0721
0722
0723
0724
0725
0726
0727
0730
0731
0732
0733

0600
7524
0640
1040
2003

1003
10 04

1005
10 06

1007
1010
1011
1012
1013
1014

1015
1016
1017
1020
1021

LIF

X3 t

ST A

2003

06 00

7764
1020
4071
6721
1020
4061
6721

IMP

JM P

6362
7056
0600

10 40

07 47

HE LP DS »

1041

0750

10 42

0751
0752

4753
2000
4763
1020

HE LP 1

1035

/TRRriD 0
I

/rpRnp

4061

0743
0744
0745
0746

1031
1032
1033
1034

IMP

LD A

1020
6244
0646
1040
2766

10 30

4071

0734
0735
0736
0737
0740
0741
0742

10 2 2

1023
1024
1025
1026
1027

JMP X4

JMP TRANSB
LDF 6
STA

06 00

IMP

7564
U8 f

iHP

R AT K

IMP
RPR
JMP R4IMTR
LIT 0

/RFTNtTT

nif .

77 44

IMP

/PRfiyTniiT

Riirr

AM(>

ryrT

10 36

1037

1043

/PTR7 ML}<?T BF set. PRnrF^SFO
STC HE LP 1
ADD 0
STC HELPRT
LDA I

10 44

07 53

00 00

1045

0754

6053

10 46
10 47

07 55

72 37

0756
0757
0760
0761
0762
0763

0017
6053
7310
6000

0764
0765

1020
4062

07 66
07 67

06 45
10 40

0770
0771
0772
0773
0774

2663
10 20

IDA
LU A

0656
6053
7237

DSPFRR

07 75

67 52

1050
1051
1052
1053
1054
10 55
1056
1057
1060
10 61

1062
1063
1064
1065
1066
1067
1070
1071
1072
1073

nn^up

0066

SE T

24 00

BUrB4^2000
rnM
/MAkF nrTAi
JMP no Slip
rriKil/.

PUT TMAP

LDF

ST A
T
i

JMP nn<5LIR
/fiFT rR
JMP GETANS
JMP HELP2
/REDISPLAY LAST DISPLAY
/HOVE • NUH HALF WDS IN PTR 6
/FROM PTR 5 BUF
/TO PRT 7 BUFF
/0 BECOMES 40

10 74

07 76

00 40

P40,

0777
1000
1001
1002

1000
0000
5013
1325

SHOVE*

LDA

1100

/AM<i

RFTURW
/ERROR* DISPLAY. TWFN BACK TO SAMF DI^Pl AY
LDA
/DISPLAY IlLFCAl a ON NUM mhlV
4062

1075
1076
10 77

IMP RMUI T

MNLNER

JMP

HELPRT

WLJM

STC SHOVER

SHOVEA, LDH

1101
1102
1103
1104
1105

1003
1004
1005
1006
1007

0470
2776
1420
7400
7002

1106
1107
1110
XXXI
1112
1113

1010
1011
1012

1367
0226
7002
6000

1114
1115
1116
1117
1120
1121
1122
1123

1124
1125
1126
1127
1130
1131
1132

1133
1134
1135
1136
1137
1140
1141

1013

1014
1015
1016
1017
1020
1021
1022
1023
1024
1025
1026
1027
1030
1031
1032

1040
1031
0017
1106
0471

6000
1026
0017
3031

0471
6000
0220
1020
0000
6000

1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050

0000
0017
0001
0004
0061
0062
0000
0777
1001
3770
0000
0277
0001
0003

1051
1052
1053
1054
1055

0000
7157
7334
7433
7470

1164
1165
1166

1056

1020

10 57
10 60

24 00
06 45

1167
1170
1171
1172
1173
1174
1175
1176
1177

1061
1062
1063
1064
1065
1066
1067
1070

1040
2022
0067
7775
6000
7056
1020
0026
0067

1142
1143
1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160
1161

A2E I
ADD P40 /IF 0« HAKE 40
/IF STRT OF NEW FIELD. IGNORE
SHO
7400
JMP SHOVEA
STH I 7
6
XSK
JMP SHOVEA
SHOVER. RETURN
/SET OF SUBROUTINES TO INTERFACE WITH AND CONTROL OORETTE
/SU8SUB-IS GIVEN NUMBER IN AC BETWEEN 0R=2 VALUES IN PTR6
/YES. BUMP RET. NO, RETURN
STA
LEGAL*
LEGALl
COM
ADA 6
APO
/IF MIN^NUM=+. ERROR
JMP 0
/MAX
6
LOA
COM
/NUM-M AX=* lERROR
ADD LEGALl
I

APO I
JMP 0

XSK
LDA

LEGALl*

/ELSE BUMP, RETURN.

IN AC

/RESTORE AC

JMP

/LEGALITY LIMITS FOR VARIOUS LIFE PARAMETERS
/UNIT NUM
LFUNIT, 0
17

SH0W3,

/CHOICES

/NUM PARA=SH0W31,

SH0W12, 61
62

SH0W14,

SHW21M,

/BLOCK NUM RAW DATA

777
1001
3770

/NUM PTS

/NUM MISSES

277

SH0W41*

/START CHOICE TABLE

1162
1163

1071

STTAB,

/JUMP GENERATE CURVE
STDOR
/JUMP PRINT
STPRT
/JUMP ERASE
STERR
/JUMP START DIAL
STOIAL
/MAINLINE CODING, DIAL MS I/O READIN
/PROCESS DATA FROM EARLY DISPLAYS
/TEXT BUFFER IS BY LOC 1365«»CALL BUFB4
/SUB TO INIT ANS BUFF
84INTB, LOA I
BUFB4 * 20 00
LOF 5
STA
/SET UP ANS BUFF
2000
ANSWER
SET 1 7
7775
JMP 0
STRT.
JMP B4INT8
LDA
DSPl
7
SET
jMP
JMP
JMP
JMP

1200
1201
12 02

1203
12 04
12 05

1206
1207
1210
1211
1212
12 13

1214
1215
1216
1217
12 20

1221
1222
1223
1224
1225
1226
1227
1230
1231
1232
1233
1234
1235
1236
1237
1243

1072
1073
1074
1075
1076
1077
1100

7774
0016
6 747
0066
1033
7014
6764

1040

1101
1102
1103
1104
1105

4073
6053
6150

1106
1107
1110
1111

6107
6116
0456
7127

1112
1113

1020

11 14
11 15

6053

1116
1117
1120
1121
1122
1123
1124

1000

7774
NOP

JMP HELPDS
SET I 6

LFUNIT
JMP LEGAL
JMP HNLNER
/NOT 1-17,
/LIFE TAPE UNI T NUM IN AC
STRTAi

00 44

STRT2,

00 5 3
72 37
04 00

1125
1126

1460
7431
7066
6131
0011
6053
6173

1127

00 02

11 30

12 46

11 32

6211
6212
4442

1247

1133
1134

0044
6141

1250
1251

1252
1253
1254
1255
1256
1257
12 60

1131

1135
1136
1137
1140
1141
1142

1020
0102
00 67

7775
6747
00 66

1261
1262

11 43

1144

1035
7014

1 2 63

1145

67 64

1264
1265
1266
1267

1146
1147
1150
1151

1120
7051

4006
60 06

12 70

1271
1272
1273
1274
1275
12 76

1152
1153
1154
1155
1156
1157

0066
7773
0065
0400
6000
71 61

ERROR,

TRY AGAIN

ST A

PARA0
STC PARA
/STORE IN TAPE PARA
JMP OOSUB
JMP RDTAPE
/READ BLK 0 INTO QUARTER 1,B7
/SET UP FOR CHECKING
JMP CKTPIN
/INITIALIZE
JMP CKTP
/DO CHECK
SKP
JMP STRTB
/NOT INITIALIZED LIFE TAPE
LDA
DSP2
JMP DOSUB
JMP GETANS
/ANSWER IN BUF84
LDA
BUF84
SAE
7431
/INITIALIZE LIFE TAPE
JMP STRT
/ANY ANSWER BUT YES, START OVER
JMP INTP
/INITIALIZE LIFE TAPE IF YES
i

CLR

12 41

1242
1243
1244
1245

/GET NUM IN AC

ST RT B,

JMP DOSUB
JMP WTTAPE
/WRITE OUT BLOCK
/READ LIFE BLOCK 0 INTO Q0B7
/LIFE TAPE INITIALIZED
POP
PMODE
CDF 10
CIF 10
JMS I PREAD
PARA0

ON LIFE TAPE

Li NC

STRTC,

LMODE
/DO CHOICE OPT IONS
LDA I
DSP3
SET I 7
77 75

JMP HELPOS
SET I 6
SH0W3
JMP LEGAL
JMP MNLNER
ADA

/GET OCTAL NUM IN AC

/NOT l^A, ERROR#

STTAB*6000
STC 6
JMP 6
/SETUP SHOVE ROUTINE
SETSHV* SET
6 /BUFB4, 4 CHAR
7773
SET I 5
BUF34
JMP 0
STDOR,
JMP IPCSUB
/START DORETTE
I

TRY AGAIN

12 77

11 60

7c 01

1300
1301
1302
1303
1304
1305
1306
1307
1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
132 4
1325
1326
1327
1330
1331
1332
1333
1334
1335
1336

1161
1162
1163
1164
1165
1166

Xv v\0

1170
1171
1172
1173
1174
1175

0000
52 00
1020
0167
6053
7237
7152
006 7
4100
till
0067
5553

1167

DPC

JMP ST00R2
IDA

/SUB TO SAVE INST NAME
STC IPCRT
LDA I
DSPIPI
JMP DOSUB
/4 CHAR NAME IN BUFB4
JMP GETANS
JMP SETSHV
7 /TRANSFER TO INSTNH
SET
I

INSTNM43777
JMP SHOVE
SET

71 52

till

12 00

60 00

IPCR Ti

1201

6242
7237

STDU Hi

12 02

1203

00 16

1204
1205
1206
1207

0201
6053
7237

10 00

1211
1212
1213
1214
1215

0400
1460
7431
7157
1000

13 37

Ic 10

W*» vX

1340

1217

1900

13 41

12 20

1342
1343
1344
1345
1346

1221

f f

(71 fTI

STDO R3

RE TURN
/CHECK IF NEW INSTRUMENT
JMP ER0
/NO
JMP ST00R5
NOP
/YES, GET NUM PAR
LDA
DSP1P2
JMP OOSUB
/ANSWER IN BUFB4
JMP GETANS
UDA
BUFB4
SAE 1
7431
/IF NEW INST, NOT ACCEPTED.
JMP STDOR
LDA
BUrB4*l
BCL I
7700
/LEAVE 006 NUM IN AC
6
SET
SHOW 12
/IS NUM PAR FROM 1-2
JMP LEGAL
/NO, REFUSE INFORMATION
JMP STD0R3
I

1037

12 22
12 23

70 14

1224

72 04

12 25
12 26

1560
77 74

77 74

1350
1351
1352
1353
1354
4 ICR
1356
1357
1360
1361
1362
1363

1227

06 46

LOF
STA

1231
1232
^ nil

06 40

1 ^

XO O "t
13 65

1P 41

6053

12 42

72 37

1366

1243
1244
1245
1246
1247
1250
1251
1252

7152
0067
4047
till
7251

13 47

1367
1370
1371
1372
1373
1374
1375

ST DOR** 1

1237

BCL

/GET NUM PAR

IN AC

PRMTRS*2000
LOF
STA

XX}*k\0

^ O "X "7

4 a o 01

1020

12 40

72 60

0066
1151

NUMPRA^2000

C.V cf

1236

TY08A+3777
JMP SETSHV
JMP SHOVE

11 76

12 10

INSTRUMENT NAME

1177

10 20

/GET

CT
uR f
5T nn
DON?

/STORE IN ALL BANKS
STC NUMPAR
JMP STD0R5
/NOT NEW INSTRUMENT, GET NUM PAR IN AC
/GET TAPE NAME» SPECTRUM NAME
LDA
I

DSP1P3
JMP OOSUB
JMP GETANS
JMP SETSHV
SET

/GET ANS BUFF

BUFB4

NAMETP*3777
JMP SHOVE

/STORE TAPE NAME
JMP SHVSBl
JMP STOORX
SHVS81* SET I 6 /SET UP 16 CHAR SPEC TRANSFER
7757

1376
1377
1400
1401

0065
4402
0067
5531
6000
6777

14 02

1253
1254
1255
1256
12 57

1403

1260

1404
1405
1406
1407
1410
1411
1412
1413
1414

1261
1262
1263
1264
1265
1266
1267
1270

I4i5

1271

1020
0275
0067
7774
6747
0066
1033
7014
6764

1272
1273
1274

0640
1040
2020

1275
1276
1277
1300
1301
1302
1303

0067
7773
0066

7
SET
7774
JMP HELPDS
/GET UNI T NUM IN AC
SET I 6
LFUN IT
JMP LEGAL
JMP MNLNER
/NOT CORRECT, ERROR. TRY AGAIN
/START BLK NUM IN AC
LOT 0
STA
PARDAT*2000
/STORE IN DATA TAPE
/HELPl ALREADY SET UP, SO BMULT CAN BE USED
SET I 7
7773
/SET 3 DIGITS
6
SET

64 01

BUFB4*6001

0011
0017
6053
7310
0640
1040
2022

CLR
COM

1416
1417

1420
1421
1422
1423
1424
1425
1426
1427
1430
1431
14 32

13 04

1305
1306
1307

1441
14 42

1443
1444
1445
1446
1447
1450
1451
1452
1453
1454
1455
1456
1457
1460
1461
1462
1463
1464
1465
1466
1467
1470

1310
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324

SET

TY07A+3777
JMP 0
/STORE SPECTRUM NAME
STDORX, JMP SHOVE
/GET START BLK
UNIT NUM, NUM PTS
STD0R6, LDA I
DSP1P4

JMP

/MAKE OCTAL CONVERSION-START BLK
DO SUB

JMP BMULT
LDF 0
STA

/ANS IN OCTAL*

IN AC,

0*777 IS

PARDAT+2002
/STORE FOR DATA TAPE
/GET NUMPTS^OECIMAL
SET I
7772
SET I

64 03

BUr64^6003
CLR
JMP DOSUB
JMP BMULT
/GET DECIMAL NUM PTS IN AC
SET I 6
SH0W14*2
JMP LEGAL
JMP MNLNER
/ERROR, TRY AGAIN
LDF 0
STA
NUMPT0+2 00 0
/STORE NUM DATA POINTS
/START DORETTE
LIF 0
JMP DORA GO

0011
6053
7310
0066
1043
7014
6764
0640

1326
1327
1330
1331
1332
1333

1334
1335
1336
1337
1340

7056
1020
0444
6747
0066

14 71

13 41

10 47

1472

1342
1343

67 64

13 25

0067
7772
0066

1040
2024
0600
7106
0000
7350
7375
7135

14 73
1474

BUFB4*4002

1433
1434
1435
1436
1437
14 40

SET

DIGITS MAX

PRTABL. 0
JMP PRTl
/PRINT SPECTRA
JMP PRT2
/PRINT LIBRARY SPECTRUM
JMP STRTC
/STOP. GO TO CHOICE OPTION
/START PRINT ROUT NE -M Al NL INE
STPRT,
JMP 84iNTB
/INIT ANS BUFF
LDA I
0SP3P1
JMP HELPDS
/NUM IN AC
SET I 6
SHOW 41
JMP LEGAL
JMP MNLNER
/ERROR TRY AGAIN
/CHOICE IN AC
I

7014

14 75

1476
1477
13 00

1501
1502
1503

1344
1345
1346
1347
1350

1120
7330
4006

1351
1352

6267
7135

1353
1354
1355
1356
1357
1360
1361
1362
1363
1364
1365
1366

1000
0000
5374
1020
0515
6053
7237
7251
6777
7152

13 67

67 77

60 06
60 53

ADA

PRTl

STC 6
JMP 6
/JUMP TO CHOICE 1-3
/PRINT SPECTRA
JMP DOSUB
JMP TYA
JMP STRTC
/GO TO CHOICE OPTIONS
/GET SINGLE SPECTRUM, STORE DATA
LDA

1504

1505
1506
1507
1510
1511
1512
1513
1514

1515
1516
1517
15 20
15 21
15 22

1523
1524
1525
1526
1527
1530
1531
1532
1533
1534
1535

1536
1537
1540

STC SIGR
LDA
I

0SP3P2
JMP DOSUB
JMP GETANS
JMP SHVS81
JMP SHOVE
JMP SETSHV
SET

4100

13 70

71 52

0067
5553

13 72
137 3
13 74

1375
1376
1377
1400
1401
14 02

1403
1404
1405

677 7
60 00

20 41

0243

14 11
14 12
14 13

TY AYl,

1414
1415

15 51

14 16

13 75

1552

1417

0011

15 53

14 20

02 34

1554
1555
1556
1557
1560

1 421

1422
1423
1424

7406
0O0O
6372
7056

142 5

7l2 7

1561
1562
1563
1564
1565
1566
1567
1570
1571
1572
1573

1426

0000

1432

7455
7463
7135

1433
1434
1435
1436
1437

7056
1020
0560
6747
0066

14 31

14
SET
7774
ADD RTN
ROL 3
STA
RTN
BCL
7770
ADA
I

/GET NaT 0 i b

STH
XSK
JMP
LIF
JMP
JMP
JMP

OA Al t

ERTABL

STERR*

TYAY2
6

TYAY5
B4INT8
STRTB

/CNTRL

REINITIALIZATION

/ERASE TAPE
EKR2
/ERASE INSTRUMENT
/ERASE SPECTRUM
ERR3
/STOP, GO TO CHOICE OPTION
STRTC
/PROCESS ERROR DATA
/INIT ANS BUFF
JMP B4INTB
LDA
0SP4P1
JMP HELPOS
SET I 6

JMP
JMP
JMP
JMP

14 <:/

1430

T YAN3D*3777

15 60

7770
1120
0060

/INST NAME STORED

RE TURN
^^
rSA^A Vki*ff*^ niir*F"
/GET
JMP SINGL
ALL DATA INTO BUFF
JMP TYC /PRINT R EMAI NDER
JMP STRTC
/GO TO CHOICE DISPLAY
/SAVE TAPE BLK "OCTAL
ROL 3
STC RTN
SET I 15

S I GR »

10 40
00 41

1546
1547
1550

CHAR AT START BUFF

TY AY2»

14 06

/SET

TY08a*3777
JMP SHOVE
PRT2

1407
1410

/GET NAME OF INST. SPEC
/SET UP SPECTRUM STORE

INSTNM+3777

7353
6351
7135
0243
4041
0075
5663
0074
7774

15 41

JMP SHOVE
In prt buff
JMP SETSHV
7
SET

/STORE

1542
1543
1544
15 45

SI NGLi

00 67

1371

PRTABL*6 00 0

ERRl

15 76

14 40

1 M "XS
Xlu
0

~X
14T 41
X

70 14

14 42

67 64

14 43
14 4 4

XX C.%)

AHAA
AU

7^26

Lr(

4 4 S

40 06

OM UW O
IMP
>Ji

rrA

tm runtrr

/rpRrtp

ni'j

TP v

atatki

157 7
16 01
16 02
16 03
1 ^ (714
l£J*t
XO
1 A {TiS
vj
XO

14 47

14m
1

4^2

XuXX

1612

/ ? lOX

rD o1

Jn r

AM
iO\D 1
X 1X

1617

1620
1621
1622
1623
X w c*t

1625
1626
16 27

1630

71 07

H 5^
^S
I?
i4

CTDI 1

A
)0V 10

NO P

1 "t

D
X 4 S ft
1 4S 7

7
1 ft 1
' X 0 X

1 4
H ft
X
O 16
1 4
u 1X
*6
X

JMP
JMP
JMP
NOP
JHP

O4 O

D ?ft
c O 1X

14 63
14 64

7353

ER R3

ft4 1 S

JMP UlLoP
/
/ W
nR
n Ii TF
C UUT dLK »
JMP uOaUB
JMP WTUN0

146 5
1466
1467

6051
7566

STRTB
/NO MATCH, RETURN
/DELETE INDIVIDUAL SPECTRA

Ik*
t

71 97

14
X*t 71
/ X

Jn r

54 40

V IOC

4 7P

14" 7^
» w
X
14 74

Xt) C\D

O XO R
3
ft7
O
/ 91
cX
ft 1 ft

647

14 75

ftC4

147ft
/ o
X*t

ft 1

14
' /
X*» 77

1 9
O X X4
(Tift
A
loo 0!
I0O

1645
1646
1647

1
X 3 10 10

7114
/ X x*t

X >7 w X

X 10

U i AU ,

/DELETL SPECTRUM

/D ITT
lO kl
/K
LI UH
N

POP
PMOOE
JHP

DIAL77

R*^

MH
pr »
iNU Mft
nU nL

LDA
6165
/ERR CD
JMP X3
/P TP X1 SET»PRNT LINE
'"in
R OP 4
JMP 00SU8
JMP PRNTLN
LIF 6
JMP LBPRX
rp
ua
PM
t n n K/
LDA

16 52
16 53
16 54

15 06
15 07

1505

/MAY BE UNUSED

(>l

/PRINT MATCH SPECTRUM LINE
/GET NXT SPECTRA
/ASK IF SURE

1651

Xiw

•^^ x*»

102 0

72 37
71

S 1X 1X
X-/

X'O

16 57

1512
1513
1514
1515
1516
1517

14 20

1520
1521
1522
1523
1524
1525

c n n (X n X *

16 74
60 53

Sft

1660
1661
1662
1663
1664
1665
1666
1667
1670
1670
1670

15 03
15 04

1 ft

Q T Mr

LMODE

16
XO 4^
"to
16 44

1 ft

"^S

16 50

/START DIAL

"^4
1 ft o*t

/WRITE IT OUT
/GO TO REREAD LIFE TAPE

1636

/CtR BLK0 IN B7Q1

/S AV E INST NAME
IPCSUB
EH0
ER2 /MATCH * DELETE INST

Cn nc A

1470

16 3 7
16 40
16 41

iN 1"

f IW 1X ft
v>
71 ?7
Ci) C't

1632
163 3
1 ft

462

16 31

/
IM O
Un
r
/J
(Art

o
ft

CtH
JMP D0SU8
JMP WTTAPE
JMP STRTB
/ERASE INDEX

ox 7/ 01;
fti

*T S
^4
n
1 4

Jnr t.KKNW0

TCl
61
"X Ox

i ox 0

i Oi o

/ k. HA bL

1610
X w X*'

1615

T
i

A oL
A

IMP
r
Jn

14 46

1 4

X O 19 /

3100
6000
1420
1600
7433
7504

/GET

BUF84

SHD
3100

ERRNW9

RETURN
SHD
1600
JMP STERR
JMP ERRNWl

/IF

GO ON

40 40

4040
2320
0503
2422

SIC ERRNW9
LDA I
DSPNEW
JMP D0SU8
JMP GETANS
JMP SETSHV
5
LDH

40 40

TY07.

4040

/IF N BACK TO ERASE OISP
/ELSE RESHDW SURE

16 70

15 26

1670
1670
1671
1672

1527

2515
4072

1530
1531

4040
4040

16 73

15 32

40 40

1674

1533
1534
1535
1536
1537
1540
1541
1542
1543
1544
1545
1546
1547
1550
1551
1552

4040
4040
4040
4040
4040
4040
4040
0000
4040
4040
1116
2324
2225
1505
1624

15 53

40 40

1554
1555
1556
1557
1560
1561
1562
1563
1564
1565
1566

4040
4040
0000
4040
4040
2013
4040
4040
3040
2601
1440

1567
1570
1571
1572
1573
1574

4040
0000
4040
3140
2601
1440

1575

4040

16 75

1676
1677
1700
1701
1702
1703
1704
1705
1706
1706
1706
1706
1706
1706

Q
TEXT QSPECTRUM
4040
4040
/ANSWER BUFFER
40 40
4040

TY07A,

40 40

4040
4040
4040
4040
4040
0000
4040
4040

TY08,

40 72

TEXT
4040
4040
4040
0000
4040
4040

17 06

1707
1710

1711
1712
1713
1714
1715
1716
1717
1720
1720
1720
1720
1721
1722
1723
1724
1724
1724
1724
1725
17 26

15 76

00 00

1727
1730
1730
1730

1577
1600
1601
1602

4040
2001
2201
4063

1731

1603

0000

1732

1604
1605
1606

40 40

TYOBAi

TY09,

17 35

1736
1737
1740
1741
1742
1743
1744
1745

Q INSTRUMENT

/ANSWER BUFFER

2013
4040
4040

1607
1610
1611
1612
1613
1614
1615
1616
1617

TY09A,

40 40

TEXT QY VAL 0
4040
/0 HERE IF TWO PARA
0
4040

TY09B.

TY09Ci
TYANS#

40 40

4040
TYANl*
TYANIA

40 40

4040

4040
4040
4040
4040
4040
4040
4040
4040

40 40

4040
4040
4040
40 40

4040
40 40

USE AS FIRST LINE OF INDEX PRINTOUT

/PK

TEXT QPARA 3Q

4040
4040

TEXT QX VAL Q
4040
/0 HERE IF ONE PARA
0

17 30

1733
1734

(

/SPECTRUM NAME

1746
1747
17 50

1751
1752
1753
1754
1755
1756
1757
1760
1761
1762
1763
1764
1765
1766
1767
1770
1771
1772
1773
1774
1775
1776
1777
2000
2001
2002
2003
2004
2005
2006

1620
1621
1622
16 23

1624
1625
1626
16 27

2021
2022

1630
1631
1632
1633
1634
1635
1636
1637
1640
1641
1642
1643
1644
1645
1646
1647
1650
1651
1652
1653
1654
1655
1656
1657
1660
1661
1662
1663
1664
1665
1666
1667
1670
1671
1672
1673
1674

2023

1675

2024
2025
2026
2027

1676
1677

2007
2010
2011
2012

2013
2014
2015
2016
2017
20 20

20 30

2031
20 32

2033
20 34
20 35

2036
2037
20 40

2041
2042
2043
2044

17 00

1701
1702
1703
1704
1705
1706
1707
1710
1711
1712
1713
1714
1715
1716

4040
0000
4040
4040
4040
4040
4040
4040
0000

4040
TYANIF, 0000

TYANIB*

4040
4040
4040
TYANlCi 4040
0000
TYAN3,

TYANA,

4040
4040
4040
4040

40 40

4040
4040
4040
4040
0000
0000
0000
0000
0000
0000
0000
0000
4040
4040
4040
0000
0000
4040
4040
4040
4040
0000
0040
4040
4040
4040
0000

4040
4040
4040
4040
TYAN38,

IF UNKNOWN LINE

/MISSES

/INSTRUMENT NAME

/SPECTRUM NAME

0
0

0
0
0

4040
4040
4040

TYAN3C» 0

/TAPE NAME

4040
4040
4040
4040

TYAN3D* 0

/ST BLK

40
4040

4040
4040
TYAN3E, 0

DIGITS

/PARAl

/PTS

0
0

TYAN4,

4040

TYAN4A*

/END
/PEAK

4040
4040
4000

00 00

4000
4040
4040
4040
4000
0000
4040
4040
4040
4000
0000
0000

00 00

0000
4040
0000
0000

/PEAK PTS

00 00

4040
4040
4040
4040

40 40
40 40

TYAN4B.

4000

DIGITS

IF ONLY 1 PARA

40 40

4040
4040
4000

/PARA

2-3 DIGITS

TYAN4C,

TYAN4D,

4040
4040
4040
4000
0
0

IF ONLY 2 PARA

/PARA

* 3

DIGITS

/END OF LINE

2045
2046
20 46

2046
2046
2046
2046
2047
2050
2051
2051
2051
20 51

2051
2051

4040
1116
2324
2225
1505
1624

1725
1726
1727
1730
1731
1732
1733
1734

4040
4040
2320
0503
2422
2515
4016
0115

1735
1736

0540
4040

TEXT QSPECTRUM NAHQ
0540
4040

17 37

40 40

1740
1741
1742

4040

20 51

2052
2053
2054
2055
2056
2056

4040

1717
1720
1721
1722
1723
1724

20 56

17 43

2056
2056
2057
2060
2061
2061
2061
2061
2061
2061
2061
2062
2063
2063
2063
2064
2065

1744

4040
2401
2005
4016
0115

1745
1746
1747
1750
1751
1752
1753
1754

0540
4040
2324
0122
2411
1607
4002
1413

1755
1756
1757

4040
2013
2300

1760

0000

TY06,

TEXT QINSTRUMENTO
4040
4040

TEXT QTAPE NAHQ
0540
4040

TEXT QSTARTING BLKQ
4040

TEXT QPKSQ
0000
CHAIN "LIFE 86"

»20

0000

/SUBROUTINE riELO* DISPLAY IN LAST ORT

00 01

0002

SEGHNT

00 03
00 04

*2 0

0005
0006
0007
0010
0011
0012
0013
0014
0015
0016
0017

0020
0021
0022
002^
0024
0025

4037
0005
0452
2051
4036
0500

40 26

6214

0027

03 01

00 20
00 21

00 30
00 31

06 00

0022
0023
0024

0032
0033
0034

4040
2000

00 25

00 35

10 20

1120

4 0 41

B6CALL

/B6 SUBROUTINE CALLER CALLING BANK IN DATA FIELD
RETURN=6000
STC JMPSU8
QAC
LHE
ADD P4000
STC ACVAL2
lOB

/IS L=0

/NOiSET BIT
/SAVE AC

PMODE
/GET DATA FIELD SET UP RETURN INSTR FIELD
ROF
LMODE
ROR 1
ADA I
LIF
STC LIFX
ADD 0
STC
BXRET
LDA I

00 26

0027
0030
0031
0032
0033
0034
00 35

0036
0037
0040
0041
0042
0043
0044
0045
0046
0047
0050
0051
0052
0053
0054
0055
0056

0036
0037
0040
0041

0000
0000
0000
0000

ACVALH,
JMPSUB
LIFX,
BXRET,

0042
0043
0044
0045
0046
0047
0050
0051
0052
0053
0054
0055
0056
0057
0060

0212
0215
0100
4442

IF,
CR

0061
0062
0063

0046

44 43

0000
00 00

4000
0002
0003
0001

0000
5400
5544

60 32

0062

4657
0000
2000

00 63

40 70

00 00

0064
00 65

4071
4072

0066

4073

00 67

4074

0000
0000
0341
5300

0070
0071
0072
0073
0074

0075
0076
0077

00 75

4100
4101
4102
4103
4104
4105
4106
4107
4110

0046
00 00

0002
60 32

4660
60 31

5301
6036
6041
5305
6046
6141

0111

6006

0112
0113

1000
0000
4126
1321
0450
6127
2043
6137
0011
2042
6137
0011

01 14

0115
0116
0117
0120
0121
0122
0123
0124
0125

PI I
SP SP,

4040

/NUMPTS
NUMPTS» 0
lOORA
KIOORA
KROORA, RDORA
/DORETTE CALLER
INTDRAi SET 6

PRINT SPECTROM

KCC
JHS

40 64

FLAGS

10 0
P100
4400*PREAO
JMQR,
44 00 ^P WRITE
JMQW,
/PARA IN CORR TAPE
PRMTRS. 0
/DECML
0
TEMP1»
4000
P4000,
2
PLUS2,
3
P3,

POP
PMODE

4065
4066
4067

212
215

0002

00 57

0076
0077
0100
0101
0102
0103
0104
0105
0106
0107
0110
0111
0112
0113
0114
0115
0116
0117
0120
0121
0122
0123
0124

/RETURN, EXIT

/CONSTANTS, TEMP STOR, REF

0060
00 61

/RESTORE AC

0
0
0

ORSfRT,

/CLEAR KEYBOARD FLAG
KIDORA

20 00

DREND»
YOFFST
YSCALE

/BEG CORE LOC

/END CORE LOC
,

341
JMP .+ 4
LMODE
CLLORA< SET 6
,

/SCR

POP
PMODE
KCC
/REFRESH DORA
JMS I KROORA
KSF
JMP ,«2 /IF NO NEW CHARi REFRESH DORA
/CHAR IN ACi KEYBOARD FLAG CLEAR
KRB
/PRINTER READY ?
TSF
JMP
/OUTPUT CHAR
TLS
LINC
LMODE
/RETURN
JMP 6
PTRl AT ST-1
/OUTPUT LINE OF DATA TO TTY:
PRNTLN, LDA
0

/SAVE RET
STC PRNTPC
PRNTLA, LDH I 1 /GET NEXT CHARACTER
AZE
JMP PRNTCH
/IF 0, PRINT LF,CR
ADD CR
JMP GOPRT
CLR
ADD LF
JMP GOPRT
CLR

0125

0126

60 00

0127
0130
0131

01 26

01 27
01 30
01 31

PRNTPC, RETURN
/TURN 6 BIT DATA INTO 12 BIT
PRNTCH* ADA
7740
APO
ADD PI 00
/LESS THAN 40. ADO 300

01 32

01 33

01 33
01 34
01 35

11 20
77 40
04 51
20 44
11 20
02 37
61 37

0136

6115

0137
0140
0141
0142

0500
6046
10 00

QATLS
LOA

0000

01 43

41 47

STC

0144

05 00

lOB

/TSF
OATSF
JMP »-2
RETURN

0134
0135
0136
0137
0140
0141
0142
0143
0144
0145
01 4 6

01 4 5

6041

0146

61 44

01 50

01 4 7

6000

01 50

41 72

01 51
01 52

20 45

0153
0154
0155
0156
01 57
0160
0161
0162

2000
4171

4163

62 11

01 70

41 64

0171
0172
0173
0174
0175

4165
4166

4442
0073
6141

01 62

0163
0164
0X65
0166
0167

41 64

06 44

1000
01 72

1040
2075
0002

GOPRT,

CHARACTER IN AC

108

/TLS

.*4

/SUBROUTINE TO READ, BLOCK TAPE IN AC
/INTO B7G1, FROM PaRA IN B4
RDTAPE* STC RWTAPE
/TAPE READ
ADD JMQR
STC TAPEHl
TAPEZ,

ADD 0
STC ROTPRT
LDF 4
LDA
RWTAPE
STA

PARA*2002
POP

RHODE

0167

06 47

01 70

0011
6000
0000

01 76

01 71

0177
0200
0201
0202
0203

0172
0173
017 4

02 04

01 /5

0205

0176

4172
2046
4164
2000

02 06

01 77

41 71

0207

0200

6155

0201
0202

0017
4001
2000
4216
0011
2043
6137
0221
6205
0011

02 10

0211
0212
0213
0214
0215
0216
0217
0220
0221
0222
0223

ADA I
237
/ELSE ADD 20 0
/PROCESS
JMP GOPRT
JMP PRNTLA

/PRINT

0147
0151
0152
0153
0154
0155
0156
0157
0160
0161

02 03

0204
0205
0206
0207
0210
0211
0212

CDF 10
TAPEZl. JMS
PREAD
PARA
LINC
LHODE
Lor 7
CLR
ROTPRT. RETURN
RWTAPE* 0
/STORE PARA 2
/SUBROUTINE TO WRITE 1 BLK TAPE
/INTO 87 QV FROM PARA IN B4
WTTAPE. STC RWTAPE
/TAPE WRITE
ADD JMQW
STC TAPE 21
ADD 0
STC ROTPRT
JMP TAPE2
/SUBROUTINE TO PRINT LF,CR
/LINES IN AC
PRLF,
COM
STC 1
ADD 0
STC PRUFRT
PRLFA,
CLR
ADO CR
JMP GOPRT
I

XSK I 1
JMP PRLFA
CLR

0224
0226
02 2 7
0 2 30

0^ lo

9
49
<- K? *T <£

Ann

Oi. O /

IMP

ffl

0215

OlCI i i

OlQ 1 A
0

A LI 01 Li

DPI r D T

0234

0 217

02 35

02 20

00 00

0236

0221

4 22 7

02 37

02 22

0240
0241
0242

0223

^
o c
4c09

0224
0225

62 30

n 1^ o n u *

0
C
L
J T r*

TDM
niN Qm
on t
Ann £/
37
AUU

02 26

42 35

0244

0227

6000
1000
0000

02 45

02 30

0246
0247

0231
02 32

42 43

02 50

0 2 33

W 0 *t /
1
iC 1
O
X 0^
iA
A^
iO O * 9
1
77

O c;
51
-i

025 2

W <c 0 ~

02 5 3

02 3 6

To
MC nT 1
K No
TD
A WC
K ANb

a9 4 4
01

TR
WM n
nt>|n
UX1 f.

n A

1ft

c
D T HA
1

IMP

HCCi
/DCCTnOC LUrP
/KtblUnL
1

IFF

Bi QCK

17
LI

TRANSA+1

n R

49 ftft
On /

9 lO

Wc OD

c9X

9^ 1

i^^ 9(1

it)

010}

Af\

ICfc

f!(1

O
7
*T /
£^

02 71

/HAS BLOCK ENDED
/YES. INIT» READ NEXT

RE TU RN

READ
/PRT 16 MUST BE ADVANCED.
PTR 16 TS LIFE BLOCK PTR 87Q1
DA

TP ANSB

CT f

<^A
OH r
C

c9O

9
777
(mill

2777

019 ^4

oc o-'

0255
o A
02PO

T
i

Xi0i0 10

IMP TRABRT •!
n Rl K
nr 4
4
LUr
A
UA
Ln

/UP T TT
Ol

TRABRT

nr 7
XSK I 16
ADO 16

06 44

901
cw 7/ R
9

r 8 ~ M ' c WW c

019 6(71

61 73

019 Ai

1
01 1 ft
Xi0

00 to^

019
oc
lOc A9

KfOvO

«9 ft

wX 910
00 7 6

0304

OiO
AA
02o*t

03 05

019 AR
09

9 4 CAOi
1
n xo
1 ft
xio

JMP WTTAPE
IDA 16
/RFAD NEW BLOCK
IMP ROTAPF
16
SET
2400

R
"? C< A
ICO
t)0

019 A A

6016)01

03 01

03 20

0321

0322

TO AQ DT

RF TURN
TO PRINT INDEX SPECTRA
/PTRS 10,11,12-1.15,16.17 USED IN SUBSUB
/B0 ASSUMED IN B7Q0
SET 10
/c;UR RnUT TNF

03 07

0310
0311
0312
0313
0314
0315
0316
0317

NEW BLOCK

" A(?i
Oiw
X4

O 7 "7

100 I0»

02 7 4

fli

transr

JMP

0101 0101

f7?9

0275
0276

ynn TRAN^rFR
iKAlNorcn
^UU

STC TH NbK
nr 7
/rri wrXT

TO AMC A .

XSK

94S

ffl

ViC f O

rt<i

/I nr
4
T
/LUr

02 65

O7O

UP TRNXrCR FROM B4

A
CI 01
0 01
10(010

0 26 6
0£ 0 /
O7
/3I

/<^rT

Ol
mo AO

69 "^4
0101 1

IDC

ptr 17 ldF"
RFAD IN NEW BL K

lOt •It'

0260

16 L DF

PT R

DC Tt OAl
nA
A
LU

kji

tdamc
n AiN b
TRNn02
TO
kiu
TRNMOl

jmd
Jnr
ADD
CTr*
STC

A
*4
O9
C^
t
019 41

2271

02 43

0264

U n IN

/TO nATA rinn
/IP PAST RLOCK.
nA

fJl

/rRHM DATA riTLD IN

0231

MORA.
'J K 7

r.npRT

WlO 1

0c 1

02 32
mo T
0<c OO

ffl
It)

0267

0050

02 70

00 00

0271
0272
0273
0274
0275

0645
1020
0003
6201
0061
6751
6112

0276
0277

TYA,

TRNMD2, LOF
LOA

/CNST IN TRNMO

JMP PRLF
SET I 1

/PRINT

TY05+5777
JMP PRNTLN

/PRINT INDEX

0323
0324
0325
0326
0327
0330
0331
0332

0300
0301
0302
0303
0304

0305
0306
0307

2052
6201
0644
0061
7716
6112
2054
6201

ADD PLUS2
JMP prlf
LOT 4
SET
1

0312
0313

0647
0071
2007
1031

03 40

03 14

04 50

0341
0342

031 5

0316

6323
0471

03 43

031 7

601 0

0344
0345

0320
0321
0322
0323
0324
0325
0326
0327
0330
0331

03 46

0347
0350
0351
0352
03 53

0354
0355
0356
0357

0310
031

0332

/PRINT INST, SPEC, TP, STBLK. PTS
ADO PI
JMP PRLF
/PRINT 1 LF
/START OF DATA PROC TOR SUB COLUMNS
LOT 7
SET
/PTR 11 IS INDEX PTR-AT FRST BLK
11

0647
0231
1031
0242
1560
7774
4047
1011
1560
6000
0644
1040
2103
6150

0357
0360
0361

6217
1016
0450
6404
6244
6244
6244
6402
6244
0604
7400
6244
0077

04 13

0414
04i5
0416
0 41 7

0420
0421

03 62

TY A3.

6616
0236
6357
6244

SET I 15
7775
SET I 17

7775
0077
3633
6217

6313

0363
0364
0365
0366
0367
0370
0371
0372
0373

IDA I 11
Alt
JMP TYA3
APO
JMP 10
/IF NEXT ENTRY=0, PRINTOUT OVER
XSK I 11
1

00 75

03 55
03 56

0406
0407
0410
0411
0412

XSK

04 03
04 04
04 05

0353
0354

TYA2

JMP TYA2
/IF ENTRY=7777, DELETED, SKIP
SET 16
/SET UP INST DATA FIELD PTR

0334
0335
0336
0337
0340
0341
0342
0343

03 52

20 07

6313
00 56
0011

0361
0362
0363
0364
0365
0366
0367
0370
0371
0372
0373
0374
0375
0376
0377
0400
0401
0402

0350
0351

TY Al

0231

03 33

0345
0346
0347

02 31

03 60

03 44

TY06+5777
JMP PRNTLN

03 33

0334
0335
0336
0337

/PRINT

CHAR=2W0S

TYAMA*1777
JMP TRNSMO
/TRNS INTO INST LN
/GET SPECTUM DATA
LDF 7
XSK
11
11
/FIRST BLK
LP A
IN AC
ROL 2
BCL I
7774
STC PRMTRS
/GET PARA
LDA 11
BCL I
/CLEAR PARA FROM TAPE BITS
I

Z7,

6000
LDF 4
STA

FSTBLK+2000
JMP ROTAPE
/READ IN FIRST DATA BLOCK
/GET SPECTRUM LINE
JMP SET16
/INITIALIHE* STORE
TY A4

04 70

XSK I 16
JMP TYA4A
JMP TRANSB
AHE
JMP TYA2
JMP SET16*2
JMP TRNSMD
LDA 16
AHE
JMP TY AH
JMP TRANSB
JMP TRAN SB
JMP TRANSB
JMP TYAX
JMP TRANSB
tiF 4
JMP TYAYl
JMP TRANSB
SET I 17

/START OF SPEC DATA

66 20

TYA4A,

TYAY,

TYAY5,

/IF=0, GET NEW INST
/NO, PROC NEW ANS
/TRANS SPEC DATA
/FST TAPE WD,0 IF DEL

/DELETED SPECTRA, GET PAST
/TO NUMPTS
/TO START OF NEXT SPECTRUM
/GET STBLK

/GET OCTAL
/GET PTS

0422

0374

3670

TYAN3E*i777

04 23

03 75

06 44

0424
0425
0426
0427

0376
0377
0400

6430
0061

LOF 4
JMP OECML
SET I 1

/PROCESS INTO

TYAN3+5777
JMP PRNTLN
JMP A0V16

/OUTPUT SPECTRUM LINE
/MOVE PTR 16 FROM PARA TO FIRST

0430
0431

0401
0402
0403

0432
0433
0434
043b
0436
0437
0440

0404
0405
0406
0407
0410
0411

0441

0412

0442
0443
0444
0445
0446
0447
0450
0451
0452

0413
0414
0415
0416
0417
0420
0421
0422
0423
0424
0425

0453
0454
0455
0456

7631
6112
6635
6353

0644
1040
3656
6244
0644
1040
3657
6367

0017
4050
1020
0055
1357
0011
2050
6446
6027
7633

04 57

04 26

77 65

0460

0427
0430
0431
0432
0433
0434
0435

7776
4050
2000
4463
4014
0073
7773

0461

0462
0463
0464
0465
0466
04 67

TYAN3C+2000

TYAN3C+2001
JMP TYAY

/SUBROUTINE STORES WD IN AC AS 4 DEC ASC DIGITS
PTRS 13.14,2
/IN BUFF LOCATED BY PTR 17,
DECMRM, COM
VAL
/GET
STC TEMPI
LOA
I

55
V4 ,

MlTHS,
M100i
M10,
Ml,

OECML,

STH 17
CLR
ADD TEMPI
JMP OECMLA
6027
7633
77 65

SE T

MlTHS
ADD TEMPI

0474
0475
0476
0477
0500

0443
0444
0445
0446
0447

05 0 1

04 5 0

64 55

0502
0503
0504
0505
0506
0507
0510
0511
0512
0513
0514
0515
0516
0517

0451
0452
0453
0454
0455
0456
0457
0460
0461
0462

05 20

04 67

0451
6466
0234
6446
0234
2014
6504
0060
0233
0456
6000
4014
6456
0017
1112

0463
0464
0465
0466

/RESTORE AC

7776
STC TEMPI
AOD 0
STC OECMRT
/CLEAR DIGIT VALUE
STC 14
13
SET
7773
/SET DIGIT CNT

00 72

04 42

COMPL LINE

JMP TRANSB
LDF 4
STA

04 36

04 73

TYA2,

DIG.

JMP TYA4
/GET PAST TAPE NAME, STORE
LDF 4
STA

0437
0440
0441

0424
2050
0451
6414
1020
0040
6420
1112
0470

0470
0471
0472

TYAX.

APO
JMP DECMRM
LDA

/INIT PLACE PTR
/RESTORE AC
/IS VAL «

DECMLA,

JMP
ADA
AZE
JMP
APO
JMP
XSK
JMP

/NO STORE SP

V4
12
I

DECMLB

/IF NEXT ADD 0, PROCESS

DECMLC

/IF NEG, RESET
BUMP DIGIT VALUE
/IF

OECMLA

TERMINATE
/0 SEEN,
14
ADD 14
JMP MIS /ADD VALUE TO 60, STORE IN PTR 17
60
/IS IT LAST DIGIT
XSK I 13
SKP

DECMLB, XSK

DECMRT, RETURN
/RECLEAR DIGIT CNT
STC 14
/FILL WITH 0
JMP OECMLB+1
/NEG, RESTORE VALUE
DECMLC, COM
ADA 12

0521
0522
0523
0524
0525

0470
0471
0472
0473

05 26

04 74
04 75

0527

0476

05 30

04 77
05 00

0531
0532
0533
0534
0535
0536
05 37
05 40

0541
0542
0543
0544
0545
0546
0547
05 50

0551
0552

0017
4050
2014
6504
0060
4014
2050
02 32

0503

0233
6446
0011
6463

0504
0505
0506
0507
0510
0511
0512
0513
0514
0515
0516
0517

4514
2000
1560
6000
4002
0220
1002
1120
0000
1377
0011
6000

0501
05 02

MIS,

MIA,

COM
STC TEMPI
ADO 14
JMP MIS /WRITE IT
60
STC 14
ADD TEMPI
XSK I 12
/SET TO NEXT DIGIT
XSK I 13
/OVER
JMP DECHLA
/NO, GET MORE
CLR
JMP OECHRT
/YES, RETURN
/subroutine: puts 6 BIT ASC IN HALF
STC MIA
ADD 0
ecL I
6000
/PTR 2 HAS NEXT LOC
STC 2
XSK I 0
LDA 2
ADA I
0
/ADDED TO AC
STH
17
/STORE HALF WO
CLR
I

JMP

EJECT

/SUBROUTINE TO PRINT SPECTRUM POINTS HEADER* SET COMPUTE LINE
/PTRS 10 ,1 1. 12«1 ,15, 16 ,17 USED IN SUBSU8
/8 0 ASSUMED IN B 7Q 0
/SPECTRUM NAME* INSTRUMENT ALREADY STORED FROM DSP
PARA
/PRMTRS CONTAINS

05>53

0555
05 56

0557
0560
0561
0562

05 20

0521
0522
0523

45 26
10 31

0565

0525

4524
0072
0000
1020

7 oo

05 26

00 00

CIS A7

v7c /

05 63
05 64
If

05 24

OK/

0532
MS 7"^

05 74
05 75
05 76

057 7
0600
0601
0602
0603
0604
0605
06 06

0607
0610
0611
0612
0613
0614
0615
0 61 6

0617
0620

05 34

0535
0536
0537
0540
0541
0542
0543
0544
05 45

0546
0547
0550
0551
0552
0553
0554
0555
0556
0557

06 21

05 60
05 61

0622
0623
0624

0562
0563
0564

0625
0626
0627
0630
0631
0632
0633
0634
06 35

0636
0637
0640
0641

0642
0643
0644

0565
0566
0567
0570
0571
0572

0573
0574
0575
05 76

0577
0600

X2 2#

06 50

0601
0602
0603

06 51

06 04

/12 REACHES 8UF

LD A

X3 2#

TY B»

ST A
JM P

SE T

0000

06 44
10 20
00 03
62 01
00 61

LDF

LO A

7521
6112
2052
6201
0061
7542
6112
2052
6201
2047
0017
4001
0071
0572
0221
2055
6520
6520
0011

TY07+5777
JMP PRNTLN
ADO PLUS2
JMP PRLF

SE T

SET

/PRINT SPECTRUM

/PRINT

/PRINT INSTRUMENT
/PRINT

PRLF

2 LF

PRMTRS
/SET ls:PARA

TY81 «1
XSK
1
/IS THERE MORE PARA
/IF YES, INSERT SPACES
ADO SPSP
JMP X12
/N0# STORE TERM 0
JMP X12
CLH
XSK 1
/IS IT OVER
STORE MORE 40S
/NO,
JMP TYB2

TYB2,

/YES PRINT LINE
SET I 1
TY 09+5777
JMP PRNTLN
ADD PLUS2
/PRINT 2 LF
JMP PRLF
/RETURN
JMP 10
/PARAMETER COUNT TABLE
TYO9A+20 00
TY AN48+2000
TY09B+ 20 00
TY AN4C*2000
TYO9C*2000
TYAN4D+2000
/SUBSU8 TO COMPARE BUFFERS-1
/WOS IN PTR 10
/IF YES. 0, IF NO 4000
LDA

0061
7556
6112
2052
6201
6010
TY81#

3716

1000
0000
4612
1026

TY08+5777
PRNTLN
PLUS2

JMP
ADO
JMP
ADO
COM
STC
SET

02 01
65 56

3570
3703
3576
^711
3603

/PRINT

JHP PRLF

06 45

0646
0647

/SAVE LOC

60 00
0UBfl

STC X32
11
LDA
STC X22
SET I 12

X12,

COMPR,

COMPRl

STC
LDA

COMPRT /SAVE RET
/COMPARE

IN PTR 6» 7

0652
0653
0654
0655
0656
0657
0660
0661
0662
0663
0664
06 65

0666
0667
0670
0671
0672
0673
0674
06 75

0676
0677
0700
0701
0702
0703

0605
06 06
06 07

1467
6613

SAE

0 712
07 13

0714
07l5
0716

0717

6 000

0613

1020

06 14
06 15

77 77

6612

IMP

0616

0 07 6

«5L

06 17
06 20

0621

3642
0075
7767

06 30
0 631
06 32

46 34
62 4 4

t ki

P4 C11
t

TY AM "^P

I 77 7

<?r T

1 *5

7767
JM P

MV16

STC 15
yMDvr 16
ADD 0
CT r M
nVD
OIL
KT

«8i

sJn r

AO^
Jnr

6000

pr T

MVRT

K AN Ob

V X0A

/ o UD nUJJlINt
iU uALuULAlt rio IN riK
/y rAnAnclLf^O
PAPAMTTrRQ TW
PDmTOC
/A
ilN
rKnlnO
/A Wn AnV/AMPC" DTD 1 X Tu A T u A Ki V

0635

0647

/riK 10
nr 7/
LUr

fKU V 4. 0 »

0637
0640

NUn rTa»BND5 IN

WD OF NEXT SPECTRUM

nA
A
LU
1

00 47

ppMTOC
r n n no

001

OUn

4015
2000
4654

CTP
OIL
Ann
OIL
ADA

/crT 13
1
Tn
/at
•PAK
lU .DAD

IS
Xj

0 641
06 42
06 43
06 44

1 11 6

0645
0646

0235
6644

A O f\

]Mp

AHUiAA

POM
Lull
*3IL

X-^

AD VI 6A t

(Pi

AUVKi
/oAVL KLI
16
/GFT PTS X PARA
X

/O'UnC.

AD V16B 1

JMP
TRANSB
XSK I 15
JMP A0V16B

0654

6244
0235
6651
6000

ADVRT

RETURN

0655

6661

TYCl

06 53

F {KST

06 36

00 17

07 26

07 30

06 56

67 35

07 31

0657
0660

0604
6005

/R 6
o
/^o

PA
TM RT
n

JMP
JMP

TVr^R
TYPNT

n
r
ur

uir

JMP

/l>|U

I'lt.w

I Is

/MnVr PT R 16 PAST PAPA

04
D UD
D*» <sllR

TQT
rot Rii^
O L?\ #

Ar r
U riM
AU
UN T
1

T
I

M
N 11 T
1

/riwn QPrrTPA

o
w
o uK
1

/rnNTIMIir

nAlLn« CAII

/SUSROUTINF TO FlNin <;PFPTRIJM
/PTR 16 WTIL RF AT NHMPT<;. TWTT PI R TW AP
/*?PFrTRUM NAMT TW TYn7A TM PR
/TF MH M aT PW
PUmP R TT iR m PTRCA 7 id
STC TYCSBl
1

06 61

46 65

0662
0663

2000

06 64

0665
0666
0667

07 46

06 70

0747

06 71

07 50

/rVTT
AtTi^^f^t
a r
/btl UP Fun SEARCH LIFB DATA PTR 16-^SUB

rriMPRT

u u O J.

40 15

0744
0745

nntAO ADC

/Ktf\

77 77

0235

06 47

07 42
07 43

INi

IHA

60 00

4015
2000

0650
0651
0652

0732
0733
0734
0735
0736
0737
0740
0741

or
DM
n t. Til
U r<

nc t

2401

0622
0623
0624
0625
0626
0627

0633
0634

PflMPPT

06 47
00 77

07 20

0727

rnMPRi

0 612

,0721
0722

0723
0724
0725

IMP

06 11

07 04

0705
0706
0707
0710
0711

rn MP Rc>

02 30
66 04
0011

0610

IMP

TYCS8,

ADO 0
STC PETTY
LDA I

47 26
10 20

0000
6150
6616
6244
6217

TYCSBl

TYCIA,

/SAVE RET

/INIT BLK NUM
JMP RDTAPE
/READ IN LIFE TAPE BLOCK
JMP SET16
/SET UP FOR SPECTRUM READ
JMP TRANSB
/PUT SPECTRUM NAME !N 84 TYAN3B
JMP TRNSMD
/PTR16 STILL AT LAST SPECTRUM LOC
0

07 51
07 52
07 53

0754
0755
0756
0757
0760
0761
0762
0763
0764
0765
0766
dlbl
07 70

0771
0772
0773
0774
0775
07 76
07 77

06 72
06 73

1016

0674
0675
0676
0677
0700
0701
0702
0703
0704
0705

6711

0706
0707
0710

6711
6531
6727

07 11

1020
7774
6626

04 70

06 44

TY CI M»

0066
3642
0067

TY AN3B+1777

SET

TY07A+1777

0070
7767
6601
0451

10
SET
7767
/DO COMPARE
JMP COMPR
/IF
AC MATCH
APO
PRINT HEADER
JMP TYCIN
/DO PRINT OF HEAD
JMP TYB
JMP TYC2
/NO MATCH GET NEXT SPECTRA, TRY AGAIN
/FIRST MOVE PTR 16 TO START OF NEXT SPECTRA FROM END OF THIS
LOA I
7774
/GET TO NUM PTS LOCATION WITH PTR 16
JMP MV16
/GET TO LAST LOCATION OF OLD SPECTRA
JMP A0V16
JMP TRANSB
AHE I
JMP TYCIB
/IF MORE SPECTRA, PROCESS
JMP SET16*2
JMP TYCIA
/IF NO MORE SPECTRA

07 14

66 35

1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014

0715
0716

6244
04 70

10 15

1016

0 71 7

672 2

07 20

6620
6671

0721

0722
0723
0724

1020

TYCIX*

TYCIN*

TY CI Bf

RETT Y

0727

001 6

TYC2

07 30

10 20

0731

77 74
66 26

10 17

07 32

07 33
07 34

67 26

1022
10 23

07 35

40 11

1024

0736

20 56

TYCIC,

1025

07 37

04 70

1026

0740

7005

10 27
10 30

07 41

00 17

0742
0743
0744
0745

4010
2047
0017
4007

07 46

00 66

0747

0574

1031
1032
1033
1034
1035
10 36

1037
1040
1041
1042
1043
1044
1045
1046
1047

%)C OJ,

0726

10 20
10 21

LOA

/BUMP RET
ADO RETTY
STC RETTY

0001

2726
4726
6000

0725

3531

/ONLY

0712
0713

/SET UP COMPARE
/IS SPEC DEL
LOA 16
A2E 1
JMP TYCIN
LOT 4
6
SET

T»

TYClOf

TY CI L

RETURN
/MATCH, PRINT VALUES, PTR 16 AT FRST WO OF TSTNAME
/RESET BY OELSPEC ROUTINE
NOP
LOA I
7774
/GET TO NUM PTS
JMP MV16
/SAVE
STC NUMPTS
/RETURN
JMP RETTY
/PRINT SUB CONTINUED
STC 11
LINE NUM
/I NI
AOD
NUMPTS
AZE I
/IF NO PTS, NO PRINT
JMP VI
COM
/SAVE - NUMPTS
STC 10
ADD PRMTRS
COM
STC 7
/INIT « NUM PARA
6
SET
TYBl +1
/STORE NEW LINE NUM
XSK
11
LOA
I

0751
0752
0753

1000
0011
0077

07 54

76 74

TYAN4A*5777

0755
0756
0757
0760
0761

0644
6430
2055
1040

LDF 4
JMP DECML
AOO SPSP
STA

36 75

TYAN4A+2000

SET

/LINE NUM SHOULD BE ONLY

DIG

1050
1051
1052
10 53

1054

1055
1056
1057
1060
1061
1062
10 63
1064
1065
1066
1067
10 70

1071
1072
1073
1074
1075
1076
1077
1100

0762
0763
0764
0765
0766
0767
0770
0771
077^
077^5
0 7 74

0775
0776
0777
1000
1001
1002
1005
1004
1005
1006

/PROCESS NEXT POINT
LOA I
3775

1020
3775

TYClFi

1106

ADA
STC
P2,
JMP
LOT
JMP
XSK
XSK
XSK
JMP
/NO
/PRINT LINE
LDF
ADD
JMP
SET

4017
6244
0644
6430
0226
0226
0227
67 62

0644
2054
6201
0061
7673
6112
0230
6743
0604
6005

17
/SET UP FOR VALUE STORAGE VIA DECML
TRANSB
/OVERLAY BE DORA PRT ROUT
4
/GET NEXT PT VAL IN AC
DECML
/CONVERT, STORE
I

/ADVANCE PTR

TO NEXT TTB1 PTR

TYCIF
/GET NEXT PARAMETER
MORE PARAMETERS
4

/PRNT LF,CR

PRLF
I

TYAN4+5777
JMP PRNTLN
VI,

XSK 1 10
JMP TYCIO
LIF 4
JMP 5

EJECT

/REINITIALIZE, GET NEXT POINT
/IF ALL PTS DONE, RETURN

tiPRni IT Mr Tn TRAMQrrR
Uft'ft
Ir^ftnlOrL" nATA
/oUDnUwIilNC

1 01 1

11 K^C
1 1 oti
1
X tiO

/p TR

014

/PRT

1 i

1 1
13 ->
li
11 WO

1 to 01 Dl
X
1010

1 W

1010 1010

0!
to

110 V
Ic?

11 /
1 1 1 01
ill?
iX
11 11

10 1*5

X M 99
cc
1 01 A
liO 00

1112

1014

s^KJl 1

111*5

101^

11 14
11 It?
11 16

10 16

70 12

1017

01(7 io Id

10 20
10 21
10 22

06 45
10 20
00 03

o^
1 0 iCO

11 (CO

102 4

111H

1 01 9 ^
iC'C 9
1

A1
tool
A 7 01 4

1117
11 20

1121
1122

II
I 1

A
0

97
lie/
1 1

1 01 111

I? 10

1 10

It'

XIl)

1 Of

fli

01 01
10

A
UA
Ln
CT A
b
1

T n n T AR
AO

TRUT

L8PRB#

9
c
O

ATI
I

ClR
XSK I 4
JMP TRDTAl
RE TURN
/B6 PART Or
LDF 5
IDA I
3

cr T

/rnlNI 0

Tvm *c:777

1 i?l
ItJ
X iC "^Pl

974S

TYn?A-f9000
iTUtM^<utoioio

00 61
6 722

TYQ4+5777

6112

JMP PRNTLN
Ann PI 11Q2

11 3 A

1037

^A
O
O 9"?
(C 0

1
(7!
110

4
" 1X

i 01 4
9
^c

44
4 ^5

10 45

9
1

(TIM
tOIC A"^

OA
O 01
100

TYAM1
AaI 777
TA1\|XA*1/
/ '

1 01
It)

4
A
*to

7
7 A7
/ / 0 /

77 A7

1 Oi

XIO Jxi

IMP TpnTA
jnr
U A
nrr 0w
LU

1 01 S1
-?1
110

10
Xlt» 53

06 44

0^4

tS4
1
110 3**

00 77

CIC T

XKI J J

1
17
TV AN ir +577 7

1056

6
w 430
"T O KJ

IMPnrPMI

20 55

Ann
Or
AU
u <nP
or ^p

^ CI

XKf W W

1040

c;t
a
O 1 ft

1101

1
01 A1
110

36 21
cix

TYANlir+9000
/PRINT UNKNnWN
SET
1

1 1

11 R7

1 1
1 1
1 1

1 171

11 62
y"
X X 64
1 1

1165
1166
1167
1170
1171
1172
1173
1174
1175
1176
1177

10 62
10 63

00 61
76 03

10 6 4

6112
2055
0645
1040
2745
0644
1040
3623
1020
0003
6201

1065
1066
1067
10 70

1071
1072
10 73
1074
1075
1076

nA
A
t-U

XIO lOiO

20 35

1153
1 1

yTDAM^^rrp
3r Cu niamf
IN An C
nAlVOr tn *>prr

PT <>UNK 42 00 0
nrr 4"t
LU

1 X ^c.

777

11 * /
I 1 S(?l
II viw
1 1
11 91

u *t

/PRINT SPPCi NUM PK PIS

01 7

iiiwii

TYAN1R*2000
/QTT Tn 0 TO PljT nTT NUM Mt^^r<!
/TPAMC^rrp sprrTRUM mamt. mum pts of UNKNnuM

I 1

<;t
a
0 A

/sn in 0v TO
iw cut
wui orr
urr num MT<?srs
niootio

/OC.I

/PRT NT 2

T V n7 A

00 6 4

1 1

pri r

^5
>01

4 ^
"
1 01 4
W"4
1

IMP
1

itMI^KinUM

00 62

1 lU

1 0!

/PPTMT

PRMTI IU

10 31

10 36

IMP

2052
6201
06 44
1040

SUB TO PRINT MATCHING SrtCTKA

Jnr rHLr

<;t
a
0 t A

Id
XKp 35

-i

nr tran<^

10 40

11 34
w~
XX
11 35

uin c:

tdpiTao
K U An

10 27

1032

*tO
I I 4A

A1
1 9
01 \C.

1033
1 R34

TpnT
A1
n U Al

O
cA
1 V3 9

11 31

1141
1
1
114
c
1 *9
114^
11

cTrU
O

X '

1 01

1132
11
vJs?
XX 33

A ex

oMtiM

n AA
LU

1 0! C17
1

uaq ^tabt nr put
M A<s

/KFT

/ T N
I

PT*»

INF

TY AN S-f 57 77
iM p PR NT
N
1

ADO SPSP
Lor 5
ST A

TYO2A+20 00
Lor 4
STA
TYANlB+2000
LOA I

/RESTORE

/PRINT

JMP PRLF

12 00

1201
1202
1203
1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
12 16
1 21 7

1077
1100
1101
1102
1103
1104
1105
1106
1107
1110
1111
1112
1113
11 14
11 15
1 11 6

06 45

LOF

0061
6/13

SE T

ADO PLUS2
JMP PRLF
SET
1

6201
0061
6722
6112
2052
6201
0076
2401

1220

1117

62 44

112 0

1222
1223
1224
1225
1226
1227
1230
1231

1121
1122
1123
1124
1125
1126
1127
1130

0450
7124

6217
1016
0450
7137
6244

12 32

11 31

62 44

1233
1234
1235
1236
1237

1132
1134
1135
1136

6244
6635
0075
7767
7115

1241

1137

6244

12 42

11 40

62 44

TY04+5777
JMP PRNTLN
ADD PLUS2
JMP PRLF

LBPR X,

1141

6244
0077
7620

LB PR C»

1143
1144
1145
1146
1147

12 52

11 50

1253
1254
1255
1256
1257
1260
12 61
1262
1263
1264
1265
1266
1267

1151
1152
1153
1154

1040
3621
0647
1016
0600
7054

1 i t>5

46 65

1156
1157
1160
1161'
1162
1163

2000
5171
1020

6726
4727
3173

1271

LBPRD*

1164

4707

12 72

1273
1274
1275

1165
1166
116 7
1170

7201
7172

12 76

11 71

6000

66 62

20 42

/PRINT SPFC*

NUM PK PTS*

MIS<^F«;

JMP LBPRRT
JMP TRNSMO

r y t T

TRANSFER DATA

/NO*

LD A 16

/IS SPECTRUM DELETED « TAPE NAME=g
A2E
JMP LBPRF
JMP TRANSB
/YFS
GET P AST I
JMP TRANSe
JMP TRANS^?
/Tn PARA PTS
IMP Anvi6
/TO lAST SPErTRUM PT
SET I 15
.

77 67

LBPREi

JMP lBPRC«2
/TRY AGAIN
/SET UP REST OF LINE
JMP TRANSB
JMP TRANSB
JMP TRANSB
SET I 17

TYAN1F*5777

06 44
64 30
20 55

12 70

/PRINT 2 LF
SET I 16
2401
JMP SET16 + 2
17
SET
TY ANl +2000
/INIT FOR SP EC TRANS
JMP TRaNSR
/P TR 16 aT INIT iOr SPFC
AHE
/IS THIS T HF F ND
JMP LBPRD
L I F

12 40

11 42

06 04
63 70

1243
1244
1245
1246
12 47
1250
1251

/PRINT

007 7
3606

122 1

11 33

/PRINT LIB

61 12
20 52

66 20

TY03*5777

FNOSPB

LDF 4
JMP DECML
/CONVERT NUM PK PTS INTO TEXT BUFF
ADD SPSP
STA
TYANIF ^2000
/WITH 2 DIGITS ONLY
LDF 7
LOA 16
LIF 0
/GO TO B0 PORTION WITH NUM PTS IN AC
JMP LBPRF
/FIND SPECTRA MATCHt YES, AC=0» STOP LAST SPEC NMLOC
/NO, AC NOT = 0 ^BUT, INIT BLK NUM IN AC CALL
STC TYCSBl
/STORE INIT BLK NUM
ADD 0
STC FNORT
LOA 1
JMP RETTY
STC TYC2
/SET UP FIND SPEC ROUTINE
ADO P16

/AVOID HEADER PRINTOUT
STC TYCIX
JMP TYCSB+1
/GET SPEC PT
JMP FNDSPC
JMP RSTRTY
/NO MATCH. RES'rORE
ADD LF
FNDRTi
RETURN /RETURN, AC*

1020
0016
4727
1020

RSTRTY

10 A
16

/RESTORE FIND SPEC ROUT

12 7 7

11 72

1300

1173

1>5 01

11 74

1302
1303
1 304
1305
1 306
1307
1310
1311
1312
1313
Xw XW

1175
1176
1 177
1200

1201
1202

7172
7171

FNDSPC

13 14

1203

0647
1056
1000
0000
5233

STRLF

02 36

/IS THIS THE END OF A BLOCK
XSK I 16
ADD 16
SAE
2777
JMP STRTRT'2
/YES
LIF 4
/GET DAD SET, NEW BLK NUM IN AC
JMP STRLFB
/STORE NEXT BLOCK
STRLFC* STA 16
/WRITE OUT OLD BLOCK
STC STRTPA
JMP WTTAPE+l
/SET NEW BLOCK IN PARA, AND PTR 16
LDA I
/GET BLK NUM IN PARA
STRTPA. 0
LDF 4
STA

X fc sw "f

1205
1

13
cx
X^ 91

9 CI A

12 07
12 10

1211
1212

1322
1323
1324
1325

1213
1214

1326

1215

60 00

2016
1460
2777
7231
0604
6447

1216

1330
1331

1217
1220

1056
5223

1332
1333
1334

12 21

6174

1222

1020
0000
0644
1040
2075
0076

1341
1342

1343
1344
1345
1346
1347
1350
1351
13 52

12 23

1224
1225
1226
1227
1230
1231
1232
1233
1234
1235
1236

STC
IDA
JMP
STC
JMP
JMP
JMP

6531
4707

1327

1335
1336
1337
1340

P16,

1355
13 56
1357
1360
1361
1362
13 63

1364
1365
1366
1367
13 70

1375

TYB
TYCIX
0

LO A
0

STC STHTRT

PARA+2002
SET

/INITIALISE PTR 16

2400

2 400

0644
0011
6000

LOF 4
CLR
STRTRT, RETURN

0640
1036

P4,

/GO BACK, AC CLEAR
/OORETTE PRINT ROUTINE PTR FAKE
/BUMP DATA PTR
LOF 0
LOA
JMP

60 00

/SUBROUTINE TO GET DISPLAY ANSWER
/STORE AC VALUE IN TEXT STRING

NEVER CALL FROM 86

1237
1240
1241
1242
1243
1244
1245
1246
1247
1250
1251
1252
1253

0645
1040
2021
1020
0040
2040
5246

GETANS, LDF 5
STA
TXTSTR*2000
LDA I

00 00
06 05

1254
1255
1256

0000
0000
5255

/GET BACK ORIGINAL LDF
0
LIF 5
/DO DSP, GET ANS, COULD BE IN LDF BUFF
JMP DSCALL
GTANSli LDF 4
/RETURN TO MAINLINE VIA 86 CALL
CLR
JMP LIFX
/SUBROUTINE TO MULTIPLY MULTMP,
/ADD CONTENTS OF AC, STORE BACK
MUtTMP. 0

6020
0644
0011
6040

13 71

1372
1373
1374

TYC2

/MATCH* RESTORE
RSTRTY
/0 IN AC
FN CRT
/SUBROUTINE TO STORE DATA WD IN THE AC IN THE
/NEXT LOCATION IN A DATA BLK
/IF NEXT LOC LAST IN BLOCKi GET NEW DATA BLK STORE
/SET BIT MAP ETC,
LOT 7
/STORE VALUE
STA 16

13 53

1354

ADD LIFX
STC

MULACV 0
MUIT10, STC MULACV
»

1376
1377
1400
1401
1402
1403
14 04

1405

1257
1260
1261

1262
1263
1264
1265
1266

3254
1120
7177
0471
7360
0011
3254
0243

32 55

ST C
JH P

12 67

32 54

1270
1271
1272
1273

3254

1425
14 26

1427
14 30

1431
1432
1433
1434
1435
1436
14 37

1440
1441
1442
1443
1444
1445
1446
1447
1450
1451
1452
1453
14 54

1455
1456
1457

CL R

5254
6000

14 06

MULTHP
3

HULTMP
MULTMP
MULACV
HULTMP

/* AC 1

SAVE

/SUBROUTINE TO MULTIPLY MULTMP BY
/ADD CONTENTS OF AC« STORE BACK
/IF AC>7
JUMP ILLEGAL

1274
1275
1276
1277

1040
1255
1560
0007

13 00
13 01
13 02
13 03

04 50
73 60
32 54

1304
1305
1306

32 55

MULT8»

ST A

HULA CV
BCL 1
7

AE E

JMP
ADD
ROL
ADD

0243

MULT8E
MULTMP

/8 OR

JUMP ILLEGAL

MULACV
/ELSE MULT* ADD AC
STC MULTMP
JMP 0
/SUBROUTINE TO PROCESS BUFFER WHOOSE LOC
/IN PTR6« vNUM CHAR^IMAX PN PTR 7
/AC*0ir 0ECf*3777 IF OCTAL

5254
60 00

1307

00 00

BM ULTl

1310

5307
2000
5357
5254
0046

BMUUT,

STC BHULTl
ADD 0
ST C 8HULTR
/SAVE RET
STC HULTMP
/INITIALISE BUFF
SET 6
/COPY PTRS

1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324
1325
1326
1327

1330
1331
1332

20 06

0047
2007
1326
1420
3400
7355
14 20

7400
73 55
04 70

7355
1120
7706

20 06

SET 7
2007
8MULT2# LOH I 6 /GET NUM IN ACi IF NOT NUMi JMP ILLEGAL
SHD I
3400
/IS IT END OF FIELD
JMP BMULTS
SHD
7400
JHP BHULTS
AHE I
JMP BHULTS
/Y£S» OUT
ADA I
7706
APO I
JMP MULT8E
ADA I
I

14 60

13 33

04 71

7360

1467
1470
1471

1334
1335
1336
1337
1340
1341
1342
1343
1344

14 72

13 45

72 74

BMUITI
JMP MULT8

1473
1474

1346
1347

1500
1307

SRO
BMULTl

14 62

/HIGH ORDER X10

1461

1463
1464
1465
1466

/CHECK FOR OVERTLOW
/»3840 IF X10

ADD
ROL
ADD
ADD
ADD

1407
14 10
1411
1412
1413
1414
1415
1416
1417
1420
1421
14 22
14 23
14 24

ADD HULTMP
ADA I
-600
APO
JMP HULT8E

1120
0011
0470
0011
0451
7360
1500
1307

AEE

CLR
APO
JMP HULT8E
SRO

/EITHER X8

BIT SET

13 50

ifl**

1476

1351

7 256

14 /7
15 00
15 01

•1

13 RO

MOOT
Sad cJ

13 i>3
13 54
13 55

/o 20
73 60

14 7D

1502
1503
1504
1505
1506
1507
1510
1511
1512

1513
1514

1515
1516
1517
1520
1521
1522
1523

10 00
12 54

BMULTS.

13 56

1357

6000

1360
1361
1362
1363
1364
1365
1366
1367
1370
1371

1000

BMULTR, RETURN
/ERROR* DETERMINE CALLING BANK MULT8E» IDA
/GET UPPER«CALLiNG-FIELD
LIFX
SAE I
600
JMP CH8ANK
LDP 0
/SET UP ERR CO
LDA I
4062
STA 2003
LIT 0
/B0
JMP ILLG

00 40

1460
0600
7373
0640
10 20

4062
3043

13 72

06 00
77 64

13 73
< 1 1A
13 74

06 04
07 64

1526
1 R
15^7
1700
iPOl
R 1O

Kit

1 Si

/INITIAL CALL GET PARAM LIST
/SET ARGS FOR ROORA

m
*t o
1 ?d
1

lOORA,
1 -5

15 4 4

5*t W 1
c;

iTi

1545

54 03

15 46

H (TiA
]0l
5A

15 47

54 05

1550

5406

R R-t
RUO

54 Vo

155o

R R^
54
ID
1R RR
55
15

54 11
R^
O
54 i\c
Rd
^
5*1 110

CHBANKi IIP 4
JMP MNLNER
/JUMP MAINLINE ERROR
•1400
/DISPLAY (MINI MAGSPY )
/COPYRIGHT 1970
/DIGITAL EQUIPMENT CORPORATI ON ,M AYNARO ,M ASS
/MOVING WINDOW DISPLAY SUBROUTINE
/CUKSOR READ OUT
/CORE OR TAPE FILE
PMOOE

15 o4
1 c: '<

/B4

15 24
15 25

SK P

JMP MULT 10
/OR X10, BIT CLEAR
XSK I 7
JMP BMULT2
/JUMP BACK
JMP
MULT8E /ELSE TOO MANY CHAR, ERROR
IDA
/restore processed NUM To AC
MUlTHP

73 00
o<: 11

1600
0005
2200
1600
oooo

1600
00 0/

155 6

5 414

/ loks 1

15 57

54 15

1600

i5 0W

P *t 1 0

00 H

•1

^A
011
1K

5*1

/ K/ icJ *

1562

5420

15 63

54 21

1637
3637

1564
1565
1566

5422
5423

22 00

15 67

54 24
54 25

1600
3020
2200

1570
1571
1572
1573

5426
5427
5430
5431

1600
3643
1635
3641

/GET BOUNDS

CLA CLL
CDF 10
TAD 1 IDORA
DC A
IS2

KMNFLD
IDORA
lOORA
I
KMNAOR
I
IDORA
IDORA
I
KMXFLD
I
IDORA
I

TAD
OCA
ISZ
TAD
DCA
ISH
lAC
TAD I IDORA
KMXAOR
DCA
RAL
TAD
KMXFLD
KMXFLD
DCA
ISZ IDORA
TAD I IDORA
DCA YSHFT
ISZ IDORA
TAD I IDORA
OCA I KYSCAL
TAD I KMNFLD
DCA I K8UFHI

/DATA BUFFER
/15 BIT

/LOWER BOUND
/AT P+1, P+2

/MINFLDiMlNADR
/UPPER BOUND
/AT P+3. P*4
/ROORA USES
/MAX+1

/Y SHIFT

SCALE

/INITIALIZE
/WINDOW

W 7/ A*»

XO
54 Oc

1636

543 3

3 642

15/0

54 0**

c;a fxn

ID / /
16 00
16 01
1 A no
10 10 4i

5^ 05
54 00

/
5*t 0 7
r; ii "i

t\AA^
54 *tl

10!5n

5** 4c

fl!

54 40
KA
54 A*» A»

A mA
1000
1007
4 A4 m
1 010
loll
1612

S>447
K
A da
54S>0

10 10

54 51

1614
1615
1616

5452

A 11 f
/
16
10 <:0
1 A O i
10
<£l
1 A O O
10
<:<:
XO cO
1 A 9d
XO
XO
1 A 9A
XO cO
1

50 00
50 15
RA
50 loA
KA
7vl
50/4

50 75
57 7 4
c; 7 7 K
5 / /5
K
A^
50
44
il

0401

54 *»5

12 44

C
54^ ^4 A0

3275
1021
4262

3 A3 A

1022
4262
1023
4262

54 55
54 50A

10 24
12 44

545K 7/

4262

Du
54A AtX

00 00

54 53

t; ><

t,.

5*1 OX

K*7 A A

54 A5
OiJ
HA
54 A'<
00

000 0
A1
41
0141

KM NA On
KM Xr Lu
L/ ki V
KMXA uKri

K D Ur HI

It*
Kd Ur
Lun »
VC^ A
KYSC
AL $

i/D

P401
c
f\r*
OC
DoCu
1

/^ 1

D
n n C" *
RTT NCur

OS Cn 0*

JMP

1 A

54 77
/ /

1
>
X dA R

4 001

10 0(C
1 A <
10 Oo
1
A o*t
"X^
10

A4
HO
i d A A
!*
OO
1 ^ A 7
14 0/
14 /ly

:?
00R
1A

14 / i

7 7c: 7

A T
A
00
10
1 A 7 7
10 0/

A 70
14
/C
7*1
1 d
14 O

fAA eao
04 5^;
CAO A 1

0A
nio
1A

14/4
7
14/5
1
7A
14/0
14 7 7
14//

A '^1X
xoo
"X

'i;

10^1
10

d t
0**
0
1 A
t

0t0 ^4
171

OAC

1 (A oat

LDA
0

02 43
A

15 tfc

14 7T
77

R
1500

15 60
77 701

10A K O

•4

AR
10
?0T

1 0

(% tXA
04
15
1 5 105

15 00A
15 k) 7/
C?»

1 5 liy

1 0D3

1511

A 50
10

15 Ic
15 10

as; 7
/
105
1

i ^

ROL
ADA

1120
1524
4002
0 4/5
17 42
7 O
1/62
019
0c oi
^1

1661
1662
1663
1664
16 65

1515
1516
1517
1520
1521

0221
1520
3567
7476
0002

1666
1667
1670
1671
1672

5522
5520
5524
5525

73 00

/ADDRESS
/CONTENTS OF
/CURSR CORE LOC
/Y COORD OF
/CURSOR POINT
/RESTORE USER
/DATA FLD
/RTN
/DSC C(AC)
/SAVE VALUE
/CHAN 1
/VC FOR FULL
/SI2E IS «40
/•20 FOR HALF

/UPDATE VC

1
I

DIGIT
A TIME
/UPDATE
/LOW 3 BITS
/ONLY
/»2 AND REL
/TO GRID TAB
/I

/AT

DSC I 2
XSK I 1
XSK I 1
SRO I
3567
JMP OS CLOP
POP

/MAKE GAP
/BETWEEN CHARS
/OSC 4 CHARS ?
/NO CONT

PMODE
5662
4536
3651

TAB&1777
STC 2
ADD VCOORO
OSC 2

S 114
4
15

/FIELD

/FULL CHARS
/NO VC-40

77 70

0c 4 1

/DSC X,Y COORD

ROL 3
STA
TEMP
BCL I

a Aa
10
40

16 6 0

RDORA

/RTN TO SCR N

TEMP

15 00

A Ka
!>0
lo
1 A^i
1 0>1

A C5 n

Ub Cu OP 1

X5 0X

r" rv

110 ^0

10
A AA
*»0
10
4 A ^ 7
47
lO

\ /

0000

XO HP
4

ROL
ADM

I9(

^ ne

LJNC
LMODE
STC TEMP
STC XCORO
SFA
ROL I 5
LDA 1
•20
LZE

X OC /
1

/STARTING ADDR

SsA 1 K
-1

KHNAOR
TAD
K8UFL0
OCA
JMP
IDORA
MI NFLD
MINAOR
MAXFlD
MAXAOR
dUFHI
BUFLO
YSCAL
401
TAO P401
DCA VCOORO
TAO XCURHI
JMS OSCWD
TAD XCURLO
JMS DSCWD
TAO CORVAL
JMS DSCWD
TAD YCUR
TAD P401
JMS DSCWD

TABi

CLA CLL
JMP I OSCWD
4536
/60»0
3651

/RTN

2101
0177
4523
2151
412^

/61i

5546
5547
5550
5551

2101
0177
4523
2151
4122
2651
2414
0477
5172
0651
1506
4225
4443
6050
0000
7300
6214
1017
3260
6141

1552
1553
1554

0101
0341
0002

5555
5556

1244
7141

CLA CLL
ROF
TAD 2 rUOZ0
DCA RTNCDF
LINC
LMODE
CURSAM
SCR 1
POP
pmooe
TAD P401
CIA CLL

55 57

61 41

L I NC

1560

1563
1564
1565

5773
0100
0344
0061
6777
7600

17 41

15 66

0041

1742
1743
1744

1567
1570

00 00

0002

17 45

5571

62 11

1746
1747
1750
1751
1752
1753
1754
1755

55 72

4443
00 44
6141

PDP
PMODE
CDF 10
JMS 1 PWRITE
PARA0
LINC
LMODE
LDF /
clr
JMP 1

1673
1674
1675

55 26

1677

5527
5530
5531
5532

17 00

55 33

1701
1702
1703
1704
1705
1706
1707
1710
1711
1712
1713
1714
1715
1716
1717
1720
1721
1722
1723
1724
1725
1726
1727
1730
1731
1732
1733

5534
5535

16 76

1734
1735

55 36

5537
55 40

5541
5542
5543
5544
55 45

15 61

156 2

17 36

1737
1740

/6 v5i 0

26 51

2414

/6 4 » 4

04 77

5172
0651
1506
4225
4443
6050

RDORAf

CSAM

/65» 5

/66,6

/67,7

/SAVE USER OF

/CURSOR
/9 BITS COVERS
/SCOPE
/MAKE RANGE
/-I TO ^1000

LMODE
STC CURCNTal/7/
/WINDOW
w INSAn
WSAM
/75 CENTS W0RTH
SCR 4
SET 1 XCOnu
/OVERLAYEO IF <1000 PTS
«1000
XXCRD*
Jnr CUNT51///
/WRI TE TAPE UNIT 0
/THIS lo NOT UOKtTIt
ICC TklCCDT
INotKT
IS A* LIFE
/THIS TC
WTUN0»
SE T 1
1

5573
5574
1575
1576
1577

0647
00 11

6001

PM 00 E
PA GE

1756
17 57

56 00

00 02

UU IN

1760
1761

5601
5602

6211
3347

CDF0,

17 62
17 63

13 47

17 65
17 66

56 03
56 04
56 05
56 06
56 07

1767
1770
1771

5610
5611
5612

1764

/od$ 2

7710
7040
3341
43 04

1347
33 75
13 41

CDF
DCA
TAD
SPA
CMA
OCA
JMS
TAG
DCA
TAD

DBLLO
DBLLO
CLA

/PUT KNOB VAL
/IN DAC

/PROPAGATE SIGN
/BIT HI ORD

OBLHI
DADO
DBLLO

8UFL0
DBLHl

/UPDATE WIN ADDR

1772
1773
1774
1775
i776
1777
2000

5613

2001
2002
2003
2004

5614
5615
5616
5617
5620
5621
5622
5623
5624
5625
5626

20 05

2006
2007
2010
2011
2012
2013
20 14
20 15

2016

2017
2020
2021
2022

2023
2024
2025
2026
2027
20 30

2031
2032
2033

OCA BUFHI

33 74

/MUST CHK
/WINDOW SA
/WITH BOUNDS
/TO MAINTAIN
/BUFFER RING
4316
0001
0000
7700
52 73

5627

1274
3374
1275
3375
4304
1347
3375

56 30
56 31

3374

5632
5633
5634
5635
5636
5637
5640
5641
5642
5643

JHS BOUND
MINFLO*
MI NAOR

WRAP t

13 41

1375
3304
1052
3025
1374
33 16
4341
1704
1020
6141

SETFLO

NXTPNT ,

SNA CL A
JMP CHKH I
TAD MAXFLD
DC A BUFHI
TAD MAXADR
OCA BUFIO
JMS DADO
TAD D8LL0
OCA BUFIO
TAD OBIHI
OCA BUFHI
TAD 8UFL0
DC A BUFP TR
TAD NUMDIS
OCA COUNT
TAD BUFHI
DC A BOUND
JMS SETOF
TAD I BUFPTR
TAD YSHFT
UINC
LMODE
SCR 1
OIS I XCORD
POP
PMODE
IS2 CURCNT

16 44

0341
0161

2036

56 47

2373

2037
2040
2041

5650
5651

7610
5351
2376
5263
2377
5263
1216
3304
1215
3316
5266
2304

CURRTN, SKP CLA
JMP CURDIS
ISZ EN OLD
JMP OKEND
IS2 ENDHI
JMP OKEND
TAD MINAOR
OCA BUFPTR
TAD MINFLD
OCA BOUND
JMP NXTDF
ISZ BU FPTR
OKEND»

5267
2316
4341
2025
5241
5672
5445

JMP OKFLD
ISZ BOUND
JMS SETDF
ISH COUNT
JMP NXTPNT
JMP I
OSCUOC
JMS BOUND

20 34

00 02

2035

2042
2043
2044
2045
2046
2047
2050
2051
2052
2053
2054
2055
2056
2057
2060
2061
2062
2063
20 64
20 65

2066
2067
2070
St

{

1645
1646

YSCAL#

56 52

5653
5654
5655
5656
5657
5660
5661
5662
5663

/LOWER BOUND

/LOW END WRAP?
/NO

/RESET TO
/UPPER BOUND
/CORRECT WRAP
/CORRECTED
/WINDOW SA
/SET DISPLAY
/ARCS

/OFF SET

/SCALE FACTOR

/READY TO PIS
/CURSOR ?
/NO
/CHK FOR HI
/END WRAP

/RESET TO
/LOWER BOUND

/CHK FOR FIELD

/BOUNDARY
5664
5665
5666
5667
5670
5671

5672
56 73

5674
5675
5676
5677

4316
0002
0000
7710
5232

NXTDF,
OKFUDi

CHKHW
HA XF LD 1

MAXADR#
M70,

/ITS OK
/SET NXT FLD

/512 PNTS ?
/NO
/DSC READ OUT
/CHK UPR BOUND

2
0

SPA CLA
JMP SETFLO

/HI WRAP

2071
207 2

2073
2074

5700
5701
5702
5703

1215
3374
1216
5224

21 11

2112
2113
2114
2115
2116
2117
2120
2121
2122
2123
2124
2125
2126
2127
2130
2131
2132
2133
2134

MINFLO
BUFHI
MINADR
WRAP

/YES
/RESET TO
/LOWER BOUND

PRECISION ADO
08L10)*(BUFHI,BUFL0)

/D0U8L E
/ ( DBLH I

20 75
20 76

2077
2100
2101
2102
2103
2104
2105
2106
2107
2110

TAO
OCA
TAD
JMP

/RESUL T IN (OBLHI. OBlLO)
8UFL0)=IN|TIAL SCOPE ADDRESS

/ ( 8UFH

5704
57 05

5706
5707
5710
5711
5712
5713
5714
5715

0000
7300
1347
1375
3347
7004
1341

DADO

CIA
TAD
TAD
OCA
RAL
TAD
TAO
DCA
JMP

13 74

3341
5704

CLL

OBLLO
BUFLO
OBLLO
OBLHI
BUFHI
OBLHI
OAOD
1

/ADD -UPPER OH -LOWER BOUND
/TO (BUFHI ,BUrLO)
/b uUNU IS AT Pn,P*2 OF CALL

5716
5717
5720

0000
1716
7140

57 21
57 22

33 41

5723
5724
5725

17 16

57 30

5731

43 04

57 26

21 35

57 32

13 41

2136
2137
2140
2141
2142
2143
2144

5733
57 34

337 7
1347

5735

3376

57 36

13 41

5737
5740

2316
5716
0000
1316
7106
7004
1017
3347

21 45

57 41

2146
2147
2150
2151
2152
2153
2154

5742
5743
5744

21 55

57 51

2156
2157
2160
2161
2162
2163
2164
2165
2166
2167

5752
5753
5754

57 45

5746
5747
5750

57 55

5756
5757
5760
5761
5762
5763

TAD
r*

00 00

5741

TAO
CIA
SHL

30 21

1304
3022
1704
3023
1276
3347
1024
6141

oUUNU

/oc LUn
fT\M Ur
nr
/CO

ADr*
Mnij

CL L

BOUND

ISZ OBLHI

NOP
OCA
JMS
TAD
DCA
TAD
OCA

H1000I

OBLLO
DADO
OBLHI
ENDHI
OBLLO
ENOLO

TAD OBLHI
IS2 BO UNO
BOUND
JMP

/DAC HOLDS -NUM
/TO END OF BUF
/NO MATTER FOR
/LOW END WRAP
/TO CHK FOR
/UPON RTN

SETOr.

TAO BOUND
CLL RTL
RAL
TAO 2 FLOZ0
DCA t*l

DBLLO,

/SET 8 FIELD
/REL TO BOUND

JMP I SETDF
OCA YCUR
TAD BOUND
DCA XCURHI
TAD BUFPTR
DCA XCURLO
TAD I BUFPTR
DCA CORVAL
TAO M70
DCA OBLLO
TAD YCUR
CURLOP, LINC

CUROIS
1316

np
UL AA
Tea BOUND

2316

7041
7430
2341
7000
3347

5727

t5U Uix U

/OISP CURSOR
/SAVE X,Y
/COORDINATES

2170
2171
2172
2173
2174
2175
2176
2177
2200
2201
2202
2203
2204
2205
2206
2207
22 10

2211
2212
2213
2214
2213
2216
2217
2220

2221
2222
2223
2224
2225
2226
2227
22 30
22 31
22 32
22 33

2234
2235
2236
2237
2240
2241
2242
2243
2244
22 45

2246
2247
22 50
22 51
22 52

1764
1765

00 16

1766
1767

0141
0002

5770
5771
5772
5773

2347
5363
5250
0000

5774
5775
5776
5777

0001
0000
0000
0000

04 65

LMOOE
5
SNS
/CHANGE TO J MP FREE
NOP
/If FREE CURSOR MOTION DESIRED
OIS XCDRD
POP
PMODE
IS2 DBLLO
JMP CURLOP
JMP CURRTN
CURCNT, 0
/THESE 5 GUYS MAY BE PAGE 0
BUFH
1
0
BUFLO,
0
ENDLO.
0
ENDHI.
D8LH|=SETDF
BUFPTR=DADO
XC0RD=1
LHODE
/CURSOR KNOB
CURSAM=SAM 1
/WINDOW KNOB
WiNSAMsSAM 0
FRESAMaSAM 5
/FREE CURSOR
SCALE^SCR
SC12BU=SCR 3
/SCALE FACTOR
/12 BIT UNSIGNED
/Y OFFSET FOR
OF12BU=4000
/1 2 BIT UNSIGNED
/THESE 6 GUYS NUST BE PAGE 0
/THEY ARE ALL CONTIGUOUS AND DEFINED
/RELATIVE TO YSHFT BUT THIS IS NOT
/A REQUIREMENT
YSHFT=20
/THE 4 SCOPE READ OUT VALUES
XCURHIsYSHFT+1
XCURLOsXCURHI^l
CORVAL=XCURLO*1
YCUR=C0RVAL*1
C0UNT=YCUR*1
/AN EXAMPLE TO DISPLAY ALL OF FIELD 1
/12 BIT UNSIGNED DATA
/PMODE
/*S0ME WHERE
/INITIAL CALL
/JMS I KIOORA
I

/FLO

/0000

/ADDR
/FLD
/ADDR
/Y OFF SET
/Y SCALE FAC
/REFRESH CALL

/7777
/0Fi2BU
/SC12BU
/JMS

KRDORA

2253

/J HP

22 54

/K IDOR A # IDOR A

2255
2256

/KRDORA ,RDORA
CHAIN "LIFE B5"

00 00

*2 0

0001
0002
0003
0004
0005
0006

SEGMNT

/THIS BANK WILL CONTAIN
/ALL TEXT STATEMENTS FOR QANDA
/IN ADDITION TO THE CALLING
/SEQUENCE FOR QANOA, AND QANDA ITSELF*
/IN THE LAST TWO BLOCKS
5

•20

0007
00 10

0011
0012
0013
0014
0015
0016
0017
0020
0020
0020
0020
0020
0020
0020
0020

0020

7000

0021
0022
0023
0024

0000
0000

00 25

0026
0027
0030
0031
0032
0033
0034
0035

7251
0614
1106
0540
1123
4003
2205
0124
0504

0036

5643

0037
0040

4740
4347

0041

4043

0042
0043
0044
0045
0046
0047
0050
0051
0032

4740
4347
1411
0605
4025
1611
2440
7462

0053
0054
0055
0056
0057
0060

1617
2440
1411
0605
4024
0120

0061
0062

0556
4347

00 63

4043

70 53
06 06

LIT 6
JMP GTANSl

OSPl,

00 20

0021
0021
0022
0022
0022
0023
0023
0024
0024
0024
0024
0024
0024
0024
0024
0024

/DISPLAY UNTIL ANSWER GIVEN
OSCALL JMP OAINIT
/QANDA PTRS
TXTSTR 0
ANSWER, 0
JMP QARFSH

34 00

LIFE UNIT <2\Q

00 24

0025
0025
0025
0025
0025
0025
0025
0026
0026
0026
0027
0027
00 30

0030
0030
0030
0030
0030
0030
0030
0030
0030
0030
0030
0030
0030
0030
0031

TEXT QFLIFE IS CREATED,

DSP2,

0064
0065
0066
0067
0070
0071
0072
0073
0074
0075
0076
0077

TEXT QNOT LIFE TAPE,

47 40

4347
1116
1124
11 01

0100
0101

1411
3205
7740
3140
1722
4016
7240
7461
3400

0102

0606

INITIALIZE?

OR N!

<1\Q

0103
0104
0105
0106

2516
0324
1117
1623

0107

7243

0110
0111

4740
4347

Vtf

01 12
01 13

0034

0114

1710114

0116

4043
4761
5640
0705
1605

00 34

01 17
01 20

22 01
24 05

00 34
00 34
00 34

0121
0122

4016
0527
4023

0034

0124
0125
0126

2225

0127

1543

0130
0131
0132
0133
0134

4740
4347
6256
4020
2211

0135
0136

1624
4347

0137

4043
4763

0031
0031
0031
0031

TEXT QFFUNCTIONS:

00 31

0032
00 32
00 33

003 3

0033

01 15

10 iw

00 34

0034
0034
0035
0035
0036

0036
0036
0036
0036

01 23

20 05
03 24

00 36

0037
00 37

GENERATE NEW SPECTRUM

ERASE

CALL DIAL

0037
00 40
00 40
00 40
00 40

0040

01 40
01 41

56 40

0142
0143

0522
0123

0144

0543

0145
0146
0147
0150
0151
0152
0153

4740
4347
6456
4003
0114
1440
0411

0154
0155

0114
4347

0156

4043

0157
0160
0161
0162
0163
0164
0165

4740
4340
0310
1711
0305
7240
7461

00 40

0041
0041
0042
0042
0042
0042
0042
0042
00 42
00 42
00 43

0043
0043
0044
0044
0045
0045
0045
0045
0045
0045
0045

004^
004^
0046
0046
0046
0046
0046
0046
0046
0046
00 46

0166

3400

0167
0170
0171
0172
0173
0174
0175
0176
0177
0200

1116
2324
2225
1505
1624
4016
0115
0540
4074
6434

choice:

0046
0046
0047
0050
0050
0050
0050
0050

0201
0202
0203
0204
0205

00 50

02 06

1605
2740
1116
2324
2225
1505

0207
0210
0211
0212
0213
0214
0215
0216
0217
0220

1624
4301
0303
0520
2477
4031
4017
2240
1672
4074

0221

6143

0222

0050
0051
0051
0051
00 51

0051
0051
0051
0051
0051
0051
0051
0052
0052
0053
00 53

02 23

00 53
00 53

0224

4740
4347
2431

0054
0054
0054
0054
0054

0225
0226
0227
0230
0231
0232
0233

2005
4347
6140
1106
4030
4017
1614

0234
0235
0236
0237
0240
0241
0242

3143
4762
4011
0640
3040
0116
0440

0243
0244
0245

3143
4774
6134

0246
0247
0250
0251
0252

2516
1124
4016
0115
0540

00 54

0054
0054
0055
0055
0055
00 55

0055
0055
0055

DSPIPI,

TEXT QINSTRUMENT NAME

DSP1P2,

TEXT

ACCEPT?

<4\Q
/ABOVE ALSO USED IN DELETE

QISIEW

OR NJ

INSTRUMENT

TYPE

00 55

0056
0056
0056
0056
0057
0057
0057
0057
0057

<i\Q

ONLY

AND

<1\Q

0253

4074

0254

6443

0255
0256

4740
4347

0257

4043

0063
0063
0063
0063
0063
0063

0260
0261
0262
0263
0264
0265

00 63

02 66

0063
0063
0063

0267
0270
0271

4740
4347
2320
0503
2422
2515
4016
0115
0540
4074

0272
0273
0274

7043
4774
7034

0275
0276
0277
0300

2516
1124
4016
2515

03 01

02 05

0302
0303

2240
4074

0304

6243

0305
0306

4740
4347

0307
0310
0311
0312
0313
0314
0315
0316

4043
4723
2401
2224
4002
1417
0313
4040

0317
0320

7463
4347

0321

4043

0322
0323
0324
0325
0326
0327

4740
4347
2024
2340
1116
4023
2005
0324
2225
1540
4074
6434

0057
0057
0060
0060
0061
0061
0061
0062

0SP1P3, TEXT QUNIT NAME

00 62

SPECTRUM NAME

00 63

0064
0064
0064
0064
0065
0065
0065
0065
0065
0065
0065
0065
0066
0066
0067
0067
0067
0070
0070
0070
0070
0070
0070
0070
0070
0070
0071
0071

<8\Q

DSP1P4, TEXT QUNIT NUMBER

START BLOCK

00 71

0072
0072
0073
0073
0073
0073
0073
00 73
00 73

0073
0073
0073
0073
0073

03 30

0331
0332
0333
0334
0335

0073
0074
0074
00 74
00 74

0074
0074
00 74
00 74

0074
0074
0074
00 74

0074
0075
0075
0075
0076
0076
00 76

0076
0076
0076
0076
0077
0077
0077
0077
0077
0077
0077
0077
0100
0100
0101
0101
0101
0101
0101
0101
0101
0101
0102
0102
0103
0103
0103
0104
0104
0104
0104
0104
0104
0104
0104
0104
0104
0105
0105
0106
0106
0106
0106

PIS
0336
0337
0340
0341
0342
0343
0344
0345
0346
0347
0350
0351

0114
1417
2701
0214
0540
0522
2217
2240
2417
1405
2201
1603

0352
0353

0572
4347

0354
0355
0356
0357
0360
0361

4043
4761
5540
2005
2240
0305

0362
0363
0364
0365
0366
0367
0370

1624
4347
6255
4001
0223
1714
2524

0371

0543

0372
0373
0374
0375
0376
0377
0400

4740
4347
0310
1711
0305
7240
4074

0401

6143

04 02

0403

4740
4347

0404
0405
0406
0407
0410
0411
0412
0413
0414

4043
4730
4024
1714
0522
0116
0305
7240
4074

0415

6343

0416
0417
0420
0421

4740
4347
3140
2417

SPECTRUM

<4\Q

0SP2P1, TEXT QALLOWABLE ERROR TOLERANCE!

1- PER CENT

2- ABSOLUTE

CHOICEJ

TOLERANCE:

0106
0106
0106
0106
0106
0106
0106
0106
0107
0107
0107
0107
0107
0107
0107
0107
0107
0107
0107
0107
0110
0110
0110
0110
0111
0111
0111
0112
0112
0113
0113
0113
0113
0113
0113
0114
0114
0114
0115
0115
0115
0115
0115
0115
0115
0115
0115
0115
0115
0116
0116
0116
0117
0117
0117
0117
0117
0120
0120
0120
0121
0121
0122

0422
0423
0424
0425
0426
0427
04 30

1405
2201
1603
0572
4040
7463
3400
Y

0440
0441
0442
0443

4015
1123
2305
2340
0114
1417
2705
0472
4040
7462
3400

0444
0445
0446

0640
2022
1116

0447
0450

2472
4347

0451

4043

0452
0453
0454
0455
0456

4740
4347
6156
4011
1604

0457
0460

0530
4347

0461
0462
0463
0464
0465
0466
0467
0470
0471
0472

4043
4762
5640
1411
0222
0122
3140
2320

0473
0474

2515
4347

0475
0476
0477
0500

4043
4763
5640
0530

0501
0502

1124
4347

0503

4043

0504

4740

0431
0432
0433
0434
04 35

0436
04 37

tolerance:

DSP2P2, TEXT

<3\Q

MISSES ALLOWED:

DSP3P1, TEXT QF PRINT:

INDEX

LIBRARY SPECTRUM

EXIT

05 03

2422

<2\Q

0122
0122
0123
0123
0123
0123
0123
0123
0123
0123
0124
0124
0124
0125
0125
0125
0126
0126
0127
0127
0127
0127
0127
0127
0127
0127
0127
0127
0127
0127
0127
0130
0130
0130
0131
0131
0132
0132
0132
0132
0132
0132
0132
0132
0132
0132
0132

0505

4347

0506
0507
0510
0511
0512
0513
0514

4043
4703
1017
1103
0572
7461
3400

0515
0516

0640
2431

0517
0520

2005
4347

0521

4043

0522
0523
0524
0525
0526
0527
0530
0531
0532
0533
0534
0535

4740
4347
1116
2324
2225
1505
1624
4016
0115
0572
4040
4040

0536
0537

7464
4347

0540

4043

0541
0542
0543
0544
0545
0546
0547
0550
0551

4740
4347
2320
0503
2422
2515
4016
0115

05 52

4040
4040

CH0!CE::<1\Q

0SP3P2, TEXT QF TYPE

INSTRUMENT NAME!

0553

05 72

SPECTRUM name:

01 32

0133
0133

0133
0133
0133
0134
0135
0135
0135
0135
0136
0136
0137
0137
0137

0554
0555
0556
0557

74 70

4347

7470
3400
<8\Q
/DSP 4.2 IS DSP 1.

0560
0561
0562

0605
2201
2305

0563

7243

05 64

4740
4347

DSP4P1, TEXT QFERASE:

0565

0573
0574
0575
0576

4043
4761
5640
0516
2411
2205
4014
1102
2201

0577
0600

2231
4347

01 41

06 01

62 56

0141
0141
0141
0141
0141
0141
0141
0141
0141
0142
0142
0142
0142
0142
0142
0142
0142
0142
0142
0142
0143
0143
0143
0143
0143
0143
0144
0144
0145
0145
0145
0146
0146
0146
0146
0146
0146
0146
0147
0147
0147
0147
0147
0147
0147
0147
0147
0147
0147
0147

0602

4 005

06 03

16 24

0i40
0140
0140
0140
0140
0140
0140
0140
0140

05 66

0567
0570
0571
05 72

01 40

0141
0141

0604

1122

06 05

05 40

0606
0607
0610
0611

1116
2324
2225

0612
0613
0614
0615
0616
0617
0620
0621
06 22

0623
0624
0625
0626
0627

ENTIRE LIBRARY

ENTIRE INSTRUMENT

SINGLE SPECTRUM

EXIT

15 05

1624
4347
63 56

4023
1116
0714
0540
2320
0503
2422

06 30

2515
4347
6456
4005
3011

0631

2443

0632
0633

4740
4347

0634
0635
0636
0637
0640
0641

4043
4703
1017
1103
0574
6134

0642
0643
0644
0645
0646
0647
0650
0651
0652
0653
0654
0655

0640
2320
0503

CH0ICE<1\Q

24 22

2515
4016
0115
0572
4040
4040
7464
3400

0147
0150
0151

0656
0657

0151

06 60

4040
0522
2217

0661
0662

2240
4347

0663
0664
0665
0666
0667
0670
0671
0672
0673
0674
0675
0676
0677
0700
0701
0702
0703
0704

3131
4043
4043
2022
0523
2340
1411
1605
4006
0505
0454
4024
2231
4001
0701
1116
7461
3400

ERRCXX, 3131
4043
4043

0705
0706
0707
0710
0711
0712

4040
4040
2516
1316
1727
1672

TYOl,

TEXT QPRESS LINE FEED,
4040
4040

0713
0714
0715
0716
0717
0720
0721

0000
4040
4040
1411
0222
0122
3172

TY03,

0000
4040
4040

0722
0723
0724
0725
0726
0727
0730

0000
4040
4040
4040
2320
0503
2422
2515

TY 04 ,

TEXT QLI8RARYJ
0000
4040
4040
4040

0151
0152
0152
0152
0153
0154
0155
0156
0156
0156
0156
0156
0156
0156
0156
0156
0156
0156
0156
0156
0156
0156
0156
01 57

0160
0161
0161
0161
0161
0161
0162
0163
0164
0165
0165
0165
0165
0165
0166
0167
0170
0171
0172
0172
0172
0172
0172
0173
0174
0175
0176
0177
0200
0201
0201
0201
0201
0201
0202

DSP4P3. TEXT QT SPECTRUM NAME:
DSPERB, 4040
DSPERA,

<4\Q

TEXT QERROR

TEXT

07 31

4040
4040
4040
4040

0732
0733
0734
0735
0736
0737
0740
0741
0742
0743

4040
2013
5640
2024
2340

0744

4040

40 40

/XX

OUNKN OWNtQ

TEXT QSPECTRUMQ
4040
4040
4040
4040
4040
4040

TEXT QPK, PTS Q
4040

TRY AGAIN<1\Q

0203
0204
0204
0204
0204
0205
0206
0207
0210
0211
0212
0213
0214
0214
0214
0214
0214
0214
0214
0214
0214
0214
0214
0214
0214
0215
0216
0217
0220
0221
0222
0223
0224
0225
02 26

0227
0230
0231
0232
0233
0234
0235
02 36

0237
0240
02 41

0242
0243
3244
0245
0246
0247
0250
0251
0252
0253
0254
0255
0256
0257
0260
02 61

0262

0745
0746
0747
0750

4040
1511
2323
0523

0751
0752
0753
0754
0755
0756
0757
0760
0761
0762
0763
0764
0765
0766
0767
0770
0771
0772
0773

0000
4040
4040
4040

0774

0000

TY02A,

/SET TO 0

4040

UNKNOWN LINE

TEXT QMISSESQ
0000
4040
4040
4040
4040
4040
4040

TY05,

40 40

4040
4040
1116
0405
3040
1706
4014
1102
2201
2231
4023
2005
0324
2201

TEXT QINOEX OF LIBRARY SPECTRAQ

/QANDA SUBROUTINE FOR THE
/P DP «1 2

«100 0
/

/TO HERE TO INITIALI2E THE ROUTINE
/

1000
1001
1002
1003
1004
1005
1006
1007
1010
1011
1012
1013
1014
1015
1016
1017
1020

1020
0002
2000

QAINIT, LDA
ADO

10 60
00 00
32 00

ST A

1021
1022
1023
1024
1025
1026
1027
1030
1031
1032
1033
1034

0041
0004
7270
0016
1324
7231
7035
7050
1460
0043
7026
7021

QA8i

QACA

ADO
STC
LDA
ADD
STC
LDA
STC
STC
SET

4001
1001
3264
5057
10 21

5052
4006
0043
1052
0044
1057

/SAVE JMP RETURN

/JMP

QAL+3
1
1

QAQ+1
QAG-3
I

/PTR TO FIRST PARAM
/GET FIRST PARAM
/PTR TO HALFWORD-1

QARFSH-1
6
3

/XR6 USED AS A SWITCH.
/XR3 TO PTR TO ANSWERS

QARFSH^l
SET 4
QAG =;3

/XR4 TO PTR TO QUESTIONS

/TO HERE
SET

FIRST TIME
t

QAD,

JMP QAT
NOP
LDH I 4
JMP QAO
JMP .6
JMP QAE
SAE I

/F
/H,

BUMP PTR IF H OR

/74
/34
/CR?

/NO
JMP QAD
JMP QACA+4 /EXAMINE NEXT CHAR

/INITIALIZE ANSWER 8UFR

0263

1035

02 64
02 65
02 66

10 36
10 37

0271
0272
0273

1040
1041
1042
1043
1044
1045

02 74

10 46

0275

1047

0267
02 70

1343
1324

ST H 3

LOH
ADA
*60
COM
SIC
STH

11 20

7717
0017
4006
1363
0226
7043
1323
7026

XS K

6
I

3
6

jmp .»2
LOH I 3
JMP QAD

10 50
10 51

1343
00 64

STH
SET

1052

0000

0 30 3

1 0 53

1 02 0

Q ARFSH #

0304
0305

10 54
10 55
10 56

0277

277

51 13
00 63

STC QAH-l
SET I 3

0000
0045
1052
0041
0003
7270
7074
1323
1020
1560
5103
3512
7101
1323
1020
1620
5103
3513
5245
0024
1620
0200

0327
0330
0331
0332
0333
0334
0335

1057
1060
1061
1062
1063
1064
1065
1066
1067
1070
1071
1072
1073
1074
1075
1076
1077
1100
1101
1102
1103
1104
1105

03 36

11 06

0337
0340
0341
0342
0343

1107
1110
1111
1112
1113

03 44
03 45

11 14

13 23

1115

7232
7301
7136
1420
4300
7062
7242
7114
7242
1520

03 00
03 01

QA El

0310
0311
0312
0313
0314
0315
0316
03 17

0320
0321
0322
0323
03 24

0325
03 26

0346
0347
03 50

0351
0352
0353
0354
0355
0356
0357
0360
0361

/BUMP PTR TO ANSWERS
IS

INITIATED

3
I

/XR4 TO PTR TO LA*^T TYPED THAR

IW ANSUFR BUFR

-R F-TNTER HFRF TO RFFR FS H/INITTAl Y POSITION

0302

03 06
03 07

/ANSWER BUFR

02 76

0277

/74 Tn ANSWERS
/NEXT HALFWORD

/•

11 16

1117
1120
1121
1122
1123
1124
1125
1126
1127
1130

SET

/XR3 ID PTR TO HALFWORD

•>

DIJ FS T I ON

»1

/XR5 TO PTR TD LAST DISPiAYFD CHAR IN ANSWFR RIJFR

QARFSH«1
QAGi

SET

QAM f

00 04
00 61
01 00
10 20

7737
1160
0000

0000
7516

LDA

JMP
JMP
LOH
LDA
8CL
STC
ADD
JMP
LDH
LDA
BSE
STC
ADD
STC
MSG
BSE
200
MSC
SET
100
LDA
^40
ADM

QAT
,*7
I

/F
/N
RUMP PTR
/NIFITHFR
AS*^UMF HALF SI?r
.

QAM + 2
QAW
QAM
I

/SET INSTR TO CLEAR FF FOR HALF SI2E
/NOP IN AC

/BUMP PTR

I
I

QAM+2
QAW+1
QAP*3
I

4
I

/SET INSTR TO SET FF FOR FULL
/ADD 9U IN AC

SI 2E

/EAD CONTROL REGISTER
/THIS INSTR CHANGES. EITHER BSE

OR 8CL &

/AC TO CONTROL REGISTER
/XRl TO INITIAL X POSITION

COORDINATE MULTIPLE

COORDINATE

QAH

3
LDH
JMP QAO^l
JMP QA2
JMP QA J
SHO
4300
JMP QAG
JMP GAP
JMP OAH
JMP GAP
/SWITCH
SRC I
I

/74 BUMP PTR TO NEXT CHAR,
/34
/NEI THER

PUT 40

MOVE X AND Y COORDINATE
/ISPLAY CHAR
/PICK UP NEXT CHAR
/TO HERE IF DISPLAYING ANSWER BUFR
TD DISPLAY CURSOR* EITHER 0000 OR 7777
/IFXR4SXR5, THEN SWITCH=7777
/CR,

JMP OAF

/QUESTION MODE

0362
0363
0364
0365
0366
0367
03 70
03 71

0372

1131
1132

1133
1134
1135
1136
1137
1140

1325
7232
7114
7114
7125
7521
7004
0062

03 73

0374

1143

03 75

04 26

1144
1145
1146
1147
1150
1151
1152
1153
1154
1155
1156
1157
1160
1161
1162
1163
1164
1165
1166
1167
1170
1171
1172
1173
1174
1175

04 27

11 76

72 32

0430
0431
0432

1177
1200
1201

7053
1775
1302

04 33

12 02

14 60

0434

0436
0437
0440
0441
0442

1203
1204
1205
1206
1207
1210
1211

04 43

12 12

0444
0445
0446
0447
0450

1213

0037
7263
0045
0004
0043
0004
7213
1325
1323
7232
0016
0011
1345
0450
7212
7263

04 04

0405
0406
0407
0410
0411
0412
0413
0414
0415
04 16

0417
0420
0421
0422
04 23

0424
0425

04 35

0451

0452
0453
0454
0455
0456
0457
0460

1214
1215
1216
1217
1220
1221
1222
1223
12 24

1225
1226

QAJi

04 70

1141
1142

0376
0377
0400
0401
0402
0403

QAli

5
LDH
JMP QA0*1
/74
JMP QAH
/34
JMP QAH
JMP QAI-4
/NEITHER, DISPLAY IT
/To HERE IF DISPLAYED BUFFER
JMP GETKBO
A2E I
JMP QAB /NOTHING TYPED
EXIT
2
SET
DAY
SHD 2
/LF?
JMP OAK* 4
/YES. EXIT
2
/CR?
SHD
JMP QAN
XSK 6
/IS THERE AN ANSWER FIELD?
JMP QARFSH
2
/<?
SHD
JMP QAL
/>?
SHD I 2
JMP QAK
/ALT?
SHD I 2
JMP QACA /REINITIALIZE
/BACK SLASH?
SHD 1 2
/IGNORE
JMP QARFSH
/RU80UT?
SHD I 2
/IGNORE
JMP QAL
/TAB?
SHD I 2
/I GN ORE
JMP QA RF SH
/ACCEPTABLE CHAR
SIC *5
/TEST NEXT CHAR
JMP QAO
/74 BACK PTR UP BY 1
JMP QAQ
/34
JMP QAQ
/OK, STORE IT
LOA I
I

14 12

1402
7311
14 22

7223
0206
7053
1422
7175
1422
7305
1422
7015
1422
7053
1422
7175
1422
7053
5172
7231
7263
7263
1020

•

00 00

1344

STH 4
JMP QA RFSH
LDH 4
JMP QAO+1
JMP QARFSH
»6002
LDH 2
SAE I

70 53

1304

0206
7311
7231
7053

QAL,

/REDISPLAY
/TO HERE IF RUBBOUT OR

/74 IGNORE

/TEST THE CHAR
/R UB OUT?

JMP QAQ
SET 5

/NO.

BACK PTR UP BY

SET 3
4

JMP
LDH
LDH
JMP
NOP
CLR
STH
AHE
JMP
JMP
QANi

,*2
5
3
I
I

/BUMP PTR
/GET NEXT CHAR

QAO+1
/IF 74 OR 34» REPLACE CURRENT CHAR WITH
5

QAQ

/WAS IT 74 OR 34?
/NO, CONTINUE
/BACK PTR UP BY 1
/TO HERE IF CR

XSK 6
JMP QAK*4
JMP QAO

/EXIT ROUTINE IF NO ANSWER FIELD

JMP QARFSH

/74 MOVE PTR TO NEXT QUESTION FIELD

0461
0462
0463
0464

1227
1230

7051
7225

1231
1232

1324
1420

12 33

74 00

0467
0470
0471

1234

JMP 0
SAE I

1236

6000
1460
0034

04 72

12 37

02 20

0473
0474

1240
1241

0220

XSK I 0
0
XSK
JMP 0

0476
0477

1242
1243

0241
3430

05 00
05 01

12 44
12 45

40 02

0502
0503

1246
1247
1250
1251
1252
1253

04 65
04 66

12 35

JMP QA£*1
JHP QAN*2
QAO#

LOH
SHO

0506
0507
0510
0511
0512
0513
0514
0515
0516
0517
0520
0521
0522
0523
0524
0525
0526
0527
0530
0531
0532
0533

60 00

3506
3506
2001
40 01

1255
1256
1257
1260

2005
0017
2004
0450
0011
5127
3113
1742

12 61

17 62

1262
1263
1264
1265
1266

60 00

1020
3777
1140
0004

12 67

70 53

1270
1271
1272
1273
1274
1275
1276

1321
1420
0600

12 54

ROL 1
ADD QAX+4
STC 2
inn Dili
ADD QA U
AO D

STC
ADD
COM
ADD
AHE

/Annsrss of pmar to nisp tki ^rp
/TW!<^ fwc^TR rwAMf^r^
rTTwro op no Ann on
/Ann

Tn yRi

tn t^PArr

ruAO

5
4

clR

QAQf

ST C QA f w2
ADD QANssl

/S W I Tr Ws 0 OR 7 77 7
/Y COORDINATE IN AC

DSC
DSC
JMP

/n TSPI AY CHAR

2
I

/BACK UP PTR BY

LD A
c4 00 0
I

ADM
4

JMP QARFSH

/RFD I SPLAY

LDH I
SHD I
0600
JMP 0
SAE

/S\R

QATi

60 00

12 77

0535
0536
0537
0540
0541
0542
0543

1300
1301
1302
1303
1304

1323
1020
0040
7125

QA 2#

1305
1306

1324
04 70

OAK,

13 07

72 63

05 47

1310

7424

0550
0551
0552
0553
0554
0555

1311
1312
1313
1314
1315

1020
0001
1140
1004
7004

1316

0101

/
/

IF
*2 H

NEITHER

XSK
XSK
JMP

0
/

tOH
LOA

JMP OA

/TO HERE

LDH

LOA

JMP QAQ
JMP OAX

/IS CURRENT CHAR BLANK?
/YES. IGNORE

/MOVE DOT FORWARD
/TO HERE TO EXIT WITH SKIP

ADM
QAB
JMP QAB

05 56

0557

/S\R TO niSP
INir THAR !W Af
/MULT RY 2 FOR
WD FX TO aOORFSS OF TaRJF
1

QAP»

05 34

0545
0546

+1 74 BEGIN FIELD
+2 3 4 END BUFR
+3 NEITHER 74 NOR 34

/
/
/

1460
0010
0220
02 20
6000

05 44

riRm Ql!F<?Tfnw

/S\R

04 75

05 04
05 05

MOVP PTR TO

/34 FND or BUFR.

QAV,

0101

/CHARACTER PATTERNS
/KBD 0» ILLEGAL, USED AS MARKER

05 60
> OX

0362
W

O vJ

03 64
Itf-'

10? oo

1317
1320
1321
1322

0101
4477
7744
5177

4477
7744
5177

13 23
13 24
13 21?

26 51

01 01

/I !A

/2 !B

4136

22 41

4177
3641
4577
4145

/4 D

44 77

/6 :r

4044
4136

/7 JG

tP^O /

Xoco

4177

OIR 701

IOC/

/3 tC
t

07 71
/ X

"^Cl

36 41
45 77

DIR 79

1 oox

41
•t X •» V

as 7*^
74

Xo oO

44 77
40 44

05 76
Oi*5 77

13 34
13 35
13 36

26 45
10 77

1337

7710

1077
7710

/1 0

0600
06 01

13 40
13 41

77 41
00 41

77 41

/lis I

00 41

soy / 3

0602
0603
06 04

0605
0606
0607
06X0
0611
0612
0613
0614
0615
0616
06 17

0620
06 21

0622
0623
0624
06 25

0626
06 27

0630
0631
0632
0634
0635
0636
0637
06 40

0641
0642
0643
0644
0645
0646
0647
0650
0651
0652
0653
0654
0655
0656

1342
1343
1344
1345
1346
1347
1350
1351
1352
1353
1354
1355
1356
1357
1360
1361
1362
13 63

1364
1365
1366
1367
1370
1371
1372
1373
1374

4136

26 45
H

4142

40 76

1077
4324
0177
0301

/13!K

30 77

/15S M

7730

7730
3077

/16: N

30 77
77 06

/12 IJ

/14IL

77 06

4177
7741
4477
3044
4276
0376
4477
3146
5121
4651

/17J 0
/20: P

/21J Q
/22: R
/23J S

40 40

/24t T

4077
0177
7701

/25 JU

01 76

/261V

1376
1377
1400
1401
1402
1403
1404
1405

4077
0177
7701
0176
7402
0677
7701
1463
6314
0770
7007
4543
6151
4177
0000

1406
1407
1410
1411

0000
0000
0000
7741

1412
1413

4543
7476

13 75

7402
0677
7701
1463
6314
0770
7007
4543
6151
4177

/27I W

/30: X
/31

/32: Z

/33j/

00 00

0000
7741
QAY,

4543
7476

/34IBA
/NOT U
/NOT U
/35l]
/COOES
/LF,CR
/<!>

0657

1414

06 60

14 15

0661
0662
0663
0664

1416
1417
1420
1421
1422
1423

06 65
06 66

3634

3634
3747
0000
0000
7500
0000
7000

/ALT, BACKSLASH
/RUB OUT, TAB
/40J SPACE

37 47

0000
0000
7500
0000

/4i:x»

/42!"

70 00
00 70

00 70

mei
0670
0671
0672
06 73
06 74
06 75

/CODES 43: .441, 45:LF NOT
1424
1425
1426
1427

7232
7263
7263
7053

QAX,

JMP
JMP
JMP
JMP

QAO^l
QAQ
QAQ
QARFSH

14 30

13 16

OA V

1431
1432
1433

0000
5166
0526

/NOT USED

5166
0526

/46;

14 34

1435

0000
0000

0
0

14 36

36 00

0041
4100
0036
2050
0050
0404
0437
0500
0006

36 00
00 41

/50;

/51I )

0404
0001
0000
0601
4030
4536
3651
2101
0177
4523
2151
4122
2651
2414
0477
5172
0651
1506
4225
4443
6050
5126
2651
5122
3651

4100
0036
2050
0050
0404
0437
0500
0006
0404
0404
0001
0000
0601
4030
4536
3651
2101
0177
4523
2151
4122
2651
2414
0477
5172
0651

0744
0745
0746

1437
1440
1441
1442
1443
1444
1445
1446
1447
1450
1451
1452
1453
1454
1455
1456
1457
1460
1461
1462
1463
1464
1465
1466
1467
1470
1471
1472
1473
1474
1475
1476
1477
1500
1501

07 47

15 02

22 00

/72t

0750
0751
0752
0753
0754
0755

1503
1504
1505

0000
4601
0000

/73:

1506
1507

0002
0000

0676
0677
0700
0701
0702
07 03
07 04

07 05

0706
07 07

0710
0711
0712
0713
0714
0715
0716
0717
0720
0721
0722
0723
0724
0725
0726
0727
0730
0731
0732
0733
0734
07 35

0736
07 37

0740
0741
0742
07 43

04 04

/CODE 47;TAB NOT DISPLAYED
/NOT USED
/NOT USED

QAU,

(

/52J*
/53I +
/54J ,

/55:/56S

/57l\
/60:0
/61 11

/62J 2

/63t3
/64{ 4

/65i5
/66S 6

15 06

4225
4443
6050
5126
2651
5122
3651

/67J7

/70:8
/71S9
:

/CODE 74KN0T DISPLAYED
/CONST ANT
/NOT JSED

1510
1511

1212
1212

0761
0762

15 12
15 13

07 63

1514

0016
3506
4020

0*t

15 15

20 55

15 16

1760

0756
07 57
07 60

HJ f

/CODE

0765
07 66

OKI fOV

017 70!

71 ^1

01771

OSC 1
6000
JMP QAl

QAF,

/END Q+A

0177 7

017 74

Oil ICi

0 / /!>
%} f / O

Oil 11

/KEYBOARD INPUT ROUT INE

1000

10 01

QAKRB= 60 36
QATSF= 6041
QA TLS = 6046

1002
1003
1004
1005
1006

1521
1522

1000
0000

10 07

15 23

1010
1011

1524
1525
1526
1527
1530
1531
1532

56 47
20 01

10 15

1016
1017
1020
1021
1022

1556
1557

1120
7440

10 46

15 60

04 51

1047
1050
1051
1052
1053
1054

1561

7575

1562
1563
1564
1565

1461
7572
1020
0334

1041
1042
1043
1044
1045

/WAS SOMETHING TYPED?
/NOI EXIT

108

0061
1660
0062
7770
1000
1536
1461
7554
7641
0222
7551

10 37
1 0 40

QAEXIT*5
QAEXlT+1

QAKR8
QATY,

0451
7604

6036
1060
0000
1120

STA

/SAVE RETURN
/SAVE XRS 1 AND

QAEXIT*3

05 00

1543
1544
1545
1546
1547
1550
1551
1552
15 53
1554
1555

1035
1036

QAEXIT+6
1

15 33

1027

10 34

LOA

1534
1535
1536

75 40

1033

STC
ADO
STC
ADD
STC
STC
KST
JMP

0415
6000

1540
1541
1542

10 32

lOT KBD

56 42

1024

1031

GETKBD

5644
2002
5646

15 37

10 30

/POP-'8
/TSF
/TLS

10 23
10 25

NOT DISPLAYED

/77I?

40 20
20 55

017 79

1014

76 :>

NOP
ADD QAU

QAWi

7 A7

(31

/75! =

1212
1212

/GET TTY CHAR, CLEAR FLAG
/SAVE IT

ADA I
.237
APO
JMP OACNTR

/BETWEEN 200 AND 237?
/CONTROL CHAR. CHECK FOR

SET

/NO

/
1

OACHAR-l
SET

-7

LOA
QATY
1
SAE
JMP .*2
/ILLEGAL CHAR. OONT ECHO
JMP QAEXIT
XSK I 2 /CHECKED THEM ALL?
JMP •4
I

ADA

^337
APO
JMP QALEGL

/BETWEEN 240 AND 337?
/YES, LEGAL CHAR

SAE I 1
JMP .+7
LOA
334
I

/NO,

CHECK FURTHER.

/RUB OUT

i055
1056
1057
10 60

1061
1062
1063
1064
1065
1066
10 67

1070
1071
1072
1073
1074
1075
1076
1077
1100
1101

1102
1103
1104
1105
1106
1107
1110
1111
1112
1113
1114
1115
1116
1117
1120
1121
1122
1123
1124
1125
1126
1127
1130
1131
1132
1133
1134

1135
1136
1137

1566
1567
1570
1571

7650
1020
0037
7643

1572
1573

1461
7641

1574

7643

JMP QATPE
LOA

/ECHO BACKSLASH

JMP QAEXIT+2

SAE
1
JMP OAEXIT

/LEGAL EXIT

JMP QAEXIT+2

/ILLEGAL
/ALT
/EXIT, DONT ECHO

1575
1576
1577
1600
1601
1602
1603

1000
1536
7650
3536
1560
7700
7643

1604
1605
1606
1607
1610
1611
1612
1613
1614
1615
1616
1617
1620

1460
7755
7621
1020
0043
5642
1020
0215
7650
1020
0212
7650

1621
1622
1623
1624

1460
7752
7627
10 20

SAE
7752
JMP •4
LOA I

1625

0045

16 26

7611
1460
7762
0456

JMP QACNTR*5
SAE I
7762
SKP
JMP QAA0
SAE I
7751
JMP QAEXIT
LDA I

QALEGL*

LOA
OA TV

JMP QATPE
/ECHO CHAR
ADD QATY
BCL I
/STRIP IT TO 6-BIT
7700
JMP QAEXIT*2
/TO HERE IF CONTROL CHAR
QACNTR
SAE
7755
JMP QACKLF
LOA I
/CR
I

STC QAEXIT+l
LD A

215
JMP QATPE
LOA
212
JMP QATPE
JMP OAEXIT
I

76 41
/

1627
1630
1631
16 32
16 33

1634
1635
1636
1637
1640

QACKLF

76 72

1460
7751
7641
1020
0047

/LF

/CNTRL R SEEN

/ILLEGAL

JMP OAEXIT+2

76 43

/EXIT, DONT ECHO

1641
1642

1020
0000

1140
1141
1142
1143
1144
1145
1146
1147
1150
1151

16 50

05 00

1651
1652
1653

6046

11 52

16 54

1153

1655

QAEXIT, LDA

/GET

6 •BIT

ASCII

16 43

00 61

SET

1644
1645
1646

0000
0062
0000

16 47

60 00

SET

/RESTORE XRS

JMP
/S\R TO PRINT C(AC)
QATPE,
10 B

10 00

QATLS
LDA

0000

56 60

STC

05 00

lOB

/EXIR S\R GETKBD

/PDP-8 lOT TLS
+ 4

/S AVE

RE TU RN

/WAIT FOR FLAG
QATSF
JMP ,^2
/EXIT
JMP

1154
1155

1656
16 57

6041
7655

1156

1660

60 00

1661

0243

QACHAR*

16 62

02 44

24 4

1663
1664
1665

0245
0247
0300

16 66
16 67
16 70

03 37

1671

0036

1672

0604

16 73

74 24

1674
1675
1676
1677

0623
2522
0540
7740
7461
3400

1157
1160
1161
1162
1163
1164
1165
1166
1167
1170
1171
1172
1173
1174
1174
1174
1174
1174
1174
1174

1700
1701

03 36

/HASH
/DOLLAR SIGN
/PER CENT
245
/APOSTROPHE
247
300
/AT SIGN
33 6
/UP ARROW
337
/BACK ARROW
243

40
36

00 40

/RUB OUT
/ALT

/END OF S\R GETKBD
QAA0,
L F 4
JMP QAAl
I

DSPNEW.

TEXT QFSURE

/CNTRL

<1\Q

EXIT

NO ERRORS

AC VA L2

4t0O 0

aosblk
ADS8MP

0 51 5
0t>03

AD SS P

0 467

AOSSPA 0617
ADSSPX 0 62 6
ADSSPl
kQSSP2 0557
AnSSP3 05 7 2
ADSSP4 0567
A0SSP5 0565
ADSTMP 0465
AO VRT
AD VI 6

4 654
4 63 5

ADV16A 4644
ADV16B 4 651
ANSWER 2022
BASL IN 0 02 6
5310
bmult
BMULTR 5357
BMUL tS 5 355
BMUL Tl 5 307
BMUL T2 53 2 0
BOUND 5 71 6

5774
5775
5704
0045
BUMPRl 0046
8XRET 4041
1423
Bl
1426
82
1432
B3
B4 INTB 1056
B6CALL 4020

BUFHI
BUFLO
BUFPTR
8UMPR

B6rRB0 0415?
CDF0
5601
CHBANK 5373
5 67 3
CHKH
CKTP
0116
0127
CKTPB
CKTPIN 0107
CLLORA 4075
CLRCRV 1124
CIRMOR 1133
1136
CURT
COMMIS 0036
COMPR 4601
COMPRT 4612
COMPRl 4604
C0HPR2 4613
5600
CONT
CORVAL 0023
COUNT 0 02 5
I

4 04 3

CS AM

5552
5773

CURCNT
CUROIS
CURLOP
CURRTN
CURSAM
CI

5751
5763
5650
0101
1436
5704
5741

DADO
DBLHl
D8LL0 5747
OECMt 4430
OECMIA 4446
DECHLB 4455
OECMLC 446 6
DECMRM 4414
OECMRT 4463
0415
DELSP
DELSPA 0425
DELSPC 0432
OELSRT 0424
DIAL77 0040
DORAGO 1106
DORART 1104
DQRGOl 1137
00RG03 1167
D0RG04 1206
D0RG05 1222
00RG06 1230
D0RG07 1233
00RG08 1221
DOSUB 0053
DREND 4071
DRSTRT 4066
DSCALL 2020
OSCLOC 5445
OSCUOP 5476
DSCWD 5462
DSPERA 2657
DSPERB 2656
DSPNEW 3674
2026
DSPl
DSPIPI 2167
DSP1P2 2201

DSP1P3
0SP1P4
0SP2
0SP2P1
0SP2P2
DSP3
DSP3P1
0SP3P2
DSP4P1
0SP4P3
ENOHI
ENOLO
ERAS!
ERNNU
ERNNX
ERRCXX
ERRNW0
ERRNWl
ERRNW9
ERRl
ERR2
ERR2A
ERR3
ERTABl
ER0
ER0A
ER08
ER0C

2246
2275
2053
2336
2431
2102
2444
2515
2560
2642
5777
5776
0106
0731
0726

1351
1331
1342
1353

2 66 3

1501
1504
1514
1447
1455
1462
1463
1426
0242
024 7

0255
0172
0164
ERl
0173
ERIA
0226
ERIB
0240
ERIC
0261
ER2
0263
ER2A
ER2RTN 0304
ER2SRT 0350
ER2S1 0307
ER2S2 0317
ER2S3 0330
150 3
El
FLAGWO 0051
rLO20 001 7
PNOAO 0516
FNOADl 0525
FNDAD2 0527
rNDAD3 0544
FNDRT 5171
FN0SP8 5155
FNDSPC 5201
FRESAM 0105
rSTSlK 0103
FTEMP 1263
1264
Fl

F2ZXQ
F3

F4
F5

135 4
GETANS 5237
GETKBO 3 521
4137
GOPRT
GTANSl 5251
1356
Gl

HELPPS
HELPRT
HELPl
HEIP2
IDORA
ILLG
ILLGL

ILLGll
INITOL
If^SRT

INSRTA
INSRTN
INSTNM
INTDRA
INTP
INTPA
INTPB
INTT8L
IPCRT
IPCSUe
JMPSU8
JMPTBL
JMQR
JMQW
KBUFHI
KBUFLO
KEEPDR
KIDORA
KMNAOR
KMNPUO
KMXAOR
KMXFLO
KROORA
KYSCAL
LBOATA
LBPR
LSPRA
IBPRB
LBPRC
LBPRD
LBPRE
LBPRP
L8PRG
IBPRRT
L8PRX
LBPRH
L8PR4
LEGAL
LEGALl
LP

LFUNIT
LIFX
MATCH
MATCH8
MATCHC
MATCHD
MATCHE
MATCHF
MAXADR
MAXFLD
MINAOR
MINFLO
MINUSl

0747
0763
0753
075>2

5400
1764
1745
1754
0026
0454
0457
0464

0101
4061
0131
0134
0142
1241
1200

1161
4037
1252
4045
4046
5441
5 44 2

1346
4057
5436
5435

5440
5 43 7

4060
5443
1052

0362
0371
5020
5117
5124
5137
1054
1100

0370
5114
1102
1475
1014
1031
4042
1033
4040
0441
0460
0471
0501
0506
0436
5675
5674
5616
5615
1371

MISSES 0033
MN LNER

0 76 4

MNLNEl 0773
1373
MO RP2
1401
M0RP3
M0RP4 1413
141^
M0RP5
0477
MTHRT
MULACV 5253
MULTMP 5254
MULT 10 5256
MULT 8

527 4

MULT8E 5360
MVRT
MV16
MV16A

4634
4 62 6

4631
4427
4514
MIA
4504
MIS
MITHS 4424
4426
M10
4425
M100
5727
M1000
0104
M2
5676
M70
NAMETP 0050
NOMORE 1472
NOTUNQ 1761
NUMOIS 0052
NUHPAR 0100
NUMPRA 0027
NUMPTS 4056
NUMPT0 0024
NUMPT4 0077
NXTDF 5666
NXTPNT 5641
OFFSET 0025
0F128U 4000
OKEND 5663
OKFLO 5667
1467
01
0073
PARA
0044
PARA0
PARDAT 0020
PASTRT 0545
PASTSP 0535
PASTSl 0550
PUUSl 142 0
PLUS2 4052
0666
PMl
0622
PONE
1314
P0S5
PRCNTl 0040
PRCTl 0052
PRCT2 0054
PRCT3 0056
0042
PREAO
4201
PRLF
PRLFA 4205
PRLFRT 4216
PRMTRS 4047
PRNTCH 4127
PRNTLA 4115
Ml

4112
4126

PRMTLN
PRNTPC
PRNTl
PROCHO
PRTABL

15>255

1210
1330
1350

PRTl

137t?
PRT2
PTCMA 0753
PTCMRT 0630
0557
PTCMl
PTCM2 0565
PTCM3 0571
PTCM4 0 60 2
PTCM5 0621
0510
PTCM6
PTFAIL 0631
PTFALB 0743
PTFALC 0700
PTFALD 0647

PT FA L£
Q
A
u
r A L n
rTr
D
A
r A u J
rT r
D
A
it
r A L
r TT C
DT r
A
r A LL
PT
t

It)

A
*T
yd
UK

/JS

i?5

7X ?
C.

7 9^

iU f 1

O C.

\£i

7 7 Oi

DT r A rs
0 636
DT Dl Ati
D T CP v/n
iOO /
D
D
r T Ql
oL iT R
D
W
r T Ci
DU M
{N r\
DT 2A
i

r r A r(
T 2 O
O
r t AA rv ii.
I

T4
*T
»O
0 035

PI
CI
iCf

X !y lO ^
1 iOi. o
i
1 02 5

1014
PWRITE 0043
4054
PI
0105
P1B4
4044
P100
0043
P12
5173
P16
4766
P2
4053
P3
P3777 0063
5234
P4
0776
P 40
P4000 4051
5444
P4 01
0734
1564
P6
3672
QAA0
1424
QAAl
3004
QAB
3015
QACA
QACHAR 3661
OACKLF 3621
QACNTR 3604
3026
QAD
3050
QAE
QAEX JT 3641
3516
QAF
3062
QAG
3114
QAH
3131
QA I
PT ZA 1

QA IN IT 300 0
QA J
QA K

QAKR B
QA L
QA LEGl
QA M
QA N
QA 0

31v56

3305
6036
3 17 5

3575

3101
3223
3231
3242
3263
n& pr
~r on 3 0b3
vjIM

0A T

QA TU S
QA IS F

QA T Y
QA U
QA V
QA W

QAX
QA Y
QAZ

O ?7P
C /
6 04 6
3 65 0
6 04 1
3 53 6
3 506

3316
3 51 2

3424
3412
3301
0064
0065
5544

QRD
QWT
RDORA
ROTAPE 4 150
RD TPRT 4171
7774
READ
RE TTY

4 72 6

RETURN 6000
RSTRTY 5172
0041
RTN
RTNCOF 5460
RWT APE 4172
R0
1442
1443
Rl
1463
R2
R9
1462
SCALE 034 0
SC12BU 0343
5741
SETDF
SETFLO 5632
SETSHV 1152
4616
SE T16
SNOVE 0777
SHOVEA 100 2
SHOVER 1013
SH0W12 1037
SHOW 14

1 041

SH0W3

1035

SHOW 41 1047

SHVSBl 1251
SHW2 1M 104 5
1374
SIGR

1353
0063
4055
0042
1470
1157
ST DOR
STOORX 1260
STDORZ 1201
SINGL
SPCCST
SPSP
SPSPA
STOIAL

ST00H3 1204
ST00R4 12ii5
STDOR^ 1237
STD0R6 1261
STERR 1433
STPRT 1334
STRLF 5203
STRLFB 0447
STRLFC 5217
STRT
1066
STRIA
1101
STRTB 1127
STRTC 1135
STRTPA 5223
STRTRT 5233
STRT2 1112
STTAB
1051
TAB
5524
TAPE2 4155
TAPE^l 4164
TEMP
5477
TEMPI
4050
TLRNCE 0 03 0
TRABRT 4266
TRANS 4230
TRANSA 4233
TRANSe 4244
TRDTA 5007
TROTAR 5017
TRDTAl 5012
TRNHDl 4235
TRNMD2 4271
TRNSMD 4217
TRNSMT 422 7
TRNSRT 4243
TXTSTR 2 021
TYA
4267
TYANA 1634
TYANS
1604
TVANl 1606
TYANIA 1607
TYANIB 162 3
TYANIC 162 7
TYANir 162 1
TYAN3
1632
TYAN3B 1643
TY AN3C

165 6

TYAN3D
TYAN3E
TYAN4
TYAN4A
TYAN4B
TYAN4C
TYAN40
TYAX

1664

TYAY
TYAYl
TYAY2

1671

1674
1675
1703
1711

1716
4402
4367
1400
1406

TYAY5

4372

TYA2
TYAl
TYA2
TYA3

4404
4310
4 31 3

4323

TYA4
TYA4A
TYB
TY81
TYB2
TYC
TYCA
TYCNT
TYCSB
TYCSBl
TYCl
TYCIA

4353
4357
4531
4573
4556
0351
0357

TYC18
TYCIC
TYCIO
TYCIE
TYCIF
TYCIM
TYCIN
TYCIX

4722

7YC2
TYOl

TY02A
TY03
TY04
TY05
TY06
TY07

TY07A
TYO§
TY08A
TY09
TY09A
TY09e
TY09C

4 73 5

4661

4665
4 65 5
4 671
4 73 6

4743
4746
4762
4675
4711

4707
4727
2705
2745
2714
2723
2752
1717
1 522

1532

1543
1554
1557
1570

1576
1603

1660
UARET
1674
1675
UB
UC
1672
UNKVAL 0044
1603
Ul
1565
UlA
1571
UlAA
UlARET 1602
UA

1627
1636
U4
170 0
1726
U7
U8
0743
174 4
U9
VCOORO 5475
U2
U3

5005
0664
4420
WINSAM 0100
5 62 4
WRAP
WRITE 7775
WSAM
5561
WTTAPE 4173
WTUN0 5566
XCORD 0001
XCURHI 0021
XCURLO 0022
VI

V2
V4

XNHBUr 0060
XNMRET 10i?l
XNMTMP 0062
XNUM
1026
XNUMA 1032
XNUMB
1036
XWORD 0047
XWORDl 00t>0
XXCRD 5564
XI
1510
X12
4520
X2
0707
X22
4524
X3
0721
X32
4526
X4
1524
YCUR
0024
YOFFST 4072
YQl
0665
YSCAl 5644
YSCALE 4073
YSCRNG 136 6
YSCTMP 1370
YSHrr
0020
16
0674
27
4344

HOW TO OBTAIN SOFTWARE INFORMATION
for new and revised software, as well as programming
notes, software problems, and documentation corrections are published
by Software Information Service in the following newsletters.

Announcements

News for the PDP-8 & PDP-12
Software News for the PDP-ll
So f tware News for the PDP-9/15 Family

Digital Software
Digital

Digital

These ne wsl etters contain in format ion applicable to software available
from Digital's Program Library . Articles in Digital Software News update the cumulative Software Performance Summary which is contained
To assure that
in each basic kit of system software for new computers.
the monthly Digital Software News is sent to the appropriate software
contact at your installation, please check with the Software Specialist or Sales Engineer at your nearest Digital office.

Questions or problems concerning DEC software should be reported to
In cases where no Software Spec ia ist is availthe So ftware Specialist,
Performance Report form with details of
Software
able, please send a
to:
the problem
I

nformat ion Service
Digital Equipment Corporation
146 Main Street, Bidg . 3-5
Maynard, Massachusetts 01754
So ftware

These forms which are available without charge from the Program
Library, should be f u y filled out and accompan ied by Teletype output
ita te a complete
istings or tapes of the user program to foe
as well as
and appropriate
ividual
ind
the
to
sent
be
An answer will
investigation
newsletter
the
in
printed
be
will
interest
topics of general
I

So ftware Performance Report
forms, and software price lists are available from the Program Library.
When ordering, include the document number and a brief description of
the program or manual requested. Revisions of programs and documents
will be announced in the newsletters. Direct all inquiries and requests

New and revised so ftware and manuals.

to:

Program Li brary
Digital Equipment Corporation
146 Main Street, Bidg. 1-2

Moynard, Massachusetts

01754

Digital Equipment Computer Users Society (D ECU S) maintains a user
library and publishes a catalog of programs as well as the DECUSCOPE
magazine for its members and non-members who request it. For further
informotlon please write to:

DECUS
Digital Equipment Corporation
146 Main Street, Bidg. 3-5

Maynord, Massachusetts

01754

LIFE
DEC-12-UW8B-D

READER'S

COMMENTS

Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness

of its publications.
this

To do this effectively we need user feedback

— your critical evaluation of

manual

Please comment on this manual's completeness, accuracy, organization, usability, and readability.

Did you find errors in this manual?

so, specify by page.

How can this manual be improved?

Other comments?

Please state your position.

Name: ^

Date:

Organization:

Strfeet:__
City:

Department:
State:

Zip or Country-

Do Not Tear Fold Here and Staple
-

FIRST CLASS
PERMIT NO. 33

MAYNARD, MASS.
BUSINESS REPLY MAIL

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES
Postage will be paid by:

Digital Equipment Corporation

Software Information Services
146 Main Street, Bldg. 3-5
Maynard, Massachusetts 01754

digitat Equiprhent Corporation

Mayharcij Massachusetts

printed in U.S.A.