Digital PDFs

MAINDEC-15-D1BC-D

April 1979

82 pages

Original

2.5MB

Document:	PDP-15 Extended Memory Checkerboard Apr70
Order Number:	MAINDEC-15-D1BC-D
Revision:
Pages:	82
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-D1BC-D_PDP-15_Extended_Memory_Checkerboard_Apr70.pdf

OCR Text

?])P----?S"
I7E/1Cf(Y

IDENTIFICATION

PRODUCT CODE:

MAINDEC-15-DIBC-D

PRODUCT NAME:

PDP-IS ,Extended Memory
Checkerboard (MXCH 15)

DATE CREATED:

April 1,

11AINTAINER:

Diagnostic Group

AUTHOR:

John W. Richardson
D. K. Hacomber

197~

l\BSTPACT
The PDP-IS Extended Memory Checkerboard test verifies the
operational status of core memory by testing for core failure
on halt-selected lines under worst case noise conditions.
The program tests any memory configuration of from 8K to
l28K words, in 4K segments.

Seven patterns are used for

testing, and these may be selected individually by the operator.
Tile program relocates automatically in order to test all

memory fields from each field.
2.

REQUIREMENTS

2.1

Equipment
A standard PDP-IS equipped with 8K to l28K words of core memory_

2.2

Storage
The program occupies approximately

3S~~

octal locations of any

4K memory field.
3.

LOADING PROCEDURE
The program may be loaded into any low order 4K field
7777 octal) of memory block ~ (fields

thru ~7).

(~~~~

Normally

load the program into memory field ~~, as follows:
a.

The tape supplied is punched in the ABS mode.

Place the tape in the reader.

Set the ADDRESS switches to ~177~~; the BANK MODE switch to

a 1.
d.

Press RESET and then READ-IN.

STARTING PROCEDURE

4.1

Starting Address
The starting address is

~~~2~~.

..... 1

4.2

Restarting Address
Restart from ~~~2l5 (or FF~2l5) to retain previous program
conditions.
Restart from ~~~2~~ (or FF~2~~) to setup the test limits and
ACS and to reinitialize the program.
FF

4.3

= Field Number.

Operator Action
After starting from

2~~,

the program will print "TEST LIHITS".

The operator must ehn specify via the Teletype keyboard the
amount of core memory to test, followed by a carriage return.
The program assumes 4K fields numbered ~~ thru 37, octal.
is the Field Number.

Memory Block ~ contains 4K Fields

Numbered ~~ thru ~7; Memory Block 1,
2,

4.3.1

This

thru 27; tlemory Block 3,

thru 17; Memory Block

thru 37.

Specify the Test Limits
a.

Type two field numbers, separating the field numbers with
a comma, and then a carriage return.

The first number typed signifies the first 4K field to test,
and the secon number the last 4K field to test.

The program will begin testing with the lowest order 4K
field to test and will test all consecutive fields up
to an including the highest specified.

The 4K field containing the program may be included.
will be tested after program relacation takes place.
Program relocation is described in Section 5.1.1.

- 2 -

If an error is made during typing press the RUBOUT key.
"TEST LIMITS" will be printed again.

Previous input is

ignored.
f.

The highest 4K field to be tested may be typed first.

The

program will reverse the two numbers so as to make the
first number the last field to test.
g.

Any single field or any two or more consecutive fields
may be specified.

For the following examples assume that the program is in field
(~~~~~~

to ~~7777), and the PDP-IS being used is equipped with

128K of core memory.
Example A:
TEST LIMITS
~.,~7~

(~)

denotes carriage return

The program will test all 8 fields of memory block ~.
Example B:
TEST LIMITS
~7,~~~

The program will perform exactly as Example A.
Example C:
TEST LIMITS
23,23~

Field 23 will be tested alone.
23~~~~

Field 23 is locations

to 237777 of memory block 2.

3 -

Example D:
TEST LIMITS
16, 21.}
Locations

16~~~~

through 217777 (fields 16, 17,

and

21 will be tested.
Example EO':
TEST LIMITS
ftJ~ ,~~ PROGRAM

IS FIELD ~f1

~~ ,~l~

Example E shows the message printed by the program when a
single field is selected which currently contains the program.
"TEST LIMITS" is printed again, and the operator must then
correct the test limits.
Operation of the program is unpredicatable if the amount of
core memory selected for testing exceeds the actual amount
available, i.e., selecting 32K fer testing on a PDP-IS
equipped with a maximum of 128K, or if the program is loaded
into any memory block except ~.
4.3.2

Setup ACS After the test limits are specified, the program will print
"SETUP ACS".
to

For normal program operation the ACS must be set

~f1~~~f1 oc~al.

Press any key on the Teletype keyboard after

setting the ACS to all

f1's.

stopped by the operator.

The program will then run until

Normal program operation is defined

as performing all eight checkerboard patterns on all of available
memory from every 4K memory field.

4 -

OPERATING PROCEDURE

5.1

Program and Operator Action
a.

Load the program into memory block ~ as described in
Section 3.

Specify the test limits via keyboard as described in
Section 4.3.1.

The message "SETUP ACS" will be printed.

Set the ACS

to ~~~~~~ octal, and press any keyboard key.
d.

The program will write one pattern in one 4K field,
after which, each bit of address

is read and tested.

Repeat step d on each location in the 4K field.

Setup for the next 4K field and repeat the read and test
sequence in steps d through f.

~Vhen

all fields have been tested in this manner, the next

pattern is written, and steps d through f repeated.
When all four tests have been executed, on all of memory, the
program then relocates and pernorms all four tests again.
5.1.1

Program Relocation
Program relocation depends upon the amount of core memory
being tested.

Relocation is always within the group of 4K

fields selected for testing, and under certain conditions
the program may not relocate at all, but will remain in the
current field to perf~rm the tests (see below).

The program

normally first relocates to the highest order 4K field under
test.

From there it relocates to the next lower 4K field, after

performing all tests.

The program keeps relocating to the

next lower 4K field until it reaches the lowest order 4K
field under test.

The testing and relocation cycle is then
- 5 -

repeated.

This procedure is repeated until stopped by the

operator with ACS~.
in field

~~,

As an example, if the program is initially

and l28K of memory is selected, the program

would relocate from ~~, to field 37, then to field 36, 35, 34,
3~,

33, 32, 31,

27, 26, etc. in that order.

The program

does not relocate to any field which is not included in the
test limits.

If fields 14, 15, and 16 were selected,

relocation would be from ~~ to 16, then 15 and 14.
~~

Fields

through 13 and field 17 through 37 would not contain the

program again until included in the test limits.
The program will not relocate if any of the conditions described
below exist:
a.

A forced relocation has been made

(Section 8.2.7).

Only one 4K field is selected for testing.

An error was detected in all of the available 4K fields
under test.

ACS 9 is on a 1 to inhibit program relocation (Section
8.~ .. 5) •

The location of the program is indicated by the message
"PROGRAM IS IN FIELD FF", where FF is the field number.

This

message occurs immediately after each program relocation.

The

message printout may be deleted by placing ACS lIon a 1 at
any time.
on a
T~le

The printout will resume when ACS 11 is placed

program provides a degree of protection for itself by

not relocating to any field which has an error.

The field

number in error is saved, and is compared to the destination
field number before relocation takes place.

If equal, the

next lower field is set up as the destination providing it has
- 6 -

no error.

The first field ound to be error-free is set up

as the destination.

Relocation will not take place if all

fields have shown errors.

The program will resume relocating

to a field whenever the error condition does not exist.
During the relocation process the program tests each data
word transferred to the new field by performing the transfer,
reading the word back and comparing the word with the correct
data in the current field.

This is done on a one for one

basis until the process is completed.

The entire 4K field is

moved to enable loaders or any other data to be carried with
the program.

If an error is found during relocation, the

address is error, and the "good" and "bad" data words are
The error printout format is described in Section 6.

printed.
6.

ERRORS

6.1

Error Printouts and Description
Immediately after the first error is detected, the header shown
below is printed.
from

2$J~

The header is not printed again until restarting

or 215.

TEST

OCTAL ADR

GOOD

BAD

PAT CONTROL WORD

Where:
TEST

=The current test which detected the error.

OCTAL ADR

=The octal address which contains the data
in error.

GOOD

=What the data should have been in that
address.

This will

alw.~ys

equal

~~$J$J~~

or 777777 octal.
BAD

=The data as read from that address.

This

will always contain one or more bits which
are the complement of those shown under GOOD.
- 7 -

PAT CONTROL WORD

=The control word used by the current test
to generate the checkerboard pattern.

This

will be 463144 or 314633 for test 1;
63146~

or 146317 for test 2;

52525~

252527 for test 3.
TEST

OCTAL ADR

GOOD

BAD

PAT CONTROL WORD

~14~~~

~~~~~~

~~~~~1

463144

~6~2~~

777777

767777

314633

~14~~~

~~~~~~

~~~9~1

52525~

~37555

777777

377777

In the above example, errors were detected by tests 1, 3
and 4 in memory field ~l,

~6,

"picked up" bit at location
at location

29', field 6.

test 1 at location

4.'~,

and

4".,

~3.

Test I detected a

field 1, and a dropped bit

Test 3 detected the same error as
field 1, and test

4 detected a bit

9 error at location 7555 in field 3.
After each error pri.ntout, the program continues testing with
the next sequential memory location.
Three AC switches may be used to control the error printouts.
Placing ACS , on a 1 during the printout will cause a program
halt after completion of printing.

ACS 1 on a 1 will inhibit

the printout and cause a program halt.

Press CONTINUE to

receive the error printout and to continue testing.

ACS 2 on

a 1 will inhibit printout and ring the TTY BELL for each erroT..
The use of these switches is describeod in Section 8.2 in
more detail.

- 8 -

6.1.1

Program Relocation ErrorThis message will be printed upon detection of a relocation
error.

The error information will immediately follow as in

the example below.

After all errors have been printed the

message "NO MORE ERRORS" is printed, and the program will then
set up to relocate to the next lower field if one is available.
EXAMPLE:

TEST

OCTAL ADR

GOOD

BAD

PAT CONTROL ~10RD

PROGRAM RELOCATION ERROR
~31~~~

741~~~

74~~~~

~31~~1

611~~5

6~1~~5

~31~~2

76~2~7

76~~~7

NO MORE ERRORS
The above example shows three consecutive errors during program
relocation to field
relocation.

~3.

Location

Field

l~~~

would be set up for

in field 3 should have contained a

SKP instruction, but bit 11 was dropped during the transfer.
Bit 5 was dropped in the JMP instruction in
l~

6.1.2

dropped in the

L~W

instruction in

l~~l.

and bit

1~~2.

Printouts Inhibited
This message is printed whenever 64 (decimal) consecutive
printouts have occurred.

Error printouts will be inhibited

until after all four tests have been run eight times, after
which the error printouts will resume 64 more printouts.
feature is not used with program relocation errors.

This

feature is included to prevent lengthy error printouts when the
program is being run for an extended period of time unatterlded.
Error printouts may be resumed by restarting the program from
location

2~~.

- 9 -

6.1.3

Program is

in'~ield

~';rHERE

IS A FIELD NUMBER.

liP}'"

FF
This message is printed if one

of the following conditions exist:
a.

The operator has specified a single field for testing
and that field contains the program.

Select another field,

refer to Section 4.3.
b.

6.1.4

After every program relocation.

Error in Selected Field
This message is printed when a forced program relocation is
attempted and the program has previously detected a data error
in that field.

Type.a new field number, or press carriage

return to resume automatic program relocation.

See Section

8.2.7 for instructions to force the program to another field.

6.1.5

First/Last ADR is Within Program
The operator has specified the first or last address, as
indicated by the printout, which is within the program area.
Retype a new address.

See Section 8.2.8 for setting up scope

loops via keyboard.
7.

RESTRICTIONS

7.1

Starting Restrictions
Start from FFg2~~ to set up the test limits and ACS and to
reinitialize the program.
Start from FF~215 to retain the present program conditions.
(FF

7.2

= the field the program is in).

Operating Restrictions

Don't use the STOP key to halt the program.
8.

MISCELLANEOUS

- 10 -

Place ACS

on a 1.

8.1

Execution Time
The time required to run all four tests on one 4K field is
approximately 15 seconds.
The time required to run all four tests in 37 (octal)
2~

4K fields is approximately 4 hours,
The above times are based on a
3.2

8~~

minutes.

ns cycle time.

Applications
To give the operator control of the program, the ACS are
assigned unique functions.

The ACS assignments and their

effect on the program are described below.

Please note that

it is important that the program be halted with ACS
than the STOP key.

rather

Using tIle STOP key may result in a halt

while the program is relocating.

The operation may not be

initiated immediately since most of the ACS are sensed only
after all tests have been performed.
8.2.1

Halt After Test or Error Printout - ACS
Placing ACS

on a I at any time while the program is running

will cuase a halt after the current test is completed on one
4K field.

The MO will = 652.

desired.

Press CONTINUE to recover.

The ACS may then be changed if
If no ACS changes the

program will resume the test which was interrupted.

ACS changes were made the new setting are stored and executed.
Raising ACS

during an error printout will cause a halt at

the same location mentioned above, after the printout.
8.2.2

Delete Error Printout and Halt on Error - ACS 1
Raising ACS I at any time causes all data error printouts to
be inhibited.
occurs.

A halt will ocaur with the MO = 654 if an error

Press CONTINUE to receive the error printout and to

resume testing.

ACS changes may be made.
- 11 -

8.2.3

Bellon Error - ACS 2
ACS 2 on a 1 causes the program to ring the TTY BELL whenevery
an error occurs.
This is convenient when attempting to isolate an intermittant
error. ACS 1 has no effect if ACS 2 and 1 should both happen
to be on a 1.
bell.

8.2.4

If ACS

and 2 are 1, a halt occurs after the

Proceed as described in Section 8.2.1.

Test Selection - ACS 3 through 6
Anyone, or any combination of tests may be executed by
setting any combination of ACS 3 through 6 to a 1.

ACS 3

specifies tests 1; ACS 4, test 2; ACS 5, test 3; ACS 6, test
4.

The test specified by the most significant ACS will be

performed first.
If all four ACS are ~, all four tests are performed in sequence.
The ACS may be changed while the program is running.

The new

test will be recognized after the last of the current selection
is performed.
8.2.5

Inhibit Program Relocation - ACS 9
The program normally relocates utomatically as indicated
by the PC or MO indicators.

To retain the program in its

current 4K field, place ACS 9 on a 1 at any time.
8.2.6

Inhibit "PROGRAM IS_IN FIELD" - ACS 11
The program normally prints the field number containing the
program immediately after each relocation.

The message

may be suppressed by placing ACS lIon a 1 at any time.
resume the printout place ACS lIon

a.~.

This switch does not

inhibit the message printout when an operator error is made.

- 12 -

8.2.7

Program Relocati0n - ACS 12
The operator may relocate the program to any 4K field by
specifying a forced relocation with ACS 12 on a 1.

Use

the following procedure.
~.

Halt the program with ACS

Place ACS 12 on a 1 and ACS

A printout will occur which instructs the operator to
place ACS 13 on

a~.

Press CONTINUE.

The program will loop until this

is done.
d.

With ACS 12 on a

the message GO TO FIELD is printed

followed by the pr9gram waiting for a field number.
(~~

Type the desired field number

through 37).

Relocation is done immediately, and the program is
executed in the new field.
2~~,

The program will not relocate again until restarted from
or in step d above, press carriage return to resume
automatic relocation.

If a data error was previously detected in the new 4K field,
the message "ERROR IN SELECTED 4K" is printed, followed by
step d repeated.

Type another field number, or carriage

return to resume normal operation.
Each word transferred to the new field is tested in the same
manner as described in Section 5.1.1, Program Relocation.
Printouts occur for each relocation error.

Step d will be

repeated after all error reporting is done.

Type another

field number, or carriage return to resume normal operation.
At times, the program will automatically restart at
print TEST LIMITS.

2~~

and

This will occur whenever a single field

has been selected for testing, ann the operator relocates
- 13 -

the program to that field.

New test limits must be specified

since the program cannot run the tests on its own 4K field.
Proceed as described in Section 4.3.
8.2.8

Request Scope Loop - ACS 13
The operator ma- initiate, via keyboard, any·, single or
any group of consecutive locations up to 4K for the program
to loop on.

Any of the four data patterns may also be requested.

No error checking is done in the loop.

The loop reads a

location, complements the data and rewrites into the same
location.

Each location within the limits specified is

treated likewise.

The limits specified are looped until

halted with the STOP key.

The program must be restarted

from 2~~ to resume normal operation.
Initiate the loop with the following procedure:
a.

Halt the p~ogram with ACS ,.

Place ACS 13 on a 1 and press CONTINUE.

The message "TEST" will be printed.

The program now wiats

for a selection by the operator.
d.

Type the desired test number.

Either 1, 2, 3, or 4.

An automatic carriage return follows.
e.

The message "FIRST ADR" is printed.

Type the first address of the group to be looped by the
program.

This number must be a 6 digit octal number.

automatic carriage return follows.
g.

The message "LJ\ST ADR" is printed.

Type a 6 digit octal

address to indicate the last address of the group.

The

scope loop is immediately entered after the last address
is typed.
- 14 -

The loop may also be initiated by restarting from

2~~

125 and placing ACS 13 on a 1 under "SETUP ACS".
If a typing error is made press the RUBOUT key.

A? will be

printed, and the input routine will restart with "TEST".
Example A:
TEST 3
FIRST ADR ~l~l~~
LAST ADR f3lf31f3f3
Address

l~~

in field 1 will be looped continuously after

checkerboard pattern number 3 is written in the entire 4K field.
Example B:
TEST 2
FIRST ADR ~2~~~~'
LAST ADR ~27777
The entire 4K number 2 will be looped after pattern number
2 is written.
Example C:
TEsr:e 2

FIRST ADR ,)27777
LAST ADR ~2~~~f3
The input routine will reverse the two addresses and perform
exactly as example B.
Example D:
TEST 4

FIRST ADR ~~~l~f3
FIRST ADR IS WITHIN PROGRAM
FIRST ADR ~lf3llJlJ
LAST ADR ~1~2lJ[I
Example D shows the message printed when an address is
selected which is in the field containing the program.
In this case, field [I.

- 15 -

Example E:
TEST 5
?

TEST 4
FIRST ADR ~7~~~~
LAST ADR {tJ74~fIfI
In example E the operator typed an invalid test number.

The

program printed the question mark, and restarted with TEST.
The instructions in the body of the scope loop appear below.
SCPl

EEM
LAC* MEMADR
CMA
DAC* MEMADR
LAC MEMADR
SAD LTST
JMP STSCP
ISZ MEMADR
JMP SCPl
LAC ADRA
DAC MEMADR
JMP SCPl

STSCP

/ENABLE EXTEND MODE
/READ
/COMPLEMENT DATA
/WRITE
/ADDRESS
/COMPARE TO LAST
/DONE
/INCREMENT ADR
/LOOP
/FIRST ADR
/RESTORE COUNTER
/GO TO TOP OF LOOP

Note that one 4K field is the maximum that may be looped by
the program.

If 4K field boundaries are overlapped, the

checkboard pattern will be written in the field specified
by the FIRST ADR.

The scope, however, will reference

tI~

locations specified.

8.2.9

Bit Suppression - ACS 14
Excessive error printouts due to one or more bits in error
may be suppressed by specifying the bit positions via
keyboard input.

The bit positions will still contain the

checkboard patter, and will be tested.

Error printout

will occur for any bit position not selected.
Use the following procedure:
a.

Halt the program with ACS {tJ.

Place ACD 14 on a 1, and press CONTINUE.

The message "SUPPRESS" will be printed and the program
Waits for inputs.

- 16 -

Place ACS 14 on a

Type in decimal, the desired bit position to be suppressed
(~

through l7).

Press the carriage return key.

Error printouts for that position alone will not occur.
To suppress more than one bit position:

Proceed as above, but separate the selected bit positions
with a comma in step (e).
bits

8 and 17 type

As an example, to suppress

8, 17).

Press RUBOUT and the CARRIAGE RETURN to continue with
error printouts of all bit positions.
Each time the bit suppressing routine is entered with
ACS 14, the previously selected positions must be retyped
if suppression is wanted.
The program is not effected in any way by the typing of
letters, or numbers greater than 17.

The resulting

positions suppressed would be unpredictable.

PROGRAM DESCRIPTION
The program is designed to run worst~case checkerboard
patterns for 3K memory stacks.
A minimum of 8K of core memory is required, and a maximum

of l28K words may be tested.

The program automatically

relocates from 4K field to 4K field to test all of memory from
each field.

The patterns are shown below as they would appear
Pattern number 3 is considered

in a portion of one bit plane.

to be the worst case pattern of most PDP-IS memory stacks.
The patterns are
addresses.

co~plemented

along the X axis every

octal

The X axis is addressed by bits 12 through 17,

and the Y axis by bits 6 through 11.
- 17 -

Test 1:
Y axis

ftJ
axis

4ftJ

Y axis

IJlJlll$J~1.L
1~~11~~1

~11~~11~
~11~~11~

4f1

l~flll~~l
1~~11~~1

X axis

~11~~11~
~11~f311f1

Test 2:
Y axis
~

11~~11~~
II~flll~fI

4X1

fI~11ftJftJ11
flftJll~,0'll

X axis

Y axis
~

X axis

fI~ll~~ll
flfIll~~ll

11g~11~fA
Ilfl~llfl~

Test 3:
Y axis

X axis

Y axis

Ifllfll~l~
l~l~lfllfl

fll.0l,01.0l

X axis

~lfllfll~l

fll~1.0'1,01
fll~l~l~l

1~1~1f11~
1~1,0'1f11~

Test 4:
This test writes all ones into a memory field.

One

X axis line is then cleared to ~ (all 18 bit planes),

and then read

1~24

times.

All intersecting Y lines a:re

then addressed and checked to make sure the contents
did not change.

All

l~~

(octal) X lines are tested

in this manner.

- 18 -

The operator is given a degree of control over the
program with the AC switches.

The operator may halt

the program(~); inhibit error printouts and halt
on error (1); substitute the Teletype bell for error
indication (2); select anyone or a combination of four
test patterns (3 through 6), inhibit program relocation
(9), relocate the program to any 4K field (12); setup
a scope lOQp via keyboard input (13); and inhibit error
printouts for one or more bit positions (14).

10.

LISTING

- 19 -

M)(CH1'
I

IPDP.1' EXTENDED MtMORV CHECKERBOARD,
11K MINIMUM CORE R~QUIREO. StAt = 200.
I

ICOPVAt~HT 1971, OI~ITA~
IM'YNA~O, MASS, 01'~~

IJ. IItICMAADSON
10. MACOMBER
I

£QUIPMENT CORP ••

PAGE

MXCH1'

MlCCIoI15
.TITL.E MXCH~5
lABS
I

1211211211211
12101211211
1211211211212
1211211211213
012121214
0121"1215

612101211211
777117
771711
171771
.,77177
702141216
121041211
100301
701lJ312
721"1210
'121"64
'121'762
1121"61
71211741
, 3!!1(I'12I 0

.L.OC

JMP
L.AW
L,AW
L.AW
L,AW

TL.,110,406
T8'110141211
I<S"'01~01

I<FUll1011312
PAX.,2s,1lJ""
£8."'1164
1:11."."62

18."",6"
£XIA.1111'42,
CL.Xw13,000
I

.EJECT

-1

-1
-1

PACE

M~CH1'

M)(CM15

00200
0212210
00201
00202
00203
00204
021221'
0021&
IUJ21,
00210
01211
"0212
01213
102S,4
1121'
111216
lell'

112213

'"221

"11222
111123
11224
0122'
rUl226
211227
01230
01231
00232
01233
IUJ234
002J'
0"236
18237
BI240
01241
11242
00243
00244
08245
210246

.I.OC
'07762
143124
143201
10186'3
043125
101660
111ftJ13
"'17."
043173
'177'0"
0432'"
77'1110
043122
143123
211623
141,,5
71'1761
1"1'71
141621
213153
'431'2
741110
611231
'4312'
601202
20267'1
043251
"'7'40
04314'
160100
063251
4432'1
.43147
611236
043126
11165J
043125
20267'1
0432'1

SEGIN

RTNS,

EPA
O~M

D!M
JMS
OAC
JMS
JMS
I.AW
OAe
L.AW
OAe
LAW
OAe
OIM
I.AO
CAe
1:11 A
JMS
CIM
I.AO
SAO
11<11

JMP
SAO
JMID
I.AO
OAe
I.AW
CAe
L.AW
CAC1.1
lSI

JMIt
I

200

OAC
JMS
OAe
L.AC
OAO
.EJECT

'I.A~S

PINX
WHERE

INS~1.0

SL.MTS

SETAe
-1

IJIT~UP
-111!~
MAX~RR

-s,'
SIX!4

NOP~NT

IENTER PDP~15 MODE
IC~EAR PROGRAM rLAGS
IS~E WHERE PROGRAM IS
IS'VE PIEL.D NO.
ISETUP TEST LIMITS
ISETUP ACS

1M ASK F"OR BIT SUPpRESSION
ICOUNT roR ToTAL ERRURS
IPASS COUNTER

GtTAO-S,
1.0CAT.'
L.OCAT
PMDR
I.A.T1

'JA~TS.

•• 3

IT~L.L.

WHERE PROGRAM IS

1"IRST F"IEL.O TO TEST
IL.AST To TEST

INIEI.D

IINSrL.D = 'IEI.O WITH PROGRAM

ERTtil.
EAWRO

IERROR TABI.E POINTER

ERWRO

IL..W • NO ERROR IN TAB~E

BEGIN ••

-4'
C'l~

ERWRO
CT1~

.-~

L.AST

WHt:~[

INI~L.O

ERTBI.
ERWRC

INO ERROR IN L.AST
IERROR TABL.E POINTER

IDAGE

M)(CH1!1

MXClol15
I~ETURN TO STOVER
IW~IL.E RUNNING

1210241
121025121
el02!51
1210252
1210253
121121254
121121255
00256
12102'"
121026121
210261
121121262
1210263
00164
21126'
1211266
1210261
21127121

15001214
5e13244
12143127
51213212
1442121121
61212312
151211211214
503211
741212121121
6121112141
1512121214
512132121
1402121121
11211413
2213121
!521S241
1412021
62121323

STOVE"

L.AS
ANO
1<1"~
OAe
MOW.
ANO
1(40
SIA,CL.1.
JMID
rCDMv
L.AS
ANO
1<2121
S!A
I(YBHO
JMP
I.AS
AND
1<1121
51A
JMS
SU"~IT
MOWA
I.AC
1(14K
AND
INA

JMP

A~TER

.EJECT

CO'~1.

ANY ACS CIoiANGES
IREAO TEST PARAMETERS

181T 12 A 1

IRELOCATE

= FORCE REI..OCATE

181T 13 A 1 : KEYBOARD

IWAIT F"OR INPUT

INPUT

181T 14 A 1 I: BIT SUPPRESSION
IPARAMETERS
IMASI( BITS J TO 6
IAI.L fa II 00 ALL TESTS

FtAOE

00211
021172
00213
00274
0121'
002.,6
01211
0030121
1210301
0113112
12111303
l2Ie:S04
01130'
01306
013117
IUJ310
01311
LUJ312
rall313
00314
211131'
(1)316
00311
01320
1210321
00322

~O(CH1'

203127
503237
1~1200

600321
203236
503127
140200
60QJ3~0

203234
503121
1421200
601351
203231
503127
740200
601362
443122
60ra316
143123
.,71770
043122
7!5QJ021.
5032321
741)200
61)1)216
621113121

MXCI-I1!5

I
IEXAM!NE TEST SWITCHES 3 TO 6
I
MeWA
LAC
EXTST
K401<
AND
seA
TST:!.
JMP
K2Q1K
LAC
[XAM2
ANO
MeWA
81A
JMP
TST~
K1211<
[XAM3
LAC
ANO
MOWA
5.A
JMP
TST~
1(.1(
E"AM. I.AO
Mew.
AND
51A
JMP
TST~
IS.
SlXY4
,
JMP
NOItRNT
DIM
LAW
-11
OAC
SIXY4
LAS
ANO
K.IJ~

S.A

JMP
JMP

RTN1.
CMOVE

I
IleTUP TO RUN ALL T~STI
013Z3
01324
0132'
1211326

203127
243241
043127
600327

OOALL

l.AC
XO,.
OAe
JMP

00321
0133QJ
00331
211332
00333
0"334
0033!J
01336
00337

203132
12143130
QJ43131
761261
043141
1"0366
1210377
600275
6210334

Mew'
K741<
MOWA
TST:!.

ITEST s.. WAtTE CHECKER PATTERN
I
TIT1
L.AC
pew'
pcw
OAC
OAe
CNTRL.
I.AW
261
CAe
TNUM
JMS
NETWI<
JMS
CRtAO
[XAM2
JMP
,.~
JMP

,!:JECT

181T 3 A 1 • TEST 1

IBIT 4 A 1 • TEST 2

IBIT 5 A 1 • TEST J

IBIT 6 A 1 • TEST 4
16~

PASSES !F' SKIP

ICI-EAR NO VJRINT F'LAG
COUNT

IR~STOAE

IBIT 9 A 1 • CON'T MOVE
loONt ALL n::STS. SETUP
IPOR RELOCATION

IS~T ALL
IR~STORe:

T[ST BITS

IT£ST 1

ITEST 1 PAT, CONTROL WORD

IASCI I 1
ITEST NUMBER
IGO WRITE IN Al.L F'IELOS
INOW GO READ AND TEST
ISEE IF' TEST 2 WANTED
100 COMPLEMENT

M)(C~1'

MXC"'15
W~IT£ C~ECKER

ITEST 2,
I

"0340

203133

00341
"0342
00343
00344
1210345
00346
00341
00350

043130
043133160262
043141
11Z111JJ66
10"a7'
600301
61Z1134'

T5T2

l.AO

OAe

OAe
L.AW
OAe

JMS
JMS
JMP

JMP

pews
POW
eNTRL
262

TNUM
NETWK
CR£AO
EXAM3
.-3

PATTERN #2
ITlST 2 pAT.

CONTRO~

WORO

IASCI I 2
ITEST NUMBER
IW~ITE IN ALL rIEL.OS
IR~AO AND TEST EACH FIELD
IS~E Ir TEST 3 WANTED
10 0 COMPLEMENT

ITEST 3. WAITt C~tCK[A PATTERN #3.

"1~51

0"352
"13!53

113'4
IUJ35'
11'0356
01357
11'1360
11361

01362
11'1363
0"364
"'365

203134
043131
rlJ4:5131
'61263
043141
111366
11131'
60131'
61135'

i'ST:S

1611264

L.AC

PCwg

OAe
L.AW

26;J

OAe

111'2'
601311

ITEST 3 pAT, CONTROL. WORD

CNTRL

OAC
JMS
JMS
JM"
JMP

TNUM
NETWK
CA£AO
EXAM.

L.AW

26.4
TNUM

OAe
JMS
JMII

043141

pew

.-~

8UA~T

[XAM ... ,

IASCI I :3
IT~ST NUMBER
IWRITE IN AL,L rIEL,OS
IA~AO ANO TEsT EAC~ FIELD
IS~E I' TEST 4 SELECTED
100 COMPLEMENT
IASCI I 4
IT~ST NUMBER
IwRITE IN AL.L rIELOS
IPREPARE To RELOCATE

IAOUtIN£ TO SETU~ AODAEssES ,OR WRITE ~OOP

211366
""361
10370
11'0311

00372
00313
00314
00375
""316

010101
101161"
111'161'
74UU,,,
621366
1"11430
1011643
60131"
620366

NETWK

JMS
JMS

SICP

JMP.
JMS
JMS
JMP

JMP.

IS~TUP 1sT 'IE~O TO TEST
IS~E I' IT ~AS PROGRAM

NE.TWt<
WRIT[
NXT8NK

NETWt<·a
N£TWt<

INC
I[XIT

IA9TUA~LY WRITE ONE rI£~D
IS~TUP tOR NEXT rlELD
IS~E It IT "'AS ~ROGRAM
IW~OTE AL~. EXIT

IROUTINE TO SETuP AODRESSES rOR READ ~ODP

"fJ!77
011'4"0
00401
00402
00 4H'J:3

00404
00405
0"406
00401

1ZI1UJ001Z1
101435
711714
24313"
543131
620377
043131
440317
620371

CREAO

121
JMS
LAW
)(OR
SAO

JMP.
OAe
IS!
JMr:a.

.EJECT

REAO AND TEST 1 rIELD

REAO

IA9TUAL,~y

pew

lAP-COMPLEMENT Or PCW
IA~~ DONE %; EQUAL
IEXIT
ICNTRL.·COM~L.EMENT PATTERN
IRETURN·1
IEXIT ANO WRITE COMPLEMENT

CNTH~

CFt£AO

CNTRL

CFtEAO
CREAO

PACE

M)(CH15

M)(CH1!5
I

IIPATTE.N ~OUTINE 'OH TESTS 1 THRU ~

""'""

00elll

2,,3131

11411
"""12
""'13

",.,,,,,

"""16
01'1'
0"'221
BI'21
0,422
0'423
11'424
IB425
01'26
el421

2131."
04313'
""60
21.31.7
21313'
'.""10
043135
"'400
,.11011
0.3156
62114111J

""'"4
",,415

GENPAT

"4~1."

"4~1'"

WeNT

l.AC
"OAe

I.AW
OAe
l.AC
OAe
l-AW
OAe
l.AC

Re,COMPI.

CNT~L

PATN
.'IZI~
e""~
PATN
PATH
-221

CT2.!
PATR

OA'C
PAT~
SIl-leL.A
eMA
OAe
GOOO1
..IMP.
QEN~AT

ICURRENT PATTERN CONTROL WORD
ISAVE
ICOUNTS V AXIS
ICONTROL WORD
ISAVE
ICOUNTS 16 SHIfTS
INO SKIP SA't'S WRITE 177771
lAP
IsAVE:• ""
IEXIT TO READ OR WRITE

IWAITE ROUTINE rOR TESTS 1 T~RU :5

II'3e
el431
11432
II.l3

ee4:54

eele"e
110411
e"e"e
1114,2
62e43e

WRITE

e
JMS
OAe
JMS
JMP.
.EJECT

GENPAT
)(

CI()(V

WRIIE

IGET A WORO
IwRITE
IC~EeK F'oR

IcONE 4K

PATTERN INVERSION

PAGE

MXCH1!5

MXCIoI15
I

IREAO AND TEST ROUTINE rOR TESTS 1 TIoIRU 3

00~35

00436
00431
0044121
00441
2121442
210443
00444
0044'
00446
00441
0fJ'5QJ
00451
00452
fJ04'J
004'4
0fJ."
00"6
0045'
00460
11461
00462
0"463
121"'64
121046'
00466
0fJ461
004'0
0"4'11

000000
100610
10121617
141000
620435
1021410
20320'
043142
203142
250000
050000
203142
25000121
058000
210fUJ0
5431'6
'141000
60fJ461
203142
'144010
'140400
601444
1014?2
100643
60043'
62043'
0431'4
100613
60"463

REAO

0
JMS
JMS

StTUl
CBANI<

SI<P

RCOM

JMP.
JMS
L.AC
OAC
I.AC
XOR
OAe
I.AC
)(O~

OAC
L.AC
SAO
SKI'

CKAL,

ERIET
I

JMP
L.AC
ReI.
SNI.
JMP
JMS
JMS
JMP
JMP ..
OAe
JMS
JMP
.EJECT

REAQ

G£NPAT

BIT90N
BITgON
X
X
eZT90N
X
X
X

GOOQ1

ERStT
elTeON

ISETUP F'OR F'IRST F'IELD
ISEE If' IT HAS PROGRAM
INO
INO MORE CORE TO READ
IGET A WORO
IUSEO rOR BIT INVERSION
ICOMPL.EMENT A BIT
IWRITE
IR~"COMPLEMENT

IR~·WRITE
IR~AO

ICOMPARE
101<

IpRINT INf'O

REAO

ISETUP F'CR NEXT BIT
IOONE 18 Ir L!~I< ~ 1
100 N~XT B!T POSITION
ICHECK F'OR PATTERN INVERSION
IS~TUP roR NEXT rIELD
IA~AD NEXT 'IEL,O
IwRITE NEXT PATTERN

ERROR

IpRINT tNp.'O

RCOM.S,
CI(XV
N)(TBNI(
REAQ.Z
BAO~

CKA~

PAGE

M)(CH1'

M)(CH1!5
I

IROUTINE TO CHfCK rOR PATTERN INVERSION

00121000

00-72
00.73
004'4
0047'
00476
0047'
00500
0121'O1
121051212
O2151213
12121504
02150'
00'06

741000
620472
.43151
741000
600507
72412100
343214
7210210

00507
0121'10
00511
210'12
00'13
00'14
021515
00516
00'17
O0'2O
00'21
00522
1210'23
00'24

73712101
77"1210
0431'1
724000
503213
543212
60fJ521
724000
343312
6rUJ502
203140
740001
O43140
600516

CKXY

443146

121
lSi!
51<'"

CT4K

IOONE

JMP.

CK)CV

lSI

CT0~

IEXIT TO WRITE OR READ
IOONE WITH V AXIS IF' SKP

'164

IDONE 64 Y l.INES

1(1"~

IINCREMENT V ADDRESS BY 1

C"s.~

ICHECI( F'OR 16 L.OCATIONS
INOT YET
IR~STORE COUNT

SI<P

N,4

44~147

JMP
Jl.'XA
TAD
Jl.'AX
lSi!

JMP
JMP

6021421
60041'
I

'164

AXR·l
l.AW

OAe

PXA
AND
SAO
JMP
PXA
TAO
JMP
L.AC
eM.
OAC
JMP
I

,EJECT

WCNT.rl
WCN!.2

IF' SKIP

IINC~E:MENT

X \.lNE By 1

·111~
CTfJ~

IR~STORE

1<17
K4'

ICOMP\.EMENT PATTERN IV EQUAL

,.'
(1'~001Z1

'1 l.INE COUNTER

N64
PATN

IsTART WIT~ NEW x.y COMBO
IPATTERN CONTRO\. WORD

PATN
,-6

ICOM~\.EMENTED

CONTROL WORD

PAGE

MXCl;lS

M)(C~15

ITtST 4 wRITE AND REAO ROUTINE
0~525

flI~~~I2J~

121121526
121121521

112J06U'J
1121061'
'41"2121
6211541

~iH'3I2J

121121531
210532
~0533

00534
2121535
I2IfJ'36
~fJ!53'

rUJ54I2J
12J0S41
210'42
0e543
0fJ!l44
00'4'
lUI'46
""54'
0"""
"iI'51
""552
00553
0"'54
0"555
"0556
"0'57
0056"
1210'61
1210562
12I1Z1!i63
"0564
"056'
121121566
1210'6'

"""0
210571

00"2
1210573
21057.
12I1Z15',
00"6
005'"
12106021
1210601
121061212
210.603
00614
121061Z15
~121606
12106~7

".",.,
12J1~2214

BURST

JMP

WONS

DOXY

lSI

MEMAOR,X
MEMAOR
OT4K

OAC,
JMP
JMS
JMP
JMS
JMS

WON~

N)(TBNK
iUR~T·2

S£T U1
CBANI(

SKI'

621J52'

443141
601555
1,'.",
2,3146
'4i21Z1121
601Z1571
'41Z11Z101
04315.
208561Z1
121431'6
1el613
203214
343146
043146
503232
74120121
601Z156121
443204
443135
203213
5032214
'421200
601J5!521
11Z11643
601542
62052'

OOXY

\,.AW
IS~

60~H532

2fJ32fJ4
343214
"43135
2"3135
e43146
"60""
"43147
1'3204
2332"4

S£T~1

CBANK

SKI'

44:1204
443146
1210643
6211521
1fJI610
101611
'41rUJe

JMS
JMS

8A8TA

BUIT

JMP.
\,.AO
TAO
OAe
L.AC
OAe
L.AW
OAC
oeMI.. A".

aUAST

lse

CT1~

JMIIt
L.AW
XOR.

SNA

CENO

JMP
eMA
OAe
I.AC
OAe
JMS
LAC
TAO
OAe
AND
SlA
JMP
IS~

IS!

L.AC
ANO
Si!A
JMP
JMS
JMfi'
JMP ..
,EJECT

MEMAO~

I(i"~

PATR
PATR
OT41<

·a"~0
CTi~

M£MAOR,X
M£MAOR,X

roR F'IRST rIELD
ISEE rr IT HAS ~ROGRAM
INO
IR~AO Xv COORDINATES
IS~TUP

IWHITE 1'5 INTO A~\" rIE~DS
IAUORESS.1
IOONE 4K WIoIEN SKIP
ISETUP rOR NEXT flEI..D
IS~TUfi' roR 'IRST F'IEI.O
IsEE SF' IT HAS ~ROGRAM
INO
I[XIT
IACDRESS 0 OF' 'I£\,.O X
IAOo V LIN[ 211 TO IT
ISAVE

IV I.INE ADORESS
1.1024 DECIMAL.
leL-EAR LINE xN
IREAO 0~12J""0 512 TIMES TO
ITRy TO SWITCH OTHER I.IN[S

,-a

-So
CT41<,X

CENq

I\,.IN£ V + )( MUST • 771777
ISHOUI.O NOT SKIP
101<

BAO~

ISAVE BAD OATA

BUIT
GOOQ1
ER~OR

1<1"~

CT4K
CT.I<

1<1'~0

BUST
M£MAOR
PATH

ISAVE GooD OATA
IP'RJNT INF'O
IV AXIS FL.US 1
IMASK Y ADDRESS
IAL.L OONE rr SKIP
IA~AO NEXT V ON CURRENT X
IINC~EMENT X AODRESS
IINCREMENT X+V AODRESS

'<"

MEMAOR
BRSTA
NXT8NK
OO¥Y·1
BUR~T

IDONE 64 X \"IN~S IF 0
NEW X WiTH Y01 TO Y63,
IsETUP ~OR NEXT rrELD

IT~ST

IEXJT

PAGE

MXCH1'

MXCM15

I
ISE:TUP rCR F'IRST 4K rlELD
f21f2I61f21
f210611
f210612
210'13
"0614
f210615
00'"6

f21f2If2If2If2I"
2f21:!152
'21.(",,0
043143
'1'0000
043146
62B61f21

SETU1

"L.AC
PAX
DAe
L.AW
OAe
JMP.

F'IR~T1

IF'IRST TO TEST
IADDRESS COUNTER

SVACR

·1"~""
C,..K
SETU1

14K COUNTER
IEXIT

0061'
212162f?J
01621
0"622
1"'23
""624
00625
0"626
0162'1
2116321
01631 :
01632
2106:!3
210634
21"63'
01636
00637
""6421
210641
"0642

2121.0021
101653
'122"01
'43143
601644
'141"31
:!43143
'121001
'131""B
21432214
621611
4411611
621617
203143
343234
2143143
721110
'1'''''121
2143146
601620

IROUTINE TO SEE I' TESTED rl£L.O HAS FlROGRAM
I
21
CBANK
ICURRENT P~OGRAM F'IELD
JMS
WHE~[
PAl.
SAO
IN~XT TO T[ST
SVA~R
JMP
N)(TSNK.1
IS~E I' CURRENT IS LAST
CMA!IAC
TAD
SVAQR
PAX
~I.A

NOMOR

OAe
JMII.
lSI
JMP.
LAC
TAO
OAe
pAX
L.AW
OAe
JMP

MEMAOR
ceANK
ceANK
CSANK
SVAQR
K10K
SVAOR
·1"~21i1

CT4K
caANK·s,

IEXIT

IR~TURN

ICURRENT .4K
INEW ,IELO
I.~K

14K COUNTER

IEXIT ANO T£ST NEW F'IEI.D

01643
10644
211645
00'46
1064'1
0"6'0
B16!51
"06'2

0BIBIUI
7,"0B4
7411BI
1"'66/tJ
203143
543153
'01632
601634

IROUTINE TO CHECK rOR L.AST F'!EI.O
I
NXTBNK 0
I.AS
ICHECK ACS0 rOR HAI.T
SPA
JMS
IGO IotA!.T
HAI.!
SVAOR
L.AC
SAO
IALL DONE I' EQUAl.
LAS!S.
JMP
NOMOR
JMP
NOMOR*2
I

IROUTINE TO OETERMINE WH[~£ PROGRAM IS

"0653
00654
00655
00656
Be6!51

f21PHJ00~

20B653

WIotERE

50324~

243201
621653
I

"AND

L,AC

,-1

XOR
JMP.

PINX

.~JECT

ICONTAINS [PC

I<'QJK

ICI.EAR ALI. BUT BITS 3,4,5

WHE~E

IEXIT

PAGE

MXC~15

IHALT _OUTINE, PR£~S CONTINUE TO ~ESUME
ITESTING, OR I' AOS CHANGES, TO EX~CUTE
INEW PARAMETERS,
12112166121
121121661
121121662
00663
ri'Je,64
0rll66'
121121666
12112166'7
1211216'7121
0e"'1
121,,612

121121121000
140040
151"'J04
141)010
741100
6211660
'411020
'03244
!!J4312'
62166e
6"1)241

HAI.T

121
HI,.T
LAS
RAI.

IpRESS CONTINlJE

S~A

JMPRAA

AND
SAO

JMPJMP

HAL.!
K1'~

MOWA
HAI.!
STOVER

IRESUME WHERE L.ErT orr
IEXECUTE NEW PARAMETERS

IERROR PRINT-OUT ROUTINE~ PLACE ACS0 UP 'OR
IHALT .rTER PRINT-OUT. pRESS CONTINUE TO CO ON,

1210613
ee614
0e61'
01216'76
121121""
121121'70121
00'1211
121121102
0fJ'''3
1210'04
121010'
0"'06
001"'1
1210'1121
121"'"1
0"'12
1210113
00'14
0011'

043155
21132'"
'42700
'411100
601101
202617
12143251
612111716
20315'
5121324'
543126
601116
12143126
0632'"
443251

121121116
121011'1
00121lJ
121121121
1210122
0fJ'23
1210124
12112112'
0fJ726
00'27
ri'J0'13121
00731
00132
1210133
0ri'J134
00135

'76211210121
543123
62121673
'15001214
142010
'4"lee
6012173121
'161212121'
10212132
600736
'50'UJ4
'141lJ01Q!
'412110121
60121742
1012166121
60121742

1211111 IUJ 121
124el2le
'03233

ERROR

PXA
AND
)COR

24314~

OAe
l.AC

SAO

SI<P
JMrt
l.AC
OAe
JMP
L.AC
ANO
SAO

SYAQR
[NERR

ISAVE rAIL.!NG ADDRESS
IERROR TABLE POINTER
II,.AST AOORESS or TABLE

,.4
ERTeL
ERWRO
SW2

IrlRST AOORESS or TA8~E
IPUT POINT£R TO TOP Of TABLE
ICHECK Ac2 'OR BEL~

..,

IMASK 3, 4 AND 5
INtW ERROR rIEL.O I' SKIP
ISAME '1£1.0 AS LAST ERROR

ERWRO

ISTORE rIELO' IN TABLE
IINCREMENT POINTER

OCAOR

t<31rDK

L.A.!
L.AS!

Isa

ERWRD

IrAl~ING

AOORESS

I.AW

IpRINT INHIBIT tr P LAW

JMP-

IDON'T PRINT

SAO

I.AS
RTL.
SMA

JMP

SW1

ISAVE BAO OATA

OCAOR
ERWRO

JMP
OAC

cAC-

sw2

1(,'71

LAW
JMS
JMP

SW1
201

IBELL IF" SKIP
ICHECK ACS 1

IA~CII BE~L

SW~

IpRINT
ICHECK ACS ~ fOR HALT

OOERR
HALT
DOERR

INO SI<Ip = PRINT INro
IpRINT
IHALT
IpRI-NT INfo

PCHAR

L.AS

RAl.

SMA

JMP

JMS
JMP

PAGE

M)(CIo41'

MXCM1!5

00'736
00131
00140
riHJ'741

150004
141100
100660
620613

SW0

l..AS
SPA

JMS

JMP.
I

,EJECT

/NO SKIp
~AI..!

ERROR

= HALT

/RETURN TO READ ROUTINE

PAGE

M)(CH15

MXC~15

ISETUP TO PRINT ERROR
2121'42
00'43
210144
210'45
00746
00'41
210150
021'51
021'52
021'53
210154
O0155
InJ156
00'51
00760
2121'161
210'62
01ZJ'63
00'64
210'65
210166
210'67
001'0
210171
00172
2121'173
00'7.
2121775
IZJfZl176
021777
010210
010"1
01"02
211"03
01004
fZI11lJ05
01"06
01"01
2110121

2213154
141200
62121751
7402101
741200
60075'
7402101
50:1113
740200
140001
503113
141200
62"613
202621
'41200

DOtRR

S~A

10262~

2031·12,
102032

""6.,
2143145

L.AC
SNA
JMP
OMA
SNA
JMP
CMA
AND

STER

102104
20315'
042015
102112
111772
214314'
12121214
203156
2142217'
102112
777176
043145
102104
203154
042015
102112
161264
543141
601011

CM.
AND
SNA
JMP.
L.AC
SNA
JMS
I.AC
JMS
I.AW
DAe
JMS
I.AC

OAe

JMS
I.AW
OAe:
JMS
L,AC

OAe

JMS
I.AW
OAC

JMS

LAC
OAe
JMS
L,AW
SAO

JMP

,EJECT

BAPl

IBAD DATA

STEH.6

IF'ULL. WORD ERROR

.. 6

IJ.·UL.L WORD ERROR

Sn;~

B1T~U'

BITSUP
ERROR
PHOR

IMASK SUPPRESSED BITS

INEW ERROR IF SKIP
IERROR IS SUPPRESSED
IP~INT

P~OR

TNUf'l
PCI-IAR
·11
CT~2

SPING
OCAOR
CRL.t
PR09TL.

HEAOER IF' 2'

IASCll TrST NUMBE~
IpRINT TEST NO.

1.1i

IUSED fOR SPACING COUNT
ISPACE 9
IO~TAL. ADORESS
ISAVE TEMPORARILY
IpRINT FAILING .DDRESS

CT;'~

SIlING
GOO~1

ISPACE 7
IWI1AT DATA SHOULD BE

PRQ9TI.

/pRINT THE: GOOD

CRI.~

lIa

CT;Ja

S'ING
BAC~

CAL.r
PR09TI.
264
TNUM

XNOY ••

ISPACE 5
IOATA REAP
ISAve:
IpRINT THE BAD

PAGE

MXCH1'

01011
01012
01013
0U'J14
01015
01r1J16
01017
01020
01021
01022
01023
012124
01025

777773
"43145
102104
203131
04207'
102112
1022175
4432'0
60QJ136
771'00
0432521
160000
043123

011126
011121
012130
0:1.0:51
01032
010:53
01034
01035
01036
01031
01040

2027211
0431"
102031
1020"
,"766
04314'

MXCH1~

INOY

SPING
CNTRL
CRI.f.

IS~

MAX~RR

1618212

P~O~TI.

CRl.t
SWII

I.AC
OAe
JMS
JMS
L.AW

PTO
PRNT
PN)(T

LAW
JMS

212
PCHAR

JMP
JMP

.-:5

IS~

CTJ~

JMP
LAW
OAe
LAW
OAC

OAe

1rtJ2032
4431 .. '
6012134
60"736

LAW
OAe
JMS
LAC
OAe
JMS
JMS

.[JECT

·10~

ISPACE 5
ICURRENT CONTROL WORD
ISAVE
IpRINT PATTERN CONTROL WORD
leA, Lf

ICHECK FOR t1AX I PRINT.OUTS
ICHECK ACS "
1_~4 DECIMAL

MA)(~RR

NOPRNT

CRL.f
-~2

CT3~

CT~~

SW0

INO MORE ERROR PRINT .. OUTS
IUNTII. RESTART F'ROM 100
IpRINT-ouTS INHIBITED
ICR,L."
1-10 DECIMAL
ILl

11 0 L.INE rEEDS

PAGE

MXCI-I15

MXCI115
I

IKEYBOARD INPUT ROU!INES
01041

735000

KYBRD

CI..X

ITYPE TEST# AND WAI! rOR INPUT, CARRIAGE
IRE TuRN ON~Y MEANS USE LAST PAT TER1'4 WRITT EN
I

01042
01043
01044
01045
01046
01041
01050
01051
01052
01053
01054
01055
01056
01057
01060
01061
01062
01063
01064
01065
01066
01067
01070
01071
01012
01073

202656
043157
102075
102031
101547
543221
601041
543217
101074
7'7517
343145
740100
601061
102612
601042
203145
740001
343205
343222
740100
601071
102612
601042
7601a00
243145
043141

TSTNO

LAC
DAe
JMS
JMS
JMS
SAO
JMP
SAD
JMS
L.AW
TAO
SMA
JMP
JMS

JMP

LAC
CMA
TAD
TAD
SMA
JMP
JMS

JMP

TSTN
1

LAW
XOR
DAC
,EJECT

TSNX
PRNT

IPOINTER

FO~

TEST#

CR~~

ICH, LF
IpHINT T[ST#
IWAIT FOR INPUT
1ST ART OVER If A RUB·OUT

K21~

ICHECK FOR CaRl
luSE LAST PATTlRN WRITTEN
1.1 ASCII

PNXT
KEYIN
K317
KYBRD
AD~l

-261
CTJ.4:!

,.3
WOT'S
TSTNQ
CT32
K1

K26~

,.3
WOTIS
TSTNO

IMINUS = ~NPUT (1
IpRINT QUERY AND RESTART
ITEST# IN AScII
ISUBTRACT ASCII 4
IMINUS = TEST# )4
IpRINT QUERY AND RESTART

CTJ~

TNUM

INEW TEST NUM8ER

PAGE

M)(CH1'

M)(CM15
I)(CH1!1 • TAPE 2
I

IWAIT 'OR rIF~ST 6 OIGIT AOCRESS TO L.OOP ON
I
1211~?4

202103

0:1,2175
1211 rlI 76
0112177
121111210
121111211
01102
121111213
01104
0111215
011216
01101
0111121
01111
S1112
211113
1lJ1l1.
01115
01116
01111
0112121
1211121
01122
1211123
1211124
0112'
1r?11126
1211127
01130
01131

112121211'
21212651
1r?14J151
11212837
221266121
043162
2212661
12143161
lrU,'41
102.'56
2121314'
50321211
04J14'
11211624
61211113
212131621
04316:5
21212703
542702
61211131
1214211212
601567
101376

01132
01133
01134
01135
01136
1r?11131
0114121
01141
01142
01143
01144
01145
01146
01141

61211150
102''''
202661
043157
1riJ212131
21212611.
043157
10212131
16001210
12141515
11211571
21211623
041515
601074

AC~1

1214270~

22271212
043165
7612100121
043163
14~16121

L.AC
OAe
L.AC.
OAe
L.AW
OAe
Oi!M
JMS
L.AC
OAC
JMS
L.AC
OAe
L,AO

OAe

'ACR

JMS
JMS
L,AC
AND
OAe
JMS
JMP
L.AO

O'IT

OAe
L.AC
SAO
JMP
OAe

JMID

JMS
JMP
JMS
L.AC
DAe
JMS
I.AO
CAe
JM8
L.AW
OAC
JMS
I.AC
OAC
JMP
I

.£J£CT

RO'S
ROTA
ROTA
NRO!A
AOFtA
ACRew
CRI.~

AORX
FlRN!
PN)(!

IpOINTER F'OR LAW.,X)(
IL.EF"T SHIfT COUNTER
ISAVES ~ARTIAL. ADDRESS
ICR. L,F"
IPOINTER 'OR fIRST ADR,

A02. R

IpRINT rlRST AOR.
ICCA01R) II AOR1

OONi

ISeOON1)

KEYIN

IWAIT rOR INPUT
ISEE I' vAL.ID
IASC!I INPUT

OVE~

EXIT

L.E:GAI.
CTJ~

1<7

orST

CT~~

GETAO
F'AOR
AORgW
AORA

RO,8
ROTA
.t;'

AOTA
QUERy
PRO~
AOR~

CRl.t

'OR~P

PRNT
PN)(!
OVRL.P
PRNT
PN)(l
L.OCAT·'
L.OCAT
G£TAO-1
L.OCAT ••
AORl

ISHIfT LErT TO rROM ADDRESS
IG~T Ni:)(T OIGIT
IPOlNTLR fOR L.AW TABLE
INOT EQUAl.
(6 CHARACTERS
10,K,
I!II

IpRINT QUERV AND RESTART
INOW SEE I; 1ST ADR, IS
lIN SAME 4~ AS PROGRAM

10 K

leR. L.'

IPAINT "F'JRST"
IpRINT "AOR. IS WITHIN PROGRAM"
ITEl..L. WHERE PROGRAM IS
ISTAJqT ovER

I'.QE

MXCH1'

MXCH15
I

~1150

01151
01152
211153
211154
211155
01156
~115'

'6021210
04316.
143160
222'02
2143165
1020'5
202662
043151

~116~

102~31

211161
211162
211163
01164
211165
01166
0116'
011'10
01111
211112
011'13
01174
01175
01176
0117'
2112021
0121ZJ1
01202
01203

2212663

221':2721:3
542102
6012213
21421212
601561
101316

21121lJ4
01205
012"6
0120'
1lJ1210
12)1211
1ZJ1212
12)2,213
02,214
01215
01216
12)1211
01220
01221

601222
1021ZJ15
2026721
043151
1212031
2212671
043157
112)2"37
760"021
12)41575
101'71
201623
04157'
6011521

~43162

202664
043161
101541
101556
203145
5032211
2143145
1211624
6211165
2031621
~4:~164

IWAIT rOR L.AST 6 Ol~IT AnDRESS or BLOCK
I
AOR2
LAW
DAC
AORB
DiH1
AORQw
LAC.
ROTA
OAe
IriRST COUNT FOR LEF'T SHIrr
NRO!A
ICR, I.F'
JMS
CRI.~
AD)(R
IPOINTER ;OR LAST AOR,
LAC
OAe
PRN!
JMS
IpRINT LAST ADR.
~N)(T
ICCA02R) l:! ADR2
LAO
A02R
DAO
OVER
LAC
ICCDON2) Q OLST
OON~
DAC
EXIT
JMS
LAOR
IWAIT F'O~ INPUT
KEVIN
JMS
LEGAL
ISEE If' VALlO
CT;'!:!
LAC
IASCII INPUT
1('1
AND
OAC
CT32
JMS
GETAO
ISHIrT LErT TO rORM ADDRESS
JMP
LAOR
IG£T NEXT DIGIT
LAC
AOFt9W
OAe
AC~~
LAC
ROTt:I
OLIT
SAO
ROTA
INoT rQUAI. " (6 CHARACTERS
JMI'
10,K.
,·3
DAe:
ROTA
JMP
QUERV
IpAINT QUE~Y AND RESTART
JMS
PRO~
ISEE XF' LAST AODRESS IS IN
ISAME 41( AS PROGRAM
JMP
10,K.
STI.~
JMS
ICA, L,F'
CRl.~
LAC
AOfit~P
OAe
PRNT
JMS
IpHINT "LAST"
PNXT
LAO
OVRI..P
OAe
PRNT
JMS
IpRINT "ACR. IS WITHIN PROGRAM"
PNXY
I.AW
OAC
LOCAT.4
JMS
L.OOAT
ITF.;L.1.. WH£R£ PROGRAM IS
L.AC
GETAO-S.
OAC
1.00AT+'
JMP
ISTART OVER
AOR~

.EJECT

PAraE

MXCH1'

MxCH1'
I

ISETU ID ADDRESSES ANO PATTERNS BEF'ORE LOopING,

I
~1222
~1223

211224

~1225

211226
211221
t?J123~

211231
1211232

f1!11233

16~21~0

54:5163
141212121
6211234
543164
6210216
21213164
2143163
12143166
6211216

STI.P

543164
141212121
6211243
2213163
043164
2143166
61211216

CI<1.5T

211243
01244
0124'
211246
211241

2213163
!!52132421
214314'
21213164
52132421
543145
6211254
1212612
6181014

CBOTIoI

211251
211252
211253
211254
211255
2112'6
211251
2112621
1211261
1211262
211263
01264
21126'
211266
01261
0:1.27121
1211211
01212
211213
1211214
01275

ADRA

IA LAW = No 1ST ADD~ESS

JMFJ
SAO
JMP
LAC
OAC
DAC

01<1. 5 T
AORij
RTNl
AORB

IA LAW = NO LAST ADDRESS
IRESTART PROGRAM

J~"

SIM~

SI(P

211234
211235
211236
211231
2112421
211241
211242

01250

LAW
SAO

SAO

LTST

10NLV ONE SELECTED
IL,AST OF' BLOCK

AORB

IA L,AW • NO LAST ADDRESS

AORA

SI<F'

JMF'
LAC
OAC
OAC
JMP
I

LAC
ANO
OAC
LAC

AND
SAO

JMF'
JMS
JMP

2213163
142121211
34321215
34~164

142112121
6211212
203164
214201'
21213163
2143164
043166
22122115
12143163
6211216
203164

LAC
eMA
TAO
TAO
SMA
JMP
LAC
OAC
LAC
OAe
OAe
LAC

OAe
JMP

I.AC

04~166

OAe

2213163
12121121121

I.AC

PAX

.EJ£CT

CBOTH
AORA
ACAS

IONL,V 1 ADORESS WANTED

I.TIT
SIM\J

ILAST Or BLOCK

AORA

WOT1S
AOR2.

IrlAST ADR,
IMASI( BITS 3.4 ANO 5
ISAVr.
IL,AST ADR.
IMASI( 3,4 AND 5
ISOTI-I MUST I SAME 4K
10K
IpRINT QUERV
1ST ART ovER

AO,.A

I~JRST

1<1

12~S COMPL,[MENT
ISUBT~ACT LAST ADDRESS

1(1"'K
CTJ~

AC~a

1('21K
CT:S~

•• 3

AOR~

SJM~ ••

AOR8

ADDRESS

IrlRST IS > LAST IF' NEG.
IL.EAVE AS IS

CRI.~

AORA

AORB
LT8T
CRL.E
AORA

..'

AORB
LT8t
AORA

IrJRST IS NOW LAST
IL.AST Is NOW fIRST

PACE

MXCH1'

01276
01271
2113210
213,3211
013212
1213,303
12113214
211321'
01306
211307
1lJ131 121
1lJ1311

'621261
543141
6211312
760262
'43141
6rzl133121
7621263
'43141
601332
7621264
'''3141
6211355

S!MU

1lJ1312
01313
1lJ1314
01315
1lJ1316
211311
rzl1;'212)
211321
211322
01323
rzl1324
1211325
rzl1326
211321

203132
2143131
102075
2213163
'2132421
0432213
7JIUl00
.,40031
343212)3
1210"0
71elUJI2)
rzl43146
1004321
6211346

211:5312)
O1:531

2213133
6211313

51M2

01332
211333

203134
'01313

51M3

1lJ1334
rzl1335
211336
211337
12113412)
01341
01342
1lJ1343
12)1344
12)1345
rzl1346
1lJ1341
eJ1:1521
12113!51
1lJ1352
12)1353
01354

,ra"rzl2
21021012)
"42121211
12)5e01lJ0
203203
'4Z166
601346
137001
4432213
6211334
2213163
12)43212)3
730000
740031
34321213
721000
601334

SCP1

IIM1

I
I

LAW
SAO
JMP
LAW
SAO
JMP
LAW
SAO
JMP
LAW
SAO
JMP

a62

TNUM
51M2
26;$

Irf:ST 1 If EQUAL
ITEST 2 IF' EQUAL.

TNUM

ITlST 3 If EQUAL

264
TNUM

ITt:ST 4 If EQUAL

SIM~

SJM~

IWRITE PATT&:RN #1

LAC
JMP

SIMl·1

pews

IWRITE PATT£RN #2

LAO
JMP

PCW9

IPATTERN #3

ISYNC
IRlAO
ICOMPL.EMENT

IW~ITE

I.TST
,.4

ICHECK rOR END OF' BLOCI(

[EM
LAC
CMA
OAC
LAC
SAO
JMP
lSI
JMP
LAC
OAe
PL.A

TNUM

SIMl

peWA
LAC
OAC
CNTRL.
JMS
CRL.~
AORA
LAC
1(1Q1K
AND
OAC
WORK
PI.A
CMAIIAC
TAO
WO~K
PAX
LAW
·10~rara
CT4K
CAe
JMS
WRZ!E
JMID
STS~P

AX~·1

STICP

26~

SlM~.S.

WO~K

WORK

sert ..
AO~A

WORK

CMAIIAC
WORK
TAO
PAX
JMP
SC"~
.EJECT

IAODR£SS.l
ISTARTING ADDRESS

PAOE

M)(CH1!

M)(e~1!J

IROUTiNE TO SIMULATE TEST •• ALL ONES
IARE W~lTTEN INTO ONE 'K rlELD. AND
IT~EN 'HE AOORESS IS ~OO~[O. THE
1)( LINE SP!CI'ltO IN T~E ~IRST AOOR
III IE' TO 011010. AND THEN READ.
ITHE ~.ST AOOR, AND .~~ aETWEEN, ARE
INOT RI'EAENCEO.
~135'

01356
01'5'
01360
02,361
1l.I2,362
01363
01364
02,36'
01366
2'2,361
02,371
82,:S.,S,
01372
2'1,1.,3
01314
013."

1020"
203163
52'3240
043203
731101
741131
343203
72illl
11102'2'
043146

i!M~

2"'12'2'
"""
443146

JMI
CR~~
AOAA
LAC
1(111K
AND
WORI(
OAe
PI.A
CMAIIAC
TAO
WO~K
PAle
-2,lfcJ0i1
I.AW
OAe
eT"<
I.AW
-1
)(
OAC
lSI
CT4K
JMP
~
DIMI
ADA.
LAC,
AOA.
JMP
.-i

62'1367
1632,6J
223163
62'1374

IMASK rIE~O NUMBER

14K COUNTER

IWRITE 1'S
IOONE 'K WI-IEN SKIP
ICI.EAR x.v I.INE
IHANG HERE AND READ

ICHECK WANTED .OORI~S ANO IIROGRAM AREA
02,3"
2'1,3.,.,
01,410
~1.11

02,412
2'1413
014.4
82,4.'
02,416
01.07
014UJ
2'1411
1l.I1412

2'1112'1
1006'3
04117'
161110
543160
621316
203160
503241
'411"
741100
621316
441376
621316

'' __ DO

JM8
OAC
I.AW
SAO
JMII ..
I.AC
AND
SAO
SKit

ISAVE

ACA~W

INONE Jr • I.AW

"RO~

AOR~W

1(1111(
CRI.~

JMII ..

PROG

JMII.

IIAO~

IS.

wHE~E

CRI.'-

.EJECT

PAO~

ICeCRL.f) :I CURRENT 4K B.ANK
IEQUAL.
IEXIT
IRETURN+1
IExIT

"ACE

M)(CH1'

MXC~l'

IBIT SUPPRESSION INPUT ROUTINE, TyPE A
ICARRIAGE RETURN TO R£SUMI TESTING AL~ BITS
ITO SU'PR£SS. TYPE r~t O[CJMAL BIT POSITIONCS)
ISEPARATING EACH Wlr~ A cOMMA, TERMINATE WJTH
IA C.R~ PRESS RU80U! TO ~£START TH~ LINE IN
ICASE or TYPING £RROR,
211413
211414
21141'
01416
21141'
2114221
211421
211422

212100210
143112
202665
214315'
2212666
2143162
1020''
102O37

0142~

101547
!U321'
6014'2
'43227
601414
'43220
601423
101522
601'67

211424
0142'
01426
rU,427
211430
01.31
01432
211433
01434
0143'
01436
211.31
014421
Q)1441
01442
e1~43

211444
01445
01446
014.,

SUFISIT

AGAIN

'41200
601'16
214316'
10154'
'43220
6015021
'43217
601'04
543227
601414
101522
601'67
I

21
OIM
L.AC
OAe
l.AC
OAe
JMS
JMS
JMS
SAO
JMP
SAO
JMFI
SAC
JMP
JMS
JMFI
SNA
JMP
OAe
JMS
SAD
JMP
SAO
JMP
SAO
JMP
JMS
JMfIJ
.EJECT

sew

SUPX
PRNT
SUPXA
OVE~

IS~PPREssJON CONTRO~

ICCSUPXA)

SUPBIT+1

CRLE
PNX!

lOR, L.f"
IpRINT "SUPPRESS"

I(EylN

IWAIT F"orNPUT
ICHECK F"OR C.R,
IOONE SELECTING
ICHECI< F"OR RuBeOUT

1<21~

EOT

1<;S7?

SUP~IT.1
I<a,~

AGAIN

NUM~

QUJ:~Y

i!ER9

TTYW
KEYI,N
K2'~

[OM

K2S.~

(OTA
1(~1~

SUFlSZT • .1
NUMe
QUERV

WORD

IPOINTER FOR SUPPRESSS

ICHECK F"OR COMMA
IwAIT F"OR NExT BIT POS,
IO;TERMINE INPUT NUMBER
INOT VALID RESTART
ICHECI< F'OR 0
IPOSITIoN I!l
ISAVE OIGIT
IWAIT rOR SECOND DIGIT
ICHECK rO R COMMA
12 OIGIT POSITION
ICHECI< FoR C.R,
IOONE
lAue-OUT l' NO SKIP
ISTART OVER
IO~T£RMINE NUMBER
INOT VALID, RESTART

PAGE

MXCI-I1'

211~521
rtl1~51
211~52
211~5J

21431121
2rtl!161
144rtl121

014"
rtl1455

144010
2431721
'40001
2143111
,"1"
343111
043111
221324J
'440221

211~56
211~51
rlI1~621

rtl1461
211'62

211~63

01'64
01465
01466
01461
01"21
181"1
"1"2
181"3
01"4
01"!5
01"6

MXC~15

TT'1'X
TTVW
ROL.l R9L

ISAVE NUMBER
IpREVIOus DIGIT'

)COR

T1'1'X

ICOMBINE DIGITS
11' COMPLEMENT
ISAVE

~Ol.J

'4~rtl1rtl

ROTOR

~431'1

2~31'2

21431'2

6QJ1~23

EOT

'~0QJ01

"1'QJ2I
21UJ01
01'02
"1'03

203161
14fU'01
34320'
601462

EOM

01!50'
O1'0'
01506
2115o,
01S11Zl
01511
211'12
01'"3
211'"4
211515

20316"
,.fl001

[OTA

3~320'

0.3171
2032.3
'44020
4431'1
601511
243172
601413
2213172
243243
2143172
601423

I!AO

TTV~

ISUBTRACT 1.
14 "rtl021 rtl

TTVV

ISMJF"T COUNT

sew
sow

IINSERT IN CONTROL WORD

AQA.IN

IwAIT rOR NEXT BIT POSITION

l.AC
eMA

sew

ISELECTION COMPLETED

OIM
JM!
JMP.

sew

OAe

01~'7

TT'1'Y
-1
TT'1'Y
I<'II~I<

lSi
JMP
)COR
OAe
JMP

601464

2QJ31,2

CMA
OAC
L.AW
TAO
OAC
LAC
RCA

043113
1431'2
1010"
621413

211'16
211'1'
211'221
211121

OAe
L.AC

l.AC
eM.
TAO
JMP
l.AC
eM'
TAO
OAC
l.AC
RCR
%Ii!
JMP
)C01If
JMP
l.AO
)COR
OAe
JMIP
.£JECT

.-a

SIT~UP

SU"SIT

CRl.~

IcR,Lr
IEXIT

TTYW

IsINGL.E DIGIT

1<1
ROTOR
TTYW

IINPUT DIGIT

1<1
T'YV

12'5 COMPL.EMENT

1('0~1(

14~01Zl2l0

._TTYY

ISMIF'T COUNTER

.-2

sew

£0'·1

sew

IE XIT

I('QJ~I<

14~00210

AGAIN

IWAIT FOR NExT

sew

PACE

MXCH1'

1211522
01523
1211'24
rlJ1!525
1211'26
211527
1211'3121
rlJ1'31
01532
01'33
O153.
01535
1lJ1'J6
01537
1211'.121
181'.1
01'.1
015.3
O1'.4
0154!
01'46

121 12J012JrlJ 121

MXCIol1!J
I

NUMB

20~145

503226
543221
'412121rlJ
60153.
•• 1522
20314'
5032121'
621'22
543223
'41210O
'21522
20314'
512132rlJ'
,.1121210
61211'4'
".".,O
6211462

rlJ
t.,AC
ANC
SAC
JMP

lSI

t.,AC
ANO
JMP ..
SAO
SI<P

JMP ..
t.,AC
AND

ICHAR.CTE~

01'4'
121 1551lJ
el!J51
01552
01"3
01'54
01555

00OO18O
71lJQJ312
'013036'U."1
'1211312
043145
621547

t<EVIN

ICMECI< fOR A 270 OR 271
IR~TURN+1

CT~~

K7
NUM6

K2'~

NUMB
1<1.

JMP
t.,AW
JMP
t.,AW
JMP

..,

NUMI:I

CTiJ~

saA

I
I

IASCII INPUT

I<J1~
1<26~

SI<P

.,","
601462

CT;JZ

IExIT
I- 8 OR 9 IF' EQUAL
IINVAL,IO
IA~CII INPUT
I- A 8 IF" BIT 17 = fZI

,+3

IA 9
ISMIF'T COUNT OF' 8

-~s.

ISMIPT COUNT or 9

-1"
ROTOR
ROTOR

IN'UT RO~TZNt

18
KiltS
1<1'
JMP
I<RB
CAe

JMPI

IINITIALI~!

,-1
CT~~

KtVl,N

IwAIT fOR INPUT
IR~AO

ISAVE

BurrER

ICI-IECK VALIOITV 0' INPUT CIoIARACTER
01"6
1211'57
01'618
181'61
1211562
rlJ1'63
al'6~

rlJ1'6!J
1211'66
121156'
02."0

00'j(IJ0B
21213145
543221
6012141
'43217
623161
'213226
'43221
62155'
11212612
623162

t.,EGAI.

QUERV
I

e
I.AC
SAO
JMP
SAO
JMP*
AND
SAD
JMFI ..
JMS
JMP.

.EJECT

CT~~
1<;S1~

I<vaRo
1<21~

ExIT

K~'0

1<26~

I.EGAI.
WOTIS
OVER

I ASC It INPUT
lIS IT A RUB OUT
IsTART OVER
ICHECK POR e,R,
ILINE TERMINATED

ISHOUI.O EQUAL 26~
10,K,
IpRINT QUESTION MARK
IS~ART LINE OVER

"ACE

MXCJ.f11

MXCW1PJ

IPRINT AREA CONTAZNlNG PROGRAM
01"1
01"2
rU,"3
"1".
01'"
1315'6
131'77
016Q113
016Q1t
1160a
01613
81614
Qlit.,
Qll'16
81617
11618
11611
11612
0i6S,3
111614
8161!
11616
01617
11620
11621
81622
01623

0000130
150e04
'03214
1413211
621"1
1181Q115
201612
"431"
101137
101653
"43213
14.811
14'811
741818
'13207
343221
1811131
213203
74.1111
74.810
14111Q1
'41818
'132111
343221
1Q12Q132
18117'
621"1

L.OeAT

I.A,
AND
51A
JMII'
JMI
L.AC
OAe
JMI
JMI
OAe
RCI..

1(11~

I.O(:AT

IC R , I.'

CRI.~

Pl8lN
PRNT
,.NxT
WHeRE
WORK
RTI.'

AND
TAD
JMI
L.AC
RCI..

1('

AND
TAe
JMI
JMI
JMP*

1(1

IPRINT "pROGRAM IS IN fIELD"
IWHEAE IS IT
.AI.

I(a.~

!lCMAR
WORK
RTL.'

t<Z6i'

PCHAR
CRI.~

LOCAT

IPRINT 1sT HAL.; rIELD NO.
RTL.

RTLo

IPRINT 2ND IoIAI." rIELD NO.

lOR. L.'

IEXIT

I
I

IGENERATE 6 DIGIT ADDREssES ,ROM I(~YBO'RO INPUT

11624
1162'
181626
01621
116313
01631
01632
81633
131634
0163'
01636
0~631

02,640
01641
01642
01643
02,644
02,64!J
01646
0~641

1211650
01651

011011
107104
2221182
04316'
203145,
.4316'
601650
243168
04316riJ
777771
'62702
6211642
4427212
621624
202103
042702
2221132
04316'
441624
621624
144010
601631

GETAD

CN"OT

e
I.EM
I.Ae,
OAe
L.AC
lSI

CT3~

NROIA

JMP

GOI.~"T

OAe
I.AW
SAD.

-1

)COR

JMP

IS.

JMP ..
L.AC

OAe

I.AC,
OAe
GOI.E,T

ROTA
NROIA

rSI
JMII.

RCI.
JMP

ACReW
ADRQW

IG~T A NEG, LAW rOR COUNT
Isj;q PT COUNTER
IASCII INPUT

IROTATE 1 LEFT
IAOR. CONT~OL WORD

ROTA

IREC'O 6 DIGITS Ir EQUAL

ROTA
GE:TAO
ROTa
ROTA
RO'.
NRO!A
GETAO
Gi;TAo

IL.AW POINTER. 1
I[XIT AND WAIT 'OR NEXT
IESTORE POINTERS

,+"

CNROT

IRETURN+1
IEXIT

"AOt

M)(C"U"

01'52

""60
""63
111166

02,653
~1654

02,6"

"1656
"1651

""'"
"",.
"""

M)(CH1'
I
ROTC

l.AW
L.AW
L.AW
L.AW
L.AW
L.AW

.EJECT

·i0
.~5

-2.a

IROTATE 15 LEfT fOR 1ST DIGIT
112 ~EPT fOR 2ND
19 L.EF'T fOR 3RD

.11

16 LEfT fOR 4TI-i
13 LEfT fOR 5TH

-2-

INONE fOR 61'101

PAGE

2.,

MXCI-I1'

MXC~1!

IROUTINE TO ACCEPT TEST LIMITS FROM KEVBOARD INPUT
I

2116621
01661
211662
01663
0166.
1Z!166'
01666
0166'
01610
211611
016'2
01613
016'4
016"
01'"
016"
01'00
01'01
01112
0111i!13
01'04
01'S'
01'0'
01'0'
01'10
211111
IU,'12
01'13
01114
01'1'
01116
01111
1Z!1120
01121
01122
01123
01124
0112'
01.,26
01'2'
01730
01'31
01132
01133
01134
0113'
02.'36
1Z!1?'J?
0114rlJ
01'41
01'42
01".3

212121212121
2211623
041''''
12120."
202613
1Z!431',
1212213'
10207'
202614
043162
20261'
043161
101541
54322'
'01661
1015"
20314'
'0320'
'44020
'421i!120
'.01i!120
0431'2
10154'
'43221
601661
101'"
20314'
'0320'
144020
'41120
'42021
142020
2431'2
0431'2
101.'41
'43220
141000
601.'61
10154'
543227
601662.
101"6
20314'
'03201
14.020
142020
14""20
043153
1015.,
54322'
601,661
1''2,556

SL.MTS

L.AC
OAC
JMS
I.AC
OAC
JMS
JMS
L.AC
OAe
L.AC
OAe
JMS
SAO
JMIt
JMS
L.AC
AND
RCR.

G~TAO·S.

IRES TORE JMP ..
ICR. LF
ITEST ~IMITS POINTER

L.OCAT*4
CRL.~

TI.MX
PRN!
PNXr

IpRINT "TEST LIMITS"

SI.MX

IC (SLMX)=SLMTS+l

CR~~

ICRd."

OVE~

OON~

IRE TURN AODRESS=CREVR

[Xl!
KEVIN
K37?
SI.MTs*S.
L.£OAL.

IWAIT FOR INPUT OF MEM, NO.
IS~ IF" VA~tD
IASCII INPUT
IMASK 15.16 AND 17

CT:t2

K1
RTFU

RAR

'1~~T1

OAe
JMS
SAD
JMP
JMS
L.AC
AND
RCR,

KI: VI. N

IWAIT rOR !NPUT OF' F'IELD NO.

L.EOAL
CT3Z
K1
RTRI

ISEE IF vALlO
IASCI I INPUT
IMASK 15.16 AND 17
RTR

XOA

'l"~T"

OAe
JMS
SAO

5KII
JMII
JMS
SAO
JMII
JMS
l.AC
AND

KJ1~
S~M!S.1

RTR.

'ZR~Tl

IrlRST F"IELD TO TEST IS STORED
IwAIT fOR COMMA

QUeRy
KEViN
KJ1r
SL.MTs*"
l.tGAI.

IpRINT QUERY, AND RESTART
IWAIT F'OR INPUT OF' HEM, NO.

KEVIN
Ka,!

IsEE I' VALID

I ASC I r INPUT

CT:J~

RCR.

RTRJ

OAe
JMS
SAO
JMP
JMS

L,A'T1
KEVIN

IWAIT rOR INPUT OF' FIEL NO.

SI.M!S*1
L.EGAL

ISEE IF vALID

K~1~

RAR

PAQ[

MXCH1'

011.4
1211"'"
01' .. 6
01''''
01750
01'51
01"2
01"3
211154
01'"
1211156
1211'"
01'60
01'61
01'62
01163
01'64
01"!

2031.'
'03207
144020
142020
14221221
14221221
243153
043153

""'7

04J146
443146
6(U.'6'
2031'2
'4101112,

M)(C~1!J

t.AC
AND
RCR.

)(OR

L.AST1

OAe
t.AW

CRIVR

34~20'

OAe
lSi

JMFI
t.AC
eMA
TAD

TAO

343153
'41100
611114

SMA

JMP
I

.EJECT

CT3~
RT~_

t.AS~1

-1
C1"K
CT.K

RTRJ

IASCI! INPUT
IMASK 15,16 ANO 17
RTR

I~AST rIE~O

TO TEST IS STORED

QutRv

INO 2ND DIGIT Ir NO SKIP
IpRINT QUERY ANO RESTART
IP'IRST r!ELO

1<1

L.ASTs.

12 _'S COMPI.f:MENT
IrlRST IS >I..AST IF' NEG,

QI(.~

IrlRST IS L.OWEST ORDER

rZR~T1

".OE

M)(Cj.11'

01166
01'67
01'70
01"1
011'2
01"3
01174
011'5
01'76
011"
022100
020rlJ1
022102
212003
212104
e1210!
021UJ6
02101
02010
02111
021112

203152

M)(C~1'

0~S151

2031'~

043152
20S151
043153
203153

OKAS

5~31'2
'~1000

60201?j1

5~312'

1~1rlJel0

602021'
76002121
041'"
101"1
601661
10154'7
54321'7
621660
6iUo'6 '7

AI.OI<

LAC
OAe
LAC
OAO
LAC
OAC
LAC
SAO
SI<P
JMP
SAD
SI<P
JMP
L.AW
OAe
JMS
JMP
JMS
SAD
JMP.
JMfI

rlR~T~
CT0~

L.AST1

'lR~T1
CT0~

L.AS!1
I.A$T1

rlR~T1

AI.OK

INS~LO

ISAVE
ILAST IS NOW FIRST
IfIRST IS NOW LAST
ISEE If ONLY 1 SELECTED
lyES, SEE IF IT HAS PROGRAM
If EQUAL.
ITELL WHERE IT IS

IR~JECT

AI.OK
L.oeAT·.
L.OeAT

ICHANGE JMPo TO NOP

KEVIN

IRES TART
IwAIT fOR A C.R

SL.M!S

IExIT
IpRINT auERy AND RESTART

SL.M!S·S,
K2.1~

QU~Ry

IllTU" ACI. flREss CAAAJAG£ RETURN TO EXIT
02113
02014
02e1!
021116
02017

"2"Z0

02021
02022
02123
02124
02025
02026'
0202'
2)21321
2)a031

001000
1021."
211676
0431"
1212213'7
700:512
701lJ31lJ1
6021lJ21

SETAe

0
JMS
I.AO
OAe
JMS

CRI.~

SETX
PAN!
PN)CT

ICR,Lo"
IPOINTER
IpRINT "SETUP ACS"

I<AB

I<S,

,,,11312

I(RB

JMP

.-s.

5~3221

SAD
JMfI
L.A'

K317
SL.M!S·S,

601661
7'1004
2143127
12110"
62201J

OAe

JMI
JMP ..

.EJECT

MC\IIA
CRI.~

SETAe

ICHECK roR RO
IRESTART
Ic R,I."
IEXIT

"AGE

MXCH1'

MXCIof15
I

IPRINT ROUTINES rOR MESSAGES

I'-RINT ONE: CIofARACTfR AND EXIT
02032
02033
022134
121203'

1212036

0021000
'00406
'021401
602034
622032

IICIofAR

0
TI.5
T8'
..IMP
..1MI'.

PCHAR

IPRINT A STRING ANO &: )( I 1'.'

02037
02140
02141
02042
02"43
1212"44
022145
022146
1212214'
1212050
02051
O21.')'2

022153
12122154
020'!I
0205&
0205'
02Q1621
021361
1321362
O2063
rlJ21364
0206'
02066
021361
0211J10
02rlJ71
rlJ2"'2
0211J'3
0211J74

000000

"",5
04314'

443157
2231'7
'41200
622037
1214221"
'03213
'43213
6121112162
2143142
""40
343142
'40100
602Q112
242053
243224
1132032
44314'
141rlJ00
601rlJ40
20207'
,42rlJ20
'42020
'42020
602046
203142
343215
602061

PNXT

MASK

Cl<3

21
L.AW
OAe
lSI
L.AC.
SNA
..IMP.
OAe
AND
SAO
..IMP
OAC
L,AW
TAD
SMA
..IMP
XOR
XOR
JMS
IIi!

-3

CT3~

PANT
PRN!
PNXT
CRI.~

1<"

1<"
CK3

SJT~ON

IAI.L DONE IF' "
IEXIT
ISAY£: WORD
IMASK 6 BIT CHARACTER
ICHECK Ir RUBOUT
ISAYE CHAR

-40

BIT~ON

..'

CRI.~-3
K3121~

PCIofAR

CT3Z

SICP

ICHARACTER COU~TER
IWORO POtNTER+1.

IN£G. = AL.PIofA
INUMERIc
IMAKE ALPIolA
IpRINT ACS 10-11
ICHECK rO R 3 CHARACTERS

..IMP
PNX!·S.
L.AC
CRI.~
RTR, RTRJ RIR

IGET NEXT :5 CHARACTERS
IPOSITJON NEXT

..IMP
L.AC
TAO
JMP

IPRINT IT

.!:J~CT

MASK
81TCON

1<2"~

CK:J-1

IMAKE: NUMERIC

II A1'[

M)(CH1!J

M)(C~1!J

ICARRIAGE RETU-N, l.lNE fEED
I

02""5
020'16
0;!07?
02100
021"'1
02102
02103

0'HJ000
'160215
102032
'42102
62207'
760212
60207'

CRL."

0
l.AW
JMS
SAO
JMFt.
l.AW
JMP

21'

IASCII CR

PC~AR

,·2

CRl.~

IExIT

212

ILo'

2.'

IAsCI I SPACE

CTJ~

ICOUNTER

CRL.~.Z

IPRINT SPACES
0a104
0210'
02106
1lJ211lJ?
92110
02111

000000
7602421
102032

SPING

"l.AW
JMS

PC.,.AR

JMP
JMP.

SPINO+1
SPING

IS.

.-4314'

60210'
622104

IE x lT

IIIRINT Sl)( OrGIT OCTAl. NUMBERS

02112
0al13
02114
0211'
"'2116
0211?
02120
02121
02122
02123
02124

0212'
02126
02127

001000
771'72
04:12,.'
20107'
1440121
741010
041"'7'
'402110

"ROCTL.
POIITN

!J2I320'

3.3221

1I/J22132

44314'
621211'
622112

0
L.AW
OAC
l.AC

-6
CT3i
CRI.~

"01..

RTL.

OAe
FUL.
AND
TAD
JMI
lSi
JMII
JMP.

CRI.~

.EJECT

IDIGIT COUNTER
lo9TAl. NUM8(R

1<1

1(26~

PCMAR

IpRINT

CT3~

FtOSlTN-1
P~Q~TI.

I[XIT

IPOSITION NEXT DIGIT

FtAGE

MXCH15

MXCH1'
IXCH1! • TAPE 3
I

IROUTINE TO OET£RMINE '![~O rOR RE~OCATInN
0i130
02131
1212132
1212133
1212134
fJ2135
02136
fJ213'
02140
02141
02142
1212143
02144
121214"
1212146
0214'
021'0
02151
02152
02153

:20:2677
04J2'1
21213153
543152
6fJI2I216
2031:24
741100
6fJ0216
'40020
'4140fJ
6fJ2227
443124
203153
04312'
.,70000
34312'
0431'4
100653
'43125
602212

CMOVE:

L.AC
OAe
L.AC
SAO
JMP
L.AO
SIIA
JMP
RAR

ERT6L
ERWRO
I.AS!1
Jl'IRST1

RTN;

f"L..~S
RTN~

SIlo.

JMFt
!I~

L.AC
CAe
L.AW
TAO
OAe
JMS
SAO
JMP

NXTMV

"I..~S

I.AST1
I NSfi'" I. 0
·11lJ~01lJ
IN8~1.0

N)(~OC

WHERE

!NS~L.O

SU91

1L.4ST TO TEST
IOON'T MOVE If EQUAL
IRE TURN
IpROGRAM 'LAGS
IPORetO MOVE MADE I~ A 1.
IOON'T MOVE
IL.INK ~ elT 17
IF'lRST MOVE If SKIP
IS~TUP FOR NEXT MOVE
IS~T

rl.AG rOR 1ST MOVE

I.~K
IS~BTRACT

4K FROM CURRENT
INXI.OC = D[ST'N FOR NEXT TIME.
IWHERE ARE WE NOW
IA~REAOv IN LAST 1 IF EQUAL
ITMV NEXT LOWER

INOW CI-I£CI< 'OA ERROR RtcoROEO IN NEW F'IELD

0215.
02155
02156
fJ21"
02160
02161
1212162
02163
1212164
fJ2165
02166
1212167
~21"0

02171
1212172
fJ2173
fJ2114
0217'
1212176
1212177
1212:20121

760fJ00
563251
602167
223251
543125
602201

CI<ERR

lSI

~432!51

212132'1
!421fJ0
7410fJfJ
61212151
2fJ2677
043251
2fJ312'
fJ43176
112106'3
fJ4317'
543176
600216
203116
6fJ2J46

L.AW
SAO.
JMP
L.ACSAO
JMP

,TMV

ERWRO

IERROR IN 'IEL.O IF' EQU41.

ERW~O

IPOINTER • 1

ERWRO
EN£RR

L.AC
OAe
L.AO
OAe
JMS
OAe

[RTtiL
£RWRO

JMII
L.AC
JMFt

,EJECT

INO ERRORS IF = LAW
MOVE

IINITIALI~E

lNS~LO

[QUAL

i.AC
SAO
SI<P
-IMP

SAO

ERW~O

STMV

IENO 0' TABL.E IF' EQUAL

CI<£RR.~

!NS~L.O

IR~STORE

~OINTER

INf:W F'IELO

Oi:STN
WHERE

SOU~CE

OESTN
RTNl
OESTN
MOV~

IN~W

AND CURRENT ARE EQUAL

IMOVE: PROGRAM

"AGE

M)(CH1'

MXCH1'
IERAOR IN NEW 'IEL,O.

02201
02202
02203
022Q14

0220'
02206
0220'
02210
02211

543152
602224
'41200
602210
1'0000
343125
043114
202611
0"251

02212
02213
02214
0221'
02216
02211
0Z220
212221
02222
02223

203114
'4312'
6212201
043125
543152
602154
,'''21021
34312'
12143114
62111'4

02224

201617
043251
6iJIJ216

0222'

212226

[QUAl.

sulU

SAO
JMP
SNA
JMP
L,AW
TAO
OAe
L,AC

,.'

lIS IT fyElD 0
IVlS
1.4K
ISUBTRACT 4K FROM NEw fIELD
INEXT NEW P!ELO

·10~0"

L,AC

NXL,OC

INS~L,O

JMP
OAe

EQUAL.

JMP
L.AW
TAO
OAO
JMP

CI<ERR
NXL.0C
CI<ERR

L,AC
OAe
JMP

ERTaL.
EAWRO
RTNl

.EJECT

IF" EQUAL

IDON'T

OAe

SAO

NEXT l.OWER

"lF~ST2.

ONMVE

INSf.I.O
NXL.0C
[RTSL,
[RWRO

SAO

ONMVE

T~V

INS~1.0
"IR~T1

·12J~e"
INI~L.D

TRV r-.JEXT

IRES TORE POl~TER
INEXT NEW 'IEl.O
= CURRENT NEW F'IELD
ITRV NEXT L.OWER
INtw NEw PIELD
100ES IT = L.OWEST PIEl.D
ICHECK fOR £RROR

11 5 !T

ISYBTRACT 4K
INEW PIELD 'OR NEXT PASS
IR~STORE POINTER
ISTART OVER

!'AGE

MXCH15

MXC~1!5

IROUTINE TO OETERMINE PROGRAM DEST'N AFTER MAKING ONE MOVE
I

02227
02230
02231
02232
02233
02234
02235
1212236
1212231
212240
1212a41
02242
rlJ224J
02244
21224'

1021653
043175
760000
563251
6rlJ2246
21212671
12143251
2232'1
543174
61212266
443251
21213251
5427rlJ2I
141000
6212236

1212246
022.,
022'0
02251
02252
02253
0225.
0225'

202611
12143251
203174
543125
60225'
'43152
6rlJ230J
543152

02256
0225,
02260
1212261
02262
02263
02264
0226!J

6rlJ2277
12143125
"0rlJI2I0
343125

NXTMV
CKNXT

JMS

OAe

I.AW

SAO-

JMP
I.AO
OAe
I.ACSAO

JMF'
!SI
I.AC
SAO
SK~

WI-jERE
SOUHCE

Iw~ERE

E:RWHO
STNXT

INO ERRORS IF 1ST

IS PROGRAM NOW

= LAW

ERT~L.

ERWRD
ERWHO
NXL.0C

suez

ERWRO
ERWRO
£N£RR

JMpt

CKNXT.'

L.AC
OAe
L.AC

[RWRO
NXL.OC

IGET AN ERROR ADDRESS
leRROR IN NEXT

IOONE

TA8~[

rIE~D

TRY NEXT

AND NO ERRORS

~431'4

2rlJ312'
043116
60a346

STNXT

SAO

JM"
SAO
JMI'
SAO
JMP
OAC
I.AW
TAO
OAe
L.AC
OAe
JMP
.EJ!:CT

ERTB!.

INS~I.P
~

F'IR~T1

IRESTORE

~OINTER

INi;w F'IELO

100ES IT

CURRENT F'IEI.D

INS~I.C
·1"~00

100ES IT • L.OWEST fIEL.D
IvES. CLEAR F'~AGS AND MOVE
100ES THE CU RENT ALSOa
ITHE I.OWEST FIELD,
lyES. SETU~ rOR HIGHEST fIELD
IN~W CURRENT fIELD
1_4K

NX~OC

INEW NEXT F'IEI.O

MveK

'1P'~T1

NXTHI

INSF'L.O

!NS~L.O

OESTN
MOV~

IMOVE FROM ~ERE TO C (DESTN)

j:>AGE

:55

MXCH1'

MXO~15

I
~2266

121226'
{212270
eJ22'1
1212272
02273
02274
{212215
1212276

21213114

54~152
6121222~

,'l2Il21eJl2I
3431,.
12143174
543125
61212261
61212234

1212~1212

21213153
5121324'
12143174
61212234

121231213
121231214
121231215
12123"'6
12123"'7
023112l
1212311

1121121653
121431"
2"'3114
12143125
12143176
143124
602346

12122"

1212~12I12J

121231211

SUB2

NXTHt

MyiH(

~AC

DNMVE

~AW

·10~eJ0

rl~Si1

TAD
OAe
SAO
JMP
JMP

SUB2·1
CI<NXT'3

LAC
AND
OAC
JMP

L.AST1
KJ'k?K
NXL.OC
CKNXj.3

JMS
DAC
LAC
DAe

SOURCE

OAe

O!M
JMP

NXI.0C

SAD
JMP

.EJECT

NXL.0C
NX~OC
INS~L.O

WHERE

NXLOC

INS~LO

OESTN

f"L.A~S
MOY~

lIS NEXT:: rIEl.D 00 OR 1ST TO TEST

IVE.S,

DO~.I1 T

MOVE

1.4K

INEW NEXT F'IELD
IDOES IT :: CURRENT fIEl.D
IVE.S
ISEE IF' [RROR IN NEW FIELD
IL.AST iO iEST
ILAST ~ NEXT FIELD
ICHECK FOR ERROR

~AGE

02312
02313
0;314
02315
02316
02311
02320
212321

MXC~l'

203243
140001
'03124
243243
04~124

2026"
0432'1
1024'5

MXCM15
I~CUTIN£ TO rOACE MOVE T~r PROGRAM_ DESTINATION
IrZEL.e. MUST BE TV~~O IN BV THE OpERATOR (0~-37 OCTAL),
I
1(40~K
L..C
rCOMv
OM.
ANO
'I.'~S
XOR
IS~T BIT o F'OR F'CDMV rL.AG
I('''~K
DAe
'I.'~S
~AC
ERTt:JL.
DAe
ERWRD
IR~STORE TABLE POINTER
JMS
GO TO
IPRINT GO TO rlELO

ICHECK

0~322

02323
02324
11232'

02326
0232'
02330
02331
02332
02333
02334
0233'
02;536
"2337
02340
rlJ2341
rlJ2342
02343
02344
0234'

160000
563251
'IlJi346
223251
'411"
61lJ133'
.432'1
2032'1
'42100
602336
60232'
102433
20a677

CKrco

'0-

~RROR

L.AW
SAO.
JMII
I. AC,
SAD
JMP
lSI

XPRT
I

0432'1
203116
'43115
601216
04312'
'''3242
Ql43201

L.AC
SAO
JMII
JMpt
JMS

ERW~O

MOV~

ERWRD
DES!N
X~Rr

ERWRo
ERWRO
£NCRR

,.3

CK,gO.~

~RS~L.

I.AC
OAe
LAC
9AO
JMI'
OAe

fRTjjL.
ERWRO
D£STN

OAe

PINX

AND

IN NEW rlELO

.EJECT

SOU~CE
RTN~

INSEL.O

1(31~1<

INO ERRORS IF' 1ST iI!I LAW
IS~E WHERE TO GO

100ES ERROR I NEW rI~1.0
IvES, PR rNT MESSAGE
IPOINTER.l
IsEE I' [NO or TABLE
IOONE: ANO NO ERRORS
I~RINT

ERROR IN SELECTeD 4K

!'AaE

M)(CH1'

MXC~15

IROUTIN£ TO REL.OCATE TIoI£ P~OGRAM

02346
02347
02350
02351
02352
02353
02354
0235'
02356
02357
02360
02361
02~62

142603
2213176
503242
043201
1721000
043146
2213175
043177
140031
343116
721000
143204
223177

02363
02364
02365
02'66
02367
023121
02311
02312
02373
212374
02375
212376
02317
02400
02'01
02·41212
02403
2124214
0240'
02'06
024217
02410
02411
02'12
02413
02414
0241'
02416
212417
02420
02421
02422
212423

043141
102442
0502100
210000
'63177
74U'21eJ
1212554
44'1'7
7312101
443146
141000
6212424
2213141
542655
141000
602362
223177
542716
602363
5213233
243116
102442
215"000
2100210
'03233
24311'
563177
7410210
1212"4
443177
13'10211
443146
6024213

02424
02'25
02426
02427
02'30

1025321
20317'
'14eeJ31
343116
'1212100

MOVE

MOSOM

DaM
L.OCER
L,AC
OE5TN
AND
,<J0~K
DAe
PINX
L,AW
·10~00
OAO
CT41<
L,AC
SOUROE
OAC
MOV~S
CMAIIAC
TAO
O!STN
PAX
OI!M
MEMAOR
L.AC ..
MOV~S
OAe
TNUM
JMS
RT1~L.
OAe
X
)(
L.AC
SAOMOV~S
SI<I'

JMS
lSI

MVEHR

MOV~S

/.4K

/4K COUNTER
ICURRENT PIELD

INEW F'IELD
IL.0C j!ERO START
IMOVE fROM CURRENT
IS AVE:
IPUT IN NEW F'IE~D
IRE AD BACK
ICOMPARE
10K
IpRINT ERROR INF'O
IINCREMENT ADDRESSES

A)(~·1

lSI

CT.K

SKI'

JMP
L.AO
SAO
SI(P

AJIN

JMP
L.AC.
SAO
JMpt
AND

CINO
TNUM
OL,MT
MOIOM
MOV~S

I~UT

L.AC

X
X

IPUT IN NEW rIEL.D
IR~AO BACK

ANO

1<"~1

JMS
OAC

XOR
SAO-

RT1~L.

SOURCE
MOVES

SI<P

JMS
lSI
A)(Fh1
lSI

JMP
I

IOONE INDIRECTS Ir EQUAL.

OL,MTA
MOSOM+1
1<1171
OESTN

xOR

CINO

IOE~!MIT%Na CHARAOTER
IAOJUST rNorRECTS

MV£R~

MOV;S

IMASK ADORESS BITS
rIELD NUMBER ON IT

ICOMPARE
10 K
I~RINT ERROR INro
IINCREMENT ADDRESSES

CT4K
AJIN

JMS
[NOT
L,AC
SOURCE
CMAIIAC
TAO
OE:S!N
PAX

IWAS TRANSrER MADE OK

IIAO£

M)(CH1'

M)(C~1'

~2'J1

7400210

NOli

~2.J2

610216

JMII
I

.EJECT

RTN~.)(

I£XIT F"ROM ~ERE TO Loe
IRTN1 IN NEW F"IELD

PAGE

MXCH1'

MXC~15

IFIRINT
212'33
02434
212435
212436
212431
02440
212441

0210212121
102075
2212715
2143151
12122131
102211'
6212312

I
F'RSEL

ER~OR

IN SEL.E.c:T[O 4K

0
JMS
LAC
DAe
JMS
JMS
JMP

CRL.~
ERS~L

ICR, LF
IT!;:XT POINTER

PRNT
F'NXT

IpRINT

CRL.~

rCOMv

IWAIT FOR ANOTHER CHOICE

IROTAT[ INSTRUCTION 19 L.[F'T 9EF'ORE MOVING

212442
212443
02444
02445
02446
21~441

02450
212451
212452
212453
21~4'4

001212100
144000
043141
171161
2143151
2213141

RT19L

14~~10

142010
443151
602451
622442

21
CL.L.
DAC:
LAW
DAe
L.AC
RAL.
RTL.
lSI
JMP
JMPt

TNUM
-11

CT0~

TNUM

ILINK
ISAVE
I-~

DECP.~AL

ISHIrT COUNT
I r NSTFWCT ION

CT0~

,-a

RT1~L

IKEYBOARD ROUTINE rOR '-ORCED REL.OCATION
I

212455
02456
"'2'5'
212460
212461
02462
flJ2463
02464
212465
02466
212461
2124121
02411
212412
212413
02414
02415
212416
02.11
02500

21021000
15flJ004
503212
1412210
602413
121201'
2021214
04315'
112J2flJ31
15210214
503213
142122121
602466
102015
10201'
2021215
043151
1022131
1211541
543217

02'01

602547

GOTO

NOSW

21
L.AS
AND
SNA
JMP
JMS
LAC
OAe
JMS
LrAS
AND
saA
JMP
JMS
JMS
L.AC
OAe
JMS
JMS

IRt:AD ACS
K40
NOSW
CRL.~

PTWL.V
PRNT
PN)(t

IC~,LP'

ITEXT POINTER
IpRINT puT ACS 12 ON A e

K40

,-3

CRL.~

CRL.f
GO'L.
PRNT
PNXT

KEviN

SAO

K21~

JMFJ

e'l.~

.EJECT

1c: Io4 ECK BIT 12
I[QUAL.S 2!

IWAIT
ICR,L"

F'O~

THE '"

ITLXT POINTER
IpRINT GO TO fIELD IwA I T ;o~ 1NPUT
IA CR - NO ~oRCED MOVE
lAND REsuME AUTO RELOCATE
teLrEAR THE rORCED MOVE rLAG

F'ACE

M)(CH1'

0251212

543227
61212473
74212120
14212120
503242
0431"
11211547
543211

121251213

0251214
0251215
0251216
0251211
0Z510
f2l2511

02512
f2l2513
02514
12l251'
1212516

02'11
212520
rlJ2'21
1212522
12l2!J23
02'24
1212'2'
02526
02521
0253121
02531
02532
21~533

02!534
02535
1212'36
02'31
1212540
02541
02542

602547
543221
602413
1421212121
1421212f2l
142rlJ2rlJ
1421121221
5121324121
243176
21431"
1rlJ0653
1214317'
1121207'
6224"
21rlJ0rlJrlJrlJ
202603
741200
622530

02544
02545
02546

1rlJ?112l4
142603
1rlJ2rlJ7'
2rlJ271217
121431"
1rlJ2031
1021211'
203124
142.100
602312
602246

0254'
rtJ2550
02551
02552
1212553

203243
140001
503124
rtJ43124
6rtJ021'

02'43

MXCIoI1'
SAO
JMP

RTR.

RTR

AND

KJr2l~K

OESTN
1<21~

1<317
NOSH
RTRI

AND

I<?IIK

XO~

OESTN
oe;STN
WHERE
SOURCE

JMS
OAe

JMS
JMPt
121
L.AC
SNA
JMP.

IMASK BITS 1,2.
IrlRST C~AR. Of rIELD NO.
IWAIT rrOR INPUT.
IA CR • NO rORCED MOVE
lAND ~ESUM[ AUTO RELOCATE.
ICL.EAR T~E rORCED MOVE FLAG,
I~UBOUT, RE-pRINTI GO TO FIELD -

KEVIN

JMfI
SAO
JMP
RTR.

OAe

IRUBOUT. RE.PRINTI GO TO FIELD ~

NOSW

OAO

JMS
SAO

[NOT

K317

C'L.~

CRL.~

GOTO
L.Oe~R

ENO!

~TA'

RAR

IMASK BITS 3,4 & 5.
lOR 'IRST & SECOND CHARS,
INEW rlELO.
IWHERE ARE WE NOW
ICURRENT F'I£LD
ICR. L.r
ICHECK rOR ERROR
INO ERRORS I' III
IENTER NEW P'1i:L.O

L.EM
OIM

JMS

L.OC;~
CRL.~

JMS

PRNT
PNXT

L.AC
OAe
JMS

C'L.G

NE~N

CRL.~

L.AC
9PA

P'I.A~S

JMP
JMP

,"COM\!
STNXT

LAC
eMA
ANO
OAe

K4"~K

JMP

.EJEOT

FL.A~S

rL.AGS
RTN1.

ICR,I."
ITiXT POINTER
IPIilINT NO MORE ERRORS
IC~,L.F'

IA~S " A ~ • fORCEO MOVE
IWAIT FOR ANOTHER CHOICE
ITRy NEXT 'I£L.O LOWER

leL-EAR THE F'ORCED MOVE FLAG
1ST ART OVER

PAGE

MXCH1'

02554
02555
02556
02551
02560
02561

00121000
043154
121000
043155
223111
043156

MYlRR

02562

~AC

DAC

202621

02563
02564
02565
02'66
02.561
02"0
02511
PJ2512
02''13
02'74

141200
102621
202603
141200
102603
202620
041013
102015
'11'1166
600765

02.'7'
02'76
02''11
0260""
02601
02602

2"""166
1214111J13
'1518"'04
141100
10"6'0
622554

02612
02613
02614
02615
02616
02617
02620

0018000
102015
202706
04315'1
102031
111J20'15
622603
1210001210
111J211J1'
761!J211
11112032
11l1201!S
622612
602575

BAOl

IS AV e: 1NCO RRECTIN 5 TRUCTI 0 i~
1~IE~D AND

L.AC

02603
02604
0260'
02606
02607
02610
02611

k!l

OAe
PAX
DAe

OCAUF!
MOyt;s
GOOO1

ADDRESS
ISAVE
ICORRECT INSTRUCTION
ISAve:

~HOH

SNA
JMS
L.AC
SNA
JMS
L.AC
OAe
JM$
L.AW

1.0C;R

JMf.'

-2.2
5TEH

1.10 DECIMAl.
IpRINT INPO

L.AC

STER.2,
INCV

IEQUALS JMS SPING

HAL.T
MvtHR

I[XIT

OAe

L.AS

PHOf<
L.OCER
JMII~

INCY

CRL.~

IOON'T PRINT Ir 1
I~RINT PROGR.M RE~QCATION ERROR
IJMp ~Oce:R-3

Sill A

JMS
JMP*

L.OOER

WOTIS

JMfl3

JMS
LAC
DAe
JMS
JMS
JMP*

CRL.~

IC~d.. F'
ITtXT POINTER

PNxf

IpRINT PROGRAM RELOCATION ERROR
IC~d.F' X 2
IEXIT AND PRINT THE ERROR

REL.OC
PRNT
CRL.~

LOC~R

JMS
L.AW
JMS
JMS
JMI".
JMP
.EJECT

CRL.~

21'1

PCHAR
CR\.~

WOTIS

L.OCER-6

Ic R,l.r
IQUERY MARK
IpRP..JT
Ic R.l.r
IEXIT

PAGE

M)(CH1'

MXCH1!5
I

IMEAOE. ROUTINE
I

02621
02622
02623
02624
02625
02626
02627
02630
02631
02632
02633
e2634
0263'
12636
e2637
'264"
82641
02642
82643
82644
82645
e2646
82647

00e000
102075
202710
0431'7
102837
182658
202711
043157
182837
1826S8
282712
'43157
181837
1826,,,
282713
1431'7
182837
18,6,e
282714
"43157
1"'137
18287'
622621

PIoICR

8265m
826'1
82652
82653
02654

888881
771773
e43145
102184

CLMN

JMS
I.AC
OAe
JMS
JMS
L.AC
OAe
JMS
JMS
!.AC
OAC
JMS
..1M!
!.AC
OAC
..1M!
JMI
LAC

OAe

JMS
..1M'
..IMP.
I

6226'flJ
I

LAW
OAe
JMI
..IMP.

.EJ£CT

CRL[
TSTX
PRNT
PN)(T

IOR,!.F'
IPOINTER rOR "TEST"
IpRINT TEST
ISPACE 5
I"OCTAI. ADR."

CLMN
AORXA
PRNT
PN)(r
CLMN
OOAT)(

1"9000"

PN)(!
CLMN
SOATX

ISPACE 5
l"liAO"

PNXT
CLMN
PCWX

ISPACE ,
I"PAT,CONTFtOL. WORO"

P~Nt

PRN!

PRNT

PNxT
CRL.~

PHD~

ISPACE 5

ICR IL.P'

IOCNE

CT3~

SPINe;
CLMN

ISPACE

PAGE

MXCH15

MXCH15
I

IRETURN ADDRESSES (lNOJRrOTS)

02655
02656
02657
02660
02661
02662
02663
02664
""2665
02666
02667
02670
02671
""2672

02613
02674
02675
02616
02677
0270(21
212101
027""2
027213
02104
02705
02706
027""7
02710
212711
""2'112
O2713
02114
02715
""2716

752521
002761
002165
001074
001124
002113
0011521
0""1176
001414
""""3""""""
00:5063
003061
003005
003031
2103050
001661
001756
00:5056
003252
(2103312
003013
001652
001652
2103112
0213104
""2132116
"""303""
""""2711
002723
"o2130
002734
002731
O02741
752522

DLMT

752521

iSNX
ADRX
A01R

TSTNR
F'ADR1

AOXR

L.ADR1
AOR2
DL.ST
SUPR
SUPBIT·1
fiRST
L.SiA

DONi

ADaR

DO~n

SUFJX
SUf.'X.
ADR1P
ADR2P
OVRLP
P!SIN
TLMX
SL.MX
OON3
SETX
(RTSL.

ENERR

PTO
ROT.
ROTS
PTII/LV

GO'L

REL.OC

NE:RN
TSTX

AORXA

GDATX
BDATX
I'CIorJX

(RSEL
DL.MT.

ITESi#,*
IF'lRST.\I)R ...

AORl

D'S,.

OVRL.A~
P~OIS

TSL.M
SL.MTS-S.
CR£VR
STies
E'RWRO"'S,
ERII/RO·41
PTOI

Rorc

ROTC
PUT12
GOP'LO
PROR
NOMO
TST

.lOR

GOAT
BOAT
PCWR
SL.Te:~

152522
.[JEeT

IL.ASi 4DR ...
ISUPPRESSn'lRST

IL.AST
IADR. Is

t TH I N PRO GRAM
Is IN rIEL.D
l,.tST L.IMITS
~~

IP~OGRAM

ISETUf' ACS

PAGE

M)(CH1'

MXCj.j15
I

ICONSTANTS ~OR PRINT ROUTIN~ TEXTS. PACKED

13 C,..AAACTERS
I

I"TEST"
TST
•

02'11'
02'120
02'121
02'22

00271'1
230524
71'1724
12101000

02723

AOR

0272'
02726
02721

002723
24131'1
401401
221401
001000

1212730
1212'31
112'132
02'33

12102130
1'12,70'1
'1"'04
001100e

GOAT

0a'34
02'3'
02'136

001734
040102
001000

BOAT

1212731
02'40
1212'41
02'42
02143
02'44
02'45
02'46

002737
240120
170340
222416
40141'1
221727
'17'704
001000

1212'4'
02150
02"1
1212752
02"3
02"4
02'5'
1212'1'6
02'151
02760

00274'1
22220'
40221'1
401611
14052;)
241l1J0'
40140'
051106
11121414
1210'111.100

02'2~

itER WORe.

230524,

'7'~24.

1212761
1212762
1212763
02'164

01212761
2311524
114024
12101112100

02'65
02'166
1212'67
1212170
1212771

00276'
221106
41212423
2221401
7171.0

240317, 401!01. 220401. 0

171'1"7,

"'11~QJ4'

•
04121102,

PCWR

24012&1.

170~4i1'

221416. 40141'

221121, "',?04, II
I

SI-TER

•
22220',
4ali1?' 4"1611.

14~523

24030', 401!0"

'7~414

1'1106,

0
I

TSTNR

•
23121524,

"4~24J

402~23,

22~401J

'ADR1

221106,

717740

F'AGE

Ml'CH1'

02772

000000

1212'173
02774
02775
02776
1212777

12102773

MXC~15

121
I

I.AOR1

23flJl14

014024
40221214
00001210

23 0 114,

014~2.'

402204

12152~20,

402323, 121

0
I

1213121121121
0312101
031211212
12131211213
121312104

12103121121121
21212523
05222121
402323
002100121

SUPR

•

212125231

.EJECT

PAOE

M)(CH1'

03005
03006
0Je01
0311J111!J
031111
03012
031113
031114
0301'

003005
2211!J401
2311.0
112740
111.02.
20-"16
071122
150122
0011000

031116
03011
03112"
03e21
03022
"'J12l
03024
0302'
03026
03027

1I!J"3"16
112220
"122'"
22-01'
111405
2411!J103
161111
221'40
221722
000000

MXCH15
I
OVRLAII

23~~4e.

112140. 111024

20'016,

011~221

1'''1221 II

•
1'1222O,

I1Jll~07'

22-01"

2- 01113,

16~~11'

22115_0, 221122

2al~1"

0,400"

11i222

112221, 011l07, i1401."

11!023

03030
03031
03032
0311!J33
031134
03035
03036

003030
401116
22111'
05400'
112222
172322
0011!J000

03031
031H0
03"41
03042
03043
031144
03045
031146
0:!041

0113031
172220
012201
11401'
11.023
064016
1.",511
,,_004
00fUJ011!J

03050
03",51
03"52
03053
03054
03055

1I!J0:5050
231524
144024
111511
172324
12100000

flRQR

111405

NOMO

•

4i11116'

11232Z, III
I

PRO!S

•

064016,

I
TSIaM

•

23"52-.

141~11'

'174004, 0

1"~24,

11~'11J

112324

40a~2"

2303011

121
I

03056
03051
03060
03061
03062

012130'6
24121523
40212125
23121301
0021000

STACS

~063

003063
221106

"RIT

064

•

220401'

•
240523,

221141t 40Z~23, 121

~AGE

MXCH1'

1213065
03066

402423
1210121000

0312161
03211121
03011
03072

12103061
2321114
77.024
1210fZl00121

l.STA

032113
032174
1213015
1213076
1213017
12131021
03101
1213102
03103

003013
11222121
402416
242511

PTOI

213104
03121'
213106
0311217
031121
03111

00~11214

MXCH15

•

23 0 114,

114~241

121

402~161

242511,

11~023

1112116, 2'11212,

"QJ4~"

121

1213112
1213113
03114
03115
03116
03111
1213120
03121

•

1122221,

11~UJ23

111016
2411212
7112140'
QJ01UJ00
401101
41U.124
05111216
41Ul414
000000

GO'l.O

•

4121"01, 401?24, 21'111216 •• 12I~414

0
I

QJI2IS112
242520
121321140
614023
11.062
01412116
17'0421
210110021

PUT12

•

24252"', 2130140. 61'2123,

211421161

.EJECT

11.~401

Q!I

11~12I62

PAGE

M)(CH1'

M)(CM15
ISTORACE ANO CONSTANT REGISTERS

03122

'777'~

03123
03124

0~rUI~~
0~1J~~~

~312'

~I"""~

03127
0313"
03131
03132
03133
0313.
1313'
03136
03137
13140
1;'141
13142
I:U,.3

0"""0"
""""""
0,,"00"

~3126

0~144

1;S1.'
B3S,46
03S,4'
03"'"
031'1
1~152

BJS,'J
1~154

13""
131"
031'"
0:SS,69
03161
e3162
213163
03164
031"
e3166
13S,61
131'19
031'11
"3112
03173
93114
0317'
03176
13117
032"1
03201
~3202

213203

2132214

""IJ"~"

463144

63146~

52'2'"
0"""00
QJIUHUJ"
IIU'000
011JI00
tUI"'I.
0"1"""
001101UI
001088
1'''''""
"BIIII
0010rUJ
00"008
100111
1"1 IlJiJ 0
88"'00
011110
el"'''0.
10"'''01
01'''10
01,UJ01
00""04
08"",1
1""11
0018110
"00004
80181"1
II,,"tUJ
"018010
10"'"10
011",,0
771777
091"09
01"'''''"
01"'''01
090110
01"216
00212100
001B0e
eeee00
00"2100

SI)(T4

LAW

NOflRNT
F'L.AGS
INSF"L.O
L.AST
MOWA
PCW
eNTRL
peWA
peWB
PCWC
PATR
PATG
PATWO
PATN
TNUM
SITCQN
SYADA
CTI2

otiJ2

oT'K
Ot1.6
CT128
CTII4
'lAS""
L.AST1
8A01
OCAOR
0000s.

PRNT

ADRew

EXIT
OVER
ADRA
AORB

N~OTA

I..T,T
TTVW
TTV)(
T'VY

saw

BITSUP
N)(L.OC
SOURCE
OEITN
MOVES
BGNLO
PIN)(
SXR
WORI<
MEMADR

·1~

"""
"0
463144
"6:51460
~

'2'2'"
I
QJ

0
B
4

,"
,"
I

ICOUNTS 64 ~ASSES BETW£EN
IEHROR PRINT SUPPRESSION.
IINDICATES END or ERROR PRINT-OUTS
ISAVES suBRouTINE rl..AGS
ICURRENT rIELD wtT~ PROGRAM
ILAST 'IE~O WITH OATA ERROR
ISAVES ACS SETTINGS
ICURRENT "AT.CONTROL WORDS
ISAME AS Pew
ICONTROL. WORD ~OR TEST 1
I,OR TEST a
I,OR TEST 3
IROTATES CONTROl.. WORD
ISAVES GOOO DATA DURING REAO
ISAM! AS "ATC BUT ~AS SUPPRESSES 9ITS
IMAS CONTROl.. WORO TO ROTATE
IASC!1 TEiT NUMBER
I,IEL.O COUNTER

COUNT,.
ICOUNTS 16 ROT.T£S
ICOUNTS 128 L.OCATIONS
luTIL.ITy COUNTER
I,IRST rIELO TO TEST
ILAST rrE~O TO TEST
ISAVES BAO OATA
IS AYES 'AILING OCTA~ A DRESS
10000 DATA
IPOINTER rOR PRINT ~OUTINES
IpARTIAL ADDRESS WORD
ITO CISMISS
IPOINTER To START or SUBROUTINES
11'T AOR. rROM KEVBOARD INPUT
I~AST ADR, 'ROM KEVBOARD INPUT
IROTATE COUNTER
ILAST AOR, ,OR SCOPE ~OOPS
ITTYW THRU VY USED rOR KEYBOARD
IrN~UT BIT SUPPRESSION
141<

0
0
0
0

"
4
I
I
III

•1
0

"
"00
4

"L.AW
I

"0
I

RTN1
I
0
0
0
.EJECT

-1

ITEM~ STORAOE or SUPPRESSEO BITS
lEACH SUPPRESSED BIT' B
IN~)(T 'IEL.O TO MOVE INTO
I,IEL.O TO MOVE rROM
I,IEL.O TO MOVE TO
ISAVE AS MOVED
IEXIT AOR, TO A NEW rJE~O
ISTORAGE Or MEM. BL.OCK THAT FROG. IS pJ
ISTORAGE L.OG. 'OR XR.

PACE

M)(CH1'

1lJ:521lJ'
0321lJ6
03207
03210
03211
03212
1lJ3213
1lJ3214
0321'
03216
0:S211
03220
1lJ3221
03222
03223
03224
21322'
03226
03221
03230
03231
03232
0:5233
1lJ3234
1323'
03236
0323'
03140
03241
03242
03243
03244
0324'
1lJ3246
0324'
832'0
032'"
03252
032'3
03Z5.
032"
QJ3256
03257
03261lJ
QJ3261
03262
1lJ3263
03264
QJ3265
QJ3266
03267
1lJ3270
03271
"3212

1lJ1lJ2I01lJl
000002
000001
1lJ00010
0021020
PJ00040
00tlJ011
IlJtlJ1I1018
0018200
1808212
00121'
1801254
0""2618
0""264
0"1.121"
00"31UI
,"1332.
rUJ.310
1,.311
0"'40"
rIH'.'00
0fJ11011
101171:'
0111el "
0117"
021""O
04"'00
071"011
074000
30100"
411000
171171
37111000
;81100
778100
777100
8032'2
76111001
'6.110
761111
7611"01
161110"
16111"0
760001
760101
168001
761101
'61000
16101"
1610QJ0
16"000
7618000
160000
1601lJ180

MXCH15
I

K1
K2
K7

1(10

K28
1<40
K71
K2,180
K21UJ
K22.2
K2"
K214
1<2'"
K2t.
1<27"
K;)II
K311
K311
K3"
1<'"''
K4K
K17111
K1717
K111<
K175
1<21K
K411<
1<111<
K14K
1<310K
K""I<
K177
K3701<
1<1""1<
1<7111<
MAKERR

ERWRD

1
2
7

10
20
40
11
1210
20"

ala

21'

2'.
a61
~

210
3fJiJ
3;J1

371
311
4110
41100
1101

""
1111lJQJe
","'7
211111
4fJ0""
11101
,.0211
310080
411001
"""1
310011
100fUJ"
11000"

L,AW

,.'"
L.AW
L,AW
L,AW
L.AW
L.AW
L,AW
I.AW
I.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW

·1"~

!'AGE

'0
2132.,3
032'4
0327'
0321'
213217
0~311e

"33e1
03312
e;S31J
21331.
"331'
13316
1331.,
e3310
83311
03312

M)(CH11

M)(CH1!S

761"21"
'61"211
161"211
, 61 " 1"1I
'61""1
161111111
'6'1111
761111
;61111
16118"
161111
16118"
'6',11
.,61111
161"1
el.IIUI
1118811
fLo
511'111313

L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
L.AW
.END
NO ERROR L.IN~S

F'AGE

02123
03163
03164
1213160
02651
02111
0112114
02667
1211150
02670
1212662
1212660
1212663
1212,423
02403
212mB7
BAOl
213154
BOAT
1212734
BDATX
B2113
BEGIN
01J2BI2I
BGNL.O
0321210
BITCON 03142
BITSUP 213113
BASTA
121155121
BURST
01'25
BUST
01'6121
OBANt<
01611
CBOTH
01243
CEND
1211"1
CPI.G
1212'41
CKAL
00463
CKERR
1212154
02322
CK'CO
Ct<I..ST
01234
CKNXT
B2231
CKKy
2111412
CK3
212162
CL,MN
1212"1
CI.OF'
101114
CI..ON
71211144
CL,SF"
112112101
CL.K
73'BII2I
OMOVE
0213121
CNROT
01631
eNTRL
1213131
COMPL
01425
CREAD
1210377
CREVR
1211756
CRL.r
1212075
OTI2I2
1213144
Cl1214
1213151
CT128
121315121
OT16
1213141
CT32
03145
OT41(
03146
ADR

ADRA
AORB
ADRCW
ADA X
AORXA
ADRl
ADR1P
ADA2
AOR2P
ACXR
401R
402R
AGAIN
AJ!N
AI..OK

MXCH1'

MXCH15

!'AGE

OESTN
O'ST
OINO
OL.MT
OL.MTA
OIeST
ONMVe:
OOAL.L

03116
01124
02.24
0265'
02116
01116
02224
01323
00142
02661
02664
02675
00541
107764
101'12
12111
02'30
li'"1

~OERR

DONi
DON2
DON3

DOXY

[8A

EEM

[NERR
tNOT

£OM
EDT

EO'.
£,.

MXCH15

tU.• '2

Il'"4
117162
EQUAL.
12211
ERROR
88613
ERSEL
0211'
fA'ET
8'467
ERTBL.
12611
E:RWRD
032'1
[)(AM2
1121,
EMAM3
rUl311
eXAM4
1831'
E)(I. 101141
EXIT
03161
QJ0211
EXTST
milt:!
'ADR
rAORl
12'6'
rOOMV
m2312
FIRSTi QJ31'2
P'L.AGS
03124
rR8T
03163
OOAT
12'3,
GDATX
ma712
GENPAT 18411
CETAD
01624
COPL.
02785
GOFL.O
03104
GOLEF'T 01"0
GOOD1
m3156
QJ24!5!5
GOTO
0066QJ
HALT
INOY
011813
INSPL.D 0312'
JMP3
QJ262rIJ
KEVIN
01'47
KRB
7eQJ312
KSP
10QJ31?J1

MXCH15

PAGE
KVBRO
1<1
1<18
1<1211<
1<12118
K115
1<1"
1<2
K20
1<21211<
1<200
1<212
1<215
1<2'4
1<260
1<264
1(210

KJII

1<3111(
K331
1<31.
1<3'11<
1(317
1<.1(
1<."
1<.'1<

M)(CH1'
1213.12141
2132185
2132121
1213234
1213214
1213235
1213244
12132186
03211
1213236
213215
1213216
03217
213220
l2Ia221
03222
1213223
13224
83142
13225
1~226

1Z13245
"~221

0~a:S1

1~212

83231
l(.lUJ
1323"
1<4111<
0324:5
132'"
1<'
03240
1<1'1(
I< 1111J1<
13246
1(1'1<
03241
03213
1<7'
1<1711(
0314'
1<1111
03232
1<1'117
03233
L.AOR
18116'
L.AORi
212173
L.AST
21J126
L.AST1
031'3
LEGAL
1211"6
L.£M
7211714
LOCAT
1211571
LoeER
12126183
L.ST.
13167
LTST
213166
MASK
212046
MAXERR 21325121
MeWA
213127
MEMAOR 12)32214
MOSOM
1212362
MOVE
1212346
MOVES
03111
MYBK
2123"3
MYERR
212554

MXCH15

~AGE

NERN
NETWK
NOMO
NOMOR
NOPRNT
NOSW
NROTA
NUMB
NX!.OC
NXTBNK
NXTHI
NXTMV
N64
OCAOR
OKAS
OVI!R
OVRL.."
OVR!.p

MXCH1!5
02107
fc'J2I366
fc'J3213fc'J
021632
03123
IlH~4'3

03165
01522
031'.
01643
02211
02221
01512
"3155
0177.
213162
0381'
02671
I'.TG
03136
P.TN
213140
,..TR
,,313,
P.TWD
03131
PAK
12111"
PCF'
'01212
PCI-fAR
02132
POW
,,3130
peWA
03132
,cwe 03133
PCWC
0313.
02137
PCWR
PCWX
"2114
PHDR
02621
,,32PJ1
PINX
PISIN
02672
PNXT
02"37
POSITN 02116
PANT
"3157
PROCTL. ,,2112
PROG
01376
PROIS
0383'
PRDR
213116
02433
PRSEL
PSA
'01204
,..S9
'2121244
PSF'
'01211
PTO
027PJ1
PTO!
21321'3
0210.
PTWLV
PUT12
03112
QUERV
0156'
ReF'
'001PJ2
RCtlM
2IrlJ445
READ
rzHlJ435
REI..OC
02106
ROTA
02102

MXCI115

I'AGE

ROTB
ROTC
ROTOR
RRB

021213
01652
01462
700112

RSA
RSB
RSIl"

7r1J0104

700144
1210101
RTN1
00216
RT~9L
02442
SBA
1217761
SCPl
01334
SOW
03172
SETAC
02113
S[TUl
01610
SETX
02'76
SIMU
01276
SlM1
01312
51M2
01330
SIM3
11332
51M4
rU.3'5
SIXT4
13122
SI"MTS
01660
S~MX
02'74
SLTER
02'41
SOURCE: 1311!
SfJING
02114
STACS
13156
ST!R
11'65
STLP
01222
STMV
02161
STNxT
"2246
STOVER 01247
STSep
01346
SUlll
02212
SUB2
"2266
SUPBIT "1413
SUf'R
13101
SUPx
1266'
SUPXA
12666
SY40A
,,3143
SHe
11736
SW1
10731
SH2
0'716
SXA
03212
TOF'
7014f!12
Tl"MX
02673
, ,UJ 4f!1 6
TL.S
TNUM
03141
TSF'
70f!1401
TSL.M
0305r1J
TSNx
126'6
TST
02711
TSTN
O1071
TSTNO
01042
TSTNR
02161

MXCH1'

MXCIoI1!5

!'AGE
TSTX
TST1
T512
TST3
15T4
TTVW
TTY X
TTYY

weNT

WHERE
WONS
WORK
WOTtS
WRITE
XPRT
y64

!£AO
.EOT

MXCH1'
121211121
00327
121121340
1210351
00362
1213167
121317121
03171
121121411
12I1lJ653
1ZI1lJ532
12132113
02612
121(".30
e2335

1211'111
01'16
rlJrDIZI1I0

MXC~15

f'AGE
,EOT
BEGIN
RTN1
STOVER
EXTST
EXAM2
EXAMJ
EXAM4
OOAL.L.
TST1
TST2
T5T3
T5T4
NETWI<
CREAD
GENPAT
weNT
COMPL.
WAITE
READ

ROOM
CI<AL.
ERSET
CI<XY
N64

Y64
BURST
WONS
OOXY
BRSTA
BUST
CENO
SETUl
CBANI<
NOMOR
NXTBNI<
W~£RE

HAl.T
ERROR
SW2
SWl

Swe

DOERR
STER
INOY
KYBRO
TSTNO
TSTN
AORl
F'AOR
orST
AOR2
LADR
DL. STSTLP

M)(CH15

00000
00200
00216
021241
2121211
00275
021301
0030'
00323
00327
021340
210351
01362
01366
O03"
01410
08411
08425
rUI430
IUJ435
0144'
0".6~

211461
021412

211'02

01!J0'
01525
021532
211541
08550
el56e
01571
00610
08617
rUJ632
IU1643

01653
0'660
01673
01716
00730
00136
00142
00'65
01013
01041
01042
01071
01074
01113
01124
01150
01165
01176
01222

MXClol15

~AGE

CKL.ST
CBOTH
SIMU
SIMi
S1M2
51M3
SCf'l
STSCP
SlM4
f'ROG
SUPBIT
AGAIN
ROTOR
EOT
EOM
EOTA

2ERO

NUMB
KEVIN
L.EGAL
QUERY
L.OCAT
GETAD
CNROT
GOL.EF'T
ROTC
SI.MTS
CREVR
OKA5
AL,OK
SETAC
PC~AR

PNXT
MASK
CK3
CR!..F'
SPING
PROCTL.
POSITN
CMOVE
CKERR
STMV
EQUAL
SUB1
DNMVE
NXTMV
CKNXT
STNXT
SUB2
NXTHI
MVBK
F'COMV

CKF'CD
XPRT

MXCH15

211234
01243
211276
1211312
2113321
01332
211334
211346
01355
1211376
211413
211423
01462
211472
1211!500
2115214
1211'16
211522
211541
211556
211561
211511
211624
211631
2116521
211652
211660
01156
01174
02121211
0212113
02032
121212137
02046
0212162
212"'5
02104
02112
02116
021321
121215.
212161
212201
212212
212224
1212227
212231
212246
212266
1212277
212303
212312
02322
02335
212346

MXCH15

PAGE

MOSOM
AJIN
DINO
PRSEL
RT19L
GOTO
NOSW
ENOT
CPl.G

MVERR

LOCER
WOTIS

JMP3

PHDR
CL.MN
OL,MT
TSNX
AORX
A01R
OON1
ADXR
A02R
OON2
SUPX
SUI'XA

ADR1P
AOA2P
OVRL,p

PISIN
TL.MX
SL,MX
OON3
5[TX
EATSL.
ENERR
PTO
ROTA
ROTe
PTWI.V
GO'L
REL.OC
NERN
TSTX
AORXA
GOATX
eOATX
PCWX
ERSEL
OL,MTA
T5T
ADR
GOAT

BOAT
FtCWR
5LT£R

M)(C1-l15
212362
(212~(2I3

(212424
(212433
02442
(212455
(212~13

21253fZJ
(212'41
02554
212603
212612
026221
212621
02650
02"5
026'6
026',
026621
212661
02662
02663
02664
212665
212666
212661
02670
02611
212612
02613
212614
212615
02676
02"7
02'7210
02'7211
02'7212
02703
02184
2127215
021216
027211
02110
212711
02112
02113
(112'14
(112115
02716
02117
(212123
0213(21
(112'34
1lJ2?3?
(212147

M)(C~1'

PAGE
TSTNR
F'ADR1
LADR1
SUPR
OVRLAP
PROR
NOMa
PROtS
TSL.M
STACS
PR5T
L5TA
I'TO!
GOF'LD
PUT12
51XT4
NOPRNT
F'I..AGS
INSF'L,O
LAST

MeWA

pew

CNTRL
PCWA

pewe

I'CWC
PATR
I'ATG
PATWD
PATN
TNUM
BITCON
SVADR
CT02

CT32

CT4K
CT16
CT128
CT04
F"IRST1
LASTl
BA01
OCAOR
GOOD1
I'RNT
ADRCW
EXIT
OVER
AORA

AORB
NROTA
LTST
TTYW

MXCH1'
1212761
1212765
1212773
0312100
1213005
0312116
121312130
1213037
03050
1213056
03063
1213067
1213073
0311214
1213112
1213122
03123
03124
1213125
1213126
0312'7
121313121
1213131
03132
1213:1.33
1213134
03135
03136
03137
1213140
03141
1213142
03143
1213144
03145
1213146
03147
121315121
1213151
03152
1213153
03154
03155
03156
1213151
03160
1213161
1213162
1213163
03164
1213165
1213166
1213161
0311121
1213171

MXCH15

PAGE

sew

BITSUP
NXL,OC
SOURCE
OESTN
MOVES
BGNLO
PINX
SXR
WORK

MEMADR
1<1
1<2
K1
1<11ZJ
1<2~
1(4~

1(77
1<1e~

1<22121
1<212
1<215
. 1<254
1<2621
1<264
1<210
1<32121
K331
K:570
1<377
1<400
K41<
1<772121
1<7777

I<ill<

1<175
1<2211<
1(41ZJ1<
1<'101<
1<741<
1<321211<
1(41121K
1(177
1<3701<
1<'21211(
1(1701(
MAXERR
ERWRD

CL.Sf'
CL,Of'
CL.ON
RSP
ReF'

RSA
RRB

M)(e~l'

1213172
121317~

03174
1213175
1213176
213117
121320121
12132211
121321212
12132213
121321214
1213205
2132116
12132217
21321121
1213211
1Z13212
213213
121321~

21321'

03216
1213211
213220
1213221
1Z13222
1Z13223
213224
1Z1322'
1ZI:5226
1213227
21323121
213231
1Z13232
1213233
213234
1Z1323'
1Z13236
1Z13237
2132~12I

213241
213242
213243
213244
1213245
1ZJ3246
1213247
1Z1325121
1Z13251
7210001
7 121 0 1ZI2I 4
7""2144
7210101
'''''11Z12
700104
7210112

PAGE

"RS8
pSF'

7121121144
7 121 1212Q1 1
70Q1202
700204
700244
700301
700312
700401
7121121402
71210406

peF'

"SA
"SB
KSF'
KRB
TSF'
TeF'
TL.S

EEM
LEM
EXBA
S8A
EPA
f8A
pAX
C~X

712177~2

71211704
71217741
71217761
707762
71211764
721000
735BQl0

MXCH1'

MXCH15