MAINDEC 15 D1FA D_Extended_Memory_Addr__Sep69 D Extended Memory Addr Sep69
MAINDEC-15-D1FA-D_Extended_Memory_Addr__Sep69 MAINDEC-15-D1FA-D_Extended_Memory_Addr__Sep69
User Manual: MAINDEC-15-D1FA-D_Extended_Memory_Addr__Sep69
Open the PDF directly: View PDF 
.
Page Count: 105
| Download | |
| Open PDF In Browser | View PDF |
'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
sO
1.
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.
2.
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.
3.
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.
4.
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)
o
00000
10000
20000
30000
40000
50000
60000
70000
1
2
3
4
5
6
7
to
to
to
to
to
to
to
to
07777
17777
27777
37777
47777
57777
67777
77777
Use the following procedure to specify TEST LIMITS.
a.
Type two numbers, separating the numbers with a comma.
b.
Press the carriage return key.
c.
The first number typed signifies the first 4K field to test, and
the second number the last 4K field to test.
d.
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.
e.
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.
f.
If a typing error is made, press the RUBOUT key. "TEST LlMITSIl
will be printed again. Previous input is ignored.
-2-
g.
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.
h.
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.
5. 1
Operating Procedure
a.
Load the program into memory field 0 as described in section 3.
b.
Spec ify the test I im its as described in section 4. 1.
c.
The message" S ETU P ACS" will be printed. Set the ACS to
000000, and press any key except RUBOUT.
d.
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.
b.
Write a sliding one pattern into one field.
c.
Read and test rest of memory.
d.
Read and test the field with the pattern in the forward
direction only.
e.
Read and test rest of memory.
f.
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.
b.
Read the field with the pattern in the forward direction.
c.
Read again ;n the reverse direction.
d.
Read rest of memory.
e.
Write the complement pattern in the forward direction, and
repeat steps b, c, and d, then do step f.
f.
Write the pattern in the reverse direction, and do steps b, c,
and d, then do step g.
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).
b.
Only one 4K field is selected for testing.
c.
An error was detected in all of the available 4K fields under
test.
d.
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-
6.
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
= the
current test which detected an error.
memory 10: ation which contains the data
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.
TEST
OCTAL
Example:
TEST
1
2
3
4
4
4
OCTAL ADR.
060100
060100
023000
047777
047776
017777
GOOD
060100
777677
000002 :
777777
777777
777777
BAD
060000
776677
000003
000000
000000
000000
FIELD WITH PAT.
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
a.
The operator has specified a single field for testing and that
field contains the program. Select another field, refer to
section 4. 1.
b.
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.
c.
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.
7.
7. 1
Restrictions
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.
b.
Place ACS 12 on a 1 and ACS 0 on a O. Press CONTINUE.
c.
A print-out will occur which instructs the operator to place
ACS 12 on a O. The program will loop until this is OJne.
d.
With ACes 12 on a 0 the message GO TO FIELD is printed
followed by the program waiting for a field number.
e.
Type the desired field number (0 through 7).
f.
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.
B.
TEST# -4
SUPPRESS BLOCK #1 - 10101, 10100
BLOCK #2 -
The program will perform exactly as described in example A.
C.
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-
F.
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/:.
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
I
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
/
~ ~,~;-
.'ie' .-'11' 1
,':il ,~1 V12
:7
0
'Z
';10,W3
3
v eJ'~
li10?1f.
'-'0217
0022 Cil
VI""??1
ri1022?
\/)0223
(710224
{t10?25
0022 6
00227
00?30
110231
1~3662
(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~
E
:< lI:
<:
/~l?.)/
, ,-1?
1
cc
.. \ " :\ L.
',;\ 201
it:
r
0?:3 7
INSFLD
~
L ~,
'4 ~t3
;
5? '5
r A('
;-;,: 170
LA -,
'44~41
n A (~
L A'~
, ;1;,~'
!' 0? ~
S ';
J"
'.::4271
3,~
~
l;6?4C
;
v'J?41
')\?4 ?
• 64325
444341
;, I'? 4:~
~) ,~
,100
nAC*
1St
"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
A(i1I~?40
JMt-'
.-3
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
r}
I
-,
tJ.
~
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
I
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 1
")~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
13
A 1 = KEYBOARD INPUT
100 ALL TESTS IF 0
OOALL
PAC:~
1::'
'y ,~
q
/
/ r_";:. ,-, J ~E
T~ST
SwITf-lES 3 TO 7
/
'vi?
I)
" <~ ~)
7•
,:~;:>
7
72
4 402
::;-,4?
Li>
;:::;~
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
A 1
=
TEST 2
18IT 5 A 1
=
Tr'ST 3
181T 6 A 1
=
TEST 4
4
TST3
K4K
MCWA
ril03V17
00313
00314
TEST 1
/8IT
1il031"\
LAW
=
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
i)WN VALUE.
ALL or :-1 ( tORY SPrCIrIED WILL
ITHE PAT TER,Ii.
I
CO~\JTAIN
I
•
, . , , ' ) '-4
\:
(~:~ )
.? ~
'"
~f
;'F~?7
.
,
:.::,
~
'/'70
v
~.1276
~r""',~;
~9IV"~60
• \71
:<. ~~ "'
:5 4
WBLKl
44345
7:3 3
741<100
,
Jtv,~.
LA r·
f')AC'
JMC)
JMS
SKP
JMP
LAW
~ .~?
.. 5 .
~
TSTl
71)'.'261
77 7
776
t. 4~42
OAr
(~Vl ~:3 f-
777775
44:341
LAl"i
OAC
V1VJ~37
;;.~4?75
v vl ~
0lJ3V'
'f
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::.
I
IRE.A r-j
Ai'.J['i
(" H;'-.
C po(
r-O~
FRROR. READ FR()M lO FIFlO
ITO ,-=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
~~
r
,
X I,
i 1'"'-
":.
:
/
~
1r
"
... --:
, ,::
,
'
"
',1.~
,>-, )
/' 7 3
l.onpl
f ,')
',OOP T
j
;:"E /J. () 1 +?
jilL->
J \'';
~X"'M?
I[lONE IF 0
IRE'An FORWARD ONCE MORE
ICHECK FOR TEST 2.
I
IREAD
TE~T
1 PW,""
~
I FIELD TO LO FIELD
I
?7?2
':) 742
2!,
'04 ?1
/ vj4
:t1l4??
'04'/ ~<
,'(7142 t1
I
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
114? 7
0043 4
.1.? 75
~~7'437
(11.;)43")
£144342
;-104
~f,
":"[,,430
00437
(1044;'
777777
<44275
41
44275
e':~
4
"044;::
{t.4)77
00443
to:::q24
(,'0444
7
~'04 4 "i
;:'44320
0044f
('0447
-; 41
V.045C'
<.,:11,1100
.~
00
f, ',) 2 4 71
10?7A5
0045~
t-Vl~421
00452
t44275
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
V
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
11
I
1"Jnw READ ::::6~'E FIELD FRUM
/ q F S T 0 F MF i'1 r, R( •
~l
T,:;
L',
THf\J
~tCYECK
I
, G1Av,C::
It
0A ,1t
i-106?17
VI Vl f 1 ;'
:101--11
(,10(- 1-i>7. f Li)
r.~ 21 614
'''lilA 1 c::;
',f.
) 4 VI
n7
/44?75
77 ';';\ V10
441'77
7]7774
.'44342
/7,4275
~RAK?
/,.4
74
(i'
A0.1
" 4 4 274
8AK2
LAr
PATRNK
X U~'
'r<7777
fiAC
""EMAOR
LAw
-1C~000
nAC
CT4K
LAiN
nAC
lAC
RPETE
MEMAOR
V10f~;)
76V',,:~00
~0634
>';44320
SAD
\~063C::
,)(l'5A2
'/(1)63
f-
JMP ..
JMP
.EJECT
:;;~!./75
01062(-
;"44274
i- ,'1? 6? 4
1(111377
6Q1(11626
444342
A00617
777777
;,10627
~44275
Vl0A3(~
/44275
444277
hW612
~'~(16?:
0062?
006?:'
00(->?4
0062>=-
',H'1h31
1063?
f
\1?5?5
~ITH
PATTERN
-4
C I"! 6
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
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
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,'
I
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
=
I
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
1
y 4',
~
1'
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
i'
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,~
v 07;~
.~\~
, ',' 110
,;
h
7:S h
(;.07::n
1/074(veJ741
,~Vl7 4;
':' 4 <1
301
~ 0 eJ
?~;'
7 34
'"), 14
t·
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
V
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
,',., I
'1l7 b'/
" /17 b:l
, ~76:...
~
PATTER~
r;GM lO TO HI.
PFhD3
PATB"-JK
tvlEMAQR
-
...., 4
00777
:,' 1 ".~ c'
01 i?!:~:
;10,1 ?
,A 1? tl-,
274
,',44)75
1,'
.!I10
lSi
lSI
444?77
JMl::
LA ...
"AC> 7 f. 7
/lV'>''::
,,' 17 VJ'"
f-?:~
r 1 V' ~~ ~
AI/)?~Al
~'1 ~ ~
;.~4.344
ICURRENT STARTING POSITION
10K
ERROR
PATR
IPRINT ERROR
S~A
S Tl
RAl
nAC'
'4 i!
,,10121
'-'44320
14K COUNTER
IREAD
ICOMPARE
SA Il
~c;11377
0~774
Cll
lAC*
IFIELD wITH 8IT PATTERN
7 6~'
MEMADR
CT4K
FWD3
JMP*
JMP
RLOCl
RFWD3
RLKC3
LAC
RITN
SAO
JMP
RCL
DAr
LAC
OAr
LAw
nAC
JMP
K4e0K
SAP
7'57
INEXT BIT POSITION
PATR
IADDRESS + 1
14K WHEN SKIP
INO CHECK IF
IEXIT
= LAW
I
7
01\1'1"
":>44405
vir?11
1·(~1
ViH~l!1
)121
744 {11 0
: 44344
0'lV14
?~4340
IrH'l'"'
·44275
~~101?
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
I
ISETUP NEXT rIELn WITH BIT PATTERN
I
V1C'2~
.~
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
4
NXPT3
1,1110 ~/
~44?75
OAr
111 (i' ~ 1
/1 r 3::'
744,W0
eLL
1,,"1 ? 76
V' 71 0
,:-,~ V\:S 0 3
JMS
"ftl
J~r
CBANK
LOP3+3
Jr-
t'1106f~i10 n 7
LOP4
,~0i21
'ilV14f
G~
TST4
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
I
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
17
ISETUP Tn READ
R~ST
fiF
MEMORY
/
11
~;
"
, 11,1,'
-~ 11 ,J l:
/~
11 (11 ~
11110,t'
011'17
0111 '"
i'v'
.:. <4 4 ~ :..10
!"'
21 1 (' 2
et
'44275
-, 7 VI
' 44
ii(>
0
?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?
:~44400
If 112c:,
{
~,
1114
01.111)
V1117
0112f
01127
0113:/
01131
01132
j
1. V'2
?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
PTN4
):~ 4 :5l~
Vll11 "
0111~
cE~T4
' 1.;-,', 1
~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
REST4A
~
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.
S40
;:;8AK4
LAC'
~~11f)[:
?/J4
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:;,
?Vl4~74
~117t-
74 iii ~tl01
4 274
;;24?75
')44274
Vi1177
1? Vl (11
101377
\~
RAK4
,,' 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,
I
/
,Ill? 17
777777
,,' 41\ 2 73
i,c4?74
v' 1 22["
:0 'tl 4
rq??l
?t.4577
/44275
7 7i~',M30
/44277
7777f>0
44342
~ \~ 4? 7 4
~\
121 t:.,
(/'121 t
vi 1??~'
012~'
~\
';A
1 ?2t1
1? 2'"
f?1?2f,
01227
(1123(.0,1231
0123?
lq
?3,~
(}1234
~'1? 3"
LAC
~"
Y1P
777777
LA1-4
TAn
DAC
I Sfl
JMP
LAw
SA r)
SKP
JMP
LAC
CMA
OAC
JMS
JMS
LAC
DAr
LAC
S2A
JMP
OAC
JMP
76v~00
"'>44320
74h:'l00
':,72642
,? 'l4 273
740i(1~1
44 273
1;,11 2 6
I,'
1011~2
01?54
('44275
2914273
74~200
A01262
044274
f.01220
-1
CNTRL
PATR
PATBNK
K7777
MEMAOR
-10000
CT4K
-20
RPFTE
PATR
ICURRENT FIELD wITH PATTERN
IWRITE EACH LOCATION 16 TIMES
t.
'111232
f-
h~4340
01256
01257
01260
01261
LAw
fJAC
[lAC
nAC*
ISf
V'12'5~
~1?'55
LOP4A
('
"'44?75
444;77
f'124f.
01247
(} 125(/
012'51
0125?
[lAC
LAw
r)A r
,'44274
,64275
444,)42
01237
(tH?4~
X()~
747/1(/'1
-~44275
'~124v)
LA\,;
f)AC
OAr:
LAC'
340
v~123~
[7i1241
!I11?4?
TST4A
I
.EJECT
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
P
-1
=
LAW
ICHECK FOR COMPLEMENT
NXTP4
PATR
TST4A+3
PAGE
).
'< AI
"1 ... ,
I
ISFTUP TO
\'..~
[ TE
T
\j
NfXT FIELD
I
'1 h.,
" 1? ')
,'L,
~
\' 1 ?6 1J
1?0::"
"1 ?f,C'
(~1?
67
7 v'
01? 71
,.\ 1?7?
v"l?
.34\1
~
~XTP4
V1
LA i'
•
Y',~
SA
J ~~ p
.
,,~,'
j iV1 5
,;.; 4 L!
v7
70
;:' t.. ~ 4 0
:~ Co 4 4 00
1/44540
LAC
TAl)
o td~
'44~75
74 4'~ ~ 0
V\1?7:~
~V'1276
01?74
;'I1?7,)
~'1j46
t' J c~3
(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
I
IROUTINE TO SEE IF TrSTEO FIELD HAS PROGRAM
I
'" 1? 7 f'
" ~ ~1.10 V'I
CBANK
P
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
I
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:)
1
,
l'i?<
/ (,
1;~
, '0'"
. ...,
,)00
C8f\;K
,,.1 \It (21
4i?77
~ ~
?"
" '1 c,?,A
~
" ,:.4
;' 1;<, c. 7
~: 13 ~ ,';
f':;>4
v'
L ~ /'
-1021910
r
CT4K
MEtAADR
LASTl
EXIT
WHERE
MEMADR
!~ i~
T i4'
2 7>;
S j.~
~~1i45V!1
j'''IP*
,~1331
1.,~ 1
307
3 f) 0
Y1S
:1~3;J
~~4.i:1275
::: A:1
'141000
SKF
L
{'21,323
e->'l,~'F
~44301
jMP*
SAn
jMP*
TAC!
!JAr:
SAD
jMP
jMP*
~
1~ 3~
~'1
'f
~
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
IHALT ROUTINE. PRESS CONTINUE TO RESUME
ITESTING, OR IF ACS CHANGES, TO EXFCUTF
INEW PARAMETERS
I
HALT
VI
HLT
LAS
RAL
SPA
jMP*
HALT
740,020
(14406
RA,.
r.:;
A '\jl'
'144272
S A I,
K177
MCWA
ICONTAINS EPC
ICLEAR ALL BUT BITS 3,4,5
IExIT
Pll,GE
2/
1:: 7 t:
~
/' 1,"0 h
,
f>
;J
1 ) A4
"?C::;1
~ALT
JMf-'
.l..lECT
ST(lVER
f-J .A [,
t_ ',;
X A, i, 1 '-,
I
IERFdlR Pf< I' T-OUT ROUTI/I'E. PLACE ACS0 UP rap
IHALT ArT E~{ (jR r l\JT -OUT. PRESS CONTINUE
I
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
I
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
Xh
r~
1. I')
/
ISFTIJP TO PRINT
VRRQR
I
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
14 5')
V'1145t~114 ') 7
0146(1
'~14 61
0146(>
(711463
01464
0146S
C"
~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
:' 1 ,- ) t,
\ 1 h?"7
1 -,
\' 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
444013
1552
?04012
V144\1}13
"21'551
441551
601564
~1570
01571
01572
01573
01574
01t:;75
TAr
t '5 71
"'44;;"14
A0
i?l00.2J00
70(71406
700401
A(~l 573
~21571
Y'·1S
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:;
'!"-
I
/PPI\JT
b
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;
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.
'~17
E P,~
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
1 f, 2 7
107,737
I]
1
/1631
"1632
1 :~? 2 72
144344
'"'44374
(, ~~ 16 2 3
""44360
(-,01 !16i2J
777517
.163 4
;'\163')
til1636
01637
(111640
-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
J!'v1P
SA ,',
J!'v1f-l
LA \\
'~1641
~164f
DAC
SAD
T5NX
PRNT
CRLF
PNXT
KEYIN
RITN
K377
KYRRO
K215
SUPIN
~44344
v1642
01644
t";1645
LAC:
['lAC
Jt-1S
JM5
JMC;
0~7(1J1
("'163V
~1633
T5TNO
LAC
1"101655
103547
601623
?fi'l4344
t'144345
601660
TSTN
CMA
TA[I
TAn
SMA
JMP
JMS
JMP
LAC
DAC
JMP
I
.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
)4
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
~TRL
liST LOCATION TN SUPRESS TABLE
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
166"
61
~'10
Jill 4;,
12
44,1'1
~,
(
"-\;
...
(!
AC
LA",
NROTA
ISH 1FT CO U~I T E R
76~M"0
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
I
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
173:1
1.l1?.3V11
:;.-? 4.)10
/44311
?04344
V
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
IWAIT FOR
ICOMPLfTE
ISTORE IN
ILSTSUP =
ADDRFSS
NEXT CHAR.
ADORESS
SUPPRESSION TARLE
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
I
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
A
C. R.
PAGE
5
'l(
A I 1-
I
/ACCEPT Twn 1t\jPllTS FOR
I
'i'1
"7!) ~
1'1762
(1\1763
0176 4
(Ii 176r.y
01 7 6"
01767
~ 177 v.
A
SUPPRESSEn RLOCK
I
1 '~2 -5 01
J"'-
??4vH0
LAC*
nAC
r\EYIN
LEGAL
ROTA
NROTA
LM:
~ITN
A <"oj il
K7
RITN
GENAOR
SUP8LK
~/??72
~1771
,;' 44,311
?ri14344
'504350
('44344
~ III 3 (IJ 4 3
",,11761
k') 17
),1 43
SUP8LK
J
r~"
;.'
nAC
JMS
Jf1P
IWAIT FOR INPUT
ICHECK VALIDITY
ICOUNT LEFT SHIFTS
IMASK ACS t5-17
IASSEMBLE ADDRESS
IWAIT FOR NEXT
I
7";
(,1177 :.
01774
Ii: 177'5
06
",14,:-S37
?:?\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
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 [
I
:12
' 13
~)04IH 1
i'2l,~?7
') 'I I.
',2~<3 '
" 44
" 2V131
;'~2032
ilI2~3:5
"544/.10
A. I, :;;,~ 44
V'l2034
~'4
020V)
vI?V\36
1
rNSUP
LAC
flAC
LAC
<.)TRL
:::'UPTPL
~OT8
/QOT8 ANn ROTA MUST RE EQUAL
SAri
h'QT A
>.047
~1 ~~; 5 "
(12!il51
~2r715
?
(i\205~';
tIl2t1l5 4
DAC
'4 4
LAC
OAC
LAC*
'4?3~0
?
2 4,":1 0
'44311
. ,:n;737
OAC
JMS
ADRCW
PLOCl
gLOC2
STL.OOP-1
LOCAT+4
ROTA
NROTA
CRLF
ISHIFT COUNTER
I
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
[l,1?3
LAC
OAC
LAC
liAr
JMs
JMS
lAC
AN[l
DAC
JMS
JMP
')(114
44 307
?04021
1144310
:102272
1V1?301
)914344
(J
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 = DBLK1
IC2122
'-)44320
602163
544321
SAr:
02123
','2124
~2125
A~?312
'~2126
?714320
"'04403
Vl44344
::>014321
504403
043737
1 Cil2151
912127
02130
~2131
02132
V12133
~~21
34
'~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">
A.~
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
I
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
v~
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
I
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
I
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
7
~
\: .\ 1: 1 "
I
[l8lK2
:? ),~ -:.
.' -" ,,'11
'?? 5 ':
-'44·~10
SA II
ROT8
ROTA
1)240
Jr-lf~
• +3
IMUST Rf EOUAL
IO.K.
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?:) ,~
~22~C1
(~2?
37
v12?4~'
'~2241
0224;:>
02243
Vl2244
Vl224S
lt~224h
)\2247
0225~'
0225:1
~
44,'
10
"'P312
7
e' .100
t:;·1 4 322
h 11/ 3 3 6
t)
~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 \.,
/
/CHA~AcTFf.i
I'
;JUT RnUTINE
/
'2~r;
.'~ e;l!,~
00
KEYlt\J
v'
0~?77-
7'!W,312
i<"<~
~2?74
7V:lW~01
K
?:2?7~
t,Ol?274
7C10312
C144344
K~;"<
OAC
f122?72
j l1P ~
'I'227f.
r}?277
0?30C'
S~
jMP
IINITIALliE
IWAIT
-1
8ITN
KEYIN
ITEMp. SAVE
IEXIT
/
ISEE IF
CHA~f,CTE~
IS LEGAL
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*
I
.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.'"
7
~
r;
C U"
/PRI"JT AREA
Tt,. I r--! I /\, G PROGRAM
/
"~ "·1.:!
. ',; '~ 1 c
,12:< 1~'
;12 <: 1 7
. 1 .
'v10
L lJ r: A T
" 4
:: 14.3'5'5
~.'
. 4;' 2
~~
i
.
'--
KH'10
tl 'J
S t 1\
01t~
J '1;; *
J1S
;~?:~? c
f';J?,H4
:'~2~21
A,1:n37
)2322
;'? 3?:<
;''51
,'4430'5
:D324
1 ~Ln~l
jM':;
,)AeJ
/44;1 j 0
742,110
7 4 2010
74;:> [110
:\44362
JMS
~' ~'
.3 2 Ie,
.'(l32f:
;'\2327
0'233;\
,,"233 1
~233?
l12333
02334
.~ 2 33'"
LAC
) ,j14
[lAC
1. (ill
RCL;
T t; rJ
jl-1S
1~1571
~1
1~3737
j
1',22314
J"1P*
S
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
I
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
I
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
A
TEST WANTED
I
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
"~2361
'~2372
"237.'.
SINGL
LAC
A 'oJ 0
-
12'S COMPLEMENT UPPER LIMIT
..j"' . . .
S I MU:~
5 ~ ,-
K?64
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
'5
LAC
TNUM
7 ('
74'-H4{i
~L1
'j
~:? ~
:Jv1.134
.EJEr:T
ITE"ST 4 PATTFRN
ISHOULO
~EVER
GET HERE
~GE
Y l\f' 1. ':
:~ Q
I
77
(,>':?
~
(I::?
4'~
;'-)14 S4')
(>
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
~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?
4 320
;::'~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
I
ISFTUP FOR
T~
ST 1
I
'?4~~~'
.'24,'it,
ill?437
1,)\~170
Sr MU1
775
~ ('10333
J'''\S
Ji1S
1 .1)
J''1~
WRT1S
SETBl
WALKl
IPUT l'S INTO ALL OF CORE
ISEru P 1ST BLOCK
IWRITE PATTERN IN BLOCK1
I
IRETURN HERE AFTER WRITING BLOCK 1
I
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)
I
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
I
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
I
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
K2
,I?'
,?~
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
ij ')
X A f'
1. ~
I
ISETLJP FOR TrST
')
/
(!,?~!.-1C1
r;
2 >=; >'~ 7
11.2t:) 11,
1", \70
SI~U?
1,vLJ775
A (., (~4 61
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
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
Ji-1S
JMS
JM~
I
/121:)11
7 6 [~;1 ~0
C~2t:)1?
~44322
02~13
2 '5 21
1Vl?704
1 i,i) ~ vi 06
~)'''4 v130
:144307
A?lPl541
02~14
Vl251":l
1'1?5lt>
Vl2~17
Vl2~2V:
HLKA2
h r~
LAw
SAn
JMP
Ji'lS
JI'1S
I
11'21:)21
vi252?
1l~?775
RLKB2
f-1i'15 6 7
ISETUP 2ND BLOCK
/DONF5 = LOCATION RLKB2
/READ REST OF MEMORY
I
:1
8LKC2
i/12524
0 3,~ 17
f'lvH'lb12
02')2~
7f)(~j00
8LKD2
02')26
02527
?l253Q1
544322
A(il?534
103006
204''''31
P443Q17
ti12~23
/
~~2551
Vl253?
02533
A(i10541
02~34
10 3 0 17
02~3~
7~\?I004
02536
741100
101364
02~37
Vl254V1
02541
02542
02543
>=;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
~
I
, 2C:; 4 2
;~ '? I.:' 4"
1?,)4A
1·H,17(.iJ
SIMU:~
liJ.?!75
"vI!'
71 0
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
47
')." 4 ,132
2 c:; 5:;
-~443~17
V.;:>h
i~
'~;\?~;~1
7 6(~l1"'0
:1?»5?
~12t)t)3
"44322
f-!ij?S57
qLKA3
f)AC
LOCATION RLKB3
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
A
=
("1(7'541
S .4;/
I
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
~ ; j,
4 II
1S
I
Isr FJP
F
T- ST
,~
I
I
'.'i? J-, .-, '.
1
'0:-; 17 (3
c;
I MU 4
~ vl?
J,'l<
V'?,.., ,/1 (,
77'5
144?73
f 1/17
hDl1A46
r ! ')
J 1 L!
12.6 ~J: h
~ ~
WRT1S
SET81
CNTRL
LOP4+3
IwPI T [
I:;
I ,'dO ALL
OF CORE
1 Ln TO H r
IWRIT[ 8 l
l1CK
IDONF:-9 =
Ll'CATIO~
/
02t)1?
1vi?775
JM:-::
~J2613
f--01133
.Jr-1p
2 r 1 ~':
11
?04~34
t'
SLKA4
L A{~
nONE9
EXIT
SETB1
RBLK4
~A
(;\2b
4 4 3 Iii 7
f)
A"
I
BLK84
IRFAn RLOCK 1 LO TO HI
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
(112
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
:.\
<..,
),
.:.
'\
"
,~
7
4
') ~ ,) 7
:~ 1
11)
~"
~ til ~
'2 f, 3 '"
/WRITE HI TO LO
)r'~
44;J73
775
,'?A 34
.... 26~t:,
i:,
r' .<
~
rIA
r:
J'1 ')
JI'1~
1146
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
/
,12;:'
fJAr
.~-:
'44)74
':2 '"' 4 ~;
~? n 41
1 C~.~)17
4?
?,~4.-:137
?2t--4:;
°44307
760000
"J443?2
OAC
A~?6512J
~
f, i~
RLKE4
1224
JMS
Jt1 P
/
i12A
.')644
'2A4"i
.,12f 4 A
~', 2 f, 4 7
RLKF4
LAC
JMP
RLOC3
8LKG4
JMP
DON11-3
ISEE IF 2 BLoCKS SELECTED
INO
IREAD BLOCK 2
LAC
DON13
EXIT
SETBl
CNTRL
/
~?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
IOON12
LA''';
SAn
(,04vl33
=
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
I
,12656
;:;.~~,141
,'2f
''''44
Q',26b2
Set7
?lH273
7'44274
10j017
~2663
601170
~':2664
?
0::?665
iJ2666
02667
tJ44307
~
7
':<2Abi?
'('l2t- b 1
RLKH4
LAC
DAC
LAC
OAC
JMS
JMP
I
v~
4 (.14 2
8LKJ4
760J00
~2670
544322
6i,P672
,,12671
f04ft133
LAC
DAC
LAW
SAn
JMP
JMP
=
=LOCATION BLKL4
I
"'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
,1
,1
,':) 7 ,I'>
~
) 7:\ h
~')
7,1)
i/1271l1
02711
0271?
' ~111 1
'n (,1
):' (~
~??
r:KAO~
(,i'I
,1
(111
L Af'
r: '1 A
HU1C~
-7 j"
,~4";
346
T AI)
TAn
K1
8LOC4
vo\?71~
23
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
~
4 4 ,)
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
I
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
I
02733
02734
02735
(1\2736
02737
Vl2740
02741
(,>'1210000
2(114300
SETl
~;'44275
11144340
770000
044277
622733
0
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
I
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
,~
1
Y 4r)' .'
I
ICHECK FOR LAST
~IF.LfJ
I
,'.? 76"
"~'r.,~Vr0
'127bA
7"):'M"4
W2767
0277('·
~1:? 7 71
',,;(h At<
: 4 1 1 ~~ e
1(J!1364
?14?76
300
[lt 277?
V127r,
~ 4,~
[l1?774
6~?756
0
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';
>~
I
ISrTUP HLOrK 1 A':[)RESSES FOR HI
fO LO
I
'3'} 1 7
~~.
':;' v~
:)V?.'
;~4,5?1
21
vi~0 ;;>;;
\1.3 (112:;
44275
'),~
'/.3024
~44346
03021:)
.~
03026
03027
74(/)01
"44277
3Vl3(~
t
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-
vj
;, (1 '"
),145 4 4
<144311
V130'5!'
hi71,~,il66
,) 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,)
V:
X:T*
nA (:
'4 Ll)11
~3(J!47
r~
(:E ~ A lR
(')4.')1\~
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
,.
XCT*
nAC
I Sr
JMP*
44<:1143
~
<:
J4 3
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
"i
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
744~10
1)vn,~4
;""
c~.~
7
(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
GOLEFT
RCL
JMP
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
, ( 6.. 0 1 5
\:3:l 11
11:?
:I,~
V131 L)
03114
0311'-)
03116
lA3117
l4 ,: 4
3
" '-1
c:: It
~~
-
T A~
~.
L A('
[, A('
lAC
SAD
44~25
') :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
/I
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
'11
c:
/
/
/
;~
<; 1 ,~ "
e ,):1
~ r
(113137
71 31 4 C'
l~
3141
1!1314?
i", I<~ VI
"" -, ,S? '5
<;
01314 '
1,44325
:::",14325
,1)314">
C:;44,~44
4 f-.
."3147
741
(~31 ') ('
,,1,3151
5
':;44271
(,03162
f- ,)
1A3144
~'131
r~O \oj
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
+
1
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
I
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
I
ONMVE
/
• E ,JEer
IRESTORE POINTER
1ST ART OVER
PAGE
X Af
.,)
:...::,
IROUTINE Tn
');; 1
' 1" ;:, ~~
',)? 11
• j ,)
.~
3? l '
3? 1 ~
~:) 214
(' 3? 1 '"
~
~aTt-1V
1 ,S
v' vl
25
" ""227
') \14 ~,~ 4 3
44325
7.:., '.' ,1
'ETE~MIN~-
..J
[1
r:KNXT
I
11 <._~
A, I,'
(il3? 23
-:;;,~4325
3224
0322'"
0322fl
"44J44
'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
h
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
"HPU-
":';OlIKrE
LA"
S A,"*
,;:, h 4,)
JMP
LAC
OAC
LAr*
S Ar,
Jf-1 P
1St
LAC
SA:!
?3?11-
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)
3? f" ~
b1
(. .Ph:~
!
f.~
1 ,e,
. .', ,;
~ k~
1
~?
-, .~l..\:' :.-
-3? h,~
r
","XTHI
L I~ ('
LAST1
/LAST
TU TEST
A ,~:
IL.\ST
ICH~JK
= NEXT FIELD
·,:.Q2
I' A ('
K7(11K
1\; XL UC
·/":)15
J·-11-
rKNXT+,,-
144?70
JI-1C;
OAr
LAC
OAC
DAC
DtM
I' ~:5 25
,J"'1P
wHFRr
SOURCE
fl.JXLOC
INSFLO
OESTN
FLAGS
MOVE
!
/
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 rH
ot
S T I ~~ AT I (I f\
TYPEn IN BY THE OPFFd TO~
( ~J _
7
OcTAL),
/
'13;;> l'~
i/'3274
~~3?71)
~
44,.'1
'5
rCDMV
L i\ 1-
4 "1,j01
r
,14270
h ~J"
v~3?7A
') 4 4
4 05
x· U!...;
~3?77
44270
') v141,~ '43
rl A C
(;;3~"W
03301
1113 ~~ <~?
K4vH?JK
"I to.
"4 4 325
LAr
nAC
1iij~426
~P1S
FLAGS
K400K
FLAGS
ERTBL
ERWRD
GOTO
ISET BIT 0 FOR FCOMV FLAG
IRESTORE TABLE POINTER
IPRIf\lT GO TO FIELD
I
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
I
.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 "
, :J V[
)
,
:: ~' ,
.<:~
'-,
') -.
\4
7
7
,313
,'3:'-
.~
LAC
~, '~'"
r)
14
..;,;H5
,
~4516
~~~~~,~,.
,
:~
'4.1
~
tv'OSOM
AC
LA ('
nAC
LAC*
nAr
4 I)
IPUT IN NEW FIELD
IREAO BACK
ICOMPARE
. , <413
Jt1S
rJAC*
~OVED
LAC*
:~~t.'
, ")4315
')?4315
"'0')4316
MOVED
MOVES
(,1334 ?
74'
(11334,\
1
7~344
44431f
V' ,3
~
~
4 \1
4
>=;
,HH'J
;13') J 0
44: 'i 15
\?3.3 4 A
;)'3,'47
l;': 4 : 77
03~5v
;., '7.,n6
(~3351
? ''';
'j
.~
j5:-
3:; ~
~
-, " ,"0
~.:
7
545
: :102
41
\0~
54
A,n334
~5.'5r;
~)4316
'335f357
;;'440A4
J:.'n33r:;
336r
",~14377
03=~61
')44-$14
VI:5
~~
(~3
I~
0336?
:!~3413
~3~63
64315
?2 4 315
"'04377
?44313
~3364
~'3 3 6 h
03366
03367
033791
03371
(A
~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
14K rOUNTER
ICURRENT FIELD
5 t-
'3
R A"'1
CT4K
SOURCE
MOVES
nESTN
MOVED
MOVES
TNUM
RT19L
'.5:'>3 "7
~::
P RUG
-100"'0
' : 4,~ 16
\ <:
THE
LorE·~
',' ,.2)
• Lj .,'
AT;':
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
7
I..
;~
", \,~ ,.("77
A
,
,
\
~
,'I
,
3 .,,. , '-
,,;,~ ~
/..1'
GI\'L ()
-<7777
X ,j-,
I)
lJ A. f~
PGr\iLO
"24,~17
J'''ir-
*
~
A S T FAN S r E R
=
~
.~ 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
v'
7/+r~~10
LAr
RAL
\~3422
74? ~110
RTL
~342~
444:544
rszz
RITN
03424
/<34 2~
603422
JMP
JMP*
RT19L
f.,?~413
1
.EJECT
.-2
IlINt< = 0
ISAVE
1-9 OECIMAL
/SHIFT COUNT
IINSTRueTHON
P A::
E
'<
A1
.L~
',-,;: Y'lUA"n)
'),,;
)
1-'
/-
,134? "7
:S43"
'3 4 ,31
,'343,°
034 3,~
~'34 3 4
>~ 34 3'"
,~
A \J! 1
S'~ A
h,~,~444
J'1P
I~ <: 7:-,7
')<,\414'5
JMS
LAr:'
,~(15
DAr:
J"1S
1
,'4 4
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
11'3447
")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
T l"~ r-
I'}
:,1 4 ,~ " 3
741 ,? \"0
,,~3437
,1,344 h
i
L4~
1 ~71 ~ 70,1
44 (\
i
104
~,,;)('
;;1343h
'~3
:iPl,
f:,;;j
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'-,
,i :~ ,; ;
:S,'
•
,"~
, :<; 4 ( ,
j 4 -,
~
1"~
'/1 (110
FNOT
;;nS4 ~
141?0v1
r?0(465
L
,I
/
34 7~
C',4 7?
c' 3473
I'
~"
::..
14~540
1
~ to'.~
t
~.
1 rJl:< 737
J.I:'"
?li14 '11"30
LAC
nAl'
/,347 c.
~'3 47'
r~44
r"" 4
7;..,
11/!~737
, 3477
. V., (..\(.."
'.14270
74:1100
,) ,~ ') [t11
nr~~273
" 350?
A~:-3227
..H15
1 1,10701
LCl::EP
I~J)
"
J1)
y-1S
L Ar
Fe,"
T
L()('ER
CRLF
~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
74
vi
3 '5 V'l"'i
~04270
t>
:'44270
r.l/l(i'l221
~'135 ~
.' 3"'i 1'17
CFLG
;~I/!Vll
LAC
CMA
K4~0K
A '" I~
FLAGS
FLAGS
RTNl
nA('
JM>-'
I
,EJECT
ICLEAR THE FORCED MOVE FLAG
/START OVER
PA(;E
6:
Y.Af'1'"'
I
,j (I ,~ (:1
',hl"
, .~~) 1 '1
,\
~
'" 1)
,'4
~.'1
:'>,14
j
. VF FH
Vl
:I?
4.5 V13
--
I
.'
I·
t.:.,C"
[' 3'" 1,\
,13') 1 (~
;A 3~ 1 '"
>;> 4,~ 16
L. A ('
'144304
n A!~
551f-
:,>J,~746
L.AC
7
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"
'5 21
03'522
~~ 35 2 3
('\3524
'~3
913'12')
0352f-
03527
~
4
C3S7;;
03":;7:<;
(i3C:; 74
::::44374
" .~ ,< 556
7 c:;
'.)?4344
03;:;7(03')77
r"3f,0C7
>=;;14350
Ai\JD
744'.~20
RCRi
vi
(A
3 f. ,1:
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 ~2272
1~?301
F Q'I'vi
KE Yg () tI;-
c:
I f\ P ~I T
/'"
0
~
~'
~1~ r:;
LI~ITS
LA':
3':, '57
6C'
.~ 3 '" 6;
1\
35
,':::
f
,~3")
'--.L"'-TS
T~
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~
100
",~:;
b4 3
CREVR
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
f)
x A ,~ 1 ~.
~)
/1 ~ '"' ~\;:.:
~,
. -' h.:" f-.
","S" 3 7
.
~..,
.3 r
'
'.<, f- 4 /
~.,
'l
,>'
..\
,-'
L t,:'
L 6 S T1
1 ...
,~
! i fj ~ ..
LA \'
j .;, :
~
1
K: A S
f) Ar
LAC
h,
44
,{0~
C; A fi
J~64h,
7
41
."\~
0
S;.(~
;~
'?364 "
v'3A47
,'·3 f, 5 ,.~
r,"3A'51
nS?
? 14 3l~
(I
"'
" Fol:;6
J~;
"'442 7 1
741 .'00
SAl)
r.,'
03t-'~
03A54
1 "\?31 4
,)'14 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: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
0
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
,~~
'~t105
" 4.'
(?
4 (1,) f
V40J7
/4-' 1;:
263
';7,4252
,. 7!?~13 7
(,
'~4
4 (I' 11
7C.P~37
:'4rl?
};.j4412
l:;7IV1000
C',
. 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
2.
Fi T '\
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
TX
P\.-JPA
ROAT
r)L M T A
75?'),;,4
~IIJA
(! 5
;",?4
/,,1
7-)
RwP4 T
• E,)!=..": ~ T
"AGE 6/
/
ICONSTA"JTS
/3
~.
;t~
C"-IA-RAiH -.(..,
PPINT RClUTI1\iE
PEP
TEXTS.
PArKED
WORD.
/
/"TE~;T"
'1
/'4 1i,6'"
(. v1 L: " ..,
""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
4(/ 7 "(
TST
?30??4: 7777'?4: 0
/
04(1'7<:
4vl1401
?2tr401
04(>7'3
Y'?l0\~00
04V.71-,
. 0 4 ,"76
I,
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
1
ROAT
~0i~000
1
AWPAT
051106; 400414; 241127; 204010
2i·~4010
/
ITEST
#I
-
/
"4114
04115
0411A
04117
04120
(}I04114
230524
434024
TSN
230524; 434024; 405540: 0
40'3540
t<~0~000
1
ISUPPRESS /
v.'4125
4121
?0?523
(;152220
40?323
774055
(1\4126
1/100000
(1,4121
04122
\/;4123
74124
~~ \~
SUPS
.
202523:
~52220;
402323: 774055
I
IBLOCK #1 /
V'4130
'04127
171402
V' 41
.1:~1303
V4'127
.' 1
~LKS
17j 4112: 401303; 406143; 774055
PAGE
6;';
~p
u';..
jl4 1 ~ "(
',~ 41,S";
'77 d
'4
1
~
4 ~
,~")
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
(
41 4 1:;
17)220
• 1 ~-, 2:? 7
1 14,,115
4 '..
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
I
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
I
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
I
IPROGRAM RELOCATION ERROR
I
V"4?(i'J(1
C4207
!?4?1°
04?1:1
c~
4? 1 ?
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
,
!4~1"
~'4?
17
>,1 11 1
'5 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(-
~:
f\:OMO
401716; 221715: 054005; 172222
0vlliH?HIJ
I
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
7~
/
/St~
,p
:..
'5
I
','4':: 5.,
(~4:"S 1-
04?,~7
V'4240
'/4?4~1
STtC:;:
523
tl . ;:1 :).125
~',3 0140
777723
:)4
11
1,:;': ,) 0 0
/
/ G(1 TO FIE L')
I
4/4.'
v'4?44
Ii'
4 24 ~
;;1424A
(/\ 424 7
Vl4250
0425:1
(J
/14243
4-ij 1 707
4 rH 724
!i151 H'l6
4(1191414
774055
GOFLI)
4~1
h 7;
4'11724;
051106; 400414
(ilVlvh:H~0
I
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
I
IAll
I
04263
04264
(4261)
7,,1\4263
141401
(710000121
All
/
.EJECT
121
x Ai
PAGE 72
:[,
ISTOi~AGE
AI\'L)
CO\;
TANT REGISTERS
I
.. ~ ) r
t ...
77777·7)
S!XT4
LAw
,) 4;: t'
7
,. ,,: (?100
NOPRNT
FLAGS
INSFLO
MCWA
CNTRL
PATR
VI
VI
. 4) 7,'
>:?r.~~~0
4;.; 7:
??J0,100
'.~4?7;
;00~Vl0
'/:477'
i~ 4 2 7.!
-, ·2"~'.~Vl0
\"'00000
lA
l~
4? 7'"
"
0~
v}00
00
(i'4?7~
.' ·.Ii (' I)
,'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
~
VI
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
I
.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
~
/ 4') ,t 7
4 '~,;:; ,
'~j?
1.
. ,"
\.~
01
'.'(',102
.,~., "" 7
',,~ \i~
,;
10
·/4')5('
c' ,1<.\ /?(2l
435:'
04354
V'435"i
:~ :l/~
J 40
l" )"iVJ
117 7
l'~
~~
4
? ::; ,
043 h J
~j 4 ,< 6 VI
04361
04362
04363
/~(!11V10
100200
"(7ItIl212
eel[;1215
("00.254
000260
~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
~,
1.
~
?
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
74
4 0 71
AD"
~J
AD~Cw
1'43r~6
V1Avl
AD.: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
01675
1I11344
~x
T8 1\jK
~XTHI
(~ -~
::;' f i'
~XTMV
v' ,~
21
'>
XAn15
PAGE 78
?62
'JX TP4
'il1
'JCAO~
\,14 ~~ (,1 ~
3
:Jo<.AS
~n64
:,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
_A
~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!.:.
rJ
RST3
PST3A
xA'
/ 1 ~ ~ -' )..,
,1
RT~l
PT\2
RT\:3
PTf\;4
RT19L
SETAC
SETBAK
SETB1
SET82
SETSUP
SETU1
SETU2
SETX
SET1
SI~U1
SIMU2
SIMU3
SI~U4
til
l!j
1
. ) ) :::
l' ~
..., r"
10
7.' 7
vqH't-;
(tI_-~
413
0~6fJ2
,l?722
~P77'
0~~Vl(il
6
~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
.c
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 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
1"
K;
~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
~")..:;
,'(?
27
1
~
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",
d?
L OF41\
,'i ??')
'\J),TP4
'1 ,) A?
CH 1'.\'\
,-, ) 7 r.
t-JO,"Oh;
\ 1 :'i,r '7
1:3');\
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
Rl
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/,....,
7
',I? 4':"
;~?
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?'
'25?
~1
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
:205
nN~Vl
~1
I\JXTMV
,A, 3 '.21
CK~'XT
J!3212
STryXT
SU82
NXTHI
1,13?) -;
(~,'(,2
~.
.'
...
\~
11
7
I-.
.'
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
.~
XA
~4
,< ,;
f.. ':
~?
7 ,,5
,,1\
~
',~
':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
5
,~4 ,~4
b
4 0 47
i~ 4 0'1 0
v
l
1,4
?1
0~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
4') 70
'14271
.1 4 27.2
v~
c~nRl
/t:?75
PATR
1 4 2' ...
ME~AOR
,~4?
SVADr-I
.J 4 2 7 b
7;;
PAGE
x A,n
h~
rT4K
VIPSTl
LAST}
;1 L;? 77
8 A r, 1
(~!t
OCAOR
1,14
,~'.A
GO(]01
~14
3:; 4
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~
(14,~
V.)
\ 4,~ ,11
:5 ') ,)
"
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')
p~
,;[ 11/
'<1-\:
K4K
.' ..: _~ 7 ')
K 711/
:4\7:
K1V1K
K2'''K
K4'~ K
K7V1K
K74K
K4VelK
K177
. \ ~ 4 -.,
"I
• '" 4 7')
/' 4 4
~~ ~
:144,' 4
0 4 4.''5
,344.' f'
l!44 ;',7
K7~elK
KENO
CLSF
CLOF
CLON
RSF
RCF
RSA
RRH
RSR
PSF
peF
PSA
PS8
KSF
KRB
TSF
rCF
TLS
EPA
.'~
i..1 -\:
(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
:
~-)
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19 Producer : Adobe Acrobat 9.0 Paper Capture Plug-in Modify Date : 2016:05:02 15:26:02-07:00 Create Date : 2016:05:02 15:26:02-07:00 Metadata Date : 2016:05:02 15:26:02-07:00 Format : application/pdf Document ID : uuid:7ced66bf-79ba-9247-b562-9b9cdff258d0 Instance ID : uuid:7bda5033-0f96-474c-a69c-1fb1d6510252 Page Layout : SinglePage Page Mode : UseNone Page Count : 105EXIF Metadata provided by EXIF.tools