Digital PDFs

MAINDEC-15-D3RA-D

January 1970

65 pages

Original

2.0MB

Document:	TC02 DECtape Random Exerciser
Order Number:	MAINDEC-15-D3RA-D
Revision:
Pages:	65
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-D3RA-D_TC02_DECtape_Random_Exerciser_Jan70.pdf

OCR Text

?])P - ~S
'])6" c- //1 PG

IDENTIFICATION
Product Code:

MAINDEC-IS-D3RA-D (D)

Product Name:

TC02 DECtape Random Exerciser

Date:

January 14, 1970

Maintainer:

Diagnostics Group

Author:

Edward P. SteInberger

ABSTRACT
TC02 DEC tape Random Exerciser is a program for use with the TC02 DECtape
control and from 1 to 8 TU55 DEC tape transports. DEC tape functions are
exercised by the random determination of function, direction, transport number,
number of blocks and data pattern generation. Search, Read Data and Write
Data are exercised in both Norma! and Continuous modes; Read All is exercised
rn the ContinuolJ'i mode; Move is exercised. During the waiting period while
uECtape funCIiom. ~:re being performed, small instruction test programs are being
executed by the cer ~ra! processor to test the proper execution of the Data Break
facility.

REQUIREMENTS

2.1

Equipment
Standard PDP-15 computer with a TC02 DECtape control and at least one rU55
DECtape transport (up to eight may be tested), and one standard PDP-9 Format
DECtape (1100 8 Blocks, 4008 words each) for each transport.

2.2

Storage

2.2. \

Program - Most of memory from 00000 to 04000.

2.2.3
2.3

Preliminary Programs
1C02 Basic Exerciser

LOADING PROCEDURE

3.1

Method
The program is loaded from paper tape using the standard binary tape loading
procedure.
a. Place tape in the reader.
b. Set the ADDRESS switches to 17700.
c. Set BANK MODE switch to 1.
d. Depress I/O RESET.
e. Depress KEY READ IN.
f. Program will be loaded into memory.

STARTING PROCEDURE

4. 1

Control Switch Settings
The following is a table of Accumulator Switch settings and their action on the
program.
AC Switch

Set As

Action
..-_.. - ...• -_._-- ..._---_ .•.

HALT ON ERROR
DONIT HALT ON ERROR
DON IT PRINT ERRORS
PRINT ERRORS
PRINT ONLY 4 DATA ERRORS
PRINT ALL DATA ERRORS
HIT END ZONE TWICE FOR 0000 or 1077
HIT END ZONE ONCE FOR 0000 or lO77
EXERCISE TRANSPORT 8

o
1

o
2
3
10

_------

o
1

EXERCISE TRANSPORT 1

o
12

EXERCISE TRANSPORT 2

o
13

EXERCISE TRANSPORT 3

o
14

EXERCISE TRANSPORT 4

EXERCISE TRANSPORT 5

4.1

Control Switch Settings Cont.
AC Switch

Action

Set As

o
16
17

EXERCISE TRANSPORT 6

EXERCISE TRANSPORT 7

o
o

4.2

Starting Address
The program's starti ng address is 00100.

4.3

Operator Action
a. Load program per 3. 1 .
b. Put each TU55 to be tested ON LINE with WRITE ENABLED and a standard
PDP-9 DECtape on it.
c. Set the selector dial{s) to the appropriate number(s).

d. Set AC switches per 4.1 (Normal setting is OooXXX).
e. Depress I/O RESET.

Depress Si ART

OPERATING PROCEDURE

5.1

Operational Switch Settings
See 4.1.

5 .2

Subrouti ne Abstract
None

5.3

Operator Action
"Bad" DECtape transports may be "deselected" at any time by setting to 0 the AC
Switch for that transport.

ERRORS
All DECtape malfunctions detected by that program result in an error typeout
(if ACS 1 is 0) and an error halt (if ACS 0 is 1). The halt wi II not occur unti I
~ errors pertaining to the block and operation have been typed.
The fi rst three lines of every typeout indicate the DEC tape dri ve, operati on,
direction, and mode, and the block in question.

6. 1

Error Halts

6. 1.1

Processor Test Error Ha Its
Processor test errors cause error halts only. Listed below is the location of these
halts and the condition causing each. Consult the program I isting for further
information. These errors are non-recoverable, the program must be restarted
at location 00100.
Address

Test and Cause

---'"
02057

lSI. Test

Locl1tion 02201 shou Id :::: 0

02063

ISZ Test

location 02200 should = 1

02075

ROTATE 1 Test

link should = 1

02102

ROTATE 1 Test

Data Fai lure

02113

ROTATE 2 Test

Link should = 0

02120

ROTATE 2 Tes'j'

Data foi lure

02130

SAD TEST

Sad Failure

02170

JMS TEST

JMS failure

6.1 .2

DEC tape Test Error Halts

6.1 .2. 1

Selection Error

If no transports are selected by ACS 10 to 17, the computer wi \I halt at
location 00107 to ai low the operator to set the ACS's and depress
CONTINUE.

6. 1 .2.2

Read Data Error
A "Read Data" error will cause an error halt at location 00327. To recover,
depress "CONTINUE".

6.1 .2.3

Vlrite Data Error

A "Write Datal! error will cause an error halt at location 01064. To recover,
depress "CONTINUE II •

6. 1 .2.4

Read All Error
.A ilReod All" status error will cause an error hdlt at location 01677. To recover,
depress "CONTINUEII. "Read All" data errors will halt per 6.1.2.2.

6. 1.2.5

Move Error
/':.. "f.!.f/0i~ C,t"U \I','i!! ccuse an el'ra!" hoit at

location 02351. To rec.:)ver, depress

CONTINUE".

6. 1 .2.6

Search Error
A "Search" error will cause an error halt at location 02627. To recover I depress
"CONTINUEII .

6.2

Error Recovery (Non-Processor)
After an error typeout the processor will halt. To recover, depress "CONTINUE".
For all errors, the program will attempt to repeat the same or a similar operation.
If an error occur<; a second time for the same operotion§ tnli'! typeout and halt
will occur again. If "CONTINUE II is depressed this time, the drive in error
wi 1\ rewind and the random selections will commence at block 0 again. If, on
the other hand, no error occurs, the program will continue normal operation.

6.2

Error Recovery (Non-Processor) Cont.
For read errors ("Read Data" and "Read All"), the direction of the second
read operation to the original error's direction. A second error will cause another
typeout and ha It. Depressing "CONTINUE" wi II cause the drive to rewind to
end zone. If no error occurs on the second pass, the block will be read a -third
time in the original direction. Any error will cause a typeout and halt. The
end result of repeated errors is rewind to end zone and random selection starting
with block a to prevent the same read sequence.

6.3

Error Typeouts

6.3.1

Search Errors
"Search" error typeouts contain the following information:
Drive Number
Search Direction and Mode
Block Wanted and Direction
Last N umber Put in Memory by TC02
Last BI()ck Number Found if More than Two Were Found

Number of Blocks Found Since Last Startup or Turn-Around
DECtope Status B

Example:

DRIVE 4
SEARCH

FORWARD

000123

BLOCK WANTED FORWARD

000070

BLOCK fOUND

000073

~AST BLOCK

000004

BLOCKS READ

000100

STATUS B
6

6.1.2

DECtape Test Error Halts

6. i .2. 1

Se lectj on Error
If no transports are selected by ACS 10 to 17, the computer will halt at
location 00107 to allow the operator to set the ACS's and depress
CONTINUE.

6. 1 .2.2

Read Data Error
A "Read Data" error will cause an error halt at location 00327. To recover,
depress "CONTINUE".

6.1 .2.3

Write Data Error
A "Write Data" error will cause an error halt at location 01064. To recover,
depress "CONTINUE".

6. 1 .2.4

Read All Error
ft, "Read All" status error will cause an error hdlt ot location 01677. To recover,
depress IICONTINUE". "Read All" data errors will halt per 6.1.2.2.

6. 1 .2.5

Move Error

'-" "Move" error will cause an error halt at location 02351. To recover, depress
!ICONTINUEII.

6.1.2.6

Search Error
A "Search" error will cause an error holt at location 02627. To recover, depress
"CONTINUE" .

6.2

Error Recovery (Non-Processor)
After an error typeout the processor will holt. To recover, depress "CONTINUE".
For all errors, the program will attempt to repeat the some or a similar operation.
If an error occurs a second time for the same operation, the typeout and halt
will occur again. If "CONTINUE" is depressed this time, the drive in error
will rewind and the random selections will commence at block 0 again. If, on
the other hand, no error occurs, the program will continue normal operation.

6.2

Error Recovery (Non-Processor) Cont.
For read errors ("Read Data" and "Read All"), the direction of the second
read operation to the original error's direction. A second error wi II cause another
typeout and halt. Depressing "CONTINUE" will cause the drive to rewind to
end zone. If no error occurs on the second pass, the block will be read a third
time in the original direction. Any error will cause a typeout and halt. The
end result of repeated errors is rewind to end zone and random selection starting
with block 0 to prevent the same read sequence.

6.3

Error Typeouts

6.3.1

Search Errors
"Search" error typeouts contain the following information:
Drive Number
Search Direction and Mode
Block Wanted and Direction
Last Number Put in Memory by TC02
Last Block Number Found if More than Two Were Found
Number of Blocks Found Since Lost Startup or Turn-Around
DECtape Status B

Example:

DRIVE 4
SEARCH

FORWARD

000123

BLOCK WANTED FORWARD

000070

BLOCK FOUND

000073

LAST BLOCK

000004

BLOCKS READ

000100

STATUS B

6.3.1

Search Errors Cont.
The above example shows that the control was operating with Drive 114, searching in the forward direction for block #123. It encountered block #70 after
block #73 (should have been #74). Up to this time it had read 4 blocks. DECtape status was normal. The block sequence was not consecutive, no doubt
due to the loss of bit 15 of the block number.

6.3.2

Write Data Errors
"Write Data" error typeouts contain the following information:
Drive Number
Direction and Mode
DECtape Status B
Contents of Word Count Register (Location 00030).

Example:
DRIVE 1
WRITE

DAT A BAC KWARD CONTINUOUS

000765

BLOCK

600000

STATUS B

777634

The above example shows that a mark track error occurred whi Ie writing data
backwards in the continuous mode in block #765.

6.3.3

Read Data Errors
"Read Data" error typeouts are of two types - status and data compare.

6.3.3.1

Status Error Typeouts
These typeouts contain the following information:
Drive Number
Direction and Mode
Block Being Read
DEC tape Status B
Contents of WC if not 0 (Note: No data comparison if WC is not 0).

Example:
DRIVE 7
READ

DATA BACKWARD CONTINUOUS

001065

BLOCK

440000

STATUS B

777400

The above exomple shows that an attempt to read data from block #1065 on
drive #7 in the backward direction in continuous mode caused a select error.
Since WC is not 0, no data comparison was made.

6.3.3.2

Data Compare Errors
These typeouts contain the following information:
Drive Number
Direction
Mode
Block Read

6.3.3.2

Data Compare Errors Cont.
Correct Data
Erroneous Data
Address of Incorrect Data

Example:
DRIVE 5
READ

DATA FORWARD

DATA

ERROR

001074

BLOCK

400000

COR

322667

INC

010374

ADDRS OF INC

000027

COR

067365

INC

010375

ADDRS OF INC

The above example shows that an attempt to read data in the forward direction
from block #1074 resulted in data errors. In the first printout: the correct
data was 400000, the data from tape was 322667, the incorrect data is in
location 010374.

6.3.4

Read All Errors
"Read All" error typeouts are of three types - status, data compare, Checksum.

6.3.4.1

Status Error Typeouts
Same format as "Read Data" - see 6.3.3.1.

6.3.4.2

Data Compare Error Typeouts
Same format as "Read Data ll - 6.3.3.2.

6.3.4.3

Checksum Error Typeouts
These typeouts contain the following information:
Drive Number
Read All Direction and Mode
Block Number
Reverse Checksum for Tape
Data Checksum Calculated from 6-bit XOR of Data by the Program
LPB Calculated by Program (6-bit XOR of RC, DC, C above).

Example:
DRIVE 8

READ ALL

BACKWARD CONTINUOUS

000000

BLOCK

CKSUM

ERROR

000033

REV CHECKSUM

000022

DATA CHECKSUM CALCULATED

670000

CHECKSUM

000076

CALCULATED LPB

The above example shows a checksum error. The 6-bit complement XOR of
the Reverse Checksum, Calculated Data Checksum and Checksum should be
000077. However, it caiculated to 000076.

6.3.5

Program Interrupt Errors
The program detects 3 c lasses of program interrupt errors. After the Pl
typeout the program forces an operation typeout so that the function being performed may be determined.

6.3.5. 1

Program Interrupt and No DECtape F lag or Error F lag Skip
The following typec.,ut will occur:

6.3.5.2

NO DECTAPE SKIP

No Progrcm InterruRt or DEC tape F lag or Error F lag Skip after Timeout
If no PI or DECtape hardware flags occur after 5 seconds for all functions
except "MOVE II (which allows 45 seconds) the following typeout wi \I occur:

NO PI

6.3.5.3

NO DECTAPE SKIP

No Program Interrupt but DECtape F lag or Error F lag Skip ofter Timeout
If no PI occurs, but hardware flags do occur after timeout (5 or 45 seconds) the
following typeout will occur:

NO PI

RESTRICTIONS

7. 1

Starting Restrictions

DECTAPE SKIP

None

7.2

Operating Restrictions
Do not "deselect" a transport merely to change a reel of DEC tape and then
reselect it. If a reel of DEC tape must be changed, Stop the program, change
the reel of tape, then depress I/o RESET then START with 00100 in the
Address Swi tches •

MISCELLANEOUS

8. 1

Execution Time
Program does not stop unless an error occurs.

8.2

Data Format
The data blocks written by the Random Exerciser are formatted to be bidirectional. Whether written forward or backward, they may be read in
either direction on the TC02 with the resultant data looking the same. The
first four words of the block contain pertinent information about the block.
The first two words of each block are formatted as follows:

WORD 1
r~-----------

i 0

L--L-.

-------------------

LOWEST
BLOCK NUMBER

Control bit to indicate
direction of write data
o - forward
I - backward

I--r!

WORD 2
WORD 1+

i _ _ _ _ _NU~BER

----------- - - --:
I

OF BLOCKS .......J

Complement of WORD 1 BIT 0
I - forward
o - backward

WORD 1 indicates the lowest numbered block in the series with bit 0 indicating
the wirtten direction of the series of blocks.
WORD 2 is 1 greater than the highest numbered block in the series, bit 0
in WORD 2 is the complement of bit 0 in WORD 1.

8.2

Data Format Cont.
Ignoring bits 0 of the two words:
WORD 2 - WORD 1 = number of blocks in series.
WORD 3 and WORD 4 of the block are random numbers used to generate the
rest of the data. WORD 5 of the block is WORD 3 rotated right one position
using on 18-bit rotate.
WORD 6 is WORD 4 rotated right one position also using on 18-bit rotate.
This process is repeated until WORD 128 is WORD 126 rotated right. WORD
129 is the complement obverse of WORD 128. WORD 130 is the complement
obverse of WORD 127, etc,. until the lost word of the block is complement
obverse of the fj rst word of the block.
WORD 1
WORD 2
WORD 3
WORD 4
WORD 5
WORD 6

400617
000626
732654
201356
355326
100567

Block 617 to
625 inclusive were
written backwards using
these two words for data pattern
WORD 3 Right One
WORD 4 Right One, etc.

WORD 253
WORD 254
WORD 255
WORD 256

124675
321540
151777
061773

Complement obverse of WORD 4
Complement obverse of WORD 3
Complement obverse of WORD 2
Complement obverse of WORD 1

PROGRAM DESCRIPTION

9. 1

Discussion
TC02 DECTAPE RANDOM EXERCISER will exercise a TC02 DECtape control and
any configuration of from 1 to 8 TU55 DECtape Drives. Drive, direction of
operation, number of blocks, and data patterns are by random selection. First
the program randomly selects a drive, then a number between 1 and 32
(decimal) for the number of blocks, then the direction. There is one possibi lity
in four that the direction will be backward. The number of blocks is added to
or subtracted from the last block position of the drive selected. If the block
generated has not been written, a write operation is initiated. If the lost block
table indicates that the block selected has already been written, a read operation
is initiated. If READ is selected, the program then generates a random number
between 0 and 7. If the number is 0, the block is read in "Read All Continuous"
mode; if 4, "Read Data Normal II mode; if any other number, "Read Data
Continuous" mode and two blocks are read. If WRITE is selected and the

9. 1

Discussion Cent.
number of blocks is a multiple of 3 (3, 6, 9, 12, etc.), the blocks are written
in continuous mode. Otherwise, the blocks are written in normal mode.

PAGE

DTRF15

004000
0044~0

000030
000031
00100
~0100

fi'0101

00102

00103
00104
00 1 135
00106
00107
00110
00111
00112

70,7704
750004
503411
74"'200
600111
2035 1 0
102633
740040
600100
0434'53
75"'0~1

00114

043447
707554

~011'5

1022~7

00113
0011f)

16~451

00117
00120

102244

0';'121
~0122

00123
00124
vHH25
0012t-

00127
00 1 30
00131
00132
00133
00134
00135
00136
00137

600116
203401
043452
750004
503411
741200
600105
043453
10~551

750001
043457
?03436
343452
7512~0

0.0141
00142
00143
00144

600231
2 0 3436
740001
343401
el43452
750001
043474

~e14'5

100516

001

5034~4

0eJ14~

~0147

74vH~el

0\(J15~~

043455

00151
00152

100527
503425
751200

00153

.TITLE DTRE1'5
.ASS
/TC02 RANDOM EXERCISER - PDP-15
RANBFR=4000
BUFFRS=RANBFR+400
WC=30
CA=31
10~
.LOC
LEM
RANOEX
LAS
/READ ACS AND
AND RUBOUT
/SEE Ir ANY TRANSPORTS
S~A
JMP .+5
/WERE SPECIFIED
ICONTROL COMES HERE
LAC (MESS1
/IF NONE
JMS MSPRNT
XX
JMP RANDEX
OAC t>.1SBITS
CLA!CMA
OAC FRSWAT
707554
ICLEAR "8"
JMS REPOSt
IPUT ALL DRIVES IN END ~ONE
D~M~ LSTBLK
ICLEAR NUMBER OF BLOCKS
JMS CHNGDR
ICHECK TO SEE IF ALL WERE CLEARED
JMP .-2
INO, THEY WEREN'T
LAC ONE
()AC LSTDRV
RDSWCH
LAS
/THIS SEQUENCE
AND RU80UT
IALLOWS THE OPERATOR
SNA
/TO DESELECT
JMP RANDEX+5
I" BAD TRANSPORTS"
DAC MSBITS
/VIA THE AC SWITCHES
IRANDO~ SELECTION OF OPERATIONS
MOFPRO
JMS RANSEL
ISELECT A DRIVE
CLA!CMA
OAC PASFLG
/CHECK TO SEE IF
LAC CDRIVE
TAO LSTDRV
/THIS DRIVE WAS THE
SNA!CLA
/LAST ONE SELECTED
IYES, IT WAS!
JMP SAMDRV
LAC CDRIVE
CMA
TAO ONE
OAC LSTDRV
CLA!CMA
OAG RSQFLG
ISELECT NUMBER OF ALOCKS FOR OPERATION (1-32)
MOFPRl
JMS RANDl /GET A RANODM NUMBER
b.NO TERSEV
CMA
/MAKE -1 TO -32 (DEC)
DAC NUMBLK
ISELECT DIRECTION TO GO
JMS RAND2 IGET ANOTHER RANrOM
AND THREE
SNA:CLA

PAGE

RANOEX

0.~154

7400~1

130155
00156
00157
00160
00161

V'43446
223451

00162
1313163
1313164
00165
000166
00167
130170
00171
00172
00173
00174

750200
744002
203455
741400
600171
343401
363467
Ql43472
741100
143472

013175
00176
00177
00200
00201
00202
00203
00204
00205
00206
00207
00210
00211
00212

203472
740001
3634'51
741HHI
600721
100540
503413
741200
601431
503425
750200
601221
100253
600272

00213
00214
00215
00216
00217
00220

203432
707544
203472
063467
203446
063445

00221

100400
777400
100626

~H~222

130223
00224
013225

7552(~0

60V'721

203446

740Q1V'1

004_000

00227
00 23 0

004400
443442
600325
600 123

013231
00232
00233
021234

100516
741100
600146
443474

0022 6

DTRE15
CMA
IsrT BACKWARDS
DAC OIRFLG
IDIRECTION FLAG
LAC* LST8LK
SNA!CLA!CLL
IHAS DRIVE BEEN WRITTEN ON?
JMP WRITE1
INO, WRITE
LAC I)IRFLG
IGENERATE BLOCk SELECT POSITION + OR - NUMBER
S~A!CLA

CLL!CML
LAC NUMBLK
S2L
JMP .+3
CMA
TAO ONE
TAO .. POSITN
DAC RECORD
SPA
1- RECORD?
D~M RECORD
IMAKE = 0
IHAS BLOCK SELECTEO BEEN WRITTEN
IIF NOT, WRITE OPERATION SELECTED
LAC RECORD
CMA
TAD .. LST8LK
SPA
IHAS BLOCK BEEN WRITTEN?
JMP WRITE1
INO
JMS RAND3
AND SEVEN
SNA
JMP RALLTS
AND THREE
SlA!CLA
JMP RDCMOD
RDTAB JMS RDDATA
JMP REREAD
IBLOCK HAS BEEN READ WITHOUT PARITY ERROR
LAC TYTHOU
707544
ISTOP TAPE
LAC RECORD
DAC .. POSITN
INEW POSITION
LAC DIRF"LG
DAC .. DIRECT
IDIRECTION READ
IMOVE FIRST FOUR WORDS TO REGENERATE DATA PATTERN
JMS PREGEN
IGENERATE DATA PATTERN
LAW -400
JMS CODATA
ICOMPARE 400 WORDS
RAN8FR
IGOOD DATA HERE
RUFFRS
I? DATA HERE
1St COCNTR
JMP REREDA
IREREAD BLOCK IF ERROR
JMP ROSWCH
IGO BACK, READ ACS, SELECT NEW DRIVE
IDRIVE SELECTEO SAME AS LAST TIME' TFST FOR SERIES
SAMDRV
JMS RAND1 IGET A RANDOM
SPA
IREAD THIS STRING?
JMP MOF"PRl + 1
IF' I NO 1 NEW 'BLOCK
IS~ RSQF"LG

PAGE

RANOEX

DTRE1'>

V'lV'J?35
0k1236
(110237
00240
00241
00242
00243
00244
00245
00246
00247
00250
00251
00252

6 00 1 4 6
503425

343401
343407
043472
203446
363472
503373
043472
601070

00?53
00254
00255
00256
00257
00260
00261
00262
00263
00?64
00265
00266
00267
00270
00271

000000
102353
203426
707544
777400
040030
203364
040031
101701
000100
620253
200030
751200
440253
620253

00272
00?73
00274
00275
00276
00277
00300
0(11301
003 0 2
00303
130304
00305
00306
00307

750001
043457
102726
102754
203472
102670
203511
1 0 2633
7 0 7572
10 2 670
203512
102633
200030
741200
600315
102670
203513
102633
600325
100400
777405

JMP ~OFPR1+1
AND THREE
SNA!CLA
IFORWARD?
eMA
INO, GO BACKWARD
DAC OIRFLG
CMA
TAO ONE
IFORWARD GETS
TAO RBUFST
IFIRST BLOCK
DAC RECORD
IBACKWARD GETS
LAC DIRFLG
ILAST BLOCK
TADo RECORD
AND INDEP IMASK TO 10 BITS
lAND STORE
DAC RECORD
JMP RDSEQ IGO READ
IREAD DATA SUBROUTINE (1 BLOCK)
IDIRFLG=777777 (BACKWARD), 0 (FORWARD)
RDDATA
0
JMS SEARCH
LAC TRETHO
13000
707544
ICHANGE SEARCH TO READ DATA
LAW -400
OAC Wc
IINITIALllE WORD COUNT
LAC BF1LOC
DAC CA
lAND CURRENT ADDRESS
JMS WATINT
IWAIT FOR COMPLETION
100
IDTF
/STATUS ERROR EXIT
JMPo RDDATA
LAC WC
SNA!CLA
lSi RDDATA
JMP* RDDATA
INORMAL EXIT
ITYPE STATUS ERROR ON READ 1 BLOCK
ITEST FOR DATA ERRORS IF FULL READ
REREAD
CLA!CMA
DAC PASFLG
JMS ERSTP ISTOP TAPE
JMS TYROAT
LAC RECORD
ITYPE BLOCK NUMBER
JMS OPRINT
LAC (MESS2
/TYPE "BLOCK"
JMS MSPRNT
707572
IREAD "B"
ITYPE CONTENTS OF "B"
JMS OPRINT
LAC (MESS3
ITypE "STATUS 8"
JMS MSPRNT
LAC WC
SNA
ISHORT
JMP .+5
INO
ITYPE C(WC)
JMS OPRINT
LAC. (MESS4
ITYPE "W.C."
JMS MSPRNT
JMP REREDA
IREGENRATE PATTERN
JMS PREGEN
LAW "373
TAO CA

00310
~1{1311

0031?
0~L313
00~14

00315
00316
00317

7512~0

740001
043446
740~HH

340031

PAGE

DTRE15

4
~032V1

V"403?4

00,~21

7774f1'0

~032?

1006?6

00~23

vH~4V'~~0

00324
0032'5
00326
00327

0044V"0
75V"00.4

00~30

00331
00332
00333
00334
00335
00336
010337
00340
00341
00342
00343
00344
00345
00346
00347
003501
00351
00:S5?
00353
00354
010355
00356
00357
003601
00361
00362
00363
00364
00365
00366
00367
00370
0121371
00372
00373
00374
00375
00376
00377
00400
00401
00402
00403
00404

7511~0

740040
443457
600.3fll
203446
74QHHH
043446
100253
600274
H'0400
777400
100626
004000
004400
443442
600325
203446
740001
043446
100253
600274
777400
100626
004000
0104400
443442
600325
(>03410
243506
707545
101701
500000
600376
163451
163467
750001
063445
203 40 1
043452
600123
102340
600361
000000

203405
040010
777774
043440

nAC . +4
LArl -400
JMS CODATA
RAN8FR
8UFFRS
LAS
SPA!CLA
IHALT ON ERRORS?
/YES
XX
ISr PASFLG
/REWIND DRIVE IF NOT FIRST ERROR
JMP REWORV
LAC DIRFLG
CMA
ICHANGE TO READ IN OPPOSITE DIRECTION
DAC DIRFLG
JMS RDDATA
IREAD DATA
IERROR, AGAIN, TRV AGAIN
JMP REREAD+2
JMS PREGEN
IREGENERATE PATTERN
LAW -400
ICOMPARE DATA
JMS CODATA
RANBFR
BUFFRS
IS~ COCNTR
IDONE ALL BLOCKS?
INO
JMP REREDA
LAC DIRFLG
CMA
ICHANGE DIRECTION
OAC DIRFLG
JMS ROOATA
/READ AGAIN
IANOTHER STATUS ERROR
JMP REREAD+2
LAW -400
JMS CODATA
ICOMPARE DATA READ
RANBFR
BUFFRS
ISr COCNTR
IDONE ALL BLOCKS?
JMP REREOA
INO
REWDRV
LAC REWIND
XOR UNFUNC
707545
ICLEAR AND LOAD "A"
JMS WATINT
500000
IERROR, END OF TAPE
JMP .+10
DrM .. LSTBLK
/CLEAR LAST BLOCK
D~M" POSyTN
lAND POSITION FOR DRIVE
CLA!CMA
ISET DIREcTION FOR DRIVE BACKWARD
DAC" DIRECT
LAC ONE
OAC LSTDRV
ISET LAST DRIVE TO 1
JMP RDSWCH
IGO BACK ALMOST TO BEGINNING
JMS MOVER+2
JMP REWDRV
IMOVE FIRST 4 WORDS OF BLOCK READ
lAND REGENERATr COMPARE PATTERN
PREGEN
0
LAC RBFLOC
DAC 10
LAW ':"4
DAC CNTR
REREDA

PAGE

RANOEX

DTRE15

00405

220031
HW467
060010
75"J01

LAC:. CA
JMS MCOMOB
OAC. 10
CLA!CMA
TAO CA
DAC CA
IS2 CNTR
JMP .-7
JMS PATGEN
JMP. PREGEN
/GENERATE RANDOM DATA PATTERN
/FIRST FOUR WORDS nF PATTERN ARE IN
/RANDOM BUFFER WORDS 1 TO 4
PATGEN
0
LAW -4
DAC CNTR II~ITI4LIlE A COUNTER
LAC RBUFST
DAC PNTRl /AND TWO POINTERS
LAC RBUFND
DAC PNTR2 /FOR WORD TRANSFERS
LAC TEM2
DAC TEMl /MOVE TEM1
LAC. PNTRl
OAC TEM2 /AND TEM2
JMS MCOMOB
/FORM COMPLEMENT OBVERSE
DAC. PNT R2
/AND STORE IN RUFFER
}S2 PNTRl /INCREMENT FORWARD ADDRESS
CLA!CMA
TAD PNTR2 /DECREMENT BACKWARD
DAC PNTR2
1St CNTR /DONE 41
JMP .-13 INO
LAW -174
DAC CNTR /FOR 174 (OCT) MORE
GNPATR
LAC TEMl
/FORM ~EXT WORD
CLL!RAR
lor RANDOM
StL
XOR MUCH0 /PATTERN
OAC TEM3
/STORE IN BUFFER
DAC. PNTR1
JMS MCOMOB
ISTORE COMP OBVERSE
DAC. PNT R2
LAC TEM2 /MOVE
DAC TEM1 /A
LAC TEM3 /FEW
DAC TEM2 /wORDS
1St PNTRl /lNCRE~ENT FORWARD ADDRESS
CLA!CMA
TAD PNTR2 IDECREMENT BACKWARD ADDRESS
OAC PNTR2
1St CNTR IDONE ALL?
JMP GNPATR
INO
JMP. PATGEN
ICOMPLEMENT OBVERSE SUBROUTINE
MCOMOB
0

el ~14 0 t"
~04~7
004H~

00411

3400~1

~~412

040031

"""413
"'0414

443440

"'~41':5

600405
100417

vH~ 416

62~4V'!0

00417
00420

0vH1!000

00421
00422

777774
043440
203407

~0423

~43463

vh~424

203406

0~425

043464

00426
"0427
0B430

203502
043501
223463

~0431

043502

00432
00434

100467
063464
443463

00435

750001

00436
00437

043464

00433

0~44e

00441

00442
eJ0443

00444
00445
00446
00447
0045P.'

00451
00452
00453
00454
00455
00456
00457
00460

343464
443440
600426
777604
043440
203 50 1
744020
741400
2434~"~

0435 0 3

063463
100467
063464
203502
043'501

?03503
043502
443463

00461

75(i1(i1~1

00462
00463
eJ0464
00465

343464
043464

00466

443440
600444
620417

00467

000000

PAGE

RANnEX

DTRE15

00470
00471
00472
00473
00474
00475
00476
00477

74 4 001
043454
143456
777772
043477
203514
04:<465
?034'54
74HW0
7420,10
742010
74?:11 ,~
043454
523465
243456
043456
443465
203454
443477
600501
203456
tl2(}1467

rMA!CLL
nAC NUMBER
OtM OBVERS
LAW -6
nAC TALLY
LAC (SEVEN
OAC PN TR 3
LAC NUMBER
SKP
LOOP RTL
RTL
RTL
OAC NUMBER
AND .. PN TR 3
XOR oeVERS
DAC OBVERS
IS~ PNTR3
LAC NUMBER
1St TALLY
JMP LOOP
LAC OBVERS
JMP.. MCOMOR
IRANDO"1 NUMBfR GENERATORS
RANDl 0
LAC Rl
RAL!CLL

0~5001

00501
00502
00t)03
00504
00505
00506
00507
00510
00511
00512
00513
00514
00515
00516
00517
005201
00521
00522
00523
00524
00525
00526
00527
liH?l53V'1
00531
00532
00533
00534
00535
00536
00537
00540
00541
00542
00543
00544
00545
00546
00547
00550

00551

000000
200525
74 4 010
741400
340526
040525
620516
00~171

000003
000000
200536
744010
741400
340537
040536
620527
000015
000003
000000
200,547
744~10

741400
340550
040547
620540
000031
~00003

000000

S~L

TAD Rl+1
OAC R1
JMP .. RANDl
Rl
171
3
RAND2 0
LAC R2
RAL!CLL
S~l

TAD R2+1
OAC R2
JMP .. RAND2
15
3

RAND3 0
LAC R3
RAL!CLL
StL
TAO R3+1
DAC R3
JMP .. RAND3
R3
31
3
IRANOOMLY SELECT A DRIVE
ISTAYS IN THIS ROUTINE UNTIL A
IORIVE IS FOUND AND DIRECTION AND
IPOSITrON POINTERS ARE GENERATED
RANSEl
0

pAGE

7
~W)5?

00553

RANOEX

DTRE15

10({1527
'503413

JMS RAND2 IGFT A RANDOM NUMBER
AND SEVEN /MASK OFF UNWANTED BITS
/SAVE
DAC CDRIVE
CLL!RAR
RTR
RAR
IDRIVE NUMBER
OAC UNFUNC
LAC CDRIVE
CMA
OAC CNTR
IFINO POSITION
LAC TWOHUN
1St CNTR IOF
SKP
IBIT
JMP EXIST IWITH RESPECT
ITO
CLL:RAR
lACS
JMP .-4
IASK WITH ACS
rXIST AND MSBITS
IOOES UNIT EXIST (TEST UNIT?)?
SNA
INO
JMP RANSEL+l
IYES
LAC CDRlvE
TAD POSTBL
IF'O-RM POSITION P-oINTER
DAC POSITN
LAC CDRIVE
TAD OIRTBL
IF'ORM DIRECTION POINTER
DAC OIRECT
LAC CDRIVE
TAD LSTTBL
ILAST BLOCK WRITTEN POINTER
OAC LSTBLK
JMP. RANSEL
IMOVE DATA SUBROUTINE
1# OF WORDS IN AC, ORIGIN JMS+l
IDESTINATION JMS+2
MVDATA
0
DAC CNTR
CLA!CMA
TAD. MVDATA
OAC 10
IS2 MvoATA
CLA!CMA
TAO. MVDATA
oAC 11
Is~ MvDATA
LAC. 10
DAC. 11
IS~ CNTR
JMP .-3
JMP. MVDATA
ICOMPARE DATA SUBROUTINE
1# OF WORDS IN AC, CORRECT ADDRESS IN JMS+l
IQUESTIONABLE ADDRESS IN JMS+2
(II
CODATA
OAC CNTR
IG.ET CORRECT ADDRESS
LAC. CODATA
OAC PNTRl
IS~ CODATA

~"r;5d

~43436

~05'55

~0562

744020
742020
740020
043'5(116
203436
740001

~121563

11143440

00'564

2121343121
443440
74100121
600572
74412120
60(1565
c:;12134'53
74120121
600552
21213436
343403
043467
21713436
343366
043445
21213436
343374
043451
62(21551

~0r;56

~121557

00'560
~0r;61

~Vl565

~0566

0\1'567
00570
00571
0121572
1210573
00574
0057'3
121121576
0121577
012161210
012161211
0121602
0121603
012161214
0121605
0121606

012161217
0061''1
1210611
121121612
01216 13
0121614
121121615
0121616
0121617
121121620
00621
00622
1210623
00624
012162'3

~12I00(1!12I

0121626
0121627
00630
0121631
0121632

0000010
043440
220626
043463
440626

~43440

7501211211
3612161217
04012110
44121607
7501211211
3606l~7

040011
44121607
22001121
~6012111

44344121
6121121621
6206~7

PAGE

RANOEX

DTRE1&:;
IGET QUESTIONABLE ADDRESS
LAC* CODATA
nAC PNTR2
CLA!CMA
ISET NO ERROR FLAG
OAC COCNTR
1St CODATA
COLOOP
LAC" PNTR1
CMA
TAD ONE
TAD* PNTR2
S2A
JMP COERRO
1St PNTR1
ISZZ PNTR2
1St CNTR
JMP COLOOP
JMP .. CODATA
YSl COCNTR
COERRO
IFIRST ERROR?
INO
JMP COERRl
JMS ERSTP ISTOp TAPE
707552
IREAO "A"
AND ONETHO
I"ALL" MODE?
SNA
JMP .+3
INO
JMS TYRALL
IYES, GO TYPE
SKP
JMS TYRDAT
ITYPE "DATA ERROR"
LAC (MESS5
JMS MSPRNT
LAC RECORD
JMS OPRINT
ITYPE BLOCK NUMBER
LAC (MESS2
ITYPE "BLOCK"
JMS MSPRNT
LAS
COERR1
RTL
SMA
ISHOULD ONLY 4 BE TYPED
JMP .+5
INO, TYPE ALL ERRORS
LAW -4
IYES HAVE
TAO COCNTR
14 BEEN
SMA
ITYPED?
JMP COLOOP+6
IYES, DELETE REST OF TEST
JMS CRLF
LAC* PNTRl
JMS OPRINT
ITYPE STANDARD
LAC (MESS6
JMS "iSPRNT
lAND "COR"
LAC" PNTR2
JMS OPRINT
ITYPE INCORRECT
LAC (MESS7
JMS MSPRNT
lAND "INC"
LAC PNTR2
JMS OPRINT
ITVPE ADDRESS OF INCORRECT
LAC (MESSa
JMS MSPRNT
ITYPE "ADDR"
JMP COLOOP+6
IINJTIATE WRITE OPERATIONS

?206?6

L~0634

V'l4~464

.10t3S

750'~(il1

~IJ636

V14~442

37
00(,4'"
V1 f~A 4"\
~I '-~ n 4?
~l f~ 6 4 3
00644
~h~ 6 4 >3

440626
223463
7400°1
343401
363464

vl;~ {-

f~ vlb

74v~200

(~0 6 4 {,

6006'33
44:;463

00647

4434t14

1!1(.1650

443440
600640
620626
443442
600673
1027?6
7075':>2
>303402
7412010
600664
102765
741000
102754
203515
102633
203472
102670
203516
102633
750004
742010
740HH'J
600703
777774
343442
741t1100
600646
102714
223463
102670
203517
102633
223464
102670
203520
102633
203464
102670
203521
102633
600646

00651
00652
00653
00654
00655
00656
~0657

00660
~0661

00662
00663
00A64

00665
00666
00667
00670
00671
00672
00673
00674
0067'5
00676
00677
00700
00701
0eJ70?
00703
00704
00705
00706
00707
0071~

007 11
007 12
ftHP13
00714
0071'5
00716
00717
0072'"

PAGE

DTRE15

~~P21

?0~4V'5

V'\-'1722

V'4r~10

~ln23

?23451

0~724

0.60.~10

Vl0 7 25
00726
00727

?034r:;5

l~073~
~h~731

0073?
00733
00734
00735
00736
00737

74~"'V'1

343401
363451
043472
77670.0
343472
74V"100
601034
203472
06V"010

0074~

100540

00741
00742
00743
00744
00745
00746
00747
00750
00751
00752
00753

V"6Q\010

00754
0(21755
00756
00757
00760

00761
00762

00763
00764
"0765
00766
00767
00770

00771
0077?

00773
vHH74
00775
~0776

00777
01000

01001
01002
01003

1~0516

06e010

100527

503425
751200

740001
043446
343407
04~010

040011
754002
740020

360010
060011
10Q\417
203455
Q\43475
203455
740001
043472
203446

74\?1200
203472
363451
04347 2

601332
10?353
203370
707544
777400
040030
203405

040031
101701

/GENFRATE PATTrRN WORDS AND
18LOCK NUMBERS
WRITE1
LAC R8FLOC
nAC 10
/SET UP 10 FOR STORAGE
LAC .. LST8LK
DACo 10
IStT UP FIRST WORD
LAC NUM8LK
CMA
TAD ONE
TAO .. LST8LK
ILAST BLOCK+1
OAC RECORD
LAW -1100
TAO RECORD
SMA
/RF.WINO UNIT?
JMP REWCK IYES
LAC RECORD
DAC .. 10
JMS RAND3
/FIRST RANnOM WORD
DACo 10
JMS RAND1
ISECOND RANDOM WORD
DAC .. 10
JMS RAND2
AND THREE
IFORM DIRECTION
SNA!CLA
CMA
lAND STORE
DAC OIRFLG
TAD RBUFST
DAC 10
DAC 11
IFORM FIRST WORD
CLA!CLL!CML
IINDICATE
RAR
18ACKWARD
TAO .. 10
lOR 2ND WORD
DAC .. 11
IINDICATE FORWARD
JMS PATGEN
IGENERATE 256 WORD PATTERN
LAC NUMBLK
DAC SAVNUM
ISAVE NUMBER OF BLOCKS
CORT1R
LAC NUMBLK
CMA
DAC RECORD
LAC OIRFLG
S2A
IBACKWARD IS
LAC RECORD
ILAST BLOCK + NUMBER OF ALOCKS
TAO" LSTBLK
DAC RECORD
ITO FIND FIRST BLOCK TO BE WRITTEN
ITEST FOR WRITE DATA cONTINUOUS MODE
IIF NUMBER OF BLOCKS = INC OF 3
JMP WDCMOD
JMS SEARCH
WRT1A LAC FIVTHO
ISEARCH TO WRITE DATA
707544
IXOR INTO "A"
LAW -400
DAC WC
ISET UP WC
L~C RBFLOC
OAC CA
lAND CA
,WAIT
JMS WATINT

PAGE

RANrEx

~1/'04

~0'~lr~

1111005

6~l:i

~1Vl0f,

?0C'0~0

042

V11(HD

7442~~c;,

V1101V1

601042

01~11

;>03 44 6

01~1;>

34~472

01013
01014
01 0 15
Vl P' 16
"1°17
~:l1 \'120

7 411 \~ 0
7'-;4002
043472
75040' 0
443472
443455
A0V'l776
203472
063467
203446
063445

VlH~21

01022
v11023
0H~24

(II1Ci!25
01026
01'~27

el1Vl30
01031
01032
01033
01034
01035
01036
01(1137
01040
01041
01042
01043
0H144
0H145
01046
01047
VlH~50

01051
0H'l52
01053
01054
01055
01056
0111J57
01060
01061
01 Vl 62
01063

2\~4~01

503373
063451
203432
707544
600123
100540
7411(:\0
6~H~361

143472
143446
600211
102726
102776
203472
102670
203522
102633
203475
043455
707572
102670
203523
102633
200030
102670
203524
102633
75~0e4

751H'0

Vl1~64

74e040

01V'65
V'1V166

600.3Al

01067

60~763

01070

204000

443457

DTRE15

IOTF
1. elP
JMP WSTERR
LAC WC
S2A!CLL
Iwr = tl?
INO
JMP WSTERR
LAC DIRFLG
TAD RECORD
SPA
CLA!CLL!CML
OAr. RECORD
SNL!CLA
IRECORO -17
INa +1
IS2 RECORD
IDONE ALL BLOCKS?
rs~ NUMBLK
INa, DO ANOTHER
JMP WRT1A+l
WDINC LAC RECORD
INEw POsITION
DAC* POSITN
LAC DIRFLG
INEW DIREcTION
DAC* DIRECT
LAC RAN8FR+1
AND tNDEP
INEW LAST BLOCK
OAC* LSTBLK
LAC TYTHOU
IXOR INTO "A" <STOP TAPE)
707544
IGET C(SR) THEN SELECT AGAIN
JMP RDSWCH
REWCK JMS RAND3 IGET RANDOM NUMBER
1+ OR
?
SPA
1(- )
JMP REwDRV
IREAD BLOCK (IJ
D~M RECORD
[)~M DIRFLG
IFORWARD
JMP RDTAB
JMS ERSTP ISTOP TAPE - LEAVE FLAGS
WSTERR
JMS TYWDAT
LAC RECORD
ITYPE BLOCK NUMBER
JMS OPRINT
LAC (MESS2
ITYPE "BLOCK"
JMS MSPRNT
LAC SAVNUM
DAC NUMBLK
IREAD "B"
707572
IPRINT C(B)
JMS OPRINT
LAC (MESS3
ITYPE "STATUS R"
JMS MSPRNT
LAC WC
JMS OPRINT
IPRINT C(WC)
LAC (MESS4
ITYPE "WC"
JMS MSPRNT
LAS
ISTOP ON ERROR?
SPA!CLA
xx
IYES
12ND ERROR?
1St PASFLG
JMP REWDRV
IYES, REWIND
JMP CORT1R
INa
IREAD ENTIRE SEQUENCE oF' 8 LOCKS
lAS ORIGINALLY WRITTEN
RDSEQ LAC RAN8FR
IGET LOWEST BLOCK

pAGE

11
01071
01(A72

RANDEX
~43472

21f14 C-H'!1

01,~74

~03,,73

01"P5

043455
203472
7 4'''~H'' 1

1i11077
01100
Ql1HH
""11 02
01103
01104

""43455
H'I1i1516

01H~'5

1i14~446

~110n

3434~5

7~51~0
74(?1\'l~3

~1112

203472
741400
343455
043472
203455

01113

74~1t101

~1114

01120
V'l1121
vH122
01123
01124
01125
01126

0434'55
1002"3
61£'1i1272
443455
601123
203432
601130
203365
040031
777400
040030

01127

75~000

01130
01131
01132
01133
01134
01135
01136
01137
01140
01141
01142
01143
Vl1144
0114'5
01146
V'lU47
01151i1
01151

707544
777400
100626
004000
0Q144Q10
443442
600325
2 121 3455
74121?!0
601214
203446
7412 0 0
343401
343472
!2143472
11211701
V'l0""100
f00272

01107
0111""
01111

01115
01116
e11117

AND TNOEP
DAC RECORD
/GET LAST BLOCK+1
LAC RAN8FR+l
AND INOEP
/MAKE NUMBER OF BLOCKS
DAC NUt-1BLK
LAC RECORD
CMA
TAD NUMBLK
/5ET UP NUMBLK
nAC NUM8LK
JM5 RANDl /GET A RANDOM
/READ FORWARD?
SPA!CLA!CLL
INC' RAr.KWARD, AC= -0, L:1
CMA:CML
nAC DIRFLG
LAC RECORD

~0~373

~1f173

~1~76

OTRE15

S~L

TAO
DAC
LAC
r.MA
OAC
JMS
JMP
RDRUF1

II,JUMBLK
RECORD
NUM8LK
NUMBLK
RODATA
REREAD

IMAKE NUMBER OF BLOCKS NEG AT I VE_
/READ FIRST BLOCK
/STATUS ERROR IN READ
1St NUMBLK
IREAD ALL BLOCKS?

INO
JMP .+3
/GET CONSTANT TO STOP TAPE
LAC TYTHOU
JMP .+6
LAC BF2LOC
DAC CA
/SET UP CA
LAW -400
lAND WC
OAC we
CLA
707544
IX OR INTO "A"
LAW -400
/COMPARE DATA
JMS CODATA
RAN8FR
BUFFRS
IANY DATA ERRORS?
ISl COCNTR
IYES, READ OTHER DIRECTION
JMP REREOA
LAC NUMBLK
SNA
IDONE COMPLETE SERIES
JMP NDOFRD
IYES
INO
LAC OIRFLG
SNA
TAO ONE
TAO RECORD
ILAST BLOCK +1 OR -1
DAC RECORD
JM5 WATINT
IWAIT
IOTF
100
/STATUS ERROR, REREAD
JMP REREAD
LAC we

1i'1152

20~030

0115~

74V'200

S~A

Vl1154
0 11 55
01156
01157

6"'0272
443455
601161
203432

JMP REREAD
IS~ NUMBLK
INO
JMP .+3
LAC TYTHOU

IWC

INO, REREAD
IDONE ALL READS?
IyES, GET READ TO

PAGE

OTRE15

12
0116~

MH166

V'l1 j 61

;;>03364

(II 1 1 6?

04V'!031
777400

(

163

01164
vh 1 6'5
01166
01167
01170
01171

0.1172
"'11 73
"'1174
01175
01176
01177
01200
01'201
012132

01203
01204
0120'5
01206

01207
01210
01211
01212
01213
01214
01215
01216
01217
01220.

04~~030

75~~00

707')44

7774V'0
j

011'6?6

004W~0
(i\0')~1r~1

44~442

600325

;;>03455
7412013
6flh 214
203446
7412~~

343401
343472
0.43472
lfiH 701
000100
600272
200030

740200
600272
601117
203472
063467
203446
063445
600123

0123~

203446
740200
601232
203472
740001
363451
740.200
601235
60"'211
203472
7412(?!0

0.1234
01235
01236
01237
01240
01241
01242
01243
01244

102353
20341'7
707544
777000
040030
203364
"40031
101701

01221
01222
01223
01224
01225
0.1226
01227
0.1230
01231
01232

60"'211

JMP .+6
15TOP TAPE
LAC 8F1LOC
nAC CA
15ET UP CA
LAW -400

OAC WC
CLA
707544
LAW -400

IXOR

INTO A

JMS CODATA
ICOMPARE DATA
RANBFR
RUFFRS+401
IANY COMPARE ERRORS
rSl COCNTR
IYES. READ OPPOSITE DIRECTION
JMP REREDA
LAC NUMBLK
5NA
IRE AD AND COMPARE ALL?
JMP NDOFRD
IYE5
LAC OIRFLG
INO
SNA
TAO ONE
TAD RECORD
ILAST BLOCK +1 OR -1
OAC RECORD
JMS WATINT
IWAIT
j 00
IDTF
ISTATUS ERROR, REREAO
JMP REREAD
LAC WC
S2A
IWC = 07
JMP REREAD
INO, REREAD
JMP RDBUF1
ICOMPARE FIRST BUFFER
NDOFRD
LAC RECORD
OAC" POSITN
INEW POSITION
LAC OIRFLG
DAC .. DIRECT
/NEW DIREcTION
JMP ROSWCH
IGO BACK FOR ANOTHER
IREAD DATA CONTINUOUS MODE
/TWO B~OCKS AND COMPARE DATA READ
RDCMOD
LAC OIRFLG
S~A
IFORWARD?
JMP ,+7
INO
LAC RECORD
CMA
TAD .. LSTBLK
IBLOCK +1 WRITTEN?
S2A
JMP ,+5
JMP RDTAB IBLOCK NOT WRITTEN. READ ONLY 1
LAC RECORD
SNA
JMP RDTAB IBLOCK 0 BACKWARDS. READ ONLY 1
JMS SEARCH
IFIND FIRST BLOCK
LAC TRTETH
/13000
707544
IXOR INTO "A" (CHANGED TO READ CONT)
LAW -1000
DAC wC
ISET UP wC AND
LAC RF1LOC
DAC CA
ICA FOR 2 BLOCKS
JMS WATINT
/WAIT FOR END OF TRANSFER

PAGE

RANf)EX

911?4~

00~100

911?4f-

6i-H314

1';'1247

200/13;1

9112';~

74r~2\~?

01:251
911252
01253
01?54
01255
V11256

01257
01f?60

01261
911262
01263
01264
01265
911266
01267
01270
01271
01?72
01273
01274
01275
01276
01277
013091
01301
01302
01303
01304
01305
01306
01307
013191
01311
01312
01313
01314
01315
01316
01317
01320
01321
01322
01323
911324
01325
(111326
01327
[7;1330
01331

6~(:)272

2133 4 32
7~n';44

203446
7412~0

343401
343472
043472
1001400
777400
lVlV1626
004~00
0050~0

443442
60(7325
750001
343365
914V1031
1.00400
203446
74120.0
3434v"1

7400(:)1
343401
343472
043472
777400
10V1626

004QHH!
0044910
443442
600325
20 3 472
063467
6iHH 23
200030
7412910
601324
7491910.1
343401
340777
914V~30

60PJ272

203446
741200
343401
343472
043472
60~272

DTRE1';
10TF
100
JMP ROC ERR
IERROR, SEE WHICH RLOCK
LAC WC
IWC = ~?
S~A
INO
JMP REREAD
IGET "STOP"
LAC TYTHOU
707544
IXOR PHO "A"
LAC OIRFLG
SNA
TAD ONE
TAO RECORD
OAC RECORD
JMS PREGEN
IVERIFY LAST
LAW -400 IBLOCK
IFIRST
JMS CODATA
RANBFR
8UFFRS+400
IS2 COCNTR
IANY DATA ERRORS
IYES, REREAD
JMP REREDA
CLA!CMA
TAD 8F2LOC
DAC CA
JMS PREGEN
LAC DIRFLG
SNA
TAD ONE
CMA
TAO ONE
TAD RECORD
nAC RECORD
LAW -400
JMS CODATA
RAN8FR
RUFFRS
ISl COCNTR
/ANY DATA ERRORS?
/YES, REREAD
JMP REREDA
INO, SET NEW
LAC RECORD
IPOSITION
[1AC* POSITN
JMP RDSWCH
IGO BACK FOR ANOTHER JOB
LAC wc
RDCERR
IERROR IN 2ND BLOCK?
SNA
/n:s, COUNT ALOCK
JMP ,+6
CMA
TAD ONE
TAD WRT1A+2
1-400 (OCT)
DAC WC
ITYPE STATUS ERROR
JMP REREAD
LAC DIRFLG
IBACKWARD (-1 )
SNA
IFORWARDS ( +1
TAO ONE
TAD RECORD
DAC RECORD
JMP REREAD
/WRITE DATA CONTINUOUS MODE IF
/NUMBER OF BLOCKS IS AN INCREMENT OF 3

PAGE

RANnEX

01332
Vl1333

'14~~~5

011334

343425

(il133'5
Vl133A

?0~4'55
7412~({!

01:~37

601343
74011(il0

013401

f,00774

01~41

01342

(il1343
ItH344
(.i!1345
01346
~H347

01350
01351
01352
~H353

01354
01355
0 1 356
01357
01360
01361
01~~62

01363
01364
01365
01366
01367
01370
01371
01372
01373
01374
01375
01376
01377
01400
fi'1401
01402
01403
01404
01405
01406
01407
01410
01411
01412
01413
01414
01415
01416
01417
01420

44:;5v~5

("11334
;;>035(11'5
7400011
0435015
777(lJ00

100607
vH~4000

0044010
102353
203367
707544
776400
040030
203405
040031
HH701
0100100
6014(115
20(11030
740200
601405
203446
7542010
740002
343425
740400
601377
740001
3434011
343472
043472
750000
4435015
601354
601022
1435015
2001030
740001
3434011
340777
7411 0 0
601416
44350~

601411
203446
754200
740002

DTRE1e;

WOr.MOO

n2M TRECTR
LAC
TAD
SNA
JMP
SMA
JMP

NUM8LK
THREE

IAN INCREMENT OF 37
IYES, WRITE CaNT,
IGONE PAST 07
IYES, NOT INC, OF 3
WRT1A-1
lNG, COUNT 1
1St TRECTR
JMP WDCt-1DD+2
lAND REPEAT
LAC TRECTR
swCMoD
CMA
nAC TRECTR
LAW -1Ii3 0 0 IMAKE PATTERN
JMS MVDATA
13 8UFFERS
RAN8FR
ILONG
RUFFRS
JMS SEARCH
LAC FIFTHO
115000 (SEARCH TO WRITE CaNT)
SWCMDL
IXOR INTO "A"
707544
LAW -1400 15FT UP WC
IF OR 3 BLOCKS
nAC WC
LAC R8FLOC
OAC CA
lAND CA
JMS WATINT
IWAIT
IDTF
100
JMP \.IoCERR
INOT NORMAL INTERRUPT
LAC WC
S~A
IWC = 01
JMP WDCERR
INO
LAC OIRFLG
S~A!CLA!CLL
IF"ORWARD7
INO, SET LINK
CML
TAO THREE IGFT 3
SNL
IBACKWARD
INO
JMP ,+3
IYES, -3
CMA
TAO ONE
TAO RECORD
DAC RECORD
CLA
1St TRECTR
IDONE ALL
JMP SWCMoL
INa, DO NEXT 3
JMP WDINC IYES
OtM TRECTR
WQCERR
LAC WC
eMA
TAO ONE
I -WC
TAD WRT1A+?
I -400 (OCT)
SPA
JMP ,+3
IS~ TRECTR
JMP .-4
LAC OIRF"LG
SlA!CLA!CLL
IF'ORWARD?
INO, BACKWARD, MAKE -1 OR -2
CML
SWCMOD

PAGE

RANOEX

DTRE1e:;

01421

LAC TRECTR
SNL
JMP .+3
CMA
TAD ONE
TAn RECORD
OAC qECORD
IBLOCK IN ERROR
JMP WSTERR
ITYPE OUT WRIT[ ERROR
IREAD ALL ROUTINF
IREV CKSM, DAT~, AND CKSM ARE READ
ICKSMS ARE GFNFRATED AND TESTED
RALLTS
LAC DIRFLG
SNA
IBACKWARDS?
TAO ONE
INO, FORWARD
CMA
TAO ONE
1+1 FOR RACKWARD, -1 FOR FORWARD
TAO RECORD
OAC RECORD
SPA
JMP RDSwCH
ICAN'T DO 0
TAO "1BLOCK
SMA!CLA
JMP MOFPR1
lOR 1100
IFINn THE RLOCK ANn CHANGE TO READ ALL
ICLEAR READ ALL ERROR FLAG
D~M RAEFLG
IClEAR READ All ERROR FLAG
IFIND BLOCK
JMS SEARCH
707554
ICLEAR DTF AND EF
LAC OIRFLG
SNA
TAO ONE
TAD RECORD
OAC RECORD
707561
ISKIP ON ERROR FLAG
SKP
JMP RASERR
IDECTAPE ERROR
707601
ISKIP ON DECTAPE FLAG
JMP .-4
INO FLAGS, CHECK AGAIN
LAC 8LKFND
IGET CURRENT DECTAPE BLOCK NUMBER
CMA
TAO ONE
TAD RECORD
S2A!CLA
lIS IT THE ONE WE ARE LOOKING FOR?
JMP RASERR
INO, ERROR
ICHANGE TO RFAQ ALL CONTINUOUS
LAC TWVTHO
ISEARCH TO READ ALL CONT
707544
IXOR INTO "A"
LAW -404
OAC wC
15ET ~r. FOR 404 WORDS
LAC 8F1LOC
DAC CA
15ET CA
JMS WATINT
IWAIT
100
IOTF
IREAD ALL STATUS ERROR
JMP ERRRAR
LAC wC

~1427

2035(115
74040(1
6v'l1426
74vH101
343401
343472
(1143472

(111430

6~1042

0,1431
01432
vl1433
(111434
01435
01436
01437
(111440
01441
01442
"H443
1111444

203446
74120V'!
343401
7400(111
343401
343472
043472
7411(110
60(11123
343376
75"'100
600145

0 1 445
01446
01447
01450
01451
01452
01453
01454
01455
01456
(111457
01460
01461
01462
01463
01464
01465
01466
01467

14347 1
102353
707554
203446
741200
343401
343472
043472
707561
741000
601556
707601
601455
203435
74(11001
343401
343472
750200
601556

0147V1
01471
01472
01473
01474
(111475
(111476
01477
01500
01501

20343 1
707544
777374

Vl142?

01423
01424
01425
01426

040030

21013364
040(1131
101701
eI~0100

601657
200030

PAGE

RANDEX

01'502
01503

7402()l0

~lA

f-01657

VllS04

?Vl~432

JMP ERRRAR
LAC TYTHOU

~1505

707544

01506
01'507
01510
01511
01512

203404
014 (1\ ~~ lei

01 1'513

01514
01515
01516

777400
~43440

143437
2044C'!2
503421
043473
22V'1010

01517

1015M~

01520
01 5 21
01522
011523
01524
0152f5
01526

443440

01527
01530
01531
01532
01533
01534
01535
01536
01537
01540
01541
01542
01543
01544
01545
01546
01547
0155V'1
01551
131552
01553
01554
01555
01556
f/!1557

0156()l
01561
01562
01563
01564

601516
203437
503421
043444

7700(110
520010
043450
HH560

203473
HH560
203437
7401001
503421

740200
601602

203472
063467
750001
34~031

040031
10V'14V'0
777400
100626
0040V'10
004403

443471
443442
6003 2 5
600121
143457
602562

~00000

740001

Ql43501
777775
043477

DTRE1~

Iwr

= VI?

INO
ISTOP TAPE
707544
IXOR I~TO "A"
/GrNERATE CKSMS ANn TEST SUM = 0eJ
LAC RADLOC
DAC 10
/SrTUP 10
LAW -400
nAC CNTR lAND COUNTER FOR
OlM CKSUMR
/PROCESSING, cERO CHECKSUM
LAC RUFFRS+2
AND SEVSEV
nAC REVCHK
ISAVE REVERSE CHrCK
LAC* 10
jGET NEXT DATAWORD
JMS XORSUM
IXOR INTO CHECKSUM
lSi! CNTR IOONE?
JMP .-3
INO
IYES, GET FINAL
LAC CKSUMR
IMASK
AND SEVSEV
OAC DATASM
lAND SAVE
LAw 10000 ILOAD AC wITH 770000
AND* 10
ICOMBINE WITH FORWARD CKSM
lAND SAVE
DAC FWDCHK
JMS XORSUM
ICOM8INE FWDCHK AND DATASM
LAC REVCHK
JMS XORSUM
ICOM8INE WITH REVCHK
LAC CKSUMR
CMA
AND SEVSEV
S~A
lIS RESULT 01
JMP ERRCKS
INO, ERROR
RADCHK
LAC RECORD
OAC* POSITN
IUPDATE POSITION TABLE
CLA!CMA
TAD CA
DAC CA
ISUBTRACT 1 FROM CA
JMS PREGEN
IGENERATE PATTERN
LAW -400 ICOMPARE AGAINST
JMS CODATA
IPATTERN OBTAINED
RANBFR
IFROM TAPE
RUFFRS+3
IANY READ ALL ERRORS
IS2 RAEFLG
INO, ANY DATA ERRORS
IS1 COCNTR
IYES, YES
JMP REREDA
JMP RDSWCH-2
INO, GO BACK
RASERR
D~M PASFLG
JMP SRHERR
ITC02 RANDOM EXERCISER - TAPE 2
IFORM 6-81T XOR OF AC AND CKSUMR
ISAVE RESULTS IN CKSUMR
XORSUM
~
CMA
DAC TEM1
LAW -3
OAC TALLY

PAGE

01565
01566
01567
01570
01571
(1)1572
01'573
01574
(1)1575

RANnEX
203~~1

744010
74?010
742010
742~10

01435011
50~421

243437
043437

01~76

2~3501

01~77

443477
601567
621560

01f,~0

01"131
01602
016133
0161214
0161215
01606
01607
01610
1211611
01612
131613
01614
01615
13 1 6 1 6
01617
01620
1211621
1211622
1211623
1211624
1211625
121 1626
01627
01630
1211631
1211632
121 1 6 33
1211634
1211635
1211636

01637
01640
1211641
01642
01643
1211644
01645
1211646
1211647
1211650
1211651
01652

102765
2VJ3472
11212670
20352'5
1V12633
203526
102633
11212714
203473
102670
21213527
102633
10 1 647
11212714
21213444
1026713
7602413
11212661
1030313
1131647
1 0 1653
102714
2121345121
1121267121
11211647
11212714
21213437
741211211211
51213421
12143437
10267121
HH653
203530
11212633
750001
0I4~471

6~H54e1

1210121000
203531
11212633
621647

DTRE15
LAC TEMl
RAL:CLL
RTL
RTL
RTL
OAC TEM1
AND SEVSEV
XOR CKSUMR
OAC CKSUMR
LAC TEM1
1St TALLY
JMP .-11
JMP .. XORSUM
ICHECKSUM ERROR TYPEOUT
JMS TYRALL
ERRCKS
LAC RECORD
ITYPE
JMS OPRINT
LAC (MESS2
ITYPE
JMS MSPRNT
LAC (MESS9
ITYPE
JMS MSPRNT
JMS CRLF
LAC REVCHK
ITYPE
JMS OPRINT
LAC (MESS10
ITYPE
JMS MSPRNT
ITYPE
JMS CKSTYP
JMS CRLF
LAC DATASM
ITYpE
JMS 0PRINT
LAW 24121
JMS TYPE
JMS TYDATA
ITYPE
JMS CKSTYP
JMS CALCTY
JMS CRLF
LAC rWDCHK
JMS OPRINT
ITYPE
ITYPE
JMS CKSTYP
JMS CRLF
LAC CKSUMR
CMA
AND SEVSEV
DAC CKSUMR
ITVPE
JMS OPRINT
JMS CALCTY
LAC (MESS11
ITYPE
JMS MSPRNT
CLA:CMA
OAC RAEFLG
JMP RADCHK
1Il
CKSTYP
LAC (MESS12
JMS MSPRNT
JMP.. CKSTYP

ITVPE OUT HEADER
OUT BLOCK NUMBER
"BLOCK"
"CKSUM ERROR"
OUT REVCHECK
"REV"
"CHKSUM"
DATA SUM

"CHKSUM"

FORWARD CHECKSUM
"CHKSUM"

CALcULATED CKSM
"L.p.B."

PAGE

OTRE15

i8
01653
01654

00,rt~0

CALCTY

?0~532

Vlln55

V'J1656

102633
621653

V'J1657

1027?6

(MESS13
JMS MSPRNT
JMP* CALCTY
IREAD ALL STATUS ERROR TYPEOUT
rRRRAR
JMS ERSTP ISTOP TAPE
JMS TYRALL
ITYPE HEADER
LAC RECORD
JMS OPRINT
ITYPE OUT BLOCK NUMBER
LAC (MESS2
JMS MSPRNT
ITYPE "BLOCK"
707572
/RFAD "8"
JMS OPRINT
ITYPE OUT B
LAC (MESS3
JMS MSPRNT
ITYpE "STATUS R"
LAC WC
JMS OPRINT
ITYPE OUT WORD COUNT
LAC (MESS4
JMS MSPRNT
ITYPE "W.C."
LAS
SPA!CLA
ISTOP ON ERROR?
XX
/YES
JMP REWORV
IWAIT FOR INTERRUPT ROUTINE
ISYNCHRONI~E PROCESSOR TESTS
WATINT
0
LAC (JMP I RECD
DAC 1
LAW -4
DAC WTCNTR
/INITIALIlE COUNTER FOR 5 SECONDS
707552
IREAD "A"
AND SEVEN+3
17000
S~A
lIS FUNCTION "MOVE"
JMP .+3
INO, 5 SEC. OK
LAW -30
ICHANGE COUNTER
OAC WTCNTR
ITO 45 SEC.
IS~ FRSWAT
IFIRST PROGRAM WAIT?
JMP RESETD
INO, RESTORE AC AND L
JMS SETIDX
IYES, SET UP
ION
ITURN ON PI
JMP IS~TST
IGO TO FIRST TEST
RESETD
D~M FRSWAT
IINDICATE NOT FIRST WAIT
rSr PICNTR
ICOUNT PI COUNTER
SKP
INOT ~ERO
JMS SETIDX
IlERO
LAC 0
OAC* PIDEX1
ISAVE OLD PC
IS~ PIOE Xl
LAC 0
RAL
IRESTORE LINK
LAC ACCUM /RESTORE AC
ION
ITURN ON PI
JMP* 0
IEXIT
IINTERRUPT RETURNS HERE
tRECD OAC ACCUM /SAVE AC

VI 16M'!

lv~2765

01661
(/11062
01f163
01664

203472

102670
?03533
1112633

Vl166~

7"'7572

01666
01667

102670
203534
102633
200030
102670
203535
102633

(111670

01671
01672
01673
(111674
01675
01676
01677
0170'"

01701
01702
01703
01704
~1705

01706
01707
(111710
01711
01712
01713
01714
01715

01716
01717

01720
01721
01722
01723
01724
01725
01726

7500Vl4
751100
740040
600361
000000
2035~6

040.001
777774

043507
707552
503416
740200
601714
777750

04351717
443447
601721
102015
7130042
6132046
143447
443460

741000
102015

200000

01730
01731
01732
01733
01734

063461
443461
201?0013
740010
203433
700042
620000

01735

043433

01.727

l ~r.

PAGE

RANOEX

~1736

7~76nl

~1737

74HH1Vl
601743

01740
~1741

7~7561

01742
01743

6017~2

~1744

~43476

01745
01746

22 1701
740001
50.3476
741200
441701
441701
20170.1
063462
443462
203435
503373
el4343'5
621701

~1747

01750
~1751

~1752

~1753

01754
017'55
01756
el1757
01760
01761

70.7572

DTRE15
ISKIP ON OTF
INONE
IOtCTAPE FLAG
15KIP ON ERROR FLAG
7075Al
JMP r--JOTSKP
INa DEC TAPE FLAGS
IRE"AD "8"
707572
ISAVE B
DAr. S8RECO
LAC* IoIATINT
IcOMPARE FLAGS SET
CMA
AND S8RECO
IAGAINST FLAGS ALLOWED
IANy ILLEGAL?
SNA
1St WATINT
INa, INCREMENT TWICE
IYES, INCREMENT ONCE
1St ~ATINT
LAC WATINT
1 5 AVE C(WATINT)
DAC* PIOE X2
IMORE POINTER
IS2 PIDE X2
ICLEAN UP
LAC BLKFND
IBLOCK NUMBER
AND INOEP
[lAC 8LKFNO
IFROM TAPE
IExIT
JMP* WATINT
.EJECT
7076~1

SKP
JMP • + 3

RANO[X

OTRE1e;

7f)?
01763
01764

102726
203537
102633

NOTSKp

Vl176~

6"'?0~5

PAGE

01766
01767
01770
01771
01772
01773
01774
~h 77~

01776
~1777

02000
02!IJ01
0201)2

02003
02004
02005
02006
02007
02010
02011
02012
02rtJ13
02014
0201C;
02016
02017
02020
02021
02022
02023
02024
0202"5
02045
02045
02046
02047
02"'50
02051
02052
0212153
02054
02055
02056
02057
02060
0212161
02062
0.2063
02064

0091(~00

443507
621766
7000 L2
707601
741000
601777
707561
740001
043476
. 1027~6
203540
102633
443476
60?0917
20~541

102633
203542
102633
441701
750001
043447
621701
0000~0

777772
~43460

202025
~43461

20(>045
043462
622015
002026
002035
7591001
042204
142201
142200
442200
442201
602052
202201
740200
740040
750001
342200
7402e0

740040
442204

JMS ERSTP ISTOP TAPE
LAC (MESS14
ITYP[ "PI"
JMS MSPRNT
JMP PTSTNS
PTSTNO
0
IS2 WTCNTR
I~AITEO LONG ENOUGH?
IN~. 00 NEXT TEST
JMP* PTSTND
IYES, TURN OFF PI
rOF+10
7076~1
ISKIP ON OTF
SKP
JMP .+3
707561
ISKlp ON ERROR FLAG
INO FLAGS, STORE -1
CMA
lOR 0 IF ANY FLAG
DAC SBRECO
JMS ERSTP ISTOP TAPE
LAC (MESS15
ITYPE "NO PI"
JMS MSPRNT
IANY D[CTAPE FLAGS
1St SBRECO
IYES
JMP PTSTNS+2
PTSTNS
LAC (MESS16
ITYPE "NO"
JMS MSPRNT
LAC (MESS17
JMS MSPRNT
ITYpE "OECTAPE SKIp"
IS r WATINT
CLA!CMA
OAC FRS~AT
JMP* WATINT
SETIDX
0
LAW -6
DAC PICNTR
LAC PITBL
OAC PIoEX1
LAC PIRTBL
DAC PIDEX2
JMPit SETIDX
PITBL . + 1
PITBL+20
.LOC
PIRTBL
.-10
IPROCESSOR TESTS, RUN WHILE WAITING FOR INTERRUPT
IISl TEST - 2.6 SECONDS
ISlTST
CLA!CMA
OAC TEST5
OlM TEST2
DlM TEST1
ISl TESTl
1St TEST2
JMP .-2
LAC TEST2
S~A

XX
CLA!CMA
TAO TEST1
SlA
XX
1St TEST5

PAGE

21
02'~6,)

V!2066
02067
1I!2070
V'211!71
(1)2072
(11;;'073
0?074
Vl2P7S
1I!2076
~~2~~77

021011!
02101
02102
02103
02104
02 HP:;

RANOEX

DTRE1e;

741000
6020f51
101766

SKP
JMP 15~TST+3
JMS PTSTND
/ROTATE 1 TEST - 3.9 SECONDS
ROT iTS
LAC TEST2
CLL!CML
RAR
RAL
SNL

20?2V'J1
744002
7411!0?0
7400H'l
740400
740040
74vHHH
343401
342201
740211!0
740040
442201
602070
HH766

V'J2106
02107
0211V!
02111
02112
02113
0211 4

202201
744000
742010
742020
741400
740040

~;;'115

02116
02117
02120
02121
02122
02123

343401
342201
740200
740040
442201
602106
101766

02124
!t!2125
02126
02127
02130
02131
02132
02133

142203
2022V'J3
542203
7410\?l0
740040
442203
602125
101766

02134
02135
02136
02137
02140
02141
02142
02143
!t!2144
02145
02146
02147

7762V'J0
042200
777600
V'J42201
203543
042202
202?05
!t!42203
745000
202203
062202
442203

74~011!1

XX
CMA
TAD ONE
TAO TEST2
Si!A

XX
IS~ TE5T2
JMP ROT1TS
JMS PTSTND
/ROTATE 2 TEST - 3.9 SECONDS
ROT2TS
LAC TEST2
CLL
RTL
RTR
Si!L

XX
CMA
TAD ONE
TAD TE5T2
S~A

XX
15i! TEST2
JMP ROT2TS
JMS PTSTND
/SAD TEST - 2.1 SECONDS
SADTST
Di!M TEST4
LAC TEST4
SAD TEST4
SKP

XX
15~ TE5T4
JMP SAOTST+l
JMS PTSTND
/JM5 TEST - 3 SECONDS
JMSTST
LA~ -1600
OAe TEST1 11600 LOOPS
LAW -200
OAC TEST2 /200 JMS •
LAC (6000
nAC TEST3 /FIRST ADDRESS OF JMS
LAC JMSCON
OAC TEST4
SKP!r:LL
LAC TE5T4
OAC. TEST3
IS~ TEST4

PAGE

DTRE15

22
~;?15V'

44~20~

02151

44(>201

~215~

/S02145

02153
02154
0215'5
0215A
02157
0216V'!
02161
02162

202206

(112t6~

021"4
02165
02166
02167
02170
02171
02172
02173
··02174
02175
02176
02177
0220(11
02201
02202
02203
02204
02205
02206

(1162202
606000
7776W0

(1142201
402140
0422912
741000
202202
740001
362202
503375
740200
740040
442202
442201
A021A3
442200
602136
101766
602046
(11000(110
000000

0(;H1000
""00000

000000
106000
602156

~2207

0(11~(II00

02210
02211
02212
02213
02214
02215
02216
02217
0222(11
02221
02222
02223
02224

102225
203377
243506
707545
HH701
500000
602336
7500(111
063467
063445
102244
602211
622207

02225
02226
02227
0223(11
02231
02232
02233
02234

00(11(1100
143436
203430
(1143443
203453
503443
150200
602242

1St TEST~
ISiZ TEST2
JMP .-5
LAC RETJMP
OAC* TEST3
JMP A000
LAW -2(110

JMPRET

DAr: TEST2
XCT JMSTST+4
nAC TEST3
SKP
LAC TEST3
CMA
TAD* TEST3
AND MASK
StA
XX

ISr TEST3
ISr TEST2
JMP .-10
ISr TEST1
JMP JMSTST+2
JMS PTSTNO
JMP ISrTST
TEST1 '"
TEST2 (1\
TEST3 0
TEST4 '"
TEST5 '"
JMSCON
JMS 6000
RETJMP
JMP JMPRET
IREWINO ALL SELECTED DRIVES TO REVERSE END tONE
REPOSI
0
JMS RSFDRV
/RESET POINTERS FOR FIRST DRIVE
LAC MOV8AK
IGET MORE BACKWARDS
XOR UNFUNC
ICOMBINE WITH UNIT NUMBER
707545
ICLEAR AND LOAD A
JMS WATINT
/WAIT
500000
/EXPECT END ~ONE AND EF
JMP MOVER IMOVE ERROR (INCORRECT STATUS>
CLA!CMA
DAC* POSITN
IINDICATE END ~ONE
lAND BACKWARElS
DAC* OIRECT
ISET UP NEXT DRIVE
JMS CHNGOR
IREWIND NEXT DRIVE
JMP REPOSI+2
JMP* REPOSI
IALl DRIVES IN END tONE, EXIT
IRESET CURRENT ORIVE POINTER TO FIRST ORIVE SELECTED
RSFORV
0
OtM CDRIVE
/tERO CURRENT ORIVE
LAC TWOHUN
/SET UP COMBIT
DAC COMBIT
LAC MSBITS
AND COMBIT
StA!ClA
lIS THIS DRIVE SELECTED
JMP RSFDRl
IYES, SE1pOINTER

PAGE

RANOEX

DTRE15

ClJ2235
ClJ2236

203443
744020

V12237

~4:\443

LAC COMBIT
IMOVE nRIVE 81T RIGHT
CLL!RAR
OAC COMBIT
IINCREMENT DRIVE NUMBER
ISr CDRIVE
JMP RSFORV+4
IHAVE FOUND FIRST DRIVE SELECTED
JMS GNPTRS
IGENERATE CONTROL POINTERS
RSFDRl
IEXIT
JMP* RSFDRV
ISELECT NEXT DRIVE OR RESET TO rIRST AND SKIP
Q!
CHNGDR
IGET DRIVE BIT
LAC COMBIT
IMOVE RIGHT
CLL!RAR
SNL
ICHECKED ALL DRIVES
INO
JMP .+4
IYES RESET TO FIRST
JMS RSFDRV
IINCREMENT
IS2 CHNGOR
lAND EXIT
JMP-o CHNGDR
DAC COMBIT
ISl CORIVE
AND MS8ITS
ITHIS DRIVE SELECTED?
SNA!CLA
INO
JMP CHNGDR+l
JMS GNPTRS
IGENERATE DRIVE" POINTERS
IEXIT
JMP* CHNGDR
IGENER~TE LAST RECMRD, DIRECTION AND UNIT NUMBER
IPOINTERS FOR DECTAPE rUNCTIONS
GNPTRS
IGET DRIVE NUMBER
LAC CORIVE '"
CLL:RAR
RAR
RTR
IREPOSITION FOR STORAGE
lIN UNIT FUNCTION REGISTER
DAC UNFUNC
LAC CORIVE
TAD PNTRS
ISET UP POSITION
DAC POSITN
LAC CDRIVE
TAO PNTRS+11
IDIRECTION AND
DAC DIRECT
LAC CDRIVE
TAD PNTRS+22
ILAST RLOCK BLOCK POINTERS
DAC LSTBLK
JMP-o GNPTRS
PNTRS • +1
.+10
.LOC
• +1
.+10
.LOC
• +1
.+10
.LOC
IMOVE ERROR
MOVER JMS .+2
JMP R[POSI+2
0,
JMS ERSTP ISTOP TAPE
ITYPE: OUT HEADER
JMS TYMoVE
IRE AD ItB"
707572

~2?4Vl

443436

ClJ2241

6~?231

0,224(>
02243

1022f3
622225

02244

~H'l~0(1l0

Vl2245

203443
744020
740400
61212254
10, 222 5
442244
622244
043443
443436
':>03453
751200
602245
10 22 63
622244

0224fJ
0,2247
02250,
0, 22 5 1
02252
02253
02254
02255
02256
02257
02260
0, 22 6 1
02262
02(>63
02264
02265
1212266
1212267
02270
02271
02272
02273
02274
0,2275
02276
Pl2277
02300
02301
02302
02303
02314
0,2314
02325
02325
02336
02336
1212337
02340,
02341
02342
02343

~0V'1000

203436
744020
74012120
742020
043506
203436
34230,3
043467
203436
342314
043445
203436
34.2325
043451
622263
0,02304
002315
00('326
10234121
602211
000,000
102726
102734
707572

PAGE

RANDEX

DTRE15

02344
02345
1112346
0234 7
02350
02351
02352

102670
203544
tta2633

02353
02354
02355
02356
02357
02360
02361
02362
02363
02364
02365
02366
0 2 367
02370
02371
02372
02373
02374
02375
02376
02377
02400
02401
02402
02403
02404
02405
02406
02407
02410
02411
02412
02413
02414
02415
O2416
02417
02420
02421
02422
02423
02424
02425
02426
02427

000000
203446
754200
740002
2 0 3425
741400
602364
740001
343401
343472
740001
343401
043500
203446
751200
203371
343412
343506
707545
203372
040031
75e001
043434
101701
000100
602503
102441
602412
602412
707554
602402
707552
740001
503432
343371
707544
203472
740001
343401
043500
750001
043434
101701
800100
682562

JMS OPRINT
ITYPE OUT A
LAC (MESS3
ITYPE "STATUS R"
JMS t-1SPRNT
LAS
SPA!CLA
XX
JMP* MOV[R+2
ISEARCH ROUTINE - FINO BLOCK INDICATED
IBY THE cONTENTS OF "RECORD" IN THE DIRECTION
IINDICATED BY "DIRFLG", 0-FWD, -1-8KWD
SEARCH
0
LAC DIRFLG
S2A!CLA!CLL
IFORWARD?
INO, BACKWARD
CML
LAC THREE ICOMPUTE
ITURN
S~L
IAROUND
JMP .+3
IPOINT
CMA
IF OR
TAD ONE
IDECTAPE
TAD RECORD
ISEARCH
CMA
lAND
TAD ONE
ISTORE
DAC TAPONT
LAC OIRFLG
SNA!CLA
IFWD OR BKWD?
LAC FTYTHO
IBKWD (40'('HUJ)
TAD SEAFOR
ISEARCH FORWARD
TAD UNFUNC
ICOMBINE IN UNIT NUMBER
ICLEAR AND LOAD HA"
707545
LAC loCON 18LKFNO
ISET UP CA
DAC CA
CLA!CMA
OAC RLKFLG
ISET UP BLKFLG
JMS WATINT
IDTF
100
JMP SRE~TS
IERROR, SEE Ir END ~ONE
JMS SRCONT
JMP SRTARN
IBLOCK = BLOCK rOUND
JMP SRTARN
IGONE PAST BLOCK
707544+10 ICLEAR AC, XOR A
JMP .-7
IHAVEN'T REACHED BLOCK YET
SRTARN
IREAD "A"
707552
CMA
AND TYTHOU
IMOTION BIT
TAD FTYTHO
140,000
IXOR "A" (TURN AROUND)
707544
LAC RECORD
CMA
TAO ONE
DAC TAPONT
15ET UP TAPONT
CLA!CMA
DAC BLKFLG
lAND BLKFLG
JMS WATINT
IWAIT
100
IOTr
JMP SRHERR
IERROR

75~004

751100
74"'040
622340

PAGE

:?';

RANnEX

1712 4 30

10?441

?2431
02432

62? 3') ~~
60(,')1)2
750001
343434
751201£'
60?'533
707544
6024?5

~2433
~2434

02435
0243A
02437
02440
02441
02442
02443
0 2 444
V'l244'5
0244A
02447
02450
02451
02452
1£'2453
02454
02455
02456
02457
02460
02461
02462
02463
02464
02465
02466
02467
0 2 470
02471
02472
02473
02474
02475
02476
1£'2477
02'500
02512'1
~2502

02503
02504
02505
02'506

17l00GW0

443434
7410V'l0
60 2 461
707552
503371
7502!i'l0
740001
7412'10
343401
343470
740001
343401
343435
7502(110
602562
203435
043470
343500
741200
622441
442441
755100
7400(112
707552
503371
741400
602500
7502CJ10
442441
622441
7512V'l0
442441
622441
707572
742010
7541V'1~

60?562

~2'j07

2~B5C'1~

~2"1C'1
~2511

74010\11
6~?'515

02512
02'513
02'51 4

343376
7501(110
602530

DTRE15
JMS SRCONT
ICHECK RELATION OF' 9LOCK
IFOUND ALOCK, rXIT
JMP* SEARCH
JMP SRHERR
CLA!CMA
TAD RLKFLG
IREAD ? 8LOCK NUMBERS
SN.A!CLA
IYES, CHANGE TO CONTINUOUS MODE
JMP SRCMOD
/XOR INTO "A" <CLEAR FLAGS)
707544
JMP .-13
IFIND RELATION OF RLOCK FOUND TO BLOCK
ISaUGHT AND TEST BLOCK NUMBERS TO BE CONSECUTIvE
SRCONT
IFIRST sLaCK NUMBER?
1St RLKFLG '"
INOT FIRST
SKP
IFIRST, JUST SAVE IT
JMP SRFBLK
7075'52
IREAD "A'/140,000
AND FTYTHO
IBACKWAROS
Si!A!CLA
IYES, -1
CMA
SNA
IFORWARD, +1
TAD ONE
ILAST BLOCK +1 OR -1
TAD PREBLK
CMA
TAD ONE
TAO 8LKFND
S~A!CLA
ISLOCKS CONSECUTIVE
INO, ERROR
JMP SRHERR
SRFBLK
LAC BLKFND
OAC PREBLK
TAO TAPONT
IFOUND BLOCK?
SNA
JMP~ SRCONT
lyES
ISr SRCONT
IBLKFND GREATER
SPA!CLA!CLL
INO, LESS
CML
707552
IREAD A
140,000
AND FTYTHO
Si!L
JMP .+4
IIF FORWARD HAVE GONE PAST
S~A!CLA
IBACKWARD
TS~ SRCONT
JMPo SRCONT
SNA!CLA
IS~ SRCONT
JMPo SRCONT
IREAO "8"
SRE~TS
707572
IMrVE Ei! BIT INTO 0
RTL
lEND i!ONE INTERRUPT?
SMA!CLA!CLL
INa, SOME OTHER
JMP SRHERR
LAC TAPONT
IBLOCK 0 OR 1
SMA
JMP .+4
TAO MBLOCK
SMA!CLA
IBLOCK 1077 OR 1100?
JMP .+14 INO, TURN AROUND

PAr.E

RA\Jl[X

I'" ?') 1 S

7 '5 (~,j v' 4

02'116

742v~1 ~

\-12'117

740f)"1 ~

1ij2')2~

75n1V'vI

02'521

602412
?0343?
707544
101701

0?5~2

(II?523
V1?524
(112);2'5
02');:>6

02'527
k} 2 5 3 0
02')31
02532
V12533
02534
02535
0;:>536
02537
02')40
02541
02542
02543
02544
02t)4t)
02'546
02')47
02550
02551
02552
02553
02554
02555
02556
02557
02'560
liI2561

02562
02563
02564
"'2565
02566
02567
02570
02571
0~57?

02'573
0?'574
02-57'5
0257A
02577
02600
02601
02602

~~W0\~0

6025A?
602412
443434
602562
602412
203435
740001
34~401
34~472

741100
60:::?543
74(11001
343401
040030
203423
707544
HH7011
000,100

602562
203435
74~HHH

343401
343472
75V120Ql
602'562
203423
707544
6223'53
102726
102743
203472
102670
203545
10(>633
203446
751200
602575
1031(1\0

741000
103H'4
10?714
2034~5

10?670
203546
102633

DT~E1r;

lAS
RTL
RAL
SMA!CLA
II\J F W FnRMAT TAPE?
IYES, TURN AROUNO
JMP SRTARN
LAC TYTHOU
120,~0Q1
IXOR INTO "A" (GO AGAIN)
707544
IWAIT FOR Et
JMS WATINT
'50Vl~H~0
IERROR, ENn tONE
JMP SRHERR
JMP SRTARN
ISt RLKFLG
INoT FIRST INTERRUpT
JMP SRHERR
lEt IS ERROR
ITURN AROUND
JMP SRTARN
IFINn DIFFERENCE
SRCMOD
LAC 8LKFND
CMA
lIN NUMBER
TAO ONE
IOF
TA[) RECORD
IBLOCKS
SPA
JMP .+3
IMAKE NEGATIVE
CMA
TAO ONE
IF OR WORD COUNT
DAC WC
LAC TENTHO
110,000 <CONTINUOUS)
IXOR INTO "A"
707544
JMS WATINT
IDTF
100
JMP SRHERR
INOT NORMAL INTERRUPT
LAC 8LKFND
CMA
TAD ONE
TAD RECORD
ICORRECT BLOCK?
S~A!CLA
INO, ERROR
JMP SRHERR
110,000
LAC TEN THO
707544
IXOR INTO "A" <CLEAR CONT)
JMP* SEARCH
ISEARCH ERROR TYpEOUT
JMS ERSTP ISTOP TAPE
SRHERR
ITYPE HEADER
JMS TYSRCH
LAC RECORD
ITYPE sLOCK NUMBER
JMS OPRINT
LAC (MESS18
JMS'MSPRNT
ITYPE "BLOCK WANTED
LAC OIRFLG
SNA!CLA
JMP .+3
JMS TYBKW /TYPE 8ACKWARDS
SKP
JMS TYFWO ITYPE FORWARD
JMS CRLF
LAC 8LKFND
JMS OPRINT
ITYPE BLOCK FOUND
LAC (MESS19
ITYPE "BLOCK rOUND!
JMS MSPRNT

PAGE

RANn(X

(~? f '" ~

750.~~~1

~)?604

3434~4

~260"

751100
602613
203470

D'26v'6
~2607

02f..1V'

HJ267~

Vl?~ll

(>kL~c;47

v'261~

10;:>633

0;;>613

44~434

02614

74 D'0v'0

'~2A1S

02f-11S
1'(>"'17
~2b2~

02621
02622
~12623

02f24
0262~

02626
.02627
02630

?~~ 3 4 ~ 4

10(>6 7 0
?035,)0
102633
707572
H'J2670
203551
H'l2633
750'-104
751100
740040
443457

02~31

6~H:~361

02632

602354

~2633

000000
503552
043466
750004
740010
751100
622633
223466
742020
742020
742020
742020
740020
102661
543411
622633
223466
102661
'543411
62;:>633
443466
60(>636

V12634
?2635
~2636

02637
02640
02641
0264;:>
02~43

02044
02645
02646
02647
02650
026'51
02652
~2653

02654
02655
02656

02657
021'6~

~2b61

(-'I~W0ri'0

0266?

503411

~2A63

70~4(.'!6

02664
0266'5
02666
02667

7e1~401

61!l?664
700402
622661

DTRE15
CLA~rMA

TAD RLKFLG
SPA:CLA
JMp .+5
LAC PREBLK
ITYPE PREVIOUS BLOCK
JMS OPRINT
LAC (MESS2~
ITYPE "LAST BLOCK"
JMS t-1SPRNT
1St 8LKFLG
NOP
LAC RLKFLG
JMS OPRINT
ITYPE OUT QUANTITY OF BLOCKS
l.AC (MESS21
ITYPE "BLOCKS READ"
JMS MSPRNT
IRFAD "B"
707572
ITYPE OUT B
JMS OPRINT
LAC (MESS3
ITypE "STATUS A"
JMS MSPRNT
LAS
/HALT ON ERROR?
SPA!CLA
IYES
XX
ISECOND ERROR?
1St PASFLG
/YES, REWIND DRIVE
JMP REWDRV
INO, SEARCH AGAIN
JMP SEARCH+1
ITYP[ TEXT ROUTINE
MSPRNT
~
AND (7777
DAC PNTR4
LAS
RAL
SPA!CLA
JMP .. MSPRNT
LAC .. PNTR4
RTP
RTR
RTR
RTR
RAR
JMS TYPE
SAD RUBOUT
..IMP .. MSPRNT
LAC .. PNTR4
JMS TYPE
SAO RU80UT
JMP .. MSPRNT
lS2 PNTR4
JMP MSPRNT+3
TYPE 0
AND qUBOUT
TLS
TSF
JMP .-1
TCF
JMP .. TYPE
ITYPE OUT CONTENTS OF AC IN OCTAL

PAGE

R" ~~!1 E'J:

DTRE1'5

f!l?t..7()

vhhW?0

OPRINT

02671
0?67?
02(,73

04~5""4

[lAC

750CW4

LAS
RAL
SPA:CLA
J"'1P* QPRINT
LAW -6
OAr r:NTRl
LAC TE"'14
RAL:CLL
RAL
RTL
OAC TE"'14
AND SEVEN
XOR ASC I I
JMS TYPE
LAC TEM4
IStz r:NTR1
J"'1P .-10
JMP* OPRINT

~2('74

02675
0267f,
'112677
0(17(1H'I
02701
02702
02703
02704
02705
02706
0,2707
0,2710
02711
Vl2712
02713
02714
02715
02716
02717
0272002721
02722
02723
02724
02725

74r~10

7511V'v)
(, 2? 6 7~'

777772
~43441

203504
744010
74(i1~~1C~

74?01~

0435?4
503413
243363
102601
203504
443441
602702
(-2?67~
00V10~0

CRLF

75001214
740010
7511''10
622714
760215
102661
760212
102661
622714

LAS
RAL
SPA!CLA
JMP* CRLF
LAW 215
JMS TYPE
LAw 212
JMS TYPE
JMP* CRLF
ISTOP TAPE ON ERROR, LEAVE FLAGS SET
ERSTP 0
IRE"AD "A"
707552
ISTOP
AND TYTHOU
IDON'T CLEAR DTF AND EF
TAO RU80UT
707544
IXOR INTO "Aft
JMP* ERSTP
ITYPE "MOVE" AND DIRECTION
(2]
TY"'1oVE
JMS TYDRV
LAC (MESS22
JMS MSPRNT
J"'1S TYOIR
JMS CRLF
J"'1P* TYMOVE
ITYPE SEARCH DIRECTION AND MODE
TYSRCH
0
JMS TYDRV
JMS cRLF
LAC (MESS23
JMS MSPRNT
JMS TYDIR
JMS TYMODE
JMS CRLF"
JMP* TYSRCH

02726
02727
02730
0 2 73 1
02732
02733

00000,0
707552
503432
343411
7rtl7544
62?726

02734
"'2735
02736
02737
02740
02741
02742

103040
203553
102633
l030'16
102714
622734

02743
02744
02745
0274(02747
02750
02751
02752
02753

(i1
TE"'14

00(110~H~

00091?(.iJ
103040

102714
203'5")4

n1?633
1031il56
10~070

102714
622743

pAGE

'29

"'275 4

RA~nEX

~0'~vW0

~\275"

10311 4 0

~275f

10?71.4

~2757

HB020

0276V

103~3fA

02761

10~vJ~6

2 76'

103"70
10(,714
62;:>7'54

~~2763
~~;:> 764

,~2765

1':2766

00 ~JI~", r;r. 0
10:~ {' 4 0

0.2767
0277'"
02771
02772
02773
02774

102714
103020
10312134
103056

~2775

t2?765

10307~

10'714

02776

~00000

~2777

103040
102714
10391?4
1039130
103056
103070
102714
622776

039100
03:HH
03~~0?

12l3;i1 03
03004
031710'3
03006
03007

00"'~1110

03~1Ci'l

103040
102714
103024
103034
1030'36
103070
102714
623007

913011

03?'12
03013
03014
03015
03016
03017
03020
03 0 22
12l3V123

00000.0
2035'35
1 0 2633
623020

~31l121

~39!24

"'00000

03025
113'''26
03027

21213556
102633
n2312l24

'13 03~

000000

03031

203557
102633
623030

03~32

03033

DTRE15
/TYPE "READ nATA" nlREcTION AND MODE
~
TYRDAT
JMS TYORV
JMS ~RLF
JMS TYREAD
JMS TYOATA
JMS TYOIR
JMS TYMODE
JMS r;RLF
JMP* TYROAT
/TYPE "READ ALL" DIRECTION AND MODE
0
TYRALL
JMS TYORV
JMS CRLF
JMS TYREAO
JMS TYALL
JMS TYDIR
JMS TYMOOE
JMS CRLF
JMP* TYRALL
/TYPE "WRITE DATA" DIRECTION AND MODE
TYWDAT
JMS TYORV '"
JMS CRLF
JMS TYWRIT
JMS TYDATA
JMS TYDIR
JMS TYMODE
JMS CRLF
JMP* TYWDAT
/TYPE "WRITE ALL" DIRECTION AND MODE
TYWALL
0
JMS TvnRV
JMS GRLF
JMS TYWRIT
JMS TYALL
JMS TYDIR
JMS TYMODE
JMS CRLF
JMP* TYWALL
/TYPE "READ"
TYREAD
0
LAC (MESS24
JMS MSPRNT
JMP* TYREAn
/TYPE I, WR I TE"
TYWRIT
0
LAC (MESS25
JMS "1SPRNT
JMP* TYWRIT
/TYPE "DATA"
TYDATA
0
LAC (HESS26
JMS MSPRNT
JMP* TYDATA

PAGE

~CJI

R.llNnEX

(Jj~7I34

(,11001~00

;)0356'11

~1,~ \1\3

v!~~03A

1"'?6~3

Vl3 i1 37

6230,34

V'~V14Vl

"'(7)~vl00,

"'3~41

7500V!4

(7)30.42

740010

03i'143
03(144
Vl3 ii14 '5
03V146
03V147
1il305CJ1
03051
030'52
03053
03054
03CJ155
(7)3056
03057
(7)306(7)
03061
03062

7511~0,

623040
2CJ1~~5hl

102633
203436
741200
343422
243363
102661
102714
623040

(7)3064
(7J3CJ165
03(7J66
03067

00000(7)
707552
5133371
741200
6030A5
2035A2
7410(7)0
203563
1Vl2633
623056

Vl3070
03(7)71
03072
03Vl73
03Vl74
03075
(7J3076
03(7)77

707552
503423
741200
623070
203564
102633
62307(7)

03HJ0
03HH
03102
03103

0000(7)0
203565
102633
6231(7)0

CJl3104
03105
Vl3106
03107
03110
(7J3111
03112
03113
03114

VlVl0C1l(7J0
2035('6
1 0 2633
623104
21'5212
316317
240324
322301
316323

03CJ163

(7)~.H,!(7)(?\0

DTRE15
ITYP[ "ALL"
TYALL ~
LAr (MESS27
JMS '1SPRNT
JMP* TYALL
ITYPf f1RIVE ANfi NUMBER
TynRV ~~
LAS
RAL
SP.A!CLA
JMP* TYDRV
LAC (MESS28
JMS MSPRNT
LAC CDRIVE
SNA
TA[1 TEN
XQR

ASCII

JMS TYPE
JMS CRLF
JMP* TYDRV
ITYPE "FORWARD" OR "BACKWARD"
TYDIR CIl
IREAD "A"
7075'52
AND FTYTHO
1400(7J00
SNA
JMP • + 3
LAC (MESS29
IBACKWARD
SKP
IFORWARD
LAC (MESS30
JMS "1SPRNT
JMP* TYDIR
ITYPE "CONTINUOUS" IF NOT NORMAL MOOr
(7)
TYMODE
IREAD "A"
707552
AND TE~JTHO
/1''1000
SNA
JMP* TYMODE
LAC (MESS31
ITYPE "CONTINUOUS"
JMS MSPRNT
JMP* TYMODE
ITYPE "BACKWARD"
TYBKW 0
LAC (MESS29
JMS MSPRNT
JMP* TYBKW
ITYPE "FORWARD ft
TYFWD 0
LAC (MESS3Vl
JMS "1SPRNT
JMP* TYFWD
ICR,LF
MESS1 ?15212
IN,O
316317
ISP,T
240324
IR,A
3223~1
IN,S
316323

PAGE

RA"JnEx

OTRE1':>

IP.O
IR.T

\.13117

3232 4 0

320317
322324
323240

~312(l1

323~?-;

3233~5

03121
Vl312?
03123
0312 4
03125

~14305

3143~5

3~n3:?4

3033:?4

3 ;1'5 30 4

3~53C~4

21'3212

215212
3770(1)0

ICR,lF

?403~2

ISP,R

Vl311 S
0311f-

0312f-

32?317
~2?3?4

377~?0

?4?3V12
31 4 317

03127
0.3130
0,H31

313313
21"'212

~3132

377000

03133
(1)313 4
03135
0313(03137
03140
03141
03142
03143
03144
0314'5
(l)314A
03147
03150
03151
03152
(1)3153
03154
03155
0315A
03157
1713160
03161
03162
03163
(113164
0316'5
03166
03167

24~~323

~3170.

03171
03172
03173

3243(/'1
324325
323240
302215
212377
24(1)327
25631113
256215
212377
304301
240305
322322
317322
215212
3770(110
;:>4030l3
31 7 322
21 t5 212
377000
240311
316303
215212
377000
240301
3043(114
322323

MESS6

MESS7

MEssa

3~3215

24~322

03201

MESS5

306240
311316

~3203

03200

MESS4

24~317

~3202

0317»
0317A
1113177

314317
303313
215212
3770(1)0
MESS3 240323

3243~11

212377
303313
32332'
31»240
30»322
322317
322215
212377

~3174

MESS2

MESS9

MESS10

IS.SP
IS.E
Il.E

IC.T
IE.o
IR.o.
Il.O
IC.K
ICR.lF'

IR. O.
/SP,s

3243~1

IT,A

324325
3232417l
302215
212377
240327
25631713
256215
212377
304301
324301
240305
322322
317322
215212
377000
2403(J13
317322
215212
377000
240311
316303
215212
377000
2417l3(1)l
304304
322323
24171317
306240
311316
303215
212377
303313
323325
315240
305322
322317
322215
212377

/T,U
IS,SP

18,CR
IlF,R.O.
ISP,w

I,C
/,CR
IlF,RO

/o,A
IT,A
ISP,[
IR,R

IO,R
/CR,lF

IRa
ISP,C

IO,R
ICR,lF

IRa
ISP,l
IN,C
ICR,lF

IRa
ISP,A

10,0
IR,S
ISP,Q
IF,Sp

11,N
IC,CR
/IF,RO

IC,K
IS,U
IM,SP
IE,R

IR,O
IR,CR
IlF,RO
240322

ISP,R

PAGE

RANnEx

OTRE1')

03?~4

3~53?6

~053?6

03;;05

240377

03214
03215
03216
03217
03?2 01
03221
03222
03223
03224
03225
03226
03227
03230
03231
03232
03233
03234
k13?35
03?36
03237
03240
03241
1'J3242
03243
03244
03?45
03246
03247
0325ti1
03251
03252
0.3253
03254
03255
03?56
1713?57
03260
03261
03262

?4 (71:377
24'~31 4
2563;>0
25A302
?56215
212377
24013 01 3
310305
303313
2 4 0323
321=;315
377000
;:>403013
301314
3033?5
3143 0 1
32430.5
304377
215212
320.256
311256
240.377
215212
316317
;:>40320
256311
256377
240.316
317377
2403"'4
30531713
3243l1'll
320305
240323
313311
320215
212377
24"'302
314317
303313
240.327
301316
324305
304377
240302
31 4 317

~3?63

30~313

03264
V'l3?65

240306
317325
31fd(l14
215212
377000
240314
301323

Vl320A
03?(II7
"132101
03211
03212
0~~213

03;?6f-

03267
0327111
03271
03272

MESS11
?5~320
2563~2

256215
212377

IE,V
ISP,RO
240314
/. , P
I. ,8
I. , CR
ILF,RO
24~1303

MESS12
3103l~5

IH,E

303313
240323
325315
3770010

ISP,S
IU,M

MESS13
301314
3033;:>5
3143""1
324305
304377
MESS14
320256
311256
241?1377
MESS15
316317
240320
2563J1
256377
MESS16
317377
MESS17

MESS18
314317
303313
240327
301316
3243"'5
304377
MESS19

IRO
240303
IA,l

ISP,C

/C,U
Il,A

/T,E

IO,RO
215212

/CR,LF

ISP,RO
215212

ICR,LF

IP, •
II,.
IN,O

ISP,P
I. , I
I. , RO
240316

ISP,N

IO,RO
ISP,O

IE,C
IT,A
IP,E
ISP,S
IK, I
IP,CR
ILF,RO
240302

ISP,B

IL,O
IC,K
ISP,W

IA,N
IT,E
IO,RO
240302

ISP,B

IL,O
IC,K

314317
303313
240306
317325
316304
215212
377000

IRO

301323

240314
lA,S

MESS20

ISP,C

IC,K

240304
305303
324301
320305
240323
313311
320215
212377

ISP,L

/SP,F

IO,U
IN,O
ICR,LF
ISP,L

PAGE

RANnEX

DTRE15
IT,SP
/8,C

~3273

324?4~

32424~

~3274

3~?,"314

302314

1113/75
03276
03)77

3173!1'3

IO,C

313215
?1?377

IK,CR
ILF,CR

~3304

317303
313215
21?:n7
240302
314317
303313
323240
322305

03305

3013~4

IA,O

Vl330f,

215212
377000
215212
315317

215212
377000

ICq,LF

~3300
L~3301

03302
~3303

;(\3307
033H'I
03311
03312
03313
03314
0~~315

03316
03317
033?0
03321
03322
(113323
03324
0332'5
03326
03327
03330
03331
03332
03333
03334
03335
03336
03337
03340
03341
03342
03343
03344
03345
03346
03347
03350
03351
0335?
03353
03354
0335'5
~3356

7
03360
03361
(~335

MESS?l

3223~5

315317
3263"'5
24C?1377
MESS23
301322
303310
240377
MESS24
301304
240377
MESS25
311324
305240
3770~0

MESS26

IRO
/M,O
/V,E
ISP,RQ
323305
IA,R
/C,H
ISP,RO
322305

MESS27
314240
377000
MESS28
215212
304322
3113?6
305240
240377
MESS29
303313
327301

ISP,RO
3273?2
/1.T
IE,SP

ISP,RQ
301314
Il,SP

316324
311316
325317
325323

IO,A
IA,l
/CR,lF

IO,R
II,V
IE,SP
/SP,RO
302301
ICK

IS,A

hJ,A

IR,D

3770~0

IW,R

IRO
215212
/CR,LF

ISP,RO
306317
IRdr4
IA,R
IO,SP

~ESS31

/R,E

IT,A

240377
322327
301322
304240

IS,E

IRO

3223~4

MESS30

ICR,LF

IA,D

304301
324301
240377

ISP,R

/L,Q
IC,K
IS,SP
IR,E

?1~212

MESS22

326~~OI5

240377
3233015
301322
303310
240377
322305
301304
?4V'!377
327322
311324
305240
377000
304301
324301
240377
301314
314240
377001'"
215212
215212
304322
311326
305240
240377
3023(111
303313
327301
322304
240377
306317
322327
301322
304240
3770"'0
303317
316324
311316
325317
325323

?4!i'302

31431 7
303313
323240

IRa
303317
IN,T
II,N

IU,O
IU,S

/F,O

le,o

PAGE

RANr'lEX

'~3 3 6?

?4~~77

v)3363

vV\fl'?A0

03364

0.0 4 ,377

0~-565

00500V'!

~3~6f,

00?315

'~3367

(~1 t:; 0(/1 (,II

0;q70

'-"05\~00

~337'1

0401;1(il11
003435
V'lVl1777

~337?
~n373

03374
03375

0(,11?326

034_0?

017777
7767Vt0
060400
400000
000001
001000

V'!3403

0'-"?304

03404
03405

0044 0 2
003777
004377

03376
"'3377

03400
~3401

~3406

03407
03410
03411
03412
03413
03414
03415
03416
03417
03420
03421
03422
03423
03424
0342'5
03426
03427
03430
03431
03432
03433
03434
03435
03436

~H?J4000

060400
01.30377
021400
00f?1007
000070
~H!10700

007000
070000
700000
V100077

000010
010000
000037
000003
003000
0130V10

000200
012000
020000
000000
0000V10

000000
00f?1(~(i'l0

03437

00vHHH~

(,113440

vH10000

~3441

0000Vl~

k13442
03443
03444
03445
03446

(iHiH~000

000000

vH!J0000

000"''''0
000000

DTRE15
24f?1377
/CONSTANTS
ASCII ?60
BF1LOC
BF2LOC
DIRTBL
FIFTHO
FlVTHO
FTYTHO
IDCON 8LKF\lD
INDEP 1777
LSTTBL
MASK 17777
M8LOCK
MOVBAK
MUCHQI 40Vl000
ONE
1
ONE THO
POSTBL
RADLOC
RBFLOC
RBUFND
R8UFST
REWIND
RUROUT
SEAFOR
SEVEN 7
70
700
7000
70000

/SP,RO
RUFFRS-1 ICONSTANT FOR nATA STORE
RUFFRS+400
/AODRESS OF SErOND BUFFER
PNTRS+12 /DIRECTION TABLE
15~00
/SEARCH TO WRITE CONT
5000
40000
/BACKWARO
/MASK FOR BLOCK NUMBER
PNTRS+?3 /LAST BLOCK WRITTEN TAALF
-1-11~0+1

060400

/-NUMBER OF BLOCKS
/MOVE BACKWARDS

1000
PNTRS+l
/DRIVE POSITION TABLE
AUFFRS+2 /LOCATION -1 OF FIRST DATA WORD (READ ALL)
RANBFR-1
RANBFR+377
RANBFR
060400
/MASK FOR 10-17
377
1?!214((10

7000~0

SEVSEv
TEN
10
TENTHO
TERSE V
THREE 3
TRETHO
TRTETH
TWOHUN
TWVTHO
TYTHOU
/VARIA8LES
ACCUM 0
RLKFLG
BLKFND
CDRIVE
CKSUMR
CNTR 0
CNTRl 0
COCNTR
COMBIT
OATASM
DIRECT
DIRFLG

/MASK

10000
37

/CONTINUOUS
/MAsK

3000
13000

/SEARCH TO READ
'/SEARCH TO READ CONTINUOUS

200
12000

20000

/SEARCH TO READ ALL CONTINUOUS
/GO, STOP

lAC AT P.I
~

/NUMBER OF BLOCK FOUND
/CURRENT DRIVE NUMBER
I?!
/CALCULATED CHrCKsUM
/EXTRA~EOUS COUNTER
/CDUNTER FOR OPRINT
~
/COMPARE ERROR FLAG
~
/BIT POSITION FOR TEST AGAINST S.R.
o
/SAVED DATA SUM
((I
/CONTAINS OIRrcTION READ
((I
/INDICATES DIRECTION TO GO
((I
((I

PAGE

RAI\.jDEX

~3447

~V'r;,~'~0

4 '5 ~~

0C11~~"'0

034~1

~H:'l0(?l0\~

~)45?

;;j;5453

0000.00
000000

0.~~454

000\~00

vB455

0000.00

0j45~

00(11~V'0

03457

vH~W0"'0

0346~

0.0.00V'0

03461
0.3462

000rlVl0
r!I\ih'!0C"0.

0~~463

00(l1v'0(1

:;1:~

03464
034615
03466
03467
03470
03471
03472
03473
03474
03475
1:13476
03477
0.3500
0350 1
03502
03503
03504
03505
03506
0~S'507

00(1!0(iH~

o elliHH'l 0
0V10'1e10
000.000
0000.(il0
000.000
0.0000.0
000000
000.000
00 (iHHHlI
000.000
000000
0.0.0000
000.000
000000
000000
000000
000000
000000
0000t1!0
~H10000

0.3"10
0.3511
03512
03'513
0.3514
0.3515
03516
03517
03520
03521
03'522
0.3523
03524
03'525
~'3526
~3C:;27

03530
(7,3531
03532
03533
V'3534

OTRE15
FRSWAT
rWOCHK
LSTBLK
LSTORV
MSBITS
NUMBER
NUMBLK
08VERS
PASrLG
PICNTR
PIDE X1
PIDE X2
PNTR1 0
PNTR2 0
PNTR3 0
PNTR4 12)
POSITN
PREBLK
RAEFLG
RECORD
REVCHK
RSQFLG
SAVNUM
SBRECD
TALLY 0.
TAPONT
TEM1 12)
TEM2 0
TEM3 0
TE M4 0
TRECTR
UNFUNC
WTCNTR
.END
003110
*L
oL
003126
oL
003133
003141
*L
oL
003413
oL
003145
oL
003126
003154
*L
oL
003160
003164
*L
003126
*L
ttL
003133
003141
*L
oL
003126
003174
*L
003203
*L
003206
*L
oL
003213
003221
*L
oL
003126
oL
003133

0
V'
0
0

'0"
0

0
0
0
0

/FORWARD CHECKSUM
/LAST BLOCK WRITTEN POINTER
INEGATIVE OF LAST ORIVE SELECTED
IHOLO UNIT BITS
ISTORE FOR MCOMOR
INUMBER OF ALOCKS WITH WHICH TO OPERATE
I08VERSE NUMBER

IPI COUNTER
IPI POINTER
(I!
IPI POINTER
/EXTRAI\JEOUS POINTER
IEXTRAI\.jEOUS POINTER
IPOINTER FOR MCOMOB
IPOINTER FOR MSPRNT'
~

0.
0

IREAD ALL ERROR FLAG

0.
0

IRE VERSE CHECK FROM TAPE

ISTORE NUMBER OF BLOCKS
QI
ISTATUS OF B
0.
ITALLY FOR MCOH08
ITURN AROUND POINT FOR SEARCH
0
ITEMP STORAGE
IFOR PATG£N
ISUBROUTINE
ISTDRAGE FOR OPRINT
ICOUNTER FOR WRITE DATA CONTINUOUS
0
IUNIT NUMBER
0
IWAIT COUNTER
0

PAGE

RANf)EX

DTRE15

73535

00~141

3"\~6

(?3542
03543
03544
(1'3545

601735
003227
003233
003240
003242
006000
003133
0032"52

~3546

~03261

"'3547

003271
003300
003133
007777
003310
003314
003320
003323
003327
003332
003335
003343
003350
003355
003343
003350
5I2E=03567

?3537
C"354V1
V3'541

~~3S50

03551
03552
03553
03554
03555
V'3556

V'3557
0356~

03'561
03562
03'563
03564
eJ3565
03566

*L
*L
*L
*L
*L
*L.
*L

*L
*L
*L
*L
*L
*L
*L
*L
*L

*L
*L
*L
*L
*L
*L
*L
*L
*L
*L
NO ERROR LINES

PAGE
ACCUM
ASC I I
AF1LOC
RF2LOC
RLKFLG
ALKFND
RUFFRS
r;A
CALCTY
CDRIVE
CHNGOR
CKSTYP
CKSUMR
CLOF
CLON
CLSF
CNTR
CNTRl
COCNTR
CODATA
COERRO
COERR1
COLOOP
COMBIT
CORT1R
CRLF
DATASM
DIRECT
DIRFLG
DIRT8L

EEM
ERRCKS
ERRRAR
ERSTP
EXIST
FIFTHO
FIVTHO
FRSWAT
FTYTHO
FWDCHK
GNPATR
GNPTRS
IOCON
INDEP
tREeD
JSlTST
JMPRfT
JMSCON
JMSTST
KRR
KSF
LEM
LOOP
LSTBLK
LSTDRV

RA~nEx

03433
03363
0331-4

03365
~3434

03435
~04400

0121012131
1211653
1213436

02244
"'1647
1213437

712112112104
712112112144
7121012101
03440
1213441
1213442
006?6
1210653
121121673
12112164121
1213443
121121763
1212714
1213444
1213445
1213446
12133f\6

71217702
1211602
1211657
12127?6
1210572
1213367
121337121
03447
1213371
1213450
1210444
1212263
1213372
1213373
1211735
121212146
1212156
02205
1212134
7003t2
7003~1

707704
~0501

1213451
03452

DTRE1~

PAGE

OTRE15

LSTTqL

03374

MASK
MBLOCK:

03376

MCOMOR

00467

MESS1

03110

MESS1 v]
,MESS 11
MESS12
MESS13
MESS14
MESS15
MESS16
MESS17
MESS18
MESS19
MESS2

03203
032')\6
03213

MESS2~

MESS21
M[SS22
MESS23
MESS24
M'[SS25
MESS26
MESS27
MESS28
MESS29
MESS3
MESS30
MESS31
MESSA
M£SS5
MESS6
MESS7
MESS8
MESS9
MOFPRO
MOFPR1
MOVBAK
MOVER
MSAITS
MSPRNT
MUCH0
MVDATA
NOOFRD
NOTSKP
NUMBER
NUMBLK
OBV[RS
ONE
ONE THO
OPRINT
PASFLG
PATGEN

per

PICNTR

03375

~3221

03227
03233
03240
03242
03252

03261
03126
03271
03300

03310
03314
i2J33?0
.03323

03327
03332
03335
03343
03133
03350

03355
03141
03145
03154

03160
03164
03174
00130
00145
03377
02336

03453
02633
03400
00607
01214
01762
03454
03455
03456
03401
03402
02670
03457
00417
70029.l2
03460

PAGE
PIDEX1
PIOEX2
PIRTRL
PIT8L
PNTRS
PNTR1
PNTR2
PNTR3
PNTR4
POSITN
POST8L
PRE8LK
PREGEI\J
PSA
PS8
PSF
PTSTND
PTSTNS
RADCHK
RADLOC
RAfFLG
RALLTS
RAN8FR
RANDEX
RANDl
RAND2
RAND3
RANSEL
RA5ERR
RBFLOC
RBUFND
RBUFST
RCF
RD8UF1
RDCERR
RDCMOD
RDDATA
RDSEQ
ROSWCH
RDTAR
RECORD
REPOSI
REREAD
REREDA
RESETO
RETJMP
REVCHK
REWCK
REwDRV
REWIND
ROT1TS
ROT2TS
RRB
RSA
RS8

RANnEx
034(,1
03462
02045
020?5
02303
03463
03464
V'l3465
03466
03467
03403
03470
0V'1400
7002~4

700244
700201
01766
02005
01540
03404
03471
01431
~040~0

00100
00516
00527
00540
00551
01556
034~5

03406
034et7
700102
01117
01314
01221
00253
01070
00123
00211
133472
132207
00272
00325
01721
02206
03473
01034
00361
03410
"'2070
02106
700112
700104
700144

DTRE15

PAGE

RU,JD EX

RSF
70Q11V'1
RSFORV
0222'5
02242
RSFORl
RSQFLG
03474
RUROUT
03411
00525
R1
00536
R2
0~547
R3
SAOTST
02124
SA""ORV
00231
SAVNUIv1
03475
SBR[CO
03476
SEAFOR
03412
SEARCH
02353
SETIOX
02015
SEVEN
03413
SEVSEV
034t21
SRCMOO
02533
SRCONT
02441
SREi!TS
02503
SRFBLK
02461
SRHERR
02562
SRTARN
02412
SWCMOL
01354
SWCMOO
01343
TALLY
03477
TAPONT
035vH'
TCF
700402
TEMl
035~1
TEM2
03502
TEM3
03503
TEM4
03504
TEN
03422
TENTHO
03423
TERSE V
03424
TEST1
02200
TEST2
02201
TEST3
02202
TEST4
02203
TEST5
02204
THREE
03425
TLS
700406
TRECTR
03505
TRETHO
03426
TRTETH
03427
TSF
700401
TWO HUN
03430
TWVTHO
03431
TYALL
03034
TY8KW
03100
TYOATA
03030
TYOIR
03056
TYORV
03040
TYfWO
03104
TYMOOE
03070

DTRE15

PAGE
TYMOVE
TYPE
TYRALL
TYRDAT
TYREAD
TYSRCH
TYTHOU
TYWALL
TYWOAT
TYWRIT
UNFUNC
WATINT
WG
WDGERR
WDGMOO
WDING
WRITE1
WRT1A
WSTERR
WTCNTR
XQRSUM
.EOT

RANOEX
1212734
~2661

0:?765
12127~4

03 121 ? 121
1212743
1213432
030~7

02776
03024
035~6

017V11
~"-'0030

01405
01332
01022
013721
1210775
~1042

03507
0156121
0000121

DTRtl';

PAGE
.EOT
WC
CA
RAr-..:DEx
ROSIot4C H
MOFP~O
~OFPR1

RDTA8
SA~ORV

ROOATA
REREAD
REREDA
REWORV
PREGEN
PATGEN
GNPATR
MCOMOB
LOOP
RAND1
R1
RAND2
R2
RAN03
R3
RANSEL
EXIST
MVOATA
CODATA
COLOOP
COERRO
COERR1
WRITE1
CORT1R
WRT1A
WDINC
REWCK
WSTERR
RDSEQ
RDBUF1
NDOFRD
ROC MOD
RDCERR
WDCMOD
SWCMOD
SWCMDL
WDCERR
RALlTS
RADCHK
RASERR
XORSUM
ERRCKS
CKSTYP
CAlCTY
ERRRAR
WATINT

Rf>f\jnEX
000P0
~00030

000031
0~10Vl

0V'1123
0121130
00145
00211
002;:ril
0121253
00272
003?5
00361
00400
00417
00444
00467
0f'l501
00516
00525
00527
00536
1210540
00547
00551
00572
00607
00626
00640
00653
00673
00721
00763
00775
01022
01034
01042
01070
01117
01214
01221
01314
01332
01343
01354
01405
01431
01540
01556
01560
1211602
01647

01653
01657
01701

DTRE15

PAGE
RESETl)
IRECO
NOTSKP
PTSTNf)
PTSTNS
SETIOX
PIT8L
PIRT8L
IS2TST
ROT1TS
ROT2TS
SAOTST
JMSTST
JMPRET
TEST1
TEST2
TEST3
TEST4
TEST5
JMSCON
RETJMP
REPOSI
RSF"ORV
RSF"OR1
CHNGOR
GNPTRS
PNTRS
MOVER
SEARCH
SRTARN
SRCQNT
SRF"BLK
SRE2TS
SRCMOD
SRHERR
MSPRNT
TYPE
OPRINT
CRLF"
ERSTP
TYMQVE
TYSRCH
TYROAT
TYRALL
TYWOAT
TYWALL
TYREAO
TYWRIT
TYI)ATA
TYALL
TYORV
TYI)IR
TY~OOE

TYAKW
TYF"WO

RANOEX
017?1
~1735

01762
"'1766
02005
02015
02025
02045
02046
02070
02106
02124
02134
02156
02200
022"'1
022"'2
022"'3
02204
02205
02206
02207
02225
02242
02244
02263
02303
02336
02353
02412
02441
024f11

025et3
02533
02562
02633
02661
. 02670
02714
02726
02734
02743
02754
02765
02776
03007
03020
03024
03030
03034
03040
03056
03070
03100
03104

OTRE15

PAGE
MESS1
MESS2
MESS3
.MESS4
MESS5
MESS6
MESS7
MESS8
MESS9
MESS1Vl
MESS11
MESS12
MESS13
MESS14
MESS15
MESS16
MESS17
MESS18
MESS19
MESS20
MESS2i
MESS22
MESS23
MESS24
MESS25
MESS26
MESS27
MESS28
MESS29
MESS30
MESS31
ASC I I
RF1LOC
RF2LOC
OIRTBL
FIFTHO
FIVTHO
FTYTHO
IOCON
INOEP
LSTT8L
MASK
M8LOCK
MOVBAK
MUCH0
ONF
ONfTHO
POSTBL
RAOLOC
RBFLOC
RBUFND
RBUFST
REWIND
RUBOUT
SEAFOR

RANOEX
03110
03126
03133
03141
03145
03154
03160
03164
03174
03203
03206
03213
03221
03227
03233
03240
03242
0·3252
03261
03271
03300
C!t3310
03314
03320
03323
03327
1213332
1213335
1213343
03350
03355
03363
03364
03365
03366
1213367
1213370
1213371
03372
1213373
1213374
03375
03376
03377
034"'0
03401
03402
03403·
03404
03405
03406
03407
121341121
03411
03412

DTRE1e;

PAGE

SEVEN
SEVSEV
TEN
TENTHO
TERSE V
THREE
TRETHO
TRTETH
TWOHUf\J
TWVTHO
TYTHOU
ACCUM
ALKFLG
ALKFNO
CDRIVE
CKSUMR
CNTR
CNTR1
COCNTR
COMBIT
DATASM
DIRECT
DIRFLG
FRSWAT
FWDCHK
LSTBLK
LSToRV
MSBITS
NUMBER
NUMBLK
OBVERS
PASFLG
PICNTR
PIDEX1
PIDEX2
PNTR1
PNTR2
PNTR3
PN·TR4
POSITN
PREBLK
RAEFLG
RECORD
REVCHK
RSQFLG
SAVNUM
SBRECD
TALLY
TAPONT
TEM1
TEM2
TEM3
TEM4
TRECTR
UNFUNC

RANDEX
03413
03421
03422
03423
03424
034?5
03426
03427
03430
03431
03432
03433
03434
03435
03436
03437
03440
03441
03442
03443
03444
03445
03446
03447
03450
03451
03452
034'53
03454
03455
03456
03457
03460
03461
03462
03463
03464
03465
03466
03467
03470
03471
03472
03473
03474
03475
03476
03477
03500
03501
03502
035"'3
03504
03505
03506

DTRE15

PAGE

RANOEX

WTCNTR
03507
RAN8FR
vH~4000
RUFFRS
eI~44e10
CLSF
700001
CLOF
700004
CLON
700044
RSF
700101
RCF
700102
RSA
700104
RR8
700112
RS8
700144
PSF
700201
PCF
70e1202
. 700204
PSA
PSB
700244
KSF
700301
KR8
700312
TSF
700401
TCF
700402
TLS
700406
EEM
707702
LEM
707704

DTRE15

MAIN DEC EVALUATION REQUEST
After sufficient familiarization with the operation and documentation of this MAIN DEC,
please indicate your assessment of the following areas and return this form to Digital Equipment Corporation.
IDENTIFICATION: MAINDEC NO. _ _ _ _ _ _ _ Program Title _ _ _ _ _ _ _ _ _ __

0 Production 0 Other_ _ _ _ _ _ _ _ _ _ _ _ _ __ o
Frequency of Usage: Daily 0
Weekly 0
Monthly 0

USAGE: Used by: Field Service

SUGGESTIONS FOR IMPROVEMENT
1. Are the program loading and operating instructions: c1ear?O, incomplete?
follow?O

0, difficult to

2. Do the error reports and program documentation provide sufficient diagnostic information.
in most cases?
in very few cases?O. Suggestions for improvement:
in all cases?

3. Is the program effective in isolating malfunctions: in all cases?O, in most cases ?D,
in ve/Y few cases? O. Would additional Scope loops or Switch Register control be helpful ? _ _
Suggestions for improvement:

4. Does the program ever fail to detect malfunctions exposed by other software ? _ _ _ _ _ _ _ __
Were Margins used?
Please describe malfunction in detail:

5. Does the program ever report non-existant malfunctions? _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __
Please indicate erroneous report and any pertinent operating conditions:

6. Does this MAIN DEC ever expose malfunctions in the Central Processor or other peripheral units not
detected by the appropriate MAINDEC?_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _~
Please describe malfunction and MAINDEC(S) used:

7. Does the documentRovide a general understanding of the functional programming requirements of
the system? Good
,FairO,
Nonen. Would a general description of programming requirements increase t e effectiveness of thi'slAAINDEC? _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __

Remarks:

......................................................................................... Fold Here ......................................................................................... .

............................................................................ Do Not Tear - Fold Here and Staple .•...............................................................

FIRST CLASS
PERMIT NO. 33
MAYNARD, MASS.
BUSINESS REPLY MAIL
NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES

Postage will be paid by:

momoamo
Digital Equipment Corporation
Diagnostic Programming Group
146 Main Street, Bui Iding 12
Maynard, Massachusetts 01754