Digital PDFs

AH-F934A-MC

June 1980

204 pages

Original

9.7MB

view download

OCR Version

8.5MB

view download

Document:	CZRMQA0 RM05-3-2 RM05-3-2 DSKLS TST2 JUN 1980 bw
Order Number:	AH-F934A-MC
Revision:	000
Pages:	204
Original Filename:	CZRMQA0__RM05-3-2__RM05-3-2_DSKLS_TST2__AH-F934A-MC__JUN_1980_bw.pdf

OCR Text

RM03/3/2

CzrMamo” Do ST Pich®ifoRCy

iy, w QBTN

1
8
11-APR-80 14:12:35 PAGE 1

MACRO v03.01
.REM

SEQ 0001

PN
b
b b ed e

d b ed b

= OVONOWVNSBWN=O
V0NN UIN

CZRMQAQ RMOS5/3/2 DSKLS TST 2

IDENTIFICATION

PRODUCT CODE:

AC-F933A-MC

PRODUCT NAME:

CZRMQAO RM05/3/2 DSKLS

DATE CREATED:

APRIL 1980

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR :

MIKE LEAVITT

TST 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

SOF TWARE DESCRIBED

IN THIS DOCUMENT

IS FURNISHED TO THE

PURCHASER

UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY FOR USE IN SUCH
SYSTEM,
EXCEPT AS
MAY OTHERWISE
BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIPMENT
g?clfigtIABlLITY OF

(C)

CORPORATION ASSUMES
NO RESPONSIBILITY FOR THE USE
ITS
SOFTWARE ON EQUIPMENT THAT [S NOT SUPPLIED BY

1980 DIGITAL EQUIPMENT CORPORATION

—

CZRMQAO RMOS/3/2 DSKLS TST 2

MACRO v03.01

1
c
11-APR-80 14:12:35 PAGE 2
CONTENTS
INTRODUCTION
1.

ABSTRA(T

UNIT UNDER TEST

OPERATING REQUIREMENTS
* 1.

2.
3.

HARDWARE REQUIREMENTS

MEDJA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

2.
3.

SWITCH OPTIONS
STARTING

OPERATOR INTERFACE

2.
3.

PROGRAM ID

PROGRESS REPORTS
PERFORMANCE REPORTS

PROGRAM HALTS

ERROR REPORTS

ENVIRONMENTAL SUPPORT
NONN
B W) —

ININ) =

b d d ) —d

D d =

=OVONONDWN—=O000NRNS
WD o

SEQ 0002

PROCESSOR COMPATIBILITY

DUAL PORT CONFIGURAT]IONS

MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

CZRMQAO RMOS/3/2 DSKLS TST 2

MACRO v03.01

i
D
11-APR-80 14:12:35 PAGE 3

1.0

INTRODUCTION

1.1

ABSTRACT

6
7
8
18

THE
RM0S5/3/2
DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH
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;

13
};

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

16
17
}g

1.2

20
g;

THE
UNIT
UNDER
TEST
(UWUT)
IS
THE
RM05/3/2
DISK SUBSYSTEM,
EXCLUDING THE STORAGE MODULE DISK DRIVE AND THE MASSBUS CONTROLLER.

23
24
Sg

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

29
30

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

35
26
37
38
zg

UNIT UNDER TEST

PDP-11 PROCESSOR

16K MEMORY

KW11-L OR LW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL
RH11 OR RH70 CONTROLLER
1 70 8 DISK DRIVES (ANY COMBINATION OF RMOS'S. RM03'S OR RM02'S)

2.2

NONE

47
48
gg

MEDIA REQUIREMENTS

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS

RM0S5/3/2 DISKLESS DIAGNOSTIC, PART 1

53
54,
gg

3.0

OPERATING PROCEDURE

3.1

SEQ 0003

CZRMQAO RMOS/32/2 DSKLS TST 2

MACRO v03.01

11-APR-80 14:12:35 PAGE 3-1

SEQ 0004
58
59
60

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

67
gg

THE FOLLOWING SWITCH OPTIONS ARE
SWITCH IS ON.

70
71
72
73
74
75
76

SW15
SW14
SW13
Swi2
Swi11
SW10
SW09

HALT ON
LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON

SWO8

INVOKED

WHEN

THE

APPROPRIATE

ERROR
TEST (CURRENTLY BEING EXECUTED)
ERROR TYPEOUTS
TEST ITERATIONS
ERROR
ERROR

LOOP ON TEST IN SW07-00

79
g?

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

82
83
gé

3.3

86
87

THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT
VALUES
OF
PARAMETERS AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL

RGN SCIBIRIRIACBERYRAREN2
83

) ad =D —md = —md
d cod cmd
b
) med and
d
—h

SWITCH OPTIONS

SPECIFY

STARTING

TO0 ZERO.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID
THE PROGRAM TYPES

ITS NAME AND MAINDEC NUMBER THE

IS STARTED AFTER BEING LOADED.

4.2

TIME

PROGRESS REPORTS
AN END OF PASS REPORT OCCURRS EACH TIME

FOR
ALL
ADAPTERS IN THE TEST QUE.
MESSAGE AND AN ERROR SUMMARY.

4.3

FIRST

THE PROGRAM

THE END OF

PASS REPORT

EXECUTED

INCLUDES A

PERFORMANCE REPORT
NO PERFORMANCE REPORTS ARE GIVEN

PROGRAM.

DURING

THE

EXECUTION

THE

MACRO v03.01

11-APR-80 14:12:35 PAGE 3-2

SEQ 0005

4.4

PROGRAM HALTS

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

THE PROGRAM.

4.5

ERROR REPORTS

THE

RMO5/3/2

DISKLESS

DIAGNOSTIC

REPORTS
INTENDED
TO
(1)
AID
REFERENCES TO PROGRAM LISTINGS.

PROVIDES COMPREHENSIVE ERROR

FAULT RESOLUTION AND

(2)

MINIMIZE

Y
D

=00V~

WIS W

RIS

PR PR P

I SN W

PR YR

bbbWWugggwwwwmmmmmwmmmwadaaa
WA= OV
NN
NN 20000~

CZRMQAQ RMOS5/3/2 DSKLS TST 2

143

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE UNIT NUMBER BEING
TESTED, DRIVE TYPE, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF

THE

PROGRAM COUNTER WHERE

THE ERROR WAS

CALLED.

THIS LINE

IS FOLLOWED

BY
THE
ERROR
MESSAGE:
SEVERAL
LINES
OF
TEXT
WHICH
GIVE
A
COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING
MODULES
IN
ORDER
OF
DECREASING
PROBABILITY.
THE ERROR MESSAGE IS NORMALLY
FOLLOWED BY ONE OR MORE PAIRS OF LINES
CONTAINING
DATA
HEADERS
AND
gegALTEERTININENT
U
-

THE

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

ERROR,

INCLUDING EXPECTED AND ACTUAL

TEST

[0.30 YoYo Yo Yo IV IV, 1V WAV VAV IV 1V, [V,

THE RM05/3/2 DISKLESS DIAGNOSTIC IS
EXECUTABLE
UN
ANY
PDP-11
:E?CESSOR,
PROVIDING
PREVIOUSLY
MENTIONED HARDWARE REQUIREMENTS ARE

5.2

THE

RMO5/3/2

DISKLESS

DIAGNOSTIC IS NOT EXECUTABLE ON RM0S/3/?2

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

5.3

MEMORY PARITY HARDWARE

MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE
THE RM05/3/2 DISKLESS DIAGNGOSTIC.

5.4

—

DUAL PORT CONFIGURATIONS

EXECUTION

MEMORY MANAGEMENT HARDWARE

MEMORY MANAGEMENT HARDWARE WILL
DISKLESS DIAGNOSTIC.

NOT

BE USED DURING

THE

RM0S5/3/2

CZRMQAQ RMOS/3/2 DSKLS TST 2

MACRO v03.01

.1
G
11-APR-80 14:12:35 PAGE 3-3

o
Rl

O R R8T
OO
[0 ] R R RAR 00
0o IVNNNN
88
RS
INIAN

SEQ 0006

5.5

ACT11, APT11

COMPATIBILITY

THE RMOS5/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES.
FURTHER, THE PROGRAM WILL

5SSEUTE A QUICK PASS DURING THE FIRST PASS

5.6

IN SUPPORT OF

QUICK

VERIFY

XXDP COMPATIBILITY

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

5.7

OPERATIMNG SYSTEM COMPATIBILITY

SYSTE;HE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

6.0

XXDP

OPERATING

ANY

TEST DESCRIPTION

THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST
?Eg;RALLY
USES
A
MORE
COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS

MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS

HAVE
BEEN
COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE
NONTRANSIENT HARDWARE FAILURES.

TO SINGLE,

4
i
Gihr i
S
Sihr S

OO ~NONN
NN —

AN 1N 1,
6T,81,§1,8]

THE
“RM05/3/2
DISKLES DIAGNOSTIC'' CAN BE EXECUTED USING AN RH70
OR AN RH11 MASSBUS CONTROLLER.
TEST

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

THE MODULES WHICH MAY BE
TEST ARE AS FOLLOWS:

CALLED OUT DURING THE EXECUTION

IF
CS
DS
MASSBUS MODULE

219

THE RADIAL MODULE

TRANSFER

TEST

(RD)

IS NOT

TESTED BY

THIS PROGRAM.

THE
THE

CZRMQAQ RMOS/3/2 DSKLS TST 2

MACRO v03.01

H
1
11-APR-80 14:12:35 PAGE 3-¢4

SEQ 0007

PURPQOSE
:

TO VERIFY THAT THE RM05/3/2 CAN COMPLETE A REGISTER TRANSFER
THE MASSBUS, AND, IM PARTICULAR, TO VERIFY THAT '‘TRANSFER''
S

ON_

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
Wit
THE
DEVICE
IS

PRESENT AND

SWITCHED TO THE APPROPRIATE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

(S MODULE

PORT.

CT0D TEST

PURPOSE :
TO_

,
VERIFY

THAT

DATA

CAN

TRANSFERRED

TO AND FROM THE

RMO5/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

CZRMQAQ RMOS/3/2 DSKLS TST 2

MACRO v03.01

1
I
11-APR-80 14:12:35 PAGE 3-5
SEQ 0008

gg?

MASSBUS INITIALIZE TEST

%gg

PURPOSE :

290
291
292

TO VERIFY THAT THE MASSBUS ADAPTER IS BEING
THE MASS BUS.

INITIALIZED

PROCEDURE :

gg?

PROBABLE FAULT:

%8%

ASYNCHRONOUS MASSBUS MODULE

304
305
306
307
308
309
310
3N

IF MODULE

(S MODULE

aldaaala

NN WWWNINW

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS
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.

[o ENTe JV, PV],V

295
296
297
Sgg

CLEAR STUCK ACTIVE

TEST

PURPOSE
:

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

AN ACTIVE STATE.

IS NOT STUCK

319

PROCEDURE
:

321
322
323
324

CONTROLLER CLEAR IS USED TO INITIALIZE
THE
SELECTED UNIT,
AFTER WHICH
1°'S
ARE
WRITTEN
IN ERROR REGISTERS 1 AND 2 AND
MAINTENANCE REGISTER 1.
IF ANY 1 BITS CAN BE READ BACK THE
TEST
IS OK, ELSE, "MBA (LR L'' IS PROBABLY STUCK ACTIVE.

326

PROBABLE FAULT:

328

CS MODULE

330

IF MODULE

332

ASYNCHXONOUS MASSBUS MODULE

338
340
342

TRISTATE TRANSFER TEST
PURPOSE
:
TO VERIFY THAT THE PATH TO

AND

FROM

THE

MASSBUS

ADAPTER

CZRMQAO RMOS5/3/2 DSKLS TST 2

MACRO v03.01

1
J
11-APR-80 14:12:35 PAGE 3-6
TRI-STATE

SEQ 0009

IS NOT STUCK AT ONE OR ZERO AND

BIT POSITION IS INDEPENDENT.

THAT EACH

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
QgSI%§0NNECESSARY
TO
OBTAIN
ONE
OR
MORE
ZEROS FROM EACH BIT
THE TEST CLEARS MASSBUS ADAPTER
REGISTERS,
THEN,
ASSUMING
THE
REGISTERS
ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS
MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS
IN
EACH BIT POSITION.
FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN
BIT
0
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE
READ BACK.
THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR
ALL
BIT POSITIONS.
PROBABLE

FAULT:

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

(S MODULE

DS MODULE

TEST

PURPOSE
:

TO VERIFY THAT
POSITION.

THE REGISTER SELECT LINES ARE NOT

IN A

STUCK

PROCEDURE
:

EACH REGISTER SELECT LINE

TESTED

WRITING

ZEROS

THOSE
DEVICE
REGISTERS
FOR
WHICH
THE LINE MUST BE ZERQ, THEN
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINL %WST BE
ONE.
THE
ZERQO
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 IN THIS CASE,

THE ONES REGISTER

IS WRITTEN FIRST.

REGISTER SELECT LINES 1, 2, 4
AND
8
ARE
TESTED
IN
THWIS
MANNER;
SELECT LINE 16 IS EXPLICITLY TESTED IN THE *‘ILR TEST''.
PROBABLE

FAULT:

CZRMQAO RMO0S5/3/2 DSKLS TST 2
40C
401
402
403
604
405
406
407
408
409

410
&N

_1
K
11-APR-80 14:12:35 PAGE 3-7

MACRO v03.01

DRIVE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

TYPE

416

47
418
419
420
421
622
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450

TEST

PURPOSE
:

412

413
414
415

SEQ 0010

TO TEST THE 'DRIVE

TYPE'' REGISTER,

RMDT.

PROCEDURE
:

THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT
CORRESPONDS TO A SINGLE OR DUAL PORT RMO5, RMO3 OR RMO2 DRIVE
PROBABLE

FAULT:

IF MOULE

DEVICE AVAILABLE

TEST

:
PURPOSE
TO VERIFY THAT DEVICE AVAILABLE

STATUS IS SET.

PROCEDURE
:

THE PROGRAM TESTS 'DVA'',BIT 11
PROBABLE

OF RM(S?

FAULT:

IF MODULE

SEARCH TIMEOUT

TEST

PURPOSE
:

TO VERIFY THAT

THE SEARCH TIMEOUT ONE SHOT SETS ‘OPI'’,

EXCEPT WHEN °''SEARCH TO DISABLE'* IS ACTIVE.
PROCEDURE
:

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]

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

469
470
4«7
472

473
4«74
475

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

MACRO v03.01 11-APR-80 14:12:35 PAG% 318
%3A¥08P?E£ET£?E
PROBABLE

TEST ENABLES SEARCH TIMEOUT AND VERIFIES

FAULT:

CS MODULE

NOTE :

SET DTE

SEQ 0011

IT IS ASSUMED THAT THE ''SET OP]
ALREADY PASSED, THUS MAKING THE
AN IMPROBABLE FAULT.

TEST'' HAS
IF MODULE

TEST

PURPOSE
:

IN ADDITION TO VERIFYING THAT ‘DRIVE TIMING ERROR'' CAN
BE SET BY THE (S MODULE, THIS TEST ALSO VERIFIES
6R ZESGT "MAINTENANCE SECTOR COMPARE'' IS NOT STUCK AT ONE
*

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

PROCEDURE:

(1)

INITIALIZE AND VERIFY THAT 'DTE’'‘
IS RESET,

SET MAINTENANCE

RESET.

THIS

INDEX PULSE AND VERIFY THAT DTE

TEST WILL

IS NOT STUCK AT ONE.

(2)

INSURE

THAT

THE

THEN

IS STILL

SECTOR COMPARE

FLOP

EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO

THE POINT WHERE SEARCH IS ENABLED,

IS ACTIVE.

I.E.,

P EN SFARCH H IS

SET AND RESET THE SECTOR PULSE TO SET ''CS3 EN

SEARCH'* FLOP, AND CLOCK ‘'CSS SECTOR COMPARE'' FLOP WHICH

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

I. STUCK AT ONE.

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 MODULE

FORMAT

CHANGE

TEST

CZRMQAQO RMOS5/3/2 DSKLS TST 2

MACRO v03.01

M
11-APR-80 14:12:35 PAGE 3-9

SEQ 0012
PURPOSE
70 VERIFY THAT A CHANGE IN FORMAT INHIBITS SEARCH
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 (OMPARE'’, THEN SET
"MAINTENANCE SECTOR PULSE’' TO CLOCK ‘''CS3 EN SEARCH'' FLOP

WHICH SHOULD NOT SET BECAUSE OF

THE FORMAT CHANGE.

(4)
RESET SECTOR PULSE TO CLOCK ‘‘CSS SECTOR COMPARE'’
FLOP WHICH WILL NOT SET IF ''CS3 EN SEARCH H'' IS INACT.VE.

(5)

SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING

ERROR IS RESET.

(#
SET AND RESET
CHANGE FLOP.

INDEX PU_SE

TOCLEAR THE FORMAT

(7)

SET AND RESET SECTOR PULSE TO SET ''C(S3 EN SEARCH''

(8)

SET SECTOR COMPARE AND VERIFY THAT DTE IS SET.

FLOP AND ‘‘CS5 SECTOR COMPARE'' FLOP.

REPEAT THE TEST WITH A FORMAT CHANGE FROM 18 BIT MODE

TO 16 BIT MODE.
PROBABLE

FAULT:

CS MODULE

PROM STROBE

TEST

:
PURPQOSE

TO VERIFY THAT WORD CLOCK AND PROM STROBE
IN MAINTENANCE MODE.
PROCEDURE
:

CAN BE MANIPULATED

CZRMQAQ RMOS/3,
2 PSKLS TST 2

MACRO v03.01

N
1
11-APR-80 14:12:35 PAGE 3-10

SEQ 0013

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

FAULT:

(S MODULE

DS MODULE

SYNC WORD COUNT INHIBIT TEST
:
PURPOSE
TO VERIFY

THE

FOLLOWING DURING READ COMMAND:

THAT ''CS4 P LFS'' (LOOKING FOR SYNC)

GOES ACTIVE.

THAT "LOOKING FOR SYNC'®' INHIBITS 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 OF THE SIGNAL.
THE
PROGRAM THEN SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES

THAT 'PROM STROBE'' NEVER GOES ACTIVE.

PROBABLE

FAULT:

CS MODULE

DS MODULE

IF PROM STROBE FAILS.

LFS FAILT,

SYNC DETECTION TEST
:
PURPOSE
TO _VERIFY THAT
RECOGNIZED.

THE APPROPRIATE

SYNC PATTERN IS

PROCEDURE
:

THE

TEST EXECUTES A READ COMMAND

USING BIT 10 OF

THE SYNC BIT STREAM,

AND USING PROM STROBE

THE SYNC PATTERN HAS BEEN DETECTED.
THE

IN MAINTENANCE MODE,

THE MAINTENANCE REGISTER (RMMR1)

SYNC PATTERN 1S98011001,

TO SIMULATE

TO DETERMINE

WITH THE LEFT MOST

CZRMQAQ RMOS/3/2 DSKLS TST 2

MACRO v03.01

11-APR-80 14:12:35 PAGE 3-11

SEQ 0014
628

BIT REPRESENTING THE LAST BIT OF

630

PROBABLE FAULT:

632

DS MODULE

634

(S MODULE

640

THE STREAM.

ABORT SYNC DETECTION TEST

642

PURPOSE
:

644
645

TO VERIFY THAT 'WORD COUNT INHIBIT'' IS RESET IF A
"DRIVE TIMING ERROR’‘ OCCURS DURING SYNC DETECTION.

647

PROCEDURE
:

649
659
651
652

A READ COMMAND IS INITIATED IN MAINTENANCE MODE.
WHEN
""_O0OKING FOR SYNC'' GOES ACTIVE, THE TEST FORCES A DRIVE
TIMING ERROR AND USES PROM STROBE TO VERIFY THAT 'WORD
COUNT TNHIBIT'' HAS BEEN RESET.

654

PROBABLE FAULT:

656

662

DS MODULE

SYNC GENERATION TEST

664

PURPOSE
:

666
667

TO VERIFY THAT THE APPROf
GENE :ATED DURING A FORMAT OPER

669

PRNCEDURE
:

671
672

THE TEST EXECUTES A WRITE HLC WEP ~ » DA/A "OMMAND
IN MAINTENANCE MODE, AND VERIFIES THA: . 'E (ORR 7T SYNC

£ SYNC PATTERN IS
*

673

PATTERN IS GENERATED BY MONITORING WRITE DAT/

676

PROBABLE FAULT:

678

674

684

TENANCE REGISTER (RMMR1),

DS MODULE

WRITE HEADER TEST

"HE MAIN-

CZRMQAO RMOS5/3/2 DSKLS TST 2

MACRO v03.01

C 2
11-APR-80 14:12:35 PAGE 3-12

SEQ 0015

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 AEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE
THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE
g?gjg?égACTER USING THE WRITE DATA BIT OF THE MAINTENANCE

MODE.

AN RM02/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

AN
RMO5
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:

DS MODULE OR MASSBUS MODULE

HEADER COMPARE

TEST

PURPOSE
:

TO CHECK THE OPERATION OF
ge;g BUFFER AS WELL AS THE (2)

(1) THE SHIFT REGISTER AND
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
HEADER WORDS AS WELL AS THE CRC CHARACTER.
THE CRC CHARACTER IS
IS FAULTED, AND THE TEST
VERIFIES THAT A CRC ERROR IS DETECTED.
ADDITIONALLY, THE TEST VERIFIES THAT HEADER WORDS ONE AND TWO
ARE CORRECTLY TRANSFERD TO MEMORY.
THE TEST USES THE SAME HEADER AS IN THE PREVIOUS TEST EXCEPT

——

CZRMQAO RMOS/3/2 DSKLS TST 2

742

743

MACRO v03.01

11-APR-80 14:12:35 PAGE 3-13

SEQ 0016
THAT BIT

15 IS INVERTED.

PROBABLE

FAULT:

DS OR IF MODULE IF CRC ERROR NOT DETECTED;

DS OR MASSBUS MODULE IF DATA INCORRECT

ECC GENERATION TEST
PURPOSE
:

TO CHECK ECC OPERATION DURING WRITE.
PROCEDURE
:

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

FAULT:

DS MODULE

ECC DETECTION TEST
PURPOSE
:

TO CHECK THE ECC GENERATION DURING READ.
PROCEDURE.

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

AND THAT
PROBABLE

TEST VERIFI ES

(2)

FAULT:

DS MODULE

(1)

THAT AN ECC ERROR IS DETECTED

THE POS ITION AND PATTERN REGISTERS ARE VALID.

CZRMQAO RMOS/3/2 DSKLS TST 2

MACRO v03.01

11-APR-80 14:12:35 PAGE 4

2
SEQ 0017

;PROGRAM VERSION #4001

683
684

.TITLE

CZRMQAQ RM05/3/2 DSKLS TST 2

s*DIGITAL EQUIPMENT CORP.
*MAYNARD MASS. 01754
*PROGRAM BY MIKE LEAVITT

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11
*PACKAGE

687

001100
104000
000004

—

——t —d —b

SWITCH

.SBTTL

MAINDEC SYSMAC

USE

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUTS

INHIBIT
BELL ON
LOOP ON
LOOP ON
TN128
TN64
TN32
TN16
TN8
TN4
TN2
TN1

ITERATIONS
ERROR
ERROR
TEST IN SWR<7:0>

BASIC DEFINITIONS

g;i@éTIAL ??88555 OF

ERROR
SCOPE

1980.

OPERATIONAL SWITCH SETTINGS

\......-Q.Q.\.I...Q..-!.!.Q..-Q...I

SBTTL

O=NIWH
NN N0V O
NS

685

(MAINDEC-11-DZQAC-C4),

= EMT
= IOT

THE

STACK POINTER *x*

1100 wx«

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

s*MISCELLANEOUS DEF INITIONS

;.CODE FOR HORIZONTAL TAB

ggu ps

= 177776

;;PROCESSOR STATUS WORD

= 177774
= 177772
= 177570

::STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
. ;HARDWARE SWITCH REGISTER

LF
CR
CRLF

177570

STKLMT
PIRQ
DSWR

DDISP

= 12
=15
= 200

= 177570

;.CODE FOR LINE FEED
;;CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN-LINE FEED

; HARDWARE DISPLAY REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

000000
000001

= X0

000004

R2
R3

= X2
= %3

= X1

s cGENERAL REGISTER

s GENERAL REGISTER

;. GENERAL REGISTER
; :GENERAL REGISTER

; :GENERAL REGISTER

r;ZRMQAO RMOS/3/2 DSKLS TST 2
BASIC DEF INITIONS

000007
000000

MACRO v03.01

SEQ 0018
RS
R6
R7
SP
PC

100000
040009

020000
010000
004000
002000
001000
000400
000200

=
=
=
=
=

X5
%6
%7
%6
X7

;s GENERAL REGISTER
; sGENERAL REGISTER
;s GENERAL REGISTER
;sSTACK POINTER
2 s PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS
PRO
=0
;:PRIORITY LEVEL O
PR1
= 40
JsPRIORITY LEVEL 1

PR2
PR3

= 100
= 140

PRS
PR6
PR7

= 240
= 300
= 340

PR4

000340

F
2
11-APR-80 14:12:35 PAGE 4-1

= 200

;sPRIORITY LEVEL 2
;:PRIORITY LEVEL 3

JsPRIORITY LEVEL 4

;sPRIORITY LEVEL S
;sPRIORITY LEVEL 6
J:PRIORITY LEVEL 7

;%" 'SWITCH REGISTER'' SWITCH DEFINITIONS

Sw15§

= 100000

SW14
Sw13
Sw12
SW11
Sw10
Sw09
Sw08

=
=
=
=
=
=
=

Sw05
SW04
SW03

= 40
= 20
=10

SW07
SW06

Sw0?2

40000
20000
10000
4000
2000
1000
400

= 200
= 100

= 4

SwO1
=2
Sw00
=1
SW9=SW09
SW8=Sw08
SW7=SwQ?7
SW6=SW06
SWS5=SWO0S
SW4=SW04
SW3=SW03
SW2=SwW02
SW1=Sw01
SW0=Sw00

000020

.*DATA BIT DEFINITIONS
BIT1S
= 100000
BIT14
= 40000
8IT13
= 20000
BIT12
= 10000
BIT11
= 4000
BITI0
= 2000
BITO9
= 1000
BITO8
= 400
BITO?
= 200
BITO6
= 100
BITOS
= 40
BITO4
=20

(BITOO TO BIT1S)

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

=
o

BIT03
BIT02
BIT01
BITO00
=
BIT9=BITO
3178=BI708
BI17=81107
BITé=BIT06
BIT5=BIT05
BIT4=BIT04
BIT3=81T03
BIT2=BIT02
BIT1=BITO1
BITO0=BIT00

—a ) S

000010
000004
000002
000001
001000
000400
000200

G ¢
11-APR-80 14:12:35 PAGE 4-2

;*BASIC ‘'CPU'" TRAP VECTOR ADDRESSES

ERRVEC
RESVEC

TBITVEC
TRTVEC
BPTVEC

I0TVEC

PWRVEC

EMTVEC

TRAPVE(
TKVEC
TPVEC
PIRQVEC

.SBTTL

;. TIME OQUT AND OTHER ERRORS
::fi$§§g¥$0 AND ILLEGAL INSTRUCT]ONS

;:TRACE TRAP

no
&~

BASIC DEF INITIONS

MACRC v03.01

Haonwnuwnwannitnnn

CZRMQAO RMOS/3/2 DSKLS TST 2

; :BREAKPOINT TRAP (BPT)
;o INPUT/0UTPUT TRAP (]OT) =xSCOPE*»
;sPOWER FAIL
;EMULATOR TRAP (EMT) x«ERRQOR=*»

;:2"'TRAP'' TRAP

;:TTY KEYBOARD VECTOR
;s TTY PRINTER VECTOR

; ;PROGRAM INTERRI¥T REGUEST VECTOR

RM REGISTER BIT DEFINITIONS

;*RMCS1 CONTROL STATUS REGISTER
004000

000040
000020
000010
000004

000002
000001
000077

DVA
Fé

F3
Fe
F1
FO
GO
FNCMSK

=8ITN
= BITOS

=
=
=
=
=
=

BIT04
BIT03
BIT02
BITO1
BIT00
000077

;DEVICE AVAILABLE-READ ONLY
sFUNCTION CODE
sFUNCTION CODE

sFUNCTION CODE

sFUNCTION CODE
sFUNCTION CODE

;GO BIT

JFUNCTION CODE MASK

sFUNCTION CODES (BITS 01-05 OF RM(CS1)

NOP

= 000000

sNOP COMMAND

SEEK
RECAL
DRVCLR
RLEASE
OFFSET

=
=
=
=
=

s SEEK COMMAND
sRECALIBRATE COMMAND
;DRIVE CLEAR COMMAND
sRELEASE COMMAND
;OFFSET COMMAND

ILFO2

RTC
RIP
PAKACK
PACACK

ILF24
ILF26

= 000002

=
=
=
=

000004
000006
000010
000012
000014

000016
000020
000022
PAKA(CK

= 000024
= 000026
= 000030

s ILLEGAL COMMAND

JRETURN TO CENTERL INE COMMAND
JREAD IN PRESET COMMAND
sPACK ACKNOWLEDGE COMMAND

;JLLEGAL COMMAND
s JLLEGAL COMMAND

s SEARCH COMMAND

SEQ 00i9

CZRMQAQ RMOS/3/2 DSKLS TST 2

RM REGISTER BIT DEFINITIONS

720

MACRO V03.01

H 2
11-APR-80 14:12:35 PAGE 4-3
SEQ 0020

ILF30
ILF32
ILF34
ILF36
ILF40
ILF62
ILF44
ILF46

= 000050
= 000052

WD
WH
ILF64
ILF66
RD
RH

=
=
=
=
=
=

;*RMDA

DISK ADDRESS REGISTER

ILF76
ILF76

000020

100000

000060
000062
000064
000066
000070
000072

= 000074
= 000076

s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s JLLEGAL COMMAND
s JLLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
sWRITE CHECK DATA COMMAND
;WRITE

CHECK HEADER AND DATA

s ILLEGAL COMMAND
; ILLEGAL COMMAND
sWRITE DATA COMMAND

;WRITE HEADER AND DATA COMMAND

s ILLEGAL COMMAND

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

s TRACK ADDRESS DEFINITIONS

= BIT12
= BITN

TA2
TA1

= B8IT09
= 8IT08

TA4

= BIT10

:SECTOR ADDRESS DEFINITIONS
SA16
= BIT04
SA8
= BITO03

SA4

040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

= 000054
= 000056

TA16
TA8

SA2
SA1
177400
000377

000030
000032
000034
000036
000040
000042
000044
000046

wCD
WCH

ILF54
ILF56

010000
004000
002000
001000
000400

=
=
=
=
=
=
=
=

= BIT02

= BIT01
= BIT00

:TRACK & SECTOR MASKS
TADMSK
= 177400
SADMSK
= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP
MOL
WRL

=
=
=
=
=

PGM
DPR

= BIT09
= BIT108

;*RMER1

ERROR REGISTER #1

LBT

DRY
Vv
oM

BIT1S
BIT14
BIT13
BIT12
BITN

= B8IT10

= 81107
= BIT06
= BIT00

;TRACK ADDRESS 16.

s TRACK ADDRESS
s TRACK ADDRESS
; TRACK ADDRESS
: TRACK ADDRESS

8.
4
2
1

;SECTOR ADDRESS
sSECTOR ADDRESS
;SECTOR ADDRESS
;SECTOR ADDRESS
;SECTOR ADDRESS

16.
8.
4
2
1

s TRACK ADDRESS MASK
;SECTOR ADDRESS MASK

SJATTENTION ACTIVE

;COMPOSITE ERROR
;POSITIONING IN PROGRESS
sMEDIUM ON LINE

SJWRITE LOCK

sLAST BLOCK TRANSFERRED

s PROGRAMMABL
E

;DRIVE PRESENT
:DRIVE READY
s VOLUME VALID
;OFFSET MODE ACTIVE

CZRMQAO RMOS/3/2 DSKLS TST 2

RM REGISTER BIT DEF INITIONS

770

771

772
773
774
775

100000

040000

020000
010000
004000
002000

MACRO v03.01

[

11-APR-80 14:12:35 PAGE 4-4

DCK
UNS
OPI
DTE

WLE
1AE
AOE
HCRC
HCE
ECH
WCF
FER
PAR
RMR

=
=
=
=
=
=
=
=
=
=
=

BIT15

BIT14
BIT13
8IT12
BITN
BIT10
BIT09
81108
BIT07
BIT06
BIT05
BIT04
BITO3
BIT02
BITQ
BITO0

SEQ 0021

;DATA CHECK ERROR
;DRIVE UNSAFE
;OPERATION INCOMPLETE
sDRIVE TIMING ERROR
;WRITE LOCK ERROR
s INVALID ADDRESS ERROR
sADDRESS OVERFLOW ERROR
;HEADER CRC ERROR
;HEADER COMPARE ERROR
JECC "HARD'' ERROR
;JWRITE CLOCK FAJLURE

776
777
778
779
780
781
782
783

001000
000400
000200
600100
000040
000020
000010
000004

785
786
787
788
789
790
791
792

000001

ILR
ILF

=
=
=
=
=

115760

ND TMSK

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

784

793

79%
795
79
97

798

799
800
801
802
803
804
805
806

807

808
809

000002

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

;COMMANDS,

1.E.., HOUSEKEEPING AND POSITIONING COMMANDS

; *RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

s *RMLA

LOOK AHEAD REGISTER

002000

SCé

000400
000200
000100
003700

SC1
SCO

=
=
=
=
=

SCTMSK

= 003700

000377

001000

SC3
Sce

BIT10
BIT09
BITO8
BIT07
8IT06

JMASK FOR ATTENTION BITS

;SECTOR
;SECTOR
;SECTOR
;SECTOR
;SECTOR

COUNT
COUNT
COUNT
COUNT
COUNT

=
=
=
=
=

16
8
4
2
1

;SECTOR COUNT MASK

; *RMMR1 MAINTENANCE REGISTER #1

100000
040000

810
811
812
813
814
815
816
817
818
819

020000
010000
004000
002000
001000
0004
000200
000100
000040
000010

821
822
823
824
825
826

000002
000001

820

;FORMAT ERROR
;PARITY ERROR
JREGISTER MODIFICATION REFUSED
s JILLEGAL REGISTER
sILLEGAL FUNCTION

000004

100000
040000

;WRITE ONLY BITS
DBCK
= BIT15
DBEN
= BIT14
DEBL
= BIT13
DTO
= BIT12
MCLK
= BITN
MRD
= 8IT10
MUR
= BIT09
MOC
= BIT08
MSER
= BIT107
MDF
= BIT06
MS
= BIT05
MWP
= BIT03
Ml
= BIT02
MSC
= BITO1
DMD
= BIT00

READ ONLY BITS
BIT1S

0cC

BIT14

;DEBUG CLOCK

;DEBUG CLOCK ENABLE

sDIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOUT
;MAINTENANCE CLOCK
;READ DATA
JUNIT READY
sON _CYLINDER
; SEEK _ERROR
;DRIVE FAULT
;SECTOR PULSE
JWRITE PROTECT
s INDEX PULSE
s SECTOR COMPARE
;DIAGNOSTIC MODE
;OCCUPIED
JRUN AND GO

CZRMQAO RMOS/3/2 DSKLS TST 2

RM REGISTER BIT DEFINITIONS

827

828
829
830
831
832
833
834
835
836
837
838
839
840
841

842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
877

020000

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

100009

040000
020000
004000
020024
024024

010000
004000

002000
000200
161577

001777
176000

MACRO v03.01

J
2
11-APR-80 14:12:35 PAGE 4=5

E8L

REX

ESRC

PLFS

ECRC

PDA
PHA

CONT

EECC

MWD

LS
LST
DMD
MR1AAA

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

BIT13
BIT12
B8ITN
BIT10
BITQ9
BIT08
BIT07
BIT06
BITOS
BIT04
B8IT03
BIT02
BITO
BITO0

= DMD!MUR!DBEN'MOC!DTO

SEQ 0022
JEND OF BLOCK
JEXCEPTION
sENABLE SEARCH
sLOOKING FOR SYNC
sENABLE CRC Ourt
:DATA AREA
¢HEADER AREA
s CONTINUE
;WORD CLOCK
JENABLE ECC OuTr
;WRITE DATA BIT
¢LAST SECTOR
sLAST SECTOR AND TRACK
;DIAGNOSTIC MODE

S*RMDT

DRIVE

TYPE REGISTER

NSA
TAP
MOH

= BIT15

DRQ

= BIT14
= BIT13
= BITN

sTAPE DRIVE = 0
sMOVING HEAD = 1
;DRIVE REQUEST REQUIRED

SNGPRT
DULPRT

= 020024
= 024024

;SINGLE PORT DRIVE TYPE
;DUAL PORT DRIVE TYPE

; *RMOF

OFFSET REGISTER

FMT16
ECI

HC]
OFD
XNUOF

= BIT12
=BITN
= BIT10
= BIT07
= 161577

J*RMD(C

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK
XNUDC

= 001777
= 176000

sNOT SECTOR ADDRESSED = 0

;16 BIT WORD FORMAT
SECC INHIBIT
;HEADER COMPARE INHIBIT
;OFFSET FORWARD
JUNSED BITS OF RMOF

sMASK FOR CYLINDER ADDRESS
JUNSED BITS OF RMDC

; *RMMR?2 MAINTENANCE REGISTER #2

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

:READ ON LY BITS
= BIT1S

RQA
RGB

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

BIT14
BIT13
BIT12
BITN
BIT10
BIT09
BITO8
BIT107
BIT06
BIT0S
BIT04
BIT03
BIT02

BITO1

;PORT A REQUEST
;PORT B REQUEST
;TAG CONTROL
sCOMMAND SEQUENCE TEST BIT
sCONTROL OR CYLINDER TAG
;CONTROL OR HEAD TAG
: TAG BUS
: TAG BUS
: TAG BUS
; TAG BUS
:TAG BUS
:TAG BUS
;TAG BUS
;TAG BUS
;TAG BUS

C{RMQAO RMOS/3/2 DSKLS TST 2

RM REGISTER BIT DEF INITIONS

878

000001

ggg
881
882
883
884
885
886
887
888
ggg

ggg

K
2
11-APR-80 14:12:35 PAGE 4-6

8800

= 8IT00

100000
040000
020000
010000
004000
002000
000200
000010
C01567

100000

040000

gg?

BSE
SK1
OPE
Iv(C
LSC
LBC
bvC
DPE
XNUER2

=
=
=
=
=
=
=
=
=

.SBTTL

PROGRAM MNEMONICS

MSE

= BIT15

.SBTTL

RM REGISTER INDEX VALUES

USE

BIT15
BIT14
BIT13
BIT12
BITN
BIT10
BIT07
BiT03
001567

= BIT14

898
899
900

000000
000006
00012

RMCST
RMDA
RMDS

= 00
= 06
= 12

902

000016

RMAS

=16

910
911

000040
000042

RMMRZ2
RMER2

901

903
904
905
906
907
908
909

912
913

SEQ 0023

:TAG BUS

J*RMER2 ERRUR REGISTER 2

gg}

893

MACRO v03.01

000014

000020
000024
000026
000030
000032
000034
000036

RMLA
RMMRT
RMDT
RMSN
RMOF
RMDC
RMHR

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

= 14

;ERROR REGISTER /1

=
=
=
=
=
=
=

;LOOK AHEAD REGISTER
;MAINTENANCE REGISTER
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER

20
24
26
30
32
34
36

= 40
= 42

= 44
= 46

;ATTENTION SUMMARY REGISTER

sMAINTENANCE REGISTER #2
;ERROR REGISTER #2

IDXMSK

= 77

sMASK FOR REGISTER INDEX NUMBER

35}

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

923

;*RMCS1

CONTROL STATUS REGISTER #1

918

g}g

000077

sUSER DETECTED SECTOR ERROR

= 76

917

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

RMEC1
RMEC2
ILRG30
ILRGS2
ILRGS4
ILRG56
ILRG6O
ILRG62
ILRG6G
ILRG66
ILRG70
ILRG72
ILRG?4
ILRG76

sMANUFACTURING DETECTED SECTOR ERROR

sECC POSITION REGISTER
sECC PATTERN REGISTER
;ILLEGAL REGISTER 50
; ILLEGAL REGISTER 52
;ILLEGAL REGISTER 54
;ILLEGAL REGISTER 56
;JLLEGAL REGISTER 60
s JLLEGAL REGISTER 62
;ILLEGAL REGISTER 64
:JLLEGAL REGISTER 66
;ILLEGAL REGISTER 70
;ILLEGAL REGISTER 72
;ILLEGAL REGISTER 74
;ILLEGAL REGISTER 76

916

000044
000046

RMERT

sBAD SECTOR ERROR
;SEEK INCOMPLETE
;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
sLOSS OF SYSTEM (CLOCK
sLOSS OF BIT CLOCK
sDEVICE CHECK
;DATA PARITY ERROR
sJUNSED BITS OF RMERZ2

= 50
= 52

=
=
=
=
=
=
=
=
=

54
56
60
62
64
66
70
72
74

CZRMQAO RMOS/5/2 DSKLS TST 2

MACRO v03.01
RH CONTROLLER REGISTER BIT T D DEFINITIONS

925
926
927
928
929
930
931
gg%

100000
040000
020000
002000
001000
000400
000200
000100

3%%
936
937
938
939
940
941
942
943
944
945
946
947
948
951
952

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

963
964

965
966
967
968
393

SC
TRE
MCPE
PSEL
A7
A16
RDY
IE

=
=
=
=
=
=
=
=

BIT1S
BIT14
BIT13
BIT10
BIT09
BIT08
BIT07
BIT06

SEQ 0024

;SPECIAL CONDITION-READ ONLY
: TRANSFER ERROR
;MASSBUS CONTROL BUS PARITY ERROR-READ ONLY
;PORT B SELECT
;ADDRESS EXTENSION
;ADDRESS EXTENSION
JREADY-READ ONLY
;INTERRUPT ENABLE

DLT
WCE
UPE
NED
NEM
PGE
MXF
MDPE
OR
IR
CLR
PAT
BAI
u2
Ul
uo

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

BIT1S
BIT14
BIT13
BIT12
BITN
BIT10
BIT09
BITO8
BIT07
BIT06
BITOS
BIT04
BIT03
BIT02
BITOY

= BITO00

;DATA LATE-READ ONLY
JWRITE CHECK ERROR-READ ONLY
;JUNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY
;NONEXISTANT MEMORY-READ ONLY
;PROGRAM ERROR-READ ONLY
;JMISSED TRANSFER
;MASSBUS DATA BUS PARITY ERROR-READ ONLY
;OUTPUT READY-READ ONLY
: INPUT READY-READ ONLY
;CONTROLLER CLEAR
:PARITY TEST
;UNIBUS ADDRESS INCREMENT INHIBIT
JUNIT SELECT
;UNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK
000007

ggg
959
960
961
962

;*RM(CS2 RH CONTROL STATUS REGISTER #2

ggz
ggg

11-APR-80 14:12:35 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

3;}

APE
DPEHI
DPELO
WCEHI

=
=
=
=

BIT1S
BIT14
BIT13
BIT12

:ADDRESS PARITY ERROR
;DATA PARITY ERROR HIGH WORD
;DATA PARITY ERROR LOW WORD
JWRITE CHECK ERROR HIGH WORD

IE
IPCK3
IPCK2
IPCk1
IPCKO

=
=
=
=
=

BIT06
BITO03
BIT02
BITO1
BITO0

:INTERRUPT ENABLE
: INVERT PARITY CHECK
:INVERT PARITY CHECK
JINVERT PARITY CHECK
;INVERT PARITY CHECK

.SBTTL

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

WCELO
DBL

= BIT11
= BIT10

JWRITE CHECK ERROR LOW WORD
;DOUBLE WORD TRANSFER

973
974
975
976
977
978
ggg

000000
000002
000004
000010
000022
000050
000052

RMCST
RMWC
RMBA
RMCS2
RMDB
RMBAE
RMCS3

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

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

981

176700

ABASE

= 176700

;UNIBUS ADDRESS

CZRMQAC _RMOS5/3/2 DSKLS TST 2

MACRO Vv03.01

RH11/RH?0 CONTROLLER REGISTER INDEX VALUES

982
983
985
986

120254

000000

000174
000176

M 2
11-APR-80 14:12:35 PAGE 4-8

AVECT1

= 120254

.SBTTL

TRAP (CATCHER

000200

:*LOCAT10N194C0NTA1NS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

000137

;UNIBUS VECTOR ADDRESS AND PRIORITY

s*ALL UNUSED LOCATIONS FROM &4 - 776 CONTAIN A ‘.42 HALT"'
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

DISPREG: . WORD
SWREG:

.WORD

.SBTTL

987
988

SEQ 0025

*1SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

002716

JMP

.SBTTL
SR EEE

; :SOF TWARE DISPLAY REGISTER

SHSTART

ACT11
Rt

;;JUMP TO STARTING ADDRESS OF PROGRAM

HOOKS

sttt dd

ittt

*HOOKS REQUIRED BY ACT11

iRttt sliiissssadsislsisseTIITLILLELS

sszzc=.

:SAVE PC

000046

$ENDAD

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

000052

WORD

989

-=$SVPC

001100

991

.=1100
.SBTTL
SRR AR

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

APT PARAMETER BLOCK
AR

A A AR A AR RN R

AR A AN R R AR N RRRN

NN RN A ARNN

NN RNNRARNRR AN

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
AR AR A AR AR

001100
000024
000200

AR R AR AR

A RANRARRE AN R RRARNRRAANNNRARRANN
AR

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

;;SAVE CURRENT LOCATION
;cSET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START UP
;sPOINT TO APT INDIRECT ADDRESS PNTR.
$APTHDR ;;POINT TO APT HEADER BLOCK
.=.8X
;;RESET LOCATION COUNTER

001100
001100

8888388
3333355

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

992

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$UNITM:
TAGADR=.

.WORD
.WORD
. WORD
.WORD
WORD
.WORD

DIAGNOSTIC

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

CZRMQAO RMOS5/3/2 DSKLS TST 2

COMMON TAGS

MACRG v03.01

N 2
11-APR-80 14:12:35 PAGE 5

.SBTTL

SEQ 0026

COMMON TAGS

t'tttttttttttttfififi**tttt"tttfit*'ttttttttttfit*ttittfit*ttfittttit

000000
000
000
000000
C00000
000000
000000

STSTNM:
$ERFLG:
$ICNT:
SLPADR:
$LPERR:
$ERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
:
$GDDAT

$8DDAT:

$AUTOB:
$INTAG:

377

012

000

377

.=TAGADR
.WORD

.BYTE
-WORD
.WORD
.WORD
.WORD
BYTE
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.BYTE
.WORD

SWR:
DISPLAY: . WORD
$TKS:
177560
177562
$TKB:
$TPS:
177564
177566
$TPB:
$NULL:
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG:
$TMPO:
.WORD
$STMP1:
.WORD
$TMP?:
.WORD
$TMP3:
.WORD
$TMPS:
. WORD
$TIMES: 0
:0
$ESCAPE
$BELL:
LASCIZ
$QUES:
LASCI]
:
$CRLF
LASCI]
.ASCIZ
$LF
M

JsSTART OF

COMMON TAGS

;2 CONTAINS THME TEST NUMBER
;JCONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
: s CONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
; :CONTAINS TOTAL ERRORS DETECTED
;s CONTAINS ITEM CONTROL BYTE
> ; CONTAINS MAX. ERRORS PER TEST
2 :CONTAINS PC OF LAST ERROR INSTRUCTION
; ; CONTAINS ADDRESS OF 'GOOD' DATA
;s CONTAINS ALLRESS OF 'BAD' DATA
2 s CONTAINS 'GOOD' DATA
;s CONTAINS 'BAD' DATA
; ;RESERVED--NOT TO BE USED

;;AUTOMATIC MODE INDICATOR

s s INTERRUPT MODE INDICATOR

; ;ADDRESS OF SWITCH REGISTER
;;ADDRESS OF DISPLAY REGISTER

$CMTAG:

elelelelolelolelaleljolelelolelalale

001114

DDISP

;. TTY KBD STATUS

::TTY KBD BUFFER
s TTY PRINTER STATUS REG. ADDRESS

;s TTY PRINTER BUFFER REG. ADDRESS
: ;CONTAINS NULL CHARACTER FOR FILLS

OOOOOO'—\;NO

PIONVPON)
= = a2

NS NONON
S

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

;s CONTAINS # OF FILLER CHARACTERS REQUIRED

;o INSERT FILL CHARS. AFTER A 'LINE FEED'
;2" 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
s :USER DEF INED
; sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED

: ;USER DEF INED
: sMAX. NUMBER OF ITERATIONS
cESCAPE ON ERROR ADDRESS
<207><377><377> ..CODE FOR BELL

/?/
<15>
<12>

EEESasSR2SdRtf

2008002

2 ;QUESTION MARK
; :CARRIAGE RETURN
scLINE FEED
R0

R00dt

2003

3202202

28]

.SBTTL- APT MAILBOX-ETABLE
AR AR AN A AR AR R AN A AN N AR AR RN A AR AAA R

001222
001222
001224
001226

000000
000000
000000

.EVEN
SMA]IL:
$MSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

:;APT MAILBOX
; sMESSAGE TYPE CODE
;:FATAL ERROR NUMBER
;. TEST NUMBER

RARARNRAARARAN

CZRMQAO RMOS/3/2 DSKLS TST 2

APT MAILBOX-~ETABLE

001230

001232
001234
001236
001240
001242
001242
001243
001244
001246
001250

MACRO v03.01

SEQ 0027

000200

004000
000000
000000
000000
000
000
000000
000000
000000

$PASS:

.WORD

$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
SMSGLG: .WORD
SETABLE:
$ENV:
.BYTE
$ENVM:
_.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD
i

APASS

ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

H*
i
i*

:
SMAMS1:

001253

0090

SMTYP1:
o
i*

001254

000000

001256
001257
001260
001262
001263

000
000
000000
000
000

001264

001266
001267
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316

001320
001322
88}%52

000000

000
000
000000
120254
000000
176700
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000

i*
o
$MADR1:
P
SMAMS2:
SMTYP2:
SMADRZ:
$MAMS3:
SMTYP3:

SMADR3:

;;MESSAGE ADDRESS
;;MESSAGE LENGTH
; :APT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
;.ENVIRONMENT 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
BIT

.BYTE

AMAMS1

AMTYP1

9=FLOATING POINT PROCESSOR

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

;MEM. TYPE ,BLK#1

MEM.TYPE BYTE
-~
(HIGH BYTE)
900 NSEC CORE=001

300 NSEC BIPOLAR=002
500 NSEC MOS=003
;;HIGH ADDRESS ,BLKA1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'' ABOVE
;:HIGH ADDRESS,M.S. BYTE
;;MEM.TYPE BLKA?
;;MEM.LAST ADDRESS,BLK#2
;:HIGH ADDRESS,M.S.BYTE
;.MEM.TYPE ,BLKA3

.WORD

AMADR1

.BYTE
.BYTE
.WORD
_BYTE
_BYTE

AMAMS?
AMTYP2
AMADRZ2
AMAMS3
AMTYP3
AMADR3
;:MEM.LAST ADDRESS.BLKA3
AMAMSG
;:HIGH ADDRESS,M.S.BYTE
AMTYP4
;. MEM.TYPE ,BLKAG
AMADRS ; ;MEM.LAST ADDRESS,BLK#4
AVECT1
;;INTERRUPT VECTORA1,BUS PRIORITY41
AVECT2
;;INTERRUPT VECTORA2BUS PRIORITY#?2
ABASE
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
ADEVM
;;DEVICE MAP
ACDW]1
;;CONTROLLER DESCRIPTION WORDA1
ACDW2
;;CONTROLLER DESCRIPTION WORD#2
ADDWO
;;DEVICE DESCRIPTOR WORDAQ
ADDW1
;;DEVICE DESCRIPTOR WORDA1
ADDW2
;;DEVICE DESCRIPTOR WORDA?
ADDW3
;;DEVICE DESCRIPTOR WORDA3
ADDW4
;;DEVICE DESCRIPTOR WORD#4
ADDWS
;;DEVICE DESCRIPTOR WORDAS
ADDW6
;:DEVICE DESCRIPTOR WORD#6
ADDW7
;;DEVICE DESCRIPTOR WORD#7

.WORD

SMAMSS: .BYTE
SMTYP4: BYTE
$SMADR4: .WORD
SVECT1: .WORD
$VECT2: .WORD
$BASE:
.WORD
$DEVM:
_WORD
$CDW1:
.WORD
$COW2:
.WORD
$DDWO:
.WORD
$DDW1:
_WORD
$DDW2:
.WORD
$DDW3:
_WORD
$DDW4:
.WORD

$ODW5:
$DDW6:
:g?gzs

;;DEVICE COUNT
;:1/0 UNIT NUMBER

11/70=06,PDQ=07,0=10

000

;;PASS COUNT

BIT 10=REAL TIME CLOCK

001252

11-APR-80 14:12:35 PAGE 5-1

.WORD
.WORD
.WORD

CZRMQAO RMOS/3/2 DSKLS TST 2

USER DEF INED TAGS

001326

001330
00133

000000
000
000

MACRO v03.01

11-APR-80 14:12:35 PAGE 6

.SBTTL

USER DEFINED TAGS

XXDP:

.WORD

LSTRK:

.BYTE
BYTE

:THE REGISTER

0
O

001332

:
GETBUF

001332

-REGISTER INPUT BUFFER
RMCS1I: .WORD
O

RMWCI:
RMBAI:
RMDAI:
RMCS2I:
RMDSI:
RMER1I:
RMASI:
RMLAI:
RMDBI:
RMMR1I:
RMDTI:
RMSNI:
RMOFI:
RMDCI:
RMHRI:
RMMR2I:
RMERZ2I:
RMEC1l:
RMEC2I:
RMBAEI:

RMCS3I:

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

.WORD

O
0
O
0
0
O
O
0
O
O
0
O
O
O
0
0
0
O
0
0

SEQ 0028

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

THE HIGH BYTE

;"XXDP' DEVICE CODE FOR THE RM05/3/2.

IS USED FOR

;CONTROL, STATUS REGISTER #1

sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER
sCONTROL, STATUS REGISTER #2
;DRIVE STATUS REGISTER
sERROR REGISTER #1
SATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER
;ECC PATTERN REGISTER
:BUS ADDRESS EXTENSION REGISTER

;CONTROL, STATUS REGISTER #3

s THE REGISTER OUTPUT BUFFER IS USED FOR
;ASSEMBLING DATA GOING TO REGISTER
001406

PUTBUF:

001406
001410
001412
001414
001416
001420
001422
001424
001426
001430
001432
001434

RMCS10:

001436

:REGISTER OUTPUT BUFFER

RMJCO:
RMBAO:
RMDAQ:

RM(CS20:

.WORD

sCONTROL, STATUS REGISTER #2

.WORD

;ERROR REGISTER M

.WORD
.WORD
.WORD

O
0
0

;CONTROL, STATUS REGISTER M

sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER

RMDSO:

.WORD

RMASO:
RMLAO:
RMDBO:

.WORD
.WORD
.WORD

O
0
0

;ATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER

RMDTO:
RMSNO:

.WORD
.WORD

O
O

sDRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER

RMER10:

RMMR10:

.WORD

CONTAINS

;LO BYTE = 0
;HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT
:UNDER TEST. RM02/3 = 4., RMOS
=
18.

INPUT BUFFER

;STORING DRIVE STATUS

;DRIVE STATUS REGISTER

sMAINTENANCE REGISTER #1

THE

CZRMQAD RMOS/3/2 DSKLS TST 2

USER DEF INED TAGS

001440
001442
001444
001446
001450
001452
001454
001456
001460

MACRO v03.01

11-APR-80 14:12:35 PAGE 6-~1

RMOFO:
RMDCO:
RMHRO:
RMMR20:

.WORD
.WORD
.WORD
.WORD

RMBAEO:

.WORD

RMER20:
RMEC10:
RMEC20:

RMCS30:

0
0
O
0

SEQ 0029

;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;HOLDING REGISTER
;MAINTENANCE REGISTER #2

.WORD
.WORD
.WORD

O
0
0

;ERROR REGISTER #2
;ECC POSITION REGISTER
sECC PATTERN REGISTER

.WORD

;CONTROL, STATUS REGISTER #3

;BUS ADDRESS EXTENSION REGISTER

.EACH 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

:IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE

001462

000000

001504

000009

001506
001510
001512
001514
001516
001520
001522
001524
001526

001530
001532
001534

172540

JEND OF

THE QUE.

TSTQUE:

.WORD

;TABLE TERMINATOR GOES HERE WHEN

$LPCSR:
$LPCSB:
$LPVEC:

.WORD
.WORD
.:828

172540
172542
}82

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

SLLCSR:
$LLVEC:

.WORD
.WORD
WORD
.WORD

177546
100
102

;KW11~L CONTROL + STATUS REGISTER
;KW11-L INTERRUPT VECTOR

.BLKW

$PSW:

TIME:
WATCH:
CLOCK:

STOP:

.WORD
.WORD
.WORD

.WORD

;PUT TAGS HERE

;CONTAINS DEVICE POINTER

sTEST QUE FOR DEVICES UNDER TEST

;A"

8. DEVICES ARE UNDER TEST.

:STORAGE FOR PRIORITY

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

;ADDRESS OF

STOP CLOCK sSuB

—

CZRMQAQ RMOS/3/2 DSKLS TST 2
ERROR POINTER TABLE
0

MACRO v03.01

11-APR=-80 14:12:35 PAGE 7

3
SEQ 0030

.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

:*THE

INFORMATION IS OBTAINED BY USINu THE

INDEX NUMBER FOUND

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

W)
—

001536

=
%
%
»

tewewaw,

:
;*NOTE
;*NOTEZ2:

IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

EM
DH
T
DF

:.POINTS TO THE DATA

:;POINTS TO THE DATA FORMAT

$ERRTB:

;ERROR
001536
001540
001542
001544

;sPOINTS TO THE ERROR MESSAGE
;:POINTS TO THE DATA HEADER

032024
037730
040044
040100

CANNOT CLEAR NED STATUS

EMT
EHT
EDTI
EFTI

5
6

;ERROR
001546
001550

D00~

001552
001554

032032
037734
040046
040102

LFT2
;ERROR

nN—=O

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

EMT3

:ERROR

CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS

;ERROR

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

032100
000000
000000
000000

—

widH
W

001566
001570
001572
001574

~NO

—

001576
001600
001602
001604

NED

EMT?2
EHT2
EDT?2

001556
001560
001562
001564

CANNOT READ OR WRITE ANY DEVICE REG WITHOU:

032122
037740
040050
040104

EMTS

EHTS
EDTS
EFTS
;ERROR

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

INIT

MACRO v03.01 11-APR-80 14:12:35 PAGE 721
F

CZRMQA0 RMOS/3/2 DSKLS TST 2

ERROR POINTER TABLE

001606
001610
001612
001614

032146
037740
040050

EMT6
EHTS
EDTS
EFTS

040104

. ERROR

001616
001620
001622
001624

032170
037744
040050
040104

032212
000000
000000
000000

032230
000000
0000090
000000

001652

001654

032246
000000
000000
000000

032264
000000
00000v
000000

38
39

APPEARS S-A-0

APPEARS S~A-1

EMT13

;ERROR
001666
001670
001672
001674

EMT12

;ERROR
001656
001660
001662
001664

EMT11

;ERROR

001646
001650

CANNOT WRITE/READ SHIFTING ONE BIT
OF DEVICE REGISTERS

EMT10

;ERROR
001636
001640
001642
001644

EMT7
EHT?7
EDTS
EFTS
;ERROR

001626
001630
001632
001634

SEQ 0031

032302
000000
000000

EMT14

000000

;ERROR

TO ALL BIT POSITIONS

—_—

CZRMQAO RMOS5/3/2 DSKLS TST 2

|ERROR POINTER TABLE

001676
001700
001702
001704

MACRO v03.01

11-APR-80 14:12:35 PAGE 7-2

032320

;ERROR

032336
000000
000000
000000

032354
000000
000000
000000

EMT17

JERROR

032372
037730
040044
040100

OP1

SET WITH SEACH TIMOUT DISABLED

OPI

SET WITH SECTOR PULSE,SECTOR (OMPARE WAS RESET

DTE

SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED

DTE

SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET

EMT20
EMT
EDT1
EFTT

. ERROR

032414
037730
040044
040100

EMT21
EHT
EDT1
EFT1
:ERROR

032436
037730
040044
040100

EMT22
EHT1
EDT]
EFTI

. ERROR
032462
037730
040044

EMT23
EHTT
EDT1

040100

EFTI
;ERROR

DTE DID NOT

SET WITH SECTOR PULSE,SECTOR COMPARE WAS SET

SEQ 0032

CZRMQAO RMOS/3/2 DSKLS TST 2

IERROR POINTER TABLE

001766
001770
001772
001774

H
3
11-APR-80 14:12:35 PAGE 7-3

032506
037730
040044
040100

EMT24
EHT
EDTI

EFT1

;ERROR
001776
000
00200¢
002004

032532
037730
040044

002006
002010
002012
002014

002016
002024

DTE SET WITH SECTOR PULSE DURING FORMAT (HANGE

EMT25
EHTI
EDTI
EFT1

040100

65
67

MACRO v03.01

;ERROR

MBA CLR L

. ERROR

COULD NOT SET DTE AFTER FORMAT (HANGE

;ERROR

CANNOT SET PROM STROBE WITH BIT CLOCK

;ERROR

CANNOT CLEAR RMER1,DTE

IS STUCK ACTIVE

032552
000000
000009
000000

032604
037730
040044
040100

032624
037730
040044
040100

032644
037730
040044
040100

EFT1

;ERROR
032660
037730
040044
040100

032672

PROM STROBE

RESET EARLY

PROM STROBE

SET

EMT32

EHT
EDT1
EFT1
:ERROR

002056

EMT33

EARLY

SEQ 0033

—_—

CZRMQAO RMOS/3/2 DSKLS TST 2

ERROR POINTER TABLE

002060
002062
002064

MACRO v03.01

037730
040044
040100

032704
037730

sERROR

032716
037730

032730
037730
040044
040100

032750
040004
040070
040116

033000
037730

b
—

PROM STROBE

SET WHILE LOOKING FOR SYNC

SYNC DETECTED WITH WRONG PATTERN

SYNC NOT DETECTED

EMT40
EHTI
EDTI
EFT
41

DRIVE

TIMING ERROR DID NOT

WRITE

GATE

CLEAR LOOKING FOR SYNC

EMT41
EHT
EDT
EFT

037730

<ERROR
033050
037730

EMT37
EHT115
EDT115
EFT115

;ERROR

002146
002150

LOOKING FOR SYNC DID NOT SET

EDT1
EFT1

:ERROR

002136
002140
002142
002144

EMT36
EHTI

;ERROR

002126
002130
002132
002134

LOOKING FOR SYNC SET EARLY

EHT1
EDT
EFTT

;ERROR

002116
002120
002122
002124

EMT 35

040044
040109

92
93

SEQ 0034

EMT 34
EHT
EDT1
EFT1

040044
040100

EHTI
EDT1
EFT

:ERROR

11-APR-80 14:12:35 PAGE 7-4

EMT42
EHTI

DID NOT

COME ON OR RESET EARLY

CZRMQAO RMOS/3/2 DSKLS TST 2

ERROR POINTER TABLE

002156
002160
002162
002164

J
3
11-APR~80 14:12:35 PAGE 7-5

SEQ 0035

040044
040100

23R

002152
0C215¢4

MACRO v03.01

;ERROR

INCORRECT SYNC PATTERN DURING HEADER

033066
000000
000000
000000
:ERROR

033066
037744
040050
040104

INCORRECT

SYNC PATTERN DURING HEADER

EMT43
EHT?7
EDTS
EFTS
;ERROR

033120
037730
040044

HEAPcR AREA DID NOT

COME ON OR RESET EARLY

EMT4S
EHTI
EDT
EFT1

040100

;ERROR

033134
037730
040044
040100

CRC ENABLE DID NOT SET

EMT46
ERT
EDT1
EFT1

:ERROR

033150
037750
040052
040100

INCORRECT HEADER GENERATED DURING WRITE

EMT4?
EHT47

EDT47
EFT1
- ERROR

033166
037730
040044
040100

READ GATE

INCORRECT DURING HEADER AREA

EMTS0
EHTI
EDT1
EFT
<ERROR

033204
037730
040044

EMTST
EHTI
EDTI

UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE

CZRMQAOQ RMOS/3/2 DSKLS TST 2

ERROR POINTER TABLE

002244

127

128
129
130

MACRO v03.01

K
3
11-APR-80 14:12:35 PAGE 7-6
SEQ 0036

EFT

040100

:ERROR
002246
002250
002252
002254

033220
037754
040054
040106

INCORRECT HEADER READ IN DIAGNOSTIC MODE

EMTS52
EHTS2
EDTS2
EFTS57
:ERROR

002256
002260
002262
002264

037624
037730
040044
040100

INCORRECT

TAG BUS DURING DATA COMMAND

EMT276
EHT1
EDTI
EFT1

:ERROR
033252
037730
040C44
040100

DATA TIMING SEQUENCER CONTROLS

EMT54
EHT1
EDTI
EFT1

;ERROR

033270
037730

DATA AREA DID NOT COME ON OR RESET EARLY

EMTSS

FHT1
EDT1
EFT1

040044
040100

;ERROR

ECC ENABLE DID NOT SET

EMT56
EHT
EDTI
EFTI
140
141

:ERROR

002324

033322
037760
040056
040106

143

033336
037730
040044
040100

DEVICE

IS NOT AN RM05/3/2

EMTS57

EHTS?7
EDTS57
EFT57
;ERROR

002326
002330
002332
002334

INCORRECT DURING DATA COMMAND

EMT60
EHT]
EDTI
EFTI

DEVICE AVAILABLE

IS NOT SET

RMQAQ RMOS/3/2 DSKLS TST 2

4
4

oo~NON

—_—

ROR POINTER TABLE

—
—
=

wviviuwn
SN

033370
037730
040044
040100

DATA AREA DID NOT RESET

EMT63

EHT1
EDTI
EFT1

033420
037730
040044
040100

UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE

EMT64
EHT1
EDTI
EFT1

:ERROR

033434
037730
040044
040100

65
EMT65
EHT1
EDT?
EFT

;ERROR

EMT66

;ERROR 67

033462
000000
000000
000000

CANNOT CLEAR PROM STROBE WITH BIT CLOCK

EHTI
EDTI
EFT1

;ERROR

0353446
000000
000000
000000

EMT62

;ERROR

161
162

INCORRECT ECC PATTERN GENERATED DURING WRITE

EMT61
EHT6]
EDT61
EFT57

033406
037730
040044
040100

158
159
160

SEQ 0037

;ERROR

002346
002350
002352
002354

157

11-APR-80 14:12:35 PAGE 7-7

033352
037764
040060
040106

v
"2

002336
002340
002342
002344

—

MACRO V03.07

:ERROR

222

iCZ
k2

EMT67

INCORRECT DATA TRANSFERRED TO MEMORY

CZRMQAO RMOS/3/2 DSKLS TST 2

ERROR POINTER TABLE

167

168
169

171
172

MACRO v03.01

M3
11-APR-80 14:12:35 PAGE 7-8

SEQ 0038

JERROR 70
002426
002430
002432
002434

033500
000000
000000
000000

EMT70
0
0
0

;ERROR 71
002436
002440
002442
002444

033520

000000
000000
000000

EMT?71
0
0

JERROR 72
002446
002450
002452
002454
176
177
178

033544
000000
000000
000000

EMT72

0
0
0

;ERROR 73
002456
002460
002462
002464

033570
000000
000000

000000

179

EMT73
0
0
0

JERROR 74
033610
000000

EMT74
0
0
0

JERROR 75
033620
000000
000000
000000

EMT75
0
0
0

JERROR 76
033632
000000
000000
000000

EMT76
0
0
0

CZRMQAO RMOS/3/2 DSKLS TST 2

ERROR POINTER TABLE

189
190

MACRO v03.01

N3
11-APR-80 14:12:35 PAGE 7-9

SEQ 0039

;ERROR 77
002516

EMT77

033646

:ERROR

CANT SET VOLUME VALID

;ERROR

RUN AND GO WONT SET

- ERROR

SEARCH ENABLE WONT SET

035454
040030
040070
040116

037604
037730
040044
040100

033722
037730
040044

040100
:ERROR

035520

103

OCCUPIED IS INCORRECT FOR FUNCTION CODE

EMT173
EHT150
EDT115
EFT115
:ERROR

104

READ

IN PRESET DIDNT CLEAR RMDA,

READ

IN PRESET DIDNT CLEAR RMOF

READ

IN PRESET DIDNT CLEAR RMDA

EM1174
0
0
0
sERROR
035570
037730
040044
040100

105

EMT175
EHT]
EDTI
EFT1
sERROR

106

RMDC OR RMOf

CZRMQAO RMO5/3/2 DSKLS TST 2

ERROR POINTER TABLE

MACRO v03.01

B _4
11-APR-80 14:12:35 PAGE 7-10

035606
037730
040044
040100

EMT176
EHTI
EDT
EFT
s ERROR

002616
002620
002622
002624

035624
037730
040044
040100

035642
037730
040044
040100

READ IN PRESET DIDNT CLEAR RMD(

tMT177
EHTI
EDTI
EFTI
:ERROR

002626
002630
002632
002634

107

110

CANT SET OFFSET MODE BY OFFSET COMMAND

FMT200

EHTI
EDT1
EFTI
;PUT ERROR

TABLE

HERE

SEQ 0040

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

MACRO v03.01

C &
11-APR-B0 14:12:35 PAGE 8

SEQ 0041

sTHIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

BADTMO: MOV
TST
cMP
TYPE
BR
.ASCIZ
;:65%:

002652

64%:

010046
104402
000240

MOV
TYPOC
NOP

(SP),R0
-(RO)
(SP)+,(SP)+

,65%
64%

;SAVE PC WHERE THE TIME OUT OCCURED
;ADJUST PC =2
JRESTORE STACK POINTER

;s TYPE ASCIZ STRING
csGET OVER THE ASClZ

<CRLF>/UNEXPECTED BUS

RO,~-(SP)

TIMEOUT,

PC=/

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

N
~
N

000240

005227
001375
000005

000000

LSBTTL

START OF PROGRAM

START:

NOP
INC

BNE

RESET

.SBTTL

NVOONOWNEBWN=O

011600
005740
022626
104401
000417

012706
005026
022706
001374
012706

001114

012737
012737
012737
012737
012737
012737

026220
000340
026602
000340
030348

001100

001131
001122
001124

000403
012716
00000 2
012737
012737

000004
003130
177570
177570
177777

INITIALIZE THE COMMON TAGS

MOV
CLR
cMP
BNE
MOV

H#SCMTAG,R6

;.FIRST LOCATION TO BE CLEARED

#SWR,R6

s DONE?

MOV
MOV
MOV
MOV

#$SCOPE ,a#IOTVEC

(R6) +

.<6
N#STACK,SP

;o INITIALIZE A F EW VECTORS

000026
021404

013746
012737
012737
012737
022777
001012

JTTY LOOP, WAIT FOR INCREMENT
;OF WORD
JRESET THE WORLD

;s CLEAR THE COMMON TAGS (SCMTAG) AREA

001154

012737

#0
A

:sCLEAR MEMORY LOCATION

:.LOOP BACK IF NO
:sSETUP THE STACK POINTER
;10T VECTOR FOR SCOPE ROUTINE

#340,#I0TVEC+2 ;:LEVEL 7

#SERROR ,@#EMTVEC ; EMT VECTOR FOR ERROR ROUTINE

#3460, @EMTVEC+2 ;;LEVEL 7
H#$TRAP ,@¥TRAPVEC ;. TRAP_VECTOR FOR TRAP CALLS
#3640, 3¥TRAPVEC+2;LEVEL 7
#SPWRDN ,a#PWRVEC ; ;POWER_FAILURE VECTOR
#340,a#PWRVEC+2 ;;LEVEL 7
SENDCT ,$EOPCT
;;SETUP END-OF -PROGRAM COUNTER
$TIMES
:oINITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;cCLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
;;ALLOW ONE ERROR PER TEST

#.,SLPADR
#.,SLPERR

;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
;. SETUP THE ERROR LOOP ADDRESS

@HERRVEC ,~(SP)
#64S,INERRVEC

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

2;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "~1"', SETUP FOR A SOF TWARE SWITCH REGISTER.

000004
001154
001156
176030

#DSWR, SWR

#DDISP,DISPLAY

#-1,3SWR

66$

003136

64%:

000176
000174

65%:

65%
#658%, (SP)

;.SETUP FOR A HARDWARE

SWICH REGISTER

;.AND A HARDWARE DISPLAY REGISTER

;o TRY TO REFERENCE HARDWARE SWR

:;BRANCH IF NO TIMEOUT TRAP OCCURRED

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

#SWREG, SWR
;;POINT
#DISPREG,DISPLAY

TO SOF TWARE

SWR

CZRMQAO RMOS5/3/2 DSKLS TST 2
INITIALIZE THE COMMON TAGS

MACRO v03.01

D 4
11-APR-80 14:12:35 PAGE 8-1
SEQ 0042

003152

012637

000004

003156
003162
003170
88%568

005037
132737
001403
012737

001230
000200

001243

001244

001154

20
21 003200
22 003206
23 003214
003220
003224
” 003226

012737
012737
012746
012746
(00002

002636
000300
000140
003226

000004
000006

66%$:

MOV

(SP)+,3#ERRVEC

;;RESTORE ERROR VE(TOR

CLR
BITB
8EQ
MOV

$PASS
WAPTSIZE,SENVM
67%
#SSWREG , SWR

;CLEAR PASS COUNT
..rssr USER SIZE UNDER APT
$:YES,USE NON-APT SWITCH
::NO,USE APT SWITCH REGISTER

;SETUP '‘'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC
;SETUP FOR UNEXPECTED TIMEOUT
MOV
#PRG,ERRVEC+2
:LEVEL 6
MOV
#PR3. - (SP)
$;PUT NEW PS ON STACK
MOV
#688 .- (SP)
$:PUT NEW PC ON STACK
RT]
$:POP NEW PC AND PS
68$:
.SBTTL

003226
003232
003234
003242
003244

005227
001055
022737
001451
104401

003250
003254
003256
003264
003266

005737
001012
123727
001406
023727

003276

104407

003274

001005

003300

000403

003310

000426

88%%?8

112737

177777
021546

THE NAME OF

.SBTTL

GET VALUE FOR SOF TWARE SWITCH REGISTER

000042

003312
000042
001242

000001

001154

000176

TYPE PROGRAM NAME

::TYPE

001150

;;FIRST TIME?
*BRANCH IF NO
::ACT=11?
:;BRANCH IF YES
STYPE ASCIZ STRING

TST
BNE
CMPB
BEQ
cMP

G2
718
SENV.
41
718
SWR , #SWREG

;:ARE WE RUNNING UNDER XXDP/ACT?
“:BRANCH IF YES
::ARE WE RUNNING UNDER APT?
::BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?

BNE
;gg:

FIRST PASS

#-1
698
ASENDAD ,a#42
698
,708

GTSWR

000001

THE PROGRAM IF

INC
BNE
CMP
8EQ
TYPE

B8R

72%

MOVB

#1,$AUTOB

69%

::SET AUTO-MODE INDICATOR
;GET OVER THE ASCIZ

26 003366

::708:
69% :

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

:PAPER TAPE

30 003366
31 003372
32 003400
33 003402
3, 003410
35 003416
36 003420
37 003426
38 003430
39 003432

003436

40
41
42
43

ASCIZ

::BRANCH IF NO

::GET SOFT-SWR SETTINGS

003464

003464
003466
003472
003474

005037
122737
001160
013737
122737
103002
105037
005737
001425
104401

000412
005046
113716
104403
001

001326
000016

000041

000040
000007

001326
001326

001326
000042

1%:

003440
-74%:

5%%.
001326

<CRLF>3CZRMQAO - RMOS/3/2 DISKLESS TEST. PART 2a<CRLF>

(MANUAL)., ACT11,

CLR
(MPB
BNE
MOV
CMPB
BHIS
CLRB
ST
BEQ
TYPE

XXDP
#16,a#41
5%
k60, XXDP
#7,XXDP
1%
XXDP
G2
3$
748

.ASCIZ

<CRLF>/NOT

738

CLR
-(SP)
MOVB
XXDP. (SP)
TYPOS
BYTE
1

XXDP CHAIN OR DUMP

;CLEAR 'XXDP® LOAD DEVICE STORAGE
:LOADED FROM AN RM05/3/2 ?
‘BRANCH IF NOT
*GET DEVICE INDICATOR AND NUMBER
:IS IT A VALID NUMBER ?
:YES
*NO, DEFAULT TO DRIVE 0
*CHAIN MODE OR ACT11 AUTO ACCEPT ?
:BR IF NEITHER
::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

TESTING DRIVE /

:CLEAR WORD ON STACK
:GET DRIVE ADDRESS
*TYPE THE ADDRESS
JONLY 1 CHARACTER

&
E
11-APR-80 14:12:35 PAGE 8-2

CZRMQAO RMO5/3/2 DSKLS TST 2
MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

44 003475
45 003476
46 003502

104401

000517

001217

48 003504
49 003510

005227
001114

177777

50 003512
003516

003540
51 003540
52 003542
53 003546
56 003550

55 003551
56 003552
003556
003642

57 003642
003646

000

104401

000410
005046
113716
104403
001
000
104401

000431
104401

000435

BYTE

INC

”-1

TYPE

3$:

BNE

003520

TYPE

5;;65:

B8R

LASCIZ

CLR
MOVB
TYPOS
BYTE

001326

BYTE

003560

TYPE

55;85:

003650

B8R

.ASCIZ

TYPE

;i79s:

003742

LASCIZ

$CRLF

SEQ 0043
;SUPRESS LEADING ZEROS

*CR-LF

*GET NUMBER OF DRIVES

;FIRST TIME THRU HERE ?

sNO

“GET OVER THE ASCIZ

76%

;3 TYPE ASCIZ STRING

<CRLF>/TO TEST DRIVE /
-(SP)
XXDP, (SP)
1
0

78%

778

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

:SUPRESS LEADING ZEROS

*:TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

/, HALT PROGRAM, REMO\i RRDP PACK AND REPLACE
,79%

§s

IT/<CRLF>

:TYPL ASCIZ STRING

“GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

2d:

105737

001150

012737

000377

001506

001300

;CHECK FOR _AUTO MODE OR STANDALONE
TSTB
$AUTOB
JRUNNING IN AUTO MODE
BEQ
STANDALONE
;BR IF NO

MOV

#377.$DEVM

*SET DEVICE MAP FOR ALL DRIVES

ig??GRAM IS RUNNING IN AUTO MODE - SEE

132737
001066
005001
013700

136137
001453
012737
005737
001403
123701
001426

012760

146137
104401

000200

001243

001276
032014

001300

031637
001326

004130

1$:

000040
000010
000012
031657
010000

004130
000010

031674
004000

004130
000000

032014
001217

000010

001300

2%:

‘NO

CLR
MOV

R1
$BASE , RO

:START FROM DRIVE 0
*LOAD THE BASE ADDRESS

gége

Q;NTBL(R1),SDEVM

MOV

#LODEV,5$

BEQ

MOV
MOV
ST

MOV
8IT
BNE
MOV
BIT
BEQ

38$:

4$:

SIZING IS ALLOWED

#BIT7.SENVM

ST
BEQ
C(MPB

001326

BITB

BNE

XXDP
23
XXDP.R1

#CLR,RMCS2(RO)

:SIZING ALLOWED ?

Néxs DEVICE PRESENT IN MAP ?

*GET ADDRESS OF LOAD DEVICE MESSAGE

*LOADED FROM RM0S/3/2 2
<NO
*IS THIS THE DRIVE ?

*YES,

TRY NEXT DRIVE

;CLEAR MASS BUS

R1.RMCS2(RO)

:LOAD THE DRIVE ADDRESS

#NOTPRS . 5$
#NED,RMCS2(RO)
3s
#NOTAVL ,5$
#DVA,RMCST(RO)
3

*GET ADDRESS OF NOT PRESENT MESSAGE
:1S DRIVE PRESENT ?
‘B8R IF NO
*GET ADDRESS OF AVAILABLE ME SSAGE
1S DRIVE AVAILABLE
?
‘BR IF NO

RMDS (RO)

B8R

BICB

ATNTBL(R1),$DEVM

TYPE

SCRLF

*TRY TO ACCESS AN RM DRIVE REGISTER

:CR=LF

;CLEAR DEVICE FROM BIT MAP

CZRMQAQO RMOS/3/2 DSKLS TST 2

MACRO v03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

95 004114
96 004120
004122
004124
004125
97 004126
38 004130

104401
010146
104403
002
000
104401
000000

100 004132
101 004134
;8% 004140

005201
020127
003715

104 004142
105 004146

001217

106 00415C
107 004152
108 004154
}?g 004156

104401
005004
005304
001376
005304
001376

}}} 004160

000137

005070

031631

5%:
000007

11-APR-80 14:12:35 PAGE 8-3
TYPE
MOV
TYPOS
.BYTE
BYTE
TYPE
.WORD

,MSGDRV
R1,-(SP)
2
O

SEQ 0044

;TYPE °'DRIVE'
;. SAVE R1 FOR TYPEOUT
;:G0 TYPE--OCTAL ASCII
;:TYPE 2 DIGIT(S)
;. SUPPRESS LEADING ZEROS

: TYPE ERROR MESSAGE

;ADDRESS OF MESSAGE GOES HERE

0$:

INC
CMP
BLE

R1
R1,47
1%

s INCREMENT THE DRIVE ADDRESS
;JALL DRIVES ARE CHECKED ?
;BRANCH IF NOT

7$:

TYPE
CLR
DEC
BNE
DEC
BNE

.SCRLF
ré
Ré
.~
R4
.-

;CR-LF
;THESE TWO LOOPS ARE ADDED TO
JWAIT FOR TTY TO FINISH TYPING.

JMP

CMNSTART

;JUMP TO COMMON START

CZRMQAO RMOS/3/2 DSKLS TST 2

STANDALONE

INPUT ROUTINES

.SBTT.

64
64
70
76

004737

027012

005227

177777

001426

012637

104401
123727
001004
104401

000137

123727
001427
104401
000752

INC
BEQ

031176
001176
001176
001176

000131

001217
005070

001176

104401
104411

012637
104401
123727
001407
123727
001405

000116

2%:

001176
001176
001176

000131

001176

000116

— —

104401
123727
001407
123727
001525
104401
000756

8 &8

—_

012637

-—h

—-—

éng

000131

001176

000116

031573

104401

106402

031231
001276

,CNSLOO
(SP)+.$TMP1
,$TMP1

;MAINTAIN PREVIOUS PARAMETERS
*GET RESPONSE
:ECHO RESPONSE

;NO RESPONSE ?
“YES, GET NEW PARAMETERS

*TRY AGAIN

,$CRLF
CMNSTART

L CNSLO8

“CR=LF
‘KEEP PREVIOUS PARAMETERS

INO,

TYPE

ILLEGAL

INPUT

IF OPERATOR WANTS HELP TEXT

B8R

TYPE

,MSHELP

(SP)+,$TMP1

L$TMPI

$TMP1 A4'Y
4
STMP1.A'N
5$
CNSLOS

HELP

SWANT HELP ?
*GET RESPONSE
*SAVE AND ECHO RESPONSE

:WAS IT A YES RESPONSE 2
SYES
*WAS IT A NO RESPONSE ?
SYES

INO,

TYPE

“TRY AGAIN

ILLEGAL

INPUT'

“YES - TYPE HELP TEXT

IF USER WANTS TO CHANGE UNIBUS ADDRESS
TYPE
TYPE
RDCHR

,$CRLF
.UBUSQST

TYPE

.$TTMP1

(MPB

BEQ

CMPB
BEQ
TYPE

BR
églALOGUE

013746

THRU HERE

S$TMP1.A'N
58

MOV

001176
001176

;FIRST TIME
TYES !

CMPB
BEQ

(MPB
BEQ
CMPB
BEQ
48:

#-1
38

:YES RESPONSE ?
JNO!!

TYPE

054244

;INITIALIZE CONSOLE

$TMP1,4'Y
23

TYPE
RDCHR
MOV
TYPE

031573

PC.STKINT

(MPB
BNE

TYPE

031112

INPUT ROUTINES

THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

TYPE
JMP

031573

TYPE
RDCHR
MOV
TYPE

SEEE

—

104401
104411

STANDALONE

ONE :
STANDAL
JSR

%gse
N

=OVO NI NS W

2 —d
b

b
b

NN
OOV

&
G
11-APR-80 14:12:35 PAGE 9

SEQ 0045

N md b ed

MACRO v03.01

(SP)+,$TMP1

;WAS IT A YES RESPONSE ?

STMP1.A'N
128

‘WAS IT A NO RESPONSE ?
*YES

CNSLOS

£$+4

TYPOC

YES

‘NO,

TYPE

“TRY AGAIN

THE UNIBUS ADDRESS,

,CNSLO1
$BASE
, -(SP)

SSAVE AND ECHO RESPONSE

$TMP1.A'Y

TO CHANGE

TYPE
MOV

;CR-LF
*WANT TO CHANGE ADDRESS
*GET RESPONSE

;TYPE

ILLEGAL

INPUT

VECTOR ADDRESS AND

CURRENT BUS ADDRESS

°*

INTERRUPT PRIORITY

;cSAVE $BASE FOR TYPEOUT
.:G0 TYPE--OCTAL ASCIIC(ALL DIGITS)

CZRMQAQ RMOS/3/2 DSKLS TST 2

STANDALONE

INPUT ROUTINES

57 004404
58 004410

104401

MACRO v03.01

SEQ 0046

031103

001176

001276

031311

7%:

8%:

001272

cmMP

#160000, $TMP1

TYPE
BR

LCNSLOZ2
68+4
$TMP1,$BASE

MOV

TYPE

031365

9%:
10%:

001273

3
O

sSUPPRESS LEADING ZEROS

MOV

(SP)+,$TMP1

B8R

MOvVB
TYPE

630

000007

031377

113737

001176
001176
001176
001176
001176
001176

11%:

001273

005227

177777

031430

:GET NEW VECTOR ADDRESS
CARRIAGE RETURN?

108
#1000,$TMP1

*YES-SKIP TO NEXT ENTRY

,CNSLO4

EIY?E;UARNING ME SSAGE

$STMPI ,SVECTT

*LTORE NEW VECTOR ADDRESS

:ggg;gn ADDRESS < 1000 ?

,CNSLOS

1
0

s SUPPRESS LEADING ZEROS

MOV
BEQ
MP
BLT

(SP)+,$TMP]
12%
STMP1 47
118

JGET NEW PRIORITY
s CARRIAGE RETURN ?
JYES-SKIP TO NEXT ENTRY
;LEGAL PRIORITY ?
JYES!!

B8R

108

ASL
ASL
ASL
ASL
ASL

MOvVB
D JALOGUE

.BYTE
BYTE

TYPE

—h

SRI3383R3R8128
2Ree BR0
REe%

001176

'TYPE

-(SP)
SVECT1+1, (SP)
(SP)
(SP)

TYPE
RDOCT

001176

.QUES

;TYPE 3 DIGITS

CLR
MOVB
ASR
ASR

ASR
ASR
ASR
TYPOS

031103

,CNSLO3

BYTE
BYTE

TYPE

001272

;sSTORE NEW BUS ADDRESS

;GET CURRENT VECTOR ADDRESS

BHI

031331

s TYPE WARNING MESSAGE
;TRY AGAIN

-(SP)
$VECT1, (SP)

BEQ
cMP

001176

;GET NEW BUS ADDRESS
;CARRIAGE RETURN ?
JYES=SKIP TO NEXT ENTRY
:eégf ADDRESS IN 1/0 PAGE ?

CLR
MovB

TYPE
RDOCT

001176

BEQ

(SP)+,$TMP1
8%

TYPOS

031103

001000

,QUES

8L0S

031247
001176

TYPE

RDOCT
MOV

001176
160000

H
&4
11-APR-80 14:12:35 PAGE 9-1

;GET CURRENT BR LEVEL

(SP)
(SP)
(SP)

LQUES

. CNSLO6

$STMP1
$TMP1
$TMP1
$TMP1
$TMP1

JONLY 1 DIGIT

:TYPE WARNING MESSA(®
. TRY AGAIN

.STORE NEW PRIORITY

$TMP1,SVECT1+]

TO INPUT DEVICE NUMBERS

INC

#-1

JFIRST

TIME

TYPE

LCNSLO?7

;TYPE

INPUT

BNE

138

;BR_IF NO

THRU ?
INSTRUCTIONS

D nd d dd ood

CZRMQAO RMOS/3/2 DSKLS TST 2
STANDALONE INPUT ROUTINES
AINININININININININ)
— =D
2

1064401

d D rd e

005037
104401
104411
012637
023727
001007

D )
D d d d e ed od d e

,MSDRVS

JTYPE

(SP)+,$TMP1

sCLEAR DEVICE MAP
'DRIVE(S):

JGET RESPONSE

MOV

#377 $DEVM
XS12Z

;JAUTO SIZE.

023727

001176

000015

001176
001176

$TMP1,#CR
17$

CégRIAGE RETURN ?

104401

CMP
BEQ

000060

001176

000067

CMP
BLT
CMP

$TMP1.4'0
17
STMP1,4'7

104411

MOV

;CR=LF

001300

012637
023727
001432

005012
005014
005022
005024
005030

123 005064

TYPE
RDCHR

$CRLF

$DEVM

000377
003756

023727
002430
023727
003427
000423

152 005060

001176
001176

TYPE

CLR

STMP1.#'A
15

001436

150 005050
151 005056

13$:

14$:

001300
031615

SEQ 0047

CMP
BNE

104401

146
147 005032
148 005036
149 005042

001217

4
I
11-APR-80 14:12:35 PAGE 9-2

000101

012737
000137

—)d e d d

141
142
143
144
145

MACRO v03.01

031076

001176
001176

15$:

TYPE

BLE
BR

000015

031107
001176
001176

000060

001176

000067

177770

032014
000377
001217
003756

RDCHR
MOV

188:

001300
001300

19%:

L STMP1

(SP) +,$TMP1

;GET RESPONSE

CMP
8LT
CMP
BLE

$TMP1.#'0
17
STMP1 4'7
18s

B8R

148

MOV

BIC
BISB
(MP8
BH]

TYPE

JMP

:ECHO RESPONSE
NUMBER <0?

ILLEGAL

$TMP1_#CR
198

TYPE

TYPE '"“ALL'' AND GO

;SET DEVICE MAP FOR ALL DRIVES

18$
17

CMP
BEQ

TYPE
TYPE

17$:

071176

}01

JMP

168:

031573

1
122737

TYPE

;IS INPUT *A'"
2

:NO
JYES,

,COMMA
S$TMPI

INPUT

s CARRIAGE RETURN ?
;YES
JTYPE *,

ECHO RESPONSE
NUMBER <0?
. YES
NUMBER > 7 ?

,CNSLO8

TYPE ** 2ILLEGAL

$TMP1,R1

;R1 = DRIVE NUMBER

RET Y

INPUT''

#~C7.R1
ATNTARL(R1),$DEVM
;SET DEVICE
#377.$DEVM
;DONE ?
16$
,$CRLF
:CR-LF

XSiZ

;GO SIZE DEVICES

IN mAP

CZRMQAQ RMOS/3/2 DSKLS TST 2

STANDALONE

INPUT ROUTINES

MACRO v03.01

:ASSEMBLE

2 005070
3 005070

013700

001300

5
6
7
8
9

010137
012702
005003
030200
001406

001462
000001

4 005076

10
11
12
13
14
15
16
17

005100
005104
005110
005112
005114

012701

005116
005120
005126
005132
005134
005136
005140
005142

010311
116361
062701
(C06302
105702
001402
005203
000763

20 ,
21 005146
22 005152
23 005154

004737
000413

24 005156
005162

104401
000405

}g 005144

005154

005176
25 005176
26 005200

27 005202

005202

005206
005210
005216

4
J
11-APR-80 14:12:35 PAGE 10

MOV

18:
032014
000002

000001

2%:

005011

104000

3$:

4%
005164

;.65%:

648
:

000765

001012
123727
001406

005220
005226
005230
005232
005234
005242

023727
001005
104407
000403
112737

29 005242
30 005244
31 005250
32 005252
33 005256
34 005260
35 005264

000240
105737
001007
005737
001002
000137
000137

37 005270
38 005274
39 005300
40 005304
005310
005314

105037
005037
004737
012746
012746
000002

5%:

.SBTTL

000042
001242

000001

001154

000176

000001

001150

001300

001116
001206
027012
000300
005316

MOV
mMovB
ADD
ASL
1STB
BEQ
INC
BR

CLR

EMT

TYPE
BR

.ASCIZ

HALT

;RO = DEVICE MAP

R1,TSTQUE
#1,R2
R3
R2.RO
2%

;INITIALIZE ENTRY POINTER
;R2 = DEVICE POINTER
;R3 = DEVICE NUMBER
;1S THIS DEVICE IN MAP ?
sNO !!

(R1)

s TERMINATE TEST QUE

66%:
67%:

READY:

1%:
2%:

sR1

= ADDRESS OF

FIRST ENTRY IN QUE

R3,(R1)
;YES - ENTER DEVICE NUMBER IN QUE
ATNTBL(R3)
,1(R1) ;ENTER ATTENTION BIT IN QUE
#2,R1
cADVANCE ENTRY POINTER
R
sADVANCE DEVICE POINTER
R2
;DONE ALL DEVICES ?
38
;YES
R3
sADVANCE DEVICE NUMBER
1%
SENTER NEXT DEVICE

,65%
648

<CRLF>/PROG HLT/

;SEE IF CLOCK PRESENT
JYES = CLOCK IS PRESENT
;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
:PROGRAM HALT

GET VALUE FOR SOF TWARE SWITCH REGISTER

TST

BNE
CMPB
BEQ

000042
002716
021356

MOV
MOV
CLR
BIT
BEQ

$DEVM, RO

H#TSTQUE+2,R1

;SIZE FOR CLOCK
JSR
PC,SIZCLK
BR
5%

022500

000000

005737

TEST QUE FROM DEVICE MAP

CMNSTART:
MOV

001464

SEQ 0048

cMP
BNE
GTSWR
BR
MovB
NOP
TSTB
BNE
TST
BNE
JMP
JMP

CLRB
CLR
JSR
MOV
MOV
RTI

w42

;;ARE WE RUNNING UNDER XXDP/ACT?

66$
SENV . 41
66$

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

67%
#1,3AUTOB

;. SET AUTO-MODE INDICATOR

SWR ,#SWREG
67%

$DEVM
2%
a6l
1%
START
$EOP

$STSTNM
$TIMES
PC,S$TKINT
#PR6,~(SP)
#648,~(SP)

;:SOFTWARE SWITCH REG SELECTED?
;sBRANCH IF NO
;.GET SOFT~SWR SETTINGS

JREADY TO START TEST
;ANY DRIVES IN MAP ?
;BR IF YES
JANY MONITOR PRESENT ?
;BR IF YES
;JUMP TO START
JRETURN CONTROL TO MONITOR

JRESET TEST NUMBER
;INITIALIZE NUMBER OF ITERATIONS
JINITIALIZE TTY
ssPUT NEW PS ON STA(K
;.PUT NEW PC ON
STACK
;.POP NEW PC AMND PS

CZRMQAO RMOS/3/2 DSKLS TST 2

MACRO V03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

005316
2% 005316

117737

174140

001234

44
45 0053264

46 005332
47 005336
48 005344
49 005352
50 005356
51 005362

52 005366
53 005370

54 005376
55

648

4
K
11-APR-80 14:12:35 PAGE 10-1

MOvB

aTSTQUE ,SUNIT

;LOAD UNIT NUMBER

;CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK
012737
013700
012760
117760
016002
042702
022702

(01003
012737

002000
001276
000040
174112
000026
177770
000007

011000

001330

;OF

MOV
MOV
mMovse
MOV
BIC
CMP

000010
000010

001330

THE DIFFERENT DRIVE TYPES
MOV
#TA4,LSTRK

3$:

BNE
MOV

JASSUME LAST TRACK FOR RM0Z2/3 = 4.
$8ASE RO
;RO _= UNIBUS ADDRESS
#CLR,RMCS2(RQ)
.CLEAR MASSBUS
dTSTQUE ,RMCS2(RD)
;SELECT DEVICE UNDER TEST
RMDT (RO) ,R2
;GET RMDT AND
#177770,R2
;SAVE DRIVE TYPE BITS
#7.R2
;IS IT AN RMOS ?

3%
;NO, MUST BE AN RM02 OR RMO3
#TAT6!TA2 ,LSTRK ;YES~-SET LAST TRACK = 18.

SEQ 0049

CZRMQAQ RMOS/3/2 DSKLS TST 2

MACRO v03.01

L 4
11-APR-80 14:12:35 PAGE 11
SEQ 0050

;

.SBTTL

;REGISTER ASSIGNMENTS

‘RO

UNJBUS ADDRESS OF RH CONTROLLER

‘R

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE

8
9

‘R2,R3
;

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

10
1

}‘3.

‘R4,RS
:

‘R6

:R7

UNIT UNDER TEST

GENERAL WORKING REGISTERS, ARE NOT SAVED BY
SUBROUT INES

STACK POINTER

LINKAGE REGISTER TO SUBROUTINES

;STORAGE ASSIGNMENTS

L STMPO-$TMPY

;

18
19

23
24
25
26
27
28
29

:$SGDDAT ,$8DDAT
:$GDADR,$8DADR

S$TSTIN

TSUNIT
=
‘RGINBF =
:
:
;RGOTBF =
H
;

TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES

EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT
ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE.

ALSO THE ADDRESS OF A REGISTER ERROR

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 REGISTERS

CZRMQAO RMOS/3/2 DSKLS TST 2

TRANSFER TEST

MACRO v03.01

FRAAR

SRR

ARttt

tTEST 1
SRS

SRS

TST1:

> 005416

012737

001100
001276
001462
000001

2 005424

012702

000000

11-APR-80 14:12:35 PAGE 12

001226

dadsitd

SEQ 0051

ittt idlisiissisdissls
etz ess

TRANSFER TEST
AR Sl

dsl

ettt dititssitststsss
sl

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP

JLOAD THE STACK POINTER

TSTQUE ,R1
#1,$TESTN

:R1

mMov

#0,R2

;R2
= REGISTER INDEX

:SCOPE CALL

$BASE RO

:RO = UNIBUS ADDRESS

= POINTER TO DEVICE

::SET TEST NUMBER IN APT MAIL BOX

%SEEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET

7 005430

8 005434

016037

032737

9 005442

004737

023334
000010
010000

d and

001140
177770

MOV
BIT

BEQ

mMovB
BIC
BIS
MOV
ADD

001140
001140

001136

EMT
BR

wd and

000100
001136
000010

JSR

001142
001142

PC,CNTCLR

RMCS2(RO)
, $BDDAT

;GO CLEAR CONTROLLER

;STORE RMCSZ2 AT $BDDAT

ANED ,$SBDDAT

208

(R1) ,$GDDAT

#4CUNTMS
, $GDDAT
K
#IR,SGDDAT

RO, $8DADR
fRMCSZ,SBDADR

60$

—

sREAD THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ

;DOES NOT SET 'NED'’ ERROR

:
208

N
N

—

-—

023334

000010

80
S

010000

001140
001140
001136
39

40
41
42
43
44
45

;WRITE

005606

005
005606

005612
005620

MOV
ADD
MOV
BIT
BEQ

RO,R3
R2.R3

:R3
= REGISTER ADDRESS

#NED,RMCS2 (RO)
708

;1S "NED'’ SET??
;NO!!

JSR
MOV
BIT
BEQ
MOVB
BIC
BIS
MOV
ADD
EMT
B8R

PC,CNTCLR

;GO CLEAR CONTROLLER
;STORE RMCS2 AT SBDDAT

(R3) R4

RMCS2(R0)
, $8DDAT

#NED
, $8DDAT

308

(R1) ,$GDDAT

#*CUNTMS
, $GDDAT
K
#IR,$GDDAT

RO, $BDADR
1RMCS2,$BDADR

608

THE REGISTER WHOSE

DOES NOT SET 'NED'' ERROR

012713
032760
001432

000000
010000

308:
000010

MOV
BIT
BEQ

;READ REGISTER

INDEX IS

IN R2 AND EXIT

#0, (R3)

JWRITE REGISTER

70%

JNO!!

ANED ,RMCS2 (RO)

TEST

THE WRITE

1S "NED'' SCT??

;COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING 'NED'' ERROR -

CZRMQAO RMOS/3/2 DSKLS TST 2

TRANSFER TEST

48
49
50 005622
51 005622

66 005672
67 005672
68 005700
69 005702

40%:

000002
000002
000004

55 005640

63 005670

11-APR-80 14:12:35 PAGE 12-1

SEQ 0052

;ADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT
sAVAILABLE DEVICE REGISTER

52 005626
53 005632
54 005634

56 005642
57 005646
58 005650
59 005654
60 005656
61 005662
62 005664

MACRO Vv03.01

000016

000022

000046
éggT

013737

001276

000137

021320

104002

#2,R2
#RMWC ,R2
408
#RMBA ,R2
408

sADVANCE TO NEXT REGISTER
¢1S THIS RMW(C??
:YES - TRY NEXT REGISTER
;1S THIS RMBA??
:YES = TRY NEXT REGISTER

8EQ
CMP
BEQ
CMP
BEQ
CMP
BHIS

408
#RMAS ,R2
40%
#RMDB ,R2
40$
HRMECZ,R2
108

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

CMP

000010

103257

ADD
CMP
BEQ
cMP
bEQ

'NONEXISTENT DEVICE'

001136
60%:

71 005706

W#RM(CSZ2 ,R2

;1S THIS RM(S2??

ERROR FOR EVERY REMOTE REGISTER ADDRESS

gg¥

§BASE.$BDADR

;STORE BASE ADDRESS

JMP

$EOSP

;GO SELECT NEXT DEVICE

70%:
' .R

2348333222233 23832822222332222233

;*TEST 2

2322223232322 22222322323222232223232%32¢

CTOD TEST

""Q""**fi'fi**t**tfiti‘*'i"'*'tttttt'fi***fi****fi*tfit'**i*iifii*'*'tt

005706
005706
005710
005712
005716
005722
005726

000004
000240
012706
013700
013701
012737

001100
001276
001462
000002

75 005734

004737

023334

78
79
80
81

005740
005746
005754
005762

012760
012760
012760
012760

000076
177777
001777
016200

84 005770
85 005774
005774
006002
87 006010
88 006016
89 006024
90 006026

012702

000001

9N
92
93 006030

016037
016037
016037
016037
005302
100362

042737

TST2:

. SCOPE

CALL

MOV

#STACK,SP

;LOAD THE STACK POINTER

JSR

PC,CNTCLR

;G0 CLEAR CONTROLLER

MOV
MOV
MOV

001226

000000
000006
000034
000032

zggPE

$8ASE RO
TSTWUE ,R1
#2,8TESTN

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

sWRITE ONES IN REMOTE REGISTERS
MOV
#ILF76 ,RMCST(RO)
MoV
MOV
MOV

:LOAD RMCS1
#-1_RMDA(RO)
;LOAD RMDA
#CYLMSK ,RMDC (RO)
2LOAD RMD(C
#CXNUOF ,RMOF (RO)
;LOAD RMOF

sJREAD REMOTE REGISTERS TWICE

108

000006
000034
000032

001332
001340
001366
001364

177701

001332

MOV

MoV
MoV
MOV
MOV
DEC
BPL

#1,R2

RMCS1(RO) ,RMCS1]
;STORE RMCS1
RMDA
(RQ) ,RMDA]
sSTORE RMDA [N INPUT
RMDC(RO) ,RMDCI
sSTORE RMDC IN INPUT
RMOF (RO) ,RMOFI
;STORE RMOF IN INPUT
R2
. 108

;SEE IF ANY ONE BITS CAME BACK
8IC
#*CILF76,RMCST] ;1S RMCST 0??
¥

{

IN INPUT BUFFER
BUFFER
BUFFER
BUFFER

CZRMQAQ RMO5/3/2 DSKLS TST 2
T2
CTOD TEST

94
95
9
7
98
99
100

006036
006040
006044
006046
006054
006056
006064

001014
005737
001011
042737
001005
042737
001001

006066

104003

MACRO Vv03.01

BNE

001340
001366

161577

001364

004737

023334

006122

012760

000076

b e e

006144

004737

023334

006150
006156
006164

016037
016037
016037

000000
000014

000042

001332
001346
001374

~
N

052737
052737

177701
001567
177777

001332
001374
001332

127777

001346

177777

001374

)

006116

ced b
b ed e
e

b ek e
b
b d
b e

BIC
BNE

#XNUOF
, RMOF |
208

001226

sNO!!
YIS RMOF 0 22
INO!

RN AR RN AN NN

MASSBUS INITIALIZE TEST
R R

RN RN

SCOPE

A A AN

RRN RN

AANR AR AR

ANNNRRENRAAAA RN

AA NN

N AN

;SCOPE CALL

MOV
MOV
MOV

#STACK,
SP
$BASE ,RO
TSTQUE ,R1

;RO = UNIBUS ADDRESS

#3,$TESTN

sR1 = POINTER TO DEVICE
;;SET TEST NUMBER IN APT MAIL BOX

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

;WRITE ONES

MOV
MOV
MOV

IN SELECTED REGISTERS

#11.F76,RMCS
(RO)
1
:LOAD RM(CS1
#-1,RMER1T (RO)
sLOAD RMER1
#-1.RMER2 (RO)
;LOAD RMER2

;INITIALIZE MASSBUS WITH A CLEAR
JSR

;LOAD THE STACK POINTER

PC.CNTCLR

;GO CLEAR CONTROLLER

:READ THE REGISTERS THAT WERE WRITTEN
MOV
MOV
MOV

RMCS1(RO) ,RMCS1]
RMER1(RO
. RMER1]
)
RMER2
(RO) .RMER2]

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

;SEE IF 37§ REGISTER B]TS WERE CLEARED
BIS
CMP
BNE
CMP
BNE

cMpP

#-1,RMER2]
108

*ANY ZEROS IN RMER27?

b o cd e

BNE

H#*CILF76,RMCSTI ;SET ANY BIT NOT WRITTEN
#XNUER2 ,RMER2]
#-1,RMCS11]
:¢§§.?ER°S IN RMCS17?
108
#-1,RMER1]
*ANY ZEROS IN RMER]??
JYES!!
108

108:

177777
177777

000000
000014
000042

A AP AR AN A AR AR

R AR AN R A AN A AR AR AR

001100

001276
001462
000003

A AN AR

NOP
MOV

PIPONINDNINININI
N = = e b med b o d o -=d

i§T3:

000004
000249
012706
013700
013701
012737

b d d md

YIS RMDC 0?7

208

20%:

006070
006072
006074
006100
006104
006110

WIWNW

#XNUDC ,RMDC

.NOII

; CANNOT 2§¢D/UR1§E A ONF FROM ANY REMOTE REGISTER

006200

BIC

208

BNE

S*TEST 3

012760
012760

;NO!!
;1S RMDA 07?

BNE

006130
006136

208

SEQ 0053

RMDA]

176000

11-APR-80 14:12:35 PAGE 12-2

::."...'tttt.'t'tttfitfittt'tiQttttttt*tttfitt*tfitttttttttttttttt.t

sNONE OF THE BITS WERE CLEARED

JeTEST 4

EMT

CLEAR STUCK ACTIVE TEST

::..'..'...tt'..ttt..t.t".'t'tfittitttttt*tttt'tttttttttttttttttt

CZRMQAO RMOS5/3/2 DSKLS TST 2
CLEAR STUCK ACTIVE

NP NS WO 000

ANV

NOOONO NS WA= OV

—l—l—l—l—d—b—)—l—l—l—l—l—a—l—i—l—b—b—l—l—‘—l

E BB B NSNS DSWWNW

006240
006240
006242
006244

000004
000240
012706

TEST

MACRO V03.01
TST4:

013700
013701
012737

001100
001276
001462
000004

004737

023334

012760
012760
012760

1772777
177777
000001

000014
000042
000024

016037
016037
016037
042737
001011
042737
001005
032737
001001

000014
000042
000024
040000

001346
001374
001356
001346

040200

001374

000001

001356

aggPE
MOV
MOV

SEQ 0054

;SCOPE CALL

MOV

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#6,STESTN

::SET TEST NUMBER IN APT MAIL BOX

JSR

PC.,CNTCLR

;GO0 CLEAR CONTROLLER

MOV

001226

104026

VNV

11-APR-80 14:12:35 PAGE 12-3

JWRITE ONES

IN TEST REGISTERS

MOV

#DMD ,RMMR1 (RO)

MOV
Mov

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

;LOAD THE STACK POINTER
RO UNIBUS ADDRESS

;JR1

= POINTER TO DEVICE

;LOAD RMER1
;LOAD RMERZ2

;LOAD RMMR1

;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON

MOV
MOV

RMER1(R0O) ,RMER11]
RMER2(R0O) ,RMER2]

MOV

RMMR1(RO) ,RMMR1]

BNE
BIC
BNE
BIT
BNE
EMT

108
#SK]'DVC,RMER2I
108
#DMD ,RMMR1 |
108

8IC

108:

#UNS ,RMER11]

;STORE RMER1 IN INPUT BUFFER
;STORE RMER? IN INPUT BUFFER

;STORE RMMR1

;DONT ACCEPT UNSAFE

IN INPUT BUFFER

BRANCH IF ANY OTHER BITS ON
;DONT ACCEPT SKI OR DVC
BRANCH IF ANY OTHER BITS ON
:BRANCH IF DMD IS ON

*'*fi'*****fi**tfi*****‘*t"*"****'fit***'fi'*fi"*fi‘**tfifi‘*'*.fifi..fi'

*TEST 5

TRISTATE TRANSFER TEST

NNNNNNNNO

N
o)

[o Yo

'.**'t*‘fi'*'**.**fi**fifi'fi***"*'t*""*t'*****fi'fi*i’*""'*""i'i'*‘

TSTS:

000004
000240
012706
013700
013701
012737

001100
001276
001462
000005

005002
004737

023334

012760
012760
012760

000076

177777
177777
1727777
177777

zggPE

MOV

#STACK,SP

JLOAD THE STACK POINTER

MOV

TSTQUE ,R1

#5,8TESTN

,R1 POINTER TO DEVICE

CLR
JSR

R2
PC,CNTCLR

;CLEAR ERROR FLAGS
;GO CLEAR CONTROLLER

L 01Y)

001226

000000
000032

JWRITE ONES

MOV
MOV

MOV

Mov

;WRITE ZEROS

000042

:SCOPE CALL

MOV
MOV
MOV
MOV
MOV
MOV

$BASE ,RO

RO = UN]JBUS ADDRESS

::SET TEST NUMBER IN APT MAIL 80X

IN SELECTED REGISTERS

#ILF76 ,RMCS1(RO)
;LOAD RM(CS1
#-1,RMDA(RQ)
;LOAD RMDA

#-1_,RMER1(RO)

#-1_,RMOF (RO)

#-1,RMER2 (RO)

;LOAD RMER1

;LOAD RMOF

;LOAD RMER?

IN SELECTED REGISTERS

#0,RMCS1(RO)
#0,RMDA (RO)
#0,RMER1(RO)

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

;LOAD RMCS1
:LOAD RMDA
;LOAD RMER1

sLOAD RMOF
sLOAD RMDC
;LOAD RMERZ2

CZRMQAO RMOS/3/2 DSKLS TST 2
15
TRISTATE TRANSFER TEST

016037
016037
016037
016037
016037
016037

000000

012702
052737
052737
052737
052737
005137
005137
005137
005137
005137

1772777
177701
161577

001407

227 007012
228
229
230 007020
231 007026
232 007034
233 007042

001332
001340

D
5
11-APR-80 14:12:35 PAGE 12-4

MOV
MOV

RMCS1(RO) ,RMCS1]
;STORE RMCS1 IN INPUT BUFFER
RMDA(RO) ,RMDA]
;STORE RMDA IN INPUT BUFFER

MOV
MOV

RMOF
(RO) ,RMOFI
RMDC
(RO) ,RMDCI

MOV

001364
001366

001374

MOV

001332
001364
001366

#-1,R2

8IS

#XNUER2
, RMER2]

BIS
BIS
BIS

COM

023334

10%:

012760
012760
012760

000000
000000
000000

000006
000032
000034

012760
012760
012760
012760
012760
012760

000076
177777
016200
001777

000000
000006
000032
000034

176210

000042

016037
016037
016037
016037

000000

000006
000032

000034

;STORE RMER2 IN INPUT BUFFER

;ACCUMULATE ZEROS IN R2

RMDA]

COM

RMER2]

; COMPLEMENT REGISTER CONTENTS

RMOF
RMDC

RMCSTI,R2
RMDAI ,R2
RMER11,R2
RMOF
I ,R2
RMDC] .R2
RMER2] ,R2
108

;ACCUMULATE ALL ZERO BITS

:BRANCH IF

EACH BIT IS ZERO

;ONE OR MORE BIT POSITIONS ARE NOT ZERO
MOV
R2,$BDDAT
;SAVE RESULT FOR TYPE
Eh?
?GDDAT
;LOAD EXPECTED RESULT

001140

177777

RMCST]

RMER1]

BIC
81C
BIC
BIC
BIC
BIC
BEQ

001340
001346
001364
001366
001374

004737

;STORE RMER1 IN INPUT BUFFER

:STORE RMOF IN INPUT BUFFER
-STORE RMDC IN INPUT BUFFER

#-CILF76,RMCS1] -SET ALL BITS NOT WRITTEN
#XNUOF
, RMOF
#XNUDC - RMDC

COM

COM
COM

000001

RMER2 (RO) ,RMER?2]

MOV

COM

052702

RMER1(ROJ ,RMER1]

;CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ

001374

001142

SEQ 0055

;READ BACK ALL REGISTERS

001346

070237
005037
104005

MACRO v03.01

000014

001332
001340
001364
001366

8IS

#81T0,R2

;SET ERROR FLAG

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

;PRESET SELECTED REGISTERS TO ZEROS
: (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED 8Y INIT)
MOV
MOV
MOV

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

;LOAD RMDA
*LOAD RMOF
*LOAD RMDC

;WRITE ONES IN SELECTED REGISTERS
MOV
#ILF76,RMCS1 (RO)
;LOAD RMCS1
MOV
#-1,RMDA (RO)
;LOAD RMDA
MOV
#~CXNUOF , RMOF (RO)
:LOAD RMOF
MOV
#-CXNUDC _RMDC (RO)
SLOAD RMDC

MOV
MOV

#-1,RMERT(RO)

;LOAD RMERT

#~CXNUER2 ,RMER2 (RO)

;LOAD RMER2

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

IN INPUT BUFFER
BUFFER
BLFFER
BUFFER

—

CZRMQAO RMOS/3/2 DSKLS TST 2

TRISTATE TRANSFER TEST

234 007050
235 007056
236
237

000014
000042

001346

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

177701
161577
176000
001567

001332
001364
001366

005702
001126
012702

000001

004737

023334

264
265
266
267
268
269

010260
010260
010260
010260
010260

000006

270

007210
007214
007220
007224
007230

271
272 007234
273 007242
274 007250
275 007256
276 007264
277
278
279 007272
280 007274
281 007300

284 007310
285 007312
286 007316
287 007322
288 007324
289 007326

052702

000002

016037
016037
016037
016037
016037
005003
012704
013705
050503
005105
040504
013705
042705
050503
605105
042705

001374

MOV

BIC

CLR
BIS
BIS
BIS
BIS
8IS
BIS
CMP

B8EQ

001140

RMER2 (RO)

25%:
WRITE

#XNUER2, RMER2]

R2
RMCS11,R2
RMDA] ,R2
RMOF
] -R2
RMDC
] .R2
RMER1] ,R2
RMERZ2] .R2
#-1,R2

208

?g¥

g-1,$GDDAT

8IS

#MIT1 RS

IN INPUT BUFFER

*STORE RMER2 IN INPUT BUFFER

:ACCUMULATE ONES IN R2
SACCUMULATE ALL ONE BITS

;SEE IF EACH BIT POSITION WAS ONE

sBRANCH [F NONE STUCK

TST

;SAVE RESULT FOR TYPE
JEXPECTED RESULT

;SET ERROR FLAG

;ANY ERRORS DETECTED ??

BNE
MOV

30%
#1.,R2

JYES - DONT DO BIT TEST
:R2=BlT POSITION

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

THE BIT PATTERN

IN SELECTED DEVICE REGISTERS

MOV
MoV

RZ .RMDA(RO)
R2,RMOF (RO)

MOV

RZ2,RMER1(RO)

MOV
MOV

R2.RMDC (RO)

R2.RMER2(RO)

;READ BACK THE REGISTERS
MoV

RMDA(RQ) ,RMDA]

001}@4
001366

MOV
MOV

RMOF
(RQ) ,RMOF]
RMDC(RO),RMDCI

001374

MOV

RMER2(RQO) ,RMERZ]

001346

;STORE RMER1

.RMER?2]

;ONE OR MORE BIT POSITIONS ARE NOT ONE
MOV
RZ2,$8DDAT
208

001340

RMER1(RO) ,RMER1]

;CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ
BIC
#*CILF76,RMCS1]
JCLEAR ALL BITS NOT WRITTEN
BIC
#XNUOF , RHOFI
BIC
#XNUDC -RMDC]

177777

001142
177777

104006

MOV

001374

001332
001340

010237
012737

11-APR-80 14:12:35 PAGE 12-5
SEQ 0056

016037
016037

238 007064
239 007072
240 007100
241 007106
262 007114
243 007116
244 007122
245 007126
246 007132
247 007136
248 007142
249 007146
250 007152
2351
252
253 007154
254 007160
255 007166
256 007170
257 007174
258 007174
259 007176
260 007200
261
262 007204
007204

263

MACRO v03.01

MOV

RMER1 (RO ,RMER1 ]

;LOAD RMDA
;LOAD RMOF

*LOAD RMDC

;LOAD RMER1

:LOAD RMER2
:STORE RMDA IN INPUT BUFFER

;STORE RMOF IN INPUT BUFFER
-STORE RMDC IN INPUT BUFFER

:STORE RMER1 IN INPUT BUFFER

;STORE RMERZ [N INPUT BUFFER

;CHECK REGISTER CgNTENTS FOR CORRECT PATTERN
CLR
MOV
MOV

8IS
(oM
BIC
MOV
BIC
8IS
oM
BIC

#-1,R4
RMDA] ,RS

R5.R3
RS
R5,Ré4
RMOF
] ,RS
#XNUOF RS
R5,R3
R5
#XNUOF ,R5

JR3=ACCUMULATED ONE BI7

JR4=ACCUMULATED ZERO BITS

;GET ANY GOOD BITS FROM RMDA

;GET GOOD BITS FROM RMOF

—

C 4 RMQAO RMOS/3/2 DSKLS TST 2
T5
TRISTATE TRANSFER TEST

290 007332
291 007334
292 007340

040504

293 007344

294
295
296
297

007346
007350
007354
007356

MACRO v03.01

11-APR-80 14:12:35 PAGE

001366
176000
176000

001346

001374

nNO

—

BIS
COM
BIC

RS.R3
R5
R5,R%

SEQ 0057

;GET GOOD BITS FROM RMDC

RMER1I RS

JGET GOOD+BITS FROM RMER1

MOV

RMER21

;GET GOOD BITS FROM RMER?

8IS
COM
BIC
BIC
MOV
COM
BIC
BIC
BIS
CMP
BEQ
MOV
MOV
EMT
BR

RS,R3
RS
#XNUER2
RS
RS.R4
R2.RS
RS
RS,R3
R2.R&
R4 .R3
R3.R2
26$
R2.,$GDDAT
R3.$BDDAT
7
308

BIC

001567

——

RS ,R4
RMDCI ,RS
#XNUDC
, RS
RS,R3
RS
#XNUDC ,RS
RS, R4

MOV

001567

(o]l
(el

BIC
MOV
BIC
BIS
COM
BIC
BIC

5
1 2-6

#XNUER2 ,RS

JRESET ALL ONES IN R3 EXCEPT
;FOR

THE

TEST BIT

JRESET TEST BIT IN R4
;COMBINE ACCUMULATED 1°'S + 0°'S
;1S PATTERN 0K??

JYES!!

;SAVE TEST PATTERN
;SAVE RESULT

;SKIP TO NEXT

éfi%VANCE R2 TO THE NEXT PATTERN AND REPEAT
ASL

007204

324 007454
325
326

BEQ
JMP

30%:

THE BIT

JEXIT IF DONE

';t'tfifii*t'tttt*ttttttt't'tttttfitQttitttt'fi.tfittt'tttttttttit'ttt

S*TEST 6
AN AR

007454
007454
007456
007460
007464
007470
007474

sSHIFT

308
258

TEST

000004
000240
012706
013700
013701
012737

AN A AR

TEST

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

A NN A AR ANNNANNANRR

15T6:

001100
001276
001462
000006

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

. SCOPE CALL
#STACK,
SP
$BASE ,R0O
TSTQUE ,R1
#6,$TESTN

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

sR1

= POINTER TO DEVICE

;.SET TEST NUMBER IN APT MAIL BOX

.THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR
JESCH DEVICE REGISTER
REGISTER
NAME

REG SEL
(16,8,4,2,7)

RMCS1

00000
00001
00010

RMDS
RMER1

—

CZRMQAO RMOS5/3/2 D

LS TST 2

SELECTY

TEST

MACRO v03.01

11-APR-80 14:12:35 PAGE

12-7
SEQ 0058

:
;
:

RMMR1
RMAS
RMDA

00011
00100
00101

RMDT
RMLA
RMSN

00110
00111
0100C

RMD(C

010

RMOF

01001

RMHR

;
:

010

RMMR?2
RMER?2

o1
on

RMEC2

RMEC1

JEACH REGISTER SELECT LINE

TESTED FOR A STUCK AT ONE,
:STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1.
;FOR_S~A-0, RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER
:THAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE

;BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE,
RMMRT IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0,
:THE ALL ONES WORD WILL BE WRITTEN IN RMER1,

;WILL NOT BE O WHEN READ BACK.

360 007502
361 007504

005002
012703

CLR
MOV

177777

R
#-1,R3

AND RMER1

;R2= ZEROS SOURCE
;R3= ONES SOURCE

;TEST REG SEL 1 FOR S-A-0
365 007510
366 007514
367 007520
368 007524
369 007530
370 007534
371 007542
372 007550
373 007554
374 007556
375 007564
376 007570
377 007572
378
379
380 007574
381 007574
382 007600
383 007604

391 007652
392 007656
393 007660

004737
010260
010260
010360
010360
016037
016037

023334

000014
000034
000024
000036
000014
000034
001346
176000

001366

001346
001366
001366

JSR
MOV
MOV
MOV
MOV

PC,CNTCLR

R2 ,RMER1(RO)

;GO CLEAR CONTROLLER

;LOAD RMER1

R2,RMDC (RO)
;LOAD RMDC
R3,RMMR1(RO)
;LOAD RMFR1
R3,RMHR (RO)
;LOAD RMHR
RMER1(RO) ,RMER1]
;STORE RMER1 IN INPUT BUFFER
RMDC(RO) ,RMDC
;STOURE RMDC IN INPUT BUFFER
R3,RMER1]
108

#XNUDC ,RMDC !

R3 ,RMD(]
10%
10

FOR S-A-1

023334

PC,CNTCLR

000006
000032
000042
000016

016037
020337
001015
052737

000030
000040
000006
000032
000042
001340
161577

001340
001364
001374
001364

26O CLEAR CONTROLLER

R2 ,RMDA (RO)
;LOAD RMDA
R2 ,RMOF (RO)
-LOAD RMOF
RZ2 ,RMERZ (RO)
;LOAD RMER?2
R3,RMAS (RO)
:LOAD RMAS
R3 .RMSN(RO)
;LOAD RMSN
R3 ,RMMR2 (RO)
;LOAD RMMR?
RMDA(RQ) ,RMDA]
;STORE RMDA [N INPUT BUFFER
RMO
(RO) ,RMOF
F
|
sSTORE RMOF IN INPUT BUFFER
RMER
(RO) ,RMERZ2]
Z2
:STORE RMERZ IN INPUT BUFFER
R3 ,RMDAI

208

#XNUOF
, RMOF |

CZRMQAO RMOS/3/2 DSKLS TST 2

394 007666
395 007672
396 007674
397 007702
398 007706
zgg 007710
401
602 007712

403 007712

4«04 007716
405 007722
406 00,726
407 007732
408 007736
409 007742
610 007746
411 007754
612 007762
413 007770
414 007774
415 007776
416 010004
417 010010
418 010012
419 010020
420 010024
25} 010026
423
424 010030
425 010030
426 010034

020337
001007
052737
020337
001001
104011

TEST

MACRO v03.01

001364
001567
001374

R3, RMOF |

442 010126
443 010130
444 010134
445 010140
446 010144
447 010150
448 010154
449 010160
450 010166

R3,RMER2]
11

004737

20%:

023334

000006
000032
000042
000020
000036
000046
000006
000032
000042
001340

REG

SEL

JSR

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

001340
001364
001374

2 FOR S-A-0

PC.,CNTCLR

;GO CLEAR CONTROLLER

R2 ,RMDA(RQ)
:LOAD RMDA
R2 ,RMOF (RO)
- LOAD RMOF
RZ,RMERZ2 (RO)
;LOAD RMERZ
R3,RMLA(RO)
:LOAD RMLA
R3.RMHR(RO)
;LOAD RMHR
R3,RMEC2(RO)
;LOAD RMEC?2
RMD
(RO) ,RMDA]
A
;STORE RMDA IN INPUT BUFFER
RMO
(RO) ,RMOF
F|
;STORE RMOF IN INPUT BUFFER
RMER
(RO) ,RMER2I
2
;STORE RMERZ IN INPUT BUFFER
R3 ,RMDA]
308

161577
001364

001364

#XNUOF
, RMOF |

001567
001374

001374

#XNUER2 ,RMER2]

R3,RMOF
|

308

R3,RMERZ]

308
12

:TEST REG SEL 2 FOR S-A-1

004737
010260

308:

023334
000014

001346
001366
001346

440
441 010124

#XNUER2 ,RMER?]

208

000000

104
435 010106
436 010114
437 010120
438 010122
439

208

001374

.TEST

010260
010260
010260
010360
010360
010360
016037
016037
016037
020337
001015
052737
020337
001007
052737
020337
001001
104012

H
S
11-APR-80 14:12:35 PAGE 12-8

052737
020337
001001
104013

176000
001366

001366

PC,CNTCLR

:GO CLEAR (CONTROLLER

R3 ,RMSN(RO)

;LOAD RMSN

R2 ,RMER1 (RO)
;LOAD RMER1
R2,RMDC (RO)
;LOAD RMDC
#ILF76,RMCS1(RO)
;LOAD RM(CS1

RMER
(RO) ,RMER1]
1
;STORE RMER1 IN INPUT BUFFER
RMD
(RQ) ,RMDC]
C
;STORE RMDC IN INPUT BUFFER

#*CILF76 ,RMER1]

R3,RMER1]
40%

#XNUDC ,RMDC]

R3,RMDCI
408
13

FOR S-A-0

004737
010260
010260
010260
010360
010360
010360
016037
016037

023334
000014
000032
000034
000026
000042
000044
000014
000032

PC.CNTCLR

001346
001364

;GO CLEAR CONTROLLER
R2 ,RMER1(RO)
;LOAD RMER!
R2, RMOF (RO)
;LOAD RMOF
RZ.RMDC (RO)
sLOAD RMDC
R3,RMDT (RO)
;LOAD RMDT
R3,RMER2(RO)
:LOAD RMER?
R3,RMEC1(RO)
;LC'D RMECT
RMER
(RO) ,RMER1]
1
;STORE RMER1 IN INPUT BUFFER
RMOF (RO) , RMOF |
;STORE RMOF IN INPUT BUFFER

SEQ 0059

'CZRMQAO RMO5/3/2 DSKLS TST 2

IT6

451 010174
452 010202
453 010206
454 010210
455 010216

456
457
458
459
460
461
462

010222
010224
010032
010236
010240

016037
020337

001007

464 010242
465 010246
466 010252
467 010256
468 010262
469 010266
470 010274
471 010302
472 010306
473 010310
474 010316
475 010322
476 010324

12-~9

SEQ 0060

000034
001346

001366

MOV
CMP

RMDC
(RO) ,RMDCI
R3,RMER1]

161577
001364

001364

BIS
CMP

#XNUOF
, RMOF |
R3, RMOF |

176000
001366

001366

023334

BNE

BNE
BIS
CMP
BNE
EMT

JSR

MOV
MOV

:STORE RMDC IN INPUT BUFFER

50$

50$
#XNUDC
, RMDC
R3,RMDC
]
50$
14

001340
001374
001567
001374

001374

477

PC.CNTCLR

:GO CLEAR CONTROLLER

R2.RMDA (RO)
R2.RMER2(RO)

*LOAD RMDA
-LOAD RMER?

MOV

R3.RMOF (RO)

*LOAD RMOF

BNE
BIS
CMP
BNE
EMT

60$
AXNUER2 ,RMER2 ]
R3,RMER2]
60$
15

MOV

478
479 010326
480 010326

MOV
MOV
cMP

R3.RMDS (RO)

*LOAD RMDS

RMDA(RO) ,RMDAI
-STORE RMDA IN INPUT BUFFER
RMER2 (RO) ,RMER?]
:STORE RMER2 IN INPUT BUFFER
R3,RMDA]

éggsr REG SEL 8 FOR S-A-0

023334
000014

481 010332

482 010336

000006
000034
000042
000014
000006
001346

483 010342
484 010346
485 010352
486 010360
487 010366
488 010372
489 010374
490 010400

491

11-APR-80 14:12:35 PAGE

géEST REG SEL 4 FOR S-A-1

463 010242

MACRO v03.01

JSR

001346
001340

001340

010402

MOV
MOV
MOV
MOV
MOV
MOV
CMP
BNE
cMP
BNE
EMT

PC,CNTCLR

oas
;GO CLEAR CONTROLLER

R2.RMERT(RO)
:LOAD RMERT
R2.RMDA (RO)
*LOAD RMDA
R3.RMDC (RO)
*LOAD RMDC
R3.RMER2(RO)
:LOAD RMER?
RMER1 (RO) ,RMER1]
;STORE RMER1 IN INPUT BUFFER
RMDA(RO) ,RMDAI
;STORE RMDA IN INPUT BUFFER
R3,RMER1]
70$
R3,RMDA]
70$
16

56§ST REG SEL 8 FOR S-A-1

023334

496 010410
497 010414
498 010420
499 010424
500 010430

501 010434
502 010440
503 010446
504 010454
505 010462
506 010470
507 010472

JSR
MOV
MOV
MOV

MOV
001364
001366

MOV
MOV
MOV
MOV

161577

001364

BIS

176000

001366

022737

001374

MOV

BNE
CMP

PC.CNTCLR
R2 . RMOF (RO)
R2.RMDC (RO)

;GO CLEAR CONTROLLER
*LOAD RMOF
*LOAD RMDC

R3.RMDS (RO)

*LOAD RMDS

R2.RMER2(RO)

R3.RMER1(RO)
R3.RMDA (RO)
RMOF
(RO) ,RMOF]
RMDC (RO) .RMDCI

RMER2 (RO) ,RMER?]

#XNUOF
, RMOF |

80%
#XNUDC ,RMDC |

:LOAD RMER2

:LOAD RMER1
*LOAD RMDA
:STORE RMOF
>STORE RMDC

IN INPUT BUFFER
IN INPUT BUFFER

;STORE RMER2 IN INPUT BUFFER

CZRMQAO RMOS/3/2 DSKLS TST 2

508 010500

$09 010504

§10 010506

511 010514

§12 010520
513 010522

g}g 010524

020337

001366

052737

001567

001007

020337

001001
104017

001374

MACRO v03.01

11-APR-80 14:12:35 PAGE 12-10
SEQ 0061

cMP

R3,RMDC]

BIS

#XNUER2 ,RMER2]

BNE

001374

CMP

BNE
EMT

808 :

80§

R3,RMER2]
80$
17

;REGISTER SELECT 16 IS TESTED BY THE ILR TEST

219
518

::ttfitttttttttttttttttttt'tttttttttttttfittttttttttttttttfitttttttt

J*TEST 7
RN

010524
010526
010526
010530

000004
000240
012706

001100

010540
5o 010544

013707
012757

001462
000007

010534

013709

1§17:

001276

520 010552

016002

522 010562
523 010564
324 010570

001437
022702
001434

526 010572
507 010576
528 010600
229 010604

022702
001431
022702
001426

020025

531 010606
532 010612
533 010614
234 010620

022702
001423
022702
001420

020027

536 010622
537 010626
538 010634
539 010642
540 010646
541 010654
542 010656
243 010662

010237
012737
012737
010037
062737
104057
000137

521 010556

022702

DRIVE TYPE TEST

AR AR

A AR NN

AN AR

RN RN

NN AR R AN

#STACK, SP

MOV
MOV

TSTQUE,R1
#7,STESTN

:R1 = POINTER TO DEVICE
1;SET TEST NUMBER IN APT MAIL BOX

RMDT (RO) ,R2

;STORE RMDT AT R2

$BASE , RO

:LOAD THE STACK POINTER

RO= UNIBUS ADDRESS

MOV

024026

BEQ
CMP
BEQ

108
#DULPRT,R2
108

YES I
iDUAL PORT RMO3 ?
YES

CMP
BEQ
CMP
BEQ

WSNGPRT!BITO,R2
108
ADULPRT!BITO,R2
108

;SINGLE PORT RMO2 ?
YES 1
:DUAL PORT RMO2 ?
YES !

(WP
BEQ
CMP
BEQ

WSNGPRT!BIT1!BITO,R2
108
WDULPRT!BITI!BITO.R2
108

MOV
MOV
MOV
MOV
ADD
EMT
JMP

R2,SBDDAT
WSNGPRT,STMPO
#DULPRT.STMP1
RO,SBDADR
#RMDT ,SBDADR
57
$E0SP

cmP

024025

024027
001142
020026
024026
001136
000026
021320

545

001174
001176
001136

108:

:SCOPE CALL

000026

020024

A AR A NN

SCOPE
NOP
MOV

MOV
001226

AN R AR A RN AR

#SNGPRT ,R2

*SINGLE PORT RMO3 ?

;SINGLE PORT RMOS 2
'YES
SDUAL PORT RMOS

;GET RECIEVED DRIVE TYPE
:GET EXPECTED DRIVE TYPE
"
"
:LOAD BAD ADDRESS
;GO TO NEXT DEVICE

t"tttttfiit'ttttt'."t"'tt!fit'.filififi'tt"t.".tttt'ttttttttt't

SATEST 10

'.tttttt.tttit'ttt*'tt"t"t't.tfitttt'tl'tttt.t'lt'ttti"tt"tt

010662
010662
010664
010666

000004
000240
012706

001100

010676

013701

001462

010672

DEVICE AVAILABLE TEST

013700

75110:

001276

SCOPE
NOP
MOV

#STACK , SP

"0V

TSTQUE ,R1

MOV

;SCOPE CALL

$BASE , RO

:LOAD THE STACK POINTER

RO = UNIBUS ADDRESS

:R1 = POINTER TO DEVICE

CZRMQAO RMOS5/3/2 DSKLS TST 2
110
DEVICE AVAILABLE TEST

010702

012737

000010

547 010710

004737
016037
042737
001006
012737
010057

023334
000000

548 010714

549 010722

550 010730
551 010732
552 010740
553 010744
554 010746
555
556

104060

173777

004000
001136

MACRO v03.01

SEQ 0062

001226

MOV

#10,8TESTN

;.SET TEST NUMBER IN APT MAIL BOX

001142
001142

e (01Y)

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

BIC
BNE

#“CDVA, $BDDAT

;CLEAR ALL BUT DVA
sBRANCH IF DVA SET

001140

557
558
559 010774
560 011002
561 011010
562 011016
563 011024
564 011032
565
566 011040
011044
011046
567 011050
568
569
570 011052
571 011052
011060

572 011064
573 011070
574 011072
575

RMCS1(RO) ,$BDDAT

108

Mov
MOV

10%:

#DVA, $GDDAT

gg.SBDADR

EMT

;STORE RMCS1 AT $BDDAT

sSETUP EXPECTED

;SETUP REG ADDRESS

;;tttittfiitttt*ttfitttttfitt't*titttttfittttttitttt.flttttttttt't'*'t

S*TEST N
S e

010746
010746
010750
010752
010756
010762
010766

K
5
11-APR-80 14:12:35 PAGE 12-11

000004
000240
012705
013700
013701
012737

T$T11:
001100
001276
001462
000011

012737
012737
012737
012737
012737
012737
004737

001226

001414
001442
001440
001412
001410
001406

SEARCH TIMEOUT TEST

AR R AR AN NN

SCOPE
NOP
MOV
MOV
MOV
MOV

AT AR AR

AR AR AR RN AN AN NN RRARRRRINNNARAR AN

AN A AN RN

;SCOPE CALL
#STACK,SP

$BASE RO

TSTQUE ,R1
#11,8TESTN

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS
sR1 = POINTER TO DEVICE
s.SET TEST NUMBER IN APT MAIL BOX

;LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS

023430

000402

104000

000462

MOV
MOV
MOV
MOV
MOV
MOV

#0 ,RMDAO
#0_,RMDCO
#FMT16 ,RMOFO
#BUF
FER ,RMBAO
#-1,RMJCO
#WD ! GO,RMCS10

s SECTOR=0=TRACK
s CYLINDER=0
;16 BIT FORMAT
;STARTING BUFFER ADDRESS

JSR

PC,ENBSCH

BR
EMT
BR

108

JEXECUTE DATA COMMAND TO POINT WHERE
;SEARCH IS ENABLED USING SUBROUTINE.
;BRANCH TO 108 IF NO ERROR

508

;SLOLC REST PF TEST

;WORD COUNT

JWRITE DATA COMMAND

%SIART THE CLOCK AND WAIT FOR 100 MS

012737
004777
005737
001375
004777

000144

016037
010037
062737
042737
001404
005037
104020

000014
001136
000014

000430

170446

001530

20%:

170436

157777

001140

001142
001136
001142

MoV
JSR

TST

BNE
JSR

#100. ,WATCH
PC,aCLOCK
WATCH

208

PC.asTOP

;SET WATCHDOG TIMER VALUE
:START THE CLOCK

;STOP THE CLOCK

;VERIFY LSCT OPI IS NOT SET (SEARCH TIMEOUT IS DISABLED)
RMER1
(RO) ,$8DDAT
:STORE RMER1 AT $BDDAT
MOV
RO, $SBDADR
;SET UP FOR ERROR MSG
ADD
BIC
BEQ
CLR
EMT

#RMER1, $BDADR

#*COP1 ,$BDDAT

308
$GDDAT

JBRANCH IF NO ERROR

508

JSKIP

JENABLE SEARCH TIMEOUT,

;DISABLED

THEN WAIT 100 MS

CZRMQAO RMOS/3/2 DSKLS TST 2

SEARCH TIMEOUT TEST

588 011136

589 011136
590 011144

011152
591 011156
592 011162
593 011164
594
595
596 011170
597 011176
598 011204

599 011206
600 011214
601 011216
602
603

011216

011216
011220
011222
011226

011232
011236

YAl

—

ASTAY)

—_

604
605 011244

609
610 011262
611

612 011266
613 011274

614 011302
615 011304
616 011306
617
618
619 011310
620 011310
621 011316

622 011324
623 011332
624 011340
625 011342
626 011344
627
628
629 011346
630 011346
631 011354
632 011362
633 011370

012760
012737
004777
005737
001375
004777
016037

041401
000144

170354

MACRO v03.01

000024
001530

001530
170344

042737

012737

020000

001140

SEQ 0063

MOV
MOV

#DMD 'MUR ! DBEN!MOC ,RMMR1 (R0O)
;LOAD RMMR1
#100. ,WATCH
SET WATCHDOG TIMER VALUE

BNE

408

JSR
TST

JSR

001142
001142

104021

30%:

40%:

000014
157777

001004

11-APR~80 14:12:35 PAGE 12-12

PC. aCLOCK
UATCH

;START THE CLOCK

PC.aSTOP

:STOP THE CLOCK

:OP] SHOULD NOW BE SET (SEARCH TIMEOUT IS ENABLED)
MOV
BIC

50%:

BNE
MOV
EMT

RMER1(R0O) , $BDDAT
#~COP]1,$BDDAT

;STORE RMER1 AT $8BDDAT

50%
#0P1 ,$GDDAT
21

t**fi*.tt*t***fi*'*****"'*'tfi*fi'fifi*i"'*"t'tfi't*t*it*l’tfiit**‘fi*

STEST 12

SET DTE TEST

*****fi*t*fi**Q*****“fi""*t'*t"t***.*.'**'*fitt*fi*'fi"’fi.**"t*t‘fl"

000004
000240
012706
013700
013701
012737

TST12

001100
001276
001462
000012

001226

010037
062737
005037

001136
000014

001136

004737

023334

016037
042737
001402

000014

001140

167777

zggPE
MOV

MOV

MOV
MOV

ADD

CLR

001142
001142

104031

ASTACK,SP

;LOAD

TSTQUE ,R1

RO, $8DADR

;SETUP ERROR MSG

$BASE RO

#12,8TESTN

#RMER1, $BDADR

THE STACK POINTER

;RO
= UNIBUS ADDRESS

= POINTER TO DEVICE

::SET TEST NUMBER IN APT MAIL BOX

$GDDAT

JSR

PC.CNTCLR

MOV
BIC
BEQ
EMT

RMER1(RO) , $BDDAT
;STORE RMER1 AT $8DDAT
#~CDTE,$BDDAT
108
;BRANCH IF DTE=0
31

B8R

%BET MAINTENANCE

000001
000005
000014
167777

CALL

sINITILAIZE AND VERIFY THAT DRIVE TIMING ERROR IS RESET

000517

012760
012760
016037
042737

+SCOPE

000024

MOV

001142
001142

MOV
BIC
8EQ

000024

MOV

EMT
BR

508

:GO CLEAR (ONIROLLER

:SKIP REST OF TEST

INDEX PULSE AND VERIFY DTE REMAINS RESET

#DMD,RMMR1(RO)

:LOAD RMMR1

#DMD
IM] , RMMR1 (RO}

RMER1(RO), $BDDAT
#~CDTE, $BODAT
203
50%

;LOAD RMMR1

*STORE RMER1 AT $8DDAT

; COMPARE SHOULD BE RESET

égéscurf DUMMY DATA COMMAND TO ENABLE SEARCH

000000
000005
010000
054244

001414

MOV

001440
001412

MOV
MOV

0016442

MOV

#0,RMDAO

#5.RMDCO

#FMT
16, RMOFO
#B8UF FER, RMBAO

C 4 RMQAO RMOS/3/2 DSKLS TST 2
T 2
SET DTE TEST
]

634 011376
635 011404
636
637 011412
011416
011420
638 011422

012737
012737

000061

004737

023430

177777

MACRO v03.01

M5
11-APR-80 14:12:35 PAGE 12-13
SEQ 0064

001410
001406

000402
104000
000451

MOV
MOV

#-1,RMWCO
WD !GO,RMCS10

JSR

PC,ENBSCH

gfiT

308

50%

;WITH SEARCH ENABLED,
3(S)EARCH FLOP.

012760
012760

051441
051401

000024
000024

MOV

;EXECUTE DATA COMMAND TO POINT WHERE

sSEARCH IS ENABLED USING SUBROUTINE.

sBRANCH TO 308 IF NO ERROR

SET AND RESET SECTOR PULSE

TO SET ENABLE

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

#DMD !MUR ! DBEN!MOC !DTO,RMMR1(R0O)

;LOAD RMMR1

;SET SECTOR PULSE AND VERIFY DTE DOES NOT SET
:
PUTMR1
#DMD !MUR!DBEN!MOC!DTO!MS

650 011440
651 011446
652 011454
653 011456
654 011460
655
656
657 011462
658 011462
659 011470
660 011476

669 011544
670
671 011546

016037
042737
001402
104023
001432

000014

167777

PUTMR1

#DMD !MUR ! DBEN!MOC
IDTO

MOV
BIC
BEQ

RMER1(RO) ,$8DDAT
#*CDTE, $BDDAT
40%

EMT
BEG

23
508

;STORE RMER1

AT $BDDAT

; COMPARE SHOULD BE RESET

sFORCE SECTOR COMPARE

012760
012760
012760

051403

051443

051403

000024
000024
000024

012760
012760
016037
042737
001004
012737
104024

051441
051401
000014
167777

000024
000024
001142
001142

010000

001142

:
408

MOV
MOV

MOV

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

#DMD !MUR ! DBEN'MOC !DTO!MSC !MS.RMMR1(R0O)

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

673

;LOAD RMMR1

sSET SECTOR PULSE AND VERIFY DTE SETS
MOV
#DMD !MUR !DBEN'
'DTO!'MS
MOC
,RMMR1 (RO)
;LOAD RMMR1
MOV
#DMD !MUR !DBEN'MOC 'DTO,RMMR1(RO) :LOAD RMMR1
MoV
RMER1 (RO) , $8BDDAT
;STORE RMER1 AT $BDDAT
BIC
BNE

MOV

EMT

#-CDTE ,$8DDAT
508
#DTE ,$BDDAT
24

50%:

672

;LOAD RMMR1

:LOAD RMMR1

;SECTOR COMPARE SET

.’""'t'tfi'*"t*fi***fi.t*""*.*t****fl*tfi**fi*'fi'fififi**fi"fi*fifi""fifi't

*TEST 13

FORMAT CHANGE TEST

“"*****fi*"*t‘t***tfi'*"'**.*'**fifi"*'*""fifi*‘“'fi'i.fi*.'*""*'*fi

675 011574
676
677

TST13:

000004
000240
012706
013700
013701
012737

001100
001276
001462
000013

012702

012124

001225

gggPE

;SCOPE CALL

MOV
Mov
MOV
MOV

#STACK,SP
$8ASE R
TSTQUE ,R1

#13,8TESTN

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

MOV

#508 ,R2

JR2=TABLE POINTER

::SET TEST NUMBER IN APT MAIL BOX

;INITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR FORMAT CHANGE

CZRMQAO RMOS/3/2 DSKLS TST 2

FORMAT CHANGE

TEST

004737
011260
012760
012760

023334
000032
000001
000005
000000

689 011654
230 011662

012737
012737
016237
012737
012737
012737

692 011670

004737

023430

011674
011676
693 011700
694
695
696
697 011702
698 011702
699 011710

000402
104000
000514

700 011716
701 011724
702
703

704 011732
705 011740

706 011746
707 011750
708 011754
709 011762
710 011766
711 011772
712 012000
713 012002

MACRO v03.01

N 5
11-APR-80 14:12:35 PAGE 12-14

10%:

001414
001442

JSR

PC,CNTCLR

:GO CLEAR CONTROLLER

nov

#DMD .RMMR1 (RO)

-LOAD RMMR1

MOV

000024
000024

SEQ 0065

MOV

(R2) ,RMOF (RO)

:LOAD FORMAT MODE IN RMOF

#DMD
IM] ,RMMR1 (RO}

:LOAD RMMR1

;SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT

001440
001412
001410

MOV
MOV
MOV
MOV
MOV

#0 ,RMDAQ
#5.RMDCO
2(R2) ,RMOFO
#BUFFER,RMBAO
#-1,RMICO

JSR

PC.ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

Efi”

208

*BRANCH TO 20$ IF NO ERROR

608

MOV

001406

#JD GO, RMCS10

“SEARCH 1S ENABLED USING SUBROUTINE.

;FORMAT CHANGE FLOP SHOULD BE SET = VERIFY BY TRYING TO FORCE A

é8§IVE

012760
£127¢0
012760
012760

051403
057443
051403
051401

016037
042737
001416
010037
062737
005037
011237
016237

000014
167777

104025

000024

MOV

#DMD !MUR !DBEN!*OC.DTO!MSC ,RMMR1 (RO)

;LOAD RMMR1

MOV

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

;LOAD RMMR1

MOV

MCv

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

#DMD !MUR ! DBEN!MOC!DTO,kmriR1 (RO)

;LOAD RMMR1

;VERIFY THAT DRIVE TIMING ERROR DIDNT SET
MOV
RMER1(RO) , $8DDAT
;STORE RMER1 AT $BDDAT

001136
000014

001136

000002

001176

001140
001174

TIMING ERROR WHICH SHOULD NOT SET.

000453

BIC

#~CDTE, $BDDAT

ADD
CLR
MOV
MOV

#RMER1
, $BDADR
$GDDAT
(R2) ,$TMPO
2(R2) ,$TMP1

BEQ
MOV

EMT
BR

308
RO, $BDADR

;SETUP ERROR MESSAGE

25
60%

:A FORMAT CHANGE

éB%EAR THE FORMAT CHANGE FLOP W/INDEX PULSE

720 012012
721 012620
722 012026
723
724
725 012034
726 012042
727 012050

728 012056
731 012072

012760

051405

000024

012760

051403
051443
051403

000024
000024
000024

051441
051401
000014

167777

000024
000024
001142
001142

001136
000014

001136

012760
012760

012760
012760
016037
042737
001012
010037
062737

MOV

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

;ENABLE SEARCH AND FORCE SECTOR COMPARE
MOV
#DMD !MUR ! DBEN!MOC ! DTO!MSC ,RMMR1 (RO)
MOV

MOV

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

#DMD !MUR ! DBEN!MOC ! DTO!MSC

,RMMR1(RO)

;SET DTE W/ANOTHER SECTOR PULSE - VERIFY DTE IS SET
MOV
MOV
MOV
BIC
BNE
MOV
ADD

;LOAD RMMR1
;LOAD RMMR1

;LOAD RMMR1

#DMD !MUR ! DBEN!MOC !DTO!MS ,RMMR1 (RO)
;LOAD RMMR1
#DMD !MUR ! DBEN'!MOC !DTO,RMMR1
(RO) ;LOAD RMMRI]
RMER1 (RO) ,$8DDAT
;STORE RMER1 AT S$BDDAT
#~CDTE ,SBDDAT
40%
RO, $BDADR
;SETUP ERROR MESSAGE
#RMER1, $BDADR

CZRMQAO RMOS/3/2 DSKLS TST 2

113

FORMAT CHANGE

732 012100
733 012106
734 012110

735

012737

104027
000410

TEST

010000

MACRO v03.01

B 6
11-APR-80 14:12:35 PAGE 12-15
SEQ 0066

001140

MOV

EMT
BR

#DTE,SGDDAT

27
60%

.gg TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION

022702
001005

“UY:

C1212¢4

745 012130

#508 ,R2
60%

JBRANCH IF DONE TEST

B8R

108

JREPEAT TEST

TST

50%:
746 012132

CMP
BNE

010000

608 :

747
748

.WORD

(R2)+

.MOVE POINTER

FMT16

;16-18 FORMAT (CHANGE

;18-16 FORMAT (HANGE

FMT16

JEND OF

TEST

;:i!'nfi"l'ttittttt*fifi'*it"tt*'*fifittfi'fi.fiitiittitfi;fi*ttt'tt't'tt'

J*TEST
IR

012132
012132
012134
012136
012142
012146
012152

749
750 012160
751 012164
752 012170
753
754
755 012176
756 012204
757 012210

012210
758 012216
759 012224
760 012232
761 012240
762 012242
763 012244
764 012246
765 012252
766 012254
767 012256
768 012262

012262

769 012270
770 012276
771 012304
772 012312
773 012314
776 012316
775 012320
776 012326

000004
000240
012706

TST14:

013700
013701
012737

001100
001276
001462
000014

004737
010037
062737

023334
001136
000024

012760
012702

000001
000021

000024

012760
012760
016037
042737

004001
000001
000024
177737

000024
000024
001142
001142

012760
012760
016037

000024

177737

001140

.LOAD

TSTQUE ,R1

;R1

MOV

#14,$TESTN

JSR

PC,CNTCLR

ADD

#RMMR1, $BDADR

5¢

RO, $8DADR

CALL
THE

STACK POINTER

;RO = UNIBUS ADPDRESS

= POINTER TO DEVICE

2:SET TEST NUMBER IN APT MAIL BOX
;GO CLEAR CONTROLLER

;SETUP ERROR MESSAGE

MOV

#DMD ,RMMR1 (RO)

MOV
MOV
MOV
B8IC

ADMD 'MCLK ,RMMR1 (R0O)
;LOAD RMMR1
#DMD ,RMMR1(R0O)
;LOAD RMMR1
RMMR1 (RO)
, $8DDAT
;STORE RMMR1 AT $SBDDAT
#~CWC, $8DDAT

MOV

8EQ
DEC

#17..R2

;LOAD RMMR1

JR2=MAXIMUM ¥ CLOCK PULSES

63
R2

CLR
EMY
BR
MOV

0%
#7..R2

MOV
MOV
MOV

#DMD 'MCLK ,RMMR1 (RO)
;LOAD RMMR1
#DMD ,RMMR1(RO)
;LOAD RMMR1
RMMR1(RO) ,$8DDAT
;STORE RMMR1 AT $BDDAT

BNE

208

BIC

DEC

000040

#STACK,SP

R RANNRARRAAR AR RANANN NS

JSET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE

?35
000024
001142
001142

R R R RNRRA AR

.SCOPE

$8BASE RO

BNE

000021

AR R RN AR

MOV

001136

TEST

gggPE

MOV

001226

PROM STROBE

RN AR AR

MOV

001140
000501
012702

BNE
MOV
EMT

$GDDAT

#~CWC,$8DDAT

108
MIC,$GDDAT
30

JEXIT L OP WHEN PROM STROBE ON

CZRMQAO RMOS5/3/2 DSKLS TST 2

PROM STROBE

;;g 012330

TEST

MACRO v03.01

000453

B8R

779

780 012332

012702

783 01234
784 012352
785 012360
786 012366
787
788 012370
789 012376
790 012400
791 012402
;3; 012404

012760
016037
042737
001005

000001
000024
177737

000024
001142
001142

MOV
MOV
BIC
BNE

012737
104032
000427
005302
001354

000040

001140

MOV
EMT
BR
DEC
BNE

012702

000010

794

795 012406
796 012412

012412

797 012420
798 012426
799 012434

800 0126442

801 012444
802 012450

803 0126452
804 012454
805 012456

389 012460

SEQ 0067

608

:VERIFY PROM STROBE IS ON FOR 3 BIT CLOCKS

208:

781 012332
782 012336

012336

11-APR-80 14:12:35 PAGE 12-16

012760

000003

004001

308

004001

012760
016037
042737

000001
000024
177737

005037
104033

001140

001404

000024

258
:

MOV

#3. .R2

MOV

#DMD 'MCLK ,RMMR1 (RO)

;LOAD RMMR1

#DMD _RMMR1 (RO)
;LOAD RMMR1
RMMR1 (RO) ,$BDDAT
;STORE RMMR1 AT $BDDAT
#-CWC, $BDDAT
30s
;BRANCH IF PROM STORBE DID NOT
;DROP EARLY
MJC, SGDDAT
32
608
R2
258

cVERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS
000024

408:

000024
001142
001142

000402
005302

608 :

808

#8. .R2

MOV

#DMD 'MCLK ,RMMR1(R0O)

;LOAD RMMR1

MOV
MOV
BIC

#DMD .RMMR1 (RO)
:LOAD RMMR1
RMMRT (RO) , SBDDAT
;STORE RMMR1
#~CWC, $BDDAT

CLR
EMT

$GDDAT
33

BEQ

508 :

001355

MOV

BR
DEC
BNE

50%

AT S8DDAT

;BRANCH IF PROM STROBE
;DID NOT SET EARLY

60%
R2
408

";tttttttttttitttttttttttttt'tttttttttttttttttttt*tttttttttttt't!

J*TEST 15

012460

.-:tttttttttttttttttttttttttt'ttfittttttt'tttttttttttttttttt‘ttttt'

012460
012462
012464
012470
012474
809 012500

000004
000240
012706
013700
013701
012737

810
811 012506
812 012514

TSTI1S:

001100
001276
001462
000015

001226

012737
012737

000005
000000

001442
001414

814 012530
815 012536
g}g 012544

012737
012737
012737

054244
177777
000061

818 012552

004737

023430

012556
012560

000402
104000

813 012522

SYNC WORD COUNT INHIBIT TEST

012737

010000

001440
001412
001410
001406

SCOPE
NOP
MOV
MOV
MOV
MOV

:SCOPE CALL

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#15,$TESTN

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

$:SET TEST NUMBER IN APT MAIL BOX

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES
MOV
#5,RMDCO
; CYLINDER=S
MOV
#0 . RMDAO
:SECTOR=0, TRACK=0

MOV
MoV
MOV
MOV

#BUFFER ,RMBAO
#-1_ RMICO
MIDTGO,RMCS10

AFMT16 RMOFO

:16 BIT FORMAT

JSR

PC,ENBSCH

JEXECUTE DATA COMMAND TO POINT WHERE

BR
EMT

108

:BRANCH TO 10% IF NO ERROR

JSTARTING BUFFER ADDRESS
“WORD COUNT
-WRITE DATA COMMAND

sSEARCH IS ENABLED USING SUBROUTINE.

CZRMQAO RMOS5/3/2 DSKLS TST 2

115

SYNC WORD COUNT

MACRO v03.01

INHIBIT TEST

g;g 835322 000562
821 012564
012570
012572
ggg 012574

004737
000402

05
024302

104000
000555

012702

:SKIP IF FAILURE

JSR
BR

PC,SCTCMP
20§

JFORCE SECTOR COMPARE USING SUBROUTINE
:BRANCH TO 20% IF NO ERROR

1208

.STEP THE SEQUENCER TO LOCATION 10(10) WHILE CHECKING ‘'PLFS''
208:
MOV
#0.R2
;R2=SEQUENCER ADDRESS

000000

829

830 012602

831 012602
gg% 012610

834

835 012616

836 012622
837 012626
g%g 012630

:PULSE MAINTENANCE CLOCK UNTIL PROM STROBE SETS

012760
012760

055401
051401

016003

000024

032703
001765
005202
010337
042737
001413
005037

001142
175777

846 012656

062737

000024

845 012652
847 012664

848 012670

gg_g 012672

851
852 012674
853 012674
ggzs. 012700

010037
010237
104034

000024
000024

MOV
BIT
8EQ
INC

001174

001142

858 012702
323012710

016003

000024

864 012726
ggg 012730

001365
000724

032703

873 012736

ADD

#RMMR1, $SBDADR

EMT

MOV

000024
000024

608:

:BRANCH IF PLFS IS ZERO

RO, $8DADR

R2.$TMPO
1208

MOV
MOV

;SKIP REST OF TEST

#DMD 'MUR ' DBEN 'MOC ! DTO 'MCLK ,RMMR1 (RO)
:LOAD RMMR1
#DMD 'MUR ' DBEN 'MOC ! DTO,RMMRT
(RO) ;LOAD RMMR]

;SEE IF PROM STROBE IS RESET

000040

867
868

g;fi) 012732

;ISSUE NEXT BIT CLOCK
s INCREMENT SEQUENCER ADDRESS

;PULSE MAINTENANCE CLOCK UNTIL PROM STROBE RESETS

862 012716

869 012732

;STORE RMMR1 AT R3

:EXIT LOOP IF SEQUENCER NOW AT LOCATION 10
50s:
P
#10. .R2
8EQ
708

000012

055401
051401

863 012722

MJC,R3
208
R2

R3,$BDDAT
#*CPLFS,$BDDAT
508
$GDDAT

012760
012760

861

RMMR1 (RO) ,R3

MOV
BIC
BEQ
CLR

MOV

001136

000516
022702
001414

#DMD 'MUR 'DBEN'MOC'DTO'MCLK ,RMMR1(R0)
;LOAD RMMR1
#DMD 'MUR'DBEN'MOC 'DTO,RMMR1(RO) ;LOAD RMMR1

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

001140

001136

MOV
MOV

;SEE IF PROM STROBE IS SET

856

857 012702

%08

000040

012632
012636
012644
012646

872

1208

JCAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET

826
g? 012576

841
842
843
844

BR
EMT
BR

g%‘é

840

D 6
11-APR-80 14:12:35 PAGE 12-17

MOV

RMMR1(RO)
,R3

:STORE RMMR1 AT R3

BNE
B8R

608
308

:GO STEP SEQUENCER TO NEXT LOC

BIT

MICR3

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

012702

000020

708:

:ISSUE

808:

MOV

#16. .R2

;R2=NUMBER OF BIT CLOCKS

16 BIT CLOCKS TO GET NEXT PROM STROBE

SEQ 0068

CZAMQP0 AMOS/3/2 DSKLS TST 2
SYNC WORD COUNT

876 012736

012760

876 012752
g;g 012754

005302
001370

875 012744

879
880 012756

881 012764
882 012772
883 012774
884 013002
885 013006
886 013014
ggg 013016

889
890 013020
891 013020
892 013024

013024

893 013032
894 013040
ggg 013042
897
898
388 013044

012760

016037
042737
001012
012737
010037
062737
104035
000644

INHIBIT

055401

000024

000024
175777

001142
001142

002000
001136
000026

001140

000003

012760

055401

012702

TEST

051401

012702
012760
005302
001370

E
MACRO V03.01 11-APR-80 14:12:35 PAGE
13-18

051401

000024

R2
80$

BI(
BNE
MOV
MOV
ADD
EMT
BR

#~CPLFS,$BDDAT
903
#PLFS,$GDDAT
RO, $SBDADR
#RMMR1, SBDADR
35
1208

:STORE RMMR1 AT $BDDAT

;BRANCH IF PLFS IS SET
:SETUP ERROR MESSAGE

;SKIP REST OF

TEST

;1SSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE
908:
MOV
#3,R2
95$:

MOV
MOV
DEC
BNE

#DMD ' MR ' DBEN'MOC ' DTO'MCLK ,RMMRT(RO)
#DMD 'MUR ! DBENMOC ! DTO,RMMRT(RO)
R2
953

;L OAD RMMRI

;LOAD RMMR1

FURTHER BIT CLOCKS SHOULD NOT SET
;R2=NUMBER OF BIT CLOCKS

;PULSE BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET

012760

055401

905 013064

016003

000024

906 013070
907 013076
908 013076
909 013102
910 013106
911 013112
912 013120
913 013122
914 013124
3}2 013126

DEC
BNE

;LOAD RMMRI

#DMD ! MUR | DBEN {MOC | DTO,RMMR1 (RO) ;LOAD RMMR1

:WITH "LOOKING FOR SYNC SET,
:PROM STROBE
MOV
#32.,R2

000040

903 013050

904 013056

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

:VERIFY THAT *PLFS''
IS NOW SET
MOV
RMMR1(RO) , SBODAT

000024

901

902 013050

MOV

001136

SEQ 0069

012760

042703
001413
005037
010337
010037
062737
104036
000402
005302
V01350

051401

000024

1008:

000024

001136

1108:

3}; 013130

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

MOV

RMMR1(R0)
,R3 ~ :STORE RMMR1 AT R3

MOV

177737

001140
001142
001136
000026

MOV
BIC
BEQ
CLR
MOV
MOV
ADD
EMT
BR
DEC
BNE

#~CWC,R3
1108
$GDDAT
R3.$BDDAT
RO, SBDADR
#RMMR1, SBDADR
36
1208
R2
1008

1203:

919

;LOAD RMMRI

#DMD | MUR | DBEN'MOC | DTO,RMMRT
(RO) ;LOAD RMMR1

:BRANCH IF PROM STROBE
*SETUP ERROR MESSAGE

IS O

;CONTINUE FOR 32 BIT CLOCKS

;END OF TEST

t'.tt"ttt't'Qttttt"it""""'ifi'tt"i't'itfi!tt"t‘..tt.'...'

SVTEST 16

SYNC DETECTION TEST

. ttfit"ttfit'tt't.'tt"i'ttttt'.."ttttit.'Q"i'tt."'.".tt"t.t

013130
013130
013132
013134
013140
013144
013150

000004
000240
012706
013700
013701
012737

T8116:
001100
001276
001462
000016

001226

SLOPE
NOP
MOV
MOV
MOV
MOV

; SCOPE CALL
#STACK, SP
$BASE RO
TSTQUE ,R1
#16,STESTN

;LOAD
‘RO =
:R1 =
:;SET

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

CZRMQA0 RMOS5/3/2 DSKLS TST 2

SYNC DETECTION TEST

920
921

922 013156
923 013166

012737
012737

000000
000005

MACRO v03.01

001414
001442

012737

010000

001440

gsg 013214

012737

000071

001406

929 013222

004737

€'3226

000402

013230
930 013232
931 013234
932 013234

013240

013242
933 013244
934 013246
935 013246
013252
013254

ggg 013256

012737
012737

054244
177777

000402

#0, RMDAQ
#5.RMDCO

MOV
MOV

#BUFFER,RMBAO
#-1,RMJCO

:16 BIT MODE

#RD'GO,RMCS10

:READ DATA COMMAND

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

B8R

108

:BRANCH TO 108 IF NO ERROR

EMT
BR

1008

JSR

PC,SCTCMP

EMT
BR

100$

B8R
208:

024410

000536

;SECTOR 0,TRACK 0
:CYLINDER'S

#FMT16 RMOFO

MOV

108
:

024302

MOV
MOV
MOV

023430

104000
000543

004737
000402
104000

:SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

001412
001410

104000
000550

004737

6
12-19
SEQ 0070

924 013172

925 013200
926 013206

F
11-APR-80 14:12:35 PAGE

JSR
BR
EMT

208

PC.SETLFS
30$

:BUFFER ADDRESS
:CORD COUNT

:SEARCH 1S ENABLED USING SUBROUTINE.

;FORCE SECTOR COMPARE USING SUBROUT INE

:BRANCH TO 208 IF NO ERROR

;SET 'LOOKING FOR SYNC'' USING SUBROUTM
INE
:BRANCH TO 308 IF NO ERROR

1008

938

;CLOCK ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED

940 013260

308

939

91 013260
942 013264

- (USING PROM STORBE AS INDICATION)

012702
010037

000020
001136

93 013270
944 013276

062737
005037

000024
001140

053401

000024

947 013310
948 013316
949 013326

012760
012760
016037

057401
053401
000024

952 013342

012737

954 013352

000500

gzg 8}%%

950 013332
951 013340

953 013350

955 013354
956 013354

957 013356
323 013360

012760

042737
001405

104037

001136

962 013364
963 013372
964 013400

965
9%6
967
968

013406
013414
013416
013422

969 013424

#RMMR1, S8DADR
$GDDAT

:NUMBER OF ONE BITS
*SETUP ERROR MESSAGE

MMR1AAA 'MRD,RMMR1(R0O)

177737

000024
000024
001142

001142

MOV
MOV
MOV

#MR1AAA !MRD 'MCLK , RMMR1 (RO)
:LOAD RMMR1
MMRTA
'MRD .RMMR1(RO)
AA
:LOAD RMWR1
RMMR1(RO
, S8DDAT
)
:STORE RMMR1 AT $8DDAT

177777

001174

MOV

#177777.$TMPO

100s

8IC
BEQ

EMT

508:

DEC

BNE
MOV

000020

961 013364

ADD
CLR

6. .R2
RO, SBDADR

MOV

005302

001354
012702

‘o8

MOV
MOV

:LOAD RMMR]

#~CWC, SBDDAT
508

408
#16. ,R2

;REPEAT FOR 16 BITS

;NUMBER OF ZERO BITS

;CLOCK ALL 2ERO SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED

012760
012760
016037

042737
001404
005037
104037

000453

055401
051401
000024

177737

001174

000024
000024
001142

001142

608:

MOV
MOV
MOV

MMR1IAAA'MCLK ,RMMRT(RO)
MMRTAAA RMMRT (RO)
RMMR1(RO) , SBDDAT

B8R

1008

BIC
8EQ
CLR
EMT

#~CWC,$BDDAT
70$
$TMPOQ
37

:LOAD RMMR1
:LOAD RMMR)
:STORE RMMR1 AT $8DDAT

:MAKE SURE SYNC NOT DFTECTED

;SKIP IF FAILURE

—

e—

CZRHQAO RMOS/3/2 DSKLS TST 2
SYNC DETECTION TEST

013426
013426
013430
013432
013436

013442
013450
013452
013454
013456
013464
013464
013472
013500
013506
013514
013522
013530
013536
013540
013542

013544
013552
013554

005302
001355
012702
012703

052737

002000

MOV

001432

000040

;REPEAT FOR 16 BITS

#32. R2

;R2=NUMBER OF BITS

608

#000031.,R3

:R3=SYNC PATTERN FOR LEFT SHIFT

gtgggrgge BINARY SYNC PATTERN

(10011000)

80$:

;GENERATTM VALUE OF RMMR1

oo
"

000024

177737

DEC

BNE

000024
001432

013760
052737
013760
042737
013769

104040

SEQ 0071

000040
000031

051401

016037
042737
001006
005302
001337
012737

G
6
11-APR-80 14:12:35 PAGE 12-20

70%:

012737
000241
006003
103003

MACRO v03.01

mov

cLe
ROR
BCC

#MRD , RMMR10

mov
BIS

RMMR10, RMMR1 (RO)
MMCLK , RMMR10
RMMR10, RMMR1 (RO)
MMCLK, RMMR10

BIC
MOV
MOV

001142

BIC

BNE

100%:

1008

DEC

MOV

MJC, SGDDAT

BNE

001140

EMT

:SET MRD IF PATTER BIT SETS
:LOAD RMMR1
*SET THE MAINTENANCE DATA CLK
*LOAD RMMR1
*RESET BIT CLOCK

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

80%

:CLEAR THE CARR
SSHIFT RIGHT
*BRANCH IF C BIT CLEAR

R3
908

8IS

MOV

001432
000024
001142

#MR1AAA,RMMR10

AND VERIFY THAT SYNC

*LOAD RMMR1
*STORE RMMR1 AT S$BDDAT

:BRANCH IF PROM STROBE IS SET

*CONTINME FOR 16 BIT CLOCKS

:END OF

TEST

ttttttlttt'tttfitttttt'tttt'tttfittttttQ*tttttttt.ttttt

TRTEST 17

013554
013554
013556
013560
013564
013570
013574

013602
013610

t't'ttt't.

ABORT SYNC DETECTION TEST

. tt'tttt!tttttltttitttttitttttttttttttttlttttt'ttt'

TST17

001100
001276
001462
000017

000000
000005
010000
054244

177777

000071

MOV

;SCOPE

#STACK, SP
$BASE ,R0
TSTQUE R

#7.$TESTN

CALL

:LOAD THE STACK POINTER
‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

1;SET TEST NUMBER IN APT MAIL BOX

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

023430

105
024302

aggPE

MOV
MOV
MOV

001226
001414
001442
001440
001412
001410
001406

ttttt'tttttt.

MOV
MOV
MOV
MOV
MOV
MOV

#0 .RMDAD
#5.RMDCO
#FMT16,RMOFO
#SUFFER,RMBAO
#-1 RMJCO
#RDIGO,RMCS10

:SECTOR 0, TRACK 0
*CYLINDERS
:16 BIT FORMAT
-STARTING BUFFER ADDRESS
*WORD COUNT
-READ DATA COMMAND

JSR

PC.ENBSCH

:EXECUTE DATA COMMAND TO POINT WHERE

?zr

108

*BRANCH TO 108 IF NO ERROR

B8R

508

JSR

PC,SCTCMP

ffaa

20$

:SEARCH IS ENABLED USING SUBROUTINE.

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

C 4 RMQAQ RMOS/3/2 DSKLS T ST 2
MACRO v03.01
T 7
ABORT SYNC DETEC Tl ON TEST
q

000442
004737
000402

208

024410

11-APR-80 14:12:35 PAGE 12-21

104000

000435

SEQ 0072
BR

508

JSR

PC,SETLFS

508

E:T

308

;SET “LOOKING FOR SYNC'' USING SUBROUTINE
;BRANCH TO 308 IF NO ERROR

;LOOKING FOR SYNC INHIBITS WORD CLOCK, HOWEVER,

;SHOULD RESET 'LFS WORD COUNT INHIBITTM FLOP

éS?RCE DRIVE

1023 013712
1024 013716
1025 013716
1026 013724
1027 013732
1028 013740
1029 013746
1030 013750
1031 013752
1032 013754
1033 013762
1034 013766
1035 013774
1036 013776
1037
1038
1039

012760

051441

012702

000020

012760
012760
016037
042737

055441
057441
000024
177737

000024
000024
001142
001142

0000490
001136
000024

001140

[ 017

001136

ADD

000024

MOV

#MMR1AAA
'MS ,RMMR1 (RO)

1040
1041
1042 014024

MOV

#16. .R2

MOV
MOV
MOV

#MRT1AAA
'MS 'MCLK ,RMMR1 (RO)
.LOAD RMMR1
#MMR1AAA!'MS
. RMMR1(RO)
<LOAD RMMR1
RMMR1(RO)
, $BDDAT
;STORE RMMR1 AT $BDDAT

BNE
DEC
BNE

50%
R2
408

BIC

MOV

SRR

EMT

RN AR AR

YRTEST 20

1043 014032
1044 014040
1045 014046
1046 014054

1047 014062
1048
1049 014070

TST20:

000000
000005

010000
054244
177776
000063

MJIC ,SGDDAT
RO, $BDADR

A#RMMR1
, $BDADR

R RN N A AR AR AR R R AR NN RN NN N AR R AN NNARNA NN

SYNC GENERATION TEST

024302

SCOPE

001226

001414
001442
001440
001412
001410
001406

N#STACK,SP

MOV

#20,8TESTN

$BASE RO
TSTQUE ,R1

MOV

;LOAD THE STACK POINTER
;:SET TEST NUMBER [N APT MAIL BOX

#0,RMDAO

#5,”RMDCO

;SECTOR 0,

TRACK O

;CYL S

MOV
MOV

#FMT16,RMOFO
#BUFFER ,RMBAO

;16 BIT MODE
;BUFFER ADDRESS

MOV

#MH'! GO ,RMCS10

;WHITE HEAD AND DATA (OM

JSR

PC,ENBSCH

?:T

10%

JMP

1608

JSR

PC.SCTCMP

MOV

108
:

;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE

:SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

MOV

RANSRAANY

:SCOPE CALL

MOV

MOV
MOV

;JR2, NUMBER OF BIT CLOCKS

#°CWC,$8DDAT

NOP

023430

014470

;LOAD RMMR1

sPULSE BIT CLOCK AND VERIFY PROM STROBE SETS

408

50%:

001100
001276
001462
000020

TIMING ERROR''

TIMING ERROR

013776
013776
014000
014002
014006
014012
014016

'DRIVE

#-2 RMJCO

;WORD COUNT

JEXECUTE DATA COMMAND TO POINT WHERE

;SEARCH ]S ENABLED USING SUBROUTINE
.
JBRANCH TO 10% IF

NO ERROR

sFORCE SECTOR COMPARE USING SUBROUT INE

CIRMQAQO RMOS/3/2 DSKLS TST 2
120
SYNC GENERATION TEST
014110
014712

}832 014114

MACRO v03.01

000402
104000
000565

BR
EMT
BR

1055
1056
1057

1058 014116

016037
042737

000040
177776

1062 014134

005037

001140

1064 014144
1065 014152

062737
104042

000040

1063 014140

}829 014154

208

SEQ 0073

;BRANCH TO 20% IF NO ERROR

1608

;WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED
*FIRST, VERIFY THAT WRITE GATE IS ON, INDICATING THAT
“SECTOR COMPARE SET

1059 014116
1060 014124

1061 014132

I
6
11-APR-80 14:12:35 PAGE 12-22

001011

010037

001136

001142
001142

208:

MOV
BIC

RMMR2 (RO) , $BDDAT
#~CBB00, $8DDAT

CLR

$GDDAT

BNE

MOV

001136

ADD
EMT

000545

B8R

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

308

RO, $BDADR

#RMMR?2
, $8DADR
42

1608

;FORMAT-CS FAILURE

1068

JSTEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE

1070 014156

508:

1069

.GATE STAYS ON

1071 014156
1072 014162
1073 014162

012702

000016

016037

000040

1075 014176
1076 014200
1077 014202

001014
005302
001367

1074 014170

032737

0000017

1078 014204
1079 014210
1080 014216
1081 014224
1082 014226
1083 014230
1084
1085 014230
1086 014230
1087 014236

010037
062737
012737
104042
000520

001136
000040
000007

012760
012760

055401
051401

1089 014250

032703

000040

109
1093 014256
}832 014260

005302

1088 014244

}83? 014254

016003
001765

001142

000024

1098 014262
1099 014270
1100 014276
1101 014302
1102 014306

;}82 014310

1105
1106
1107

MOV
BNE
DEC
BNE

508:
000024
000024

MOV

BIT

001136
001140

608:

#14. R2
RMMR2 (RO) , $BDDAT

;FORMAT - CS FAILURE

MOV
MOV

MMR1AAA
'MCLK ,RMMR1(RO)
MR1AAA .RMMR 1 (RO)

:LOAD RMMR1
:LOAD RMMR1

8IT

MICR3

RMMR1(R0),R3

*BRANCH IF WRITE GATE ON

;STORE RMMR1 AT R3

608

-WAIT FOR PROM STROBE TO GO OFF,

000764

MOV
ADD
MOV
EMT
BR

MOV

055401
051401
000024
000040

000024
000024

70$:

CLOCK

:STORE RMMR2 AT $8DDAT

#8800, SBDDAT

:PROM STROBE CAME ON~DECREMENT PROM STROBE COUNT
DEC
R2
BEQ
80$

001414

012760
012760
016003
032703
001725

;MAXMUM NUMBER OF

508
R2
408
RO, $8DADR
#RMMR?
, S8DADR
#8800, $GDDAT
42
1608

BEQ

1096

1097 014262

408
:

MOV
MOV
MOV
8IT
BEQ

THEN REPEAT LOOP

AMRIAAA
'MCLK ,RMMR1(RO)
:LOAD RMMR1
MMR1AAA .RMMR 1 (RO)
:LOAD RMMR1
RMMR1(R0),R3
;STORE RMMR1 AT R3
MIC ,R3
408

708

;VERIFY HEADER SYNC GENERATION
;WRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER
;FIRST,COUNT NUMBER OF 2ERO BITS UNTIL FIRST ONE BIT

=OV®
NOWVISAWND
CONOPAWNB W20V
N —

N
NOWNEWN—=2OO

(o JV PNVY =0V

WAL VIVAWVNES
NS BN

-—

CZRMQAO RMOS5/3/2 DSKLS TST 2
120
SYNC GENERATION TEST

014312

014312
014316
014320
014320
014324
014330
014332
014334
014336
014340
812%2%

104043
000452

014344
014352
014360

012760
012760
000757

014362

014362
014366

014370
014372

014374
014374
014400
014402
014402

014406

012702
005003

000020

016004

000024

032704

001414

90$:

000010

MOV
CLR
MOV

000024
000024

RMMR1(RO)
,R¢

;STORE RMMR1 AT R4

1108

:JUMP OUT OF LOOP WITH FIRST 1

#MD
, R4

INC
DEC

R3
R2

: INCREMENT ZERO COUNT
:DECREMENT MAX LOOP COUNT

EMT
R

43
1608

:HEADER SYNC ,CANT GET FIRST 1

MOV
MOV
BR

#MR1A
'MCLK ,RMMR1
AA
(RO)
#MRIAAA RMMR T (RO)
90$

BNE

055401
051401

;MAX TIMES THRU LOOP

BIT

BEQ

roos,

#16. ,R2
R3

1008

;LOAD RMMR1
:LOAD RMMR1

:MAKE SURE THERE WERE AT LEAST 8 ZERO BITS IN HEADER SYNC
020327
103002

1108

000010

104043
000436

cMP
BHIS

EMT
BR

R3,48.
1208

43
1608

;SAMPLE AND STORE THE REST OF
012702
005003

000010

016004
006303
032704

000024

014434

012760

014444
014444
014452
014456
014464
014466
014470

80%:

001002

005302
001407

014442

J
6
11-APR-80 14:12:35 PAGE 12-23
SEQ 0074

005203
005302

014410
014414
014416
014422
014424

014426

MACRO v03.01

001002
052703

012760

000757
012737
010337
023737
001401
104044

1208:

1308:

000010
000001

055401

051401

000230
001142
001140

1408:

000024

001140

001142

THE HEADER SYNC

MOV
CLR

#8. ,R2
R3

:NUMBER OF SAMPLES
*HEADER SYNC

MOV
ASL
BIT

RMMR1(RO)
R4
R3

;STORE RMMR1 AT R4

BNE
BIS

DEC
BEQ

MOV

000024

;HEADER SYNC

MOV

B8R

#MID R4
1408
#81T0,R3
R2
1508

;SHIFT SAMPLE,IF SYNC BIT
:THEN SET SAMPLE INPUT

#MR1A
'MCLK ,RMMRT(RO)
AA

#MR1AAA . RMMRT (RO)

1308

IS 1

;LOAD RMMR1

:LOAD RMMR1

;D0 LOOP TIL R2=0

:VERIFY THE SYNC BIT STREAM [S 0000000010011000
1508:
MOV
#000230, SGDDAT
MOV
R3, $8DDAT
MP
$GDDAT, $BDDAT
BEQ
1608
EMT
44
1608:
.':ti't'ttt"'fitttttt'tttttl’"'!.'Q.t.tifi"".".....".'.'..."

TRTEST 21
014470
014470
014472
014474

WRITE HEADER TEST

""'t't'Q.ttt't.tttt""""'."'."Q.t'.‘..."'.'.."".'..

000004
000240
012706

18$121:

001100

.'.."

SCOPE
NOP
MOV

;SCOPE CALL

#STACK , SP

:LOAD THE STACK POINTER

CZRMQAO RMOS5/3/2 DSKLS TST 2

121

£H

»H

edddd

OO0OO0O0O0

001466

001330
000036
010000
054244
001412
150000
001466

013712

014576
014604

012737
012737

014612

004737

014616

000403

OO0

eded

012737
013737
112737
012737
012702
010237

OO0

NV
NNNNVORrOQPORONONON

112712

104000

001226
001442
001414
001414
001440

MOV

004737
000403

024302

000137

015456

$BASE ,RO
TSTQUE ,R1

#21,$TESTN

SEQ 0075

;RO = UNIBUS ADDRESS

;R1

= POINTER TO DEVICE

;oSET TEST NUMBER IN APT MAIL 80X

;SETUP T% REGISTngouTPUT BUFFER FOR SUBROUTINES
RMDCO
sLAST CYLINDER
MOV

LSTRK. RMDAO

MOV

#FMTi6, RMOFO

MOVB

#BUFFER,R2
R2.RMBAQ

MOV
BIS

#150000, (R2)
#822..(R2)+

sSET LAST TRACK AND

:LAST SECTOR
;IN 16 BIT FORMAT
;BUFFER ADDRESS
;BUFFER STARTS
;STORE FIRST HEADER WORD
;SET MF/UF BITS GOOD, 16 BIT FORMAT AND
sLAST CYLINDER
:STORE SECOND HEADER WORD
;SET LAST TRACK ADDRESS AND
sSECTOR ADDRESS.
;2 WORDS (2'S COMP)

MOV
MOVB
MOV

LSTRK, (R2)
#30., (R2)
#=2
. RMICO

MH1GO,RMCS10

JWRITE HEADER COMMAND

JSR

PC,ENBSCH

108

EXECUTE DATA COMMAND TO POINT WHERE
;SEARCH IS ENABLED USING SUBROUTINE.
;BRANCH TO 108 IF NO ERROR

JMP

1608

JSR

PC,SCTCMP

EMT

10%:

#30. ,RMDAO

MOV
MOV

MOV

023430

015456

K
6
11-APR=-80 14:12:35 PAGE 12-24

MOV
MOV

001410
001406

000137

104000

B8R

EMT

JMP

20$

;FORCE SECTOR COMPARE USING SUBROUT INE

;BRANCH TO 20% IF NO ERROR

1608

éS;EP THE DATA TIMING SEQUENCER UNTIL 'HEADER AREA'' COMES ON

000017
000041

308:

~
n

012760

14676

055401
051401
000024
000040

000024
000024

MOV

§8§E

b
b
b
wnd
-

032703
001062
005302
001015

000200

012737
005037

000200
001142

mov
MOV
MOV
BIT
BNE
DEC
BNE
JMP

015456

elelelelel

—

MoV

#15. ,R2
#33. R4

JALLOW 15 MORE PROM STORBES
;ALLOW 33 BIT CLOCKS PER PROM STROBE

iggLss BIT CLOCK UNTIL PROM STROBE

OOOOSOOOO

012702
012704

f
~
W

A%,]

001276
001462
000021

4566
14572

d o e
b cd b b od b ed cd ed = d d e

PNONININOININ) ~=d ad e

013700
013701
012737

012712
052722

b b d

RARSE SRR REC LS BRIRR IR 2B IS

S
b o
o

b oD

g
b

U S S
b ed d

S
b

SN
b

WRITE HEADER TEST

MACRO Vv03.01

AMR1AAA!MCLK ,RMMR1 (RO)

;LOAD RMMR1

AMR1AAA .RMMR1 (RO)
;LOAD RMMR1
RMMR1 (RO) ,R3
;STORE RMMR1 AT R3

MJC R3
508
R4
408
1608

s COUNT EXHAUSTED

IF HEADER AREA CAME ON

©oBIT
BNE
DEC

ANE

001140

IS ON

#PHA,R3
80$
R2

608

;ERROR-HEADER AREA NEVER CAME ON
MOV
CLR

#PHA, $GDDAT
$BDDAT

s SETUP ERROR MESSAGE

CZRMQAO RMOS/3/2 DSKLS TST 2

lre

MACRO V03.01

000137

015456

wvi~g

IS
R0y

001136
000024

=20

015066
1239 015074
1240 015102
1241 015104
1242
1243
1244 015106
1245 015112
12646 015116
1247 015122
1248 015126
1249 015130
1250 015130
1251 015134
1252 015136
1253 015142
1254 015144
1255 015150

015150

1256 015156
1257 015164
1258 015166
1259 015170
1260 015172

MOV
ADD
EMT
JMP

001136

—

o
o

N
~

055401

000024

(=]

NS
RS~

1232 015060
1233
1234
1235
1236 015062
1237 015062

—-—

015012
015020
015026
015034
015036
015042
015050
075056

012760

P
=

(elole]

pouerQry
b
wnd

15006

23 015012

1224
1225
1226
1227
1228
1229
1230
1231

010037

RO, $8DADR
#RMMR1, SBDADR
45
1608

SEQ 0076

:SKIP REST OF

TEST

égéxr FOR PROM STROBE TO GO OFF

VIV

b e

N=O0VONOWVNIWN=O

d D d
d d d ad e
D
D
b ad e
—

14750

(eloleletolelo
oY

206 014734

NN[pSTANT NS T N1 ST N TS T N T8
[\Y) [LN], N e
P
i i S
G
Rr S 4

d b D

WRITE HEADER TEST

L
6
11-APR-80 14:12:35 PAGE 12-25

mov

AMRTAAA
'MCLK ,RMMRT(RO)

MOV

RMMR1(RO),R3

MOV

BIT
8EQ

MJC,R3
708

BNE

608

DEC

000137

015456

JMP

58§RIFY THE

016037
042737
022737
001704
010037
062737
012737
104042

000040
176000
000001

001142
001142
001142

001136
000040
000001

001136
001140

:LOAD RMMR1
*LOAD RMMR1

:STORE RMMR] AT R3

1608

; COUNT EXHAUSTED

TAG BUS ONCE EVERY PROM STROBE

MOV
BIC
cMP
BEQ

RMMR2 (RO) , SBDDAT
:STORE RMMR2 AT $8DDAT
#°C1777.$8DDAT
#8800,$80DAT
:WRITE GATE SHOULD BE ON
308
SALL ELSE OFF

ADD
MOV
EMT

#RMMR? , SBDADR
#8300, $GDDAT
42

MOV

B8R

000576

AMR1AAA .RMMRT (RO)

RO, $SB8DADR

1608

;HEADER AREA IS NOW ON CAN START SAMPLE

égéTA AFTER 5 MORE BIT CLOCKS

012702

000005

012760
012760

055401
051401

005302
001370
005037

005037

016005
006304
032705
001002
052704

000024

001200

MOV
MOV

AMRTA
'MCLK ,RMMR1(RO)
AA
AMR1AAA . RMMRT (RO)

CLR

908:

1008

000001

055401

#5.R2

DEC
BNE

000010

051401

MOV

R2
818

:LOAD RMMR1
*LOAD RMMR1

;SAMPLE AND STORE THE TWO HEADER WORDS
CLR
$TMPO

001176

001174
000020

012760

000024
000024

001174

012702
012703
005004

012760
005303
001360
010422
022702

515

1105

000024
000024

MOV

$TMP1

#$TMPO,R2

;R2 NUMBER OF WORDS/ADDRESS

MOV

#16.,R3

Ré4

‘WORD STORAGE

MOV
ASL
8IT

RMMR1(RO)
,RS
R4
#MWD RS

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

MOV
MOV

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

CLR

BNE
8IS

DEC
BNE
MOV

(MP

1108
#81T0,R4

R3
1008
R&, (R2) +

H#ETMPO+4 R2

*NUMBER OF BITS

:LOAD RMMR1
*LOAD RMMR1

:STORE WORD SAMPLE

;DONE ?

CZRMQAO RMOS/3/2 DSKLS TST 2
TM1
WRITE HEADER TEST
1261 015176
1262
1263
1264 015200

MACRO v03.01

101415

BLOS
JHEADER AREA

177577

265 015204
266 015206
1 267 015212
1 568 015220
1

001136
000024
000200

69 015226
2 70 015230
27
272
273 015232
1 274 015232
275
276 015234
015234
1

BIC
BNE
MOV

001136

ADD

001140

MOV

EMT

CLR

055401
051401

304

87 015312

288 015316

104046

BNE
MOV
MOV
INC
CMP
B8HI

000024
000024

b
cnd

JYES

SHOULD STILL BE ON FOR SECOND HEADER WORD

#*C<PHA>
,RS
90$
RO, $SBDADR
#RMMR1
, $8DADR
#PHA
, SGDDAT
45
160%

012703
005004

000020

016005
006

000024

MOV
ASL

000010
000001
055401
051401

RMMR1(RO) RS

#~C<ECRC>,RS

;BRANCH IF ON

1408

000024
000024

RO, $8DADR
#RMMR1 , $BDADR
#ECRC,$GDDAT
$BDDAT
46
1608

066313

001174

015402
015410

032737
00141

010000

001330

RMMR1(RO) ,RS

;CLEAR

;STORE RMMR1 AT RS

JSHIFT WORD SAMPLE

MOV
BIEJZ

MMRTAAA'MCLK ,RMMRT(RO)
QEWTMA.RMRT (RO)

1408
#BITO,RG

IHE EXP

SEXIT

A#MWD RS

BNE
8IS

BNE

022737
001025

;STORE RMMR1 AT RS

cCHECK OUT THE REST BITS

BIT

MOV

015372
015400

;CHECK NUMBER BITS DIFFER BET PHA AND ECRC

1278
JBRANCH IF ECRC ON
AMRIAAAMCLK ,RMMRT(RO)
:LOAD RMMR1
#MRTAAA ,RMMR1T (RO)
;LOAD RMMR1
R3
;TOTAL NUMBER OF BIT DIFF
#16. ,R3
;OVER ONE WORD ?
125%
;BRANCH IF NOT

;SAMPLE AND STORE CRC WORD
127%:
Mov
#16..,R3
CLR
R4
130%:

015370

HBWN=O

— end o

MoV
ADD
MoV
CLR
EMT
BR

001136
001140

8883 S

b d b

b v d cnd ad i b el b el e
WNWNWN
NN
NN

001136
000024
001000
001142

000456

— b

1289 015320
1290
1291
1292 015322
1293 015322
1294 015326
1295 015330

062737
012737
005037

MOV
8IC

000020

125%:

000024
176777

77 015240
78 015244
79 015246

120%

SEQ 0077

%geiT UNTIL ECRC SETS

M 6
11-APR-B0 14:12:35 PAGE 12-26

JSET BIT O IF WRITE BIT ON

:LOAD RMMR1
;LOAD RMMR1

1308

R4, (R2)+

JVERIFY 3 HEADER WORDS
sNOTE THAT DATA WAS STORED IN THE REVERSE
;ORDER FROM WHICH IT WAS WRITTEN
CMP
BNE

#066313,8TMPO
1508

JCORRECT FIRST HDR WRD ?
JNO N

SVERIFY 2ND AND 3RD HEADER WORDS FOR AN RMOS
BIT
#TA16,LSTRK
;1S DEVICE AN RMOS ?
BEQ

145%

;NO !

CZRMQAQ RMOS/3/2 DSKLS TST 2

WRITE HEADER TEST

1315 015412
1316 015620
1317 015422
1318 015430

022.37
001015
022737
001011

074110

001176

167073

001200

CMP
BNE
CMP
BNE

}g;g 015432 000411
1321
1322 015434
1323 015434
1324 015442
1325 015444
1226 015452
1327 015454
1328 015454

}§§3 015456

022737
001004

022737
001401

MACRO v03.01 11-APR-80 14:12:35 PAGE 12-27

B8R
074040

001176

067510

001200

1608 :

1331

1608

; CORRECT SECOND HDR WRD ?
‘NO !
:CORRECT HEADER CRC ?
Y

;VERIFY 2ND AND 3RD HEADER WORDS FOR AN RMO3
1458
cMP
#074040,8TMP1
;CORRECT SECOND HDR WRD ?
BNE
150%
INO !
cMP
#067510,$TMP2
:CORRECT HEADER CRC ?
BEQ
1608
SYES !}
1508:

104047

#074110,8TMP1
150%
#167073,8TMP2
1508

SEQ 0078

EMT

;END OF SUB TEST

;;ttt*ttttttttttttttttttttttt*tttt*ttttQttttttttttttt*tt*ttt*tttt

S*TEST 22

HEADER COMPARE TEST

;:t*tttttttfitt*ttttttttttttttttttttttt*tttttttttt*ttttttttttttttt

015456

015460
015462
015466
015472
1332 015476

TST22:

000004

000240
012706
013700
013701
012737

001100
001276
001462
000022

001226

1334 015504

012737
013737
112737
012737
012737
012737
012737

001466

001330
000036
054244
177776
010000
000073

001442

1342 015556

004737

015562
015564
1343 015566

000403
104000
000137

015576
015600
}gzg 015602

004737
000403
104000
000137

1333

1335 015512
1336 015520
1337 015526
1338 015534
1339 015542
}gz? 015550

1344 015572
1345 015572

;ggz 015624

1355
1356 015630

NOP
MOV
MOV
MOV
MOV

;SCOPC

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

:LOAD
*RO =
“R1 =
+:SET

CALL

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

:LOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND

MOV

#822. ,RMD(CO

:LAST CYLINDER

023430

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

108

*SEARCH IS ENABLED USING SUBROUTINE.
*BRANCH TO 108 IF NO ERROR

016724

BR
EMT
JMP

2308

:SKIP REST OF TEST IF ERROR

PC,SCTCMP
20$

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

001414
001414
001412
001410
001440
001406

MOV
MOVB
MOV
MOV
MOV
MOV

108
:

024302

016724

1348

1349 015606
1350 015606
1351 015612
1352 015620

SCOPE

JSR
BR
EMT
JMP

LSTRK . RMDAO
#30.,RMDAD
#BUFFER,RMBAO
#-2 .RMWCO
#FMT16,RMOFO
#RH!GO.RMCS10

“SET LAST TRACK AND
*LAST SECTOR
:DATA ADDRESS
22 WORDS (2°'S COMP)
:16 BIT MODE
:READ HEADER ‘AND DATA FUN

2308

JREAD GATE SHOULD BE OFF FOR 3 PROM STROBES

010037
062737
012702

012704

001136
000040
000004

000021

208:
001136

308 :

MOV
ADD
MOV

MOV

RO, $8DADR
#RMMR?
, SBDADR
#4 R2

#17. R4

;SETUP ERROR MESSAGE
:R2=NUMBER OF PROM STROBES

*MAX BIT CLOCKS

:CLOCK BIT CLOCK UNTIL PROM STROBE COMES ON
408
:

HEADER COMPARE

1357 015630

1358 015636
1359 015644

1360
1361
1362
1363
}ggg

015650
015654
015656
015660
015662

012760

012760
016003

032703
001004
005304
001363
000137

TEST

MACRO v03.01

055401

MOV

#MR1AAA'MCLK ,RMMRT (RO)

000040

BIT
BNE
DEC
BNE
JMP

MICR3
508

051401
000024

MOV
MOV

016724

1366

1367 015666

016003

000040

1220
1371
1372
1373

001407
010337
005037
104050

001142
001140

015676
015700
0157064
015710

}ggg 015712

1376
1377 015716
1378 015716
1379 015726
1380 015732
1381 015736
1382 015742
13, 5 015744
1364 015746

}ggz 015750

1387
1388 015754
1389 015754
}gg? 015756

042703

000137

012760
012760
016003
032703
001404
005304
001363

000137

508:

176000

016724

;BRANCH WHEN PROM STROBE ON

R4
408

2308

055401
051401
000024
000040

RMMRZ(R0O)

BEQ
MOV
CLR
EMT

608
R3,$8DDAT
$GDDAT
50

JMP

000024
000024

016724

#-C1777.R3

,R3

2308

:BRANCH IF

TAG BUS ZERO

;READ HEADER FUNCTION

2308

;CONTINUE FOR 3 BIT CYCLE TOTAL
708:
DEC
R2
BNE
308

005302
001322

;STORE RMMRZ2 AT R3

;CLOCK BIT CLOCK TIL PROM STROBE GOES OFF
608:
MOV
#MRTAAA 'MCLK,RMMR1(RO)
:LOAD RMMR1
MOV
AMR1AAA . RMMRT (RO)
*LOAD RMMR1
MOV
RMMR1(RO) ,R3
;STORE RMMR1 AT R3
BIT
MJCR3
BEQ
70%
;BRANCH [F PROM STROBE OFF
DEC
R4
BNE
608

JMP

(LOC O NOT SAMPLED)

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

ggz

JON FOR 7 CYCLES (AND MORE)

1395 015760

}ggg 015764

1398
1399 015770

1400 015770

16401 015776

16402 016004

1403 016010
1404 016014
1405 016016

1406 0160.0

}285 016022
1410
1411
1412
1413

:LOAD RMMR1

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

MOV

BIC

1392

1409

SEQ 0079

:VERIFY READ GATE IS OFF AND TAG BUS IS ZERO

1768 015666

1769 015672

8 7
11-APR-80 14:12:35 PAGE 12-28

016026
016026
016032
016036

012702

012703

012760

016004

000006

000021

055401
051401

000024

032704
001004
005303

000040

000137

016724

001363

80$:

000024

MOV

#6,R2

#17.,R3

.CLOCK BIT CLOCK TIL PROM STROBE SETS
908:

MOV

000024

MOV

MMR1AAA
'MCLK, RMMRT(RO)
AMR1AAA RMMRT (RO)

RMMR1(RO)
R4

BIT
BNE
DEC

MJC R4
1008
R3

JMP

2308

BNE

;LOAD RMMR1

*LOAD RMMR1

;STORE RMMR1 AT R4

:BRANCH WHEN PROM STROBE ON

908

VERIFY READ GATE ON AND REST OF TAG BUS OFF
016004
042704
022704

0V0040
176000
000002

1008:

MOV
BIC
cMP

RMMRZ2 (R0O) R4
#~C1777.R
#8801 RS

;STORE RMMR? AT R4

CZRMQAQ RMOS/3/2 DSKLS TST 2

CZRMQAO RMOS/3/2 DSKLS TST 2
HEADER COMPARE

TEST

001410
010437
012737

001142
000002

000137

016724

104050

MACRO v03.01

11-APR=-80 14:12:35 PAGE

12-29

SEQ 0080
BEQ
MOV

001140

1108
R4 ,$BDDAT

;BRANCH IF READ GATE ON

230%

/READ HEADER FUNCTION

§8801.SGDDAT

MOV

EMT
JMP

. CL OCK BIT CLOCK TIL PROM STROBE GOES OFF

012760
012760
016004
032704
001404
005303
001363
000137

055401
051401
000024

000024
000024

110%:

000040

016724

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

MoV
MOV
MOV
BIT
BEQ
DEC
B8NE
JMP

:LOAD RMMR]
*LOAD RMMR1

RMMR1(RO)
R4

:STORE RMMR1 AT R4

;goi

:BRANCH WHEN PROM STROBE OFF

MICRG

1108

2308

;CONTINUE FOR TOTAL OF 7 CYCLES

:
1208

005302
001317
14

1437 016126
1438
1439
1440 016132
1441 016132
1442 016140
1443 016146
1444 016152
1445 016156
1446 016160
16447 016162
1448 016164
1449
1450
1451 016170
1452 016170
1453 016174
1454 016176
1455 016202
1456 016210
1457 016214
1458 016222
1459 016224
1460 015230
1461 016230
1462
1463
1464 016234
1465 016234
1466 016242
1467 016250
1468 016252

012702

80%

;LOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORSBE

000021

055401
051407
000024
000040

#17..R2

MOV

igbgCK BIT

012760
012760
016003
032703

DEC

BNE

CLOCK

MOV
MOV
MOV

000024
000024

8IT
BNE
DEC
BNE
JMP

016724

JMAX BIT CLOCKS

TIL PROM STROBE SETS

MRIAAA'MCLK ,RMMRT(RO)
;LOAD RMMR1
MMRT1AAA ,RMMR1T (RO)
;LOAD RMMR1
RMMR1(R0O) ,R3
;STORE RMMR1 AT R3
MIC R3
1408
R2
1308
2308

;BRANCH WHEN PROM STROBE ON

JVERIFY "PLFS'' IS NOW ON

042703
001015
010337
012737
010037

175777

062737

001142
002000
001136
000024

000137

016724

012703

000005

104035

140%:

001140
001136
1508
:

BIC
BNE
MOV
MOV
MOV
ADD
EMT
JMP

ig%;H PLFS ON,

012760
012760
005303
001370

055401
051401

000024
000024

MOV
MOV
DEC
BNE

#*CPLFS,R3
1508
R3,$8DDAT
#PLFS,SGDDATM
RO, $8BDADR
#RMMR
1, $BDADR
35
230%

WORD

COUNT

INHIBIT

WILL

MRTAAA'MCLK
,RMMRT (RO)

AMRIAAA ,RMMR1T (RO)
R3
155%

;SIMULATE THE SYNC PATTERN BEING READ

SET

IN S BIT

;LOAD RMMR1
;LOAD RMMR1

CLOCKS

—_—

jo—

CIRMQAO RMOS/3/2 DSKLS TST 2
122
HEADER COMPARE TEST

1471 016254
1472 016260

012702
012703

000031
000010

1474 016264

012737

055401

1473 016264

1475 016272

000241

1477 016276
1478 016300
1479 016306

103003
052737

002000

1480 016306

013760

001432

1482 016322

013760

001432

1476 016274

1481

016314

1483 016330

12’3‘5 016332

1486

042737
005303

1490 016354

013737

1492 016370

012737

016362

004000

001432

000024

052737

MOV

#011566,8TMP2

MOV

#156167,8TMP2

006004

1517
1518 016510

1519 016510
1520 016516
1521 016524
1522 016530

1523 016534

1524 016536

1525 016540
1526 016542

011366

001432

103003
052737

002000

001432

013760
042737

001432
004000

000024
001432

013760

001432

001354
020227

001200

012702

000006

012703

012760
012760
016004

032704

001003

005303

001363
000470

TIL SHIFT COUNT

001200

1502 016432

}g}g 016504

*IS ZERO

SSET LAST TRACK AND

055401

1514 016500

1608

:LOAD RMMR1

;CONTINUE

LSTRK,$TMP1

012737

1513

RMMR10,RMMR1 (RO)

MOV

1500 016422

101746

DEC

;LOAD RMMR1

001176

000020

m; 016476

MMCLK ,RMMR10

001330

012703
012204

1509 016470
1510 016472

RMMR10, RMMR1 (RO)

BIC

MOV

001174

1497 016414
1498 016420

005303

MOV

165$
#MRD ,RMMR10

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

001466

001200

1508 016466

#$TMPO ,R2
#150000,8$TMPO

156167

1507 016460

RO!

BCC
BIS

MOV
MOV

012737

1503 016434
1504 016436
1505 016444
0164446
1506 016452

MMR1A
'MCLK ,RMMR10
AA

001174

001330

000241

:SYNC PATTERN=00011001
;8 BITS IN PATTERN

;SIMULATE THE HEADER BE ING READ

010000

1501 016430

#31.R2
#8..R3

SEQ 0081

001174
150000

032737
001403

1499 016422

12-30

MOV
MOV

BNE

001176

1696 016414

1658
:

000024

000036

1495 016406

11-APR-80 14:12:35 PAGE

cLC

001432

112737

1493 016376
1494 016404

1608:

001354

012702
012737

1491

001432

006002

1487 016334
1488 016340

1489 016346

MACRO v03.01

000040

MOVEB

BIT
BEQ
1708
:

1758
:

1808
:

#822..$TMPO

#30.,$TMP

SLAST CYLINDER

SLAST SECTOR

>GET CRC PATTERN

#TA16,LSTRK
1708

*1S DEVICE AN RMOS ?
NO I

MOV
MOV

#16. ,R3
(R2)+,R4

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

MOV

#MR1AA
'MCLK ,RMMR10
A

ROR

cLC

000024

:YES. ADJUST CRC PATTERN

BCC
BIS

1808
#MRD ,RMMR10

MOV
BIC

RMMR10,RMMR1(R0)
MMCLK ,RMMR10

DEC

JSHIFT QUT 16 BITS

170s

*BRANCH IF NOT

MOV

BNE
CMP

BLOS

PMMR10,RMMR1 (RO)

175$
R2,#STMPO+4

;LOAD RMMRI1

;LOAD RMMR1

;ALL DONE ?

;LOOKING FOR SYNC SHOULD COME ON WITHIN 6 STROBES

000021

055401
051401
000024

BIS

1858:

000024
000024

MOV

#6 .R2

#17. .R3

;CLOCK UNTIL PROM STROBE ON
190$:

MOV
MOV
MOV

MMR1A
'MCLK ,RMMR1(RO)
AA :LOAD RMMR1
MMRIAAA RMMRT (RO)
*LOAD RMMR1
RMMR1(RO)
R4
;STORE RMMR1 AT R4

BIT

MIC R4

DEC

BNE

BNE
BR

195$

1908
2308

VYA NV'S

¢
7
71
72
73
74
5

MACRO v03.01

11-APR-80 14:12:35 PAGE

12-31
SEQ 0082

~
"~

—

042704
001034
005302
001014
010437
012737
010037
062737

ococoocooco

IS ON
;SEE IF "PLFS"'

104035

195%:

175777

BIC

BNE

:CONTINUE

001142
002000
001136
000024

BNE
MOV
MOV
MOV
ADD
EMT
BR

001140
001136

#~CPLFS.RG

2108

IF LESS THAN 6 PROM STROBES

DEC

000447

2008
R4, $8DDAT
#PLFS,$GDDAT
RO, $8DADR
#RMMR1, SBDADR
35
2308

;SETUP ERROR

;HEADER

N\
N

purd

égbgcx UNTIL PROM STROBE OFF

012769
012760

055401
051401
000024
000040

000024
000024

MOV
MOV

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

BIT

MIC R4

B8R

2308

MOV
BEQ
DEC
BNE

RMMR1(RO).R¢

016676
016700
016702
016702

016710

016712
016720
016722
016722
016724

016037
042737
001411
005037
010037
062737
104051

000014
177157
001140
001136
000014

001142
001142

IS SET

RMER1(RO)
, $BDDAT
;STORE RMER1 AT $BDDAT
#*C<H
'HCE 'FER>,
CRC
$8DDAT
2208

ADD

#RMER1, SBDADR

EMT
BR

000411

:STORE RFMMR1 AT Ré

MOV
BIC
BEQ

CLR
MOV

001136

;LOAD RMMR1
:LOAD RMMR1

185$
R3
200s

é¥5§1rv NO HEADER ERROR

mmmwmmmwmm\gmv\mmmmmmm
WSO
DR YRR

—l-J-‘d—l—l—l—‘-‘—.—.—l—.—.—.—l—l—l—l—l—b—l—ld—l—l—l—d—l—-‘_‘_‘d—.—ld—l—l—l—l—l—.—i.—l—‘_—l_fl—l—l—l —
VIV
NN AW WA
(ULl VLIV LNV, LV, LV, 1V, 1V, IV, ]
NANN
AONO°
VIV
VIV
58N
B BN NN NN
N NN NN WA PO A
NO
o
W=
VOO
NS W
~
WA=
O 000~

CZRMQAQ RMOS/3/2 DSKLS TST 2
122
HEADER COMPARE TEST

$GDDAT
RO, $8DADR

51
230s

;HEADER ERROR SET

:VERIFY DATA IN MEMORY OK

023737

001004
023737
001401

054244

001174

054246

001176

220%:

cTMP
BNE
MP
BEQ

§§§§°RT ERROR

104052

230%:

EMT

BUFFER, $TMPO
225%
BUFFER+2,$TMP1
2308

;COMPARE 1ST HEADER WORD
: COYPARE OND

IN ONE OR MORE HEADER WORDS

’"ttl’"tttit'tttfi'.tttt"t""ttttttQ..t.'Qt.fi't't'.l'tfltt't't.'.

TRTEST 23
A

016724
016724
016726

000004
000240

15723:

LRSS

ECC GENERATION TEST

SNl

SCOPE

NOP

;SCOPE

CALL

R 2222222222222

VWA

016752

001466
001330
000036
012000
054244
001412
177400
001410
000061

001100
001276
001662
000023

ppurd

016730
016734
016740
016744

puerd

WAVIWAIVANNIL

%3 BEREPEE oo 83

CZRMQAQ RMOS/2/2 DSKLS TST 2
123
ECC GENERATION TEST

017022

1 017030

177777
000400

S
5
595 017044
596
597 017046

MACRO v03.01

F
11-APR-80 14:12:35 PAGE

001442
001414
001414
001440

1598 017056
1599 017062
1600 017062

024302

1601 017072

020112

017066
017070

;LOAD THE STACK POINTER

MOV

TSTQUE ,R1

JR1

$BASE ,RO

;RO = UNIBUS ADDRESS

#23,8TESTN

= POINTER TO DEVICE

;:SET TEST NUMBER IN APT MAIL BOX

sSETUP REGISTER OUTPUT BUFFER FOR WRITE DATA CAMOMMAND
MOV
#822. ,RMDCO
sLAST CYLINDER
MOV

move
MoV

#BUFFER ,R2

MOV

#-256. ,R3

MOV
MOV

001406

LSTRK,RMDAO

¢SET _LAST

TRACK AND

#30. ,RMDAO
;LAST SECTOR
NFMT16!HCI ,RMOFO
;16 BIT FORMAT, IGNORE HEADER

MOV

R2 ,RMBAQ

;DATA ADDRESS

R3,RMW(O
#JD GO, RMCS10

;WRITE DATA COMMAND

:256. WORDS (2'S COMP)

:FILL THE DATA BUFFER UITH ALL ONES

MOV

10%:

208

.
308

024410
020112

W#STACK, SP

MOV

023430

017052
017054

SEQ 0083

MOV

MoV

001226

7
12-32

408

024572

020112

817777

MOV

#256. R3

DEC
BNE

R3
108

MOV

PC,ENBSCH

?:T

20%

JMP

400%

JSR

PC,SCTCMP

JMP

400%

JSR

;EXECUTE DATA COMMAND

;FORCE SECTOR COMPARE USING SUBROUT INE
JBRANCH TO 308 IF NO ERROR

PC,SETLFS

4«0%

JMP

4003

JSR

PC, CLKSNC

JMP

4<00%

TO POINT WHERE

;SEARCH IS ENABLED USING SUBROUTINE.
;BRANCH TO 20% IF NO ERROR

308

g:T

EfiT

SONE SECTOR DATA FIELD

R4, (R2)+

JSR

?fiT

;DATA PATTERN ALL ONES

;SET "LOOKING FOR SYNC'' USING SUBROUT INE

;BRANCH TO 40% IF NO ERROR

;CLOCK THE SYNC PATTERN USING SUBROUTINE

508

;BR TO 508 IF NO ERROR

;CLOCK

THE DATA TIMING SEQUENCER AND VERIFY THE FOLLOWING WAVEFQRMS

:
;
:

HEADER ARES, READ GATE
ENABLE CRC OUT
WRITE GATE

(DATA TIMING SEQUENCER=200 OCTAL)

508 :

MOV

;POINTER TO WAVE FORM TABLE

N
o

—

—h

;FOR EACH LEADING EDGD OF

(=)

= O 000NN
N =

- —t

d e

O oo
N ")

o e

d —— -

sHEADER COMPARE IS INHIBITED FOR THIS TEST

012702

017660

%liocx BIT CLOCK

004737

017700

JSR

#2308 ,R2
(MCLK)

PC. 3008

PROM STROBE

UNTIL PROM STROBE

COMES ON

me~

—

162¢
1623 017136
1624 017136
1625 017144
1626 017152
1627 017156
1628 017164
1629
1630
1631 017166
1632 017172
1633 017200
1634 017202
1635
1636
1637 017206
1638 017206
1639 017214
1640 017222
1641 017226
1642 017234

017236

1646 017242
1647 017250
1648 017252
1649
1650
1631 017256
1652 017256
1653
1654
1655 017262
1656 017262
1657 017266
1658
1659
1660 017270
1661
1662
1663 017274
1664 017274
1665
1666
1667 017300
1668 017300
1669 017304
1670 017310

MACRO v03.01

11-APR-80 14:12:35 PAGE

SEQ 0084
éggom STROBE

000024

001142

001140

001142

016037
042737
012237
023737

176157
001140

010037
062737

001136
000024

000137

020112

001410

104054

016037
042737
012237
023737
001410

000040
176000
001140
001740

010037
062737
104053
000137

001136
0000490

001142

001136

RMMR1(RO), SBDDAT

BIC

(R2)+,$GDDAT

CMP

$GDDAT, S8DDAT

BEQ

90$

001142

:BRANCH IF

:ERROR =~ THE DATA TIMING SEQUENCER OUTPUT
MOV
RO, $3DADR

ADD
EMT

63§RIF'

THE

MOV

IS ONCORRE(T

400$
TAB BUS

RMMR2 (RO) , SBDDAT

BIC
MOV
cMP
BEQ

001142

RMMR1

#RMMR1
, $8DADR
54

JMP
001142

;STORE RMMR1 AT $BDDAT

#~C<ECRC'PDA'PHA'EEC(>, SBDDAT

MOV

#~C1777.$BDDAT
(R2)+,$GDDAT
$GDDAT, $BDDAT
1008

;STORE RMMR2 AT $BDDAT
:BRANCH IF

TAG BUS OK

:ERROR~ TAG BUS IS WRONG
MOV

001136

RO, $8DADR

ADD
EMT

020112

020006

IS ON - VERIFY WAVEFORM

mov

#RMMR?2
, SBDADR
53

JMP

igbgcx BIT

004737

12-33

CLOCK

JSR

5$8§TINUE

4008
TIL

PROM STROBE

RESETS

PC.3508

CHECKING THROUGH 4 PROM CYCLES

R2,#2308+16

020227
103721

017676

012702

000011

;VERIFY THAT DATA AREA COMES ON WITHIN
9 PROM STROBES
MOV
#9. ,R2
:R2=9 STROBES

017700

:CLOCK PROM STROBE ON
130%:
JSR
PC. 3008

004737

BLO

70$

%zggm STROBE ON CKECK

016004
042704
001020

000024

177377

MoV

BIC

BNE

I+

DATA AREA ON

RMMR1(RO)
,R4

#~CPDA
R4

1608

;CLOCK PROM STROBE OFF

004737
005302
001365

020006

150%:

JSR
DEC
BNE

PC,3508
R2
1308

;ERROR-DATA AREA DIDN'T (OME ON

;STORE RMMR1 AT R4

CZRMQAO RMOS5/3/2 DSKLS TST 2
123
ECC GENERATION TEST

J—

CZRMQAO RMOS/3/¢ DSKLS TST 2
123
ECC GENERATION TEST
1679 017322
1680 017330
1681 017334

012737
005037
010037

1682 017340

062737

}2gg 017350

000541

1683 017346

1686
1687 017352
}ggg 017352
1690
1691
1692
1693
1696
1695
1696
1697
1698
1699
1700
};8}

017356
017356
017362
017366
01737
017374
017400
017406
017412
017420
017422

1703
1704 017424

};82 017424
1707

;;83 017430

1710
1711 017434

};}g 017436

1714
1715 017440
1716 017462

017442

104055

012702

016003
0462703
022703
001414

010337
012737
010037
062737

104055
000514

000400
001142
001136

000024

001142
000400
001136
000024

004737

020006

004737

017700

1732
1733 017534
1734 017534

001136

104056

#RMMR1
, $BDADR

2208

EMT

:VERIFY THAT DATA AREA IS ON AND cCC IS OFF
1708
MOV
RMMR1(RO)
,R3
:STORE RMMR1 AT R3
BIC
#~C<PDA'EECC>,R3
CMP
#PDA,R3
BEQ
1808
:DATA AREA IS ON
MOV
R3.$BDDAT
MOV
#PDA, $GDDAT
MOV
RO, $3DADR
ADD
#RMMR1, $8DADR
EMT
55
BR
220s

JSR

PC.3508

:CLOCK PROM STROBE ON

JSR

;ECC SHOULD
CLR
1828%:

MOV

177357
000020

001136
000024

000450

012702

ADD

:SETUP ERROR MESSAGE

:CLOCK PROM STROBE OFF
1808:

000024

001142
000020

010037
062737

#PDA, SGDDAT
$8DDAT
RO, $8DADR

BNE

010337
012737

101357

MOV
CLR
MOV

SEQ 0085

PC, 3008

;CONTINUE TIL COUNT ZERO
DEC
R2

1725 017504
1726 017510

};gg 017532

001140

005002

016003

H
7
11-APR-80 14:12:35 PAGE 12-34

;VERIFY 1HAT DATA AREA IS ON FOR 256 CYCLES
1608;
MOV
#256. ,R2

005302
001347

055401
051401
000007

1729 017530

001136

000024
177357
000400

042703
022703
001426
005202
012760
012760
022702

1727 017516
1728 017522

001140

000400

1717 0176446
1718 017452
1719 017456
1720 017460
1721 017462
1722 017470
1723 017476

1724 017502

MACRO v03.01

001174

000024
000024

001136

BE ENABLED WITHIN 4 CLOCK BITS
R2

RMMR1(RO)
,R3

;STORE RMMR1 AT R3

BIC
cMP
BEO
INC
MOV
MOV
CMP

#~C<PDA'EECC>.R3
#EECC.R3
1908
R2
FMRTAAA
'MCLK . RMMRT (RO)
AMR1AAA . RMMRT (RO)
#7 R2

MOV
MOV

R3,$8DDAT
NEECC,$GDDAT

BHI
001140

1708

1823

MOV
ADD

RO, $8DADR
#RMMR1, SBDADR

2208

EMT

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

:LOAD RMMR1
*LOAD RMMR1

[
e

37 017546

005003
012704

MACRO v03.01
195%:

200%:

000024
000010

748
749
750
7
7 52
753
754
755
7
7
7

000001

012760

055401
0514601

CLR

MOV

205%:

001200

017616
017624
017626

022737
001004
022737
001407
012737
012737

131177

001174

175154

001176

131177
175154

001200
001202

000137

020112

59
760 017654
761

104061

017706

012737

000021

020002

012760
012760
016037
042737

055401
051401
000024
177737

000024
000024
020004
020004

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

DEC

cMP
BNE
CMP

210%:

000021

BEQ
MOV

#$TMPO+4
,R2
195$

#131177,$TMPO
2108
#175154 ,$TMP1

2208
#131177,$TMP2

#175154.$TMP3

220%:

JMP

4008

230%:

.WORD
.WORD
WORD
.WORD
WORD
WORD
WORD
WORD

PHA
BB01
PHA
BBO1
O
2
O
O

3008$:
305%:

MOV

#17.,3208

EMT

BNE

3108

;EXIT IF PROM STROBE ON

305$
3208, $8DDAT
#JC,SGDDAT
RO, $8DADR

:SETUP ERROR MESSAGE

BNE
MOV
MOV
MOV

001136

ADD

EMT

350%:

:GREAT ESCAPE

MOV
MOV
MOV
BIC

001142
001140

:CLOCK PROM STROBE ON
MMRTAAA
'MCLK ,RMMRT (RO) :LOAD RMMR1
MMR1AAA . RMMRT (RO)
:LOAD RMMR1
RMMR1(RO),3308 ;STORE RMMR1 AT 330$

DEC

020106

2008

R3, (R2)+

MOV

310$:
:
3208
330$:
012737

:LOAD RMMR1
*LOAD RMMR1

JVERIFY ECC CHARACTER GENERATED

020002

020002
000040
001136
000024

:BRANCH IF ECC BIT OFF (MWD INVERTED)

MOV
MOV

BHI

000200

2058

#BITO.R3

CMP

022702
101351

:STORE RMMR1 AT RS

BIS

MOV

017610
017614

RMMR1(RO),RS

R3
#MJD RS

BNE
000024
000024

ASL
BIT

BNE

017634

12-35
SEQ 0086

000020

052703

[

11-APR-80 14:12:35 PAGE

#~CWC, 3308
3208

#RMMR1, SBDADR

B8R

4008

WORD
WORD

0
O

:MAX BIT COUNT
*RMMR1 CONTENTS

RTS

MOV

#17..,370%

TM r~

CZRMQAO RMOS/3/2 DSKLS TST 2
ECC GENERATION TEST

—

CZRMQAO RMOS5/3/2 DSKLS TST 2
123
ECC GENERATION TEST

MACRO v03.01

11-APR-80 14:12:35 PAGE 12-36

020014

012760

1792 020022
1793 020030
1794 020036
1795 020044
1796 020046
1797 020052
1798 020054
1799 020062
1800 020066
1801 020072
1802 020100
1803 020102
1804 020104

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

1806 020106
1807 020110

000000
000000

1809 020112

020112

055401
051401
000024
177737

000024
000024

355%:

020110

020106
020110
001140
001136
000024

001142

MOV
MOV

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

BIC
BEQ
DEC
BNE
MOV

#-CWC, 3808
3608
3708
3558
380$
., $BDDAT

CLR
MOV

001136
360%:
3708:
380$:

4008 :

000240

;CLOCK PROM STROBE OFF

MOV

020110

SEQ 0087

RMMR1(RO),3808

#RMMR1
, $8DADR
62

RTS

.WORD
.WORD

:STORE RMMR1 AT 380%

$GDDAT
RO, $8DADR

ADD
EMT

;LOAD RMMR1
*LOAD RMMR]

4008

O
O

:MAX BIT COUNT
*CONTENTS OF RMMR1

;SUB=TEST EXIT POINT

NOP

::tititttti*tttt*tttttttttt'tttttttttttttfitttttttttitt*'{'ttttt't'

S*TEST 24

""l'ttt'ttttt*ttfitttt*tttttttttttttttttttttt**tttfifittttttt'ttttttt

020114
020114
020116
020120
020124
020130
020134

000004
000240
012706
013700
013701
012737

020142
020150
020156
020164
1819 020172
1820 020176
1821 020202
}gg% 020210

012737
013737
112737
012737
012702
010237
012737
012737

000071

020216

004737

023430

020222
020224
1825 020226

000403
104000
000137

1827 020232
020232
020236
020240

004737
000403
104000

1813
1814
1815
1816
1817
1818

1824 020216

1826

1828 020242

ECC DETECTION TEST

000137

TST24:

001100
001276
001462
000024

001226

001466

001442

MOV

001414
001414

MOV

#STACK,S?

$BASE ,R0O

TSTQUE,R1

#24 ,$TESTN

MOV
MOVB

LSTRK . RMDAO
#30.,RMDAO

MOV
MoV

#BUF
ONE ,R2
R2 ,RMBAO

MOV

001410
001406
20%:

021100

;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 READ DATA COMMAND
MOV
#822. ,RMDCO
:LAST CYLINDER

001440

024302

SSEPE

30%:

#FMT16 HC],RMOFO

SSET LAST TRACK AND
:LAST SECTOR

; INHIBIT HEADER COMPARE

MOV
MoV

#-256. ,RMICO
#RD !GO ,RMCS10

;256 WORDS (2°'S COMP)
sREAD DATA COMMAND

JSR

PC.ENBSCH

JEXECUTE DATA COMMAND TO POINT WHERE

EST

30%

JMP

190%

JSR
?fiT

PC,SCTCMP
40%

JMP

190%

;SEARCH ]S ENABLED USING SUBROUTINE.
JBRANCH TO 30% IF NO ERROR

;FORCE SECTOR COMPARE USING SUBROUTINE
JBRANCH TO 40% IF NO ERROR

—

CZRMQAQ RMOS/3/2 DSKLS TST 2
124
ECC DETECTION TEST
1829
1830 020246
020246
020252
020254
1831 020256
1832
1833 020262
020262
020266
020270
1834 020272

1338 020276
1839 020302
1840 020304
1 020310

004737
000403

024410

000137

021100

004737
000403

024572

000137

021100

104000

012702

1850 020334
1851 020340
1852 020346
1853 020352
1854 020356
1856 020366
1857
1858
1859 020372
1860 020372
1861 020376
1862 020402

1863 020406

40%:

50%:

010337
042737
005037

000002

001142

175777
001140
001136

000024

PC,SETLFS

JSR
BR
EMT
JMP

PC,CLKSNC

508

sSET "LOOKING FOR SYNC'' USING SUBROUTINE

;BRANCH TO 508 IF NO ERROR

1908

55$

sCLOCK THE

SYNC PATTERN USING SUBROUTINE

;BR TO 55% IF NO ERROR

190%

sHEADER COMPARE

¢0$%:

JSR
JSR

PC,350%
PC.3008

;RESET PROM STROBE
:SET PROM STROBE

MOV
BIT
BEQ
DEC
BNE

RMMR1(R0),R3
#PLFS,R3
808
R2
608

;STORE RMMR1

70%:

INHIBITED FOR THIS

TESi

NOP

AT R3

;BRANCH IF LOOKING FOR SYNC OFF

:ERROR-LOOKING FOR SYNC DID NOT RESET DURING HEADER
MOV

001142

#~CPLFS,$BDDAT
$GDDAT

ADD

#RMMR1
, $8DADR

EMT
JMP

021100

R3,$8DDAT

BIC
CLR

MOV

001136

;SETUP ERROR MESSAGE
.

RO, SBDADR

40
1908

éb?OKING FOR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM CYCLES

012702
004737
004737
016003
032703

000011
021212
021104
000024
002000

85%:

1870 020424
1871 020432
1872
1873 020436
1874 020444
1875 020450
1876 020456
1877 020460
1878 020464

JSR
BR
EMT
JMP

5S'LOOKING FOR SYNC'' SHOULD GO OFF WITHIN ONE CYCLE
ggv
;85R2
;ALLOW 2 PASSES THRU LOOP

000024
002000

020322
020326
020330
020332

K
7
11-APR-80 14:12:35 PAGE 12-37
SEQ 0088

021212
021104

2 020314
3 020316
020316

4
1845
1846
1847

MACRO v03.01

002000
001142

001140

175777

001142

001136
000024
021100

MOV

#9. R2

JSR
MOV
BIT
BNE
DEC
BNE

PC.300$
RMMRT(RO)
,R3
#PLFS,R3
90$
R2
85s

JSR

PC. 3508

:SET STROBE OFF

*SET PROM STROBE
-STORE RMMR1 AT R3
:
*BRANCH IF SYNC ENABLED

;ERROR-CAN'T LOOKING FOR SYNC DURING DATA AREA
MOV

#PLFS,$GDDAT

BIC
MOV

#~CPLFS,$BDDAT
RO, $BDADR

EMT
JMP

35
190s

MOV

001136

ADD

90$:

R3,$8DDAT

#RMMR1, $BDADR

CZRMQAO RMOS/3/2 DSKLS TST 2
ECC DETECTION TEST
1879 020464
1880 020470

004737
004737

000402
104000
000577

MACRO v03.01

021212
024572

11-APR-80 14:12:35 PAGE 12-38

JSR

PC.3508

SRESET PROM STROBE

1008

;BR TO 1008 IF NO ERROR

JSR

PC . CLKSNC

EMT
BR

1908

B8R

SEQ 0089

sCLOCK THE SYNC PATTERN USING SUBROUTINE

:SIMULATE READ DATA

020502
06

894
1895 020536
1896 020544
1897 020552
1898 020556
1899 020562
1900 020566

00 NONV
NN —

b wad
ik wd

D o

057401
053401

012737
012737
012702
012703
012704
000241
006012
103002
052704

002000

010460
052704

000024
004000

010460
042704
010460
005303
001355
062702
022702
001746

177446

015457
001174
000020
051401

177377
001142
001140
001136
000024

;WORD COUNT
;BIT COUNT

#16. .R3

MOV
MOV

#MR1AAA
!MRD !MCLK ,RMMR1 (RO)
;LOAD RMMR1
:?UAAA!MRD.RW'I (RO)
;LOAD RMMR1

DEC
BNE
DEC
BNE

1158
K2
1108

;SIMULATE ECC PATTERN

MOV
MOV

001176

1208:
1258:

130%:

#177646,$TMPO
#015457,8TMP1

MOV

#$TMPO RZ

MOV
cLC
ROR
BCC
BIS

#MR1AAA
, R4

MOV

(R2)
1308

AMRD
, R4

R4 ,RMMR1 (RO)

;LOAD RMMR1

R4 ,RMMR1(RO)

;LOAD RMMR1

AMCLK R4

BIC
MOV

MMCLK R4
R4 ,RMMR1 (RO)

DEC
BNE

P
BEQ

;FIRST ECC WORD
;SECOND ECC WORD

#16. RS

BIS

ADD

021104
021212
000024
000400

#256. ,R2

MOV

000002
001176

004737
004737
016003
032703

—t

001174

MOV

000005

1923 020670
1924 020672
1925 020674
1926 020700
1927 020704
1928 020710
1929 020714
1930 020722
1931 020724

000024
000024

1108:
115%:

000024
004000
000024

d el

012760
012760

012702

D e

000400
000020

e ed

hel o) elelolele
R o o R e Ne)

020570
020572
020574
020600

b ek amd

1901
1902
1903
1904

012702
012703

1008
:

;LOAD RMMR1

R3
125%

;CLOCK

#$TMP1 ,R2
1208

;CLOCK THE NEXT WORD

#2 ,R2

A WORD

;VERIFY DATA AREA AND READ GATE RESET
1408:

001136

MOV

#5,R2

JSR
JSR
MOV
BIT
BEQ
DEC
BNE
BIC
MOV
CLR
MOV

PC.3008
PC.3508
RMMR1 (RO) ,R3
#PDAR3
1508
R2
1408
#~CPDA.R3
R3,$8DDAT
$GDDAT
RO, $8DADR

ADD

EMT
BR

#RMMR1
, SBDADR

63
1908

;SET PROM STROBE
:CLEAR PROM STROBE
;STORE RMMR1 AT R3

;SETUP ERROR MESSAGE

SEQ 0090

]

}940 020762
1

016003
042703
001413
010337
005037
010037
062737
104053
000445

m 7
11-APR-80 14:12:35 PAGE 12-~39

MACRO V03.01
150%:

000040
001142
001140
001136
000040

MOV

BIC

176000

BEQ
MOV
CLR
MOV
ADD
EMT
BR

001136

RMMR2(RO) ,R3

1608
R3,$BDDAT
$GODAT
RO, $8DADR
#RMMR?2
, $8DADR

1908

;VERIFY THERE ARE NO

016003
042703
012737
023703

000014
077677
000000
001140

010337
010037
062737

001142
001136
000014

001411

104064
000422

160%:

MOV

BIC
MOV
CMP
BEQ
MOV
MOV
ADD
EMT

001140

001136

B8R

;STORE RMMR2 AT R3

#-C1777.R%

ECC ERRORS

RMER1T(RO) ,R3

#*C<DCK!'ECH>,R3
#000000, $GDDAT
$GDDAT ,R3
1708
R3,$8BDDAT
RO, $8DADR
NRMER1, $BDADR
64

;STORE RMER1 AT R3

1908

%gggxrv DATA BUFFER

012702
012703
012704

060
21062
~
SROSBNESVSRARIS/N RS N

—-—

— boo

000 0008
NN
b
b b

PNONININD) =2 d cnd b amd nd cond e e e and ced

bl b aed ved b md b wd e e wd e wmd b acd

[olele]
N NN

127777

000400

012737
012760
012760
016037
042737
001020
005337
001360
013737
012737
010037
062737
104030
000445
000207
000000

021316
000021
055401
051401
000024
177737

021206

000024

mov

#BUF ONE ,R?

MOV
MOV
(MP
BNE
DEC
BNE

#177777 .R3
#256. ,R4
(R2)+,R3
185%
R4
1808

185%:

MOV
MOV
MOV

=(R2) ,$BDDAT
R3,$GDDAT
2§.$BDADR

1908:
3008:

JmP
MOV

1808:

001142
001140
001136

21066

393
NN
N
JA N
W= OO0

054244

B8R

190%

400$
#17.,320%
¢ CLOCK PROM STROBE ON

$05$:

000024

001142
001140

001136

310%:
3208:

: GREAT ESCAPE

MMRIAAA 'MCLK,RMMRT(RO)

MOV
BIC

RMMR1 (R0) , 3308
#~CWC, 330§

BNE
DEC
BNE
MOV
MOV

021206

JEXIT IF ALL THE LOCATIONS CHECKED

;SETUP ERROR MESSAGE

MOV
MOV

021210
021210

;DATA WAS STORED HERE

*EACH WORD ALL ONES

MOV
ADD
EMT
BR

RTS
.WORD

#MR1AAA .RMMRT (RO)

3108
3208
305$
3208, SBDDAT
MIC,SGDDAT

RO, $8DADR
A#RMMR1, $BDADR
30
4008
PC
O

:LOAD RMMR1

:STORE RMMR1 AT 330$

;EXIT IF PROM STROBE ON
:SETUP ERROR MESSAGE

e a

CZRMQAQ RMOS/3/2 DSKLS TST 2
124
ECC DETECTION TEST

STV 1N 10 1,6 T, ¥

—d d ed o

d cad

988
989 021210

PSTAS

1999 021260
2
66

2005 021310
2006 021312
2007 021314
2008 021316
2009

MACRO v03.01

000000

012737

000021

021312

012760
012760

055401
051401
000024

000024
000024

177737

3308:

.WORD

350%:
355%:

MoV

#17..370%

MOV
MOV
MOV
BIC

AMR1AAA 'MCLK ,RMMRT(R0)

DEC
BNE

3708
35
3808 ,$8DDAT

021314

BEQ

021312

021314

001140
001136
000024

N 7
11-APR-80 14:12:35 PAGE 12-40

001142

MOV

CLR

MOV
ADD

001136
360%:

370%:
380%:

:
4008

EMT
BR
RTS

.WORD
.WORD
NOP

SEQ 0091

;CLOCK THE STROBE OFF
;LOAD RMMR1

MMR1AAA RMMRT (RO)
*LOAD RMMR1
RMMR1(RO) , 3808 :STORE RMMR1 AT 380$
g*cuc.ssoi

$GDDAT
RO, $BDADR
ZRM“VN . $BDADR

400%

0
0

;SUB=-TEST EXIT POINT

END OF

SUB-PASS ROUTINE

MACRO v03.01

B 8
11-APR-80 14:12:35 PAGE 13

SEQ 0092

;

.SBTTL

;THIS IS5 THE END OF SUB-PASS ROUTINE.

S
6

;SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
;TO TEST, EXIT IS MADE TO '$EOP' ROUTINE. OTHERWISE, RETURN

;TERMINATE

g
9
10
11
12
13
14
15
16
17

END OF SUB-PASS ROUTINE
THE OPERATION OF

THIS ROUTINE IS USED TO

THE CURRENT DEVICE UNDER TEST AND

;1S MADE TO 'READY' ROUTINE.
021320
021322

000004
000240

$EOSP:

021324
021330

013700
062700

001462
000002

021344
021350

000137
012737

005242
001464

021334
021340
021342

(10037
005710
001402

1%:

SCOPE
NOP
MOV
ADD
MOV
TST
BEQ
JMP
MOV

.S3TTL

END OF PASS ROUTINE

001462

SRR AR AR R

TSTQUE ,RO
#2,R0

RO, TSTQUE
(RO)
1%

;SAVE POINTER TO TSTQUE
;ANY MORE DEVICES FOR TEST ?
:BR IF NO

READY
;YES,
#TSTQUE+2, TSTQUE

JUMP TO READY
;INITIALIZE POINTER TO FIRST DEVICE

;TEST QUE TABLE

AR A AR AN AN A AR NN A AR AN RN RN RN RA RN AANA RN RANRA

s *INCREMENT THE PASS NUMBER (S$PASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF

ANARENR

ERRORS SINCE LAST REPORT YYyyy'

s *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;*]F THERES A MONITOR GO TO IT
;*]F THERE ISN'T JUMP TO READY
021356
021356
021360
021364
021370
021374
021402
021404
021406
021410
021412
021414
021416
021422
021442

000240
005037
005037
005237
042737
005327
000001
003063
012737
000001
021404
104401
000407

$EOP:

001116
001206

001230
100000

(021424

2:65%:

021442

013746

001230

021446
021450
021454

104405
104401
000421

021456

021520

001230

NOP
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
TYPE
BR
64%:

ég??i:

;. LO0P?

2 YES
JsRESTORE COUNTER

MOV

$PASS,~-(SP)

TYPDS
TYPE
B8R

.67%
66%

2 :SAVE SPASS FOR TYPEOUT
;s TYPE PASS NUMBER
;.60 TYPE--DECIMAL ASCII WITH SIGN
;cTYPE ASCIZ STRING
.sGET OVER THE ASCIZ

LASCIZ

$ERTTL,=-(SP)

_ASCIZ

001126

MOV

021524
021526

104405
104401

001217

TYPDS
TYPE

001126
000042

. 2 INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER

s TYPE ASCIZ STRING
;2GET OVER THE ASCIZ

013746

005037
013700

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

;;1ERO THE TEST NUMBER
2 :IERO THE NUMBER OF ITERATIONS

.65%
643

021520

021532
021536

$TSTNM
$TIMES

CLR
$GET42: MOV

<12><15>/END PASS #/

TOTAL

LSCRLF
SERTTL
w62 ,RO

ERRORS

;GET POINTER TO TSTQUE
sADJUST POINTER TO NEXT DEVICE

SINCE

LAST REPORT

;:SAVE SERTTL FOR TYPEOUT
;. TOTAL NUMBER OF ERRORS
;.60 TYPE--DECIMAL ASCII WITH SIGN
;s TYPE CARRIAGE RETURN, LINE FEED

;:CLEAR ERROR TOTAL
;.GET MONITOR ADDRESS

mem—

CZRMQAO RMOS/3/2 DSKLS TST 2

END OF PASS ROUTINE

021542
021544

021546

021550
021552
021554
021556
021556
021560
021562
21

MACRO v03.01

13-1

SFQ 0093

001405
000005
004710
000240
000240
000240
000137
005242
377

11-APR-80 14:12:35 PAGE
BEQ

$DOAGN

$ENDAD: Jon

PC. (RD)

RESET

$DOAGN:

377

000

$SRTNAD:

S$ENULL:

NOP
NOP
NOP

JMP
.WORD

.BYTE

.EVEN

. JBRANCH [F NO MON]TOR
. sCLEAR THE WORLD
;.60 TO MONITOR
. s SAVE ROOM
. JFOR
JJACTN

a(P(C)+
READY

-1.-1.0

;s sRETURN

< +sNULL CHARACTER STRING

—

NN = b md DD DD
2
-0 VOO NN
WA 2O Q00NN
NN —

SUBROUT INES

1«

SEQ 0096

SUBROUTINES

M Q"'.""'fi'."'.'t't'i"""'t."‘tt"'t.tttt't"..t"!.ttl".

.SBTTL
;*THE

ERROR TYPEOUT ROUTINE
ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS

:'REGARDING THE DETECTION OF AN ERROR AS> FOLLOWS:

INFORMATION

UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM (OUNTER ARE

:*PRINTED ON THE

FIRST LINE;

M
.ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON
'ONE OR MORE SUCCEEDING LINES;
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
'ARE PRINTED AFTER THE ERROR MESSAGE.

021566
021566
021570
021576
021600

021620
021622
021623

104414

032777
001402
000137
104401
104401

013746

33 021650
34 021656
35 021662
36
37 021664
38 021672
39 021676

40 021700
41 021704
42 021706

021710
021714
021722
021726

021732
021734
021735

49 021736

ERRTYP:

020000

157356

022402
:TYPE

001217
022416
001234

1%:

;TYPE

TYPE
TYPE

MOV
BIC

TEST NUMBER,

.SCRLF
LERTYOO

$UNIT,~(SP)

;TYPE

AND PROGRAM COUNTER

"UNTH'

;:SAVE SUNIT FOR TYPEOUT
;. TYPE UNIT NUMBER

;.60 TYPE--OCTAL ASCII

3
0
TYPE'

ERROR NUMBER,

;. TYPE 3 DIGIT(S)
;. SUPPRESS LEADING ZEROS

RMOS5,

RMO3 OR RMO2 FOR UNIT UNDER TEST

RMDT (RO
,RO
#177740.R0

;STORE RMDT AT RO
*SAVE DRIVE TYPE BITS AND

#24 RO
2

:1IS DEVICE AN RMO3 ?
SYES !

#SRMO?, 38
#25 R0

;SAVE ASCII DRIVE TYPE
1S DEVICE AN RM02 ?

MOV

#SRMOS , 38

;SAVE ASCII DRIVE TYPE

BNE

‘NO !

021706

WP
BEQ

BEQ

022454

000000

022410

‘DRIVE

JYES!!

MOV
cTMMP

022472
000027

104403
003
000
005037

UNIT NUMBER,

JINHIBIT TYPEOUTS??

JNO!!

MOV

012737
022700
001004
104401

022406
001226
022424
022406

021706

104401

25%

.BYTE
.BYTE

022460
000025

013746

JMP

MOV

012737
022700
001406

005037
013737

#5W13,aSwR

TYPOS

000026
177740
022465
000024

104401

SAVREG

BIT

BEQ

104403

27 021624
28 021630
29 021634
30 021642
31 021646

45
46
47
48

11-APR-80 14:12:35 PAGE

.SBTTL

22 021604
23 021610
24 021614

MACRO v03.01

;TYPE

022406

i$:

TYPE

.WORD

#SRMO3, §¢

#27 RO

LERTYOS

TEST NUMBER,

CLR

*1S DEVICE AN RMOS 2

CTYPE

*TYPE

DRIVE

TYPE

IS STORED HERE

TSTAMB

;LOAD TEST NUMBER FOR

,ERTY01

:TYPE

MOV
TYPOS

TSTNMB, - (SP)

CLR

ERROR NUMBER AND PROGRAM COUNTER

$STESTN, TSTNMB

.BYTE
BYTE

“YES

‘DRIVE TYPE MESAAGE

MOV

TYPE

*GET ASCII DRIVE TYPE

3
0

ERRNMB

"‘TSTH’

::SAVE TSTNMB FOR TYPEOUT

STYPE TEST NUMBER

1360 TYPE-~OCTAL ASCII

S:TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS

.LOAD ERROR NUMBER FOR

CZRMQAQ RMOS5/3/2 DSKLS TST 2

(ZRMQAD RMOS/3/2 DSKLS TST 2

ERROR TYPEOUT ROUTINE

50 021742
51 021750
52 021752
53 021756

113737
001406

021762
021764
021765
54 021766
55 021772

104403
003
000
104401
013746

021776

104403

104401

013746

001130

MACRO v03.01

022410

022434

5%:

104401
105037
105037

013700
006300
006300
006300
062700
011001

MOV

ERRNMB,
- (SP)

.2 SAVE ERRNMB FOR TYPEOQUT
::TYPE ERROR NUMBER
;.G0 TYPE--OCTAL ASCI!

.BYTE
.BYTE

TYPE
MOV

BYTE
BYTE

001217
022414
022415
022410

TYPE

:TYPE

7$:

022220
022412

8%:

6
1

RO
RO
RO
#SERRTB-8.
R0
(RO) R

BEQ

163

THE

000011
022415

022415
000040

10%:

11%:

022415

12%:

ERRNMB RO

ERROR ME SSAGE

MOV

B8EQ

CLR

MOVB
BEQ

(MPB

:
9%

LSCRLF

ASL
ASL
ASL
ADD
MOV

BNE
CLRB

000012

022412

LERTYO3
$ERRP(C,-(SP)

BOTFLG
CHRCNT

MOV

000015

022412
000100

3
0

CLRB
CLRB

MOV

001526

022415
000007

LERTYQ?

;TYPE "ERRN'

J:TYPE 3 DIGIT(S)

.+ SUPPRESS LEADING ZEROS
JTYPE 'PC='"’

;s SAVE SERRPC FOR TYPEOUT

::TYPE PROGRAM (COUNTER
260 TYPE--OCTAL ASCII
;:TYPE 6 DIGIT(S)
::TYPE LEADING ZEROS

6§ENERATESPOINTER TO ERROR TABLE UNLESS ERROR NUMBER IS )
: WAS AN ERROR CALLED?
ERRNMB
BEQ
25%
NO!

022410

022415

86 022114
87 022116
88 022122
89 022130
90 022132
91 022134
92 022140
93 022144
9 022146
95 022152
96 022160
97 022162
98 022166

s TYPEOQUT
JSKIP IF NO ERROR CALLED

TYPOS

001507
012102
001505
010237
005037
112203
001454

SEQ 0095

$ITEMB,ERRNMB
5$

TYPOS

022443
001132

14-1

MOVB
BEQ
TYPE

022410

006
001

005737
001575

11-APR-80 14:12:35 PAGE

B8R

(R1)+,R2

16%

BNE

;R2=ADDRESS OF MESSAGE STRING

#CR,R3
9s
CHRCNT

108
12%
CHRCNT
#' ,R3
12%
R2.BOTADR

MOV

;R1 POINTS TO ERROR MESSAGE
. TABLE
cBRANCH ]F NO ERROR MESSAGE

JYES!!
gSRRIAGE RETURN??

(R2)+,R3
14%

BNE
BR
INCB
CMPB
BNE
MoV

BHIS

;RO POINTS TO FIRST OF
;FOUR ENTRIES IN ERROR
; TABLE

BOTADR

#LF ,R3
8s
#HT ,R3
11%
CHRCNT

C(MPB

;CLEAR CHARACTER COUNTER

JBRANCH IF END OF MESSAGE
:LOAD ADDRESS OF STRING
;CLEAR BOT ADDRESS

R2,15%

CMPB
BEQ
(MP8
BNE
INCB

BIT18B

:YES-TYPE CRLF
;CLEAR BOT FLAG

#7,CHRCNT

#6464, ,CHRUNT
8s

BOTADR,R4

13%

SEND OF

STRING??

$YES-CLEAR CHAR COUNT
JGET NEXT CHARACTER
LINE FEED??
sYES-GET NEXT

CHARA(CTER

:zgfi{Z(NTAL TAB??

TADJUST CHARACTER COUNT
;s INCREMENT C(HARACTLR COUNT
:SPng’?
JNO!!

;SAVE ADDRESS OF

SPA(E

JEND OF LINE??
JNO!!
;GET ADDRESS OF LAST SPA(E
;BRANCH IF SPACF DETECTED

CZRMQAQ RMOS/3/2 DSKLS TST 2

022262
022264
022264
022270
022272
022276
022302
022306
022312

022314
022316
022320
022324

001707

104401
105037
105037
013702

010237
112742
105722

TYPE

CLRB

MOV

BR
C.RB
MovB

N
L]

105044
112737
104401
000000
105737

001217
022415
022220
177777

022414

—

013702
000726

F
8
171-APR-80 14:12:35 PAGE 14-2

wes
L1
]

Ownumb‘~$!

Icr r i
LS ENE N RUR LS BRNRRRUN NS o

20 3BIRIRIC2S 8

d
o
e
el

D e cd d bl
D
d e
d e
d
D d d
d
d
D
h
d
D d ed e
e
)
d
d
D

06
22210
22216

104401
105037

TYPE

. WORD
1ST8
BEQ

022414

001217
0226414
022615
022412
022220
000040

TYPE
CLRB
CLRB
MOV
MOV
MOVB
TSTB

000677

BR
ié;PE

016001
001444
104401

016002
016003
012137
001433

000002

001217
000004
000006
022316

104401

000000
104401

005702
001767
012204
012305

17¢:

MOV
8EQ

TYPE

MOV

18%:

MOV
MOV

001217

105725

19%:

TYPE

. WORD

TYPE
TST
BEQ
MOV

20%:

sTYPE CRLF
;CLEAR CHARACTER COUNT
;SET UP R2 FOR TESTING

~(R4)
#-1,BOTFLG

sREPLACE SPACE
;SET BOT FLAG

;TYPE EFROR MESSAGE STRING
sSTRING ADDRESS GOES HERE

9gTFLG

:ze§'STQJNG TRUNCATED??

. SCRLF

BOTFLG
CHRCNT
BOTADR,R2
R2,15%
¥ -(R2)
(R2)+
8%

2(RO) ,R1
25%
.SCRLF

4(RO) ,R2

6(R0) ,R3

(R1)+,19%

25%

0
.SCRLF
R2
18%

(R2) + R4

(R3) +.RS
(RS) +

22%
218

;R2 POINTS TO DATA ADDRESS TABLE

;R3 POINTS TO FORMAT TABLE

;PUT HEADER ADDRESS FOR TYPE

;BRANCH IF END OF HEADERS

; (ASSUME END OF DATA)

;HEADER ADDRESS GOES HERE
;DATA WITH HEADER??
;NO!!

‘R4 POINTS TO DATA ADDRESS

‘RS POINTS TO FORMAT
SWHAT KIND OF DATA??

:BINARY
SOCTAL

*DECIMAL

a(R&)+,-(SP)

23s

22%:

3(R4)+,-(SP)

23%:

(R4)

;MOKE

ERTYO4

SYES=TYPE 2 SPACES

L $CRLF
18$

STYPE ONE BLANK LINE
‘BEFORE NEXT HEADER

248

022451

208

24%:

25%:
TSTNMB:

JR1 POINTS TO ERROR HEADER TABLE
sBRANCH IF NO HEADER
; (ASSUME NO DATA)

23%

21s:

001217

;YES=TYPE CRLF

:CLEAR BOT FLAG
sCLEAR CHARACTER COUNT
;SETUP R2 FOR TESTING
;SETUP 158 FOR TYPING
JRESTORE SPACE
JRESTORE R2
;TYPE REST OF STRING

ERROR DATA

(R4)+,~(SP)

142

SEQ 0096

. SCRLF
CHRCNT
ggS,RZ

ERROR HEADER AND

BEQ

— e ad d d ed

o0 jeloleleololale) [elelololele] o o
AINONINONIND n
NS\ non) n
NINININININY
[\Y]
N
—
NINININININD
n
~
OrOS+O
o

ERROR TYPEOQUT ROUTINE

MACRO v03.01

INO!!

DATA??

SAND CONTINUE

PC
,WORD

JTEST NUMBER

—_—

CIRMQAQ RMOS/3/2 DSKLS TST 2
,ERROR TYPEQUT ROUTINE
156 022410
157 022412
158 022414

}Zg 022415

161

022416

162 022424
163 022434
164 022443

165 022451

MACRO v03.01

C00000
000000
000

ERRNMB:
BOTADR:
BOTFLG:

000
125

054
054
054

CHRCNT:

116

040
040
040

111

126
105
120

11-APR-B0 14:12:35 PAGE

ERTYQ0:

ERTYQ1:
ERTYQZ2:
ERTY03:

_WORD
.WORD
.BYTE

BYTE

.ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ

0
0
€

;ERROR NUMBER
JBEGINNING OF TEXT ADDRESS
;BOT FLAG

:CHARACTER COUNT

aUNIT#d

@, TEST#a
@, ERR#3
@. PC=d

}29 022454

040

000

ERTYQ4:

.ASCIZ

168 022460
169 022465
170 022472

122
122
122

115
115
115

060
060
060

$RMO2:
$RM03:
$RM0S:

.ASCIZ
.ASCIZ
,ASCIZ

aRMO2a
3RM03a
QRM0Sa

};}

055

040

ERTYOS:

.EVEN

.ASCIZ

14-3

@ - @

SEQ 0097

CZRMQAQ RMOS/3/2 DSKLS TST 2

CLOCK SUBROUTINES

MACRO v03.01

H 8
11-APR-80 14:12:35 PAGE 15

SEQ 0098

;

.SBTTL

;ROUTINE TO SIZE FOR CLOCKS (KW11-L OR KW11-P)

5 022500
6 022502

7 022506
8 022512
18 022520

000240
013746
013746
012737
012737

000006
022576
000300

1
12 022526
13 022532

005777
(12737

156754
022740

15 022546
16 022554
17 022562
18 022570
19 022574

012777
012777
013777
005077
000454

S} 022602

000002

14 022540

20 022576
23
24 022604
25 022604
26 022612
27 022616
28 022624
29 022632
30 022640

31 022646
32 022654
33 022660
34 022662
gg 022666

37
38 022670
39 022670

40
41
42
43

022674
022702
022706
022714

zé 022720
46 022726

022726

47 022732

23 022736

012737

012716

012737
005777
012737
012737
012777
012777
013777
005077
000422
012716
000002

000004

023062

023026
000300
001522
156726

022662
156700
022756
023070
023026
000300
001514
156634

000002

012637

000006

000207

001532

001534

10%:

000004
001532
001534
156660
156654

156636

001512

MOV
R11

MOV
CLR
BR
MOV
RTI

MOV
CLR
MOv
CLR

000004

ADD

30%:

MOV

RTS

;sPUSH ERRVEC ON STACK
;:PUSH ERRVE(C+2 ON STACK
;LOAD 04 TRAP VECTORS

#PSTOP, STOP

:LOAD STOP ADDRESS

#PCOUNT ,@SLPVEC ;LOAD P CLOCK INTERRUPT VECTOR
#PRG,ASLPVEC+?2
SLLVEC+2,38LLVEC,;CLEAR L CLOCK INTERRUPT VECTOR
aSLLVEC+?
308

#158, (SP)

;DUMMY RT] ADDRESS

;RESTORE PRIORITY

IF L CLOCK IS PRESENT-GO TO 20% IF NOT PRESET

#208 ,ERRVEC
;CHANGE 04 TRAP VECTOR
aSLLCSR
;TEST FOR L CLOCK
#LCLOCK,CLOCK
;LOAD SUBROUTINE ADDRESS
ALSTOP,STOP
;LOAD STOP ADDRESS
#LCOUNT ,@SLLVEC ;LOAD L CLOCK INTERRUPT VECTOR
#PR6,BSLLVEC+?
SLPVEC+2,38LPVEC;CLEAR P CLOCK INTERRUPT VECTOR
aSLPVE(C+2
308
#25%, (SP)
;DUMMY RT] ADDRESS
RESTORE PRIORITY

;NO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS
¢5%:
CLR
CLOCK
;CLEAR SUBROUTINE ADDRESS

001520

000004

MOV
MOV
MOV
(LR
BR

:NO P CLOCK-SEE
15%:
MOV
TST
MOV
MOV
MOV
MOV

20%:

ERRVEC,=(SP)

ERRVEC+2,~(SP)
#108 ,ERRVEC
#PRS,ERRVE(+2

IF A KW11=P CLOCK IS PRESENT - GO TO 108 IF NOT PRESENT
TST
ISLPCSR
;TEST FOR P CLOCK
MOV
#PCLOCK,CLOCK
:LOAD SUBROUTINE ADDRZSS

MOV

156736
156732
156730

022670

001532
001514
001514
001522
001522

SIZCLK: NOP
MOV
MOV
MOV
MOV
JSEE

022604

005037
012737
005037
012737
005037
062766

012637

000004
000006

CLOCK SUBROUTINES

#SLPVEC+2,8LPVEC:CLEAR P CLOCK INTERRUPT VECTOR
SLPVEC+2
#SLLVEC+2,SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR
SLLVEC+?2

#2,4(SP)

(SP)+ ,ERRVEC(C 2

(SP)+ ,ERRVEC(

; CHANGE RETURN ADDRESS

;.POP STACK INTO ERRVEC(C+?2

;;POP STACK INTO ERRVEC

sROUTINES TO START THE CLOCK (KW11-L OR KW11-P)

52 022740

012777

012777
000403

000135

177777

156542

PCLOCK: MOV

MOV
BR

#1385, 3$LPCSR
PLCLK

:LOAD CONTROL REGISTER
;GO TO COMMON CODE

56 022756

012777

000100

156532

LCLOCK: MOV

#100,38LLCSR

;LOAD CONTROL REGISTER

53 022746
gg 022754

156532

#-1,38LPCSB

;LOAD COUNT SET BUFFER

CZRMQAO RMOS5/3/2 DSKLS TST 2

CLOCK SUBROUT INES

57
58 022764
59 022770
022772
60 022774
61 023000
62 023004
63 023010
64 023012
023016
023022
023024
65 023024
66
67

005037

MACRO v03.01

SEQ 0099

001526

PLCLK:

001524
177437
000300
000240
023024

30%:

40%:

CLR

TIME

MOV

(SP)+.RS
RS, $PSW
#*~CPR7 RS

THAP
MoV

BIC
CMP
BHI
MOV
MOV

408
#PRS ,~(SP)
#30%,-(SP)

RTS

RTI

;ROUTINES

68
69 023026
;0 023026

;CLEAR TIMER COUN)
;:PUSH OLD PSW AND PC ON STA(K
;. SAVE THE PSW IN RS
:SAVE PRIORITY

JMASK X

#PR6 RS

TO HANDLE

CLOCK

:1S PRIORITY TOO HIGH??
.NOI

Y:PUT NEW PS ON STACK

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

INTERRUPTS

000021

001526

177777
000021

001526
001530

LCOUNT:

ADD

BCC

10%:

20%:

MOV

SuB
BPL
(LR

RT]

#17.,TIME
108
#-1,TIME
#17. ,WATCH

20%

WATCH

;ROUTINES TO STOP THE CLOCK

86 023074
87 023074
023100
023104
023106
88 023106
89

(KW11-L

OR KW11-P)

PCOUNT
:

001530

84 023070

11-APR-80 14:12:35 PAGE 15-1

005077
000402

156420

005077

156422

013746
012746

001524

000002

000207

PSTOP:

LSTOP:

10%:

sBRANCH IF NO OVERFLOW
JRESTORE MAXIMUM COUNT
sDECREMENT REMAINING TIME
:BRANCH IF POSITIVE
;CLEAR REMAINING TIME
cRETURN TO USER
(KW11-L OR KW11-P)

PLSTP

a$LPCSR

;STOP P CLOCK
;GO TO COMMON STOP CODE

(LR

a$LLCSR

;STOP L

MOV
MOV

#108,-(SP)

RTS

(LR

PLSTP:

023106

;ADD 17MS TO ELAPSED TIME

RT1

$PSW,
- (SP)

CLOCK

:;PUT NEW PS ON STA(K

;;PUT NEW PC ON

STA(K

;;POP NEW PC AND PS

——

SET VOLUME

VALID SUBROUTINE

J
11-APR-80 14:12:35 PAGE

8
16

MACRO v03.01

SEQ 0100

;

.SBTTL

;THIS SUBROUTINE

JRETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR IS

INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID,

JRETURNING WITH THE DRIVE

;lC)IE\EECTED'

9
10

JCALL:
M

};

13
14
15
16
17
18
19

SET VOLUME VALID SUBROUTINE

023110
023110
023114
023122
023130
023136
023144

20 023152
21 023160
22 023166
23 023170
26 023174
25 023202
26 023210

27 023214

28 023222
:2’;3 023230

SETVV:

JSR
BR
ERROR

PC,SETVV
2?

JSR
MOV
MOV
MOV
MOV
MOV

PC.CNTCLR
;GO CLEAR CONTROLLER
#DMD ,RMMR1(R0)
.LOAD RMMR1
#DMD !MUR ,RMMR 1 (R0)
;LOAD RMMR1
#0 ,RMER1(RO)
.LOAD RMER1
#0 ,RMER2 (RO)
:LOAD RMER?
#PACACK !GO,RMCS1(RO)
;LOAD RM(CS1

ADD

N2,

023334
000001
001001
000000
000000
000023

000012
177677

001142
001142

010037
062737
012737

001136
000012
000100

001136
001140

MOV
BIC
BNE
MOV
ADD
MOV

112776

000100

000000

MOVB

016037
042737
001020

062716

012737
000207

000002

000022

001174

108 :

IN DIAGNOSTIC MODE.

MOV
RTS

THE

SUBROUTINE

IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE

004737
012760
012760
012760
012760
012760

000024
000024
000014
000042
000000

STILL

JUMP TO SUBROUTINE
RETURN HERE [F NO ERROR

RETURN HERE IF ERROR

RMDS (R0O) ,$8DDAT ;STORE RMDS AT $BDDAT
#~Cvv,$8DDAT
108
;BRANCH IF VOLUME VALID SET
RO, $8DADR
;SETUP FOR ERROR MSG
#RMDS
, SBDADR
#VV,SGDDAT
(SP)

0160,8(SP)

#PACACK
, $TMPO
PC

JMOVE RETURN ADDRESS

;WRITE ERROR NUMBER
SRETURN

TO ERROR

CZRMQAQ RMOS/3/2 DSKLS TST 2

SET OFFSET MODE SUBROUT INE

MACRO v03.01

;

.SBTTL

11-APR-80 14:12:35 PAGE 17

SEQ 0101

SET OFFSET MODE SUBROUTINE

;THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET

:MODE SETS.

5
6

THE DRIVE SHOULD BE

IN DIAGNOSTIC MODF WHEN CALLING THE

-SUBROUTINE, WHICH WILL LEAVE DMD ON.
THE SUBKUWUTINE RETURNS TO THE
SWORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WMICH CASE IT

JRETURNS TO THE SECOND WORD FOLLOWING THE CALL

9
10

;CALL:
H

};

13
14
15
16
17

023232
023232
023240
023246
023254

18 023262

19 023270

20
21
22
23
26
gg

012760
012760
012760
012760

001001
000000
000000
000015

000024
000014
000042
000000

042737

177776

001142

000001
001136
000012
000002

001140

016037

023276
023300
023306
023312
023320
85%%%3

001015
012737
010037
062737
062716
112776

Sg 023332

000207

000012

000111

SETOM:

001142

PC,SETOM
??

MOV
MOV
MOV
MOV

#DMD !MUR ,RMMR1 (R0O)
;LOAD RMMR1
#0,RMER1 (RO)
;LOAD RMER1
#0,RMER2 (RO)
;LOAD RMERZ2
#OFFSET !GO ,RMCS1(RO)
;LOAD RM(CS1

BIC

#~COM, $BDDAT

ERROR

MOV

001136
000000

JSR
BR

108

JUMP TO SUBROUTINE
RETURN HERE IF NO ERROR

RETURN HERE IF ERROR

RMDS (RO) ,$8DDAT ;STORE RMDS AT $BDDAT

BNE
MOV
MOV
ADD
ADD
MOVB

108
#OM,$GDDAT
RO, $BDADR
A#RMDS
, $BDADR
#2,(SP)

¢BRANCH IF OFFSET ON

#111,a(SP)

;WRITE ERROR NUMBER

RTS

JRETURN TO USER

sMOVE RETURN ADDRESS TO ERROR

MACRO v03.01

.SBTTL

CLEAR (ONTROLLER SUBROUTINE

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,

;AND DRIVES, THEN SELECTS THE DRIVE.
;CALL:

n
W

023334

023342
023350
023356
023360

010046
013700
012760
117760
£12600
000207

CNTCLR:

001276
000040
156106

D wnd ad

NOWVNHWN=OW0

023362
023362
023366
023412

18 023412
19 023416

20 023420
21
S% 023424

104401
000411

023370

005737
001402

000042

000137

021356

000137

002716

JSR

PC,.CNTCLR

MOV

RO,=(SP)

MOV
MovB

#CLR,RMCS2(R0O)
;CLEAR MASSBUS
oTSTQUE ,RMCS2(RO)
sSELECT DEVICE UNDER TEST

MOV

000010
000010

MOV
RTS
LSBTTL

d
—

L
8
11-APR-80 14:12:35 PAGE 18
SEQ 0102

OOV
WN =

CZRMQAO RMOS/3/2 DSKLS TST 2
CLEAR CONTROLLER SUBROUTINE

SHUT:

é£25$:

108:

;CALL TO ROUTINE

;;PUSH RO ON STACK

$BASE RO

;RO = UNIBUS BASE ADDRESS

(SP)+ RO
PC

. 2POP STACK
;RETURN

INTO RO

SHUTDOWN SUBROUT INE

TYPE

,65%

;s TYPE ASCIZ STRING

B8R

643

..GET OVER THE ASCI2

TST
BEQ
JMP

462
108
$EOP

JRUNNING CHAIN MODE OR ACT11 AUTO ACCEPT ?
sNO !
JYES - GO TO END OF PASS

JMP

START

;GO TO START

ASCIZ

<CRLF>QTEST WAS HALTEDa<CRLF>

ENABLE SEARCH SUBROUTINE

MACRO v03.01

m 8
11-APR-80 14:12:35 PAGE 19

.SBTTL

023430

SEQ 0103

ENABLE SEARCH SUBROUTINE

ENBSCH:
;THE REGISTER OUTPUT BUFFER

SHOULD CONTAIN:

RMDAQ

= DESIRED SECTOR AND TRACK ADDRESS

:
:

RMOFO
RMBAQO

= FORMAT, ECI, HCI
= BUFFER ADDRESS

RMDCO

= DESIRED CYLINDER ADDRESS

:
:

RMWCO
RMCS10

= WORD COUNT
= FUNCTION CODE

:NOTE:

OFFSET IS NOT ENABLED WHEN USING THIS SUBROUTINE

sSET VOLUME VALID
sFIRST,CLEAR ~SET DIAGNOSTIC MODE-SYNCHRONIZE
;PROM STROBE
JSR
MoV

000024
53

000024
000024

31 023504
32 023512
33 023516
34 023524
35 023530
36 023536
37 023542

39 023556

40 023562
41 023566
42 023570
43 023572
44 023574
45 023600
46 023606
47 023614
48 023620
49 023624

g? 023632

52
53
54
55 023636

MOV
MOV
MOV

#DMD !MUR!MCLK ,RMMR1(RO) ;LOAD RMMR1
#DMD !MUR ,RMMR1 (RO)
;LOAD RMMR1
RMMR1 (RO) ,RS
;STORE RMMR1 AT RS

ADD
CLR
MOV
ADD

#RMMR1
, $BDADR
$BDDAT
#WC,SGDDAT
#2,(SP)

BIT
BNE
DEC
BNE
MOV

001136

001140
000000

MoV

PC,CNTCLR
#DMD ,RMMR1(RO)
#33..R4

000024
000024

MOV

#DMD 'MUR !MCLK ,RMMR1(R0O)

MOVB
;

(1)

REPORT ERROR
;| OAD RMMR1

#DMD !MUR ,RMMR1 (R0)
;LOAD RMMR1
RMMR1(RO) ,RS
:STORE RMMR1 AT RS
MIC RS
;WAIT FOR PROM STROBE TO GO OFF
7$

R4
6%
RO, $BDADR
#RMMR1,8BDADR
MIC ,SBDDAT
$GDDAT
#2,(SP)

gsé a(SP)

sSECOND, CLOCK INDEX PULSE TO
55 (2)

PROM STROBE

#IC,R5
WAIT FOR PROM STROBE TO COME ON
6%
R4
5%
RO, $BDADR
;PROM STROBE WONT SET

#30,3(SP)
60%

DEC
BNE
MOV
ADD
MOV
CLR
ADD

000000

:TO SYNC

MOVB
JMP

MOV
MOV
BIT
BEQ

001136
001142

;GO CLEAR CONTROLLER
;LOAD RMMR1
JALLOW UP TO 33 BIT CLOCKS

CLEAR FORMAT (HANGE FLOP

CLEAR RTC FLOP

;PROM STROBE WONT RESET
|

WNr>

CZRMQAO RMOS5/3/2 DSKLS TST 2

MACRO v03.01

N 8
11-APR-80 14:12:35 PAGE 19-1

56 023636
gg 023644

012760
012760

001005
001001

000024
000024

MOV
MOV

#DMD !MUR'M] ,RMMR1(RO)
#DMD !MUR,RMMR1 (R0)

59 023652

012760

000000

000014

MOV

#0 ,RMER1 (RO)

61 023666

012760

000023

000000

MOV

#PACACK ! GO,RMCS1(RQ)

60 023660

012760

62 023674
63 023702
64 023710
65 023712
66 023716
67 023724
68 023732

016037
042737
001021
010037
062737
012737
062716

70 023744
;; 023752

012737
000552

69 023736
73
74
75
76
77
78

112776

000000
000012
177677

000042
001142
001142

001136
000012
000100
000002

001136
001140

000022

001174

000100

013760
013760
013760
013760

001414
001442
001440
001410

000006
000034
000032
000002

82 0264012

012760

041401

000024

84 024026
gg 024034

012760
013760

000000
001406

000042
000000

012737
004777

000310
155456

001530

016037
042737
001023

000024
137777

001142
001142

83 024020

87
88 024042
024050
89 024054

024054

90 024062
91 024070
92 024072
93 024076
9% 024100
95 024104
9 024112
97 024116
98 024124

183 024130
101 024136
102 024140
103 024140
104
105 024144
106 024150

024150
107 024156
108 024164

013760

012760

005737
001366
004777
012737
010037
062737
062716
112776

001412

000000

000004

mMovB
MOV
BR

;LOAD REGISTERS
10%:
MOV
MoV
MOV
MOV

MOV

001136

000101

000000

000002

004777

155370

012704

000021

012760
012760

141401
041401

#100,a(sP)

#PACACK
, $TMPO
60s

RMDAQ,RMDA(RO)
RMDCO,RMDC(RO)
RMOFO,RMOF
(RO)
RMWCO,RMWC(RO)

RMBAO,RMBA(RO)

;LOAD RMER2

;LOAD RMCS1
;STORE RMDS AT $BDDAT
:VOLUME VALID SHOULD BE SET
:SETUP ERROR MSG

JWRITE ERROR NUMBER

;

;LOAD
;LOAD
;LOAD
;LOAD

RMDA
RMDC
RMOF
RMWC

;LOAD RMBA

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

MOV
MOV

#0,RMERZ2 (RO)
;LOAD RMERZ2
RMCS10,RMCS? (RO)
;LOAD RMCS1

#0 ,RMER1 (RO)

;WAIT FOR "RUN AND GO'‘ TO SET
MoV
#200. ,WATCH
JSR
PC,aCLOCK
20$:

MOV
BIC
BNE

001140

30%:

000024
000024

RMDS (RQ) ,$BDDAT
#~CVV,SBDDAT
10%
RO,$BDADR
#RMDS
, $BDADR
#VV,$GDDAT
#2,(SP)

;LOAD RMER1

MOV

001530
155430
040000
001136
000024

#0 ,RMERZ2 (RO)

;LOAD RMMR1
;LOAD RMMR1

sENABLE DEBUG CLOCK AND LOAD FUNCTION CODE

000014

000460

005304 .

MOV
8I(C
BNE
MOV
ADD
MOV
ADD

000000

023754
023754
023762
023770
023776

gg 024004

MoV

SEQ 0104

RMMR1(RO)
, $BDDAT
#~CRG, $BDDAT
308

TST
BNE
JSR
MOV
MOV
ADD
ADD
Mov8

WATCH
20%
PC,aSTOP
#RG, $GDDAT
RO, $BDADR
#RMMR1, $BDADR
#2,(SP)
#101,a(SP)

60%

JSR

PC,aSTOP

;LOAD RMER1

;LOAD RMMR1

;SET WATCHDOG TIMER VALUE
;START THE CLOCK

;STORE RMMR1 AT $BDDAT
JANY TIME LEFT?
JYES-WAIT
;STOP THE CLOCK
;SETUP ERROR MSG
JWRITE ERROR NUMBER IN

;USER'S CALL -

:STOP THE CLOCK

;STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS)
MOV
#17..Ré
sR4=CLOCK COUNT
40$:

MOV
MOV
DEC

#QMD
!MUR ! DBEN!MOC
! DBCK ,RMMR1 (RO)
;LOAD RMMR1
#CMD !MUR ! DBEN!MOC
,RMMR1 (RO)
;LOAD RMMR1
R4

CZRMQAO RMOS/3/2 DSKLS TST 2
ENABLE SEARCH SUBROUTINE

CZRMQAO RMOS5/3/2 DSKLS TST 2
ENABLE SEARCH SUBROUTINE

1193 024166
111
112
113 024170

”g 026176

116

001370
012760

012760
i

Hg 8525%

012706

119 026210

012760

120 024216

121

026224

012760

005304

041001

041401

151401

051401

125 024244
126 024246

001015
010037

001136

128 024260

012737

004000

130 026272

112776

000102

127 024252

129 024266

131

024300

}_;,% 024300

062737

062716

000207

000024

173777

000024

000002

19-2

408

SEQ 0105

;:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER TO PASS
STEST AT LOCATION 166
MOV
#DMD 'MUR ' DBEN,RMMR1(R0) ;LOAD RMMR1

MOV

:STEP SEQUENCER

000043

001370
016037

042737

11-APR-80 14:12:35 PAGE

BNE

122 026226
123 024230

1264 024236

MACRO v03.01

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

:LOAD RMMR1

(35 CLOCKS) AND VERIFY SEARCH IS ENABLED

MOV

#35. R4

020024

MOV

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

DEC

001142

BNE
MOV

508
RMMR1 (RO) , $8DDAT

BNE
MOV

608
RO, $8DADR

000024

MOV

001142

BIC

001136

ADD

#~CESRC,SBDDAT

#RMMR1
, SBDADR

MOV

000000

move

#102.a(spP)

RTS

608:

:LOAD RMMR1

#DMD !MUR | DBEN'MOC iDTO,RMMRT
(RO) ;LOAD RMMR1

001140

ADD

;R4=CLOCK COUNT

#ESRC, $GDDAT
22, (SP)

;STORE RMMR1 AT $BDDAT

;SEARCH SHOULD BE ENABLED

;SETUP ERROR MESSAGE
;WRITE ERROR NUMBER

=
s
NO VP WFJ-‘O‘O@\IO‘V!

— b d e b
DW= OODNO NS NN

CZRMQAO RMOS/3/2 DSKLS TST 2
SECTOR COMPARE SUBROUTINE

MACRO v03.01

.SBTTL

SEQ 0106

SECTOR COMPARE SUBROUTINE

sTHIS SUBROUTINE

CONTINUES THE EXECUTION OF

A DATA COMMAND

;FROM WHERE SEARCH HAS BEEN ENABLED TO WHERE SECTOR COMPARE
;IS SET.

024302

026302

024310

024316
024324

024330
024334
024336

SCTCMP:

012760
012760

051405
051401

000024
000024

012737
004777
005737
001375
004777

000006

001530

155202

001530
155172

051441
n51401

000024
000024

024356
024364
024372
28 024400
29
30 024406
3

051403
051443
051403
051401

000024
000024
000024
000024

012760
012760

000207

;SET INDEX PULSE TO CLEAR FORMAT CHANGE FLOP
MOV
MOV

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

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

;LOAD RMMR1

SWAIT AT LEMST 4 MS FOR 'RETURN TO CENTER LINE'' ONE SHOT TO SET
#6 ,WAT(CH
MoV
;SET WATCHDOG TIMER VALUE
10%:

024342
024350

NN PPN

11-APR ~80 14:12:35 PAGE 20

JSR
TST
BNE
JSR

PC,aCLOCK
WATCH

;START

PC,aSTOP

:STOP THE

108

THE

(CLOCK

CLOCK

;DATA INPUT TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE TO
;SET FLOP
MOV
#DMD 'MUR ! DBEN!MOC !DTU !MS ,RMMR1 (RO)
;LOAD RMMR1
MOV

#DMD !MUR ! DBEN!MOC !DTO,RMMR1T(RO)

;LOAD RMMR1

;WITH SE,E‘(T)OR COMPARE HIGH, CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP
#DMD 'MUR ' DBENMO
'DTO 'MSC
C ,RMMR1 (RO)

;LOAD RMMR1

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

:LOAD RMMR1

MOV
MOV
MOV

#DMD !MUR I DBEN {MOC {DTOMSC
IMS ,RMMR1(R0)

RTS

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

:LOAD RMMRI

;LOAD RMMR1

—

CZRMQAQ RMOS/3/7 DSKLS TST 2

SET LOOKING FOR SYNC

SUBROUTINE

MACRO v03.01

D
9
11-APR=-80 14:12:35 PAGE 21

SEQ 0107

;

.SBTTL

;THIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCER

g 026410

SETLFS:

8
9 024410

;PULSE BIT CLOCK UNTIL PROM STROBE SETS
108:

SET LOOKING FOR SYNC SUBROUTINE

:ASSUMING SEARCH IS ENABLED.TO THE POINT WHERE 'PLFS'* IS ACTIVE

10 026410
11 024416
12 026424
13 024430

012760
C12760

055401
051401

016005
(32705

000024
000040

}g 852223

012704

000260

026442
19 024450
20 024456
21 024462
22 024466

012760
012760
016005
032705
001010

055401
051401
000024
002000

;g 0264434
16

001765

23 024470

005304

25 024474

062716

gg 024506

000430

26 024472

26 024500

001363
112776

000024
000024

MOV
MOV
MOV
8IT

BEQ

000035

RMMR1(RO),RS
MJC RS

;STORE RMMR1

208

000024
000026

WHERE PLFS WILL

SET

MOV

#176. ,Ré4

MOV
MOV
MOV
BIT
BNE

#DMD ' MUR ! DBEN 'MOC ! DTO'MCLK , RMMR1 (RO)
:LOAD RMMR1
#DMD ! MUR ' DBEN 'MOC ' DTO,RMMR1
(RO) ;LOAD RMMR1
RMMR1(RO)
,RS ~ ;STORE RMMR1 AT RS
#PLFS,RS
SEXIT IF PLFS IS SET
308

BNE

208

ADD

000000

AT RS

108

;SET UP DATA SEQUENCER TO LOCATION 11.

DEC

000002

#DMD 'MUR ! DBEN 'MOC ! DTO'MCLK ,RMMR1 (RO)
;LOAD RMMR1
#DMD 'MUR ' DBEN 'MOC ' DTO.RMMRT
(RO) :LOAD RMMR1

move

B8R

:MAX NUMBER OF BIT CLOCK

;ERROR IF COUNT EXHAUSTED

#2.(SP)

#35.3(sP)

$CANT SET PLFS

508

;STEP THE MAIN REG CLOCK UNTIL THE TRAILING EDGE OF PROM STORBE

31 024510

308

32 024510
33 024514

3, 024520

35 024522

1S DETECTED.

016005

032705

001007

000024

000040

36 024530
37 024536

012760

012760
000414

055401

024540

016005

000024

40 024550

001407

43 024566
44 024570

000764

38 024540

39 024544

41 024552
42 024560

22 024570

032705

012760
012760

000207

051401

000024

408:

508:

:STORE RMMR1 AT RS

MIC RS

MOV

MMRIAAA'MCLK
,RMMRT (RO)

MOV
8R

MOV

408

#MMR1AAA . RMMRT (RO)
508

RMMR1(R0O),RS

;LOAD RMMR1

*LOAD RMMR1

;STORE RMMR1 AT RS

BIT

MIC RS

MOV
MOV

FMR1AAA 'MCLK,RMMRT(RO)
MMR1AAA . RMMRT (RO)

:LOAD RMMR1
*LOAD RMMR]

RTS

JEXIT

BEQ

000024
000024

RMMR1(RO),RS

BIT

BNE

000024

000040

055401
051401

MOV

50$

408

CZRMQAQ RTMOS/3/2 DSKLS TST 2

CLOCK SYNC SUBROUT INE

MACRO v03.01

.SBTTL

CLOCK SYNC SUBROUTINE

;THIS SUBROUTINE WILL SIMULAIE THE HEADER AND DATA SYNC

*PATTERN BEING READ

9 024572

CLKSNC :

9 024572
10 024576
11 024602

016004
032704
001023

000024
002000

13 024610
14 024616
15 0264624

042737
012737
010037

175777
002000
001136

17 024636

062716

000002

12 024604

16 026630

18 024642

010437

062737

001142

000026

112776

000035

012705
032704
001434

000021
000040

012760
016004
005305
001363

051401
000024

19 024650

000472

23 024664

012760

055407

010437
042737
005037
010037
062737
062716
112776
000431

001162
177737
001140
001136
000026
000002
000062

20 024652
21 026656
22 024662
26 0264672
25 024700
26 024704
gg 024706
29
30 024710

31 024714
32 0264722
33 024726
3, 024732
35 0264740
36 0247644
gg 024752

:VERIFY THAT 'PLFS'’ IS ON

001136

0264754
0264760
024766
0264772
024774
024776
025000

002000

025004
50 025010
51 025014
52 025020

010560
052705
010560
042705

000024
004000
000024
004000

54 025030
55 025034
£¢

005337
001354

53 025026

BIC
MOV
MOV

#~CPLFS,SBDDAT
#PLFS,$GDDAT
RO, $BDADR

ADD

MOVvB

108:
208:

000024

B8R

MOV
BIT
BEQ

MOV

000024

MOV
MOV
DEC
BNE

Ré, $BDDAT

;STORE RMMR1 AT Ré
:LOOK FOR SYN SET ?
*BRANCH IF SO
-

#RMMR1, SBDADR

#2, (SP)

#35.a(sP)

608

#17..RS
MIC.RG
308

:MAKE SURE PROM STROBE

#MR1AAA 'MCLK,RMMRT(RO)

010560

014400
000020
051401

000024

025040

;LOAD RMMR]

;ERROR CAN'T RESET PROM STROBE WITH LFS ACTIVE
MOV
R4, $BDDAT
;SETUP ERROR FOR USER

BIC
CLR
MOV

001136

ADD
ADD
MOVB
B

000000

308:
025040

IS OFF

MR 1AAA ,RMMR1 (RQ)
;LOAD RMMRI1
RMMR1(RO)
R4
;STORE RMMR1 AT R4
RS
208

#CWC, $BDDAT
$GDDAT
RO, $8DADR

#RMMR1
, SBDADR
#2,(SP)
#62,3(SP)
608

-CLOCK THE SYNC PATTERN (00011001)

012704
012737
012705
000241
006004
103002
052705

49 025004

RMMR1(RO)
R4
#PLFS R4
108

ADD

000000

001142

MOV
BIT
BNE
MOV

001142
001140

40 024754

41
42
43
44
45
46
2;

SEQ 0108

;

11-APR-80 14.12:35 PAGE

NONO

—_—

—

408:

508:

MOV
MOV
MOV
cLC
ROR
BCC
BIS

R&
508
#MRD .RS

MOV
BIS
MOV
BIC

RS.RMMR1(RO)
MMCLK RS
RS,RMMR1(RO)
#MCLK RS

DEC
BNE

70¢
408

MOV

#014400,R4
#16.,70$
#MR1AAA RS

RS,RMMR1(RO)

THROUGH THE SHIFT REGISTER

:STROBE BIT COUNT
*GENERATE REG VALUE
‘WITH MAINTENANCE CLOCK ON

;SET READ BIT PER PATTERN BIT

;LOAD RMMR]
;LOAD RMMRI
:CLOCK ONE BT

:LOAD RMMRI

CIRMQAQ RMOS/3/2 DSKLS TST 2

CLOCK SYNC

SUBROUTINE

MACRO v03.01

F
9
11-APR-80 14:12:35 PAGE 22-1

SEQ 0109

57
58

;CAN'T VERIFY SYNC CLOCK WAS DETECTED
sUSER CAN DO SO BY S/EPING

60 025036
61 025036
62
22 025040

60$:

RTS

70¢%:

. wORD

;BIT CLOCK AND VERIFY PROM STROBE

000207
000000

SETS WITHIN ONE WORD

; TEMPORARY STORAGE

TIME

CZRMQAO RMOS/3/2 DSKLS TST 2
MACRO v03.01
SAVE AND RESTORE RO-RS ROUTINES
1

SEQ 0110

.SBTTL
MR

11-APR-80 14:12:35 PAGE 23

SAVE AND RESTORE RO-RS ROUTINES

ALALAA

SRSl

addlidi

S22

;*SAVE RO-RS

s*CALL:
;¥

SAVREG

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
X

LeTOP=-==(+16)
;¥ #2-~=(+18)

;% +4==<RS
;% +6~--R4

;* +8---R3

;*+10--=R?2
Jx+12-=<R1
fe414=~=R0

025042
025044
025046
025050
025052
025054
025056
025062
025006
025072
025076

010045
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
RT]

RO,=~(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
R5,-(SP)
22(SP) ,~(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,~(SP)

;<PUSH RO ON
csPUSH R1 ON
;;PUSH R2 ON
;;PUSH R3 ON
;sPUSH R4 ON
;cPUSH RS ON

STACK
STA(K
STACK
STACK
STACK
STACK

;:SAVE PS OF MAIN FLOW

;:SAVE PC OF MAIN FLOW

. sSAVE PS OF CALL
;. sSAVE PC OF CALL

;*RESTORE RO-RS

s«CALL:

00
00
04
10
14

025120
025122
025126
025126
025130
025132

012666
012666

012505
012604
012603
012602
012601
012600
000002

000022
000022

.
RESREG
$RESREG:
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
-SBTTL
MR

(SP) +,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS
(SP)
+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+ RO

RT]
BINARY TO ASCII

AR AR S0l

lsl

;;RESTORE PC OF CALL

;;RESTORE

PS OF

CALL

sRESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
;.POP STACK INTO RS
;;POP STACK INTO R4
;.POP STACK INTO R3
;.POP STACK INTO R2
;:POP STACK INTO R1
;.POP STACK INTO RO

AND TYPE ROUTINE

itz

Y2223 22222222221

c*THIS ROUTINE IS USED TO CHANGE A 16~BIT BINARY NUMBER TO A 16-BIT
;*BINARY=-AS(I] NUMBER AND TYPE [T,

s*CALL:

025136
025140
025144

010146
016601
000261

000006

MOV

TYPBN

$TYPBN: MOV
ggg

NUMBER,
- (SP)
R1,-(SP)
6(SP) ,R1

;sNUMBER TO BE TYPED

J:TYPE

;. SAVE R1 ON THE STA(K
;.GET THE INPUT NUMBER

;;SET 'C"" SO CAN KEEP TRACK OF THE NUMBER OF BITS

—

————

CZRMQAQ RMOS/3/2 DSKLS TST 2

BINARY TO ASCII AND TYPE ROUTINE

025146
025754
025156
025160
025164

112737

000060

MACRO v03.01

H
9
11-APR-80 14:12:35 PAGE 23-1

SEa@ 011

025210

1%:

#'0.$BIN

::SET CHARACTER TO AN ASCII 'O

BEQ

. :DONE?

ROL

ADCB
TYPE

025170

025172
025174
025176
025204
025206
025210

MOVB

000002

000004

000

2s:

$8IN:
_SBTTL

cLC
BR

MOV
MOV

$BIN

JsGET

THIS BIT

::NO==SET

,$BIN

1360 TYPE

(SP)+,R1
2(SP) .4(SP)

THE CHARACTER EQUAL

TO THIS BIT

THIS BIT

:;CLEAR ''C'* SO CAN KEEP TRACK OF BITS
::GO DO THE NEXT BIT

::POP THE STACK INTO R1
$:ADJUST THE STACK

MOV
(SP)+, (SP)
RTI
; RETURN TO USER
.BYTE
0.0
;STORAGE FOR ASCII
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

CHAR.

AND TERMINATOR

ttttttttt"tttttitttt't"tttttttttfitttttt.ttttt't.'ttittttttitt

mus ROUTINE

IS USED

TO CHANGE A 16-BIT BINARY NUMBER TO A 5~DIGIT

;~SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*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

t?EPLACED WITH SPACES.
*«CALL

025212
025212
025214
025216

$TYPDS:

MOV

NUM. - (SP)

MOV
MOV
MOV
MOV
MOV

RO, =(SP)
R1,-(SP)
R2.-(SP)
R3,-(SP)
RS.-(SP)

::PUSH
“:PUSH
$:PUSH
1:PUSH
$:PUSH

20(SP) _RS

:iGET THE INPUT NUMBER

TYPDS

020200

MOV

#20200,~(SP)

000055

BPL
NEG
MOVB
CLR
MOV

1%
RS
#'-,1(SP)
RO
#$DBLK ,R3

CLR

SUB

R1.35

MOV

000020

000001

025426
000040

1%:

2s:

025416

3$:

4$:

MOVB

MOV

000001
000060
000040

000010

177777

6$:

7%:

$DTBL (RO) ,R1

RO
R1
R2
R3
RS

ON
ON
ON
ON
ON

ROUTINE

STACK
STACK
STACK
STACK
STACK

::SET BLANK SWITCH AND SIGN

:BR IF INPUT IS POS.
i :MAKE THE BINARY NUMBER POS.
$IMAKE THE ASCII NUMBER NEG.
::2ERO THE CONSTANTS INDEX
*:SETUP THE OUTPUT POINTER

::SET THE FIRST CHARACTER TO A BLANK

$:CLEAR THE BCD NUMBER
::GET THE CONSTANT

:FORM THIS BCD DIGIT

BLT
é:c

48
gg

S BR IF DONE
..INCREASE THE BCD DIGIT BY 1

ADD
TST

R1,RS
R2

::ADD BACK THE CONSTANT
$:CHECK IF BCD DIGIT=0

ISTB

(SP)

BNE

5¢:

#' ,(R3)+

;:PUT THE BINARY NUMBER ON THE STACK

1:GO TO THE

BMI
ASLB
BCC
MOVB
BIS
BIS
MOVB
ST
MP

7%
(SP)
6%
1(SP),-1(R3)
#'0,R2
#' RO
R2,(R3)+
(RO) +
RO.410

SIFALL THROUGH IF 0

$:STILL DOING LEADING 0°'S?

:iBR IF YES
MSD’
BR
IF NO
SYES~-SET THE SIGN
MAKE THE BCD DIGIT ASCII
;;MAKE IT A SPACE IF NOT ALREADY A DIGIT

$:PUT THIS CHARACTER IN THE OUTPUT BUFFER
22JUST INCREMENTING
P:CHECK THE TABLE INDEX

CZRMQAO RMOS/3/2 DSKLS TST 2

MACRO v03.01

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

BLT
BGT
MOV
BR
TSTB
8PL

8%:

025412
025614
025416
025420
025422
025424
025426

104401
016666
012616
000002
023420
001759
000144
000012

177777

177776

025426
000002

000004

MOVB
CLRB
MOV
MOV
MOV
MoV
MOV

9%:

TYPE
MOV

MoV
RT!
10000.
1000.
100.
10

$DTBL:

$DBLK:

.BLKW

.SBTTL

11-APR-80 14:12:35 PAGE 23-2
23
8%
RS ,RZ
63
(SP)+
9%

=1(SP) ,=2(R3%)
(R3)
(SP)+ RS
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+ ,R(

. $SDBLK
2(SP) ,4(SP)
(SP)+,(SP)

BINARY TO OCTAL
IS USED

;.60 DO THE NEXT DIGIT
J:GO TO EXIT
;:GET THE LSD
;.60 CHANGE TO ASCII
JsWAS THE LSD THE FIRST NON-ZERO?
.:BR IF NO

;JoYES==SET THE SIGN FOR TYPING
;:SET THE TERMINATOR
;cPOP STACK INTO RS
;.POP STACK INTO R3
;.POP STACK INTO RZ2
;sPOP STACK INTO R1
;:POP STACK INTO RO

JsNOW TYPE THE NUMBER
:sADJUST THE STACK

;RETURN TO USER

(ASCII)

AN A A AR A AN A AN R AR AN

:*THIS ROUTINE

AND TYPE

AN RN N RN NN AN AN AR AR

(ASCII) NUMBER AND TYPE IT.

o
i

MOV
TYPOS

.BYTE

RN AN RN AN

TO CHANGE A 16-BIT BINARY NUMBER

;*OCTAL

;*$TYPOS~--ENTER HERE
s=CALL:

SEQ 0112

RN NS

TO A 6-DIGIT

TO SETUP SUPPRESS ZEROS AND NUMBER CF

NUM, = (SP)

;:NUMBER TO BE TYPED
;. CALL FOR TYPEOUT

;:N=1

TO 6 FOR NUMBER OF

::M=1 OR 0

;:1=TYPE

DIGITS TO TYPE

LEADING

DIGITS TO TYPE
ZEROS

;;0=SUPPRESS LEADING ZEROS

;*$TYPON--=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR STYPOC
c*CALL:
o
MOV
NUM,-(SP)
;:NUMBER TO BE TYPED
o
TYPON
;. ;CALL FOR TYPEOUT
]

:'%LYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

c*CALL:

o
o
025436
025442
025450
025454
025460
025462
025470
025476
025504
025506

000000
000001
025663
000002

000001
000005

025661

025661
025663
025660

MOV
TYPOC

NUM,~-(SP)

csNUMBER TO BE TYPED
csCALL FOR TYPEOUT

a(SP) ,-(SP)
1(SP) ,$0F JLL

. :PICKUP THE MODE
;.LOAD ZERQO FILL SWITCH

ADD
BR

#2,(SP)
STYPON

2 sADJUST RETURN ADDRESS

MOV
MOV

R3,~(SP)
R4 ,-(SP)

$TYPOS: MOV
MOVB

MOvVB

S$TYPO(C: MOVB
MOovB
S$TYPON: MOVB

(SP)+,SOMODE+1

#,80FILL
#6,$OMODE +1
#5,30CNT

;.NUMBER OF DIGITS TO TYPE

;cSET THE ZERO FJILL SWITCH
JoSET FOR SIX(6) DIGITS
JcSET THE ITERATION COUNT

J:SAVE R3
;s SAVE R4

CZRMQAQ RMOS5/3/2 DSKLS TST 2

BINARY TO OCTAL

(ASCII)

025510
025512
025516
025520
025524
025530
025534
025540
025542
025544
025546
025550
025552
025554
025556
025560
025564
025566
025572
025574
025576
025600
025602
025606
025612
025616
025622
025626
025630
025632
025634
025636
025640
025642
025644
025652
025654

010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703
110337
104401
105337
003347
002402
005204
000744
012605
012694
012603
016666
012616
000002

025656
025657
025660
025661
025662

000
000
000
000
000000

AND TYP:

MACRO v03.01

J
9
11-APR-80 14:12:35 PAGE 23-3
SEQ 0113

MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC
8IS
BIS
MOVB
TYPE
DECB
BGT
BLT
INC
BR
MOV
MoV
MOV
MOV
MoV
RTI

025663
000006
02566¢
025661
000012

1%:
2%:

025662
177770

A ¥

000060
000040
025656
025656
025660

5$:
7%:

£%

000002

000004
8$:

RS,~(SP)
$OMODE +1,R¢4
R4
#6 R4
R4 , $OMODE
$OFILL R4
12(SP) ,R5S
R3
RS
3%
R5
RS
RS
RS5,R3

$OMODE
7%
#177770,R3
43
R4
S$
R4
#'0,R3
#' ,R3
R3,8%
,8%
$SOCNT
23
63
R4
2%
(SP)+ RS
(SP)+,R4
(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

AR AR

A AN AR AR AN

:;SUBTRACT IT FOR MAX. ALLOWED
;J2SAVE IT FOR USE
JoGET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
;. CLEAR THE OUTPUT WORD
;JROTATE MSB INTO ‘¢’
::G0 DO MSB
;2FORM THIS DIGIT

;2GET LSB OF THIS DIGIT
;2sTYPE THIS DIGIT?
J:BR IF NO
22GET RID OF JUNK
:TEST FOR O
;s SUPPRESS THIS 0?
;:BR IF YES
s:DON'T SUPPRESS ANYMORE 0°'S
;sMAKE THIS DIGIT ASCII
;JMAKE ASCI] IF NOT ALREADY
2 :SAVE FOR TYPING
::G0O TYPE THIS DIGIT
;;COUNT BY 1
;:BR IF MORE TO DO
;:BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;JRESTORE RS
:JRESTORE R4
;;RESTORE R3
+2SET THE STACK FOK RETURNING
::RETURN
:;STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
:sO0CTAL DIGIT COUNTER
;;IFRO FILL SWITCH
;NUMBER OF DIGITS TO TYPE

BYTE
O
.BYTE
0
$OCNT:
_.BYTE
0
$OFILL: .BYTE
O
$OMODE: .WORD
0
.SBTTL
TYPE ROUTINE
S

2 :SAVE RS
;sGET THE NUMBER OF DIGITS TO TYPE

R AR A AR RN R AN NN RN

RNARNNRANNNANR AN AR AN

S*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL

J*NOTE1 :

INSERT A NUMBER OF

NULL

CHARACTERS AFTER A LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

J*NOTE2:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

s*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*CALL:

:*1) USING A TRAP INSTRUCTION
:.OR
MR

;¥

TYPE

ME SADR

.MESADR

. ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

—

CZRMQAO RMOS/3/2 DSKLS TST 2

TYPE

ROUTINE

025664
025670
025672
025674
025676
025700
025704
025712
025714
025722
025724
025730
025734
025736
025744

MACRO v03.01

K
9
11-APR-80 14:12:35 PAGE 23-4

SEQ 0114

105737
100002
000000
000430
010046

001173

$TYPE:

$STPFLG
[}

1%:

RO,=(SP)

000002
000001

001242

NHAPTENV, SENV

;:1S THERE A TERMINAL?
;:BR IF YES
;sHALT HERE IF NO TERMINAL
s s LEAVE
;¢SAVE RO
;:GET ADDRESS OF ASCIZ STRING
..RUNNING IN APT MODE

000100

001243

#APTSPOOL
, SENVM

..SPOOL MESSAGE TO APT

RO,61$

::SETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO AFT
; sMESSAGE ADDRESS
;;APT CONSOLE SUPPRESSED
J:YES,5KIP TYPE OUT
;sPUSH CHARACTER TO BE TYPED ONTO STACK
JcBR IF IT ISN'T THE TERMINATOR
;;IF TERMINATOR POP IT OFF THE STACK
;2RESTORE RO

025734
030634
000040

001243

000002
000011

@2(SP) ,RO

62%

8C.$ATY3

61$:

62%:

#APTCSUP, SENVM

2%:

60%
(RO) +,-(SP)

60%:
3s:

#2,(SP)

A X

#HT
, (SP)

4%
+
(SP)
(SP)+,R0

000200

013746

001170

105366

N00001

000724

026114

105777

153056

122716

153052
177600
000023

$CHARCNT

;. CLEAR CHARACTER COUNT

PC,STYPEC

1(SP)

;GO TYPE THIS CHARA(CTER
;IS IT TIME FOR FILLER CHARS.?
;oIF NO GO GET NEXT CHAR.
;;GET # OF FILLER CHARS. NEEDED
;:AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?

PC,$TYPEC

..GO TYPE A NULL

$FILLC,(SP)+

DECB
BR
HORIZONTAL

000040
026076
000007

:;POP

S$NULL,=(SP)

026076
026214

8%:
026214

9%:

$TYPEC:

JRETURN

. sBRANCH IF <HT>

(SP)+

7%:

. sADJUST RETURN PC

::SRANCH IF NOT

5%:
6%:

026076
001172

sNO,GO CHECK FOR CONSOLE

HCRLF, (SP)

026214

;sNO,GO CHECK FOR APT CONSOLE

$CHARCNT
73

<CRLF>

<CR><LF> EQUIV

JoTYPE A CR AND LF

:sGET NEXT CHARACTER

;BR IF NO-~GO POP THE NULL OFf OF

;DO NOT COUNT AS A COUNT

::LOOP

TAB PROCESSOR

Movs
JSR
8118
BNE
TST
BR

' ,(SP)
PC.STYPEC
g?.SCHARCNT
$
(SP)+

;;REPLACE TAB WITH SPACE
;:TYPE A SPACE
;:BRANCH IF NOT AT
;. TAB STOP
. ;POP SPACE OFF STACK
;cGET NEXT CHARACTER

TSTB
BPL
MOV
BIC
(MP8

as$TKS
10$
as$TKB, - (SP)

..CHAR IN KYBD BUFFER?

#177600, (sP)
HSXOFF, (SP)

;BR_IF NO

:GET CHAR

;. STRIP EXTRANEOUS BITS
;sWAS CHAR XOFF

STA’K

CZRMQAO RMOS/3/2 DSKLS TST 2
ROUTINE

026120
026122

11-APR-80 14:12:35 PAGE 23-5

SEQ 0115
001012
105777
100375
117716
042716
122716
001366

101%:

153032

152726

177600
000021
102%:

005726
105777
100375
116677
122766
001003
105037
000406
122765
001402
105227
000000
000207

10%:

153010

000002
000015

153002
000002

026214

000012

000002

BNE

102%

;:BR IF NOT

TST8
BPL
movse
8I1C
CMPB
BNE

as$TKS
1018
a$TKB, (SP)

J:WAIT FOR CHAR

#177600, (SP)
#SXON, (SP)

;cWAS

TST

(SP)+

sFIX STACK

1ST8
BPL

a$TPS
108
2(SP) ,a$TPB
ng.Z(SP)

;:WAIT UNTIL PRINTER IS READY

MovB
CMPB
BNE
CLRB
B8R
1$:
CMPB
BEQ
INCB
$CHARCNT
: . WORD
$TYPEX: RTS

.SBTTL
IR

;:GET CHAR
J:STRIP IT

1018

IT XON?

;:BR IF NOT

::LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
. sBRANCH IF NO
..EE?;-CLEAR CHARACTER COUNT

$CHARCNT
$TYPEX
#LF ,2(SP)
$TYPEX
(PC)+

2.1S CHARACTER A LINE FEED?

. :BRANCH IF

YES

;s COUNT THE CHARACTER

TYPE

MACRO Vv03.01

. sCHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE

AR R RN RN

AN AR R R

RARR AR AR

NN RRRARRRARARANRARRAANRNR
RN

*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
J*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW14=1
LOOP ON TEST

*SU11 1
:*SU09=1
2 *SW08=1
s*CALL
;*

026220
026220
026222
026230

104410

032777
00113

$SCOPE:

040000

152724

1%:

INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

CKSWR

BIT
BNE

MARRHSTART OF

026232

000416

026234
026240
026246

013746
012737
005737
012637
000500
022626
012637
000440

000004
026260
177060
000004

032777
001421
005046

000400

$XTSTR: BR

MoV
MOV
TST

000004

5%:

000004
152656

;:SCOPE=]0T

SCOPE

MOV
BR

CMP

soTEST FOR CHANGE IN SOF T-SWR
..LOOP ON PRESENT TEST?

#81T14 ,3SWR
$OVER

ngE

FOR THE

XOR

a#ERRVEC ,~(SP)
#5$ ,R¥ERRVEC

a#177060

(SP)+ ,#ERRVEC

$SVLAD

sYES IF SW14=1
TESTERMANAA

2o
IF RUNNING ON THE ''XOR'' TESTER (HANGE
scTHIS INSTRUCTION TO A 'NOP'* (NOP=240)
;:SAVE THE CONTENTS OF THE ERROR VECTOR
;cSET FOR _TIMEOUT
;. TIME QUT ON XOR?
;cRESTORE THE ERROR VECTOR
::G0_TO THE NEXT TEST
;.CLEAR THE STACK AFTER A TIME OUT
..RESTORE THE ERROR VECTOR

(SP)+, (SP)+
(SP)+ ,a#ERRVEC
78
L OOP ON THE PRESENT TEST
68 : :RRAMNEND OF CODE FOR THE XOR TESTERMNMAA
BIT
#81708,3SWR
;LOOP ON SPEC. TEST?
BEQ
2%
.,BP IF NO
CLR
-(SP)
;;CLEAR A TEMP. LOCATION
MOV
BR

CZRMQAO RMOS/3/2 DSKLS TST 2

SCOPE HANDLER ROUTINE

SEQ 0116
152646

mMovB

BEQ
CMP
BLT

000024

001116

MOV

026532
001122

ASL
ADD
MOV

DEC

8%:
2%:

001117

TST
TST8B

ASWR, (SP)

#24,(SP)

8%
(SP) ,$TSTNM
(SP)

(SP)
#$SWOBTB
, (SP)
L
@(SP)+,SLPADR
$OVER
(SP)+
$ERFLG

001131

001117

gERMAX,SERFLG

001000

152566

007124

001122

#81T709,3SWR
43
$LPERR, $LPADR
$OVER
$ERFLG
$TIMES

001117
001206
004000

152534

7%:

MOV

A ¥

CLRB

3s:

BIT

001230
001120
001206
000001
026530
001116
001116
001122
001124
001210
000001
001116
001122

001120

001120
001206
001226

001131
152434

1%:

MOV

$SVLAD:

$OVER:
RT1

SMXCNT: 20.
$SWO8TBL
:
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD

1%
#8I1T11,aSWR
1%
$PASS
18
$ICNT
S$TIMES ,$ICNT
$OVER
#1,8ICNT
SMXCNT ,$TIMES
$TSTNM
S$TSTNM, STESTN
(SP) ,$LPADR
(SP) ,$LPERR
$ESCAPE
#1,SERMAX
$TSTNM,aDISPLAY
SLPADR, (SP)

;;PICKUP THE DESIRED TEST NUMBER
s cBRANCH IF BAD TEST NUMBEK [N SWR
..CHECK THE NUMBER IN THE SWR

sBRANCH IF TEST NUMBER IS OUT OF RANGE

:SUPDATE THE TEST NUMBER
; ;BACKUP BY ONE
;s SCALE THE TEST NUMBER AS AN INDEX
s;FORM THE ADDRESS OF

2;SET LOOP ADDRESS TO DESIRED TEST
;.60 LOOP ON THE TEST
;;CLEAN THE BAD TEST NUMBER OFF OF THE STACK
;sHAS AN ERROR OCCURRED?
;;BR IF NO
::MAX ERRORS FOR THIS TEST OCCURRED?
;BR IF NO

..LOOP ON ERROR?
:BR_IF NO

:3SET LOOP ADDRESS TO LAST SCOPE

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

: 3 INCREMENT ITERATION COUNT
..CHECK THE NUMBER OF ITERATIONS MADE
BR IF MORE ITERATION REQUIRED

:IREINITIALIZE THE ITERATION COUNTER
;. SET NUMBER OF ITERATIONS TC DO
;sCOUNT TEST NUMBERS
;o SET _TEST NUMBER IN APT MAILBOX
:;SAVE SCOPE LOOP ADDRESS
;;SAVE ERROR LOOP ADDRESS
;;CLFAR THE ESCAPE FROM ERROR ADDRESS
s;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
;-FUDGE RETURN ADDRESS
..FIXES PS
. NUMBER OF

TST1+42
TST2+2

TST3+2
TST4+2
TSTS5+2
TST6+2
TST7+2
TST10+2
TST11+2
TST12+42
TST13+42
TST14+42
TST15+2
TST16+2
TST17+2

TEST POINTER

ITERATIONS

;. STARTING ADDRESS OF
:;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;:STARTING ADDRESS OF
;;STARTING ADDRESS OF
:;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;;STARTING ADDRESS OF
;s STARTING ADDRESS OF
;STARTING ADDRESS OF
;;STARTING ADDRESS OF
s STARTING ADDRESS OF
;STARTING ADDRESS OF
s STARTING ADDRESS OF
;;STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

NN —

117716

001414

M9
11-APR-B0 14:12:35 PAGE 23-6

—d d d d d b i b Y ON AN S
NOWNS
W —=O

026302
026306
026310
026314

MACRO v03.01

CZRMQAO RMOS/3/2 DSKLS TST 2

SCOPE HANDLER ROUTINE

026570
026572
026574
026576

. 026600

MACRO v03.01

014000
014472
015460
016726
020116

N9
11-APR-80 14:12:35 PAGE 23-7
.WORD
.WORD
.WORD
.WORD

.SBTTL
R

TST20+2
TST21+2
TST22+2
TST23+2

;o STARTING ADDRESS
;;STARTING ADDRESS
; ;STARTING ADDRESS
:;STARTING ADDRESS
;:STARTING ADDRESS

TST24+2
. WORD
ERROR HANDLER ROUTINE

2220222000 02

0000000

SEQ 0117

OF
OF
OF
OF
OF

T.ST
TEST
TEST
TEST
TEST

i0dddistii it

20
21
22
23
24
sl

]

*THIS ROUTINE WILL INCREMENT THE ERROR FLAS AND THE ERROR COUNT,
:*SAVE.THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

:*AND GO TO ERRTYP ON ERROR
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW15=1
s *SW13=1
> *SW10=1
;*SW09=1
s*CALL
o*

104410

001117

104401

021566
001217

122737

000001

001242

001130
030644

026722

001116
002000

001212
001126
001132
000002
152254
020000

7%:

001000

022737
001001
000000

ERROR

INCB

$ERFLG
::SET THE ERROR FLAG
7%
;:DON'T LET THE FLAG GO TO ZERO
STSTNM,aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

152336
152326

; sERROR=EMT AND N=ERROR ITEM NUMBER

152266

001210
000042

#BI1T10,aSWR

;:BELL ON ERROR?

JSBELL

..RING BELL

;s COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION

PC,ERRTYP

2:G0 TO USER ERROR ROUTINE

LSCRLF

20%:

.BYTE

22%:

TST

;:STRIP AND SAVE THE ERROR ITEM CODE
JoSKIP TYPEOUT IF SET

::SKIP TYPEOUTS

#APTENV, $ENV

;2RUNNING IN APT MODE

$ITEMB,21$
SC,SATY4

:;SET ITEM NUMBER AS ERROR NUMBER
:sREPORT FATAL ERROR TO APT

pd 3

21s:

:NO - SKIP

SERTTL
(SP) ,$ERRPC
#2,3ERRP(
A8ERRPC,SITEMB
#BIT13,aSWR

208

2%:

001124
001210

021546

INC

001132
001130

152206

;:TEST FOR CHANGE IN SOFT-SWR

1%:

152222

026774
026776

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

$ERROR:

105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737

001402
013716

HALT ON ERROR

0
22%
aSWR
3s

;:NO,SKIP APT ERROR REPORT

:;APT ERROR LOOP

;sHALT ON ERROR
;:SKIP IF CONTINUE

;sHALT ON ERROR!
;s TEST FOR CHANGE IN SOFT-SWR

3%:

BIT

zg1709,GSUR

TST

$LPERR, (SP)
$ESCAPE
5%

;;FUDGE RETURN FOR LOOPING
::CHECK FOR AN ESCAPE ADDRESS
;BR IF NONE

HSENDAD , o642
6%

;;ACT=11 AUTO-ACCEPT?
;J:BRANCH IF NO
2:YES

BEQ

5%:
HALT

$ESCAPE, (SP)

;:LOO?FonERROR SWITCH SET?

..FJDGE RETURN ADDRESS FOR ESCAPE

CZRMQAD RMOS/3/2 DSKLS TST 2
ERROR HANDLER ROUT INE

027000
8 027000

MACRO v03.01

6%:

000002

LSBTTL
. AR

027002
027004
027006
027010

6 10

11-APR~80 14:12:35 PAGE 23-8

RT]
TTY
AN

INPUT ROUTINE

0270M

. JRETURN

AR AANRAIAANNIN AN TN CRANRNRANANANANAANNANNL
O AN AN AN
R

.ENABL
LS8
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TrQSRT: .BLKB
$TKQEND=.

000000
000000
000000

SEQ 0118

0
0
0

. ;NUMBER OF [TEMS
;s INPUT POINTER
;:0UTPUT POINTER

;s TTY KEYBOAKD QUEUE

;*TK INITIALIZE ROUTINE
;*THIS ROUTINE WILL

N QUEUE

INITIALIZE

THE

TTY KEYBOARD

INPUT QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

SwCALL:
*
N

027012
027016
027024
027032
027040
027046
027052
027060

005037
012737

013737
012737
012737
005777
012777

027002
027010

027004
027006
000060
000062

JSR

RE TURN

$TKINT: CLR

STKCNT
.sCLEAR COUNT OF ITEMS IN QUEUE
#$TKQSRT ,$TKQIN ; MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.

N#$TKSRV ,@#TKVEC

;;INITIALIZE

THE KEYBOARD VECTOR

#200,4TKVEC+2

;;'BR'’' LEVEL 4

:;RETURN TO CALLER

as$TkB
#100,387TKS

152100

000207

PC.STKINT

;. CLEAR DONE FLAG
:.ENABLE TTY KEYBOARD INTERRUPT

:*TK SERVICE ROUTINE
s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*8Y READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;*]T IN THE QUEUE.
;*1F THE CHARACTER IS A ''CONTROL=C'' (“C) STKINT IS CALLED AND
s*UPON RETURN EXIT IS MADE TO THE '‘CONTROL-C'' RESTART ADDRESS (SHUT)
117746

$TKSRV: MOVB

152074
177600

BIC

000003

18
LSCNTLC

030176
027012

PC,STKINT
(SP) +

023362

000007

027124
027132

027134
027134
027142
027144
027150
027152
027154

022737
001004
104401

005726
000451
021627

1%:

000176

0071154

000001

027002

SHUT

2%:

$IINIT THE KEYBOARD
“:CLEAN UP STACK

(~C)

**CONTROL C RESTART

1:GO TO SWR CHANGE

#1,$TKCNT

S:BRANCH IF NO
S:TYPE A CONTROL-C

$:IS IT A CONTROL G?
J:BRANCH IF NO

23 1S SOFT-SWR SELECTED?

;:1S THE QUEUE FULL?

;;BRANCH ]F NO

§§P)o

;;CLE?N CHARACTER OFF

LSBELL

::PICKUP THE CHARACTER

S:STRIP THE JUNK
$:IS IT A CONTROL C?

(SP) A7
23

#SWREG, SWR

001212
000023

3$TKB, - (SP)

#AC177,(SP)
(SP) 4%

(SP) 425

SRING THE TTY BELL

ooEx
¢o 1S

IT A CONTROL-S?

STACK

CZRMQAQ RMOS/3/2 DSKLS ST 2

TTY

INPUT

ROUTINE

027160
027°62
027166
027170
027174
027176

027254
027260
027266
027270
027276

001021
005077
005726
105777
100375
117746
042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677

005237
023727
001003
012737
000002

MACRO v03.01

€10
11-APR-80 14:12:35 PAGE 23-9
SEQ 0119

BNE

151772

151764

31$:

151760
177600
000021
000100

328

000175

000040

177530

48:

027004
027004

027011

027010

027004

1:CLEAN CHAR OFF

as$TKS
31s

a$TkB,-(SP)

X C177,(SP)

*:DISABLE

TTY KEYBOARD INTERRUPTS
STACK

S:WAIT FOR A CHAR
:;LOOP UNTIL ITS THERE
$:GET THE CHARACTER

SIMAKE IT 7-BIT ASCII

CMP
BNE
MOV

(SP)+, 421
318
#100,a8TKS

$:IS IT A CONTROL-Q?
“:BRANCH IF NO
::REENABLE TTY KEYBOARD INTERRUPTS

INC

$TKCNT

$:COUNT THIS CHARACTER

RT]

P
BLT

cMP
BGT
BIC

(SP) .M175
4
#40, (SP)

INC

$TKQIN

S SUPDATE THE POINTER

MOVB

BNE
MOV
RTI

(SP) ,#140
4

JRETURN

::IS IT UPPER CASE?
*:BRANCH IF YES
$:1S IT A SPECIAL CHAR?
::BRANCH IF YES
SIMAKE IT UPPER CASE

(SP)+

1STB
8PL

BIC

027002
000140

J:BRANCH IF NO

asTKS

MOVB

151724

328

CLR

(SP)+,@8TKQIN

::AND PUT

IN QUEUE

$TKQIN,#$TKQEND ::GO OFF THE END?

S$
S*BRANCH IF NO
#$TKQSRT,$TKQIN ;:RESET THE POINTER
S sRETURN

'-:itttttttt'.tttfititt.'tt'ittti'Qt'fitt.tt'ttt'tttt.tttttQtt.t"'t

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED
FROM THE TRAP HANDLER. AND WILL
;~SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP

027300
027306
027310
027314
027316
027322
027326
027332

022737
001124
105777
100121

117746
042716
021627
001300

000176

001154

;*CALL WHEN OPERATING IN TTY

$CKSWR:

151644

CMP

#SWREG, SWR

ISTB

a$TKS

BNE

B8PL

151640
177600
000007

MOVB

8IC
P
BNE

158

15%

a$TKB,-(SP)

# C177,(SP)
(SP) .47
2s

INTERRUPT MODE.

;:1S THE SOFT-SWR SELECTED

SEXIT IF NOT

::IS A CHAR WAITING?

;o
1F NOT, EXIT

SIYES

SIMAKE IT 7-8BIT ASCII
$:IS IT A CONTROL-G?

S:1F NOT, PUT IT IN THE TTY QUEUE

SIAND EXIT

;;'tQQttt'tt'ttttttttttttttt'ttt'tt'tt'ttttttttttttttt'.tt'tttttt

027334
027342
027344
027346
027352
027356

027364
027370
027374
027400
027402
027406
027410

123727

112737
104401

104401

013746

001150

027012
151602
000001

030210
030215
000176

030226

000001

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
:*ROUTINE OR FROM THE SOF TWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A
;*CONTROL~G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
68:
CMPB
SAUTOB,#1
::ARE WE RUNNING IN AUTO-MODE?
BEQ
ST
JSR
CLR

001151

MOVB
$GTSWR:

198 :

TYPE

TYPE
MOV

TYPOC
TYPE

CLR
(LR

S:BRANCH IF YES

#1,$INTAG

::SET INTERRUPT MODE INDICATOR

(SP) +
PC.STKINT
asTks
,$CNTLG

CSMSWR
SWREG, - (SP)
, SMNEW

2(SP)
-(SP)

::CLEAR CONTPOL-G OFF STACK
SIFLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS

;;ECHO THE

CONTROL-G

(“G)

::TYPE CURRENT CONTENTS
*:SAVE SWREG FOR TYPEOUT

::GO TYPE=--OCTAL ASCII(ALL
::PROMPT FOR NEW SWR

::CLEAR COUNTER
P:THE NEW SWR

DIGITS)

—

CZRMQAQ RMOS/3/2 DSKLS TST 2

TTY

INPUT ROUTINE

027412
027416

105777
100375

151542

027420
027424

117746
042716

027430
027434
027436

021627
001015

027442
027446
027454
027456
027464

027510

021627
001022
005766
001403
016677
062706
104401
123727
001003

027514

027516
027522
027524
027532
027536
027542

104401

062706
000737

7%:

;s CHAR THERE?
IF NOT TRY AGAIN
;s

151536
177600

MOvBe
BIC

#AC177,(SP)

a$TKB,~(SP)

;.PICK UP (CHAR
J:MAKE 1T 7-BIT ASCII

000003

cMP
BNE

(SP) 43
9%

;IS IT A CONTROL=-C?
;+BRANCH IF NOT
s:YES, ECHO CONTROL-C (*~C»
;. CLEAN UP STA(CK
. ;REENABLE TTY KEYBOARD INTERRUPTS?

030176

000001
151474

000025

8%:
9%:

030203
000006

20%:

8PL

TYPE
ADD
M8
BNE
MOV
JMP

cMp
BNE

TYPE

LSCNTLC

#6,SP
$INTAG.”
8s

#100,38TKS

;:BRANCH IF NO
JoALLOW TTY KEYBOARD INTERRUPTS
;o CONTROL-C RESTART

(SP) 425
108

..IS IT A CONTROL-U?

SHUT

000001

012777

000100

151400

004737
021627

026076
000060

2(SP) ,aSWwR

#6,SP

,SCRLF
$INTAG, #1
158
#100,387TKS
PC,STYPEC
(SP) ,#60
18%
(SP) 467
18%
#60, (SP) +

000067

000060
000002

2(SP)
17%

(SP)

000002
177776

17%:

001216

18%:
.DSABL

JYES,

ECHO CONTROL-U

(*U)

J0IS IT A <CR>?
;¢BRANCH IF NO
J:YES, IS IT THE FIRST (HAR?

151422

001217

: ;BRANCH [F NOT

::IGNORE PREVIOUS INPUT
J;LET'S TRY IT AGAIN

10%:

001151

000002

SEQ 0120

000100
023362
021627
001005

D 10
11-APR~80 14:12:35 PAGE 23-10
1STB

000006
001151

027470
027474
027476
027502
027506

MACRO v03.01

BIS
B8R

TYPE

BR
LS8

(SP)
(SP)
2(SP)

=2(SP), (SP)
73

. SQUES
208

;;BRANCH IF YES
. :SAVE NEW SWR
. :CLEAR UP STACK
;sECHO <CR> AND <LF>
;cRE~ENABLE TTY KBD INTERRUPTS?
;:BRANCH IF NOT
;cRE-ENABLE TTY KBD INTERRUPTS
s cRETURN
:cECHO CHAR
JsCHAR < 07
;:BRANCH ]F YES

JiCHAR > 77

. :BRANCH IF YES
J:STRIP=-0OFF ASCII
;2 1S THIS THE FIRST CHAR
; :BRANCH IF YES
s2NO, SHIFT PRESENT
i
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
KEEP COUNT OF CHAR
;SET IN NEW CHAR

;:GET THE NEXT ONE
;2TYPE

2<CRO<SLF>

;:SIMULATE CONTROL-U

.'.'"ttt'.'.tt't"tt'ttt.'"t.ttt"ittt'ttfi"tit'tQtttt'!'tt'i.tt!

;*THIS ROUTINE WILL

JeCALL:
M

RDCHR

INPUT A SINGLE CHARACTER FROM THE TTY

;:GET A CHARA(CTER FROM THE QUEUE

(ZRMQAO RMOS/3/2 DSKLS TST 2

TTY

INPUT ROUTINE

MACRO v03.01

E
11-APR~80 14:12:35 PAGE <3-11

;s CHARACTER |

RETURN HtKt

;:WITH PARITY BIT

* W

027642
027644
027652
027656
027660
027664
027666
027666
027672
027674
027700
027706
027712
027720
027722
027730

000004
000004

000002

$RDCHR:

027666
648:

027002

A ¥

000004

027011
027010

027006

2$:
S

MOV
MOV
CLR
CLR
MOV

(SP),~-(SP)
4(SP) ,2(SP)
4 (SP)
-(SP)
#6483 ,-(SP)

TST
BEQ
DEC
MOVB
INC
cMP
BNE

STKCNT
18
STKCNT
a$TKQCUT,4 (SP)
$TKQOUT

RTI

. %

027732
027734
027736
027742
027746
027750
027752
027754
027760
027762
027764

SRDLIN:

1%:

030166
030176

2%:

000177

000134
030164

10%:

030164

177777

#STTYIN,R3

BLOS

030166

030164
030164

005016
122713
001003

000025

104401

030203

122713

000022

000726

030164
7%:

(SP)+,(R3)

#177,(R3)

TST

(SP)

BNE

BNE
MOVB

63
#'\, 0%

MOV

#-1,(SP)

DEC
P
8LO
MOVB

.9%

R3
R3,#STTYIN
43
(R3).,9%
9

B8R

MOvVB

#'\,9%

TST
BEQ

;;WAIT ON A CHARA(CTER
: ;DECREMENT THE COUNTER
..GET JNE CHARA(TER
JUPDATE THE POINTER

(SP)
78

TTY

;s INPUT A STRING FROM THE TTY
¢ ;ADDRESS OF F]RST (HARACTER WILL BE gN THE STACK
;. TERMINATOR WILL BE A BYTE OF ALL O°

;:SAVE R3

c+CLEAR THE RUBOUT KEY
;:GET ADDRESS
;JeBUFFER FULL?
:;BR IF

YES

. 2G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
J:1S 1T A RUBOUT
:;:BR IF NO

;o 1S THIS THE FIRST RUBOUT?
;:BR IF NO
;s TYPE A BACK SLASH

;:SET THE RUBOUT KEY
. ;BACKUP BY ONE
;:STACK EMPTY?
.:BR IF YES
;:SETUP TO TYPEOUT THE DELETED (HAR.
;.60 TYPE
;GO READ ANOTHER CHAR.
;:RUBOUT KEY SET?
;BR [F NO

..TYPE A BACK SLASH

TYPE
CLR
(MPB
BNE

.9
(SP)
#25, (R3)
8%

;. CLEAR THE RUBOUT KEY
..IS CHARACTER A CTRL U?

BR
(MPB

1%
#22,(R3)

;G0 START OVER
;. 1S CHARACTER A “*“R'%?

TYPE

8%:

#STTYIN+8..R3

(MP8

TYPE

5%:

000134
030164

MOVB

TYPE

6$:

R3,=(SP)
-(SP)

MOV

RDCHR

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

A STRING FROM THE

RETURN HERE

(Mp

;:GET
;sPUT
csPUT
;.POP

AT RN AR NANAANRARARNRARAARRANRARRA
AN RN AN

INPUT

RDL IN
MOV
CLR

;sPUSH DOWN THE PC AND

;2 THE

; ;BRANCH IF NO
#STKQSRT,$TKQOUT : ;RESET THE POINTER
< sRETURN

'E:if ROUTINE WILL

£ ST\

STRIPFED OFF

ggKQOUTLW#STKQEND” ,.DID IT GO OFF OF THE END?

RN NN AN AR AR N A A AN

> %

SEQ 0121

LJOCNTLU

:.BR IF NO
::TYPE A CONTROL 'U'°

CZRMQAQ RMOS/3/2 D3KLS TST 2
INPUT ROUTINE

001011
105013
104401
104401

F 10
11-APR-80 14:12:35 PAGE 23-12

SEQ 0122

001216

A
Y

030164
030164
000015

3%:

177777
001220

000004
030166

;:BRANCH IF NO

TYPE
TYPE

L$CRLF
$TTYIN

SITYPE A 'CR' R LF'
;:TYPE THE INPUT STRING

—= =000
—AN—D—J—I
[0 JVNLV,
]V, IV, ]

;:CLEAR THE (HARACTER

*:GO PICKUP ANOTHER CHACTER

BR
MOVB

is
(R3),9%

;:CLEAR THE BUFFER AND LOOP
::ECHO THE CHARACTER

(MPB
BNE
CLRB

#15,(R3)+
28
=1(R3)

MOV

(SP)+,R3

TYPE

MOV
MOV
MOV

000002
000004

(R3)

TYPE
TST

9%:

030176
030203
030210
030215
030226

BNE

CLRB

001217
030166

QOO
=22
H 2000
OMN NN

TTY

MACRO v03.01

RT1]
BYTE

.BYTE
.BLKB
LASCIZ

$TTYIN:
$CNTLC:
$CNTLU: LASCIZ
S$CNTLG: ASCIZ
SMSWR:
ASCIZ
SMNEW:
LASCIZ
.EVEN
.SBTTL
READ AN

.SQUES

.98

J:TYPE A

;:CHECK FOR RETURN
;:LOOP IF NOT RETURN
::CLEAR RETURN (THE 15)

,SLF
(SP)+

::TYPE A LINE FEED
::CLEAN RUBQUT KEY FROM THE

(SP) ,~(SP)
4(SP),2(SP)
#STTYIN,&(SP)

:;ADJUST THE STACK AND PUT ADDRESS OF
02
FIRST ASCII CHARACTER ON IT

0
8.
72C/7<155<12>

/72U/7<155<12>
/72G/<15><12>
<155<12>/SWR =
/

s RESTORE R3

2 JRETURN
::STORAGE FOR ASCII CHAR,

: :TERMINATOR
:;RESERVE 8 BYTES FOR TTY
::CONTROL 'C*

STACK

THE

TO TYPE
INPUT

:2CONTROL 'V’
;3CONTROL ‘%G’

NEW =

OCTAL NUMBER FROM THE

TTY

:;"tt"fifi."ttQtfi'.tl""""tfittfit.'ttt'ttt'tlttfi'ttt'ttttttttt

;*THIS ROUTINE WILL READ AN OCTAL
*CHANGE IT TO BINARY.

s*CALL:
° %

[

000004

000002

$RDOCT: | 1Y)

MOV

1%:

2%:

177770

RDOCT
RETURN HERE

MOV
MOV
RDLIN
MOV
(LR
CLR
MOVB
BEQ

ASL
ROL
ASL
ROL
ASL
ROL

BIC

ADD

(ASCII) NUMBER FROM THE

;sREAD AN OCTAL NUMBER
c:LOW ORDER BITS ARE ON

TTY AND

TOP OF

;;HIGH ORDER BITS ARE IN SHIOCT

(SP) ,~(SP)
4(SP) ,2(SP)

s sPROVIDE SPACE FOR THE
;s INPUT NUMBER

R1,-(SP)
R2.-(SP)

;:PUSH R1 ON STACK
;+PUSH P2 ON STA(CK
J2READ AN ASCIZ LINE
;sGET ADDRESS OF 1ST CHARACTER
;. CLEAR DATA WORD

RO,~-(SP)

(SP)+ R0
R1
R2
(RO)+,-(SP)
3%

R1
R2
R1
R2
R1
R2

#*C7,(SP)
(SP)+ ,R1

JePUSH RO ON STACK

;sPICKUP THIS CHARACTER
;.
1F ZERO GET oOuUT

J1%

J1*8

;:STRIP THE ASCI I
¢;ADD

JUNK

IN THIS DIGIT

THE

STA(CK

C/RMQAO RMOS/3/2 DSKLS TST 2

READ

AN OCTAL

NUMBER

030314
030316
030320

FROM

000764
005726
010166
010237
012602
012601
012600
000002
000000

THE

MACRO v03.01

TTY

3%:

000012
030340

G 10

11-APR-80 14:12:35 PAGE 23-13

BR
TST

2%
(SP)
+

MOV

$HIOCT:
.SBTTL

R1,12(SP)

.. LOOP
csCLEAN TERMINATOR FROM STACK
;sSAVE THE RESULT

(SP)+,R?
(SP)+ ,R1

;.POP STACK
;:POP STACK

MOV

R2,$HIOCT

MOV

(SP)+,R0O

MoV
MOV
RTI

INTO R?
INTO R1

;:POP STACK INTO RO
:sRETUFN

.WORD
0
TRAP DECODER

MR AR AR AR RN A AR

SEQ 0123

s sHIGH ORDER BITS GO HERE

A AR

A AN AR ARN AN ARAN

s*THIS ROUTINE WILL PICKUP THE

A ANRARNRR

LOWER BYTE

THE

‘‘TRAP'® INSTRUCTION

J*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
016646
0427715
012746

030366

000002
000020
030360

010046
016600
005740

000002

006300
016000
000200

030414

$TRAP:

1%:

000002

THE STATUS OF

RTI]
MOV
MOV

RO,=-(SP)

;:SET THE NEW STATUS
;:SAVE RO

#S8,-(SP)

IS USE

TO HANDLE

THE

(SP) ,=(SP)
4(SP) ,2(SP)

THE CALLER--DO NOT ALLOW

;e T=BIT TRAPS

2(SP) ,RO
-(RO)
(RO) ,RO
RO
$TRPAD (RO) ,RO
RO

$TRAP?2: MOV
MOV
RT1I
.SBTTL

;¢cASSUME

#20, (SP)

TST
MOVB
ASL
MOV
RTS

:;THIS

000004

2(SP) ,-(SP)

B'C

MOV

111000

011646
016666
000002

MOV

:sGET TRAP ADDRESS
. :BACKUP BY 2
;2GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;s INDEX TO TABLE
;:G0 TO ROUTINE

''GETPRI'' MACRO

:;MOVE THE PC DOWN
:;MOVE THE PSW DOWN
;sRESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

:+BY THE "‘TRAP'' INSTRUCTION.
:

30402

THE ROUTINES CALLED

ROUT INE

$TRPAD: .WORD

$TRAP2

025136

$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS
STYPBN

;.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 ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

027370

$GTSWR

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

027300
027642
027732
030240

$CKSWR
$RDCHR
SROLIN
$RDOCT

;;CALL=CKSWR
::CALL=RDCHR
::CALL=RDLIN
::CALL=RDOCT

TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

CZRMQAO RMOS/3/2 DSKLS TST 2
TABLE

H 10
11-APR-80 14:12:35 PAGE 23-14

025042

025100

012737
012737
010046
010146
010246
010346
10446
010546

00002¢
000026

012737
013706
005037

TRAP+14 ((104414) SAVE RO-R5 ROUTINE
TRAP+15(1
(104415) RESTORE RO-R5 ROUTINE
POWER DOWN AND UP ROUTINES
R AR AR AR AR AN AR AN

150450

030614
030522

030610
030614
030614
030614

000024

A AAN AN

#SILLUP,#PWRVEC

#3640, a¥PWRVEC+2
RO,-{(SP)
R1.=(SP)
R2,~(SP)
R3,-(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#SPWRUP ,a#PWRVEC

.=l

HALT

R4 ,-(SP)

R5,-(SP)
aSWR,
= (SP)
SP,$SAVR6

MOV
MOV

CLR
INC
BNE
MOV

1%:

000024
000026

$SAVR6:
$SPOWER:

NWNN
NONOO

031072
031070

SATYl:
SATY3:

000001

031072

SATYS:
$SATY(:

&
NN

—b b
—
00

WO WW

norON
NN
N =IO
NS
-

007001
000001

ON STACK

ON STACK
ON STACK

;.PUSH QSWR ON STA(CK
;s SAVE SP
;,SET UP VECTOR

: sHANG UP

$SAVRG, SP

WORD
::0F
;.POP STACK INTO aSWR
:sPOP STACK INTO RS

(SP)+ ,R3
(SP)+ R2
(SP)+ ,R1
(SP)+ RO

::POP STACK INTO
;.POP STACK INTO
s ;POP STACK INTO
::POP STACK INTO

(SP)+ R4

JWAIT LOOP FOR THE
;;UAIT FOR THE INC

TTY

; sPOP STACK INTO R4

R3
R2
R1
RO

. ;SET UP THE POWER DOWN VECTOR

LASCIZ

<15><12>'POWER'’

;s THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE
;.PUT THE SP HERE

.EVEN
APT COMMUNICATIONS ROUTINE

RN A AN A

MOvVB
MOvVB
BR
MOvB8

MOV
MOV

T1STB

001242

ON STACK
ON STACK
ON STACK

$SAVR6
$SAVR6
1%
(SP) +,aSWR
(SP)+ RS

N#SPWRDN ,3#PWRVEC

LSBTTL

000001

,,SET FOR FAST UP

; :PRIO:7
s «PUSH RO
s «PUSH R1
s «PUSH RZ
; :PUSH R3
; «PUSH R4
. +PUSH R5

#SILLUP, 3#PWRVEC ..SETSFOR FAST DOWN

$ILLUP:

031070

RN AN RS

#340,30PWRVEC+2 ; ;JPRIO:?7
JREPORT THE POWER FAILURE
$POUWER
;;POMER FAIL MESSAGE POINTER

SPWRMG:

120

RARANARARAAN RN

:POWER UP ROUTINE

$PWRUP:

MOV
MOV

012

N AN N AN

AR R R AR AN AN AR A A AR AR AN AANRAAANRARNANRTACRR
AN NN AR AR AR
AR

150402

030450
000340

A AN

;POWER DOWN ROUTINE

$PWRDN: MOV

SRR

Egc:—hd I o Y gy

030510
030516
030520

017746
010637
012737
000000
000775

030610
000340

SEQ 0124

$SAVREG ;. CALL=SAVREG
$SRESREG ;;CALL=RESREG

.SBTTL
AN

—

030444
030446

TRAP

MACRO v03.01

8EQ
(MP8

AR RN NN AR AR R AN R RN RAN RN NN N

RN AN RN R AR AN

RN NNNRR

#1,SFFLG
#1,SMFLG

::TO TYPE A MESSAGE

#1,$FFLG

;;TO ONLY REPORT FATAL ERROR

RO,-(SP)
R1,-(SP)
SMFLG

::PUSH RO ON STACK

SATY(

#APTENV, SENV

27O REPORT FATAL ERROR

PUSH R1 ON STACK
2 SHOULD TYPE A MESSAGE?
:1F NOT:
OPERATING UNDER APT?

CIRMQAO RMOS/3/2 DSKLS TST 2

APT

COMMUNICATIONS ROUTINE

030672
030674
030702
030704
030710
030716
030722

001031

132737
001425

017600
062766
005737
001375
010037
105720

001376

163700
006200
C10037
012737
000413

000004
000002
001222

000N04

001236

017637
062766
013746
004737

000004
000002

031002
000004

105737
001416
005737
001413
005737

031072

105037
105037

012601
012600
000207
000
000
000
000200
000001
000100
000040

BNE
BITB
BEQ
MOV

177776

025664

a4 (SP) RO

2%:

RO, $SMSGAD
(RO)
+

pé 3

3%:

12%:

SMFLG:
SLFLG:
$FFLG:
APTSIZE
APTENV
APTSPOOL
APT(CSUP

gg.SMSGTYPE
34 (SP) ,4$

;;PUT MSG ADDR IN JSR L INKAGE

177776,=(SP)

;:PUSH 177776 ON STACK

$FFLG
12%
SENV

;s SHOULD REPORT FATAL ERROR?
BR
;oIF NOT:
: ;RUNNING UNDER APT?

$MSGTYPE
118
a4 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,R0

;cFINISHED LAST MESSAGE?
WAIT
JoIF NOT:
;:GET ERROR #
;:8BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;.CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
. :POP STACK INTO R1
;:POP STACK INTO RO

12%

001224
000004

RTS

.BYTE
.BYTE
.BYTE
.EVEN

BR
SPOOL MESSAGES?
BR
;.1F NOT:
. .GET MESSAGE ADDR.
;:BUMP RETURN ADDR.
;oSEE IF DONE W/ LAST XMISSION?
WAIT
IF NOT:
;2
;.PUT ADDR IN MAILBOX
;.FIND END OF MESSAGE
1F NOT:
;.

;:SUB START OF MESSAGE
;;GET MESSAGE LNGTH IN WORDS
;sPUT LENGTH IN MAILBOX
;;TELL APT TO TAKE MSG.

gc.srvpe

11%:

SEQ 0125

$MSGAD
RO
RO
RO, SMSGLGT

#2,4(SP)

001242

000004
000002
001222
031072
031071
031070

n2,4(SP)
?QSGTYPE

(%
5¢%:
10%:

001222

#APTSP
,OOL
SENVM ;. SHOULD

1%:

001236
001222

001375
017637
062766
005237
105037

11-APR-80 14:12:35 PAGE 23-15

001243

001240
000004

000000

031052
u>1056
031062
031064
031066
031070
031071
031072

00010C

MACRO v03.01

. -BUMP RETURN ADDRESS

*:CALL TYPE MACRO

;.
IF NOT:

s JRETURN

;:MESSG. FLAG
;:L0G FLAG
. JFATAL FLAG

—

CZRMQAO RMOS/3/2 DSKLS TST 2

CONSOLE MESSAGES

MACRO v03.01

3 031074

075

000

S 031103
6 031107

040
054

077
040

4 03107

7 031112

8 031143
9 031143
10 031176

101

200

114

124

200
200
200

103
125
102

13 031311
16 031331
15 031365

126
040
102

105
114
122

17 031430

200

11 031201
12 031247

16 031377
18 031431
19 031516

20 031573
21 031574
22 031615
23 031631
24 031637
25 031657
26 031674
27
28
29

040

200
209

200
040
200
104
040
040
040

114

J 10
11-APR-80 14:12:35 PAGE 24

.SBTTL

CONSOLE MESSAGES

EQUALS:

.ASCIZ

QUES:
COMMA:

.ASCIZ
_ASCIZ

SEQ 0126

Q=3

114

ALL:

131

MSHELP:

110
123
125

(CNSLOO:
(CNSLO1:

.ASCIZ
.ASCIZ
.ASCIZ

(NSLO3:
CNSLO4:
CNSLOS5:

.ASCIZ
.ASCIZ
.ASCIZ

QVECTOR ADDRESS a
@ LIMITS - LO= 0, HI= 10008<CRLF><LF>
a@BR LEVEL @

CNSLO7:

.ASCII

<CRLF>

N40
000

111

103
111
040
111

124
101

131
116

077
104
122
111
116
116

111
122
111
123
117
117

UBUSQST:

CNSLO2:

CNSLO6:

CNSLO8:
CNSLO9:
MSDRVS:
MSGDRV:
LODEV:
NOTPRS:
NOTAVL:
.EVEN

.ASCIZ

@ALLA<CRLF>

.ASCIZ

<CRLF>QTYPE HELP TEXT

.ASCIZ

.ASCIZ
LASCI1
.ASCIZ

.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@ ? a
3, @

’

(Y/N)

? @

<CRLF>aCHANGE ADDRESSES (Y/N)
<CRLF>@USE SAME DEVICES (Y/N)
<CRLF>aBUS ADDRESS a

@ LIMITS - LO= 160000,

? a
? 3

HI= 17XXXXa<CRLF>

@ LIMITS - LO= 0, HI= 7a<CRLF><LF>

<CRLF>QTYPE ''A’* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>RAND TERMINATE INPUT WITH A CARRJAGE RETURN.a

<CRLF>
@ ?ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
/ 1S LOAD DEVICE/
/ NOT PRESENT/
/ NCT AVAILABLE/

—

CZRMQAO RMOS/3/2 DSKLS TST 2
TABLE

NN 2 OO0 00 NN NS WM =

FUNCTION CODE

K 10
11-APR-80 14:12:35 PAGE ?2 5

MACRO v03.01

.SBTTL

SEQ 0127

FUNCTION CODE TABLE

;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
;EACH FUNCTION CODE.
BIT USAGE IS AS FOLLOWS:
;
ATA = BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
:IF _ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,

:BIT 15 1S ZERO,

INOTE

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

;1T IS NOT EXPECTED AS A RESULT OF THE COMMAND.

i emd

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.

=y NN

OP] -~ BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
THAT COMMAND.

—

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

D el

IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF

WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF

:THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE'',

25
IF

THAT COMMAND.

'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
JCOMMAND.
THE ERRORS ENABLED BY THIS BIT ARE ‘‘TRE'', 'DLT'’, 'NEM",

JUMXF', "LBT'', AND "‘AOE’'.
H

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'',

"HCE'',

'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 THAT

;COMMAND.

57 031714

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.

;

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

;

BIT 01

.WORD

'DCK'’,

AND "ECH'".

IS NOT USED.

ILF - BIT 00 IS SET IF

FNCDTB:

020000

INCLUDE 'MDPE‘‘,

;

gg 031714

THESE ERRORS

THE FUNCTION CODE

IS ILLEGAL.

JFUNCTION CODE

OP]

;NOP

TABLE

CZRMQAO RMOS/3/2 DSKLS TST 2

FUNCTION CODE

58 031716
59 031720
60 031722
61 031724
62 031726
63 031730
64 031732
65 031734
66 031736
67 031740
68 031742
69 031744
70 031746
71 031750

72 031752

73
74
75
76
77
78
79

031754
031756
031760
031762
031764
031766
031770

80 031772
81 031774
82 031776
83 032000
84 032002
85 032004
86 032006
87 032010
88 032012
89

TABLE

MACRO v03.01
.WORD
.WORD
.WORD
.WORD
.WORD

L1 0

11-APR-80 14:12:35 PAGE 2 5-1
OPI!ATA!ILF!IVC

ATA!OPI!IVC!IAE
ATA!OPI!IVC
OPl

oPI!IVC
OPI!ATA!1V(C
OP]!ATA!IVC

OPl
OPI

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

ATA!OPI!IVC!IAE

OPI'ATA!ILF!IVC
OPI'ATA!ILF!IVC
OPI!ATA!ILF!1IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI'ATA!ILF!IVC
OPJ!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'!ACE
OPI!ATA!ILF!IVC
OPI'ATA!ILF!IVC
OPI!IVC!IAE!AOE
!HCE !ECH
OPI!1VC!IAE!AOE !'HCE'ECH

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

SEQ 0128
sILLEGAL FUNCTION (2)
; SEEK

*RECAL IBRATE

‘DRIVE CLEAR

sRELEASE

JOFFSET
;RETURN TO CENTERLINE
¢READ IN PRESET

sPACK ACKNOWL EDGE
s JILLEGAL FUNCTION (24)
s ILLEGAL FUNCTION (26)

;SEARCH
s ILLEGAL FUNCTION (32)
s ILLEGAL FUNCTION (34)
s JLLEGAL FUNCTION (36)
;ILLEGAL FUNCTION (40)
s ILLEGAL FUNCTION (42)
s ILLEGAL FUNCTION (44)
s ILLEGAL FUNCTION (46)
sWRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
sILLEGAL FUNCTION (54)
sILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATA

sILLEGAL FUNCTION (64)
sILLEGAL FUNCTION (66)
;READ DATA
;READ HEADER AND DATA

s ILLEGAL FUNCTION (74)

sILLEGAL FUNCTION (76)

o
o
—t

TABLE

.SBTTL

032014
032015
032016
032017
032020
032021
032022
032023

ATTENTION (ATA)

ATNTBL:

BYTE
.BYTE
.BYTE

(ATA)

M1 0
11-APR-80 14:12:35 PAGE 2 6

N =2 OO 00 NN

ATTENTION

MACRO v03.01

O WN—=00HN)—
PO o o

CZRMQAQ RMOS/3/2 DSKLS TST 2

.EVEN

.BYTE
.BYTE

128.

TABLE

SEQ 0129

CIRMQAO RMOS/3/2 DSKLS IST 2

b
ad wd
b
b v
d e
—d

CO NPV

WN=2O 000 NN

ERROR MESSAGE TABLE

N 10
MACRO v03.01 11-APR-80 14:12:35 PAGE 2 I4
.SBTTL

032024

0
0
032142

032146
032154
832170

046514

040126
046555

000000
046602
051336
046555

051336
046636
051336
046714
051336

046760

046714

046532
051772
046532

EMT1:
EMT2:

EMT3:

EMT21:

EMS71,EMS336,EMS340,
EMS72, EMS400,EMS372

EMTS:

EMT6:

EMT10:

EMT12:

EMT13:
EMT14:

EMT15:
EMT16:

EMT17:

EMT22:
EMT23:
EMT24:

EMT25:
EMT26:

50 032624
51 032634
52 032644
53 032650
54 032660
55 032664
56 032672
57 032676

EMT27:

051772

047506
051772
046514
051772
045145
051772
045145
051772

051460

051433
000000
051460

000000

€MS300,EMS1,0

cMS301.EMS302.EMS303,
EMST , EMS304
EMS511.EMSS00.EMS507
. EMSSH2,EMSS03.,0

EMT20:

EMT4:

EMT11:

49 032616

ERROR MESSAGE TABLE

EMS301
. EMS306 . EMS302
EMS511.EMS505
. EMS501, EMSS502,0
EMS300.EMS302.EMS307.
EMS2
EMS511.EMS502
. EMS501 . EMSS03.0
01
. EMS310.EMS311
EMS3
EMS511.EMS502.EMS501,EMS503,EMS504
EMS312.0
EMS307 . EMS306,EMS311
EMS511.EMS502.EMS501, EMSSC3,EMS504.0
EMS301 _EMS313.EMS302
EMSS11.EMS501
.EMS502, EMSS04 ,EMS503.0
EMS316 EMS317.EMS314
EMSS511.EMS501 .EMS502,0
EMS316_EMS317.EMS315
EMS511
. EMS501 .EMS502,0
EMS316_EMS320.EMS314
EMS511.EMS501 .EMS502,0
EMS316.EMS320.EMS315
EMSS511.EMS501 .£MS5>U2,0
EMS316_EMS321
. EMS314
EMS511.EMS501
. EMS502,0
EMS316.EMS321 EMS315
EMSS511.EMS501
. EMS502,0
EMS316.EMS322 EMS314
EMS511
. EMS501 .EMS502,0
EMS316_EMS322
. EMS315
EMS511 .EMS501 .EMS502,0
EMS71,EMS335,EMS340, EMS72,EMS377,EMS372

EMT7:

SEQ 0130

EMT30:

EMT31:
EMT32:
EMT33:

EMSS11,EMS505.0
EMSS11,EMS503.0

EMS73,EMS352,EMS74 ,EMS402, EMS70, EMS406

EMSS11,EMS503, EMSS504,0

EMS73,EMS352,EMS7S ,EMS402,EMS77
, EMS406

EMS511,EMS505. EMSS04,0

EMS73, EMS356 EMS75, EMS402,
EMS77 ,EMS377

EMS511.EMS505.EMS504,0

EMS73, EMS335,EMS340, EMS76,EMS411

EMSS11.EMS503.0

EMS301 . EMS306.EMS252,
EMS253 , EMS327 ,EMS254
EMS511.EMS503.EMS501
. EMS502
EMS330.EMS314.0
EMS337 EMS73,EMS410,EMS76,EMS411

EMS511.EMS505.0

EMS337.EMS100.EMS341,EMS101
EMSS511.EMS503
. EMS504 .0
EMS300.,EMS252
EMS511.EMSS01,EMSS03.,0
EMS100.EMS370
EMSS511.EMS504,0
EMS100.EMS412
EMS511.EMS504,0

—

CZRMQAQ RMOS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

58 032704
59 032710
20 032716

045261
051772
045261

62
63
64
65
66

045145
051772
045145
051000
051772

032730
032742
032750
032764
032772

050765
051433
047467
051433
047444
051460
047444
045367
051460
047467
051460
047467
050555
051460
050572
051433
045367
051460
050572
051433
046137
051336

MACRO v03.01

SEQ 0131
000000
000000

047522
000000

EMT34:

EMT3S:
EMT36:
EMT37:
EMT4LO:

047522
000000
047325
000000
051062
000000
047325
000000
051433

EMT4T
EMT42:
EMT4L3:
EMT44:

EMT4S:
EMT46:
EMT47:

EMTS50:

EMTST:
EMTS2:

EMTS3:
EMTS54:

EMT56:

(%,

051336
051100
000000

N
N

051336

FEn23383R3R5R58
8

—

d wmd

)

d el

EMTSS:

047533
000000
000000
047763
000000

033462

046514

040414

B 11

11-APR-80 14:12:35 PAGE 27-1

000000
047542
000000

EMTS7:

EMT60:
EMT61:

EMT6O2:

EMT63:
EMT64:

EMT6S:
EMT66:

EMT67:

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

.WORD
.WORD
.WORD

EMS102,EMS412
EMSS511,EMS503,0
EMS102.EMS336
EMS511,EMS503,0

EMS100, EMS335,EMS340, EMS102,EMS334

EMS511,EMS504,0
EMS100,EMS335 ,EMS340,EMS102,EMS377, EMS 365
EMS413,EMS104 ,EMS415
EMS511.EMS504.0

EMS100,EMS336. EMS340,EMS416,EMS104, EMS415

EMS511,EMS504,0
EMS100, EMS336.EMS340, EMS73,EMS415, EMS402
EMS102. EMS400
EMSS*1.EMSS04,0

EMS103.EMS401. EMS327,EMS370
EMSS11.cMS503.0

EMS&164.EMS104. EMS417
EMSS11.EMS504 .0
EMS105.EMS401 .EMS327,EMS370

EMSS511.EMSS03.0
EMS300.EMS253

EMSS511.EMSSOT,EMSS03.,0
EMS106.EMSL01. EMS417

EMSS11.EMSS03.0

EMS&
13 EMS107. EMS420,EMS417
EMSS11.EMSS04 .0
EMS110.EMS413.EMS405,EMS107
EMSS11.EMSS03.0
EMS343 EMS111. EMS421
EMS511.EMSS504.0
EMS4 14 ,EMSL16.EMS107,EMS421

EMSS11.EMS504.0
EMS331.EMS4L,cMS256

EMS511.EMSSO1.,0
sns112.sns413 ens4os EMS607

EMSS11.EMSS03.0
EMS113.EMS4L0T. EMS327,EMS370
EMSS5171.EMSS03.0
EMS114.EMSL0T EMS417
EMSS11.EMSS03.0

EMS257.EMS332

EMSS11.EMS506,EMSS01,0
EMS5, EMS333

EMS511,EMS507,EMSS01,0

EMS& 13 EMS115. EMS420 EMS417
EMSS17.EMSS504 .0

EMS346.EMS100.EMS341,EMS101

EMSS511.EMSS504 .0

EMS113.EMS371

EMSS511.EMS503,0

EMS413.EMS116.EMS353

EMSS517.EMS504 .0
EMS422.EMS353
EMSS11.EMS504,0

EMS12,EMS336,EMS342
EmMsS11,EMS501.0
EMS300.EMS6

CZRMQAQ RMOS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

115 033466
116 033472

051772
040460

051336
047420

MACRO v03.01

SEQ 0132

000000

117 033500
118 033510

046514
051772

040474
051336

047325
051460

120 033t ',

051772

051336

051363

122 033560

051772

051336

124
125
126
127
128

051772
047574
046514
051772
047665

051336
047610
040743
051433
040743

047506

119 033520

121 033544

123 033570

03
033610
033620
033626
033632

040414

046532

047444

047467

046361

047506
051772
046532
051772
041012
047665

EMT?3:

051363
047542
000000

EMT100:

051433

044440
051433
047016
051433
047402
041216

000000

051336

150 034064

041257

149 034054

051772

EMT111:

047533

EMT112:

047533

EMT113:

041323

EMT114:

046172

EMT115:

153 034120

051772

051336

000000

155 034136

051772

051433

051336

000000

154 034126

047506

041257

156 034146

047506

041257

158 034172

041257

047747

160 034214
161 034226
162 034232

046532
051772
041257

047016
051433
047402

157 034164

051772

159 034206 051772 051336 000000
000000

.WORD

.WORD
.WORD

EMS511.EMSSOS3,EMSS01,0

EMS20,EMS351,EMS21,EMS350,EMS22
. EMS315

EMS511.EMSS0%.EMSS01,0

.WORD

EMS511.€mMS501,0

.WORD

_WORD

.WORD

WORD

.WORD
.WORD
.WORD

166 0346270

051772

051433

051336

.WORD

168 034312

051772

170 034324

047665

041604

047533

167 034

EMS301.EMS313.EMS254 EMS347.EMS16
EMS511.EMS503
EMS17.EMS332.0
EMS346,EMS20 EMS341.EMS21

.WORD

EMT116: .WORD
.WORD
EMT117:

EMS337.EMS17,EMS341,EMS16

EMS511.EMSS03%,EMS501,0

EMS511.EMS501,0

047533
051336
047533

EMS511.EMS50%,EMSS01,0

.WORD

041447
051433
041447

EMS337.EMS70
EMS511.EMS503.0
EMS301.EMS313.EMS254 ,EMS347.EMS1S
EMS511.EMS503
EMS14,EMS332.0
EMS346,EMS17.EMS341,EMS16

EMSS11.EMS501,0

.WORD

047665
051772
047506

EMS301.EMS313.EMS254.EMS347.EMST3
EMS511.EMS503.0
EMS346.EMS14,EMS341.EMSIS

.WORD

163 034240
164 034250
165 034260

EMS337.EMS13.EMS345

EMS511.EMSS0%.EMSS501.0

047724

000000

047434

EMS511.EMSS0%.0

_WORD

.WORD
.WORD
.WORD

EMT110:

051336

041257

EMS307.EMS260.EMS303
EMS11

EMS511.EMS503.0

041323

051772

151 0310C

EMS6,EMS336,EMS340,EMS10,EMS334, EMS3642

.WORD

EMT107:

051336

152 034106

.WORD

000000
047533

051433

047731

.WORD

.WORD
.WORD
.WORD
.WORD

051336

047016
051433
047402
041257

EMS511.EMSSO01.EMS502.0
EMS343.EMS344
- EMS342.0
EMS300.EMS13
EMS511.EMSS03.0
EMS34& EMS13 EMS345

.WORD

EMT106:

051433

046532
051772
041216
047665

.WORD
.WORD
.WwORD
.WORD
.WORD

046172

051772

0364020
034032
034036
034064

EMSST1,EMSS1,EMS502,0

.WORD

144 034010

EMS6,EMS335,EMS340,EMS10,EMS333, EMS342

-WORD

EMT10S:

EMT103:

EMS300.EMS& EMS327 . EMS7
EMS511,EMSSO1,EMSS504,0

EMS511,EMs501,EMS502,0

.WORD

047533

051336

145
146
147
148

.WORD

EMS511,EMSS501
EMS7,EMS333.0

.WwORD

EMT104:

051433

041216

EMT102:

.WORD
.WORD

000000
047533

000000
046172

051772
047506

EMT101:

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
CWORD
.WORD

142 033770

143 034000

EMT74:
EMT?5:

046172
000000
047533

051433

033722
033726
033734
033746
033752
033760

046602

051363

047016
051433
041012

051772

136
137
138
139
140
141

EMT72:

EMT?7:

051433

135 033712

047522

047637

051772

046532
051772
047665

EMT71:

040743

131 033654

132 033662
133 033674
134 033702

047522

EMT76:

051772

130 033646

EMT70:

047637

129 033640

11-APR-80 14:12:35 PAGE 27-2

.WORD

EMS20,EMS334,EMS350,EMS22. EMS333

EMS337.EMS20,EMS341,EMS21

EMS337.EMS20,EMS341,EMS21,E
EMS22,
MS350,
EMS334

EMS20,EMS352,EMS21,EMS350,EMS2
EMS333
2,

EMSS11.EmS504.0

EMS301.EMS313.EMS254.EMS347,EMS2T
EMS511.EMS503
EMS20,EMS332.0

EMS346,EMS23 EMS341.EMS24
EMS511.EMSS03.EMS501,0

EMS337.EMS23.EMS341,EMS26

EMS511.EMSS0%.EMSS01.0

046532 047016 046172 EMT120: .WORD EMS3071.EMS313EMS347
.EMS254
., EMS26
051433
.WORD
EMS511.EMS503
169 034316 041447 047402 000000
.WORD
EMS23,EMS332.0
171 034334

051772

051433

051336

EMT121:

.WORD

EMS346,EMS25 EMS341.EMS26

EMS511.EMSS0%.EMSS01,0

—

CZRMQAQ RMOS/3/2 DSKLS TST 2

ERROR MESSAGE

172 034344

173 034356

TABLE

047506

051772

174 034364
175 034376
176 036402

046532
051772
041606

179 034426

047352

177 0346410
178 034420
180 034434

181 036440

182 034446
183 034456

184
185
186
187
188
189
190
191
192
193
194
195

046516
051772

041606

051433

EMT122:

.WORD

046172

EMT123:

.WORD
'WORD
.WORD

000000

041741

047763

041741
051433

051433

047506
051772

061741
051433

D 1N
11-APR-8C 14:12:35 PAGE 27-3

047533

051336

047016
051433
047402

051772
042005

MACRO v03.01

046636
000000

047076

000000
046172

047533
000000

.WORD

EMT124: .WwORD
.WORD
EMT125:

.WORD

.WORD
.WORD

EMT126: .WORD
.WORD

034464
034476
034502
034510
034516
034526
034534
034544
034556
034564
034576
034604

046532
051772
041741
042065
051772
042136
051772
050042
051772
050042
051772
047352

047016
051433
047402
050007
051460
050007
051460
042216
051460
042246
051460
040313

000000
046002
051433
046002
051433
046002
000000
046002
046233

EMT134:

-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
_WORD
.WORD
.WORD
.WORD
.WORD

197 034620

042275

050104

050126

EMT135:

.WORD

196 034612

198 034630

199 034636
200 034642
201 034650

202 034660

203
204
205
206

034666
034700
034706
034714

051772

051772
046412
051772
046514

051772

050040
051772
047665
051772

000000

051460

000000

051336

000000

050202
051433
042337

051336

042367
051460
042421
051460

000000
046636

000000

0466233
000000
047637
000000

207 034722
208 034732
209 034740
210 034746
211 034754

047506
051772
050223
051772
047506

042421
051460
046677
051336
042477

213 034776
214 035012
215 035020
216 035026
217 035036
218 035042
219 035050
220 035064
221 035072
222 035076
223 0351046

042477
051772
046532
051772
050266
051772
050311
051772
047506
051772
042627

050007
051336
046622
051336
042545
051433
047763
051433
042337
051336
050007

000000
042337

225 035120
226 035132
227 035140
228 035152

050311
051772
050311
051772

047763
051433
047763
051433

050261
000000
050261
000000

212 034770

226 035112

051772

051336

EMT127:

EMT130:

EMT131:
EMT132:

EMT133:

EMT136:

EMT137:
EMT140:

EMT141:

047533
000000
042477
000000
047533

EMT142:

050240
000000
042337
051433

EMT145:

000000

000000
050261
000000

000000

EMT143:

EMT144:

EMT146:

EMT147:

EMT150:
EMT151:

EMT152:
EMT153:

EMT154:

WORD

.WORD

.WORD
.WORD
.WORD

JWORD

.WORD
.WORD
.WORD
-WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
-WORD
.WORD
-WORD
.WORD
_WORD
.WORD
-WORD
.WORD
.WORD
.WORD

.WORD

.WORD
-WORD
.WORD
.WORD

EMS337,EMS25,EMS341,EMS26

EMS511.EMS503%,EMS501,0

EMS301.EMS313.EMS254 EMS347.EMS26
EMS511.EMSS503
EMS2S,EMS332.0

EMS300,EMS27 EMS307.EMS2
EMS511.EMS50%.0
EMSS31.EMS27.EMS353

EMSS511.EMSS03

EMS30,EMS315.0

EMS337,EMS27 . EMS341,EMS30
EMS511.EMS505%.0

EMS301.EMS313.EMS254.EMS347.EMS30
EMS511.EMS503
EMS27.EMS332.0
EMS31.EMS354 .EMS250
EMS511,EMS504,EMS503,0
EMS32,EMS354,EMS250
EMS511,EMS504,EMS503,0
EMS35S5.EMS33,EMS250,EMS341.EMS30
EMS511.EMS504,0
EMS355.EMS34,EMS250.EMS341,EMS30
EMS511.EMS504,0
EMS331.EMS&.EMS2SS

EMS511.EMSS504
.0

EMS35,EMS357.EMS360.EMS1S

EMS511.EMS501,0

EMS2A1.EMS362
EMS511.EMS503,0
EM. 500.EMS36,EMS307.EMS2

EMS511.EMS501,0

EMS355.EMS37,EMS255.EMS341,EMS30
EMS511.EMS504,0
EMS346..MS40,EMS345
EMS511.EMS504,0

EMS337.EMS40,EMS341,EMS30
EMS511.EMS504,0
EMS363.EMS310.EMS4]
EMS511.EMS501.0
EMS337.EMS4L1,EMS341,EMS252
. EMS327 . EMS253

EMS511.EMsS01,0

EMS41.EMS354,EMS364
. EMS252.EMS365 ., EMS253
EMSS11,EMS501.0
EMS301.EMS306
. EMS36
EMS511.EMS501.EMS503.0
EMS366.EMS42
EMS511.EMSS03.0
EMS367.EMS353.EMS365,EMS42,EMS354
. EMS3
EMS511.EMS503.0
EMS337.EMS36
EMS511.EMS501,0
EMS43, EMS354 . EMS36

EMSS11,EMS501.0

EMS367 EMS353 EMS365.EMS36.EMS370
EMS511.EMS503.0
EMS367.EMS353 EMS365.EMS36.EMS371
EMS511.EMS503°0

SEQ 0133

CZRMQAOQ RMOS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

229 035160
230 035170

046514

051772
050311
051772
046514

042700
051433

MACRO v03.01

046636

000000
050261
000000

046636

051772

050311

237 035260
238 035266
239 035276
2460 035304
241 035312
242 035322
243 035336
244 035344
245 035360
246 035366
247 035376
248 035402
249 035412
250 035422
251 035432
252 035444
253 035454
254 035460
255 035466
256 035474
257 035502
258 035510
259 035520
260 035534
261 035542
262 035556
263 035562
264 035570
265 035600
266 035606
267 035616
268 035624
269 035634
270 035642
271 035652
272 035660
273 035670
274 035676
275 035706
276 035714
277 035726

278 035736
279 035746
280 035756
281 035764
282 035776
283 036012
284 036016
285 036026

000000
047325

050425
046636
051433
047522
051433

000000

E N

11-APR-80 164:12:35 PAGE 27-4

EMT15S:

EMS300, EMS44 ,EMS307,EMS2

EMT156:

EMTIS57:

EMS367 ,EMS3S53,EMS365,EMS4L4
,EMS354 ,EMS3
EMS511.EMS503.0
EMS200. EMS4LS EMS307, EMS2

EMT160:

EMT161:

EMT162:

EMT163:

EMT164:

EMT165:

EMT166:

EMT167: .
EMT170:

EMT171:

EMT172:

EMT173:

EMT174:

EMT175:
EMT176:

EMT177:
EMT200:

EMT201:

EMi202:
EMT203:

£M5511.EMS503.0

EMS511.EMS50%.0

EMS367.EMS353.
EMS365, EMS4S, EMS354 EMS3
EMS511.EMSS503
. EMS501
EMS35,EMS333.0

EMS300, EMS46 EMS307,EMS?
EMS511.EMSS0%,0
EMS337.EMS4L6 L EMS3S3

EMS511.EMSS0S,EMS501,0

EMS3S,EMS33S, EMS337,EMS4 T, EMS334, EMS372
EMS511,EMS501,0
EMS47,EMS335,EMS337,EMS4T,
EMS33S, EMS372
EMSS11,EMS501,0
EMS337.EMS3S,EMS327
EMS47
EMS511.EMS501
EMS41,EMS333,EMS372.0

EMS300,EMS4L
7 EMS307 EMS2
EMSS11.EMS501,EMSS50%,0

EMS50, EMS33S, EMS340,EMS36, EMS333

EMS511,EMS501,EMSS03.,0
EMS337.EMS3S
EMS511.EMS501,0
EMSS0,EMS34, EMS3

EMsS11,EMSS01.0

EMS301 . EMS306.EMSS1
EMS511.EMSS501
. EMS504, 0
EMS367. EMS353 . EMS365. EMS4 7, EMS354 ,EMS3
EMS511.EMSS501.0
EMS300. EMS250.EMS327
. EMS255 ,EMS 327, EMS256
EMS341.EMS600
EMS511.EMSS01,0
EMS300.EMS256. EMS341, EMS600
EMS511.EMSS01.0
EMS300.EMS250.EMS341,
EMS600
EMS511.EMS504.0
EMS300. EMS255 . EMS341, EMS600
EMS511.EMSS04
.0
EMS337.EMS52,EMS341,EMS601
EMS511.EMS501,0
EMS346.EMSS2 , EMS341, EMS602

EMS511.EMS501,0

EMS346.EMSST,EMS341, EMS602

EMT204:

050007

SEQ 0134

EMT205:

050463

EMT206:

051336
040246

EMT207:

EMS511.EMS501,0

EMS346.EMSS52, EMS345,EMS373.EMS255
EMS511.EMS504, EMSSO1, 0
EMS346,EMSS52 EMS341 EMS27

EMSS11.EMS504 ,EMSSCT,0
EMS53,EMS354 EMS3

EMS511,EMS50%,EMS502,EMS510,0

EMS337.EMS54
,EMS374 ,EMS250,EMS327,EMS25S
EMS327 EMS3
EMSS11.EMS504 ,EMSSO1.0
EMS54,
EMS 354, EMS3

CZRMQAQ RMOS5/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

286 036034
287 036042

288 036052

051772
043360

051772

051336
050007

051460

289 036060
290 036070
291 036076
292 036102
293 036110
294 036126
295 036132

043360
051772
047506
051772
043513
051772
043513

297 036144
298 036152
299 036164
300 036172
301 036200
302 036206
303 036214
304 036222
305 036232

051772
043606
051772
050223
051772
050223
051772
044017
051772

051336
047420
051336
046622
051336
046622
051336
047420
051336

051772
044017
051772

051336
047420
051336

296 036140

306 036240

307 036250
308 036256
309 036266

047506

044017

050007
051460
043435
051460
047434
051336
047444

043513

047420

MACRO v03.01

000000
050240

000000

0502640
000000
000000
047637
000000

000000
047724
000000
040344
000000
0437644
000000
050514
000000

050530

000000
050530
000000

F1
11-APR-8B0 14:12:35 PAGE 27-5

EMT210:
EMT211:
EMT212:

EMT213:

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
"WORD
.WORD

EMT214: .WORD

.WORD
EMT215: .WORD
.WORD
EMT214: .WORD
.WORD
EMT217: .WORD
-WORD
EMT220: .WORD
"WORD

EMT221:

EMT222:

.WORD

.WORD
.WORD
.WORD

310 036274
311 036304
312 036312

047665
051772
047665

316 036332
315 036346
316 0363564
317 036364
318 036372
319 036402
320 036410
321 036420
322 036426
323 036434
326 036442

044100
051772
044100
051772
044100
051772
044100
051772
044100
051772
042477

047420
051336
0501046
051336
050064
051336
050064
051336
050064
051336
050544

326 036464
327 036476
328 036506

050311
051772
041135

047763
051433
050544

050261
051336
050425

EMT234:

046514

044210

046636

EMT235:

.WORD

332 036554
333 036570
334 0365764
335 036606

043513
044210
051772
046514

050544
050572
051363
046251

050530

EMT236:

051433
046636

EMT237:

.WORD
.WORD
.WORD
.WORD

337 036626

041057

050425

EMT240:

047522
000000
050607

EMT241:

313 036322

325 036456

329 036524

330 036534

331 036544

336 036616

338 036642

339 036652
340 03667C
3641 036676
342 036710

051772

044251
051772
050616
051772

044017
051336
044100

051336

051433
051363

047533
000000
050530

051433

047724
000000
042337
000000
050126
000000
050154
000000
042477
000000
047542

000000

051336

051433

051336

051433

051336

050555

047467
051433
052223
051433

EMT223:

EMT224:
EMT225:

EMT226:
EMT227:
EMT230:

EMT231:
EMT232:
EMT233:

EMT242:

.WORD
JWORD
.WORD

-WORD

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

EMSS511,EMS501,0
EMSS54,EMS354,EMS364
. EMS250

EMS511.EMS504.0

EMS54,EMS354,
EMS364 . EMS25S
EMS511,EMS504.0
EMS337.EMS55
EMS511.EMS504.0
EMS56,EMS334,EMS345,EMS373,EMS262
EMS327, EMS25,]
EMS511,EMS501
EMS56, EMS335,0

€MS337.EMS56

EMS511.EMS501.0
EMS57,EMS333,EMS350,EMS6
EMS334
0,
EMS511,EMS501,0
EMS363.EMS306
EMSS
EMS511.EMS501.0
EMS363.EMS306
EMS61
EMS511.EMS501.0
EMS62,EMS333,EMS375.EMS251
EMSS17,EMS501.0
EMS62,EMS333,EMS376.EMS262

EMSS11,EMS501.0
EMS62,EMS333,EMS376.EMS250
EMSS511,EMS501.0

EMS346.EMS62,EMS341.EMS603
EMS511.EMSS501.0
EMS346.EMS63,EMS376,EMS262

EMS511.EMSS07,EMS505,0

EMS63,EMS333,EMS350,EMS363,EMS310,EMS262
EMS511,EMS501,0
EMS63,EMS357,EMS36.EMS372
EMSS11,EMS501,0
EMS63.EMS356,EMS360.EMSTS
EMSS11,EMS501.0
EMS63,EMS356,EMS361.EMS1S
EMSS11,EMS507,0
EMS63.EMS35
EMS6T
6,
EMSS11,EMS501.,0
EMS41,EMS377,EMS342.
. EMS63,
EMS365
EMS332

.WORD

EMSS11,EMS501.0

.WORD

EMSS511,EMSS0%,EMS501.0

.WORD

EMS511.EMS502,EMS503.0

.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

EMS367.EMS353.EMS365.EMS
EMS401
63.
EMS511,EMS503.EMS501.0
EMS16,EMS377.EMS372,EMS365.
. EMS356
EMS64
. EMS3

EMS300.EMS65.EMS307 ., EMS2

EMSS56,EMS377,EMS376.EMS252,EMS372,EMS350
EMS65.EMS401
EMS511,EMS502,EMSS03,EMS501.0
EMS300.EMS66 . EMS307 . EMS2

EMS511,EMSS01,EMSS505.,0

EMS15,EMS400,EMS372,
EMS66
EMS350.
, EMSLDT

EMSS11,EMSS05,EMSS01.0

EMS66, EMS336 EMS340
EMS406
,EMS1S
. EMS4S , EMS606
,
EMSS11.E1 50%.0
EMS4L03.,EM3604.EMS402,EMS21,EMS377
EMS511,EMS503

SEQ 0135

CZRMQAO RMOS/3/2 DSKLS TST 2

ERROR MESSAGE TABLE

33 03671

042337
044251
051772
044100

051433
052223
051433
047444
0474602
051433
047467
051433
052250
051433
047444
047467
051433
050572
051433

356 037062
357 037070
358 037102
359 037106
360 037114
361 037132
362 037140
363 037150
364 037156
365 037166
366 037174
367 037206
368 037212
369 037220
370 037230
371 037236
372 037254

373 037262
374 037274
375 037300
376 037306
377 037324
378 037332
379 037342
380 037350
381 037360
382 037366
383 037400
384 037404
385 037412
386 037422
387 037430
388 037440
389 037446
390 037454
391 037462
392 037500
293 037506
394 037520
395 037524
396 037532
397 037542
398 037550
399 037560

067644
047467
051433
050572
051433
050361

050361
051433
052250
057433
0647444
047402
051433
047467
051433

052266

051433

MACRO v03.01

000000
047522
000000
050676
000000
050676
000000
050607
000000
050676
000000
047522
000000
050607

000000
047522
000000
050676
000000
050676
000000
050607
000000
050676
000000
047522
000000

050607
000000
047522
000000
050676
000000
050676
000000
050607

000000
050676
000000
050676
000000
050721
000000
047522
000000
050607

051772
041741
051772

051433

000000
050676
000000
050676
000000

6
11-APR-80 14:12:35 PAGE 27-6

EMT243:
EMT244:
EMT245:

.WORD
.WORD
.WORD
.WORD
.WORD

EMT246:

EMS36,EMS335,0
EMS66. EMS336 EMS340,EMS26,
EMS404 , EMS405, EMS604

EmsS11,Ems503.,0

EMS63, EMSL01 L EMS4OS
, EMS604

Ems511,EmsS05,0

EMS36,EMS370,EMS405
, EMS604

EMS511,EMSS05.0

EMS403 . EMS604 . EMS402, EMS24 , EMS377
EMS511, EMSS503
EMS36,EMS335,0
EMS67 ,EMS332 EMS4L0S ,EMS604

EMT247:
EMTZ2S50:

EMT251:

EMTZ252:

EMSS11,EMS505,0

EMS66, EMS336 . EMS340,EMS15,
EMS406 . EMS405 , EMS605

EMSS11,EMS505.0

EMS403 . EMS605 .EMS402,EMS21,EMS377
EMSS11.EMSS03
EMS36,EMS335.0
EMS66, EMS336 - EMS340, EMS26, EMS404 , EMS40S , EMS605

EMSS11,EMS505.0

EMT253:

EMT254:

EMT255:

EMTZ256:

EMS403. EMS605 . EMS402, EMS24 ,EMS377
EMSS517.EMSS503
EMS36,EMS335.0
EMS67
. EMS332 . EMS40S
, EMS605

EMT257:

EMS66, EMS336EMS340,EMS
15, EMS406. EMS405 . EMS606

EMT260:

EMT261:

EMT262:

EMT263:

EMT264:

EMT265:

EMT266:

EMS63, EMSL01 ,EMS405
, EMS605

EMSS11,EMSS03.0

EMS36, EMS370, EMS405
, EMS605

EMS511.EMS50%.0

EMSS11,EMS503,0
EMSS11,EMS503,0

EMS403 . EMS606 . EMS402,EMS21,EMS377
EMSS11.EMSS03
EMS36,EMS335.0
EMS66, EMS336 - EMS340, EMS26, EMS4C +, EMS405 , EMS606

EMSS11.EMS503.0

EMS63, EMS401 ,EMS40S
, EMS606

EMSS11,EMS5035.0

EMS36,EM 3370 EMS405, EMS606

EMS511,EM>503,0

EMS403 . EMS606 . EMS402, EMS24 ,EMS377
EMSS517.EMSS03
EMS36,EMS335.0
EMS70
. EMSL01 S EMS405
, EMS606

EMS511,EMSS505.0

EMS67, EMS332.EMS405
, EMS606

EMT267:

EMT270:

EMT271:

EMT272:

EMT273:

EMsS11,EMS505.,0

EMS66, EMS356 L EMS407

EMSS11,EMS505,0

EMS66, EMS336 EMS340,EMS1S
, EMS406 . EMS405 ,EMS607

EMSS11,EMS505.0

EMS403 . EMS607 . EMS402,EMS21,EMS377
EMSS11,EMSS03
EMS27,EMS336.0
EMS27.EMS370 EMS405
, EMS607

EMS511,EMS50%.0

EMS27,EMS371.EMS405, EMS607

EMSS511,EMS50%.,0

SEQ 0136

(ZRMQAO RMOS/3/2 DSKLS
ERROR MESSAGE TABLE

400 037566

401 037576

042337

051772

TST

MACRO v03.01

11-APR-80

050657

051433

050676

EMT274:

000000

.WORD

'WORD

043317

050572

050676

EMT275:

.WORD

404 037626

044326

047402

050476

EMT276:

.WORD

0647522

EMT277:

050607

EMT300:

000000
050676

EMT301:

405 03763%

051772

406 037642

044251

408
409
410
411

050616
051772
061741
044440

407 037660
037666
037700
037706
037712

412 037722

051772

27-7

SEQ 0137

402 037604

403 037614

H 1

14:12:35 PAGE

051433
051433

047467

051433

052306
051433
047467
050572

051433

051363

000000

.WORD
"WORD

EMS36,EMS404 ,EMS40S
. EMS607

EMS511,EMSS505,0

EMS53,EMS401,EMS405 ., EMS607

EMS511,EMSS0%,EMS502,0

EMS67,EMS332 EMS405
., EMS607

EMSS17,EMS505.0

.WORD

EMS66,EMS336,EMS340,EMS26,EMS404
, EMS40S , EMS607

.WORD
"WORD
.WORD
.WORD

EMS403.EMS607.EMS402,EMS24
EMS377
EMSS511.EMS503
EMS27,EMS336.0
EMS70,EMS4L01 L EMS4L0S ,EMS607

.WORD

"WORD

EMSS11,EMS505.0

EMS511.EMS505.0

CZRMQAQ RMOS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

1 037730

2 037734
3 037740

& 0377644

S 037750

6 037756

7
8
9
10

052324

052402
052417

052455

052474

052522

000000

000000
000000

000000

MACRO v03.01

I 1

11-APR-80 14:12:35 PAGE 28

SEQ 0138

EHT1:

EHT2:
EHTS:

EHT?:

EHT47:

EHTS2:

)

.WORD
.WORD

.WORD

0377260
037764
037770
037776

052620
052716
052754
053030

000000
000000
000000
000000

EHT57:
EHT61:
EHT6S:
EHT71:

.WORD
.WORD
.WORD
.WORD

12 040006
13 040010

053105
053202

000000
000000

EHT115:
EHT130:

.WORD
.WORD

11 040000
14
15
16
17
18
}8

060014
040020
040024
060030
060034
040040

052410

053320
053416
053514
053631
053727

054024

000000

000000
000000
000000
000000
000000
000000

EHT74:

EHT132:
EHT142:
EHT145:
ERT150:
EHT213:

EHT220:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

EH1L0

EHZ.0
EHS5.0

EH7.0

EH4?.0

EHS2.0

EMH57.0
EH61.0
EH65.0
EH71.0

EN3.0

EH115.0
EH130.0

EH132.0
EH142.0
EH145.0
EH150.0
EH213.0

EH220.0

—

CZRMQAQ RMO5/3/2 DSKLS TST 2
ERROR MESSAGE TABLE
1 040044

2 0460046
3 040050

054062
054072
054076
054104
054114
054126
054140
056152
054162
054072
0564172
054204
054172
054220

MACRO v03.01 11-APR-80 14:12:35 PAG% };
EDT1:
EDT2:

EDTS:
EDT4L7:
EDTSZ2:
EDTS?7:

:
EDTHT
EDT6S:

EDT71:
EDT74:
EDT11S:
EDT130:
EDT132:
EDT220:

.WORD
.WORD
. WORD
. WORD
. WORD
. WORD
-WORD
. WORD
.WORD
. WORD
.WORD

ED1
ED2
EDS
ED47
ED52
EDS7
ED6T
ED6S
ED71
ED2
ED115
ED130
ED115
ED220

SEQ 0139

‘czam»o RMOS/3/2 DSKLS TST 2

lERROR MESSAGE TABLE
1 040100
2 0460102

MACRO VO03.01 11-APR-80 14:12:35 PAGEK 1130

054224
054227

EFT1:
EFT2:

.WORD
.WORD

EF]
EF?2

054232

EFTS57:

.WORD

EF57

7 060114

054227

EFT74:

.WORD

EF2

9 060120
10 040122

054236
054232

EFT130:
EFT132:

.WORD
.WORD

EF130
EF57

3 040104

054230

5 040110
6 040112

054224
054224

4 040106

8 040116

}g 040124

054232

054230

EFTS:

.WORD

EFT65:
EFT71:

.WORD
.WORD

EFT115:

.WORD

EFT220:

.WORD

EF5

EF1
EF1

EF57

EFS5

SEQ 0140

CZRMQAO RMOS/3/2 DSKLS TST 2

ERROR MESSAGE

1 040126
2 060177

TABLE

116
103

117
117

116
116

125

116

125

3 040246

106

5 040344

104

105

7 040460

104

101

9 040574
10 040644
11 040665
12 040743
13 041012
14 041057
15 041135
16 041216
17 041257
18 041323
19 041402

115
050
11
104
115
115
115
127
104
115
125

28 042216
29 042246
30 042275
31 042337
32 042367
33 042421
34 042477
35 042545
36 042627
37 042700
38 042741
39 043016
40 043100

123
124
126
107
103
114
103
103
104
103
m
114
117

42 043207
43 043256

117
117

45 043360
46 043435

1M
101

48 043557
49 043606
50 043672
51 043744
52 044017

042
104
120
104
120

4 040313

6 040414

8 040531

20 041447
21 041525
22 041
23 041662
24 041741
25 042005
26 042065
27 042136

41 043140

44 043317
47 043513

53 044100
54 044140
55 044210
56 044251
57 044326

MACRO v03.01

120

123
115
120
115
105
104
114
114

122
122

101
127
105
m
124

125

_ASCIZ

EMS6:

ASCIZ

EMS10:

.ASCIZ

EMSS:

126

EMS7:

122

105
122
117

EMS4:

126

101

105
101
117
101
116
1
101
101

.ASCIZ
.ASCIZ

EMS3:

122

101
122
114
111
105
101
101
122
105
101
116

EMS1:
EMS2:

116

101

123
115
114
101
106
111
111
111
126
111
123

105
111
123
111
104
101
123
123

11-APR-80 14:12:35 PAGE 31

EMS11:

EMS12:
EMS13:
EMS14:
EMS15:
EMS16:
EMS17:
EMS20:
EMS21:
EMS22:

EMS23:
EMS24:
EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:

SEQ 0141

GNONEXISTENT DEVICE 'NED'' (RMCS2,BIT 12) a
@CONTROLLER CLEAR ''CLR'* (RMCSZ2.BIT 05) a

.ASCIZ

@QFUNCTION CODE (RMCS1, BITS 01 - 05) a

ASCIZ

GQDEVICE AVAILABLE 'DVA’‘ (RMCS1, BIT 11) a

ASCIZ

@DATA PARITY ERROR 'DPE'' (RMER2,

.ASCII
LASCIZ
ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QUNUSED BIT POSITIONS OF @

@PARTIY ERROR 'PAR'‘ (RMER1, BIT 03) a

BIT 03) a

@PARITY TEST 'PAT'' (RMCS2, BIT 04) a

QMASSBUS CONTROL BUS PARITY ERROR 'MCPE'' 3
(RMCS1, BIT 13) a
QILLEGAL REGISTER ERROR °‘ILR'' (RMER1, BIT 01) a
@DIAGNOSTIC MODE 'DMD'‘ (RMMR1, BIT 00) a
QMEDIUM ON LINE 'MOL'' (RMDS, BIT 12) 3
GMAINTENANCE UNIT READY 'MUR'' (RMMR1, BIT 09) a
GMAINTENANCE WRITE PROTECT 'MWP'' (RMMR1, BIT 03) a3
QWRITE LOCK ‘WRL'' (RMDS, BIT 11) a
@DEVICE CHECK 'DVC'' (RMERZ2, BIT 07) @
QMAINTENANCE DRIVE FAULT 'MDF'' (RMMR1, BIT 06) a
@UNSAFE STATUS 'UNS'’' (RMER1, BIT 14) a

QSEEK INCOMPLETE STATUS ‘‘SKI'' (RMER2, BIT 14) a
GMAINTENANCE SEEK ERROR ‘MSER'' (RMMR1, BIT 07) a
Q@POSITIONING IN PROGRESS 'PIP'* (RMDS, BIT 13) a
QMAINTENANCE ON CYLINDER ‘MOC'' (RMMR1, BIT 08) a
QEND OF BLOCK ‘EBL'' (RMMR1, BIT 13) a
QIDIAGNOSTIC END OF BLOCK ‘DEBL'' (RMMR1, BI1 13) a
@LAST SECTOR STATUS 'LS'' (RMMR1, BIT 02) a
@LAST SECTOR/TRACK STATUS 'LST'* (RMMR1, BIT 01) a

117
117
122
117
116
117
103

103
101
114
040
114
123
115
115
111
116
126
123
103

EMS41:
EMS42:
EMS43:
EMS44:
EMS45:
EMS46:
EMS47:

_.ASCIZ
_ASCIZ
_.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@COMPOSITE ERROR °‘ERR'' (RMDS, BIT 14) a
SCOMMAND SEQUENCER TEST BIT “TST'* (RMMR2, BIT 12) a
a@DRIVE READY STATUS ‘DRY'' (RMDS, BIT 07) a
SCONTINUE ''CONT'' (RMMR1, BIT 06, 3
QINVALID COMMAND ERROR “IVC'* (RMER2, BIT 12) a
aLOSS OF SYSTEM CLOCK ERROR 'LSC'’ (RMER2, BIT 11) a
Q0CCUPIED 'OCC’’ (RMMR1, BIT 15) a

106
106

EMS51:
EMS52:

_ASCIZ
.ASCIZ

QOFFSET DIRECTION ‘OFD'* (RMOF,
BIT 07) a
@OFFSET MODE 'OM'' (RMDS, BIT 00) a

116
104

126
1064

.ASCIZ
.ASCIZ

@INVALID ADDRESS ERROR “‘IAE'' (RMER1, BIT 10) @
QADDRESS OVERFLOW ERROR ‘‘AOE'' (RMER1, BIT 09) a

122
122
122
122
117

115
111
117
111
122

117
131
101

114

125
105

124
122
130
116
101

114

EMS33:
EMS34:
EMS35:

EMS36:
EMS37:
EMS40:

EMS50:

116

EMS53:

107

EMS56:

126
111
103
126
107

EMS57:
EMS60:
EMS61:
EMS62:
EMS63:
EMS64:
EMS65:
EMS66:
EMS67:

EMS54:
EMS55:

_ASCIZ
.ASCIZ
_ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

_ASCIZ

.ASCIZ
.ASCI1

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QSECTOR ADDRESS BITS OF a
@TRACK ADDRESS BITS OF a
@VOLUME VALID ‘VV'' (RMDS, BIT 06) a

@GO BIT (RMCS1, BIT 00) a
QCYLINDER ADDRESS BITS OF @
@LAST BLOCK TRANSFERRED, '1BT'’ (RMDS, BIT 10) a

@ILLEGAL FUNCTION °'‘ILF" (RMER1, BIT 0) @

@RUN AND GO ‘RG'’ (RMR1, BIT 14) a

QREGISTER MODIFICATION REFUSED ERROR @

@'RMR'' (RMER1, BIT 02) @
@DRIVE REQUEST REQUIRED STATUS 'DRQ’' (RMDT, BIT 11) 3
QPROGRAMMABLE STATUS 'PGM'' (RMDS, BIT 09) a
QDRIVE PRESENT STATUS 'DPR'' (RMDS, BIT 08) a
@PORT REQUEST FLOP ‘RQA,RQB'‘ (RMMR2, BITS 15,14) a

QATTENTION “‘ATA'' (RMDS, BIT 15) 3
SWRITE LOCK ERROR ‘MWLETM (RMER1,
BIT 11) a
QEXCEPTION 'REX'' (RMMR1, BIT 12) a
@INVALID COMMAND ERROR “IVC'* (RMER2, BIT 12) a
®TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL a

CZRMQAO RMOS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

58 044402

114

23 044440

123

105

61 044506

117

120

64 044712
65 044765

115
115

101
101

62 044565
63 044642

66 045041

104
104

106

1
122

117

MACRO v03.01

M1
11-APR-80 14:12:35 PAGE 31-1
SEQ 0142

116

101

EMS70:

105

123
111

111
111

122

-ASCIZ

@LINES (RMMRZ2, BITS 10,11,13) 3

.ASCIZ

QSEARCH ENABLE

EMS?71:

.ASCIZ

Q0PERATION IMCOMPLETE ERROR ‘DPI''(RMER1 BIT13) a

EMS74:
EMS75:

.ASCIZ
.ASCIZ

EMS72:
EMS73:
EMS76:

.ASCIZ
.ASCIZ

.ASCIZ

'ESRC'' (RMMR1, BIT 11) a

@DISABLE SEARCH TIMEOUT ‘D10 (RMMR1 BIT 12) 3
@DRIVE TIMING ERROR ‘'DTE (RMER1.BIT 12) @
GMAINTENANCE INDEX PULSE 'MI'‘(RMMR1 BIT 2) a
QMAINTENANCE SECTOR PULSE 'MS''(RMMR1 BIT S) 3
QFORMAT BIT 'FMT16'’ (RMOF ,BIT12) @
@SECTOR COMPARE 'MSC''(RMMR1 BIT 1) a3

67 045102
68 045145
69 045205
70 045261
71 045327
72 045367
73 045414
74 045455
75 045522
76 045532
77 045571
78 045607
79 045645
80 045704
81 045752
82 045767
83 046002
84 046040
85 046104
86 046137
87 046172
88 046233
89 046275
90 046325
91 046361
92 046412
93 046451

123
120
115
114
127
110
110
105
110
122
110
104
104
105
105
105
104
103
105
105
115
104
117
104
110
123
101

105
122
101
117
122
105
105
116
105
105
105
101
101
116
103
103
111
117
122
122
101
105
106
122
117
105
124

103
117
111
117
111
101
1017
101
101
101
101
124
126
101
103
103
123
116
122
122
111
123
106
111
114
122
126

EMS77:
EMS100:
EMS101:
EMS102:
EMS103:
EMS104:
EMS105:
EMS106:
EMS107:
EMS110:
EMS111:
EMS112:
EMS113:
EMS114:
EMS115:
EMS116:
EMS250:
EMS251:
EMS252:
EMS253:
EMS254:
EMS255:
EMS256:
EMS257:
EMS260:
EMS261:
EMS262:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@PROM STROBE 'WC'' (RMMR1 BIT 5) a3
G@MAINTENANCE BIT CLOCK ‘MCLK'' (RMMR1 BIT11) @
SLOOKING FOR SYNC 'PLFS''(RMMR1,BIT10) a
QWRITE GATE 'BB00'' (RMMR2 BITO) a
QHEADER SYNC PATTERN a
GHEADER AREA 'PHA'' (RMMR1 BIT 7) a3
QENABLE CRC OUT 'ECRC'' (RMMR1 BIT 9) a
QHEADER @
SREAD GATE 'BBO1''(RMMR2 BIT 1) a
QHEADER ERROR 3
&DATA TIMING SEQUENCER OUTPUT a
@DATA AREA 'PDA’' (RMMR1 BIT 8) a
QENABLE ECC OUT 'EECC'' (RMMR1, BIT 4) 3
QECC PATTERN @
SECC ERROR @
@DISK ADDRESS REGISTER (RMDA) @
@CONTROL STATUS REGISTER #1 (RMCS1) 3
@ERROR REGISTER #1 (RMER1) a
SERROR REGISTER #2 (RMER2) a
GMAINTENANCE REGISTER #1 (RMMR1) a
QDESIRED CYLINDER REGISTER (RMDC) a
@QOFFSET REGISTER (RMOf) @
QDRIVE TYPE RLGISTER (RMDT) a
@HOLDING REGISTER (RMHR) a
@SERIAL NUMBER REGISTER (RMSN) @
QATTENTION SUMMARY REGISTER (RMAS) @&

95 046514
9% 046532
97 046555
98 046602
99 046613
100 046622
101 046636
102 046677
103 046714
104 046760
105 047016
106 047047
107 047076
108 047124
109 047145
110 047165
111 047205
112 047225
113 047245
114 047264

103
103
101
127
105
101
125
101
105
124
101
101
101
122
061

101
101
116
11
122
040
122
040
126
110
040
120
120
105

116
116
131
124
122
117
111
132
105
105
123
120
120
107
050
050
050
050
1164
1164

EMS300:
EMS301:
EMS302:
EMS303:
EMS304:
EMS306:
EMS307:
EMS310:
EMS311:
EMS312:
EMS313:
EMS314:
EMS315:
EMS316:
EMS317:
EMS320:
EMS321:
EMS322:
EMS323:
EMS324:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

Q@CANNOT CLEAR 3
QCANNOT WRITE/READ a
@ANY DEVICE REGISTER @
aWwITHOUT 3
@ERROR @
@A ONE FROM a
@USING MASSBUS INITIALIZE, I.E., a
@A ZERO FROM 3
®EVERY DEVICE REGISTER BIT POSITION a
QTHE FOLLOWING BITS ARE STUCK @
@A SHIFTING ONE BIT FROM a
@APPEARS STUCK AT ZERO @
@APPEARS STUCK AT ONE a
SREGISTER SELECT a
a1 (1,2,4.8,16) a
@2 (1,2,4.8,16) a
@4 (1,2,4.8,16) a
a8 (1,2.4.8,16) a
@ALL ONES FROM a
QALL ZEROS FROM 3

062
064
070
101
101

040
040
040
114
114

CZRMQAO RM0OS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE
115 047304
116 047315

117 047325
118 047333
119 047352
120 047402
121 047420
122 047434
123 047444
124 047467
125 047506
126 047522
127 047533
128 047542
129 047574

101
101

1264
124

130 047610
131 047637
132 047665

054
015
103
111
1
111
123
123
103
102
125
104
125
102
102
103

040
012
101
123
123
123
110
110
101
105
123
125
116
125
131
101

134 047724
135 047731
136 047747
137 047763
138 050007
139 050042
140 050064
141 050104
142 050126
143 050154
144 050202
145 050223
146 050240
147 050261
148 050266
149 050311
150 050361
151 050376
152 050425
153 050457
154 050463
155 050514
156 050530
157 050544
158 050555
159. 050572
160 050607
161 050616
162 050657
163 050676
164 050706
165 050721
166 050741
167 050750

102
127
127
m
11
103
127
127
060
061
11
103
124
101
103
124
122
104
104
124
127
102
102
127
127
104
127
103
127
104
127
123
101
127

125
101
101
116
123
101
101
101
040
040
123
101
105
116
101
110
105
1
125
117
1
131
131
101
101
1M
110
117
101
125
101
105
106
101

133 047703

168 050765
169 051
170 051013
171 051032

127

123
11
103
127

mnm

105
116
101
101

MACRO v03.01 11-APR-80 14:12:35 PAGE 31-2
040
040

117
103
116
040
040
040
117
117
116
103
111
122
105

EMS325:
EMS326:

.ASCIZ
.ASCIZ

QAT ZERO @
QAT ONE a3

123
040
116

EMS327:
EMS330:
EMS331:
EMS332:
EMS333:
EMS334:
EMS335:
EMS336:
EMS337:
EMS340:
EMS341:
EMS342:
EMS343:
EMS344:
EMS345:
EMS346:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@, OR @
<CR><LF>aCS MBA CLRL a
SCANNOT READ ZEROS FROM a
@IS INCORRECT a
@IS NOT SET @
QIS SET a
@SHOULD NOT BE SET @
@SHOULD BE SET 3
@CANNOT SET a
QBECAUSE @
QUSING @
@DURING REGISTER TRANSFER @
QUNEXPECTED a@
a@BUS TIMEOUT (04 TRAP) a
@BY REGISTER TRANSFER @
QCANNOT RESET a

126
123
123
060
040
116
123
123
126
124
040
116
123
104
116
105
123
104
122
040
126
040
040
123
123
104
111
115
123
122
123
101
124
123

EMS350:
EMS351:
EMS352:
EMS353:
EMS354:
EMS355:
EMS356:
EMS357:
EMS360:
EMS361:
EMS362:
EMS363:
EMS364:
EMS365:
EMS366:
EMS367:
EMS370:
EMS371:
EMS372:
EMS373:
EMS374:
EMS375:
EMS376:
EMS377:
EMS400:
EMS401:
EMS402:
EMS403:
EMS404:
EMS405:
EMS406:
EMS407:
EMS410:
EMS411:

.ASCIZ
.ASCIZ
.ASCIZ
4SCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

aBUT 3
awWAS RESET BY @
awWAS SET BY a
@IN DIAGNOSTIC MODE a
@IS INCORRECT ACCORDING TO a
@CANNOT INCREMENT 3
aWAS NOT SET BY a
aMAS NOT RESET BY 3
@0 TO 1 TRANSITION OF a
@1 TO O TRANSITION OF a
@IS INCONSISTENT a
QCANNOT READ a
QTEST PATTERN IN a
@AND a@
Q@CANNOT INITIALIZE a
QTHE COMMAND SEQUENCER HAS BEEN CLOCKED a
GRESET EARLY a
aDID NOT RESET ON TIME a
@DURING COMMAND EXECUTION @
10 @
QWITH ANY COMBINATION OF 3
aBY READING 3
aBY WRITING @
aWAS SET @
@WAS NOT SET a
aDID NOT SET a
QWHILE @
QCOMMAND SEQUENCER DID NOT ABORT @
aWAS NOT RESET a
QDURING @
a@WAS RESET a
QSEARCH TIMEOUT a
QAFTER 3
aWAS CHANGED a

124

124
103
116
123

EMS347:

EMS412:
EMS413:
EMS414:
EMS415:

_ASCIZ

.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

@WITHOUT SETTING @

QSET EARLY @
@INCORRECT @
ICANNOT DETECT @
QWAS SIMULATED a

SEQ 0143

103

104
107
106

178 051176
179 051227
180 051272
181 051336
182 051363
183 051433
184 051460
185 051513
186 051566
187 051627
188 051717
189 051772

};g 051130

117

116

122
116
122

on
on
on
on
on
on
on
on
on
o1
on
015

EMS416:

.ASCIZ

103

EMS417:
EMS420:
EMS421:

EMS422:

.ASCI2
.ASCIZ
.ASCIZ

104
104
124
m
115
103
104
104
104
104
101
012

105
105
122
106
101
123
123
105
105
105
123
011

EMS500:

EMS503:
EMS504:
EMS505:
EMS506:
EMSS507:
EMSS510:
EMS511:

.ASCII
LASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCII

101
106
126
114
103
105
101
126

EMS600:
EMS601:
EMS602:
EMS603:
EMS604:
EMS605:
EMS606:
EMS607:

}g? 052021

050

192
193
194
195
196
197
198
;88

122
117
122
122
122
123
123
104

105
106
105
105
105
105
105
101

052071
052121
052141
052202
052223
052250
052266
052306

122

125
105
125

B 1 12
11-APR-80 164:12:35 PAGE 3 1-3

116

EMS501:

EMS502:

.ASCI2

SEQ 0144

9CORRECT @
aDURING WRITE @
@GENERATED o
adDURING READ a
@INCORRECT DATA TRANSFERRED TO MEMORY 3
DEVICE IS NONEXISTENT,a3<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, MS5922 OR M5923
A<CROCLF>
CS MODULE, M7684.,8<CR><LF>
DS MODULE, MB6O8S/M768S5,8<CRO<LF>
DEVICE IS SWITCHED TO A/B PORT POSITION®<CR><LF>
DEVICE IS NOT AN RM0S5/3/2. ORI<CRO<LF>
DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, ORa<CR><LF>
* ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF>
<CR><LF>a
PROBABLE FAULT(S) :@<CR><LF>
(NOT INCLUDING CABLES OR CONNECTORS)a@<CR><LF>

LASCIZ

172 051051

173 051062
174 051100
175 051113

MACRO v03.01

VLV
VR

CZRMQAO RMOS5/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCI2
.ASCIZ

aREAD IN PRESET COMMAND a
@0Fr SET COMMAND a
SRETURN TO CENTER CENTER COMMAND 3
aRELEASE COMMAND a
SRECALIBRATE COMMAND a
@SEEK COMMAND @
@SEARCH COMMAND a

aDATA COMMAND a

CZRMQAO RMOS/3/2 DSKLS TST 2

ERROR MESSAGE

052324

2 052353
3 052402

4 052410

S
6
7
8
9
10

11
12
13
146

15
16
17
18
19
20

052417
052436
052455
072474
052522
052561

052620
052657
052716
052754

053001
053030
053056
053105
053143
053202

21 053251
22 053320
23 053357
24 053416
25 053455
26 053514
27 053562
28 053631
29 053671
30 053727
31 053765
32 054024
;2 054043

TABLE

105

130

123
040

124
102

105
122
105
040
105
106

130
105
130
106
130
1

101

123
104
040
105

123
105
123
105
123
105

123
105
103
105
123
105
103
105
122
105
122
101
122

104

116
122
105
130

124
130
124
130
124
130

1264
130
117
130
124
130
115
130
105
130
105
103
105

MACRO v03.01
120

101
101

122

120
123
120
111
120
122

107
126
130
120

101
120
101
120
101
120

101
120
125
120
101
120
120
120
123
120
123
1264
123

EH1:

EHZ:
EH3:

EHS:
f£u7:
EH47:
EH52:
EH57:

EH61:
EH65:

EH71:
EH115:

EH130:
EH132:

EH142:
EH145:
EH150:
EH213:
EH220:
EVEN
EV

€12

11-APR-80 14:12:35 PAGE 32
LASCII]

@EXPCTD

RECEVD

LASCIZ
.ASCl]

Q@STATUS STATUS
@ BASE@<CRLF>

LASCI1
LASCIZ
.ASCIZ
_ASCIZ
.ASCIl
.ASCIZ

QEXPCTD
@RESULT
@EXPCTD
@ FIRST
QEXPCTD
@FIRST

.ASCIZ

ASCI]
.ASCIZ
.ASCIZ
ASCII

.ASCIZ
_ASCI1
.ASCIZ
.ASCI1
.ASCIZ
.ASCII

.ASCIZ
L.ASCII
LASCIZ
.ASCI]
LASCIZ
.ASCI1
LASCIZ
.ASCII
.ASCIZ
ASCI]
LASCIZ
.ASCI]
.ASCIZ

QADRESSa

QSTATUS
@EXPCTD
@COUNT
@EXPCTD
QSTATUS
SEXPCTD
@CMPERR
@EXPCTD
@RESULT
@EXPCTD
QRESULT
@ACTUAL
@RESULT

REGSTRAI<CRLF>

ADRESS®

STUCKa<CRLF>
B8IT(S)a

RECEVDa
SECOND
RECEVD
FIRST
@SNGPRT
DULPRT
@DRVIYP
DRVTYP
@ EXPECTED ECC
QEXPCTD
RECEVD
AQSTATUS
STATUS
@EXPCTD
RECEVD
@STATUS
STATUS
QEXPCTD
RECEVD
@STATUS
STATUS

GEXPCTD

SEQ 0145

RECEVD

STATUS

CR(A
EXPCTD
SECOND

RECEVD@<(CRLF>
SECONDa

RECEVD
DRVTYPa<(CRLF>
DRVTYP
REGADRa
RECEIVED EC(a
TESTa<CRLF>

REGSTRa
TEST@<CRLF>
PATTRNS
REGSTR
TESTa<CRLF>
ADRESS
PATTRNa
REGSTR
TEST
OFFSET@<CRLF>

ADRESS

PATTRN

REGSTRa

ACTUAL
REGSTR OFFSET@<CRLF>
COUNT
ADRESS
REGSTRa
RECVED REGSTR OFFSETR<CRLF>
STATUS ADRESS
REGSTRa
ACTUAL
REGSTR RMER1
RMER2@<CRLF>
(MPERR ADRESS PATTRN PATTRNa
ACTUAL
REGSTR FUNCT]ON@<CRLF>
RESULT
ADRESS
(ODEa
ACTUAL
STATUS
TEST@<CRLF>
RESULT ADRESS REGSTR3
REGSTRa@<CRLF>
ADRESSa

CZRMQAQ RMOS/3/2 DSKILS TST 2

000
000
000

SNNNE

—

mh —

nNOOOO

d rd md i
d e
d
d
—

g
By Do

NI
NI
S

Big Sy Sreg B

alalalalalalelsl

g B

S
S
S
S
S
T
S

By Bmng S

alalalalalalatata’

umg Dy B

B
Bumng S

o S
S

g Bumg B

OIOIOIOIONYY

SEQ 0146

S$TMPO.$TMP1,$8DDAT
. $BDADR, 0

STMP2.$TMP3 $TIP0.$TMP1.0
SGDDAT,SBDDAT.S$TMP0.0

$GDDAT.SBDDAT.RMHRO.0
$GDDAT.S$BDDAT.S$BDADR,$TMP0.0
SGDDAT.S$BDDAT.S$BDADR.$TMPO
.
$TMP1.0
$BDDAT .$BDADR

.BYTE
BYTE
BYTE
BYTE
BYTE

0,0,0
0
0,0
0.0,0,0
0.0,0.0.0

BLKW
BLKW

258.
258.

<CRLF>

ol IST OF TESTSa<(CRLF>
L e a<CRLF>

all
are

TRANSFER TESTa<CRLF>
CTOD TEST@<CRLF>
MASSBUS INITIALIZE TESTa<CRLF>

ar3

avTé

CLEAR STUCK ACTIVE TEST@<CRLF>

TRISTATE TRANSFER TESTA<CRLF>

alé

alll
arie
ari3

arlé
ar1s
arlé
arlz
ar2o

SEARCH TIMEOUT TEST@<CRLF>
SET DTE TEST@<CRLF>
FORMAT CHANGE TESTa<CRLF>
PROM STROBE TEST@<CRLF>
SYNC WORD COUNT INHIBIT TESTa<(CRLF>
SYNC DETECTION TEST@<CRLF>
ABORT SYNC DETECTION TEST@<CRLF>
SYNC GENERATION TESTa<CRLF>

ar2?
al23
aros

HEADER COMPARE TEST Q@<CRLF>
ECC GENERATION TEST@<CRLF>
ECC DETECTION TESTa<CRLF>

alr’
alr10

ardil

g By
g
g G

[
.
[]
.
[

ASC

(SRR

nunumnmnunuvwwnhunnnnn

ASC

13333333

nwuLrnununmnunnumnm

>>>e>>>2>

nnhnunuvunnnnn

-ASC

124
1264
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124

HELP:

055230
055231
055265
055321
055345
055402
055426

-WORD
.WORD
.WORD
"WORD

51
52
53
54
55
56
57

.WORD
-WORD

49 055151
50 055201

114

055
124

$GDDAT,$BDDAT,38DADR,0
$BDADR.0
$GDDAT.$BDDAT,0
STMPO,$TMP1,STMP2,0
STMPQ.BUFFER,STMPi BUFFER+2.0

.WORD

47 055072
48 055120

000000
001200
001176
001142
001174
001174
001444
001136
001136

) 3. 2.2.2.2.2.2.20.0.2.4

054712
054753
055003
055041

40 054615
41 054636
42 054665

.WORD
.WORD
.WORD
.WORD
.WORD

054244

200
200

11-APR-80 14:12.35 PAGE 3 3

001136

800000000—'
—b e b b b b =2 \ NN

43
44
45
46

N NN

36
37
38
39

054244
054244
054245
054246
054264
054302
054323
054340
054373
054426
054460
054510
054533
054565

001142

MACRO v03.01

O
b b b =\ N (N

0564244
054244
055250

88888

054224
054227
054230
054232
054236

— ek BB\
b —d b
L 2R 2l2Bl

0546062
054072
054076
056104
054114
054126
054140
054152
054162
056172
054204
054220

22283233333 38

= b md e b ) ecd b b b
NN POPNININA)

ERROR MESSAGE TABLE

DRIVE TYPE TEST@<CRLF>
DEVICE AVAILABLE TEST@<CRLF>

WRITE HEADER TEST@<CRLF>

--------------------------- a<CRLF>

ISWITCH

@-=-= =
3
a

USEQ<CRLF>

=esssssseseseecooee- 3<CRLF>
HALT ON ERRORI<CRLF>
LOOP ON TESTa<CRLF>

——

000200

.END

200

O = MNINS
N0 YOO DO =PI

g P

g Pomg e Bt By

Sy B
B

VLV RVVIIRPVRDDYD

-ASC

055770

g Bt Deg St Bt S

alalal

wounun

et bt St St Bt b

LASC
<ASC
.ASC
.ASC
.ASC
.ASC
.ASC
.ASC
.ASC

N 5t

061

>
>

040

SEQ 0147
e
ey

58 055451

E 12
11-APR-80 14:12:35 PAGE 33-1

MACRO v03.01
w

CZRMQAQ RMOS/3/2 DSKLS TST 2
ERROR MESSAGE TABLE

INHIBIT ERROR TYPEOUTSa@<CRLF>

a<CR! F>

INHIBIT ITERATIONS@<CRLF>
BELL ON ERROR@<CRLF>
i OOP ON ERRORQ<CRLF>

LOOP ON TEST [N SWR<7:0>3<{RLF>
TN128a<CRLF>
TNG64A<CRLF>
TN32a<CRLF>
TNT168<CRLF>
TN8a<CRLF>
TNGR<CRLF>
TN2a<CRLF>
TN1@<CRLF>

CZRMQAQ RMOS/3/72 DSKLS TST 2

MACIN v03.01 11-APR-80 14:12:35 PAGE 3%-2
F

SYMBOL TABLE

SEQ 0148

ABASE = 176700

AVECT1= 120254

CNSLOO

031176

ED1

054062

ACDWZ = 000000

A16

CNSLOZ2

031247

ED130

054204

ACOW1

= 000000

AVECTZ2= 000000

= 000400

CNSLO1

031231

ACPUOP=
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=
ADDW13=
ADDW14=

000000
000000
000000
000000
000000
000000
000000
000000

A17
=
BADTMO
BAl
=
8800
=
8801
=
8802
=
8803 =
B804
=

001000
002A36
000010
0000V1
000002
000006
000010
000020

CNSLO3
CNSLO4
CNSLOS
TNSLO6
CNSLO7
CNSLO8
CNSLO9
CNTCLR

ADDWZ
ADDW3
ADDWS4
ADDWS
ADDW6
ADDW?7

000000
000000
000000
000000
000000
000000

BB06
8807
8808
8809
BITO
BITO0

000100
000200
000400
001000
000001
000001

CONT
=
CR
=
CRLF
=
CYLMSK=
DBCK
=
DBEN
=

ADDW15= 000000
=
=
=
=
=
=

ADDW8 =
ADDW9 =
ADEVCT=
ADEVM =
ADR
=
AENV
=
AENVWM =
AFATAL=

ALL

000000
000000
000000
000000
000001
000000
000000
000000

031076

AMADR1= 000000

B80S

BITO1
BIT0Z2
BIT03
BIT04
BITOS
BIT06
BIT07
BIT08

= 000040

=
=
=
=
=
=

=
=
=
=
=
=
=
=

000002
000004
000010
000020
000040
000100
000200
000400

BITO9 = 001000

comma

DBL
=
DCK
=
DDISP =
DEBL
=
DISPLA
DISPRE
OLT
=
DMD
=

DPE

EECC
=
EFTT
EFT115
EFT130
EFT132
EFT2

000020
040100
040116
040120
0640122
040102

EMS100
EMS101
EMS102
EMS103
EMS104
EMS105

045145
045205
045261
045327
045367
0456414

EMS115

045752

002000
100000
177570
020000
001156
000174
100000
000001

= 000010

ED71

EFT220
EFTS
EFT57
EFTES
EFT71
EFT764
EF1
EF130

EF2

DPR
=
DRQ
=
DRVCLR=
DRY
=
DSWR
=

000400
004000
000010
000200
177570

EHTI
EHT115
EHT130
EHT132
EHT142

AMSGAD=
AMSGLG=
A*SGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
AOE
=

8173
=
BIT4
=
BITS
=
BITé
=
BIT7
=
BIT8 =
BIT9
=
BOTADR

000010
000020
000040
000100
000200
000400
001000
022412

DTO
=
DULPRT=
DVA
=
DvC
=
EBL
=
ECH
=
ECI
=
ECRC
=

010000
024024
004000
000200
020000
000100
004000
001000

EHT150
EHT2
EHT213
EHT220
EHT47
EHTS
EHT52
EHTS?

= 100000

EDT130

040G/?

EHT?7

040060

EH145

APASS = 000000
APE
= 100000

APRIOR- 000000

APTCSU=
APTENV=
APTS1Z2=
APTSPO=
ASWREG=
ATA
=
ATESTN=

000040
000001
000200
000100
000000
100000
000000

ATNTBL

032014

ATNMSK= 000377
AUNIT = 000000
AUSWR = 000000

BOTFLG
022414
BPTVEC= 000014

BSE

BUFFER
BUFONE
BUFTWO
cc
=
CH
=
CHRCNT
CKSWR =

056244
054244
055250
004000
002000
022415
104410

cLock

001532

CLKSNC

024572

CLR
- 000040
CMNSTA
005070

= 040000

DPELO = 020000

DTE

EDT1
EDT115

EDT132
EDT2
EDT220
EDT47
EDTS
EDTS2
EDTS7

EDT61

EDT6S

EDT71
EDT74

052474

000100
000015
000200
001777
100000
040000

031107

004000
010000
020000
040000
100000

= 000004

EH&L7

052417
052522
052620
052716
05" 754
052455
053030
040126

=
=
=
=
=

BIT2

0526410

EH5
EHS2
EHS7
EH61
EHES
EH7
EH71
EMS1

BIT11
BIT12
BIT13
BIT14
BIT15

000000
000000
000000
000000
000000
000000
000000
001000

054024

EH3

056072
054220
054104
054076
054114
054126
054140
054152

AMADR3= 000000
AMADR4= 000000
AMAMS 1= 000000
AMAMS?2= 000000
AMAMS
3= 000000

AMAMS4= 000000

EH220

ED2
ED220
ED47
EDS
EDS2
ED57
ED61
ED6S

= 000002

BIT10 = 002000

054172

031311
031331
031365
031377
031430
031573
031574
023334

BIT1

AMADRZ2= 000000

DPEHI

ED115

= 010000

040044
040070

04004
040046
040076
040052
040050
040054
040056

040062

040064
040066

EF5

0564162

040124
040104
040106
040110
040112
0401
054224
054236

054227
054230

EMS10

EMS106
EMS107
EMST1
EMS110
EMS111
EMS112
EMS113
EMS114
EMS116

EFS57

054232

EMS12

EHT145

040024

EMS?2

EHT61
EHT6S

037764
037770

037730
040004
040010
04C014
040020

045455
045522
040574
045532
045571
045607
045645
045704
045767

040665

EMS13
EMS14
EMS15
EMS16
EMS17

04073
061012
041057
0641135
041216

040030
037734
040034
040040
037750
037740
037754
037760

EMS20
EMS21
EMS22
EMS23
EMS24
EMS25
EMS250
EMS251

041257
041323
041402
0614647
041525
041604
046002
046040

037744

EMS254

046172

EHTZ71
EHT74
EH1
EHI1S
EH130
EH132
EH142

037774
040000
052324
053105
053202
053320
053416

EH150

053631

EH2
EH213

040531

053514

052402
053727

EMS252
EMS253
EMS255
EMS256
EMS257
EMS26
EMS260
EMS261
EMS262

EMS27
EMS3

EMS30
EMS300

040177

046104
046137

046233
046275
046325
041662
046361
046412
066451

041741

040246

04200°
046514

CZRMQA0 RMO5/3/2 DSKLS TST 2

SYMBOL

TABLE

EMS 301
EMS302
EMS303
EMS 304
EMS 306
EMS307
EMS31
EMS310
EMS311
EMS312
EmMs313
EMS314
EMS315
EMS316
EMS317
EMS32
EMS320
EMS321
EMS322
EMS323
EMS324
EMS 325
EMS326
EMS327
EMS33
EMS330
EMS331
EMS332
EMS333
EMS334
Ems335
EMS336
EMS337
EMS34
EMS340
EMS341
EMS342
EMS343
EMS344
EMS345S
EMS346
EMS347
EMS35
EMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36
EMS360
EMS 361
EMS 362
EMS363
EMS 364

0466532
046555
046602
046613
046622
046636
042065
046677
0466714
046760
047016
047047
047076
047124
047145
042136
047165
047205
047225
047245
047264
047304
047315
047325
042216
047333
047352
047402

050240

EMS365
EMS366
EMS367
EMS37
EMS370
EMS371
EMS372
EMS373
EMS374
EMS375
EMS376
EMS377
EMS4
EMS40

EMS400
EMS401
EMS402
EMS403

EMS404
EMS405
EMS406
EMS407
EMS41
EMS410
EMS411
EMS412
EMS413
EMS414
EMS415
EMS416
EMS417
EMS42
EMS420
EMS421
EMS422
EMS43
EMS44
EMS4S
EMS46
EMS47

EMSS
EMS50
EMS500
EMS501
EMS502
EMS503
EMS504
EMS505
EMS506
EMS507
EMS51
EMS510
EMS511
EMS52
EMS53
EMS 54
EMSSS

MACRO v03.01

050261
050266
050311

062367
050361

050376
050425
050457
050463
050514
050530
050544
040313
042421
050555
050572
050607
050616
050657

G 12

11-APR-80 14:12:35 PAGE 33-3

EMS56
EMSS?
EMS6
EMS60
EMS600
EMS601
EMS602
EMS603
EMS604
EMS605
EMS606
EMS607

043513
043606
040414
043672
052071
052121
052141

EMT140
EMT141
EMT142

EMS61

EMS62
EMS63

EMT143
EMT144

EMS64
EMS65
EMS66

EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163

EMS67
EMS?7
EMS70
EMS71
EMS72
EMS73
EMS74
EMS75
EMS76
EMS?77

EMTVEC=

051433
051460
051513
051566
051627
043207
051717
051772
043256
043317
043360
043435

EMT1
EMT10
EMT100
EMT101
EMT102
EMT103
EMT104
EMT105
EMT106
EMT107
EMT11
EMT110
EMT111
EMT112
EMT113
EMT114
EMT115
EMT116
EMT117
EMT12
EMT120
EMT121
EMT122
EMT123
EMT124
EMT125
EMT126
EMT127

EMT13
EMT130
EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137
EMT14

SEQ 0149

032264
034510
034526
034544
034564
034604
034620
034636
034650
032302
034666
034706
034722
034740
034754
034776
035020
035036
032320
035050
035072
035104
035120
035140
035160
035176
035220
032336

036060
036076
036110
036140
036152
036172
036206
032436
036222
036240

EMT164

EMT165

034240
034260

032246
034300
034324
034344
034364
034410
034426
034446
034464

EMT166
EMT167
EMT17
EMT170
EMTI71
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT2
EMT20
EMT200
EMT201
EMT202

EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210

035756
035776
036026
032414
036042

EMT272
EMT?273

037550

CZRMQAO RMOS/3/2 DSKLS TST 2

MACRO v03.01

SYMBOL TABLE

SEQ 0150

EMT274
EMT275
EMT276
EMT277
EMT3
EMT30
EMT300
EMT301
EMT31
EMT32
EMT33
EMT34
EMT3S
EMT36
EMT37
EMT4
EMT40
EMT41

037566
037604
037624
037642
032060
032624
037666
037712
032644
032660
032672
032704
032716
032730
032750
032100
033000
033022

ERRVEC=
ERTYO0
ERTYO1
ERTYOZ
ERTYO3
ERTY04
ERTYOS
ESRC
=
FER
=
FMT16 =
FNCDTB
FNCMSK=
FO
=
F1
=
F2
=
F3
=
Fé&
=
GETBUF

EMTL3
EMT4SL
EMTYS
EMT46
EMI47
EMTS
EMTS0
EMTS1
EMTS2
EMT53
EMTS4
EMTSS
EMTS6
EMTS7?
EMT6
EMT60
EMT61
EMT62
EMT63
EMT64
EMTES
EMT66
EMT67
EMT7
EMT70
EMT71
EMT72
EMT73
EMT74
EMT75
EMT76
EMT77
ENBSCH
EQUALS
ERR
=
ERRNMB
ERROR =
ERRTYP

033066
033102
033120
033134
033150
032122
033166
033204
033220
033236
033252
033270
033306
033322
032146
033336
033352
033370
033406
033420
033434
033446
033462
032170
033500
033520
033544
033570
033610
033620
033632
033646
023430
031074
040000
022410
104000
021566

GTSWR = 104407
HCE
= 000200
HCI
= 002000
HCRC
= 000400
HELP
054244
HT
= 000011
IAE
= 002000
IDXMSK= 000077
IE
= 000100
ILF
= 000001
ILFO2 = 000002
ILF24 = 000024
ILF26 = 000026
ILF30 = 000030
ILF32 = 000032
ILF34 = 000034
ILF36 = 000036
ILF40 = 000040
ILF42 = 000042
ILF44 = 000044
iLF46 = 000046
ILF54 = 000054
ILF56 = 000056
ILF64 = 000064
ILF66 =
066
ILF74 = 000074
ILF76 = 000076
ILR
= 000002
ILRG50= 000050
ILRG52= 000052
ILRG54= 000054
ILRG56= 000056
ILRG60= 000060
ILRG62= 000062
ILRG64= 000064
ILRG66= 000066
ILRG70= 000070
ILRG72= 000072

EMT42

033050

H 12
11-APR-80 14:12:35 PAGE 33-4

000004
022416
022424
022434
022443
022651
022454
004000
000020
010000
031714
000077
000002
000004
000010
000020
000040
001332

= 000001

ILRG74=
1LRG76=
IOTVEC=
IPCKO =
IPCK1 =
IPCK2 =
IPCK3 =
IR
=
IvC
=
LBC
=
LBT
=
LCLOCK
LCOUNT
LF
=
LODEV
LS
=
LSC
=
LST
=
LSTOP

000074
000076
000020
000001
000002
000004
000010
000100
010000
002000
002000
022756
023026
000012
031637
000004
004000
000002

023070

LSTRK
001330
MCLK
= 004000
MCPE
= 020000
MDF
= 000100
MDPE
= 000400
)
= 000004
MOC
= 000400
MOH
= 020000
mMoL
= 010000
MRD
= 002000
MR1AAA= 051401
MS
= 000040
MSC
= 000002
MSDRVS 031615
MSE
= 100000
MSER
= 000200
MSGDRV 031631
MSHELP 031112
MUR
= 001000
Mo
= 000010
MP
= 000010
MXF
= 001000
NDTMSK= 115760
NED
= 010000
NEM
= 004000
NOP
= 000000
NOTAVL
031674
NOTPRS 031657
NSA
= 100000
0CcC
= 100000
OFD
= 000200
OF FSET= 000014
oM
= 000001
OPE
= 020000
oPI
= 020000
OR
= 000200
PACACK= 000022
PAKACK= 000022

PAR
=
PAT
=
PCLOCK
PCOUNT
PDA
=
PGE
=
PGM
=
PHA
=
PIP
=
PIRQ =
PIRQVE=
PLCLK
PLFS
=
PLSTP
PRO
=
PR1
=
PRZ
=
PR3
=
PR¢

000010
000020
022740
023026
000400
002000
001000
000200
020000
177772
000240
022764
002000
023074
000000
000040
000100
000140

RMCS20
RMCS3 =
RMCS31
RMCS30
RMDA =
RMDAI
RMDAO
RMDB =
RMDBI
RMDBO
RMDC
=
RMDCI
RMDCO
RMDS =
RMDSI
RMDSO
RMDT =
RMDTI

= 000200

PR5
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSEL
= 002000
PSTOP
023062
PSW
= 177776
PUTBUF
001406
PWRVEC= 000024
QUES
031103
RD
= 000070
RDCHR = 104411
RDLIN = 104412
RDOCT = 104413
RDY
= 000200
READY
005242
RECAL = 000006
RESREG= 104415
RESVEC= 000010
REX
= 010000
RG
= 040000
RH
= 000072
RIP
= 000020
RLEASE= 000012
RMAS
= 000016
RMASI
001350
RMASO
001424
RMBA = 000004
RMBAE = 000050
RMBAEI
001402
RMBAEO 001456
RMBAI
001336
RMBADO
001412
RMCS1 = 000000
RMCSTI
001332
RMCS10 001406
RMCS2 = 000010
RM(CS2I
001342

RMDTO

001416
000052
001404
001460
000006
001340
001414
000022
001354
001430
000034
001366
001442
000012
001344
001420
000026
001360
001434

RMEC1 = 000044
RMEC1I
001376
RMEC10 001452
RMEC2 = 000046
RMEC2I
001400
RMEC20 001454
RMER1 = 000014
RMER1I
001346
RMERIO 001422
RMERZ = 000042
RMER2]
001374
RMER20 001450
RMHR
= (000036
RMHRI
001370
RMHRO
001444
RMLA
= 000020
RMLAI
001352
RMLAO
001426
RMMR1 = 000024
RMMR1I
001356
RMMR10 001432
RMMR2 = 000040
RMMR2]
001372
RMMR20 001446
RMOF
= 000032
RMOFI
001364
RMOFO
001440
RMR
= 000004
RMSN = 000030
RMSNI
001362
RMSNO
001436
RMWC
= 000002
RMWCI
001334
RMWCO
001410
RQA
= 100000
RAB
= 040000
RTC
= 000016
R6
=2000006

CZRMQAQ RMOS/3/2 DSKLS TST 2

SYMBOL

TABLE

=X000007

SADMSK= 000377

SAVREG=
SA1
=
SA16
=
SA2
=
SAS
=
SA8
=
SC
=
SCOPE =
SCTCMP
SCTMSk=
SCO
=
SC1
=
SC2
=

104414
000001
000020
000002
000004
000010
100000
000004
024302
003700
000100
000200
000400

SC4
=
SEARCH=
SEEK
=
SETLFS
SETOM
SETW
SHUT
SIZCLK
SKI
=

002000
000030
000004
024410
023232
023110
023362
022500
040000

SC3

= 001000

SNGPRT=
STACK =
STANDA
START
STKLMT=

020024
001100
004164
002716
177774

SWR
SWREG
SWO
SwO0
SwO01
SW02

001154
000176
000001
000001
000002
000004

STOP

Sw03
SWw04
SW05

=
=
=
=

001534

= 000010
= 000020
= 000040

W06
SWO07
Sw08
Sw09
SW1
SW10
SW11
SWi2

=
=
=
=
=
=
=
=

SWi4

= 040000

W13
w15
SW2

Sw3
Swé
SWS
SW6
SWwZ7

MACRO v03.01

000100
000200
000400
001000
000002
002000
004000
010000

= 020000
=
=
=
=
=

100000
000004
000010
000020
000040

= 000100

= 000200

Sw8

SWw9

= 000400

= 001000

TADMSK=
TAG
=
TAGADR=
TAP
=
TA1
=
TA16
=
TA2
=
TA4
=
TA8
=

112

11-APR-80 14:12:35 PAGE 33-5
wC

wCD

= 000040

= 000050

SEQ 0151

$EOP

021356

$NULL -

001170

$EOPCT

021404

SNWTST= 000001

177400
020000
001114
040000
000400
010000
001000
002000
004000
TBITVE= 000014
TIME
001526
TKVEC = 000060
TPVEC = 000064

WCE
=
WCEH] =
WCELO =
WwCF
=
WCH
=
WD
=
WH
=
WLE
=
WRL
=
XNUDC =
XNUERZ=
XNUOF =
XS12

040000
010000
004000
000040
000052
000060
000062
004000
004000
176000
001567
161577
003756

$EOSP
$ERFLG
$SERMAX
$ERROR
$ERRPC
$ERRTB
$ERTTL
$ESCAP
SETABL
SETEND
S$FATAL
$FFLG
$FILLC

021320
001117
001131
026602
001132
001536
001126
001210
001242

SOCNT
$OMODE
SOVER
$PASS
$PASTM
SPOWER
$PSW
$PWRDN
SPWRMG

025660
025662
026514
001230
001106
030616
001524
030450
030604

001326
001224
031072
001172

$PWRUP
SQUES
SRDCHR
SROLIN

TRE
=
TRTVEC=
IST
=
TSTNMB
TSTQUE
TST1
TST10
IST11
TST12

$APTHD
$ATYC
$SATY1
$ATY3
SATY4
$AUTOB
$8ASE
$8DADR
$8DDAT

001100
030652
030626
030634
030644
001150
001276
001136
001142

$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=
$HIBTS
$HIOCT
$ICNT
$ILLUP

001134
001140
021536
027370
000000
001100
030340
001120
030610

$RDOCT

001151
001130
001220
031071
001516

$RDSZ =
$RESRE
SRMO2
$RMO3
SRMOS
SRTNAD
$SAVRE
$SAVR6
$SLOPE

030522
001216
027642
027732
030240

$STUP =
S$SVLAD
$SVPC =
$SWR
=

177777
026460
000204
167400

001122
001510
001506
001124
001512
001254

$SWRMK=
$SWOBT
$TESTN
$STIMES
$TKB
$TKCNT

000000
026532
001226
001206
001162
027002

TRAPVE= 000034

0460000
000014
010000
022406
001462
005376
010662
010746
011216

XXDP

TST13
TST14
TST1S
IST16
TST17

011546
012132
012460
013130
013554

$8ELL
$8IN
$COW1
$COW2
$CHARC

T1ST20
TST21
TST22
TST23
TST24
TST3

013776
014470
015456
016724
020114
006070

$CMTAG
$CM3
=
$CM4
=
$CNTLC
S$CNTLG
$CNTLU

1ST2

005706

TST4
TSTS
TST6
1ST7
TYPBN =
TYPDS =
TYPE
=
TYPOC =
TYPON =
TYPOS =
uBUSQS

006240
006370
007454

$CKSWR

$CPUOP
$CRLF
$DBLK

001326

001212
025210
001302
001304
026214

$INTAG
$ITEMB
SLF
SLFLG
SLLCSR

001114
000000
000005
030176
030210
030203

SLPADR
$LPCSB
$LPCSR
SLPERR
S$LPVEC
$MADR1

027300

001250
001217
025426

010524
104406
104405
104401
104402
104404
104403
031143

$DDWO
$DDW1
$DDW2
$DOW3
$ODW4
$DDOWS
$DDW6
$DDW7

001306
001310
001312
001314
001316
001320
001322
001324

UNTMSK= 000007

$DEVM

001300

UNS
UPE
USE
uo
ul
ul

= 040000

=
=
=
=
=

020000
040000

000001
000002
000004
A%
= 000100
WATCH
001530

$DEVCT

$FILLS

SLLVEC

$SWREG

001244

001260
001264
001270
001222
001252
001256
001262
001266
001102
031070
030226

$TKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS
$TKSRV
$TMP0
$TMP1
$TMP2
$TMP3

$MSGLG

001240

$TN

= 000025

$TRP

= 000016

$MSGAD

$DOAGN
$DTBL
$ENDAD
$SENDCT
S$ENULL

021556
025416
021546
021412
021562

$MSGTY
MSWR
$MTYP1
sMTYP2
SMTYP3

$ENVM

001243

SMXCNT

001242

001520

000010
025100
022460
022465
022472
021560
025042
030614
026220
$SETUP= 000137

S$MADR?
SMADR3
$MADR4
SMAIL
MAMS1
$MAMS?2
SMAMS3
MAMSS
$MBADR
SMFLG
SMNEW

001232

$ENV

001171

SMTYP4

001236

$TMP4

001222
030215
001253
001257
001263

$1PB
$TPFLG
$TPS
$TRAP
$TRAP2

026530

$TRPAD

001267

027012
027011
027004

027006
027010
001160
027062
001174
001176
001200
001202

001204

001166
001173
001164
030342
030402

030414

CZRMAO&'?EE/yZ DSKLS TST 2

SYMBOL

$TISTM
$TSTNM
STTYIN
STYPBN
$TYPDS

. ABS.

001104
001116
030166

$TYPE
STYPEC
STYPEX
$TYPOC
$TYPON

025136
025212

056254

000000

ERRORS DETECTED:

MACRO v03.01

J 12
11-APR~80 14:12:35 PAGE 33-6

025664
026076
026216

025462
025476

000

001

VIRTUAL MEMORY USED:
53600 WORDS
( 210 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMQA.BIC,CZRMQA/(C=CZRMQA.DOC,CZRMQA,
SYSMA(C/M

$TYPOS
SUNIT
SUNITM

SUSWR
SVECT1

025436
001234
001110
001246
001272

SVECT2
$XOFF =
$XON
=
$XTSTR

SEQ 0152
001274
000023
000021
026232

$$GE T4=
$$5W08=
S$OFILL
.$X
=

000000
000025
025661
001100

CZRMQA 0 RM05/3/2 DSKLS TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-0S )
$$GE T4
$SWO8

$OFILL
$40CAT
$APTHD
SASTAT
$ATY]
$ATY3
$ATYS

$ATY(
$AUTOB
$BASE

$BDADR

13-20

23-6

23-6
23-6
2364
23-6#

23-4
23-6
4~991
23-12

23-12#
235
237

23-12
S-0#
5-0n
12-556
5-0#
12-708*
12=:34»
12=-=51»
12-a99+
12-C39+
19=44%

$BDDAT

$BELL
$8IN
$COW1
$CDW2

$CMTAG

SCNTLC
$CNTLG
SCNTLU

$CPUOP
$CRLF

$08LK
$ODWO
$ODW1
$0DW2
$0DW3
$DDWs

$DDWS

33-6
5-0#

12=-597+
12-759+
12-950+
12-<24*
12-a39+
12-C66*
19-124»
5-0#

23-2
5-0#

5-0#
23-8
23-8
23-8
5=0#
5-0#

13-20#

23-6
23-6
23-6
2364
23-64
23~4H
23-7

12
S11-APR-80 14:12:35 PAGE E S-1

23-6
23-6
23-6
23-64
23-64
23=4x

23-6
23-6
23-6
23-64
23-64

23-6
23-6
23-6
23-64

23-6
23-6
23-6
23-6#

8-62
9-56
12-673
12-15+«
12-731«
12=:64»
12=->57~»
12=-A28*
12-C52«
1965«
33-11

10=27*
9-65*
12-748
12=-35+
12=751+
12-:78»
12-738+

23-8

23-8
12-1

23-8

SEQ 0153

L£=991#

23-12

23-12#
23-12#
23-12#4
8-25+
8-72

12-603
12=-14x
12=730*
12-:63+
12->56*
12=A27*
12-C51x
19=45~
33-10
12-8«
12=-612«
12-760*
12-964*
12=-<25*
12-241
12-C80«
22=12«

10-46
12-808
12-36*
12=752%
12=:79%
12-739+«
12-A82«
12-C82*
19-96«

12-919
12=-67*
12-845%
12-<06*
12=260*
12-800+
12-C83«
19-97%

12-67
12-997
12=539+
12-846*
12=-<07+
12=761+
12-801+
12=-D01«
19-126«*

12=73
12-:39
12=540%
12-884~
12-<28*
12=-a31~
12-B53~
12=-D02*
19-127+«

5-0

12-106
12-:56

12-885+
12=<29*
12-a32*
12-854+
16=23*
22-15+

12-137
12=-=31
12=578»
12-910=
12=<66*
12=345*
12-874*
16=24*
22-16«

5-0

10-552+

12=-159
12=277
12=579~
12=911»
12-<67%
12-346*
12-875+

12-518

12-545

22-33«

12-326
12-812
12-605*
12=942*
12-<84*
12-a81«~
12-C28*
17=23+

22-34«

5-0#

5-04

5-O#

5-On

14-99

14-109

14-122

17-22+

23-7

8-19

14-22

14-60

23-8

CZRMQAQ RMOS5/3/2 DSKLS TST 2

CROSS REFERENCE TABLE

MACRO v03.01

(CREF v01-0S )

L 12

11-APR-80 14:12:35 PAGE S-2

SEQ 0154

$ODWE

$O0W?7

$OEVCT

8-74
13-204

8-93+

9-122+

9-149»

9-150

13-20#4

23-12

$GDDAT

23-6
23-6

23-6
236+

23-6+

23-7

237+

23-7
23-7

23-7+
23-7

23-7

23-12+
23-5
23-5

23-12+
23-5

12-12%
12-764*
12=-<04»
12-a97=
17-21«

12=-13%
12=775«
12-<30*
12=A26*
19-33x

12-788%

12-<68~
12-A80+

12=-33%
12-801x«
12-<86*

12-A99%
19~67*

23-7

12-209*

12-883»
12=>16*
12-B70*
19-128+«

s0ET42
$GTSWR
$HIBTS
$HIOCT
$ICNT
sILLUP
$INTAG
$I1TEMB

SLFLG
$LLCSR
$LLVEC
$LPADR
$LPCSB
$LPCSR
$LPERR
$LPVEC
$MADR1

SMADR?2
SMADR
3
SMADRS

23-6»

23-8+
23-7*
23-8
15-30«

23-8
15-42+

236+

23-6*

23-6+
15-32«

15-40+

12-551+
12-993«
12=259+
12-C47+
33-1

12-582+
12-:32«
12-326*
12-C48
33-3

12-599~

12-:62*
12-a27
12-C67

33-8

12=-607+
12-:80+
12-a40+
12-C81+»
33-9

SMAIL

4£-99"

499

5-0#

8-19

8-25

10-27

12-1

12-73

12-106

12-137

12-159

12-326

12-518 55526?22

MACRO v03.01
CZRMQAQ RMOS/3/2 DSKLS TST 2
CROSS REFERENCE TABLE (CREF Vv01-05 )
12-556

$MAMS1
SMAMS?

SMAMS3

SMAMSS
$MBADR
MFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
$MSWR
SMTYP1
MTYP2

SMTYP3
SMTYP4
SMXCNT
SNULL
SNWTST

23-7
5-0#
Phatod
5-0#
5-04

4-991#

23-12
23-8
5-0#
S-0#
S-0#
23-8
5~0#
5-0#
S-0#
S-O#
23-6
50w
12-1

12-1374

12-545
12-6734
12-997
12-=31#

$QUES
BR2A

$RDCHR

$RDDEC

SROLIN
$RDOCT

$RDSZ

$RESRE
$RMO2
$RMO3
$RMOS

SRTNAD

$SAVR6
$SAVRE

$SCOPE
$SETUP

$STUP

$SVLAD

5-0#
23-10
23-8#
3-10
23-8#
23-9#
23-8
23-1#4
14-33
14-29
14-37
13-20#4
23-11
23-1#4
8-19
4-984
8-19
10-27

4-984
4-984#

23-6

12-603

12-673

12-748

23-12#

23-12+

23-12»

23-12

23~12»

23-6
23-5

12-1374

12-159

23-6H
23-5
12-1#

121

12-545
12-673#
12-997
12-=31#

12-14

125454
12-748
12-9974
12-277

23-4x
23-4n
23-6
8-19«

23-4»
234w
23-6
13-20

23-11#
23-5

23-5

23-10

23-10
23-10
23-84
23-10

23-10
23-10

23-114
23-10
23-64

12-159
12-5454
12-748
12-997#
12=277

N 12
11-APR-80 14:12:35 PAGE S~3

12-808

12-919

12-997

12-73
12-159#
12-556
12-7484
12-:39
12=277#

12-734
12-326
12-556#

12-:39

12-;56

12-=31

12-?77

12-734

12-106
12=3264
12-603
12-8084#
12-.56
12-B12#

12-106
12-326#
12-603
12-808#
12-:56
12-812#4

12-1
12-5

12-808
12-:39%
12-812

12-326
12=556#
12-808
12-:394
12-812

13-20=

13-20+

23-6

23-8

12-73
12-1594
12-556
12-7484
12-:39
12=2774

23-7

23-11x
23-10

23-11»

4-984

4-984
8-19

4~984
8-19

8-19
13-20

4-984
4-984H

23-6

4~984
4-9844

12-B12

23-5

23-6

12-137
12-518#
12-673
12-9194
12-=31

12-137
12-518#
12-673
12-915#
12-=31

23-12«

14-1684
14-1694
14=-170#4

4-984
8-19
13-20
4-984
4-984H
23-64

SEQ 0156

237

4-984

8-19
23-7

12-91

o6#
18
~603#

$SVPC
(-988
L~988#

ikNlSiblNli\dadSletWSlSlelTSlWelilTgTCfifStTCllndStNlStetStSlStSlWSStWSlGWSMTS

r—

B 13
SEQ 0157

CZRMOAQ ~M0S5/3/2 DSKLS TST 2

CROSS Rt

ERENCE

$SWO8T

23-6
4-6734
8-19
12-673
13-20

$SWR

$SWREG
$ SWRMK
$TESTN

$TIMES

$TkB

STKCNT
STKINT
$TKQEN
$TKQIN
$TKQOU
$TKQSR

$TKS

$TKSRV
$TMPC
S$TMP1

sTMP?
$TMP3

$TMPS
$TN

TABLE

8-19

23-6

5-Ou
5-0#

S-On
23-8

9~4
23-8
23-8
23-8
23-8

S=-On
23-8
5-0#
12-267

33-11
SO

9-61
9-119
12-=15

S-0#
5=-0#
5-O4

SEQ 0158

12-748

23-6

12-919+

)

(-~684

S5-0#

4-685

v01-05

c13
11-APR-80 14:12:35 PAGE S=-4

23-64

23-6
23~-6
23-7
8-19

23-6
23-7

(CREF

MACRO v03.01

4685

4-685

12=1»
12-997+

12-326+
12-B12+

12-518+
14-46

4-685

23-6

12-545+

12-556+

12-603+

12-673+

12-748¢

12-808+

23-8¢

23-8+

9-46
9-106+
12-538+

9-48
9-107
12-711+

9-59+
9-118+
12-<45+

23-6
23-8

23-6*
23-8

23-6+
236+
23-8

23-8

23-8+

9-29+
9-96+
9-135+
12-A54
12-AS56*

9-30
9-98
9-136
12-896+

9-31
9-102+

9-33
9-103»
9-140

9=44r
9-104+
9-142

8-19»
23-5
23-8

23-8

10-39

23-8
23-8
23-8
23-8

9=13e
9-65
9-125
12-=23
12-=17
12=-A57+

9-14
9-75+
9-127
12->90+
12-=25

33-7

9-15
9-77

9-128

12->91«
12=>92¢«

9-20
9-81
9-130
12-769
12=->95+

33-4

9-139

12-C12

33-7

33-4

33-5

9-45
9-105+
9-147

33-6

33-7

33-1

L6740
12-137

$TRPAD

$TSTM
STSTNM

STTYIN
STYPBN
STYPDS
$1YPE
$TYPEC

23-10

A cal

S-0n
23-8
23~2#
23-3#4

23-5#
23-5

oooow
MMMV

12~:56

——— SV1VTVT — olelolels]

23-6

23-6+

23-7

$TYPEY

23-5

23=5#

SEQ 0159

CZRMQAO RMOS/3/2 DSKLS TST 2

CROSS REFERENCE
STYPOC
STYPON
$STYPOS

SUNIT
SUNITM
SUSWR
SVECT]
$VECT?
F
$XOF

$XON
$XTSTR
.SASTA
. $X
A6
A7
ABASE
ACDW1

TABLE

23-4#
23-4
23-4#

5-04
4-9914

S-O#
S-0n
S-O#
23-5

(CREF

MACRO v03.01

v01-05

)

E 1 13
§$=5

11-APR -80 14:12:35 PAGE £

SEQ 0160

16-24
9-69

9-81+

9-85

9-107+

23-5

23-6#4
23-12
4-991
4-930#
4=929#
4-981#

5-0

12-137
12=-545#
12-808#
12-=31

-0
-0

12=-137#

12-556
12-808#
12=-=31#

12=137#
12-556#
12-919
12-=31#

12-159
12=-556#
12-9154
12-277

12-15%
12-603
12-915#
12=277#

AMSGTY

5=0

5-0

13
SEQ 0161

CZRMQAQ RMOS5/3/2 DSKLS TSTM 2
MACRO v03.01
CROSS F7' ERENCE TABLE (CREF v01-05 )
AMTYP?
AMTYP?
AMTYP3
AMTYPL
AOE
APASS

APE
APRIOR
APTCSU
APTENV
APTSIZ
APTSPO
ASWREG
ATA
A

TESTN

ATNMSK

ATNTBL
AUNIT

AUSWR
AVECT1
AVECT2
BADTMO

BAI
8800
8801
8802
B803
BBO4
BBOS
BB06
BBO7
8808
B809
BITO
~1700
BITO1
BITO2

8IT03
BITO4
BITO5
BITO6
BIT07
BITO8
BITO9
BIT1

BIT10

BIT1
BIT12
BIT13
BIT14
BIT15
BIT2
113
174

5-0
5-0
§5-0
5-0
4=77684
5-0

{9594
5-0
23-5
23-5
8-19
23-5
5-0
4-7564

22:55

4-793#4
8-74
5-0

5-0
4-9824
5-0
8-3#

4-948¥
~8/7#
4-8778
4-8774
4-8774
4-877#
4-877#4
4-877#4
4“-877#4
4“-877#4
4-8774
6-68B#
4-688
(-688
4-688

4-688
4-688
4-688
4-688
4-688
4-688
4-688
4-688¢

4-688¢

4-6888
4-6884
4-688F¢
4-688¢
C-688F
4<-688#
4-688#4
4(~688#

EITS 4-688#

5-0
5-<0
5-0
-0
4L-787
5-0
23-12#
237
23-12#
23-12
5-0
25-58

22-56
-

8-93
5-0

5-0
5-0
5-0
8-21

25-77

25-78

23-12

23=-12#

6 12

11-APR-80 14:12:35 PAGE

SEQ 0162

25-81

25-82

25-85

25-86

25-60

25-63

25-64

25-67

25-68

25-69

25-70

10-M

ch=3a

12-;40
4-822
4-839
4-838
4-837
4«-877
4-877
4-834
4(-833
4-815
4-814

12-<54
4-840
4«-877
4&-877
4&-877
4~947
4~946
4«-877
4£-858
4-832
4-831

12-<99
4-877
4-951
4-951
4-£98

12-A41
4-951
4-968
4-967
4948

4-966

4-932
4<-877
4-877
4<-877

4-945
4-R8/
4-930
4-929

4-830

4(-857

4&-874

4(-886

23-12#
25-59

25-79
9-149

25-80

25-83

25-84

25-87

25-88

25-71

25-72

25-73

4-965
4-931
4-963
=942

4-944
23-6
23-6

23-7

4-928

4-941

25-74

5-0

12-:60
12->13

12-:74
12->16

12-:80
12-A63

12-<26
12-A65

12-<30

12-211
4-6884
4-6884
4-688¢
4-6884
4-688¥¢
4-688F¢
4-688¥
4688
4-688¢
4-688¢
12-256

12-526
4-700
4-C99
4-698
4-697
4-696
4-695
4-765
4-764
4-741
4-740
12-531

12-528
4-748
4=747
4-746
4-745
4=744
4-780
4-779
4-778
4-763
4-762
12-533

12-531
4-766
4-784
4-783
4£-782
4-781
4-818
4£-801
4-800
4-777
4=776

12-533
4~785
4-821
4-820
4-819
4-836
4~ 835
4«-817
4-816
4-799
4-798

4-694
4-737
4-758
4-757
4-756

4«-738
4-759
4-772
4-771
4-770

4-760
4-773
4-81y
4-809
4&-808

4-797

4=774
4-811
4(-827
4-826
4£-825

4-813

4-739

S=-6

4-761

4=775

4-812
4-828
4-847
4-846
4-845

4-829
4-855
4<-871
4(-870
4£-869

-848
+=872
4<-883
4(-882
4£-881

4-856
4-884
4=-927
4-894
4£-893

4(-873
4-939
4£-938
4-926
4-925

4-969

4-885
4962
4-961
4-937
4-936

4940

23-7
4-960
4-959

64-9%64

4-963

23-6

23-7

23-6

BIT6

4-688#

H 13

SEQ 0163

CZRMQAQ RMOS/3/2 DSKLS 1ST 2

CROSS REFERENCE

TABLE

(CREF

MACRO v03.01

v01-05

)

[ 13

11-APR-80 14:12:35 PAGE

S-7

SEQ 0164

BIT?
BIT8
BIT9
BOTADR
BOTFLG

4-688+¢
4-688#
4-688#
14=76+
14-61+

14
br
14~ 04

1497

14-112

14-15

BUFFER

%%~3?i

%%-323

12-688

12-814

12925

12-:03

12-:45

12-;63

12-=37

BUFONE
BUF TWO
cc

12-B19
33-23#
4«~873#

12-(58

33-22#

CHRONT
CKSWR
CLKSNC
CLOCK
CLR
CMNSTA
CNSLOO
CNSLO1
CNSLO2
CNSLO3
CNSLO&4
CNSLOS
CNSLO6
CNSLO7
CNSLO8
CNSLO9
CNTCLR

14-62%
23-6
12-a06
6-0#
4-9464
B-1M
9-11
9-55
9-63
9-67
9-79
9-83
9-100
9-113
9-22
24-21#
12-7
12-466

14-81+
23-7
12-B33
12-571
B8-82
9-18
24=-10#
24=114
24=124
24=134
24=14M
24=154
24-16#4
24-17#
9-35

14-87+
23-7
12-880
12-590
10-47
10-2#4

14-88
23-104
22-6#
15-13«
18-10

1491+

14-95

164=100*

14-111+

146-159#

15-27»

:
15-39«

19-88

20-14

9-50

9-144

24-204

12-28
12-480

12-75
12-495

12-108
12-547

12-116
12-610

12-139
12-679

12-162
12-750

1
1

9-125
31-186
8-6
24=9

9-136
31-187
8-25
24-10

14-79
31-188
8-25
24-11

23-5
31-189
8-39

32-11
33-30
33-44
33-58

24-14
32-16
33-32
33-46
33-60

31-118
31-190
8-56
24-16

31-178

24-12
32-14
33-3
33-45
33-59

23-5
31-189
8-50

12-80
19-106
4-841
12-720
12-904

19-119
12-589
12-721

12-643
12-722

12-644
12-725

12-658
12-726

BPTVEC
BSE

COMMA

CONT
CR
CRLF

CYLMSK
DBCK
DBEN

ISPLA
ISPRE
rHD

4-688«4
4L-8814

4-874n

9-138

4-834H
4-688¢
31-185
4-6884
24=7

32-3
33-27
33-41
33-55
33-69

4-863#
4-808%
4-8094
12-717
12-903

8-68

24-6#

32-5
33-28
33-42
33-56
33-70

14-707

32-9
33-29
33-43
33-57
33-71

146-110+

14-158#

19-82
20-28

19-106
21-10

19-107
21-1

8-19+
8-19

8-19+

23-6+

237~

4-B4ON

4-B41

12144

12-154

2026

20-27

5-0#
4-986#
4-82o4

32-18
33-33
33-47
33-61

12-659
12-831

19-113
21-18

19-114
21-19

12-589

12-620

8-57

31-179
10-2¢4

12-267

12-769

12-784

33-5

31-180

31-181

31-182

31-183

31-184

23-5

244

18-17

23-5

2417
32-20
33-34
33-48
33-62

24-18
32-22
33-35
33-49
33-63

24-19
32-24
33-36
33-50
33-64

24-20
32-26
33-37
33-51
33-65

24-21
2-28
33-78
33-5¢
33-66

2422
32-30
33-39
33-53
33-67

32-1
32-32
33-40
33-54
33-68

12-060
12-832
19-119

12-663
12-858

19-120

12-664
12-859

20-10

12-698
12-874

20-1

12-699
12-875
20-21

12-700
12-892
20-22

12-701
12-893

20-25

12-621

12-643

12-644

12-658

12659

12-660

12-663

12-664

12-681

12-682

12-698

12-699

12-700

J 13

12-701

12-717

12-720

12-721

12-722

12-725

12-726

12-755

SEQ 0165

.v\(0. oOO~.......%.%..%.Ho_%..n..w_..[a.VIaV]1oMwrn1in .moO!or
WCOEYNU’TwN1¥ENNOENOAi)RR.OT¥RCTENINzNE:N-~"O2—lNONMNMW8%87o8a[w1~)naN12M1W@[—oaNw]anVcOi5iBINaVWniIN3ogaNyVO—]SA383BNoa[NlNesa—NOdJeeeO=N—leOeeOlN—)
Vx)Y£MSySeyoityvvySySoyolo[OoNNANUNMoONoNYoMOo[0NMMTMYMoYoMNoMJo-NEXXN-EXGXNAXo-—yAcLOMoNaIceOaaxacaxwn-—r—VGOO[M"IaYNa
—
e
—
r
—
0
—
e
—
c
—
0
c
N
n
N
N
O
N
e
—
O
N
Q
0
V
O
s
l
e
—
M
)
y
[
a
V
¥
]
—
c
r
e
a
N
N
N
N
O
N
O
N
—
oo0][ N<8S[Vg¥o[]Ye¥3 $0 eRRy—[e0—oVO0aaneeMVNQON—I—\Aoaer>VON0—g—VO—N00O] —e—oOVoTT—oeN—No—O0lTVr=0NOy—y\ON
T0oTAONoNNO oeeayowwyynWV
—7NTe3—08~\N —NT(e7—O107\Oy
[Va)

[@ONa-UI]E—WlN—m

—e=0y —e—0

(CREF v01-05

)

N—

o
N
M
O
mgO—NUIMe—WNe- Voag[Il1}oVRI]o (VoM—IVT9]VMR}
o

—

~N ~N o

NNUL

~ ~N M

NNU —0\J

~NON
M

CROSS REFERENCE TABLE

MACRO v03.01

0\ —
T~

Oe[lTalal OO N
W=0O N—N =0\— MM
O— N0O —e—0\o,
oSnoNn 0ON0

CZRMQAO RMOS5/3/2 DSKLS TST 2

7Y
—c

21-19

M —M

-mo[} 0

O ONM—

o nwoaoa

W
W
L
W
W
W
W
U
U
[
W
a
Y
a
W
Y
W
a
Y
U
a
W
Y
U
a
Y
O
a
O
Y
O
a
Y
a
Y
=
X
=
)
E
l
a
Y
a
V
a
V
Y
a
Y
a
Y
a
Y
a
V
a
V
a
Y
a
Y
a
Y
a
Y
a
)
U
7
w
3
OeNFOaIoMnONTNeOTOJTTNNeOMeTNYOON>TePNTTT VN]oV]VYoNoVTMoVToMaV]VIoONoAIoMV—VIOVNM[aVIa2W—M N3ARxOxNIsNsWNs[TMM O--A—cR3RwIAWwRwwRaxo>>=0RTN0RRT ——
TM 2MT[N]yaVS—] %~~N NoTNONoTT vX Or OT0 yO<0 T7 lTTNe,)~e LTTPaNoIlNalnIdNION TT—NN—0
!T ! TUV¥0~) %W"0 oTMo (]—0O00OO—= ~tr— L-O|NMm
—

11-APR-B0 14:12:35 PAGE S-8

K 13
SEQ 0166

M—O~ —NONO oN~Oao7wy%n1

~ NO

[gV]

U] -

N~ N o
N~ -— LLa] 0

N a0 o
N - Mo

~N v (Vg
N - ~J wn

7-88
7-151

EFS

30-3

30-11

33-16#4

L 13
SEQ 0167

CZRMQAQ RMOS/3/2 DSKLS TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

EF57

EFT

EFT115
EFT130
EFT132
EFT2
EFT220
EFTS
EFTS7
EFT6S
EFT71
EFT74
EHT
EH115
EH130
EH132
EH142
EH145
EH150

30-4

30-8

7-3
7-91
7-151
7-94
30-9#
30-10#
7-6

30-2#

7-15
7=-127

7-18
7-142

30-11#
30-5#
30-64
30-7#
28-1

7-49
7-97
7-154
7-193

11-APR-80 14:12:35 PAGE S-9

30-10
7=52
7-100
7-157

33174
7=55
7-102
7-160

7=22
7-148

7-109
30-44

30-3#

7=52

7=55

7-58

7-202

30-8#

7-58
7=112
7-196

SEQ 0168

7-61
7-115
7-199

7-64
7-118
7-208

7=70
7=121
7=211

7-73
7=124
7=214

7=76
7-130
7-217

7-79
7-133
30-14

7-136

7-82

7-85
7-139

7-88
7=145

7-61
7=115
7-208

7-64
7-121
7-211

7-70
7-124
7-214

7-73
7-130
7-217

7=76
7-133

7-79
7-136

7-82
7-139

7-85
7-145

7-88
7-151

32-14

EH2

EH213
EH220
EH3
EH47
EHS
EHS2
EHS?
EH6T
EH6S

EH7
EH71
EHT1

EHT115
EHT130
EHT132
EHT142
EHT145
EHT150
EHT2
EHT213
EHT220
,EHT47
EHTS
EHTS2

7-100
7-160

28-17#4

28-34

EHTS7
EHT61
HT65
HT7
HT71
HT74
MS1
MS10

28=4#

-1

31-8#

7-103
7-196

7-112
7-199

28-1#4

EMS10C

27-50

27-54

27-56

27-62

27-64

2767

27-69

N 13

27-104

31-68#

SEQ 0169

CZRMQAQ RMOS/3/2 DSKLS TST 2

CROSS REFERENCE

TABLE

EMS101
EMS102
EMS103
EMS104
EMS105
EMS106
EMS107
EMS11
EMS110
EMS111
EMS112
EMS113
EMS114
EMS11S
EMSi16
EMS12
EMS13

27-104
27-60
3N-71#
27-67
3173
31-740
27-84
31-9#
3N-76H
31-77#
31-78#
27-06
31-80#
31-81#
31-82#
31-114
27-128
27-140
27-138
27-143
27-143
27-177
27-150
27-150
27-152
27-165
27-165
27-172
27-189
27-304
27-52
27-78
27-13>
27-203
27-261
31-90#
27-172
31-91#
31-92#
27-306
27-179

EMS14
EMS15
EMS16
EMS17

EMS?2
EMS20
EMS21
EMS22
EMS23
EMS24
EMS25
EMS250
EMS251
EMS252
EMS253
EMS254
EMS255
EMS256
EMS257
EMS26
EMS260
EMS261
EMS262
EMS27
EMS3
EMS30
EMS300

EMS301

EMS302
EMS303

En5304

MS 306

EMS307
EMS31

Enss1o
ms311
mMs312

27-50
27-58
27-72
27-65
e7-76
27-80
27-82
27-123
27-84
27-86

27-92
27-94
27-9
27-102
27-108
27-112
27-126
27-134
27-134
27-141
27-141

27-8
27-148
27-148
27-150
27-163
27-163

27-170
27-187
27-293
27-45
2745
2745
27-195

27-90
27-98
27-170
27-123
27-19
27-293
27-177
27-219
27-181
27-3
27-264
27-4
27-215
27-4
27-4
274

MACRO v03.01

(CREF v01-05

)

31-694
2r=-62

27-64

27=74

31-72#

27-88

31-75#

8 14
11-APR-80 14:12:35 PAGE $-10

27-70

SEQ 0170

31-70#4

31-794

27-132

31-12#4

27-318
27-328
31-16#
27-229
27=154
27-156
27-158
31204
27-350
31-224
27-193

27-320
31-154

27-337

27-339

27-355

27-371

27=391

27-233
27-156
27-158
31-194

27-238
27-158
27-160

27-249
27-162
27-241

27-330
31-174
27-357

27-335

31-24

27-373

27-393

27-366

27-382

27-408

31-214

27-261

27-266

27-282

27-287

27-308

31-83#

27-213
27-213
27-145
27268
31-89#

27-332
31-864
27-160
27276

31-854

85038

27-174
27-289

27-184
31-884

31-87#

27-174

27-344

27-360

27-376

27-406

31=-234

27-312
27-182
27-235
27-184
27-52
27-268
27-10
31-964
27-8

27-314
27-186
27255
27-191
27-78
27-330
27-13

31-934
27-278
27-259
27-193
27-114
27-335
27-15

27-395
27-280
27-203
27-117
31-954
27-45

27-396
27-283
27-207
27-126

27-398
27-285
31-254
27-177

27-410
27-328

31-244
31-34

27-201

27-229

27-233

27-238

27-249

27-261

27-123

27-132

27-138

27-145

27-160

27-167

27=174

27-184

27-15

31-97#

27-45
27-201

27-215
27-229

27-257
27-233

27-300
7-238

27-302
27-249

31-100#
27-330

27-335

31-171#

27-314
31-103#

31=-102#

27-130
31-134
27-197
27-145
27-147
27-201
27-152
27-154
27-156
27-169
27-167
27-176
27-191
31-84n
27-211
27-211
27-138
27-261
27-264

1-98#

31-14a

51-18#

EMS31T

27-15

27-132

27-138

27=145

27=160

27-147

C 14
27-184
27-174

31-105#

SEQ 0171

EMS337

EMS34
EMS340
EM5341
EMS342
EMS343
EMS 344
EMS 345
EMS346

EMS347
EMS3S
EMS350
EMS351
EMS352
EMS353
EMS354
EMS 355
EMS356
EMS357
EMS 36
EMS 360
EMS361
MS 362
MS363

EMS 364
MS 365

EMS 366
MS367

27-242

27-193
27-33
27=-371
27-50
27-193
27-112
27-86
27-125
27-128
27-104
31-132#
27-132
27-197
27-150
27-150
27-37
27-108
27-187
27-191
27-41
27-197
27-201
27-375
27-197
27-320
27-199
27-209
27-213

27-64
27=217
27-219

SEQ 0172

27=47
27-150
27-25

27-72
31-284
31-118#
27-179
27-140
27-116
27-121
27-43
27-384
27-60
27-4610
27-50
27-244
27-255
27-35
27-376
27-104

27-94

27-117

27-211

31-115#
27-162
27-152
27-156
27-64

27=-169
27-158
27-242
27-119

27-69

DRRIDR

2
27-31

NN
N

EMS336

27='7
27-19
27-17
27-17
27-189
27-21
27-25
27-29
3N-1134
31-1144
31-115#
3N-1164
2765
7=19
27-47
27-90
27-98
27-100
2762
27-33
27-375
27-35
27-406
27-48

D 14
11-APR-80 14:12:35 PAGE S-11

WRINUN)
— = NI
= NWNOOW—
®

EmMS314
EMS31S
EMS316
EMS317
EMS32
EMS320
EMS 321
EMS322
EMS323
EMS324
EMS32S
EMS326
EMS327
EMS33
EMS330
EMS331
EMS332
EMS333
EMS334
EMS335

POPNUNI
NN N NN

CZRMQ/0 RMOS/3/2 DSKLS TST 2
MACRC v03.01
(ROSS REFERENCE TABLE (CREF v01-05 )

27-203

27-119
27-125
31-130#4
27-130
27-128
27-138
27-237
27-152
31-135#
27-39
27-110
27-189
27-193
27-318
27-316
27-215
27-380
27-318
31-1434
31-144n
27-300
27-287
27-213%
31-'48%
27-225

1-7064
7-181
7=27

27-31

31-108#

27-246

27-261

27-282

27-283

27-293

31-117#

27-176
27-237
27-293
27-242

27-186
27-248
27-298
27-244

27-324
27-251
31-122#
27-244

27-353
27-298

27-369
27-304

27-387
27-300

27-404
27-308

31-120#
27-314

31-121#

27-251

27-295

27-343

27-352

27-359

27-368

27-112

27-121

27-339

27-344

27-355

27-360

27-371

27-376

27-391

27-395

27-136
27-253

27-143
27-270

27-154
27-282

27-156
27-2N

27-165

27-296

27-172
31-125#

27-182

27207

27-211

27-221

27-240

27-62
27-406
27-141
27-211
27-125

27-64
31-126#4
27-143
27-262
27-324

27-67

27-69

27-119

27-121

27-251

27-339

27-344

27-355

27-360

27-148
27-264
31-128#

27-154
27-266

27-156

27-268

27-163
27=270

27-165
27272

27-170
27-274

27-172
27-278

27-182
27-310

27-191
31-127#

27-205
27-134

27-276
27-141

27-293
27-148

31-1314
27-163

27-205

27272

27-274

27-276

27-278

27-310

27-312

27-145
27-242
27-156

27-160
27246
27-158

27-167
27-2%3
27-298

27-174
31-30#4
27-314

27-337

31-134»

27-235
27-259

27-240
27-280

27-259
27-285

27-326
27-287

31-137#
27-289

27-328

31-138#

27-364

27-368

27-121
31-129#

31-133#

31-1364
27-219
27-219
31-139#
27-322

27-225
27-223

27-227
27-231

27-389

31-1404

27-223
27-400

27-225
31-31a

27-227

27-251

27-316

27-343

27-348

27-352

27-359

27-302
27-289
27-219

27-314
31-1464
27-225

31-145#

27-227

27-231

27-235

27-259

27-32¢4

27-326

27-328

31-147#

27-227

27-231

27-23%

27-259

27-326

31-1494

31-142#

——

EMS37

27-203

31-32#

E 14
SEQ

0173

|oumesesnemeens
_u _— ——u -

CZRMQ/O RMOS/3/2 DSKLS TST 2

27-380

31=150#

27-248

27-328

27-332

31-152#

27-35
27-293
31-154#
31-155#
27-308
27-41

27-312
27-64

3i-1¢ o4
27-32 8

27-341

27-350

27-366

27-373

27-382

27-393

27-408

27-195
27-207
27-70
27-76

3144
31-334
27-337
27-80

27-96

27-333

27-337

27-362

27-378

27-385

27-402

27-4M

27-39
27-350
27-360
27-92
27-380
27-39
3 1654
2r=211
31-166#4
27-48
27-58
27-82
27-88
27-67
27-88

27-41
27-357
27-376
27-339
27-385
27-339

27-341
27-373
27-406
27-346
27-391
27-371

27-357
27-393

27-366
27-408

27-382

27-393

27-408

31-160#

27-353
27-398
31-164H

27-355
27-400

27-362
27-404

27-364
27-406

27-365
27-411

27-371
31-163#

27-376

27-213

27244

27-322

27-32¢4

27-102

31-169#

27-26
27-122
27-173
27-250
27-286
27-321

27-30
27-135
27202
27-254
27-297
27-325

27-32
27-142
27-210
27-256
27-299
27-327

2726

27-30

27-32

27-44

27-49
27=127
27-166
27-220
27-329

27-51
27-129
27-168
27-226
27-3n

27-102

31-1734

NN
= O W

— N

=20NNWN00
S0

\J\I\J\J\J\l?l
UL

S YSN—00

U
I
2
I
)
(NNINY
= — =

N = =200NIN—=

NNSNSNNN

POV

27-16
27-77
27-139
27-180
27-236

PRONLNLNNONONY

27-14
27-99
27-155
27-224
27-271
27-309
31-1814
27-14
27-281

POPVNONLNVLNND - NUNLDNL NN

31-404

YN
NO O
= NN

27-88
31-176#
31-36#4
27-231
27-235
27-240
27-246
27-300
27-255
31-178%
27-7
27-53
27-149
27-214
27-260
27-303
27-334
27-7
27-120
27-9
27-59
27-133
27-173
27-230

31-1614

31-171»

O WY

27-80
27-219
27-102

31-1674
31-168#

31=-162#

NN
= —

EMS503

SEQ 0174

27-364

—

EMS502

27-378
27-37
27-389
27-209
27-48
27-43
27-56

27-225

WO SO NN

EMS406
EMS407
EMS41
EMS410
EMS4 1
EMS412
EMS413
EMS414
EMS41S
EMS416
EMS417
EMS4L2
EMS420
EMS421
EMS422
EMS43
EMS44
EMS4S
EMS46
EMS47
EMSS
EMSS50
EMS500
EMS501

27-84

27-76
27-398
27-242
31-153#

N = =2 NWWNN
=

EMS402
EMS403
EMS4L04
EMS405

27-90

27-205
27-35
27-72
31-15%#
27-37
27-341
27-344

)

g VT U1, ST N1,V 1, 8)

EMSS

EMS4LO
EMS400
EMS401

27=72
27=227

v01-05

\.!\J\I\I\I\J
t
1

EmMS377

27-54
27-106
27-33
27-¢76
27-282
27-304
27-306
27-33
31-157#

(CREF

SNNNNNNN
LU

EMS370
EMS371
EMS3372
EMS373
EMS374
EMS375
EMS376

TABLE

11-APR-80 14:12:35 PAGE S-12

LASIASIASTAS
T, ST V1 U R

CROSS REFERENCE

MACRO v03.01

27-97
27-161
27-216
27-313

27-3%4,

27-336

27-338

27-340

27-342

27-345

G 14
27=347
27-349

27-351

27-354

27-356

27-358

27-361

27-363
SEQ 0175

p—

CZRMQAQ RMOS/3/2 DSKLS TST 2

CROSS REFERENCE

EMSS504
EMS505
EMS506
EMSS507
EMSS51
EMS510
EMSS511

TABLE

(CREF

27-367
27-399

MACRO v03.01

v01-05

EMSE

EMS60
EMS600
EMS601
EMS602
EMS603
EMS604
EMS605
EMS606
EMS607
EMS61
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67

27-383
31-183#
27-57
27-188
27-288

27-386

27-388

27-390

27-392

27-394

27-267

27-377
27-407
27-42
27-109
27-277

27-63
27-190
27-290

27-66
27-192
27-292

27-68
27-194
31-184#

27=71
27-196

27-75
27-204

27-14
27-42
27-73
27-101
27-131
27-161
27-194
27222
27-252
27-281
27-311
27-340
27-372
27-403
31-434

27-16
27-44
27=75
27-103
27-133
27-164
27-196
27-224
27-254
27-284
27-313
27-342
27-374
27-405

27-22
27=51
27-81

27-24
27-53
27-83

27-247
27-277
27-307
27-336
27-367
27-399
27-276
31-444
27-287

27-11
27-40
27-71
27-99
27-129
27-159
27-192
27-220
27-250
27-279
27-309
27-338
27-370
27-401
27-278

27-412

31-18%%

27-26
27-55
27-85
27-113
27-144
27-175
27-206
27-234
27-265
27-294
27-323
27-354
27-386

27-28
27-57
27-87
27-115
27-146
27-178
27-208
27-236
27-267
27-297
27-325
27-356
27-388

27-289

31-454

27296

27-332

31-474

27-119

27-121

31-64

27-266

27-268

31-192#

27-346
27-362
27-378
27-396

27-348
27-364
27-380
27-398

31-1964
31-1974
27-387
27-404

31-198#4
27-406

27-408

27-411

31-199#4

27-310
27-318

31-52#
27-320

27-326

27-346

27-362

27-378

31-534

27344
27-404

27-355
31-57#

27-376

27-389

27-39N1

27-406

31-564

27-411

31-594

27-43

27-48

27-9

27-38
27-68
27-97
27-127
27-157
27-190

27-103

31-1944

27-344
27-360

EMS70
EMS71
EMS72
MS75
MS76
MS77

27-372
27-403
27-38

31-42#

lEMS?7

MS73
EMS74

SEQ 0176

27-374
27-4605
27~40
27-105
27-269

27-370
27-401
27-16
27-89
27-258

27-218

EMSS2
EMSS3
EMSS4
EMSSS
EMSS56
EMSS7

)

H 14
11-APR-80 14:12:35 PAGE S$-13

31-65#
31-664
31-67#

27-69

31-634

27-32
27-61
27-91
27-120
27-151
27-183
27-212
27-241
27-271
27-301
27-329
27-361
27-392

7=3

14
SEQ 0177

CZRMQAQ RMOS/3/2 DSKLS TST 2

CROSS REFERENCE

EMTI0
EMT100
EMTION
EMT102
EMT103
EMT104
EMT105
EMT106
EMT107
EMTI
EMT110
EMTI1
EMT112
EMT113
EMT114
EMT115
EMT116
EMT117
EMT12
EMT120
EMT121
EMT122
EMT123
EMT124
EMT125
EMT126
EMT127
EMT13
EMT130
EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
[EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144

EMT145
EMT146
EMT147
EMT15

EMT150
MT151
MT152
MT153
MT154
MT155
MT156
MT157

MT16
MT160

TABLE

(CREF

725

27-17#

7-199

27-1364

7-28

27-194

7-31

27214

27-132#
27-134#

27-138#
27=-141#
27-143#
27-145#
27-148#
27=-150#
27=-152#
27-154»
27-156#
27-158»
27~-160#
27-163#
27-165#
27-167#
27=-170#
27=172#

27=-174K
27-177#
27=179#
27-182#
27-184Lk
7-34

27-187#
27-189#

27-23#

27-191#
27-193#

27-1954

271974

27-1994
27-201#
7-37

27-25#

7-40

27=274

7-43

27=29#

27-203#
27-205#
27=-207#
27-209#
27-2114
272134
27=-215#
27=-2174

27-2194
27=221#
27=223
27=225#
27=227#
27-229#
27=-231#
27-2334
27-235#

MACRO V03.01

v01-05

)

J 14

11-APR-80 14:12:35 PAGE S-14
SEQ 0178

EMT16Y

27-2384

SEQ 0179

CZRMQAO RMOS/3/2 DSKLS TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF Vv01-05 )

EMT162
EMT163

EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT2
EMT20
EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
MT232
MT233
MT234
MT235
MT236
MT237
MT24
MT240
MT241
MT242

27=240#
27=2424
27=244H
27=2464
27=249#
27=251»
7-46
7-193

27-255#
27-257#

7-202
7-205
7-208
7=-211
7-214
7-6
7-49
7-217
27=272#

27-25%4
27-261#
27=264K
272664
27-268#
27-4H
27-334
27-270#

27-354

27-374

27-3%#

27-41#
27=-3414

L 14

11-APR-80 14:12:35 PAGE S-15
SEQ 0180

EMT243

27=3444

1
SEQ@ 0181

N 14
CZRMQAQ RMOS5/3/2 DSKLS TST 2
MACRO v03.01 11-APR-80 14:12:35 PAGE S-16
CROSS REFERENCE TABLE (CREF Vv01-05 )
EMT244
EMT245
EMT246
EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265
EMT266
EMT267

27-3464
27-3484
27-350#
27-3534
7-64
27-355#
27-357#%
27-360#4
27-362#
27-364#
27-366#4
27-369#4
27-371#
7-67
27-3734
27-3764
27-378#4
27-3804
27-3824
27-385#4
27-387#4
27-389#4

EMT270
EMT271
EMT272
EMT273
EMT274
EMT275
EMT276
EMT277
EMT3
EMT30
EMT300
EMT301
EMT31

27-3914
27-393#
27-3964
27-398#
27-4004
7-196
7-130
27-4064
7=9
7-73
27-408#
27-4114
7-76

EMT33
EMT34
EMT35
EMT36
EMT37
EMT4
EMT40
EMT41
EMT42
EMT43

7-82
7-85
7-88
-9
7-94
7-1
7-97
7=-100
7-103
7-106

27=-564
27-58#4
27-60#4
27-624
27~64H
27-8#4
27-67#
27-69#4
27-72#4
7=-109

7=-112
7-115
7-118
7-15
7-121
7-124
7-127
27-90#

27-78#
27-80#
27-82#
27-10#4
27-84»#
27-86#4
27-88#

EMTZ27

EMT32

EHT44

MT45
MT46
MT47
MT5
MT50
MT51
MT52
MT53

7-70

7-79

27-76/4

27-434

27-454

27-484

27-402#
27-4044
2764
27-50#
27-52#4

27-54#4

27-74#4

SEQ 0182

EMTSS

7-133

27-92#

815
SEQ 0183

CZRMQAO RMOS/3/2 DSKLS TST 2

CROSS REFERENCE TABLE

EMTSS
EMTS6
EMTS?
EMT6
EMTE0
EMTOT

EMTE2
EMT63

EMT64
EMT6S
EMT66
EMT67
EMT7
EMT70
EMT71
EMT72

EMT73
EMT74
EMT7S
EMT76
EMT77

EMTVEC
ENBSCH
EQUAL
S
ERR
ERRNMB
ERROR
ERRTYP
ERRVE(C

7=
7-139
7-142
7-18
7=145
7-148
7-151
7-154
7=157
7-160
7-163
7-166
7-22

7169
7-172
7-175
7-178
7-181
7-184
7-187
7-190
4-688#
12-566
24-34
4=757#
1449+

(CREF

27=-100#
27=102#
27=-104W
27-106#
27-108#
27-110#
27=-112#
27=1144
27-15#
27=-117#
27-119#
27=-121#»
27-123#
27=-125#
27-126#
27-128#»
27-130#
8-19»

MACRO vC5.01

v01-05

8-19+

)

c 15

11-APR-80 14:12:35 PAGE S-17
SEQ 0184

12-637

12-692

12-818

12-929

12-:07

14-50+

14-53

14-58

14-63

14=1564

8-19+
23-6+

8-19«

8-2"+

8=22+

12-743

12-745

8-25
23-10
23-10

8-39
23-10
23-10

ERTYOO
ERTYO1
ERTYO?2
ERTYO3
ERTYOL
ERTYOS

12=:49

12=:74

12-242

12-297

12-824

19-3#

15-6

15-7

15-8w

15-9+

15-25+

15-46+

15-47

12-924

12-:02

12-=39

12-283

12-818

23-10

13-20

18-17
23-10

23-10
23-10

12-788

12-822

16-19

17-17

23-6

19-128

ESRC
FO
F1

12-564

GTSWR
CE

HCI
W(RC

4=7774

10-27
4-787
12-283
4-787

12-690

25=77

b md \ Y

23-10

GO0

12-816

25-78

25-86

4-986

TEEe

GE TBUF
GNS

A LAY

FER
FMT16
FNCDTB
FNCMSK

S, OO~

F2
F3
F4

—

HELP

9-37

33264
SEQ 0185

—

—_

CZRMQAQ RMOS/3/2 DSKLS TST 2

CROSS REFERENCE

IDXMSK

Ice
L

ILFO2
1526
ILF56
ILF30
ILF32
ILF3%
ILF36
ILFL0
ILFL2

ILFel
ILF46
ILFS4

ILFS56

ILF6h
1LF66

TABLE

25-85

25-86

(e
a2
-

25-70

25-7
71

25-73

25-74

25-75

25-76

12-126

12-165

12-222

12-238

12-428
2428

12-4
12-432

25-62

25-63

25-67

25-68

25-69

25-70

25-84
4-705#
4-715%
4-7168
4-720#
4-7204

95-87

25-83

25-71

25-72

26-73

L=7242

4-7574
4-708#

-732m

ILRC6G
ILRG66
ILRG70
ILRG72
ILRC76

4-916x
4-916K
4-9164
4-916#
4-916m

IOTVEC
IPCKO
IPCK1
IPCKS
IPCKS

4-688#
4-965%
L=-968#
L-9674#
4-9668

SC
ST
STOP

25-80

4-750m
4-720@
4-703

4-9164
4-916#
4-916#
4=916#
4-916#
4-916#

LODEV
5

25-79

4-750w
4-750#
4-730#
4=-7208

ILRGSO
ILRG52
ILRGSG
ILRGS6
LRGS0
ILRG62

LBC
(BT
CLOCK

SEQ 0186

25-8
-8

el
47320
121o-78

)

25-78

4-91ow

V0105

E 15

11-APR-80 14:12:35 PAGE S-18

558 18
14
$55%

I
i

ILRG?6

(CREF

MACRO v03.01

4-9164

8-19s

el3ear 2713
-

25-7"

2575

48864
47618
15-27

15-56

31-185

31-186

8-76
4-8384
4(-885#
{-839#
15-28

24-24

15-84

55-78

53-79

35-81

25-82

25-83

25-84

95-85

S5-8¢

53-87
.

=14

31-189

26-16

$1-189

31-178

31-179

31-180

31-181

31-1

1-1

3183

6=-0#

10=45+

10=53+

12-:60

12-.69

12-=13

F 15
12-=35
12=>90

12->93

12-781

12-816

SEQ 0187

=t L3S aanm -~

LSTRK

o(ea0w>%)hedwal2ad7ngJa>N—O—MWOWe—wzO
a—N%o-y—i7leE1OgsY4c,10Nw[VBaio[¥%Oa]1o[81n¥)aTVN8w~a]OV4Vsn]3u[NpO%)o.5o&i2e5S<b1Roos1z~ors2Ni1s9xM(~N01-oN)5-=NNpNn.O7NyaO0Ooo%D01lmNUe.M~\Oora—On“=)]meNeVo-4!—]2%oBO—yL[%1eax19po3ow1y4EvxoNoNoO8OB7]NVNV]OOVOe3yl3—]NQA%s7NoOVGeW.3OM9o-oVO£\”W)<Io~VN>N~O7WVAoyFAOVOA9IO2QOMN—MWNR—eNIO1[[OBYqV%pE2O1N——ooaOa—1HONNloe0n0OOnQNyZ%—NWNgOO~n0OuONNN%D7NtIOSnDNNOIS&ee—N—5bw&o2dM._
Ny

(9-4TbV-Ry4v~MN3oV—-4PRIMeRNy2R[=R2OePqoIVIO9&]ta0~TyM3V[o4bTlaN¥4—-T_—2b-ReP2RRNoY4b3=y4P4Y%T[YWT4-WAaYTV—]7RR48N9yowvN-MY4-n~2T—TONTMO—TrNN%N—UN-r—LIe1aeTO—Nl\DaN4N¥lY-O)SN>T4aR40TRLNT\4oO0eeN-®V—]rrOeV8LI3——TMOrNl8TeIo—rYu4PoNVeOTI4Mo-RVU—OeP4IeMV—eP4[O0rqV0eY?Y4—IO~a—V4OS 4TR5—oT—PreE5EaoN——NMIYr4VONN\—VIMIT4Oe&OTN—O4a-Y—0N044¥5¥
)) .O0|LTB0oV¥T"[TN<]a[OVa}"aelVV[la[Pi—vOTO]¥V’wLalVaM¥a¥~lTY’]lln1n'a]%ay-aY())l[])9 Yo-M[—} TOV]vVS0aND—O=PNeW—P[aO1=(lrrOUTa0Y—W—3NlMN1eVY¥areNLMO0OoOXOR—1—nOoaNR0NMY0—0Y—NO\!yNF] [—LMO\oIOMINeAN—TL-—aV[—)]rVrNONoVr—NY—]—o\VNOO]OeeA—O\ISXoNT—r—s~NVVReFOTNONYVOIU—IVT~VwWNOTIP=A—0IIoaoaO=—NVoV-IHuUlTOTie=gNNO~nNyVVerOo—I~NIt[nIGNMI=[QaN—Q=OVyOONmMOV|[T\TaON00TO—eA\@0ao—V—ooY[3-EY]O\NV1NeeaWM[I—n11l3ON03Va—oNWVoera(]O0l5ODV——aTNay-oc\V1O)Iin0O]—9d\~|NJ—
MVD[0[YoY]"VaaOal¥TYlOlaveT~aYy)aJ]l VOO0oNP—]\oJO=O—XNlOoN—N~Le0—ly ]oONoI~W01VTiWVlo—O[]NIVVeWa1MoVorNNoeWT[oAOIIanAVOeaAIeaNV—NVD—I]aPY 0r[M0NV] —O@aNoPI—]Nwey0~[Nn—rya\NV]0yOa0V
CZRMQAQ RMOS5/3/2 DSKLS TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF Vv01-05 )

11-APR- 80 14:12:35 PAGE S-19

G 15
SEQ 0188

PCOUNT

15~

15-65#

H 15

SEQ 0189

[

CZRMQAQ RMOS/3/2 DSKLS TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF Vv01-05 )

| PDA
PGE
PGM
PHA

PIP

PIRQ
PIRQVE
PLCLK

PLFS

PLSTP

PRO
PR1
PR2
PR3
PR4
PRS
PR6
PR?7

PS
PSEL
PSTOP

PSW
PUTBUF

PWRVEC

QUES
R6
R7

RD
RDCHR
RDLIN
RDOCT
RDY
READY
RECAL
RESREG
RESVEC
REX
RG
RH
RIP
RLEASE
RMAS
RMAS
|
RMASO
|RMBA
RMBAE
RMBAE1
RMBAEO
RMBA[
0

(-832#
4~9414

L{=762#
(-833#
L(~7584

L(-6884
L(-688#
15-54
(-830#
22-10
15-82
L-6884
L-6884
L{-6884
L-6884
L(~-6884
(-6884
(-6884
L(-6884
4-688
L{-9284
15-14

RMCSZ2

12-325

12-969

12-a79

12-a93

12-294

12-297

12-A17

12-.98

12-<04

12-<64

12-<68

12-325

12-A62

12-A64

15-58#
12-842

12-881

12-883

12=->52

12=>55

12-230

10-40

15-9

15-16

15-30

15-62

23-11+

23-11»

9-134

23-8

23-104

22-13

15-864

22-14

SEQ 0190
12-C21

12-C25

12-737

12-B44

12-851

12-B64

12-B70

12-873

23-11

23-11«

9-7

8-23

(-6884

6-0#
L-6884
9-57
L(-688#
L(-688#
4=729#
9-12

8-19=
9-94

8-19«
12-:05
9-43

23-9
9-58
(=934

9-95

10-29#
4-7074
14-152
L{-688#
(-8284
(-8264
4=-7304
4~712#
4-709#
4=902#
6-0#
6-0#
L=9754
L~978#4

MCS1

RMCS11
RMCS10

I 15
11-APR-80 14:12:35 PAGE $-20

4-9764

13-20

12-562+
4-9734
17-17+
12-85+
12-564+

8-82+

8-83+

12-688+
12~78+
19-85x
12-119«
12-690+*
8-86

12-:03=
12-119

12-;64*
12-172+

12-2374
12-180

12-285+
12-222+

12-820+
12-230

12-180+
12-:05+

12193+
12-:72+

12-199
12-240+
12-29

12-230«
12-288«
12-36

12-238+
12-822~
12-44

12-25

21-21

18-11»

SEQ 0191

O&6ON8MANS2”ONNON98IW%O9T\%O87NMMNZ2‘OOOS58N0?70O—3N2o.0}%O—13M=W7O2NNVO5P1N&~N%N4NAMOONAN%MeNT1—ON5NOO7ONM[o00o0~3NOWO—Ore——=OMMQNOOK0NMeO~NNvNCaxlo—oT]©OVMOOe\lNl~VOA—e—lNVo%aOYE.®mN\(eVo
[o—oN0[—VOoN-MOO—[VM—TVIVesO-Ix&]Le)%]&}}naaooaaVY0])V—NYNeITO—OV—oa7«TO«T&a[NVTVoYV]—V1oaI*De-RoP0o&AI«0&O-IIIVaVWNo—MIVIaTIoNWMoa~VAe&o«IaaN%IV«VIFOVVONaLVI0ONRoRV-yN&IaITe&«II«FVoMMaIAIRVOVNNONaG&-M&yUII&¥aoIOWAQTOVLNa[oN&1%NIV%*I&IaNo[VA~VTNOVIaII0oIO—-x(“«®«N|uaV[«I|o0¥V]aoM9«Ye7V0N-3-]«*oVINVVV—VORW-0RM=eO—ee(Y)—]u*&]]&I%IU—oNooiONFoN3OoeTTx&«NNN]&A1VNyNOoo—eVVNe—C~OTtTv]T0T8"%NOoyrVVRo—TTL17eVNL4oNTMo®I««[x|—«o0oVAVVNIIRNRR=NA[VDe[[—SN—w—%&]%)]ToaVa«oOo1VrVoIaSorMr—WV-—VTolV««N*T«o1]oIoWeM—OOoOVIaaNoeVNTalIn—IVoVRVnVrINrlA3TO[oVIIea=N%glxOTLaNIVaa[VOIW]aIVV—CaTVgNFeM-D[L«Nx*V|IT|T[a{aV[o¢-b—o¥~-** —o[o—~N-~w-o—¥IT -¥«"J{«—yn—aV)WOMOY—Nc—ooN-]VPe=OxVo&I)e|INoY]VWv[o]V—OeMrNaOrWeT&NV*&&m«&KV]3e—XoT\TaOeNoO%Vo&&IV*«eII—eoVIINVO[MMa—iIIdY—O*GIV&xaSxIooJIVVT]aeM0-aV—-VMX%S«I=SeI]O—TIo[Ry(rNoMOoO --er—~aON¥a——-«x-«L|U|V¥]—]T.1OToVNI-3Fo%VTV0VVVO-oo=-9.T—I]T*]]««V*L«|V)]No0ooo]TV3VN.OT0o—VVNVIgoIN0[VROR[VT——TT—W~NMo-V]a«&I«IooooV—aO\arIY[V01LOPrJVNO—aJ0]VEq(3O3II&LIn—V—V0a]LEO7IV[oQN([NM roMY-oa[M——-—xO*«eN|¥9VV||a—[[]IaTVa
—N—o—AJOe[a0W-v-LYVYi1TI&«l}o«MVaNV}0rNtIsTS-=o«Ta—oWDaVyVI-Nd—7TO®I\oTaIPOJTVN0oG&IVNaO[MNI~NVASRhOvPIoa]NMNTAOoVE&NIIORy\\oIJON]uANO[S—LK—TIDIaVoVBONtNaI'rN%La[«R0TV 1TVo0-—)aY-M~-Oo]%V&NVoGF)}VSe~-ToY®R«TrMoVoV—VNAX-&&&ReMyG—[NaO~N¥a§J—-O|]¥—V\\L[«—e]I o[2]bRo A) IN-Y&V-N-Ae®ag=oI}LXV¥—O]\1uV2uraMx=T][IVW—aXXei%OEMNV0[r]U9eNyda¥—2R0lVo—[~~**O]c"[e—e]a - 3OOYN[|aenVO%0YO-OAN-V0|oLx*MIo[0oON0RoI¥R-Oo---&o&SxrI—VTN«§VYV2ITKyRN[-o-[-O~-eN—*Nx|«—a VooL"--- M-NO-]T&R¥«®V«)r|y)o}BVVNN0LEFIIuG-NoY@-=-]d&B«S0VooOARVTVNIIRR[o9YN-O--WNM-*a®|m([[
N)-o O-o- oAVVIR—oVoI[ N73yLl MNmNNI
CROSS REFERENCE TABLE

CZRMQAO RMOS/3/2 DSKLS TST 2
(CREF v01-05

MACRO v03.01
)

K 15
11-APR-80 14:12:35 PAGE S-21
SEQ 0192

12->00% * 1212=>01r

12->02

12->22%

12323+

12=>26

L 13 12=>42%

12=>61*

12->43

12->57

12=->65+

”
12->66*

12->80+

12->82 *
SEQ 0193

CZRMQAO RMOS/3/2 DSKLS TST 2

CROSS REFERENCE TABLE

12-205+
12-a99
12-A93
12-C74
19-31
19-119+

21-12
22-25

6-0#
604
12-204*
4~910#
12-C39
6~04
6-04
4-507#
12-411
6-04
12-3%
6-04
4-7834
49064
6-04
6~04
4=974#
6-04
6-04
4-869#

MACRO Vv03.01

(CREF Vv01-05 )

12=207«
12-A16
12-801
12-C75
19-37x

12-220%
12-A22*
12-854
12-C92*
19-39

M5
11-APR-80 14:12:35 PAGE S-22

12-221
12-A28
12-863
12-C93+
19-45

12-239
}2-A37

SEQ 0194

12=745+
12~A4 3
12-887~
12-D02
19-57+
20-21+
21-36+

20-22+
21-38

20-25+«
21=41*

22=23*

21-11+
22-24+

12-149+
12-978+
12-205
12-387+

12-986*

12-987

12->74#

12->82

12-200+

12~<24

12-<29

12-=51

12-a46

12-C33

12-81+
12-444+
12-88+
12-4117
12-561+

12-218*
12-680+*
12-202
12-455
72=-:02*

12-224»
19=77+
12-232%
12-502+
12=:44*

12-232

12-266*

12-273

12-383+

12-389

12-405+

12-239+
12=505+«
12-,62%

12-245

12-273+

12-285

12-389+«

12-393»

12-=39+

12-783«

12-818+

19-77

19-120+

21-18+
22~34

12=246+

12-Abé4

12-888+
16~15+
19-82*

12-247
12-A72%
12-C04~
16-16*
19-89

12-382
12=A91*
12-€29
19=24+
19=113#
21-10+

12-392
12-A92+
12-C73+
19-25
19-114+

12-386+
12-52

12-563+

12-689*

12-815«

12-926+

12-:04+

12=:46*

12=;71»

12-=38+

12-287+

12-821+

19-78

12-73
12-:39
12-:10

12-106
12~;56
12-:52

12-137
12-=31
12=-.77

12-159
12-777
12-=45

12-326
12-812
12-a00

12-518
13-9
12-827

12-545

12-556

12-603

12-673

12-748

12-a03

12-830

21-64

12-531

12-537

4-8704
4=7114
4 7484

4 7444

4 7474
4 7464
4 7454

SCOPE

SCTCMP
SCTMSK
SEARCH
SEEK
SETLFS
SETOM
SETWV
SHUT
SIZCLK

SNGPRT

4=752#
14-16
4-9254
4-801#
48004
4-7994
4~7984
4=797H
4-688#
12-919
12-821
48034
4-7174

23-104

23-8
12-526

20-74

12-808

STACK

4-688#¢

8-19

12-1

12-73

12-106

12-137

N15

12-159

12-326

12-518

12-545

12-556

12-603

12-673 SE5261782

f—
e
—

CZRMQ+0 RMOS/3/2 DSKLS TST 2

CROSS REFERENCE

STANDA

12-808

TABLE

(CREF

MACRO v03.01

v01-05 )

8-63

12-919
9-34
=144

12-997

12=:39

10-34

18-22

6~0#

12-574

12-593

8-19
23-7
8-19

10-53

4-986
4-688#4

4-688#
4-688
4-688
4-688
4-688
4-688
4

.88

B 16
11-APR-80 4:12:35 PAGE S-23

12-:56

12--31

12-277

12-812

16-14«

15-28+

19-94

19-102

20-17

8-19
23-7
8-25

8-19+
23-7

8-19~
23-8

8-19x
23-8

12-=13

12=->93

15-71«

1573~

SEQ 0196

4-688#4

4-688#4
4-6884
4-6884
4-688#
4-688#4
4-6884
4-688#
4-688#4
4-688#4

14-17

SWS
Sw8

TA16

TA4
TA8

TADMSK
TAG
TAGADR

T1BITVE
TIME
TKVEC
TPVEC
TRAPVE
TRE
TRTVEC
1ST

TST1
TST10
TST11
TST12
TST13

10-53
10-45

10-27

5-0
15-58+

23-8+

8-19+

23-8

23-6

TST14

12-748%

236

SEQ 0197

CZRMQAQ RMOS5/3/2 DSKLS TST 2

CROSS REFERENCE TABLE

TST1S

TST16

1S117
TST2
15720
T1ST21
15722
15123
TST24
TST3
TST4

TSTS
TST6
1ST17

TSTNVB
TSTQUE

TYPBN
TYPDS
TYPE

TYPOC
TYPON
TYPOS

uo
U1l
U2

uBuUSQsS

WwCD
WCE
WCEHI

12-8084
12-919#¢
12-997#
12=73#
12=:39#
12-;56#
12- 31x
12-2774
12-B124
12-106#
12-1374
12=-1594
12-326#
12-518¢

14=45%
6~08
12-603

13-17%
14-145
13-20

(CREF v01-05

23-6

23-6
23-6

23-6
23-6
23-6
23-6
23-6
23-6
23-6
14=46*
10-4
12-673
18-11

$-56

4=9514
4-9514
9-42
4-7714
4=9554
4-9384

L=-894H
4-7654
6-0#
(-835#
12-:28
12-A80
4=7214
4L-9378
4=9624
4-9634

14-48
10-5+
12-748

1464=-1554
10~41
12-808

10-48
12-919

12-1
12-997

12-73
12-:39

12-106
12-;56

12-137
12-=31

12-159
12=277

12-326
12-812

12-518
13-11

8-104
9-57
9-139

9-11
9-63
9-144
14-99

23-10#

8-8

23-10#
8-42
4=9514

SEQ 0198

23-6

9-22
9-79
13-20
14-122

23-8
23-8

)

D 16
11-APR-80 14:12:35 PAGE S=24

23-6
2% -6

13-20
8-25
9-27
9-83
13-20
14-128

8-6

MACRO v03.01

14=60 .

23-7
23-8

23-8
23-8

8-53

24~-84
12-150

8-96

12-12

12-33

16-21
12-571»
12-760
12-:32
12-A94

16=-25
12-572
12=771
12-:89
12-C76

25-77

25-78

9-70

9-9

14-24

14-48

14-53

14-55

23-104

19-63
12-590+
12-775

15=74%
12-788
12-<16
19-26

15-76+
12-799
12- 60

19-88+
12-836

19-92
12-863
12->03
19-46

20-14~

12-C81

19-67
12-591
12-785
12-.90
12-C95

12-690

12-816

12-788

12-.01

19-33

12-=81
19-40

12-906
12->25
21-13

20-15

12-950

12=>44

21-33

9-14
9-67
9-152
14-105

9-17
9-73
10~24
14-109

23-7
23-8

23-8
23-8

12-965
12-222

12-989
12-248

12-993
12-A75

21-39

22-21

22-31

]

XS12
XXDP

8-67#
6~0#

9-123
8-30+

9-153
8~33+

E 16
8-34

8~36+

g-41

8-52

8-77

8-79

SEQ 0199

g%I8wgZDOMVWZW%PNAMWHLMTIHTTTWRF-o3
oI0IONR.<63fIal45W«J<7N*uaOv9N£*gM..MD=(N\78/YOW.AD%42%O=SO—ON8U?\0NNO1AWODreN1—M—r2—eNeum——w%NeQ0NRA0w7M4—uMNQ97M\O—8—~MwN%—7Wn9R&SuS9T79TuT&Q7EuUa&Eua&W1W2WmO1Owu&&S9S-Mi—efCB.NOM0vrCeSCQEAOWR
1r]LV (elal%r ¥** A& LCE¥OXRDOyoQAWARO—Ey> > wWWxo T

\N.WIvdJVVT—VOMMS—FNcN—]O.-I-oO]]ryloToeNVYOVoVOuMo—oTN——TnTNNT—,WNP)lIaroodOV—olN%nOI——=niMhTTVMdeoM1oVV%ONNyV—0TOITVToIeSMNVoN~oaTVAOVynaMNaTeoTOnIITdIOkoV—V[—?eVVTONTW-— NL-MO[TtIa[UIY%MlMTVoaasNV-¥YYN[4eTO-c N¥(|VI2.[Yo+]N=ONI%NWSM0OreNNNaeLU[yr=PNONNOON—W.%MSTTYIOSNNYN7%TFAiINLRoNAURN.W0MNTNYM4N0AWO%[+VVVIIIo-ONR)&T WN—O -OPV -MA&-]2!JL].—~—(Io>[9oV%NVTIQ[oTa—OQdAeoVaNr0IY¥-aOOo0U-ITMV—P.0odYN0g1oro—ROw)V%\a—NeNT[o-(-— TMwWVLraM-—OC%a——1Vo~]NraVPr3IOY0—WPyV—.eO—T,W]IBAPT8—@AANo4¢%ROATI8N5r8I%Aw9S”IR5aLNVI€%)RoTVMQI8]AoWVTI3.OToRVAT8MV18Wo%6IoI.W8VVI9RTM5oWV%O8]MVoV-I.I6LToWVP%T6o.8VIOANMT8P&V.0AIWTRELQSGR&a0Nn.AoIdMsET0.A0IM—N0oo~¢OT0I.¢M>EoT¢0%SdIA1uB-C8—o.NM—woLpoN—M~o3Ts1Pm[](ea}]}0hV—[erwlV[g—IN2i2~NJ0aea]——sVnNI0l]\—a.o-VoT0-oeO~P<oggO-O)!)0iV—V]l,C%NRT“N—N%[w?[VTWsV["VE]]oaa%IsW
NV—7MLAoW¥3——BOON])n|dNo0WVMN2-To]ONAI—N)OoYT—NNV%NOoUTT1VlMWIo|—O~IVWN6oTJ'-*NTM—IkIIT+INooaNVO0ANo07—MTOIToMIlIIU0SooayNO2To=IY—-OMT[NLVIILNL[Y~MOVMO¥6I—2o—TAlD-r|NOL[|V2VOASNMN0OVRARULUN0eBOY—0AATUe—OMOYSrAMR0LWSeU—AOTIA~~—NrROAInU—[NNIR(s3W o-A[NO 1o[)U ]—NNYao V)oN—[J || |[eN[[oN O-oo rMNN 3W-M~ o¥a3J!J VO]V——]e] oNoOOONO-}]!]yVNN,Io[M-NOoN-[vw3-§§]]ILaV0
TOR)NTINoMRVA10NyVI—E,TMIMR[VeORS4VNoNTUO\oNBQ8OU¥URUNBO NwoY!n ] O3oOY[]V3I2[S5.|0a}
|
CROSS REFERENCE

CZRMQAQ RMOS/3/2 DSKLS TST 2
TABLE

(CREF

v01-05

MACRO Vv03.01

OTOMNT

)

11-APR-80 14:12:35 PAGE M-1

F
16

SEQ 0200

)

CZRMQAQ RMOS/3/2 DSKLS TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF Vv01-05 )
GETAS
GE TBA
GE TBAE
GETCS1
GETCSZ2
GETDA
GETDB
GETDC
GETDS
GETDY
GETECT
GETECZ2
GETER1

G 16
11-APR-80 14:12:35 PAGE M-2

SEQ 0201

L2784
4=1424
4~2864

12-486
12-503

12-449

12-485

GETERZ

12=470

12-504

GETMR1

12-880
12-<95
12-A93

GETHR
GETLA

22-9

GE TMR?

12-577

12-596

12-612

12-622

12-905
12-=59
12-B43

12-949
12-=80
12-B63

12-964
12->02
12-€20

12-988
12=->24
12-C75

12=-:27
12->43
12-C94

22-25

GE TOF
GETPRI
GETSN
GE TSWR
GETWC
GETX
MSG

12-518

12-545

12-556

12-603

12-673

12-748

12-808

MULT
NEWTST

12-518

12-545

12-556

12-603

12-673

12-748

12-808

NWTST

12-518

12-545

12-556

12-603

12-673

12-748

12-808

POP
PUSH
PUTAS
PUTBA

23-1
23-1

23-11
23-11

23-12
23-12

23-12

16-19

17-17

19-61

19-85

12-382

12404

12-465

12-482

12-501

12-427

12445

12-483

12-497

19-76

12-502

PUTBAE
PUTCS1
PUTCSZ2
PUTDA
PUTDB
PUTDC
PUTDS
PUTDT

PUTEC]
PUTEC?2
PUTER1

PUTERZ2
PUTHR
PUTLA

TMR1

17-16
4=434n
43864
4=4420N

19-75

12-167

12-174

12-226

12-268

12-366

12-426

12-443

12-481

12-500

16-17

17-15

12-169

12-177

12-227

12-269

12-384

12-406

12-447

12-466

12-484

12-498

16-18

12-589

12-620

12-621

12-643

12-644

12-658

12-659

12-660

12-663

12-664

12-681

12-682

12-698

12-699

12=700

12-701

12=717

K16

12=720

12=-721

12-722

12725

12-726

12755

12-757 12758

~oMo-NOw—rnVNawNo0Mo o]ooO—3.]t0XrAa4—a¥V[NTIV0SeO—aaVYO_N[—Ia@—haVOL]0~VIeeV]A,a—VYER(NeRot L[MoOagVd]MNo@N-Noo o—-~]OC—Ny (Mo oSNN— [V+I—RaecTAIN1N-OOFora¥NWNoV@NoOMNNtOINoOOIlNITOINCoV\rlNNIeIOXMi—eOIOoNtlOOOMlvIONeNUAQ—lNOOIMNLONWOANaNYn.Nd
—0([}=]] 3Voa—[ee-}](PUYa~roRoooo—Ve[4=[V[B—]o]ll}]aI1aIaT9—eVV[MVaMINONaAwOIwdI—0VaV0IroaLanI]IV0ieO1V0JVaiIal—VJiINeaNIiNaaLVO3a5Ly0TV—N]VAo\,,~]]|]lk, (o(o- o% MM[oM-Mo-N MV9=]]1y]—V]]] oo ~-N ~-o-w40O-~No©~—]!|N—]NvL5—y7%0Nea—WN000N—0A——aV—r\OL| I\\\JNCOUnOA—rAVevao-NA—Nrl0OA—NaA—NNWrOO-—NNdIOVNrOa\IQNMLDnr——WNIIlAONTArnINNraMNAN-N=-mM~NI0lOII0NroAOOOeVNasN—INN0II)NIOOrVI~e—NONA—U1IOIOI-ANeN0L—OWQMNOOM-—NO|4O

bY0IORAe22lU-T0aYo2NdR1NAYoTM2RwnYP3—-Q2AR260%=To1WITO4NVL-oAO]gNNI04lkNYPONRITN4—M[dX?Tax4vAnA4u®LrvOUn-O%o4AuM0Rn3ev43uAbnVM49~W3RuVernN4—TI AN—%o4—n0wg4mQ2¥R22—TAlV2-— oTNY32I-E4Vo(R4—IT=2IrO3TeVVr46L=Yr49TWeVrO41PAeT42TOe4NeTO2N4R0%T4MN
X~0)]113U <A~—]]!T o=]]][aON——V0aiOXaVANI[[iTaOWaN—~3]VIOoA[R N[.A] Loo0NVa[[lo1rOaY)[r—oa]VnIeaVwoMEJ] —]1 R)m[3nER Je0O~ N5~ —oo!|~J-Ma=FNO01ecT—~ONWNyN1)0ImBOaNNNOI0vNNIvOU[ 1N0VE—I1IUMOPIMONJNNOP1
-[— =0—[N -!] — —|0—NNr—OrI—Ir—IrIIe—L

Noo-(WoV28X@=a—o]TV7O>WN—OT<3-8aO[V>3@O>8=S>L3ToW3%G3L@>DMO2D0oNO09—o]—Joa3e.etOde3(—C,-Meoa——8NVe%[NIoONe8|-eVNaOa—V—M0RMO1Y.IN%aa0CNNVN%%ITOe8—a18IMWN—NATTOS8awIw&evXBLMWBO1W=rh-o-—oM=O—V]8FoM-Iba=y0YOa0MWSe,0IV&RAIWR.[M—oSObaLNMVf‘L®eW%AMaIelIbadZRWIXIIOQa6uBo%MoW0OAJF8L=n0-M2[o(ANw-56a—,a)lDC4%WVNo ACa-70]AN9-—o.COONVr—C09].75|vO.gM\rOANA.%NTNO61NrN-oVNII7MIl9oIeNNIe:oIAI—M—6NN5E)lIO?rmNXI1IsUoe—*AkOerlllrM51NN2—oIoIOOQ82NIlUrOeOnO—LNMVNO—102oyNnOeOd
:
CRCSS REFERENCE

IRMQAQ RMOS/3/2 DSKLS TST 2
TABLE

MACRO v03.01
(CREF vO1- 05 )

11-APR-80 14:12:35 PAG £ M3

I 16
SEQ 0203