Digital PDFs

MAINDEC-12-D3FB-D

1978

46 pages

Original

1.5MB

Document:	Tape Data Test
Order Number:	MAINDEC-12-D3FB-D
Revision:	0
Pages:	46
Original Filename:	http://bitsavers.org/pdf/dec/pdp12/diagnostics/MAINDEC-12-D3FB-D_Tape_Data_Test.pdf

OCR Text

IDENTIFICATION
PRODUCT CODE:

MAINDEC- l 2-03FB-D

PRODUCT NAME:

PDP-12 TAPE DATA TEST

DATE CREATED:

NOVEMBER,'l 197ji5

YJ.AINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

WALTER MANTER

The tape data test is des

to:

Test tape read and write ability in both pause and
pause mode.

Test read-write

Test a worst case read-write condition.

Provide a
0-777 us

Provide scope loops on all tests

fier recovery.

read-write scope loop over blocks
WRI and RDE instructions.

2.1
A)

standard PDP-12

TC-12, PDP-12

A ASR-33 teletype on equivalent

controller

2.2

Tape Data test should be preceded by tape control test
parts I and II and followed by tape Exerciser test.
2.3
This program uses instructions field 2 and data field 3
of core.
(locations
to 7777)
3.

LOADING PROCEDURE

3.1

This program

must be loaded with the binary loader.

Set the

reader switch to FREE.

Open the
reader and insert the program
tape so that
arrows on the ta~· are visible to
and pointing toward the operator.

Close the reader and set the reader switch to START

Set the teletype front panel switeh to ON LINE
-1-

Set the LEFT switches to 7777.

Set the RIGHT switches to 4¢¢{0.

Set the MODE switch to 8 mode.

Depress I/O preset

Depress START LS

When the program tape has been read the ACCUMULATOR
must be fO~fOfJ.
If it is not, a read in error has
occurred and one might try reloading the binary loader.

Remove the program tape from the reader

STARTING PROCEDURE
The setting of the LEFT, RIGHT and SENSE switches
normal operation is all switches fJ.
A)

Set the mode switch to L-MODE

Depress I/O Preset.

Depress START

The program is running; consult the
des

for

for test

-'•

5~1

}\.)

SNS

SNS 2

SNS 3

SNS 4

fO Fixed data pattern

SNS 4

l Random Data pattern (left and right switches
not both zero)

SNS 5

l long Scope loop test

Ignore any error
test
l

Loop on Write portion of test
of test

Loop on read

-2-

(left and right switches)

~.2

Left and Right Switches
Control fixed data pattern and determine starting point
of ramdom data pattern.

ERRORS

6.1

Error Halts
Correct interperation of error halts must be done
utilizing the program listing. All error halts are
documented and easily interperated in the program listing.

G.2

Error Printouts
,~one

6.3

Error Recovery
A)

KEY CONTINUE puts you back in the main program at the
start of test which failed.

If SENSE SWITCH ~ is set (depressed} the error is
ignored and program continues in normal sequence.

-3-

F'U:JN CHARTS FOR TAPE DATA TEST

Is sense
SW 5 set

Is sense
switch 4
reset

write A
fixed data
ttem.via
LSW & RSW

write a
1--~ randan data

pattern

Write
blocks
374-377

HLT with bad
checksum in
M;) good. in
AC

Key cont.
Yes
Written
4

blocks

t..-~..J:J;;~~~

LcxJp

Is
sense SW.
set

Write

'" Read

blobks
374-37

Error
_..__.....""-"'-I Is sense

SW fJ set

Yes

Is
sense SW

next sequential RW-

. HLT with bad!

1-...,,._,., data .in AC

ocrl~

II
I

t:__j

Is sense
switch 4

es Write a
fixed data
pattern vi
ISW & RSW

Ts sense
, switch 4
se

Write a
randan da
attern

Duplicate
data image
. to tape
ta area
for W:G

Read
blocks
374-377

Does tape
data equal
data image

Error

m:r with bad

1-L'llU.~~:r::--::::::::-:-;:::--~-;_ NO.___~data

.........

~ocrl

Yes

in AC,
in MZ
cont.

Clear
Tape Data

Duplicate

data image
into tape
data area
for w::x;

W:dte

blocks

t
Does

tapedata equal

data image ·

area

Error

·i

_IHLT with bad

,,,._I_s_sens--e--~data

I SW ~ set

-'-----~-=)Yes ,

in AC,
lqocrl in MJ
,Key

J.!es I
~

Clear tape
data area

Duplicate

ata image
into tape '
ta area fo
WCG

Write
Blocks
374-377

Executed
above instructions 4
times

RWl

Do reverse

Hlt with bad
dif. val. in
MQ good in

Error
Is
sense SW.
set
Yes

block # 's
occure in
sequence

cont.
Yes

Error
Is
sense SW.

Do foreward

block #'s
occure in
sequence

Hlt with bad

dif. val. in
MQ good in
AC

cont.
Yes
Error
Is
sense S'W
}1 set

Do reverse-

block #'s

Yes
Is
sense SW.

Hlt with bad

ldif. val. in
MQ :tood rn

Key cont.

~(Ye;

'
I

-1

Is sense
switch 4
res
Is sense
switch 4
set

yes

Write a randan-data
attem

Tape checksum equal to
our calcula
ed checksum

Error
Is sense
sw. f1 set

Hlt with bad
cksum in MJ
ocrl in AC
Key cont.

MTS.
o::ld num.

blks. 1-777

Is tJ1e difference equa
to zer¢

Error
s sense
SW.
set.
Yes

Error
sense SW
set

Hlt with bad
clif. val in
MO qocrl
Ke

OONE
~[Jf1

All reverse
block num's
all-ri ht

Hlt with di .
err. in AC
should be f1
KeJ:: cont.

I Yes

Is sense
switch 2 set
G

Read
even ntmlber
blks fJ-776

Ml'B

odd number

Done
4

Does tape

data area
a,iual data
irrB. e

Error

1-_:.:~~-Tis;;--;s~e~nse:;-;_;;;::;---__!_

SW. ~set

Yes

Hlt with badl
data in A12
ood in .MJ
Key cont.

Yes

Is seP...se
1------·-...;;;.;;--I switch 3

Is sense
switch l

set

I
I

Set up data
area

Write

Execute
RWSUB

f:\

blks )0-4)0

~~
Exeau.te
™SUB

Does tape
data equal
data image

blks 727-76

ves

Is sense
switch l
set

Write

!
!

Read

Does tape
. data equal

data image

Return to
RW12
routine

Set up data

Generate a

checksum on
data.,image
area

~ cksum

Error
Hl t with bad
equal to 01~--'ll Is sense
1---N=o-~ cksum in MJ I
calculated
SW
set
goodcont.
in AC
..___ _,c=c;;_._o
Ke

,__Y_e_s_____

Done
777

'----Y_e_s_-1Is sense

switch 2 set

j
I1

APPENDIX A
MEI!.ORY MAP

Loe ,~~~~~~~~~~~~~--,

PROGRAM
TAPE DATA TEST

Instruction
Field
2

5377

DATA' IMAGE AREA

5777
6{i1fiff0

(1 B1k long)

TAPE DATA AREA

(4 Blk 's lone)

F!iceld

7777

tl211J

4'120

ill0 lll1
i1lllllll2

/TDATA
TAPE DATA TEST
MA!NDEC 12~D3f -A
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP, ,MAYNARD, MA
/MA!NT !NER • DIAGNOSTIC GROOP
/AUTHOR - WALTER MANTER

lll011l3
lll004

01iHl5
0006

0007

00 Hl

/TOATAl TESTS

0011

I
I
I
I
I

i1llll12
0013

2H1l14
0015
11l016
0017

TAPE READ AND W !TE ABILITY IN BOTH PA
AND ND PAUSE MO
WRITE-READ AMPLIFIER RECOVERY
WORST CASE READ-WRITE CONDITIONS
LONG READ~WR!TE SCOPE LOOP OVER BLOCKS 0 TO 777

/SCOPE LOOPS ARE PROVIDED VIA THE

NSE SW I
I
/SENSE SW! TCH SETTINGS ARE
I
SNS '21 :: 1 IGNORE ANY ERROR
I
SNS 1 :: 1 LOOP ON PARTICULAR TEST
I
SNS 2 :: 1 LOOP ON WR TE PORTION OF
I
SNS 3 :: 1 LOOP ON READ PORTION OF T
I
SNS 4 " 1 FIXED DATA P TiERN <LEFT
I
SNS 4 :: 12!
RANDOM DATA AiTERN
I
SNS 5 :: 1
LONG
OPE LOOP TEST
I
I

00 20
0021

0022
0023
0024
0025
0026
0027
0031/l
0031
0032
0033

/NOTE: THIS PROGRAM WRITES OVER BLOCKS 0

OR A

0 777

WITCH

/START LOCATION 20

ll'H1l34

0035
0036
LM ODE

0037

0040
0041
0042
0043
£1044

*20
0020
0021

0465
6676

START,

SNS l 5
JMP LSCOPE

0045
0046

0047
0050

0051
0052

0053

0054

EJECT

/IS SNS SW 5 SET

/YES-GO TO LONG SCOPE LOOP ROUTINE

TCH

TAPE

0055
0056

/RW1 TESTS WR! ANO ROE TAPE INSTRUCTIONS IN PAUSE MODE
/WITH THE l BIT (7) SET LEAVING TAPE MOVING IN THE DIRECTION
/IT WAS MOVING AT COMPLETION OF TAPE INSTRUCTION
/USES BLOCKS 374•377

0057
0060
0061
01:162
0063
0064

0065
0066
006 7
0070
0071
00 72
0073
0074
0075
0076
0077
0100
0101
0102
0HJ3
0104

01(215
0106

01''7
0110
0111
0112
0113
0114
0115
0:1.16
0117
0120
0121

00 22
0023
00 24

0025
0026

0027
00 30
0031
00 32
0033
0034
0035
0036
0037
0040
0041
00 42
00 43
0044
0045
0046
0047
0050
f2l051
0052

0053
0054
0055

1:1132

0056
0057
0060
0061
0062
0063
0064
0065
00 66
0067
0070

0133

0071

0134

0072
007 3
0074
0075

0122
0123
0124

0125
0126
0127
0130
lill 31

0135
0136

0137
0140
0141
0142
0143
0144
0145

ern 11
0001
67 52
7033
0011

RW 1,

T2,

CL R
AX 0
JM P DAT SET

JMP GCKSUM

CLR

3373

ADD C3374

4034
0061
7773

STC X2

0736
0000

SET I 1

/SET UP WR! FROM DATA IMAGE TO TAPE
/WANT TO WRITE 4 BKS

-4

WR! l U
X2,

TAC

1441'3

SAE

1044

CK SUM
JMP E2
LOA

7271
1000
0034

33 67

ADD Ci

4034

ST C X2

0221
6033
0462
6026

XSK I 1
JMP X2~1
SNS I 2
JMP T2
T3,

/WRITE

0003

0011

/CLEAR
/EXTENDED OPERATIONS BUFFER
/SEL AND STORE DATA PATTERN IN DATA IMAGE AREA
/GENERATE CHECKSUM FOR DATA !MAGE AREA

/TAC TO AC
EQUAL T0
/OUR CALCULATED CHECKSUM
I I S IT

/NO~ERROR

/UPDATE TBU<
/BY A COUNi OF 1
/WRITTEN 4 BLOCKS
/NO-DO IT AGtd N
/SNS SW 2 SET
/YES-LOO ON WRI

CLR

3374
4057

ADD C437 4
STC X3

/SET UP ROE FROM TAPE TO TDATA AREA

0061

SET l 1

/WANT TO ROE 4 BLKS

7773

-4

ROE I U

0732

011H'J0

X3,

1460

SAE I

7777

7300

JMP E3
LOA

1000
0057
3372
4057
0221
6056
7141
0463
6051
0461
611J22

/READ

/IS THE TRANSFER CHECK
/EQUAL TO 7777
/NO-ERROR
/UPDATE MBLK AND TBLK

X3
ADD C11il01
ST C X3
XSK I 1
JMP X3-1

JMP Ci'1PR
SNS I 3

JMP T3
SNS l 1

JMP RW1

/1
EJECT

/BY A COUNT OF 1
/READ 4 BLOCKS
/NO?DO AGA!N
/COMPARE TDATA AREA WITH DATA IMAGE AREA
/SNS SW 3 SET
/YES-LOOP ROE
/SNS SW 1 SET
/YES-LOOP READ-WRITE TEST

0146
014;
121150
0151
0152
0153
0154
0155
0156
0157
0160
0161
0162
0163
0164
0165
0166
0167
017!21
0111
0172
0173
0174
llll 75
0176
0177
0200
02!211
li!l202

/R W2 TES TS WR! A ND R DE l
TR
Tl ONS
OD
AU
/WITH THE I BIT (/l RESET
/DETERMINES IF INSTRUCTIONS DECODE AND EXECUTE
/UStS BLOCK 374
00 76
0077
0100
0HH
0102
0103
0104

0Hl5
0Hl6
0107
0110

0111
0112
0113
0114
0115
0116

6752
7033
01i'11

RW2,
T 4,

0716

/SEL AND STORE DATA PATTE

IG NERATE CHECKSUM FOR DAT

! M ,~GE

CLR
WR l U

/WRITE

TAC

SNS I 2
JMP T4

T5,

cu~

0712
43 74

ROE U

1460
7777

SAE l
7777

0206

/READ

43 74

7313

JMP E5

JMP CM

0121

0122

0123

6076

SNS
JMP
SNS
JMP

l 3
T5
I 1
RW2

0203
0204
!1!205
0207
0210

l t4

/UC TO AC
l!S IT EQUAL TO
/OUR CALCULATED CHECK UM
/NO-ERROR
/SNS SW 2 SET
/YES-LOOP ON WRI

SAE
CK SUM
JMP E4

7 36
0463
6111

0117
0120

3374

33 74
0003
14 40
1044
7304
04 62

6100
0011

JMP DA TSET
JMP GCKSUM

12
EJECT

II S THE TRANSFER
CK
/EQUAL TO 77
NO-ERROR
/COMPARE TAPE
w H DATA lMA
/SNS SW 3 SET
/YES-LOOP ROE
/SNS SW 1 SET
/YES-LOOP READ-WRITE TEST

ARE

0211

/RW3 TESTS WRI AND ROE INSTRUCTIONS IN NO PAUSE MODE
/WITH THE l BJT C7) SET LEAVING HPE MO !NG !N THE DIRECTION
/IT WAS GOING AT COMPLETION OF THE INSTRUCTION
/USES BLOCKS 374-377

0212
0213
0214
0215
0216

0217
11l2 22

0124
0125
ei 26

1020
01i:1Hl
0iH:l1

0223

~H27

6752

0224
0225
02 26
0227

11'130
0131
0132
0133
0134
0135

7033
0011
33 73
4137
0061
7773
0736
0001i:l
0021
1560

02211l
0221

fll230

0231
02 32
li:l233

0136
li:l137

02 34

0140

0235
0236
0237
0240
li:l241
li:l242
li:l243
0244
0245
0246
0247
k:J2 50
0251
0252
0253
0254
0255
0256
0257
0260
0261
0262
0263
0264

0141
0142
0143
0144

0145
0146

0147
0150
0151
0152
0153
0154
IH 55
0156

13157
0160
0161
0162

RW3,

LOA !
10

T6,

IS ET B IT

8 l N AC

AXO
JMP DATSET
JMP GCKSUM

/AC TO EXTENDED OPERATIONS BUFFER SETTING NO PAUSE MOOE
/SEL AND STORE DATA PATTERN IN DATA IMAGE AREA
/GENERATE CHECKSUM FOR DATA IMAGE AREA

CLR
ADD C3 37 4

/SET UP SECOND WORD OF WR! INST

STC X6

SET I 1

/WANT TO WRITE 4 BLOCKS

-4

WR I I U
X6,

0
XOA

7767

/EXTENDED OPERATIONS BUFFER TO AC
/MASK
/ALL BUT NO PAUSE Bl T

Ai!E

/SKIP

BCL. I

77 67
fll450
0000
0416
6145
k:'llH!3
1440
1044
7317
1000
0137
3367
4137
0221
6136
0462
6131

/WR I TE

HLT

IF NO PAUSE MODE

PAUSE NOT SET
/SKIP ON TAPE DONE
/NOT DONE riA !T
/TAC TO c
/!S li E ?1L TO OUR CALCULATED CHECKSUM
/ERROR~NO

STD

JM P , -1
TAC
SAE
CK SUM
JMP E6

/NO-ERROR

LOA
X6

/UPDATE TSU<

ADD Cl
STC X6

/BY A COIJN

OF 1

XSK I 1

/WRITTEN

BLOCKS

JMP

X6~1

SNS I 2

JMP T6
/3

EJECT

/NO-DO

lT AGAIN

/SNS SW 2 SET
/YES -L 00 P WR !

026"
026,
0267

0163

121270

0164

0271
0272
0273
121274
02 75
0276

0165
121166
0167
0170
01 71
0172
121173
12l174
0175
0176
0177

0277
12l311J0
0301
0302

0303
0311J4
031215
121306
0307
03Ul
0311
0312
0313

0314
0315
0316

0317
0320
0321
0322
0323
0324

0325
0326
0327

02011J
02fiH
0202
0203
0204
0205
0206
0207
0210
0211
0212
0213
0214
0215

0011
S3 74
4171
0061
7773
0732
0000
1l1l 2 0
0100

T7.

CL R
ADD C4374
STC X7
SET l 1

/SET UP SECOND W 0 OF ROE
/WANT TO READ

BL KS

-4

ROE l U
x 7.

/READ

LOA l

/BIT 5 !N AC ON

100

li:l500
6151
6174
0003
1460

7777

108
6151
JMP ,.,2

/TEST EXECUTION OF 8 MODE !OT
/SKIP ON TAPE DONE FLIP FLOP SET

TAC
SAE I

/TAC TO AC
II S THE TRANSFER CHECK
/EQUAL TO 7777
/NO-ERROR
/UPDATE MBLK AND TBLK

7777

7326
100121
0171
3372
4171
21
6170
7141
04 63
6163

JMP E7

LOA
X7

ADD
STC
XS K
..JMP
JMP

curn1
X7
l 1
X7-1
CMPR

6124

A COUNT OF 1

/REA 0 4 BLOC KS
/NO-DO IT AGAIN

/COMPARE TAPE DATA WITH DATA

SNS l 3

/SNS SW 3 SET

..JMP T7
I 1
JMP RW3

/YES-LOOP READ
EST
/SNS SW 1 SET
/YES-LOOP WRITE-READ TEST

SNS

0461

/BY

/4
EJECT

IMAGE AREA

0330
0331

/RW4 TESTS WRC AND RDC INSTRUCTIONS IN PA SE MODE
OV!NG IN THE O!RECT!ON
/WITH THE I BIT (7l SET LEAVING TAPE
PE l NS TR UC l ON
WAS MOVING AT COMPLETION OF
/l
/USES BLOCKS 374 .. 377

32
33
03 34

0335
lll3 36
03 37
lll3 411l
03 41
0:~ 4 2
0343
0344

0345
0346
0347

03 50
IZIJ51
0352
0353
0354
0355
0356
0357
0360
0361
0362
0363
0364
0365
0366
0367
0370
03 71
0372
0373
0374
0375
0376
121377
041210
0401
12141212
041213
f214 04
0405
f2J4 06
041217
041121

0216
0217
0220
0221
0222
0223

121224
0225
0226
1212 27
0230
0231
121232
121233
0234
121235
0236
121237
12124121
0241
0242
0243
0244
0245
121246
121247
0250
121251

0252
0253
02 54
0255
0256
0257
0260
0261

0011
0001
6752

RW4,

0011

THJ,

.3373
4227
0061
7773
0734
12JIZl00
1000
0227
3367
4227
0221
6226
0462
6221
0011
3374
4246
0061
7773
121730
001210
100121
02 46
3372
4246
0221
62 45
7141
0463
62 40
0461
6216

CL R
AX 0

JMP DA TSET
CL R
ADD C3374

/CL.EAR THE
/EXTENDED OPER T!ONS BUFFER
/SEL AND STORE DATA PATTERN

IN DATA

!MAGE

/SET UP WRC FROM DATA IMAGE AREA TO TAPE

ST C XHJ
SET I 1
-4
WRC ! U
X1 fl,

/WANT TO WRITE 4 BLKS
/WRITE

l2J

/UPDATE TSU\ BY

LOA
X10

ADD Cl

r11,

/A COUNT OF 1

ST C X10
XSK l 1
JMP XHl~1
SNS I 2
JMP T10
CLR
ADD C4374
ST C X11
SET ! 1

/WRITTEN 4 BL CKS
/NO-DO IT AG IN
/SNS SW 2 SET

/YES LOOP WRC TEST
/SET UP

S~COND

/WANT TO R

WORD OF ROE INST
4 BLKS

x11,

ROC l
Ill

/READ

LOA

/UPDATE MBLK AND iBLK BY

XU.
ADD C101211

/A COUNT OF 1

STC X11
XS K l 1
JMP Xll-1
JMP CMPR
SNS l 3
JM P T11
SNS 1 1
JM P RW 4

/5
EJECT

/READ 4 BLOCKS
/NO-DO IT AGAIN
/COMPARE TOATA AREA W!TH DATA !MAGE AREA
/SNS SW 3 SET
/YESwLODP RDC TEST
/SNS SW 1 SET
/YESml.OOP REAO~WRI TE TEST

AREA

0411
04 2
i'.1413
0414
121415
0416
0417
2'42121
0421
04 22

0423
0424
0425
0426
0427
043121
0431
0432
0433
0434
0435

liH36
0437
0440
0441
li3442
0443
0444
0445
0446

0447
0450
0451
0452
04 53
0454
0455
fil456
0457
04611!
121461
0462
0463
0464
0465
0466
04 67
04 70
0471

/R
ESrs WRC AND RDC !NS UC ONS
I WITH THE l 8 l T ( 7 l RESET ALLOW I NG TAP
/AT COMPLETION OF THE INSTRUCT !ON
/USES BLOCKS 374=377

C3374

/SET UP SECOND WORD OF wRC INST

RW?,

JMP

0011

T12 I

CL R

0264

S373

0265
k:l266
121267
121270
0271
0272
0273
0274
121275
0276
0277
121300
0301
0302
0303
0304
0305
031216
0307
0310
0311
0312
0313
0314
0315
0316
0317
0320
0321
03 22
0323
0324
0325

4271
121061

SET l l

7773

-4

WRC U
x12,

713121
1000
0271
3367
4271
0221
6270
0462
6263

0
JMP

/WANT TO WRITE

DELAY

/DELAY TO ALLOW TAPE
/UPDATE TBLK BY

Xl2

/A COUNT

xSK

/WRITTEN 4 BLOCKS
/NO-DO IT AGAIN
/SNS SW 2 SET
/YES-LOOP WRC TE

JMP Xl2~1
SNS I 2
JM P Tl 2

UR NA ROUND

CLR

/SET UP SECOND WORD OF RDC

ADD C4374

012161

SET I 1
-4

/WANT TO READ 4 BLOCKS

RDC U

/READ

ST C Xl 3

X13,

ro EN

or 1

ADD Cl
STC X12
I

BLKS

/Wf~JTE

LOA

Tl3,

3374
4311
7773
0710
0000
7130
1000
0311
3372
4311
0221

TC Xl

kl '114

0011

1'100

/SEL AND STORE DATA PA T RN IN DATA

6752

0000

ro EN

Q,\ TSET

r.'.1262
0263

ADD

AUSE

NST

0
JMP

DELAY

LD A

/DELAY TO ALLOW TAPES TO ENTER TURNAROUND
/UPDATE MBLK AND TBLK BY

X13

ADD CHl01
STC Xl3
XS K l 1

6310

JMP Xl.3-1
JMP CMPR

7141
0463
6303
0461
6262

SNS I 3
JMP Tl3
SNS l 1
JM P RW 5

EJECT

DUNT OF 1

/READ 4 BLOCKS
/NO-DO Ii AGAIN
/COMPARE TAPE DATA WITH DATA IMAGE AREA
/SNS SW 3 SET
/YES~LOOP ROC TEST
/SNS SW 1 SET
/YES-LOOP READ-WRITE TEST

0472
0473
74

/RW6 TESTS WRC AND RDC INSTRUCTIONS lN NO PAUSE MODE
/W lT
THE I BIT 171 SET LEAVING TAPE MOVING IN THE DIRECTION
/!TWAS GOING Ai COMPLETION OF THE lNSiRUCTiON
/USES BLOCKS 374~377

0475
04 76

04 77
0500
0501
0'..:>02

0.320

0?0:.S
0504

i2U 27

0505

03 30
0331

0 06
0507
0510

0332
0-533

0511
0512

li;'l,3 35

0513
0514
0515
0516
0517
0520
0521
0522

0337

~523

0524
0525
526
27
0530
0531
0532
0~33

0534
0535

0536
0537
0540
0541
05 42
0543

0334
0336

1020
10

RW 6,

/SET 8 l

00 .31

AX 0

6752
0011
3373

JMP DATSET
CL R
ADD C3374
STC X14

/AC TO E
ISEL AND

OED OPERATIONS BUFFER SETTING NO PAUSE MODE
ORE DATA PATTERN IN DATA IMAGE AREA

/SET UP

CONQ

/WANT TO

4340
0061
7773
0734
0000

0.5 40
0341
0342
0343
0344
11345
0346
11347
0350
0351
0352
0353
0354
0355
0350
0357
0360

0730

0361
0362
!0363

0000
0416

T14 i

SET I

-4
WRC l U
Xl 4,

0416

/SKIP !r

6341

JMP ,ml

/WA I i

1000
0340
3367
43 40
ltl221
6337
04 62
6332
0011
3374
4361
fillil 61
77 73

LOA
Xi4
ADD Cl
ST C Xi 4

/UPDATE

XSK I 1
JMP X14~
SNS l 2
JMP i l 4

i15,

8'f

/~~

! T EN
f) 0

NS SW
IY ES ql 00
i

WORD OF RDC INST

BLOC KS

Xl 5,

STD
JMP

6362

EAD

RDC l U
0

NE
,

0367

4361

ST C Xi

K BY

ADD

OUNT OF 1

001

0370

0221
JMP

0546

6360
7141

CMPR

0547

03 73

SNS

0550
0551

l 3
Tl 5

03"15

0552

03 76

0463
6353
0461
63 26

I 1
5~1

JM
SNS I 1
JM P RW 6

0553
0554
0555
0556
0557
0560

DONE

/A COUNT

ADD C4374
ST C X1
SE i l l

1000
0361
33 72

llJ3 74

4 BLKS

CLR

0371
0372

0544
0545

0 OF WRC INST

/WRITE

0
STD

0365
03 66

0364

8 l N THE AC

LO A l
10

EJECT

D 4 BLOCl<S

/NO-DO

IT AGA N
E DAT A
T
IN T

/COMPARE
w
SNS
/Y

oo
oo

/SNS SW
/YES

READ-~¥R!TE

TH DAT A ! MA GE A RE

TEST

61
0562

/RW7 TESTS WCG AND RCG INSTRUCTIONS
NO PAUSE.~'.)
/WITH THE l BIT (7J SET LE V!NG TAf
)l/!NG !N THE 01'" ,,Tl 1
I! T WAS GO JN G AT COM PL ET l 0 N OF i HE 1 ""'TR UC T! ON
/USE.S BLOCKS 3 74-3 77

056~

0564
0565
0566
0567
05 70
0571
05 72
0573
05 74
0575
0576
0577
0600
0601
0602
0603
0604
0605
0606
0607

06Hl
0611
0612
0613
0614
0615
0616
0617
0620
0621
0622
0623
0624
0625
0626
0627
0630
0631
0632

0633
0634
06 35
0636
0637
0640
0641
kl642
06 43
06 44
06 45
06 46
0647
0650
0651
0652
0653
0654
0655
06 56
0657

0377
0400
0401
0402
0403
0404
0405
0406
0407
04 H'J
0411
0412
0413
0414
0415
0416
0417
0420
0421
0422
04 23
0424
0425
0426
0427
04 30
0431

Hl20
0010
00&H
6752
7HJ7
0061
7773
07 35
3374

0432

0715
3374
0416
6434
7075
0711

0433
0434
04 35
0436
0437
04 40
04 41
04 42
04 43
0444
0445

0446

04 56
0457

IW Rl TE

STD

/SKIP ON TAPE DONE

STD

JMP , .. 1
JMP CMPR
JMP CLEAR
JMP DUPDAT
JMP , +2
JM P RW 7

0735
3374
0416

WCG I U

3374
STD

JMP ... 1
JMP DA TSET
JMP DUPDAT

6426
67 52

7107

WCG U

3374
STD

JM P , 1
JMP CL TDAT

/CLEAR OUT TAPE DATA AREA
/READ
/SKIP ON TAPE DONE
/COMPARE DAT A IMAGE AREA WITH TAPE DAT A
/CLEAR DATA IMAGE AREA
/DUPLICATE DATA IMAGE AREA INTO TAPE DATA AREA FOR WCG
/SKIP THE NEXT INSTRUCTION
/ERROR RETURN FROM COMPARE ROUT NE !F KEY CONTINUE rs HIT
/WRITE

ISK!P ON TAPE DONE
/SEL AND STORE DATA PATTERN IN DATA IMAGE AREA
/DUPLICATE DATA IMAGE AREA INTO TAPE DATA AREA
/WRITE
/SKIP ON TAPE DONE

RCG U
33 74
STD

33 74
0416
6441
7141
7063

JMP , ~ 1
JMP CMPR
JMP CL.EAR
JM P DU PD AT
JM P , +2

7107

33 74
0416
64 52
02 21
6406
04 61

WCG l U
33 74
JM P , .. 1
JMP CL TOH
RCG I U
3374

7107

04 51

/SET BIT 8 IN THE
/AC
/AC TO EXTENDED OPERATIONS BUFFER SETT!N NO PAUSE MODE
/SEL AND STORE DATA PATTERN IN DATA IMAGE AREA
/SET TAPE DATA AREA EQUAL TO DATA IMAGE AREA
/WANT TO EXECUTE TEST 4 TIMES

T16,

6424
63 77

0715

04 54
0455

SET I 1

7063

04 47

04 53

AXO
JMP DA TSET
JMP DUPDAT

70 75
0731
3374
0416
6415
7141

0450

LOA
10

0416
64UI

6450
63 77

121452

RW7,

JM P RW 7

WCG U

33 74

/SKIP ON TAPE DONE
/COMPARE DATA !MAGE AREA WITH TAPE DATA
/CLEAR OUT DATA IMAGE AREA
/DUP l CATE OAT !MAGE AREA ! NTO TAPE DATA AREA FOR WCG 4 BLKS LONG
/SKIP NEXT INSTRUCTION
/ERROR RET FROM COMPARE ROUTINE IF KEY CONTINUE Hli
/WR l TE

/SKIP ON TAPE DONE

Si D

6377

/CLEAR OUT TAPE DATA AREA
/READ

JMP

, •1

XSK
JMP
SNS
JMP

T16
l 1

l 1
RW 7

/EXECUTED TEST 4 TIMES
/NO-DO IT AGAIN
!IS SNS SW
SET
/YES-LOOP READ WRITE TESTS AGAlN

0660
0661

/TEST BLOCK NUMBERS
/CHECKS ALL FORWARD

0662
0663
06 64
0665
0666
0667
0670
06 71
nil

""'Ir;

IUQ IC.

0673
0674
0675
0676
0677
07 00
0701
07 02
0703
0704
0705

07 06
0707
0710
0711
121712
0713
0714
0715
0716

0717
0720
0721
0722
0723
0724
0725
0726
0727
0730
0131
0732
11l7 33
07 34
0735
07 36
0737
11l7411l
0741
0742
0743
07 44
0745
kl746

0460
04 61
0462
0463
0464
0465
0466

0011
0001
7202
72 33

NUMBERS AND THE

AND REVERSE

RW10,

CLR

7202

AX 0
JM P RE VB K
JMP FWOBK
JMP REVBK

04 61
6463

JM P Tl 7

Ti 7'

SNS l 1

/CLEAR
/EXTENDED OPERATIONS BUFFER
/CK REV BK NUMBERS TO 0
/CK FWD 81\ NUMBERS FROM APPROXIMATELY l1l TO 777
FROM APPROXPiATELY 777 TO 0
/CK REV BK !~UMBER
/SNS SW 1 SET
/HS-LOOP BLOCK NUMBER f i

/READ-WRITE AMPLIFIER RECOVERY TEST
E NEXT BLOCK
/WRITES A BLOCK THAN MOVES TOWARD
/USES BLOCKS 0-777

0467
0470
04 71
0472
0473
0474
0475
04 76
04 77
0500
0501
12151212
0503
0504
0505
0506
0507
0510
0511
0512
0513
0514
0515
0516

6752
7033

RWU,

1020
3000
4477
0061

T20i

6471

JMP E20
LOA
X211l

X20A,

(MTS>

ETC

/SEL AND ST')
Ai PATTERN IN DATA !MAGE AREA
GKSUM FOR DATA IMAGE AREA
/GENERA TE
COND WORD OF WRI INST
/FORMAT F

T
IS TORE
/WANT TO

! AND MDV

TOWARD BLOCK 40121 TIMES

IW Rl TE

TAC
SAE
CK SUM

HH:lkl

0523

0517

WR I l
x20,

0003
1440
112l44
7332

0520
0521
121522

LDA !
3000
STC X20
SE i I 1
~400

07 36

0477
3367
Hl40
0514
3367
44 77
0733
011l01Zl
0450
7341
02 21
6476
7202
0462

JMP DATSET

JMP GCKSUM

7377
121011l0

SEQUENCE THEY OCCUR

S BLOCKS 0-777

/TAC TO
S IT E

D CHECKSUM
0 AND SET UP X20A

/UPD

ADD C1

/UPDATE

STA
X20A
ADD Cl
ST C X2 0
MT 8 I U

IS 'fQ

OR MTB INST 8V A COUNT OF 1
IT

/UPDATE iBlK

OR WR l I NS i

BY COUNT 0 F 2

/MOVE TOWARD BLOCK

AH
JMP E21ilA
XS I< l 1
JMP X212l~l
JM P RE VB K

SNS l 2
JM P T211l

/9
EJECT

/!S THE DIFFERENCE VALUE tERO
/NO-ERROR
/WRITTEN AND Mi8 41iiiil TIMES
/N0-00 lT AGAIN
RS F'ROM APPROX!MATEi_V 777 TO l1l
IC K RE Ii BK N UM
/SNS SW 2 SET
/YES~LOOP WRITE MT8 REV TEST

0747
i1J7%

07 51
0752
0753
07 54
0755
e756
0757

07 60
16761

1'5762
0763
0764

0765
0766
0767
0770
0771
0772
0773
0774
0775
0776

0777
1000

HHU
UHl2
111103

HHM
11505
1006
HHl7
Hl10

1011
1012
1013
1014
Hl15
1016
HH7
10 20

1021
1022
1023
1024
1025
H'J26

1027

0524
0525
0526
0527
05 30
0531
0532
0533
0534
0535
0536
0537
0540
0541
0542
0543
0544
0545
0546
0547
05 50
0551

1020
4000
4534
00 61

IS TO RE l T

SET l 1

/EXECUTE ROE

0062

SET l 2

0000
1000

ROE l U

x21,

12l546

1Hl0

ADA

1372
4!::i34
111733

Cl001
STC X21
MTB I U
0
A2E

X21A,

JMP E21A
XSK l 2
JMP DONE
JMP CMPR
SE i I 2

73 45
0222

0!2l62
7773

-4

6560

,JMP

, +2
JMP RW11

6467

LOA

0574

i:l461
6467

/READ

/UPDATE TBLK OF 2 WORD OF MTS INST BY A COUNT OF 1
/ALSO TBLK AND MBLK OF S ONO WORD OF RDC INST
/BY A COUNT OF 2AND 1 RESPECT
LY
/MOVE TOWARD BLOCK
/ARE WE THERE
/NO-ERROR
/DONE 4 TIMES

/NO-UPDATE EXECU
OAT
/SET UP NEXT COM
/YES·~COMPARE

CNTR
MAGE AR
AFTER

WITH TA
OAT
READING
MOR
BLOCKS

/SK!P THE NEXT !NSTRUCT!ON
/ERROR RETURN rROM COMPARE RQU !NE
KEY CONT NUE HI
/SET UP TBLK AND BLK FOR NEXT 4 PASSES

X21

ADD C1M
BCL I
7000
BS E I
4000
STC X21

4000

4534
0221

X21

STA
X21A

0567
05 70
0571
05 72
05 73

ROE INST CK 0

ADD Cl

1040

1000
0534
3370
15 60
7000
1620

AND MTS 4012! TIM

LOA

0534
3367

00
0450

/AFTER 4

_COND WORD OF R

0732

0560
0561

0575

/FORMAT FOR

4000
ST C X21

-4 00

6570
7141

0565
0566

LOA I

73 77

0552
0553
0554
0555
0556
0557
0562
0563
0564

r21,

DONE I

XS K I 1

6533
0463

.JMP X21~1
SNS ! 3

6524

JMP T21
SNS I 1
.JMP RW11

/Hl
EJECT

/BY SUBTRACTING 1 FROM TBLK
/AND CLEARING B!TS 0~2 OF AC <MBLK>
/SET MBLK EQUAL TO 4

/NOW DATA WILL BE READ FROM TAPE INTO START OF T PE DATA AREA
/ARE WE AT BLK 777 YET <FINISHED>
/NO-DO IT AGAIN
/ l S SNS SW 3 SET
/YES·LOOP READ AND MTB INSTRUCTIONS
/IS SNS SW 1 SET
/YES-LOOP WRITE READ TESTS

1030
1031
Hl32
Hl33
1034

IA WORST CASE READ-WRITE
EST
/USES BLOCKS 366-401, 0-14, AND

f05/6
0577

6752
00 61

SET I 1

10 ~57

06 00
0601

77 62
lfij 2 0

-15

10411!
Hl41

-53 65
02 21
(J631

33 65

.10 35
HJ 36

rn A ""I

J,.K.J"'tt::.

1043
HJ 44
11214 5
Hl46
1047

Hl5i0
HJ51
Ul52
Hl53
H:l54
Hl55
Ul56
10 5 7
10 6121
1061

06 02
06 03

RW12,

JMP OA TSET

L.D A I

/SEL AND
/EXE CUTE
/SET

00 61

7762

-15

Hl20
31ilii:J0
IZl2 21

3000

6631

XSK I 1
JMP RWSUB

INO~EXEC

0613

0061

SET l 1

/EXECUTE

0614
0615

0616
0617
0620
0621
0622

121623

1062
1063

0624

1064
HJ65

12i625
0626

1066

0627

1!Hi7
1IZl 70
H:l71
1072
l!ll 73
111174
1075

0630

7762

-15

112120
3747
02 21
6631
7202
1233
0461
6576

LDA I
3747
XSK I 1

JMP
JMP
JMP
SNS
JMP

1020

LO A I

RWSUB
REVBK
F"WDBK
I 1
RW12

207
JMP TYPE
JMP START

121207
7056
602121

111

EJECT

DATA

PATTERN IN DATA IMAGE AREA

l MES
ND RDC

STRUCT!ONS

I START AT

BLK

3661

/EXE CU TED
SJ 14
XMES
/NO-EXECUTE READ H !TE SUBROUTINE AGAIN
Tl MES
/EXECUTE

0606
0607
06 H'!
0611
0612

LOA l

UP HR

XSK i 1
JMP RWSUB
SET l 1

0604
06 05

750-764

/SET UP

C AND RDC INSTRUCTIONS (START AT BLK 1l

/EXECUTE

/SET UP rlR

8 14 Tl ES

AD WR

IMES
AN

E SUB OUT!NE AGAIN

RDC INSTRUCTIONS <START AT BLK 750)

/EXECUTED r\W
14 TIMES
/NO EXECUT
AO WRITE SUBROUTINE AGAIN
/CK REV 8~. NUMBERS
/CK FWD BLK NUMBERS
/SNS SW 1 SET
IYES~L,OOP

/SET UP

kHl!TE HST

ING BELL IN TYPE ROUTINE

/GO BACK TO BEGINNING OF PROGRAM AND START OVER

Hl 7 6
1 71

:?J63

3J6

1100

l'J6J2

Hl 40

STA

0633
0634
0635
0636
0637

0657
J367
1040
0664

X2 2

l.1640

0657
1560

1101
111212
111213

1104
1Hl5

11116
1107

urn

1111
1112

1114
111~

1116
1117
1120
1121
1122
112J
1124
1125
1126

0641
0642
064:5
0644
0645
0646
0647
0650
0651
06~2

0653
0654
065~

1134

0656
0657
06 612J
0661
0662
0663
0664
0665
0666

1135

0667

1136
1137
1140
1141
1142
1143

06 70
06 71
06 72
06 73
06 74
06 75

1127
1130

1131
1132
1133

Ri•SlJ

0000

1150
1151

Fi~~·

/L 0 AD

w~c

SEC 0 ND wOR 0 0 F F l HST WR C :\IT
/MODIFICATION OF MBL Pih\T!01\I TO SE
CLEAR OUT AC BITS -2 l.UV!NG REST

1"'~ ST l<LJ CT l 0 NS

/INSERT 4 !N BITS 0 2 Of' AC LEAV !NG REST
/STORE !N SE ONO WORD

Al~ONE

IRST ROC INS RUCTION

X22A

ADD Cl
STC X22C
LOA

/ADO 1 TO TSU<
/STORE IN SECOND WORD OF
ONO RD
NSTRUCT l ON
/SET UP RET JUMP FROM
0 WR TE SUBROUT!N

ADA l

/BY SUBTRACT NG 2 FROM CONTE T

OF L

/AND STORING IN LOCATION 6 F
/WR !TE

RUURN JUMP

77 75

STC 6
WR C I U
X2 2 I

l2J

X22A,

ROC U
JM P CM PR 1
WR C U

X228,

X22C I

/R AD
/COMPARE TAPE DATA WITH DATA
WRITE

MAGE AREA 1 BLK AT A TIME

JMP ,+2
JMP RW12
RO C ! U

/SKIP THE NEXT INSTRUCTION
/ERROR RETURN FROM CMPR1 ROUTINE lF KEY CONTINUE HIT
/READ

JMP CMPR1
l.DA
X2 2
JMP 6
JMP RW 12

1144

1145
1146
1147

Tt-_,,

N SECOND W0RO OF

X22B
DA

BSE l
4000
STA

7136
0000
66 67
6576
07 30
0000
7136
10 00
0657
6006
65 76

1
/STORE

/AO l TO TBt.
/STORE IN SECOND WORD OF SE ONO

X22
BCL l
7000

70vJ0

I ADO

STA

ADO Cl

HJ 00

1620
4000
Hl40
0661
3367
46 712J
1000
01iH:l0
1120
7775
4006
07 34
0"100
0710

ADD Cl

/12
EJECT

/COMPARE TAPE DATA WITH DATA IMAGE 1 BLK AT A TIME
/SET UP INCREMENTING OF' TBLK Ai BEGIN!NG OF
/NEXT PASS THROUGH RWSUB IF NOT DONE
/RETURN TO MAIN PROGRAM
/ERROR RETURN FROM CMPRl IF KEY CONTINUE HIT

1152
1153
1154
1155
1156
1157
1 60
1161
1162
1163
1164
1165
1166
1167
11 70
11 71

1172
1173
1174
1175
1176
1177
1200
1201
i202
1203

1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
16
1217
122121
1221
12 22
1223
12 24
1225
1226
1227
123121
12 31
1232
1233
12 34
1235
1236
1237
12 40

WR! AND ROE !:l;S

/PROVIDES LONG SCOPE LOOPS USING
/WRITES AND READS BLOCKS 0-777

LS COPE,

CLR
AXO

11676
0677
0700
07 kll
I071:l2

0011

07 03

70 00

-777

0704
07 05
07 06
0707
IZI 7 10
0711
0712
0713
0714
0715
0716
0717
0720
0721
0722
0723
0724
0725
0726
0727
07 30
0731
07 32
073..S
0134
121735
1217 36
0737
0740
1217 41
121742
1217 43
0744
0745
0746
0747
07 50
07 51

1020
31300
4710

LO A l

0001
67 52
71J 33
16061

..;MP

T2S,

0736
0000
0003
1440
112!44
7354

DA1SET

JMP GCKSUM

X231

SET I 1

/CLEAR THE
UFFE~~
/EXTE'vOED JP(RA I L)NS
TORE DATA P11llERN lN DA.TA !MAGE
IS EL A''-'C:
r~c f~S U~1 F .J:i
AT A !MAGE AREA
/GENERATE
/W NT TO W'.d TE 71 8L0,2KS

/SET UP SECOND WORD OF

30 00
STC X23
WR l l u
l1l

l NS T

/WR! TE

TAC

IT AC

SAE

I lS

IT E !JU .\L i rJ

CK SUM
JMP E23

/NO=ERROR

1000

LO A

/UPDATE TBLK

0710
33 67
4710
0221
6707
0462
6702
0061
7000
1020
4000
4733
07 32
0000
1460

X23

T24,

:\C

/OUR CALCULATED CHECKSUM

ADD Cl

/BY A COUNT OF 1

STC X23
XS K l 1
JMP X23-1

1vrnr nm
/NO-DO lT

LO CK S
N

("•

SNS I 2

/SNS SW 2 SET

JMP T23
SET l 1

/YES-LOOP ON WR!
/WANT TO HEAD 777 BLKS

-777

LOA l

WORD OF ROE INST

!SET UP St:CO

4000
STC X24

ROE l U
X2 4,

7777
7363
11210121
1217 33
33 67
4733
1212 21
6732
1214 63
6725
0461
66 76
60 2121

0
SAE l
7777
JM P E2 4
L,D A
X24

JMP

X24~1

SNS

JMP T24
SNS ! 1
JMP !_SCOPE
JMP START

EJECT

/IS THE TRANSFER CHECK
/EQUAL TO 1777
/NO"' ERROR
/UPDATE T8
/dY

ADD Cl
STC X24
XS K I 1

/13

/fiEAD

A COUN

OF l

!READ 77 7 TI MES
IN o~ DO ! T AG l N
IS NS SW 3 SET

/YES

OOP ON RDE l NST
/SNS SW 1 SET
/YES-LOOP LONG SCOPE LOOP TEST
!GO BACK 0 BEGINNING OF PROGRAM

Af~EA

12 4:l

1242
1243
1244
1245
12 46
12 4 7
1<: 513
1251
1252
12 53
1254
1255
1256
1257
1260
1261
1262
1263
1264
1265
1266
1267
12 70
1271
1272
1273
1274

1275
1276
1277
1300
1.301
1302
1303
1304

/SENSE SWITCH 4 SELECTS EITHER A Fl
0752
0753
0754
07:::>5
0756
07:::>7

00 47

0000
04 64
6760
0444
6776

DATSET. SET 7
0
SNS l 4
JMP FXDAT
SNS 4
JMP ROAT

,\QOM

DAT'

/SET UP RET JUMP FROM LOC 7 TO

PArT

MA!~

/SNS SW 4 SET
/YES-FIXED DATA PATTERN
/SNS SW 4 NOT SET
/RANDOM DATA PATTERN

/FIXED NUMBER GENERATOR
/STORES CONTENTS OF LEFT AND RIGHT SWITCHES ALTERNATLY
/INTO DATA IMAGE AREA (LOCATIONS 1400~1777 I T FIELD 2l
0760
07 61
0762
0763
0764
0765
0766
07 67
0770
0771
0772
0773
0774
0775

0071
13 77
0073
7377
0516
1071
0233
6771
6007
0517
1071
0233
6764
6007

FXDAT,

SET ! 11
DA TA ·1
SET I 13
·4011J
FXLOAD1 RSW
STA I 11
XSK I 13
JMP , + 2
JMP 7
LSW
STA I 11
XSK I 13
JMP F'XLOAD
JMP 7

/14

EJECT

/STARTING LOC OF DATA TABLE-1
/EXECUTE 400 TIMES (1 8LKl
/RIGHT SW TO AC
/INC AND STORE IN DATA TABLE
/DONE 400 TIMES
/NO-CONTINUE
/YES~RET TO MAIN PROG
/LEFT SW TO AC
/INC AND STORE IN DATA TABLE
/DONE 400 TIMES
/NO-DO IT AGAIN
/YES-RET TO MAIN PROG

1305
1306
13137

/RANDOM NUMBER GENERATOR
/STORES RANDOM NUMBERS IN DATA IMA

REA

\LOCATIONS 1400-1777 INST FIELD 2)

l.3Hl
1311

U12
1313

1314
1315
1316
1317
1320

13 21
1322
1323
1324
1325
1326
1327
1330
1331
1332
1333
1334
1335
1336
1337
1340
1341
1342
1343
1344
1345
1346
1347
1350
1351
1352
1353
1354
1355

0776
07 77

rn 00

H:Hll
HH:l2

1003

1004
1005
1006
1007
1010
1011

1012
1013
1014
112115
1016
112117
11212121
1021
112122
1023
112124
112125
112126
112127
11213121
112131
112132

0071
1377

RD Ai,

0073
73 77
0:>16
0450
7fil 0 7
1020

SE i l 11
0ATA-1
SET l 13

JMES (1 8LKl

XECUTE 400

RS W

/R !GHT SW

/SKIP !F AC EQUALS HRO

JM P

5024
0517
5025
7026

STC RN A
LSW
ST C RN B
JMP RADO
ST C RN A
ROL 1
JMP RAOD
STA I 11
STC RNA
ROL 1
XSK I 13
JMP RLOAD
JMP 7

RLOAD,

~024

, +3

LO A I
11

120121
112124
12121121
112125
612100

-4 00

0011

1212 41
712126
112171
5024
121241
0233
712112
612107
0121121121
1211211210

/STARTING LOC OF DATA TABLE-1

RNA,

121

RN81

RADO,

LAM
RNA
LAM
RNB
JMP 121

/15
EJECT

/AC IS HRO ADD 11 TO IT
/STORE AC IN RANDOM NUMBER A
/LEFT SW TO AC
/STORE AC IN RANDOM NUMBER 8
/ADD ROUTINE
/STORE I N RN A
/ROT LINK INTO AC BIT 11
/ADD ROUTINE
/INC AND STORE AC IN DATA TABLE
/STORE IN RNA
/ROT LINK INTO AC BIT 11
/DONE 41210 TIMES !DATA TABLE FULL)
/NO-DO IT AGAIN
/RET TO MAIN PROG
/RANDOM NUMBER A
/RANDOM NUMBER 8
/ADD RNA TO AC
/ADD RNB TO AC
/RET TO RLOAD ROUTINE

13 5t
135/
1360
1361
13 62
13 63
1364
1365
1366
1367
1370

l.571
13 72
1373
13 74
1.575
1376

1377
1400
1401
1402
1403
1404
1405
1406
1407
1410
1411
1412
1413

1414
1415
1416
1417
1420
1421
1422
1423
1424

/GENERATES A CHECKSUM OF DATA !MAGE
.E I BK ON
/WHICH IS COMPARED WITH THE CONTENTS OF TH TAC ON A W l I,~
/THE CHECKSUM IS THE TWOS COMPLIMENT OF <DATA SUM PLUS l 17>
Hl.33
1034
lei.SS
1036

1037
11214 0
10 41
Hl42
1043
H:l44
1045
HJ46
1047
1050
Hl!:il
1052
10~3

Hl54
Hl!:>5

012173
73 77
00 71
U77
012! 11
5044
1031

GCKSUM, SET I 13
SET I 11

/STARTING ADDRESS OF DATA TABLE-1

OATh1

CLR

STC CKSUM

LO A I 11

12!006

DJR

1220

LAM

0000

/EXECUTE 400 TJMES 11 BL CKl

-400

CKSUM,

ft:l011

CLR

1031
0233
70 42

LOA I 11
XSK I 13
JMP CKSUM-2
CLR

0011
0017
1200
1044

COM

LAM
CK SUM
JM P 0

6000

/AC INITIALLY CLEARED
Ir.ERO LDC CKSUM
/INC AND LOAD AC FROM DATA TABLE
/DISABLE JUMP RETURN SAVE
/25 COMPLIMENT ADD AC TO LDC CKSUM

/CLEAR AC
/JNC AND LOAD AC
ROM DATA TABLE
/DONE 400 TIMES
IN O~ DO I T AG I N
/CLEAR AC AND INK
ICOMPLiMENT THE AC
/2S COMPLIMENT ADD AC
!TO LOC CKSUM
/RET TO MAIN PROG

/ROUTINE TO R!NG THE TTY BELL AT END OF TEST
1056
1057
1060
10 61
1062

0006
051210
6046
0011
6000

TYPE,

DJR
!OB
6046

/DISABLE JUMP RETURN
/EXECUTE 8 MOOE INSTRUCTION
/AC TO TTY AND PUNCH BUFFER AND CLEAR FLAG

CLR
JMP 0

/RETURN TO MAIN PROGRAM

/16

EJECT

1425
1426
1427
1430
14 31
1432
14 33
14 34
4 35
1436
14$7
1440

/CLEARS OUT DATA !MAGE AREA (LOCATIONS 1400-1777 INST
/BY STORING 2EROS
1063

2)071

1377

1441
1442

1':164
1065
10 66
10 61
1010
1071
1072
1073

1443

1074

0073
73 77
0011
0006

CLEAR,

SET I
DAT A -1

SEi !
-4 00 '

CL,

1071

CLR
OJR
STA
XSK

02 33
7070
6000

/START!

SS
Tl E

ECUH: 4

/CLEAR

l 11
l 13

!ELD 2)

DATA TABLE -1
(40

C IN DATA TABLEJ

/D!SABL
/!NC AND

UM RE l R
TOR AC 1N
Tl MES
AGAIN
. ,,

JMP CL

/DONE 40
/NO-DO l

JMP 0

/RET TO M l"

HA TABLE

HOG

14 44

/CLEARS OUT TDATA AREA !LOCATIONS 2000- 777 DATA FIELD
/BY STORING tEROS

1445
14 46

1447
14 50
1451
1452
1453

1454
1455
14 56
1457
1460
1461
1462
1463

10 75
1076
HP7
1112!0
1H'l1
1102
1103
1104
1105
1106

kl12J 72
3777
012J73
6000
0011
0006
1072
0233
7102
6000

CL iD AT, SET l 12
SET l 13

DRESS OF TAPE DATA TABLE

/EXECUTE

000 TIMES (2000 LOC !N TAPE DATA TABLEl

-1777

CL R

/CLEAR AG

DJR

/DISABLE J

STA l 12
XS K l 13
JMP

, -3

JMP 0

1464
1465
1466
1467
14 70

/STARTING

TDATA~l! 2000

117

EJECT

P RETURN

!NC AND S RE ~ERO AC !NTO TAPE DATA TABLE
/DONE 2&H1:J T MES
IND-DO IT AGAIN

/RET TO MAIN PROG

14 71
IMAGE AREA <LOCATIONS •
, 1777
>JST
\
/lNTO TOATA AREA (LOCATIONS 2000-3777 DATA F!E
3)
/FOR EXECUTION OF WCG INSTRUCTION

/Wl.(!'fES DATA

1472
14 73

1474
1475
1476
14 77
1501

1HJ7
1110
1111

1'502

1112

15 00
1503

1113

1504

1114

1505
1506
1507
1510
1511

1115
1116
1117
1120
1121
1122
1123
1124
1125
1126
1127

1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
1525
1526
1527
1530
1531
1532
1533
1534
1535
1536
1537
1540
1541

00 47
0000
0070
7773
0072
37 77
00 71
1377
00 73
73 77
1031
1072
0233
7121
0230
7115
6007

DU PJ AT

SET 7

/SET UP RET JUMP FROM

0011
4015
0006
0235
7132
60 00

LOC 7 TO MAIN PR G

SET l 10

/DUPLICATE

4 BLOCKS

-4

OUP,

SET I 12

/STARTING LOC OF TAPE

DATA TABLE-1

TOATA-1!2000
SET I 11
DAT A gl

/STARTING LOC OF DATA

TABLE-1

SET I 13

/EXECUTE 400

-400
LOA l

STA I 12
XSK
JMP
XS K
JMP
JMP

I 13
DUP

I 10
DUP-4
7

TIMES

11 BLKI

/INC AND LOAD AC FROM DATA TABLE
/!NC AND STORE IN TAPE DATA TABLE
/DONE 400 TIMES
/NO•DO IT AGAIN
/DONE 4 BLOCKS
IN0-00 IT AGAIN
/RET TO MAIN PROG

/DEL.A'!' ROUTINE PROVIDES A 6 TO 7 MS DELAY
/ALLOWING TAPES TO ENTER THE TURNAROUND STATE

1130
1131
1132
1133
1134
1135

DE LAY,

CLR
STC
DJR
XS K
JM P
JM P

/CLEAR THE AC
15

I 15
,- 2

/18
EJECT

/DISABLE JUMP RETERN
/LOG 15 EQUAL 1777
/NO-DO IT AGAIN
/RETURN TO THE MAIN PROG

1542
1543

/COMPARES DATA IMAGE OF DATA WRITTEN ON TAPE LOCATIONS 1 0-1777 INST Fl LO
/WITH DATA READ FROM TAPE
D STOR
N TO TA AREA
OCAT ONS 2e00-3777 DATA
/CMPR1 ROUTINE IS USED NLY BY RW2 A
RW12 ROU NE OF
E MAIN PROGRAM
/CMPRl ALT RATION COMPARES 1 BL CK OF fAPE OATA ITH DATA IMAGE AREA

1544
l 45
15 46
15 47
1550
1551
1552

15'.:i3
1554
1555

15 56
1557
1560
1561

1562
1563
1564
1565

1020

37
1140
1141
1142
1143
1144
1145
1146

1147
1150
1151
1152

15 73

1153
1154
1155
1156
1157
1160

1574

1161

15 75
1576
1577

1162
1163

1566
1567

1570
15 71
1572

1600
1601
1611l2

1164
1165
1166

CMPRl,

77 76
?144
00 47

IEI.

CMPH,

/SET UP A l BLOCK COMPARE

LOA
STC CMPR+3
SET 7

/BY CHAN~!4G ONSTANT IN CMPR•3
!SET UP REf JUMP r
LUC 7 TO MAI~ PROGRAM

i2i

SET

7773
0072

! 10

/EXE CU TE 4 T l MES U NL ES S i'i0 0 I Fl ED FOR 1 EXE CUT l ON

3777
00 71

SET I l~
TDATA"'1:2@00

/STARTING ADDRESS OF TAPE DATA TABLE-1

SET l 1l

/STARi!NG

DAT A~1
SET l 13

1400 MEMOqy LOCATIONS EQUAL ONE TAPE BLK

AOOH~:ss

OF DATA

IMAGE AREA·1

~400

TS T,

1031
14 72

CL R
LOA l 11
SAE I 12

7167
0233
7153
0230
7147
lli:l20
7773
5144
6007

JMP ECMPR
XSK l 13
JMP TST
XSK l 10
JMP TST-4

LOA l
~4

/INC LOC 1 AND LOAD AC WJTH ENTRY FROM DATA IMAGE AREA
/INC LDC 2 AND COMPARE AC WITH CORRESPONDING ENTRY IN TAPE DATA TABLE
/ERROR-EN RIES OF BOTH TABLES NOT EQUAL
/INC LOC 3 HAVE WE DONE IT 400 TIMES
/NO-DO IT AGAIN
/HAVE WE HECKEO ALL BLOCKS READ IN
/NO-DO IT AGAIN
/SET LDC C R•3 BACK TO ORIGIONAL CONTENTS
/AS !T MAY HAVE BEEN ALTERED

STC CMPR+3

JMP 7

/RETURN TO MAIN PROGRAM

1603
/COMPARE
/EXAMINE
/EXAMINE
/EXAMINE

1604
1605
i612l6

1607
1610
1611
1612
1613
1614

ROUTINE IN THE MAIN PROG HAD THE COMPARE ERROR
LDC U TO DETERMINE WHICH WORD !S INCORRECT
LDC 10 TO DETERMINE WHICH BLOCK ERROR IS IN

0460

1615

1170
1171
1172

6000
0.314
1012

1616

1173

1617

1174

0000
1020

l.DA 12
HLT
LDA !

1620
1621
1622

1175

7773
5144
2007
;.$3 71
6007

ST C CMPR +3
ADD 7
ADD C3

1623
1624
1625
1626
1627
1630

16 31
16 32

ECMPR,

ERROR ROUTINE

LOC 7 TO DETERMINE WHIG

1167

1176
1177
1200
1201

0000
0070

1377
00 73
7377
0011

SNS ! 0
JMP 0

ROR 14

JMP 7

/19

EJECT

IS NS SW 0

TO NEXT INST !N NORMAL SEQUENCE
/ROTATE CORRECT DATA INTO MQ
/LOAD THE AC WITH THE INCORRECT DATA READ BACK FROM TAPE
/HALT-UNTIL KEY CONTINUE !S H!T
?1PR+3 BACK TO OR!GIONAL CONTENTS
/SET i..OC
/AS !T M,4Y HA\IE BEEN ALTERED
IYES~!GNOFlE

ERROR~RET

/ALTER RETERN JUMP IN LUC 7 BY ADDING
IPL.US 3 AND
/RETURN iO MAIN PROGRAM ANO RE··EXECUTE TEST WHICH FAILED

!TESTS f1EVERSE BLOCK

NUM8Ei~S SEQUEf\i
LLY
/IF TAPE POSITIONED A 8LOCK 777 THlS TEST
/CHECKS REVERSE BLOCK NUMBERS 777-0

163t,

16 35
1636
16;57
16 4121

1641
16 42
16 43
1644
1645

1646
1647

16 50
1651
1652
1653
1654
1655
1656

1657
1660
1661

1662
1663
1664
1665
1666

1202
12 03
1204
1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
1223

0047
00 00
0733
0000
0733
0000
1120
0001

1673

1701

MT 8 I ,;

MTB !

/MOVE TOWARD BLK 121 !GET

PE MOVING IN R G T OIRECTJONI

/MOVE TOWARD BLOCK 0
/ADO 1 TO DIFFERENCE 8 TWEEN FIRS TAPE BLOCK NUMBER ENCOUNTEHEO
/AND TBLK <DIFFERENCE IS LEFT IN C AFTER MHl ! N Tl
/STORE IN LOCATION REVTS

ADA !
1
STA l

REVTST, 0
MTS
0

SAE
REVTST
JMP EREV
ACE
JMP REVTST~3
JMP 7

1224
1225
1226
1227
1230
1231
1232

04 60
6000
0314
111l 0 0
1213
0000
6007

EREV,

/MOVE TOWARD BLK 0
/IS THE DI FERENCE EQUAL TO THE CONTENTS OF LUC REVTST
INO~ERROR

/ARE WE AT BLOCK 0 ET (DIFFERENCE EQUAL TO c[RO>
/No~oo IT AGAIN
/RET TO MAIM PROGRAM

SNS I 0
JMP 0
ROR 14
LOA
RE VT ST

/SNS SW 0 SET
/YES~JGNORE ERROR ANO RET TO MAIN PROG IN NORMAL SEQUENCE
/PUT INCORRECT DIFFERENCE IN MQ REGISTER
/PUT CORRECT DIFFERENCE IN AC

HLT

/HALT~UNTIL

JMP 7

1H'J5
1707

L C 7

l2l

1706
1710
1711

ROM

/REVERSE BLOCK NUMBER ERROR
/THE BLOCK NUMBERS DID NOT OCCURE iN SEQUENCE
/DIFFERENCE=NUMBER OF BLOCKS BETWEEN PRESENT TAPE POSITION
/ANO THE BLOCK NUMBER YOU ARE MOVING TOWARD
IMQ::: INCORRECT DIFFERENCE
/AC ::: CORRECT DIFFERENCE

16 70
16 71
16 72

1702
1703
1704

/SET UP RET JUMP

SET 7
0

Hl60

0000
0733
0000
1440
1213
7224
0450
72 H'J
6007

1667

1674
16 75
16 76
16 77
17 00

RE VB K,

/20
EJECT

KEY CONT !SHIT
/RET TO MAIN PROGRAM AT START OF TEST WHICH FAILED

1712
1713
1714
1715
1716
1717
1720
1721
1722
1723

1724
17 25
1726
1727
1730
17 31
1732
1733
1734
17 35
1736
1737
17 40
1741
17 42

1743

!TESTS FOWARO BLOCK NUMBERS SEQUENTIALLY
IF TAPE POSITIONED
T BLOCK 0 THIS TEST
/CHECKS F WARD BLOCK NUMBERS 0· 7
12 ~~3
1234
1;2 3:;,
12-56
1~ 37
12 40
1241
1242
1243
12 44
12 4:;
1246
1247
1250
12 51
12'.::>2
1253
1254
1255
1256

&:HHHl
0733
07 77
144111
12 44
72 62
1460
0001
7241
0733
0777

00 4 7

FWDB K,

;l0
07 33
07 77
733
07 77
1120
77 76
Hl60

1744

12 57

04 5111

1145

1260

7262

17 46
1747
175121
1751
17 52
1753
17 54
1755
1756
1757
1760
1761
17 62
17 63
17 64
1765
1766
1767
17 711l
1771
1772
1773
17 74
1775
17 76

1<!61

6007

MTB

IS ET UP

SET 7
0
tJ

777
MTB l U
77 7
ADA !

/MOVE

DCl\

D
j

GET TAPE

OVING IN RIGHT OJRECTIONI

J,,,.u

/MOVE

!'\

!FFE ENCE BETWEEN
NCOUNTERED AND TBLK

/SUB TR A

IF lR ST T

STA l

/STORE

FW OT ST, 0
MT8 I U

c 7

~~ R Q

NUMGER

/MDV E 'fO

777

/!S THE D ff

QUAL

777
SAE

nrnrsr

JMP EFWO

SAE

/NO ER
TH
/l

1
JMP

FWOTST~3

/NO,.DO

MTB

I U

EQUAL

!T
/HS-TH S

L S

TO THE CONTENTS OF LDC FWDTST
0 1

MTB AS WE ARE AT BLK 776

777

AH
JMP EFWD
JMP 7

ERO ( J

~ER EN

/REYURN H) MA!

/FOREWARD BLOCK NUMB
BLOCK NUMBERS DJ
/D!FFERENCE=NUMBER D

EQUAL iO !!ERO)
OGRAM

/THE

APE POSii!DN

/AND THE BLOCK NUMBE
/MQ :: INCORRECT O!
E
CE
/AC = CORRECT DIFFERENCE

12 62
1263

04 60
MHl0

1264

0314
HHH'J
1244

1265
1266
1267
1270

EF WD,

SNS I 0
JM p i2J
ROR 14
LOA

0000

FWOTST
HL T

6007

JMP 7

121
EJECT

/SNS SW 0 SET
/YES lGN
E
ROR ANO CONTINUE

/ROTATE !N
/LOAD THE

RR CT D
ERENCE INTO MQ REGISTER
WITH THE DIFFERENCE

/HALT-UNTIL KEY CONTINUE HIT
/RET TO MAlN PROG AT START OF TEST WHICH FAILED

1711
2000
20 01
2002
20 03
2004
211l05
2006

/ERROR HAL TS FROM MAJN PROGRAM
/SENSE SWJTCH 0 !GNORS ERROR AND
/RETURNS YOU TO PROGRAM SEQUENCE
/LOCATION OF NEXT X UTA8LE INSTRUCTION
/KEY CONTINUE RETUR S OU TO THE MAIN PROGRAM
/AT THE START OF THE TEST ~HIGH FAILED
/E2 CORRESPONDS TO TEST
ETC

20 07
2filHJ

2011
2012
2013
2014
2015
211l16
2017
2020
2021
2022

2023
2024

12 71
12 72
1273
12 74
12 75
1276

1277
13fr:lfil
1301

1302

202!:>
2026
2027

1.$04

2030
20 31
2032
20 33
2034
2035

1305
13 06
1307
1310
1311
1312

LH:l3

0461

E2,

SNS l 1

6000

JM p

0314

ROR 14
LDA
CK SUM
HLT

lill 12lfil

1044
0000
60 26

046121

JMP T2
E3

60011)
0000
60 51
0460
6000

li:J

SNS I
JMP 0

HL T
JMP T3

E4,

611210

JM P T4

CK SUM

HLT

SNS l 0

2037

1313

2040

1314

20 41
20 42
20 43
2044
2045
2046
2047
2050
2051
211l!:>2

1315
1316

012H:ll1J

HL T

6111

JMP T5

1317
13211J
1321
1322
1323
1324
1325

04 60

JMP 0

E6,

SNS I 121

6000

JMP 0

0314
121000

ROR 14
LOA
CK SUM
HL 1'

6131

JMP T6

Hl00
1044

IN PR
EQUENCE
/HALT-UNTIL KEY CONTINUE !S Hii
/RET TO MAIN PROG AT TART OF TEST WHICH FAILED
SNS

LD A

All D

II S SENSE SW 1
/YES IGNORE ERROR RE T TO N XT lN

/HS~JGNORE

:UH'l0
10 44
11l1Hl0

E5,

/HALT-UNTIL KEY CONTINUE l HIT
/RET TO MAIN PROG AT START OF TE T WHICH

JMP 0

ROR 14

0460
60 0121

/YES-IGNORE ERROR RET TO NEXT !NST lN PROG
EcHJE"JCE
/ROTATE THE BAD CHECK UM INTO THE MQ REGISTER
/PUT THE ALCULATED CHECKSUM NTO THE AC F~ G! TER

SNS l 0

0314

2036

l!S SNS 0 SET

SW Ill SET

ERRO AND RET TO NEXT !NST !N PROG SEQUENCE
/ROTATE THE BAD CHECKSUM INTO THE MO REGISTER
/LOAD THE AC WITH THE CALCULATED C CKSUM

/HALT~UNTIL KEY CONTINUE IS HIT
/RET TO MAIN PROG AT START OF TEST WH!CH F !LED

/!S SNS SW 0 SET
/YES-IGNORE ERROR AND RET TO NEXT INST IN PROG SEQ
/HALT-UNTU. KEY CONTINUE IS HIT
/RET TO MAIN PROG AT START OF iESi WHICH !="AILED
/!S SNS SW 121 SET
/YES-IGNORE ERROR AND RET TO NEXT INST IN PROG SEQ
/ROTATE THE BAD CHECKSUM INTO THE MQ REG
/LOAD THE AC WITH THE CALCULATED CHECKSUM
/HALT-UNTl KEY CONTINUE IS HIT
/RET TO MA!N PROG Af START OF TEST WHICH FAILED

2053

2054
2055
2056

1326
1327
1330

2057

1331

2060
2061
2062
20 63
2064

0460
601110
012100
6163

E7,

SNS J 121
JMP

121

HLT
JMP T7

/22
EJECT

/IS SNS SW el SET
/YES-IGNORE ERROR AND RET TO NEXT !NST IN PROG SEQUENCE
/HALT-UNTIL KEY CONTINUE rs HIT
/RET TO MAIN PROG AT START OF TEST WHICH FAILED

2065
2066
2067
20 7fil

2071
2072

20 73
20 74
20 75

1..13<'.

1333
1334

0460
60 012'
0314

LS.55
13 36
13 37
L)4J

10 0 f2I

2Hl0

13 43

0460
6000
00 00

2101
2102
21133

13 44

6471

1345
1346
1347
1350
1351
1352

0460

21Hl
2111
2112
2113
2114
2115
2116
2i17

2120
2121
2122
2123
2124
2125
2126
2127
2130
2131
2132
2133

ROR 14
LOA
CK SUM

1,,541

2Hl7

HL T

13 42

2106

I 0

JMP

00 00
6 4 71

2076

2105

10 44

2077

2104

E 0,

JMP

T2~l

/JS SNS SW 0 SET
/YES-IGNORE ERROR ANO RET TO NEXT !NS! !N PROG SEQUENCE
BAO CHECKSUM INTO THE MQ REGISTER
/ROT ATE
E AC MITH THE CALCULATED CHECKSUM
/LOAD
/HAL T-U~-ITI KEY CONT l r~UE l S HIT
/RET TO MAIN PROG AT SlART OF TEST WHICH FAILED

E20A,

SNS l 0
JMP 0
HL T
JMP T2121

/IS SNS SW 0 SET
/YES-IGNORE ERROR AND RET TQ NEXT INST IN PROG SEQ
/HALT-UN IL KEY CONTINUE IS Hli
AIN PROG AT START OF TEST WHICH FAILED
/R ET T 0

E21A,

SNS I 0

/IS SNS SW
SET
/YES IGNORE ERROR AND RETURN TO NEXT INST IN PROG SEQ
BAD CHECKSUM INTO THE MQ REGISTER
/ROT A1'E
11...0AO THE AC ~J!TH THE CALCULATED CHECKSUM

60012!

JMP 0

0314

ROR 14
LO A
CK SUM

112100
Hl44

HLT

fil000

1353

65 24

1354
1355
1356
1.557
1360
1361
1362

li'.!460
6000
0314
Hl00
l(/J44
0000
6702

E23,

1363
1364
1365
1366

0460

E24 1

6000

kli1l00
6725

/HALT~UN'i'!L.

KEY CONTINUE IS Hii
ROG AT START OF TEST WHICH FAILED

JMP T21

/RET TO MAI

SNS I 0
JMP 0
ROR 14
LOA
CK SUM
HL T
JMP T23

/IS SNS SW 0 ET
/YES-IGNORE ERROR AND RET TO NEXT INST IN PROG SEQ
/ROTATE Tri BAD CHECKSUM INTO THE MQ REGISTER
/LOAD THE AC WITH THE CALCULATED CHECKSUM

SNS I 0
JMP 0
HLT
JM P T24

l!S SNS SW 0 SET
/YES--!GN E ERROR AND RET TO NEXT !NST l N PRQG SEQUENCE
/HALT-UNTIL KEY CONTINUE IS HIT
/RET TO MAIN PROG AT START OF TEST WHICH FAILED

/23
EJECT

/HA.U-UNT!L KEY CONTINUE IS HIT
l'
PROG AT START OF TEST WHICH FAILED
/RET TO

CKSU

044

0 7l2l

CLEAR 506 3
CL TDAT 5075
CMPR
CMPR1
Cl
ClM
C1 f21f211
C3
C337 4

C4374

5141
:;136
536 7

5370
5372
5371

5373
5374

1400
DATA
DA TS ET 4752
5130
DELAY
4570
DONE
5121
OUP
OUPOAT 5HJ7
ECMP R
EF WO
EREV
E2
E20
E20A

516 7

5262

5224
5271
5332

E21A

5341
5345

E23
E24

5354
5363

5 300

5304

5313

5 317

5 32 6

FWDBK

523 3
FWDTST 5244

FXOAT 4760
FX LO AD 4 76 4
GC KS UM
LS CO PE
RADO
ROAT
RE VBK
RE VTST

5033
4 67 6
5026
4776

5202
5213

RLOA D 5 012
RNA
RNB

5024

5025

RWSUB
RW1
RWHl
RW11
RW12

RW2
RW 3
RW 4
RW'::>
RW6
Rw7
ST ART
TBLK
TD AT A
TS T
TYPE
T10
T11
T12
'f 13
T14
Tl5
T16
t17
T2
T20
T21
t23
T24

'r3
T4
T5
T6
'i'7
XOA
X10
X11
Xl 2
X13
Xl 4
X15
X2
X20
X2 0A
X21
X21A
X22
X2 2A
X22B
X2 2C
. X2'3
X2 4
X3
X6
X7

4631
411l22
4460
4467
4576
4076
412 4
4 216
4262
4 326
4377
4020
11l374
2000
5153
511l56
4221
4240
4263
4303
4332
43!:>3
4406
4463
402 6
4471
4524
4702
4725
40'::>1
4100
4111
4131
4163
0021
422 7
4246
4 271
4311
4 34 0
4361
403 4
4477
4 514
4534
4 54 6
4657
4661
4664
46 7121
4710
4 733
4 05 7
41.5 7
4171

2134

2135
/CONSTANTS USED

2136

IN PROGRAM

2137
2140
2141
2142

2143
2144
2145

2146
2147

2150
2151
2152

1367
13 70
1371
13 72
U73
1374

i;l0 01

c1.

77 76

C1 M,

0003

C3,

77 76
3

HHH

CHJ01,
C3374,
C4374,

1001
3..)74
4374

3.5 7 4

4374

DATA=l400
TOATA=2000

TBLK ::.574
XOA=21