Digital PDFs

AH-E377A-MC

July 1978

188 pages

Original

9.6MB

view download

OCR Version

7.9MB

view download

Document:	CZRMKA0 RM03-02 DISKLESS PART 2 JUL 1978 bw
Order Number:	AH-E377A-MC
Revision:	000
Pages:	188
Original Filename:	CZRMKA0__RM03-02__DISKLESS_PART_2__AH-E377A-MC__JUL_1978_bw.pdf

OCR Text

RMO03/02

CTRMKAG

comaisinsase - AR
FICHE1 OF1

MADE IN USA

———

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
1

05-APR-78 14:38

MACY11

30A(1052)

O0S-APR-78

—

8
14:49

-—

1
PAGE

ety

SEQ 0001

-REM

2
3

6
?

9
10
1"
12
13
14

16
17
%’

IDENTIFICATION
eeecseccccaccec--

20
5;

PRODUCT CODE:

AC-E376A-MC

PRODUCT NAME:

CZRMKAO RMO3/RM02 DISKLESS DIAGNOSTIC,

DATE CREATED:

1-MARCH-78

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

DOUG RIIKONEN

31
32
33
34

THE

INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE

38
39
2?

AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B8Y DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

42
43
44

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURSHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH

&7
48

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT

;8
51

SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL.

(C)

1978, DIGITAL EQUIPMENT CORPORATION

FOR THE USE
SUPPLIED BY

PART

(ZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PY
05-APR-78 14:38

MACY11

05~APR-78

30A(1052)

14:49

PAGE 2

CONTENTS

INTRGOUCTION
1.

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

HARDWARE

REQUIREMENTS

MEDIA REQUIREMENTS

PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

SWITCH OPTIONS

STARTING
INTERFACE

PROGRESS REPORTS

&
&
e

PROGRAM ID

1.
N

OPERATOR

PERFORMANCE REPORTS

PROGRAM HALTS

ERROR REPORTS

ENVIRONMENTAL

107

SUPPORT

PROCESSOR COMPATIBILITY

DUAL PORT (CONFIGURATIONS

MEMORY PARITY HARDWARE

MEMORY MANAGEMENT HARDWARE

ACT,APT COMPATIBILITY

SEQ 0002

(IR

CZR

NOWVNESEWN 2O oo

b
b
b
d
b
d
b
b

-J—.c—‘_‘—‘—.—‘—.o o

CIZRMKAQ RMOS/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38

MACY11

30A(1052)

O05-APR-78

D
14:49

1
PAGE 3

XXDP COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

SEQ 0003

(IR
CIR

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
118
119
120

05-APR-78 14:38

MACY11 30A(1052)

O0S-APR-78

14:49

PAGE 4

SEQ 0004

121
122
}52

1.0

INTRODUCTION

1.1

ABSTRACT

125
126
127
}gg

THE RMO3 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH
USES
FUNCTIONAL
AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RMO3
DISK SUBSYSTEM EXCLUDING
AND
INDEPENDENTLY
OF
THE
STORAGE
MODULE
DRIVE.
IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES:

}gg

TO DETECT ERRORS AND FAULTS

IN THE RMO3 MASSBUS ADAPTER;

132
133
134
135

TO RESOLVE WARDWARE FAILURES
OR MODULES.

}gg

1.2

UNIT UNDER TEST

139
}2$

THE

THE UNIT UNDER TEST (UUT) IS THE RMO3 DISK
SUBSYSTEM,
STORAGE MODULE DISK DRIVE AND THE
MASSBUS CONTROLLER.

}22

2.0

OPERATING REQUIREMENTS

}zg

2.1

HARDWARE REQUIREMENTS

148
149
150
151
152
153
154
155
156
157
158
159

THE FOLLOWING
MINIMUM
HARDWARE
OPERATIONAL,
IS
REQUIRED
TO
LOAD
DIAGNOSTIC:

136

142
143

IN RMO3 TO A FIELD REPLACEABLE MODULE

EXCLUDING

CONFIGURATION,
ASSUMED
TO
BE
AND
EXECUTE
THE
RMO3 DISKLESS

PDP-11 PROCESSOR
16 K MEMORY
KW11-L OR LW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL
RH
CONTROLLER
UNIT UNDER TEST,
WHERE THE UNIT UNDER TEST CONSISTS OF

ONE

TO EIGHT

RMO3 ADAPTERS.

CZR

CZRI

MACY11

30A(1052)

0S5-APR-78

14:49

PAGE 5

SEQ 0005

160
161

162
163

164
165

166

167

2.2

169
170
17
172
173

NONE

168

1;?
176
1;;
1
179
180

2.3

MEDIA REQUIREMENTS

PREREQUISITE DIAGNOSTIC PROGRAMS

CZRMJ-

,RMO3/02 DISKLESS DIAGNOSTIC

PART

:g;

3.0

OPERATING PROCEDURE

zgz

3.1

185
186
187
188

THE PROGRAM MAY
BE
LOADED
BY
EITHER
PAPER
TAPE,
USING
THE
STANDARD
PAPER
TAPE
LOADING
PROCEDURE,
OR
XXDP
MEDIA, USING THE
APPROPRIATE LOADING DEVICE.

189
190

191

:3%

3.2

194
195
196
197
198
199
200

THE FOLLOWING SWITCH OPTIONS ARE
SWITCH IS ON.

201
202
203
ggg

SW12
SWil
SW10
SW09
Swo8

206
58;

THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL LOOP ON.

SWis
SW14
SW13

SWITCH OPTIONS
[INVOKED

WHEN

THE

APPROPRIATE

HALT ON ERROR
LOCP ON TEST (CURRENTLY BEING EXECUTED)
INHIBIT ERROR TYPEOUTS

UNUSED
INHIBIT
BELL ON
LOOP ON
LOOP ON

TEST ITERATIONS
ERROR
ERROR
TEST IN Sw07-00
SPECIFY

CZRe
CZR

[ N el Ve N N N N W oW N W N e Ny Y Y Y N Y RS NN NV NN N NN N NN VNP NP N VENE VR WRWE VE VR N W VL Vi VR VI VE N

CZRMKAOQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.PI
05~APR-78 14:38

209
210
2N
S}%
214
215
216
217
218
219
220
221
ggg
224
225
226
227
228

MACY11

30A(1052)

3.3

0S5-APR-78

14:49

PAGE 6

SEQ 0006

8
8
8
S

STARTING

THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT
VALUES
OFf
PARAMETERS AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL
TO ZERO.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST
IS STARTED AFTER BEING LOADED.

TIME

4.2

231
232
233
234

AN END OF PASS REPORT OCCURRS EACH TIME THE PROGRAM
S
EXECUTED
FOR
ALL
ADAPTERS IN THE TEST QUE.
THE END OF PASS REPORT INCLUDES A
MESSAGE AND AN ERROR SUMMARY.

ggg

4.3

239
240
241
242
243
gzg

NO PERFORMANCE REPORTS ARE GIVEN
PROGRAM.

4.4

246
Szg

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER.

249
250
52;
253

254

4.5

PROGRESS REPORTS

g
8

g
8
&
8

€
¢

PERFORMANCE REPORT

DURING

THE

EXECUTION

THE

L
¢
€
€
€
g

THE PROGRAM.

€
E

PROGRAM HALTS

ERROR REPORTS

€
€
f

THE RMO3 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR REPORTS

€

INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE REFERENCES TO

ggg

PROGRAM LISTINGS.

257
258
259
260

THE FIRST LINE OF THE ERROR REPORT CONTAINS
THE
NUMBER OF
THE
UNIT
BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE Of
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED.
THIS LINE IS FOLLOWED
BY
THE
ERROR
MESSAGE:
SEVERAL
LINES
OF
TEXT
WHICH
GIVE
A

261
262
263
264

&
8
8
8
&
&
§
8
g

&
8
&

ggg

235
236

CIRP
CZRY

COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING MODULES
IN ORDER
OF
DECREASING PROBABILITY.
THE ERROR MFSSAGE IS NORMALLY
FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS AND
DATA PERTININENT
TO
THE
ERROR,
INCLUDING EXPECTtL awD ACTUAL TEST

€
f

¢
4
¢
¢

€
¢
¢
¢

RESULTS.

O05-APR-78

14:49

1
PAGE

SEQ 0007

CIRM
CIRM
O 00 00 0o 00 0o 0o Co 0o 0o 0o 0o 0o OO 0o 0o 0o 0o 0o 00 OO

30A(1052)

265

MACY11

O O

(ZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

266
267
268
269
270
27
272

273

274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296

MACY11

30A(1052)

1
PAGE 8

l
14:49

O0S-APR-78

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY
THE

PROCESSOR,
MET.

5.2

RMO3

DISKLESS

PROVIDING

SEQ 0008

DIAGNOSTIC

PREVIOUSLY

EXECUTABLE

MENTIONED

HARDWARE

THE

RMO3 DISKLESS DIAGNCSTIC
DUAL
PORT

MEMORY PARITY HARDWARE

THE

RMO3 DISKLESS DIAGNGOSTIC.

5.4

MEMORY MANAGEMENT HARDWARE

MEMORY

PARITY

HARDWARE

WILL

MEMORY MANAGEMENT HARDWARE
DISKLESS DIAGNOSTIC.

ACT11,
THE

APT11

IS NOT EXECUTABLE ON RMO3 SUBSYSTEMS

NOT

WILL

USED

NOT

DURING

THE

USED

THE

RMO3

COMPATIBILITY

RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11

MODE
.

EXELUTION

ODURING

APT11
IN
BOTH
DOUMP
AND AUTOMATIC MODES.
FURTHER,
EXECUTE A QUICK PASS DURING THE FIRST PASS [N SUPPORT

AND

THE PROGRAM WILL
OF QUICK
VERIFY

XXDP COMPATIBILITY

THE RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH
DUMP AND CHAIN MODES.

XXDP

b =

WYLV IV LY AV

b ok o

ARE

PORT OPTION UNLESS THE DUAL PORT SWITCH IS SET TO THE
(A OR B) AND NOT TO THE PROGRAMMABLE POSITION (A/B).

5.3

5.5

VIV TV ]

PDP-11

DUAL PORT CONFIGURATIONS

HAVING
THE
APPROPRIATE

5.6

ANY

REQUIREMENTS

5.7

OPERATING SYSTEM COMPATIBILITY

SYSTE;HE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

ANY

QPERATING

CZRM
CZRM
OV O VOOV OVOOVOOVOOVOWOOOVOVOVOOVOVOOVOVO
OOV OOOVIOOVOOVOVOOVOOVOVOVOOVOOVOOVOOVO

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1N
05-APR-78 14:38

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1Y

05-APR-78 14:38

MACY11

30A(1052)

321
322
323
%gg

6.0

0S5-APR-78

J
14:49

1
PAGE 9

SEQ 0009

CZRM

9
9
9
g

TEST DESCRIPTION

326
327
328
329
330
331
g%g

FHE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST
GENERALLY
USES
A
MORE
COMPLEX SUBSET Nf JARDWARE THAN THE PREVIOUS
TEST.
MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS
BEEN
COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE.
NONTRANSIENT HARDWARE FAILURES.

9
9
9
9
9
9
3

334
;gz

RH11

THE *'RMO3 DISKLES DIAGNOSTIC' CAN BE EXECUTED USING AN RH70 OR AN
MASSBUS CONTROLLER.

9
g

HAVE

337

UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE

g;g

TEST

IS REPEATED FOR EACH POSSIBLE DEVICE

STARTING WITH DEVICE 0.

340
341
342
343
344
345
346
347
gzg

THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION
TEST ARE AS FOLLOWS:

THE
THE

IF
S
DS
MASSBUS MCDULE
THE RADIAL MODULE

(RD)

IS NOT TESTED BY THIS PROGRAM.

350

363
364
365
366
367
368
369
370
37N
372
373
374
375
376

9
9
9
9
9

TRANSFER TES®

356

362

9
9
9
9
9
9
9
9
g
9

351
352
353
354
355

357
358
359
360
361

PURPOSE :

TO VERIFY THAT THE RMO3 CAN COMPLETE A REGISTER TRANSFER
ON
THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT '‘TRANSFER'' IS NOT
STUCK IN AN INACTIVE STATE.

PROCEDURE :
THE PROGRAM WRITES
AND
SELECTED
DEVICE.
REGISTER

9
9
9
9
10

10
READS
REMOTE
CONTENTS
AND

REGISTERS
FOR
PARITY ERRORS

THE
ARE

IGNORED, AND THE TEST FAILS IF A ‘'NONEXISTENT DEV.iCE
ERROR'' OR
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS.
IF THE TEST FAILS
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH
SELECTS
THE
NEXT DEVICE TO BE TESTED.
PROBABLE FAULT:
THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR
IS
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT.
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE
DEVICE
IS
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT.

10
10
10

10
10
10
10
10
10
10
10
10
10
10

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PIN
05-APR-78 14:38

MACY11

30A(1052)

O05-APR-78

14:49

PAGE 10

SEQ 0010

377

410
411
412

ASYNCHRONOUS MASSBUS MODULE

(S MODULE

i —ad

CAN BE

TRANSFERRED

TO AND

FROM

THE

RMO3

VERIFY

THAT

IN
PARTICULAR,
FAILED.

PROBABLE

THE

TEST THEN READS AS MANY REMOTE REGISTERS

TO OBTAIN ONE

OR MORE

ONE BITS.

NECESSARY

H'' IS STUCK AT ONE.

THEN
READS
EACH
IF "IF3 CTOD HOLD

FAULT:

1F MODULE

ASYNCHRONOUS MASSBUS MODU!£

613
414

615

416

417
618
619
420
421
422
423
424
425
426

427

428
429
430
431

MASSBUS

INITIALIZE

TEST

PURPOSE:

TO VERIFY
THE MASS BUS.

THAT

THE

MASSBUS

ADAPTER

IS BEING

INITIALIZED

B8Y

PROCEDURE
:

USING CONTROLLER CLEAR TO

INITIALIZE

THE

SEIECTED UNIT,

TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT
ONE BIT IS CLEARED.
MASSBUS ADAPTER REGISTERS ARE
PRESET
NCN ZERO VALUE PRIOR TO CONTROLLER CLEAR.
PROBABLE

b —

THE TEST WRITES ONES IN REMOTE
REGISTERS
REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER

wnd o

PROCEDURE:

AS ARE

b =D wnd

THAT DATA

TO VERIFY

USING
THE
CONTROL
BUS
AND,
"'CONTROLLER TO DEVICE'® HAS NOT

PURPOSE:

CTOD TEST

403
404
405
406
407
408
409

MODULE

402

o000 0000000000000

390
3N
392
393
394
395
396
397
398
399
400
40

378
379
380
381
382
383
384
385
386
387
388
389

FAULT:

THIS

LEAST
TO
A

(ZRMKAO RMG3/2 DSKLS PRT 2
CZRMKA.P
0S-APR-78 14:38
432
433
634
635
436
637
438
639
440
1y
442
443

MACY11

30A(1052)

O05-APR-78

14:49

SEQ 0011

PAGE 11

CZRM
CZRM

10!
1.

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

(S MODULE

10¢

10¢
10¢

444

IS NOT STUCK

PROCEDURE
:

CONTROLLER CLEAR IS USED TO INITIALIZE
THE
SELECTED
UNIT,
AFTER
WHICH
1'S
ARE
WRITTEN
IN
ERROR
REGISTERS 1 AND 2 AND
MAINTENANCE REGISTER 1.
IF ANY 1 BITS CAN BE READ BACK THE
TEST

IS 0K, ELSE, "MBA CLR L'’ IS PROBABLY STUCK ACTIVE.

PROBABLE

FAULT:

€S MODULE

ASYNCHRONOUS MASSBUS MODULE

b —b
b

TEST

INDEPENDENT.

THIS TEST PRESETS MASSBUS ADAPTER
REGISTERS
TO
A
NONZERO
VALUE,
THEN,
ASSUMING
THE REGISTERS ARE PRESET, IT CLEARS THEM
USING A MOVE INSTRUCTION.
THE TEST THEN READS AS MANY
REGISTERS
SSSI%?O NECESSARY
TO
OBTAIN
ONE
OR
MORE
ZEROS FROM EACH BIT
N.

b
b

AN
A

PROCEDURE
:

BIT POSITION

THE
MASSBUS
ADAPTER
OR ZERO AND THAT EACH

AR,

TO VERIFY THAT THE PATH TO
AND
FROM
TRI-STATE
REGISTER BUS IS NOT STUCK AT ONE

i
b

:
PURPOSE

TRANSFER

b cud b b @b b
b ad cud ad b ad

TRISTATE

MODULE

474
475
476
477
478
479
480
481
482
483
484
485
486
487

CS MODULE

4«70
4“7
672
473

THAT ''MBA CLR L'' ON THE

STATE.

467
468
469

TO VERIFY

AN ACTIVE

b ed
b b

466

:
PURPOSE

448
449
450
651
652
453
454
455
456
457
458
459
460
461
462
463
464
465

TEST

CLEAR SiUCK ACTIVE

—d
-

446
447

445

)

488

= - ) P -— -—

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
L. a.[«
4 ~[+
o] -— ~ ~[
o]
oN 4

o -« A -— [
=] ["al

4 ~ a0
[
=] [Va) -[+[[}

L
14:49
PAGE 12

SEQ 0012

CZRNI
CZRNI

500
501
502
503

504
505

506

PAGE

SEQ 0013

CZRMx
CZRM

THE TEST CLEARS MASSBUS ADAPTER
REGISTERS,
THEN,
ASSUMING
THE
REGISTERS
ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS
MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS
N
EACH BIT POSITION.

FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN .BIT
0
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE
READ BACK.
THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR
ALL
BIT POSITIONS.
PRUBABLE

FAULT:

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

(S MODULE

DS MODULE

SELECT

TEST

PURPOSE:

TO VERIFY
POSITION.

THAT

THE

SELECT

LINES ARE

NOT

IN A

STUCK

PROCEDURE
:

EACH REGISTER SELECY LINE

TESTED

B8Y

WRITING

ZEROS

THOSE
DEVICE
REGISTERS
FOR
WHICH
THE LINE MUST BE ZERO, THEN
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE

ONE.
THE
ZERO
REGISTER IS READ BACK AND IF THE SELECT LINE IS
STUCK AT ZERO, THE ZERO REGISTER WILL CONTAIN ONES.
THE
PROCESS
IS
REPEATED TO DETECT A STUCK AT ONE FAULT, EXCEPT IN THIS CASE,
THE

ONES

IS WRITTEN FIRST.

FAULT:

ASYNTHRONOUS MASSBUS MODULE

MODULE

|IN
THIS
TEST'.

Ve
N

14:49

05-APR-78

30A(1052)

—

489
490
49
492
493
494
695
496
497
498
499

MACY11

—

CIRMKAD RMO3/2 DSKLS PRT 2
CIRMKA.P1
05-APR-78 14:38

SEQ@ 0014

TESY

PURPOSE:

TO TEST

THE

"'DRIVE

TYPE'' REGISTER,

RMDT.

PROCEDURE:

PRGGRAM READS

RMDT

AND VERIFIES

THAT

THE

CORRESPONDS TO A SINGLE PROT OR DUAL PROT RMO3 DRIVE
PROBABLE

1.
DEVICE

FAULT:

MOULE

AVAILABLE

TEST

:
PRUPOSE
TO VERIFY

562

563

RESULT

THE

THAT

DEVICE

AVAILABLE

STATUS

SET.

PROCEDURE:

544
565
566
567
568
569
570

THE

PROGRAM TESTS '‘DVA"',BIT

PROBABLE

RMCS1.

FAULT:

MODULE

572
573
574
575
576

577
578

579
580
581
582
583
584
585
586
587
588
589
590

591
592
593
594
595
596

597
598
599

TIMEOUT

TESY

:
PURPOSE

TO VERIFY

THAT

THE

TIMEOUT ONE

EXCEPT WHEN "'SEARCH TO DISABLE'' IS ACTIVE.

SHOT SETS '‘OPI'’,

PROCEDURE:

WITH SEARCH TIMEOUT DISABLED,

THE

TEST EXECUTES A DATA

COMMANG TO THE POINT WHERE ‘P ENABLE SEARCH' IS ASSERTED.

AFTER WAITING A SUFFICIENT PERIOD AND VERIFYING

IS NOT SET,

THAT

OP]

THE TEST ENABLES SEARCH TIMEOUT AND VERIFIES

THAT OP]

SETS.

PROBABLE

FAULT:

cz
cs
_A_A_A_a_2a_a_a

TYPE

2
PAGE 14

DRIVE

B
14:49

OS5S-APR-78

_A—a_a_a_a
A
A _aA . .A

551
552
553
554
555
556
557
558
559
560
561

30A(1052)

e
. A
S —

544

545
546
547
548
549
550

MACY11

CIRMKAQ RMO3/2 DSKLS PRT 2
CZRAKA.P1Y
05-APR-78 14:38

exvetpenttmsrangunasecstsSytle
SS

(S MODULE

NOTE:

IS ASSUMED THAT

THE °'SET OPI

ALREADY PASSED, THUS MAKING THE
AN IMPROBABLE FAULT.

TEST'' HAS
IF

MODULE

0S5-APR-78

c
14:49

2
PAGE

SEQ 0015

b
D
D
d —d
D

TEST

THAT "MAINTENANCE
OR ZERO.

THAT "ENABLE SEARCH' IS NOT

SECTGR COMPARE'' IS NOT STUCK AT ONE
STUCK AT ONE OR ZERO.

INSURE

THAT

THE

SECTOR

COMPARE

FLOP

THIS

TEST

SET

SECTOR PULSE AND VERIFY

FAILS

INPUT

TO SECTOR

THAT DTE
COMPARE

IS STUCK AT ONE.

DS MODULE

(S MODULE

FAULT:

PROBABLE

REPEAT, BUT SET MAINTENANCE SECTOR COMPARE AND VERIFY
THAT DTE SETS.
THIS TEST FAILS IF MAINTENANCE SECTOR
COMPARE IS STUCK AT ZERO.

640
641

b wmd

642
643
644
645

TEST

:
PURPOSE

ENABLE UNTIL

THAT

THE NEXT

CHANGE

FORMAT

INHIBITS

INDEX PULSE.

TO VERIFY

PROCEDURE:

THE

TEST WILL USE ''OTE'' FOR VISIBILITY OF

CHANGE

FORMAT

649
650
651
652
653
654
655

FLOP

D e

SHOULD NOT SET.

RESET.

637
638
639

648

IS ACTIVE.
SET AND RESET THE SECTOR PULSE TO SET ''CS3 EN
SEARCH' FLOP, AND CLOCK °''CSS SECTOR COMPARE'' FLOP WHICH

636

647

P EN SEARCH H

I.E.,

wid

IN MAINTENANCE MODE

IS ENABLED,

EXECUTE A DATA COMMAND

)

(2)

POINT WHERE

)

THE

)

IS NOT STUCK AT ONE.

TEST WILL

THIS

(1)
INITIALIZE AND VERIFY THAT "DTE'' IS RESET, THEN
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL

PROCEDURE
:

RESET.

D —d

TIMING ERROR'' CAN

THIS TEST ALSO VERIFIES

CS MODULE,

D wd

THE

SET BY

bt wd

IN ADDITION TO VERIFYING THAT '‘DRIVE

:
PURPOSE

)

SET DTE

624
625
626
627
628
629
630
631
632
633
634
635

646

CZR
CZR
b —d

30A(1052)

600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623

MACYT1

"‘CS3 EN

—

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA. P11
0S-APR-78 14:38

b
b
)
D
b

SET ''MAINTENANCE SECTOR COMPARE'',

(4)
RESET SECTOR PULSE TO CLOCK ''CSS SECTOR COMPARE'’
FLOP WHICH WILL NOT SET IF ''CS3 EN SEARCH W' IS INACTIVE.

SECTOR

FORMAT

CHANGE

DTE

FROM

SET.

18 BIT MODE

)

FAULT:

(S MODULE

VERIFY

702

PROCEDURE
:

704
705
706

MAINTENANCE
MAINTENANCE

THAT

WORD

CLOCK

AND

PROM

CAN BE

MAN-

ed
D

INITIALIZE AND SET 16 BIT MODE,

PROBABLE

STROBE

IN MAINTENANCE MODE.

CLOCK
CLOCK

FAULT:

(S MODULE

UNTIL PROM STROBE
PULSES AND VERIFY

THEN SEQUENCE

THE

SETS.
[ISSUE -- MORE
THAT PROM STROBE RESETS.

D ed

IPULATED

700

PURPOSE:

d e

TEST

STROBE

PROM

D e

b v

WITH A

THAT

PROBABLE

TEST

AND VERIFY

REPEAT THE
TO 16 BIT MODE.

COMPARE

TO SET "'CS3 EN SEARCH"

SET

FORMAT

(7)
SET AND REScT SECTOR PULSE
FLOP AND ''CS5 SECTOR COMPARE'' FLOP.
(8)

THE

TOCLEAR

)

INDEX PULSE

(6)
SET AND RESET
CHANGE FLOP.

TIMING

(5)
SET SECTOR PULSE AND VERIFY THAT DRIVE
IS RESET.

ERROR

D i d el

CHANGE.

FORMAT

THE

SHOULD NOT SET BECAUSE OF

)

THEN SET

SECTOR PULSE'* TO CLOCK ''CS3 EN SEARCH'' FLOP

d e

SEQUENCER.

WHICH

(3)

THE

EXECUTE A CATA COMMAND TO THE POINT WHERE SEARCH

"MAINTENANCE

672

707
708
709
710
AR

EXECUTED:

(2)

IS ENABLED BY

667
668
669
670
671

CZR
CZR

FOLLOWING STEPS ARE

(1)
INITIALIZE AND SET THE FORMAT TO 18 BIT MODE
TO SET ''CS3 FMT CHANGE'' FLOP.

666

703

SEQ 0016

THE

662
663
664
665

701

SEARCH H'.

661

673
674
675
676
677
678
679
680
681
682
683
684
585
686
687
688
689
690
6N
692
693
694
695
696
697
698
699

2
PAGE

)

656
657
658
659
660

D
14:49

O05-APR-78

30A(1052)

MACY11

ek d

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

2
PAGE 17

SEQ 0017

DS MODULE

b
b wd
i

TEST

INHIBIT

THAT

*'CS4&

;g?

THAT

'"LOOKING FOR

;gg

PROCEDURE :

730
731
732
733
;gg

A READ COMMAND IS SETUP AND EXECUTED TO THE POINT
WHERE ‘'LOOKING FOR SYNC'' SHOULD BE ACTIVE, WITH THE
PROGRAM VERIFYING THE TRANSITION OF THE SIGNAL.
THE
PROGRAM THEN SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES
THAT ''PROM STROBE'® NEVER GOES ACTIVE.

736
737
;gg

PROBABLE

CS MODULE

IF LFS FAILT,

;2?

DS MODULE

If PROM STROBE

760

SYNC)

THE WORD

COUNT

D i

SYNC'' INHIBITS

GOES ACTIVE.

b
d ad ad

FAULT:

PURPOSE:
SYNC PATTERN

THE APPROPRIATE

b cnd

THAT

PROCEDURE :

THE TEST EXECUTES A READ COMMAND IN MAINTENANCE MODE,
USING BIT 10 OF THE MAINTENANCE REGISTER (RMMR1) TO SIMULATE THE SYNC BIT STREAM, AND USING PROM STROBE TO DETERMINE

IF THE SYNC PATTERN HAS BEEN DETECTED.
THE

SYNC PATTERN

IS 00011001, WITH THE LEFT MOSY

763
764
765
766
767

PROBABLE FAULT:

THE STREAM,

DS MODULE

d e

BIT REPRESENTING THE LAST BIT OF

(S MODULE

;2;

D ad

TO VERIFY
RECOGNIZED.

TEST

DETECTION

SYNC

D end

D ad

D ond

FAILS.

;gg

(LOOKING FOR

d =D

;gg

755
756
757

P LFSTM

TO VERIFY THE FOLLOWING DURING READ COMMAND:

;S%

)

PURPOSE :

WORD COUNT

SYNC

;%0

742
743
744
745
746
747
748
749
750
751
752
;gz

CZR
CIR

E
14:49

b —d —b

O5~APR-78

b e

30A(1052)

D el

712
713
714
715
716
v
;1%

MACY11

)

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38

SEQ 0018

b
D
d
D
b
d —d

SYNC DETECTION TEST

PROCEDURE :

782
783
784
;gg

A READ COMMAND IS INITIATED IN MAINTENANCE MODE.
WHEN
"'LOOKING FOR SYNC'' oOES ACTIVE, THE TEST FORCES A DRIVE
TIMING ERROR AND UUSES PROM STROBE TO VERIFY THAT ''WORD
COUNT INHIB1T'' hAS BEEN RESET.

787
788
789
790
791
792
793
794
795
796
797
798
799

PROBABLE

SYNC

— e

FAULT:

DS MODULE

GENERATION TEST
PURPOSE:

TO VERIFY

THAT

THE

APPROPRIATE

GENERATED DURING A FORMAT OPERATION.

SYNC PATTERN

gg%

PROCEDURE :

804
805
806
gg;

THE TEST EXECUTES A WRITE HEADER AND DATA COMMAND
IN MAINTENANCE MODE, AND VERIFIES THAT THE CORRECT SYNC
PATTERN IS GENERATED BY MONITORING WRITE DATA AT THE MAINTENANCE REGISTER (RMMR1).

809
810
811
812
813
814
815

PROBABLE FAULT:

816

;g?

d wd

i ad

TO VERIFY THAT '‘WORD COUNT INHIBIT'' IS RESET I[Ff
"DRIVE TIMING ERROR'' OCCURS DURING SYNC DETECTION.

PURPOSE:

776
777
;;g

b e

ABORT

775

gg?

CIR

PAGE 18

14:49

768
769
770
144!
772
;;2

05-APR-78 14:38

O0S-APR-78

)

CIRMKA.P11

MACY11 30A(1052)

CZRMKAQ RM03/2 DSKLS PRT 2

DS MODULE

WRITE HEADER TEST

g}g

PRUPOSE :

819
gg?

TO TEST THE OPERATION OF (1) THE DATA BUFFER AND SHKIFT
REGISTER AS WELL AS (2) THE ECC GENERATION DURING WRITE.

822
823

PROCEDURE:

CZRMKAQ RM0O3/2 DSKLS PRT 2
CZRMKA.PIN
05-APR-78 14:38
g%é

g%g
ggg
g%?

MACY11

30A(1052)

O05-APR-78
A WRITE

CRC

SEQ 0019
IS EXECUTED

CHARACTER USING THE WRITE DATA BIT OF

IN MAINTENANCE

THE MAINTENANCE

16 BIT

836
837
533

HEADER:

TEST USES

CYLINDER 822,

FORMAT,

WHICH CORRESPONS

WORD 1

- 1101001100110110

22?

868
869

MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE

ggé

864
865
ggg

2
PAGE

HEADER AND DATA COMMAND

g%%

842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
gg%

6
14:49

TRACK 4,

TO THE

SECTOR

AND

FOLLOWING

WORD 2 - 0000010000011111
PROBABLE

FAULT:

DS MODULE OR MASSBUS MODULE
HEADER COMPARE TEST

PURPOSE:
TO CHECK THE OPERATION OF (1) THE SHIFT REGISTER AND
DATA BUFFER AS WELL AS THE (2) CRC GENERATOR DURING
READ.
PROCEDURE:
THE TEST EXECUTES A READ HEADER AND DATA COMMAND IN
MAINTENANCE MODE USING BIT 10 OF THE MAINTENANCE REGISTER
(RMMR1) TO SIMULATE THE DATA BITS FOR THE FIRST AND SECOND
HEADER WORDS AS WELL AS THE CRC CHARACTER.
THE CRC CHARACTER IS
1S FAULTED, AND THE TEST
VERIFIES THAT A CRC ERROR IS DETECTED.
ADDITIONALLY, THE TEST VERIFIES THAT HEADER WORDS ONE AND TWO
ARE CORRECTLY TRANSFERD TO MEMORY.
THE TEST USES THE SAME HEADER AS IN THE PREVIOUS TEST EXCEPT
THAT BIT 15 IS INVERTED.
PROBABLE FAULT:
DS OR I1f MODULE IF CRC ERRGR NOT DETECTED;
DS OR MASSBUS MODULE IF DATA INCORRECT
ECC GENERATION TESY

870
&71
g;%

PURPOSE
:

g;g

PROCEDURE :

876
877
878
879

A WRITE DATA COMMAND IS EXECUTED IN MAINTENANCE
MODE.
ALL ONES DATA FIELD IS USED, AND THE TEST VERIFIES
THE ECC CHARACTER VIA THE WRITE DATA BIT OF THE MAINTENANCE
REGISTER.
THE DATA FIELD IS NOT VERIFIED.

TO CHECK ECC OPERATION DURING WRITE.

30A(1052)

O05-APR-78

H
14:49

2
PAGE 20

SEQ 0020

PROBABLE FAULT:
DS MODULE

DETECTION TEST
PURPOSE:
TO

CHECK

THE

ECC

GENERATION DURING READ.

PROCEDURE
:

THE TEST EXECUTES A READ DATA COMMAND
MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER
WORD IS FAULTED.

AND

THAT

IN MAINTENANCE
THE LAST DATA

THE TEST VERIFIES (1) THAT AN ECC ERROR IS DETECTED
(2) THE POSITION AND PATTERN REGISTERS ARE VALID.

PROBABLE

FAULT:

TV
IV

b =D
) ad

YW
YWV IV

b wd

TV
IV

b ad

YW YV

b ad
b

YW YW

D
b
wtd
i
o

YW
YW IW
YW

wd o

D =D

YW IV

DS MODULE

[V IV

ecc

—d e

880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903

MACY11

[

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

2
PAGE 21

SEQ 0021

wd b d

:*PROGRAM BY DOUG RIIKONEN
. %

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(
(MAINDEC-11-DZQAC-C3),

JAN 19,

1977,

SWITCH SETTINGS

HALT ON ERROR
LOOP ON TEST

ERROR TYPEOQUTS
[TERATIONS
ERROR
ERROR

LOOP ON TEST

IN SWR<7:0>

s*MISCELLANEOUS DEFINITIONS

HT=

LF=
CR=
CRLF=
PS=

12
15
200
177776

177774
177772
177570
177570

STKLMT=
PIRG=
DSWR=
DDISP=

177774
177772
177570
177570

000000
000001
000002
000003

RO=
R1=
R2=
R3=

.EQUIV

PS,PSW

;. CODE

FOR HORIZONTAL

s STACK LIMIT REGISTER
; PROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER

s *GENERAL PURPOSE REGISTER DEFINITIONS
10
14
12
13

TAB

;.CODE FOR LINE FEED
;. CODE FOR CARRIAGE RETURN
:;CODE FOR CARRIAGE RETURN-LINE FEED
: PROCESSOR STATUS WORD

e
b

000011
000012
000015
000200
177776

ERROR CALL
SCOPE CALL

;:BASIC DEFINITION OF
;.BASIC DEFINITION OF

1100

EMT,ERROR
I0T,SCOPE

.EQUIV
.EQUIV

YY" ' "Y1V

;*INITIAL ADDRESS OF THE STACK POINTER tt+ 1100 wx+

STACK=

) S bbb

TPV IV IV

b bbb

IV IV IV IV "V

TN128
TN64
TN32
TN16
TN8
TN4
TN2
TN1
DEFINITIONS

INHIBIT
INHIBIT
BELL ON
LOOP ON

BASIC

USE

O=MNIWH
NN
OO
WU

T
T

NN
N
B
N
%
N
%

TR
P A
I
IO
TR
TP

%
¥

PR
R

N
N

R
T

B
¥
»
»

TP
I
I

.SBTTL

001100

SWITCH

i od b

OPERATIONAL

$TN=1
.SBTTL

000001

; ;GENERAL
:;GENERAL
; ;GENERAL
;;GENERAL

; *PACKAGE

) wd D ad wh D

b b el adad od ad ad b b

;*MAYNARD, MASS. 01754

YV YV IV IV TV TV IV TV IV TV JV TV JV IV IV JV TV JV JV TV

;*DIGITAL EQUIPMENT CORP.

ped bl bbb

CZRMKAO RMO3/2 DSKLS PRT 2

.TITLE

IV IV JV JV IV ]

:PROGRAM REVISION #001

CIRY
CZRP

b =

1
14:49

i wnd med b

0S5S-APR-78

N T N
TN
T

953
954
955
956
957
958
959

30A(1052)

904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952

MACY11

b b e e

CZRMKAO RM03/2 DSKLS PRT 2
CIRMKA.PI
05-APR-78 14:38

020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100

;:PRIORITY LEVEL
;:PRIORITY LEVEL
;:PRIORITY LEVEL

JsPRIORITY

::PRIORITY
;;PRIORITY
;sPRIORITY
:;PRIORITY

b
d
d
d
wd
D

[an]

DEFINITIONS

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;%' 'SWITCH REGISTER' SWITCH DEFINITIONS
100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09,Sw9
SW08,Sw8
SW07,Sw?7
SW06,SWwé
SWO05,SW5
SWO04,SW4
SW03,SwW3
SW02,Sw?
SW01,sW
SW00,Sw0

.*DATA BIT DEFINITIONS (BITOO TO BIT1S)
BIT15=
100000
BIT14=
40000
BIT13=
20000
BIT12=
10000
BIT11=
4000
8IT10=
2000
81709=
1000
B8IT08= 400
BIT07=
200
BIT06=
100

d ad

LEVEL

0
40
100
140
200
240
300
340

SW15=
SWié=
SWwi3=
swi2=
SWi1=
SW10=
Sw09=
Sw08=
Swo7=
SW06=
SW05=
SW04=
SW03=
SW02=
SWwo1l=
SWoo=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

; *PRIOR] TY

; : PROGRAM COUNTER

100000
040000

25
16
134
16
x7

b ad =D

PRO=
PR1=
PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

: cGENERAL REGISTER
: GENERAL REGISTER
;;GENERAL REGISTER
; GENERAL REGISTER
;s STACK POINTER

CZRM

-—d e ad

000000
000040
000100
000140
000200
000240
000300
000340

RS=
R6=
R7=
SP=
PC=

'SEQ 0022

PAGE 22

[. JV IV IV IV LV JV [V _JV IV YU LV JV IV JV ]V JV_ LV, ]

Ré4=

—=O

000004
000005
000006
000007
000006
000007

14 :49

30A(1052)
05-APR-78
BASIC DEFINITIONS

960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978

MACYT1

NO WV

CZRMKAQO RM03/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035

1036
1037

1038
1039
1040
1041
1042
1043
1044
1045
1046

1047
1048
1049
1050
1051
1052
1053
1054
1055

BIT05=
BIT04=
BITO3=
BIT02=
BITO1=
BITO0=
.EQuIv
.EQUIV
.EQUIV
.EQUIV
.EQUlv
.EQUIV
.EQulv

004000
000040
000020
000010
000004

2
PAGE 23

SEQ 0023

40
20
10
4
2
1
BIT09,BIT9
BIT08,BIT8
BITO07,BIT7
BIT06,BIT6
BITO05,BITS
BITO04,BIT4
BITO3,BIT3
B81T02,BIT?
BITO1,BIT1
BIT00,BITO

;*BASIC ‘'CPU'" TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRORS
::R$SESV$D AND JLLEGAL INSTRUCTIONS

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14

:;ll

;s TRACE

TRAP

;:BREAKPOINT TRAP (BPT)
;o INPUT/0UTPUT TRAP 7i0T)

I0OTVEC= 20

PWRVEC= 24

;:POWER FAIL

EPTVEC= 30
TRAPVEC=34

:;EMULATOR TRAP
J:U"TRAP' TRAP

"KVEC=

.SBTTL

RMO3 REGISTEK BIT DEFINITIONS

;RMCST

CONTROL

;s TTY

DVA
Fé

F3
F2
F1

KEYBOARD

(EMT)

e«SCOPEwr

««ERRQRte

VECTOR

s:TTY PRINTER VECTOR
;:PROGRAM [NTERRUPT REQUEST VECTOR

TPVEC=
64
PIRQVE(C=240

STATUS REGISTER

BIT11
BITOS
BIT04
BIT03
BITO?

CIRM
C

K
14:49

BASIC DEFINITIONS

.EQUIV
.EQulv
.EQUIV

000004
000010
000014
000014
000014
009020
000024
000030
000034
000060
000064
000240

OS-APR-78

Ne Ne Ne No Ne We Mo Vo Yoo Yo

1020
1021
1022
1023
1024

000040
000020
000010
000004
000002
000001

30A(1052)

— e D ed b b d D oD e b d b d =D b

1016
1017
1018
1019

MACY11

(o gl o ¥ Yo Ne N

CIZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

sDEVICE AVAILABLE~READ ONLY
;FUNCTION CODE
;FUNCTION CODE
;FUNCTION CODE
sfUNCTION CODE

SEQ 0024

CODE

b
b

MASK

002000
001000
000400
000020
000010
000004
000002
000001

ILF74
ILF76

L
T

sRMDA

DISK ADDRESS REGISTER

TA4
TA2
TA1
SA16
SA8

BIT10
BIT09
BI1T08
81704
BIT03
817102
BITO1
81100

SA4
SA2
SA1

sWRITE

CHECK HEADER AND DATA

s ILLEGAL COMMAND
s ILLEGAL COMMAND
sWRITE DATA COMMAND
sWRITE HEADER AND DATA COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
sREAD DATA COMMAND
;READ HEADER AND DATA

; ILLEGAL COMMAND

; TRACK ADDRESS 4

; TRACK ADDRESS 2

s TRACK ADDRESS 1
;SECTOR ADDRESS 16
;SECTOR ADDRESS 8
;SECTOR ADDRESS 4
;SECTOR ADDRESS 2
;SECTOR ADDRESS 1

;TRACK,SECTOR MASKS

003400
000037

[ADMSK

SADMSK

003400
000037

s TRACK

COMMAND

ADDRESS MASK

;SECTOR ADDRESS MASK

COMMAND

16
d

ACKNOWLEDGE

el eh

s ILLEGAL COMMAND
s ILLEGAL COMMAND'
: SEARCH COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND
;WRITE CHECK DATA COMMAND

sPACK

000024
000026
000030
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

PAKACK

Y O
T I
O
N
O
1 A
N
O
T A
O
1 N
T

RD
RH

ILF64
ILF66

[

WD
WH

ILF54
ILF56

;NOP COMMAND
; ILLEGAL COMMAND
s SEEK COMMAND
sRECALIBRATE COMMAND
sDRIVE CLEAR COMMAND
;RELEASE COMMAND
;OFFSET COMMAND
JRETURN TO CENTERLINE COMMAND
sREAD IN PRESET COMMAND

b —b ed e

w(D
WCH

ILF30
ILF32
ILF34
ILF3¢
ILF4LO
ILF&42
ILF&4
ILF&46

{

ILFeé
ILF26

FAKACK
PACACK

T O

RIP

RTC

OFFSET

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022

b cmd

DRVCLR
RLEASE

{ B

SEEK.

RECAL

TN 1 A

ILFO2

T A

NOP

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000022
000024
000026
000030
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

[}

;FUNCTION CODES (BITS 01-05 OF RMCS1)

D and e

;FUNCTION

D nd

;G0 BIT

00000000000

;FUNCTION CODE

b ad ad

BITO1
BIT00
000077

FO
60
FNCMSK

CIZRM
CZRM

—ed end

000002
000001
000077

30A(1052)
O05~-APR-78
14:49
PAGE 24
RMO3 REGISTER BIT DEFINITIONS

1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100

MACY11

000000000

CIZRMKAQ RMO03/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

DRIVE

ATA
ERR
PIP

vv
oM

=
z
=
=
=
=
=
=
=
=
=

: RMER1

ERROR REGISTER #1

DCK
UNS
OP]
DTE
WLE
IAE
AOE
HCRC
HCE

=
=
=
=
=
=
=
z
z
=
=
=
=
=
=
=

ATTENTION SUMMARY REGISTER

ATNMSK

SRMLA

LOOK

002000
001000
000400
000200
000100

SC4

SC3
SC2
SC1
SCO

=
=
=
=
=

8IT10
BIT09
81708
81707
BIT06

;SECTOR
;SECTOR
;SECTOR
;SECTOR
;SECTOR

003700

SCTMSK

003700

;SECTOR COUNT MASK

+ RMMR

MAINTENANCE

377

b b
d wd
b
b
D
wd

JRMAS

d wd
)

1.E., HOUSEKEEPING AND POSITIONING COMMANDS

sMASK FOR ATTENTION BITS

WRITE ONLY BITS

AHEAD REGISTER

;COMMANDS,

000377

DCK'!DVE!WLE!AOE 'HCRC!HCE'ECH!WCF !FER

;"'NDTMSK'* IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA

D e

NDTMSK

COUNT
COUNT
COUNT
COUNT
COUNT

= 16
= 8
= &
= 2
=1

)

ILR
ILF

;DATA CHECK ERROR
;DRIVE UNSAFE
;OPERATION INCOMPLETE
;DRIVE TIMING ERROR
sWRITE LOCK ERROR
s INVALID ADDRESS ERROR
sADDRESS OVERFLOW ERROR
sHEADER CRC ERROR
:HEADER COMPARE ERROR
;ECC ''HARD'® ERROR
;WRITE CLOCK FAILURE
: FORMAT ERROR
sPARITY ERROR
sREGISTER MODIFICATION REFUSED
s ILLEGAL REGISTER
s ILLFGAL FUNCTION

b e

ECH

WCF
FER
PAR
RMR

BIT1S
BIT14
BIT13
8IT12
BIT1
BIT10
81709
BIT08
81107
BIT06
BITOS
BIT04
81703
BIT02
81701
BITO0

JATTENTION ACTIVE
; COMPOSITE ERROR
;POSITIONING IN PROGRESS
¢MEDIUM ON LINE
;WRITE LOCK
+LAST BLOCK TRANSFERRED
s PROGRAMMABLE
;DRIVE PRESENT
;DRIVE READY
;VOLUME VALID
sOFFSET MODE ACTIVE

LBT
PGM
DPR
DRY

BIT1S
BiT14
BIT13
BIT12
BIT11
BIT10
81709
81708
BITO7
BIT06
81700

D end e

MOL
WRL

STATUS REGISTER

h el o

115760

sRMDS

SEQ 0025

NNNNINVNNNNNNNNNNNNNNYYIYIINY

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

n
2
30A(1052)
O05-APR-78
14:49
PAGE 25
RMO3 REGISTER BIT DEFINITIONS

——d

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

MACY11

OO
VWVIVIVIVIVIVMIVIVIVIE DD DD EDEDWNWIWWWWWWWWNININDNDN
NN NN = b el b b b b
NOWVMB NN @S OOV
NO VM WN OV NO VB WUWN =20V
NO VNS WA =200
NO NS WWIN =2OV00NONWNI WD

—h e el b end e e
d ed ed o
- erd el ad cnd D ) el ed e and

D cnd D d
) e md e

D e
D wad

D d
D iad

D md
D amd

D
D

D ed aed
D b D

d
D

D
D

d wd nd
d D b

D e
d D

D
B

D
D

b and T
D
D e D cnd

D ed B
D emd d

d e
i
)

b d
D wd

b
D

d —d
i
D

ad )
D el

D wmd
D b

D wd
D el

b
D

d
b

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

;DEBUG CLOCK
;DEBUG CLOCK ENABLE

b
b
)
b
b
d
D cd wd
D
b wud ad
b wd wd

BIT1S5
BIT14

b wd

0BCK
DBEN

SEQ 0026

b od od e

100000
040000

N
2
30A(1052)
05-APR-78
14:49
PAGE 26
RMO3 REGISTER BIT DEFINITIONS

VN NYNNNNNNNNNNNNNNNNNNN

1168
1169

MACY11

CZRMKAQO RMO3/c DSKLS PRTY 2
CZRMKA.P11
05-APR-78 14:38

i
b

VOO OOV OO VOO0
OB0000 NN NN~NNN~V~
NOWVMEBWN 2OV
NOWVES WN =200V
NO
WA —

d
D
D
D

b
b
b

i
) e

)

D
b

b
b

b ad e

b
b

—d and ad oud

b —d

b =

CZRMKAQ RMO3/2 DSKLS PRT 2
CIRMKA.PI
05-APR-78 14:38
020000
010000
004000
002000
001000
000400
000200
000100
000040
000010
000004
000002
000001
051401

MACY11

SEQ 0027

30A(1052)
05-APR-78
14:49 PAGE 27
RMO3 REGISTER BIT DEFINITIONS
DEBL
DTO

MCLK
MRD

MUR

mMoC

MSER
MDF
mS

MwP
Ml
MSC
DMD
MRTAAA

=
=

BIT13
BIT1?

;DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOUT

z
=
=
=

BITO8
81707
BIT06
BITOS

;ON CYLINDER
; SEEK ERROR
sORIVE FAULT
;SECTOR PULSE

=
=
=

=
=
=
z

BITN
BIT10
BIT09

JMAINTENANCE CLOCK
JREAD DATA
JUNIT READY

BITO3
;WRITE PROTECT
BIT02
: INDEX PULSE
BITO1
;SECTOR COMPARE
81700
DIAGNOSTIC MODE
DMD!MUR'!DBEN'MOC!DTO

READ ONLY BITS

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

occ
RG

EBL

REX

ESRC

PLFS

ECRC

PDA
PHA

CONT
Wi
EECC
MWD
LS
LST
DMD

=
=
=
=
=
=
z
=
=
=

BIT1S
BIT14
BIT13
BIT12
BITI
8IT10
BIT09
BIT08
BIT07
BIT06

;OCCUPIED
sRUN AND GO
;END OF BLOCK
;EXCEPTION
;ENABLE SEARCH
;LOOKING FOR SYNC
;ENABLE CRC our
:DATA AREA
sHEADER AREA
s CONTINUE

z
=
=
=
=

BIT04
BITO3
BIT02
BITO1
81700

;ENABLE ECC OuT
;WRITE DATA BIT
sLAST SECTOR
;LAST SECTOR AND TRACK
;DIAGNOSTIC MODE

BIT0S

TYPE

;WORD CLOCK

JRMDT

DRIVE

NSA

BIT1S

:NOT SECTOR ADDRESSED=0

BIT13
BITN

;MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

100000
040000
020000
004000

TAP
MOH

DRQ

z
=

020024
024024

SNGPRT
DULPRT

=
=

s RMOF

OFFSET REGISTER

010000
004000
002000
000200
161577

001777
176000

CYLMSK
XNUDC

FMT16

BIiT14

020024
024024

:TAPE DRIVE = 0

;SINGLE PORT DR]IVE TYPE
;DUAL PORT DRIVE TYPE

BIT12

:16 BIT WORD FORMAT

HCI
OFD
XNUOF

=z
=z

8IT10
BIT07

;HEADER COMPARE INHIBIT
;OFFSET FORWARD

SRMDC

DESIRED CYLINDER ADDRESS REGISTER
=
1777
;MASK FOR CYLINDER ADDRESS
=
176000
:UNUSED BITS OF RMDC

=
=

8ITN

161577

SECC

INHIBIT

;UNUSED BITS OF

RMOF

RQA
RQB
TAG

BB09
BB08
8807
BB06
BBOS
B804
8803
8802
8801
8800

:TAG BUS

:TAG
: TAG
:TAG
;TAG

:TAG BUS

:TAG BUS
:TAG BUS
:TAG BUS

XNUERZ2

BIT1S
BIT14
BIT13
BIT12
BITI
BIT10
BIT07
BIT03
001567

.S8TTL

MNEMONICS

SK1l
OPt

IvC
LSC
L8(
Dv(

RMSN
RMOF
RMD(
RMHR

RMMR?
RMER?2
RMEC

(2]

12
14

sMANUFACTURING DETECTED

SECTUR ERROR

;USER DETECTED SECTOR ERROR

INDEX

VALUES

;CONTROL STATUS REGISTER
;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER
;ERROR REGISTER 1

SATTENTION SUMMARY REGISTER

00
06

~no

RMMR1
RMDT

RMO3 REGISTER

RMLA

;UNUSED BITS OF RMER?

BIT14

USE

RMER1
RMAS

:BAD SECTOR ERROR
:SEEK INCOMPLETE
;OPERATOR PLUG ERROR
: INVALID COMMAND ERROR
;LOSS OF SYSTEM (LOCK
;LOSS OF BIT CLOCK
JDEVICE CHECK
sDATA PARITY ERROR

BIT1S

MSE

RMDA
RMDS

DPE

RMCS1

BUS
BUS
BUS
BUS

ERROR REGISTER 2

BSE

.SBTTL

000000
000006
000012
000014
000016
000020
000024
000026
000030
000032
000034
000036
000040
000042
000044

;COMMAND SEQUENCE TEST BIT
;CONTROL OR CYLINDER TAG
:CONTROL OR HEAD TAG
:TAG BUS

BIT09
BIT08
BIT07
BIT06
8IT05
81104
BIT03
BIT02
81701
81700

100000
040000

;PORT B REQUEST
;TAG CONTROL

BITN
BIT10

100000

SEQ 0028

;PORT A REQUEST

BIT1S
BIT14
BIT13
BIT12

TST
CC
CH

;RMER?

040000
020000
010000
004000
002000
000200
000010
001567

000002
000001

READ ONLY BITS

1265
1266
1267
1268
1269
1270
12N
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004

MAINTENANCE REGISTER #2

1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264

:RMMR?

1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246

30A(1052)
05-APR-78
14:49 PAGE 28
RMO3 REGISTER BIT DEFINITIONS

1226
1227
1228
1229
1230
1231
1232
1233

MACY11

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRAKA.P11
05-APR-78 14:38

sLOCK AHEAD REGISTER
sMAINTENANCE REGISTER
;DRIVE TYPE REGISTER
;SERJAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
HOLDING REGISTER

sMAINTENANCE REGISTER 2

;tRROR REGISTER 2
;ECC POSITION REGISTER

b e
b
D
D e
)
el
b
b

RV IV AV RV IV A
L
A
A
AV IV ] W
NN M) =t b b md = b emd end b ad o
W)
— OOV
NOWVE WO L)

b —b

LV] [

—b

[« XV

—

W N
(A 14¢)

1324

1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337

IE
RH

BIT13

:MASSBUS CONTROL BUS PARITY
;ERROR-READ ONLY
;PORT B SELECT
;ADDRESS EXTENSION
sADDRESS EXTENSION
sREADY-READ ONLY
;s INTERRUPT ENABLE

CONTROL

STATUS REGISTER #2

BIT1S
817114
BIT13
BIT12

w(E
UPE

000200
000100
000040
000020
000010

OR
IR
CLR

PAT
BAl

81707
BIT06
BITOS
BIT04
BITO3

000004
000002
000001

uel
ul
uo

BIT02
BIT01
BITOO

000007

SJUNIT SELECT HAS;
UNTMSK

PGE
MXF
MDPE

;RMCS3

;s TRANSFER ERROR

BIT11
BIT10

BITO9
BITO8

;DATA LATE-READ ONLY
WRITE CHECK ERROR-READ ONLY
sUNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY

¢NONEXISTANT MEMORY-READ ONLY
;PROGRAN ERROR-READ ONLY
;MISSED TRANSFER
;MASSBUS DATA BUS PARITY

;ERROR=READ ONLY
;OUTPUT READY-READ ONLY
: INPUT READY-READ ONLY
:CONTROLLER CLEAR
;PARITY TEST
sUNIBUS ADDRESS INCREMENT
:INHIBIY
JUNIT SELECT
SUNIT SELECT
JUNIT SELECT

¢UNIT SELECT MASK

RH70 CONTROL STATUS REGISTER #3

_A_a_a2_a_a_a2a
A
“
a
aA_A_a_a_a_a
_a_a

~no

sSPECIAL CONDITION-READ ONLY

040000
020000
010000
004000
002000
001000
000400

NED
NEM

DEFINITIONS

BIT1S

BIT10
BIT39
BITO08
81107
81106

RDY

STATUS REGISTER M

BIT14

A7
Al6

CONTROLLER

czi

_a_a

1}
T
1 I
T

:RM(S2
100000

T I

CONTROL

PSEL

000200
000100

T I

JRMCST

002000
001000

000400

TRE
MCPE

;MASK FOR REGISTER INDEX NUMBER

100000

.SBTTL

040000
020000

144

IDXMSK

ILRG56
ILRG6O
ILRG62
ILRG64
ILRG66
ILRG70
ILRG?7?2
ILRG74
ILRG76

SEQ 0029

;ECC PATTERN REGISTER
s ILLEGAL REGISTER 50
s ILLEGAL REGISTER 52
s ILLEGAL REGISTER 54
s ILLEGAL REGISTER 56
s ILLEGAL REGISTER 60
s ILLEGAL REGISTER 62
s ILLEGAL REGISTER 64
s ILLEGAL REGISTER 66
s ILLEGAL REGISTER 70
s ILLEGAL REGISTER 72
s ILLEGAL REGISTER 74
s ILLEGAL REGISTER 76

000077

ILRGS0
ILRGS?2
ILRG54

RMEC?

000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

PAGE

1295

1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308

)]
164:49
30A(1052)
05-APR-78
RMO3 REGISTER INDEX VALUES

1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294

MACY11

CZRMKAO RM0O3/2 DSKLS PRT 2
CZRMKA.P1Y
05-APR-78 14:38

BITNN

;WRITE

BIT10

CHECK ERROR LOW WORD

;DOUBLE WORD TRANSFER

IE
IPCK3

=
=

.SBTTL

RH CONTROLLER REGISTER

000000
000002
000004
000010
000022
000050
000052

RMCS1
RMW(
RMBA
RMCS2
RMDB
RMBAE
RMCS3

=
=
=
=
=
=
=

00
02
04
10
22
50
52

;CONTROL, STATUS REGISTER
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
:CONTROLLER STATUS REGISTER
;DATA BUFFER
;BUS ADDRESS EXTENSION
;CONTROL STATUS REGISTER #3

176700
120254

ABASE
AVECTT1

=
=

176700
120254

;UNIBUS ADDRESS
;UNIBUS VECTOR ADDRESS AND PRIORITY

.SBTTL

TRAP CATCHER

IP(K2
IPCK1
IPCKO

BirT06
81103

=
=
=

s INTERRUPT ENABLE
: INVERT PARITY CHECK

BIT02
81101
BIT00

s INVERT PARITY CHECK
; INVERT PARITY CHECK
; INVERT PARITY CHECK

INDEX VALUES

b
D

DBL

WwCELD

sDATA PARITY ERROR LOW WORD
;WRITE CHECK ERROR HIGH WORD

;DATA PARITY ERROR HIGH WORD

BIT13
BIT12

=
=

DPELO
WCEH]

sADDRESS PARITY ERROR

BIN4

BITYS

APE

CZF

SEQ 0030

PAGE

RH CONTROLLER REGISTER BIT DEFINITIONS

DPEHI

e
e
e

SRR

000052

001100

0
HOOKS

AR R AR RN RN R LR R ERENRRERNORRNOOERRNECERNRRARRRACANRANNORNRARNRNS

sszzc=.

:SAVE

iEgng

;:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

WORD

T=$SVPC

.SBTTL

000200

ACT11

;THE

002632

.=1100
.SBTTL

;:¢)SET LOC.52 TO ZERO
'

RESTORE PC

STARTING ADDRESS

PROGRAW

JMP

STARTS

LOCATION 200

START

APT PARAMETER BLOCK

e
e
b e
e

; ; SOFTWARE DISPLAY REGISTER
;:SOFTWARE SWITCH REGISTER

sHOOKS REQUIRED BY A(CT11

000200
000046
021642
000052
000000
000200

000200
000137

A e

.WORD

.SBTTL

000046

SWREG:

DISPREG: .WORD

b e

000174
000000
000000

AIAYVALACRAIAIAYAIAIAL

000176

:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:*LOCATION19‘C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

A VA

000174

.=0

;*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A **.+2,HALT"

JUMP TO START OF PROGRAM

AR YA

000000

1374
1375
1376

1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393

ArsAmAsAWAR

1364
1365
1366
1367
1368
1369
1370
13N
1372
1373

14:49

1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363

O05-APR-78

D e

10000y

040000
020000
010000
004000
00¢000
000100
000010
000004
000002
000001

30A(1052)

1338
1339
1340
1341
1342
1343
1344

MACY11

[ )

CIZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05~APR-78 14:38

CZRMKA
. P11

30A(1052)

O05-APR~78

APT PARAMETER BLOCK

F
14:49

3
PAGE 31

SEQ 0031

;:.'.'t't"""""""""'t"l"'Q"'Q"Q'I""""""".""t

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

:;'"'tt"'t".""'""""Q'Q"'tt"""'..tt.t.t".'t"'fi""i

000044

.$X=.
.=24
200
=44

SAPTHDR
.=.8X

;;SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
::FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.

000024

001100
000024
000200
000044
001100
001100

(IR
CZR

::POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

GADR

.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

0
::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
::ADDRESS OF APT MAILBOX (BITS 0-15)
1
::RUN TIM OF LONGEST TEST
2
SYRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
2
:*ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL
SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

UNIT

PU PV NV NV NNV

:
SAPTHD
SHIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:
ACADR

POV R POV

000000
001222
000001
000002
000002
000042
001114

AUV RN

001100
001100
001102
001104
001106
001110
001112

DIAGNOSTIC

LNV

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11
: INTERFACE SPEC.

";'t'Q't""tQ"'i""'""""""""'I"'ttt.'tt'."t"'.""'

PORORURLMNORLNLNLMPNLRNDNL

1394
1395
1396
1397
1398
1399
1400
1601
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414

05-APR-78 14:38

MACY11

PO N PO N nono

CZRMKAQ RMO3/2 DSKLS PRT 2

1427

1428
1429

1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443

1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463

001220

IN THE PROGRANM.

.WORD
.BYTE
.BYTE
_WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD

0
O
0
O
0
0
O
O
1
O
0
O

.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

O
0
0
8

.WORD
.WORD

177560
177562
177564
177566
$NULL:
.BYTE
$FILLS: .BYTE
SFILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
$STMP1:
_WORD
$TMP2:
.WORS
$TMP3:
_WORS
$TMP4:
.WORD
STIMES: 0
SESCAPE:0

$BELL:

$QUES:
$CRLF:
$LF:
A

AR A

1466

VARIOUS

O
0

.WORD

$TKS:
$TKB:
$TPS:
$TPB:

.SBTTL

1467
1468
1469
1470

CONTAINS

.=TAGADR

SWR:
DISPLAY:

1464

1465

:*USED

$AUTOB:
$INTAG:

000377

AR AR AR

TABLE

$GODAT:
$BDDAT:

177570
177570
177560

177562
177564
177566
000
002
012
000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000012

ASAAALAAS

'THIS

$TSTNM:
SERFLG:
SICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
$ERMAX:
SERRPC:
$GDADR:
$BDADR:

000000

PAGE

SEQ@ 0032

COMMON TAGS

SCMTAG:

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000

14:49

.ASCIZ

.ASCII
.ASCII
LASCIZ
AR

COMMON

ARt

STORAGE

;:START OF

COMMON

::CONTAINS
:;CONTAINS
;;CONTAINS
;;CONTAINS
;:CONTAINS
;s CONTAINS
;;CONTAINS
: CONTAINS
:;CONTAINS
::CONTAINS
;. CONTAINS

THE TEST NUMBER
ERRGR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOD' DATA
ADDRESS OF °'BAD' DATA

;:CONTAINS
;. CONTAINS

DSWR
DODISP

Rttt

LOCATIONS

TAGS

HERE

SEQ 0035

;TEST

IN THE
END OF

THE

DEVICE NUMBER

HIGH BYTE.
THE QUE.

ZERO

QUE

;KW11-P CONTROL + STATUS REGISTER
;KW11-P COUNT SET BUFFER
;KW11-P INTERRUPT VECTOR

;KW11-L CONTROL

+ STATUS REGISTER

;KW11-L INTERRUPT VECTOR
; STORAGE
;STORAGE
:STORAGE
;ADDRESS
. ADORESS

FOR PRIORITY
FOR ELAPSED TIME
FOR REMAINING TIME
OF START CLOCK SuB
OF STOP CLOCK SuB

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

MACY11

K
14:49

30A(1052)
O05-APR-78
ERROR POINTER TABLE
.SBTTL

SEQ 0036

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE
;*THE

3
PAGE

INFORMATION

INFORMATION fOR EACH ERROR THAT CAN OCCUR.

IS OBTAINED BY USING

THE

INDEX NUMBER

FOUND

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

»
s

IN THE

;:sPOINTS

TABLE

TO THE

CONTAINS 4

(SERRP().

POINTERS EXPLAINED AS

FOLLOWS:

ERROR MESSAGE

::POINTS TO THE DATA HEADER
;s POINTS TO THE DATA
;s POINTS TO THE DATA FORMAT

$ERRTB:

add

aas

oo
N

001532

DT
DF

ITER

1624

SITEMB IS O THE ONLY PERTINENT DATA IS

EACH

;*NOTE:
;*NOTE2:

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

1653

1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674

001532
001534
001536
001540

;ERROR

001542
001544
001546
001550

031716
037620
037726
037762

031744
000000
000000
000000

031764
000000
000000
000000

1679
1680
1681
1682

032006
037624
037730
037764

032032
037624
037730
037764

L 32054
03/630
037730
237764

READ OR WRITE

ANY DEVICE

REG WITHOUT NED

CANNOT WRITE/READ ONES

TO ANY DEVICE

CANNOT

CLEAR ANY DEVICE

INIT

EMTS
EHTS
EDTS
EFTS
CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

EMT6
EHTS

EDTS
EFTS

sERROR
001612
001614
001616
001620

CANNOT

CANNOTM WRITE/READ ZEROS TO ALL BIT POSITIONS

;ERROR
001602
007004
CU1606
001610

CLEAR NED STATUS

MT4

;ERROR

001572
001574
001576
001600

CANNOT

EMT3

sERROR

001562
001564
001566
001570

SEQ 0037

EMT2
EHT2
‘EDT2
EFT2
;ERROR

001552
001554
001556
001560

PAGE 37

EMT
EHT
EOT1
EFT1

031710
037614
037724
037760

1675

1676
1677
1678

14:49

0O O

1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652

;ERROR

1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640

30A(1052)
05-APR-78
ERROR POINTER TABLE

oOOoOmM

1627
1628
1629

MACY11

CANNOT WRITE/READ SHIFTING ONE BIT

EMT?7
EHT?
EDTS
EFTS

DEVICE REGISTERS

TO ALL BIT POSITIONS

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA PN
05~APR-78 14:38
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707

MACY11

30A(1052)
05-APR-78
ERROR POINTER TABLE

. ERROR
001622
001624
001626

001630

S-A-0

APPEARS

S=A-1

APPEARS

S-A-0

APPEARS S-a-1

sERROR

SELECT

APPEARS

S-A-0

:ERROR

APPEARS

S=A-1

;ERROR

APPEARS S-A-0

032076
000000
000000
000000

032114
000000
000000
000000

SNVNNNNNNNNNN

b
i
b
b
b cad
b
b ed
b
i
b
D
b

~N NN
PPN =D d b b o d d e ok
oo
(¥] N=2O OO0 NOVE
[« 2.
F
N -

d e
-

001656
001660

001662
001664
001666
001670

001672
001674
001676
001700

001702
001704
001706
001710

EMTI

032132

EMT12

000000
000000
000000

JERROR
001652
001654

EMTI0
0
0
0

:ERROR
001642
001644
001646
001650

SEa 0038

APPEARS

;ERROR
001632
001634
001636
001640

n3
14:49
PAGE 38

032150
000000
000000
000000

EMT13

032166
000000
000000
000000

032204
000000
000000

000000

032222
000000
000000
000000

EMT16

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA PN
0S5-APR-78 14:38
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748

1749
1750

1751
1752
1753
1754
1755

1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
177
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1748
1789
1790
1791
1792

1793
1794

MACY11

30A(1052)

ERROR POINTER TABLE

:ERROR
001712
001714
001716
001720

032256
037614
037724
037760

032300
037614
037724
037760

032322
037614
037724
037760

032346
037614
037724
037760

SET WITH

SEACH

TIMOUT

DISABLED

OPl

SET WITH

SECTOR PULSE,SECTOR

DTE

SET WITH

INDEX PULSE,SEARCH WAS NOT ENABLED

DTE

SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET

DTE

DID NOT

DTF

SET WITH SECTOR PULSE

COMPARE WAS RESET

23
EMT23
EHTI
EOT1
EFT

032372
037614
037724
037760

032416
037614
03772«
037760

OPl

EDT
EFT

SET WITH SECTOR PULSE,SECTOR COMPARE WAS SET

EMT24
EHTT
EDT1
EFTT
;ERROR

001772
001774
001776
002000

EMT2?2
EHT

;ERROR
001762
001764
001766
001770

EMT2
EHTY
EDT1
EFT

;ERROR
001752
001754
001756
001760

SEQ 0039

EMT20
EHTY
EDT1
EFTY

:ERROR

001742
001744
001746
001750

3
PAGE 39

0
0

;ERROR

001732
001734
001736
001740

N
14:49

EMT17
0

032240
000000
000000
000000

:ERROR
001722
001724
001726
001730

0S-APR-78

25
EMT2S
EHT
EOT1
EFT1

DURING FORMAT

CHANGE

CIZRAKAO RMO3/2 DSKLS PRT 2
CIRMKA. P
05-APR-78 14:38

nNoONN b e b d b o i b W
= O LYo BNTe JV I JV ], 8] -

b b
b e
o
b —d o
el wd
—

©o 0o 0o OO 0D 0o O 0o OB 08 OO OO o

1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810

1824
1825
1826
1827
1828
1829
1830
1831
1832

1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850

MACY11

30A(1052)
05-APR-78
ERROR POINTER TABLE

;ERROR

002002
002004
002006
002010

032436

032510
037614

032530
037614
037724
037760

032544
037614
037724
037760

AFTER FORMAT

CANNOT

SET

PROM STROBE

CANNOT

CLEAR RMER1,DTE

WITH BIT

PROM

STROBE

RESET

PROM

STROBE

SET

EARLY

EMT32
EHTI
E0M
EFT1

032556
037614
037724
037760

032570
037614
037724
037760

DTE

EMT3
EHT
EDTI
EFT

EARLY

EMT33
EHTI
EDTI
EFT

;ERROR
002062
002064
002066
002070

SET

EHT
EDT1
EFT

037724
037760

:ERROR
002052
002054
002056
002060

COULD NOT

ACTIVE

EMT30

;ERROR
002042
002044
002046
002050

STUCK

(HANGE

EMT27
EHTT
EDT1
CFM

032470
037614
037724
037760

:ERROR
002032
002034
002036
002040

:ERROR
002022
00202¢
002026
002030

MBA CLR L

SEQ 0040

EMT26
0
0

000000
000000
000000

:ERROR

002012
002014
002016
002020

4
PAGE 40

B
14:49

EMT34
EHT
EOT
EFTT

LOOKING FOR SYNC SET EARLY

CLOCK

(2
¢

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864

1865

1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877

1878

1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902

1903
1904
1905
1906

MACY11

30A(1052)
05-APR-78
ERROR POINTER TABLE

; ERROR
002072
002074
002076
002100

032602
037614
037724
037760

032614
037614
037724
037760

032664
037614
037724
037760

032706
037614
037724
037760

032734
037614
037724
037760

032752
000000
000000
000000

SYNC DETECTED WITH WRONG PATTERN

SYNC NOT DETECTED

DRIVE

TIMING ERROR 0OID NOT

WRITE

GATE

CLEAR LOOKING FOR SYNC

DID NOT

COME

ON OR RESET EARLY

EMT4L2
EHTT
EDTI
eem

;ERROR

002152
002154
002156
002160

’

EMT4T
EHT
EDTI
EFT

sERROR

002142
002144
002146
002150

SET WHILE LOOKING FOR SYNC

EMT4O0
EHT
EOT
EFT

;ERROR
002132
002134
002136
002140

PROM STROBE

EMT3?
EHTI1S
EDT115
EFTI15

032634
037670
037750
037776
sERROR

0027122
002124
002126
002130

LOOKING FOR SYNC DID NOT SET

EMT36
EHTI
£EOM
EFT

:ERROR
002112
002114
002116
002120

SEQ 0041

EMT35
EHTI
E0T
EFT1
:ERROR

002102
002104
002106
002110

4
PAGE 41

C
14:49

EMT4S

INCORRECT

SYNC PATTERN DURING HEADER

(2
4

1907
1908

}328
1911
1912

002162
002164

002166
002170

1919
1920
1921
1922
1923
1924

002172
002174
002176
002200

1927
1928
1929
1930
1931
1932
}ggz

002202
002204
002206
(002210

1935
1936
1937
1938
1939
1940

002212
002214
002216
002220

1943
1944
1945
1946
1947
1948
}3%3

002222
002224
002226
002230

1951
1952
1953

002232
002234
002236

032752
037630
037730
037764

13‘;

033020
037614
037724
037760

033034
037634
037732
037760

033052
037614
037724
037760

HEADER AREA DID NOT

COME ON OR RESET EARLY

CRC ENABLE DID NOT SET

INCORRECT HEADER GENERATED DURING WRITE

READ GATE INCORRECT DURING HEADER AREA

EMTSO
EHT1
EDTT
EFTT
JERROR

033154
037614
037724

UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE

EMTSS
EHTI
EDT1

037760

EFT1

;ERROR
033104
037640
037734
037766

EMT4L7
EHT4LT7
EDT47
EFT1

;ERROR

002242
002244
002246
002250

PATTERN DURING HEADER

EMT4LH
EHTI
EDT1
EFTT
;ERROR

002240

SYNC

52
EMTS?
EHTS?
EDTS2
EFTS7

INCORRECT HEADER READ

IN DIAGNOSTIC MODE

SEQ 0042

EMT4LS
EHT
EDT
EFT?

;ERROR

1955
1956
;gg;

INCORRECT

&
PAGE 42

EDTS
EFTS

033004
037614
037724
037760

132}

L
14:49

EMT43
EHT?7

;ERROR

}ggz

1959
1960
1961
1962

30A(1052)
O05-APR-78
ERROR POINTER TABLE

;ERROR

1913
1914
1915
1916

1954

MACY11

CZRMKAO RMO3/2 DSKLS PRTY 2
CZRMKA.P11
05-APR-78 14:38

CZRMKAO RMO3/2 DSKLS PRT 2
CIRMKA.PI
05-APR-78 14:38

MACY1T

30A(1052)
05-APR-78
ERROR POINTER TABLE

14:49

PAGE 43

SEQ 0043

1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000

2001
2002
2003
2004
2005
2006
2007
2008
2009
2010

2011
2012

2013
2014
2015
2016
2017
2018

033154
037614
037724
037760

033172
037614
037724
037760

033206
037644
037736
037766

033222
037614
037724
037760

033236
037650
037740
037766

INCORRECT

am
&

DURING DATA

DATA AREA DID NOT

COME

ON OR RFSET EARLY

ECC ENABLE

DID NOT

SET

DEVICE

IS NOT AN RMO3

DEVICE

AVAILABLE

EMTS?
EHTS?
EDTS?7
EFTS57

IS NOT

SET

EMT60
EHTI
EDTI
EFTT

;ERROR

002332
002334
002336
002340

CONTROLS

EHTI
EDTI
EFT1

;ERROR

002322
002324
002326
002330

SEQUENCER

EMTS56

;ERROR
002312
002314
002316
002320

TIMING

EMTSS
EHT
EDT1
EFT1
:ERROR

002302
002304
002306
002310

DATA

EMTS54
EHTT
EOT1
EFTT

033136
037614
037724
037760

. ERROR
002272
002274
002276
002300

mia

EMT276
EHT
EDT1
EFT
;ERROR

002262
002264
002266
002270

TAG BUS DURING DATA COMMAND

miae

037510
037614
037724
037760

INCORRECT

AMrmtae

002252
002254
002256
002260

EMT61
EHTH1
EDT6T

EFTS7

COMMAND

MriAaiMALAe

:ERROR

1973
1974
1975
1976

1963

1964
1965
1966
1967
1968
1969
1970
1971
1972

2l
czl

INCORRECT ECC

PATTERN GENERATED DURING JRITE

2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074

EDT1
EFT1

033272
037614
037724
037760

033304
037614
037724
037760

033320
037614
037724
037760

033332
000000
000000
000000

EMT6S
EHT
EDTI
EFTT
66

EMT66

sERROR 67
002412
002414
002416
002420

033346
000000
000000
000000

EMT67

;ERROR 70
002422
002424
002426
002430

033364
000000
000000
000000

UNEXPECTED ECC

ERROR

IN DIAGNOSTIC MODE

INCORRECT

TRANSFERRED

EMT64
EHT
EDT1
EFT

;ERROR
002402
002404
002406
002410

DATA AREA DID NOT RESET

EHT
EDT1
EFTT

;ERROR
002372
002374
002376
002400

EMT63

;ERROR
002362
002364
002366
002370

CLOCK

EMT62
EHTI

:ERROR
002352
002354
002356
002360

CLEAR PROM STROBE WITH BIT

EMT70

;ERROR 71

CZf

RA YA YAYAIAIALALIAYAIAIAIAIA)D

033254
037614
037724
037760

CANNOT

SEQ 0044

PAGE 44

002342
002344
002346
002350

DATA

TO MEMORY

A IATA YA LA YAYAYAIA LA YVAYAYAIA LAYIA Y AR

2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052

:ERROR

14:49

LATALTACACAIAVAIALA

2033
2034
2035
2036
2037
2038

30A(1052)
05-APR-78
ERROR POINTER TABLE

A LUAITAIRALIALA LA LA LA LA LALTALAIA

2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032

MACY11

CZRMKAQ RMU3/2 DSKLS PRT 2
CZRMKA
. P11
05-APR-78 14:38

OAI NN

033454
000000
000000
000000

;ERROR
002462
002464
002466
002470

033474
000000
000000
000000
;ERROR

002472
002474
002476
002500

033504
000000
000000
000000

RO RO PO RMOIAD AL RN AB

NN —
VOO NO N

amd
b

e
il

b
md
ed

d
wd
ek
—

) el

LSYT,NT,NY.NY,
V1,7, N7, ¥Y, N1

;ERROR

002502
002504
002506
002510

033516
000000
000000
000000
;ERROR

002512
002514
002516
002520

033532
000000
000009
003000
;ERROR

002522
002524
002526
002530

035340
037710
037750
037776

NN
NN

000000
000000

;ERROR
002452
002454
002456
002460

[an]

033430
000000

NI A

2097
2098
2099
2100
2101
2102
2103
2104
2105
2106

0
;ERROR

002442
002444
002446
002450

CIR

2096

EMTN

033404
000000
000000
000000

SEQ 0045

2091
2092
2093
2094
2095

PAGE 45

DO PRGN

2090

100

CANT

SET VOLUME

VALID

OO RO AL RO AR

2083
2084
2085
2086
2087
2088
2089

14:49

ORI

2082

002432
002434
002436
002440

30A(1052)
05-APR-78
ERROR POINTER TABLE

rafaro

2075
2076
2077
2078
2079
2080
2081

MACY11

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38

2141
2142

2143

2144
2145
2146
2147
2148
2149
2150
215
2152
2153
2154
2155
2156

2157

2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
21N
2172
2173
2174

2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186

;ERROR
002532
002534
002536
002540

037470
037614
037724
037760

035366
037614
037724
037760

035404
037710
037750
037776

002564
002566
002570

035426

035454
037614
037724
037760

035472
037614
037724
037760

035510
037614
037724
037760

SEARCH ENABLE

WONT

SET

103

OCCUPIED IS

INCORRECT

FOR

FUNCTION CODE

104

READ

IN PRESET

DIONT

CLEAR

RMDA,

105

READ

IN PRESET

DIDNT

CLEAR

RMOF

READ

IN PRESET

DIDNT

CLEAR

RMDA

READ

IN PRESET

DiDNT

CLEAR

RMDC

EMT175
EHTT
EDT1
EFT1
106

EMT176
EHT
EDT
EFM

;ERROR
002612
002614
002616
002620

102

0
0
0

;ERROR
002602
002604
002606
002610

SET

EMT174

000000
000000
000000
s ERROR

002572
002574
002576
002600

AND GO WONT

107

EMT177
EHT
EDT1
EFT1

RMDC

OR RMOF

CZR

SEQ 0046

EMT173
EHT150
EDTI1S
EFT115
;ERROR

002562

PAGE 46

EMT172
EHT
EDT1
EF1
;ERROR

002552
002554
002556
002560

RUN

EMT275
EHTI
EOT
EFT1
;ERROR

002542
002544
002546
002550

101

14:49

30A(1052)
05-APR-78
ERROR POINTER TABLE

PORLRORO RN RN RN AL RO P NN NPV AL PL RPN PO PO PN AN PPN NV PO PNV APV NI RV NV NV NN NNV LNV PN NV NV PO NI NI NI N PO N

'SR}
2132
2133
2134
2135
2136
2137
2138
2139
2140

MACY11

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38

;ERROR
002622
002624
002626
002630

035526
037614
037724
037760

110

I
14:49

4
PAGE 47

CANT SET OFFSET MODE BY OFFSET COMMAND

EMT200
EHTY
EOT1
EFT1

;PUT ERROR TABLE HERE

SEQ 0047

CZR
CZR
N S 1T

2189
2190
21N
2192
2193
2194
2195
2196
2197
2198

30A(1052)
O05~-APR-78
ERROR POINTER TABLE

LN ST S LN N LS N TS LN S N ST S T S L

2187
2188

MACY11

LY NTNY. ST, Y, ST ST, VY NV T NT, VY SN NT VLS LN VY. NY ST NY N ST N N ST N LN LN L NE ST LS LSS

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38

2248
2249
2250
2251
2252
2253
2254

012706
005026
022706
001374
012706

001114

002656
002664
002672
002700
002706
002714
002722
002730
002736
002744
002750
002754
002762
002770

012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737
012737
012737

0260642
000340
026424
000340
030164
000340
030272
000340
021506
001206

002776
003002
003010
003016
003024
003032

013746
012737
012737
012737
022777
001012

003034
003036

000403
012716
000002

CLR

0011€C0

002770

000004
003036

177570
177570
177777

000020
000022
000030
000032
000034
000036
000024
000026
021500

001131
001122
001124

THE

SYSTEM

COMMON TAGS

000176
000174
000004

003064
003070
003076

005037

001230
000200

001243

012737

001244

001154

003106
003112
003116
003120

012746
012746
000002

000140
003120

001154
001156

MOV
MOV

#$SCOPE,3#I0TVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,8#10TVEC+2 ;;LEVEL 7

MOV

#340,3#ENMTVEC+2 ;;LEVEL 7

MoV
Mov
Mov

Mov
MOV
CLR
CLR

MovB
mov
Mov

#SERROR ,@#EMTVEC

::LOOP BACK
::SETUP THE

#340,3#PURVEC+2
SENDCT,$EOPCT
STIMES
SESCAPE

#1,SERMAX
#.,SLPADR
#.,SLPERR

;;LEVEL 7
;;SETUP END-OF -PROGRAM COUNTER
s INITIALIZE NUMBER OF ITERATIONS
s :CLEAR THE ESCAPE ON ERROR ADDRESS

;;ALLOW ONE ERROR PER TEST
s INITIALIZE THE LOOP ADDRESS FOR SCOPE
.. SETUP THE ERROR LOOP ADDRESS

65%:
66$:

67$%:

68$:

IF NOT FOUND OR IT IS

SETUP FOR A SOFTWARE SWITCH REGISTER.

Mov
MoV

S#ERRVEC,-(SP)
#648 ,Q#ERRVEC

MOV

#0D1SP,DISPLAY

CMP
BNE

#STRAP ,@#TRAPVEC ;,TRAP VECTOR FOR TRAP CALLS
#340 ,@#TRAPVEC+2;LEVEL 7
#$PURDN ,@#PWRVEC ;.POWER FAILURE VECTOR

TO A '*=1"",

MOV

STACK POINTER

;;EMT VECTOR FOR ERROR ROUTINE

::SIZE FOR A HARDWARE SWITCH REGISTER.

648

012737
012737
012637

*,CLEAR MEMORY LOCATION

#SWR,R6 ; ;DONE?
.~6
#STACK,SP

MOV

000004
001154
001156
176122

003044

(R6) ¢+

CMP
BNE
MoV

;o INITIALIZE A FEW VECTORS

;sEQUAL

003044
003052
003060

132737
001403

INITIALIZE

THE

;. CLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
#S$CMTAG,RE
s:FIRST LOCATION TO BE (_EARED

001154

001210
000001
002762

JINITIALIZE

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

#DSWR, SWUR

;:SETUP FOR A HARDWARE SWICH REGISTER

#-1,3SWR
66%

::TRY TO REFERENCE HARDWARE SWR
s BRANCH IF NO TIMEOUT TRAP OCCURRED

;;AND A HARDWARE

;;AND

DISPLAY REGISTER

THE HARDWARE SWR IS NOT = -1

65%

Mov
MoV

#SWREG, SWR
¢ ;POINT
#DISPREG,DISPLAY

Mov

(SP)+,3#ERRVEC

;;RESTORE ERROR VECTOR

CLR
BITB

$PASS
#APTSIZE,SENVM

;:CLEAR PASS COUNT
;. TEST USER SIZE UNDER APT

Mmov
Mov

#PR3,~(SP)
#68%,-(SP)

;:PUT NEW PS ON STA(CK
;:PUT NEW PC ON
STACK

:?Y

BEQ
Mov

RTI

#65%, (SP)

67%
#3$SWREG,SWR

: :BRANCH IF NO TIMEOUT

::SET UP FOR TRAP RETURN
TO SOFTWARE

SWR

;. YES,USE NON-APT SWITCH
::NO,USE APT SWITCH REGISTER

;s POP NEW PC

AND PS

P -]

PN NI N PO NN

NOP
RESET

CZR

NI NN PN

;CLEAR AND SETUP FOR TEST EXECUTION

000240
000005

002636
002642
002644
002650
002652

003100
003106

PROGRAM

START:

.SBTTL

003042

SEQ 0048

VAN ALININLIANI NN AL NN AN NN NN AN NN NN NNV RN NN

002632
002634

START OF

4
PAGE 48

.SBTTL

002632

J
14:49

30A(1052)
O05-APR-78
PROGRAM
START OF

PORNIALAL AL

2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
221
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247

MACY11

CIRMKAQO RMO3/2 DSKLS PrT 2
CIRMKA. P
05-APR-786 14:38

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
227
2272
2273
2274
2275
2276

2277
2278
2279
2280
2281

2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294

2295
2296
2297
2298
2299
2300
2301
2302
2303

2304
2305
2306
2307
2308
2309
2310

003120
003124
003126
003134
003136

005227
001061
022737
001455
104401

003204

003142
003146
003150
003156
003160
003166
003170
003172
003174
003202
003202

005737
001012
123727
001406
023727
001nCS

000042

10464407
000403
112737

MACY11

021642

TYPE

.SBTTL

001242

000001

001154

000176

001150

#-1
69%

BEQ
TYPE

69%
.708

698$.

003270
003274
003276
003302
003304

005737
001003
105737
001451

000042

SENV. M

q, [

SWR,#SWREG

003304
003312

132737
001043

000200

003314
003320
003322
003326
003332
003340
003344
003350
003354
003356
003362
003366
003370
003374
003376
003376
003402
003404
003406
003407
003410
003412

005037
005001
012704
013700
012760
010160
016003
032703
001010
016003
032703
001403
050437
000405

001300

10%:

000001
001276
000040
000010
000010
010000

001243

72%

FIRST

PASS

::FIRST TIME?
;:;BRANCH IF NO

JiACT=11?

;:BRANCH IF YES
;s TYPE ASCIZ STRING

SWITCH REGISTER
JsARE WE RUNNING UNDER XXDP/ACT?
; :BRANCH IF YES

;:ARE WE RUNNING UNDER APT?
;;BRANCH IF YES
;:SO"TWARE

SWITCH REG SELECTED?

;;BRANCH IF NO
J:GET

SOFT-SWR SETTINGS

;:SET

AUTO-MODE

MOVB

#1,8AUT08

BR
.ASCIZ

69%
;;GET OVER THE ASCI2
<CRLF>3CZRMKAO, RMO3/RM02 DISKLESS DIAGNOSTIC

INDICATOR

PART

@<CRLF>

IF PROGRAM IS RUNNING IN STANDALONE MODE

TST
BNE
TST8
BEQ

42
108
SENV
STANDALONE

;1S LOC 42 ZERO ??
sNO - NOT IN STANDALONE
;1S APT ENVIRONMENT ZERO ??
:YES - PROGRAM [N STANDALONE

sPROGRAM NOT RUNNING IN STANDALONE - SEE IF SIZING IS ALLOWED
8ITB
#B177,3ENVM
sSIZING ALLOWED ??
BNE
208
:NO
Mov

#377,3DEVM

JYES - SET DEVICE MAP FOR ALL

CLR
Mov
[}
MoV
MOV
MOV
BIT
BNE
Mov
BIT
BEQ
BIS
BR

R1
#B170,R4
$BASE RO
#CLR,RMCS2(RO)
R1,RMCS2(RO)
RMCS2(RO) ,R3
#NED ,R3
16%
RMCS1(RO) ,R3
#DVA,R3
16%
R4 ,SDEVM
17%

sSTART FROM THE DRIVE 0
;BIT MAP DOR DRIVE 0
;BASE ADDRESS
;LOAD THE DRIVE ADDRESS
;LOAD THE DRIVE ADDRESS
SNED BIT SET ?
;BRANCH [F SO
;7O NEXT DRIVE
;CHECK THE DVA BIT
;DRIVE AVAILABLE ?
;BRANCH IF DRIVE NOT AVAILABLE

CLR

000010

718

SEQ 0049

XSIZ:

15%:

000000
004000

00130¢

031553

;FIND QUT

001242

SOFTWARE

(MPB

BNE
71%:
72%:

4
PAGE 49

#SENDAD ,a#4?2

GET VALUE FOR
TST
Y ¥4
BNE
718

BEQ

;:70%:

003270

010146
104403
006
000
005201
006304

INC
BNE

GTSWR

000001

K
14:49

TYPE PROGRAM NAME
THE NAME OF THE PROGRAM

cMp

000042

000432

104401

PROGRAM NAME

.SBTTL
;. TYPE

177777

05-APR-78

30A(1052)

16%:

17%:

$SDEVM

sCLEAR THE BIT MAP

;SET

THE BIT MAP FOR ALL

;DONT TYPE

AVAILABLE

THE NONE EXIST MESG

TYPE

. NOTEX

;TYPE

Mov
TYPOS
BYTE

R1,-(SP)

:DRIVE

6
0
R1
R4

; INCREMENT THE DRIVE ADDRESS
SSET UP THE BIT MAP FOR NEXT DRIVE

.BYTE

INC
ASL

NOT

DEVICES

EXIT

MESSAGE

NUMBER

DRIVE

003414
003420
003422

022701
103344

000007

003422

000137

004254

4
L
14:49
30A(1052)
05-APR-78
PAGE 50
GET VALUE FOR SOFTWARE SWITCH REGISTER

208

.14
BHIS

7 ,R1
15%

SEQ 0050

:ALL DRIVE ARE CHECKED ?
;BRANCH [F NOT

;GO 10 COMMON START CODE
JMP

CMNSTART

o3 L 30 0 44

2311
2312
2313
2314
2315
2316

MACY11

CZRMKAQ RM03/2 DSKLS PRT 2
CIRMKA.PIN
05~APR-78 14:38

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365

. 2366

2367
2368
2369
2370
2371
2372

MACY11

003426

004737

026634

003432
003436

005327

000001

003440
003444
003446
003452

104401
104411
012637
104401
123727
001002
000137
123727
001420
104401
000754

031062

003510

003510
003514
003516
003522
003526
003534
003536
003542
003542
003546
003550
003554
003560
003562
003564
003572
003574

003574

003600
003604
003606

003612
003614
003620
003622
003630
003632
003636
003640

SEQ 0051

30A(1052)
05-APR-78
14:49
PAGE 51
GET VALUE FOR SOFTWARE SWITCH REGISTER
:
STANDALONE

003426

003456
003464
003466
003472
003500
003502
003506

100024

104401
104411

012637
104401
123727
001002
104401

104401
104411

012637
104401
104411

005726
123727
001137

104401

013746

104402
1064401
104413

012637
001412
022737
101403
104401

000756
013737

JSEE

000131

004414
001176

000116

6$:

:SEE

001176

000131

054062

20%:

MoV
TYPE

(SP)+,$THP1
LSTHP1

;ECHO RESPONSE

RESPONSE

(MPB

STHP1.,#'Y

JYES RESPONSE??

CMPB

$STMPY1,#'N

;NO RESPONSE??

BEQ

B8R
IF

;GET

6%
READY

208

,ASTMRK

OPERATOR WANTS HELP FILE
TYPE
RDCHR

JHELPQST

TYPE

,$TMP1

mov

(SP)+,$THP1

cmPB
8NE

STHPY
20%

TYPE

JHELP

JNO!!
JKEEP PREVIOUS PARAMETERS

:GET NEW PARAMETERS
:NOT

YES OR NO,

JRETRY

TYPE

'"?"

;WANT KELP 2?7
:GET RESPONSE

;SAVE

AND ECHO RESPONSE

;WAS IT A YES RESPONSE
;NO - DONT TYPE HELP
;YES

TYPE

HELP

TEXT

JSEE IF USER WANTS TO CHANGE RMO3 UNIBUS ADDRESS

030763

TYPE

,uBUSasST

[ [0}

(SP)+,$THP1

RDCHR

001176
001176
000131

TYPE
RDCHR
TST

308

CMPB

BNE

.$TAP1

sWANT TO CHANGE ADDRESS ??

JGET

RESPONSE

;SAVE AND ECHO RESPONSE

(SP)+

JREAD S (R
sCLEAR THE

90%

JNO

$STHPY,#'Y

STACK

JWAS IT A YES RESPONSE ??
!

;DIALOGUE TO CHANGE THE UNIBUS ADDRESS, AND INTERRUPT VECTOR

031121
001276

TYPE

Mmov

TYPOC
TYPE

030716

RDOCT

001176

Mmov
BEQ

001176

CMP
BLOS
TYPE

031146

001176

JMAINTAIN PREVIOUS PARAMETERS??

TYPE

030727

160000

,CNSLOO

BNE
JMP

10%:

001176

TYPE

RDCHR

030725

001176

PC,STKINT

THIS IS THE FIRST START AFTER PROGRAM WAS LOADED
DEC
a1
JFIRST START ??
BPL
10%
JYES M

JSEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

5%:

001176
001176
001176

001176

JSR

001276

:
408

B8R
MoV

.CNSLO1

$BASE,-(SP)

s TYPE

CURRENT BUS ADDRESS

;:G0

TYPE--OCTAL ASCII(CALL

;s SAVE $BASE FOR TYPECUT

.CLSPRN

(SP)+,$THP1
508

#160000,8THP1
408
,CNSLO2

308
$TMP1,$BASE

:GET NEW BUS ADDRESS

;CARRIAGE RETURN??
;YES=SKIP TO NEXT ENTRY

:BASE ADDRESS IN I1/0 PAGE??
s YES
:TYPE WARNING MESSAGE

sRETRY
;STORE NEW BUS ADDRESS

DIGITS)

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.PV
05-APR-78 14:38

2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
240’
2405
2406
2407
2408
2409

2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428

003646
003654
003660
003664
003670
003672
003673003674
003700
003702
003706
003710
003716
003720
003724
003726
003734
003742
003746
003752
003756
003762
003766
003772
003776
004002
004004
004005
004006
004012
004014
004020
004022
004030
004032
004036
004040
004040
004044
004050
004054
004060
004064
004072

113737
105037
104401
013746
104403
003
000
104401
1046413
012637
001412
022737
101003
104401
000750
113737
113737
006237
006237
006237
006237
006237
105037

004072
004076
004102
004106
004110
004114
004120
004126

004130
004134

104401

013746
104403
001
000

001272
001177
031227
001176

001000

001176
001273
001176
001176
001176
001176
001176
001177
031333
001176

001176
001176
001176
001176
001176
003176

005037

00130¢
031414
030721

023727
001021
000137
012737

001176

001272
001176

608:
708 :

003304
000377

TYPE
MOV
TYPOS

$THP1,-(SP)

CLRB

TYPE
RDOCT
MOV
BEQ
CMpP
BHI
TYPE
B8R

Move
MovB

ASR
ASR
ASR
ASR
ASR
CLRB
TYPE
MOV
TYPOS

TYPE
RDOCT
Mov
BEQ

000007

031367

001176
001176
001176

SVECT1,$TMPI

.BYTE
.BYTE

001176

move

.BYTE
.BYTE

031257

006337
006337
006337
006337
006337
113737

104401

50%:

001176

030716

012637

001176

80$:

90$:

$TMP141

.CNSLO3

3
0

.CLSPRN

(SP)+,$THP1
708
#1000,3THP1

608

. CNSLO4

508

$TMP1,SVECTT
SVECT1+1,8TMPY
$TMP1
$TMP1
$TMP1
$TMP1
$TMP1
$STMP1+1

.CNSLOS

$TMP1,-(SP)
1

0
.CLSPRN

CMP
BLY

(SP)+,$TMP1
90%
STMP1 47
80%

708

ASL
ASL
ASL
ASL
ASL
Move

$TMPI1
$TMP1
$TMP1
$STMP1
$TMP1
$STMP1,SVELT1#1

TYPE

001273

PAGE 52
30A(1052)
O5-APR-78
14:49
GET VALUE FOR SOFTWARE SWITCH REGISTER

030716

104401
104413
012637
001424
0237.7
002403
104401
000736

104401
104401
104411

MACY11

.CNSLO6

;TYPE

SEQ 0052
CURRENT

VECTOR ADDRESS

;. SAVE $TMP1 FOR TYPEOUT
;260 TYPE~-OCTAL ASCII
:;TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS
;GET NEW VECTOR ADDRESS
;CARRIAGE RETURN?
;YES=SKIP TO NEXT ENTRY
;VECTOR ADDRESS < 1000??
SYES!!
:TYPE

WARNING MESSAGE

;TYPE

CURRENT

sRETRY
:STORE NEW VECTOR ADDRESS
PRIORITY

::SAVE $TMP1 FOR TYPEOUT
;:G0 TYPE-=OCTAL ASCII
;s TYPE 1 DIGIT(S)
s :SUPPRESS LEADING ZEROS
;GET NEW PRIORITY
;CARRIAGE RETURN??
JYES=SKIP TO NEXT ENTRY
;LEGAL PRIORITY??

JYES!!

;TYPE WARNING MESSAGE
sRETRY

;STORE NEW PRIORITY

;DIALOGUE TO INPUT DEVICE NUMBERS
CLR
$DEVM
:CLEAR DEVICE MAP

000101

001300

TYPE
TYPE
RDCHR
Mov
TYPE
cmp

BNE
JMP

Mov

.CNSLO7
.PROMPT

(SP)+,$THP1

. STHP1

STMP1,#'A
1108

XS12
#377,$DEVM

:TYPE
:TYPE

INPUT INSTRUCTIONS
PROMPTING CHARACTER

;GET RESPONSE
;ECHO RESPONSE

JTEST ALL ORIVES??
:NO

‘70 SIZE ALL POWER UP DRIVES

STEST

ALL

DEVICES

CZRAKAO RMO3/2 DSKLS PRT 2
CIRAKA.PY
05-APR-78 14:38

2429
2430
2431
2632
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448

2449
2450

004142
006144
004150
004152
004156
004162
004170
006172
004200
004202
004210
004212
004216
004220
004224
004230
004234
004240
004244
004252
004254

000444
104401
104411
012637
104401

023727
001431
023727

002404
023727
003403
104401
000752
013701
042701
116102
042702

050237
122737
101334

MACYIT

030721

30A(1052)

000015

001176

000060

001176

000067

BR
TYPE

1408
.PROMPT

mov

(SP)+,$THP1

Cmp
BEQ
CMP
8LT
CMP

STMP1.,#CR
1408
$STHP1 .20
1208
., #'7
STMPY

RDCHR
TYPE

1108:

030725

120%:

001176
177770
031700

130%:

BLE

TYPE

001300
1408:

,STAP

130%

,ASTMRK

BR
MOV
BIC

100%
$TMP1.
R
# C7,.R1

8IC
BIS
CMPB
BHI

# C377.R2
R2,$DEVM
#377.,.8DEVN
1008

MovB8

177400

001300
000377

SEQ 0053

14:49
PAGE 53
GET VALUE FOR SOFTWARE SWITCH REGISTER

1008:

001176
001176
001176

O0S5-APR-78

sSKIP TO NEXT ENTRY
s TYPE

PROMPTING CHARACTER

sGET RESPONSE
;ECHO RESPONSE

s CARRIAGE RETURN??

:NUMBER < 0??

JYES!!

:NUMBER > 7?7
JNO!'!
JRETRY
;R1=DRIVE NUMBER

ATNTBL(R1),R2
;DONE 7?7

;NO

JDECODE DEVICE NUMBER
;CLEAR UNUSED BITS
JSET DEVICE # [N MAP

(1
2

CZRMKAQO RMO3/2 DSKLS PRT 2
CZRAKA P11
05-APR-78 14:38

2651
2452
2453
2654
2455

2456

2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
247
2472
2473
2474
2475
2476

2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
249N
2492

MACY11

004254

001406
010311
116361
062701
006302
105702
001402
005203
000763
005011

004332
004336

004737
000403

004346
004352
004354
004362
004364
004372
004374
004376
004400
004406
004406
004414
004416
004422

SEQ 0054

CMNSTART:

004254
004260
004264
004270
004274
004276
004300
004302
004 304
004312
004316
004320
004322
004324
004326
004330

004340
004342
004344
004346

30A(1052)
05~APR-78
14:49 PAGE 54
GET VALUE FOR SOFTWARE SWITCH REGISTER

013700
012701
010137
012702
005003
030200

JASSEMBLE TEST QUE FROM OEVICE MA

001300
001460
001456
000001

MOV

mov

10%:

031700
000002

000001

MOVB

208:

ADD
ASL

25%:

BEQ
INC
BR
CLR

JSR

30%:

000775

408:

.SBTTL

000042
001242

000001

001154

000176

112737

000001

001150

012737
000240
004737

000140

000032

117737

026634

175030

001234

BR
ERROR
HALT

B8R

CMPB

READY:

R1,TSTQUE
1 ,R2

JINITIALIZE ENTRY POINTER
;R2 = DEVICE POINTER
sR3 = DEVICE NUMBER
;1S THIS DEVICE IN MAP ??
:NO !
JYES = ENTER DEVICE NUMBER IN QUE

:R1 = ADDRESS OF FIRST ENTRY IN OUE

R2.RO
208
R3,(R1)
ATNTBL(R3I),T1(R1);ENTER ATTENTION BIT IN QUE
#2.R1
;ADVANCE ENTRY POINTER

JADVANCE DEVICE POINTER

25%
R3
108
(R1)

s YES
;ADVANCE DEVICE NUMBER
JENTER NEXT DEVICE
;TERMINATE TEST QUE

PC,SI2CLK

40%

;DONE

JSEE

ALL DEVICES

CLOCK PRESENT

JYES = CLOCK
JNO CLOCK

IS PRESENT

308

SENV. . #1

SWITCH REGISTER
s:ARE WE RUNNING UNDER XXDP/ACT?
;;BRANCH IF YES

s ARE WE RUNNING UNDER APT?

648

;;BRANCH

8NE
GTSWR
8R

65%

. sBRANCH IF NO
JsGET SOFT-SWR SETTINGS

#1,8AU7T08

;:SET AUTO-MODE INDICATOR

mov

#PR3,FENTVEC+2

;DROP PRIORITY DURING ERROR

PC,STKINT

JINITIALIZE

CHpP

gg::

;RO = DEVICE MAP

GET VALUE FOR SOFTWARE
TSTY
Y 14
8NE
648
8EQ

104407

000403

TSTB

;SIZE FOR CLOCK

022464

104000
000000

005737
001012
123727
001406
023727
001005

Mov
[0}
(LR
8IT
8EQ
MOV

$DEVM,RO

#TSTQUE +2.,R1

MOVB
NOP

JSR

Move

SWR, #SWREG

65%

aTSTQUE ,SUNIT

YES

s sSOFTWARE SWITCH REG SELECTED?

JREADY

JLOAD UNIT

START

TTY

TEST

NUMBER

TYPEOUT

2493

2494
2495

30A(1052)

O0S5-APR-78

.SBTTL

STORAGE

D
14:49

USAGE

5§
PAGE 55

SEQ 0055

~ P~

MACY11

([ Xan)

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P1Y
G5-APR-78 14:38

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA
. P11
05-APR-78 14:38
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521

MACY11

E
30A(1052)
05-APR-78
14:49
REGISTER AND STORAGE USAGE

;RO
R

;R2,R3

=
=

5
PAGE 56

SEQ 0056

UNIBUS ADDRESS OF RH CONTROLLER
ADDRESS OF

ENTRY

UNIT UNDER TEST

[N TEST QUE

WORKING REGISTERS FOR

;R4 RS

GENERAL WORKING REGISTERS,

:
;R6
:R7

=
=

TEST

SAVED BY SUBROUTINES

CORRESPONDING

IN PROGRESS,
ARE

NOT

THE

MUST BE

SAVED BY

SUBROUTINES

STACK POINTER
LINKAGE REGISTER TO SUBROUTINES

;STORAGE ASSIGNMENTS

SSTMPO-STMP4

:$GDDAT,SBDDAT
; $GDADR, $BDADR
’

SSTSTN

SSUNIT
:RGINBF

*RGOTBF

TEMPORARY

STORAGE,

NOT

SAVED BY

SUBROUTINES

EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT
ADDRESS OF EXPECTED AND RECEIVED STATUS
ALSO THE ADDRESS OF A REGISTER ERROR

TEST NUMBER
NUMBER OF DEVICE BEING TESTED
THE REGISTER INPUT BUFFER HAS A STORAGE

EACH REGISTER,
CONTROL DATA
THE

AND

IS USED WHEN
BUFFER

HAS

APPLICABLE,

LOCATION FOR

.“ADING STATUS AND
A

STORAGE

LOCATION

EACH REGISTER, AND IS USED FOR ASSEMBLING DATA
WRITTEN IN REGISTERS

FOR

TO BE

CZRMKAO RMO3/2 DSKLS PRT 2
CIRMKA.P11
05-APR-78 14:38

MACY11

F
30A(1052)
O05-APR-78
14:49
T
TRANSFER TEST

S
PAGE 57

SEQ 0057

CZF
CZF

2522
3253

;;tttt'tt'tttttttttttttt'tt""ttt'tt"ttt'QQ"Q.'.'!""Q"'Q"'
;eTEST 1
TRANSFER TEST

3
:

2525

.-;'ttt't't"ttttt"'tttttiti"'t't""ttttttt'ttttt't"tttt"t'tt

TST1:

:
;

2526
Sgsg

004430
004432

000004
012737

2529
2530
2531
2532
gggz

004440
004442
004450
006456
882293

000240
012737
112737
012737
012737

000024
000061
004472
004472

2535
2536
2537
2538
2539

004472
004476
004502
004506
004512

012706
013700
013701
012702

001100
001276
001456
000000

2541
g§2§

004512
004520

012760
111160

000040
000010

000010

2544

004524

016037

000010

001142

2546

004540

001417

2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
gggz

006546
004554
004562
004566
004574
004576
004600

042737
052737
0°0037
062737
104001
000500

004600
004602
004604
004606
004614
004616
004626

010003
060203
011304
032760
001473
012760
111160

2565
2566
2567

004630
004636
004644

016037
032737
001417

2540

2545

2547

2568
2569
2570
2571
2572

2573
2574
2575
2576
2577

004532

004562

004646
004652
004660
004666
004672

004700
004702
004704

032737
111137

111137
042737
052737
010037
062737

104001
000436

000001

010000

001140
177770
000100
001136
000010

001226
001120
001131
001122
001124

108:

001142
001140
001140
001136

010000

000010

000040
000010

000010

000010
010000

001142
001142

001140
177770
000100
001136
000010

T1:

001140
001140
001136

SCOPE
MOV

#1,8TESTN

NOP
MoV
MOVB
MOV
MOV

#20.,8ICNT
#1, SERMAX
#T1,8LPADR
#T1,8LPERR

MOV
MoV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1
#0,R2

;:SET TEST NUMBER IN APT MAIL BOX

1
1
:
b
;

:20 ITERATIONS
;ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS
:LOAD
;RO =
:R1 =
;R2 =

THE STACK POINTER
UNIBUS ADDRESS OF uuT
POINTER TO DEVICE
REGISTER INDEX

;CLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET

MOV
MOVB
MOV

#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)

RMCS2(RO),$BDDAT

BIT

#NED,$SBDDAT

MOVB

(R1),$GDDAT

BEQ

BIC
BIS
MOV
ADD
ERROR
BR

CLEAR THE MASSBUS
;SELECT UNIT

;STORE RMCS2 AT $SBDDAT

208

MOVB
BIC
BIS
MoV
ADD

ERROR
BR

1
b
b
1
:
1
3
}
b

}

# CUNTMSK,$GDDAT
#IR,$GODAT
RO, $BDADR
#RMCS2,$BDADR
1
60$

RMCS2(RO),$BODAT
#NED,$BDDAT
308

208:
;READ THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF
:DOES NOT SET ''NED'' ERROR
MOV
RO,R3
:R3 = REGISTER ADDRESS
ADD
R2,R3
MOV
(R3), R4
:READ REGISTER
BIT
#NED, RMCS2(RO)
;1S "'NED'* SET??
BEQ
708
;NO!!
MOV
#CLR,RMCS2(RO)
;CLEAR THE MASSBUS
MOVB
(R1) ,RMCS2(RO)
;SELECT UNIT

MOV
BIT
BEQ

THE READ

:STORE RMCS2 AT SBDDAT

(R1),$GDDAT
# CUNTMSK,$GDDAT
#1R,$GDDAT
RO,$BDADR
#RMCS2,SBDADR

;
:
;

:
:
;
;
:

1
603

308:
;WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST
;DOES NOT SET “'NED'' ERROR

;
:
:
:
:
;
;
:
:
:
;
:
;
3
:
:

THE WRITE

;
:
:
;
:

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

2578
2579
Sgg?

004704
004710
004716

2582
2583
2584
2585
2586
2587
2588

004720

004720
004724
004730

062702
022702
001773

2590
2591
2592

u04736
004740
004744

001770
022702
001765

2589

2593

2594
2595
2596
2597
gggg

004732

004746

004752
004754
004760
004762
004766

ggg?

004770

2602
2603

004770

2604
gggg

2607

2608

004776
005000

012713
032760
001432

022702

001762
022702
001757
022702
103251

000000
010000

MACY11

MOV
BIT
BEQ

000010

S
PAGE

20, (R3)
#NED, RMCS2
708

SEQ 0058

:WRITE REGISTER
'RY)
;1S 'NED'* SET??
;NO!!

40$:
;COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING '‘NED'' ERROR ;ADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT
AVAILABLE DEVICE REGISTER
ADD
#2,R2
;ADVANCE TO NEXT REGISTER
CMp
#RMWC,R2
;1S THIS RMWC??
BEQ
408
;:YES ~ TRY NEXT REGISTER

000002
0000C2

000004

CMpP

000010
000016

000022
000046

#RMBA,R2

;1S THIS RMBA??

104002
000137

001276

001136

021416

:GOT

2612

2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625

005004
005006
005014
005016
005024
005032
005040
005046
005046
005052
005056
005062
005070

000004
012737
000240
012737
112737
012737
012737
012706
013700
013701
012760
111160

001100
001276
001456
00004C
000010

5233

005074

012760

000076

000000

ggg?

005102

012760

177777

sgg%

005110

012760

001777

:YES - TRY NEXT REGISTER
;1S THIS RM(CSS??
;YES = TRY ANOTHER REGISTER

3
3
3

BEQ
CMP
BEQ
CMP
BHIS

408
#RMDB,R2
408
#RMEC2,R2
108

:YES - TRY ANOTHER REGISTER
;1S THIS RMDB??
:YES - TRY ANOTHER REGISTER
;1S THIS A LEGAL REGISTER
;YES = TRY THIS REGISTER

3
3
3
3
%

#RMAS ,R2

;1S THIS RMAS ??

'NONEXISTENT DEVICE' ERROR FOR EVERY REMOTE REGISTER ADDRESS
MOV
$BASE. SBDADR
;STORE BASE ADDRESS

ERROR
JMP

2
$EOSP

;DEMAND OR TRANSFER FAILED
;60 SELECT NEXT DEVICE

3
3

3
g

708:

;"ttttttttt'tttttttt"'t"tt"ttttt'ttttt'tt'tttttt'tttttfitt'fi'tt

";ttttttt'""tttttt't"'t!""ttt"tt't'tttQtt'tt'tttttt"tti'tt

TST2:

CTOD TEST

s*TEST 2

gg}?

3
3
3
3
3
3
3

608:

005004

3
3
%

408
#RMCS2,R2
40

508:
013737

CIR
(IR

BEQ
CMP
BEQ

CMP

2609

5259

6
30A(1052)
O0S-APR-78
14:49
1
TRANSFER TEST

MOV
MOV
MOV
MOV
MOVB

#STACK,SP
$BASE RO
TSTQUE ,R1
#CLR,RMCS2(RO)
(R1),RMCS2(RO)

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS OF uUT
:R1 = POINTER TO DEVICE
;CLEAR THE MASSBUS
;SELECT UNIT

3
3
3
3
3
3
3
3
3
3
3
3
3

MOV

#ILF76,RMNCST(RO)

:LOAD RM(CS1

(00006

MOV

#-1,R¥DA(R0)

000034

MOV

#CYLMSK,RMDC (RO)

000002

001226

000024
000001
005046
005046

001120
001131
001122
001124

000010

T2:

SCOPE
MOV
NOP
MOV
MOVB
MOV
MOV

#2,8TESTN
#20.,81CNT
#1, SERMAX
#T72.8LPADR
#T12.8LPERR

::SET TEST NUMBER IN APT MAIL BOX
:20 ITERATIONS
:ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

:WRITE ONES IN REMOTE REGISTERS

:LOAD RMDA

:LGAD RMDC

§
%

#FMTI6ECI'HC]I'OFD,RMOF (RO)

JLOAD RMOF

005116

012760

016200

005124
005130

012702

000001

005130

016037

000000

001326

Mov

RMCST(RO) ,RMCST]

JSTORE RMCS1

005136

016037

000006

001334

MOV

RMDA(RO) ,RMDA]

;STORE RMDA IN INPUT BUFFER

005144

016037

000034

001362

MOV

RMDC(RO),RMDCI

;STORE RMDC

IN INPUT BUFFER

005152
005160
005162

016037
005302

000032

001360

MOV

RgOF(RO),RHOFI

JSTORE RMOF

IN INPUT BUFFER

BPL

108

005164
005172
005174
005200
005202
005210
005212
005220

042737
001014
005737
001011
042737
001005
042737
001001

005222
005224

104003

:READ REMOTE

TST

1/6000

001362

161577

001360

20%

RMDAL

;IS RMCSY
JNO'!
;1S

0??

RMDA 07?2

BNE
20s
JNO!!
BIC
#XNUDC,RMDCI
;1S RMDC 072
BNE
20%
JNO!!
BIC
#XNUOF ,RMOF 1
;1S RMOF Q0 2?7
BNE
20$
;NOY!
;s CANNOT READ ANY ONE BITS FROM REMOTE REGISTERS
ERROR
3
;CT0D MUST BE STUCK
:
208
R
T

J*TEST 3

MASSBUS INITIALIZE TEST

,':'i"""'i"""""'"'i"'""i"'i""'"it.'.'.".'..""*"

TST13:

SCOPE

005224
005226

000004
012737

005234
005236
005244
005252
005260
005266
005266
005272
005276
005302
005310

000240
012737
112737
012737
012737

012706
013700
013701
012760
111160

001100
001276
001456
000040
000010

005314

012760

000076

000000

MOV

#ILF76,RMCST(RO)

005322

012760

177777

000014

[ [o]'}

#-1,RMERT(RO)

;LOAD RMER1

005330

012760

177777

00004¢

MoV

#-1,RMER2(RO)

;LOAD RMER?

005336
005344

012760

000040
000010

000010

MOV
MOVB

#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)

;CLEAR THE MASSBUS
;SELECT UNIT

111160

001226

000024
000001
005266

001120
001131

005266

001122
001124

#3,8TESTN

J:SET TEST NUMBER IN APT MAIL BOX

MOV
Move

#20.,SI1CNT
#1,8ERMAX

:20 ITERATIONS
;ONE ERROR ALLOWED

MOV

#STACK,SP

NOP

MoV
MOV

000010

MOV

MoV
MoV

#13,SLPADR
#T3,8LPERR

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

;LOAD THE STACK POINTER

$BASE RO
TSTQUE R

;RO = UNIBUS ADDRESS Of uurt
:R1 = POINTER TO DEVICE

MoV
#CLR,RMCS2(RO)
;CLEAR THE MASSBUS
MOVB
(R1) ,RMCS2(RO)
,SELECT UNIT
JWRITE ONES IN SELECTED REGISTERS

;LOAD RM(CS1

JUSING CONTROLLER CLEAR, [E., BIT S OF RMCS2.,
JREAD

THE

REGISTERS

THAT WERE

WRITTEN

A A AW AN
Ul A AN

000003

A A L A AN AN AN

BNE

A Al G AN U AN L AN U U U AN N AN W AN N G A

001334

IF ANY ONE BITS CAME BACK
BIC
# CILF76,RNCS1I

N U U AN A A

001326

IN INPUT BUFFER

g AN Al W U U

DEC

JSEE

#1,R2

TWICE

10%:

100362

177701

MOV

REGISTERS

CZR

SEQ 0059

MoV

S
PAGE

INITIALIZE THE MASSBUS

N G

000032

H
14:49

30A(1052)
O0S-APR-78
T2
CT0D TE.T

N U

2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689

MACY11

(]

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRAKA P11
05-APR-78 14:38

2739
2740
2741
2742
2743
2744
2745

SEQ 0060

005350

016037

000000

001326

MOV

RMCS1(RO) ,RMCST1I

;STORE RMCSY

IN INPUT BUFFER

005356

016037

000014

001342

MOV

RMERT1(RO) ,RMER1]

;STORE RMERY

IN INPUT BUFFER

005364

016037

000042

001370

MOV

RMER2(RO) ,RMERZ]

;STORE RMERZ IN INPUT BUFFER

005372
005400
005406
005414
005416
005424
005426
005434

052737
052737
022737
001011
022737
001005
022737
001001

177701
001567
177777

001326
001370
001326

177777

001342

177777

001370

BIS
(MP
BNE
CMP
BNE

#XNUERZ ,RMER2]
#-1,RMCS1I
108
#-1,RMERT]
108

005436
005440

104004

;SEE

IF ANY REGISTER BITS WERE CLEARED
8IS
# CILF76 ,RMCS1]

cmMp

#-1,RMER2]

BNE
10%
JNONE OF THE BITS WERE
ERROR
4

CLEARED

10%:

JSET ANY BIT NOT WRITTEN

JYES!!

JYESH!

;ANY ZEROS

IN RM(CS1??

sANY 2EROS

IN RMERI??

;ANY ZEROS IN RMERZ2??

*MASSBUS

INIT FAILED

:"t"i."t'ii""."".’""'""'i"""'i"fi't('.'l'i"'t"fi'ttt

JeTEST 4

CLEAR STUCK ACTIVE TEST

:""'"'.'"'""""'i"i't'It""'""'""'fit.".t"'.'t'i'ti"

005440
005442

005450
005452
005460
005466
005474
005502
005502
005506
005512
005516
005524

000004

012737

000004

001226

000240
012737
112737
012737
012737

000024
000001
005502
005502

001120
001131
001122
001124

012706
013700
013701
012760
111160

001100
001276
001456
000040
000010

TST4:

#4,$TESTN

J:SET

MoV

#20.,$ICNT

;20 ITERATIONS

MOV

#STACK,SP

;LOAD THE STACK POINTER

mMov

#CLR,RMCS2(RO)

,;CLEAR THE MASSBUS

JWRITE ONES

IN TEST REGISTERS

NOP

MOvB
Mov
MOV

000010

SCOPE
MOV

MOV
MOV

MovB

#1,3ERMAX
#14 ,SLPADR
#74,3LPERR

TEST NUMBER

IN APT MAIL

BOX

JONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

$BASE RO
TSTQUE R

(R1),RMCS2(R0O)

;RO = UNIBUS ADDRESS OF uurt
;R1 = POINTER TO DEVICE

;SELECT UNIT

012760

1772777

000014

MoV

#-1,RMERT (RO)

;LOAD RMER1

005536

012760

1772777

000042

MOV

#-1,RMER2(RO)

;LOAD RMER?

005544

012760

000001

00024

MOV

#0MD ,RMMRT1(RO)

005552

016037

00001¢

001342

MOV

RMERT (RO) ,RMER1]

;STORE RMER1

INPUT BUFFER

005560

016037

000042

001370

MoV

RMER2(RO) ,RMERZ!

;STORE RMERZ

INPUT BUFFER

005566
005574
005602
005604
005612
005614

016037
042737
001011
042737
001005

000024
040000

001352
001342

040200

001370

MoV
BIC
BNE
BIC

RMMR1(RO) ,RMMR1]
;STORE RMMR1 IN INPUT BUFFER
#UNS ,RMER1 ]
JDONT ACCEPT UNSAFE
108
sBRANCH IF ANY OTHER BITS ON
#SK1'DVC,RMER2I ;DONT ACCEPT SKI OR DVC

000001

001352

BIY

#DRD ,RMMR1]

032737

JREAD TEST REGISTERS AND SEE

BNE

108

005530

;LOAD RMMR1

I[F ANY BITS ARE ON

;BRANCH IF ANY OTHER BITS ON
sBRANCH

CZR
CZR
WW
AN N NN AN NN NN N NN N W W W AN W W W W W NWNIWIWWNIWNWWIWWINWW
2

30A(1052)
05-APR-78
14:49
PAGE 60
T3
MASSBUS INITIALIZE TESY

DMD

IS ON

N AN U A AN N N U

2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
r44
2712
2713
2714
2715
2716
27
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738

MACY11

N N W AN AN U U U

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38

BNE
ERROR

10%:

CLEAR

LRTEST S
MR

111160

000040
000010

000010

005720

012760

000076

005726

012760

005734

000024
000001
005670
005670

001120
001131
001122
001124

ARR

ARt

TRISTATE TRANSFER TEST
AR

dRRRRRRdARR

RtRd

]

ARR ARl
iRttt iiitnisnls]

SCOPE
MOV

#5.$TESTN

::SET TEST NUMBER IN APT MAIL BOX

MOV

#20..81CNT

MoV
MOV

#T5,8LPADR
#75,8LPERR

;20 ITERATIONS
;ONE ERROR ALLOWED

NOP

MOVB

15:

ARALR

#1,SERMAX

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

¢sLOAD THE STACK POINTER
;RO = UNIBUS ADDRESS OF uuv
MOV
TSTQUE
,R
;R1 = POINTER TO DEVICE
CLR
R2
:CLEAR ERROR FLAGS
MOV
#CLR,RMCS2(RO)
sCLEAR THE MASSBUS
MOVB
(R1) .RMCS2 (RO)
s SELECT UNIT
:WRITE ONES IN SELECTED REGISTERS
MOV
MOV

#STACK,SP
$BASE
, RO

000000

MOV

#ILF76.RMCST
(RO)

177777

000006

MOV

#-1,RMDA(RO)

;LOAD RMDA

012760

177777

000014

MoV

#-1,RMERT (RO)

;LOAD RMER1

005742

012760

177777

000032

MOV

#-1,RMOF (RO)

:LOAD RMOF

005750

012760

177777

000042

MOV

#-1,RMER2(RO)

.LOAD RMER?

;LOAD RMCS1

NN W

001100
001276
001456

001226

sMBA CLR IS STUCK ACTIVE

012706
013700
013701
005002
012760

000005

108
26

Sca 0061

TEST

;WRITE ZEROS IN SELECTED REGISTE RS

005756

012760

000000

MOV

#0,RMCS1(RO)

sLOAD RMCS1

005764

012760

000000

000006

MOV

#0,RMDA ‘RO’

;LOAD RMDA

005772

012760

.90000

000014

MOV

#0,RMERT (RO)

;LOAD RMER1

006000

012760

000000

000032

MoV

#0,RMOF (RO)

:LOAD RMOF

006006

012760

000000

000034

MOV

#0.RMDC (RO)

:LOAD RMDC

006014

012760

oooooc¢

000042

MoV

#0,RMER2(RO)

;LOAD RMERZ?

;READ BACK ALL REGISTERS

006022

016037

000000

001326

MoV

RMCS1(RO) ,RMCSTI

006030

016037

000006

00133«

MOV

RMDA(RO),RMDAI

006036

0146037

000014

001342

MOV

RMERT(RO) ,RMER1]

006044

016037

000032

001360

MOV

RMOF
(RO) ,RMOF |

000004
012737
000240
012737
112737
012737
012737

AAE

ISTS:

STUCK ACTIVE

5
PAGE 61

AN A N

005626
005630
005636
005640
005646
005654
005662
005670
005670
005674
005700
005704
005706
005714

J
14:49

A U

001001
104026

05-APR-78

AN N L

005622
005624
005626

30A(1052)

;STORE RMCS1

IN INPUT BUFFER

;STORE RMDA IN INPUT BUFFER
;STORE RMER1

:STORE RMOF

IN INPUT BUFFER

U L A L A

2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
27N
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801

MACY11

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38

2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857

016037

000034

001362

006060

016037

000042

001370

006066
006072
006100
006106
006114
006122
006126
006132
006136
006142
006146
006152
006156
006162
006166
006172
006176
006202

012702
052737
052737
052737
052737
005137
005137
005137
005137
005137
005137
043702
043702
043702
043702
043702
043702
00140/

127777
177701
161577
176000
001567
001326
001334
001342
001360
001362
001370
001326
001334
001342
001360
001362
031370

006204
006210
006214
006216
006222

010237
005037

001142
001140

052702

000001
000040
000010

006222
006230

104005

2829
2830

006052

-0

2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828

MACY11

Enla]
-—~y

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38

001326
001360
001362
001370

K
5§
30A(1052)
OS5-APR-78
14:49
PAGE 62
TS
TRISTATE TRANSFER TEST
Mov

RMDC(RO) ,RMDCI

SEQ 0067

;STORE RMDC

IN INPUT BUFFER

Mov
RMER2(RO) ,RMER2I
;STORE RMER2 IN INPUT BUFFER
:CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ
MoV
#-1,R2
;ACCUMULATE ZEROS IN R2
BIS
# CILF76 RMCST] ;SET ALL BITS NOT WRITTEN
BIS
#XNUOF ,RMOF |
BIS
#XNUDC,RMDCI
BIS
#XNUER2 ,RMER2]
COM
RMCS11
s COMPLEMENT REGISTER CONTENTS
COM
RMDAI
COM
RMER1I
COM
RMOF|
COM
RMDCI
COM
RMER2]
BIC
RMCS11,R2
sACCUMULATE ALL ZERO BITS
BIC
RMDAI ,R2
BIC
RMERTI,R2
BIC
RMOF
I ,R2
8IC
RMDCI.R2
8IC
RMERZ2I.R2
BEQ
108
;BRANCH IF EACH BIT IS ZERO
JONE OR MORE BIT POSITIONS ARE NOT ZERO

MoV

R2.,$BDDAT

ERROR
BIS

b)
#BITO,R2

$GDDAT

;LOAD EXPECTED RESULT

MOV
MOVB

#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)

;CLEAR THE MASSBUS
;SELECT UNIT

CLR

10$%:

000010
;PRESET

SELECTED REGISTERS

;SAVE RESULT FOR TYPE

sTRISTATE BUS IS STUCK AT ONE
JSET ERROR FLAG

TO ZEROS

; (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT)
006234

012760

000000

000006

Mov

#0,RMDA(RO)

sLOAD RMDA

006242

012760

000000

000032

mov

#0, RMOF (RO)

:LOAD RMOF

006250

012760

000000

000034

006256

012760

000076

000000

Mov

#ILF76 ,RNCST(RO)

006264

012760

177777

000006

Mov

#-1,RMDA(RO)

006272

012760

01620¢

000032

MoV

# CXNUOF ,RMOF (RO)

:LOAD RMOF

006300

012760

001777

000034

Mov

# CXNUDC,RMDC(RO)

:LOAD RMD(

006306

012760

177777

000014

Mov

#-1,RMERT(RO)

006314

012760

176210

000042

006322

016037

000000

001326

MoV
#0,RMDC(RO)
.LOAD RMD(C
WRITE ONES IN SELECTED REGISTERS
;LOAD RM(CST
:LOAD RMDA

;LOAD RMER1

Mov
# CXNUERZ,RMER2{R0)
SREAD ALL REGISTERS

Mov

RMCS1(RO) ,RMCSTI

:LOAD RMERZ?

:STORE RMCSY

IN INPUT BUFFER

CIZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913

MACYT1

30A(1052)
05-APR-78
14:49 PAGE 63
TS
TRISTATE TRANSFER TEST

SEQ 0063

006330

016037

000006

001334

MOV

RMDA(RO) ,RMDA]

;STORE RMDA IN INPUT BUFFER

006336

016037

000032

001360

MOV

RMOF (RO),RMOF]

;STORE RMOF

006344

016037

000034

001362

MOV

RMOC(RO) ,RMDCI

;STORE RMDC

IN INPUT BUFFER

006352

016037

000014

001342

MoV

RMER1(RO) ,RMER1]

;STORE

006360

016037

000042

001370

MOV

RMER2(RO) ,RMERZ]

;STORE RMERZ IN INPUT BUFFER

006366
006374
006402
006410
006416
006420
006424
006430
006434
006440
006444
006450
006454

042737
042737
042737
042737
005002
053702
053702
053702
053702
053702
053702
022702
001410

177701
161577
176000
001567

001326
001360
001362
001370

BIC
BIC

#XNUOF
, RROF I
#XNUDC ,RMDCI

006456
006462
006470
006472
006476

010237
012737

001142
177777

052702

000002

MOV
ERROR

#-1,8GDDAT
6

#BIT1,R2

sSET ERROR FLAG

TST

;sANY ERRORS DETECTED

MOV

#1,R2

;R2=BIT POSITION

MOV

#CLR,RMCS2(R0O)

104006

001326
001334
001360
001362
001342
001370
177777

001140

INPUT BUFFER

RMER1

IN INPUT BUFFER

JCHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN L READ
BIC
# CILF76,RMCS1I
;CLEAR ALL BITS NOT WRITTEN
BIC
#XNUER2 ,RMER2]
CLR
R2
;ACCUMULATE ONES IN R2
BIS
RMCS1I,R2
JACCUMULATE ALL ONE BITS
BIS
RMDAI,R2
BIS
RMOFI,R2
BIS
RMDCI,R2
8IS
RMER1I,R2
BIS
RMERZ2] ,R2
CMP
#-1,R2
JSEE IF EACH BIT POSITION WAS ONE
BEQ
208
;BRANCH IF NONE STUCK
;ONE OR MORE BIT POSITIONS ARE NOT ONE
MOV
RZ,$BODAT
;SAVE RESULT FOR TYPE

208:

BIS

JEXPECTED RESULT

006476
006500
006502
006506
006506
006514

005702
001131
012702

006520

010260

000006

MOV

RZ2,RMDA(RO)

;LOAD RMDA

006524

010260

000032

MOV

R2.RMOF (RO)

;LOAD RMOF

006530

010260

000034

MOV

R2,RMDC(RO)

JLOAD RMDC

006534

010260

000014

MOV

R2.RMERI(RO)

;LOAD RMERI

006540

010260

000042

MOV
R2.RMERZ2(RO)
JREAD BACK ThE REGISTERS

;LOAD RMER?

006544

016037

000006

001334

MOV

RMDA(RO),RMDAI

;STORE RMDA IN

006552

016037

000032

001360

MOV

RMOF
(RO) ,RMOF]

;STORE RMOF

IN INPUT BUFFER

006560

016037

000034

001362

MOV

RMDC(RO),RMDC]I

;STORE RMDC

IN INPUT BUFFER

012760

111160

000001

000040
000010

BNE

258

000010

MOVB

30%

(R1),RMCS2(RO)

JYES - DONT DO BIT TEST

;CLEAR THE MASSBUS
:SELECT UNIT

JWRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS

INPUT BUFFER

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

2914
2915
2916
2917
2918
2919
2920
+ 2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966

2967
2968
2969

MACY11

006566

016037

000014

001342

006574

016037

000042

001370

006602
006604
006610
006614
006616
006620
006622
006626
006632
006634
006636
006642
006644
006650
006654
006656
006660
006664
006666
006672
006674
006676

005003
012704
013705
050503
005105
040504
013705
042705
050503
005105
042705
040504
013705
042705
050503
005105
042705
040504
013705
050503
005105
040504
013705
042705
050503
005105
042705
040504
010205
005105
040503
040204
050403
020302
001406
010237
010337
104007
000404

006700
006704
006710
006712
006714

006720
006722
006724
006726

006730
006732
006734
006736

006740
006744
006750
006752
006754

006754
006756
006760
006764

006302
001402
000137

n
S
30A(1052)
OS-APR=-78
14:49
PAGE 64
TS
TRISTATE TRANSFER TEST

MOV

RMERT(RO) ,RMER1!

SEQ 0064
:STORE RMER1T

IN INPUT BUFFER

[0]")
RMER2 (RO) ,RMERZ]
:STORE RMERZ2 IN INPUT BUFFER
;CHECK REGISTER CONTENTS FOR CORRECT PATTERN

177777
001334

001360
161577

161577
001362

176000

001342

001370
001567
001567

CLR
MOV
MOV
BIS
COM
BIC
MOV
BIC
8IS
COM
BIC
8IC
MOV
BIC
BIS
COM
BIC
BIC
MoV
BIS
COM
B8:C
MOV
8IC
8IS
COM
BIC
8IC

R3
#-1,R4
RMDAI RS
RS.R3
RS
RS.R4
RMOF I ,RS
#XNUOF ,RS
RS,R3
RS
#XNUOF ,RS
RS.R4
RMDCI.RS
#XNUDC ,RS
RS.R3
RS
#XNUDC ,RS
RS5.R4
RMERYI,RS
RS,R3
RS
R5.R4
RMER2I ,RS
#XNUERZ
RS
RS,R3
RS
#XNUERZ
RS
RS5,R4

COM
BIC

RS
RS,R3

MOV
BIC

BIS

CMP
BEQ

001140
001142

MOV
MOV
268

ERROR
BR

sR3I=ACCUMULATED ONE BIT
JR4=ACCUMULATED Z2ERO BITS
;GET ANY GNOD BITS FROM RMDA

sGET GOOD BITS FROM RMOF

;GET GOOD BITS FROM RMDC

;GET GOOD BITS FROM RMER1

;GET GOOD BITS FROM RMERZ

R2.,RS

JRESET ALL ONES IN R3 EXCEPT

R2.,R4

JRESET TEST BIT IN R4

R3,.R2
26$%

;IS PATTERN 0K??
JYES!!

R4 ,R3

R2.,$GODAT
R3I,.$BDDAT
7
308

;FOR THE TEST BIT

;COMBINE ACCUMULATED 1°'S + 0°'S

;SAVE TEST PATTERN
;SAVE RESULT

sBIT INTERFERENCE
JSKIP TO NEXT

IN TRISTATE BUS

JADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST
ASL

006506

30$:

BEQ
JMP

30%
25$

:SHIFT

THE BIT

JEXIT 1F DONE

.‘"ttt'tt""'*'""i'"""""""""'"'i"'.""fi""."."*"

JeTEST 6

TEST

I
Y

006764
006766

000004
012737

000006

001226

TST6:

SCOPE
MoV

#6,$TESTN

:.SET TEST NUMBER IN APT MAIL BOX

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1
05~APR-78 14:38

2970
29N
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991

006774
006776
007004
007012
007020
007026
007026
007032
007036

000240
012737
112737
012737
012737

000024
000001
007026
007026

012706
013700
013701

001100
001276
001456

MACY11

30A(1052)
Té

001124

Mov

MOvVB
[0}

T6:

;20 ITERATIONS
sONE ERROR ALLOWED

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

mov
Mov
MoV

#STACK,SP

$BASE RO

REG SEL

;

RMCST

;

RMER1

00000
00001
00010
00011
00100
00101
00110

2993
2994
2995
2996
2997

3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025

Mov

#20.,8ICNT

#1,SERMAX
#76,SLPADR
#76,SLPERR

sLOAD THE STACK POINTER
;RO = UNIBUS ADDRESS OF uuT
TSTQUE ,R1
;R1 = POINTER TO DEVICE
;THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR
;EACH DEVICE REGISTER

2992

2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014

14:49
PAGE 65
REGISTER SELECT TEST

NOP

001120
001131
001122

05-APR-78

RMDS

RMMR1

RMAS
RMDA
RMDT
RMLA
RMSN
RMOF

RMDC

;

RMHR

;

(16,8,4,2.,1)

"MMR?

RMER?

RMEC

RMEC2

;EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE,
sSTUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1.
;FOR S-A-0, RMER1 1S WRITTEN WITH Z.ROS. THEN THE REGISTER
s THAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE
sBEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE,
;RMMRY IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0,
sTHE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1
;WILL NOT BE O W HEN READ BACK.
007042
007044

005002
012703

007050
007056

012760
111160

000040
0ooo01¢

007062

010260

007066

.n.- ZEROS SOURCE
SOURCE
sR.- ONES

Movs

R2
#-1,R3
FOR S-A-0
#CLR,RMCS2(RO)
(k1) ,RMCS2(RO)

000014

Mov

R2,RMER1(RO)

:LOAD RMER1

010260

000034

Mov

R2,RMDC(RO)

sLOAD RMDC

007072

010360

000024

Mov

R3,RMMR1(RO)

;LOAD RMMRI1

007076

010360

000036

MoV

R3,RMHR(RO)

;LOAD RMHR

CLR

177777

Mov

000010

JTEST REG SEL 1
MoV

sCLEAR THE MASSBUS
;SELECT UNIT

SEQ 0065

ey emmee—

CIZRMKAO RMO3/2 DSKLS PRT 2
CZRAKA PN
05-APR-78 14:38

MACYN

?—-’-_;.!—-‘~_.-..‘

3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039

3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077

3078
3079
3080
3081

30A(1052)
T6

OS-APR-78

8
14:49

TEST

6
PAGE 66

007102

016037

000014

001342

mov

RMERT(RO) ,RMER1]

007110
007116
007122
007124
007132
007136
007140
007142

016037
020337
001007
052737
020337

000034
001342

001362

MOV

RMOC(RO),RMDCI

176000

001362

BIS

#XNUDC ,RMDCI

007142
007150

012760

111160

000010

007154

010260

007160

001001
104010

001362

CmAp
BNE
(mp

108:

000040

BNE
ERROR

R3.RMER1]
108

SEQ 0066
;STORE ]MER1

:STORE

RMDC

IN INPUT BUFFER

INPUT BUFFER

R3,RMDCI
10%
10

;TEST REG SEL 1 FOR S-A-1

;REG SEL 1

IS S-A-0

MOV
MOVB

#CLR,RMCS2(RO)
(R1),RMCS2(RO)

:CLEAR THE MASSBUS
sSELECT UNIT

000006

MOV

R2.RMDA(RO)

:LOAD RMDA

010260

000032

MOV

R2,RMOF (RO)

:LOAD RMOF

007164

010260

000042

MOV

R2,RMERZ2(RO)

;LOAD RMERZ2

007170

010360

000016

MOV

R3,RMAS(RO)

;LOAD RMAS

007174

010360

000030

MoV

R3,RASN(RO)

;LOAD RMSN

007200

010360

000040

MOV

R3,RMMR2(RO)

;LOAD RMMR2

nN7204

016037

000006

001334

MoV

RMDA(RO) ,RMDAL

;STORE RMDA IN INPUT BUFFER

007212

016037

000032

001360

MOV

RMOF
(RO) ,RMOF |

:STORE RMOF

007220
007226
007232
007234
007242
007246
007250
007256
007262
007264
007266

016037
020337
001015
052737
020337
001007
052737
020337
001001

000042
001334

001370

Mov

RMER2(RO) ,RMERZ]

161577
001360

001360

BNE
BIS

208
#XNUOF ,RMOF |

001567
001370

001370

BNE
BIS
Cmp
BNE
ERROR

208
#XNUERZ ,RMER2I
R3,.RMERZ2I
208
11

000010

104011

CMpP

CmMpP

20$:

000040
000010

000010

R3,RMDAI

IN INPUT BUFFER

:STORE RMER2 IN INPUT BUFFER

R3,RMOF]

JTEST REG SEL 2 FOR S=-A-0

;REG SEL 1

IS S-A-1

MOV
MOVB

#CLR,RMCS2(RO)
(R1),RMCS2(RO)

sCLEAR THE MASSBUS

sSELECT UNIT

007300

010260

000006

[ [0]']

R2.,RMDA(RO)

;LOAD RMDA

007304

010260

000032

Mmov

R2,RMOF (RO)

. LOAD RRMOF

007310

010260

000042

mov

R2,RMERZ2(RO)

;LOAD RMER?

007314

010360

000020

MOV

R3,RMLA(RO)

:LCAD RMLA

007320

010360

000036

MOV

R3I,.RMHR(RO)

.LOAD RMHR

2l
cl

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1Y
05-APR-78 14:38
007324

010360

000046

007330

016037

000006

007336

016037

007344
007352
007356
007360
007366
007372
007374
007402
007406
007410
007412

016037
020337
001015
052737
020337
001007
052737
020337
001001

007412
007420

012760

111160

000040
000010

007424

010260

007430

MoV

R3.RMEC2(RO)

;LOAD RMEC2

001334

MOV

RMDA(RO) ,RMDAI

;STORE RMDA IN INPUT BUFFER

000032

001360

MOV

RMOF
(RO) ,RMOF |

;STORE

000042
001334

001370

mov

RMER2(RO) ,RMER2I

161577
001360

001360

8IS
CmP

#XNUOF ,RNOF |
R3,RMOf
]

001567
001370

001370

104012

c(mnp
BNE

308
000010

BNE
BIS
cmp
BNE
ERROR

R3,RMDAI
308

308
#XNUERZ ,RMERZI
R3,RMERZ2]
308
12

JTEST REG SEL 2 FOR S-A-1

RMOF

INPUT BUFFER

:STORE RMER?2 IN INPUT BUFFER

JREG SEL 2 IS S-A-0

;LOAD RMER1

010260

000034

MOV

RZ,RMDC(RO)

sLOAD RMDC

012760

000076

Mmov

#ILF76,RMCST(RO)

010360

000030

MOV

R3I,.RMSN(RO)

007446

016037

000014

001342

MOV

RMERT
(RO) ,RMER1]

007454
007462
007470
007474
007476
007504
007510
007512
007514

016037
052737
020337
001007
052737
020337
001001
104013

000034
177701
001342

001362
001342

MoV

RMDC(RO) ,RMDCI

176000

001362

BIS

007514
007522

012760

111160

000040
000010

007526

010260

007532

b (=]

SEQ 0067

RZ2,.RMERI(RO)

TEST

MOV

b
D

D
d

b
b
d
—

6
PAGE 67

000014

VIV S AV LRV LV ] W

b
b

c
164:49

:CLEAR THE MASSBUS
sSELECT UNIT

007442

05-APR-78

#CLR,RMCS2(RO)
(R1),RMCS2(RO)

007434

(VLY AV

30A(1052)

MOV
MOVB

3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108

MACY11

001362

000000

BIS
cmp
BNE
CMp

BNE

:
408

000010

ERROR

# CILF76,RMERT]
R3,RMER1I
408

;LOAD RMCS!
:LOAD RMSN

:STORE RMER1

:STORE RMDC IN INPUT BUFFER

#XNUDC ,RMDCI

R3.RMDCI

408

JTEST REG SEL & FOR S-A-0

IN INPUT BUFFER

;REG SEL 2 IS S-A-1

MoV
MOVB

#CLR,RMCS2(RO)
(R1),RMCS2(RD)

;CLEAR THE MASSBUS
;SELECT UNIT

000014

MOV

R2.RMERT(RO)

:LOAD RMER1

010260

000032

MOV

R2.,RMOF (RO)

:LOAD RMOF

007536

010260

000034

MOV

R2.,RMDC(RO)

:LOAD RMDC

007542

010360

000026

Mov

R3,RMDT(RO)

;LOAD RMDT

007546

010360

000042

MOV

R3,RMERZ2(RO)

:LOAD RMERZ

!
czl

3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164

3165
3166
3167

3168
3169
3170
317

3172
3173

3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184

3185
3186
3187
3188
3189
3190
3191
3192
3193

007552

010360

000044

007556

016037

000014

007564

016037

007572
007600
007604
007606
007514
007620
007622
007630
007634
007636
007640

016037
020337
001015
052737
020337
001007
052737
020337
001001

007640
007646

012760

111160

000040
000010

007652

010260

000006

007656

010260

007662

SELECT

TEST

6
PAGE 68

SEQ 0068

;LOAD RMEC1

MOV

R3,RMECI(RO)

001342

MOV

RMER1(RO) ,RMERT]

000032

001360

MOV

RMOF
(RO) ,RMOF |

;STORE RMOF

IN INPUT BUFFER

000034
001342

001362

IN INPUT BUFFER

001360

RMDC (RO),RMDCI
R3,RMER1I
50%

:STORE RMDC

161577
001360

MoV
CMP
8NE

176000

001362

104014

#XNUOF ,RMOF [

cmpP

R3,.RMDCI

o1
BNE
8IS

508:
000010

BIS

sTEST

SEL

508
14

FOR

;REG SEL & IS S-A-0
S-A-1

#CLR,RMCS2(RO)
(R1) ,RACS2(RO)

s CLEAR THE MASSBUS

MoV

RZ2,RMDA(RO)

:LOAD RMDA

000042

Mmov

R2 ,RMER2(RO)

;LOAD RMERZ2

010360

000012

MoV

R3.RMDS (RO)

:LOAD RMDS

007666

010360

000032

MOV

R3,RMOF (RO)

. LOAD RMOF

007672

016037

000006

001334

MOV

RMDA(RO) ,RMDAI

;STCRt RMDA [N INPUT BUFFER

007700
007706
007712
007714
007722
007726
007730
007732

016037
020337
001007
052737
020337
001001

000042
001334

001370

MOV

RMER2(RO) ,RMERZ]

001567
001370

601370

BNE
BIS

60%
#XNUERZ ,RMER?!

BNE
ERROR

608
15

104015

MOV
MOVB

IN INPUT BUFFER

R3,RMOFI
508
#XNUDC ,RMDCI

BNE
ERROR
REG

;STORE RMER1

CHpP

CMpP

60$:

JTEST REG SEL
MoV
MOVB

R3,.RMDAI

JSELECT UNIT

;STORE RMERZ IN INPUT BUFFER

R3,RMERZ2]

8 FOR S-A-0
#CLR,RMCS2(RO)
(R1),RMCS2(R0O)

;REG SEL & IS S-A-1

012760

805 111160

000040
000010

007744

010260

00001¢

MoV

he,RMERT(RO)

:LOAD RMER1

007750

010260

000006

MoV

RZ,RMDA(RO)

;LOAD RMDA

007754

010360

000034

MOV

R3.RMDC(RO)

;LOAD RMDC

007760

010360

000042

MOV

R3,RMERZ2(RO)

;LOAD RMERZ

007764

016037

000014

MOV

RMER1(RO),RMERTI

000010

001342

s CLEAR THE MASSBUS
sSELECT UNIT

;STORE RMER1

[N INPUT BUFFER

CZFk

0D
14:49

0S5-APR-78

atladl cdladt ot adl st sdladladtadtatlaltiadtattadliaiiadiadtialtictlaliadtaitaliadiadindialtiadtadlaltadtinitialiidiatattindialtadtialtalialtaliodtadt
adindtad

3140
31N
3142

30A(1052)

Caslatl
adl ast aat st

3138
3139

MACY11

(@]

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.PIN
05-~APR-78 14:38

3247
3248
3249

000006
001342

001334

104016

70%:

SEQ 0069

mov

RMDA(RO),RMDAI

:STORE RMDA IN INPUT BUFFER

BNE
CMP
BNE
ERROR

70%
R3,RMDAI
708
16

;REG SEL 8 IS S-A-0

(MpP

001334

R3,RMERTI]

CIR

CZR

010260

000032

MOV

RZ2,RMOF (RO)

;LOAD RMOF

010034

010260

000034

MOV

R2.RMDC (RO)

;LOAD RMDC

010040

010260

000042

MOV

R2.RMER2(RO)

sLOAD RMERZ2

010044

010360

000012

MOV

R3.RMDS(RD)

;LOAD RMDS

010050

010360

000014

MOV

RI.RMER1(RO)

;LOAD RMER1

010054

010360

000006

MOV

R3,.RMDA(RD)

sLOAD RMDA

010060

016037

000032

001360

MoV

RMOF
(RO) ,RMOF |

;STORE RMOF

IN INPUT BUFFER

010066

016037

00003¢

001362

MOV

RMDC(RO) ,RMDC |

;STORE RMDC

IN INPUT BUFFER

010074
010102
010110
010112
010120
010124
010126
010134
010140
010142
010144

016037
052737
001015
022737
020337
001007
052737
020337
001001

000042
161577

001370
001360

Mov
8IS

RMER2(RO) ,RMERZI
#XNUOF ,RMOF 1

176000
001362

001362

CMp

#XNUDC ,RMDCI

001567
001370

001370

BNE
BIS

80$
#XNUER2 ,RMER2!

BNE
FRROR

80$
17

SREGISTER SELECT 16 IS TESTED BY THE
A

010144
010146

000004
012737

000007

001226

010154
010156
010164
010172
010200
010206
010206

000240
012737
112737
012737
012737

000024
000001
010206
010206

001120
00113
001122
001124

012706

001100

DRIVE TYPE

SCOPE

N
N
N
N
N
N
N
N N
AN LN AN L

TEST

ARARt
i iRt
2R
20282020 2]

IST7:

17:

ILR TEST

ARl 2200002222022
22 0 2

JeTEST 7

L
A
A
AN AN Ll A

:REG SEL 8 IS S-A-1

Mov

#7,8TESTN

:+SET TEST NUMBER IN APT MAIL BOX

NOP
Mov
MOovB
MOV
Mov

#20.,8ICNT
#1,SERMAX
#77,SLPADR
#77,SLPERR

;20 ITERATIONS

mov

#STACK,SP

-ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

;LOAD THE STACK POINTER

Ll Lnd A

RI,.RMERZ2I

Lt A

80$:

RI.RMDCI

Ll L

CMpP

80%

L Lt U

CMpP

:STORE RMERZ IN INPUT BUFFER

Ul L

104017

BNE

;CLEAR THE MASSBUS
;SELECT UNIT

010030

000010

000040
000010

012760
111160

AN AN AN U

REG SEL 8 FOR S=-A-1
mov
#CLR,RMCS2(RO)
MovB
(R1) ,RMCS2(RO)

010016
010024

Lo U

JTEST

010012
010014
010016

016037
020337
001004
020337
001001

14:49
PAGE 69
REGISTER SELECT TEST

05-APR-78

NN NN

007772
010000
010004
010006

30A(1052)

Ut Ut Ul Ut U

3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3250
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246

MACY11

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38

3250
325
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
32N
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299

3300
3301
3302
3303
3304
3305

MACY11

010212
010216

013700
013701

001276
001456

010222
010230
010236
010240
010246
010250
010256
010260
010266
010270
010276
010304
010310
010316
010320
010324

016037
022737
001432
022737

000026
020024

001142
001142

024024

001142

020025

001142

024025

001142

012737
012737
010037
062737

020024
024024
001136
000026

001174
001176

000137

0214616

001426
022737
001422
022737
001416

104057

F
30A(1052)
05-~APR-78
14:49
17
DRIVE TYPE TEST

010324
010326

000004
012737

000010

001226

010334
010336
010344
010352
010360
010366
010366
010372
010376
010402
010410

000240
012737
112737
012737
012737

000024
000001
010366
010366

001120
001131
001122
001124

012706
013700
013701
012760

001100
001276
001456
000040
000010

010414
010422
010430
010432
010440
010444
010446

016037
042737
001006
012737
010037

000000
173777

111160

104060

004000
001136

AAAALASA

112737

;LOAD BAD ADDRESS

;DEVICE NOT AN RMO3

$EOSP

;GO TO NEXT DEVICE

222222202202

DEVICE
AR

AVAILABLE
R

TEST NUMBER

cONE

#710,8LPADR
#710,SLPERR

TSTQUE,. R

;R1

001142
001142

Mov
BIC

RMCS1(RO),$BDDAT
:STORE
# COVA,$BODAT
;CLEAR ALL BUT

001140

MoV
Mov

#OVA,SGDDAT

108:
AAL

000011

001226

000024
000001

001120
001131

AR AR R

IST11:

AR R

SCOPE

Mov

NOP

Mov
mov8

STACK POINTER

RO,$BDADR
60

:SETUP REG ADDRESS
;DEVICE NOT AVAILABLE

RMCS1
DVA
DVA SET

;BRANCH

AT $BDDAT

;SETUP EXPECTED

aRRiRtRl

RRRRRRRRRRRRd]]

RRRRRRRR]])

TEST
AR

#11,8TESTN

s;SET

#20.,81CNT

;20 ITERATIONS

#1,SERMAX

uuT

;CLEAR THE MASSBUS
;SELECT UNIT

108

SEARCH TIMEOUT
AR

IHE

= POINTER TO DEVICE

AR ARl

IN APT MAIL BOX

;RO = UNIBUS ADDRESS OF

#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)

ERROR ALLOWED

;LOAD

$BASE RO

ERROR

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

#STACK,SP

BNE

222022

;20 ITERATIONS

#1,SERMAX

Mov
MoV
MOV
MoV
move

000010

TEST

s:SET

#20.,8$1CNT

mov
MOvB
Mov
mov

0222002222222

AR ARttt
Rdd)

#10,STESTN

NOP

012737

RO,$BDADR

#RMDT,$BDADR

SCOPE
MOV

T10:

;RO = UNIBUS ADDRESS OF uuT
;R1 = POINTER TO DEVICE

#JOULPRT ,$THP1

JTEST

000004
012737
000240

RMDT(RO),SBDODAT ;STORE RMDT AT $BDDAT
#SNGPRT,$BODAT
:SING%E PORT RM03??
108
JYES!!
#DULPRT,$BDODAT
;DUAL PORT RM03??
108
JYES!!
#SNGPRT!BITO,$BODAT
:SINGLE PROT RMO? ?
108
;BRANCH [F SO
#OULPRT!BITO,SBODAT
;DUAL PORT RMO2 ?
108
;BRANCH IF SO
#SNGPRT,$TMPO
;LOAD ACCEPTABLE VALUES

TST10:

010446
010450
010456
010460
010466

Mov

ADD
ERROR
JMF

s*TEST

SEQ 0070

$BASE,RO
TSTQUE,R1

]
MOV
MoV

10%:

PAGE 70

Mov
Mov

Cmp
BEQ
CMP
BEQ
cmP
BEQ
CMP
B8fQ

001136

;ONE

TEST NUMBER

ERROR ALLOWED

IN APT MAIL BOX

BBDTS
NNIN NN NN NN NN NN NN NN WD WAN N

CIZRMKAO RM03/2 DSKLS PRT 2
CIRMKA.P1
05-APR-78 14:38

012737
0064777
005737
001375
004777

000144
170712
001524

010626
010634
010640
010646
010654
010656
010662

016037
010037
062737
042737
001404
005037

000014
001136
000014
157777

010664
010666

000430

010666
010674
010702
010706
010712
010714

012760
012737
004777
005737
001375
004777

041401
000144
170620
001524

010720
010726
010734
010736
010744
010746

016037
042737
001004
012737

000014
157777

001142
001142

020000

001140

001410
001436
001634
001406
001404
001402

= POINTER

TO DEVICE

Mov
mov
Mov

#0,RMDAO
#0,RMDCO
#EMT16,RMOFO

:SECTOR=0=TRACK
sCYLINDER=0
;16 BIT FORMAT

Mov
mov

# C1+1,RMWCO
#YD!GO,RMCS10

¢WORD COUNT
;WRITE DATA COMMAND

MOV

#BUFFER _RMBAD

;STARTING BUFFER ADDRESS

;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENAU _ED USING SUBROUTINE
JSR

PC,ENBSCH

ERROR

000462

104021

;R1

;LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS

104000

001524

108:
sSTART

20$:

170702

B8R
THE

mMov
JSR

108

;G0 TO 108 IF

508

;SLO

;RETURN HERE

CLOCK AND WAIT FOR

#100. ,WATCH
PC.a8CLOCK

TST

WATCH

JSR

PC.,aSTOP

BNE

NOT

SET

;SET WATCHDOG TIMER VALUE
s START THE CLOCK

.STOP THE CLOCK

(SEARCH

001142

Mov

RMER1(RO) ,$BDDAT

001136
001142

ADD
8IC

#RMER1 ,$BDADR
# COPI,$BDDAT

CLR
ERROR

$GDDAT
20

50%

mMov

BEC

MOV
Mov
JSR

40%:

TST

;OP]

308

;BRANCH [F NO ERROR
.OP1

;DISABLED

AT SBDDAT

SET W/SEARCH TIMEOUT

; SKIP
THEN WAIT

100 MS

WATCH

40$
PC,aSTOP

:STOP THE

(SEARCH TIMEQUT

CLOCK

IS ENABLED)

MOV

RMER1(RO) ,$BDDAT

:STORE RMER1 AT S$BDDAT

BNE
Mmov
ERROR

50%
#0P1,$GDDAT
21

;OP]1 NOT SET BY SEARCH TIMEOQUT

BIC

;STORE RMER1

;SET UP FOR ERROR MSG

SHOULD NOW BE SET

50%:

DISABLED)

#OMD !MUR!DBEN'MOC ,RMMR1(RO)
; LOAD RMMR1
#100. ,WATCH
;SET WATCHDOG TIMER VALUE
PC,8CLOCK
;START THE CLOCK

BNE
JSR

170610

RO,$BDADR

30%:
JENABLE SEARCH TIMEOUT,

000024
001524

TIMEOUT

001140

ERROR

REST PF TEST

100 MS

208

;VERIFY THAT OPI

NO ERROR

# COPI,$BDDAT

104020

TSTQUE R

STACK POINTER

010602
010610
010614
010620
010622

Mov

THE

;RO = UNIBUS ADDRESS OF uuT

G AP AL NS A

023326

;LOAD

$BASE RO

2 ap 2l 2D b AR 2 A

004737
000402

#STACK,SP

AR AR 2h A AR A 2P

010570
010574
010576
010600
010602

MOV

mov

;LOAD LCOP ON TEST ADDRESS
;LOAD LOOP ON SRROR ADDRESS

000000
000000
0100G0
054062
177777
000061

#711,$LPADR
#T11,SLPERR

bl ol r ak al

012737
012737
012737
012737
012737
012737

mov
ROV

e a

010524
010532
010540
010546
010554
010562

SEARCH TIMEOUT TEST

CZRI
CZR!

A O

001100
001276
001456

SeEQ 0071

PAGE 71

012706
013700
013701

001122
001124

14:49

A A N

010510
010510

05-APR-78

012737
012737

3357
3358
3359
3360
3361

010474
010502
010510
010510
010514
010520

30A(1052)

3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356

MACY11

ARl

AR ARl
AR R
R

(IZRMKAQ RMO3/2 DSKLS PRT 2
CZRAKA PN
05-APR-78 14:38

CZRMKAO RMO3/2 DSKLS PRT 2
CZRAMKA P11
05-APR-78 14:38

30A(1052)
05-APR-78
14:49
112
SET DTE TEST
;*TEST

PAGE

SEQ 0072

SET DTE TEST

coktRANERRATALIREASRRCACAERRRACRRNRRNCERRCORRRORRARROARRNOAROARCRARORARY

000012
000024
000001
011010
011010

012706
013700
013701
010037
062737
005037

001100
001276
001456
001136

011042

012760
111160

000040
000010

011054
011062
011070
011072
011074

016037
042737
001402

000014
167777

001120
001131
001122
001124

1ST12:

SCOPE

Hgg
N

001136

#12,8TESTN

Mov
Move
MOV
Mov

#20. ,$1CNT
#1,SERMAX
#T712,8LPADR
#T12,8LPERR

Mov

#STACK,SP

;:SET

TEST NUMBER

IN APT MAIL BOX

;20 ITERATIONS
cONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS
;LOAD

MoV
Mov
MoV
ADD
CLR

$BASE ,RO
TSTQUE ,R1
RO,$BDADR
#RMERT ,$BDADR
$GDDAT

Mov

#CLR,RMCS2(RO)

MoV

RMER1(RO) ,$BDDAT

BEQ
ERROR
BR

108
31
50%

THE

STACK POINTER

;RO = UNIBUS ADDRESS OF uut
;R1 = POINTER TO DEVICE
;SETUP ERROR MSG

INITILAIZE AND VERIFY THAT DRIVE TIMING ERROR IS RESET
Mmove
BIC

104031

000517

%357

MAINTENANCE

COTE,$BODAT

INDEX

PULSE

AND

;CLEAR

THE MASSBUS

;SELECT UNIT

;STORE RMER1

;BRANCH IF DTE=0
s CANT RESET DTE
;SKIP REST OF TEST
VERIFY

DTE

REMAINS

#OMD ,RMMR1 (RO)

011104

012760

000005

000024

Mov

#DMD !M1 ,RMMR1(RO)

;LOAD RMMR1

WWWRIN
=
AROOCON

016037
042737
001402
104000
000500

000014
167777

001142
001142

Mov
BIC

RMER1(RO),$BODAT
# CDTE,SBODAT

;STORE RMER1

NOWNNE
W
NACONNES

012737
012737
012737
012737
012737
012737

000000
000005
010000
054062

011200
011204
011206
011210

004737
000402
104000
000451

023326

PC,ENBSCH

X
W

JEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUSROUTINE
JSR

R
W

#BUFFER ,RMBAO
# C1+1,RMICO
#WD!GO,RMCS10

BR
308
ERROR
BR
50%
;WITH SEARCH ENABLED,
JSEARCH FLOP.
:
308

R
A

#0,RMDAO
#5,RMDCO
#FAT16,RNOFO

;G0 TO 30% IF NO ERROR
:RETURN HERE IF ERROR

SET AND RESET SECTOR PULSE TO SET ENABLE

MOV
mov
Mov
Mov
Mov
Mov

SEXECUTE DUMMY DATA COMMAND TO ENABLE SEARCH

SET WHEN SECTOR

:COMPARE SHOULD BE RESET

000061

;DTE

508

177777

001410
001436
001434
001406
001404
001402

B8R

20%

AT S$BDDAT

iR X

208

ERROR

;LOAD RMMR1

amd
el

amd cmd

i
el

—
b
—

ol cmd

—

cmld

-1 111X
=]
—d oud b b b b

b
ad
b
b
ad

BEQ

Mov

000024

RESET

000001

012760

011076

011212

AT S$BDDAT

011076

(R1) ,RMCS2(RO)

011050

000014
001140

001226

000004
012737
000240
012737
112737
012737
012737

010746
010750
010756
010760
010766
010774
011002
011010
011010
011014
011020
011024
011030
011036

Y- Y-- - — ek el —d o b

3362
3363
3364
3365
3366
3367
3368
3369
3370
33N
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417

1
MACY

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38

3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
347

3472
3473

MACY11

30A(1052)
112

O05-APR-78

SEY DTE

TEST

I
14:49

6
PAGE 73

SEQ 0073

011212

012760

051441

000024

Mov

#0OMD :MUR!DBEN'MOC'DTO!MS,RMMR1 (RO)

011220

012760

051401

000024

Mov

#OMD !MUR'DBEN!MOC!DTO,RMMR1(R0O)

;LOAD RMMR1

;SET SECTOR PULSE AND VERIFY DTE DOES NOT SET

PUTMR1

#DMD'!MUR'DBEN'!MOC!DTO!MS

MoV
BIC
BEQ

RMER1 (RO) , SBDDAT
# CDTE,SBODAT
408

PUTMR1

#DMD'MUR'DBEN'MOC!'!DTO

011226
011234
011242
011244
011246
011250

016037
042737
001402

011250

012760

051403

000024

MOV

#DMD ' MUR' DBEN!MOC'DTO'MSC,RMMRT (RO)

:LOAD

011256

012760

051443

000024

MOV

#DMD 'MUR' DBEN'MOC'DTO!MSC
'MS,RMMRT (RO)

;LOAD RMMR1

011264

012760

051403

000024

MoV

#DMD ' MUR' DBEN !MOC'DTO'MSC,RMMR1 (RO)

;LOAD RMMR1

011272

012760

051441

000024

MOV

#DMD ' MUR!DBEN'MOC !DTO'MS ,RMMRT (RO)

:LOAD

011300

012760

051401

000024

MoV

#DMD ' MUR!DBEN'MOC!DTO,RMMR1
(RO)

011306

016037
042737
001004
012737

000014
167777

001142
001142

MOV
BIC

RMER1(RO) , $BODAT
# CDTE,SBODAT

010000

001142

MOV

¥DTE,SBODAT

011314

011322
011324
011332

000014
167777

001142
001142

104023

001432

w05

ERROR
8EQ

23
508

:STORE RMER1

AT SBDDAT

:DTE SET WHEN SECTOR
*COMPARE SHOULD BE RESET

:FORCE SECTOR COMPARE

104024

011334

;SET SECTOR PULSE AND VERIFY DTE SETS

BNE

ERROR

AAAAE

AR AR

;*TEST 13

RMMR1

;LOAD RMMR1

:STORE RMER1

AT $BDDAT

508

:COULD NOT SET DTE WITH
;SECTOR COMPARE SET

508%:
A

RMMR1

ARARARAl

ARt

RARRtRRRR

RRdRRRRRRRRd

FORMAT CHANGE TEST

AR08
2200222228222 222 2202282222

011334
011336
011344
011346
011354
011362
011370

011376
011376
011402
011406
011412
011416

000004
012737
000240
012737
112737
012737
012737

000024
000001
011376
011376

012706
013700
013723
012702

001100¢
001276
001456
011752

000013

001226

15113: SCOPE
Hgg

001120
0011%1
001722
051124

#13,8TESTN

::SET

MOV

#20.,81CNT

;20 ITERATIONS

Mov

#T13,SLPADR

Mmovs
T13:

Mmov
MOV

108

MoV
mov
mov

011615
011424

012760

111160

000040
000010

000010

#1,SERMAX

#T13,8LPERR

TEST NUMBER

IN APT MAIL BOX

-ONE ERROR ALLOWED

;LOAD LOOP ON TEST ADDRESS

;LOAD LOOP ON ERROR ADDRESS

#STACK,SP

$BASE RO
TSTQUE ,R1
#508,R2

;LOAD THE

STACK POINTER

;RO = UNIBUS ADDRESS OF uuTt
.R1 = POINTER TO DEVICE
sR2=TABLE POINTER

R RPN

E R R RN RE A AR

RERENRES

sINITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR FORMAT CHANGE
Mov
Move

#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)

;CLEAR THE MASSBUS
;SELECT UNIT

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38

3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529

MACY11

J
30A(1052)
OS5S-APR-78
14:49
T3
FORMAT CHANGE TEST

6
PAGE 74

SEQ 0074

011430

011260

000032

011434

012760

000001

000024

011442

012760

000005

000024

011450
011456
011464
011472
011500
011506

012737
012737
016237
012737
012737
012737

000000
000005
000002
054062

001410

011514
011520
011522
011524
011526

004737
000402

023326

011526

012760

051403

000024

Mov

#DMD ! MUR!DBEN'!MOC'!DTO!MSC,RMMR1
(RO)

;LOAD RMMR1

011534

012760

051443

00002¢

Mov

#OMD !MUR'!DBEN'MOC!DTO!MSC!MS
,RMMR1(RO)

LOAD

011542

012760

051403

000024

Mov

#OMD !MUR!DBEN'MOC!DTO!MSC,RMMR1 (RO)

sLOAD RMMR1

011550

012760

051401

000024

mov

#OMD !MUR!DBEN'!MOC!DTO,RMMRT(RO)

011556
011564
011572
011574
011600
011606
011612
011616
011624
011626
011630

016037
042737
001416
010037
062737
005037
011237

000014
167777

001142
001142

Mov
BIC
BEQ
MOV
ADD
CLR
MoV
MOV

RMER1(RO),$BDDAT
:STORE RMER1
# CDTE,S$BDDAT
30%
RO,$BDADR
;SETUP ERROR MESSAGE
#RMER1,$BDADR
$GDDAT
(R2),$TMPO
2(R2),$TMP1

60$

011630

012760

051405

000024

011636

012760

051403

011644

012760

011652
011660

177777
000061

001436
001434
001406

001404
001402

104025
000454

(R2) ,RMOF (RO)

;LOAD RMOF

mov

#DMD ,RMMR1 (RO)

;LOAD RMMR1

Mmov
#OMD ! M ,RMMR1 (RO)
;LOAD RMMAR1
;SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT
MOV
MoV
MoV

#0,RMDAO
#5,RMDCO
2(R2) ,RMOFO

MOV
MoV
MOV

#BUFFER,RMBAO
# C1+1,RMWCO
#WD!GO,RMCS10

JEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR

PC,ENBSCH

104000
000515

016237

Mov

ERROR

20%
60%

;60 TO 208 IF NO ERROR
;RETURN HERE

208:
;FORMAT CHANGE FLOP SHOULD BE SET - VERIFY BY
;DRIVE TIMING ERROR WHICH SHOULD NOT SET.

001136
000014
001140
001174
000002

001136

001176

TRYING TO FORCE A

sVERIFY THAT DRIVE TIMING ERROR DIDNT SET

ERROR

30%:
;CLEAR THE

ERROR

RMMR1

;LOAD RMMR1

AT $BDDAT

DTE SET WHEN THERE WAS

:A FORMAT CHANGE

FORMAT CHANGE FLOP W/INDEX PuULSE

Mov

#OMD !MUR'DBEN'MOC!DTO!MI ,RMMR1T(RO)

;LOAD RMMR1

000024

MoV

#OMD !MUR'DBEN'MOC!DTO!MSC,RMMR1
(RO)

;LOAD RMMR1

051443

000024

Mov

#0OMD !MUR'DBEN!MOC'!DTO!MSC!MS,RMMRT(RO)

;LOAD RMMRI1

0°2760

051403

000024

MOV

#OMD !MUR'DBEN!MOC!DTO!MSC,RMMRY
(RO)

;LOAD RMMRI1

012760

051441

000024

Mov

#DMD !MUR'DBEN!MOC!DTO!MS
,RMMR1 (RO)

;LOAD RMMR1

;ENABLE SEARCH AND FORCE SECTOR COMPARE

sSET DTE W/ANOTHER SECTOR PULSE - VERIFY DTE

IS SET

CZRMKAO RMO03/2 DSKLS PRT 2
CZRMKA. P
05~APR-78 14:38
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585

MACY11

K
30A(1052)
05-APR-78
14:49
113
FORMAT CHANGE TEST

6
PAGE

SEQ 0075

011666

012760

051401

000024

Mov

#DMD !MUR'!DBEN'!MOC!DTO,RMMRI{RO)

011674
011702
011710
011712
011716
011724
011732
011734
011736

016037
042737
001012
010037
062737
012737
104027
000411

000014
167777

001142
001142

001136
000014
010000

001136

Mov
BIC
BNE
MOV
ADD

RMER1(RO) ,$BDDAT
:STORE RMER1 AT S$BDDAT
# CDTE,$BDDAT
408
RO,$BDADR
;SETUP ERROR MESSAGE
#RMER1,$BDADR

ERROR
BR

27
60%

001140

MOV

403

#DTE,SGDDAT

MAARAALARA AR

011736
011742
011744
011750

022702
001006
062702
000622

011752
011754
011756
011760

010000
000000
010000

;LOAD RMMR1

;COULD NOT SET DTE
ARARttt
Rttt
RalRtald)

:DO TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION
#50%,R2
CHP
BNE
60%
:BRANCH IF DONE TEST
#2,R2
sMOVE POINTER
ADD
108
;REPEAT TEST
BR

011752
000002

50%:

.WORD

.WORD
.WORD

:
608
MR

JeTEST

FEMT16

PROM

END OF TEST

STROBE

(HANGE

:18-16 FORMAT CHANGE

FFATI6

:16-18 FORMAT

RRRRRRRRRRRR

Rttt RRRRRRRRRd)

)

TEST

AR RSS20
RRRR2 2222222222222 82 2]

011760
011762
011770
011772
012000
012006
012014
012022
012022
012026
012032
012036
012044
012050
012054

000004
012737
000240
012737
112737
012737
012737

012706
013700
013701
012760

000014

001226

000024
000001
012022
012022

001120
001131
001122
001124

TST14

T14:

SCOPE

MoV
NOP
MOV
MOovB
MOV
Mov

#1464 ,$TESTN

::SET TEST NUMBER IN APT MAIL BOX

#20.,8ICNT

;20 ITERATIONS

#1,SERMAX
#7114 ,SLPADR
#714 ,SLPERR

-ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

010037
062737

001100
001276
001456
000040
000010
001136
000024

012062
012070
012074

012760
012702

000001
000021

000024

012074

012760

004001

000024

MOV

#DMD ! MCLK ,RMMR1 (RO)

012102

012760

000001

000024

MOV

#0MD, .MMR1(RO)

012110
012116
012124
012126

016037
042737
001406
005302

000024
177737

001142
001142

MoV

RMMR1(RO) ,$BDDAT
zsCHC,$BDDAT

111160

000010
001136

Mov
Mov
Mov
MOV
MOvB
Mov
ADD

#STACK,SP

;LOAD

TSTQUE ,RY
#CLR,RMCS2(RO)
(R1) ,RRCS2(RO)
RO,$BDADR

:R1 = POINTER TO DEVICE
;CLEAR THE MASSBUS
;SELECT UNIT
;SETUP ERROR MESSAGE

Mov
Mov

#DMD,RMMR1(RO)
#17.,R2

$BASE RO

#RMMR1,$BDADR

THE

STACK

POINTER

;RO = UNIBUS ADDRESS OF uuT

sSET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE

5%:

BIC
BEQ
DEC

;LOAD RMMR1
;R2=MAXIMUM # CLOCK PULSES

;LOAD RMMR1

;STORE

RMMR1

S$BDDAT

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PIN
05-APR-78 14:38

MACYT

012130
012132
012136
012140
012142
012146

001361
005037
000501
012702

000021

012146

012760

004001

012154

012760

012162
012170
012176
012200
012202
012204
012212
012214
012216

016037
042737
001007
005302
001361
012737

012216
012222

012702

000003

012222

012760

004001

000024

012230

012760

000001

012236
012244
012252

016037
042737
001005

012254
012262
012264
012266
012270

012737

3624
3625

012272
012276

012702

000010

3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641

012276

012760

004001

012304

012760

012312

016037
042737
001404
005037
104033
000402
005302
001355

3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612

3613

3614
3615
3616
3617
3618
3619
3620
3621
3622
3623

3626

012320
012326
012330
012334
012336
012340
012342
012344

104000

104030

T14

O05-APR-78

PROM STROBE

14:49

TEST

PAGE 76

SEQ 0076

BNE
CLR

5%
$GODAT

B8R

60$

000024

MOV

#0OMD 'MCLK,RMMR1 (RO)

000001

000024

MOV

#0OMD ,RMMRT(RO)

000024
177737

001142
001142

000040

001140

MOV
BIC
BNE
DEC
BNE

RMMR1(RO) ,$8DDAT
;STORE RMMR1 AT S$BDDAT
# CWC,$BDDAT
20%
JEXIT LOOP WHEN PROM STROBE ON
R2
108

ERROR
BR

30
60%

;CANT SET PROM STROBE

MOV

#0MD !MCLK ,RMMR1 (RO)

;LOAD RMMR1

000024

MOV

#OMD ,RMMRT1(RO)

000024
177737

001142
001142

mov
BIC
BNE

RMMR1(RO) ,$8DDAT
# CWC,$BDDAT

000040

001140

MOV

#WC,SGDDAT

MOV

#8..R2

000024

MOV

#DMD !MCLK ,RMMR1 (RO)

000001

000024

MOV

#0OMD ,RMMRT1(RO)

000024

001142
001142

MOV
BIC

RMMR1(RO),$BDDAT
# CWC,$BDDAT

CLR

$GDDAT

001140

ERROR

6%:

10%:

000453

104032
000427
005302

30A(1052)

MOV

CLEAR PROM STROBE

#17..R2

;LOAD RMMR1

#WC,SGDDAT

208:
JVERIFY PROM STROBE IS ON FOR 3 BIT CLOCKS
MOV
#3..R2
25%:

001354

177737

MoV

:CAN'T

308

ERROR
32
BR
608
308:
DEC
RZ
BNE
25%
JVERIFY PROM STROBE IS OFFf
40%:

BEQ

001140
50%:

608$:

ERROR
BR
DEC
BNE

50%

33
608
R2
408

;LOAD RMMR1

;STORE RMMR1

AT SBDDAT

;BRANCH IF PROM STORBE DID NOT
;DROP EARLY

FOR 8 BIT CLOCKS

;LOAD RMMR1

;STORE RMMR1

AT SBDDAT

;BRANCH [F PROM STROBE
;01D NOT

SET EARLY

coREAENRREATRRNECEOLARRENREALENCSCERIRCETRIORROLOERNRANRCERNAASOSROASRARBONROETY

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
5684
3685
3686
3687
3688
3689
3690
3691
3692
3693

3694
3695
3696
3697

MACY11

;*TEST 15
A

012344
012346
012354
012356
012364
012372
012400
012406
01240¢
012412
012416

000004
012737
000240
012737
112737
012737
012737

000015

001226

000024
000001
012406
01240C6

001120

012706
013700
013701

001100
001276
001456

012422
012430
012436
012444
012452
012460
012466
012474

012737
012737
012737

000000
000005
010000
054062
177777
000061
000040
000010

012500
012504
012506
012510
C12512

004737
000402
104000
000562

023326

012512
012516
012520
012522

004737
000402

024206

012737
012737
012737
012760
111160

001131
001122
001124

001410

SEQ 0077

30A(1052)
O5-APR-78
14:49
PAGE 77
115
SYNC WORD COUNT INHIBIT TEST

SYNC WORD COUNT INHIBIT TEST

2420

7ST15:

SCOPE

ARl

2222020020022

200

22222022 ]]

"8¥

#15,8TESTN

;SET TEST NUMBER IN APT MAIL BOX

MOV

#20.,81CNT

:20 ITERATIONS

MOV
MoV
MOV

#STACK,SP
$BASE ,RO
TSTQUE ,R1

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS OF UUT
;R1 = POINTER TO DEVICE

MOV

#0,RMDAO

:SECTOR=0,

MovB
MOV
Mov

#1,SERMAX
#715,8LPADR
#115,8LPERR

;ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

sSETUP KEGISTER OUTPUT BUFFER FOR SUBROUTINES

001436
001434
001406
001404
001402
000010

Mov
Mov
mov
Mov
Mov
Mov
Mov8

#5,RADCO
JFNT16,RNOFO
#BUFFER ,RMBAD
# C1+1,RMUCO
#WD!GO,RMCS10
#CLR,RMCS2(RO)
‘R1) ,RMCS2(RO)

TRACK=0

;CYLINDER=0
:16 BIT FORMAT
;STARTING BUFFER ADDRESS
;WORD COUNT
;WRITE DATA COMMAND
;CLEAR THE MASSBUS
;SELECT UNIT

;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR

BR
108

ERROR

PC,ENBSCH

108

;G0 TO 108 IF NO ERROR

1208

:SKIP IF

sRETURN HERE

FAILURE

ERROR

;FORCE SECTOR COMPARE USING SUBROUTINE
JSR

BR
ERROR
8R

104000

000555

AAAAR AR

PC,SCTCHP

20%

1208
AR

;60 TO 208 IF NO ERROR
;sRETURN HERE IF ERROR

A ALl
R0
R
RRRRE ]

;CAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET

:STEP THE SEQUENCER TO LOCATION 10(10) WHILE CHECKING '‘PLFS''
208:
Mov
#0,R2
;R2=SEQUENCER ADDRESS
:
308
JPULSE MAINTENANCE CLOCK UNTIL PROM STROBE SETS

012524
012530

012702

000000

012530

012760

055401

000024

012536

012760

051401

000024

012544
012550
012554
012556

016003
032703
001765
005202

000024
000040

012560
012564
012572

010337
042737
001413

Mov

;SEE

#OMD 'MUR'DBEN'MOC'DTO'MCLK,RMMRT (RO)

MOV
#DMD !MUR'DBEN!MOC!DTO,RMMR1(RO)
IF PROM STROBE IS SET
;STORE RMMR1

;LOAD RMMR1

MoV
BIT
8EQ
INC

RMMR1(RO) ,R3
#WC,R3
308
R2

AT R3

s ISSUE NEXT BIT CLOCK
: INCREMENT SEQUENCER ADDRESS

Mov
BIC
BEQ

R3,$BDDAT
# CPLFS,$BDDAT
508

;BRANCH [F PLFS IS ZERO

;CHECK "'LOOKING FOR SYNC'' - SHOULD BE ZERO UNTIL LOCATION 11
001142

CIZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05~APR-78 14:38

MACY11

3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710

012574
012600
012604
012612
012616
012620
012622

005037
010037
062737
010237
104034
000516

001140
001136
000024
001174

012622
012626

022702
001414

000012

3711012630

012760

055401

000024

3713
3714
315
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728

012636

012760

051401

000024

012644
012650
012654
012656
012660

016003
032703
001365
000724

000024
000040

3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750

012746
012752

012702

000003

012752

012760

055401

3752
3753

012760
012766

012760
005302

051401

CLR
MOV
ADD
MOV

001136

ERROR
BR

$GDDAT
RO, $BDADR
#RMMRT, SBDADR
R2.$TMPO

34
1208

SEQ 0078

:PLFS SHOULD NOT BE SET
;SKIP REST OF TEST

SEXIT LOOP IF SEQUENCER NOW AT LOCATION 10

CMP
#10. ,R2
.
BEQ
708
gszse MAINTENANCE CLOCK UNTIL PROM STROBE RESETS

012630

MOV

:SEE

#OMD ' MUR'DBEN'MOC !DTO'MCLK,RMMRT(RO)

MOV
#DMD ! MUR'DBEN'MOC 'DTO,RMMRT (RO)
IF PROM STROBE 1S RESET

205

MOV
BIT
BNE
BR

HAAAE AL SRR

012660

30A(1052)
05-APR-78
14:49
PAGE 78
T15
SYNC WORD COUNT INHIBIT TEST

RMMR1(R0O),R3
#C,R3
608
308
ARl

ARl

;STORE RMMR1

:LOAD RMMRI

;LOAD RMMR1

AT R3

;60 STEP SEQUENCER TO NEXT LOC

iRttt

dddd

;THE NEXT PROM STROBE SHOULD SET °'PLFS’'' AT LOCATION 11(10) OF THE
:DATA TIMING SEQUENCER.

012702

000020

012664

012760

055401

012672
012700
012702

012760
005302
001370

051401

012704
012712
012720
012722
012730
012734
012742
012744
012746

016037
0462737
001012
012737
010037
062737
104035
000444

000024
175777

001142
001142

002000
001136
000024

001140

MoV

#16..R2

000024

MOV

#OMD !MUR'DBEN'MOC'DTO'MCLK ,RMMR1 (RO)

000024

HgV

lgHD!HUR!DBEN!HOC!DTO.RHHR1(RO)

ééiSUE

012664

;R2=NUMBER OF

16 BIT CLOCKS TO GET NEXT PROM STROBE

DEC

BIT

CLOCKS

;LOAD RMMR1

BNE

80$%

MOV
BIC
BNE
MOV
MOV

RMMR1(RO) ,SBDDAT
:STORE RMMR1 AT S$SBDDAT
# CPLFS,$BDDAT
90%
:BRANCH IF PLFS IS SET
#PLFS,SGDDAT
;SETUP ERROR MESSAGE
RO,$BDADR

JVERIFY THAT ''PLFS'' IS NOW SETY

001136
90$:

ADD
ERROR
BR

#RMMR1,$BDADR
35
1208

;U'PLFS' DID NOT SET
;SKIP REST OF TEST

;ISSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE
MOV

#3,R2

000024

MOV

#OMD'MUR'DBEN'MOC'DTO'MCLK ,RMMR1(RO)

000024

MoV

lgHD!HUR!DBFN!HOC!DTO,RHHRI(RO)

95%:

DEC

:LOAD RMMR1

sLOAD RMMR1

CZRM
CZRM
44
&4
44
44
b4
44
44
44
46
46
4
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
44
b4
44
44
44
46
44
44
44
44
44
44
44
44
44

44
64
&4
64
44
4
44

:PROR STROBE
1008
mov

AR AR

SRR

012772
012776

012702

012776

012760

055401

000024

mov

#OMD ! MUR'DBEN'MOC!DTO!MCLK,RMMR1 (RO)

013004

012760

051401

000024

Mov

#ORD !MUR'!DBEN!MOC!DTO,RMMRT(RO)

013012
013016
013022
013024
013030
013034
013040
013046
013050
013052
01305¢4

016003
042703
001413
005037
010337
010037
062737

000024
177737

Mov

001140
001142
001136
000024

CLR

000040

RRR

#32..R2

;R2=NUMBER OF BIT CLOCKS

;PULSE BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET

013056

RO,$BDADR
SRMMR1,$BDADR
?303

DEC
BNE

R2
100%

sPROM STRUBE WHILE LOOKING FOR SYNC
;CONTINUE FOR 32 BIT C.0CKS

sEND OF

TEST

SYNC DETECTION TEST

J*TEST 16

]
T

MoV
ADD
s:ROR

IS 0

sSETUP ERROR MESSAGE

1208:
R

;BRANCH IF PROM STROBE

$GDDAT

R3,$BDDAY

:STORE RMMRT AT R3

ol o

Mov

;LOAD RMMR1

1108:

# CWC,R3
1108

sLOAD RMMR1

104036
000402
005302
001350

001136

RMMR1(RO) ,R3

8iIC
BEQ

~N~N

FURTHER BIT CLOCKS SHOULD NOT SET

AR R

;WITH "LOOKING FOR SYNC SET,

(o
X an ]

I :
95%

BNE
MAAALAAAAAAAAAR

SEQ 0079

SYNC WORD COUNT INMIBIT TEST

001370

7
PAGE 79

T15

8
14:49

05~APR-78

THE

STACK POINTER

;RO = UNIBUS ADDRESS OF uuT
;R1 = POINTER TO DEVICE

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES
mov
Mov
Mov

#0,RRDAO
#5,RADCO
#FAT16,RMOFO

;SECTOR 0,TRACK 0
sCYLINDER 5
;16 BIT MODE

mov

#RD!GO,RRCS10

;READ DATA COMMAND

Mov
Mov

#BUFFER ,RMBAO
# C1+1,RMWCO

;BUFFER ADDRESS
;CORD COUNT

SEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR

PC,ENBSCH

ERROR
BR

1008

BR
:
108

108

;GO TO 108 IF NO ERROR
;RETURN HERE

JFORCE SECTOR COMPARE USING SUBROUTINE
JSR

PC,SCTCHP

024206

;LOAD

004737

001410
001436
001434
001406
001404
001402

$BASE RO
TSTQUE ,R1

ERROR

013212

#STACK,SP

Mov
MoV

;20 ITERATIONS
ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

023326

mov

IN APT MAIL BOX

004737
000402
104000
000542

00007

#20. ,81CNT
#1,SERMAX
#716,8LPADR
#T16,SLPERR

TEST NUMBER

013200
013204
013206
013210
013212

177777

Mov
move
MoV
mov

:SET

000000
000005
010000
054062

#16,$TESTN

012737
012737
012737
012737
012737
012737

001120
001131
001122
001124

SCOPE

:gg

013134
013142
013150
013156
013164
013172

000024
000001
013120
013120

TST16:

001100
001276
001456

001226

012706
013700
013701

000016

000004
012737
000240
012737
112737
012737
012737

JoNRARNKRRRNARANERCECEOERARRNERNANARANCANRNANONRANANARANOAANAOAORANNORES

013056
013060
013066
013070
013076
013104
013112
013120
013120
013124
013130

3805
3806
3807
3808
3809

012770

30A(1052)

3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3TN
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804

MACY11

CZRMKAQ RM03/2 DSKLS PRT 2
CIRMKA.PIN
05-APR-78 14:38

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38

3836
3837
3838

3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852

3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865

013216
013220
013222
013224

000402

013224
013230
013232
013234
013236

004737
000402

30A(1052)
T16

104000

000535

20$:

OS5-APR-78

c
14:49

SYNC DETECTION TEST

BR
ERROR
BR

7
PAGE 80

208

SEQ 0080

;60 TO 208 IF NO ERROR
sRETURN HERE IF ERROR

1008

sSET "'LOOKING FOR SYNC'' USING SUBROUTINE

024314

JSR

PC.SETLFS

ERROR
BR

1008

104000

000530

30%:

308

;CLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED
;(USING PROM STORBE AS INDICATION)
013236
013242
013246
013254

012702
010037
062737
005037

000020
001136
000024
001140

013260
013266

012760

053401

000024

013266

012760

057401

013274

012760

013302
013310
013316
013320
013326
013330
013332
013332
013334
013336

016037
042737
001405
012737
104037
000472
005302
001354
012702

MoV
Mov
ADD
CLR

#16.,R2
RO,SBDADR
#RMMR1,$BDADR
$GDDAT

MOV

#MRIAAA'MRD ,RMMR1(R0D)

000024

MOV

#MRIAAA'MRD 'MCLK,RMMRT (RO)

053401

000024

MOV

#MRIAAA'MRD ,RMMR1 (RO)

;LOAD RMMR1

000024

177737

001142
001142

001174

ERROR

RMMR1(RO) ,$BDDAT
# CWC,SBODAT
5S0%
£177777.978P0
37

:STORE RMMR1

177777

MoV
8IC
BEQ
MoV

DEC
BNE
MOV

R2
408
#16..R2

001136

40%:

50%:

000020

sNUMBER OF ONE BITS
:SETUP ERROR MESSAGE

;LOAD RMMR1
:LOAD RMMR1

AT S$SBDDAT

100%

JREPEATYT FOR 16 BITS
;NUMBER OF

ZERO BITS

CoRNRRAARNCATERRIRRISARRCARRCEAACRLERIERRROIRCRRARRARANRRNERARRNRRARNRASGSY

éé%OCK ALL ZERO SYNC

013342

PATTERN AND VERIFY

SYNC

IS NOT DETECTED

013342

012760

055401

000024

Mov

#MRT1AAA!MCLK,RMMR1(RO)

;LOAD RMMR

013350

012760

051401

000024

Mov

#MR1AAA ,RMMRT(RO)

:LOAD RMMR1

013356
013364
013372
013374
013400
013402
013404
013404
013406
013410
013414

016037
042737
001404
005037
104037
000445

000024
177737

001142
001142

MOV
BIC
BEQ
CLR

RMMR1(RO) ,$BDDAT
# CWC,$BODAT
sMAKE
708
$TMPO

37
100%

sSYNC DETECTED W/ALL 0'S PATTERN
;SKIP IF FAILURE

DEC
BNE
MOV
Mov

R2
60%
#32.,R2
#000031,R3

sREPEAT FOR 16 BITS

005302
001355
012702
012703

001174

208

000040
000031

ERROR
BR

. STORE RMMR1 AT SBDDAT
SURE SYNC NOT DETECTED

:R2=NUMBER OF BITS
;R3=SYNC PATTERN FOR LEFT

SHIFT

[ LR R W W R R R R W R R R W P R R P R R P ¥ R F R F F F

3810
381N
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835

MACY11

CZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
— 3892
3893
3894
38¢5
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921

MACY11

30A(1052)
T16

OS5-APR-78

0D
14:49

SYNC DETECTION TEST

MPRAAAARAA AR

7
PAGE 81

AR AL

SEaQ 0081

ARl

dsl

ittt

ltistldd

;CLOCK THE BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS
:DETECTED
80%:
MoV
#MRTAAA'RCLK,RMMRI1O
;GENERATE VALUE OF RMMR1

013420
013426
013430
013432
013434
013442

012737
000241
006003
103003
052737

055401

002000

001426

013442
013450

013760
042737

001426
004000

000024
001426

81C

#MCLK,RMMR10

RMMRI10,RMMRT (RO)

;LOAD RMMR1

013456

013760

001426

000024

mov

RMMR10,RMMR1(RO)

;LOAD RMMR1

013464
013472
013500
013502
013504
013506
013514
013516

016037

000024
177737

001142
001142

000040

001140

MoV
BIC
BNE
DEC
BNE

RMMRY (RO) ,$BDDAT
;STORE RMMR1 AT S$BDDAT
# CWC,SBODAT
100%
;BRANCH IF PROM STROBE IS SET
R2
;CONTINME FOR 16 BIT CLOCKS
80%

ERROR

042737

001006
005302
001345
012737
104040

001426

cLc
ROR

;CLEAR THE CARR
JSHIFY RIGHT

BIS

#MRD,RMMR10

JSET MRD IF

B8CC
90$:

90%

MoV

MOV

1008 :

NAAAAAAAAAR

013516
013520
013526
013530
013536
013544
013552
013560
013560
013564
013570

012706
013700
013701

001100
001276
001456

013574
013602
013610
013616
013624
013632

012737
012737
012737
012737
012737
012737

000000
000005
010000
054062
177777
000071

013640
013644
013646
013650
013652

004737
000402
104000
000447

023326

013652

004737

024206

000004
012737
000240
012737
112737
012737
012737

000017

001226

000024
000001
013560
013560

001120
00113
001122
001124

TST17:

SCOPE

Hgg

JSYNC PATTERN NOT DETECTED
TEST

ARttt

2220020222232

#17,$TESTN

::SET

MoV

#20.,81CNT

;20

MOV
Mov

#7117 ,SLPADR
#717,SLPERR

movs

mov

Mov
Mov

001410
001436
001434
001406
001404
001402

;END OF

ittt

ilitlllsd

)

ABORT SYNC DETECTION TEST

T17:

PATTER BIT SETS

JRESET BIT CLOCK

#WC,8GDDAT

AR SRR

JeTEST 17

;BRANCH IF C BIT CLEAR

#1,SERMAX

#STACK,SP

$BASE RO
TSTQUE R

;ONE

2222322

TEST NUMBER

2222232223

23222

IN APT MAIL BOX

ITERATIONS

ERROR ALLOWED

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS
;LOAD

THE

STACK POINTER

;RO = UNIBUS ADDRESS OF uut
sR1 = POINTER TO DEVICE

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES
Mmov
#0,RMDAO
;SECTOR 0, TRACK 0
Mov
Mov

#5,RMDCO
#FMT16,RMOFO

;CYLINDER 5
;16 BIT FORMAT

Mov

#RD!GO,RMCS10

;READ DATA COMMAND

MOv
MOV

#BUFFER ,RMBAO
# C1+1,RMWCO

;STARTING BUFFER ADDRESS
;WORD COUNT

;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR

108:

BR
ERROR
BR

PC,ENBSCH

108

508

:G0 TO 10% IF NO ERROR
JRETURN HERE IF ERROR

JFORCE SECTOR COMPARE USING SUBROUTINE
JSR

PC,SCTCMP

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950

3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973

3974
3975
3976
3977

013656
013660
013662
013664

000402
104000
000442

013664
013670
013672
013674
013676

004737
000402

MACY11

3??;1052)

05-APR-78

ABORT

BR
ERROR

B8R

20%:

SYNC

£
14:49

DETECTION

7
PAGE 82

SEQ 0082

TEST

208

46
46
4¢
4¢
4é
4¢
46
46
46

;GO TO 208 IF NO ERROR
;RETURN HERE IF ERROR

S0s

:SET ''LOOKING FOR SYNC'' USING SUBROUTINE

024314

JSR

PC,SETLFS

ERROR
BR

50%

104000

000435

30%:

308

46
46
4¢
4¢
46
4¢
46
4¢
4¢
4¢
L€
4¢

:;"""""""i""""""""""""'*'Q'Q't"""""'.'."

;LOOKING FOR SYNC

INHIBITS WORD CLOCK,HOWEVER, ''DRIVE TIMING ERROR''

;SHOULD RESET 'LFS WORD COUNT INMIBIT' FLOP
JFORCE DRIVE TIMING ERROR
013676

012760

051441

013704
013710

012702

000020

013710

012760

055441

013716

012760

013724
013732

016037
042737

013740
013742

013744
013746
013754
013760
013766
013770

001013
005302
001361
012737
010037
062737
104041

000024

mov

#MRTAAA'NS ,RMMR1 (RO)

MoV

#16.,R2

000024

MOV

#MRIAAA NS 'MCLK ,RMMRT (RO)

051441

000024

MOV

#MRTAAA'MS ,RMMRY (RO)

:LOAD RMMR1

000024
177737

001142
001142

MOV
8IC

RMMRT (RO) ,$B0DAT
# CWC,$BDDAT

;STORE RMMR1

DEC
BNE

R2
40%

MoV
ADD
ERROR

RO,$BDADR
#RMMR1,$BDADR

000040
001136
000024

408:

BNE

001140

001136

000004
012737
000240
012737
112737
012737
012737

000024
000001
014032
014032

012706
013700
G13701

001100
001276
001456

014046
014054
014062

012737
012737
012737

000000
000005
010000

000020

001226
001120
001131
001122
001124

AR AR A

1ST20:

RPN PR

RN PR IR

dlR

0200020

Rd0

;20 ITERATICNS

Mov

#720,8LPADR

MOV
MOV

#1,SERMAX

#720,SLPERR
#STACK,SP

$BASE RO
TSTQUE ,RY

-ONE

TEST NUMBER

#0,RMDAD
#5,RMDCO
#FMT16,RMOFO

2R}

IN APT MAIL BOX

ERROR ALLOWED

;LOAD LOOP ON TEST ADDRESS

;LOAD LOOP ON ERROR ADDRESS
;LOAD

THE

STACK

POINTER

;RO = UNIBUS ADDRESS GF uuTt
JR1 = POINTER TO DEVICE

JSETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES
MOV
MOV
MOV

RN RPN RN TN RN OENRENEN

#20.,81CNT

Mov

AT $BDDAT

sDTE DIDNOT CLEAR WORD COUNT

MOV

001410
001436
001434

::SET

Move

120:

;LOAD RMMR1

#20,3TESTN

BIT CLOCKS

SYNC GENERATION TEST

SCOPE

Hgg

NUMBER OF

#WC,SGDDAT

SeTEST 20
MR

;R2.,

50%

MoV

508%:

013770
013772
014000
014002
014010
014016
014024
014032
014032
014036
014042

;LOAD RMMR1

JPULSE BIT CLOCK AND VERIFY PROM STROBE SETS

CZRY
CZRY

;SECTOR 0, TRACK O
;YL S
;16 BIT MODE

INH

4¢
4€
4¢
&€
4¢
4é
&¢
4¢
4¢
&¢
4¢
4¢
4¢
&€
&€
4¢
&¢
4¢
4¢
&¢
4¢
4¢
4¢
4¢
4¢
4¢
46

47
4i
47
47
47
47

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993

3994
3995
3996
3997
3998
3999

4000
4001
4002

4003
4004
4005
4006
4007
4008
4009
4010
«0N
4012
4013
4014
4015
4016
4017
4018
4019
«020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
403
4032
4033

014070
014076
0146104

012737
012737
012737

014112
014116
014120

004737
000403

014122
014126

000137

014512

014126
01464132
014134
014136
014140

004737
000402

024206

054062

177776

000063

MACY11

30A(1052)
05-APR-78
14:49
PAGE 83
120
SYNC GENERATION TEST

001406
001404
001402

mov
Mov
MoV

SEQ 0083

;BUFFER ADDRESS
;WORD COUNT

#BUFFER,RMBAOD

¥ C2+1,RMWCO
#WH!GO,RNCS10

;WHITE

HEAD AND DATA COM

SEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE

023326

JSR
BR

104000

108:

ERROR
BR
JMP

PC,ENBSCH
108

;GO TO 108 IF NO ERROR
JRETURN HERE
:

160%
1608

ERROR

;FORCE SECTOR COMPARE USING SUBROUTINE
JSR

104000

ERROR

000565

20%:
A

B8R

PC,SCTCHP

208

;GO TO 20% IF NO ERROR
;RETURN HERE

1608

ERROR

RRSR ARl
R2RRRRR 2R ]

:WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED
;FIRST,

VERIFY

THAT

;SECTOR COMPARE SET
014140
014146
014154
014156
014162
014166
014174
014176
014200

016037
042737
001011

014200
014204

012702

000016

014204
014212
014220
014222
014224
014226
014232
014240
014246
014250
014252
014252

016037
032737
001014
005302
001367
010037
062737
012737

000040
000001

014252

012760

055401

000024

014260

012760

051401

000024

014266

016003

000024

005037
010037
062737
104042
000545

104042
000520

000040
177776

001142
001142

001140
001136
000040

001136

MOV

BIC
BNE
CLR
MOV
ADD
ERROR

GATE

ON,

RMMRZ2 (RO) ,$BDDAT

INDICATING

THAT

;STORE RMMRZ2 AT SBDDAT

# (BBOO,SBDDAT
308
$GODAT
RO,$BDADR
#RMMR? ,$BDADR
42

;BUS BIT 0
:

IS WRITE

GATE

1608

JWRITE GATE NOT ON
sFORMAT-CS FAJLURE

Mov

RMMR2 (RO) ,$BDDAT

;STORE RMMRZ2 AT SBDDAT

DEC
BNE
MoV
ADD
MOV
ERROR

RZ
40%
RO,$BDADR
#RMMRZ, $BDADR
#8800,8GDDAT
42

B8R

001136
000040
000001

WRITE

DURING

:
308
JSTEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE
;GATE STAYS ON
MOV
214, ,R2
JMAXMUM NUMBER 0OF (CLOCK

40%:

001142
001142

BIT
BNE

001136
001140

50%:
60%:

B8R

#8800,8BDDAT
508

:
;BRANCH

1F WRITE GATE ON

;WRITE GATE DROP DURING

160%

JFORMAT = (S FAILURE

Mov

#MRTAAA'MCLK ,RMMRT(RO)

;LOAD RMMR1

Mov

#MRTAAA,RMMRY (RO)

;LOAD RMMR1

MOV

PMMR1(RO) ,R3

;STORE

RMMR1

AT R3

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
4034
4035
4036
4037
4038
4039
4040
4041
6042
4043
4044
4045
4046
4047
4048
4049
4050

4051

4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
407N
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089

014272
0146276

032703
001765

014300
V14302

005302
001414

MACY11

BIT
BEQ

000040

014304

30A(1052)
O05-APR-78
14:49
PAGE 84
120
SYNC GENERATION TEST

;PROM

STROBE

%SAIT
$:

FOR

DEC
BEQ

#uC,R3
60%

CAME

PROM

ON-DECREMENT

R2
80%

STROBE

PROM

TO GO OFF,

SEQ 0084

STROBE

COUNT

THEN REPEAT

LOOP

014304

012760

055401

000026

mMov

#MRTAAA'MCLK,RMMR1(RO)

;LOAD RMMR1

014312

012760

051601

000024

MoV

#MR1AAA ,RMMR1T(RO)

;LOAD RMMR1

014320
014324
014330

016003
032703
001725
000764

000024
000040

Mov
BIT
BEQ
BR

RMMR1(RO) ,R3
#WC,R3
40%
708

014332

014334

80%:
A

AL AR

AR AAAAA AR

;STORE RMMR1

AR RARRRARRRRRRARRRRRRRRRRRRRRRRRRRdd!

;VERIFY HEADER SYNC GENERATION
;WRITE

014334
014340
014342

012702
005003

000020

014342
014346
014352
014354
014356
014360
014362
014364
014366

016004
032704
001414
005203
005302
001002

000024
000010

014366

012760

055401

014374
014402
014404

012760
000757

051401

014404
014410
014412
014414
014416

020327
103002
104043
000436

000010

014416
014422
0144624

012702
005003

000010

014424
014430
014432
014436

016004
006303
032704
001002

000024

INVERTED

;FIRST,COUNT NUMBER OF
90$:

MOV
CLR

#16..R2
R3

MOV

MAINTENANCE

ZERO BITS UNTIL FIRST ONE BIT
JMAX

RMMR1 (RO) ,R4

TIMES

;STORE

THRU LOOP

RMMR1

BIT
8EQ
INC
DEC
BNE
ERROR
BR

#MWD, R4
110%
R3
R2
1008
43
1608

000024

MOV

#MRTAAA'MCLK,RMMRY(RO)

;LOAD

000024

MOV

#MRI1AAA,RMMRT (RO)

:LOAD RMMRI

104043

000452

:
1008

1108:

sMAKE

BR
SURE

B8R

THERE

WERE

AT LEAST

R3,#8.
1208
43

160%

JSAMPLE AND STORE
130$:

THE REST OF

MOV
(LR

#8.,R2
R3

MOV
ASL
BIT

RMMR1(RO) ,R4
R3
#MUD, R4

BNE

;JUMP OUT OF LOOP WITH FIRST
JINCREMENT ZERO COUNT
;DECREMENT MAX LOOP COUNT

;HEADER SYNC

903

Cmp
BHIS
ERROR
120%:

000010

DATA BIT

AT R3

140%

ZERO BITS

,CANT GET FIRST
RMMR1

IN HEADER

SYNC

;HEADER SYNC
THE HEADER SYNC

;NUMBER OF SAMPLES
JHEADER SYNC
;STORE

RMMR1

AT R4

sSHIFT SAMPLE,IF
;THEN SET SAMPLE

SYNC BIT
INPUT

CZRMKAQ RMO03/2 DSKLS PRT 2
CZRMKA.P11
0S-APR-78 14:38

4090
4091
‘83%

014440
014444
014446

052703
005302
001407

000001

kggg

014450

012760

055401

4096
4097
4098
4099
4100
4101
4102
4103
4104
4105

014456
014464
014466

012760
000757

051401

014466
014474
014500
014506
014510
014512

012737
010337
023737
001401
104044

000230
001142
001140

4106

MACY11

4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145

000004
012737
000240
012737
112737
012737
012737

012706
013700
013701
012760
111160

001100
001276
001456
000040
000010

014602
014610
014616
014624
014630
014634
014640
014644
014652

012737
012737
012737
012702
010237
012722
012712
012737
012737

002037
001466
010000
054062
001406
151466
002037
177776
000063

014660
014664
014666
014670

004737
000403
104000
000137

023326

000024

MoV

#MRTAAA'MCLK,RMMRT(RO)

:LOAD RMMR1

2g‘

000024

MoV
BR

#MR1AAA,RMMR1 (RO)
;LOAD RMMR1
1308
;DO LOOP TIL R2=0

1508 :
:VERIFY THE SYNC BIT STREAM IS 0000000010011000
MOV
#000230,$GDDAT
MOV
R3,$BODAT
CMP
$GDDAT,$BDDAT
BEQ
160$
ERROR
44
: INCORRECT HEADER SYNC
1608 :

48
48,
48,
48
48,
48,
48
48
48
48

SeTEST 21

zg;

001140
001142

014674
014700
014702
014704
014710

004737
000403
104000
000137

024206

000021

001226

000024
000001
014554
014554

001120
001131
001122
001124

015472

CIRM
CZRM)

48
48
23’

.'"ttttt.ttt't""tttt""'t"t'tt'it'ttt'ttlt'lt"t'tt"""tt".

014512
014514
014522
014524
014532
014540
014546
014554
014554
014560
014564
014570
014576

014674

SEQ 0085

#8170.R3
R2
1508

4109

2135

BIS
DEC
BEQ

1408:

2}83

4110
4111
4112
4113
4114
4115
4116
4117
4118
4119
4120
4121
4122
4123
4126
4125
4126
4127
6128
4129
4130
4131

30A(1052)
OS5-APR-78 14:49 PAGE 85
120
SYNC GENERATION TEST

000010
001410
001436
001434

001404
001402

WRITE HEADER TEST

‘
‘

‘8

.'.'tttttttt'ttttttt"tttt'ttt't'ttt't't""tt'ttfi't'ttttt'tttttttt

‘8

TST21:

48:
48’
48
48
48
48
48
48
48
48
48
48
48
48
48
48
48
“8
48
4“8
48
48

T21:

SCOPE
MOV
NOP
MOV
MOVB
MOV
MOV

#21,$TESTN
#20.,81CNT
#1,SERMAX
#721,8LPADR
#T21.8LPERR

;:SET TEST NUMBER IN APT MAIL BOX
;20 ITERATIONS
:ONE ERROR ALLOWED
:LOAD LOOP ON TEST ADDRESS
:LOAD LOOP ON ERROR ADDRESS

MoV
#STACK, SP
;LOAD THE STACK POINTER
MoV
$BASE ,RO
‘RO = UNIBUS ADDRESS OF uuT
MOTM
TSTQUE ,R1
*R1 = POINTER TO DEVICE
MOV
#CLR.RMCS2(RO)
:CLEAR THE MASSBUS
MOVB
(R1) ,RMCS2(RO)
:SELECT UNIT
;SETUP THE REGISTER OUTPUT BUFFER FOR SUBROUTINES
MOV
#002037 ,RMDA0 ; TRACK 4, SECTOR 31
MOV
#1466 ,RMDCO
:CYLINDER 822.
MOV
#FMT16,RMOFO
:IN 16 BIT FORMAT
MOV
#BUFFER,R2
:BUFFER ADDRESS
MOV
R2.RMBAO
:BUFFER STARTS
MOV
#151466.(R2)+
:STORE FIRST HEADER WORD
MOV
#002037. (R2)
:STORE SECOND HEADER WORD
MOV
# C2+41,RMUCO
:WORD CTR = 2
MOV
#WUH'GO.RMCS10
:WRITE HEADER COMMAND
;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR
PC.ENBSCH
BR
108
:GO TO 108 IF NO ERROR
ERROR
:RETURN HERE IF ERROR
JMP
1608
:
108 :
;FORCE SECTOR COMPARE USING SUBROUTINE
JSR
PC.SCTCMP
BR
208
;GO TO 20% IF NO ERROR
ERROR
SRETURN HERE [F ERROR
JMP
1608
208 :

48
48
48
48
484

48
48
48
48
48
48
4«8

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38

MACY11

6146

6174
4175
4176
677
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196

4197
4198
4199
4200
4201

WRITE

014710
014714

012702
012704

14:49

HEADER

TEST
R

PAGE 86

LR R

SEQ 0086

R RN AR AR RN RETERRONRERTS

:STEP THE DATA TIMING SEQUENCER UNTIL ''HEADER AREA'' COMES ON
MOV
#15.,R2
;ALLOW 15 MORE PROM STORBES
308:
Mov
#33.,R4
;ALLOW 33 BIT CLOCKS PER PROM STROBE

000017
000041

;PULSE BIT
:
408

014720

CLOCK UNTIL

PROM STRC3IE

IS ON

014720

012760

055401

000024

MOV

#MR1AAA'MCLK ,RMMR1(RO)

:LOAD RMMR1

014726

012760

051401

000024

MOV

FMRTAAA,RMMRT (RO)

:LOAD RMMR1

014734
014740
014744
014746
014750
014752
014756

016003
032703
001004
005304
001363
000137

000024
000040

MoV

RMMR1(RO),R3

014756
014762

032703
001062
005302
001015

000200

012737
005037
010037
062737

000200
001142
001136
000024

014764

014766

014770
014776
015002
015006
015014
015016
015022

104045
000137

015472

BIT
BNE
DEC
BNE
JMP

50%:

;SEE

001140

015472

:STORE

#UC
. R3
508
R4
40$
1608

RMMR1

AT R3

;COUNT EXHAUSTED

IF HEADER AREA CAME ON
BIT
¥PHA R3
BNE
DEC
BNE

80$
R2
608

MOV

#PHA, SGDDAT

ADD

#RMMR1, SBDADR

;ERROR-HEADER AREA NEVER CAME ON
CLR
MOV

001136
cos

$BODAT
RO, SBOADR

ERROR
JMP

45
1608

;SETUP ERROR MESSAGE

;HEADER AREA WONT SET
;SKIP REST OF TEST

:WAIT FOR PROM STROBE TO GO OFF

015022

012760

055401

000024

MOV

#MRTAAA 'MCLK,RMMR1(RO)

:LOAD RMMR1

015030

012760

051401

000024

MoV

#MRTAAA,RMMRT (RO)

:LOAD RMMR1

015036

016003
032703
001404
005304
001363
000137

000024
000040

MoV
BIT
BEQ
DEC
BNE
JMP

RMMR1(RO),R3
#UC.R3
708
R4
608
1608

;VERIFY

THE

015042
015046

015050
015052
015054
015060
015060

016037
042737
022737
001704
010037
062737
012737
104042

015472

000001

0011
0011
0011

001136
000040
000001

001136
001140

000040
176000

4173

121

O05-APR-78

roro N

6147
4148
6149
6150
6151
6152
4153
6154
6155
4156
6157
4158
46159
6160
4161
4162
4163
4164
4165
4166
6167
4168
4169
6170
67
4172

30A(1052)

TAG BUS ONCE EVERY

MoV

BIC
CMP
BEQ
MOV
ADD
MOV

ERROR

;STORE RMMR1

RO,$BDADR
#RMMR?2 ,SBDADR
#BB00,$GDDAT

487
48]
48]
48]
48]
48]
48f
48¢
48
48¢
48E
488
48
48¢
48¢
48¢
48
488
486
486
48
486
48¢
48¢
486
486
49(
49(
49
49(
49(
49
49
49
49
49(
491
491
49
49
491
491

491

:COUNT EXHAUSTED
PROM STROBE

RMMR2 (RO) ,$BDDAT

# C1777,3BDDAT
#BB00, $BODAT
308

AT R3

CZRMK
CZRMK

;STORE

RMMRZ2 AT $BDDAT

;WRITE GATE SHOULD BE ON
;ALL ELSE OFF
;

;:TAG BUS WRONG DURING FORMAT

491
491
49:
49:
49
49
49
49
49;
49
49
49¢

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
6213
6214
4215
4216
217
4218
4219
4220
6o
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
<256
4257

015126
015130

MACY11

30A(1052)
T2

WRITE

80$%:
;HEADER AREA

14:49

HEADER

TEST

7
PAGE 87

SEQ 0087

160%

000561

O05-APR-78

IS NOW ON CAN START SAMPLF

;DATA AFTER 5 MORE BIT CLOCKS
818
mov
’»5.R2

015130
015134

012702

000005

015134

012760

055401

000024

Mov

#MRTAAA'MCLK
,RMMR1 (RO)

;LOAD RMMR1

015142
015150
015152

012760
005302
001370

051401

000024

Mov
DEC

#MR1AAA RMMR1 (RO)
R2

sLOAD RMMR1

BNE
M

015156
015160
015164
015170
015174
015176

005037
005037
012702
012703
005004

001174
001176
001174
000020

015176
015202
015204
015210
015212
015216

016005
006304
032705
001002
052704

015216

012760

055401

015224
015232
015234
015236
015240
015244

012760
005303
001360

051401

022702
101415

001200

042705
001346
010037
062737
012737

177577

015246
015252
015254

015260
015266
015274
015276
015300

010422

104045

Rttt

SAHPLE AND STORE THE TWO HEADER WORDS
CLR
$TMPO
$STHP1
CLR
mov
#$TMPO,R2
;R2 NUMBER OF

90%:

#16.,R3

;NUMBER OF BITS

000024

MOV

RMMR1(RO) ,RS

;STORE

000010

BIT
BNE
BIS

#MWD RS
110%
#BITO,R4

;SET BIT O IF WRITE BIT ON

000024

MOV

#MRIAAA'MCLK,RMMRT
(RO)

:LOAD RMMR1

000024

MoV
DEC

#MRIAAA ,RMMR1 (RO)
R3

;LOAD RMMR1

MOV

R4, (R2)+

100%:

(LR

ASL

000001

1108:

BNE

001136
000024
000200

CMp
8LOS

JHEADER AREA
BIC
BNE
MOV

001136
001140

000475

1008

ERROR
BR
AL R

015302

RMMR1

JSHIFT

WORD

AT RS

SAMPLE

;STORE WORD SAMPLE

#$TMPO+4,R2
1208

DONE
YES

# C<PHA>,RS
90%
RO,$BDADR

:BRANCH IF ON

AR AR

#RMMR1,$BDADR
#PHA,SGDDAT

45
1608

Rl
Rttt
R0R))

SWAIT UNTIL ECRC SETS
CLR
R3

005003

;WORD STORAGE

SHOULD STILL BE ON FOR SECOND HEADER WORD

ADD
mov

1208%:

;CHECK NUMBER BITS DIFFER BET PHA AND ECRC

125%:

015302
015306
015312

016005
042705
001026

000024
176777

015314

012760

055401

000024

tRl]

WORDS/ADDRESS

[ [0}

015300

81%

ASARAAASA AR AR

MOV
8IC
BNE

RMMR1(RO) RS
# (<ECRC>,RS
127%

:STORE RMMR1 AT RS
;CHECK QUT THE REST BITS
JBRANCH IF ECRC ON

Mov

#MRIAAA'MCLK,RMMR1(RO)

;LOAD RMMR1

CIRM
CZRM
49’
49
49
49
49°
49
49
49
49
49
49
49
[
49
49
49
49
49
49
49i
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49
49

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA L1
05-APR-78 14:38

4258
4259
4260
6261
4262
4263
4264
4265
4266
4267
4268
4269
4270
42N
4272
4273
4274
4275
4276
67t
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
429N
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308

4309
4310
4311
4312
4313

015322
015330
015332
015336
015340
015344
015352
015360
015364
015366
015370

012760
005203
022703
101361
010037
062737
012737
005037
104046

051401

MACY11

30A(1052)
121

001136
001140

ADD
MOV
(LR

#RMMR1 ,$BDADR
#ECRC,$GDDAT
$BDDAT

;CLEAR

B8R

1608

JEXIT

015376
015402
015404
015410
015412
015416

016005
006304
032705
0010C2
052704

000024

015416

012760

055401

015424
015432
015434
015436

012760
005303
001360
010422

051401

R3
#16..R3
125%
RO,$BDADR

ERROR

PR A

000020

PAGE 88

#MR1AAA,RMMRT (RO)

INC
CMpP
BHI
MOV

127%:

012703
005004

TESY

MOV

000441

015370
015374
015376

WRITE HEADER

14:49

000024

000020

001136
000024
001000
001142

O05-APR-78

SRR

SEQ 0088

;LOAD RMMR1

;TOTAL NUMBER OF BIT DIFF
;OVER ONE WORD ?
JBRANCH ]F NOT

THE EXP

A ARl
latltRRti it ittt
itnsdl)

:SAMPLE AND STORE CRC WORD
MoV
CLR

#16..R3
R4

MOV
ASL
BIT
BNE
BIS

RMMR1(RO) ,RS
R4
#MWD,RS
140%
R4
#BITO,

000024

MOV

#MRIAAA'NCLK ,RMMRT(RO)

:LOAD RMMR1

000024

MOV

#MRIAAA RRRRT(ROD)

;LOAD RMMR1

130%:

000010

600001

140%:

DEC
BNE
MOV
IR

:STORE RMMR1 AT RS
JSHIFT WORD SAMPLE

JSET BIT O IF WRITE BIT ON

R3
1308
R4, (R2)+
AN

LR R EEE P AR E AR RN

AN R SR RERTRRRARORREANOOOTETY

;VERIFY 3 HEADER WORDS
;NOTE THAT DATA WAS STORED IN THE REVERSE

015440
015446
015450
015456
015460
015466
015470
015470

015472

022737
001010
022737
001004
022737
001401

066313

001174

174040

001176

167501

001200

;ORDER FROM WHICH IT WAS WRITTEN

cmMP

8EQ

1508
#174040,8TMP1
1508
#167501,8THP?
160%

ERROR

C(MP

1508:

104047

#066313,8TmMP0

BNE
CMP
BNE

1608 :

JBRANCH [F ERROR

;BRANCH [F ERROR
.
sBRANCH [F NO ERROR
JEND OF

SUB TEST

:;'""'."'"""'"'""""."""'""."."""'..'..""..'

JeTEST 22
MMAARAR

015472
015474
015502
015504
015512
015520
015526
015534

000004
012737
000240
012737
112737
012737
012737

000022

000024
000001
015534
015534

001226
001120
001131
001122
001124

TST22:

SCOPE

Hgg
N

122

HEADER COMPARE TEST

MOV
MOvB
Mov
MOV

ARl

#22,$TESTN

#20.,8ICNT
#1,SERMAX
#722,8LPADR
#722,8LPERR

::SET

TEST NUMBFR

2RR0RRR]]]

In APT MAL BOX

;20 ITERATIONS
-ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
4314
4315
4316
4317
(318

4319
4320
6321
(322

6323
6324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337

4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368
4369

015534
015540
015544

012706
013700
013701

MACY11

7
L
30A(1052)
05-APR-78
14:49
PAGE 89
122
HEADER COMPARE TEST

001100
001276
001456

SEQ 0089

Mov

#STACK,SP

;LOAD

mov

TSTQUE,R1

;R1

MOV

$BASE RO

THE

STACK POINTER

CZRMK
CZRNK

504

;RO = UNIBUS ADDRESS OF uuT
= POINTER

TO DEVICE

sLOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND
015550
015556
015564
015572
015600
015606

012737
012737
012737
012737
012737
012737

015614
015622

001466
002037
054062
177776
010000
000073

001436
001410
001406
001404
001434

000040
000010

000010

015626
015632
015634
015636
015642

004737
000403

023326

000137

016742

015642
015646
015650

004737
000403

024206

015652
015656

000137

016742

015656
015662
015670
015674

010037
062737
012702
012704

104000

mov
mov
Mov
MoV
MoV

001402

Mov

;CyrL=822.
s TRK=4 ,SEC=31.
;DATA ADDRESS
;READ HEADER ONLY
;16 BIT MODE

#RH'!GO,RMCS10

;CLEAR THE MASSBUS
Mov
move

;READ HEADER AND DATA FUN

#CLR,RMCS2(RO)
(R1) ,RMCS2(R0O)

;CLEAR THE MASSBUS
;SELECT UNIT

JEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR

PC,ENBSCH

B8R
108

ERROR

JMP

108

:GO TO 10% IFf NO ERROR

230%

;SKIP REST OF

:RETURN HERE

ERROR

TEST

ERROR

JFORCE SECTOR COMPARE USING SUBROUTINE
PC,SCTCMP

JSR

B8R

ERROR

:
208

JMP

JREAD GATE

001136
000040
000004
000021

#001466 ,RMDCO
#2037 ,RMDAO
#BUFFER ,RMBAOD
¥ (241 ,RMWCO
#FMT16,RMOFO

001136

015700

SHOULD BE OfF
RO,$BDADR

MOV

#4,R2

[0}

;G0 TO 20% IF NO ERROR

;RETURN HERE

2308

MoV

ADD

308 :

20$

FOR

ERROR

3 PROM STROBES
:SETUP ERROR MESSAGE

#RMMR? ,$BDADR
#17..R4

;R2=NUMBER OF

;MAX BIT CLOCKS

PROM STROBES

:
408

;CLOCK BIT CLOCK UNTIL PROM STROBE COMES ON

015700

012760

055401

000024

MoV

#MRTAAA'MCLK,RMMRI(RO)

:LOAD RMMR1

015706

012760

051401

000024

MoV

#MRIAAA ,RMMRT (RO)

;LOAD RMMRI

015714
015720
015724
015726
015730
015732
015736

016003
032703
001004
005304
001363
000137

000024
00004¢

Mov
BIT
BNE
DEC
BNE

RMMR1(RO) ,R3
#4C,R3
50%

016742

50%:

JMP

40%

2308

JVERIFY READ GATE

:STORE

RMMR1

AT R3

;BRANCH WHEN PROM STROBE ON

JetrereTRRESE

IS OFF AND TAG BUS IS ZERO
50¢

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
4370
314
4372
4373
4374
4375
6376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
43N
4392

4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
44611
44612
4413
6414
4415
4416
4417
4418
4419
4420
4e2
4422

4423
4424
4425

MACY11

30A(1052)
122

0S5S-APR-78

14:49

HEADER COMPARE

TEST

7
PAGE 90

SEQ 0090

015736
015742
015746
015750
015754
015760
015762
015766

016003
042703
001407
010337
005037

001142
001140

000137

016742

015766

012760

05401

000024

MOV

#MRIAAA'MCLK,RMMRY
(RO)

;LOAD RMMR1

015774

012760

051401

000024

MOV

#MRTAAA ,RMMRT (RO)

;LOAD RMMR1

016002
016006
016012
016014
016016
016020
016024

016003
032703
001404
005304
001363
000137

000024
000040

MOV
BIT

RMMR1(RO) ,R3
#UC,R3

DEC
BNE

R4
60%

016024
016026

005302
001322

104050

Mov

000040
176000

BIC

BEQ
Mmov
CLR
ERROR
JMP

608

RMMR2 (RO) ,R3

;STORE RMMR2 AT R3

60$
R3,$BDDAT
$GDDATY
50
230%

;BRANCH [F

& C1777,R3

509
509
510

TAG BUS ZERO

510
510

JREAD HEADER FUNCTION

;CLOCK BIT CLOCK TIL PROM STROBE GOES OFF

BEQ

016742

JMP

;STORE RMMR1T

AT R3

708

;BRANCH 1F PROM STROBE OFF

230%

IEERAREARRACRNN

70%:

;CONTINUE FOR 3 BIT CYCLE TOTAL (LOC O NOT SAMPLED)

DEC
BNE

R2
30%

AR RS

RRRRARRRd

RSl RRtRRRRRRRRtRRRRRRR
R Y4

;READ GATE SHOULD COME ON WITH NEXT PROM STROBE AND STAY

sON FOR 7 CYCLES (AND MORE)
016030
016034

012702
012703

000006
000021

Mov

#6,R2

80$:
Mov
#17.,R3
;CLOCK BIT CLOCK TIL PR"Y STROBE SETS

016040

90$:

016040

012760

055401

000024

MoV

#MRIAAA'MCLK,RMMRY
(RO)

;LOAD RMMR1

016046

012760

051401

000024

MOV

#MRT1AAA ,RMMRT(RO)

;LOAD RMMR1

016054
016060
016064
016066
016070
016072
016076

016004
032704
001004
005303
001363
000137

000024
000040

Mov
BIT
BNE
DEC
BNE

RMMR1(RO) R4
#(C,R4
1009
R3
90%

016004
042704
022704
001410
010437
012737

000040
176000
000002

Mov
BIC
CMP

#BB01,R4

001142
000002

MOV
Mov

R4 ,$BODAT
#BB01,$GDDAT

016742

JMP

230%

;STORE RMMR1

AT R4

;BRANCH WHEN PROM STROBE
RAER222R22Y

100%:
;VERIFY READ GATE ON AND REST OF TAG BUS OFF

BEQ
001140

RMMR2 (RO) , R4
¥ (1777 R4

;STORE RMMR2 AT R4

1108

;BRANCH [F READ GATE ON

CZRAK
CZRNK

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

JMP

016134

s TAG BUS INCORRECT DURING

2308

;READ HEADER FUNCTION

110$:

055401

000024

Mov

#MRIAAA'MCLK ,RMMRT(RO)

;LOAD RMMR1

016142

012760

051401

000024

MOV

#MRTAAA ,RMMR1 (RO)

sLOAD RMMR1

016150

016004
032704
001404
005303
001363
000137

000024
000040

MOV
BIT
BEQ
DEC
BNE
JMP

RMMR1(RO) ,R4
#W(C R4
1208
R3
110$
230%

016166

016742

016172

016172
016174

120%:

;CONTINUE FOR TOATL OF 7 CYCLES

005302
001317

DEC
BNE

AL AR

016176
016202

sBRANCH WHEN PROM STROBE OFfF

012702

R2
80%

AR AR

RRR

124111
Rl

Rttt

Rdd

sLOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORBE

000021

130s:

Mov

£17.,R

sMAX BIT CLOCKS

;CLOCK BIT CLOCK TIL PROM STROBE SETS

016202

012760

055401

000024

MOV

#MRIAAA'MCLK,RMMRT(RO)

;LOAD RMMR1

016210

012760

051401

000024

MOV

#MRIAAA RMMRT (RO)

;LOAD RMMR1

016216
016222
016226
016230
016232
016234
016240

016003
032703
001004
005302
001363
000137

000024
000040

MOV
BIT
BNE
DEC
BNE
JMP

RMMR1(RO) ,R3
#WC,R3
1408
R?
120%
2308

016240
016244

042703
001015
010337
012737
010037
062737

001142
002000

000137

016742

012703

000005

001140

016304

# CPLFS.R3
150%
R3,$8DDAT
#PLFS,$GDDAT

ADD
ERRLR
JMP

#RMMR1,$8DADR
35
2308

MOV

001136
150%:
%gng

016304

BIC
BNE
Mov
MOV

MOV

PLFS

ON,

RO,$BDADR

#5,R3

WORD

COUNT

104035

JVERIFY "'PLFS'" IS NOW ON

175777

001136
00002¢

;BRANCH WHEN PROM STROBE ON

b ad

016252
016260
016264
016272
016274
016300
016300

:
1408

AT R3

016246

016742

:STORE RMMR1

)

wLALARRLALALALALA

016162
016164

AT R4

INHIBIT

WwILL

SET

BIT

CLOCKS

012760

055401

000024

MOV

#MRIAAA MCLK,RMMRTI(RO)

;LOAD RMMRI1

016160

;STORE RMMR1

016154

D b
b =d o

012760

cnd D cad b wnd D b b d D b D d b wd b D b wd b cad d D
A ilaltaitalialtad el Ll Lad (ad Lad NI P PO RO PL PO PNIAI PO A =d b o od

016134

VIV IV IV IV VAV RV JV VIV IV IV JV IV IV IV LV LA 1V IV IV [V 1V TV L5 25,

;CLOCK BIT CLOCK TIL PROM STROBE GOES OFfF

447%

44 7%
4475
4476
477
4478
4479
4480
4481

ERROR'

016742

4447
4448
44649
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470
4471
4472

104050
000137

SEQ 0091

4646

016126
016130

7
N
30A(1052)
O05-APR-78
14:49
PAGE 91
122
HEADER COMPARE TEST

NAMIWARVAVAWVIVAWVAW

4426
4427
4428
4429
4430
4431
4432
4433
4434
4635
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445

MACY11

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38
4482
4483
4484
4485
4486
4487
4488
4489
4490
&N
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
451
4512
4513
4514
4515
4516
6517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537

016312
016320
016322

012760
005303
001370

051401

MACY11

8
8
30A(1052)
05-APR-78
14:49 PAGE 92
122
HEADER COMPARE TEST

00002¢

016324
016330
016334
016334
016342
016344
016346
016350
016356

012702
012703

000031
000010

012737

055401

000241
006002
103003

lgR1AAA.RHHR1(RO)
R

mov

DEC
BNE
AL

AAARAAAAAAAAAR AR A

001426

160$:

Mov
MoV

#31,R2
#8..R3

Mov

#MRTAAANCLK ,RMMR10

CLC
ROR
BC(C
8IS

R2
1658

016356
016364

013760
042737

001426
004000

000024
001426

Mov
BIC

RMMR10,RMMR1(RO)
#MNCLK ,RMMR1O

016372
016400
016402

013760
005303
001354

001426

000024

Mmov
DEC
BNE

RMMR10,RMMR1 (RO)

165%:

001174

012703
012204

000020

016440
016446
016450
016452
016454
016462

012737
000241
006004

055401

052737

002000

001426

016462
016470

013760
042737

001426
004000

016476
016504
016506
016510
016514

013760
005303
001354
020227

001426

101746

012702

000006

016522

012703

000021

R3
1608
A

ARl

;LOAD RMMR1

:LOAD RMMR1

;CONTINUE
;1S ZERO

TIL SHIFT COUNT

Rttt

#$TMPO,R2
#151466,3TAPO
#2037.,8TAP1
#101367.8TRP2

MoV
Mov

#16..R3
(R2)+,R4

Mov

#MRI1AAA'MCLK,RMMR10

ROR

R4
1808
#MRD,RMMR10

000024
001426

MoV
8IC

RMMR10,RMMR1 (RO)

000024

Mov

RMMR10,RMMR1 (RO)
:LOAD RMMRI
R3
JSHIFT OUT 16 BITS
1758
R2,#STMPO+4
sALL DONE ?
1708
;BRANCH [F NOT

001426

Rtldd)

1708:

175$:

CLC

180$:

8CC
BIS

DEC
BNE
CHP
BLOS

AAAA

sCRC PATTERN wwe
sNUMBER OF BITS EACH WORD
sHEADER WORD 1,2 OR 3

sLOAD RMMR1

#NCLK ,RMMR10

ARl

sialiltis

185%:

MOV

#6,R2

[[1]']

217.,R3

L [0]")

#MRIAAAINCLK ,RMMR1(RO)

.CLOCK UNTIL PROM STROBE ON

190%:

055401

Rttt

tEERREERCNNRE

sLOOKING FOR SYNC SHOULD COME ON WITHIN 6 STROBES

016526
01276C

#MRD ,RMMR10

Mov
MoV
Mov
MoV

001174
001176
001200

016526

AAARAS AR

001200

016516

RoR

sSIMULATE THE HEADER BEING READ

012702
012737
012737
012737

103003

ARt

:SYNC PATTERN=00011001
;8 BITS IN PATTERN

001426

016432
016432
016436
016440

AAAARRRRRARE

;SIMULATE THE SYNC PATTERN BEING READ

002000

151466
002037
101367

;LOAD RMMR1

1558

052737

016404
016410
016416
016424

SEQ 0092

000024

,LOAD RMMR1

22T

])

CIR
CZR

4538
4539
4540
456
4542
4543
6544
4545
4546
6547
4548
4549
4550
4551
4552
6553
4554
4555
6556
4557
4558
4559
4560
4561
4562

4563

4564
4565
4566
4567
4568
4569
4570

45N
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590

4591

4592
4593

MACY11

c
8
30A(1052)
05-APR-78
14:49
PAGE 93
T22
HEADER COMPARE TEST

MOV

#MRT1AAA RMMRT (RO)

MoV
BIT
BNE
DEC
BNE
BR

RMMR1(RO) ,R4
W, RG

SEQ 0093

;LOAD RMMR1

016534

012760

051401

016542
016546
016552
016554
016556
016560
016562

016004
032704
001003
005303
001363
000470

000024
000040

016562
016566

042704
001034

175777

016570
016572
016574
016600
016606
016612
016620
016622
016624

005302
001014
010437
012737
010037
062737
104035
000447

001142
002000
001136
000024

016624

012760

055401

000024

MoV

#MRIAAA'MCLK ,RMMRT(RO)

;LOAD RMMR1

016632

012760

051401

000024

Mov

#MR1AAA ,RMMRT (RO)

;LOAD RMMR1

016640
016644
016650
016652
016654
016656
016660

016004
032704
001724
005303
001363
000431

000024
000040

016660
016666
016674
016676
016702
016706
016714
016716
016720

016037
042737
001411
005037
010037
062737

016720
016726
016730
016736
016740

023737
001004
023737
001401

016740
016742

104052

000024

195%:

:STORE RMMR1

AT R&

1958
R3
190%
2308

;SEE IF "'PLFS'" IS ON
8IC

# CPLFS.,R4

MoV

R4 ,$BDDAT

Mov
ADD

RO,$BDADR
#RMMR1,$BDADR

BNE
2108
;CONTINUE IF LESS THAN 6 PROM STROBES
DEC
R2
BNE
2008
001140

MOV

001136

ERROR
BR

#PLFS,SGDDAT

35
2308

2008:
;CLOCK UNTIL PROM STROBE OFF

Mmov
BIT

2108:

8tQ
DEC
BNE
BR

RMMR1(RO) ,R4

#WC R4

;SETUP ERROR

s HEADER

;STORE RMMR1

AT R4

185%
R3
200%
2308

JVERIFY NO HEADER ERROR IS SET

104051

000014

177157

001142
001142

001140
001136
000014

001136

000411

054062

001174

054064

001176

Mov
BIC
BEQ
CLR
MOV
ADD

ERROR
BR

RMER1(RO),$BDDAT
;STORE RMER1
# C<HCRC!HCE'!FER>,$BDDAT
2208
$GDDAT
RO,$BDADR

#RMER1,$BDADR

51
2308

.HEADER ERROR SET

BUFFER,$TMPO

;COMPARE 1

220$:
JVERIFY DATA [N MEMORY OK

cmMp

BNE
Cmp
BEQ

AT S$BDDAT

225%
BUFFER+2,$TMP1
2308

ST HEADER WORD

;COMPARE 2 ND HEADER WORD

2258%:
JREPORT ERROR IN ONE OR MORE HEADER WORDS
ERROR
52
2308:

VIVIAWAWAITITAWIITAAVIVIAVTIAVITIVTIATVITIIATATAT
AT
AT AV
A NN AN NNV
AWV A N NN WA

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
4594
4595
4596
6597
4598
4599
4600
4601
6602
4603
4604
4605
4606
4607
4608
4609
4610
4611
4612
4613
4614

4615
4616
4617

4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
63

4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647
4648
4649

MACY11

D
8
30A(1052)
O05-APR-78
14:49 PAGE 94
13
ECC GENERATION TEST

SEQ 0094

ML AAAAAAARAARARAAAARA
A
AR ARttt
tiodld

;*TEST 23
(S

016742
016744
016752
016754
016762
016770
016776
017004
017004
017010
017014
017020
017026

000004

012737
000240
012737

112737
012737
012737

000023

001226

000024
000001

001120
001131
001122
001124

017004
017004

012706
013700
013701
012760

001100
001276
001456
000040
000010

012737
012737
012737

002037
001466
012000
054062
001406
177400
001404
000061

111160

017032
017040
017046
017054
017060
017064
017070
017074

012702
010237
012703
010337
012737

017102
017106
017112
017114
017116

012704
012703
010422
005303
001375

017120
017124
017126
017130
017134

004737
000403

023326

000137

017726

017134
017140
017142
017144
017150

004737
000403
104000
000137

024206

017150
017154
017156
017160
017164

004737
000403

024314

000137

017726

017164
017170
017172
017174

004737
000403

024476

000137

017726

104000

177777

000400

017726

000010

001410
001436
001434

001402

ECC GENERATION TEST

AR AR
222222222222 2]

TST23:

SCOPE

Hgg

#23,8TESTN

::SET TEST NUMBER IN APT MAIL BOX

Mov

#20.,81CNT

220 ITERATIONS

mov
MoV

#723,$LPADR
#7123 ,$LPERR

move

123:

mov

MOV
Mov
MOV

#1,SERMAX

#STACK,SP

.ONE

ERROR ALLOWED

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS

$BASE RO
TSTQUE R
#CLR,RACS2(RO)

;LOAD

THE

STACK POINTER

;RO = UNIBUS ADDRESS OF uuTt
JR1 = POINTER TO DEVICE
;CLEAR THE MASSBUS

Mmove
(R1) ,RMCS2(RO)
;SELECT UNIT
;SETUP REGISTER QUTPUT BUFFER FOR WRITE DATA CAMOMMAND
Mov
mov
mov
MoV
Mov
Mov
Mov
Mov

#002037 ,RMDAO0
;TRK 4, SEC 31
#1466 ,RMOCO
;CyL=822.
#FMT16!HCI ,RMOFO
;16 BIT FORMAT,IGNORE HEADER
#BUFFER ,R2
R2,RMBAO
;DATA ADDRESS
¥ (256.+1,R3
R3,RMWCO
#WD ! GO,RMCS10
;WRITE DATA COMMAND t#+

Mov
Mov
mMov
DEC
BNE

#177777 R4
#400,R3
R4, (R2)+
R3
10%

;FILL THE DATA BUFFER WITH ALL ONES
10%:

JONE

;DATA PATTERN ALL ONES
SECTOR DATA FIELD

JEXECUTE DATA COMMAND 7O POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR

ERROR

20$:
;FORCE

JMP

208

220%

;G0 TO 20% IF NO ERROR
;RETURN HERE

JSR

ERROR
JMP

PC,SCTCHP

308

ERROR

2208

;G0 TO 30% IF NO ERROR

:RETURN HERE

JSET ""LOOKING FOR SYNC'' USING SUBROUTINE
JSR
BR
ERROR

40%:

SECTOR COMPARE USING SUBROUTINE

B8R
:
308

PC,ENBSCH

JMP

PC,SETLFS
408

2208

JCLOCK THE SYNC PATTERN USING SUBROUTINE
JSR

BR
ERROR
JMP

PC,CLKSNC

50%

2208

ERROR

(ZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

COMPARE

INHIBITED

FOR

THIS

TEST

;CLOCK THE DATA TIMING SEQUENCER AND VERIFY THE FOLLOWING WAVEFORMS
;FOR

HEADER ARES,

WRITE

50%:

MOV

:
017200

012702

017732

017204

PROM

READ GATE

ENABLE CRC oOuT

STROBE

(DATA

TIMING SEQUENCER=200 OCTAL)

GATE

#2308 ,R2

seveveee POINTER TO WAVE FORM TABLE

:
708

017204
017210

004737

017210
017216
017224
017230
017236

016037
042737
012237
023737
001410

000024
176157
001140
001140

017240
017244

010037
062737

001136
000024

017254
017260

000137

017726

017252

EACH LEADING EDGD OF

;CLOCK BIT CLOCK (MCLK) UNTIL PROM STROBE COMES ON
JSR
PC.300%

017752

80$:

JPROM

104054

001142
001142

001142

001136

S/ROBE

mov
BIC
MoV

VERIFY

WAVEFORM

RMMR1(RO) ,$BDDAT
;STORE RMMR1
# C<ECRC'PDA'PHA'EECC>,$BDDAT
(R2)+,8GDDAT

o, 14

AT SBDDAT

$SGDODAT,SBDDAT

BEQ
90%
;BRANCH IF RMMR1 0K
JERROR ~ THE DATA TIMING SEQUENCER OUTPUT IS ONCORRECT
Mmov
RO,$BDADR
ADD

90%:

ERROR
JAP

#RMMR1,SBDADR

54
2208

;DATA TIMING SEQUENCER WRONG
:

JVERIFY THE TAB BUS

000040
176000
001140
001140

017310
017314
017322
017324
017330

010037
062737
104053
000137

001136
000040

017330
017334

004737

020060

017334
017340

020227

017750

103721

017726

001142
001142
001142

MoV
BIC
Mov
cmp

RMMR2 (RO) ,$BDDAT
# C1777,8B0DAT
(R2)+,8GDDAT

MOV
ADD

RO,$BDADR
#RMMR2,$BDADR

001136
:
1008

ERROR
JMP

012702

000011

017346
017352

004737

017752

017352

016004

:BRANCH [F

53
2208

TAG BUS 0K

: TAG BUS WRONG

;CLOCK BIT CLOCK TIL PROM STROBE RESETS
JSR
PC,350%

1108:

;CONTINUE CHECKING THROUGH & PROM CYCLES

Jrrrreree

R2.,#230%+16

CMpP

8LO
R

017342
017346

$GDDAT,SBDDATY

BEQ
1008
;ERROR~ TAG BUS IS WRONG

;STORE RMMRZ2 AT SBODAT

708

JVERIFY THAT DATA AREA COMES ON WITHIN
1308

Mov

’9.,R2

RN SRR

JSR

PC,3C0%

;PROM STROBE ON CKECK IF DATA AREA ON
000024

MOV

RMMR1(RO) ,R4

9 PROM STROBES

;R2=9 STROBES

;CLOCK PROM STROBE ON
1408

R R

;STORE RMMR1

AT R4

st
o

016037
042737
012237
023737
001410

arl

017260
017266
017274
017300
017306

RV RV RV RV AV RV RV RV, RV RV, RV, RV, ]

4667
4668
4669
4670
46N
4672
4673
4674
4675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705

sHEADER

SEQ 0095

Cadtadlabdatladtadladlasdadiad

4664
4665
4666

E
8
30A(1052)
O05-APR-78
14:49
PAGE 95
Te3
ECC GENERATION TEST

(VA RVARAD

4650
4651
6652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663

MACY11

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761

017356
017362

017364
017364
017370
017372
017374
017402
017406
017412
017420
017422
017424

042704

177377

004737
005302
001365

020060

012737
005037
010037
062737

0004G0
001142
001136
00002¢

001020

104055
000541

MACY11

F
8
30A(1052)
O05-APR-78
14:49
PAGE 96
123
ECC GENERATION TEST
BIC

150%:

001140

PC,3508
JSR
DEC
RZ
BNE
130%
;ERROR~DATA AREA DIDN'T COME ON
MOV
#PDA,SGDDAT
;SETUP ERROR MESSAGE
$8DDAT
CLR
MOV

001136

012702

017430
0174634
017440
017444
017446
017452
017460
017464
017472
017474
017476

016003
042703
022703
001414
010337
012737
010037
062737

017476

004737

020060

017502

004737

017752

017506
017510

005302
001347

# CPDA,R&

BNE
160%
;CLOCK PROM STROBE OFF

:
1608

017424
017430

ADD
ERROR
BR

RO,$BDADR

#RMMR1,$BDADR
55
2208

RRRRLARRRARERRCRRRRRRORRRARORARRRARRRNOROCARRARRRAOACANGRNNAROORNNS

JVERIFY THAT DATA AREA IS ON FOR 256 CYCLES

000400

170%:

Mov

#256. ,R2

JVERIFY THAT DATA AREA IS ON AND ECC

104055
000514

000024
177357
000400
001142
000400
001136
000024

RMMR1(RO) ,R3
;STORE RMMR1
# C<PDA'EECC>,R3

MOV
MOV
Mov
ADD

R3,$BDDAT
#PDA,3GDDAT
RO,$BDADR
#RMMR1,$BDADR

CMpP
B8EQ
001140

001136
180$:

005002

017514
017520
017524
017530
017532

016003
042703

022703
001426

S OFF

MOV
BIC

ERROR
BR

#PDA.R3
1808

AT R3

JDATA AREA IS ON

59
2208

;DATA ERROR NOT ON

;CLOCK PROM STROBE OFF
JSR
PC,3508
;CLOCK PROM STROBE ON
JSR
PC,3008
;CONTINUE TIL COUNT ZERO
DEC
RZ
BNE
1708

JECC SHOULD
017512
017514

SEQ 0096

182%:

000024
177357
000020

005202

BE ENABLED WITHIN & CLOCK BITS

CLR

Mov
BIC
cmp
8EQ
INC

RMMR1 (RO) ,R3
;STORE RMMR1
# C<PDA'EECC>,R3
#EECC,R3
190%
R2

AT R3

017534

012760

055401

00002«

MoV

#MRTAAA'MCLK ,RMMRI(RO)

:LOAD RMMR1

017542
017550
017554

012760
022702
101357

051401
000007

000024

Mov
Cmp

#MRTAAA RMMRT(RO)
#7,R2

;LOAD RMMR1

BHI

182%

6762
£763
4764
4765
6766
4767
4768
4769
4770
“77
4772
4773
4774
6775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
479N
4792
4793
4794
4795
4796
797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817

MACY11

017556
017562
017570
017574
017602
017604
017606

010337
012737
010037
062737

017606
017612
017614
017620

012702
005003
012704

017620
017624
017626
017632
017634
017640

016005
006303
032705
001002
052703

000024

Mov

000010

017640

012760

055401

017646
017654
017656
017660
017662

012760
005304
001360
010322
022702
101351

051401

017666

104056
000450

001142
000020
001136
000024

mov

022737
001004
022737
001407
012737
012737

017732
017734
017736
017740
017742
017744
017746
017750

000200
000002
000200

017752

012737

104061

000137

001140

ERROR

B8R

RO,$BDADR
#RMMR1 ,$BCADR

220%

;SAMPLE ECC CHARACTER FOR 32 BITS

001174

195%:

000020

2008%:

Mov

#$TMPO,R2

mov

#16. R4

CLR

RMMR1T (RO) ,RS

;STORE RMMR1

BI7
BNE
BIS

#MWD RS
205%
#8170,R3

;BRANCH

000024

Mov

#MRTAAA'MCLK ,RMMRT(RO)

;LOAD RMMR1

000024

MoV
DEC

#MRTAAA RMMRY (RO)
R&

;LOAD RMMR1

CMP

#STMPO+4
,R2

ASL

000001

205%:

BNE
mov

001200

131177

001174

175154

001176

131177
175154

001200
001202

AAAAAR

210%:

230%:

000002
000000
000002
000000
000000
020054

300%:

cMpP
BNE
CMP

2131177 ,$TMPQ

Mov
Mov

#131177,8THP2
#1751564 ,$TAP3

;treeee
;ttenne

JMP

4008

;GREAT ESCAPE

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

PHA

BEQ

ERROR

MOV

055401

000024

(MWD INVERTED)

195%

2108
#1751564 ,$TMP1
2208
61

werrener

srrere

sECC GENERATED INCORRECT

BBO1
PHA

8801
AR
R AR

IR AR AR

#7.,3208
CLOCK PROM STROBE

3058:
012760

ECC BIT OFF

AR RRRRRRRARRRARRRARRRRRRRRRR
R dR2]2]] )]

VERIFY ECC CHARACTER GENERATED

220$%:

020164

AT RS

2008
R3,(R2)+

BHI

017760

#EECC,SGDDAT

mov
ADD

001136
1908%:

000021

SEQ 0097

R3,$BDDAT

mov

017670
017676
017700
017706
017710
017716
017724
017726
017726

30A(1052)
OS5-APR-78
14:49
PAGE 97
123
ECC GENERATION TEST

OOMNO

CIZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38

Mov

#MRTAAA'MCLK ,RMMRT(RO)

;LOAD RMMR1

CZRMKAO RM03/2 DSKLS PRT ?
CZRAKA.P11
05-APR-78 14:38

MACY11

H
8
30A(1052)
O05-APR-78
14:49
PAGE 98
123
ECC GENERATION TEST

2%}3

017766

012760

051401

000024

MoV

#MR1AAA,RMMRT (RO)

4820
4821
4822
4823
4824
4825

017774
020002
020010
020012
020016
020020

016037
042737
001020
005337
001360
013737

000024
177737

020056
020056

mov
BIC
BNE
DEC
BNE
MOV

RMMR1(R0O),3308
# CW(C,3308
310$
3208
30583
3208, $BDDAT

MoV

RO,$BDADR

4826
4827
4828

4829
4830

4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
232}
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873

020026
020034
020040
020046
020050

012737
010037
062737

104030
000445

020052
020054
020056

000207
000000
000000

020060

012737

020054

000040
001136
000024

001142

001140

LTl

001136
3108:
3208:
330$:

000021

020160

3508:

#uC,SGDDAT

ADD
ERROR
BR

RTS
.WORD
.WORD

;STORE RMMR1
;EXIT

PC
O
O

AT 330

IF PROM STROBE ON

;SETUP ERROR MESSAGE

;MAX BIT COUNT
;RMMRY CONTENTS

MoV

#17.,370%

;CLOCK PROM STROBE OFF

020066

012760

055401

000024

MoV

#MRIAAA'MCLK,RMMRT(RO)

;LOAD RMMR1

020074

012760

051401

000024

MOV

#MRIAAA,RMMR1 (RO)

:LOAD RMMR1

020102
020110
020116
020120
020124
020126
020134
020140
020144
020152
020154
020156

016037
042737
001417
005337
001360
013737
005037
010037
062737
104062
000403
000207

000024
177737

020162
020162

MoV
BIC
BEQ
DEC
BNE
MoV

RMMR1(RO), 3808
¥ CWC,3808
360%
3708
355%
3808 ,88DDAT

020160
020162

000000
000000

020164
020164

000240

020160

020162
001140
001136
000024

001142

$GDDAT
RO,$BDADR

3608:

CLR
MoV
ADD
ERROR
BR
RTS

3708:
3808:

.WORD
.WORD

O
O

001136

400%:

;STORE RMMR1

#RMMR1, SBDADR
62
400%
PC

AT 3808

:CAN''T CLEAR PROM STROBE

;MAX BIT COUNT
;CONTENTS OF RMMR1

;SUB-TEST EXIT POINT

NOP

JEeeR

;:Qttttttt'tt"tt'tttt'ttt't"""'t't'ttttt't!'fit"tt-ttt'tttttt

J*TEST 24
A

020166
020170
020176
020200
020206
020214
020222
020230
020230

000004
012737
000240
012737
112737
012737
012737

012706

000024
000024
000001
020230
020230

001100

001226

AL EA AR AR

TST24:

001122
001124

124

SCOPE

DETECTION TEST
AR

ARl Rttt
RRRR

MOV

#24 ,$TESTN

;. SET TEST NUMBER

MOV
MOvVB

#20. ,8$1CNT
#1,SERMAX

;20 ITERATIONS
oONE ERROR ALLOWED

Mov

#STACK,SP

NOP

001120
001131

ECC

MoV
Mmov

#1724 ,SLPADR
#T724 ,SLPERR

IN APT MAIL BOX

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS
:LOAD

CIRM
CZRM

:LOAD RMMR1

#RMMR1,$BDADR
30
400%

355%:

020066

SEQ 0098

THE

STACK

POINTER

541

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA. P
05-APR-78 14:38
4874
4875
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885
4886
4887
4,888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
6916
97
4918
4919
4920
4921
4922

4923
4924
4925
4926
4927
4928
4929

020234
020240
020244
020252

013700
013701
012760

111160

001276
001456
000040
000010

020256
020264
020272
020300
020304
020310
020316
020324

012737
012737
012737
012702
010237
012737
012737

002037
001466
012000
054062
001406
177400
000071

020324
020330
020332
020334
020340

004737
000403

023326

000137

021176

104000

020340
020344
020346
020350
020354

004737
000403

024206

000137

021176

020354
020360
020362
020364
020370

004737
000403

024314

000137

021176

004737
000403

024476

000137

021176

020370
020374
020376
020400

104000

MACY1T

000010
0014610
001436
001434
001404
001402

30A(1052)
124

O0S5S-APR-78

14:49

ECC DETECTION TEST

8
PAGE 99

SEQ 0099

MOV

$BASE,RO

;RO = UNIBUS ADDRESS OF uuT

MoV

#CLR,RMCS2(RO)

;CLEAR THE MASSBUS

MoV
Mov

#2037 ,RMDAO
#1466 ,RMDCO

Mov
MOV
MoV

#BUFONE
,R2
R2.RMBAOD
# (256.+1 ,RMUWCO

MOV

TSTQUE R

;R1

= POINTER

TO DEVICE

MOvVB
(R1) ,RMCS2(RO)
;SELECT UNIT
JSETUP REGISTER OQUTPUT BUFFER FOR READ DATA COMMAND

MoV

208

#FMRTT16'HCI ,RMOFO

[0]Y)

;CYL=822.

TRK =4,

SE(C=31

:INHIBIT HEADER COMPARE
;256 WORDS
;READ DATA COMMAND

#RD ! GO,RMCS10

JEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE
JSR

PC,ENBSCH

JMpP

1908

SECTOR

COMPARE

BR
ERROR

30%:

;FORCE

308

JSR

408%:

BR
ERROR
JMP

USING

;GO TO 30% IF NO ERROR
:RETURN HERE IF ERROR
SUBROUTINE

PC,SCTCHP

408

;60 TO 408 [F NO ERROR
JRETURN HERE IF ERROR

190%

JSET ''LOOKING FOR SYNC'' USING SUBROUTINE
JSR

PC,SETLFS

B8R

ERROR

:
508
;CLOCK

JMP

THE

JSR

50%

1908

SYNC PATTERN USING SUBROUTINE

BR
ERROR
JMP

PC,CLKSNC

55%

190%

JHRARARARCARRAARRACEANREEANQERNINRRNCORARNRARRRAEANARANRNOONOEARAENRAN

HEADER

020404
020410
020412
020416
020422
020424

012702
000405
004737
004737
000240

000002

020424
020430
020434
020436
020440

016003
032703
001421
005302
001364

00002¢
002000

020442
020446
020454
020460

010337
042737
005037
010037

001142
175777
001140
001136

COMPARE

1S INHIBITED

FOR

THIS

TEST

"LOOKING FOR SYNC'' SHOULD GO OFF WITHIN ONE CYCLE
555
Mov
#2,R2
;ALLOW 2 PASSES THRU LOOP
BR
70$
608%:
JSR
PC,3508
;RESET PROM STROBE
JSR
PC,300%
;SET PROM STROBE

021310
021202

:
708

NOP

Mov
BIT
BEQ
DEC
BNE

001142

RMMR1(RO),R3
;STORE RMMR1 AT R3
#PLFS,R3
80%
;BRANCH IF LOOKING FOR SYNC OFF
R2
608
;ERROR-LOOKING FOR SYNC DID NOT RESET DURING HEADER
MoV
R3,$BDDAT
;SETUP ERROR MESSAGE
BIC
# CPLFS,$BDDAT
$GDDAT
CLR
MOv
RO,$BDADR

CIZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PIN
05-APR-78 14:38

4965
4966
4967
4968
4969
4970
4«97
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985

062737
1064040
000137

000024

001136

021176

012702
004737
004737

000011
021310
021202

020514
020520
020524

016003
032703
001022
005302
001365

000024
002000

020532

012737
010337

002000
001142

601140

020544
020552
020556
020564
020566
020572
020572

042737
010037
062737

001136
000024

175777

001142

000137

021176

004737

021310

004737

024476

020530
020540

020576
020602
020604
020606
020610

104035

000402
104000
000573

85%:

000400
000020

020620

012760

057401

020626
020634
020636
020640
020642

012760
005303
001370
005302
001364

053401

103002
052704

177446

015457
001174

000020
055401

002000

NOT

RESET

AGTER

HEADER

PC,350%
PC,300%

JSET STROBE OFF
:SET PROM STROBE

MOV
BIT
BNE
DEC
BNE

RMMR1 (RO) ,R3
#PLFS,R3
90%
RZ
85%

:STORE RMMR1 AT R3
:
;BRANCH [F SYNC ENABLED

MOV

#PLFS,SGDDATY

BIC
MOV

# CPLFS,$BDDAT
RO.$BDADR

ERROR
JMP

35
1908

,R2

;ERROR=CAN'T LOOKING FOR SYNC DURING DATA AREA
Mov

001136

R3.$BDDAT

ADD

90%:

#RMMR1,SBDADR

sCAN'T SET PLFS DURING DATA

JSR
PC,350%
;RESET PROM STROBE
;CLOCK THE SYNC PATTERN USING SUBROUTINE
JSR

PC,CLKSNC

B8R

AAEA

1008

190$

B8R

AR AR AR

ARl

ARt

sSIMULATE READ DATA

RdRRR

MOV

MoV

#256.,R2
#16..R3

00002¢

Mov

#MRT1AAA'MRD !MCLK ,RMMRT (RO)

000024

MOV

l=R1AAA!HRD.RHHR1(R0)
R

110$:
115%:

DEC
BNE
DEC
BNE
MR

012737
012737
012702
012703
012704
000241
006012

;PLFS

Mov

JSR
JSR

1008:

012702
012703

SEQ 0100

kRN RRRRANRLONRRERCOORERARTOORRORRRRERNRRARNERRRARACONARAOAROARONORNTY

020644
020652
020660
020664
020670
020674
020676
020700
020702

?80‘

ERROR

020610
020614
020620

100

;LOOKING FOR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM (YCLES

020500
020504
020510

020526

ERROR
JMP

80$:

8
PAGE

#RMMR1,$BDADR

ADD

001174
001176

ASA RS

0s:
5%:

MoV
MOV

mov
Mov
cLC
ROR
BCC
BIS

RRRdddd)

;WORD COUNT
;BIT COUNT

sLOAD

;LOAD RMMR1
RMMR1

1158
R
1108

ARl

AR 222022222820

sSIMULATE ECC PATTERN
#1776446,3THPO
Mmov
—

4961
4962
4963
4964

020464
020472
020474
020500

J
30A(1052)
O05-APR-78
14:49
124
ECC DETECTION TEST

4930
93
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
6947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960

MACYT1

#015457 ,8TMP1
#$TAPO,R2
#16. ,R3

#MRIAAAIMCLK,
RS

(R2)
130%

#MRD,R4

;FIRST ECC WORD

;SECOND ECC WORD

CZRMKAO RM03/2 DSKLS PRTY 2
CIRMKA P
05-APR-78 14:38
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012

5013
5014

5015
5016
5017
5018
5019
5020
5021
5022

5023

5024
5025
5026
5027
5028
5029
5030

5031
5032
5033
5034
5035
5036
5037
5038
5039
5040
5041

MACY11

K
30A(1052)
0QS5S-APR-78
14:49
T24
ECC DETECTION TEST

8
PAGE

101

seEa 0101

130%:

020706
020706
020712

010460
042704

000024
004000

mov
BIC

R4 ,RMMR1(RO)
MCLK,RG

;LOAD RMMR1

020716
020722
020724
020726
020732
020736

010460
005303
001361
062702
022702

00002¢

MOV

R4 ,RMMR1(R0O)

;LOAD RMMR1

001752

000002
001176

020740

012702

000005

020744
020750

004737
004737

021202

020754
020760
020764
020766
020770
020772
020776
021002
021006
021012
021020
021022
021024

016003
032703
001417
005302
001365
042703
010337
005037
010037
062737
104063
000465

000024
000400

021024
021030
021034
021036
021042
021046
021052
021060
021062
021064

016003
042703
001413
010337
005037
010037
062737
104053
000445

VERIFY

1408 :

001136

BEQ

1208

#5,R2

JSR

PC,300%

:SET PROM STROBE

Mov
BIT
BEQ
DEC
BNE
BIC
MOV
CLR
MOV
ADD

RMMR1(RO) ,R3
#PDA,R3
1508
R2
1408
# CPDA,R3Y
R3,$BDDAT

:STORE

1908

JSR

ADD

:
1608

;CLOCK THE NEXT WORD

MoV

BEQ
MOV
CLR
MOV

001136

#$TMP1
R2

A WORD

RESET

MOV
BIC

000040
176000

;CLOCK

DATA AREA AND READ GATE

ERROR

1508:

001142
001140
001136
000040

R3
1258
#2,R2

CMP

021310

177377
001142
001140
001136
00002¢

DEC
BNE
ADD

ERROR
BR

PC,3508

:CLEAR PROM STROBE
AT R3

;SETUP ERROR MESSAGE

$GDDAT
RO,$BDADR
#RMMR1,$BDADR

RMMRZ2 (RO) ,R3
# C1777,R3
160%

RMMR1

:DATA AREA WON'T RESET

;STORE RMMRZ2 AT R3

R3,$BDDAT
$GODAT
RO,$BDADR
#RMMRZ,$BDADR

53
1908

;READ GATE WON'T RESET

sovRkRARNRTRRLLERRRANERERECRRERACCERROANRERCCEOORANRAGNRARNAAAACRRANONROETS

JVERIFY THERE ARE NO
021064
021070
021074
021102
021106

021110
021114
021120
021126
021130
021132

016003
042703
012737
023703
001411
010337
010037
062737
104064
000422

000014
077677
00000C
001140

001142
001136
000014

MOV

BIC
MOV
chp
8EQ
Mov
MOV
ADD

001140

001136
1708
S

ERROR
BR

ECC ERRORS

RMER1(RO) ,R3

# C<DCK!ECH>,R3

;STORE RMER1

AT R3

#000000,8GDDAT
$GODAT,R3
1708
R3,$BDDAT
RO,SBDADR
#RMER1,SBDADR

64
1908

NRARACEEERCR LR R E L OACRNECRNOECOORROROOCOTTOTEIRERRNRAROARARNOERARNRERROANRREY

CZRMKAQD RMO3/2 DSKLS PRY 2
CZRAKA P11
0S-APR-78 14:38
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059

5060
5061

5062
5063
5064
5065
5066
5067
5068
5069
5070
507
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081

5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092

5093
5094
5095
5096
5097

021132
021136
021142
021146
021150
021152
021154
021156

021160
021164
021170
021174

021176

021202

MACY11

30A(1052)
05-APR-78
14:49
124
ECC DETECTION TEST

;VERIFY DATA BUFFER

012702
012703
012704
022203
001003
005304
001374

054062
177777
000400

014237
010337
010237

001142
001140
001136

185%:

021414
000021

021304

1908 :

000407

104065
000137
012737

8
PAGE 102

180%:

MoV
MOV
MoV

CMpP
BNE
DEC
BNE
BR
MOV

MOV
mMov

021210

ERROR
JMP

#. UFONE ,R2
2177777 ,R3
#256. ,R4

SEQ 0102

;DATA WAS STORED HERE
sEACH WORD ALL ONES

(R2)+,R3
185%

1808
1908

-(R2) ,$BDDAT
R3,$GDDAT
R2,$BDADR
65

4«00%

217.,320%
300%:
MOV
; CLOCK PROM STROBE ON
305%:

SEXIT IF ALL THE LOCATIONS CHECKED
sSETUP ERROR MESSAGE
.DATA

;GREAT ESCAPE

INCORRECT DURING READ

021210

012760

055401

000024

MOV

#MRIAAA!MCLK
,RMMRT (RO)

.LOAD RMMR1

021216

012760

051401

000024

MOV

#MRTAAA ,RMMR1(RO)

;LOAD RMMR1

021224
021232
021240
021242
021246
021250
021256
021264
021270
021276
021300
021302
021304

016037
042737
001020
005337
001360
013737
012737
010037
062737
104030
000445
000207
000000

000024
177737

021306
021306

MOV

RMMR1(RO),330%
# (W(, 3308

021306

000000

021310

012737

8IC
BNE
DEC
BNE
MOV

021304

021304
000040
001136
000024

001142

001140

MOV
MOV
ADD

001136

021316

;EXIT IF PROM STROBE ON

;SETUP ERROR MESSAGE

RO,$BDADR

.WORD

330$:

.WORD

3508:

MOV

#7.,3708

RTS

AT 330%

#RMMR1,$BDADR

4009

320$:

021410

#WC,SGDDAT

ERROR
BR

3108

000021

3108
3208
305%
3208 ,8BDDAT

;STORE RMMR1

;CLOCK THE STROBE OFF

355%:

021316

012760

055401

000024

Mov

#MRTAAA!MCLK
,RMMRT (RO)

;LOAD RMMR1

021324

012760

051401

000024

Mov

#MRTAAA ,RMMR1 (RO)

:LOAD RMMR1

021332
021340
021346
021350
021354
021356
021364
021370
021374
021402

016037
042737

00002¢
177737

021412
021412

Mov

RMMR1(R0O),380%
# CwC, 3808

001417
005337
001360
013737
005037
010037
062737
104062

021410
021412
001140
001136
000024

BIC
BEQ
DEC
BNE

001142

Mov

001136

Mmov
ADD

CLR

ERROR

;STORE

RMMR1

380%

3608
3708
355%
380%,$B0DAT

$GDDAT
RO,$BDADR
#RMMR1, $BDADR

;CAN'T CLEAR PROM STROBE

CIRMK
CZRMK

566
56¢
566
566
566
56¢€
56¢
566
566
566
567
567
567
567
567
567
5617
567
567
567
568
568
568
56¢
568
568
56¢&
568
56¢
56¢
565
56
566
565
566
569
566
566
566
569
57¢
57C
57C
57(
S7(
57(
57(
57(
57¢

57(
571
5N
571
571
571
571

CIZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38
5098
5099
5100
5101
5102

021404
021406
021410
021612
021414

000403
000207

000000
000000
000240

MACY11

n
30A(1052)
05-APR-78
14:49
124
ECC DETECTION TEST

360%:
370%:
3808:

400$:

RTS

.WORD
.WORD
NOP

8
PAGE

103

4003
PC

0
0

;SUB-TEST EXIT POINT

SEQ 0103

CZRMK
CZRAK

571
SN
571
5N
572

572
572
572
572
572
572
572
572
572
573
573

573
573
573
573
573
573

573
574
574
574
574
574
574
574
574
574
574
575
575
575
575
575
575
575
575
575
575
576
576
57¢
576
57¢
576
576
576
57¢
576

577
577

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA. P11
05~APR-78 14:38
5103
5104
5105

5106

001456

~NO NS WA

—

NOP
MoV

ADD
MOV
TST
BEQ

JMP
Mov
END OF

18:
.SBTTL
NN

8
PAGE

SEQ 0104

104

TSTQUE ,RO
#2 RO
RO, TSTQUE
(RO)
1%

READY
#TSTQUE+2, TSTQUE
PASS ROUTINE
AN

RN R

R R

RN N R R R R AN AN AR A RANRNRR OO RS

"END PASS #XXXXX TOTAL NUMBER OF

ERRORS SINCE LAST REPORT Yvyyvyy"

s*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
s*]F THERES A MONITOR GO TO IV
:*]F THERE ISN'T JUMP TO READY
021452
021452
021454
021460
021464
021470
021476
021500
021502
021504
021506
021510
021512
021516
021536
021536

000240
005037
005037
005237
042737
005327
000001
003063

001116
001206
001230

100000

000001
021500

021520

013746

001230

000421

021614
021614

013746

104401

104405
104401
005037

013700
001405
000005
004710
000240
000240
000240

000137
004414

éi25$:

$TSTNM
$TIMES

:;1ERO THE TEST NUMBER
;:LERD THE NUMBER OF ITERATIONS

BIC
DEC

#100000,$PASS
(PC)+

J:DON'T ALLOW A NEG.
::LOOP?

.WORD
BGT
MOV
.WORD
SEOPCT

001126
|

$PASS,-(SP)

L6783

NUMBER

;s YES
J:RESTORE COUNTER

MoV

;. TYPE

ASCIZ

STRING

;:SAVE SPASS FOR TYPEOUT
;s TYPE

PASS NUMBER

::60 TYPE-<DECIMAL ASCII WITH SIGN

;s TYPE ASCIZ STRING

BR
.ASCIZ

66%
::;GET OVER THE ASCI2
/
TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL,-(SP)

TYPDS
TYPE

.SCRLF

;G0 TYPE--DECIMAL ASCI] WITH SIGN
;:TYPE CARRIAGE RETURN, LINE FEED

$DOAGN

;:BRANCH

PC, (RO)

;:60 TO MONITOR

RESET

JSR

SERTTL
a#42,R0

NOP
NOP

SRTNAD:

PASS NUMBER

,65%

BEQ

$DOAGN:

THE

643
;:GET OVER THE ASCIZ
<12><15>/END PASS #/

. CLR
$GET&2Y MOV
SENDAD:

1
$DOAGN
(PC)+,a(PC)+
1

::INCREMENT

TYPE

éé27s:

$PASS

BR
LASCIZ

TYPDS

021552

001217
001126
000042

CLR
CLR
INC

001230

$ENDCT:

104401
000407

104405

NOP

$EOPCT:

012737

021542
021544
021550

021620
021622
021626
021632
021636
021640
021642
021644
021646
021650
021652
021652
021654

$SEOP:

NOP

JMP
.WORD

::SAVE SERTTL

TYPEOUT

;:TOTAL NUMBER OF ERRORS
:;CLEAR ERROR TOTAL
;:GET MONITOR ADDRESS
IF

;:CLEAR

THE

2 SAVE
;.FOR

ROOM

S ACTN

(PC)+
READY

FOR

: ;RETURN

NO MONITOR
WORLD

CZRAK
CZRMK

577
577
577
577
577
577
577
577

;*INCREMENT THE PASS NUMBER (SPASS)

;*TYPE

OOV

b
o

004414
001460

N
05-APR-78
14:49
ECC DETECTION TEST

b oo
ad

001456
000002
001456

d omd

30321052)
$EOSP:

d
b
b

000240
013700
062700
010037
005710
001402
000137
012737

[, Y

(VL AV RV TV LV RV AV AV XV 2V, ]

5107

021416
021416
021420
021424
021430
021434
021436
021440
021444

MACY11

578
578
578
578
578
578
578
578
578
578
579
579
579
579
579
579
579
579
579

579
580
580
580
580
580
580
580
580
580
580
581
581
581
581
581
581
581
581
581
581
582
582
582

5159

5160

021656

377

021662

377

MACYT1

000

30A(1052)
05-APR-78
END OF PASS ROU?INE

SENULL: .BYTE

_EVEN

'-1,-1,0
i

14:49

PAGE 105

; sNULL CHARACTER STRING

SEQ 0105

CIFk
CZF

A\NwA
LA

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

* cuuglr

ARIALALALALALALRAIALALALALALRALALALALALALALALALALALALALALALRAILRLALALALALARLALALAWAWLAWALALAWILAWALLALWL CAVAWAWA

A
DG
———
A

5161
5162
5163
5164
5165
5166
5167
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188

5189
5190

519N
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203

5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216

MACY11

30A(1052)

05-APR-78

14:49

SUBROUTINES

.SBTTL

PAGE

106

SEQ 0106

SUBROUTINES

PRASAALSAAARARAAASAARARAAAARARRRRARRRRRRRRRtRRtsltttitaR
ittt tsdl)

.SBTTL

ERROR TYPEOUT ROUTINE

;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
;*REGARDING

THE

DETECTION OF

AN ERROR AS FOLLOWS:

.UNIT NUMBER,

'PRINTED ON

'*
s*ONE
ot
'ARE

021662

N21662

104414

021664
021672
021674

032777
001402
000137

021700
021704
021710

104401
104401

021714
021716
021717
021720
021724
021732
021736

021742
021744
021745
021746
021752
021760
021762
021766

013746

157262

022412

104403

013746

104401

013746

021772
021774
021775
021776
022002

003
000
104401
013746

022006
022010
022011

104403
006
001

022012
022016
022020
022024

005737
001575

UNIT

022416
001226
022434
022416

NUMBER,

TYPE
TYPE
MOV

CLR
MOV
TYPE
MOV

022416

TYPOS

022420
001130

022420
001217
022424

2s:

TSTNMB
$TESTN,TSTNMB
LERTYO1
TSTNMB,-(SP)

SITEMB,ERRNMB

TYPOS

022453
001132

3
0

MOvVB

TYPE
Mov

INKIBIT TYPEQUTS??
;NO!!
JYES!!

ERROR NUMBER,

ERRNMB

LERTY(Q?
ERRNMB,~(SP)

.BYTE
.BYTE
TYPE

3
0
LERTYO3

BEQ

21%

CLRB

BOTFLG

AND PROGRAM (COUNTER

;TYPE "'UNTR'

;:SAVE SUNIT FOR TYPEOQUT
;:TYPE

3
0

8EQ

022444
022420

TEST NUMBER,

$CRLF
LERTYOO
$UNIT.‘(SP)

.BYTE
.BYTE

CLR

022420

#SW13,3SWR
18
21%

.BYTE
.BYTE

104403

104401
105037

BcQ
JMP

TYPOS

104403

003
000
005037
113737
001406

SAVREG

BIT
;TYPE

001217
022426
001234

ERROR NUMBER AND PROGRAM COUNTER ARE

.ERROR MESSAGE IS ASSEHBLED FORMATTED AND PRINTED ON
OR MORE SUCCEEDING LINES;
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
PRINTED AFTER THE ERROR MESSAGE.

ERRTYP:

020000

TEST NUMBER,
FIRST LINE;

THE

UNIT NUMBER

;.60 TYPE--OCTAL ASCII

s:TYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS
:LOAD TEST NUMBER FOR
;TYPE "'TST#"

::SAVE TSTNMB FOR TYPEOUT
::TYPE TEST NUMBER
;.60 TYPE--OCTAL ASCII

;. TYPE 3 DIGIT(S)
; ; SUPPRESS LEADING ZEROS
:LOAD ERROR NUMBER FOR
:TYPEOUT
;SKIP IF NO ERROR CALLED
:TYPE '‘ERR#"

::SAVE ERRNMB FOR TYPEOUT
;:TYPE ERROR NUMBER
. .00 TYPE--OCTAL ASCII

::TYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS
:TYPE

“PC3"

;. SAVE SERRPC FOR TYPEOUT
;:TYPE PROGRAM COUNTER
TYPOS
::00 TYPE--OCTAL ASCII
.BYTE
6
;. TYPE 6 DIGIT(S)
1
.BYTE
::TYPE LEADING ZEROS
;GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0
3s:
TST
ERRNMB
:US?'AN ERROR CALLED?
MOV

TYPE

$SERRPC,~(SP)

.SCRLF

JNO!!

:YES-TYPE CRLF
;CLEAR BOT FLAG

CZR
CZR
ARILALA\ALALALALALALALALALALALALALALALALALALALALALALALALALALAWALALAWLALALALAWLALALVAVAAALAVALALALALALLAVAVAWNARLA
WA WLA W

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

5233
5234

5235
5236
5237
5238
5239
5240
5241
5242
5243
5244

5245

5246
5247
5248
5249
5250
5251
5252
5253
5254

5255
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5272

022030
022034
022040
022042
022044
022046
022052

105037
013700
006300
006300
006300
062700
011001

022054

001507

022056
022060
022062
022066
022072
022074
022076
022102
022104
022110
022112
022116
022120
022124
022126
022132
022140
022142
022144
022150
022154
022156
022162
022170
022172
022176
022200
022204
022210
022214
022216
022220
022226
022230
022232
022236
022240
022244
022250
022254
022260
022264
022270
022272
022274

012102
001505
010237
005037
112203
001454
122703
001003
105037
000770
122703

001765
122703
001007
105237
132737
001372
000407
105237
122703
001002
010237
122737
103340
013704
001007
104401
105037
013702
000726
105044
112737
104401
000000
105737
001707
104401
105037
105037
013702

010237
112742
105722

000677

022425
022420

CLRB

001522

;TYPE

022230
022422

5%:

000015
022425
6$:

000012

000011

022425
000007

022425

8s:

000040
022422
000100

7%:

022424

12%

R2,118
BOTADR

CLR

(R2)+,R3

108
#CR,R3

BEQ
CMPB
BNE
CLRB
B8R
CmMPB
BEQ
CmMPB
BNE
INCB
BITB
BNE
BR
INCB
CMPB
BNE

CHRCNT
#7,CHRCNT
7$
9%
CHRCNT
' ,R3
98
RZ,BOTADR
#64.,CHRCNT

5%
BOTADR,R&
90%

MOV

BNE
TYPE
CLRB

001217
022425
022230
177777

BEQ

CmPB
BHIS

022422

+SCRLF

CHRCNT
118 ,R2
5%
=(R4)
#-1,B0TFLG

MoV

022424

90$:

118

001217
022424
022425
022422
022230
000040

BR
CLRB
MovB

;R1

POINTS

TO ERROR MESSAGE

s TABLE
sBRANCH [F NO ERROR MESSAGE

;R2=ADDRESS OF MESSAGE STRING
:BRANCH [F END OF MESSAGE
;LOAD ADDRESS OF STRING
;CLEAR BOT ADDRESS
;END OF STRING??

JYES!!
;CARRIAGE RETURN??
;NO!!

sYES=CLEAR CHAR COUNT
sGET NEXT CHARACTER
;LINE FEED??
;YES=GET NEXT CHARACTER
sHORIZONTAL TAB??
;NO!!
sADJUST CHARACTER COUNT

: INCREMENT CHARACTER COUNT
:SPACE??
sNO!!
: SAVE ADDRESS OF

SPACE

.END OF LINE??
JNO!!
;GET ADDRESS OF LAST SPACE
:BRANCH IF SPACE DETECTED
sTYPE

CRLF

;CLEAR CHARACTER COUNT

;SET UP R2 FOR TESTING
sREPLACE

SPACE

8EQ

BOTFLG
43

CLRB
CLRB

BOTFLG
CHRCNT

R2,11$
¢ ,-(R2)
(R2)+
5%

;TYPE

TYPE

.WORD

TSTB

MoV
MOV

;TYPE

;RO POINTS TO FIRST OF

;SET BOT FLAG
sTYPE ERROR MESSAGE STRING
:STRING ADDRESS GOES HERE
:UA§'STRING TRUNCATED??
;NO!!
sYES-TYPE CRLF
;CLEAR BOT FLAG
sCLEAR CHARACTER COUNT

TYPE

128%:

;FOUR ENTRIES IN ERROR
;TABLE

12%

Mmov

022425

RO
RO
RO
#SERRTB-8.
,RO
(RO ,R1

BEQ

MOvVB

Move
TST8
B8R
ERROR

LSCRLF

BOTADR,RZ2

HEADER

AND

ERROR

;SETUP R2 FOR TESTING
;SETUP 118 FOR TYPING
sRESTORE SPACE
;RESTORE R?

DATA

REST

STRING

x 0

SEQ 0107

107

;CLEAR CHARACTER COUNTER

THE ERROR MESSAGE
MoV
(R1)+,R2
Mov

PAGE

CHRCNT

ERRNMB,RO

mov
ASL
ASL
ASL
ADD
Mov

14:49
30A(1052)
05-APR-78
ERROR TYPEOUT ROUTINE

(WL AV AV LV S SV SV RV SV RV RV RV RV, R RV AV RV RV AV, RV RV RV RV RV RV RV RV RV W RV RV RV R AV AV ARV RV RS RV RV RV RV RV RV RV RV RV AV AV RV RV RV RV RV RV RV, ]

5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228
5229
5230
5231
5232

MACY11

[ Nenl

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA
.P
05-APR-78 14:38

016001
001444
104401

016002
016003
012737
001433

022324
022326
022330
022334
022336
022340
022342
022344
022346
022350
022352
022354
022356
022360
022362
022364
022366
022370
022372
022374
022376
022402
022404
022410
022412
022414

000207

022416
022420
022422
022424
022425

000000
000000
000000
000
000

022426
022434
022442
022444
022452
022453
022460
022461

047125
020054
000043
020054
000
054
000
040

104401
000000
104401
005702
001767
012204
012305
105725
100407
001403
013446
104405
000405
013446
104402
000402
013446

138:

000002

14%:

;BRANCH

149
(R2)+,R4
(R3)+,RS
(RS)+
18%
17%
a(R4)+,-(SP)

17%:

19%
a(R&)+,-(SP)

18%:

198
d(R4)
¢+ ,-(SP)

19%:

(R4)

208
16%

208:

.SCRLF

149

21s:
1STNMB:
ERRNMB:
BOTADR:
BOTFLG:
CHRCNT:

.
.
.
.

OO NN

el
d

N AN

nd
—ed

AN N N

END OF

HEADERS

;DATA WITH HEADER??
;NO!!

;R4 POINTS TO DATA ADDRESS
;RS POINTS TO FORMAT
:WHAT KIND OF DATA??

;BINARY
JOCTAL
;DECIMAL

;MORE DATA??

JNO!

sYES-TYPE 2 SPACES
;AND CONTINUE

;TYPE

ONE BLANK

LINE

;BEFORE NEXT HEADER

;TEST NUMBER
;ERROR NUMBER
sBEGINNING OF TEXT ADDRESS
:BOT FLAG
s CHARACTER COUNT

000043
052123

ERTYQOO:
ERTYQ1:

.
.

SUNIT#S
8, TESTM

051105

021522

ERTYOZ:

d.,

ERR#3

050040

036503

ERTYQ3:

a8,

PC=a

ERTYO4:

.EVEN

052111
042524

000040

TABLE

; CASSUME END OF DATA)

LERTYO4

104415

TO ERROR HEADER

;HEADER ADDRESS GOES HERE

022461
001217

POINTS

:PUT HEADER ADDRESS FOR TYPE

BEQ

16%:

104406

005714
001403
104401
000760
104401
000742

SEQ 0108

108

;R2 POINTS TO DATA ADDRESS TABLE
sR3 POINTS TO FORMAT TABLE

mov
Mov
Mov

15%:

001217

PAGE

;BRANCH IF NO HEADER
; CASSUME NO DATA)

8taQ
TYPE

001217
000004
000006
022326

;R1

mov

OOOOO

b
b
el

022274
022274
022300
022302
022306
022312
022316
022322

E
14:49
30A(1052)
05-APR-78
ERROR TYPEOUT ROUTINE

(VIV IV TV 1V TV IV IV 3V )

5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301
5302
5303

MACY11

ococoooo0rOrOrOrOOOCOOCOOCOOCOOCOOTPOTPOPOCPOPOOCOOTOONO

CZRMKAOQ RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
5325
5326
5327
5328
5329
5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352

5353

MACYTT

30A(1052)

05-APR-78

CLOCK SUBROUTINES
.SBTTL

14:49

PAGE 109

SEQ 0109

CLOCK SUBROUTINES

;ROUTINE TO SIZE FOR CLOCKS (KW11-L OR KW11-P)

sttt RRRERRRARAREARRRRRARRCERRRORARRRARORRORNAARRAANRARROARNOANNNARNNS

022464
022466
022472
022476
022504

000240
013746
013746
012737
012737

022512
022516
022524
022532
022540
022546
022554
022560
022562
022566
022570

005777
012737
012737
012777
012777
013777
005077
000454
012716
000002

022570
022576
022602
022610
022616
022624
022632
022640
022644
022646
022652
c22654

012737
005777
012737
012737
012777
012777
013777
005077
000422
012716
000002

5354
5355
5356
5357
5358
5359
5360
5361
022654
5362
022660
5363 022666
5364
022672
5365
022700
5366 022704
53675368
022712
5369 022712
5370 022716
5371
022722
5372
5373
5374
5375
022724
5376 022732
5377 022740
5378
5379 022742
5380

005037
012737
005037
012737
005037
062766

012637
012637
000207

000004
000006
022562
000300
156764

022724
023046
023012
000300
001516
156736

SIZCLK:

000004
000006

TST
Mov
MOV
MoV
Mov

001526
001530
156746
156742
156740
10%:

15%:

022646

000004

022742
023054
023012
000300
001510

001526
001530

156644

000002

Mov
CLR
BR
Mov

;s PUSH ERRVEC ON STACK
;. PUSH ERRVE(C+2 ON STACK
;LOAD 04 TRAP VECTORS

RTI

;TEST FOR P CLOCK
;LOAD SUBROUTINE ADDRESS
;LOAD STOP ADDRESS
;LOAD P CLOCK INTERRUPT VECTOR

#15%, (SP)

;DUMMY RTI ADDRESS
;RESTORE PRIORITY

INTERRUPT VECTOR

IF L CLOCK IS PRESENT-GO TO 208 IF NOT PRESET

Mov
TST

#20$ ,ERRVEC
aSLLCSR

;CHANGE 04 TRAP VECTOR
sTEST FOR L CLOCK

MoV
MoV

#LCLOCK,CLOCK
#LSTOP,STOP

;LOAD
:LOAD

SSLPVE(+2
308
#25%,(SP)

:OUMMY RT] ADDRESS

MoV
Mov
mov

208:

eSLPCSR
#PCLOCK,CLOCK
#PSTOP,STOP
#PCOUNT ,@SLPVEC
#PR6 ,ASLPVEC+2

SLLVEC+2,@8LLVEC;CLEAR L CLOCK
OSLLVEC+2
308

sNO P CLOCK-SEE

156670
156664
156646

022654

001526
001510
001510
001516
001516

ERRVEC,-(SP)
ERRVEC+2,-(SP)
#108 ,ERRVEC
#PR6,ERRVEC+2

;SEE IF A KW11-P CLOCK IS PRESENT - GO TO 108 IF NOT PRESENT

022570

156710

NOP
Mov
mov
Mov
MOV

CLR
BR
MoV
RTI

SUBROUTINE ADDRESS
STOP ADDRESS

#LCOUNT ,@SLLVEC ;LOAD L CLOCK INTERRUPT VECTOR
#PR6,ASLLVEC+2
SLPVEC+2,@8LPVEC;CLEAR P CLOCK INTERRUPT VECTOR

JRESTORE

PRIORITY

25%:
sNO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS
CLR
mov
CLR
Mov
(LR
ADD

001506

001514
000004

:
308

000006
000004

Mov

:?g

;ROUTINES

cLock
;CLEAR SUBROUTINE ADDRESS
#SLPVEC+2,SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR
SLPVE(C+?
#SLLVEC+2,SLLVEC;
CLEAR L CLOCK INTERRUPT VECTOR
SLLVEC+?
#2,4(SP)
;CHANGE RETURN ADDRESS

(SP)¢+ ERRVEC+?2

égP)*,ERRVEC

START

THE

CLOCK

:.POP

(KW11-L

;.POP STACK INTO ERRVEC(+2

STACK

INTO ERRVEC

KWi1-P)

MAAAAAARAAARRARRRR
AR
RARRRRRRRRdRRRRRRRiaRRRRRRtR
R
Rt
Rl )]

012777
012777
000403

000135

172777

156552
15654¢

PCLOCK:

012777

000100

156542

LCLOCK:

MOV

#-1,a8LPCSB

#135,a8LPCSR
PLCLK

;LOAD CONTROL REGISTER
;60O TO COMMON CODE

MOV

#100,a8LLCSR

;LOAD CONTROL REGISTER

Mov
BR

;LOAD

COUNT

SET BUFFER

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA P11
05~APR-78 14:38

5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
53N
5392
5393
5394
5395
5396
5397
5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5608
5409
5410
5411
5412
5413
5414
5415
5616
5417
5418
5419
5420
5421
5622
5423
5424
5425
5426
5627
5428
5429
5430
5431

5432
5433
5434
5435
5436

022750
022754
022756
022760
022764
022770
022774
022776
023002
023006
023010
023010

005037

104400

012605
010537
042705
022705
101005

012746
012746
000002

MACY11

001522

30A(1052)
O0S5-APR-78
CLOCK SUBROUTINES
PLCLK:

CLR
TRAP

TIME

MoV
MOV

001520
177437

000240
023010
:
308

000207

40%:

;:PUT NEW PC ON

STACK

;:POP

NEW P(C

AND

P(C

INTERRUPTS (KW11-L OR KW11-pP)

PCOUNT:

062737
103003
012737
162737

000021

001522

177777
000021

001522
001524

005037
000002

001524

100002

LCOUNT:

108:

20%:

ADD
8CC

#M7.,T1RE
108
#-1,TIME
#17. ,WATCH
208

MOV
SUB

BPL

CLR

;ADD 17MS TO ELAPSED TIME
;BRANCH IF NO OVERFLOW
JRESTORE MAXIMUM COUNT
;DECREMENT REMAINING TIME

;BRANCH IF POSITIVE

WATCH

RTI

JCLEAR REMAINING

JRETURN TO USER

JROUTINES TO STOP THE CLOCK

TIME

(kKW11=-L OR KW11-P)

023046
023052

000402

005077

156430

PSTOP:

(LR
BR

aSLPCSR
PLSTP

JSTOP P CLOCK
;GO TO COMMON STOP CODE

023054

005077

156432

LSTOP:

(LR

aSLLCSR

JSTOP L

013746
012746
000002

001520
023072

MOV
MOV

$PSW,-(SP)
#108,-(SP)

::PUT NEW PS ON STACK
;sPUT NEW PC ON
STACK

023060
023060
023064
023070
023072
023072

STACK

;:PUT NEW PS ON STACK

RTI

;ROUTINES TC HANDLE CLOCK
023012
023012
023012
023020
023022
023030
023036
023040
023044

;MASK X
;1S PRIORITY TOO HIGH??
JNO!!

#308,-(SP)

RTS

SEQ 0110

::SAVE THE PSW IN RS
;SAVE PRIORITY

# CPR7,RS
#PR6,RS
408
#PRS ,~-(SP)

MoV

110
:CLEAR TIMER COUNT
;;PUSH OLD PSW AND

(SP)+,RS
RS,8PSW

BIC
CMp
BHI
Mov

000300

9
PAGE

G
14:49

CLOCK

PLSTP:

108:

000207

.SBTTL

RT1

;;POP NEW PC

RTS

SET

VOLUME

;THIS SUBROUTINE
;RETURNING WITH

AND PS

VALID SUBROUTINE

INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID,

THE

DRIVE

STILL

IN DIAGNOSTIC

MODE.

THE

SUBROUTINE

JRETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR IS
:EETECTED. IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE
s

CALL.

TCALL:
;
023074
023074

JSR

ERROR

PCLSETVV

JUMP TO SUBROUTINE

RETURN HERE

RETURN WERE

IF NO ERROR
IF

ERROR

023102

?1%760
11160

00004C

000010

MoV
Move

#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)

;CLEAR THE MASSBUS
;SELECT UNIT

023106

012760

000001

000024

Mov

#DMD,RMMRT(RO)

;LOAD RMMRI

000010

CIZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452
5453

5454
5455
5456
5457
5458
5459
5460

MACY11

PAGE

SEQ 01N

111

023114

012760

001001

000024

Mov

#DMD . MUR,RMMR1 (RO)

023122

012760

000000

000014

Mov

#0,RMERT(RO)

;LOAD RMER?

023130

012760

000000

000042

Mov

#0,RMER2(RO)

;LOAD RMERZ

023136

012760

000023

000000

Mov

#PACACK'!GO,RMCST(RO)

023144
023152
023160
023162
023166
023174
023202
023206
023214
023222

016037
042737
001020
010037

000012
177677

001142
001142

Mov

RMDS(RO) ,$BDDAT

BIC
BNE

062737
012737

062716
112776
012737
000207

001136
000012
000100
000002
000100
000022

000000
001174

ADD

10%:

Mov
ADD
move
MoV
RTS

.SBTTL

SET OFFSET

;THIS

SUBROUTINE
THE
SETS.

;LOAD RMMR1

;LOAD RM(S1

;STORE

TCALL:

THE

JSR
BR

ERROR

023224

S$BDDAT

MODE

;BRANCH [F VOLUME VALID
;SETUP FOR ERROR MSG

;MOVE RETURN ADDRESS
;WRITE ERROR NUMBER

SET

TO ERROR

sRETURN

SUBROUTINE

EXECUTES AN OFFSET COMMAND AND VERIFIES
DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN

;MODE
sSUBROUTINE, WHICH WILL LEAVE DMD ON.
;WORD FOLLOWING THE CALL UNLESS THERE
RETURNS

RMDS

CVV,$BDDAT

108
RO,$BDADR
#RMDS, $SBDADR
#VV ,SGDDAT
#2,(SP)
#100,a(SP)
#PACACK,$TMPO
PC

Mov

001136
001140

5461
5462
5~o3
5464
5465
5466
5467

5468
5469
5470
547
5472
5473
5474
5475
5476
5477
5478
5479
5480
56481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492

30A(1052)
05-APR-78
14:49
SET VOLUME VALID SUBROUTINE

SECOND WORD

THAT OFFSET
CALLING THE

THE SUBROUTINE RETURNS TO THE
IS AN ERROR, IN WHICH CASE IT

FOLLOWING

THE

CALL

PC,SETOM

JUMP

RETURN HERE

TO SUBROUTINE

RETURN HERE

NO ERROR

ERROR

SETOM:

023224

012760

001001

000024

mMov

#DMD ' MUR,RMMR1 (RO)

023232

012760

000000

000014

Mov

#0,RMER1(RO)

;LOAD RMER1

023240

012760

000000

000042

Mov

#0,RMER2(RO)

;LOAD RMER?2

023246

012760

000015

000000

Mov

#OFFSET!GO,RMCS1(RO)

023254
023262
023270
023272
023300
023304
023312
023316
023324
023324

016037
042737
001015
012737
010037
062737
062716
112776

000012
177776

001142
001142

MoV

000001
00113¢
000012
000002
000111

001140

001136

MoV
MoV
ADD

000000

Move

#2,(SP)
#111,3(SP)

;MOVE RETURN ADDRESS
JWRITE ERROR NUMBER

RTS

SsRETURN

000207

8IC
BNE

A0D

10%:
.SBTTL

ENABLE

RMDS
(RO) ,$BODAT

;STORE

108

;BRANCH

COM,$BODAT

#0M,$GDDAY

;LOAD

RMMR1

:LOAD RMCS1
RMDS AT

S$SBDDAT

NFFSET ON

RO,$BDADR

#RMDS, $BDADR

SEARCH SUBROUTINE

TO ERROR

TO USER

""ttt'tt'i'"""i'"""it"t't"t"t'ttttttt"tt"t't't"'t"t'

023326

ENBSCH:

CIZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547

5548

30A(1052)
05-APR-78
14:49
ENABLE SEARCH SUBROUTINE
THE

:
;
:

9
PAGE 112

SEQ 0112

REGISTER OUTPUT BUFFER
SHOULD CONTAIN:
RMDAO
DESIRED SECTOR AND TRACK ADDRESS
RMDCO
DESIRED CYLINDER ADDRESS
FORMAT, ECI, HCI
RMOFO
RMBAO
BUFFER ADDRESS
RMWCO
WORD COUNT
FUNCTION CODE
RMCS10

;NOTE:

OFFSET

MAAAALAL AL AR

IS NOT
AR

ENABLED WHEN USING

THIS

SUBROUTINE

AR ARl
Rl iad ittt tiitds)

sSET VOLUME VALID
sFIRST,CLEAR -SET DIAGNOSTIC MODE-~SYNCHRONIZE
023326
023334
023340
023346

2760
1160

000040
000010

000010

012760
012704

000001
000041

000024

—

5493
5494
5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535

MACY11

:PROM SiROBE
Mov
Mmovs
MoV
Mov

#CLR,RMCS2(RO)

;CLEAR

THE

MASSBUS

(R1) ,RMCS2(RO)

;SELECT UNIT

#OMD,RMMR1
(RO)
#33. R4

;LOAD RMMR1
;ALLOW UP TO 33 BIT

CLOCLS

;70 SYNC PROM STROBE

023352
023352

012760

005001

000024

mov

#DMD !MUR'!MCLK
,RMMRT (RO)

LOAD RMMR1

023360

012760

001001

000024

Mov

#0OMD ! MUR,RMMR1 (RO)

:LOAD RMMR1

023366
023372
023376
023400
023402
023404
023410
023416
023422
023430
023434
023442
023446

016005
032705
001023
005304
001363
010037
062737
005037
012737
062716
112776
000137

000024
000040

MOV
BIT

RMMR1(RO) RS
z:C,RS
;WAIT

001136
000024
001142
000040
000002
000030
024204

001140

023446

012760

005001

023454

012760

001001

023462
023466
023472
023474
023476
023500
023504
023512
023520
023524

016005
032705
001423
0V5304
001363
010037
062737
012737
005037
062714

00002¢
000040

00 136
009024

090040

001140
000002

BNE
DEC
BNE

001136

.STORE RMMR1 AT RS
FOR PROM STROBE TO COME

RO,$BDADR

MoV
ADD

#RMMR1 ,$BDADR

CLR

$BDDAT

;PROM STROBE

WONT

SET

MoV
ADD
MOVB
JMP

#2,(SP)
#30,a(sSP)

000024

Mov

#0MD 'MUR!MCLK,RMMR1(RO)

;LOAD RMMR1

000024

Mov

#0MD ! MUR,RMMR1 (RO)

;LOAD RMMR1

MoV

RMMRT (RO) ,RS
;:C,RS

000000
6$:

BIT
BEQ
DEC
BNE

001136
001142

MOV
ADD
MoV

CLR
ADD

#WC,S$GDDAT

60$

;REPROT ERROR

;STORE RMMR1 AT RS
;WAIT FOR PROM STROBE

TO GO OFF

6%
RO, $BDADR

#RMMR1,$8DADR
#uC, $BDDAT

$GDDAT

#2,(SP)

:PROM STROBE WONT RESET
;

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576

5577

5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
5600

5601
5602
5603
5604

023530
023536
023542

112776
000137

000062
024204

MACY11

30A(1052)
O05-APR-78
14:49
ENABLE SEARCH SUBROUTINE

000000

Move
JMP

7%:

PAGE

SEQ 0113

113

#62,3(SP)

60%

;SECOND, CLOCK INDEX PULSE TO 1. CLEAR FORMAT CHANGE FLOP
2.

CLEAR RTC FLOP

023542

012760

001005

000024

MOV

#OMD :MUR'!M] ,RMMR1(RO)

;LOAD RMMR1

023550

012760

001001

000024

MOV

#0MD ! MUR,RMMR1 (RO)

;LOAD

023556

012760

000000

000014

MoV

#0,RMER1(RO)

;LOAD RMER1

023564

012760

000000

000042

Mov

#0,RMER2(RO)

;LOAD RMERZ2

023572

012760

000023

000000

MOV

#PACACK:GO,RMCST(RO)

023600
023606
023614
023616
023622
023630
023636
023642
023650
023656
023660

016037
042737
001021
010037
062737
012737
062716

000012
177677

001142
001142

MOV

RMDS(RO) ,$BDDAT

;STORE

RO,SBDADR
#RMDS ,$BDADR
#VV,SGDDAT
#2,(SP)
#100,3(SP)
#PACACK,$TMPO

;SETUP ERROR MSG

112776

012737
000552

001136
000012
000100
000002
000100
000022

BIC
BNE
MOV
ADD
MOV
ADD
MOVB
MOV

001136
001140
000000
001174
108:

:0§VV.$BDDAT

JVOLUME

;WRITE
:

RMMR1

;LOAD RMCS1

RMDS AT S$SBDDAT
VALID

SHOULD BE

SET

ERROR NUMBER

':itiififit""i'ifi"tfi"t"t'i"i".'tt'iittttttttt't'tttttttttttt

:LOAD REGISTERS
023660

013760

001410

000006

MoV

RMDAQ,RMDA(RO)

;LOAD RMDA

023666

013760

001436

000034

MoV

RMDCO,RMOC(RO)

;LOAD RMDC

023674

013760

001434

000032

MoV

RMOFO,RMOF
(RO)

;LOAD RMOF

023702

013760

001404

000002

mov

RMWCO,RMJC(RO)

;LOAD RMW(

023710

013760

001406

000004

MoV

RMBAO,RMBA(RO)

;LOAD RMBA

AAA

RSl

Ral iRt
R0 RRRXRE 2]

JENABLE DEBUG CLOCK AND LOAD FUNCTION CODE
023716

012760

041401

000024

mov

#0OMD ! MUR'DBEN'!MOC ,RMMR1 (RO)

023724

012760

000002

000014

mov

#0,RMERT(RO)

;LOAD RMER1

023732

012760

000000

000042

mov

#0,RMER2(RO)

;LOAD RMERZ

023740

013760

001402

000000

mov

RMCS10,RMCST(RO)

;LOAD RMMR1

sLOAD RMCS1

JoNtRRAARAIRERLAACRROERCOCROERNRELOARNORERORRNRIRCEAGCRAROANARACACRRORACRANTSE

023746
023754
023760

012737
004777

000310
155546

001524

;WAIT FOR "'RUN AND GO'' TO SET
MOV
#200.,WATCH
PC.8CLOCK
JSR

20$:

;SET WATCHDOG TIMER VALUE
:START

THE

CLOCK

CIZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38

5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616

5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629

5630
5631
5632
5633

5634
5635

5636
5637
5638
5639
5640
5641
5642
5643
5644

5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659

023760
023766
023774
023776
024002
024004
024010
024016
024022
024030
024034

016037
042737
001023
005737
001366
004777
012737
010037
062737
062716
112776

024042
024044
024044

000460

004777

000024
137777

MACY11

K
30A(1052)
O05-APR-78
14:49
ENABLE SEARCH SUBROUTINE

001142
001142

mov

BIC
BNE
TST
BNE
JSR

001524
155520
040000
001136
000024
000002
000101

001140
001136
000000

30%:

155460

024050
024054

012704

000021

024054

012760

141401

026062
024070
024072

012760
005304
001370

041401

114

SEQ 0114

;STCRE RMMR1 AT S$SBDDAT

RMMR1(RO) ,$BDDAT

CRG,$BDDAT

308

WATCH

JANY

MOV
Mov
ADD
ADD

#RG,SGDDAT

;SETUP ERROR MSG

MOVB

RO,$BDADR
#RMMRY SBDADR
#2,(SP)
#101,3(sP)

60%

JSR

MAAAL AR

9
PAGE

AAARRA

208
PC,asSTOP

TIME

LEFT?

sYES-WAIT
;STOP THE CLOCK

;WRITE

PC,a85TOP

ERROR NUMBER IN
;USER'S CALL -

;STOP THE CLOCK

RRRRRRRRRRdE

;STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS)
MoV

217, R4

000024

Mov

#DMD !MUR!DBEN'!MOC ! DBCK ,RMMR1(RO)

000024

MoV

#0MD ! MUR ! DBEN'!MOC,RMMR1 (RO)

DEC
BNE

R4
40$

40%:

AAARA Rl

;R4=CLOCK COUNT

;DROP ON CYLINDER TO RESET LATCH,
;TEST AT LOCATION 166
024074

012760

041001

000024

024102

012760

041401

000024

;LOAD RMMR1
:LOAD RMMR1

R Rttt
RRRRd] ]

THEN SET ON CYLINDER TO PASS

Mov

#DMD !MUR!DBEN
,RMMR1 (RO)

;LOAD

MoV

#DMD !MUR!DBEN'!MOC,RMMR1 (RO)

RMMR1

;LOAD RMMRI1

MPAAAAARAR AR AR ARl
Rttt RRRRRtRRRRRRRRREdd)

024110
024114

012704

000043

024114

012760

151401

024122
024130
024132

012760
005304
001370

051401

024134
024142
024150
024152
024156
024164
024172
024176
024204

016037
042737
001015
01€037
062757
012737
062716

000024
173777

112776

00113¢
000024

004000
000002
000102

;STEP SEQUENCER (35 CLOCKS) AND VERIFY SEARCH |S ENABLED
MOV

#35. R4

000024

Mov

#OMD ! MUR!DBEN.MOC!DBCK'!DTO,RMMR1(RO)

000024

MoV
DEC
BNE

#OMD !MUR'!DBEN!MOC!DTO,RMMRT
(RO)
R4

MOV

RMMR1(RO),$BDDAT
;STORE RMMR1 AT SBLDAT
gogESRC,$BDDAT
:SEARCH SHOULD BE ENABLED

50%:

001142
001142

BIC
BNE

001136
001140

000000

60%:
A

’

024204

000207

MOV
ADD
MoV
ADD
MOVB

RTS

COUNT

;LOAD

;LOAD RMMR1
RMMR1

50%

RO,$BDADR

#RMMR1,$BDADR
#ESRC,$GDDAT
#2,(SP)

#102,3(SP)

JRETURN TO USER

;R4=CLOCK

;SETUP ERROR MESSAGE
WRITE

ERROR NUMBER

]

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

MACY11

5660
5661
5662
5663
5664
5665

5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686

5687
5688

5689
5690
5691
5692

5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
5711
5712
5713
5714
5715

0S-APR-78

.SBTTL

SECTOR COMPARE

30A(1052)

14:49

PAGE

SUBROUTINE

115

SEQ 0115

SUBROUTINE

;SECTOR COMPARE SUBROUTINE
;THIS

SUBROUTINE

55209E¥?ERE

024206

CONTINUES

THE

EXECUTION OF

SEARCH HAS BEEN ENABLED

TO WHERE

DATA

(OMMAND

SECTOR

COMPARE

SCTCMP:
A

LSRR

ARSRaARRARRlR2RRsRdil20R

2222220222222

222

;SET INDEX PULSE TO CLEAR FORMAT CHANGE FLOP
024206

012760

051405

000024

024214

012760

051401

000024

024222
024230
024234
024240
024242

012737
004777
005737
001375
004777

000006
155272
001524

001524

026246

012760

051441

024254

012760

MoV

#DMD !MUR!DBEN'MOC!DTO!MI ,RMMR1T(RO)

sLOAD RMMR1

Mov
#DMD !MUR'!DBEN'!MOC'!DTO,RMMRT
(RO) ;LOAD RMMR1
;WAIT AT LEAST & MS FOR '‘RETURN TO CENTER LINE'' ONE SHOT TO SET

108:

Mmov
JSR

#6 ,WATCH
PC,a8CLOCK

sSET WATCHDOG TIMER VALUE
¢START THE CLOCK

WATCH

JSR

PC,aSTOP

000024

Mov

#OMD !MUR!DBEN'!MOC!DTO!MS,RMMRT (RO)

051401

000024

MoV

#OMD !MUR!DBEN!MOC!DTO,RMMR1(RO)

155262

BNE

108

.STOP

THE

CLOCK

:gé}A INPUT TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE
FLOP
:

sWITH SECTOR COMPARE HIGH,

:LOAD RMMR1

;LOAD

RMMR1

CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP

024262

012760

051403

000024

Mov

#DMD !MUR!DBEN'!MOC:DTO!MSC,RMMR1(RO)

:LOAD RMMR1

024270

012760

051443

000024

MoV

#OMD !MUR!DBEN'!MOC!DTO!MSC!MS
,RMMR1(RO)

;LOAD

024276

012760

051403

000024

Mov

#0OMD !MUR'!DBEN!MOC!DTO!MSC,RMMR1 (RO)

:LOAD RMMR1

024304

012760

051401

000024

MOV

#OMD !MUR'!DBEN'MOC!DTO,RMMR1
(RO)

024312

000207

JRETURN

TO USER
RTS
PC

AR AR

AAAAA

.SBTTL

R R

ALt R R R

ARl

SET LOOKING FOR SYNC

;LOAD RMMR1

A AN A E LR R R R R R R AN AN RN R R R ARR N RN

ARt

RMMR1

RRR

ittt

EES

ll])

SUBROUTINE

;THIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCER

JASSUMING SEARCH IS ENABLED,TO THE POINT WHERE '"'PLFS'' IS ACTIVE
024314

SETLFS:
%SgLSE BIT CLOCK UNTIL PROM STROBE

024314

SETS

024314

012760

055401

000024

MOV

#DMD 'MUR'DBEN'MOC!DTO'MCLK,RMMR1(RO)

024322

012760

051401

000024

MOV

#OMD !MUR'DBEN'MOC!DTO,RMMRY
(RO)

024330

016005

000024

MoV

RMMR1(RO) ,RS

:STORE RMMR1

;LOAD RMMR1

AT RS

CIZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
5716
g;}g

024334
024340

032705
001765

0€0040

3719
5720
5721

024342
024346

012704

000260

g;%%

024346

012760

055401

g;gg

024354

012760

051401

5726
5727
5728
5729
5730
5731
5732
5733
5734
5735
5736
5737
5738
5739
2;2?

024362
024366
024372
024374
024376
024400
024404
024412
026414

016005
032705
001010
005304
001363
062716
112776
000430

000024
002000

024414
024420
024424

016005
032705
001007

000024
000040

g;z%

024426

012760

055401

5744
5745
5746
5747
5748
5749
g;g?

024434
024442
024444

012760
000414

051401

024444
024450
024454

016005
032705
001407

000024
000040

g;g%

024456

012760

055401

5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768

024464
024472
024474
024474

012760
000764

051401

5769
5770
5771

000002
000035

MACY1?

30A(1052)

05-APR-78

14:49

PAGE 116

SET LOOKING FOR SYNC SUBROUTINE

#C,RS
108

mov

#176. R4

000024

MOV

#DMD 'MUR'DBEN'MOC'DIO'MCLK,RMMR1(RO)

000024

Mov

#DMD 'MUR'DBEN'MOC'DTO,RMMR1
(RO)

MOV
BIT
BNE
DEC
BNE
ADD
MOVB
BR

RMMR1(RO) ,RS
#PLFS,RS
308
R4
208
#2,(SP)
#35,8(SP)
508

JSET UP DATA SEQUENCER TO LOCATION 11, WHERE PLFS WILL SET
20$:

000000

;MAX NUMBER OF BIT CLOCK

. STORE RMMR1 AT RS
SEXIT IF PLFS
JERROR

H
;CANT SET PLFS

THE TRAILING EDGE OF PROM STORBE

000024

mMov

#MRI1AAA'MCLK,RMMRT(RO)

;LOAD RMMR1

000024

MOV

#MRT1AAA RMMRT (RO)

;LOAD RMMR1

MOV
BIT
BEQ

RMMR1(RO) ,RS
#W(,RS
508

000024

MoV

#MRIAAA'MCLK,RMMRTI(RO)

:LOAD RMMR1

000024

MOV

#MR1AAA,RMMRT(RO)

sLOAD RMMR1

RTS

JEXIT

50%:
.SBTTL
NP

408

CLOCK
AR

;STORE

508

SYNC
RS

IS SET

COUNT EXHAUSTED

RMMR1(RO) ,RS
#WC RS
408

:
408

;LOAD RMMR1

MOV
BIT
BNE

RMMR1

;STORE RMMR1

AT RS

024476
024502
024506

SUBROUTINE
R Rttt
i ittt
iRttt litl )

JVERIFY THAT ''PLFS'' IS ON

000024
002000

Mov

BIT

BNE

RMMR1 (RO) ,R4

:STORE RMMR1

108

;BRANCH IF

#PLFS, R4

AT Ré

.LOOK FOR SYN SET ?
SO

64
64
64
641
641
64
641
64
64
641

64
64
641
64
64
64
64
64
64
64
64
64
64
/

CLKSNC:

016004
032704
001023

64i
64
64
64
641
64
641
64:
64
64
64
64!
64
64
64
64

;THIS SUBROUTINE WILL SIMULATE THE HEADER AND DATA SYNC
;PATTERN BEING READ
024476

CIRM
CZRM

64’

BIT
BEQ

308:
;STEP THE MAIN REG CLOCK UNTIL
: 1S DETECTED.

000207

SEQ 0116

64
64
64
641
64
64
64
64
64
64
64
64
64
64

CZRMKAO RMO03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

5772
5773
ST74
5775
5776
5777
5778
5779

5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
579N
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822

024510
024514
024522
024530
024534
024542
024546
024554
024556
024562
024566

010437
042737
012737
010037
062737
062716

024570

012760

055401

024576

012760

051401

024604
024610
024612

016004
005305
001363

000024

024614
024620
024626
024632
024636
024644
024650

010437
042737
005037
010037
062737
062716

001142
177737
001140
001136
000024
000002
000062

112776
000466
012705
032704
001434

112776

024656

000425

024660
024664
024672
024676
024700
024702
024704

012704
012737
012705
000241
006004
102002
052702

024660

001142
175777

002000

001136
000024

000002
000035

014400
000020
055401

N
30A(1052)
05-APR-78
14:49
CLOCK SYNC SUBROUTINE

001142
001140

001136
000000

000021
000040

10%:
20%:

MoV
BIC
Mov
MOV
ADD
ADD
MOovB
BR

SEQ 0117

PAGE 117

R4,$BDDAT

64¢
64¢

RO,$BDADR

#RMMR1,3$BDADR
#2,(SP)
#35,8(SP)

60%

£17.,RS

sMAKE

SURE PROM STROBE

#WC R4

000024

MOV

#MRIAAAIMCLK ,RMMRT(RO)

;LOAD RMMR1

000024

MoV

#MRTAAA RMMRT (RO)

;LOAD RMMR1

MoV
DEC

RgHR1(R0),R4

BNE

208

Mov
BIC

R4 ,$BODAT

001142

CLR

MoV
ADD
ADD
MovB

001136
000000

024734

40%:

MOV
cLc
ROR
BCC
BIS

;STORE

RMMR1

AT R4

ERROR CAN'T RESET PROM STROBE WITH LFS ACTIVE
;SETUP ERROR

FOR USER

(W(,$BDDAT

$GODAT
RO,$BDADR

#RMMR1,$BDADR

#2,(SP)
#62,3(SP)

#014400,R4
#16.,708
#MRIAAAMCLK,RS
R

50%

THROUGH THE

SHIFT REGISTER

;STROBE BIT COUNT
;GENERATE REG VALUE

;WITH MAINTENANCE CLOCK ON

#MRD RS

;SET

READ BIT PER PATTERN BIT

:
508

024714

010560
042705

000024
004000

MOV

8IC

RS.RMMR1(RO)
#MCen RS

:LOAD RMMR1
;CLOCK ONE BIT

024720
024724
024730

010560
005337
001360

000024
024734

Mov

RS.,RMMR1(RO)

;LOAD RMMR1

024732
024734

IS OFF

308

BR
608
30$:
;CLOCK THE SYNC PATTERN (00011001)
MOV
MOV

000207
000000

DEC
BNE

708
408

;CAN'T VERIFY SYNC CLOCK WAS DETECTED

;USER CAN DO SO BY STEPING
;8IT CLOCK AND VERIFY PROM STROBE SETS WITHIN ONE WORD TIME

60$:

70%:

RTS

.WORD

CIRM
CZRM

# CPLFS,$BDDAT
#PLFS,SGDDAT

MOV
BIT
BEQ

002000

024710

MACY11

; TEMPORARY STORAGE

CZRAKAOQ RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38
5823
5824
5825

5857

5858
5859
5860
5861
5862
5863

5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878

B 10
05-APR-78 14:49 PAGE 118
SAVE AND RESTORE RO-R5 ROUTINES

30A(1052)
.SBTTL

SEQ 0118

SAVE AND RESTORE RO-R5 ROUTINES

MR AARAAAAARAAAAARARARAARAARAARRRARRRAAARARRRRRRRRRRRRRR
R R )

;*SAVE RO-RS

5826

5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856

MACY11

s*CALL:

SAVREG
;*UPON RETURN FROM $SAVREG THE

STACK WILL LOOK LIKE:

* %

;+TOP=-==(+16)

it $2---(+18)

;v
;v

#4--=RS
+6---R4

;v +8--<R3
;*+10---R2

s*+12-=-=R1
;*+ 4---R0

024736
024736
024740
024742
024744
024746
024750
024752
024756
024762
024766
024772

024774

024774
025000
025004
025010
025014
025016
025020
025022
025024
025026
025030

$SAVREG:

010046
010146
010246

010346
010446
010546
016646
016646
016646
016646

000002

012666
012666
012666
012666
012605
012604

000022
000022
000022
000022

Mov
Mov

mov
Mov
mov
MoV
Mov
Mov
mov
RTI

.SBTTL
A

AAL

BINARY

AR AR A

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)¢+,RS
(SP)+,R4
(SP)+,R3
(SP)
¢+ ,R2
(SP)+,R1
(SP)+,R0
TO ASCII

AR ARl

STACK

;s PUSH R3 ON STACK

22(SP) ,-(SP)
22(SP) ,=(SP)
22(SP) ,~-(SP)
22(SP) ,=(SP)

;*RESTORE RO-RS
seCALL:
%
RESREG
SRESREG:
MoV

000002

s sPUSH R1

2 sPUSH R2 ON STACK

R5,=(SP)

RTI

012603
012602
012601
012600

: sPUSH RO ON STACK

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)

mov
Mov
mov
mov
MoV
MoV
Mov
Mov
Mov
Mov

AND TYPE
Rl

: sPUSH R4 ON
;s PUSH RS ON
;s SAVE PS Of
;s SAVE PC OF
;s SAVE PS OF
;s SAVE PC Of

STACK
STACK

MAIN FLOW
MAIN FLOW
CALL
CALL

s ;RESTORE
;sRESTORE
2 :RESTORE
:;RESTORE

PC OF CALL
PS OF CALL
PC OF MAIN FLOW
PS OF MAIN FLOW
;2 POP STACK INTO RS

;:POP STACK INTO
;. POP STACK INTO
JsPOP STACK INTO
;:POP STACK INTO
:POP STA'K INTO

R4
R3
R2
R1
RO

ROUTINE

22022

002222020

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT 3INARY NUMBER TO A 16-BIT
;*BINARY=ASCII NUMBER AND TYPE IT.

JeCALL:
S

[

025032
025034

010146
016601

000006

$TYPBN:

mov
TYPBN

NUMBER,-(SP)

Mov
mov

R1,-(SP)

6(SP),R1

::NUMBER TO BE TYPED

2 TYPE

:SAVE R1 ON THE STACK
;:GET THE INPUT NUMBER

2
(2

5907

5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921

5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934

000004

28:

$BIN:
LSBTTL

000

CONVERT BINARY

:sRETURN TO USER
;: STORAGE FOR ASCII CHAR. AND TERMINATOR

TO DECIMAL AND TYPE

ROUTINE

M AAAARAARARAAAAARAAAARARARRRRRAARAARRRARRRR
R0
RRRRdRRRRR Rl d ]

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
J*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

s*CALL:
.-t
:t

0251006
025106
025110
025112
025114
025116
025120
025124
025130
025132
025134
025142
025144
025150
025154
025156
025162
025164
025166
025170
025172
025174
025176
025200
025202
025204
025206
025210
025216
025222
025226

$TYPDS:

010046
010146

010246

010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105
002402
005202

000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223

nov
TYPDS

NUR,
- (SP)

;;PUT THE BINARY NUMBER ON THE STACK
;:60 TO THE ROUTINE

MoV
MoV

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
RS,=(SP)
#20200,-(SP)

:sPUSH RO ON STACK
:;PUSH R1 ON STACK
::PUSH R2 ON STACK
;;PUSH R3 ON STACK
::PUSH R5 ON STACK
:sSET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER

MoV

020200
000020
000055

000001

025322
000040

1%:

2s:

025312

38:

4%:

Mov
mov
MoV
MoV
8PL
NEG
Move

CLR

mov
move

CLR

Mov

SuB
BLT
INC
BR

20(SP)
RS

19
R5
#'-,1(5P)
RO
#3$DBLK,R3

' ,(R3)+
R2
SOTBL (R0O) ,R1
R1,R5
43

BNE

5%:

000001
000060
000040

177777
7$:

1ST8
BMI
ASLB

B8CC
MOVB
BIS
BIS
MovB

::BR IF INPUT IS POS.
;;MAKE THE BINARY NUMBER POS.
;:MAKE THE ASCI] NUMBER NEG.

;. JERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;;SET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER
::GET THE CONSTANT

;.FORM THIS 8CD DIGIT
;:BR IF DONE
;: INCREASE THE BCD DIGIT BY 1

;s ADD BACK THE CONSTANT

ADD
TST

1(SP),-1(R3)

#'0,R2
»" R

R2,(R3)+

;:;CHECK IF BCD DIGIT=0
;:FALL THROUGH IF 0
::STILL DOING LEADING 0°'S?
::BR IF YES
;. ASD?
.:BR IF NO

;s YES=--SET THE SIGN
;.MAKE THE BCD DIGIT ASCII
soMAKE IT A SPACE IF NOT ALREADY

e
S

;sPOP THE STACK INTO R1
;s ADJUST THE STACK

0,0

;.60 TYPE THIS BIT
;:CLEAR ''C'" SO CAN KEEP TRACK OF BITS
;;60 DO THE NEXT BIT

.BYTE

RT1

::NO=-=SET THE CHARACTER EQUAL TO THIS BIT

1%
(SP)+,R1
2(SP),4(SP)
(SP)+, (SP)

,$BIN

:;GET THIS BIT
. ;DONE?

CLC
BR
MoV
mov
MoV

TYPE

;:SET 'C'" SO CAN KEEP TRACK OF THE NUMBER OF BITS
;:SET CHARACTER TO AN ASCII ''0'.

000062

#'0,3BIN
R1
2%
$BIN

025104
025104

SEC
MOVB
ROL
8eQ
ADCB

A DIGIT

;;PUT THIS CHARACTER IN THE OUTPUT BUFFER

1%:

025104

€2
2

025060
025064
025066
025070
025072
025100
025102
025104

000060

SEQ 0119

025052
025054

000261
112737
006101
001406
105537
104401
000241
000765
012601
016666
012616
000002
000

119

025040
025042
025050

c 10
30A(1052)
14:49
PAGE
05-APR-78
BINARY TO ASCII AND TYPE ROUTINE

5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906

MACY11

-_—

CZRMKAOQ RMO3/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38

TYPE

000004

MoV

$OBLK:
.SBTTL

2(SP) ,4(SP)

mov
RTI

(SP)+, (SP)

THE

NUMBER

:sADJUST

THE

;:RETURN

TO USER

¥
¥
¥
¥
Ve
e
e
Ve
N
Ve
Y
e Ve

INTO R2
INTO R1
INTO RO
STACK

10000.
1000.
100.
10.

TYPE

:sNOW

;.POP STACK
;:POP STACK
::POP STACK

$OTBL:

.$0BLK

(SP)+,R2
(SP)+,R1
(SP)+,RO

MoV
Mov
Mov

INCREMENTING

;. CHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
::60 TO EXIT
::GET THE LSD
;.60 CHANGE TO ASCI!I
:sWAS THE LSD THE FIRST NON-ZERO?
::BR IF NO
;s YES==-SET THE SIGN FOR TYPING
::SET THE TERMINATOR
:.POP STACK INTO R5
;:POP STACK INTO R3

9%:

;s JUST

RO.#10
2%
8s
R5,R2
6%
(SP)+
9s
=1(SP),-2(R3)
(R3)
(SP)+,RS
(SP)+,R3

025322
000002

177776

(RO)+

cmp
BLT
BGT
Mmov
BR
TSTB
8PL
movs
CLRB
Mov
Mmov

ROUTINE

e Ve

8s:

TYPE

TST

000010

177777

TO DECIMAL AND

czs

105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

CONVERT BINARY

SEQ 0120

.BLKW
BINARY

&
TO OCTAL

005720
020027
002746
003002
010502
000764

0D 10
14:49
PAGE 120

O05-APR-78

(ASCII)

AND

TYPE

025230
025232
025236
025240
025242
025244
025246
025250
025252
025260
025262
025264
025266
025270
025272
025274
025300
025306
025310
025312
025314
025316
025320
025322

30A(1052)

PNt R

RN L

TO CHANGE

PPN A RN

RN AR

16-BIT BINARY NUMBER

RERY

IS USED

TO A 6-DIGIT

;*OCTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
MOV

NUM,-(SP)

; :NUMBER T0O BE

.BYTE

;:N=1

M
M

]

;:M=1

TO TYPE

QUT WITH

;:1=TYPE LEADING ZEROS
; ;0=SUPPRESS LEADING ZEROS

THE

SAME

PARAMETERS

;¥
i

M
A

025332
025336
025344
025350
025354
025356
025364

017646
116637
112637
062716
000406
112737
112737

000000
000001

025555

000001
000006

2555 5
2555 7

025557
000002

TYPON

MOV
TYPOC

$TYPOS: MOV

MOVB
Move
ADD

$TYPOC:

THE

LAST

mMov

NUM,-(SP)

:;NUMBER TO BE TYPED

s CALL FOR TYPEOUT

:':;YPOC-°-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:

;*$TYPOS OR $TYPOC

s*CALL:

T0 6 FOR NUMBER OF DIGITS TO TYPE

0RO

*$TYPON---~ENTER HERE

TYPED

TYPEOUT

FOR

e N e

.BYTE

;:CALL

TYPOS

e N e N e

seCALL:
o %

e Y e

ROUTINE

B8R

MOVB
Movs

NUM,-(SP)

s NUMBER TO BE TYPED
;. CALL FOR TYPEOUT

a(SP),=-(SP)

;:PICKUP THE MODE

1(SP),$0FILL
(SP)+,S0MODE+1
#2,(SP)

;:LOAD ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE
;sADJUST RETURN ADDRESS

#1,80FILL
#6,30MODE +1

::SET THE ZERD FILL SWITCH
;2SET FOR SIX(6) DIGITS

$TYPON

s*THIS

e W

o N a

5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990

MACYT1

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38

6019

6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046

105337
100016

042703
001002
005704
001403
005204
052703
052703

110337
104401
105337

003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

000005

025554

$STYPON:

025557
000006
025556
025555
000012
1%:

2s:

3s:

025556
177770

4% :

000060
000040
025552

5%:

025552
025554

7%:

6%:

000002

000004
8%:

MOVB

mov
Mov
mov
MOvVB
NEG
ADD
MOVE
MOVB
MoV

CLR

ROL
BR

ROL

ROL
ROL
MoV

ROL

DECB
BPL
BIC
BNE
TST
BEQ
INC

BIS
BIS
ROVB
TYPE
DECB
8GT

BLT
INC
BR
MOV

MoV
MOV
mov
MoV
RTI

.BYTE

;;SET THE ITERATION COUNT

#5,300NT

R3,-(SP)

R4 ,~(SP)
R5,=-(SP)
$OMODE+1,R4
R4
¥6.R4
R4, $OMODE
$OFILL,RG
12(SP) RS
R3
RS

RS5,R3

;:60 DO MSB
;:FORM THIS DIGIT

;:BR

THIS

THIS DIGIT

DIGIT?

YES

:;DON'T SUPPRESS ANYMORE 0°'S
;sMAKE THIS DIGIT ASCII
JsMAKE

ASCII

NOT

ALREADY

;3SAVE FOR TYPING
;:;G0 TYPE THIS DIGIT
;s COUNT BY 1
;;BR IF MORE TO DO
;:BR IF DONE
;: INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;:RESTORE RS
; ;RESTORE R4
::RESTORE R3
:sSET THE LTACK FOR RETURNING

R3,8%

,8%

$SOCNT

2%
63
R4

2%
(SP)+ RS
(SP)+,R4

{SP)+ ,R3
2(SP),4(SP)
(SP)+,(SP)

LR R R AN AR N C N

;;ROTATE MSB INTO ''C*

;;TEST FOR O
; :SUPPRESS THIS 0?

RN TR

J:SUBTRACT IT FOR MAX. ALLOWED
J:SAVE IT FOR USE
J:GET THE ZERO FILL SWITCH
:.PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD

;:BR IF NO
;:GET RID OF JUNK

R4
#'0,R3
#' _R3

SRR

;:GET THE NUMBER OF DIGITS TO TYPE

;:TYPE

.BYTE
.BYTE
.BYTE
.WORD
TYPE ROUTINE

;:SAVE

;:GET LSB OF

$SOMODE
7%
#177770,R3
43

$OCNT:
$OFILL:
$OMODE:
.SBTTL

;:SAVE R3
;:SAVE R4

s sRETURN
;:STORAGE FOR ASCII DIGIT
;:TERMINATOR

FOR

TYPE

ROUTINE

;;0CTAL DIGIT COUNTER
;;IERO FILL SWITCH
; :NUMBER OF DIGITS TO TYPE
RO E

R RN N RO

R ERARNEARNRRNRARRRCRARNNRARDY

*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTED:
J*NOTEZ:

Jt*NOTES:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

SeCALL:

;*1) USING A TRAP [NSTRUCTION

clt
cZi
YWa

112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103

SEQ 0121

121

¥a

025372
025400
025402
025404
025406
025412
025414
025420
025424
025430
025434
025436
025440
025642
025444
025446
025450
025452
025454
025460
025462
025466
025470
025472
025474
025476
025502
025506
025512
025516
025522
025524
025526
025530
025532
025534
025536
025540
025546
025550
025552
025553
025554
025555
025556

E 10
14:49
PAGE
30A(1052)
05-APR-78
BINARY TO OCTAL (ASCII) AND TYPE

5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018

MACY11

OOO0O0O

CZRMKAQO RM03/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38

6097
6098

6099
6100
6101
6102

. MESADR

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
13

;s 1S THERE A TERMINAL?
;:BR IF YES

TYPE

MESADR

105737
100002

000000
000430
010046
017600
122737
001011
132737
001405
010037
004737
000000
132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716

001006
005726
104401
001217
105037
000755
004737
123726
001350
013746

001173

$TYPE:

1%:

000002
000001

001242

000100

001243

025630
030456
000040

T1ST18B

BPL
HALT
BR
MoV
MOov

CMPB
BNE
BIT8
BEQ

MOV

001243

BITB

2%:

MOVB

000002

60%:
3%

000011

A ¥

000200

026036

025772
001172

JSR
.WORD

61%:
62%:

5%:

6%:

001170

BNE

RO,-(SP)

82(SP) ,RO

025560
025564
025566
025570
025572
025574
025600
025606
025610
025616
025620
025624
025630
025632
025640
025642
025644
025646
025650
025652
025656
025660
025664
025666
025672
025674
025676
025700
025702
025706
025710
025714
025720
025722

®,

;HALT HERE

;LEAVE

NO TERMINAL

;:SAVE RO

;:GET ADDRESS OF ASCIZ STRING
FAPTENV,SENV
:;RUNNING IN APT MODE
629
:NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM
;SPOOL MESSAGE TO APT
62%
¢NO,GO CHECK FOR CONSOLE
RO,61%
;SETUP MESSAGE ADDRESS FOR APT
8C.'\TV3
:: SPOOL MESSAGE TO APT
#APTCSUP,SENVM

608
(RO)+,-(SP)

; ;MESSAGE ADDRESS

;;APT

CONSOLE

SUPPRESSED

;s YES,SKIP TYPE OUT
;:PUSH CHARACTER TO BE TYPED ONTO STACK
;:BR IF IT ISN'T THE TERMINATOR
1F TERMINATOR POP IT OFF THE STACK
;.
; ;RESTORE RO
:sADJUST RETURN P(

Mov
ADD

43
(SP)+
(SP)+,RO
#2,(SP)

CMPB

#HT, (SP)

CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR

#CRLF, (SP)

;;BRANCH IF NOT <CRLF>

(SP)+

<CR><LF> EQUIV
::POP
;:TYPE A CR AND LF

SCHARCNT

;s CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
;1S IT TIME FOR FILLER CHARS.?
;:JF NO GO GET NEXT CHAR.
;GET # OF FILLER CHARS. NEEDED
:AND THE NULL CHAR.
;DOES A NULL NEED TO BE TYPED?
;:BR [F NO--GO POP THE NULL OFF OF
;.60 TYPE A NULL
::D0 NOT COUNT AS A COUNT
;.LO0P

BNE
TST

RTI

BEQ

JSR

(MPB
BNE
MoV

;s sRETURN

PC,STYPEC

SFILLC,(SP)+

$NULL,-(SP)

;:BRANCH IF <HT>

025726
025732
025734
025740
025744

105366

002770
004737
105337
000770

000001

7%:

025772
026036

DECB

BLTY

JSR
DECB
BR

1(SP)

6%
PC.STYPEC
SCHARCNT
78

JHORIZONTAL TAB PROCESSOR
025746
025752
025756
025764
025766
025770
025772

112716

004737
132737
001372

005726
000724

105777

000040
025772
000007

8%:
026036

9¢:

MOvVB

JSR
BITB
BNE
TST

153166

$TYPEC:

BR
TSTB

P ,(SP)
PC,STYPEC
#7,8CHARCNT

9%
(SP)+
2%
asTPS

;REPLACE TAB WITH SPACE

;s TYPE

A SPACE

;BRANCH IF NOT AT
:TAB STOP
;.POP SPACE OFF STACK
;sGET NEXT CHARACTER
;sWAIT UNTIL PRINTER IS READY

STACK

TYPE

Yo Yo Yo Xeo Vo Wo Wo We We Wo Ve Yo Vo Wo Vo Vo No Yo Neo Yo Yo Yo Yo Neo Yo Vo We No Wo ¥eo Vo Wo FNo No Vo Wo Yo No Wo No No No Yo 3

o
;*0OR
H

ROUTINE

CZR

[

TYPE

SEQ 0122

122

6076
6077
6C78
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096

05-APR-78

6075

30A(1052)

6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074

MACY11

()

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRPKA.P11
05-APR-78 14:38

F 10
14:49

6131

6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144

6145

6146

6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158

025776
026000
026006
026014
026016
026022
026024
026032
026034
026036
026040

100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

000002
000015

ROUTINE

000002

8PL

$TYPEC

(mPB
BNE
CLRB
BR
(MPB
BEQ

#CR,2(SP)
1%
SCHARCNT
$TYPEX
#LF ,2(SP)
$TYPEX

mMovs

153160
000002

026036
000012

14:49

1%:

2(SP).,a$1PB

INCB
$CHARCNT: .WORD
$TYPEX: RTS
.SBTTL

PAGE

SCOPE

123

SEQ 0123

;:LOAD CHAR TO BE

TYPED INTO DATA REG.

::1S CHARACTER A CARRIAGE RETURN?
;;BRANCH IF NO
;s YES==CLEAR CHARACTER COUNT
JEXIT
;1S CHARACTER A LINE FEED?
;:BRANCH IF YES

(PC)+
O
PC

;s COUNT THE
s CHARACTER

CHARACTER
COUNT STORAGE

HANDLER ROUTINE

N AAALREAAMAAARALAAAARAARRARRARRRRRRARRdRRR
R
R RdtlRR Rt ldldd

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE

SWITCH

;*SW16=1
;*SW11=1
; *SW09=1
:*SW08=1
s+CALL
it
026042
026042
026044
026052

032777
001131

026054

000416

026056
026062
026070
026074
026100
026102
026104
026110
026112
026112
026120
026122
026124
026130
026132
026136
026140
026144
026146

013746
012737
005737
012637
000500
022626
012637
000440

000004
026102
177060
000004

032777
001421

000400

026150
026154
026160
026162

104410

005046
117716
001414
022716
002411
011637

005316
006316
062716
013637
000466
005726

:
$SCOPE

040000

153102

1$:

000004

5%:

000004
153034

CKSWR
BIT
BNE

XOR

(SP)+,(SP)+

$SVLAD

(SP)+ ,Q#ERRVEC

B8R

8IT
BEQ

#BIT08,3SWR
23

MOvVB
BEAQ
cmp

aSWR, (SP)
8s
#24,(SP)

CODE

FOR THE

=(SP)

(SP),$TSTNM
(SP)
(SP)

#3$SWCBTBL,
(SP)

$OVER

a(SP)+,SLPADR

(SP)+

TESTER#ZANNN

RUNNING ON THE

'‘XOR'' TESTER CHANGE

;THIS INSTRUCTION TO A ''NOP'' (NOP=240)
;;SAVE

THE

CONTENTS OF

THE

;sSET FOR TIMEOUT
::TIME OUT ON XOR?
. ;RESTORE THE ERROR VECTOR

ERROR

VECTOR

::GO TO THE NEXT TEST
;s CLEAR THE

;;RESTORE

STACK AFTER A TIME OUuT

THE

ERROR VECTOR

:.LOOP ON THE PRESENT TEST

XOR TESTER##NAN

ADD

TSt

ARE:

;s TEST
FOR CHANGE IN SOFT-SWR
::LOOP ON PRESENT TEST?
;. YES IF SW14=1
;:IF

cMP

Mov

8$:

THE

#5% ,8FERRVEC
a#177060
(SP)+ Q#ERRVEC

Mov
DEC
ASL

026354
001122

FOR

MOV
TST
MOV

BLY

001116

CODE

@FERRVEC,-(SP)

CLR

000024

#BIT14 ,3SWR
$OVER

Mov

mov

ROUTINE

;:SCOPE=]0T

B8R

THIS

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

68 :;#¥XNNEND OF

153024

PROVIDED BY

LOOP ON
INHIBIT
LOOP ON
LOOP ON

SCOPE

SAARRASTART

$XTSTR:

OPTIONS

::LOOP ON SPEC.
;:BR IF NO
:sCLEAR A TEMP.

TEST?
LOCATION

::PICKUP THE DESIRED TEST NUMBER
:;BRANCH IF BAD TEST NUMBER [N SWR
;s CHECK THE NUMBER IN THE SWR
:;BRANCH IF

TEST NUMBER

IS OUT OF

;;UPDATE THE TEST NUMBER
:;BACKUP BY ONE
;:SCALE THE TEST NUMBER AS AN

;;FORM THE ADDRESS OF
;;SET

LOOP ADDRESS

;.60 LOOP ON THE

INDEX
TEST POINTER

TO DESIRED

TEST

RANGE

TEST

;;CLEAN THE BAD TEST NUMBER OFF OF

THE STACK

CIR
~

TYPE

G 10

O05-APR-78

P 4

30A(1052)

ocooccooOrOrOrOrO0rOrOrOrOOrOrOOCOOOCOOCOOCOOCOROOCOOCOCOOCCOCOOCTOTOCOOCOCOOCOOCOOCOCOCOCTOTOOCOTOTOO

6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130

MACY11

[gn]

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA P
05~APR-78 14:38

6164

6165

6166

6167
6168
6169
6170
61N
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214

026164
026170
026172
026200
026202
026210
026212
026220
026222
026226
026232

026234

026242
026244
026250
026252
026256
026264
026266
026274
026302
026306
026314
026320
026324

026330
026336

026344

026350

026352
026354
026354
026356
026360
026362
026364

026366
026370
026372
026374
026376
026400
026402
026404
026406
026410
026412
026414
026416
026420
026422

105737
001421

001117
001131

001117

032777
001404
013737
000446

001000

1527644

001124

001122

123737
101015

105037

005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
000012

004432
005006
005226
005442
005630
006766
010146
010326
010450
010750
011336
011762
012346
013060
013520
013772
014514
015474
016744
020170

2%:

001117
001206
004000

152712

1S18
BEQ
(MPB
BHI

000001
026352
001116
001116
001122
001124
001210
000001
001116
001122

001226

001131

152612

$ERFLG
33
SERMAX,SERFLG
3s

;:HAS AN ERROR OCCURRED?
;:BR IF NO
;;MAX. ERRORS FOR TH]IS TEST OCCURRED?
;:BR IF NO

43
:BPE:R.SLPADR

;:BR IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

#B1T09,a5WR

7%:

BEQ
ggv

4% :

CLRB

SERFLG

J:2ETC

BIT
BNE
TST
BEQ
INC

#BIT11,3SWR
1%
$PASS
1%
$ICNT

:;INRIBIT ITERATIONS?
;;BR IF YES
;:1F FIRST PASS OF PROGRAM
M5
INHIBIT ITERATIONS
;:INCREMENT ITERATION COUNT

BGE

SOVER

(LR
BR

3%:

001120
001120
001206

CmpP

1%:
$SVLAD:

MoV
mov

INCB

MOVB
mov
MoV

CLR

$SOVER:

MOVB
MoV
mov

$TIMES
1

;:BR

#1,81CNT
SMXCNT,STIMES

JTERATIONS MADE

ITERATION REQUIRED

JREINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO

STSTNR

:;COUNT

STSTNM STESTN

TEST NUMBERS

J:SET TEST NUMBER IN APT MAILBOX

(SP),SLPADR
(SP) ,SLPERR

SESCAPE

SCOPE LOOP ADDRESS
ERROR LOOP ADDRESS
;;CLEAR THE ESCAPE FROM ERROR ADDRESS

$TSTNM,3D1SPLAY
SLPADR, (SP)

;;DISPLAY TEST NUMBER
;;FUDGE RETURN ADDRESS

#1,SERMAX

::SAVE
;sSAVE

:;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;:FIXES

;:MAX.

NUMBER OF

ITERATIONS

.WORD
.WORD
.WORD

::STARTING
;:STARTING
;sSTARTING
;:STARTING
;:STARTING
;:STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST

1
2
3
&
S
6

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

TST10+2
TST1142
TST12¢2
TST13+2
TST1442
TST15¢2
TST16+2

;STARTING
s STARTING
;:STARTING
;:STARTING
;:STARTING
;;STARTING
;:STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST

10
11
12
13
14
15
16

.WORD
.WORD
.WORD

TST20+2
TST21+42
TST22+2

WORD

TST24+2

.WORD

;sCHECK THE NUMBER OF

TST1+2
TST2+2
TST3+2
TST4+2
TSTS+2
TST6+2

.WORD

.SBTTL

THE ERROR FLAG

;:;CLEAR THE NUMBER OF ITERATIONS TO MAKE
::ESCAPE TO THE NEXT TEST

STIMES,SICNT

RTI

SMXCNT: 10.
$SWO8TBL:
.WORD
.WORD

;:LOOP ON ERROR?

TST7+42

TST17+42

TST123+2

ERROR HANDLER ROUTINE

;:STARTING ADDRESS OF TEST 7

;:STARTING ADDRESS OF TEST 17
;:STARTING ADDRESS OF
:STARTING ADDRESS OF
;sSTARTING ADDRESS OF

TEST 20
TEST 21
TEST 22

;STARTING ADDRESS OF

TEST 24

;:;STARTING ADDRESS OF TEST 23

AR RS0l
02 23200220282

;*THIS

ROUTINE

WILL

INCREMENT

THE

ERROR

FLAG

AND

J*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF

THE

ERROR

COUNT,

THE ERROR CALL

(IR

SEQ 0124

BIT

001230
001120
001206

124

H 10
30A(1052)
O0QS-APR-78
14:49
PAGE
SCOPE HANDLER ROUTINE

ooooo0rOOOOOOrOrOOrOrOrOOOrOrOO-OOrOrOrOO-OrO-OrOrOAOONOAOOOOOOOOOOOOCOOOOOTOOOOTOTOO

6159
6160
6161
6162
6163

MACYT1

CZRMKAQ RMO3/2 DSKLS PRT 2
CIRMKA. P
05~APR-78 14:38

CIRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA L1
05-APR-78 14:38
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232

6233
6234
6235
6236
6237

6238
6239
6240
6241
6242

6243

6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261

6262
6263
6264
6265
6266
6267
6268
6269
6270

MACY11

110

30A(1052)
14:49
05-APR-78
ERROR HANDLER ROUTINE

PAGE

;*AND GO TO ERRTYP ON ERROR

s*THE

SWITCH OPTIONS PROVIDED BY
HALT ON ERROR

;eSW15=1
;eSW13=1
:*SW10=1
;*SW09=1
srCALL

026424
026424
026426
026432
026434
026442
026450
026452
026456
026462
026466
026474
026502
026510
026512
026516
026522
026522
026530

026532

026540
026544
026545
026546
026550
0265564
026556
026560
026562
026570
026572
026576
026602
026604
026610
026610
026616
026620
026622
026622

104410

195237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
0C".737
104401

122737
001007

113757
004737
000

$ERROR:

001117

7%:

001116
002000
001212
001126
001132
0000G2
152432
020000
021662
001217
000001

001242

001130

026544

030466

100002

Sus

BIT

20%:

22%:
2$:

152400

032777
001402
013716
005737
001402
013716

001000

022737
001001
000000

021642

000002

152364

001124
001210

3%:
43:

001210
000042

5%:

026624
026626
026630

00000¢
000000
000000

; ;ERROR=EMT

AND N=ERROR

ITEM NUMBER

:TEST FOR CHANGE IN SOFT-SWR

$ERFLG
7%
STSTNM,DISPLAY
#BIT10,a5WR
18

;:SET THE ERROR FLAG
:;DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
;:BELL ON ERROR?
J:NO - SKIP

SERTTL
(SP) ,$ERRPC
#2 .8ERRPC
@SERRPC,SITEMB
#BIT13,3SWR

;:COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTICN

;sRING BELL

;;STRIP AND SAVE THE ERROR
J:SKIP TYPEOQUT IF SET

(mPB
BNE
MOVB
JSR

#APTENV,SENV

;:;RUNNING

23
$ITEMB,21$
SC.SATYé

;:NO,SKIP APT ERROR REPORT
J:;SET ITEM NUMBER AS ERROR NUMBER
s sREPORT FATAL ERROR TO APT

.BYTE

0
228

;:APY ERROR LOOP

BPL
HALTY
CKSWR

::SKIP IF CONTINUE

MOV

$SLPERR, (SP)

PC,ERRTYP

;.60

LOCRLF

.BYTE

BR
TST

J:SKIP TYPEOUTS

ITEM (CODE

208

aSWR

TO USER

;:HALT

ERROR

IN APT

ROUTINE

MODE

ON ERROR

;:HALT ON ERROR!

J:TEST FOR CHANGE IN SOFT=-SWR

8IT
BEQ

#BIT09,3SWR
43

::LO0OP ON ERROR SWITCH SET?
;:BR IF NO

TST
BEQ
MoV

SESCAPE

;sCHECK FOR AN ESCAPE ADDRESS

RTI
TTY
AR

AR A

;:FUDGE RETURN FOR LOOPING

5%
$ESCAPE, (SP)

;:BR IF NONE
;;FUDGE RETURN ADDRESS FOR ESCAPE

#SENDAD ,a#42

;:ACT=11

(31

HALT

.SBTTL

ARE:

BNE
JSR
TYPE

Cmp
BNE

6$:

LSBELL

MOVB

000000 104410

CKSWR
INCB
8EQ

TYPE
INC
MOV

21s:

000

000777
005777

ERROR

BIT
BEQ

001132
001130
152444

THIS RCJUTINE

INHIBIT ERROR TYPEQUTS
BELL ON ERROR
LOOP ON ERROR

MOV

1%:

SEQ 0125

125

INPUT
AR AR R

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: ,WORD

0
0
0

AUTO-ACCEPT?

::BRANCH [F NO
o YES

s sRETURN
ROUTINE
A

R AR

;sNUMBER OF ITEMS IN QUEUE
:: INPUT POINTER
::0UTPUT POINTER

CZR
CZR

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38

627
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6214
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326

026632

MACYN

000001
026633
026634

30A(1052)
TTY

J 10
14:49 PAGE 126

OS-APR-78

INPUT ROUTINE

$TKQSRT: .BLKB
$TKQEND=,
.EVEN

SEQ 0126

;2 TTY KEYBOAKD QUEUE

;*TK INITIALIZE ROUTINE
J*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
:«SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT
;eCALL:

RETURN

JSR

PC,STKINT

$TKINT:

CLR
MOV
MOV

$TKCNT
#STKQSRT,STKQIN
$TKQIN,STKAQOUT
#STKSRV ,@#TKVEC
#200,8#TKVEC+2
a8TkB
#100,387KS

026634
026640
026646
026654

026662
026670
026674
026702

005037
012737
13737
012737
012737
005777
012777
000207

026624
026632
026626
026704
000200

026626
026630
000060
000062

000100

152256

152266

mMov
Mov

TST
MOV
RTS

;*TK SERVICE ROUTINE

J*THIS

ROUTINE

WILL

SERVICE

THE

::;CLEAR COUNT OF ITEMS IN QUEUE
;;MOVE THE STARTING ADDRESS OF THE
;:QUEUE INTO THE INPUT & OQUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;''BR'' LEVEL 4
;;CLEAR DONE FLAG
J:ENABLE TTY KEYBOARD INTERRUPT
;:RETURN

TTY

J*BY READING THE CHARACTER FROM THE
;1T IN THE QUEUE.

CALLER

KEYBOARD

INTERRUPT

INPUT BUFFER AND PUTTING

;*IF THE CHARACTER ]S A "'CONTROL=C'" ( C) STKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE ''CONTROL=-C'* RESTART ADDRESS (START)
026704
026710
026714
026720
026722
026726
026732
026734
026740
026744
026746
026754

026756
026756
026764
026766
026772
026774
026776
027002
027004
027010
027012
027016
027020
027024
027030

117746
042716
021627
001007
104401
C04737
005726
000137
021627
001004
022737
001500

022737
001004

104401
005726
000451
021627
001021
005077
005726
105777
100375
117746
042716
022627

$TKSRV: MOVB

152252

177600

BIC
CMp
BNE

000003

030020
026634

TYPE

1%:

000176

001154

000001

026624

2$:

000023
152150
152142
152136
177600

000021

31%:

;:STRIP THE JUNK
;2IS IT A CONTROL C?
;:;BRANCH IF NO
:;TYPE

CONTROL-C

;s CLEAN UP

JMp
CHp
BNE
Cmp
BEQ

START
(SP),#7
23
#SWREG,SWR
6s

2 CONTROL C RESTART
;sIS IT A CONTROL G?
:;BRANCH IF NO
;1S SOFT-SWR SELECTED?
::60 TO SWR CHANGE

CMP

#1,8TKCNY

;:1S THE QUEUE FuUuLL?

TYPE

L$BELL

J:RING

BR
CMP
BNE

(SP)+

5%
(SP),#23
32%

CLR
TST
1578

a37kKs
(SP) ¢+
as$7kKs

MOVB

98TKB,~(SP)

CHp

(SP)+, 421

BPL

BIC

# C177,(5P)

s INIT THE KEYBOARD

(

(SP)+

TST

3s:

JSCNTLC

J:PICKUP THE CHARACTER

PC,S$TKINT

BNE

001212

# C177,(SP)
(SP),#3
1%

JSR
TST

002632
000007

8$TKkB,-(SP)

STA(CK

::BRANCH IF NO
THE

TTY BELL

;:CLEAN CHARACTER OFF

JLEXIT
;IS IT A CONTROL-S?
;;BRANCH [F NO

STACK

;:DISABLE TTY KEYBOARD INTERRUPTS
;:CLEAN CHAR OFF STACK
;;WAIT FOR A CHAR
;:LOOP UNTIL
;:GET

JiMAKE

THE

ITS THERE

CHARACTER

IT 7-BIT ASCII

;1S 1T A CONTROL-Q?

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
63N
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382

027034
027036
027044
027046
027052
027056
027060
027064
027066
027072
027076
027102
027110
027112
027120

001366
012777
000002
005237
021627
002405
021627
003002
042716

112677
005237

023727
001003
012737
000002

000100

MACYT1

30A(1052)
TTY

INPUT

ROUTINE

BNE

152114

328:

026624
000140

05-APR-78B

000175

026633

026632

026626

4%:

5%:

PAGE 127

319

MoV

#100,387KS

INC
(mp
BLT

$TKCNT
(SP),#140
(3
(SP),#175
(3
#40, (SP)
(SP)+ ,a88TKQIN

RT]

cmp

000040
177530
026626
026626

K 10

14:49

BGT
BIC
MOVB
INC
cmp
BNE
L [0]Y]
RT1

SEQ 0127

:;BRANCH IF NO
;:REENABLE

TTY KEYBOARD

;;RETURN

INTERRUPTS

;s COUNT THIS CHARACTER
;1S IT UPPER CASE?
;:BRANCH IF YES
;1S IT A SPECIAL CHAR?
;;BRANCH ]F YES
J:MAKE IT UPPER CASE
s:AND PUT [T IN QUEUE

$TKQIN
::UPDATE THE POINTER
STKQIN,#STKQEND ; ;G0 OFF THE END?
5%
;:BRANCH IF NO

#STKQSRT,STKQIN ;;RESET THE POINTER
:;RETURN

ottt RRRREREROCRROONRRCRERORCORORORRORRRORNROCORARRNRAGRANARNNRANRARONARNTY

027122
027130
027132
027136
027140
027144
027150
027154

022737
001124

G176

117746
042716
021677

152016
177600

105777
100121

001300

001154

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR:

152022

CMP

#SWREG, SWR

:, 1S THE

TSTB

28 7kS

;1S A

BNE

8PL
MOVB
8IC
CHp

000007

027156
027164
027166
027170
027174
027200

027206
027212
027216
027222
027224
027230
027232
027234
027240

123727
001674

005726
004737
005077
112737
104401
104401

013746

1046402
104401

005046
005046
105777
100375

117746

001150

000001

030032
030037
000176

03005¢
151720

15%
8%T1KB,-(SP)
# C177,(5P)

(SP) ., 87

SOFT-SWR SELECTED

JSEXIT IF NOT

CHAR WA]ITING?

;o
1F NOT, EXIT
s YES
c;MAKE IT
7-BIT ASCI!
J2IS IT A CONTROL-G?
soar

NOT,

:AND EXIT
APttt S

AR RN

PUT

AR PR R R

IN THE

R RN

TTY QUEUE

AENNRNRNNRNNN

s*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
;*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.

6%:

CMP8
BEQ

$AUTOB, M
23

::ARE WE RUNNING IN AUTO-MODE?
; ;BRANCH IF YES

JSR

PC,STKINT

;sFLUSH THE

#1,8INTAG

::SET

TST

026634

151760
000001

15%

001151

19s:
7$:

;s CLEAR

CONTROL-G OFF

TTY

STACK

INPUT QUEUE

(LR

8$T1KS

TYPE

.SCNTLG

;;ECHO

THE

TYPE

. SMSWR

;. TYPE

CURRENT CONTENTS

MOov8

$GTSWR:

(SP)+

MoV
TYPOC
TYPE

SWREG,-(SP)

::DISABLE TTY KEYBOARD INTERRUPTS
INTERRUPT MODE

CONTROL-G

INDICATOR
(

. SANEW

;:SAVE SWREG FOR TYPEOUT
;:60 TYPE--OCTAL ASCIICALL
: :PROMPT FOR NEW SWR

TSTB
8PL

-(SP)

837TkKS
7%

;: THE NEW SWR

CLR

=(SP)

CLR

:;CLEAR COUNTER

;: CHAR THERE?
;:1F NOT TRY AGAIN

027242
027246

042716

151714
177600

movs

83TKB,~(SP)

;s PICK UP CHAR

027252

021627

000003

cmp

(SP),#3

;IS IT A CONTROL-C?

BIC

# C177,(5P)

;sMAKE

IT 7-BIT ASCII

DIGITS)

CZRMKAOQ RMO3/2 DSKLS PRT 2
CZRMKA P11
05~APR-78 14:38

6383
6384
6385
6386
6387
6388
6389
6390
63N
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402

6403
6404
6405

6406
6407
6408
640
641
6411

6412
6413
6414

6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432
6433
6434
6435
6436
6437
6438

027256
027260
027264
027270
027276
027300
027306

001015
104401

MACY11

30A(1052)
TTY

062706

030020
000006
00115

012777
000137

000100
002632

027312
027316
027320
027324
027330

021627
001005

000025

104401
062706
000737

030025

000006

20$:

027332
027336
027340
027344
027346
027354
027360
027364
027372
027374
027402
027404
027410
027414
027416
027422
027424
027430
027434
027436
027440
027442
027444
027450
027454
027456
027462

021627
001022
005766
001403
016677
062706

000015

10%:

123727
001003

104401

123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401
000720

INPUT

151652

000002
000006

001217
001151

000001

000100

151556

025772
000060

CMPB
BNE

Mov

’6,5P
M
$INTAG,
8%

#100,387KS
START

: ;BRANCH [F NOT
;:YES, ECHO CONTROL-C (¢ C°
;:CLEAN UP STACK
:sREENABLE TTY KEYBOARD INTERRUPTS?
: ;BRANCH [F NO
ssALLOW TTY KEYBOARD INTERRUPTS
;- CONTROL=C RESTART

CmMp
BNE

(SP) ,#25
108
.SCNTLU
#6,5P

2 1S IT A CONTROL-U?
;;BRANCH [F NOT
;:YES, ECHO CONTROL-U ( U)
;. IGNORE PREVIOUS INPUT

CMP
BNE
TST
8EQ

(sP),?5
163
4&(SP)
118

20IS IT A <CR>?
;;BRANCH [F NO

MOV
ADD
TYPE

#6,5P

151600

CmMPB
BNE

15%:
16%:

LOSONTLC

19%

2(SP) ,aSwWR

.SCRLF

M
$INTAG,.
158
#100,3%7kS
PC,STYPEC

(SP),#60
18%
., 867
(SP)
18%

000067
000060
000062

260, (SP)+

000002
177776

17%:

001216

18%:

2(SP)
17%
(SP)
(SP)
(sp)
2(SP)
<2(SP), (SP)
7%

.DSABL

LS8

.SQUES
208

AR AR AR

s*THIS ROUTINE WILL

seCALL:
:t
;t

011646
016666

000004

000002

$RDCHR:

JIYES,

THE

FIRST

(SP),=(SP)
4 (SP),2(SP)

(CHAR?

;sBRANCH [F YES
;:SAVE NEW SWR
;s CLEAR UP STACK
;;ECHO <CR> AND <LF>
;:RE-ENABLE TTY KBD INTERRUPTS?
;:BRANCH [F NOT
::RE-ENABLE TTY KBD INTERRUPTS
;s :RETURN
J:ECHO CMAR

:;CHAR < 0?

;:BRANCH [IF YES

;:CHAR > T?

;:BRANCH ]F YES
s:STRIP~OFF ASCII
::1S THIS THE FIRST CHAR
;;BRANFY [F YES
;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
..
ROOM FOR NEW ONE.
MM
ssKEEP COUNT OF CHAR
::SET IN NEW CHAR
:.;GET THE NEXT ONE

;i TYPE

2<CRO<LF>

JsSIMULATE CONTROL-U

INPUT A SINGLE CHARACTER FROM THE

RDCHR
RETURN HERE

MOV
MoV

;sLET'S TRY [T AGAIN

ARl

027464
027466

SEQ 0128

128

TYPE
ADD

000004

PAGE

BNE

JMP

9%:

14:49

ROUTINE

TYPE
ADD

000001

L 10

05-APR-78

RRRRRRR

TTY

::GET A CHARACTER FROM THE QUEUE
; CHARACTER IS ON THE STA(CK
;.WITH PARITY BIT STRIPPED OFF
;;PUSH DOWN THE PC AND
.. THE PS

CZRMKAQO RM03/2 DSKLS PRT 2
CZRMKA P
05-APR-78 14:38

6439
6440
6441
6442
6443

6444
6445
6446

6447
6448
6449
6450
6451
6452
6453
6454
6455

027474
027500
027502
027506
027510
027510
027514
027516
027522
027530
027534
027542
027544
027552

005066
005046
012746
000002

000004

005737
001775
005337
117766
005237
023727
001003
012737
000002

026624

MACY11

6461

6462
6463
6464
6465
6466
6467
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494

TTY

INPUT

027510

026624
177102
026630
026630

026632

648:

000004

026630

ROUTINE

129

SEQ@ 0129

CLR
CLR

4 (SP)
-(SP)

MOV
RTI

#6483 ,-(SP)

;;PUT NEW PC ON
STACK
;:POP NEW PC AND PS

1ST
BtQ
DEC

fIKCNT

ssWAIT ON A CHARACTER

INC
CMP
BNE

2%:

n10
164:49
PAGE

05-APR-78

Mmove

026633

MOV
RTI

:;GET READY FOR A CHARACTER
;:PUT NEW PS ON STA(CK

$TKONT
; ;DECREMENT THE COUNTER
@$TKQOUT,4(SP)
;;GET ONE CHARACTER
$TKQOUT
;;UPDATE THE POINTER
$TKQOUT ,#STKQEND ;;DID IT GO OFF OF THE END?
2$
:;BRANCH [F NO
#$TKQSRT,$TKQOUT

;;RESET THE
;sRETURN

POINTER

sottAttwttttRAERNRRRRRCROCORAREOARRORARROORARARANARAAARNARANRAONOERLR

s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:

€456

6457
6458
6459
6460

30A(1052)

;s INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

ROLIN
RETURN HERE

;:TERMINATOR WILL BE A BYTE

027554
027556
027560
027564
027570
027572
027574
027576
027602
027604
027606
027610
027616
027622
027626
027630
027634
027636
027642
027646
027650
027652
027654
027662
027666
027670
027674
027676
027702
027704
027710
027712
027714
027720

027724

010346
005046
012703
022703
101456

030010
030020

$SROLIN:

Mov

1%:

MoV

2s:

104411

112613
122713
001022
005716
001007
112737
104401
012716
005303
020327
103434
111337
104401

000746
005716
001406
112737
104401

005016
122713
001003
104401
000726
122713
001011
105013
104401
104401
000717

000177

000134
030006
177777

10%:

030006
6%:

030010
030006
030006

00002°

030006

001217
030010

RDCHR
MOVB

CMPB
BNE
TST
BNE
Move
TYPE
Mov

DEC
CMP
8LO
Move

B8R
TST
BEaQ
MOvVB
TYPE

I4 ¥

030025

000022

CMpP
8LOS

TYPE

5%:
000134
030006

CLR

CLR
(MPB
BNE
TYPE

8$:

BR
CMPB
BNE
CLRB
TYPE
TYPE
BR

R3,-(SP)
-(SP)
#STTYIN,R3
#STTYIN+8.
,R3
4%

(SP)+, (R3)

#177,(R3)

(SP)

.98

R3,#STTYIN
‘3
(R3).,9%

ALL

0°S

;:SAVE R3

;:;CLEAR THE RUBOUT KEY
::GET ADDRESS
;;BUFFER FULL?
;:BR IF YES
;:60 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
::1S IT A RUBOUT
;:BR

;IS THIS THE FIRST RUBOUT?
;:BR IF NO
;. TYPE A BACK SLASH

;:SET THE RUBOUT KEY
:;BACKUP BY ONE
::STACK EMPTY?
::BR IF YES
;:SETUP TO TYPEOUT JHE DELETED CHAR.
::G0 TYPE
;.60 READ ANOTHER CHAR.
:;RUBOUT KEY SET?
;:BR IF NO
3 TYPE A BACK SLASH
;. CLEAR THE RUBOUT KEY
;1S CHARACTER A CTRL UL?
;:BR IF NO

;:TYPE A CONTROL 'U"

::60 START OVER
:: 1S CHARACTER A "' R'TM?
; ;BRANCH IF NO
s CLEAR THE CHARACTER
;:TYPE A ''CRTM R "'LF"

::TYPE THE INPUT STRING
:.G0 PICKUP ANOTHER CHACTER

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRAKA. P
05-APR-78 14:38
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505
6506
6507
6508
6509
6510
651
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6543
6544
6545
6546
6547
6548
6549
6550

027726
027732
027734
027740
027744
027750
027752
027756
027762
027764
027766
027770
027776
030004
030006
030007
030010
030020
030025
030032

030037
030044
030050
03005¢

104401
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000010
041536
136

043536

015
036440
020040
020075
030062

MACY11

30A(1052)

05~APR-78

TTY

INPUT ROUTINE

001216

030006
030006
000015

3%:

TYPE
BR
"MovB
TYPE
CmMP8
BNE
CLRB
TYPE
TST

177777

001220

000004
030010

0000G2
000004
9%:

005015
006525
005015
051412
000040
042516
000

000
000012
000
051127

020127

MoV
MoV
Mmov
mov
RTI

N 10

14:49

PAGE

::TYPE A '
J:CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

. SQUES

(SP)+
(SP)+,R3
(SP),-(SP)
4(SP),2(SP)

#STTYIN,L(SP)

s CHECK FOR RETURN
;:LOOP [F NOT RETURN
;;CLEAR RETURN (THE 15)
s TYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK
;RESTORE R3

::ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
N
2 sRETURN
::STORAGE FOR ASCII CHAR.
;s TERMINATOR

$CNTLG:
$MSWR:

.BLKB
ASCIZ
<ASCIZ

-ASCIZ
.ASCIZ

0
0
8.
/ C/<15><12>
/ U/<15><12>

SMNEW:

<ASCIZ

LEVEN
.SBTTL

READ AN OCTAL NUMBER FROM THE

S$TTYIN:
$CNTLC:
$CNTLU:

.BYTE
.BYTE

AL AL SRR

/ G/<15><12>
<15><12>/SuWR

;;RESERVE
::CONTROL
::CONTROL
/;;CONTROL

ROOCT

RETURN HERE

ARl

011646
016666
010046
010146
010246

000004

000002

$RDOCT:

104412
012600
005001

1%:

112046

2$:

005002

001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
005726

Mov
Mov
mov
Mov
mov
ROLIN
mov

CLR
CLR
Move
BEQ
ASL
ROL
ASL
ROL
ASL
ROL

177770

8I(

ADD

3%:

BR
TST

(SP),=(SP)

4(SP),2(SP)
RO,-(SP)
R1,-(SP)
R2,=(SP)

(SP)+,RO

R1
R2

(RO)+,-(SP)
33

R1
R2
R1
R2
R1

8 BYTES FOR TTY INPUT
'‘C"
'‘U"
6"’

TTY

ARl iRttt
s ittt tlls

030062
030064
030072
030074
030076
030100
030102
030104
030106
030110
030112
030114
030116
030120
030122
030124
030126
030130
030134
030136
030140

TO TYPE

NEW =/

;*THIS ROUTINE WILL READ AN OCTAL
s*CHANGE IT TO BINARY.

s+CALL:

SEQ 0130

130

R2
¥ (7,(SP)
(SP)+ ,R1
2%
(SP)+

(ASCII)

NUMBER

FROM THE

TTY AND

;:READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STACK
;cHIGH ORDER BITS ARE IN SHIOCT
: :PROVIDE SPACE FOR THE
;s INPUT NUMBER

::PUSH RO ON STACK
;:PUSH R1

ON STACK

;;PUSH R2 ON STACK

:sREAD AN ASCIZ LINE

:+GET ADDRESS OF 1ST CHARACTER

;s CLEAR DATA WORD

;:PICKUP THIS CHARACTER
::15 ZERO GET OuT
u.'

stk

;.8
;;STRIP THE ASCII JUNK
::ADD IN THIS DIGITY

. .LOOP
;s CLEAN TERMINATOR FROM STACK

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6574
65/5
6576
6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600
6601
6602
6603
6604
660"
6606

030142
030146
030152
030154
030156
030160
030162

010166
010237
012602
012601
012600
000002
000000

MACY11

8 n
14:49
PAGE 131
READ AN OCTAL NUMBER FROM THE TTY

30A(1052)

MOV
Mmov
MoV
MoV
Mov

000012
030162

$HIOCT:
.SBTTL
A

SEQ 0131

05~APR-78

R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+.R1
(SP)+,RO

RTI

.WORD
O
TRAP DECODER

AAAARAAALAAAAAA

¢+ SAVE THE RESULT
;;POP STACK INTO R?
::PIP STACK INTO R1
;;POP STACK

INTO RO

s sRETURN
;:HIGH ORDER BITS GO HERE

SRR

Rttt

titld

)

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLF FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
030164
030170
030174
030200
030202
030204
030210
030212
030214
030216
030222

016646
042716
012746
000002
010046
016600
005740
111000
006300
016000
000200

000002
000020
030202

$STRAP:

18:

000002

030236

MOV

2(SP) ,~(SP)

RTI
mov
Mov
TST
Movs
ASL
Mov
RTS

RO,=(SP)
2(SP) RO
=(RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

BIC
Mov

#20,(SP)
#18,-(SP)

;s ASSUME

s:
;:

THE

STATUS OF

THE CALLER--DO NOT ALLOW
T-BIT TRAPS

;s SET THE NEW STATUS
;:SAVE RO

::GET TRAP ADDRESS
: :BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;;INDEX TO TABLE
;.60 TO ROUTINE

;s THIS IS USE TO HANDLE THE "'GETPRI'* MACRO
030224
030226
030234

011646
016666
000002

000004

000002

$TRAP2:

MOV
Mov

(SP),=(SP)
4(SP),2(SP)

RTI

.SBTTL

TRAP

;;MOVE THE PC DOWN
:;MOVE THE PSW DOWN
JsRESTORE

THE

PSW

TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE '‘TRAP'* INSTRUCTION.

;

030236
030240
030242
030244
030246
030250
030252

030224
025560
025356
025332
025372
025106
025032

030254
030256

030260

030262
030264
030266

THE ROUTINES,CALLED

ROUT INE

$TRPAD: .WORD

$TRAP?

::CALL=TYPE
;CALL=TYPOC

TRAP+1(104401)
TRAP+2(104402)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)

STYPON
$TYPDS
STYPBN

;;CALL=TYPON
;;CALL=TYPDS
;;CALL=TYPBN

TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

027212

$GTSWR

;;CALL=CTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

027122
027464
027554

$CKSWR
SROCHR
SROLIN
$RDOCT

;;CALL=CKSWR
;; CALL=ROCHR
;;CALL=RDLIN
;;CALL=RDOCT

TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-R5 ROUTINE

030062

024736

$TYPE
$TYPOC

$TYPOS

;;CALL=TYPOS

$SAVREG ;;CALL=SAVREG

TRAP+3(104403)

TRAP+13(104413)
TRAP+14(104414)

TYPE

OCTAL NUMBER

(NO LEADING ZEROS)

Ci
Ci

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38

6607
6608
6609
6610
6611
6612
6613
6614
6615
6616
6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6630
6631
6632
6633
6634

6635

6636
6637
6638
6639
6640
6641
6642
6643
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654

6655
6656
6657
6658
6659
6660
6661
6662

030270

MACY1T

024774

30A(1052)

TRAP TABLE

.SBTTL
MR

030272
030300
030306
030310
030312
030314
030316
030320
030322
030326
030332
030340
030342

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737

000000
000776

030432

000340

000024
000026

AAAAAARAARRRSA

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

030440
000002
000000
000776
000000
005015
000122

047520

112737
112737
000403
112737

010046
010146
105737
001450

RAR

;:PUSH @8SWR ON STACK
s :SAVE SP

;;SET UP VECTOR

: s HANG UP
ARl

iRttt

Rttt

RdtRit

ittt

#$ILLUP,S#PWRVEC ;.SET FOR FAST DOWN
$SAVR6,SP
::GET SP
$SAVR6
ssWALT LOOP FOR THE TTY
$SAVR6
ssWAIT FOR THE INC

Mov
MoV
mov
Mov
mov
MOV
MOV
MoV
Mov

(SP)+,aSWR
::POP STACK INTO @SWR
(SP)+,RS
;;POP STACK INTO RS
(SP)+,R4
;POP STACK INTO Ré
(SP)+,R3
;:POP STACK INTO R3
(SP)+,R2
;:POP STACK INTO R2
(SP)+,R1
::POP STACK INTO R1
(SP)+,RO
:;POP STACK INTO RO
#SPWRON ,@#PWRVEC ;,;SET UP THE POWER DOWN VECTOR
#340,3#PWRVEC+2 ;;PRIO:7

$PWRMG:

ég?RD

SPOWER

SILLUP:

$SAVR6:
SPOWER:

HALT
BR
0
.ASCIZ

.SBTTL

.EVEN
APT COMMUNICATIONS ROUTINE

BNE

000024
000026

000001
000001

030714
030712

$ATY1:

000001

030714

::};é:

030712

;;PUSH R5 ON STACK

MOV
mov
CLR
INC

030450
030456
030464
030466
030474
030474
030476
030500
030504

;:PUSH R4 ON STACK

"POWER UP ROUTINE

18:

042527

R4 ,-(SP)

ON STACK

::PUSH R2 ON STACK
::PUSH R3 ON STACK

#$PWRUP ,@#PWRVEC

HAL

150560

030272
000340

Rttt

;:PUSH R1

8SWR,-(SP)
SP,$SAVR6

HOVT

$PWRUP:

iRt

R1,-(SP)

RS,-(SP)

B8R

000024

ARl

R2,-(SP)
R3,-(SP)

MOV
mov

000024

MOV
MoV

Mov

150626

#SILLUP ,@#PWRVEC ;;SET FOR FAST uP
#340,3#PURVEC+2 ::PRIO:7
RO,-(SP)
;:PUSH RO ON STACK

Mov

030432
030436
030436
030436

RESTORE RO-R5 ROUTINE

MOV
MOV
MOV

ARSI AR

030344
030352
030356
030362
030366
030370
030374
030376
030400
030402
030404
030406
030410
030416
030424
030426
030430
030432
030434
030436
030440
030446

*POWER DOWN ROUTINE

$PWRDN:

SEG 0132

SRESREG ;;CALL=RESREG
TRAP+15(104415)
POWER DOWN AND UP ROUTINES

MOV

030436
030344

cn
14:49
PAGE 132

05~APR-78

$SATY3:

TYPE

AR A

::0F

;REPORT

<15><12>''POWER'’

MOVB

1 ,8FFLG

B8R

SATY(

MOVB

THE

POWER

FAILURE

;;POWER FAIL MESSAGE

.=2

WORD

::THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE
;;PUT THE SP HERE

::TO TYPE A MESSAGE

movs

#1,8FFLG

+: 70O ONLY REPORT

Mov
Mov

RO,=(SP)
R1,-(SP)

;;PUSH RO ON STACK
;:PUSH R1 ON STACK

BEQ

..
IF NOT:

SMFLG

RRR]E)

;70 REPORT FATAL ERROR

#1,3MFLG

TSTB

POINTER

;s SHOULD

TYPE

B8R

FATAL ERROR

A MESSAGE?

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA.PIN
05-APR-78 14:38

6663
6664
6665
6666
6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708

030506
030514
030516
030524
030526
030532
030540
030544
030546
030552
030554
030556
030562

030564

122737
001031
132737
001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037

030570
030576
030600
030606
030614
030620
030624
030626
030626
030632
030634
030640
030642
030646

012737
000413
017637
062766
013746
004737

030656
030664
030670
030674
030700
030704
030706
030710
030712
030713
030714

062766
005237
105037
105037

030650

000000

105737
001416
005737
001413
005737
001375

017637

105037

012601
012600
000207
000
000
000
030716
000200
000001
000100
000040

MACY11

000001

001242

000100

001243

000004
000002
001222

000004

001236

D 11
14:49
PAGE
30A(1052)
05-APR-78
APT COMMUNICATIONS ROUTINE
cmpPB
BNE
BITB
BEQ
1%:

2%:

001236
001240
000004

000004
000002
177776
025560

001222

030624
000004

3s:

A ¥

5%:

108:

030714
001242

118%:

001222

000004
000002
001222
030714
030713
030712

001224
000004

MOV
ADD

TST
BNE

Mov

TSTB

B8NE
sSuB
ASR
MOV
MOV
B8R

MoV
ADD
MOV

JSR
.WORD

TSTB
BEQ
TST
BEQ

TST

BNE
MOV
ADD

12%:

$MFLG:
$LFLG:
$FFLG:

INC
(LRB
CLRB
CLRB
MoV
MoV
RTS

.BYTE
.BYTE
.BYTE
.EVEN
APTS12€=200
APTENV=001
APTSPOOL=100
APTCSUP=040

#APTENV,SENV

;:PTSPOOL.SENVH

84(SP) RO

#2.,4(SP)
$SMSGTYPE
1%

RO,SMSGAD
(RO)+

$MSGAD
RO
RO
RO,SMSGLGT

#4 ,SMSGTYPE

SEQ 0133

133

;;OPERATING UNDER APT?
BR
;:1F NOT:

;s SHOULD SPOOL MESSAGES?

1F NOT:
;.

;.GET MESSAGE ADDR.
;;BUMP RETURN ADDR.
;;SEE IF DONE W/ LAST XMISSION?
WALT
:;1F NOT:
;:PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

::SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
;:PUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

a4 (SP),48
#2,4(SP)
177776,-(SP)
SC.STYPE

;:PUT MSG ADDR

$FFLG
128
S$ENV
12%
$MSGTYPE
11%

:;SHOULD REPORT FATAL ERROR?
BR
::1F NOT:
: ;RUNNING UNDER APT?
BR
;:1F NOT:
JsFINISHED LAST MESSAGE?

;;PUSH

IN JSR LINKAGE

: ;BUMP RETURN ADDRESS

177776 ON STACK

;:CALL TYPE MACRO

;:IF

NOT:

WAIT

84(SP) ,SFATAL

::GET ERROR #
;:BUMP RETURN ADDR.
;s TELL APT TO TAKE ERROR
J:CLEAR FATAL FLAG
;s CLEAR LOG FLAG
;:CLEAR MESSAGE FLAG
;sPOP STACK INTO R1

s :RETURN
;sMESSG. FLAG
:2:L0G FLAG
;. FATAL FLAG

#2,4(SP)
$MSGTYPE
SFFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,RO

0
0
0

;:POP STACK INTO RO

CZRMKAQ RMO03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
6709
6710
6711

6712
6713

MACY11

30A(1052)

05-APR-78
CONSOLE MESSAGES
LSBTTL

030716
030717
030721
030725
030727
030727
030763
030763
031062
031121
031146
031175
031227
031257
031303
031333
031367
031414
031414
031472
031504
031553

051
075
015
077

000
025012
000

000

015

052012

050131

015
005015
015
005015
015
015
015
015
015
015

0414612
051525
051012
047105
040412
051012
042412
040412
051012
042412

040510
020105
030115
051124
042104
030115
052116
042104
030115
052116

005015
047040
005015
015

054524
046525
042524
047012

042520
042502
046522
052117

031600

EN
14:49
PAGE 134

SEQ 0134

CONSOLE MESSAGES

BEX
.NLIST
CLSPRN: _ASCII
EQUALS: .ASCIZ
PROMPT: .ASCI2
QSTMRK: .ASCIZ

d)3
=4
<CR><LF>a+3
%

HELPQST:
<CROCLF>ATYPE
LASCIZ

HELP

TEXT

N)?79

UBUSQST:
<CR><LF>3CHANGE RMO3 UNIBUS ADDRESS OR VECTOR ADDRESS
LASCIZ
<CR>LF>AUSE SAME DEVICES (Y OR N) ??3
CNSLOO: .ASCIZ

CNSLO1:
CNSLO2:

_ASCIZ
.ASCII

CNSLO3:
CNSLO4:

.ASCIZ
.ASCII

CNSLOS:
CNSLO6:
CNSLO7:

.ASCIZ

LASCIZ
.ASCIZ
.ASCIZ

<CR><LF>3RMO3 BUS ADDRESS

<CR><LF>@ENTRY NOT I[N [/0 PAGES
<CR><LF>3ADDRESS MUST BE >160000a
<CR><LF>3RM0O3 VECTOR ADDRESS (a
<CR><LF>@ENTRY OUT OF RANGES
<CR><LF>3ADDRESS MUST BE <1000a

<CR><LF>3RMO3

INTERRUPT

<CR><LF>8ENTRY

OUT

PRIORITY

<CR><LF>3TYPE (A) TO TEST ALL DEVICES,
.ASCI1]
.ASCII
@ NUMBER(S)a
CCRO<LF>STERMINATE INPUT WITH CARRIAGE
LASCIZ
<CR><LF>/NOT EXIST DRIVE
/
NOTEX:
.ASCIZ
LLIST BEX

.EVEN

RANGEa
OR

TYPE

RETURNA

DEVICEa

(Y OR N)<CR>

773

VRN

VE NN

' E VRN

VWL

sILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION (76)

DATA

SWRITE HEADER AND DATA
;ILLEGAL FUNCTION (64)
JILLEGAL FUNCTION (66)
sREAD DATA
JREAD HEADER AND DATA

;ILLEGAL FUNCTJION (56)

JWRITE

sILLEGAL FUNCTION (40)
sILLEGAL FUNCTION (42)
sILLEGAL FUNCTION (44)
sILLEGAL FUNCTION (46)
JWRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
sILLEGAL FUNCTION (54)

;ILLEGAL FUNCTION (32)
;ILLEGAL FUNCTION (34)
sILLEGAL FUNCTION (36)

OPIIATA!ILF!IVC
OPI!ATA!ILF!IVC

ACKNOWLEDGE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

OP1!IVC!IAE!AQOE !HCE!ECH

;PACK

JILLEGAL FUNCTION (24)
;ILLEGAL FUNCTION (26)
;SEARCH

N
N
A
R
N
N
N R

.
128.

200

ATNTBL:

OPI!ATA'ILF!IVC
OPI!IVC!WLE'!IAE!AQE!HCE
OPI!IVCIWLE!IAE'AQE
OPI'ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!IAE!AOE!HCE!ECH

sRELEASE
:OFFSET
JRETURN TO CENTERLINE
JREAD IN PRESET

001
002
004
010
020
040
100

WCE!OPI!IVC!IAE!AQE !HCEECH
WCE!OPI'!IVC!IAE!AOE!HCE'ECH
OPI!ATA!ILF!IVC

s ILLEGAL FUNCTION (2)
s SEEK
JRECALIBRATE
;DRIVE CLEAR

130001
130001

OPI!ATA!ILF!IVC

:NOP

130001
130001
130001
130001
130001
130001
073300
073300
130001
130001
037200
037000
130001
130001
033300
033300

0PI
OPI!ATA!ILF!IVC
ATA!OPI!IVL!IAE
ATA'OPI!IVC
OPI
OPI!IV(C
OPI!ATA!IVC
OPI!ATA!IVC
OPI
0PI
OPI'ATA!ILF!IVC
OPI'!ATA!ILF!IVC
ATA!OPI!IVC!IAE
OPI'ATA!ILF'IVC
OPI!ATA!ILF!IVC
OPI'ATA!ILF!IVC
OPI'ATA!ILF!IVC
OPI'ATAILF!IVC
OPI!ATALILF!IVC

130001

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

TABLE

130000
020000
030000
130000
130000
020000
020000
130001
130001
132000

;FUNCTION CODE

ClF

020000
130001
132000

SEQ 0135

VEWE V)

135

PAGE

031700
031701
031702
031703
031704
031705
031706
031707

FNCDTB:

031600
031602
031604
031606
031610
031612
031614
031616
031620
031622
031624
031626
031630
031632
031634
031636
031640
031642
031644
031646
031650
031652
031654
031656
031660
031662
031664
031666
031670
031672
031674
031676

14:49

031600

30A(1052)
O05-APR-78
CONSOLE MESSAGES

W=
N —=

6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758

MACY11

[gn]

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA P11
05~APR-78 14:38

EMS511,EMS501,EMS502,0

047051
051251

047002
051276

EMTI1:

.WORD
.WORD

EMS316,EMS317 ,EMS31S
EMSS11,EMS501 ,EMS502,0

047071
051251

046753
051276

EMT12:

.WORD
.WORD

EMS316,EMS320,EMS314
EMS511,EMSS501,EMS502,0

04707
051251

047002
051276

EMT13:

.WORD
.WORD

EMS316 ,ENS320,EMS315
EMS511,EMSS01,EMSS502,0

047111
051251

046753
051276

EMT14:

.WORD
.WORD

EMS316 ,ENS321 ,EMS314
EMSS511,EMSS01,EMS502.,0

047111
051251

047002
051276

EMT15:

.WORD
.WORD

EMS316,EMS321,EMS315
EMSS511,EMS501,EMS502,0

047131
051251

046753
051276

EMT16:

.WORD
.WORD

EMS316,EMS322 ,EMS314
EMSS11,EMS501,EMS502,0

047131
051251

047002
051276

EMT17:

.WORD
.WORD

EMS316,EMS322,EMS315
EMS511,EMS501 ,EMS502.,0

047350
050450
051345
047373
050461
051345
047653
044344

047426
050331
000000
0474206
050331
000000
044616
050612

EMT20:

.WORD

EMS71,EMS335,EMS340,EMST72
,EMS377 EMS372

EMT21:

.WORD
.WORD

EMS511,EMS503,0
EMS71,EMS336,EMS340,EMS72,EMSL00,EMS372

EMT22:

.WORD
.WORD

EMS511,EMS503,0
EMS73,EMS352,EMS74
EMSL02 ,EMST0,EMS406

-y

V)]
N
N
N
W
N
N
W
N
N
VE N
SR W

EMS316 ,ENS317 ,EMS314

.WORD
.WORD

EMT10:

EMS511,ENS501,EMS502,EMS504
,EMS503,0

EMS301,ENS313,EMS302

.WORD
.WORD

EMT7:

EMS312,0
EMS301,EMS306,EMS311
EMS511,EMS502,EMS501 ,EMSS503,EMS504.,0

EMTSH:

.WORD
.WORD
.WORD

046620
051251
000000
046461
051276
000000
046753
051276

EMS301,EMS310,EMS31

EMS511 ,ENSS02,EMS501 ,EMSS03,EMS504

EMTS:

.WORD
.WORD

046620
051251

EMSS511,EMS502
,EMSS501 ,EMS503,0

.WORD

051251

EMS300,ENS302,EMS307
,EMS2

.WORD

EMTS:

EMS301,EMS306,EMS302
EMS511,EMS505,EMS501 ,EMS502,0

.WORD
.WORD

EMT3:

EMS511,EMSSO0,ENSSOT,EMS502,EMS503,0

.WORD

EMS300,EMS1,0
EMS301,ENS302,EMS303,EMST,EMS304

046542

.WORD
.WORD

051251
000000
046461
051251

EMTI:
EMT?:

051276
000000
046603
051276
051371
000000
046526
051276
051371
046722
051251
051345
047051
051251

000000
046506

051670
000000
047030
051670
000000
044412
044471
051670
044412
044471
051670
044546
050513

040006
046461
046517
051111
051345
046526
051415
0000G0
046461

046420
046436
040006
051670
051276
046436
051670
051276
046420
040057
051670
051345
046436
051670
051345
046664
046436
051670
051345
046436
051670
051371
047030
051670
000000
047030
051670
000000
047030
051670
000000
047030
051670
000000
047030
051670
000000
047030
051670
000000
047030

031710
031716
031724
031730
031736
031744
031752
031760
031764
031772
031774
032002
032006
032014
032022
032026
032032
032040
032046
032054
032062
032070
032076
032104
032112
032114
032122
032130
032132
032140
032146
032150
032156
032164
032166
032174
032202
032204
032212
032220
032222
032230
032236
032240
032246
032254
032256
032264
032272
032300
032306
032314
032322
032330

CZF

.EVEN

SEQ 0136

6 1
14:49
PAGE 136

30A(1052)
05-APR-78
CONSOLE MESSAGES

6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797
6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814

MACY11

()

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

EMT24:

047350
050654
051345
046526
047231
051345

047426

046753

044546

000000
046010
046076
051251

000000
050645

050654
051345
045051

00000C0

051345

051371

046010
051251

051345

050265
051371
050672
051371
050672
051345

047373
051345
047350

047340

047437

000000
000000

000000
000000
047426

051371
047350
050450
045273
051371
047373
045273
051371
047372
050742
050461
051371
050476

000000
047426
050165
050742
000000
047426
050742
000000
047426
050513

051345
045273
051371
050476

000000
050774
000000
047231

000000
047231

.WORD

EMS511,EMS503,EMS504,0

.WORD

EMS73,EMS356
,EMSTS5 EMS402 EMS77 EMS377

.WORD

EMS511,EMSS03,EMS504,0

EMT2S:

.WORD

EMS73,EMS335,EMS3L0,EMS76,EMS4TT

EMT26:

.WORD
.WORD

EMS511,EMS503,0
EMS301,EMS306,EMS252 ,EMS253,EMS327 ,EMS254

.WORD

EMS511,EMSS03,EMSS501,EMSS502

EMT27:

.WORD
.WORD

EMS330,EMS314,0
EMS337 EMS73 EMSL10,ENS76,EMS4TT

EMT30:

.WORD
.WORD

EMS511,EMS503,0

.WORD

EMS511,EMSS03,EMS504,0

EMT31:

.WORD
.WORD

EMS300,EMS252

EMT32:

EMS100,EMS370
EMS511,EMS504,0
EMS100,EMS412

EMT36:

.WORD
.WORD
.WORD
.WOkD
.WORD
.WORD
.WORD
.WORD
.WORD

EMS511,EMS504.,0
EMS102 ,EMS412
EMS511,EMS503.0
EMS102,EMS336
EMS511,EMS503,0
EMS100,EMS335,EMS340,EMST102,EMS33.

EMT37:

.WORD
.WORD

EMS511,EMS504.0
EMS100,EMS335,EMS340 ,EMS102,EMS377 ,EMS365

EMS413,EMS104 ,EMSLTS

EMT4O0:

.WORD
.WORD
.WORD

EMT4T:

.WORD
.WORD

EMSS511,EMS504,0
EMS100,EMS336,EMS340,EMS73,EMSL15,EMS402

EMT4L2:

.WORD
.WORD
.WORD

EMS102,EMS400
EMS511,EMS504.,0
EMS103,EMS601
,EMS327 ,EMS370

.WORD
.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS414 ,ENS104,EMSLTT7
EMS511,EMS504,0
EMS105,EMS601,EMS327
,EMS370

EMT33:
EMT34:

EMT35:

EMTLI:
EMT4S:

EMS337 ,ENS100,EMS341,EMS101

EMS511,EMS501,EMS503.,0

EMS511,EMS504.,0

EMS100,EMS336 ,EMS360,EMSL16,EMS104,EMS4TS

[en]

-4

Y Y

044671
050450
051371

EMS73,EMS252,EMST5,EMS402
,EMST77 ,EMS406

SN N SN SN SN SN SN N SN SN N SN SN NN

047770
045006
051345

.WORD

SISN SIS

EMT23:

051345

044671
050612
051371

EMSS11,EMSS03,EMSS504,0

(IR

SESN SN SN SN SIS

045006

.WORD

SEQ 0137

NI SN

047653

137

SN NI SN N SIS

044745
051670
046436
046043
051670
051276
047237
047412
044745
051670
047412
045111
051670
000000
046420
051670
000000
045051
051670
045051
051670
045165
051670
045165
051670
045051
045165
051670
045051
045165
050706
051670
045051
050762
051670
045051
044546
045165
051670
045233
050265
051670
050722
051670
045320

051371

PAGE

SN S S SN S

044546

051345

SO SN S

032650
032656
032664
032672
032700
032706
032714
032722
032726
032734
032742
032744
032752
032760
032766

000000
044546
050513
051670
000000
044546
050513
051670
000000

CONSOLE MESSAGES

14:49

S SO S

032444
032452
032460
032462
032470
032476
032502
032510
032516
032520
032526
032530
032534
032542
032544
032550
032556
032562
032570
032574
032602
032606
032614
032622
032626
032634
032642

051670

O05-APR-78

SN SN S SN SN SN S

6863
6864
6865
6866
6867
6868
6869
6870

032336
032344
032346
032354
032362
032370
032372
032400
032406
032414
032416
032424
032439
032436

30A(1052)

6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862

MACY17

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

6923
6924
6925
6926

032774
032776
033004
033010
033016
033020
033026
033034
033042
033044
033052
033060
033062
033070
033076
033104
033112
033114
033122
033130
033136
033144
033146
033154
033162
033164
033172
033200

050265
051670
046420
051670
000000
045361
051670
050706
050774
051670
045436
045426
051670
047500
051670
050722
051026
051670
047256
051670
045513
052204
051670
045551
050265
051670
045610
051670

033206
033212
033220

051345
046043
051251

000000

051345

PAGE

138

.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS300,EMS253
EMS511,EMSSO1,EMS503,0

EMTLT7:

.WORD
.WORD
.WORD

EMS106,EMSL01,EMSLT7
EMS511,EMS503,0
EMSL13,EMS107 ,EMS420,EMS4T7

EMTSO:

.WORD
.WORD

EMS511,EMS504,0
EMS110,EMSL13,EMSL05
,EMS107

.WORD
.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS343,EMS111,EMS421
EMS511,EMSS504.,0
EMS414,ENSL16,EMS107
,EMS42

EMTS4:

.WORD
.WORD
.WORD
.WORD

EMS511,EMS504,0
EMS331
,EMS4L ,EMS256
EMS511,EMS501,0
EMS112,EMSL13,EMSL05,EMS607

EMTSS:

.WORD
.WORD

EMS511,EMS503,0
EMS113,EMS401
,EMS327 ,EMS370

.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS114,ENSL0T EMSLT7
EMS511,EMS503.0

EMTS7:

.WORD
.WORD

EMS257 ,EMS332
EMS511,EMS506,EMS501,0

EMT60:

.WORD
.WORD

EMSS ,EMS333
EMS511,EMS507,EMS501.,0

EMTLS:

050476
051345
045426

050774

051371
050706

000000
050602

051345
045475
051371
050762

000000
051026
000000
045426

05137
040173
051251
050706

000000
046201
000000
050602

051345
050476

000000
047231

051345
050476
051345

000000
050774
000000

046231
051670

047306
051470

051251

033222
033226
033234

040224
051670
000000

047324
051525

051251

033236
033244
033246
033254
033262
033264
033272
033276
033304
033312
033320
033324

050706
050774
051670
047571
045111
051670
045551
051670
050706
051670
051043
051670

045656

051013

EMTOT:

.WORD

EMSL13,EMS115,EMSL20,EMS4LT7

05137
045051

000000
047437

EMT62:

.WORD
.WOKD

EMSS511,EMS504,0
EMS346,EMS100,EMS341
,EMST101

051371
050302
051345
045673
051371
047667
05137

000000

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

EMS511,EMS504,0
EMS113,ENS3I7
EMS511,EMS503,0
EMS413,EMS116,EMS3S3
EMSS511,EMS504,0
EMS422 ,EMS353
EMS511,EMS504.,0

033332
033340

040545
051670

047373
051251

047446
000000

EMT66:

.WORD
.WORD

EMS12 EMS336,EMS342
EMS511,EMS501.,0

033346
033352
033356

046420
051670
040340

040274
051251
047324

EMTGT7:

.WORD
.WORD
.WORD

EMS300,EMS6
EMS511,EMSS01
EMS7,EMS333,0

000000

000000
051013

000000
047667
000000
000000

000000

EMT4L6:

EMTST:
EMTS2:

EMTSS:

EMTS6:

EMT63:
EMT64:

EMTES:

SEQ 0138

CZR

[an]

14:49

30A(1052)
05-APR-78
CONSOLE MESSAGES

SNNNSNSNSNNNNNNNNNN
NN NNYUNNNNNNNNNNNNNNN

6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922

MACY11

P o)

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38

CZRMKAQ RMO3/2 DSKLS PRT 2
CIRMKA. P
05-APR-78 14:38

6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952

6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982

MACY11

30A(1052)
05-APR-78
CONSOLE MESSAGES

EMT70:

033364
033372
033374
033402

046420
040340
051670
002000

040274

047231

051251

051371

033404
033412
033420
033426

040274
040411
051670
000000

047350

EMT71:

051251

047426
047446
051276

033430
033436
033444
033452

040274

047373
047340
051251

047426
047446
051276

EMT72:

033454
033462
033464
033472

046436
040454
051670

046265

046506

EMT73:

051251

051276

033474
033502

047500
000000

047514

0467446

033504
033510

046420
051670

040623
051345

000000

033516
033524

047571
051670

040623
051345

033532
033540

047412
051670

033546
033554
033560

J N
14:49
PAGE

139

.WORD

EMS300,EMS6,EMS327
,EMST

.WORD

EMSS511,EMSSO1,EMS504,0

.WORD

EMS6,EMS335, EMS340,EMST10,EMS333,EMS342

.WORD

EMS511,EMS501,EMS502,0

.WORD

EMS6,EMS336,EMS340,EMST10,EMS334
EMS362

.WORD

EMS511,EMS501,EMS502,0

.WORD

EMS301,EMS260,EMS303,EMST11

.WORD

EMS511,EMS501,EMS502,0

EMT74:

.WORD

EMS343,EMS344 ,EMS342,0

EMT?7S:

.WORD
.WORD

EMS300,EMS13
EMS511,EMS503,0

047543
000000

EMT76:

.WORD
.WORD

EMS346,EMS13,EMS34LS

040623
051345

047543
000000

EMT?7:

.WORD
.WORD

EMS337 ,EMS13,EMS34S
EMS511,EMS503.0

046436
047607
051670

046722
040623
051345

046076

EMT100:

.WORD

EMS301,EMS313,EMS254
,EMS347 ,EMST3

000000

.WORD

EMS511,EMS503,0

033566
033574
033576
033604

047571
040737
051670
000000

040672

047437

.WORD

EMS346,EMS14 ,EMS34T EMSTS

051345

051251

.WORD

EMSS11,EMSS03,EMSS01,0

033606
033612
033620
033626
033632
033636

047412
051670
046436
047607
051670
040672

044344
051345
046722
040737
05134°¢

.WORD
.WORD
.WORD

EMS337,EMS70
EMS511,EMS503,0
EMS301,EMS313,EMS254
,EMS347 EMSTS

047306

000000

.WORD
.WORVL

FMS14,EMS332,0

033644
033652
033654
033662

047571
041015
051670
000000

041076

047437

.WORD

EMS346,ENS17 EMS36T,EMS16

051345

051251

.WORD

EMS511,EMS503,EMS501,0

033664
033672

047412
041015

041076

047437

.WORD

EMS337,EMS17 EMS34T,EMST6

040411

051670
000000

000000

047324

000000
046076

EMT101:

EMT102:
EMT103:

EMT104:

EMTI10S:

EMS511,EMS503.,0

EMS511,EMS503

SEQ 0139

(IR
CZR

CZRMKAO RM03/2 DSKLS PRT 2
CZRPKA.P1
05-APR-78 14:38

6983
6984
6985
6986

€"97
¢988

6989

6990
6991
6992
6993
6994
6995
6996
6997
6998
6999

7000
7001
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
7018
7019
7020
7021
7022

7023
7024
7025
7026
7027
7028

7029
7030
7031
7032

7033
7034
7035
7036
7037
7038

MACY11

30A(1052)
05-APR-78
CONSOLE MESSAGES

033674
033702

051670
000000

051345

051251

033704
033712
033716
033722

046436
047607
051670
041076

046722
041015
051345
047306

046076

033730
033736
033740
033746

047571
041203
051670
000000

041137

047437

051345

051251

033750
033756
033764

041137
047630
051670

047635
041262
051251

041203
047002
000000

EMT110:

033772
034000
034004

041137
041262
051670

047340
047324
051251

047630

EMTI1Y:

034012
034020
034022
034030

047412
041203
051670
000000

041137

047437

051345

051251

034032
034049
034046
034050

047412
041203
047340

041137
047630

047437
041262

051670

051251

000000

034056
034064
034072

061137
047630
051670

047653
041262
051251

041203
047324
000000

EMT114:

034100
034106
034112
034116

046436
047607
051670
041137

046722
041203
051345
047306

046076

EMT115:

034124
034132
034134
034142

047571
041405
051670
000000

041327

047437

051345

051251

034144
034152
034154
034162

047412
041405
051670
000000

041327

047437

051345

051251

034164
034172
034176
034202

046436
047607
051670
041327

046722
041405

046076

051345
047306

000000

034210

047571

041464

047437

EMT106:

000000

EMTI107:

000000

EMT112:

EMT113:

000000

EMT116:

EMT117:

EMT120:

EMT121:

K 11

14:49

PAGE

140

.WORD

EMSS511,EMSS03,EMS501,0

.WORD

EMS301,EMS313,EMS254
, EMS347 ,EMS16

.WORD
.WORD

EMS511,EMS503
EMS17,EMS332,0

.WORD

EMS366,EMS20 ,EMS341 ,EMS21

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS20,EMS351
,EMS21 ,EMS350,EMS22 ,EMS315

.WORD

EMS511,EMS501,0

.WORD

EMS20,EMS334 ,ENS350,EMS22,EMS333

.WORD

EMS511,EMS501.,0

.WORD

EMS337 ,EMS20,EMS341
,EMS2T

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS337,EMS20,EMS341,EMS2T ,EMS350,EMS22,EMS334

.WORD

EMS511,EMS501,0

.WORD

EMS20,EMS352 ,EMS21,EMS350,EMS22 ,EMS333

.WORD

EMS511,EMS501,0

.WORD

EMS301,EMS313,EMS254
,EMS347 EMS2T

.WORD
.WORD

EMS511,EMS503
EMS20,EMS332.,0

.WORD

EMS346,ENS23,ENS34T,EMS24

.WORD

EMSS511,EMS503,EMS501,0

.WORD

,EMS24
EMS337 ,EMS23 ,EMS341

.WORD

EMS511,EMSS03,EMS501,0

.WORD

EMS301,EMS313,EMS254
,EMS347 EMS24

.WORD
.WORD

EMS511,EMS503
EMS23,EMS332,0

.WORD

EMS346,EMS2S5
EMS34T ,EMS26

SEQ 0140

(IR
CZR

CZRAKAO RMO3/2 DSKLS PRT 2
CZRAKA. P
05-APR-78 14:38
7039
7040
7041
7042
7043
7044
7045
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094

034216
034220
034226

041542
051670
000000

034230
034236
034240
034246

MACY11

30A(1052)
05-APR-78
CONSOLE MESSAGES

LN
14:49
PAGE

141

051345

051251

047412
041542

041464

047437

051670
000000

051345

051251

034250
034256
034262
034266

046436
047607
051670
041464

046722
041542
051345
047306

046076

034274
034302
034304

046420
040057
051670

041621

046542

051345

000000

034312
034320
034324

047256
051670

041621
051345
047002

047667

034332
034340
034342

047412
041665
051670

041621

047437

051345

000000

034350
034356

046722
041665
051345
047306

046076

034366

046436
047607
051670
041621

000000

034374
034402
034410

041745
051670
000000

047713
05137

045706
051345

034412
034420
034426

042016
051670
00¢J00

047717
051371

045706
051345

034430
034436
034442

047746
047437
051670

042076
041665
051371

045706

ENT132: .WORD

000000

.WORD

EMS511,EMS504,0

034450
034456
034462

047746
047437
051670

042135
041665
051371

045706

.WORD

EMS355,EMS34 ,EMS250,EMS341,EMS30

000000

.WORD

EMS511,EMS504.,0

034470
034476

047256
051670

040173
051371

046137
000000

EMT134:

.WORD
.WORD

EMS331,EMSL,EMS2SS
EMS511,EMS504,0

034504
034512
034514

042173
040737
051670

050010

050032

EMT13S:

.WORD

EMS35,EMS357 ,EMS360,EMS15

051251

000000

.WORD

EMS511,EMS501,0

034522
034526

046316
051670

050106
051345

000000

.WORD
.WORD

EMS261,EMS362
EMS511,EMSS03,0

034362

041665

.WORD

EMS511,EMSS503,EMS501,0

.WORD

EMS337,EMS25 ,ENS341 ,EMS26

.WORD

EMSS511,EMSSO3,EMS501,0

.WORD

EMS301,EMS313,ENS254
,EMS347 ,EMS26

.WORD
.WORD

EMS511,EMS503
EMS25,EMS332,0

.WORD

EMS300,EMS27 ,ENS307,EMS2

.WORD

EMS511,EMS503,0

EMT12S:

.WORD
.WORD
.WORD

EMS331,EMS27 ,EMS3S53
EMS511,EMS503
EMS30,EMS315,0

EMT126:

.WORD

EMS337,EMS27
,EMS341 EMS30

.WORD

EMS511,EMS503,0

.WORD

EMS301,EMS313,EMS254
,EMS347 ,EMS30

.WORD
.WORD

EMS511,EMS503
EMS27,EMS332,0

EMT130:

.WORD
.WORD

EMS31,EMS354 ,EMS250
EMSS11,EMSS04 ,ENSS503,0

EMTI31:

.WORD
.WORD

EMS32,EMS354 ,EMS250
EMS511 ,EMSS504,EMSS503,0

EMT122:

EMT123:

000000

EMT124:

000000

EMTI127:

EMT133:

EMT136:

EMS355,EMS33 EMS250,EMS341 ,EMS30

SEQ 0141

CZRI

CZR

CZRAKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
7095
7096
7097
7098
7099
7100
7101
7102
7103
7104
7105
7106
7107
7108
7109
7110
7
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
7122
7123
7124
7125
7126
7127
7128
7129
7130
713
7132
7133
7134
7135

7136
7137
7138
7139

7140
7141
7142

7143
7144
7145
7146
7147
7148
7149
7150

MACY11

30A(1052)

EMT137:

O0S5-APR-78

CONSOLE MESSAGES

N n

14:49

PAGE

142

.WORD

EMS300,EMS36,EMS307,EMS2

.WORD

EMS511,EMSS01,0

.WORD

EMS355,ENS37 EMS255,EMS341 ,EMS30

.WORD

EMS511,EMS504,0

EMT41:

.WORD
.WORD

EMS346,EMSLO, EMS34S
EMS511,EMS504.,0

EMTI42:

.WORD

EMS337,EMSL0,EMS341,EMS30

.WORD

EMS511,EMS504.0

EMT143:

.WORD
.WORD

EMS363,EMS310,EMS4T
EMS511,EMS501,0

047437
046043
000000

EMT144:

.WORD

EMS337,EMS4T
EMS34T EMS252,EMS327 ,EMS253

.WORD

EMS511,EMS501,0

047713
050165
051251

050144
046043
000000

EMTI14S:

.WORD

EMS4T,EMS354
,EMS364 ,EMS252 ,EMS365,EMS253

.WORD

EMS511,EMS501,0

046436
051670
000000

046526
051251

062235
051345

EMT146:

.WORD
.WORD

EMS301,EMS306,EMS3S
EMS511,EMS501,EMS503,0

034722
034726

050172
051670

042451
051345

000000

EMT147:

.WORD
.WORD

EMS366,EMS42
EMS511,EMS503,0

034734
034742
034750

050215
042451
051670

047667
047713
051345

050165
040126
000000

EMT150:

.WORD

EMS367,EMS353,EMS365,EMSL2
,EMS354 ,EMS3

.WORD

EMS511,EMS503,0

034756
03476¢

047412
051670

042235
051251

000000

EMT151:

.WORD
.WORD

EMS337 ,EMS36
EMS511,EMS501,0

034770
034776

042533
051670

047713
051251

042235
000000

EMT152:

.WORD
.WORD

EMS4L3 EMS354 ,EMS36
EMS511,EMS501,0

035004
035012
035016

050215
042235
051670

047667
050265
051345

050165

EMT153:

.WORD

EMS367 ,ENS353 ,EMS365,EMS36,EMS370

.WORD

EMS511,EMS503.,0

035024
035032
035036

050215
042235
051670

047667
050302

050165

.WORD

EMS367 ,EMS353,EMS365,EMS36,EMS3T

051345

000000

.WORD

EMS511,EMS503,0

035044
035052
035054

046420

042604

046542

.WORD

EMS300,EMS4L4 EMS307 ,EMS2

051345

000000

.WORD

EMS511,EMS503,0

034534
034542
034544

046420
040057
051670

042235

046542

051251

000000

034552
034560
034564

047746
047437
051670

042265
041665
05137

066137

034572
034600

047571
051670

042325
051371

047543
000000

034606
034614
034616

047612
041665
051670

042325

047437

051371

000000

034624
034632

050127
051670

046603
051251

042403
000000

034640
034646
034654

047412
046010
051670

042403
047231
051251

034662
034670
034676

042403
046010
051670

034704
034712
034729

040057
051670

EMT140:

000000

000000
EMT154:

EMT1SS:

StEQ 0142

(IR
CZR

CIZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA PN
05~APR-78 14:38
715
7152
7153
7154
7155
7156
7157
7158
7159
7160

MACY11

30A(1052)
O5-APR-78
CONSOLE MESSAGES

EMT156:

035062
035070
035076

050215
042604
051670

047667
047713
051345

828}32

(35104
035112
035114

046420
040057
051670

042645

046542

051345

000000

035122

050215
042645

047667
047713

050165
040126

035130

000000
EMT1S7:

EMT160:

N1
14:49
PAGE 143

.WORD

EMS367 ,EMS353,EMS365,EMS4L4
,EMS3S54 ,EMSS

.WORD

EMSS11,EMS503,0

.WORD

EMS300,EMS4S,EMS307,EMS2

.WORD

EMSS11,EMS503,0

.WORD

EMS367,EMS353,EMS365,EMS4S,EMS354,EMS3

SEQ 0143

CIRY
CZR?

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA. P
05~APR-78 14:38
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
nn
7172
7173
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185
7186
7187
7188
7189
7190
719
7192
7193
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216

MACY11

035136
035144

051670
042173

051345
047324

051251
000000

035152
035160
035162

046420
040057
051670

042722

046542

051345

000000

035170
035176
035204

047412
051670
000000

042722
051345

047667
051251

035206
035214
035222

042173
042403
051670

047350
047340
051251

035230
035236
035244

043004
042403
051670

035252
035260
035262
035266
035274

30A(1052)
05-APR-78
CONSOLE MESSAGES

B 12
14:49 PAGE 144

.WORD
.WORD

EMS511,EMS503,EMSS01
EMS35,EMS333,0

.WORD

EMS300,EMSL6,EMS307,EMS2

.WORD

EMS511,EMS503,0

EMTI162:

.WORD
.WORD

EMS337 ,EMS4L6,EMS3S3
EMS511,EMSS03,EMS501,0

047412
050331
000000

EMT163:

.WORD

EMS35,EMS335,EMS337
EMSLT EMS334 EMS3T2

.WORD

EMS511,EMS501,0

047350
047350
051251

047412
050331
000000

EMT164:

.WORD

EMS47 EMS335,EMS337
EMS4Y EMS335 ,EMS372

.WORD

EMS511,EMS501,0

047412
043004
051670
042403
000000

042173

047231

EMT16S:

.WORD

EMS337,ENS35,EMS327
,EMSL7

051251
047324

050331

.WORD
.WORD

EMS511,EMS501
EMS4T ,EMS333,EMS372,0

035276
035304
035306
035314

046420
040057
051670
000000

043004

046542

.WORD

EMS300,EMS4L7 ,EMS307 ,EMS2

051251

051345

.WORD

EMS511,EMS501,EMS503,0

035316
035324
035330
035336

043044
042235
051670
000000

047350
047324
051251

047426

.WORD

EMS50,EMS335 ,EMS340,EMS36,EMS333

.WORD

EMSS511,EMSS01,EMSS03,0

035340
035344

047412
051670

042173
051251

000000

.WORD

EMS337 ,EMS3S
EMS511,EMS501,0

035352
035360

043044
051670

042135
051251

040126
000000

EMTI71:

.WORD
.WORD

EMSS50,EMS34 EMS3
EMSS511,EMSS501,0

035366
035374
035402

046436
051670
000000

046526
051251

043113
051371

EMT172:

.WORD
.WORD

EMS301,EMS306,EMSST

035404
035412
035420

050215
043004
051670

047667
047712
051251

050165
040126
000000

EMT173:

.WORD

EMS367 ,EMS353,EMS365
,EMSLT EMS354,EMSS

.WORD

EMS511,EMS501,0

035426
035434
035442
035446

046420
046137
047437
051670

045706
047231
051767
051251

047231
046201

EMT174:

.WORD

EMS300,EMS250,EMS327 ,EMS255,EMS327 ,EMS256

.WORD
.WORD

EMS341,EMS600
EMS511,EMS501,0

035454
035462

046420
051767

046201

047437

.WORD

EMS300,EMS256
,EMS341 ,EMS600

EMTI161:

EMT166:

EMTI67:

051345

EMT170:

000000

EMTI75:

EMS511,EMS501,EMS504,0

SEQ 0144

7263

7264

7265

7266
7267
7268
7269
7270
7271
7272

051670

051251

000000

035472
035500
035502

046420
051767
051670

045706

047437

0513N

000070

035510
035516
035520

046420
051767
051670

046137

047437

05137

000000

035526
035534
035536

0474612
052017
051670

043162

047437

051251

000000

035544
035552
035554

047571
052037
051670

043162

247437

051251

000000

035562
035570
035572

047571
052037
051670

043113

047437

051251

000000

035600
035606
035612
035620

047571
050363
051670
000000

047543

051371

051251

035622
035630
035632
035640

047571
041621
051670
000000

043162

047437

051371

051251

035642
035650
035656

043223
051670
051615

047713
051345
000000

040126
051276

035662
035670
035676
035702
035710

047412
045706
047231
051670
000000

043264
047231
040126
051371

035712
035720

043264
051670

047713
051251

040126
000000

035726
035734
035736

043264
045706
051670

047713

050144

051371

000000

035744
035752
035754

043264
046137
051670

047713

050144

051371

000000

035762
035766

047412
051670

043341
051371

000000

¢ 12
14:49
PAGE

145

.WORD

EMS511,EMS501,0

.WORD

EMS300,EMS250,EMS341,EMS600

.WORD

EMS511,EMS504.,0

.WORD

EMS300,EMS255
,EMS341 ,EMS600

.WORD

EMSS511,EMS504.,0

.WORD

EMS337,EMS52 ,EMS341,EMS601

.WORD

EMS511,EMS501,0

.WORD

EMS346,EMS52
,EMS341 ,EMS602

.WORD

EMS511,EMS501.,0

.WORD

EMS346,EMS51 ,EMS341,EMS602

.WORD

EMS511,EMS501,0

.WORD

EMS346 ,EMS52 ,EMS345,EMS3T73,EMS255

.WORD

EMSS11,EMSS04,EMSS01,0

.WORD

EMS346 ,EMSS52 ,EMS341 ,EMS27

.WORD

EMS511,EMS504 ,EMS501.0

EMT205:

.WORD
.WORD

EMSS53,EMS354 ,EMS3

EMT206:

.WORD

EMS337 ,EMS54 ,EMS374,cMS250,EMS327
,EMS255

.WORD
.WORD

EMS327 ,EMS3
EMS511,EMS504 ,EMS501,0

EMT207:

.WORD
.WORD

EMSS4 ,EMS354 ,EMS3

EMT210:

.WORD

EMSS54,EMS354
,EMS364 ,EMS250

.WORD

EMS511,EMS504,0

.WORD

EMS54 ,EMS354 , EMS364,EMS255

.WORD

EMS511,EMS504,0

.WORD
.WORD

EMS337,EMS55
EMS511,EMS504,0

EMT176:

EMTI177:

EMT200:

EMT201:

EMT202:

EMT203:

EMT204:

051251

EMT211:

EMT212:

EMS511,EMS503 ,EMS502,EMS510,0

EMS511,EMS501,0

SEQ 0145

ci}
czs
W NN

035464

30A(1052)
05-APR-78
CONSOLE MESSAGES

7217
7218
7219
7220
7221
7222
7223
7224
7225
7226
7227
7228
7229
7210
7231
7232
7233
7234
7235
7236
7237
7238
7239
7240
7241
7242
7243
7244
7245
7246
7247
7248
7249
7250
7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262

MACY11

PN RWRWEWE

CZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA PN
05~-APR-78 14:38
7273
7274
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297
7298
7299
7300
7301
7302
7303
7304
7305
7306
7307
7308
7309
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319
7320
7321
7322

7323

7324

035774

MACY11

30A(1052)
05~APR-78
CONSOLE MESSAGES

EMT213:

036002
036010
036012
036016

043417
050363
045744
051670
043417

047340
046355

047543
047231

051251
047350

000000

036024
036030

047412
051670

043417
051251

000000

036036
036044
036050

043512
043576
051670

047324
047340
051251

047630

036056
036064

050127
051670

046526
051251

040224
000000

036072
036100

050127
051670

046526
051251

036106
036114
036116

043723
045744
051670

036124
036132
036134

0D 12
14:49
PAGE 146

.WORD

EMS56,EMS334 ,EMS345,EMS373 ,EMS262,EMS327 ,EMS251

.WORD
.WORD

EMSS511,EMSS501
EMS56,EMS335,0

EMT214:

.WORD
.WORD

EMS337,EMS56
EMS511,EMSS501,0

EMT215:

.WORD

EMSS57 ,EMS333 EMS350,EMS60,EMS334

.WORD

EMS511,EMS501,0

EMT216:

.WORD
.WORD

EM~363,ENS306,EMSS
EMS511,EMS501,0

043650
000000

EMT217:

.WORD
.WORD

EMS363,EMS306,EMS61
EMS511,EMS501,0

047324

050420

EMT220:

.WORD

EMS62,EMS333 ,EMS3T75,EMS2ST

051251

000000

.WORD

EMS511,EMS501,0

043723
046355
051670

047324

050434

.WORD

EMS62 ,EMS333 EMS376,EMS262

051251

000000

.WORD

EMS511,EMSS501,0

036142
036150
036152

043723
045706
051670

047324

050434

.WORD

EMS62 ,EMS333 ,EMS376,EMS250

051251

000000

.WORD

EMS511,EMS501,0

036160
036166
036170

047571
052100
051670

043723

047437

.WORD

EMS346 ,ENS62 ,EMS341,EMS603

051251

000000

.WORD

EMS511,EMS501,0

036176
036204
036206
036214

047571
046355
051670
000000

044004

050434

.WORD

EMS346,ENS63 ,EMS376,EMS262

051251

051345

.WORD

EMS511,EMSS01,EMS503,0

036216
036224
036232

044004
050127
051670

047324

047630

.WORD

EMS63,EMS333,EMS350,EMS363,EMS310,EMS262

.WORD

EMS511,EMS501,0

036240
036246
036250

044004
050331
051670

050010

042235

.WORD

EMS63,EMS357 ,EMS36,EMS372

051251

000000

.WORD

EMS511,EMS501,0

036256
036264
036266

044004
040737
051670

047770

050032

.WORD

EMS63,EMS356 ,EMS360,EMSTS

051251

000000

.WORD

EMS511,EMS501.0

000000

051251 006000

EMT221:

EMT222:

EMT223:

EMT224:

EMT225:

EMT226:

EMT227:

SEQ 0146

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
7325
7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359

MACY11

30A(1052)
05-APR-78
CONSOLE MESSAGES

EMT230:

036274
036302
036304

044004
040737
051670

047770

050060

051251

000000

036312
036320

044004
051670

047770
051251

042403
000000

036326
036334
036342

042403
050165
051670

050450
044004
051251

036350
036356
036362
036370

050215
044004
051670
000000

036372
036400
036406
036410
036416

14:49

12
PAGE

147

.WORD

EMS63,EMS356 ,EMS361,EMSTS

.WORD

EMS511,EMS501,0

EMT231:

.WORD
.WORD

EMS63,EMS356 ,EMS4T
EMSS511,EMS501,0

047446
047306
000000

EMT232:

.WORD

EMS41 ,EMS377 EMS342 EMS365,EMS63,EMS332

.WORD

EMS511,EMS501,0

047667
050476
051345

050165

EMT233:

.WORD

EMS367 ,EMS353,EMS365 ,EMS63,EMS4L0T

.WORD

EMS511,EMS503,EMS501,0

041015
050165
040126
051670
000000

050450
044044

050331
047713

.WORD

EMS16,EMS377
,EMS372 ,EMS365,EMS64 ,EMS354 ,EMS3

051345

051251

.WORD

EMS511,EMSS03,EMS501,0

036420
036426
036430
036436

046420
040057
051670
000000

044114

046542

.WORD

EMS300,EMS65,EMS307,EMS2

051276

051345

.WORD

EMS511,EMS502,EMS503,0

036440
036446
036454
036460
036466

043417

050450
050331
050476
051276
000000

050434
047630

.WORD

EMS56 ,EMS377 EMS376,EMS252,EMS372
,EMS350

.WORD
.WORD

EMS65,EMS4LOT
EMS511,EMS502,EMS503,EMS501,0

036472
036500

046420
040057

044155

0465642

.WORD

EMS300,EMS66,EMS307
EMS2

046010

044114
051670
051251

051251

EMT234:

EMT235:

EMT236:

051345

EMT237:

SEQ@ 0147

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
7360
7361
7362
7363
7364
7365
7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
7401
7402
7403
7404
7405
7406
7407
7408
7409
7410
7411
7412
7613
7414
7415

MACY11

30A(1052)

CONSOLE MESSAGES

036502
036510

051670
000000

051251

051345

036512
036520
036526
036534

040737
047630
051670
000000

050461
044155
051345

050331
050476
€51251

EMT240:

036536
036544
036552
036554

044155
040737
052121
051670

047373
050612

047426
050602

EMT241:

051345

000000

036562
036570
036574
036600

050522
041203
051670
042235

052121
050450
051345
047350

050513

036606
036614
036622
036624

044155
041542
052121
051670

047373
050563

047426
050602

051345

000000

036632
036640
036642

044004
052121
051670

050476

050602

051345

000000

036650

036656

050265

050602

036660

042235
052121
051670

051345

000000

036666
036674
036700
036704

050522
041405
051670
042235

052121
050450
051345
047350

050513

036712
036720
036722

044232
052121
051670

047306

050602

051345

000000

036730
036736
036744
036746

044155
040737
052146
051670

047373
050612

047426
050602

051345

000000

036754
036762
036766
036772

050522
041203
051670

052146
05045¢C
051345
047350

050513

037000
037006
037014
037016

044155
041542
052146
051670

047373
050563

047426
05060¢

051345

000000

037024

044004

050476

050602

042235

OS5-APR-78

EMT242:

000000

EMT243:

EMT244:

EMT245:

EMT246:

000000

EMT247:

EMT250:

EMT251:

000000

EMT252:

EMT253:

14:49

PAGE

148

SEQ 0148

(IR
CZR

.WORD

EMSS11,EMS501,EMS503,0

CLR

.WORD

EMS15,EMS400,EMS372,EMS350,EMS66,EMS40T

.WORD

EMS511,EMSSI3,EMSS501,0

.WORD

EMS66,EMS336,EMS340,EMS1S ,EMS4L06,EMSL05,EMS604

.WORD

EMSS511,EMS503,0

.WORD

EMS403,EMSA04L EMSLO2,EMS21 ,EMS3T77

CLS
(PN
CNS
CNS
CNS
CNS
CNS
CNS
CNS
CNS
CON

.WORD
.WORD

EMS511 ,EMS503
EMS36,EMS335,0

CRL
cyL

.WORD

EMS66,EMSI36,EMS340,EMS26,EMS404 ,EMSL05,EMS604

.WORD

EMS511,EMS503,0

.WORD

EMS63,EMS40T,EMSLOS5 ,EMS604

.WORD

EMS511,EMS503.0

.WORD

EMS36,EMS370,EMSL05,EMS604

.WORD

EMS511,EMS503.,0

.WORD

EMS403,EMS604 ,EMSL02,EMS24 ,EMS377

.WORD
.WORD

EMS511,EMS503

.WORD

EMS67 ,EMS332 ,EMS405,EMS604

.WORD

EMS511,ERSS503.,0

.WORD

EMS66,EMS336 ,EMS340,EMS15,EMS4L06,EMS4L05,EMS60S

.WORD

EMS511,EMS503,0

.WORD

EMSL03,EMS605,EMS402
,EMS2T ,EMS377

.WORD
.WORD

EMSS511,ENSS03
EMS36,EMS335,0

.WORD

EMS66,EMS336 ,ENS340,EMS26,EMS404 ,EMSL05,EMSH0S

.WORD

EMS511,EMS503,0

.WORD

EMS63,EMSLOT ,ENSLOS5,EMS60S

EMS36,EMS335,0

|IbBC
DBE

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
7416
7417
7418
7419
7420
7621
7422

7423
74624
7425
7426
7427
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
7442
7443
7444

7445
7446
7447
7448
7449
7450
7451

7452
7453
7454
7455

7456

7457
7458
7459
7460

7461
7462

7463
7464
7465
7466
7467
7468
7469
7470
7471

037032
037034

052146
051670

037C42
037050
037052

042235
052146
051670

037060
037066
037072
037076

MACY11

30A(1052)
05-APR-78
CONSOLE MESSAGES

149

.WORD

EMS511,EMSS503,0

.WORD

EMS36,EMS370,EMSLOS5,EMS605

.WORD

EMS511,EMS503,0

.WORD

EMSLO03 ,EMS605 ,EMSL02 ,EMS24 ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS36,EMS335,0

.WORD

EMS67 ,ENS332,EMS405,EMS605

.WORD

EMS511,EMS503,0

.WORD

EMS66,EMS336,EMSIL0,EMSTS,EMS406,EMSL05,EMS606

.WORD

EMS511,EMS503.,0

.WORD

,EMS377
EMSL02
,EMS21
EMS403 ,ENS606,

.WORD
.WORD

EMS511,EMSS503
EMS36,EMS335,0

.WORD

EMS66,EMS336,EMS340,EMS26,EMSL04 ,EMSLOS5,EMS606

.WORD

EMS511,EMS503.0

.WORD

EMS63,EMSL0T ,EMSL05,EMS606

.WORD

EMS511,EMS503.,0

.WORD

EMS36,EMS370,EMS405,EMS606

.WORD

EMS511,EMS503,0

.WORD

EMS4L03,EMS606,EMSLO2
,EMS24 ,EMS377

.WORD
.WORD

EMS511 ,EMS503
EMS36,EMS335,0

.WORD

EMS70,EMS401,EMS405,EMS606

.WORD

EMS511,EMS503,0

.WORD

EMS67 ,EMS332,EMS405,EMS606

.WORD

EMS511,EMS503,0

EMT267:

.WORD
.WORD

EMS66,EMS356 ,EMSL07
EMS511,EMS503.,0

EMT270:

.WORD

EMS66,EMS336,EMSIL0,EMST1S, EMSL06,EMSLOS,EMS607

051345

000000

050265

050602

051345

000000

050522
041405
051670
042235

052146
050450
051345
047350

050513

037104
037112
037114

044232
052146
051670

047306

050602

051345

000000

037122
037130
037136
037140

044155
040737
052164
051670

047373
050612

047426
050602

051345

000000

037146
037154
037160
037164

050522
041203
051670
042235

052164
050450
051345
047350

050513

037172
037200
037206
037210

044155
041542
052164
051670

047373
050563

047426
050602

051345

000000

037216
037224
037226

044004
052164
051670

050476

050602

051345

000000

037234
037242
037244

042235
052164
051670

050265

050602

051345

000000

037252
037260
037264
037270

050522
041405

036450
051670
042235
047350 000000

EMT264:

037276
037304
037306

044344
052164
051670

050476

050602

EMT265:

05134¢

000000

037314
037322
037324

044232
052164
051670

047306

050602

051345

000000

037332
037340

044155
051670

047770
051345

050625
000000

037346

044155

047373

047426

EMT254:

EMT255:

000000

EMT256:

EMT257:

EMT260:

000000

050513

6 12
14:49
PAGE

EMT261:

EMT262:

EMT263:

EMT266:

SEQ 0149

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
7472
7473
76474
7475
7476
7677
7478
7479
7480
7481
7482
7483
7484
7485
7686
7487
7488
7489
7490
7491
7492
7493
7494
7495
7496
7497
7498
7499
7500

7501
7502
7503
7504
7505
7506
7507
7508

7509

7510
751
7512
7513
7514
7515
7516

7517
7518
7519
7520
7521
7522
7523
7524
7525
7526
7527

037354
037362
037364

052204
051670

037372
037400
037404
037410

050522
041203
051670
041621

037416
037424
037426

041621
052204
051670

037434
037442
037444

041621
052204
051670

037452
037460
037462

040737

MACY11

050612

050602

051345

300000

052204

050513

031343

047373

000010

050265

050602

051345

000000

050302

050602

051345

000000

042235
052204
051670

050563

050602

051345

000000

037470
037476
037509
037506

043223
052204
051670
000000

050476

050602

051345

051276

037510
037516
037520

044232
052204
051670

047308

050602

051345

000000

037526
037534
037542
037544

04¢'55
041542
052204
051670

047373
050563

047426
050602

051245

000000

037552
037560
037564
037570

050522
041405

052204
050450
051345
047373

050513

037576
037604
037606

044344
052204
051670

050476

050602

051345

000000

037614
037620
037624
037630
037634
037640
037644
037650
037654
037660
037664
037670

052222
052301
052317
052356
052375
052423
052522
052621
052657
052734
052310
053012

000000
000000
00000¢
000000
000000
000000
000000
000000
000000
000000
000000
069000

051670
041621

30A(1052)
O05-APR-78
CONSOLE MESSAGES

14:49

12
PAGE

150

.WORD

EMS511,EMS503.,0

.WORD

EMSL03,EMS607
,EMS402 ,EMS2T ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS27,EMS336.0

.WORD

EMS27 ,EMS370,EMS4L05,EMS607

.WORD

EMS511,EMS503.0

.WORD

EMS27 ,EMS3T71 EMSLO5,EMS607

.WORD

EMS511,EMS503,0

.WORD

EMS36.EMSL04
EMSLOS ,EMS607

.WORD

EMSS511,EMS503.0

.WORD

EMS53,EMSL0T
,EMSL05 ,EMS607

.WORD

EMS511,EMSSO3,EMS502.,0

.WORD

EMS6E7 ,EMS332 ,EMSLOS5,EMS607

.WORD

EMS511,EMS503,0

.WORD

EMS66,EMS336 ,EMS3L0,ENS26,EMS404 EMS4LO0S5 EMS607

.WORD

EMS511,EMS503.0

.WORD

EMS403,EMS607 ,EMSL02,EMS24 ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS27,EMS336.,0

.WORD

EMS70,EMS401 ,EMSLO05,EMS607

.WORD

EMS511,EMS503.,0

EHTT:
EHTZ:
EHTS:
EHT?Z:
EHTLT:

.WORD
.WORD
.WORD
.WORD

EHT,0
EHZ,0

EHTO:

.WORD
.WORD
.WORD
.WORD

EMT271:

EMT272:

EMT273:

EMT274:

EMT275:

EMT276:

EMI277:

EMT300:

000000

EMT301:

EHTS?:
EHTS?7:

.WORD
.WORD
.WORD

EHTES:
EHT?1:
EHT74:
EHT115:

.WORD

EHS5,0

SEQ 0150

CIZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38
037674
037700
037704
037710
037714
037720

053110
053227
053326
053444
053543
053641

037724
037726
037730
037732
037734
037736
037740
037742
037744
037746
037750
037752
037754
037756

30A(1052)
O05-APR-78
CONSOLE MESSAGES

EHr130:
EHT132:
EHT145:
EHT150:
EHT213:
EHT220:

.WORD
_WORD
.WORD
.WORD
.WORD
.WORD

EMW13
EHI13
EH14
EMH15
EH21
EHZ2?2

053700
053710
053714
053722
053732
053744
053756
053770
054000
053710
054010
054022
054010
054036

EDT1:

.WORD

ED?

EDTS:
EDT47:
EDTS2:
EDTS57:
EDT61:
EDT65:
EDT71:
EDT74:
EDT115:
EDT130:
EDT132:
EDT220:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ED5
ED47
EDS2
EDS7
EDST
ED6S
ED7
ED2
ED11S
ED130
ED115
ED220

037760
037762
037764
037766
037770
037772
037774
037776
040000
040002
040004

054042
0546045
054046
054050
054042
054042
054045
054050

EFT1:
EFT2:
EFTS:
EFTS7:

.WORD
.WORD
.WORD
.WORD

EF1
EF2
EF5
EFS7

.WORD

EFS

040006
040057
040126
040173
040224
040274
040340
040411
040454
040524
040545
040623

047516

EDTZ:

054046

103

052506
125

042504
040520
040504
120

040515
051050
~N

b \ Y
b e

= O
V. IF L

(=)
|V,]

P )

=t = = O
NIV LV TV P 3

PO
(S JVIIV

i
b

o
&

040672
040737
041015
041076
041137
041203
041262
041327
041405

000000
000000
000000
000000
000000
000000

054054
054050

7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
7562

MACY11

EFT65:
EFT71:
EFT74:
EFT115:
EFT130:
EFT132:

.WORD
.WORD
_WORD
.WORD
.WORD
.WORD

.NLIST

BEX

EMS2:

.ASCIZ

EFT220:

042516
047117
041516
052516
044526
052122
040524
051101
051523
041515
046114
040511
044504
044501
044501
052111
053105
044501
040523
042505
044501

044530
051124
044524
042523
042503
054511
050040
052111
052502
030523
043505
047107

046525
052116
052116
020105
04151
052116
042506
020113
052116

.WORD

EMST:
EMS3:
EMS4:

EMSS:
EMS6:
EMS7:
EMS10:
EMS11:

SEQ 0151

ED2

EF1
EF1
Ef2
EFS7
EF130
EFS7

12)

@CONTROLLER CLEAR ''CLR'* (RMCSZ2,BIT 05) a
a

.ASCIZ
,ASCIZ
_ASCII

@DATA PARITY ERROR '‘DPE’’ (RMERZ2, BIT 03) &
@PARITY TEST '‘PAT'" (RMCS2, BIT 04) a
@MASSBUS CONTROL BUS PARITY ERROR 'M(PE' a

_ASCIZ

@DIAGNOSTIC MODE '‘DMD’'' (RMMR1, BIT 00) @

.ASCIZ

.ASCI%

_ASCI
.ASCI 4
L ASCI 4
.ASCI 4
.ASCI 4
.ASCI 4

@(RMCS1, BIT 13) @
SILLEGAL REGISTER ERROR ''ILR'' (RMER1, BIT 01)

QMEDIUM ON LINE °'‘MOL'' (RMDS, BIT 12)

CZR
CZR
EMS
EMS
EMS
EMS
EMS
EMS
EMS
EMS
EMS
EMS
EMS
EMS

@FUNCTION CODE (RMCS1, BITS 01 - 05) @
@QUNUSED BIT POSITIONS OF @
QDEVICE AVAILABLE '‘DVA'' (RMCS1, BIT 11)
@PARTIY ERROR ''PAR'* (RMER1, BIT 03) a

_ASCIZ

EMS17:
EMS20:
EMS21:
EMS22:
EMS23:
EMS24:

151

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS14:
EMS16:

PAGE

QNONEXISTENT DEVICE ''NED'' (RMCS2,BIT

.ASCIZ
.ASCIZ

EMS15:

.ASCIZ

EMS12:

EMS13:

14:49

@MAINTENANCE UNIT READY '‘MUR'' (RMMR1, BIT 09) @

SMAINTENANCE WRITE PROTECT 'MWP'' (RMMR1, BIT 03)

SWRITE LOCK "‘WRL'' (RMDS, BIT 11) @
SDEVICE CHECK ''DVC'' (RMERZ2, BIT 07) @
SMAINTENANCE DRIVE FAULT 'MDF'’ (RMMR1, BIT 06) a
SUNSAFE STATUS "'UNS'' (RMER1, BIT 14) @
@SEEK INCOMPLETE STATUS ''SKI'* (RMER2, BIT 14) @
SMAINTENANCE SEEK ERROR °''MSER'' (RMMR1, BIT 07) a

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA. P11
05~APR-78 14:38
041464
041542
041621
041665
041745
042016
042076
042135
042173
042235
042265
042325
042403
042451

047520
040515
105
104
114

040514
042523
124
126
107
103
114
103
103

044523
047111
042116
040511
051501
052123
052103
040522
046117
020117
046131
051501
046517
046517

MACY11

30A(1052)
O05-APR-78
CONSOLE MESSAGES

044524
042526
047440
047107
020124
051440
051117
045503
046525

EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS3S:
EMS36:
EMS37:
EMS4LO0:
EMS4:
EMS4L2:

044502
047111
020124
047520
040515

<ASCIZ

<ASCIZ
ASCIZ

ASCIZ
CASCIZ
<ASCIZ
.ASCIZ
ASCIZ

<ASCIZ
JASCIZ
LASCIZ
LASCIZ
CASCIZ
LASCIZ

14:49

12
PAGE

152

SEQ 0152

@POSITIONING IN PROGRESS '‘PIP'' (RMDS, BIT 13) a
SMAINTENANCE ON CYLINDER “'MOC'’ (RMMR1, BIT 08) @
&END OF BLOCK "‘EBL'' (RMMR1, BIT 13) a
S8DIAGNOSTIC END OF BLOCK "'DEBL'' (RMMR1, BIT 13) a
@LAST SECTOR STATUS ‘'LS"’ (RMMR1, BIT 02) a

EMS

EMS
EMS

SLAST SECTOR/TRACK STATUS ‘“'LST'" (RMMRY1, BIT 01) a

@#SECTOR ADDRESS, B1TS 00-04 OF @
@8TRACK ADDRESS, BITS 08-10 OF @
#VOLUME VALID ‘'‘vv'' (RMDS, BIT 06) @
8GO0 BIT (RMCS1, BIT 00) @
SCYLINDER ADDRESS, BIT 00-09 OF @
S8LAST BLOCK TAKEN STATUS '‘LBT'' (RMDS, BIT 10) a
@COMPOSITE ERROR ''ERR'' (RMDS, BIT 14) a
SCOMMAND SEQUENCER TEST BIT “'TST'' (RMMRZ, BIT 12)

(IR
CIR

EMS

EMS
EMS
EMS
EMS
EMS

EMS
EMS
EMS
EMS
EMS
EMS

EMS
EMS
EMS
EMS
EMS

EMS
EMS
EMS
EMS
EMS
EMS
EMS
EMS
EMS
[EMS
EMS
EMS
EMS
|EHS
EMS
EMS
EMS

EMS
EMS

|sns
EMS

[EMS
EMS
EMS
EMS

CIRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
042533
042604
042645
042722
043004
043044
043113
043162
043223
043264
043341
043417
043463
043512
043576
043650
043723
044004
0440446
044114

044155
044232

044306
044344

044412
04447
044546
044616
04467
044745
045006
045051
045111
045165
0645233
045273
045320

045361
045426

045436

045475

045513
045551
045610
045656
045673
045706
045744
046010

046043
046076
046137
046201
046231
046265

040524
044514
042523
050117
104
051104

040515

K 12
14:49
PAGE

MACY11

30A(1052)
O05-APR-78
CONSOLE MESSAGES

044522
052116
053116
051523
052503
042514
043106
051506
047125
040526
042104
043505
046522
05311
043517
053111
051117
042524
05211
042503
053116
020107
0-2516
051101

042526
04711
046101
047440
044520
040507
042523
052105
040440
044514
042522
051511
021122
020105
040522
020105
020124
052116
020105
052120
046101
052502
020123
044103

EMS43:
EMS44:
EMS4S5:

_ASCIZ
ASCIZ
.ASCIZ

@DRIVE READY STATUS "‘DRY’' (RMDS, BIT 07) 3
QCONTINUE "'CONT'' (RMMRY, BIT 06) @
@INVALID COMMAND ERROR ''IVC'' (RMERZ2, BIT 12) 3

EMS50:
EMS51:
EMS52:
EMSS53:
EMS54:
EMS55:
EMS56:

QILLEGAL FUNCTION 'ILF'' (RMER1, BIT 0) @
QOFFSET DIRECTION "OFD'* (RMOF, BIT 07) @
QOFFSET MODE '‘OM'* (RMDS, BIT 00) @
@RUN AND GO ‘*RG’' (RMMR1, BIT 14) @
@INVALID ADDRESS ERROR '‘IAE’'‘ (RMER1, BIT 10) a
QADDRESS OVERFLOW ERROR ‘*AOE'* (RMER1, BIT 09) a
@REGISTER MODIFICATION REFUSED ERROR @
@''RMR'’ (RMER1, BIT 02) @
@DRIVE REQUEST REQUIRED STATUS ‘'DRQ'‘ (RMDT, BIT 11) &
@PROGRAMMABLE STATUS °'‘PGM'’' (RMDS, BIT 09) @

EMS70:

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1
LASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

051105
05151
053111
047111
044501
051117
352103
047522
044501
047517
044522
040505
042101
040516
042101
042101
040505
052101
052101
041101
020103
041502
045523
052116
047522
051122
047111
051505
043106
044522
046117

052101
041101
020105
042524
052116
04G515
051117
020115
052116
044513
042524
042504
051105
046102
051105
043440
042504
020101
020101
042514
040520
042440
040440
047522
020122
051117
042524
05111
042523
042526
044504

EMS71:
EMS72:
EMS73:
EMS74:
EMS?75:
EMS76:
EMS77:
EMS100:
EMS101:
EMS102:
EMS103:
EMS104:
EMS105:
EMS106:
EMS107:
EMS110:

L.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QOPERATION IMCOMPLETE ERROR ''OPI''(RMER1 BIT13) 3
@SDISARLE SEARCH TIMEQUT ‘‘DTO’" (RMMR1 BIT 12) 3
@DRIVE TIMING ERROR °‘‘DTE''(RMER1,BIT 12) a
Q@MAINTENANCE INDEX PULSE 'MI''(RMMR1 BIT 2) a
QMAINTENANCE SECTOR PULSE 'MS’'(RMMR1 BIT 5) 3
QFORMAT BIT “'FMT16"' (RMOF,BIT12) @
@SECTOR COMPARE ‘‘MSC''(RMMRY BIT 1) @
@PROM STROBE ‘‘WC'' (RMMR1 BIT 5) @
QMAINTENANCE BIT CLOCK ‘MCLK'' (RMMR! BIT11) @
@LOOKING FOR SYNC “'PLFS''(RMMR1,BIT10) a
QWRITE GATE ‘‘BBOO'" (RMMR? BITO) @
QHEADER SYNC PATTERN @
QHEADER AREA ''PHA'" (RMMR1 BIT 7) a
QENABLE CRC OUT "ECRC'' (RMMR1 BIT 9) a
QHEADER @
@READ GATE ‘'BBO1''(RMMR2 BIT 1) a

EMS113:

_ASCIZ

@QDATA AREA '‘PDA’’ (RMMR1 BIT 8) @

EMS115:
EMS116:
EMS250:
EMS251:
EMS252:
EMS253:
EMS254:
EMS255:
EMS256:
EMS257:
EMS260:

_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS46:
EMS47:

EMS57:
EMS60:
EMS61:
EMS62:

EMS63:

EMS64:
EMS65:
EMS66:

EMS67:

EMS111:
EMS112:
EMS114:

.ASCIZ
_ASCIZ

_ASCIZ
_ASCIZ
_ASCIZ

153

SEQ 0153

@LOSS OF SYSTEM CLOCK ERROR ''LSC'' (RMERZ, BIT
SOCCUPIED ''OCC'" (RMMR1, BIT 15) @

11)

QDRIVE PRESENT STATUS ‘‘DPR'' (RMDS, BIT 08) @
@PORT REQUEST FLOP ''RQA,RQB’' (RMMR2, BITS 15,14)

GSATTENTION “‘ATA’" (RMDS, BIT 15) @

QWRITE LOCK ERROR '‘WLE'' (RMER1, BIT 11) @
QEXCEPTION ''REX'® (RMMR1, BIT 12) @
@INVALID COMMAND ERROR ‘'‘IVC'' (RMER2, BIT 12)

QTAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL a
@QLINES

(RMMR2, BITS 10,11,13)

Q@SEARCH ENABLE ‘'ESRC'® (RMMR1, BIT 11) @&

QHEADER ERROR @
@DATA TIMING SEQUENCER OUTPUT @

SENABLE ECC OUT "EECC'' (RMMR1, BIT 4)

QECC PATTERN @
QECC ERROR @
@DISK ADDRESS REGISTER (RMDA) a
@CONTROL STATUS REGISTER #1 (RMCS1) 3
@QERROR REGISTER #1 (RMER1) @
@ERROR REGISTER #2 (RMER2) @
@MAINTENANCE REGISTER #1 (RMMR1) @
@DESIRED CYLINDER REGISTER (RMDC) @
@QOFFSET REGISTER (RMOF) @
@ORIVE TYPE REGISTER (RMDT) @
QHOLDING REGISTER (RMHR) @

EMS
EMS

EMS

EMS
EMS
FHS

EMS
EMS
EMS

CZRAKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

046316
046355

042523

044522
052124

046420
046436

040503
0405903

047116
047116
054516
044124
051122
047117
047111
055040
051105
020105
044123
050120
042520
044507
024040
024040
024040
024040
046114
020114
055040
020124
047440
041412
047116
046440
047040
051440
052517
047510
047116
040503
044523
044522
054105
020123
020131
047101
052111
020124
051501
051501
020116
020122
047116
020123
020123
047524
047524
044440
047101
052123
042116

046461
046506
046517
046526
046542
046603
046620
046664
046722
046753
047002
047030
047051
047071
047111
047131
047151
047170
047210
047221
047231
047237
047256
047306
047324
047340
047350
047373
047412
047426
047437
047446
047500

047514
047543
047571
047607
047630
047635
047653
047667
047713
047746
047770
050010
050032
050060
050106
050127
050144
050165

101

044527

105
020101
051525
101

053105
044124
020101
101

050101
042522
061

062
064
070

101
046101
052101
101
054
015
040503
051511
051511
051511
044123
123
040503
042502
125
052504
047125
052502
102
103
127
052502
127
127
m
m
040503
040527
040527

020060
020061
051511

103
042524
101

L 12

MACY11

30A(1052)
O05-APR-78
CONSOLE MESSAGES

04610
04710

EMS261:
EMS262:

.ASCIZ
.ASCIZ

@SERIAL NUMBER REGISTER (RMSN) @
QATTENTION SUMMARY REGISTER (RMAS) @

EMS300:
EMS301:
EMS302:
EMS303:
EMS304:
EMS306:
EMS307:
EMS310:
EMS311:
EMS312:
EMS313:
EMS314:
EMS315:
EMS316:
EMS317:
EMS320:
EMS321:
EMS322:
EMS323:
EMS324:
EMS325:
EMS326:
EMS327:
EMS330:
EMS331:
EMS332:
EMS333:
EMS334:
EMS335:
EMS336:
EMS337:
EMS340:
EMS341:
EMS342:
EMS343:
EMS344:
EMS345:
EMS346:
EMS347:
EMS350:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
ASCIZ
.ASCIZ

QCANNOT CLEAR @
@CANNOT WRITE/READ @
@ANY DEVICE REGISTER @
QwlTHOUT @
SERROR 2
@A ONE FROM 3
@USING MASSBUS INITIALIZE, [.E., @
@A ZERO FROM @
SEVERY DEVICE REGISTER BIT POSITION a
@THE FOLLOWING BITS ARE STUCK @
@A SHIFTING ONE BIT FROM @
@APPEARS STUCK AT ZERO @
QAPPEARS STUCK AT ONE @
@REGISTER SELECT @
@1 (1,2.4,8,16) @
@2 (1,2,4.8,16) a3
@4 (1,2,4,8,16) @
@8 (1,2,4.8,16) 3
@ALL ONES FROM @
@ALL ZEROS FROM &
QAT ZERO @
QAT ONE @
@, OR @
<CR><LF>3CS MBA CLRL a
SCANNOT READ ZEROS FROM 3
@IS INCORRECT @
@IS NOT SET @
@IS SET @
@SHOULD NOT BE SET 3
@SHOULD BE SET a
@CANNOT SET @
@BECAUSE @
@QUSING @
@DURING REGISTER TRANSFER @
QUNEXPECTED @
@BUS TIMEOUT (04 TRAP) @
@BY REGISTER TRANSFER @
@CANNOT RESET @
@WITHOUT SETTING 3
aBUT @

EMS360:

.ASCIZ

@0 TO 1 TRANSITION OF @

EMS351:
EMS352:
EMS353:
EMS354:
EMS355:
EMS356:
EMS357:

000040

EMS361:
EMS362:
EMS363:
EMS364:
EMS365:

_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ

14:49

PAGE

154

@WAS RESET BY @
@WAS SET BY @
@®IN DIAGNOSTIC MODE @
@IS INCORRECT ACCORDING TO @
@CANNOT INCREMENT 3
@WAS NOT SET BY a
@WAS NOT RESET BY @
@1 TO O TRANSITION OF a
@IS INCONSISTENT &
@SCANNOT READ 3
@TEST PATTERN IN &
@AND @

SEQ 0154

CZR?
CZRre

CIRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
050172
050215

040503
126

047116
042510

MACY11

30A(1052)
OS-APR-78
CONSOLE MESSAG-S

052117
04146440

EMS366:
EMS367:

.ASCIZ
.ASCIZ

14:49

PAGE

155

@CANNOT INITIALIZE a
QTHE COMMAND SEQUENCER HAS BEEN CLOCKED @

SEQ 0155

CIRMKAO RM03/2 DSKLS PRT 2
CIRMKA . P11

05-APR-78 14:38

MACY11

30A(1052)

O05-APR-78

CONSOLE MESSAGES

N 12
14:49
PAGE

156

122
044504
104
126
127
054502
054502
040527
127
044504
127
047503
127
052504
040527
123
101
053440
051440
044440
041440
053440
041440
042040
107
052504
111

051505
020104
051125
020117
052111
051040
053440
020123
051501
020104
044510
046515
051501
044522
020123
040505
052106
051501
052105
041516
047101
051501
051117
051125
047105
044522
061516

052105
047516
047111
000
020110
040505
044522
042523
047040
047516
042514
047101
047040
043516
042522
041522
051105
041440
0426440
051117
047516
051440
042522
047111
051105
043516
051117

EMS370:
EMS371:
EMS372:
EMS373:
EMS374:
EMS375:
EMS376:
EMS377:
EMS400:
EMS401:
EMS402:
EMS403:
EMS404:
EMS405:
EMS406:
EMS407:
EMS410:
EMSL11:
EMS412:
EMS413:
EMSL14:
EMSL15:
EMSL16:
EMS417:
EMS420:
EMS421:
EMS422:

.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASC 4
.ASC I
.ASC I
.ASC I
.ASC I
.ASC I
.ASC I
.ASC I
.ASC I
.ASC I
.ASC 1
.ASC 1
_ASC I
ASC I
ASC Z
_ASC I
,ASC I
.ASC I
ASC I
.ASC I
.ASC I
.ASC Iz

@DID NOT SET @
@WHILE @
QCOMMAND SEQUENCER DID NOT ABORT a
@WAS NOT RESET @
@DURING @
SWAS RESET @
@SEARCH TIMEOUT @
QAFTER @
@ WAS (CHANGED @
@ SET EARLY @
@ INCORRECT @
@ CANNOT DETECT @
@ WAS SIMULATED a
@ CORRECY @
@ DURING WRITE @
@GENERATED @
QDURING READ @
SINCORRECT DATA TRANSFERRED TO MEMORY a

051111
051142
051205
051251
051276
051345
051371
051415
051470
051525
051615
051670
051717

011
042011
011
011
046411
011
011
011
042011
011
011
005015
011

042504
053105
051124

EMSS00:

043111
051501
051503
051504
042504
053105
042504
051501
050011
047050

044526
041511
047101
0646440
041123
046440
046440
044526
041511
044526
052523
047522
052117

.ASCII
LASCID
LASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCII
LASCIZ

@
ODEVICE IS NONEXISTENT ,@<CR><LF>
@
DEVICE IS SWITCHED TO OTHER PORTA<CR><LF>
@
TRANSCEIVER ENABLE SWITCH IS OFF@<CR><LF>
@
IF MODULE, M7686,8<CR><LF>
@
MASSBUS TRANSCEIVER,M5922 OR M5923
8<CR><LF>
@
CS MODULE
,M7684 ,8<CR><LF>
@
DS MODULE ,M7685,8<CR><LF>
@
DEVICE IS SWITCHED TO A/B PORT POSITIONR<CR><LF>
@
DEVICE IS NOT AN RMO3, OR®<CR><LF>
@
DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, ORI<CR><LF>
@
ASSUMING THE RH CONTROLLER HAS NO FAULTR<CR><LF>
<CR><LF>®
PROBABLE FAULT(S) :@<CR><LF>
@
(NOT INCLUDING CABLES OR CONNECTORS)Q@<CR><LF>

051767
052017
052037
052100
052121
052146
052164
052204

122
117
122
042522
122
042523
042523
040504

040505
043106
052105
042514
041505
045505
051101
040524

020104
042523
051125
051501
046101
041440
044103
041440

EMS600:
EMS601:
EMS602:
EMS603:
EMS604:
EMS605:
EMS606:
EMS607:

.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI

SREAD IN PRESET COMMAND 3
QO0FFSET COMMAND @
SRETURN TO CENTER CENTER COMMAND a3
SRELEASE COMMAND @
SRECALIBRATE COMMAND 3
@SEEX COMMAND @
8SEARCH COMMAND 3
8DATA COMMAND @

052222
052252
052301
052310
052317

054105
052123
040
042101
105

041520
052101
040502
042522
050130

042124
051525
042523
051523
052103

EHY:

ASCII
.ASCIZ
ASCII
.ASCIZ
LASCIL

QEXPCTD RECEVD
REGSTRE<CR><LF>
@STATUS
STATUS
ADRESS®
@ BASE@<CR><LF>
SADRESS3
SEXPCTD
STUCKR<CR><LF>

EH2EH3:
ENS:

Pt P

Pumg Pt Pumg Pumt Pt Pud

Pt Pumg Pumg fumg Pumg fumg fremg pumg Pumg Pumg Pumg

050265
050302
050331
050363
050367
050420
- 050434
050450
050461
050476
050513
050522
050563
050602
050612
050625
050645
050654
050672
050706
050722
050742
050762
050774
051013
051026
051043

EMS501:
EMSS502:
EMS503:
EMS504:
EMS505:
EMS506:
EMS507:
EMS510:
EMSS511:

QRESET EARLY @
@DID NOT RESET ON TIME @
@QDURING COMMAND EXECUTION @
Q70 @
@WITH ANY COMBINATION OF @
#BY READING @

SEQ 0156

@BY WRITING &
@WAS SET 3

@WAS NOT SET @

CIRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38

052337
052356
052375
052423
052463
052522
052562
052627
052657
052705
052734
052763

053012
053051
053110
053160

053227
053267
053326
053375

7563
7564

7565

7566
7567
7568
7509

7570
7571
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590

122
054105
040
105

106

047123
051104
040

105
123
054105
123
054105
123

0564105
052123

051505
041520
044506
050130
05111

050107
052126
054105

050130
040524
041520
040524
041520
040524

041520
052101

MACYT1

046125
042124
051522
052103
052123
052122
050131
042520
052103
052524
042124
052524
042124
052524
0462124
051525
052103
052116
042124

105
103
054105
103

050130
052517
041520
050115

053444
053505
053543
053602
053641
053661

0564105
122
105
062522
101
122

041520
051505

050130
052523
052103
051505

042124
046125
052103
052114
040525
046125

053700
053706
053710
053714
053722
053730
053732
053740
053744
053752
053756
053764
053770
053776
054000
054006
054010
054016
054022
054030
054036

001140
000000
001136
001140
001174
000000
001174
0564064
001174
001136
001200
001176
001140
000000
001140
000000
001140
001174
001140
001174
001142

001142

001136

054042
054045
054046
054050
054053

000
000
000
000
000

000000
001142
001176

051105

001200

30A(1052)
05-APR-78
CONSOLE MESSAGES

EH7:

EH4L7:
EH52:
ENS7:
EH61:
EN65:

EH71:
EH115:
EH130:
EH132:
EM145:

ASCIZ

8 13

14:49

@RESULT

SEQ 0157

PAGE 157

BIT(S)d

.ASCIZ

SEXPCTD

LASCII

QEXPCTD

RECEVD

EXPCTD

RECEVDE<CR><LF>

@SNGPRT

DULPRT

RECEVD

DRVTYPA<CR><LF>

ASCIZ
LASCIZ

ASCII

.ASCIZ

ASCIZ
LASCIL
ASCIZ

LASCI]

.ASCIZ

_ASCII

@ FIRST
QFIRST

SORVTYP
@STATUS

DRVTYP

STATUS

ADRESS

PATTRN®

ADRESS

PATTRN

ADRESS

REGSTR®

RECEVD

@EXPCTD

ACTUAL

QEXPCTD

ACTUAL

@COUNT

.ASCIZ

@CMPERR

REGADRS

RECEIVED ECCa
TESTa<CR><LF>

PATTRN®

@EXPCTD

.ASCIZ

DRVIYP

SECOND@

STATUS

RECEVD

@STATUS

SECOND

REGSTRa

QEXPCTD

@STATUS

(RCa

STATUS

RECEVD

.ASCIZ

_ASCII

FIRST

QEXPCTD
@STATUS

_ASCII

SECOND

@ EXPECTED ECC
@QEXPCTD RECEVD

LASCIZ

.ASCII

RECEVD®

STATUS
COUNT

CMPERR

TESTA<CR><LF>

REGSTR

REGSTR
REGSTR
REGSTR
ADRESS

TESTR<CRO<LF>
TEST

OFFSET@<CR><LF>
REGSTR3

OFFSET@<CR><LF>
RMER1

PATTRN

RMER2I<CR><LF>
PATTRNS

EH150:

.ASCI1

QEXPCTD

ALTUAL

REGSTR FUNCTION@<CR><LF>

EH213:

.ASCII

QEXPCTD

ACTUAL

STATUS

EH220:

.ASCIZ
.ASCIZ

.ASCII

.ASCIZ
.LIST BEX
.EVEN
ED1:
.WORD

SRESULT

G@RESULT

@ACTUAL

@RESULT

.WORD

$BDADR,O

.WORD
.WORD

RESULT

ADRESS

(ODE®

ADRESS

REGSTRa

REGSTRA<CR><LF>

TEST@<CR><LF>

ADRESS@®

$GDDAT,$BDDAT,$BDADR,0

ED?2:

EDS:
ED47:

RESULT

S$GDDAT,$BDDAT,0
$TMPO,S$TMP1,8TMP2,0

054062
000000
001176
000000
001202
000000
001142

001176

EDS52:

.WORD

S$TMPO,BUFFER,$TMP1,BUFFER+2,0

001142

EDS7:

.WORD

STMPO,$TMP1,$BDDAT,$BDADR,0

001174

ED61:

.WORD

$STMP2,$TMP3,$TMPO,$TMP1,0

001174

ED6S:

.WORD

S$GDDAT,$BDDAT,$TMPO,0

001142

001440

ED71:

.WORD

$GDDAT,$BDDAT,RMHRO,0

001142
00000C
001142
001176
001136

001136

ED115:

.WORD

$GDDAT,$BDDAT,$BDADR,$TMPO,0

001136
000000

ED130:

.WORD

$GDDAT,$SBDDAT,$BDADR,$TMPO,$TMP1,0

ED220:

.WORD

$SBDDAT,SBDADR

EF1:
EF2:

.BYTE
.BYTE

EF57:

.BYTE

0,0,0
0
0 .0
0,0,0.0

000

000
000

000

EFS5:

.BYTE

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
7591
7592
7593
7594
7595
7596
7597
7598
7599

054054
054057

054062
054062
055066
054062
054062
054064
054103
054122
054124
054146
054164
054220
054254
054307
0564340
054364
054417
054450
054472
054522
054550
054612

056643

054702
054734
054763
055015
055046
055076
055100
055102
055120
055156
055203
055227
055265
055317
055344
055371
055431
055446
055462
055476
055512

055525
055540
055553
055566

7600

000
000

MACY11

000

054062
000402
000402
054062
005015
044514
055
005015
030524
031124
031524
032124
032524
124
033524
030524
124
030524
030524
030524
030524
030524
124
031124
031124
124
124

031124
005015
005015
053523
026455
020040
040
040
040
040
020040
040
040
020040
020040
020040
020040
040
020040
040
005015

000001

30A(1052)
05-APR =78
CONSOLE MESSAGES

EF130:

.BYTE

0,0,0,0.0

.EVEN
BUFFER:
BUFONE:
BUFTWO:

.BLKW
.BLKW

258.
258.

.NLIST BEX

052123
026455

047440
026455

052011
041411
046411
041411
052011
004466
042011
006460
030461
004462
004463
004464
004465
004466

040522
047524
051501
042514
044522
042522
044522
042504
051411
042523
047506
051120

033461
004460

004461
031062
031462
004464

052111
026455
032461
030440
030440
030440
030440
034440
020040
020040
033040
032440
032040
031440
020040
030440
020040
000

054523
054523
040411
054523
051127
044011
042411
041505

044103
026455
004411
004464
006463
004461
004460
004411
004470
004467
004411
004411
004411
004411
004462
00441
004460

14:49

HELP:
LASCII

LASCII
ASCI]
ASCII
ASCII

LASCII
.ASCII

LASCIL

.ASCII
.ASCII

@73
@T4

@T5

@76

@717
@T10
8T
@712
aT13

LASCII

aTV?

LASCII
LASCIT
LASCII
LASCII
LASCII

158

BUFFER

<CR><LF>
@LIST OF TESTS@<CR><LF>
@=====-- ------ S8<CRO<LF>
<CRO><LF>
amn
TRANSFER TESTR<CR><LF>
aT?2
CTOD TESTR<CR><LF>

LASCII1
LASCII
LASCII
LASCII
LASCII
LASCIT
LASCII
LASCII

PAGE

T4
QT15
@T16

@720
a1
QaT22
aT23
@T24

<CR><LF>
LASCI1
<CRY<LF>
ASCII
.ASCII
QSWITCH
.ASC]]
@=-===-~LASCII
®
15
LASCI]
@
14
LASCII
@
13
LASCII
8
N
JASCII
@
10
CASCITI
@
9
ASCII
@
8
.ASCI1
@
7
ASCII
@
6
LASCII
@
5
LASCIT
8
4
LASCII
@
3
LASCII
@&
2
LASCI]
@
1
ASCII
@&
0
<CRO<LF>
JASCIZ
LLIST BEX
.END

MASSBUS INITIALIZE TESTR<CR><LF>
CLEAR STUCK ACTIVE TESTa<CR><LF>
TRISTATE TRANSFER TEST@<CRO><LF>
REGISTER SELECT TEST@<CR><LF>
DRIVE TYPE TEST@<CR><LF>
DEVICE AVAILABLE TELTR<CR><LF>
SEARCH TIMEOQUT TESTa<CR><LF>
SET DTE TESTA<CR>LLF>
FORMAT CHANGE TEST@<CR><LF>
PROM STROBE TEST@<CR><LF>
SYNC WORD COUNT INHIBIT TESTR<CR><LF>
SYNC DETECTION TESTA<CR><LF>

SEQ 0158

CiZi
2

En
Em
en
Em
Em
Em
Em
em
em
EM
Em
ENE
eal
ERI
ERf
ER}
ERS
ER’

ABORT SYNC DETECTION TESTA<CR><LF>
SYNC GENERATION TESTR<CR><LF>
WRITE HEADER TESTA<CR><LF>
HEADER COMPARE TEST @<CR><LF>
ECC GENERATION TESTR<CR><LF>
ECC DETECTION TESTR<CR><LF>

USES<CR><LF>
-------------------- 3<CROCLF>
HALT ON ERRORI<CR><LF>
LOOP ON TESTA<CR><LF>
INHIBIT ERROR TYPEOUTSQ@<CR>SLF>

INHIBIT ITERATIONS@<CR><LF>
BELL ON ERROR®<CR><LF>
LOOP ON ERRORA<CR><LF>

LOOP ON TEST IN SWR<7:0>8<CR><LF>
TN1283<CRX<LF>
TNO4LI<CRY><LF>
TN328<CRO<LF>
TN16@<CR><LF>
TNBA<CR><LF>
TNGR<CRO<LF>
TN2B<CR><LF>
TN1Q<CR><LF>

Il
It
1Ll
1L
1Ll
IL
1Ll

100000

000000
000377
031700
000000

000000

D 13
30A(1052)
05~APR-78
14:49 PAGE 160
CROSS REFERENCE TABLE ~- USER SYMBOLS

ILF
ILF

WA
=2 OO0

NN
= —

b —b
b
i

AV RV AV RV, ]

ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILR
ILR
ILR
ILR
ILR
ILR
ILR
ILR

1477
1513
1482
1483
1474
1499
1503
1506
1509
1493
1501
1504
1507
1479
1480
1473
14694
1502
1505
1508
1146
1476

67074
6241
67044
6665
1484

6737

6738

6663

6705#

6719
6736

2444

246¢

67504

1475

1473
1485

67461

6742

6745

6740

6723

6724

6727
6744

6728
6747

67064

6718
6735

1471
1471

CZF
CZF

ILF

6734

1471
11524

SEQ 0159

1512

13594
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
11354
1471
13384
1471
6066
6059
2247
6061
1471
11154

—

176700
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
¢00000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000030
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
001000
000000
100000
000000
000040
000001
000200
000100
000000

MACY11

JOA A

T B
| N
1 O
{ I
[
T
1 I
T
T
T
T I
1I 1 I
1
1 A
T
T

ADDW1

ADDWO

ACPUOP

ABASE

ACDW1
ACDW?

CZRMKAO RMO3/2 DSKLS PRT 2
CIRPAA. P
05-APR-78 14:38

6720

6739

67490

6743

6729
6748

6730

6731

6732

6733

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
AVECT1=
=
=
=

120254
000000
000400
001000

000010
000001
000002
000004

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000010
000020
000040
000100
000200
000400
001000
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000

=
=
=
=
=

004000
010000
020000
040000
100000

=
=
=
=
=
=
=

05-APR-78 14:38
13604
1471
1309
1308#

1328#
126454
12448
12434

12384
1237#
12364
1031#
1021#
10204
10194
10184
10174

SEQ 0160

4023
4803

4196
4805

MS
mMSC

MSE
MSE
UR
4280
1202
1244
1243
1242
1327
1326
1239
1219
1194
1193

4779
1245
1331
1330
1257

1332
1347
1346
1328

1348

10164
1015
10144
1013#
1012#
1030#
lg;;&

4227
1182
1201
1200
1199
1241
1240
1196
1195
1175
1174

1311
1238
1237
1236

1325
1256
1309
1308

1344
1310
1322
1321

1324
6145
6163

6252

1120

1134

1156

1173

1192

1218

1235

1255

1307

1320

1343

10104
10094
1008#
10074
10064

1051
1118
1117
1116
1115

1119
1132
1M
1130
1129

1133
1”7
1170
1169
1168

1172
1190
1189
1188
1187

1191
1216
1208
1207
1206

1209
1233
1232
1231
1230

1217
1253
1252
1251
1250

1234
1318
1305
1263
1262

1254
1341
1317
1304
1303

1319

1342

6170

1340
1316
1315

6236
1339
1338

6131

4586

4588

4615

7570

5248+

5251

5266

5311¢#

75954

3405
7598

3483

3660

3798

3910

3978

4127

4322

5242

5245+

5249

5254+

5265+

5313

5766#
5337+

5350+

5361+

5602

521,

4646
16054

1345

2286

5230+

6130

(ZR

4200

4090
1144
1181
1180
1179
1198
1197
1177
1176
1158
1157

75974
12344
1235~

CIR
MCL
[MRD
MR

3260
1125
1143
1142
1141
1140
1178
1160
1159
1136
1135

4,882

024476
001526

4017
4425

161

-- USER SYMBOLS

3258
1106
110§
1104
1103
1102
1139
1138
1137
1122
1121

054062

104410

4003
4422

TABLE

2829
1057
1056
1055
1054
1053
1052
1124
1123
1101
1100

5216«
1038«
12504
3316

022425

1510

CROSS REFERENCE

E 13
14:49
PAGE

2291
103
1030
1029
1028
1027
1026
1025
1024
1023
1022
2886
1099

022424
= 000014
= 100000
054062

1471
151

O0S-APR-78

12404
1239#

1029#
1028#
1027#
1026#
1025#
10244
10234
1022#

055066
= 004000
= 002000

30A(1052)

12424
12412

000004
000010
000020
000040
000100
000200
000400
001000

0226422

MACY11

5258«

5043

5235+«

6225

4906
3328

5261

5264

53124

75964

5241«

6251

4957
3348

66024

5678

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
CLR

= 000040

CLSPRN
CMNSTA
CNSLOO
CNSLOT1
CNSLOZ2
CNSLO3
CNSLO4
CNSLOS
CNSLO6
CNSLO7
CONT
=
CR
=
CRLF
=
CYLMSK=
DBCK
=
DBEN
=

030716
004254
031062
031121
031146
031227
031257
031333
031367
031414
000100
000015
000200
001777
100000
040000

DBL
=
DCK
=
DDISP =
DEBL
=
ISPLA
DISPRE
DLT
=
DMD
=

002000
100000
177570
020000
001156
000174
100000
000001

DPE

PEHI

= 000010

= 040000

PELO =
PR
=
RQ
=
RVCLR=
RY
=

020000
000400
004000
000010
000200

SWR

= 177570

DT0O

= 010000

= 0100C0

DULPRT=- 024024
VA
= 004000
v(i
= 000200
BL
= 020000
(H
= 0001C0
ECI
= 004000
CRC
= 001000
037724
o1

13264

3070

4609

2364
2316
2326
2361
2370
2375
2386
2396
2407
2420

11964
9464
9474
12244
1168#
11694

3502
3750
5685
13434
1129#
9534
11704
14430
13704
1315#
1182#

3440
3530
3713
5535
5685
1257#
13394
13404

MACY11

2293
3102

4876

2380
24514
6711»
67114
6711
67114
67114
67114
67114
67114

2434
2275

2632
5625
1183
3518
3752
5687

F 13
PAGE 162
30A(1052)
O05-APR-78
14:49
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0161

2541
3126
5433
2401

2562
3158

5508
67114

2624
3181

2677
3203

2687
3286

2725
3380

5233
6076

6105
6115

6115

6711

7562

7599

5642
3346
3521
3762
5690

3418
3523
3764
5692

3420
3525
5592
5694

3433
3528
5625

5696

3435
3530
5627
571

2767
36N

2832
3568

2893
3663

6121

3015

3038
4328

3437
3685
5634

3440
3687
5636
5722

3442
3711
5642
5724

3496
3713
5644

3498
3728
5673

3500
3730
5675

3433
3523
3685
5511
5644

3435
3525
3687
5517
5673

3437
3528
371
5519
5675

5713

1146
1443

5031
2235

2235+
2243

2243

6185+

6228

1183

12024

2733
3478

2745
3496
3593
3752
5592
5694

3346
3498
3595
3762
5625
5696

3391
3500
3610
3764
5627
5711

3393
3502
3612
5636
5634

5713

3418
3518
3627
5438
5636
5722

3420
3521
3629
5471
5642
5724

3506
3440
3687
5685

3533
3442
371N
5687

3537
3496
3713
5690

3498
3728
5692

3500
3730
5694

3502
3750
5696

1809

1817

1825

1833

1841

1849

3442
3574
3728
5537
5687

3476
3578
3730
5555
5690

1442
1146
1183

2234
3384
36418
3523
3764
5722
3260
3290

3396
3420
3525
5642
5724
3263
3292

3426
3433
3528
5644

3445
3435
3530
5673

3447
3437
3685
5675

1146

5031

6737

6738

6745

6746

1753

4265
1761

4667
1769

1777

1785

1793

3580

3750
5557
5692

11224
1209#
10664

11234
9524
11324

1171#

3518
3752
5711

12124
10514
12564
11894
1138#
12174
11934

1632

3521
3762
5713
3256
2299
2743
2634
4254

037776
040000
040002
037762
040004
037764
037766

037770
037772
037774
054042
054054
054045
054046
054050
037614

037670
037674
037700
037704
037710
037620
037714

1664
1961

2001
2017

75424
75434
75444
7535
7545
7546
7536
7548
7538
7537
7539
7540
7541
7542
7543
1198#
1633
1858
1994
1874
75584
75594
1641
75604
1665
1962
75544

7555#
75564
7550
7558
7551
7552
7553
1631
1856

2008

1872
75284
75294
75304
2126
1639
75324

~Nww

O
—
—
O 0o
S XaS
Te

75464
75470
1640
7548#
1937

1881
2033
2151

05-APR-78

6 13

14:49
PAGE 163
CROSS REFERENCE 1ABLE =-- USER SYMBOLS
1889
2041
75454

1397
2049

1921

2135

1929

2143

SEQ 0162
1945
2167

1953

2175

1969

2183

1977
2191

1985
#
7537

1993

7538#
1672
75394
75404
75414

75644
7547
75824
7544
75844
75684
75674
75704
75724
75740
75764
75784
4667
1754
1866

2010
2128

1681

1913

RMODE

RMO(

RMO!
RMD'
RMD*
RMD¢
RMD!
RMD'
RMD!
RME
(
RME(
ME(
ME(
RME(
ME(
MEF

75374

75804

75664

RME
RMEI
RMEF

4729
1762
1882
2026

2152

4752
1770
1890
2034

4753
1778
1898
2042

1914

7552#

75574

RME|

4763
1786
1922
2050

2136

2144

2168

2176

1784
1920

1792
1928

1808
1944

1816
1952

1824
1968

1794
1930

1810
1938

1818
1946

1826
1954

1834
1970

2184

1842
1978

2192

1850
1986
7550#

1832
1976

1840
1984
75164

1848
1992

7551#

1673

CZRI
CZRI

RMD(

75364

1682

2002

2018

75534

7554
7591
7556
7560
7557
1752
1864
2024
75274

7555

75864

037750
037752
037754
037726
037756
037732
037730
037734
037736
037740
037742
037744
037746
053700
054010
054022
053710
054036
053722
053714
053732
053744
053756
053770
054000
000020
037760

379A(1052)

~NnN

EDT11S

1857
2009
1873

MACYT

N —2

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

75874
75884

7559

1760
1880

2032

RME|
MH}
RMHI
MHI
ML/
RML)
ML/
MM

75894

1768
1888

2040

1776
1896

2048

2134

2142

2166

2174

2182

2190

75314
Rmmi

CZRMKAQD RM03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
ENT220
ENT4?
EHTS
EHTS2
ENTS?
EHT61
ENT6S

MACY11

H 13
30A(1052)
O0S-APR-78
14:49
PAGE 164
CROSS REFERENCE TABLE =-- USER SYMBOLS

037720
037634
037624
037640
037644
037650
037654
037630
037660
037664
052222
053012
053110
053227
053326
053444
052301
053543
053641
052310
052375
052317
052423
052522
052621
052657
052356

75334
1936
1663
1960
2000
2016
75244
1680
75254
75264
7516
7527
7528
7529
7530
7531
7517
7532
7533
7526
7520
7518
7521
7522
7523
7524
7519

75624
7562#
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624

040006

6761

6762

7562#

6836

6843

6845

052734

7525

0406411

6933

045111
045165
045233
045273
045320

6836
6847
6865
6856
6870

045051

75204
1671
7521#
75224
7523
1912

7562#

6938

6911
6849
75624
6858
75624

75184

RMMF
RMMR
RMMR
[RmoF

7519#

RMOF
RMOF
RMR
RMSA
RMSA
MSA
MWC
RMW(
Mw(
RQA
RQB
TC
SADP
SAVF
SA1
SA1¢
SA2
SAG

75624

75624
6851
6868

SA8
SC

6851

6854

6858

6354

6863

7562#

75624
6881
75624
75624
75624
75624
6914
75624
75624
75624
75624
6954

6957

6960

7562#

040737
041015
041076
040057
041137
041203
041262

6964
6976
6976
6769
6991
6991
6996

6971
6981
6981
7053
6996
6996
7000

7089
6986
6989
7096
7000
7004
7009

7321
7341
75624
7147
7004
7009
7014

7325
75624

6974

6886

6861

6911

SCT(

75624

scn

SCO
sC1
SC2
SC3
SC4

75624

6876
6878
6943
6881
6884
6891
6894
6897
6908
6916
€921
6951

6964

CZRY
CIR?
RMMF

045361
045426
060454
045436
045475
045513
045551
045610
045656
045673
040545
060623

0460672

SEQ 0163

SEAF
SEEX
SETL
SET(
SET\
SI12¢
SK|
SNGF
STA(

75624
.

75624

7155
7009
7014
75624

STA
STAF

7363

7368

7400

7432

7471

:
7164
7014
7018

7186
7021
7373

7347
75624
7405

7358

7562#

7437

7476

75624

STKL

STOF
SWR

SWRE
SWO
SWO(
SWO'1
_—

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11 ~ 05-APR-78 14:38

MACY11

EMS23
EMS24
EMS25
EMS250
EMS251
EMS252
EMS253
EMS254
EMS255
EMS256
EMS257
EMS26
EMS260

7028
7028
7043
7074
7292
6840
6873
6960
7100
7210
75624
7043
75624

mS261
MS262
EMS27

EMS3
EMS30
EMS300

041327
041405
041464
045706
045744
046010
046043
046076
046137
046201
046231
041542
046265
046316
046355
041621

040126
041665
046420

7023
7023
7038
7070
7273
6828
6828
6828
7086
6885
6900
7038
6943
7093
7273
7053

7129
7059
6761

7210
6762

EMS301

046436

EMS302
EMS303
EMS304
EMS306
EMS307
EMS31

046461
046506
046517
046526
046542
041745

7065
6762
6762
6762
6766
6769
7070

EMS311
EMS312
EMS313
EMS314
EMS315
EMS316
ENS317
EMS32
MS320
ms321
Ms322

046620
046664
046722
046753
047002
047030
047051
042016
047071
047111
047131

6773
6776
6780
6783
6786
6783
6783
7074
6789
6795
6801

EMS310

046603

MS323
ms324
IMS325
MS326
ns327

047151
047170
047210
047221
047231

MS330
MS331
ms332
EMS333

047237
047256
047306
047324

mS334

ms336

EMS33

EMS335

6773

75624
75624
75624
75624
6828

75624
7296
7057

7151
7061
6769

7215
6766

7122
6766
6943
75624
6777
7053
75624

7111

6777
75624
6960
6789
6792
6786
6786
75624
6792
6798
6804

1 13

30A(1052)
05-APR=78
14:49
PAGE 165
CROSS REFERENCE TABLE =-- USER SYMBOLS

7036
7033
7051
7078
7562#
7114
7114
6971
7210
7215

75624
7391
75624
7082

7423

7455

7507

75624

7210

7219

7253

7262

7300

7118
7118
6986
7223
7562#

7352
7562#
7018
7239

75624
7033
7253

7048
7266

7065
75624

75624

7048

7378

7410

7462

7502

75624

7308

7313

75624

7061
7159
7065
6840
7219
6773
7202
6769
75624

7068
7199
7078
6873
7223
6777
75624
6780

7244
7206
7082
6924
7347
6780

6828
7096

7122
7147

7202
7155

7313

75624

6971
6795
6798
6789
75624

6986
6801
6804
6792

75624

6894

6832
6889
6900
690¢

75624
7057
6974
6926

7086
6989
933

75624
7021
7000

047340

6851

6938

047373

7440
6810
7479

7458
6849
7502

047350

6807

75624

6825

Sl
Sl
Sw2

7479
7249
7100
6928
7358
6828

7481
7255
7107
6951
75620
6943

7485
7259
75624
7053

7510
7341

7562#
75620

7096

7147

7155

7164

7186

6960

6971

6986

7018

7033

7048

7286
7164

7289
7186

75624
7347

7358

75620

7033
7562#
7059
6798

7048

7065

7562#

75624
6801

6804

75624

“

7000

6851

75624
6858
7510

SW3
SWé
SWS
Swé
SW7

Sw8
Sw9
TAD
TAG
TAG/
TAP
TA1
TA2
TA
181

TIME
TKVE
TPVE
TRAF
TRE
TRT\
18T

TST)
TSTC

6870

7078

7562#

75620

7018
6832
6996
6795

CZR
CZR

SWO;
SW!
SWOL
SWO
SWO
SWO;
SWOE
SWQ
Sw1
SW1(
SW11
Sl
S

75624
75624
75624

6865

042076

SEQ 0164

7009

6928

7114

7180

7210

7036

7051

7068

7332

7014

7162

7183

7191

7253

7255

7273

TST’
TST!
38

75624

TST!

7396

7428

7464

7498

75624

7313

TST!
TST!
TSt
£

TSTC

7282

7292

729

7300

6854

6933

7172

7273

7282

75624

7191

7277

7376

7394

7408

7426

6861
75624

6921

6938

7368

7378

7400

7410

7432

7442

7471

7172

7176

TSTé

TSI
TST
TST

(ZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA . P11
05-APR-78 14:38

EMS337

047412

EMS34
EMS340

042135
047426

EMS341

047437

EMS342
EMS343
EMS344
EMS345
EMS346

047446
047500
047514
047543
047571

EMS347
EMS35

EMS350
EMS351
EMS352
EMS353
EMS354

047607
042173

047630
047635
047653
047667
047713

EMS355
EMS356
EMS357
EMS36

047746
047770
050010
042235

EMS360

050032
050060
050106
050127
050144
050165
050172
050215
042265
050265
050302
050331
050363

050367
050420
050434
050450
040173
042325
050461
050476

[EMS405

050513
050522
050563

050602

MACY11

J 13

30A(1052)
O0S5-APR-78
14:49
PAGE 166
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0165

CZRP
CIRY

TST¢
TST3
TST4
TSTS

6833
7168
7082
6807

6836
7172
7199
6810

6957
7176
75624
6825

6969
7180

6981
7196

7004
7227

7009
7253

7028
7270

7043
7279

7061
7562#

7107

7114

7133

6851

6854

6858

6861

6933

6938

7191

7368

7378

7400

6836
7078
7304
6921
6884
6948
6954
9%8;

6911
7082
75624
6933
6948
75624
6957
gggg

6964
7100

6976
7107

6981
7114

6991
7212

7004
7215

7009
7219

7023
7223

7028
7227

7038
7231

7043
7235

7061
7244

6938
75624

6948

7332

75624

7104
6964

7239
6976

7273
6991

75624
7023

7038

7104

7230

7235

7239

7244

7304

6986
7172

7018
7180

7033
7196

7048
75624

7065

75624

7313

7352

7363

75624

7014
7057
7118

75624
7129
7129

7139
7136

7143
7151

7151
7159

7159
7206

7168
7249

7206
7259

7336
7262

7562#
7266

7341

7100
7325
75624
7133

7562#
7329

7468

75624

7136

7139

7143

7191

7317

7376

7387

7394

7408

7419

7289
7266
7129

7313
7562#
7139

75624
7143

7151

7159

7206

7332

7336

7341

75624

7143

7151

7159

7206

7336

75624

6870
7485
7172
7562#

6894
75624
7176

7139

7387

7419

74651

7481

75624

7183

7317

7341

7352

7363

75624

7308
6854

7352
7332

75624
7341

7352

7373

7391

7405

7423

7437

7455

7476

75624
75624
7363
6876

75624
6894

6897

7336

7354

7363

7383

7415

7447

76460

7493

6821
7405
7442

6861
7423
7489

7373
7437
7502

7391
7455
75624

7405
7476

7423
7507

7437
75624

7455

7476

7507

75624

7396
7481

7400
7485

7610
7489

7415
7493

7419
7498

74628
7502

7632
7512

7410

7432

6960
7089

6971
7162

6996
6996
6813
6916
;gzg
7078
6821
7089
7096

7000
75624
6817
6918
7074
4

7426
7089
7325
7093
111
7118
6854
7126
7129
7100
6843
6914
6807
7239

7253
7292
7296
6807

7507

6889
7104
6810
gg?g

6813
7373
7378

6881
;ggg’

7082
7321
7317
7122
7440
7321
75624
75624
7286
7262
7118
75624
7139
75624
6865
7143
6810
7273
75624
75624
7300
6821
75624
7086
7107
6863
9222
6817
739N
7410

6891
7447

’

7442

7009

7451
75624

7368
74651

7647

7014

7458

7378
7460

7502

7282

7489

7383
7464

75624

7387
746471

TSTE

TS17
TYPB
TYPOD
TYPE

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

EMS406
EMS407
EMS41
EMS410
[EmS4
EMS412

|Emssd

EMS414
[EmS4S
EMS416
EMS417
EMS4?2
EMS420
EMS421
EMS422
EMS43
EMS44
EMS4S
EMS46
EMS47
EMSS
EMSSO
EMSS500
EMSSO01

050612
050625
042403
050645
050654
050672
050706
050722
050742
050762
050774
042451
051013
051026
051043
042533

042604
042645
042722
043004
040224
043044
051111
051251

6813
7468
"

6833
6825
6845
6856
6868
6856
6858
6868
7126

6878
6884
6918
7136
7147
7155
7164
7176

6904
7191

6764
6764
6805
6966
7091

7188

EMS502

051276

EMSS03

051345

EMS504

EMS505

MS506
Ms507
MS51
MS510
Mss511

051371

051415
051470
051525
043113
051615
051670

7256
7319

6764
6805
6764
6838
6952
7025
7123
7250
7393
7453
7539

6774
6869

7087
75624

6767
6901
6905
7202
7250

6764
6805
6848
6885
6922
6978

MACY11

6817

75624
7114
75624

6833
6847
6878
6886
6858
6886
6876

7129
6908
6886
75624
75624
7151
7159
7168
7180
7286
7199
75624

K 13

14:49
PAGE 167
30A(1052)
05-APR-78
CROSS REFERENCE TABLE -~ USER SYMBOLS

7368

7400

7432

747

75624

7118

7172

7176

7183

7329

6881

6891

6908

6916

75624

6861

75624

6878

6897

6908

7562#

7206

75624

6774
6874
6993

6778
6890
6998

75624
75624
75624

75624

75624
75624
7562#

75624
75624
75624
7186
75624
75624

6767
6830
6978

6771
6841
6983

7193

7197
7276
7327

7098

7260

7323
6767
6830
6771
6841
6955
7030
7127
7310
7398
7457
7514
6778
6880
7102

75624
75624
75624
7235
75624

6767
6809
6850
6888
6925
6983

7112

6771
6935
6774

6848
6958
7035
7131
7338
7403

7462
75624

6781
6885
7105

7116
7200
7280
7330

7120
7203
7284
7334

6774
6940
6778
6850
6962

6778
6945
6781
6867
6966

7407
7466

76413
7469

7040
7141
7344

6815
6888

7109

7045
7145
7349

6819
6910
7203

6781
6901
7002

7123
7208
7287
7338

6781

7250
6809

6872
6970

7050
7149
7355
7617
746474

6823
6913
7221

6784
6905

7006
7134

SEQ 0166

7332

75624

6787
6922

6790
6925
7016

7012
7137
7217
7294
7355

6793
6930
7025

6796
6935

6784

6787

6790

6793

7030
7174
7237
7306
75624
6796

6812
6874
6973
7055
7153

6815
6877
6978

6819
6883
6983

6823
6893
6988

6827
6896
6993

7213

7290
7344

7349

7355

7360
7421
7478

7058
7157
7365
7425
7483

6838
6917

6844
6919

7225

7241

7161
7229
7298
7360

7495

7063
7161
7371
7430
7487

6846
6930
7246

7169
7233
7302
7365

75624

7067
7166
7375
74635
7691

6853

7071
7256

7071
7169
7381
7439
7495

6857
7075
7264

6799
6940
7040

7241
7310

6802
6945
7045
7182
7246
7315

6799

6802

6830
6898

6835
6915
7020

7178

7006
7075
7188
7385

7445
7500

7094
7193
7389
7449
7505

6860

6864

7080
7268

7084
727

$80C

$BEL
$81A
$CDk
$CDh
$CHA
$CKS
SCM1

$CM!
$ C M4
$CN1
SCN1

SCN1
$CPL
$CRL

75624

6771
6812
6853
6890
6930
6988

6774
6815
6857
6893
6935
6993

6778
6819
6860
6896
6940
6998

6781
6823
6864
6898
6945
7002

6784
6827
6867
6901
6952
7006

6787
6830
6869
6905
6955
7012

6790
6835
6872
6910
6958
7016

6793
6838
6874
6913
6962
7020

6796
6841
6877
6915
6966

7025

6799
6844
6880
6917
6970
7030

6802
6846
6883
6919
6973
7035

$08L
$004
DD&
00%
DD&
DD&

CZRMKAQO RMO3/2 DSKLS PRTY 2
CZRMKA. P11
05-APR-78 14:38

MACY11

7040
7094
7141
7197
7250
7302
7360
7421
7478
7227
7249
7253
7270
7273
7282
6924
7282
7212
7227
7231
7304
7368
7400
7432
6891
7289
7292
7308
7341
7347
7358
7396
6926
6813

7045
7098
7145
7200
7256
7306
7365
7425
7483
7231
7493
7259
75624
7277
75624
6928
75624
7215
75624
7235
75624
7373
7405
7437
7471
75624
7296

EMSS52
EMSS3
EMSS4
EMSSS5S
EMSS56
EMSS?

EMS6
EMS60
EMS600
EMS601
EMS602
EMS603
EMS604
EMS60S
EMS606
EMS607
EMS61

[EMS62

EMS63

EMS64
EMS65
EMS66
EMS67
EMS7

EMS70
EMS71
EMS72

043162
043223
043264
043341
043417
043512

040274
043576
051767
(52017
052037
052100
052121
052146
052164
052204
043650

043723

044004

044044
044114
044155
044232
040340

044344
044412
044471

MS73

044546

MS75
MS76
MS77
MTVEC=
M1
MT10
MT100
MT101
MT102
MT103
MT104
MT105
MT106
M1107
MT11
MT110
mT111
MT112

044671
044745
045006
000030
031710
032076
033546
033566
033606
033620
033644
033664
033704
033730
032114
033750
033772
034012

EMS74

044616

6807
6807
6813
6813
6817
6825
6817

10414
1630
1687

69604
69644
6969#
69714
69764
69814
69864
69914
1695
69964
7000#
7004#

7313

75624
7354
7363
7428
6928

6969
6810
6810
6817
75624
6821
6833
6821
2218¢
67614
67834

L 13

14:49
PAGE 168
30A(1052)
05-APR-78
CROSS REFERENCE TABLE -- USER SYMBOLS

7050
7102
7149
7203
7260
7310
7371
76430
7487
7239
75624
7262

7266

75624

7279

7352

7562#

6933

6938

75624

7219

7223

75624

7383
7415

7387
7419

7055
7105
7153
7208
7264
7315
7375
7435

7058
7109
7157
7213
7268
7319
7381
7439

7244

75624

76491

7495

7063
7112
7161
7217
7271
7323
7385
7445
7500

7067
7116
7166
7221
7276
7327

7389

7449
7505

SEQ 0167
7071
7120
7169

7225

7280
7330
7393
7453
7509

7075
7123
7174
7229
7284
7334
7398
7457
7514

7080
7127
7178
7233
7287
7338
7403

7462
75624

7084
7131
7182
7237
7290
7344
7407
7466

7087
7134
7188
7241
7294
7349
7413
7469

7481

76447

74651

7300
7317
75624
7368
7664
75624
7460
75624
75624

6821

75624
75624
75624
2219+

7485

739N
7423
7455
7489

7396
7428
7460
7493

75624
75624
74664
7498

75624
7502

7507

7512

75624

7304
7321

75624
7325

7329

7332

7336

7383

7415

7447

75624

7378

7400

7410

7432

7442

7468

767

7502

75624

7512

75624

6825

6833

6861

75624

7498

2489+

75624

$00W
$00W
$00W
SDEV
$DEV
$DOA
3078
SEND
SEND
SENU
SENV
SENV
$EOP
$EQP
$EOS
SERF
SERM

75624
7378
7410
7442
7476

7091
7137
7193
7246
7298
7355
7417
7474

CIRM
CZRM

S$ERR
SERR
SERR
SERT
$ESC
SETA
SETE
SFAT
SFFL
$FIL
SFIL
$GDA
$GDD

$GET
$GTS
$HD
SHIB

SHIC
$ICN

$ILL
$INT
SITE

SLF
SLFL
$LLC
SLLV
$LPA

67864

$LPC
$LP(C
$LPE

CZRMKAO RMO03/2 DSKLS PRT 2
CZRMKA.P11 ~ 05-APR-78 14:38

ENT113

034032

034056
034100
034124
034144
032132

70144
70184
70234
70284
1703

MT123

034250

70484

MT124
MT125
AT126
AT127
MT13

mT130
MT131

MT132
MT133
MT134
MT135
MT136
mT137
WT14
MT140
MT141
MT142

MT143

MT144
MT145
MT146
WT147
MT15
MT150
MT151
MT152
MT153
MT154
MT155
MT156
MT157
mT16
MT160
mT161
MT162
MT163
MT164
MT165
MT166
MT167
WT17
MT170
WT171
kEnr172
mT173
MT174

13
30A(1052)
OS<-APR-78
14:49
PAGE 169
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0168

70094

EMT114
EMT11S
EMT116
EMT117
AT12
MT120
»T121
M1122

MACY11

034164
034210
034230

70334
70384
70437

034274
034312
034332
034350
032150

70534
70574
70614
70654
171

034374
034412
034430
034450
034470
034504
034522
034534
032166
034552
034572
034606
034624
034640
034662
034704
034722
032204
034734
034756
034770
035004
035024
035044
035062
035104
032222
035122
035152
035170
035206
035230
035252

7070#
70744
70784
7082#
70864
70894
7093#
70964
1719
71004
71044
71074
71114
71148
7118#
71220
71264
1727
71294
71334
71364
71394
71438
71478
21514
7155#
1735
71594
71644
7168#
71728
71764
71804

035316
032240
035340
035352
035366
035404
035426

71912
1743
2125
71994
2141
2149
2157

035276

67894

67920

67954

67984

68014

71864

68044
71964
72024
72064
72108

)

CIZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA. P11
05~APR-78 14:38

EMTI7S
EMT176
ENT177

035454
035472
035510
031716
032256
035526
035544
035562
035600
035622
035642
035662
035712
032300
035726
035744
035762
035774
036024
036036
036056
036072
032322
036106
036124
036142
036160

036176
036216
036240

036256
032346
036274

036312
036326
. 036350
036372
036420
036440
036472
032372
036512
036536
036562
036606
036632
036650
036666
036712
032416
036730
036754
037000
037024
037042
037060

2165
2173
2181
1638
1751

2189

72314
72354
72394
72448
7249#
7253#
72594
1759
72624
72664
72704
7273
7279#
72824
72864
72894
1767
72924
72964
7300#
73044
7308#
73134
7317#
73214
1775
73254
73294
73324
73364
73418
73474
73524
7358#
1783
73634
73684
73734
73784
73834
7387#
7391#
73964
1791
74004

74054
74104
74152
7419
74234

MACY11
72154

72194

N 13
30A(1052)
O05-APR-78
14:49
PAGE 170
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0169

CZRM
CIRNM
$SVP
$SWR

72234

67624
68074
72274

$SWR
$SWR
$Sw0
$TES

68104

68134

$TIM
$TKB
$TKC
$TK1
$TKQ
$T7KQ
$TKQ
$TKQ
$TKS
$TKS
$TMP

$TMP

6817#

STMP
$TMP

$TMP

$TN

68214

68254

$TPB
$TPF
$TPS
$STRA
$TRA
$TRP

$TRP
$TST
$TST
$TTY
$TYP
$TYP
STYP
$TYP
$TYP
$Tvo
$1

CIZRMKAQ RMO3/2 DSKLS PRT 2

CZRMKA. P11

EMT256

EMT257

05-APR-78 14:38

037104

746324

032436
037146
037172
037216
037234
037252
037276

1799
7637#
74420
76470
7451#
7455#
74608

037332
032470

7668#
1807

037314

032556
032570

032602
032614
032634
031764
032664
032706
032734
032752
032766
033004
033020

033034
032006
033052
033070
033104
033122
033136
033154
033172
033206
032032
033222
033236
033254
033272
033304
033320

30A(1052)

05-APR-78

1839
1847

1855
1863
1871
1654
1879
1887
1895
1903
68704
1919
1927
1935
1662
1943
68844
1959
6889#
1975
1951
1991
1999
1670
2007
2015
2023
2031
2039
2047

171

SEQ 0170

CIR

CZR
$TY

SUN

6828#

SUN
$US
SVE
SVE
X7
$3G
$3S

74644

7471%
74764
7481#
7485#
7489#
2133
1967
75024
1646
1815
7507#
75124
1823
1831

B 14
14:49
PAGE

CROSS REFERENCE TABLE =-- USER SYMBOLS

7428#

037122

037346
037372
037416
037434
037452
037470
037510
037526
031744
032510
037552
037576
032530
032544

MACY11

68334

67664
68364

68408
68434

68452
68478

68684

68734
68764

68784
67734
68814
68864
6891#
1983
6897#
69004
67774
69044
69084
69114
69144
69164
69184

.$A
. $X

74934
7498#

68494
68514
68544
67694
68584
68614
68654
1911

$0F
$40

68944

C 14

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38

MACY11

EMT66

2054

69214

(LE

032054
033364
0334064
033430
033454
033474
033504

1679
2068
2075
2082
2089
2096
2103

67804
69284
69334
69384
69434
69484
6951#

(LK
(LK
cLx
com
[ENB
END
ERR

033532

2117

69574

033332

EMT67

033346

EMT76

033516

EMT?
EMT70
EMT?71
EMT72
EMT?73
EMT74
EMT?S
EMT?7

ENBSCH
EQUALS

ERR

RRNMB

023326
030717

= 040000
022420

ERRTYP
021662
ERRVEC= 000004

2061

RTY02
ERTYO3
ERTY04
ESRC
=
FER
=

2110

69544

3321
67114

11164

5197+

51764
lgggw

3410

3488

3667

3803

3915

5198+

5201

5213

5218

5310#

2233«

2244+

5330

5331

6238
ggzg

5183
5191

53154
53164

022461
004000
000020

5302
11914
116408

53224
5649
1146

FMT16 = 010000

FNCOTB
FNCMSK=
FO
=
F1
=
F2
=
F3
=

67154
10584
10564
1055#
10540
10534

= seeees |

1369

= 000040

= 000001

GTSWR = 104407
CE
=
HCI
=
HCRC
=
ELP
ELPQS

000200
002000
000400
054062
030727

IAE
=
10XMSk=
1€
=
ILF
=

002000
000077
000100
000001

ILFO2
ILF24
ILF26
ILF30
ILF32
ILF34

15;?'

031600
000077
000002
000004
000010
000020

Fé&

5200
5206

= 000011

= 000002
= 000024
= 000026

= 000030
= 000032
= 000034

10524

6604
1057#
5477
2269

3983

4135

4332

5332«

5333«

5348+

54924

5369+

5370+

6136

6137+

5318#
53204

2634

EsC
ET

5653
4577
3315

3404

3548

3550

3659

3797

3909

3977

4126

4324

4614

ET
ET
ET

GE;

GET
GET
GET
GET
ET
ET
2274

6605
3318
5564
2485

5135

6606
3407
6600#

5142

6607
3485

6593

6594

6595

6596

6597

6598

6600

6602

6603

3662

3800

3912

3980

4132

4325

4619

4885

5444

6738

6741

6745

6746

6735

6736

6739

6740

1146
2634
1146
7599#
67114

4577
4614
4577

6737
4881

11344
1297#
13110
11448
6743
1063#
10734
10744

6719

6074

6729

6115

6737

6738

6741

6742

6745

6746

13440
6718
6744

6727
6747

6728
6748

6730

6731

€732

6733

6734

10764
10774
1078#

4888

ERR

11378
12182
11364
2346
2340

9444

4628

(IR
CZR

022426
022434

022444
022453

SEQ 0171

69244

ERTYO0
ERTYO1

30A(1052)
O0S-APR=-78
14:49 PAGE 172
CROSS REFERENCE TABLE =-- USER SYMBOLS

5239

GET
GET
GET
ET

000020
000001
000002
000004
000010
000100
010000

LBC
= 002000
LBT
= 002000
CLOCK
022742

LCOUNT
F

LS
SC

023012

= 000012

= 000004
= 004000

= 000002

STOP
023054
(LK
= 004000

CPE
DF
OPE
I
0C

=
=
=
=
=

020000
000100
000400
000004
000400

= 020000

13474
13464
13454
1325#
12534
6733
6746
12554
1120#
5350
5352
9454
12004
12544
12014
5351
11724
3878
4381
4816
5784
13054
11774
13224
11804
11754

3502
3750
5687

12084

SEQ 0172

CZRI
CZRI
PUT/
PUTE
PUTE
uT(
PUTH
PUTI(

2628

2649

2681

2697

277

2808

2844

2869

3109

PUT(
PUT!
PUTI
PUTI(
uTt
uTe
uTt

3116

PUTH

PUT}

tUTl

2216+

2217+

2549
6718
6734
6747

2570
6719
6735
6748

53794
53974
5237

546110

3578
3943

4407
4839
5804

3393
1183

3518
3752
5690

6720
6736

6722
6737

6723
6738

6724
6739

6727
6740

6728
6741

6729
6742

6730
6743

6731
6744

6732
6745

PUTI
PuT(
PUT
PUTH

uT)
EP(

GBI
SCO!

6109

3593

6115

3610

4029
4433
4968

4042
4455
4981

3478

3518
3418
3523
3764
5694

5813

3346
3521
3762
5692

6711

3627

4070
4480
4989

7562

3685

4094
44N
5060

5673

7599

3711

3728

3750

6154
4499
5084

4181
4514

4209
4522

3437
3685
5636
5722

3440
3687

WO
W

IOTVEC=
IPCKO =
IPCK1 =
IPCK2 =
IPCK3 =
IR
=
IvC
=

ILRG72= 000072
ILRG?4= 000074
ILRG76= 000076

10794
1080#
1081#
1082#
1083#
1086#
10874
10904
10914
10944
1095#
11434
12834
1284#
1285#
12864
12874
1288#
12894
12904
12914
12924
12934
12944
10394
1348#

~NO

000036
000040
000042
000044
000046
000054
000056
000064
000066
000074
000076
000002
000050
000052
000054
000056
000060
000062
000064
000066
000070

30A(1052)
05-APR=-78
14:49
PAGE 173
CROSS REFERENCE TABLE -~ USER SYMBOLS

— NN
N

ILF36 =
ILF40 =
ILF42 =
ILF44 =
ILF46 =
ILF54 =
ILFS6 =
ILF64 =
ILF66 =
ILF74 =
ILF76 =
ILR
=
ILRG50=
ILRG52=
ILRG54=
ILRG56=
ILRG60=
ILRG62=
ILRG64=
ILRG66=
ILRG70=

MACY11

AN NN
N

(ZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA
. P11
05-APR-78 14:38

5517

5535

5642
5724

3762
4230
4537
5711

3832
4257
4563
5722

4283
4757

5742

3870
6355
4782
5752

3442
LYAR
5644

3496
3713
5673

3498
3728
5675

3500
3730
5685

3851

SCTI
SETI
SET(
SETI
SET
SETI
SET)
1}
SK
SLA!
SPA(
STAI

SWR

CZRMKAQ RM03/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 1 4:38
= 010000

002000

MRTAAA= 051401

[MS
MsC
MSE
MSER
UR

=
=
=
=
=

MWwO
MwP
XF

= 000010
= 000010
= 001000

DTMSK=
ED
=
NEM
=
opP
=
OTEX
SA
=
¢C
=
FDO
=
FFSET=
[
=
PE
=
PI
=

000040
000002
100000
000200
001000

115760
010000
004000
000000
031553
100000
100000

000200
000014
000001
020000
020000

OR
= 000200
PACACK= 000022

PAKACK= 000022
PAR
= 000010
AT
= 000020

CLOCK
COUNT
DA
=
PGE
=
GMm
=

HA
PIP

= 000200
= 020000

IRQ
=
IRQVE=
LCLK
LFS
=

LSTP

022724
023012
000400
002000
001000

ROMPT
RO
=
R1
=
R2
=

177772
000240
022750
£0200C

023040

(030721
000000
000040
000100

LR
X 3

MOL

[MRD

MACY11

1118
1173
1183
4044
4257
4457
4816
5752
1178#
11814
1262#
11764
11744
3502
3750
5625
5696
11994
1179#
13214
11464
1318«
13194
10624

2304

12064
11874
1219#
1068#
11254
1252#

11314
6726
6739
1324#
10724
1071

3829
3829

4070
4259
4480
4818
5754

E 14
30A(1052)
16:49
PAGE 174
05-APR-78
CROSS REFERENCE TABLE =~- USER SYMBOLS

3832
3832
4072
4283
4482
4839
5784
3435

3834
3834

3874
3851

SEQ 0173

4495

4518

4968

4970

4985

3853

3870

3938

3943

3945

5808

4029
4211

4433
4759
5086

4031
4230
4435
4782
5742

4042
4232
4455
4784
5744

4094
4285
44N
4841
5786
3440

4096
4355
4514
4968
5804
3498

4154
4357
6537
4970

4156
4381
4539
4981

4181
4383
4563
5060

64183
4407
4565
5062

4209
4409
4757
5084

3523
3498

3528
3500

3938
3521

3943
3523

3945
3525

5685
5690

5692
5692

5694

3518
3752
5627
5711
4061

3346
3521
3762
5634
5713

3420
3525
5438
5642
5724
4278

3433
3528
5471
5644

3435
3530
5517
5673

3437
3685
5519
5675

3440
3687
5535
5685

3442
3711
5537
5687

3496
3713
5555
5690

3498
3728
5557
5692

3500
3730
5592
5694

4088

3418
3523
3764
5636
5722
4225

4777

2296

2545

2560

2566

2579

3418
3433

1183

3435

3437

3496

67114
2634
5477
5480

5682

2357

6717

6741

6729
6742

5654

5564

5574

53754
53964
4667

4706

4715

4729

4730

4733

4752

6167

6172

4239

4243

4667

4802

4804

5444
1072

5381#
3696
5770
54134
2430

TAG
TRA
TST

TYPI
TYPI
TYP
TYP
TYP(
TYP(
TYP

$$C)
$3()
$SE'
SSNI

$8SI
$8SI
$3S)
LEQL
.GE’
-HE/
.SE’
. SWl
. Swi
. SAl
.SAl
. SAl

.SAl

6722

3337
6727
6740

CIR
CIR

3355

6730
6743

6718
6731
6744

6719
6732
6745

6720
6733
6746

6721
6734
6747

5004

6722
6735
6748

6723
6736

6724
6737

6725
6738

.$C
.$C!
.$D
. $E(
.SEI
.SE}

ML
. $P(
SR,
. $RI(
. $R{
. SR
.95
.$S
.$S
LSTI
.

5008

.87
.87
.87

3736
5773

3738
5774

4467

4470

4549

4555

4921

4927

4941

4946

4949
.

67114
ERI

CZRMKAQ RM0O3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38
PR3
PR4
PRS
PR6
PR7
PS
PSEL

=
=
=
=
=
=
=

STOP
PSW
=
PWRVEC=
QSTMRK
RD
=
RDCHR =
ROLIN =
DOCT =
DY
=
EADY
RECAL =

ESREG=
ESVEC=
Ex
=
G
=

000140
000200
000240
000300
000340
177776
002000

023046
177776

000024
030725
000070
104411

104412
104413

000200
004414
000006

104415
000010
010000
040000
000072
000020
000012
000016
001344

H
=
IP
=
LEASE=
MAS
=
RMASI
MASO
001420
MBA
= 000004

RMBAE

= 000050

MBAEI
MBAEO
MBAI
MBAO
RMCST1 =

001376
001452
001332
001406
000000

RMCS1I
001326
RMCS10
001402
RMCS2 = 000010

MCs2l
MCS20
MCS3 =
MCS3I
MCS30
MDA
=

001336
001412
000052
001400
001454
000006

RMDAI

001334

MDAO

001410

MDBI

001350

EQHDB = 000022

9714
972#
9734
9744
9754
9484
13074

5338

9494
10404

MACY11

2251
5388
5333
5385
949

F 14
30A(1052)
164:49
PAGE 175
05-APR-78
CROSS REFERENCE TABLE ==~ USER SYMBOLS

5340

5353

2402

6605#

2332

24904

5110

5158

1065#
5306
10354
11904
1188#
10934
10704
10674
12714
15414
15714
13534
13564
15544
15844
15364
15664
12674
3289
15344
15644
13544

2579
2833«
3158+
3569+
5508+

1538#
15684
1357#
15554
15854
12684

3073+
15374
3090
15674
13554
15434

5386

5408#

2327
6535
2365

13104

RUN
RUN
COR

0OC

2223+
67114
3912
2351

1092#

CZRY
CZR?

DSk

2489

2222+
2440
3800
2341
66044
2381

2335

SEQ 0174

6612+
4885

2354

6613

6622+

6628+

6640+

2422

2431

6465

66034

3660
2639
5598+
2697+
3662+
2541«
2677+
3016+
3203+

3798+
2681

3910+
2691

3978«
2771+

4128+

§322+

2699

2795+
3912+
2544
26871
3039+
3286+

2808+
3980+
2551
2688+
3070~
3287+

2812+«
4132+
2560

§325¢+

2725+
3071«
3380+

6641

66074
5606
4325

5611

2593

3047+

2589

5588+

3316+
13514
5444
2639
3318+
2293+
259N
2893+
3159
3663
55009

3405+
2298
5477«
2649+
3407+
2294+
2624+
2894+
3181+
3664t

2630+
3085
2641«
3169+
3313«
2595

2641
3161+

2651
3172
3402+

3483t
2628+
5564¢
2691+
3485+
2295
2625+
3015+
3182+

3800+
2542+

2782+

2795

2818

4616+

4883+

2857

5588
3109+

2869+

2874

2767+
3103+
3471

4877+

2565
2768+
3126+
3472+
5433+

2572
2832+
3127+
3568+
5434

2844

2857+

4619+
2563

4885+

5598

4121+

4122+

4328+

4329

4609+

4610¢

2562+
2726w
3102+
3381+
4876+

2773
3169
2797+
3194+
3480+

2784
3186+
2813+
3197
3657+

2797
3194
2819

2837+
3216+
2859+

2846+
5580
2875

2859

2897+

2908

3041+

3053

2908+

2920

3053+

3058

3085+

3795+

3907+

3975+

4124+

4321

4612+

4879+

5580

2678
3038+
3204

CZRMKAQ RMO3/2 DSKLS PRT 2
CZRMKA. P11
0S5-APR-78 14:38
RMDBO

RMDC

001424

= 000034

RMDCI

001362

RMDCO

001436

RMDS
= 000012
RMDSI
001340
RMDSO
001414
MDT
= 000026
RMDTI
001354
MDTO
001430

MECT1 =
MEC1]
MEC10
MEC2 =
MEC2]
MEC20
MER1 =

[RMERTT

000044
001372
001446
000046
001374
001450
000014

001342

RMER10
001416
RMER2 = 000042

RMER2]

RMER20
RMHR
=
RMHRI
MHRO
RMLA
=
RMLAI
RMLAO
MMRT =

001370

001444
000036
001364
001440
000020
001346
001422
000024

15734
1277#
3115
15484
3031+
1578#
12694
15394

1569#
12744
1545%
1575#
12814
15524
1582#
1282#
1553«
1583#
1270#
3026
3395
5560«
15404
3029
1570#
12804
3057
15514
2916+
3229
1581#
12784#
1549#
1579#
12724
15424
1572#
12734

3442+
3571
3631
3752+
38772

4046
4185
4285+
4455
4557
4765
4930
5084+

IRMMR1I

001352

5537+
5644+
5715
5786+

15444

MACY11

c632¢
3133«

G 14
16:49
PAGE 176
30A(1052)
05-APR-78
CROSS REFERENCE TABLE =-- USER SYMBOLS

2643

3314
3165+

3145
2653+
3115+
3403+
3212+

3135+

3253

2643+
3032

2790+
3188+
2803+
3119«
3481
5446

SEQ@ 0175

2803
3208+
2810+
3120
3658+

2850+
5582+
2822
3151
3908+
5484

2863

2901+

2912

3020+

3028

3107«

2863+
3152
3976+
5566

2871«
3220+

2877
3225

2912+
3226

2930

3028+

5650

2841+
3220
2816+
3145+
3796+
5479

2799
3214

4125+
5570

4320

4613

4880+

5582

2852+

4576

3334

4581

2865
3336
5030

2903+
3354
5037

2914
3377
5640+

3018+
3383
5473

3265

3139+

2597

3083+

2683+
3105+
3425
5594+
2693+
3113«

2693
3113
3444

2729+
3129«
3505

2736
3141
3509

2775+
3184+
3532

2786+
3192
3536

2701

2736+
3117

2741+
3141+

2799+
3146

2814+
3192+

2820

2865+

2878

2914+

2936

3026+

2685+
3077«

2695+

2695
3089
2698+

2731+
3137«
2703
3063+

2738
3163+
2738+
3064

2779+
N
2743
3089+

2792+
3190+

2805
3210+
2811
3096

2854+
3222

2905+
5475+
2867+
3175

2916
5562+
2872+
3222+

3045+
5596+

3171

2867
5442+
2823
3174+

3024

3081+

3022+
3496+
3580
3690
3766
3938t
4072+
4223
4359

3346
3498+
3582
3700
3772
3943+
4086
4230+
6381+

3391+
3500+
3593+
3711«
3826
3945
4094+
4232+
4383+

3393
3502+
3595+
3713
3829+
3947
4096+

3420+
3521+
3610
3728+
3834+
4029+
4156+

3433
3523+
3612+
3730«
3836
4031
4158

3435+«
3525+
3614
3735
3851

3437
3528+
3627+
3740
3853«

2940

3116+

3057+

2805+
3095+

3195

2817+

2879

3228+

7578

3079+

2733»
34760
3574+
3685+
3762+
3880+

4060
4209+
4355¢
4457
4563
4775
4940

5086+
5539
5648
5722+
5788
2740y

2740
3478«
3578«
3687+
3764
3882

4070+
4211«
4357+
4459
4565+
4782+
4951
5088

5545
5652
5724+
5796
2745

4472
4567
4784
4968+

5096
5555+
5673+
5726
5812+

4480
4666
48160
4970+

5436
5557«
5675
5738
5815+

6482+

4673
4818+
4988+
5438+
5592+
5685+
5742+

4242

4385

4498
4705
4820
4991+

5471+
5605
5687+
§744r

3418+
3518+
3597
3716
3832+
3954

4154
4253
4407~
4501
4718
4828
5003
5511+«

5613
5690+
5748

4257+
4409+
4521

4728
4839+
5012
5517+
5625+
5692+
5752+

4259+
R
(YA
4524+

4735
4841
5060+

5519+
5627+
5694+
5754+

4033
4175
4264
4433
4537+
4751
4843

5062+
5521
5634+
5696+
5769

40422
4181
4276
4635+
4539+
4757+
4851

5064
5527
5636+

5711«
5776

3440
3530+

3629+
3750¢
3855
4044

4183+
4283+
4437
45461
4759+
4920

5072
5535+
5642+
5713+
5784+

CZRMKAQ RMO3/2 DSKLS PRT ?
CIRMKA
. P11
05-APR-78 14:38
RMMRI0

RMMR?2

001426

= 000040

15744
4521
1279#

5017

RMMRZ2I
RMMR20
RMOF
=

001366
001442
000032

1550#
15804
12764

RMOFI

001360

RMOFO
RMR
RMSN
RMSNI
MSNO
mWwC
MwCl
MWCO
RQA
@B
TC

001434
= 000004
= 000030
001356
001432
= 000002
001330
001404
= 100000
= 040000
= 000016

15474
306G+
1577#
11424
1275#
15464
15764
1352#
1535#
1565#
12304
1231#
10694
11114
5177
11064
110c#
1105#
1104#
11034
13034

SADMSK=
SAVREG=
SA1T
=
SA16
=
SA2
=
SA4
=

000037
104414
00000
000020
000002
000004

SC
=
SCTCMP
SCTMSk=
SCO
=
SC1
=
SC2
=
s€3
=
sC4&
=
SEARCH=
=
SEEK
SETLFS
SETOM
SETVV
SIZCLK
SKI
=
SNGPRT=
STACK =

100000
024206
003700
000100
000200
000400
001000
002000
000030
000004
024314
023224
023074
022464
040000
020024
001100

SA8

= 000010

STANDA
START
STKLMT=
STOP
SWR

003426
002632
177774
001530
001154

SWREG
000176
= 000001
SWw0
Sw00
= 000001
Sw01
= 000002

3075+

3673

1162#
1160#

MACY11

H 14
30A(1052)
O05-APR-78
14:49
PAGE 177
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0176

3877

3878+

3880

4491

4495+

6498

4499

4501

6514

4518+

4007

4016

4022

4194

4199

4346

4370

4420

4679

4686

2777+
3143
2801+
3092

2788
3167
2809+

2848+
3474+
2861«
3149
3977«

2861
5584+
2870+
3218+

2910

3043

3055

2924

3055+

4126+

2876
3223+

2910+

3482+

2839+
3218
2821
3148+
3909+

2899+

3093
3659+

2801
3206+
2815+
3143
3797+

4324+

4614+

4881+

5584

36406+

3484

3661

3799+

3911«

3979«

4131+

4323

4618+

4884+

5586

3809

3921

3990

4141

4338

4634

4894

56684

3927

4640

4900

5707«

53294
2743
3254
2214
3653
23174
22024

3258
2535
3791

3262
2621
3903

2674
39N

4118

2977

6306

6389

3331
2212
6229
2242

3351
2234+
6236
2267

2236
6248
2483

5351«
2242+
6252
6309

2249+
€309
6348

3870+
§522¢
3051+
5023

3874+
45264
4002

2634
3087
2645+
3061
3315+

2645
3131«
26557
3087+
3404+

3049+

3111«

2587

5586+

3317«

66064

1159#
1M
1

1003
1002

5338¢

2722

5610

2763

4314

4606

3249
4873

3283

3309

3373

3464

5619

5681
2483
6403

5178
6620

6131
6633+

6145

6148

6163

2267
6348
637

CZRMKAD RM03/2 DSKLS PRT 2
CIRMKA.P11
05-APR-78 14:38
SWw02
sw03
SW04
SW0S
SWw06
sWw07
SWw08
sWw09
sWwl

SW10
sWil
sW12

SW13
SWwi4
sW15
SW2
sWw3
SWsé
SW5
Swé
sW7
SWw8
SWw9

MACY11

=
=
=
=
=
=
=
=
=

000004
000010
000020
000040
000100
000200
000400
001000
000002

9914
990#
989#
988
987¢
986#
9854
9844
10024

1001
1000
999
998
997
996
995
994

=
=
=
=
=
=
=
=
=
=
=

020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000

980#
9794
9784
10014
10004
9994
9984
9974
9964
995#
9944

5178

= 002000
= 004000
= 010000

TADMSK=
TAG
=
TAGADR=
TAP
=
TA1
=
TA2
=
TA&
=
TBITVE=
TIME
TKVEC =
TPVEC =
TRAPVE=

TRE
=
TRTVEC=
TST
=
TSTNMB
TSTQUE

003400
020000
001114
040000
000400
001000
002000
000014
001522
000060
000064
000034

040000
000014
010000
022416
001456

9834
9824
981#

11100
12324
14144
12074
11014
1100#
10994
10364
16034
104304
10444

5381+
6286

5398+«
6287+

10424

2220¢

2221+

13044
10374
12334
5189+
15938

5190¢
2455

5192
2456+

g?;?

TST1S
TST16
1ST17
1ST2
1ST20
TST21
1ST22
TST23

004430
010324
010446
010746
011334
011760
012344
013056
013516
005004
013770
014512
015472
016742

25264
32740
33014
33654
34564
35570
36458
37838
38954
26134
39634
41104
43064
4598#

SEQ 0177

1421

3466

TST1
TST10
TSTI1
TST12
TST13
TST14

I 14
30A(1052)
0S-APR-78
14:49
PAGE 178
CROSS REFERENCE TABLE =-- USER SYMBOLS

6190
6197
6198
6199
6200
6201
6202
6203
6204
6191
6205
6206
6207
6208

3567

5400+

5309#
2492

3655

2537

3793

2623

3905

2676

3973

2724

4120

2765

4316

2979

4608

3251

4875

3285

5105

3311

5107

CZRMKAQ RMO3/2 DSKLS PRT ¢
CZRMKA.P11
05-APR-78 14:38
TST24
TST3
TST4
TSTS
1ST6
1S17
TYPBN =
TYPDS
TYPE

TYPOC

=
=

020166
005224
005440
005626
006764
010144
104406
104405
104401

104402

TYPOS =
T

104403
004472

TYPON =

110
T
T12
713
T14
115
T16
117
T2

010366
010510
011010
011376
012022
012406
013120
013560
005046

120

014032

121
122

014554
015534

123

124
T3
T4
T5
16
17
BUS@S
NS
=
NTMSK=
PE
=
SE
=
0
=
1
=

2
v

104404

017004

020230
005266
005502
005670
007026
010206
030763
040000
000007
020000
040000
000001
000002

= 000004
= 000100

ATCH
001524
W
= 000040

4B65#
26654
27134

27554
2968#
32404
5299
5139
2261
2375
5140
5284
6373
6502
2363
65964
2306
2532
3280
3306
3370
3461
3562
3650
3788
3900
2618
3968

46115
431
4603
4870

2671
2719
2760
2974
3246
2350

11304
13354

13174

12634
13324
13314
13304
11240
16044
11974

3887

4568

o
CE
CEHI
CELO
CF

=
=
=
=

000050
040000
010000
004000
000040

5749

1084#
13164
13414
13424
11394

MACY11

J 14
164:49
PAGE 179
30A(1052)
05-APR-78
CROSS REFERENCE TABLE =-- USER SYMBOLS

6209
6192
6193
6194
6195
6196
65984
5146
2304
2380
5147
5302
6384
65934
5296

5293
2326
2386
5182
5304
6394
6642
6372

65974
2329
2396
5183
5884
6405

2377
2533
3281
3307
3371
3462
3563
3651
3789
3901
2619
3969

2398
25344
32824
33084
33724
34634
35644
36524
37904
39024
26204
39704

4116

4312
4604
4871

2672
2720
2761
2975
3247
67114
27461
2548

5447
3327+
3583
3948

2343
2420
5206
6079
6478

2346
2421
5215
6231
6483

5186

5194

5203

5209

65954

5567
3347
3602
4034

5571
3349
3615

5401+
3618

5403
3632
4186
5089

5601+
3691
4360
5522

2361
2433

2350
2424
5253
6239
6487

2353
2430
6492

5263
6315
6493

5608
3717

5677+
3767
4412
5540

5679
3837
4438
5546

5259
6303

2364
2440
5276
6369
6495

2370
5133
5282
6370
6498

65944

26734
27214
27624
29764
32484

2569

5451
3329
3598
3952

4826

6737

6738

1146

5191
5950
6424

2340
2407
5200
6019
6472

L1174
43134
46054
48724

4821

5781

2335
2401

SEQ 0178

5793

4844

4047

5065

4159

5070

4386

5529

3856

6400

5716

3883

4542

5739

004000
176000
001567
161577
003304
001100

SATYC

030474

SASTAT=

SATY
SATY3
SATY4L
SAUTOB
$BASE

$BDADR

weteene

030450
030456
030466
001150
001276

001136

11334
11194
12254
12584
12204

22864
1601

6685
6656
66544
6064
6244
16394
15124

3310
14344
3508+
3826+
4263

4686+
4950+

$BODAT

001142

5449+
5652+
14364

3289+

3445
3632+
3948+

4424
4762+
54467

$BELL
$BIN
$COW1
$CDW2
[SCHARC
$CKSWR
SCMTAG
$Cm3
=

001212
025104
001302
001304
026036
027122
J01114
000000

SCM4&
=
SCNTLC
$CNTLG
SCNTLU
$CPUOP
SCRLF

000005
030020
030032
030025
001250
001217

$OBLK
$00W0
DOW1
ooWw2
DDW3
ODW4é

025322
001306
001310
001312
001314
001316

5773«
14594
5880+
15144
15154
6081+
63484
16224
14524
14524
6303
6369
6394
14864
164614
6405
5916
15164
15174
15184
15194
15204

3662

4619

2850
2854
2848

2871
2872
2870

2931
2941
2925

2934
2944
2928

3031
3063
3060

3119
3095
3092

6362
2372+
3566
2571«
3536+

6519
2536
3654
2572«
3570+
4007«

2603
3792
2603+
3571+

2622
3904
3264+
3699+

2675
3972
3265+
3700+

2723

3485

3318
3980

3407
6132
6741

6742

2653
2698
2655
2427

2810
2811
2809

2487+
2362
3465
2551+
3535«
3954

1146

= 004000

WRL
=
XNUDC =
XNUERZ2=
XNUOF =
XS12
SAPTHD

10854
10884
10894

SEQ 0179

SN
0D
& —

IULE

= 000052
= 000060
= 000062

K 14
30A(1052)
O05-APR-78
14:49
PAGE 180
CROSS REFERENCE TABLE -- USER SYMBOLS

—

WCH
WO
WH

MACY11

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38

3225
3228
3223

14074

6700
6658#

6655#
66574
2271«
2292
3374
2550+
3509+
3953+
4264
4717«
4951«

5450+
775+
2544
3290«
34470
3695+

4002+
L4609
4825+
5447+
5792+

6231
5883+

6091+
6602
2209
14534

4345
4718+
5011+
5483
§$776¢

2545
3334
3505+
3696+

4003+
4554+
4848

4006+

43461
4734«
5012+
548412
5795+

2565+
3337+
3506+
3735+

4016+
4576+
4926+
5480+

4471
4735+
5022+
5526+
5796+

2566
3354+
3532+
3736+

4017
4577+«
4927+

4021+
44720
4764+

5023+
5527+
7564
2826+
3355+«
3533+
3770+

4101+
4666+

6098

6107+

6112#

2210

2218

2226

2225

1464540

16554

14564

164574

5215

5253

5263

65134

5147
6492
5950

5182
6512
59584

4102

2226

7567
6512

65124

3383+
3582+
3836+

4947
55646+
7572

7564
6315
5891#

6384
65144
6487

5036+
5544+
7566
2883+

4667+
4949+
5566+
7576

5479+
5793«
6264
5884

5528+

4022+
4558+
4765+

5276

4174
4557«
4827+
5037+«
5545+
7572

2954+
3384«
3583«
3837«

4173«
4669
5009+

4119

3293x
3739
4175+
4580+
4828+
5053+
5569+
7580
3253+

3395+
3597«
3855+

7578

4194+
4679+
5020«
5605+
7580

5284

5304

5567+

2764

4315

3335+«
3740

46198+

4581+
4850+
5071«
5570+
7582
3254

3396+

2978

4607

3336+
3771«
4199«

46721
4851+
5072+
5612+
7584
3256

3250
4874

3376+
3772+

3377«
3825+

4241+
4673
4929+
5095+
5613

4242+
4685+
4930+
5096+
5651«

3258

3260
3444
3631+
3947
4373+

3598+
3856+
4195+
4680+
5035+«
5606«

3425
3614+

3426+

4196
4682

7582

5051«
5648+
7584

4266+
4716+
5069+
5649+

6080

6115

6239

3882+

3284

3615+
3883+

4732+
5093+
5772+

6264

$00WS
$0DW6
$0DW?7

001320
001322
001324
001232
001300
021652
025312
021642
021506
021656
001242
001243
021452
021500

021416
001117
001131

026424
001132
001532
001126
001210
00242
001326
001224
030714
001172
001171
001134
001140

021632
027212
000001
001100
030162
001120

030432
001151
001130
001220
030713
001512
001514
001122
001504
001502
001124

L2l
a V]

CZRMKAQ RMO3/2 DSKLS PRT
CIRMKA.P11
05~APR-78 1

:38

MACY11

L 14
30A(1052)
164:49
PAGE 181
05-APR-78
CROSS REFERENCE TABLE =-- USER SYMBOLS

2289+
5150
5954#
2259
51314

2301«
51564

2419+

5152#

6259

2265
2247

2281
2286

5128#
3267
6120
2227+
3649+
62244
5207
5222
5144
2226+
15244
6691+
6657+
6084

6115

2547
3510+
4023+
4669
5033
7564

SEQ 0180

2428+

2646

24647

2454

2481
6061

6059
6066

6241
6665

6663

6687

5132
5103#
6159
2531¢
3787+

6161

2617+
3899+

6167+
2670
3967+

6189
2718¢

6226+
2759

6264

6233+

6234+

6235

6264

5148+
6183«

6232+
6255

6264
6257

6264

6685

6694+

67024

2548
3537+

2549
3587+

2568+
3602+

6115

4100
4681+
5052+
7567

4102
4682
7576

4172+
4715+
5094
7578

2616+
3898+
66454
6386
6235+
6264

2669+
3966+

4113+

6406
6243
6502

6519
6264
6512

5411+
5352+
2618+
3900+

5353+
2671+
3968+

5408+
2619+

2672+

5070+

4114

2569+
3618+

4200+
4733
5451+
7580

6310y

4602+

4869+

3279+

6161

3305+
6184

3369+
6189

3460+

2570
3634+

2827+
3698+

2884+
3738+
4374
4849+
5547+

2953+
3769+

3292¢
3827+

3339+
3887+
5653+

3357+«
3952+
4579+
5021«
S774

4243
4763
5482+
7582

2973

42657
4826+

5529+

3245+

4425¢
4928«

4470+
4946+

4555+
5010+

5571+

S611+

6600
917

6557#
2530+
3786+
6628
6367+
5198
6115
6701#
5349
5341+
2228+
3650+
5375+
5336
2229+

5379+
5342+

2532+
3788+
5376

2533

2717+

2758+

4309

4868+

3244+

3278+
6174+

3304+
6175

3368+
6177+

6188

3459+

3560+

4311

2974+
4603

3246+
4870+

3280+
6156+

3306+
6165+

3370+
6181+

3461+
6186

2761+

29759

3247+

3281+

3307+

3371«

3462+

2972+

4601+

5365+
2760+

MACY11

3563

3651+
5339+

3789+
5340

3901+
5354+

3969+
5355+

6116+

5362+

4312+
5363

4604

4871+

6165

1413
3302
6180

164720
3366
6241

2246
3457

2265
3558

2481
3646

2527
3784

2614
3896

2666
3964

14
14:49
PAGE 182
30A(1052)
05-APR-78
CROSS REFERENCE TABLE =~ USER SYMBOLS

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38

6661

6696+

67004

2709#
3363

2
34524

27514
3454

$MAMST1
MANS2
MAMS3

001252
001256
001262

MANSS
MBADR
MFLG
SMNEW
MSGAD

$MSGLG
MSGTY
SMSWR
MTYP1
MTYP2
MTYP3
MTYP4
MXCNT
NULL
SNWTST=

$OCNT
$OMODE
$OVER
$PASS
$PASTM
POWER
PSW
PWRDN

PWRMG
PWRUP

QUES
$SROCHR

RDDE(C=

001266
001102
030712
030050
001236

001240
001222
030037
001253
001257
001263
(001267
026352
001170
000001

025554
025556
026336
001230
001106
030440
001520
030272

030426
030344

001216
027464
tvenee

ROLIN
RDOCT
RDSZ =
RESRE
RTNAD

027554
03006¢
000010
024774
021654

SAVRE
SAVR6
$SCOPE
SETUP=

024736
030436
026042
000137

R2A

weexen

$STUP = 177777
SVLAD
026302

3275
6059
14934
1501#
1504#
15074
14094

6655+
6373
164794

14804
14734

6370

14940
15024
1505#
1508«

6178

14484

25224
3238
3779#
4863

5691+
5986+
6132
14764
164114

6643

16024

2222
6643
6622
14604
64372
6606
64604
65304
64534
58564
51584
6608
58404
6621+
2216
13624
5123
13624
6140

65174
6671+
6676+
6669
65154

6689

6693

2611
32974
3893

26614

2663

3781

6115
26094
3272
38914

3959+

3961

6020+
5990+
6157
2246

60334
5995
6166
5125«

5998+
6176
5126+

6009+
6185¢#
5137

60354

66484
5384
6612#

5614
6640
6264

6424

6495

6512

6630+

6631+

66474

216
225

2218
6251

2220
6759

32704

66284
6115
6603

6182+

2756

6188

2969

6254

3241

4307

4599

4866

43024

2753
35534

4304

29644
3555
45948

2966
36414

4596

32364
3643

48614

2226
6343

2228
6519

2259

2262

2478

6674

6677«

6188#
6086
2524

1409

15034
15064
15004

1597#
14994

-—

001506
001254
001260
001264
001270
001222

SLPVEC
$MADR1
SMADR2
MADR3
MADRG
MAIL

SEQ@ 0181

3299

33612

5159

41064

4108

6172

6189

6604

6605

6607

6606
6629
61294
2215
6130

61794

2222
6307

2225
6313

CIRMKAQ RMO3/2 DSKLS PRT 2
CZRAKA.P11
05-APR-78 14:38
$SVPC
$SWR

000200
167400

$SWREG
$SWRMK
=
$SWO8T
STESTN

001244
000000
026354
001226

STIMES
$Tk8
$STKCNT
STKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS
$TKSRV

001206
001162
026624
026634
026633

026626

026630
026632

13782
905#

2226
3457
5157
6161
6236

14840

927
6155

14754
36460
14578
164454
62684%

2319 |
62728
62694
62704
62714

$TMPO

001160
026704
001174

$TMP1

001176

1452¢#
4586
7580
14534

001200
001202
001204
000025

4978
14540
14554
1456#
9164

$TMP2
$TMP3
$TMP4
=
$STN

001166
001173
001164
030164
STRAP2
030224
= 000016
$TRP
$TPB
$TPFLG
$TPS
$TRAP

STRPAD
S$TSTA

TSTNM

STTYIN
$STYPBN
TYPDS
TYPE
TYPEC

$STYPEX

TYPOC
TYPON

030236
001104
001116
030010
025032
025106
025560
025772
026040
025356
025372

14440

6286

2372
2395
2432+

MACY11

1383

916

2228
3558
5159
6168
6248
2249
928

61894
2527+
3784+
2225+
6267
6283+
2491
6338
6284+
6285+
6284
6267
62994
3262+

923
2614
3896
6123
6182
6644

6125

6126

6149

2614
3896+
5124+
6288
6313
62834
6449
6285
6447
6340
6289+

2666+
3964+
6168+
6299
6330
6304

2714+

2756+

6175
6324

6178+
6352

3511«

922

4111

6444

6365

924

2666
3964
6124
6185

4307+
64461

925

2714

4111

6125
6188

2969+

4599+
6138

2756

6131
6216

6143
6217

6145
6218

6146
6219

1459
3302
5124
6159
6220

4866+

3241

3275+
5190

3302+
6180+

3366+

3457«

3558+

4307

4599

4866

3275
5118

2225
3366

5151
6160
6229

64649

6338
6451

6340+

5320+

6322

6328«

6350

6366+

6376

6388+

6408+

3858¢

4216+

4218

5574+

4236
7568

4293
7570

4506
7572

4507«
7574

4527
7576

2353
2391
2415

2356
2392«
24230

2366+
2393«
2424

2368
2394+
2425

448

1 651

7570
4796+

2333
2382+
2410+
2438

2343
2388
24121

7568

2330
2376
2405
2436

23421
2384
24112

4995
4297
4797+

2329
2374
2403
2434

2344
2389+
2413¢
3512+

2352+
2390+
2414+
4217+

2527#
2760
3361
37844

2532
2964
33664
3788

2609
29694
3370
3891

2618
3236
34574
3900

4861

2661
32414
3461
3959
48664

26664
3246
3553
39644

4870

5123«
6463
6598
6597
6585
6090
6110
6594
59914

3241

6337+

6336+

3839+
4977+

4509+
7574

1457

6379

3701«

2328+
2373
2397
2433

1458

927
2969

926

4792

6462
S5877#
#
5904
60534
6083
6108
5989«
5988

14102
14244

2527
3784
612¢
6170
6264

4788

2220
65814
65854
66064
6575

4302
14472
164514
14464

921
2229
3646
6121
6169
6252

SEQ 0182

4770
7582

2522
27564
3306
3779
43074
6104
6053
6102
65664
6592
65944
66074
65924

2751
33024
3650

N 14
PAGE 183
30A(1052)
O05-APR-78
14:49
CROSS REFERENCE TABLE =-- USER SYMBOLS

7572
7568

4979

2442
7574
7574

5454

3263
7582

4295

4508+

4588

4794

2671
3270
35584

3968
6150

2709
32754
3562

4106
6190

27144
3280
3641
LARRY

2719
3297
36464

4115

66034

66044

66054

631
6115
6115

4594

45994

2614
2974
3452
3896#
4603

65954
66084

65964

65974

6598¢#

65994

6600

66014

6602

6120
6475

6152+
6493

6179+
6507

6180
6511¢#

6185

6189

6228

6264

6593
6097
61134

6682
61024

6103

6410

6115

6596
Vi

Voo

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1
SVECT2
$SXTSTR
$$GET4=
$$SwW08=

025332
001234
001110
001246
001272
001274
026054
000000
000025

SOFILL

025555

59844
14784
164124
14854
15104
15114
61344
S151#
6189¢

Sea 0183

5184

2373

2388+

2389

2415¢

620c#
5985+

6190
62034
5989+

61914
62044
5999

61928
62054
60344

61934
62064

61948
62074

61954
62084

61964
62094

61974
62104

61984

61994

62004

62014

13654
16214
6189
75944

13694
1463
6264
75964

1378
15934
6267
75978

1379#
2213
62714
7598%

13814
2228
6272

13834
2229
62734

1388¢
22754
65114

13914
51364
6512

1397
5159
65194

13984
51604
6624

14004
5958%
6646

14024
6115
67034

1414
6188
67134

6131

<SASTA= treeer |
.$X
= 001100

6655
13974

= 055571

B 15
30A(1052)
0S5-APR-72
14:49
PAGE 184
CROSS REFERENCE TABLE -~ USER SYMBOLS

6595
2492+«

$L0CAT= errenr |

MACY1T

6238

6658
1402

CIRMKAQ RM03/2 DSKLS PRT 2
CZRMKA
. P11
05-APR-78 14:38

CLEAR
CLKOFF
CLKON
CLKSNC
COMMEN
FNBSCH
ENDCOM
ERR

905#
3158

905#
905#
905#
10464
905#
1046#
905#
1742
1862
1982

ERROR

ESCAPE
ETAS
ETBA
ETBAE
ETCSY

GETCS?2
ETDA
GETDB
ETDC
GETDS
ETOT
ETECT
ETEC?
ETER

|GETERZ2
GETHR
ETLA
ETMR1

|GE TMR2
GE TOF
GETPRI
ETSN
ETSWR
ETWC
ETX
SG
uLT
EWTST
oP
USH

2095
9404
3154
3513
3859
6176

4642
4952
10464

9054
905#
9054
9054

905#

905#
9054

905#

905#
905#
9054
905#
905#

3443

905#

905#
9054
905#
4045
4665

5647
9054
905#
10464
905#
905#
905#
905#
905#
3893
10464
10464
3891
10464
1046#

2541
3181
3331
3327

2562
3203
3351
3347

MACY11

C15

30A(1052)
14:49
PAGE 186
05-APR-78
CROSS REFERENCE TABLE =-- MACRO NAMES

SEQ 0184

2624
3286
5610

2677
3380

2687
36N

2725
3568

2767
3663

2832
6121

4328

4609

4876

5618
5677

5681

2892

3015

3038

3070
5433

3102

3126

1718
1838
1958
2074

1726
1846
1966

2081

1734
1854
1974

2088
3122
3490
3840

4896

4104
4592
4902

3098
3448
3817
4137
4630
4908

4143
4636
4931

6645

4904

5601
4956

3320

3409

3487

3666

3802

3914

3982

4134

4331

4627

4886

1629
1750
1870
1990

1637
1758
1878
1998
2109

1645
1766
1886
2006
2116

1653
1774
1894
2014

1661
1782
1902
2022

1669
1790
1910
2030

1678
1798

1686
1806
1926

1694
1814
1934

1702
1822
1942

1710
1830
1950
2067
2180
3034
3412
3805
4078
4582

2102
2474
3177
3538
3888

2552

3179
3588
3917

2573
323
3603
3923

2124
2604
3266
3619
3929

2132
2658
3294

2140
2706
3323

1918

2038
2148
2747
3340
3675
3992

6201
4648
4959

4244
4674

4267
4687
5024

4300
4719
5038

3635
3955
6334
4736
5054

2637
2543
2640

2690
2564
2796

2794

2856

3288

2858

2907

3052

3084

3168

3193

26642
5445
3252

2802
5478

2862
5565

2911

3027

3114

3144

3219

2692
3504
2694

2735
3531
2737

2798

2864
5029
2866

2913

3025

3112

2915

3056

3088

3689

3715

2739

5013

3581

4575
2804

3596

4058
4704
5714
4001
2644

5725
4015
2800

4193
2860

10464

22624

2478

2524
3961

2611
4108

2663

2522
3959

2609

5382

5368
5330

4085
4727

4106

5370
5331

4157
4749

3613

4184

3630

3669
3985
4340
4766
5073

4375
4798
5097

2046
2156
2828
3358
3702

4008
4426
4829

3140

3191

3333

3353

3382

3394

3424

3170

3221

3835

3881

3734

5063

3854
4436
5087

4458

5520

3946
4540
5538

4032
4566
5603

3272

3299

3363

3454

3555

3643

3781

3236

3270

3297

3361

3452

3553

3641

3779

6634
6£20

6697
6658

6698
6660

6681

3217

4304

2711

4596

2753
4863

2966

3238

2661

2709

2751

2964

6553
6532

6633
6614

5841

4594
5945
5904

4861

3765

4410

3142

4302
5861

4024

4384

4358
4939

4274
4918

2909

2188
3066
3428
3811

4066
4558
4890

4251
4842
5787
4678
3086

5737

3386
3741

2060
2172
2955
3398
3773

4473
4852

4222
4819
5768
4419
3054

4773
5746
4369

2053
2164
2885

5508

5016

5002

CZRMKAQ RMO3/2 DSKLS PRT 2
CIRMKA.P11
05-APR-78 14:38
PUTAS
PUTBA

kUTBAE
utTCst

PUTCS2
[PUTDA
PUTDB

lputDC
PUTDS
PUTDT
UTECY
UTEC2
UTER1

PUTER2
PUTHR

UTLA
UTMR1

905#

2627

2680

2770

2781

2843

3108

5443

5476

5563

5597

2629

2772

2783

2836

2845

2896

3040

3072

3160

3185

3215

2631
3164
3134
3138
3082
2682

2789
3211

2840

2849

2900

3019

3106

3132

3187

3207

5581

2728

2774

2785

2851

2902

3017

3104

3128

3183

3213

5439

5472

5559

2730

2778

2853

2904

3044

3076

3136

3162

3189

3209

5441

5474

3345
3501
3628
3852
4155

3389
3517
3684
3875

3392
3520

3416
3522
3709
3937

3419
3524
3712
3942
4210

3432
3527
3726
3944

3434
3529
3729

3436
3573
3748

3439
3576
3751

3441
3579
3761

3475
35N
3763

3477
3594
3828

905#

905#
905#
905#

905#
9054#
905#
905#
9054#
905#
5593
9054#
5561
9054#

905#
9054

3495
3608
3831

PUTMR?

PUTSN
PUTWC
uTx
EPORT
GBFMC
SCOPE

905#
905#
9054#
10464
905#
9414

SWRSU

SEQ 0185

3046
5587

5591
5709
905#

SCTCMP
SETLFS
SETOM
SETPRI
SETTRA
SETUP
SETVV
SKIP
SLASH
SPACE
STARS

D 15

30A(1052)
05-APR-78
14:49
PAGE 187
CROSS REFERENCE TABLE =-- MACRO NAMES

905#
905#

4093
4356
4536
4990

PUTOF

MACY11

905#

3895
905#
905#
9054#
10464
6585#
10464
905#
10464
10464
10464
10464
2712
3469
3894
4397
4975
5657
6429
10464

2684
5595
3023
3078
2732
3497
3611
3833
4095
4380
4538

5058
5623
5712
3050
2633
3048
5585
1527

3080

3021
3499
3625
3850

4152
4382
4562
5061
5626
5720

2776
3110

5723

5635
5741

3686
3879
4182
4432
4758
5435
5641
5743

2787

2838

2847

2898

3042

3074

3130

3166

3205

3473

5583

2713

2755

3301

3365

3456

3557

3645

3783

6604

6605

6606

6607

2525
3297
3779

2609
3300
3782
6247

2612
3361
3820
4270
4864
5599
6212

2661
3364
3847
4289
4910
5620
6266

2664
3452
3867

2709
3455
3891

4405
4564
5083
5633

4180
4408
4756
5085

1557
2613
6110
3808
3926

4306

4598
3989
4898

2251
6594
2208

5388
6595

5414
6596

6440

1376

1394

1396

2526
3963
3672
3814

2751
3541
3932
4448
5027
5670
6453
22304

5579

2754
3553
3959

4486

5041
5698
6522

2665

3920
4639

2964
3556
3962
4504
5114
5702
6560

4207
4434
4781

5437
5643
5751

5753

4030
4256
4481
4837
5518
5686

4041
4258
4497
4840

5674
5783

4028
4231
4478
4817
5515
5684
5785

5810

5533
5689
5814

4454
4783
5470
5672

4228
4456
48:°
5510

4865
4140

2968

3240

3274

6337

4633

4892

6597

6598

6600

6602

6603

1403

1617

1463

1466

4529

4052
4594
5328

4106
4597

4109
4696
5490
5894

2967
3641
3996

5163
5761
6610

3236
3644

5825
6626

3239
3677

5373
5870
6653

3270
3721

6214
4790
5577
6038

48¢€1

5589
6117

4043
4281
4500
4966
5536
5691

4069
4284
4519
4969
5554

5€93

4302
4934

5630
6343

4071
4354
6523
4986
5556
5695

4305
4962

5637
6358

CIRMKAQ RMO3/2 DSKLS PRT 2
CZRAKA. P11
05-APR-78 14:38
TAGS
TRMTRP
TSTSET

TYPBIN

905#
65854
905#

3897
Ci6#

TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
SSCMRE
SSCMTM
$SSESCA
SSNEWT

10464
905#
1046#
10464
10464
10464
14154
146154
10464
10464

$SSET
SSSETM
$SSKIP

65854
22464
10464

.EQUAT
.GETPR
.HEADE
.SETUP
.SWRHI
.SWRLO
SACT
.SAPTB
.SAPTH
.SAPTY
.SCATC

-.SCMTA

.$01V
.SEOP
.$ERRO
.SERRT
LSMULT
. SPOWE
. SRAND
. SRDDE
.$RDOC
.SREAD
.$SAVE
.$SCOP
.$SIZE

.STRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO
.

ABS.

3891

905#
905#
9054
954
954
9054
905#
9054
905#
9054
905#

9054

9054
905#
905#
9G5#
9G5#
905#
9054
905#
905#
9054
905#
905#
905#

E 15

164:49
PAGF 188
30A(1052)
05-APR-78
CROSS REFERENCE TABLE -~ MACRO NAMES

SEQ 0186

1526

4308

4600

2716

2757

2971

2397
6371
5140

5184

5192

5201

5207

1452

1453

1454

1455

1456

2522

2609

2709

6595

4594
6597

2751

6594

2661
4302
6596

6598

2529

5137
10464

5144
2255

2376
2362
5133

3965

3959

936
906
1362
917
9284
1374
1464#
1392
5651
1363

1415

5112
6210
6608
6520
6264
5823
6115

0054
9054
9054
905¢
905#

6558
5868
5892
6036
5956

056072

000

ERRORS DETECTED:

MACY11

4106

2668

4867

4861

3243

3277

3303

3367

3458

3559

3647

3785

2964

3236

3270

3297

3361

3452

3553

3641

3779

6600

6602

6603

6604

6605

6606

6607

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA . P11
05-APR-78 14:38

MACY11

F 15
30A(1052)
O05-APR-78
14:49
PAGE 189
CROSS REFERENCE TABLE == MACRO NAMES

DSKZ:CZRMKA.BIN,DSKZ-CZRMKA
. SEQ/NL:TOC:MC:MD:CND/L1:ME/SOL/DOC/CRF=DSKM:(ZRMKA P11
RUN-TIME: 39 27 4 SECONDS
RUN-TIME RATIO: 936/71=13.0
CORE USED:
32Kk
(63 PAGES)

DOC 'MENT PAGES:

187

SEQ 0187