Digital PDFs

MAINDEC-15-D1FA-D

September 1969

105 pages

Original

2.8MB

Document:	Extended Memory Addr Test
Order Number:	MAINDEC-15-D1FA-D
Revision:
Pages:	105
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-D1FA-D_Extended_Memory_Addr_Test_Sep69.pdf

OCR Text

'P!J{J-f)"

I1tntJR.Y

IDENTIFICATION
Product Code:

MAINDEC-15-DIFA-D(D)

Product Name:

PO P- 15 Ex tended Memory Address Test

Date Created:

September 22, 1969

Maintainer:

Diagnostics Group

Author:

John W. Richardson

Abstract
The PDP-15 Extended Memory Address Test tests all of core memory
not occupied by the program to ensure that each location can be
uniquely addressed. This is done by a series of four tests. The first
two tests write the address and complement address of each memory
location into itself, and then check each location to make sure each
is correct. The third test slides a one through a word of zeroes in
each memory field. Test four' writes and reads a pattern designed to
detect adjacent bit positions shorted within a memory stack.
The program relocates automatically from field to field, and tests all
of core memory from each field.

Requ irements

2 .1

Equi pment
A PDP-15 equipped with a minimum of 8K of core memory.

2.2

Storage
The program utilizes approximately 3K (decimal) words of its resident
4K memory field.

Loading Procedure

3.1

Method
The tape supplied is for HRM, and may be loaded into any low order 4K
field (XOOOO-X7777).
Place the tape in the reader; place the BANK MODE switch on a 1; set the
ADDRESS switches to 017700; press I/O RESET and then READ-IN.

Starti ng Procedure
Start from 200 to initialize the program.
Restart from 221 to retain current operating parameters (amount of core
to test, etc.)

-1-

4. 1

Program/Operator Action
After program load or restarting from 200, the operotor must indicate
to the program the amount of core memory to be tested, and any
special function to execute. The amount of core memory is indicated
via keyboard.
The program will first print the message "TEST LIMITS". The operator
must then specify, following the procedure listed below, the amount
of core memory to be tested, The program expects the 4K memory
fields to be numbered octally beginning with field 0 (locations 00000
to 07777) through 7 (Iv ..:ations 70000 to 77777). For a maximum of
32K of memory the memory addresses for the 4K fields would be:
Field #

Memory Addresses (octal)

00000 to 07777
10000 to 17777
20000 to 27777
30000 to 37777
40000 to 47777
50000 to 57777
60000 to 67777
70000 to 77777

1
2
3
4

5
6
7

Use the following procedure to specify TEST LIMITS.
a.

Type two numbers, separating the numbers with a comma.

Press the carriage return key.

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

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

The 4K field containing the program may be inc luded. It will
be tested after program relocation takes place. Program
relocation is discussed in section 5.3. 1.

If a typing error is made, press the RUBOUT key. "TEST LlMITSIl
will be printed again. Previous input is ignored.

-2-

The highest 4K field to test may be typed first. The program
will reverse the two numbers so as to make the first number the
last to test.

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

For the following examples assume that the program is in field
the PDP-15 being used is equipped with 32K of core memory.

°,

and

Example A:
TEST LIMITS
0, 7 J (~denotes carriage return)
The program will test all 32K of memory.
Example B:
TEST LIMITS

7, 0,).
The program will perform exactly as Example A.
Example C:
TEST LIMITS

3, 3l
Only field 3 will be tested.
Example D:
TEST LIMITS

4, 6 J
Fields 4, 5, and 6 will be tested.
Example E:
TEST LIMITS
0,
PROGRAM IS IN FIELD
TEST LIMITS

0, 1 ~
Example E shows the message printed by the program when a

-3-

single field is specified which currently contains the program.
"TEST LIMITS" is printed again, and the operator must then
correct the test limits.

·:.1.1

SETUP ACS
After specifying the test limits, the program will print "SETUP ACS".
For normal program operation the ACS must be set to 000000 octal.
Press any key (except RUBOUT) on the keyboard after setting the
ACS to all O's. "RUBOUru will restart the program with "TEST
LIMITS". After terminating with a key, the program will run until
stopped by the operator. Normal program operation is defined as
performing all eight clh.ckerboard patterns on all of available memory
from every 4K field.

5. 1

Operating Procedure
a.

Load the program into memory field 0 as described in section 3.

Spec ify the test I im its as described in section 4. 1.

The message" S ETU P ACS" will be printed. Set the ACS to
000000, and press any key except RUBOUT.

The program will perform a II four tests on a II of memory
specified, then automatically relocate to the highest field
number under test.

ACS Settings
Normal operation of the program reqJires the ACS set to 000000.
Refer to section 8.2, Applications for switch settings provided for
trouble-shooting.

5.2

Subroutine Abstracts
The program executes a series of four tests on core memory. Each
test writes a unique pattern, and checks each location for error.
Test 1 writes the value of each memory location into itself, from the
lowest order to the highest order field under test. The address pattern
is then read, and checked for error, in the same direction i. e.,
from the lowest to highest field. The pattern is then read and checked
for error in the reverse direction, i. e., from the highest field to the
10Nest field. This sequence is repeated twice before test 2 is
initiated. Test 1 may be run by itself by placing ACS 3 on a 1.

-4-

Tests 2, 3 and 4 write and read their patterns into one field at a
time. The rest of memory will contain an all l's pattern. After'
each pattern is written and read, the rest of memory is checked to
make sure that its pattern has not changed. After one field has been
tested the next higher field in sequence will contain the pattern,
and the rest of memory will equal all l's. This is continued for one
test until all fields have contained the test pattern. The next test
in sequence will then be initialized. All of memory is set to lis before
the next field in sequence is tested.
Test 2 first writes lis into all of memory, and then writes the
complement value of each address into itself. The pattern is written
once in the forward direction in one field. The rest of memory is
then read and checked for error (in the forward direction). The
field with the address pattern is then read once in the forward and
reverse directions, after wh ich the rest of memory is again checked.
The same field with the address pattern is then reset to all l's, and
the same address pattern is then written in the reverse direction.
The rest of memory is then checked; the field with the pattern is
read in forward and reverse directions, and finally the rest of
memory is again checked. The next higher field in sequence will
be tested in the same manner. After all fields have been tested in
this manner, test 3 is initialized. Test 2 may be run alone by
placing ACS 4 on a 1.
Test 3 first writes lis into all of memory, and then writes a sliding
1 pattern into one field. Each location of the field will contain a
word of a II Dis except for one bit position. The bit set is rotated
one place to the left for each memory location, starting with bit 17.
The following test sequence is repeated 18 times, resulting in every
bit in each memory location being set.
a.

Write all lis into all of memory.

Write a sliding one pattern into one field.

Read and test rest of memory.

Read and test the field with the pattern in the forward
direction only.

Read and test rest of memory.

Repeat steps b through e 17 more times before testing the
next sequential field in the same manner.

-5-

After all fields have been tested with a sliding 1, test 4 is initialized.
Test 3 may be run alone by placing ACS 5 on a 1.
Test 4 writes ones into all of memory. A pattern consisting of
1 word of OIS followed by 1 word of lis is then written into one field.
The following sequence is then executed.
a.

Write the pattern in one field in the forward direction.

Read the field with the pattern in the forward direction.

Read again ;n the reverse direction.

Read rest of memory.

Write the complement pattern in the forward direction, and
repeat steps b, c, and d, then do step f.

Write the pattern in the reverse direction, and do steps b, c,
and d, then do step g.

Write the complement pattern in the reverse directio . and do
steps b, c and d, then setup to repeat a through g on the next
higher field in sequence.

After all fields have been tested, the program then relocates
automatically and starts over with test 1. Test 4 may be run alone
by placing ACS 6 on a 1.

5.2. 1

Program Relocation
The program relocates itself in order to test addressing from all
fields to every other field. 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
will not relocate at all, but will remain in the current field to perform
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 perform ing a II tests. The program keeps relocating
to the next lower 4K field until it reaches t~ lowest order 4K field
under test. The testing and relocation cycle is then repeated. As
an example, suppose the program initially is in field 0, and 32K of
memory is selected for test. The tests are run from field 0, and then
the program relocates to field 7, then to fields 6, 5, 4, 3, 2, 1, 0
in that order. The program will not relocate to any field which is not
included in the test limits. If fields 4, 5 and 6 were selected, relocation

-6-

would be from 0 to 6, then to 5 and 4. Fields 0 through 3 and field
7 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.2.5}.

The location of the program is indicated by the message II PROGRAM
IS IN FI ElD XII, where X is the field number. This message occurs
immediately after each program relocation. The message print-out
may be deleted by placing ACS 11 on a 1 at any time. The print-out
will resume when ACS 11 is placed on a O.
The program provides a degree of protection for itself by not
relocating to any field which has an error. The number of the field
in error is saved, and is compared to the destination field number
before relocation takes place. If equal, the next lower field is
setup as the destination providing it has no error. The first field
found 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 in error, and the "good ll and IIbad li data words
are printed. The error print-out format is described in section 6.
One pass of the program is defined as a II four tests performed on a II
of memory from each 4K field.

-7-

ERRORS

6. 1

Er!"or Print-outs and Description
Immediately after the first error is detected, the header shown below
is printed.
TEST

OCTAL ADR.

GOOD

BAD

FIELD WITH PAT.

Where:

= the current test which detected an error.
= the memory 10: ation which contains the data

TEST
OCTAL

in error.
GOO D
= what the data shou Id have been in that location.
BA D
= the data as read from that location.
FIELD WITH PAT. = the current field under test which contains the
pattern of the failing test. For test 1, this will
equal "ALL", since test 1 writes an address
pattern into all memory under test. For test
2, 3 Qr 4, it will equal 0, 1, 2,3,4, 5, 6 or 7,
depending upon the amount of core memory
available for test.
Example:
TEST
1

2
3
4
4
4

OCTAL ADR.

060100
060100
023000
047777
047776
017777

GOOD

BAD

FIELD WITH PAT.

060100
777677
000002 :
777777
777777
777777

060000
776677
000003
000000
000000
000000

ALL

6
2
4
4
4

During test 1 address 100 in field 6 was found to be in error. From
the example, it can be seen that bit 11 was dropped. Bit 8 was
dropped during test 2 in the same address. Bit 17 was picked up at
location 3000 in field 2 during the sliding 1 test. Three consecutive
addresses in field 4 were in error during test 4. The test was reading
in the reverse direction at the time, because the addresses are printed
in descending order. Also, when checking rest of memory, location
07777 in field 1 was found to be incorrect.
After each print-out the program continues with the next memory
location to test.
Three AC switches may be used to control the error print-outs.
Placing ACS 0 on a 1 during the print-out will cause a program halt

-8-

after completion of printing. ACS 1 on a 1 will inhibit the print-out
and cause a program halt. Press CONTINUE to receive the error
print-out and to continue testing, ACS 2 on a 1 will inhibit print-out
and ring the TTY BELL for each error. The use of these switches is
described in section 8.2 in more detail.
6.1.1

PROGRAM RELOCATION ERROR
Th is message wi" 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 II 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

FIELD WITH PAT.

PROGRAM RELOCATION ERROR
031000
031001
031002

740100
611005
760207

740000
601005
760007

NO MORE ERRORS
The above example shows those consecutive errors during program
relocation to field 3. Field 2 would be set up for relocation.
Location 1000 in field 3 should have contained a SMA instruction,
but bit 11 was dropped during the transfer. Bit 5 was dropped in the
JMP instruction in 1001, and bit 10 dropped in the LAW instruction
in 1002.
PRINT-OVI S INHIBITED
The above message is printed whenever 64 (decimal) consecutive
print-outs have occurred. Error print-outs will be inhibited until
after all fO'Jr tests have been run eight times, after which the error
print-outs wi II resume for 64 more print-outs. This feature is not
used with program relocation errors.
This feature is included to prevent lengthy error print-outs when the
program is being run for an extended period of time unattended.
Error print-outs may be resumed by restarting the program from
location 200.

-9-

6.1.3

PROGRAM IS IN FIELD X
Where "X'I is a field number. This message is printed if one of the
following conditions exist:

6.1.4

The operator has specified a single field for testing and that
field contains the program. Select another field, refer to
section 4. 1.

The operator has requested to relocate the program to a 4K
field which currently contains the program. See section
8.2.7 for inshuction to force the program to another field.

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.

Restrictions

7. 1

Starting Restrictions
Start from 200 to set up the test limits and ACS and to reinitialize
the program.
Start from 221 to retain the present program conditions.

7.2

Operating Restrictions
Don't use the STOP key to halt the program. Place ACS 0 on a 1.

8.2

Appl ications
To give the operator control of the program, the ACS were 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 0 rather than the STOP key. Using
the STOP key may result in a halt while the program is in the process
of relocating, which is disastrous. Any ACS Iisted may be raised or
lowered while the program is running. The operation may not be

-10-

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

Ha It after Test or Error Print-out - ACS 0
Placing ACS 0 on a 1 at any time while the program is running will
cause a halt after the current test is completed on one 4K field. The·
MO will = 1366. The ACS may then be changed if desired. Press
CONTINUE to recover. If no ACS changes'the program will resume
the test wh ich was interrupted. If ACS changes were made the new
setting are stored and executed.
Raising ACS 0 during an error print-out will cause a halt at the same
location mentioned above, after the print-out.

8.2.2

Delete Error Print-out and Halt on Error - ACS 1
ACS 1 on a 1 at any time causes all data error print-outs to be
inhibited. A bait will occur with the MO = 1366 if an error occurs.
Press CONTINUE to receive the error print-out and to resume testing_
ACS changes may be made.

8.2.3

Bellon Error - ACS 2
ACS 2 on a 1 causes the program to ring the TTY BELL whenever an
error occurs. This is convenient when testing with power supply
margins. ACS 1 has no effect if ACS 2 and 1 shou Id both happen
to be on a 1. If ACS 0 and 2 are 1, a halt occurs after the bell.
Proceed as described in 8.2. 1 .

8.2.4

Test Selection - ACS 3 through 6
Anyone, or any combination of tests may be executed by placing
combination of ACS 3 through 6 on a 1. ACS 3 specifies test 1; ACS 4,
test 2; ACS 5, test 3i ACS 6, test 4. The test specified by the most
significant ACS will be performed first.
If all four ACS are 0, all four tests are performed in sequence.
The ACS may be changed while the program is running. The new
tests will be recognized after the last of the current selection is
performed.

8.2.5

Inhibit Program Relocation - ACS 9
The program normally relocates automatically as indicated by the
print-outs. ': 0 reta in the program in its current 4K

-11-

field piace ACS 9 on a 1 at any time. Placing it on a 0 enables
relocation to resume.

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 11 on a 1 at any time. To resume the print-out'
place ACS 11 on a O. This switch does not inhibit the message printout when an operator error is made.

8.2.7

Program Relocation - ACS 12
The operator may relocate the program to any 4K field by speci·fying
a forced relocation with ACS 12 on a 1. Use the following procedure:
a.

Halt the program with ACS O.

Place ACS 12 on a 1 and ACS 0 on a O. Press CONTINUE.

A print-out will occur which instructs the operator to place
ACS 12 on a O. The program will loop until this is OJne.

With ACes 12 on a 0 the message GO TO FIELD is printed
followed by the program waiting for a field number.

Type the desired field number (0 through 7).

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

The program will not relocate again until restarted from 200 or 221,
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 II ERROR IN SELECTED FIELD" 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.3. 1, Program Relocation. Print-outs occur
for each relocation error. Step d will be repeated after all error
reporting is done. Type another field nunb er, or carriage return to
resume normal operation.

-12-

At times the program will automatically restart at 200 and print TEST
LIMITS. This wi lIoccur whenever a single field has been selected
for testing, and the operator relocates 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 Keyboard Input - ACS 13
ACS 13, when up, indicates to the program that the operator wishes
to select one test, along with one or more addresses to be suppressed,
and that one or more addresses are to be tested, disregarding all other
addresses. ACS 13 is recogn ized immediately after restarting from
200,221 or after pressing CONTINUE after a halt with ACS O.
The program will print the following information waiting for input
from the keyboard after each line:
TEST #
SUPPRESS BLOCK # 1 BLOCK # 2 The program expects input information for each line. Typing only
a carriage return indicates that the function represented by that line
is not wanted. The next line will be printed. An explanation of
each I ine follows.
TEST # - Type the test number desired (1 to 4). Any number less
than 1 or greater than 4 is an error, and a ? will be printed, followed
by TEST # - being printed again. If no particular test is wanted, type
a carriage return on Iy. The pattern used by the last test in progress
will be used. in the case of no tests being previously rU!1, test 1 will
be used. TEST # is ignored.
SUPPRESS - Error print-outs for one or more individual addresses,
or a bbck of consecutive addresses may be suppressed. The addresses
typed must be 5 digit octal numbers. Up to 256 (decimal) addresses,
individual or a block, may be suppressed. Any amount over 256
(decimal) is not an error, but will be ignored by the program.
Suppress 0n of individual addresses is indicated by separating each
5 digit address with a colon, terminating the line with a carriage
return after the last address or colon. A block is indicated by
typing the first address of the block, and the last address of the
block, se')araHng the two by a comma. An automatic carriage
return is provided after the second address is typed. The individual
or block of addresses do not have to be typed in numerical order.

-13-

Any input which differs from the above will result in a ? being
printeo, followed by SUPPRESS - being printed again. Typing a
carriage return only indicates no addresses are to be suppressed.
BLOCK # 1 and BLOCK # 2 - Any I~ngth block of consecutive
addresses to be tested may be indicated in either BLOCK # 1 or
BLOCK #2, or both. The block limits must not overlap the program
or exceed the amount of memory available. If the Iimits of either
block overlap the program a message will be printed giving the
location of the program. The current Iine will be re-printed, and
the operator must then specify new limits. Indicate the block to be
tested by typing the first address and last address of the block,
separating the two 5 digit addresses with a comma.
The program handles the blocks to be tested as if each were a
separate memory field. That is, if test 1 were selected, each
address within either block would contain its own value. ~
other test were selected, BLOCK 1 would contain the pattern, and
BLOCK 2 would contain an all lIs patten,. The rest of memory
outside of the block limits is ignored. Refer to section 5.2,
Subroutine Abstracts, for a description of methods of testing, and
patterns generated by each test.
When two blocks are selected, their limits should not overlap when
tests 2, 3 or 4 are selected. BLOCK 2 will always contain an all
1's pattern with these tests, and error print-outs will occur if both
block limits overlap.
If only one·blockis selected, the pattern will be written in that
block, and the rest of memory is ignored. A single block may be
indicated after BLOCK 1 or BLOCK 2; one of the I ines being left
blank.
If no blocks are to be tested type a carriage return after BLOCK # 1
and BLOCK # 2. The program will start over with test 1, or the test
selected in ACS 3-6.
If a block is selected, program relocation will not take place.
Press the RUBOUT key if a typing error is made. The routine will
start over with IITEST" # -.
If the pattern generated by test 4 is to be used, the operator may
select one address, or a block which has an even total of addresses,
i.e., 2, 4, 6, 10, etc. This is necessary due to the method of
generating and reading the pattern. A guide would be to always

-14-

make the first address even (XXXO), and the last address of the block
odd (XXX?). If an odd total is requested, invalid error print-outs will
occur indicating an error at each location. This restriction applies to
BLOCK # 1 when two blocks are selected, or to a single block.
Examples:
Assume the program to be located in field O.
A.

TEST # -4
SUPPRESS BLOCK # 1 - 10100, 10101
BLOCK # 2 -

The pattern generated by test 4 will be written and checked for error
from 100 to 101 of field 1. The rest of memory (including field1)
will contain an all lIs pattern, and will be ignored by the program
since only one block is selected.

TEST# -4
SUPPRESS BLOCK #1 - 10101, 10100
BLOCK #2 -

The program will perform exactly as described in example A.

TEST # -3
SUPPRESS BLOCK # 1 - 37777, 36000
BLOCK #2 - 10000, 16000

The pattern generated by test 3 will b·e written and checked for error
in the first block from 36000 to 37777. An all lIs pattern will be
written and checked for error in the second block from 10000 to 16000.
D.

TEST# SUPPRESS - 37777:36100:35000
BLOCK # 1 - 10000, 16000
BLOCK #2 - 36000, 37777

The pattern used by the last test in progress will be written in
BLOCK 1, and an all lIs pattern in BLOCK 2 (note that the blocks
are reversed from Example C). Any error at the two addresses
36100 or 37777 will not be rpinted. Address 35000 is meaningless
since it is located outside the test limits.

-15-

TEST # - 8

?
TEST#-l
SUPPRESS - 036000

?
SUPPRESS - 36000, 37777
BLOCK # 1 - 40100, 40100
BLOCK #2 - 00000, 16000
BLOCK #2 - LIMITS OVERLAP PROGRAM
(PROGRAM IS LOCATED IN FIELD 0)
BLOCK #2 - 30000, 30100
Example F indicates program response to format errors. The first,
TEST #, is self-explanatory, since there are on Iy 4 tests to choose
from. The second, SUPPRESS, was in error because the number
exceeds 5 digits. The program is assumed to be in field 0 for these
examples, and the first address selected for BLOCK 2 is within this
area. The example shows the error message printed for BLOCK 2,
followed by the operator's correction.
G.

TEST # - 2
SUPPRESS - 10000, 10377
BLOCK #1 BLOCK #2-

The program will not loop on test 2, but will restart with test 1, or
the test specified in ACS 3-6. TEST # is used only when one or more
blocks are specified. All of memory specified will be tested.
Any errors detected within the block indicated after SUPPRESS will
not be printed, regardless of which test is running.
To return to normal program operation type a carriage return after
each of the four lines, or restart the program from 200.
9.

Program Description
The Extended Memory Address test is intended for use with PDP-15s
equipped with 8K or more or core memory. A total of four tests are
executed by the program. Each test writes a unique pattern into
core memory and then checks for error. The first test writes the
value of each memory address into that address, with all available
banks containing the pattern. The remaining four tests write their
patterns into one 4K field at a time, with rest of memory containing
an "all ones" pattern. The patterns were chosen so as to detect word
and bit errors, as well as shorted wires within any bank (see sect. 5.2).

-16-

Control of the program is given to the operator by means of the ACS.
The operator may halt the program inhibit error print-outs, substitute
the TTY BELL for error indication, halt after print-out, select any
one or group of tests, inhibit program relocation, specify any single
address or group of addresses to be suppressed, any single address or
up to two blocks of addresses for testing, relocate the program to any
4K area, and vary the number of 4K fields to test. See section 8.2
for the ACS designations for the above functions.
The program automatically relocates after performing all specified
tests on the amount of core memory selected.
10.

Listing

-17-

I/:.

ICClPYRIGHT

;"0 0 ,

DIGTTAL EOUIP"'E_~T CORP.,

/MAY'!ARiJ,Mt:~':;.

/
I

IPDP-15 EXT~~OED MFMORY ADDRESS TEST.
~ESTART hT 221.
ISA = 20~.
18K
/

MINIMUI" ('ORE RfQIIIRED

IJ.

RICHAROSi.m

IIOT DEFS,
I

7091406
7(iW4V'11
700,312
700301
7Vi7762

TLS=700406
TSF=70(1l4V'11
KR8=700312
KSF=700301

EPA=707762
I

PAr,E

X A I 1 to:.

.TITLE XAD15
• A ·;S

.l_:iC

,: ~1 ~ ~ '.1 1
f-.

/ ~ ~,~;-

.'ie' .-'11' 1
,':il ,~1 V12

J,vl ~:

:7 0 ~ ~ ~ ': 'Z

';10,W3

v eJ'~ <j 4

777777
777777

LA"
LA ...

? v', /l i

V,vW0t:.,

-1
-1

.LOC

('V1?V1V

2~0

REGlf\J

FPA

.;'0?')/

7717762

V0?il1

144270

nt lvl

v\(ij? (11?

1~1360

;~0?(il ~

(1144271

(114

1 W~L)55

JMS
OAC
JMS
JMS
LAC

(~0?

7' 0? ~~ ':'

1~3662

~0?l":h

?04012

CleJ?Vl7

(1,44013

nA(~

v\0? 1 v'

760V100
',Q4320
('44322
064013
777700
044324
777770
~~ 4 4 266
144267
202335

LAy,
OAC
nAC
DAC*
LAw
DAC
LAW
OAC

~0?11

00?1?
00213
00214
Vl0?1">

li10?1f.
'-'0217
0022 Cil

VI""??1
ri1022?
\/)0223
(710224
{t10?25
0022 6
00227
00?30
110231

(A4?320

707762
102314
143746
;;>043 01
544 3 00
74101710
A00234

Dt""
RTN1

LAf":
OAC
EPA
JMS
O~f-1

LAC
SAn
SKP
JMP
.EJECT

FLAGS
WHERE
INSFLO
SLMTS
SETAe
STBL
SUPTBL
BLOC1
BLOC3
SUPTBL
-100
MAXERR
-10
SIXT4
NOPRNT
STLOOP-1
LOCAT+4
LOCAT
PHOR
LA ST 1
FIRST1
.+3

IENTER POP-15 MonE
ICLEAR PROGRAM FLAGS
ISEE WHERE PRO(,RAM IS
ISAVE FIELD NUMBER
/SETUP ADDRESS LIMITS
/SETUP ACS
/POINTER FOR SuPPRESS TABLE

/LAW = NONE SUPPRESSED
/-64 DECIMAL
ICOUNTS 64 ERRORS

ILAST FIELD TO TEST
IFIRST FIELD TO TEST
/THE TWO ARE EQUAL

I i~

:< lI: 1 cc

/~l?.)/

'.::4271

, ,-1? 3,~

',;\ 201

.. \ " :\ L.

, ;1;,~'

!' 0? ~ r

S ';
J"~

'4 ~t3

L ~,

5? '5

r A('

;-;,: 170

LA -,
n A (~
L A'~

;

INSFLD
"r:G I 1\1+ 1
FHRL

t- RwRU
-1V)
wRCNT

IERF~nR

ERWRD
WRCNT

ILAW = NO ERROR IN TABLE
IFILL TAPL~ WITH LAW'S

0?:3 7

'44~41

l;6?4C

; ~) ,~ ,100

v'J?41
')\?4 ?

• 64325
444341

;, I'? 4:~

A(i1I~?40

JMt-'

.-3

r} tJ. ~ i-+ L:

,'44336

OAC

)4""

H'l13fl0

':,1?4 (
I" itl? 47
00?'5(',

"'44271
?041l43
c' 4 4 ,) 25

J"'1S
[) A r

LAST
WHERE
INSFLO
ERTBL
ERWRD

it:

nAC*
1St

LAC
OAC

100 THE' EnUt\L C URR E f\JT FIELD
IsrTl.!p f,E ~ AnCWFSS LIMITS

TABLE POINTER

IEQUALS LAST FIELD IN ERROR
ISFE WHERE PROGRAM IS
ISAVE FIELO NUMBER
IRESTORE TABLE POINTER

STOVER

IRfAO AC SWITCHES

LAS

10251

7"0;104

Vl0?5?

t:;~4406

ANn

K17l

MCWA
K40

t:10?5~

,il 44272

OAC

~CII?54

~Vl4~S'53

A f\jr)

00255
0025A
00257
(71026,,1

744200
A03273
750Vl04

S2A!CLL

~l (I!;;> b

")~4352

740200
AV11623

JMP

FCOMV

LAS
ANn
StA

K2V'1

JMP

i~(II?6 ~

?(il4~72

LA.C

I' ~~;;> 6 4
,'(71 ? 6t:,

504404

ANn

K74K

7412(110

S,\JA

(.'(II?6f.

A(7I()I321

JMP
I

.EJECT

IBIT 12 A 1 = FORCE RELOCATE
IRELOCATE
IBIT

KY8RO
MCWA

\~(J\?6?

ISAVE

A 1 = KEYBOARD INPUT

100 ALL TESTS IF 0

OOALL

PAC:~

'y ,~

1::'
/

/ r_";:. ,-, J ~E

T~ST

SwITf-lES 3 TO 7

'vi? I) 7
" <~ ~)

7•

::;-,4? 72

Li>

4 402

Afv,

;:::;~

,:~;:> 71

7402~0

t !~; 7';.'

I-,V:>',324

,'Vl? 7:z;

;)(7,4401
t;(;14272
74(11200

t;p 74

lJ.0275
(1I027f
Vi!/J?77
vi (7! <; vI (I"

00301
0QJ3V1~)

v03W~

0.0304
V103Vlt;
C'03.l f.

rXAM2

h(iW453

?(i14400
;:::(H?72
74 1:.1200
A0070e1
?04376
")04272

EXAM~

St A
JMp
LAr
AI\J fl
SrA
JMP
LAC
A I\J r'

Sr. A
EXA M4

JI",P
L A,C

74~?00

ANfl
StA

"'01~j35

JMP

MCWA
K40K

444266

TS1Z

f,00314

JMP

,+4

~0311

D2M

NOPRNT
-10
SIXT4

00<;11=;

144267
777770
044266
750004
")04375

[~CBlf-

74(11?~"0

00317

hQlQl221

~'QJ32V1

M'l3111

00321
VlQl322
i;'0323

?~4272

244404
V'44272

DAr
LAS
ANn
S2A
JMP
JMP

= TEST 2

18IT 5 A 1

= Tr'ST 3

181T 6 A 1

= TEST 4

TST3
K4K
MCWA

ril03V17

00313
00314

A 1

/8IT

1il031"\

LAW

= TEST 1

TST2
K10K
MCWA

TST4
SIXT4

0~31?

/81T 3 A 1
TST1
K20K
MCWA

164 PASSES wHEN SKIP

ICLEAR INHIBIT PRINT FLAG
IRESTORE COUNTER

K4IiH?J
RTNl
CMOVE

1
ISETUP TO RUN ALL TESTS
1
MCWA
LAC
DOALL
K74K
XOR
OAr
MCWA
1
,EJECT

18IT 9 A 1 = DON'T MOVE
ISTAY IN CURRENT FIELD
SETUP FOR RELOCATION
IDONE ALL TESTS,

ISET ALL TEST BITS
ISAVE

~r,F

X 4 f' 1.. .:

IHST 1. rA('H LnC AT TO~, WILL CONTAIN ITS
ALL or :-1 ( tORY SPrCIrIED WILL
VALUE.
ITHE PAT TER,Ii.

I i)WN

CO~\JTAIN

I
•

, . , , ' ) '-4

\: (~:~ )

'/'70
v

~ .~?

:.::,

741<100

~r""',~;

~9IV"~60

• \71 :<. ~~ "'

WBLKl

~.1276

.. 5 .
~

Jtv,~.

LA r·
f')AC'
JMC)
JMS
SKP
JMP
LAW

44345
7:3 3

.? ~ ~f
;'F~?7
.

TSTl

71)'.'261

77 7

776

:5 4

'f t. 4~42

OAr

0lJ3V'
(~Vl ~:3 f-

777775
44:341

LAl"i
OAC

V1VJ~37

;;.~4?75

v vl ~

0034('-

t,4275

Vl0~41

<:44'342
.1'-;' ")41
777776

(l1

034?

(;1

Vj:: 4"

I-

("'0344

': 4)42

4 r..,

~44.~41

r~;~ ~ 4"
ril"n47

444275

(~(I)3

f(~(i'337

(~035t'

444~77

[1\'1351

f.t~?335

r~B5?

76e~~0'0

0(1)35'

"'44320
7 41 ~H~0
t-02440

(~0 3

'5 ~

0V135~
(~Vl35h

G'!V1~57

1 :il1344
6(ile!330

WLOP1

LAC

nAC"
ISl
.JMP

LAW
nAC
IS2
JMP
ISr
1St
JMP
LAW
SAD
SKP
JMP
JMS
JMP
.EJECT

v-iRT1S
261
TNUM
<:;ET1
CBANK

IWRITE l' S INT0 ALL OF MJ:MORY
ITEST NUMBER
ISETLJP FOR FIRST FIELD
ISfT IF IT HAS PROGRAM
INO

READl

IREAf') ANT TEST ALL

-2

RPETE
-3
WRCNT
MEMA[1R
t'-1EMADR
RPE'TF
.-1
-2
RPETE
WRCNT
WLOPl
MEMADR
CT4K
WLOPl-2

IDELAY COUNTER

ITOTAl 22.5 US BETWEEN WRITES
IADDRESS + 1
14K WHEN SKIP
IWRITE IN NEXT

RLOCl

INO RLOCK IF = LAW

BLKAl
NXTBNK
WBLK1-3

ISETUP FOR BLOCK 2
ISETUP FOR NEXT FIELD
/SEE IF IT HAS PROGRAM

ICOUNTS 3 TIMES FOR EACH ADDRESS
IWRITE C(MEMADR) INTO SAME
IDELAY 9 US

PAGE

f::.

IRE.A r-j

Ai'.J['i

(" H;'-.

C po(

r-O~

FRROR. READ FR()M lO FIFlO

ITO ,-<I FIE L~ A\~) THEN OECREMENT FROM HI TO

IRrpr::AT

T'-i~

In.

...,EOuc-\.JCE TWICE BEFORE FINISHING.

I
\/0,7.,6

777776

/' \~ 3 61

i~44343

i~ 0 ~ 6 ')
0;:136'\

1~?733

LA,...
nAC
J ~., S

744i102

STL

(~0364

101276

J"IS

'·~0;i bt:,

741 v100

SK>=J

V'V'l;inf-

A0,9!420
777766
C/4 4 .)42
204275
044274
?24275
"144275

~~b7

v'0;; 7 t}
(1,0371
l~

03 7?

READl

J~'"

RlOP1

L .A . . .
nA('

LA:
OAr:

v)037C;

f>910400

Vl037A
Vl0;i77
00400
00.401

101377

LAC*
SA r,
JM;::>
JMS

"'037~
v'I~374

VlVl40?

0040;i
!il04V'14
(7IQj 4 QlC;
004V!A
0V!4Vl7
V'IVJ 41 (/'
00411
Vl041?

f-0V!402

Jtv1P

444342
A00374
444275
444277

lSi
JMP
lSi

f-003f17

JMP
LA ...

~VJ413

71)vHlJ00
C:;44320
74H'J00
60.2454
744002
101344
600.364

0.0414

60(71420

T S;Z

SAC

SKP
JMP
STl
JMS
J/o1P
JMP
I

.EJECT

-2
LOOPT
SETl

CBANK
RBAK1
-12
RPETE
MEMADR
PATR
MEMADR
MEMADR
,+3

ERROR
,+3
RPETE
RlOP1+5
t.1EMADR
CT4K
RlOP1

ISETUP FOR 1ST FIELD
ISEE IF IT HAS PROGRAM
INO
IREAn 8ACKWARDS
IlOOP 1e TIMES ON EACH READ
IREAO
ICOMPARE
10K
IPRINT ERROR
IlOOP 10 TIMES
IADDRESS + 1
14K WHEN SKIP
IREAD NEXT

RlOC1

10 BLOCKS IF = LAW

RlKBl

ISETUP FOR BLOCK 2

f\JXTBNK
RlOPl-3
R8AKl

ISETUP FOR NEXT FIELD
15EE IF IT HAS PROGRAM
IREAD FROM HI TO lO FIELD

IJ!'1 AGE

X I, i

~~
r

":.
~

1'"'/

, ,:: ',1.~

,>-, )
' /' 7 3

, " ... --:

l.onpl

f ,') j

',OOP T

jilL->

;:"E /J. () 1 +?

J \'';

~X"'M?

I[lONE IF 0
IRE'An FORWARD ONCE MORE
ICHECK FOR TEST 2.

IREAD

TE~T

1 PW,""

I FIELD TO LO FIELD

?7?2
':) 742

/ vj4 2!,

'04 ?1
:t1l4??
'04'/ ~<
,'(7142 t1

7 41 Hilk~

415
7777A6
f-.

'44,~42

(~~4?f

1(114~/

7.'4,275
44274
::,)4275

/1'1431

;;;,~

?l~43;:'

",1 'J,4 ~5

V11'4,r~

171377

0043 4

.1.? 75

~~7'437

(11.;)43")

£144342

;-104 ~f,

":"[,,430

00437
(1044;'

777777
<44275

44275

e':~ 4

"044;::

{t.4)77

00443

to:::q24

(,'0444

7 <.,:11,1100

~'04 4 "i

;:'44320

0044f
('0447

-; 41 .~ 00

V.045C'

f, ',) 2 4 71
10?7A5

0045~

t-Vl~421

00452

t<W415

JMS '

SETBAK

JM~

CK8AK

SK~

,~~'

,,' 04?;:'
(l 114? 7

PBAK1

8AKl

JMP
LAy.;
(1 AC~
LAC
OAr:
LAC*
SAl)
JMP
JMS
JMP
ISt
JMP
LAW
TAD
OAt:
IS?
JMP
LAw
SAQ
SKP
JMP
JMS
JMP
JMP
.EJECT

LOOPl
-12

ISETUP FOR LAST rIELD
ISEE IF IT HAS PROGRAM
INO
IALL DONE

~P[TE

~EMADR

PATR
MEMADR
MEMADR
.+3
ERROR
.+3
RPETE
8AK1+4
-1
MEMADR
MEMAOR
CT4K
RAK1

14K WHEN SKIP
IREAD NEXT

RLOCl

INO ALOCKS IF = LAW

RLKCl
NXRAK
RBAK1+1
LOOPl

ISETUP FOR BLOCK 2
,SFTUP FOR NEXT FIELD
ISEE IF IT HAS PROGRAM
IREAD FORWARD AGAIN

IREAD ONE
ICOMPARE

IPRINT ERROR

IADDRESS

-1

IT[ST2. WRITF CO~PLEMENT AnORESSES INTO ONE
IFIELD AND 777770 ALL OTHER FIELDS. WRITE IN
IBOT~ DIRECT10~S (LO T0 HI AND HI TO LO) AND READ
lIN 80TH DI~ECTI~~S. REST OF MEMORY IS CHECKED
JAFTER EAC~ h~rTr ANn READ.
1

(;\(14 5 ~

J ), 'i"\ 70

004'5L

00462
00463
V10464

10?733
744/J00
1 '/11276
741 (1 (?J 0
f- 0 v" 5 'Ill
777776
(/'44342
777775
744341

0046~

?~4275

0046h

(710472
0047:;
00474

74CJ!001
1'64275
444,342
n0?470
777776
744342
444341

(i'l047~

~.iW465

00476
00477
00500
00501
1t0502

444275
444277

r1j04~5

0 45 f
(1(71457
v~

,~(lJ46"

110461

(710467
~~047V,

(1\0471

0050~

00'504
00505
005(71f
00507
005HI

TST2

rLL

LOP2

f'0?511

100'511
100562
100511
t-00637

JI"!S
SKP

JMP

CKB2
-2

OAr:

RPETE

LAW

-3

LAr
CMA
OAC.
1St
JMP
LAW
OAr:
IS1
JMP
lSi

CKB2

C8ANK

LH·

OAr:

WLOP2

600,463

76Ci11lV'l0
c::,44320
741000

IWRITE l'S INTn ALL OF MEMORY
ISETUP FO~ FIRST FIELr

JVO:;

JM~

IS1Z
JMP
LAw
SAil
SKP
JMP
JMS
JMS
JMS
JMP

.EJECT

WRCNT
MEMADR
MEMADR
RPETE

ISEE IF IT HAS PROGRAM
INa
IALL DOf'.<E
IDELAY COUNTER
IADORESS
ICOMPLEMENT
lITE INTOSAME
IDELAY 4.5 US

.-1

-2

RPETE
wRCNT
wLOP2
MEMADR
CT4K
WLOP2-2

139 US TOTAL BETWEEN WRITES

IADDRESS + 1
14K WHEN 0

= LAW

BLOC1

INa BLOCK IF

BLKA2
RST2
RFWD2
RST2
TST2A

ISETUP FOR BLOCK 2
IREAD REST OF MEMORY
IREAD TESTED FIELO La TO HI
IRrAD REST OF MEMORY AGAIN

/WRITE HI TO LO IN TESTED FIELD

/ SET UP T0 H t ,\ eJ Rr S T 0 F MEM0 RY, T.i Er-..j REA 0
ITHE FIELD wITH THE AOORESS PATTER~.
10'-)1
v (~S 1

"? ;.,

7/-.

?62

v?S 1 c.

4434'5
?/4.)01

v~0sP'

;:'~45~0

"'??::;11

~A';:;

RST2

300

PI/lS1?

;;'~ 4

:' VI S '2:~
(.-',~; '::. 1
,,;0S ??
[10 "i.? ~
r;~ "i:J 4

','44275
7702100
'44277
? ,14 [103
I'

0 TEST

~' ~'l"'. ::.

A f\1

RST2A

44 307

\H~S?5

:J~427'5

V'0,??f(,10S;/7
f~ Vl" 3 Vi

1:)44340

f-0vS32

/01)31

1 \,~ (J.;; 3 7
1--/"=;21)

v053?

~44)?1

0(1)33
00534

??:434rl1

~0S3'"'

~\4 4 400

(!'0S~f.

f?~'5?0

r'?t'')11

LA f\;
DAr
LAC
SAfI
JMP*
LAC
nAC
LAw
DAC
LAC
nAC
LAC
SAO
JMP
JMS
JMP
SAO
JMP*
LAC
TA[l
JMP

,EJECT

?62

TNUM
LASTl
FIRSTl
RST2
FIRSTl
MEMADR

10NLY 1 SELECTED IF EQUAL
INaNE TO READ
IFIRST TO TEST

-10000

1-4K

CT4K
KRTN2
EXIT
MEMADR
PATBNK
,+3

REST2
,-4

LASTl
RST2
PATBNK
K10K
RST2A

ITrST NUMBER

/KRTN2

= LOCATION RTN2

IDOES FIELD HAVE PATTERN
IYES
INO, CHECK IT FOR 777777
ISETUP FOR NEXT
lIS IT THE LAST
IYES, NO MORE TO TEST
IADD 4K TO ADDRESS

PAr.E

1 '

',<

A;
I

IRE AD ALL nF ME W)RY EXCEPT FIELD wITH ADDRESS PATTER"J.
/
/".~537
'1;i1~4 ;'
it'; 0 t:; 4 j

V·0S4 ;;:
Vvl,)4:;

",r, ,'00
~,~1323

777777
,'44274
?;?4~75

('~0S44

"'44?74

(?lS4,;

741l(~0

0V'J54f

j/l1377

~Vl')47

t.44?75

VV'l55V'

444277

005'5:!.

A ,j/1 '543

00')5?

7A?l~0

V'l0S5~

::;44320

Vl0'5'54
11101)51)
',1 0. I) I) A

741 . ~00
f-:24307

744["02

(,'j~I)S7

~~1276

0~c::,6~';

00'561

62?537
A24307

0056;;

;\0V.J~0

00'563
V'l0'564

204340
(;>44275
770000
(,44277
?04275

0056~

V'l0'566
00'567
(1)0')70
'~0')71

0057?
00573
00574
00')75
0057((710577
0060C~

;::EST?

74(i\~~01

044/74
?24275
~44274

741~V'l0

HH377
444275
444277
60~567

00601

76(J1000

Vl060.?

~44320

~V'l60~

h0~605

~'eJ604

601'523

ALLl

JivlS
LAH
OAr
LAC*
SAn
SKP
Jt-1S
1StISf
JMP
LAw
SAf)
SKP
JMP*
STL
JMS
JMP*
JMP*

C81\K

ISEE IF FIELD HAS PROGRAM

-1

PATR
~EMADR

PATR
ERROR
MEMAOR
CT4K
ALLl
RLOCl

ICOMPARE CONSTANT
IREAn
100ES IT = 777777
10K
IPRINT ERROR
IADDRESS + 1
14K IF 0
INO BLOCKS IF

= LAW

EX IT
CBANK
REST2
EXIT

ISETUP FOR NEXT FIELD

INO MORE TO READ
I
IROUTINE TO READ THE FIELD WITH THE ADDRESS
IPATTERN FROt-i LO TO HI.
I
RFW02
0
PATBNK
IFIELD WITH ADDRESS PATTERN
LAC
MEMADR
OAC
LAW
-1Q10"'0
CT4K
OAC
MEMADR
IADDRESS
LAC
FWD2
ICOMPLEMENT
CMA
[lAC
PATR
MEMADR
IREAD
LAC*
PATR
SAfI
ICOMPARE
SKP
10K
JMS
/PRINT ERROR
ERROR
1St
MEMADR
IADDRESS + 1
1St
CT4K
JMP
/READ ANOTHER
FW02
LAW
INa BLOCK IF = LAW
SAO
RLoci
JMP
IREAO BACKWARDS
RBAK2
JMP
/SETUP FOR BLOCK
8LKC2
I
.E.JECT

'PAGE

1"Jnw READ ::::6~'E FIELD FRUM
/ q F S T 0 F MF i'1 r, R( •

T,:;

L',

THf\J

~tCYECK

LAr

PATRNK

It 0A ,1t

/,.4 n7

X U~'

'r<7777

i-106?17

/44?75
77 ';';\ V10
441'77
7]7774
.'44342
/7,4275

fiAC

""EMAOR

, G1Av,C::

VI Vl f 1 ;'

:101--11
(,10(- 1-i>7. f Li)
r.~ 21 614
'''lilA 1 c::;

',f.

) 4 VI

~RAK?

8AK2

LAw

-1C~000

nAC

CT4K

LAiN
nAC
lAC

RPETE
MEMAOR
PATR
MEMAOR
PATR
.+3
ERROR

MEMADR
MEMAOR
CT4K
RAK2

IAOORESS MINUS 1

RLOC1
RFWD2
RLK02

INO RLOCK IF = LAW
IEXIT ANO RECHECK REST OF MEMORY
ISETUP NEXT RLOCK

V10f~;)

76V',,:~00

~0634

>';44320

SAD

\~063C::

,)(l'5A2

'/(1)63 f

JMP ..
JMP
.EJECT

:;;~!./75

01062(-

~44275

Vl0A3(~

/44275
444277
hW612

',H'1h31

1063?

-4

C I"! 6

;,10627

0062?
006?:'
00(->?4
0062>=-

PATTERN

74 (i' A0.1

;"44274
i- ,'1? 6? 4
1(111377
6Q1(11626
444342
A00617
777777

~'~(16?:

~ITH

" 4 4 274

GAr
LAr*
SAD
JMP
JMS
JMP
1St'
.JMP
LAW
TAn
OAC
1St
JMP
LAw

v1 0Al r'
\l0 f 1 7
~1 t, 2 v"

IFIELO

\1?5?5

IREAn
ICOMPARE.
IPRINT ERROR

.+~

RPETE

IREAD EACH 4 TIMES

~AK2+5

-1

14K WHEN 0

PAGE

~ .~

Y.A

1 ~',
/

fTrST ? A. ... ;., r TF SAME PATTERN IN SAME. FIE.LD
IFROM HI Ti'
J•
/

0f- 41

/443 77

X Gr<

·Qf.4?

/'44275

Dllr
LA;,;
(lAr

wRT1S
PAT8Nte;
K7777
MEMADR
-10000
CT4K

LAC

MEMAOR

191~J7k1

:: Vi f- ,)7
~ Ii 0 4 ,',

~)"4340

:'A

';~k~64~

7700021

'~~n44

i/'44277

'''064 'J
~> V16 4 f
00647

?Vl4 2 75

0065C'

777777
344275
i/144275
444277
600645
760000
'54432121
7410121121
602511
100511
H1V'!562
1 (i'lO'511

TST2A

J"', ~

LA,'

C"~6'51

('H'l65?

00653
0065u

kHIJ6'5'1
00656
00657
~Hi)660

00661
0066?
V'l066~

RAK2A

74~001

C i"i A
C,A C' *

(,~A4275

LA.,
TA"
I)Ar
1S t
JMP
LA ...
SA Il

MEMADR
-1

MEMADR
MEMADR
CT4K
RAK2A

IADDRESS
IcOMPLEMFNT
IWRrTE INTO

SA~E

IADDRESS MINUS 1
14K WHEN 0

= LAW

RLOC1

INO BLOCK IF

RLKA2
RST2
RFWD2
RST2

ISETUP TO CHECK REST OF MEMORY
IREAO LO TO HI: ~ I TO LO
IRECHECK REST OF MEMORY AGAIN

SKP

JMP
JMS
JtvlS
JMS

IwRITE 1 t S INTO ALL OF MEMORY
IFIELO wITH PATTERN

ISETUP TO wRITE ADORESS PATTERN IN NEXT
ISEQUENTIAL FIELf'J
I
[~(i'l664

0121665
0121666
~0667

(110670
(11121671
0VJfl7?
0121673
00674
0067'5
00676
00677

/0434121
")44301
(-'00277
10307121
?04340

NXPT2

~44400
C~44340

044275
74412100
101276
MH"461
AV'l0277

LAC
SAn
JMP
JMS
LAr
TAl)
DAC
DAr
CLL
JMS
JMP
JMP

I
.EJECT

PAT8NK
LASTl
EXAM3
wRT1 S
PAT8NK
K10K
PATBNK
MEMADR
CBANK
LOP2+3
EXAM3

ICURRENT TEST FIELD
IWAS IT THE LAST
IYES. CHECK FOR TEST 3
IwRITE 1 t S INTO ALL OF MEMORy

IADD 4K TO cURRENT FIELD
INEW FIELD

tolE

y 4',

I
ITEST ~ S L I [ :~ A 1 THRU 1 FIEln. REPFAT 18 TIMES
I PF R FIELD T ;; CH~CK EACM BIT P(:SITICJN, REST OF Mf"MORY
I \oJ IL L CONTAI'- All 1 ' (' CHECK REST OF ME M(1~' Y II F IE R
IEAC..; WRITE ANO READ IN THE FIFlD REING TESTED.
I
LA '-,
TST3
?63
nAC
TNUM
/TEST NUMBER
/wRITE 1 'S INTO All OF MEMORY
JMS
WRT1S
JMS
ISETUP FOR 1ST FIELD
SETl
eLL
I
JMC:
lOP3
C8ANK
ISEE IF IT HAS PROGRAM
SKP
INa
JMP
CK83
IAll DONE
IKl = 1
lAC
Kl
[lAC
IC(8ITN) = STARTING BIT POSITION
BITN
~ITN
LAC
PATR
nAC
Cll
wLOP3
LAC
PATR
IWRITE THE 8IT
MEMADR
DAC*
INEXT POSITION
RAl
PATR
DAC
IADDRESS + 1
MEMADR
152
14K WHEN SKIP
157
CT4K
JMP
IWRITE IN NEXT
WLOP3+1
CKP3
LAW
SAD
ALOC1
SKP
JMP
BLKA3
JMS
RST3
ISET UP TO READ REST OF MEMORY
JMS
RFWD3
IREAD FIELD LO TO HI
JMS
RST3
IRFCHECK REST OF MEMORY
JMP
ISEE IF 18 POSITIONS YT
cK1 8 8
,EJECT

vl070v

71,0263

;\ 0 7 '11

'"44345

"V170?

1 0)~170

:107~n

lC"?733

:704

744000

'/170'1

1':11276

MiJ706

741'~00

00707

f,00724

V071?

?!il4346
("44344
?04344
1/'44274
744:il00
?04274
v: 1)4 275
74012110
"44274
444275
444277
A00716

00711
0071?
(~0713

V10714
~10715

0071t-

00717
V1072Vi
0121721
0121722
007?3
00724
VlVl72'1
C1 v.J72f
~1121 727
0073121
00731
01217 3 ?
00733

7f)V'I:~00
S44:~2eJ

741000
A0?547
11210734
1"'(71757
1007 34
A01007

Y A ;:1;"

Dt.CE 1··

ISFTUP TO RE"'D RFST OF MEMORY.
I
( '!17,~ ,;

, ',' 110

v 07;~

'"), 14 301

7:S h

':' 4 <1 ~ 0 eJ

(;.07::n
1/074(veJ741
,~Vl7 4;

t· ?~;' 7 34

.~\~

Vi(l!74f-

00747

544340

0V'l75v~

h0V1753

0.0751
00752

lVlV'!'5~7

0k'l744
0V'l74~

(~07'5~

0"'7'54
00755
;7IQJ75f-

PTN3

)r~4:5i1eJ

' 44)75
77 ,II '71 eJ
44277
:;! 4,104
44307
? ,14275

~074~

hST3

RST3A

A[ilV'!746
"'44301
A2V'1734
,'44400
f-QJ0741

LASTl
FIRS Tl
RST3
FIRSTl
MEMAOR

/LAST FIELn TO TEST
IFIRST TO TEST
INONE TO TEST

LA '-.J

-1 Vl(iHH?J

DAr
LAC
nAr;
LAC
SAD
JMP
JMS
JMP
SAD
JMP*
TAli
,JMP

CT4K

1-4K
14K COUNTER

KRTN~

IKRTN3 = LOCATION RTN3

LAC
SAf1
JMP*
LAr

nA(-:

I
.EJECT

E"XIT
MEMADR
PATBNK
.+3
REST2
.-4
LAST1
RST3
K1V'lK
RST3A

IFIELD wITH PATTERN
IREAD REST OF MEMORY
INO MORE TO READ
IAOD 4K TO cURRENT
ITRY NEXT

;

IXAno5-TAr-~

l~rA~
'7t.:, 7

, "

A',

;) '~4\1l

, ~~ 7 61

, 44~)75

'1l7 b'/

'7711' <I V)

,',., I

" /17 b:l
, ~76:...

PATTER~

r;GM lO TO HI.

PFhD3

PATB"-JK
tvlEMAQR

LA;.

-101210.0

44277
-:;,~4344

flAC'
l A ('

c' 44? 7 4

n A!-:

CT4K
gITN
PATR

744v10.0.
, "

TEST

??4275

/:.-, 77,'
,'177 1
;1\9177::'

'44274
741.000

FW03

SKP
JMS
lAC

'?<7r,

?:'~4274

(/112177'"

741?00
44;102

:;0.77>-

...., 4 1,' .!I10

00777
:,' 1 ".~ c'
01 i?!:~:
;10,1 ?
,A 1? tl-,

'4 i! 274

14K COUNTER

ICURRENT STARTING POSITION
IREAD
ICOMPARE

SA Il

~c;11377

0~774

Cll
lAC*

IFIELD wITH 8IT PATTERN

10K

ERROR
PATR

IPRINT ERROR

S~A

S Tl
RAl
nAC'

,',44)75

lSi
lSI

444?77

JMl::
LA ...

"AC> 7 f. 7
7 6~' ,,10121

INEXT BIT POSITION
PATR

MEMADR
CT4K
FWD3

/lV'>''::

'-'44320

SAP

,,' 17 VJ'"

f-?:~ 7'57

r 1 V' ~~ ~

AI/)?~Al

JMP*
JMP

RLOCl
RFWD3
RLKC3

~'1 ~ ~ 7

;.~4.344

LAC

RITN

01\1'1"

":>44405

K4e0K

vir?11

1·(~1 )121

~~101?
ViH~l!1

744 {11 0
: 44344

0'lV14

?~4340

IrH'l'"'

·44275

SAO
JMP
RCL
DAr
LAC
OAr
LAw
nAC
JMP

IADDRESS + 1
14K WHEN SKIP
INO CHECK IF
IEXIT

= LAW

i'H'lt?1017

,'1 ~2i'

CK18R

77 171 <100
,'44'277
.... :1)0712

NXPT3
RITN
PATBNK
I-iEMADR

IDONE IF = 400000
ISETUP FOR NEXT FIELD
ICURRENT FIELD

-10'000

CT4K
WLOP3-3

ISETUP NEXT rIELn WITH BIT PATTERN
I

V1C'2~

.~ 4

440121

LAC
SAn
JMP
JMS
LAC
TAil

','11\J;U

V4434Vl

f1Ar:

PATSNK
LAST1
EXAM4
wRT1S
PATBNK
K1e1K
PATBNK

MEMAf)R

01021

:;114340

(l1(?2?

"'44301

0H'2~

1':1V'303

(Ill r2~

1iJ~07eJ

(tll~2~

':.' 1'4340

NXPT3

1,1110 ~/

~44?75

OAr

111 (i' ~ 1
/1 r 3::'

744,W0

eLL

1,,"1 ? 76

JMS

"ftl V' 71 0

J~r

CBANK
LOP3+3

,:-,~ V\:S 0 3

Jr-<P

rXAM4

• E JE.C~T

IALL DONE. CHECK FOR TEST 4
IWRITE l'S INTO ALL OF MEMORY

IADD 4K
INEW FIELD

PAGE

" A; l '

IT[ST 4. wR I 1 E A PATTERN CO~SISTIN(' (IF
/ALTERNATE w iiRDS OF 777777 AI\JO 12100000,
IFROiv1 LO TO \-. I, AND f..'I TO LO. THE PA TTERt'-i IS
IREAD THE S A~~ E vH y. CHECK REST OF M(NORy
/AFT~R EACH I'JR I Tr:: ANn READ SEQUENCE, TI-lEN
/COMPLEMENT THt PATTF.RN AND REPEAT,
/

;~H')37

- 44:-S 45

j!'lS
LAw
OAC

1 V' 4.
'1 r 4 ~

~44/73

nlt-n

::'1V'4?

~ ,\? 733
-; <: 4 .)(i1 121

)104~

• ,11276

~~1044

'41 ,~0i21

1 e 4""

" , 1 :;162

'ilV14f

0105?

7"4273
,44?74
777774
'.'44342
?04274

1/110'5~

74~,i101

(~1054

'64275
444342
h01jt;4
<:44275
444';)77
f.,71L'~4 7
76V1Ml0
')4432121
74j00121
f:il?610

jMS
CLl
jt-.1S
SKP
jMP
LAC
OAC
LAw
OAC
LAC
CMA
OAC ..
1St:
JMP
1St

7121

.'103~

: r~ ~,~

<'H'3r

7f.,-',?f4

01V'47
0H-:5~'

?10~1

01055
'~10 5 t-01057
\~1~'6V

010.61
0106?
vlV'163

(7IH'l64
0106">
t'1106f~i10 n 7

TST4

LOP4

WLOP4

IS~

CK86

:1j)1126

1 ~H 102

JMP
LAW
SAD
SKP
JMP
JMS
jMS

WRT1S
?64
TNUM
CNTRL
SETl

/WRITE l'S INTO ALL OF

CBANK

ISEE IF IT HAS PROGRAM
INO
IAll DONE

CK86
r:NTRL
PATR
-4
RPETE
PATR

ITEST NUMBER
ISETLJP FOR FIRST FIELD

14 WRITES PER lOCATION
1777777 OR 121121121121121121

MEMADR
RPETE
.-2
MEMAOR
CT4K
WlOP4

IWRITE
14 WRITES WHEN SKIP

RLOC1

INO BLOCK IF

RlKA4
RFWD4
REST4

IREAO LO TO HI IN TESTED FIELD
IREAO REST OF MEMORY

14K WHEN SKIP

= LAW

H'H'

?Q14273
740200
f,i211?15
74001211
('44273
?04340
t?44275
77(H100
44277

~11~1

f.,01046

0107V
01071
01~72
~11073

01074
0107')
Vl107fV!1~77
~1

ICHECK FOR COMPLEMENT PATTERN
I
CNTRl
LAC
StA
TST4A
JMP
CMA
OAC
CNTRL
PATBNK
LAC
MEMAOR
OAC
LA~
-10002
OAC
CT4K
jMP
LOP4+3
I

.EJECT

'EMORy

IWRITE BACKWARDS
IFIELD WITH PATTERN
IMINUS 4K
/WRITE COMPLEMENT

~r,~

' 1h

ISETUP Tn READ

R~ST

fiF

MEMORY

11 ~; "

i'v'

cE~T4

' 1.;-,', 1

, 11,1,'
-~ 11 ,J l:

.:. <4 4 ~ :..10

/~ 11 (11 ~

!"' 21 1 (' 2

PTN4

11110,t'

):~ 4 :5l~

et
'44275

REST4A

011'17
0111 '"

-, 7 VI ii(> 0

Vll11 "

' 44 ?77

;/111 '.}

? 1"14.)0 5

il11~~

011?V

,'443(?!7
?~ 4275
"''::4340
,,-" 121
~ ,:1" ~ 7
;. ,11114

Vi l12 1

h443V11

0112?
1:112::
."1124

f? j 1. V'2
:~44400

If 112c:,

{

1114

0111~

01.111)
V1117

0112f
01127
0113:/
01131
01132

?04340
1107

liWiJ00

2914340
~44275

77(~~00

~'4 4

277

r.113~

?i14273

0.1134

,'44274
777774

Vll13~

(111136
01137
0114?
01141
01142
0114~

"'1144
01145
01146
~1147

~44342

?~4?74

740vHH
144274

224275
'544274
f-01147

jGH377
f-?l11'51
444342
"01142
444275

Vll15v'
011'51
?115?
011'53
01154
v~ 115 t::

"'44320

011'5A

f)(il1160

011'57

~24307

~44277

f;01135
76~~00

LAC
SALl
JMP*
LAC
OAr:
LAW
[lAC
LAC
r)AC
LAC
SAO
JMP
JMS
JMP
SAO
JMP*
LAC
TAD
JMP

LAST1
FIRST1
REST4
FIRST1
MEMADR
-10000
CT4K
KRTN4
EXIT
MEMAOR
PATBNK
.+3
REST2
.-4
LASTl
REST4
PATBNK
K10K
REST4A

ILAST TO TEST
10NLY 1 SELECTED IF EQUAL
INONE TO READ
IFIRST TO TEST

IKRTN4

= LOCATION RTN4

IDOES FIELD HAVE PATTERN
IYES
IREAD REST OF MEMORY
IDOES IT = LAST TO TEST
INO MORE TO READ
ICURRENT FIELD
1+ 10000

I
IREAO THE FIFLO WITH THE WORD PATTfRN FROM LO TO
IHI, THO,j HI TO LO.
I
RFWD4
VI
PATBNK
IFIELD wITH PATTERN
LAC
MEMADR
OAC
IMINUS 4K
LAW
-10000
DAC
CT4K
r:NTRL
ICNTRL = 777777 OR 000000
RBLK4
LAC
PATR
OAC
LAw
-4
RPETE
IREAD EACH LOCATION 4 TIMES
DAC
PATR
LAC
CMA
PATR
OAC
MEMAOR
FWD4
IREAO
LAC*
PATR
ICOMPARE
SAO
JMP
10K
.+3
JMS
ERROR
IPRINT ERROR
JMP
.+3
IS2
RPETE
JMP
FWD4
1St
MEMADR
IAODRESS + 1
ISl
14K WHEN SKIP
CT4K
JMP
IREAD ANOTHER
RBLK4+2
LAW
SAil
ALOC1
INa ALOCK IF = LAW
JMP
IREAD BACKWARD
R8AK4
ISFTUP FOR NEXT BLOCK
JMP*
EXIT
I
.EJECT

pt,,('E

x A r, ~;:.

1'"'

/REA'l SAME FIELD WITH WORD PATTERN FROM
/ >-f I TO LO,
T i·E t\J "'ECHFCK REST OF Mt~CPY.
LAC'

~~11f)[:

?/J4 S40

0116~

';t'.4377

X fjl-,

vH16?

/44275
77"1 >;0.0
' 44277
;:;\114273
740001
"744274
777770
';44342

DAC
LA"
OAr:
lAC
CMA
DAC
LA/'J
OAr
LAC
Ct>1A

r!l116~

01164
(,~1165

((1166
0.1167
0117(1

\Il1171
rl117?
01173
01174
(I) 11 7 c:;,

RAK4

?Vl4~74

~117t-

74 iii ~tl01
4 274
;;24?75
')44274

Vi1177
1? Vl (11

101377

;:;8AK4

,,' 4

[lAC

~01202

LAC*
SAn
JMP
JMS
JMP

V11?01

1-,01204

(!J12Vl?

444342

lSi'

~H?\Il3

~01175

rH?04
01?0t:;
Vil?VJh
(111;;>07

777777
:'44275
144? 75
444277
r, 1i1 11 7 0
7h0000

JMP
LA \. ;
TAn
OAe

1'11210

Vl1211
01212
(7I1?13
~1?14

1St

JMP
LAW
SAO
JMP*
JMP*

~44~20

h21126
f?4307
I

.EJECT

PATBNK
K7777
MEMADR
-10000
CT4K
r:NTRL
PATR
-H'!
RPETE
PATR
PATR
MEMAOR
PATR
. +3
ERROR
.+3
RPETE
RAK4+5
-1
MEMADR
MEMAOR
CT4K
RAK4
RLOCl
RFWD4
EXIT

ICURRENT TEST FIELD
IMINUS 4K
ICNTRL = 777777 OR 000000
IREAD EACH LOCATION 8 TIMES

/REAO
ICOMPARE
10K
IPRI"lT ERROR

/MINUS 1
IAODRESS MINUS 1
14K WHrN SKIP
/RrMl ANOTHER

INO BLOCK IF = LAW
IREAO REST OF MEMORY

.-rGE 1 ;;

X A f! 1 t-,
I

/ TF S T

4A.

t-:l-(lTF

IN SAM[

FI[LO FROM HI hi Ln,

,Ill? 17

777777
,,' 41\ 2 73
i,c4?74

v' 1 22["

:0 'tl 4 340

rq??l

?t.4577
/44275
7 7i~',M30
/44277
7777f>0
44342
~ \~ 4? 7 4

121 t:.,

(/'121 t

vi 1??~'
012~'
~\

1 ?2t1

';A 1? 2'"

f?1?2f,

01227
(1123(.0,1231
0123?

TST4A

LA\,;

f)AC
OAr:
LAC'
X()~

[lAC
LAw
r)A r

LOP4A

LAw

fJAC
LAC

747/1(/'1

(' ~" t.

,'44274
,64275
444,)42

[lAC
nAC*
ISf

(}1234
~'1? 3"

f- '111232

Y1P

777777

v~123~

-~44275

LA1-4
TAn

01237

"'44?75
444;77
f'<l1225

lq ?3,~

'~124v)

[7i1241
!I11?4?
(tH?4~

01244
~~ 12 4 ~
17>124f.
01247
(} 125(/
012'51
0125?

76v~00

740i(1~1

44 273
1;,11 2 6

I,'

1011~2
h~4340

01?54

('44275
2914273

01256
01257
01260
01261

I Sfl
JMP
LAw
SA r)
SKP
JMP
LAC
CMA
OAC
JMS
JMS
LAC
DAr
LAC
S2A
JMP
OAC
JMP

"'>44320
74h:'l00
':,72642
,? 'l4 273

V'12'5~

~1?'55

DAC

74~200

A01262
044274
f.01220
I

.EJECT

-1
CNTRL
PATR
PATBNK
K7777
MEMAOR
-10000
CT4K
-20
RPFTE
PATR

ICURRENT FIELD wITH PATTERN

IWRITE EACH LOCATION 16 TIMES

PATR
r1EMAOR
RPETF:
.-2
-1
MEMADR
MEMAOR
CT4K
LOP4A

14K WHEN SKIP
IWRITE ANOTHER

BLOC!

INO RLOCK IF

RLKF4
CNTRL

ISETUP FOR NEXT ALaCK
ICNTRL = 777777 OR 000000

CNTRL
RFWD4
REST4
PATBNK
MEMADR
CNTRL

ICOMPLEMENT FOR READ FORWARD
IREAO FORWARD
IREAf) REST OF MEMORY

IWRITE
WRITES WHEN SK

116

IADDRESS

-1
= LAW

ICHECK FOR COMPLEMENT
NXTP4
PATR
TST4A+3

PAGE

'< AI

"1 ... ,

ISFTUP TO

\'..~

[ TE

T \j

NfXT FIELD

'1 h.,
" 1? ') ~

\' 1 ?6 1J
1?0::"
"1 ?f,C'

,'L, .34\1

v"l? 7 v'

01? 71
,.\ 1?7?

74 4'~ ~ 0

V\1?7:~

~V'1276

01?74
;'I1?7,)

~'1j46

j iV1 5
LAC

TAl)

o td~

'44~75

t' J c~3

LA i'
SA
J ~~ p

• Y',~ v 7

. ,,~,' 70
;:' t.. ~ 4 0
:~ Co 4 4 00
1/44540

(~1? 67

~XTP4

,;.; 4 L! ~ V 1

(il7

PATBNK
LASTl
EXAM4+4
WRT1S
PATBNK
K10K
PATBNK
MEMAOR

OAr:
eLL
jMS
jr-i P

CBANK
LOP4+3

jr1 P

~XAM4+4

ICURRENT FIELD
ISETUP TO RELOCATE
IwRITE l'S INTO ALL OF MEMORY
IPLUS 4K

IROUTINE TO SEE IF TrSTEO FIELD HAS PROGRAM

I
'" 1? 7 f'

" ~ ~1.10 V'I

CBANK

01?77
01300
r 1301

770000
~'4 4 277
~~1360

jMS

V"13~?

~44?75

(11130~

f~1317

SAri
jMf-!
jl"lP*
IS?

Vl13~il

~21276

013::1;:;

441276
f?1?76
?!14?75
<:44400
?44275
740"400
,44340

v11 :OS\(1 n
~~ 13;)7
'1\131 ~

V1311
0131?
~~131~

LA"

nAC

NOMOR

jMP*

LAC
TA
nAC
SNl
OAC

01314
0131t:;
fi!131t--

770~H?l0

LAW

044277
f01277

DAr:
JMP

7)131 7

?~14275

0132\7

344400
;~ 4 4 275

-10000
CT4K
WHERE
MEMAOR
CBNK-4
CBANK
r.8ANK
CBANK

~1321
~132?

1~1344

nAC
JMS
.EJECT

IEXIT
IRE TURN +1

~EMADR

K10K
MEMAOR
PATBNK
-1001fl0
CT4K
C8ANK+l

LAC
TAO

ICURRENT PROGRAM FIELO
INEXT TO TEST

MEMAOR
K10K
MEMADR
NXTBNK

ICURRENT +4K

1-4K
14K COUNTER
IEXIT AND TEST NEW FIELD

~C.f

"A () 1 i:)

l'i?<
, 1;~ / (,

, '0'"

,)00

C8f\;K

. ..., ~ ,,.1 \It (21

L ~ /'

-1021910

~ ~ ?"

4i?77

!~ i~

" '1 c,?,A

" ,:.4 2 7>;

T i4'

~~1i45V!1

S j.~

CT4K
MEtAADR
LASTl
EXIT
WHERE
MEMADR

;' 1;<, c. 7
~: 13 ~ ,';

f':;>4 307

,~1331

1.,~ 1

3 f) 0

Y1S

:1~3;J

~~4.i:1275

::: A:1

j'''IP*

'141000

SKF

~ L

{'21,323

e->'l,~'F

~44301

jMP*
SAn
jMP*
TAC!
!JAr:
SAD
jMP
jMP*

1~ 3~

~'1

1..:-Z 3 t,

h243~7

'1337
(/1134 c'
01341
01342

3444~0

01343

01344

,,"44275
'544340
t>01335
621323

"00;1~0

0134:'

7') [''H104

~11346

1'11347

741100
101364

0135V'

77~~000

\111351

:'-44275
E;;;44301
"01305

013'52
~~ 13 5 3
(71354
,1135'5
~'13 5 6
(?I13,)7

?~1,344

74(J1010
?(JI4275
f ll\1312

CBNK
LAST1
EXIT
K10K
""EMADR
PATBNK
.-5
CBNK

I
IROUTINE TO CHEC~ FOR LAST FIELD
I
NXTB~j K
ill
LAS
SPA
jMS
HALT
LA~
-10000
TAD
MEMADR
SAn
LASTl
jMP
NOMOR
NXTBNK
LAC'
RAL
MEMADR
LAC
jMP
NOt-10R+5

ISEE WHERE PROGRAM IS
INEXT TO TEST
IAOD 10K
IREAD ALL 1 'S
ISfE IF LAST
INa MORE TO READ
INE W FIELD
IEXIT

ICHECK ACS0 FOR HALT
IGO HALT
1-4K

ISUBTRACT 4K
IALL DONE J F EQUAL
IRESTORE LINK
INEXT FIElO

I
I

v1136V'

(i1V!0l-100

01361
01362
01363

2~H360

')04403
621360

IROUTINE TO DETERMINE WHERE PROGRAM IS
I
WHERE
0
LAC
.-1
ANll
K70K
jMP.
WHERE

I
I

" 1364
0136~

V'1~6~
~11307

7111
(/'137:1
I" 13 7?
~113

"t 3 7:~
':: :; 7 t1

1700000
74Vl040
7,)(JI004
740010
7411V'I0
f,?1,~64

740,020

IHALT ROUTINE. PRESS CONTINUE TO RESUME
ITESTING, OR IF ACS CHANGES, TO EXFCUTF
INEW PARAMETERS
I
HALT
VI
HLT
LAS
RAL
SPA
jMP*
HALT
RA,.

r.:; (14406

A '\jl'

'144272

S A I,

K177
MCWA

ICONTAINS EPC
ICLEAR ALL BUT BITS 3,4,5

IExIT

Pll,GE

2/
f> 1:: 7 t:

/' 1,"0 h

) A4
"?C::;1

;J 1

~ALT

JMf-'

.l..lECT

ST(lVER

f-J .A [, t_

X A, i, 1 '-,

',;

IERFdlR Pf< I' T-OUT ROUTI/I'E. PLACE ACS0 UP rap
IHALT ArT E~{ (jR r l\JT -OUT. PRESS CONTINUE

FRPGR

v1 1:5 7 7

;i»~0(1l0

v'14 Vj (r\
"114 V11

(. tl4302

DA ("

RAni

?~4275

L H:

014V1?

~c44,)03

r)AC

(r\14V'1~

?V'l4?74
v'44304
?04325
::;44Vl44
7041v100
[,1111414
?041.l43
1/44325
f,(tJ1423

LAC

MEtv1ADR
OCADR
PATR
GOODl
FRWRD
FNERR

~14~~i1

rQ40"'i
'~14 c:1 A

01407
1410
(~ 1411
01412
01413
\'''1414
""1415
01416

(i)

!7'

r) AI"::

LAC
SAD

ISAVE FAILING ADDRESS
IERROR TABLE POINTER
ILAST ADDR[SS OF TABLE

SKP

JMP
LAC':
n AI"-:

,+4
ERTBL

JMP

SW2
OCADR
K70.K
LAST
,+4
LAST
ERWRD
ERWRD

LAC
Al\Jn
SA Il

?0143~3
t.,("44~3

01420-

544336
001423
044336

'~1421

~64325

DAG
DAC*

01422

444325

1St

~1423

7A~h~00

"1424
71425
:I1142f"'1427

{l'1445

')44267
f,01443
75V1i104
742010.
740.10.0.
601435
760207
101571
AQl1443
75000.4
740.010.
74(1110.0.
601450.
101364
601450.
750004
741100.
1lH 364

\t1 1446
01447

621377

~H417

ISAVE BAD DATA

JMP

ER~IRO

IFIRST ADDRESS OF TABLE
/PUT POINTER TO TOP OF TABLE
/CHEGK AG2 FOR BELL
IFAILING ADDRESS
/MASK 3,4 AND 5
INEW ERROR FIELD IF SKIP
/SAME FIELD AS LAST ERROR
ISTORE FIELD# IN TABLE
/INCREMENT POINTER

V'143V'

CH431

01432
01433
01434
01435
0.1436
01437
0144~

01441
01442
(/11443
0.1444

7~7702

~W2

SW1

SW0.

LA~

SAD
JMP
LAS
RTL
SMA
JMP
LAW
JMS
JMP
LAS
RAL
SMA
JMP
JMS
JMP
LAS
SPA
JMS
EEM
JMP ..
,EJECT

NOPRNT
SW0.

SWl
20.7
PCHAR
SW0

DOERR
HALT
DOERR

IPRINT INHIBIT IF = LAW

INa PRINT
IBELL IF SKIP
ICHECK ACS 1
IASCII BELL
IPRINT

INa SKIP = PRINT INFO
IPRINT
IHALT
IPRINT INFO
INa SKIP

HALT
ERROR

= HALT

IR.E TURN TO READ ROUTINE

PAGE

2.1

X h r~ 1. I')

ISFTIJP TO PRINT

VRRQR

nOFRR

Lc ;.

~: 1:. ;:; ~

7 I:; /1~0

,'1 4 5 ~

C:;i)4/H3

SAiJ*

~"'145?

~/11455

(; 14 S =,

1;-"j'51)1
h11443
10.<..737
/03746
741200
1/13746
2<14345
1011571
777767

JMP
JMS
JMP
JMS
LAC'
Sf\i II
J!"lS
LAC
JMS
LA \'I

~"'1454

C" 14 5')

V'1145t~114 ') 7
0146(1
'~14 61
0146(>
(711463
01464
0146S
~146f-

01467
0147'"
01471
01472
01473
01474
0147'5
e147~

01477
01500
0150.1
,il1502
01503
01S04
01505
01506
01507
015H~

01511
01512
01513
01514
01515
01'516
01'517
0152(1
01'521
(~15 2?
~~1523

(71152 4

~~4~737

STER

OAC

INDY

JMS
LAC
DAC
JMS
LAW
OAC
JMS
LAC
DAC
JMS
LAW
OAC
JMS
LAC
DAC
JMS
LAW
DAC
JMS

10t615
/04303
14~737

101576
777772
"'4~737

101615
204304
04~737

101576
777776
r4~737

101615
?04302
('43737
101576
777773
043737
101615
760261
1')44345
741000
f-01520

?04006
("44305
10370.1

6011527
204340
744010
742010
742010
742010

.+3

ISEE IF T:-I I S ERROR IS SUPPRESSED
IYES,
ICR,LF

cSUP

swe

CRLF
PHDR
PHDR
TNUM
PCHAR

ITEST NUMBER

-11

1-9

ISPACING COUNT
ISPACE 9

CRLF
SPING
nCADR
CRLF
PROCTL

IPRINT FAILING ADDRESS

-6

CRLF
SPING
GOODl
CRLF
PROcTL

ISPACE 6
IWHAT DATA SHOULD BE
IPRINT THE GOOD

-2

CRLF
SPING
~ADl

ISPACE 2
IDATA READ

CRLF
PROCTL

IPRINT THE BAD

-5

CRLF
SPING

LA~

?61

SAn
SKP
JMP
LAC
nAC
JMS
JMP
LAC
RCL:

TNUM

.E~IECT

IIF 1ST LaC. OF SUPTRL = LAW,
INa ADR. SUPPRESSION WANTED

SUPT8L

ISPACE 5
IPRINT "ALL"

.+5

LAL
PRNT
PNXT
CMAX
PATBNK
RTL:

RTL:

IFIELD WITH PAT.
RTL

!l:GE 2"'>

'xAiip
(~1 ~ ~'~

:,':;4362

TAr

:' 1 ,- ) t,
\ 1 h?"7

1 -, t '5 71

Y'·1S

\' 1 to,:).'
l"1 '5 31
;1153 ?
I;> 1 c:; 3:'

1-'31443

jt'''1 p

Sw(7!

7777(10
,'44324
7601000
~'4 4267
1(,113737
?1ZI4007
(:44305
103701

LA ...

-100
MAXERR

15 34
O1535
01536
01537

I';

V'154V

,: 44,524

VllS41
V11542

777766

""154~

V43737

vH544
01t:;4S
01'546
01547
0155.'

760.212
1/11571
443737

01551
0155?
01553
01')54
v:' 155')
0'155f

i~~737

f,01544

';01443

:p(~Olv100

??4;i113
':;443(i'13
f>:l1564
~44337

1'-<) 1567

01557
Vi1S60

?041113

!i11561

A 0 1567

01562
01'563
01564
(711565
01566
01567
~1570

01571
01572
01573
01574
01t:;75

"'44;;"14
444013
A 0 1552

?04012
V144\1}13
"21'551
441551
601564
i?l00.2J00
70(71406
700401
A(~l 573
~21571

CMAX

I SI

OAC

K'2A0
PCHAR
""AXERR

LA"i
OAr:

JMS
LAC
I)AC

JMS
JMS
LAw
DAC
LAW
JMS
ISil
JMP
JMP

f\IOPRNT
CRLF
PTa
PRNT
PI\JXT
rRLF
-12
CRLF
212
PCHAR
CRLF
.-3
SW0

I
ICHECK FOR SUPPRESSED ADDRESS
I
CSUP
0
LAC ..
SUPTBl
SAO
nCADR
JMP
TOP
SAn
LSTSUP
JMP
SPEXT
LAC
SUPTBL
SAD
ESTBl
,JMP
SPEXT
1St:
SUPTBl
JMP
CSUP+1
TOP
LAC
STBl
OAC
SUPTBl
JMP ..
CSUP
SPEXT
ISil
CSUP.
JMP
TOP
I
PCHAR
0
TlS
TSF
JMP .-1
PCHAR
JMP*
I
.EJECT

IPRINT-OUTS INHIRITED

110 LINE FEEDS

ICOMPARE WITH cURRENT ADDRESS
ISUPPRESSEO
/SEE IF DONE WITH LIST
IYES
ISEE IF DONE WITH TABLE
IYES
IPOINTER +1
/RESTORE POINTER
/EXIT
IEXIT ADDRESS +1

PAGE

XAf; 1:;

'!"-

/PPI\JT

OJ G T T Or;TAL

NUMBERS

,'1 r::. 7f~
1 ") 7 7

(q6c~~'

711 f, i~ 1
1\16(.1)2
7;1603
1111604
01f,0C:;;
016~6

~1607

(il161C'
01611
01612
0161~

0,1614

1/10/)(110

777772
'44342
?iJJ3737
744(110

PROCTL

LA\>!JAC

POSN

LAC
RCL;

-6
RPfTE
CRLF
RTL

742~10
V4~737

740010
""',14350
?44362
11;1'}571
444342
741:il00

OAr
RAL

CRLF

A \J li

K7
K2613
PCHAR
RPETE

IMASK AC 1")-17
IMAKE" ASC I I
IPRINT 1
16 DIGITS WHEN SKIP

PROCTL
POSN-1

IEXIT
IPOSITION NEXT NUMBER

XOR
Jt'-lS
ISr
S;<P
J~P*

f;21576
f'(7)1601

JMP
I

ISPACE ROUTI"JE
I

0161")
(11161f>
01617
0,162(11
01621
0162?

00CH100

SPING

LAw
JMS
IS2
JMP
JMP*

76(112413
1V'l1571
443737
('01617
f,21615
I

.EJECT

2413
PCHAR
CRLF
.-2
SPING

IPRINT A SPACE
IDONE WHEN SKIP
IEXIT

iXAll15-TAPf

t~ (i UTI t\; E. S T i
A (' G!' P T KEY 8 0 AR DIN PUT FOR TF SIS ELtC T ION ;
/ AnD I~ E S S S u "', ~ E S ~ I (1 !\j A 1\, 0 8 L 0 CK T EST l I t-1 ITS ,
P L A r: E AC S 1,~
IREF()RE hf-I'.ITI,\TTN(; MAIN PROGRAM,
I

DOw N

I
"·1f... ?>
'1f.?L.

E P,~

'~17 762

ITEMP, STORAGE FOR INPUT CHARS.

[;i"" PITN

144344
I

ITYPe- "T[ST#" ANn WAIT FOR INPUT
I

1 ...

-; :~4 \<115

/11 f,2f.

.443~5

I] 1 f, 2 7

107,737

("'163V

/1631
"1632

1 :~? 2 72
144344
'"'44374
(, ~~ 16 2 3
""44360
(-,01 !16i2J
777517

~1633

.163 4
;'\163')
til1636
01637
(111640

J!'v1P
SA ,',
J!'v1f-l
LA \\

-261

T A'

BITN

SMA
JMP
JM5
JMP

7 4~H 00
f...Vl1645

0164~

.103547
A911623
?f114344
740';;'01
;<;44346
344366
74r1100

~1164 7
01650
01651
01652
01653
01654
01655
01656
01657

DAC
SAD

T5NX
PRNT
CRLF
PNXT
KEYIN
RITN
K377
KYRRO
K215
SUPIN

~44344

'~1641

~164f

LAC:
['lAC

Jt-1S
JM5
JMC;

0~7(1J1

v1642

01644
t";1645

T5TNO

LAC

1"101655

103547
601623
?fi'l4344
t'144345
601660

TSTN

CMA
TA[I
TAn
SMA
JMP
JMS
JMP
LAC
DAC
JMP

.EJECT

,+3
WOTIS
KYBRO
81TN
K1
K264
.+3
WOTIS
KYBRD
RITN
TNUM
SUPIN

ICR,LF
IPRINT "TE5T#"
IGO WAIT FOR INPUT
ISAVE TTY CHAR.
lIS INPUT A RUROUT
IYES, START OVER
INa TEST WANTED IF A C.R.
ILAST TEST PATTERN WILL BE USED
IIF AC
lIT IS
IPRINT
1ST ART

IS NEG., TEST # IS (1
)1
QUESTION MARK
OVER

12'5 COMPLEMENT TEST #

IIF AC IS NEG., TEST # IS

ITHERE ARN'T MORE THAN 4 TESTS
1ST ART OVER
IWAIT FOR C.R.

PAGE

X Af:l h.

II10!\;[
I
SUP I \,

wITH

F 5T#.

NOw 00 AoR. SUPPREssION

166"

Jill 4;, 12

~TRL

liST LOCATION TN SUPRESS TABLE

~'10 6 1

44,1'1 3

j' ~,'

SUPTRL

IPOINTEI-i

11166(>

?~4~11

LA l'

ROTB

?1663
01664
:t'i 166')

(i44,110

n A~'

?? 4 ~j 10

LAC*

ROTA
ROTA

(144311

(! AC

NROTA

ISH 1FT CO U~I T E R

76~M"0

LA",

v~64013

DAC*

SUPTBL

/167V

14 4 3V16

[) 2~'

01671
0167?
211673
01674

!(ij~737

JMS

AoRCW
CRLF

IA LAW IN 1S T LOC. SAYS NO
IADDRESS To BE SUPPRESSED
IUSED TO STORE 15 8IT Ar~RESS

01666
01667

( ...

"-\;

2.214.(116

LAC'

SUPSX

.'·44305

OAC
JMS

PRNT
PNXT

103701
I

IACCEPT 1ST ADOKFSS AND THEN WAIT FOR A COLON
A COt-'MA

lOR
I

0167')
01676
01677
01700

:?04017
('144310
?04"20
044307

~IXSUP

LAC
DAC
LAC
OAC

01701

1?12272

J~S

V11702

1~?301

v'.1703

224010
;:'44311
204344
')(114350

JMS
LAC'*
OAr
LAC

~17~4

0170~

Vl1706
017rt.7
01710

01711

AND

\144344

OAC

103043
fl01675

JMS

JMP

INSUP
OVER
SUPDN
EXIT
KEYIN
LEGAL
ROTA
NROTA
8ITN
K7

aITN
GENADR
NXSUP

ICCINSUP)

= SUPIN

IC(SUPDN) = DNSUP
IWAIT FOR INPUT
ICHECK VALIDITY
IC(NROTA) = COUNT FOR LEFT SHIFTS
IMASK 15-17
ISAVE
ISTART ASSEMBLING 1ST ADDRESS
IGET NEXT INPUT

IRETURN HERE FROM GENADR AFTER 5 CHARS. RECIO.
I

01712

204306

01713

064013
444013
14431?16

LAC
DAC*
ISl
OlM

1(112272

JMS

ADRCW
SUPTSL
SUPTBL
ADRCW
KEyIN

">44374

SAD

K377

60161'3

JMP

KYBRD
K215
ONSUP

01714

01715
0171fl
01717
01720
01721
01722

~44360

SAn

A0?(Il27
544361

JMP

01723

SAO

K254

01724

(-Vl1761

SUPBLK

0172~

544~n0

V'172f.

741.100

01727

f'0?312

JMP
SM'
SKP
JMP

CKCLN
/

.EJECT

IFIRST ADDRESS
ISTORE IN 1ST LaC. OF TABLE
ICLEAR
IWAIT FOR A: , OR C.R.
ICHECK FOR RUBOUT
1ST ART OVER WITH TEST #
ICHECK FOR C.R.

K272

ICHECK FOR COMMA
IA COMMA = SUPPRESS A BLOCK
ICHECK FOR COLON

QUERy

INaNE OF THE AROVE.

~r;E

,/c;

X Afi 1 S

IACCr:F-T I ~JG I \ r r LJ t, L ADDRESSFS
I

/1173.

~/t?272

V 173:1

1.l1?.3V11
:;.-? 4.)10
/44311
?04344

0173?
01733
VI1734
(11173'5
n173f.
~.q 737
01740,
v 1741
·i 1742
?1743
,,\1744
01745
v1 1 746
01747
01750
01751
01752
(111753
01754

c; U;; 1

J''1 "

KEYIN
LEGAL

1_ A" ;:.

ROTA

J'" -;

"
LA("
(

to,(~4350

A ~ Ii

44344

liAC

103043

JMS

f.,(;11730

Y1P

?Vl4306
v: f, 4013
744337
?04013
"44014
f.0?027
4440t3
:144306
1'12272
544360

LAC
[lAC*
DAi
LAC
SAO

A02':~27

jMP
jMP

jMP

IS:;Z

fliM
JMS
SA [',

f.Vl1725

t\JROTA
RITN
K7
RITN
GENA DR
SUP1
ADRCW
SUPT8L
LSTSUP
SUPTBL
fSTBL
nNSUP
SUPTBL
AORCW
KEYIN
K215
DNSUP
CKCLN

IWAIT FOR If'..JPUT
ICf-4F:iK vALIDITY

ICOUNTS LEF""T SHIFTS MADE
IMASK ACS 15-17
IASSEMBLE ADDRFSS
IWAIT FOR NEXT CHAR.
ICOMPLfTE ADORESS
ISTORE IN SUPPRESSION TARLE
ILSTSUP = LAST TO SUPPRESS
ICHECK FOR 2'57 ADDRESSES
IWAIT FOR C. R.
IINCREMENT POINTER

IWAIT FOR COLON INPUT
IQONE IF C. R.
lIS IT REALLY A COLON

vI17'5'1

1 v'2272

JM<:;

(11175A
(lH 757
01760

~44360

SA I-i
JMP

AV'!?027
f-0?3t2

JMP
.EJECT

KEYIN
K215
DNSUP
QUERY

IWAIT FOR C. R.
INOT

C. R.

PAGE

'l( A I

/ACCEPT Twn 1t\jPllTS FOR
I

SUPPRESSEn RLOCK

'i'1 "7!) ~

~/??72

1'1762
(1\1763
0176 4
(Ii 176r.y
01 7 6"
01767
~ 177 v.

1 '~2 -5 01

J"'-

??4vH0

LAC*
nAC

r\EYIN
LEGAL
ROTA
NROTA

LM:

~ITN

A <"oj il

K7
RITN
GENAOR
SUP8LK

~1771

,;' 44,311
?ri14344
'504350
('44344
~ III 3 (IJ 4 3
",,11761

k') 17 7";

),1 43 0 6

SUP8LK

J r~"
;.'

nAC
JMS
Jf1P

IWAIT FOR INPUT
ICHECK VALIDITY
ICOUNT LEFT SHIFTS
IMASK ACS t5-17
IASSEMBLE ADDRESS
IWAIT FOR NEXT

(,1177 :.
01774
Ii: 177'5

?:?\4!~12

01777

"44013
:;24(}!13
740001

v:20"h'

~44346

0.2001
02002
02(1103
02004
02005

,~44337

0177t-.

OM'

LAC*
TAn
TAli

?04337
~'164013

'203737
(~44337

224013
'544337
602027
;;>04013
"i44014
~[?\?027

224013
344346
444013
\'64013
"i44337
60?027
602015

K1
LSTSUP

SM.A

r~43737

0200b

AORC W
LSTSUP
STBL
SUPTBL
SUPTBL

/COMPLE~TE

AODRrSS

ISAVE
ISETUP TABLE POINTER

P1A

74'" 100
602012
224vl13

02007
020H'
02011
r'201?
1Il2013
02014
02015
02016
0211117
02020
02"'21
1Il2022
02023
02024
02025
~~2026

LAC
nAc
LAC

",14,:-S37

SETSUP

JMP
LAC*
OAC
LAC
DAC*
LAC
OAr.
LAC*
SAn
JMP
LAC
SAC)
JMP
LAC*
TAn
1St
nAC*
SAO
JMP
JMP
.EJECT

SETSUP-3
SUPTBL
CRLF
LSTSUP
SUPT9L
CRLF
LSTSUP
SUPTBL
LSTSUP
ONSUP
SUPTBL
ESTBL
lJNSUP
SUPTBL
K1
SUPTBL
SUPTBL
LSTSUP
ONSUP
SETSUP

12'S CaMP. 1S T AnDRESS
ISUBTRACT 2ND ADDRESS
I1ST IS ) LAST IF SKIP
IREVERSE THE Twa ADDRESSES
ISAVE FIRST
ILAST IS NOW FIRST
IFIRST IS NOW LAST
IARE THEY EQUAL
IYES
1256 CHARS STORED.

IGNORE ANY MORE

IINCREMENT POINTER
IWAS LAST THE LAST TO SUPPRESS
IYES

/
I ~ [ S " 0 Rl

P (1 I ,r F R c:; 8 E. FOR E E f\i T E R I I\j G

(\1 EXT

LIN [

:12
' 13
~)04IH 1

i'2l,~?7

') 'I I.

',2~<3 '

" 44

" 2V131
;'~2032

rNSUP

LAC
flAC
LAC

<.)TRL
:::'UPTPL
~OT8

/QOT8 ANn ROTA MUST RE EQUAL

SAri

h'QT A
>.<LK1
ROTA
WOTIS
SUPIN

IRESTORE SHIFT COUNT POINT[R
ILAST ADDRESS WAS (5 CHARS
ISTART OVER WITH SUPPRESS

ilI2~3:5

"544/.10
A. I, :;;,~ 44

V'l2034

~'4 4 ;110

JMP
OAr

JMS

020V)
vI?V\36

ii1~'J4

JMP

f~1~60

Vl2V'13 7
(,PV14v
V12~41

C1204?
:~2V14~

777763
777766
777771
777774
777777

f;OTC

LAw
LAW
LAW
LAW
LAW

-15
-1?
-7
-4
-1

.EJECT

IROTATE 12 LEFT FOR 1ST DIGIT
19 LEFT FOR 2ND
/6 LEFT FOR 3RD
13 LEFT FOR 4TH
INONF FOR 5TH

PAGE

:) ;)

x Af 1;:'
/

I I ~; PUT
/DqE.SS

ROUT 11\IE FOR AnDRESS lIMITS e'F BLOCK #1.
CR IF NO qLOCKS WANTEO.

/
1 2 ~1 4 t~

-4437<6

,ti2~4 ~

7 h (~0 '" 0

F'L K1

DiM

:,\204t-

443?0

DAC

i;;>047

'4 4 ,3?1

OAr

~1 ~~; 5 "
(12!il51

;) rf.? -335
'4?3~0

~2r715 ?

? 2 4,":1 0

LAC
OAC
LAC*

(i\205~';

'44311
. ,:n;737

tIl2t1l5 4

ADRCW

LAW

OAC

JMS

PLOCl
gLOC2
STL.OOP-1
LOCAT+4
ROTA
NROTA
CRLF

ISHIFT COUNTER

ITYPE "SLOCK:t11" AND WAIT FOR INPUT
I

(Ii?Pl5"i
(1)2056
02057
(1i206 ()I
02061
Vl2V16?
02063
02064
02065
0206(>
02067
02~7v'

02071
02072

0:? 5
>'44305

? (~4

8LKN1

LAC
DAC

:1 {~~701

JMS

')(114 [l,1?3

LAC
OAC
LAC
liAr
JMs
JMS
lAC
AN[l
DAC
JMS
JMP

44 307
?04021
1144310
:102272
1V1?301
)914344

RLK1A

51A4350

[,i44344
H'I3043
A01?064

BLKSX
PRNT
PNXT
DONE2
EXIT
NBLK
OVER
KEYIN
LEGAL
8ITN
K7
RITN
GENADR
BLK1A

IPRINT BLOCK #1
IC<DONE2> = DBLK1
IC<N8LK) = BlK1
IWAIT FOR INPUT
ICHECK FOR lEGAL CHAR.
IINPUT CHAR.
IMASK AC 15-17
IASSEMBlE ADDRESS

IENTER HERE AFTER FIRST ADDRESS RECEIVED
I

02073
02074
V'l2075
02076
02077
r7121V'10
02101
02102
021V'l3
02104
02105
012106
02107
02110

?04306
v'44320

144306
102272
'544361
74HH!!0
A.(}!2312
~02272

102301
204344
'104350
(/144344

BLK1B

LAC
OAC
OrM
JMS
SAD
SKP
JMP
JMS
JMS
LAC
AND
DAC

103043

JMS

M~2102

JMP

.EJECT

ADRCW
BLOC1
ADRCW
KEYIN
K254

IASSEMBLED ADDRESS
IFIRST ADR. OF FIRST BLOCK
IClEAR
IWAIT FOR COMMA
ICHECK FOR COMMA

QUERY
KEYIN
lEGAL
8ITN
K7
RITN
GENADt<
RLK18

IPRINT QUERY MARK
IWAIT FOR INPUT
ISEE IF IT'S LEGAL
IINPUT CHAR.
IMASK AC 15-17

IO.K.

IASSEMBLE SECOND ADR.

JI'l A (~F

5 ,~

XA[)lS

I
IENTJ:.:R
I

.; 211 J
.' 211?
;1211")

"rk~

,;:-Tl'::

S[r:OND

),1)4306

L :. (~

AORCW

',144321
144306

r A, :;ii'

~LOC2

LAC
SA :'

kOTR
ROTA

I
DRLK1

/04011
"'44010

(?211~

~VJ2121

J"'1 D

,+3

02117
;,212P
;\ 2121

044010
00?312

[lAC'

ROTA
OUERY

71,0.:100

I A.~

;>2122

'-)44320
602163
544321

SAr:

02123
','2124
~2125

A~?312

'~2126

?714320
"'04403
Vl44344
::>014321
504403
043737
1 Cil2151

912127
02130
~2131

02132
V12133
~~21

'~213'"
~213t1

02137
Ii' 214 c~

jMP
JMS

10~701

?Cil4026
~'14 4 305
:103701
::>04407
!I~ 4 2320
102314
602044

~2146

li'2150

_,,2151
02152
02153
02154
0215~

02156
02157
,~216 ,~

~2161
:~2162

[lAC'
JMS

~0;:>163

~~2142

02147

A r\j,'

rAC
LAC
ANn

1 /J:; 737
::>04025
:;44305

02141
02143
02144
0214">

jMP
SAO
jMP
LAC

LAC
OAr

jMS
LAC
OAr.
jMS
LAC
OAr,

jMS
JMP

IASSFMPLEO 4noRESS
ILAST AOR. OF 1ST BLOCK

AORCW

(12114
(.-12:11 '"

j"1P

AnORESS

8LOCl
RLK2
RLOC2
QUERY
RLOC1
"<70K
RITN
RLnC2
K70K
CRLF
PROG
RLK2
CRLF
RLKSX
PRNT
PNXT
OVRLP
PRNT
PNxT

IMUST BE EQUAL
IO.K.
IAODRESS IS NOT 5 CHARS.
ILAW = NO INPUT
ICHECK FOR 2 INPUTS
IPRINT QUERY AND START OVER
/TEMP. SAVE AOR. BITS 3,4 AND 5

IDa SAME WITH UPPER LIMIT
ISEE IF LIMITS OVERLAP PROGRAM
IO.K.
ILIMITS IN SAME 4K AS PROGRAM
/PRINT BLOCK #1
IPRINT BLOCK #1

K7~0K

LOCAT+4
LOCAT
RLK1

ICHANGf JMP .. TO NOP
/PRINT AREA OF PROGRAM
ISTART OVER

Vl00000
j01360
544344
741000
f,02160
442151
f-22151
')43737
442151
62?151

PROG

til

JMS
SAO
SKP
JMP
ISiZ
JMP"
SAO
ISl
jMP*

I
.EJECT

WHERE
BITN
.+3
PROG
PROG
CRLF
PROG
PROG

ICHECK IF SAME AS LOW LIMIT

IYES. ERROR
INO
ISEE IF SAME AS HIGH LIMIT
IYES
/EXIT

PAGE

,~ -l

'< A[i 1 '"'
/

/ I t\,PUT RrUT! :q:: P'IR BLOCK #2
/

,'\;,; 1 b ,-i

1443v1 6

~'21b4

7601100
,'44322
"443?3
1 :~ 3 7 3 7

1121 A'"'
V1? 1 6 f-,

'" 21 67

PL K2

r t ":
LA \'

ADRCW

nAC

RLOC3
RLOC4
CRLF

DAC
J"'I~

ITYPE RLrCK, t2 A~JD WAIT FOR INPUT
I

°21.70
02171
V1217?

02173
02174
021 75
0217A
02177
(Il22eJv'
O2201
V'!220?
02203
02204
0220~

?',~47J27

RLKN?

('44305
1Vl3701

JM<";

?04,~24

044307
?04022
(-)44310
:1 :~2272

LAr
[lAC'

8LK2A

~Vl2301

?04344

LAC
rAC
LAC'
nAC
JMS
JMS
LAr

~1A4350

ANfJ

4 4 34 4

1.(J!3~43

DAC
JMS

602177

JMP

RLKTX
PRNT
PNXT
OONE3
EXIT
TBLK
OVER
KEYIN
LEGAL
RITN
K7
8ITN
GENA DR
8LK2A

IPRINT BLOCK #'1
IC(DONE3)=DBLK2
IC(TBLK) = BLK2
IWAIT FOR INPUT
ICHECK FOR LEGAL CHAR.
IMASK AC 15-17
IASSEM8LE ADDRESS

IENTER HERE AFTER FIRST ADDRESS
I

022'16
Vl2207

02210
02211
02212
02213
02214
02215
02216
02217
02220
02221
02222
02223

?VJ4306
V144322
144306
102272
"i44361
741000
b?J?312

102272
102301
204344
504350
044344
103043
602215

BLK2R

LAC
OAe
Dt M
JMS
SAD
SKP
JMP
JMS
JMS
LAC
AND
DAC
JMS
JMP

ADRCW
8LOC3
ADRCW
KEYIN
K254

IASSEM8LED ADDRESS
liST AOR. OF 2ND BLOCK

QUERY
KEYIN
LEGAL
BITN
K7
8ITN
GENADR
BLK2B

IPRINT QUERY
IWAIT FOR INPUT
ISEE IF IT'S LEGAL

IWAIT FOR COMMA

IRE TURN HERE AFTER 2NO ADDRESS
I

02224
02225
02226
02227
(J!223~1

02231
02231

LAC
nAC
DrM
JMS

204306
'~44323

144306
H'l2272
')44360
741000
60:?312

SAD
SKP
J~1P

.EJECT

ADRC"
8LOC4
ADRCW
KEYIN
K215
QUERY

IASSEMBLED ADDRESS
ILAST ADR. OF 2ND BLOCK
IWAIT FOR C. R.

IOONE
IPR1NT QUERY

F""AGE

\: .\ 1: 1 "

I
[l8lK2

:? ),~ -:.

.' -" ,,'11

'?? 5 ':

-'44·~10

SA II

ROT8
ROTA

(}:2?:) ,~

1)240

Jr-lf~

• +3

IMUST Rf EOUAL
IO.K.

~22~C1

44,' 10

"'P312
7
e' .100
t:;·1 4 322
h 11/ 3 3 6

DAC
Ji1P
LAw
SAfJ
JMP
SAn
JI'1P
LAC
ANn
[lAC
lAC
AN[l
DAC
JMS
JMP
JMS
LAC
DAC
JMS
LAC
DAC
JMS
LAC
OAC
JMS
LAC
nAC
JMP
.EJECT

ROTA
QUERY

IAOR.

(~2?

v12?4~'

'~2241

0224;:>
02243
Vl2244
Vl224S
lt~224h

)\2247
0225~'

0225:1

~44323

A02232
?04322
5Vl4403
'?44344
?'l4:323
S04403

r~2252

'4~737

02253
°2254
"'2?55
02256
02257
02260

1l?151
"'.1?336
1113737
::>04 '..127

~~226j

?\A4\~26

1I~226?

i' 44 3 !?I 5
103701
:::>0 4 407
;'42320

02263
02264
02265
0220(,
'12267
(112270
!il2271

1'44305

103701

lVlt'314

202335
042320
F,0I2163

l AI~

8LOC3
STLOOP
8LOC4
D8LK2-1
RLOC3
K7eJK
RITN
BLOC4
1<7eJK
CRLF
PROG
STLOOP
CRLF
8lKTX
PRNT
PNXT
OVRLP
PRNT
PNXT
K7QJeJK
LOCAT+4
LOCAT
STLOOP-l
LOCAT+4
BlK2

IS NOT 5 CHARS.

ILAW = NO INPUT
ICHECK FOR 2 INPUTS
1ST ART OVER
ITEMP. SAVE MA 3. 4 AND '5
ITEMP. SAVE HIGH LIMIT
ISEE IF LIMITS OVERLAP PROGRAM
ISETUP TO START LOOPS
ILIMITS IN SAME 4K AS PROGRAM
/PRINT BLOCK #2
/PRINT LIMITS OVERLAP PROGRAM
/CHANGE JMP* TO Nap
/PRINT AREA OF PROGRAM
/RESTORE THE JMP*
1ST ART OVER

PAr,E

~~ h

Y An:t \.,
/

I' ;JUT

/CHA~AcTFf.i

RnUTINE

KEYlt\J

'2~r;

.'~ e;l!,~

0~?77-

7'!W,312

i<"<~

~2?74

7V:lW~01

K S~

?:2?7~

t,Ol?274
7C10312
C144344

K~;"<

OAC

f122?72

j l1P ~

8ITN
KEYIN

CHA~f,CTE~

IS LEGAL

'I'227f.
r}?277
0?30C'

jMP

IINITIALliE
IWAIT
-1

ITEMp. SAVE
IEXIT

ISEE IF
I
:12 30 ~

10vh100

0230?
;J.?30:'i
02304

?04344
'144374
AVl16 23
544360
A24307
'104373
::;44362
A2?301

0230')
V123l~f

~2307

,"231Vi
02311
0231?
(~2 31:~

1Vl3547

LEGAL

v:
LAC
SAn
jMP

SAD
JMP~

A I\j r:

SA [,
QUERY

624310

Jfl.1 P *
JMS
JMP*

.EJECT

8ITN
K377
K:YF3RO
K215
EXIT
K370
K260
LEGAL
WOTIS
OVER

ITTY CHAR.
ICHECK FOR RUBOUT
ISTART OVER WITH TEST
ICHECK FOR C. R.
ITERMINATE

IEXIT
IPRINT QUESTION MARK
1ST ART PRESENT LINE OVER

-,rr; f

Xl.'" ~ r;
C U" Tt,. I r--! I /\, G

/PRI"JT AREA

PROGRAM

'v10

"~ "·1.:!

. 1 .

. ',; '~ 1 c
,12:< 1~'
;12 <: 1 7

" 4
:: 14.3'5'5
~.'

L lJ r: A T

'--

tl 'J

. 4;' 2 01t~

S t 1\

J '1;; *
J1S

;~?:~? c

f';J?,H4

:'~2~21

A,1:n37

)2322
;'? 3?:<

;''51
,'4430'5

:D324

1 ~Ln~l

jM':;

~' ~' .3 2 Ie,

1. (ill ,)AeJ

JMS

/44;1 j 0
742,110
7 4 2010
74;:> [110
:\44362

RCL;

1~1571

jl-1S

.'(l32f:

;'\2327
0'233;\
,,"233 1
~233?

l12333
02334
.~ 2 33'"

LAC

) ,j14

[lAC

T t; rJ
~1 S

1~3737

1',22314

J"1P*

KH'10

LOCAT
CRLF
PISIN
PRNT
PNXT
wHERE
RTL;

K260
PCHAR
CRLF
LOCAT

ICR, LF

RTL;

IPRINT "PROGRAM IS NI FIELD"
IwHERE IS IT
RTL

IAscrI FIELD NUMRER
ICR, LF
IEXIT

ISETUP ROU T I t-.:E S FOR TESTING BLOCKS OF cORE
I
ji'1S

CRLF
RLOCl

74HJ0eJ

LA'"
SAil
SKP

~~1?346

jMP

('12344
0234';

")44322
600251
602377

SAn
jMP
jMP

Vl234A
02347

20 434 5
74j200

02336

Hn737

~'2337

76Vl~00

~234Vl

",44.320

02341
02342
~2343

STLOOP

ISEE IF ANY RLOCKS SELECTED
ILAW=NONE SELECTED
SETU1
RLOC3
STOVER
SETU2

INa BLOCKS SELECTED

TNUM

ISEE IF

261
TNUM

INO, USE TEST 1

Vl235'~

76Vl261

02351

.144345

02352
02353
02354
023'55
.'2356
02357
02360
02362
02363
(.12364
,'2365

204320
740001
344346
344321
741HH'1
A0?426
?04320
')04403
(1144340
?04345
1)04374
t:;44363

v~2366

~!Jj2435

02367

SETU1

LAC
S"JA
LAh
DAC

TEST WANTED

LAC
CMA
TAD
TAD
SPA
jMP

BLOC1
K1
RLoC2

IRE VERSE IF NEG.

f)AC
LAC

REVRl
8LOC1
K70K
PATBNK
TNUM

AWi

K377

SAn
y . . ,p

K2fll
SIMUl

l'44364

SA:'

K262

(~23 7(1

h0?506

J'.1C

SIMU?

t1 2371

")44365
',0/544
"'44:366

c: ~ -

"<2!13

..j"' . . .

S I MU:~

5 ~ ,-

K?64

"~2361

'~2372

"237.'.

SINGL

LAC
A 'oJ 0

12'S COMPLEMENT UPPER LIMIT

IOETERMINE PATTERN
ITrST 1 PATTERN
ITrST 2 PATTrRN
ITFST 3 PATTFRN

1?3 7 4
'2:' 7 r.:,

f.tl?h(i14

J,"!P

C::IMU4

:Jv1.134 '5

LAC

TNUM

~:? ~ 7 ('

74'-H4{i

~L1

.EJEr:T

ITE"ST 4 PATTFRN
ISHOULO

~EVER

GET HERE

~GE

:~ Q

Y l\f' 1. ':

I
(,>':? ~ 7 7

;'-)14 S4')

(I::? 4'~ (>

74~200

:112401

76v261

024,1:;'>
02403

0240 4
;"2 4 Vl5

LAr

02407
~i12 41 (i1

7411210
A0?421

\-~2411

?Vl4322

,"241 ;)
"'2413

~'4 4 320

~j2414

/144321
7(:)(1,:000
;.144322
;', 4 4 3 23

TNIJM
261
TNUM
8LOC3

eMil

~44346
,~44323

L A:~:

S!\jA
LAW
DAC

4 4,545
)i;;'43:.?2
74:i1:tl01

;~240r

0241')
Vl241f
02417
02420

SETU?

;::'~4323

J,~?360

TAP
TAn
SPA
Jt\1P
LAC
nAC
LAC
nAC
LAw
OAC
nAC
JMP

REVR2
RLOC3
RLOC1
gLOC4
8LOC2

LAC
nAC
LAC
DAC
JMP

QLOC4
BLOCl
BLOC3
RLOC2
REVR2-4

LAC
DAC
LAC
DAC
LAC
DAC
JMP

BLOC2
RITN
RLOC1
BLoC1
RITN
BLOCl
SINGL

1«1

RLOC4

8LOC3
RLOC4
SINGL

02421
02422
02423
02424
02425

?04323
:144320
?04322
,,"44321
A02415

REVR2

0242f'

?~4321

REVRl

02427
02430
02431
02432
0;?433
012434

i'44344
?04320

('~44320

?04344
;~ 4 4 320
1'>02360
/

.EJECT

/LAST ADR. IS )FIRST IF 0
/REVERSE CONTENTS

liST TO TEST
/LAST TO TEST
/A LAW = NO BLOCK SELECTED

PAGE

1..\

XAiiPi

ISFTUP FOR

ST 1

I
'?4~~~'

1,)\~170

.'24,'it,

1 .1)

ill?437

Sr MU1

775
~ ('10333

J'''\S

Ji1S
J''1~

WRT1S
SETBl
WALKl

IPUT l'S INTO ALL OF CORE
ISEru P 1ST BLOCK
IWRITE PATTERN IN BLOCK1

IRETURN HERE AFTER WRITING BLOCK 1

02 44 [1
~2441

777777
344275

()I?44?
Vl244.3
VJ2444
(i'l2445

544~23

0244t'

Ai-1;:>452
10?704

BLKAl

TAn
S Af)
Jr"1P

A0?452
7 6 (,'\(H~0

1 ~3v106

C12451

1'>0V1333

-1
MEMADR
RLOC4
T1RDF

ILAST AOnRESS
ISEE IF 2 RLOCKS WR I TTEr
ISETUP TO READ FORWARD

BLOC3
T1RDF
CKADR
SETB2
WBlKl

ISETUP 2ND BLOCK
/wRITE PATTERN IN BLOCK 2

LAW

SAro
JMP
JMS
JMS
JMP

~44322

02447
(124"50

L A \A)

ISETUP TO READ FORWARD
I

r"245?
02453

117J2775
60(71367

T1RDF

JMS
JMP

SETBl
RLOPl

ISETUP 1ST BLOCK
IREAO ALOCK 1 LO TO HI

IRE TURN HERE AFT[R READING A BLOCK LO TO HI
I

777777
:;44275
':;44323
617J?465
760000
544322
602467
103006
6017J367

RLKB1

';12 4 65
02466

10 3 031

T1RDA

02467
02470

103017
6001424

02454
02455
02456
02457
02460
17J2461
0246?
02463
1.12464

LAW
TAO
SAO
JMP
LAw
SAD
JMP
JMS
JMP

MEMADR
BLOC4
T1RDA

ILAST ADDRESS
/DONE BOTH BLOCKS IF EQUAL
IREAn 2 BLOCKS HI TO LO

RLOC3
T1RDB
SETB2
RLOPl

ISEE IF 2 SELECTED
INO. RE"AD 1 HI TO La
ISETUP 2ND BLOCK
/READ 8LOCK 2 La TO HI

JMS
JMP

STB2
SAKl

ISETUP BLOCK 2 FOR HI TO LO
IREAO BLOCK 2 HI TO LO

JMS
JMP

STBl
RAKl

ISETUP BLOCK 1 FOR HI TO LO
IREAO BLOCK 1 HI TO LO

-1

I
60~424

T1RDB
I

IRE TURN HERE AFTER READING A BLOCK Hr TO LO
I

02471
02472
02473
(1)2474
(~24 7':;
02476

~'2477

025(110
02'301
'~250?

444275
740000
?17J4275
5443?0
741000
6Vl?467
75(11004
741100
101364
Sl!'14352

RLKCl

IS~

NOP
LAC
SAD
SKP
JMP
LAS
SPA.
JMS
Af\jf

MEMADR
MEMADR
RLOCl

ILAST ADDRESS
IALl DONE IF EQUAL

T1RD8

/SrTUP BLOCK 1

HA_

/CHECK ACS 0 FOR ALT
IG.AL T

,I?'

,?~

.. 1 t1

)"-,

74!' 2V:0

';'116?3
''' 104 35

Sit.
J '1~)
,) r-.,~)
.~.JECT

KYBRn
SIMU1

ISTA'n

OVER

/KEED LCOPT\Jr,

PAr,E

X A f' 1. ~

ij ')

ISETLJP FOR TrST

/
(!,?~!.-1C1

2 >=; >'~ 7

11.2t:) 11,

1", \70

SI~U?

1,vLJ775
A (., (~4 61

Ji-1S
JMS
JM~

WRT1S
SETBl
LOP2+3

/WRITE itS II-.JTO ALL OF CORE
/SETUP FOR BLOCK 1
/wRITE BLOCK 1
/SEE IF 2 HLOCKS SELECT!:"rj
/ONLY ONE SELECTED

/121:)11

7 6 [~;1 ~0

C~2t:)1?

~44322

02~13

h r~ 2 '5 21

HLKA2

LAw
SAn
JMP
Ji'lS

02~14

1Vl?704

Vl251":l
1'1?5lt>

1 i,i) ~ vi 06

JI'1S

v130
:144307
A?lPl541

LAC
DAC
JMP

RLOC3
RLKB2
r:KADR
SETB2
OONE5
EXIT
REST2+2

JMS
JMP

SETB1
FWD2

ISETUP BLOCK 1
IREAD BLOCK 1 LO TO HI

JMS
JMf-J

STRl
BAK2

ISETUP BLOCK 1
/READ BLOCK 1 HI TO LO

LAW
SAf)
JMP
JMS
LAC
nAC
JMP

RLOC3
RLKE2
SETB2
DONE6
[XIT
REST2+2

ISEE IF 2 8LOCKS SELECTED
IONLY ONE SELECTED

STRl

IRESTORE LIMITS

Vl2~17

Vl2~2V:

~)'''4

11'21:)21
vi252?

f-1i'15 6 7

ti12~23

:1 0 3,~ 17

i/12524

f'lvH'lb12

02')2~

7f)(~j00

02')26
02527
?l253Q1

544322
A(il?534
103006
204''''31
P443Q17

1l~?775

RLKB2

ISETUP 2ND BLOCK
/DONF5 = LOCATION RLKB2
/READ REST OF MEMORY

8LKC2
/

~~2551

Vl253?
02533

A(i10541

02~34

10 3 0 17

02~3~

7~\?I004

02536

741100
101364

02~37

Vl254V1
02541
02542
02543

8LKD2

>=;043~2

740200
61111623
600645

I
8LKE2

JMS
LAS
SPA
JMs
ANn
S2A
JMP
JMP
.EJECT

HALT
K20
KYBRD
RAK2A

IDONE6

= LOCATION 8LKE2

IRE AD REST OF MEMORY

ICHECK ACS0 FOR HALT
IGO HALT

IWRITE BLOCK 1 HI TO LO

'PAi,E

,~!

/4 ~

1~
I

ISETUP FOR TrST

, 2C:; 4 2
;~ '? I.:' 4"
1?,)4A

"vI!' 71 0

V.;:>h 47

')." 4 ,132

2 c:; 5:;

-~443~17

1·H,17(.iJ

SIMU:~

liJ.?!75

IWRITE is INTO ALL or CORE
ISETUP rOR BLOCKl
IWRITE BLOCKl

J:"')

~.JRT1S

Jr-;')
jMP

SETBl
LOP3+3

LAr

OONE7
EXIT

IDONE7

JMP
jMS
j0S
jMP

QLOC3
I1LKB3
CKAOR
SETB2
REST2+2

ISEE IF 2 RLOCKS sELECTED
INa
ISETUP FOR BLOCK 2
IREAD BLOCK 2

jMS
Ji.,p

SETB!
rWD3-3

ISETUP FOR BLOCK 1
IREAD BLOCK 1 AGAIN

LAC
OAC
LAW
sAn
JMP
J"1P

nONE8
EXIT

IOONE8

9LOC3
RLK03
8LKB3-2

ISEE IF 2 BLOCKS SELECTED
INO

I
i~

'~;\?~;~1

7 6(~l1"'0

:1?»5?
~12t)t)3

"44322
f-!ij?S57

qLKA3

f)AC

L A \~
',,-

(.112'554

1v1?704

V'255")
0.255f-

1 (t)3M'!6

[112c:;t)7
02t)6V'!

1fJ1?775
~ ~1ii'I7 6 4

ALKB~

2 S 61
0256?

?14(l33

RLKC3

= LOCATION RLKB3

("1(7'541

S .4;/

I
(.~

1144307

V1256~

7fi01(i10

02c:;64
~~256'5

":-4 4 ,322
60?567

2566

"~?555

7
02570
02571
(II?5??
02573
02574
0257")
0257(1
02577
"'2 6'~'~
026(11
0261tl2
(71261{)3

71)0-.104

171

= LOCATIOr-.J BLK03

I
[~21)6

7411~H~

101364
"04352
74 l"200

/',01623
?Vl4344
')444V'15
6012544
744010
I.~ 44 344
102775
"00712

RLK03

LAS
SPA
JMS

HALT

A:\jf)

K20

StA
JMP
LAC
SAn
JMP
RCL
OAC
JMS
JMP
.EJECT

ICHECK ACS 0 FOR HALT
IGO HALT

KYBRO
RITN
K400K
SIMU3

IOONE 18 BITS IF EQUAL
ISTART OVER

81TN
SETBl
LOP3+5

INEXT STARTING POSITION
ISETUP FOR BLOCK 1
IWRITE BLOCK 1

PAr,E

4 II

~ ; j,

1S
I

Isr FJP

F ,~

T- ST

I
'.'i? J-, .-, '.

12.6 ~J: h

'0:-; 17 (3

c; I MU 4

~ vl?

J,'l<

V'?,.., ,/1 (,

77'5
144?73

~ ~ f 1/17

hDl1A46

r ! ')
J 1 L!

WRT1S
SET81
CNTRL
LOP4+3

IwPI T [

I:;

I ,'dO ALL

OF CORE

IWRIT[ 8 l l1CK 1 Ln TO H r

SLKA4

L A{~

IDONF:-9 = Ll'CATIO~ BLK84

.Jr-1p

nONE9
EXIT
SETB1
RBLK4

~A 2 r 1 ~':

?04~34

(;\2b 11

02t)1?

1vi?775

JM:-::

~J2613

f--01133

4 4 3 Iii 7

f) A"

IRFAn RLOCK 1 LO TO HI

(112 6 14

?(ij4))35

LAC

[JONie!

/DON10 = LOCATION 8LKC4

02615

44307

nA('

EXIT
STRl
RAK4-3

ISETUP FOR BLOCK 1
IREM) BLOCK 1 HI TO La

RLK8 4

(7'2611',

1 (71:) 017

JHS

021)17

h(~1165

J~p

02 6 2~'

'/04 :1 3 6
'.' 4 4 307
7 t) 1;:1 ,J 00
544322
AR?630

I
)\?621
02h22
0262:~
~2A24

v1262S
(712621)
02b27

RLKC4

L Ai~

n A("'

OON11
EXIT

IDON11=LOCATION RLKD4

LA !..j

S AII
J~p

JMS
.)MS
JMP

102704
:1 '~3006

AVI(7I541
I

.EJECT

RLOC3
RLKD4
CKADR
SETB2
REST2+2

ISEE IF 2 RLOCKS SELECT EO
INO

ISETUP FOR BLOCK 2
IREArJ RLOCK 2

.< ,

, ,,/ 73

"L~D4

:.\
<..,

.:.

i:,

" ,~ ') ~ ,) 7
7 4
:~ 1

r' .< ~

/WRITE HI TO LO

)r'~

,'?A 34
.... 26~t:,

44;J73

rIA r:

11) 775

J'1 ')

~" '2 f, 3 '"

~ til ~ 1146

JI'1~

,12;:' .~-:

'44)74

':2 '"' 4 ~;
~? n 41

1 C~.~)17

i12A 4?

?,~4.-:137

?2t--4:;

°44307
760000
"J443?2

OAC

A~?6512J

rNTRL
SET81
LOP4+3

ISETUP FOR BLOCK 1
/WRITE COMPLEMENT LO TO HI

PATR
STRl
LOP4A-l

ISETUP BLOCK 1
IWRrTE BLOCK 1 HI TO La

/
~

fJAr
RLKE4

f, i~ 1224

JMS
Jt1 P

.')644
'2A4"i
.,12f 4 A
~', 2 f, 4 7

RLKF4

LAC

IOON12

JMP

RLOC3
8LKG4

JMP

DON11-3

ISEE IF 2 BLoCKS SELECTED
INO
IREAD BLOCK 2

LAC

DON13
EXIT
SETBl
CNTRL

LA''';
SAn

(,04vl33
/

~?2b5v'

?0 4 vl40
44 307
1 \~? 77'5
?04273

RLKG4

~-,

OAC

,'26')4

74",)101

J.26'5~

I'Lft1134

LAC
CMA
JMP

026'51
~"2f,5?
,)1 205~

= LOCATION BLKG4

nON1?
(XIT

JMS

IDON13

= LOCATION BLKH4

ISETUP BLOCK 1

R8LK4+1

IREAD BLOCK 1 LO TO HI

DON14
EXIT
CNTRL
PATR
5TR1
BAK4

IDON14 = LOCATION BLKJ4

DON15
EXIT

IDON15

BLOC3
RLKL4
DON11-3

ISEE IF 2 BLOCKS SELECTED
INO
IREAD BLOCK 2

,12656

;:;.~~,141

,'2f ~ 7

''''44 Set7

':<2Abi?

~2663

?lH273
7'44274
10j017
601170

~':2664

? v~ 4 (.14 2

0::?665
iJ2666
02667

tJ44307

'('l2t- b 1
Q',26b2

RLKH4

LAC
DAC
LAC
OAC
JMS

JMP
I

8LKJ4

760J00

~2670

544322
6i,P672

,,12671

f04ft133

LAC
DAC
LAW
SAn
JMP
JMP

= =LOCATION BLKL4

"'267?
02673
02674
0267"1
(1267"
02677
{'I 2 70(~

:. 2 7 ~~:
/27,1'2

,'-? 7~~

)12J4273

RLKL4

74j201
hCil?637
75~12J12I4

7411121121
101364
'104352
7402121121
A01623
f0?604

LAC
SNA!CMA
JMP
LAS
SPA
JMS
AND
StA
JMP
.)MP

/
.t:JECT

CNTRL
BLKE4-1
HALT
K2121

KY8RO
SlMU4

IWRITE COMPLEMENT HI TO LO
ICHECK ACS 0 FOR HALT
IGO HALT

PAi,E

,it..,

X A filS

,':) 7 ,I'>

' ~111 1 'n (,1
):' (~ ~??

-7 j"

"? 7 ,1 ,1

r:KAO~

(,i'I

L Af'
r: '1 A

HU1C~

,1 (111

~') 7,1)

,~4"; 3 4 6

T AI)

i/1271l1
02711
0271?

~ 4 4 ,) 2 3

TAn

K1
8LOC4

) 7:\ h

vo\?71~

I 4 !.~ 100
h??704
? v14 3? 2

i7'2714

('43737

0271~

?(i'!4323

Cil2716
02717
0272 C'

44322
?fn737
\'44323

k'1272l

A2?704

SMA

JMP*
LAr~
nAr:
LAC
OAC
LAC
nAC
JMP*

CKADR
RLOC3
CRLF
8LOC4
8LOC3
CRLF
RLOC4
CKADR

liST IS >2ND IF SKIP
IEXIT

/REVERSE BLOC3 AND BLOC4
IEXIT

02722
0 2 7 23
02724
~2725

'02726
02727
02730
(1)2731
02732

11100000

SETBAK

?0 A3 01

(' 44 34 0
f~ 4 4276
?44377
(.'44275
77(11000
044277
622722

Vl
LAC
nAC
[)AC
XOR

DAC
LAW
DAC
JMP*

LAST1
PATBNK
SVADR
K7777
MEMADR
-10000
CT4K
SETBAK

ILAST TO TEST

02733
02734
02735
(1\2736
02737
Vl2740
02741

(,>'1210000
2(114300

SETl

~;'44275

11144340
770000
044277
622733

LAC
OAC
DAC
LAW
OAC
JMP*

FIRSTl
MEMADR
PATBNK
-10000
CT4K
SETl

'LAC
"

MEMADR
K70K
CRLF
WHERE
CRLF

ILAST ADDRESS
IMASK BITS 3,4,5
ISAVE
ISEE WHERE PROGRAM IS
INEXT HAS PROGRAM IF EQUAL

CKBAK
NXBAK
.+3
CKBAK
CKBAK

IEXIT
ISEE IF CURRENT IS LAST
ISUBTRACT 4K
IRE TURN +1

0274?
Vl2743
02744
02745
02746
02747
02750
02751
02752
02753
02754
02755
02756
02757
0276171
02761
02762
~276?1

1Il2764

r~""Vl000

CKBAK

204275
504403
043737
101360
543737
741000

AND
DAC
JMS
SAD
SKP
JMP*
JMS
JMP

f,22742

102765
602756
442742
622742
770000
044277
344276
17144276
?44377
(1144275
A02743

NONE

IS~

JMP*
LAW
OAC
TAD
DAC
XOR
nAC
JMP
I

.EJECT

-1"'0"'~

CT4K
SVADR
SVADR
K7777
MEMADR
CKAAK+1

INEXT FIELD

ICHECK NEw FIELD

III"'1i GE

Y 4r)' .'

ICHECK FOR LAST

~IF.LfJ

,'.? 76"

"~'r.,~Vr0

'127bA

7"):'M"4

W2767

0277('·
~1:? 7 71

',,;(h At<

: 4 1 1 ~~ e
1(J!1364
?14?76

[lt 277?
V127r,

~ 4,~ 300

[l1?774

6~?756

LAS
SP6
JMS
LAr':
SAD
JMP
JMP

f-P754

ICH[CK ACS 0 FOR HALT

HALT
SVAOR
FIRSTl
NONE
'WNE+2

INa MORE TO TEST
ISrTUP FOR NEXT

(11277"5

'~0V'1000

02.77'"
7'2777

?(H3?0
'~4 4275

03'''vW
~ ,3 ~ ,11
/3.1 vl?

74i1~101

,'3003
("30;7)4
73(~05

~44346

:44321
74 i A 0 01
(i 4 4 ? 7 7
62)77>;

ISETUP ADORESSF.S FOR 1ST BLOCK LO TO HI
I
V'I
SETBl
i~LOCl
LAC
/lS T ADDRESS
MEMADR
DAC
CMA
TAn
Kl
12'S COMPLEMENT
TAD
ISUBTRACT ALOC2
RLOC2
CMA
ICOMPLEMENT RESULT
CT4K
OAC
SETBl
IEXIT
JMP*
/

03011
03t1112

':'.;,,1000
),~ 4 -3? 2
( 44275
74" 001
344346

'~3013

~4'13?3

03V'114
03V'11'"
0301A

74:"MH
P44277

03~:WA

03007
~301:~

f.. ?~·dV'l6

ISETUP ADDRESSES FOR 2ND BLOCK LO TO HI
I
SETB2
0
QLOC3
LAC
I1S T ADDRESS
MEMAOR
DAC
CMA
TAO
Kl
12'S COMPLEMENT
TAD
QLOC4
ISU8TRACT
CMA
CT4K
DAC
IEXIT
SETB2
JMP*
.EJECT

PAr,r:-

4 >~

x: 4 i 1';

ISrTUP HLOrK 1 A':[)RESSES FOR HI

fO LO

'3'} 1 7

~~.

':;' v~

:)V?.'

;~4,5?1

l~ 3'~ 21

44275

~TRl

5? \':1

vi~0 ;;>;;

'),~ 4

\1.3 (112:;

7 4'~ ',Hill

'/.3024

~44346

03021:)

03026
03027

74(/)01

"44277

VI 3Vl3(~

t<? ,\,.) 1 7

LAC
OAC
LAC
CMA
TAO
TAO
CMA
DAC
JMP*

4 4 321

~LOC2

ILAST ADDRESS

ADR
QLOC1
'~Et-I

'<1
RLOC?

12'5 COMPLEMF:NT

/SU8TRACT

rT4K
ST81

15ETUP BLOCK 2 AnDRESSES FOR HI TO LO
I
Vl3V'131

.:,'10000

Vl303?

')[<14323
(/'44275

l~3C1133

Vl3034

?~4322

c" 303 '?

74~\001

03036
03037
V'3V'!40
V'3~41

344346
344323
740001
"44277

0304(>

f)2~v~31

STR2

0
LAC
DAC
LAC
CMA
TAD
TAD
CMA
OAC

JMP*
/

.EJECT

RLOC4
MEMADR
RLOC3

ILAST ADDRESS

K1
RLOC4

12'S COMPLEMENT
ISUBTRACT

CT4K
5T82

fJ A ("', E

Y Ai', 1 ,~

4 '-1

/
I,Jr

i\c-RA TF

t-{

I, ARY

AnORESS FROM

KFYR0,\QU

INPUT

/
11 ,~:"
I.,~

1 <:

3 v 44

3 v' 4 5
:~ 3(7. 4 f-

;, (1 '"

'4 Ll)11

~3(J!47

),145 4 4
<144311

V130'5!'

hi71,~,il66

r~ ,) Vl '51

r~305fl

?44306
;144,H'I6
777777
S64.Hi7I
f,213060
444110

03(J\57

t'l2'~43

(.1:3 ri'152
r:SV153

(''!54
v1,~ 0,55
(-I,)

(:E ~ A lR

X:T*

(')4.')1\~

nA (:
I'

NROT

LAC
TS1l
.)'vl t:-'

YUh:

nAC
LA,,,

SAil *
j:'vjP

lSi

(tl 3 06 (I

?!34011

J,"1P*
LAC

0311l6j
0306?

(\44010

[)AC

(~3063

£12 41,110
,44311

0,3064
(J!306S

,. ~ <: J4 3

XCT*
nAC
I Sr
JMP*

44<:1143

ROTA
NRnTA
RITN
NROTA
GOLEFT
ADRCW
ADRCW
-1
ROTA
.+3
ROTA
GENA DR
ROTS
ROTA
ROTA
NROTA
GENADR
GENADR

I\(,T A LAW MINUS X.
/ I NPI'T NUM8ER
/SHIFT COUNT+l
/ROTATr 1 LEFT
IXOR WITH PARTIAL ADDRESS
IDONF

DIGITS IF EQUAL

ILAw POINTER+1
IGO WAIT FOR NEXT
IRESTORE LAW POINTER
IGET THE LAWS
IRETURN+1
IEXIT

i7130,66
i713067

0307(11
03(.lJ71
(!l3i717?
03073
03074
(113"'75
1113076
03V177
03100
03101
03102
03103
03104
03105
03106
03107
03110

RCL
JMP

744~10

GOLEFT

1)vn,~4 7

CNROT
I
IROUTINE TO WRITE: l'S INTO ALL OF MEMORY
I
(/I
WRT1S
FIRST1
LAC
nAC
MEMADR
[JAC
SVADR
LAW
-100V"l0
OAC
CT4K
STL
JMS
CSANK
ISEE IF IT HAS PROGRAM
SKP
INO
WRT1S
IEXIT
JMP*
RITE
LAW
-1
IAC=777777
MEMADR
IWRITE
nAC*
1St
~EMADR
IADDRESS+1
1St
CT4K
IOONE 4K WHEN rERO
JMP
.-3
STL
ISETUP FOR NEXT
JMS
NXTSNK
.EJECT

;"" c~.~ (J! 0
?v\4300

44275
'44276
770V.J00
\<144277

111

744~H?J2

101276
7411100
A23070
777777
C~64275

444275
444277
h031~3

744002
101344

, ( 6.. 0 1 5

\:3:l 11

l4 ,: 4 3

:I,~ 11:?

44~25

V131 L)
03114
0311'-)
03116
lA3117

" '-1 c:: It ~~

T A ~ ~.

L A('

[, A('
lAC
SAD

') :14 j01
~443;>0

221

J~p

)~4270

lAC
SPA

"'.1

741100

V'l312~'

f-,~

(il2? 1

J-.1P

3121
03122
03123
03124
V'l312t:;

74,AlJ20

~AH

741 4 00

Vl3126

[144271
770000
344271

SlL
JMP
1S t
lAC
DAC
lAw
TAD

~~44312

I)AC

1~1360

JMS
SAO
JMP

,,~

03127
03130
03131
03132
03133
~3134

h~n210

444270
?~4301

'544271
603173
I

.EJECT

tRT8l
ERWRO
lAST1
FIRST1
RTNl
FLAGS
PTNl
NXTMV
FLAGS
LAST1
INSFLD
-10000
INSFLD
NXLOC
WHERE
INSFLD
SUB1

IlAST TO TEST
IOON'T MOVE T F EQUAL
IRFTlJRN
IPROGRAM FLAGS
IFORCEO MOVE MADE IF A 1.
IDON'T MOVJ;"
ILINK = RIT 17
IFIRST MOVE IF SKIP
ISFTUP FOR NEXT MOVE
ISET FLAG FOR 1ST MOVE
ILAS=% NEI'ICURRENT FIELD
1-4K

ISUBTRACT 4K FROM CURRENT
INXLOC = OEST'N FOR NE X'r TIME.
IWHERE ARE WE NOW
IALREAOY IN LAST 1 IF EQUAL
ITRY NEXT LOWER

~·-;E

X AI-Il c:

'11

/
/ r~O \oj
/
;~ <; 1 ,~ "

e ,):1 ~ r
(113137
71 31 4 C'
l~ 3141

1!1314?

i", I<~ VI
"" -, ,S? '5

150
)?43;:>5
':;44271
(,03162
f- ,) <;

01314 '

1,44325

1A3144

:::",14325

,1)314">

C:;44,~44

4 f-.
."3147

741 .WQl

~'131

(~31 ') ('
,,1,3151

;;:'4~43

~3157
~316(11

?~4314

(1'13161

6n325

~3153

031'54
'."3155
V'J3156

03162
3163
03164
03165
03166
03167
(1131 n~
031 n
03172

:,~

~44300

f;II,)205
741200
AV'I<;171
77V1k100
3 44 271
v~44312

204043
~44325

,- (IR

F..;JRnR

LA",
SAL:*
J;'1P
LAC*
SAD

<i13140
v' 4 4 325
2 ;"-'4 2 71
174 4 314
1 ~1360
0,44313
544314
6010221

G~3152

CKERR

CHECK

I
STMV

RECORDED

J N i\)p-l

ERWRfl
STMV
ERwRD
INSFLD
EQUAL
ERWRD
ERWRD
ENERR

JMP
1St
LAC
SAD
SKP
JMP

CKERR+3

lAC
DAC
LAC
nAC
JMS
OAC
SAO
JMP
LAC
JMP

ERT8l
ERWRD
INSFLD
DESTN
WHERE
SOURCE
DESTN
RTNl
DESTN
MOVE

I
IERROR IN NEW FIELD. TRY NEXT LOWER
I
FIRST1
EQUAL
SAO
JMP
DNMVE
SNA
JMP
.+4
LAW
-10000
TAO
INSFLD
NXLOc
DAC
LAC
ERTBL
DAC
ERWRD

FIELD

INO t::RRORS IF = LAW
IINITIAlI~F.: MOVE
IERROR IN FIELD IF EQUAL
IPOINTER

IENO OF TABLE IF EQUAL

IRESTORE POINTER
INEW FIELD

INEW AND CURRENT ARE EQUAL
IMOVE PROGRAM

IDON'T TRY NEXT IF EQUAL
lIS IT FIELD 0
IYES
1-4K
ISUBTRACT 4K FROM NEW FIELD
INEXT NEW FIELD
IRESTORE POINTER

03173
03 1 74
03175
03170
03177
03200
V'l3201

20 4 312
544271
f)03162
17144271
'544300
nV'J3135

~320?

344271

03?Vl3

[1\44312

?:PIll4

603135

03?01)

?~41143

Vl3?~~6

';'32..:17

LAC
SAD
JMP
DAC
SAD
JMP
LAW
TAD
DAC
JMP

NXLOC
INSFLO
F:QUAL
INSFLD
FIRSTl
CKERR
-10000
INSFLO
NXLOC
CKFRR

(,'44325

LAC
DAr

H1,~221

J~P

FRTBL
ERWRD
RTNl

SUB1

77~000

INEXT NEW FIELD
IT = CURRENT NEW FIELD
ITRY NEXT LOWER
INEW NEW FJELD
lODES IT = LOWEST rIELO
ICHECK FOR ERROR
lIS

ISUBTRACT 4K
INEW rIELD rOR NEXT PASS

ONMVE
/

• E ,JEer

IRESTORE POINTER
1ST ART OVER

PAGE

X A f :...::,

.,)

IROUTINE Tn
');; 1

' 1" ;:, ~~

',)? 11

• j ,)

1 ,S

7.:., '.' ,1

v' vl

3? l '

'ETE~MIN~-

~aTt-1V

r:KNXT

..J 11 <._~

"HPU-

[1 A, I,'

":';OlIKrE

LA"

,;:, h 4,) 2 5

S A,"*

?3?11-

" ""227
') \14 ~,~ 4 3
44325

3? 1 ~
~:) 214
(' 3? 1 '"

(il3? 23

-:;;,~4325

3224
0322'"
0322fl

"44J44

JMP
LAC
OAC
LAr*
S Ar,
Jf-1 P
1St
LAC
SA:!

'41 ..100

S~~

03?2 7
0323 ~\
03?31
(-13232
0323j

?041l43
,\44325
?;~ 4312
'144271

Vl3234

544300

Vl323')

f,~~264

0323t'

03237
03240

v~3217

;'-?43?5

Vl322 G'
03221

12
".'132 4 7
,: 4 4 ,) 2 5

,il322?
I~

~3241

03242
03243
03244
03245
~3246

03247
03250
03251

4 4,)

;:;44300
A ~~;\ 2 60
1'44 2 71
770000
344271
044312
?04271
044314
fl03325

JMP
DAC
LAW
TAD
DAC
LAC
DAC
JMP

NXTHI
INSFLD
-10000
INSFLD
NXLOC
INSFLD
DESTN
MOVE

LAC
SAn
JMP
LAW
TAD
DAC
SAl'
JMP
JMP

"JXLOC
FIRS T1
DNMVE
-112!012!0
NXLOC
NXlOC
INSFLD
SUB2+1
CKNXT+3

204312
"443121121
60321215
77C11~12I0

344312
Yl44312
'144271
603250
fl03215

03255
03257

I
SUB2

.EJECT

IGET AN ERROR AonRESS

IERROR IN NEXT FIELD TF" NEXT

IDONE TABLE AND NO ERRORS
ERT8L
ERWRD
NXLOC
INSFLD
.+3
FIRST1
MVRK
FIRST1

6~3236

INO ERRORS IF 1ST = LAW

~NERR

LAC
nAC
LAC
SAO
JMP
SAO
JMP
SAO

I
STNXT

IWHEPE IS PROGRAM NOW

~RTBL

[RwRD
F:RWRO
~~ XL0 C
SU R 2
ERWRn
ERIoiRD
CKNXT+5

~3252

V'!3?56

FRwRO
STNx T

JMP

f,1~?17

03253
~3254

PfWGRAM 1)[5 T' N AFTER MAKING ONE MOVE

IRESTORE POINTER
INEW FIELD
IDOES IT : CURRENT F I r~ LlJ
IDoES IT : LOWEST FIELD
I YES. CLEAR FLAGS AND ",aVE
IDOES THE CURRENT ALSO:
/THE LOWEST FIELD.
IYES. SETUP FOR HIGHEST FIELD
INEW cURRENT FIELD
/-4K
INEw NEXT FIELD
IMOVE FROM HERE TO C (DESTN)

= FIELD 0 OR 1 ST TO TEST
IYES. DON'T MOVE
1-4K
INEW NEXT FIELD
lIS NEXT

100ES IT : CURRENT FIELD
IYES
ISEE IF ERROR IN NEW FIELD

Ar;E

.., ,\

X AI) 1 ,e,

","XTHI

3? f" ~

. .', ,;

L I~ ('

LAST1

/LAST

TU TEST

~? b 1

-, .~l..\:' :.-

A ,~: !

·,:.Q2

I' A ('

K7(11K
1\; XL UC

IL.\ST

·/":)15

J·-11-

rKNXT+,,-

ICH~JK

= NEXT FIELD

144?70

JI-1C;
OAr
LAC
OAC
DAC
DtM

I' ~:5 25

,J"'1P

wHFRr
SOURCE
fl.JXLOC
INSFLO
OESTN
FLAGS
MOVE

(. .Ph:~
f.~ -3? h,~

~ k~

VI 3:::> h':

-: '1360

111 326'-)

44313
~~) 4312
'.~ 4271

V1326t>
03:::>07
(~~ '.' 7
1/1

~~~. '} 1

03:::>7-:::

44314
~

MVRK

.[JEeT

FOR

ER~OR

P A(~E

:";4

'x A

1 "-,

n(UUTI~E

frIEI_Dtt

Tn f'ORcr MOVE THE PROGRA"1.
....1 lJ C; T

ot S T I ~~ AT I (I f\

TYPEn IN BY THE OPFFd TO~

( ~J _

OcTAL),

'13;;> l'~
i/'3274

~ 44,.'1 '5

rCDMV

L i\ 1-

4 "1,j01

r "I to.

~~3?71)

,14270

h ~J"

v~3?7A

') 4 4 4 05

x· U!...;

~3?77

44270
') v141,~ '43

rl A C

(;;3~"W

03301
1113 ~~ <~?

"4 4 325

LAr
nAC

1iij~426

~P1S

K4vH?JK
FLAGS
K400K
FLAGS
ERTBL
ERWRD
GOTO

ISET BIT 0 FOR FCOMV FLAG
IRESTORE TABLE POINTER
IPRIf\lT GO TO FIELD

ICHECK FOR E""ROR IN NEW FIELD
I

(/13303
(/13304
17!33Vl"i
('1330/S
03307

rA33H1
1'13311
17!331?
1'13313
03314
Ql3311:i
Vl331f>
03317
(113320
03321
03322
03323
17!3324

7 6(/1l~00

CKFCn

")f)4325
f,V\3321
?24325
'-)44314
A03316
444325
?17!4325
"i 44l~ 4 4

LAC
nAC
LAC
SAn
JMP
DAC

ERTBL
ERWRD
DESTN
SOURCE
RTNl
INSFLD

LAC
SAU

A!~3306

?0 4 043
044325
204314
544313
601J1221
(144271

JI'1P
J"1P
JMS

ERWRD
WHWAY
ERWRD
DESTN
XPRT
ERWRD
ERWRD
ENERR
.+3
CKFCD+3
PRSEL

IN!P
IS1

f,~3317

1034Q14

LAW
SA[I*
JMP
LAC*
SAl)

XPRT
I
WHWAY

.EJECT

INO ERRORS IF 1 ST
IS[E I'IHERE TO GO

= LAW

lODES ERROR = NEW FIELD
IYES, PRINT MESSAGE
IPOINTER+l
ISEE IF END OF TABLE
IOONE AND NO ERRORS
IPRINT ERROR IN SELECTED 4K

INEW FIELD
lODES IT EQUAL PRESENT
INEW CURRENT FIELD

, ;. { ., U T r N~_

T (J

" E L ( i " AT;':

, :J V[
)

:: ~' ,

.<:~

'-,

') -.

LAC

' : 4,~ 16

r) AC

\ <: :~ 14

LA ('
nAC
LAC*

..;,;H5

~~~~~,~,.

~4516

~, '~'"

'4.1 ~ 4 I)

-100"'0

\ 4 ,313

,'3:'- .~ ,

tv'OSOM

nAr

14K rOUNTER
ICURRENT FIELD

IPUT IN NEW FIELD
IREAO BACK
ICOMPARE

~:: 5 t-

. , <413

Jt1S

rJAC*

~OVED

LAC*

:~~t.'

, ")4315
')?4315
"'0')4316

MOVED
MOVES

(,1334 ?

74' ,HH'J

(11334,\

1 ;13') J 0

7~344

44431f

V' ,3 ~ 4 >=;

44: 'i 15

\?3.3 4 A
;)'3,'47

l;': 4 : 77

03~5v

;., '7.,n6

(~3351

? '''; 545

' j j5:-

~.:

3:; ~ ~

7 41

-, " ,"0
: :102
\0~

VI:5 ~~ 5 4

A,n334

~5.'5r;

~)4316

'335f(~3 357

;;'440A4
J:.'n33r:;

",~14377

03=~61

')44-$14

I~ 3 3 6

0336?

:!~3413

~3~63

64315
?2 4 315
"'04377
?44313

~3364
~'3 3 6 h
03366
03367
033791
03371

~64316

03374

7411{H!'"
j03510
444316
444315
444277

913375

~Jl3355

03372

03373

AJIN

SA[)*
SKP
JMS
1St
IS2
1St
SKP
JMP
LAC
SAO
SKP
JMP
LAC*
SAD
JMP
AND
XOR
JMS
OAC*
LAC*
ANn
XOR
SAO*
SKP
JMS
ISr
ISr
ISl.l
JMP
.EJECT

1-4K

CT4K
SOURCE
MOVES
nESTN
MOVED
MOVES
TNUM
RT19L

'.5:'>3 "7
'3 ~ 4 \1

P RUG R A"'1

LorE·~

',' ,.2)

• Lj .,' 7

THE

INF:W FIELD
IMOVE FROM CURRENT
ISAVE

10K

MVERR
~OVES

IPRINT ERROR INFO
IINCREMENT ADDRESSES

tv'OVEO
CT4K
OIND
TNUM
flLMT

IDELIMITING CHARACTER
IADJUST JNDIRECTS

MOSOM
MOVES
OlMTA
MOSOM+l

IDONE INDIRECTS IF EQUAL

K7777

IMASK ADDRESS BITS
IPUT FJELD NUMBER ON IT

DESTN
RT19L
MOVED
MOVED

IPUT IN NEW FIELD
IREAD BACK

K7777

SOURCE
MOVES

ICOMPARE
10K

MVERR
MOVES
MOVED
CT4K
AJJN

IPRINT ERROR INFO
IINCREMENT ADDRESSES

r-' I I~ D

j :;

F NO T

I.. /..1'

", \,~ ,.("77

-<7777

514
. .l 4 .~ 1 7

X ,j-,
lJ A. f~

PGr\iLO

"24,~17

J'''ir-

, ,,;,~ ~ 7
,

,'I

3 .,,. , '-

.; 4

GI\'L ()

I ~ A S T FAN S r E R

UP(

RT~l

EST N

~<GNLO

IEXIT FROM HERr TO LaC
/RTN1

.EJECT

M A () E

IC(8~NLO)
Lor
IM4S K A[]IlRESS

IN N':-W FIELD

X A[, l~'
I

/pqj\T

tf.'R'I'

\1:5 t1 17

~J:.:LE:~Tt[)

rf~L F
fRC:EL

'" 4 ,H~5

~ I /:J, r

PR~!T

7('11

JI,'"
J·l '~

PNXT
CRLF
FCOMV

" ,~,11 r·'

1 'JI~

<11 1
\0 3,' 1 "

1 'n7~7

~ ~

I':

J"lP

, /, <; 2 7 ~

feR, U'

IT[XT

POI·'HER

IPR I "JT
IWAIT FOR ANOTHER CHOICE

1
I~OTATF

INS Tt=, UCT T 0 ~J 19 LEFT BEFORE MOVING

RT19L

':<; 41"

.. !~ ~ \~

v' .~ L1l4

744~00

CLl

/j41"i
(.1341 f.
~~ 3 41 7
.~ 34 ?
13421

~44345

nAC

H~UM

7777A7
.'4 4 344
?04345

l. A"
[JAr

-11
RITN
TNUM

7/+r~~10

LAr
RAL

\~3422

74? ~110

RTL

~342~

444:544

rszz

RITN

03424
/<34 2~

603422

JMP
JMP*

RT19L

f.,?~413

.EJECT

.-2

IlINt< = 0
ISAVE
1-9 OECIMAL
/SHIFT COUNT
IINSTRueTHON

P A:: E

.L~

',-,;: Y'lUA"n)

1-' ,~

'),,; ) /-

,134? "7

:S43"
'3 4 ,31

,'343,°
034 3,~
~'34 3 4
>~ 34 3'"

L4~

:,1 4 ,~ " 3
741 ,? \"0

A \J! 1
S'~ A

h,~,~444

J'1P

1 I~ <: 7:-,7

JMS
LAr:'

')<,\414'5
1 ~71 ~ 70,1

,,~3437

71);1 \l0 4
"",114353

03441
~13 44?

7402(1)0

~'344~~

1~)~737

i{\3444

1(713737

V:-,44'"

;J(i14046
,'44)V15
:'rB701
111?272

,1,344 h
11'3447

DAr:
J"1S

,'4 4 ,~(15

")44360

~)345?

M13503

OR FORcrO Rr L0 CAT I O~,
I f~F A0

ACS

1<40
ICHECK 8IT 1?
IEQUALS 0
/CR,LF
/TrXT POINTER

t\JOSW
CRLF
PTWLV
PRNT
PNXT

/PR I (\IT PUT ACS 12 ON A 0

LAS

f,0.~437

"3450
11'3451

I'}

104

~,,;)('

;;1343h
'~3 44 (\

:iPl,

f:,;;j i i T l"~ r-

NOSh

Af\Jfi
SiA
Jl-1P
JMS
JMS
LAC
nAC
JMS
JMS
SAn

k'40

JMP

CFLG

/WAIT FOR THE
.-3
CRLF
CRLF
GOFL
PRNT
PNXT
KEYIN
K215

/CR,LF X 2
/TEXT POINTER

/PRINT GO TO FIELD
/WAIT FOR INPUT
IA CR = NO FORCEO MOVE
lAND RESUME AUTO RELOCATE
ICLEAR THE FORCEfl MOVE FLAG

/NOT = RO OR CR, SO IT
/MUST RE A NUMBER

74:~i120

RAR

03454

74?0?l~

RTP;

RTR;

l~3455

742020
742020
5(714403
0.44314

"NO

K7Q!K
DESTN
WHERE
SOURCE
CRLF
GOTO

VI 3 453

0345A

03457
03460
03461
03462
03463
03464

[lAC
JMS
nAC
JMS
JMP*

:l~1360

~'4 4 313
103737
A23426

.EJECT

RTR
IMASK 3,4 AND 5
INEw FIELD
/WHERE ARE WE NOW
ICURRENT FIELD
/CR, LF
/CHECK FOR ERROR

~(,F

')<

\ A1'1'-,
•

1"~ '/1 (110

:S,' ,"~

;;nS4 ~
141?0v1
r?0(465

,i :~ ,; ;

, :<; 4 ( ,
j 4 -, ~

FNOT
L ~"
::..

~ to'.~

Fe,"

14~540

1 rJl:< 737

J.I:'"

L()('ER
CRLF

?li14 '11"30

LAC
nAl'

/,347 c.
~'3 47'

r~44

r"" 4 7;..,

11/!~737

, 3477

I~J)

/
34 7~
C',4 7?
c' 3473

LCl::EP

..H15
1 1,10701

. V., (..\(.."

'.14270
74:1100

,) ,~ ') [t11

nr~~273

" 350?

A~:-3227

J1)
y-1S
L Ar

~iERN

PRNT
PNXT
CRLF
FLAGS

~iJl\

.)'-1::J~p

FCDMV
STNXT

·4RG~S

IEr-..Tr'i

~,'= 'I

1;:- ('I
F"I;::LD

ICR,LF
ITFXT POII\JTER
IPRI "n NO MOqE EQRORS

/CR,LF
lACS 0 A 1 = FORCED MOVE
/WAIT FOR ANOTHER CHOICE
/TRY NEXT FIELD LOWER

I
~~3"'i0~

?(il4405

"'3"304

7 4 ;~I/!Vll

vi 3 '5 V'l"'i

~04270

:'44270
r.l/l(i'l221

~'135 ~

.' 3"'i 1'17

CFLG

LAC
CMA

K4~0K

A '" I~

FLAGS
FLAGS
RTNl

nA('
JM>-'
I

,EJECT

ICLEAR THE FORCED MOVE FLAG
/START OVER

PA(;E

Y.Af'1'"'

I
. VF FH

',hl"

,j (I ,~ (:1 Vl

, .~~) 1 '1

,'4 ~.'1 :I?

,\ ~ '" 1)

:'>,14 j 1 ~

[' 3'" 1,\
,13') 1 (~
;A 3~ 1 '"

>;> 4,~ 16

L. A (' *

'144304

n A!~

551f-

:,>J,~746

L.AC

741200
1 ;;n746
?,~ ~ '540
741200
1 ;;1')540

S'~ A

LA('

~cn531

LAC

nAC

~~353'~

041507
103737
777766
r01.464

03'131

A~~532

(l'

:':~51

(~3 5 2"

'~3 '5 21

03'522
~~ 35 2 3
('\3524
913'12')
0352f-

03527

!..('
I

4.5 V13

I· t.:.,C"

J '-1 S
S,\! A
J '1 <:.

J~S

l_ A"
J"1P

JM P l

JMP

C<Af)l
"'OVED

()CAOR
"'10VES
(;0001
PHDR

/SAVr:
IF I El.u

r\rOQR~CT

Af\!D

I!\JSTPUCTION

AiJORESS

ISAVF
ICORQECT j\'STRlICTIOi\J
ISAVE

PHDR
LOCER
LaCER
JMPl
INOV
CRLF
-12
STER
• +1

10ON'T PRI\'T IF 1
IPRI~T PROGRAM RFLOCATI(l\J ERROR
IJMP RETURN
I-H~ DECIMAL
IPRINT INFo

Vl3532
03533
03534
Iil353'1
03'136
(0'\3537

LAC
DAC
LAS
SPA
JMS
J'"1P*

?'H 465

v\41507
7'1~004

741100
1 (i11364
h?~510

035 4 0
03541
03542
03'143
03544
03545
03546

V'44305

03547

(11910000

035591

:103737
760277
101571
103737
023547

C'(i'\';jV100

I
LaCER

103737
204047
1037~7

623540

IEQUALS JMS SPING

~ALT

MVERR

IEXIT

cRLF
RELOC
PRNT
PNXT
CRLF
LOCER

ICR,LF
ITEXT POINTER
IPRINT PROGRAM RELOCATION ERROR
/CR,LF X 2
IEXIT AND PRINT THE ERROR

CRLF
277
PCHAR
CRLF
WOTIS

ICR,LF
/QUERV MARK
IPRINT
/CR,LF
IEXIT

JMS
LAC
DAC
JMS
JMS
JMP*

103701

STfR+l
INDY

03551
03552
03553
1713554

WOTIS

JMS
LAW
JMS
JMS
JMP*

I
.EJECT

~ (~t_

' I...

/
/~OLJTINE

'--.L"'-TS

erE U T TrST

LI~ITS

;:.. ~'. ::...

:l~

'") ~.:, f

,'::: ~ 35

LA':

STLOOP-l

3':, '57

.1 --; ~? 0

~AC

lOCAT+4

6C'
.~ 3 '" 6;

737
/ ~ 4 ,j 5 3
"44305
1 :1'< 701
1 '; ~ 7 ~ 7
/714,154

Jf.1S

CRLF
TLMX
PRNT
Pt\JXT
CRLF
SLMX
OVFR
QON3
EXIT
KEVIN
K3 7 7
SLMTS+l
LEGAL
RITN
K7
RTRi

,~3")

v, 3"i b:)
'~3

c:; 1)-:'

i A,:5':' t..l

3") fJ "

•

~ <.

,q,)f,f-

'44~1~

~' V"b7

) ~4.\55
; .(; t1,~ (i\ 7

5 r::, 7 '

. 3') 71
(>3S7;;
03":;7:<;
(i3C:; 74

::::44374
" .~ ,< 556

7 c:;

'.)?4344

03;:;7(03')77
r"3f,0C7

>=;;14350

Ai\JD

744'.~20

RCRi

~1~ r:;

vi 3 f.

,1:

(A 3 6 V'I?
?36k~~1,

03f-04
C~ 3 6 1'1 c:;
?l36(1f,
03607

0361V

03611
03612
03613
03614
k13615
Vl3616
03617
(?!362~~

03621
03622
(i1362~

(l362.c
\;13620-;
v13626
G~3n27

1~?301

KE Yg () tI;- c:

I f\ P ~I T

/'"

LAC
DAC
JIv\S
JMS
LAC
DAr:
LAC
DAC
JMS
SAn
JMP
JMS
LAC

1 ~2272

F Q'I'vi

ICR,LF
ITEST LIMITS

POI~TER

IPRIt\JT "TEST LIMITS"
ICR,LF
IC (SLMX)=SLMTS+1
IRE TURN ADDRESS=CREVR
IWAIT FOR INPUT

RTR;

ISEE IF VALIn
I ASC I I INPUT
IMASK 15,16 AND 17
RTR

71~)/20

- ,.;1?0
20
. '.4300
1 ,'? .~72
-'.1) ~

;:"44~~61
741{1(~0

f,0?312
10?272
')44374
fJ i n556

1J2301
?;14 344
"504350
744020

DAr
JMS
SAn
SKP
JMP
JMS
SAD
JMP
JMS
LAC
AND
RCRi

FIRST1
KEVIN
K254

IFIRST TO TEST
IWAIT FOR COMMA

QUERY
KEYIN
K377
SLMTS+l
LEGAL
8ITN
K7
RTRi

IPRINT QUERY, AND RESTART
IWAIT FOR LAST

DAC
LAW
nAC
lSi!
JMP
LAC
CMA
TAn
TAf1
SMA
JMP

LAST1
-1
CT4K
CT4K
QUERY
FIRST1

ILAST DO TEST

K:1

12'5 COMPLEMENT

ISEE IF VALID
I ASC I I INPUT
RTRi

RTR

74?[~20

74?020
74?020
" 4 4 301
777777
':'44277
444277
"cP312
?04300

v 3f,30

740~01

, SA31

~44346

,3f,3~

~44,301

7363:')
" 36.34

-7 4~

CREVR

100

",~:; b4

3
I

.t::JErT

INO 2ND DIGIT IF NO SKIP
IPRINT QUERY AND RESTART
IFIRST FIELD

LAST1

IFIRST IS >LAST IF NEG.

OKAS

IFIRST IS LOWEST ORDfR

PAGE

x A ,~ 1 ~.

f) ~)

/1 ~ '"' ~\;:.:

. -' h.:" f-.

","S" 3 7

,>'

..\ ,-'

-l"': ,..: 4

i: J, ("

~ I T i\J

·1

L t,:'

L 6 S T1

1,:~

~., 'l

,~ ,~ 1 ...

! i fj ~ ..

LA \'

'.<, f- 4 /

;45,14
. 4 t. ,) / 1.

~~ :-< A 4 ~

? 14 3l~ 1

. ~.., 4

. 3 r 4'

j .;, :
~

(I K: A S

f) Ar
LAC

3 () 4 4

4 4 ,{0~

C; A fi

J~64h,

41 ."\~ 0

S;.(~

'?364 "
v'3A47

,'·3 f, 5 ,.~
r,"3A'51
(~.3

nS?

" Fol:;6

J~;

"'442 7 1
741 .'00

SAl)

r.,'

"6" 6

'4 ":'3?0

03A54

1 "\?31 4

lOS T1

AlOK
INS!='LD

J ;v'~'

ALOK

LAC
GAr
Jr...,S
J;''1P
JMS

K7Q\0K

Vl3f-~S

I.,~ ~':l,6

"36')t-

1,~?:;>72

03657
3 6 M'~
03f.61

t::;44.5h~

SA [)

f--2:<t?55
h.P312

J"'1P*
JI"-P

(,~

C-

,; IT\J
LASTl
LAST1
!='IRST1

S~~

,)'14 4 ~\ 7

03t-'~

~IhSfl

AlOK

LOCAT+4
LOCAT
SlMTS+l
KEYIN
K215

ISflvF
ILAST IS i\JOW FIKST
IFIRST IS NOW LAST
ISEE IF O'~L Y 1 SELECT EO
IYES, SEE IF IT HAS PR .CRAM
/REJECT IF EQUAL.
ITELL WHERE IT IS

/RESTART
/WAIT !='OR A C. R.

suns

IEXIT

QUERY

/PRINT QUERY ANO RESTAFIT

/SETUP ACS. PRFSS CARRIAGE RETURN TO EXIT
/

0366?
L13663
03664

03665
'1366A
03667
03 6 7'~
C113671
03672
03A73
03674

(;1~~ \~

SETAC

103737

Ji"1S

?'(I4056
(',443\1'5

LAC

DAC
JMS
KR8
KSF
JMP
KR8
SAD
JMP
LAS
[lAC
JMS
JMP*

103701
700312
7~w301

603670
700312
~44374
f,~~'556

0367~

7'5(11\-104

03676
03677
0370C11

103737
6?3662

C~44272

.EJECT

CRLF
SETX
PRNT
PNXT

ICR,LF
/POINTER
/PRINT "SETUP ACS"

.-1

K377
SLMTS+l

ICHECK FOR A RO
/START OVER

MCWA
CRLF
SETAC

/CR,lF
/EXHT

",AGE

XAf 11 '"

1),<;

/PRINT A STf.<I"JG

\I\jO

EXIT.

/
l:) 7 ',l 1

' 1 •

V' 3 7 ,1?

77777.,

03 7,~ ~~

~,\

037~j4

,:~ ~~

PNXT

L A'~
DAC

4 4:3 41
444505

JSt

V'370~

)~4305

LAC*

0370f
037.17

741200
623701

SNA

cn71;'

'4~737

711

4354
:::4<1354

~13

'1)3 71?

V1371:'1
03714
03715
03716
03717

1/44342
777740
344342

0372~

1:-1i1~734

03721
013722
03723
03724
037:?'3
0372fi
03727

?43715
344371
101571
444341
741000

"~373V1

0373j
03732
03733
"'3734
03735
03730

MSK

C:;'~

A~~724

74~100

CK3

f,0~702

?Qn737

742020
74?020
74 ?(i120
f,0~710

?0 il 342
344356
603723

-3
WRCNT
PRNT
PRNT

Y-1 P *
DAC
AND
SAO
JMP
OAC
LAW
TAO
SMA
JMP
XOR
TAO
JMS
1St
SKP
JMP
LAC
RTR;

PNXT
CRLF
K77
K77
CK3
RPETE

JMP
LAC
TAO
JMP

MSK
RPETE
K200
CK3-1

ICHARACTER COUNTER
IWORO POINTER+1
IALL DONE OF 0
IEXIT
ISAVE WORD
IMASK 6 BIT CHARACTER
ICHECK IF RUB OUT
ISAVE CHAR

-4Ci1

RPETE

INEG. = ALPHA
INUMERIC

CRLF-3
.-4
K300
PCHAR
WRCNT
PNXT+1
CRLF
RTR;

IMAKE ALPHA
IPRINT ACS 10-17
ICHECK FOR 3 CHARACTERS

IGET NEXT 3 CHARACTERS
IPOSITION NEXT
RTR
IPRINT IT
IMAKE NUMERIC

I
ICARRIAGE RETURN, LINE FEED
I
~3737

03740
03741
03742
03743
03744
03745

00"'000
760215
10t571
'143744
623737
769!212
6(1)3741

CRLF

0
LAW
JMS
SAD
JMP*
LAW
JMP

I
.EJECT

215
PCHAR
.+2
CRLF
212
CRLF+2

IASCII CR
IEXIT
/LF

YI\f'l c

PA r= E fJ II

/XAD1'5
/
/f-'t AiJE~

T • r--~ ~

~ I \;:

r;c

P"i[:R

7 4 f,

"iI 1/1.1 ~10

,1374-;

1 '/1 <, 7:. 7
?040'57
f44305
1':-n701

J:-IS

1~3775

J['v,~

?04060
(/144305

LAr
[JAr
J"'1S

;,~:~

f~ 3 7 5 V!

v' 3 7'51
03752
03753
(~3 7 '5 4
(il 3 7 ').::,
03756

J'~
:

..... l

I~ A "

10~7v'l1

V'3757

1 ':i\~775

JMS

v1 3760

?04061

~13761

~44305

('13762
(113763
V"3764

103701
103775
204062

LAr
fl Al'
J"1S
J i1S

~3765

~144305

r)Ar

03766
03767
03770
03771
03772
'13773
03774

103701
103775
204063
044305
103701
103737
623746

JM<'::
J"1S
LAC

LAC'

[lAC

JMS
JMS
JM>J*

CRLF
TSTX
PRNT
PNXT
CLMN
AORXA
PRNT
PNXT
CLMN
GOATX
PRNT
PNXT
CLMN
8DATX
PRNT
PNXT
CLMN
8WPA
PRNT
PNXT
CRLF
PHDR

feR, LF
/POI?\JTER FOR "TEST"

IPR I ~n TEST
ISPACE 5
I"OCTAL AOR. "
/SPACE 5
I"GOOD"
ISPACE 5
/"8AO"

/SPACE 5
I"FIELD WITH PAT."
ICR, LF
IDONE

I
I

03775
03776
03777
04000
04001

000131313
777773
043737
101615
623775

CLMN

LA..J
OAe
JMS
JMP*
.EJECT

-5

CRLF'
SPING
CLMN

ISPACE

\,,;- .... ,~

""AGE 6·

/
/~FTIJRN

A[j~··SSC::S

7-;)--j?3

,\ . 516

\' 4 ' '.-,
'-'. 4;:' . I~

.. .Hj737

" 4.' ,~~

'~t105

(? 4 (1,) f

(, '~4 263

V40J7

';7,4252

/4-' 1;:

,. 7!?~13 7

C', 4 (I' 11

7C.P~37

:'4rl?

};.j4412
l:;7IV1000

. 4~' 13
('4014

\1\1'5 <11 1

04011;

(,~41.14

016

:'~4121

(A4~17

(';H660

(74~'

2~
r. 2 J

'-1?21?7

(~4

">~2044

\~ 4

~4e22

'0?163

(1402::
"'4024
04025

:'~?114
1l(ll22~3

e·402t'

r704127
J ill41 h. 4

P27

0V14135

~l4

7403(:

'~~?521

v4~31

'~4 (113~

' ,,1?534
'~\ :?557
";,P567

~>4034

" 1'?614

04 V' 3h.

b 20
:' ~ ?630
v0?b50
:U?656
(7;'P664
002672
V"04326
004336
004176
004243
004206

f,'4 V' 3?

/4036
f'4037
0404(.-'
lI.4Vl41
~4042

04043
04044
04041:)

04046
04047
04V"5V'
(1\40'51

04052
040.5:<;
C114V''j4

i~;'?

v~04220

004143
0\)14164
004227
(:>03556

\~4055

(~03625

0405f
4~' 5 7
40fl/

(.'104235
004Vl65
,?~4(~71

llLMT
KRTN2
KRTN3
KRTN4
LAL
PTO
ROTA
ROT8
STRL
SUPTRL
EST8l
TSNX
SUPSX
INSUP
SUPDN
N8lK
TBLK
DONE2
DONE3
BLKSX
OVRLP
RLKTX
DONE5
DONE6
DONE7
DONEB
DONE9
DONll21
DON11
DON12
DON13
DON14
DON15
ERT8L
ENERR
PTWlV
GOF"L
RELOC
NERN
PISIN
ERSEL
TLMX
SLMX
DON3
SET X
TSTX
ADRXA

75?") ,<3
Fi T '\ 2.
RT\~

PT"J4
ALL
PTri
ROTC
ROTC
KE~J0+2
~

KEND+4?ol
TSN
SUPS
SUP I hi
DNSUP
BlK1
Rll<2
D8LK1
DBlK?
BlKS
OVLAP
8lKT
8LK8?
8LKE2
BLK83
BLKD3
BLKB4
BLKC4
BLKD4
BLKG4
BLKH4
BLKJ4
BLKL4
ERWRD+l
ERWR[)+11
PUT12
GOFlD
PROR
NOMa
PROIS
SLTER
TSLM
SLMTS+l
CRrVR
STACS
TST
ADR
.EJECT

( I' : : ,,; CT S

PAGE 66
r, I) A T X

GIJ6T

~IIJA T X

ROAT

/,,1 (! 5

P\.-JPA

RwP4 T

7-) ;",?4

r)L M T A

75?'),;,4

• E,)!=..": ~ T

"AGE 6/
/

ICONSTA"JTS
/3

;t~

C"-IA-RAiH -.(..,

PPINT RClUTI1\iE
PEP

TEXTS.

PArKED

WORD.

/
/"TE~;T"

/'4 1i,6'"

(. v1 L: " .., '1

""4('6';
,/4Vh7
(' 4 V 7

1'3''524
777724
' ;,,} vl vI (II

:;14 r 7 ~

r' 04 071

Ii' 4~' 7 r'

?4~'1317

I, 4(/ 7 "(

TST
?30??4: 7777'?4: 0

04(1'7<:

4vl1401
?2tr401

04(>7'3

Y'?l0\~00

04V.71-,

. 0 4 ,"76

AOR
?4V131 7:

401401; 220401; 0

(\ 4~: 77

1 7 1707

9,41 ~W
\'141 (Ill

777704

V141~2

'''''~4102

(;14103
04104

;~4~102

(7'41l~5

eC"41?5

04106
(i14 j 07
0411 17
04111

('51106
4001414
?41127

111411 ?

~62401

~411~

:'Vl0~00

GOAT
171707; 777704; 0

/~1?:,00

ROAT

~0i~000

AWPAT
051106; 400414; 241127; 204010

2i·~4010

ITEST

"4114
04115
0411A
04117
04120

(}I04114
230524
434024

TSN

230524; 434024; 405540: 0

40'3540
t<~0~000

ISUPPRESS /

(1,4121

~~ \~ 4121

04122
\/;4123
v.'4125

?0?523
(;152220
40?323
774055

(1\4126

1/100000

74124

SUPS

202523:

~52220;

402323: 774055

IBLOCK #1 /
V'4130

'04127
171402

V' 41 .' 1

.1:~1303

V4'127

~LKS

17j 4112: 401303; 406143; 774055

PAGE

6;';
'4 1 ~p

jl4 1 ~ "(
',~ 41,S";

u';.. ~ 4 ~
'77 d ,~") 5
/

18LOCK #2 I

04 13"'
v: 41 ,~f

,/;.14135

0 4 137

4911303

04t40

04141

406243
774J55

0414?

,?jj0~100

RLKT

1714~2

.EJECT

IPROGRAM IS TN FIELD
I
414-\

r,1

41 4 '..

(

41 4 1:;

17)220
• 1 ~-, 2:? 7
1 14,,115

v414f,

~ .114 3

04147
0415(1
0415 j

°64\/)16

~~415?

7741104

041~3

~'~'7.J00

PROIS

i14/~23

14.1I C)11
I

lIS

WITH IN PROGRAM

041')4

;'041')4

~41')h.

4~2311

41 '5 f.
v'4157

?41127
161110
??2040
?20717
771501
(70 71 ,100

Vl416v1

0416:1
04:16?
V1416~

OVLAP
402311; ?41127; 161110; 222040

220717: 771501: 0
I

IERROR IN SELECTED FIELD
I

04164
04165
04166
04167
0417V"
04171
0417?
04173
04174
v417')

'~04164

SLTER
222205: 402217: 401611: 140523

?2)2V:5
4(~?217

401611
140523
240305

240305:

4004~5;

051106; 770414

4~~405

V'l51106
77"'414
(rV10000

IPUT ACS 12 ON A 0
I

04176
04177
04200
04201
04202
04203
04204
04205

'~04176

PUT12
242520; 030140: 614023: 174062

242520
030140
614023
174~62

014016; 776040; 0

014016
776040
(7:0~0"'0

IPROGRAM RELOCATION ERROR
I

V"4?(i'J(1
C4207
!?4?1°
04?1:1
c~ 4?

iI4?1~

00421'16

17?220

PROR
1722?0: t.."122Vl7; 224015; 1714fl15

rl?-;'·~17

??4,'15
1 71 4 (l c:;
? 4 .~ 1 ~~ 3

24~1~3:

161711: 220540; 221722

'x' A [,1 "-,

,14? 1 t.j

V4?t L,

~)?' '5

!4~1"

)

~'4? 1 7

>,1 11 1
~ <

4""

7 '? '2

, ;;\ ',' • ,1 ~~

li
/

/ N (I

"'lOR E E q f~ iRS

/
V'4?2(7i

r~4,)20

1114721

[/14222
04223
0422 4
04225

401716
?21715
Vt)4005
172222
772322

171422(-

~: 0vlliH?HIJ

f\:OMO

401716; 221715: 054005; 172222

ITEST LIMITS
I

04227
04230
04231
04232
04233
04234

004227
230524
144024
111511
77?324
0'1012100

TSLM
2305?4; 144024: 111511; 772324

o
.EJECT

"'AGE

/
/St~

:..

','4':: 5.,
(~4:"S 1-

:)4 11 523

04?,~7

tl . ;:1

V'4240

~',3 0140

'/4?4~1

STtC:;:

:).125

777723
1,:;': ,) 0 0
/

/ G(1 TO FIE L')
I

4/4.'
v'4?44

Ii'

4 24 ~
;;1424A
(/\ 424 7
Vl4250
0425:1

/14243
4-ij 1 707
4 rH 724
!i151 H'l6
4(1191414
774055

GOFLI)
4~1 h

4'11724;

051106; 400414

(ilVlvh:H~0

IPRINT OUTS INHlqITED
I

(I142S?
P4?5?i

111914252
:11)220

i-14254
042SS
04256

?4;::>517
114023

:~4?57

111016

~426V'

741102

(114261
(71426;::>

('(110000

PTO!
112220; 402416; 242517; 114023

4(.~?416

111016; 2411(712; 77041215;

77~4(715

IAll
I

04263
04264
(4261)

7,,1\4263
141401
(710000121

All
/

.EJECT

121

x Ai :[,

PAGE 72

ISTOi~AGE

AI\'L)

CO\;

TANT REGISTERS

. . ~ ) r t ...

77777·7)

S!XT4

LAw

,) 4;: t' 7

,. ,,: (?100

. 4) 7,'

>:?r.~~~0

NOPRNT
FLAGS
INSFLO
MCWA
CNTRL
PATR

VI
VI

4;.; 7:

??J0,100

'.~4?7;

;00~Vl0

'/:477'
i~ 4 2 7.!

-, ·2"~'.~Vl0
\"'00000

4? 7'"

" 0~ v}00

(i'4?7~

.' ·.Ii (' I) 00

,'4?77

:?VI!i1'~Vl0

~43vh1

''''0(hH~0

(1·4301

1700000

0430?
0430~

I~ :1~ 1:1 00
"0.0.100

04304
4 3~1'"

1.~0"HJ00

~43~f.

?9!1i'V!00
000000

04307
043H"
04311
0431?
(7431:<04314
0431S
0431h
1'14317

04320
04321
04322
0 4 323
04324
0 432 5
04326
04327
04330
04331
04332
04333
04334
0433'?
04336
04337

i'vF'1000

~002J00

C'001100
,~V'l 01,1) 00
('I7I~ [~00

v~ (i'! '" 0 00

"00.100
(~~HH~00

000221
761'1000
76V1000
761'101'10
760000
'~0I1hH~0

?,iI\43 2 6

760000
760000
760000
760000
760000
760000
761'1000
760000
760000
\~00000

0434V'

00"'000

04341
04342
04343
04344
0434t:;

00~000

0(110000
~~ 9H1000
VlvH'I0Vi0

00(11000

MEMADR
SVAOR
CT4K
FIRSTl
LA ST l
BADl
OCADR
GOODl
PRNT
ADRCW
EXIT
OVER
NROTA
NXLOC
SOURCE
DESTN
MOVED
MOVES
BGNlO
BlOC1
BlOC2
BlOC3
BLOC4
MAXERR
ERWRD

LAST
lSTSUP
PATBNK
WRCNT
RPETE
LOOPT
BITN
TNUM

-1 :~

0
~

0
(i'!

0
0

0
0
0
0
0
0

0
0
0
0
(/I

0
0
0
0

RTN1
lAW
lAW
LAW
LAW

'.+1
"
lAW
lAW
lAW
LAW
lAW
lAW
lAW
lAW
lAW
V'I

0
0

0
Vi

0
0

.EJECT

ICOUNTS 64 PASSES RE hlEEN
IERROR PRINT SUPPRESSION
IINDICATES END OF ERROR PRINT-OUTS
ISAVES SUBROUTINE FLAGS
ICURRENT FIELD WITH PROGRAM
ISAVES ACS SETTINGS.
IPATTERN GENERATOR
ISAVES GOOD DATA
lAND UPR USED TO OFFSET PATTERNS
IAODRESS COUNTER
IFIELD COUNTER
14K COUNTER
IFIRST FIELD TO TEST
ILAST FIELD TO TEST
ISAVES BAD DATA
ISAVES FAILING OCTAL A DRESS
/GOOD DATA
IPOINTER FOR PRINT ROUTINES
IPARTIAL ADDRESS WORD
ITO DISMISS
IPOINTER TO START OF SUBROUTINES
IROTATE COUNTER
INEXT FIELD TO MOVE INTO
IFIELD TO MOVE FROM
IFIElD TO MOVE TO
IADDRESS COUNTER FOR MOVING
ISAVE AS MOVED
IEXIT ADR. TO A lO 4K FIELD
ISAVES 1ST ADR. FOR BlOCK 1
IlAST ADR. FOR BlOCKl
ISAVES 1 ST AOR. FOR BLOCK2
ILAST ADR. FOR BLOCK2
ICOUNTS 64 ERROR PRINT-OUT
ISAVES UP TO 8 FIELDS IN ERROR

ISAVES lAST FIELD IN ERROR
I:"'AST ADR. TO BE SUPPRESSED
ICURRENT FIELD WITH PATTERN
IUTILITY COUNTER
IUTIlITY COUNTER
IUTIlITY COUNTER
IUTIlITY STORAGE
ITEST NUMRER

x ~ -: ~

F"AGE 73

/
," 4 -.: 4 ~

. ," \.~ 01

/ 4') ,t 7
4 '~,;:; ,

'.'(',102
.,~., "" 7

'~j? 1.

',,~ \i~

·/4')5('

c' ,1<.\ /?(2l

435:'
04354
V'435"i

:~ :l/~ J

l" )"iVJ 117 7

4 ? ::; ,

100200

043 h J
~j 4 ,< 6 VI

"(7ItIl212
eel[;1215
("00.254
000260

l'~

04361
04362
04363

/~(!11V10

~100261

vH364

;i'0V1262

04365
04366
04367
04370
('·4371
04372
04373
04374
04375

'~0""263
('~00264

~0Vl270

000272
(1100300
V'l00331
()l00370
00.0377
0010400

0437~

0(~4000

~'4377

(/107777

04400
04401
04402
044Vl3

010000
020000
040000
0700.00
0. 74"'00
400000
177777
700000
004411
00Q1000

04404

04405
04406
04407
04410

K7
K1V1
K20
K40
1<77
1<100
K200
K212
K215
K254
K260
K261
K262
1<263
1<264
1<270
1<272
1<300
1<331
K370
1<377
K400
1<4K
1<7777
K10K
1<20K
1<401<
K701<
1<741<
1<4001<
K177
K7001<
KENO

2
7
1 vl

?v1
41(1

77
1 W~

200

212
?15
254
260
261
26?
263
264
270.
272
300
331
370
377
400
4000
7777
10000
20000
40000.
70000
74000
400000
177777
70000(1)
• +1

.END
NO ERROR LINES

PAGE

X A f,j '5

4 0 71

AD"

AD~Cw

1'43r~6

AD.:<XA

,114 V1Avl

AjrN
ALL
ALLl
ALOK
8AOl

,\~3"'5

BA~l

,l42A3
00543
0.3656
04302
00424
00612
00645
01170

8AK2
8AK2A
BAK4
BOAT
BDATX
BEGIN
8GNLO
8ITN
BLKA1
BLKA2
BLKA3
BLKA4
8lK81
8LKB2
BLK83
BLK84
RLKC1
BLKC2
BLKC3
BLKC4
BLK02
BlKD3
BLK04
BlKE2
BlKE4
BlKF4
BLKG4
BlKH4
BLKJ4
BlKl4
8LKN1
8LKN2
BLKS
BlKSX
BlKT
8lKTX
BlKl
RlK1A
8LK18
RLK2
BLK2A
BLK2B
BLOCt
BLOC2

04062
00200
04317
04344
02440
((J2511
02547
02610
02454
02521
02557
02614
02471
02523
02561
02620
02525
02567
02630
02534
02640
02642
02650
02656
02664
02672
02055
02170
04127
04025
04135
04027
02044
02064
02102
02163
02177
02215
04320
04321

~4323

_C3

04H~2

0.4322

IfGE 75
RWPA
RWPAT
CBANK

Y t-.
~/l ~ (~t' :~

1 i~.1 .;)
"?/f-,

C8~K

11 I .~):~

CFLG
CKAOR
CK8AK
CKB2
CKR3
CK86
CKCLN
CKrRR
CKFCO
CKNXT
CK188
CK3
CLMN

v~:)5(',3

~LOF

CLON
CLSF
CMAX
CMOVE
CNROT
CNTRL
CREVR
CRLF
CSUP
CT4K
DBLKl
OBLK2
OESTN
OINO
DLMT
DLMTA
ONMVE
DNSUP
DOALL
DOERR
DONE2
OONE3
DONE5
DONE6
DONE7
DONE8
DONE9
DON10
DON11
OON12
OON13
DON14
OON15
OON3
E"NERR
fNOT
;:-'

r"l

"'?7V14

iil?742
~V1501

v)i(l724
~10t'2

(I117?5
03135
~3303

03212
Vl1~~7

03724
'~3775

/00004
700044
7V'1(i1~~1

V11'J27
03111
03047
~4273

03625
03737
01551
04277
02114
02233
04314
103376
04002
04064
03205
02027
00321
01450
04023
04024
04030
04031
04032
04033
04034
04035
~4036

04037
04040
04041
04(1)42
914055

04044
03465
7(1177A2

'1 r;.;

PAGE

X A r'l to;

FQUAL

e131re'

FRROR
FRSEL

\,'1377
04(1)?

F~TRL

~1404:)

ERwRIJ
EST8l
EXAM2
EXAM3
EXAM4
EXIT
FCf)MV
FIRSTl
FLAGS
FWD2
FWD3
FWD4
GOAT
GOATX
GENAOR
GOFL
GOFLD
GOLEFT
GOOOl
GOTO
HALT
INDY
INSFLD

1t143?5
04014
00273
00277
(.10303
04307
03273
04300
04270
00567
00767
01142
04076
04061
03043
04046
04243
03066
04304
03426
01364
01507
04271

INSUP

04~17

.JMPl
KENO
KEYIN
KRB
KRTN2
KRTN3
KRTN4
K5F
KYBRO
Kl

03531
04410
02272
700312
04003
04004
04005
700301
01623
04346
04351
04400
04355
04406
04347
04352
04401
0435.6
04357
04360
04361
04362
04363
04364

Kl~

K10K
K100
K177
K2
K2L1l
K20K
K200
K212
K215
K254
K260
K261
K262
K263

0436~

04366
04367

..tE

XA r

,1,';>72

:/14:370

><3':>0-

;14,)71

'\ 3,,1

v.4 3: 2

1'\370

llj 4,) 7,.3

><377
K4K
K4\1l
K4lK
K4e0
K4el0K
K7
K70K
K7e0K
K74K
K77
K7777
LAL
LA ~ T
LAST1
LEGAL
LOCAT
LaCER
LOOPT
LOOP1
LOP2
LOP3
LOP4
LOP4A
LSTSUP
MAXERR
MCWA

04374
04376
f(l4353
044172
0.4375
04405

ME~ADR

"10S0M

MOVE
MOVED
MOVES
MSK
MVBK
MVERR
~8lK

NERN
NOMO
NOMOR
NONE
NOPRNT
NOSW
NROTA
NXBAK

0435~'

~Jl4 4 '" 3
04407
:Ij 4 40.4
~J43'54

04377
04006
04336
'14301
0?301
G1?314

03540
04343
00415
00456
007Vl~

01"'43
01225
0. 4 337
043?4
04272
04275
03334
033?5
04315
04316
03710
03264
03510
04021
04050
04220
01305
0,2754
04267
0.3444
04311
02765

~XlOC

~4312

~XPT2

Y,0f:>64

"JXPT3

~10?1

~XSUP

~x T8 1\jK

01675
1I11344

~XTHI

(~ -~ ::;' f

~XTMV

v' ,~ 21

PAGE 78

XAn15

'JX TP4

'il1 ?62

'JCAO~

\,14 ~~ (,1 ~

:Jo<.AS

~n64 3

:,v~q

v) 4 j 1 ~~
0 4 15 4
04026
04340
04274
7002Vl2
01571
03746
04051
03701
016Pl2
04305
01576
02151
041 4 3

OVLAP
OVh'LP
PATBNK
PATR
PCF
PCI-IAR
PHOR
PISIN
PNXT
POSN
PRNT
PROCTL
PROG
PROIS
PROR
PRSEL
PSA
PS8
PSF
PTa
PTOI
PTWLV
PUT12
QUERY
RBAK1
R8AK2
R8AK4
R8LK4
ReF
READ1
RELOC
REST2
REST4
REST4A
REVRl
REVR2
RFWD2
RFWD3
RFW04
RITE
RLOP1
ROTA
ROTB
ROTC
RPETE
RR8
RSA
RSB
RSF

~42016

03404
700204
700244
7002011
04007
04252
04045
04176
02312
00420
00605
01160
01133
700102
00360
04047
00537
01102
01107
02426
02421
00562
00757
01126
03102
00367
04010
04011
02037
04342
700112
700104
70Vl144
70vH01

00511
0Ci!520

rG!.:.

RST3
PST3A

xA'
/ 1 ~ ~ -' )..,
,1 til l ! j 1

RT~l

. ) ) :::

PT\2
RT\:3
PTf\;4
RT19L
SETAC
SETBAK
SETB1
SET82
SETSUP
SETU1
SETU2
SETX
SET1

l' ~ 10

SI~U1

SIMU2
SIMU3
SI~U4

..., r"

7.' 7

vqH't-;
(tI_-~

413

0~6fJ2

,l?722
~P77'

0~~Vl(il

~2~15
~2346

02377
(140'56
vI27=~3
~j? 4 ~'5
02'506
02544
02604

SI~GL

'~?3M~

SIXT4
SLMTS
SLMX
SLTER
SOURCE
SPEXT
SPING
STACS
ST8L
ST81
ST82
STER
STLOOP
STMV
STNXT
STOVER
SUB1
SUB2
SUPBLK
SUPON
SUPIN
SUPS
SUPSX
SUPT8L
SUP1
SVAOR
S\oI0
SIo/1
Sw?
TBLK
TeF
TLMX
TLS

,'42"6
(-'3555
04k1'54
04164
04313
015(:)7
01615
0423'5
0401'2
03017
03031
01464
02336
103150
03227
002'51
03173
03247
017(:)1
04(1120
01660
04121
04016
1014(1)13
01730

T ~;_ /VI

'H276

CH443
01435
01423
i,-14(1)22
7',1/'402
1405 :3
7,!,!4(i'h

01 !, ~ 4 5

PAGE
TOP
TSF
TSLM
TSI\
TSNX
TST
TSTN
TSTNG
TSTX
TST1
TST2
TST2A
TST3
TST4
TST4A
T1ROA
T1ROB
T1ROF
WBLK1
WHERE
WHWAY
WLOP1
WLOP2
WLOP3
WLOP4
WOTIS
WReNT
WRT1S
XPRT

i1~

Y A [, 1"
(.~ 1 5 f, 4
7004(.r11

v14? 2 7

?4114
iil4015
V14 (~A5
01655
~H625

04057
lI'0324
00453
iI106j7
00700
\~ 103'5

k11215
02465
02467
02452
00333
0136~
~3321

00337
00465
00715
131047
03547
04341
03070
03316

~GE

BEGIN
RTNl
STOVER
EXAM2
EXAM3
EXAM4
DOALL
TST1
WBLKl
WLOPl
READl
RLOPl
LOOP1
RBAKl
BAKl
TST2
LOP2
WLOP2
CK82
RST2
RTN2
RST2A
REST2
ALL1
RFwD2
FW02
RBAK2
BAK2
TST2A
BAK2A
NXPT2
TST3
LOP3
WLOP3
CK83
RST3
RTN3
RST3A
RFWD3
FWD3
CK18B
NXPT3
TST4
LOP4
WLOP4
CK86
REST4
RTN4
REST4A
RFW04
R8LK4
FWD4
RBAK4
AA~4
T c, T <) :j

'<., I 1 ~
~ \ Il:~"

W2? 1
~")..:;

,'(? 2 7 ~

v','? 7 7
I~ '3~' 3
t.1V3?1

,H"324
00333
liW337
Vlll" ... l'·
0'') f-. 7
,:1(.-'415
~1\'

4 20

~104?4

004">3
0~4')6

',"04A5
\~ V 5 ~~ 1

00511
~W51b

00520
00537
l~?543

,,1\i5f2
(11567
~'06(~S

,10612
k10637
00645
00664
007(11~

00705
00715
007?4
00734
00737
0~741

00757
00767
01007
01021
01035
01043
01047
01062
01102
lH105

01107
01126
i{~1133

1/1114?
V111frt
011 7 ~\
'1 :? 1 ')

PAGE

X AI) 1",

L OF41\

,'i ??')

'\J),TP4

'1 ,) A?

CH 1'.\'\

,-, ) 7 r.

t-JO,"Oh;

\ 1 :'i,r '7

Ct<~~

~),Tt3Nr\

;1 1 ,~4 4

wHERE..
HALT
ERF.'OR
SW2
Sri 1
SW0
DOERR
STER
INDY
CMAX
CSUP
TOP
SPEXT
PCHAR
PROCTL
POSN
SPING
KYBRD
TSTNO
TSTN
SUPIN
NXSUP
CKCLN
SUPl
SUPBLK
SETSUP
DNSUP
ROTC
8LKl
BLKN1
8LK1A
8LK18
08LK1
PROG
RLK2
BLKN2
BLK2A
BLK28
D8LK2
KEYIN
LEGAL
QUERY
LOCAT
STLOOP
SETUl
SINGL
SETU2
.R2

-11 3 h ~~
,-113 f, 4
01377

1:3');\

014'23
G~ 1 4,~ 5
01443

vi 1 4 t; ~1
,·H4f-,4

01'5Vl7
~)1 '527
kH551
01'5A4
~1567

1.11571
~~1576

01602
101615
Vl16?3
101625
(111655
01660
01675

(111725
01730
(1117A1
02015
(I!?027
021037
02044
~~2(.l155

02064
02102
02114
02151
02163
02170
02177
102215
v~2233

02272
Vl2301
02312
02314
02336
02346
02360
02377
102421
0?426

'GF"

h .~

, .i:..j

S I (>Ill 1

,;> ~ ;~)

RLKA1

1) 4.1,'

T1Q[)F

RLKfH
T1ROA
T1ROH
ALKCl

'.It;r?

I") Ll;. .....

1;' 4/,....,
',I? 4':" 7
;~? 4 7:

SI~U~

vl ?5(16

RLKA2
RLKB2
RLKC2
RLKO?
BLKE2
SIMU3
RL KA.~
RLKEU
8LKC3
AL 10( fl,~
SIMU4
RLKA4
8L,KA4
RLKC4
BLK04
ALKE4
RLKF4
ALKG4
BLKH4
ALKJ4
RLKL4
CKAOR
SETBAK
SET1

v12511
0?5?'
~1 '25?

0;;-'

~\?") ,z,~

,1;;'544

vl?547

i,12557
\125f-1

t.125A7
~126V14

' ? 61 ~~
02614
~12 6 2 0
!;1263C
O1264?
(,1? b 4?
0)65V
,~? 6") t:-

02664
12672

02704
02722
02733

CKBAK

02742

NONE
NXBAK
SETBl
SETB2
STAl
STB2
GENAOR
CNROT
GOLEFT
WRT1S
RITE
CMOVE
CKERR
STMV
EQUAL
SUP1

Vl2754

02765
'112775
1.-13006
03017
03031
V!3043
03047
03066
03070
03102

03111
03135
0315~

.1 ~z 16.2
J:<~73

nN~Vl

~1 :205

I\JXTMV

,A, 3 '.21 \~

CK~'XT

J!3212

STryXT
SU82
NXTHI

1,13?) -;
(~,'(,2 11
~.

...

I-.

7
.'

1'"

PAGE
MV~· K
FC[lMV
CKFCD
XPRT

WHWAY

MOVE
MOSOM
AJlN
o I t\!D
PRSEL
RT19L
GOTO
NOSW
ENOT
CFLG
MVERR
JMPl
LOCER
WOTlS
SLMTS
CREVR
OKAS
ALOK
SETAC
PNXT
MSK
CK3
CRLF
PHDR
CLMN
DLt-1T
KRTN2
KRTN3
KRTN4
LAL
PTa
ROTA
ROTS
STBL
SUPTBL
[STSL
TSNX
SUPSX
INSUP
SUPDN
NSLK
TBLK
OONE2
OONE3
BLKSX
OVRLP
8LKTX
OONE5

,< ,; f.. ':
,,1\

~? 7 ,,5

':5 ,". ,~

',~ ,< _~' f;

v13 3? 1
Vl33?:;
(I):'

33 4

'33"''5
03,37b
034(?4

0,3413
03426
W~444

03465

03503
~3510

03531
'13540

03547
0,351:;5
~3625

0,3643
03656
03662
03701
03710
03724
03737
03746
03775
~4V1t?J2

04003
04004
04005
~4006

04007
04010
04011
04012
04013
04014
04015
04016
04017
0,4020
04021
04022

04023
04024
04025
040?6

0,4027
04030914031
~;4(il32

' '-

'-\,

nO"",Eh
OON[Q

nON1!'

no t'q 1
nON1~

• '. \ ,<. 7

no,..., 1;'i

DON1 4
DONi')

ERTBl
ENERR
PTWLV
GOFL
RELOC
NERN
PIS p~
ERSEL

14 ' 4 )
,'~ ;:14'~

• 4 i14:'
\'~ 4,': 4

,~4 ,~4 b
v

l 4 0 47

i~ 4 0'1 0

1,4 0~1
?1 (~'5 2

TL~X

'4.'53

SLMX
DON3
SETx
TSTX
AORXA
GOAT X
BOATX

,'4054
,1405")
,i4 (il~'"
~14057
~~412' f. J

~4061
~14e62

AWPA

040f3

DL~TA

~~4064

TST
AOR
GOAT
BOAT
BWPAT
TSN

,~4 ~f;;

J4 ..P,~4(i17b

2
04105
04114

~41 I"~

SUPS

~4121

BLKS
BLKT
PROIS
OVLAP
SLTER
PUT12
PROR
NOMa
TSLM
STACS
GOf"L 0
PTOI
ALL
SIXT4
NOPRf\;T

04127

FL~GS

INSFLJ
MC\,-IA

~~4135

04143
04154
04164
04176
04206
04220
. .14227
;~4235

04243
04252
04263
04266
Q!l!2~7

70
'14271
.1 4 27.2
v~ 4')

c~nRl

/t:?75

PATR

1 4 2' ...

ME~AOR

,~4? 7;;

SVADr-I

.J 4 2 7 b

PAGE

x A,n p~

rT4K
VIPSTl
LAST}

;1 L;? 77

8 A r, 1

(~!t

OCAOR

1,14 ,~'.A "

(14,~

V.)

\ 4,~ ,11

:5 ') ,)

3:; 4

GO(]01

~14

PR~"T

043 '(1')
Vl430b

AORCW
EXIT
OVER
NROTA
NXLOC
SOURCE
DESTf'.J
MOVED
MOVES
BGNLO
ALOC1
RLOC2
RLOC3
BLOC4
MAXERR
ERWRO
LAST
LSTSUP
PATBNK
wRCNT
RPETE
LOOPT
AITN
TNUM
1<1
K2
K7
K1~

K2V1
K4V1
1<77
K1((10
1<200
1<212
K215
K254
K260
K261
K262
K263
1<264
1<270
K272
1<300
1<331
t<37~

04307
vl4310
'~4311

04312
,~4 313
04314
~4315

04316
04317
043?Vl

043?1
043??
04323
;"4324
04325
04336
04337
(~4340

04j41
,1\4342
04343
04344
Cl!4345
0434b

04347
04350
04351
04352
04353
04354
04355
04356
04357
f~4360

04361
04362
04363
04364
04365
04366
04367
04370
04371
04372
~~4373

04374
0437')

,;[ 11/

'<1-\:

K4K

.' ..: _~ 7 ')

K 711/

:4\7:

K1V1K
K2'''K
K4'~ K
K7V1K
K74K
K4VelK
K177

. \ ~ 4 -., .'~

K7~elK

KENO
CLSF
CLOF
CLON
RSF
RCF
RSA
RRH
RSR
PSF
peF
PSA
PS8
KSF
KRB
TSF
rCF
TLS
EPA

i..1 -\:

• '" 4 7')
/' 4 4 ~~ ~

:144,' 4

0 4 4.''5
,344.' f'
l!44 ;',7

(441)
7 ,~'.1> :' .~. :.
7//',~::\4

7 \~ " J 4 4

7M"l'A l.

700102
7~01(~4

7,,10112
7)10144
7002/1
7~W?r?
7\A(~2(114

7iW244
7003(?1
7V'Vl312

70e401

7.:1\-402
7 (1 ~l 406
7077A2

~-)