Digital PDFs

AH-E377A-MC

July 1978

188 pages

Original

95MB

view download

OCR Version

124MB

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_gray.pdf

OCR Text

RMO03/02

CTRMKAG

comaisinsase - AR
FICHE1 OF1

MADE IN USA

p——Y
O
S
S
A

WO NOWVNESAWN
2OV
NO WV WN -

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

MACY11 30A(1052)

O05-APR-78

8
14:49

1
PAGE 1

SEQ 0001

-REM

IDENTIFICATION

PRODUCT CODE:

AC-E376A-MC

PRODUCT NAME:

CZRMKAO RMO3/RMO2 DISKLESS DIAGNOSTIC, PART II

DATE CREATED:

1-MARCH-78

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

DOUG RIIKONEN

THE

INFORMATION IN THIS DOCUMENT

THE

SOFTWARE DESCRIBED

IS SUBJECT

TO CHANGE WITHOUT NOTICE

AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
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

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

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?c?gk{AfllLllv OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

05-APR-78

30A(1052)

£
14:49

3
PAGE 2

CONTENTS

INTRGDUCTION
1.

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS

PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

SWITCH OPTIONS

STARTING
INTERFACE

PROGRESS REPORTS

PROGRAM ID

1.
W

OPERATOR

MACY11

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

PERFORMANCE REPORTS
PROGRAM HALTS

ERROR REPORTS

ENVIRONMENTAL SUPPORT
1.

PROCESSOR COMPATIBILITY

DUAL PORT CONFIGURATIONS

MEMORY PARITY HARDWARE

MEMORY MANAGEMENT HARDWARE

ACT,APT COMPATIBILITY

SEQ 0002

CZR

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38

MACY11

30A(1052)

05-APR-78

D
14:49

1
PAGE 3

NOWVESsA WO Y

o
-

D e

i
d
-

XXDP COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY

d
-

—

CZR
CZR
.

108

SEQ 0003

TEST DESCRIPTION

WO VO NOVISAWN
=0 Yo
ONO VB WN=OVONO
VNS WO NV

THE RMO3 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH

TO DETECT ERRORS AND FAULTS IN THE RMO3 MASSBUS ADAPTER;

TO RESOLVE HARDWARE FAILURES
OR MODULES.

STORAGE MODULE DISK DRIVE

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

g?izzégg?sL.

- e JE

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:

THE

W
—d

ABSTRACT

SEQ 0004

THE UNIT UNDER TEST

(UUT)

IN RMO3 TO A FIELD REPLACEABLE MODULE

IS THE RMO3 DISK

AND THE

MASSBUS

SUBSYSTEM,

CONTROLLER.

EXCLUDING

ol 2

1.1

ak b

-l —

INTRODUCTION

PAGE 4

ok ol

1.0

14:49

UNIT UNDER TEST

RV P

—
-l —

05-APR=78

1.2

(O L AV AV AV IV L L

—

MACY11 30A(1052)

———

V] WWWWWWWWWNO
NN NN NN NN N - =

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

159

THE

FOLLOWING

MINIMUM

REQUIRED

HARDWARE

LOAD

CONFIGURATION,

AND

EXECUTE

THE

ASSUMED

RMO3 DISKLESS

PDP-11 PROCESSOR
16 K MEMORY
KW11-L OR LW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL
RH
CONTROLLER

WHERE

UNIT UNDER TEST,
THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 ADAPTERS.

CZRI
CZRI

MACY11

30A(1052)

05-APR-78

F
14:49

1
PAGE 5

SEQ 0005

160
161
162
163

164
165
166

167

2.2

169
170
1
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199

NONE

168

200
201
202
203
204
205
206

207
208

2.3

MEDIA REQUIREMENTS

PREREQUISITE DIAGNOSTIC PROGRAMS

CZRMJ- ,RM03/02 DISKLESS DIAGNOSTIC PART 1

3.0

OPERATING PROCEDURE

3.1

LOADING
THE

PROGRAM MAY

LOADED

TAPE
LOADING
PAPER
STANDARD
APPROPRIATE LOADING DEVICE.

3.2

BY
EITHER
PAPER
TAPE,
USING
PROCEDURE,
OR
XXDP
MEDIA, USING

SWITCH OPTIONS
THE

FOLLOWING SWITCH OPTIONS ARE

SWITCH IS ON.

INVOKED

SW15
SWi4
SW13

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

SW11
SW10
SW09
Sw08

INHIBIT
BELL ON
LOOP ON
LOOP ON

sWw12

THE
THE

UNUSED

TEST

ERROR

ITERATIONS

ERROR
TEST IN SW07-00

WHEN

THE

APPROPRIATE

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

SPECIFY

CZRY
CZR?

I P P P Poo. P P A P X W W P WA P2 U0 . P P P P P O o o sl il s SsUsdsdsisisdsislisliatiamiai sl sl sl ot st Sl s sad s S SU SO SO ~U -0

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

3.3

249
250

i
PAGE 6

SEQ 0006

STARTING
THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT

4.0

OPERATOR

4.1

PROGRAM ID
THE

TESTING WITH

THE

4.2

VALUES

TIME

1IT

SWITCH REGISTER EQUAL

INTERFACE

PROGRAM TYPES

ITS NAME AND MAINDEC NUMBER

IS STARTED AFTER BEING LOADED.

THE

FIRST

PROGRESS REPORTS

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

4.3

PERFORMANCE REPORT

NO PERFORMANCE
PROGRAM,

241

gzg

G
14:49

05-APR-78

PARAgETERS AND PROVIDES MAXIMUM
T0 ZERO.

242
243
g:g

246

30A(1052)

4.4

REPORTS ARE

GIVEN

DURING

THE

EXECUTION

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF

PROCESSOR HALTS ARE DUE TO THE

TRAP CATCHER.

THE PROGRAM.

gg;

4.5

ERROR REPORTS

253
254

THE RMO3 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR REPORTS
INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE REFERENCES TO

ggz

PROGRAM LISTINGS.

257
258
259
260
261
262
263
264

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
COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING MODULES
IN ORDER OF
DECREASING PROBABILITY.
THE ERROR MESSAGE IS NORMALLY
FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS AND
DATA PERTININENT
TO
THE
ERROR,
INCLUDING-EXPECTED AND ACTUAL TEST

CZRV
CZRY

I Mn A A 0N O On On OO0 ON O 0N A A N 0N AR An A An An An A An An 0N 0D N An An 00 O 0 OD O 0 On 0D O O A0 O M TM 0D A0 Ao O 0 An 0D OO O A O A 00 N 00

MACY11

oo
YNV NN NN N
-0
S WWWWWWWWWWNONONNNONRDNVNN
NN - — el i i D o i
OVONOVMERWNN=OVENO
VNS W20 O~NO
NS W = o0

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

CZRMKA.P1T

265

05-APR-78 14:38

MACY11

30A(1052)
RESULTS.

O05-APR-78

14:49

PAGE 7

SEQ 0007

CZRM
CZRM

O O \O O 0o oo co 00 Co co Go 00 0o 0o co 00 G0 Co 0o 00 0o Oo 00 0o

CZRMKAO RMO3/2 DSKLS PRT 2

266
267
268
269
270
271
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
297
298
299
300
301
3902
303
304

MACY11

30A(1052)

b od d

d e =

NOWVS~WN

WWW
W W
W LW

14:49

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

PAGE 8

SEQ 0008

THE
RMO3
DISKLESS
DIAGNOSTIC
IS
EXECUTABLE
ON
ANY
PDP-11
:E?CESSOR.
PROVIDING
PREVIOUSLY
MENTIONED HARDWARE REQUIREMENTS ARE

5.2

DUAL PORT CONFIGURATIONS
THE RMO3 DISKLESS DIAGNCSTIC

IS NOT EXECUTABLE ON RMO3 SUBSYSTEMS

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

5.3

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE WILL NOT BE USED DURING

THE RMO3 DISKLESS DIAGNGOSTIC.

5.4

5.5

THE

EXECUTION

MEMORY MANAGEMENT HARDWARE

MEMORY MANAGEMENT HARDWARE WILL
DISKLESS DIAGNOSTIC.

NOT

USED

DURING

THE

RMO3

ACT11, APT11 COMPATIBILITY

THE RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 AND
APT11
IN
BOTH
DUMP
AND AUTOMATIC MODES.
FURTHER, THE PROGRAM WILL
SSSEUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK
VERIFY

5.6

PN =

05-APR-78

XXDP COMPATIBILITY
THE RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH

DUMP AND CHAIN MODES.

5.7

XXDP

OPERATING SYSTEM COMPATIBILITY

SYSTEL“E PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

ANY

OPERATING

OOV OVOVOVOVOVOVOVOVOVOVOVOVOVOVOOVOVOVOVOVOVOOVOVOOVOVOOVOOVOVOOVOOVOOVOVOOOVOOVOOVOOVOVVVOVY

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

¥HE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST
?EQERALLY
USES
A
MORE
COMPLEX SUBSET N* JARDWARE THAN THE PREVIOUS

MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS
BEEN
COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE,
NONTRANSIENT HARDWARE FAILURES.
HAVE

THE "'RMO3 DISKLES DIAGNOSTIC' CAN BE EXECUTED USING AN RH70 OR AN

RH11 MASSBUS CONTROLLER.

UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE
IS REPEATED FOR EACH POSSIBLE

THE MODULES WHICH MAY BE
TEST ARE AS FOLLOWS:

DEVICE

STARTING WITH DEVICE 0.

CALLED OUT DURING THE EXECUTION

THE
THE

IF
CS
DS

MASSBUS MCDULE

THE RADIAL MODULE

(RD)

IS NOT

TESTED BY

THIS PROGRAM.

TRANSFER TEST

:
PURPOSE

THE PROGRAM
WRITES
AND
SELECTED
DEVICE.
REGISTER

READS
REMOTE
CONTENTS
AND

IGNORED, AND THE TEST FAILS IF A "'NONEXISTENT

REGISTERS
FOR
PARITY
ERRORS

DEVICE

ERROR'

THE
ARE

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

SWITCHED

TEST FAILS IF

PROCEDURE
:

D —d —h

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.

bk —d e

TEST

[elelelelelelelelelelelelelele
e Re RV IV e R RV RV e Rre Ve RV o Ve RV alVe Ve R RVo RV Rro Rle RVe RVo e RVe Bro RVe RVe RVe Ko RVo Vo Ko RVo RVo Rl e BVe RVo RVs RVo RVe Ko Rl e

TEST DESCRIPTION

CZRM
&l
~N

SEQ 0009

1
PAGE 9

347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376

6.0

J
14:49

05-APR-78

THE

SELECTED DEVICE

IS NONEXISTENT

DEVICE

THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT.

THE FOLLOWING FAULTS ARE
APPLICABLE
ONLY
WHEN
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT.

THE

340
341
342
343
344
345
346

30A(1052)

321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339

MACY11

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

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

377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392

PAGE 10

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

(S MODULE

SEQ 0010

THE TEST WRITES ONES IN REMOTE
REGISTERS
THEN
READS
EACH
REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF ''IF3 CTOD HOLD

H'' IS STUCK AT ONE.
PROBABLE

THE TEST THEN READS AS MANY REMOTE REGISTERS

TO OBTAIN ONE OR MORE ONE BITS.

FAULT:

10«

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

MASSBUS

— e

AS ARE NECESSARY

INITIALIZE

TEST

PURPOSE
:

TO VERIFY THAT THE MASSBUS ADAPTER
THE MASS BUS.

IS BEING

INITIALIZED

PROCEDURE:

TEST

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT,

THIS

THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST

ONE BIT IS CLEARED.
MASSBUS ADAPTER REGISTERS ARE
NCN ZERO VALUE PRIOR TO CONTROLLER CLEAR.
PROBABLE

b —d —d —d —d — ——d —d

PROCEDURE:

RMO3
THAT

—d —d

TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE
USING
THE
CONTROL BUS
AND,
IN
PARTICULAR,
TO
VERIFY
"'CONTROLLER TO DEVICE'* HAS NOT FAILED.

oo ocoooo0ooeeeee

:
PURPOSE

407
408

429
430
431

14:49

CTOD TEST

400
401
402
403
404
405
406

423
424
425
426
427
428

05-APR-78

393
394
395
396
397
398
399

409
410
611
412
613
L)
415
416
417
418
419
420
421
422

MACY11 30A(1052)

FAULT:

PRESET

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
432
433
634
435
436
437
438
439

440
441
442

MACY11

30A(1052)

05-APR-78

L
14:49

1
PAGE 11

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

(S MODULE

SEQ 0011

443
L4

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

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

TRISTATE

TRANSFER TEST

THIS TEST PRESETS MASSBUS ADAPTER
REGISTERS
VALUE,
THEN,
ASSUMING
THE REGISTERS ARE PRESET,

—d
b —
b

PROCEDURE
:

TO
A
NONZERO
IT CLEARS THEM

USING A MOVE INSTRUCTION.
THE TEST THEN READS AS MANY
REGISTERS
:gsx%?ONNECESSARY
TO
OBTAIN
ONE
OR
MORE
ZEROS FROM EACH BIT

ed nd

TO VERIFY THAT THE PATH TO
AND
FROM
THE
MASSBUS
ADAPTER
TRI-STATE
REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH
BIT POSITION IS INDEPENDENT.

PURPOSE
:

=D —p

4«87

et e

4“7
472
473
474
475
476
477
478
479
480
481
4«82
483
484
485
486

STATE.

IS NOT STUCK

467
468
469
470

TO VERIFY THAT "'MBA CLR L' ON THE CS MODULE

AN ACTIVE

.
——
—
—
—

466

:
PURPOSE

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

CLEAR STUCK ACTIVE TEST

b e

445

446
447

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

MACY11

30A(1052)

05-APR-78

L
14:49
PAGE 12

SEQ 0012

CZRMI
CZRWI

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
489
490
9N
492
493
494
495
496
497
498
499

MACY11 30A(1052)

05-APR-78

14:49

PAGE 13

CZRMy
CZRM
11¢
11¢

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
IN
EACH BIT POSITION.
FINALLY,

THE

TEST WRITES A SINGLE ONE BIT PATTERN IN .BIT

OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE
SE?Dng§§i0“;HE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR
ALL

500
501
502
503

PRUBABLE FAULT:

505

ASYNCHRONOUS MASSBUS MODULE

€.

[IF MODULE

(S MODULE

DS MODULE

504

SEQ 0013

TEST

:
PURPOSE

TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT
POSITION.

IN A

STUCK

PROCEDURE
:

EACH REGISTER SELECT LINE IS

TESTED

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 REGISTER IS WRITTEN FIRST.
REGISTER SELECT LINES 1, 2, 4
AND
8
ARE
TESTED
IN
THIS
MANNER;
SELECT LINE 16 IS EXPLICITLY TESTED IN THE "ILR TEST".
PROBABLE

FAULT:

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

PROBABLE FAULT:

556
5§57
ggg

IF MOULE

DEVICE AVAILABLE TEST

560

PRUPOSE
:

zgz

PROCEDURE :

ggz

THE PROGRAM TESTS “DVA".BIT 11 OF RMCS1.

567
568
569
570
571
5§72
573
574
575
576
577

PROBABLE FAULT:

§;S
g:?
582

TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET.

il
il

ggg

THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT

CORRESPONDS TO A SINGLE PROT OR DUAL PROT RMO3 DRIVE

PROCEDURE :

TO TEST THE "‘DRIVE TYPE' REGISTER, RMDT.

ggg

gg}

94
c2s

DRIVE TYPE TEST

PURPOSE
:

SEQ 0014

il aceal

PAGE 14

5§51

ggg

14:49

545
546
gzg

OS-APR-78

544

MACY11 30A(1052)

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

IF MODULE

.
.

SEARCH TIMEOUT TEST
PURPOSE :

TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS "‘OPI'',

g:z

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

;:2

PROCEDURE :

587

588
589
590

591

5§92
593
594
;gz

597

598

5§99

WITH SEARCH TIMEOUT DISABLED, THE TEST EXECUTES A DATA

COMMAND TO THE POINT WHERE ‘P ENABLE SEARCH'' IS ASSERTED.
AFTER WAITING A SUFFICIENT PERIOD AND VERIFYING THAT OPI
IS NOT SET, THE TEST ENABLES SEARCH TIMEOUT AND VERIFIES

THAT OP] SETS.

‘
!

PROBABLE FAULT:
1.

CS MODULE

NOTE:

IT IS ASSUMED THAT THE *‘SET OPI TEST'* HAS

ALREADY PASSED, THUS MAKING THE IF MODULE

AN IMPROBABLE FAULT.

05-APR-78

c
14:49

2
PAGE 15

SEQ@ 0015

CZR
CZR

—d —d —dh

-l —d

30A(1052)

SET DTE TEST

THAT “ENABLE SEARCH' IS NOT STUCK AT ONE OR ZERO.

THE

IS NOT STUCK AT ONE.

624

(2)

INSURE

THAT

THE

IS STILL

SECTOR COMPARE

FLOP

EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO

POINT WHERE SEARCH

IS ENABLED,

I.E.,

P EN SEARCH H

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

SHOULD NOT SET.
SET SECTOR PULSE AND VERIFY THAT DTE IS
RESET.
THIS TEST FAILS IF J INPUT TO SECTOR COMPARE FLOP
IS STUCK AT ONE.

640

FORMAT

DS MODULE

D e

(S MODULE

FAULT:

CHANGE

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

—h —h —d D

625
626
627
628
629
630
631
632
633
634
635
636
637
638
639

THIS TEST WILL

RESET.

— —

621
622
623

INITIALIZE AND VERIFY THAT 'DTE'" IS RESET, THEN

—

(1)

SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE

PROCEDURE
:

618
619
620

D —ld —

THAT "'MAINTENANCE SECTCR COMPARE'' IS NOT STUCK AT ONE
OR ZERO.
.

D —d

—

THIS TEST ALSO VERIFIES

SET BY THE CS MODULE,

617

IN ADDITION TO VERIFYING THAT "DRIVE TIMING ERROR'' CAN

D e

616

:
PURPOSE

D el

600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615

MACY11

TEST

:
PURPOSE
TO VERIFY THAT A CHANGE

ENABLE UNTIL THE NEXT

IN FORMAT

INDEX PULSE.

INHIBITS SEARCH

PROCEDURE
:

THE TEST WILL USE "DTE'' FOR VISIBILITY OF ''CS3 EN

—

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

D
14:49

2
PAGE 16

SEQ 0016

679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696

697
698
699

700
701
702
703
704
705

706
707
708
709

710
n

(5)
SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING
ERROR IS RESET.
(6)
SET AND RESET INDEX PULSE TOCLEAR THE FORMAT
CHANGE FLOP.

(7)
SET AND RESET SECTOR PULSE TO SET "'CS3 EN SEARCH'
FLOP AND *'CS5 SECTOR COMPARE'' FLOP.
(8)

SET SECTOR COMPARE AND VERIFY THAT DTE

IS SET.

REPEAT THE TEST WITH A FORMAT CHANGE FROM 18 BIT MODE
TO 16 BIT MODE.
PROBABLE

PROM STROBE

FAULT:

(S MODULE

TEST

:
PURPOSE

TO VERIFY

-l -l —l —
-l —d - —
-l
Al
D

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

THE FORMAT CHANGE.

WHICH SHOULD NOT SET BECAUSE OF

672
673
674
675
676
677
678

SET '"MAINTENANCE SECTOR COMPARE'', THEN SET

671

(3)

"MAINTENANCE SECTOR PULSE'TM TO CLOCK '°CS3 EN SEARCH'' FLOP

—h D

(2)
EXECUTE A DATA COMMAND TO THE POINT WHERE SEARCH
IS ENABLED BY THE SEQUENCER.

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

663

THE FOLLOWING STEPS ARE EXECUTED:

- —

SEARCH H".

664
665
666
667
668
669
670

CZR

- —h —h —

656
657
658
659
660
661
662

CZR
—

05-APR-78

30A(1052)

THAT WORD CLOCK AND PROM STROBE

IPULATED IN MAINTENANCE MODE.

CAN BE MAN-

PROCEDURE
:

- — — —h —h =

MACY11

INITIALIZE AND SET 16 BIT MODE, THEN SEQUENCE THE

MAINTENANCE
MAINTENANCE
PROBABLE

CLOCK UNTIL PROM STROBE SETS.
ISSUE =-- MORE
CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS.

FAULT:

(S MODULE

—

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

05-APR-78

2
PAGE 17

SEQ 0017

CZR
CZR

DS MODULE

E
14:49

SYNC WORD COUNT INHIBIT TEST

e R

:
PURPOSE

e R

FOLLOWING DURING READ COMMAND:

THAT "'CS& P LFS' (LOOKING FOR SYNC) GOES ACTIVE.

THAT "LOOKING FOR SYNC'' INHIBITS THE WORD COUNT

THE

TO VERIFY

A READ COMMAND IS SETUP AND EXECUTED TO THE POINT

s ks

PROCEDURE:

PROGRAM VERIFYING THE TRANSITION OF THE SIGNAL.
THE
PROGRAM THEN SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES

THAT "‘PROM STROBE'® NEVER GOES ACTIVE.

(S MODULE

IF LFS FAILT,

DS MODULE

IF PROM STROBE FAILS.

FAULT:

a———-——

PROBABLE

WHERE ''LOOKING FOR SYNC'' SHOULD BE ACTIVE, WITH THE

SYNC DETECTION TEST

PROCEDURE:

THE

TEST EXECUTES A READ COMMAND

IN MAINTENANCE MODE,

USING BIT 10 OF THE MAINTENANCE REGISTER (RMMR1)

ULATE THE SYNC BIT STREAM, AND USING PROM STROBE
IF THE SYNC PATTERN HAS BEEN DETECTED.

TO SIM-

TO DETERMINE

THE SYNC PATTERN IS 00011001, WITH THE LEFT MOST
BIT REPRESENTING THE LAST BIT OF THE STREAM.

i W

SYNC PATTERN IS

TO VERIFY THAT THE APPROPRIATE
RECOGNIZED.
:

S— ————g——— Y

:
PURPOSE

754
755
756
757
758
759
760
761
762
763
764
765
766
767

30A(1052)

PROBABLE

FAULT:

DS MODULE

(S MODULE

712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
73
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753

MACY11

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

800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820

821
822
823

05-APR-78

2
PAGE 18

SEQ 0018

CZRI
CZRI

30A(1052)

— R

ABORT SYNC DETECTION TEST
:
PURPOSE

1
1

TO VERIFY THAT "WORD COUNT INHIBIT'' IS RESET IF A

TIMING ERROR'' OCCURS DURING SYNC DETECTION.

PROCEDURE
:

A READ COMMAND

INITIATED

IN MAINTENANCE MODE.

"LOOKING FOR SYNC'' GOES ACTIVE, THE TEST FORCES A DRIVE

WHEN

TIMING ERROR AND USES PROM STROBE TO VERIFY THAT "‘WORD

PROBABLE

COUNT INHIBIT' HAS BEEN RESET.
FAULT:

DS MODULE

SYNC GENERATION TEST
:
PURPOSE

TO VERIFY

THAT

THE

APPROPRIATE

GENERATED DURING A FORMAT OPERATION.

SYNC PATTERN

PROCEDURE:
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
TENANCE REGISTER (RMMR1).
PROBABLE

WRITE

HEADER

THE MAIN-

FAULT:

DS MODULE

TEST

PRUPOSE:

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

"DRIVE

768
769
770
44
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

MACY11

—

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

F
14:49

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

MACY11

30A(1052)

824
825
826
827
828
829
830
831
832
833
834
835
836
837

05-APR-78

6
14:49

2
PAGE 19

SEQ 0019

CZR!
CZR

A WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE

MODE.

THE

TEST VERIFIES HEADER WORDS ONE AND

CRC CHARACTER USING THE WRITE DATA BIT OF

TWO AND THE

THE MAINTENANCE

1
1
1!

THE
16 BIT

TEST USES CYLINDER 822,

FORMAT,

WHICH CORRESPONS

TRACK 4,

TO THE

SECTOR 31

AND

FOLLOWING

1
1I

1
1
1

HEADER:

g o

WORD 1

- 1101001100110110

840
841
842
843
844
845
846
847
848
849
850

WORD 2 - 0000010000011111

839

851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
14
872
873
874
875
876

877

878
879

PROBABLE

HEADER

FAULT:

1
1

DS MODULE OR MASSBUS MODULE

COMPARE

TEST

U
1

:
PURPOSE

TO CHECK THE OPERATION OF

ge;s BUFFER AS WELL AS THE

(1)

(2)

THE

SHIFT REGISTER AND

CRC GENERATOR DURING

| 1
14
1"
|
1

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
IS 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

1
1
1Y

|!
1
1
It

i1I

THAT BIT 15 IS INVERTED.

PROBABLE

FAULT:

DS OR IF MODULE IF CRC ERROR NOT DETECTED;
DS OR MASSBUS MODULE IF DATA INCORRECT

1I
1
11

ECC GENERATION TEST

1
1

PURPOSE
:

1
1

TO CHECK ECC OPERATION DURING WRITE.

1
|I

PROCEDURE:

A WRITE DATA COMMAND IS EXECUTED IN MAINTENANCE
ALL ONES DATA FIELD IS USED, AND THE TEST VERIFIES

MODE.
THE ECC CHARACTER VIA THE WRITE DATA BIT OF
REGISTER.
THE DATA FIELD IS NOT VERIFIED.

THE MAINTENANCE

1
14
1

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 IN MAINTENANCE
MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA
WORD IS FAULTED.

AND THAT

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

PROBABLE

FAULT:

e T

)

DS MODULE

ECC

900
901
902
903

14:49

897
898
899

O05-APR-78

s S

896

30A(1052)

ItRLALIA . A LTALALIALIALIALIALIALALALALIALALALALALALALRLALALALRLAE
N

880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895

MACY11

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

2
PAGE 21

SEQ 0021

—

CZRMKAO RMO3/2 DSKLS PRT 2

;*DIGITAL EQUIPMENT CORP.

;*MAYNARD, MASS. 01754
o

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
:*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.
-3

OPERATIONAL SWITCH SETTINGS

USE

ERROR
TEST
ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR

LOOP ON TEST IN SWR<7:0>

—d o

TN128
TN64

TN32

D d e

TN16
TN8
TN4

TN2
TN1

BASIC DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER #+t 1100 w#«

001100

STACK=

000011
000012
000015
000200

HT=

::CODE

CR=
CRLF=

15
200
177776

::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

177774
177772
177570

177570

000000

000001
000002
000003

1100

EMT,ERROR
10T,SCOPE

;:BASIC DEFINITION OF ERROR CALL
;:BASIC DEFINITION OF SCOPE CALL

s*MISCELLANEOUS DEFINITIONS

LF=

PS=
.EQUIV

PS,PSW

PIRQ=
DSWR=

177772
177570

FOR HORIZONTAL

::CODE FOR LINE FEED

TAB

: :PROCESSOR STATUS WORD

STKLMT= 177774

::STACK LIMIT REGISTER

DDISP=

: sHARDWARE DISPLAY REGISTER

177570

: ;PROGRAM INTERRUPT REQUEST REGISTER
; ;HARDWARE SWITCH REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

177776

.EQUIV
.EQUIV

d o

HALT ON
LOOP ON
INHIBIT
INHIBIT
BELL ON
LOOP ON

—_——
—

R
R

R
R
R

R
R

B
L

N
R

BN
L

B
N
L
L

£l
LB

+SBTTL

O=NNWHIAVNONOOVO
=W

SWITCH

D o

$TN=1
.SBTTL

)

000001

: *PROGRAM BY DOUG RIIKONEN

.TITLE

CZRY
CZRY
A I AIAIAIAIRIALIAIAIALIAIALIALIALAIALALALALALIALALALALALIALALALALALRALALALALALALALALALALALALALALALALALALALALALALWLN wn

1
14:49

R2=

— e

957
958
959

05-APR-78

;PROGRAM REVISION #001

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
953
954
955
956

30A(1052)

LR B

904
905
906
907
908
909
910
911
912
913
914
915
916
917

MACY11

RO=
R1=

20
1

: GENERAL REGISTER
: GENERAL REGISTER

R3=

: GENERAL REGISTER

¥4

: ;GENERAL REGISTER

tRMiA

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

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

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SWO09,Sw9
SW08,Sw8
SW07,Sw7
SW06,SWé
SWO0S5,SW5
SW04,SW4
SWO03,SwW3
SW02,Sw2
SW01,Sw1
Sw00,Sw0

:*DATA BIT DEFINITIONS (BITOO TO BIT15)
BIT15=
100000
BIT14= 40000
BIT13= 20000
BIT12= 10000
BIT11= 4000
BIT10= 2000
B8IT09= 1000
BIT08= 400
BIT07= 200
BIT06=
100

o NV IV SV TV LV LV LV IV IV TV LV LV LV IV IV IV | Vi

;*''SWITCH REGISTER' SWITCH DEFINITIONS

SW15=
SWi4=
SWi13=
sSWw12=
SW11=
sWwi0=
sw09=
Sw08=
swo7=
sSWoé=
SW05=
SW04=
SWo3=
sSWw02=
SWo1=
SWoo=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

oo (o

100000

)

) —d

: ;PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS
PRO=
0
;sPRIORITY LEVEL
PR1=
40
;sPRIORITY LEVEL
PR2=
100
;:PRIORITY LEVEL
PR3=
140
;:PRIORITY LEVEL
PR4=
200
;sPRIORITY LEVEL
PRS=
240
::PRIORITY LEVEL
PR6=
300
:PRIORITY LEVEL
PR7=
340
::PRIORITY LEVEL

::STACK POINTER

— —

000000
000040
000100
000140
000200
000240
000300
000340

; GENERAL
: GENERAL
: GENERAL
: ;GENERAL

—d o

R4=
R5=
R6=
R7=
SP=
PC=

CZRM
b — -

000004
000005
000006
000007
000006
000007

14
25
16
17
26
x7

'sEa 0022

D —d

2
PAGE 22

BASIC DEFINITIONS

J
14:49

O05-APR-78

()

30A(1052)

—

960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995

MACY11

NOWVMISsSWN—-O

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

1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055

K
14:49

2
PAGE 23

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

ERRVEC= &
RESVEC= 10
TBITVEC=14
TRTVEC= 14

::TIRE OUT AND OTHER ERRORS
s sRESERVED AND ILLEGAL INSTRUCTIONS

PWRVEC= 24

; ;POWER FAIL

004000
000040
000020
000010
000004

=
o
b e
b
d
D
b
b
d e
d
b

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES

T BIT
::TRACE TRAP

: ;BREAKPOINT TRAP (BPT)
:: INPUT/OUTPUT TRAP (iOT) =«SCOPE++

EMTVEC= 30

:;EMULATOR TRAP (EMT) «+ERRORt*+

TPVEC=

s:TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

.SBTTL

RMO3 REGISTER BIT DEFINITIONS

;RMCST

CONTROL STATUS REGISTER

DVA

BIT1

F3
F2

=
=

BIT04
BITO3

TRAPVEC=34
TKVEC=
60

::""TRAP'" TRAP
::TTY KEYBOARD VECTOR

PIRQVEC=240

Fé&

=
=

BITOS

BIT02

CZRM
CZRM
b

BITO5=
BIT04=
BIT03=
BIT02=
BITO1=
BITO0=
.EQuIv
.EQUIV
.EQulv
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQuUIv
.EQUIV

BPTVEC= 14
I0OTVEC= 20

SEQ 0023

40
20
10
&
2
1
BIT09,BITY
BIT08,BIT8
BITO07,BIT7
BIT06,BIT6
BITO05,BITS
BITO04,BITS
BITO03,BIT3
BIT02,BIT2
BITO1,BITI
BIT00,BITO

000040
000020
000010
000004
000002
000001

1032

1033
1034
1035

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

—d

1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031

MACY11

oooccoorrrOrrOrOrOrOrO
OO

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

sDEVICE AVAILABLE-READ ONLY
sFUNCTION CODE

sFUNCTION CODE

;FUNCTION CODE

wV S W

- OV~

h
d
i

—

d o

—d =

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

002000
001000
000400
000020
000010
000004
000002
000001

NOP

ILFO2

SEEK.

RECAL
DRVCLR
RLEASE

OFFSET
RTC

RIP

PAKACK
PACACK

ILFeé
ILF26

ILF30
ILF32
ILF34
ILF3é
ILF40
ILF&2
ILF&4
ILF&46

wCD

WCH

ILF54
ILF56

ILF64
ILF66

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022

:NOP COMMAND
s ILLEGAL COMMAND
: SEEK COMMAND
sRECALIBRATE COMMAND
;DRIVE CLEAR COMMAND
sRELEASE COMMAND
sOFFSET COMMAND
sRETURN TO CENTERLINE COMMAND
sREAD IN PRESET COMMAND
sPACK ACKNOWLEDGE COMMAND

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

s ILLEGAL COMMAND
: ILLEGAL COMMAND
s SEARCH COMMAND

PAKACK

ILF74
ILF76

000070
000072
000074
000076

:RMDA

DISK ADDRESS REGISTER

RD
RH

TA4
TA2
TA1

SA16
SA8
SA4
SA2
SA1

BIT10
BIT09
BITO8
BIT04
BIT03
BIT02
BITO1
BITO00

; ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND
; ILLEGAL COMMAND
s ILLEGAL COMMAND
: ILLEGAL COMMAND
s ILLEGAL COMMAND
sWRITE CHECK DATA COMMAND
;WRITE CHECK HEADER AND DATA
s ILLEGAL COMMAND
s ILLEGAL COMMAND
sWRITE DATA COMMAND
;WRITE HEADER AND DATA COMMAND
s ILLEGAL COMMAND
: ILLEGAL COMMAND
sREAD DATA COMMAND
sREAD HEADER AND DATA COMMAND
;s ILLEGAL COMMAND
s ILLEGAL COMMAND

: TRACK ADDRESS 4

: TRACK ADDRESS 2

s TRACK ADDRESS 1
;SECTOR ADDRESS 16
;SECTOR ADDRESS 8
:SECTOR ADDRESS 4
:SECTOR hDDRES§ %
sSECTOR ADDRES

sTRACK,SECTOR MASKS

003400
000037

TADMSK

SADMSK

003400
000037

: TRACK ADDRESS MASK

sSECTOR ADDRESS MASK

b — b
D s
-

;FUNCTION CODES (BITS 01-05 OF RMCS1)

;FUNCTION CODE MASK

D e

;G0 BIT

— o

sFUNCTION CODE

RTN

FNCMSK

BITO1
BIT00
000077

CZRM
CZRM

3 2

FO
)

SEQ 0024

_—

000002
000001
000077

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

—_ R
e T
e

1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
107
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083

MACY11

- x>

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

DPR
DRY
vV
oM

=
=
=
=

BIT09

BITO8
BIT07
BIT06
BITO00

:RMER1

ERROR REGISTER #1

DK
UNS
Pl
OTE

=
=
=
=

BIT1S
BIT14
BIT13
BIT12

IAE
AGE
HCRC
HCE
ECH
W

=
=
=
=
=
=

BIT10
BIT09
BITO8
BIT07
BIT06
BITOS

FER
PAR
RMR

R
ILF

=
=
=

%
=

BITI

BIT04
BIT03
BIT02

BITO1
BIT00

;DATA CHECK ERROR
sDRIVE UNSAFE
sOPERATION INCOMPLETE
;DRIVE TIMING ERROR
;WRITE LOCK ERROR
s INVALID ADDRESS ERROR
sADDRESS OVERFLOW ERROR
sHEADER CRC ERROR
sHEADER COMPARE ERROR

sECC ""HARD'' ERROR

;WRITE CLOCK FAILURE

:FORMAT ERROR
sPARITY ERROR

sREGISTER MODIFICATION REFUSED
sILLEGAL REGISTER
s ILLEGAL FUNCTION

NDTMSK

=
DCK!DTE!WLE'!AOE!HCRC!HCE'ECH!WCF!FER
:"'NDTMSK'* IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA

s COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS
;RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

:RMLA

LOOK AHEAD REGISTER

002000
001000
000400
000200
000100

sc6
s¢3
sz
ieES0

=
=
=
e
=

BIT10
BIT09
BITO8
BIT07
BIT06

;SECTOR
sSECTOR
sSECTOR
sSECTOR
sSECTOR

003700

SCTMSK

003700

;SECTOR COUNT MASK

;RMMR

MAINTENANCE REGISTER
WRITE ONLY BITS

sMASK FOR ATTENTION BITS

COUNT
COUNT
COUNT
COUNT
COUNT

& 00 —

377

000377

BIT10

BIT12
BITI

PGM

=
=

LBT

moL
WRL

sATTENTION ACTIVE
;COMPOSITE ERROR
;POSITIONING IN PROGRESS
sMEDIUM ON LINE
;WRITE LOCK
sLAST BLOCK TRANSFERRED
: PROGRAMMABLE
;DRIVE PRESENT
;DRIVE READY
;VOLUME VALID
sOFFSET MODE ACTIVE

BIT1S
BiT14
BIT13

=
=
=

115760

ATA
ERR
PIP

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

DRIVE STATUS REGISTER

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

;RMDS

SEQ 0025

NNNNSNNNNNNNNNNNNNNNNNNNNNNNNYY

05-APR-78 14:38

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

Haunnumn

—
e
d o
e d o
d e d D
o
d o
d
D e o ad
o
d b d
o
e d d o o
D d D e e
d i
i e i i
i
D
N
T

OO
VVVIVIVIVIVVVIVIVIE DB BB WWWWWWWWWWNINNNDN
N NN NN = b b b b b
NOWVMA WSOV NO VR UWN SOV
NO VS UWN=O0OOVENOVS WN=OOVRE NS WNN=O0O0VONOWVSW ~N

CZRMKA.P1T

MACY11

CZRMKAO RMO3/2 DSKLS PRT 2

CZRMKAO RMO3/c DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
1168
1169

100000
040000

MACY11

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

BIT15
BIT14

SEQ@ 0026

CZRM
CZRM

17
17¢
174
17
17¢
17
17¢
17
174
17¢
1L
17!

;DEBUG CLOCK
;DEBUG CLOCK ENABLE

17¢
17¢
17¢
(¢
17¢
17¢
17!
17¢
17¢
17¢
17¢
17¢
17¢
17¢
174
17¢
17¢
17¢
17
17
171
171
17
170
17
17
17
17
17t
17t
17
17
17
171
171
17
17
17
17
17¢
17¢
17
17¢

)

—
g

VONOWVESWN
VIS WM =
oo~

b
-

b
i

—

)

020000
010000
004000

D o

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

1199

002000
001000
000400
000200
000100
000040
000010
000004
000002
000001
051401

PP
T —

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

MCLK
MRD

MUR

MOC

MSER
MDF

MWP

Ml
MSC
DMD

MR1AAA

=
=
=
=
=
=
=
=
=
=

BIT13
BIT12
BITN
BIT10
BIT09
BIT08
BITO7
BIT06
BITOS
BITO3

sDIAGNOSTIC END OF BLOCK
sDIAGNOSTIC TIMEOUT
sMAINTENANCE CLOCK
sREAD DATA
;UNIT READY
;ON CYLINDER
; SEEK _ERROR
;ORIVE FAULT
;SECTOR PULSE
sWRITE PROTECT

BITO1

sSECTOR COMPARE

=
=

BIT02

s INDEX PULSE

81700
sDIAGNOSTIC MODE
DMD !MUR'!DBEN'MOC!DTO

READ ONLY BITS

100000

LST
DMD

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

RMDT

DRIVE

100000
040000
020000
004000

NSA

BIT1S

sNOT SECTOR ADDRESSED=0

MOH
DRQ

=
=

BIT13
BITN

;MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

020024
024024

SNGPRT
DULPRT

=
=

s RMOF

OFFSET REGISTER

FMT16
ECI

BIT12

=
=

8IT10
BIT07

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

010000
004000
002000
000200
161577

001777
176000

0cC
RG
EBL

REX

ESRC

PLFS
ECRC

PDA
PHA

CONT

Wi
EECC
MWD
LS

TAP

HCI

OFD
XNUOF
JRMDC

CYLMSK
XNUDC

=
B

BIT15
BIT14
BIT13
BIT12
BIT1
BIT10
BITO9
BITO8
BIT07
BIT06
BITOS
BITO4
BITO3
BIT02
BITO1
BIT00

;0CCUPIED
:RUN AND GO
;END OF BLOCK
;EXCEPTION
sENABLE SEARCH
;LOOKING FOR SYNC
sENABLE CRC ouTt
;DATA AREA
sHEADER AREA
s CONTINUE
;WORD CLOCK
sENABLE ECC OuT
sWRITE DATA BIT
sLAST SECTOR
sLAST SECTOR AND TRACK
sDIAGNOSTIC MODE

TYPE REGISTER

BIT14

020024
024024

;TAPE DRIVE = 0

sSINGLE PORT DRIVE TYPE
;DUAL PORT DRIVE TYPE

:16 BIT WORD FORMAT

BITN

sECC INHIBIT

161577

sUNUSED BITS OF RMOF

sHEADER COMPARE INHIBIT
;OFFSET FORWARD

DESIRED g;%;lbfl ADDRESS REGISTER

176000

sMASK FOR CYLINDER ADDRESS

sUNUSED BITS OF RMDC

SEQ@ 0027

000012
000014
000016
000020
000024
000026
000030
000032

000034
000036
000040
000042
000044

BIT13

RMMR1

RMDT
RMSN
RMOF
RMD(
RMHR
RMMR2

RMER2
RMECT

;PORT B REQUEST

:TAG CONTROL

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

;BAD SECTOR ERROR
sSEEK INCOMPLETE
;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
;LOSS OF SYSTEM CLOCK
;LOSS OF BIT CLOCK
sDEVICE CHECK
sDATA PARITY ERROR

;UNUSED BITS OF RMERZ2

MNEMONICS

BIT1S

BIT14

sMANUFACTURING DETECTED SECTOR ERROR

;USER DETECTED SECTOR ERROR

RMO3 REGISTER INDEX VALUES

[ I

RMCS1
RMDA
RMDS
RMER1
RMAS
RMLA

D
o
P

BIT12
BITN
BIT10
BIT07
BITO3
001567

MSE
USE

.SBTTL

000000
000006

BIT14

(=]

.SBTTL

100000
040000

BIT15

BSE
SKl
OPE
IvC
LSC
L8C
pv(
DPE
XNUER?2

N
o

1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281

010000
004000
002000
000200
000010
001567

;PORT A REQUEST

ERROR REGJSTER 2

1269
1270

100000

040000
020000

BIT02
BITO1
BITO0

1263
1264
1265
1266
1267
1268

;RMER2

BITO04
BITO3

1261
1262

8809
8808
8807
BB06
8805
8804
8803
8802
8801
8800

1253
1254
1255
1256
1257
1258
1259
1260

TST
cC
CH

1251
1252

BIT15

BIT14
BIT13
BIT12
BITN
BIT10
BITO9
BITO8
BITO7
BIT06
BITOS

1250

1249

READ ONLY BITS

1246

1247
1248

RQA
RQB
TAG

1237
1238
1239
1240
1241
1242
1243
1244
1245

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

MAINTENANCE REGISTER #2

1233
1234
1235
1236

:RMMR2

1226
1227
1228
1229
1230
1231
1232

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

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

sCONTROL STATUS REGISTER
;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER
;ERROR REGISTER 1
SATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
sMAINTENANCE REGISTER

;ORIVE TYPE REGISTER
sSERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER

sMAINTENANCE REGISTER 2

;ERROR REGISTER 2
;ECC POSITION REGISTER

SEQ@ 0028

1335

1336
1337

—a
il
ol
il
il
el

sMASK FOR REGISTER INDEX NUMBER

czi

IDXMSK

sECC PATTERN REGISTER
s ILLEGAL REGISTER 50
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER

cZl

000077

CONTROL STATUS REGISTER ”n

BIT10
BITD9
BIT08
BIT07
BITO06

A17

A16
RDY
IE

sRMCS2

RH CONTROL STATUS REGISTER #2

sDATA LATE-READ ONLY

DLT

WCE
UPE

sWRITE

PGE
MXF
MDPE

sUNIT SE LECT MASK
7

;RMCS3

UNTMSK

000007

u2
u1
uo

;ERROR-READ ONLY
;OUTPUT READY-READ ONLY
s INPUT READY-READ ONLY
s CONTROLLER CLEAR
sPARITY TEST

—

000004
000002
000001

PAT
BAI

OR
IR
CLR

;MASSBUS DATA BUS PARITY

—

000200
000100
000040
000020
000010

CHECK ERROR-READ ONLY

sUNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY
sNONEXISTANT MEMORY-READ ONLY
;PROGRAN ERROR-READ ONLY
sMISSED TRANSFER

NED
NEM

"nmuuwnn

100000
040000
020000
010000
004000
002000
001000
000400

;UNIBUS ADDRESS INCREMENT
; INHIBIT
sUNIT SELECT
sUNIT SELECT
sUNIT SELECT

;UNIT SELECT MASK

RH70 CONTROL STATUS REGISTER #3

il
il

PSEL

002000
001000
000400
000200
000100

sMASSBUS CONTROL BUS PARITY
sERROR-READ ONLY
;PORT B SELECT
;ADDRESS EXTENSION
sADDRESS EXTENSION
sREADY-READ ONLY
s INTERRUPT ENABLE

: TRANSFER ERROR

BIT13

sSPECIAL CONDITION-READ ONLY

BIT15

SC
TRE
MCPE

100000
040000
020000

BIT14

JRMCST

RH CONTROLLER REGISTER BIT DEFINITIONS

.SBTTL

ILRG50
ILRGS2
ILRGS54
ILRG56
ILRG60
ILRG62
ILRG64
ILRG66
ILRG70
ILRG72
ILRG74
ILRG76

RMEC2

SEQ 0029

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

3
PAGE 29

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

"nmnn

1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
131
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334

MACY11

nuwunnnmnnwuennnn

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

1338

100000

MACY11

APE

BIT1S

BITO02

1339
1340
1341
1342
1343
1344
1345

040000
020000
010000
004000
002000
000100
000010

DPEHI
DPELO
WCEHI
WCELD
DBL
IE
IPCK3

=
=
=
=
s
=
=

1347
1348

000002
000001

IPCK1
IPCKO

=
=

1351

1346

000004

}ggg

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

IPCK2

:ADDRESS PARITY ERROR

SEQ 0030

CZ¢
CZF

BIT14
BIT13
BIT12
BITN
BIT10
BiT06
BITO3

:DATA PARITY ERROR HIGH WORD
;DATA PARITY ERROR LOW WORD
:WRITE CHECK ERROR HIGH WORD
:WRITE CHECK ERROR LOW WORD
:DOUBLE WORD TRANSFER
: INTERRUPT ENABLE
:INVERT PARITY CHECK

1
1
1
1
1
1
1

BITO1
BITOO

:INVERT PARITY CHECK
:INVERT PARITY CHECK

1
1

:INVERT PARITY CHECK

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

000000

RMCST1

;CONTROL, STATUS REGISTER

1353
1354
1355
1356

000004
000010
000022
000050

RMBA
RMCS2
RMDB
RMBAE

z
=
s
=

04
10
22
50

:BUS ADDRESS REGISTER
:CONTROLLER STATUS REGISTER
:DATA BUFFER
:BUS ADDRESS EXTENSION

1
1
1
1

1359
}gg?

176700
120254

ABASE
AVECT1

=
=

:UNIBUS ADDRESS
;UNIBUS VECTOR ADDRESS AND PRIORITY

1
}

.SBTTL

TRAP CATCHER

1352

000002

}ggg

RMW(C

000052

RMCS3

1362

1363
1364
1365

000000

1366
1367
1368

1369
1370
}g;}

000174
000176

000174
000000
000000

DISPREG:
SWREG:

}g;g

.SBTTL

1376

176700
120254

:WORD COUNT REGISTER

;CONTROL STATUS REGISTER #3

=174
.WORD

.WORD

0
0

1377
000046
000052

$SVP(C=.

000046
021642
000052
000000

.=46
SENDAD
.52
.WORD

;;SOFTWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER

000200

.=$SVPC

1
1

1
1
1
1
1

}
1

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

}

ACT11 HOOKS

;HOOKS REQUIRED BY ACTM

000200

:;tttttt"'t'tttttt"'tt't't't"t'tt't'tttttttttttttt't'ttttttttt

1378

:ggz

.=0
:*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ''.+2, HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

1373

1379
1380
1381
1382

}

::2)SET LOC.52 TO ZERO
:: RESTORE PC

¢
¢
¢
¢

}ggg

.SBTTL

STARTING ADDRESS

1387
1388
}ggg

:THE PROGRAM STARTS AT LOCATION 200
.
z
200
JMP
START
:JUMP TO START OF PROGRAM

¢
¢
¢

.=1100

000200

000200
000137

002632

1391

}ggg

001100

.SBTTL

APT PARAMETER BLOCK

¢
¢

}2}2

001112

.=.8X
R

R R R R R RN RN RN R R R RN AR

001102
001104
001106
001110

88???2

$SAPTHD:
$SHIBTS:

SMBADR:
$TSTM:
SPASTM:
SUNITM:

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

R RO

;;SAVE CURRENT LOCATION
;:SET POWER FAIL TO POINT TO START OF PROGRAM
s:FOR APT START uP
ssPOINT TO APT INDIRECT ADDRESS PNTR.
;;POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

R R R

R R R R R RN

PR RN R R AR

R AR

RN AR

sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11
s INTERFACE SPEC.
000000
001222
000001
000002
000002

R RO

0
SMAIL
1
2
2

R R AR

RRS

DIAGNOSTIC

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
; ;ADDRESS OF APT MAILBOX (BITS 0-15)
;sRUN TIM OF LONGEST TEST
ssRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
;sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

S AR LA LS LN LS S LN L S S o

001100
001100

N L SN S

1404
1405
1406
1407
1408

001100

R R

000044

.$X=.
.=24
200
=44
SAPTHDR

R R

NSNS TS TSN LS T NN

000024

001100
000024
000200
000044
001100

CZR
CZR

VNN NN NN NN

SEQ 0031

NN LN

1403

1409
1410
1411
1412

3
PAGE 31

1402

F
14:49

R
T T T T
sSET LOCATIONS 24 AND &4 AS REQUIRED FOR APT

1396

1397
1398
1399
1400
1401

30A(1052)
05-APR-78
APT PARAMETER BLOCK

NNV

1394
1395

MACY11

LELSTLSTNTNTNLNLNL NN N

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

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

1415

SEQ 0032

PAGE 32

COMMON TAGS

.WORD
STSTNM: .BYTE
$ERFLG: .BYTE
SICNT:
.WORD
SLPADR: .WORD
$LPERR: .WORD
SERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
SERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
SAUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560

177570
177570
177560
177562
177564
177566

1446
1447
1448
1449

1450
16451
1452
1453
1454
1455
1456
1457
1458

001220

000
002
012
000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000012

$TKB:
$TPS:
$TPB:

SNULL:
SFILLS:
SFILLC:
S$STPFLG:

$TMPO:
$TMP1:
$TMP2:

$STMP3:

000377

177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE

.WORD
_.WORD
.WORD

_WORD

$TMP4:
,WORD
STIMES: 0
SESCAPE:0

$BELL:

SQUES:
SCRLF:
SLF:

.ASCIZ

.ASCII
.ASCII
.ASCIZ

SRR AR

.SBTTL

;sSTART OF COMMON TAGS

;:CONTAINS THE TEST NUMBER
;sCONTAINS ERROR FLAG
:sCONTAINS SUBTEST ITERATION COUNT
s sCONTAINS SCOPE LOOP ADDRESS
;sCONTAINS SCOPE RETURN FOR ERRORS
;:CONTAINS TOTAL ERRORS DETECTED
;sCONTAINS ITEM CONTROL BYTE
;:CONTAINS MAX. ERRORS PER TEST
:;CONTAINS PC OF LAST ERROR INSTRUCTION
:sCONTAINS ADDRESS OF 'GOOD' DATA
:;CONTAINS ADDRESS OF 'BAD' DATA
:sCONTAINS 'GOOD"' DATA
;sCONTAINS 'BAD' DATA
; ;RESERVED=-=-NOT TO BE USED
:;AUTOMATIC MODE INDICATOR
;: INTERRUPT MODE INDICATOR
: ;ADDRESS OF SWITCH REGISTER
; :ADDRESS OF DISPLAY REGISTER
s:TTY KBD STATUS
;:TTY KBD BUFFER
;:TTY PRINTER STATUS REG.

ADDRESS

;:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
;:CONTAINS # OF FILLER CHARACTERS REQUIRED

;s INSERT FILL CHARS. AFTER A "LINE FEED"
;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
: ;USER DEFINED
:;USER DEFINED
: ;USER DEFINED
:sUSER DEFINED
: sUSER DEFINED
:sMAX. NUMBER OF ITERATIONS
;;ESCAPE ON ERROR ADDRESS
<207><377><377> ::CODE FOR BELL
/?/
:;QUESTION MARK
<15>
: CARRIAGE RETURN
<12>
::LINE FEED

AR R

R RN R RN R AR AR ERRRRAARRRRRRRRRRERRRRRRREY

APT MAILBOX-ETABLE

PR RRRRRRRRRRNRERRRRRRROARRRRRRNTRRRNRERRRRNRRRERARRRRRRRARNRRRRRRRERRRY

"NLIST ME

(NLVLNT T VL NTNT T VLNT VL VL VLT VL VL LT N NL VLN NTNLNENENLNENT VLY

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

.=TAGADR
[=l=leleleleleleleleBodolelelelele]e]]

SCMTAG:

OO0 OHO—=NO

001114

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

1469
1470

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THE PROGRAM.

1428
1429
1430

1466
1467
1468

14:49

crRRRRRARRRRRRRRRNRRRRRNOERNRRARRRRARRRRRRRRRNRRARARAARARRARNRRNRRARRARROERAAEY

1425
1426
1427

1465

30A(1052)
05-APR-78
COMMON TAGS
.SBTTL

1416
1617
1418
1419
1420
1621
1422
1423
1424

1459
1460
1461
1462
1463
1464

MACY11

1523
1524

:t
%
8
.

001252
001253

000
000

SMAMS1:
SMTYP1:
B

.BYTE
.BYTE

AMAMS1T
AMTYP1

’

001254

000000

$SMADR1:

000
000
000000

000000
000000

SMAMS2:
SMTYP2:

11/704=01,11/705=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT B8=MEMORY MANAGEMENT

;sHIGH ADDRESS.M.S. BYTE
;sMEM. TYPE,BLKMM

MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003

;sHIGH ADDRESS ,BLK#1

.BYTE
.BYTE

AMANS?2
ANTYP2
AMADR2

;sHIGH ADDRESS.M.S. BYTE
ssMEN.TYPE ,BLK#2
JsMEM.LAST ADDRESS.BLK#2
ssHIGH ADDRESS.M.S.BYTE
:sMEM.TYPE ,BLK#3
ssMEM.LAST ADDRESS.BLK#3
ssHIGH ADDRESS.M.S.BYTE

.WORD

SMADR4:
SVECT1:

.WORD
.WORD

SVECT2:
$BASE:
$DEVM:
$COW1:
$CDW2:
$ODW0:
$ODW1:
$DDW2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
$DDW7:
SETEND:
CMEXIT

:sUSER SWITCHES
::CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

AMADR1

$MADR2:

SMAMS3:
SMTYP3:
SMADR3:
SMAMS4:
SMTYP4:

SWITCH REGISTER

.WORD

. %

001256
001257
001260
001262
001263
001264
001266
001267
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316
001320
001322
001324
001326

:sAPT

.BYTE
.BYTE
.WORD
.BYTE
.BYTE

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

AMANS3
AMTYP3
AMADR3
AMANSS

ARNTYP4
AMADR&
AVECT1
AVECT2
ABASE
ADEVM
ACDW1

ACDW?2
ADDWO
ADDW1
ADDW?2

ADDW3
ADDW4
ADDWS5
ADDW6
ADDW7

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ''TYPE'' ABOVE

ssMEM.TYPE ,BLK#
ssMEM.LAST ADDRESS.BLK#4
;s INTERRUPT VECTOR#1,BUS PRIORITYM
s INTERRUPT VECTOR#2BUS PRIORITY#2
;sBASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
;CONTROLLER DESCRIPTION WORD#1
3 sCONTROLLER DESCRIPTION WORD#?2
;:DEVICE DESCRIPTOR WORD#0
3:DEVICE DESCRIPTOR WORD#1
ssDEVICE DESCRIPTOR WORD#2
ssDEVICE DESCRIPTOR WORD#3
ssDEVICE DESCRIPTOR WORD#4
;sDEVICE DESCRIPTOR WORD#S
;;DEVICE DESCRIPTOR WORD#6
;sDEVICE DESCRIPTOR WORD#7

YNV L VL L T NT T NYNT VLN ENTNENT VL VL NLNTSTNLNLVLVENENTNY

AENV
AENVA
ASWREG
AUSWR
ACPUOP

:sAPT MAILBOX
:sMESSAGE TYPE CODE
;sFATAL ERROR NUMBER
::TEST NUMBER
;sPASS COUNT
;;DEVICE COUNT
;3170 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH
s sAPT ENVIRONMENT TABLE
; ENVIRONMENT BYTE
:ENVIRONMENT MODE BITS

LN L N VL N VY N

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

CZRI
CIRI

LT T VT VT VT L

000
000
000000
000000
000000

.EVEN
SMAIL:
$MSGTY: .WORD
SFATAL: .WORD
STESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$SMSGAD: .WORD
SMSGLG: .WORD
SETABLE:
SENV:
.BYTE
SENVM:
_BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

SEQ 0033

PAGE 33

L VT T N

000000
000000
000000
000000
000000
000000
000000
000000

APT MAILBOX-ETABLE

L T

001222
001222
001224
001226
001230
001232
001234
001236
001240
001242
001242
001243
001244
001246
001250

05-APR-78

1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522

MACY11 30A(1052)

LT T T T N T T

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

H
14 :49

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
1527
1528
1529
1530
153
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576

1577
1578
1579
1580
1581
1582

MACY11

30A(1052)

O5-APR-78

APT MAILBOX-ETABLE

.SBTTL

14:49

3
PAGE 34

SEQ 0034

THE REGISTER INPUT BUFFER IS USED FOR STORING REGISTER
CONTENTS AS THEY ARE READ FROM THE DEVICE.

001326
001330
001332
001334
001336
001340
001342
001344
001346
001350
001352
001354
001356
001360
001362
001364
001366
001370
001372
001374
001376
001400

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

RMCS11:

RMWCI:
RMBAI:
RMDAI:

RMCS2I:

.WORD

;CONTROL ,STATUS REGISTER #1

.WORD

;CONTROL, STATUS REGISTER #2

.WORD
.WORD
.WORD

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER

RMDSI: .WORD
RMER1I: .WORD
RMASI: .WORD
RMLAI: .WORD
RMDBI: .WORD
RMMR1I: .WORD
RMDTI: .WORD
RMSNI: .WORD
RMOFI: .WORD
RMDCI: .WORD
RMHRI: .WORD
RMMR21: .WORD

RMER21:
RMEC1I:
RMEC2I:

.WORD
.WORD
.WORD

RMCS3I:

.WORD

RMBAEI:

.SBTTL

.WORD

;DRIVE STATUS REGISTER
;ERROR REGISTER 1
sATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER M1
;DRIVE TYPE REGISTER
sSERIAL NUMBER REGISTER
sOFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER:
sMAINTENANCE REGISTER #2

;ERROR REGISTER 2
;ECC POSITION REGISTER
;ECC PATTERN REGISTER

;BUS ADDRESS EXTENSION REGISTER

;CONTROL,

3
THE REGISTER OUTPUT BUFFER
:BE WRITTEN TO THE DEVICE.

001402
001404
001406
001410
001412
001414
001416
001420
001422
001424
001426

001430
001432
001434
001436
001440
001442
001444
001446

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
€00000

RMCS10:
RMWCO:
RMBAO:
RMDAO:

RMCS20:

STATUS REGISTER #3

IS USED FOR ASSEMBLING DATA TO

.WORD

;CONTROL ,STATUS REGISTER #1

.WORD

;CONTROL, STATUS REGISTER #2

.WORD
.WORD
.WORD

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER

RMDSO: .WORD
RMER10: .WORD
RMASO: .WORD
RMLAO: .WORD
RMDBO: .WORD

sDRIVE STATUS REGISTER
;ERROR REGISTER 1
;ATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
:DATA BUFFER

RMDTO:
RMSNO:
RMOFO:
RMDCO:
RMHRO:

;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
sDESIRED CYLINDER REGISTER
sHOLDING REGISTER

RMMR10:

RMMR20:
RMER20:
RMEC10:

.WORD

.WORD
.WORD
.WORD
.WORD
,WORD

.WORD
.WORD
.WORD

sMAINTENANCE REGISTER M

sMAINTENANCE REGISTER #2
;ERROR REGISTER 2
sECC POSITION REGISTER

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609

001450
001452
001454

000000
000000
000000

MACY11

30A(1052)

O5-APR-78

J
14:49

RMEC20:

.WORD

RMCS30:

.WORD

RMBAEO:

.SBTTL

3
PAGE 35

SEQ 0035

;ECC PATTERN REGISTER

.WORD

;BUS ADDRESS EXTENSION REGISTER

;CONTROL, STATUS REGISTER #3

TEST QUE
EACH WORD OF

THE TEST QUE

CONTAINS THE DEVICE NUMBER

TNE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE.
;WORD IS A BLANK AND REPRESENTS THE END OF THE QUE.

001456

000012

TSTQUE:

.BLKW

10.

001502
001504
001506
001510
001512
001514
001516
001520
001522
001524
001526
001530

172540
172542
000104
000106
177546
000100
000102
000000
000000
000000
000000
000000

SLPCSR:
SLPCSB:
SLPVEC:

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

172540
172542
104
106
177546
100
102

SLLCSR:
SLLVEC:
$PSW:

TIME:
WATCH:
CLOCK:

STOP:

.WORD

.WORD
.WORD
.WORD

.WORD

;PUT TAGS HERE

A ZERO

;TEST 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 FOR PRIORITY

:STORAGE FOR ELAPSED TIME
;STORAGE FOR REMAINING TIME
;ADDRESS OF START CLOCK SuB

;ADDRESS OF

STOP CLOCK SuB

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

MACY11

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

K
14:49

3
PAGE 36

SEQ 0036

ERROR POINTER TABLE

;*THIS TABLE

CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITFMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE1

;*NOTE2:

1624

001532

$ERRTB:

EACH

EM
DH
DT
DF

ITEM IN THE

;:POINTS
::POINTS
;:POINTS
;;POINTS

TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA PN
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
1675
1676
1677
1678
1679
1680
1681
1682

001532
001534
001536
001540

CANNOT CLEAR NED STATUS

EMT1
EHTT
EDTT
EFT

031710
037614
037724
037760
;ERROR

031716
037620
037726
037762

EMT2
ENWT2
‘EDT2
EFT2

;ERROR
001552
001554
001556
001560

CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED

031744
000000

001542
001544
001546
001550

000000
000000

031764
000000
000000
000000

CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT
MTé

;ERROR
001572
001574

001576
001600

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

EMTS
EHTS
EDTS
EFTS

032006
037624
037730
037764

;ERROR
001602
007004
CJ1606
001610

032032
037624
037730
037764

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

EMT6

EHTS
EDTS
EFTS

;ERROR
001612
001614
001616
001620

(32054
037630
037730
37764

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

M13

:ERROR

001562
001564
001566
001570

3
PAGE 37

oooOoOm

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

;ERROR

14:49

oocom

1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639

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

CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS
OF DEVICE REGISTERS

EMT7
EWT7
EDTS
EFTS

SEQ 0037

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

MACY11 30A(1052)

O05-APR-78

ERROR POINTER TABLE

n3
14:49 PAGE 38

1683

1684
1685
1686
1687
1688

1689
1690
1691
1692
1693
1694
1695
1696
1697
1698

032076

032132
000000
000000
000000

032150
000000
000000
000000

032166
000000
000000
000000

032204
000000
000000
000000

W
:wu

N~
W
NO

1735

1738

032222
000000
000000
000000

APPEARS S-A-0

APPEARS S-A-1

APPEARS S=A-0

APPEARS S-A-1

APPEARS S-A-0

EMT15

;ERROR
001702
001704
001706
001710

APPEARS S-A-1

EMT14

sERROR

001672
001674
001676
001700

EMT13

sERROR
001662
001664
001666
001670

EMT12

;ERROR
001652
001654
001656
001660

APPEARS S-A-0

EMT1

032114
000000
000000
000000

;ERROR
001642
001644
001646
001650

0
0

:ERROR
001632
001634
001636
001640

EMT10
0

000000
000000
000000

NN~

—
—h —d

1731

001622
001624
001626
001630

3
wn PNOMNMNINININI
NI NI
bl b b d d e e b
o0 ONOWVISWN=SOOVRNOWVSMWN=O

b
D
— —

N~ NSNSNSNNNNNNNNNNNNNNNNY

1699
1700
1701
1702
1703
1704
1705

;ERROR

EMT16

SEQ 0038

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748

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
1788
1789
1790
1791

1792
1793
1794

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

; ERROR
001712
001714
001716
001720

032256
037614
037724
037760

032300

032322
037614
037724
037760

032346
037614
037724
037760

032372
037614
037724
037760

032416
037614

03772«
037760

OPI

SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET.

DTE SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED

DTE

SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET

r{L)

DTE DID NOT SET WITH SECTOR PULSE,SECTOR COMPARE WAS SET

EMT24
EWT
EDT1
EFT
;ERROR

001772
001774
001776
002000

SET WITH SEACH TIMOUT DISABLED

EMT23
EHTI
EDT
EFT1

sERROR
001762
001764
001766
001770

OPI

EMT22
EHTI
EDT1
EFT1

;ERROR
001752
001754
001756
001760

EMT21
EHTI
EDT
EFT

037614
037724
037760

;ERROR
001742
001744
001746
001750

EMT20
EWT
EDT
EFT1

;ERROR
001732
001734
001736
001740

3
PAGE 39

0
0
0

;ERROR
001722
001724
001726
001730

N
14:49

EMT17

032240

000000
000000
000000

1749

1750
1751
1752
1753
1754

MACY11

25
EMT2S
ENWTI
EDT1
EFT1

DTE SET WITH SECTOR PULSE DURING FORMAT CHANGE

SEQ 0039

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

MACY11

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

4
PAGE 40

B
14:49

1795

1796

1797
1798

1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
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

;ERROR
002002
002004
002006
002010

032436
000000
000000
000000

032510
037614
037724
037760

032530
037614
037724
037760

CANNOT CLEAR RMER1,DTE

EMT31
EWTI
EDT
EFT1

032544
037614
037724
037760

PROM STROBE

RESET EARLY

PROM STROBE

SET EARLY

EMT32
EHTI

EDTT
EFT1

032556
037614
037724
037760

032570
037614
037724
037760

CANNOT SET PROM STROBE WITH BIT CLOCK

EHT
EDTT
EFT1

EMT33
EHTI
EDTT
EFT1

;ERROR
002062
002064
002066
002070

EMT30

sERROR
002052
002054
002056
002060

COULD NOT SET DTE AFTER FORMAT CHANGE

EDTT
cFM

;ERROR
002042
002044
002046
002050

EMT27
EHTT

032470
037614
037724
037760

:ERROR
002032
002034
002036
002040

IS STUCK ACTIVE

0
0
0

;ERROR
002022
002024
002026
002030

MBA CLR L

EMT26

;ERROR
002012
002014
002016
002020

EMT34
ENWTI
EDT1
EFTT

LOOKING FOR SYNC SET EARLY

SEQ 0040

2
2

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
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

sERROR
002072
002074
002076
002100

032602
037614
037724
037760

032614
037614
037724
037760

032664
037614
037724
037760

002150

032706
037614
037724
037760

032734
037614
037724
037760

032752
000000
000000
000000

LOOKING FOR SYNC

SYNC DETECTED WITH WRONG PATTERN

SYNC NOT DETECTED

DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC

EMT4
EHTI
EDT1
EFT1
42

WRITE GATE DID NOT

COME ON OR RESET EARLY

EMT42
EHTT
EDT
EET

;ERROR
002152
002154
002156
002160

SET WHILE

EMT4O
EHWT
EDT1
EFT1

;ERROR

002142
002144
002146

PROM STROBE

EMT37
EHT11S
EDT115
EFT115

032634
037670
037750
037776

:ERROR
002132
002134
002136
002140

LOOKING FOR SYNC DID NOT SET

EMT36
EHTI
EDT
EFT1

:ERROR
002122
002124
002126
002130

SEQ 0041

EFT1

;ERROR
002112
002114
002116
002120

&
PAGE 41

EMT35
EHT
EDTT

;ERROR
002102
002104
002106
002110

C
14:49

EMT4L3

INCORRECT SYNC PATTERN DURING HEADER

(2
2

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

}328

002162
002164
002166
002170

1919
1920
1921
1922
1923
1924

002172
002174
002176
002200

1927
1928
1929
1930
1931
1932

002202
002204
002206
002210

1935
1936
1937
1938
1939
1940

002212
002214
002216
002220

1943
1944
1945
1946
1947
1948

002222
002224
002226
002230

1951
1952
1953

002232
002234
002236

032752
037630
037730
037764

033004
037614
037724
037760

033020
037614
037724
037760

033034
037634
037732
037760

033052
037614
037724
037760

033154
037614
037724

1959
1960
1961
1962

033104
037640
037734
037766

CRC ENABLE DID NOT

SET

INCORRECT HEADER GENERATED DURING WRITE

READ GATE INCORRECT DURING HEADER AREA

UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE

EFT1

;ERROR
002242
002244
002246
002250

HEADER AREA DID NOT COME ON OR RESET EARLY

EMTSS
EHTI
EDTT

037760

}gg;

EMTS50
EHT
EDT1
EFTT

;ERROR

002240

INCORRECT SYNC PATTERN DURING HEADER

EMT47
EHT47
EDT47
EFTT

;ERROR

:3%3

SEQ 0042

EMT46
EHT
EDTT
EFTT

;ERROR

132}

4
PAGE 42

EMT4S
EHT
EDT1
EFTT
;ERROR

13%2

L
14:49

EMT43
EHT7
EDTS
EFTS
;ERROR

}g%g

1954

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

;ERROR

1911
1912
1913
1914
1915
1916
}3};

1955
1956

MACY11

52
EMTS2
EHTS2
EDTS2
EFTS7

INCORRECT HEADER READ IN DIAGNOSTIC MODE

2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
201
2012
2013
2014
2015
2016

2017
2018

E
14:49

&
PAGE 43

SEQ 0043

2!
czl

037510
037614
037724
037760

INCORRECT TAG BUS DURING DATA COMMAND

EMT276

EHT
EDT1
EFTT

033154
037614
037724
037760

033172
037614
037724
037760

033206
037644
037736
037766

DEVICE

IS NOT AN RMO3

EMTS7
EHTS7
EDTS7
EFTS57

033222
037614
037724
037760

033236
037650
037740
037766

ECC ENABLE DID NOT SET

EHTT
EDTI
EFT

DEVICE AVAILABLE

IS NOT SET

EMT60
EHTI
EDT1
EFT1
;ERROR

002332
002334
002336
002340

56
EMTS56

sERROR
002322
002324
002326
002330

DATA AREA DID NOT COME ON OR RESET EARLY

EMTSS
EHTI
EDT
EFT1

;ERROR
002312
002314
002316
002320

EHTI
EDT
EFTT

:ERROR
002302
002304
002306
002310

INCORRECT DURING DATA COMMAND

EMTS54

033136
037614
037724
037760
;ERROR

002272
002274
002276
002300

DATA TIMING SEQUENCER CONTROLS

EMT6T
ENTH1
EDT61
EFTS57

002262
002264
002266
002270

:ERROR

002252
002254
002256
002260

;ERROR

1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000

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

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

INCORRECT ECC PATTERN GENERATED DURING WRITE

;ERROR
002342
002344
002346
002350

033254
037614
037724
037760

033272
037614
037724
037760

033304
037614
037724
037760

033320
037614
037724
037760

033332

000000
000000
000000

EMT6S
ENTI
EDTT
EFTY
66

EMT66

;ERROR 67
002412
002414
002416
002420

033346
000000
000000
000000

EMT67

;ERROR 70
002422
002424
002426
002430

033364
000000
000000
000000

DATA AREA DID NOT RESET

UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE

EMT64
EHTI
EDTI
EFT1

:ERROR
002402
002404
002406
1002410

CANNOT CLEAR PROM STROBE WITH BIT CLOCK

EMT63
EHTI
EDT
EFT1

;ERROR
002372
002374
002376
002400

PAGE 44

EHTT
EDTT
EFTT

;ERROR
002362
002364
002366
002370

EMT62

;ERROR
002352
002354
002356
002360

14:49

EMT70

;ERROR 4!

INCORRECT DATA TRANSFERRED TO MEMORY

SEQ 0044

CZf

Eal

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

A LALALALALALALALALALIALALALIALTALTALTALALALIALALIALALIALIALIALALATALTA
LA IAIALTAIALIAIALTRAIALAIALIAIRIALIAIALIAIAIAIALAIATAIAIA LA

2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045

MACY11

[l
~

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

PAGE 45

N1 V), N

EMT7

033404

000000
000000
000000

0
0
0

033430
000000
000000

NT NI, S

:ERROR 72
EMT72

NI ST NI S

002442
002444
002446
002450

000000

N
ST N

033454

;ERROR 73
EMT73

000000
000000
000000

002452
002454
002456
002460

033474
000000
000000

;ERROR 74

VLN

EMT74

000000

NT NN

002462
002464
002466
002470

;ERROR 75

VL N

EMT7S

033504
000000
000000
000000

ST N

002472
002474
002476
002500

S
VY N

033516
000000
000000

ST N

EMT76

000000

033532
000000
000000
003000

EMT77

002524
002526
002530

035340
037710
037750
037776

EMT170
EWT150
EDT115
EFT11S

CANT SET VOLUME VALID

002522

100

;ERROR

ST N

002512
002514
002516
002520

;ERROR 77

O 00NN
W) —

p—
S
S

D
D e
d
—

LY.L
NN N NTNY VY W)

;ERROR 76
002502
002504
002506
002510

SEQ 0045

2100
2101
2102
2103

14:49

2098
2099

002432
002434
002436
002440

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

2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097

MACY11

NI N

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

2131
2132
2133
2134
2135
2136
2137
2138
2139

2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
217N
2172
2173

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

MACY11

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

;ERROR
002532
002534
002536
002540

037470
037614
037724
037760

035366
037614
037724
037760

002556
002560

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

DIDNT

CLEAR RMDA,

105

READ

IN PRESET DIDNT

CLEAR RMOF

106

READ

IN PRESET DIDNT

CLEAR RMDA

READ

IN PRESET DIDNT

CLEAR RMDC

EMT176

EHTI
EDTI
EFT1

;ERROR
002612
002614
002616
002620

102

EMT175
EHTI
EDT1
EFT1

;ERROR

002602
002604
002606
002610

SET

EMT174
0
0
0

035426
000000
000000
000000

;ERROR
002572
002574
002576
002600

RUN AND GO WONT

SEQ 0046

EMT173
EHT150
EDT115
EFT115

035404
037710
037750
037776

sERROR
002562
002564
002566
002570

PAGE 46

EMT172
EHTI
EDTT
EFT1

sERROR
002552
002554

EMT275
EWTT
EDT
EFT1
;ERROR

002542
002544
002546
002550

101

14:49

107

EMT177
EHTI
EDTT
EFT1

RMDC

OR RMOF

CIR
CZR
PLRLALNLNLALNLALNLNLNLNLAL AL AN PLNLALNLNPLALN PN PPN NN

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

2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198

MACY11

30A(1052)

ERROR POINTER

;ERROR
002622
002624
002626
002630

035526
037614
037724
037760

05-APR-78

110

TABLE

I
14:49

&
PAGE 47

SEQ 0047

CANT SET OFFSET MODE BY OFFSET COMMAND

EMT200
EHTI
EDTT
EFT1

;PUT ERROR TABLE HERE

I Y N N N N Y Y Y R N Y Y Y N N VLN N NY Y ST YN NN N NY ST NN NN ENLNTNTNLSUSUNU NN NN NY ST N

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

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
2248
2249
2250
2251
2252
2253
2254

MACY11

30A(1052)
05-APR-78
PROGRAM
START OF
.SBTTL

002632

002632
002634

START OF PROGRAM

N
RESET

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

026042
000340
026424
000340
030164
000340
030272
000340
021506
001206
001210
000001
002762
002770

002776
003002
003010
003016
003024
003032

013746
012737
012737
012737
022777
001012

000004
003036
177570
177570
177777

003034
003036

000403
012716
000002
012737
012737
012637

003064
003070
003076
003100
003106
003106
003112
003116
003120

SEQ 0048

PAGE 48

: CLEAR AngPSETUP FOR TEST EXECUTION

000240
000005

002636
002642
002644
002650
002652

003044
003052
003060

START:

.SBTTL

003042

14:49

THE

SYSTEM

INITIALIZE THE COMMON TAGS

;:CLEAR THE COMMON TAGS (SCMTAG) AREA

001154
0011C0
000020
000022
000030
000032
000034
000036
000024
000026
021500

001131
001122
001124

MOV
CLR
CMP
BNE
MOV

#SCMTAG.R6
(R6)+
#SWR,R6 ;;DONE?
-6
#STACK,SP

MOV
MoV

#$SCOPE ,@#IOTVEC ;;I10T VECTOR FOR SCOPE ROUTINE
#340,8#10TVEC+2 ;;LEVEL 7

MOV

#340,9#ENTVEC+2 ;;LEVEL 7

JsINITIALIZE A FEW VECTORS
MOV
MOV

MOV

[ [1]'}
MOV

CLR

CLR
MOVB
MOV

MoV

JsFIRST LOCATION TO BE CLEARED
:sCLEAR MEMORY LOCATION

;:LO0P BACK IF NO
ssSETUP THE STACK POINTER

#SERROR,SF#ENTVEC

;;EMT VECTOR FOR ERROR ROUTINE

#STRAP,3#TRAPVEC

::;TRAP VECTOR FOR TRAP CALLS

#SPURDN,3#PWRVEC

;;POWER FAILURE VECTOR

#340,3#TRAPVEC+2;LEVEL 7

#340,3#PURVEC+2 ;:LEVEL 7
SENDCT,SEOPCT

3:SETUP END=OF -PROGRAM COUNTER

SESCAPE
#1,SERMAX
#.,SLPADR

ssCLEAR THE ESCAPE ON ERROR ADDRESS
;sALLOW ONE ERROR PER TEST
ssINITIALIZE THE LOOP ADDRESS FOR SCOPE

S$TIMES

#.,.SLPERR

JsINITIALIZE NUMBER OF ITERATIONS

::SETUP THE ERROR LOOP ADDRESS

3sSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

;sEQUAL TO A "'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
000004
001154
001156
176122

003044

000176
000174
000004

;INITIALIZE

001154
001156

005037
132737
001403
012737

001230
000200

001243

001244

001154

012746
012746
000002

000140
003120

MOV
MoV
MoV

@#ERRVEC,-(SP)
#648 ,9#ERRVEC
#DSWR, SWR

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

CMP
BNE

#-1,3SWR
66%

ssTRY TO REFERENCE HARDWARE SWR
::BRANCH IF NO TIMEOUT TRAP OCCURRED

[ [1]"

#DDISP,DISPLAY

::SETUP FOR A HARDWARE

SWICH REGISTER

;:AND A HARDWARE DISPLAY REGISTER

648:

BR
:?Y

65%
#658, (SP)

::AND
THE HARDWARE SWR IS NOT = -1
; ;BRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN

658%:

MoV

#SWREG, SWR

;:POINT TO SOFTWARE SWR

$PASS

;:CLEAR PASS COUNT

66$:

MOV
MoV

BITB
BEQ
MOV

#APTSIZE,SENVM
67%
#S$SWREG,SWR

MoV

#PR3,~(SP)

CLR

MOV
RTI

#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;:RESTORE ERROR VECTOR

#68%,-(SP)

;TEST USER SIZE UNDER APT
::YES ,USE NON-APT SWITCH

::NO,USE APT SWITCH REGISTER

::PUT NEW PS ON STACK
::PUT NEW PC ON

STACK

::POP NEW PC AND PS

CZRI
CZRI

I L N R N Y Y Y N N T N Y N Y N L N N VT NY NY NT N N NN R N ST NY ST NN N ST NY ST SN VTN NN NYSUNTNUNTNL SN STNT NN

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

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

2255
2256
2257
2258
2259
2260
2261

2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
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

MACY11

30A(1052)

TYPE PROGRAM NAME

.SBTTL

003120
003124
003126
003134
003136

005227
001061
022737
001455
104401

003204

003142
003146

005737
001012

000042

003150
003156

003160
003166
003170
003172
003174
003202
003202

123727
001406
023727
001085
104407
000403
112737

::TYPE

177777

021642

000042
.SBTTL

BNE
CMP
BEQ
TYPE

69%
#SENDAD ,a#42
69%
,70%

;;BRANCH IF NO
J:ACT=112
;sBRANCH IF YES
ssTYPE ASCIZ STRING

BEQ

71%

s sBRANCH IF YES

BNE

72%

000176

CMP

GTSWR

000001

001150

;;::

36;03:

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

001300

10%:

001243

72%

;:SOFTWARE SWITCH REG SELECTED?

s sBRANCH IF NO

ssGET SOFT-SWR SETTINGS

#1,8AUT0B

;sSET AUTO-MODE

INDICATOR

BR
.ASCIZ

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

PART Il @<CRLF>

TST

TSTB
BEQ

SENV
STANDALONE

000010

108

;1S LOC 42 ZERO ??

sNO = NOT IN STANDALONE

;1S APT ENVIRONMENT ZERO ??
:YES - PROGRAM IN STANDALONE

;PROGRAM NOT RUNNING IN STANDALONE - SEE IF SIZING IS ALLOWED

XSlZ:

158:

BITB

BNE

168

031553

208
#377 ,SDEVM

MoV

#CLR,RMCS2(RO)

CLR
CLR
Mov
Mov
Mov
MOV

;LOAD THE DRIVE ADDRESS
sNED BIT SET ?

16%
RMCS1(RO) ,R3

:TO NEXT DRIVE
sCHECK THE DVA BIT

#DVA,R3

17%

.BYTE
INC
ASL

;YES = SET DEVICE MAP FOR ALL DEVICES

R1,RMCS2(RO)
RMCS2(RO) ,R3

BIT

TYPE

;CLEAR THE BIT MAP
:START FROM THE DRIVE 0
;BIT MAP DOR DRIVE 0
:BASE ADDRESS

#NED,R3

BEQ
BIS

:SéllNG ALLOWED ??

SDEVM
R1
#BITO,R4
$BASE RO

BIT

MOV
TYPOS
.BYTE

17%:

#BIT7,8ENVM

MoV

BNE
MoV

000000
004000
00130¢

MOVB

BNE

001242

000001
001276
000040
000010
000010
010000

SWR,#SWREG

;FIND OUT IF PROGRAM IS RUNNING IN STANDALONE MODE

000042

104403
006

000
005201
006304

TYPE PROGRAM NAME

THE NAME OF THE PROGRAM IF FIRST PASS
INC
-1
;:FIRST TIME?

001154

005737
001003
105737
001451

104401

SEQ 0049

000001

003270
003274
003276
003302
003304

010146

PAGE 49

001242

003270

032703
001010
016003
032703
001403
050437
000405

14:49

GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
ars2
;sARE WE RUNNING UNDER XXDP/ACT?
BNE
71%
;sBRANCH IF YES
CMPB
SENV, M
;:ARE WE RUNNING UNDER APT?

000432

010160
016003

05-APR-78

16%
R4, SDEVM

;LOAD THE DRIVE ADDRESS

sBRANCH IF SO

;DRIVE AVAILABLE ?

sBRANCH IF DRIVE NOT AVAILABLE
sSET THE BIT MAP FOR ALL AVAILABLE DRIVE

;DONT TYPE THE NONE EXIST MESG

.NOTEX

;TYPE

6
0
R1
R4

: INCREMENT THE DRIVE ADDRESS
sSET UP THE BIT MAP FOR NEXT DRIVE

R1,=(SP)

NOT EXIT MESSAGE

;DRIVE NUMBER

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

2311
2312
2313
2314
2315
2316

003414
003420
003422

022701
103344

000007

003422

000137

004254

MACY11

L &
14:49 PAGE 50
GET VALUE FOR SOFTWARE SWITCH REGISTER

30A(1052)

20%:

05-APR-78

CmMP
BHIS

#7,R1
15%

;GO TO COMMON START CODE
JMP

CMNSTART

sALL DRIVE ARE CHECKED ?
;BRANCH IF NOT

SEQ 0050

CZRMKAO RMO3/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

2362
2363
2364
2365

- 2366

2367
2368
2369
2370
2371
2372

MACY11 30A(1052)

05-APR-78

14:49

SEQ@ 0051

PAGE 51

GET VALUE FOR SOFTWARE SWITCH REGISTER

003426

:
STANDALONE

003426

004737

026634

003432
003436

005327

000001

;SEE IF THIS IS THE FIRST START AFTER PROGRAM WAS LOADED
DEC
4
;FIRST START ??
BPL
108
sVES !

003440
003444
003446
003452
003456
003464
003466
003472
003500
003502
003506
003510

104401
104411

031062

5%:

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

100024

012637

104401
123727
001002

000137
123727
001420
104401

000754

104407
104411

012637
104401
123727
001002
104401

104401
104411

012637
104401
104411

005726
123727
001137

104401
013746
104402
104401
104413

012637
001412
022737
101403
104401

000756
013737

JSR

;SEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

001176
001176
001176

000131

004414
001176

000116

6$:

030725

(SP)+,$THP1
.STHP1
STHP1 #'Y
6%
READY
STHP1,#'N
208

sMAINTAIN PREVIOUS PARAMETERS??
;GET RESPONSE

;ECHO RESPONSE

;YES RESPONSE??
;NO!!

*sKEEP PREVIOUS PARAMETERS

,QSTMRK

sNO RESPONSE??
sGET NEW PARAMETERS
:NOT YES OR NO,

;RETRY

TYPE

'"?"

TYPE
ROCHR

+HELPQST

CMPB

STHP1. #'Y

sWAS IT A YES RESPONSE ??

TYPE

+HELP

sYES = TYPE HELP TEXT

BNE

208:

(SP)+,$THP1
.STHP1

208

;WANT KELP ??
:GET RESPONSE

sSAVE AND ECHO RESPONSE

sNO - DONT TYPE HELP

sSEE IF USER WANTS TO CHANGE RMO3 UNIBUS ADDRESS

030763

TYPE
RDCHR

001176
001176

MoV

TYPE
RDCHR
TST

000131

308:

CMPB
BNE

.UBUSQST

(SP)+,$THP1
.STHP1

(SP)+

STMP1 #'Y
908

;WANT TO CHANGE ADDRESS
;GET RESPONSE

:SAVE AND ECHO RESPONSE
sREAD § CR
;CLEAR THE STACK

;WAS IT A YES RESPONSE ??
:NO !!

;DIALOGUE TO CHANGE THE UNIBUS ADDRESS, AND INTERRUPT VECTOR

031121
001276

TYPE
MOV
TYPOC
TYPE
RDOCT
MoV

030716

001176
00117e

031146
001176

MOV
TYPE
CMPB
BNE
JMP
CMPB
BEQ

MoV
TYPE

000131

054062

160000

.CNSLOO

;SEE IF OPERATOR WANTS HELP FILE

030727

001176

TYPE
RDCHR

TYPE

108:

001176
001176
001176

PC,STKINT

001276

408$:

BEQ
CMP
BLOS
TYPE
BR

MOV

.CNSLO1
$BASE,-(SP)
.CLSPRN

(SP)+,STHP1

508
#160000,8TMP1
40%
,CNSLO2

308

$TMP1,$BASE

s TYPE CURRENT BUS ADDRESS
: :SAVE SBASE FOR TYPECUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
;GET NEW BUS ADDRESS
sCARRIAGE RETURN??

sYES=SKIP TO NEXT ENTRY
;BASE ADDRESS IN I1/0 PAGE??
s YES
s TYPE WARNING MESSAGE
;RETRY

:STORE NEW BUS ADDRESS

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

2373
2374
2375
2376
2377
2378
2379
2380
2381
2382

003646 113737
003654 105037
003660 104401
003664 013746
003670 104403
003672
003
003673°
000
104401
003674
003700 104413
003702 012637
003706 001412
003710 022737
003716 101003
003720 104401
003724 000750
003726 113737
113737
003734
003742 006237
003746 006237
003752 006237
003756 006237
003762 006237
003766 105037
104401
003772
003776 013746
004002
104403
004004
001
004005
000
104401
004006
104413
004012
004014 012637
004020 001424
004022 0237c7
004030 002403
004032
104401
004036 000736
004040
004040 006337
004044 006337
004050 006337
004054 006337
004060 006337
004064
113737
004072
004072
004076
004102
004106
004110
004114
004120
004126
004130
004134

005037
104401
104401
104411

012637
104401

023727
001021
000137
012737

001272
001177
031227
001176

MACY11

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

001176

50%:

TYPOS

001176

031257
60$:
708:

MOV

(SP)+,$THP1

70%
#1000,$THP1
60%

BR
MOVB

50%
$TMP1,SVECT1

MOVB
ASR
ASR
ASR
ASR
ASR
CLRB
TYPE
MOV

.BYTE

TYPE
RDOCT

001176
001176

MOV

000007

031367
001176
001176
001176
001176
001176

0031176

001273

90%:

,CNSLO4

SVECT1+1,8TMP1
$TMP1
$TMP1
$TMP1
$TMP1
$TMP1
$THP1+1
,CNSLOS
$TMP1,-(SP)

.CLSPRN

(SP)+,$THP1

BEQ
CMP
BLT

90%
STMP1,#7
80%

708

ASL
ASL
ASL
ASL
ASL
MOVB

$TMP1
$TMP1
$TMP1
$TMP1
$TMP1
STMP1,SVECT1+1

TYPE

80§$:

,CLSPRN

BEQ
CHP
BHI

TYPOS

030716

,CNSLO3
$TMP1,~(SP)

3
0

TYPE

001272
001176

SVECT1,8TMP1
$STMP1+1

.BYTE
.BYTE

TYPE
RDOCT

001176

001176
001273
001176
001176
001176
001176
001176
001177
031333
001176

MOVB
CLRB
TYPE
MOV

030716
001000

,CNSLO6

SEQ 0052

s TYPE CURRENT VECTOR ADDRESS

::SAVE STMP1 FOR TYPEOUT
::60 TYPE--OCTAL ASCII
;:TYPE 3 DIGIT(S)
; :SUPPRESS LEADING ZEROS
;GET NEW VECTOR ADDRESS
sCARRIAGE RETURN?
sYES-SKIP TO NEXT ENTRY
:VEgI?R ADDRESS < 1000??
sYES!!

: TYPE WARNING MESSAGE
sRETRY

;STORE NEW VECTOR ADDRESS
sTYPE CURRENT PRIORITY

::SAVE STMP1 FOR TYPEOUT
::60 TYPE--OCTAL ASCII
::TYPE 1 DIGIT(S)
: ;SUPPRESS LEADING ZEROS
sGET NEW PRIORITY
sCARRIAGE RETURN??
sYES=SKIP TO NEXT ENTRY
sLEGAL PRIORITY??
JYES!!

;TYPE WARNING MESSAGE

JRETRY
;STORE NEW PRIORITY

sDIALOGUE TO INPUT DEVICE NUMBERS
CLR
$SDEVM
sCLEAR DEVICE MAP

00130C
031414
030721
001176
001176
001176

000101

003304
000377

001300

TYPE
TYPE
RDCHR
MOV
TYPE

CHP
BNE
JMP
MoV

,CNSLO7
,PROMPT

(SP)+,$THP1
LSTHP

STHP1.,#'A
1108

XS12
#377,8DEVM

sTYPE

INPUT

INSTRUCTIONS

;TYPE PROMPTING CHARACTER
;GET RESPONSE
;ECHO RESPONSE

:;gsr ALL DRIVES??

170 SIZE ALL POWER UP DRIVES

;TEST ALL DEVICES

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

004142
004144
004150
004152
004156
004162
004170
0046172
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

MACYTT

030721

30A(1052)

000015

001176

000060

001176

000067

BR
TYPE

1408
,PROMPT

L [0]'}

(SP)+,$THP1

CMP
BEQ
CHP
BLT
CMP
BLE
TYPE
BR
MOV
BIC
MOVB
BIC
BIS
CMPB
BHI

STMP1,#CR
1408
STMP1,2°'0
1208
STMP1.,#'7
1308
,ASTMRK
1008
$TMP1,R1
# C7.RM1
ATNTBL(R1)
,R2
# C377.R2
R2,$DEVM
#377,$DEVM
1008

RDCHR
TYPE

1108:

030725

120%:

001176

130%:

177770
031700
177400
001300
000377

SEQ 0053

14:49 PAGE 53
GET VALUE FOR SOFTWARE SWITCH REGISTER
1008:

001176
001176
001176

O0S<=APR-78

001300
:
1408

LSTAP1

;SKIP TO NEXT ENTRY

;TYPE PROMPTING CHARACTER

:GET RESPONSE
;ECHO RESPONSE

sCARRIAGE RETURN??

sNUMBER < 0??

sVES!!

sNUMBER > 7??
;NO!!

JRETRY

;R1=DRIVE NUMBER

;DONE ??

:NO

;DECODE DEVICE NUMBER
;CLEAR UNUSED BITS
;SET DEVICE # IN MAP

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

2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463

004254
004254
004260
004264
004270
004274
004276

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
249
2492

MACY11

5
C
30A(1052)
O05-APR-78
14:49 PAGE 54
GET VALUE FOR SOFTWARE SWITCH REGISTER
CMNSTART:

013700
012701
010137
012702
005003
030200
001406
010311
116361
062701
006302
105702
001402
005203
000763
005011

004737
000403

;ASSEMBLE TEST QUE FROM DEVICE MA

001300

MOV
Mov
MoV

001460
001456
000001
108:

031700
000002

000001

208:

25%:

000775

005737
001012
123727
001406
023727
001005

40$:
.SBTTL

000042
001242

000001

001154

000176

112737

000001

001150

012737
000240
004737

000140

000032

000403

117737

026634

175030

:R3 = DEVICE NUMBER

BEQ
MOV

208
R3,(R1)

:NO !!
;YES = ENTER DEVICE NUMBER IN QUE

BIT

001234

22::

READY:

R2,RO

:R2 = DEVICE POINTER

ATNTBL(R3) ,1(R1);ENTER ATTENTION BIT IN QUE
#2.R1
sADVANCE ENTRY POINTER

TSTB

ASL

BEQ
INC
BR
CLR

sADVANCE DEVICE POINTER

25%
R3
108
(R1)

s YES
sADVANCE DEVICE NUMBER
sENTER NEXT DEVICE
; TERMINATE TEST QUE

PC,SIZCLK

BR
ERROR

40%

308

HALT

:1S THIS DEVICE IN MAP ?2?

Move
ADD

sDONE ALL DEVICES ??

sSEE

IF CLOCK PRESENT

JYES = CLOCK IS PRESENT
sNO CLOCK

GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
Y 1Y
ssARE WE RUNNING UNDER XXDP/ACT?
BNE
648
::BRANCH IF YES
CMPB
SENV. M
;sARE WE RUNNING UNDER APT?
BEQ
648
::BRANCH IF YES
CMP
SWR, #SWREG
:sSOFTWARE SWITCH REG SELECTED?

ENE
GTSWR

104407

;RO = DEVICE MAP
;R1 = ADDRESS OF FIRST ENTRY IN QUE
;INITIALIZE ENTRY POINTER

1 .,R2
R3

JSR

308:

SDEVM,RO
#TSTQUE+2,R1
R1,TSTQUE

MoV
CLR

;SIZE FOR CLOCK

022464

104000
000000

004416
004422

SEQ 0054

65%

s sBRANCH IF NO
::GET SOFT-SWR SETTINGS

B8R

65%

MOV

#PR3,S#EMNTVEC+2 ;DROP PRIORITY DURING ERROR TYPEOUT

JSR
MOVB

PC,STKINT
@TSTQUE,SUNIT

MOVB

NOP

#1,3AUT0B

:sSET AUTO-MODE

JREADY

TO START

INDICATOR

TEST

JINITIALIZE TTY
;LOAD UNIT NUMBER

2z
2

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
2493
2494
2495

MACY11

30A(1052)

05-APR-78

D
14:49

.SBTTL

5
PAGE 55

;REGISTER ASSIGNMENTS

SEQ 0055

CZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA.P1
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

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

:RO
:R1

:R2,R3
:
:R4,R5

:
:R6
:R7

=
=

<
B

5
PAGE 56

UNIBUS ADDRESS OF RH CONTROLLER
ADDRESS OF ENTRY

UNIT UNDER TEST

IN TEST QUE CORRESPONDING TO THE

WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE
SAVED BY SUBROUTINES
GENERAL WORKING REGISTERS, ARE NOT SAVED BY

SUBROUTINES
STACK POINTER

LINKAGE REGISTER TO SUBROUTINES

s STORAGE ASSIGNMENTS

:$TMPO-$TMP4

:$GDDAT,$SBDDAT
:$GDADR, SBDADR

S$TSTN

TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES
EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT
ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE,
ALSO THE ADDRESS OF A REGISTER ERROR

TSUNIT
RGINBF

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

:RGOTBF

THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR

EACH REGISTER, AND IS USED WHEN READING STATUS AND
CONTROL DATA

EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE

WRITTEN IN REGISTERS

SEQ 0056

cZl
czl

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

MACY11

F
30A(1052)
05=APR=78
14:49
T
TRANSFER TEST

5
PAGE 57

SEQ 0057

CZF
CZF

2522

;;ttttttttt'tttt't"t'tt"t'ttttt'ttQt"tt'.'t'tttt"ttt'tttt'ttt

]

gggg

;*TEST 1

;

2525

::tttttttttttttt't'ttt't"t"'ttQt"'tt"'tt't'ttt"'tttttt.'tttt

]

TST1:

3
%

2526
gg%g

004430
004432

000004
012737

000001

001226

2529
2530
2531
2532
gggz

004440
004442
004450
004456
8822?3

000240
012737
112737
012737
012737

000024
000001
004472
004472

001120
001131
001122
001124

2535

004472

012706

001100

2536
2537
2538
2539
2540
2541
ggz%
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554

2555
2556
2557
2558
2559
2560
2561
2562
gggz

004476
004502
004506
004512

013700
013701
012702
012760
111160

000040
000010

000010

004524
004532
004540
004542
004546
004554
004562

016037
032737
001417
111137
042737
052737
010037

000010
010000

001142
001142

004566
004574
004576
004600

062737
104001
000500

010003
060203
011304
032760
001473
012760
111160

2565
2566
2567

004630
004636
004644

2569
2570
2571
2572
2573
2574
2575
2576
2577

004652
004660
004666
004672
004700
004702
004704

004646

001140
177770
000100
001136
000010

001140
001140
001136

010000

000010

000040
000010

000010

016037
032737
001417

000010
010000

001142
001142

042737
052737
010037
062737
104001
000436

177770
000100
001136
000010

111137

001140

SCOPE
MOV
NOP
MOV
MOVB

001140
001140
001136

#1,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

MOV
MOV

#20.,SICNT
#1,SERMAX
#T1,SLPADR
#T1,SLPERR

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

[ [0)"

#STACK,SP

;LOAD THE STACK POINTER

MOV
MOV
MOV

004512
004520

004600
004602
004604
004606
004614
004616
004624

2568

001276
001456
000000

TRANSFER TEST

$BASE ,RO
TSTQUE ,R1
#0,R2

3
:
:
:
:

;RO = UNIBUS ADDRESS OF UUT
:R1 = POINTER TO DEVICE
:R2 = REGISTER INDEX

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

MOV
MOVB

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

MOV
BIT
BEQ
MOVB
BIC
BIS
MOV

RMCS2(RO) ,$BDDAT
#NED, SBODAT
208
(R1) ,$GDDAT

ADD
ERROR
BR

# CUNTMSK,SGDDAT
#1R,$GDDAT
RO, $BDADR
#RMCS2,$BDADR
1
608

MOV
BIT
BEQ

RMCS2(RO),SBDDAT
#NED, SBDDAT
308

BIC
BIS
MOV
ADD
ERROR
BR

# CUNTMSK,SGDDAT
#1R,SGDDAT
RO, $BDADR
#RMCS2,$BDADR
1
60%

;CLEAR THE MASSBUS
;SELECT UNIT

;STORE RMCS2 AT $BDDAT

208:
;READ THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ
: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

MOVB

;STORE RMCS2 AT S$BDDAT

(R1) ,$GDDAT

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

:
b
3
.
:
3
3
3
:
:

;
;
:
:
:
;
;
:
:
;
:
;
;
:
;
:

;
;
;

IF THE WRITE

:
:
:
:
;
3
:
:
.

2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629

2630
2631
2632
2633

103251

000004

000016
000022

000046

BHIS

108

;YES = TRY THIS REGISTER

#RMCS2,R2
408
#RMAS ,R2
408
#RMDB,R2
408
#RMEC2 ,R2

;1S THIS RMCS5??
;YES = TRY ANOTHER REGISTER
;1S THIS RMAS ??
;YES = TRY ANOTHER REGISTER
;1S THIS RMDB??
;YES = TRY ANOTHER REGISTER
;1S THIS A LEGAL REGISTER

50%:

013737

001276

000137

021416

104002

001136

;GOT

"NONEXISTENT DEVICE' ERROR FOR EVERY REMOTE REGISTER ADDRESS
MOV

ERROR
JMP

60$:

005004

$BASE,

2
$EOSP

$BDADR

: STORE BASE ADDRESS

;DEMAND OR TRANSFER FAILED
:GO SELECT NEXT DEVICE

70%:
AR AR

TeTEST 2
PR

1ST2:

AR AR AR AR AR

ARl

CTOD TEST

SCOPE

R Rttt

R R R R RN R RN AR RN R RRRRRRNRRARRRARANRAARARRCERRRR
RS

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

000004
012737
000240

005074

012760

000076

000000

Mov

#ILF76 ,RNCST1(RO)

005102

012760

177777

000006

MOV

#-1,RTMDA(RO)

005110

012760

001777

000034

MOV

#CYLMSK,RMDC(RO)

012737
112737

012737
012737
012706
013700
013701
012760

111160

000002

001226

000024
000001
005046
005046

001120
001131
001122
001124

001100
001276
001456
00004C
000010

#2,$TESTN

::SET

MOV
MOVB

#20.,$1CNT
#1,SERMAX

;20 ITERATIONS
*ONE ERROR ALLOWED

MOV

#T2.SLPERR

MOV

'
000010

:gg

MOV

MoV
MOV
MOV
MOVB

#T2,8LPADR

TEST NUMBER

IN APT MAIL BOX

;LOAD LOOP ON TEST ADDRESS

:LOAD LOOP ON ERROR ADDRESS

#STACK, SP

$BASE , RO
TSTQUE ,R1
#CLR.RMCS2(RO)
(R1) ,RMCS2(RO)

;WRITE ONES IN REMOTE REGISTERS

:LOAD THE STACK POINTER

‘RO = UNIBUS ADDRESS OF UUT
*R1 = POINTER TO DEVICE
:CLEAR THE MASSBUS
;SELECT UNIT

;LOAD RMCS1
sLOAD RMDA
:LOAD RMDC

N W
NN
N W W N

sADVANCE TO NEXT REGISTER
;1S THIS RMWC??
;YES = TRY NEXT REGISTER
;1S THIS RMBA??
;YES = TRY NEXT REGISTER

#2,R2
#RMUC,R2
408
#RMBA ,R2
408

CMP
BEQ
CMP
BEQ
CHP
BEQ
CMP

000010

004770
004770
004776
005000

ADD
CMP
BEQ
CMP
BEQ

N N

000002
0000G2

062702
022702
001773
022702
001770
022702
001765
022702
001762
022702
001757
022702

sADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT
sAVAILABLE DEVICE REGISTER

N AN N N

408%:
,COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING '‘NED'' ERROR -

N AN AN N

004736
004740
004744
004746
004752
004754
004760
004762
004766

;WRITE REGISTER
(RO)
;1S "'NED'" SET??
;NO!!

N AN AN W AN AN N O

004732

#0, (R3)
#NED, RMCS?2
708

SEQ 0058

N AN U AN AN N N AN G AN N

2608

004720

004720
004724
004730

MOV
BIT
BEQ

000010

5
PAGE 58

N U U

2600
2601
2602
2603
2604
2605
2606
2607

000000
010000

TRANSFER TEST

6
14:49

L A

2594
2595
2596
2597
2598
2599

012713
032760
001432

05-APR-78

U U L AN U

2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593

004704
004710
004716

30A(1052)

N L A

2578
2579
2580
2581

MACY11

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

2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689

000000

005136

016037

005144

MOV

#1,R2

001326

MOV

RMCST1(RO) ,RMCS1I

000006

001334

MOV

RMDA(RO) ,RMDAI

;STORE RMDA IN INPUT BUFFER

016037

000034

001362

MOV

RMDC(RO) ,RMDCI

;STORE RMDC

IN INPUT BUFFER

005152
005160
005162

016037
005302

000032

001360

MOV
DEC
BPL

RMOF
(RO) ,RMOFI
R2
108

;STORE RMOF

IN INPUT BUFFER

005164
005172
005174
005200
005202
005210
005212
005220

042737
001014
005737
001011
042737
001005
042737
001001

177701

001326

TST

RMDAI

005222
005224

104003

108:

100362

001334
176000

001362

161577

001360

;STORE RMCS1 IN INPUT BUFFER

sSEE IF ANY ONE BITS CAME BACK
BIC
# CILF76,RMCS1I ;IS RMCST1 0??
BNE
208
:NO'!
BNE
BIC
BNE
BIC
BNE

:1S RMDA 0??

20%
#XNUDC ,RMDCI
208
#XNUOF ,RMOF 1
20%

;NO!!
;1S RMDC 0??
:NO!!
;1S RMOF 0 ??
;sNO!!

;s CANNOT READ ANY ONE BITS FROM REMOTE REGISTERS
ERROR
3
;CTOD MUST BE STUCK
20%:
;:""""""""""t"""""""""'.Q'i.'....'i".'.."'..

SeTEST 3

MASSBUS INITIALIZE TEST

srRRRRRARRRRRERRARRRARRRNRACRRRRARNROAARRARRRRNRRRARARAAAARARRRAARRARARRRRRRETSY

IST3:

SCOPE

005224
005226

000004
012737

000003

001226

005234
005236
005244
005252
005260
005266
005266
005272
005276
005302
005310

000240
012737
112737
012737
012737

000024
000001
005266
005266

001120
001131
001122
001124

012706
013700
013701
012760
111160

001100
001276
001456
000040
000010

005314

012760

000076

000000

MoV

#ILF76,RACST1(RO)

005322

012760

177777

000014

Mov

#-1,RMERT1(RO)

;LOAD RMER1

005330

012760

177777

00004¢

MoV

#-1,RMER2(RO)

;LOAD RMER2

005336
005344

012760

000040
000010

000010

MoV
MOVB

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

;CLEAR THE MASSBUS
;SELECT UNIT

111160

000010

MOV
NOP

#3,$TESTN

MOV
MOVB
MOV
MOV

#20.,SICNT
#1,SERMAX
#13,SLPADR
#T3,SLPERR

MOV

#STACK,SP

MOV
MOV
Mov

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

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

;LOAD THE

STACK POINTER

;RO = UNIBUS ADDRESS OF uuT
;R1 = POINTER TO DEVICE
;CLEAR THE MASSBUS

MOvVB
(R1) ,RMCS2(R0O)
;SELECT UNIT
;WRITE ONES IN SELECTED REGISTERS

:LOAD RMCS1

sUSING CONTROLLER CLEAR, IE., BIT 5 OF RMCS2, INITIALIZE THE MASSBUS
;READ THE REGISTERS THAT WERE WRITTEN

W W W DWW W W W W

016037

;LOAD RMOF

N W

005130

#FMT16'ECI'HCI'OFD,RMOF (RO)

W W W N W W W W

000001

MOV

sREAD REMOTE REGISTERS TWICE

CZR

N W

012702

SEQ 0059

W W

005124
005130

000032

5
PAGE 59

W W

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

016200

CTOD TEST

H
14:49

N AN AN AN NN N N N N W N N N W N N W W

2643

012760

05-APR-78

L L A U AN U A U

2640
2641
2642

005116

30A(1052)

LN LA L A

2634
2635
2636
2637
2638
2639

MACY11

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

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

2717
2718
2719
2720
2721
2722
2723
2724
2725

2726
2727
2728
2729

2730
2731
2732
2733
2734
2735
2736

2737
2738
2739
2740
2741
2742
2743
2744
2745

3??(1052)

05-APR-78

14:49

MASSBUS

INITIALIZE

PAGE 60

SEQ 0060

TEST

005350

016037

000000

001326

MoV

RMCS1(RO) ,RMCSTI

;STORE RMCS1

IN INPUT BUFFER

005356

016037

000014

001342

MoV

RMER1(RO) ,RMER1I

;STORE RMER1

IN INPUT BUFFER

005364

016037

000042

001370

005372
005400
005406
005414
005416
005424
005426
005434

052737
052737
022737

177701
001567
177777

001326
001370
001326

022737
001005
022737
001001

177777

001342

177777

001370

005436
005440

104004

001011

MOV
RMER2 (RO) ,RMER2]
;SEE IF ANY REGISTER BITS WERE CLEARED
BIS
# CILF76,RMCS1]
BIS
#XNUER2 ,RMER21]

CMP

#-1_,RMCS1I]

CmMP

#-1,RMER1]

BNE

108

;VES!!

BNE
108
CMP
#-1,RMER2]
BNE
108
sNONE OF THE BITS WERE CLEARED
ERROR
4

10%:

JYES!!

;STORE RMERZ2 IN INPUT BUFFER

JSET ANY BIT NOT WRITTEN

;ANY ZEROS IN RMCS1??
sANY ZEROS IN RMERI??
sANY ZEROS IN RMER2??

*MASSBUS INIT FAILED

::""""""'""'."""""""""""i.t'fi"'t.."'t""'i'

S+TEST 4
A

TST4:

CLEAR

STUCK ACTIVE

TEST

SRRl

SCOPE

2222222220222

]

005440
005442

000004
012737

000004

001226

005450
005452
005460
005466
005474
005502
005502
005506
005512
005516
005524

000240
012737
112737
012737
012737

000024
000001
005502
005502

001120
001131
001122
001124

012706
013700
013701
012760
111160

001100
001276
001456
000040
000010

005530

012760

177777

000014

MoV

#-1,RMERT1(RO)

;LOAD RMER1

005536

012760

177777

000042

MOV

#-1,RMER2(RO)

;LOAD RMER?2

005544

012760

000001

100024

MOV

#DMD ,RMMR1(RO)

;LOAD RMMR1

005552

016037

000014

001342

MoV

RMER1(RO) ,RMER1I

:STORE RMER1

005560

016037

000042

001370

Mov

RMER2 (RO) ,RMER2]

;STORE RMER2 IN INPUT BUFFER

005566

016037
042737
001011
042737
001005
032737

000024
040000

001352
001342

040200

001370

000001

001352

MOV
BIC
BNE
BIC
BNE
BIT

RMMR1(RO) ,RMMR1]
:STORE RMMR1 IN INPUT BUFFER
#UNS ,RMER1]
sDONT ACCEPT UNSAFE
108
;BRANCH IF ANY OTHER BITS ON
#SK1!DVC,RMER2]I ;DONT ACCEPT SKI OR DVC
108
;BRANCH IF ANY OTHER BITS ON
#OMD ,RMMR1]
;BRANCH IF DMD IS ON

005574
005602
005604
005612
005614

000010

MOV

NOP

MOV
MOvB
MOV
MoV

#4,STESTN

#20.,81CNT
#1,SERMAX
#74 ,SLPADR
#T4,SLPERR

::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
MOV
$BASE RO
MOV
TSTQUE ,R1
MoV
#CLR,RMCS2(RO)
MOVB
(R1) ,RMCS2(RO)
;WRITE ONES IN TEST REGISTERS

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

JREAD TEST REGISTERS AND SEE IF ANY BITS ARE ON
IN INPUT BUFFER

I NN N N AN N NN AN NN AN NN AN N AN N AN NN AN NN ANANANNANN

2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
44}
2712
2713
2714
2715
2716

MACY1T

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

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
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783

005622
005624
005626

MACY11

30A(1052)
T4

001001

104026

05-APR-78

CLEAR STUCK ACTIVE

BNE
ERROR

10%:

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

000004
012737
000240
012737
112737
012737
012737

012706
013700
013701
005002
012760

001100
001276
001456

111160

000040
000010

000010

005720

012760

000076

005726

012760

005734

000005

001226

000024
000001
005670
005670

001120
001131
001122
001124

ISTS:

;MBA CLR IS STUCK ACTIVE

ARl ARttt
tdd)

iRl

ittt 2222222222222
0]

MOV

#5,8TESTN

s:SET TEST NUMBER IN APT MAIL BOX

MOV
MOVB

#20.,81CNT
#1,SERMAX
#T5,8LPADR
#T5,8LPERR

;20 ITERATIONS

NOP

1S:

Sca 0061

TEST

TRISTATE TRANSFER TEST

ARl

SCOPE

5
PAGE 61

108
26

;'TEST 5
222

J
14:49

MOV
MOV

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

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS OF uuT
MOV
TSTQUE
R
;R1 = POINTER TO DEVICE
CLR
R2
sCLEAR ERROR FLAGS
MOV
#CLR,RMCS2(RO)
;CLEAR THE MASSBUS
MOVB
(R1) ,RMCS2(RO)
s SELECT UNIT
sWRITE ONES IN SELECTED REGISTERS
MoV
MOV

#STACK,SP
$BASE RO

000000

MOV

#ILF76 ,RNCST1(RO)

177777

000006

MOV

#-1,RMDA(RO)

:LOAD RMDA

012760

177777

000014

MOV

#-1,RMER1 (RO)

;LOAD RMER1

005742

012760

177777

000032

MOV

#-1,RNOF (RO)

:LOAD RMOF

005750

012760

177777

000042

MoV

#-1,RMER2(RO)

;LOAD RMER2

005756

012760

000000

MOV

#0,RMCST1(RO)

:LOAD RMCS1

2784

005764

012760

000000

000006

MOV

#0,RMDA 'RO)

:LOAD RMDA

2786

005772

012760

.90000

000014

MOV

#0,RMER1(RO)

;LOAD RMER1

006000

012760

000000

000032

MoV

#0,RMOF (RO)

sLOAD RMOF

006006

012760

000000

000034

MOV

#0,RMDC(RO)

sLOAD RMDC

006014

012760

00000C

000042

MoV

#0,RMER2(RO)

;LOAD RMERZ2

006022

016037

000000

001326

MOV

RMCST1(RO) ,RMCSTI]

006030

016037

000006

001334

MOV

RMDA(RO) ,RMDAL

006036

016037

000014

001342

MOV

RMER1(RO) ,RMER1]

006044

016037

000032

001360

MOV

RMOF
(RO) ,RMOF 1

2785

2787
2788
2789
2790
2791

2792
2793
2794
2795
2796
2797
2798
2799
2800
2801

;LOAD RMCS1

sWRITE ZEROS IN SELECTED REGISTERS

JREAD BACK ALL REGISTERS

;STORE RMCS1 IN INPUT BUFFER
:STORE RMDA IN INPUT BUFFER

:STORE RMER1 IN INPUT BUFFER
:STORE RMOF IN INPUT BUFFER

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

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
2829
2830
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

MACY1T

006052

016037

000034

001362

006060

016037

000042

001370

006066
006072
006100
006106
006114
006122
006126
006132
006136
006142

012702
052737
052737
052737
052737
005137
005137
005137
005137
005137
005137
043702
043702
043702
043702
043702
043702
001407

177777
177701

006146

006152
006156
006162
006166
006172
006176
006202

161577
176000

001567
001326
001334
001342
001360
001362
001370
001326
001334
001342
001360
001362
001370

001326
001360
001362
001370

3?2(1052)

05-APR-78

TRISTATE

Mov

K
14:49

5
PAGE 62

SEQ 0062

TRANSFER TEST

RMDC(RO) ,RMDCI

;STORE RMDC IN INPUT BUFFER

;STORE RMER2 IN INPUT BUFFER
sCHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ
MoV
#-1,R2
;ACCUMULATE ZEROS IN R?2
MoV

RMER2(RO) ,RMER2I

BIS

# CILF76 ,RMCS1I ;SET ALL BITS NOT WRITTEN

BIS
COM

#XNUER2 ,RMER2]
RMCS1I

BIS
BIS
COM

COM
COM
COM

#XNUOF
, RMOF |
#XNUDC ,RMDCI
RMDAI

s COMPLEMENT REGISTER CONTENTS

RMER1I
RMOFI
RMDCI

COM
RMER21
BIC
RMCS1I,R2
;ACCUMULATE ALL ZERO BITS
BIC
RMDAI,R2
BIC
RMER1I,R2
BIC
RMOF
I ,R2
BIC
RMDCI,R2
BIC
RMER21I,R2
BEQ
108
:BRANCH IF EACH BIT IS ZERO
;ONE OR MORE BIT POSITIONS ARE NOT ZERO
MOV
R2,$BDDAT
;SAVE RESULT FOR TYPE
CLR
$GDDAT
sLOAD EXPECTED RESULT
ERROR
5
;TRISTATE BUS IS STUCK AT ONE
BIS
#BITO,R2
;SET ERROR FLAG
108:

006204
006210
006214
006216
006222

010237
005037
104005
052702

001142
001140

006222
006230

012760

111160

000040
000010

000010

006234

012760

000000

006242

012760

006250

000001

MOV
MOVB

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

;CLEAR THE MASSBUS
;SELECT UNIT

000006

MOV

#0,RMDA(RO)

;LOAD RMDA

000000

000032

MOV

#0,RMOF (RO)

;LOAD RMOF

012760

000000

000034

MOV

#0,RMDC (RO)

:LOAD RMDC

006256

012760

000076

000000

MOV

#ILF76 ,RMCS1(RO)

006264

012760

177777

000006

MoV

#-1,RMDA(RO)

006272

012760

016200

000032

Mov

# CXNUOF ,RMOF (RO)

:LOAD RMOF

006300

012760

001777

000034

MOV

# CXNUDC,RMDC(RO)

:LOAD RMDC

006306

012760

177777

000014

MoV

#-1,RMERT1(RO)

006314

012760

176210

000042

MoV

# CXNUER2,RMER2(RO)

:LOAD RMER2

006322

016037

000000

001326

MoV

RMCS1(RO) ,RMCSTI

:STORE RMCS1 IN INPUT BUFFER

sPRESET SELECTED REGISTERS TO ZEROS
;s CASSUME RMCS1, RMER1, RMERZ2 WERE CLEARED BY INIT)

sWRITE ONES IN SELECTED REGISTERS

sREAD ALL REGISTERS

:LOAD RMCS1
:LOAD RMDA

;LOAD RMER1

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1
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

MACY11

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

SEQ 0063

006330

016037

000006

001334

Mov

RMDA(RO) ,RMDAI

;STORE RMDA IN INPUT BUFFER

006336

016037

000032

001360

MOV

RMOF
(RO) ,RMOFI

;STORE RMOF

006344

016037

000034

001362

MoV

RMDC(RO) ,RMDCI

;STORE RMDC IN INPUT BUFFER

006352

016037

000014

001342

Mov

RMERT(RO) ,RMER1I

;STORE RMER1

006360

016037

000042

001370

MOV

RMER2(RO) ,RMER21

:STORE RMERZ2 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 ,RMOF |
#XNUDC ,RMDCI

BIS

RMCS1I.,R2

006456
006462
006470
006472
006476

010237
012737

001142
177777

052702

000002

104006

006476
006500
006502
006506
006506
006514

005702
001131
012702

006520

010260

006524

001326
001334
001360
001362
001342
001370
177777

IN INPUT BUFFER

;CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ
BIC
# CILF76,RMCS11I
sCLEAR ALL BITS NOT WRITTEN
BIC
CLR

#XNUER2 ,RMER2]
R2

sACCUMULATE ONES IN R2

sACCUMULATE ALL ONE BITS

BIS
RMDAI ,R2
BIS
RMOFI,R2
BIS
RMDCI,R2
BIS
RMER1I,R2
BIS
RMERZ2I ,R2
CMP
#-1,R2
JSEE IF EACH BIT POSITION WAS ONE
BEQ
208
;BRANCH IF NONE .STUCK
sONE OR MORE BIT POSITIONS ARE NOT ONE

MOV

001140

MOV
ERROR

20%:

BIS

R2.,$BDDAT

#-1,8GDDAT
6

#BIT1,R2

;SAVE RESULT FOR TYPE
JEXPECTED RESULT

sSET ERROR FLAG

TST

sANY ERRORS DETECTED ??

[ [1]"

#1,R2

:R2=BIT POSITION

MOV
MOVB

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

;CLEAR THE MASSBUS
;SELECT UNIT

000006

MOV

R2,.RMDA(RO)

sLOAD RMDA

010260

000032

Mov

R2,RMOF (RO)

:LOAD RMOF

006530

010260

000034

Mov

R2.,RMDC(RO)

;LOAD RMDC

006534

010260

000014

MOV

R2,RMER1(RO)

:LOAD RMER1

006540

010260

000042

MOV
R2,RMER2(RO)
;READ BACK THE REGISTERS

:LOAD RMER2

006544

016037

000006

001334

MOV

RMDA(RO) ,RMDAI

;STORE RMDA IN INPUT BUFFER

006552

016037

000032

001360

Mov

RMOF
(RO) ,RMOFI

;STORE RMOF

IN INPUT BUFFER

006560

016037

000034

001362

MOV

RMDC(RO) ,RMDCI

;STORE RMDC

IN INPUT BUFFER

012760

111160

000001

000040
000010

000010
sWRITE

BNE

308

THE BIT PATTERN

sYES = DONT DO BIT TEST

IN SELECTED DEVICE REGISTERS

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
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 3?;(1052)

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
006700
006704
006710
006712
006714
006720
006722
006724
006726
006730
006732
006734
006736
006740
006744
006750
006752
006754

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

006754
006756
006760
006764

006302
001402
000137

177777

05-APR=-78

TRISTATE

MOV

L
14:49 PAGE 64

SEQ 0064

TRANSFER TEST

RMER1(RO) ,RMER1]

;STORE RMER1

IN INPUT BUFFER

MOV
RMER2(RO) ,RMERZ21]
;STORE RMERZ2 IN INPUT BUFFER
sCHECK REGISTER CONTENTS FOR CORRECT PATTERN
CLR
R3
sR3=ACCUMULATED ONE BIT
MOV
MOV

001334

#-1,R4
RMDAI RS

BIS
COM
BIC
MOV
BIC
BIS
COM
BIC
BIC
MOV

001360
161577

161577
001362
176000

BIC
BIS
COM
BIC
BIC
MOV
COM
BIC

RS5.R3
RS
RS5.R4
RMOFI RS
#XNUOF
RS
RS5.R3
RS
#XNUOF RS
RS5.R4
RMDCI RS
#XNUDC
RS
RS5.R3
RS
#XNUDC RS
RS .R4
RMER1I RS
RS5.R3
RS
R5.R4
RMER2I RS
#XNUER2
RS
RS5.R3
RS
#XNUER2
RS
RS5.R4
R2.RS
RS
RS5.R3

BIS
CMP
BEQ

R4 .R3
R3.R2
26%

BIC

BIS
COM
BIC
BIC

176000

001342

MOV
BIS
COM
B:C
MOV

001370
001567

001567

BIC

R2.,R4

MOV

001140
001142
268

MOV
ERROR
BR

sR4=ACCUMULATED ZERO BITS
sGET ANY GNOD BITS FROM RMDA

;GET GOOD BITS FROM RMOf

;GET GOOD BITS FROM RMDC

;GET GOOD BITS FROM RMER1

;GET GOOD BITS FROM RMERZ

sRESET ALL ONES IN R3 EXCEPT
sFOR THE TEST BIT

JRESET TEST BIT IN R4

sCOMBINE ACCUMULATED 1'S + 0'S
:1S PATTERN 0K??
JYES!V

R2.,.$GDDAT

sSAVE TEST PATTERN

R3,$BDDAT
7
308

sSAVE RESULT
sBIT INTERFERENCE IN TRISTATE BUS
JSKIP TO NEXT

sADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST
ASL

006506

308:

BEQ
JMP

;SHIFT THE BIT

308
25%

JEXIT IF DONE

".'""'t"""'"""""'."""'""'""..'."'ii"'."."""

+TEST 6
B

006764
006766

000004
012737

000006

001226

TST6:

SCOPE
MoV

#6,8TESTN

TEST
R LI

::SET TEST NUMBER

IN APT MAIL BOX

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

000240
012737
112737
012737
012737

000024
000001
007026
007026

012706
013700
013701

001100
001276
001456

001120
001131
001122
001124

T6:

N 5
14:49 PAGE 65
REGISTER SELECT TEST
05-APR =78

NOP
MOV
MOVB
MOV
MoV

#20.,81CNT

#1,SERMAX
#T76,SLPADR
#T6,SLPERR

MoV
MOV
MOV

SEQ 0065

;20 ITERATIONS

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

#STACK,SP

;LOAD THE

TSTQUE ,R1

:R1

$BASE RO

STACK POINTER

;RO = UNIBUS ADDRESS OF uwuT
= POINTER TO DEVICE

;THE FOLLOWING T ?g%ERGIVES MASSBUS REGISTER SELECT VALUES FOR
;EACH DEVICE REG
REGISTER
NAME

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

RMCS1

00000
00001
00010
00011
00100
00101
00110

006774
006776
007004
007012
007020
007026
007026
007032
007036

2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989

MACYTT 3?2(1052)

2990

RMDS

RMER1
RMMR1

RMAS
RMDA
RMDT
RMLA
RMSN
RMOF
RMDC
RMHR

007042
007044

005002
012703

177777

3015
gg}g

007050
007056

012760
111160

000040
00001C

gg}g

007062

010260

000014

MOV

R2,RMER1(RO)

;LOAD RMER1

;gg?

007066

010260

000034

Mov

R2,RMDC(RO)

:LOAD RMDC

;83%

007072

010360

000024

Mov

R3,RMMR1(RO)

;LOAD RMMR1

3024
3025

007076

010360

000036

MOV

R3.RMHR(RO)

:LOAD RMHR

2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
38}2

“MMR?2
RMER2
RMEC1
RMEC2

;EACH REGISTER S ELECT LINE IS TESTED FOR A STUCK AT ONE,
sSTUCK AT ZERO F AULT. AS AN EXAMPLE, TO TEST REG SEL 1.

;FOR S-A-0, RMER 1 IS WRITTEN WITH ZLROS. THEN THE REGISTER
s THAT HAS THE SA ME

sBEING TESTED,

SELECT VALUE,

EXCEPT FOR THE

I S WRITTEN WITH ONES.

SELECT LINE

IN THIS EXAMPLE,
;RMMR1 IS WRITTE N WITH ONES. IF SELECT LINE 1 IS S-A-0,
sTHE ALL ONES WO RD WILL BE WRITTEN IN RMER1, AND RMER1

sWILL NOT BE O W HEN READ BACK.
R2
#-1,R3
sTEST REG SEL 1 FOR S=-A-0
MOV
#CLR,RMCS2(RO)
MOVB
(R1) ,RMCS2(RO)

CLR

MoV

000010

;nl= IEROS SOURCE
:R>= ONES
SOURCE
;CLEAR THE MASSBUS

;SELECT UNIT

o L

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037

05-APR-78

14:49
PAGE 66
REGISTER SELECT TEST

007102

016037

000014

001342

MoV

RMERT1(RO) ,RMERT]

007110
007116
007122
007124
007132
007136
007140
007142

016037
020337
001007
052737
020337
001001

000034
001342

001362

MOV

RMDC
(RO) ,RMDCI

176000
001362

001362

BIS

#XNUDC ,RMDCI

007142
007150

012760
111160

000040
000010

007154

010260

007160

104010

CMP
BNE

108:

000010

CHP
BNE
ERROR

R3,RMERT]
108
R3,.RMDCI
108
10

sTEST REG SEL 1 FOR S=-A-1

SEQ 0066

;STORE RMER1 IN INPUT BUFFER
:STORE RMDC IN INPUT BUFFER

;REG SEL 1 IS S-A-0

MoV
MOVB

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

sCLEAR THE MASSBUS

000006

MOV

R2.RMDA(RO)

:LOAD RMDA

010260

000032

MOV

R2,RMOF (RO)

:LOAD RMOF

007164

010260

000042

[ [)]']

R2.RMER2(RO)

;LOAD RMERZ2

007170

010360

000016

MOV

R3,RMAS(RO)

:LOAD RMAS

007174

010360

000030

MoV

R3,RMSN(RO)

;LOAD RMSN

007200

010360

000040

MOV

R3,RMMR2(RO)

;LOAD RMMR2

nNN7204

016037

000006

001334

MOV

RMDA(RO) ,RMDAI

;STORE RMDA IN INPUT BUFFER

007212

016037

000032

001360

MOV

RMOF
(RO) ,RMOF 1

;STORE RMOF IN INPUT BUFFER

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) ,RMER2I

161577
001360

001360

BIS
CMP

001567
001370

001370

#XNUOF ,RMOF |
R3,RMOFI
20%
#XNUER2 ,RMER21]

007266
007274

012760

111160

000040
000010

007300

010260

007304

104011

CMP
BNE

208%:

000010

BNE
BIS
CMP
BNE
ERROR

R3,.RMDAI
20%

R3,RMER2]
20%
1"

sTEST REG SEL 2 FOR S=A-0

‘._,—

MACY11 30A(1052)
16

o
ey

sSELECT UNIT

:STORE RMER2 IN INPUT BUFFER

;REG SEL 1 IS S-A-1

MOV
MOVB

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

:CLEAR THE MASSBUS
sSELECT UNIT

000006

MOV

R2.RMDA(RO)

sLOAD RMDA

010260

000032

L [1]'}

R2,RMOF (RO)

sLOAD RMOF

007310

010260

000042

MoV

R2,RMER2(RO)

;LOAD RMER2

007314

010360

000020

MOV

R3.RMLA(RO)

sLCAD RMLA

007320

010360

000036

MOV

R3,.RMHR(RO)

;LOAD RMHR

2l
czl

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099

b
ik

VO ~NO-WVS~WN

D
-

NN NN NN

3
31

007324

010360

000046

007330

016037

000006

007336

016037

007344
007352
007356
007360
007366
007372
007374

016037
020337
001015
052737
020337
001007
052737
020337
001001

007402
007406
007410
007412

MACY11

30A(1052)
T6

05-APR-78

SEQ 0067

14:49
PAGE 67
REGISTER SELECT TEST
Mov

R3,RMEC2(RO)

;LOAD RMEC2

001334

MOV

RMDA(RO) ,RMDAI

;STORE RMDA IN INPUT BUFFER

000032

001360

MoV

RMO
(RO) ,RMOF
F
|

;STORE RMOF

000042
001334

001370

MOV

RMER
(RO) ,RMER2]
2
R3,RMDAI

161577
001360

001360

001567
001370

001370

104012

308:

007412
007420

012760

111160

000040
000010

007424

010260

007430

000010

CmP
BNE
BIS
CHP
BNE
BIS
CMP
BNE
ERROR

IN INPUT BUFFER

;STORE RMER2 IN INPUT BUFFER

308

#XNU
, RMOF
OF
|

R3,RMOF
|

308

#XNUER2 ,RMER2]

R3,RMER2I
308
12

sTEST REG SEL 2 FOR S-A-1

;REG SEL 2 IS S-A-0

MOV
MOVB

#CLR,RMCS2(RO)

(R1) ,RMCS2(RO)

sCLEAR THE MASSBUS
sSELECT UNIT

000014

MOV

R2,.RMER1(RO)

;LOAD RMER1

010260

000034

MOV

R2,RMDC(RO)

sLOAD RMDC

007434

012760

000076

MOV

#ILF76,RACS1(RO)

007442

010360

000030

MOV

R3,RMSN(RO)

007446

016037

000014

001342

MOV

RMER1(RO) ,RMER1]

007454
007462
007470
007474
007476
007504
007510
007512
007514

016037
052737
020337
001007
052737
020337
001001

000034
177701
001342

001362
001342

176000
001362

001362

MOV
BIS
CMP
BNE

RMDC
(RO) ,RMDCI
# CILF76,RMERTI]
R3,RMER1I
408

007514
007522

012760

111160

000040
000010

007526

010260

000014

MOV

R2 ,RMER1(RO)

:LOAD RMER1

007532

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.,RMER2(RO)

:LOAD RMER2

000000

104013

408:

000010

BIS
CMP
BNE
ERROR

:LOAD RMCS1
:LOAD RMSN

;STORE RMER1 IN INPUT BUFFER
:STORE RMDC IN INPUT BUFFER

#XNUDC,RMDCI

R3,RMDCI
408
13

sTEST REG SEL 4 FOR S=-A-0
MOV
#CLR,RMCS2(RO)
MOVB
(R1) ,RMCS2(RO)

;REG SEL 2 IS S-A-1

sCLEAR THE MASSBUS
sSELECT UNIT

2l
cZl

3147
3148
3149
3150
315
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

010360

000044

007556

016037

000014

007564

016037

007572
007600
007604
007606
007614
007620
007622
007630
007634
007636
007640

016037
020337
001015
052737
020337
001007
052737
020337
001001

007640
007646

012760

111160

000040
000010

007652

010260

007656

;LOAD RMEC1

MOV

R3,RMECT(RO)

001342

MOV

RMER1(RO) ,RMER1I

000032

001360

MOV

RMOF
(RO) ,RMOF I

;STORE RMOF IN INPUT BUFFER

000034
001342

001362

MOV

RMDC(RO) ,RMDCI

:STORE RMDC IN INPUT BUFFER

161577

001360

BIS

#XNUOF ,RMOF I

176000

001362

BIS
CMP
BNE
ERROR

#XNUDC ,RMDCI
R3,RMDCI
508
14

001360
001362

104014

CMP
BNE

CHP
BNE

508:

000010

R3.RMER1I
50%

;STORE RMER1 IN INPUT BUFFER

R3,RMOF
I
508

sTEST REG SEL & FOR S-A-1

;REG SEL 4 IS S-A-0

MOV
MOVB

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

;CLEAR THE MASSBUS

000006

MOV

R2.RMDA(RO)

:LOAD RMDA

010260

000042

MOV

R2.RMER2(RO)

:LOAD RMER2

007662

010360

000012

MOV

R3.RMDS (RO)

sLOAD RMDS

007666

010360

000032

MOV

R3,RMOF (RO)

:LOAD RMOF

007672

016037

000006

001334

MOV

RMDA(RO) ,RMDAI

sSTCRE RMDA IN INPUT BUFFER

007700
007706
007712
007714
007722
007726
007730
007732

016037
020337
001007
052737
020337
001001

000042
001334

001370

MOV
CMP

RMER2(RO) ,RMERZI
R3,RMDAI

001567
001370

001370

007732
007740

012760

111160

000040
000010

007744

010260

007750

104015

60$:
000010

BNE
BIS
CMP
BNE
ERROR

608
#XNUER2 ,RMER21]
R3.RMER2]
60%
15

sTEST REG SEL 8 FOR S-A-0

sSELECT UNIT

:STORE RMER2 IN INPUT BUFFER

;REG SEL 4 IS S-A-1

MOV

#CLR,RMCS2(RO)

(R1) ,RMCS2(RO)

sCLEAR THE MASSBUS
sSELECT UNIT

00001¢

MOV

h2,RMERT(RO)

:LOAD RMER1

010260

000006

MOV

RZ.RMDA(RO)

;LOAD RMDA

007754

010360

000034

MOV

R3,RMDC(RO)

sLOAD RMDC

007760

010360

000042

MOV

R3,.RMER2(RO)

:LOAD RMER2

007764

016037

000014

MOV

RMER1(RO) ,RMER1]

001342

MOVB

:STORE RMER1 IN INPUT BUFFER

CZF

SEQ 0068

tlaolaiatlaliatlaliaitlaliaiatlaitialitatiataliataitatialtatatiaitaliaitalitaltaltallaltats
adiadtiad

3145
3146

007552

D 6
14:49 PAGE 68
REGISTER SELECT TEST
05-APR-78

Catlatlattast aslatsasladt tlatlattatlatlatlalala ittt

3138
3139
3140
3141
3142
3143
3144

MACY11 3?A(1052)

(]
~N

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

016037
020337

000006
001342

020337
001001

001334

010016
010024

012760
111160

000040
000010

010030

010260

000032

MOV

R2,RMOF (RO)

sLOAD RMOF

010034

010260

000034

MOV

R2.RMDC(RO)

;LOAD RMDC

010040

010260

000042

MOV

R2.RMER2(RO)

:LOAD RMER2

010044

010360

000012

MOV

R3,.RMDS(RO)

:LOAD RMDS

010050

010360

000014

MOV

R3,.RMER1(RO)

:LOAD RMER1

010054

010360

000006

MOV

R3.RMDA(RO)

sLOAD RMDA

010060

016037

000032

001360

MoV

RMOF
(RO) ,RMOF I

:STORE RMOF IN INPUT BUFFER

010066

016037

000034

001362

MOV

RMDC(RO) ,RMDC I

;STORE RMDC IN INPUT BUFFER

010074
010102

016037
052737
001015
022737
020337
001007

000042
161577

001370
001360

176000

001362

001567
001370

001370

MOV
BIS
BNE
CHP
CMP
BNE
BIS
CMP
BNE
ERROR

RMER2(RO) ,RMER2I
;STORE RMER2 IN INPUT BUFFER
#XNUOF ,RMOF |
80%
#XNUDC ,RMDCI
R3.RMDCI
80%
#XNUER2 ,RMER21]
R3,.RMER2]
80%
17
;REG SEL 8 IS S-A-1

001001
104017

;REG SEL 8 IS S-A-0

80$:

W
W W W W N N
N W N N NN W N N N N NN W

;CLEAR THE MASSBUS
sSELECT UNIT

N N N

sTEST REG SEL 8 FOR S=-A-1
MOV
#CLR,RMCS2(RO)
MOVB
(R1) ,RMCS2(RO)

N L A AN AN AN AN N N L

001362

000010

052737
020337

ERROR

708:

;STORE RMDA IN INPUT BUFFER

R3,RMERTI
708
R3,RMDAI
708

104016

RMDA(RO) ,RMDAI

010110
010112
010120
010124
010126
010134
010140
010142
010144

001004

CMP
BNE
CHP
BNE

W W

MoV

007772
010000
010004
010006
010012
010014
010016

CZR
CZR

000004
012737

010154
010156
010164
010172
010200
010206
010206

000240
012737

000007

001226

012737
012737

000024
000001
010206
010206

001120
001131
001122
001124

012706

001100

112737

1ST7:

2222222220 ]

R R AR RN A AR

SCOPE

MOV

RN RRARRRRRRERRRRRRARRRRARARRRRRA
RN AR

#7,8TESTN

:sSET TEST NUMBER IN APT MAIL BOX

DRIVE TYPE TEST

NOP

17:

Lt L

010144
010146

;*TEST 7

Lt L

sREGISTER SELECT 16 IS TESTED BY THE ILR TEST

MoV
MOovB
MOV
Mov

#20. ,81CNT
#1,SERMAX
#77,SLPADR
#77 ,SLPERR

MOV

#STACK,SP

;20 ITERATIONS
;ONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
:LOAD LOOP ON ERROR ADDRESS
;LOAD THE STACK POINTER

3240
3241
3242
3243
3244
3245
3246
3247
3248
3249

001334

SEQ 0069

Lt L Lt L

3238
3239

14:49
PAGE 69
REGISTER SELECT TEST

05-APR-78

3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
321
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
323
3232
3233
3234
3235
3236
3237

MACY11 30A(1052)

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

010212
010216

013700
013701

001276
001456

3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
327N
3272
3273
3274
gg;z

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

016037
022737
001432
022737
001426
022737
001422
022737
001416
012737
012737
010037
062737
104057
000137

000026
020024

001142
001142

024024

001142

020025

001142

024025

001142

020024
024024
001136
000026

001174
001176

010324
010326

000004
012737

000010

001226

3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
ggg;

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
111160

001100
001276
001456
000040
000010

3289
3290
3291
3292
3293
3294

010414
010422
010430
010432
010440
010444

016037
042737
001006
012737
010037
104060

3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305

108

MoV
CMP
BEQ
CMP

RMDT(RO),$BODAT
#SNGPRT ,$BDDAT
108
#ODULPRT,SBDDAT

;STORE RMDT AT SBDDAT
;SINGLE PORT RM03??
JYES!!
;DUAL PORT RM03??

108
sYES!!
#SNGPRT!BITO,$BDDAT
108
#OULPRT!BITO,$BODAT
108

MoV
MGV
MoV
ADD

#SNGPRT ,$STMPO
#OULPRT ,$THP1
RO, $BDADR
#RMDT,$BDADR

JMF

$EOSP

ERROR

010446

: SINGLE PROT RMO2 ?
:BRANCH IF SO
;DUAL PORT RMO2 ?
:BRANCH IF SO

;LOAD ACCEPTABLE VALUES

;LOAD BAD ADDRESS

;DEVICE NOT AN RMO3
;GO TO NEXT DEVICE

ARl iR
iRttt ldd)

DEVICE AVAILABLE TEST
R

SCOPE

MOV

R R

R R R

R R R R R R R R R R R R R R

AR R R R R R RN

R RN AR R

#10,8TESTN

s:SET TEST NUMBER IN APT MAIL BOX

MOV

#20. ,SICNT

;20 ITERATIONS

MoV
MOV

#T10,SLPADR
#T10,SLPERR

NOP

Move

#1,SERMAX

sONE ERROR ALLOWED

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

000010

MOV
MOV
MOV
MOV

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

000000
173777

001142
001142

MOV
BIC

RMCS1(RO) ,$BDDAT
sSTORE RMCS1
# CDVA,SBDDAT
sCLEAR ALL BUT DVA

004000
001136

001140

MOV

#DVA,SGDDAT

ERROR

MOVB

BNE
108

RO RS

MOV

(R1) ,RMCS2(RO)

sLOAD THE STACK POINTER
RO = UNIBUS ADDRESS OF uuTt
sR1 = POINTER TO DEVICE
;CLEAR THE MASSBUS

;SELECT UNIT

108

sBRANCH IF DVA SET

RO,$BDADR

sSETUP REG ADDRESS

AT SBDDAT

sSETUP EXPECTED

sDEVICE NOT AVAILABLE

skt RRRRRRERRRRERARRRARRRERRRRRRRRRRARPRORORRRRARRRANRRRARARRARROERY

J*TEST 11

SEARCH TIMEOUT TEST

okt RRRARRRERNRERARRRERRERRRRRNRRORERRRRRRRRRRRRRARRRARRRRRRRRRORRRARRRRRTTY

010446
010450
010456
010460
010466

000004
012737
000240
012737
112737

000011

001226

000024
000001

001120
001131

TST11:

SCOPE
MOV
NOP
MOV

MOvVB

#11,STESTN

;:SET TEST NUMBER IN APT MAIL BOX

#20. ,SICNT

:20 ITERATIONS
;ONE ERROR ALLOWED

#1,SERMAX

CZR

SEQ 0070

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

;*TEST 10

T10:

PAGE 70

$BASE RO
TSTQUE . R

MAARAR AL

TST10:

MoV
MoV

BEQ
CMP
BEQ
CMP
BFQ

001136

021416

05-APR-78
14:49
DRIVE TYPE TEST

EPETPTPUVNANNANNNWWWWWWWWWWWWWWWW

3250
ggg;

3?;(1052)

MACYT

(]
~N

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

3306
3307
3308
3309
3310
33N
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
333
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
3357
3358
3359
3360
3361

010474
010502
010510
010510
010514
010520
010524

010532

010540
010546
010554
010562

012737
012737

010510
010510

012706
013700
013701

001100
001276
001456

012737
012737
012737
012737
012737
012737

000000
000000
010060
054062

177777
000061

010570
010574
010576
010600
010602

004737
000402
104000
000462

023326

010602
010610
010614
010620
010622

012737
004777
005737
001375
004777

000144
170712
001524

010626
010634
010640
010646
010654
010656
010662

016037
010037
062737
042737

000014
001136
000014
157777

005037

001140

010664
010666

000430

010666
010674
010702
010706
010712
010714

010720
010726
010734
010736
010744
010746

001404

104020

012760
012737
004777
005737
001375
004777

016037
042737
001004
012737
104021

MACY11

G 6
30A(1052)
05-APR-78
14:49 PAGE 71
TM
SEARCH TIMEOUT TEST

T11:

001410
001436
001434
001406
001404
001402

SEQ 0071

MoV
Mov

#T11,SLPADR
#T11,SLPERR

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

Mov
MoV
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1

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

MOV
MOV
MOV

#0,RMDAO
#0,RMDCO
#FAT16,RMOFO

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

# C1+1,RMWCO
#WD!GO,RNCS10

;WORD COUNT
;WRITE DATA COMMAND

;LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS

MOV

#BUFFER,RMBAD

MOV
MoV

;STARTING BUFFER ADDRESS

;EXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENAI _ED USING SUBROUTINE
JSR
BR
ERROR

001524

10%:
sSTART

20%:

170702

PC,ENBSCH
108

508

001136
001142

;SLO

REST PF TEST

THE CLOCK AND WAIT FOR 100 MS
MoV
#100. ,WATCH
;SET WATCHDOG TIMER VALUE
JSR
PC,aCLOCK
sSTART THE CLOCK
TST

WATCH

JSR

PC,asTOP

BNE

208

sVERIFY THAT OPI
001142

;GO TO 108 IF NO ERROR
sRETURN HERE IF ERROR

IS NOT SET

;STOP THE CLOCK

(SEARCH TIMEOUT

IS DISABLED)

MOV
MOV
ADD
BIC

RMER1(RO) ,$BDDAT
;STORE RMER1 AT S$BDDAT
RO,$BDADR
;SET UP FOR ERROR MSG
#RMER1,$BDADR
# COPI,$BDDAT

CLR
ERROR

$GDDAT
20

508

BEQ

308

;BRANCH IF NO ERROR
;OP]

;DISABLED

SET W/SEARCH TIMEOUT

:SKIP
:
308
JENABLE SEARCH TIMEOUT, THEN WAIT 100 MS
041401
000144
170620
001524

MOV

000024
001524
40%:

170610

MOV
JSR
TST

BNE

JSR

WATCH

408

PC,aSTOP

001142
001142

020000

001140

508:
S

MOV
BIC
BNE
MoV
ERROR

AR AR

RMER1(RO) ,$BDDAT
# COPI,SBDDAT
508
#OP1,$GDDAT
21

4(
4
Al
4

4
4
Al
4l
4
4
4|
4
4
4

4l
4l
4
4

;LOAD RMMR1

sSET WATCHDOG TIMER VALUE
sSTART THE CLOCK
:STOP THE CLOCK

;0PI SHOULD NOW BE SET (SEARCH TIMEOUT IS ENABLED)
000014
157777

4l
4l
4l
4l
4l
4l
4l
4
4
4l
4l
4!
4l
4l
4l
4l
4l

#OMD ! MUR!DBEN'!MOC ,RMMR1 (RO)
#100. ,WATCH
PC,aCLOCK

CZRI
CZRI

;STORE RMER1 AT SBDDAT

4
4

4
4
4

4
4
'l
4

;OP1 NOT SET BY SEARCH TIMEOQUT

4
AR

R R RRRRRRERERRRRRRTERRERTRCERRRRRRNRERRRRARRRARRRRRARERRRRRRRS

'Al

H
30A(1052)
05-APR-78
14:49
T2
SET DTE TEST

;*TEST 12
A

001100
001276
001456
001136
000014
001140

011042
011050

012760
111160

000040
000010

000010

011054
011062
011070
011072
011074

016037
042737
001402

000014
167777

001142
001142

001226

000024
000001
011010
011010

001120
001131
001122
001124

TST12:

ARl

2222222222222

Hgg

#12,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

MoV
MOovB

#20. ,SI1CNT
#1,SERMAX

;20 ITERATIONS
sONE ERROR ALLOWED

MOV

#STACK,SP

MoV
Mov

#T12,SLPADR
#T12,SLPERR

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

MoV
MOV
MOV
ADD
CLR

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

MOV

#CLR,RMCS2(RO)

Mov
BIC
BEQ

RMER1(RO) ,$BDDAT
# CDTE,SBDDAT

MOvB

STACK POINTER

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

(R1) ,RMCS2(RO)

ERROR
BR

108
31
508

%357 MAINTENANCE

INDEX PULSE

;CLEAR THE MASSBUS

;SELECT UNIT

;STORE RMER1 AT S$BDDAT

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

AND VERIFY DTE

REMAINS RESET

MOV

#DMD ,RMMR1(RO)

011104

012760

000005

000024

MOV

#DMD !MI ,RMMR1(RO)

:LOAD RMMR1

011112

016037
042737
001402
104000
000500

000014
167777

001142
001142

MOV
BIC
BEQ
ERROR
BR

RMER1(RO) ,$BDDAT
# CDTE,$SBDDAT

:STORE RMER1

012737
012737
012737
012737
012737
012737

000000
000005
010000
054062
177777
000061

004737
000402

023326

011200
011204
011206
011210
011212

104000

000451

208

;LOAD RMMR1

;DTE

508

AT SBDDAT

SET WHEN SECTOR

: COMPARE SHOULD BE RESET

;EXECUTE DUMMY DATA COMMAND TO ENABLE SEARCH
MOV
MOV
MoV

#0,RMDAO
#5,RMDCO
#FMT16,RMOFO

MOV

# C1+1,RMWCO

MoV

#BUFFER,RMBAOD

i
—

NOWVWVES
W
NSO

b
b

o
ad

b
il

ah
-

i
i
-

—

000024

WwWWwWWwWN ~N
SO o

000001

012760

OOoO0Oo o

011076

001410
001436
001434
001406
001404
001402

221 ]

sINITILAIZE AND VERIFY THAT DRIVE TIMING ERROR IS RESET

104031

011076

SEQ 0072

SET DTE TEST

001136

000517

SCOPE

PAGE 72

#WD!GO,RMCS10

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

PC,ENBSCH

ERROR
BR

508

308

;WITH SEARCH ENABLED,

;SEARCH FLOP.
308:

;GO TO 308 IF NO ERROR
sRETURN HERE

SET AND RESET

IF ERROR

SECTOR PULSE

TO SET ENABLE

012706
013700
013701
010037
062737
005037

000012

LSRR

000004
012737
000240
012737
112737
012737
012737

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

OOO0O0OO0O0

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
34
3412
3413
3414
3415
3416
3417

MACY11

SossnssssEsELLLLELLELELLLELEESLS

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

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

3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3631
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
3471
3472
3473

MACY11 30A(1052)
T2

05-APR-78

SET DTE TEST

I
14:49

6
PAGE 73

SEQ 0073

011212

012760

051441

000024

MoV

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

011220

012760

051401

000024

MoV

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

PUTMR1
PUTMR1

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

MOV

RMERT(RO) , SBODAT

BEQ
ERROR
8EQ

408
23
508

;SET SECTOR PULSE AND VERIFY DTE DOES NOT SET

:
:
011226
011234
011242
011244
011246

011250

016037

042737
001402
104023
001432

000014
167777

001142
001142

BIC

4os

:LOAD RMMR1

:STORE RMER1 AT $BDDAT

# CDTE,SBODAT

:DTE SET WHEN SECTOR
:COMPARE SHOULD BE RESET

:FORCE SECTOR COMPARE

011250

012760

051403

000024

MoV

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

:LOAD RMMR1

011256

012760

051443

000024

MOV

#DMD 'MUR ' DBEN'MOC'DTO!MSC'MS,RMMR1
(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 RMMR1

011300

012760

051401

000024

MoV

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

011306
011314
011322
011324
011332

016037
042737
001004
012737

000014
167777

001142
001142

RMER1(RO) , $BDDAT
# CDTE,SBODAT

010000

001142

MoV
BIC
BNE
MOV
ERROR

104024

;SET SECTOR PULSE AND VERIFY DTE SETS

011334

000004
012737
000240
012737
112737
012737
012737

012706
013700
013721
012702

000013

001226

000024
000001
011376

001120
001121
0011722

011376

001124

001700
001276
001456
011752

TSY13

T13:

108:
s

011416
011424

000040
000010

000010

:STORE RMER1

AT S$BDDAT

508

#DTE,SBODAT

;COULD NOT SET DTE WITH
;SECTOR COMPARE SET

AR ARSRRl
iRttt
ittt titsds

s*TEST 13

011334
011336
011344
011346
011354
011362
011370
011376
011376
011402
011406
011412
011416

;LOAD RMMR1

FORMAT CHANGE

TEST

RS a0
2222222222222

SCOPE

MOV
NOP
MOV
MovB
MoV
Mov
MoV
MOV
Mov
mov

#13,$TESTN
#20. ,S1CNT
#1,SERMAX
#T13,SLPADR
#T13,SLPERR

::SET TEST NUMBER IN APT MAIL BOX
;20 ITERATIONS
: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 uuT
:R1 = POINTER TO DEVICE
;R2=TABLE POINTER

kAR AERRERRERRERRRERRRRRERRRTRERRERRERRRETRTRRRTRRRRRRRNRRRRRARRRRRRERRREY

JINITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR FORMAT CHANGE
MOV
MOVB

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

;CLEAR THE MASSBUS
;SELECT UNIT

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P11
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
351
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526

3527
3528
3529

011430

011260

000032

011434

012760

000001

011442

012760

011450
011456
011464
011472

MACY11

J
30A(1052)
O5-APR-78
14:49
T13
FORMAT CHANGE TEST

6
PAGE 74

SEQ 0074

Mov

(R2) ,RMOF (RO)

;LOAD RMOF

000024

Mov

#DMD ,RMMR1(RO)

;LOAD RMMR1

000005

000024

MoV

#OMD!MI ,RMMR1(RO)

012737
012737
016237
012737
012737
012737

000000
000005
000002
054062
177777
000061

001410
001436
001434
001406
001404
001402

MoV
MOV
MOV
MOV
MOV

#0,RMDAO
#5,RMDCO
2(R2) ,RMOFO
#BUFFER ,RMBAO
# C1+1,RMWCO

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

000024

MOV

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

;LOAD RMMR1

011542

012760

051403

000024

Mov

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

;LOAD RMMR1

011550

012760

051401

000024

MOV

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

011556
011564
011572
011574
011600
011606
011612
011616
011624
011626
011630

016037
042737
001416
010037
062737
005037
011237
016237
104025
000454

000014
167777

001142
001142

MOV
BIC
BEQ
MOV
ADD
CLR
MOV
MOV

RMER1(RO) , SBDDAT
:STORE RMER1 AT $BDDAT
# CDTE,$BDDAT
308
RO, $BDADR
;SETUP ERROR MESSAGE
#RMER1, $BDADR
$GDDAT
(R2) ,$TMPO
2(R2),$TAP1

011630

012760

051405

000024

011636

012760

051403

011644

012760

011652

011660

011500
011506

;LOAD RMMR1

;SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT

MOV

#WD!GO,RMNCS10

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

BR
ERROR
BR

104000

000515

PC,ENBSCH

208

;G0 TO 208 IF NO ERROR
sRETURN HERE IF ERROR

608
20%:
sFORMAT CHANGE FLOP SHOULD BE SET = VERIFY BY TRYING TO FORCE A
sDRIVE TIMING ERROR WHICH SHOULD NOT SET.

001136
000014
001140
001174
000002

sVERIFY THAT DRIVE TIMING ERROR DIDNT SET

001136

001176
.

ERROR
BR

25
608

;LOAD RMMR1

:DTE SET WHEN THERE WAS
;A FORMAT CHANGE

:CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE
MoV

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

:LOAD RMMR1

000024

MOV

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

:LOAD RMMR1

051443

000024

MoV

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

:LOAD RMMR1

012760

051403

000024

MoV

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

:LOAD RMMR1

012760

051441

000024

MoV

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

:LOAD RMMR1

;ENABLE SEARCH AND FORCE SECTOR COMPARE

;SET DTE W/ANOTHER SECTOR PULSE - VERIFY DTE IS SET

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

3530
353
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
T3
FORMAT CHANGE TEST

6
PAGE 75

SEQ 0075

011666

012760

051401

000024

MoV

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

011674
011702
011710
011712
011716
011724
011732
011734
011736

016037
042737
001012
010037
062737
012737

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
sSETUP ERROR MESSAGE
#RMERT,$BDADR

ERROR
BR

27
60%

104027
000411

001140

L[]}
40%:

#DTE,SGDDAT

;LOAD RMMR1

;COULD NOT SET DTE

::"tQ.""".'"""""""i"""'.""'fi.'....'..'.."'.""'

011736
011742
011744
011750

022702
001006
062702
000622

011752
011754

010000
000000
010000

011756
011760

;DO TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION

011752
000002

50%:
60%:

CMP
BNE
ADD
BR

#508 ,R2
608
#2.R2
108

sBRANCH IF DONE TEST
;MOVE POINTER
JREPEAT TEST

.WORD

#FMTI16

:16=-18 FORMAT CHANGE

.WORD
.WORD

0
#FNTI16

;18=-16 FORMAT CHANGE

JEND OF TEST

:"Q'.Q""'""""'.""'""""""".."Q."Q'.l.'.'."""'.

SATEST

PROM STROBE

TEST

:"."'.""""""'""'"""""""""."..'t.""t"."'."'

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:

SCOPE

Hgg

#14,8TESTN

MOV
MOVB
MOV
MOV

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

MOV

#STACK,SP

;LOAD THE

TSTQUE . R1

sR1

ssSET TEST NUMBER IN APT MAIL BOX
:20 ITERATIONS
sONE 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

#DMD,iMMR1(RO)

012110
012116
012124
012126

016037
042737
001406
005302

000024
177737

001142
001142

MOV
gég

RMMR1(RO) ,$BDDAT
:‘CUC.SBDDAT

DEC

111160

MoV

MOV

000010
001136

$BASE RO

MOV
MOVB
MOV
ADD

#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)
RO,$BDADR
#RMMR1,$BDADR

MOV

#DMD ,RMMRT1(RO)

STACK POINTER

;RO = UNIBUS ADDRESS OF uuTt
= POINTER TO DEVICE

;CLEAR THE MASSBUS
;SELECT UNIT
;SETUP ERROR MESSAGE

JSET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE
5

MOV

7. .R2

;LOAD RMMR1

sR2=MAXIMUM # CLOCK PULSES

;LOAD RMMR1

;LOAD RMMR1
;STORE RMMR1 AT SBDDAT

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

3586
3587
3588
3589
3590
3591
3592

012130

012132

001361
005037
104000

000501
012702

000021

3593

012146

012760

004001

3595

012154

012760

012162
012170
012176
012200
012202
012204
012212
012214
012216

016037
042737
001007
005302
001361
012737

012216
012222

012702

000003

012222

012760

004001

012230

012760

012236
012244
012252

3594

3596
3597
3598
3599
3600

3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612

3613

3614

104030

30A(1052)
T14

05-APR-78

L
14:49

PROM STROBE TEST

BNE

001140

012136
012140
012142
012146

MACY11

CLR
ERROR
BR

6
PAGE 76

$GDDAT

‘
sCAN'T CLEAR PROM STROBE

MOV

60%
#7.,.R2

000024

MOV

#OMD 'MCLK ,RMMR1(RO)

000001

000024

MOV

#DMD,RMMR1(RO)

000024
177737

001142
001142

MOV
BIC

RMMR1(RO) ,$BDDAT
# CWC,SBDDAT

000040

001140

MOV

#WC,SGDDAT

6%:

10%:

BNE
DEC
BNE

20%
R2
108

SEQ 0076

;LOAD RMMR1

:LOAD RMMR1
;STORE RMMR1 AT S$BDDAT

JEXIT LOOP WHEN PROM STROBE ON

ERROR
BR

30
608

MoV

#3..R2

000024

MOV

#DMD 'MCLK ,RMMR1 (RO)

000001

000024

MOV

#DMD,RMMR1(RO)

016037
042737
001005

000024
177737

001142
001142

Mov
BIC
BNE

RMMR1(RO) ,$BDDAT
;STORE RMMR1 AT S$BDDAT
# CWC,SBDDAT
308
sBRANCH IF PROM STORBE DID NOT

012254
012262
012264
012266
012270

012737
104032
000427
005302
001354

000040

001140

MOV

#WC,SGDDAT

DEC

012272
012276

012702

000010

012276

012760

004001

012304

012760

012312
012320
012326
012330
012334
012336
012340
012342
012344

016037
042737
001404
005037
104033
000402
005302
001355

000453

;CANT SET PROM STROBE

20%:
;VERIFY PROM STROBE IS ON FOR 3 BIT CLOCKS
25%:

30%:

ERROR
Bk

;LOAD RMMR1

:LOAD RMMR1

;DROP EARLY

32
60%

BNE
25%
;VERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS
MoV

#8..R2

000024

MOV

#DMD !MCLK ,RMMR1(RO)

000001

000024

MOV

#0MD,RMMR1(RO)

000024
177737

001142
001142

MOV
BIC

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

CLR

$GDDAT

408:

BEQ

001140
508:

60%:

ERROR
BR
DEC
BNE

50%

33
608
¥4
40%

;LOAD RMMR1

:LOAD RMMR1
:STORE RMMR1

AT SBDDAT

;BRANCH IF PROM STROBE
:DID NOT SET EARLY

soRtRtAREARREARRAERERRRRRENRARROROCROCTRARRORRRRANARARACRRRORRRRRRRRETS

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA L1
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

MACY11

SEQ 0077

30A(1052)
05-APR-78
14:49 PAGE 77
115
SYNC WORD COUNT INHIBIT TEST
;*TEST 15

SYNC WORD COUNT INHIBIT TEST

rrkRRRRRRRRRRRRRRRARCORRRCOARRRERRRARRORRRARARAARRRONARRARORORRRORREY

012344
012346
012354
012356
012364
012372
012400
012406
012406
012412
012416

000004
012737
000240
012737
112737
012737
012737

000015

001226

000024
000001
012406
012406

001120

012706
013700
013701

001100
001276
001456

012422
012430
012436
012444
012452
012460
012466
012474

012737
012737
012737
012737
012737
012737
012760

000000
000005
010000
054062
177777
000061
000040
000010

012500
012504
012506
012510
012512

004737
000402

023326

012512
012516
012520
012522

004737
000402

111160

001131
001122
001124

001410
001436
001434
001406
001404
001402
000010

1ST15:

SCOPE

Hgg

#15,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

MoV

#20. ,SICNT

;20 ITERATIONS

MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1

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

MOV
MoV
MOV
MoV
MoV
MoV
MoV
MOvB

#0,RMDAO
#5,RADCO
#FNT16,RMOFO
#BUFFER,RMBAOD
# C1+1,RMWCO
#WD!GO,RNCS10
#CLR,RNCS2(RO)
‘R1) ,RMCS2(RO)

;SECTOR=0, TRACK=0
sCYLINDER=0

MovB
MOV
MoV

]

#1,SERMAX
#T15,8LPADR
#T15,8LPERR

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

sSETUP KEGISTER OUTPUT BUFFER FOR SUBROUTINES

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

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

104000

000562

108

ERROR

PC,ENBSCH

108

;G0 TO 108 IF NO ERROR

1208

:SKIP IF FAILURE

sRETURN HERE

IF ERROR

;FORCE SECTOR COMPARE USING SUBROUTINE

024206

JSR
BR
ERROR
BR

104000

000555

PC,SCTCHP
208

1208

;G0 TO 208 IF NO ERROR
sRETURN HERE IF ERROR

:.'."t.'.'"""'"'"""QQ""""""""'Q.'."t"t'.""t."

sCAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET
012524

012530

012702

:STEP THE SEQUENCER TO LOCATION 10(10) WHILE CHECKING '‘PLFS"

000000

gg::

#0,R2

sPULSE MAINTENANCE

012530

012760

055401

000024

012536

072760

051401

000024

012544
012550
012554
012556

016003
032703
001765
005202

000024
000040

012560
012564

010337

012572

MOV

042737
001413

Mov

;R2=SEQUENCER ADDRESS

CLOCK UNTIL PROM STROBE SETS

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

;LOAD RMMR1

MOV
#DMD !MUR!DBEN'!MOC!DTO,RMMR1(RO) ;LOAD RMMR1
sSEE IF PROM STROBE IS SET
MOV
BIT
BEQ
INC

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

;STORE RMMR1 AT R3

-+ ISSUE NEXT BIT CLOCK
s INCREMENT SEQUENCER ADDRESS

MoV
BIC
BEQ

R3,$BDDAT
# CPLFS,SBDDAT
508

sBRANCH IF PLFS IS ZERO

;CHECK “'LOOKING FOR SYNC'' = SHOULD BE ZERO UNTIL LOCATION 11
001142

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

MACYT 3??;1052)

012574
012600
012604
012612
012616
012620
012622

005037
010037
062737
010237

012622
012626

022702
001414

000012

012630

012760

055401

000024

012636

012760

051401

000024

012644
012650
012654
012656
012660

016003
032703
001365
000724

000024
000040

104034

001140
001136
000024
001174

001136

3735

3740
3741

PAGE 78

SEQ 0078

CLR
MOV

$GDDAT
RO,$BDADR

MoV
ERROR
BR

R2,$TMPO
34
1208

#RMMR1,$BDADR

;PLFS SHOULD NOT BE SET
;SKIP REST OF TEST

BEQ
708
ésgLSE MAINTENANCE CLOCK UNTIL PROM STROBE RESETS

MoV

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

MoV

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

MoV
BIT
BNE
BR

RMMR1(RO)
,R3
#UC,R3
60%
308

;SEE IF PROM STROBE IS RESET

yos
AR A

3726
3727

;EXIT LOOP IF SEQUENCER NOW AT LOCATION 10
CMP
#10. ,R2
.

012630

012660

14:49

SYNC WORD COUNT INHIBIT TEST

ADD

508

000516

05-APR=-78

AR AR AR

;LOAD RMMR1

;STORE RMMR1 AT R3
;GO STEP SEQUENCER TO NEXT LOC

ARARl
ittt sd]

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

012702

000020

012664

012760

055401

000024

MOV

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

012672
012700
012702

012760
005302
001370

051401

000024

ggg

:gHD!HUR!DBEN!HOC!DYO,RHHR1(RO)

BNE

80%

012704
012712
012720
012722
012730
012734
012742
012744
012746

016037
042737
001012
012737
010037
062737

000024
175777

001142
001142

002000
001136
000024

001140

MOV
BIC
BNE

RMMR1(RO) ,$BDDAT
;STORE RMMR1 AT $BDDAT
# CPLFS,$BDDAT
908
;BRANCH IF PLFS IS SET

MOV

RO, $BDADR

Mov
#16..R2
;R2=NUMBER OF BIT CLOCKS
ééiSUE 16 BIT CLOCKS TO GET NEXT PROM STROBE

012664

104035

;LOAD RMMR1

;VERIFY THAT "'PLFS'" IS NOW SET

MOV

001136

000444

ADD

90$:

ERROR
BR

#PLFS ,SGDDAT

#RMMR1,$BDADR

35
1208

;SETUP ERROR MESSAGE

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

sISSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE
3747
3748

3753

012746

012702

000003

012752

012760

055401

012760
012766

012760
005302

051401

012752

MOV

#3,R2

000024

MoV

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

000024

ggg

:gflb!lUR!DBFN!lOC!DTO.RHHRI(RO)

95%:

:
:LOAD RMMR1

:LOAD RMMR1

l,l
Al

ARl

iRt

;WITH "LOOKING FOR SYNC SET, FURTHER BIT CLOCKS SHOULD NOT SET
;PROM STROBE

012772
012776

012702

012776

012760

055401

000024

MOV

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

013004

012760

051401

000024

MOV

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

013012
013016

016003
042703
001413
005037
010337
010037
062737

000024
177737

MOV

RMMR1(RO) ,R3
# CWC,R3
1108
$GDDAT

;R2=NUMBER OF BIT CLOCKS

#32..R2

?gOS

;END OF TEST

1208:
AR

;*TEST 16
SRR

013056
013060
013066
013070
013076
013104
013112
013120
013120
013124
013130

012706
013700
013701

001100
001276
001456

013134
013142
013150
013156
013164
013172

012737
012737
012737
012737
012737
012737

000000
000005
010000
054062

013200
013204
013206
013210
013212

004737
000402
104000
000542

023326

013212

004737

024206

000004
012737
000240
012737
112737
012737
012737

000016

001226

000024
000001
013120
013120

001120
001131
001122
001124

177777

000071

001410
001436
001434
001406
001404
001402

TST16:

Rttt

ittd)

R RN R

SCOPE

R R

R AR AR AR RN RRARAANRNANNAAANRRNAOANARROOERES

MOV
NOP
MOV

#16,STESTN

::SET TEST NUMBER IN APT MAIL BOX

#20.,S1CNT

;20 ITERATIONS

MOV
Mov

#T16,SLPADR
#T16,SLPERR

Mov
MOV
MOV

#1,SERMAX

#STACK,SP

$BASE RO

sONE ERROR ALLOWED

;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS
:LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS OF uwuT

TSTQUE ,R1
:R1 = POINTER TO DEVICE
;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES
#0,RMDAO
Mov
;SECTOR O,TRACK 0
MoV
#5,RRDCO
sCYLINDER 5
MOV
#FAT16,RMOFO
:16 BIT MODE
MOV
#BUFFER,RMBAO
;BUFFER ADDRESS
MOV
# C1+1,RMCO
sCORD COUNT
Mov
#RD!GO,RMCS10
;READ DATA COMMAND

sEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE

108:

R
oR R
R
R
R
R
R

SYNC DETECTION TEST

Move

T16:

JSR
BR
ERROR
BR

PC,ENBSCH

108

1008

;GO TO 108 IF NO ERROR

;RETURN HERE IF ERROR

sFORCE SECTOR COMPARE USING SUBROUTINE
JSR

;CONTINUE FOR 32 BIT C.OCKS

R2
1008

;PROM STRUBE WHILE LOOKING FOR SYNC

#RMMR1,$BDADR

RO,SBDADR

013056

;SETUP ERROR MESSAGE

1108:

;BRANCH IF PROM STROBE IS 0

ERROR
BR
DEC
BNE

;STORE RMMR1 AT R3

001136

R3,$BDDAT

;LOAD RMMR1

MoV
MoV
ADD

;LOAD RMMR1

O ol ol akar oF R

104036
000402
005302
001350

001140
001142
001136
000024

BIC
BEQ
CLR

;PULSE BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET

013024
013030
013034
013040
013046
013050
013052
013054

MOV

1008:

013022

000040

P L
P

ok R

AR ARl

AR AR

3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809

95%

BNE

AAAA AR AR AR A

3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796

3773
3774
3775
3776
3777
3778

001370

SEQ 0079

PC,SCTCHP

3772

012770

30A(1052)
05~APR=-78 14:49 PAGE 79
T15
SYNC WORD COUNT INWIBIT TEST

3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
37N

MACY11

TMo
NN

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

013216
013220
013222
013224

000402
104000
000535

013224
013230
013232
013234
013236

004737
000402
104000
000530

3??é1052)

05-APR=-78

SYNC DETECTION TEST

BR
ERROR
BR

20%:

¢C
14:49

7
PAGE 80

208

SEQ 0080

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

100%

;SET ""LOOKING FOR SYNC'' USING SUBROUTINE

024314

JSR

PC,SETLFS

ERROR
BR

1008

308:
MAARAASR

308

AR AR

AR AR ARttt
ittt
td])

;CLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED
s (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

#16..R2

ADD

#RMMR1,$BDADR

MOV

#MR1AAA'MRD ,RMMR1(RO)

000024

MOV

#MRTAAA'MRD !MCLK,RMMR1T (RO)

053401

000024

MOV

#MRTAAA'MRD ,RMMR1T (RO)

;LOAD RMMR1

000024

177737

001142
001142

001174

RMMR1(RO) ,$BDDAT
# CWC,SBDDAT
508
#177777,8THPO

;STORE RMMR1

177777

MOV
BIC
BEQ
mov

DEC
BNE
MOV

R2
408
#16..R2

MOV

001136

508%:

000020
AR A

ERROR
BR

AR AR

;SETUP ERROR MESSAGE

SGDDAT

CLR

.08

:NUMBER OF ONE BITS

RO,$BDADR

AR AR

;LOAD RMMR1

AT S$BDDAT

37
1008

ARl Rl

;REPEAT FOR 16 BITS
:NUMBER OF ZERO BITS
Rl

égkocx ALL ZERO SYNC PATTERN AND VERIFY SYNC

013342

;LOAD RMMR1

ild]

IS NOT DETECTED

013342

012760

055401

000024

MOV

#MRIAAA'MCLK ,RMMR1(RO)

:LOAD RMMR1

013350

012760

051401

000024

MOV

#MR1AAA, RMMR1 (RO)

:LOAD RMMR1

013356
013364
013372
013374
013400
013402
013404
013404
013406
013410
013414

016037
042737
001404
005037

000024
177737

001142
001142

MOV
BIC

RMMR1(RO) , SBODAT
;STORE RMMR1 AT SBDDAT
# CWC,$BDDAT
:MAKE SURE SYNC NOT DETECTED

104037

000445

005302
001355
012702
012703

BEQ
CLR
ERROR
BR

001174
-

DEC

BNE
MOV
MoV

708
$TMPO
37
100s

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

:REPEAT FOR 16 BITS

608
#32.,R2
#000031,R3

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

ot
T

3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857

MACY11

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PT
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

MACY11

30A(1052)
T16

05-APR-78

D
14:49

7
PAGE 81

SYNC DETECTION TEST

R R

R RN

SEQ 0081

R RN

AR RN AR AR

RRR RN

:SE?EETESE BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS
013420
013426
013430
013432
013434
013442

012737

013442
013450

000241
006003
103003
052737

055401

001426

80s:

MoV

#MRTAAA!MCLK,RMMR10

ROR
BCC
BIS

R3
90$
#MRD, RMMR10

cLC

;GENERATE VALUE OF RMMR1

;CLEAR THE CARR

SSHIFT RIGHT
:BRANCH IF C BIT CLEAR
:SET MRD IF PATTER BIT SETS

002000

001426

013760
042737

001426
004000

000024
001426

MOV
BIC

RMMR10, RMMR1 (RO)
#MCLK,RMMR10

:LOAD RMMR1
:RESET BIT CLOCK

013456

013760

001426

000024

MOV

RMMR10,RMMR1 (RO)

:LOAD RMMR1

013464
013472
013500
013502
013504
013506
013514
013516

016037
042737
001006
005302
001345
012737

000024
177737

001142
001142

000040

001140

MOV
BIC
BNE
DEC
BNE

RMMR1(RO) , SBODAT
;STORE RMMR1 AT SBDDAT
# CWC,SBODAT
1008
:BRANCH IF PROM STROBE IS SET
R2
:CONTINME FOR 16 BIT CLOCKS
80

ERROR

104040

MOV

1008 :

#4C,SGDDAT

:SYNC PATTERN NOT DETECTED

:END OF TEST

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

S+TEST 17

ABORT SYNC DETECTION TEST

3 :t".tt."t'"'it'Q""'t""""'t"""'.....Qi't"'ttt"'t'tt

013516
013520
013526
013530
013536
013544
013552
013560
013560
013564
013570

000004
012737
000240
012737
112737
012737
012737

000017

001226

000024
000001
013560
013560

001120
001131
001122
001124

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

023326

013652

004737

TST17:

SCOPE
oV

#7,8TESTN

MOV
MOVB
MOV
MOV

#20. ,$1CNT
#1,SERMAX
#117,SLPADR
#117,SLPERR

MOV

#STACK, SP

MOV
MOV

001410
001436
001434
001406
001404
001402

:LOAD THE STACK POINTER

:RO = UNIBUS ADDRESS OF UUT
:R1 = POINTER TO DEVICE

MOV
MOV
MOV

#0,RMDAO
#5.RMDCO
#FMT16,RMOFO

;SECTOR 0, TRACK 0
:CYLINDER S
;16 BIT FORMAT

MOV

# C1+1,RMUCO

:WORD COUNT

MOV

#BUFFER,RMBAO

#RD'GO,RMCS10

:STARTING BUFFER ADDRESS

:READ DATA COMMAND

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

ERROR

108:

024206

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

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

104000

000447

$BASE ,RO
TSTQUE,R1

;:SET TEST NUMBER IN APT MAIL BOX

PC,ENBSCH

108

508

;GO TO 108 IF NO ERROR
;RETURN HERE

JFORCE SECTOR COMPARE USING SUBROUTINE
JSR

PC,SCTCHP

IF ERROR

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
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

013664
013670
013672
013674
013676

004737
000402

MACY11

104000
000442

30A(1052)
O05-APR-78
14:49
PAGE 82
T7
ABORT SYNC DETECTION TEST

208

508

ERROR

208%:

SEQ 0082

;GO TO 208 IF NO ERROR
;RETURN HERE

IF ERROR

;SET "LOOKING FOR SYNC'* USING SUBROUTINE

024314

104000

JSR
BR

PC,SETLFS
308

508

ERROR

000435

308:

::""""'"""""""""""."""""..""".'.'.'.".t"

sLOOKING FOR SYNC INHIBITS WORD CLOCK,HOWEVER, ''DRIVE TIMING ERROR'
;SHOULD RESET ''LFS WORD COUNT INHIBIT' FLOP
sFORCE DRIVE TIMING ERROR
013676

012760

0514461

013704
013710

012702

000020

013710

012760

055441

013716

012760

013724
013732
013740
013742
013744
013746
013754
013760
013766
013770

016037
042737
001013
005302
001361
012737
010037
062737
104041

000024

MOV

#MRTAAA NS ,RMMR1 (RO)

MOV

#16..R2

000024

MOV

#MRT1AAA'NS'MCLK,RMMR1(RO)

051441

000024

MOV

#MRT1AAA'MS,RMMR1T (RO)

;LOAD RMMR1

000024
177737

001142
001142

001140

RMMR1(RO) ,$BDDAT
# CWC,$BDDAT
508
R2
40$%

:STORE RMMR1 AT S$BDDAT

000040
001136
000024

MOV
BIC
BNE
DEC
BNE

sPULSE BIT CLOCK AND VERIFY PROM STROBE SETS
408:

001136

;LOAD RMMR1

508

AR AR

MOV
MOV
ADD
ERROR

;R2, NUMBER OF BIT CLOCKS

#WC,SGDDAT
RO,$BDADR
#RMMR1,$BDADR
41

;LOAD RMMR1

sDTE DIDNOT CLEAR WORD COUNT

R ARl
RRRRRRd])

;*TEST 20

SYNC GENERATION TEST

srkkRRRRRRRRERRRARRRRRRRRRRRRRRRRARRRRRRRRARRRARARRARRRRARRRARARORORETSY

013770
013772
014000
014002
014010
014016
014024
014032
014032
014036
014042

000004
012737
000240
012737
112737
012737
012737

000020

001226

000024
000001
014032
014032

001120
001131
001122
001124

012706
013700
613701

001100
001276
001456

014046
014054
014062

012737 000000
012737 000005
012737 010000

1ST20:

120

SCOPE

:gg

#20,STESTN

MOV
MOvVB
Mov
MoV

#20.,$1CNT
#1,SERMAX
#720,SLPADR
#720,SLPERR

Mov

#STACK,SP

MoV
Mov

001410
001436
001434

$BASE RO
TSTQUE ,R1

s:SET

TEST NUMBER IN APT MAIL BOX

;20 ITERATICNS
sONE ERROR ALLOWED
;LOAD LOOP ON TEST ADDRESS
;LOAD LOOP ON ERROR ADDRESS
;LOAD THE

STACK POINTER

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

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES
MoV
MOV
MOV

#0,RMDAO
#5,RMDCO
#FNT16,RNOFO

;SECTOR 0, TRACK 0
sCYL S
;16 BIT MODE

INH

CZRMKAO RMO3/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
40N
4012
4013
4014

4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032
4033

014070
014076
014104

012737
012737
012737

014112
014116
014120

004737
000403

014122
014126

000137

014512

014126
014132
014134

004737
000402

024206

014136
014140

054062
177776

000063

MACY11

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

001406
001404
001402

SEQ 0083

MoV

#BUFFER,RMBAO

;BUFFER ADDRESS

MoV

#WUH!GO,RMCS10

;WHITE HEAD AND DATA COM

MOV

# C2+1,RMWCO

;WORD COUNT

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

023326

PC,ENBSCH

JSR

104000

:
108:

108

ERROR

BR
JMP

;GO TO 108 IF NO ERROR
;RETURN HERE

160%
1608

H
3

ERROR

sFORCE SECTOR COMPARE USING SUBROUTINE
JSR

104000

000565

208%:
AR

PC,SCTCHP

BR
ERROR
BR
R

208

:GO TO 208 IF NO ERROR
sRETURN HERE IF ERROR
:

160%
RN

RN R

R R

R R R R R R R

RN R R RN R R RN

R AR

RN R RN RR RN

;WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED
sFIRST, VERIFY THAT WRITE GATE IS ON, INDICATING THAT
;SECTOR COMPARE SET
014140
014146
014154
014156
014162
014166
014174
014176
014200

016037
042737
001011
005037
010037
062737
104042
000545

014200
014204

012702

000016

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

016037
032737
001014
005302
001367
010037
062737
012737
104042
000520

000040
000001

014252

012760

055401

000024

014260

012760

051401

000024

014266

016003

000024

000040
177776

001142
001142

001140
001136
000040

001136
308

001136
000040
000001

MOV
BIC
BNE
CLR
MOV
ADD
ERROR
BR

RMMR2 (RO) ,$BDDAT
# CBBOO,SBDDAT
308
$GDDAT
RO,$BDADR
#RMMRZ ,$BDADR
42
160%

:STORE RMMRZ2 AT SBDDAT
;BUS BIT 0 IS WRITE GATE
:

JWRITE GATE NOT ON
sFORMAT-CS FAILURE

DURING

;STEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE
;GATE STAYS ON
408%:

001142
001142

MOV

BIT
BNE

001136
001140
50%:
60%:

DEC
BNE
MoV
ADD
MOV
ERROR
BR

4, R2

sMAXMUM NUMBER OF

RMMR2 (RO) ,$BDDAT

CLOCK

;STORE RMMRZ2 AT SBDDAT

#8800, $BDDAT
508

3
;BRANCH IF WRITE GATE ON

R2
408
RO,$BDADR
#RMMR2
, $BDADR
#8800, $GDDAT
42
160%

sWRITE GATE DROP DURING
sFORMAT - CS FAILURE

Mov

#MRTAAA!MCLK,RMMRT1(RO)

;LOAD RMMR1

MOV

#MRTAAA ,RMMR1(RO)

:LOAD RMMR1

MOV

RMMR1(RO) ,R3

;STORE RMMR1 AT R3

CZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
4034
4035
4036
4037
4038
4039
4040

014272
014276

032703
001765

014300
014302

005302
001414

MACY11

000040

BIT
BEQ

:PROM SYgg%E

#UC,R3
60%

CAHSZON-DECREHENT

BEQ

80%

;g:lT FOR PROM STROBE

014304

SEQ 0084

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

PROM STROBE

TO GO OFF,

COUNT

THEN REPEAT LOOP

4041
6042

014304

012760

055401

000024

MOV

#MRIAAA'MCLK ,RMMRT1(RO)

;LOAD RMMR1

4044

014312

012760

051401

000024

MOV

#MRTAAA ,RMMRT(RO)

;LOAD RMMR1

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
4071
4072

014320
014324
014330

016003
032703
001725
000764

000024
000040

MOV
BIT
BEQ
BR

RMMR1(RO) ,R3
#UC ,R3
40%
70%

4043
4045

4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089

014332

014334

80%:
IR

R R

:STORE RMMR1 AT R3

R R R

R R

R RN R R RN AR RN R AR R R RO RN RO RN

sVERIFY HEADER SYNC GENERATION
sWRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER
sFIRST,COUNT NUMBER OF ZERO BITS UNTIL FIRST ONE BIT

014334
014340
014342

012702
005003

000020

014342
014346
014352
014354
014356
014360
014362
014364
014366

016004
032704
001414
005203
005302
001002
104043
000452

000024
000010

014366

012760

055401

000024

MOV

#MRTAAA'MCLK,RMMRT(RO)

;LOAD RMMR1

014374
014402
014404

012760
000757

051401

000024

MOV

#MRT1AAA ,RMMR1T(RO)

;LOAD RMMR1

014404
014410
014412
014414
014416

020327
103002

000010

MoV

90%:

MOV

BIT
BEQ
INC
DEC
BNE
100%:

1108:

104043
000436

012702
005003

000010

014424
014430
014432
014436

016004
006303
032704
001002

ERROR
BR

sMAX TIMES THRU LOOP

RMMR1(RO) ,R4

;STORE

#MWD R4
1108
R3
R2
100%

43
160%

90%

RMMR1

AT Ré

;JUMP OUT OF LOOP WITH FIRST 1
s INCREMENT ZERO COUNT
sDECREMENT MAX LOOP COUNT
sHEADER SYNC

,CANT GET FIRST 1

sMAKE SURE THERE WERE AT LEAST 8 ZERO BITS IN HEADER SYNC

'208

014416
014422
014424

CLR

#16..R2

CHP
BHIS
ERROR
BR

R3,#8.
120%
43
160%

sHEADER SYNC

sSAMPLE AND STORE THE REST OF THE HEADER SYNC
MOV

#8..R2

sHEADER SYNC

000024

MOV

:gflk1(k0).i4

;STORE RMMR1

000010

BIT

#MUD R4

;SHIFT SAMPLE,IF

1308

CLR

ASL

BNE

1408

;NUMBER OF

SAMPLES

AT R4
SYNC BIT

:THEN SET SAMPLE INPUT

IS 1

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
4090
409N
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109
4110
&1
4112

6113
4114

4115

4116

4117
6118

4119
4120

6121
6122
4123
4124
4125
4126
4127
4128
4129
4130
413
4132
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145

MACYT

014440
0146444
014446

052703
005302
001407

000001

014450

012760

055401

000024

014456
014464
014466

012760
000757

051401

000024

014466
014474
014500
014506
014510
014512

012737
010337
023737
001401
104044

000230
001142
001140

001140

014512

3?361052)

1408:

1508

H
7
05-APR-78
14:49 PAGE 85
SYNC GENERATION TEST

BIS

#BI1T0,R3

BEQ

1508

DEC

SEQ 0085

MOV

#MRTAAA!MCLK ,RMMRT(RO)

;LOAD RMMR1

MOV

#MR1AAA ,RMMRT(RO)

;LOAD RMMR1

1308

;00 LOOP TIL R2=0

;VERIFY THE SYNC BIT STREAM IS 0000000010011000

001142
o8

MOV
MoV
CMP

#000230,8GDDAT
R3,$BDDAT
$GDDAT,$SBDDAT

ERROR

BEQ

160%

s INCORRECT HEADER SYNC

;;t';tt't'tttt't"t't'tttt't'tt"tt't""'tttttttttttt't.tttttttt

000004
012737
000240
012737
112737
012737
012737

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

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

014660
014664
014666
014670
014674

004737
000403

023326

000137

015472

014674
014700
014702
014704
014710

004737
000403
104000
000137

024206

104000

000021

001226

000024
000001
014554
014554

001120
001131
001122
001124

JeTEST 21

WRITE HEADER TEST

TST21:

121:

015472

R R

#21,$TESTN
#20.,81CNT
#1,SERMAX
#T721,SLPADR
#T21,SLPERR

MOV

#STACK,SP

R R

R TR RN R RN AR AR AR AR

RRRRRRRRRRR

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

$BASE RO
TSTQUE R
#CLR,RMCS2(RO)
(R1) ,RMCS2(RO)

;LOAD THE

STACK POINTER

:RO = UNIBUS ADDRESS OF uurt
sR1 = POINTER TO DEVICE
;CLEAR THE MASSBUS
;SELECT UNIT

sSETUP THE REGISTER OUTPUT BUFFER FOR SUBROUTINES
MOV
Mov
MOV
MoV
MOV
MOV

151466

002037
177776
000063

MoV
MOVB
MOV
MOV
MOV
MovY
Mov
MOVB

000010

001410
001436
001434

SCOPE
Hg;

MOV
MOV
MoV

001404
001402

#002037 ,RMDAO
#1466 ,RMDCO
#FNT16,RMOFO
#BUFFER,R2
R2,RMBAO
#151466,(R2)+

#002037, (R2)
# C2+1,RMWCO
#WH!GO,RMCS10

; TRACK 4, SECTOR 31
sCYLINDER 822.
:IN 16 BIT FORMAT
sBUFFER ADDRESS
;BUFFER STARTS
;STORE FIRST HEADER WORD

;STORE SECOND HEADER WORD
;WORD CTR = 2
;WRITE HEADER COMMAND

JEXECUTE DATA COMMAND TO POINT WHERE SEARCH IS ENABLED USING SUBROUTINE

108:

JSR
BR
ERROR
JMP

PC,ENBSCH
108

160%

;GO TO 10% IF NO ERROR
:RETURN HERE IF ERROR
3

sFORCE SECTOR COMPARE USING SUBROUTINE
JSR

ERROR

208:

JMP

PC,SCTCMHP

20%

1608

;GO TO 208 IF NO ERROR
;RETURN HERE

ERROR

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

MACY11

6146

6147
4148
4149
4150
415
4152
4153
4154
4155
4156
6157
4158
4159
4160
4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
N
6172
4173
4174
6175
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

30A(1052)
121

012702
012704

14:49

PAGE 86

WRITE HEADER TEST

014710
014714

05-APR-78

RPN PR PR

SEQ 0086
R

R R

308:

MOV

#15..R2

#33..R4

;ALLOW 15 MORE PROM STORBES

;ALLOW 33 BIT CLOCKS PER PROM STROBE

;PULSE BIT CLOCK UNTIL PROM STRC'3E IS ON

408%:

014720

012760

055401

000024

MOV

#MRTIAAA'MCLK,RMMRT1(R0O)

;LOAD RMMR1

014726

012760

051401

000024

MOV

#MRT1AAA,RMMR1(RO)

;LOAD RMMR1

014734
014740
014744
014746
014750
014752
014756

016003
032703
001004
005304
001363
000137

000024
000040

014756
014762
014764

032703
001062
005302

000200

014770
014776
015002
015006
015014
015016
015022

012737
005037
010037
062737

000200
001142
001136
000024

015022

012760

055401

000024

MOV

#MRTAAA!MCLK ,RMMRT(RO)

;LOAD RMMR1

015030

012760

051401

000024

Mov

#MRTAAA ,RMMR1(RO)

;LOAD RMMR1

015036
015042
015046

016003
032703
001404
005304
001363
000137

000024
000040

MOV

RMMR1(RO) ,R3

;STORE RMMR1

DEC
BNE
JMP

R4
60%
1608

s COUNT EXHAUSTED

015050

015052
015054
015060

015060
015066
015074
015102
015104
015110
015116
015124

RN ORI RN RN

;STEP THE DATA TIMING SEQUENCER UNTIL "‘HEADER AREA'' COMES ON

000017
000041

014720

014766

MOV

50%:

BNE
JMP

408
160%

:STORE RMMR1

AT R3

sCOUNT EXHAUSTED

sSEE IF HEADER AREA CAME ON
BIT
#PHA ,R3
BNE
80%

001015

104045
000137

#UC,R3
50%

DEC

015472

RMMR1(RO) ,R3

BIT
BNE

001140

DEC
R2
BNE
60%
;ERROR-HEADER AREA NEVER CAME ON
#PHA ,SGDDAT
$BDDAT

ADD

#RMMR1,$BDADR

MoV

001136

015472

MOV
CLR

608

ERROR
JMP

;SETUP ERROR MESSAGE

RO,$BDADR

45
160%

sHEADER AREA WONT SET
JSKIP REST OF TEST

;WAIT FOR PROM STROBE TO GO OFF

015472

BIT
BEQ

708:

#JC,R3
708

AT R3

sVERIFY THE TAG BUS ONCE EVERY PROM STROBE

016037
042737
022737
001704
010037
062737
012737
104042

000040
176000

MOV

001136
000040
000001

Mov
ADD
MOV

000001

RMMR2 (RO) ,$BDDAT

BIC
CMP
BEQ

# C1777,8BDDAT
#BB00,$BODAT
308

ERROR

RO, $BDADR
#RMMR2,$BDADR
#8800, SGDDAT

;STORE RMMRZ2 AT S$BDDAT

;WRITE GATE SHOULD BE ON
sALL ELSE OFF
;

:TAG BUS WRONG DURING FORMAT

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA P11
05-APR-78 14:38
4202
4203
4204
4205
4206
4207
4208
4209
4210
21
4212
4213
6214
6215
4216
4217
4218
4219
4220
4221
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
4256
4257

015126
015130

MACY11

000561

30A(1052)
05-APR-78
14:49
121
WRITE HEADER TEST
808%:

012702

000005

015134

012760

055401

015142
015150
015152

012760
005302
001370

051401

;DATA AFTER 5 MORE BIT CLOCKS

005037
005037
012702
012703
005004

001174
001176
001174
000020

015176
015202
015204
015210
015212
015216

016005
006304
032705
001002
052704

000024

015216

012760

055401

015224
015232
015234
015236
015240
015244

012760
005303
001360
010422
022702
101415

051401

015246
015252
015254
015260
015266
015274
015276
015300

042705
001346
010037
062737
012737
104045
000475

177577

#5,.R2

000024

MoV

#MRIAAA'MCLK,RMMRT(R0O)

:;LOAD RMMR1

000024

MOV

#MRT1AAA,RMMRT (RO)

;LOAD RMMR1

DEC
BNE
AR

R2
81%
AR

ARl

i ittt
ttid]

;SAMPLE AND STORE THE TWO HEADER WORDS

908%:
1008:

CLR
CLR
MOV

$TMPO
$TMP1
#$TMPO,R2

:R2 NUMBER OF WORDS/ADDRESS

CLR

sWORD STORAGE

MoV

#16..R3

:NUMBER OF BITS

MOV
ASL
BIT
BNE
BIS

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

000024

MOV

#MRI1AAA'MCLK,RMMRT1(RO)

:LOAD RMMR1

000024

MOV
DEC

#MR1AAA ,RMMR1(RO)
R3

;LOAD RMMR1

MOV
CMP

R4, (R2)+
#STMPO+4 ,R2

000010
000001

1108:

BNE

001200

001136
000024
000200

MOV

81%:

MR AR AL RS

015154
015160
015164
015170
015174
015176

SEQ 0087

1608

;HEADER AREA IS NOW ON CAN START SAMPLF

015130
015134

001136
001140

BLOS
JHEADER AREA
BIC
BNE
MOV
ADD
MOV

120%:
S

015300

7
PAGE 87

ERROR
BR

AR AR

1008

015302

:STORE WORD SAMPLE
;DONE ?

120%
s YES
SHOULD STILL BE ON FOR SECOND HEADER WORD
# C<PHA>,RS
90%
:BRANCH IF ON
RO,$BDADR
#RMMR1 ,$BDADR
#PHA ,SGDDAT

45
160%

RN RREERRRRRRERRRRERRRIRNERRARRRRRRRARRRRRRRRARRRS

;WAIT UNTIL ECRC SETS

005003

:STORE RMMR1 AT RS
;SHIFT WORD SAMPLE
sSET BIT O IF WRITE BIT ON

CLR

;CHECK NUMBER BITS DIFFER BET PHA AND ECRC

MOV
BIC

RMMR1(RO) ,RS
# C<ECRC>,RS

;STORE RMMR1 AT RS
sCHECK OUT THE REST BITS

MOV

#MRTAAA!MCLK ,RMMRT(RO)

125%:

015302
015306
015312

016005
042705
001026

000024
176777

015314

012760

055401

BNE

000024

127%

sBRANCH IF ECRC ON

;LOAD RMMR1

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270
427
4272
4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
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

000024

MoV

#MRT1AAA,RMMRT (RO)

001136
001140

BHI
MOV
ADD
MoV

#RMMR1,$BDADR
#ECRC,SGDDAT

INC
CMP

000020
001136
000024
001000
001142

CLR

ERROR

000441

127%:
AL

015370
015374
015376

012703
005004

000020

015376
015402
015404
015410
015412
015416

016005
006304
032705
001002
052704

000024

015416

012760

055401

015424
015432
015434
015436

012760
005303
001360
010422

051401

7
PAGE 88

K
MACY11 30A(1052)
05-APR-78
14:49
WRITE HEADER TEST
T2

;LOAD RMMR1

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

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

zEDDAT

:CLEAR THE EXP

160%

JEXIT

ARl

iRttt

*SAMPLE AND STOR E CRC WORD
MoV

SEQ 0088

CLR

MOV
ASL

BIT
BNE
BIS

RMMR1(RO) ,R5
R&
#MWD RS
1408
#BIT0,R4

000024

MoV

#MRTAAA!MCLK ,RMMRT(RO)

;LOAD RMMR1

000024

MOV
DEC

:gR1AAA.RHHR1(RO)

;LOAD RMMR1

MOV

R4, (R2)+

130%:

000010

000001

1408:

;STORE RMMR1 AT RS
sSHIFT WORD SAMPLE
;SET BIT O IF WRITE BIT ON

1308

BNE

tdd)

R R

R RN

R R R R AR R RN R AR

RRRRRRSE

;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

sORDER FROM WHICH IT WAS WRITTEN
#066313,8THPO
CMP

150%:

104047

BNE
CMP
BEQ

1508
#174040,8THP1
1508
#167501,8THP2
1608

ERROR

BNE
CMP

:
1608
SRR

AR RN

;*TEST 22

:BRANCH IF ERROR
;BRANCH IF ERROR
sBRANCH IF NO ERROR

;END OF SUB TEST

R AR RN RERNRRRRRERAARRRRRRRROERRRRRRRRRRRARRRRRRRY

HEADER COMPARE

TEST

ok RRRRRRARRRRRRORRRROORRARRRRRRRNRRRRRRRRRRRARRRRRARRRRRRRRRNSRTS

015472
015474
015502
015504
015512
015520
015526
015534

000004
012737
000240
012737
112737

012737
012737

000022

001226

000024
000001
015534
015534

001120
001131
001122
001124

1§T22:

SCOPE

MoV
NOP
MOV

MOvB

T22:

MoV
MOV

#22,8TESTN

s:SET TEST NUMBER

#20. ,81CNT

;20 ITERATIONS

#1,SERMAX
#722 ,SLPADR
#722 ,SLPERR

In APT MAL BOX

sONE 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

MACY11

6314
6315
6316
6317
4318

015534
015540
015544

4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335

015550
015556
015564
015572
015600
015606

012737
012737
012737
012737
012737
012737

001466
002037
054062
177776
010000
000073

001436
001410
001406
001404
001434
001402

015614
015622

012760

000040
000010

000010

015626
015632
015634
015636
015642

004737
000403
104000
000137

023326

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

015642
015646
015650

004737
000403

024206

015652
015656

000137

016742

015656
015662
015670
015674

010037
062737
012702
012704

4319

4336
4337

012706
013700
013701

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

001100
001276
001456

SEQ 0089

Mov

#STACK,SP

;LOAD THE

Mov

TSTQUE,R1

;R1

MOV

$BASE RO

STACK POINTER

;RO = UNIBUS ADDRESS OF uuTt
= POINTER TO DEVICE

;LOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND

111160

104000

MOV
MoV

#001466 ,RMDCO
#2037 ,RMDAO

;CyL=822.
: TRK=4 ,SEC=31.

MOV

# C2+1,RMCO

sREAD HEADER ONLY

MoV

MOV
Mov

#BUFFER ,RMBAO

:DATA ADDRESS

#FMT16,RMOFO
#RH!GO,RACS10

sCLEAR THE MASSBUS
MOV
#CLR,RMCS2(RO)
MOvB
(R1) ,RMCS2(RO)

;16 BIT MODE
sREAD HEADER AND DATA FUN

;CLEAR THE MASSBUS
;SELECT UNIT

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

ERROR

016742

108:

JMP

PC,ENBSCH

108

;GO TO 108 IF NO ERROR

2308

;SKIP REST OF

sRETURN HERE

IF ERROR

TEST IF ERROR

sFORCE SECTOR COMPARE USING SUBROUTINE
JSR

ERROR

208:

JMP

PC,SCTCMP

208

2308

;GO TO 208 IF NO ERROR
sRETURN HERE

ERROR

sREAD GATE SHOULD BE OFF FOR 3 PROM STROBES

001136
000040
000004
000021

001136

308:

015700

MOV
ADD

RO,$BDADR
#RMMR2, SBDADR

MOV

#17.,.R4

MOV

¥4 ,R2

;SETUP ERROR MESSAGE
:R2=NUMBER OF

sMAX BIT CLOCKS

PROM STROBES

408:

sCLOCK BIT CLOCK UNTIL PROM STROBE COMES ON
015700

012760

055401

000024

MOV

#MRTAAA!MCLK ,RMMRT(RO)

;LOAD RMMR1

015706

012760

051401

000024

Mov

#MRTAAA ,RMMR1 (RO)

sLOAD RMMR1

015714
015720
015724
015726
015730
015732
015736

016003
032703
001004
005304
001363
000137

000024
000040

MOV

RMMR1(RO) ,R3

016742

BIT
BNE

#4C,R3
508

;BRANCH WHEN PROM STROBE ON

JMP

2308

serrERRERRRE

DEC
BNE

50%:

;STORE RMMR1 AT R3

R4
408

JVERIFY READ GATE IS OFF AND TAG BUS IS ZERO

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

012760

055401

000024

MoV

#MRTAAA!MCLK,RMMRT(RO)

;LOAD RMMR1

015774

012760

051401

000024

MOV

#MR1AAA ,RMMR1T (RO)

;LOAD RMMR1

016002
016006
016012
016014
016016
016020
016024

016003
032703
001404
005304
001363
000137

000024
000040

MoV

RMMR1(RO) ,R3
#WC,R3
;23

016024
016026

005302
001322

000040
176000

MoV

001142
001140

[[1]

BIC
BEQ

CLR
ERROR
JMP

RMMR2 (RO) ,R3
# C1777,R3
60%
R3,$BDDAT
ggDDAT

;STORE RMMRZ2 AT R3

;BRANCH IF

TAG BUS ZERO

2308
;READ HEADER FUNCTION
60%:
;CLOCK BIT CLOCK TIL PROM STROBE GOES OFF

BIT

BEQ

016742

70%:

DEC
BNE
JMP

60%

230%

;STORE RMMR1

AT R3

sBRANCH IF PROM STROBE OFF
IRERRARRRRANRRNS

sCONTINUE FOR 3 BIT CYCLE TOTAL (LOC O NOT SAMPLED)
DEC
BNE

308

skt ARARRERARERRRRERERERRRERRERRRNARRRRERRRRRRRRARRRARRRRRRRA
R RS

;READ GATE

SHOULD COME ON WITH NEXT PROM STROBE AND STAY

;ON FOR 7 CYCLES (AND MORE)
016030
016034

012702
012703

000006
000021

MOV
#6,R2
#17..R3
80$:
MOV
;CLOCK BIT CLOCK TIL PRTMM STROBE SETS

016040

90$:

016040

012760

055401

000024

MOV

#MRTAAA!MCLK ,RMMR1(RO)

;LOAD RMMR1

016046

012760

051401

000024

MOV

#MR1AAA ,RMMR1(RO)

sLOAD RMMR1

016054
016060
016064
016066
016070
016072
016076

016004
032704
001004
005303
001363
000137

000024
000040

MOV

RMMR1(RO) ,R&
#uC R4

016076

016004
042704
022704
001410
010437
012737

SRR

—h

b —d

16102

4423
LL24
4425

015766

—

4407
4408
4409
4410
4611
4612
44613
4414
4415
44616
4417
44618
4419
4420
4621
4422

016742

—

44606

SEQ 0090

016003
042703
001407
010337
005037
104050
000137

4404
4405

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

015736
015742
015746
015750
015754
015760
015762
015766

OCOO0O0O

4370
63N
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403

MACY11

BIT

016742

100$:

BNE
DEC
BNE
JMP

;g0$

90%

230%

;STORE RMMR1 AT R4

sBRANCH WHEN PROM STROBE ON
JERRERRRRNRE

;VERIFY READ GATE ON AND REST OF TAG BUS OFF

000040
176000
000002

MOV

001142
000002

MOV
Mov

BIC
CMP
BEQ

001140

RMMR2 (RO) ,R4
¥ C1777,R4
#8B01,R4
1108
R4, $BDDAT
#8B01,8GDDAT

;STORE RMMR2 AT R4
:BRANCH IF READ GATE ON

CZRMK
CZRMK

509
509
51Q
51¢
510

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
104050
000137

ERROR

016742

JMP

016134

50
2308

SEQ 0091

s TAG BUS INCORRECT DURING
"~ ;READ HEADER FUNCTION

110%:

000024

Mov

#MRTAAA!MCLK,RMMRT(RO)

;LOAD RMMR1

22%2

016142

012760

051401

000024

Mov

#MR1AAA ,RMMR1(RO)

;LOAD RMMR1

4437
4438
4439
4440
4441
4442
4443
4hlh

016150
016154
016160
016162
016164
016166

016004
032704
001404
005303
001363
000137

000024
000040

MOV

2!?R;2R0).R4
we,
;%03

sLOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORBE
—
MOV
#17..R2
sMAX BIT CLOCKS

016176
016202

012702

4454
2222

016202

012760

055401

000024

MOV

#MRT1AAA'MCLK,RMMRT(RO)

;LOAD RMMR1

222;

016210

012760

051401

000024

MOV

#MR1AAA,RMMRT (RO)

;LOAD RMMR1

4459
4460
4461
4462
4463
4464
4465

016216
016222
016226
016230
016232
016234
016240

016003
032703
001004
005302
001363
000137

000024
000040

MOV
BIT
BNE
DEC
BNE
JMP

RMMR1(RO) ,R3
#UC,R3
1408
R2
1308
230%

4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481

016240
016244
016246
016252
016260
016264
016272
016274
016300
016300

042703
001015
010337
012737
010037
062737
104035
000137

175777

016742

012703

000005

012760

055401

000021

016742

D
b
D
— e

;BRANCH WHEN PROM STROBE ON

514
4

JVERIFY "'PLFS'" IS NOW ON

MOV

iggzfl PLFS ON,

000024

MOV

#5,R3

WORD COUNT

INHIBIT WILL

#MRTAAA'MCLK,RMMRT1(RO)

514
—

(TAV IV IVIVIVIVAVY
N

150%:

# CPLFS,R3
150%
R3,$BDDAT
#PLFS,SGDDAT
RO,$BDADR
#RMMR1,$BDADR
35
2308

—

001136

BIC
BNE
MOV
MOV
MOV
ADD
ERRCR
JMP

001140

016304
016304

AT R3

AV AV AV LV LV LV LV LV ]

001142
002000
001136
00002¢

1408:

;STORE RMMR1

Cad Lad Ll Lad Ll Ll L L L

sCLOCK BIT CLOCK TIL PROM STROBE SETS

SET

IN S BIT

:LOAD RMMR1

CLOCKS

4466

selrefl

AR ARttt
ittt
ittt ii
ittt
isdds

R2
80%

—d

;CONTINUE FOR TOATL OF 7 CYCLES
DEC
BNE

1208:
005302
001317

PO NI NI PO NV N

2308

016172
016174

1108

L MO PO PO PN

016172

;BRANCH WHEN PROM STROBE OFF

Al A

016742

AT R4

DEC
BNE
JMP

;STORE RMMR1

—

4445
4446
4447
4448
4449
4450
4451
4452
4453

BIT
BEQ

055401

d -

012760

016134

AV AV RV LV IV ]

sCLOCK BIT CLOCK TIL PROM STROBE GOES OFF

(VL AV AV IV SV SV LV AV IV IV IV RV IV LV LV IV Rl

016126
016130

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

AV R

4426
4427
4428
4429
4430
4431
4432
22%2

MACY11

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
4482
4483
4484
4485
4486
4487
4488
4489
4490
46N
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
451N
4512
4513
4514
4515
4516
4517
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

8 8
MACY11 30A(1052)
05-APR=-78 14:49 PAGE 92
T22
HEADER COMPARE TEST
000024

DEC
BNE
AR

016324
016330
016334
016334
016342
016344
016346
016350
016356

000031
000010

012737
000241
006002
103003
052737

055401

002000

001426

016356
016364

013760
042737

001426
004000

016372
016400
016402

013760

001426

1558
AR

#MRTAAA!NCLK,RMMR10

R2
165%
#MRD ,RMMR10

000024
001426

MOV
BIC

RMMR10,RMMR1(RO)
#MCLK,RMMR10

000024

MoV
DEC
BNE

RMMR10,RMMR1 (RO)

012703
012204

000020

012737
000241
006004

055401

052737

002000

001426

016462
016470

013760
042737

001426
004000

000024
001426

016476
016504
016506
016510
016514

013760
005303
001354
020227
101746

001426

000024

1658:

001174
001176
001200

1708:

175%:

001426

001200

R3
1608

012702

000006

016522

012703

000021

012760

055401

td])

;SYNC PATTERN=00011001
;8 BITS IN PATTERN

:LOAD RMMR1
:LOAD RMMR1

;CONTINUE TIL SHIFT COUNT
;1S ZERO

MoV
MoV
MOV
MOV

#$TMPO,R2
#151466,3THPO

MOV
MOV

#16.,R3
(R2)+,R4

Mov

#MRT1AAA!MCLK ,RMMR10

ROR
BCC
BIS

R4
180%

CLC

1808:

MOV

#2037 ,8THP1

IREERRARRRCONAR

#101367,8THP2

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

#MRD ,RMMR10

RMMR10,RMMR1(RO)

BIC

#MCLK ,RMMR10

MOV
DEC
BNE
CMP

RMMR10,RMMR1(RO)

BLOS

sLOAD RMMR1
sLOAD RMMR1

?;58

sSHIFT OUT 16 BITS

R2,#STMPO+4
1708

sALL DONE ?
:BRANCH IF NOT

Rl iRl
Rdd]

sLOOKING FOR SYNC SHOULD COME ON WITHIN 6 STROBES
MoV

#6,R2

185%:
#17.,R3
MoV
;CLOCK UNTIL PROM STROBE ON
190%:

016526

ittt

AR ARl
iRt
iRttt ttdsd)

MR AR AR AR AR AR AR

016516

ittt

sSIMULATE THE HEADER BEING READ

001174

103003

MoV
CLC
ROR
BCC
BIS

1608:

001426

012702
012737
012737
012737

101367

#31,R2
#8..R3

016404
016410
016416
016424
016432
016432
016436
016440
016440
016446
016450
016452
016454
016462

002037

AR ARl

MoV
Mov

MAARAA AL AR ARAR

151466

;LOAD RMMR1

sSIMULATE THE SYNC PATTERN BEING READ

012702
012703

005303
001354

:gR1AAA.RHHR1(RO)

MoV

SEQ 0092

000024

MOV

#MRTAAA!MCLK ,RMMR1(RO)

;LOAD RMMR1

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

4538
2228

016534

012760

051401

4541
4542
4543
4544
4545
4546

016542
016546
016552
016554
016556
016560

016004
032704
001003
005303
001363
000470

000024
000040

4547

4548
4549
4550
4551
4552
4553

4554

4555
4556
4557
4558
4559
4560

222;

016562

016562
016566

042704
001034

016570
016572

005302
001014

016600
016606
016612
016620
016622
016624

012737
010037
062737
104035
000447

016574

010437

Cc
8
MACY11 30A(1052) O05-APR-78 14:49 PAGE 93
122
HEADER COMPARE TEST

000024

195%:

002000
001136
000024

#MRTAAA ,RMMR1 (RO)

MOV
BIT
BNE
DEC
BNE
BR

RMMR1 (RO) , R4
#C,RG
195%
R3
1908
2308

CZRI
CZRI

3
g‘

;LOAD RMMR1

;STORE RMMR1 AT Ré

5
5
5
5
5
5

:SEE IF "PLFS" IS ON
BIC
# CPLFS,.R4
BNE
2108
;CONTINUE IF LESS THAN 6 PROM STROBES
DEC
R2
BNE
2008

175777

001142

MoV

SEQ 0093

MOV

001140
001136
2008 :

MOV
MOV
ADD
ERROR
BR

R4, $SBDDAT

#PLFS,SGDDAT
RO, $BDADR
#RMMR1,$BDADR
35
2308

5
5
5
5
3
5

;SETUP ERROR

5
3
5
5
5
5

;HEADER

;:CLOCK UNTIL PROM STROBE OFF

2222

016624

012760

055401

000024

MoV

#MRTAAA'MCLK,RMMRT(RO)

:LOAD RMMR1

2222

016632

012760

051401

000024

MOV

#MR1AAA,RMMR1 (RO)

:LOAD RMMR1

4567
4568
4569
4570
4571
4572

016640
016644
016650
016652
016654
016656

016004
032704
001724
005303
001363
000431

000024
000040

MOV
BIT
BEQ
DEC
BNE
BR

RMMR1 (RO) , R4
#4C R4
185%
R3
2008
2308

:STORE RMMR1 AT Ré

5
5
5
3
3
3

4573
23;;

4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592

4593

016660

2108 :

;VERIFY NO HEADER ERROR IS SET

016660
016666
016674
016676
016702
016706
016714
016716
016720

016037
042737
001411
005037
010037
062737
104051
000411

000014
177157

001142
001142

001140
001136
000014

001136

016720
016726
016730
016736
016740

023737
001004
023737
001401

054062

001174

054064

001176

016740

104052

016742

MOV
BIC
BEQ
CLR
MOV
ADD
ERROR
BR

RMER1(RO) , $BODAT
:STORE RMER1 AT $BDDAT
# C<HCRC'MCE'FER>,$BDDAT
2208
$GDDAT
RO, SBDADR
#RMER1, SBDADR
51
2308
;HEADER ERROR SET

2208:
;VERIFY DATA IN MEMORY OK
CMP
BUFFER,STMPO
:COMPARE 1 ST HEADER WORD
BNE
225%
CMP
BUFFER+2,$TMP1
;COMPARE 2 ND HEADER WORD
BEQ
2308
2258:
;REPORT ERROR IN ONE OR MORE HEADER WORDS
ERROR
52

2308:

;

g
5
5
5
5
5
5
5
3
3
3
5
3
5
3
5
3
3

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

4615
4616
4617

4618
4619
4620
4621
4622
4623

4624
4625
4626
4627
4628
4629
4630

4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644

4645
4646
4647
4648
4649

D 8
MACY1 3?5(1052)
05-APR=78
14:49 PAGE 94
23
ECC GENERATION TEST
AR

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

000004
012737
000240
012737

112737

012737
012737

000023

001226

000024
000001
017004
017004

001120
001131
001122
001124

012706
013700
013701
012760

001100
001276
001456
000040
000010

012737
012737
012737

002037
001466
012000
054062
001406

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

004737
000403

024476

000137

017726

017164
017170
017172
017174

104000

177400
001404
000061
177777

000400

017726

000010

001410
001436
001434

001402

TST23:

123:

SCOPE
:gg

#23,8TESTN

MoV
MOVB
Mov
Mov

#20. ,$1CNT
#1,SERMAX
#723,SLPADR
#T23,8LPERR

MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE R

MOV

iRl

iRt

Rttt

tldd)

ECC GENERATION TEST

;*TEST 23
R

SEQ 0094

AR AR

RN AR AR

RO RO RRRR

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

#CLR,RMCS2(RO)

JLOAD THE STACK POINTER
;RO = UNIBUS ADDRESS OF uUuT
sR1 = POINTER TO DEVICE

;CLEAR THE MASSBUS

MOvVB
(R1) ,RMCS2(RO)
;SELECT UNIT
sSETUP REGISTER OUTPUT BUFFER FOR WRITE DATA CAMOMMAND
MOV
MoV
MOV

#002037 ,RMDAO
;TRK &, SEC 31
#1466 ,RRDCO
;CyL=822.
#FMT16'HCI ,RMOFO
;16 BIT FORMAT,IGNORE HEADER

MOV
MOV
MOV

R2.RMBAO
# C256.+1,R3
R3.RMWCO

MOV

MoV

#BUFFER,R2

#WD'GO,RNCS10

sFILL THE DATA BUFFER WITH ALL ONES
108:

MoV
Mov
Mov

DEC
BNE

77777
.R4
#400,R3
R4, (R2)+

sDATA ADDRESS

;WRITE DATA COMMAND #++
:DATA PATTERN ALL ONES

sONE SECTOR DATA FIELD

R3
108

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

ERROR

PC,ENBSCH

208

JMP

2208

JSR

PC,SCTCHP

;GO TO 208 IF NO ERROR
sRETURN HERE

ERROR

:
208
JFORCE SECTOR COMPARE USING SUBROUTINE
BR

ERROR

:
308

JMP

308

2208

;GO TO 308 IF NO ERROR
sRETURN HERE

sSET "LOOKING FOR SYNC'' USING SUBROUTINE

408:

JSR
BR
ERROR
JMP

PC,SETLFS
40%

2208

sCLOCK THE SYNC PATTERN USING SUBROUTINE
JSR

BR
ERROR
JMP

PC,CLKSNC

508

2208

ERROR

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
467
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

MACY11

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

SEQ 0095

;HEADER COMPARE IS INHIBITED FOR THIS TEST

;CLOCK THE DATA TIMING SEQUENCER AND VERIFY THE FOLLOWING WAVEFORMS
;FOR EACH LEADING EDGD OF

:
:

017200

012702

017732

017204

PROM STROBE

HEADER ARES, READ GATE (DATA TIMING SEQUENCER=200 OCTAL)
ENABLE CRC OUT

WRITE GATE

508:

Mov

#2308 ,R2

steevesr POINTER TO WAVE FORM TABLE

708:

017204
017210

004737

017210
017216
017224
017230
017236

016037
042737
012237
023737
001410

000024

017240
017244
017252
017254
017260

010037
062737

001136
000024

000137

017726

017260
017266
017274
017300
017306

016037
042737
012237
023737
001410

000040
176000
001140
001140

017310
017314
017322
017324
017330

010037

001136
000040

017330
017334

004737

020060

017334
017340

020227

017750

sCLOCK BIT CLOCK (MCLK) UNTIL PROM STROBE COMES ON
o8
JSR
PC,3008

017752

;PROM STROBE IS ON = VERIFY WAVEFORM

104054

176157
001140
001140

001142
001142

001142

001136

MOV
BIC
MOV
CHP
BEQ

RMMR1(RO) ,$BDDAT
;STORE RMMR1 AT S$BDDAT
# C<ECRC'PDA'PHA'EECC>,$BDDAT
(R2)+,8GDDAT
$SGDDAT ,$SBDDAT
90%
:BRANCH IF RMMR1 0K

ADD

#RMMR1,$BDADR

JERROR = THE DATA TIMING SEQUENCER OUTPUT IS ONCORRECT
MOV
RO,$BDADR
08

ERROR
JMP

54
2208

sDATA TIMING SEQUENCER WRONG

;VERIFY THE TAB BUS

062737
104053
000137

103721

017726

001142
001142

001142

001136

012702

000011

017346
017352

004737

017752

017352

016004

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

ADD

#RMMR2, $BDADR

$GDDAT,$BDDAT

100%
JERROR- TAG BUS IS WRONG
MOV
RO,$BDADR

:
1008

ERROR
JMP

;STORE RMMR2 AT $BDDAT

;BRANCH IF

53
2208

TAG BUS 0K

;TAG BUS WRONG

;CLOCK BIT CLOCK TIL PROM STROBE RESETS

1108

JSR

PC,3508

;CONTINUE CHECKING THROUGH 4 PROM CYCLES
CMP

BLO
SRR

017342
017346

Mov
BIC
MOV
CMP
BEQ

R2,#2308+16

erRRtRRe

R R R RN RN AR

RN RRRRRRRARRARRRR

708

R R

sVERIFY THAT DATA AREA COMES ON WITHIN
—

Mov

#9..R2

9 PROM STROBES

;R2=9 STROBES

;CLOCK PROM STROBE ON
:
1408

JSR

PC,3C08

;PROM STROBE ON CKECK IF DATA AREA ON

000024

Mov

RMMR1(RO) ,R4

AR AR

;STORE RMMR1

AT R4

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
4706
4707
4708
4709
4710
4711
4712
2;}2

017356
017362

042704
001020

177377

017364
017364
017370
017372

004737
005302
001365

020060

4715
4716
4717
4718
4719

017374
017402
017406
017412
017420

012737
005037
010037
062737
104055

0004C0
001142
001136
000024

016003
042703
022703

000024
177357
000400

017446
017452
017460
017464
017472
017474
017476

010337
012737
010037
062737
104055
000514

001142
000400
001136
000024

017476

004737

020060

017502

004737

017752

017506
017510

005302
001347

017512
017514

005002

017514
017520
017524
017530
017532

076003
042703
022703
001426
005202

000024
177357
000020

2;2;

017534

012760

055401

4759
4760
4761

017542
017550
017554

012760
022702
101357

051401
000007

# CPDA,R4

JSR
DEC
BNE

PC,3508
R2
1308

MOV

#PDA,SGDDAT

SEQ 0096

001140

001136

$SBDODAT
RO,$BDADR
#RMMR1,$BDADR
55
2208

CLR
MOV
ADD
ERROR
8R
AR

R R

;SETUP ERROR MESSAGE

R RN RN RN R RN RN RN AR RN RN AR

RRRRN

;VERIFY THAT DATA AREA IS ON FOR 256 CYCLES

000400

1708

Mov

#256..R2

;VERIFY THAT DATA AREA IS ON AND ECC IS OFF

#PDA,SGDDAT

ERROR
BR

55
2208

RO,$BDADR
#RMMR1 ,$BDADR

AV AV A, ]

;DATA ERROR NOT ON

N
N
AN LN AN

N AN

CLR
MoV

RMMR1(RO)
,R3

;STORE RMMR1 AT R3

BIC
CMP
BEQ
INC

# C<PDA'EECC>,R3
#EECC,R3
1908
R2

00002«

MOV

#MRTAAA!MCLK,RMMRT(RO)

;LOAD RMMR1

000024

Mov
CMP
BH!

IHRASAA.RHHR1(RO)
",
182%

:LOAD RMMR1

182%:

1708
BE ENABLED WITHIN & CLOCK BITS

N L

DEC

;CLOCK PROM STROBE OFF
JSR
PC,3508
;CLOCK PROM STROBE ON
JSR
PC,300%
;CONTINUE TIL COggT ZERO

BNE
;ECC SHOULD

R3,$BDDAT

LN AN L

180%:

AT R3

MOV

MOV
ADD

001136

;STORE RMMR1

# C<PDA'EECC>,R3
#PDA,R3
1808
;DATA AREA IS ON

MOV

001140

RMMR1(RO) ,R3

BIC
CMP
BEQ

LN L

001414

MOV

AN LN LN L

017444

BIC

;ERROR=DATA AREA DIDN'T COME ON

017430
017434
017440

4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756

1508%:

:
1608

012702

ECC GENERATION TEST

8
PAGE 96

BNE
160%
:CLOCK PROM STROBE OFF

000541

017424
017430

F
14:49

05-APR-78

017422
017424

3?3;1052)

(W AV AV LV LV N LV LV LV LV RV AN AV LV LV LV LV LV LV AV A

4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
2;2?

MACYTT

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
4762
4763
4764
4765
4766
4767
4768
4769
4770
477
4772
4773
4774
4775
4776
“777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817

017556
017562
017570
017574
017602

010337
012737
010037
062737
104056

001142
000020
001136
000024

017604
017606

000450

017606
017612
017614
017620

012702
005003
012704

001174

017620
017624

000024

017632
017634

016005
006303
032705
001002
052703

017640

012760

055401

017646
017654
017656
017660
017662
017666

012760
005304
001360
010322
022702
101351

051401

017626

017640

MACY11

3?3;1052)

MoV

001140

001136
190%:

1958:

000020

200%:

000010

#EECC,SGDDAT

RO,$BDADR
#RMMR1,$BOADR

56
2208

Mov
(LR
MOV

#$TMPO,R2
R3
#16. R4

MOV
ASL
BIT
BNE

RMMR1(RO) ,RS
R3

;STORE RMMR1 AT RS

BIS

#MWD RS
205%
#BITO,R3

000024

MOV

#MRTAAA'MCLK ,RMMRT(RO)

:LOAD RMMR1

000024

MOV
DEC
BNE
MoV
CMP

#MRTAAA,RMMR1(RO)
R4
2008
R3,(R2)+
#STMPO+4
,R2

;LOAD RMMR1

000001

205%:

001200

131177

001174

175154

001176

131177
175154

001200
001202

000137

020164

017732
017734
017736
017740
017742
017744
017746
017750

000200
000002
000200
000002
000000
000002
000000
000000

017752

012737

CMP

055401

000024

R R

R R RN R R

2108:
2208

3008:
:
305%:

#131177 ,8THPO

2108
#1751564 ,STHP1
2208
#131177,8THP2
#175154,8TMP3
61

JMP

4008

.WORD

(MWD INVERTED)

R R AR R R R RN R AR

RRRRRRR

weveenen

;wenre
;renene
;ttexen

sECC GENERATED INCORRECT

sGREAT ESCAPE

PHA

.WORD

BBO1

.WORD
.WORD

BBO1
0

.WORD

017760

BNE
CMP
BEQ
Mov
MOV
ERROR

.WORD

020054

sVERIFY ECC CHARACTER GENERATED

2308%:

000021

;BRANCH IF ECC BIT OFF

1958

BHI

022737
001004
022737
001407
012737
012737

012760

MoV
ADD
ERROR
BR

;SAMPLE ECC CHARACTER FOR 32 BITS

017670
017676
017700
017706
017710
017716
017724
017726
017726

017760

SEQ 0097

R3,$BDDAT

MOV

104061

G 8
05-APR-78
14:49 PAGE 97
ECC GENERATION TEST

PHA
2

JRERERER

.WORD

JRERRER

.WORD

mov

#7.,3208

MoV

#MRTAAA!MCLK ,RMMRT(RO)

CLOCK PROM STROBE ON
;LOAD RMMR1

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA L1
05-APR-78 14:38
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
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

MACY11

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

017766

012760

051401

000024

Mov

#MRTAAA ,RMMRT(RO)

017774

016037
042737

000024

020056
020056

MOV

RMMR1(RO),330%
# CWC,3308

005337
001360
013737
012737
010037
062737

020054
001142
001140

MOV
MOV
MOV
ADD

020002
020010
020012
020016
020020
020026
020034
020040
020046
020050
020052
020054
020056

104030
000445
000207
000000
000000

020060

012737

001020

177737

020054
000040
001136
000024

BIC
BNE
DEC
BNE

001136

020160

;STORE RMMR1 AT 330%

sEXIT IF PROM STROBE ON

;SETUP ERROR MESSAGE

#UC,SGDDAT

RO,$BDADR

#RMMR1,$BDADR

400%

3308:

.WORD
.WORD

0
0

sMAX BIT COUNT
;RMMR1 CONTENTS

3508:

Mov

#17.,370%

RTS

;CLOCK PROM STROBE OFF

355%:

020066

;LOAD RMMR1

ERROR
BR

3108:
3208%:

000021

3108
3208
305%
3208 ,8BDDAT

SEQ 0098

020066

012760

055401

000024

MOV

#MRTAAAMCLK ,RMMR1(RO)

;LOAD RMMR1

020074

012760

051401

000024

Mov

#MRTAAA ,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

000024
177737

020162
020162

Mov

RMMR1(RO) ,380%
# CWC,380%

000207

3608:

020160
020162

000000
000000

370%:
3808:

020164
020164

000240

104062
000403

BIC
BEQ
DEC
BNE

020160
020162
001140
001136
000024

001142

000024

001226

012737
012737

000024
000001
020230
020230

001120
001131
001122
001124

012706

001100

112737

RTS

.WORD
.WORD

0
0

igTZL:

T24:

sCAN''T CLEAR PROM STROBE

4008

sMAX BIT COUNT
;CONTENTS OF RMMR1

;SUB=TEST EXIT POINT

NOP

000004
012737
000240
012737

ERROR
BR

J*TEST 24
020166
020170
020176
020200
020206
020214
020222
020230
020230

$GDDAT
RO,$BDADR
#RMMR1,$BDADR

CLR

MOV
ADD

4008%:

AT 380%

3608
3708
3558
3808 ,$BDDAT

Mov

001136

;STORE RMMR1

seeee
R

R R

RN R R R R

R R

R RN R R R RN RN R R

RRRRRRR

ECC DETECTION TEST
R

SCOPE

R R

R RN R R R R RN RN

RN RN RRRRRRRARSE

MOV
NOP
MoV
MOVB
MOV
Mov

#24 ,$TESTN

;:SET TEST NUMBER IN APT MAIL BOX

#20. ,8ICNT

;20 ITERATIONS

MoV

#STACK,SP

#1,SERMAX

#724 ,SLPADR
#7264 ,SLPERR

;ONE ERROR ALLOWED

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

THE

STACK POINTER

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
4874
4,875
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
49
4912
4913
4914
4915
4916
4917
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

020340
020344
020346
020350
020354

004737
000403

024206

020354
020360
020362
020364
020370

004737
000403

020370
020374
020376
020400

004737
000403
104000
000137

104000

104000
000137

MACY11 30A(1052)
T24

ECC DETECTION TEST
Mov

000010

001410
001436
001434
001404
001402

$BASE ,RO

TSTQUE ,R1
#CLR,RMCS2(RO)

MOV
MoV
MOV
MOV
MOV

#1466 ,RMDCO
;CYL=822. TRK =4, SE(C=31
#FMT16!HCI,RNOFO
;INHIBIT HEADER COMPARE
#BUFONE ,R2
R2,RMBAO
# (256.+1,RMWCO
;256 WORDS

208

MoV

#RD!GO,RNCS10

PC,ENBSCH

308

ERROR

30%:

;FORCE

JMP

SECTOR

40%:

PC,SCTCHP

40%

JMP

1908

JSR

ERROR

;G0 TO 408 IF NO ERROR

sRETURN HERE

ERROR

508:

JMP

508

1708

sCLOCK THE SYNC PATTERN USING SUBROUTINE
JSR

BR
ERROR
JMP
AA AR A

AR AR

PC,CLKSNC

55%

1908
ARl

000002

558

#2,R2

021310
021202

60$:

001142
175777
001140
001136

ERROR

PC,SETLFS

sHEADER COMPARE

010337
042737
005037
010037

JSET "'LOOKING FOR SYNC'* USING SUBROUTINE

020442
020446
020454
020460

sRETURN HERE

COMPARE USING SUBROUTINE

ERROR

021176

00002¢
002000

sREAD DATA COMMAND

;GO TO 308 IF NO ERROR

190%

JSR

024476

016003
032703
001421
005302
001364

;R1 = POINTER TO DEVICE
;CLEAR THE MASSBUS

MOvB
(R1) ,RMCS2(RO)
;SELECT UNIT
;SETUP REGISTER OUTPUT BUFFER FOR READ DATA COMMAND
MOV
#2037 ,RMDAO

JSR

021176

020424
020430
020434
020436
020440

;RO = UNIBUS ADDRESS OF uuTt

MoV
Mov

024314

012702
000405
004737
004737
000240

SEQ 0099

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

021176

020404
020410
020412
020416
020422
020424

8
PAGE 99

1
14:49

05-APR-78

R Rt
ds ]

INHIBITED FOR THIS TEST

:"'LOOKING FOR SYNC'' SHOULD GO OFF WITHIN ONE CYCLE

708:

MOV
BR
JSR
JSR

NOP

MoV

BIT

001142

708
PC,3508
PC,3008

RMMR1(RO) ,R3

#PLFS,R3

;ALLOW 2 PASSES THRU LOOP
;RESET PROM STROBE
;SET PROM STROBE

;STORE RMMR1

AT R3

BEQ
80%
;BRANCH IF LOOKING FOR SYNC OFF
DEC
R2
BNE
608
;ERROR-LOOKING FOR SYNC DID NOT RESET DURING HEADER
MoV
R3,$BDDAT
;SETUP ERROR MESSAGE
BIC
# CPLFS,$BDDAT
CLR
$GODAT
MoV
RO,$BDADR

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
4930
4931
4932

4933

4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
34
4972

4973
4974

4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985

020464
020472
020474
020500

062737

000024

000137

021176

104040

MACY11

001136
80%:

012702
004737
004737

000011
021310
021202

020514
020520
020524
020526
020530

016003
032703
001022
005302
001365

000024
002000

020532
020540

012737
010337

002000
001142

001140

020544
020552
020556
020564
020566
020572
020572

042737
010037
062737

001136
000024

175777

001142

004737

021310

020576
020602
020604
020606
020610

004737
000402

024476

AR A

AR AR

JSR

PC.300%

;SET STROBE OFF

MoV
BIT

RMMR1(RO) ,R3
#PLFS,R3

;STORE RMMR1 AT R3
:

DEC
BNE

R2
85$

057401

020626
020634
020636
020640
020642

012760
005303
001370
005302
001364

053401

177446
015457

052704

002000

001174
000020
055401

:BRANCH IF SYNC ENABLED

MOV

#PLFS,SGDDAT

BIC
MOV
ADD

# CPLFS,SBDDAT
RO,$BDADR
#RMMR1,$BDADR

R3,$BDDAT

35
1908

;CAN'T SET PLFS DURING DATA

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

PC,CLKSNC

1008

B8R
AR AR

190%
AR

AR ARttt

sSIMULATE READ DATA
MOV
MOV

#256. ,R2
#16. ,R3

000024

MOV

#MRTAAA!MRD !MCLK ,RMMR1(RO)

000024

MOV

#MRTAAA!MRD ,RMMR1(RO)

DEC
BNE

R2
1108

110%:
115%:

DEC
BNE
AR A

012737
012737
012702
012703
012704
000241
006012

;SET PROM STROBE

908

ERROR
JMP

90s$:

012760

Al ARttt
iRttt itddld)

PC,.3508

MoV

100%:

020620

ARl

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

001136

000573

000400
000020

#9.,R2

ERROR

012702
012703

Mov

BNE

021176

020610
020614
020620

sPLFS NOT RESET AGTER HEADER

1908

JSR

85%:

104000

103002

#RMMR1,$BDADR
40

SEQ 0100

:LOOKING FOR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM CYCLES

020500
020504
020510

020644
020652
020660
020664
020670
020674
020676
020700
020702

ADD
ERROR

JMP

104035
000137

8
PAGE 100

30A(1052)
05-APR-78 14:49
T24
ECC DETECTION TEST

001174
001176

AR A

AR AR A

R3
1158

SSIMULATE ECC PATTERN
120%:
125%:

;WORD COUNT
;BIT COUNT

#177446,3THPO
#015457 ,$TMP1
#$THPO,R2
#16. ,R3

BCC

1308

BIS

#MRTAAAMCLK,
RS

(R2)

#MRD R4

;LOAD RMMR1

AR AR
R ]}

MOV
Mov
MOV
MOV
Mov
CLC
ROR

;LOAD RMMR1

;FIRST ECC WORD
;SECOND ECC WORD

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA PN
05-APR-78 14:38
4986
4987
4988
4989
4990
49N
4992
4993
4994
4995
4996
4997
4998
4999
5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012

5013
5014

MACY11

020706

K
30A(1052)
05-APR-78
14:49
T24
ECC DETECTION TEST

8
PAGE 101

SEQ 0101

130%:

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
001752

000024

MOV
DEC

R4 ,RMMR1(RO)
R3

;LOAD RMMR1

020740

012702

000005

020744
020750

004737
004737

021202
021310

JSR
JSR

PC.,300%
PC,350%

;SET PROM STROBE
;CLEAR PROM STROBE

020754
020760
020764
020766
020770
020772
020776
021002
021006
021012
021020
021022
021024

016003
032703
001417
005302
001365
042703
010337
005037
010037

000024
000400

MOV
BIT

RMMR1(RO) ,R3
#PDA,R3

:STORE RMMR1

177377
001142
001140
001136
000024

DEC
BNE
BIC
MOV
CLR
MOV
ADD

R2
1408
# CPDA,R3
R3,$BDDAT
$GDDAT
RO,$BDADR
#RMMR1,$BDADR

021024
021030
021034
021036
021042
021046
021052
021060
021062
021064

016003
042703
001413
010337
005037
010037
062737
104053
000445

062737
104063
000465

BNE
125%
;CLOCK A WORD
ADD
#2,R2
#S$TMP1,R2
CMP
BEQ
1208
;CLOCK THE NEXT WORD
JVERIFY DATA AREA AND READ GATE RESET
MOV
#5.R2

000002
001176

1408 :

BEQ

001136
150%:

MOV

001142
001140
001136
000040

CLR
MOV
ADD

176000

001136
160%:
SRR

1508

ERROR
BR

000040

63
190%

RMMR2(RO) ,R3

BIC
BEQ
MOV

# C1777,R3
160%
R3.,$BDDAT

ERROR
BR

53
190%

$GDDAT
RO,$BDADR
#RMMR2 ,$BDADR

R R RN

sVERIFY 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

001140

MOV

CMP
BEQ

MOV
MOV
ADD

001136
:
1708
s

ERROR
BR

AT R3

;SETUP ERROR MESSAGE

:DATA AREA WON'T RESET

;STORE RMMR2 AT R3

;READ GATE WON'T RESET

R R RRR R R RRRRERRRRERNERRRRRRRARARAARRRRRRRRRRRS

ECC ERRORS

RMER1(RO) ,R3

# C<DCK'ECH>,R3

;STORE RMER1 AT R3

#000000,$GDDAT
$GODAT,R3
1708
R3,$BDDAT
RO, $BDADR
#RMER1,$BDADR

64
190%

AR AERRRRLERCERREERRRRRNERRNRARAONRRRRRRRERARRARARARRRRRRRNRRRETY

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

5056
5057
5058

5063

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
T24
ECC DETECTION TEST

8
PAGE 102

;VERIFY DATA BUFFER

SEQ 0102

012702 054062
012703 177777
012704 - 000400
022203
001003
005304
001374
000407
014237 001142
010337 001140
010237 001136
104065
000137 021414
012737 000021

021304

021210

012760

055401

021216

012760

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

310s8:

021306

000000

3308:

021310

012737

000021

021410

021316

012760

055401

000024

Mov

#MRTAAA!MCLK,RMMRT1(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
001417005337
001360
013737
005037
010037
062737
104062

00002¢
177737

021412
021412

MOV

RMMR1(RO) ,3808
# CW(C, 3808

001142

MoV

001136

MOV
ADD

180%:

185%:

MOV
MOV
MOV

CMP
BNE
DEC
BNE
BR
MOV

#CUFONE ,R2

;DATA WAS STORED HERE

R4
180%
1908
=(R2) ,$BDDAT

;EXIT IF ALL THE LOCATIONS CHECKED
;SETUP ERROR MESSAGE

2177777 ,R3
#256. R4
(R2)+,R3
185%

;EACH WORD ALL ONES

ERROR
JMP

R3,SGDDAT
R2,$BDADR
65
400%

000024

MoV

#MRTAAA!MCLK,RMMRT(RO)

;LOAD RMMR1

051401

000024

MOV

#MR1AAA RMMR1T(RO)

;LOAD RMMR1

000024
177737

021306
021306

MOV

RMMR1(RO) ,3308
# CW(C, 3308

001142
001140

MOV
MOV
MOV
ADD

021210

1908 :

#17.,320%
300%:
MOV
;CLOCK PROM STROBE ON
305%:

BIC
BNE
DEC
BNE

021304
021304
000040
001136
000024

001136

000000

3208:

021316

021410
021412
001140
001136
000024

MOV
MoV

3108
3208
305%
3208 ,$BDDAT

#WC,SGDDAT

30
4008

.WORD

;STORE RMMR1 AT 330%

;EXIT IF PROM STROBE ON
;SETUP ERROR MESSAGE

RO,$BDADR
#RMMR1,$BDADR

ERROR
BR

RTS

sDATA INCORRECT DURING READ
;GREAT ESCAPE

#17.,3708
3508:
MOV
OFF
STROBE
;CLOCK THE
:
355%

BIC
BEQ
DEC
BNE
CLR

ERROR

;STORE RMMR1 AT 380%

3608
3708
3558
3808 ,$BDDAT
$GDDAT
RO,$BDADR

#RMMR1,$BDADR

;CAN'T CLEAR PROM STROBE

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
5098
5099
5100
5101
5102

021404
021406
021410
021412
021414

000403
000207
000000
000000
000240

MACY11

L
30A(1052)
05-APR-78 14:49 PAGE 103
T24
ECC DETECTION TEST

360%:
3708:
3808:

400$:

400%

WORD
.WORD

0
0

RTS

NOP

;SUB=TEST EXIT POINT

SEQ 0103

0O NN
W —

021416
021416
021420
021424
021430
021434
021436
021440
021444

000240
013700
062700
010037
005710
001402
000137
012737

N
MACY11 30A(1052)
05-APR-78 14:49
124
ECC DETECTION TEST
$EOSP:

004414
001460

TSTQUE ,RO
ADD
#2.R0
MOV
RO, TSTQUE
(RO)
TST
1%
BEQ
READY
JMP
#TSTQUE+2,TSTQUE
MOV
END OF PASS ROUTINE

MOV

001456

1%:
.SBTTL

soRtRRARRERRRRRRRRRRERCERRRRRORARCRNAORRRRACERRRAARAARAARARRA
AR RS

D
D

*INCREHENT THE PASS NUMBER (SPASS)
;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY"'
s *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;'IF THERES A MONITOR GO TO IT

—
-

(W RV LV

8
PAGE 104

NOP

001456
000002
001456

d
i

D ad d
i i i

W AW AV LW AV, ]

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

s*IF THERE ISN'T JUMP TO READY
021452
021452
021454
021460
021464

021470
021476

021500
021502
021504
021506
021510
021512
021516

021536
021536
021542
021544
021550

021614
021614

5154
5155

5158

021620
021622
021626
021632
021636
021640
021642
021644
021646
021650
021652
021652
021654

000240
005037
005037
005237
042737
005327
000001
003063
012737
000001
021500
104401

000407
013746

104405

104401
000421

013746
104405
104401

005037
013700
001405
000005
004710
000240
000240
000240
000137
004414

$EOP:

001116
001206
001230
100000

001230

NOP
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT

SENDCT:

021520
64%:

$DOAGN
%PC)*.G(PC)*

;s YES
;;RESTORE COUNTER

TYPE
BR

.65%
64%

s:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

$PASS,~(SP)

.WORD
SEOPCT

669%:

::SAVE SPASS FOR TYPEOUT

::TYPE PASS NUMBER

::6G0 TYPE--DECIMAL ASCII WITH SIGN

B8R

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

SERTTL,~(SP)

;sSAVE SERTTL FOR TYPEOUT
;s TOTAL NUMBER OF ERRORS
2:G0 TYPE--DECIMAL ASCII WITH SIGN
ssTYPE CARRIAGE RETURN, LINE FEED
ssCLEAR ERROR TOTAL
::GET MONITOR ADDRESS
;sBRANCH IF NO MONITOR
J:CLEAR THE WORLD
2:G0 TO MONITOR
;:SAVE ROOM
;:FOR

TYPDS

' TYPE
CLR

$GET42% MOV

BEQ
RESET
$SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP

SRTNAD:

<12><15>/END PASS #/

.67%
66%

LASCIZ

::67%:

001217
001126
000042

MOV

TYPDS
TYPE

021552

001126

::ZERO THE TEST NUMBER
;:ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
s:DON'T ALLOW A NEG. NUMBER
::LOOP?

_ASCIZ

::65%:

001230

$STSTNM
S$TIMES
$PASS
#100000,$PASS
%PC)*

.WORD

TOTAL ERRORS SINCE LAST REPORT /

.SCRLF

SERTTL
a#é2 RO
$DOAGN

PC. (RO)

J:ACTN

a(PC)+
READY

: sRETURN

’

SEQ 0104

CZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14: 38

MACY11

30A(1052)

377
021662

377

Y 5 . S0

05-APR-78
END OF PASS ROUJ
INE

000 SENULL: .BYTE

B
14:49

!=1,-1,0
§

.EVEN

cwaw

021656

Aol

R e

N B

PAGE 105

s sNULL CHARACTER STRING

CElEN
R $ $

$z
SERSRSRNSSNTTTTTTNSSEEETTTTNRETR
WY
T
A
e
ST
e e W
v
v

°g

SE@ 0105

CZF
CZF
tmlALALIRLALA LA IALALALALALALALALALALALALALALALALALALALALALALALALALALALALALALAWVIWLALWLALALWLAWLAWLILAWLALAWLAWLAWLA
L AL WLALWLN

5159
5160

e— ~ |~

®om wme

MACY11

5161
5162
5163
5164
5165
5166
5167
5168
5169
5170
517N
5172

5180
5181
5182
5183
5184
5185
5186

5187
5188
5189
5190
5191
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

.
14:49

O05-APR-78

SUBROUTINES
.SBTTL
AL

PAGE 106

SEQ 0106

SUBROUTINES

AAAAA

.SBTTL

ittt

iitiiiistsd]

ERROR TYPEOUT ROUTINE

;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
;*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:
* %

+UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE

.ERROR MESSAGE IS ASSEHBLED FORMATTED AND PRINTED ON

'PRINTED ON THE

FIRST LINE;

s*ONE OR MORE SUCCEEDING LINES:

5173

5174
5175
5176
5177
5178
5179

30A(1052)

i
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
*ARE PRINTED AFTER THE ERROR MESSAGE.

021662
N21662
021664
021672

021674

021700
021704
021710

021714
021716
021717
021720
021724
021732
021736

021742
021744
021745
021746
021752
021760
021762
021766

021772
021774
021775
021776
022002

104414

ERRTYP:

032777
001402
000137

020000

104401
104401

001217
022426
001234

013746

157262

022412

BIT

BEQ
JMP

is:

104401

013746
104403
003
000

005037
113737
001406
104401

013746

.BYTE
.BYTE

CLR
Mov
TYPE
Mov

022416

TYPOS

022420
001130

.BYTE
.BYTE

CLR
Move
BEQ
TYPE
MoV

022420

022444
022420

104403

003
000

104401

013746

022006
022010
022011

104403

022012
022016
022020
022024

005737
001575
104401

TYPOS

022453
001132

2%:

.BYTE
.BYTE
TYPE

Mov

TYPOS

006
001

105037

TYPE

TYPE
MoV
TYPOS

022416
001226
022434
022416

022420

001217
022424

#SW13,aSWR
1%
213

;TYPE UNIT NUMBER,

104403
003

000
005037
013737

SAVREG

TEST NUMBER,

SCRLF

LERTY0O
SUNIT,-(SP)

3
0

TSTNMB
STESTN,TSTNMB
LERTYO1
TSTNMB,~(SP)

3
0

ERRNMB
SITEMB,ERRNMB
2%
LERTYO02
ERRNMB,~(SP)

3
0
LERTYO3
SERRPC,-(SP)

.BYTE
.BYTE

6
1

BEQ

21%

CLRB

BOTFLG

sINHIBIT TYPEOUTS??
;NO!!

§YES!Y
ERROR NUMBER, AND PROGRAM COUNTER

sTYPE ""UNT#H"

::SAVE SUNIT FOR TYPEOUT

;:TYPE UNIT NUMBER

::60 TYPE--OCTAL ASCII

ssTYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS
:LOAD TEST NUMBER FOR
:TYPE "'TST#"

;:SAVE TSTNMB FOR TYPEOUT
;s TYPE TEST NUMBER
::60 TYPE--OCTAL ASCII
ssTYPE 3 DIGIT(S)
s sSUPPRESS LEADING ZEROS
;LOAD ERROR NUMBER FOR

sTYPEOUT

sSKIP IF NO ERROR CALLED
sTYPE "'ERR#"

::SAVE ERRNMB FOR TYPEOUT
::TYPE ERROR NUMBER
;G0 TYPE=--OCTAL ASCII
ssTYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS
:TYPE "'PC="'
:sSAVE SERRPC FOR TYPEOUT
;s TYPE PROGRAM COUNTER
::G0 TYPE=--OCTAL ASCII
:sTYPE 6 DIGIT(S)
::TYPE LEADING ZEROS

:GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0
3s:
TST
ERRNMB
::s§.nu ERROR CALLED?
TYPE

.SCRLF

SYES-TYPE CRLF

:CLEAR BOT FLAG

CZFR
CZFR
ARLALALALALALALALALALALALALALALALALALALALALALALALALALALALALALALALALWALALALALALALAWVALALALRALALALALAWLALA
LA\ LA WA WA UM

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

5248
5249
5250

5256
5257

5271
5272

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

5%:

000015

022425
000012

6%:

000011
022425

7%:

8$:

022425
000040
022425

022422

022424

12%

CLR

MovB
BEQ
CMPB

BNE
CLRB
BR
CMPB
BEQ
CMPB

BNE

INCB
BITB
BNE
BR

INCB
CMPB
BNE
MoV
CMPB
BHIS
MOV

BNE
TYPE
CLRB

001217
022425
022230
177777

BEQ

:TYPE THE ERROR MESSAGE
MoV
4%:
(R1)+,R2
12%
BEQ
Mov
R2.,11%

022230
022422

022422
000100

CHRCNT
ERRNMB,RO
RO
RO
RO
#SERRTB-8.
RO
(RO) ,R1

CLRB

001522

022425
000007

MoV
ASL
ASL
ASL
ADD
Mov

MOV

022424

90s$:

118:

BR
CLRB
MovB
TYPE
.WORD
TSTB

BEQ
TYPE
CLRB
CLRB
MoV

001217
022424
022425
022422
022230
000040

Mov
MOvB
TSTB

128:

BOTADR
(R2)+,R3
108
#CR,R3
6%
CHRCNT

b} 3

#LF ,R3
5%
#HT R3
8s
CHRCNT
#7,CHRCNT
7%
9%
CHRCNT
#' ,R3
5%
R2.BOTADR
#64. ,CHRCNT
5%
BOTADR,R4
90%

sCLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF
sFOUR ENTRIES IN ERROR

: TABLE

:$13P21~Ts TO ERROR MESSAGE
L
:
sBRANCH IF NO ERROR MESSAGE

:R2=ADDRESS OF MESSAGE STRING
sBRANCH IF END OF MESSAGE

sLOAD ADDRESS OF STRING

sCLEAR BOT ADDRESS
sEND OF STRING??
sVES!!
:CARRIAGE RETURN??
;NO!!
sYES=CLEAR CHAR COUNT

sGET NEXT CHARACTER

sLINE FEED??
sYES=GET NEXT CHARACTER
;HORIZONTAL TAB??
;NO!!
sADJUST CHARACTER COUNT

: INCREMENT CHARACTER COUNT
:SPACE??
sNO!!
;SAVE ADDRESS OF SPACE
sEND OF LINE??
JNO!!
sGET ADDRESS OF LAST SPACE

:BRANCH IF SPACE DETECTED

.SCRLF

sTYPE CRLF

=-(R4)

sREPLACE SPACE

CHRCNT
;1:.&2
#-1,BOTFLG

BOTFLG
4

:CLEAR CHARACTER COUNT
sSET UP R2 FOR TESTING
:SET BOT FLAG

sTYPE ERROR MESSAGE STRING
sSTRING ADDRESS GOES HERE

sWAS STRING TRUNCATED??
JNO!!

.SCRLF

:YES=TYPE CRLF

BOTADR,R2

sSETUP R2 FOR TESTING

BOTFLG
CHRCNT

R2,118
#' ,-(R2)
(R2)+

sCLEAR BOT FLAG
sCLEAR CHARACTER COUNT
sSETUP 118 FOR TYPING
sRESTORE SPACE
;RESTORE R2

:TYPE REST OF STRING

;TYPE ERROR HEADER AND ERROR DATA

i anaianaiai ainanvaiai ava ai anai ai an a a

022034
022040
022042
022044
022046
022052

SEQ 0107

i a i

022030

9
PAGE 107

30A(1052)
05-APR-78
14:49
ERROR TYPEOUT ROUTINE

AN AN A LA LA ALA W ALA WA VLA WA WA WA WL WL WA W WD A W A WL

5217
5218
5219
5220
5221
5222

MACY11

(el
NN

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

5324

13%:

14%:

022324
022326
022330
022334
022336
022340
022342
022344
022346
022350
022352
022354
022356
022360
0223¢2
022364
022366
022370
022372
022374
022376
022402
022404
022410
022412
022414

104415

000207

21%:

022416
022420
022422
022424
022425

000000
000000
000000
000
000

1STNMB:
ERRNMB:
BOTADR:
BOTFLG:

.WORD
.WORD
.WORD

CHRCNT:

.BYTE

022426
022434
022442
022444
022452
022453
022460
022461

047125
020054
000043
020054
000
054
000
040

15%:

BEQ

012204

MOV

;DATA WITH HEADER??
;NO!!
;R4 POINTS TO DATA ADDRESS

18%:

19%
a(R4)+,-(SP)

208:

:BINARY
sOCTAL
;DECIMAL

16%

sAND CONTINUE

.SCRLF

DATA??

;YES=TYPE 2 SPACES

:TYPE ONE BLANK LINE

;BEFORE NEXT HEADER

14%

000043
052123

ERTYOO:
ERTYO01:

.ASCIZ
.ASCIZ

051105

021522

ERTYO02:

LASCIZ

050040

036503

ERTYO3:

.ASCIZ

ERTYO4:

LASCIZ

.EVEN

sWHAT KIND OF

sMORE DATA??
sNO!!

052111
042524

000040

;R5 POINTS TO FORMAT

(R4)

208
LERTYO4

;TEST NUMBER
;ERROR NUMBER

;BEGINNING OF TEXT ADDRESS
;BOT FLAG

s CHARACTER COUNT

UNIT#3

TEST#I

. ERR#3
"

001217

R2
148
(R2)+,R4
(R3)+,RS

19%
a(R4)+,-(SP)

022461

; (ASSUME NO DATA)

sHEADER ADDRESS GOES HERE

,SCRLF

17%:

19%:

POINTS TO ERROR HEADER TABLE

;BRANCH IF NO HEADER

21%

(RS)+
18%
17%
a(R4)+,-(SP)

16%:

;R1

(R1)+,15%

012305
105725
100407
001403
013446
104405
000405
013446
104402
000402
013446
104406
005714
001403
104401
000760
104401
000742

.WORD

TYPE
TST

SEQ 0108

PAGE 108

:R2 POINTS TO DATA ADDRESS TABLE
;R3 POINTS TO FORMAT TABLE
:PUT HEADER ADDRESS FOR TYPE
;BRANCH IF END OF HEADERS
; (ASSUME END OF DATA)

6(RO) ,R3

001217

TYPE

4(RO) ,R2

104401
000000
104401
005702
001767

2(R0O),R1
218
.SCRLF

001217
000004
000006
022326

MoV
BEQ
TYPE
MoV
MOV
MOV
BEQ

oOoOoooo

000002

016001
001444
104401
016002
016003
012137
001433

022274
022274
022300
022302
022306
022312
022316
022322

E
30A(1052)
05-APR-78 14:49
ERROR TYPEOUT ROUTINE

5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
5290
529N
5292
5293
5294
5295
5296
5297
5298
5299

MACY11

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

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

5325
5326
5327
5328
5329 022464
5330 022466
5331
022472
5332 022476
5333 022504
5334
5335
5336 022512
5337 022516
5338 022524
5339 022532
5340 022540
5341
022546
5342 022554
5343 022560
5344 022562
5345 022566
5346 022570
5347
5348 022570
5349 022576
5350 022602
022610
5351
5352 022616
5353 022624
5354 022632
5355 022640
5356 022644
5357 022646
5358 022652
5359 v22654
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

MACY11

30A(1052)
05-APR-78
CLOCK SUBROUTINES
.SBTTL

F
14:49

9
PAGE 109

SEQ 0109

CLOCK SUBROUTINES

sROUTINE TO SIZE FOR CLOCKS (KW11-L OR KW11-P)
MAAAAAA AR

000240
013746
013746
012737
012737

000004
000006
022562
000300

005777
012737
012737
012777
012777
013777
005077
000454
012716
000002

156764
022724

012737
005777
012737
012737
012777
012777
013777
005077
000422
012716
000002

022646

005037
012737
005037
012737
005037
062766
012637
012637
000207

023046
023012
000300
001516
156736

000004
000006

SIZCLK: NOP
MOV
MoV
MOV
MOV
TST
MOV
MOV
MoV
MOV

001526
001530
156746
156742
156740

Mov
CLR
BR
MOV

10%:

RTI

15%:

023054
023012
000300
001510
156644

000004

ARl

ERRVEC,-(SP)
ERRVEC+2,-(SP)
#108 ,ERRVEC
#PR6,ERRVEC+2

ittt

; :PUSH ERRVEC ON STACK
:;PUSH ERRVEC+2 ON STACK
;LOAD 04 TRAP VECTORS

aSLPCSR
#PCLOCK,CLOCK
#PSTOP,STOP

;TEST FOR P CLOCK
;LOAD SUBROUTINE ADDRESS
sLOAD STOP ADDRESS

#PCOUNT ,@SLPVEC ;LOAD P CLOCK INTERRUPT VECTOR
#PR6 ,@SLPVEC+2
SLLVEC+2,@SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR

aSLLVEC+2
308
#15%,(SP)

;DUMMY RTI ADDRESS
sRESTORE PRIORITY

MOV
TST

#20% ,ERRVEC
aSLLCSR

MOV
MOV
MOV

#LCOUNT ,@SLLVEC ;LOAD L CLOCK INTERRUPT VECTOR
#PR6 ,@SLLVEC+2
SLPVEC+2,@SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR

MOV
MOV

156670
156664
156646

CLR
BR
MOV

:
208

RTI

#LCLOCK,CLOCK
#LSTOP,STOP

aSLPVEC+2
308
#25%, (SP)

: CHANGE 04 TRAP VECTOR
sTEST FOR L CLOCK

;LOAD SUBROUTINE ADDRESS
;LOAD STOP ADDRESS

;DUMMY RTI ADDRESS
;RESTORE PRIORITY

25%:
sNO CLOCK AVAILABLE = AUGMENT RETURN ADDRESS

001514

CLR
Mov
CLR
MOV

CLOCK
sCLEAR SUBROUTINE ADDRESS
#SLPVEC+2 ,SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR
SLPVEC+2
#SLLVEC+2,SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR

000004

ADD

#2,4(SP)

001506

CLR

308:

000006
000004

MOV

:?g

SLLVEC+2

(SP)+ ,ERRVE(C+2

;EP)O.ERRVEC

; CHANGE RETURN ADDRESS

::POP STACK INTO ERRVEC+2

::POP STACK

INTO ERRVEC

;ROUTINES TO START THE CLOCK (KW11-L OR KW11-P)

MAARA

012777
012777
000403

000135

156552
156542

012777

000100

156542

177777

tdsd)

sNO P CLOCK-SEE IF L CLOCK IS PRESENT-GO TO 208 IF NOT PRESET

001526
001530

022654

001526
001510
001510
001516
001516
000002

AR AR

;SEE IF A KW11-P CLOCK IS PRESENT - GO TO 108 IF NOT PRESENT

022570

156710
022742

PCLOCK:

AR Rl
R RRRRdEd)

MOV

#-1,a8LPCSB

sLOAD COUNT

PLCLK

;GO TO COMMON CODE

MoV

LCLOCK: MOV

#135 ,aSLPCSR
#100,3SLLCSR

SET BUFFER

sLOAD CONTROL REGISTER

:LOAD CONTROL REGISTER

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.PI
05-APR-78 14:38
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5408
5409
5410
5411
5412
5413

5414
5415
5416
5417
5418
5419
5420
5421
5422
5423
5424
5425
5426
5427
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)

CLOCK SUBROUTINES

PLCLK:

001520
177437
000300
000240
023010

308:

000207

05-APR-78

408%:

CLR

TRAP
MOV
MOV
BIC
CMP
BHI

MoV
MOV
RTI

6
14:49

9
PAGE 110

SEQ 0110

TIME

:CLEAR TIMER COUNT

(SP)+ RS
RS,$PSW

::SAVE THE PSW IN RS
sSAVE PRIORITY

# CPR7,RS
#PR6,RS
40%
#PRS,=(SP)
#30%,-(SP)

s :PUSH OLD PSW AND PC ON STACK
JMASK X
;1S PRIORITY TOO HIGH??
;sNO!!
;sPUT NEW PS ON STACK
::PUT NEW PC ON
STACK
::POP NEW PC

RTS

AND PS

sROUTINES TC HANDLE CLOCK INTERRUPTS (KW11-L OR KW11-P)
023012
023012
023012
023020
023022
023030
023036
023040
023044

PCOUNT:

062737

000021

001522

012737

177777
000021

001522
001524

103003

162737
100002
005037
000002

001524

LCOUNT:

108:

:
208

#17.,TIME
108

ADD
8CC
MoV
suB
BPL
CLR
RTI

#-1,TIME
#17. ,WATCH

208

WATCH

;ADD 17MS TO ELAPSED TIME
:BRANCH IF NO OVERFLOW
sRESTORE MAXIMUM COUNT
;DECREMENT REMAINING TIME

;BRANCH IF POSITIVE

sCLEAR REMAINING TIME

;RETURN TO USER

;ROUTINES TO STOP THE CLOCK (KW11-L OR KW11-P)
023046
023052

005077
000402

156430

023054

005077

156432

013746
012746
000002

001520
023072

023060
023060
023064
023070
023072
023072

PSTOP:

LSTOP:

CLR
BR

aSLPCSR
PLSTP

;GO TO COMMON STOP CODE

CLR

aSLLCSR

;STOP L CLOCK

MOV
MOV
RTI

$PSW,~(SP)
#108,-(SP)

::PUT NEW PS ON STACK
;:PUT NEW PC ON
STACK

RTS

PLSTP:

108:

000207

.SBTTL

:STOP P CLOCK

:;POP NEW PC AND PS

SET VOLUME VALID SUBROUTINE

sTHIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID,
;RETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE.
THE SUBROUTINE
sRETURNS

TO THE WORD FOLLOWING THE

JDETECTED,
SCALL.

CALL:

CALL,

EXCEPT WHEN AN ERROR

IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE

JSR
BR
ERROR

PC,SETVV

JUMP TO SUBROUTINE

14 1

RETURN HERE IF NO ERROR
RETURN HERE

ERROR

023074
023074
023102

012760
111160

00004C
000010

000010

MOV
MovB

#CLR,RMCS2(RO)

;CLEAR THE MASSBUS

023106

012760

000001

000024

Mov

#DMD ,RMMR1(RO)

;LOAD RMMR1

(R1) ,RMCS2(RO)

;SELECT UNIT

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
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
5461
5462
5403
5464
5465
5466
5467
5468
5469
5470
5471
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490

5491
5492

MACY11

H
9
30A(1052)
O5-APR-78
14:49 PAGE 111
SET VOLUME VALID SUBROUTINE

SEQ 01N

023114

012760

001001

000024

Mov

#DMD ! MUR,RMMR1(RO)

023122

012760

000000

000014

MOV

#0,RMER1(RO)

;LOAD RMER1

023130

012760

000000

000042

MOV

#0,RMER2(RO)

;LOAD RMERZ2

023136

012760

000023

000000

Mov

#PACACK!GO,RMCST(RO)

023144
023152
023160
023162
023166
023174
023202
023206
023214
023222

016037
042737
001020
010037
062737
012737
062716
112776
012737
000207

000012
177677

001142
001142

MOV
BIC

RMDS
(RO) ,$BDDAT

;STORE RMDS AT SBODAT

108
RO,$BDADR
#RMDS, $SBDADR
#VV,SGDDAT
#2,(SP)
#100,a(SP)
#PACACK,$TMPO
PC

sBRANCH IF VOLUME VALID SET
;SETUP FOR ERROR MSG

001136

000012
000100
000002
000100
000022

BNE

MOV
ADD
MOV
ADD
MOVB
MOV

001136
001140
000000
001174

# CVV,SBODAT

108:

RTS

.SBTTL
;THIS

;LOAD RMMR1

;LOAD RMCS1

;MOVE RETURN ADDRESS TO ERROR
;WRITE ERROR NUMBER
;RETURN

SET OFFSET MODE SUBROUTINE
SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET
THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE
SETS.

sMODE
sSUBROUTINE, WHICH WILL LEAVE DMD ON.
THE SUBROUTINE RETURNS TO THE
;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT
;RETURNS

TCALL:
:
:

023224

TO THE

SECOND WORD FOLLOWING THE

JSR

PC,SETOM

BR
ERROR

CALL

JUMP TO SUBROUTINE

RETURN HERE

NO ERROR
ERROR

SETOM:

023224

012760

001001

000024

MOV

#DMD ! MUR,RMMR 1 (RO)

023232

012760

000000

000014

MoV

#0,RMER1(RO)

:LOAD RMER1

023240

012760

000000

000042

MoV

#0,RMER2(RO)

:LOAD RMER2

023246

012760

000015

000000

Mov

#OFFSET!GO,RMCST(RO)

023254
023262
023270
023272
023300
023304
023312
023316
023324
023324

016037
042737
001015
012737
010037
062737
062716

000012

001142
001142

MOV

RMDS (RO) ,$BODAT ;STORE RMDS AT SBDDAT

000001
00113¢
000012
000002
000111

001140

112776

000207

177776

BIC
BNE
MOV

001136
000000

108:
.SBTTL
A

023326

108

:LOAD RMCS1

;BRANCH IF OFFSET ON

#0M,SGDDAT

RO,$BDADR

MOV
ADD
ADD
MovB

#RMDS, $BDADR
#2,(SP)
#111,3(SP)

RTS
ENABLE

PC
;RETURN TO USER
SEARCH SUBROUTINE

ARA LR AR AR

ENBSCH:

# COM,SBODAT

;LOAD RMMR1

;MOVE RETURN ADDRESS TO ERROR
;WRITE ERROR NUMBER

]

)]

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
5493
5494
5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
551
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548

MACY11

1
30A(1052)
05<-APR-78
14:49
ENABLE SEARCH SUBROUTINE

9
PAGE 112

SEQ 0112

;THE REGISTER OUTPUT BUFFER
SHOULD CONTAIN:
:
RMDAO
= DESIRED SECTOR AND TRACK ADDRESS

RMDCO

= DESIRED CYLINDER ADDRESS

3
:
:

RMOFO
RMBAO
RMWCO

= FORMAT, ECI, HCI
= BUFFER ADDRESS
= WORD COUNT

;NOTE:

OFFSET

IS NOT ENABLED WHEN USING THIS SUBROUTINE

RMCS10

= FUNCTION CODE

iRttt

ittt

iRttt

ldd

sSET VOLUME VALID

sFIRST,CLEAR ~SET DIAGNOSTIC MODE-SYNCHRONIZE

023326
023334

012760

111160

000040
000010

000010

023340
023346

012760
012704

000001
000041

000024

:PROM STROBE

g’:

MOV
MOVB

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

;CLEAR THE MASSBUS
;SELECT UNIT

MOV
MOV

#DMD,RMMR1(RO)
#33..R4

;LOAD RMMR1
sALLOW UP TO 33 BIT CLOCLS

:TO SYNC PROM STROBE

.....

023352
023352

012760

005001

000024

MOV

#DMD 'MUR'MCLK,RMMRT1(RO)

;LOAD RMMR1

023360

012760

001001

000024

MOV

#DMD ! MUR ,RMMR 1 (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

001136
000024
001142
000040
000002
000030
024204

MOV
BIT
BNE
DEC
BNE
MOV

RMMR1(RO) ,RS
:STORE RMMR1 AT RS
#WC,RS
;WAIT FOR PROM STROBE TO COME ON
6%
R4
5%
RO,$BDADR
;PROM STROBE WONT SET

023446

012760

005001

023454

012760

001001

023462
023466
023472
023474
023476
023500
023504
023512
023520
023524

016005
032705
001423
005304
001363
010037
062737
012737
005037
062716

00002¢
000040

001136
000024
000040
001140
000002

001136

ADD
CLR
MOV

001140

#RMMR1,$BDADR
$BDDAT
#WC,SGDDAT

ADD
MOVB
JMP

#2,(SP)
#30,a(SP)
60%

000024

MOV

#0OMD 'MUR'MCLK ,RMMR1(RO)

;LOAD RMMR1

000024

MOV

#0MD 'MUR,RMMR1 (RO)

;LOAD RMMR1

MOV
BIT
BEQ
DEC
BNE
MOV

RMMR1(RO) RS
#UC,RS
7%
R4
6%
RO,$BDADR

000000
6%:

001136
001142

ADD
MOV

CLR
ADD

#RMMR1,$BDADR
#WC ,SBDDAT

$GDDAT
#2,(SP)

;REPROT ERROR

;STORE RMMR1 AT RS
sWAIT FOR PROM STROBE TO GO OFF

;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
557
5572
5573
5574
5575

023530
023536
023542

112776
000137

000062
024204

MACY11
000000

J
30A(1052)
05<APR-78
14:49
ENABLE SEARCH SUBROUTINE
MOVB
JMP

9
PAGE 113

SEQ 0113

#62,3(SP)
60%

:SéCOND. CLOCK INDEX PULSE TO 1. CLEAR FORMAT CHANGE FLOP
:

2. CLEAR RTC FLOP

023542

012760

001005

000024

MOV

#DMD i MUR'MI ,RMMR1(RO)

;LOAD RMMR1

023550

012760

001001

000024

MOV

#DMD ' MUR ,RMMR1(RO)

;LOAD RMMR1

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

#PACACKiGO,RMCST1(RO)

023600
023606
023614
023616
023622
023630
023636
023642
023650
023656
023660

016037
042737
001021
010037
062737
012737
062716

000012
177677

001142
001142

MOV
g#g

RMDS(RO) ,$SBDDAT ;STORE RMDS AT S$BDDAT
:O§VV.$BDDAT
sVOLUME VALID SHOULD BE SET

001136
000012
000100
000002

001136
001140

MOV
ADD
MOV

RO,$BDADR
#RMDS
, SBDADR
#VV ,SGDDAT

;SETUP ERROR MSG

MOVB
MOV
BR

#100,a(SP)
#PACACK,S$TMPO
60%

112776

012737
000552

000100

000022

ADD

000000
001174
108:
A

#2,(SP)

;LOAD RMCS1

sWRITE ERROR NUMBER

ARl il
tls)

;LOAD REGISTERS
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

023660

013760

001410

000006

Mov

RMDAO,RMDA(RO)

;LOAD RMDA

023666

013760

001436

000034

Mov

RMDCO,RMDC(RO)

;LOAD RMDC

023674

013760

001434

000032

MOV

RMOFO,RMOF
(RO)

;LOAD RMOF

023702

013760

001404

000002

Mov

RMWCO,RMWC(RO)

;LOAD RMWC

023710

013760

001406

000004

MoV
AR

RMBAO,RMBA(RO)
R

R R R RN R AR RN R R R

;LOAD RMBA
R

R R AR R R RN R AR

RN AR AR

;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE
023716

012760

041401

000024

MOV

#DMD!MUR!DBEN'MOC.RMMR1(RO)

023724

012760

000002

000014

MOV

#0,RMER1(RO)

;LOAD RMERT

023732

012760

000000

000042

MOV

#O0,RMER2(RO)

;LOAD RMER2

023740

013760

001402

000000

MOV
IR

023746
023754
023760

012737
004777

000310
155546

001524

RMCS10,RMCS1(RO)
R

;WAIT FOR "'RUN AND GO'' TO SET
208

MoV

JSR

#200. ,WATCH

PC.,aCLOCK

:LOAD RMMR1

;LOAD RMCS1

RN AR RN RN RN RN RRRRR RN

;SET WATCHDOG TIMER VALUE

sSTART THE CLOCK

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
5605
023760
5606 023766
5607 023774
5608 023776
5609 024002
5610 024004
561
024010
5612
024016
5613 024022
5614 024030
5615
024034
5616
5617 024042
5618 024044
5619 024044
5620
5621
5622 024050
5623 024054
5624
5625
024054
5626
5627 024062
5628 024070
5629 024072
5630
5631
5632
5633
5634
024074
5635
5636 024102
5637
5638
5639 024110
5640 024114
5641
5642
024114
5643
5644
024122
5645 024130
5646 024132
5647
5648 024134
5649 024142
5650 024150
5651
024152
5652 024156
5653 024164
5654. 024172
5655 024176
5656 024204
5657
5658

5659

024204

016037
042737
001023
005737
001366
004777
012737
010037

062737
062716
112776

000024
137777

K
MACY11 30A(1052)
05-APR-78 14:49
ENABLE SEARCH SUBROUTINE
001142
001142

155520
040000
001136
000024
000002
000101

001136
000000

000460
004777

308:

155460

012704

000021

012760

141401

012760
005304
001370

041401

308

AR AR

;STCRE RMMR1

WATCH

sANY

MOV
MoV
ADD
ADD
MOVB

#RG, SGDDAT

;SETUP ERROR MSG

60%

208
PC,asSTOP

BNE
JSR

001140

SEQ 0114

RMMR1(RO) ,$BDDAT
# CRG,S$BODAT

Mov
BIC
BNE
TST

001524

9
PAGE 114

RO, $BDADR

#RMMR1 ,SBDADR
#2,(SP)
#101,3(SP)

JSR
AR

PC.asTOP
AR

AT S$BDDAT

TIME LEFT?

sYES-WAIT
sSTOP THE CLOCK

;WRITE ERROR NUMBER IN
;USER'S CALL -

;STOP THE

CLOCK

ARl Rttt
Rt RRdd ]

;STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS)
MOV

#17..R4

000024

MOV

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

000024

MOV

:2HD!HUR!DBEN!HOC.RHHR1(RO)

408%:

DEC
BNE
A

AR AR

sR4=CLOCK COUNT

;LOAD RMMR1
;LOAD RMMR1

40%
AR

ARl

iRttt

RE])

sDROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER TO PASS
;TEST AT LOCATION 166
012760

041001

000024

012760

041401

000024

Mov

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

;LOAD RMMR1

MOV

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

;LOAD RMMR1

tt't"tt't"""'""""""t""""'t't'tt't..'t""ilt.'t"

STEP SEQUENCER (35 CLOCKS) AND VERIFY SEARCH IS ENABLED
MOV
#35.,R4
sR4=CLOCK COUNT
508%:

012704

000043

012760

151401

000024

MoV

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

012760
005304
001370

051401

000024

MOV
DEC

:2HD!HUR!DBEN!HOC!DYO.RHHR1(RO)

BNE

508

016037
042737
001015
010037
062737
012737
062716
112776

000024
173777

MOV

RMMR1(RO) ,$BDDAT
;STORE RMMR1 AT SBDDAY
:OSESRC.SBDDAT
;SEARCH SHOULD BE ENABLED

00113¢
000024
004000
000002
000102

001142
001142

BIC
BNE

001136
001140
000000

60$:
s

000207

MOV
ADD
MOV
ADD
MOVB

;LOAD RMMR1

RO, $BDADR
#RMMR1,$BDADR

sSETUP ERROR MESSAGE

#2,(SP)
#102,3(SP)

;WRITE ERROR NUMBER

#ESRC,SGDDAT

;LOAD RMMR1

AR RARRERERNARERNRRRRRRARRERRRRARRRRRRRRRRRRRRRARRRNRRRRRRREROERRRRY

RETURN TO USER
RTS
PC

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

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

MACY11

30A(1052)

O05-APR-78

9
PAGE 115

L
14:49

SECTOR COMPARE SUBROUTINE
.SBTTL

SEQ 0115

SECTOR COMPARE SUBROUTINE

;SECTOR COMPARE SUBROUTINE

024206

SCTCMP:
AR A

AR AR

ARl Rttt
dl)

sSET INDEX PULSE TO CLEAR FORMAT CHANGE FLOP
MoV

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

MOV

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

MOV
JSR
TST

#6 ,WATCH
PC,aCLOCK
WATCH

000024

MOV

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

051401

000024

MOV

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

012760

051403

000024

MoV

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

:LOAD RMMR1

024270

012760

051443

000024

Mov

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

;LOAD RMMR1

024276

012760

051403

000024

MoV

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

:LOAD RMMR1

024304

012760

051401

000024

MOV

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

024206

012760

051405

000024

024214

012760

051401

000024

024222
024230
024234
024240
024242

012737
004777
005737
001375
004777

000006
155272
001524

001524

024246

012760

051441

024254

012760

024262

;LOAD RMMR1

sWAIT AT LEAST & MS FOR ''RETURN TO CENTER LINE'' ONE SHOT TO SET
108:

sSET WATCHDOG TIMER VALUE
sSTART THE CLOCK

BNE
108
JSR
PC,asSTOP
:STOP THE CLOCK
:ge;AFig:UT TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE TO

155262

RN RN AR R

sRETURN TO USER

000207

;LOAD RMMR1

sWITH SECTOR COMPARE HIGH, CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP

024312

;LOAD RMMR1

RTS

s AR AR

.SBTTL

;LOAD RMMR1

RN R R RN R A RRRRRRRRARRRARRRARARNARRRR
AR RS

RN RN

R R AR AR R AR TRRRRRERRRRARARARRRARAR
AR RS

SET LOOKING FOR SYNC SUBROUTINE

sTHIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCER
sASSUMING SEARCH IS ENABLED,TO THE POINT WHERE "‘PLFS'' IS ACTIVE
024314

SETLFS:
%SgLSE BIT CLOCK UNTIL PROM STROBE SETS

024314
024314

012760

055401

00002¢

MoV

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

024322

012760

051401

000024

Mov

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

024330

016005

000024

MOV

RMMR1(RO) ,RS

:LOAD RMMR1

;LOAD RMMR1

;STORE RMMR1 AT R5

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

5716
5717
5718
5719
5720
5721
5722
5723
5724
5725
5726
5727
5728
5729
5730

5731
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747

5748
5749

5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5TN

024334
024340

032705
001765

0€0040

024342
024346

012704

000260

024346

012760

055401

024354

012760

051401

024362
024366
024372
024374
024376
024400
024404
024412
024414

016005
032705
001010
005304

000024
002000

024414
024420
024424

016005
032705
001007

000024
000040

024426

012760

055401

024434
024442
024444

012760
000414

051401

024444
024450
024454

016005
032705
001407

000024
000040

024456

012760

055401

024464
024472
024474
024474

012760
000764

051401

001363
062716
112776

000430

000002
000035

n9
MACY11 30A(1052)
05-APR-78 14:49 PAGE 116
SET LOOKING FOR SYNC SUBROUTINE

SEQ 0116

BIT
BEQ

#UC, RS
108

Mov

#176..R4

000024

MOV

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

000024

MOV

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

MOV
BIT
BNE
DEC
BNE
ADD
MOvVB
I

RMMR1(RO) ,RS
#PLFS RS
308

MOV
BIT
BNE

RMMR1(RO) ,R5
#UC RS
40%

000024

MoV

#MRTIAAA'MCLK,RMMRT(RO)

:;LOAD RMMR1

000024

MOV

#MR1AAA,RMMR1(RO)

;LOAD RMMR1

MOV
BIT
BEQ

RMMR1(RO) ,RS
#UC,RS
508

000024

MOV

#MRIAAA'MCLK ,RMMRT1(RO)

:LOAD RMMR1

000024

MOV

#MRT1AAA,RMMR1(RO)

;LOAD RMMR1

RTS

JEXIT

sSET UP DATA SEQUENCER TO LOCATION 11. WHERE PLFS WILL SET
20%:

000000

sMAX NUMBER OF BIT CLOCK
;LOAD RMMR1

;LOAD RMMR1

:STORE RMMR1 AT RS
SEXIT IF PLFS IS SET

R4
208
#2,(SP)

sERROR IF

COUNT EXHAUSTED

:
sCANT SET PLFS

#35,3(SP)
50$

308:
sSTEP THE MAIN REG CLOCK UNTIL THE TRAILING EDGE OF PROM STORBE
; IS DETECTED.

40%:

508%:

000207

.SBTTL

;STORE RMMR1 AT RS

50%

408

:STORE RMMR1

AT RS

CLOCK SYNC SUBROUTINE

:"'titt"t'ttttt'tt"t"'t'"tt"ttt'tt"i'tt'tt'.tt."'tt"tttt.‘

sTHIS SUBROUTINE WILL SIMULATE THE HEADER AND DATA SYNC
;PATTERN BEING READ
024476

024476
024502
024506

CLKSNC:

sVERIFY THAT "'PLFS" IS ON

016004
032704
001023

000024
002000

MOV
BIT
BNE

RMMR1(RO) ,R4
#PLFS R4

108

;STORE RMMR1 AT R4
;LOOK FOR SYN SET ?
:BRANCH IF SO

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

5772
5773
5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
57N
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
112776

000466
012705

032704
001434

001142

175777
002000

001136
000024
000002
000035

MACY11

N
30A(1052)
O05-APR-78
14:49
CLOCK SYNC SUBROUTINE
MoV
BIC
MOV
MOV
ADD
ADD

001142
001140
001136

000000

000021
000040

108:
208:

SEQ 0117

R4 ,$BDDAT
# CPLFS,SBDDAT
#PLFS,SGODAT
RO, $BDADR
#RMMR1,$BDADR
#2,(SP)

#17..R5
#UC R4

sMAKE SURE PROM STROBE IS OFF

MOvB
BR

#35,3(sP)
60%

BEQ

308

MOV
BIT

9
PAGE 117

024570

012760

055401

000024

MoV

#MRTAAA!MCLK,RMMRT(RO)

;LOAD RMMR1

024576

012760

051401

000024

MoV

#MR1AAA ,RMMR1 (RO)

;LOAD RMMR1

024604
024610
024612

016004
005305
001363

000024

MOV
DEC
BNE

RMMR1(RO) ,R4
R5
208

;STORE RMMR1 AT R4

024614
024620
024626
024632
024636
024644
024650
024656
024660

010437
042737
005037
010037
062737
062716

001142

MOV
BIC
CLR
MOV
ADD
ADD
MOVB
BR

R4 ,$BDDAT
# CWC,SBDDAT
$GDDAT
RO,$BDADR
#RMMR1,$BDADR
#2,(SP)
#62,3(SP)
608

;SETUP ERROR FOR USER

024660
024664
024672
024676
024700
024702
024704

012704
012737
012705
000241
006004
i02002
052703

112776
000425

177737
001140

001136
000024
000002
000062

:
001142

001136
000000
308:

014400
000020
055401

;CLOCK THE SYNC PATTERN (00011001) THROUGH THE SHIFT REGISTER

024734

408:

MOV

#014400,R4

MOV
cLC
ROR

#MRIAAA'MCLK,RS ;GENERATE REG VALUE
sWITH MAINTENANCE CLOCK ON
R&

MOV

BCC
BIS

002000

024710

ERROR CAN'T RESET PROM STROBE WITH LFS ACTIVE

#16.,708

sSTROBE BIT COUNT

50%
#MRD RS

JSET READ BIT PER PATTERN BIT

508%:

024710
024714

010560
042705

000024
004000

MOV

RS,RMMR1(RO)

;LOAD RMMR1

024720
024724
024730

010560
005337
001360

000024
024734

MOV
DEC
BNE

RS.RMMR1(RO)
708
40$%

;LOAD RMMR1

024732
024734

000207
000000

RTS
.WORD

PC
0

BIC

#MNCLK RS

;CLOCK ONE BIT

sCAN'T VERIFY SYNC CLOCK WAS PETECTED
;USER CAN DO SO BY STEPING
;B8IT CLOCK AND VERIFY PROM STROBE SETS WITHIN ONE WORD TIME

608:
708:

; TEMPORARY STORAGE

—_—e

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

5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836

MACY'1

8 10
30A(1052)
05-APR-78 14:49 PAGE 118
SAVE AND RESTORE RO-R5 ROUTINES
.SBTTL
A

SEQ 0118

SAVE AND RESTORE RO-R5 ROUTINES

AAAAAA

AR AR

ARl

Rttt

ldd)

;*SAVE RO-RS

s*CALL:

SAVREG

:*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
*

;*TOP===(+16)

;v 42--=(+18)
v +4-=<RS

+6=--=R4

;% +8-=<R3
;2+10=-=-=R2
;e412-=<R1

;2+14===R0

024736
024736

024740
024742
024744
024746
024750
024752
024756
024762
024766
024772

$SAVREG:

010046
010146
010246
010346

010446
010546
016646
016646
016646

016646

000002

000022
000022
000022
000022

RO,=(SP)
R1,-(SP)
R2,-(SP)

Mov
MOV
MoV
MoV
MOV
MOV
MoV
MoV
MOV
MoV
RTI

R3,~(SP)
R4 ,=(SP)

R5,=(SP)

:;PUSH
::PUSH
::PUSH
::PUSH
: :PUSH
::PUSH

RO ON
R1 ON
R2 ON
R3 ON
R4 ON
R5 ON

STACK
STACK
STACK
STACK
STACK
STACK
MAIN
FLOW
OF
PS
: :SAVE

22(SP) ,~(SP)
22(SP) ,-(SP)
22(SP) ,~(SP)
22(SP) ,-(SP)

::SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
: :SAVE PC OF CALL

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+ R4
(SP)+ ,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

s sRESTORE PC OF CALL
s sRESTORE PS OF CALL
::RESTORE PC OF MAIN FLOW
:;RESTORE PS OF MAIN FLOW
:sPOP STACK INTO RS
;sPOP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
;:POP STACK INTO R1
::POP STA'K INTO RO

;*RESTORE RO-R5

s*CALL:
cn

024774
024774
025000
025004
025010
025014
025016
025020
025022
025024

025026
025030

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

SRESREG:

.SBTTL
A

RESREG
MoV
MOV
MOV
Mov
MOV
MOV
MOV
MoV
MoV
Mov
RTI

BINARY TO ASCII AND TYPE ROUTINE

AAAA AR

AR AR

;*THIS ROUTINE

IS USED TO CHANGE A 16-BIT

;*BINARY=ASCII NUMBER AND TYPE IT.

s*CALL:
;'
*

025032
025034

010146
016601

000006

Mov
TYPBN

$TYPBN: MOV
Mov

SRR

3INARY NUMBER TO A 16-BIT

NUMBER,-(SP)

: :NUMBER TO BE TYPED
JsTYPE IT

R1,-(SP)

:sSAVE R1 ON THE STACK
::GET THE INPUT NUMBER

6(SP) ,R1

220

2l
2l

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38
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
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

025040
025042
025050
025052
025054
025060
025064
025066
025070
025072
025100
025102
025104

000261
112737
006101
001406
105537
104401
000241
000765
012601
016666
012616
000002
000

000060

¢ 10

MACY11

30A(1052)
O5<APR-78
14:49
PAGE 119
BINARY TO ASCII AND TYPE ROUTINE

025104

18:

#'0,8BIN

BEQ
ADCB

2%
$BIN

CLC
BR

MOV
MOV

2(SP) ,4(SP)
(SP)+,(SP)

.BYTE

0,0

ROL

025104
025104

000062

SEC
MovBe

TYPE

000004

000

2s8:

MoV

RTI

$BIN:

.SBTTL

SEQ 0119

;:SET "°C'*" SO CAN KEEP TRACK OF THE NUMBER OF BITS

::SET CHARACTER TO AN ASCII ''0".
;:GET THIS BIT
: ;DONE?
::NO==SET THE CHARACTER EQUAL TO THIS BIT
::G0 TYPE THIS BIT
;sCLEAR ''C'* SO CAN KEEP TRACK OF BITS
::G0 DO THE NEXT BIT

.SBIN

(SP)+,R1

::POP THE STACK INTO R1
::ADJUST THE STACK

s;RETURN TO USER
s :STORAGE FOR ASCII CHAR. AND TERMINATOR

CONVERT BINARY TO DECIMA L AND TYPE ROUTINE

AR AR

iRl

ittt

lldd)

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*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:
‘%
.

025106
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

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

$TYPDS:

020200
000020
000055

000001

025322
000040

NUM,-(SP)

:sPUT THE BINARY NUMBER ON THE STACK
::60 TO THE ROUTINE

MOV
MoV
MOV
MoV
Mov
MOV
MOV
BPL

RO,~(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R5,=(SP)
#20200,-(SP)

::PUSH RO ON
:;PUSH R1 ON
;;PUSH R2 ON
::PUSH R3 ON
;:PUSH RS ON

NEG

1%:

2%:

025312

MOV
TYPDS

3s:

4$:

MOvB

CLR

Mov
MOvB

CLR

MOV

SuB
BLT
INC
BR

20(SP)
RS

1%
RS
#'-,1(5P)
RO
#SDBLK,R3
" L(R3)+
R2
$DTBL (RO) ,R1
R1,R5

TST
BNE

000001
000060
000040

177777

BMI

ASLB

BCC

MOvB

78:

BIS
BIS

Move

s:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
:sMAKE THE BINARY NUMBER POS.
s:MAKE THE ASCII NUMBER NEG.
;:ZERO THE CONSTANTS INDEX

::SETUP THE OUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
s:GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR IF DONE
:: INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT

ADD

TSTB

5%:

STACK
STACK
STACK
STACK
STACK

63
1(SP),-1(R3)
#'0,R2
" R2
R2,(R3)+

ssCHECK IF BCD DIGIT=0
;sFALL THROUGH IF 0
ssSTILL DOING LEADING 0°'S?
::BR IF YES
::ASD?
;:BR IF NO
ssYES==SET THE SIGN
ssMAKE

THE BCD DIGIT ASCII

s:sMAKE IT A SPACE IF NOT ALREADY A DIGIT
2sPUT THIS CHARACTER IN THE OUTPUT BUFFER

(2
(Wi

(RO)+
RO, #10
2%
8%

::JUST INCREMENTING
;sCHECK THE TABLE INDEX
;:G0 DO THE NEXT DIGIT
::6G0 TO EXIT

BR
TSTB
BPL

6%
(SP)+
9%

::G0 CHANGE TO ASCII
ssWAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO

$DBLK:
.SBTTL

RTI

. SDBLK

10.
.BLKW
4
BINARY TO OCTAL

(ASCII)

AND TYPE

s*CALL:
i
MoV

NUM,-(SP)

o®

.BYTE

o
;e

: sNUMBER TO BE

MOV
TYPON

;:M=1

M
i
025332
025336
025344
025350
025354

025356
025364

017646

116637
112637
062716
000406
112737
112737

000000
000001
025557
000002
000001
000006

Mov
TYPOC

$TYPOS: MOV
MOVB

MOvVB

555

0R 0

:71=TYPE LEADING ZEROS
::0=SUPPRESS LEADING ZEROS

TO TYPE OUT WITH THE

NUM,-(SP)

;t:;ZPOC---ENYER HERE

TYPED

ssCALL FOR TYPEOUT

;3N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

;*STYPON===~ENTER HERE
;*$TYPOS OR $TYPOC
s*CALL:

A
.

hal

232232 3]

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*0CTAL (ASCII) NUMBER AND TYPE IT.
:'thtOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
TYPOS

;:RETURN TO USER

3 :t."t"t"""'"'""""""Q""'t"'tt.'tt 2332332232322

THE NUMBER

:;ADJUST THE STACK

10000.
1000.
100.

;sNOW TYPE

;:POP STACK INTO R1
::POP STACK INTO RO

2(SP),4(SP)
(SP)+,(SP)

N
N

THE TERMINATOR
STACK INTO RS
STACK INTO R3
STACK INTO R2

$DTBL:

:sSET
;:POP
::POP
:;POP

TYPE

MOV
MOV

(SP)+,R1
(SP)+ RO

ssYES==SET THE SIGN FOR TYPING

025322

000002

(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2

SAME PARAMETERS AS THE LAST

s :NUMBER TO BE TYPED
;sCALL FOR TYPEOUT

MOV
MoV

-1(SP),=2(R3)

CLRB
MOV
MOV
MoV

Mmove

9%:

177777

::GET THE LSD

8%:

RS5.R2

L [1)']

TST
ChP
BLT
BGT

000010

012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

025322

100003
116663
105013
012605

SE@ 0120

5943
5944

005720
020027
002746
003002
010502
000764
105726

D10
14:49 PAGE 120

5940
5941
5942

025230
025232
025236
025240
025242
025244
025246
025250
025252
025260
025262
025264
025266
025270
025272
025274

OS<APR-78

5935
5936
5937
5938
5939

MACY11 30A(1052)

ADD
BR

STYPOC: MOVB
MovBe

FOR TYPEOUT OF

A 16 BIT NUMBER

NUM,-(SP)

; sNUMBER TO BE TYPED
;sCALL FOR TYPEOUT

a(SP),=(SP)
1(SP),SOFILL

;:PICKUP THE MODE
::LOAD ZERO FILL SWITCH

#2,(SP)
$TYPON

::ADJUST RETURN ADDRESS

(SP)+,SOMODE+1

#1,80FILL
#6,30MODE +1

;;NUMBER OF DIGITS TO TYPE
::SET THE ZERQO FILL SWITCH
::SET FOR SIX(6) DIGITS

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

6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046

112737
010346
010446
010546

000005

062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103

000006
025556
025555
000012

113704
005404

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

025554

STYPON: MOVB

025557

1%:

2%:

3s:

025556
177770

4%:

000060
000040
025552
025552
025554

58:
7%:

6%:

000002

8%:
$SOCNT:

$SOFILL:

:
$OMODE
LSBTTL
MR

SOFILL,R4
12(SP)
RS
R3
RS

AR AR AR

::G0 DO MSB
;;FORM THIS DIGIT

;:GET LSB OF THIS DIGIT
;:TYPE

THIS DIGIT?

;:BR IF NO
;:GET RID OF JUNK

;:TEST FOR O
;s SUPPRESS THIS 0?
;:BR IF YES

:;DON'T SUPPRESS ANYMORE 0°'S
ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
::G0 TYPE THIS DIGIT
;:;COUNT BY 1
::BR IF MORE TO DO
;:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;sRESTORE RS
;sRESTORE R4
::RESTORE R3
;sSET THE STACK FOR RETURNING

(SP)+,RS
(SP)+,R4
(SP)+,R3

2(SP),4(SP)
(SP)+,(SP)

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

TYPE

;;ROTATE MSB INTO ''C*

RS
RS
R5
R5.R3
R3
$OMODE
7%
#177770,R3

DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
- BIS
" ROVB
TYPE
DECB
86T
BLT
INC
BR

000004

;:SUBTRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD

#6,R4
R4 ,$SOMODE

ROL
ROL
MOV
ROL

MOV
MOV
MOV
Mov
MoV
RTI

;:SET THE ITERATION COUNT
;:SAVE R3
;:SAVE R4
:sSAVE RS
;sGET THE NUMBER OF DIGITS TO TYPE

#5,80CNT
R3,-(SP)
Ré,=(SP)
R5,=(SP)
S$OMODE +1,R4
R4

MoV
MOV
MOV
Move
NEG
ADD
MOVE
MOovB
MoV
CLR
ROL
BR
ROL

SEQ 0121

s sRETURN
ssSTORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
ssO0CTAL DIGIT COUNTER
;sZERO FILL SWITCH
:sNUMBER OF DIGITS TO TYPE

ROUTINE

AR AR A

;*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.
;*NOTE1:
;*NOTEZ2:

;*NOTE3:

SeCALL:

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.

;*1) USING A TRAP INSTRUCTION

cz}
czi
W, N

025372
025400
025402
025404
025406
025412
025414
025420
025424
025430
025434
025436
025440
025442
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
30A(1052)
05-APR-78 14:49 PAGE 121
BINARY TO OCTAL (ASCII) AND TYPE

e W

599N
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001

MACY11

oOOoO0O0O

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

6054
6055
6056

6057
6058
6059
6060
6061

6062

6063
6064

6065
6066
6067
6068
6069
6070
6071
6072
6073
6074

6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102

TYPE ROUTINE
o

TYPE

A
;*

TYPE
MESADR

$STYPE:

TSTB
BPL
HALT
BR
L [1]']

;*0R

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
025726
025732
025734
025740
025744

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

001173

1%:

000002
000001

001242

000100

001243

025630
030456
000040

MOV

CMPB
BNE
BITB
BEQ

L[]}

001243

BITB

2%:

MOVB

000002

60$:
3s:

000011

A H

000200

104401

105037

026036

123726

025772
001172

000755
004737
001350
013746
105366

002770
004737
105337
000770

5%:
6%:

001170
78:

000001

JSR
.WORD

61%:
62%:

005726

001217

O5-APR-78

025772
026036

BNE

BNE
TST

MOV
ADD

RTI
CMPB

BEQ
CMPB

BNE
TST
TYPE
$CRLF
CLRB
BR

F 10
14:49 PAGE 122

+MESADR

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1%

s+1S THERE A TERMINAL?
;:BR IF YES

s sLEAVE

RO,=(SP)
#82(SP) RO

NO TERMINAL

::SAVE RO

;:GET ADDRESS OF ASCIZ STRING
;sRUNNING IN APT MODE
62%
;:NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ::SPOOL MESSAGE TO APT
62%
;3NO,GO CHECK FOR CONSOLE
RO,61$
;sSETUP MESSAGE ADDRESS FOR APT
SC,!AIVS
::SPOOL MESSAGE TO APT
;s sMESSAGE ADDRESS
#APTCSUP,SENVM
;:APT CONSOLE SUPPRESSED
60%
;:YES,SKIP TYPE OUT
(RO)+,~-(SP)
;sPUSH CHARACTER TO BE TYPED ONTO STACK
4%
;2BR IF IT ISN'T THE TERMINATOR
(SP)+
ss1F TERMINATOR POP IT OFF THE STACK
(SP)+,R0O
#2,(SP)

;sRESTORE RO

2 sADJUST RETURN PC
s sRETURN
IF

<HT>

#HT, (SP)

;s ;BRANCH

#CRLF, (SP)

; ;BRANCH IF NOT <CRLF>

(SP)+

;:POP <CR><LF> EQUIV
::TYPE A CR AND LF

SCHARCNT

PC,STYPEC
SFILLC,(SP)+

MOV

$NULL
., = (SP)

DECB
BLY
JSR
DECB
BR

JsHALT HERE

#APTENV,SENV

JSR
CMPB

BNE

SEQ 0122

1(SP)

PC,STYPEC

SCHARCNT
7%

s;CLEAR CHARACTER COUNT

::GET 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 IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::00 NOT COUNT AS A COUNT
;:LOOP

HORIZONTAL TAB PROCESSOR
025746
025752
025756
025764
025766
025770
025772

112716

004737
132737
001372
005726
000724
105777

000040
025772
000007

153166

026036

8$:
9%:

MOVB
JSR
BITB
BNE
TST
BR
$TYPEC: TSTB

£ ,(SP)
PC,STYPEC
#7,SCHARCNT
9%
(SP)+

2%
asTPsS

;sREPLACE TAB WITH SPACE
;:TYPE A SPACE
s ;BRANCH IF NOT AT
;:TAB STOP
;:POP SPACE OFF STACK
;sGET NEXT CHARACTER
JsWALIT UNTIL PRINTER

IS READY

(alal

30A(1052)

oA
OO OCOOCOOCOOCOOO
OO0

6047
6048
6049
6050
6051
6052
6053

MACY11

NN
0 o

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

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

6103
6104
6105
6106
6107

6108
6109
6110
6111

6112
6113
6114
6115

025776
026000
026006
026014
026016
026022

026024
026032
026034
026036
026040

100375

116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

000002
000015

MACY11

000002

6129
6130
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

STYPEC

CmMPB

#CR,2(SP)

s:1S CHARACTER A CARRIAGE RETURN?

CLRB

SCHARCNT

ssYES==CLEAR CHARACTER COUNT

BNE
1%:

CMPB
BEQ
INCB
$CHARCNT:.WORD
STYPEX: RTS
.SBTTL

SEQ 0123

BPL

MOVB

026036
000012

G 10
14:49 PAGE 123

O5-APR-78

TYPE ROUTINE

153160
000002

6116
6117
6118
6119
6120
6121
6122

6123
6124
6125
6126
6127
6128

30A(1052)

2(SP) ,a8TPB

;:LOAD CHAR TO BE

TYPED INTO DATA REG.

::BRANCH IF NO

S$TYPEX

JSEXIT

#LF,2(SP)
STYPEX
(PC)+
O
PC

:31S CHARACTER A LINE FEED?
:;BRANCH IF YES
;sCOUNT THE CHARACTER
s ;CHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE

MAAAAAA

AL AR AR

R ARttt
dRdl)

'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 OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
;eSW14=1
;*SW11=1
INHIBIT ITERATIONS

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

;*SW09=1
;*SW08=1
s*CALL
M

026042
026042
026044
026052

104410
032777

026054

000416

026056
026062
026070
026074
026100
026102
026104
026110
026112
026112
026120
026122
026124

013746
012737
005737
012637
000500
022626
012637
000440

026130
026132
026136
026140
026144
026146
026150
026154
026160
026162

001131

032777
001421
005046
117716
001414
022716
002411
011637
005316
006316
062716
013637
000466
005726

$SCOPE:

040000

153102

1%:

SCOPE
CKSWR
BIT

BNE

sHRRRASTART OF

$XTSTR:

000004
026102

177060

MOV
TST

MOV

000004
000400

MOV

000004

153034

;:SCOPE=]0T
;sTEST
FOR CHANGE IN SOFT-SWR
;:LOOP ON PRESENT TEST?

#BIT14,3SWR

$SOVER

CODE

FOR THE

XOR

@#ERRVEC,~-(SP)

#5% ,3#ERRVEC
ar177060

(SP)+,3#ERRVEC

;:YES IF SW14=1
TESTER###NN

;s
1F RUNNING ON THE "'XOR'* TESTER CMHANGE

::THIS INSTRUCTION TO A "'NOP'' (NOP=240)
;;SAVE

THE CONTENTS OF

;:SET FOR TIMEOUT
;:TIME OUT ON XOR?
;,;RESTORE

THE ERROR VECTOR

BR
$SVLAD
;:G0 TO THE NEXT TEST
5%:
CMP
(SP)+,(SP)+
;sCLEAR THE STACK AFTER A TIME OuT
Mov
(SP)+,3#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
7%
;:LO0P ON THE PRESENT TEST
6$:;#¥RFNEND OF CODE FOR THE XOR TESTER###AN

BIT
BEQ

153024

CLR
MOVB

000024

CMpP

#24,(SP)

;:CHECK THE NUMBER IN THE SWR

MOV

(SP),$TSTNM

8%
8%

;;BRANCH IF BAD TEST NUMBER IN SWR
;;BRANCH IF TEST NUMBER IS OUT OF RANGE
:;UPDATE

THE

TEST NUMBER

DEC
ASL
ADD

(SP)
(SP)
#$SWCBTBL,
(SP)

;:BACKUP BY ONE
;:SCALE THE TEST NUMBER AS AN INDEX
;;FORM THE ADDRESS OF TEST POINTER

BR
TST

SOVER
(SP)+

;:G0 LOOP ON THE TEST
ssCLEAN THE BAD TEST NUMBER OFF OF

[ [o]"
8%:

TEST?

ssCLEAR A TEMP. LOCATION
;:PICKUP THE DESIRED TEST NUMBER

BLT

026354
001122

;:LO0OP ON SPEC.
;:BR IF NO

-(SP)
aSWR, (SP)

BEA

001116

#B1T08,aSWR
2%

a(SP)+
, SLPADR

;;SET LOOP ADDRESS TO DESIRED TEST

THE STACK

6164

6165

6166

6167
6168
6169
6170
617
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

026364

026366
026370
026372
026374
026376
026400
026402
026404
026406
026410
026412
026414
026416
026420
026422

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

001117

2%:

001131

001117

001000

152744

001124

001122

001117
001206
004000

7%:
4%:

152712

3%:

001230
001120
001206

000001
026352
001116
001116
001122
001124
001210
000001
001116
001122

001120
001120
001206
001226

1%:

$SVLAD:

TSTB

BEQ
CMPB
BHI

BIT
BEQ
MOV
BR
CLRB
CLR
BR
BIT
BNE
TST
BEQ
INC
CMP
BGE

MOV
MOV
INCB
MOVB
MOV
MOV

001131

152612

CLR

SOVER:

MovB

MOV

MOV
RTI

SMXCNT: 10.
$SWOBTBL:
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

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

SERFLG

s sHAS AN ERROR OCCURRED?

giRlAX.$ERFLG

;sMAX. ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO
;:LOOP ON ERROR?
;:BR IF NO
:sSET LOOP ADDRESS TO LAST SCOPE

#B1T09,aSwR
43
SLPERR,SLPADR
SOVER
SERFLG
STIMES
1%
#BIT11,3SWR
1%
$PASS
1%
SICNT
STIMES,SICNT
SOVER
#1,81CNT
SMXCNT,STIMES
STSTNM
STSTNM, STESTN
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX
STSTNM, @DiSPLAY
SLPADR, (SP)

TST1+2
TST2+2
TST3+2
TST4+2
TSTS+2
TST6+2
TST7+2
TST10+2
TST11+2
TST12¢2
TST13+2
TST14+42
TST15¢+2
TST16+2
TST17+2
TST20+2
TST21+2
TST22+2
TST23+2
TST24+2

;sIEROC THE ERROR FLAG
;sCLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
s INHIBIT ITERATIONS?
;:BR IF YES
1F FIRST PASS OF PROGRAM
;s
INHIBIT ITERATIONS
;s INCREMENT ITERATION COUNT
;:CHECK THE NUMBER OF ITERATIONS MADE
;sBR IF MORE ITERATION REQUIRED
ssREINITIALIZE THE ITERATION COUNTER
;sSET NUMBER OF ITERATIONS TO DO
:sCOUNT TEST NUMBERS
ssSET TEST NUMBER IN APT MAILBOX
s :sSAVE SCOPE LOOP ADDRESS
s sSAVE ERROR LOOP ADDRESS
ssCLEAR THE ESCAPE FROM ERROR ADDRESS
:;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;:DISPLAY TEST NUMBER
;:FUDGE RETURN ADDRESS
;sFIXES PS
s sMAX. NUMBER OF ITERATIONS
::STARTING ADDRESS
:;STARTING ADDRESS
: :STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS
::STARTING ADDRESS

.SBTTL

ERROR WANDLER ROUTINE

AR AR

AR AR AR

;:BR IF NO

;:STARTING ADDRESS
;:STARTING ADDRESS
s:STARTING ADDRESS
s :STARTING ADDRESS
s:STARTING ADDRESS
::STARTING ADDRESS
s:STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
;:STARTING ADDRESS
:;STARTING ADDRESS
::STARTING ADDRESS
AR

OF
OF
OF
OF
OF
OF
OF
OF

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

—

6162
6163

105737
001421
123737
101015
032777
001404
013737
000446

SEQ 0124

6161

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

H 10
30A(1052)
O5-APR-78
14:49 PAGE 124
SCOPE HANDLER ROUTINE

Y ON AN S

6159
6160

MACY11

P = b ed d e b d ek
CSCNOWVMSWN—-O

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

21
22
23
24

s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

CZR
CZR

MACY11

;*AND GO TO ERRTYP ON ERROR

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

110
PAGE 125

s*THE

SWITCH OPTIONS PROVIDED BY

;eSW15=1

s*CALL
st
104410
105237

001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401

$ERROR:

001117
001116
002000

001212
001126
001132
000062

152432
020000

7%:

122737
000001
001007
113757 001130
004737 030466
000
000
000777
005777 152400
100002

001242

22%:
2$:

032777
001402
013716
005737
001402
013716
022737
001001
000000
000002

152364

000000
000000
000000

BEQ

ssNO = SKIP

#BIT10,aSwWR

@SERRPC,SITEMB

;:STRIP AND SAVE THE ERROR ITEM CODE

208
PC,ERRTYP

;:SKIP TYPEOUTS
;:G0 TO USER ERROR ROUTINE

#BIT13,3SWR
JSCRLF

;:SKIP TYPEOUT IF SET

CMPB
BNE
MOVB

#APTENV,SENV
4 3
$ITEMB,21%

;sRUNNING IN APT MODE
::NO,SKIP APT ERROR REPORT
;5:SET ITEM NUMBER AS ERROR NUMBER

.BYTE
.BYTE
BR
TST
BPL

0
0
22%
aSwR
3%

::APT ERROR LOOP
;sHALT ON ERROR
::SKIP IF CONTINUE

PC,.SATY4

4%:

MOV
TST

SLPERR, (SP)
SESCAPE

001210

MOV

BEQ

;s TEST FOR CHANGE

;:FUDGE RETURN FOR LOOPING
;ssCHECK FOR AN ESCAPE ADDRESS

;:BR IF NONE

CMP
BNE

#SENDAD ,a#42
6%

$ESCAPE, (SP)

;:FUDGE RETURN ADDRESS FOR ESCAPE

RTI

.ENABL
LSB
STKCNT: .WORD
S$TKQIN: .WORD
$TKQOUT: .WORD

O
O
O

R R RN

ssACT=11 AUTO-ACCEPT?
;;BRANCH IF NO
JsYES

;sRETURN

TTY INPUT ROUTINE
R AR

IN SOFT-SWR

;:BR IF NO

b} 3

AR R R R

‘

;:LO0P ON ERROR SWITCH SET?

BEQ

HALT

s :REPORT FATAL ERROR TO APT

ssHALT ON ERROR!

001124
001210

.SBTTL

;:RING BELL
;s COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTICN

#2 ,8ERRPC

#B1T09,aSwR

6%:

;:BELL ON ERROR?

MOVB

CKSWR

000042

;:DON'T LET THE FLAG GO TO ZERO

LSBELL
SERTTL
(SP) ,SERRPC

BIT

021642

THE ERROR FLAG

TYPE
INC
MOV

3%:

026624
026626
026630

;:DISPLAY TEST NUMBER AND ERROR FLAG

HALT

001000

;sSET

IN SOFT-SWR

STSTNM,QDISPLAY

JSR

218:

;:TEST FOR CHANGE

MOV

TYPE

026544

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

SERFLG

BNE
JSR

208:

INCB

BIT

000000 104410

CKSWR

sSuB

001132
001130
152444

021662
001217

ERROR

BIT
1%:

ARE:

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

BEQ

152514
152504

THIS RCJUTINE

HALT ON ERROR

;+SW13=1
;*SW10=1
;*SW09=1

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
026554
026556
026560
026562
026570
026572
026576
026602
026604
026610
026610
026616
026620
026622
026622

SEQ 0125

30A(1052)
05-APR-78 14:49
ERROR HANDLER ROUTINE

R RN

AR RN

AR RN RANRARRNRRRRRRRRARRRE

: NUMBER OF ITEMS IN QUEUE
:: INPUT POINTER
: :OUTPUT POINTER

oooocrOrrOrOr
O OMOOOOCO

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

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

6271
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

MACY11

000001
026633
026634

30A(1052)
TTY

J 10
14:49 PAGE 126

05-APR-78

INPUT ROUTINE

$TKQSRT: .BLKB
$TKQEND=.
.EVEN

SEQ 0126

::TTY KEYBOAKD QUEUE

;*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
.
s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

TeCALL:

JSR

RETURN

PC,STKINT

S$TKINT:

CLR

STKCNT

;:CLEAR COUNT OF ITEMS IN QUEUE

$TKQIN,STKQOUT

;;QUEUE

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

MOV
MoV
MOV
MOV

TST
MOV
RTS

#STKQSRT,STKQIN

#STKSRV,3#TKVEC

#200,3#TKVEC+2
a37kB

#100,387kS
PC

;*TK SERVICE ROUTINE

s*THIS ROUTINE WILL

SERVICE

THE

;;MOVE

THE

STARTING ADDRESS OF

INTO THE INPUT & OUTPUT POINTERS.

;;INITIALIZE

;:''BR"

THE

THE KEYBOARD VECTOR

LEVEL 4

;sCLEAR DONE FLAG
;sENABLE TTY KEYBOARD INTERRUPT
;sRETURN TO CALLER
TTY KEYBOARD

INTERRUPT

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;+IT IN THE QUEUE.

s*IF THE CHARACTER IS 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

042716
021627
001007
104401
004737
005726
000137
021627
001004
022737
001500

026756
026756
026764
026766
026772
026774
026776
027002
027004
027010
027012
027016
027020
027024
027030

022737
001004
104401
005726
000451
021627
001021
005077
005726
105777
100375
117746
042716
022627

117746

152252
177600
000003

$TKSRV: MOvB

030020
026634

TYPE

BIC
CMP
BNE

002632
000007

1%:

000176

001154

000001

026624

2%:

001212

000023

3s:

152136
177600

000021

318:

LSCNTLC

PC,STKINT
(SP)+
START

(SP) ,#7
2%

#SWREG, SWR

(}1

CMP
BNE

#1,8TKCNT

BR
CMP
BNE
CLR

5%
(SP) ,#23
32%

TYPE
TST

152150

152142

JSR
TST
JMP
CMP
BNE
CHP
BEQ

9$TKB,~(SP)
# C177,(SP)
(SP)
., #3
18

TST
TSTB
BPL
MOVB

BIC
CHP

.SBELL
(SP)+

asTkKS
(SP)+
asTKS
318
as$TKB,~(SP)
# C177,(5P)
(SP)+ #21

;:PICKUP THE CHARACTER
::STRIP THE JUNK

;:1S IT A CONTROL C?
: ;BRANCH IF NO
ssTYPE A CONTROL=-C ( C)
;s INIT THE KEYBOARD
3sCLEAN UP STACK
;sCONTROL C RESTART
;5:1S IT A CONTROL G?
;;BRANCH IF NO
;1S SOFT-SWR SELECTED?
::G0 TO SWR CHANGE
;:1S THE QUEUE FULL?
:sBRANCH IF NO
;sRING THE TTY BELL
::ELE?N CHARACTER OFF OF STACK
388
23IS IT A CONTROL-S?
::BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
J:CLEAN CHAR OFF STACK
J:WALIT FOR A CHAR
2:LO0P UNTIL ITS THERE
:sGET THE CHARACTER

ssMAKE IT 7-BIT ASCII

31S IT 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
6371
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

MACY11

30A(1052)
05-APR-78
TTY INPUT ROUTINE

152114

MOV
RTI

BNE

32%:

026624
000140

INC
CMP
BLT
CHP
BGT
BIC

000175

000040
177530
026626
026626

026633

026632

026626

A ¥

MOVB

INC
cwp
BNE

MOV

5%:

RTI

027122
027130
027132
027136
027140
027144
027150
027154

022737
001124

105777
100121
117746

042716
021677
001300

Cu176

001154

152022

152016
177600
000007

K 10

14:49

PAGE

31%

#100,387TkS

S$TKCNT
(SP),#140
4%
(SP),m75
43
#40, (SP)
(SP)+,38TKQIN
$TKQIN
STKQIN,#STKQEND
5%

SEQ 0127

127

;;BRANCH IF NO
ssREENABLE TTY KEYBOARD INTERRUPTS
;sRETURN
;sCOUNT THIS CHARACTER
::1S 1T UPPER CASE?
s sBRANCH IF YES
s:IS IT A SPECIAL CHAR?
;;BRANCH IF YES
ssMAKE IT UPPER CASE
s:sAND PUT

IN QUEUE

::UPDATE THE POINTER
::G0 OFF THE END?
;;BRANCH IF NO
#STKQSRT,STKQIN ;sRESET THE POINTER
s ;RETURN

RIS

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
#SUREG, SWR
$CKSWR: CHP
;1S THE SOFT-SWR SELECTED
158
BNE
ssEXIT IF NOT
TSTB
as7kKs
::1S A CHAR WAITING?
158
BPL
::1F NOT, EXIT
MovB
#3TKB,~(SP)
::YES
BIC
CHP
BNE

# (C177,(SP)
(SP) ,#7

7-BIT ASCII

::MAKE IT

;IS IT A CONTROL=-G?
s20f¢ NOT, PUT IT IN THE TTY QUEUE
;:AND EXIT
I

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
s*ROUTINE OR FROM THE

027156
027164
027166
027170
027174
027200

123727
001674

027206
027212
027216
027222
027224
027230
027232
027234
027240

104401
104401

005726
004737
005077
112737

013746

104402
104401

005046
005046
105777
100375

001150

000001

026634

151760
000001

030032
030037
000176

03005¢
151720

001151

SOFTWARE

SWITCH REGISTER TRAP CALL,

AS A RESULT OF

:*CONTROL~-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
CMPB
$AUTOB, #1
;:ARE WE RUNNING IN AUTO-MODE?
BEQ
23
s ;BRANCH IF YES
TST
(SP)+
::CLEAR CONTROL-G OFF STACK
PC,STKINT
JSR
s:FLUSH THE TTY INPUT QUEUE
CLR
as7kKsS
s:DISABLE TTY KEYBOARD INTERRUPTS
MOovB
#1,8INTAG
::SET INTERRUPT MODE INDICATOR

68:

$GTSWR:

19%:

7%:

TYPE
TYPE
MOV
TYPOC
TYPE

LSCNTLG
. SMSWR

s:ECHO THE CONTROL-G ( G)

2sTYPE

CURRENT CONTENTS

TSTB

asTKS
7%

;:SAVE SWREG FOR TYPEOUT
23260 TYPE--OCTAL ASCIICALL DIGITS)
; ;PROMPT FOR NEW SWR
ssCLEAR COUNTER
;s THE NEW SWR
::CHAR THERE?
::1F NOT TRY AGAIN

::PICK UP CHAR
;:MAKE IT 7-BIT ASCII

::1S IT A CONTROL-C?

CLR
CLR

BPL

SWREG,-(SP)

. SMNEW

=(SP)
=(SP)

027242
027246

117746
042716

151714
177600

MOvVB

BIC

as$TkB,-(SP)
# C177,(SP)

027252

021627

000003

CMP

(SP),#3

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

6383
6384
6385
6386
6387
6388
6389
6390
6391
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

062706
123727
001003

000006
001151

000100
002632

027312
027316
027320
027324
027330

021627
001005

000025

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

104401

123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401
000720

TTY

14:49

05-APR-78

30A(1052)

INPUT ROUTINE

BNE

030020

012777
000137

062706
000737

MACY11

TYPE
ADD

000001

CMPB
BNE

#6,5P
M
SINTAG,.

JMP

9%:

030025
000006

CMP
BNE

(SP) ,#25
108

20%:

ADD

#6,SP
19%

000015

10%:

000004
000002
000006
001217
001151

000001

000100

151556

151600

$:
$:

TYPE

CMP
BNE
ST
BEQ
MoV
ADD
TYPE
CMPB

BNE

MOV

025772
000060

;sBRANCH IF NOT
;:YES, ECHO CONTROL-C ¢ C
ssCLEAN UP STACK
;sREENABLE TTY KEYBOARD INTERRUPTS?
: ;BRANCH IF NO
J:ALLOW TTY KEYBOARD INTERRUPTS
s ;CONTROL=C RESTART

LSCNTLC

#100,387TkS
START

::1S IT A CONTROL-U?
:;BRANCH IF NOT
;:YES, ECHO CONTROL=-U ( U)
;; IGNORE PREVIOUS INPUT

LSCNTLU

;3LET'S TRY IT AGAIN

;IS IT A <CR>?
;sBRANCH IF NO
2:YES, IS IT THE FIRST CHAR?
s sBRANCH IF YES
:sSAVE NEW SWR
;s CLEAR UP STACK
:sECHO <CR> AND <LF>
;sRE-ENABLE TTY KBD INTERRUPTS?
:;BRANCH IF NOT
::RE-ENABLE TTY KBD INTERRUPTS

(SP),#15

16%
4 (SP)
11%

2(SP) ,aSwR

#6,5P

.SCRLF

M
SINTAG.

158

#100,387KkS

; sRETURN

:;ECHO CHAR

PC,STYPEC

::CHAR < 0?

(SP) ,#60
18%
(SP) ,#67
18%
#60,(SP)+

000067
000060
000002

;sBRANCH IF YES

::CHAR > 7?

s sBRANCH IF YES
;:STRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
::BRANCY IF YES
::NO, SHIFT PRESENT
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
33
s sKEEP COUNT OF CHAR
;sSET IN NEW CHAR
s;GET THE NEXT ONE

2(SP)

000002
177776

17%:

INC

001216

18%:

TYPE

.DSABL

LSB

AR AR

17%
(SP)
(SP)
(SP)
2(SP)

-2(SP), (SP)
7%

. SQUES
208

AR AR AR A

SEQ 0128

PAGE 128

MoV

151652

72<CR><LF>

;s TYPE

s sSIMULATE CONTROL-U

R Rl

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s*CALL:

;¢
:

027464
027466

011646
016666

000004

000002

RDCHR
RETURN HERE

SRDCHR: MOV
MOV

(SP) ,=-(SP)
4(SP),2(SP)

::GET A CHARACTER FROM THE QUEUE
::CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF
;:PUSH DOWN THE PC AND

;. THE PS

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
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

026624

005237
023727

026630
026630

117766

001003
012737
000002

MACY11 30A(1052)
TTY

177102

026632

CLR
CLR

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

MOV
RTI

64%:
1%:

TST
BEQ
DEC

000004

Move
INC
CMP
BNE
MOV
RTI

026633
026630

2%:
MR

AR AAR AR

14:49

PAGE 129

4(SP)
=(SP)

648 ,-(SP)

?IKCNT

SEQ@ 0129

;:GET READY FOR A CHARACTER
::PUT NEW PS ON STACK
::PUT NEW PC ON

STACK

; ;POP NEW PC AND PS

;:WAIT ON A CHARACTER

STKCNT
;;DECREMENT THE COUNTER
@#$TKQOUT,4(SP)
;:GET ONE CHARACTER
$TKQOUT
;;UPDATE THE POINTER
$TKQOUT,#STKQEND ;;DID IT GO OFF OF THE END?

: ;BRANCH IF NO

#STKQSRT,$TKQOUT ;;RESET THE POINTER
SRR

ARl

: ;RETURN
d

ittt

itldsd)

s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:

6456

6457
6458
6459
6460

05-APR-78

INPUT ROUTINE

027510

026624

M 10

- %

i
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
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

SRDLIN: MOV
CLR
1%:
MOV
2$:
CHP
BLOS
RDCHR

030010
030020

000177

000134
030006
177777

108:

030006
6%:

030010
030006
030006

5%:

000134
030006
000025

030025
000022

001217
030010

ROLIN
RETURN HERE

030006
7%:

MOVB

CMPB
BNE
TST
BNE
MOvVB
TYPE
MOV
DEC
CHP
BLO
MOvVB
TYPE

R3,-(SP)
-(SP)
#STTYIN,R3
#STTYIN+S., R3
33

(SP)+, (R3)
#177,(R3)
5%
(SP)

9
.98
#-1,(SP)

R3
R3,#STTYIN
43
(R3),9%

TST
BEQ
MOVB
TYPE
CLR
CMPB
BNE
TYPE

BR
CMPB
BNE
CLRB
TYPE
TYPE
BR

#25,(R3)
8s

;s INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;;TERMINATOR WILL BE A BYTE OF ALL 0°'S
::SAVE R3

;:CLEAR THE RUBOUT KEY
;sGET ADDRESS
;;BUFFER FULL?
;:BR IF YES

;260 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
::1S IT A RUBOUT
;:BR IF NO
::1S THIS THE FIRST RUBOUT?
;:BR

IF NO

ssTYPE A BACK SLASH

;:SET THE RUBOUT KEY
;:BACKUP BY ONE
;:STACK EMPTY?
;:BR IF YES
;:SETUP TO TYPEOUT JHE DELETED CHAR.
'
;.60 TYPE
::G0 READ ANOTHER CHAR.
: :RUBOUT KEY SET?
;:BR IF NO
ssTYPE A BACK SLASH

;sCLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?
;:BR IF NO

SCNTLU

ssTYPE A CONTROL ‘'U*

3s
(R3)

; ;BRANCH IF NO
:sCLEAR THE CHARACTER

1%
#22,(R3)

+SCRLF
LSTTYIN
2%

2:G0 START OVER

::1S CHARACTER A "' R'"TM
:sTYPE A "CR" & "'LF"
s TYPE THE

INPUT STRING

;.60 PICKUP ANOTHER CHACTER

MACY11 30A(1052)

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

6495
6496
6497
6498
6499

6500
6501
6502
6503
6504
6505
6506
6507
6508
6509
6510
6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523

027726
027732
027734
027740
027744
027750
027752
027756
027762
027764
027766
027770
027776
030004
030006
030007
030010

001216

104401
122723

030006
030006
000015

3s:

001305

105063
104401
005726

015
036440
020040
020075
030062

TYPE

177777

1%
(R3),9%
.99
#15, (R3)+
2%
=1(R3)

000004
030010

MOV
MoV
MOV
MOV

(SP)+,R3
(SP) ,=(SP)
4(SP),2(SP)
#STTYIN,L(SP)

.BYTE
.BYTE
.BLKB
LASCIZ
LASCIZ
LASCIZ

0
0
8.
2>
7 ¢/
>
u/<15><12
7
7 G/<15><12>
/

001220

TYPE
TST

000002
000004
9s:

005015
006525
005015
051412
000040
042516
000

;sCHECK FOR RETURN
::LOOP IF NOT RETURN
:sCLEAR RETURN (THE 15)
s:TYPE A LINE FEED
;s CLEAN RUBOUT KEY FROM THE STACK
: sRESTORE R3
::ADJUSY THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
HH

.SLF
(SP)+

RTI

::RETURN
;sSTORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR

;sRESERVE 8 BYTES FOR TTY INPUT

000
000012
000
051127

S$TTYIN:
SCNTLC:
SCNTLU:
$CNTLG:
$SMSWR:

020127

SMNEW:

LASCIZ

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

LASCIZ

::CONTROL ''C**

<15><12>/SWR =

ARl

SEQ 0130

ssTYPE A °?°
;:CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

. SQUES

BR
"MOVB
TYPE
CMPB
BNE
CLRB

012603

011646
016666
012766
000002
000
000
000010
041536
136

043536

03005€

TTY INPUT ROUTINE

104401

000712
111337

N 10
14:49 PAGE 130

05-APR-78

::CONTROL 'V
/;:CONIROL 6"’

NEW =/

iRttt

ittt

lds

)

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
s*CHANGE IT TO BINARY.

s*CALL:
.
.

RDOCT
RETURN HERE

030062
030064
030072
030074
030076
030100
030102
030104
030106
030110
030112
030114
030116
030120
030122
030124
030126
030130
030134
030136
030140

011646
016666
010046
010146
010246
104412
012600
005001
005002

000004

$RDOCT: MOV

Mov
MOV

1%:

2%:

112046

001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
005726

000002

MOV
MOV
ROLIN
MoV

(SP)+,RO

R1
R2

BEQ

38 -

MOVB

(RO)+,~(SP)

R1
R2
R1
R2
R1
R2

BIC

¥ (7,(SP)

ADD

3s:

R1,=(SP)
R2,-(SP)

CLR
CLR

ASL
ROL
ASL
ROL
ASL
ROL

177770

(SP) ,=(SP)

4(SP),2(SP)
RO,=-(SP)

TST

(SP)+,R1
(SP)+

:;READ AN OCTAL NUMBER
::LOW ORDER BITS ARE ON TOP OF THE STACK
;;HIGH ORDER BITS ARE IN SHIOCT

::PROVIDE SPACE FOR THE
;2 INPUT NUMBER
::PUSH RO ON STACK
:sPUSH R1 ON STACK

::PUSH R2 ON STACK

ssREAD AN ASCIZ LINE

;sGET ADDRESS OF 1ST CHARACTER
s3CLEAR DATA WORD

::PICKUP THIS CHARACTER
;:1F ZERO GET OUT

R Y
L)

;.8
J3STRIP THE ASCII JUNK
::ADD IN THIS DIGIT
::LOOP
;:CLEAN TERMINATOR FROM STACK

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
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
6575
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
6607
6606

030142
030146
030152
030154
030156
030160
030162

010166
010237
012602
012601
012600
000002
000000

B 1

05-APR-78 14:49 PAGE 131
READ AN OCTAL NUMBER FROM THE TTY

MACY11 30A(1052)

000012
030162

$HIOCT:
.SBTTL
ML

R1,12(SP)
R2,SHIOCT
(SP)+,R2

Mmov
Mov
MOV
MoV
Mov
RTI

(SP)+,R1
(SP)+,RO

.WORD
0
TRAP DECODER

AAAA AR

SEQ 0131

;s SAVE THE RESULT

;sPOP STACK INTO R2
;:POP STACK INTO R1
;:POP STACK INTO RO
: :RETURN
;sHIGH ORDER BITS GO HERE
il

ittt

iitils]

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF 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

$TRAP:

1%:

000002

030236

MOV
BIC

MOV
RTI

MOV

Mov
TST
MOvVB
ASL
MOV
RTS

2(SP),=(SP)

#20, (SP)
#18%,-(SP)
RO,=(SP)

2(SP) RO

=(RO)
(RO) ,RO
RO

$TRPAD(RO)
,RO

;sASSUME THE STATUS OF
s: THE CALLER=-=DO NOT ALLOW
;s T=BIT TRAPS
;:SET THE NEW STATUS
::SAVE RO

::GET TRAP ADDRESS
; sBACKUP BY 2
;:GET RIGHT BYTE OF TRAP
::;POSITION FOR INDEXING
;s INDEX TO TABLE
::G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE ''GETPRI'' MACRO
030224
030226
030234

011646
016666
000002

000004

000002

$TRAP2:

.SBTTL

MOV
MoV
RTI

(SP) ,=(SP)
4(SP),2(SP)

;s sMOVE THE PC DOWN
:;MOVE THE PSW DOWN

;;RESTORE

THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES,CALLED

;*BY THE ''TRAP'' INSTRUCTION.

:
030236
030240
030242
030244
030246
030250
030252

030224
025560
025356
025332
025372
025106
025032

030254

027212

030256
030260
030262
030264
030266

027122
027464
027554
030062
024736

S$TRPAD:

ROUTINE
.WORD

$TRAP2

$TYPOC
$TYPOS
$TYPON
$TYPDS
STYPBN

;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS
;;CALL=TYPBN

$STYPE

;;CALL=TYPE

TRAP+1(104401)

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

$GTSWR

;;CALL=CTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

$CKSWR

;;CALL=CKSWR

TRAP+10(104410)

SROLIN

;;CALL=RDLIN

SROCHR
$RDOCT

;; CALL=RDCHR
;;CALL=RDOCT

$SAVREG ;;CALL=SAVREG

TEST FOR CHANGE IN SOFT-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP+12(104412) TTY TYPEIN STRING ROUTINE
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY
TRAP+14(104414) SAVE RO-R5 ROUTINE

Ci
Ci

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

6607
6608
6609
6610

030270

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

030272
030300
030306
030310
030312
030314
030316
030320
030322
030326
030332
030340
030342

6611

MACY11

024774

30A(1052)

TRAP TABLE

.SBTTL

05-APR-78

030432
000340

000024
000026

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
030440
000002
000000
000776
000000
005015
000122

000024

ARAA AL AR

000024
000026

SILLUP:

010046
010146
105737
001450

ittt

iitstsd)

#SPWRDON ,a#PWRVEC

030714
030712

SATY1:
SATY3:

000001

030714

$SATYS:
$SATYC(:

iRttt

titslsd)

;.SET FOR FAST DOWN

::GET SP
;:WAIT LOOP FOR THE TTY
;:WAIT FOR THE INC
;:0F
WORD
::POP STACK INTO @SWR
::POP STACK INTO RS
::POP STACK INTO R4
;:POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

;;SET UP THE POWER DOWN VECTOR

#340,3#PURVEC+2 ;;PRIO 7

.WORD

SPOWER

RTI
HALT

sREPORT THE POWER FAILURE

:;POWER FAIL MESSAGE POINTER

;:THE POWER UP SEQUENCE WAS STARTED

;; BEFORE THE POWER DOWN WAS COMPLETE

<15><12>''POWER"’

::PUT THE SP HERE

.EVEN

APT

AR AR AR

000001
000001

030712

MOV
MoV
MOV
MOV
Mov
MOV
MoV
MOV
Mov
TYPE

$SAVR6: 0
$POWER: LASCIZ

112737
112737
000403
112737

ittt

$SAVR6, SP
$SAVR6
$SAVR6
1%
(SP)+,3SWR
(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

CLR
INC
BNE

1%:

042527

#SILLUP ,@#PWRVEC

MOV

$PWRMG:

047520

: :HANG uP

:POWER UP ROUTINE

150560

030272
000340

SPWRUP: MOV

.SBTTL

030450
030456
030464
030466
030474
030474
030476
030500
030504

030432
030436
030436
030436

ARl

#SILLUP,@#PWRVEC ;;SET FOR FAST UP
#340,3#PURVEC+2 ;;PRIO:7
RO,-(SP)
s :PUSH RO ON STACK
R1,=-(SP)
s sPUSH R1 ON STACK
R2,-(SP)
: sPUSH R2 ON STACK
R3,-(SP)
; sPUSH R3 ON STACK
R4 ,-(SP)
s ;PUSH R4 ON STACK
RS,=(SP)
s sPUSH RS ON STACK
aSWR,=(SP)
; sPUSH aSWR ON STACK
SP,$SAVR6
;s SAVE SP
#S$PWRUP ,3#PWRVEC ;:SET UP VECTOR

MoV
MoV
MOV
MOV
MOV
MOV
MoV
MOV
HALT

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 : MOV
,~MOV
MOV

150626

030436
030344

SEQ 0132

SRESREG ;;CALL=RESREG
TRAP+15(104415) RESTORE RO-R5 ROUTINE
POWER DOWN AND UP ROUTINES

MEARAAA AR AR AR

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

(N
14:49 PAGE 132

COMMUNICATIONS ROUTINE

AR AR

Rl ARl R
Rdd]

MOVB
MOVB
BR
MovB

#1,8FFLG
#1,SMFLG
SATYC
#1,8FFLG

:: 70 REPORT FATAL ERROR
::TO TYPE A MESSAGE

MOV
Mov

RO,=(SP)
R1,-(SP)
SMFLG

::PUSH RO ON STACK
::PUSH R1 ON STACK
: :SHOULD TYPE A MESSAGE?
2IF N oT:

TSTB

BEQ

::TO ONLY REPORT FATAL ERROR

€2
a2

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
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
030570
030576
030600
030606
030614
030620
030624
030626
030626
030632
030634
030640
030642
030646
030650
030656
030664
030670
030674
030700
030704
030706
030710
030712
030713
030714

122737
001031
132737
001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766
013746
004737
000000

105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

012601
012600
000207
000
000
000
030716
000200
000001
000100
000040

MACY11 30A(1052)

001242

000100

001243

000004
000002
001222

000004

001236

CMPB
BNE
BITB
BEQ

1%:

2%:

001236
001240
000004

001222

000004
000002

030624
000004

025560

MOV
ADD

TST
BNE

MOV

TSTB

BNE
SuB
ASR
MOV

MOV

3s:

($:

5%:

030714

MoV

ADD
MOV

JSR
.WORD

10%:

001242
001222

000004
000002
001222
030714
030713
030712

DN
14:49 PAGE 133

SEQ 0133

APT COMMUNICATIONS ROUTINE

000001

177776

05-APR-78

001224
000004

TSTB
BEQ
TST
BEQ
11%:
TST
BNE
MOV
ADD
INC
12%:
CLRB
CLRB
CLRB
MOV
MOV
RTS
$MFLG:
.BYTE
$LFLG:
.BYTE
$FFLG:
.BYTE
.EVEN
APTSIZE=200

APTENV=001
APTSPOOL=100
APTCSUP=040

: ;OPERATING UNDER APT?
;;1F NOT: BR
#APTSPOOL
, SENVM : : SHOULD SPOOL MESSAGES?
3%
::1F NOT: BR
a4 (SP)
RO
;:GET MESSAGE ADDR.
#2,4(SP)
; ;BUMP RETURN ADDR.
SMSGTYPE
::SEE IF DONE W/ LAST XMISSION?
#APTENV,SENV

1%
RO,SMSGAD
(RO)+

s 1F NOT:

$MSGAD,RO
RO
RO,SMSGLGT
#4 ,SASGTYPE

;:SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
;:PUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

5%
@84 (SP) 4%
#2,4(SP)
177776 ,-(SP)
SC.STYPE

$FFLG
12%
SENV

128
SMSGTYPE

11%
@4 (SP) ,SFATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,RO

0
0
0

WAIT

;:PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

::PUT MSG ADDR

IN JSR LINKAGE

: :BUMP RETURN ADDRESS

;:PUSH 177776 ON STACK
::CALL TYPE MACRO

; ;SHOULD REPORT FATAL ERROR?
BR
;:IF NOT:

; sRUNNING UNDER APT?
BR
;:1F NOT:
ssFINISHED LAST MESSAGE?
WAIT
;oIF NOT:
;:GET ERROR #
;:BUMP RETURN ADDR.
ssTELL APT TO TAKE ERROR
;sCLEAR FATAL FLAG
ssCLEAR LOG FLAG
;sCLEAR MESSAGE FLAG
;:POP STACK INTO R1

::POP STACK INTO RO

s sRETURN
s sMESSG. FLAG
::L0G FLAG

;sFATAL FLAG

2z
2

000

015

052012

050131

015
005015
015
005015
015

015
015
015

041412
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

015
015

031600

CONSOLE MESSAGES

.NLIST
BEX
CLSPRN: .ASCII
EQUALS: .ASCIZ

PROMPT: .ASCIZ
QSTMRK: .ASCIZ
HELPQST:

@)a
a=d

<CR><LF>a+a
@79

LASCIZ
<CR>SLF>Q@TYPE HELP TEXT
UBUSQST:

(Y OR N)??a

LASCIZ
<CR><LF>3CHANGE RMO3 UNIBUS ADDRESS OR VECTOR ADDRESS (Y OR N)<CR> 7?73
CNSLOO: .ASCIZ
<CR><LF>3USE SAME DEVICES (Y OR N) 7?73
CNSLOT1: .ASCIZ
<CR><LF>3RMO3 BUS ADDRESS (@
CNSLO2: .ASCII
<CR><LF>SENTRY NOT IN I/0 PAGEa
CNSLO3:
CNSLO4:

LASCIZ

<CR><LF>3ADDRESS MUST BE >160000a

CNSLOS:
E:ngg:

.ASCIZ
.ASCII
LASCIZ
.ASCIZ
.ASCIZ

LASCII
LASCII
LASCIZ

<CR><LF>Q@TYPE (A) TO TEST ALL DEVICES, OR TYPE DEVICEa
@ NUMBER(S)a
<CR>XLF>ITERMINATE INPUT WITH CARRIAGE RETURNa

LO7:

~0}§¥:BEiASCIz
.L

.EVEN

<CR><LF>3RMO3 VECTOR ADDRESS (@
<CR><LF>3ENTRY OUT OF RANGE?
<CR><LF>3ADDRESS MUST BE <1000a
<CR><LF>3RMO3 INTERRUPT PRIORITY (@
<CR><LF>3ENTRY OUT OF RANGEa

<CR>XLF>/NOT EXIST DRIVE

2l
czl
telalctimlatialiacial

000
025012
000

SEQ 0134

etealalctalal_—imlealalialctiealalial

051
075
015
077

EN
14:49 PAGE 134

CONSOLE MESSAGES

.SBTTL

030716
030717
030721
030725
030727
030727
030763
030763
031062
031121
031146
031175
031227
031257
031303
031333
031367
031414
031414
031472
031504
031553

O5-APR-78

smleal

6712
6713

30A(1052)

el ittt

6709
6710
6711

MACYT

—tm

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

F11

14:49

FNCDTB:

031700
031701
031702
031703
031704
031705
031706
031707

001
002
004
010
020
040
100

130001

130001
130001
130001
130001
130001
130001
073300
073300
130001
130001

037200
037000
130001
130001
033300
033300
130001
130001

200

.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
ATNTBL:

OPI

OPI'ATA!ILF!IVC
ATA!OPI!IVC!IAE

ATAIOPI!IVC
OPI

OPI!IVC
OPI'ATA!IVC
OPI!ATA!IVC

OP1
OPI

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!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

WCE!OPI!IVC!IAE'AOE''HCE'ECH
WCE!OPI!IVC!IAE'!AOE'!HCE'ECH

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!WLE'IAE'!AOE'HCE
OPI!IVC!WLE!'IAE'!AOE
OPI'ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!IAE!AOE'HCE'ECH

OPI'IVC!IAE!AOE'HCE'ECH

OPI'ATA!ILF!IVC
OPI'ATA!ILF!IVC
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

020000
130001
132000
130000
020000
030000
130000
130000
020000
020000
130001
130001
132000

sFUNCTION CODE

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

SEQ 0135

PAGE 135

128.

TABLE

:NOP
;ILLEGAL FUNCTION (2)
; SEEK
sRECALIBRATE
;DRIVE CLEAR
sRELEASE
;OFFSET
sRETURN TO CENTERLINE
sREAD IN PRESET
;PACK ACKNOWLEDGE

;ILLEGAL FUNCTION (24)
;ILLEGAL FUNCTION (26)
: SEARCH

;ILLEGAL
;ILLEGAL
:ILLEGAL
; ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL

FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION

(32)
(34)
(36)
(40)
(42)
(44)
(46)

;WRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
;ILLEGAL FUNCTION (54)

;ILLEGAL FUNCTION (56)
;WRITE DATA

;WRITE HEADER AND DATA
s ILLEGAL FUNCTION (64)
;ILLEGAL FUNCTION (66)
;READ DATA
;READ HEADER AND DATA

;ILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION (76)

mimimimie il aimismliaisliaimisalaismiaisaliaisaiaiaisliaisaiaisliaisliaisliaisisisdslaisd
sl st sd ot st st st s ecs Sl Sl st sl st S sl s~

031600

30A(1052)
05-APR-78
CONSOLE MESSAGES

O WN—=00
NN —
BP0
o
o

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

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

30A(1052)
05-APR-78
CONSOLE MESSAGES

000000
046506

EMT1:
EMT2:

6 N
14:49 PAGE 136

SEQ 0136

CZF
CZF

000000
047030
051670
000000
044412
044471
051670
044412
044471
051670
044546
050513

.WORD

EMS300,EMS302 ,EMS307 ,EMS2

.WORD

EMS511,EMS502 ,EMS501,EMS503,0

.WORD
.WORD

EMS301,EMS310,EMS311
EMS511,EMS502,EMS501 ,EMS503,EMS504

.WORD
.WORD
.WORD

EMS312.,0
EMS301,EMS306,EMS311
EMS511 ,EMS502,EMS501 ,EMS503,EMS504,0

EMT7:

.WORD
.WORD

EMS301,EMS313,EMS302
EMS511,EMS501
,EMS502 ,EMS504 ,EMS503,0

EMTS:

EMS301,EMS306,EMS302
EMS511,EMS505,EMS501,EMS502,0

047002
051276

EMT11:

.WORD
.WORD

EMS316 ,EMS317 ,EMS315
EMS511,EMS501 ,EMS502,0

047071
051251

046753
051276

EMTI12:

.WORD
.WORD

EMS316,EMS320,EMS314

047071
051251

047002
051276

EMT13:

.WORD
.WORD

EMS316 ,EMS320,EMS315

047111
051251

046753
051276

EMT14:

.WORD
.WORD

EMS316 ,EMS321,EMS314
EMS511,EMS501,EMS502,0

047111
051251

047002
051276

EMT15:

.WORD
.WORD

EMS316 ,EMS321,EMS315
EMS511,EMS501 ,EMS502,0

047131
051251

046753
051276

EMT16:

.WORD
.WORD

EMS316,EMS322 ,EMS314
EMS511,EMS501,EMS502,0

047131
051257

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,EMS72 EMS377 ,EMS372

EMT21:

.WORD
.WORD

EMS511,EMS503,0
EMS71,EMS336 ,EMS340,EMS72 ,EMS4L00,EMS372

EMT22:

.WORD
.WORD

EMS511,EMS503,0
EMS73,EMS352
EMS74 EMS4L02 ,EMS70,EMS4L06

N
N
N

047051
051251

EMS316 ,ENS317 ,EMS314
EMS511 ,EMS501,EMS502,0

.WORD
.WORD

EMT10:

EmMT6:

046620
051251
000000
046461
051276
000000
046753
051276

EMTS:

T
N
N
N
N

EMS511,EMS501 ,EMS502,0

EMSS11,EMSS501,EMS502,0

N B

046620
051251

046542

.WORD
.WORD

047030
051670

EMT3:

000000
047030
051670
000000
047030
051670
000000
047030
051670
000000
047030
051670
000000
047030
051670
000000

EMS511,EMS500,EMS501 ,EMS502,EMS503,0

051251

.WORD

051276
000000
046603
051276
051371
000000
046526
051276
051371
046722
051251
051345
047051
051251

EMS300,EMS1,0
EMS301,EMS302 ,EMS303,EMST1,EMS304

051670
051345
046436
051670
051345
046664
046436
051670
051345
046436
051670
051371
047030
051670

046420
040057

051251
000000
046461
051251

.WORD
.WORD

040006
046461
046517
051111
051345
046526
051415
000000
046461

046420
046436
040006
051670
051276
046436
051670
051276

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

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

N )

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

032336
032344
032346
032354
032362
032370
032372
032400
032406
032414
032416
032424
032430
032436
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
032650
032656
032664
032672
032700
032706
032714
032722
032726
032734
032742
032744
032752
032760
032766

051670
000000
044546
050513
051670
000000
044546
050513
051670
000000
044546
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

051345

051371

047653

044671
050612
051371

EMT23:

044671
050450
051371

EMT24:

047426
000000
046010

045006

051345

047770
045006

051345

047350
050654
051345
046526
047231
051345

046076
051251

PAGE 137

.WORD

EMS511,EMS503,EMS504,0

.WORD

EMS73,EMS352 ,EMS75,EMS4L02 EMS77 ,EMS4L06

.WORD

EMS511,EMS503,EMS504,0

.WORD

EMS73,EMS356
,EMS7S5 EMS4L02 EMS77 ,EMS377

.WORD

EMS511,EMS503,EMS504,0

EMT2S:

.WORD

EMS73 ,EMS335,EMS340,EMS76,EMS411

EMT26:

.WORD
.WORD

EMS511,EMS503,0
EMS301,EMS306
,EMS252 ,EMS253 ,EMS327 ,EMS254

.WORD

EMS511,EMS503 ,EMS501,EMS502

046753
044546
050654
051345
045051

000000
050645

EMT27:

.WORD
.WORD

EMS330,EMS314,0
EMS337 ,EMS73 ,EMSL10,EMS76,EMS411

000000
047437

EMT30:

.WORD
.WORD

EMS511,EMS503.0
EMS337 ,EMS100,EMS341
,EMS101

051345

051371

.WORD

EMS511,EMS503,EMS504,0

046010
051251

051345

EMT31:

.WORD
.WORD

EMS300,EMS252

EMT32:

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

.WORD

EMS100,EMS370
EMS511,EMS504.,0
EMS100,EMS412
EMS511,EMS504.0
EMS102,EMS412
EMS511,EMS503,0
EMS102,EMS336
EMS511,EMS503.0
EMS100,EMS335,EMS340,EMS102,EMS334

EMT37:

.WORD
.WORD

EMS511,EMS504,0
EMS100,EMS335,EMS340,EMS102
,EMS377 ,EMS365

EMT4O:

.WORD
.WORD
.WORD

EMS413,ENS104 ,EMS415
EMS511,EMS504,0
EMS100,EMS336,EMS340,EMS4L16
,EMST104 ,EMS4LTS5

EMT4N:

.WORD
.WORD

EMS511,EMS504,0
EMS100,EMS336 ,EMS340,EMS73 ,EMS4L15,EMS4L02

EMT42:

.WORD
.WORD
.WORD

EMS102,EMS400
EMS511,EMS504,0
EMS103,EMS401,EMS327
,EMS370

.WORD
.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS414 ,ENS104 ,EMS417
EMS511,EMS504,0
EMS105,EMS401
EMS327 ,EMS370

050265
051371
050672
051371
050672
051345
047373
051345
047350
047340

051371
047350

050450
045273

051371
047373
045273
051371
047372
050742
050461
051371
050476
051345
045273
051371
050476

000000
000000
000000

000000
047426
000000

047426
050165
050742
000000
047426
050742

000000
047426
050513

000000
047231
000000
050774
000000
047231

EMT33:

EMT34:
EMT3S5:
EMT36:

EMT43:
EMT4L4:

EMS511,EMS501,EMS503,0

SEQ 0137

CIR

H 1N

14:49

30A(1052)
O05-APR-78
CONSOLE MESSAGES

r NS S S S S S S S SO S SO SIS SIS SIS SO SIS NI SN SUSESE SN SUE SN SN SESNI SIS SNIESN SUSIESIESNI SESNISIE SN SISNIESNI SIS SNISNI SN NN N

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
6863
6864
6865
6866
6867
6868
6869
6870

MACY1T

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1T
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

051371
050706

000000
050602

051345
045475
051371
050762

000000
051026
000000
045426

051371
040173
051251
050706

000000
046201
000000
050602

051345
050476

000000
047231

051345
050476
051345

000000
050774
000000

033206
033212
033220

046231
051670

000000

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

045656

047571
045111
051670
045551
051670
050706
051670
051043
051670

033332
033340

033346
033352
033356

051345
046043
051251

051345

050476

050774

051345
045426

000000

000000
051013

I N
14:49 PAGE 138

.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS300,EMS253
EMS511,EMS501,EMS503.,0

EMT47:

.WORD
.WORD
.WORD

EMS106,EMS401 ,EMS417
EMS511,EMS503,0
EMS413,EMS107 ,EMS420,EMS4L17

EMTSO0:

.WORD
.WORD

EMS511,EMS504.,0
EMS110,EMS413 ,EMS4LO5,EMS107

.WORD
.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS343,EMS111,EMS421

EMT4S:
EMT46:

EMTS1:
EMTS2:

EMS511,EMS504.,0
EMS4L14 ,ENSL16,EMS107
,EMSS21

EMS511,EMS504,0

EMTS4:

.WORD
.WORD
.WORD
.WORD

EMTSS:

.WORD
.WORD

EMS511,EMS503.0
EMS113,EMS401
,EMS327 ,EMS370

.WORD
.WORD
.WORD

EMS511,EMS503,0
EMS114,ENS40T EMS4LT7
EMS511,EMS503,0

EMTS7:

.WORD
.WORD

EMS257 ,EMS332
EMS511 ,EMS506,EMS501,0

EMT60:

.WORD
.WORD

EMS5,EMS333
EMS511,EMS507,EMS501,0

051013

EMT61:

.WORD

EMS413,EMST115,EMS4L20,EMS417

051371
045051

000000
047437

EMT62:

.WORD
.WOKD

EMS511,EMS504,0
EMS346,EMS100,EMS341
,EMS10T

051371
050302
051345
045673
051371
047667
051371

000000

.WORD
.WORD
.WORD
.WORD
.WORD

EMS511,EMS504,0
EMS113,ENS371
EMS511,EMS503.0
EMS413,ENS116,EMS353
EMS511,EMS504.,0
EMS422,EMS353
EMS511,EMS504.,0

040545
051670

047373
051251

047446
000000

EMT66:

.WORD
.WORD

EMS12,EMS336 ,EMS342

046420
051670
040340

040274
051251
047324

EMT67:

.WORD
.WORD
.WORD

EMS300,EMS6
EMS511,EMS501
EMS7,EMS333,0

000000
047667
000000
000000

000000

EMTS3:

EMTS6:

EMT63:
EMT64:

EMT6S:

.WORD
.WORD

EMS331,ENS4L ,EMS256
EMS511,EMS501,0
EMS112 ,EMS413 ,EMSLOS5 ,EMS607

EMS511,EMS501,0

SEQ 0138

CZR

30A(1052)
05-APR-78
CONSOLE MESSAGES

NANSNSNNSNSNNNNNNNNNNNNNNSNNNNNNNNNNNNNNN

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

[
i

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

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
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)
O05-APR-78
CONSOLE MESSAGES

040274

047231

EMT70:

051251

051371

033364
033372
033374
033402

046420
040340
051670
000000

033404
033412
033420
033426

040274
040411
051670
000000

047350
047324
051251

047426
047446
051276

EMT71:

033430
033436
033444
033452

040274
040411
051670
000000

047373
047340
051251

047426
047446
051276

EMT72:

033454
033462
033464
033472

046436
040454
051670
000000

046265

046506

EMT73:

051251

051276

033474
033502

047500
000000

047514

047446

033504
033510

046420
051670

040623
051345

000000

033516
033524

047571
051670

040623
051345

000000

033532
033540

047412
051670

033546
033554
033560

J 1

14:49

PAGE 139

.WORD

EMS300,EMS6,EMS327
,EMST7

.WORD

EMS511,EMSS501,EMS504,0

.WORD

EMS6 ,EMS335 EMS340,EMS10,EMS333,EMS342

.WORD

EMS511,EMS501,EMS502,0

.WORD

EMS6,EMS336,EMS340,EMS10,EMS334
,EMS342

.WORD

EMS511,EMS501,EMS502,0

.WORD

EMS301,EMS260,EMS303,EMST1

.WORD

EMS511,EMS501 ,EMS502.,0

EMT74:

.WORD

EMS343,EMS344 ,EMS342,0

EMT7S:

.WORD
.WORD

EMS300,EMS13
EMS511,EMS503,0

047543

EMT76:

.WORD
.WORD

EMS346 ,EMS13,EMS345
EMS511,EMS503,0

040623
051345

047543
000000

EMT77:

.WORD
.WORD

EMS337 ,EMS13,EMS345
EMS511,EMS503.0

046436
047607
051670

046722
040623
051345

046076

EMT100:

.WORD

EMS301,EMS313,EMS254
,EMS347 EMS13

000000

.WORD

EMS511,EMS503.0

033566
033574
033576
033604

047571
040737
051670
000000

040672

047437

.WORD

EMS346,EMS14 EMS34T,EMSTS

051345

051251

.WORD

EMS511,EMS503,EMS501,0

033606
033612
033620
033626
033632
033636

047412
051670
046436
047607
051670
040672

044344
051345
046722
040737
051345
047306

.WORD
.WORD
.WORD

EMS337,ENS70
EMS511,EMS503,0
EMS301,ENS313,EMS254
,EMS347 EMS15

.WORD
.WORD

EMS511,EMS503
EMS14 ,EMS332,0

033644
033652
033654
033662

047571
041015

041076

047437

.WORD

EMS346,EMS17 EMS341,EMST6

051670
000000

051345

051251

.WORD

EMS511,EMS503,EMS501,0

033664
033672

047412
041015

041076

047437

.WORD

EMS337,EMS17 ,EMS341,EMST6

000000
046076

EMT101:

EMT102:
EMT103:

000000

EMT104:

EMT10S:

SEQ 0139

CZR
CZR

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

6983
6984
6985

6986
6287
6988

6989
6990

69N
6992
6993
6994
6995

7027
7028

7033
7034
7035
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

041137

047437

051670
000000

051345

051251

033750
033756
033764

041137
047630
051670

047635
041262
051251

0641203
047002
000000

EMT110:

033772
034000
034004

041137
041262
051670

047340
047324
051251

047630

EMT111:

034012
034020
034022
034030

047412
041203
051670
000000

041137

047437

051345

051251

034032
034040
034046
034050

047412
041203
047340

041137
047630

82:32;

051670

051251

000000

034056
034064
034072

0461137
047630
051670

047653
041262
051251

82;;32

034100
034106
034112
034116

046436
047607
051670
041137

046722
041203
051345
047306

046076

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
051345
047306

046076

034210

047571

041464

047437

EMT106:

000000

EMT107:

000000
EMT112:

EMT113:

EMT114:

000000
EMT115:

000000

EMT116:

EMT117:

EMT120:

000000

EMT121:

KN
14:49 PAGE 140

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS301,EMS313,EMS254
,EMS347 ,EMS16

.WORD
.WORD

EMS511,EMS503
EMS17,EMS332,0

.WORD

EMS346,EMS20,EMS341,EMS21

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS20,EMS351,EMS21,EMS350,EMS22
,EMS315

.WORD

EMS511,EMS501,0

.WORD

EMS20,EMS334 ,EMS350,EMS22,EMS333

.WORD

EMS511,EMS501,0

.WORD

EMS337,EMS20,EMS341,EMS21

.WORD

EMS511,EMS503,EMS501.,0

.WORD

EMS337,EMS20,EMS341,EMS21,EMS350,EMS22
,EMS334

.WORD

EMS511,EMS501,0

.WORD

EMS20,EMS352,EMS21,EMS350,EMS22,EMS333

.WORD

EMS511,EMS501,0

.WORD

EMS301,EMS313,EMS254
,EMS347 ,EMS21

.WORD
.WORD

EMS511,EMS503
EMS20,EMS332.0

.WORD

EMS346,EMS23,EMS341,EMS24

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS337,EMS23,EMS341,EMS24

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS301,EMS313,EMS254
,EMS347 EMS24

.WORD
.WORD

EMS511,EMS503
EMS23,EMS332.0

.WORD

EMS346,EMS25,EMS341,EMS26

SEQ 0140

(IR

CZR

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1
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

051345

051251

047412
041542
051670
000000

041464

047437

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

047667

041665

041621
051345
047002

034332
034340
034342

047412

041621

047437

051670

051345

000000

034350
034356
034362
034366

046436
047607
051670
041621

046722
041665
051345
047306

046076

034374
034402
034410

041745
051670
000000

047713
05137

045706
051345

034412
034420
034426

042016
051670
000200

04771%
051371

045706
051345

034430
034436
034442

047746
047437
051670

042076
041665
051371

034450
034456
034462

047746
047437
051670

042135
041665
051371

045706

034470
034476

047256
051670

040173
051371

046137
000000

034504
034512
034514

042173
040737
051670

050010

050032

051251

000000

034522
034526

046316
051670

050106
051345

000000

041665

30A(1052)

05-APR-78

CONSOLE MESSAGES

14:49

n
PAGE 141

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS337,EMS25,EMS341,EMS26

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS301,EMS313,EMS254
,EMS347 ,EMS26

“WORD

E:é?%féfi!§§2?o

.WORD

EMS300,EMS27,EMS307,EMS2

.WORD

EMSS511,EMSS503,0

EMT125:

.WORD
"WORD
"WORD

EMS331,EMS27,EMS3S53
EMS511.EMSSOS
EMS30,EMS315.0

EMT126:

.WORD

EMS337,EMS27 ,EMS341,EMS30

.WORD

EMSS11,EMSS03.0

.WORD

EMS301,EMS313,EMS254
,EMS347 ,EMS30

.WORD
"WORD

EMSS511,EMSS03
EMS27,EMS332.0

EMT130:

.WORD
.WORD

EMS31,EMS3IS54,EMS250
EMSS11,EMSS04,ENSS03.,0

EMT131:

.WORD
"WORD

EMS32,EMS354,EMS250
EMSS511,EMS504,EMS503,0

EMT122:

EMT123:

000000
EMT124:

000000

EMT127:

000000

045706 EMT132: .WORD

EMS3SS,EMS33,EMS250,EMS341,EMS30

000000

.WORD

EMSS11,EMSS04.0

.WORD

EMS355,EMS34,EMS250,EMS341,EMS30

LWORD

EMSS11,EMSS04,0

EMT134:

.WORD
"WORD

EMS331,EMS4,EMS2SS
EMSS511.EMSS04.0

EMT135:

.WORD

EMS3S,EMS357,EMS360,EMS1S

.WORD

EMSS11,EMSS01,0

.WORD
"WORD

EMS261,EMS362
EMSS11.EMS503.0

EMT133:

000000

EMT136:

SEQ 0141

CZRI
CZRI

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
7095
7096
7097
7098
7099
7100
7101
7102
7103
7104
7105
7106
7107
7108
7109
7110
(43}
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
7122
7123
7124
7125
7126
7127
7128
7129
7130
7131
7132
7133
7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144
7145
7146
7147
7148
7149
7150

MACY11 30A(1052)

O05-APR-78

CONSOLE MESSAGES

034534
034542
034544

046420
040057
051670

042235

046542

051251

000000

034552
034560
034564

047746
047437
051670

042265
041665
051371

046137

034572
034600

047571
051670

042325
051371

047543
000000

034606
034614
034616

047412
041665
051670

042325

047437

05137

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
034720

EMT137:

14:49

PAGE 142

.WORD

EMS300,EMS36 ,EMS307,EMS2

.WORD

EMS511,EMS501,0

.WORD

EMS355,EMS37
,EMS255 ,EMS341 ,EMS30

.WORD

EMS511,EMS504,0

EMTY41:

.WORD
.WORD

EMS346,ENSL0 EMS34S5
EMS511,EMS504.,0

EMT142:

.WORD

EMS337,EMS40,EMS341,EMS30

.WORD

EMS511,EMS504,0

EMT143:

.WORD
.WORD

EMS363,EMS310,EMS41
EMS511,EMS501,0

047437
046043
000000

EMT144:

.WORD

EMS337 ,EMS41 EMS341 ,EMS252,EMS327
,EMS253

.WORD

EMS511,EMS501,0

047713
050165
051251

050144
046043
000000

EMT14S:

.WORD

EMS41,EMS354
, EMS364 ,EMS252 ,EMS365,EMS253

.WORD

EMS511,EMS501,0

046436
051670
000000

046526
051251

042235
051345

EMT146:

.WORD
.WORD

ERS311.ERS301 ;ERS503.0

034722
034726

050172
051670

042451
051345

000000

EMT147:

.WORD
.WORD

ERS311.Ens503.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
034762

047412
051670

042235
051251

000000

EMT151:

.WORD
.WORD

EMS337 ,EMS36
EMS511,EMS501,0

034770
034776

042533
051670

047713
051251

042235
000000

EMT152:

.WORD
.WORD

EMS43,EMS354 ,EMS36
EMS511,EMS501,0

035004
035012
035016

050215
042235
051670

047667
050265
051345

050165

EMT153:

.WORD

EMS367 ,EMS353 ,EMS365,EMS36,EMS370

.WORD

EMS511,EMS503,0

035024
035032
035036

050215
042235
051670

047667
050302
051345

.WORD

EMS367 ,EMS353 ,EMS365 ,EMS36,EMS371

000000

.WORD

EMS511,EMS503,0

035044
035052
035054

046420
040057
051670

042604

046542

.WORD

EMS300,EMS44 ,EMS307 ,EMS2

051345

000000

.WORD

EMS511,EMS503.,0

EMT140:

000000

050165

EMT154:

EMT155:

SEQ 0142

CZRI
CZRI

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
715
7152
7153
7154
7155
7156
7157
7158
7159
7160

MACY11 30A(1052)
O05-APR-78
CONSOLE MESSAGES

035062
035070
035076

050215
042604
051670

047667
047713
051345

828}32

035104
035112
035114

046420
040057
051670

042645

046542

051345

000000

035122

050215
042645

047667
047713

050165

035130

EMT156:

000000

040126

EMT1S7:

EMT160:

N1
14:49 PAGE 143

.WORD

EMS367,EMS353,EMS365,EMS44
EMS354 ,EMS3

.WORD

EMSS11,EMS503,0

.WORD

EMS300,EMS4S,EMS307,EMS2

.WORD

EMSS11,EMS503,0

.WORD

EMS367 ,EMS353 ,EMS365 ,EMSLS ,EMS354 ,EMS3

SEQ 0143

CIRI
CIRI

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
n
7172
7173
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185
7186
7187
7188
7189
7190
7191
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 30A(1052)
05-APR-78
CONSOLE MESSAGES

035136
035144

051670
042173

051345
047324

051251

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

B 12
14:49 PAGE 144

.WORD
.WORD

EMS511,EMS503,EMSS01

.WORD

EMS300,EMS46,EMS307,EMS2

.WORD

EMSS11,EMS503,0

EMT162:

.WORD
.WORD

E:§§?1:522283f232§31.o

047412
050331
000000

EMT163:

.WORD

EMS35,EMS335,EMS337,EMS4T,
EMS334, EMS372

.WORD

EMSS11,EMSS501,0

047350
047350
051251

047412
050331
000000

EMT164:

.WORD

EMS47,EMS335,EMS337,EMS4T
, EMS335,EMS372

.WORD

EMS511,EMS501,0

047412
043004
051670
042403
000000

062173

047231

EMT165:

.WORD

EMS337,EMS35,ENS327,EMSLT

051251
047324

050331

.WORD
.WORD

EMSS11,EMSSOT
EMS41,EMS333,EMS372,0

035276
035304
035306
035314

046420
040057
051670
000000

043004

046542

.WORD

EMS300,EMS47,EMS307,ENS2

051251

051345

.WORD

EMSS11,EMS501,EMSS03,0

035316
035324

047350
047324
051251

047426

.WORD

EMS50,EMS335
,EMS340 ,EMS36,EMS333

035330
035336

043044
042235
051670
000000

.WORD

EMS511,EMSS501,EMS503,0

035340
035344

047412
051670

042173
051251

000000

EMT170:

.WORD
.WORD

EMS337,EMS35
EMS511,EMS501,0

035352
035360

043044
051670

042135
051251

040126
000000

EMT171:

.WORD
.WORD

EMSS50,EMS34 ,EMS3
EMS511,EMS501,0

035366
035374
035402

046436
051670
000000

046526
051251

043113
051371

EMT172:

.WORD
.WORD

EMS301,EMS306,EMS5T
EMS511,EMS501,EMS504,0

035404
035412
035420

050215
043004
051670

047667
047712
051251

050165
040126
000000

EMT173:

.WORD

EMS367 ,EMS353,EMS365,EMSLT7
EMS354 ,EMS3

.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

000000
EMT161:

EMT166:

EMT167:

051345

000000

EMT175:

EMS35,EMS333,0

SEQ 0144

(2
(Z

035464

051670

051251

000000

035472
035500
035502

046420
051767
051670

045706

047437

051371

000020

035510
035516
035520

046420
051767
051670

046137

047437

051371

000000

035526
035534
035536

047412
052017
051670

043162

047437

051251

000000

035544
035552
035554

047571
052037
051670

043162

047437

051251

000000

035562
035570
035572

047571
052037
051670

043113

047437

051251

000000

035600
035606
035612
035620

047571
050363

043162

047543

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

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

051670
000000

et 051251

.WORD

EMS511,EMS501,0

.WORD

EMS300,EMS250
,EMS341 ,EMS600

.WORD

EMS511,EMS504,0

.WORD

EMS300,EMS255 ,EMS341,EMS600

.WORD

EMS511,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 ,EMS373 ,EMS255

.WORD

EMS511,EMS504 ,EMS501,0

.WORD

EMS346 ,EMS52 ,EMS341,EMS27

.WORD

EMS511,EMS504 ,EMS501.0

EMT205:

.WORD
.WORD

EMS53,EMS354 ,EMS3
EMS511,EMS503,EMS502,EMS510,0

EMT206:

.WORD

EMS337,EMS54
,EMS374 ,EMS250 ,EMS327 ,EMS255

.WORD
.WORD

EMS327 ,EMS3
EMS511,EMS504 ,EMS501,0

EMT207:

.WORD
.WORD

EMS54 ,EMS354 ,EMS3
EMS511,EMS501,0

EMT210:

.WORD

EMS54 EMS354 ,EMS364 ,EMS250

.WORD

EMS511,EMS504,0

.WORD

EMS54 ,EMS354 ,EMS364 ,EMS255

.WORD

EMS511,EMS504,0

.WORD
.WORD

EMS337,EMS55
EMS511,EMS504,0

EMT176:

EMT177:

EMT200:

EMT201:

EMT202:

EMT203:

EMT204:

051251

EMT211:

EMT212:

SEQ 0145

(w4

CONSOLE MESSAGES

¢ 12
PAGE 145

14:49

05-APR-78

(]

30A(1052)

7217
7218
7219
7220
7221
7222
7223
7224
7225
7226
7227
7228
7229
7230
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
7263
7264
7265
7266
7267
7268
7269
7270
727
7272

MACY11

_mlmilsmimismisl

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

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

30A(1052)
05<APR-78
CONSOLE MESSAGES

047543
047231

EMT273:

7273
7274
7275
7276

035774
036002
036010
036012

043417
050363
045744
051670

051251

7279

036024

047412

043417

051251

000000

7282
7283

036036
036044

051670

047324
047340

047630

036050

043512
043576

051251

000000

7286
;ggz

036056
036064

050127
051670

046526
051251

040224
000000

7289
;gg?

036072
036100

050127
051670

046526
051251

7292
7293

036106
036114

043723
045744

7296
7297

036124
036132

;g;;
;gg?

;ggg

;ggl;

;ggg

036016
036030

036116

036134

EMS511,EMSS01

EMT214:

.WORD

EMS337,EMSS56

EMT215:

.WORD

EMS57,EMS333,EMS350,EMS60,EMS334

.WORD

EMS511,EMS501,0

EMT216:

.WORD
.WORD

EMS363,EMS306,EMSS
EMS511,EMS501,0

DI
g:

043650
000000

EMT217:

.WORD
.WORD

EMS363,EMS306,EMS61
EMS511,EMS501,0

DI
g:

047324

050420

EMT220:

.WORD

EMS62,EMS333,EMS375,EMS251

051670

051251

000000

.WORD

EMS511,EMS501,0

043723
046355

047324

050434

.WORD

EMS62,EMS333,EMS376,EMS262

051251

000000

.WORD

EMS511,EMS501,0

El
Fi

051670

EMT221:

.WORD

EMS511,EMS501,0

2!
2l

EMS56 ,EMS335,0

.WORD

000000

EMS56,EMS334 ,EMS345,EMS373,EMS262,EMS327 ,EMS251

SEQ 0146

.WORD

047350

.WORD

D 12
14:49
PAGE 146

AB
ACI
Cl
Cl

043417

047340
046355

MACY11

g:
g:
DI

:A
|

036142
036150
036152

043723
045706
051670

047324

050434

051251

000000

7304
7305

036160
036166

047571
052100

043723

047437

051670

051251

000000

7308

036176

047571

044004

050434

051251

051345

;ggg
7309
7310
;;};

036170
036204
036206
036214

046355
051670
000000

EMT222:

EMT223:

EMT224:

7313
7314
;g}z

036216
036224
036232

044004
050127
051670

047324
046603
051251

047630
046355
000000

EMT225:

7317
7318

036240
036246

044004
050331

050010

042235

EMT226:

051670

05125

000000

7321
7322
;ggz

036256
036264
036266

044004
040737
051670

047770

050032

051251

000000

;g;g

036250

EMT227:

.WORD
.WORD

EMS511,EMS501.0

.WORD

EMS346,EMS62,EMS341,EMS603

.WORD

EMS511,EMS501,0

.WORD

EMS346,EMS63,EMS376,EMS262

.WORD

EMS511,EMS501,EMS503,0

.WORD

EMS63,EMS333,EMS350,EMS363,EMS310,EMS262

.WORD

EMS511,EMS501,0

.WORD

EMS63,EMS357 ,EMS36,EMS372

.WORD

EMS511,EMS501,0

.WORD
.WORD

EMS62,EMS333,EMS376,EMS250

EMS63,EMS356 ,EMS360,EMS1S
EMS511,EMS501,0

PYPPPPIVPOXEZZ=ZZ=

7300
7301
;gg%

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

MACY11

30A(1052)
05-APR-78
CONSOLE MESSAGES

EMT230:

7325
7326
;gg;

036274
036302
036304

044004
040737
051670

047770

050060

051251

000000

7329
;g%?

036312
036320

044004
051670

047770
051251

042403
000000

7332
7333

036326
036334

042403
050165

050450
044004

7336
7337
7338
;gzg

036350
036356
036362
036370

7341
7342
7343
7344

E 12

14:49

PAGE 147

.WORD

EMS63,EMS356 ,EMS361,EMS15

.WORD

EMS511,EMS501,0

EMT231:

.WORD
.WORD

EMS63,EMS356,EMS41
EMS511,EMS501,0

EMT232:

.WORD

051251

047446
047306

000000

050215
044004
051670
000000

047667
050476
051345

050165

EMT233:

036372
036400
036406
036410

041015
050165
040126
051670

050450
044044

050331
047713

051345

051251

7347
7348
7349

036420
036426
036430

046420
040057
051670

044114

046542

051276

051345

7352
7353
7354
7355

036440
036446
036454
036460

043417
046010
044114
051670

050450
050331
050476
051276

050434
047630

7358
7359

036472
036500

046420
040057

044155

046542

;ggg

;gzg

;g;?

;ggg

036342

036416

036436

036466

051670

000000

051251

000000

051251
EMT234:

EMT235:

EMT236:

051345

EMT237:

EMS41,EMS377,EMS342 ,EMS365,EMS63,EMS332

.WORD

EMS511,EMS501,0

.WORD

EMS367,EMS353,EMS365,EMS63,EMS401

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS16,EMS377 ,EMS372,EMS365,EMS64 ,EMS354 ,EMS3

.WORD

EMS511,EMS503,EMS501.,0

.WORD

EMS300,EMS65,EMS307,EMS2

.WORD

EMS511,EMS502,EMS503,0

.WORD

EMS56,EMS377 ,EMS376,EMS252,EMS372,EMS350

.WORD
.WORD

EMS65,EMS401
EMS511,EMS502,EMS503,EMS501,0

.WORD

EMS300,EMS66,EMS307,EMS2

SEQ 0147

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
7360
7361
7362
7363
7364
7365
7366

7367
7368
7369
7370
737
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

7413
7414
7415

MACY11

30A(1052)

CONSOLE MESSAGES

036502
036510

051670
000000

051251

051345

036512
036520
036526
036534

040737
047630
051670

050461
044155
051345

050331
050476
051251

EMT240:

036536
036544
036552
036554

044155
040737

047373
050612

047426
050602

EMT241:

051670

051345

000000

036562
036570
036574
036600

050522
041203
051670
042235

052121
050450
051345
047350

050513
000000

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
036660

042235
052121
051670

050265

050602

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

050612

047373

047426
050602

051670

051345

000000

036754
036762
036766
036772

050522
041203
051670
042235

052146
050450C
051345
047350

050513

037000
037006
037014
037016

044155
041542
052146
051670

047373
050563

047426
05060¢

051345

000000

037024

044004

050476

050602

000000

052121

O05-APR-78

EMT242:

EMT243:

EMT244:

EMT245:

EMT246:

000000

EMT247:

EMT250:

EMT251:

000000

EMT252:

EMT253:

F 12

14:49

PAGE 148

.WORD

EMS511,EMS501,EMS503,0

.WORD

EMS15,EMS400,EMS372 ,EMS350,EMS66,EMS4L0T

.WORD

EMS511,EMS503,EMS501,0

.WORD

EMS66 ,EMS336 ,EMS340,EMS15,EMSL06,EMS405,EMS604

.WORD

EMS511,EMS503.0

.WORD

EMSL03,EMSS504
,EMS4L02 ,EMS21 ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS36,EMS335,0

.WORD

EMS66 ,EMS336 ,EMS340,EMS26
,EMSL04 ,EMS4L05 ,EMS604

.WORD

EMS511,EMS503.0

.WORD

EMS63,EMS401,EMSL05,EMS604

.WORD

EMS511,EMS503.0

.WORD

EMS36,EMS370,EMS4L05,EMS604

.WORD

EMS511,EMS503.0

.WORD

EMSL03,EMS604
,EMS4L02 ,EMS24 ,EMS377

.WORD
.WORD

EMS511,EMS503

.WORD

EMS67 ,EMS332 ,EMS4L05,EMS604

.WORD

EMS511,EMS503,0

.WORD

EMS66 ,EMS336 ,EMS340,EMS15,EMSL06,EMS405,EMS605

.WORD

EMS511,EMS503.,0

.WORD

EMS4L03,ENS605,EMS402
,EMS21 ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS36,EMS335.,0

.WORD

EMS66 ,EMS336 ,EMS340,EMS26,EMSL04
,EMS405 ,EMS605

.WORD

EMS511,EMS503,0

.WORD

EMS63,EMSL0T
,EMSL05 ,EMS605

EMS36,EMS335,0

SEQ 0148

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
7416
76417
7418
7419
7420

7421

7422
7423
7424
7425
7426
7427
7428
7429
7430
7431
7432
7433
7634
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

037042
037050
037052

MACY11

051345

000000

042235
052146
051670

050265

050602

051345

000000

037060
037066
037072
037076

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

050513

051670
042235

052164
050450
051345
047350

037276
037304
037306

044344

050476

050602

051345

000000

037314
037322
037324

044232
052164
051670

047306

050602

051345

000000

037332
037340

044155
051670

047770
051345

050625
000000

037346

044155

047373

047426

052164
051670

30A(1052)
05-APR-78
CONSOLE MESSAGES

G 12
14:49 PAGE 149

.WORD

EMS511,EMS503.0

.WORD

EMS36,EMS370,EMS4L05 ,EMS605

.WORD

EMS511,EMS503,0

.WORD

EMS4L03 ,ENS605 ,EMS402 ,EMS24 ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS36,EMS335,0

.WORD

EMS67 ,EMS332 ,EMS40S5 ,EMS605

.WORD

EMS511,EMS503,0

.WORD

EMS66,EMS336 ,EMS340,EMST15,EMS406,EMS405,EMS606

.WORD

EMS511,EMS503,0

.WORD

EMSL03,EMS606
,EMS4L02 ,EMS21 ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS36,EMS335,0

.WORD

EMS66 ,EMS336 ,EMS340,EMS26,EMSL04
,EMSLD5 ,EMS606

.WORD

EMS511,EMS503.0

.WORD

EMS63 ,EMSL01 ,EMSL05 ,EMS606

.WORD

EMS511,EMS503.,0

.WORD

EMS36,EMS370,EMS405,EMS606

.WORD

EMS511,EMS503.0

.WORD

EMS4L03,ENS606,EMS402
,EMS24 ,EMS377

.WORD
.WORD

EMS511,EMS503
EMS36,EMS335,0

.WORD

EMS70,EMS401 ,EMS4L05,EMS606

.WORD

EMS511,EMS503,0

.WORD

EMS67 ,EMS332 ,EMS405 ,EMS606

.WORD

EMS511,EMS503,0

EMT267:

.WORD
.WORD

EMS66,EMS356 ,EMSLO7
EMS511,EMS503,0

EMT270:

.WORD

EMS66,EMS336 ,EMS340,EMS15,EMSL06,EMSL05 ,EMS607

EMT254:

EMT255:

000000

EMT256:

EMT257:

EMT260:

000000

EMT261:

EMT262:

EMT263:

EMT264:

000000
EMT265:

EMT266:

SEQ 0149

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
7472
7673

7474

037354
037362

037364

040737
052204

7476
7477
7478
7481
7482

30A(1052)

05-APR=78

CONSOLE MESSAGES

050612

050602

051670

051345

900000

037372
037400
037404

050522
041203
051670

052204
050450
051345

050513

047373

000000
050602

037426

041621
052204

050265

7483

037416
037424

051670

051345

000000

7485
7486

050602

037444

041621
052204

050302

7487

037434
037442

051670

051345

000000

7489
7490

037452
037460

042235
052204

050563

050602

051670

051345

000000

7493
7494
7495

037470
037476
037500

043223
052204
051670

050476

050602

051345

051276

7498

037510

044232

047306

050602

7500

037520

051670

051345

000000

7502
7503
7504

037526
037534
037542

044155
041542
052204

047373
050563

047426
050602

051670

051345

000000

7507
7508
7509

037552
037560
037564

050522
041405
051670

052204
050450
051345

050513

047373

000000

7512
7513

037576
037604

044344
052204

050476

050602

051670

051345

000000

7516
7517
7518
7519

037614
037620
037624
037630

052222
052301
052317
052356

000000
000000
000000
000000

ENT1:
ENT2:
EWNTS:
ENT7:

053012

000000

EHT115: .WORD

7479

7491

749
-

05-APR-78 14:38

MACY11

7499

7505

7510

7514

7520
7521
7522
7523
7524
7525
7526

7527

037410

037462

037506
037516

037544

037570

037606

037634
037640
037644
037650
037654
037660
037664

037670

041621

000000
052204

041621

052375
052423
052522
052621
052657
052734
052310

000000
000000
000000
000000
000000
000000
000000

EMT271:

EMT273:

EMT274:

EMT275:

EMT276:

EMT277:

EMT300:

EMSS11,EMS503,0

.WORD

EMS403,EMS607,EMS402,EMS21,EMS377

.WORD

EMSS11,EMS503

.WORD

EMS27,EMS370,EMS40S,EMS607

.WORD

EMSS11,EMS503,0

.WORD

EMS27,EMS371,EMS405,EMS607

.WORD

EMSS11,EMS503,0

.WORD

EMS36.EMS404,EMS40S5,EMS607

.WORD

EMSS11,EMS503,0

.WORD

EMSS3,EMS401,EMS405,EMS607

.WORD

EMSS511,EMSS03,EMS502,0

.WORD

EMS67,EMS332,EMS40S,EMS607

.WORD

EMSS11,EMS503,0

.WORD

EMS66,EMS336,EMS340,EMS26,EMS404
,EMS405, EMS607

.WORD

EMSS11,EMS503,0

.WORD

EMS403,EMS607,EMS402,EMS24
,EMS377

.WORD

EMS511,EMS503

.WORD

EMS70,EMS401,EMS40S,EMS607

.WORD

EMSS11,EMS503,0

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

EH1,0
EH2.0
EH5.0
EH7.0

.WORD
EMT301:

EHT47:
EHT52:
EWT57:
EWT61:
EWTES:
EHT71:
EHT74:

PAGE 150

.WORD

.WORD
EMT272:

H 12

14:49

EMS27,EMS336.0

EMS27,EMS336,0

EH47,0
EHWS52.0
EH57.0
EH61.0
EH65.0
EH71.0
EH3,0

EHW115.0

SEQ 0150

7535
7536
7537
7538

037724
037726
037730
037732

053700
053710
053714
053722

;ggz

037720

053641

7539
7540
7541
7542
7543
7544
7545
7546
7547

037734
037736
037740
037742
037744
037746
037750
037752
037754

053732
053744
053756
053770
054000
053710
054010
054022
054010

7550
7551
7552
7553
7554
7555
7556
7557
7558
7559

037760
037762
037764
037766
037770
037772
037774
037776
040000
040002

054042
054045
054046
054050
054042
054042
054045
054050
054054
054050

040006
040057
040126
040173
0640224
040274
040340
040411
040454
040524
040545
040623
040672
040737
041015
0641076

047516
103
052506
125
042504
040520
040504
120
040515
051050
111
104
042515
115
115
051127

;gzg

;gg?

7562

037756

040004

041137
041203
041262
041327
041405

000000
000000
000000
000000
000000

000000

EW130,0
EH132,0
EH145,0
EH150,0
EH213,0

EDT1:
EDT2:
EDTS:
EDT47:

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

ED1
ED2
EDS
ED47

.WORD

ED220

EDT52:
EDT57:
EDT61:
EDT65:
EDT71:
EDT74:
EDT115:
EDT130:
EDT132:

EDT220:
EFT1:
EFT2:
EFT5:
EFT57:
EFT65:
EFT71:
EFT74:
EFT115:
EFT130:
EFT132:

054046

106
115
047125
123
115

.WORD
.WORD
.WORD
.WORD
.WORD

EHT220:

054036

042516
047117
041516
052516
044526
052122
040524
051101
051523
041515
046114
040517
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

041511
052116
042506
020113
052116

112
14:49 PAGE 151

EHT130:
EMT132:
EHT145:
EHT150:
EHT213:

.WORD

EH220,0

.WORD
.WORD

ED52
EDS7
ED61
ED6S
ED71
ED2
ED115
ED130
ED115

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_.WORD
.WORD
.WORD
.WORD

EF1
EF2
EF5
EFS57
EF1
EF1
EF2
EF57
EF130
EF57

EFT220:

.WORD

.NLIST
EMS1:
EMS2:
EMS3:
EMS4:
EMS5:
EMS6:
EMS7:
EMS10:
EMS11:

BEX
_ASCI 4
.ASCI 4
_ASCI 4
.ASCI 4
. ASCI 4

EMS12:
EMS13:
EMS14:
EMS15:
EMS16:
EMS17:

EMS20:
EMS21:
EMS22:
EMS23:
EMS24:

EFS5

.ASCI
.
.ASCIZ
_ASCII
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
—

037710
037714

053110
053227
053326
053444
053543

037674
037700
037704

30A(1052)
05-APR-78
CONSOLE MESSAGES

7528
7529
7530
7531
7532

MACY11

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

ONONEXISTENT DEVICE "'NED'' (RMCSZ2,BIT 12) a
#CONTROLLER CLEAR ''CLR" (RMCS2,BIT 05) a
aFUNCTION CODE (RMCS1, BITS 01 - 05) @
@UNUSED BIT POSITIONS OF @

@DEVICE AVAILABLE '‘DVA" (RMCS1, BIT 11) 3
@PARTIY ERROR ''PAR" (RMER1, BIT 03) a
@DATA PARITY ERROR ''DPE'' (RMER2, BIT 03) a
@PARITY TEST "‘PAT' (RMCS2, BIT 04) a
@MASSBUS CONTROL BUS PARITY ERROR 'MCPE' @
@(RMCS1, BIT 13) @
@ILLEGAL REGISTER ERROR '‘ILR'' (RMER1, BIT 01) a
@DIAGNOSTIC MODE ''DMD'‘ (RMMR1, BIT 00) @
QMEDIUM ON LINE “'MOL'' (RMDS, BIT 12) @
@MAINTENANCE UNIT READY '‘MUR'' (RMMR1, BIT 09) a
@MAINTENANCE WRITE PROTECT 'MWP'' (RMMR1, BIT 03) a
QWRITE LOCK ‘WRL'' (RMDS, BIT 11) @

@DEVICE CHECK ‘'DVC'' (RMERZ2, BIT 07) @
@MAINTENANCE DRIVE FAULT ‘‘MDF'' (RMMR1, BIT 06) @
@UNSAFE STATUS "‘UNS'' (RMER1, BIT 14) @
@SEEK INCOMPLETE STATUS ''SKI'* (RMER2, BIT 14) @
@MAINTENANCE SEEK ERROR '‘MSER'' (RMMR1, BIT 07) a

SEQ 0151

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1

041464
041542
041621
041665
041745
042016
042076
042135
042173
042235
042265
042325
042403
042451

05-APR-78 14:38

047520
040515
105
106
114
040514
042523
126
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
042524
047440
047107
020124
051440
051117
045503
046525
044502
047111
020124
047520
040515

EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

J 12
14:49 PAGE 152

QPOSITIONING IN PROGRESS '‘PIP'' (RMDS, BIT 13) a
Q@MAINTENANCE ON CYLINDER ‘MOC'* (RMMR1, BIT 08) @
QEND OF BLOCK '‘EBL'' (RMMR1, BIT 13) 3
@DIAGNOSTIC END OF BLOCK ‘‘DEBL'' (RMMR1, BIT 13) a
@LAST SECTOR STATUS '‘LS'* (RMMR1, BIT 02) a
@LAST SECTOR/TRACK STATUS '‘LST'" (RMMR1, BIT 01) @
QSECTOR ADDRESS, BITS 00-04 OF @
Q@TRACK ADDRESS, BITS 08-10 OF @
@VOLUME VALID “‘vVv'' (RMDS, BIT 06) @
@GO BIT (RMCS1, BIT 00) @
QCYLINDER ADDRESS, BIT 00-09 OF a
@LAST BLOCK TAKEN STATUS "LBT'* (RMDS, BIT 10) a
QCOMPOSITE ERROR °'‘ERR'' (RMDS, BIT 14) a
QCOMMAND SEQUENCER TEST BIT “‘TST'' (RMMR2, BIT 12) a

SEQ 0152

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38

042533

044522
052116
053116
051523
052503
042514
043106
051506
047125

042604
042645
042722

043004
043044
043113
043162
043223
043264
043341
043417
043463
043512
043576
043650
043723
044004

040526
042104

043505
046522
05311
043517
053111
051117

044044
044114
044155

044232
044306
044344

044412
044471
044546
044616
044671
044745
045006
045051
045111
045165
045233
045273
045320
045361
045426
045436
045475
045513
045551
045610
045656
045673
045706
045744
046010
046043

046076
046137
046201
046231
046265

042523

050117
104
051104
040515

042524
0521
042503
053116
020107
042516
051101

051105
051511
053111
047111
044501
051117
952103
047522
044501
047517
044522
040505
042101
040516
042101
042101
040505
052101
052101
041101
020103

041502
045523
052116
047522
051122
047111
051505
043106
044522
046117

MACY11

30A(1052)
O05-APR-78
CONSOLE MESSAGES

042526
047111
046101
047440
044520
040507
042523
052105
040440
044514
042522
051511
021122
020105
040522
020105
020124
052116
020105
052120
046101
052502
020123

EMS43:
EMS&4:
EMS4S:
EMS46:
EMS47:
EMSS0:
EMSS51:
EMSS52:
EMSS3:
EMSS4:
EMSSS:
EMSS6:
EMSS7:
EMS60:
EMS61:
EMS62:
EMS63:

EMS64:
EMS6S5:
EMS66:

EMS67:

044103

EMS70:

052101
041101
020105
042524
052116
040515

EMS71:
EMS72:
EMS73:
EMS74:
EMS7S:
EMS76:
EMS77:
EMS100:
EMS101:
EMS102:
EMS103:
EMS104:
EMS105:
EMS106:
EMS107:
EMS110:
EMS111:
EMS112:
EMS113:

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

EMS114:
EMS115:
EMS116:

EMS250:
EMS251:
EMS252:
EMS253:
EMS254:
EMS255:
EMS256:
EMS257:
EMS260:

K 12
14:49
PAGE 153

.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
<ASCIZ
.ASCIZ
.ASCIZ

@ORIVE READY STATUS "DRY'' (RMDS, BIT 07) @
@QCONTINUE '‘CONT'* (RMMR1, BIT 06) @
@QINVALID COMMAND ERROR “'IVC'' (RMER2, BIT 12) a
@LOSS OF SYSTEM CLOCK ERROR '°LSC'' (RMER2, BIT 11) a
@O0CCUPIED "'OCC'* (RMMR1, BIT 15) @
@ILLEGAL FUNCTION °'‘ILF'" (RMER1, BIT 0) a
@QOFFSET DIRECTION '‘OFD'* (RMOF, BIT 07) a
@OFFSET 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

LASCIZ
.ASCIZ

@''RMR'* (RMER1, BIT 02) @
@ORIVE REQUEST REQUIRED STATUS 'DRQ'* (RMDT, BIT 11) @

.ASCII

.ASCIZ
.ASCIZ
.ASCIZ
+ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ

QREGISTER MODIFICATION REFUSED ERROR @

@PROGRAMMABLE STATUS "PGM'* (RMDS, BIT 09) a
@DRIVE PRESENT STATUS ''DPR'' (RMDS, BIT 08) a
@QPORT REQUEST FLOP '‘RQA,RQB'' (RMMR2, BITS 15,14) a
QATTENTION '‘ATA' (RMDS, BIT 15) @

QWRITE LOCK ERROR '‘WLE'' (RMER1, BIT 11) a
QEXCEPTION ''REX'* (RMMR1, BIT 12) @
@QINVALID COMMAND ERROR ‘‘IVC'* (RMER2, BIT 12) a
@QTAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @
@QLINES (RMMR2, BITS 10,11,13) @
@SEARCH ENABLE "ESRC'' (RMMR1, BIT 11) a

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
+ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
+ASCIZ
.ASCIZ
.ASCIZ
+ASCIZ
.ASCIZ

QOPERATION IMCOMPLETE ERROR °'‘OPI'‘'(RMER1 BIT13) a
@DISARLE SEARCH TIMEOUT ''DTO'" (RMMR1 BIT 12) a
@QDRIVE TIMING ERROR "DTE'‘(RMER1,BIT 12) @
@MAINTENANCE INDEX PULSE 'MI''(RMMR1 BIT 2) a
@MAINTENANCE SECTOR PULSE 'MS''(RMMR1 BIT 5) a
QFORMAT BIT "FMT16'" (RMOF,BIT12) @
QSECTOR COMPARE '‘MSC''(RMMR1 BIT 1) @
@PROM STROBE '‘WC'' (RMMR1 BIT 5) @
@MAINTENANCE BIT CLOCK “MCLK'' (RMMR1 BIT11) a
@LOOKING FOR SYNC "‘PLFS''(RMMR1,BIT10) a
@WRITE GATE ''BBO0O'' (RMMRZ2 BITO) a
QHEADER SYNC PATTERN @
QHEADER AREA '‘PHA'' (RMMR1 BIT 7) a

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@QHEADER @
@READ GATE ''BBO1''(RMMR2 BIT 1) a
@HEADER ERROR @
@DATA TIMING SEQUENCER OUTPUT @

.ASCIZ
.ASCIZ

QECC PATTERN @
QECC ERROR @
@DISK ADDRESS REGISTER (RMDA) a
QCONTROL STATUS REGISTER #1 (RMCS1) @
QERROR REGISTER #1 (RMER1) @
QERROR REGISTER #2 (RMER2) @
@MAINTENANCE REGISTER #1 (RMMR1) a3
QDESIRED CYLINDER REGISTER (RMDC) a
QOFFSET REGISTER (RMOF) @
@QDRIVE TYPE REGISTER (RMDT) @
QHOLDING REGISTER (RMHR) a

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
<ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

SEQ 0153

CZRI
CZRI
EMS/
EMS!
MS¢
EMS/
Ms¢
MS¢
Ms¢
EMS/
As¢
MS¢
MSd
Ms!
MS!
NS¢
Ms¢
MS¢
MS¢
MS¢
MS¢
MS¢

MS!
MS!
MS!
Ms!

EMS!
EMS!

@ENABLE CRC OUT "ECRC'' (RMMR1 BIT 9) a

@DATA AREA ''PDA" (RMMR1 BIT 8) a
@QENABLE ECC OUT "EECC'' (RMMR1, BIT 4) a

[EMS!

MS!
MS!
ms!
MS!
MS!
ms!

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

MACY11 30A(1052)
O05-APR-78
CONSOLE MESSAGES

L 12
14:49 PAGE 154

046316
046355

042523

044522

046101
047105

EMS261:
EMS262:

.ASCIZ
.ASCIZ

@SERIAL NUMBER REGISTER (RMSN) a
QATTENTION SUMMARY REGISTER (RMAS) @

046420
046436
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

040503
040503
101
044527
105
020101
051525

047116
047116
054516
044124
051122
047117
047111

053105
044126
020101

051105
020105
044123

052117
052117
042040
052517
051117
020105
020107
051105
020131
047506
04311
040505
051101
052123
026061
026061
026061
026061
047440
042532
051105
047117
020122
020123
052117
041516
052117
052105
042114
046125
052117
051525
043516
043516
042520
044524
042522
047516
047510
000
051040
051440
044504
04711
052117
047516
047516
030440
030040

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 @
QCANNOT WRITE/READ @
@ANY DEVICE REGISTER @
awITHOUT @
QERROR @
@A ONE FROM @
@QUSING MASSBUS INITIALIZE, I.E., @
@A ZERO FROM @
@EVERY DEVICE REGISTER BIT POSITION @
@THE FOLLOWING BITS ARE STUCK @
@A SHIFTING ONE BIT FROM @
@APPEARS STUCK AT ZERO a
QAPPEARS STUCK AT ONE @
QREGISTER SELECT @
@1 (1,2,4.8,16) a
@2 (1,2,4.8,16) a
@4 (1,2,4.8,16) @
a8 (1,2,4.8,16) @
@ALL ONES FROM @
@ALL ZEROS FROM 3
QAT ZERO @
QAT ONE @
a3, OR @
<CR><LF>aCS MBA CLRL a
@CANNOT READ ZEROS FROM @
@IS INCORRECT @
@IS NOT SET @
@IS SET @
@SHOULD NOT BE SET a
@SHOULD BE SET a
@CANNOT SET @
@BECAUSE @
@QUSING @
@DURING REGISTER TRANSFER @
@UNEXPECTED @
@BUS TIMEOUT (04 TRAP) 3
@BY REGISTER TRANSFER a
@CANNOT RESET @
@WITHOUT SETTING @
aBUT @

047514
047543
047571
047607
047630
047635
047653
047667
047713
047746
047770

050010
050032
050060
050106

050127
050144
050165

101

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
111
111
040503

040527
040527
020060
020061
051511
103
042524
101

052124

055040

050120
042520
044507
024040
024040
024040
024040
046114
020114
055040
020124
047440

041412
047116
044440
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

041516
047516
050040
000040

EMS351:
EMS352:
EMS353:
EMS354:
EMS355:
EMS356:
EMS357:
EMS360:
EMS361:
EMS362:
EMS363:
EMS364:
EMS365:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@WAS RESET BY @
@WAS SET BY @
@IN DIAGNOSTIC MODE @
@IS INCORRECT ACCORDING TO @
@CANNOT INCREMENT @
@WAS NOT SET BY a
@WAS NOT RESET BY @
@0 TO 1 TRANSITION OF @
@1 TO O TRANSITION OF a
@IS INCONSISTENT @
@CANNOT READ @
QTEST PATTERN IN @
@AND @

SEQ 0154

CZR?
CZR?

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
050172
050215

040503
126

047116
042510

MACY11 30A(1052)
O5-APR-78
CONSOLE MESSAGES
052117
041440

EMS366:
EMS367:

ASCIZ
.ASCIZ

14:49

PAGE 155

@CANNOT INITIALIZE @
@THE COMMAND SEQUENCER HAS BEEN CLOCKED @

SEQ@ 0155

CZRMKAD RMO3/2 DSKLS PRT 2

CZRMKA. P11

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

05-APR-78 14:38

122
044504
106
126
127

054502
054502
040527
127
044504

127

047503
127
052504
040527
123
101
053440
051440
044440
041440
053440
041440
042040
107
052504
111

MACY11 30A(1052)

05-APR-78

CONSOLE MESSAGES

N 12
14:49 PAGE 156

SEQ 0156

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
041516

052105
047516
047111
000
020110
040505
044522
042523
047040
047516
042514
047101
047040
043516
042522
041522
051105
041440
042440
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:
EMS411:
EMS412:
EMS413:
EMS414:
EMS415:
EMS416:
EMS417:
EMS420:
EMS421:
EMS422:

.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

QRESET EARLY 3
@DID NOT RESET ON TIME @
@DURING COMMAND EXECUTION @
@70 @
@WITH ANY COMBINATION OF @
@BY READING @
@BY WRITING @
@WAS SET 3
@WAS NOT SET @
@DID NOT SET @
QWHILE @
QSCOMMAND SEQUENCER DID NOT ABORT @
@WAS NOT RESET @
@DURING @
@WAS RESET @
@SEARCH TIMEOUT @
@QAFTER @
@ WAS CHANGED @
@ SET EARLY @
@ INCORRECT @
@ CANNOT DETECT @
@ WAS SIMULATED a
@ CORRECT @
@ DURING WRITE @
Q@GENERATED @
@DURING READ @
QINCORRECT DATA TRANSFERRED TO MEMORY a

EMS500:

.ASCII
LASCII
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCIZ

@
@
@

@
IF MODULE, M7686,8<CR><LF>
@
MASSBUS TRANSCEIVER,M5922 OR M5923
F<CR><LF>
@
CS MODULE
,M7684 ,3<CR><LF>
@
DS MODULE ,M7685,8<CR><LF>
@
DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF>
@
DEVICE IS NOT AN RMO3, ORA<CR><LF>
@
DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, ORa<CR><LF>
@
ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF>
<CR><LF>3
PROBABLE FAULT(S) :@<CR><LF>
@
(NOT INCLUDING CABLES OR CONNECTORS)@<CR><LF>

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

044526
041511
047101

046440
041123
046440
046440
044526
041511
044526
052523
047522
052117

EMS501:
EMS502:
EMS503:
EMS504:
EMS505:
EMS506:
EMS507:
EMS510:
EMS511:

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:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@READ IN PRESET COMMAND 3
@OFFSET COMMAND @
@RETURN TO CENTER CENTER COMMAND 3
QRELEASE COMMAND @
SRECALIBRATE COMMAND @
QSEEK COMMAND @
QSEARCH COMMAND @
QDATA COMMAND @

052222
052252
052301
052310
052317

054105
052123
040
042101
105

041520
052101
040502
042522
050130

042124
051525
042523
051523
052103

EHW1:

LASCII
LASCIZ
LASCII
.ASCIZ
LASCII

QEXPCTD RECEVD REGSTR@<CR><LF>
@STATUS STATUS ADRESSa
@ BASE@<CR><LF>
@ADRESS®
QEXPCTD
STUCK@<CR><LF>

043111
051501
051503
051504
042504
053105
042504
051501
050011
047050

EH2:
EW3:
EHS:

DEVICE IS NONEXISTENT,@3<CR><LF>
DEVICE IS SWITCHED TO OTHER PORT@<CR><LF>
TRANSCEIVER ENABLE SWITCH IS OFF@<CR><LF>

‘
5

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

7563

7564
7565
7566
7567
7568

30A(1052)
O05-APR-78
CONSOLE MESSAGES

052337
052356
052375
052423
052463
052522
052562
052621
052657
052705
052734
052763
053012
053051
053110
053160
053227
053267
053326
053375

122
054105
040
105
106
047123
051104
040
105
123
054105
123
054105
123
054105
052123
105
103
054105
103

051505
041520
044506
050130
051111
050107
052126
054105
050130
040524
041520
040524
041520
040524
041520
052101
050130
052517
041520
050115

046125
042124
051522
052103
052123
052122
050131
042520
052103
052524
042124
052524
042124
052524
042124
051525
052103
052116
042124
051105

053444
053505
053543
053602
053641
053661

054105
122
105
042522
101
122

041520
051505
050130
052523
052103
051505

042126
046125
052103
052114
040525
046125

EH150:

053700
053706
053710
053714
053722

001140
000000
001136
001140
001174

001142

001136

000000
001142
001176

7569
7570
7571
7572
7573
75764
7575
7576
7577
7578
7579
7580
7581
7582
7583

053730
053732
053740
053744
053752
053756
053764
053770
053776
054000
054006
054010
054016
054022
054030

000000
001174
054064
001174
001136
001200
001176
001140
000000
001140
000000
001140
001174
001140
001174

7586
7587
7588
7589
7590

054042
054045
054046
054050
054053

000
000
000
000
000

;ggg

MACY11

054036

001142

B 13
PAGE 157

14:49

SEQ 0157

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
_ASCII
.ASCIZ
_ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCII
.ASCIZ

@RESULT BIT(S)a
QEXPCTD RECEVD®
@ FIRST SECOND
QEXPCTD RECEVD
QFIRST
FIRST
@SNGPRT
DULPRT
@DRVTYP DRVTYP
@ EXPECTED ECC
QEXPCTD RECEVD
@STATUS STATUS
QEXPCTD RECEVD
@STATUS STATUS
QEXPCTD RECEVD
@STATUS
STATUS
QEXPCTD RECEVD
@STATUS
STATUS
QEXPCTD ACTUAL
@COUNT
COUNT
Q@EXPCTD ACTUAL
@CMPERR
CMPERR

.ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCII
.ASCIZ

@EXPCTD
G@RESULT
QEXPCTD
@QRESULT
@ACTUAL
@RESULT

ED1:

.WORD

SGDDAT,$BDDAT,$BDADR,0

000000
001200

ED2:
EDS:
ED47:

.WORD
.WORD
.WORD

SBDADR,O
SGDDAT,$BDDAT,0
STMPO,STMP1,$TMP2,0

054062
000000
001176
000000
001202
000000
001142

001176

EDS52:

.WORD

$TMPO,BUFFER,$TMP1,BUFFER+2,0

001142

ED57:

.WORD

STMPO,$TMP1,$BDDAT,$BDADR,0

001174

ED61:

.WORD

$TMP2,$TMP3,$TMPO,STMP1,0

001174

ED65:

.WORD

$GDDAT,$BDDAT,$TMPO,0

001142

001440

ED71:

.WORD

$GDDAT,$BDDAT,RMHRO,0

001142
00000C
001142
001176

001136

ED115:

.WORD

$GDDAT,$BDDAT,SBDADR,$TMPO,0

001136
000000

ED130:

.WORD

$GDDAT,$BDDAT,$BDADR,$TMPO,$TMP1,0

ED220:

.WORD

$BDDAT,$SBDADR

000

000
000

.BYTE
.BYTE
.BYTE
.BYTE

0,0,0
0

000

EF1:
EF2:
EF5:
EF57:

001136

EN7:
EHW47:
EHS2:
EW57:
EHW61:
EHW65:

EHW71:
EH115:
EH130:
EH132:

EH145:

EH213:
EH220:

.LIST BEX

.EVEN

0.0
0,0,0,0

CRCa
EXPCTD
SECOND

RECEVD@<CR><LF>
SECONDA

RECEVD
DRVTYP@<CR><LF>
DRVTYP REGADRa
RECEIVED ECCa
TEST@<CRO<LF>
REGSTRa
TEST@<CR><LF>
PATTRNG
REGSTR
TEST@<CR><LF>
ADRESS
PATTRN®
REGSTR
TEST
OFFSET@<CR><LF>
ADRESS
PATTRN REGSTRa
REGSTR
OFFSET@<CR><LF>
ADRESS
REGSTRa
REGSTR RMER1
RMER2@<CR><LF>
ADRESS
PATTRN PATTRNa

ACTUAL REGSTR FUNCTION@<CR><LF>
RESULT
ADRESS
CODEa
ACTUAL
STATUS
TEST@<CR><LF>
RESULT
ADRESS
REGSTRa
REGSTR@<CR><LF>
ADRESSa®

054062
054064
054103
054122
054124
054146
054164
054220
054254
054307
054340
054364
054417
054450
054472
054522
054550
054612
054643
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

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

.BYTE

0.0,0.0.0

.EVEN
BUFFER:
BUF ONE :
BUF TWO:

.BLKW
“BLKW

258.
258.

.NLIST

052123
026455

047440
026455

052011
041411
046411
041411
052011
004466
042011
004460
030461
004462
004463
004464
004465
004466
033461
004460
004461
031062
031462
004464

040522
047524
051501
042514

052111
026455
032461
030440
030440
030440
030440
034440
020040
020040
033040
032440
032040
031440
020040
030440
020040
000

044103
026455
004411
004464
004463
004461
004460
004411
004470
004467
004411
004411
004411
004411
004462
004411
004460

044522

042522
044522
042504
051411
042523
047506
051120
054523
054523
040411
054523
051127
044011
042411
041505

HELP:
LASCII
.ASCII
LASCII

¢ 13

14:49

EF130:

PAGE 158

BUFFER

BEX
CCR><LF>

aLIST OF

TESTS@<CR><LF>
------ @<CR><LF>

<CR><LF>
LASCII
TRANSFER TEST@<CR><LF>
all
LASCII
.ASCII
are
CTOD TEST@<CR><LF>
ar3
MASSBUS INITIALIZE TEST@<CR><LF>
LASCII
LASCII
aTé
CLEAR STUCK ACTIVE TEST@<CR><LF>
LASCII
ars
TRISTATE TRANSFER TEST@<CR><LF>
LASCII
até
REGISTER SELECT TESTa<CR><LF>
LASCII
ar7
DRIVE TYPE TESTa<CR><LF>
arti10
LASCII
DEVICE AVAILABLE TEST@<CR><LF>
LASCII
atn
SEARCH TIMEOUT TEST@<CR><LF>
ar12
LASCII
SET DTE TEST@<CR><LF>
LASCII
FORMAT CHANGE TEST@<CR><LF>
arTi13
aTl4
PROM STROBE TEST@<CR><LF>
LASCI1I
LASCI1I
arT1s
SYNC WORD COUNT INHIBIT TEST@<CR><LF>
arlé
LASCII
SYNC DETECTION TEST@<CR><LF>
LASCII
art7
ABORT SYNC DETECTION TEST@<CR><LF>
LASCII
artz20
SYNC GENERATION TEST@<CR><LF>
LASCI1I
arei
WRITE HEADER TEST@<CR><LF>
LASCII
arze
HEADER COMPARE TEST @<CR><LF>
LASCII
ares3
ECC GENERATION TESTa<CR><LF>
LASCII
ar2s
ECC DETECTION TESTa<CR><LF>
<CR><LF>
LASCII
<CR><LF>
LASCII
.ASCII
aSWITCH
USE@<CR><LF>
LASCII
-------------------- A<CRO<LF>
LASCII
15
HALT ON ERROR®<CR><LF>
LASCII
LOOP ON TESTR<CR><LF>
LASCII
INHIBIT ERROR TYPEOUTS@<CR><LF>
LASCII
INHIBIT ITERATIONS@<CR><LF>
LASCII
BELL ON ERROR®<CR><LF>
LASCII
LOOP ON ERROR@<CR><LF>
LASCII
LOOP ON TEST IN SWR<7:0>a<CR><LF>
.ASCII
TN128a<CR><LF>
LASCII
TN64I<CR><LF>
LASCII
TN328<CR><LF>
LASCII
TN168<CR><LF>
LASCII
TNBR<CR<LF>
LASCII
TN4R<CRY><LF>
TN2@<CR><LF>
LASCII
LASCII
TN1@<CR><LF>
<CR><LF>
LASCIZ
.LIST BEX
.END
A}

054062

000
000

054062
054062
055066

000
000

—_—

054054
054057

30A(1052)
05-APR =78
CONSOLE MESSAGES

O=NNWSHIVNONOOVO
=W

7591
7592
7593
7594
7595
7596
7597
7598
7599

MACY11

POVLLVLKLVLVRKRVDRVDVDRDVDVE

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

SEQ 0158

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

ACDWT
Cow2

CPUOP

oOW0
DDV
DOW10
DOW1N
DDW12
DOW13
DOW1 4
DOW1 5
DDW2
DDW3
DDW4

DOWS
DOW6
DOW?7
DDW8
DOW9
DEVCT
DEVM
ENV
ENVM

FATAL=

176700
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

MADR1=
MADR2=
MADR3=
MADR4= 000000
MAMS1= 000000

MAMS?2= 000000
MAMS 3= 000000
MAMS4= 000000
MSGAD= 000000
MSGLG= 000000
MSGTY= 000000

MTYP1=
MTYP2=
MTYP3=
MTYP4=
OE

APASS
PE
PRIOR=
PTCSU=
PTENV=
PTSIZ=
PTSPO=

000000
000000
000000
000000
001000
000000
100000
000000
000040

000001
000200
000100
SWREG= 000000
TA

= 100000

TESTN= 000000
TNMSK= 000377
TNTBL
031700

UNIT = 000000
USWR = 000000

13594
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471

MACY11

D 13
05-APR-78
14:49 PAGE 160
CROSS REFERENCE TABLE == USER SYMBOLS

30A(1052)

SEQ 0159

ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILF
ILR
ILR
ILR
ILR
ILR
ILR
ILR

1512

147
1471
147

1471
147
1471
1471
1471
147N

1471
147
147
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1471
1135#
1471
13384
1471

6066
6059
2247
6061
1471
1115#
6734
1471
11524

2444
1471
1471

6737

6738

6663

6705#

6741

6742

6745

6746

6723
6740

6724
6743

6727
6744

6728
6747

67064
6719
6736

6750#

CZF
CZF

6720
6739

6729
6748

6730

6731

6732

6733

(ZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
AVECT1= 120254
= 000000
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

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

1360
1471
1309#
13084
13284
12454
12440
12434
12424
12414
12404
1239#
1238#
1237#
12364
10314
1021#
1020#
1019#
1018#
10174
10164
1015#
10144
10134
1012#
1030#
lg%;l

=
=
=
=
=
=
=
=
=
=
=
=
=

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

1010#
10094
1008#
1007#
1006#
10294
1028#
10274
1026#
1025#
10244
10234
1022#

= 000400

022422
022424
= 000014

MACY11

E 13

30A(1052)
05-APR-78
14:49 PAGE 161
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0160

147
151

1510

4003
4422

4017
4425

4023
4803

4196
4805

4200

2291
1031
1030
1029
1028
1027
1026
1025
1024
1023
1022
2886
1099

2829
1057
1056
1055
1054
1053
1052
1124
1123
1101
1100

3258
1106
1105
1104
1103
1102
1139
1138
1137
1122
121

3260
1125
1143
1142
1141
1140
1178
1160
1159
1136
1135

4090
1144
1181
1180
1179
1198
1197
1177
1176
1158
1157

4227
1182
1201
1200
1199
1241
1240
1196
1195
1175
1174

4280
1202
1244
1243
1242
1327
1326
1239
1219
1194
1193

4779
1245
1331
1330
1257

1332
1347
1346
1328

1348

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

1051
1118
1117
1116
1115

1119
1132
113
1130
1129

1133
"N
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

url
RD

4586

4588

4615

7570

MR1

5248+
5258+

5251
5261

5266
5264

5311#
5312#

054062

;gégl

;ggg

3483

3660

3798

3910

3978

6127

4322

054062
055066
= 004000
= 002000
022425

4882
75974
12344
1235#
5217

5043

75964

5242

5245+

5249

5254+

5265+

5313«

024476
001526

4646
16054

57664
5337«

5350+

5361+

5602

= 104410

1250#

6130

1345

2286

5230
5216
10384

= 100000

5235+

6225

4906
3328

CZR
CZR

5241+

6251

4957
3348

66024

5678

F 13
30A(1052)
O5-APR-78
14:49
PAGE 162
CROSS REFERENCE TABLE == USER SYMBOLS

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

MACY11

CLR

13264
3070
4609
2364
2316
2326
2361
2370
2375
2386
2396
2407
2420
1196#
9464
9478
12244

2293
3102
4876
2380
24514
67114
67114
67114
67114
67114
67114
67114
6711»

2541
3126
5433
2401

2562
3158
5508
67114

2624
3181

2677
3203

2687
3286

2725
3380

2434
2275
2632

5233
6076

6105
6115

6115

6711

7562

7599

3502
3750

5625
1183

3518
3752

5642
3346

3418

3420

3433

3435

5687

3521
3762

5690

5692

5694

5696

5711

= 000040

CLSPRN
CMNSTA
CNSLOO
CNSLOT
CNSLO2

030716
004254
031062
031121
031146

CNSLO3
CNSLO4
CNSLOS
CNSLO6

031227
031257
031333
031367
031414
000100
000015
000200
001777

CNSLO7
CONT
=
CR
=
CRLF
=
CYLMSK=
BCK
= 100000
BEN
= 040000

DBL
=
Ck
=
DISP =
EBL
=
ISPLA
DISPRE
LT
=
MD
=

002000
100000
177570
020000
001156
000174
100000
000001

1168#
11694

5685
13434
1129
9534
1170#
14430
13704
1315#
1182#
3440

DPE
= 000010
PEHI = 040000
PELO = 020000
PR
=
RQ
=
RVCLR=
RY
=

000400
004000
000010
000200

SWR

= 177570

DTO

= 010000

ULPRT=-024024

VA
v(i
BL
CH
CI
CRC
DT1

=
=
=
=
=
=

004000
000200
020000
0001C0
004000
001000
037724

3015
121

3437

3440

3442

3496

3498

5713

5722

5724

3685
5634

3687
5636

3711
5642

2243+

6185+

6228+

1183

12024

2733

2745

3346

3391

3393

3418

3518
3627
56438
5636
5722

3521
3629
5471
5642
5724

3384

3396

3426

3445

3447

3506

3533

3537

5031

6737

6738

6745

6746

4265
1761

4667
1769

1777

1785

1793

1809

1817

1442

2234

11714
3518
3752
5711
1212#
1051#
12564
11894
1138#¢
12174
11934
1632

1183
3521
3762
5713
3256
2299
2743

3418
3523
3764
5722
3260
3290

11324

3530
5627

2893
-3663

2235+«
2243

9524

11224
12094
10664
11234

3528
5625

2832
3568

5031
2235

3476
3578
3730
5555
5690

5685
1257#
13394
13404

3525
5592

2767
3471

1146
1443

3442
3574
3728
5537
5687

3530
3713
5535

3523
3764

SEQ 0161

1146

1146
2634
4254
1753

3478
3580
3750
5557
5692

3420
3525
5642
5724
3263
3292

3496
3593
3752
5592
5694

3433
3528
5644

3498
3595
3762
5625
5696

3435
3530
5673

3500
3610
3764
5627
5711

3437
3685
5675

3502
3612
5436
5634
5713

3440
3687
5685

3442
3711
5687

3420

3038
4328

3500

3713
5644

3728
5673

3730
5675

3433

3435

3437

3523
3685
5511
5644

3525
3687
5517
5673

3528
371
5519
5675

3496
3713
5690

3498
3728
5692

3500
3730
5694

3502
3750
5696

1825

1833

1841

1849

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

MACY11

1857

1865

HT130
HT132
HT145
HT150
HT2
HT213

037674
037700
037704
037710
037620
037714

2008
1872
75284
75294
75304
2126
1639
75324

1953

2175

1969

2183

1977

2191

1985
753°»

CZR!
CZRI

1993

75384
1672
75394
75404
7541#

75644
7547
75824
7544
75844
7568#
75674
75704
75724
75744
75764
7578#
4667
1754
1866
2010
2128

RMD(
RMD!
RMD!

1681

1913

7537#

MD!
MD!

MD'

ME(

75804

ME(
ME(
ME(
ME(

75664

ME}

ME(

ME}
RME|
ME}

4729
1762
1882
2026
2152

4752
1770
1890

2034

7557#

4753
1778
1898

2042

4763
1786
1922
2050

1794
1930

1810
1938
2144

1808
1944

2136

1818
1946

1826
1954

1834
1970

1842
1978

1850
1986
75504

1848
1992

2168

2176

2184

2192

1824
1968

1832
1976

1840
1984
75164

7551#

1673

2002

2018

1682

1914
7553#

7554
7591#
7556
7560
7557
1752
1864
2024
7527#

7555

7586#

75874
7588#
7559
1760
1880

7589#
1768
1888

2032

7531#

2040

7552#

1776
1896

2048

1784
1920

2134

2166

sroon

037670

1945

2167

~N WV —

EHT115

1929

2143

N — —
s
ed

037770
037772
037774
054042
054054
054045
054046
054050
037614

2135

—

FT65
F171
FT764
F1
F130
F2
F5
F57
HT1

75454

2049

1921

—

037766

7535
7545
7546
7536
7548
7538
7537
7539
7540
7541
7542
7543
1198#
1633
1858
1994
1874
75584
75594
1641
7560#
1665
1962
75544
7555#
75564
7550
7558
7551
7552
7553
1631
1856

2041

1397

— O~
£H MO0
oo
N

EFT57

040002
037762
040004
037764

2001
2017
75424
75434
75440

2033
2151

1889

FT132
FT2
FT220
FT5

037776
040000

1664
1961

1881

SEQ 0162

75364

EFT115
EFT130

037756
037732
037730
037734
037736
037740
037742
037744
037746
053700
054010
054022
053710
054036
053722
053714
053732
053744
053756
053770
054000
000020
037760

75464
7547#
1640
75484
1937

DT220
D147
DTS
EDT52
D157
DT61
DT65
DT71
DT74
D1
D115
D130
D2
D220
D47
D5
D52
D57
D61
D65
D71
ECC
=
EFTT

037750
037752
037754
037726

2025
2127

EDT115
EDT130
DT132
DT2

2009
1873

613

37A(1052)
14:49
PAGE 163
05-APR-78
(ROSS REFERENCE 1ABLE == USER SYMBOLS

2182

2190

ME|
MHI
MHI
MHI
ML/
ML/
ML/
MMi

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

037720

7533#

MACY11

HT47
HTS
HT52
HT57
HT61
HT65
HT7
HT71
HT74
H1
H115
H130
H132
H145
H150
H2
H213
H220
H3
H47
H5
H52
H57
H61
H65
H7
H71
Ms1
MS10
MS100

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
052734
040006
040411
045051

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
7525
6761
6933
6836

1912

75194

75624
75624
75624
75624
7562#
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
75624
6762
6938
6843

75624
75624
6845

6851

6854

6858

MS102

045165

6847

6849

6851

6854

6863

7562#

MS104
MS105
MS106
MS107
MS11
MS110
MST111
MS112
MS113
MS114
MS115
MS116
MS12
MS13
MS14
MS15

045273
045320
045361
045426
040454
045436
045475
045513
045551
045610
045656
045673
040545
040623
040672
040737

6856
6870
6876
6878
6943
6881
6884
6891
6894
6897
6908
6916
€921
6951
6964
6964

6858
75624
75624
6881
75624
75624
75624
75624
6914
75624
75624
75624
75624
6954
6974
6971

6868

7562#

6886

7562#

6957
75624
7089

6960

7562#

7321

7325

MS17
Ms2

041076
040057

6976
6769

6981
7053

6989
7096

75624
7147

Ms21

041203

6991

EMS101

EMS103

EMS16
EMS20

EMS22

045111

045233

041015

041137

041262

6836

6865

6976

6991

6996

7520#
1671
7521#
75224
75234

H 13
30A(1052)
05-APR-78
14:49
PAGE 164
CROSS REFERENCE TABLE =-- USER SYMBOLS

6911

75624

6981

6996

7000

SEQ 0163

75184

75624

6861

6911

75624

7363

7368

7400

7432

747

7155

;
7164

7186

7347

7358

75624

7014

7018

7373

7405

7437

7476

75624

6986
7000
7004

7009

7341

7004

7009

7014

75624
7009

75624

7014

7021

75624

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

MACY11

EMS23

7028
7028
7043
7074
7292
6840

041327
041405
041464

045706
045744
046010
046043
046076
046137
046201
046231

041542
046265
046316
046355
041621
040126
041665
046420
046436
046461
046506
046517
046526
046542
041745

046603
046620

046664
046722
046753
047002

047030
047051

042016
047071
047111

047131
047151
047170
047210
047221
047231
042076
047237
047256
047306
047324

7023
7023
7038
7070
7273
6828
6828
6828
7086
6885
6900
7038

6943

7093
7273
7053
7129
7059
6761
7210
6762
7065

6762
6762

6762
6766

6769
7070

6773

6773
6776
6780
6783
6786
6783
6783
7074

6789
6795
6801

75624
75624
75624
75624

6873
6960

7100
7210
75624
7043
75624
75624
7296
7057
7151
7061
6769
7215
6766
7122
6766

113

30A(1052)
14:49
PAGE 165
05-APR-78
CROSS REFERENCE TABLE == USER SYMBOLS

7036
7033
7051
7078
7562#
7114

75624
7391
7562#
7082

6971

6986

7048
7308
7061
7159
7065

7114

7210
7215

7455

7507

75624

7210

7219

7253

7262

7300

7352
75624
7018
7239

7562#
7033
7253

7048
7266

7065
75624

75624

7378

7410

7442

7502

75624

7313
7068
7199
7078

7479
7249
7100

7481
7255
7107

7510
7341

75624
75624

6951

7485
7259
75624
7053

7096

7147

7155

7164

7186

6943

6960

6971

6986

7018

7033

7048

7118
7118

7223
7562#

6840

6873

6773

6777

6769

6780

7562#

6828
7096

7122
7147

7202
7155

6777

7313
75624

7562#

6960
6789
6792
6786
6786

6971
6795
6798
6789
75624

6986
6801
6804
6792

6792
6798
6804

75624
75624
75624

6943

75620

6777

7053
75624
7111
75624

75624

7202

75624

7223

7562#

6928
7358
6828

75624

7286
7164

7289
7186

75624
7347

7358

7033
7562#
7059
6798

7048

7065

75624

75624
6801

6804

75624

SWO¢

75624

7018

75624

TA1
TA2
TA4
TBI1

T I ME
TKVE
TPVE
TRAF
TRE
TRT\
TST
TST)
TST(

6828

6865

6870

6894

6928

7114

7180

7210

7253

7255

7273

75624

6889
6900
6904

6974
6926

7086
6989
6933

7562#
7021
7000

7036
7014

7051
7162

7068
7183

7332
719

7396
7282

7428
7292

7664
7296

7498
7300

7562#
7313

047340
047350

6851
6807

6938
6825

6851

6854

6933

7172

7273
7172

7282
7176

75624
719

7277

7376

7394

7408

7426

047373

6810
7479

6849

6858

6861

6921

6938

7368

7378

7400

7410

7432

7442

7647

7078
6832

75624

7440

75624
75624
7057

7458

7502

7000

75624

7510

7009

75624

SWO<
SWO¢
SWOi
SWO¢
SWOS
Sw1
SW1(
SW11
SW1¢
SW1l
SW1é
SW1¢
SW2
SW3
SWé
SW5
SWé
SW7
SW8
SW9
TAD?
TAG
TAG/
TAP

6832
6996
6795

CZR!
CZR?

SWO0¢
Sw0!

7423

75624
7244
7206
7082
6924
7347
6780

7219

SEQ 0164

TST!
TST!
TST!
TST!
TST!
TST!
TST!
TST!
TST!
TSTe
TSTq
TST.
TST¢
TSTe

J 13

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

MACY11

EMS337

047412

EMS34
EMS340

042135
047426

6833
7168
7082
6807

6836
7172
7199
6810

6957
7176
75624
6825

EMS341

047437

6836

6911

6964

EMS342
EMS343
MS344

047446
047500
047514

7304
6921
6884
6948

75624
6933
6948
7562#

EMS346

047571

335;

ggzg

6964

MS345

MS347

EMS35
EMS350
EMS351
MS352

MS353
EMS354
MS355
MS356

EMS357
MS36
EMS360
MS361
MS362
MS363
EMS364
MS365

EMS366
MS367

047543

047607

042173
047630
047635

047653

047667
047713

7410
7078

6960

6971

7089
6996
6996

6916
;gzg

050032
050060
050106
050127
050144
050165

7426
7089
7325
7093
7111
7118
6854

050215

7129

’

7162
7000
75624

6813

7078
6821

050172

6957

6817

’

7089
7096

7126

6918
7074

SEQ 0165

CZRY
CZRY

TST
TS13
TST4
TSTS
TSTé
117
TYPE
TYPD
TYPE

6969
7180

6981
7196

7004
7227

7009
7253

7028
7270

7043
7279

7061
75624

7107

7114

7133

6851
7471
6976
7107

6854
7502
6981
7114

6858
7562#
6991
7212

6861

6933

6938

7191

7368

7378

7400

7004

7009

7023

7028

7038

7043
7235

7244

6938
75624

6948

7332

75624

7104

7239

7273

7562#

7023

7038

7104

7231

7235

7239

7244

7304

7033

7048

7065

75624

7352

7363

75624

7151
7159

7159
7206

7168
7249

7206
7259

7336
7262

75624
7266

7341

7419

7442

7082

6954

047746
047770

050010
042235

7632

30A(1052)
05-APR-78
14:49
PAGE 166
CROSS REFERENCE TABLE =~ USER SYMBOLS

7100

6986

6976

7018

7172
7009

7180
7014

7014

7562#

7057
7118

6991

7196
7282

75624
7313

7215

7219

7223

7227

7231

7129
7129

7139
7136

7143
715

7562#
7329

7468

75624

7136
7458

7139
7489

7143
75624

7191

7317

7376

7387

7394

7408

7143

7151

7159

7206

7332

7336

7341

7562#

7061

7082
7321

7100
7325

7440
7321
75624
75624
7286
7262
7118

7451
75624
7289
7266
7129

7313
7562#
7139

7139

7143

7151

7159

7206

7336

75624

6870

6894

7139

7387

7419

7451

7481

7562#

7172

7176

7183

7317

7341

7352

7363

75624

7352
7332

75624
7341

7352

7373

7391

7405

7423

7437

7455

7476

7317
7122

75624

75624
7133

_
75624

EMS37
MS370
EMS371
Ms372
EMS373
MS374
MS375
MS376

042265
050265
050302
050331
050363
050367
050420
050434

7100
6843
6914
6807
7239
7253
7292
7296

75624
6865
7143
6810
7273
75624
75624
7300

ggg;’

7308
6854

MS4
MS40
MS400
MS401

040173
042325
050461
050476

6889
7104
6810
gg?g

7086
7107
6863
ggzg’

75624
75624
7363
6876

7562#
6894

6897

7336

7354

7363

7383

7415

7447

7460

7493

Ms402

050513

6813

6817

6821

6861

7373

7391

7405

7423

7437

7455

7476

7507

7562#

MS405

050602

6881
;225‘

6891
7447

7368
7451

7378
7460

7383
7464

7387
747

7396
7481

7400
7485

7410
7489

7415
7493

7419
7498

7428
7502

7432
7512

MS377

EMS403
EMS404

050450

050522
050563

ggg;

7373
7378

7391
7410

7485

75624

7405
7442

75624

7423
7489

7437
7502

7455
75624

7476

7507

75624

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

EMS406
EMS4L07
Ms41

EMS410
MS411

MS412
MS413
EMS414
MS415
EMS416
MS417

EMS42

MsS420
Ms421
MS422
MS43
MS44
MS4S5
MS46
MS47
MsS
MSS0
MS500
Ms501

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
1M

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

EMS503

051345

[EMS504

MS505
MS506

MS507
MS51
MS510
Ms511

051371

051415
051470
051525
043113
051615
051670

7256
7319

6764
6805
6764
6838
6952
7025
7123
7250
7393
7453
7509

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

6767
6830
6978
7098
7193
7260
7323

6767
6830
6771
6841
6955
7030
7127
7310
7398
7457
7514

6778
6880
7102

K 13
30A(1052)
O05-APR-78
14:49
PAGE 167
CROSS REFERENCE TABLE =< USER SYMBOLS
7368

7400

7432

747

75624

7118

772

7176

7183

7329

6891

6908

6916

7562#

75624
75624
6881
75624

6861

7562#

6878

6897

6908

7206

7562#

6774
6874
6993

6778
6890
6998

75624

75624
75624
75624

75624
75624
75624
7186
75624
75624

6771
6841
6983

7112
7197
7276
7327

6771
6935
6774
6848
6958

7035
7131
7338
7403
7462
75624
6781
6885
7105

7116
7200
7280
7330

6774
6940
6778
6850
6962
7040
7141

7120
7203
7284
7334

6778
6945
6781
6867
6966

6781
6901

7002
7123
7208
7287
7338

6781
7250
6809
6872
6970
7050

6784
6905
7006
7134
7213
7290
7344
6784
7349
6812
6874

6973

SEQ 0166

7332

75624

6787
6922
7012
7137
7217
7294
7355
6787
7355
6815
6877
6978

6790
6925
7016
7161
7229
7298
7360

6790

7058

7157
7365
7425
7483

7495
6819
6883
6983
7063
7161
737
7430
7487

6793
6930

6796
6935

7030
7174
7237
7306
75624
6796

6799
6940
7040
7178
7241
7310

6802
6945
7045
7182
7246
7315

6799

6802

6827
6896
6993

6835
6915

7166
7375
7435
76491

7071
7169
7381
7439
7495

6830
6898
7006

7075
7188
7385
7445
7500

7020
7094
7193
7389
7449
7505

7025
7169
7233

7302
7365
6793
75624
68236893
6988
7067

7344
7407
7466

7045
7145
7349
76413
7469

6815
6888

6819
6910

6823
6913

6838
6917

6844
6919

6846
6930

6853

6857

6860

6864

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

6793
6838
6874
6913
6962

6796
6841
6877
6915
6966
7025

6799
6844
6880
6917
6970
7030

6802
6846
6883
6919
6973

7109

7203

7149
7355
76417
7474

7055
7153
7360
7421
7478

7221

7225

7241

7246

7071
7256

7075
7264

7080
7268

7084
72N

75624
75624

75624

6771
6812
6853
6890
6930
6988

6835
6872
6910
6958

7016

7020

7035

$80(C

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

MACY11

7040
7094
7141
7197
7250
7302
7360
7421
7478
7227

7045
7098
7145
7200
7256
7306
7365
7425
7483
7231

7253
7270

7259
75624

EMS52

EMS53
MS54
MS55

MS56
MS57
msé
MS60
MS600

MS601
Ms602
MS603
MS604

EMS605
EMS606

EMS607
EMS61

043162

043223

7249

043417
043512
040274
043576
051767

7273
7282
6924
7282
7212

043264
043341

052017
052037
052100
052121

052146
052164

052204
043650

MS62
MS63
EMS64
MS65
MS66

043723
044004
044044
044114
044155

MS70
MS71
MS72
MS73

044344
044412
04447
044546

MS75
MS76
MS77
MTVEC=
MT1
MT10
MT100
MT101
MT102
MT103
MT104
MT105
MT106
MT107
MT11
MT110
MT111
MT112

044671
044745
045006
000030
031710
032076
033546
033566
033606
033620
033644
033664
033704
033730
032114
033750
033772
034012

EMS67
EMS7

EMS74

044232
040340

044616

7227
7231
7304
7368

7400
7432

6891
7289
7292
7308
7341
7347
7358

L 13

30A(1052)
05-APR-78
14:49 PAGE 168
CROSS REFERENCE TABLE == USER SYMBOLS
7050
7102
7149
7203
7260
7310
7371
7430
7487
7239

7055
7105
7153
7208
7264
7315
7375
7435
7491
7244

7058
7109
7157
7213
7268
7319
7381
7439
7495
75624

7493

75624
7262

7266

75624

7277
7562#
6928
75624
7215

7279

7352

7562#

6933

6938

7562#

7219

7223

7562#

75624
7235
75624
7373

7405
7437

7471
75624

7378

7383

7476

7481

7410
7442

7387

7084
7131
7182
7237
7290
7344
7407
7466

7087
7134
7188
7241
7294
7349
7413
7469

75624
7502

7507

7512

75624

7332

7336

7383

7415

7447

7562#

7410

7432

7442

7468

7471

7502

7562#

6861

7562#

75624
7325

7329

6969
6810
6810
6817

7460
75624
75624
6821

7512

7562#

6825

6833

6817
6825
6817
106414
1630
1687
69604
69644
69694
6971#
69764
69814
69864
6991#
1695
69964
70004
70044

6821
6833
6821
2218+
67614
67834

75624
75624
75624
2219+

2489+

7464
75624

7498

7304
7321

7485

6813
6807
6807
6813

67864

7080
7127
7178
7233
7287
7338
7403
7462
75624

7493

7428
7460

7400

75624

7075
7123
7174
7229
7284
7334
7398
7457
7514

75624

7423
7455

7378

6813

7071
7120
7169
7225
7280
7330
7393
7453
7509

7396

7419
7451

7368

75624

7391

76415
7447

7300
7317

7428
6928

7067
7116
7166
7221
7276
7327
7389
7449
7505

75624

7296
7313
75624
7354
7363

7396
6926

7063
7112
7161
7217
7271
7323
7385
7445
7500

SEQ 0167

7498

7562#

7489

75624
7464

7091
7137
7193
7246
7298
7355
7417
7474

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

EMT113
MT114

MT115

mT116
nT117
mT12
n1120
mT121

1122
MT123
MT124
MT125
MT126
1127
MT13
MT130
MT131
MT132
MT133
MT134
MT135
mT136
MT137
MT14
MT140
MT141
MT142
MT143

MT144
MT145
MT146
MT147
MT15
MT150
MT151
MT152
MT153
MT154
MT155
MT156
mT157
nT16
MT160
MT161
MT162
MT163
MT164
MT165
MT166

MT167
nT17
MT170
mT171
Ent17
mT17
MT174

034032
034056
034100
034124
034144
032132
034164
034210
034230
034250
034274
034312
034332
034350
032150
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
035276
035316
032240
035340
035352
035366
035404
035426

7009#
70144
70184
70234
7028#
1703
70334
7038#
70434
70484
7053#
7057#
7061#
7065#
1711
70704
70744
70784
7082#
70864
7089#
70934
70964
1719
7100#
71044
71074
71114
71144
71184
71224
71264
1727
7129#
7133#
71364
71394
71434
71474
7151#
7155#
1735
7159
71644
7168#
71724
71764
71804
71864
7191#
1743

2125

71994

2141
2149
2157

MACY11

67894

67924

67954

67984

68014

6804#
7196#
75020

06#

72104

30A(1052)

OS5-APR-78

13
14:49 PAGE 169

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0168

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

EMT175

MT176
1177
M12
M120
M1200
MT201
M1202
M1203
MT204
MT1205
MT1206
n1207
AT21
MT1210
1211
MT1212
MT1213
MT1214
MT1215
MT1216
MT1217
MT22
M1220
M1221
M1222
M1223
MT224
MT225
MT226
M1227
MT123
MT230
MT231
M1232
MT233.
MT234
MT235
MT1236
M1237
MT24
MT1240
Mi241
MT242
MT243
MT244
MT245
MT246
MT247
M125
MT1250
MT251
M1252
MT253
MT254
MT255

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
72440
72494
72534
72594
1759
72624
72664
72704

N 13
MACY11 30A(1052)
05-APR-78
14:49 PAGE 170
CROSS REFERENCE TABLE == USER SYMBOLS

72154
7219#
72234

67624
68074
72274

68104

72734

72794
72824
72864
72894
1767
72924
72964
73004
73044
7308#
73134
73174
73214
1775
73254
73294
73324
73364

68134

68174

73414

73474
73524
7358#
1783
73634
73684

73734
73784
73834
7387#
73914
73964
1791
764004
764054
7410#
74154
764194
74234

68214

6825#

SEQ 0169

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
EMT256
MT1257
MT126
MT260
MT1261
MT1262
MT263
MT264
MT1265
MT1266
MT1267
MT27
MT270
MT271
MT272
MT273
MT274
MT275
M1276
MT277
nT3
MT30
MT300
MT301
MT31
MT32
MT33
MT34
MT35
MT36
MT37
MT4
MT40
MT41
MT42
MT43
MT44

MT45

037104

037122
032436
037146
037172
037216
037234
037252
037276
037314
037332
032470
037346
037372
037416
037434
037452
037470
037510
037526
031744
032510
037552
037576
032530
032544
032556
032570
032602
032614
032634
031764
032664
032706
032734
032752
032766

033004

MT46

033020

MT53
MT54
MT55
MT56
MT57
MT6
MT60
MT61
MT62
MT63
MT64
MT65

033122
033136
033154
033172
033206
032032
033222
033236
033254
033272
033304
033320

MT47
MTS
MT50
MT51
MT52

033034
032006
033052
033070
033104

764284
76324
1799
74374
764420
74474
74514
74554
7460#
764640
764684
1807
74714
74764
74814
74854
74894

2133

1967
75024
1646

1815
7507#
7512#
1823

1831
1839
1847
1855
1863
1871
1654
1879
1887
1895
1903
68704
1919
1927
1935
1662
1943
68844
1959
68894
1975
1951
1991
1999
1670

2007
2015
2023
2031
2039
2047

MACY11

30A(1052)

05-APR-78

B 14
14:49 PAGE 171

CROSS REFERENCE TABLE =~ USER SYMBOLS

SEQ 0170

CZR
CZR

$TY

SUN
$US
S$VE
$VE
$XT

6828#

$$6
$$S
$OF

$40

6833#

.SA
. $X

764934
7498#

67664
68364

68404
68434
68454
68474
68494
68514
68544
67694
6858#
68614
6865#
9

6868#

68734
68764
68784
67734
68814
68864

6891#
1983

68974
69004
67774
6904#
6908#
69114
69144
69164
6918#

6894#

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

MACY11

2054
2061

69214
69244
6780#
6928#
69334
6938#
69434
69484
69514
69544
69574
3410

EMT66
EMT67
ni?

033332
033346
032054

MT70

033364

MT72
MT73
MT74

033430
033454
033474

MT76
MT77
NBSCH
EQUALS
RR
=

033516
033532
023326
030717
040000

MT71

033404

EMT75

RRNMB

ERRTYP

033504

022420

021662

RRVEC= 000004

RTYOO
RTYO1
RTY02
RTYO3
RTYO4
SRC
=
FER
=

022426
022434
022444
022453
022461
004000
000020

FMT16 = 010000

FNCDTB
FNCMSK=
FO
=
1
=
F2
=

031600
000077
000002
000004
000010

= 000020

= 000040
Rttt

= 000001

TSWR =
CE
=
cI
=
CRC
=
ELP
ELPAS
T
=

IAE
=
IDXMSK=
IE
=
=
ILF

104407
000200
002000
000400
054062
030727
000011

002000
000077
000100
000001

ILFO2 = 000002
ILF24 = 000024
ILF26 = 000026

ILF30 = 000030
ILF32 = 000032
ILF34
000034

1679

2068
2075
2082
2089
2096
2103
2110
2117
3321
67114
11164

5197+
51764
10344

6139+
5183
5191
5200
5206
5302

1191
11404
1216#
4881

5198+
6238
2232
6142+
5315#
5316#
53184
53204
5322#
5649
1146

2634

C 14
30A(1052)
05-APR-78 14:49 PAGE 172
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0171

CLE
CLK
CLKI
CLK
oM
NB
END

3488

3667

3803

3915

5201

5213

5218

5310#

2233+

2244+

5330

3315

3404

5135
6606

3983

4135

4332

4628

4888

5492#

5331

5332+

5333«

5348+

5369+

5370+

6136

6137+

3548

3550

3659

3797

3909

3977

4126

4324

4614

5142
6607
3485

6593

6594

6595

6596

6597

6598

6600

6602

6603

3662

3800

3912

3980

4132

4325

4619

4885

5444

4614

6737
4881

6738

6741

6745

6746

6074
6729

6115
6737

6738

6741

6742

6745

6746

6727
6747

6728
6748

6730

6731

6732

6733

6734

6735

6736

6739

6740

5653
4577

67154
1058#
10564
1055#
10544
1053#
10524
1369

2269

2274
6605
3318
5564
2485

1218#

2634

2346
2340
944

75994
6711#
5239
6719

11448

6718
6744

6604
10574
5477
11374

11364

11344
1297#
13114

6743

10634
1073#
10744
10764
10774
10784

3407

1146

66004
4577

1146

4577

13444

CIR
CZR

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

ILF36 = 000036

ILF40 = 000040
ILF42 = 000042
ILF&44 = 000044
ILF46 = 000046
ILF54 = 000054
ILF56 = 000056
ILF64 = 000064
ILF66 = 000066
ILF74 = 000074
ILF76 = 000076
ILR
= 000002
ILRG50= 000050
ILRG52= 000052
ILRG54= 000054
ILRG56= 000056
ILRG60= 000060
ILRG62= 000062
ILRG64= 000064
ILRG66= 000066
ILRG70= 000070

ILRG72= 000072
ILRG74= 000074
ILRG76= 000076
IOTVEC=
IPCKO =
IPCK1 =
IPCK2 =
IPCK3 =
IR
=
IvC
=

000020
000001
000002
000004
000010
000100
010000

LBC
=
BT
=
CLOCK
COUNT
F
=
LS
=
SC
=
ST
=
STOP
(LK
=

002000
002000
022742
023012

000012

000004
004000
000002
023054
004000

=
=
=
=
=

020000
000100
000400
000004
000400

= 020000

D 14
14:49
30A(1052)
PAGE 173
05-APR-78
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0172

1094#

1095#
11434
1283#

UTE
UTE
UT(

PUTI

uTl

PUTI

2628

2649

2681

2697

27N

2808

2844

2869

3109

uTl
PUTI
uTl
UTE
UTE
UTE

3116

12844
12854
12864
1287#

uTt
uti
uTl

1288#
12894
1290#
12914
12924
1293#
12944
1039#
13484

13474
13464
13454
1325#
1253#

6733
6746

1255#
1120#
5350
5352
9454
12004
12544
1201#
5351
11724

3878
4381
5784

1305#
1177#
1322#
1180#
11754

3502
3750
5687

12084

CZRI
CZRI
PUT/

1079#
10804
1081#
1082#
1083#
1086#
10874
10904
10914

4816

CPE
DF
DPE
I
0C

MACY11

2216+

2217+

2549
6718
6734
6747

2570
6719
6735
6748

PUTI

53794
5397#
5237

56411#
3578
3943

4407

4839
5804

3393
1183

3518
3752
5690

uT(

6720
6736

6722
6737

6723
6738

6724
6739

6727
6740

6728
6741

6729
6742

6730
6743

6731
6744

6732
6745

PUT!

UuT\
uT)
EP(
GBI
coi

6109

3593

4029
4433
4968

5813

3478
3346
3521
3762
5692

6115

6711

3627

4070
4480
4989

7562

3685

4094
449N

5060

7599

3711

4154
4499

5084

3728

4181
4514

5517

3750
4209
4522
5535

3762
4230
4537
571

3832
4257
4563

5722

3851

4283
4757
5742

3870
4355
4782

5752

SCTI
SETI
SETI(
ETI
SET’
SETI
ET
K1l
LA!
PA(

STAI

5555
3420
3525
5592
5696

5673
3433
3528
5625
5711

3435
3530
5627
5713

3437
3685
5636
5722

3440
3687
5642
5724

3442
3TM
5644

3496
3713
5673

3498
3728
5675

3500
3730
5685
SWR!

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
MOL
= 010000
RD
= 002000
MR1AAA= 051401

=
=
=
=
=

000040
000002
100000
000200
001000

1118#
1173¢
11834
4044

4257
4457
4816
5752
1178%
11814
1262#
11764
11744

3502
3750
5625

= 000010
= 000010
= 001000
= 115760

= 010000
= 004000
= 000000
031553
= 100000
= 100000
= 000200
= 000014
= 000001
= 020000
= 020000
=
=
=
=
=
=
=
=
=
=
=
=

000200
000022
000022
000010
000020
022724
023012
000400
002000
001000
000200
020000
177772
000240

022750

= 002000

023060

030721

= 000000

= 000040
= 000100

E 14
MACY11 30A(1052)
O0S5-APR=78 14:49 PAGE 174
CROSS REFERENCE TABLE =-- USER SYMBOLS
3829
3829
4070

1183
3518

3346
3521

3418
3523

3420
3525

5627

5634

5636

5642

3752

1318#
1319#
10624
2304
12064
11874
1219
1068#
1125#
1252#
11314
6726

2296

1192#
5727
5409

24621

9684

9694
970#

3762

5713
4088

2545

4285
4491
4841
5786
3440
3437

3874
3851
4096

4283
4482
4839
5784
3435
3435

5711
4061

6739
1324#
10728
10714
11414
1327#
5337
5339
11944
1320#
1121#
11954
1117#
951#
1045#
5377

3834
3834
4094

4259
4480
4818
5754
3418
3433

5696
1199#
11794
1321#

11464

3832
3832
4072

3764

5722
4225

2560

4355
4514
4968
5804
3498
3496

5438
5724
4278

2566

4495
3853
4154

4518
3870
4156

4968
3938
4181

4970
3943
4183

4985
3945
4209

5808
4029
421

4031
4230

4042
4232

3523
3498

3528
3500

3938
3521

3943
3523

3945
3525

5685
5690

5692
5692

5694

3433
3528

3435
3530

3437
3685

3442
3711

3496
3713

3498
3728

3500
3730

5644

5673

5675

3440
3687
5535

5687

5690

5692

5694

4357
4537
4970

SEQ 0173

5471

4381
4539.
4981

5517

4383
4563
5060

5519

4407
4565
5062

5685

4409
4757
5084

5537

4433
4759
5086

5555

4435
4782
5742

5557

4455
4784
5744

5592

4777

5482

3337
6727
6740

3355
6728
6741

2357
6729
6742

6717
6730

2579

S444
1072

5454

5564

5574

5375#
53964
4667

4706

4715

4167

4172

3736
5773

53814

3696
5770
54134

2430

67114

6718
6731

6719
6732

6745

6720
6733
6746

6721
6734

6722
6735

4729

4730

4733

4752

5004

5008

4239

4243

4667

4802

4804

3738
5774

4467

4470

4549

4555

4921

4927

6743

6744

TAG!
TRW
TST!

TYPI
TYPI
TYPI
TYPI
TYP(
TYP(
TYP'
$$C)
$C)

$E!
SNI

$3S|
$3S|
$$S)
.EQL
.GE"
.HE/
.SE°
. SWI
. SWI

67114

2634
5477
5480

CZRI
CZR

6747

6748

6723
6736

6724
6737

6725
6738

4941

4946

4949

.SA(
.SAl
. SAl
. Al
.$C
.$C!
.$D.
. SE(
. SEI
. SEI
- SML
. $P(
. SR
. SR
. SRI
. SR
.35/
. 35!
.$S.
. $T!
ST
ST
ST
ST
. Al

ERI

CZRMKAOQ RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
PR3
R4
RS
R6
PR7

=
=
=
=
=

000140
000200
000240
000300
000340

STOP
SW
=
WRVEC=
QSTMRK
)
=
DCHR =
ROLIN =
DOCT =
DY
=
EADY
ECAL =
ESREG=
ESVEC=
Ex
=
G
=

023046
177776
000024
030725
000070
104411
104412
104413
000200
004414
000006
104415
000010
010000
040000

IP
=
LEASE=
MAS
=
MASI

000020
000012

S
SEL

= 177776
= 002000

= 000072

000016
001344
MASO
001420
MBA
= 000004

MBAE = 000050

MBAEI

MBAEO

MBAI

001376

001452

001332

MBAO
001406
RMCS1 = 000000

[RMCS1I
001326
RMCS10
001402
RMCS2 = 000010

9714
9724
9734
9744
975#
9484
1307#

5338

9494
10404

5340

5353

24904

5110

5158

2579
2833«
3158+«
3569+«

RMDAI

001334

1537#

3073+

3090
1567#
1355#
15434

5386

5408#

2332

1065#
5306
1035#
1190#
1188#
10934
10704
1067#
12714
1541#
1571#
1353
13564
15544
1584#
15364
15664
1267#
3289
15344
15644
13544

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«

2699
3800+
2542+
2678+
3038+
3204+

2795+

2808+
3980+
2551
2688+
3070+
3287+

6641+

66074
5606
4325

5611

2593

3047+

2589

5588+

3316+

3405+
2298
5477«
2649+
3407+
2294+
2624+
2894+
3181+
3664

3483+
2628+
5564+
2691+
3485+
2295
2625+
3015+
3182+
4121+

4122+

4328+

3286+
4329+

4609+

2641
3161+

2773+
3169
2797+
3194+
3480+

2784+
3186+

2797
3194
2819

2837+
3216+
2859+

3795+

3907+

13514

5444+
2639+
3318+
2293+
2591
2893+
3159+
3663+
5509+

2630+
3085
2641+
3169+
3313«
2595

CZR?

DO(C

6605#

13104

CIR?

RUM
COR

949

2402

1092#

SEQ 0174

DSk
RUN

2327
6535
2365

2335

001336
001412
000052
001400
001454
000006

001350

5388
5333
5385

2489

2223+
67114
3912
2351

MCS2I
MCS20
MCS3 =
MCS3I
MCS30
MDA
=

MDBI

2251

30A(1052)
O05-APR-78
14:49
PAGE 175
CROSS REFERENCE TABLE == USER SYMBOLS

2222+
2440
3800
2341
66044
2381

5508+
1538#
1568#
1357#
1555#
1585#
1268#

MDAO
001410
RMDB
= 000022

MACY11

2651
3172
3402+

2813+
3197
3657+

3912+

2544
2687+
3039+

4128+

4322+
2795

2812+

4610+

2818
4325+
2562+
2726+
3102+
3381«
4876+

2563+
2767+
3103+
3471

2846+
5580+
2875

2859

3975+

4883+

5588
3109+

2869+

4877+

2565
2768+
3126+
3472+
5433+

2874
5598
2572
2832+
3127+
3568+
5434+

2897+

2908

3041+

3053

2908+

2920

3053+

3058

3085+

4124+

4321

4612+

4879+

5580

2782+

4132+

2560
2725+
3071+
3380+

4616+

2844

2857+

4619+

2857

4885+

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
RMDBO
001424
[RMDC
= 000034

RMDCI

001362

RMDCO

001436

RMDS

= 000012

MDTI

001354

RMDSI
001340
MDSO
001414
MDT
= 000026
MDTO
MEC1 =
MEC1I
MEC10
MEC2 =

MEC21

001430
000044
001372

001446
000046

001374

MEC20
001450
MERT = 000014

[RMER1I

1573#
1277#

3115
15484
3031+
1578#

12694
1539#
1569#
12744
1545#
1575#
1281#
1552#
1582#
1282#
1553#
1583#
1270#

3026
3395
5560+

001342

15404

RMER10
001416
[RMER2 = 000042

12804

RMER21

001370

MER20
MHR
=
MHRI
MHRO
MLA
=
MLAI
MLAO
MMR1 =

001444
000036
001364
001440
000020
001346
001422
000024

3029
15704

3057

1551#

2916+
3229

1581#
1278#
1549#
15794
1272#
1542#
1572#
12734

3442
3571
3631
3752+
3877+

4046
4185
4285+
44557
4557
4765
4930

[RMMR
11

001352

5084+
5537+«
5644
5715
5786+

15444

MACY11

G 14

14:49
30A(1052)
PAGE 176
05-APR-78
CROSS REFERENCE TABLE ==~ USER SYMBOLS

632+
3133
2643+
3032
3314+
3165+

2643
3145
2653
3115+
3403+
3212+

2790+
3188+
2803+
3119«

3135+

3253

3265

3481
5446

2803
3208+
2810+
3120

2841+
3220
2816+

3658+
5450

SEQ 0175

2863

2901+

2912

3020+

3028

3107«

2863+
3152
3976+
5566

2871«
3220+

4320+

2912+
3226

3028+

4125+
5570

2877
3225

2930

3796+
5479

2850+
5582+
2822
3151«
3908+
5484

4613

4880+

5582

2799
3214+

2852+

3334

2903+
3354
5037

2914
3377
5440+

3018+
3383
5473+

3145+

3139+
2597

3083+

2683+
3105+
3425
5594+
2693+
3113+

2693
3113
3444

2729+
3129«
3505

2736
3141
3509

2775+
3184+
3532

2786+
3192
3536

4576

4581

2865
3336
5030

2701
3116+

2736
3117

2741+
3141+

2799+
3146

2814+
3192+

2820
3195

2865+

2878

2914+

2936

3026+

2685+
3077+
2695+
2940

2695
3089
2698+

2731«
3137«
2703
3063+

2738
3163+
2738+
3064

2779+
317
2743+
3089+

2792+
3190+
2805+
3095+

2805
3210+
2811+
3096

2854+
3222
2817+«
3171+

2867
5442+
2823
3174+

2905+
5475+
2867+
3175

2916
5562+
2872+
3222+

3045+
5596+
2879
3228+

3024+

3081+

3022+«
3496+
3580+
3690
3766
3938+
4072+
4223
4359
4472
4567
4784+
4968+
5096
5555+
5673+
5726
5812«

3346+
3498+
3582
3700
3772
3943+
4086
4230+
4381+
4480+
4666
48160
4970+
5436+
5557+
5675+
5738
5815+

3391+«
3500+
3593+
3711«
3826
3945+

3393+
3502+
3595+
3713+
3829+
3947

3418+
3518+
3597
3716
3832+
3954

3420+
3521+
3610«
3728+
3834+

3433+
3523+
3612+
3730+
3836

3435+
3525+
3614
3735
3851+
4033

3437+
3528+
3627+
3740
3853+

3440+
3530+
3629+
3750+
3855

3057+

7578

3079+

2733«
3476*
3574+
3685+
3762+
3880+

4060
4209+
4355+
4457+
4563+
4775
4940

5086+
5539
5648
5722+
5788
2740+

2740
3478
3578+
3687+
3764+
3882

4070+
4211«
4357+«
4459
4565+
4782+
4951
5088

5545
5652
5724+
5796
2745

4094
4232+
4383+
4482+
4673
4818+
4988+

5438+
5592+
5685+
5742+

4096+
4242
4385
4498+
4705
4820
4991+

5471+
5605
5687+
§744+

4154~
4253
4407+
4501
4718
4828
5003

5511«
5613
5690+
5748

4029
4156+
4257+
4409+
4521+
4728
4839+

5012
5517+
5625+
5692+
5752+

4031«
4158
4259+
YRR
4524
4735
4841«
5060+
5519+
5627+
5694+

§754+

4175
4264
4433
4537+
4751
4843

5062+
5521
5634+
5696+
5769

4042+
4181+
4276
4435+
4539+
4757+

4851

5064
5527
5636+
5711«
5776

4044
4183+
4283+
4437
4541
4759+
4920

5072
5535+
5642+
5713+

5784+

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

001426

|RMMR2 = 000040
RMMR2|
001366
MMR20
001442
= 000032
MOF
RMOF
I

001360

RMOFO

001434
000004
000030

001356
001432
000002
001330
001404

100000
040000
000016
000037
104414
00000?
000020
000002
000004
000010
100000
024206
003700
000100
000200
000400
001000
002000
000030
000004
024314
023224

023074
022464
040000
020024
001100

003426
002632

= 177774

001530
001154
000176
000001
000001
000002

1574
4521
1279#
5017
1550#
1580#
12764

3075+

1547#
306G+
1577#»
1142#
1275#
15464
15764
1352#
1535#
1565#
1230#
1231#
1069#
1111»
5177
1106#
1102#
1105#
1104#
1103#
13034

3673

1162#
1160#

1159#
11584
1157#
11564
10754
10644

3815
54694
54324
2472
1251#
1211#

9394
3565
2282
1389
9504
16064
14424

6170
13714
1003#
9934
992#

MACY11

H 14
30A(1052)
14:49
PAGE 177
05-APR-78
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0176

3877

3878+

3880

4491+

4495+

4498

4499+

4501

4514+

4518+

3051+

4524
4002

4007

4016

4022

4194

4199

4346

4370

4420

4679

4686

2634+
3087
2645+
3061
3315+

2645
3131«
2655+
3087+
3404+

2777+
3143
2801+
3092+«
3482+

2788+
3167+
2809+
3093
3659+

2801
3206+
2815+
3143
3797+«

2839+
3218
2821
3148+
3909+

2848+
3474+
2861+
3149
3977+

2861

2899+

2910

3043+

3055

2870+
3218+

2910+

2924

3055+

4126+

2876
3223+

4324+

4614+

4881+

5584

3049+

3111

2587

5586+

3317+

3406+

3484

3661+

3799+

3911+

3979+

4131

4323+

4618+

4884+

5586

3809

3921

3990

4141

4338

4634

4894

5668#

3927

4640

4900

5707#

53294
2743
3254
2214
3653
23174
2202#

3258
2535
3791

3262
2621
3903

2674
3971

4118

2722

2763
4314

4606

2977

3249
4873

3283

3309

3373

3464

6306

6389

3331
2212
6229
2242

3351
2234
6236
2267

5338«
2236
6248
2483

5351«
2242+
6252
6309

5610
2249+
6309
6348

5619
2267
6348
6371

5178
6620

6131
6633+

6145

6148

6163

3870+

4522+

5023

3874+

5584+

66064

1003
1002

5681

2483
6403+

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

= 000004
= 000010

SW04
SW05
SW06
Sw07
SW08
sSW09
SW1
SW10
SW11
SW12

=
=
=
=
=
=
=
=
=
=

000020
000040
000100
000200
000400
001000
000002
002000
004000
010000

SWi4
SW15
SW2
SW3
SW4&

=
=
=
=
=

040000
100000
000004
000010
000020

Sw6

= 000100

SW13

SWS

SW7
SW8

= 020000

= 000040
= 000200
= 000400

SW9
= 001000
TADMSK= 003400
TAG
= 020000
TAGADR=
TAP
=
TA1
=
TA2
=
TA4
=
TBITVE=
TIME
TKVEC =
TPVEC =
TRAPVE=
TRE
=
TRTVEC=
TST
=
TSTNMB
TSTQUE

TST1
TST1I0
TST11
TST12
TST13
TST14
TST15

TST16
TST17
TST2
TST20
TST21
TST22
TST23

001114
040000
000400
001000
002000
000014
001522
000060
000064
000034
040000
000014
010000
022416
001456

004430
010324
010446
010746
011334
011760
012344

013056
013516
005004
013770
014512
015472
016742

991#

990#
989#

988#
9874
986#
985#
9844
1002#
983#
982#
9814

9804
9794
9784
1001#
1000#
9994
9984
9974
9964
9954
9944
11104
12324
14144
1207#
11014
1100#
10994
1036#
16034
10434
10444
10424
1304#
1037#
12334

5189+
15934
3375
5111«
25264

32744
3301#
33654
34564
3557#
36454
3783#
3895#
26134
3963#

41104
43064
45984

MACY11

I 14
30A(1052)
05-APR-78
14:49 PAGE 178
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0177

1001
1000
999
998
997
996
995
994

5178

1621

5381+
6286+

5398+
6287+

2220+

2221+

5190+
2455
3466

5192
2456
3567

6190
6197
6198
6199
6200
6201
6202
6203
6204
6191
6205
6206
6207
6208

5400+

53094
2492
3655

2537
3793

2623
3905

2676
3973

2724

4120

2765

4316

2979

4608

3251
4875

3285
5105

331
5107+

CZRMKAO RM03/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
TST264
TST3
TST4
TSTS
TST6
TST7
TYPBN =

020166
005224
005440
005626
006764
010144
104406

TYPDS = 104405
TYPE
= 104401

TYPOC = 104402
TYPON = 104404

TYPOS = 104403
T
004472

T10
T
112
T13
T14
T15
T16
117
T2
120
121
122

010366
010510
011010
011376
012022
012406
013120
013560
005046
014032
014554
015534

124

020230

123

017004

T3
T4
TS
T6
17

005266
005502
005670
007026
010206

BUS@S

030763

NS
= 040000
NTMSK= 000007
PE
= 020000

SE
0
1

= 040000
= 000001
= 000002

= 000004

v
= 000100
ATCH
001524
W
= 000040

48654

26654
27134
27554
2968#

32404
5299

5139
2261
2375

5140
5284
6373
6502

2363
6596#
2306
2532
3280
3306
3370
3461
3562
3650
3788
3900
2618
3968

4115
431
4603
4870

2671
2719
2760
2974
3246
2350

1130#
1335#

1317#

12634
13324
13314
1330#
11244
1604#
1197#

3887

4568

0
CE
CEHI
CELO
(F

=
=
=
=
=

000050
040000
010000
004000
000040

5749

1084#
13164
13414
13424
11394

MACY11

30A(1052)
05-APR-78
14:49
PAGE 179
CROSS REFERENCE TABLE =< USER SYMBOLS

SEQ 0178

6209
6192

6193

6194
6195
6196
65984
5146
2304
2380
5147
5302
6384
65934
5296

6597#
2329
2396
5183
5884
6405

2335
2401

2340
2407

2343

2346
2421
5215
6231
6483

5191
5950
6424

5200
6019
6472

2420
5206
6079
6478

5186

5194

5203

5209

65954

5567
3347
3602
4034
4844

5571
3349
3615

5401+
3618
4159
5070

5403
3632

5601+
3691
4360
5522

2350
2424
5253
6239
6487

2353
2430
5259
6303

2361
2433

5608

5677+

4386
5529

4412
5540

5679
3837

6492

5263

6315
6493

2364
2440
5276
6369
6495

2370
5133
5282
6370
6498

65944

2377
2533
3281
3307
33N
3462
3563
3651
3789
3901

2619
3969

4116
4312
4604
4871

2672
2720
2761
2975
3247
6711#
2741
2548

5447
3327+
3583
3948

5451
3329
3598
3952

4821

4826

6737

6738

5781

1146

5793

4047
5065

4186

5089

3717

3767

4438
5546

3856

6460

5716

3883

4542

5739

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
CH
=
D
=
H
=
LE
=
RL
=
XNUDC =
XNUER2=
XNUOF =

000052
000060
000062
004000
004000
176000
001567
161577

APTHD

001100

ATYC
ATY1
ATYS
ATY4L
AUTOB
SBASE

030474
030450
030456
030466
001150
001276

XsS1z

ASTAT=

$BDADR

1085#
1088#
10894
11334
11194
12254
1258#
12204

003304

22864

seenew

6685
6656
66544
6064
6244

001136

16401

14394
1512#

3310
14340
3508+
3826+
4263+

4686+
4950+

$BDDAT

001142

5449+
5652+
14364
3289+
3445+
3632+
3948+

4424
4762+

$BELL
$BIN
SCOWT
(w2
CHARC
CKSWR
CMTAG
$CM3 =
CMé
=
SCNTLC
CNTLG
CNTLU
CPUOP

CRLF

DBLK
oOWw0
DDW1
DOW2
DOW3
pDOW4

001212
025104
001302
001304
026036
027122
001114
000000
000005
030020
030032
030025
001250

001217

025322
001306
001310
001312
001314
001316

5446+
5773«
14594
5880+
15144
15154
6081+
63484
14224
14524
1452#
6303
6369
6394
14864
14614

6405
5916

15164
1517#

5184

MACY11

30A(1052)

3318
3980

3407
4132
6741

6742

2653
2698
2655
2427

2810
2811
2809

2487«
2362
3465
2551+
3535+«
3954+

1146

T4
PAGE 180
TABLE == USER SYMBOLS

05-APR-78

CROSS REFERENCE

3485

14:49

SEQ 0179

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

2603
3792
2603+
3571+

2622
3904
3264+
3699+

2675

2723

3151
3174
3148

3225
3228
3223

14074

6700
66584

66554
66574
2271+
2292
3374
2550
3509+«
3953«

4006+

2536

3654
2572+
3570+
4007«
4471+
4735«
5022+
5526+
5796+
2566
3354+

3505+
3696+
4003+
4554

4346+
4734+
5012+
5484t
5795+
2565+
3337+«
3506+
3735+
4016+
4576+

5447«
5792+
6231
5883+

5479+
5793+
6264
5884

5480+
7564
6315
5891#

6091+
6602
2209

6098

6107+

61124

2210

2218

14540

4264
4717+
4951+

5450+
5775+«
2544+
3290+
3447
3695+

4002+
4469
4825+

14534
6384
65144
6487
5147
6492
5950

4345+
4718+
5011+
5483+
§776+
2545

3334

48481

65124

3532+
3736+

4017
4577+

4021+
4472+
4764+

5023+
5527+
7564
2826+
3355+
3533+
3770+

4101+

4022+

4556+
4765+
5036+
5544+
7566
2883+
3383+
3582+
3836+

4102

7572

4667
4949+
5566+
7576

2224

2225

2226

14554

14564

1457#

5215

5253

5263

4926+

4927«
5528+
7567
6512

46667

4947+

5546+

3972
3265+
3700+
4174+
4557+
4827

4119

3293+
3739+
4175+
4580+
4828+
5053+
5569«
7580
3253+
3395+

2764

3250

3284

3376+
3772+

3377«
3825+

4607

4874

4198

4199+
4672+
4851+
5072+
5612+
7584
3256

4241+
4673+
4929+

4242+
4685+
4930+

4196
4682
5051+

3258
3426+
3615+
3883+

4266+
4716+
5069+
5649+

3260
3444
3631+
3947+

4373+
4732+
5093«

6115

6239

6264

3335«
3740+

4581+
4850+
5071+«
5570+
7582
3254

5037«
5545+
7572
2954+
3384+
3583«
3837«
4173
4669
5009+
5567+
7578

4194+
4679+
5020+
5605+
7580

3856+
4195+
4680+
5035+
5606+
7582

5284

5304

6080

3597+
3855+

2978

4315

3396+
3598+

3336+
3771«

3425+
3614+
3882+

5648+
7584

5095+
5613+

5096+
5651+

5772+

65134

5182
6512
59584

5276

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

001320
001322
001324
001232
001300
021652
025312
021642
021506
021656
001242
001243
021452
021500
021416
001117
001131

026424
001132
001532
001126

001210
001242

001326
001224
030714
001172
001171
001134
001140

$GET42

021632
027212
HD
= 000001
HIBTS
001100
HIOCT
030162
ICNT
001120
GTSWR

SILLUP
INTAG
ITEMB
LF
LFLG
LLCSR
LLVEC
SLPADR

030432
001151
001130
001220
030713
001512
001514
001122

LPCSB
LPCSR
LPERR

001504
001502
001124

1521#
1522#
15234
164774
1513#

5129
5919

1380

2224
51564
14824
1483#
5121#

2224+
2605

14254
1431#

3561+
2218

14324
16244
14294
1458#
14814
1413
14744
6654+
14504
14454
14334
14354

3378+

4005+
4668+
5032+
5794+
51494

MACY11

2289+
5150
59544
2259
5131»

2301+

26419+

5152#

6259

2265
2247

2281
2286

5128#
3267
6120
2227+
3649+
62244

5132
5103#
6159

5207
5222
5144

2226+
15244
6691+
6657+
6084
6115

2547+
3510+
4023+
4669
5033
7564

63704

6600
917

6552+

6557#
2530+
3786+
6628
6367+
5198
6115
67014
5349
5341«
2228+
3650+

916
14608#

14264

3648+
6612

14404
14304
1462#

6695+

15994
16004
14274

3562+
6188

15964
15954
14284

L 14
30A(1052)
O05-APR-78
14:49
PAGE 181
CROSS REFERENCE TABLE =~ USER SYMBOLS

5375+
5336

2229+

SEQ 0180

2428+

2446+

2447

2454

2481
6061

6059
6066

6241
6665

6663

6687

2531+

6167+
2670+
3967+

6189
2718+

6226+
2759+

6264

3787«

6161
2617+
3899+

4310+

4602+

4869+

6161

6184+

3305+

3369+
6189

3460+

6233

6234+

6235

6264

5148+
6183+

6232+
6255

6264
6257

6264

6685
6115

6694+

6702#

2548+
3537«

2549+
3587+

2568+
3602+

2570
3634+

2827+
3698+
4265+

2884+
3738+
4374

2953«
3769+

3292+
3827+

3339+
3887+

3357«
3952+

5156#

4100+
4681+
5052+
7567

4102
4682

4114

2569+
3618+

4243+
4763+
5482+
7582

4200+

7576

4172+
4715+
5094+
7578

2616+
3898+
66454
6386
6235+
6264

2669+
3966+

4113+

2717+

2758+

6406
6243
6502

6519
6264
6512

5379+
5342+
2532+
3788+

5411+
5352+
2618+
3900+

5353+
2671+
3968+

4311

5376+
2533+

5408+
2619+

2672+

2761+

5070+

4733+
5451+«
7580

4309+

2972+

4601+

5365+
2760+

2973+

4826+

3245+

3279+

4425+
4928+

5571+

4470
49461
5611+

4555+
5010+
5653+

4579+
5021+«

5529+

4849
5547+

3244+
4868+

3278+
6174

3304+
6175

3368+
6177+

3459+
6188

3560+

4603

2974+

3246+
4870+

3280+
6156+

3306+
6165+

3370+
6181+

3461+
6186

2975+

3247+

3281+

3307+

3371+

3462+

S774+

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
001506

001254
001260
001264
001270
001222

001252
001256
001262
001266
001102

tevene

027554
030062
000010
024774
021654
teewen

3901+«

3969+

4116+

4312+

4604+

4871+

6165

6182«

6188

6254

14994
15034
1506#
15094
1409
3275
6059
1493#
1501#
15044
1507#

1413
3302
6180

14728
3366
6241

2246
3457

2265
3558

2481
3646

2527
3784

2614
3896

2666
3964

2714
&

2756
4307

2969
4599

3241
4866

6655+
6373
14794
14804
14738
6370
14944
1502#
15054
1508#
6178
1448%
25224
3238
37794

6661
6517#
6671+
6676+
6669
65154

6696+

67004

2709¢
3363
41064

271
34524
4108

27514
3454
4302¢

2753
35534
4304

29644
3555
L5948

2966
36414
4596

32364
3643
4861#

5991+«
5986+
6132
14764
14114

6172

6189

2224
6312

2225
6313

2226
6343

2228
6519

2259

2262

2478

5340+

5354+

5355+

5362+«

6693+

6188#
6086
2524
32704
3781

6115
26094
3272
38914

2611
32974
3893

26614
3299
3959¢

2663
33614
3961

6020«
5990+
6157
2246+

60334
5995
6166
5125+«

5998«
6176
5126«

6009+«
6185#
5137

6035#

6643
1602#
2222
66434
6622
14608
64374

6648#
5384+
66128

5414
6640
6264

6424

6495

6512

64604
65304
64534
5856»
5158#

6604
6605

6606
6629
61294
2215
6130

6630

6631«

66474

1
:

58404
6621
2216
1362¢
?;gg'

216
225

2218
6251

2220
6259

6140

61794

4863

6606

66284
6115
6603

5363+

6674
6689

5159

6607

6608

024736
030436
026042
000137
o—

026302

3789+

5339+

6677+

025554
025556
026336
001230
001106

030440
001520
030272
030426
030344
001216
027464

3651+

16094

030712
030050
001236
001240
001222
030037
001253
001257
001263
001267
026352
001170
000001

SEQ 0181

3563+

15978

SLPVEC

MACY11 30A(1052)
05-APR-78
14:49 PAGE 182
CROSS REFERENCE TABLE == USER SYMBOLS

2222
6307

CZRMKAD RMO3/2 DSKLS PRT 2
CZRMKA.P1T
05-APR-78 14:38
$SVPC = 000200
= 167400
JISSWR

SWREG 001244
SWRMK
= 000000

SW08T

TESTN

STIMES

TKB
TKCNT
TKINT
TKQEN=
TKQIN
TKQOU
TKQSR
TKS

$TKSRV
TMPO

[sTHP1

001206
001162
026624
026634
026633
026626
026630
026632
001160
026704
001174

1457#
14452
62684

001176

001166

001173
TPS
001164
TRAP
030164
TRAP2
030224
TRP
= 000016

STTYIN
TYPBN
TYPDS
TYPE
TYPEC
TYPEX
TYPOC

»TYPON

14848
927

6155

001200
001202
$ TMP4
001204
ISTN
= 000025

TRPAD
TSTH
TSTNM

2226
3457
5157
6161
6236

026354
001226

$TMP2
$TMP3

$TPB
STPFLG

1378#
905#

030236
001104
001116
030010
025032
025106
025560
025772
026040
025356
025372

1475#

3646+

2319
62724
62694

62704
62714
164440

6286

1452
4586
7580
14534

2372
2395+
2432+

4978+
1454%
1455#
14564
9164

2751
3302#
3650

4302
14474
1451#
164464

N 14
MACY11 30A(1052)
O05-APR-78
14:49 PAGE 183
CROSS REFERENCE TABLE == USER SYMBOLS

1383
916

2228
3558
5159
6168
6248
2249
928
6189#
2527+
3784+

2225+
6267
6283+
249N
6338
6284
6285+
6284
6267
62994
3262+
4770
7582

2328+
2373+
2397
2433

2527
3784
6122
6170
6264

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+

6336+
4481
451
6320+

6146
6219

3302+
6180+

3366+

3457+

3558+

6408+
4506

4507«
7574

4527
7576

2356
2392+
2423+

2366+
2393«

2368
2394+

4866+

3241+

3275+
5190

6444

2756+
4307+
6178+
6352
6446

2969+
4599+
6138
6379

6337+
6449

6338
6451+

6340+

6322

6328+

6350

6366+

6376

6388+

6111

6175
6324
6365

3275
5118

2225

4979

3858+

4216+
5454+

4218

4236
7568

4293
7570

2329
2374
2403+
24634

2330
2376
2405
2436

2333
2382+
2410+
2438

2342+
2384
2411+
2442

2343
2388
2412+
3263+

2344
2389+
2413

2352+

3512+

4217+

2353
2391+
2415

4295

4508+

2424
4588

2425
4794

2609
29694
3370
3891

2618
3236
34574
3900

2709
32754
3562

27144
3280
3641

2719
3297
36464

48664

26664
3246
3553
39644

2671
3270

4861

2661
32414
3461
3959

25274
2760
3361
37844

2532
2964
33664
3788

5123+
6463
6598
6597
6585
6090
6110
6594
5991#

6125

6188

3366
5151
6160
6229

1457
3241
4866
6145
6218

2756
4307
6131
6216

1458

1459
3302
5124
6159
6220

927
2969
4599
6143
6217

3839+
4977+

2522
27564
3306
3779

6462
S877#
#
5904
6053#
6083
6108
5989#
5988

4111

926

4788

7570
4796+

2220
65814
65854
66064
6575

2666
3964
6124
6185

925
2714

3701«
4792

7568
4509+
7574

4995

924

3511«

4297
4797+

4307#
6104+
6053
6102
65664
6592
65944
66074
65924

14102
142404

922

921
2229
3646
6121
6169
6252

SEQ 0182

7572
7568

7574
7574

7582

5574+«

2390+
2614+

4594

45994

26144
2974
3452
3896#
4603

65954
6608#

65964

65974

6598#

65994

6600

66014

6602

6120

6152+
6493

6179+
6507

6180
6511#

6185

6189

6228

6264

6593
6097
61134

6682
6102#

6103

6410

6115
6115
6115

6475

6596
i

‘Q;

. 7572

4870

35584
3968
6150

4106
6190

LAY

4115

6603#

66044

66054

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA. P11
05-APR-78 14:38
$TYPOS
SUNIT
SUNITA
SUSWR
SVECT
SVECT2
SXTSTR
$SGET4=
$$SW08=

025332
001234
001110
001246
001272
001274
026054
000000
000025

SOFILL
025555
$40CAT= L2223 v

055571

59844
14784
14124
14854
1510#
15114
61344
5151#
61894
620c#
5985+
6131
1365#
16214

6189

.SASTA=

LA A

001100

7594#
6655
1397#

MACY11

B 15

30A(1052)
14:49
PAGE 184
05-APR-72
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0183

6595
2492+

5184

2373

2388+

2389

2415+

6190
62034
5989+
6238

6191#
62044
5999

6192#
6205#
60344

61934
62064

61944
62074

6195#
6208#

61964
62094

61974
62104

61984

61994

62004

6201#

1378
1593#

1379#
2213
62714

13814
2228

13834
2229
62734

22754
65114

1388#

13914
51364
6512

1397
5159
65194

1398#
51604
6624

14004
5958#
6646

14024
6115

1414

13694
1463

6264

75964
6658
1402

6267

7597#

7598#

6272

67034

6188
67134

CZRMKAQO RMO3/2 DSKLS PRT 2
CZRMKA.P11
05-APR-78 14:38
CLEAR
CLKOFF
CLKON
CLKSNC
EOHHEN

Eng%g:
N

ERROR

MACY11

c 15
30A(1052)
05-APR-78
14:49 PAGE 186
CROSS REFERENCE TABLE == MACRO NAMES

905#

2541

2562

2624

2677

2687

905#
905#
905#
10464

3331
3327
4645

3351
3347
4904

5610
5601
4956

5618
5677

5681

3320

3409

3487

3666

1629
1750
1870
1990

1637
1758
1878
1998

1645
1766
1886
2006

1653
1774
1894
2014

3158

18220

’

905#
1742
1862
1982

2095
9408
3154
3513
3859

3181

3203

4176
4642
4952
1046#
905#
905#
905#
9054
905#

2102
2474
3177
3538
3888

2109
2552
3129
3588
3917

3286

3380

2725

2767

2832

4328

4609

4876

3802

3914

3982

4134

4331

4627

4886

1661
1782
1902
2022

1669
1790
1910
2030

1678
1798
1918
2038

1686
1806
1926
2046

1694
1814
1934
2053

1702
1822
1942
2060

1710
1830
1950
2067

3471

6244
4674
5013

2116
2573
3231
3603
3923

4267
4687
5024

2124
2604
3266
3619
3929

2132
2658
3294
3635
3955

2637
2543

2690
2564

2794

2856

3288

2796

2858

2907

3052

905#
905#
905#

2642
5445
3252

2802
5478

2862
5565

2911

905#

2692

2735

2798

2864

ggg:

3443
ggg:
905#
905#
4045
4665
5647
905#
9054
1046#
905#
905#
905#
905#
905#

4201
4648
4959

2640

3504
2694

3531
2737

4575
2804

3084

3168

3193

3027

3114

3144

3219

2913

3025

3112

2915

3056

3613
4184
4773
5746
4369
2909

3630
4222
4819
5768
4419
3054

5029
2866

3581
4085
4727
5725
4015
2800

3596
4157
4749
5737
4193
2860

10464

2262F

2478

?822'

2524
3961

2611
4108

2663
4304

2711
4596

1046#

2522

2609

2661

2709

10464
1046#

5368
5330

5370
5331

5861
5841

5945
5904

3959

4106

4302

4594

2892

3015

3038

3070

3102

3126

1718
1838
1958
2074

1726
1846
1966
2081

1734
1854
1974
2088

3098
3448
3817
6137

3122
3490
3840
4143

5433

5508

2164
2885
3386
3741
4024

2172
2955
3398
3773
4066

2180
3034
3412
3805
4078

2188
3066
3428
3811
4104

3140

3191

3333

3353

3382

3394

3424

3088

3170

3221

3689
4251
4842
5787
4678
3086

3715
4274
4918

3734
4358
4939

3765
4384
5002

3835
4410
5063

3854
4436
5087

3881
4458
5520

3946
4540
5538

4032
4566
5603

5016
3142

3217

2753
4863

2966

3238

3272

3299

3363

3454

3555

3643

3781

2751

2964

3236

3270

3297

3361

3452

3553

3641

3779

6553
6532

6633
6614

6634
6620

6697
6658

6698
6660

6681

6334
4736
5054

4861

2140
2706
3323
3669
3985

3663

2156
2828
3358
3702
4008

2739
4058
4704
5714
4001
2644
5382

3891

3568

2148
2747
3340
3675
3992

4300
4719
5038

SEQ 0184

4340
4766
5073

4375
4798
5097

4426
4829

4473
4852

4558
4890

4582
4896

4592
4902

4630
4908

4636
4931

CZRMKAO RMO3/2 DSKLS PRT 2
CZRMKA.P1
05-APR-78 14:38
PUTAS
UTBA
UTBAE

UTCS

PUTCS2
UTDA
PUTDB
uTDC
PUTDS

905#
905#
905#
905#
905#
905#
905#
905#
905#

2680

2770

2781

2843

3108

5443

5476

5563

5597

2629

2772

2783

2836

2845

2896

3040

3072

3160

3185

3215

2631
3164
3134
3138

2789
321

2840

2849

2900

3019

3106

3132

3187

3207

5581

2728

2785

2851

2902

3017

3104

3128

3183

3213

5439

5472

5559

2730

2853

2904

3044

3076

3136

3162

3189

3209

5441

5474

3389
3517
3684
3875

3392
3520
3686
3879

3416
3522
3709
3937

3432
3527
3726
3944

3434
3529
3729
4028
4231

3436
3573
3748
4030
4256

3439
3576
3751
4041

3441
3579
3761

3475
3591
3763

3477
3594
3828

5437
5643
5751

3419
3524
3712
3942
4210
4454
4783
5470
5672
5753

5674
5783

5515
5684
5785

5518
5686
5810

UTEC?2

905#

3082
2682

905#

2684
5595
3023
3078
2732
3497
3611
3833
4095
4380
4538
5058
5623
5712
3050
2633
3048
5585

UTER1

PUTER2

UTHR
UTLA
UTMR1

905#
5593

5561

905#
905#
905#

3495
3608
3831

4093
4356
4536
4990

PUTMR2
UTOF
PUTSN

UTwWC

uTX
EPORT
GBFMC
SCOPE

SCTCHP
SETLFS
SETOM
ETPRI
SETTRA
SETUP
SETVV
SKIP
SLASH
SPACE
STARS

5591
5709

905#
905#
905#

905#

905#
1046#
905#
94614
3895
905#
905#
905#
10464
6585#

10464
905#
10464
10464
10464
10464
2712
3469
3894
4397
4975

SWRSU

5657
6429

1046#

SEQ 0185

2627

905#

D 15

30A(1052)
14:49
PAGE 187
05-APR-78
CROSS REFERENCE TABLE =- MACRO NAMES

3046
5587

uTtDT

UTEC

MACY11

1527

2526
3963
3672
3814

2251
6594
2208

1376

2751
3541
3932

4448

5027
5670
6453
2230#

5579

3080

3021
3499
3625
3850

4043
4281
4500
4966
55365691

4069
4284
4519
4969
5554
5693

3205

3473

5583

3365

3456

3557

3645

3783

2664
3452
3867

2709
3455
3891

4152
4382
4562
5061
5626
5720

4180
4408
4756
5085

4182
4432
4758

5635
5741

5435
5641
5743

2776
3110

2838

2847

2898

3042

3074

3130

3166

2755

3301

1557
2613
4110
3808
3926

4306

3920
4639

4598
3989
4898

5388
6595

5414
6596

6440
6597

1394

2754
3553
3959

4486

5041
5698
6522

2665

1396

2964
3556
3962

4504

5114
5702

6560

2713

1403

2967
3641
3996

4529
5163

5761
6610

4207
4434
4781

4228
4456
481°
5510

4478
4817

4481
4837

4258
4497
4840

5533
5689
5814

4865
4140

2968

3240

3274

4337

4633

4892

6598

6600

6602

6604

6605

6606

6607

1417
3236

1463

1466

4052
4594

4106
4597

4109
4696

2525
3297
3779

2609
3300
3782

2612
3361
3820

2661
3364
3847
4289

4302

5620
6266

6343

3644

5328
5825
6626

3239
3677

5373
5870
6653

3270
3721

5490
5894

4214
4790

5577
6038

4247
4861
5589
6117

4270
4864

5599
6212

4910

4934
5630

4071
4354
4523
4986
5556

5695

4305
4962

5637
6358

1526

905#

2529
3965
1046#

5137

5144
2255

2376
2362
5133

2757

2971

2397
6371
5140

5184

5192

5201

5207

1452

1453

1454

1455

1456

2522
3959
6594

2609

2661
4302
6596

2709

$SSET
SSSETM
S$SSKIP
.EQUAT
.GETPR
-HEADE
.SETUP
.SWRHI
. SWRLO
LSACT
.SAPTB
.SAPTH
.SAPTY
.SCATC
.SCMTA
.SDIV
. SEOP
.SERRO
.SERRT
.SMULT
. SPOWE
. SRAND
. SRDDE
. SRDOC
. SREAD
. $SAVE
.$SCOP
.$SIZE
. STRAP
.STYPB

65854
22464
10464
905#
905#
905#
205#
9C5#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
905#
o054
905#

905#
905#
905#

6558
5868
5892
6036
5959

. ABS.

056072

000

936
906
1362
917
928#
1374
14644
1392

6651
1363
1415

5112

ERRORS DETECTED:

6210

6608
6520
6264
5823
6115

4867

10464
10464
905#
10464
10464
10464
10464
14154
1415#
1046#
1046#

.STYPD
.STYPE
.$TYPO

E 15

30A(1052)
05-APR-78
14:49 PAGE 188
CROSS REFERENCE TABLE == MACRO NAMES

4600

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
SCMRE
SCHTM
$ SESCA
SNEWT

3891

MACY11

4308

3897

row

TSTSET

905#

6585#

—