Digital PDFs

MAINDEC-08-D02

December 1968

32 pages

Original

0.9MB

Document:	maindec-08-d02a-d
Order Number:	MAINDEC-08-D02
Revision:
Pages:	32
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/maindec-08-d02/maindec-08-d02b-d.pdf

OCR Text

IDENTIFICATION
Product Code:

MAINDEC 08-DOZB-D

Product Name:

PDP-8 Instruction Test Part 23

Date Created:

January I2, I968

Maintainer:

Diagnostic Group

"ABSTRACT

This program is a test of the 25 complement add (TAD) and rotate logic (RAL, RTL, RAR, RTR).
Random numbers are used in the Twos Add portion of the test and sequential numbers are used in the Rotate
portion. Program control depends on operator manipulation of four switches in the SWITCH REGISTER

(bits 0, I, 2, 3).
2

Error information is normally printed out on the keyboard printer.

REQUIREMENTS

Storage

Memory locations 20 8—41778

Su bprograms and/or Subroutines

High RIM Loader, High Binary Loader.
Equipment
PDP-8 Processor—Keyboard Reader
3

3 i
.

USAGE

Loading
If the Binary Loader beginning at

Otherwise, the RIM Loader beginning at
PDP-8 Instruction Test

—

77778 is in memory, load the Instruction Test

Part 2b.

77568 and/or the Binary Loader must be loaded into memory.

Part 2B (Maindec 80I-2B) may now be loaded as follows:

Set 77778 in the SWITCH REGISTER.
Press LOAD ADDRESS key.

Place Instruction Test—Part 2B in the keyboard reader.
Press START key on the operator console

Engage the keyboard reader.

3 .2

Switch Settings

When starting at the TAD portion (2008) of the test, set switches 0 and 2 to the I state. This
switch configuration allows the program to print any error message and halt on the error condition. After
the TAD portion has run for a minimum of IO minutes, set switch 3 to a I to enter the Rotate Test.

When starting at the rotate portion
(20008) set switches 0 and 2 to the I state as above.
switch configuration allows the program to print any error message and halt on the error condition.
Switch 0

Stop on error (4068 for TAD or 24338 for Rotate Test).

Switch 1

Scope mode (repeat loop causing the error).

Switch 2

Print error.
‘

Switch 3

Leave the Twos Add test and start the Rotate Test.

N08

This

3 .3

Switch 0 and l

Scope mode and stop on error.

Switch 0 and 2

Print error and halt.

Switch I and 2

Scope and print error.

Start-Up and/or Entry

The starting address of the TAD portion of the test is 02008. The starting address of the Rotate
the
test is
of
portion
20008. If bit 3 of the SWITCH REGISTER is set, it automatically causes an exit from
the Twos Add portion of the test to the Rotate portion of the test.
Set either 02008 in the SWITCH REGISTER to start at the Twos Add portion of the test,

set

20008 in the SWITCH REGISTER to start at the Rotate portion of the test.
Press the LOAD ADDRESS key.
Press the

3.4

START key.

Errors in Usage

The error halt for TAD Test is 4068.
The error halt for Rotate Test is
Error

24338.

printouts from both tests would appear as follows:
'

{wog‘xss‘gtgaa PRINTOUT:
'

Good
0

00000000000l

Bad

X ARG

Y ARG

0 00000000000 0

000000000000

000000000001

Indicating loss of a I bit in AC bit H

ROTATE ERROR PRINTOUTS:
PAT 0

00000000000]

RAL 0

0000000000l0

RAR 0

000000000000

(original pattern)
(pattern after RAL inst.)
(pattern after RAR inst.)

Indicating loss of a I bit in AC bit I] as a result of an RAR.
PAT 0

000000100000

RTR 0

000000000000

RTL 0

000000000000

Indicating loss of a i bit in AC bit 8 as a result of an RTR.
3.5

Recovery from such Errors

The program may be continued after it halts on an error, by pressing the CONTINUE key.
The program continues to the next test, unless scope mode (bit I) is requested.
Set the state of AC switch I to l to repeat the loop causing the error (scope mode).

Reference 4.3 for other switch variations.

N08

RESTRICTIONS

mum

This test should be run only after a successful run of the Instruction Test 2A to provide maxi—
reliability of the module repair table.

DESCRIPTION

5. I

Discussion

The PDP—8 Instruction Test—Part 23 tests the 25 ADD and ROTATE logic.

The 25 ADD logic is tested by the addition of pseudo random numbers. Two pseudo random
numbers are generated and 25 added by a logical (simulated) adder. The same two numbers are added
by the 25 add logic (TAD). The results are compared, and if an equality exists, two new random numbers are generated and the sequence is re—executed. If an inequality exists, the computer halts and/or

types the error condition depending on the switch settings.

Examples and/or Applications

5. 2

The error printout will contain the correct answer, the incorrect answer, and the two random

numbers used.
Visual inspection of these patterns will determine the cause of the error.

A lookup table is

provided for rapid repair which will give all of the information shown in section 4.6.
Exit from TAD Test to the Rotate portion is accomplished by setting bit 3 in the SWITCH

This switch also causes the program to print "ADD OK.

The Rotate Test generates 8I92 patterns to be tested on two pairs of rotate instructions. The
The test pattern is rotated left once, then

first pair of rotate instructions to be tested is RAL and RAR.

the result is rotated right once.

The following items are compared:

The result of the RAR should equal the test pattern and original link.
The result of the link after the RAL should equal bit 0 of the test pattern.
If the RAR results and link equals the test pattern and link, the RAL and RAR instructions

have operated correctly.
If an error occurs and an error printout is requested, the test pattern and the results of both

the RAL and RAR instructions are printed.
bable cause of the error.

Visual inspection of these patterns will determine the pro—

The second pair of rotate instructions to be tested is RTR and RTL. The test pattern is rotated
right twice, then the result is rotated left twice. The following items are compared:
The result of the RTL should equal the test pattern and original link.
The result of the link after the RTR should equal pattern bit I of the test pattern.
If thelRTL results and link equal the test pattern and link, the RTR and RTL, instructions

have operated correctly.
If an error occurs and an error printout is requested, the test pattern and the results of both

the RTR and RTL instructions are printed.
cause

of the error.

Visual inspection of these patterns will determine the probable

After a complete pass through the Rotate Test, the computer will print ROT.
A printout of "23" indicates the completion as a complete pass through the entire set of

tests, after which the test begins again.
6.

METHODS
See description section 5.

gfipUTION TIME

The TAD section takes l second for one complete pass; it will cycle continuously unless AC
switch 3 is set. The Rotate portion takes 3 seconds for one complete pass.
8

PROGRAM LISTING

1/11/68

xpupsa

INSTRUCTION

B099

090%
HUME

@801

DEU1

BUZE
JMP 1

0662
D993

fiflUZ

”EDS

wmza
$021

QEZE

“UUZW

WEBB
6U46

PHXLOP;

LPXXD

IPRSNT

JMP
CLA

LPXX

”was

5420

JMP

UflZé

MBUW
724M

CLA

CMA

AND

JMS

PRXLDP

CLA

CMA

MUSZ
M063

UlflS

DUJ4
Bfléfi

462%
724%

$066

0103
4DZ$
5426

meal

”$57
U045

UU41
E042
Ufi43

mama
724w

CRLFLF:
ICR

ILF

JMS
CLA
AND

PRXLDP

JMS
JMP

PRXLOP

CLA

CHA
CR

CMA

L?
I

th
CRLFLF

CHLF;

mlua
4020

AND

PHXLOP

@645

7240

UU46

@195

AND

0347

4U2U

PRXLOP

@059

5441

JMS
JMP

9051

Uflflfi
BUUE
900%

PAT)

0990
DEED

RARRTH.
RITLNHn

wwww

TSTlI

Hub?
B053
“954
”055
0056

LDDP

PRXLUP

JMS
CLA

$844

ADDnHOTATE

TSF

6U41

bMZZ
72wa

@194
4QZU
724M

TLS

@022

0050

PART

5”

$925
U324

UHZ?

TEST

3:19.9

RALRTL.
LFTLNK.

/UR

cma

ILF
CHLF

GE
-

IGENERATOR PATTERN
IHOTATE LEFT PATTLRNS
IRUTATE LEFT LINK PATTERNS
IHOTATE RIGHT PATTERNS
IHOTATE RIGHT LINK PATTLRNS
ITEST FLAG

.1/11/66

U657

BEBE

@060
flflbl

4ZUU
209W

0062

lflflfl

wees

04MB

$064

UZME
919%
@940
QMZfl
lew

$965
0666

@967
$973

PRDUT:
K4Eflfla
KZBUfla
Klflvfic
Kngwa
Kazan.

422a

3519,16

[PRINT OUT
IMASK LIST

awau

103”
mean

@299

Kblfifln
KmEQE.

3:9»

KEZZE:
Hfl@;gy

gnaw
flfllw
mega
@902

gnaw

9&7:

@364

KEEBQ!

MBI2
BE74

BUBZ
@UBI
0057

KEfiUZc
Kbfifllo
XPRUUTI

HEIS
0Z76
wa77

”322
0301
@314

meal
PHOUT
G622

“a

zéwz

B100
0101
@102

@624
@523

I?!

e514
0&24

024%

P0
SP:

alas
9&34

@212
9215

LFI
GR:

g2¢5

{$3

UIMS

anon

EEROI

uweu

/£ERO

mxus

@Dbl

0107
0115

$517
@313

8W
9

uuox
@611

@616

IU
/K

COUNT:
STRUNT:
7H3.

7764

/MINU5

(A’JL'J

1')

Efl73

@111

7764

0112

Uflflfl
fiZbZ

fiilS

9116

BSUZ
mama
BUWQ

0117
012%
$121

UUUU
ZUUE
UQUQ

2122

flfibfl

m123

MUUQ

30
N01:
H02:
3H1;
CRY,
TOTAL:
SUM;
CNTR;

@124

EMUE

HEAUEH,

0125
$126
$127
@138

EMUQ
7776

W114

@115

@161
$162

0133
@164
u155
U156

0167
”14%

0141

mama

wa7
@694
056%

@331

BITSTH:
SPACOO.
SPACSTI
50
U:
X:
Y!

00MB
DUMB
DBUE
7/63

LINK:
XARb.
YARG.

”MUG

LNKSTH:
K7377:

75/7

COUNTXI

gaze
azau
@212

saw

{ONE
ALPHA

‘9‘

(I.

V \l 0

IMINUS

a 6‘ V

S! 08 G N

SSGGDG

/U
IX
IY

ILINK
IXARG
IYAHG

LOCATION

1/11/05

0557

1125

@360

5741

Tan
JNP

Tub
I

SLUU

6.29.91

PAS:

b-l

59<2
@143
A144
”145

WEED

@146

5156

@147

5152
7366
5542
7340

SL.
JMP

5542

JHP

M153
M151
m152
@153

724%

CLA

CMA

@140

AND
SZA
JMP
JMP

7440

LNKSTR

SL
CL
I

CL.

CLA

CMA

STL

CLL

CLA

CMA

*4000

4000
4001
4002

CLA

7200

RAND2.

1417

TAD

0017

3135-

DCA

XARG

4003
4004
4005

1417

TAD

3136

DCA

2216

132

4006

5647

JMP

4007

1215

4010
4011
4012

3017

TAD
DCA
TAD

YARG
RCNT
I XSTRXY
LISTX

4013
4014
4015
4016
4017

1214
3216
5647

DCA

M144
RCNT

JHP

XSTRXY

7634

M144.

~144

LIST-1

0000

LISTX.
RCNT.
ODEVEN.

4020
4021
4022
4023

7300

RAND.

CLL

2217

IS?

7000

NOP

1217

TAD

4024
4025
4026
4027

7010
7630
5230

RAR

7604

RANDl,
AND

7000

NOP

4033
4034
4035'
4036
4037
4040

7440

SZA

5650
7240
0121
7000

JMP
CLA
AND
NOP

TOTAL

XARG

TOTAL
Z

0121

AND

4043

7001

IAC

4044
4045
4046
4047
4050

TEST

/EXIT

TEST

PATTERN
PATTERN

IFIXED

CLA

RANDl
RANDZ
CLA
2

K0400

ADDX

OSR

/SN

CMA

1410

TAD

3136

DCA

I
Z

5647

JMP

0225

XSTRXY.
ADDX.

0312

lEXIT

ODEVEN

0063

CMA

PAT

IRANDOM

4031
4032

DCA

FIXED

ODFVEN

4030

7040

ISTORE

0000

5200

3135

PAT

0000

SZL
JMP
JMP

4041
4042

FIXED

0017

4177
0000

/STORE

0017

YARG
XSTRXY
STRXY

PADDOK

EDUALS

ONE

EXIT

*0017

0017

4177

LIST-1

4051
4052

7245

FCOMP.

@121

AND

7545

CMA

44051

4053
4054
4055
4056
4057

4060
4061

4062
4063
4064
4065
4066

2122
3275
7245
@122

CLA
TOTAL
SUM

AND

DCA

CXN

CLA
AND

CMA
2 SUM

7045

CMA

7121
3274
724a
0275

AND
DCA

CLA

CMA

AND

CXM

744a

SZA

5676

JMP

ICOMPARE

CMA

SUM

AND

TOTAL

TOTAL
CXN

IERROR

ERX

CMA
CXN

CLA
7240
4067
AND
@274
4070
SEA
7445
4071
5676
4072
JMP I ERX
JMP LCOMP
5277
4073
0
CXN.
4074
mama
0
CXM.
mega
4075
«WERROR,
1401621,0A001 HERX111
CLA CMA
LCOMP.
4077
7240
AND 2 LINK
0134
4100
CHA
7040
4101
AND 2 CRY
0120
4102
DCA LRX
3322
4103
CLA CMA
7240
4104
(11 Of]
A4 a:
AND 2 CRY
'10)

IERROR

W,,

ICOHFARE'CfiY AND LINK
/LINK

BIT

"LL”

7240
0322

CMA
AND
DCA
CLA
AND

4113

7440

SZA

4114

5676
7240
0323

JMP

CLA
AND

CHA

7440

SZA

5676

JMP I
JMP I
LRX.
LRY.
NOERX.

4106
4107
4110
4111

4112

4115
4116
4117
4120
4121
4122
4123
4124

7040
0134

3323

5724
0000
0000
0407

LINK

LRY

CMA
LRX

IERROR

ERX

LRY

IERRROR

ERX
NOERX
0
0

NOERR

#4200

4200
4201
4202
4203
4204
4205
4206
4207
4210

4211
4212
4213

7777
7777

LIST.
7777'

7776

7777

7775

7777

7773

7777
7767

7777

7757
7777

7757

7737

7737
7777
7677

7777

4214
4215
4216

7777
7677

4217

7777

4220

7577

7777
7577

4221
4222
4223
4224
4225

7777

7377

7777

4226
4227

S777

5777

7777
3777

7777

4232
4233
4234
4235
4236
4237
4240
4241
4242
4243

7777

7776
7777
7775

7777

7776
7777
7775
7777
7773
7777

7767

7777

4244
4245
4246

7757

7737

7777
7757
7777
7737

7777

7677
7777

7577

7777
7377

4255
4256

6777
7777

4257
4260
4261

5777

5777
7777
3777

4230
4231

4247
4250
4251
4252
4253
4254

7777

6777

7777

7773

7777

7777
3777

7777‘

4262
4263
4264
4265

7777

0002

4266

7777

4267
4270
4271
4272
4273
4274
4275
4276
4277
4300
4361
4302
4363
4304
4305
4366
4367
4310
4311
4312
4313
4314
4315
4316
4317
4320
4321
4322
4323
4324
4325
4326

0004
7777

0010

7777

0020

0020
7777
0040
7777

4327
4330
4331
4332
4333
4334
4335
4336
4337
4346
4341

"a (D

7777

0001

7777
0040

7777
0100
7777
0200
7777
0400
7777
1000
7777
2000

7777
4000
0001

7777
0002
7777
0004
7777
0010

0100
7777

0200
7777
0400
7777
1000
7777
2000
7777
4000
0001
7777
0002
7777
0004

7777

0010
7777

0200

7777
0400

7777
0400
7777

7777
0100
7777

0100
7777

1000

0200
7777
0400
7777
1000

7777

2000

7777

2000
7777

4000

7777

0200
7777
0400
7777

#0200

0200

7240

ARITHT:

0201
0202
0203
0204
0205

3124

DCA

7240

CLA

CLA
HEADER
CMA

3135

DCA

XARG

7240
3136

CLA
DCA

CMA

7240

CLA

CMA

0206
0207
0210
0211

YARG

3121

DCA

TOTAL

3134

DCA

3115

DCA

0212
0213

5223
3120

JMP

LINK
H01
INCR

DCA

CRY

0214

7340

0215
0216
0217
@220

0135
1136
3122
7004

2
Z
Z

XARG
YARG

0221
0222

3134

0223
0224

5624

INCR.

JMP

4020

INCRx.

RAND

77246-

5¥vay~~w~~

4226
0227
0230
0231
0232
0233
5234

5737

ADD,
AND

TAD
DCA

RAL
DCA
JMP

CLA

CMA

CLL

SUM

ISTORE
ISTORE LINK
/COMPARE SUM AND

LINK
XFCOMP

0135

AND

3115
7240
0136
3116

BOA

2
Z

CLA

CMA

AND

DCA

4235

JMS
JHP

ADDISM

5214

CMA

SUM

REAL

OF
ADD

REAL

TOTAL

INCRX

XARG
N01

/XARG

YARG
H02

lJHS

ADD

EQUALS

H02

IYARG EQUALS
FAKE A00

H02

ADD

BIT

0235
0236

0000

ADDISM.

7300

CLA

ELL

0237
0240

3121
312a

DCA

2
2

0241
0242

7040

CHA

0111

AND

COUNT

0243

3123

DCA

CNTR

0244
0245
0246
0247
0250
0251
0252
0253

7040

AISM;

w115

N01

701a

AND
RAR

3115

DCA

N01

7am4

RAL

3117

DCA

8H1

7m40

CMA

@116
7e10

AND
RAR

HD2
H02

0254

DCA

TOTAL
CRY

3116

DCA

704a
0117

CMA
AND

8H1

0260
0261

7420

5302

SNL
JHP

DISM

0262

7450

SNA

0263
0264
0265

5305

JMP
CLL

0266
0267

7010

0270
0271
0272
0273

7040

CHA

A274

0275
0276

0117

AND

3120
0121

918M.
CMA
AND

7010

RAR

0277
0300

3121
2123
5244

0301

5635

0302
0303
0304
0305

7040

7450
5265
7220
7040

CISM
CLA

AXISM :
AND
RAR

CMA
Z

CRY

801
DCA

TOTAL

DCA

ISZ
JHP
JMP
DISH.
JMP
CML
CISM.

TOTAL
CNTR

0306
0307

0120
7440

AND
SZA

0310
0311

7100

CLL

5272

JMP

/MINUS

CMA

0255
0256
0257

7300
7040
0120

/FAKE

CRY

AISM
I ADDISM
SNA

AXISM
CLA

CHA
CRY

BISM

_-I [‘0

ADD

$312

4941

PADDOK.

D313
D314
m315
@316
M317
M326
9321
@322
M323

724%
4028

CLA
AND
JHS

CHA
Z A
Z PRXLOP

7246

CLA

CMA

@131
4020

AND

JHS

PRXLOP

@076

JMS

7246

CLA

CMA

AND

432%

JMS

PRXLOP

@324

7249

CLA

CMA

@325

@162
462%

AND

JMS

PRXLOP

724%

CLA
AND
JHS
CLA

CMA

@107
4020
7240

@110
4920
5736

JHS
JHP

@334

@335
$336
9337

?608

4051

AND

CRLF

/CR LF
/A

W131

6326
M327
@330
@331
@332
$333

/SP

2 D
Z PRXLOP
CMA
K

2
E

PRXLOP

ROTATE

ROTATE;
XFCOMP.

/EXIT

GENl
FCOMP

ADD

TEST

#6400

n4aa

7604

A401
w4@2

7106
7510

SPA

m403

4216

JMS

m4a4

7604
7519

CLA

OSR

7402

HLT

@407

76B4

NOERR.

m410

71D4

CLL

M411
6412
w413
”414
$415

7510

@225
@223

SPA
JMP I
JMP I
SXY.
INCRT.

U416
2417
0420

DEED

PRINT.

7243

CLA

CMA

“124

6421

7446

@405
@496

$422
M423
0424
M425
@426
$427
0433

5614
5615

ERROR.
CLL RTL

CLA

/SHD EQUALS A ONE
/HALT ON ERROR

ROUTINE

HALT

OSR

EOUALS A ONE TO SCOPE
/SCOPE MODE
MODE

/SN1

/CONTINUE

INCRT

MODE

STRXY
INCR
0

4041
4020

JMS
JMS

7248

CLA
AND

CMA

@120
4635

JHS

4020

EQUALS A ONE
/JMS T0

SXY

PRERR,

$433
6434
M435

RAL

4321

FLAG

/HEADER

HEADER

/JMS

PRHEAD

HEADER

ROUTINE

NOP
Z

CRLF
PRXLOP

/CR

CRY
XONZER

CLA
AND

CMA
2 SP

5236

JMS
JMP

2637

XONZER.

@162

/READ

SPA

7066

724%

OSR

/SH2

AND
SEA
JMS

$431
A432

CLA

PRXLOP
PTOTAL

ONZER

ITEST

FAKE

/PRINT

LINK

ONE

FOR

SEX

AND

FAKE

ZERO

/PRINT

lPRINT

CONTENTS

ADD

$436
0437
M440

@441
£442
Z443

7246
@121

PTOTAL,

3125
4266
724%
W134

CLA

AND
DCA

TOTAL

BITSTR

JMS
CLA
AND
JHS

MESSC

CHA
2 SP
Z PRXLOP

6445

724%

£446
@447
”45%

@102
4020

5251

CLA
AND
JMS
JMP

$451
$452

724%

XTOTAL.

D453
M454

$122
3125
4266

AND
DCA
JMS

BITSTR
MESSG

W455
$456

724%

CLA

CMA

@135

AND
DCA

XARG

BITSTR

JHS

MESSG

7249
M136

CLA
AND

CMA

3125

DCA

4266
~5616"

JMS
>JMP

6468

3461
0462
@463
”464
6465

CONTENTS

/TEST REAL
/PRINT A ONE OR

XONZER

4635

3125
4266

ISTDRE

CHA
E LINK

0444

@457

CMA

FAKE

LINK
EERO

FOR

ADD

SEX

XTOTAL

E
Z

CLA

CMA

SUM

/STORE

CONTENTS

/STORE

XARG

/STORE

REAL

YARG

BITSTR
MESSG
I PRLNT

ARG

lEXlT T0~SNITCH ROUTINE

ADD

AND

$466

@966

MESSG.

6467

724%

CLA

CMA

A476

@137

AND

c0UNTX

6471
$472

3112

DCA

2112

NBIT.

STRCNT
182

@473
0474

7413
5312

SKP
JHP

@475
0476

724%

CLA CMA

@125

AND

£477

7106

6596
A561

3125

CLL
RAL
DCA

@502
$563
3504

7430
5306
4764

PRZERO.

$595
0536
w5fl7

5272

JMP

724%
$166

PRONE.

7994

JMS

ISTORE

CLA
2

ONE

JMS

PRXLOP

@162

A514

402%

0515
@516
@517

7240

@520

5666

JHS
JMP

@521

BEBE

PRHEAD.

@522
M523

7206

CLA

ROTATED HORD

IPRINT

XZEROR

zERo

AND

4029

COUNTS FINISHED

BITSTR

NBIT

5272
724%

$525
0526
0527

/12

Z BITSTR
52L
JHP PRONE

$510

9524

STRCNT

PRSPAC

@511
@512
$513

@102
4829

JHP NBIT
CLA
PRSPAC.
AND 2 SP
JMS z PRXLOP

CMA

IPRINT

ONE

CLA

CMA

78F

CMA

AND 2
Z
I

/SP

PRXLOP
MESSG
fl
r
,

3124
7240
@126

3127
4641

DCA z HEADER
CLA CMA
AND 2 SPAC06
DCA Z SPACST
JMS Z CRLF

/CLEAR

HEADER

FLAG

SPACE COUNT
IPRINT CR LF

ISTORE

CLA

724D

SPA06.

D1D2

AND

AD2D

JMS

2127

152

PRXLDP
SPACST

533D

JHP

SPA06

724D

CLA

CMA

913%
4929-

AND

JMS

PRXLOP

D540

724D

CLA

CNA

6541
A542
n543

D1D7
402D

AND

JMS

PRXLOP

724D

CLA

CMA

D544
D545
A546
D547

D1D7

462%
724D

AND
JMS
CLA

PRXLOP

N131

AND

6550

4026
4762

JMS
JHS

DNA
2 D
z PRXLOP
1 MANYSP

7240

CLA

CMA

9114

AND

4029

JHS

PRXLOP

D555
D556
D557

724D

CLA
AND

CMA

wssa

5761

JMS
JMP

PRXLOP
CONHED

653B
D531
v532
D533
m534
N535
A536
D537

D551
A552
a553
D554

D076
462D

1fl5611_ QQQQ 1919331151911.
MANYSP.
N626
$562
D563
”564

5721

27D2

HEDRJ.
szRDR.

CMA

/PRINT

SPACES

ALPHA

/JMP

SPACES

H§DQ19N1

'TNELVE‘“”
JMP

EEROR

PRHEAD

IEXIT

HEADER

ROUTINE

6606

7243

_*B60@
HEDCON.

6601

@131

AND

@682

452%

JMS

PRXLOP

6693
M604
66fl5
D686
M6E7
6616
6611
6612

4226

JHS

TWELVE

I12

7246

CLA

W132
402%

AND

JMS

CMA
2 X
Z PRXLOP

724D

CLA

CMA

@192
4626

6613
6614

4226

AND
JHS
JHS
JMS
CLA
AND

6615

$616
661?
6626
0621
6622
6623
6624
6625
6626

4246
7246
6133

CLA

/SP

PRXLOP
ARGXXX
THELVE

PRXLOP

GLA

CMA

6162

AND

4242
5625
W563
@666

/SP

JMS z PRXLOP
JHS ARGXXX
JMS z CRLF
JMP I RJHED
RJHED.
HEDRJ
a
TWELVE.

$627

7240

CLA

CMA

W636
@631
M632

@111
3127

AND
DCA

7248

SPAlZ.

$633
@634

@162
462%

AND
JMS

6635
$636

?127

I32

5232

JMP

A637

5626

JMP

A646
6641
J642

@660

ARGXXX,

7240
@076

CLA
AND

CMA
2 A

A643

4620

JMS

A644

724%

CLA

CHA

£645

WD75

AND

6646

4026

PRXLDP

A647
6650

7240
“130

JMS
CLA

”651
”652

4320

AND
JMS
JMP

PRXLOP
ARGXXX

564%

/ARG
112 SPACES

CMA

4M5

4641

SPACES

4626
7240
4626

CHA

COUNT
SPACST
CLA

2
Z

PRXLOP
2 SPACST
SPA12
I TWELVE

/ARG
-

/CR
TO

/JUMP

/STORE

MINUS

CHA

/SP
IPRINT 12

Q
/A

PRXLOP
/R

CMA

5x1? HEADER ROUTINE

SPACES

#2000

2000
2001

4316
4142

GEN1.
CONTl.

2002

0051

AND

2003
2004
2005
2006
2007
2010

7001

IAC

3051

DCA

7420
5215

SNL

2011
2012
2013
2014
2015
2016
2017

JMS
JMS
2

PAT

1060

JMP
TAD

K4000

3140
4352

DCA

PTlEX.

7440

SZA

lJHP

LNKSTR
JMS

2020
2021

7240

ROT1.

3056

DCA

2022
2023
2024
2025
2026
2027

7340

CLL

7200
3140

/SET

0140

AND

7440

SEA

CLA

JHP

SETLNK

CLL

CMA

REROTl’W.

LNKSTR

/EXIT

ROT1

ISET

TST1
CLA CHA
2 LNKSTR

7140
0051

TST1

[CLEAR

AND

7004"

2031

3052
7430

DCA
SZL

RALRTL

1060

TAD

K4000

2034

3053

DCA

LFTLNK

2035

7240

2036
2037
2040

0052

CLA
AND

CMA
2 RALRTL

CLEAR

LNKSTR

4000

PAT

FLAG

LINK
”H4

[BRING UP PATTERN_

RAL

7010

RAR

3054

DCA

2041
2042

7430

SZL

1060

TAD

2043

3055

DCA

RARRTR
K4000

WHJ RITLNK

PATTERN

CMA

5272

INCREMENTED

JMP
JMP

2039”
2032
2033

CLRLNK

5211

5274

ISTORE

ROT1
GEN2
CLA
CLRLNK,
DCA Z LNKSTR
JMP PT1EX

5220

HSEKP

/STORE RAL PATTERN
/SKIP IF LINK EQUALS
/SET RAL LINK STORE
ICLEAR RAL LINK STORE

ISTORE RAR PATTERN
/SKIP IF LINK EQUALS
/SET RAR LINK STORE
/CLEAR RAR LINK STORE

ZERO

Q644

7346

CLL

CLA

K645

6654

AND

RARRTR

4646

7646

2647

1651

TAD

PAT

2650

7646

a051
4652

7456

SNA

7436
5715

SZL
JMP

2654
£655
2956

~1666

K4666

6651

TAD
AND

7646

2957

1653

TAD

a666

7646

CMA

2661
2662
2663

7446

52A

5715

1655

2064

7646

2653

2665

1146

2066

7646

2667

7446

2676

5715

2671
2672
2073

5751

8674
2075

7366
5227

EQUAL

/COMPARE

/JUMP

ERSHIX

EQUAL

ERROR

SWITCHES

/COMPARE LFTLNK
IBIT 6

JMP

ERSHIX

/JUMP

TAD
cm
TAD
cm
52A

RITLNK

LNKSTR

JHP I ERSHIX
JMP I SXOKXl
CLA
SETLNK.
JMP REROTl

6651

AND

216%

7661
3651

DCA

2101

7426

SNL

2162
21fl3
2164
2165
2166
2167
2110

5311

JMS
JMS
Z

PAT

/COMPARE

CMA

RARTR
ZERO

SHOULD

LFTLNK

BENZ.

PAT

/AC

CONTZ.

ERROR

PAT

STL

IMASK

BIT

NITH

PAT

SWITCHES

LINK

ISET

NITH

WITH

RITLNK

LINK

HSEKP
Z

IAC

3146

JMP
TAD
DCA

4363

PTlEXX.

7446
5714

52A
JMP
JMP

5332

SHOULD

PAT

4316

1666

/RARRTR

4142

2676
2677

CMA

ISTORE

/JUMP

CLLINK
K4666
Z LNKSTR
JMS

/SET

LNKSTR

TO
TO

CLEAR

INCREMENTED

LNKSTR

4666

EXl

I ROTZX
ROTOK

/EXIT

ROTATE

TESTS

PATTERN

2111
2112
2113

CLLINK.
CLA
DCA Z LNKSTR
JMP PTlEXX

2114
2115
2116
2117

ERSHIX.
HSEKP.
CLA CLL

ROT2X.

2120

2121
2122
2123
2124
8125
2126
2127
213%
2131
2152
2153
2134
2155

ROT2
ERRSNI
B

DCA
OCA
DCA

PAT

RALRTL

RARRTR

DCA

LFTLNK

DCA

RITLNK

DCA
NOP

LNKSTR

HSEKP
CLA

JMS
TAD

CRLF

ICRLF

JMS

PRXLOP

TAD

JMS

PRXLOP

TAD

NOP
NOP

JMP

ROTOK:

2156
2137
2146

2142

AWILL Paxtopw
JMS Z CRLF

2143

TAD

TWO

2144

JMS
TAD

PRXLOP

JHS

PRXLOP

2147

JMP

ARITH

2159
2151
2152
2153
2154

ARITH.
SXUKXl.

2155
2156
2157
2168

SKP

2161
2162
2163

CMA

2145
2146

2164
2165
2166

EX.
TAD
SZA

ICRLF

ARITHT
SNOKXl
@

LNKSTR

JMP

ROT1

CLA
AND

CMA
2

PAT

JMP
EX1.

TAD

LNKSTR

ROT2X

SZA
SKP

a107

JMP

2170
2171

CLA
AND

CMA
2 PAT

2172
2173

CMA

JMP

EX1

*2200

2200

7300

ROT2.

2201

3056

DCA

2202

7340

CLL

CLA
2

2203

0140

AND

-2204

7440

52A

2205

5250

JMP

2206

7140
0051

2207
2210

7012

CLA

CLL

ICLEAR

TST1

FLAG

LNKSTR

STLNK

CLL CMA
AND
REROT2;
RTR
DCA Z RARRTR

PAT
RTR PATTERN
/SKIP IF LINK EOUALS
/SET RTR LINK STORE
ICLEAR RTR LINK STORE

7430

2213
2214

1072
3055

DCA

RITLNK

2215
2216

1054

TAD

RARRTR

2217

7006
3052

RTL
DCA

RALRTL

/STORE

2220

7430

K4000

K0002

RTL

2221

1060

2222

3053

OCA

LFTLNK

/SET RTL LINK STORE
/CLEAR RTL LINK STORE

2223

7100

2224

1052

CLL
TAD

RALRTL

/RALRTL

2225
2226
2227
2250

7040

CMA

1051

TAD

7040

CMA

7440

SZA

2251
2262

5652
1072

JMP
TAD

2253

0051

AND

2264
2235

7040

CMA

1055

TAD

2256

7040

CMA

2257
2240

7440

SEA

5652

2241

1053

JMP
TAD

4242
2243

7040

CMA

1140

TAD

2244
2245
2246

7040

CMA

7440

SEA

5652

JMP

2247

5653

JMP

2250
2251

7360

STLNK.

5207

JMP

2252

2406

ERSHZX.

2253

2525

SXOKXZ.

SHOULD

EOUAL

RALRTL

/JMP TO ERROR SWITCHES
/COMPARE ROTLNK NITH PAT
/MASK BIT

K0002
PAT

ZERO

PAT

/COMPARE

PAT

FRSNZX

PATTERN

SZL
TAD

BIT
10

ERSHZX
LFTLNK

/LFT

LNKSTR

/COMPARE

ERSN2X
SXOKX2

/JUMP

CLA

CMA

STL

ERRSH2
SHOKX2

[Q[Q

LINK

SHOULD
LFTLNK

ERROR

EQUAL
WITH

LNKSTR

SWITCHES

WITH

RITLNK

REROT2

PATTERN

/STORE

3054

2212

/BRING

2211

SZL
TAD

TEST

CMA

PAT

“2409

ERRSNI,
TAD

DCA

ROTX1
ERIN
CONTXl
CONTX

JMP

ERSN

DCA

TAD

/SCOPE

MODE

RJMP

ADDRESS

ICONTINUE

MODE

RJMP

ADDRESS

RJMP

ADDRESS

ERRSHZ.
TAD

TAD

ROTX2
ERIN
CONTXZ

DCA

CONTX

JMP

ERSH

DCA

ISCOPE

MODE

RJMP

ADDRESS

/CONTINUE

MODE

CONTX.

ERIN.
ERSH.
AND

/READ
2

K1000

/MASK

BIT

CMA

TAD
CMA
SNA

JMS

/TEST

CLA

ROPR
OSR

AND

>w2¢2¥~u7fitfiw ‘wmcflfi
TAD

K4000

/MASK

SWITCH

ITEST BIT 0
/ERROR HALT

SWITCH

BIT

K4000

CMA

SNA

HLT

_sw0K.
2

K2000

JMP

ERIN

JMP

CONTX

AND

IMASK

BIT

CMA

TAD
CMA

SNA

/JMP

/TEST BIT 1 SWITCH
/JMP TO SCOPE MOD
TO CONTINUE MODE

SWITCHES

2444

2020

2445
2446
2447

2001

2450

ROTl

2074

ROTXl,
CONTXl.
GEN1X1.
GEN2X2,

2200
2075

RDTXZ,
CONTXZ.

ROT2

2452
2453

2464

TNDROX,

CONT2
THORO

2465

FINPRX.

FINPR

2454

2650

RARPRX.

RARPR

2455

0000

2456
2457

4026
4714

RDPR,
JMS
JMS

2460

7200

CLA

2461

1056

2462

7440

2463

2464

2451

2000

CONTl
GENl
GEN2

IRJMP

/PRINT
IPRINT

CRLFLF

PATPRX

TAD
SZA

TST1

5266

JMP

RUTlPR

4715

THURO,

JMS

ROTZPX

2465
2466
2467
2470
2471
2472
2473

5655

JMP
FINPR.
CLA
ROTlPR.
TAD RARPRX

ROPR

2474

2475
2476
2477
2500

7200

1254

CR LF
PAT

/PR1NT

PATPRX

CRLF

/PRINT

Z
Z

JMS

1076

TAD

4020

PRXLDP

Z
Z

4020

JMS
TAD
JMS

2501
2502
2503

1102
4020

TAD
JMS

PRXLOP

1053

LFTLNK

7440

2505

5716

2506
2507
2510

4717

LNONER
ZERORX

1102
4020

TAD
SZA
JNP
JMS
R01X.
JMS

2504

2511
2512
2513

1052

TAD

3057

DCA
JMP

DCA
JMS

1075

TAD

4020

1077

5720

2514

9600

2515
2516
2517
2520
2521
2522

2732

2523

3214

2524

5234

2676

2702
2616

7200
1245

CLA

PRXLOP
/A

PRXLDP
ISP

TAD
Z

/LEFT
/LEFT
2

PRXLOP
RALRTL
PRDUT
COUNXX

PATPRX.
ROT2PX.

PATPR

LNONER:
ZERORX.

LNONE
EERDR
COUNPR

ROTZPR

COUNXX.
CLA
SHOKXI.
TAD CONTXI
DCA CONTX
JMP SWOK

CLA
SHUKXZ.
TAD CONTX2

2525

7200

2526

1251

2527

3214

DCA

CONTX

2560

5234

JHP

SHOK

SWITCH

ROUTINE

ROTATE ONE PATTERN
IPRINT ROTATE Two PATTERN

I
Z

3714
4041
7200

LINK
LINK

PRINT
PRINT

ONE
iERD

SP
ISP

/PRINT

RALRTL

CONTENTS

#2600

2600
2601

0000
1101

PATPR.
TAD

2602

4020

PRXLOP

2603

1076

2604

4020

JHS
TAD
JMS

2605
2606
2607
2610
2611
2612

1100

TAD

4020

JMS

1102

TAD

4020

JMS

4361

JMS
TAD

1102

2613
2614

4020
1051

JMS
TAD

2615

3057

DCA

2616
2617
2620
2621
2622
2623
2624

2625
2626

NWN‘UNWNY‘HN

4231

COUNPR.
AND

3112
2112
7410

LSTBIT

DCA

Z
Z

PRXLOP
T

PRXLOP
SP

/SP

PRXLOP
LINK
SP

PRXLOP
PROUT

JHS

/STORE GENERATED PATTERN
MINDEX

/JMS

MASK

COUNTX
STRCNT

182

5600

JMP
CLA

1057

PATPR

PRDUT

STRCNT
I12

COUNTS

,gusmgmggamew,moHW.HWWWHMMWWW

FINISHED

“MMTWW

JHP LSTBIT

2631
2632
2633

0000

MINDEX.

7200

CLA

1074

TAD

XPRDUT

2634

3010

DCA

7040

MINDEX

9!. I:

/SP

PAT

SKP

7200

5221

0137

0410
,262711 42.3 7.1-1..

2556

1—ou

rc-ru

I
ULH

2636

5631

JMP

STARTING ADDRESS
ISTORE INDEX ADDRESS

/INDEX

INDEX

ROUTINE

2657

0000

2640

7440

SEA

2641

5244

2642

4302

JMP
JHS

ONEP
ZEROR

2643

5637

JMP

ONZER

2644

7240

ONEP.

2645
2646

0106
4020

AND

2
Z

ONE

2647

5667

2650

7200

2651
2652
2653

1273
3200

2654

7200

2655

1075

2656

402%

2657
2660

1076

2661
2662
2663

4323
1055

2664

2665
2666
2667
2670

2671
2672

4041

JMS
JMP

CLA

ICR

PRXLOP

RSPACE

5307
4302

JHS
TAD
SZfi
JMP
JMS

11B2

R01XX.

4020

RITLNK
/RIT

LNONEX

LINK

EQUALS

ONE

ZEROR

1954

JMS
TAD

TAD
PRXLOP
RARRTR

3657

DCA

PROUT

5216

JMP

COUNPR

/SP

IPRINT

2673

2465

FINPRN.

FINPR

2674

2507
2744

R01XR,
RTLPRX,

ROlX

2675

ONE

7440

IPRINT

CLA
RARPR.
TAD F1NPRN
DCA PATPR
JMS Z CRLF
CLA
TAD Z R
JMS E PRXLOP

PRINT ONE

CMA

PRXLDP
ONZER

TAD
JHS

4020

/JMP

RTLPR

RARR

CONTENTS

2676

7240

2677
2709

0106

2791

5674

LNONE.
AND 2
JMS Z
JMP I

2702'

0000

ZEROR.

2703

7240
0105

CLA

AND

ZERO

2705
2706

4020

JMS
JMP

PRXLOP
ZEROR

2707
2710
2711

7200
4020

2712

5266

CLA
LNONEX.
TAD 2 ONE
JMS Z PRXLOP
JMP ROlXX

2713
2714

0000

RTCRLF.

7200

CLA

2715
2716
2717
2720

4041

1100

JMS
TAD
JMS
TAD

2721

4020

JMS

2722

5713

JMP

M3723

0000

2724

CLA

2725

7200
1075

2726

4020

JHS
TAD
JMS
JHP

2704

4020

5702

1106

1075
4020

2727

1102

2730

4020

2731

5723

CLA

CMA

ONE

PRXLOP
ROIXR

/PRINT

LINK

/PRINT

CMA

HNNN

CRLF

/CR

PRXLOP
T

PRXLOP
RTCRLF

R§EA§£4hw.wm0.hm.wmww,
TAD

WNN
A

LINK

”w

PRXLOP
SP

ISP

PRXLOP

RSPACE

2732

7260

ROT2PR,'

2733

1275

TAD

RTLPRX

2734

3299
4313

DCA

PATPR

2735

JMS

2736

4323

JHS

RTCRLF
RSPACE

2737

1955

TAD

274a

744a

2741

5307

LNONEX

2742
2743

4392

SZA
JHP
JHS

5266

JMP

R01xx

2744

7232

RTLPR,

2745
2746
2747

1273
3290

TAD
DCA
JHS

2750
2751
2752

1377

2753
2754

4313

RTCRLF

744a

SZA

JMP
JHS
JMP

2761

mama

2762

114a

2763
2764

4237
5761

/RIGHT

LINK

RITLNK
EQUALS A ONE
/PRINT 0 LINK
/PRINT SP AND RARRTR

CLA

5276
4392
5674

2755
2756
2757
276a

FINPRN
PATPR

1053

4323

ICR LF
IR SP

ZEROR

TAD 2
JMS 2
TAD 2
JMS 2
TAD 2

4326
1132

CLA

ICR LF RT
AL

PRXLOP
SP
PRXLOP
LFTLNK

/SP

LNONE

[PRINT

ZEROR

[PRINT

R01XR

PLINK.
a
TAD 2 LNKSTR
JMS ONEER
JMP I PLINK

IPRINT

PAT

LINK

1
0

LINK
LINK

CONTENTS

@214
@235

K0001

0110
0073

K0002

0072

4@5@

Vflflfl‘

ant-14

“vi-JD"

UK)!

@244
@64@

K0010
K0020

@@7@

AXISM

215@
@2@@
@265

K0040
K0100
K0200

@114

BISM
BITSTR

@272
@125
@117

K0400
K1000
K2000
K4000

@@63
@@62
@@61
@@6@

@3@5
@152

K7377
L

@141
@@77

@A
ADD
AODISM
ADDX
AISM

ARGXXX
ARITH
ARITHT

8H1

CISM
CL

@@76

.1.

@@67
@@66
@@65
9064

CLLINK
CLRLNK
CNTR
CONHFD
CDNTX

2111
2@15

LCOMP

4@77

@1@3

@123
@561

LFTLNK

@@53

LINK

@134

2414

CONTXl

42@@
4@15

UONTXZ

2445
2451

CONT1

2@@1

LIST
LISTX
LNKSTR
LNONF

CONT?
COUNPR

2@75
2616
@111
@137

LNONFR
LNONFX

2516
27@7

LPXX

@@22
4122

252@

LRY

COUNT
COUNTX
COUNXX
CR

@1@4

LRX

LSTBIT

@14@
2676

4123
2621

CRLF

@@41

MANYSP

GRt¥t¥
CRY

@@26r

M5330

X@466

@12@
@142

MINDFX

M144
NBIT

2631
4@14
@472

CXM

4075

NOERR

@4@7

CXN
U

4074
0131

NOERX

4124

UlSM
ERIN

0302
2415

UDEVFN

@1@7
4@17

ERROR
ERRSHl

0400

UNE

@1@6

2400

UNEP

2644

ERRSHZ
ERSH

2406
2416

UNZER

2637
@1@1

ERSNIX
tR8w2x

2115

ERX

4076

2152

5X1

2163

PADDOK
pAT
PATPR
PATPRX
PLINK

FCOMP
FINPR
FINPRN

4051

PRERR

2465

PRHEAD

2673
2453

PRINT
PRONF
PRDUT
PRSPAC

FINPRX
G

GENl
GElel
GEN2
GENZXZ
HEADFR
HEDCON

HEURJ
HSEKP

INCR
INCRT
INCRX

2252

0130
2000

@562

@312
@@51
26@@
2514
2761
@423
@521
@416
@5@6
@@57
@512

PRXLOP
PRZERO

@@2@

2074
2447

PTOTAL

@436

0124
0600

PT1EX
pTlEXX

21@5

0563
2116
0223

@@75

RALRTL

@@52

RAND

0415
0224

RAND1
RAND?

4@2@
4@3@
4@@@

2446

@5@4

2@11

RARPR
HARPRX

2454

SNOKXl

HARRTR

2521

$354

SHUKXZ

2525

HCNT

4616
2627
2267

SXDKXl

2151

SXOKXZ

2253
@414

HEROT1
HEROTZ
HITLNK
RJHEn
ROPR

£650

SXY

2434

@166

@625

TOTAL

@121

2455

TSTl
TWELVE

@626

@336

ROTX?
HOT1

2450
2029

ROTlPR
HOT2
ROT2PR
HOTZPX
RDTZX

2466
2209

RSPACE
RTCRLF

SNOK

$355

ROTATE
HOTOK
ROTX1

ROIX
ROlXR
R01XX

2132
2444

2732
2515

2114.
2567
2674
2666
2723

RTLPR

2713
2744

RTLPRX

2675

SETLNK
SL

2972

SPAC06
SPACST

@162
@126
@127

_§PA06

“@53fl_

615$

SPAl?
STLNK

@632
2258

STRCNT
STRXY

@112
@225

SUM

@122

THO

@656

THURO
TNOROX

0113
2464
2452

W01
“02

0115
0116
@132

XARG
XFCOMP
XONZFR
XPROUT
XSTRXY

XTOTAL

@135
@337
@435
$674
4647

B451

XZEROR

B564

YARG
{ERG
tEROR
iERORx

0133
@136
@105
27$2
2517