Digital PDFs

AH-F934B-MC

August 1981

189 pages

Original

88MB

view download

OCR Version

115MB

view download

Document:	CZRMQB0 RM02-03-05 RM05-3-2 DSKLS TST 2 AUG 1981 bw
Order Number:	AH-F934B-MC
Revision:	000
Pages:	189
Original Filename:	CZRMQB0__RM02-03-05__RM05-3-2_DSKLS_TST_2__AH-F934B-MC__AUG_1981_gray.pdf

OCR Text

RMO5/3/2 DSKLS TST 2
iR

AH-F934B-MC

1 OF 1
i . _FICHE

rveitineoo QR

waoex usa
-

b v

d od

—d

OU\J‘WN—‘S&O@VOM“WN—'OOQVO‘MI‘

[ASIANTASTANT
VT, 8}

IDENTIFICATION

PRODUCT CODE:

AC=F933B-M(

PRODUCT NAME:

(CZRMGBO

PRODUCT DATE:

APRIL 1981

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR:

MIKE LEAVITT

RM05/3/2 DISKLESS TEST, PT 2

THE INFORMATION IN
THIS
DOCUMENT 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.
THE SOFTWARE DESCRIBED

LICENSE

AND

MAY

THIS DOCUMENT

FURNISHED UNDER A

ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILITY FOR THS
USE
OR
RELIABILITY OF ITS
SOFTWARE
ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.

1980,1981 DIGITAL EQUIPMENT CORPORATION

CZRMQBO RMO5/3/2 DSKLS TST 2

MACRO V04.00

I
£
4-APR-81 01:29:56 PAGE 2
CONTENTS

INTRODUCTION
1.

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

2.
3.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE

4.
5.

HALTING
RESTARTING

2.
3.

SWITCH OPTIONS
STARTING

OPERATOR INTERFACE
1.
2.
3.

PROGRAM ID
CONSOLE DIALOGUE

5.
g.

PROGRAM HALTS
ERROR REPORTS
EXEXCUTION TIME

PROGRESS REPORTS

PERFORMANCE REPORTS

ENVIRONMENTAL SUPPORT

NOVWN SN

BN BN BN BN

L Qe
—
N W NN N N N N R N N N PO N -2 R

PROCESSOR COMPATIBILITY

DUAL PORT CONF IGURATIONS
MEMORY PARITY HARDWARE

MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

|
|
{

MACRO V04.00

4=APR-81 01:29:56 PAGE 3

.1
SEG 0003

b
e
D d d d ed

OMJ\WN-‘B.OQVO‘\IU\LNN-JOO(D\:OU!J\UIN_J

CZRMQBO RMO0S5/3/2 DSKLS TST 2

LSS LST.NT.NT.N)

1.0

INTRODUCTION

1.1

ABSTRACT

THE

RMO5/3/2

DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM Wi]CH

USES FUNCTIONAL
AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE
DISK SUBSYSTEM EXCLUDING AND
INDEPENDENTLY OF
THE
STORAGE
MODULE

DRIVE.

IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES:

TO DETECT ERRORS AND FAULTS IN THE RM MASSBUS ADAPTER;

TO RESOLVE
HARDWARE FAILURES IN RM TO A FIELD REP.ACEABLE
MODULE OR MODULES.

1.2

UNIT UNDER TEST
THE

UNIT

UNDER

TEST

(UWT)

THE

RMO05/3/2

DISK SUBSYSTEM,

EXCLUDING THE STORAGE MODULE DISK DRIVE AND THE MASSBUS CONTROLLER.

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

THE
FOLLOWING MINIMUM HARDWARE
CONFIGURATION, ASSUMED
TO BE
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE
THE
RM05/3/2 DISKLESS
DIAGNOSTIC:

PDP-11 PROCESSOR
12K MEMORY
KWil=L OR LW11-P CLOCK

PROGRAM LOADING DEVICE
TERMINAL
RH11 OR RH70 CONTROLLER
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RM02°'S)

2.2

MEDIA REQUIREMENTS
NONE

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS
RMO5/3/2 DISKLESS TEST, PT 1

3.0

OPERATING PROCEDURE

3.1

|
||

|
|
}

CZRMQBO RMOS/3/2 DSKLS TST 2

MACRO V04.00

4-APR-81

01:29:56 PAGE 3-1
SEQ 0004

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

3.2

SWITCH OPTICNS
THE FOLLOWING SWITCH OPTIONS ARE

SWITCH IS ON.

Sw15

HALT ON ERROR

SW13
Sw12

INHIBIT ERROR TYPEOUTS
UNUSED
INHIBIT TEST ITERATIONS
BELL ON ERROR

Sw14

INVOKED

WHEN

THE

APPROPRIATE

LOOP ON TEST (CURRENTLY BEING EXECUTED)

Sw11
SW10
SW09-

LOOP ON ERROR

Swo8

LOOP ON TEST IN SW07-00

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

3.3

STARTING

200

WILL BE THE NORMAL STARTING ADDRESS.

3.4

HALTING

THE

PROGRAM

MAY BE STARTED AT LOCATION 200 OR 204.

SPECIFY

STARTING AT

STARTING AT 204 WILL ENABLE

THE
RH/RM BASE
ADDRESS TO BE CHANGED.
IF RUNNING IN A STAND-ALONE
ENVIRONMENT, THE PROGRAM USES CONSOLE
DIALOGUE TO ALLOW THE OPERATOR
TO CONTROL TEST CONDITIONS.

THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE COGNSOLE OR

BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL.

3.5

RESTARTING
THE PROGRAM (AN BE RESTARTED AT ADDRESS 200 OR 204.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID
THE PROGRAM TYPES

(SEE SECTION 3.3)

ITS NAME AND MAINDEC NUMBER THE FIRST

IS STARTED AFTER BEING LOADED.

TIME

p—

CZRMQBO RMOS5/3/2 DSKLS TST 2

MACRO V04.00

g
3
4-APR-81 01:29:56 PAGE 3~2

ORGT.
NS

4.2

(ONSOLE DIALOGUE

WHEN THE PROGRAM IS RUNNING IN STAND
ALONE
MODE,
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM [.D..

THE FIRST QUESTION TYPED QUT IS:

THE

OPERATOR

RESPONDS WITH A '''',

''TYPE HELP TEXT

ENTERS A

(L) N 7",

THE PROGRAM WILL TYPE A BRIEF

HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE
TO THE QUESTION IS CONSIDERED A 'W'' AND NO HELP TEXT IS TYPED. THIS
QUESTION
IS
ONLY ASKED
ON
THE INITIAL PROGRAM
START AND - NOT ON

SUBSEQUENT START=UP'S.

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204,

THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING
DIALOGUE.

EXAMPLE 1

RMCS1=176700 <CR>
RMVEC=000254 <CR>

;NO CHANGE IN ADDRESS
sNO CHANGE IN ADDRESS

EXAMPLE 2
RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200
RMVEC=000254 260<CR>

ON THE INITIAL START,

;CHANGE VECTOR ADDRESS TO 260

THE NEXT QUESTION

TYPED IS,

*TYPE "A" T0

TEST ALL DRIVES,
OR TYPE
DRIVE NUMBER(S)
AND TERMINATE
_INPUT WITH
A CARRIAGE RETURN'.
THEN, 'DRIVE(S):'
IS TYPED AND
WAITS
FOR THE

OPERATOR TO
TYPE AN “ATM,
T0 TEST ALL POSSIBLE DRIVES OR TYPE
ANY
STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A

CARRIAGE RETURN'’.
"NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN
ENTERING THE
DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA
SEPARTOR AUTOMATICALLY
AFTER TYPING EACH NUMBER.
ON ALL SUBSEQUENT
STARTS, ONLY THE "DRIVE(S):' PROMPT IS TYPED.

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE

DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING.
IS AN EXAMPLE PRINTOUT:

'UNIT STATUS:
ONLINE

RMO3

OFFLINE

RMO5

NOWVMS W= O

gmgww—hsgm\lowbwm—'oomwos

SEG 0005
b e o o e d d rd nd D D ed e D D d =D d
D d od
RRARR
&
AW
WWWWW
PNININDPINIPIPININ
— — =

THE FOLLOWING

LOAD DEVICE

NOT PRESENT
NOT PRESENT

NOT AN RM05/3/2

NOT PRESENT
NOT PRESENT'

THE ABOVE UNIT STATUS SHOWS THAT DRIVE O & 2 WILL BE

1, & 3 = 7 WILL NOT BE

TESTED.

TESTED, WHILE DRIVES

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE
STATUS OF THE DRIVE:

CZRMQBO RM0S5/3/2 DSKLS TST 2

MACRO V04.00

!
¢
4-APR-81 01:29:56 PAGE 3-3
SEQ 0006

OO0 0000 N NN

N~V

'DRIVE(S)

TO BE TESTED, 0, 2'

IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE wILL BE

TYPED TO THE OPERATOR:

'DRIVE(S)

TO BE TESTED, NONE'

THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT.

FOR

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR

AS EACH DRIVE BEGINS TO BE TESTED:

'DRIVE 0
DRIVE 2'

191

AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM

IS HALTED BY THE OPERATOR.

NOTE:

4.3

THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE
OF RESPONSE
REQUIRED BY THE USER,
D=DECIMAL,
O=OCTAL AND
L=LETTER.

PROGRESS REPORTS

AN END OF PASS REPORT OCCURS EACH TIME THE
PROGRAM
IS
EXECUTED
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS.

'END OF PASS

THE FOLLOWING MESSAGE WILL ALSO

THE LAST END OF PASS REPORT.

OCCUR IF

'TOTAL ERRORS SINCE LAST REPORT
4.4

PERFORMANCE REPORT
NO PERFORMANCE REPORTS ARE GIVEN

PROGRAM.

4.5

THERE WERE ERRORS SINCE

DURING

THE

EXECUTION

THE

PROGRAM HALTS

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

4.6

THE PROGRAM.

ERROR REPORTS

THE

REPORTS

RMO05/3/2 DISK%%?S

INTENDED

ERROR
I VE
2)) MINIMIZE

r—————————

(o <]

CZRMQBO RMO5/3/2 DSKLS TST 2
229
230
231
232
233
234
235
236
237
238
239

240
241
242
243

MACRO V04.00

REFERENCES

271
272
273
274
275
276
277
278
279
280
281
282
283
284
285

SEQ 0007

TO PROGRAM L. ISTINGS.

THE FIRST

LINE OF

THE ERROR REPORT CONTAINS

THE

NUMBER

THE

UNIT
(DRIVE) BEING
TESTED, DRIVE TYPE,
THE TEST NUMBER,
THE
ERROR
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED.
THIS LINE

GIVE

IS FOLLOWED BY THE ERROR MESSAGE:

A COMPREHENSIVE

DESCRIPTION OF

SEVERAL LINES OF

THE ERROR,

TEXT WHICH

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
alélgU[L)IT\;A PERTININENT

THE

TO THE

FOLLOWING PRINTOUT

ERROR,

INCLUDING EXPECTED AND ACTUAL

IS AN ERROR MESSAGE

TEST

IN THIS PROGRAM:

DRV# O = RMO3, TESTH# 23, ERR# 61, PC=017724

244
245
246

247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270

4-APR-81 01:29:56 PAGE 3-4

INCORRECT ECC PATTERN GENERATED DURING WRITE
PROBABLE FAULT(S):
(NOT INCLUDING CABLES OR CONNECTORS)

IF MODULE, MB685,
ECC
175154

RECEIVED ECC
017677
003402

4.7

EXECUTION TIME

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

THE RMO5/3/2 DISKLESS DIAGNOSTIC IS EXECUTABLE
ON ANY
PDP-11
;FER(TJCESSM.
PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE

5.2

DUAL PORT CONFIGURATIONS

THE
RM05/3/2 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMOS5/3/2
SUBSYSTEMS HAVING
THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS
gg;”}&l I:;B)APPR(PRIATE
PORT
(A OR B)
AND NOT TO THE PROGRAMMABLE

5.3

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE

THE RM05/3/2 DISKLESS DIAGNGOSTIC.

EXECUTION

CZRMQBO RMOS5/3/2 DSKLS TST 2

MACRO V04.00

§-4
&-APR-81 01:29:56 PAGE 3-5
SEQ 0008

286
287
288
289
290
29N

292
293

295

5.4

MEMORY MANAGEMENT HARDWARE
MEMORY MANAGEMENT HARDWARE WILL

DISKLESS DIAGNOSTIC.

5.5

ACT11, APT11

NOT

BE USED DURING THE RMO5/3/2

COMPATIBILITY

THE RM05/3/2 DISKLESS.DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES.
FURTHER, THE PROGRAM WILL
%ggUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK
VERIFY

5.6

XXDP COMPATIBILITY

THE RM05/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH
IN DUMP AND CHAIN MODES.

5.7

OPERATING SYSTEM COMPATIBILITY

sverLHE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

6.0

XXDP

ANY

OPERATING

TEST DESCRIPTION

THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST
?E'SRALLY USES A MORE
COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS

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

HAVE

THE

RMO5/3/2 DISKLESS DIAGNOSTIC

OR AN RH11 MASSBUS CONTROLLER.
TEST

CAN BE

EXECUTED USING AN RH70

UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE
IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0.

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

IF
CS
DS
MASSBUS MODULE
THE RADJAL MODULE

(RD)

IS NOT

TESTED BY

THIS PROGRAM.

THE
THE

(ZRMQBO RMQS5/3/2 DSKLS TST 2

MACRO V04.00

1
J
01:29:56 PAGE 3-6

4-APR-81

SEQ 0009

343
344
345

346

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

TEST 1

TRANSFER TEST

PURPOSE
:

TO VERIFY THAT THE RM05/3/2 CAN COMPLETE A REGISTER TRANSFER
ON THE MASSBUS, AND IN PARTICULAR, TO VERIFY THAT "‘TRANSFER'' IS NOT
STUCK IN AN INACTIVE STATE.
PROCEDURE
:

THE PROGRAM
WRITES
AND
READS
REMOTE
REGISTERS
FOR
THE
SELECTED
DEVICE.
REGISTER
CONTENTS
AND
PARITY
ERRORS
ARE
IGNORED, AND THE TEST FAILS IF A 'NONEXISTENT
DEVICE
ERROR'® OR
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS.
IF THE TEST FAILS
THE PROGRAM JUMPS TO THE END OF PASS HANDLER
WHICH
SELECTS
THE
NEXT DEVICE TO BE TESTED.
PROBABLE FAULT:

THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT
OR
IS
SWITCHED
TO
THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT.

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

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

(S MODULE

TEST 2

THE

DEVICE

CTOD TEST

:
PURPOSE
TO

VERIFY

THAT

DATA CAN BE

TRANSFERRED

AND FROM THE

RM0O5/3/2 USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT
"'CONTROLLER TO DEVICE'' HAS NOT FAILED.
PROCEDURE
:

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.

THE TEST THEN READS AS MANY REMOTE REGISTERS

AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS.
PROBABLE

FAULT:

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

RMQBO RMO5/3/2 DSKLS

TST 2

4-APR-81

MACRO v04.00

01:29:56 PAGE

3-7

SEQ 0010
400

401
402
403

TEST 3

MASSBUS INITIALIZE TEST

PURPOSE:
TO VERIFY THAT
THE MASS BUS.

THE MASSBUS ADAPTER IS BEING

INITIALIZED

PROCEDURE
:

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS

416
417
418
419
420

421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
439
440
441

442
443
444

445

446
447

448
449
450
451
452
453
454
455
456

TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST
ONE BIT IS CLEARED.
MASSBUS ADAPTER REGISTERS ARE
PRESET
TO A
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR.
PROBABLE FAULT:

ASYNCHRONOUS MAS3BUS MODULE

IF MODULE

(S MODULE

TEST 4

CLEAR STUCK ACTIVE

TEST

:
PURPOSE
TO VERIFY THAT ‘MBA CLR L'' ON THE CS MODULE IS NOT STUCK
AN ACTIVE STATE.

PROCEDURE
:

CONTROLLER CLEAR IS USED TO INITIALIZE
THE
SELECTED UNIT,
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

AFTER

IS OK, ELSE, "MBA CLR L'' IS PROBABLY STUCK ACTIVE.

PROBABLE FAULT:

(S MODULE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

|
|

CZRMQBO RMO5/3/2 DSKLS TST 2
457
458
459
460
461
462
463
464
465
466

467

468
469
470
4N
472
473
474
475
476
477
478
479

480
481
482
483
484
485
486
487
488
489
490
4N
492
493
494
495
496
497
498
499

500

4~APR-81

MACRO Vv04.00
TEST S

01:29:56 PAGE 3-8

SEQ 0011

TRISTATE TRANSFER TEST

:
PURPOSE
TO _VERIFY THAT THE PATH TO
AND
FROM
THE
MASSBUS
ADAPTER
TRI=-STATE
REG I S}'ER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH

BIT POSITION I S

INDEPENDENT.

PROCEDURE :

THIS TEST PRESETS MASSBUS ADAPTER
REGISTERS
TO A
NONZERO
VALUE,
THEN,
ASSUMING
THE REGISTERS ARE PRESET, IT CLEARS THEM
USING A MOVE INSTRUCTION.
THE TEST THEN READS AS MANY REGISTERS
SSSJ'HMNECESSARV
TO OBTAIN ONE
OR MORE
ZEROS FROM EACH BIT

THE

THE TEST CLEARS MASSBUS ADAPTER

REGISTERS

ARE CLEARED,

REGISTERS,

THEN,

ASSUMING

IT LOADS THEM WITH GNES AND READS AS

MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS
EACH BIT POSITION.
FINALLY,

THE TES T WRITES A SINGLE ONE BIT PATTERN IN

BIT

IN
0

OF SELECTED REMOTE RE GISTERS AND VERIFIES THAT THE PATTERN CAN BE
READ BACK.
THE ONE B IT IS SHIFTED AND THE TEST REPEATED FOR
ALL
BIT POSITIONS.
PROBABLE FAULT:

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

(S MODULE

DS MODULE

TEST 6

:
PURPOSE
TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A

POSITION.

STUCK

PROCEDURE
:

EACH REGISTER SELECT LINE IS

TESTED

WRITING

JEROS

THOSE
DEVICE
REGISTERS
FOR
WHICH
THE LINE MUST BE 2ERQ, 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

REPEATED TO DETECT A STUCK AT ONE FAULT, EXCEPT I'I THIS CASE,

THE ONES REGISTER IS WRITTEN FIRST,

CZRMQBO RMOS/3/2 DSKLS TST 2

4-APR-81 01:29:56 PAG? 319

MACRO V04.00

CT L LI INES 1,
NE 16 16 1S EXP
PROBABLE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

DRIVE

AND
8 ARE
TESTED
IN
THIS
Yr ESTED IN THE "'ILR TEST".

FAULT:

TEST 7

SEQ 0012

TYPE

TEST

PURPOSE
:

TO TEST THE 'DRIVE TYPE'' REGISTER, RMDT.
PROCEDURE
:
THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT

CORRESPONDS TO A SINGLE PORT OR DUAL PORT RMOS5, RMO3 OR RMOZ2 DRIVE.
PROBABLE FAULT:

IF MOULE

TEST 10 DEVICE AVAILABLE TEST

:
PURPOSE
TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET.
PROCEDURE
:

THE PROGRAM TESTS 'DVA'',BIT 11 OF RMCS1.
PROBABLE FAULT:

565

570

TEST

IF MODULE

SEARCH TIMEOUT TEST

:
PURPOSE

TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS 'OPI'',
EXCEPT WHEN ''SEARCH TO DISABLE'' IS ACTIVE.

| CZRMQBO RM05/3/2 DSKLS TST 2
571
572

593
594
595
596

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

617

618
619

620
621
622
623
624
625
626

627

SEQ 0073

PROCEDURE :

573
574
575

576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592

N 1
4-AFR-81 01:29:56 PAGE 3-10

MACRO V04.00

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
%EA?OBP?EgérgHE TEST ENABLES SEARCH TIMEOUT AND VERIFIES
PROBABLE

FAULT:

CS MODULE

NOTE :

TEST

IT IS ASSUMED THAT THE ''SET OPI

ALREADY PASSED, THUS MAKING THE
AN IMPROBABLE FAULT.

TEST'' HAS
IF MODULE

12 SET DTE TEST
:
PURPOSE

IN ADDITION TO VERIFYING THAT 'DRIVE TIMING ERROR'® CAN
BE SET BY THE CS MODULE, THIS TEST ALSO VERIFIES
*
THAT "MAINTENANCE SECTOR COMPARE'' IS NOT STUCK AT ONE
OR ZERO.
*

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

PROCEDURE :

(1)
INITIALIZE AND VERIFY THAT 'DTE’‘ IS RESET, THEN
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL
RESET.
THIS TEST WILL INSURE THAT THE SECTOR COMPARE FLOP
IS NOT STUCK AT ONE.

(2)

EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO

THE POINT WHERE SEARCH IS ENABLED,

I.E., P EN SEARCH H IS

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

RESET.

SET SECTOR PULSE AND VERIFY THAT DTE

THIS TEST FAILS

IS STUCK AT ONE.

INPUT

TO SECTOR COMPARE FLOP

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

COMPARE IS STUCK AT ZERO.
PROBABLE

FAULT:

CS MODULE

DS MODULF

TEST 13 FORMAT CHANGE

TEST

PURPOSE
:

TO VERIFY THAT A CHANGE

IN FORMAT INHIBITS SFARCH

ENABLE UNTIL THE NEXT INDEX PULSE.
PROCEDURE :

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

SEARCH H'',

THE FOLLOWING STEPS ARE EXECUTED:

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

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

(3)

SET 'MAINTENANCE SECTOR COMPARE'’, THEN SET

‘MAINTENANCE SECTOR PULSE'' TO CLOCK ‘'CS3 EN SEARCH® FLOP

WHICH SHOULD NOT SET BECAUSE OF

\4)

THE FORMAT CHANGE.

RESET SECTOR PULSE TO CLOCK ''CS5 SECTOR COMPARE""

FLOP WHICH WILL NOT SET IF °"'CS3 EN SEARCH W' IS INACTIVE.

(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 FAULT:

TEST

(S MODULE

74 PROM STROBE

:
PURPOSE

TEST

(ZRMQBO RMQ5/372 DSKLS TST 2

685
686
€87
688
689
690
6N
652
693
694
695
696

4~-APR=-81

MACRO v04.00

01:29:56 PAGE

3-12

SEQ 0015

TO_VERIFY THAT WORD CLOCK AND PROM STROBE (AN BE MANIPULATED

IN MAINTENANCE MODE.
PROCEDURE
:

INITIALIZE AND SET 16 BIT MODE, THEN SEQUENCE THE

MAINTENANCE CLOCK UNTIL PROM STROBE SETS.
~ISSUE == MORE
MAINTENANCE CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS.
PROBABLE

697
698
699

FAULT:

€S MODULE

DS MODULE

700

701

702

703
704
705
706
707
708
709

TEST 15 SYNC WORD COUNT INMIBIT TeST

:
PURPOSE
TO VLRIFY THE FOLLOWING DURING READ COMMAND:

710
711
712
713
714
715
716

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

THAT "LOOKING FOR SYNC'' INMIBITS THE WORD COUNT

PROCEDURE
:
A READ COMMAND IS SETUP AND EXECUTED TO THE POINT

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

PROGRAM VERIFYING THE TRANSITION
THE SIGNAL.
THE
PROGRAM THEN SUPPLIES A SERIES OF
BIT CLOCKS AND VERIFIES
THAT “PROM STROBE'' NEVER GOES ACT IVE.
PROBABLE FAULT:

CS MODULE IF LFS FAILS,

DS MODULE IF PROM STROBE FAILS.
%

TEST

16 SYNC DETECTION TEST

:
PURPOSE
TO VERIFY

RECOGNIZED.

THAT

THE APPROPRIATE

SYNC PATTERN 5

PROCEDURE
:

THE

TEST EXECUTES A READ COMMAND IN MAINTENANCE MODE,

CZRMQBO RMOS/3/2 DSKLS TST 2

MACRO v04.00

4=APR=31

01:29:56 PAGE

3-13
SEQ 0016

742

USING BIT 10 OF THE MAINTENANCE REGISTER (RMMR1) TO SIMULATE

764

763
745
746

7247
748

749

750
751
752
753

756

THE

SYNC BIT STREAM, AND USING PROM STROUBE

THE SYNC PATTERN HAS BEEN DETECTED.

TO DE TERMINE

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

FAULT:

DS MODULE

(S MODULE

755

756
757
758
759
760
761
762

TEST 17 ABORT SYNC DETECTION TEST

:
PURPOSE

763

TO VERIFY THAT "WORD COUNT INHIBIT'* IS RESET IF A
"DRIVE TIMING ERROR'' OCCURS DURING SYNC DETECT.ON.

766
767
768
769
770

PROCEDURE
:

A READ COMMAND IS INITIATED IN MAINTENANCE MODE.

"LOOKING FOR SYNC'' GOES ACTIVE, THE TEST FORCES A DRIVE
COUNT INHIBIT'® HAS BEEN RESET.

773
774
775

PROBABLE FAULT:

780
781
782
783
784
785
786
787
788
789
790
791
792
793
794

795
796
797
798

DS MODULE

TEST 20 SYNC GENERATION TEST

:
PURPOSE
TO VERIFY THAT THE APPROPRIATE

GENERATED DURING A FORMAT OPERATION.

SYNC PATTERN IS

PROCEDURE:

THE

TEST EXECUTES A WR

IN MAINTENANCE MODE, AND VE

ER AND DATA COMMAND

HAT THE CORRECT SYNC

PATTERN IS GENERATED BY MONITORING WRITE DATA AT

TENANCE REGISTER (RMMR1).

PROBABLE

FAULT:

DS MODULE

776
777
778
779

772

WHEN

TIMING ERROR AND USES PROM STROBE TO VERIFY THAT "WORD

771

764
765

THE MAIN-

CZRMQBO RMOS/37/2 DSKLS TST 2

MACRO Vv04.00

4=-APR=-81

01:29:56 PAGE

3-14

SEQ 0017

TEST 21

WRITE HEADER TEST

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

A WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE
MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE
‘C‘?glgf?egACTER USING THE WRITE DATA BIT OF THE MAINTENANCE

RMO2/3

USES

CYLINDER 822., TRACK 4., SECTOR 31. AND

16 BIT FORMAT FOR THE TEST, WHICH CORRESPONSE

TO THE FOLLOWING:

HEADER:

WORD 1 - 1101001100110110

WORD 2 - 0000010000011111

RMOS

USES

CYLINDER

822., TRACK 18.., SECTOR 31.

AND

16 BIT FORMAT FOR THIS TEST, WHICH CORRESPONSE TO THE FOLLOWING:
HEADER:

WORD 1 - 1101001100110110

WORD 2 - 0001001000011111
PROBABLE FAULT:
1.

DS MODULE OR MASSBUS MODULE

TEST 22 HEADER COMPARE

TEST

:
PURPOSE
TO CHECK THE OPERATION OF

(1)

THE SHIFT REGISTER AND

g?;g BUFFER AS WELL AS THE (2) CRC GENERATOR DURING
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

CZRMQBO RMOS5/3/2 DSKLS TST 2

MACRO Vv04.00

F
2
4-APR-81 01:29:56 PAGE 3-15
SEQ 0018

856

HEADER WORDS AS WELL AS THE CRC CHARACTER.,

858
859
860
861
862
863
864 865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
383
884
885
886
88/
888
889
890

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

857

IS FAULTED, AND THE TEST

THE CRC CHARACTER IS

VERIFIES THAT A CRC ERROR S DETECTED.

THAT BIT 15 IS INVERTED.

PROBABLE FAULT:

DS OR IF MODULE

DS OR MASSBUS MODULE IF DATA INCORRECT

IF CRC ERROR NOT DETECTED;

TEST 23 ECC GENERATION TEST

:
PURPOSE
TO CHECK ECC OPERATION DURING WRITE.

PROCEDURE
:

MODE.

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

THE ECC CHARACTER VIA THE WRITE DATA BIT OF

THE DATA FIELD IS NOT VERIFIED.

THE MAINTENANCE

PROBABLE FAULT:

DS MODULE

891

892
893

TEST 24 ECC DETECTION TEST

PURPOSE:
TO CHECK

THE ECC GENERATION DURING READ.

PROCEDURE
:
THE

TEST EXECUTES A READ DATA COMMAND IN MAINTENANCE

THE

TEST VERIFI ES

MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA
WORD IS FAULTED.
AND THAT

(2)

(1)

THAT AN ECC ERROR 1S DETECTED

THE POS ITION AND PATTERN REGISTERS ARE VALID.

PROBABLE FAULT:

912

DS MODULE

CZRMQBO RM(OS5/3/2 DSKLS

TST 2

MACRO v04.00

4-APR-81

01:29:56 PAGE 4

2
SEQ 0019

;*LAST REVISION 04=APR=81
JTITLE
CZRMQBO RMQS5/3/2 DSKLS TST 2
;*COPYRIGHT (C) 1981
:*DIGITAL EQUIPMENT CORPORATION
'COLORADO SPGS., (0. 80919
~PROGRAM BY MIKE

LEAVITT

'THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMA(
'PACKAGE (MAINDEC=11=DZQAC~(C5), 18=-MAR-81

OPERATIONAL SWITCH SETTINGS
SWITCH

USE

N
N
B
N
IR

.SBTTL

1 7.7570

= 0T

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

: 'MSCELLNSWS DEF INITIONS

CRLF
PS
PSW=PS

= 200
= 177776

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

PIRQ

STKLMT

= 177774

..STACK LIMIT REGISTER

DSWR

= 177570

..HARDUARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

LF
(R

DDISP

= 12
= 15

177772

= 177570

;PROGRAM INTERRUPT REQUEST REGISTER

—

bmo
e b
e

mmmm

P
>

X1
%2
%3
%6

=
=
=
=

= %0

R1
]2
R3
R4

[(ATATATATAl

s *GENERAL PURPOSE REGISTER DEF INITIONS

—

177776
177774
177772
177570

SCOPE

= 110
= EMT

000011
000012
000015
000200
177776

s*INITIAL ADDSESS OF THE STACK POINTER w=+ 1100 wa«

STACK
ERROR

e
et

000004

BASIC DEFINITIONS

DIODDDD

104000

TN16
TN8
TNG
TNZ
N1

mmmmm

001100

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
TN128
TNG4
TN32

wvunnooey

681

IR B

O=NWHSF
VNN OO =W

.SBTTL

BASIC

DEFINITIONS

000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000

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

020000
010000
004000
002000
001000
000400
000200
000100
000040
000020

MACRO v04.00

4=~APR=-81

01:29:56 PAGE

4=1

<EQ@ 0020

RS
R&
R7
SP

= }S
= %6
= §7

= %6
= X7

s*PRIORITY LEVEL
PRO
= 0

PR1
PR2
PR3
PR
PRS
PR6
PR7

=
=
=
=
=
=
=

40
100
140
200
240
300
340

s JGENERAL REGISTER
::GENERAL REGISTER
: ;GENERAL REGISTER
;sSTACK POINTER

s sPROGRAM COUNTER
DEFINITIONS
..PRIORITV LEVEL

;PRIORITY
*:PRIORITY
;:PRIORITY
;iPRIORITY
..PRIORITY
:PRIORITY
SIPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

1
2
3
4
S5
6
7

J*"'SWITCH REGISTER'® SWITCH DEF INITIONS

SW15S
Swi14

= 100000
= 40000

SW11
SW10
SW09
Sw08

=
=
=
=

SWO0S

= 40

SW13
SW12

SW07
SW06

= 20000
= 10000
4000
2000
1000
400

= 200
= 100

SW04
=20
SW03
=10
Sw02
= &
SW01
=2
SW00
&
SW9=SW)9
SW8=Sw08
SW7=Swl7
SW6=SW06
SW5=SW0S
SWé4=SW04
SW3=Sw03
SW2=Sw02
Swi1=SW01
SW0=SW00
;*DATA BIT DEFINITIONS (BITO0 TO BIT15)

BITIS

BIT14
BIT13

BIT12
BIT11
BIT10
BITO9
BITO8
BITO7
BITO6
BITOS
BITO4

= 100000

= 40000
= 20000

=
=
=
=
=
=
=
=
=

10000
4000
2000
1000
400
200
100
40
20

——

rZRMGBO RM0OS/3/2 DSKLS T1ST 2

CZRMQBO RMQS/3/2 DSKLS TST 2

BASIC

DEFINITIONS

000010
000004
000002
000001
001000
000400
000200
00C100
000040
000020
000010
000004
000002
000001

683
684
685
686
687

688
689
690
691
692
693
69

695

696
697

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

004000
000040
000020

000010
000004
000002
000001

000077

000000
000002
000004
000006
000010

704
705
706

000014
000016
000020

707
708
709
710
711

BITO3

BITOZ2

4-APR-81

[

01:29:56 PAGE 4=2

SEQ 0021

=10

= 4

BITOY
=2
=1
BITOO
BIT9=B1T09
BIT18=B]T08
BIT7=BIT07
BIT6=8BIT06
BIT5=BIT0S
BIT4=BIT04
BIT3=BIT03
BIT2=BIT0?2
BIT1=BITO1
BITO=BIT00

;*BASIC '"'CPU'' TRAP VECTOR ADDRESSES

ERRVEC
= 4
RESVEC
= 10
TBITVEC = 14

;:TIME OUT AND OTHER ERRORS
..RESERVED AND ILLEGAL INSTRUCTIONS
T BIT

BPTVEC
IOTVEC
PWRVEC

; ;BREAKPOINT TRAP (BPT)
2 INPUT/0UTPUT TRAP (JOT) #+S{OPE#*»
;;POWER FAIL

TRTVEC

EMTVEC

= 1¢

..TRACE TRAP

= 14
= 20
= 24

= 30

;;EMULATOR TRAP (EMT) «=ERROR=*»

TRAPVEC = 34
TKVEC
= 60

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

PIRQVEC = 240

; ;PROGRAM INTERRUPT REQUEST VECTOR

TPVEC

= 64

.SBTTL

RM REGISTER BIT DEF INITIONS

;3T7TY PRINTER VECTOR

s*RMCS1 CONTROL STATUS REGISTER

698
699
700
701
702
703

MACRO v04.00

000012

000022
000022
000024

000026
000030

DVA

= BIT11

sDEVICE AVAILABLE-READ ONLY

S
F2
F1

= BITO4
= BITO3
= BIT02

sFUNCTION CODE
sFUNCTION CODE
;FUNCTION CODE

GO
FNCMSK

= BIT00
= 000077

;G0 BIT
sFUNCTION CODE MASK

Fé

= BITO0S

= BITO1

;FUNCTION CODES

NOP

= 000000

SEEK
RECAL
DRVCLR
RLEASE
OFFSET
RTC
RIP
PAKACK

= 000004
= 000006
= 000010

ILFO2

sFUNCTION CODE

(BITS 01-05 OF RMCS1)

sNOP_COMMAND

= 000002

:ILLEGAL COMMAND

= 0000i2

sRELEASE COMMAND

s SEEK COMMAND
;RECAL IBRATE COMMAND
:DRIVE CLEAR COMMAND

= 000014
= 000016

;OFFSET COMMAND
JRETURN TO CENTERLINE COMMAND

= 000020
= 000022

PACACK

= PAKACK

= 000030

ILF24
ILF26

sFUNCTION CODE

= 000024
= 000026

JREAD IN PRESET COMMAND
sPACK ACKNOWLEDGE COMMAND

: ILLEGAL COMMAND
s ILLEGAL COMMAND
s SEARCH COMMAND

722
723
724
725

726

727
728
729
730

731

000066
000070
000072
000074

000076

010000

= 000050
= 000052

WD
WH
ILF64
ILF66
RD
RH
ILF74
ILF76

=
=
=
=
=
=
=
=

;*RMDA

DISK ADDRESS REGISTER

ILFS4
ILF56

735
736

009400

738

000020

SA16

740
741
742
743
744
745

000004
000002
000001

734
737

739

746

747
748
749

750

004000
002000

001000

TADMSK
SADMSK

= 177400
= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP
MOL

=
=
=
=

000377

100000

004000

756

C01000

758
759

760

761
762

= BITO4

177400

754

757

;SECTOR ADDRESS DEF INITIONS

SA8
SA4
SA2
SAl

040000
020000

755

= BIT12
= BITI
= BIT10
= BIT09
= BITO8

000010

751
752

753

000060
000062
000064
000066
000070
000072
000074
000076

:TRACK ADDRESS DEF INITIONS

fAl6
TA8
TA&
TA2
TAl

732
733

= 000054
= 000056

010000

002000
000400

000200
000100

000001

= BITO3
= BIT0?
= BITO]
= BIT00

:TRACK & SECTOR MASKS

WRL

LBT

PGM

BITIS
BIT14
BITI3
BIT12

= BIT1]

= BITIO

= BITO09

DPR
DRY
W
oM

=
=
=
=

:*RMER1

ERROR REGISTER #1

BITO8
BIT07
BIT06
BIT00

rTEr
e

000064

000062

Wb
WCH

721

7¢0

000030
000032
000034
000036
000040
000042
000044
000046

000050
000052
000054
000056
000060

=
=
=
=
=
=
=
=

715
716
717
718
719

ILF30
ILF32
iLF34
ILF36
1LF40
ILF4z
ILF44
ILF46

L
L
L
L
L
L
L

COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
C HECK DATA COMMAND
C HECK HEADER AND DATA
L COMMAND

GAL COMMAND
E DATA COMMAND

JWRITE HEADER AND DATA COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
sREAD DATA COMMAND
sREAD HEADER AND DATA COMMAND
—

000030

000032
000034
000036
000040
000042
000044
000046

SEQ
N, NNt LN,

714

J
2
4-APR-81 01:29:56 PAGE 4=3

e L. NN,

RM REGISTER BIT DEFINITIONS

MACRO v04.00

(ZRMQBO RMQOS5/3/2 DSKLS TST 2

;JLLEGAL COMMAND
s ILLEGAL COMMAND

s TRACK ADDRESS 16.

s TRACK ADDRESS 8.

s TRACK ADDRESS 4
s TRACK ADDRESS 2
s TRACK ADDRESS 1

sSECTOR ADDRESS 16.

sSECTOR ADDRESS 8.
sSECTOR ADDRESS 4
;SECTOR ADDRESS 2
sSECTOR ADDRESS 1

s TRACK ADDRESS MASK

sSECTOR ADDRESS MASK

JATTENTION ACTIVE
sCOMPOSITE ERROR
;POSITIONING IN PROGRESS
JMEDIUM ON LINE
JWRITE LOCK
;LAST BLOCK TRANSFERRED

; PROGRAMMABL
E

;DRIVE PRESENT
:DRIVE READY
JVOLUME VALID

JOFFSET MODE ACTIVE

002
JUZ¢

|
-

CZRMQBO RMQ5/3/2 DSKLS TST 2
RM REGISTER BIT DEFINITIONS
764

765

766

767
768
769
770
771
772

773

774
775
776

MACRO V04.00

4-APR-81

K 2
01:29:56 PAGE 4~4
SEQ 0023

DCK
UNS
OPI
DTE
WLE
IAE
AOE

HCRC
HCE

ECH
WCF

=
=
=
=

BIT1S
BIT14
BIT13
BIT12
= BITN
= BIT10
=
=
=
=
=

BIT09
BITO8
BIT07
BIT06
BITOS

=
=
=
=

BIT03
BIT02
BITO1
BITO0

;DATA (HECK ERROR
;DRIVE UNSAFE
JOPERATION INCOMPLETE
;DRIVE TIMING ERROR
/WRITE LOCK ERROR
s INVALID ADDRESS ERROR

;ADDRESS OVERFLOW ERROR
/HEADER CRC ERROR
JHEADER COMPARE ERROR
JECC _"HARD'' ERROR
JWRITE CLOCK FAILURE

FER

= BITO4

NDTMSK

= DCK!DTE'!WLE
!AOE !HCRC !HCE!ECH!WCF !FER

PAR
RMR
ILR
ILF

;FORMAT ERROR

;PARITY ERROR
JREGISTER MODIF ICATION REFUSED
;ILLEGAL REGISTER
sILLEGAL FUNCTION

:'NDTMSK'" IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA
s COMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS

J*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

J*RMLA

LOOK AHEAD REGISTER

SC4

;MASK FOR ATTENTION BITS

SC3
SC2
SC1
SC0

= BIT09
= BITO8
= BIT07
= BITO6

= BIT10

sSECTOR COUNT = 16

SCTMsK

= 003700

sSECTOR COUNT MASK

sSECTOR
sSECTOR
sSECTOR
sSECTOR

COUNT
COUNT
COUNT
COUNT

=
=
=
=

8
4
2
1

:*RMMRT MAINTENANCE REGISTER #1
;WRITE ONLY BITS

DBCK
DBEN
DEBL

= BIT15
= BIT14
= BIT13

;DEBUG CLOCK
;DEBUG CLOCK ENABLE
sDIAGNOSTIC END OF BLOCK

MCLK
MRD
MUR
MOC

= BITN
= BIT10
= BIT09
= BIT08

JMAINTENANCE CLOCK
sREAD DATA
;UNIT READY
sON_CYL INDER
.

MDF

= BIT06

MSEN

MSER

MwP
Ml
MSC

DMD

= BIT12

= BITO7

s SEEK_ERROR

;DRIVE FAULT

= BITOS

sSECTOR PULSE

= BIT02
= BITO1

s INDEX PULSE
;SECTOR COMPARE

= BITO3
= BITO00

;READ ONLY BITS

ocC

sSEARCH TIMEOUT ENABLE

= BIT15
= BIT14

;WRITE PROTECT

;DIAGNOSTIC MODE
;OCCUPIED

+RUN AND GO

CZRMQBO RMOS5/3/2 DSKLS TST 2

RM REGISTER BIT DEFINITIONS

821
822
823
824
825
826
827
828
829
830
831
832
833
834
ggz

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

839
840
841
gz%

100000
040000
020000
004000

844

020024

g‘l.g

24024

g‘o‘g
849
850
851
852
ggz

010000
004000
002000
000200
161577

ggg

857

ggg

001777

176000

862

863

864
865
866
867

868
871

MACRO v04.00

4-APR-81

01:29:56 PAGE 4=5

SEQ 0024

EBL
REX
ESRC
PLFS
ECRC
PDA
PHA
CONT
w(
EECC
MWD
LS
LST
DMD

= BIT13
= BIT12
=BITN
= BIT10
= BITO9
= BITO8
= BITO7
= BITO6
= BITOS5
= BITO4
= BITO3
= BIT02
= BITO1
= BITO00

;*RMDT

DRIVE TYPE REGISTER

NSA
TAP
MOH
DRQ

= BIT15
= BIT14
= BIT13
= BITN

sNOT SECTOR ADDRESSED = 0
;TAPE DRIVE
= 0
:MOVING HEAD = 1
:DRIVE RENEST REQUIRED

SNGPRT

= 020024

;SINGLE PORT DRIVE TYPE

s*RMOF

OFFSET REGISTER

FMT16
ECI
HCI
OFD

= BITI2
= BITN
= BIT10
= BIT07

;*RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

MRTAAA

DULPRT

XNUOF

XNUDC

= DMD!MUR!DBEN:MOC
!MSEN

= 024024

= 161577

001777

= 176000

END OF BLOCK
JEXCEPTION
;ENABLE SEARCH
sLOOKING FOR SYNC
;ENABLE CRC OUT
;DATA AREA
;HEADER AREA
s CONT INUE
JWORD CLOCK
JENABLE ECC OUT
JWRITE DATA BIT
JLAST SECTOR
sLAST SECTOR AND TRACK
;DIAGNOSTIC MODE

;DUAL PORT DRIVE TYPE

;16 BIT WORD FORMAT
sECC INHIBIT
sHEADER COMPARE INMIBIT
;OFFSET FORWARD
JUNSED BITS OF RMOF

sMASK FOR CYLINDER ADDRESS

;UNSED BITS OF RMDC

;*RMMR2 MAINTENANCE REGISTER #2

:READ MV BITS

100000

ROA

002000
001000

CH
8809

040000
020000
010200
004000

000400
000200
000100
000040
000020
000010
000004
000002

= BIT15

sPORT A REQUEST

RQB
TAG
ST
cC

= BIT14
= 8lil13
= gITi2
= Billl

sPORT B REQUEST
:TAG CONTROL
s COMMAND SEQUENCE TEST BIT
sCONTROL OR CYLINDER TAG

8808
8807
8806
8805
8804
8803
8802
8801

= 51789
= BIT
= BIT06
= BITOS5
= BIT04
= 81783
= BIT0Z
= BITO1

: TAG BUS
:TAG BUS
:TAG BUS
: TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS

= BIT10
= BIT09

:CONTROL OR HEAD TAG
:TAG BUS

RM REGISTER BIT DEFINITIONS

000010
001567

887
888
889
890
891

892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
910

911
912

913

914
915
916
917
918

000200

.SBTTL

100000
040000

MSE

USE

.SBTTL

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

RMCS1

RMDA
RMDS
RMER1
RMAS
RMLA

RMMR1

RMDT
RMSN
RMOF
RMDC
RMHR

000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

000077

IDXMSK

. «SBTTL

e ]

;BAD SECTOR ERROR
s SEEK INCOMPLETE
;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR

;LOSS OF SYSTEM CLOCK

;LOSS OF BIT CLOCK
;DEVICE CHECK
;DATA PARITY ERROR
JUNSED BITS OF RMER?

PROGRAM MNEMONICS

BIT15
BIT14

JMANUFACTURING
1
DE TECTED SECTOR ERROR
;USER DETECTED SECTOR ERROR

RM REGISTER INDEX VALUES

;CONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER
sERROR REGISTER M

SATTENTION SUMMARY REGISTER

sLOOK AHEAD REGISTER
sMAINTENANCE REGISTER
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER

DESIRED CYLINDER REGISTER
HOLDING REGISTER
MAINTENANCE REGISTER #2
ERROR REGISTER #2
E CC POSITION REGISTER
3 CC_PATTERN REGISTER
1 LLEGAL REGISTER 50
1 LLEGAL REGISTER 52
1 LLEGAL REGISTER 54
| LLEGAL REGISTER 56
1 LLEGAL REGISTER 60
REGISTER 62
. 1 LLEGAL
1 tLEG\L REGISTER 64
1
1 LLEGAL REGISTER 70
I LLEGAL REGISTER 72
1 LLEGAL REGISTER 7¢
1 LLEGAL REGISTER 76
-

RMMR2
RMER2
RMEC1
RMEC2

ILRG50
ILRGS52
ILRG54
ILRG56
ILRG60
ILRG62
ILRG64
ILRG66
ILRG70
ILRG7?2
ILRG74
ILRG76

000050

BSE
SK1
OPE
1vC
LSC
LBC
DVC
DPE
XNUER?2

e e

832
883

884

:TAG BUS

100000
040000
020000
010000

004000
002000

885
886

= BIT00

: *RMER? ERROR REGISTER 2

879
880
881

8800

000001

872
873
874
875
876
877
878

VOO
- —dea a2
CWNO =W v

SEQ 0025

M 2
4-APR-81 01:29:56 PAGE 4=6

MACRO V04.00

8mmmwmww @

(ZRMQBO RMOS/3/2 DSKLS TST 2

NN = = =2 OO
S OONS~NVVONO

’

L
.

.
.

sMASK FOR REGISTER INDEX NUMBER

RH CONTROLLER REGISTER BIT DEFINITIONS

;*RMCS1T CONTROL STATUS REGISTER #1

‘

| CZRMQBO RM0S/3/2 DSKLS TST 2
MACRO V04.00
| RH CONTROLLER REGISTER BIT DEfINITIONS
|

?
l

919

920

921
922
923
924
925
322(;

931

932
933
934
935
936

937

938
939
940
941
942
945
o

= BIT15

JSPECIAL CONDITION=READ ONLY

020000
002000
001000
000400
000200
000100

MCPE
PSEL
A17
A16
RDY
IE

=
=
=
=
=
=

/MASSBUS CONTROL BUS PARITY ERROR-READ ONLY
/PORT B SELECT
;ADDRESS EXTENSION
sADDRESS EXTENSION
/READY=READ ONLY
s INTERRUPT ENABLE

961
962
ggz

TRE

= BIT14

BIT13
BIT10
BITO9
BITO8
BITO7
BITO6

; TRANSFER ERROR

;*RMCS2 RH CONTROL STATUS REGISTER #2
100000

040000

020000
010000
004000
002000
001000

000400

000200
000100
000040
000020
000010
000004
000002
000001

DLT

= BIT15

;DATA LATE~READ ONLY

UPE
NED
NEM
PGE
MXF

= BIT13
= BIT12
= BITN
= BIT10
= BIT09

JUNIBUS PARITY ERROR
sNONEXISTANT DRIVE~READ ONLY
sNONEXISTANT MEMORY-READ ONLY
;PROGRAM ERROR-READ ONLY
sMISSED TRANSFER

OR
IR
CLR
PAT
BAI
u2
V)
uo

= BIT07
= BITO6
= BITOS
= BITO4
= BITO03
= BIT02
= BITO1
= BIT00

WCE

MDPE

= BIT14

= BITO8

;WRITE CHECK ERROR-READ ONLY

;MASSBUS DATA BUS PARITY ERROR-READ ONLY

;OUTPUT READY=READ ONLY
s INPUT READY=READ ONLY
;CONTROLLER CLEAR
;PARITY TEST
sUNIBUS ADDRESS INCREMENT INHIBIT
SUNIT SELECT
SJUNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK
000007

gg}
953
954
955
956
957
958
959
960

SEQ 0026

g‘l:g
3‘53

100000

040000

gsg
930

4=~APR=81 01:29:56 PAGE 4=7

UNTMSK

= 7

JUNIT SELECT MASK

;*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000
040000
020000

010000
004000
002000
000100
000010

000004
000002
000001

ggg

APE
DPEH]I
DPELO
WCEHI
WCELO
DBL
IE
IPCK3

= BIT15
= BIT14
= BIT13

IPCK2
IPCK1
IPCKO

= BITO3
= BIT02
= BITO1
= BITO00

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

= BIT12
= BIT1
= BIT10
= BIT06

;ADDRESS PARITY ERROR
;DATA PARITY ERROR HIGH WORD
;DATA PARITY ERROR LOW WORD
sWRITE CHECK ERROR HIGH WORD
JWRITE CHECK ERROR LOW WORD
;DOUBLE WORD TRANSFER
s INTERRUPT ENABLE
s INVERT PARITY CHECK

s INVERT PARITY CHECK
: INVERT PARITY CHECK
s INVERT PARITY CHECK

967
968
969
970
971
972
g;z

000000
000002
000004
000010
000022
000050
000052

RMCST
RMW(
RMBA
RMCS2
RMDB
RMBAE
RMCS3

= 00
= 02
= 04
=10
= 22
= 50
=52

sCONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER
sBUS ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2
:DATA BUFFER
;BUS ADDRESS EXTENSION
;CONTROL, STATUS REGISTER #3

975

176700

ABASE

= 176700

sUNIBUS ADDRESS

CZRMQBO RMOS5/3/2 DSKLS TST 2

TRAP

CAT(CHER

MACRO Vv04.00

4-APR-81

3
SEQ 0028

LSBTTL
000000

000174
000176

01:29:56 PAGE

TRAP CATCHER

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

000000
000000

DISPREG:
SWREG:
.SBTTL

.uoao
.WORD

0
0

;:SOF TWARE DISPLAY REGISTER
1:SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

: 000200

000137

002732

JMP

NSTART

;:JUMP TO STARTING ADDRESS OF PROGRAM

2 000204

000137

002722

JMP

NSTART1

;CHANGE RM/RM BUS ADDRESS

LSBTTL

ACT11 HOOKS

'l...Q't'.'.'....."".'....."Q'l"'...'!.'.'...'Q...t.'.'ttt'

000210

000046

000046
855323

000052

000000

$SVPC=.

:SAVE PC

. =46
sggng

WORD

000210

001100

*FI00KS REQUIRED BY ACT11

.=$SVPC

.=1100

.SBTTL

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

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

APT PARAMETER BLOCK

't.'Q.'t..'......""‘...'Q.....Q...'...'Q'..t..'.t.tt't"t...t

ssr LOCATIONS 24 AND 44 AS REQUIRED FOR APT

't.....I.Q.'Q...'Q"'Q'.'Q.'.Q......'t.......t'.tt'.....tt.ttt'

000024
000044

001100
000024

.$X=.
.=24

000200

000044
001100
001100

200

:;SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM

::FOR APT START UP

.44
::POINT TO APT INDIRECT ADDRESS PNTR.
$SAPTHDR ::POINT TO APT HEADER BLOCK
.=.8X ::RESET LOCATION COUNTER

'tQlt.'.Q.".Q......""..'....Q‘......'..'.'...t‘..t.t..t.t'.'

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

001100
001100

000000

SAPTHD:
$HIBTS:

.WORD

001106
001110

000002
000002

$PASTM:
SUNITM:

.WORD
.WORD

2
2

001102
0011064

001112

001222
000602
000042
001114

SMBADR: .WORD
$TSTM: .WORD
TAGADR=,"

WORD

SMAIL
2

:;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

::ADDRESS OF APT MAILBOX (BITS 0-15)
..nun TIM OF LONCEST TEST

SIRUN TIME IN SECS. OF 157 PASS ON 1 UNIT (QUICK VERIFY)
::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

SETEND-SMAIL/2

;:LENGTH MAILBOX=ETABLE (WORDS)

(ZRMCBO RMOS5/3/2 DSKLS

COMMON TAGS

T1ST 2

MACRO v04.00

4-APR-81

.SBTTL

(01:29:56 PAGE 6

3
SEQ 0029

COMMON TAGS

'l"'.Q'..'.QI'.".""."Q.'..'.'Q.'..'Q"'.t.".'l'...."'ttt

-THIS

TABLE

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

1*USED IN THE PROGRAM,

001114

$CMTAG:

.=TAGADR

001114

000000

001120
001122
001124
001126

000000
000000
000000
000C00

$ICNT:
$LPADR:
S$LPERR:
SERTTL:

.WORD
.WORD
.WORD
.WORD

001132
001134
C01136
001140
001142
001144
001146

000000
000000
000000
000000
000000
000000
000000

$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

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

O
O
O
O
O
O
O

001152

000000

.WORD

001156
001160
001162

177570
177560
177562

001116
001117

001130
0011 N

001150
001151
001154

001164
001166
001170
001171

001172
001173
001174
001176
001200
001202
€01204
001206
001210

001212
001216
001217
001220

000
000

000
001

000
000

;;CONTAINS THE TEST NUMBER
;;CONTAINS ERROR FLAG

$ITEMB: .BYTE
$ERMAX: .BYTE

O
1

;;CONTAINS ITEM CONTROL BYTE
;;CONTAINS MAX. ERRORS PER TEST

.WORD

DISPLAY: .WORD
$TKS:
177560
$TkB:
177562

$TPS:
177564
$TPB:
177566
SNULL:
.BYTE
SFILLS: .BYTE

012
000

207
077
015
012

0
O

SWR:

177564
177566
000
002

377
000

377

;:START OF COMMON TAGS

$TSTNM: .BYTE
$ERFLG: .BYTE

$AUTOB: .BYTE
$INTAG: .BYTE

177570

000000
000000
000000
000000
000000
000000
000000

LWORD

O
O
O
O

;;CONTAINS
s sCONTAINS
. :CONTAINS
;sCONTAINS

SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED

;;CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °*GOOD’ DATA
;;CONTAINS ADDRESS OF °*BAD’ DATA
;;CONTAINS °"GOOD* DATA
:2CONTAINS °*BAD’® DATA
; sRESERVED~-=NOT TO BE USED

O
O

;;AUTOMATIC MODE INDICATOR
;2 INTERRUPT MODE INDICATOR

DSWR

;;ADDRESS OF SWITCH REGISTER

DDISP

; ;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

::TTY KBD BUFFER

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

0
2

SFILLC: BYTE
$TPFLG: .BYTE

12
O

SBELL: .ASCIZ
$QUES:
L.ASCII
SCRLF: _.ASCII
SLF
"LASCIZ

<207><377><377> ..CODE FOR BELL
77/
2 JQUESTION MARK
<15>
;s CARRIAGE RETURN
<12>
;:LINE FEED

$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
_.WORD
$TMP3:
_WORD
$TMP4:
_WORD
$TIMES: O
SESCAPE:0

;s INSERT FILL CHARS. AFTER A "LINE FEED""
;" 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

O
O
O
O
O

s ;USER DEF INED
; ;USER DEF INED
2 JUSER DEF INED
2 sUSER DEF INED
..USER DEF INED
NUMBER OF ITERATIONS
ESCAPE ON ERROR ADDRESS

tttt!.itt'..t'...'ttt""tt'.t.tl'..'.'.l'..t"'..!t.‘tttttlti'

SSBTTL

APT MAILBOX-ETABLE

't't.tt'.ttt.t..tttt‘.ttit'!tl't.!tltt.ttt'ttt."lttt'Q'ttlttt.

001222
001222
001226
001226

.EVEN

000000
000000
000000

SMA]L :

$MSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

::APT MAILBOX

;:MESSAGE TYPE CODE
;:FATAL ERROR NUMBER
;;TEST NUMBER

CZRMQBO RMQS/372 DSKLS TST 2
MA[LBOX-ETABLE

4-APR=-81

01:29:56 PAGE 6-1

SEQ 0030

001230
001232

$PASS:
.WORD
$DEVCT: .WORD
$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
SENV:
.BYTE
$ENVM:
_.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

]

s sPASS COUNT

$:DEVICE COUNT
;4170 UNIT NUMBER
: iMESSAGE ADDRESS
: ;MESSAGE LENGTH

: ;APT ENVIRONMENT

TABLE

: :ENVIRONMENT BYTE
; sENVIRONMENT MODE BITS
::APT SWITCH REGISTER

::USER SWITCHES
::CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05

11/70=06.PD0=07,0=10

IT 10=REAL TIME CLOCK
IT

AMAMS1
AMTYP1

I
.'.

001254

$MADR1:

.WORD

AMADR1

.BYTE
.BYTE
.WOKD
.BYTE
.BYTE
.WORD
_BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

AMAMS?2
AMTYP?2
AMADR
AMAMS
AMTYP
AMADR3
AMAMSS
AMTYPS
AMADRS
AVECT1
AVECT?2
ABASE
ADEWM
ACDWI
ACDWZ2

- &

001256

001257
001260
001262

001263

001264
001266
001267
001270
001272
001274
001276
001309
001302
001304
001306
C01310
001312
001314
001316
001320
001322
001324
00132¢

000

000
000

000
000
000

$MAMS2:
SMTYP2:
$SMADRZ:
SMAMS3:
SMTYP3:
SMADR3:
SMAMSS:
$MTYP4:
$MADRSG:
SVECT1:
SVECT2:
$BASE:
$DEVM:
$CDW1:
$CDW2:

$DDWO:
$DDW1:
$DDW2:

.WORD
.WORD
.WORD

ADDWO
ADDW1
ADDW2

$DDW4:

.WORD

ADDWS

$DDW3:

$DDWS:
$DDW6:
$DDW7:
$ETEND

.WORD
.WORD
.WORD
.WORD

ADDW3

ADDWS
ADDW6E
ADDW7

: sMEM. TVPE.BLKn

MEM.TYPE BYTE

(MIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;;MIGH ADDRESS,BLKA1

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

:sHIGH ADDRESS.M.S. BYTE
:MEM, TYPE ,BLKA2

::m LAST ADDRESS ,BLK#2

::MIGH ADDRESS.M.S.BYTE

* :MEM. TYPE ,BLKAS

: ;
: :

llm LAST ADDRESS,BLK#3
HIGH ADDRESS.M.S.BYTE
. TYPE ,BLK#%
.LAST ADDRESS .BLK#%

INTERRUPT VECTOR#1,BUS PRIORITY#1
INTERRUPT VECTORN2BUS PRIORITY#2

BASE ADDRESS OF EQUIPMENT UNDER TEST
; ;DEVICE MAP
; CONTROLLER DESCRIPTION WORDA#1
CONTROLLER DESCRIPTION WORD#2

:;DEVICE DESCRIPTOR WORDAO
::DEVICE DESCRIPTOR WORDA1
::DEVICE DESCRIPTOR WORDA?2
;:DEVICE DESCRIPTOR WORDA3
*:DEVICE DESCRIPTOR WORDA#%
::DEVICE DESCRIPTOR WORDAS
::DEVICE DESCRIPTOR WORDA%
$iDEVICE DESCRIPTOR WORDA7

.BYTE
.BYTE

TR TR TR

$MAMS1:
$MTYP1:

000
0o

Ny loln!o.-

001252
001253

9=FLOATING POINT PROCESSOR

IT 8=MEMORY MANAGEMENT
;:HIGH ADDRESS,M.S. BYTE

AT
TR TRTR
TRTR

.nt e Be N

AFT

MACRO Vv04.00

CZRMQBO RM0O5/3/2 DSKLS

USER DEF INEC

VIS

888

WA
DB

TAGS

TST 2

MACRO V04.00

4&-APR-81

-3
01:29:56 PAGE 7

SEC 0031

000000
000000
000000

000
000

.SBTTL

USER DEFINED TAGS

AUTSIZ:

.WORD
.WORD
.WORD

CHGADR:

XXDP:

LSTRK:

0
0
0
¢
0

sALLOW AUTO DRIVE SIZING
= 0 USE MANUALLY INPUT DRIVES
=

: CHANGE RH/RM BUS ADDRESS
=

Lsxgs;EDEV(I)CE CODE FOR THE RMO05/3/2.
sHI BYTE,

CONTAINS LAST TRACK ADDRESS OF UNIT

:UNDER TEST. RM02/3 = 4., RMOS
= 18.

:THE REGISTER INPUT BUFFER IS USED FOR
:STORING DRIVE STATUS
001336

GE TBUF:

001336
001340
001342
001344
001346
001350
001352
001354
001356

RMCS1I:
RMWCI:
RMBAI:
RMDAI:
RMCS2I:
RMDSI:
RMER1I:
RMASI:
RMLAI:
RMDBI:
RMMR1I:
RMDTI:
RMSNI:
RMOFI:
RMDCI:
RMHRI:
RMMRZ2I:
RMERZ2I:
RMEC1I:
RMEC2I:
RMBAEI:
RMCS3I:

001362
001364
001366
001370
001372
001374
001376
001400
001402
001404
001406
001410

JREGISTER INPUT BUFFER
.WORD
.WORD
.WORD
.WORD

.WORD

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

.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

:CONTROL, STATUS REGISTER #1

*WORD COUNT REGISTER
:BUS ADDRESS REGISTER
*DISK ADDRESS REGISTER
* CONTROL STATUS REGISTER #2

*DRIVE STATUS REGISTER

*ERROR REGISTER #1
*ATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
*DATA BUFFER
*MAINTENANCE REGISTER #1
*DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
*OFFSET REGISTER
*DESIRED CYLINDER REGISTER
*HOLDING REGISTER
*MAINTENANCE REGISTER #2

*ERROR REGISTER #2
*ECC POSITION REGISTER

;ECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER

;CONTROL, STATUS REGISTER #3

;THE REGISTER OUTPUT BUFFER IS USED FOR
ASSEELING DATA GOING TO REGISTER

001412

:
PUTBUF

001412
001414
001416
001420
001422
001424

RMCS10:
RMWCO:
RMBAO:
RMDAD:
RMCS20:

—

001426
001430
001432
001434
001436

;REGISTER OUTPUT BUFFER

RMDSO:
RMER10:
RMASO:
RMLAO:
RMDBO:
RMMR10:

.WORD
.WORD
.WORD
.WORD
.WORD

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

O
O
O
O
O

O
O
0O
O
O
O

NO CHANGE
= 0

;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
: THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

;CONTROL, STATUS REGISTER #1i

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER

;DISK ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2
;DRIVE STATUS REGISTER
;ERROR REGISTER #1
JATTENTION SUMMARY REGISTER

;LOOK AHEAD REGISTER
;DATA BUFFER
;MAINTENANCE REGISTER #1

01:29:56 PAGE

7-1

SEQ 0037
.WORD

RMER20:
RMEC10:

RMEC20:
RMBAEO:

RMCS30:

STER

EGISTER
R REGISTER

RMDTO:
RMSNO:
RMOFO:
RMDCO:
RMHRO:
RMMR20:

001440
001442
01444
001446
001450
001452
001454
001456
001460
001462
001464

4-APR-81

USER DEF INED TAGS

MACRO v04.00

CZRMQBO RMQS5/3/2 DSKLS T1ST 2

jelelewlslolelelolelsls]

STER #2

ISTER

ECC PATTERN REGISTER
:BUS_ADDRESS EXTENSION REGISTER

:CONTROL, STATUS REGISTER #3

sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
sTHE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
:FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
s IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
JEND OF THE QUE.
001466
G01470
001510

000000

001512
001514
001516
001520
001522
001524
001526
001530
001532
001534

172540
172542

001536
001540

TSTQUE:

000000

000104
000106

177546
000100
000102
000000
000000
000000
000000
0000C0

. WORD
.BLKW
.WORD

;ALL 8. DEVICES ARE UNDER TEST.

$LPCSR:
$LPCSR:
$LPVEC:

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

$LLVEC:

$LLCSR:

;KW11=L CONTROL + STATUS REGISTER
;KW11=L INTERRUPT VECTOR

$PSW:

;STORAGE FOR PRIORITY

:
STOPCL

;ADDRESS OF START CLOCK SuB
;ADDRESS OF STOP CLOCK SuB

TIME:
WATCH:
CLOCK:

;PUT TAGS HERE

—

;CONTAINS DEVICE POINTER
;TEST QUE FOR DEVICES UNDER TEST
;TABLE TERMINATOR GOES HERE WHEN

;STORAGE FOR ELAPSED TIME
sSTORAGE FOR REMAINING TIME

(ZRMQBO RMQS5/3/2 DSKLS TST 2

ERROR POINTER

TABLE

MACRO V04.00

H 3
4=-APR-81 01:29:56 PAGE 8

.SBTTL

SEQ 0033

ERROR POINTER TABLE

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT (AN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB., THIS NUMBER INDICATES WHICH ITEM [N THE TABLE IS PERTINENT.
J*NOTE1:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().

:*NOTE2:

i
.

i
i*

; 001542

$ERRTR:

:ERROR
001542
01544
001546
001550

032460
040364
040500
040534

Z
032466

001556
001560

040502
040536

EM
DH
DT
DF

;POINTS
;;POINTS
;:POINTS
;POINTS

CANNOT CLEAR NED STATUS

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

’

|
|
,
:
|

CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED

EHT?2

EDT?
EFT2

”

;
:

;ERROR
001562
001564
001566
001570

032514
000000
000000
000000

1112
032534
000000
000000
000000

}‘;

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT

EMT4
0
0
0

;ERROR
001602
001604
001606
001610

3
EMT3
0
0
0

;ERROR
001572
001574
001576
001600

THE
THE
THE
THE

EMT2

001554 040370

TO
TO
TO
TO

EMT1
EHT1
EDT1
EFT1

:ERROR
001552

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

032556
040374
040504
040540

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

EMTS
EHTS
EDTS
EFTS

;ERROR

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

CZRMQBO RMOS5/3/2 DSKLS TST 2

FRROR POINTER

001612
001614
001616
001620

TABLE

MACRO V04.00

]

4=-APR=-81 01:29:56 PAGE 8~
SEQ 0034

032602
040374
040504
040540
JERROR

CANNOT WRITE/READ SHIFTING ONE BIT
OF DEVICE REGISTERS

;ERROR

APPEARS S~A~0

;ERROR

APPEARS S~-A-1

;ERROR

032624
040400
040504
040540

032646

032
00C000

032702
000000
000000
000000

032720

EMT13

;ERROR

EMT14

;ERROR

TO ALL BIT POSITIONS

(ZRMQBO RMQ5/3/2 DSKLS TST 2
ERROR POINTER TABLE

MACRO v04.00

&4=-APR=81

(01:29:56 PAGE

8-/

SEQ 0035

i
|

|
|

032754
000000
000000
000000
s ERROR

;ERROR

032772

EMT17

;ERROR
033026
040364
040500
040534

OPI

SET WITH SFACH TIMOUT DISABLED

OPI

SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET

EMT20
EHTI
EDTT
EFT1

;ERROR

21
EMT
EHT?

033050
040364
040500
040534

EDT1

EFTT
;ERROR

033072
040364
040500
040534

DTE SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED

EMT22
EHT1
EDT1
EFT1

s ERROR
033116
040364
040500
040534

DTE SET WITH SFCTOR PULSE,SECTOR COMPARE WAS RESET

EMT23
EHT]
EDTT
EFT1
;ERROR

DTE DID NOT SET WITH SECTOR PULSE,SECTOR (OMPARE wAS SET

CZRMQBO RMCS5/3/2 DSKLS TST 2

ERROR POINTER TABLE

001772
001774
001776
002000

MACRO v04.00

&-APR-81

01:29:56 PAGE 8~3

SEQ 0036

033142
040364
040500
040534

sERROR

DTE SET WITH SECTOR PULSE DURING FORMAT CHANGE

;ERROR

MBA CLR L

033166
040364
040500
040534
IS STUCK ACTIVE

033206

:ERROR

;ERROR

033260
040364

040534

;ERROR
033300

040500
040534

033314
040364
040500
040534

CANNOT CLEAR RMER1,DTE

PROM STROBE RESET EARLY

EMT32
EHTI]
EDT1
EFTY
;ERROR

033326

CANNOT SET PROM STROBE WITH BIT CLOCK

EMT31
EHT1
EDT]
EFT1
;ERROR

002062

EMT30
EHT]
EDT1
EFT

040500

002052
002054
002056
002060

COULD NOT SET DTE AFTER FORMAT CHANGE

EMT27
EHT]
EDT1
EFT1

033240
040364
040500
040534

002650

33
EMT33

PROM STROBE

SET EARLY

CZRMQBO RMOS5/3/2 DSKLS TST 2
ERROR POINTER TABLE

002064
002066
002070

MACRO V04.00

4&-APR=81 01:29:56 PAGE 8~4

SEQ 0037

040364
040500
040534

sERROR

LOOKING FOR SYNC SET EARLY

:ERROR

LOOKING FOR SYNC DID NOT SET

:ERROR

PROM STROBE

;ERROR

SYNC DETECTED WITH WRONG PATTERN

;ERROR

SYNC NOT DETECTED

033340
040364

040500
040534

033352
040364
040500
040534
SET WHILE LOOKING FOR SYNC

033364

040500
040534

033404
040440
040524
040552

033434
040364
040500
040534

EDT1
EFT1

;ERROR
033456

DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC

EMT41
EHT]
EDT1
EFT1

040500
040534
;ERROR

033504
040364

EMT42
EHT1

WRITE GATE DID NOT COME ON OR RESET EARLY

CZRMQBO RMOS5/3/2 DSKLS TST 2
ERROR POINTER TABLE

002156
002160

MACRO V04.00

040500
040534

104

}82
033522
000000
000G00
000000

107

]'83
033522
040400
040504
040540

110
]']'12

033554
040364
040500
040534

113

:Hl;

033570
040364
040500
040534

116

‘Hg
033604
040404
040506
040534

119
%5(1)

033622
040364
040500
040534

122

}5{
033640
040364
040500

INCORRECT SYNC PATTERN DURING HEADER

HEADER AREA DID NOT COME ON OR RESET EARLY

CRC ENABLE DID NOT SET

INCORRECT HEADER GENERATED DURING WRITE

READ GATE

INCORRECT DURING HEADER AREA

EMTS0
EHTI
EDT1
EFT1

;ERROR
002242
002244
002246

EMT47
EHT47
EDT47
EFT1
;ERROR

002232
002234
002236
002240

INCORRECT SYNC PATTERN DURING HEADER

EMT46
EHT1
EDT1
EFT1

;ERROR
002222
002224
002226
002230

EMT4S
EHT1
EDT1
EFT

;ERROR
002212
002214
002216
002220

SEQ 0038

EMT43
EHT7
EDTS
EFTS
;ERROR

002202
002204
002206
002210

EMT43
0
0
0

sERROR
002172
002174
002176
002200

01:29:56 PAGE 8<-5

EDTI
EFTT

;ERROR
002162
0C2164
002166
002170

&-APR-81

51
EMT51
EHTI]
EDTI

UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE
<

{

CZRMQBO RMOS5/3/2 DSKLS TST 2

ERROR POINTER TABLE

002250

MACRO V04.00

040534

4&-APR=-81 01:29:56 PAGE 8«6

SEQ 0039

EFT

;ERROR

INCORRECT HEADER READ [N DJAGNOSTIC MODE

;ERROR

INCORRECT TAG BUS DURING DATA COMMAND

;ERROR

DATA TIMING SEQUENCER CONTROLS INCORRECT DURING DATA COMMAND

;ERROR

DATA AREA DID NOT COME ON OR RESET EARLY

033654

040410

040510
040542

040242
040364

040500

040534

033706
040364
040500
040534

033724
040364
040500
040534

EFT1
;ERROR

033742
040364
040500
040534

ECC ENABLE DID NOT SET

EMTS56
EHT1
EDT1
EFT1
;ERROR

033756
040414
040512
040542

DEVICE IS NOT AN RM05/3/2

EMT57
EHTS57
EDT57
EFT57

:ERROR
033772
040364
040500
040534

EMT60
EHT]
EDT1
EFT1

UEVICE AVAILABLE

IS NOT SET

147

;ERROR

148

034006
040420
040514
040542

034024

;ERROR
034042
040354
040500
040534

161
162
163

034054
040364
040500
040534

65
EMTE5
EHTT

040500
040534

EDT1
EFTT
:ERROR

164

165
166

034070

034102

66
EMT66
0
0
0

;ERROR 67
002422
002424
002426
002430

UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE

EMT64
EHT1
EDT1
EFT1
;ERROR

002412
002414
002416
002420

DATA AREA DID NOT RESET

EHT]
EDT1
EFT1

002402
002404
002406
002410

CANNOT CLEAR PROM STROBE WITH BIT CLOCK

EMT63

;ERROR

62
EMT62
EHT1
EDT1
EFTT

040500
040534

158
159

INCORRECT ECC PATTERN GENERATED DURING WRITE

EMT61
EHTH
EDT61
EFTS?

:ERROR

002372
002374
002376
002400

EMT67
0
0
0

INCORRECT DATA TRANSFERRED TO MEMORY

(ZRMQBO RMOS5/3/2 DSKLS TST 2

ERROR POINTER

TABLE

167

168
169

&4=APR=-81 01:29:56 PAGE 8-8

SEQ 0041

;ERROR 70

002432
002434
002436

002440

034134
000000
000000

EMT70
o)
0

000000

170

171
172

MACRO Vv04.00

JERROR 71

002442
002444
002446
002450

034154
000000
000000
000000

EMT?1
0
0

173

174
175

JERROR 72

€02452
002454
002456
002460

(034200
000000
000000
000000

176

177
178

EMT72
0
0
0
;ERROR 73

002462

002464
002466
002470

034224

000000
000000
000000

EMT73

0
0
0

179
}g?

:ERROR 74

002472
202474
002476
002500

034244
000000
000000
000000

182
‘: 3‘3

;ERROR 75

002502
002504
002506
002510
185
186
187

EMT74
0
0
0

034254
000000
000000
000000

EMT75
0
0
0
;ERROR 76

002512
002514
002516
002520

(34266
000000
000000
000000

EMT76
0
0
0

CZRMQBO RMOS5/3/2 DSKLS TST 2

ERROR POINTER TABLE

002522
002524
002526
002530

D &
01:29:56 PAGE 8-9
SEQ 0047

002532
002534
002536
002540

EMT?77

034302
000000
000000
000000

191
192

193

4-APR-81

JERROR 77

189

190

MACRO v04.00

;ERROR

CANT SET VOLUME VALID

;ERROR

RUN AND GO WONT SET

036110
040524
040552

040222
040500

040534

;ERROR
034356
040364
040500
040534

102

SEARCH ENABLE WONT SET

EMT102
EHTI
EDT1
EFT?
;ERROR

036154
040464
040524
040552

103

OCCUPIED IS INCORRECT FOR FUNCTION CODE

EMT173

EHT150
EDT115
EFT115
;ERROR

104

READ IN PRESET DIDNT (LEAR RMDA, RMDC OR RMOF

EMT174
0

036176

0
0
;ERROR

105

036224

EMT175

040500
040534

EFT1

READ

IN PRESET DIDNT CLEAR RMOF

READ

IN PRESET DIDNT

EHT]
EDT1

:ERROR

106

CLEAR RMDA

040346

—

—d
—

READ

IN PRESET DIDNT

(LEAR RMD(

MT1302

040500
040534
;ERROR

036260
040364
040500
040534

107
mmmm

002622
002624
002626
602630

— e

:ERROR

&
E
01:29:56 PAGE 8-10
SEQ 0043

036242
040364
040500
040534

4=-APR-B81

mmmm

002612
002614
002616
002620

[aVTaN 1N

MACRO v04.00

)

CZRMQBO RM(S/3/2 DSKLS T1ST 2
ERROR POINTER TABLE

HT1
D11
FT1

110

CANT SET OFFSET MODE BY OFFSET (OMMAND

EMT200
EHTT
EDTI
EFT1
sPUT ERROR TABLE HERE

ERROR PQINTER

TABLE

MACRO Vv04.00

4&-APR-81

F
4
01:29:56 PAGE 9

SEQ 0044
:THIS ROUTINE HANDLES UNEXPECTED

002642
002644
002646
002650
002654

002714
002714
002716
002720

011600
005740
022626
104401

000417

BADTMO: MOV
ST
CMP
TYPE

002656

éigss

010046

104402

000240

012737
000402

177777

005037
000240
005227
001375
000005

0C1330

001330

013746
012737
012737

012737
022777
001012
003146

000403

648

?ggoc

RO, =(SP)

LASCIZ

000000

THE

TIME OUT OCCURED

*RESTORE STACK POINTER
::TYPE ASCIZ STRING

‘:GET OVER THE ASCIZ

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

;SETUP FOR TYPING OUT PC
;PUT "HALT(0)' INSTRUCTION HERE
“TO STOP ON UNEXPECTED TIMEOUT.

YOU WISH

START OF PROGRAM
#=1,CHGADR
START?

;CHANGE RH/RM BUS ADDRESS

START:
(LR
START2: NOP

CHGADR

:NO CHANGE

;TTY LOOP, WAIT FOR INCREMENT

INC

BNE

RESET

INITIALIZE

IN ADDRESS

:0F WORD

*RESET THE WORLD

THE COMMON TAGS

;;CLEAR THE COMMON TAGS (SCMTAG) AREA

001114

MOV

#SCMTAG,R6

.~6

#$SCOPE ,a#10TVEC ; ;10T VECTOR FOR SCOPE ROUTINE

MOV

#STRAP,@#TRAPVEC :; TRAP VECTOR FOR TRAP CALLS

CLR
cMP

001154
001100

(R6)+
#SWR,R6

#STACK ,SP
soINITIALIZE A FEW VECTORS

025222

012737
012737
012737
012737
013737

005037
005037
112737
012737
012737

B8R

sSAVE PC WHERE
*ADJUST PC =2

START1: MOV
BR

.SBTTL

012737
012737
012737
012737

(SP)+,(SP)+
658

NOP

.SBTTL

012706
005026
022706
001374
012706

(SP) ,RO
-(RO}

TIMEOUTS

833 3%

NS
NN —

CZRMQBO RMQS5/3/2 DSKLS ST 2

NNNB-—G-—O-‘-J-.—A-:.._._.
WN=OVONIWNSWN =0V

MOV
MOV

J2SETUP THE STACK POINTER

#3640, 3810TVEC+2 ;;LEVEL 7

#SERROR,SEMTVEC : ;EMT VECTOR FOR ERROR ROUTINE
#3460, aNEMTVEC+2 ;:LEVEL 7
csaoiarrnAPVECoz:LévtL 7

SPWRVEC ; ;POWER FAILURE VECTOR

#340, I4PWURVEC+2 ;:LEVEL 7

CLR

STIMES

CLR
MOVB
MOV

;:81 ZE

;:L00P BACK IF NO

MOV

001131
001122
001124

;;FIRST LOCATION TO BE CLEARED

;;CLEAR MEMORY LOCATION
;s ;DONE?

SENDCT,SEOPCT

- :SETUP END-OF -PROGRAM COUNTER

$ESCAPE
#1,SERMAX
#..SLPADR

s:ALLOW ONE ERROR PER TEST
s:INITIALIZE THE LOOP ADDRESS FOR SCOPE

S:INITIALIZE NUMBER OF ITERATIONS

*:CLEAR THE ESCAPE ON ERROR ADDRESS

MOV
#. ,SLPERR
2:SE TUP ;HE ERROR LOOP ADDRESS
FOR A MARDWARE SWITCH REGISTER. 1I NOT FOUND OR IT IS

;;EQUAL TO A "'=1"", SETUP FOR A SOF TWARE SWITCH REGISTER.

000004
201154

001156
176010

MOV
MOV
MOV
MOV
(MP

@WERRVEC ,~(SP)
#64S ANERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,35WR

66%

;2 TRY TO REFERENCE HARDWARE SWwR
s sBRANCH IF NO TIMEOQUT TRAP OCCURRED

65%

; ;BRANCH IF NO TIMEOUT

BNE

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
J:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY
REGISTER
ssAND

THE HARDWARE

SWR

IS NOT

= =1

“JRMQBO RM0OS5/3/2 DSKLS TST 2
INITIALIZE THE COMMON TAGS

MACRO v04.00

012776
000002
012737
012737
012637

003176
003202
003210
003212
003220

005037
132737
001403
012737

001230
000200

001243

001244

25 003220
¢6 003226

012737
012737

002642
000300

003156

005227
001034
022737
001430
104401
000425

:?}(

#65%, (SP)

65%:

668:

MOV
MOV

MOV

#SWRE G, SWR
;:POINT TO SOF TWARE SWR
#D]1SPREG,DISPLAY

(SP)+,a#ERRVEC

;:;RESTORE ERROR VECTOR

001154

CLR
BITB
BEQ
MOV

$PASS
WAPTSIZE,$ENVM
67%
#$5WRE G, SWR

::CLEAR PASS COUNT
;:TEST USER SIZE UNDER APT
1:YES,USE NON=APT SWITCH
::NO,USE APT SWITCH REGISTER

000004
000006

:SETUP "'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC
;SETUP FOR UNEXPECTED TIMEOUT
MOV
#PR6,ERRVEC+2
;LEVEL 6

001154
001156

29
30
31
32
33 003372
34 C03376
35 003404
36 003406
37 003414
38 003422
39 003424
40 003430
41 003434

42 003436
003442

43 003470
44 003472

45 003476
46 003500

005737
001012
123727
001406
023727
001005
104407
000403
112737

TYPE PROGRAM NAME

BNE
CMP

000042

003260

gge?‘=

003332

003332
003336
003340
003346
003350
003356
003360
003362
003364
003372

.SBTTL

000042

001242

000001

001154

000176

68%
#SENDAD , a4 2

001150

68%
,69%

LASCIZ

<CRLF>aCZRMQBO - RM05/3/2 DISKLESS TEST, PT 2a<(RLF>

B8R

“:GET OVER THE ASCIZ

:;ARE WE RUNNING UNDER XXDP/ACT?

708
SENV.#1

;BRANCH IF YES
:;ARE WE RUNNING UNDER APT?

MP
BNE

SWR ,#SWREG
71%

2:SOFTWARE SWITCH REG SELECTED?
;2BRANCH IF NO

Move

#1,3AUTOB

;:SET AUTO-MODE INDICAIOR

BEQ

71%:

688

;sBRANCH IF YES
;3TYPE ASCIZ STRING

GET VALUE FOR SOFTWARE SWITCH REGISTER
BNE
(MPB

70%:

;JBRANCH IF NO
J:ACT=112

BEQ
TYPE

70%

&TSW

000001

JiSET UP FOR TRAP RETLRN

s:TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
=1
;sFIRST TIME?

177777

021530

9=1

64%:

.SBTTL

003234
003240
003242
003250
003252
003256

01:29:56 PAGE

SEQ 0045

003150
003154
003156
003164
003172

000176
000174
000004

4=-APR-81

718

;JBRANCH IF YES

;2GET SOFT=SWR SETTINGS

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:
;PAPER

005037
122737
001160
013737
122737
103002
105037
005737
001425

104401
000412

005046

113716

104403
001

001332
000016

000041

000040
000007

001332
001332

001332

000042

003444

(MANUAL),

1%:

ACT'1,

XXDP CHAIN OR DUMP

CLR
CMPB

XXDP
#16,a041

;CLEAR "XXDP® LOAD DEVICE STORAGE
;LOADED FROM AN RM05/3/2 ?

MOV
CMPB
BHIS

a#60, XXDP
47 ,XXDP
1%

SGET DEVICE INDICATOR AND NUMBER
SIS IT A VALID NUMBER 2
SYES

BNE

55;3;:
001332

TAPE

CLRB
IST

XXDP
ans?

TYPE

73$

8EQ

728

;BRANCH IF NOT

*NO, DEFAULT TO DRIVE 0
sCHAIN MODE OR ACT11 AUTO ACCEPT

‘BR IF NEITHER

::TYPE ASCIZ STRING

“:GET OVER THE ASCIZ

LASCIZ

<CRLF>/NOT TESTING DRIVE /

CLR

-(SP)

MOvVB

TYPOS

BYTE

XXDP, (SP)
1

;CLEAR WORD ON STACK

sGET DRIVE ADDRESS

;1 YPE

THE

JONLY 1

ADDRESS

(HARACTER

CZRMQBO RMOS/3/2 DSKLS IST 2
MACRO v04.00
GET VALUE FOR SOF TwARE SWIT(H REGISTER

47 003501

48 003502
49 003506

003510

52 003514
53 003516
003522
003544

54 003544

55 003546
S6 003552
57 003554
58 003555
59 003556
003562

003646
60 C03646
003652
64

o017

005227
001114

1727777

000517

104401

000410
005046

113716
104403

BYTE

TYPE
BR

3%:

003524
b
Her

74%:
001332

000431
104401

000435

003554
22778

76%:

0C3654

22788

70
71 003766
72 003766
73 003774
74
75 003776
76 004000
77 004004
78
79 004010

80 004016
81 004020
82 004024
004026

004030
004031
83 004032
84
85 004036
86 004044
87 004050
88 004054
89 004062
90 004064
004072
004074
004102
004106

001326
001150

000377

001300

H
4
(1:29:56 PAGE 9=/

;FIRST

5%
75%

748

-(SP)
XXDP, (SP)

BYTE
.BYTE

BR
LASCIZ

.ASCI1Z

‘GET NUMBER OF DRIVES

#=1

CLR
MOvB

TYPE

“CR=LF

§s

<CRLF>/T0

supasss LEADING ZEROS

$CRLF

JASCIZ

TYPE

§%:
05037
105737
001561
012737

TYPOS

001

000
104401

INC
BNE

TYPE

003746

65 003746
66 003752
67 003756
68 003760
69

91
92
93
94

000

10440

4=APR=-81

TEST

THRU HERE

77%
HALT PROGRAM,

78%

JGET ovea THE ASCIZ

DRIVE
/

763

TIME

“ND
;i TYPE ASCIZ STRING

;CLEAR WORD ON STACK
:GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS
SONLY 1 CHARACTER

:SUPRESS LEADING ZEROS

::TYPE ASCIZ STRING

“:GET OVER THE ASCIZ
REMOVE

RRDP PACK AND REPLACE

IT/<CRLF>

J2TYPE ASCIZ STRING

“:GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART PROGRAM./<(RLf>

;(HECK FOR AUTO MODE OR STANDALONE
CLR
AUTSIZ
sLET AUTO DRIVE SIZING OCCUR
1STB
$AUTOB
sRUNNING IN AUTO MODE ?
BEQ
STANDAL ONE
:BR _IF NO
#377 ,SDEVM
MOV
sSET DEVICE MAP FOR ALL DRIVES

:PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED

132737
001146

000200

005007
013700
104401

001276
032166

136137

032450

001531
104401
010146

001243

012760
010160
005760
032760
001051
032760
001450
012737
016002
022702

BITB
BNE

#8117, SENVM
12%

CLR
MOV

;START FROM DRIVE 0

BITB

BEQ

ATNTBL(R1) ,$DEVM
;1S DEVICE PRESENT IN MAP 2
118
:BR IF NO

MOV

R1,=(SP)

LSCRLF

‘CR-LF

BYTE

TYPE

2
0
LBLNKS4

::G0 TYPE=-=OCTAL ASCII
S:TYPE 2 DIGIT(S)
: :SUPPRESS LEADING ZEROS
:TYPE 4 BLANKS

TYPE

001300

001217

1%:

TYPE

104403

002
000
104401

xS12

TYPOS

032342

$BASE ,RO
LSYSTAT

000040
000010
000012
010000

000010

MOV
MOV

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

000010

004000

000000

#DVA,RMCST(RO)

032204
000026
020025

004300

BIT
SNE
BIT
BEQ
Mov

TST

MOV

(mP

RMDS (RO)
#NED ,RMCS2(RO)

#SRMO2, 108

RMDT (RO) ,R2
#20025,R?

;SI1ZING ALLOWED ?

:LOAD THE BASE ADDRESS
STYPE 'UNIT STATUS:'

*;SAVE R1 FOR TYPEOUT

:CLEAR MASS BUS
:LOAD THE DRIVE ADDRESS
*ACCESS DRIVE REGISTER
:IS DRIVE PRESENT ?

:BR IF NO

:1S DRIVE AVAILABLE

‘BR IF NO

*ASSUME RMO2 DEVICE

*SAVE DRIVE TYPE REGISTER IN R2
*SINGLE PORT RMO2 ?

—

8 RONNERSFNRLERANNES
N
sSOH

NON) —

N
o

3
Wy

o o

Ny VHVE

ek A o ol

D o

NP A

B o o

e o

ol o o

o o

d i

SO BRIEARAN2S
LR O

? sezssssssananzan §

CZRMQBC RMQS/3/2 DSKLS IST 2
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

122
123 004236
126 004242
125
126 004244
127 004250
128 004252
129 C04256
130 004260
131 004264

132

5
151
7
Fn oF% 8

SRR AR

133 004266
134 004272
135 004276

001430
022702
001425
012737
022702
001417
022702
001414
012737
022702
001406
022702
001403
104401

000443
032760
001415
000417
104401

000402
104401

005737
001026

004300

(MP

024024
032216
020027

004300

024027
032223
010000

000012

2%:

032261

3%:

03227¢
001326

4%:
5%:

146137
000422

032450

104401

032315

A$:

001332

7%:

000413

005737
001406

123701
001360
104401

000755
104401
104401
104401

001332

032326
032344

104401

000137

000007

001217
005004

JBR IF YES
DUAL PORT RMOZ2 ?

#$RMO3, 108

ASSU'IE RMO3 DEVICE

TYPE

TYPE
TST

BNE
BI(B
BR

YES

:SINGLE PORT anos

B8R

BR IF

#20024.R?2

#MOL ,RMDS(RO)

BEQ

‘BR IF YES

#264024 ,R2

‘DUAL PORT RMO3 ?

#SRMOS, 108

:ASSUME RMOS DEVI c

28
824027 ,R2
2

‘BR IF YES
:DUAL PORT RMOS ?
‘BR [F YES

i1s

*CHECK NEXT DRIVE

‘BR IF YES

#20027.R2

“SINGLE PORT RMOS

NOTRM

:DRIVE NOT AN RM05/3/2

;IS MEDIUM ON LINE

:BR IF NO

NOTPRS

:DRIVE NOT PRESENT

§s

:CHECK NEXT DRIVE

LNOTAVL

:DRIVE NOT AVAILABLE

AUTSIZ
1%

ATNTBL (R1) , SDEVM

;AUTO SIZING ON ?
:BR IF NO

:CLEAR DEVICE FROM BIT MAP

118

;CHECK NEXT DRIVE

LUNTOFF
98

:DRIVE OFFLINE
:PRINT DRIVE TYPE

TST

g;mp

.LOADED FROM RM80 2

XXDP,R1
5%
ggoofv

:s THIS THE DRIVE ?
*BR IF NO
;DRIVE IS LOAD DEVICE

LUNTON
LBLNKS2

;DRIVE ONi INE
:TYPE 2 BLANKS

TYPE

BEQ

8%:
9%:

10%:

. WORD

11%:

INC

BLE

12%:

9=3

#26025,R2

BEQ
(MP
BEQ
MOV
CMP
BEQ
(MP
BEQ
TYPE
BR
BIT

032244

000000

005201
020127
003637

001300

01:29:56 PAGE

SEQ 0047

BEQ
(MP
BEQ
MOV

024025

032211
020024

4-APR-81

TYPE
JMP

:PRINT DRIVE TYPE

:MESSAGE ADDRESS HERE
; INCREMENT THE DRIVE ADDRESS

R1,47

:ALL DRIVES ARE CHECKED 2

LSCRLF

:CR=LF

CMNSTART

*BRANCH IF NOT

SJUMP TO COMMON START

CZRMQBO RMOS/3/2 DSKLS

STANDALONE

INPUT

TST 2

ROUTINES

MACRO v04.00

LSBTTL

3 004322
gooaszz

004737

027422

6 006326

005227

1772777

gooassz 001023

INC

BNE
JSEE

004334

104401

031556

104411

14 004346

123727

001176

104401
104401

001176
054636

104401

032336

13 004342 012637 001176
15 004354

001005

18 004366

000414

20 004374

104401

16 004356
17 004362

19 004370

gg 004400 000407

000131

001217

005037
104401

001330

#-1

;FIRST TIME

(SP)+,$TMP1

CMPB

STMP1.#'Y

TYPE
TYPE

,$TMP1
HELP

TYPE

$CRLF

TYPE

‘BR IF NO

THRU HERE

;WANT HELP ?

*GET RESPONSE

*SAVE AND ECHO RESPONSE

‘WAS IT A YES RESPONSE

‘NO

“TYPE 'y’
‘YES = TYPE WELP TEXT

STYPE

SCR=LF

'N'

ST
BEQ

CHGADR
7$

CHGADR
+SCRLF

;CHANGE RH/RM BUS ADDRESS ?
*BR IF NO

*NO CHANGE NEXT TIME
sCR=LF

égmocue TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY

32 004420

104401

031607

34, 004432

1064401

032344

TYPE

,CNSLOY

;TYPE CURRENT BUS ADDRESS

33 004424 013746 001276
004430 104402

MOV
TYPOC

$BASE , ~(SP)

35 004436 104413
36 004440 012637 001176
37 004444 001412

RDOCT
MOV
BEQ

(SP)+,$TMP1
58

*GET NEW BUS ADDRESS
*CARRIAGE RETURN ?
SYES=SKIP TO NEXT ENTRY

CNSLO2
s

STYPE WARNING MESSAGE
*TRY AGAIN

38 004446
39 004456

022737
101403

40 004456
41 004462

160000

TYPE

001176

031617

2.% 006464

104401
000756

013737 001176 001276

4$:

44 006472
45 004476
46 004500
47 004504
48 004506
49 004512

104401
005046
113716
104402
104401
104413

031661

5%:

51 004520

001412

S0 004514

001272

032344

012637 001176

,BLNKS2

MOV

$TMP1,SBASE

*STORE NEW BUS ADDRESS

TYPE
CLR
MOVB
TYPOC
TYPE
RDOCT

,CNSLO3
Z(SP)
SVECT1,(SP)

:GET CURRENT VECTOR ADDRESS

BEQ

SYES=SKIP TO NEXT ENTRY

CNSL 04

*TYPE WARNING MESSAGE

TYPE
BR

MOV

,BLNKS2

(SP)+,$TMP1

#1000, $TMP1
68

55 004536

§s

56 006540

104401

031670

113737

001176

001272

TYPE

€$:

*TYPE 2 BLANKS

#160000,8TMP1
4%

CMP
BHI

000755

:;SAVE SBASE FOR TYPEOUT
2:G0 TYPE=~OCTAL ASCII(ALL DIGITS)

MP
BLOS

52 004522 022737 001000 001176
53 004530 101003
54 004532

IF USER WANTS TO CHANGE UNIBUS ADDRESS

TYPE

?1) R

;INITIALIZE CONSOLE

MOV

CLR

001217

PC,STKINT

,MSHELP

B8R
:SEE
2%:

INPUT ROUTINES

TYPE

BNE
1$:

25 004402 005737 001330
26 004406 001457
27 004410

4
10

IF OPERATOR WANTS HELP TEXT

RDCHR

23
26 004402

Sg 004414

STANDALONE

S TANDAL
ONE :
JSR

12 004340

J
01:29:56 PAGE

SEQ 0048

4-APR-81

MOVB

$TMP1,$VECT1

:BASE ADDRESS IN 1/0 PAGE ?
YES

:TYPE 2 BLANKS
*GET NEW VECTOR ADDRESS

*CARRIAGE RETURN?

*VECTOR ADDRESS < 1000 ?
YYES!!
*RETRY

:STORE NEW VECTOR ADDRESS

CZRMQBO RMOS5/3/2 DSKLS TST 2
STANDALONE INPUT ROUTINES

57
58
59 004546
60 004552
61 004554
62 004560
63 004564
64 004570
65 004574
66 004576
67 004602
o8 004610
69 004612

70 004616
71 004624
72
73 004630
74 004636
75 004640
76 C04644
77 004652
78 004654
79 004662

004664

005227
001002

104401
104401
005037
104401
104411

DIALOGUE

1727777

031724
001217
001300
032144

8$:

001176
001176

000101

012737
000137

104401

031542
000377
003766

001300

023727

001176

104401

001176
0C1176

000060

001176

000067

001436

023727
002430
023727
003427
000423
104411

104401
104401

023727

002404
023727
003403

001176
001176

000015
:

10%:

11$:

000015

031553
001176
001176

000060

001176

000067

013701
042701
156137

001176

13$:

005237

001326
001217
003766

104401

000137

032450
000377

#=1

TYPE
TYPE

,CNSLO7
$CRLF

BNE

001300
001300

“BR IF NO

CLR

$DEVM

*CLEAR DEVICE MAP

CMP
BNE
TYPE
MOV
JMP

STMPT. #'A
108
5
#377,$DEVM
XS12

*IS INPUT A" 2
:NO
:YES, TYPE "'ALL'’' AND GO
“SET DEVICE MAP FOR ALL DRIVES
*AUTO SIZE.

CMP
BEQ

$TMP1,#CR
12%

; CARRIAGE RETURN ?
YES

TYPE
RDCHR
MOV

,MSDRVS

(SP)+,$TMP

*TYPE INPUT INSTRUCTIONS
‘CR=LF
*TYPE

'DRIVE(S):

$TMP1
irm #'0

*ECHO RESPONSE
“NUMBER < 0 7

CMP
BLE
B8R

STMP1 47
133
12%

Mmen >772

RDCHR

128

MOV
cMP
BEQ

(SP)+,$TMP1
$TMP1 . #CR
148

cMP

itm 40

P
BLE
TYPE
BR

STMPY1 #'7
138
CNSLO8
os

MOV

1u.ew. INPUT
;GET RESPONSE
:CARRIAGE RETURN ?
SYES

JTYPE *, °
:ECHO RESPONSE

12%

;YES

srm R1

#°C7.R1

INC
TYPE

AUTSIZ
,SCRLF

JMP

*YES

.COMMA
.$TMPI

BIC

°*

;GET RESPONSE

TYPE
CMP

BISB
gms
148:

JFIRST TIME THRU ?

BLT

128:

122737
101337

TO INPUT DEVICE NUMBERS

TYPE
TYPE

032066

177770

K
4
01:29:56 PAGE 10~1

INC

BLT

104401

000711

&-APR-81

SEQ 0049

012637

023727
001007

012637
023727
001432

100 004770
101 004774
102 0065000

MACRO Vv04.00

SNUMBER < 0 ?

SNUMBER > 7 ?
N0

:TYPE ** 2ILLEGAL INPUT"

SRETRY

= DRIVE NUMBER

AINTBL(R1),SDEVM
;SET DEVICE IN MAP
l377 $DEVM’
.zgue ?
XS12

DO NOT AUTO SIZE WHEN TYPING DRIVE STATUS
SCR=-LF

:GO SIZE DEVICES

CZRMQBO RMOS5/3/2 DSKLS TST 2

STANDALONE

INPUT ROUTINES

MACRO V04.00

:ASSEMBLE

104401

& 005010 013700
S 005014 001004

6 005016
7 005022

104401

8 005026

012701

11 005042
12 005044

005003
030200

13 005046

001413
104401

15 005054 010311
16 005056 010346

005060

104403

17 005064

116361

005062
005063

001
000

18 005072 062701
19 005076 006302

20 005100

105702

22 005104

005203

24 005110
52 005112

005011
104401

031553

TYPE

.conm

MOV

#TSTQUE +2,R1

CLR
BIT

ngRO

TYPE

.COMMA

001300
032137

001470

1$:

28:
031553

000002

000001

38:

001217

28 005116 004737 021550
29 005122 000425
104401

005130 000413

005160

::658:

005737 000042
001002
000137 002732
000137 021520
000413

37 005200
38 005202

000240
105737

215. 005226
46 005226

004737

027422

49 005242
005246

012746
012746

005252

002732
021520
001116

005037
000002

READY:

001206

000000
005254

TESTED’

:TYPE

R1,TSTOUE
n ‘R2

mxmuze ENTRY POINTER
= DEVICE POINTER

MOV
MOV
BEQ

‘RO = DEVICE MAP
‘BR IF DRIVES ro TEST
*

*NONE*

R1 = ADDRESS OF FIRST ENTRY IN OUE

= DEVICE NUMBER
xs mxs DEVICE IN MAP ?

*NO
!

STYPE ¢,

MOV
MOV

R3, (R1)
R3.~(SP)

SYES = ENTER DEVICE NUMBER IN OUE
*:SAVE R3 FOR TYPEOUT

BYTE
BYTE

1
0

::TYPE1 DIGIT(S)
: SUPPRESS LEADING ZEROS

;160 ms-ocm ASCII

MOVB

ATNTBL(R3),1(R1):ENTER ATTENTION BIT IN OUE

ISTB

ADD
ASL

#2,R1
R

BEQ

B8R

CLR
TYPE

*ADVANCE ENTRY POINTER
;ADVANCE DEVICE POINTER
.oous ALL DEVICES
?

YES

.onmcs DEVICE NUMBER

(R1)
,SCRLF

*TERMINATE TEST QUE
STYPE CR-LF

*ENTER NEXT DEVICE

JSR
BR

PC.SI12CLK
63

;SEE IF CLOCK PRESENT
*YES - CLOCK IS PRESENT

B8R

648

ser OVER THE ASCIZ

ST
BNE
JMP
JMP
B8R

V7%,
58
START
$GET42
READY1

NOP
TSTB

$DEVM

.ASCIZ

,658

:;TYPE ASCIZ STRING

<CRLF>/NO ‘L' OR P’ CLOCK/

:ANY MONITOR PRESENT ?
:BR IF YES
$JUMP TO START
*RETURN CONTROL TO MONITOR
;READY TO START TEST
SANY DRIVES IN MAP ?

BNE
ST
BNE
JMP
JMP

2s
EY7¥,
1%
START
$GET42

‘BR IF YES
*ANY MONITOR PRESENT ?
‘BR IF YES
SJUMP TO START
*RETURN CONTROL TO MONITOR

READY1: CLRB

$TSTNM

;RESET TEST NUMBER

PC,$TKINT

*INITIALIZE TTY

000042

105037

47 005232

48 005236

001300

5%:
68:

“TYPE

TO BE

.NONE

TYPE

648:

'DRIVE(S)

TYPE

:SIZE FOR CLOCK

005132

31 005160
32 005164
33 005166
3% 005172
g(s’ 005176

39 005206 001007
40 005210 005737
41 005214 001002
42 005216 000137
43 005222 000137

48:

;TYPE

iosvn RO

INC

23 005106 000756

DRIVES

MOV
BNE

TYPOS

032450

FROM DEVICE MAP

tMNSTART:
TYPE

21 005102 001402

30 005124

TEST QUE

032110

9 005032 010137 001466
10 005036 012702 000001
14 005050

01:29:56 PAGE

SEQ 0050

2 005004
3 0050064

4-APR-81

1$:

28:

CLR

JSR

MOV
MOV
RT]

STIMES

#PRO, - (SP)
#64$.~ (SP)

YINITIALIZE NUMBER OF ITERATIONS

1:PUT NEW PS ON STACK
YIPUT NEW PC ON STACK
*:POP

NEW PC AND PS

| CZRMQBO RMOS/3/2 DSKLS TST 2
STANDALONE

INPUT ROUTINES

005254
50 005254

17737

174206

MACRC Vv04.00

&-APR=-81

M 4
01:29:56 PAGE 11-1

SEQ 0051

001234

64%:

MOVB

QTSTQUE,SUNIT

;LOAD DRIVE NUMBER

;CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK
‘OF THE DIFFERENT DRIVE TYPES
55 005262
56 005270
57 005274
58 005302
59 005310

60 005314
61 005320
62 005324
63 005326

64
65
66

012737
013700
012760

002000
001276
00004 0

016002

000026

117760

174160

001334
000010

MOV
MOV
MOV
MOVB
MOV
BIC
CMP
BNE
MOV

000010

177770
000007
011000

001334

#TAG,LSTRK
;ASSUME LAST TRACK FOR RMO2/3 = 4.
$BASE
, RO
:RO = UNIBUS ADDRESS
#CLR,RMCS2(RO) :CLEAR MASSBUS
@TSTQUE,RMCS2 (RO}
:SELECT DEVICE UNDER TEST
RMDT (RO),R2
;GET RMDT AND
#177770,R2
*SAVE onxvs TYPE BITS
#7.R2
YISIT AN RMOS?
33
mmsrsemmozonmos
#TA16!TA2,LSTRK :YES==SET LAST TRACK = 18.

;TYPE DRIVE NUMBER TO BE

67 005334
68 005340
69 005344
005350

005352
005353
70 005354

71 005356

72 005360

73 005362

74 005364

104401

013746
104403
002
000
005004

005304
001376
005304
001376

001217
032160
001234

38:

TYPE

TYPE
MOV
TYPOS

,SCALF

MSGDRV
$UNIT,-(SP)

BYTE
BYTE

2
O

BNE
DEC
BNE

(LR
DEC

TESTED(SUNIT)

R4
RG

=2
=2

:CR=LF

*TYPE 'DRIVE'
*2SAVE SUNIT FOR TYPEOQUT

::TYPE DRIVE NUMBER

::60 TYPE=-OCTAL ASCII

$:TYPE 2 DIGIT(S)
::SUPPRESS LEADING ZEROS
*THESE TWO LOOPS ARE ADDED TO
SWAIT FOR TTY

|
CZRMQBO RMO5/3/2 DSKLS TST 2

MACRO V04.00

N
&
4-APR-81 01:29:56 PAGE 12
SEQ 0052

.SBTTL

JREGISTER ASSIGNMENTS

‘RO
:R1

NI NN
N

b e

— —d —

‘R2,R3

‘R4 ,RS
‘Ré
:R7

UNIBUS ADDRESS OF RH CONTROLLER

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE

UNIT UNDER TEST
WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE
SAVED BY SUBROUTINES

GENERAL WORKING REGISTERS, ARE NOT SAVED BY

SUBROUT INES
STACK POINTER
LINKAGE REGISTER TO SUBROUTINES

s STORAGE ASSIGNMENTS

*$TMPO-STMP4

*$GDDAT, SBDDAT
*$GDADR . $BDADR

*$TSTN

JSUNIT
*RGINBF

*RGOTBF

TEMPORARY STORAGE
NOT SAVED BY SUBROUTINES
EXPECTED AND RREC EIVED STATUS FOR ERROR TYPEOUT
ADDRESS OF EXPECT ED AND RECEIVED STATUS IF APPLICABLE.
ALSO THE ADDRESS OF A REGISTER ERROR

TEST NUMBER

NUMBER OF DEVICE BEING TESTED

THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR

EACH REGISTER, AND IS USED WHEN READING STATUS AND

CONTROL DATA
THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR
EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE

WRITTEN IN REGISTE!}S

e R
LA

005366

871

005366 000004
005370

005372
205376
005402
4 005406
3005414

000240

012706
013700
013701
012737
012702

“

SCOPE

MOV
MOV
MOV
MOV
MOV

004737

022404

9 005432
10 C05440
11 005442
12 005446

032737
001417
111137
042737

010000

14 005462
15 005466

010037 001136
062737 000010

JSR

8 005424 016037 000010 001142

16 005474

1B
R

2222222322

2212%

;SCOPE CALL

#STACK , SP
$BASE , RO
TS7TQUE R
#1,$TESTN
#0,R2

;LOAD THE STACK POINTER
RO= UNIBUS ADDRESS
‘R1 = POINTER TO DEVICE
*2SET TEST NUMBER IN APT MAIL BOX
:R2 = REGISTER INDEX,

%m THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERRCR IS RESET

7 0056420

13 005456

NOP

001100
001276
001466
000001 001226
000000

2 MR

IRANSFER

052737

001140
177770

000100

104001

MOV

001142

PC,CNTCLR

RMCS2 (RO) , SBDDAT

001140

BIT
BEQ
MOVBE
BIC

001136

MOV
ADD

RO, $8DADR
msz savon

B8R

608

001140

8IS
EMT

;g 005476 000475
19

#1R,SGDDAT
1

*DOES NOT SET 'NED'* ERROR

21 005500

22 005500 010003
23 005502 060203
2% 005504 011304

208:

;STORE RMCS2 AT SBDDAT

#NED
, SBDDAT
208
(R1),$GDDAT
#*CUNTMSK,SGDDAT

:READ THE REGISTER WHOSE

;GO CLEAR CONTROLLER

INDEX IS IN R2 AND EXIT TEST IF

THE READ

MoV
ADD
MoV

RO.R3
R2.R3
(R$) R4

:READ REGISTER

B8EQ

708

*NO!!

28 005516 004737 022404
29 005522 016037 000010 001142

JSR
MOV

PC,CNTCLR
;GO CLEAR CONTROLLER
RMCS2(RO) , mow
:STORE RMCS2 AT SBUDAT

31 005536 001417

BEQ

25 005506

59 005514

032760

001470

010000

30 005530

032737

010000

32 005540
33 005544
3% 005552

111137
042737
052737

001140
177770
000100

35 005560 010037 001136

000010

BIT

001142

001140
001140

40
41

42 005576

012713

22 005610

001432

ANED, SBDDAT

MOVB
BIC
8ls

(R1),$GDDAT
#*CUNTMSK
, SGDDAT
#IR, SGDDAT

308

RO, $8DADR

ADD

#RMCS2, SBDADR

B8R

608

EMT

:1S 'NED'* SET??

JWRITE THE REGISTER WHOSE INDEX IS
*DOES NOT SET ‘NED'* ERROR

43 005576

44 005602

BIT

MOV

36 005564 062737 000010 001136
37 005572
104001
;g 005574 000436
:

meoJRMCS2(R0)

:R3= REGISTER ADDRESS

032760

000000

010000

%08:
000010

IN R2 AND EXIT

MOV

#0, (R3)

:WRITE REGISTER

BEQ

708

INO!!

BIT

#NED,RMCS2(R0)

:1S *NED'*

TEST

THE WRITE

SET??

;CCULD NOT READ OR WRITE THE REGISTER WITHOUT SETING "NED'® ERROR -

rZR"QBO RMOS5/3/2 DSK.S TST 2
TRANSFER TEST

MACRO Vv04.00 4-APR-81 01:29:56 PAGEC 1§-1

48
49

50 005612
51 005612

52 005616
§3 005622
54 005624
55 005630
56 005632
57 005636
58 005640
59 005644
60 005646
61 005652
62 005654
gz 005660

;ADVANCE THE REGISTER INDEX AND REPEAT
*AVAILABLE DEVICE REGISTER

062702

022702
001773
022702
001770
022702
001765
022702
001762
022702
001757
022702
103257

408
:

000002

000002
000004
000010
000016
000022
000046

CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP

BHIS

22 s

{80

67 005662 013737 001276 001136
68 005670

ADD

104002

‘;8 005672 000137 021274

108

;ADVANCE

TEST FOR THE NEXT

TO NEXT REGISTER

*1S THIS RMMWC??
‘YES ~ TRY NEXT REGISTER
*1S THIS RMBA??
‘YES - TRY NEXT REGISTER
11S THIS RMCS27?
SYES = TRY ANOTHER REGISTER
“1S THIS RMAS 77
*YES = TRY ANOTHER REGISTER
1S THIS RMDB??
*YES - TRY ANOTHER REGISTER
*1S THIS A LEGAL REGISTER
‘YES = TRY THIS REGISTER

MOV

$BASE,$BDADR

;STORE BASE ADDRESS

$EOSP

;GO SELECT NEXT DEVICE

EMT

708 :

#RMWC ,R2
40$
#RMBA ,R?
408
#RMCS2,R2
403
#RMAS ,R2
408
#RMDB , R2
408
#RME (2 ,R2

THE

*NONEXISTENT DEVICE' ERROR FOR EVERY REMOTE REGISTER ADDRESS

608:

g 005676

#2,R2

SEQ 0054

."....'.Q'."l..."'Q'"-".......Q....'.."!."'."".t...-"

TATEST 2

......'.'."....Q..."'."".'.'.'.....'..'..'....'..It..t.'t"t.

005676

T§12:

005676 000004
005700

000240

005712 013701

001466

012760 000076 000000
012760 177777 000006
012760 001777 000034
012760 016200 000032

8 005760 012702
85 005764
005764 016037
8 005772 016037
87 006000 016037
88 006006 016037
89 006014

005302

92
93 006020

042737

%0 006076

000001
000000
000006
000034
000032

MOV
JSR

#2,8TESTN
PC.CNTCLR

TSTQUE ,R1

;WRITE ONES IN REMOTE
MOV
MOV
MOV
MOV

;SCOPE CALL
:LOAD THE STACK POINTER
‘RO= UNIBUS ADDRESS

*R1= POINTER TO DEVICE

1:SET TEST NUMBER IN APT MAIL BOX
;G0 CLEAR CONTROLLER

REGISTERS

#ILF 6, RMCS1(RO)
:LOAD RMCS?
1.RMDA(RD)
:LOAD RMDA
tcvunsx RMDC (RO)
:LOAD RMDC
#~CXNUOF, RMOF (RO)
*LOAD RMOF

:READ REMOTE REGISTERS TWICE

001336
001344
001372
001370

100362
177701

#STACK, SP
$BASE , RO

MOV

,, 005716 01277 000002 001226
;g 005724 004737 022404
78 005730
79 005736
80 005744
g} 005752

SCOPE
MOV
MOV
NOP

005702 012706 001100
005706 013700 001276

CTOD TEST

001336

108:

MOV
MOV
MOV
MOV
MOV

#1.R2
RMCS1(RO) ,RMCS 1]
:STORE RMCS1 IN INPUT BUFFER
RMDA (RO) ,RMDAT ;STORE RMDA IN INPUT BUFFER
wcmo».mcx *STORE RMDC IN INPUT BUFFER
RMOF (RO) .RMOF I :STORE RMOF IN INPUT BUFFER

BPL

108

DEC

;SEE IF ANY ONE BITS CAME BACK
BIC

#ACILF76 ,RMCST]

;1S RMCSY 072

RMQBO RMOQS5/3/2 DSKLS TST

(TOD TEST

% 006026
95 006030

96 006034

97 006036

98 006044

99 006046

100 006054

101
102
103 006056
104 006060
105

001014

MACRO Vv04.00 4&~APR=-81 01:29:56 PAGED 1§-2
BNE

005737

001344

042737
001005
042737

176000

001372

161577

001370

001011

001001

208

SEQ 0055

JNO! !

TST

RMDA |

;1S RMDA 077

BIC

#XNUDC ,RMDC ]

1S RMDC 0?7

BNE

BNE
BIC
BNE

20%

20%
#XNUOF , RMOF |
20%

JNO!!

JNO!!
;1S RMOF 0 ??
JNO!!

s CANNOT 25?0/\&1;5 A ONE FROM ANY REMOTE REGISTER

104003

20%:

106

:;."...Q.'..."..'..'""".Q.....Q'."'.'."’.'.'..Q"'t.t.tt..

J*TEST 3

MASSBUS INITIALIZE TEST

1ST13:

000004
000240
012706
013700
013701
012737

0C1100
001276
001466
000003

004737

022404

012760
012760
012760

000076
177777

004737

022404

016037
016037
016037

000000
000014
000042

001336
001352

052737
052737
022737
001011
022737
001005
022737
001001

177701

001567
177777

001336
001400
007336

177777

001352

177777

001400

e
e
e

000014
000042

;SCOPE CALL

MOV
MOV

#STACK,SP
$BASE ,RO

MOV

#3,8TESTN

TSTOUE.M

:R1 = POINTER TO DEVICE

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS
J:SET TEST NUMBER IN APT MAIL BOX

sWRITE ONES IN SELECTED REGISTERS
MOV
#ILF76,RMCS1(RO)
:LOAD RM(CS1
MOV
#-1_,RMER1(RO)
;LOAD RMER1
MOV
#-1_,RMER2(RO)
;LOAD RMERZ2

:—l—.*-‘—ld—ldd-fld

NERRUAR
2B IRN

177777

'S‘SgPE

001226

)

WOV
W =O

::".'..'...'...'.'..'."""‘Q'.'."'..."..""'."'."Q'.'.".

006226
006230

104004

JINITIALIZE MASSBUS WITH A CLEAR

JSR

001400

PC,CNTCLR

;GO CLEAR CONTROLLER

sREAD THE REGISTERS THAT WERE WRITTEN
MOov
RMCS1(RO) ,RMCS11
MOV
RMER1(RO) ,RMER1]

MOV

RMER2(RO) ,RMER2]

;STORE RMCS1 IN INPUT BUFFER
sSTORE RMER1 IN INPUT BUFFER
;STORE RMERZ2 IN INPUT BUFFER

;SEE IF ANY REGISTER BITS WERE CLEARED

BIS
BIS

CMP
BNE
CMP
BNE
CMP
BNE

#*CILF76,RMCST] ;SET ANY BIT NOT WRITTEN
#XNUERZ2 ,RMER2 I

#-1,RMCS1]
108
#-1,RMER1!
108
#=-1,RMERZ]

108

JANY ZEROS IN RM(CS12??
1YES!!
:
;ANY ZEROS IN RMERI??
YRS
JANY ZEROS IN RMERZ2??

;NONE OF THE BITS WERE CLEARED
10%:

EMT

::'Q't.it"....'Q.."""'!"."'Q'Q'fi!.QQ‘.'."‘.!.'.t'..ttt'...

J*TEST 4

CLEAR STUCK ACTIVE TEST

:;t'tt.Q.lfi.'tt!.'t't"""..'.t‘i".!'fi"t.'t"l"l.‘l"'i"tltt

’ZRMQBO RMOS/3/2 DSKLS TST 2
MACRO v04.00
CLEAR STUCK ACTIVE TEST

006230
006230
006232
006234
006240
006244
- 006250

000004
000240
012706
013700
013701
012737

001100
001276
001466
000004

}28 006256

004737

022404

141
142 006262
143 006270

012760
012760

012760

177777
177777

000001

000014
000042

016037
016037
016037

0000'4
000042
000024

001352
001400
001362

;22 006276
146

147 006304
148 006312
149 006320

042737

040000

001352

152 006336
153 006344
154 006346

042737
001005
032737

040200

001400

000001

001362

155 006354
156 006356
137 006360

001011

C01001
104026

SCOPE
NOP
MOV
MOV
MOV

001226

IN TEST REGISTERS

001100
001276

- 006400

012737

000005

161 006406

005002

006374 013701 001466

;g% C06410

004737

022404

165 006414

012760

000076

}gg 006444

012760

177777

164

166 006422
167 006430
168 006436
171
172 006452

012760
012760
012760

173 006460

012760
012760

175 006474
176 006502
177 006510

012760
012760
012760

174 006466

012760

001226

177777
177777
177777

000006
000014
000032

000000
000000

000000
000006

000000

000000
000000
000000

000042

000014

000032
000034
000042

;LOAD RMER1

#DMD ,RMMR1(RO)

BNE

108

BNE
EMT

;LOAD RMMR1

;STORE RMER1T IN INPUT BUFFER
;STORE RMERZ IN INPUT BUFFER
;STORE RMMRT IN INPUT BUFFER

#UNS , fllERi

;DONT ACCEPT UNSAFE

#SK]1!DVC,RMER2]
108
#DMD ,RMMR1 ]

;DONT ACCEPT SKI OR DVC
JBRANCH IF ANY OTHER BITS ON
JBRANCH [F DMD IS ON

108
26

AR RN R

:LOAD RMER?2

IF ANY BITS ARE ON

RMER1(RO) ,RMER1]
PMER2 (RO) ,RMER2]
RMMR1(RO) ,RMMR1]

A AN R R

JBRANCH IF ANY OTHER BITS ON

R R RN RN A AN R R R AR R I AN N AR AN RN

R AN

IR RS RN SRS

TRISTATE TRANSFER TEST
L

SCOPE
NOP
MOV
MOV

;SCOPE CALL

OSTACK SP

.LOAD THE STACK POINTER
;RO
= UNIBUS ADDRESS

MOV

lS.iTESVN

..SE! TEST NUMBER IN APT MAIL BOX

CLR

MOV
JSR

000000

#-1,RMER1(RO)
#-1,RMER2 (RO)

MOV
MOV
MOV

ITEST S

000004
000240
012706
013700

STACK POINTER

;GO CLEAR CONTROLLER

BIC
BNE
BIT

1STS:

THE

PC,CNTCLR

BIC

:LOAD

JSR

TEST REGISTERS
AND SEE

006360
006360
006362
006364
006370

#STACK, SP

MOV

108:

159 o

;SCOPE CALL

‘RO = UNIBUS ADDRESS
‘R1 = POINTER TO DEVICE
$:SET TEST NUMBER IN APT MAIL BOX

MOV

sREAD

13-3

$RASE ,RO
TSTQUE R
#4,$TESTN

JWRITE ONES
MOV

000024

01:29:56 PAGE

SEQ 0056

1ST4:

150 C06326

151 006334

&-APR-81

TSTOUfR1

PC,CNTCLR

R1 = POINTER TO DEVICE
;CLEAR ERROR FLAGS

;G0 CLEAR CONTROLLER

JWRITE ONES IN SELECTED REGISTERS

MOV

MOV
MOV
MOV
MOV

#ILF76,RMCS1(RO)

#-1 RHDA(RO)
#=-1 RHER1(R0)
#—1.RHOF(R0)
#-1,RMER2(RO)

;LOAD RM(CS1

:LOAD RMDA
:LOAD RMER1
;LOAD RMOF

:LOAD RMER?2

JWRITE ZEROS IN SELECTED REGISTERS
MOV
#0,RMCS1(RO)
sLOAD RMCS1

MOV

#0 ,RMDA (RO)

MOV
MOV
MOV

#0 ,RMOF (RQ)
#0,RMDC (RO)
#0 ,RMER2 (RO)

MOV

#0 ,RMER1 (RO)

;LOAD RMDA

sLOAD RMER1

;LOAD RMOF
.LOAD RMDC
JLOAD RMER?

RMQBO RM0S/3/2 DSKLS TST 2
TRISTATE TRANSFER TEST

178
179
180 006516
181 006524

016037

000000

BEIE

183 006540
184 006546
185 006554

]
1
006562
1
1 90 006574
191 006602

192 006610

193 006616

1946 006622

195
196
197
198
199

006626
006632
C06636
006642
006646

200 006652
201 006656
202 006662
203 006666
204 006672
205 006676
206
207
208 006700
209 006704
216 006710
211 006712
212
213 006716
006716
214
215
216
217 006722
218 006730
219 006736
220

221
222 006744
223 006752
2264 006760
225 006766
226 006774
227 007002
228
229
230 007010
231 007016
232 007024
233 007032

001336
001344

052737
052737
005137
005137
005137
005137
005137
005137

043702
043702
043702
043702
043702
043702
001407

177777
177701
161577
176000

001567
001336
001344
001352
001370
001372
001400
001336
001344
001352
001370
001372
001400

010237
005037

001142
001140

052702

000001

004737

022404

104005

E.
01:29:56 PAGE

%
13-4

:READ BACK ALL REGISTERS
MOV
RMCS1(RO) ,RMCS1]
;STORE RMCST1 IN INPUT BUFFER
MOV
RMDA (RO) ,RMDA|
;STORE RMDA IN INPUT BUFFER

MOV

001370
001372
001400
012702
052737
052737

4&-APR-81

SEQ 0057

001352

182 006532

MACRO Vv04.00

001336
001370
001372

001400

MOV
MOV
MOV

RMER1(ROS ,RMER1]

;STORE RMER1T

;CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ
;ACCUMULATE ZEROS IN R2
BIS
#~CILF76,RMCS1] JSET ALL BITS NOT WRITTEN
BIS
#XNUOF
, RMOF |
BIS
#XNUDC . RMDC]

BIS

#XNUER2 ,RMER2 |

COM
COM
COM
COM

RMDA]
RMER1
1
RMOF|
RMDCI

coM

cOM
BIC
BIC
BIC
BIC
BIC
BIC
BEQ

RMCS11]

RMER?|
RMCS1],R2
RMDAI ,R2
RMER11,R2
RMOF
I ,R2
RMDC
! ,R2
RMER21 ,R2
108

;COMPLEMENT REGISTER CONTENTS

sACCUMULATE ALL

:ONE OR :&E BIT POSITIONS ARE NOT ZERO
CLR
EMT
BIS

R2,$BDDAT
$GDDAT

;SAVE RESULT FOR TYPE
;LOAD EXPECTED RESULT

#B1T0,R2

;SET ERROR FLAG

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

10%:

sPRESET SELECTED REGISTERS TO ZEROS
; (ASSUME RMCS1, RMER1, RMERZ2 WERE CLEARED BY INIT)

000600
000000
000000

000006
000032
000034

012760
012760
012760
012760
012760
012769

000076

001777

000000
000006
000032
000034

;WRITE ONES IN SELECTED REGISTERS
MOV
#ILF76,RMCST(RO)
;LOAD RMCS1
MOV
#-1,RMDA(RO)
;LOAD RMDA
MOV
#*C XNUOF , RMOF (RO)
;LOAD RMOF
MOV
#~CXNUDC . RMDC (RO)
*LOAD RMDC

000000
000006
000032
000034

001336
001344
001370
001372

;READ ALL REGISTERS
MOV
RMCS1(RO) ,RMCS1]
;STORE RMCS1
MOV
RMDA
(RO) ,RMDA]
;STORE RMDA IN INPUT
MOV
RMOF (RO) .RMOF |
:STORE RMOF IN INPUT
MOV
RMDC (RO),RMDC]
:STORE RMDC IN INPUT

016037
016037
016037
016037

177777
176210

ZERO BITS

;BRANCH IF EACH BIT IS ZERO

012760
012760
012760

177777
016200

IN INPUT BUFFER

RMOF
(RO) , RMOF |
;STORE RMOF IN INPUT BUFFER
RMDC (RO) . RMDC ]
;STORE RMDC IN INPUT BUFFER
RMER2
(RO) , RMER2]
;STORE RMERZ IN INPUT BUFFER

000074
000042

MOV
MOV
MOV

MOV
MOV

#0 , RMDA (RO)
#0.RMOF (RO)
#0.RMDC (RO)

:LOAD RMDA
*LOAD RMOF
*LOAD RMDC

#-1,RMERT (RO)
:;LOAD RMER1
#CXNUER2 ,RMER2 (RO)
:LOAD RMER2
IN INPUT BUFFER
BUFFER
BUFFER
BUFFER

_ZRMOBO RMOS5/3/2 DSKLS TST 2

TRISTATE

TRANSFER

TEST

MACRO v04.00 4=-APR=-81 01:29:56 PAGEG 1§-5

234 007040
ng 007046

016037
016037

000014
(00042

001352
001400

237
238 007054
239 007062
240 007070

042737
042737
042737

177701
161577
176000

001336
001370
001372

241 007076

262 007104
263 007106
244 007112
245 007116
246 007122
247 007126
248 007132
249 007136
52(1) 007142
252
253 007144

254 007150
255 007156
256 007160
257 007164
258 007164
259 007166
Sg? 007170

042737

005002
053702
053702
053702
053702
053702
053702
022702
001410
010237
012737
104006

052702

001567

001400

0C1142
177777

001140

000002

004737

022404

010260
010260
010260
010260
010260

000006
000032
000034
000014
000042

273 007232
274 007240

016037
016037
016037

000006
000032
000034

001344
001370
001372

s;g 007254

016037

000042

001400

262 007174

264

265 007200
266 007204
267 007210
268 007214
598 007220
271
272 007224

275 007246
278
279 007262
280 007264
281 007270
282 007274
283 007276
284 007300

285 007302
286 007306
287 007312
288 007314
289 007316

016037
005003
012704
013705
050503
005105
040504

013705
042705
050503
005105
042705

BIC

CLR
BIS
BIS
BIS
BIS
BIS
BIS
CMP
BEQ

000014

177777
001344

001370
161577
161577

;STORE RMER1 IN INPUT BUFFER
;STORE RMERZ IN INPUT BUFFER

#XNUERZ
, RMER? |

R2
RMCS11,R2
RMDA] ,R2
RMOF
I ,R2
RMDCI ,R2
RMER11,R2
RMER2] ,R2
#-1,R2
208

JACCUMULATE ONES IN R2
JACCUMULATE ALL ONE BITS

;SEE IF EACH BIT POSITION WAS ONE
;BRANCH IF NONE STUCK

sONE OR MORE BIT POSITIONS ARE NOT ONE
MOV
R2,$BDDAT

208%:

000001

RMER1(RQ) ,RMER1]
RMER2 (RO) ,RMER2]

JCHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ
BIC
#*CILF76 ,RMCS1]
;CLEAR ALL BITS NOT WRITTEN
BIC
#XNUOF , RMOF|
BIC
#XNUDC ,RMDC|

001336
001344
001370
001372
001352
001400
177777

005702
001126
012702

243 007174

MOV
MOV

SEQ 0058

25%:

;SAVE RESULT FOR TYPE
JEXPECTED RESULT

MOV
EMT
BIS

#-1,9GDDAT
6
#B1T1,R2

;SET ERROR FLAG

TST
BNE
MOV

R2
308
#1,R2

;ANY ERRORS DETECTED ??
;YES = DONT DO BIT TEST
sR2=BIT POSITION

JSR

PC,CNTCLR

;GO CLEAR (ONTROLLER

sWRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS
MOV
MOV
MOV
MOV
MOV

R2,RMDA(RO)
R2,RMOF (RO)
RZ.RMDC (RO)
RZ.RMER1(R0O)
R2 ,RMER2 (RO)

JREAD BACK THE REGISTERS
MOV
RMDA(RO) ,RMDAI

001352

MOV
MOV

RMOF (RO) ,RMOFI
RMDC(RO) RMDCI

MOv

RMER2(RO) ,RMERZ2I

MOV

RMER1(ROS ,RMER1]

:LOAD
:LOAD
+LOAD
;LOAD
;LOAD

RMDA
RMOF
RMDC
RMER1
RMERC

;STORE RMDA IN INPUT BUFFER
;STORE RMOF IN INPUT BUFFER
:STORE RMDC IN INPUT BUFFER

:STORE RMER1 IN INPUT BUFFER

:STORE RMERZ IN INPUT BUFFER

;C(HECK REGISTER CONTENTS FOR CORRECT PATTERN
CLR
R3
;R3=ACCUMULATED ONE BIT
MoV
#-1,R4
sR4=ACCUMULATED ZERO BITS
MOV
RMDA] .RS
sGET ANY GOOD BITS FROM RMDA
BIS
R5,R3
COM
R5
\
BIC
R5,R4

\
\
]
¢

MOV
BIC
BIS
COM
BIC

RMOF I ,R5
#XNUOF RS
RS,R3
RS
#XNUOF RS

;GET GOOD BIiTS FROM RMOF

;gRMOBO RMOS/3/2 DSKLS
TRISTATE

290 007322
291 007324
292 007330
293 007334
294 007336
295 007340

296 007344
297 007346
298 007352
269 007354

300 007356
301 007360
302 007364
303 007370
304 007372
305 007374
306 007400
307 007402
308 007404
309 C07406
310 007410
311 007412
312 007414
313 007416
314 007420
315 007424
316 007430
317 007432
318
319
320 007434
321 007434
322 007436
323 007440
324 007444
325
326

TST 2

TRANSFER

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

TEST

MACRO v04.00 4&-APR-81 01:29:56 PAGE 1§-6
H

001372

RS5.R4

BIS
COM

RS,R3
RS

MOV
BIC

176000

RMDC,RS
#XNUDC ,RS

BIC
BIC
MOV
BIS
(oM
BIC
MOV
BIC
BIS
com
BIC
BIC
MOV
COM
BIC
BIC
BIS

001352

001400
001567

001567

CMP

#XNUDC ,RS
RS ,R4
RMER11,RS
RS5,R3
RS
R5,R4
RMERleRS
#XNUERZ
RS
R5.R3
RS
#XNUERZ2
RS
R5.R4
R2.RS
RS
R5.R3
R2,R4
R4 ,R3
R3,.R2

MOV
MOV
EMT
BR

R2,$GDDAT
R3,$BDDAT
7
30%

BEQ

001140
001142

000404

;GET 500D BITS FROM RMDC

;GET GOOD BiTS FROM RMER1

;GET GOOD BITS FROM RMERZ2

JRESET ALL ONES IN R3 EXCEPT
;FOR THE TEST BIT

JRESET TEST BIT IN R4
;COMBINE ACCUMULATED 1°'S + 0°'S
;1S PATTERN 0K??
ss!!
;SAVE TEST PATTERN
sSAVE RESULT

26$

;SKIP TO NEXT

522VA~CE RZ2 TO THE NEXT PATTERN AND REPEAT TEST

006302
001402
000137

007174

ASL
BEQ
JMP

30%:

AR AR

R2
308
25%
AR

J*TEST 6
AR A

007444
007444
007446
007450
007454
007460
007464

BIC

SEQ 0059

000004
000240
012706
013700
013701
012737

T1ST6:

001100
001276
001466
000006

001226

AR A

sSHIFT THE BIT

SEXIT IF DONE

AR AR R

R A R

SCOPE
NOP
Mov
MOV
MOV
MOV

AR AR AR AR AR AR RN R R AR R

AR R

IR RN

TEST

R R R TR R A AN R R AR AR AR R AR R R IR RN AR

AT R RN

;SCOPE CALL
#STACK ,SP
$BASE ,RO
TSTQUE .R1
#6,8TESTN

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE
;:SET TEST NUMBER IN APT MAIL BOX

;THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR
JEACH DEVICE REGISTER
;

;

NAME

RMCS1

RMDS
RMER1

REG
(16

000

000
000

CZRMQBO RMOS/3/2 DSKLS TST 2
Té
REGISTER SELECT TEST

MACRO v04.00

337

338
339
340
341
342
343
3464
345
346
347
3.8
349
350
351
352
353
354
355
356
357
358
359
360 007472
361 007474
362
363
364
365 007500
366 007504
367 007510
368 007514
369 007520
370 007524
371 007532
372 007540
373 007544
374 007546
375 007554
376 007560
377 007562
378
379
380 007564
381 007564
382 007570
383 007574
384 007600

385 007604
386 007610
387 007614

388 007620

389 007626
390 007634
391 007642
392 007646
393 007650

4-APR-81

01:29:56 PAGE

:
:

RMMR 1
RMAS

RMDT

00110

RMSN

01000

RMHR

01011

3
3

:
>
:
3

13-7

00011
00100

RMDA

00101

RMLA

00111

RMOF
RMDC

01001
01010

RMMR?2
RMER?2
RMEC1
RME(C2

01100
01101
01110
011N

sEACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE,
sSTUCK AT ZERO FAULT. AS AN EXAMPLE,
TO TEST REG SEL 1.

:FOR S=-A-0, RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER

s THAT HAS THE

SAME SELECT VALUE,

EXCEPT FOR THE

SELECT LINE

sBEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE,
sRMMR1T IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S~A-0,
sTHE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1
;WILL NOT BE O WHEN READ BACK.

005002
12703

CLR
MoV

177777

sTEST REG SEL

004737
010260
010260
010360
010360
016037
016037
020337
001007
052737
020337
001001

022404
000014
000034
000024
000036
000014
000034
001352
176000

001372

JSR

MOV
MOV
MOV

MOV
MOV
MOV
CMP
BNE
BIS
CMP
BNE

001352
001372
001372

104010

EMT

R2
#-1,R3
1

;R2= ZEROS SOURCE
;R3= ONES SOURCE

FOR S-A-0

PC,CNTCLR

R2,RMER1(RO)
RZ.,RMDC (RO)
R3.RMMR1(RO)

;GO CLEAR CONTROLLER

;LOAD RMER1
;LOAD RMDC
;LOAD RMMR1

R3_RMHR (RO)
*LOAD RMHR
RMER1 (RO) ,RMER1 ]
:STORE RMER1 IN INPUT BUFFER
RMDC
(RO) ,LRMDCI ;STORE RMDC IN INPUT BUFFER
R3,RMERT]
108
#XNUDC ,RMDC I
R3,RMDCI
108
10

;TEST REG SEL 1 FOR S~A-1
004737
010260
010260
010260
010360
010360
010360
016037
016037
016037
020337
001015
052737

108
:

JSR

PC.CNTCLR

;GO CLEAR CONTROLLER

MOV
Mov
MOV

R3,RMAS (RQ)
R3,RMSN(RO)
R3,RMMR2 (RO)

;LOAD RMAS
;LOAD RMSN
:LOAD RMMR?

MOV
MoV
MOV

001344
001370
001400
161577

001370

MOV
MOV
MOV
CMP
BNE
BIS

R2,RMDA(RQ)
R2 .RMOF (RO)
R2,RMER2 (RO)

sLOAD RMDA
;LOAD RMOF
:LOAD RMERZ2

RMDA (RO) ,RMDAI
sSTORE RMDA IN INPUT BUFFER
RMOF (RO) , RMOF]
;STORE RMOF IN INPUT BUFFER
RMERZ2 (RO) ,RMERZ]
;STORE RMER2 IN INPUT BUFFER
R3,RMDA]
208
#XNUOF , RMOF |

396 007664
397 007672
398 007676
399 007700

400
401
402 007702

403
404
405
406
407

007702
007706
007712
007716
007722

408 007726

409 007732
410 007736
411 007744
412 007752
413 007760

414
415
416
417
418
419
420
421
422

007764
007766
007774

010000
010002
010010
010014
010016

423
424 010020

425 010020
426 010024
427 010030
428 010034
429 010042
430 010046

431 010054
432 010062
433 010070
434 010074
435 010076
43¢ 010104
437 010110
438 010112
439

020337
001007
052737
020337
001001
104011

EMT

004737
010260
010260
010260
010360
010360
010360
016037
016037
016037
020337

001015
052737
020337
001007

052737
020337
001001

022404
000006
000032
000042
000020
000036
000046
000006
000032
000042
001344

001344
001370
001400

161577
001370

001370

001567

001400

104012

R3,RMOF|

20$

#XNUER2 ,RMER2
]

R3,RMER2]
20$
1

JSR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP
BNE
BIS
CMP
BNE
BIS
CMP
BNE
EMT

PC,CNTCLR

R2,RMDA(RQ)
R2,RMOF (RO)
RZ.RMER2 (RO )
R3.RMLA(RO)

R3,RMHR (RO)

R3.RMEC2(RO)
RMDA (RO) , RMDA

RMOF (RO) . RMOFI

;GO CLEAR CONTROLLER
;LOAD RMDA
;LOAD RMOF

;LOAD RMERZ
;LOAD RMLA
;LOAD RMHR
;LOAD RMEC?2

sSTORE RMDA IN INPUT BUFFER
;STORE RMOF IN INPUT BUFFER

RMER2 (RO ,RMER2]"

R3,RMDAI

;STORE RMERZ IN INPUT BUFFER

308

#XNUOF , RHOF I
K3, RMOF
|

308

lXNUERZ RME R21

3 RMER2]

3o§
12

; TEST REG SEL 2 FOR S=A-1

004737
010260
010260
012760
010360
016037
016037

308

001352
001372
001352
001372

JSR
MOV
MOV
MOV
MOV
MOV
MOV
BIS
CMP
BNE
BIS
cMP
BNE
EMT

PC,CNTCLR

;GO CLEAR CONTROLLER

R3,RMSN (RO)

;LOAD RMSN

RMDC (RO) , RMDC|

;STORE RMDC IN INPUT BUFFER

R2,RMERT (RO)
;LOAD RMER1
R2,RMDC (RO)
:LOAD RMDC
#ILF76, RHCSl(RO)
;LOAD RMCS1

KRl (RO) ,RMER11"

#-CILF 76, RMERT]

;STORE RMER1 IN INPUT BUFFER

oiRHER1I

;TEST REG SEL 4 FOR S~A-0

40%:

—

010

449 010150
450 010156

13-8

: TEST REG SEL 2 FOR S=A=0

20$

—

448 010146

(MP
BNE
BIS
CMP
BNE

001400

440
441 010114
442 010114
443 010120

444 010124
445 010130
446 010134
447 010140

01:29:56 PAGE

SEQ 0061

001370
001567
001400

4-APR-81

JSR

MoV
MoV
MOV
MOV
MOV
MOV
MOV
Mov

PC,CNTCLR

;GO CLEAR CONTROLLER

sLOAD RMOF
:LOAD RMDC
LOAD RMD T

RZ.RMER1(RO)
RZ,RMOF (RQ)
R

e RO)

R 3. RMER?2 ( RO)

R3, RMEC1 ( RO)

),R
RME80
ME 11
)

;LOAD RMER1

T BUFFER

394 007656

395 007662

MACRO v04.00

(ZRMQBO RMOS5/3/2 DSKLS TST 2
T6
REGISTER SELECT TEST

;

EéRMBO RMOS/3/2 DSKLS TST 2
REGISTER SELECT TEST

451 010164
452 010172

453 010176
454 010200
455 010206
456 010212
457 010214
458 010222
459 010226
460 010230
461
462
:
463 01023¢
464 010232

016037
020337

MACRO V04.00 4-APR-81 01:29:56 PAGE 1§-9
K

000034
001352

001372

161577

001370

176000

001372

001370
001372

EMT

;STORE RMDC IN INPUT BUFFER

:TEST REG SEL & FOR S=A=1

505:

022404

465 010236
466 010242
467 010246
468 010252

000012
000032

469 010256
470 C10264

001344

471 010272
472 010276

473 010300
474 010306

001567
001400

475 010312
476 010314
477
478
479 010316

JSR

MOV
MOV
MOV
MOV
MOV
MOV
CMP
BNE
BIS
CMP
BNE

001344
001400
001400

EMT

PC,CNTCLR

;GO CLEAR CONTROLLER

R2.RMDA (RO)
;LOAD RMDA
R2.RMER2 (RO)
;LOAD RMER?2
R3.RMDS (RO)
;LOAD RMDS
R3.RMOF (RO)
;LOAD RMOF
RMDA (RO) ,RMDA] ;STORE RMDA IN INPUT BUFFER
RMER2 (RO) , RMER2]
;STORE RMER2 IN INPUT BUFFER
R3,RMDA]
6ud
#XNUER2 ,RMER2]
R3,RMER2]
608
15

;TEST REG SEL 8 FOR S=A=0
60%:

JSR
MOV
MOV

480 010316
481 010322
482 010326
483 010332

484 010336

001352

485 010342

MOV

001344

486 010350
487 010356
488 010362
489 010364
490 010370

493

PC,CNTCLR
R2.RMERT (RO)
ni.mmmo)

;GO CLEAR CONTROLLER
;LOAD RMER1
sLOAD RMDA
sLOAD RMDC
;LOAD RMER?2
RMER1T (RO) , RMER1]
;STORE RMER1 IN INPUT BUFFER

MOV
(P
BNE
CMP

R3,RMER1]

EMT

BNE

491 010372
492

RMDA
(RO) , RMDA |
708
R3,RMDAI

;STORE RMDA IN INPUT BUFFER

70§

:TEST REG SEL 8 FOR S=A-1

?OS:

494 010374
495 010374
496 010400
497 010404
498 015410
499 010414

500 010420
501 010424
502 010430
503 010436
504 010444
505 010452
506 010460
507 010462

MOV
CMP
BNE
BIS
CMP
BNE
BIS
CMP
BNE

010360
016037
016037
016037
052737
001015
022737

161577

176000

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

001370
001372
001400

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

R2.RMOF (RO)
:LOAD RMOF
R2.RMDC (RO)
;LOAD RMDC
R2.RMER2 (RO)
;LOAD RMER?
R3.RMDS (RO)
sLOAD RMDS
R3.RMER1(RO)
;LOAD RMER1
R3.RMDA (RO)
:LOAD RMDA
RMOF (RO) , RMOF I ;STORE RMOF IN INPUT BUFFER
RMDC (RO) . RMDCI ;STORE RMDC IN INPUT BUFFER
RMER2 (RO) ,RMER2]
:STORE RMER2 IN INPUT BUFFER

001372

BNE
CMP

80$
#XNUDC
, RMDC |

001370

BIS

#XNUOF , RMOF|

SEQ 0067

|. CZRMQBO RMQOS/3/2 DSKLS TST 2

508 010479
509 010474

020337
001007

510 010476

052737

513 010512
g}ls. 010514

104017

511 010504
512 010510

020337
001001

TEST

MACRO v04.00 &-APR-81 01:29:56 PAGEL 1§-10

001372
001567

001400

(MP
BNE

001400

80%:

R3,RMDC|
80§

BIS

#XNUER2 ,RMER2|

EMT

CMP
BNE

SEQ 0063

R3,RMER2]
80$

JREGISTER SELECT 16 IS TESTED BY THE ILR TEST

g}g
518

tt'!ttt'.'!.t'.t.'t't"'tt.ttfitt.t."tttttt.flt't'!.'tttttttttnt

-TEST 7

DRIVE

TYPE

TEST

.‘QQ'.'..!'..ttt.t..'Qtt"t.ttt"tttt't.Qt..tt.Qfi.tt!!ttttttttttn

010514

1S17:

010514

000004

010520

012706

001100

MOV

C10530

013701

001466

MOV

520 010542
521 010546
522 010552
523 010554
2515. 010560

016002
022702
001431
022702
001426

002026
020024

526 010562
527 010566
528 010570
2233 010574

022702
001423
022702
001420

020025

531 010576
532 010602

022702
001415

020027

§§’§ 010610

001412

010516

010524

- 010534

533 010604

536 010612
537 010616
538 010622
539 010630
540 010632

22; 010636

000240

013700

012737

SCOPE

NOP

001276

0G0007

001226

024024

024025

022702

024027

010237
010037
062737
104057
000137

001142
001136
000026
021274

10%:

543

544

010636
010640
010642
010646
010652
010656

;LOAD THE STACK POINTER

TSTOUE R1

Rl = POINTER TO DEVICE

$BASE , RO

MOV

"7, STESTN

MOV
CMP
BEQ
CMP
BEQ

RMDT(RO) ,R2
#SNGPRT ,R2
108
#DULPRT ,R2
108

;STORE RMDT AT R2
;SINGLE PORT RMO3 ?
.YES 1!
*DUAL PORT RMO3 ?
JYES !!

CMP
BEQ
CMP
BEQ

0SNGPRT'BITO R2
108
#DULPRT!BITO,R2
108

SINGLE PORT RMO2 ?
*YES.¢
DUAL Ponr RMO2 ?
3YES !

CMP
BEQ

#SNGPRT!BIT1!BITO,R2
108

;RO = UNIBUS ADDRESS

::SET TEST NUMBER IN APT MAIL BOX

CMP

#DULPRT!BIT1!BITO,R2

MoV
MOV
ADD
EMT
JMP

R2,$BDDAT
RO, $BDADR
#RMDT , $BDADR
57
$EOSP

108

AN R A AR

tTEST 10

010636

#STACK,SP

MOV

BEQ

001136

;SCOPE CALL

SINGLE PORT RMOS ?
:YES

*DUAL P(RT RMCS ?

JGET RECIEVED DRIVE TYPE
:LOAD BAD ADDRESS

;GO TO NEXT DEVICE

R RN AR A AN AR AR AR AR R R AR AR RN RN

R AR R RS

DEVICE AVAILABLE TEST

"ttttttttltttt.tttttt"!t't'tttlttttt.t'tItttttl'tttttttltt'tttl

000004
000240
012706
013700
013701
012737

1ST10:

001100
001276
001466
000010

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

;SCOPE CALL
#STACK,SP
$BASE ,RO
TSTQUE ,R1
#10,8TESTN

;LOAD
;RO =
sR1 =
J3SET

THE STACK POINTER
UNIBUS ADDRESS
POINTER TO DEVICE
TEST NUMBER IN APT MAIL BOX

'
|

(ZRMQBO RMOS5/3/2 DSKLS TST 2
110

DEVICE AVAILABLE TEST

545 010664

004737

547 010676

042737

546 010670

022404

[

MACRO V04.00 4-APR-81 01:29:56 PAGE 1§-11
JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

BIC

#~CDVA,$BODAT

;CLEAR ALL BUT DVA

EMT

016037

000000

001142

MOV

548 010704 001006
549 010706 012737
550 010714 010037

004000
001136

001140

BNE
MOV
MOV

551 010720
ggg 010722

104060

173777

001142

108:

554

SEQ 0064

SRR

R AR

LRTEST

RM(S1(RO), SBDDAT”

108
#DVA, SGDDAT
RO, $8DADR
R

AR AR R R

;STORE RMCS1 AT $BDDAT

‘BRANCH IF DVA SET
“SETUP EXPECTED
:SETUP REG ADDRESS

RN RN AR AR AR AR NN AN AN AN I AN A AR AN AR AR R AR N

SEARCH TIMEOUT

TEST

"t.t..t't'tlt.QQ'Qit'tt't'tt.'fii".l.'..".t'.tt.'.ttttt.tttt..t

010722

1S111:

010722 000004
010724

000240

010726 012706 001100
010732 013700 001276

010736 013701 001466

s C10742

012737

000011

001226

557 010750
558 010756
559 010764
560 010772
561 011000
% 011006

012737
012737
012737
012737
012737
012737

000000
000000
010000
054636
177777
000061

001420
001446
001444
001416
001414
001412

564 011014

004737

022432

556

5522 011024

568 011026

000462

571 011044
2;23 011046

000144
170476

001375
004777

170466

575 011052
576 011060

016037
010037

000014
001136

579 011100

001404

570 011040 005737 001534

580 011102
581 011106

582

062737
042737
005037
104020

000014
157777

001534

001142

108

208:

586 0

2
2

21, srssm

:sSET TEST NUMBER IN APT MAIL BOX

rsroué

*R1 = POINTER TO DEVICE

MOV
MOV
MOV
MOV
MOV
MOV

#0,RMDAO
#0.RMDCO
#FMT16,RMOFO
#BUFFER,RMBAD
#-1,RMWCO
MWD GO,RMCS10

; SECTOR=0=TRACK
+CYLINDER=0
:16 BIT FORMAT
:STARTING BUFFER ADDRESS
*WORD COUNT
WRITE DATA COMMAND

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

108

:SEARCH IS ENABLED USING SUBROUT INE.

:BRANCH TO 108 IF NO ERROR

508

;SLOC REST PF TEST

MOV
JSR

noo. JWATCH
acLock

;SET WATCHDOG TIMER VALUE
*START THE CLOCK

BNE
JSR

208
PC,asTOPCL

;STOP THE CLOCK

TST

;VERIFY THAT OPI

001136
001142

001140

w\i

IS NOT SET (SEARCH TIMEOUT IS DISABLED)

MOV
MOV

RMER1 (RO),$BDDAT
:STORE RMER1 AT SBDDAT
RO, $8DADR
:SET UP FOR ERROR MSG

BEQ

308

508

ADD
BIC

CLR
EMT

ggz 011110 000430

585

MOV

:START THE CLOCK AND WAIT FOR 100 MS
012737
004777

577 011064
578 011072

;LOAD THE STACK POINTER
:RO = UNIBUS ADDRESS

EMT

569 011026
011034

574

psncx SP

;LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS

104000

567

:SCOPE CALL

MOV
MOV

MOV

011020 000402
011022

SCOPE

NOP

#RMER1,SBDADR
#*COPI.$BDDAT

$GDDAT
20

;BRANCH IF NO ERROR

:DISABLED
+SKIP

:ENABLE SEARCH TIMEOUT, THEN WAIT 100 MS

012760

041401

000024

508:3

Mov

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

:LOAD RMMR1

MQBO RMOS/3/2 DSKLS TST 2
SEARCH TIMEOUT TEST

588 011120

012737

000144
170404

MACRO V04.00 4-APR-81 01:29:56 PAGEN 1§-12
001534

001534

408%:

170374

016037
042737
001004
012737
104021

000014

157777

001142
001142

020000

001140

MOV
JSR
TST
BNE
JSR

#100. ,WATCH
PC,aCLOCK
WATCH
408
PC,aSTOPCL

;SET WATCHDOG TIMER VALUE
sSTART THE CLOCK
;STOP THE CLOCK

sOP] SHOULD NOW BE SET (SEARCH TIMEOUT IS ENABLED)
MOV
RMER1(RO) , $8DDAT
;STORE RMER1 AT $BDDAT
BIC
#“COPI1,$BDDAT
BNE
50%
50%:

MOV
EMT

#0P1,$GDDAT
21

::'.t"."'fi"..fi'..'.'.'."...""'t.."""'.".""".""l"t

J*TEST 12

SET DTE TEST

d - ok

~N~N~

—

—d

— o

d -

cooo

::'.l.fi'..."......Q."".'...."""..fi....'."'.t'..'..t.'."tt

—t

01120
011206
011212

SarESNRR
RIZAHENRE

) e
) e

623 0

—_

620
621

e T

elelelelele]

602
603 011220
604 011224
605 011232
606
607
608 011236
609
610 011242
611 011250
612 011256
613 011260
614 011262
615
616
617
618
619

TST12:

000004
000240
012706
013700
013701
012737

001100
001276
001466
000012

010037
062737
005037

001136
000014
001140

004737

022404

016037
042737
001402
104031
000517

000014
167777

001226

'SégPE

;SCOPE CALL

MOV
MOV
MOV

#STACK,SP
$BASE ,RO
TSTQUE .R1

sLOAD THE STACK POINTER
;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE

MOV
ADD
CLR

RO, $BDADR
#RMER1 ,$BDADR
$GDDAT

;SETUP ERROR MSG

MOV

001136

#12,8TESTN

SINITILAIZE AND VERIFY THAT DRIVE TIMING ERROR IS RESET

001142
001142

JSR

PC,CNTCLR

MoV
BIC
BEQ
EMT
BR

RMER1 (RO)
, SBDDAT
;STORE RMER1 AT $BDDAT
#~CDTE
, SBDDAT
108
;BRANCH IF DTE=0
31
508
;SKIP REST OF TEST

i-(s)gr MAINTENANCE

012760
012760
016037

042737

001402
104000
000500

000001
000005
000014
167777

;:SET TEST NUMBER IN APT MAIL BOX

000024
000024
001142

001142

mov
MOV
MOV

BIC

INDEX PULSE AND VERIFY DTE REMAINS RESET

#DMD ,RMMR1(R0) :LOAD RMMR1
#DMD TM] ,RMMR1 (RO}
:LOAD RMMR1
RMER1 (R0)
, SBDDAT
*STORE RMER1 AT $BDDAT

#~CDTE
, SBODAT

;GO CLEAR CONTROLLER

508

:COMPARE SHOULD BE RESET

égéecurs DUMMY DATA COMMAND TO ENABLE SEARCH

012737
012737
012737
012737
012737
012737

000000
010000
054636
177777
000061

001420

001446
001444

001416
001414
001412

Moy

#0,RMDAO

MOV

HFMT16
, RMOF O

MOV

MOV
MOV
MOV

#5 RMDCO

#BUFFER
, RMBAO
#-1,RMWCO
#WD 1GO,RMCS10

SEQ 0065

JSR

PC,ENBSCH

000402

2:7

308

000451

508

635 011366

004737

011372
211374
636 011376
637
638
639
640 011400
641 011400
642 011406
643

(22432

;WITH SEARCH ENABLED,

335““" FLOP.

012760
012

051441
051401

000024
000024

645

659
660
661 211460
662 011466
663 011474
664 011502
665 011510
666 011512
667 011520
668
669 011522

“SEARCH IS
:BRANCH TO

ENABLED
U
smc SUBROUT
INE .
30% IfF NO ERROR

SET AND RESET SECTOR PULSE

TO SET ENABLE

:#DMD'MURDBEN'MOC
'MSEN'MS ,RMMRT (RO)

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

;LOAD RMMR1

“LOAD RMMR1

;SET SECTOR PULSE AND VERIFY DTE DOES NOT SET

644

b
—b

000074
167 77

porurd

016037
042737
0071402

PUTMRT ~ #DMD ! MUR ! DBEN ! MOC | MSEN ! MS
PUTMR1 #DMD
! MUR ! DBEN
'MOC | MSEN

H
oo

:
:

646
647
648 011414
649 011422
650 C11430
651 011432
652 011434
€53
654
655 011436
656 011436
657 011444
658 011452

MOV

;EXECUTE DATA COMMAND TO POINT WHERE

MOV

RMER1(RO) , SBDDAT

BEQ

408

BIC

104023

EMT

BEQ

001432

;STORE RMER1 AT $SDDAT

#*CDTE,$BODAT

508

;COMPARE SHOULD BE RESET

sFORCE SECTOR COMPARE

012760
012760
012760

051403
051443
051403

012760
012760
016037
042737
001004
012737

051441
051401

104024

408:

MOV
MOV
MOV

#DMD
! MUR ! DBEN !MOC 'MSEN'MSC ,RMMR1(RO)
:LOAD RMMRT
#DMD | MUR | DBEN 'MOC 'MSEN'MSC
'MS ,RMMR1 (RO) -{ OAD RMMRI
#DMD ! MUR | DBEN 'MOC iMSEN'MSC .RM"R1(RO)
-LOAD RMMR1

;SET SECTOR PULSE AND VERIFY DTE SETS

MOV
MOV
MOV

000014
167777

BIC

BNE

MOV

010000

EMT

#DMD ! MUR ! DBEN ! MOC | MSEN !MS . RMMR1 (RO)
:LOAD RMMR1
#DMDi MUR| DBEN | MOC | MSEN_ RMMR1 (RO)
*LOAD RMMR1
RMER1 (RO),SBDDAT
:STORE RMER1 AT $BDDAT
#~CDTE,SBODAT
508

#DTE,SBDDAT
2

50%:

670

671

;SECTOR COMPARE SET

Q'..Q.fi...'...'Q...Q"""."Q'..Q.'..."'.".'.'t......'.."'.

TATEST 13

FORMAT CHANGE TEST

"t.l"'fi.'..'.I'....."..'""....."'......"Q'Q'...'.'Q.Q"Q'...

000004
000240

672

15113:

012706
013700
013701
012737

001100
001276
001466
000013

012702

012100

001226

%gps

MOV
MOV
MOV
MOV
MoV

;SCOPE CALL

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#13,$TESTN
#508 ,R2

:LOAD 1HE STACK POINTER
‘RO= UNIBUS ADDRESS
*R1= POINTER TO DEVICE
1:SET TEST NUMBER IN APT MAIL BOX
;R2=TABLE POINTER

fi‘l)r:muuze AND SET THE FORMAT BIT, USE

004737

022404

JSR

PC,CNTCLR

INDEX PULSE TO CLEAR FORMAT CHANGE

:GO CLEAR CONTROLLER

MQBO RMO5/3/2 DSKLS TST 2

MACRO V04.00 4-APR-81 01:29:56 PAGE 1?-14

678 011560 011260 000032
679 011566 012760 000001

000024

(ZR

T13

FORMAT

% 011572

(CHANGE

TEST

012760

000005

000024

683 011600
684 011606
685 011614
686 011622
687 011630
% 011636

072737
012737
016237
012737
012737
012737

000000
000005
000002
054636
177777
000061

001420
001446
001444
001416
001414
001412

€90 011644

004737

022432

011650

gg; 011654

682

011652

701

702 011706

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

;LOAD FORMAT MODE IN RMOF
:LOAD RMMR1
#DMD 'M1,RMMRT (RO}
;LOAD RMMR1

;SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT
MOV
MOV
MOV
MOV
MOV
MOV

#0,RMDAO
#5.RMDCO
2(R2) ,RMOFO
#BUFFER, RMBAO
#=7 ,RMWCO
#WD ! GO,RMCS10

JSR

PC,ENBSCH

JEXECUTE DATA COMMAND TO POINT WHERE

000402

208

:BRANCH TO 208 IF NO ERROR

000514

608

104000

EMT

693
gg/.s s

696 011656
697 011664
698 011672
933 011700

MOV
MOV
MOV

012760 051403
012760 051443
012760 051403
012760 051401

000024
000024
000024
000024

016037

001142

#DMD 'MUR ! DBEN 'MOC 'MSEN'MSC ,RMMR1(RO)
:LOAD RMMR1
#DMD | MUR i DBEN 'MOC IMSENMSC 'MS,RMMR1 (RO) -LOAD RMMR1
#DMD ' MUR | DBEN 'MOC 'MSENMSC .RMMR1(RO)
-LOAD RMMR1
#DMD | MUR i DBEN :MOC ' MSEN, RMMR1 (RO)
*LOAD RMMR1

;VERIFY THAT DRIVE TIMING ERROR DIDNT SET

001136

BEQ
MOV
ADD

308
RO, S8DADR
#RMER1
, SBDADR

708 011742
709 011746

011237 001174
016237 000002 001176

MOV
MOV

(R2) ,$TMPO
2(R2) ,$TMP1

;}12 011756

000453

042737

000014

MOV
MOV
MOV
MOV

RMER1 (RO)
, SBDDAT

167777

704 011722 001416
705 011726 010037 001136
706 011730 062737 000014
707 011736

710 011754

005037

001140

001142

;112 011760

051405

000024

012760
012760

051403
051443

000024
000024

723 012010
726 012016
725 012026

012760 051441
012760 051401
016037 000014

000024
000024
001142

727 012040
728 0120642

001012
010037

001136

730 012054

012737

010000

718 011766
719 011774

;59 012002

722

726 012032

729 012046

731 012062

CLR

EMT

:STORE RMER1 AT S$BDDAT

#~CDTE, SBODAT

:SETUP ERROR MESSAGE

SGDDAT

608

:A FORMAT CHANGE

:CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE

012760

717

BIC

104025

713

714 011760

:SEARCH 1S ENABLED USING SUBROUTINE.

:FORMAT CHANGE FLOP SHOULD BE SET = VERIFY BY TRYING TO FORCE A
582”‘ TIMING ERROR WHICH SHOULD NOT SET.

MOV

703 011714

012760

042737

062737

104027

051403

167777

000014

000024

001142
001136

001140

308:

MOV

#DMD ' MUR ! DBEN 'MOC !MSEN'M] , RMMR1 (RO)

:LOAD RMMR1

;ENABLE SEARCH AND FORCE SECTOR COMPARE

MOV
MOV

MOV

#DMD 'MUR ' DBEN'MOC 'MSEN'MSC ,RMMR1(RO)
:LOAD RMMR1
#DMD | MUR | DBEN | MOC | MSEN MSC 'MS ,RMMR1 (R0O) :LOAD RMMR1

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

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

:LOAD RMMR1

MOV
MOV
MOV

#DMD | MUR ! DBEN 'MOC 'MSEN 'MS , RMMR1 (R0)
:LOAD RMMR1
#DMD | MUR i DBEN | MOC ' MSEN , RMMR1 (R0)
*LOAD RMMR1
RMER1 (RO) , SBDDAT
:STORE RMER1 AT $BDDAT

BNE
MOV

408
RO, SBDADR

BIC

#~CDTE
, SBODAT

ADD

#RMER1, $BDADR

EMT

MOV

#DTE, SGDDAT

;SETUP ERROR MESSAGE

SEQ 0067

CZRMQBO RMQS5/3/2 DSKLS TST 2
T13%
FORMAT CHANGE TEST

;32 012064

MACRO v04.00 4-APR-81 01:29:56 PAGED 1?-15
B8R

000410

608

132 TEST W/18

022702
001005
005722
000626

012100

010000
000000
010000

#508 ,R2

(R2) +

60%

:BRANCH IF DONE TEST

B8R

108

*REPEAT TEST

.WORD
JWORD
"WwORD

FMT16
0
FMT16

60%:
A

AR R

S*TEST 14
R

767

748 012134

749 012140

750
751
752
753
754
755

012144

012152
012160
012164
012164
756 012172
757 012200
758 012206
759 012214
760 012216
761 012220
762 012222

763 012226

764 012230
765 012232
766 012236

012236

767 012244
768 012252
769 012260
770 012266
771 012270
772 012272
773 012274
774 012302

775 012304
776

001100
001276
001466
000014

004737
010037
062737

022404
001136
000024

012760
012702

000001
000021

000024

012760

004001
000001
000024
177737

000024
000024
001142
001142

001406

005302
001361
005037

001140

000501
012702

000021

104000

012760
012760
016037
042737
001007

005302
001361
012737
104030

000453

AR AR

T$T14:

000004
0006240
012706
013700
013701
C12737

012760
016037
042737

TO 16 FORMAT CHANGE DURING SECOND EXECUTION

BNE

508:

SEQ 0068

AR R

‘MOVE POINTER

:16=18 FORMAT CHANGE
©18=16 FORMAT CHANGE

JEND OF TEST
A

PROM STROBE
R

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

001136

JSR
MOV
ADD

2222222222222

2222%

TEST

2222222222222

;SCOPE CALL
#STACK, SP

$BASE ,R0

TSTQUE ,R1
#14,$TESTN
PC.CNTCLR

RO, $BDADR

#RMMR1, SBDADR

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

*R1 = POINTER TO DEVICE
::SET TEST NUMBER IN APT MAIL BOX
;GO CLEAR CONTROLLER

:SETUP ERROR MESSAGE

;SET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE
5%:

MOV
MOV

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

;LOAD RMMR1
*R2=MAXIMUM # CLOCK PULSES

#DMD
' MCLK , RMMRT (RO)

:LOAD RMMR1

#DMD
. RMMR1(RO)
;LOAD RMMR1
RMMR1 (RO) , SBDDAT
:STORE RMMR1 AT SBDDAT
#~CWC, SBDDAT

004001
000001
000024
177737

5%
$GDDAT

000024
000024
001142
001142

6%:
10%:

MOV

001140

#DMD 'MCLK ,RMMR1 (RO)

:LOAD RMMR1

RMMR1 (RO) , SBDDAT

:STORE RMMR1 AT $BDDAT

#DMD .RMMRT (RO)
#-CWC, $BDDAT

DEC

000040

60%

#17..R2

EMT

sgs
108

#WC, SGDDAT

30
0%

;LOAD RMMR1

;EXIT LOOP WHEN PROM STROBE ON

CZRMQBO RMOS/3/2 DSKLS TST :2

PROM STROBE

TEST

MACRO Vv04.00 4-APR-81 01:29:56 PAGEE 12-16

778 012306

779 012306

: VERIFY PROM STROBE

780 012312
012312

012702

000003

012760

004001

782 012326

016037

000024

781 012320

012760

783 012334
784 012342

042737
001005

786 012344

012737

785

787 012352

788 012354

789 012356
m 012360

792

793 012362
794 012366

104032

000024

177737

001142

000040

005302
001354

C12366

012760

004001

797 012410
798 012416
799 0126420

042737
001404
005037

177737

38'5' 012434

104033
000402
005302
001355

000001
000024

000024

000024
001142

001142

001140

508:

608 :

000004
000240
012706
013700

807 C12454

012737

000015

001226

809 012462
810 012470
811 012476

012737
012737
012737

000005
000000
010000

001446
001420
001444

816 012526

004737

022432

012532
012534
817 012536
818 012540

000402
104000
000562

808

812 012504
813 012512
g}lso 012520

012737
012737
012737

RMRi(RO),SBDDAT

;STORE RMMRT AT $RBDDAT

BIC
BNE

#*CWC, $BDDAT
308

MOV

#WC,$GDDAT

001100
001276
001466

054636
177777
000061

;LOAD RMMR1

JBRANCH IF PROM STORBE DID NOT

;DROP EARLY

60%

R2
25%

MOV

#8..R2

MOV

#DMD !MCLK ,RMMR1 (RO)

MOV
MOV

BIC
BEQ
CLR
EMT
BR
DEC
BNE

;LOAD RMMR1

#DMD
, RMMRT (RO) ;LOAD RMMR1
RMMR1 (RO) , SBDDAT
;STORE RMMR1 AT $BDDAT
#*CWC,$BDDAT
508
$GDDAT
33
60$
R2
408

A AR

N R

;BRANCH IF PROM STROBE
;DID NOT SET EARLY

A AR A AR R

R AR RN AR N AR AN AN AR AR AR C R IR R

s*TEST 15

SYNC WORD COUNT INHIBIT TEST

TST15:

012434
012436
012440
012444

013701

;LOAD RMMR1

#DMD ,RMMRT (RO)

DEC
BNE

40%:

012450

#DMD !MCLK ,RMMR1 (RO)

sVERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS

806

012434

MOV

30%:

(CLOCKS

#3.,R2

MOV

001140

IS ON FOR 3 BIT

MOV

001142

000427

012760
016037

25%:

EMT

000010

800 012424
801 012426
802 012430
803 012432

000024

000001

012702

795 012374
796 0126402

208
:

SEQ 0069

A AR A AR AR

SCOPE
NOP
MOV
MOV

MOV

R R

A AR AR A AR AN IR AR

AR AR

RRR AT RA

:SCOPE CALL
#STACK,SP
$BASE RO
TSTQUE ,R1

#15,8TESTN

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

;;SET TEST NUMBER IN APT MAIL BOX

;SETUP REGISTER OQUTPUT BUFFER FOR SUBROUTINES

001416
001414
001412

MOV
MoV
MOV

#5 ,RMDCO
#0,RMDAOD
#FMT16,RMOFO

s CYLINDER=5
:SECTOR=0, TRACK=0
216 BIT FORMAT

JSR

PC,ENBSCH

sEXECUTE DATA COMMAND TO POINT WHERE

BR
EMT
BR

108

+SEARCH IS ENABLED USING SUBROUTINE.
JBRANCH TO 108 IF NO ERROR

120%

sSKIP IF FAILURE

MOV
MOV
MOV

10%:

#BUFFER,RMBAO
#-1,RMWCO
#WD!GO,RMCS10

;STARTING BUFFER ADDRESS
:WORD COUNT
;WRITE DATA COMMAND

CZRMQBO RMOS5/3/2 DSKLS

T1S

SYNC WORD COUNT

819 012540
C12544

004737

TST 2

INHIBIT

MACRO V04.00 4-APR=-81 01:29:56 PAGE 1?-17
F

TEST

023304

012546
820 012550
821

822

823
824
825 012552
826
827
828 012556
829 012556
830 012564
831
832
833 012572
834 012576

835 012602
836 12604
837
838
839 012606
840 012612
841 012620
842 012622

843 012626
844 012632
845 012640

846 012644
847 012646
848
849
850 012650
851 012650
852 012654
853
854
855 012656
856 012656
857 012664
858
859
860 012672
861 012676
862 012702
863 012704
864

865
866
867 012706
868 012706
869
870
871 012712
872 012712
873 012720

JSR

PC,SCTCMP

120$

?fir

20$

SEQ 0070

;FORCE SECTOR COMPARE USING SUBROUT INE

:BRANCH TO 20% IF NO ERROR

:CAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET

012702

srep THE SEQUENCER TO LOCATION 10¢10) WHILE CHECKING ‘PLFS’’

208

000000

MOV

#0,R2

: PULSE MAINTENANCE

012760
012760

055401
051401

015003
032703
001765
005202

000024
000040

010337
042737
001413
005037
010037
062737
010237

000024
000024

308

MOV

#DMD ! MUR ! DBEN!MOC 'MSEN'MCLK ,RMMRT(RO)

#DMD I MUR | DBEN ! MOC IMSEN, RMMRT (RO)

:LOAD RMMR1

“LOAD RMMR1

;STORE RMMR1 AT R3
;ISSUE NEXT BIT CLOCK
s INCREMENT SEQUENCER ADDRESS

;CHECK "LOOKING FOR SYNC'' = SHOULD BE ZERO UNTIL LOCATION 11
MOV
R3,$8DDAT
BIC
BEQ
CLR
MOV
ADD
MOV

001136

104034
000516

EMT
BR

§5§IT LOOP IF

022702
001414

CLOCK UNTIL PROM STROBE SETS

sSEE IF PROM STROBE IS SET
MOV
RMMR1(RO) ,R3
BIT
#WC,R3
BEQ
308
INC
R2

001142

;R2=SEQUENCER ADDRESS

000012

CMP
BEQ

#*CPLFS,SBDDAT
508
SGDDAT
RO, $BDADR
#RMMR1
, $BDADR
R2,$TMPO

34
1208

sBRANCH IF PLFS IS ZERO

;SKIP REST OfF TEST

SEQUENCER NOW AT LOCATION 10

#10. ,R2
708

;PULSE MAINTENANCE CLOCK UNTIL PROM STROBE RESETS

012760
012760

055401
051401

016003
032703
001365
000724

000024
000040

000024
000024

60%

MOV
MOV

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

;SEE IF PROM STROBE IS RESET
MOV
RMMR1 (RO) ,R3
BIT
MC ,R3
BNE
608
BR
308

;LOAD RMMR!
:LOAD RMMR1

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

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

012702

012760
012760

70$

000020

055401
051401

000024
000024

21 SSUE
80%:

MoV

#16. ,R2

;R2=NUMBER OF BIT CLOCKS

16 BIT CLOCKS TO GET NEXT PROM STROBE
MOv

Mov

#DMD !MUR | DBEN !MOC !MSEN!MCLK
,RMMRT(R0O)

#DMD ! MUR ! DBEN !MOC !MSEN,RMMR1 (RD)

;LOAD RMMR!

sLOAD RMMR1

G
MACRC
v04.00
4=-APR-81
01:29:56
PAGE
1%-18
SYNC WORD COUNT INMIBIT

CZRMQBO RM(QS/3/2 DSKLS

T1S

874 012726
875 012730
876
877
878 012732
879 0127640
880 012746
881 012750
882 012756
883 012762
884 012770
885 012772
886
887
888 012774
889 012774
890 013000
013000
891 013006
892 C13014
893 013016
894
895
896
897 013020
898
899
900 013024

013074
013076
013100
013102

TEST

005302
001370
016037
042737
001012
012737
010037
062737
104035
000444

DEC

BNE
000024
175777

001142
001142

002000
001136
000024

001140

MOV
BIC
BNE
MOV
MOV
ADD
EMT
BR

012702

000003

80%
RMMR1 (RO) , $BDDAT
;STORE RMMR1 AT $BDDAT
#°CPLFS,$BDDAT
90%
JBRANCH IF PLFS IS SET
#PLFS,$GDDAT
JSETUP ERROR MESSAGE
RO, $8DADR
#RMMR1, $BDADR
35
120%
;SKiP REST OF TEST

012760
012760
005302
001370

055401
051401

000024

95"

MOV

#3,R2

;

MOV

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

BNE

95%

ggg

:gMD!HUR!DBEN!MOC!MSEN.RMMR1(RO)

;LOAD RMMR1

sWITH "'LOOKING FOR SYNC SET, FURTHER BIT CLOCKS SHOULD NOT SET

012702

;PROM STROBE
MOV

000040

#32..R2

;R2=NUMBER OF BIT CLOCKS

igggSE BIT CLOCx AND VERIFY PROM STROBE DOES NOT SET

104036
000402
005302
001350

055401
051401
000024
177737
001140
001142
001136
000024

000024
000024

MOV

MOV
MoV
BIC
BEQ
CLR
MoV

001136

#*CWC,R3
1108
$GDDAT
R3,$BDDAT

RO, $SBDADR

EMT
BR

36
120%

ADD

110%:

#DMD ! MUR ! DBEN !MCC !MSEN!MCLK ,RMMR1 (R0O)

#DMD ! MUR ! DBEN!MOC !MSEN,RMMR1 (RC)
RMMR1(RO) ,R3
;STORE RMMR1 AT R3

MOV

DEC

BNE

;

;LOAD RMMR1

JBRANCH IF PROM STROBE IS O
;SETUP ERROR MESSAGE

#RMMR1, $BDADR
R2

100%

120%:

JCONTINUE FOR 32 BIT CLOCKS

;END OF

TEST

.'"tttt...'tt'ttt.tttl'tt‘."fl...'.Qti".'tttt'.'.“'t""i.t't.'t

;*TEST 16

916

JVERIFY THAT 'PLFS'' IS NOW SET

001136

G13104

013104
013104
013106
013110
013114
013120
e 013126

SEQ 0071

6é§SUE 3 MORE BIT CLOCKS TO RESET PROM STROBE

901 013024
012760
902 013032 012760
903 013040 016003
906 013044 042703
905 013050- 001413
906 013052
005037
907 013056 010337
908 013062 010037
909 013066
062737

910
911
912
913
914
915
916
917

TST 2

SYNC DETECTION TEST

:.-Qt..t'ttl..t't"ttttti't"l‘!'ltt'tt't't"ifi.l"t‘ttitlt"i-'tt'n

000004
000240
012706
013700
013701
012737

TST16:

001100
001276
001466
000016

001226

aggPE
MOV
MOV
MoV

MOV

:SCOPE CALL
#STACK,SP
$BASE ,RO
TSTQUE ,R1

#16,8TESTN

JLOAD THE STACK POINTER
sRO = UNIBUS ADDRESS
JR1 = POINTER TO DEVICE

J2SET TEST NUMBER IN APT MAIL BOX

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

CZRMQBO RMOS5/3/2 DSKLS IST 2
e
SYNC DETECTION TEST

920 013132
921 013140
922 013146
923 013154
924 013162
925 013170
926
927 013176

MACRO Vv04.00 4&=-APR=-81 01:29:56 PAGE 12-19
H

001420
001446
001444
001416
001414
001412

013202
013204
108:

023304

013214
013216

931 013220
332 013222
933 013222

20%:

023412

013226
013230

934 013232
3935
936

937
938 013234

939 013234
940 013240
941 013244
942 013252
943 013256
944 013264
945 013264
946 013272
947 013300

948 013306

949 013314
950 013316
951 013324

952 013326
953 013330
954 013330
955 013332
956 013334
957
958
959 013340
960 013340
961 013346
962 013354
963 013362
964 013370

965 013372
966 013376
967 013400
968 013402
969 (013402

#5,RMDCO
#FMT16,RMOF
O
#BUFFER ,RMBAO

MOV

022432

928 013206
929 013210
930 013210

#0,RMDAO

MOV

SEQ

TOR 0,TRACK 0

INDER 5
BIT MODE

MOV
MOV
MOV
MOV

#=1,RMWCO
#RD !GO,RMCS10

s €ORD COUNT
JREAD DATA COMMAND

JSR

PC,ENBSCH

BR
EMT
BR

10%

JEXECUTE DATA COMMAND TO POINT WHERE
;SEARCH 1S ENABLED USING SUBROUTINE.
;BRANCH TO 10% IF NO ERROR

JSR
BR
EMT
BR

PC,SCTCMP

JSR
BR
EMT

PC,SETLFS

FER ADDRESS

1008

20%

;FORCE SECTOR COMPARE USING SUBROUT
INE
;BRANCH TO 20% IF NO ERROR

1008

308

;SET “LOOKING FOR SYNC'' USING SUBROUT INE
;BRANCH TO 30% IF NO ERROR

sCLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED
: (USING PROM STORBE AS

012702
010037

062737
005037
012760
012760
012760
016037
042737
001405
012737
104037
000500
005302
001354

012702

012760
012760
016037
042737
001404
005037
104037
000453

005302

000020
001136
000024
001140
053401

308:
001136
000024

057401
053401
000024

177737

000024
000024
001142
001142

177777

001174

:
408

50%:
000020

055401
051401
000024
177737

001174

000024
000024
001142
001142

MOV
MOV
ADD
(LR
MOV

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

;NUMBER OF ONE BITS
;SETUP ERROR MESSAGE

$GDDAT

AMRIAAA!MRD ,RMMR1(R0O)

;LOAD RMMR1

MOV
MOV
MOV
BIC
BEQ
MOV
EMT
BR

#MR1AAA !MRD 'MCLK ,RMMR1(RO)

DEC
BNE
MOV

28’

;REPEAT FOR 16 BITS

#16..R2

:NUMBER OF ZERO BITS

;CLOCK ALL ZERO
60%:
MOV
MOV
Mov
BIC
BEQ
CLR
EMT
BR
70%:

INDICATION)

DEC

#MRIAAA'MRD RMMRT(RO)

RMMR1(RO) , SBDDAT
#*CWC,SBDDAT

;LOAD RMMR1

:LOAD RMMR1

;STORE RMMR1 AT $BDDAT

508
g;?????.STHPO

1008

SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED
AMRTAAA'MCLK ,RMMRT (RO)

:LOAD RMMR1

RMMR1 (RO) , SBDDAT

*STORE RMMR1 AT $BDDAT

#MR1AAA . RMMR1 (RO)

;aguc.saoon

:LOAD RMMR1

:MAKE SURE SYNC NOT DETECTED

100%

;SKIP IF FAILURE

:REPEAT FOR 16 BITS

007

CZRMQBD RMQOS5/3/2 DSKLS TST 2

SYNC DETECTION TEST

970 013404
971 013406

37¢ 013412

001355
012702

012703

MACRO V04.00 4&-APR-81 01:29:56 PAGE[ 1?-20
BNE
MOV

000040

000031

MOv

$76 013416
977 013424
978 013426
979 013430

012737
000241
006003
103003

280 013432 052737

051401

002000

001436

985 013470
986 013476
987 013504

013760
016037
042737

989 013514

005302

988 013512

001006

990 013516 001337

991 013520
992 013326

993 013530

012737
104040

004000
001436
004000

001436
000024
177737

000040

80$:

001436
001436
000024
001436

CLC
ROR
BCC

;R2=NUMBER OF BITS

:R3=SYNC PATTERN FOR LEFT SHIFT

R3
90%

#MRD , RMMR 10

MOV

RMMR10, RMMR1 (RO)

BNE

#MR1AAA ,RMMR10 ; GENERATE VALUE OF RMMR1

BIS

MOV
MOV
BIC

1008:

Mov

BIS
MOV
BIC

000024
001142
001142

001140

,R2

#000031,R3

iCLOCK
THE BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS

013440 013760 001436 000024

982 013446 052737
983 013454 013760
984 013462 042737

60$
#32.

SEQ 0073

#MCLK , RMMR10
RMMR10, RMMR1 (RO)
#MCLK , RMMR10

RMMR10,RMMR1(RO)
RMMR1(RO),SBDDAT
#~CWC
, SBDDAT

1008

DEC

MOV
EMT

#WC,SGDDAT
40

BNE

80s

‘CLEAR THE CARR
*SHIFT RIGHT
:BRANCH IF C BIT CLEAR

*SET MRD IF PATTER BIT SETS

;LOAD RMMR1

:SET THE MAINTENANCE DATA (LK
:LOAD RMMR1
RESET BIT CLOCK
:LOAD RMMR1
:STORE RMMR1 AT $BDDAT

:BRANCH IF PROM STROBE IS SET
:CONTINME FOR 16 BIT CLGCKS

;END OF TEST

.':'i..'!""l‘.‘Qtfi.'."""'Q't'.......Q!...'t.'.ttl’....t.ttt.'tt

T*TEST 17

::ttt'ti'ttl‘t't..'..it'."'.'t.tt.'.t"..'."Qtt.’tttt'tt"t.t.i'

013530

15117:

013530 000004

013532 000240
01353, 012706
013540 013700

001100
001276

013544

013701

001466

000017

001226

998 013556
999 013564

012737
012737

000000
000005

001420
001446

1001 013600

012737

054636

001416

1005 013622

004737

022432

013626

000402

100 3632

000447

¢ 14640

004737
000402

1009 013644

000442

oo 013550

997

1000 013572

1002 013606
1003 013614

013630

1007 . "634
1608 07634

013642

1010 013646

ABORT SYNC DETECTION TEST

012737

012737
012737

010000

177777
000071

SCOPE
#STACK,SP
$BASE,RO

MOV

#17,STESTN

MOV

TSTOUE ,R1

:LOAD THE STACK POINTER
RO = UNIBUS ADDRESS

:R1 = POINTER TO DEVICE

::SET TEST NUMBER IN APT MAIL BOX

:SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

001444

MOV
MOV

#0,RMDAO
#5.RMDCO

;SECTOR 0, TRACK 0
:CYLINDER'S

MOV -

ABUFFER,RMBAO
#=1,RMWCO
ARD!GO,RMCS10

:STARTING BUFFER ADDRESS

WORD COUNT
:READ DATA COMMAND

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

108

:BRANCH TO 108 IF NO ERROR

508

JSR
BR

PC,SCTCMP
20%

508

MOV

001414
001412

MOV
MOV

104000

EMT

023304

:SCOPE CALL

NOP
MOV
MOV

108:

104000

EMT

20%:

WFMT16,RMOFO

:16 BIT FORMAT

:SEARCH IS ENABLED USING SUBROUTINE.

;FORCE SECTOR COMPARE USING SUBROUT INE
:BRANCH TO 20$ IF NO ERROR

- (ZRMQBO RMQ0S5/3/2 DSKLS TST 2
T/

ABORT

1011

MACRO Vv04.00 4-APR-81 01:29:56 PAGEJ 12-21

SYNC DETECTION TEST

013646

004737

013654
}835 013656

104000
000435

013652 000402

023412

1014
1015
1016

1017 013660

;8}3 013660 012760
1020

1021 013666
1022 013672

012702

051441

1026 013714

1027 013722

1028 C13724

042737

001013

1033 013750
1034 013752
1035
1036

177737

062737

104041

PC,SETLFS

EMT
BR

508

308:

MOV

000024

"'LOOKING FOR SYNC'' USING SUBROUT INE

*BRANCH TO 30$ IF NO ERROR

#MR1AAA
M5, RMMRT(RO)

‘DRIVE

TIMING ERROR'’

:LOAD RMMRT

;PULSE BIT CLOCK AND VERIFY PROM STROBE SETS

000024
000024
001142

408:

001142

MOV

#16. ,R2
;R2, NUMBER OF BIT CLOCKS
#MR1AAA 'MS 'MCLK ,RMMR1 (RO)
;LOAD RMMR1
#MR1A
IMS RMMRT
AA
(RO)
:LOAD RMMRT
RMMR1 (RO)
, $8DDAT
*STORE RMMR1 AT $BDDAT

MOV
MOV
MOV
BIC

#2CWC, $SBDDAT

BNE

508

DEC

000040
001136

;SET

30$

;LOOKING FOR SYNC INHIBITS WORD CLOCK HOWEVER,
*SHOULD RESET
'LFS WORD COUNT INMIBIT" FLOP
‘FORCE DRIVE TIMING ERROR

005302

1029 013726 001361
1030 013730 012737
1031 013736 010037
1032 013742

000024

000020

1023 013672 012760 055441
1024 013700 012760 051441
1025 013706 016037 000024

JSR

B8R

SEQ 0074

001140
001136

BNE
MOV
MOV

408
#C, SGDDAT
RO, $8DADR

EMT

ADD

508
:

1037

AR R AR R

#RMMR1
, $BDADR

TRTEST 20

AR R AR AR

R R R AR AR AR AN A AN R AR R AN AR AR

AR AR AR

R AR

R RS

SYNC GENERATION TEST

:."ttt.ttt"'....'t"".'Q..'Q..fi.tt'..'.'tt.i'..tt't.ttttttt..t'

013752

75120:

013752 000006
013754

013756
013762
013766
o 013772
1039

000240

012706
013700
013701
012737
:

9001100
001276
001466
000020 001226

1040 C14000
1041 014006
1062 014014
1043 014022
1044 014030

012737
012737
012737
012737
012737

000000
000005
010000
054636
177776

1047 014044

004737

022432

;&g 014036 012737 000063

001420
001446
0071444
001416
001414

MOV
MOV
MOV
MOV

014052

104000

000137

014444

1050 014060

004737

023304

014066

104000

1049 014060

014064

000402

#STACK, SP
SRASE ,RO
TSTQUE ,R1
#20,$TESTN

;SCOPE CALL
;LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

001412

MOV
MOV
MOV
MOV
MOV

#0,RMDAOD
#5_RMDCO
#FMT 16, RMOF O
#BUFFER , RMBAD
#-2 ,RMWCO

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

B8R

108

*BRANCH TO 108 IF NO ERROR

JMP

1608

JSR

PC,SCTCMP

MOV

014050 000403

1048 014054

SCOPE

NOP

EMT

108:

EMT

;SECTOR 0, TRACK 0
SCYL S
16 BIT MODE
*BUFFER ADDRESS
*WORD COUNT

#WH GO, RMCS10

20$

*WHITE HEAD AND DATA COM

*SEARCH IS ENABLED USING SUBROUTINE.

;FORCE

SECTOR COMPARE USING SUBROUTINE

*BRANCH TO 20% IF NO ERROR

(ZRMQBO RMO5/3/2 DSKLS TST 2
120
SYNC GENERATION TEST
1051

014070

MACRO V04.00 4-APR-81 01:29:56 PAGEK 1?-22
B8R

000565

;WRITE PROM OF

016037

000040

1060
1061
1062
1063
1064

005037
010037
062737
104042
000545

001140
001136
000040

1058 014100
1059 014106
014110
014114
014120
014126
014130

1065

042737
001011

177776

001142
001142

1068
1069
1070
1071
1072

012702

000016

016037
032737

000040
000001

1074 014154
1075 014156
1076 014160

005302
001367
010037

1079 014200
1080 014202
1081 014204
1082
1083 014204
1084 014204
1085 014212
1086 014220
1087 014224
1088 014230
1089
1090

104042
000520

1073 014152

1077 014164
1078 014172

001136

Y
I

IS ON,

RMMR2 (RO) , SBDDAT
#~CBB00, $BDDAT
308

MOV

RO, $BDADR

1608$

ADD
EMT

INDICATING THAT

;STORE RMMR2 AT $BDDAT
“BUS BIT 0 IS WRITE GATE
y

$GDDAT

#RMMR?2
, SBDADR
42

:FORMAT=CS FAILURE

012760
012760
016003
032703
001765

001136

000040
000001

001142
001142

58275

STAYS ON

l.os.

MOV

#14. ,R2

;MAXMUM NUMBER OF CLOCK

mov
BIT

RMMR2 (RO) , SBDDAT
#8500, SBDDAT

;STORE RMMR2 AT $BDDAT
:

001136
001140
508:

055401
051401
000024
000040

000024
000024

60%:

BNE
DEC
BNE
MOV
ADD
gg}/
BR
MOV
MOV
MOV
BIT
BEO

50$
408
RO, $BDADR
#RMMR2 , SBDADR
«rasoo42 ,$GDDAT
1608

;FORMAT = CS FAILURE

#MRTAAA 'MCLK,RMMR1(RO) :LOAD RMMR1
#MR1AAA RMMRT (RO)
*LOAD RMMR1
RMMR1(R0),R3
;STORE RMMR1 AT R3
MIC,R3
608

:PROM 5"32%5 c»%zm-oecnenem PROM STROBE COUNT

005302
001414

BEQ

80$

%ngn FOR PROM STROBE TO GO OFF,
012760
012760
016003

032703
001725
000764

*BRANCH IF WRITE GATE ON

055401
051401
000024

000040

000024
000024

B8R

THEN REPEAT LOOP

AMR1AAA 'MCLK ,RMMR1 (RO) ;LOAD RMMR1
AMR1AAA RMMRT (RO)
*LOAD RMMR1
RMMR1(RO),R3
;STORE RMMR1 AT R3
MIC,R3
408

708

062737
012737

;VERIFY HEADER SYNC GENERATION
;WRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER

14266
1164266

014256
014262
014264

001014

e I

25253233

1091 014232
1092 014234
1093
1094
1095 014236
1096 014236
1097 014244
1098 014252

1
1
1
1

DATA TIMING SEQUENCER SHOULD NOW BE ENABLED

:STEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE

014132
014132
C14136
014136
014144

)

MoV
BIC
BNE

CLR

1066

1067

SEQ 0075

1608

*FIRST, VERIFY THAT WRITE GATE
égggmn COMPARE SET

1056 014072
1057 014072

'
.

;FIRST,LOUNT NUMBER OF

012702

000020

80%:

Mov

#16. ,R2

ZERO BITS UNTIL

FIRST ONE BIT

JMAX TIMES THRU LOOP

|. T20
CZRMQBO RMOS5/3/2
DSKLS TST %
SYNC GENERATION TES
1108 014272
1109 014274

014274

1110 014300
1111 014304
1112 014306
1113 014310
1114 014312
1115 014314
1116 014316
1117 014320
1118 014320
1119 014326

H%? 014334

MACRO v04.00 4-APR-81 01:29:56 PAGEL 1?-23

005003

016004

032704
001414
00520
0053C2
001002
104043
000452
012760
012760

000757

90%:

000024

000010

055401
051401

000024
000024

1122

1123 014336
1124 014336

1125 014342

1126 C14344

Hgg 014346

020327

103002

MOV
MOV

016004
006303
032704
001002
052703
005302
001407
012760

”22 014416

000757

000010

JJUMP OUT OF LOOP WITH FIRST
s INCREMFNT ZERO COUNT
JDECREMcNT MAX LOOP COUNT

JHEADER SYNC

90%

,CANT GET FIRST

;LOAD RMMR1
;LOAD RMMR1

R3,48.

EMT

1208
1608

sHEADER SYNC

005003

012760

012737
(10337
023737
001401
104044

1208:

000010

1308:

000024
000010

000001
055401

051401

000230
001142
001140

1408:
000024

000024

001140

001142

MOV

#8..R2

MOV
ASL
BIT
BNE
BIS
DEC
BEQ
MOV

RMMR1 (RO) ,R4
;STORE RMMR1 AT R4
R3
MWD , R4
sSHIFT SAMPLE,IF SYNC BIT
1408
sTHEN SET SAMPLE INPUT
#BITO0,R3
R2
1508
AMRIAAA 'MCLK ,RMMR1(RO)
:LOAD RMMR1

1308

CLR

MOV

160%:

BEQ
EMT

012706
013700
013701

TST21:

001100
001276
001466

JHEADER SYNC

m1m.mi (RO)

IS 1

;LOAD RMMR1

;DO LOOP TIL R2=0

1608
44

A AR A A AR R A AR AR R

;*TEST 21

000004
000240

JNUMBER OF SAMPLES

;VERIFY THE SYNC BIT STREAM IS 0000000010011000
1508
:
MOV
#000230,$GDDAT
Mov
R3,$BDDAT
CMP
$GDDAT, $BDDAT

SRR

014450
014454
014460

sSTORE RMMR1 AT R4

#MRTAAA!MCLK ,RMMRT(RO)
#MR1AAA ,RMMR1 (RO)

CMP

BHIS
BR

1154

014444
014444
014446

#MWD
, R4
1108
R3
R2
1008
43
160%

;SAMPLE AND STORE THE REST OF THE HEADER SYNC

1134 014356
1135 014362
1136 014364
1137 014370
1138 014372
1139 014376
1140 014400
1141 014402

1150 014440
1151 014442
‘”gg 014444

RMMR1 (RO) ,Ré4

BIT
BEQ
INC
DEC
BNE
EMT
BR

110%:

104043

012702

1145
1146 0144,
1147 014420
1148 014426
1149 014432

MOV

000436

1130 014350
1131 014350
1132 014354

1142 014410

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

1129

1133 014356

100%:

CLR

SEQ 0076

SCOPE
NOP
MOV
MOV
Mov

AR AR R AR R A AR AR AR

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

WRITE HEADER TEST
AR AR AR AR R

R AR AR R AR AR R

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

;SCOPE CALL

#STACK,SP
$BASE ,RO
TSTQUE ,R1

sLOAD THE STACK POINTER
JRO = UNIBUS ADDRESS
sR1 = POINTER TO DEVICE

CZRMQBO RMQS5/3/2 DSKLS TST 2

R rd

014532
014536

WWWW

001226

001466
001334
000036
010000

001446
001420
001420
001444

054636

MOV

R2,RMBAQ

150000
001466

MOV
BIS

#150000,(R2)

MOV
MOvB
MOV
MoV

#30., (R2)
#=2.RMWCO
#MH GO,RMCS10

*SECTOR ADDRESS.
“2 WORDS (2'S COMP)
‘WRITE HEADER COMMAND

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

014572
014574

000403

000137

015432

BR
EMT
JMP

004737
000403

023304

000137

015432

014616
014616
014622

012702
012704

JSR
BR
EMT
JMP

—_——

LSTRK, (R2)

108

:SET MF/UF BITS GOOD, 16 BIT FORMAT AND

:LAST CYLINDER

:STORE SECOND HEADER WORD
*SET LAST TRACK ADDRESS AND

:SEARCH 1S ENABLED USING SUBROUTINE.
*BRANCH TO 108 IF NO ERROR

1608
PC,SCTCMP

208

:FORCE SECTOR COMPARE USING SUBROUT INE

:BRANCH TO 208 IF NO ERROR

1608

208

000017
000041

:
308

MCV
MOV

#33. R4

sALLOW 15 MORE PROM STORBES
JALLOW 33 BI1 (LOCKS PER PROM STROBE

ngLSE BIT CLOCK UNTIL PROM STROBE IS ON

012760
012760

d wd

055401
051401
000024
000040

000024
000024

MOV

#MRIAAA 'MCLK, RMMRT(RO)

MOV

#MR1AAA .RMMR
T (RO)

BIT
BNE
DEC

MIC,R3
508
RéG

MOV
BNE
JMP

015432

o
ek o cd o
vl v

1202 014676
1203 014704
1204 014710
1205 014714

10%:

#822.,(R2)+

‘BUFFER 53TARTS

*STORE FIRST HEADER WORD

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

014626
014626

104000

—_——

JSR

ros~

022432

004737

014606
014610
014612

:2SET TEST NUMBER IN APT MAIL BOX

MOV

001416

014566

104000

#21,$TESTN

SEQ 0077

sSETUP THE REGIS TER OUTPUT BUFFER FOR SUBROUTINES
#822. ,RMDCO
;LAST CYLINDER
MOV
MOV
L§TRK RMDAO
*SET LAST TRACK AND
#30., ,RMDAO
MovB
‘LAST SECTOR
#FMTT6,RMOFO
:IN 16 BIT FORMAT
MOV
MOV
#BUFFER ,R2
*BUFFER ADDRESS

012737

S 3R IRBREC2BBRIRRRERTEIIVS

o
T
— o

000021

014552
014560

1175 014602

001334
000036
177776
000063

0 14542
0 14546

1173 014576
1174 014602

) wd v

NNUNNNN

D o

[elelele]

4472
4500
4506
4514
0 4522
0 4526

012737

oud

014464

VAW
NISBEAELRARZBBHLR

b e

d b d e o e e e

b e e

d b d e

WRITE HEADER TEST

MACRO Vv04.00 &-APR-81 01:29:56 PAGE 1?-24

:LOAD RMMR)

*LOAD RMMR1

RMMR1(RO) ,R3

;STORE RMMR1 AT R3

408
1608

:COUNT EXHAUSTED

éggf IF HEADER AREA CAME ON

032703
001062
005302
001015

000200

012737
005037
010037
062737

000200
001142
001136
000024

BIT
BNE
DEC
BNE
001140

001136

#PHA,R3
80%
R2
608

;ERROR-HEADER AREA NEVER CAME ON
MOV
CLR
MOV
ADD

#PHA , $GDDAT
$BDDAT
RO, $BDADR
#RMMR1
, SBDADR

;SETUP ERROR MESSAGE

|
|

| CZRMQBO RMO5/3/2 DSKLS TST 2
T2l

WRITE HEADER TEST

1206 014722

}5&73 014724

MACRO V04.00 4&-APR-81 01:29:56 PAGEN 1?-25

104045

EMT

000137 015432

JMP

1209

1210 014730

012760

055401

1213 014744

016003

000024

1214 014750

1215 014754
1216 014756

1217 014760
}g}g 014762

012760

032703

001404
005304

001363
000137

051401

000024

RMMR1 (RO ,R3

BEQ
DEC

703
R

#MR1AAA .RMMRT (RO)
MIC ,R3

608
1608

1224 015002

022737

000001

001142

1226 015012
1227 015016
1228 015024

010037
062737
012737

001136
000040
000001

}g? 015034

000576

;COUNT EXHAUSTED

042737

001704

104042

176000

708:

001142

MOV

RMMR2 (RO) , SBDDAT

cMP

#8800,$80DAT

;WRITE GATE SHOULD BE ON

MOV
ADD
MOV

RO, $BDADR
#RMMR2
, SBDADR
#8300, $GDDAT

1608

BIC

BEQ

001136
001140

EMT

#~C1777 ,$BDDAT
308

;STORE RMMR2 AT $BDDAT
;ALL ELSE OFF

;HEADER AREA IS NOW ON CAN START SAMPLE
:DATA AFTER S MORE BIT CLOCKS
80$:

012702

000005

015042
1237 015050

012760
012760

055401
051401

;523 015060

001370

1241
1242 015062
1243 015066

005037
005037

001174
001176

;SAMPLE AND STORE THE TWO HEADER WORDS
CLR
$TMPO
CLR
$TMP1

1245 015076

012703

000020

908:

1238 015056

1244 015072

005302

012702

1246 015102

005004

1248 0151064
1249 015110
1250 015112
1251 015116

016005
006304
032705
001002

1247 015104

1252 015120
1253 015124

012760
012760

055401
051401

1256 015142
1257 015144
1258 015146

001360
010422
022702
101415

001200

000024
000024

MOV

#5.R2

MoV
MOV

#MR1AAA !MCLK ,RMMR1(RO)
#MR1AAA
. kMMRT (RO)

BNE

81s

DEC

000010

015124
1254 015132

1259 015152

81%:

1008:

000024
000001

005303

000024
000024

001174

052704

1255 015140

*LOAD RMMR1

:;STORE RMMR1 AT R3

1235 015036
1236 015042

;LOAD RMMR1

:VERIFY THE TAG BUS ONCE EVERY PROM STROBE

001142

1232
1233
1234 015036

MOV

BNE
JMP

015432
000040

1229 015032

#MR1AAA 'MCLK ,RMMRT (RO)

BIT

016037

1225 015010

;SKIP REST OF TEST

MOV

000040

1222 014766
1223 014774

608
:

000024

1220

1221 014766

1608

:WAIT FOR PROM STROBE TO GO OFF

1211 014730

1212 014736

SEQ 0078

1108:

;LOAD RMMR1
*LOAD RMMR1

MOV

#STMPO,R2

:R2 NUMBER OF WORDS/ADDRESS

CLR

*WORD STORAGE

MOV
ASL
BIT
BNE

RMMR1(RO),RS
R&4
AMWD ,RS
1108

;STORE RMMR1 AT RS
*SHIFT WORD SAMPLE
“SET BIT O IF WRITE BIT ON

MOV
MOV

#MR1AAA
'MCLK ,RMMRT (RO)
#MRTAAA ,RMMRT (RO)

BNE
MOV
CMP

1008
R4, (R2)+
#$TMPO+4 ,R2

MOV

BIS

DEC

BLOS

#16. RS

:NUMBER OF BITS

#B1T0.R4

120%

;LOAD RMMR1
*LOAD RMMR1

:STORE WORD SAMPLE
*DONE ?
YES

9 SN SR3YX

125%:

1280 015240

1281 015244
1282 015246

001136
000024
001000
001142

1283 015252

1284 015260

1285 015266

1293 015304

015304

;CHECK NUMBER BITS DIFFCR BET PHA AND ECRC

MOV

RMMR1(RO),RS

:STORE RMMR?! AT RS

BNE
MOV
MOV

1278
‘BRANCH IF ECRC ON
#MR1AAA 'MCLK ,RMMRT(RO) :LOAD RMMR1
#MR1AAA . RMMRT (RO)
:LOAD RMMR1

cMP
BHI
MOV
ADD
MOV
CLR
EMT
BR

#16. .R3
125%
RO, $BDADR
#RMMR1 , SBDADR
#ECRC, $GDDAT
$8DDAT
46
1608

#*C<ECRC>,RS

:CHECK OUT THE REST BITS

;TOTAL NUMBER OF BIT DIFF

:OVER ONE WORD ?
*BRANCH IF NOT
;CLEAR THE EXP
SEXIT

:SAMPLE AND STORE CRC WORD
012703
005004

000020

016005
006304
032705
001002
052704

000024
000010

012760
012760

055401
051401

005303
001360
010422

FRSEIRERE

127%:

130%:

000001

000024
000024

MOV

#16. .R3

CLR

MOV
ASL
BIT
BNE
BIS

RMMR1(RO) ,RS
R4
#MD RS
1408
#BITO.RG

MOV
MOV
DEC
BNE
MOV

SMRIAAA'MCLK
. RMMR1(RO)
MR TAAA RMMRT (RO)
R3
1308
R&, (R2)+

:STORE RMMR1 AT RS
*SHIFT WORD SAMPLE
SSET BIT O IF WRITE BIT ON
:LOAD RMMR1
*LOAD RMMR1

001174

032737
001411
022737
001015

010000

001334

074110

001176

Qi
P Pourd

066313

022737
001025

SEER
RN

;VERIFY 3 HEADER WORDS

(elelele]

BWN=O

P
L
e

— bk
b

W NN NN

1294 015310
1295 015312
1296 015316

SZTS

INC

000020

;BRANCH IF ON

CLR

BIC

055401
051401

1292 015302

#*C<PHA>
RS

908
RO, $BDADR
#RMMR1
, SBDADR
#PHA, SGDDA T
45
1608

i%y UNTIL ECRC

000024
176777

1286 015272
1287 015274
1288
1289
1290 015276
1291 015276

SHOULD STILL BE ON FOR SECOND HEADER WORD

BNE
MOV
ADD
MOV
EMT
BR

G
S

o G

—d el el

001136
000024
000200

BIC

o (olelele]

3 FEEX

+HEADER AREA

177577

;NOTE THAT DATA WAS STORED IN THE REVERSE
;ORDER FROM WHICH IT WAS WRITTEN
LMP
#066313,$TMPO
sCORRECT FIRST HDR WRD ?
BNE
150%
:ND 1!

SVERIFY 2ND AND 3RD HEADER WORDS FOR AN RMOS
BIT
BEQ
CMP
BNE

#TA16,LSTRK

;1S DEVICE AN RMOS ?

145%

sNO 1!

1508

sNO !

#076110,8TMPT

;CORRECT SECOND HDR WRD ?

|
|

CZRMQBO RMO5/3/2 DSKLS TST 2

TRl

WRITE HEADER TEST

1315 015376 022737

1316 015404

001911

167073

MACRO v04.00

1321 015410
1322 015416

1323 015420

1324 015426
1325 015430
1326 015430

%ggg 015432

022737
001004

022737
001401

01:29:56 PAGE 13-27

SEG 0080

001200

074040

001176

067510

001200

1608

cMP
BNE

1608 :

1359

#167073,8TMP2
1508

;CORRECT HEADER CRC 2

INO !

;VERIFY 2ND AND 3RD HEADER WORDS FOR AN RMO3
1458

1508

104047

CMP

BNE

mg 015406 000411
1319
1320 015410

4-APR-81

#074040,$TMP1
1508

;CORRECT SECOND HDR WRD ?
NO ')

1608

SYES

CMP

#067510,8TMP2

EMT

BEQ

:CORRECT MEADER CRC ?
!

:END OF SUB TEST

;."t.t't't.ttt.....tt!"'.'!.Qt'ttt.t"ttt.tttQtt'ttt'tt.ttt'ttt'
T*TEST 22

HEADER COMPARE

TEST

)

.'.'ttl.ttt..'ttttt't't"""..Q..l'.ttt't'ttt"ttt.t"tt'..ttt".t

015432

Ts122:

C15432

000004

015436
015442
015446
i 015452

012706
013700
013701
012737

001100
001276
001466
000022

001226

012737

001466

001446

015434

1331

1332 015460

000240

SCOPE

NOP

MOV
MOV
MOV
MOV
MOV

013737

001334

001420

MOV

1335 015502
1336 015510
1337 015516
ggg 015524

012737
012737
012737
012737

054636
177776
010000
000073

001416
001414
001444
001412

1340 015532

004737

022432

015536

000403

1341 015542

1342 015546
1343 015546

000137

016700

004737

023304

015554

104000

015540

015552

g‘ug 015556

112757

104000

000403

000137

000036

001420

1347 015562

108:

001136

1350 015574
g;; 015600

012702
012704

000004
000021

MOV
MOV
MOV
MOV

#BUFFER,RMBAOD
#-2 ,RMICO
#FMT16,RMOFO
#RH!'GO.RMCS10

:DATA ADDRESS
:2 WORDS (2°'S CoMP)
:16 BIT MODE
;READ HEADER AND DATA FUN

JSR

PC.ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

#30.,RMDAO

:LAST SECTOR

:SEARCH IS ENABLED USING SUBROUT INE.

- BR

108

:BRANCH TO 108 IF NO ERROR

JMP

2308

:SKIP REST OF TEST IF ERROR

JSR

PC,SCTCMP

;FORCE SECTOR COMPARE USING SUBROUT
INE

EMT

JMP

062737

000040

208:

001136

208

2308

*BRANCH TO 208 IF NO ERROR
;

MOV

RO, $BDADR

;SETUP ERROR MESSAGE

MOV
MOV

#4 R2
#7. R4

:R2=NUMBER OF PROM STROBES
:MAX BIT CLOCKS

ADD

308:

1353

1355 015604
1356 015612

:LAST CYLINDER

;READ GATE SHOULD BE OFF FOR 3 PROM STROBES

010037

1354 015604

#822. ,RMDCO

*SET LAST TRACK AND

MOVB

016700

1348 015562

1349 015566

;LOAD THE STACK POINTER
:RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX

LSTRK ,RMDAO

EMT

1346

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#22,8TESTN

:LOAD REGISTER OUTPUT BUFFER FOR READ HEADER (OMMAND

1333 015466
1334 015474

;SCOPE CALL

#RMMR?2
, SBDADR

sCLOCK BIT CLOCK UNTIL PROM STROBE COMES ON

012760
012760

055401
051401

000024
000024

408
:

MOV
MOV

#MR1AAA 'MCLK ,RMMRT (RO)
#MR1AAA .RMMR T (RO)

;LOAD RMMR1
:LOAD RMMR1

(ZRMQBO RMOS5/3/2 DSKLS TST 2

122

HEADER COMPARE

1357 015620
1358 015624

016003
032703

1359 015630

001004

1361 015634
11332§ 015636

001363
000137

1360 015632

TEST

MACRO v04.00

000024
000040

1368 015652

001407

1370 015660
1371 015664

005037
104050

;g;g 015666

1374
1375 015672

1376 C15672
1377 0157200
1378 015706
1379 015712
1380 015716
1381 015720

1382 015722

}3332 015724

1387 015730

}% 015732

042703

508:

000040

BEQ

000137

016790

JMP

012760
012760
016C03

001140

055401
051401
000024

032703
001404
005304

000040

000137

016700

001363

CLR
EMT

000024
000024

BIT
BEQ
DEC

BNE

JMP

005302

DEC

BNE
r

012702
012705

000006
000021

RMMR2(RO) ,R3

;STORE RMMR2 AT R3

608

R3,$BDDAT

:BRANCH IF

2308

;READ HEADER FUNCTJION

$GDDAT
50

TAG BUS ZERO

AMRTAAA 'MCLK ,RMMR1 (RO) ;LOAD RMMR1
#MR1AAA RMMR1 (RO)
:LOAD RMMR1
RMMR1(RO),R3
;STORE RMMR1 AT R3
MIC,R3
70$
R4

;BRANCH IF PROM STROBE OFF

608

2308

308

;READ GATE SHOULD COME ON WITH NEXT PROM STROBE AND STAY
ZON FOR 7 CYCLES (AND MORE)

MOV
MOV

808:

#6_R2
#17..R3

;CLOCK BIT CLOCK TIL PROM STROBE SETS

032704

000040

1403 015772

005303

016004

001004

001363
000137

000024

016700

1409 016002

016004

000040

1411 016012

022704

000002

1412 016016
1413 016020

MOV
MOV
MOV

001322

1401 015764

1410 016006

:BRANCH WHEN PROM STROBE ON

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

055401
051401

1407
1408 016002

AT R3

;CLOCK BIT CLOCK TIL PROM STROBE GOES OFF
608:

708:

012760
012760

1404 015774
}232 015776

;STORE RMMR1

408
2308

#AC1777.R%

MOV

1398 015744
1399 015752

1402 015770

508

BIC

001142

1396

1400 015760

010337

gg;

1397 015744

DEC

MOV

176000

1390
1393 015734
33‘5’ 015740

RMMR1 (RO),R3
#iC,R3

BNE
JMP

016700

1385

1386 015730

13-28

:VERIFY READ GATE IS OFF AND TAG BUS IS ZERO

016003

1369 015654

MOV
BIT

BNE

005304

1366 015642

1367 015646

01:29:56 PAGE

SEQ 0081

1364

1365 015642

4-APR-81

042704
001410
010437

176000

001142

000024
000024

908:

MOV
MOV

#MR1AAA
'MCLK ,RMMR1 (RO)
#MR1AAA RMMR1 (RO)

BIT

#JC R4

DEC

MOV

BNE

BNE
JMP

RMMR1(RO)
R4

;STORE RMMR1 AT R

100§

:BRANCH WHEN PROM STROBE ON

90$
2308

;VERIFY READ GATE ON AND REST OF
1008:

MOV
BIC

CMP

BEQ
Mov

;LOAD RMMR1
*LOAD RMMR1

RMMR2(RO)
,R4

#AC1777
R

#8801 ,R4

1108
R4, $BDDAT

TAG BUS OFF

:;STORE RMMR2 AT R4
:BRANCH IF

READ GATE ON

CZRMQBO RMOS/3/2 DSKLS TST 2

122

HEADER COMPARE

1414 016026
1415 016032

1416 016034

1417
1418
1419 016040
1420 016040
1421 016046
1422 016054
1423 016060
1424 016064
1425 016066

1426 016070

1427 016072
1428
1429
1430 016076
1431 016076
1432 016100
1433

1434

1435 016102
1436

012737
104050
000137

TEST

000002

MACRO v04.00

001140

016700

1439
1440
1441
1442
1443
1444
1445
1446

016106
016114
016122
016126
016132
016134
016136
016140

1447
1448
1449 016144
1450 016144
1451 016150
1452 016152
1453 016156
1454 016164
1455 016170

1456 016176
1457 016200
1458 016204
1459 016204
1460
1461
1462 016210
1463 016210
1464 016216
1465 016224
1466 016226
1467

1468

1469 016230
1470 01623

01:29:56 PAGE

;%BO1.SGDDAT

JMP

2308

13-29

;READ HEADER FUNCTION

FCLOCK BIT CLOCK TIL PROM STROBE GOES OFF
012760
012760
016004
032704
001404
005303

055401
051401
000024
000040

000137

016700

001363

000024
000024

MOV
MOV

BEQ

DEC
BNE

JMP

AMRIAAA!MCLK,RMMR1(RO)
#MR1AAA,RMMRT(RO)

;LOAD RMMRI
:LOAD RMMR1

23gn;2n6>,k4

:STORE RMMR1 AT R4

1208%

;BRANCH WHEN PROM STROBE OFf

R3
1108

- 230%

:CONTINUE FOR TOTAL OF 7 CYCLES

1208

005302
001317

012702

DEC

BNE

80%

sLOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORBE

000021

MOV

1437

1438 016106

4-APR-81

#17..R2

sMAX BIT CLOCKS

;CLOCK BIT CLOCK TIL PROM STROBE SETS
012760
012760
016003
032703
001004
005302
001363
000137

055401
051401
000024
000040

000024

130%:

000024

MoV

‘#MR1AAA ,RMMR1 (RO)

BIT

#WC,R3

MOV

BNE
DEC

BNE
JMP

016700

#MRT1AAA'MCLK ,RMMR1(R0O)

MOV

;LOAD RMMR1
;LOAD RMMR1

RMMR1 (Ré) LR3

;STORE RMMR1 AT R3

1408

;BRANCH WHEN PROM STROBE ON

1308
230%

;VERIFY "PLFS'' IS NOW ON
042703
001015
010337
012737
010037
062737

104035
000137
012703

140%:

175777

001142
002000
001136
000024

001140

150%:

000005

#*CPLFS,R3

MOV

#PLFS ,$GDDAT

ADD
EMT

#RMMR1 , SBDADR
35

MOV

#5,R3

MOV

001136

016700

BIC

BNE
MOV

JMP

il%l%;H PLFS ON,

012760
012760
005303
001370

055401
051407

012702

000031

012703

000010

000024
000024

1508
R3,$BDDAT

RO, $8DADR
2308

WORD COUNT

INHIBIT WILL

MoV
ggg

#MRTAAA 'MCLK,RMMR1(RO)
;";RMAA.RMM (RO)

BNE

155%

;SIMULATE THE SYNC PATTERN BEING READ
MoV
Mov

#31,R2
#8.,R3

SET

IN S BIT

CLOCKS

;LOAD RMMR1
:LOAD RMMR1

s SYNC PATTERN=00011001
;8 BITS IN PATTERN

CZRMQBO RMOS5/3/2 DSKLS TST 2

HEADER COMPARE TEST

1471 016240
16472 016240

1473 016246
1474 016250
1475 016252
1476 016254
1477 016262

012737

(055401

MACRO V04.00

001436

002000

001436

1478 016262

013760

001436

000024

1480 016276

013760

001436

000024

;zg 016306

001354

1481

016304

1484

042737

005303

004000

01:29:56 PAGE

13-30

SEQ 0083

000241
006002
103003
052737

1479 016270

4-APR-81

1608:

1658
:

001436

MOV

H#MRT
IMCLK AAA
,RMMR10

cLC
ROR
BCC
BIS

R2
165%
#MRD
, RMMR10

MOV

RMMR10, RMMR1 (RO)

;LOAD RMMR1

MOV

RMMR10, RMMR1 (RO)

:LOAD RMMR1

BNE

1608

BIC

DEC

#MCLK ,RMMR10
R3

" ;CONTINUE

*1S ZERO

TIL SHIFT COUNT

;SIMULATE THE HEADER BEING READ

1485 016310
1486 016314

012702
012737

001174
150000

001174

MOV
MOV

#$TMPO, R2
#150000,$TMPO

;SET MF/UF BITS GOOD, 16 BIT FORMAT AND

1488 016330

013737

001334

001176

MOV

LSTRK . $TMP1

*SET LAST TRACK AND

1490 C16344

012737

011366

001200

MOV

#011566,8TMP2

001200

1487 016322

1489 016336

1491 016352
1492 016360

052737

001466

112737

000036

032737
001403

010000

1493 016362

012737

156167

1495 016370
1496 016374

012703
012204

000020

1498 016376

012737

055401

1500 016406

006004

1494 016370
1497 016376

1499 016404

1501 016410
1502 016412
1503 016420

000241

001174

001176

001436

002000

0071436

016420

013760

001436

000024

1505 016434

013760

001436

1507 016444
1508 016446

001354
020227

001200

012702

000006

1506 016442

};(1)8 016452

1511

1512 016454

mz 016460

042737

005303

101746

012703

004000

1520 016504

032704

000040

1522 016512

005303

;ggg 016516

000470

1503 016514

1526

001003

175%:

001436

MOV

#156167,8TMP2

:IS DEVICE AN RMOS ?
“NO !

MOV
MOV

#16. .R3
(R2} +,R4

;NUMBER OF BITS EACH WORD
*HEADER WORD 1.2 OR 3

MOV

#MR1A
'MCLK ,RMMR10
AA

ROR

MOV

RMMR10, RMMR1 (RO)

;LOAD RMMR1

MOV

RMMR10, RMMR1 (RO)

:LOAD RMMR1

BNE
CMP

175$
R2,ASTMPO+4

BCC
BIS

BIC

000024

:GET CRC PATTERN

#TA16,LSTRK
1708

cLC

1808
:

:LAST SECTOR

DEC

BLOS

:YES, ADJUST CRC PATTERN

1808
#MRD
. RMMR10

#MCLK
, RMMR10

1708

:SHIFT OUT 16 BITS

;ALL DONE ?

*BRANCH IF NOT

;LOOKING FOR SYNC SHOULD COME ON WITHIN 6 STROSES

MOV

#6,R2

:CLOCK UNTIL PROM STROBE ON
1908:
MOV
#MR1AAA'MCLK ,RMMR1(RO)

055401

1521 016510

170$:

#30.,$TMP

*LAST CYLINDER

1858:

01276C

012760
016004

BIT
BEQ

#822. ,$TMPO

000021

515
1516 016464
1517 016464

1518 016472
1519 016500

MOVB

001334

103003
052737

1504 016426

BIS

051401
000024

000024

MOV

MOV
MOV

MIC R4

DEC

B8R

230%

BNE
;SEE

:LOAD RMMR1

#MR1AAA .RMMRT (RO)
*LOAD RMMR1
RMMR1(RO)
,R4
;STORE RMMR1 AT R4

BIT

BNE

001363

#17. .R3

195$

190%

IF '"PLFS'' IS ON

CZRMQBO RMOS/3/2 DSKLS TST 2

122

HEADER COMPARE

1527 016520

1528 016520

;ggg 016524

15631

1532
1533
1534
1535
1536
1537
1538
;gzg

016526
016530
016532
016536
016544
016550
016556
016550

042704

001034
005302
001014
010437
012737
010037
062737
104035
000447

MACRO v04.00

TEST

1958

175777

012760
012760

1546 016602

032704

1547 016606

332? 016614

BIC

#*CPLFS
R4

13-31

SEQ 0084

2108

;CONTINUE IF LESS THAN 6 PROM STROBES
001142
002000
001136
000024

DEC
BNE

R2
2008
Ré, $BDDAT
#PLFS,$GDDAT
RO, $BDADR
#RMMR1
, $BDADR
35
2308

MOV
MOV
MOV
ADD
EMT

001140
001136

;SETUP ERROR

;HEADER

:CLOCK UNTIL PROM STROBE OFF

1542 016562
1543 016562
1544 016570

1548 016610
1549 016612

01:29:56 PAGE

BNE

1541

1545 016576

4-APR-81

016004

001724

005303
001363

000431

055401
051401

000024

000024
000024

2008:

MOV
MOV

#MR1A
'MCLK ,RMMRT
AA
(RO)
#MR1AAA . RMMRT (RO)

BIT

#IC ,RG

DEC
BNE

R3
2008

MOV

000040

RMMR1(RO)
R4

BEQ

;LOAD RMMR1
*LOAD RMMR1

:STORE RMMR1 AT R4

185%

2308

1552

1553 016616

1554 016616

:VERIFY NO HEADER ERROR

016037

000014

1557 016634

005037

001140

1559 016644
1560 016652

062737
104051

000014

1555 016624
1556 016632

1558 016640

xgg; 016654

1563
1564 016656
1565 016656
1566 016664
1567 016666

042737
001411

010037

;g;z 016700

001136

001142

MOV

001142

001136

023737

001004
023737

054636

001174

054640

:
001176

IS SET

RMER1(RO) , SBDDAT

BIC
BEQ

#~C<HCRC
'HCE 'FER>, $BDDAT
2208
-

MOV

RO, $8DADR

B8R

2308

CLR

:STORE RMER1 AT $BDDAT

$GDDAT

ADD
EMT

000411

;&gmwn 001401
1570
1571 016676
1572 016676

177157

2108:

#RMER1
, $BDADR
51

:VERIFY DATA IN MEMORY OK
2208
:
cMP
BUFFER,$TMP0
BNE
CMP

225%
BUFFER+2,$TMP1

BEQ

2308

;HEADER ERROR SET
;COMPARE 1ST HEADER WORD
;COMPARE 2ND HEADER WORD

;REPORT ERROR IN ONE OR MORE HEADER WORDS
225%:
EMT
52

104052

2308 :

1575

R AR R A

A R

S*TEST 23

AR A

AR A R R AR

RN AR AR

AR AR R AR R R R RN RR R R R R RN

ECC GENERATION TEST

""ttt'tttt'ttttitt*t.t"'tt‘tt'..ttt.'t"!.l."tltt.tttti'.t.'tt'

016702
0167064
016710

000004
000240
012706
013700

15123:

001100
001276

SCOPE
NOP
MOV
Mov

:SCOPE CALL
#STACK, SP
$BASE ,RO

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

—

016700
016700

$§§MBO RMOS/3/2 DSKLS TST 2
ECC GENERATION TEST

MACRC v04.00

016714
- 016720

013701
012737

001466
(00023

001226

1677
1578 016726
1579 016734
1580 016742

012737
013737
112737

001466
001334
000036

001446
001420
001420

012702

054636

1581 016750

1582 016756

012737

012000

1583 016762

010237

001416

1585 016772
}ggg 016776

010337
012737

001414
000061

012704

177777

1584 016766

1588

1589 017006

1590 017010
1591 017014

012703

012703
010422

1592 017016

005303

1595 017022

004737

;ggz €17020

001444

017030

1598 017036

017042
017044

;FILL

108:

020066

004737

023304

1599 017046
1600 017052
1601 017052

000137

020066

004737

023412

017060

104000

017056

1602 017062
1603 017066
1604 017066

017072

000403

000137
;
004737

000403

017074 -104000
}ggg 017076 000137

020066

1620
1621 017112

R3,RMWCO
#uD!GO,RMCS10

;WRITE DATA COMMAND

408
:

1256, WORDS (2'S COMP)

THE DATA BUFFER WITH ALL ONES

MOV

#177777 R4

DEC

MOV
MOV

#256. RS
R4, (R2)+

:DATA PATTERN ALL ONES

*ONE SECTOR DATA FIELD

108

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

B8R

208

*BRANCH TO 208 IF NO ERROR

JMP

4008

JSR

PC,SCTCMP

JMP

4008

JSR

PC,SETLFS

308

408

JMP

4008

JSR

PC, CLKSNC

EMT
JMP

4008

B8R
:

;16 BIT FORMAT, [GNORE HEADER

508

:SEARCH IS ENABLED USING SUBROUT INE.
;

:FORCE SECTOR COMPARE USING SUBROUT INE

*BRANCH TO 308 IF NO ERROR

;SET *LOOKING FOR SYNC'* USING SUBROUT INE

*BRANCH TO 408 IF NO ERROR

;CLOCK THE SYNC PATTERN USING SUBROUTINE

:BR TO 508 IF NO ERROR

;HEADER COMPARE 1S INHIBITED FOR THIS TEST
:CLOCK THE DATA TIMING SEQUENCER AND VERIFY THE FOLLOWING WAVEFORMS
:FOR EACH LEADING EDGD OF PROM STROBE
:
HEADER ARES, READ GATE (DATA TIMING SEQUENCER=200 OCTAL)
:
ENABLE CRC OUT

012702

017634

1616

}2}3 017106

;DATA ADDRESS

#=256. ,R3

EMT

023574

;g}%

1617 017106

R2,RMBAO

B8R

020066

1607
1608
1609
1610
1611

;g}g 017102

MOV

BR
EMT
308:

:R1 = POINTER 10 DEVICE
©:SET TEST NUMBER IN APT MAIL BOX

OUTPUT BUFFER FOR WRITE DATA CAMOMMAND
#822. ,RMDCO
;LAST CYL INDER
LSTRK . RMDAO
“SET LAST TRACK AND
#30.,RMDAO
*LAST SECTOR

#BUFFER ,R2

EMT

208
:

SEQ 0085

#FMT16 'HC1,RMOF O

BNE
022432

13-32

MOV

MOV
MOV

001412

000400

000137

000403
104000

TSTQUE ,R1
#23,$TESTN

MOV

001375

104000

MOV
MOV

MOV

017026 000403

1596 017032
1597 017036

01:29:56 PAGE

;SETUP REGISTER
MOV
MOV
MOVB

177400

&4-APR-B81

WRITE GATE

50$:

MoV

#2308 ,R2

:CLOCK BIT CLOCK

004737

017654

708:

JSR

:PROM STROBE
80%:

:POINTER TO WAVE FORM TABLE

(MCLK) UNTIL PROM STROBE COMES ON

PC, 3008
IS ON = VERIFY WAVEFORM

CZRMQBO RMO5/3/2 DSKLS TST 2

123

ECC GENERATION TEST

1622 017112

1623 017120
1624 017126

016037

042737

012237

000024

SEQ 0086
001142

$GDDAT, SBDDAT

001136

020066

1644 017216
1645 017226

;gg? 017232

1652
1653 017236
1654 017236

}ggg 017242

1657

}ggg 017244

1660
1661 017250

}ggg 017250

1664
1665 017254
1666 017254
1667 017260

}ggg 017264

1670
1671
1672
1673
3g;§

016037
042737
012237
023737
001410

000040
176000
001140
001140

010037
062737

001136
000040

104053

004737

001142
001142
001142

001136

020227

017652

012702

000011

103721

004737

90$

;BRANCH IF RMMR1 OK
IS ONCORRECT

4008

016004
042704
001020

1677 017276

012737

000400

005037

001142

MOV
BIC
MOV
CMP
BEQ

RMMR2 (RO) , SBDDAT
:STORE RMMR2 AT $BDDAT
#~C1777,$8DDAT
(R2)+,$GDDAT
$GDDAT, SBDDAT
1008
;BRANCH IF TAG BUS OK

:ERROR=- TAG BUS IS WRONG
MOV
RO, $BDADR
ADD
EMT

JSR

#RMMR2
, SBDADR
53

4008

PC.3508

;CONTINUE CHECKING THROUGH &4 PROM CYCLES
1108:
P
R2,#2308+16

BLO

70§

:VERIFY THAT DATA AREA COMES ON WITHIN

MOV

#9..R2

9 PROM STROBES

:R2=9 STROBES

;CLOCK PROM STROBE ON
1308

JSR

PC,3008

:PROM STROBE ON CKECK IF DATA AREA ON
1408:
MOV
RMMR1(RO)
R4
;STORE RMMR1 AT R4
BIC
#~CPDA,
R4

000024
177377

017762

508
:

;CLOCK BIT CLOCK TIL PROM STROBE RESETS
1008:

017654

004737
005302
001365

1678 017304

AT $BDDAT

(R2)+,$GDDAT

:ERROR = THE DATA TIMING SEGUENCER OUTPUT
MOV
RO, $BDADR
ADD
#RMMR1, $BDADR
EMT
54

JMP

017762

017266
017266
017272
017274

1676

BEQ

RMMR1

:VERIFY THE TAB BUS

;figmn% 000137 020066

1648
1649 017232

MOV

JMP

1634,

1642
1643 017212

:STORE

CMP

001136
000024

1638 017176
1639 017202
122? 017210

RMMR1 (RO) , $BDDAT

001142

001140

010037
062737
104054

1635 017162
1636 017162
1637 017170

MOV

#~C<ECRC!PDA'PHA'EECC>, $BDDAT

1628
1629 017142
1630 017146
1631 017154

000137

13-33

BIC

007140

}g§§ 017156

[

01:29:56 PAGE

001142

023737

001410

4-APR-81

176157

1625 017132

}25? 017140

MACRO V04.00

BNE

1608

:CLOCK PROM STROBE OFF
1508:
JSR
PC,3508
DEC
R2
BNE
1308
001140

;ERROR=DATA AREA DIDN'T COME ON
MOV

CLR

#PDA , $GDDAT

$8DDAT

;SETUP ERROR MESSAGE

CZRMQBO RMO5/3/2 DSKLS TST 2

123

ECC GENERATION TEST

1679 017310

010037

1680 017314

062737

}ggg 017324

000541

1681

017322

1684
1685 017326

}ggg 017326

104055

012702

001136

000024

1692
1693
1694
1695
1696
1697
1698

022703
001414
010337
012737
010037
062737
104055

000400

017342
017346
017350
017354
017362
017366
C17374

MOV

001136

ADD
EMT

;VERIFY
1608
:

001136

B8R

004737

017762

1705
};39 017404

004737

017654

1708
1709 017410
};}9 017412

005302
001347

017416

016003

1720 017444

012760

051401

012760

055401

1721 017452 022702 000007

};gg 017506

101357

010337
012737
010037
062737
104056

001142
000020
001136
000024

MOV

BIC
CMP
BEQ
INC

000024

#256. ,R2

#~C<PDA'EECC>,R3
#PDA,R3
180%
R3,$BDDAT
#PDA, SGDDAT
RO, $BDADR
#RMMR1, SBDADR
55

;DATA AREA IS ON

2208

PC,3508

001174

1734 017516

012704

000020

;STORE RMMR1 AT R3

CMP

#7 .R2

MOV
MOV
MOV
ADD
EMT

R3,$BDDAT
HEECC,SGDDAT
RO, $BDADR
#RMMR1
, SBDADR
56

BHI

001136

RMMR1(RO)
,R3

#*C<PDA!EECC>,.R3
#EECC,R3
1908
R2

AMRIAAA 'MCLK .RMMRT(RO)

MOV

001140

BE ENABLED WITHIN & CLOCK BITS
R2

MOV

012702

005003

JSR

;ECC SHOULD
CLR
182%:

000450

1730
1731 017510
1732 017510
1733 017514

IS ON FOR 256 CYCLES

;CLOCK PROM STROBE ON
JSR
PC,3008

000024

177357
000020

1723 017460
1724 017464
1725 017472
1726 017476
1727 017504

1808
:

005002
042703
022703
001426
005202

1722 017456

2208

;CONTINUE TIL COUNT ZERO
DEC
R2
BNE
1708

017422
017426
017432
017434

1719 017436

#RMMR1
, $BDADR

:CLOCK PROM STROBE OFF

};82 017400

1715
1716
1717
1718

MOV

CMP
BEQ
MOV
MOV
MOV
ADD
EMT

001140

1701

1712
1713 017414
1714 017416

RO, $BDADR

THAT DATA AREA

BIC

}933 017376 000514
1702 017400

13~34

:VERIFY THAT DATA AREA IS ON AND ECC IS OFF
1708
:
MOV
RMMR1(R0O) ,R3
_;STORE RMMR1 AT R3

177357

001142
000400
001136
000024

01:29:56 PAGE

SEQ 0087

000400

016003

042703

4-APR-81

1688
1689 017332
1690 017332

1691 017336

MACRO V04.00

#MR1AAA .RMMRT (RO)

182%

2208

:SAMPLE ECC CHARACTER FOR 32 BITS
1908:
MOV
#$TMPO,R2

195%:

(LR

MOV

#16. R4

:LOAD RMMR1

*LOAD RMMR1

CZRMQBO RMOS5/3/2 DSKLS TST 2

T3
|

ECC GENERATION TEST

1735 017522

017522

1736 017526
1737 017530
1738 017534
1739 017536
1740 017542
1741 017542
1742 017550
1743 017556
1744 017560
1745 017562

1746 017564

016005

006303
032705
001002
052703
012760
012760
005304
001360
010322

MACROC V04.00
.2008:

000010

000001
000024
000024

022702

001200

131177

001174

175154

001176

1755 0172620

022737
001004
022737
001407
012737
012737

131177
175154

001200
001202

};gg 017630

000137

020066

1760 017634
1761 017636
1762 017640

000200
000002
000200

}figmnm 101351
1749
1750 017572
1751 017600

1752 017602
1753 C17610
1754 017612

ggow&61m%1

1763
1764
1765
1766
1767
1768

017642
017644

017646

017650
017652

017662

1771 017670
1772 017676
1773 0177064

1774 017712
1775 017714

RMMR1(RO)
,R5

;STORE RMMR] AT RS

ASL
BIT
BNE
BIS

R3
#MWD
, RS
205$
#B1T0,R3

MOV
MOV
DEC
BNE
MOV

#MRIAAA
'MCLK ,RMMR1 (RO)
#MR1AAA , RMMRT (RO)
R4
2008
R3,
(R2)+

CMP

BHI

:BRANCH IF ECC BIT OFF

1958

;VERIFY ECC CHARACTER
GENERATED
CMP
#131177,$TMPO
BNE
2108

210%:

cMP
BEQ
MOV

#175154,$TMP1
2208
#131177,8TMP2

MOV

#175154.$TMP3

2208:

JwP

4008

230%:

.WORD
.WORD
.WORD

PHA
BBO1
PHA

EMT

;GREAT ESCAPE

000000
000600

WORD
JWORD

O
O

MOV

#17.,3208

MOV

AMRIAAA IMCLK ,RMMRT(RO)

000002

012760

012760
016037

042737

JWORD

000021

017756

055401

000024

051401
000024

177737

017756
000040

001142
007140

1780 017742
1781 017750
1782 017752
1783 017754
1784 017756
;;gg 017760

062737
104030
000445
000207
000000
000000

000024

001136

1787 017762
1788
1785 017770

012737

001360

1779 017736

010037

001136

000021

305%

MOV
MOV

017760

013737
012737

1776 017720

3008:

000024
017760

017756

020062

;LOAD RMMR]
*LOAD RMMRT

#$TMPO+4
,R2

.WORD
JWORD

001020
005337

1777 017722
1778 017730

205$:

MOV

000002
000000

1769 017654 012737
1770 017662

SEQ 0088

000024

055401
051401

4-APR=-81 01:29:56 PAGE 13=35

BBO01
O
2

#4CWC, 3308

BNE

sgss

MOV
MOV

MOV

3108
3208

;EXIT IF PROM STROBE ON

3208, $BDDAT
#iC, $GODAT

;SETUP ERROR MESSAGE

RO, $8DADR

3108:
3208:
3308:

ADD
EMT
BR
RTS
.WORD
.WORD

#RMMR1, SBDADR
30
4008
PC
O
O

350%8:

MOV

#17.,3708

355%

:LOAD RMMR1

#MRIAAA RMMR1 (RO)
*LOAD RMMR!
RMMR1(RO) ,3308 :STORE RMMR1 AT 3308

BIC

BNE
DEC

;CLO
PROM STROBE
CK
ON

;
:MAX BIT COUNT
*RMMRT CONTENTS
;CLOCK PROM STROBE OFF

(MWD INVERTED)

CZRMQBO RMOS5/3/2 DSKLS TST 2
T23
ECC GENERATICN TEST

017770
792 020012

3 020020
794 020022
795 020026
796 020030

797 020036
798 020042
799 020046

012760

012760
016037

042737

001417
005337
001360
013737

005037
010037
062737
104062

055401

051401
000024

177737

MACRO V04.00

000024
000024
020064
020064

#MR1AAA 'MCLK ,RMMRT (RO)

MOV
BIC

RMMR1(R0) ,3808
#*CWC, 3808

BEQ
DEC

BNE

001142

001136

000207

3¢0$:

1804 020062

000000

3708:
3808:

1808 C20066

00024C

4008 :

#MR1AAA RMMR1 (RO)

4008

.WORD
.WORD

:LOAD RMMR1

:STORE RMMR1 AT 380%

3558

380, $BDDAT
$GDDAT
RO, $BDADR
#RMMR1 , $BDADR

RTS

:LOAD RMMR1

360%
3708

MOV
CLR
MOV
_ADD

EMT

000403

000000

MOV

1801 020056

1802 020060

01:29:56 PAGE 13-36
SEQ 0089

020062

020064
001140
001136
000024

4~-APR-81

62
PC

O
O

;MAX BIT COUNT
*CONTENTS OF RMMR1
=

NOP

;SUB=TEST EXIT POINT

;.'t..ittt'tt.tt.t..ltl.""l!tt.t.t.'t..-..t.tt.tt.t.tttttt.ttt.'

TwTEST 24

ECC DETECTION TEST

;.'ttttltt.."it.'.'fit"t"'.ttt.l.itl'.'lltt.tttttt!tt.tttt..tttt

020070
020070
020072
020074
020100
020104
020110

15124

000004
000240
012706
013700
013701
012737

001100
001276
001456
000024

012737
013737
112737
012737
(©12702
010237
012737

001466
001334
000036
012000
054636
001416
177400

020172

004737

022432

020176
020200
}ggz 020202

000403
104000
000137

1811
1812
1813 020116
1814 020124
1815 020132
1816 020140
1817 020146
1818 020152
1819 020156

}g%? 020164

1822 020172

1825 020206
020206

020212
020214

}829 020216
82

1828 020222

012737

MOV
MOV
MOV
MOV

001226
001446
001420
001420
001444

20%:

021054
023304

000137

021054

:SCOPE CALL

#STACK, SP
$BASE ,RO
TSTQUE ,R?
#24,STESTN

;LOAD THE STACK POINTER
:RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*;SET TEST NUMBER IN APT MAIL BOX

:SETUP REGISTER OUTPUT BUFFER FOR READ DATA COMMAND

000071

004737
000403

aggps

30%:

40%:

MOV
MOV
MOVEB
MOV
MOV
MOV
MOV
MOV

#822. ,RMDCO
:LAST CYLINDER
LSTRK ,RMDAO
*SET LAST TRACK AND
#30.,RMDAO
SLAST SECTOR
#FMT16HC] ,RMOFO
; INHIBIT HEADER COMPARE
#BUFONE ,R2
R2 ,RMBAD
#-256. ,RMWCO
;256 WORDS (2'S COMP)
#RD'GO,RMCS10 ;READ DATA COMMAND

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

?:r

308

*BRANCH TO 308 IF NO ERROR

JMP

1908

JSR
?:T

PC,SCTCMP
40%

JMP

1908$

*SEARCH IS ENABLED USING SUBROUTINE.

;FORCE SECTOR COMPARE USING SUBROUT INE
*BRANCH TO 40$ IF NO ERROR

i
i

ggznoeo RMO5/3/2 DSKLS TST 2
ECC DETECTION TEST

020222
020226
020230

1840 020270
1841 020272

C20272

1842 020276
1843 020302
1844 020304
1845 020306
1846
1847
1848 020310
1849 020314
1850 020322
1851 020326
1852 020332
1853 020340
1854 020342

1855
1856
1857 020346
1858 020346
1859 020352
1860 020356
1861 020362
1862 020366
1863 020372

1864 020374
1865 020376
1866
1867
1868 020400
1869 020406
1870
1871 020412
1872 020420

1873 020424

1874 020432
1875 020434
1876 020440
1877 020440
1878 020444

:
508

023574

000002

016003
032703
001421
005302
001364

000024
002000

010337
042737
005037
010037
062737

001142
175777
001140
001136
000024

104040
000137

PC,SETLFS

JMP

190$

JSR

PC, CLKSNC

JMP

1908

?fin

021054

012702
000405
004737
004737
000240

01:29:56 PAGE

JSR

?ren

021054

020236
020242
020244

4-APR-81

13-37
SEC 0090

023412

1829 020232
1830
1831 020236

1832 020246
1833
1834
1835
1836 020252
1837 020256

MACRO V04.00

50§

55§

;SET "LOOKING FOR SYNC'* USING SUBROUT INE

*BRANCH T0 50% IF NO ERROR

;CLOCK THE SYNC PATTERN USING SUBROUT INE

“BR TO 558 IF NO ERROR

sHEADER COMPARE

IS INHIBITED FOR THIS TEST

608:

PC,350%

;RESET PROM STROBE

RMMR1(RO) ,R3
#PLFS ,R3
808
R2

;STORE RMMR1 AT R3

:'LOOKING FOR SYNC'* SHOULD GO OFF WITHIN ONE CYCLE
§58:
ggv
%‘RZ
;ALLOW 2 PASSES THRU LOOP

021166
021060

708 :

JSR

MOV
BIT
BEQ
DEC

BNE

PC,3008

:SET PROM STROBE

;BRANCH IF LOOKING FOR SYNC OFF

608

;ERROR=-LOOKING FOR SYNC DID NOT RESET DURING HEADER

001142

MOV

R3,S$BDDAT

MOV
ADD
EMT
JMP

RO, SBDADR
#RMMR1
, SBDADR
40
1508

BIC
CLR

001136

021054

#*CPLFS,$BDDAT
$GDDAT

;SETUP ERROR MESSAGE

LOOKING FOR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM CYCLES

012702
004737
004737
016003
032703
001022
005302
001365

000011
021166
021060
000024
002000

012737
010337

002000
001142

001140

042737
010037
062737
104035
000137

175777
001136
000024

001142

004737
004737

21166
27574

021054

858:

MOV
JSR
JSR
MOV
BIT
BNE
DEC
BNE

#9. R2

PC. 5508
PC.3008

RMMR1(RO) ,R3
#PLFS.R3
908
R2
85s

;SET STROBE OFF
*SET PROM STROBE

:STORE RMMR1 AT R3
:
*BRANCH IF SYNC ENABLED

ERROR-CAN'T LOOKING FOR SYNC DURING DATA AREA

MOV
MOV

#PLFS
, $GDDA
R3,$80DAT

BIC

#°CPLFS,SBDODAT

ADD

#RMMR1
, SBDADR

JMP

1908

MOV

001136

EMT

908%:

JSR

RO, $BDADR
35

PC,3508

PC . CLKSNC

;RESET PROM STROBE

SCLOCK THE SYNC PATTERN USING SUBROUTINE

(ZRMQBO RMOS/3/2 DSKLS TST 2
T24
ECC DETECTION TEST

020450
020452

N 7
4-APR=-81 01:29:56 PAGE 13-38

MACRO V04.00

SEG 0071

000402

Efir

100$

000577

1908

104000

:SIMULATE READ DATA

020554

1903 020560
1904 020564
1905 020570
1906 020574
1907 020600
1908 020602
1909 020604
1910 020610
1911 020614
1912
1913
1914 020616
1915
1916 020622
1917 020626
1918 020632
1919 020636
1920 020642
1921 020644
1922 020646
1923 020650
1924 020654
1925 020660

1926 020664
1927 020670
1928 020676
1929 020700
1930 020702
1931 020702

177446

010460
052704
010460
042704
010460
005303
001355
062702
022702
001746

015457
001174
000020
051401

1258:

#M31AAA
! MRD !MCLK ,RMMR1 (RO)

BNE
DEC
BNE

rgg\c/

130%:

'cqf\cf

AMRIAAA
, Ré

MOV

004737
004737
016003
032703
001417
005302
001365
042703
010337
005037
010037
062737
104063
000465

021060
021166
000024
000400

177377
001142
001140
001136
000024

000040

BIS

MOV

;FIRST ECC WORD
*SECOND ECC WORD

#16. RS

(R2)

1308

#MRD
, R4

R4 ,RMMR1 (RO)

;LOAD RMMR1

BIS

#MCLK RS

MOV

g’s’ LRMMR1 (RO)

;LOAD RMMR1

1258

;CLOCK

BNE
ADD

#2,R2

BEQ

1208

cMP

;LOAD RMMR1

1158
1108

#177446,$TMPO
#015457 . $TMP1
#STMPO, R2

DEC

000002
001176

000005

@1m:mo.m1 (RO)

MOV
MOV
MOV

BCC

000024
004000
000024
004000
000024

WORD COUNT

‘BIT COUNT

;SIMULATE ECC PATTERN

120$:

002000

#256..R2
#16. .R3

;BR TO 1008 If NO ERROR

mov

ROR

012702

016003

~N~

1894 020520
1895 020526
1896 020532
1897 020536
1898 020542
1899 020544
1900 020546
1901 020550
1902 020554

012737
012737
012702
012703
012704
000241
006012
103002
052704

000024
000024

1893 020512

057401
053401

1891
1892

012760
012760
005303
001370
005302
001364

100s: MOV
MOV

Hgg:

—

1890 020510

000400
000020

1886 020474
1887 020502
1888 020504
1889 020506

012702
012703

[
—y

#S$TMP1 ,R2

;LOAD RMMR1

A WORD

;CLOCK THE NEXT WORD

;VERIFY DATA AREA AND READ GATE RESET
MOV
#5,R2
1408:

001136

JSR

PC,3008

MOV
BIT

RMMR1(RO) ,R3
#PDA ,R3

JSR

BEQ
DEC
BNE
BIC
MOV
CLR
MOV

‘
150%:

ADD

PC,350%

sSET PROM STROBE
:CLEAR PROM STROBE
:STORE RMMR1 AT R3

1508
R2
1408
#*CPDA,R3
R3,$BDDAT
$GDDAT
RO, $8DADR

sSETUP ERROR MESSAGE

#RMMR1, $BDADR

EMT
BR

63
190%

Mov

RMMR2 (RO) ,R3

;STORE RMMRZ AT R3

1932 020706
1933 020712

BIC
BEQ

1934 020714
1935 020720
1936 020724
1937 020730
1938 020736
1939 020740

MGV
CLR
MOV
ADD
EMT
BR

001136

1940
1941
1342 020742

1944 020746

1945 020752

020760
020764
020766
020772

1950 020776
1951 21004
1952 021006
1953
1954
1955 021010
1956 021010
1957 021014
1958 021020
1959 021024
1960 021026
1961 021030
1962 021032
19635 021034
1964 021036
1965 021042

1966 021046
1967 021052
1968 021054
1969 021060
1970
1971 021066
021066
1972 021074
1973 021102

MOV
BIC
MOV
CMP
BEQ
MOV
MOV
ADD
EMT
BR

001140

010337
010037
062737

1987 021164
i

001136

104064

000422

ECC ERRORS

RMER1(R0O)
,R3 _ ;STORE RMER1 AT R3
#~C<DCK 'ECH>,R3
#000000, $GDDAT
$GDDAT,R3
1708
R3,$BDDAT
RO . $8DADR
#RMER1, $8DADR
64
1908

:VERIFY DATA BUFFER
170%:

012702
01703
012704
022203
001003

1808:

001142
001140
001136

012737
012760
012760
016037
042737
001020

005337

1985 021162
1986

R3,$BDDAT
RO, $BDADR
#RMMR?2
, SBDADR
3
1508
$GODAT

i—ggglrv THERE ARE NO

1943 020742
1946
1947
1948
1949

#°C1777.R3
1608

001360
013737
012737
010037
062737
104030
000445
000207
000000
000000

1858:

021272
000021

021162

055401
051401
000024
177737

000024
000024
021164
021164

1908:

3008:

#BUF ONE ,R2
#177777.R3
#256. R4

BNE
DEC
BNE
BR
MOV
MOV
MOV

185%
R4
1808
1908
-(R2) ,$BDDAT
R3,$GODAT
R2.$BDADR

CMP

5:2

MoV

;DATA WAS STORED HERE
*EACH WORD ALL ONES

(R2)+.R3

230:

#17.,3:08

;EXIT IF ALL THE LOCATIONS CHECKED

:SETUP ERROR MESSAGE

GREAT ESCAPE

55'53“ PROM STROBE ON

MOV
MOV
MOV

#MRTAAA'MCLK ,RMMR1(RO) :LOAD RMMR1
#MR1AAA . RMMRT (RO)
:LOAD RMMR1
RMMR1(R0) 3308 :STORE RMMR1 AT 3308

BNE

3108

:EXIT IF PROM STROBE ON

3058
320$, SBDDAT

:SETUP ERROR MESSAGE

BIC

021162
021162
000040
001136
000024

MOV
MOV
MOV

DEC

BNE
MOV

001142
001140
001136

3308:

3208

MOV
MOV
ADD

#WC, $GDDAT
RO, $8DADR
#RMMR1
, $BDADR

4008

.WORD

EMT

3108:
3208:

#-CWC, 3308

RTS
L.WORD

PC
O

CZRMQBO RMO5/3/2 DSKLS TST 2
124
ECC DETECTION TEST

012737

000021

021266

012760
012760
016037
042737
001417
005337
001360
013737
005037
010037
062737

055401
051401

000024
000024
021270
021270

104062

2005 021270
2006 C21272

MATRO v04.00 4-APR-81 01:29:56 PAGEC 15-60

000403
000207
000000
000000
000240

000024
177737

350%:
355%:

#17.,3708

SEQ 0093

sCLOCK THE STROBE OFF

#MR1AAA 'MCLK ,RMMR1 (RO)

;LOAD RMMR1

#MR1AAA . RMMRT (RO)
;LOAD RMMR1
RMMR1(RO) , 3808 ;STORE RMMR1 AT 380%
g‘cwc.seoi

021266
021270
007140
001136
000024

3808, $BDDAT

001142

$GDDAT
RO, $BDADR

001136

#RMMR 1, SBDADR

4
¢

:
3608
370%:
380%:

400%:

4008

;SUB=TEST EXIT POINT

CZRMQBO RM0S5/3/2 DSKLS TST 2

END OF

SUB-PASS ROUTINE

MACRO v04.00
.SBTTL

(eolele]

2288 8
—

WIWW

1324

000004
000240
013700
062700
010037
005710
001402
000137
012737

$EOSP:

SUB=-PASS ROUTINE

005200
001470

363”

MOV
ADD
MOV

001466
000002
001466

BEQ
001466

I\ o o

[eleolele]

b wud v

END OF

:THIS IS THE END OF SUB=PASS ROUTINE. THIS ROUTINE IS USED TO
s TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND
sSELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
27O TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE, RETURN
;1S MADE TO 'READY' ROUTINC.

b s

b wd

WA= OO0~

N DWW

SEQ 0094

NP N

4-APR-81 01:29:56 PAGE

JMP

TSTQUE ,RO
RO . TSTQUE

;GET POINTER TO TSTOUE

‘BR IF NO

#2,R0

READY

MOV

.SBTTL

END OF PASS ROUTINE

AR AR AR AR AR

:SAVE POINTER TO TSTOUE

(RO)

1$:

*ADJUST POINTER TO NEXT DEVICE

:ANY MORE DEVICES FOR TEST ?

#TSTQUE+2, TSTQUE

A AR R A

SYES, JUMP TO 'READY' ROUTINE

sINITIALIZE POINTER TO FIRST DEVICE IN

;TEST QUE TASLE

AR AN R

AR AN AN AN AR AR NI A NI AN AN A AN RE

s*INCREMENT THE PASS NUMBER (SPASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYyy'

J*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;*IF THERES A MONITOR GO TO IT
;*IF THERE ISN'T JUMP TO READY
021332

$EOP:

021332
021334
021340
021344
021350

001116
001206

001230

100000

021356
021360
0921362
021364
021366
021370
021372
C21376
021416
021416

$EOPCT:

021400

013746

TYPE

000421

021502
021502

013746

001230

104405
005737

001126

104401

021440

001431

104405

005037

001126

STSTNM
STIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

;:2ERO THE TEST NUMBER
2 :ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
s :LOOP?
;2YES
:;RESTORE COUNTER

BR
JASCIZ

643
;2GET OVER THE ASCIZ
<12><15>/END PASS #/

,65%

;:TYPE ASCIZ STRING

MoV

$PASS ,-(SP)

2 :SAVE SPASS FOR TYPEOUT

TYPDS

TST

BEQ

TYPE

éé27s:

001126

CLR
CLR
INC
BIC
DEC

.WORD:
BGT
MOV
$ENDCT: .WORD
$SEOPCT

éi?s“

021422
021424
021430
021432
021436

021506
021510

001230

NOP

SERTTL

$GT42P
,67%

66%

MOV

$ERTTL,=(SP)

.ASCIZ

TYPDS

CLR

;s TYPE PASS NUMBER

2:G0 TYPE--DECIMAL ASCII WITH SIGN

;+SEE

IF ANY ERRORS THIS PASS

;:BR IF NO ERRORS TO REPORT

;3TYPE ASCIZ STRING

;2GET OVER THE ASCIZ

TOTAL ERRORS SINCE LAST REPORT /

$ERTTL

;:SAVE SERTTL FOR TYPEOUT

. s TOTAL NUMBER OF ERRORS

;:G0 TYPE=-=DECIMAL ASCII WITH SIGN

s sCLEAR ERROR TOTAL

CZRMQBO RMOS5/3/2 DSKLS TST 2
END OF PASS ROUTINE

021514
021520
021524
021526
021530
021532
021534
021536
021540
021540
021542
021544

104401

013700
001405
000005
004710
000240
000240
000240
000137
005200
377

MACRO V04.00 4-APR-81 01:29:56 PAGEE 12-1

001217
(000042

$GT42P: TYPE
$GET4L2: MOV
BEQ

+SCRLF

::TYPE

$ENDAD: JSR
NOP
NOP
NOP

PC, (RO)

;:G0 TO MONITOR
: :SAVE ROOM
::FOR

JMP

a(PC)+

RESET

$DOAGN:

377

000

SEQ 0095

$RTNAD:
$ENULL:

.EVEN

w42, RO
$DOAGN

CARRIAGE RETURN.

;:GET MONITOR ADDRESS
s BRANCH IF NO MONITOR
;:CLEAR THE WORLD

JIACTN
READY
«1,=-1,0

; ;RETURN
s sNULL CHARA(CTER STRING

LINE

FEED

' CZRMQBO RM05/3/2 DSKLS TST 2
CLOCK SUBROUTINES

MACRO Vv04.00 4&=-APR-81 01:29:56 PAGE 12

;

.SBTTL

5 021550 000240
013746

013746

000006

|2 021570

012737

000300

005777
012737
012737
012777
012777

157710
022010
022132
022076
000300

005077

157662

8 091562

021576
021602
021610
021616
021624

17 021632

18 021640

19 021644

20 C21646
21 621652

012737

013777

000454

012716
000002

SI1ZCLK: NOP

000004

7 021556

12
13
14
15
16

CLOCK SUBROUTINES

:ROUTINE TO SIZE FOR CLOCKS (KW11=L OR KW11=P)

6 021552

SEQ 0096

021646

001526

000004

MOV
;SEE

001536
001540
157672
157666
157664

37
38 021740
39 021740
40 021744

012737
005777
012737
012737
012777
012777
013777
005077
000422
012716
000002

062766

021776

012637

000006

48 022006

000207

4 021770
46 021776

47 022002

005037
012737
005037

012637

000004

CLR

@SLLVECs?

MOV
RTI

#158,(SP)

208:

001516

012777

54 022024
55
56 022026

000403

177777

012777

000135

308

MoV

MOV

RTS

012777

000100

157476

157466
157466

FOR P CLOCK
SUBROUTINE ADDRESS
STOP ADDRESS
P CLOCK INTERRUPT VECTOR

SLLVEC+2,@SLLVEC:CLEAR L

308

IF L CLOCK

CLOCK INTERRUPT VECTOR

:DUMMY RTI ADDRESS
RESTORE PRIORITY
IS PRESENT-GO TO 208 IF NOT PRESET

#208,ERRVEC
:CHANGE 04 TRAP VECTOR
BSLLCSR
*TEST FOR L CLOCK
WLCLOCK,CLOCK
-LOAD SUBROUTINE ADDRESS
ALSTOP,STOPCL
-LOAD STOP ADDRESS
#LCOUNT,aSLLVEC :LOAD L CLOCK INTERRUPT VECTOR
APRG,@SLLVEC+?
SLPVEC+2,3$LPVEC:CLEAR P CLOCK INTERRUPT VECTOR
@SLPVECs?
308
#25%,(SP)
;DUMMY RTI ADDRESS
RESTORE PRIORITY

SLPVEC+2
ASLLVEC+2,SLLVEC:CLEAR L CLOCK INTERRUPT VECTOR
SLLVEC+2
#2.4(SP)
: CHANGE RETURN ADDRESS

(SP)+,ERRVEC+2

(SP)+ ERRVEC _

;ROUTINES TO START THE CLOCK

52 022010

53 022016

CLR
MOV
CLR
ADD

000004

;TEST
:LOAD
:LOAD
:LOAD

:NO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS
558
(LR
CLOCK
:CLEAR SUBROUTINE ADDRESS
MOV
#SLPVEC+2,SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR

001524

000004

MOV
TST
MOV
MOV
MOV
MOV
MOV
CLR
BR
MOV
RTI

::PUSH ERRVEC+2 ON STACK

:LOAD 04° TRAP VECTORS

IS PRESENT = GO TO 108 IF NOT PRESENT

aSLPCSR
#PCLOCK,CLOCK
APSTOP,STOPCL
#PCOUNT.SLPVEC
APR6,@SLPVEC+2

001536
001540
157614
157610
157572

021740

001536
001520
001520
001526
001526
000002

41 021752
42 021756
43 021764

005037
012737

021732
157634
022026
022140
022076
000300
001520
157570

#PR6 ERRVEC+2

TST
MOV
MOV
MOV
MOV

:NO P CLOCK=SEE

35 021654
26 021662
27 021666
26 021674
29 021702
30 021710
31 021716
32 021724
33 021730
3% 021732
35 021736

::PUSH ERRVEC ON STACK

#108,ERRVEC

A KW11=P CLOCK

MOV

108:

ERRVEC,=(SP)
ERRVEC+2,=(5P)

MOV

000006

021654

MOV

PCLOCK: MOY

MOV
BR

LCLOCK: MOV

::POP STACK INTO ERRVEC+2

::POP STACK INTO ERRVEC

(KW1l=L OR KW11=P)

#-1,aSLPCSB

:LOAD COUNT SET BUFFER

PLCLK

GO TO COMMON CODE

#100,a8$LLCSR

:LOAD CONTROL REGISTER

#135,a$LPCSR

:LOAD CONTROL REGISTER

CZRMCBO RMOS5/3/2 DSKLS ST 2

CLOCK SUBROUTINES

57
58 022034
59 022040
022042
60 022044
61 022050
6 022054
63 022060
64 022062
022066
022072
022074
65 022074
66
67
68
69 022076
70 022076
71 022076
72 022104

73 022106
74 022114
75 022122

76 022124
77 022130
78
79
80

81 022132
82 022136
83
84 022140
85
86 022144
87 022144
022150
022154
022156
88 022156

005037
104400

012605
010537
042705
022705
101005

012746
012746
000002

MACRO v04.00 4&-APR=-81 01:29:56 PAGE9 12-1

001532

PLCLK:

001530

CLR
TRAP
MOV

MOV

177437
000300

000240
022074

30%:

000207

40%:

TIME

(SP)+,RS
RS, $PSW

#*CPR7,RS

BIC
(MP
BHI
MOV

#PR
, = (SP)
S

RTS

MOV
RTI

sROUTINES

#PR6,
RS
40%

#30%,~-(SP)

TO HANDLE

CLOCK

SEQ 0097

JCLEAR TIMER COUNT
;sPUSH OLD PSW AND PC ON STACK
;:SAVE THE PSW IN RS
;SAVE PRIORITY
JMASK X
:hg'ERIORJTV TO0 HIGH??

;PUT NEW PS ON STACK
JiPUT NEW PC ON STACK
. sPOP NEW PC AND PS

INTERRUPTS

(KW11=L

OR KW11-P)

PCOUNT
:

062737

000021

001532

012737

177777

001532
001534

103003

162737
100002

005037
000002

000021

001534

LCOUNT:

10%:

20%:

ADD
BCC
MOV
SuUB
BPL

CLR

RTI

#17.,TIME
108
#-1,TIME
#17. ,WATCH

20%

WATCH

;ADD 17MS TO ELAPSED 7IME
sBRANCH IF NO OVERFLOW
sRESTORE MAXIMUM COUNT

sDECREMENT REMAINING TIME
;BRANCH IF POSITIVE
;CLEAR REMAINING TIME
;RETURN TO USER

sROUTINES TO STOP THE CLOCK (KW11=L OR KW11-P)
005077
000402

157354

005077

157356

013746
012746
000002

001530
022156

000207

PSTOP:

LSTOP:

CLR
BR

aSLPCSR
PLSTP

:STOP P CLOCK
;GO TO COMMON STOP (ODE

(LR

@SLLCSR

;STOP L CLOCK

MOV
MOV

#108,-(SF)

$PSW,
= (SP)

;:PUT NEW PS ON STACK
J:PUT NEW PC ON STACK
;;POP NEW FC AND PS

RTS

PLSTP:

10%:

RT]

C(ZRMQBO RMOS5/3/2 DSKLS IST 2
SET VOLUME vALID SUBROUTINE

MACRO v04.00

4-APR=-81

H 8
01:29:56 PAGE 16
SEQ 0098

LSBTTL

sTHIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID,

JRETURNS TO THE WORD FOLLOWING THE CALL,

JRETURNING WITH

13 022160

15 022164

THE

VALID SUBROUTINE

DRIVE

STILL

JCALL:
s
3
004737

012760

022404

PC,SETVV
2?

JUMP TO SUBROUT INE
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV

#DMD MUR , RMMR 1 (RO)

012760
012760

000000
000000

000014
000042

MOV
MOV

20 022222
21 022230
22 022236
23 022240
24 (022244
25 02225¢
26 022260

016037
042737
001020
010037
062737
(012737
062716

000012
177677

001142
001142

001136
000012
000100
000002

MOV
BIC
BNE
MOV
ADD
MOV
ADD

RMDS (RQ) ,$BDDAT
#4CVV,$BDDAT
108
RO, $8DADR
#RMDS
, $BDADR
#VV,SGDDAT
#2,(SP)

28 022272

012737

000022

MOV

#PACACK
, $TMPO

19 022214

27 022264

2% 022300

SUBROUTINE

SETVV:
000024

17 022200
18 022206

THE

EXCEPT WHEN AN ERROR IS

JSR
BR
ERROR

000001

16 022172

IN DIAGNOSTIC MODE.

:%HECTED. IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE

3
10
};
14 022160

SET VOLUME

012760

112776

000207

001001

000023

000100

000024

000000

MOV

001136
001140

000000
001174

MOV

MOVB
108:

RTS

#DMD ,RMMR1(R0O)

;LOAD RMMR1

#0,RMER1 (RO)
#0,RMER2(R0)

;LOAD RMMR1

;LOAD RMER1
;LOAD RMERZ2
#PACACK !GO,RMCS1(RO)
;LOAD RM(CS1

0160.3(5&’)
PC

;STORE RMDS AT $BDDAT
g
;JBRANCH IF VOLUME VALID SET
;SETUP FOR ERROR MSG
;MOVE RETURN ADDRES3 TO ERROR

JWRITE ERROR NUMBER
sRETURN

i CZRMQBO RMQS5/3/2 DSKLS IST 2

'
|

;

!
‘

;

SET OFFSET MODE

SUBROUT
INE

MACRO V04.00 4-APR=81 01:29:56 PAGE 19

.SBTTL SET OFFSET MODE SUBROUT INE

sTHIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET

:MODE

6
g

THE

DRIVE

SHOULD BE

IN DIAGNOSTIC MODE WHEN CALLING

sWORD FOLLOWING THE CALL UNLESS THERE
JRETURNS TO THE SECOND WORD FOLLOWING

sCALL:
:

13 022302

14
15
16
17
18
19

SETS.

: SUBROUTINE, WHICH WILL LEAVE DMD ON.

9
10

SEQ 0099

022302
022310
022316
022326
022332
022340

012760
012760
012760
012760
016037
042737

20 G22346
21 022350
22 022356
23 022362
24 022370

001015
012737
010037
082737
062716

27 022402

000207

SZ 85%2(7)12.

112776

001001
000000
000000
000015
000012
177776

000024
000014
000042
000000
001142
001142

000001
001136
000012
000002

001140

000111

IN WHICH CASE

PC,SETOM
L ¢

MOV
MOV
MOV
MOV
MOV
BIC

#DMD
! MUR ,RMMR1 (RO)
;LOAD RMMR1
#0,RMER1(RO)
;LOAD RMER1
#0,RMER2 (RO)
;LOAD RMERZ2
#OFFSET !GO,RMCS1(RO)
;LOAD RMCS1
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#*COM,$BDDAT

JUMP TO SUBROUT INE
RETURN HERE IF NO ERROR

RETURN HERE IF ERROR

SETOM:

001136
000000

IS AN ERROR,
THE CALL

JSR
BR

ERROR

108

BNE
MOV
MOV
ADD
ADD

108
#O0M, SGDDAT
RO, $8DADR
#RMDS
, $BDADR
#2,(SP)

;BRANCH IF OFFSET ON

RTS

sRETURN TO USER

MOvB

#111,a(SP)

THE

THE SUBROUTINE RETURNS TO THE

sMOVE RETURN ADDRESS TO ERROR
;WRITE ERROR NUMBER

8 022404
022404

9 022406
10 022412

11 022420
12 022426
13 02243C

J 8
&-APR-81 01:29:56 PAGE 18

MACRO V04.00

SEQ 0100

NN
LS WA -2

CZRMOBO RM0S5/3/2 DSKLS IST 2
CLEAR CONPROLLER SUBROUTINE

.SBTTL

CLEAR CONTROLLER SUBROUTINE

:THIS SUBROUTINE

CLEARS

THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,

:é:fLoaxves. THEN SELECTS THE DRIVE.

;
010046

013700
012760

117760
012600
000207

CNTCLR:
001276
000040
157042

000010
000010

JSR

PC,CNTCLR

MOV
MOV

RO,=(SP)
$B8ASE ,RO

;:PUSH RO ON STACK

*RE TURN

MOV
MOVB

MOV
RTS

JCALL TO ROUTINE
JRO = UNIBUS BASE ADDRESS

#CLR,RMCS2(R0O)
;CLEAR MASSRUS
@TSTQUE,RMCS2 (RO}
JSELECT DEVICE UNDER TEST
(SP)+,R0
;:POP STACK INTO RO

[
lI

CZRMQBO RMO5/3/2 DSKLS TST 2

ENABLE

SEARCH SUBROUT INE

MACRO V04.00

4-APR=-81

01:29:56 PAGE

;

.SBTTL

2 022432

ENBSCH:

sTHE REGISTER OUTPUT BUFFER

6
7

SEQ@ 0101

ENABLE SEARCH SUBROUTINE

SHOULD CONTAIN:

:
:

RMDAQ
RMDCO

= DESIRED SECTOR AND TRACK ADDRESS
= DESIRED CYLINDER ADDRESS

9
10

:
:

RMBAQO
RMWCO

RMCS10

= BUFFER ADDRESS
= WORD COUNT

}‘3.

sNOTE:

OFFSET IS NOT ENABLED WHEN USING THIS SUBROUTINE

15
16

sSET VOLUME VALID
sFIRST,CLEAR =SET DIAGNOSTIC MODE~SYNCHRONIZE

“:g

19 022432

004737

022404

000001
000041

000024

012760
012760

005001
001001

000024
000024

26 022470
27 022474
28 022476
29 022500
30 022502
31 022506
32 022514
33 022520
34 022526
35 022532
%(; 8%5;22

032705
001023
005304
001363
010037
062737
005037
012737
062716
112776
000137

000040

022544
38 022552
39 022560
40 022564

41 022570
42 022572
43 022574
44 022576
45 022602
46 022610
47 022616
48 022622

012760
012760
016005
032705
001423
005304
001363
010037
062737
012737
005037
062716

001136
000024
000040
001140
000002

g? 022634

000137

023302

49 022626
52
53
54

55 022640

= FORMAT, ECI, HCI

= FUNCTION CODE

;PROM STROBE

20 022436
21 022444
22
23 022450
022450
24 022456

25 022464

RMOFO

012760
012704

016005

112776

000024

001136
000024
001142
000040
000002
000030
023302
005001
001001
000024
000040

000062

JSR

5%:

001140

000000

“

000024
000024

001136
001142

000000

MOV
MOV

#DMD !MUR !MCLK ,RMMR1T(RO)
#DMD !MUR ,RMMR1 (RC)

BIT
BNE
DEC
BNE
MOV
ADD
CLR
MOV
ADD
MOVB
JMP

MIC,RS
;WAIT FOR PROM STROBE TO COME ON
6$
R4
5%
RO, $BDADR
;PROM STROBE WONT SET
#RMMR1, $BDADR
$BDDAT
MIC,SGDDAT
#2,(SP)
#30,3(SP)
608
;REPORT ERROR

MOV
MoV
MOV
BIT
BEQ
DEC
BNE
MOV
ADD
MOV
CLR
ADD

#DMD !MUR !MCLK ,RMMR1(R0O) ;LOAD RMMR1
#DMD
! MUR .RMMR1 (RO)
:LOAD RMMR1
RMMR1(RO) ,RS
:STORE RMMR1 AT RS
MIC RS
JWAIT FOR PROM STROBE TO GO OFF
7%
R4
6$
RO, $BDADR
:PROM STROBE WONT RESET
#RMMR1,8BDADR
#WC ,$BDDAT
$GDDAT
#2,(SP)

JMP

60%

MOvVB

RMMR1 (ROJ ,RS

#62,3(SP)

;SECOND, CLOCK INDEX PULSE TO
;
(1) CLEAR FORMAT (HANGE FLOP
;
(2) CLEAR RTC FLOP

;GO CLEAR CONTROLLER

#DMD ,RMMR1(R0O)
#33. R4

MOV

001136

PC,CNTCLR

MOV
MOV

;LOAD RMMR1
sALLOW UP TO 33 BIT CLOCKS
;TO SYNC PROM STROBE
;LOAD RMMR1
;LOAD RMMR1

;STORE RMMR1 AT RS

CZRMQBO RMOS5/3/2 DSKLS TST 2

ENABLE

SEARCH SUBROUTINE

56 022640

012760

001005

MACRO Vv04.00 4-APR-81 01:29:56 PAGEL 18-1
000024

MOV

#DMD 'MUR 'M[ ,RMMR1(RO)

59 022654 012760 000000 000014

MOV

#0,RMER1(RO)

61 022670 012760 000023 000000
62 022676 016037 000012 001142

MOV
MOV

#PACACK 'GO,RMCS1(RO)
:LOAD RMCS1
RMDS (RO) , $BDDAT ; STORE RMDS AT $BDDAT

64 022712 001021
65 022714 010037 00113¢

BNE
MOV

108
RO, $BDADR

gg 022646 012760 0601001

000024

SEQ 0107

60 022662

012760

000000

000042

63 022704

042737

177677

001142

66 022720

062737

000012

001136

MOV

BIC

ADD

67 02272€ 012737 000100 001140
68 022734 062716 000002

MOV
ADD

70 022746

MOV

69 022740

112776

012737

;5 022754 000552

000100

000022

000000

001174

74 022756

75 C22756
76 022764
77 022772
78 023000
ggozsoos
81

82 023014
83 023022
84 023030
ggozsoss
87

88 023044

#DMD | MUR , RMMR 1 (RO)
#0.RMER2(RO)

#CVV,$BODAT

#RMDS
, SBDADR

#VV,$GDDAT
#2,(SP)

MovB

#100,a(sP)

B8R

608

APACACK
, $TMPO

013760
013760
013760
013760
013760

001420
001446
001444
001414
001416

000006
000034
000032
000002
000004

012760
012760
012760
013760

041401
000000
000000
001412

000024
000014
000042
000000

012737 000310 001534

108
:

MOV
MOV
MOV
MOV
MOV

RMDAO,RMDA(RO)
RMDCO.RMDC
(RO)
RMOF O_RMOF (RO)
RMWCO,RMWC
(RO)
RMBAO.RMBA(RO)

MOV
MOV
MOV
MOV

:WAIT FOR "RUN AND GO'' TO SET

MOV

RMMR1 (RO) , SBDDAT

91 023072 001023
92 023074 005737 001534
93 023100 001366
9% 023102 004777 156432
95 023106 012737 040000

001140

BNE
ST
BNE
JSR
MOV

308
WATCH
208
PC,asSTOPCL
#RG, SGDDAT

97 023120

062737

000024

001136

ADD

16’3 023132

112776

000101

000000

101 023140

000460

s 023142

004777

156372

}82 85;};3

012704

000021

023152

012760

108 023166

005304

156460

042737

137777

9 023114 010037 001136
98 023126 062716

104

107 023160

:LOAD RMER2

:VOLUME VALID SHOULD BE SET

;SETUP ERROR MSG
;WRITE ERROR NUMBER

012760

000002

141401

041401

:LOAD RMDA
:LOAD RMDC
:LOAD RMOF
:LOAD RMWC
:LOAD RMBA

#DMD ! MUR ' DBEN ' MOC , RMMR1 (RO)
:LOAD RMMR1
#0,RMER1(RO)
;LOAD RMER1
#0.RMER2(R0)
:LOAD RMER2
RMCS10,RMCS1(RO)
;LOAD RMCS1

001142

004777

023056 016037 000024

102 023142

;LOAD RMFR1

;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE

#200. ,WATCH

90 023064

“LOAD RMMRT

:LOAD REGISTERS

MOV

= 85%2%

;L OAD RMMR1

001142

JSR

BIC

MOV

#~CRG, SBDDAT

RO, $8DADR

#RMMR1 , SBDADR

ADD

#2,(SP)

B8R

608

JSR

PC,aSTOPCL

MOVB

308:

PC,aCLOCK

#101,a(sP)

:SET WATCHDOG TIMER VALUE
*START THE CLOCK

;STORE RMMR1 AT $SBDDAT
:ANY TIME LEFT?
SYES=WAIT
:STOP THE CLOCK
*SETUP ERROR MSG

;WRITE ERRL: NUMBER IN
;USER'S CALL -

;STOP THE CLOCK

;STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS)

b
000024

000024

MOV

#17. R4

MOV

#DMD ' MUR | DBEN 'MOC ! DBCK , RMMR1 (RC)

DEC

MOV

sR4=CLOCK COUNT

#DMD | MUR | DBEN ! MOC .RMMR1 (RO)

:LOAD RMMR1

:LOAD RMMR

CZ]MQBO RMOS5/3/2 DSKLS TST 2

ENABLE

SEARCH SUBROUT INE

MACRO V04.00

BNE

012760

041001

000024

116

119 023212 012760
120 023220 012760
005304

042737

001015
010037
062737
012737
062716

131 023302
132 023302

000207

130 023274

112776

MOV

:LOAD RMMR1

(35 CLOCKS) AND VERIFY SEARCH IS ENABLED

#35. R4

000024
000024

MOV
MOV

#DMD ! MUR | DBEN'MOC ! DBCK 'MSEN,RMMRT (RO)
#DMD | MUR | DBEN | MOC I MSEN , RMMR T (RO)

001142

BNE
MOV

001136
000024 001136
004000 001140
000002

BNE
MOV
ADD
MOV
ADD

508
RMMR1 (RO) , SBDDAT
:STORE RMMR1 AT $BDDAT
#~CESRC,$BDDAT
;SEARCH SHOULD BE ENABLED
608
RO, $BDADR
;SETUP ERROR MESSAGE
#RMMR1, SBDADR
#ESRC
, $GDDAT
#2, (SP)
;WRITE ERROR NUMBER

RTS

151401
051401
173777

000102

:LOAD RMMR1

#DMD | MUR | DBENMOC
, RMMR1 (RO)

MOV

122 023230 001370
123 023232 016037 000024

125 023246
126 023250
127 023254
128 023262
129 023270

THEN SET ON CYLINDER TO PASS

*TEST AT LOCATION 166
MOV
#DMD ! MUR ' DBEN, RMMR1 (RO)

:STEP SEQUENCER

“g 35%2293 012704 000043

126 023240

408$

:DROP ON CYLINDER TO RESET LATCH,

H‘s’ 023200 012760 041401

121 023226

M 8
01:29:56 PAGE 19-2
SEQ 0103

11?8 023170 001370
112
113 023172

4&=-APR-81

DEC

001142

000000

BIC

608
:

movB

#102,a(SP)

:R4=CLOCK COUNT

:LOAD RMMR1
*LOAD RMMR1

CZRMQBO RMOS5/3/2 DSKLS TST 2

SECTOR COMPARE

SUBROUT INE

MACRO V04.00

N 8
4-APR-81 01:29:56 PAGE 20

.SBTTL

SEQ 0104

SECTOR COMPARE SUBROUTINE

:THIS SUBROUTINE CONTINUES THE EXECUTION OF A DATA COMMAND
;gugE%)HERE SEARCH HAS BEEN ENABLED TO WHERE SECTOR COMPARE

012760
012760

051405
051401

000024
000024

012737
004777
005737
001375
004777

000006
156204
001534

001534

#DMD !MUR ! DBEN!MOC !MSEN!M] ,RMMR1 (RO)
#DMD ! MUR ! DBEN!MOC
!MSEN ,RMMR1 (RO)

;LOAD RMMR1T
;LOAD RMMR1

JWAIT AT LEAST 4 MS FOR "RETURN TO CENTER LINE'' ONE SHOT TO SET
MOV
#6 ,WATCH
;SET WATCHDOG TIMER VALUE
JSR
TST

BNE
JSR

PC,aCLOCK
WATCH

108
PC,aSTOPCL

;START THE CLOCK

;STOP THE CLOCK

:gg;AFifiuT TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE TO
012760
012760

051441
051401

25 023360
26 023366
27 023374

012760
012760
012760
012760

051403
051443
051403

28 023402
29
30 023410

MOV
Mov

156174

21 023344
22 023352
23
24

sSET INDEX PULSE TO CLEAR FORMAT CHANGE FLOP

108:

b o

d o

d e

SCTCMP:

000207

051401

000024

000024
000024

000024

000024
000024

MOV
MoV

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

;LOAD RMMR1
;LOAD RMMR1

sWITH SECTOR COMPARE HIGH, CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP

MOV

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

;LOAD RMMR1

#DMD | MUR i DBEN ! MOC | MSEN!MSC,RMMR1 (RO)
#DMD ! MUR | DBEN ! MOC | MSEN, RMMR1 (R0)

:LOAD RMMR1
:LOAD RMMR1

MOV

#DMD !MUR | DBEN!MOC | MSENMSC 'MS ,RMMR1 (RO) :LOAD RMMR1

RTS

MOV
MOV

"SBTTL

3
<S-

;THIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCER
*ASSUMING SEARCH IS ENABLED,TO THE POINT WHERE 'PLFS'' IS ACTIVE

9 023412

SETLFS:

:PULSE BIT CLOCK UNTIL PROM STROBE SETS

9 023412

10 023412 012760
11 023420 012760
12 023426 016005
13 023432

055401
051401
000024

032705

000040

}g 8533222

012704

000260

023444

012760

055401

20 023460 016005
21 023464 032705

000024
002000

}'s' 023436
16

19 023452

000024
000024

012760

22 023470

001010

26 023502

112776

Sg 023510 000430

051401

000002

000035

BEQ

000024

34, 023522 001007
35 023524 012760
36 023532 012760

032705

37 023540 000414
38 023542
023542 016005
35 023546 032705

40 023552

41 023554
42 023562
43 023570

44 023572
45 023572

MOV

000024

MOV

MOV
BIT
BNE

DEC
BNE
ADD

000000

mov8

:LOAD RMMRT
*LOAD RMMK1

#JC RS

108

#176. R4

WHERE PLFS WILL

SET

sMAX NUMBER OF BIT CLOCK

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

#DMD i MUR | DBEN | MOC 'MSEN . RMMR 1 (RO)

:LOAD RMMR1

*LOAD RMMR1

RMMR1(RO) ,RS ~ ;STORE RMMR1 AT RS
#PLFS,RS
;EXIT IF PLFS IS SET

308

Ré&
208
05 (SP)
#35,a(sP)
508

JERROR IF COUNT EXHAUSTED
"
:
*CANT SET PLFS

;STEP THE MAIN REG CLOCK UNTIL THE TRAILING EDGE OF PROM STORBE
1S DETECTED.

016005

33 023516

#DMD 'MUR ' DBEN'MOC 'MSEN'MCL
,RMMRT
K (RO)
#DMD | MUR | DBEN ' MOC ' MSEN . RMMR 1 (RO)
RMMR1(RO)
,RS ~ ;STORE RMMR1 AT RS

;SET UP DATA SEQUENCER TO LOCATION 11.

29
30

31 023512

MOV
MOV
MOV
BIT

001765 -

23 023472 005304
26, 023474 001363
25 023476 062716

32 023512

708:

SET LOOKING FOR SYNC SUBROUTINE

001407

012760
012760
000764
000207

208:

000040

BIT

000024
000024

000024
000040

055401
051401

MOV

.
408:

BNE
MOV
MOV
aR

MOV
BIT

BEQ

000024
000024
508:

RMMR1(RO),RS

MJC RS

;STORE RMMR1 AT RS

408
#MRTAAA
'MCLK ,RMMR1(R0O)
AMR1AAA .RMMRT (RO)
508

RMMR1(RO),RS
#JC RS
50%

:LOAD RMMR1
*LOAD RMMR1

:STORE RMMR1 AT RS

MOV
MOV
BR

AMR1A
'MCLK ,RMMRT(RO)
AA
#MR1AAA
. RMMR T (RO)
408

:LOAD RMMR1
*LOAD RMMR1

RTS

JEXIT

CLOCK SYNC

SUBROUT INE

MACRO v04.00

4&-APR-81

(01:29:56 PAGE 22

y
SEQ 0106

.SBTTL

;THIS SUBROUTINE WILL SIMULATE THE HEADER AND DATA SYNC

¢ 023574

CLKSNC:

;

CLOCK SYNC SUBROUTINE

*PATTERN BEING READ

9 023574 016004
10 023600 032704
11 023604 001023
12 023606 010437

001142

14 023620
15 023626

002000
001136

13 023612

042737

012737
010037

16 023632
17 023640

062737
062716

19 023652

000472

18 023644

20 C23654
21 023660
22 023664

26 023706

gg 023710

30 023712

175777

000024
000002

112776

000035

012705
032704
001434

000021
000040

23 023666 012760
24 023674 012760
25 023702 016004
005305

:VERIFY THAT 'PLFS'' IS ON

000024
002000

055401
051401
000024

MOV
BIT
BNE
MOV

001142

BIC

001140
001136

108:
208:

000024
000024

MOVvB

#35,3(sP)

603

MOV
MOV
MOV

#MR1AAA
'MCLK ,RMMRT (RO) :LOAD RMMR1
AMR1AAA . RMMRT (RO)
*LOAD RMMR1
RMMR1(R0) ,R4
;STORE RMMR1 AT Ré4

MoV
BIT
BEQ

BNE

#17. RS
MIC.RG
308

208

;ERROR CAN'T RESET PROM STROBE WITH LFS ACTIVE

3% 023734

005037 007140
010037 001136
062737 000024 001136

CLR
MOV
ADD

$SGDDAT
RO, SBDADR
#RMMR1
, SBDADR

36 023746

112776

MOVB

32 023724
33 023730
35 023742

gg 023754

062716

000431

177737

000002

000062

001142

012704
012737
012705

45 023776

006004

46 024000

25 024002

000241

103002

014400
000020
051401

052705

002000

024006

010560

000024

51 024016
52 024022
53 024026

010560
(042705
010560

55 024036

001354

49 024006

50 024012

54 026032

ADD

#*CWC
, SBDDAT

:SETUP ERROR FOR USER
s

#2,(SP)

#62.3(SP)

608

:CLOCK THE SYNC PATTERN (00011001) THROUGH THE SHIFT REGISTER

41 023756
42 023762
43 023770
44 023774

BIC

000000

40 023756

;MAKE SURE PROM STROBE IS OFF

R4, SBDDAT

042737

001142

;STORE RMMR1 AT R4
‘LOOK FOR SYN SET ?
*BRANCH IF SO
:

#RMMR1
, SBDADR
#2, (SP}

MOV

31 023716

010437

#PLFS,SGDDAT
RO, $BDAUR

DEC

001363

#~CPLFS,$BODAT

MOV
MOV
ADD
ADD

000000

RMMR1(RO)
R4
#P._FS R4
108
R4, $BDDAT

052705

005337

004000

000024
004000
000024
024042

308:

024042

408:

MOV
MOV
MOV

#014400,R4
#16, 708
#MR1AAA RS

ROR

BIS

#MRD ,RS

;SET READ BIT PER PATTERN BIT

MOV

RS,RMMR1(RO)

:LOAD RMMR1

RS5,RMMR1(RO)
#MCLK RS
R5,RMMR1(RO)

;LOAD RMMR1
-CLOCK ONE BIT
:LOAD RMMR1

cLe

BCC

508:

BIS

MOV
BIC
MOV
DEC

BNE

508

#MCLK RS

70§

408

;STROBE BIT COUNT
*GENERATE REG VALUE

*WITH MAINTENANCE CLOCK ON

e ——

CZRMQBO RMOS5/3/2 DSKLS TST 2

CZRMQBC RMOS5/3/2 DSKLS TST 2
CLOCK SYNC SUBROUT INE

MACRO v04.00

4~APK=-81

SEQ 0107

sCAN'T VERIFY SYNC (L 0 ETNSAS
sUSER CAN DO SO BY ST E

60 024040
€1 024040
62
63 024042

01:29:56 PAGE 22-1
DETECTED

JBIT CLOCK AND VERIFY PROM STROBE SETS WITHIN ONE WORD TIME

000207

000000

60%:
70%:

RTS

. WOKD

; TEMPORARY STORAGE

. CZRMQBO RMOS5/3/2 DSKLS TST 2
SAVE

AND RESTORE RO-R5 ROUTINES
1

.SBTTL

SAVE

AND RESTORE

SEQ 0108

RO=R5 ROUTINES

.'"'Q't"'.l'.'.'t'..'""'I'tt'.""."."'t.ttt"tttt"t'tt"t't

:*SAVE RO=RS

+*CALL:

SAVREG

;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
-

PATOP===(416)

i 42===(+18)

i* +4===R5
:* +6-==R4

;* +8---R3

;*+10-==R2
s*+12===R1
:*+14===R0

024044

024044
024046
024050
024052
024054
024056
024060
024064
024070
024074
024100

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

000022
000022
000022
000022

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
RTI

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,-(SP)
R4 ,=(SP)
R5,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,-(5P)

;;PUSH RO
;;PUSH R1
:;PUSH R2
;;PUSH R3
:;PUSH R4
:;PUSH R5
:sSAVE PS
;:SAVE PC
:;SAVE PS
::SAVE PC

ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

MoV
MOV
MOV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS5
(SP)+ R4

;;RESTORE PC OF CALL
;;RESTORE PS OF CALL
;sRESTORE PC OF MAIN FLOW
ssRESTORE PS OF MAIN FLOW
:;POP STACK INTO R5
:;POP STACK INTO R4

MOV
MOV
MoV
RTI

(SP)+ ,R2
(SP)+,R1
(SP)+,RO

:;POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

;*RESTORE RO-R5
s*CALL:

024102
024102
024106
024112
024116
024122
024124

012666
012666
012666
012666
-012605
012604

24130
024132
024134
024136

012602
012601
012600
000002

024126

2603

000022
000022
000022
000022

$RESREG:

RESREG

MOV

(SP)+,R3

:;POP STACK INTO R3

—

MACRO Vv04.00 4-APR-81 01:29:56 PAGE 22

| CZRMQBO RMOS5/3/2 DSKLS TST 2

|
|

'
|

BINARY

TO ASCI1

AND

TYPE

ROUTINE

MACRO V04.00

4-APR-81

SEQ 0109
.SBTTL
SRR

BINARY TO ASCII AND TYPE ROUTINE
kR

AR AR RN AR AR R

'TH]S ROUTINE

024140
024142
024146
024150
024156
024160
024162
024166

024172

024174
024176

024200
024206
024210
024212

010146
016601
000261
112737
006101
001406
105537
104407

000241
000765
012601
016666
012616
000002
000

000006
000060

024212

000

000004

AR AR AR AR RN NN AR

NUMBER AND TYPE

$TYPBN: MOV
MOV
SEC

R1,=(SP)
6(SP) ,R1

1%:

2%:

$RIN:

MCVB
ROL
BEQ
ADCR
TYPE
CLC
BR

MOV

MOV
MOV
RTI
BYTE

A AR RAAARAA

AN AR AR

AR A

IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 16-BIT

:*BINARY=ASCI]
s=CALL:
;'
MOV
I
TYPBN

024212
024212

000002

F
9
01:29:56 PAGE 24

NUMBER, = (SP)

#'0,8BIN

2%
$8IN

L$BIN

18
(SP) +,R1

1T,

J:NUMBER TO.BE TYPED

J3TYPE

:;SAVE R1 OM THE STACK

::GET THE INPUT NUMBER
:iSET "'C" S0 CAN KEEP TRACK OF THE NUMBER OF BITS
:2SET CHARACTER TO AN ASCII "0,
i3GET THIS BIT

;s sNO==SET THE CHARACTER EQUAL TO THIS BIT
;:G0 TYPE THIS BIT

2sCLEAR ''C'" SO CAN KEEP TRACK OF BITS
;:G0 DO THE NEXT BIT

2(SP) ,4(SP)

;:POP THE STACK INTO R1
;;ADJUST THE STACK

0.0

;;RETURN TO USER
;;STORAGE FOR ASCII CHAR. AND TERMINATOR

(SP)+,(SP)

CZRMQBO RMOS/3/2 DSKLS TST 2

CONVERT BINARY

TO DECIMAL

MACRO V04.0C

AND TYPE ROUTINE

4-APR-81

.SBTTL

01:29:56 PAGE 25

SEQ 0110

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.'.tt.t"ti"ttt.."t"".t.t'..tttt'tl!'Q.!t'.."'t.t'!'t"!.t

'THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 5=DIGIT
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE 1T. DEPENDING ON WHETHER THE
J*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:
- ®

’

-9

024214
024214
024216
024220
024222
024224
024226
024232
024236
024240
024242
024250
024252
024256
024262
024264
024270
024272
024274
024276
024300
024302
024304
024306
024310
024312
024314
024316
024324
24330
024334
024336
024340
024344
024346
024350
024352
024354

024356
024360
024366
024370
024372
024374
024376

010046
010146
010246
010346
010546
012746
016605

100004
005405
112766
005000

$TYPDS:

000055
024430
000040

016001

024420

160105
002402
005202
000774
060105
005702
061002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027

002746

;;PUT

RO,=(SP)
R1.=(SP)
R2.,=-(SP)
R3.-(SP)
R5.=(5P)

2 sPUSH RO ON STACK
J:PUSH R1 ON STACK
;sPUSH R¢ ON STACK
;:PUSH R3 ON STACK
;:PUSH RS ON STACK
;2SET BLANK SWITCH AND SIGN
..GET THE INPUT NUMBER

20(SP) 'RS
1

000001

#'=,1(SP)

1%:

RO
#$DBLK ,R3

# L(RD+

2%:

R2
$DTBL (RO) ,R1
R1.RS

3%:

4%:

THE BINARY NUMBER ON THE

STACK

;:G0 TO THE ROUTINE

JBR IF

INPUT IS POS.

LIMAKE THE BINARY NUMBER POS.
;;MAKE THE ASCII NUMBER NEG.
;;ZERO THE CONSTANTS INDEX

;:SETUP THE OUTPUT POINTER
2sSET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER
;2GET THE CONSTANT
;;FORM THIS BCD DIGIT
IF DONE
;:BR°
;s INCREASE THE BCD DIGIT BY 1
;;ADD BACK THE CONSTANT
;:CHECK IF BCD DIGIT=0

;sFALL THROUGH IF 0
::STILL DOING LEADING 0°'S?
:BR IF YES

5%:
000001
000060
000040

177777

1¢s) -1(R3)

,. Ré

6%:
7%:

R2,(R3)‘
(RO)
+
RO,#10

000010

2%
8%

R5,R2
6%

8%:
177777

012602
012601

= (SP)
NUM,

#20200,-(sP)

020200
0C0020

012703

112723
005002

MOV
TYPDS

177776

9%:

CLRB
MOV
MOV

+
(SP)
9%
=1(SP) ,=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+ ,R2
(SP)+,R1

..MSD’

:BR IF NO

..YES--SET THE SIGN
;sMAKE THE BCD DIGIT ASCII

JJMAKE

IT A SPACE

IF NOT ALREADY A DIGIT

;sPUT THIS CHARACTER IN THE OUTPUT BUFFER

ING
;2JUST INCREMENT

:sCHECK THE TABLE

INDEX

2:G0 DO THE NEXT DIGIT
;:G0 TO EXIT
;:GET THE LSD
;2GO0 CHANGE TO ASCI!I
;sWAS THE LSD THE FIRST NON-ZERQ?

;:BR IF NO

;sYES==SET THE SIGN FOR TYPING

2JSET THE TERMINATOR
;sPOP STACK INTO RS
JJPOP STACK INTO R3

;JPOP STACK INTO R2
JJPOP STACK

INTO R1

CZRMQBO RMOS5/3/2 DSKLS TST 2

CONVERT BINARY

024400
024402

026406

026414

024416
026420
024422
006426
026426
006430

TO DECIMAL

012600
104401

016666

012616

000002
023420
Q01750
000144
000012

AND

(24430

000002

MACRO v04.00

TYPE

ROUTINE

4=APR=-81

MOV
TYPE

000004

MOV

MOV
$DTBL:

$DBLK:

RT]
10000.
1000.
100.
10.
.BLKW

H 9
01:29:56 PAGE 25-1

(SP)+,R0O
$DRL K

2(SP) ,4(SP)

(SP)+. (SP)

;POP STACK INTO RO
LINOW TYPE THE NUMBER

“YADJUST THE STACK
;:RETURN TO USER

CZRMQGBO RMOS/3/c DSKLS TST 2
MACRO v04.00
BINARY TO OCTAL (ASCII) AND TYPE

.SBTTL

4&=-APR-81 01:29:56 PAGE 26

SEQ 0112
BINARY TO OCTAL

LA RE AL AR AR

(ASCII) AND TYPE
R

2222222222

'THIS ROUTINE

1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

MOV

NUM, = (SP)

.BYTE

:*OCTAL (ASCII) NUMBER AND TYPE IT,
'%Llfos---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
3

TYPOS

BYTE

; :NUMBER TO BE TYPED

;:CALL

FOR

TYPEOUT

::N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE

;M= OR 0
1 TYPE LEADING ZEROS

:n
o
..

'STYPON---°ENTER HERE
:*$TYPOS OR $TYPOC
s=CALL:

i
£9

Mov

TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM, - (SP)

: ;NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

"%LIEOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
®

024440
024444
024452
024456
024462
024464
024472
024500
024506
024510
024512
024514
024520
024522
024526
024532
024536
024542
024544
024546
024550

024552
024554
024556
024560
024562
024566
024570
024574
024576

024665
000002
000001
000005

024663

024663
024665
024662

; :NUMBER TO BE TYPED

a(SP) ,-(SP)

;;PICKUP THE MODE

#2,(SP) .
$TYPON

::ADJUST RETURN ADDRESS

#6,SOMODE
+1
#5.S0CNT

R3.-(SP)
R&.-(SP)
RS.=(SP)
SOMODE+1,Rd

::SET FOR SIX(6) DIGITS
::SET THE ITERATION COUNT
::SAVE R3
:iSAVE R4
::SAVE RS
$:GET THE NUMBER OF DIGITS TO TYPE

ADD

#6 R4

;;SUBTRACT IT FOR MAX. ALiLCWSD

ROL

ROL
ROL
MOV
ROL
DECB

BPL
BIC
BNE

RS
R5
R5,R3
R3
$OMODE

::GET LSB OF THIS DIGIT
:TYPE THIS DIGIT?

#177770,R3

SIGET RID OF JUNK

BEQ

: :SUPPRESS THIS 0?

s sDON'T

MOvVB
MovB

ADD
BR

$TYPOC: MOVB

MOVB
STYPON: MOVB

MOV
MOV
MOV
MOVE

18:

2%:

024664

NUM, = (SP)

TYPOC

$TYPOS: MOV

024665

024664
024663
000012

MoV

177770

MOVB
MOVB
MOV"
CLR

BR
ROL

TST

4%:

INC

1(SP) ,$OF ILL
(SP)+,SOMODE+1

#1,80FILL

;;CALL FOR TYPEOUT

;:LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

::SET THE ZERO FILL SWITCH

R&,SOMODE
SOFILL,.R4
12(SPIRS

1SAVE IT FOR USE
$:GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER

3%
RS

G0 DO MSB
:'FORM THIS DIGIT

7$
43

::CLEAR THE OUTPUT WORD

: :ROTATE MSB INTO '

:BR_IF NO
*TEST FOR 0

1BR IF YES

SUPPRESS ANYMORE 0°'S

BINARY 10 OCTAL

(ASCII)

AND TYPE

024604
024610
024614
024620
024624
024630
024632
024634
024636
024640
024642
024644
024646
024654
024656

052703
052703
110337
104401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002

000060
(00040
024660
024660
024662

024660
024661
024662
024663
024664

000
000
000
000
000000

MACRO V04.00

5%:

BIS
BIS
MOV

7%:

DECB

6%:
000002

4=-APR=-81

000004

MOV

MOV
MOV

8%:

RTI

.BYTE

BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODL: .WORD

01:29:56 PAGE 26~1
#'0,R3
#'
'R3

R3,8%
8$

$OCNT
2

(SP)+,RS

(SP)
+ ,R4

(SP)+,R3
2(SP),4(SP)
(SP)+,(SP)

SEQ 0113

; ¢MAKE THIS DI G I7 ASCI]
J¢MAKE ASCI] | F N0T ALREADY
;:SAVE FOR TYP I NG
1
;:GO TYPE THIS DI GIT
;s COUNT BY 1
;:BR IF MORE TO D 0

;:BR _IF DONE
;o INSURE LAST DIGJ T ISN'T A BLANK
;:GO DO THE LAST D 1GIT
;;RESTORE RS
;;RESTORE R4
:JRESTORE R3
;;SET THE STACK FOR RETURNING

;;RETURN
;;STORAGE FOR ASCII DIGIT
;;TERMINATOR FOR TYPE ROUTINE
;;0CTAL DIGIT COUNTER
;. ZERO FILL SWITCH
s ;NUMBER OF DIGITS TO TYPE

CZRMQBO RM0S/3/2 DSKLS TST 2

(elelelele]

CZRMGBO RMOS/3/2 DSKLS

TYPE

RQUTINE

TST 2

MACRO Vv04.00

4=APR-81

01:29:56 PAGE 27

SEQ 0114
TYPE ROUTINE

SBTTL
SR

AR AR

RT3

2222222222222%

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

;*THE

ROUTINE WILL

J*NOTE1:
;*NOTEZ2:

INSERT A NUMBER OF

J*NOTE3:
*

s*CALL:
:*1) USI NG A TRAP INSTRUCTION
. %

L%0R
*

024666
024672
024674
024676
024700
024702
024706
024714
024716
024724
024726

024732
024736
024740
024746
024750
024752
024754
024756
024760
024764
024766
024772
024774
25000
025002
025004
025006
025010
025014
025016
025022
025026
025030
025034
025040
025042
025046
025052

105737
100002
000000
000430
010046

017600

122737
001011
132737
001405
010037

004737
000000
132737
001003

001173

001242

000100

001243

024736
031300
000040

112046
001005

005726
012600
062716
000002
122716

001430
122716
001006
005726
104401
001217
105037
000755
004737
123726

61%:
62%:

000002

60%:
3%:

000011

4%:

000200

025216

001350
013746

001170

105366

000001

004737
105337
000770

025100
025216

002770

001243

2%:

025100
001172

TYPE

.MESADR

BPL
HALT
BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR
. WORD
BITB
BNE
MovB
BNE
TST

MOV
ADD

;:1S THERE A TERMINAL?
;iBR IF YES
;sHALT HERE IF NO TERMINAL
3%
;s LEAVE
RO,=(SP)
;:SAVE RO
a2(SP) ,RO
;;GET ADDRESS OF ASCIZ STRING
#APTENV, SENV
; JRUNNING IN APT MODE
62%
+:NO,GO CHECK FOR APT CONSOLE
#APTSP
,OOL
SENVM ::SPOOL MESSAGE TO APT
62%
2:NO,GO CHECK FOR CONSOLE
RO.61%
;2SETUP MESSAGE ADDRESS FOR APT
SC.SATYS
;;SPOOL MESSAGE TO APT
s ;MESSAGE ADDRESS
#APTCSUP, SENVM
2;APT CONSOLE SUPPRESSED
608
;:YES,SKIP TYPE OUT
(R0O) +,-(SP)
s sPUSH CHARACTER TO BE TYPED ONTO STACK
A3
;2BR IF IT ISN'T THE TERMINATOR
(SP)
+
;s
IF TERMINATOR POP IT OFF THE STACK
(SP)+,R0O
;sRESTORE RO
#2,(SP)
2 3ADJUST RETURN PC
s sRETURN
#HT
, (SP)
2 :BRANCH IF <HT>
8s
#CRLF, (SP)
; ;BRANCH IF NOT <CRLF>
5%
(SP)+
::POP_ <CR><LF> EQUIV
::TYPE A CR AND LF
18

PC,STYPEC
SFILLC,(SP)+

$NULL ,~(SP)
7%:

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

$CHARCNT

5%:
6%:

CHARACTERS AFTER A LINE FEED.

TYPE
ME SADR
TSTB

000002
000001

NULL

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

1(SP)
6%

PC,STYPEC

$CHARCNT

;s CLEAR CHARACTER COUNT
s:GET NEXT CHARACTER
;.G0 TYPE THIS CHARACTER
s:1S IT TIME FOR FILLER CHARS.?
;:1F 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
:2G0 TYPE A NULL
;:DO NOT COUNT AS A COUNT
;. LOOP

CZRMQBO RMO5/3/2 DSKLS TST 2

TYPE

RQUTINE

MACRO v04.00

4-APR-81

01:29:56 PAGE 27-1

SEQ 0115

;HORIZONTAL TAB PROCESSOR
025054
025060
025064

025072
025074
025076
025100
025100
025104
025106
025112
025116
025122
025124
025124
025130
25132
025136
025142
025146

025150
025150
025152
025152
025156
025160
025166
025174
025176
025202
025204

025212

025214
025216
025220

112716

004737
132737

001372
005726
000724
105777
100022

017746
042716
122716

001012
105777
100375
117716

042716
122716

001366

000040
025100
000007

025216

$TYPEC:

154054

154050
177600

000023

1018

154030
154024

177600

000021

102%:

005726
105777

100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

8%:
9%:

10%:

154006

000002
000015

154000
000002

025216
000012

000002

MOVR
JSR

BITB
BNE
TST
BR

#' ,(SP)
PC.S$TYPEC
#7 ,$CHARCNT

(SP)
+

; JREPLACE TAB WITH SPACE
;. TYPE A SPACE

; ;BRANCH IF NOT AT
;. TAB STOP
:;POP SPACE OFF STACK
;:GET NEXT CHARACTER

TSTR
BPL
MOV
BIC
CMPB
BNE

as$TKS
108
A$TKB, - (SP)
#SXOFF
, (SP)

;:CHAR IN KYBD BUFFER?
;:BR IF NOT
;iGET CHAR
;sSTRIP EXTRANEOUS BITS
;:WAS CHAR XOFF

TSTB

asTKS

;:WAIT FOR CHAR

#177600, (SP)

;:STRIP IT
J:WAS IT XON?

BPL
MOvVB
BIC
CMPB
BNE

#177600, (SP)
102$

101$
a$TKB, (SP)

#SXON, (SP)

;:BR IF NOT

::GET CHAR

1018

;:BR IF NOT

TST

(SP)+

;sFIX STACK

TSTB

asTPS
108
2(SP) ,a$1PB
7§R.2(SP>

sWAIT UNTIL PRINTER IS READY

BPL
MOVB
CMPB
BNE
CLRB
BR
1%:
CMPB
BEQ
INCB
$CHAR:CNT
. WORD
$TYPEX: RTS

SCHARCNT
STYPEX

#LF ,2(SP)

STYPEX
(PC)+

::LOAD CHAR TO BE TYPED INTO DATA REG.

;:1S CHARACTER A CARRIAGE RETURN?
: ;BRANCH IF NO
::z;%;-CLEAR CHARACTER COUNT
;;1S CHARACTER A LINE FEED?
s ;BRANCH IF YES
s ;COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

CZRMGBO RM0S5/3/2 DSKLS

SCOPE

HANDLER ROUT INE

TST 2

MACRO V04.00

4=-APR-81

M9
01:29:56 PAGE 28
SEQ 0116

.SBTTL
R

SCOPE HANDLER ROUTINE
R

AR R AR R AR R AR

AR R A AT AN RN R AN

A AR AN

'THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
:xTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
ieSWi4=1
LOOP ON TEST

i*SW11=

INHIBIT ITERATIONS

LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

.
025222
025222
025224
025232
025234
025240

104410

032777
001402
000137

040000
025664

000416

025242

013746
012737
005737
012637
000561
022626
012637
000521

000004
025266
177060
000004

032777
001421
005046
117716
001414
022716
002411
011637
005316

000400

025330
025332
025334
025340
025344
025346
025350
025354
025356
025364
025366
025372
025400
025406
025410
025416
025422

006316
062716
013637
000547
005726

105737
001502

022737
001455
013746
012737
013737
000406
012737
012716
000002

1$:
9%:

CKSWR
BIT
BEQ
JMP

S RRRRASTART OF

025240
025246
025254
025260
025264
025266
025270
025274
025276
025276
025304
025306
025310
025314
025316
025322
025324

153722

$XTSTR: BR

000004

000004
153650

153640

000024

001116
025702
001122

177777

000004
025410
177766
177777
025424

8%:
2%:

026342
000004
026342

026342

#BIT14,3SWR
9%
$OVER
ngE

;:TEST

FOR CHANGE

IN SOF T=-SWR

;:LO0P ON PRESENT TEST?
2iNO IF SW14=0
;:JUMP OVER SCOPE ROUTINE

FOR THE XOR TESTERA##AN

;s
1F RUNNING ON THE 'XOR'* TESTER CHANGE
;:THIS INSTRUCTION TO A “NOP’* (NOP=240)

MOV
WERRVEC,~(SP)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
#58 ,SNERRVEC
::SET FOR TIMEOUT
TST
an177060
*:TIME OUT ON XOR?
(SP)+, awfanvec
MOV
::RESTORE THE ERROR VECTOR
BR
$SVLAD
::G0 TO THE NEXT TEST
5%:
CMP
(SP)+,(SP)+
;;CLEAR THE STACK AFTER A TIME OuT
(SP)+ ,@#ERRVEC
MOV
;;RESTORE THE ERROR VECTOR
7%
;:LOOP ON THE PRESENT TEST
BR
6%: ; AHRBREND OF CODE FOR THE XOR TESTERwANAH
BIT
#B1708,asWR
..LOOP ON SPEC. TEST?
BEQ
2%
:;BR_IF NO
-(SP)
CLR
..CLEAR A TEMP. LOCATION
MOVB
aSWR, (SP)
;2PICKUP THE DESIRED TEST NUMBER
BEQ
8s
;:BRANCH IF BAD TEST NUMBER IN SWR
#24,(SP)
;sCHECK THE NUMBER IN THE SWR
CMP
BLT
8%
;;BRANCH JF TEST NUMBER IS OUT OF RANGE
(SP) ,$TSTNM
;JUPDATE THE TEST NUMBER
MOV
(SP)
DEC
; ;BACKUP BY ONE
ASL
(SP)
2:SCALE THE TEST NUMBER AS AN INDEX
ADD
MOV

001117

::SCOPE=]OT

SCOPE

2000%:

BR
TST

TSTB
BEQ

CMP
BEQ
MOV
MOV
MOV
BR

MOV

MOV
RTI

#S$SWOBTBL,
(SP)
@(SP)+ ,SLPADR
$OVER
(SP)+

S$ERFLG
3$

;;FORM THE ADDRESS OF TEST POINTER
;;SET LOOP ADDRESS TO DESIRED TEST
*:GO LOOP ON THE TEST

:iCLEAN THE BAD TEST NUMBER OFF OF

:*HAS AN ERROR OCCURRED?
*:BR IF NO

#-1,CPSAVE

“ISEE IF

ERRVEC,=(SP)

::SAVE CONTENTS OF ERROR VECTOR

2005$

#20008 .ERRVEC
}ggqgéJCPSAVE

n2061s (SP)
CPSAVE

THE STACK

TIMEOUT WAS PREVIOUSLY RECORDED

+:KICK AROUND ROUTINE IF SO

:+SETUP 'TRAP' RETURN ADDRES

::MOVE CPU ERROR REGISTER T\ CPSAVE FOR TEST

*:SETUP RETURN ADDRESS

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR

MACRO v04.00

SEQ 0117

025430
025436
025440
025446
025450
025456
025462
025466
025474
025500

022737
001430
032737
001424
042737
013746
017646
012737
011677
042777

177777

026342

000001

026342

000001
001154
000000
000176
153454
001000

177766

012637

000000
001154

025554
025560
025562
025570
025572
025576
025600
025604
025612
025614
025622
025630
025634
025642
025646
025652
025656
025664
025672
025676
025700
025702
025702
025704
025706
025710
025712
025714
025716
025720
025722
025724
025726

104177
012676

123737
101015
032777
001404
013737
000446
105037

005037

000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737

011637
011637
005037
112737
013777
013716
000002
000024
000024
005370
005700
006062
006232
006362
007446

MOV

(SP)+ ,ERRVEC

;/RESTORE CONTENTS OF ERROR VECTOR

2002%:

CMP
BEQ
BIT

#=1,CPSAVE

a(SP) ,=(SP)
#176, SWR
(SP) | @SWR

s sSEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
: JBRANCH IF SO
;sSEE IF THE POWER MONITOR BIT IS ON
s JBRANCH TO CONTINUE ROUTINE IF CLEAR
;sCLEAR THE BIT FOUND TO BE SET
:sSAVE SWR ADDRESS
;sSAVE SWR VALUE
;iGET SOF TWARE SWR ADDRESS
;2GET CURRENT SWR VALUE

(SP)+,a(SP)
(SP) +,SWR

;sCALL SPECIAL POWER FAIL BIT ERROR CALL
;RESTORE SWR TO ORIGINAL VALUE
;JRESTORE SWR ADDRESS

gERMAX.SERFLG

..MAX ERRORS FOR THIS TEST OCCURRED?

#B1T09,aSWR

::LOOP ON ERROR?
;:BR_IF NO
;2SET LOOP ADDRESS TO LAST SCOPE

BEQ
BIC
MOV

MOV
MOV
MOV
BIC
EMT
MOV

001154
153446

001131

001117

001000

153416

001124

001122

001117
001206
004000

2001%:

2003$:

MOV

7%:

153364

3%:

001230
001120
001206
000001
025700
001116
001116
001122
001124
001210
000001
001116
001122

001120
001120
001206

001226

001131
153264

1%:

MoV
INCB
MOVB
MOV
MoV
CLR
MOVB
$OVER:
MOV
MOV
RTI
$MXCNT: 20.
$SWOBTRL:
.REPT
$TN-1
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

$SVLAD:

20058

#B1700, CPSAVE
2003$
#B1700,177766
SWR,=(SP)

~9§769 aSWR

$LPERR, SLPADR
$OVER
$ERFLG
$TIMES
18
#BIT11,3SWR

1$
$PASS
1%
SICNT
STIMES,$iCNT
SOVER
#1,81CNT
SMXCNT ,STIMES
$STSTNM
STSTNM, STESTN
(SP)
, SLPADR
(SP) ,SLPERR
$ESCAPE
#1,SERMAX
S$TSTNM,aDISPLAY
$LPADR, (SP)

TST1+42
TST2+2

TST3+2
TST4+2
TSTS5+2
TST6+2
TST7+2

TST10+42
TST11+42

TST12+2
71342

;;DON'T ALLOW LOOP ON ERROR ON THIS ERROR

;BR IF NO

;:ZERO THE ERROR FLAG
;:CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
..INHIBIT ITERATIONS?
BR IF YES

..IF FIRST PASS OF PROGRAM

INHIBIT ITERATIONS
*:INCREMENT ITERATION COUNT
;:CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
;sREINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO
2:COUNT TEST NUMBERS
;:SET TEST NUMBER IN APT MAILBOX
;:SAVE SCOPE LOOP ADDRESS

;;SAVE ERROR LOOP ADDRESS

;sCLEAR THE ESCAPE FROM ERROR ADDRESS
2sONLY ALLOW ONE(1) ERROR ON NEXT TEST
;:DISPLAY TEST NUMBER
;:FUDGE RETURN ADDRESS
;sFIXES PS
. +sMAX. NUMBER OF ITERATIONS

;:STARTING ADDRESS OF
: :STARTING ADDRESS OF
;:STARTING ADDRESS OF
;s STARTING ADDRESS OF
;STARTING ADDRESS OF
;:STARTING ADDRESS OF
;¢ STARTING ADDRESS OF
; :STARTING ADDRESS OF

:: STARTING ADDRESS OF

: STARTING ADDRESS OF
;:STARTING ADDRESS OF

TEST

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

Y ONAN BN (NN =

000004

012637

b b

025424

025506
025510
025514
025520
025520
025526
025530
025536
025540
025546
025550

N _9
4-APR-81 01:29:54 PAGE 28~1

WIhO—=O

CZRMQBO RMOS5/3/2 DSKLS TST 2
SCOPE HANDLER ROUTINE

~N ~N o
(Ngee g ggugun o Oo
RRR[000=l{eleRAE”00lolRolslRRS000elele)
33‘56& o

92RUARIVI
oF=v

)e
7, RVbKV RVeRV bR L Le

ebS
STARTING ADDRE
; sSTARTING ADDRE

RAAR
UMy O eO

VIO

CZRMQBO RMOS/3/2 DSKLS TST 2

ERROR HANDLER ROUTINE

MACRO v04.00

4=APR=81

SEQ 0119

ERROR HANDLER ROUTINE

JSBTTL
LA

Ci 0

01:29:56 PAGE 2 9

ALA LA LA AR

AR A

AL A

-TH!S

ROUTINE

s*SAVE

THE ERROR ITEM NUMBER AND THE ADDRESS OF

WILL

INCREMENT

THE

ERROR

FLAG

AND

THE

R 222
L

ERROR

COUNT,

THE ERROR CALL

J*AND GO TO ERRTYP ON ERROR
ITHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE
:

'SU1S-

HALT ON ERROR

;'SU10=1
s =SW09=1

BELL ON ERROR
LOOP ON ERROR

teSW13=1
.=CALL

105037
025752
104410
025756
105237
025760
025764 001775
025766 013777
C25774 032777
026002 001402
104401
026004
026010 005237
026014 011637
026020 162737
117737
026026
026034 032777
026042 001060
122737
026044
026052 001454
105737
026054
02060 001047
026062 022737
026070 001445
026072 013746
025076 012737
026104 013737
06112 000406
26114 012737
026122 012716
26126 " 000002
(26130 012637

026134

026142
026144
026152
026154
026162
026170
026176
026200
026204
026204
026212
026214

022737
001420
032737
001414
042737

113737
112737
000402

INHIBIT ERROR TYPEOUTS

ERROR

026344

$ERROR:

001117

7%:

(LRB
(KSWR

001116
002000

INCB
BEQ

MOV
BIT
BEQ

001212
001126

1%:

001132

000002
153100
001000

TYPE

INC
MOV
SuB
MOvVB
BIT

000177

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

IBSAVE

;:CLEAR THE ITEM BYTE SAVE LOCATION

SERFLG

“:SET THE ERROR FLAG

S:TEST FOR CHANGE IN SOF T-SWR

“:DON'T LET THE FLAG GO TO ZERO

STSTNM,BCISPLAY - :DISPLAY TEST NUMBER AND ERROR FLAG

‘81710 aSwR

sBEu.
$ERTTL

:3";@,’.522"

@SERRPC,SITEMB

#B]T09,3SWR
1004$

#177,$1TEM8

026344

1STB

1004$

IBSAVE

10038

177777

#-1,CPSAVE

000004
026114
177766

000004
026342

ERRVEC,~(SP)

177777

026342

026130

1004$

000004
177777

026342

000001

026342

0000G1
001130
000177

177766

105037

026344

032777
001904
004737

020000

026346

#1000. ERRVEC

..nms BELL
:COUNT THE NUMBER OF ERRORS

::GET ADDRESS OF ERROR INSTRUCTION

::STRIP AND SAVE THE ERROR ITEM CODE

::SEE IF LOOP ON ERROR IS SET
: :BRANCH AROUND ROUTINE IF SO

..see IF THIS IS THE POWER uu CALL

: :BRANCH AROUND ROUTINE IF IT IS

::SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE

::BRANCH IF SO

*:SEE IF CPSAVE HAS CPU ERR -REG TIMEOUT INDICATION

:BRANCH IF SO

::SAVE CONTENTS CF EPROR VECTOR

:-SETUP ‘TRAP' RETURN ADDRESS -

;65;66.(PSAVE

+2MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

#-1,CPSAVE

::SET CPU ERROR REGISTER TIMEOUT INDICATOR

10078:

(SP)+ ,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

10028:

#-1,CPSAVE

::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

210018, (SP)

BIT

1004%

#8]T00,CPSAVE

1004$

#B1T00,177766

026344
001130

152742

::BELL ON ERROR?

“INO = SKIP

snem IBSAVE

177,81 TEM8

1003$:
10048
:

*:SETUP RETURN ADDRESS

;JBRANCH IF SO

::SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG

: :BRANCH IF OK

::CLEAR THE BIT FOUND SET

::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

::SET SITEMB TO SPECIAL POWER FAIL POINTER

10048

: :BRANCH OVER IBSAVE CLEARING

IBSAVE

;:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

#B1713,356R

;:SKIP TYPEOUT IF SET

B(,ERRTYP

1160

20%

13SKIP TYPEQUTS

TO USER ERROR ROUTINE

CZRMQBO RMOS5/3/2 DSKLS TST 2

ERROR HANDLER ROUTINE

026220
026224
026224
026232
026234
026242
026246
026247
026250
026252
026256
026260
026264
026266
026270
026272
026272
026300
026302
026306
026312
026314
026320
026320
026326
026330
026332
026332
026336
026340
026342
026344

MACRO v0&4.00

001217

122737

000001

001262

113737

001130
031310

02624¢

004737
000
00C
€0077~
105737

001005
005777
100C02

20%:

TYPE

LOCRLF

(MPB

RAPTEN
, SENV
Y

BNE
MOVB
JSR
.BYTE
JBYTE
B8R

026344

TSTR

BNE

152670

TST

001200

152654

001124
0C1210

4%:

01210

022737
C01001
000000

021530

105737
001210
000002
000000
000000

026344

3%:

000042

5%:

6%:

[PSAVE
:

:
IBSAVE

: ;RUNNING IN APT MODE
:iNO,SKIP APT ERROR REPORT

P(,$ATYS

,,REPORT FATAL ERROR TO AFT

$ITEMB, 218

0
C
22%
IBSAVE
33

“SET ITEM NUMBER AS ERROR NUMBER

. sAPT ERROR LOOP
;:SEE IF IBSAVE 1S LOADED
;sBRANCH IF NOT = NO HALT ON PWR MON BIT FRROR

;sHALT ON ERROR

:?lTOO,GSuR

..LOOP ON ERROR SWITCH SET?
::FUDGE RETURN FOR LOOPING
..CHECK FOR AN ESCAPE ADDRESS

MOV

SLPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

(MP
BNE

#SENDAD ,a#42
63

;:ACT=11 AUTO-ACCEPT?

BNE

TST8

IBSAVE
7%

;:SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
g;m BACK TO CALL ORIGINAL ERROR

-WORD
- wORD

0
0

$:LOCATION TO SAVE CPU ERROR REG CONTENTS

HALT

104410

aSwR

8PL

000000

032777
0C1402
0i3716
005737
01402
013716

D10

(01:29:56 PAGE 29-1

SEQ 0120

104401

001007

&=APR-B1

(K SWR

BIT
BEQ
MOV
TST

8EQ

HALT

RT]

;:SKIP IF CONTINUE
;sHALT ON ERROR!
;2TEST FOR CHANGE IN SOF T=SWR
;BR IF NO

JBR
_IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE
::egeNCH IF NO

*:LOCATION TO SAVE ITEM BYTE

CZRMCBO RMOS/37/2 DSkLS TST 2
ERROR TYPEQUT ROUTINE

MACRO v04.00
\

4&=APR-B1

.0
SEQ 0121

LSBITL

2
3

(1:29:56 PAGE

ERROR TYPEQUT ROUTINE

s*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION

IS.

'REGARDING

[
?

THE

DETECTION OF

LUNIT NUMBER,
'PROGRAH COUNTER ARE

9
10
B

.ERROR MESSAGE

ERRTYP:

SAVREG
BIT
BEQ

AN ERROR AS FOLLOWS:

DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND
PRINTED
ON THE FIRST LINE

IS ASSEMBLED, FORMATTED AND PRINTED ON

**ONE OR MORE SUCCEEDING LINES;
.w
.PAIRED LINES OF ERROR HEADERS ANL ERROR DATA ARE PRINTED
LeAFTER THE £RROR ME SSAGE .

13 026346
14 026350
15 026356

;9 026360

104414
032777
001402

000137

020000

152576

027226

#5W13,aSWR
1%

JMP

27%

sTYPE UNIT NUMBER, DRIVE

20 C26364

104401

21 02637C
22 026376

104401
013746

026400

104403

026402
- 026403
24

25 026404

*PROGRAM COUNTER

0C1217

is:

027222
001234

TYPE

TYPE
MOV

LSCRLF

ERTVOO
MIT.°(SP)

TYPQOS

003
000

¥ o e
BYTE

;TYPE

28 026420

012737

032211

026472
:

(MP
BEQ

#24 RO
2%

32 026434
33 026442
glso 026446

012737
022700
001406

032204
000025

026472

36 026450
37 026456
38 026462
39 026464

012737
022700
001004
104401

032216
000027

026472

2} 026472

000000C

29 026426
;(1) 026432

40 026470

44 026474

022700
001414

104401

005037

000026
177740

000024

027257

027212

013737

001226

47 026512

013746

027212

026516

104403

48 026522
49 026526

005037
113737

46 026506

026520
026521

104401

003
000

027227

;TYPE

027212

4 :

;:TYPE DRIVE NUMBER
2:G0 TYPE--OCTAL ASCII

#SRMO3., 38

;GET ASCII DRIVE TYPE

MOV
(MP
BEC

#SRMO2 , 3%
#25,R0
2%

;SAVE ASCII DRIVE TYPE
;1S DEVICE AN RMQ?2 ?
IYES !

MOV
(MP
BNE
TYPE

#SRMCS , 3%
#27 ,RO
43
LERTYOS

;SAVE ASCII DRIVE TYPE
;1S DEVICE AN RMQOS ?
=N 2
JTYPE "' =

TYPE

WORD

wmw) RO
#177740,R0

CLR

TYPE

ERROR NUMBER AND PROGRAM COUNTER

TSTAMB

;LOAD TEST NUMBER FOR

,ERTYO1

sTYPE ''ISTH"’

S$TESTN,TSTNMB

MOV

TSTNMB,~(SP)

(LR
MOVR

;1S DEVICE AN RMO3 ?
SYES !!

;DRIVE TYPE MESSAGE IS STORED HERE

MOV

TYPE

;GET DRIVE TYPE REGISTER
;SAVE DRIVE TYPE BITS AND

;TYPE DRIVE

TEST NUMBER,

BYTE
BYTE

027214

;TYPE 'DRVA''
;;SAVE SUNIT FOR TYPEOUT

;GET RM BASE ADDRESS

TYPOS
027214
(001130

TEST NUMBER, ERROR NUMBER, AND

$BASE , RO

MOV

3%:

45 026500

MOV
MOV
BIC

2%:

JYES!!

"DRIVE TYPE' RMOS, RMO3 OR RMO2 FOR UNIT UNDER TEST

001276

076000
042700

TYPEOUTS??

2:TYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS

013700

26 026410
27 026414

TYPE,

JINHIBIT
JNO!!

3
0

ERRNMB
$ITEMB,ERRNMB

;:SAVE

TSTNMB FOR TYPEOQUT

;s TYPE

TEST NUMBER

;260 TYPE--OCTAL ASCII

J3TYPE 3 DIGIT(S)
.+ SUPPRESS LEADING ZEROS

;LOAD ERROR NUMBER FOR
; TYPEOUT

| CZRMGBO RMOS/3/2 DSKLS s 2

# ERROR TYPEOUT ROUT INE

|
i

l
I

50 026534
51 026536
52 026542

001406
104401
013746

026546
026550
026551
53 026552

104403

003
000

104401

56 026556

013746

026562
026564
026565

104403

55
56
57 026566
58 026572
59 026574
60
61 £26600
62 026604

MACRO v04.00

(27237
027214

80 026656
81 026662
82 026666

MOV

ERRNMB
, - (SP)

TYPOS

027246
001132

5%:

MOV

$ERRPC.= (SP)

TYPE

7%:

9%:

:TYPE

i08:

027024
027216

11$:

000015

027221
000012

128:

000011

000040

,S$CRLF
BOTFLG
CHRCNT
ERRNMB , RO

BNE
MOV

8s
#PFECH,RO

sYES=TYPE CRLF
;CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF
sSEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
;BRANCH IF NOT
;MOVE POWER FAIL ERROR CALL TABLE TO RO

;FOUR ENTRIES IN ERROR

B8R

ASL

ASL
ASL

ADD

MOV

BEO

027221

6
1

::SAVE SERRPC FOR TYPEOUT
;:TYPE PROGRAM COUNTER
;:GO TYPE-~OCTAL ASCII
::TYPE 6 DIGIT(S)
;;TYPE LEADING ZEROS

TYPE
CLRB
CLRB
MOV

(MPB

001532

027221
000007

ERTYO3

,,SUPPRESS LEADING ZEROS
JTYPE "PC=''

GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0
TST
ERRNMB
;WAS AN ERROR CALLED?
BNE
7$
BR IF YES
JMP
27%
:NO--EXXT

8%:

83 (26670
84 026672
85 026676 001003
86 026700
105037
87 026704 000770
88 026706 122703
89 026712 001765
122703
90 026714
91 026720 001007
92 026722 105237
93 026726
132737
9 026734 001372
95 026736 000407
105237
96 026740
97 026744
122703
98 026750 007002

;. TYPE ERROR NUMBER
::G0 _TYPE==OCTAL ASCII

é$:

027264

112203
001454
122703

:TYPE "ERR#'
;:SAVE ERRNMB FOR TYPEOUT

;:TYPE 3 DIGIT(S)

3
0

BYTE
BYTE

0C1217
027220
027221
027214
000177

012102
001505
010237
005037

;SKIP IF NO ERROR CALLED

LERTYQ?2

BYTE
BYTE

1YPOS

75 026650

77
78 026652
79 026654

BEQ

TYPE

027206

70 026636
71 026640
72 026642
75 026646

F 10
01:29:56 PAGE 30-1

SEQ 012¢

027214

63 026610
64 026614
65 026620
66 026624
67 026626
68 026632
69 026634

4=APR-81

0e7e21

138

RO
RO

#SERRTB-8.
R0
(RO) ,R1

198

THE ERROR MESSAGE
mov

BEQ
MOV
(LR
MOVB
BEQ
(MPB
BNE
(LRB
BR
(MPB
BEO
(MPB
BNE
INCB
BITR

BNE
14$ ;

#177.R0

INCB

(MPR
BNE

(R1)+,R2

198
R2.18%
BOTADR
(R2)+,R3
17$
#(R,R3
128
CHRCNT
118
#LF,R3
118
#HT,.R3
14%
CHRCNT
#7,CHRCNT

ABLE

:?1 POINTS TO ERROR MESSAGE

s TABLE

;BRANCH IF NO ERROR MESSAGE

:R2=ADDRESS OF MESSAGE STRING
;BRANCH IF END OF MESSAGE

:LOAD ADDRESS OF STRING

;CLEAR BOT ADDRESS
<END OF STRING??
sYES!
: CARRIAGE RETURN??
.ml 1

*YES=CLEAR CHAR COUNT
*GET NEXT CHARACTER

sLINE FEED??

JYES=GET NEXT CHARACTER

.‘HOFHZONTAL TAB??

:NO!!

sADJUST

CHARACTER COUNT

13§

158

CHRCNT

&' ,R3
158

s INCREMENT CHARACTER COUNT
+SPACE??
;NO!!

CZRMGBO RMQS5/3/2 DSKLS

ERRCR

TYPEQUT ROUTINE

99 026752

010237

101 026764
102 026766
103 026772

103340
013704
001007

100 026756

104 026774
105 027000
106 027004

107 027010

108 027012

122737

104401
105037
013702

00072

105044

109 027014
110 027022
111 027024

112737
104401
000000

113
114
115
116

027032
027036
027040
027044

001707
104401
105037
105037

118 027054
11 027060

010237
112742

112 027026

117 027050

120 027064
;g} 027066

123

124 027070

125 027074
126 027076

127 027102

128 027106

126 027112
130 027116

105737

013702

105722
000677
016001

001444
104401

016002

015003

012137
001433

131
132 027120
133 027122
134 027124

104401
000000
1044071

137
138
139
140
141
142

027134
027136
027140
C27142
027144
027146

012204
012305
105725
100407
001403
013446

144 027152
145 027154
146 027156

000405
013446
104402

i35 027130
136 027132

143 027150

147 027160
148 027162
149 027164
150 027166

151 027170

152 027172

153 027176

154 027200
155 027204

005702
001767

IST

027216

(00100

MACRO v04.00

027221

15%:

027216

001217
027221
027024
177777

168 :

027220

178
18%:

000002

CLRB

MOVEB
TYPE
.WORD

ISTR

198:

208:

218:

LSCRLF
CHRCNT
18$,R2

118

=(44)

#-1.BOTFLG

BOTFLG
108
LSCRLF
BOTFLG
CHRCNT

‘END OF

LINE??

*TYPE CRLF
*CLEAR CHARACTER COUNT
“SET UP R2 FOR TESTING

;REPLACE SPACE

*SET BOT FLAG
:TYPE ERROR MESSAGE STRING
*STRING ADDRESS GOES HERE

‘WAS STRING TRUNCATED??

*NO!!
“YES=TYPE CRLF
*CLEAR BOT FLAG
*CLEAR CHARACTER COUNT

*RESTORE R2
STYPE REST OF STRING

MOV

MmOy
BEQ

TYPE
LWORD
TYPE

18T
BEC

23%:

)
248:
25%:

001217

INO!!
:GET ADDRESS OF LAST SPACE
*BRANCH IF SPACE DETECTED

(R2)+
118

“SETUP R2 FOR TESTING

278
LSCRLF

;R1

POINTS

TO ERROR HEADER TABLE

*BRANCH IF NO HEADER
: (ASSUME NO DATA)

4(RO) ,R2

:R2 POINTS TO DATA ADDRESS TABLE

6(R0) .R3

:R3 POINTS TO FORMAT TABLE

(R1)+.21%
27%

*PUT HEADER ADDRESS FOR TYPE
:BRANCH IF END OF HEADERS

:(ASSUME END OF DATA)
O
,$CRLF

;HEADER ADDRESS GOES HERE

MOV
MOV
TSTB
8M]
BEQ
MOV

;DATA WITH HEADER??
SND!!

(R2)+ ,Ré
(R3) +.RS
(R5)+
248
238
8(R&)+,=(5P)

“R4& POINTS TO DATA ADDRESS
*RS POINTS TO FORMAT
SWHAT KIND OF DATA??
*BINARY
S0CTAL
*DEC IMAL

BR
MOV

25%
#(R4)+,=(SP)

TYPOC
8R
MOy
TYPRN
ST

25%
@(R&)+,=(SP)

BEQ

(R&)
26$

22%

TYPE

2(RO) ,R1

R2
208

TYPDS

104401
000742

118
BOTADR , R4
16$

ISTB
8R

MOV

o
22%:

027254

:SAVE ADDRESS OF SPACE

SSETUP 188 FOR TYPING
;RESTORE SPACE

MOV

000004

104401

R2,BOTADR

#64. ,CHRCNT

R2,18%
&' ,=(R2)

000006

001217

SEQ 01273

BOTADR,R?2

001217

027122

302

MOV

MOV
MOVB

BEQ
TYPE

000402
073446
104406
005714

000760

BHIS
MOV
BNE

G 10

(01:29:56 PAGE

;TYPE ERROR MEADER AND ERROR DATA

104405

001403

(MPB

BEQ
TYPE
CLRR
CLRB

001217
(27220
027221

027024
000040

MOV

TYPE
{LRB
MOV

027220

027216

&4=APR=B1

TVPE
BR

ERTYO4

JSCRLF
0%

;MORE DATA??
“NO!!
JYES=TYPE 2 SPACES

YAND CONTINUE

:TYPE ONE BLANK L INE
JBEFORE NEXT HEADER

-ZRMQBO RMQS5/37/2 DSKLS

FRROR

TYPEQUT

156 027206

157 027210
158
159 027212

160 027214
i61 027216

162 027220
162 027221

164

165 027222

166 027227

167 027237
168 027246

169 027254

170 027257
171

4=APR=81

RESREG
RTS

000000
000000
000000
000
000

TSTNMB:
ERRNMA:
BOTADR:
BOTFLG:
:
CHRCNT

.WORD
«WORD
. WORD
BYTE

104

054
054

054
040

040

120

180 027402
181 027406
182 027410

v04.00

27%:

174 027300

178
179 027400

MACRC

104475

027274

175
176 027362
177 027366

000207

172 027264

173 027274

ROUTINE

TST

122

040
040
040
040
0SS

027300

027362
0000C0

027366

000000

103

027402
026342
027610
c00

117

120

00C000

000

126

124

105

120

000
040
027400
127
125

ERTYQ0:

ERTYO1:

H 10
01:29:56 PAGE 30=3

JTEST NUMBER
;ERROR NUMBER

JBEGINNING OF
¢
aDva
a, TEST#a

.
.
.

PFECH:
PFECHT:

PFECHT ,PFECH2 ,PFECH3,PFECHSL

PFE(HZ:
PFECH3:
PFE(HG:

ERR#a

@, P(C=a
2
a
2 -a

JASCIZ

?POWER MONITOR BIT

LASCIZ

?CPUERREG?

.WORD
..2
BYTE

TEXT ADDRESS

JBOT FLAG
s CHARACTER COUNT

ERTYQZ2:
ERTYQ3:

ERTY04:
ERTYO0S:
.EVEN

SEQ 0124

(PSAVE
0

0.0

;WORDS DEF INING TABLES BELOW

IN (PU ERROR REGISTER FOUND SET?

CZRMQBO RMOS5/3/2 DSKLS TST 2

TTY

INPUT

ROUTINE

MACRO v04.00

&=APR=-81

[10
01:29:%6 PAG£ 31

SEQ 0125

LSBTTL

TTy

INPUT ROUTINE

."'.l'....l..'."."Q"'.'Q'tt"t...""t".fi..'ttfitt.lttt'.lt

027612
027414
027416
027420

ENABL
LSB
‘TKCNT .WORD

000000
000000
000000

$TKQIN: .UORD
$TKQOUT: .WORD
$TKQSRT: .BLKR
$TKQEND=.
.EVEN

027427

0
0
O
1

s sNUMBER OF ITEMS IN QUEUE
;P INPUT POINTER
1 :0UTPUT POINTER

;:TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT
"CALL:
3
JSR
.'
RE TURN

G27422
027426
027434
027442
027450
027456
027462
02747C

005037
012737
013737
012737
012737
005777
012777
000207

027412
027420
027414
027472
000200
151500
000100

027414
027416

$TKINT:

000060

000062

151470

$TKCNT
;;CLEAR COUNT OF ITEMS IN QUEUE
#STKQSRT,$TKQIN ;;MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.

MOV

dSTKSRV,alTKVEC ;2INITIALIZE THE KEYBOARD VECTOR

TST

asTkB

MOV
MOV
RTS
;*TK

SERVICE

#200,3#TKVEC+2

#100,287KkS
PC

;3"BR" LEVEL 4
;;CLEAR DONE FLAG
;sENABLE TTY KEYBOARD INTERRUPT
J:RETURN TO CALLER

ROUTINE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:*IT IN THE QUEUE.
;*IF THE CHARACTER IS A ''CONTROL=C'' (*C) STKINT IS CALLED AND
.'UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'* RESTART ADDRESS (SHUT)

\
027472
027476
027502
027506
027510
027512
027514
027514
027520
027522
027506
027532
027534
027540

CLR
MOV
MOV

PC,STKINT

117766
042716
021627
001002
005726
000002

151464
177600
000021

000003

027544
027546
027554

021627
001007
104401
004737
005726
000137
021627
001004
022737
001500

030662
000007
;
000176

001154

027556
027556
027564
027566

022737
001004
104401

000001

027412

$TKSRV: MOVB

BIC(

cMP
BNE

30%:

030620
027422

001212

ST
RTI

2%:

(SP) , #$XON

308

(SP)+

CMP
BNE

(SP) ,#3
1%

JSR

PC,STKINT

BNE
(MP
BEQ

2%
#SWREG, SWR
63

CMP
BNE

#1,8TKCNT
3$

TYPE

1%:

@$TKB,-(SP)

B C177.(SP)

TST
JMP
CMP

TYPE

LSCNTLC

(SP)+
SHUT
(SP)
, 47

JSBELL

;:PICKUP THE CHARACTER
22STRIP THE JUNK
;21S IT A RANDOM XON?
2 :BRANCH IF NO
;:CLEAN RANDOM XON OFF STACK

2 sRETURN

2:1S IT A CONTROL C?
;2BRANCH IF NO
2sTYPE A CONTROL=-C (*0)
;2INIT THE KEYBOARD
;;CLEAN UP STACK
;sCONTROL C RESTART
;3IS IT A CONTROL G?
; sBRANCH IF NO
;:1S SOFT-SWR SELECTED?
2:G0 TO SWR CHANGE

;.1S THE QUEUE FULL?
s sBRANCH IF NO
;:RING THE TTY BELL

CZRMQBO RMOS/3/2 DSKLS ST 2

TTY

INPUT

ROUTINE

027572
027574
027576
027602
027604
027610
027612
027616
027620
027624
027630
027634
027636
027644
027646
027652
027656
027660
027664
027666
027672
027676
027702
027710

027712
027720

005726
000451
021627
001021
005077
005726
105777
100375
117746

042716
022627
001366
012777

000002

005237
021627
002405
021627
003002
042716
112677

005237
023727
001003
012737
000002

MACRO v04.00

4=APR=81

4
01:29:5%6 PAGE

10
3 1=1

SEQ 0126
ST

000023

151350

151342

318:

151336

151314

027412

32%:

000140

000175

000040

177516

027414

48:

027414

027621

027420

027414

5%:

CHARACTER OFF

(SP)+

1:CLEAN CHAR OFF

ISTB
8PL

@$TKS
31$

BNE
MOV
RTI]
INC
CMP
BLT

CLEAN

PIEXIT
IS IT A CONTROL=S?
::BRANCH IF NO

as$TKS

BIC
CMP

000021

(SP)+

58
(SP) ,#23
32%

CLR

MOVB

177600

00010C

BR
CMP
BNE

STACK

::DISABLE TTY KEYBOARD INTERRUPTS

@$TKB,=(SP)

#2177, (SP)
(SP)+, #21
31s
#100,387KS

$TKCNT
(SP) ,#140
48

STACK

$:WAIT FOR A CHAR
::LOOP UNTIL ITS THERE
1:GET

THE CHARACTER

S:MAKE IT 7-BIT ASCII
;218 IT A CONTROL=-Q?

1 :BRANCH IF NO
::REENABLE TTY KEYBOARD INTERRUPTS
2 JRETURN
::COUNT THIS CHARACTER
::1S IT UPPER CASE?
::BRANCH IF YES

cMP
BGT
BIC

(SP) ,#175
43
#40, (SP)

INC
CMP
BNE
MOV
RT]

$TKOIN
::UPDATE THE POINTER
$TKQIN,#$TKQEND ::GO OFF THE END?
58
:BRANCH IF NO
#$TKQSRT,$TKGIN ..Reser THE POINTER
::RETURN

MOVB

(SP)+,a$TKQIN

2:1S IT A SPECIAL CHAR?
“:BRANCH IF YES
::MAKE IT UPPER CASE

::AND PUT

IN QUEUE

Q..Q.'..tt.'.!QQ.Q.t.""..'.t'!'.'t.'t'ttt't.tt.tt't.'ttttt.tt

027722
027730
027732
027736
027740
027744
027750
027754

022737
001124
105777
100121
117746

042716
021627
001300

006176

001154

-sorrunne SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL
:*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWREG, SWR
::1S THE SOFT-SWR SELECTED

BNE

151222
177600

000007

22EXIT IF NOT

@a$TkS

::IS A CHAR WAITING?

BIC
cMP

#°C177,(SP)
(SP) .47

SIMAKE IT 7-BIT ASCII
“:1S IT A CONTROL-G?

BPL
MOVB

151216

15%

ISTB

BNE

15%
@aSTKB,-(SP)

::1F NOT, EXIT
$:YES

::IF NOT, PUT IT IN THE TTY QUEUE
SIAND EXIT

- '-ltttttt.t.tfi'tttt'Q"'ttt"t!tt...t.ltl"t..ttii.fit"."ttt"

“*CONTROL

IS PASSED TO THIS POINT FROM EITHER THE

:*ROUTINE OR FROM THE

027756
027764
027766
027770
027774
030000

030006
030012
C30016
030022

123727

001150

001674
005726
004737
005077
112737

027422

104401

030632

104401

013746
104402

151160

000001

030637
000176

000001

SOFTUARE

;*CONTROL-G BEING TYPED,

6$:

001151
$GTSWR:

CMPB

SAUTOB,#1

JSR

PC,$TKINT

BEQ
ST

SWITCH REGISTER

TTY INTERRUPT SERVICE

TRAP CALL,

AS A RESULT

:;ARE WE RUNNING IN AUTO-MODE?

2s
(SP)+

S:BRANCH IF YES
::CLEAR CONTROL=G OFF STACK

(LR
MOVB

asTks
#1,$INTAG

::DISABLE TTY KEYBOARD INTERRUPTS
::SET INTERRUPT MODE INDICATOR

TYPE
TYPE

,3CNTLG
. SMSWR

;;ECHO THE CONTROL=G (*G)
;s TYPE CURRENT CONTENTS

MoV

TYPOC

AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

SWREG,~=(5P)

S3FLUSH THE

TTY INPUT QUEUE

s+ SAVE SWREG FOR TYPEOUT
::GO TYPE--OCTAL

ASCIICALL

DIGITS)

CZRMQBO RM05/3/2 DSKLS 1ST 2

TTY

INPUT

ROUTINE

030024
030030
030032
030034
030040
030042
030046
030052
030056
030060
030064
030070
030076
030100
030106
C30112

030116

030120
030124
030130

030132
030136
030140
030144
030146
030154
030160
030164
030172
030174
030202
030204
030210
030214
030216
C30222
030224
030230
030234
030236

030240
030242
030244
030250
030254
030256
030262

104401

005046
005046

MACRO v04.00

4&=APR-81

K 10

01:29:56 PAGE

31-2

SEQ 0127

030650

19%:

TYPE

. SMNEW

CLR

-(SP)

TSTR

as$TkS
7%

(LR

=(SP)

:;PROMPT FOR NEW SWR

;+sCLEAR COUNTER
;sTHE NEW SWR
:;CHAR THERE?
1F NOT TRY AGAIN
s+

105777
100375

151120

117746

151114
177600

MOVB
BIC

a$TKB,~(SP)
#*C177,(SP)

;iPICK UP CHAR
JsMAKE IT 7-BIT ASCII

021627
001015

000003

CMP
BNE

(SP), 43
9%

;218 IT A CONTROL=C?
; :BRANCH IF NOT

042716

104401

062706
123727
001003
012777
000137
021627
001005
104401

062706
000737

021627
001022
005766
001403
016677
062706
104401
123727
001003

012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
316
316

006316
005266
056616
000667
104401

000720

7%:

BPL

030620
000006
001151

000120
030662

TYPE
ADD

000001
151052

CMPB
BNE
MOV
JMP

8%:

000025

9%:

030625
000006

20%:

000015

10%:

CHP
BNE

#100,9%TKS

SHUT

(SP) ,#25
108

151000

000001

000100

150756

14%:

(MP

15%:
$

BEQ
MOV
ADD

TYPE
CMPB

BNE
MOV
RTI
JSR
cMP

BLT
cMP
BGT
BIC

000067
000060
000002

TST

BEQ

000002

17%:

001216

18%:
.DSABL

ASL
ASL
ASL

INC
BIS
BR
TYPE
BR
LSB

;s YES,

ECHO CONTROL=C

(*C)

;;CLEAN UP STACK
s ;REENABLE TTY KEYBOARD INTERRUPTS?
2 ;BRANCH IF NO
;;ALLOW TTY KEYBOARD INTERRUPTS
:;CONTROL~C RESTART

;218 IT A CONTROL-U?
s sBRANCH IF NOT
;;YES, ECHO CONTROL-U (*U)
;s IGNORE PREVIOUS INPUT

;;LET'S TRY IT AGAIN

TST

000002
000006
001217
001151

177776

$INTAG,#1
8$

BNE

000004

025100
000060

TYPE
ADD

LSCNTLC

#6,SP

$INTAG,.
M
15%
#10C,a87kS
PC,STYPEC

(SP) ,#60
18%
(SP) ,#67

18%
#60, (SP)+

2(SP)
17%
(SP)
(SP)
(SP)

2(SP)
=2(SP),(SP)
7%
$OUES

208

3218 IT A <CR>?
;:sBRANCH IF NO
22YES, IS IT THE FIRST CHAR?
;:BRANCH IF YES
;2SAVE NEW SWR
::CLEAR UP STACK
:;ECHO <CR> AND <LF>
2:RE~ENABLE TTY KBD INTERRUPTS?
2 :BRANCH IF NOT
:RE-ENABLE TTY KBD INTERRUPTS

2 :RETURN

;;ECHO CHAR

::sCHAR < 0?

;:BRANCH IF YES

J:CHAR > 7?

;;BRANCH IF YES

;sSTRIP-0OFF ASCI!

2215 THIS THE FIRST CHAR
;JBRANCH IF YES
;3NO, SHIFT PRESENT
32
CHAR OVER TO MAKE
;s
ROOM FOR NEW ONE.
;sKEEP COUNT OF CHAR
;3SET IN NEW CHAR
;2GET THE NEXT ONE

2+ TYPE

72<CR><LF>

2 sSIMULATE CONTROL=U

""tt'.tt"ttt'."lt'fit""""tl'.!ttfi'i".'.l'."l'fi‘l"it‘iQ'll

| CZRMQBO RMOS/3/2 DSKLS TST 2

;

TTY

INPUT

ROUTINE

4=APR=81 01:29:56 PAGE 313
SEQ 0128

;

;-szf

030264 011646
030266

016666

030274
030300

005066
005046

030306

000002

030302

030310

030310
030314
030316

030322
030330
030334
030342
030344
030352

000004

012746

030310

005737
001775
005337

027412

117766
005237
023727
001003
012737
000002

027412

000002

ROUTINE

MOV

CLR
CLR

1%:

027420

027416

SINGLE

RETURN HERE

$RDCHR: MOV

64$:

027421

INPUT

RDCHR

MOV

177070
027416
027416

WILL

CHARACTER

FROM

THE

TTY

LL¢

;

L 10

MACRO v04.00

000004

28:

RT]

ST
BEQ
DEC

MOVR
INC
CMP
BNE
MOV
RTI]

JiGET

CHARACTER

FROM

THE

;CHARACTER IS ON THE STACK

JiWITH

PARITY

BIT

STRIPPED

(SP) ,=(SP)

::PUSH DOWN THE PC AND

4(5P)
-(SP)

;iGET READY FOR A CHARACTER
;:PUT NEW PS ON STACK

4(SP),2(SP)

#64$,~(SP)
$TKCNT
18
$TKCNT

OQUEUE

OFF

::THE PS

;:PUT NEW PC ON

STACK

;:POP NEW PC AND PS

;iWAIT ON A CHARACTER

::DECREMENT THE COUNTER

@$TKOOUT,4(SP) :iGET ONE_CHARACTER
$TKOOUT
JUPDATE THE POINTER
$TKQOUT,#STKQEND ..bxo 17 GO OFF OF THE END?
2%
; :BRANCH IF NO
#STKQSRT,$TKQOUT ; ;RESET THE POINTER
; :RETURN

'ntttttt.t'.QQ't'.ttQ'tttt..tt.l.tt.t'.tttt.tt.tttt.tttttttt..t

-&us ROUTINE WILL INPUT A STRING FROM THE TTY
:*CALL:

030354

010346

005046
012703
022703
101456
104411
112613

030402
030404
030406
030410

001022
005716
001007
112737

000134

030422

012716

177777

030430

020327

030610

111337

030606

030416

030426

030434

030436

030442

122713

104401

005303

103434
104401

030446 000746
030450
030452

005716
001406

030462
030466

104401
005016

030474

001003

030454

030470

RETURN HERE

SRDL IN: MOV

030356
036360
030364
030370
030372
030374
030376

RDL IN

030610
030620

18:
2s:

000177

108:

030606

030606
6%:

122713

000025

030606

BNE
ST
BNE
MOVB

7%:

-(SP)
#STTYIN,R3
#STTYIN+8. ,R3
43
(SP)+,(R3)

#4177, (R3)

;:TERMINATOR WILL BE A BYTE OF ALL 0°'S

::SAVE R3

::CLEAR THE RUBOUT KEY
;:GET ADDRESS
: ;BUFFER FULL?
;:BR IF YES
*:GO READ ONE CHARACTER FROM THE TTY
*:GET CHARACTER

::1S IT A RUBOUT

;:BR IF NO
;:1S THIS THE FIRST RUBOUT?
;:BR IF NO
;:TYPE A BACK SLASH

MOV

#-1,(SP)

;:SET THE RUBOUT KEY

cMP

R3 #STTYIN

::STACK EMPTY?

DEC

; ;BACKUP BY ONE

:BR IF YES

MOVB

(RS) 9%

..serw TO TYPEOUT THE DELETED CHAR.

::GO READ ANOTHER CHAR.

MOVB

#'\,9%

(MPB

#25, (R3)

TYPE

030606

R3,=(SP)

;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

5%
(SP)
63
#'\,9%

BLO

5%:

000134

CMPB

TYPE

030606

112737

CLR
MOV
cMP
BLOS
RDCHR
MOVB

;2 INPUT A STRING FROM THE TTY

ST
BEQ

TYPE
CLR

BNE

:GO TYPE

(SP)
7%

: ;RUBOUT KEY SET?
:BR IF NO

,9%
(SP)

;:CLEAR THE RUBOUT KEY

“:TYPE A BACK SLASH

;315 CHARACTER A CTRL U?
::BR IF NO

CZRMQBO RMOS/3/2 DSKLS TST 2

MACRO v04.00

l TTY INPUT ROUTINE
|
104401
030476

030625

122713

000022

105013
104401
104401

001217
030610

104401

001216

48:

111337
104401
122723

030606
030606
000015

38:

105063
104401

177777
001220

001011

000717

000712

§§§§§§§§
22228

M 10
01:29:56 PAGE 314
SEO 0129

000726

001305

4-APR-81

000004
030610

103

125
107
012
040

TYPE

8s:

B8R

(MPB

BNE

CLRB
TYPE
TYPE

BR
TYPE
BR

116

1360 START OVER
©:1S CHARACTER A '**R'"
*:BRANCH IF NO

,SCRLF
STTYIN

SITYPE A 'CRTM & 'LF"
::TYPE THE INPUT STRING

#22,(R3)

(R3)

?OX?
Y
CMPB

#15,(R3)+

:;CHECK FOR RETURN

CLRB

=1(R3)

“:CLEAR RETURN (THE 15)

MOV
MOV
MOV
MOV

(ggms
!

8.
/%C/<15><12>

.ASCIZ

TST

awe2

SHUT:

002732
001300
021332

1%:

BNE
JMP
CLR
JMP

2:LOOP IF NOT RETURN

2 JRETURN
::STORAGE FOR ASCII CHAR.

.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

000042

i:ECHO THE CHARACTER

(SP)+,R3
(SP) ,=(SP)
4(SP),2(SP)
#STTYIN,4(SP)

$STTYIN:
SCNTLC:
SCNTLU:
S$CNTLG:
SMSWR:
.EVEN

YITYPE A '2'

::TYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK

RTI
BYTE

BYTE

©:GO PICKUP ANOTHER CHACTER

,SLF
(sP)+

9%:

SMNEW:

;iCLEAR THE CHARACTER

;:CLEAR THE BUFFER AND |.OOP

TYPE
ST

015
015
015
123

;sTYPE A CONTROL "V

2%
$QUES
is

BNE

000002
000004

$CNTLU

/*U/<15><12>
/%G/<15><12>
<15><12>/SWR = /

S RESTORER3
:;ADJUST THE STACK AND PUT ADDRESS OF THE
Iy
FIRST ASCII CHARACTER ON 1T
+: TERMINATOR

:;RESERVE
::CONTROL
::CONTROL
::CONTROL

8 BYTES FOR TTY INPUT
‘"'

'VU’"
‘'G'"

NEW = 7/

1%
START

$DEVM

$EOP

TO TYPE

:ANY MONITOR PRESENT ?

:BR IF YES
GO TO START

:FUDGE NO DRIVES IN MAP

*RETURN TO SEOP

[
|

CZRMGBO RMOS5/3/2 DSKLS TST 2

READ AN OCTAL

NUMBER FROM

THE

MACRO V04.00 4-APR-81 01:29:56 PAGE32

TTY

.SBTTL

SEQ 0130

READ AN OCTAL NUMBER FROM THE TTY
AR

R R AR AR

A AN

AR A A RN

'THXS ROUTINE WILL READ AN OCTAL

:*CHANGE
i*CALL:

i
;"
.‘.

03070¢
030706
030714
030716
030720
030722
030724
030726
030730
C30732
030734
030736
030740
030742
030744
030746
030750
030752
030756
030760
030762
030764
030770
030774
030776
031000
031002
031004

000004

0000602

IT TO BINARY.

RDOCT

RETURN HERE

$RDOCT: MOV

1%:

MOV
MOV
MOV
MOV

RDLIN

MOV
CLR

2%:

(LR
MOvVB
BEG

000012
031004

$HIOCT:

R2
(RO)+,=(SP)
3%

..PROVIDE SPACE FOR THE
s INPUT NUMBER

::PUSH RO ON STACK
;;PUSH R1 ON STACK
;;PUSH R2 ON STACK
:READ AN ASCIZ LINE
:.GET ADDRESS OF 1ST CHARACTER
;;CLEAR DATA WORD
;sPICKUP THIS CHARACTER
..15 ZERO GET oOuT

R1
R2
R1

ASL
ROL

R1
R2

;:%8

ADD

(SP)+,R1

::AggPIN THIS DIGIT

BIC
3%:

(SP)+,R0

#-C7,(SP)

BR
TST
MOV
MOV
MOV
MOV
MOV

2%
(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+ RO

.WORD

RTI

TTY AND

s ;READ AN OCTAL NUMBER
:;LOW ORDER BITS ARE ON TOP OF THE STA(K
;:HIGH ORDER BITS ARE IN S$HIOCT

ASL
ROL
ASL

ROL

177770

(SP) ,=(SP)

4(SP) ,2(SP)
RO,=(SP)
R1,=(SP)
R2,=(SP)

A AR AR AR AR R AR AN RN RN AR A A AT AR AR AN

(ASCII) NUMBER FROM THE

Ji%4

;:STRIP THE ASCII JUNK
HH

:sCLEAN TERMINATOR FROM STACK
:;SAVE THE RESULT
;;POP STACK INTO R2

::POP STACK INTO R1
2 :POP STACK INTO RO

2 sRETURN

;:HIGH ORDER BITS GO HERE

TRAP DECODER

SEQ 0131
.SBTTL

TRAP DECODER

R LRI

s*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.
s*GO TO THAT ROUTINE.
031006
031012
031016
031022
031024
031026
031032

000002

$TRAP:

031024
18:

000002

031034
031036

MOV

2(SP) ,=(SP)

;ASSUME THE STATUS OF

MOV

#18,-(SP)

:: T=BIT TRAPS

MOV

RO,=(SP)

TST

=(RO)

; ;BACKUP BY 2

ASL

;;POSITION FOR INDEXING

;G0 TO ROUTINE

BIC

#29, (SP)

RTI

MOV

2(SP) ,RO

mMovB

031040
031044

MOV

031060

THEN USING THE ADDRESS OBTAINED IT WILL

RTS

(RO) ,RO

STRPAD(RO),RO

THE CALLER==DO NOT ALLOW

;;SET _THE NEW STATUS

;:SAVE RO

::GET TRAP ADDRESS

;:GET RIGHT BYTE OF TRAP

::INDEX TO TABLE

s:THIS IS USE TO HANDLE THE ''GETPRI'' MACRO
031046
031050
031056

011646
016666
000002

000004

000002

$TRAP2: MOV

MOV
RTI

.SBTTL

(SP) ,=(SP)

4(SP) ,2(SP)

::MOVE THE PC DOWN

::MOVE THE PSW DOWN

;;RESTORE

THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

:*BY THE '‘TRAP'* INSTRUCTION.
H

ROUT INE

$TRPAD:

.WORD
STYPE
S$TYPOC
$TYPOS
S$TYPON
$TYPDS
STYPBN

STRAP?
;:CALL=TYPE
;. CALL=TYPOC
;:CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS
;;CALL=TYPBN

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 ZERQS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

030012

$GTSWR

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

027722
030264
030354
030704
024044
024102

$CKSWR ; ; CALL=CKSWR
$SRDCHR ; ; CALL=RDCHR
$RDLIN
;;CALL=RDLIN
$RDOCT ; :CALL=RDOCT
$SAVREG ;;QALL=SAVREG
$RESREG ;;CALL=RESREG

031046
024666
024464
024440
024500
024214
024140

TRAP+10(104410) TEST FOR CHAMGE IN SOF T-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP*12(10“1§) TTY TYPEIN STRING ROUTINE
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY
TRAP+14(104414) SAVE RO-RS ROUTINE
TRAP+15(104415) RESTORE RO-RS ROUTINE

“~

CZRMQBO RM0S5/3/2 DSKLS TST 2

POWER DOWN AND UP ROUTINES

cn
4-APR-81 01:29:56 PAGE 34

MACRO v04.00
.SBTTL
M

031114
031122

031130
031132
031134
031136
037140
031142
031144

031150
031154
031162

031164

012737
012737

010046
01014¢€
010246
010346
010446
010546
017746

010637
012737
000000

031254
000340

000024
000026

AR R

‘POWER DOWN ROUTINE
iPURDN: MOV
#SILLUP,Q#PWRVEC ;:SET FOR FAST UP
MOV

MOV
MCvV
MOV
MOV
MOV
MOV
MOV

150004
031260
031166

POWER DOWN AND UP ROUTINES

MOV
MOV
HALT
BR

000024

000776

2222222222222

#340,a#PWRVEC+2 :.‘fn’RlO:?

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,=(SP)
R4 ,=(SP)
RS5,=(SP)
aSWR,=(SP)

;:PUSH RO ON STACK
2 :PUSH R1 ON STACK
;:PUSH R2 ON STACK
2 :PUSH R3 ON STACK
::PUSH R4 ON STACK
;:PUSH RS ON STACK
;:PUSH @SWR ON STACK

: :HANG UP

SP,$SAVR6
;.SAVE SP
#SPWRUP ,@#PWRVEC ;;SET UP VECTOR

::'itt..lt"'.'..t.."""".!...".Q'.tt'...'.".'.ttt'..tttt"'

031166

031174
031200
031204
031210
031212
031216
031220
031222
031224
031226
031230
031232
0312640
031246
031250
031252
031254
031256
031260
031262

012737

013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
031262
000002
000000
000776
000000
015

031254

031260
031260
031260

000024

; POWER UP ROUTINE

$PWRUP: MOV
1$:

147736

031114
000340

000024
000026
$PWRMG:

SILLUP:
032

120

$SAVR6:
$POWER:
k4

MOV
CLR
INC
BNE
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
TYPE
.WORD
RT1
HALT
BR
0
gsg'lvl

#SILLUP ,Q#PWRVEC ;;SET FOR FAST DOWN

$SAVR6, SP
::GET SP
$SAVR6
s;WAIT LOOP FOR THE TTY
$SAVR6
;WAIT FOR THE INC
1%
::0F WORD
(SP)+,aSWR
;;POP STACK INTO asSwR
(SP) +,R5
:;POP STACK INTO RS
(SP)+,R4
;;POP STACK INTO R4
(SP)+,R3
::POP STACK INTO R3
(SP)+,R2
::POP STACK INTO R2
(SP)+,R1
:;POP STACK INTO R1
(SP) + RO
;;POP STACK INTO RO
#SPWRDN ,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340 ,a#PWRVEC+2 ;;PRID:7
;REPORT THE POWER FAILURE
SPOWER
;;POWER FAIL MESSAGE POINTER
R

<15><12>' POWER""

;:THE POWER UP SEQUENCE WAS STARTED
;; BEFORE THE POWER DOWN WAS COMPLETE
;;PUT THE SP HERE

_ZRMQBO RMOS/3/2 DSKLS

ST 2
APT COMMUNICATIONS ROUT NE

MACRO v04.00

4-APR=-B1

SEQ 0133
.SBTTL
AR

031272
031300
031306
0313i0
031316
031316
031320
031322
031326
031330
031336
031340
031346
031350
031354
031362
031366
031370
031374
031376
031400
031404
031406
031412
031420
031422
031430
031436
031442
031446
031450
031450
031454
031456
031462
031464
031470
031472
€31500
031506
031512

031516
031522
031526

031530
031532
031534

031535
031536

000001
000001

031536
031534

$ATY1:

000001

031536

SATY4:
SATY(C:

$ATY3:

031534
000001

001242

000100

001243

000004
000002
001222

000004

105737
001416
005737
001413

005737
001375
017637
062766
005237
105037
105037
105037

012601
012600
000207
000
000
000
000200
000001
000100
000040

1$:

2%:

001236
001240
000004
000004
000002
177776
024666

MOVB

001222
031446
000004

38:

108:

001242
001222

11$:

001224
000004
12%:

SMFLG:
SLFLG:
SFFLG:

#1,$FFLG

#1,8MFLG
$ATYC
#1,$FFLG

MOV
MOV

RO,=(SP)
R1.=(SP)

BEO
CMPB
BNE
BITB
BEQ
MOV
ADD

5%
RAPTENV,SENV

S$MFLG

SRR

;270 REPORT FATAL ERROR
;.70 TYPE A MESSAGE

2:TO ONLY REPORT FATAL ERROR
;:PUSH RO ON STACK
;:PUSH R7 ON STACK
2 :SHOULD TYPE A MESSAGE?

"IF NOT:
BR
s ;OPERATING UNDER APT?
JIF NOT:
BR

snscrvpe

;;SEE IF DONE W/ LAST XMISSION?

MOV

RO $MSGAD

BNE
SUB

2$
$MSGAD
, RO

(RO)+

;:PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

;;GET MESSAGE LNGTH IN WORDS

BNE

TSTB

WAPTSPOOL ,$ENVM ..SHOULD SPOOL MESSAGES?
3s
BR
s2IF NOT:
34 (SP) ,RO
;2GET MESSAGE ADDR.
#2.4(SP)
;:BUMP RETURN ADDR.

;:1F NOT:

WAIT

;:SUB START OF MESSAGE

MOV
MOV

RO, $MSGLGT
#4 . SMSGTYPE

MOV

34 (SP) 48

;:PUT MSG ADDR IN JSR L INKAGE

177776, ~-(SP)

: sPUSH 179776 ON STACK

B8R

ADD

MOV
gz:

MOVB
BR
MOVB

ASR

031536

000004
000002
001222
031536
031535
031534

APT COMMUNICATIONS ROUTINE

TSTB

001236
163700
006200
010037
012737
000413
017637
062766
013746
004737
000000

D
01:29:56 PAGE

JSR

#2,4(SP)

PC.STYPF

;:PUT LENGTH IN MAILBOX
;TELL APT TO TAKE MSG.

-BUMP RETURN ADDRESS

::CALL TYPE MACRO

WORD

ISTB
BEQ
ST

S$FFLG
128
SENV

; ;SHOULD REPORT FATAL ERROR?
s21F NOT: BR
; sRUNNING UNDER APT?

$MSGTYPE

;sFINISHED LAST MESSAGE?
WAIT
s+IF NOT:
;:GET ERROR #
;;BUMP RETURN ADDR.
;sTELL APT TO TAKE ERROR
;sCLEAR FATAL FLAG
:+:CLEAR LOG FLAG
;sCLEAR MESSAGE FLAG

BEQ
BNE
MOV
ADD
INC

CLRB

CLRB
CLRB
MOV
MOV
RTS

.BYTE
.BYTE
.svrs

APTSIZE =
APTENY
=
APTSPOOL=
APTCSUP =

200
001
100
040

128

118
@4 (SP)
, $FATAL
#2.,4(SP)
$MSGTYPE

S$FFLG

SLFLG
$MFLG
(SP)+,R1
(SP)+.R0

0
0
0

;:IF NOT:

;sPOP STACK INTO R1
::POP STACK INTO RO

2 sRETURN
2 sMESSG. FLAG
;:L0G FLAG

s FATAL

FLAG

(ZRMQBO RMOS5/3/2 DSKLS TST 2

CONSOLE MESSAGES

MACRO v04.00 4&-APR-81 01:29:56 PAGEE13%

3 031540

075

000

5 031547
6 031553

040
054

077
040

040
0CO0

8 031607

200

122

115

4 031542
7 031556

9
10
11
12

031617
031661
031670
031724

i3 032011
14 032066

15 032067
16 032110
17 032137

18 032144

19 032160

20 C32166
21 032204
22 032211
2% 032216
24 032223
25 032244
26 032261
27 032276
28 032315
29 032326
30 032336
31 032340
32 032342
33 032343
34 032344
gg 032345

101

200

040
122
040
200

200
e

114

124

114
115
114
124

101

040
200
116

077
104
117

104

122

200

200
122
122
122
040
040
040
040
040
040
116
131
040
040
040
040

104

125
115
115
115
116
114
116
116
117
117
000
000

000

.SBTTL

CONSOLE MESSAGES

EQUALS:

.ASCIZ

a=a

QUES:
COMMA:

.ASCIZ
_.ASCIZ

@ ?a
a, @

114

ALL:

131

MSHELP:

.ASCIZ

111
126
117
131

CNSLO2:
CNSLO3:
CNSLO4:
CNSLO7:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

@ LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
QRMVEC=d
@ LIMITS = LO= 0, HI= 10008<CRLF><LF>
<CRLF>QTYPE ''A’' TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a

.ASCIZ
.ASCIZ
.ASCIZ-

@ ?ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S) TO BE TESTED/
/NONE/

.ASCIZ

/DRIVE/

116

C(NSLO1:

LASCIZ

SEQ 0134

.ASCIZ

CNSLO8:

.ASCIZ
.ASCII

122

MSDRVS:

.ASCIZ

116
060
060
060
117
117
117
117
106
116

SYSTAT: .ASCIZ
S$RMO2:
.ASCIZ
S$RMO3:
.ASCIZ
S$RMO5:
.ASCIZ
NOTRM:
.ASCIZ
LODEV:
.ASCIZ
NOTPRS: .ASCIZ
NOTAVL: .ASCIZ
UNTOFF: .ASCIZ
UNTON:
.ASCIZ
N:
LASCIZ
Y:
LASCIZ
BLNKS4: .ASCII
BLNKS3: .ASCII
BLNKS2: .ASCII
B%N§z1: ASCIZ

111
122
116

111

CNSLO9:
DRIVES:
NONE:

MSGDRV:

.EV

QALLQ@<CRLF>
<CRLF>QTYPE HELP TEXT

<CRLF>3RMCS1=d

(L) N ? @

<CRLF>QAND TERMINATE INPUT WITH A CARRIAGE RETURN.3
<CRLF>

<CRLF>/DRIVE(S):

<CRLF>/UNIT STATUS:/
/RM02/
/RM03/
/RMOS/
@ NOT AN RM05/3/23
/ LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
/ ONLINE/
/N/
/v/
7/ 7/
7/ /
/ 7/
/7

NS WM -2

CZRMQBO RMJ5/3/2 DSKLS TST 2
FUNCTION CODE TABLE

MACRO V04.00

4-APR-81

F 11
01:29:56 PAGE 37
SEQ 0135

.SBTTL

FUNCTION CODE

sTHE FUNCTION CODE

TABLE

*EACH FUNCTION CODE.

IS USED TO DEFINE STATUS CONDITIONS FOR

BIT USAGE IS AS FOLLOWS:

WN - OO0 00N

ATA = BIT 15 IS SET _IN THE ENTRY FOR A GIVEN FUNCTION CODE
XF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE

:BIT 15 IS 2ERO,

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

b
el d b d nd

;NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
1T IS NOT EXPECTED AS A RESULT OF THE COMMAND.

WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

'
{

OP1 = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF OP1 ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

WLE = BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND .

:THE WRITE ERRORS WHICH ARE ENABLED ARE

'WLE'',

"WCF'’,

'DPE’’,

‘UPE"’.

IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
:IF _READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
THE ERRORS ENABLED BY THIS BIT ARE '‘TRE'', 'DLT"’, "NEM'',
COMMAND.
:I"xFll

"LBT', AND "A

BIT 08 IS NOT USED.
HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

:IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
HEADER ERRORS INCLUDE 'HCRC'', "WCE'', 'FER'', AND 'BSE'".

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF
> COMMAND.
THESE ERRORS INCLUDE 'MDPE'', 'DCK'', AND "ECH'.

THAT

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.
BIT 03 IS NOT USED.

BIT 02 IS NOT USED.
BIT 01

IS NOT USED.

ILF - BIT 00 IS SET

gg 032350
57 032350

FNCDTB:

020000

.WORD

THE FUNCTION CODE IS ILLEGAL.

JFUNCTION CODE TABLE
OP]

sNOP

’

FUNCTION CODE

58 032352
59 032354

60 032356
61 032360
62 032362
63 032364
64 032366
65 032370
66 032372
67 032374
68 032376
09 032400
70 032402
71

032404

72 032406

73
76
75
76
77
78

032410
032412
032414
032416
(32420
032422

79 032424
80 032426
81 032430
82 032432
83 032434
84 032436
85 032440
86 032442
87 032444
88 032446

TABLE

130001
132000
130000

020000
030000
130000
130000

020000
020000
130001
130001

132000
130001
130001
130001
130001
130001
130001

130001

073300
073300
130001
130001

037200
€37000

130001
130001
033300
033300
130001
130001

MACRO v04.00

6 1
4-APR-81 01:29:56 PAGE 37~1
SEQ 0136

«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

OPI !ATA!ILF!IVC

ATA!OPI!IVC!IAE
ATA!OPI!IVC
OPI

OPI!1IVC
OPI!ATA!IV(C
OPI!ATA!IVC

OPI
0PI

OPI'ATA!ILF!IVC
OPI!ATA!ILF!IVC

ATA!OPI!IVC!IAE
OPI!ATA!ILF!IVC

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!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

;ILLEGAL FUNCTION (2)
s SEEK
JRECAL IBRATE

;sDRIVE CLEAR
JRELEASE
JOFFSET
JRETURN TO CENTERL INE
;READ IN PRESET
;PACK ACKNOWLENGE

;ILLEGAL FUNCTION (24)
;ILLEGAL FUNCTION (26)

; SEARCH
;ILLEGAL FUNCTION (32)
;ILLEGAL FUNCTION (34)
.

L
.

.
.

;

LEGAL
LEGAL
LEGAL
LEGAL
ILLEGAL

FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION

;WRITE CHECK DATA

’

(36)

(40)
(42)
(44)
(46)

;WRITE CHECK HEADER AND DATA
;ILLEGAL FUNCTION (54)
s ILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATA
sILLEGAL FUNCTION (64)
s ILLEGAL FUNCTION (66)
;READ DATA
;READ HEADER AND DATA
sILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION (76)

CZRMQBO RM05/3/2 DSKLS TST 2

ATTENTION

(ATA)

TARLE

;

001

5 032452
€ 032453
7 032454
8 032455
9 032456
10 032457
n

004
010
020

002

040
100
200

ATNTBL:

ATTENTION (ATA)

.BYTE

AYIE

BYTE
BYIE
BYTE

.EVEN

AYlE
BYTE
BYTE

4.
8.
186,

32,
64,
128.

TABLE

H 11
4=-APR=-81 01:29:56 PAGE 38

JSBTTL

3 032450

& 032451

MACRO Vv04.00

SEQ 0137

“ZRMOBO RM(S5/3/2 DSKLS TST 2

| CZRMQBO RM0S5/3/2 DSKLS TST 2
ERROR MESSAGE

e
o T Q=Y

O NOWNHWN
OO0 NN WA

032460
032466
032500
032514
032522
032534
032544
032556
032564
032576
032602
032610
032624
032632
032646
032654

19 032664

TABLE

047151
047167
052427
047167
052427
047151
052427
047167
052427
047415
047167
052427
047167
052427
47561
052427

047561

20 032672
21 032702
22 032710
23 032720
24 032726
25 032736
26 032744
27 032754
28 032762
29 032772
30 033000
31 033010
32 033016
33 033026
34 033042
35 033050
36 033064
37 033072
38 033106
39 033116
40 033132
41 033142
42 033156
43 033166

052427
047561
052427
047561
052427
047561
052427
047561
052427
047561
052427
047561
052427
045142
052427
045142
052427
045277
052427
045277
052427
045277
052427
045277

45 033206
46 033222
47 033232
48 033240
49 033252

047167
052427
047770
050143
052427

44 033200

50 033260
51 033270
52 033300
53 033304

57 033332

052427

050143
052427
047151
052427

052427

MACRO V04.00

I 1

4-APR-B1 01:29:56 PAGE 39
SEQ 0138

040562
047212
051633
047257
052150
047212
052020
047334
052020
000000
047257
052020
047453
051773
047602
051773
047602
051773
047622
051773
047622

051773
047642
051773
047642
051773
047662
051773
047662
051773
050101
052070
050124
052070
050404
052070
050404
052070
050521
052070
050191
052070
047257
052070
047504
045277
052070
045602
052070
046541
051773
051016
052115
051422
052115

000000

047237
051773
047212
051773
047273
051773
047351
051773
047351
051773
047212
052020
047504
052020
047533
052020
047504
052020
047533
052020
047504
052020
047533
052020
047504
052020
047533
052020
050157

.SBTTL

ERROR MESSAGE

EMT1:
EMTZ:

«WORD
.WORD
.WORD
.WORD

EMT3:
EMT4:

EMTS:

EMT6:

.WORD
.WORD
.WORD
.WORD
«WORD
.WORD

EMS511.EMS502. EMSSO1 EMS503,0

EMS5301.EMS310.EMS311
EMS511.EMS502.EMS501, EMS503, EMS504
EMS312.0
EMS301 .EMS306, EMS311

EMS316.EMS317.EMS315

EMS511.EMS501 .EMS502,0

EMS511.EMS501.EMS502, 0

EMS316.EMS320.EMS314

EMT12:

EMS511.EMS501. EMS502,0

EMS316.EMS320.EMS315

EMT13:

EMS511.EMS501 .EMSS502, 0

EMS316.EMS321.EMS314

EMT14:

EMS511.EMS501 .EMS502, 0

EMS316.EMS321.EMS315
EMSS511.EMS501. EMS502, 0
EMS316.EMS322.EMS314
EMS511.,EMS501 ,EMS502,0
EMS316.EMS322.EMS315

EMT15:
EMT16:

EMT17:

EMSS511.EMS501. EMS502, 0

EMS71,EMS335, EMS340, EMS72,EMS377,EMS372
EMSS11,EMS503.,0

EMT20:

EMS71,EMS336 enssao EMS72,EMS400,EMS372

EMS511,EM5503,0
EMS73,EMS352 EHS74 EMS402,EMS70, EMS406

En5511 LEMS50%, EMS504,0

EMS73,EMS352 Ens7s ens4oz EMS77,EMS406
snss11 LEMS503,EMS504,0
EMS356 EHS?S EHS402 EMS77,EMS377

Enss1i
LEMS50%, EMS504,0
EMS73,EMS335 Ensst.o EHS76 EMS411

EMT24:

EMT25:

EMS511,EMS503,0
EM3301. EMS306. enszsz EMS253,EMS327., EMS 54
EMS511.enssos EMSS501.EMSS02
EMS330.EMS314 .0

EMT26:
EMT27:

000000

EMS301 .EMS306. EMS302”
EMS511.EMS505.EMS501, EMS502,0
EMS300,EMS302. EMS307. EMS?

EMT11:

EMT23:

000000

EMS301.EMS302, EMS303, EMST, EMS 304
EMS511,EMS500,EMS507. EMSS02, EMS503,0

EMT10:

EMT7:

EMT22:

052070

EMS300,EMS1,0

EMS511.EMS502.EMS501, EMS503, EMS504,0
EMS301 EMS313.EMS302”
EMS511.EMS501. EMSSOZ EMS504 ,EMS503,0
EMS316.EMS317.EMS314

EMT21:

052115

TABLE

EMT30:
EMT31:

EMT32:
EMT33:

EMS337.EMS73,EMS410,EMS76,EMS411
-WORD
-WORD
.WORD
.WORD
.WORD

-WORD

EMS511.EMSS03,0
EMS337.EMS100.EMS341,EMS101
EMS511,EMS503.EMS504 .0

EMS300. EMS252

EMS511 . ensso1 EMS503,0

EMS100.EMS370

EMS511.EMS504, 0

EMS100.EMS412

EMS511.EMS504, 0

CZRMOBO RM0S5/3/2 DSKLS

ERROR MESSAGE

58 033340
59 033344
60 033352

61 033356

MACRO v04.00

TABLE

045716
052427
045716
052427
045602
052427
045602
051435
052427
045602
052427
045602
045716
052427
045764
052427
051450
052427
046051
052427
047151
052427

000000
000000
050157
000000
050157
051467
000000
050157
000000
050157
000000
047762
000000
051517
000000
047762
000000

052070
051517
000000
051535
000000
051333
000000
051550
000000
046157
000000
046732
000000
051333
000000
047762
000000
051517
000000

046112

046167
052427
050231
052427
051450
052427
050007

033706
033716
Q033724
033734

96 033742
97 033750
98 033756
99 033762

100
101
102
103

033772
033776
034006
034016

052427
046244
052427

046302

052427
046341
052427
046762
052427
041000
052427
051435
052427
050322
052427
046302
052427
051435
052427
051565
052427
041321
052427
047151

J 1

01:29:56 PAGE

39-1
SEQ 0139

052427
051435
052427

92
93
94
95

4-APR-B1

051773

052115
051033
052070
046424
052115
050420
052115
050124
051773
041050

051773
051535
000000
050170
000000
000000
050420
000000

000000
050177
000000

EMT34:

EMT35:
EMT36:

EMT37:
EMT4O0:

EMT41:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD

EMT43:

EMSS11.EMS504 .0
EMS110.EMS413. EMS405, EMS107

EMTS50:

EMS511,EMS503.0

EMTS51:

EMS343,EMS111. EMS421

EMSS517 .EMS504 .0

EMTS2:

EMS4
14 .EMS416,EMS107,EMS421
EMSS11.EMSS04 .0

EMT53:

EMT54:
EMTS5:

EMT63:

EMS102,EMS400
EMS511,EMS504,0

EMS300.EMS253
EMSS511.EMS501,EMS503, 0
EMS106. EMS401 EMS417
EMSS511.EMS503.0
EMS413.EMS107. ensz.zo EMS417

EMT47:

EMT62:

EMS511.EMS504,0
EMS100,EMS 336, EMS340,EMS73,EMS415, EMS402

EMS105. EMS401.EMS327, EMS370
EMS511.EMS503.0

EMT46:

EMT61:

EMS100, EHS3 6,EMS340,EMS416,EMS104 ,EMS415

EMS414. EMS104. EMS417

EMT4S:

EMT60:

EMS413,EMS104 ,EMS415
EMS511,EMS504,0

EMSS11.EMSS504 .0

EMT44:

EMT57:

EMS100,EMS335, EM5340 EMS102,EMS377 ,EMS365

EMS103,EMS401. EMS327, EMS370
EMS511,EMS503,0

EMT42:

EMT56:

EMS102.EM841§
EMS511,EMS503,0
EMS102 ,EMS336
EMS511,EMS503,0
EMS100,EMS335,EMS340,EMS102 ,EMS334
EMS511,EMS504,0

WORD
WORD
WORD

EMS331.EMS4 , EMS256
EMS511.EMS501,0
EMS112.EMS41 snsws EMS607
EMSS11.EMSS03.0
EMS113.EMS401. EMS327,EMS370
EMSS511.EMS503.0
EMS114. EMS401. EMS417
EMS511.EMSS503.0
EMS257.EMS322

EMS511, enssoe EMS501,0

EMS5 , EMS333
EMS511,EMS507,EMS501,0
EMS413.EMS115.EMS420. EMS417
EMSS517.EMS504.0

EMS346.EMS100.EMS341,EMS101

EMS511.EMS504 .0

EMS113.EMS371

EMS511.EMS503,0

EMT64:

EMS&13.EMS11

EMT65:

EMS422. EMS3S

EMT66:

EMT67:

EMS517.EMSS0
EMS511.EMS50

EMS12,EMS336

EMS511,EMS50

EMS300,EMS6

n
~N
»

34302

RRR
guu
*88

34316

34356

034370
139 034402
140 034406

WA
—

034534

-y

141 034414
142 034424
143 034434
144 034444
145 034454
146 034466
147 034472
148 034500
149 034510
150 034520

163 034674
164 034704
165 034714
166 034724
167 034734
168 034746
169 034752
170 034760
171 034770

MACRO V04.00

K 11
4-APR-81 01:29:56 PAGE 39-2

—

N=N=NOO~

052427
041050
052427
041050
052427
047167
052427
050231
047151
052427
050322
052427
050143
052427
047167
052427
050322
052427
050143
052427
047167
052427
041446
050322
052427
050143
052427
047167
052427
041652
050322
052427
041713
052427
041713
052427
050143
052427
050143
052427
041713
052427
047167
052427
041713
050322
052427
050143
052427
047167
052427
042103
050322
052427

052427
041114
047151

jelelololololale)

144

COOO00O0O o

d o

d ek o e

SNERRUK
LS 0 00~

d e o d D e e e e b e d o
i —
NN POPONININININ
= = =3 3

N & VN — & 0 00 < Oh o

5 034122
34126
134

vivuononan
eSS oo

CZRMQBO RMOS5/3/2 DSKLS IST 2
ERROR MESSAGE TABLE

|
|

047016

000000

047762
052115
050157
052020
050157
052020
047237
052020
050177
000000
050274
000000
050274
000000
046627
000000
050170
051773
000000
046627

000000
050170
051773
050170
051773
046627

000000
050170
051773
041757
000000
050361
000000
050170
051773
050170
000000
041757
000000
046627

052070
050037
062240
052070

000000
050170
051773
050170
051773
046627

000000
050170
051773

EMT70:
EMT71:

EMT72:
EMT73:

WORD
WORD
WORD
.WCRD

.WORD
. WORD
.WORD
.WORD

EMT?74:
EMT?75:

SEQ 0140

EMS511,EMS501
EMS7,EMS333,0

EMS300,EMS6 .EMS327 ,EMS7
EMS511.EMSSO1,EMSS04
,0

EMS6, EMS335, EMS340,EMS10,EMS333,
EMS 342

EMSS11,EMS501,EMSS02,0

EMS6 , EMS336,EMS340,EMS10, EMS334 , EMS342

EMS511,EMS501,EMS502,0

EMS301 . EMS260
. EMS303 . EMS 11
EMS511.EMS507 . EMS502.0
EMS343.EMS344
- EMS342.0
EMS300.,EMS13

EMS511.EMS503,0

EMT76:

EMS346.EMS13,EMS345

EMS511.EMS503,0

EMT77:

EMS337.EMS13,EMS345

EMS511,EMS503,0

EMT100:

EMS301.EMS313.EMS254
, EMS347,EMS13
EMS511.EMS503.0
EMS346
. EMS14,EMS341,EMS15

EMT101:

EMS511.EMS505, EMS507,0

EMT102:

EMS337.EMS70
EMS511.EMS503,0
EMS301 .EMS313. EMS254 ,EMS347,EMS15
EMS511,EMS503
EMS14,EMS332,0
EMS346,EMS17,EMS341,EMS16

EMT103:
EMT104:

EMS511.EMSS03, EMS501,0

EMT105:

EMS337.EMS17,EMS341,EMS16

EMS511.EMS505, EMS507,0

EMT106:
EMT107:

EMS301 .EMS313.EMS254
. EMS347,EMS16
EMS511,EMS503
EMS17,EMS332,0
EMS346,EMS20, EMS341, EMS21

EMT110:

EMS20,EMS351,EMS21 ,EMS350,EMS22,EMS315

EMT111:

EMS20, EMS334 , EMS350, EMS22, EMS333

EMS511.EMSS05,EMSS01,0

EMSS11,EMS507.0

EMSS11,EMS501,0

EMT112:

EMS337.EMS20,EMS341,EMS21

EMS511.EMSS03, EMSS01,0

EMT113:

EMS337.EMS20, EMS341,EMS21,

EMS511.EMSS01,0

EMS350, EMS22, EMS334

EMT114:

EMS20,EMS352,EMS21,EMS350,EMS22,
EMS333

EMT115:

EMS301 .EMS313.EMS254 , EMS347, EMS21
EMS511.EMS503
EMS20,EMS332,0

EMS511,EMS501,0

EMS346,EMS23 EMS341,EMS24
EMS511.EMS503, EMSS501,0

EMT116:
EMT117:

EMS337.EMS23,EMS341,EMS24

EMT120:

EMT121:

EMS571.EMSS03,EMSS01,0

EMS301 . EMS313.EMS254
. EMS347 ,EMS24
EMS511.EMS503
EMS23,EMS332,0
EMS346,EMS25 . EMS341 ,EMS26

EMS511.EMSS0%,EMS501,0

.
'

(ZRMQBO RMOS5/3/¢ DSKLS TST 2
ERROR MESSAGE TABLE
172 035000

173 035010

174 035020
175 035032
176 035036

177 035044
178 035054

179 035062

180 035070

181 035074

182 035102
133 035112

184
185
186
187

035120
035132
035136
035144

047167
052427
042240

047151
052427

050007

042375
052070

EMT122:

046627

EMT123:

000000

047273
000000

.WORD

.WORD
.WORD
.WORD

EMT124: .WORD
.WORD

042441

047533

000000

047167
052427
042375
042521

047453
052070
050037
050444

046627

EMT127:

000000
046437

EMT130:

.WORD
.WORD
-WORD
.WORD

042572

050444

046437

EMT131:

.WORD

046437
000000
046437
000000
046670

EMT132:

050143
052427

190 035170

052427

G35200
035212
035220
035232
035240

047453
052070
050037

050170

051773

050420

052427

191
192
193
194
195

042240

052070

4-APR-81

042375

052427

188 035152

189 035162

050477
052427
050477
052427
050007

052070

042375
052070

052115

042652
052115
042702
052115
040747

050170
000000

052070

EMT125:

.WORD

EMT126: .WORD
.WORD

EMT133:
EMT134:

.WORD

052070
042773

000000
047273

EMT137:

WORD
WORD

203 035322

050477

043023

046670

EMT140:

.WORD

205 035342
206 035350
207 035356
208 035366
209 035374
210 035402

050322
052427
050143
052427
050660
052427

043055
052115
043055
052115
047334
051773

050274
000000
050170
000000
043133
000000

EMT141:

212 035424
213 035432
214 035446
215 035454
S}g 035462
035472
21 8 035476
219 035506
220 035520
221 035526
222 035532
223 035540

052427
043133
052427
047167
052427
050723
052427
050746
052427
050143
052427
043263

051773
050444
051773
047257
051773
043201
052070
050420
052070
042773
051773
050444

000000
050675
000000
042773
052070

225 035554
226 035566
227 035574
228 035606

050746
052427
050746
052427

050420
052070
050420
052070

204 035334

211 035410

224 035546

—

052427

050143

052427

051773

052115

043133

051773

000000

050170

000000
050716
000000

000000
042773

000000

050716
000000
050716
000000

EMS30,EMS315,0

EMS337,EMS27.EMS341,EMS30
EMS511,EMS505,0

EMS301.EMS313.EMS254 ,EMS347,EMS30
EMS511,EMS503
Ens§7.5n5332.0
EMS31.EMS354.EMS250

EMS511,EMS504,EMS503,0
EMS32,EMS354,EMS250

EMS355.EMS37,EMS255.EMS341.EMS30

052427
047151

202 035314

EMS331,EMS27,EMS353

Enss11.En§503

EMS511,EMS503,0
EMS300,EMS36,EMS307,EMS2

200 035276
201 035304

EMT136:

EMS300,EMS27.EMS307,EMS2
EMS511,EMS505,0

EMS511 Engsba.o
EMS35,EMS357,EMS360,EMSTS
EMS511,EMS501,0

000000
050563
000000

050637

EMS301.EMS313.EMS254 .EMS347,EMS26
EMS511,EMS503
EMS§5 EMS332,0

WORD
.WORD
WORD

.WORD
WORD
.WORD
WORD
.WORD

052115
050541
051773

047047

EMS337,EMS25,EMS341,EMS26

EMS511,EMS503,EMS501,0

EMS511,EMS504,EMS503,0

052427
042731
052427

EMT135:

L1
01:29:56 PAGE 39-3

.WORD

196 035246
197 035254
198 035264

199 035272

050143

052427

MACRO v04.00

-WORD

WORD

-WORD

EMS355.EMS33,EMS250,EMS3
. EMS30
41
EMS511.EMS504,0
EMS355.EMS34,EMS250,EMS3
. EMS30
41
EMS511.EMS504,0
EMS331.EMS4,EMS255

EMS261.EMS362

EMS511.EMS507,0

EMS511.EMS504,0

.WORD
WORD
.WORD
WORD
.WORD
WORD

EMS346.EMS40,EMS345
EMS511.EMS504,0
EMS337.EMS40,EMS341.EMS30
EMS511.EMSS04.0
EMS363.EMS310. EMS41
EMS511.EMS501.0

EMT145:

WORD
WORD

EMS511.EMSS501,0
EMS&1,EMS354,EMS364,EMS252, EMS365,EMS253

EMT146:

WORD

EMS301.EMS306.EMS36

EMT142:
EMT143:

EMT144:

EMT147:
EMT150:
EMT151:
EMT152:

EMT153:
EMT154:

.WORD

WORD
zg:g

EMS337.EMS41.EMS341,EMS252.EMS327.EMS253

EMSS11,EMS501,0

EMS511.EMS501 .EMS503, 0

.
-WORD
.WORD

EMS366
. EMS42
EMS511.EMS503,0
EMS367.EMS353.EMS365.EMS42,EMS354
,EMS3

.WORD

EMS511,EMS501,0

"WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

EMS511.EMS503.0
EMS337.EMS36
EMS511.EMS501,0
EMS43,EMS354, EMS36

EMS367.EMS353.EMS365,EMS36,
EMS370
EMS511.EMS503.0
EMS367,EMS353,EMS365,EMS36,EMS371
EMS511,EMS503,0

SEQ 0141

i
|

CZRMQBO RM05/3/2 DSKLS

ERROR MESSAGE

MACRO V04.00

TABLE

047151
052427
050746
052427
047151
052427
050746
052427
042731
047151
052427
050143
052427
042731
052427
043534
052427
050143
052427
043133
047151
052427
043574
052427

254 036114
255 036122
256 036130
257 036136
258 036144
259 036154
260 036170
261 036176
262 036212
263 036216
264 036224
265 036234
266 036242
267 036252
268 036260
269 036260

052427
043574
052427
047167
052427
050746
052427
047151
050170
052427
047151
052427
047151
052427

042702
051773
047257
051773
050420
051773
046437
052526
051773
046732
051773
046437
052115

050143
052427
050322
052427
050322
052427
050322
052427
050322
052427
043753
052427
050143
047762
052427
044014
052427

043712
051773
043712
051773
043643
051773
043712
052115
043712
052115
050444
052070
044014
040702
052115
050444
051773

270 036270
271 036276
272 036306
273 036314
274 036324
275 036332
276 036344
277 036354
278 036364
279 036374
280 036402
281 036414
282 036430
283 036434
284 036444
285 036452

050143

M1
01:29:56 PAGE 39-4
SEQ 0147

229 035614
230 035624
231 035632
232 035646
233 035654
234 035664
235 035672
236 035706
237 035714
238 035722
239 035732
240 035740
241 035746
242 035756
243 035772
244 036000
245 036014
246 036022
247 036032
248 036036
249 036046
250 036056
251 036066
252 036100

253 036110

4-APR-81

047273

EMT155:

.WORD

EMS300,EMS44,EMS307,EMS2

050716
000000
047273

EMT156:

.WORD
"WORD
.WORD

EMS367.EMS353.EMS365,
EMS44 ,EMS354 ,EMS3
EMS511.EMS503.0
EMS300.EMS4S,EMS307,EMS2

050716
051773

EMT160:

.WORD
-WORD

EMS367.EMS353.EMS365,EMS4S5,EMS354,EMS3
snss11.en§sg3 EMS507

000000

052070
043452
052070

050101
051773
050101
051773
042731
051773
050055

043534
051773
050101
051773
042731
051773

000000
047273
000000

EMT157:

-WORD

"WORD

.WORD
EMT161: .WORD
.WORD

snss11.ensso§.o

EMS511.EMS50%.0

EMS35,EMS333.0
EMS300,EMS46 . EMS307,EMS?2
EMS511.EMS50%,0

050420

EMT162:

.WORD

050143

EMT163:

.WORD

EMS35,EMS335,EMS337,EMS41,EMS334,EMS372

050143

EMT164:

.WORD

EMS&7,EMS335,EMS337,EMS41,EMS335,EMS372

047762

EMT165:

051773

000000

051062

047273

050157

052070

000000
040702
000000
043643
052115
050716
000000

047762
000000
050170
000000
050170
000000
050170

000000
050170
000000
050170
000000

.WORD

.WORD
.WORD

.WORD

EMT166: .WORD
.WORD
EMT167:

EMT170:

EMT171:
EMT172:
EMT173:

.WORD

EMS337 ,EMS35,EMS327 ,EMS47

EMS511 .enisoi

EMS&1,EMS333,EMS372.0

EMS300,EMS47.EMS307 . EMS2
EMS511.EMS501,EMS505,0

EMS50,EMS335,EMS340,EMS36,EMS333

EMS511.EMS501,0
EMS50,EMS34.EMS3
EMS511,EMS501,0

.WORD

.WORD
WORD

.WORD
EMI1201: .WORD
-WORD
EMT202: .WORD
.WORD
EMT204:

040702

EMT205:

.WORD

051120

EMT206:

051773
040702

EMT207:

000000

EMSS11,EMS501,0

WORD
.WORD
WORD

.WORD
-WORD
.WORD

052020

EMS511,EMS507,0

EMS511,EMS501,EMS503,0

050274
051773
050170

051773

EMS511,EMSS0%,EMS501,0

WORD

.WORD
.WORD
EMT174: .WORD
.WORD
.WORD
EMT175: .WORD
.WORD
EMT176: .WORD
.WORD
EMT177:
EMT200: .WORD

EMT203:

EMS337.EMS46,EMS353

.WORD

.WORD
WORD
.WORD
.WORD

.WORD

EMS337.EMS35

EMS301.EMS306.EMSS1
EMS511.EMSS501.EMS504,0

EMS367,EMS353,EMS365,EMS47
,EMS354 ,EMS3
EMS511,EMS501,0
EMS300,EMS250,EMS327
,EMS255 ,EMS327 ,EMS256
EMS341,EMS600
EMS511,EMS501,0
EMS300,EMS256,EMS341,EMS600
EMS511,EMS501.,0
EMS300,EMS250,EMS341,EMS600
EMS511,EMS504,0
EMS337,EMSS2,EMS341,EMS601

EMS511.EMS501,0

EMS346.EMS52,EMS341,EMS602

EMS511.EMS501.0
EMS346.EMSS51,EMS341,EMS602
EMS511.EMS501.0

EMS346,EMS52,EMS345,EMS373,EMS255
EMS511.EMS504,EMSS01,0
EMS346.EMSS2,EMS341,EMS27

EMS511.EMS504,EMS501,0
EMS53,EMS354 ,EMS3

EMS511,EMS503,EMS502,EMS510,0

EMS337.EMS54,EMS374,EMS250, EMS327,EMS255
EMS327.EMS3
EMS511,EMS504,EMS501,0
EMS54,EMS354,EMS3

EMS511,EMS501,0

286 036460
287 036470
288 036476
289 036506
290 036514
291 036520
292 036526
293 036544
29 036550
295 036556
296 036562
297 036570
298 036602
299 036610
300 036616
301 036624

302 036632
303 036640
304 036650
305 36656
306 036666
307 036674
308 036704
309 036712
310 036722
311 036730
312 036740
313 036750
314 036764
315 036772
316 037002
317 037010
318 037020
319 037026
320 037036
321 037044
322 037052
323 037060
324 037074
325 037102
326 037114
327 037124
328 037142
329 037152
330 037162
331 037172
332 037206
333 037212
334 037224
335 037234
336 037244
337 037260

338 037270

339 037306
340 037314
341 037326
342 037332

TABLE

044014
052427
044014
052427
050143
052427
0441747
052427

044147

050143
052427

044242
052427
050660
052427
050660
052427
044453
052427
044453
052427
044453
052427
050322
052427
050322
052427
044534
052427
044534
052427
044534
052427
044534
052427
044534
052427
043133
052427
050746
052427
041571
052427
047151
052427
044147
044644
052427
047151
052427
041513
052427
044705
052427
051253
052427
042773

N 11

4-APR-81 01:29:56 PAGE 39-5
SEQ 0143

050444
052115
050444
052115
044071
052115
050071
051773
050101
044147
051773
050055
051773
047257
051773
047257
051773
050055
051773
050055
051773
050055
051773
044453
051773
044534
051773
050055
051773
050541
051773
050521
051773
050521
051773
050521
051773
051201
051773
050420
052070
051201
052070
044644
052020
051201
051227
052020
044705
051775
051212
052070
050124
052070
052660
052070
050101

050675
000000
050675
000000
000000
050274
000000
000000
050361

EMT210:

.WORD

EMT211:

EMS54 ,EMS354
, EMS364 ,EMS255

EMT212:

EMT213:

EMT214:

EMS511,EMS504,0

EMS337.EMS55
EMS511,EMS504,0
/
EMS56,EMS334 ,EMS345,EMS373,EMS262,
EMS327 ., EMS2ST

EMS511,EMS501

EMS56,EMS335,0

EMS337,EMS56

EMS511.EMS501,0
:
EMS57,EMS333, EMS350, EMS60, EMS334

EMT215:

EMS511,EMS501,0

EMT216: .
EMT220:

EMS363.EMS306.
EMSS
EMS511.EMS507.0
EMS363.EMS306.EMS61
EMS511 ,EMS501.0
EMS62,EMS333,EMS375,EMS251

EMT221:

EMS62, EMS333, EMS376,EMS262

EMT217:

EMTZ222:

EMS511,EMS501,0
EMSS11,EMS501,0

EMS62,EMS333, EMS376,EMS250

EMSS11,EMS501,0

EMT223:

EMS346,EMS62, EMS341,EMS603
EMS511.EMSS01,0
EMS346
. EMS63,EMS376 ,EMS262

EMT224:

EMS511.EMS501 ,EMS503.0

EMT225:

EMT226:

EMS63,EMS333,

EMS63,EMS357,EMS36, EMS372

EMSS11,EMS501,0

EMS63,EMS356,EMS360,EMS15

EMSS11,EMS507,0

EMT230:

EMS63,EMS

WORD
WORD

EMT232:
EMT233:

052070
047273
052070
051062
051773
050157
000000
051244
000000

EMT235:
EMT236:

356, EMS361,EMS15

EMSS11,EMS501,0

EMT231:

EMT234:

EMS350, EMS363,EMS310,
EMS262

EMSS11,EMS501,0

EMT227:

052070
051165

EMS54 ,EMS354 , EMS364 ,EMS250

EMS511,EMS504,0

WORD
WORD

EMS63,EMS356, EMS41

EMSS11,EMS507.0

EMS41,EMS377 ,EMS342,EMS365 ,EMS63, EMS332
EMS511,EMS501,0
EMS367.EMS353.EMS365,
EMS63, EMS401
EMSS511
. EMS503.EMS501 .0
EMS16,EMS377,EMS372
,EMS365, EMS64 . EMS354 ,EMS3

EMS511,EMS505, EMSS501,0

EMS300.EMS6S , EMS307, EMS2

EMS511 .EMSS02,EMS50%, 0

EMT237:

EMS56,EMS377 ,EMS376,EMS252, EMS372,EMS350
EMS6S
, EMS401
EMSS511,EMSS02,
EMSS03, EMS501,0
EMS300
. EMS66 , EMS 307, EMS2

EMT240:

EMS15,EMS400,EMS372,EMS350,
EMS66, EMS401

EMS511.EMSS01, EMSS03,0

EMS511,EMSS03, EMSS01,0

EMT241:

EMT242:

EMS66, EMS336,EMS340,EMS15,EMS406,
EMS405 , EMS604
.

EMS511,EMS50%,0

EMS403 . EMS604 . EMS402,EMS21,EMS377
EMSS511.EMS503
EMS36,EMS335,0

RROR MESSAGE

MACRO V04.00

P2R2RRPPPE

ZRMQBO RMO5/3/2 DSKLS TST 2

me~

044705
052427
044534
052427
042773
052427
051253

FHLRU

YUs
. VWV

QTAFR=0!I

VI.C7.00

FALLE

OY=0

SEQ 0144

050124

050157

000000
051333
000000
050157
000000

356 037506
357 037520
358 037524
359 037532
360 037550
361 037556
362 037566
363 037574
364 037604
365 037612
366 037624
367 037630

EMT252:

000000
051333
000000
051244
000000
051333
000000
050157
000000
051244
000000
050157
000000
051333
000000
051333
000000
051244

000000
051333
000000
051333
000000
051356
000009
050157
000000
051244
000000
051333
000000
5133

051314

EMS63, EMS401 . EMS405
, EMS604

EMS403 . EMS604 . EMS402, EMS24 ,EMS377
EMSS11 .EMS503
EMS36,EMS335,0
EMS67 . EMS332 EMS405
, EMS604

E:gggiisggggségssao
EMS15,EMS406,EMS405 ,’ EMS605
EMSS11,EMS505,0

EMTZ250:

000000
050157
000000

EMS403 . EMS605 . EMS402,EMS21
, EMS377
EMSS511
.
EMSS03

52222'523332‘2n53¢o . EMS26, ” EMS404 ., EMS405 -E"S,EM5C05
EMSS11,EMS505.0

EMT253:
EMT254:

EMT255:
EMT256:
EMT257:

EMT260:

EMT261:
EMT262:
EMT263:
EMT264:
EMT265:
EMT266:

EMT267:
EMT270:
EMT271:
EMT272:

EMS26, EMS404 , EMS40S , EMS60%

EMSS11 engsoS 0
EMS36,EMS370,EMS405
, EMS604
EMS511,EMS50%.0

EMT247:

EMT251:

, EMS336,EMS340,

sns??i LEMS50%,0

EMT246:

051244

051333

368 037636
369 037646
370 037654
371 037672
372 037700
373 037712
374 037716
375 037724
376 037742
377 037750
378 037760
379 037766

EMS66

0513?3 EMT244:
05133% EMT245:

000000
051244

352 037444
353 037454
354 037462
355 037500

EM1243:

EMS63,EMS401, EMS405
, EMS605

EMSS11,EMS505.,0

§8885555888550008233828805005REREES

343 037340
344 037356
345 037364
346 037374
347 037402
348 037412
349 037420
350 037432
351 037436

€

199

EMT273:

513

EMT274:

VORL
D

TNV A7 27

MATVREOV

3 ERROR MESSAGE TABLE

EMS36,EMS370, EMS405
, EMS605

EMSS11,EMS505.0

EMS403, EMS605 . EMS402, EMS24 , EMS 277
EMS511 .EMSS03
EMS36,EMS335,0
EMS67 ,EMS332 . EMS405
, EMS605

EMSS11,EXS$505,0
EMS66, EMS336,EMS340,EMS
15, EMS406, EMS40S5 , EMS606
EMSS11,EM550%.0

EMS403 . EMS606. EMS402,EMS21
,EMS377
EMSS11.EMSS03
EMS36,EMS335.0
EMS66
. EMS336 . EMS340, EMS26 ., EMS404 , EMS405 . EMS606

EMSS11,EMS508.,0

EMS63,EMS401 , EMS405
, EMS606

EMsS11 engsos.o
EMS36,EMS370,EMS405
, EMS606
Ems511,Em550%.0

EMS403 . EMS606 . EMS402, EMS24 ,EMS377
EMSS11
.EMSS03

EMS36,EMS335,0
EMS70 . EMS401 , EMS40S
, EMS606

EMsS11,EMSS03,0

EMS67 ,EMS332,EMS405
, EMS606

EMSS11,EMS503,0

EMS66 , EMS 356, EMS407

EMSS11,EMS505,0

EMS66, EMS336,EMS340,FMS
15, EMS406, EMS405 . EMS607

EMSS11,EMS505.0

EMS403 . EMS607 . EMS402, EMS21,EMS377
EMSS11.EMSS03
EMS27 ,EMS5336.0
EMS27 . EMS370 EMS405
, EMS607

'EMSS11,EMS505,0

EMS607
, S405
EMS27 ,EMS371,EM

EmMsS11,EMS50%.0

, EMS607
MS404
, EMS405
EMS36,E

CZRMQBO RMOS/3/2 DSKLS TST 2

ERROR MESSAGE

400 040214
401 0640222

TABLE

052427
043753

052070
(51227

MACRO v04.00 4-APR-81 01:29:56 PAGEc13%-7
’

000000
051333

EMT275:

.WORD
.WORD

051333

EMT276:

.WORD

050124

050157

EMT277:

.WORD

050743

051244

EMT300:

.WORD

402 040232

052427

052070

052020

404 060252

052427

052070

000000

403 040262
405 060260

406 060276

407 040306

408 040316

044762

044705

052427

051253

000060

052070

045074

051227

051333

EMT301:

047151
052427

046670
052115

050170
000000

EMT302:

042375

411 060340

052427

412 040346
413 040356

052070

052427

409 040322
410 040330

050037

050124

052070

000000

EMS511,EMS503,0
EMS53,EMS401.EMS40S . EMS607

-WORD

enss11.sn§sos.snssoé.o

"WORD

EMSS11,EMS50%.0

EMS67,EMS332.EMS40
. EMS607
S

EMS66,EMS336,EMS340,E
EMS404 , EMS40S
MS26,
EMS607

"WORD

EMS511,EMS50%.0

"WORD

EMS511.EMSS03

EMS403.EMS
. EMS402,EMS24607
,EMS377

.WORD

EM527,EMS336,0

.WORD

EMS511,EMS503.0

.WORD

.WORD
"WORD

EMS70.EMS401

EMS40. EMS607

EMS300.EMS255.EMS341,EMS600
EMS511.EMSS504.0

SEQ 0145

4 060400

S 040404

6 060410
7 040414

8 040420
9 040424
10 040430

040436

12 040640

13 040444

14
15
16
17
18
19

040450
040454
040460
040464
040470
040476

052761

053037
053054

053112

053131

053157

053255

053313
053351
053425

053045

000000

(00000
000000

000000

000000
000000
000000

000000

EHT1:

EMT2:
EMTS:

EHT7:

EMT47:

EMTS2:

EMTS7:

EHT61:
EHTES:
EHT71:

.WORD

EM2.0
EMS.0

.WORD

EM47,0

.WORD

EM57.0

.WORD

.WORD
.WORD
.WORD

EHT74:

.WORD

EMT130:

.WORD

053502

000000

EHT115: .WORD

053715
054013
054117
054226
054324
054421

000000
000000
000000
000000
000000
000000

EMT132:
EHT142:
EHT145:
EHT150:
EHT213:
EHT220:

053577

000000

EHW1,0

.WORD
.WORD

.WORD

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

SEC 0146

EM7.0

EM52.0

EM61.0
EM65.0
EM71,0

EM3,0

. %18 %

040364

2 040370
3 0403764

D 12

01:29:56 PAGE 40

TABLE

4-APR-81

s =ha i

ERROR MESSAGE

MACRO v04.00

EH115.0

EH130.0

EH132.0
EH142.0

EM145.0

EH150,0

EH213.0
EH220.0

VULV

CZRMOBO RMOS5/3/2 DSKLS TST 2

CZRMQBC RMOS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE
1

040500

2 040502
3 040504

4 0640506

5 040510
6 060512
7 040514

8 060516

9
10
11
12
13

040520
040522
040524
040526
040530

14 040532

054460

MACRO v04.00
EDT]

EDT2:
EDT5:

054512
054524

EDT52:
EDT57:

(54544

EDT65:

054532

054554
054470
(054564
054576
054564

054612

E 12

01:29:56 PAGE 41

SEQ 0147

054470
054474

054502

4-APR-81

EDT47:

.WORD

.WORD
.WORD

EDI

EDZ2
EDS

.WORD

ED47

EDT61:

.WORD

ED61

EDT71:
EDT74:
EDT115:
EDT130:
EDT132:

.WORD
.WORD
.WORD
.WORD
.WORD

ED71
ED2

EDT220:

.WORD

.WORD
.WORD

.WORD

EDS52
EDS7

ED65

ED115
ED130

ED115

ED220

DY
¥4

!
.
|

CZRMQBO RMOS/3/2 DSKLS

ERROR MESSAGE

|
|
i
|

040534

2 040536
3 040540

4 0640542
5 040544

6 040546

TABLE

05466

054621
054622

054624
054616

054616

7 040550
8 040552

054621
054624

;
|

10 040556
11 040560

054624
054622

9 040554

054630

TST

MACRO V04.00

&4=APR-81

F
01:29:56 PAGE

12
40

SEQ 0148

EFT1:

.WORD

EFT2:
EFTS:

.WORD
.WORD

EFT115:

.WORD
.WORD

EFT132:
EFT220:

.WORD
.WORD

EFT57:
EFT65:
EFT71:
EFT?4:

.WORD
.WORD

.WORD

EFT130: .WORD

Ef1

EF?2
EFS

EFS7
EF1
EF1
EF2

EFS7

EF130

EF57
EF5

.
-

CZRMQBO RMOS5/3/2 DSKLS
ERROR MESSAGE TABLE
1

040562

2 040633
3 040702

4 040747
5 041000

6 041050
7 041114

8 041165

9 041230

10 041300
11 041321

12 041377
13 041446
14 041513

15
16
17
18

041571
041652
041713
041757

116

103
106

TST 2
117

117
125

125
104
120
104

116
105
101
101

115

120

05C
m
104
115
115

115
127
104
115

)

MACRO v04.00
116

116
116

125
126
122
124

101

122

122
114

TS
114
101
104
111

m
105
101

101
122
105
101

123

111
111
126
111

19 042036
20 042103
21 042161
22 042240
23 042316
24 042375
25 042441
26 042521
27 042572
28 042652
29 042702
30 042731
31 042773
32 043023
33 043055
34 043133
35 043201
36 043263
37 043334
38 043375
39 043452
40 043534

120
115
105
104
114
114
123
124
126
107
103
114
103
103
104
103
111
114
117

105
122
117
117
131
101
117
117
122
117
116
117
103

123
105
111
123
117
106
101
123
123
103
101
114
040
114
123
115
115
111
116
126
123
103

42 043643

117

106

41 043574

43 043712

44
45
46
47
48
49

043753
044014
044071
044147
044213
044242

50 044326
51 044400
52 044453
53 044534
54 044574

55 044644

56 04470°
57 044762

125
123
115

111

117

122
111
101
122
042
104

120
104
120
101
127

105

111
124

116
105
101

117
101
116
1M
101
101

114

106

125
116
104
105
122
122

122
122
117
124
122

130
116
101

EMS1:

EMS2:
EMS3:

EMS4:
EMS5:
EMS6:
EMS7:

EMS10:

EMS11:

EMS12:

EMS13:
EMS14:
EMS15:

EMS16:
EMS17:
EMS20:
EMS21:

ASCIZ

.ASCIZ
,ASCIZ

(ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.ASCII

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

SEQ 0149

QNONEXISTENT DEVICE 'NED'' (RMCS2,BIT

12)

QCONTROLLER CLEAR ''CLR'' (RMCS2,BIT 05) a
QFUNCTION CODE (RMCS1, BITS 01 = 05) @

QUNUSED BIT POSITIONS OF a
QDEVICE AVAILABLE ‘DVA'' (RMCS1, BIT 11) @
QPARTIY ERROR ‘PAR'‘ (RMER1, BIT 03) @
QDATA PARITY ERROR 'DPE'' (RMER2,
BIT 03) a

@QPARITY TEST "PAT'' (RMCS2, BIT 04) @

QMASSBUS CONTROL BUS PARITY ERROR 'M(PF'' @

a@(R’RMCS1, BIT 13) a
QILLEGAL REGISTER ERROR '‘ILR'' (RMER1, BIT 01) @
@DIAGNOSTIC MODE ‘DMD'‘ (RMMR1, BIT 00) @
QMEDIUM ON LINE 'MOL'' (RMDS, BIT 12) a
GQMAINTENANCE UNIT READY ‘MUR'’' (RMMR1, BIT 09) @

QMAINTENANCE WRITE PROTECT 'MWP'' (RMMR1, BIT 03) a
QWRITE LOCK 'WRL'® (RMDS, BIT 11) @
QDEVICE CHECK 'DVC'' (RMERZ2, BIT 07) @
QMAINTENANCE DRIVE FAULT 'MDF'' (RMMR1, BIT 06) @

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

QUNSAFE STATUS 'UNS'' (RMER1, BIT 14) a
QSEEK INCOMPLETE STATUS ''SKI'’ (RMER2, BIT 14) a
QMAINTENANCE SEEK ERROR ‘MSER'' (RMMR1, BIT 07) a
QPOSITIONING IN PROGRESS ‘PIP'’ (RMDS, BIT 13) a
QMAINTENANCE ON CYLINDER ‘MOC'’' (RMMR1, BIT 08) a
QEND OF BLOCK 'EBL'' (RMMR1, BIT 13) a
QDIAGNOSTIC END OF BLOCK ‘DEBL'‘ (RMMR1, BIT 13) a
QLAST SECTOR STATUS 'LS'’ (RMMR1, BIT 02) a
QLAST SECTOR/TRACK STATUS ‘LST'* (RMMR1, BIT 01) a
QSECTOR ADDRESS BITS OF @
QTRACK ADDRESS BITS OF @
QVOLUME VALID '‘VV'' (RMDS, BIT 06) a
Q@GO BIT (RMCS1, BIT 00) @
QCYLINDER ADDRESS BITS OF @
QLAST BLOCK TRANSFERRED, 'LBT'' (RMDS, BIT 10) a
QCOMPOSITE ERROR 'ERR'' (RMDS, BIT 14) a
QCOMMAND SEQUENCER TEST BIT “'TST'' (RMMR2, BIT 12) a
QDRIVE READY STATUS 'DRY'' (RMDS, BIT 07) a
QCONTINUE ‘‘CONT'' (RMMR1, BIT 06) a
QINVALID COMMAND ERROR “‘IVC'" (RMER2, BIT 12) a
@LOSS OF SYSTEM CLOCK ERROR 'LSC'' (RMER2, BIT 11) a
@0CCUPIED 'OCC'’ (RMMR1, BIT 15) a

EMS51:

L.ASCIZ

QOFFSET DIRECTION ‘'OFD'* (RMOF,

EMS50:

106

EMS52:

EMS53:
EMS54:
EMS55:
EMS56:

EMS57:
EMS60:
EMS61:

_ASCIZ

.ASCIZ

(RMER1, BIT 0) a

BIT 07) 3 -

QOFFSET MODE 'OM'' (RMDS, BIT 00) a

@RUN AND GO 'RG'' (RMMR1, BIT 14) 3
@QINVALID ADDRESS ERROR “'IAE'' (RMER1, BIT 10) a
@ADDRESS OVERFLOW ERROR ''AQE'' (RMER1, BIT 09) a
QREGISTER MODIFICATION REFUSED ERROR a
@'RMR'' (RMER1, BIT 02) a
L
@DRIVE REQUEST REQUIRED STATUS 'DRQ'' (RMDT, BIT i1)

.ASCIZ

Q@EXCEPTION 'REX'' (RMMR1, BIT 12) @

EMS62:
EMS63:
EMS64:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

126
107

EMS66:
EMS67:

.ASCIZ
.ASCIZ

EMS65:

@ILLEGAL FUNCTION ''ILF"

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ

117
111
122
124
111

103

G 12

01:29:56 PAGE 43

EMS22:
EMS23:
EMS24:
EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:
EMS43:
EMS44:
EMS45:
EMS46:
EMS47:

114

116
126
1064
107
115
111

4=-APR-81

QPROGRAMMABLE STATUS "PGM'' (RMDS, BIT 09) a
@DRIVE PRESENT STATUS 'DPR'' (RMDS, BIT 08) a
@PORT REQUEST FLOP ‘RQA,RQB'' (RMMR2, BITS 15,14) a
QATTENTION “'ATA' (RMDS, BIT 15) a
QWRITE LOCK ERROR ‘WLE'' (RMER1,
BIT 11) a

@INVALID COMMAND ERROR ‘‘IVC''
(RMER2, BIT 12) &
QTAG BUS (RMMR2, BITS 00-09) OR TAG (ONTROL a

MACRO v04.00

4-APR-81

H 1%
01:29:56 PAGE 43-1

58 0645036
55 045074

114
123

"
105

116
1017

EMS70:

LASCIZ
.ASCI1Z

aLINES (RMMR2, BITS 10,11,13) a
@SEARCH ENABLE 'ESRC'' (RMMR1, BIT 11) @

61 045142
62 045221
63 045277
64 045347
€5 045422
66 0456476
67 045537
68 045602
69 045642
70 045716

117
104
104
115
115
106
123
120
115
114

120
11
122
101
101
117
105
122
101
117

105
123
111
111
111
122
103
117
111
117

EMS?1:
EMS72:
EMS?73:
EMS74:
EMS75:
EMS76:
EMS77:
EMS100:
EMS101:
EMS102:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

OPERATION IMCOMPLETE ERROR '‘OPI'‘(RMER1 B IT13)
71
a
DISABLE SEARCH TIMEOUT 'MSEN'' (RMMR1 BIT 12) ) @
@DRIVE TIMING ERROR 'DTE''(RMER1,BIT 12) @
AMAINTENANCE INDEX PULSE ‘MI"'(RWMR1 BIT 2) a
GMAINTENANCE SECTOR PULSE 'MS''(RMMR1 BIT 5) a
FORMAT BIT 'FMT16'' (RMOF ,BIT12) @
@SECTOR_COMPARE 'MSC''(RMMRT BIT 1) @
@PROM STROBE 'WC'' (RMMR1 BIT 5) @
AMAINTENANCE BIT CLOCK 'MCLK'" (RMMR1 BIT11) @

71 045764
72 046024

127
110

73 046051

110

7% 046112
75 046157

105
110

76 0646167

122

77 046226
78 046244
79 046302

80 046341
81 046407
82 046424
83 046437
84 046475
85 046541
86 046574
87 046627
88 046670
89 046732
90 046762

91 047016
92 047047

93 047106
95 047151
9% 047167
97 047212
98 047237
99 047250
100 047257
101 047273
102 047334
103 047351
104 047415
105 047453
106 047504

107 047533
108 047561

109
110
111
112
113

047602
047622
047642
047662
047702

114 047721

110
104
104

105
105
105
104
103
105
105
115
104
117
104

122
105

111
101

116
105

101
101

105

105
101
101

116
103
103
117
117
122
122
101
105
106
122

101

101
124
124

101
103
103
123
116
122
122
111
123
106
111

EMS103:
EMS104:

.ASCIZ
.ASCIZ

EMS106:
EMS107:

.ASCiZ
.ASCIZ

EMS105:

EMS110:

EMS111:
EMS112:
EMS113:

EMS114:
EMS115:
EMS116:
EMS250:
EMS251:
EMS252:
EMS253:
EMS254:
EMS255:
EMS256:
EMS257:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

110
123

117
105

114
122

EMS260:
EMS261:

.ASCIZ
.ASCIZ

103
103
101
127
105
101
125
101
105

101
101
116
111
122
040
123
040
126

116
116
131
124
122
117
111
132
105

EMS300:
EMS301:
EMS302:
EMS303:
EMS304:
EMS306:
EMS307:
EMS310:
EMS311:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

120
107

EMS315:
EMS316:

.ASCIZ
.ASCIZ

101

12
101
101

101
122

061
062
064
070
101
101

124

170
040
120

120
105

040
040
040
040
114
114

126

105
123
120

050
050
050
050
114
114

EMS262:

EMS312:
EMS313:
EMS314:

EMS317:
EMS320:
EMS321:
EMS322:
EMS323:
EMS324:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCiZ
.ASCIZ
.ASCIZ
.ASCIZ
[ASCIZ

.ASCIZ

aLOOKING FOR SYNC "PLFS''(RMMR1,BIT10) &
AWRITE GATE 'BB00'’ (RMMR2 BITO) @

@HEADER
HEADER
SENABLE
HEADER

SYNC PATTERN @
AREA 'PHATM (RMMR1 BIT 7) @
CRC OUT 'ECRC'' (RMMR1 BIT 9) @
@
,
SREAD GATE 'BBO1''(RMMR2 BIT 1) @
AHEADER ERROR @
@DATA TIMING SEQUENCER OUTPUT @

@DATA AREA 'PDA'' (RMMR1 BIT 8) a
SENABLE ECC OUT "EECC'* (RMMR1, BIT 4) @
ECC PATTERN @
ECC ERROR @
aDISK ADDRESS REGISTER (RMDA) @
ACONTROL STATUS REGISTER #1

(RMCST)

ERROR REGISTER #1 (RMER1) @
@ERROR REGISTER #2 (RMER2) @
AMAINTENANCE REGISTER #1 (RMMR1) @
@DESIRED CYLINDER REGISTER (RMDC) @
S0FFSET REGISTER (RMOF) @

aDRIVE TYPE REGISTER (RMDT) @
@HOLDING REGISTER (RMHR) @

@SERIAL NUMBER REGISTER (RMSN) a
AATTENTION SUMMARY REGISTER (RMAS) @
@CANNOT CLEAR @
aCANNOT WRITE/READ a
@ANY DEVICE REGISTER a
awWwlTHOUT @
@ERROR @
@A ONE FROM a
aUSING MASSBUS INITIALIZE, I.E., @
@A ZERO FROM a
®EVERY DEVICE REGISTER BIT POSITION a
@THE FOLLOWING BITS ARE STUCK a
@A SHIFTING ONE BIT FROM a
@APPEARS STUCK AT ZERO a
@APPEARS STUCK AT ONE a
@REGISTER SELECT a
al (1,2,4,8,16) a

@2 (1,2,4,8,16) a
? (1,2,4,8,16) a
@8 (1,2,4.8,16) a
@dALL ONES FROM @
@ALL ZEROS FROM @

SEQ 0150

brtrtrt -4 3333434343344 44444444

CZRMQBO RMOS5/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

)

"7AMQBO RMOS/3/2 DSKLS TST 2

ERROR MESSAGE

115 047741

116
117
118
119
120
121
122
123
124

125
126
127
128

047752
047762
047770
050007
050037
050055
050071
G50101
050124

TABLE

101

101
054
015
103
11
m
m
123
123

124

124
040
012
101
123
123
123
110
110

050143
050157
050170
050177

103
102
125
104

101
105
123
125

130 050245
131 050274

102
102

129 050231

132 050322
133 050340

134 £50361

135
136
137
138
139
140
141

050366
050404
050420
050444
050477
050521

050541

125

103
127

102

127
127
111
1M
103
127

127

MACRO V04.00 4-APR=81 01:29:56 PAGE1143-2
040

040
117
103
116
040
040
040
117
117

EMS325:

EMS326:
EMS327:
EMS330:
EMS331:
EMS332:
EMS333:
EMS334:
EMS335:
EMS336:

116
103
111
122

EMS337:
EMS340:
EMS341:
EMS342:

125
13

123
040

EMS344:
EMS345:

125

124

116

101
m

105

116
124

101
101
116
123
101
101

123
123
040
040
116
123

040
040
123
101
105
116
101
110
105
11
125
117
11
131
131
101
101
111
110
117
101

124
124
040
116
123
104
116
105
123
104
122
040
124
040
040
123
123
104
111
115
123

101

123

EMS343:

EMS346:
EMS5347:

EMS350:

EMS351:
EMS352:
EMS353:
EMS354:
EMS355:
EMS356:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

QCANNOT RESET @
aWITHOUT SETTING @

.ASCIZ

103
116

EMS413:
EMS414:

.ASCIZ
.ASCIZ

101

123

$T)
5;‘

116
101

127

a@BUT @

QINCORRECT @
@CANNOT DETECT a

111
103

171 051467

@BY REGISTER TRANSFER @

5T
$T)
‘T:
44

122 EMS405: .ASCIZ

124

@WAS RESET @
@SEARCH TIMEOUT @
QAFTER a
@WAS CHANGED
@

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

105

@0 TO 1 TRANSITION OF @
@1 TO O TRANSITION OF a
@IS INCONSISTENT @
@CANNOT READ a
QTEST PATTERN IN @
@AND @
@SCANNOT INITIALIZE @
QTHE COMMAND SEQUENCER HAS BEEN CLOCKED a
@QRESET EARLY @
aDID NOT RESET ON TIME a
@DURING COMMAND EXECUTION @
aT0 @
@WITH ANY COMBINATION OF a
@BY READING @
@BY WRITING @
@WAS SET a
@WAS NOT SET a
@DID NOT SET @
aWwHILE @
QCOMMAND SEQUENCER DID NOT ABORT @
QWAS NOT RESET a

EMS406:
EMS407:
EMS410:
EMS411:

123

TRAP)

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

123
101
124
123

169 051435
170 051450

(04

EMS360:
EMS361:
EMS362:
EMS363:
EMS364:
EMS365:
EMS366:
EMS367:
EMS370:
EMS371:
EMS372:
EMS373:
EMS374:
EMS375:
EMS376:
EMS377:
EMS400:
EMS401:
EMS402:
EMS403:
EMS404:

EMS357:

101
105
106
101

168 051422

@BUS TIMEOUT

31
8T

@WAS RESET BY @
@awAS SET BY a
@IN DIAGNOSTIC MODE @
@IS INCORRECT ACCORDING TO @
QCANNOT INCREMENT a
@wAS NOT SET BY a

127
123
101
127

125

$S
%5
|
b31

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

164
165
166
167

104

QCANNOT SET a
@BECAUSE a
QUSING @
@DURING REGISTER TRANSFER @

QUNEXPECTED @

.ASCIZ
.ASCIZ

060
061
111
103
124
101
103
124
122
104
104
124
127
102
102
127
127
104
127
103
127

051343
051356
051376
051405

ZERO 3

QAT ONE @
@, OR @
<CRO<LF>aCS MBA CLRL @&
@CANNOT READ ZEROS FROM @
@IS INCORRECT @
@IS NOT SET @
QIS SET @
@SHOULD NOT BE SET @
@SHOULD BE SET @

.ASCIZ

142 050563
143 050611
144 050637
145 050660
146 050675
147 050716
148 050723
149 050746
150 051016
151 051033
152 051062
153 051114
154 051120
155 051151
156 051165
157 051201
158 051212
159 051227
160 051244
161 051253
162 051314

163 051333

@AT

SEQ

EMS412:

EMS415:

.ASCIZ

@WAS NOT RESET BY a

@DURING
a

@QSET EARLY @

QWAS SIMULATED a

|
|
R
!
.
i

1
$7
3

3
b3
ST
$T
1

$1)
13

$7/
$TF
$TF
$TF

Tt
5T

$T:

$T)

,
|
|

,
;
;

{

:
?
'

CZRMQBO RMQ5/3/2 DSKLS T1ST 2

ERROR MESSAGE

172 051506
173 051517
174 051535

175 051550
]‘_7’9 051565

TABLE

103
104
107

117
125
105

J 1

MACRO v04.00 4-APR-81 01:29:56 PAGE 45-3

125
116

122
122
116

122
103

EMS416:
EMS417:
EMS420:

on
on
01

104
104
124

105
105
122

115

111

106

103
104
104
104
104
101
012

123
123
105
105
105
123
011

105

101

EMS600:

104
m

EMS421:
EMS422:

.ASCIZ
ASCIZ
.ASCIZ

_ASCIZ
.ASCIZ

QCORRECT @
QDURING WRITE @
QGENERATED a

EMS500:

.ASCII
LASCII
LASCIZ

@
@
@

EMS501:

.ASCIZ

EMS503:
EMS504:
EMS505:
EMS506:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

a
@
@
@

EMS507:
EMS510:
EMSS511:

.ASCIZ
.ASCIZ
.ASCII

SEQ 015¢

$7
U

s
U
:v:

QDURING READ @
QINCORRECT DATA TRANSFERRED TO MEMORY @

178 051633
179 051664
180 051727

181

051773

133
184
185
186
187
188
189

052070
052115
052150
052223
052264
052354
052427

on
on
015

192 052526

122

182 052020

}g? 052456
193 052556
194 052576
195 052637

196 052660

197 052705
158 052723
199 052743

0N
on
0i1
on

117
122
122

122

123
123
104

050
106
105

101

116

106
126
114

103

105
101
126

EMS502:

EMS601:
EMS602:
EMS603:
EMS604:
EMS605:
EMS606:
EMS607:

.ASCIZ

CRi

@
@

DEVICE IS NONEXISTENT ,@<CR><LF>
DEVICE IS SWITCHED TO OTHER PORT@<(CR><LF>
TRANSCEIVER ENABLE SWITCH IS OFF@<CR><LF>
IF

MODULE,

M7686,a<CR><LF>

MASSBUS TRANSCEIVER, M5922 OR M5923

D<CR><LF >

CS MODULE, M7684,a<CR><LF>
DS MODULE, MB685/M7685,a<CR><LF>
DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF>
DEVICE IS NOT AN RM05/3/2, OR@<CR><LF>
DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, ORa@<(R><LF>
ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF>
<CR><LF>a
PROBABLE FAULT(S) :@<CR><LF>

sxt
Ex(
138

Ale
A1}
ABJ:
ACL
ACL
ACF
ADL

ASCIZ

.ASCIZ

QREAD IN PRESET COMMAND @

ADL

QOFFSET COMMAND @
QRETURN TO CENTER CENTER COMMAND @
QRELEASE COMMAND @

ADL
ADL

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

(NOT INCLUDING CABLES OR CONNECTORS)@<CR><LF>

1
.

QRECALIBRATE COMMAND @

QSEEK COMMAND @
QSEARCH COMMAND 3
QDATA COMMAND a

ADL
ADL
ADC
ADL
x%
ADL
ADL
ADL
ADL
ADE
ADE
ADR

AEN

AF
A

ALL
AMA
AMA
AMA
AMA
AMA
AMA
AMA
AMA
AMS
AMS
AMS
AMT
AMT

(ZRMQBO RMOS5/3/2 DSKLS TST 2
ERROR MESSAGE TABLE
1

052761

105

2 053010
3 053037
4 053045
5 053054
6 053073

123
040
101
105
122

8 053131

040

7 053112

9 053157
10 053216
11 053255
12 053274
13 053313
14 053351
15 053376

16
17
18
19

053425
053453
053502
053540

20 C53577
21 053646
c2 053715
23 053754
24 054013
25 054052
26 054111
27 054157
28 054226
29 054266
30 054324
31 054362
32 054421
33 054440

130

124
102
104
130
105

MACRO v04.00
120

191
101
122
120
123

130

120

105
106
122
104
040
105
123

130
111
105
122
105
130
124

120
122
103
126
130
120
101

105
123
105
123

105
123
105
103
105
123
105
103
105
122
105
122
10i
122

130
124
130
124

130
124
130
117
130
124
130
115
130
105
130
105
103
105

K 12

01:29:56 PAGE 44

SEQ 0153

105

106

4-APR-81

111

tmi:

EH2:
EH3:
EHS:

QEXPCTD

RECEVD

RECEVD®

REGSTRQ<CRLF>

QSTATUS
STATUS ADRESSa
@ BASE@<CRLF>
QADRESSa@
QEXPCTD
STUCK@<CRLF>
QRESULT BIT(S)a

EHW7:

LASCIZ

QEXPCTD

EHW52:

.ASCII
LASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ

QEXPCTD
RECEVD
EXPCTD
RECEVD@<CRLF>
QFIRST
FIRST
SECOND
SECOND@
QRECEVD
DRVTYP@<CRLF>
QDRVTYP REGADRa
@ EXPECTED ECC
RECEIVED ECCa
QEXPCTD
RECEVD
TEST@<CRLF>
QSTATUS
STATUS
REGSTRa

EH47:
EH57:

EH61:
EH65:

120
101

EH71:

120
101
120
125
120
101
i20
120
120
123
120
123
126
123

EH130:

120
101

LASCII

.ASCIZ
.ASCI1
.ASCIZ
LASCII
LASCIZ

EH115:

EH132:
EH142:
EH145:

EH150:
EH213:
EH220:
.EVEN

.ASCIZ

@ FIRST

SECOND

CRCa

.ASCII
.ASCIZ

QEXPCTD
QSTATUS

RECEVD

.ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCII
LASCIZ
_ASCI]
.ASCIZ
.ASCII
LASCIZ
_ASCII
LASCIZ
.ASCII
LASCIZ

QEXPCTD
QSTATUS
QEXPCTD
QCOUNT
QEXPCTD
QSTATUS
QEXPCTD
QCMPERR
QEXPCTD
QRESULT
QEXPCTD
QRESULT
@QACTUAL
QRESULT

RECEVD REGSTR
TEST
OFFSET@<CRLF>
STATUS ADRESS PATTRN REGSTRa
ACTUAL REGSTR OFFSET@<CRLF>
COUNT
ADRESS REGSTRa
RECVED REGSTR OFFSET@<CRLF>
STATUS ADRESS REGSTRa
ACTUAL
REGSTR RMER1
RMER2a<CRLF>
C(MPERR ADRESS PATTRN PATTRNa
ACTUAL REGSTR FUNCTJON@<CRLF>
RESULT ADRESS
(CODEw
ACTUAL
STATUS
TESi@<CRLF>
RESULT ADRESS REGSTRa
REGSTI.@<CRLF>
ADRE..a

LASCII
.ASCIZ

QEXPCTD
QSTATUS

STATUS
RECEVD
STATUS

TEST@<CRLF>

PATTRN@
REGSTR
TEST@<CRLF>
ADRESS
PATTRNa

7 054624

g 054630

85\‘\“‘&1\
NS
OOO

D od

D e

o
e
D o

001136

.WORD
.WORD
.WORD

000000
001200
001176
000000

.WORD
$TMPQ,$TMP1,$TMP2,0
.WORD $TMPO.BUFFER,$TMPT ,BUFFER+2,0

-WORD

.WORD

001174

$BDDAT,$BDADR,0

.WORD
.WORD
.WORD
.WORD

000

.BYTE
BYTE
.BYTE
.BYTE

0.0,0
0
0.0
0.0.0.0

.BLKW

258.
258.

.WORD

000

SGDDAT,S$BDDAT,$TMP0,0
$GDDAT,S$BDDAT .RMHRO .0
$GODAT,
.S$BDDAT
$BDADR, $TMPO, 0
$GDDAT,S$BDDAT,$BDADR,$TMP(O.$TMP1,0
$BDDAT.$BDADR

.=BUFFER

HELP:
.ASC

33 054732
34 054765
35 055020
36 055052
37 055102
38 055125
39 055157

.ASC
.ASC
.ASC
.ASC
.ASC
.ASC
.ASC
.ASC

Sy Sy Sy Sy S

g e e e S

g Bt
g
g By

g e e
I
T el
e e L

g
g
g

B
B

e e e e e e

g g B
Bg By B

St b

> >B>D>>

w nunnn

YOYOYOYOY
O alalals!

.ASC
.ASC
.ASC
.ASC
.ASC
.ASC

-AS

g Beg g By Brg

LASC
"ASC

wvmnunnom

50 055573
51 055622
52 055623
53 055657
54 055713
55 055737
56 055774
57 056020

-ASC

>>>>

055207
055230
055257
055304
055345
055375
055433
055464
055512
055543

o
g Sy et

26 054636
27 054636
28 054637
29 054640
30 054656

40
41
42
43
44
45
46
47
48
49

$TMP2,$TMP3,$TMPO,$TMP1,0

001174
001450
001136
001136

BUF TWO: .BLKW

31 054674
32 054715

SEQ 0154

$GDDAT,$BDDAT, $BDADR, 0
$BDADR.0
$GDDAT,$BDDAT,
0

NOOOO

4 054616

2 054621

MACRO v04.00 4-APR-81 01:29:56 PAGEL14i

88888

8 054544
9 054554
0 054564
1 054576
2 054612
3

) b e

7 054532

5 054512
6 054524

d e

& 054502

D e

054460

e e e e
L 2B 2 A Al

2 054470
3 054474

3888888883383

(ZRMQBO RMQS5/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

<CRLF>
<CRLF>
aLIST OF TESTS@<CRLF>
a-a<CRLF>
ar1
TRANSFER TEST@<CRLF>

ar2
ar3

CTOD TEST@<CRLF>
MASSBUS INITIALIZE TEST@<CRLF>

ars
aré
arz
ar10
@711
ar12
@713
arlé4
@715

TRISTATE TRANSFER TEST@<CRLF>
REGISTER SELECT TEST@<CRLF>

ard

CLEAR STUCK ACTIVE TESTa<CRLF>

DRIVE TYPE TEST@<CRLF>
DEVICE AVAILABLE TEST@<CRLF>

ar16
aT17
@720

@721
@722
@723
aggtF
<

SEARCH TIMEOUT TESTa<CRLF>
SET DTE TESTa<CRLF>
FORMAT CHANGE TEST@<CRLF>
PROM STROBE TESTa<CRLF>
SYNC WORD COUNT INHIBIT TEST@<CRLF>
SYNC DETECTION TEST@<CRLF>
ABORT SYNC DETECTION TEST@<CRLF>
SYNC GENERATION TEST@<CRLF>
WRITE HEADER TEST@<CRLF>
HEADER COMPARE TEST @<CRLF>
ECC GENERATION TEST@<CRLF>
ECC DETECTION TEST@<CRLF>

DOPERATIONAL SWITCH SETTINGS@<CRLF>
?
a<CRLF>
ASWITCH
USE@<CRLF
>

a
3

------

15
14

===<CRLF>

HALT ON ERROR@<CRLF>
LOOP ON TEST@<CRLF>

200

OO —=NUW
O =NWH NN N

N
Sy
S
S

et Bt et Bt Bt By Bt By Bt
Bt Bt Bt

2y -24 R -D RV Y- -DR-DN-h-DR-3y-3N-3F-)}

71 056362
72
73

040
040
040
040

YOO

66 056276
67 056311
68 056324
69 056336
70 056350

061
061
061
061
040
040
040
040
040
040

L L

58 056043
59 056100
60 056107
61 056140
62 056164
63 056210
64 056247
65 056263

TABLE

LOLLLLLOULWLULOLOLODOOD

ERROR MESSAGE

Bt B

MACRO V04.00 4-APR-81 01:29:56 PAGEM165-1
>2>>er>e2>>> >>>

| CZRMQBO RMOS/3/2 DSKLS TST 2

INHIBIT
a<CRLF>
INHIBIT
BELL ON
LOOP ON
LOOP ON

ERROR TYPEOUTS@<CRLF>

ITERATIONS@<CRLF>
ERROR®<CRLF>
ERROR@<CRLF>
TEST IN SWR<7:0>a<CRLF>
TN128@<CRLF>
TN64R<CRLF
>
TN323<CRLF>
>
TN16@<CRLF
TN8a<CRLF>

TN4Q<CRLF>
TN2R<CRLF>
TN1Q<CRLF>

SEQ 0155

CZRMQBO RMOS5/3/2 DSKLS TST 2

SYMBOL

TABLE

MACRO V04.00 4-APR-81 01:29:56 PAGEN14%-2

ABASE =
ACDW1 =
ACDW2 =
ACPUOP=

176700
000000
000000
000000

001326
120254
000000
000400
001000
002642
000010
000001
000002

ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=

000000
000000
000000
000000
000000

ADDW13= 000000

ADDW14= 000000
ADDW15= 000000

ADDWZ = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDW5S = 000000
ADDW6 = 000000
ADDW7 = 000000
ADDW8 = 000000
ADDW9 = C00000
ADEVCT= 000000
ADEWM = 000000
ADR
= 000001
AENV
= 000000
AENVM = 000000

AFATAL= 000000

ALL

031542

AUTSIZ
AVECT1=
AVECT2=
A16
=

A17
=
BADTMO
8A1
=
B800 =
8801
=

8802

8803
B804

B80S
BB06

8807
8808
8809
BITO
BITO0
BITO1
BITO2
BITO3
BIT04
BITO5
BITO6

= 000004

= 000010
= 000020

= 000040
= 000100

=
=
=
=
=
=
=
=
=
=
=

000200
000400
001000
000001
000001
000002
000004
000010
000020
000040
000100

BIT07 = 000200

BITO8 = 000400

CHRCNT
CKSWR =
CLKSNC
CLOCK

027221
104410
023574
001536
CLR
= 000040
CMNSTA
005004
CNSLO1
031607
CNSLO2
031617
CNSLO3
031661

CNSLO4

037670

CNSLO7
CNSLO8

CNSLO9
CNTCLR

COMMA
CONT
=
CPSAVE
(R
=
CRLF
=
CYLMSK=
DBCK
=
DBEN
=
DBL
=
DCK
=
DCISP =
DEBL

DISPLA

031724
032066

032067
022404

031553
000100
026342
000015
000200
001777
100000
040000
002000
100000
177570

= 020000

001156

EDT61
EDT65
EDT71
EDT74

ED1
ED115
ED130
ED2
ED220
ED47
ED5
ED52

ED57
ED61

AMAMS4=
AMSGAD=
AMSGLG=
AMSGTY=
AMTYP1=
AMTYP2=

000000
000000
000000
000000
000000
000000

BIT15
BIT2
BIT3
BIT4
BIT5
BIT6

DRIVES
DRQ
=
DRVCLR=
DRY
=
DSWR
=
DTE
=

032110
004000
000010
000200
177570
010000

APASS =
APE
=
APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=

000000
100000
000000
000040
000001
000200
000100
000000
100000
000000
000377
032450

EBL
=
ECH
=
ECI
=
ECRC
=
EDT1
EDT115
EDT130

020000
000100
004000
001000
040500
040524
040526

AMTYP3= 000000
AMTYP4= 000000
AOE
= 001000

ASWREG=
ATA
=
ATESTN=
ATNMSK=
ATNTBL

AUNIT = 000000
AUSWR = 000000

BLNKS1
BLNKS2
BLNKS3
BLNKS4
BOTADR
BOTFLG
BPTVEC=

032345
032344
032343
032342
027216
027220
000014

BIT7
BIT8
BIT9

= 000200
= 000400
= 001000

DPR

= 000400

DULPRT= 024024
DVA
= 004000
pve
= 000200

BSE
=
BUFFER
BUFONE
BUFTWO
cC
=

100000
054636
054636
055642
004000

EDT132
EDT2
EDT220
EDT47
EDTS

040530
040502
040532
040506
040504

CHGADPR

001330

EDTS7

040512

= 002000

EDT52

040510

053112
053425

EMS111

EF2
EFS
EF57

100000
000004
000010
000020
000040
000100

EH7
EH71

040546

DPE
= 000010
DPEHI = 040000
DPELO = 020000

=
=
=
=
=
=

053255

EH61
EHE5

EFT71

BIT11 = 004000
BIT12 = 010000
BIT13 = 020000

BIT14 = 040000

EH57

EMS11

EFT65

EF130

EHT1

EHT115
EHT130
EHT132
EHT142
EHT145
EHT150

EHT2
EHT213
EHT220

EHT47
EHTS
EHT52
EHTS7
EHT6T
EHT65
EHT7

040544

040550

054616

EMS107

053313
053351

040562
041165
045602
045642
045716
045764
046024
046051
046112
046157

041230

EMS110

046167

EMS112

046244

046226

EMS113

046302

EMS115

046407

054630

EMS114

054622
054624
040440
040444
040450

EMS116
EMS12
EMS13
EMS14
EMS15
EMS16

041446
041513
041571

040454
040460
040464
040370
040470
040474
040404

EMS17
EMS2
EMS20
EMS21
EMS22
EMS23
EMS24

041652
040633
041713
041757
042036
042103
042161

040374
040410
040414
040420
040424
040400

EMS25
EMS250
EMS251
EMS252
EMS253
EMS254

042240
046437
046475
046541
046574
046627
046670

054621

040364

EHT71
EHT74
EH1
EH115
EH130

040430
040434
052761
053502
053577

EH142

054073

EH132

053045
053131

053054
053157

040542

AMADR4= 000000
AMAMS1= 000000
AMAMS?2= 000000

AMAMS3= 000000

054524
054532

054111
054226
053037
054324
054421

EH5
EH52

EFT57
EFT74
EF1

= 000001

054512

EH220
EH3
EH47

EMS1
EMST0
EMS100
EMS101
EMS102
EMS103
EMS104
EMS105
EMS106

DISPRE
000174
DLT
= 100000

DMD

054460
054564
054576
054470
054612
054502
054474

EH145
EH150
EH2
EH213

054544
054554
000020
040534
040552
040554
040556
040536
040560
040540

BITO9 = 001000
BIT1
= 000002

BIT10 = 002000

040514
040516
040520
040522

ED65
ED71
EECC
=
EFT1
EFT115
EFT130
EFT132
EFT2
EFT220
EFT5

AMADR1= 000000
AMADRZ2= 000000

AMADR3= 000000

SEQ 0156

053715

EMS255
EMS256
EMS257
EMS26
EMS260
EMS261
EMS262

046341

046424
041321

041377

046732
046762
042316
047016

047047

047106

+
|

LZRMABU RMO>/5/2 DSKLS TST 2
SYMBOL TABLE

MACRO v04.00

EMS27

EMS3
EMS30
EMS300
EMS301

050611

050521
050541
042773
050563

EMS45

EMS46
EMS47
EMS5
EMS50
EMS500
EMS501
EMS502
EMS503
EMS504

EMS505
EMS506
EMS507
EMS51
EMS510
EMS511

=lelelololelelolelolslel
NN NN NN NN NN N
A
VAV VAV IV LNV IV AV Y
NN
=
= a0 O
W SO
NNNOON S
~ oo~ OONN S

EMT110
EMTIN
ey

EMT
EMT

052354
052427

EMT
EMT
EMT
EMT
EMT
EMT

EMT

PONUNONIN)
= — — 2 ——
WN=O
OV
W~nN

050444
050477

EMS43

EMS44

EMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36
EMS360

EMT10
EMT100
EMT101
EMT102
EMT103
EMT104
EMT105
EMT106
EMT107
EMT11
— ——

EMS35

EMTVEC=
EMT1

EMS 346
EMS347

047622
047642
047662
047702
047721
047741
047752
047762
042652
047770
050007
050037
050055
050071
050101
050124
050143
042702
050157
050170
050177
050231
050245
050274
050322
050340
042731
050361
050366
050404
050420

EMS323
EMS324
EMS325
EMS326
EMS327
EMS33
EMS330
EMS331
EMS332
EMS333
EMS334
EMS335
EMS336
EMS337
EMS34
EMS340
EMS341
EMS34.2
EMS343
EMS 344
EMS345

047602
042572

WS S

EMS32
EMS320
EMS321
EMS322

EMS61
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67
EMS7
EMS70
EMS71
EMS72
EMS73
EMS74
EMS75
EMS76
EMS77

EMS317

EMS377
EMS4
EMS40
EMS400
EMS401
EMS402
EMS403
EMS404
EMS405
EMS406
tMS407
EMS41
EMS410
EMS411
EMS412
EMS413
EMS414
EMS415
EMS416
EMS417
EMS42
EMS420
EMS421
EMS422

EMS313
EMS314
EMS315
EMS316 047561

EMS57
EMS6
EMS60
EMS600
EMS601
EMS602
EMS603
EMS604
EMS605
EMS606
EMS607

047250
047257
047273
042521
047334
047351
047415
047453
047504
047533

EMS52
EMS53
EMS54
EMS55
EMS56

EMS306
EMS307
EMS31
EMS310
EMS311
EMS312

047237

EMS361
EMS3(2
EMS363
EMS364
EMS365
EMS366
EMS367
EMS37
EMS370
EMS371
EMS372
EMS373
EMS374
EMS375
EMS376

SEQ 0157

EMS302
EMS303
EMS304

042375
040702
042441
047151
047167
047212

4-APR-81 01:29:56 PAGE 45-3

035020

EMT205

033240

033260

031540

= 040000

ERRNMB
ERROR =
ERRTYP
ERRVEC=

027214

104000

026346
000004
ERTYOO 027222
ERTYO1
027227
ERTYOZ2 027237
ERTYO3 027246
ERTYO4 027254
ERTYOS 027257
ESRC
= 004000

nwuuwun
nnununn

FNCDTB

]

01:29:56 PAGE 45<4

032350
000077
000002
000004
000010
000020
000040
001336
000001
104407
000200
002000
000400

054636
000011
002000
026344
000077

ILRG60= 000060
ILRG62= 000062
ILRG64= 000064
ILRG66= 000066
ILRG70= 000070
ILRG72= 000072
ILRG?4= 000074
ILRG76= 000076
I0TVEC= 000020
IPCkO = 002001
IPCK1 = 000002
IPCk2 = 000004
IPCK3 = 000010

IR
IvC

LBC
LBT

= 000100
= 010000

= 002000
= 002000
LCLOCK 022026
LCOUNT 022076
LF
= 000012
LODEV
032244
LS
= 000004
LSC
= 004000
{18
=
2
LSTOP
022140
LSTRK
001334

MCLK- = 004000
MCPE
= 020000

MDF
MDPE

= 000100
= 000400

MOC
MOH
MOL
MRD

=
=
=
=

= 000004

000400
020000
010000
002000

MR1AAA= 051401
MS
= 000040

0cC
OFD
OFFSET
oM
OPE
OP]
OR

PAR
PAT

PCLOCK
PCOUNT
PDA
=
PFECH
PFECHI
PFECH2

PFECH3

PFECH&
PGE
PGM
PHA
PIP
PIRQ
PIROVE=

PLCLK
PLFS

PLSTP

PRO

PR1
PR2
PR3
PR4

PRS

= 000010

T 03858

NDTMSK= 115760
NED
= 010000
NEM
= 004000

022432

000054
ILRGS56= 000056

NOP
=
NOTAVL
NOTPRS
NOTRM

001354

RMBAE =
RMBAEI
RMBAEO
RMBAI
RMBAO
RMCST =

000050
001406
001462
001342
001416

RMCS11

001336

RMCS20

001422

RMCS31
RMCS30

001410
001464

RMCS10 001412
RMCS2 = 000010
RMCS21
001346

RMCS3 = 000052

RMDA
= 000006
RMDAI
001344
RMDAO
001420
RMDB = 000022
RMDBI
001360

RMDBO

001434

RMDC
=
RMDCI
RMDCO
RMDS
=
RMDSI
RMDSO
RMDT
=
RMDTI
RMDTO
RMECT =
RMEC1I
RMEC10

000034
001372
001446
000012
001350
001424
000026
001364
001440
000044
001402
001456

RMERT1 =
RMER1]I
RMER10
RMER2 =
RMER2I
RMER20
RMHR
=
RMHRI

000014
001352
001426
000047
001400
001454
000036
001374

RMECZ = 000046
RMEC2!
001404
RMEC20 001460

RMHRO

032137

000000
032276
032261
032223

RMASI

RMLA

nonon

NONE

RIP
= 000020
RLEASE= 000012
RMAS
= 000016
RMASO
001430
RMBA
= 000004

PACACK=
PAKACK
=

MSC
= 000002
MSDRVS 032144
MSE
= 100000
MSEN = 010000
MSER =
200
MSGDRY 032160
MSHELP 031556
MUR
= 001000
MWD

100000

NSA

by
(]

ENBS(H

EQUALS

ERR

= 000020
FMT16 = 010000

EMT4S
EMT46
EMT47
EMTS
EMTSO
EMTS1
EMTS2
EMTS3
EMT 54
EMTS5S
EMT56
EMTS7
EMT6
EMT60
EMT61
EMTE2
EMT63
EMT64
EMT65
EMT66
EMT67
EMT7

4~-APR-81

SEQ 0158

FER

EMT44

EMT70
EMT71
EMT72
EMT73
EMT74
EMT75
EMT76
EMT77

MACRO V04.00

HBnunwwuNwwN

040100
040124
040150
040166
040204
040222
040242
040260
032514

EMT270

EMT27
EMT272
EMT273
EMT274
| EMT275
| EMT276
EMT277
EMT3
EMT 30
EMT 300
EMT301
EMT302
EMT31
EMT32
EMT33
EMT34
EMT35
EMT 36
EMT37
EMT4
EMT40
EMT41
EMT42
EMT4L3
|
-

]

CZRMQBO RMO5/3/2 DSKLS TST 2
SYMBOL TABLE

001450

= 000020

RMLAI
RMLADO
RMMR1 =
RMMR1I
RMMRIO

001356
001432

24
001362
001436

RMMRZ = 000040

(ZRMQBO RMO5/3/2 DSKLS TST 2

SYMBOL

TABLE

RMMR21

RMMR20

RMOF

RMOFI

|
.

001376

001452

= 000032

001370

RMOFO
001444
RMR
= 000004

RMSN
RMSNI

RMSNO

= 000030
001366

RMJC
RMWCI
RMJCO
RQA
RQB
RTC

= 000002
001340
001414
= 100000
= 040000
= 000016

001442

=%000006

R7
=%000007
SADMSk= 000377
SAVREG= 104414
SA1T
SA16

= 000001
= 000020

SA2
=
SA4
=
SA8
=
SC
=
SCOPE =
SCTCMP
SCTMsSk=
SCO
=
sC1
=
SC2
=

SC3
=
sC4
=
SEARCH=
SEEK
=
SETLFS
SETOM
SETW

SHUT

SIZCLk

MACRO V04.20

SKI
=
SNGPRT=
STACK =
STANDA
START
START1
STARTZ2
STKLMT=
STOPCL

000002
000004
000010
100000
000004
023304
003700
000100
000200
000400

01:29:56 PAGE 45-5
SEC 0159

SW05

swo6

= 000040

= 000100

1ST5

006360

TST6

007444

$CNTLU

030625

SLPVEC

001516

$CPUOP

001250

1ST17

010514

$CRLF

001217

SMADR?

001260

sw09
SWw1

= 001000
= 000002

TYPDS =
TYPE
=

104405
104401

$DOWO
$ODW1

001306
001310

$MADR4
SMAIL

001270
001222

001316

SMAMS3

001262

Sw08

SW10
SW11

swi2

SW13
Sw14
SW15
SWw2
Sw3
Swé

SW5

swé
Sw7
Sw8

= 000400

TYPOC = 104402
TYPON = 104404

=
=
=
=
=
=

UNS
=
UNTMSK=
UNTOFF
UNTON
UPE
=
USE
=

= 010000

020000
040000
100000
000004
000010
000020

= 000040

= 000100
= 000200
= 000400

SW9
= 001000
SYSTAT
032166

TADMSK=
TAG
=
TAGADR=
TAP
=
TA1T
=
TA16 =
TA2
=
TA4
=
TA8
=
TBITVE=

021550

TSTQUE

TSTNMB

TYPBN = 104406

= 002000
= 004000

TIME
TKVEC =
TPVEC =
TRAPVE=
TRE
=
TRTVEC=
IST
=

177400
020000
001114
040000
000400
010000
001000
002000
004000
000014

001532
000060
000064
000034
040000
000014
010000

TYPOS =

104403

042000
000007
032315
032326
020000
040000

$DDW.
$DDW

$DDWs

024430

001312
001314

(G215
021366
021544

SMSWR
SMTYP1
sMTYP2

030637
001253
001257

SMTYP3
MTYPSG

001263
001267

SOCNT
SOMODE

024662
024664
025664
001230
001106
031262
001530

SENV
SENWM

00124
00124

WCELO = 004000
WCF
= 000040

SERFLG
SERMAX

001117
001131
025752
001132
001542
001126
001210

WwCH
WD
WH
WLE
WRL

=
=
=
=
=

000052

000062
004000
004000
XNUDC = 176000
XNUER2= 001567
XNUOF = 161577
XS1Z
003766
XXDP
001332
Y
032340
$APTHD 001100

$ATYC

031316

$ATY1

031272

$EOP
$EOPCT
SEOSP

024420

021332
021360
021274

SERROR
$ERRPC
SERRTB
SERTTL
SESCAP
SETABL
SETEND
SFATAL
$FFLG
$FILLC
$FILLS
$GDADR

001 %42
001326
001224
031536
001172
001171
001134

$GET42

021520

$GDDAT

SWREG
000176
SWwO0
= 000001
SW00 = 000001
w01
= 000002

TST20
TST21
TST22
TST23

013752
014444
015432
016700

$CHARC
$CKSWR
$CMTAG
$CM3 =

025216
027722
001114
000000

SLFLG
SLLCSR
SLLVEC
$LPADR

031535
001522
001524
001122

SwOs

TST4

$CNTLG

030632

$LPERR

001124

sw02
Sw03

= 000004
= 000010
= 000020

IST24
TST3

020070
006060
006230

$CM4 = 000005
$CNTLC
030620

SLF

$LPCSB
$LPCSR

SMXCNT 025700
SNULL
001170
SNWTST= 000001

SOVER
$PASS
SPASTM
SPOWER
$PSW
SPWRDN

031114
031250

SPWRMG
SPWRUP
SQUES
SRDCHR
SRDLIN
SRDOCT

031166
001216
030264
030354
030704

SRESRE

024102

SRMO2
$RMO3
SRMOS
SRTNAD
$SAVRE
$SAVR6
$SCOPE
$SETUP=
$STUP =

$GTSWR
$GT42P
$HD
=
$HIBTS
$HIOCT
$ICNT
$ILLUP
$INTAG
$ITEMB

001304

001222

030012
021514
000000
001100
031004
001120
031254
001151
001130

031300
031310
001150
001276
001136
001142
001212
024212
001302

$CDW2

$MSGTY

001266
001102
031534
030650
001236
001240

$RDSZ = 000010

SATY3
$ATY4
$AUTOB
$BASE
$8DADR
$8DDAT
$BELL
$BIN
$COW1

005676

$MAMSS
SMBADR
SMFLG
SMNEW
$MSGAD
$MSGLG

001140

005366
010636
010722
011172
011522
012106
012434
013104
013530

1ST2

001252
001256

$ENDAD
SENDCT
SENULL

WATCH
001534
wC
= 000040

wCD
= 000050
WCE
= 040000
WCEHI = 010000

$MAMS1
SMAMS2

001264

01320
001322
0013;4
001232
001300
021540

$DTBL

= 000002
= 000004
= 000100

$MADR3

$DDWS
$DDWS
$DDW7
$DEVCT
$DEVM
$DOAGN

= 000001

vl
ue
A4

027212

001466

$DBLK

TST1
TIST1I0
TST11
TST..
TST13
IST14
TST15
IST16
TST17

001154

001254

= 000200

040000
020024
001100
004322
002732
002722
002736
177774
001540

SWR

$MADRT

Sw07

001000
002000
000030
000004
023412
022302
022160

030662

D13

4-APR-81

001220

001514
001512

032204
032211
032216
02154°
024044
031260
025222
000137
177777

$SVLAD

(025630

$SWRMK=
$SWOBT
$TESTN
$TIMES

000000
025702
001226

$SVPC = 000210
$SWR = 167400
$SWREG 001244

001206

CZRMQBO RMOS5/3/2 DSKLS TST 2
SYMBOL TABLE

|
|
'

kB
STKCNT
STKINT
$TKQEN=
$TKQIN
$TkQOU
$TKQSR
$1xS
BTKSRY

. ABS.

001162
027412
027422
027421
027614
027416
027420
001160
027472

056646
000000

ERRORS DETECTED:

$TMPO
$TMP1
$TMP2
$TMP3

MACRO v04.00 4-APR-81 01:29:56 PAGE 45-6
001174
001176
001200
001202

$TMPS
001204
$TN
= 000025
$1PB
001166

$TPFLG

$TPS

001173

001164

000
001

VIRTUAL MEMORY USED:
60672 WORDS
( 237 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
CZRMC3.B1C,CZRMQR/(=CZRMQB.DOC,
(ZRMQB, SYSMA( /M

$TRAP
$TRAP?
=
$TRP
$ TRPAD
$TSTM
$TSTNM
$TTYIN
$TYPBN
$TYPDS

031006
031046
000016
031060
001104
001116
030610
024140
024214

$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS

SUNIT
SUNITM
$USWR

SEQ 0160

024666
025109
025220
024464
024500
024440
001234
001110
001246

$XTSTR
$$GE T4=
$$5w08=
SOFILL
.$x
=

000021
025240
000000
000025
024663
001100

e
|

EM"
EM

EMY

EME

EMY

CZRMCBO RMOS/3/2 DSKLS TST 2
MACRO V04.00
CROSS REFERENCE TABLE (CREF v01-05 )
-

$$GET4
$3SWO8

14=20
28~

14=204
28-1

28-1

28=1

28-1

281

28-1#
26=1»

28~14
26=1%

28-1#4

28-1

28-1#4

SOFILL

$40CAT
SAPTHD
SASTAT
SATY1

$ATY3

$SATYG
SATYC
SAUTOB

$8ASE

$8DADR

28-14
26~1

28-1
5-8
35-1
35-1#

27-1

6~0#

$OBLK

$ODWO
$DDW1

28-14

9-76

13-14%

9-66

10-33

13-671

13-15+

31-1

13-74

13-806

13-917

10-42«
13-35x«

19-66*
45-12

13=757«

13-758+

13-768*

13-769*

27-1

31-1#
6-0
6-0
6-04
6-0#
31-1
31-1
31-1
6-0#
6=0n
29-1

25-1

€-0n
6-0#

6=-04
6=-0a

$0DWS

6=0n

6-08

28=1#

28-1

28=1

28-1#4

28~-1

28-1

28-1#4

28-1

EM*
CEM?

28=1+

28-1

28=1

28-14

28-1#4

| EM

28-1#4

28-1#

28-1

28-1#

28~1

28-1#

28=1

28-14

13-C49+

13-8»
13-610*

13-962+

13-C50*

13-9
13-611*

13-963*

13-<23+
13-@39
13-C78+
22-12%

13-<24
13-378+
13-C97*
22-13x

24L=14

241+

29-1

27=1#4

33-1
6-0#
6-0
6-0#
9-23
31-1
31-14
31-1
9-48

29-1

25=-1

CEM*

|L EM
EM®
EM

31-1

19-65*
45-11

6=-0#

28-1#

31-1

19-45*
45-10

6-04

28-14

28-1

EM!

19-44*
45-6

13-<22*
13-@37+
13-C64»
19=124»

28-1

c2
CR

35-14

13-749+
13-:76%
13-236%
13-A79*

6=0#
13-595+«

28-1

SEQ 0161

EM"
EM"
EM'
ad

13-729*
13-:62%
13->55+
13-A26*

$DDW2
$DDW3
$DDwé

28-1#4

28-1

13-728+
13-:61%
13->54+
13-A25+

6-0#

SCMTAG
$CNTLC
$CNTLG
$CNTLU
$CPUOP
$CRLF

28-1

13706~
13=:32%
13-249+
13-@97+

$CDWS

$CKSWR
$CM3
(M4

29-1
5-84
35-1

13-601

24=1

$CHARC

2814
26=1#4

13-554

6=-04

$8IN

$£CDwW1

28-1#

35-14
35-14
9-28+

13-948=

$8ELL

28-1

29-1
35-1
6-0#

13-C37+

$BDDAT

F 13
&4=-APR=-81 01:29:56 PAGE S=1

29-1

13-C66*

13-29*
13-620%

13-986*

13-<85%
13-294*
16-20*
22-30*

29-1

2b=1%

11-56

13-36*

13-1

13-67

13-67x

13-537x

13-750%
13-:77%
13-237x
13-A80*

13-843%
13=<04*
13-258+
13-A98+

19-96*

19-97x

13-CBOx

13-(81*

13-30
13-621*

13-208%
13-648%

13-782*

13-783%

13-987*

13=:25%

13-=69*
13-A23%
16=21*
22-31%

13=>13%
13-A77*
17-18%
45-1

31-1

13-73

13=106

13-137

13-159

13=326

13-518

13-543

13538+

13-550«

13-576%

13-577+

13-603%*

13-604*

13-705e

13-995

13-:37

13-844~
13-<05%
13-759%
13-A99x

13-882*
13-<26%
13-929+
13-B51x

19-126%

19=127%

13-C99%

13-253%
13-649*

13-796%

13=:26%

13->52%
13-A96+
17=19x
45-3

31-1

13-D00*

13-315%«
13-663*

13-797*

13=:57%

13=234+
13-B48+
19-32%
45-6

13-883%
13=<27%
13-330*
13-B52%

13-=29

13-275

13-810

18-9

30-25

6-0

9-23
31-1

9-23
31-14

9-23

13-908+
13=<bb*
13-a43*
13-B72%

13-909*
13-<65%
13-a44*
13-B73%

13-940+
13-<82%
13-379+
13-(26*

13941+
13-<83+
13-380*
13-(27*

13-:31s
13-=48+
13-a96+
13-C36+

EM
EM)
EM]
EM)

22-15%
'

22-16%

22-33%«

22-34s

45-1

45=2

13=547%

13-575%

13-578+

13-594«

13-839*

13-546%
13-666%

EM
EM

13-840%

13-702%

13-703%

13-725%

13-726+

EM]

13=:71%

13-:72

13-:48+

13-:49

13-<03+

EMI

16=23%

13-536%
13-664*

13=:58%

13-754%
13-B49*
19-46%
45-8

16=24x

17-22%

13-878+

17-23*

13-879*

19=30*

13-907*

13-755«
13-B69%
19-62%

13-322+
13-B71*
19-63+

13-323*
13-(24*
19-89*

13-325
13-(34*
19-90+

45-9

45-10

45-11

45-12

19-31+

13-947+

13-a36+
13-(48+
19-123+

9-142

10-20

10-28

10-62

10-101

30-20

EM]

EM?
EM]
EM]
EM]

EM]

EMT
EMI
6=0

6=0

6-0n

6-0%

6=-0n

6-0%

30-61

30-104
.

30-114

30-126

EMT
EMT
EMT
EMT
EMT
EMT

31-14

29-1

EM)

EMI

27=-1%

25-1#

EM)

EMT

27=1x

9-81

EM]

EM]T

27-1%
33-1

13-:54

EM!
EMT
EM!

11=25

30-134

11-67

30-154

14=20

311

27-1

31=1

27=1

311

27=1

31-1

EMT
EMT

EMT

EMT
EMT
EMT

E:;

CZRMQBO RMOS5/3/2 DSKLS TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

"
|

$ODWE
$0DW7
SDEVCT

$DEVM

6~0%
6=0n
6-0%

6~0#

9-6£8+

9-79

14-20
25+

14=20
25-1#

$SENDCT

9-23 .

14-20#

9-28

14=20#

29-1

6=-0#

9-28

27-1

29-1

14=20

14=20%

28-1
9-23+
29-1#
29-1
30-72
14=20
9-23x

SENDAD

5-5

SENULL

14-20#

SENVM
$EOP

6=0#
14=204

9-23
31-7

$£EQSP

13-69

13-540

SENV

$EOPCT

SERFLG
SERMAX
$ERROR
$ERRPC
$ERRTB
$ERTTL
SESCAP
SETABL
$ETEND

SFATAL
$FFLG
SFILLC
$FILLS
$GDADR
$GDDAT

9=23*

6~0#
6-0#
9-23
6-0#
8-0#
6-0#
&-0#
6-0#
5-8

14=20#

9=120+

SDOAGN
$OTBL

4=-APR-B1

G 13

01:29:56 PAGE

10=63+«

10=70

10-G8

11=4

11-38

29-1

29-1+

13-314»
13-942+
13-235+
13-(35+

27=1
5

35-1

351

28-1
28-1

28-1
28=1x

28=1+

29-1

29=1»

30-54

14=20
28-1x

14=20*
29-1

29-1
29-1

29=1»
29-1

14-9#

SEQ 0762

10=97

27=1

=72

S=¢

35-1

6-0#

6-0#
35-1
6-0#
6-0#
6~-0#
6-0#
13-707+«

35=1=
35-1%
27-1
27-1

35=1*
27-1
27-1

35-1«
27-1

35=1x

13-11»
13-730*

13-12+
13-762*

13=13x
13=773%

13-32+*
13-786*

13=33*
13-799=

13=34x
13-842+«

13-209+
13-881«

13-254+
13-906+

13-977*
16-25+
45-11

13-@95*
17=21~*

13-A24*
19~-33»

13-A78*
19=47*

13-A97«
19=67~

13-850*
19=95+

13-R6&8+
19=128+

13=-(25~
22=14+

BGET4L2
$GT42FP
$GTSWR

13-239
13-C98*
45-10

31-1#

33-1

$HIBTS
$HIOCT
$ICNT
SILLUP
$INTAG
SITEMB

5-8#
32-1#
6=0#
34-1
6-0#
6-0#

32-1+
28-1
34-1
31-1
29-1

28-1
34-14
31-1
29-1

28-1

28=1x

28=1+

31-1
29-1

31=1»
29-1

29=1+

30-45

$LFLG
$LLCSR
SLLVEC
$LPADR
$LPCSB
$LPCSR
$LPERR
$LPVEC

35-1#
7=0#
7-0#
6-0#
7-0#
7-0#
6~0#
7-0#

35=1»
15=26
15=17
9-23+
15=52+
15=12
9=-23+
15=15+

15-56*
15=17%
28-1

15=84+
15=18+
28-1

15<29*
28-1

15=30=
28=1+

15=42
28=1+

15=42+
28=1+

15-43

15=53*
28-~1
15-16+

15-81«
28-1
15=31

28-1
15=31+

28=1x
15=32+«

29=1
15=40

15=4(n

18=41»

$MADRS
$MADRS

6-0#
€E=0m

13-;47*

$HD

$SLF

$MADR1
$MADR?

11-34
14-20

4L=-678

o-0#

6=0m
6=-0#

31=be

13-;49

11=-43
14=-20#

4-678

27-1

13-<02*

13-<28*

13-<6b*

13=<84*

13==70r

13=>14»

13=>53«

14=-20#

4-678

27-1

29-1

31-1

31=1

22-32+

13-549+
13-991+
13-257»
13-(45+
45-1

13-580+
13-:30»
13-a24+
13-C46
45-3

13-597=

13-:60*
13-a25
13-C65+
45-8

13-605~

13-:78«
13-a38~
13-C79~

45-9

.
|

TMAMS1
SMAMS
2
tMAMS
3
SMAMSS
SMBADR
BMFLG

SMNEW
$MSGAD

BMSGLG
$MSGTY
SMSWR
EMTYP]
sMTYP?2
sMTYP3
SMTYP4
SMXCNT
SNULL
SNWTST

5-8
13-601
6~04
6=0#
6=04
6~04
5-8#
35-1
311
6-0#
6=0#

$SVLAD
$SVP(

)

-8
13-671

9-28
13-617

13=1

13-995

SEQ 0163

13-73
13=:37

EM!
gEMm®

EMe

EM*

35-14
3-ia
35=-1
35=1x
351
-4

13-137#%
13-543
13-671#
13-995
13-=2%9#
26=1*

| EM:

EM!

| Em

13-73
13-15%%
13-554
13=-7464
13-:37
13=275#

13-543#

13-995#

13-3264

13-806#

13-RB10#

13-810#

13-106#
g LR
13-917

13-601#

13-.544

13-518#

13-917#

4-978%

9-23

26=1»
14=20+

34-1#

15-60+*

34-1

34-14
27-1

29-1

31-1

33-1
33-1
33-1

31-1#
331

30-32
30-28
30-36

9-23

4-978

9-23

1420
4=978
L=9784

28-1
5=5

34-14
33-1
28-1#4

4-978
9-23
14-20
4L=978
L=978#%

28=1#
5-S#

34=T4
4-978

9-25
29-1

4-978

EMY

35=1»

26-1#
28-1
9-23%

$STUP

MACRC V04.00 4=APR=81 (01:29:56 PAG?

v01-05

28-1
27-1
13-1

SOCNT
$OMODE
$OVER
$PASS
$PASTM
SPOWER
$PSW
$PWRDN
$PWRMG
$PWRUP

$R2A
$RDCHR
$RODEC
SRDL IN
$RDOCT
$RDSZ
$RE SRE
$RMO2
$RMO3
$RMOS
SRTNAD
$SAVR6
$SAVRE
$SCOPE
$SETUP

(CREF

MALL

TABLE

_ZRMQBO RMOS/3/2 DSKLS 1ST 2

TROSS REFERENCE

EM’
EM'
EM
EM
EM
EmM
EmM
EM
EM
EM
EM
EM
EM
Ew
EM
EM
EM
EM
EM
EM
EM’
EM!
EMI
EMI
EMI
EMI
EMI
EM]
EM]
EMI
EM]
EMI
EMT
EM1
EMT
EMT
EMT
EMT
EMT
EMT
EMI
EMI
EMT
EMT
EMIT

x£3-LL-£-——-e6i3Nf—W‘l4%nS7LTa3N7b”MOa0Uo2lWNLelr9MO%Ow”NN4o"3.ne0-y8WewA2O‘N.wN%)vNv—.]Ra-R=B¥—Me~N|~M0TV-M.=-oNNR
QNoMLM3-MRM¥4rlMWR445-NaL4%MNl3——%oiMMMMaA543l.0e433MoMMMA4aMNN—Bil.3WR704Nm%r4-MO&s&byooNM—O-e%N-l5‘M-MNl1Na0IaSI&l54NulNMBnMRTeNa8oARMMl434Ml-1=NOL0\LM”Na—u2AIAaNBllerNM”7N3OMNa-KRVaM—SBNNlO0&l78aNeaM—yiLl|lAmA4B*MROTM7M0<T*MOe8*B%IOS49%TRM3NMOoNOeROoENM-~0OOVOA0FoOoWURNOR3WWWW~On9oVNgmEXOVnrNoNMM2R7MoOnMmR&OE—mWmSSOIN1v5M7nM*m2mVNAmnRM-M—1M-Me =--M «M:§¥}UN—~1——W=&CM—Ec*I§Mo7I0o1WN—S0erA3SM—Mox*-R—RNCwMe0——MOrDni—eMOMN&DO—r1*~AYOFO.MWewB0SuNeM0W”WnMOn=u—tMNn—U~«E~omOO3L«O3im—Nvv*= PByJMoMReL=MTQna3ONO<oNoNN.JKN5xDRRb
§ML&gM8 oY)W[olo=—lol]LL\l w-.|m.LJ©=).M]' e<(]Nh1
NgLslallau.sal tiliXMne:&=u3n—- OX e«Io*T a*m lnxo*-* M33M%7 0YATN &*=—0 &* oN

NM-TMT—MN oeN9”M6NeOA5MM»1 OM MV~MINONoO%=on&WynNT1 —- N1DLDAO:~N-TT N¥M oV
MMM3TTLNMTMVMTMN -O1NOT-—A'LOM=l%-0M'=RTVTM=PMR o%-T"]Am1wONg=XA\O1FO§TM&s -Y!M= tM=M= -M N-* s[ T-W¥-e-.-MN@aTNNTmN
%® * *

6MNS5RMN,MeoaMAeMaxTMOAlaNxOaUNOOltMxolNiMd&OM--eN=MOM—NoTNkNOAR&NNMiVgeeBiO0==Ml*WpOL=N0I=NP=oRL>MAlOFNUOAT=MoRIlM2RMoelA=MoTI RNerR0~M—tROUrAM—tn=VrNo=—-NaikcerW£AN-—eY=—io" E(rB%]
B T TsLiRlIs
$SwO8T
$SwR

$SWREG

$TRPAD
$TSTM
$TST
$TTYIN

STYPBN
$TYPDS

$TYPE
$TYPEC

$TYPOC
S$TYPON
STYPEX

28-1

13-671
14-20

L=6678
9-23

28-1
29-1
604

33-1
5-8#
6-0#
31-1
24-1#

25-1#
27=-14

27-1

26-1#
26-1
27-1

4-APR=-81
01:29:56 PAGE

9-23

«x

33-14
28~1

28-1

9o=4“75 OeEAV0w®NM~v«V

*
.
="O- N - E

CZRMQBO RMOS5/3/2 DSKLS IST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

[ 13
S=4

SEQ 0164

28-1#

28-1
28-1
29-1

4-678
9=¢3
13-746

6~0
13-543

28-1
29-1

14-20

iLU

28=1+

28=1»

29-1
29-1

13-554
14-20

6=0

28~1
29-1

28-1
29-1

9-23
13-601
14-20

x-«

29-1

GTS
HCE
HC
I
HCR

CZRMQBO RM0S5/3/2 DSKLS TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

$TYPOS
SUNIT
SUNITM

26-1#
6=08
5-8#

331
11=50*

SVECT1
BVECT2

6=0#
6~0#

10~46

|
.

$XON
S$XTSTR

. SUSWR

SXOFF

.SASTA

LosX

Al6

A17

6~-0#

27-1

27=1

35-1

27=1
28-1#

5-8

4=924m

4=923%

ABASE
ACDW1
ACDW2

4=-975#
6-0
6-0

ADDWO
ADDW1
ADDWI0
ADDW11
ADDW12
ADDW13
ADDW14

6-0
6-0
6=0
6-0
6-0
6-0
6=0

ADDW2
ADDW3
ADDW4
ADDWS
ADDW6

6-0
6-0
6-0
6-0
6-0

ACPUOP

ADDWIS

ADDW?7

ADDWS
ADDW9
ADEVCT
ADE VM
ADR

6=0

6-0

6=-0

AENV

AFATAL

60
6-0
6-0

MEL
WY

1AE

10=56+

I8¢

|
|

31-1

1Dm
IE
ILF

ILF’
ILF

ILF

6=0

ILF
ILF
ILF

ILF

6-0
6-0

ILF
ILF
ILF
ILF
ILF
ILF
ILF

ILF

6-0
6-0
6-0
6-0
6-0

ILR
ILR
ILR
ILR
ILR

6-0

ILR

6-0
6-0
13-1#
13-326

13-1#
13-32¢#

13-73
13-3264

13-73#
13-518

13-734#
13-5184

13-106
13-518#¢

13-106#
13-543

13-106#
13-543#

13-137
13-5434

13-137#
13-554

13-137#
13-554#

13-159
13-554#

13-159#
13-601

ILR
ILR

13-995
13-2754#

13-995#
13-810

13-995#
13-B10#

13-:37
13-B10#

13-:37#

13=;54

13-:548

13=;54#

13-22G

13-=204

13--29#

13-375

13-2754

10T
IPC

6-0

13-601#

6-0

13-671#

13-746

13-746#

13-7464

13-806

13-806#

13-917

13-917¢

13-917#

ILR

IPC

6-0

IvC

6-0
6~0
6-0
6-0
6-0
6-0

AMSGAD

6=0

6-0

6~0
6=0

6-0
6=0

6=0
60

13-671#

IPC

6-0
6-0
6-0
6~0
6-0
6~0

6-0

13-671

ILR
ILR
ILR
ILR

6-0

AMADRZ
AMADR3
AMADRG
AMAMST
AMAMS?
AMAMS3

AMTYPT
AMTYP?

6-0

36=4#

AMSGLG
AMSGTY

€28
CRC

SEQ 0165

ILF

10-69

AMAMSSG

S$=5

5-8#

ALL

AMADRT

L
30-¢2

01:29:56 PAGE

6-0
6-0
6~C
6-0
13-1
13-1594
13-601#

AENVM

27-1

11=6%

J 13

4=APR=81

6-0

6=0
6=0

LBC
LBT
LCL
LCO

LOD.
LS

LS¢
LST

(ZRMQBO RMQOS5/3/2 DSKLS TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF Vv01-05 )

|
|

AMTYP3
AMTYPS

AOE
APASS
APE
APRIOR
APTCSU
APTENV
APTSI2
APTSPO
ASWREG
ATA

ATESTN
ATNMSK
ATNTBL

AUNIT
AUSWR
AUTSI1Z
AVECT1
AVECT2
BADTMC

6-0
6-0

4(-781

6~0

35-1#
29-1
35-1#
35-1
6-0

SEQ C166

Z7=77

37-78

35-1

35-14

37-81

37-85

mC|

35-1#
37-60
37-80

37-63
37-83

9-120

10-97

11-17

38-34

9-118
6-0

10-100+

13-:72
13->14

13-:78
13-A61

13-211
4L-682#

13-526
4-694

13-528
4-742

4-682#
46824
4-682#
4-682#
4-682#4
4-682#
4-6824

4-693
4-692
4-691
4-690
4-689
4-759
4-758
4-735
4-734

13-531
4=755
4-732
4-753

13-256
4-733
4-688
4-731
4-752
4-751
4=750

37-82

| MO

37-59
37-79

4L-682#4
4-682#4

R
LS

37-58
37=76
6-0
6-0

K13

01:29:56 PAGE S=6

4=766

4-765
4=764

37-64
37-84

37-67
37-87

37-69

37-70

37-71

37-72

37-74

13-533
4=779

13-<97
4-871

13-A39
4=945

4-963

28-1

29-1

4=741
4=740
4-739
4-738
4=774
4-773
4=772
4=757
4-756

4-815
4-814
4-813
4-830
4-829
4-811
4-810
4-793
4~792

4=945
4=945
4-882

4-962
4-961
4-942

4-960

4-926

4-939
4£-881
4-924
4-923

4-959
4-925
4-937
4-936

13-533
4-769
4-754
4=767
4-804
4£-803
4-802

4-807
4-806
4-822
4841
4-840
4-839

4-880
4-867

4-922

13-<24
13-A63

MDF
MDF:
M
MOt

333

4-APR-81

13-<28

4-808

4-871
4-871
4<-871

4-824
4-849
4~865
4~864
4-863

4(-887

4-933
4-932
4-920
4-919

4-879
4-956
4=955
4-931
4-930

4-938

28-1
28-1

29-1

4-935
4-934

291
28-1

29-1
4-954
4-953

CZRMQBO RMQS/3/2 DSKLS TST 2

CROSS REFERENCE

BIT6

' BIT?
| BIT8
' BIT9
BLNKS1
| BLNKS2
BLNKS3
BLNKS4
BOTADR
BOTFLG

4~682#

4~6828
4~682#
4~682#
36-35#
9=134
36-33#
9-83
30-81+
30-62+

TABLE

(CREF

MACRO Vv04.00

v01-05

)

10-34

10-48

36-34#

36-32#
30-99+
30-109+

30-102
30-112

30-117
30-115x

30-161#
30-162#

12-321

13-686

13-812

13-923

45-22#

4-682#
4=875#
l%-ggg

BUFONE
BUFTWO
cC
CH

13-B17
45-23#
4-867#
4-868#

13-(56

CHRCNT
CKSWR
CLKSNC
CLOCK
CLR
CMNSTA
CNSLOT
CNSLO2
CNSLO3
CNSLO4
CNSLO7
CNSLO8
CNSLO9
CNTCLR

30-63+
28-1
13-a04
7-0#
4-940#
9-143
10-32
10-40
10-44
10-54
10-61
10-92
36-15#
13-7
13-464
10-86
4L-828#
28-1
4-682#
43-185
4-682#
36-9

30-86+
29-1
13-B31
13-569
9-85
11-2#
36-8#4
36-94
36-10#
36-114
36-12#
36-144

30-92+
29-1
13-B78
13-588
11=57

30-93
33-14
22-64
15-13x
18-10

13-28
13-480

13-75
13-495

28-1
10-73
43-186
9-6
36-11

45-31
45-45
45-59
4-857#
4-802#
4-803#
13-715
13-901

45-32
45-46
45-60
13-80
19-106
4-835
13-718
13-902

45-33
45-47
45-61

20-27

19-119
13-587
13-719
19-82

20-28

4-781
6-0

13-(44
P23

9-23+
9=23

9-23«

(OMMA

CONT
CPSAVE
CR
CRLF

7-0#

44-14

CYLMSK
DBCK
DBEN

DBL
DCK
ODISP
DEBL
DISPLA
DISPRE

20-26
4-958#
L=7648
4-682#
4~-804#
6-0#
5-1#

SEQ 0167

9-72

BPTVEC
BSE
BUFFER

CHGADR

L 13
4-APR-81 01:29:56 PAGE S=7

9=-14

11-6

44-16

13-:01

13=:43

13=;61

13==35

30-96*

30-100

30-105*

30-116+

30-163#

15-27+

15-3G+

19-88

20-14

11-14

13-108
13-545

36-6#4

13-116
13-608

13-139
13-677

13-162
13-748

13-213
16-14

28-1
10-84
43-187
9-28
36-12

28-1+
27-1
43-188
9-28
36-13

28-1«
27-1
43-189
9-42
36-14

29-1
30-84
43-189
9-53
36-15

29-1
43-118
43-190
9-59
36-16

45-34
45-48
45-62

45-35
45-49
45-63

45-36
45-50
45-64

45-37
45-51
45-65

45-38
45-52
45-66

45-39
45-53
45-67

45-40
45-54
45-68

45-41
45-55
45-69

45-42
45-56
45-70

45-43
45-57
45-71

45-44
45-58

13-641
13-720
19-106

13-642
13-723
19-107

13-656
13-724
19-113

13-657
13-829
19-114

13-658
13-830
19-119

13-661
13-856
19-120

13-662
13-857
20-10

13-696
13-872
20-11

13-697
13-873
20-21

13698
13-890
20-22

13-699
13-891
20-25

9-17«

44-18

1025

44-20

10=27~

4422

21-10

21-1

28-1+

29-1»

44-24

21-18

44-26

21-19

13=7265

13=767

13=782

45-5

45=5

13-262
18-8#4

13-365
19-19

13-381

13-403

13425

13-442

29-1
43-178

29-1
43-179

29-1
43-180

29-1#
43-181

29-1+
43-182

29-1»
43-183

30-180
43-184

9-60
36-18

11-30
36-20

27=1
44-1

27-1
44-3

36-4
44-5

36-7
44-9

36-8
44-11

44-28

44-30

44-32

45-27

45-28

45-29

45-30

;

(ZRMQBO RM0S/3/2 DSKLS TST 2

CROSS REFERENCE

41-12
41-2
41-14

EDS
ED52
EDS7
ED61
ED6S
ED71
EDT1
EDT115
EDT130
EDT132
EDT2

EDT220
EDT47
EDTS
EDTS52
EDT57
EDT61
EDT65
EDT71

EDT74
EECC
EF1

EF130
EF2
EF5

41-4

41-3
41-5

41-6
41-7
41-8
41-9

8-3
8-%1
8-154
8-94
41-12#
41-13#
8-6

41-14#4
8-118
8-15

8-127
8-142
8-148
41-8#
41-9#4
41-10#4
4-830#
42-1

42-9
42-2
42-3

TABLE

(CREF

45-14
41-13
45-114
41-10
45-12#
L5-44
45-34
45-5#
45-6#4
L45-74
45-8#
45-94
8-49
8-97
8-157
8-193

MACRO v04.00

v01-05

)

13-C44

37-77

13-<84

13-a23

M13
4-APR-81 01:29:56 PAGE S~8
SEQ 0168

13-649

13-664

13-666

37-78

37-85

37-86

8-58
8-112
8-199

8-61

8-64

8-208

8-21

8-18

41-5#
41-64
L1-74

13-223

42-5

45-18#

13-726

8-70
8-124
8-214

8-73

13-730

45-10#
45-24

8-52
8-100
8-160
8-202

8-55
8-103
8-196

41-114

8-22

8-109

41-2#
41-44

13-703

41-34

8-115

8-121

8-130
8-217

8-76
8-133

41-14

8-79
8-136

8-82
8-139

8-85
8-145

g-88
8-151

42-8
8-49
8-97
8-154
8-193

EH2

EH213
EH220
FH3
EH4G7
EHS

EHS2
EHS7

EH61
EH6S
EN7
EH71
EHT1

EHT115
EHT130
EHT132
EHT142
EHT145
EHT150
EHT2
EHT213
EHT220
EHT47
EHTS
EHT52
EHT57
EHT61
EHT6S
EHT7
EHT71
EHT 74
EMS1
EMS10
EMS100

8-18
8-142

40-1
40-12
40-13
40-14
40-15
40-16
40-17
40-2
40-18
40-19
40-11
40-5
40-3
40-6
40-7
40-8
40-9
40-4
40-10
8-3
8-91
8-154
8-94

4414
44-18#
44-20#
44224
44=24n
L4=26#
44-28#4
L4-34
44=-304
44-324
4444
44-8#
44-54
44-94
44-114
44-134
44-144
L4-74
L4164
8-49
8-97

40-13#

40-144
40-15#
40-164
8-193

8-157

40-12#

8-202

8-6

40-2#

8-118
8-15
8-127
8-142
8-148

40-5#

40-18#
40-19#

40-9#

42-10

8-52
8-100
8-157
8-202

SEQ 0169

8-58
8-112
8-196

8-18
40-6#4
40-7#4
40-8#

8-22
8-148

8-52
8-100
8-160

8-76
8-130
8-217

8-73
8-130
8-217

8-76
8-133

8-79

8-133

8-82
8-136

8-85
8-139

8-88
8-145

8-79
8-136

8-82
8-139

8-85
8-145

8-88 |
8-151:

42=14

42-34

8-55

8-103
8-196

8-58
8-112
8-199

8-61
8-115
8-208

8-64
8-121
8-211

8-70
8-124
8-214

40-14

40-17#4

40-3#

8-22

8-109

40-44

4C=114
39-3
39-119
39-50

39-4
39-121
39-54

43-14
43~-8#
39-56

40=-10#

)

42=2#

8-15
8-127

42-54
42-6#
42-74

V01-05

$LEZZ3333333% 3 233 3 33

wab

NN
o

(Y,] N

TTMe.

o wv VINON)
= —

- MMM

m mmmmmmm

EFT71
EFT74
EHT
.
EH115
EH130
EH132
EH142
EH145
EH150

424
8-3
8-91
8-151
8-94
42-94
42-10#
8-6
42-114

(CREF

4-APR-81 01:29:56 PAGE S~9

EFS7
EFTY

REH

TABLE

- o
o e
g

CROSS REFERENCE

MACRO V04.00

oo?m

| CZRMQBO RMOS5/3/2 DSKLS TST 2

SAC

39-62

39-64

39-67

39-69

39-104

(3-684

]

CZRMQBO RMOS5/3/2 DSKLS,TST 2
MACRO
CROSS REFERENCE TABLE (CREF v01-05 )

EMS101
EMS102
EMS103
EMS104
- EMS105
EMS106
7
EMS10
|
EMST
EMS110
EMS11]
EMS112
EMS113
EMS114
EMS115
EMS116
EMS12
EMS13
EMS14
EMS15
EMS16
EMS17
EMS2
EMS20
EMS21
EMS22
I

EMS23
EMS24
EMS25
EMS250
EMS251
EMS252
EMS253
EMS254
EMS255
EMS256
EMS257
EMS26
EMS260
EMS261
EMS262
EMS27
EMS3
EMS30
EMS300
EMS301

EMS302
EMS303
EMS 304
EMS 306
EMS307
EMS31
EMS310
EMS311
EMS312
EMS313

39-50
39-58

39-104
39-60

(3-714

L3694

v04.00

39-62

35-64

36-7¢

L3=728

39-88

43=-75#

4=-APR-81 01:29:56 PAGE $=10
SEQ 0170

39-70

43-704

43-79#

39-130

39-132

43-12#

39-197
39-145
39-147
39-201
39-152
39-154
39-156
39-169
39-167
39-176
39-191

39-317
39-327

39-3i9
43-154

39-336

39-338

39-35¢4

39-370

39=-390

39-229
39-154
39-156
39-158

39-233
39-156
39-158
43-19#

39-238
39-158
39-160

39-249
39-162
39-340

43-174

39-329

39-334

43=-24

39-356

39-372

39-392

43-228
39-193

39-349

39-365

39-381

39-407

L3=-212

39-261

39-266

39-281

39-286

39-307

43-83#

39-211
39-211
39-138
39-261
39-264

39-213
39-213
39-145
39-275
43-89#4

39-331

43-85#4

39-160
39-287

30-288

39-174
39-412

39-184
43-88#

L3-87#

39-174

39-343

39-359

39-375

39-405

43-234

39-311
39-182
39-235
39-184
39-52
39-329
39-10
43-964
39-8

39-313
39-186
39-255
39-191
39-78
39-334
39-13

43-934

39-394
39-279
39-203
39-117

39-395
39-282
39-207
39-126

39-397
39-284

39-409
39-327

43-24m
43-38

39-177

39-201

39-229

39-233

39-238

39-245

39-261

39-128

39-145 ©

39-160

39-167

39-174

39-184

39-15

43-974

39-45
39-201

39-215
39-229

43-101#

39-313

43-102#

39-138

39-145

43-134

43-84H

4£3-98#

43-103#

43-164

43-204

4£3-864

39-277
39-259
39-193
39-114
39-412
39-15

43-25#4

43-954
39-45

39-123

39-132

39-257
39-233

39-299
39-238

39-301
39-249

43-100#

39-329

39-334

39-160

39-167

39-174

39-184

43-105#4

43-144

43-18#

" CZRMQBO RMOS/3/2 DSKLS TST 2
CROSS REFERENCE

TABLE

EMS314
EMS315
EMS316
EMS317
EMS32
EMS320
EMS321
EMS322

39-21
39-23
39-19
39-19

43-105#4

39-27
39-31

43-110#
43-1114
(3-112#

EMS323
EMS324
EMS325
EMS326
EMS327
EMS33
EMS330
EMS331
EMS332
EMS333
EMS334
EMS335
EMS336

EMS337
EMS34
EMS340

EMS341
EMS342
EMS343
EMS 344
EMS 345
EMS346
EMS347
EMS35
EMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36

EMS 360
EMS361
EMS362
EMS363
EMS 364
EMS365

EMS366
EMS367
EMS37

39-17
39-19
39-17
39-17
39-189
39-21
39-25
39-29

(3-113#
43-1144
431154
43-116#
39-45

39-191
39-47
39-90
39-98
39-100
39-62
79-33
39-374
39-35
39-405
39-48
39-242
39-193
39-33
39-370
39-50
39-193
39-112

39-86

39-125
39-128
39-104

43-132#

39-132
39-197
39-150
39-150
39-37
39-108
39-187
39-191
39-41
39-197
39-201
39-374
39-197
39-319
39-199

(CREF

MACRO v04.00
v01-05 )

L3-27#
39-23

39-25
39-27
39-21

39-72
43-28#
43-118#
39-179
39-140

39-116
39-121
39-43
39-383

C 14

&4-APR-81 (1:29:56 PAGE

S=11
SEC 0171

39-29
39-31
39-23

39-25

39-94

43-119#4
39-162
39-152
39-156
39-64

39-47
39-150

43-1064

39-181
39-27

43=107#

39-29

39-31

43-108#4

39-117

39-246

39-261

39-281

39-282

39-292

43-117#

39-169
39-158
39-242

39-186

39-323
39-251

39-352
39-297

39-368
39-303

39-386
39-305

39-403
39-307

43-1204
39-313

43-121#

39-251

39-294

39-342

39-351

39-358

39-367

39-119

39-248
39297
39-244

43-1224
39-244

39-69

39-112

39-338

39-343

39-354

39-359

39-370

39-375

39-390

39-3%

39-136
39-253

39-143
39-269

39-156
39-290

39-165
39-295

39-172
43-125#

39-182

39-207

39-211

39-221

39-240

39-69

39-119

39-121

39-251

39-338

39-343

39-354

39-359

39-154
39-266

39-156
39-269

39-271

39-163

39-165
39-273

39-170
39-277

39-172
39-309

39-182
39-412

39-191
43-127#

39-170

39-205

36-271

39-273

39-275

39-277

39-309

39-311

39-409
39-50
39-244
39=-235
=35
39-375
39-104
39-203
39-119
39-125
43-130#
39-130
39-128

39-62
39-405
39-141
39-211
39-125

39-64
43-1264
39-143
39-262
39-323

39-275
39-141

39-292
39-148

39-138
39-237
39-152

39-160
39-246
39-158

39-167
39-253
39-297

39-184

43-133#

39-331

39-336

43-1344

39-39
39-110
39-189
39-193
39-317
39-315
39-215
39-379
39-317

431364

39-219
39-219

39-225
39-223

39-231
39-235

39-235
39-259

39-240
39-279

39-259
39-284

39-325
39-286

43-137#

39-288

39-327

43-138#

39-321

39-388

39-223
39-399

43-314

39-251

39-315

39-342

39-347

39-351

39-358

39-363

39-367

39-313

43=-1454

39-323

39-325

39-327

43-147»

43-135#

43-1434

43-144H

39-203
39-319
43-1414
39-221
39-383

43-142#

43-139#

39-286
39-213

39-301
39-288
39-219

43-1464
39-225

39-225

39-227

39-231

4£3-1484
&3-324

43-1314

39-163

39-225

39-227

39-231

39-235

39-259

39-235

39-259

39-325

43=1408

(ZRMQBO RMOS5/3/2 DSKLS TST 2

.
.
|

CROSS REFERENCE

TABLE

EMS370
EMS371
EMS372
EMS373
EMS374
EMS375
EMS376
EMS377

39-72
39-227
39-35
39-292

EMS4

EMS40
EMS400
EMS401
EMS402
EMS403
EMS404
EMS405
EMS406
EMS407
EMS41
EMS410
EMS411
EMS412
EM3413
EMS414
EMS415
EMS416

EMS417
EMS42
EMS420
EMS421
EMS422
EMS43
EMS44
EMS4S
EMS46
EMS47
EMSS5
EMS50
EMS500
EMS501

EMS502
EMS503

39-54
39-106
39-33
39-275

(CREF

MACRO Vv04.00

v01-05

)

39-76
39-397
39-242

39-94
43=-151#
39=244

39-31
39-64

39-331
39-323

43-153#

D
4-APR-81 01:29:56 PAG E

: 12
SEQ 0172

39-225

39-347

39-363

39-379

39-395

4£3=150#

39-248

39-315

39-327

39-331

39-336

43=152#

39-331

39-340

39-349

39-356

39-365

39-372

39-381

39-392

39-407

39-410

39-281
39-303
39-305
39-33

63154
43-155#
39-307
39-41

39-90
39-205
39-35
39-72

39-195
39-207
39-70
39-76

43-4k
4£3-334

39-336
39-80

43-158#
39-94

39-332

39-336

39-345

39-361

39-377

39-384

39-401

39-37

39-39

39-41
39-356
39-375
39-338
39-384
39-338

39-69
39-365

39-356
39-392

39-365
39-407

39-372
431614

39-381

39-392

39-407

43-1604

39-352
39-397

39-354
39-399

39-359
39-401

39-361
39-403

39-363
39-405

39-368
39-410

39-370
43-163#

39-375

39-321

39-323

43-34n

39-24
39-120
39-171
39-247
39-283
39-318

39-26
39-122
39-173
39-250
39-285
39-320

39-28
39-124
39-198
39-252
39-293
39-322

39-30
39-135
39-202
39-254

39-296
39-324

39-32
39-142
39-210
39-256

35-298
39-326

39-24

39-26

39-28

39-30

39-32

39-42
39-95
39-155
39-200
39-280
39-353

39-44
39-97
39-161
39-216
39-312

39-46

39-49
39-127
39-166
39-220
39-328
39-360

39-51
39-129
39-168
39-226
39-330
39-362

43-157#

43-155

39-340
39-343

39-84

39-377
39-37
39-388
39-209
39-48

39-43

39-56
39-65
39-74
39-65
39-67
39-74
39-217

39-82
39-86

39-110
39-223
39-229
39-233
39-238
39-244
39-100
39-251
=3
39-5
39-46
39-144
39-212
39-258
39-300
39-328
39-5
39-46
39-5
39-53
39-131
39-171
39-228
39-333

39-349
39-357
39-92

39-379
39-39
43-165#
39-211
43-166#4
39-48
39-58
39-82
39-88
39-67
39-88
39-80
39-219
39-102
39-88

43-176#
43-364
39-231

39-235
39-240
39-246
39-299
39-255

43-178#

39-7
39-53
39-149
39-214
39-260
39-302
39-333

43-1644

39-213
43-1674
43-168#
39-84
43-170#4

39-69
43-172#4
39-82
43-354

39-92

43-165#

431714
39-9¢

431744
43-1754
43-374
43-38#4
43-39%

39-249
43-54
43-414

43-404

39-9
39-79
39-151
39-216
39-263
39-304
39-335
39-9
39-122
39-11
39-61
39-135
39-175
39-232
39-337

39-14
39-99
39-155
39-224
39-270
39-308
43-1814
39-14
39-280
39-16

39-77
39-139
39-180
39-236
39-341

39-355

39-107
39-164
39-218
39-326
39-357

CZRMQBO RM0S/3/2 DSKLS TST 2
MACRO V04.00
CROSS REFERENCE TABLE (CREF v01-05 )

EMSS504

| EMSS0S
|

EMS506

EMS507

EMSS1
EMS510
EMS511

EMSS52
EMSS53
EMS54
EMS55
EMS56
EMS57
EMS6
EMS60
EMS600
EMS601
EMS602
EMS603
EMS604
EMS605
EMS606
EMS607
EMS61
EMS62

EMS63

EMS64

EMS65
EMS66
EMS67
EMS7
EMS70
EMS71
EMS72
EMS73
EMS74
EMS75
EMS76
EMS77
EMT1

39-364
39-396
39-11
39-83
39-206
39-7
39-99
39-101
39-257
39-280
39-5
39-34
39-63
39-93
39-122

39-153
39-185
39-214
39-243
39=274
39-304
39-333
39-364
39-396
39-269
39-279
39-281
39-290
39-292
39-297
39-114
39-297
39-262
39-269
39-271
39-309
39-338
39-354
39-370
39-92
39-301
39-303
39-311
39-327
39-329
39-334
39-352
39-116
39-37
39-33

39-33
39-37
39-37
39-39
39-43
39-39
8-3

39-366
39-398
39-14
39-87
39-208

43-185#

43-186#
43-187#

39-273
43-188#
39-7
39-36

39-66
39-95
39-124
29-155
39-188
39-216
39-245
39-276
39-306
39-335

39-369
39-400
39-16
39-89

39-258

E 14
4-APR-81 01:29:56 PAGE S=13
SEQ 0173

39-371
39-402
39-38
39-103
39-267

39-373

39-11
39-40
39-71
39-99
39-129
39-159
39-192
39-220
39-250
39-280
39-310
39-339
39-371
39-402
39-277

39-14
39-42
39-73
39-101
39-13
39-161
39-194
39-222
39-252
39-283
39-312
39-341
39-373
39-404
43-43n

39-9
39-38
39-68
39-97
39-127
39-157
39-190
39-218
39-247
39-278
39-308
39-337
39-369
39-400
39-275

L3-L4m
39-286

39-288

43-45#

39-294

39-295

39-331

L3-474

39-117
43-50#
39-264
43-193#
39-273
43-195#
39-340
39-356
39-372

39-119

39-121

L3-64

39-266

39-412

43-192#

39-345

39-347
39-363
39-379
39-397

43-494

39-390
43-514
39-305
39-313
43544

39-332
39-336

39-378
39-408
39-51
39-111
39-283

39-380
39-411
39-55
39-118
39-287

39-382
43-1834

39-385

39-387

39-389

39-391

39-393

29-57
39-188
39-289

3963
39-190
39-291

39-66

39-68
39-194
43-1844

39-71
39-1%96

39-75
39-204

39-22
39-51
39-81
39-109

39-24
39-53
39-83
39-111

39-230
39-260
39-291

39-232
39-263
39-293

39-28
39-57
39-87
39-115
39-146
39-178
39-208
39-236
39-267

39-413

43-18%9#

30-26
39-55
39-85
39-113
39-144
39-175
39-206
39-234
39-265
39-296
39-324
39-355
39-387

29-30
39-59
39-89
39-118
39-149
39-180
39-210
39-239
39-270
39-300
39-328
39-360
39-391

39-32
39-61
39-91
39-120
39-151
39-183
39-212
39-241
39-272
39-302
39-330
39-362
39-393

39-192
39-413

4342

39-366
39-398
39-271
39-401
39-234

L3-464

39-376
39-406
39-42
39-109
39-278

39-16

39-44

39-75
39-103
39-133
39-164
39-196
39-224
39254
39-285
39-314
39-344
39-376
39-406

39-326
39-357
39-389

43-1944

39-343
39-359
39-375
39-392

39-361
39-377
39-395

39-307
39-315

39-309
39-317

43-524

43-55#4

39-338
39-386

43-74
39-384
43-614
43-624
39-41

43-654

4L3-664
43-674

39-349

39-365
39-381
39-399

39-352
39-368
39-384
39-401

43-196#
43-197#4

39-386
39-403

43-198#

39-405

39-407

39-410

£3-199#

39-319

39-321

39-323

39-325

39-345

39-361

39-377

43-53#

39-343
39-403

39-354
43574

39-359

39-370

39-375

39-388

39-390

39-405

43-56#

39-410

43-5%

39-69

43-634

(

39-43

39-48

| CZRMQBO RMO5/3/2 DSKLS TST 2
CROSS REFERENCE

EMT10
' EMT100
I EMTI01
| EMT102
EMT103
| EMT104
EMT10S
EMT106
EMT107
EMT1
EMT110
EMT113
EMT112
EMT113
EMT114
EMT115
EMT116

EMT117
EMT12
EMT120
EMT121
EMT122
EMT123
EMT124
EMT125
EMT126
EMT127
EMT13
EMT130
EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137
EMTi4
EMT140
EMT141
EMT142
EMT143

8-25
39-132#
39-1344
8-199
39-138#4
39-1414
39-1434
39-145#
39-148#

TABLE

(CREF

39-17#

39-1364

39-194

39-21#

39-23#

39-25#

EMT 144

EMT145

EMT146

EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155

EMT156
EMT157
EMT16
EMT160

EMT167

39-27#

35-294

MACRO v04.00

v01-05

)

4-APR-81 01:29:56 PAGE

S=14

SEQ 0174

CZRMQBO RMOS/3/2 DSKLS TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

EMT162
EMT163
EMI164
EMT165

EMT166

|
|
|
|
|

EMT167
EMT17
EMT170
EMTIZM
EMT172
EMT173
EMT174
EMT175
EMTi76
EMT177
EMT2
EMT20
EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMTZ211
EMT212
EMT213
EMT214
EMT21S
EMT216
EMT217
EMT22
EMT220
EMT221
EMTZ22
EMT223
EMT224
EMT225
EMi226
EMT227
EMT23
EMT230
EMT231
EMT232

EMT233

EMT234
EMT235
EMT236
EMT237
EMT24
EMT 240
EMT241
EMT242

EMT243

39=-240#
39=2424
39=-2444
392464
392494
39-251#
8-46
8-193
39-255#
39-257#
8-202
8-205
8-208
8-211
39-268#
8-6
8-49
8-217
39-271#
29-273#
39-275#
39-277#
39-275#
39-281#
39-284#
8-52
39-286#
39-288#
39-290#
39-2G2#
39-295#
39-297#
39-299#
39-301#
8-55
39-303#
39-305#
39-307#
39-309#
39-311#
39-313#
39-315#

39-317#
8-58
39-319#
39-321#
39-323#
39-325#
39-327#
39-329#
39-331#
39-3344
8-61
39-3364
39-338#
39-340#
39-3434

39-31#4
36-253#
39-259#
39-2614
3G=-2644
392664
39-44

39-33%

39-2694

36-35#

35-37#

39-39#

30-414

4=APR=-81

G 14

(01:29:56 PAGE

S=15
SEQ 0175

CZRMQBO RMOS5/3/2 DSKLS T1ST l
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01=05 )

EMT 244
EMT45
EMT246

EMT247

EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270
EMT271
EMT272
EMT273
EMT274
EMT275
EMT276
EMT277
EMT3
EMT 30
EMT 300
EMT 301

EMT302
EMT 31
EMT32
EMT33
EMT34
EMT 35
EMT36
EMT37

EMT4
EMT40
EMT4T

EMT42
EMT43
EMT44

EMT4S
EMT46
EMT47
EMTS

EMTS50
EMT51
EMT52
EMTS53

39-3454
30-347#
39-345#
36-352#
8-64
39-3544
39-3564
39-359#
39-3614
39-3634
39-365#4
39-368#
39-370#
8-67
39-372#
39-375#
39-377#
39-379#
39-381#
39-384#
39-386#
39-388#
8-70
39-390%
39-392#
39-3954
39-397#
39-399#
8-196
8-130
39-405#
8-9
8-73
39-407#
39-410#
8-214
8-76
8-79

8-82
8-85
8-88
8-91
8-94
8-12
8-97
8-100
8-103

8-106

39-76#
8-112
8-115
8-118
8-15
8-121
8-124
8-127
39-90#

3G-434

39-452

39-48#4

39-401#
39-403#

39-6#4
39-50#
39-412#
39-524
39-544
39-56#4
39-58#
39-60#
39-62#

39-744

H 14
&=APR-B1 01:29:56 PAGE S=16
SEQ 0176

CZRMQBO RMO5/3/2 DSKLS TST 2
MACRO V04.00
CROSS REFERENCE TABLE (CREF vC1-05 )
.
|

I
|

EMTS4
EMTSS

EMTS6
EMTS?7

8-133
8-136

EMT6

EMTE0
EMT61
EMT62
EMTE3
EMT64

EMTES

EMT66

EMTE7
EMT?7
EMT70
EMT71
EMT72
EMT73
EMT74
EMT?7S
EMT76
EMT77

EMTVEC
ENBSCH
EQUALS
ERR
ERRNMB
ERROR
ERRTYP
ERRVEC

ERTYOO
ERTYO1
ERTYO2
ERTYO3
ERTY04
ERTYOS5
ESRC

FO
F1
F2

F3
Fé

FER
FMT16
FNCDTB
FNCMSK

GE TBUF
GNS
GO

GTSWR

HCE
HC]
HCR(

30-152
30-39

4-823#
L&-693#

L-6924
4-6914
4-690#
L-689%

4=775#
L-8454
37-55#
4{=6954
7-04
5=1

33-1
33-1

L~6944
19-61
9-28
4=7728
4(~-8514
4=7714

39-92#
39-944
39-964
39-G84
39-134
39-100#
39-102#
39-1044
39-106#
39-1084
39-1104
39-112#
39-114#
39-15#
39-117#
39-119#4
39-121#
39-123#
39-125#
39-126#
39-128#
39-130#

4-APR-81

I 14

01:29:56 PAGE S=17

SEQ 0177

Q=23
13-635

9-23»
13-690

13-816

13-927

13-:05

30-49+

30-52

30-57

30-64

30-160#

9-23+
28-1+

9-23+
28-1x

9-25+
28=1+

9=26+
28=1»

13-741

13-743

13-811

13=:00

9-28
33-1
33-1
13-688

33-1
33-1
13-814

9-42

9-353
33-1
33-1
13-925

33=1
33=1

13=:45

37=77

37-78

37-81

37-86

30-13#
9-23
28-1+
30-165#
30-166#
30-167#
30-168#
30-169#4
30-170#4
19-124

4-781
13-559

5-1
33-1
33-1

13-562

33-1#4

4=781
13-781
4-781

13-,72

13-295

13-822

16-3#

159+

15-25+

15-46+

15-47~

13-:60

13-=37

13-281

13-B16

14-20

33-1

33-1
33~1

33-1
331

33-1
33-1

13-=38

13-286

-13-B20

16=19

1717

28-1

19-128

9-60

33-1

CZRMQBO RMOS/3/2 DSKLS

CROSS REFERENCE

1AE
IBSAVE
IDXMSK
1E
ILF

ILFQ2
ILF24
ILF26

ILF30

ILF32
ILF34
ILF36

10-17

L-6824

L=769%
29-1
(£-9134
L=G264

L=7754
37-84
L{-6594

J 14

01:29:56 PAGE

S~18

SEQ 0178

27-1
37-69
29-1

30-90
37=77
29-1

37-78
29-1

37-81
29-14

37-82
29=1+

29-1+

37-85

37-86
29-14

37-58
37-87

37-67
37-88

37-68

37-70

37=71

37=72

37-73

37-74

37=75

37=76

13-78

13-93

13-11

13-124

13-165

13-189

13-222

13-238

13-428

13-432

923

9-23~

37-60
37-77

37-63
37-79

37-64
37-80

37-67
37-81

37-68
37-82

37-69
37-83

30-88

643-118
43-190

43-178

43-179

43-180

43-181

£-959#

37=79

37-80

37-83

37-70
37-84

37-71
37-85

37=-72
37-86

37-73
37-87

43-182

43-183

43-184

43-185

4=7144

ILRGS4
ILRG56
ILRG6O
ILRG62
ILRG64
ILRG66
ILRG70
ILRG72
ILRG74
ILRG76
IOTVEC
IPCKO
IPCK1
IPCK2
IPCK3
IR

4£-9104
4-910#
4-910#
4=9104
L&=910#
4-910#
4-910#
4-910#
4=-910#
4=-910#
L-682#
4L-9634
L=962#
L-9614
4-960#
4-939%

1BC
LBT
LCLOCK

4-APR-B81

4~7144
L~7144
L=7148

L~7144
L(=7144
L4=7142
L=7144
4=717#
L=718#
L(=7214
L{=7228
4=725#
L=7264
4L-7784#
4-910#

IvC

L5264

27-1
37-59
29-1

MACRO v04.00
vd1-05 )

4&-709#
4=7104

ILF40
ILF&2
ILF&4
ILF46
ILFS4
ILFS6
ILF64
ILF66
ILF74
ILF76
ILR
ILRGS0

ILRGS?2

(CREF

4-9104

L-8784

37-74

37-88
4-880#

LCOUNT
LF

L=755#
15=27
15-29
4(-682#

LODEV
LS
LS¢
LS

9-130
4=832#
4L=879#
4-833#4

43-186

13-13

37-58
37-75

15-56#4
15-70#

27-1

43-187

36=254

13-34

37-59
37-76

—

HELP
HT

TABLE

TST

43-188

43-189

IRMQBO RMQS/3/2 DSKLS TST 2

ROSS REFERENCE

(CREF

Vv01-0S

)

K 14
&-2PR-81 01:29:56 PAGE S=19
SEQ 0179

20-27

48414
4=753#

9-110

O%87‘78M9NV%ON oLalabalaaaa7(.L[cU>S]7R«%

ooLLllaallalaliaallaaollloaall

C-O NO——el O

NA BDA0

eNMMM
~e~ MMMM~ONO—
APy
O-MMMV
O.M [MMMMO
nNNeMMMMMMN
=%% I220nNMN.8INP
0gL}al—aO~ lalUva0laNUL\lINDaOl
OONOO S
ma749719
YRR
Y
R
OOO O\ N
gLolBarlalal
leoa loNMSTd
gLaloalal
l l al d

7CN.V%A9:I6<T>JOEATNIL]“[

MOH
MOL
MR1AAA

TABLE

MACRO V04 .00

[|0 - L[N Ov-=\ tLt AOM—Tt e kLAWY eNy B0VATNM -o0 TYSIN

MSER
MSGDRV

MSHELP
MUR

MWD
MwP
MXF

NDTMSK

NED
NEM
NONE

NOP
NOTAVL

13-902
21-19

4-810#
11-68
10-11
4-808#
13-715
13-901

19-114
21-19
4-8314
4-813#
4-936#
10-19
4-781#
4-9334
4-9344
11-7
4-698#
9-117

13-641
13-720
19-120

13-642
13-723
20-10

13-656
13-724
20-11

4-835
13-718
13-902
19-119

13-587
13-719
16-16
19-120

13-641
13-720
17-14

20-10

13-642
13-723
19-23

20-11

20-21

13-:10

13-:36

13-<50

13-<95

13=-A37

13-9

1325

13-30

13-44

13-597

37=57

37-58

4-835
13-719
19-119

36-19#
36-74

13-657
13-829

20-21

13-656
13-724
19=24

13-658

13-830
20-22

13-661
13-856

-—

20-25

13-662
13-857

20-26

13-696
13-872
20-27

13-658
13-830
19-38

13-662
13-857
19-57

20-27

37-62

13-657
13-829
19-37
20-22

20-25

13-661
13-856
19-56
20-26

37=59

3762

37-61

13-697
13-873

33}32

O MMM

36-18#

3O Ne0Oy

10-64
4L-887#
4-805#
13-718

1[:.}8

Ne&.yA.AS/%.\T,oCJ,O.RV_Y
-

MRD
MS
MSC
MSDRVS
MSE
MSEN

20-28

13-698
13-890

21-10

13-699
13-891
Z21=-3?

13-715
12-901
21-18

13-696
13-872

20-28

13-697
13-873
19-106

21-10

13-698
13-890
19-107
21-11

13-699
13-891
19-113

21-18

37-63

37-64

37-65

37-66

19-82

36-304
9-88

36-17#

36-27#4
36-26#
36-24#

CZRMQBO RMOS5/3/2 DSKLS TST 2

CROSS REFERENCE

~ OR
-

|
|

PACACK

PAKACK

PAR
PAT
PCLOCK

PCOUNT
PDA
PFECH
PFECHI
PFECHZ
PFECH3
PFECH4

PGE
PGM

PHA

PIP

FIRQ
PIRQVE

PLCLK
PLFS

PLSTP
PRO
PR1
PR2
PR3

PR4
PRS
PR6
PR7

PS
PSEL
PSTOP
PSW

PUTBUF

PWRVEC

QUES
R6
R7
RD
RDCHR
RDL IN
RDOCT
RDY
READY
READY1
RECAL
RESREG
RESVEC
REX
RG
RH

RIP

RLEASE

37-67
37-81

{-938#
4-708%
L(=707#
L{=7764
4=9414
15-13
15-15
48264

30-67
30-172
30-172
30-172
30-172

4-935#
L=7564
4&-8274
L=752#
L-682#
L-682#
15-54
4~8244

22-10
15-82

L(-682#
L-682#
L6824
L-682#
4{-682#
L-682#
L-682#
L(-682#
4-682
L{=922#
15-14
L-682#
7-0#
L-682#

36-5#

L-682#
L-6824
4=7234
10-12

32-1

10-35
4£=925#
11=37#
11-35
4=701#

30-156

4{-682#
4=-822#
4=820#
L4=7240
L=706#
4=703#

TABLE

(CREF

MACRO Vv04.00

v01-05

)

L 14
4=-APR-81 01:29:56 PAGE S~20
SEQ 0180

37-68
37-82

37-69
37-83

37-70
37-84

37-71
37-85

16-19
4-708

16-28

19-61

19-70

15=52#
15-65#
13-a223

13-a67

13-a77

13-:96

13-<02

37=72
37-86

37-73
37-87

37=74
37-88

37=75

37=7¢

13-a91

13-3%2

13-395

13-A15

13=C19

13-(23

13-<62

13-<66

13-223

13-A60

13-A62

13-879
22-14

13-881

13->50

13->53

13-228

13-735

13-B42

13-849

159

15-16

15-30

15-62

9-23»

34=12

34-1n

Bels

3=le

34=1»

9-23

9-23«

9=23x

13-925
10-65

13-:03
10-82

13-820
311

10-49

33-1#

14-16
11-464

14-20

30-172#
30-173#
30-1764#
30-179#
30-181#

15-58#

13-840
22-13
15-86#
11-49

15-64
9-26
15-61
4-682#
15-81#

33-1#

33-1#
19-90
13-=38

19-95

33-1#

37=77

37-78

37-79

37-80

13-B62

13-68

13-B71

21-21

C ZRMQBO RMOS5/3/2 DSKLS TST 2
MACRO v04.00
C ROSS REFERENCE TABLE (CREF v01-05 )

RMCS31
RMCS30

RMDA

RMDAI
RMDAO

RMDB
RMDB
I

7-0#
4-9734
7-0#
7-0#

4-893#4

13-410
7-04

13-469+
7-0%

13-B14+
4-971#
7-0#

13-79%
13465+
13-86*
13-471
13-557«
13-B15+
13-60

13-86
13-469
13-95
13-486+
13-628«
19-75

11-59

7-0#
7-0#
4=907#
7-0#
7-0#
4-895#
13-426*

RMER1I
RMER10
RMER2

RMERZ21

13-663
7-0%
13-430+
7-0#4

13-448+
13-62
13-112+
13-430
13-702
13-120+
13-432+

13-409+

13-166+
13-482+
13-181x
13-489
13-683+*

13-446*

4-APR-81

M 14
01 129:56 PAGE S=21
SEQ 0181

19-79
13-428+

13-546

13-173~
13-486
13-194~

13-181
13-501~
13-200

13=217+
19-75+
13231«

13-223«

13-231

13-265+

13-272

13-382+

13-388

13-404+

13-244

13-272+

13-281

13-388+

13-391

13-410+

13-413

13-810+

13-920+

13-998+

13=:40+

13-;58+

13-,59+«

13-233«

13-=34+

13-7279«

13-280+«

13-267+

13-274

13-367+

13-371

13-427+

13-431

13-274+

13-291

13-371+

13-374~

13-520

13-538

30-26

~332%‘2MmN&&I&NINMONUINUMWO
e©Ne®R—3L&L1%Cs”.%ls15V7ACW.“*2O41N0O3
43W#a1%3Ia1WN%W1OS/;u1)x‘n1/aw,n1)a/s1:)y.(~3]oI]&Q,73%Q348RN3IW37BLa0OYo)Naz.4%B,]312—N\/R7WO..iFn37493.oNS.|[LT.71\w?u.[,}«427>5A?“=.C?4A”-&¥*.lm%0&9..C4%2&5l.30.14%RA38:0Nd5A146TN.e8y1OVo4*8OMRaN6%9ROV*+iFA243WTEV%”a1%NO7045WRNd8C%(OE%r2O.R49N#“9B753A
o)Falattalalelalalalelelol SRN g RR AS

»
*
L
R
*
*
k
Y
L3al MY-B-—--&7 -TB&o *YEp-o&yrT*MsnLyd&YMe-- M-eg-OS*ANIO~LMMN-xNRMy*eNN—eO(SVM&OR1O«eRMrI*&TSMvIeeIMIONeRhOTM&ATVO*eRrM—Ae=NY&IMTR*NOLDUATMROONeYO&INMT¥—eOOr—N*M JA~*e—(©T-h2d]
«A0L-ye-—l 3M-&*%O&O&D®&%V«&,-®~ M-1 M-NMM -* OityNo~¥Yo—LeeaIlelNga-lx&Ta¥lR«a&Ol¥alV&aR¥*la¥*lSa«&l&*a0lx&alV¥&a*xl
v —NOv o2 ~ O &&x&OM&«ONOONOCNT*IOwOO

EREATaSRAW“xFGR.RSNZNARORSERRoMN~-LLeoe0—ON-W--X1aa|]lllQCS&-*RC3-.3B-2Rg2—VoNSwY-\"W=lOC—l&wOP405NNr\%a2IlNB—&O~O3NrLa0%MWDlo-®O&a—KM*OlLnr.2N8-0—ao&P—UgOMl~or4AM28A~a—owlxNbFR—RZmyo&--MoBMNS-4oT11R]NyevT8OlT0o[-N0MM-51”V]]«*—[.«1&0e-NO%>O%¥*3_O8[1VN>0o1N—2]¥x-4ToN8.V7[O94%[¥NTN&1A~e-.o%M6~7eeelAel.o7%MceJN-AeelO.5Ogo3&e14l0MRlDlMse87l~1dDlYTNS|N~gg780”lMlDLZ2eNREaM~7O9B7l5DolMl3aMo%e2ldVsRlOl\PooV8eP32=lDI-YMlES~aIoBM1“8lVlMO*l&F+EaYIV974lNoMMOTlR*Ma®YOo3T9lNMBNE0M-lANOLa‘oo6F%MONWaCdxlMllYEoO410TMa%lLYOAlO—S8L58MaRlML*NNllog—QoTralxaeo©l
[[————

|
——————
——————

————

CROSS REFERENCE

CZRMQBO RMOS5/3/2 DSKLS TST 2
TABLE

(CREF

v01-05

MACRO V04.00
)

N 14
4-APR-81 01:29:56 PAGE S=22
SEQ 0182

O-—o2;31y -O—e 'NABOAeoCNOLOVN—R~bOL2@ohAShkynhtonde P?1%AsLarog2ragl:

M-

CZRMCBO RMOS/3/2 DSKLS TST 2

CRCSS REFERENCE

SC6

SCOPE

SCTCMP

SCTMSK
SEARCH

SEEX
SETLFS

SETOM
SETVWV
SHUT
SIZCLK
Sk]
SNGPRT
STACK

STANDA
START

START1
START2
STkLMT
STOPCL
SwO
SwW00
SwO1
Sw02

SW03

SWO4
SwWO5
SWo6
SwO7
Swo8
Sw09
Sw1
SW10
Swi1
Sw12
Sw13
Swi1é
Sw15
Swe
Sw3

(=794
L-6824

13-617
13-819
L=7974
4=7114
&=7004
13-933
17-134
16=-13#
31=1
11-28
4=-8764
L=-B44a

TABLE

(CREF

MACRO v04.00

v01-05

)

B 15

4-APR-81 01:29:56 PAGE 5-23
SEQ 0183

13-930

13-73
13=-:37
13-:08

13-:54

13-:50

13-=29
13-;75

13=-:11

13-a0?

13-828

21-64

31-1
15-5#
13-152
13-521

31-3#

13-52¢
13-1
13-995

13-531
13-73
13-:37

13-106
13-.54

11-33

11-42

31=5

13-591

15=14»

28-1+

9=23
9-28

9-23+
29-1
31-1

13=-=11

13->91

13=1
13-995

9-23
13-917

10-3#
9-17#
9-14#
9-18#
13-572

13-106

13-137

13-159
13-275
13-=43

13-326
13-810
13-798

13-518

13-543

13-825

20=7#

13-137
13-=29

13-159
13-775.

13-326
13-810

15-28+

19-94

19-102

20-17

9-23+
29-1
31-1

9=23«
29-1
31-1

9-28
29-1

29-1

14=9

13554

13-601

13-671

13=746

13-806

13-518

13-543

13-55¢4

13-601

13-671

13=746

28-1
30-14

28-1
31-1

28-1
34-1

28-1»
34-1s

4L-682%
4{-682#
4{-682#4
L-682#
L-682#
4{-682#
L-682#
4{-682#
L-682#
L-682#

30-14

Swé

SW5

Swé

Sw?7
Sw8
Sw9
SWR

SWRE
G

9-23
28~1+

9-23

SYSTAT

36~204

TA16

11-63
11-63
11-55

TA1

TA2

TA4
TA8

28-1

CZRMQBO RM0OS5/3/2 DSKLS T1ST 2

TADMSK
TAG

L=7458
4(-865#

TAP
TBITVE

4=-840#
L{-682#
7=0#
L-682#
4=-682#
{~-682#
4=920#
4=682#
48664
13-1#
13-543#
13-554#
13-601#

TAGADR

T IME

TKVEC
TPVEC
TRAPVE
TRE
TRTVEC

TST
1Si1
TST10
TST11
IST12
TST13
TST14
TST15
1ST16
1ST117

TST2
1S720
1ST21
15722
1S123
TST24
TST3
TST4

1ST5
TST6
1817

TSTNMB
TSTQUE

TYPBN
TYPDS
TYPE

TYPOC
TYPON
TYPOS

ul
ue
UNTMSK
UNTOFF
UNTON

USE

5-S#

13-671#
13=-7464
13-806#
13-917#
13-995#

13-73#

13-:37#

(CREF

v01-05

)

SEQ 0184

6-0
15=58+
3=

31=1»

9=23»

9-23+

28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
28-1
30-45%
11-8

13-671
18-11
33-1#

14=20
9-28
9-133
10-48
11-14

15=71»

30-47

11-9=
13-746

30-143
9-42
9-134
10-54
11-25

15=73»

30-159#
11-50
13-806

33-1#

9-48
9-135
10-61
11-30

11-58
13-917

9-53
9-142
10-62
11-67

13-73
13=-:37

10-16

13-106
13-:54

9-77
10-17
10-75
14-20

13-137

13-=29

13-159
13-275

13-326
13-810

9-83
10-20
10-87

9-108
10-28
10-92

9-114
10-32
10-101

24~1

30-20
30-152
31-1

30-21
30-154
31-1

30-40
31-1
31-1
31-1

30-53

33:1c

31-1

10-47

30-39
31-1
31~}
30-146

9-56

9-82

11-16

11-69

30-52

33-1#

10-33

13-150
13-12
36-28#
36=29#

13-33

30-104

&1
30-110
311

—

.
.

TABLE

C 15

4-APR-81 01:29:56 PAGE S=24

—h

' CROSS REFERENCE

MACRO v04.00

26~1
30-114
3=

13-543
14-13+

13-554
14-17

9-117
10-34
11-3

9-123
10-40
11-6

27-1
30-126
31-1

29-1
30-132
31-1

CZRMQBO RM0OS/3/2 DSKLS TST 2

CROSS REFERENCE
|

WAT(H
W(

WLE

WRL
XNUDC
XNUERZ2
XNUOF
XSI7
XXDF

7=04
4-829%
13-:26
13-A78
4=7154
4=9314
4=9564
4=957#
L=774L8
L=7164
4&-719#
L&=7204
L(-768%
4=7544
4(~-858#
4(-883#
4-853#
9=714
7=0#

36-31#

TABLE

(CREF

37-77

MACRO v04.00

v01-05

)

D 15

4 ~APR-81 01:29:56 PAGE

S~25

SEQ 0185

37-78

4-781
13-562
13-:45
4(-781

13-97

13-191
13-192
13-99
10-102

13-125
13-81
10-71
9-33«

13-:70
37-81

9-36+

13-688

13-814

13-286

13-225
13=2¢27
13-190

13-240
13-241
13-224

13-292
13-302
13-239

13-295
13-305
13-286

13-374
13-396
13-289

13-435
13-418
13-393

9-37

939+

9-44

9-55

9-126

9-128

37-82

13-457
13-473
13=415

13-507
13-510
13-454

13-505

"%MeSI8n0NTO”w~O]nN"45yon%~w],NM MM
5on7d”8 v

o=3o MRRM MI - e
B—NOMRy
g ONONN0W0E0Y00E0 V]M MULM

-—

0U
0 0 00 0 M[
0T
0O—00O0 00 N0 M

s NINDer=v=v=

Mo (2] M\[n

OuASFyMON 3O—~Oy

N O-M

3M —

- ¥

0NON00 0 OS00 0
oo
0T0 0PTT
000

MmN ]1| L)TAMl

M M

M -

v01-05)

M —

(CREF

——— [¥ - OMMMNMNR H'R.0ES7aNM.SIT%NON1 “~5N8
LA

TABLE

—
—=

CROSS REFERENCE

MACRO v04.00

-~
-—
0 0 0 0 0 M-—

i—C.r~ QOe O
—MD2M2D
5ok

NoW M-

- —r—r—-r—

| $SCMRE

00UL00000000U0 MM| MMo1o1\o
0EOOUL0000 0000000 NMM1 M) oMMt e=
i
7
0 0N0 0 0 M] M1
0NO3We0N¥=nM0O4B0N0 oMN|£5 O~[ ~
—8NNMM~0—1=-e5—n% NCo~]r o-

O S

CZRMQBO RM0S/3/2 DSKLS TST 2

e L)

MLRYA.Ro?.C%EONReE=rAN00o3TANUnO0I4ONN0T40i0%4[4WNOR45M] 08MNLWZ8N-MNE8R5MYwnivM-FN—hsBo5LGB|yAr}oRg%-luie0r.4AadLe.RER—3.lwd%.asAiMy.SRr@.tY4A.Ely.eRiL4.GwA.ia4Md.TRAl.iN4R.ht4w.d4o.L4U—A.BO4D.0Gnu4-A.MyA4E.FR4oh.~ARM.MSE.LIHdo.E>LY4.ueMR«tM<3MsgM=o-NielhNaHto2~lrNwhMd£Qq&——nhrMoB-HoLOM 3©Eo[U lH
oWONoON~ger\——OW—J0=e eOWN-]lNL ewgOVynL~0¢ ]~ o~o(]NwlM0o(Mg2eI]1lt]. g—Nl11LL—m~o1aatLNllw1oMNOy—anYNl]ON OM [1U ]
o
)ONODeSr—erO—r— sNN -~—5N]M| Lo]1[al M©-i1i—
NWO w@ VaoovE83¢H0ouo-wwuw
|

4 =APR=81 01:29:56 PAGE M=-1

E 15
SEQ 0186

-—

CZRMQBO RMOS/3/2 DSKLS TST 2

CROSS REFERENCE

13-233

13-274

13-371

13-431

13-503

13-234
13-254
13-235

13-275
13-C43
13-276

13<370

13449

13-485

13-390

13=470

13-504

13-768
13-:34
13-266
19-123
13-<22
13-232

13-782
13-.87
13-290

13-796
13-<13
13-A14
21-20

13-833
13-<48
13=-A35

13-878
13-<93
13-A91
22-9

13-137
13-=29

4L-6824

13-10%6

13-137
13-=29
13-137
13-=29

13-947
13-=78
13-861

13-962

13-986

13-C18

13->22

13-C73

13-:25
13=>41
13-(92

22-25

13->00

13-554

13-601

13-671

13-746

12-806

-159

13-518

13-543

13-554

13-601

13-671

13-746

13-806

13-518

13-543

13-554

13-601

13-671

13-746

13-806

34-1
34-1

35-1
35-1

35~1
55~1

35-1

19-61

19-85

34-1
34-1

13-165

13-172

13-222

16=19

17-17

13-173

13-217

13-223

13-382

13-404

13-219

13-225

13-267

13-427

13-445

13-174

13-226

13-177

13-227

13-618

N\ ~
Vo v

2=1
271

13-903
13-=57
13-B41

13-502

13-:54
13-106
13-:54
18-12
18-8

13-699
13-794

13-620

13-482

13-501

13-497

19-76

13-366

13-481

13-500

16-17

17-15

13-384

13-466

13-484

13-498

16-18

N
B
OO

13=-766

13-236
13-411

13-610

13-543

4-498%
13-917
4L-682#
4L-682#
L=4604
4=324H
L=4L684
4=309#
4=3404
4=3644
4=3324
L(=3724
43484
43964
L4=4L124
4=4204
4=356#
19-59
4,-388#
17-16
4=4 284
4=-380#
4=4364
13-680

21-32

13-594

13-518

13-917

13->09
13-389

b d

L-682#

13-=66
13-273

13-106
13-:54

21-12

13=575

4=200#
4=240%
4=1924
L=2484
13-:86
13-219
19<25
42564
4=2644
L-682#
L4=216#
4L-682#
L(-128#
4=112#
L84
13-917

—
W
TMY

19-62

13-658
13-724
13-872

13-661
13-753
13-873

13662

PUTHR
PUTLA
PUTMR1

13486

PUTERZ2

13-410

—

PUTDT
PUTEC]
PUTEC2
PUTER1

13-388

vnnuuruuu
1
¢
AL

PUTDB
PUTDC
PUTDS

13-272

NN
O—J-—.
(VLW
, LVe ]

PUTCST
PUTCSZ2
PUTDA

13-231

W\i"w

POP
PUSH
PUTAS
PUTBA
PUTBAE

13-546

PN =

NWTST

13-230

—d
o

MULT
NEWTST

41684
13-648

13-180

wviwirg

GETMR2
GETOF
GETPRI
GETSN
GE TSWR
GETWC
GETX
MSG

4=1364

L=2804
4=1204
4=152#
&=1764
L4=1444
L=-1844
4&=1604
42084
4=2244
4=232#

—_——

CETERZ2
GETHR
GETLA
GETMR1

SEQ 0187

Cony oo

GETECZ2
GETER?

)

F 15
4-APR-81 01:29:56 PAGE M=?

WL'NW

GETDA
GETDB
GETDC
GETDS
GETDT
GETEC1

v01-05

b cndd

GETCS2

(CREF

GE TBA
GE TBAE
GETCST

TABLE

MACRO v04.00

13-483

19-75

13-755

13-850

12=-679

13-756
13-891

b Ry R TRy

eL[xunuunununw aDA-Oi—»ANsIXnVO
i

isT¥NSYITtOVT

N Mo

)

v01-05

& heNe—OON
bhebwhdt

(CREF

bg s B

TABLE

MNIIAM OO PNMROIROnNo

CROSS REFERENCE

MACRO V04.CL

MN.MNWN M M M M MNOON

CZRMQBO RM0S5/3/2 DSKLS TST 2

Ii Ny = M o — —r—reee0NN

MMM

MY oA —O\MMM

AoONTTl0|MF-.MNE00dN=iMvR-o—|:SoNTA—0OR¥A{RAL“MJO=P—=IRJoR*DI—AMMNWMMNM1%AIVm)NsNIM(AYtNOo——AcR3MTTyAR¢}(oLMMM——XALAR]MM5AONRANRwMo—'LO-M—InNIRYoMeh)Ny=R—OAERFI0L0RNhOM0-OA0eiMM T—f7-—1—lMoAh000dOM0—NSReTM—NL~0reO0NMO( Ot——rAeMNMVNMO——N0hrOAMIO—OTMeArhNOOTMNOr—T—OOYerbNLR0OeI——ICNOU0rTdYONTO%IONe—LO
O|oOTeI!]oRY>M5N]|]. =M[|—)OMgeN|N/5OeM[L ][ wo—M- N Oo wO~ nMM o—11B ]]] ]] ny0—MW—OTERI~ONrFMPuONT—nW—rNMEOOyrNWR00WOeWVML—SIOOMF—NeT
0My—- M ~-z 0—Nr—rO—OrM—ee——W
pTtumEeaUpuTPiy Myvie oo| —TIeyEIVYAELT—0

% s n S Pl

>vo-~vNO2W1Lay~13E=X)QwMA1>R31qNd>%Eam3z1e2>NwW45G3M1D40WooMN08%yXneMM3OV:MNOVst-eo8i4MO1—mN[tV%=wM=e*-2OMODu1nMna%4O0m—Y:I)ewTmv4Tx¢NH4TFWL5eWLL(]MNg—aFAaAe—vA~,4llyL0NMlnL\TA4%QRMoSSUI.oLRT)-MWwM-lon]colaAnO¢lVARBNWW=BIHMVfWAFWiOoMNTNM-3oOM0(-—TWNwMLy\0n—CEoN4——cEMC—oVB.rr-A2-MMSMMO—o4—O@LMIMr%TrMMCON——MY2ONPOcMArO324rNSeMNI-T1NMMoOYMu%—Ne0VMieNegN7TnY74—N]—OseMOe%Ml0uoOlS3S0:NNo0OONIlNtO04OOEc(Y
.

4 -APR=-81 01:29:56 PAGE M-3

G 15
SEQ 0188