Digital PDFs

AH-F931A-MC

June 1980

343 pages

Original

17MB

view download

OCR Version

15MB

view download

Document:	CZRMPA0 RM05-3-2 RM05-3-2 DSKLS TST 1 JUN 1980 bw
Order Number:	AH-F931A-MC
Revision:	000
Pages:	343
Original Filename:	CZRMPA0__RM05-3-2__RM05-3-2_DSKLS_TST_1__AH-F931A-MC__JUN_1980_bw.pdf

OCR Text

RM05/3/2

KMOS/73/2

CZRMPARO

DSKLES

T51

AH-F931A/-MC

EICHE 1" QF 2

IN USA
HADE

BD@DflEfl

RH05/3/2

RYMOS/3/2

CZRMPARO

DSKLS

TST

AH-F931A-MC_—

ETCHE -2

OF 2

aiim.
.o
COPYRIGH T®

MADE IN USA

CIETE]

CZRMPAQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

1
B
11-APR-80 13:58:55 PAGE 1

b ek
b o
b
b wed
b
b

OV NARWVLLMANN
2O V00NN NN -

SEQ 0001
\

.REM

IDENTIFICATION

PRODUCT

CODE:

AC-F930A-M(

PRODUCT NAME
:

CZRMPAO RMO5/3/2 DSKLS

DATE

APRIL

CREATED:

TST

1980

MAINTAINER:

(X DIAGNOSTIC GROUP

AUTHOR :

MIKE

LEAVITT

THE INFORMATION
IN THIS DOCUMENT IS SUBJECT TO CHANGF W]THOUT NOT!CE
AND
SHOULD
NOT BE
CONSTRUED AS A
OMITMENT
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 (AN 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
8TGI$£UABIL”Y OF
L.

(C)

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

1980 DIGITAL EQUIPMENT CORPORAT]ON

MACRO v03.01

1
¢
11-APR-80 13:58:55 PAGE 2
CONTENTS
INTRODUCTION
1.

ABSTRA(T

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

HARDWARE REQUIREMENTS

2.
3.

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE

2.
3.

SWITCH OPTIONS
STARTING

CPERATOR

2.
3.

INTERFACE

PROGRAM ID

PROGRESS REPORTS
PERFORMANCE REPORTS

PROGRAM HALTS

ERROR REPORTS

ENVIRONMENTAL SUPPORT
1.

NONN

OOV

—d el wd e

aed

d ied

)

NN = OO 00 NN

NN —

rCZRI‘PPO RMOS/3/2 DSKLS TST 1

PROCESSOR COMPATIBILITY
DUAL PORT CONF IGURAT]ONS
MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

SEQ 0002

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO v03.01

1
D
11-APR-80 13:58:55 PAGE 3

1.0

INTRODUCTION

1.1

ABSTRA(T

THE RMO5/3/2 DISKLESS DIAGNOSTIC

FUNCTIONAL

AND DIAGNOSTIC MEANS

IS A STAND ALONE PROGRAM WHICH

TO VERIFY

THE OPERABILITY OF

b d

IN THE RH MASSBUS

TO DETECT ERRORS AND FAULTS

IN THE RM MASSBUS ADAPTER;

1.2

NN =

TO RESOLVE HARDWARE FAILURES
REPLACEABLE MODULE OR MODULES.

= OV

bbb b

TO DETECT ERRORS AND FAULTS

CONTROLLER;

IN THE RH/RM TO A FIELD

UNIT UNDER TEST

THE UNIT UNDER TEST (UUT)

IS THE RM05/3/2 DISK SUBSYSTEM, EXCLUDING

THE STORAGE MODULE DISK DRIVE AND THE RH11 OR RH70 MASSBUS CONTROLLER.

25
26
sg

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

31
32

THE FOLLOWING MINIMUM HARDWARE
C(ONFIGURATION,
ASSUMED
TO BE
OPERATIONAL,
IS
REQUIRED
TO
LOAD AND EXECUTE THE RMO5/3/2 DISKLESS

DIAGNOSTIC:

35
36
37
38
39

PDP-11 PROCESSOR
24K MEMORY
KWw11-L OR KW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

40
2}

RH11 OR RH70 CONTROLLER
1 TO 8 DISK DRIVES (ANY COMBINATION OF

2.2

47
48
49

50
gé

53
54
55
56
57

USES

THE RM0S5/3/2

DISK SUBSYSTEM EXCLUDING
AND
INDEPENDENTLY
OF
THE
STORAGE
MODULE
DRIVE.
IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES:

)

NN = O V00NN

SEQ 0003

MEDIA REQUIREMENTS
NONE

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS

NONE

3.0

OPERATING PROCEDURE

RMOS'S,

RMO3'S OR RM02'S)

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-1

SEQ 0004
3.1

LOADING
THE PROGRAM MAY

STANDARD

PAPER

TAPE

LOADED

APPROPRIATE LOADING DEVICE.

3.2

EITHER

PROCEDURE,

PAPER

XXDP

TAPE,

THE

SWITCH OPTIONS

THE FOLLOWING SWITCH OPTIONS ARE
SWITCH IS ON.

INVOKED

SW15
SW14

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)

SW12

UNUSED

Sw10
SW09
Sw08

BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SW07-00

Sw13

WHEN

THE

APPROPRIATE

INHIBIT ERROR TYPEOUTS

SwW11

INHIBIT TEST ITERATIONS

THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8
A PARTICULAR TEST WHICH THE PROGRAM WILL LOOP ON.

3.3

USING

MEDIA, USING THE

SPECIFY

STARTING PROGRAM

THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT
VALUES
OF
?SR??S&ERS AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

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

TIME

_.—A_A—l—l—-l—l—._n—l—hs—l
—_—— OO
(=]
o

101
4.2

PROGRESS REPORTS
AN END OF PASS REPORT OCCURRS EACH TIME

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

4.3

QUE.

THE

THE PROGRAM

END OF

PASS REPORT

EXECUTED

INCLUDES A

PERFORMANCE REPORT
NO PERFORMANCE REPORTS ARE GIVEN

PROGRAM.

DURING

THE

EXECUTION

THE

€2

o OO

d ced d i

NOLY

od d h

D D

d e

WA = OV
NG N

D d D e e

d o

D e

)

b -—

W 2OV~

CZRMPAQ RMO0S/3/2 DSKLS TST 1

MACRO v03.07

4.4

11-APR-80 13:58:55 PAGE 3-2

SEQ 0005

PROGRAM HALTS

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

4.5

THE PROGRAM.

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

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
g?;fi Tg‘RTININENT
LTS.

THE

ERROR,

INCLUDING EXPECTED AND ACTUAL

TEST

141

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

P amd = wd

5.2

D d ad ——d

DI
A SAEA S NVvl
elo RNTe NV, P NV ],V

THE
RMO5/3/2 DISKLESS DIAGNOSTIC
IS
EXECUTABLE
ON
ANY PDP-11
;??CESSOR,
PROVIDING
PREVIOUSLY
MENTIONED HARDWARE REQUIREMENTS ARE

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

DUAL PORT CONFIGURATIONS

DISKLESS DIAGNOSTIC

IS NOT EXECUTABLE ON

RM0S5/3/2

—h and b md wd cd cpd =D

THE RM05/3/2

5.3

MEMORY PARITY HARDWARE

MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE
THE RMO5/3/2 DiISKLESS DIAGNGOSTIC.

5.4

EXECUTION

MEMORY MANAGEMENT HARDWARE
MEMORY MANAGEMENT HARDWARE WILL

NOT

BE USED DURING THE

RM05/3/2

€2

MACRO v03.01

.1
G
11-APR~80 13:58:55 PAGE 3-3

SEQ 0006

DISKLESS DIAGNOSTIC.

5.5

ACT11, APT11

COMPATIBILITY

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

gsSgUTE A QUICK PASS DURING THE FIRST PASS

IN SUPPORT OF

QUICK

VERIFY

5.6

XXDP COMPATIBILITY

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

XXDP

Ny
=—

b o

D e

D md

)

D and D b e

D o

)

D e

D o

-—

288383 R REC L E B EIRRRETRBIIIFININ

CZRMPAQ RMOS/3/2 DSKLS TST 1

5.7
S

OPERATING SYSTEM COMPATIBILITY

QTE;HE
YS

6.0

PROGRAM IS NOT REQUIRED

TO BE

COMPATIBLE

WITH

ANY

OPERATING

TEST DESCRIPTION

THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST
?Eg%RALLY
USES
A
MORE
COMPLEX SUBSE: 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 TO SINGLE,
NONTRANSIENT HARDWARE FAILURES.

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

RH70

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

THE

TEST

THE MODULES WHICH MAY BE
TEST ARE AS FOLLOWS:

CALLED OUT DURING THE EXECUTION

MASSBUS MODULE
THE RADIAL MODULE

(RD)

IS NOT

TESTED BY

THIS PROGRAM.

THE

—

| CZRMPAD RM05/3/2 DSKLS TST

MACRO v03.01

H
1
11-APR-80 13:58:55 PAGE 3-4

SEQ 0007
TRANSFER TEST

:
PURPOSE

TO VERIFY THAT THE RM05/3/2 CAN COMPLETE A REGISTER TRANSFER

ON THE MASSBUS, AND,

IN PARTICULAR,

NOT STUCK IN AN INACTIVE STATE.

TO VERIFY THAT

'‘TRANSFER'' IS

PROCEDURE
:

THE PROGRAM
WRITES
AND
SELECTED
DEVICE.
REGISTER

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

FAULT:

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

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

CTOD

IF MODULE

ASYNCHRONOUS MASSBUS MOD JLE

(S MODULE

THE

DEVICE

TEST
PURPOSE
:

TC_

VERIFY

THAT

DATA

CAN

TRANSFERRED TO AND FROM THE

RMO5/3/2 USING THE CONTROL BUS AND, IN PARTICULAR,
"'CONTROLLER TO DEVICE'' HAS NOT FAILED.

TO VERIFY THAT

PROCEDURE
:

THE TEST WRITES ONES IN REMOTE
REGISTERS
THEN
READS
FACH
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 MODULF

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-5

MASSBUS

INITIALIZE

SEQ 0008

TEST

:
PURPOSE
TO VERIFY
THE MASS BUS.

THAT

THE MASSBUS ADAPTER

[S BEING

INITIALIZED

B8Y

PROCEDURE
:

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 (ONTROLI.ER CLEAR.
PROBABLE

FAULT:

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

€S MUDULE

o
d
b

OO
W

WWNWWNWW

312

319

CLEAR STUCK ACTIVE

TEST

PURPOSE
:

TO VERIFY THAT "MBA CLR L'' ON THE
AN ACTIVE STATE.

CS MODULE

IS NOT STUCK

PROCEDURE
:

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

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

PROBABLE

FAULT:

(S MODULE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

TRISTATE

TRANSFER TEST

PURPOSE
:

€2

[;ZRMPAO RMO5/3/2 DSKLS TST 1

MACRO v03.01 11-APR-80 13:58:55 PAGE 3-6
J

SEQ 0009

TO _VERIFY THAT THE PATH TO
AND
FROM
THE
MASSBUS
ADAPTER
TRI-STATE
REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH

BIT POSITION IS INDEPENDENT.
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
QSSI%§ON~ECESSARY
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

:
PURPOQOSE
TO VERIFY THAT
POSITION.

THE REGISTER SELECT LINES ARE NOT

IN A

STUCK

PROCEDURE
:

EACH REGISTER SELECT LINE IS
TESTED
BY
WRITING
ZEROS
|IN
THOSE
DEVICE
REGISTERS
FOR
WHICH
THE LINE MUST BE ZERO, THEN
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE

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

K
1
11-APR~80 13:58:55 PAGE 3-7

MACRO v03.01

SEQ 0010
400
4«01
602
403
404
405
606
407
408
409
410
(38
612
413
4146
415

PROBABLE

DRIVE

FAULT:

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

TYPE

TEST

PURPOSE
:

TO TEST THE 'DRIVE

416

TYPE'' REGISTER,

RMDT.

PROCEDURE
:

417
418
419

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

FAULT:

IF MODULE

DEVICE AVAILABLE

TEST

PURPOSE
:

TO VERIFY THAT DEVICE AVAILABLE

STATUS IS SET.

PROCEDURE
:

THE PROGRAM TESTS 'DVA'', BIT 11
PROBABLE

OF RMCS1.

FAULT:

IF MODULE

HOLDING REGISTER TRANSFER TEST

:
PURPOSE

TO_VERIFY THAT THE HOLDING REGISTER IS
NOT
STUCK
STUCK AT ZERO, AND THAT THERE IS NO BIT INTERFERENCE.

ONE,

PROCEDURE:
THE PROGRAM

TRANSFERS

ONES,

THEN

ZEROS

THE

HOLDING

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR~80 13:58:55 PAGE 3-8

SEQ 0011

22;

459
22?

THE PROGRAM
TRANSFERS
ZEROS,
THEN
ONES
TO
THE
HOLDING
REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ZERO.

462
422

FINALLY, THE TEST TRANSFERS A SHIFTING ONE BIT
VERIFIES THAT EACH BIT IS INDEPENDENT.

265

PROBABLE FAULT:

467
468
469
470
4N
472

466

THE BITS ARE STUCK AT ONE.

PATTERN

AND

IF MODULE

2;2

CONTROL STATUS #1

2;2

PURPOSE :

477
478
479
480
22}

TO VERIFY THAT BITS 01 THROUGH 05 OF (ONTROL STATUS REGISTER
1
_ARE
NOT
STUCK
AT
ONE
OR
[ERO,
AND THAT THERE IS NOT BJIT
INTERFERENCE.
PROCEDURE :

483
484
zgg

THEN
ONE.

487
488
238

NEXT, THE TEST CLEARS THE CONTROL
STATUS
REGISTER,
RMCS1,
WRITES
ONES IN BITS 01 THROUGH 05 AND VERIFIES THAT THE BITS ARE
NOT STUCK AT ZERO.
THE GO BIT IS NOT TESTED.

49
zgg

THE TEST TRANSFERS A SHIFTING ONE BIT DATA
PATTERN
FROM RMCS1 AND CHECKS FOR ADJACENT BIT INTERFERENCE.

494
495
496
497
498
499

PROBABLE FAULT:
I.

TRANSFER TEST

THIS TEST WRITES ONES IN CONTROL STATUS
REGISTER 1,
RMCS1,
WRITES
ZEROS
AND
VERIFIES THAT THE BITS ARE NOT STUCK AT
THE GO BIT IS NOT TESTED IN THIS TEST.

AND

IF MODULE

500
501
gg%

ERROR REGISTER #1

ggé

PURPOSE :

506
ggg

TO _VERIFY THAT £RROR REGISTER 1 [S NOT STUCK AT ONE OR ZERO,
AND THAT THERE IS NOT BIT INTERFERENCE.

g?g

PROCEDURE :

511
512

THIS TEST WRITES ONES
IN ERROR REGISTER
1,
RMER1,
THEN
WRITES
ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ONE.
"UNSAFE'" IS NOT TESTED DURING THIS TEST.
IN ORDER 10 LIMIT
THE

513

TRANSFER TEST

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO v03.01

M1
11-APR-80 13:58:55 PAGE 3-9

SEQ 0012

g}é

PROBABLE

516
g}g

PARTS WITH EACH PART TESTING THOSE BITS
ARE DERIVED FROM THE SAME MODULE.

519
gg?

THE TEST WRITES ZEROS
IN ERROR REGISTER
1,
RMER1,
THEN
WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STULK AT ZERO.

522
ggz

FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1
AND CHECKS FOR ADJACENT BIT INTERFERENCE.

525
526
527
528
529
530
53
532
533
534
535
536
ggg

PROBABLE FAULT:

gzg

541

’

FAJLTS TO ONE OR TWO MODULES,

IF MODULE

(S MODULE

DS MODULE

WHOSE

PRESET

FUNCTIONS

CLEAR OFFSET STUCK ACTIVE TEST
PURPOSE :

TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET

gz%

STUCK IN ACTIVE STATE.

gzg

PROCEDURE :

546

THE TEST IS EXECUTED IN 3

MODE

THE TEST WRITES A ONE IN THE CFFSET DIRECTION BIT

NOT

WHICH

gzg

CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK.

gég

PROBABLE FAULT:

551
552
553
554
$55
556
557
558
ggg

IF MODULE

DS MODULE

—

OFFSET REGISTER TRANSFER TEST

gg}

PURPOSE :

563
ggé

TO_VERIFY THAT THE OFFSET REGISTER
IS NOT
STUCK AT ONE,
STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT [NTERFERENCE.

ggg

PROCEDURE :

568
569
570

THE OFFSET
REGISTER,
RMOF,
IS WRITTEN WITH ONES,
THEN
WRITTEN WITH ZEROS AND READ TO VERIFY THAT NONE OF THE BITS ARE
STUCK AT ONE.

—

CZRMPAQ RMO5/3/2 DSKLS TST 1

MACRO v03.01

N1
11-APR-80 13:58:55 PAGE 3-10
SEQ 00135
THEN THE OFFSET REGISTER IS WRITTEN WITH ZFROS
AND
WRITTEN
WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO.
FINALLY,

ONE

TO VERIFY THAT ERROR REGISTER
2, RMER2,
IS
NOT
STUCK
STUCK AT ZERO, AND THAT THERE IS NOT BIT INTERFERENCE.

PROBABLE

THE OFFSET REGISTER IS TESTED WITH A

SHIFTING

BI1T PATTERN.

FAULT:

IF MODULE

ERROR REGISTER #2 TRANSFER TEST
PURPOSE
:

ONE.

PROCEDURE:

THE TEST WRITES ONES THEN WRITES ZEROS IN RMERZ2 AND VERIFIES
THAT
NONE OF THE BITS ARE STUCK AT ONE.
‘'SKI'' AND 'DVC'' ARE NOT
TESTED.
IN ORDER TO LIMIT THE NUMBER OF PROBABLE FAULTS
TO
ONE
OR
TWO
MODULES,
THE TEST IS EXECUTED IN 3 PARTS WITH EACH PART
giggl:gDTHgSE BITS WHOSE PRESET FUNCTIONS ARE
DERIVED
FROM
THE
ULE.

THEN THE TEST WRITES ZEROS IN ERROR REGISTER 2,
AND
ONES VERIFYING THAT THE REGISTER IS NOT STUCK AT ZERO.

WRITES

FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN
IN
REGISTER AND VERIFIES THAT ALL BIT POSITIONS ARE INDEPENDENT.
PROBABLE

FAULT:

IF MODULE

(S MODULE

DS MODULE

SERIAL NUMBER TEST

PURPOSE :
TO VERIFY
PROCEDURE
:

.
THAT

THE

SERIAL NUMBER CAN BE READ.

THE

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-11

SEQ 0014
THE

TEST READS

VERIFIES THAT
PROBABLE

THE

SERIAL NUMBER REGISTER SEVERAL

THE NUMBER IS

THE

TIMES

SAME EACH TIME.

AND

FAULT:

(S MODULE

CONTRO'. BUS PARITY DETECTION TEST
:

PURPOQSE

TO TEST THE RMOS5/3/2'S PARITY CHECKING LOGIC FOR THE MASSBUS
ASYNCHRONOUS CONTROL BUS.
PROCEDURE :

THIS TEST WRITES A SHiFTING ONE BIT DATA PATTERN IN THE DISK
ADDRESS
REGISTER
USING °‘PAT'' TO CONTROL THE STATE OF THE PARITY

BIT.

'PAR'" STATUS, BIT

PATTERN

FT)EL;»}ESATTERI\IS
A

TRANSFERRED..NOTE

FOLLOWING

THAT COULD BE USED INSTEAD OF

DATA PATTERN

PAT

PAR

000000
075266

1
0

163753
116535

PROBABLE

RMER1,

THE

0
1

CHECKED

TABLE

AFTER

EACH

SHOWS A SET OF

SHIFTING

ONE

BIT

0
1

FAULT:

IF MODULE

ASSYNCHRONOUS MASSBUS MODULE

CONTROL BUS PARITY GENERATION TEST

:
PURPOSE
TO
TEST
THE
RM05/3/2'S
PARITY
MASSBUS ASYNCHRONOUS CONTROL BUS.

GENFRATING

LOGIC

FOR THE

PROCEDURE :

THE TEST TRANSFERS A SHIFTING ONE B
DATA
PATTERN
T0
THE
DISK ADDRESS REGISTER.
AFTER EACH PATTE
IS READ BACK, °'MASSBUS
CONTROL BUS PARITY ERROR'' IS TESTED AND SnuULD BE ZERO..NOTE
THE
FOLLOWING

SET

TEST

PATTERNS

C(OULD

ULSED

INSTEAD OF

THE

CZRMPAQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-12

SEQ 0015

SHIFTING ONE BIT PATTERN.

DATA PATTERN

MCPE
OO0
O0O

000020
056747
135672
163135

PROBABLE

RMDA,

FAULT:

ASYNCHRONOUS MASSBUS MODULE

RMD(

MODULE

FAULT

TEST

:
PURPOSE
TO VERIFY THAT
THFRE
PROGRA?
FROM
WRITING RMDC

INCLUDE

ARE
NOT
AND RMDA.

."'G0 H'* STUCK HIGH, WHICH WwOULD

FUNCTION,

JRIP

LTM

STUCK

LOW,

WHICH

FAULTS
WHICH
SPECIFICALLY,

INHIBIT
WOULD

THE

INHIBIT
THE
1HESE FAULTS

CONSTANTLY

CLEAR

LOAD
THE

."EBL"" STUCK, WHICH WOULD INHIBIT THE CLOCK FUNCTION.
PROCEDURE
:

THE TEST WRITES AND READS BOTH RMDC, AND RMDA.
WITH
ZEROS,
YT?N ogggs.
THE
TEST
PASSES IF EITHER REGISTER (AN BE WRITTEN

WITH

PROBABLE

FAULT:

DS MODULE

IF MODULE

(S MODULE

DISK ADDRESS

:
PURPOSE

TRANSFER TEST

CZRMPAQ RAMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-13

SEQ 0016
762
743
744
745
7466
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763

TO VERIFY

OR ZERO,

IS NOT BIT

IS NOT

INTERFERENCE.

STUCK AT ONE

THIS

TEST PRESETS THE DISK ADDRESS

TO A NONZERO VALUE,

THEN

USES
A
MOVE
TO CLEAR THE REGISTER.THE TEST THEN READS RMDA AND
VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE.
THEN THE TEST PRECLEARS THE
MASSBUS
ADAPTER
DISK
ADDRESS
REGISTER
(RMDA), LOADS IT TO ALL ONES, AND VERIFIES THAT NONE OF
THE BITS ARE STUCK AT ZERO.

A SHIFTING ONE BIT PATTERN IS

DISK
ADDRESS REGISTER,
IS INDEPENDENT.
PROBABLE

767
768
769
770
144
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786

798

THE DISK ADDRESS REGISTER

THERE

PROCEDURE
:

764
765
766

787
788
789
790
791
792
793
794
795
796
797

THAT

AND THAT

RMDA,

TRANSFERRED TO

AND THE

AND

FROM

THE

TEST VERIFIES THAT EACH BIT

FAULT:

DS MODJULE

IF MODULE

DESIRED CYLINDER

TRANSFER

TEST

PURPOSE
:

TO VERIFY

IS
NOT
STUCK
INTERFERENCE.

THAT

THE DESIRED CYLINDER ADDRESS REGISTER,

ONE

ZERO,

AND

THAT

THERE

RMD(C,

NOT BIT

PRGCEDURE
:

8zEN

TYHIS TEST WRITES ONES IN THE DESIRED CYLINDER REGISTER RMDC,
WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT

8?26

THEN THE TEST WRITES ZEROS
WRITES ONES AND VERIFIES

IN THE DESIRED CYLINDER REGISTER,
THAT THE REGISTER IS NOT STUCK AT

FINALLY, A SHIFTING 1 BIT PATTERN IS TRANSFERRED
RMDC AND THE PROGRAM CHECKS FOR BIT INTERFERENCE.
PROBASBLE

:
¢

FAULT:

DS MODULE

IF MODULE

TO AND FROM

CZRMPAQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

E 2
11-APR-B0 13:58:55 PAGE 3-14

SEQ 0017

ILLEGAL REGISTER TEST
:
PURPOSE
TO TEST

ILLEGAL REGISTER ERROR DETECTION IN THE

KMOS5/3/2.

PROCEDURE
:

THIS

BIT

TEST READS ALL LEGAL

2 OF RMER1

DOES NOT SET.

MASSBUS CONTROLLER,

“ILR'"
IS SET.

PROBABLE

RESET

IT READS

REGISTERS AND VERIFIES

THEN,

ILLEGAL REGISTERS AND VERIFIES

THAT

FAULT:

ASSYNCHRONOUS MASSBUS MODULE

GO BY

THAT "‘ILR'’,

TO THE EXTENT ALLOWED By THE

MODULE

INIT

TEST

:
PURPOSE

TO VERIFY

THAT GO CAN BE RESET BY

INITIALIZE.

PROCEDURE
:

I1.E.,

THE TEST SETS GO THEN CLEARS GO
CONTROLLER CLEAR.

PROBABLE

USING

MASSBUS

INITIALIZE,

FAULT:

(S MODULE

IF MODULE

DIAGNOSTIC MODE

TEST

PURPOSE
:

TO VERIFY THAT "DIAGNOSTIC MODE'’, BIT C
STUCK AT ONE OR ZERO.

RMMR1,

NOT

PROCEDURE
:

THE RMOS/3/2 IS INITIALIZED
AND
°‘DMD'’ IS CHECKED FOR ZERO.
"DMD'’* IS WRITTEN WITH ONE AND READ TO VERiFY THAT IT IS NOT STUCK

ZERO,

THEN WRITTEN WITH ZERO AND READ

TG VERIFY

THAY

IS NOT

CZRMPAQ RMOS/3/2 DSKLS TST 1

F
2
11-APR-80 13:58:55 PAGE 3-15

MACRO v03.01

SEQ 0018

STUCK AT ONE.
PROBABLE

MOL

FAULT:

7S MODULE

IF MODULE

TEST
:
PURPOSE

TO VERIFY THAT ‘MEDIUM ON LINE'' STATUS CAN BE SET AND
USING MAINTENANCE UNIT READY.

RESET

PROCEDURE
:

MODE:

AFTER

INITIALIZING THE

AND READS

BIT 12 TO BE ZERO.

SUBSYSTEM,

THE

TEST

THE DRIVE STATUS REGISTER,

SETS

RMDS,

'DIAGNOSTIC

EXPECTING MOL,

'MAINTENANCE UNIT READY'', BIT 9 OF RMMR1,

SET
AND
MOL
SHOULD BE ONE.
THE TEST THEN WRITES A ZERO IN MUR
AND READS RMDS, VERIFYING THAT "MEDIUM ON LINE'' IS ZERO.
PROBABLE

WRITE

FAULT:

CS MODULE

IF MODULE

LOCK

TEST

PURPOSE
:

TO VERIFY THAT 'MRITE LOCK'® STATUS,
WRL,
RESET USING "MAINTENANCE WRITE PROTECT'', MWP,

CAN

SET

AND

PROCEDURE
:

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MWP,
BIT
03
OF
RMMR1,
AND
READS
RMDS TO VERIFY THAT WRL, BIT 11 [S SET.
THEN

MWP

IS RESET AND WRL

PROBABLE

FAULT:

(S MODULE

IF MODULE

SHOULD BE

ZERO.

czl

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-16

DRIVE FAULT

SEQ 0019

TEST

:
PURPOSE

TO VERIFY THAT 'DEVICE CHECK'', DVC, AND 'UNSAFE'',
BE SET AND RESET USING 'MAINTENANCE DRIVE FAULT'', MDF.

UNS,

(AN

PROCEDURE
:

WITH DIAGNOSTIC MODE
RMMR1, AND READS RMER3 TO
ALSO READ AND UNS, BIT 14
AND DVC AND UNS SHOULD BE
PROBABLE

FAULT:

(S MODULE

IF MODULE

SEEK ERROR

SET, THE PROGRAM SETS MDF,
BIT
06
OF
VERIFY THAT DVC, BIT 07 IS SET RMER1 IS
SHOULD ALSO BE SET.
THEN MDF IS
RESET
RESET.

TEST

:
PURPOSE

TO VERIFY THAT ''SEEK ERROR'',

SKI,

CAN BE

SET AND RESET USING

WITH DIAGNOSTIC MODE SET, THE TEST
SETS
AND READS RMER3 TO VERIFY THAT SKI, BIT
RESET AND SKI SHOULD RELET.

MSER,
BIT
07
OF
14 IS SET.
MSER IS

"MAINTENANCE SEEK ERROR'‘, MSER.
PROCEDURE
:

RMMR1

PROBABLE

FAULT:

CS MODULE

IF MODULE

PIP TEST
PURPOSE
:

TO VERIFY THAT 'POSITIONING IN PROGRESS'', PIP,
AND RESET USING ‘MAINTENANCE ON CYLINDER'', MOC.

CAN

SET

CZRMPAO RMOS5/3/2 DSKLS TST

MACRO v03.01

11-APR-80 13:58:55 PAGE 3=17

SEQ 0020
970
971
972
973
974
975

PROCEDURE
:

DIAGNOSTIC MODE IS SET THEN MOC, BIT 08 OF RMMR1 IS SET
AND
PIP,
BIT
13 OF RMDS, SHOULD BE ZERO.
MOC IS THEN RESET AND PIP
SHOULD BE ONE.

976

PROBABLE

978
979
980
981

€S MODULE

IF MODULE

977

EBL

FAULT:

TEST
:
PURPOSE

TO VERIFY THAT END OF BLOCK STATUS
"EBL''
RESET USING DIAGNOSTIC END OF BLOCK 'DEBL''.

CAN

SET

AND

THE PROGRAM SETS DIAGNOSTIC MODE AND VERIFIES
THAT
EBL
IS
RESET.
THEN IT SETS DEBL AND VERIFIES THAT EBL IS SET.
FINALLY,
THE TEST TRANSFERS A SHIFTING ONE BIT TO RMMR1,
AND
C(HECKS
FOR
DEBL BEING SET BY AN ADJACENT BIT.
PROBABLE

FAULT:

CS MODULE

NO WV WNN—=O
OOV

d e

D wd e

)

D ad

O olelelelololelole]
N b wd b e b cd nd b b —d

b nd

b ol —d

geeRS2S828S

PROCEDURE
:

—

021

LAST SECTOR,

LAST TRACK TEST

:
PURPOSE
TO VERIFY

THE DESIRED

USING RMMR1, BITS 01

TRACK/SECTOR

AND 0O2.

PLA

THE

MODULE

PROCEDURE
:

THE TEST WRITES ALL POSSIBLE PATTERNS IN
THE
DISK
ADDRESS
REGISTER,
RMDA,
AND
VERIFIES
‘1S'"
AND 'LST''
STATUS FOR EACH
PATTERN.
THE PROCEDURE IS DONE ONCE FOR 16 BIT FORMAT
AND
ONCE

FOR 18 BIT FORMAT.

PROBABLE

FAULT:

DS MODULE

(S MODULE

CZRMPAQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-18
SEQ 0021

1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038

RMDA COUNT

TEST

:
PURPOSE
TO VERIFY
PROPERLY.

THAT

THE DISK ADDRESS REGISTER

(RMDA)

INCREMENTS

PROCEDURE
:

THE

TEST

INCREMENTS

RMDA

DIAGNOSTIC

END

"DEBL'" AND VERIFIES THE RESULT IN BOTH 16 AND 18 BIT FORMAT.
PROBABLE

RMD(

BLOCK

FAULT:

DS MODULE

COUNT

TEST

PURPOSE
:

TO
VERIFY
THAT
INCREMENTS PROPERLY.

THE

DESIRED

CYLINDER

RMDC,

PROCEDURE
:

THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END

"DEBL"',

PROBABLE

LBT

BLOCK,

VERIFYING THAT RMDC INCREMENTS THROUGH A COMPLETE CYCLE.
FAULT:

DS MODULE

TEST
PURPOS
RMDA

T, INSURE THAT LAST BLOCK TRANSFERRED, '1BT'‘’, CLEARS WHEN
1S WRITTEN, AND SETS WHEN THE LAST SECTOR IS TRANSFERRED.

PROCEDURE
:

RMDA

THE TEST USES DIAGNOSTIC EBL
TO RESET LBT.

TO SET LBT,

AND

TRANSFERS

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO v03.01

J
2
11-APR-80 13:58:55 PAGE 3-19
SEQ 0022
PROBABLE

FAULT:

DS MODULE

IF MODULE

COMPOSITE

ERROR

TEST

PURPOSE
:

TO TEST '‘COMPOSITE ERROR'', BIT 14 OF

RMDS.

PROCEDURE
:

THE TEST USES INITIALIZE AND DIAGNOSTIC MODE
TO
FORCE
ALL
ERRORS
TO
ZERO THEN VERIFIES THAT "ERR'' IS ZERO.
EACH ERROR IS
INDIVIDUALLY SET AND ‘‘ERR'' SHOULD BE ONE FOR EVERY ERROR
TESTED.
ADDRESSES
#2
AND #17 OF THE COMPOSITE ERROR PLA ARE NOT TESTED.

"ABORT'' AND "EXCEPTION'' OUTPUTS OF THE PLA ARE NOT
TEST

FAILS

ERR

IS NOT ZERO WITH ALL

ERR IS NOT ONE WITH ANY SET ARGUMENT ONE.
PROBABLE

TESTED.

SET ARGUMENTS ZERO OR

THE
IF

FAULT:

IF MODULE

b e

b b od e

b cd wd o wd d ek

d e e

d e

ed d

)

d =D end med ed b

) =D d d ) b e

b ced

e e

D —d md b

b b o

b e ok D D b D b b D D e

) b b ad e

AN NI NINININONIN)
b b b e ed b
SEEIEIRUK WNANND
=20V
NAWVNHWN=O VNS WN=O BREIRIRAC2E 3283 Z3E

1093

WRITE GO

TEST

:
PURPOSE

TO VERIFY THAT GO CAN BE SET.
PROCEDURE
:

THE TEST ENABLES THE
DEBUG
CLOCK,
THEN
TRANSFERS
A
FUNCTION
CODE
AND GO BIT TO RMCS1, VERIFYING THAT GO SETS.
FUNCTION CODES ARE TESTED.
PROBABLE FAULT:

IF MODULE

(S MODULE

BRANCH MULTIPLEXOR

TEST

NOP
ALL

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-20

SEQ 0023

NN
NN

MULTIPLEXOR DOES NOT HAVE A FAULT.

NN = OV

:
PURPQSE
TO VERIFY

THAT

THE QUTPUT OF

THE

(OMMAND

SEQUENCER

BRANCH

PROCEDURE
:

WITH DEBUG CLOCK ENABLED, THE
TEST
USES
VARIOUS
FUNCTION
CODES AND REGISTER CONDITIONS TO ADDRESS THE TEST BIT MULTIPLEXOR
SUCH THAT THE TEST BIT, BIT12 OF RMMR2,
(AN
BE
C(HECKED
FOR
A
STUCK FAULT.
PROBABLE

FAULT:

€S MODULE

SET/RFSET GO TEST
PURPOSE
:

TO VERIFY THAT GO CAN BE SET AND RESET.
PROCEDURE
:

THE SUBSYSTEM IS

"DEBUG

INITIALIZED AND PUT IN DIAGNOSTIC MODE WITH

CLOCK ENABLE'’, BIT 14 OF RMMR1 SET.CERTAIN FUNCTION CODES

ARE WRITTEN IN RMCS1 AND THE PROGRAM READS RMCS1 TO
VERIFY
THAT
GO
IS
SET.
RMDS
IS
ALSO READ TO VERIFY THAT 'DRY''
IS RESET.
THEN THE PROGRAM STEPS THE DEBUG CLOCK USING BIT 15 OF RMMR1
AND
VERIFIES
THAT "'GO’' RESETS AND ‘DRY'' SETS.
USING A FUNCTION CODE
THAT RESETS GO AT A DIFFERENT PROM ADDRESS.
THE TEST FAILS IF GO
DOES
NOT
SET
OR CANNOT BE RESET BY THE COMMAND SEQUENCER.
THE
TEST ALSO FAILS IF "DRIVE READY'' IS NOT THE COMPLIMENT OF GO.
PROBABLE FAULT:

CS MODULE

IF MODULE

—d e

b cnd

b wnd

b wmd

b ad o wmd b cd

b —) e cad end and b cnd ad Dl

) =D

b e

FRREN 28R IR R R R RSB IAYF I NINIITE LR SRR 2S VOO NV

D wd —

viviwviwvaiwnawn VIV

i wd wnd

—.—A..‘—l-h-l-‘ddd—l—l—.-—l—.—I—I.—l_._Ad._‘-‘-‘_‘_._.-l-dd—.—‘—.—l-h—l-—l-—l—l-l—l-—.—l—‘—l b e od D i e

o} o e
d o
D

d oh
D d

)

CZRMPAQ RMOS/3/72 DSKLS TST 1

END 1 RESET GO TEST
PURPOSE
.

TO VERIFY THAT

END1 LOCATION.
PROCEDURE
:

THE

COMMAND SEQUENCER CAN

RESET

THE

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-21

SEQ 0024

O
oo

CZRMPAD RMOS5/3/2 DSKLS TST 1

1199
1200

}gfi;

SPECIFIED CLOCK CYCLE.

1203
1204
1205

1206
1207
1208
1209
1210

121
1212
}%}2

THE TEST EXECUTES RELEASE, SEARCH AND ILLEGAL FUNCTION
CODE
IN DIAGNOSTIC
MODE
AND
VERIFIES
THAT
GO
RESETS ON THE

PROBABLE FAULT:

(S MODULE

SET PULSE TEST
PURPOSE :

1%}2

TO VERIFY THAT THE COMMAND SEQUENCER CAN GENERATE SET PULSE.

1217
1218
1219
122
1221
1222

PROCEDURE
:

GENERATED.

1224

PROBABLE FAULT:

1226

WHICH DEBUG
CLOCK
ENABLED,
THE
SEQUENCER
THROUGH
PARTS
OF
VARIOUS
CONTINUE, BIT 06 OF RMMR1 TO DETERMINE

TEST
STEPS
THE
COMMAND
FUNCTION CODES AND CHECKS
IF
SET
PULSE
IS
BEING

€S MODULE

1232

SET/RESET IVC TEST

1234

PURPOSE
:

%%%9

1238

"PROCEDURE:

1240
1241
1242

THE PROGRAM RESETS
VOLUME
VALID
USING
‘MAINTENANCE
UNIT
READY'',
BITO9 OF
RMMR1, THEN LOADS THE FUNCTION CODE AND GO IN
RMCS1.
EACH FUNCTION CODE IS TESTED AND ‘‘IVC'", BIT 12
OF
RMER?

1245

PROBABLE FAULT:

1247

1249

IF MODULE

12643

TEST

IS CHECKED.

MODULE

‘'INVALID COMMAND''

STATUS

FOR EACH FUNCTION CODE.

CZRMPAQ RMOS/3/2 D.KLS TST 1

MACRO v03.01

M2
11-APR-80 13:58:55 PAGE 3-22

SEQ 0025

SET LSC TEST
PURPOSE:
TO

VERIFY

THAT

'LOSS OF

SYSTEM CLOCK'®

CAN SET AND RESET.

PROCEDURE:

THE

TEST ENABLES THE DEBUG CLOCK AND SETS THE GO BIT.

AFTER

PROBABLE FAULT:

CS MODULE

IF MODULE

DECODE

TEST

PURPOSE
:

TO VERIFY THAT THE 'DECODE'' FLOP ON THE IF MODULE SETS
WITH
THE
LEADING EDGE OF °'SET PULSE'' EXCEPT WHEN ‘‘COMPOSITE ERROR'' IS
ACTIVE.
PROCEDURE
:

THE TEST USES 'VOLUME VALID''* AND 'OCCUPPIED'' TO DETERMINE

EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND
THAT NEITHER BIT SETS.

PROBABLE

THE

TEST

VERIFIES

FAULT:

IF MODULE

PURPOSE
:

TO VERIFY (HAT ‘VOLUME VALID'' RESETS WITH THE
LEADING
EDGE
UNé; READY, AND SETS WITH PACK ACKNOWLEDGE AND READ [N PRESET

b ad eod d =

SET/RESET VOLUME VALID TEST

- O

—b

b ek b v

b d

b md

b nd and

SRS
A R

1289

THE DECODE FLOP IS SET OR RESET.
INITIALLY, VV AND OCCUPPIED ARE
RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET
Vv
OR
0CC
AND
VERIFIES
THAT
ONE OR BOTH BITS SET.
THE SAME COMMANDS ARE

PROCEDURE
:

CZRMPAO RMOS5/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-23

NN NN
N NN NN NN NIN) b ed ed o b d b
WA = O 000~
NN =IO
NONN L NN
1%

NN =
NN = OO 00 NN
O 00 NN

— erd b cod ced el

b d D

b e} e

)

D el o) e

N S AS

D e

) b

e Rt oty P

b cad e cnd ——d -—b ad ed ad D o

)

d e ad ad and

b —d cod

d od ed ad

(N N NN N N NN AN N NN N NN WWWWIWN WNWNNWNW

SEQ 0026

USING 'MAINTENANCE UNIT READY'', BIT 9 OF

FORCES

VOLUME VALID,BIT 6 OF RMDS IS ZERO.

PACK

RMMR1,

ACKNOWLEDGE COMMAND,

THEN

THE

TEST

VERIFYING THAT VvV SETS.

IS REPEATED WITH A READ IN PRESET COMMAND.

PROBABLE

THIS

ZERO TO ONE TRANSITION OF UNIT READY AND VERIFIES

TEST
THAT

EXECUTES

THE PROCEDURE

FAULT:

IF MODULE

ILLEGAL FUNCTION TEST
PURPOSE
:

TO TEST

ILLEGAL FUNCTION ERROR IN THE RM05/3/2.

PROCEDURE
:

WITH
DIAGNOSTIC
CLOCK
ENABLED
TO
INHIBIT
THE
COMMAND
SEQUENCER,
THIS TEST VERIFIES THAT '‘ILF'', BIT O OF RMER1, IS OFF

FOR _LEGAL

FUNCTION CODES AND ON FOR

STATUS OF THE ''GO'* BIT IS IGNORED.

ILLEGAL

FUNCTIONCODES.

THE

PROBABLE FAULT:

IF MODULE

OCCUPIED TEST
PURPOSE
:

TO VERIFY THAT "DCCUPIED'' IS SET DURING DATA
IS RESET FOR ALL OTHER COMMANDS.

TRANSFERS

AND

PROCEDURE
:

FOR_EACH DATA TRANSFER
COMMAND,
‘'CC'',
BIT
15
OF
RMMR]
SHOULD
BE
ONE,
DEBUG
CLOCK
IS
ENABLED
TO
PREVENT
GO FROM
RESETTING BEFORE STATUS IS SAMPLED.
PROBABLE FAULT:

IF MODULE

(S MODULE

CZt
BA!

8B .3
MACRO V03.01 11-APR-80 13:58:55 PAGE 3-24

SEQ 0027

READ IN PRESET TEST

PURPOSE:

TO VERIFY THAT "READ IN PRESET'' COMMAND IS DECODED,
AND
IN
SfigTICULAR.
TO VERIFY
THAT 'IF5 READ IN CMD L'‘ IS NOT STUCK AT
PROCEDURE
:

2eEEELEIL

1382

"READ

EACH VISIBLE STATUS OR REGISTER BIT WHICH IS CLEARED BY
IN PRESET'* IS SET.
THEN THE RIP COMMAND IS EXECUTED AND

THE TEST VERIFIES
THAT
ONE
OR MORE
FOLLOWING ARE USED DURING THE TEST.

BITS

ARE

CLEARED.

THE

. ALL BITS OF RMOF
ARE
SET BY A MOVE INSTRUCTION AND THE TEST
PASSES IF USED BITS ARE ZERO AFTER THE RIP COMMAND.

. THE DESIRED CYLINDER REGISTER,
RMDC,
IS SET WITH A MOVE
INSTRUCTION AND THE TEST PASSES IF BITS 00~09 ARE ZERO AFTER THE
RIP COMMAND.
.

THE DISK ADDRESS REGISTER, RMDA,

AND

IS SET WITH A MOVE INSTRUCTION

THE TEST PASSES IF BITS 00-07, AND BITS 08-15 ARE ZERO AFTER

THE RIP COMMAND.

THE TEST FAILS IF NONE OF THE PRESET TERMS ARE ZERO AFTER THE RIP
COMMAND.,
PROBABLE FAULT:

IF MODULE

RIP/RMOF TEST

OV
WN

d d b
b ek cod b
N

[T Y

:
PURPOSE

TO VERIFY THAT ‘READ IN PRESET'' RESETS FMI16, ECI
BITS 10,11 AND 12 OF RMOF.

AND

HCI,

PROCEDURE
:

FMT16, ECI AND HCI ARE SET,
AND EACH BIT SHOULD BE ZERO.
PROBABLE FAULT:

IF MODULE

THEN A RIP COMMAND

EXECUTED

CZRMPAQ RMOS5/3/2 DSKLS TST 1

—

MACRO v03.01

11-APR-80 13:58:55 PAGE

3-25

SEQ 0028
1426
1627
1428
1629
1630
1643
1432

1433
1636
1635
1636
1437
1438
1439
1440
1641

1442
1443
1444
14645

RMDA/RMDC/RIP

T ST

:
PURPOSE
TO VERIFY THAT 'READ IN PRESET'' RESETS
ADDRESS, RMD(, AND THE DISK ADDRESS, RMDA.

THE

DESIRED

CYLINDER

PROCEDURE
:

RMDA AND RMD(C

COMMAND.
PROBABLE

ARE

PRESET

THEN

TESTED FOR ZERO AFTER

THE

RIP

FAULT:

DS MODULE

1446

1447

1448
1449
1450

1651
1452
1453
1654
1455
1656
1457

16458
1459
1460
1461
1462
1463

1464
14665
1466

14667

1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482

OFFSET

COMMAND

TEST

:
PURPOQSE
TO

VERIFY

THAT

"OFFSET MODE''

SETS

WITH

OFFSET

COMMAND.

PROCEDURE
:

THE

TEST EXECUTES OFFSET

00 OF RMDS
PROBABLE

RETURN

IS ONE.

COMMAND AND VERIFIES

THAT ‘OM°,

BIT

FAULT:

MODULE

TO CENTER

1EST

:
PURPOSE
TO VERIFY

THAT

"RETURN TO CENTER'' RESETS OFFSET MODE.

PROCEDURE
:

OFFSET MODE, BIT 00 OF RMDS,

THEN
THE
TEST
THAT OFFSET MODE

(HECKED FOR ZERO AFTER THE COMMAND.
PROBABLE

FAULT:

MODULE

SET

WITH

OFFSET

COMMAND,

EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES
RESETS.
OFFSET
DIRECTION
IS
ALSO
SET
AND

CZRMPAQ RMOS/3/2 DSKLS TST

CZRMPAQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-26

SEQ 0029

1483

1484

1485

1488

1487
1488

RMDC

1233

CLEAR OFFSET

TEST

P1RPOSE :

1491

TO VERIFY

THAT

}435

CYLINDER ADDRESS

}232

PKOCEDURE :

1496

THE TEST

CLEAR

OFFSET

EXECUTES

VERIFIES THAT OM, BIT 00 OF

1499

PROBABLE FAULT:

1500
1501
1502
1503
1504
1505
1506
1507
1508

1509

1510

EBL

DS MODULE

IF MODULE

IS WRITTEN.

}4gg

OFFSET

RMDS

ACTIVE

COMMAND,

IS ZERO.

WHEN

THE

WRITES

DESIRED

RMDC,

AND

CLEAR OFFSET TEST

;;}‘12

PURPOSE :

1513
1514
1515

TO V.RIFY
OCCURS.

THAT

OFFSET

MODE

CLEARS

WHEN

HEAD

SWITCHING

}2}?

PROCEDURE :

1518
1519
1520
1521

THE TEST EXECUTES AN OFFSET
COMMAND
TO
SET
OFFSET
MODE.
s TER
SETTING
THE
FORMAT BIT AND LOADING THE LAST SECTOR/TRACK
ADDRESS IN RMDA, THE TEST FORCES AN EBL AND VERIFIES THAT
OFFSET
MODE RESETS.

1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
;2;3

PROBABLE FAULT:

1522

1535
1536
1537

}238

DS MODULE

RUN AND GO TEST
PURPQSE :

TO VERIFY THAT
COMMANDS
.

PROCEDURE :

‘RUN AND GO'*

FLOP SETS DURING READ AND

WRITE

MACRC v03.01

E
.3
11-APR-80 13:58:55 PAGE 3-27
SEQ 0030

1540

THE RMO5/3/2 IS

1541

GO SET

1542

}ggg

1563

AND

DATA TRANSFER COMMAND WITH

'RUN AND GO'',

THE

DEBUG

DOES NOT RESET BEFORE STATUS [S TESTED.

BIT

CLOCK

14 OF

RMMR1

SHOULD BE

IS ENABLED SO THAT GO

PROBABLE FAULT:

SET

(S MODULE

SYNCHRONOU> MASSBUS MODULE

IAE

TEST

PURPOSE :

}ggg

}gg}

INITIALIZED

IN RMCS1.

ONE FOR EACH DATA COMMAND.

}gzz
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556

IS WRITTEN

TO VERIFY THAT

INVALID ADDRESS ERROR CAN SET.

PROCEDURE :

THE TEST LOADS INVALID SECTOR,

TRACK AND CYLINDER

ADDRESSES

1564
1565

AND
EXECUTES
A
SEARCH COMMAND, VERIFYING THAT ‘‘IAE'' SETS.
PROCESS IS REPEATED WITH A DIFFERENT COMMAND IF THE AE DOES

1568

PROBABLE FAULT:

1570
1571
1572
1573
1574
1575
1576
1577

DS MODULE

IF MODULE

}ggg
1569

;g;g
}gg?

1582

SET, AND THE TEST FAILS IF JAE CANNOT BE SET.

THE
NOT

SEARCH, SEEK, READ, WRITE TEST
PURPOSE :
TO VERIFY THAT THE "'SCH SK R OR W'' DECODE ON THE

MODULE

}ggz

IS CORRECT FOR ALL FUNCTION CODES.

}ggg

PROCEDURE :

1587
1588
}ggg

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER
ADDRESSES
AND
EXECUTES
EACH
COMMAND
TO WHERE
SET
PULSE IS ACTIVE AND
VERIFIES THE DECODE BY CHECKING ‘‘IAE’’.

1591
1592
1593
1594
1595

PROBABLE FAULT:
1.

IF MODULE

CZRMPAC RTM"S/3/2 DSKLS TST 1

—A—.—l—l—d—l—l—l-‘_‘_‘—l—l—‘—‘_‘—l-‘—‘_fl—d_‘.‘
o
ny
o NNV
W=D
NN WA
-2
oo~

S 222020002 822222222222

MACRO v03.01

F
.3
11-APR-80 13:58:55 PAGE 3-28

SEQ 0031

INVALID TRACK/SECTOR TEST
PURPOSE
:
TO VERIFY

THAT

DETECTED.

INVALID

TRACK

AND

SECTOR

ADDRESSES

ARE

PROCEDURE
:

THE TEST LOADS THE TEST
PATTERN
IN
SEARCH COMMAND, VERIFYING THAT ''JAE’" SETS.
PROBABLE

AND

EXECUTES

FAULT:

DS MODULE

TRACK ADDRESS OPTION JUMPER

INVALID

RMDA

CYLINDER

TEST

PURPOSE
:

TO VERIFY

THAT

INVALID CYLINDER ADDRESSES ARE DETECTED.

PROCEDURE
:

THE TEST LOADS THE TEST
PATTERN
IN
SEARCH COMMAND, VERIFYING THAT ‘‘IAE'' SETS.
PROBABLE

AND

EXECUTES

FAULTS:

DS MODULE

CYLINDER ADDRESS OPTION JUMPER

SET AOE

RMDC

TEST

PURPOSE
:

TO VERIFY

THAT ADDRESS OVERFLOW ERROR

IS DETECTED.

PROCEDURE
:

RADC, | THEN INITIATES. A DATA COMMA
WITH ND
DEBUG CLOCK ENABLED.
END OF BLOCK IS FORCED TO INCREMENT
TES! VERIFIES THAT “AOE'' IS SET.

THE

SECTOR ADDRESS,

AND

THE

CZRMPAQ RMOS/3/2 DSKLS TST 1

CZRMPAQ RMO5/3/2 DIKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-29

SEQ 0032
1654
1655
1656
1657
1658
1659

PROBABLE

FAULT:

DS MODULE

SET RMR TEST
PURPOQSE
:

TO VERIFY THAT "REGISTER MODIFICATION REFUSED'' SETS

WHEN

EXCEPT WHEN THE ATTENTION OR

PROCEDURE
:

"DEBUG

SEQUENCER,

CLOCK

THEN

ENABLE'*
NOP

SET

INHIBIT

COMMAND AND GO BIT

THE

COMMAND

IS WRITTEN IN RMCS1.

WITHOUT STEPPING THE DEBUG CLOCK, THE TEST WRITES RMMR AND
RMAS,
WHICH
SHOULD
NOT
SET RMR STATUS.
THEN RMDA IS WRITTEN AND RMR

STATUS, BIT 02 OF RMER1,

PROBABLE

SHOULD BE ONE.

FAULT:

IF MODULE

PGM STATUS

CHECK

PURPOSE
:

TO VERIFY THAT THE PROGRAMMABLE
REQUEST STATUS BIT ARE COMPATABLE.

STATUS

BIT

AND

THE

DRIVE

PROCEDURE
:

PORT

THE TEST REPORTS AN ERROR [F PGM ]S ON AND DRQ IS OFF.
NOT
PREDICTABLE
IN
THE CASE WHERE wRQ IS ON BECAUSE OF
SELECT SWITCH.

PROBABLE

FAULT:

IF MODULE

DVA/DPR STATUS CHECK
PURPOSE
:

PGM
THE

CZRMPAQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

H 3
11-APR-80 13:58:55 PAGE 3-30

QNNN

b ed b d b e b e ) e e d ek b D e d
b
NSNNN SNNNN NN NNNNNNNNNYNNY
WWNN)
PONININ)
= d b b e ed od b
=000
VNN
= OO0 NN (N —

SEQ 0033

STATUgoAXER£E¥_THAT DEVICE AVAILABLE

STATUS

AND

DRIVE

PRESENT

PROCEDURE
:

DVA AND DPR ARE
PROBABLE

PORT

TESTED AND BOTH SHOULD BE ON.

FAULT:

IF MODULE

REQUEST

TEST,

PART

:
PURPOSE

TO VERIFY THAT THE PORT REQUEST
WHEN THE PROGRAM READS RM(S1.

FLOPS ON THE

MODULE

SET

PROCEDURE
:

THE

TEST EXECUTES A RELEASE

RELEASED,

ONE OF

IT READS RMCS1,

THE PORT REQUEST FLOPS

PROBABLE

THEN,

ASSUMING THE PORT

IS SET.

FAULT:

IF MODULE

(S MODULE

PORT REQUEST

COMMAND,

THEN READS RMMR2 AND VERIFIFS THAT

TEST,

PART 2

PURPOSE
:

TO VERIFY THAT THE PORT REQUEST FLOPS ON THE
WHEN THE PROGRAM WRITES RMAS.

MODULE

SET

THE TEST EXECUTES A RELEA ¢ "OMMAND
THEN
WRITES
RMAS
READS RMMRZ, VERIFYING THAT ON. JF THE REQUEST FLOPS IS SET.

AND

PROCEDURE
:

PROBABLE

FAULT:

IF MODULE

(S MODULE

CZRMPAQO RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-31
SEQ 0034

1768
1769
1770
1771
1772
1773
1774
1775
1776
1777

PORT REQUEST

TEST,

PART 3

:
PURPOSE
TO VERIFY THAT PORT REQUEST
IS WRITTEN.

RMAS

SETS WHEN

ANY

EXCEPT

PROCEDURE
:

THE TEST WRITES THE DISK ADDRESS REGISTER AND VERIFIES

THE PORT REQUEST FLOP

b nd wd wd

PROBABLE

IF MODULE

(S MODULE

~83mwombwmdo§§§§§§ & 28433

b cmd
)

oo
o
WA

d i cd cad nd
—

TEST

PURPQSE
:

TO VERIFY THAT A RELEASE COMMAND
RQA AND RQB IN MAINTANCE REGISTER #2.

CAN RESET

THE REQUEST FLOPS

PROCEDURE
:

THEN,

THE PROGRAM SETS REQUEST FLOP BY WRITTING THE RMCS1 REGISTER
EXECUTES A RELEASE COMMAND TO RESET THE REQUEST FLOP.

PROBABLE FAULT:

IF MODULE

) e

WRITE ATA TEST

PURPOSE
:

—

bl o=

000,00
00 00 50 00 50 00 ®
%00
]
gt 50 00 50 00 00 00 50 00 90 0
RN

FAULT:

RELEASE

THAT

IS ON.

TO VERIFY THAT ATTENTION
ATTENTION SUMMARY REGISTER.

CAN

CLEARED

WRITING

THE

PROCEDURE
:

THE PROGRAM RESETS AND SETS UNIT READY WHICH SHOULD CAUSE AN
ATTENTION,
THEN
WRITES
THE
ATTENTION
SUMMARY
REGISTER
AND

CZRMPAQ RMOS5/3/2 DSKLS TST 1
1825

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-32

SEQ 0035

VERIFIES THAT ATTENTION IS RESET.
PROBABLE FAULT:

IF MODULE

(S MODULE

RESET ATA BY GO TEST

:
PURPOSE
s OFIO VERIFY

THAT ATA RESETS WHEN GO IS ON AND COMPOSITE

ERROR

PROCEDURE
:

THE PROGRAM SETS MAINTENANCE UNIT READY WHICH
SHOULD
CAUSE
AN ATTENTION.
THEN, WITH DEBUG CLOCK ENABLED, GO IS SET, AND ATA

SHOULD BE ZERO.

PROBABLE

FAULT:

IF MODULE

UNIT READY ATA TEST
PURPOSE
:
TO VERIFY THAT ONE-ZERO AND
READY SET ATTENTION.

ZERO-ONE

TRANSITIONS

UNIT

PROCEDURE
:

THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH
TRANSITIONS
UNIT READY AND VERIFIES THAT ATA SETS WITH EACH TRANSITION.
PROBABLE

FAULT:

IF MODULE

ERROR ATA TEST
PURPOSE
:

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-33
TO VERIFY THAT ATTENTION SETS WHEN
WHILE GO IS OFF.

COMPOSITE

ERROR

OCCURS

PROCEDURE
:

THE PROGRAM CLEARS
VERIFIES ATA IS ON.
PROBABLE

THE

DEVICE

AND

SETS

ERROR,

THEN

EXCEPT

FOR

FAULT:

IF MODULE

i S G

0000 00 0000
00 00
O OO

KIX WA
= BEREEER

SEQ 0036

OVONONND W=D

N ——d b cd cd emd b cd b b )

—t ed b el

b wmad cnd

D b

0000 0000000

d aed pd D

SRR

1903

TO VERIFY THAT ATTENTION SETS WHEN ANY REGISTER,
RMAS AND RMCS, IS WRITTEN WHILE COMP ERROR IS SET.
PROCEDURE
:

THE PROGRAM FORCES AN ERROR THEN RESETS ATTENTION
FROM
THE
ERROR.
THE
PROGRAM THEN WRITES RMAS AND RM(CS AND VERIFIES THAT
NO ATTENTION OCCURS, AND WRITES RMDC AND VERIFIES THAT
ATTENTION
DOES OCCUR.
PROBABLE

P SET ATA

FAULT:

IF MODULE

TEST

:
PURPOSE

TO VERIFY THAT ATA IS SET AT

RETURN TO CENTER LINE

COMMAND.

THE COMPLETETION OF

AN OFFSET AND

PROCEDURE
:

THE
PROGRAM
EXECUTES
THE COMMANDS USING THE MAINTANCE DEBUG
CLOCK AND EXPECTS ATA TO BE SET ON COMPLETETION.
PROBABLE

FAULT:

IF MODULE

o4
usl

CZRMPAQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-34

SEQ 0037
1939
1940
1941
1942

1943

1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961

1962
1963
1964
1965
1966

1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980

SET WLE TEST
PURPOSE
:

TO VERIFY THAT "WLE'' IS SET OR RESET WHEN IT SHOULD BE.
PROCEDURE
:

THE
PROGRAM
EXECUTES
THE
FOLLOWING
COMMANDS
MAINTANCE DEBUG CLOCK AND EXPECTS WLE SET OR RESET.

USING

THE

EXECUTE WRITE DATA COMMAND WITH MAINTANCE WRITE PROTECT SET,
SHOULD IXPECT WLE TO BE SET.
SET,

EXECUTE
WRITE
DATA COMMAND WITHOUT MAINTANCE WRITE PROTECT
SHOULD EXPECT WLE TO BE RESET.

EXECUTE _ READ DATA COMMAND WITH MAINTANCE WRITE PROTECT SET,
SHOULD EXPECT WLE TO BE RESET.
EXECUTE
READ IN PRESET COMMAND WITH MAINTANCE WRITE PROTECT
SET, SHOULD EXPECT WLE TO BE RESET.
PROBABLE FAULT:

(S MODULE

IF MODULE

DATA COMMAND TESTS

(1,

PURPOSE
:

TO VERIFY THE

COMMAND SEQUENCER DURING DATA COMMANDS.

PROCEDURE
:

THIS TEST, LIKE RECALIBRATE, SEEK, AND
SEARCH
TESTS,
USES
THE
MAINTENANCE
REGISTER TO SIMULATE DRIVE CONDITIONS AND FORCE
THE COMMAND SEQUENCER THROUGH EACH BRANCH PATH.
ADDITIONAL ITEMS
WHICH ARE TESTED INCLUDE OFFSET PLUS AND MINUS ON THE TAG BUS AND

"ENABLE SEARCH'', BIT 11 OF RMMR1.

PROBABLE FAULT:

CS MODULE

czi

USt

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 4

SEQ 0038
;PROGRAM VERSION #4001

LTITLE

CZRMPAQ RMO5/3/2 DSKLS TST 1

;*DIGITAL EQUIPMENT CORP.
*MAYNARD MASS. 01754
tPROGRAM BY MIKE LEAVITT

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
*PACKAGE (MAINDEC-11-DZQAC-C4), 1980.

)

SWITCH

BN B
B
LA B

.SBTTL

—

OPERATIONAL SWITCH SETTINGS

O=2NINH
NN N
DO 2 (N

AP I
N

N, N,
NN, N,

687

Ve Ve

By Ny N

BF B

lu'ol..-i

SBTTL

BB BF B

685

USE

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEQUTS

INHIBIT ITERATIONS

BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

TN128
TN64
TN32

TN16

TN8

TNG

TN
TM

BASIC DEFINITIONS

S *INITIAL A?ggESS OF THE STACK POINTER x%x 1100 =«

STACK
ERROR
SCOPE

=
= EMT
= 107

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

J*MISCELLANEOUS DEF IN]TIONS

LF
CR
CRLF

ggu Ps

STKLMT

PIRQ
DSWR
DDISP

=12
=15
= 200

= 177776

= 177774

= 1727772
= 177570
= 177570

;. CODE FOR HORIZONTAL TAR

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

2 ;PROCESSOR STATUS WORD

;:STACK LIMIT REGISTER

; ;PROGRAM INTERRUPT REQUEST REGISTER
; :HARDWARE SWITCH REGISTER
. .HARDWARE DISPLAY REGISTER

. *GENERAL PURPOSE REGISYER DEF INITIONS

RO
R1
R2
R3
R4

= X0
= X

= X2
= X3

= X6

GENERAL REGISTER
.,GENERAL REGISTE®

2 JGENERAL REGJSTER
2 ;GENERAL REGISTER

5 ;GENERAL REGISTER

CZl

ERI

CZRMPAQ RMOS/3/2 DSKLS TST 1

BASIC DEF INITIONS

000005

MACRO v03.01

N 3
11-APR-80 13:58:55 PAGE 4-1

RS
R6

= X5
= 26

;s GENERAL REGISTER
2 ;GENERAL REGISTER

SP
PC

= %6
= X7

:3STACK POINTER
2 sPROGRAM COUNTER

= X7

; sGENERAL REGISTER

;*PRIORITY LEVEL DEFINITIONS

PRO
PR1
PR2

=0
= 40
= 100

;:PRIORITY LEVEL O
J:PRIORITY LEVEL 1
;J:PRIORITY LEVEL 2

PRS
PR6
PR7

= 240
= 300
= 340

;:PRIORITY LEVEL S
;:PRIORITY LEVEL 6
:;PRIORITY LEVEL 7

PR3
PR4

= 140
= 200

;:PRIORITY LEVEL 3
;;PRIORITY LEVEL 4

%' 'SWITCH REGISTER'' SWITCH DEFINITIONS

Sw15

= 100000

SW14

= 40000

Sw09
Sw08
SWQ7

= 1000
= 400
= 200

Sw05
Swo4
Sw03

= 40
= 20
=10
=4
=2
=1

Sw13
Sw12
Sw11
Sw10

=
=
=
=

SWo6

20000
10000
4000
2000

= 100

Sw02
Sw01
Sw00
SW9=SW09
SW8=Sw08

SW7=Sw07
SW6=SW06
SW5=SW05
SW4=SW04

SW3=SWw03
SW2=Sw0?2
SW1=Sw01
SWO=Sw00
.*DATA BIT DEFINITIONS

BIT1S
BIT14
BIT13
8IT12
BITN
BIT1I0
BITO9
BITO8
8IT07
BITO6
BITOS
BIT04

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

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20

(BITOO TO BIT1S)

SEQ 0039

CZF
ERR

000010
000004
000002
000001
001000
000400
000200
000100
000040
000020

009010
000004
000002
000001

BI703
BIT0?
81701
BIT0O
=
BIT9=8I1T0
B8178=8]708
BI17=81107
B176=817106
BITS=BITO0S
BIT4=BIT04
BIT3=8BIT03
8171281702
B8IT1=8I1T01

BITO0=8IT00

; *BASI( "CIZU" TRAP VECTOR ADDRESSES

689
690

691
692
693

TRAPVE(C
TKVEC
TPVEC
PIRQVE(C

TR [}
[
T
[
1

n
o

CONTROL STATUS REGISTER

696

000020

F3
Fe

000010
000004

T I

:*RMCS1
DVA

697
698

RM REGISTER BIT DEFINITIONS

004000
000040

J:TTY KEVROARD VECTOR
;:TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

.SBTTL

694
695

;s TRACE TRAP
. ;BREAXKPOINT TRAP (BPT)
s INPUT/0UTPUT TRAP (J07) *«SCOPErw
:;POWER FAJIL
JEMULATOR TRAP (EMT) s«ERRORw*»

2" TRAP'' TRAP

PWRVEC

EMTVEC

BPTVE(
I0TVEC

;:TIME OUT AND OTHER ERRORS
.‘.'B%S.Eg\l/gl) AND JLLEGAL INSTRUCTIONS

RESVEC
TBITVEC
TRTVEC

000010
000014
000014
000014
000020
000024
000030
002034
000060
000064
000240

ERRVEC

Fé&

= B8ITN

= BITOS

= 8IT04
= BIT03

:DEVICE AVAILABLE-READ ONLY

sFUNCTION CODE

JFUNCTION CODE
JFUNCTION CODE

000077

F1
FO
GO
FNCMSK

704

000000

JFUNCTION CODES (BITS 01-05 OF RM(S1)
NOP
= 000000
-NOP _COMMAND

706

000004

708
709

000010
000012

000020
000022
000022

699
700
701
702
703

705

70?

710
71

712
713
714

715

716
717

000002
000001

000002

000014
000016

000024

000026
000030

ILFO2
SEEK

RECAL

= 81102
= 8IT01

sFUNCTION CODE
sFUNCTION CODE

= 000077

sFUNCTION CODE MASK

= 81100

= 000002
= 000004

;GO BIT

s ILLEGAL COMMAND
s SEEK COMMAND

= 00GU06

JRECAL IBRATE COMMAND

RLEASE

= 000012

JRELEASE COMMAND

RTC
RIP
PAKACK
PACACK

=
=
=
=

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

DRVCLR

OFFSET

ILF26
ILF26

-~ 000010

= 000014

000016
000020
000022
PAKA(CK

= 000024
= 000026
= 000030

;DRIVE CLEAR COMMAND

;OFFSET COMMAND

; JLLEGAL COMMAND
; ILLEGAL COMMAND

s SEARCH COMMAND

SEQ 0040

me
N

B 4
11-APR-80 13:58:55 PAGE 4=2
Y
QY
N
o

BASIC DEFINITIONS

MACRO v03.01

CZRMPAQ RMOS5/3/2 DSKLS TST 1

—

(ZRMPA() RTMM0S/3/2 DSKLS TST

RM REGISTER BIT

DEFINITIONS

720

MACRO v03.01

ILF30
ILF32
ILF36
ILF36
ILF&O
ILF&2
ILF46

=
=
=
=
=
=
=

w(D
WCH

= 000050
= 000052

WD
wH

= 000060
= 000062

ILF66

ILF54
ILF56

ILF64
ILF66

RD
RH

000030
000032
000034
000036
000040
000042
000064

= 000046

= 000054
= 000056

= 000064
= 000066

= 000070
= 000072

ILF76
ILF76

= 000074
= 000076

;*RMDA

DISK ADDRESS REGISTER

010000

. TRACK ADDRESS DEFINITIONS
TA16
=
BIT1?2

002000
001000
000400

TAZ
TA1

= 81109
= BIT08

cSECTOR
SAl6
SA8
SAé

ADDRESS DEF INITIONS
= B1104
= BIT03

SA1

= BIT00

000020

11-a4PR-80 13:58:5S PAGE 4-3

TA8

TA4

SA?2

= BITN

= 8]T10

= BJT0?2

= BITOY

;TRACK & SECTOR MASKS

TADMSK
SADMSK

= 177400
= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA

ERR

PIP

MOL

= BIT1S

= BIT14

= BIT13

= BIT1?2

WRL

= BITI

PGM

= BITYY

LBT

- ’IT10

DPR
DRY
Vv
oM

=
=
=
=

. *RMER)

ERROR REGISTER M

BIT08
BIT0Q7
BIT06
BI1T00

SEQ 0041

;JLLEGAL COMMAND
s ILLEGAL COMMAND
s JLLEGAL COMMAND
;ILLEGAL COMMAND
s ILLEGAL COMMAND
;ILLEGAL COMMAND
s ILLEGAL COMMAND
;ILLEGAL COMMAND
SJWRITE CHECK DATA COMMAND
JWRITE CHECK HEADER AND DATA
;ILLEGAL COMMAND
;ILLEGAL COMMAND
;WRITE DATA COMMAND
;WRITE HEADER AND DATA (OMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND
JREAD DATA (COMMAND
JREAD HEADER AND DATA COMMAND

; JLLEGAL COMMAND

s ILLEGAL COMMAND

s TRACK
s TRACK
; TRACK
. TRACK
; TRACK

;SECTOR
;SECTOR
;SECTOR
:SECTOR
sSECTOR

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

16.
8.
4
2
1

16.
8.
4
¢
1

s TRACK ADDRESS MASK

;SECTOR ADDRESS MASK

JATTENTION ACTIVE

.COMPOSITE ERROR
;POSITIONING IN PROGRESS
sMEDIUM ON LINE

SJWRITE LOCK

sLAST BLOCK TRANSFERRED
; PROGRAMMABL
E
:DRIVE PRESENT
;DRIVE READY
;VOLUME VALID
;OFFSET MODE ACTIVE

D 4
11-APR-80 13:58:55 PAGE 4=4

SEQ 0042
nuwennnn

770
7

772

773
774
775

777
778
779
780
781
782
783
784
785
786

787
788
789
790
791

792
793
794
795
796
797
798
799
800
801
802

803
804
805
806
807
808
809

WV, §) —

it G- Goutr Pt Gt St uir -

[0 RNTo NV, ¥

00 0o 0o 0o 00 0o 00 Co

810

819

000020
00010
000004
000002
000001

ILR
ILF

115760

ND TMSK

776

BIT15

;DATA (HECK ERROR

BIT13
BIT1?
BITN
8IT10
BIT09
BIT08
81707
BIT06
BITOS

;OPERATION INCOMPLETE
;DRIVE TIMING ERROR
JWRITE LOCK ERROR
s INVALID ADDRESS ERROR
;ADDRESS OVERFLOW ERROR
sHEADEAR CRC ERROR
JHEADER COMPARE ERROR
JECC 'HARD'' ERROR
;WRITE CLOCK FAILURE

BIT14

BITO4
BIT03
BITG2
BITO1
BITOO

;DRIVE UNSAFE

;FORMAT ERROR
JPARITY ERROR
JREGISTER MODIFICATION REFUSED
sILLEGAL REGISTER
s ILLEGAL FUNCTION

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

;COMMANDS,

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

;*RMLA

LOOK AHEAD REGISTER

SC4

SC3
SC2

SC1

1.E., HOUSEKEEPING AND POSITIONING COMMANDS

= 8IT10

= BITQ9
= 8IT08

sMASK FOR ATTENTION BITS

:SECTOR COUNT = 16

;SECTOR COUNT = 8
sSECTOR COUNT = 4

SCo

= BITO06

= BIT07

;SECTOR COUNT = 2

SCTMSK

= 003700

;SECTOR COUNT MASK

;SECTOR COUNT = 1

J*RMMR1 MAINTENANCE REGISTER #1
;WRITE ONLY BITS
DB(CK
= BIT1S
DBEN
= BIT14
DEBL
DTO
MCLK

MRD
MUR
MOC

= B8IT13
= BIT12
= BITN

= 8IT10
= 8IT09
= BIT08

;DEBUG CLOCK
;DEBUG CLOCK ENABLE

;DIAGNOSTIC END OF BLOCK
sDIAGNOSTIC TIMEOUT
JMAINTENANCE CLOCK

;READ DATA
JUNIT READY
;ON CYLINDER

MSER
MDF
MS

= BIT07
= BIT06
= BIT0S

: SEEK _ERROR
;DRIVE FAULT
;SECTOR PULSE

M]
MSC

= BIT02
= BITO1

s INDEX PULSE
;SECTOR COMPARE

MWP

DMD

= BIT03

= BITO0

cREAD ONLY BITS

0c(

= BIT1S

= BIT14

SWRITE PROTECT

sDIAGNGSTIC MODE
;O0CCUPIED

JRUN AND GO

p o JW

RM REGISTER BIT DEFINITIONS

MACRO v03.01

mey _]

CZRMPAQ RMOS/3/2 DSKLS TST 1

827
828
829
830
831
832
833
834
835

EBL

REX

ESRC

PLFS

ECRC

PDA
PHA
CONT
W(

EECC

000004
00002
000001
051401

MWD
LS

LST

DMD
MR1AAA
;*RMDT

100009

= BIT13
= BIT1?
= BITN
= BIT10
= BIT09
= BIT08
= B8IT07
= BIT06
= BITO0S
= BIT04
= BIT03

= BJT0?2

= BITO1
= BITO00

= DMD'MUR'!DBEN'MOC!DTO

DRIVE

1 1-APR-80 13:58:55 PAGE 4-5

SEQ 0043

JEND OF BLOCK
JEXCEPTION
;JENABLE SEARCH
JLOOKING FOR SYNC
JENABLE CRC our
:DATA AREA
;HEADER AREA
J CONT INUE
;WORD CLOCK
JENABLE ECC OUT
;WRITE DATA BT

JLAST SECTOR

JLAST SECTOR AND TRAC(K
;DIAGNOSTIC MODE

TYPE REGISTER

= BIT1S

040000
020000
004000

NSA
TAP
MOH
DRQ

= BIT13
= BITN

;MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

020024
024024

SNGPRT
DULPRT

= 020024
= 024024

;SINGLE PORT DRIVE TYPE
;DUAL PORT DRIVE TYPE

: *RMOF

OFFSET REGISTER

FMT16

HC!
OFD
XNUOF

=
=
=
=
=

; *RMD(

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK
XNUDC

= 176000

010000
004000
002000
000200

161577

001777
176000

ECI

= BIT14

BIT1?2
8]TN
BIT10
BITO7
161577

= 001777

;NOT SECTOR ADDRESSED = 0

;TAPE DRIVE = 0

;16 BIT WORD FORMAT
JECC INMIBIT
JHEADER COMPARE INMIBIT
;OFFSET FORWARD
JUNSED BITS OF RMOF

JMASK FOR CYLINDER ADDRESS

JUNSED BITS OF RMD(C

; *RMMR 2 MAINTENANCE REGISTER #2
JREAD ONLY BITS
RQA
= BIT15
RQ8
= BIT14

= BIT13
= BIT1?2
= BITN
= BIT10
= BIT09
= BIT08
= BIT07
= BIT06
= BITOS
= BIT04
= B]T03
= BIT0?2
BITO1

;PORT A REQUEST
JPORT B REQUEST
;TAG CONTROL
;COMMAND SEQUENCE TEST BIT
;CONTROL OR CYLINDER TAG
. CONTROL OR HEAD TAG

. TAG BUS
. TAG BUS
;TAG BUS
. TAG BUS
;TAG BUS
. TAG BUS
. TAG BUS
:TAG BUS
. TAG BUS

b o X

RM REGISTER BIT DEFINITIONS

MACRO v03.01

mee

CZRMPAQ RMOS/3/2 DSKLS TST 1

RM REGISTER BIT DEFINITIONS

000001

MACRO v03.01

11-APR-80 13:58:55 PAGE 4=6
SEQ 0044

8800

= BIT00

;TAG BUS

ERROR REGISTER 2

;BAD SECTOR ERROR

100000

;SEEK

040000
020000
010000
004000
002000
000200
000010
001567

;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
;LOSS OF SYSTEM (CLOCK
;LOSS OF BIT CLOCK
sDEVICE CHECK
;DATA PARITY ERROR
JUNSED BITS OF RMERZ2

T
L

INCOMPLETE

001567

PROGRAM MNEMONICS

100000

= BIT1S
= BIT14

040000

T I VR TR TR 1

;CONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER
sERROR REGISTER #1
;LOOK AHEAD REGISTER
;MAINTENANCE REGISTER

SATTENT {ON SUMMARY REGISTER

O T

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

ILRG50
ILRGS2
ILRGS4
ILRGS6
ILRG60
ILRG6Z2
ILRG64
ILRG66
ILRG70
ILRG?7?
ILRG74
ILRG76

&H
&oH

T T

RME(CZ2

T O T O T T L T T T T T

sMAINTENANCE REGISTER #2

916

INDEX VALUES

TR TR T VO TR

RM REGISTER

sMANUFACTURING DETECTED SECTOR ERROR
JUSER DETECTED SECTOR ERROR

;ERROR REGISTER #2
sECC POSITION REGISTER
;ECC_PATTERN REGISTER
JILLEGAL REGISTER 50
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
c ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s JILLEGAL REGISTER
s ILLEGAL REGISTER
;s ILLEGAL REGISTER
s ILLEGAL REGIST.R

IDXMSK

= 77

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

JMASK FOR REGISTER INDEX NUMBER

;*RM(S1 CONTROL STATUS REGISTER #1

CZRMPAQ RMOS/3/2 DSKLS T?T 1

RH CONTROLLER REGISTER BIT

MACRO V03.01

DEFINITIONS

G 4
11-APR-80 13:58:55 PAGE 4-7

925
926
927
928
G29

100000
040000
020000
002000
001000

SC
TRE
MCPE
PSEL

=
=
=
=

3%%

000100

A6
RDY

= BIT08
= BIT07

930
931

000400
000200

3§§

936

937

938
939
940
941
942
943

944
945
946
947
948
951
952

100000

040000

020000
010000
004000
002000
001000
000409

000200
000100
000040
000020
000010
000004
000002
000001

960

961
962

963
964
965
966
967
968
3?8

= BIT06

JADDRESS EXTENSION

JADDRESS EXTENSION
;REALY-READ ONLY

:INTERRUPT ENABLE

DLT

= BIT15

;DATA LATE-READ ONLY

UPE
NED
NEM
PGE
MXF
MDPE

=
=
=
=
=
=

BIT13
BIT1?2
BIT1
BIT10
BIT09
BIT08

;UNIBUS PARITY ERROR
;NONEXISTANT DRIVE-READ ONLY
NONEXISTANT MEMORY-READ ONLY
;PROGRAM ERROR-READ ONLY
;MISSED TRANSFER
;MASSBUS DATA BUS PARITY ERROR-READ ONLY

BIT04
BITO03
BIT02
BITO1

:PARITY TEST
JUNIBUS ADDRESS INCREMENT
JUNIT SELECT
JUNIT SELECT
JUNIT SELECT

WwCE

OR
IR
CLR

PAT
BAJ
u2
U1
uo

= BIT14

=
=
=
=
=
=
=
=

BIT07
BIT06
BIT0S

BIT00

WRITE CHECK ERROR-READ ONLY

;OUTPUT READY-READ ONLY
:INPUT READY-READ ONLY
;CONTROLLER CLEAR

INHIBIT

JUNIT SELECT MASK

000007

3§§
959

= BIT09

;SPECIAL CONDITION-READ ONLY
; TRANSFER ERROR
;MASSBL,S CONTROL BUS PARITY ERROR-READ ONLY
;PORT 3 SELECT

;*RMCS2 RH CONTROL STATUS REGISTER #2

ggz

ggg

A17

BIT1S
BIT14
BIT13
BIT10

SEQ 0045

UNTMSK

= 7

JUNIT SELECT MASK

;*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000

APE

= BIT1S

:ADDRESS PARITY ERROR

020000
010000

DPELO
WCEHI

= BIT13
= BIT12

;DATA PARITY ERROR LOW WORD
JWRITE CHECK ERROR HIGH WORD

040000

004000
002000
000100
000010
000004
000002
000001

g;}

DPEHI

= BIT14

BITTMM
BITi(
BIT06
BITO03
BIT0?2
BITO01
BITO0

:DATA PARITY ERROR HIGH WORD

WCELO
DBL
IE
IPCK3
IPCK2
IPCK1
IPCKO

=
=
=
=
=
=
=

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

.SBTTL

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

973

000000

RMCST

= 00

;CONTROL, STATUS REGISTER #1

975
976
977
978
ggg

000004
000010
000022
000050
000052

RMBA
RMCS2
RMDB
RMBAE
RMCS3

= 04
=10
= 22
= S0
= 52

;BUS ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2
;DATA BUFFER
;BUS ADDRESS EXTENSION
;CONTROL, STATUS REGISTER #3

981

176700

ABASE

= 176700

;UNJBUS ADDRESS

974

00000?2

RMW(

= 02

JWORD COUNT REGISTER

982

120254

AVECT1

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ‘*.+2.HALT''
*~SEQUENCE

oxspnse:'fwoao 0

000000

SWREG:

.SBTTL

988

TO CATCH ILLEGAL

TRAPS AND INTERRUPTS

'LOCATION1O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174 000000

000137

:UNIBUS VECTOR ADDRESS AND PRIOK!TY

000170

ogy 000200

= 120254

.SBTTL TRAP CATCHER

000000

000176

004626

.WORD

*"SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

JMP

LSBTTL

; :SOF TWARE DISPLAY REGISTER

ASTART

:;JUMP TO STARTING ADDRESS OF PROGRAM

ACT11 HOOKS

:"t'l’tt*t**t'*tt**ifit*!"it'ttit*fitttifitti*fiittttttt*fifitt't

tti"'t

080

000204
000046

000046

8338%3

000052

000000

990
991

*HOOKS REQUIRED BY ACT11
$SVPC=.
=46
segng

"WORD

000204

001100

: SAVE PC

T=$SVPC

.=1100
CSBTTL

::1)SET LOC.46 TO ADDRESS OF

SENDAD IN .S$EOP

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

APT PARAMETER BLOCK

fitt*tt*t*ttttt*'tfi*it***tt'fi'ifit*ttifiikktfitttt*tttittttifitttttt

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

001100

000024
000044

.'tit*tl’t*l'fi*l’tttfiflt*tt*'t*'tfififit.*tttt*iififiitfifitfit*ttttittttttti

.$X=.

000024
000200
000044
001100
001100

=24
200
.=44
$APTHDR
.=.8X

:;:SAVE CURRENT LOCATION

:SET POWER FAIL TO POINT TO START OF PROGRAM
1 FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.
::POINT TO APT HEADER BLOCK
:-RESET LOCATION COUNTER

'.*ttfi*tl’tttfittttttttt*t'ttt'i"iii*fitt'fi*tt'ttfittiittti'tittttttt

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

001100
001100
001102
001104

000000
001222
000001

SAPTHD:
$HIBTS:
SMBADR:
$TSTM:

001110
00 001112

000002
88???5

SUNITM: .WORD
CAGADRe . WORD

001106

000002

$PASTM:

.WORD
.WORD
.WORD

_WORD

0
SMAIL
1

DIAGNOSTIC

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
- -ADDRESS OF APT MAILBOX (BITS 0-15)
“'RUN TIM OF LONGEST TEST

*'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
" LENCTH MAILBOX-ETABLE (WORDS)

SEQ 0046

mee ‘]

11-APR-80 13:58:55 PAGE 4-8

p o JW]

CZRMPAO _RMOS/3/2 DSKLS TST 1
MACRO v03.01
RH11/RH70 CONTROLLER REGISTER INDEX VALUES

CZRMPAQ RMOS5/3/2 DSKLS TST 1

COMMON TAGS

CRO v03.01

4
I
11-APR-80 13:58:55 PAGE 5

.SBTTL

SEQ 0047

COMMON T AGS

::tttt'tt'il'it*"tfittttttt"ttfitfittttt*titttttttttttt.tttttttttt

;*THIS TABLE

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001146

$AUTOB:
$INTAG:

.WORD
.BYTE
.BYTE
.
.

SWR:

DISPLAY:
$TKS:

$TKB:
$TPS:
$TPB:
:
SNULL
$FILLS:
$FILLC:
$TPFLG:

$TMPO:
$STMP:
$TMP?:
$TMP3:
$STMPS:
$TIMES:
$ESCAFE:
$B8ELL:
LASCIZ
$QUES:
.ASCI1
$CRLF:
.ASCII
LASCIZ
SLF

377
000

377

;s CONTAINS 'GOOD' DATA
2 ;CONTAINS 'BAD' DATA
. sRESERVED--NOT TO BE USED

;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR
; ;ADDRESS
. sADDRESS
;. TTY KBD
;:TTY KBD

001222
001224
001226

000000
000000
000000

.EVEN
$MAIL:
$MSGTY:
$FATAL:
$TESTN:

OF SWITCH REGISTER
OF DISPLAY REGISTER
STATUS
BUFFER

;2TTY PRINTER STATUS REG.
;:TTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

;. CONTAINS NULL CHARACTER FOR FILLS
csCONTAINS # OF FILLER CHARACTERS REQUIRED
s INSERT FILL CHARS. AFTER A 'LINE FEED'

;2 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;JUSER DEF INED
;;USER DEF INED
. sUSER DEF INED
; JUSER DEF INED
..USER DEF INED

s cMAX, NUMBER OF ITERATIONS
;ESCAPE ON ERROR ADDRESS
<207><377><377> ;.CODE FOR BELL
<1S>
<12>
IR

A AR

;- QUESTION MARK
s ;CARRIAGE RETURN
;.LINE FEED

A AN A AR

A RN R RARARNAA AR AR

ANNR NS

APT MAILBOX-ETABLE

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

001222

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

;CONTAINS
c+sCONTAINS
;s CONTAINS
;;CONTAINS
;s CONTAINS
;. CONTAINS
;s CONTAINS
;;CONTAINS
s 2CONTAINS
;:CONTAINS
.. CONTAINS

DDISP

SRR AN R AR A AR AR AR AR NN AR

.SBTTL

;. START OF COMMON TAGS

b —

b
—

—

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

.=TAGADR
eleolelelololaleloleol Jololololelolalal

$CMTAG:

OOOOOOR‘;NO

001114

838 £888888888888

s *USED IN THE PROGRAM,

.WORD
.WORD
.WORD

AMSGTY

AFATAL
ATESTN

RN AN AR AN AR RN AR AR

;sAPT MAILBOX
s sMESSAGE TYPE CODE

s .FATAL ERROR NUMBER

;. TEST NUMBER

ANRNANRN R RN RN A RANCNY

ERI

CZRMPAQ RMOS/3/2 DSKLS TST 1

APT MA]LBOX-ETABLE

000000
000000
000000
000000
000000
000
000
000000
000000
000000

MACRO v03.01

4
J
11-APR-80 13:58:55 PAGE 5-1
SEQ 0048

$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$ENV:
.BYTE
$ENVM:
_BYTE
$SWREG: .WORD
$USWR:
_WORD
$CPUOP: .WORD

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG

AUSWR
ACPUOP

* %

:t
:t

:t
;t

$MAMS1:
$MTYP1:

.BYTE
.BYTE

AMAMS1
AMTYP1

:sPASS COUNT

. sDEVICE COUNT
2:1/70 UNIT NUMBER
; sMESSAGE ADDRESS
s MESSAGE LENGTH

2 ;APT ENVIRONMENT TABLE

; ;ENVIRONMENT BYTE
s sENVIRONMENT MODE BITS
2 APT SWITCH REGISTER

;;USER SWITCHES
;:CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

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

;:HIGH ADDRESS.M.S. BYTE
;:MEM. TYPE,BLK#1

MEM.TYPE BYTE

=--

(HIGM BYTE)

900 NSEC CORE=001

$MADR1:

.WORD

AMADR1

tMAMS?2:
.BYTE
MTYP2:
.BYTE
$MADRZ:
.WORD
sMAMS3:
_BYTE
sMTYP3:
.BYTE
$MADR3:
.WORD
SMAMSS: .BYTE

AMAMS
2
AMTYP2
AMADR?
AMAMS3
AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADR4
AVECT1
AVECT?
ABASE

> %

SMTYP4:
.BYTE
$MADRS: .WORD
$VECT1: .WORD
SVECT2:
.WORD

$BASE :

$DEVM:
$CDW1:
$COW2:
$DDWO :
$DDWT :
$DDW2 :
$0DW3:
$DDW4 :
$DDWS :
$DDW6 :

$DDW7 :

$ETEND:

WORD

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

WORD

ADEVM
ACDW]
ACDW?
ADDWO
ADDW1

ADDW2
ADDW3
ADDW4
ADDW5

ADDW6
ADDW/

300 NSEC BIPOLAR=002
500 NSEC MOS=003
;:HIGH ADDRESS,BLK#1

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

;sHIGH ADDRESS
. M.S. BYTE

; :MEM,
TYPE ,BLK#?2
; ;MEM.LAST ADDRESS.BLK#?2
;sHIGH ADDRESS.M.S.BYTE

:sMEM.TYPE ,BLKA3

;sMEM.LAST ADDRESS.BLK#3
;:HIGH ADDRESS.M.S.BYTE
;:MEM.TYPE ,BLK#4
s sMEM.LAST ADDRESS.,BLK#4
;s INTERRUPT VECTORAH1.BUS PRIORITYMI
;s INTERRUPT VECTORA2BUS PRIORITY#?2
. ;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
2 ;CONTROLLER DESCRIPTION WORDA1
;s CONTROLLER DESCRIPTION WORDA?2
;:DEVICE DESCRIPTOR WORDA0
;:DEVICE DESCRIPTOR WORD#1
;;DEVICE DESCRIPTOR WORDA?2
;:DEVICE DESCRIPTOR WORD#3
;:DEVICE DESCRIPTOR WORD#4
;:DEVICE DESCRIPTOR WORD#S
;:DEVICE DESCRIPTOR WORD#6
;;DEVICE DESCRIPTOR WORD#7

CZRMPAQ RMOS/3/2 DSKLS TST 1

USER DEF INED TAGS

001326

000000

001330
00133

000
000

MACRO v03.01

K
4
11-APR-80 13:58:55 PAGE 6

.SBTTL

USER DEFINED TAGS

XXDP:

.WORD

LSTRK:

.BYTE
.BYTE

0
0

SEQ 0049

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

s 'XXDP' DEVéCE CODE FOR THE RM05/3/2.
;LO BYTE
;H]1

BYTE,

CONTAINS LAST

:UNDER TEST.

RM0273 = 4.,

TRACK ADDRESS OF

RMOS
= 18.

. THE REGISTER INPUT BUFFER IS USED FOR
;STORING DRIVE STATUS
GETBUF:

;REGISTER INPUT BUFFER

RMCS11:

.WORD

;CONTROL, STATUS REGISTER #1

;BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2
;DRIVE STATUS REGISTER
;ERROR REGISTER #1

RMWCI:
RMBAI:
RMDAI:

.WORD
.WORD
.WORD

RMDSI:

.WORD

RMASI:
RMLAI:
RMDBI:
RMMR1I:
RMDTI:
RMSNI:
RMOFI:
RMDCI:
RMHRI:
RMMR2I:

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

O
O
O
O
0
O
O
O
O
0

RMCS2I:
RMER1I:

.WORD

O
O
O

RMER2I:
RMEC1I:
RMEC2I:

.WORD
.WORD
.WORD

0
O
O

RMCS3I:

.WORD

RMBAEI:

.WORD

;WORD COUNT REGISTER

SATTENTION SUMMARY REGISTER

;LOOK AHEAD REGISTER
;DATA BUFFER

sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;HOLDING REGISTER
sMAINTENANCE REGISTER #2
sERROR REGISTER #2
.ECC POSITION REGISTER
sECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

;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
001436

RMCS10
RMWCO:
RMBAQ:
RMDAQ:

.WORD

RM(CS20:

RMDSO:

RMER10:

RMASO:
RMLAD:
RMDBO:
RMMR10:
RMDTO:
RMSNO:

(elelelololelalelelelalelo]

;CONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER

:BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2
;DRIVE STATUS REGISTER
;ERROR REGISTER A1
;ATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
sSERJAL NUMBER REGISTER

UNIT

CZRMPAOQ RMOS5/3/2 DSKLS TST 1

USER DEF INED TAGS

001440
001442
001444
001446
001450
001452
001454
001456
001460

000000
000000
000000
000000
000000
000000
000000
000000
000000

MACRO v03.01

&
L
11-APR-80 13:58:55 PAGE 6-1
SEQ 0050

RMOFO:
RMDCO:
RMHRO:
RMMR20:
RMERZ20:
RMEC10:
RMEC20:
RMBAEOQ:
RMCS30:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WwORD

0
0
0
0
0
O
O
O
9

;OFFSET REGISTER
;DESIRED CYLINDER REGISTER

sHOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER 42
;ECC POSITION REGISTER
sECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
:CONTROL, STATUS REGISTER #3

;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
;THE LOW BYTE AND T/{E ATTENTION BIT IN THE HIGH BYTE. THE
JFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
cIN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
;END OF THE QUE.
001462

000000

001504

000009

001506
001510
001512
001514
001516
001520
001522
001524
001526
001530
001532
001534

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

TSTQUE:

$LPCSR:
$LPCSB:
$LPVEC:

SLLCSR:
SLLVEC:
$PSW:
TIME:
WATCH:
CLOCK:
STOP:
;PUT

.WORD
.BLKW
.WORD

0
8.
0

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

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

172540
172542
104
106
177546
100
102

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

TAGS HERE

;ALL 8. DEVICES ARE UNDER TEST.

;KW11-L CONTROL + STATUS REGISTER
;KW11-L INTERRUPT VECTOR
;STORAGE
:STORAGE
;STORAGE
;ADDRESS
;ADDRESS

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

CIRMPAOQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

MACRO v03.01

M 4
11-APR-80 13:58:55 PAGE 7

SEQ 0051
.SBTTL

ERROR POINTER TABLE

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

;*THE

INFORMATION IS OBTAINED BY USING THE

INDEX NUMBER FOUND IN

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE1:

;*NOTEZ2:

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

W)
=

LR
B BB

:;POINTS TO THE ERROR MESSAGE

001536

$ERRTB:

;ERROR
063519
071366
071466
071514

001536
001540
001542
001544

:ERROR

063544

nN=O
NO

001602
001604

NED

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

EMT3

000000

:ERROR

CANNOT

;ERROR

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT

063564

wwhH W

001576

CANNOT READ OR WRITE ANY DEVICE REG WITHOU1

EMT?2
EHT?Z
EDT2
EFT2

071470
071516

g
e Y

001566
001570
001572
001574

EMTI
EHT1
EDT1
EFT

063516
071372

——
—

001556
001560
001562
001564

CANNOT CLEAR NED STATUS

:ERROR

Voo~

001546
001550
001552
001554

—

;:POINTS TO TH. DATA HEADER
;;POINTS 10 THE DATA
;;POINTS TO THE DATA FORMAT

063606
071376
071472
071520

EMTS
EHTS
EDTS
EFTS

JERROR

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

001606
001610
001612
001614

MACRC v03.01

N 4
11-APR-80 13:58:55 PAGE 7-1

063632
071376
071472
071520

SEQ 0052

EMT6
EHTS
EDTS
EFTS
;ERROR

063654
071402
071472
071520

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

EMT?7
EHT7
EDTS
EFTS5
:ERROR

APPEARS S-A-0

-ERROR

APPEARS S-A-1

:ERROR

;ERROR

063675
000000

EMT10

000000

063714

000000

063732
000000

063750

EMT13

000000
000000

;ERROR

001674

38
39

063766
000000
000000
000000

EMT14

;ERROR

CIRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE
4«0

001676
001700
001702

001704

MACRO v03.01

B 5
11-APR-80 13:58:55 PAGE 7-2

SEQ 0053

064004
000000
000000
000000
:ERROR

:ERROR

064022
000000
000000
000000

EMT17

sERROR

CANT WRITE

ZEROS RMDA

EMT20
EHTT
EDTI
EFT
JERROR

CANT WRITE ONES RMDA

EMT1
EHTT
EDTI

EFT?
;ERROR

BIT

INTERFERENCE

IN WRITING/READING RMDA

EMT22
EHTT
EDT
EFT1
;ERROR

CANT WRITE ZEROS RM(S1

EMT23

EHT

EDT
EFT?

JERROR

(ANT WRITE ONES RM(S1

r—

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

001766
001770
001772
001774

MACRO v03.01

;ERROR

001776
002002
002004

066172
071366
071466
071514

064206
000000
000009
000000

002024

064240
071366
071466
071514

INTERFERENCE IN WRITING/READING RM(31

MBA (LR L

IS STUCK ACTIVE

CANNOT

CLEAR RMER1-PAR,RMR,ILF,ILR

EMT27

EHT
EDT1
EFTI

:ERROR

064252
071366
071466
071514

CANNOT CLEAR RMER1-D(CK, JAE ,AOE ,HCRC,HCE ,ECH, WCF FER

EMT30

EHT
EDTI
EFT1
;ERROR

064266

CANNOT

CLEAR RMER1-OP],DTE

EMT31
EHT
EDT

071366
071466
071514

EFT

;ERROR
064302
071366
071466
071514

CANNOT WRITE O IN RMER1-PAR,RMR,ILF,ILR

EMT3?2

EHTI
EDTI
EFT

;ERROR

064316

BIT

EMT26

;ERROR

002016

25
EMT2S
EMHT
EDT
EFT1

:ERROR

002006
002010
002012
002014

EMT24
EHTI
EDT1
EFT1

0646152
071366
071466
071514

11-APR-80 13:58:55 PAGE 7-3

33
EMT 33

CANNOT WRITE O IN RMER1-DCK,
]AE,AQE ,HCRC ,HCE ,ECH, WCF ,FER

SEQ 0054

CIRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

002060
002062
002064

MACRO v03.01

D
5
11-APR-80 13:58:55 PAGE 7-4
SEQ 0055

071366
071466
071514

EHT
EDT
EFTI

:ERROR

064334
071366
071466
071514

CANNOT WRITE O IN RMERI-OP].DTE

EMT34
EHT
EDT1
EFT1
:ERROR

064352
071366
071466
071514

CANNOT WRITE

IN RMER1

CANNOT WRITE

SHIFTING

EMT35
EHT]
EDTI

EFT1

89
;ERROR

064366
071366
071466
071514

IN RMER1

EMT36
EHT
EDOTI
EFTI

;ERROR
064402
071366
071466
071514

EHT1
EDT]
FFT1

064416

:ERROR

002144

064436
071366
071466
071514

064452
000000

CANNOT WRITE ONES

IN RMDC

BIT

INTCRFERENCE

IN WRITING/READING RMDC

EMT41
EHT1
EDT1
EFT1

<ERROR
002146
002150

EMT40
EHT1
EDT1
EFT1

071366
071466
071514

002136

IN RMD(

EMT37

. ERRCR

CANNOT WRITE ZEROS

EMT&2
0

CANNOT WRITE

1'S

IN RMDC OR RMDA

TTmea
]

—

ERROR POINTER TABLE

002152
002154

MACRD v03.01

E
5
11-APR-80 13:58:55 PAGE 7-5
SEQ 0056

000000
000000

0
0
:ERROR

06446
071366
071466
071514

064510
071366
071466
071514

) —
—

VS W

—d amd
—

064524
071366
071466
071514

b —2
—

CoO~NON

b —
—

064540
071366
071466
071514

b
—

RN
=
=00

—
RPQUEIN

CANNOT

CLEAR RMERZ-LBC,DPE

CANNOT WRITE ZEROS RMER2-OPE,IVC,LSC

EMT47
EHT1
EDT
EFT1

;ERROR
064576
071366
071466
071514

[hS1a1
V)
NN

CANNOT CLEAR RMERZ2-OPE, IVC,LSC

EDT1
EFT1

064554
071366
071466
071514

CANNOT WRITE ZEROS RMERZ2-LBC(,DPE

EMTS50
EHT1
EDTI
IFM

;ERROR
064620
071366
071466

EMT46
EHTI

;ERROR

002236
002240
002242

UNUSED BITS OF RMERZ NOT ZERO

EMT4S
EHTT
EDT1
EFT

sERROR

002226
002230
002232
002234

EMT44
EHTI
EDTI
EFT1

;ERROR

002224

CANNOT CLEAR RM(CST1-FUNCTION CODE

EMT43
EHTI
EDTI
EFT1

. ERROR

002216

51
EMT51

EHT1
EDT1

CANNOT WRITE ONES RMER?

meo

CZRMPAQ RMOS/3/2 DSKLS TST 1

[EZRMPPO RMO5/3/2 DSKLS TST 1
ERROR POINTER TABLE

002244

MACRO v03.01

F
5
11-APR-80 13:58:55 PAGE 7-6

SEQ 0057

071514

EFTI
:ERROR

064640
071366
071466
071514

EMTS2
EHT]
EDT

EFT1
s ERROR

064654
071366
071466
071514

UNUSED BITS OF

RMOF ARE NOT ZERO

EMTS3
EHT1

EDT1
EFT1

. ERROR
064670

564

CANNOT WRITE ZEROS RMOF-FMT,ECI,HCI,OFD

EMTS54
EHT1
EDT1
EFT1

071366
071466
071514

. ERROR
064710
071366
071466
071514

CANNOT WRITE ONES RMOF-FMT,ECI,HCI,OFD

EMTSS
EHTI
EDT1
EFTT
;ERROR

064730
071366
071466
071514

CANNOT WRITE

SHIFTING ONES RMOF

EMTS6
EHT
EDT1
EFT1

. ERROR

002324

CANNOT WRITE SHIFTING ONES RMER?

064744
071406
071474
071522

DEVICE

IS NOT AN RM05/3/2

EMT57
EHTS?7
EDTS?7
EFTS7

143

;ERROR
002326
002330
002332
002334

U64760
071366
071466
071514

60
EMT60
EHT]
EDT1
EFT1

DEVICE AVAILABLE

IS NOT

SET

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

MACRO v03.01

;ERROR

— — el

=00

064774
071366
071466
071514

) od

S Wwro

—

ViV

;ERROR

~NOoONwn

(VIV.]V,

065050

;ERROR
065062
071412
071476
071524

23R

065076
071412
071476
071524

CANNOT CLEAR

ILR STATUS

ILR ERROR SHOULD NOT BE SET

ILR ERROR SHOULD BE

SET

EMT66

EHT65
EDT65
EFT65
s ERROR

002424

SHIFTING ONES RMHR

EMT65
EHT6S
EDT65
EFT65

2ERROR

065112
071366
071466
071514

CANNOT WRITE

EMT64
EHT1
EDTI
EFTI

071366
071466
071514

002416

CANNOT WRITE ONES RMHR

EMT63
EHTI
EDTI
EFT1
;ERROR

163

CANNOT WRITE ZEROS RMHR

EMT62
EHT1
EDT1
EFT

065034
071366
071466
071514

——

SEQ 0058

EFTI

:ERROR

161
162

EMT61
EHT
EDTI

065014
071366
071466
071514

159
160

11-APR-80 13:58:55 PAGE 7-7

EMT67
EHTI
EDT]
EFT1

CANNOT

CLEAR PAR STATUS-DPE

IS RESET

CZRMPAD RMOS/3/2 DSKLS TST 1
ERROR POINTER TABLE
167
168
169

002426

> —2

065130
071366
071466
071514

002436
002440
002442
002644

071416
071500
071526

065174
071416
071500
071526

002462
002464

065220
071416
071500
071526

RER

—

;ERROR

T&R

SET~'PAT'’' IS OFF

"PAR"' ERROR SHOULD BE SET-'PAT'' IS ON

UNEXPECTED BUS

TIMEOUT

EMT74
EHT74
ED174
EFT74

065250
071366
071466
071514
—
— —

"PAR'' ERROR SHOULD NOT BE

EMT73
EHT71
EDT71
EFT

0€5240
071422
071502
071530

CANT CLEAR 'DMD*’

EMT75
EHTI
EDT1
EFT1
;ERROR

071366
071466
071514

STATUS

"MCPE"" ERROR SHOULD NOT BE SET

JERROR

065262

CLEAR PAR AND DPE

EMT72
EHT71
EDT71
EFT71
:ERROR

002456
002460

CANNOT

EMT71
EHT71
EDT71
EFT7

065150

;ERROR
002446
002450
002452
002454

SEQ 0059

EMT70
EHTT
EDTI
EFT1
:ERROR

~N NN
WV SN

—

H
.S
11-APR-80 13:58:55 PAGE 7-8

sERROR

002430
002432
002434
170
17
172

MACRO v03.01

EMT76
EHTI1
EDT]
EFTI

CANT WRITE ZERC ‘DMD'’

189

190

065276
071366
071466
071514

065332
071366

DMD SET BY WRONG BIT

101

CANT CLEAR 'MOL’'
IN DIAGNOSTIC MODE

EMT101
EHT]
EDTI
EFTI

071466
071514

;ERROR
065352
071366
071466
071514

102

CANT SET 'MOL'' IN DIAGNOSTIC MODE

EMT102
EHT
EDTI
EFT1
:ERROR

002556
002560
002562
002564

100

EMT100
EHT71
EDT65
EFT65
;ERROR

200
201
202

CANT WRITE ONE 'DMD'’

EMT77

065312
071416
071476
071524

002554

77
EHTI
EDTI
EFT1

;ERROR

002546
002550
002552

SEQ 0060

;JERROR
002516
002520
002522
002524

11-APR-80 13:58:55 PAGE 7-9

065372
071416
071476
071524

103

"MUR'* SET BY WRONG BIT

EMT103
EHT?1
EDT65
EFT65
:ERROR

065416
071366
071466
071514

104

CANT RESET "WRL''
IN DIAGNOSTIC MODE

EMT104
EHT1
EDT1
EFT1

:ERROR
065436
071366
071466
071514

105

CANT SET "WRL'' IN DIAGNOSTIC MODE

EMT105
EHT
EDT1
EFT

:ERROR

106

"MWP'' SET BY WRONG BIT

Ma
.

ERROR POINTER TABLE

MACRO v03.01

meo

CZRMPAQ RMO5/3/2 DSKLS TST 1

CZRMPAQ RMOS/3/2 DSKLS TST 1
ERROR POINTER TABLE

002606
002610
002612
002614

065502
071366

;ERROR
002626
002630
002632
002634

107

CANT RESET 'DVC'' USING 'MDV(C'’

EMT107
EHTI
EDTI
EFT1

071466
071514

~NOwn

rorON

EMT106
EHT71
EDT65
EFT65
- ERROR

002616
002620
002622
002624
1

J
5
11-APR-80 13:58:55 PAGE 7-10

065456
071416
071476
071524

PadV.
[ aV]

—b
b h

FAR

MACRO v03.01

065522
071365
071466
071514

110

"DvC't IS RESET BUT "UNS'' IS SET

EMT110
EHT]
EDTY
EFT1

;ERROR
065544
071366
071466
071514

"Dve'' IS SET 8UT "UNS'' IS NOT SET

EMT111
EHT
EDT1
EFT1

;ERROR

065564
071366
071466
071514

112

CANT SET "DVC'' USING MDVC'’

EMT112
EHTI
EDTI
EFT1

;ERROR

113

"DVC' IS RESET BUT 'UNS'' IS SET

EMT113
EHTI
EDT]
EFT1

071466
071514

:ERRGR
065630
071366
071466
071514

174

"DVCt IS SET BUT "UNS'' IS NOT SET

EMT114
EHT1
EDT
EFT1

;ERROR

115

"MDF'* IS SET BY WRONG BIT

SEQ 0061

CZRMPAQ RMOS5/3/2 DSKLS TST 1
ERROR POINTER TABLE

MACRO v03.01

K _5
11-APR-80 13:58:55 PAGE 7-11
SEQ 0062

065652
071426
071504
071532
;ERROR

065676
071366
071466
071514

CANT RESET ''SKI'' USING 'MSER''

EFT1

;ERROR
065716
071366
071465
071514

117

CANT SET ''SKI'' USING 'MSER''

EMT117
EHT
EDTI
EFT1
:ERROR

"'SKI'" SET BY WRONG BIT

;ERROR

CANT RESET 'PIP'' USING ‘MoC'’

:ERROR

CANT SET 'PIP'' USING 'MOC'’

;ERROR

"MOC’* SET BY WRONG BIT

065736
071426
071504
071532

065762
071366
071466
071514

071514

066022
071426

071504
071532

;ERROR
066046

124
EMT124

CANT Ci.EAR 'EBL'’

CZRMPAQ RMOS/3/2 DSKLS TST 1
ERROR POINTER TABLE

002770
002772
002774

MACRO v03.01

11-APR-80 13:58:55 PAGE 7-12

071366
071466
071514

EHT1
EDTT
EFT1

;ERROR
066064
071366
071466
071514

125

"EBL'' NOT ZERO IN DIAGNOSTIC MODE

EMT125
EHT]
EDT1
EFT1

;ERROR
066104
071366
071466
071514

126

CANT SET "EBL'' USING ‘DERL'’

EMT126
EHTI
EDTI
EFT1

cERROR

"DEBL'’ SET BY WRONG BIT

066122
071426
071504
071532

cERROR
066146

"LS"" NOT CORRECT ACCORDING TO RMDA

EMT130
EHT130
EDT130
EFT130

071432
071506
071534

;ERROR
066164
071432
071506
071534

131

"LST"* NOT CORRECT ACCORDING TO RMDA

EMT131
EHT130
EDT130
EFT130

-ERROR
066202
071436
071510
071536

132

CANNOT

INCREMENT SECTOR ADDRESS USING ‘DEBL'’

CANNOT

INCREMENT TRACK ADDRESS USING 'DEBL''

EMT132
EHT132
EDT132
EFT132
:ERROR

066222
071436

130

SEQ 0063

CZRMPAOQ RMOS/3/2 DSKLS TST 1
ERROR POINTER TABLE

003062
003064

MACRO v03.01

)
11-APR-80 13:58:55 PAGE 7-13
SEQ 0064

071510
071536

EDT132
EFT132
;ERROR

066242
071366
071466
071514

134

UNUSED BITS OF

RMDC NOT ZERO

EMT134
EHT1
EDTI
EFTI
;ERROR

066256
071366
071466
071514

135

"VV'' NOT RESET BY UNIT READY

EMT135
EHT
EDT1
EFT1

;ERROR

066274

136

SERIAL NUMBER IS

INCONSISTENT

EMT136
EHT1
EDT1
EFT1

071366
071466
071514

sERROR
066306
071366
071466
071514

137

CANT CLEAR ''GO’' BIT

EMT137
EHT1
EDTI
EFT1
;ERROR

066324
071436
071510
071536

140

CANT INCREMENT CYLINDER USING ‘'DEBL''

EMT140
EHT132
EDT132
EFT132

;ERROR

CANT RESET 'LBT''
BY WRITING RMDA

; ERROR

CANT SET 'LBT'' USING ‘DEBL‘’

066344
071442
071510
071536

066360
071442
071510

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

003154
296
297
298

MACRO v03.01

N5
11-APR-80 13:58:55 PAGE 7-14

071536

EFT132
;ERROR

066376
071366
071466
071514

299

066434
071446
071506
071534

066456
071366
071466
071514

—d
b amd

W
—

066474
071366
071466
071514

145

COMP ERROR DID NOT SET

146

CANT SET ''GO'* BIT

147

CANT READ A ONE FROM ‘‘TST''

EMT147
EHT]
EDT
EFTI

:ERROR

150

""TST''
IS INCORRECT FOR THE FUNCTION CODE

;ERROR

151

CANT SET THE ''GO'' BIT

066506

b
b
b

[
NV,
P

003234

103236

003244

071514

OR RMER?

EMT146
EHT1
EDT1
EFTT

:ERROR

003226

CANT SET COMP ERROR WITH RMER1

EMT145
EHT145
EDT130
EFT130
. ERROR

003224

144

EMT144
EHT]
EDTT
EFT1

:ERROR

305

CANT READ ZERO FROM COMP ERROR

EFT1

066412
071366
071466
071514

302
303
304

143

EMT143
EHTI
EDT1

;ERROR

301

SEQ 0065

EMT151
EHT]
EDT]
EFT1

ERROR POINTER TABLE

MACRC v03.01

B
_6
11-APR-80 13:58:55 PAGE 7-15

SEQ 0066

;ERROR

066542
071366
071466
071514

152

"DRY'’ NOT THE COMPLEMENT OF ''GO"’

EMT152
EHTI
EDT]
EFT1
cERROR

066556
071366
071466
071514

153

"'GO"* RESET EARLY

EMT153
EHTT
EDT
EFTT
;ERROR

066576
0713
071460
071514

154

"'G0"' DIDNT RESET ON TIME

EMT154
EHTI
EDT
EFTI

:ERROR

CANT CLEAR CONTINUE

;ERROR

CONTINUE

;ERROR

CANT (LEAR

;ERROR

IVC

066616
071366
071466
071514
IS

INCORRECT FOR THE

FUNCTION CODE

066634
071452
071504
071532
]VC

IS INCORRECT FOR THE FUNCTION CODE

me~

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CIRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

338
339
340

MACRO v03.01

C
6
11-APR-80 13:58:55 PAGE 7-16

:ERRUR

£r

CANT CLEAR LSC

EMT161
EHTI
EDT
EFT

071514

;ERROR
066742
071366
071466
071514

162

CANT SET LSC

EMT162
EHT
EDT1
EFT1
:ERROR

066760
071366
071466
071514

163

COMMAND DECODE WAS ENABLED WiTH (COMP ERROR SET

EMT163
EHTI
EDTI
EFT

;ERROR
067002
071366
071466
071514

164

COMMAND DECODE

WAS ENABLED WITH (COMP ERROR SET

EMT 164
EHTT

EDTI
EFT1
;ERROR

067024

165

DECODE DOES NOT SET

EMT165
0
0
0
;ERROR

166

CANT CLEAR OCCUPIED

EMT166
EHTI
EDT
EFTT

071514
JERROR

067070
071366
071466
071514

161

167

EMT167
EHTI
EDT
EFT

ILF

SET WITHOUT GO BIT

SEQ 0067

(;éRHPAO RMOS5/3/2 DSKLS TST 1
ERROR POINTER TABLE

260
361

MACRO v03.01

D
6
11-APR-80 13:58:55 PAGE 7-17

:ERROR

003426
003430
003432
003434

003436
003440
003442
003444

003446

003454

170

SEQ 0068

CANT SET VOLUME VALID

067112
0714652
071504
071532
:ERROR

ILF

:ERROR

CANT SET OFFSET DIRECTION BIT

:ERROR

OCCUPIED

;ERROR

READ

IN PRESET

READ

IN PRESET DIDNT

CLEAR RMOF

READ

IN PReSET

DIDNT

CLEAR RMDA

READ

IN PRESET DIDNT

CLEAR RMDC

IS INCORRECT

067124
071452
C71504
071532

067149
071366
0714666
071514
IS

INCORRECT FOR FUNCTION CODE

067156
071452
071504
071532
DIDNT

CLEAR RMDA,

067200

;ERROR
067226
071366
071466
071514

EMT175
EHTI
EDT
EFT

;ERROR

067244
071366
071466
071514
380
381

175

176

EMT176
EHT]
EDT1
EFTI
;ERROR

177

RMDC

OR RMOr

MACRO v03.01

E
6
11-APR-80 13:58:55 PAGE 7-18

067262
071366
0714666
071514

EMT177

EHTI
EDT
EFT

;ERROR

067300
071366
071466
071514

067316
071365
071466
071514

391

003554

067334
071366
071466
071514

392

393
394

003564

067352
071366
071466

202

CANT RESET OFD BY RTC COMMAND

203

CANT RESET OM BY RMDC

EHTI
EDT1
EFT1

071514

067374
071366
071466
071514

401
40¢
403

CANT RESET OFFSET MODE BY RTC (OMMAND

EMT203

;ERROR

003604

201

EMT202
EHT
EDT1
EFT1

:ERROR
003556

CANT SET OFFSET MODE BY OFFSET COMMAND

EMT201
EHT1
EDT
EFT
;ERROR

003546

200
EMT200
EHTI
EDT]
EFT

<ERROR

389

SEQ 0069

204

CANT RESET OM BY EBL

EMT204
EHT1
EDT1
EFT1

;ERROR

RUN AND GO NOT

;ERROR

CANT SET

CORRECT

067414
071452
071504

071532

1AE ERROR

FOR FUNCTION (CODE

CIRMPAQ RMOS/3/2 DSKLS TST 1
ERROR POINTER TABLE

CIRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

003606
003610
003612
003614

MACRO v03.01

F
_6
11-APR-80 13:58:55 PAGE 7-19

067434

EMT206
0
0
0

000000
000000
000000

404
405

s ERROR

IAE

IS INCORRECT FOR FUNCTION CODE

:ERROR

IAE

INCORRECT FOR RMDA

. ERROR

IAE

INCORRECT FOR RMD(C

067464
071452
071504
071532
4«07
408
409

EMT207
EHT150
EDT115
EFT115

067500
071426
071504
071532

411
412

067516
071426
071504
071532

:ERROR

b
D
—

o~NON

067534
071442
071510
071536
B

207

212

CANT SET AOE

EMT212
EHT142
EDT132
EFT132

;ERROR

RMR SET WHEN WRITINS RMAS OR RM(CS

ERROR

CANT SET RMR

067546
071456
071504
071532
419
420

421

067576
071456
071504
071532

422

423
424

. ERROR
003676

067610

215

EMT215

DRQ IS O AND PGM ]S 1

SEQ 0070

ERROR POINTER TABLE

003700
003702
003704
425
426
427

G 6
11-APR~80 13:58:55 PAGE 7-20

SEQ 0071

071366
071466
071514

EHT
EDT
EFT
;ERROR

003706
003710
003712
003714

067630
071366
071466
071514

428
429

430

MACRO v03.01

067644
071366
071466
071514

2%%

SET

217

DPR

SET

IS NOT

EMT217
EHTI
EDT
EFT1

;ERROR
003726
003730
003732
003734

DVA IS NOT

EMT216
EHTI
EDT
EFTI
;ERROR

003716
003720
003722
003724

216

067660
071462
071512
071540

220

CANT SET PORT REQUEST BY READING RMC(CS1

EMT220
EHT220
EDT220
EFT220

434

435
636

437
438
439

440
441
442

;ERROR

003736
003740
003742
003744

067676
071462
071512
071540

067714
071462
071512
071540

222

CANT SET PORT REQUEST BY WRITING RMDA

EMT22¢
EHT220
EDT220
EFT220
;ERROR

003756
003760
003762
003764

CANT SET PORT REQUEST BY WRITING RMAS

EMT221
EHT220
EDT220
EFT220
JERROR

003746
003750
003752
003754

221

067732
071462
071512
071540

223

CANT RESET PORT REQUEST BY RELEASE

EMT223
EHT220
EDT220
EFT220

443

444

445

JERROR

003766
003770

067750
071366

224

EMT224
EHT

CANT

CLEAR ATA BY RMAS

COMMAND

Mr"tw]

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

003772
003774
446
W7
448

449
450
451

452
453
454

SEQ 0072

071466
071514

003776
004000
004002
004004

EDTI
EFT

067770
071366
071466
071514

004006
004010
004012
004014

070012
071366
071466
071514

ATA

IS RESET BUT RMAS NOT ZERO

226

CANT RESET ATA BY GO

EMT226
EHTT -

EDTI
EFT1

;ERROR
004016

225
EMT225
EHTI
EDT]
EFT

;ERROR

070030
071366
071466
071514

455
456

458
459
460

H 6
11-APR-80 13:58:55 PAGE 7-21

. ERROR

004024

457

MACRO v03.01

227

ATA NOT

SET BY UNIT READY

ATA NOT

SET BY UNIT READY

ATA NOT

SET BY

EMT227
EHTI
EDTI
EFT1

;ERROR
070046
071366
071466
071514

230

EMT230

EHT]
EDTI
EFT1

;ERROR
070064
071366
071466
071514

231

COMP ERROR

EMT231
EHT?
EDT:
EFT1

461

463

464

;ERROR

232

ATA SET/DID NOT SET WHEN REGISTER WRITTEN
WHILE COMP ERROR WAS SET

JERROR

233

ATA NOT

070100
071456
071504
071532

465

467

EMT233
EHT150

SET BY

COMMAND SEQUENCER

{EZRMPAO RMO5/3/2 DSKLS TST 1

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

004062
004064
468
469
470

471
472
473

474
475
476

480
481
482

070144
071452
071504
071532

SEQ 0073

234

WLE

INCORRECT ACCORDING TO FUNCTION CODE

EMT234
EHT150
EDT115
EFT115
;ERROR

070172
071366
071466
071514

235

CANT CLEAR EXCEPTION

EMT235

EHT1
EDT1
EFT1

:ERROR

070212
071426
071504
071532

236

CANT SET EXCEPTION

EMT236
EHT115
EDT115
EFT115

;ERROR
070244
071366
071466
071514

237

CANT CLEAR IVC

EMT237
EHT

EDT1
EFT1

;ERROR

070244
071452
071504
071532

240

CANT SET

IvC

EMT237
EHT150
EDT115
EFT115

:ERROR
070310
071366

241

OP] NOT SET DURING RECALIBRATE

EMT241
EHT1
EDT
EFT1

071466
071514

;ERROR
070334
071366
071466

EDT115
EFT115

;ERROR
004066
004070
004072
004074

11-APR-80 13:58:55 PAGE 7-22

071504
071532

477
478

479

MACRO v03.01

242

EMT242
EHTI
EDTI

RECALIBRATE

DID NOT ABORT WHEN DRIVE

FAULT

SET

004154
489
490
491
492

496
497
498

J
_6
11-APR~80 13:58:55 PAGE 7-23

071514

EFTI

;ERROR
004156
004160
004162
004164

070360
071366
071466
071514

493
495

MACRO v03.01

070404
071366
071466
071514

244

ATA NOT

SET DURING RECALIBRATE

EMT244
EHTI
EDT1
EFT

;ERROR
070422
071366
071466
071514

245

GO RESET EARLY DURING RECALIBRATE

EMT245
EHTT
EDT1
EFT

:ERROR
070440

246

GO NOT RESET DURING RECALIBRATE

EMT246
EHTT
EDT1
EFT1

N71366

071466
071514

;ERROR
070464
071366
071466
071514

247

INCORRECT TAG BUS DURING RECALIBRATE

EMT247
EHT
EDT1
EFT1
;ERROR

070502
071366
071466
071514

250

OP] SHOULD HAVE SET DURING SEEK BECAUSE UNIT
READY DROPPED

EMT250
EHT1

EDT1
EFT1

:ERROR
070526
071366

OP]1 SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING RECALIBRATE

EMT243
EHT]
EDTI
EFT1
. ERROR

004166
004170
004172
004174

243

¢S

EMTZ251
EHT?

SEEK DID NOT ABORT WHEN DRIVE FAULT SET

SEQ 0074

CZRMPAO RMOS/3/2 DSKLS TST 1
ERROR POINTER TABLE

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

d
e
d
——

K 6
11-APR-80 13:58:55 PAGE 7-24

SEQ 0075

071466
071514

N SN

(S, IV, 18 AV, |

004242
004244

MACRO v03.01

sERROR

070552
071366
071466
071514

EMT252
EHTI
EDT1
EFTI
:ERROR

070576
071366
071466
071514

253

ATA NOT SET DURING SEEK

EMT253
EHT1
EDT
EFTT

;ERROR
070614
071366
071466

254

GO RESET EARLY DURING SEEK

EMT254
EHT?
EDT

071514

EFT1

:ERROR
070632
071366
071466
071514

255

GO DID NOT RESET DURING SEEK

EMT255
EHT1
EDT1
EFT1
;ERROR

070656
071366
071466
071514

256

INCORRECT TAG BUS DURING SEEK

EMT256
EHT]
EDT1
EFT

;ERROR
070674
071366
071466
071514

257

OP]I NOT SET DURING SEARCH

EMT257
EHT1
EDT1
EFT1

;ERROR

070720
071366

OP] SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING SEEK

260

EMT260
EHT1

SEARCH DID NOT ABORT WHEN DRIVE FAULT SET

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

004332
004334

L 6
11-APR-80 13:58:55 PAGE 7-25
SEQ 0076

071466
071514

534
535
537

MACRO v03.01

. ERROR

OP]1 SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING SEARCH

070744
071366
071466

071514

538
539
540

:ERROR
070770
071366
071466
071514

541
542

543

EFT1

: ERROR
071006
071366
071466

263

GO RESET EARLY DURING SEARCH

EMT263
EHT1
EDT
EFT1

544

;ERROR
071024
071366
071466
071514

264

GO DID NOT RESET DURING SEARCH

EMT264
EHTI
EDTI
EFT

;ERROR
071050

265

SEARCH ENABLE DIDNT SET DURING SEARCH

EMT265
EHTI
EDT1
EFT1

071366

071466
071514

;ERROR
071066
071366
071466
071514

266

INCORRECT TAG BUS DURING SEARCH

EMT266
EHTI
EDT1
EFT1

;ERROR

071104
071366

ATA NOT SET DURING SEARCH

EMT262
EHT
EDT

071514

546

262

267

EMT267
EHT1

OP] NOT SET BY SEARCH TIMEOUT

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

004422
004424

MACRO v03.01

071466
071514

556
;ERROR

558

071120
071366
071466
071514

559
5¢1

562
563
564

071144
071366
071466
071514

OPI NOT SET DURING DATA COMMAND

271

DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET

EMT271
EHTI
EDT]
EFTT
;ERROR

004446
004450
004452
004454

270

EMT270
EHT1
EDT
EFT1
;ERROR

004436
004440
004442
004444

11-APR-80 13:58:55 PAGE 7-26

071170

272

EBL RESET EARLY DURING DATA COMMAND

EMT272
EHTI
EDT1
EFT

565

567

;ERROR
004456

004462
004464
568
569
570

071466
071514

071224
071366
071466
071514

274

GO NOT RESET DURING DATA COMMAND

EMT274
EHT1
EDTI
EFT

;ERROR
071242
071366
071466
071514

275

RUN AND GO NOT SET DURING DATA COMMAND

EMT275
EHT1
EDT
EFT1
JERROR

071262
071366
071466

EBL DIDNT RESET ON TIME DURING DATA COMMAND

EMT273
EHT]
EDTI
EFT1
;ERROR

004466
004470
004472
004474

273

276

EMT276
EHT

EDTI

INCORRECT TAG BUS DURING DATA COMMAND

SEQ 0077

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

004514
577
578
579
580

MACRO v03.01

;ERROR

:ER?OR
071324
071366

587

589

;ERROR
071350
071366
071466
071514

OP] NOT SET DURING DATA COMMAND WHEN ON
CYLINDER DIDNT DROP

300

DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET

EMT300
EHTI
EDTI
EFT1

071466
071514
584
585
586

277
EMT277
EHTI
EDT1
EFT1

071300
071366
071466
071514

583

EFTT

071514

581

11-APR-80 13:58:55 PAGE 7-27

301

SEARCH NOT ENABLED DURING DATA COMMAND

EMT301
EHT1
EDT
EFT1
;PUT ERROR TABLE HERE

SEQ 0078

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR POINTER TABLE

MACRO v03.01

]

7
8
11-APR-80 "3:58:55 PAGE 8

;THIS ROUTINE

3 004546

& 004550

S 004552
6 004554
004560
004620

7 004620
8 004622

011600

BADTMO: MOV

005740

022626
104401
000417

TST

004562

;:658:

648"

010046
104407

9 004624 000240

16 004634
}g 004636

000240
005227
001375

(SP) ,RO

-(R0O)

(SP)+,(SP+
,65%
643

MOV
TYPOC

RO,=(SP)

000000

JRESTORE STACK POINTER
;s TYPE ASCIZ STRING
“:GET OVER THE ASCIZ
\

:SETUP FOR' TYPING OUT PC
;TO STOP ON UNEXPECTED TIMEOUT.

START OF PROGRAM

START:

NOP
INC

000005

;SAVE PC WHERE THE TIME OUT OCCURED
sADJUST PC =2

:PUT 'HALT(0)' INSTRUCTION HERE IF YOU WISH

.SBTTL

BNE
RESET

TIMEOUTS

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

NOP

_1'?

14 004626
15 004630

HANDLES UNEXPECTED

(MP
TYPE
BR

.ASCIZ

SEQ 0079

40
=4

:TTY LOOP, WAIT FOR INCREMENT
:OF WORD
JRESET THE WORLD

LSBTTL INITI, (1ZE THE COMMON TAGS

004640
004645
004646
004652
004654

012706
005026
022706
001374
012706

001114

004660
004666
004674
004702
004710
004716
004726
004732
004740
004746
004752
004756
004764

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

057066
000340
057640
000340
061400
000340
061506
000340
053672
001206
001210
000001
004764

004772

(12737

005000
005004
005012
005020
005026
005034

013746
012737
012737
012737
022777
001012

005036
005040
005044
005046
005054

000403
012716
000002
012737
012737

;:CLEAR THE COMMON TAGS (SCMTAG) AREA

0N1154

001100

004772
000004
005C )
177570
177570
177777

000020
000022
000030
000032
000034
000036
000024
000026
053664
001131
001122

001124

000004
00115¢
001156
174120

005046

000176
000174

MOV
#LCMTAG,R6
;cFIRST LOCATION TO BE CLEARED
CLR
(R6)+
;s CLEAR MEMORY LOCATION
CMP
#SWR.R6
: : DONE?
BNE
=6
:1LOOP BACK IF NO
MOV
ASTACK,SP
:ISETUP THE STACK POINTER
::INITIALIZE A FEW VECTORS
MOV
#$SCOPE,a#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE
MOV
#340,a¥10TVEC+2 ;-LEVEL 7
MOV
WSERROR,a¥EMTVEC :;EMT VECTOR FOR ERROR ROUTINE
MOV
#340,¥EMTVEC+2 ;:LEVEL 7
MOV
WSTRAP,@#TRAPVEC ::TRAP_VECTOR FOR TRAP CALLS
MOV
#340,@#TRAPVEC+2;LEVEL 7
MOV
#SPWRDN,a#PWRVEC ;:POWER FAILURE VECTOR
MOV
#340, #PWRVEC+2 :-LEVEL 7
MOV
SENDCT,SEOPCT
::SETUP END-OF~PROGRAM COUNTER
CLR
STIMES
P:INITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
::CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
:ALLOW ONE ERROR PER TEST
MOV
#..SLPADR
::INITIALIZE THE LOOP ADDRESS FOR SCOPE
#..SLPERR
:SETUP THE ERROR LOOP ADDRESS
MOV
:SIZE FOR A HARDWARE SWITCH REGISTER.

MOV

#DDISP,DISPLAY

;;AND A HARDWARE DISPLAY REGISTER

BNE

66$

BR
MOV
RTI
MOV
MoV

65%
#65%, (SP)

:;BRANCH IF NO TIMEOUT TRAP OCCURRED
..AND THE HARDWARE SWR IS NOT = ;BRANCH IF NO TIMEOUT

cMP

64$:

001154
001156

IF NOT FOUND OR IT IS

EOUAL TO A '~1"", SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV
SWERRVEC,~(SP)
;;SAVE ERROR VECTOR
MOV
#64S, QNERRVEC
;;SET UP ERROR VECTOR
MOV
#DSWR, SWR
;;SETUP FOR A HARDWARE SWICH REGISTER

658:

#-1,aSWR

::TRY TO REFERENCE HARDWARE SWR

:SET UP FOR TRAP RETURN

#SWREG, SWR
;:POINT
#DISPREG,DISPLAY

[0 SOF TWARE SWR

CZRMPAO RMOS/3/2 DSKLS TST 1
INITIALIZE THE COMMON TAGS

MACRO v03.01

012637

000004

005066

005037

001230
000200

001243

001244

001154

001403
012737

012737
012737
012746
012746
00002

66$:

000004
000006

675

001242

.SBTTL

112737

000001

001154

000176

000001

001150

000426

$PASS

;. CLEAR PASS COUNT

679

;. YES ,USE NON-APT SWIT(H

N#APTSIZE ,$ENVM

MOV

W#SSWREG, SWR

BEQ

MOV

000042

;.RESTORE FRROR VE(CTOR

BIT8B

MOV

.SBTTL

005222

(SP)+ ,Q#ERRVEC

;;TEST USER SIZE UNDER APT

:sNO,USE APT SWITCH REGISTER

;SETUP “TIMEOUT'® TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

;. TYPE

177777

MOV
CLR

685

054026

SEQ 0080

005062

132737

11-APR-80 13:58:55 PAGE 8-1

MOV
MOV
RTI

66;051

#PRG,ERRVEC+2

#PR3,~(SP)
#688,-(SP)

;SETUP FOR UNEXPECTED

LEVEL 6

TIMEOUT

:sPUT NEW PS ON STA(K
:;PUT NEW PC ON
STACK

;;POP NEW PC AND PS

TYPE PROGRAM NAME

THE NAME OF THE PROGRAM IF FIRST PASS

INC
-1
;oFIRST TIME?
BNE
69%
; :BRANCH IF NO
cMP
#SENDAD , 3442
;.ACT=11?
8EQ
693
..BRANCH IF YES
TYPE
,708
sTYPE ASCIZ STRING
GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
a6l
;;ARE WE RUNNING UNDER XXDP/A(CT?
BNE
718
; ;BRANCH IF YES

CMP8

SENV. 41

P
BNE
g;SUR

SWR,#SWREG
72%
228

;SOFTWARE SWITCH REG SELECTED?
; ;BRANCH IF NO
;:GET SOFT-SWR SETTINGS

MOVB

#1,$AUTOB

;. SET AUTO-MODE INDICATOR

B8R
LASCIZ

69%
JGET OVER THE ASCIZ
<CRLF>3CZRMPAQD - RMOS/S/Z DISKLESS TEST, PART 1a<CRLF>

BEQ

71%:
72%:

W#BADTMO,ERRVEC

718

;cARE WE RUNNING UNDER APT?

;;BRANCH IF YES

:THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE
:
:PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP

001326
000016

000041

000040
000007

001326
001326

001326
000042

42 005402
43 005404

;CLEAR °*XXDP' LOAD DEVICE STORAGE
;LOADED FROM AN RM05/3/2 ?

MOV

a#60, XXDP

;GET DEVICE INDICATOR AND NUMBER
;IS IT A VALID NUMBER ?

(MP8

1$:

BHIS
CLRB
TST

#7
. XXDP

BEQ

1%
XXDP
H62
3

B8R

738

TYPE

73;45

001326

XXDP
#16,a#41

BNE

005350

40 005374

CLR
cMP8

LASCIZ

748

;BRANCH IF NOT

JYES
:NO, DEFAULT TO DRIVE 0
:CHAIN MODE OR ACT11 AUTO ACCEPT ?
*BR IF NEITHER

..TYPE ASCIZ STRING

SGET oven THE ASCIZ

<CRLF>/NOT TESTING DRIVE
/

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

;CLEAR WORD ON STACK
*GET DRIVE ADDRESS
*TYPE THE ADDRESS
*ONLY 1 CHARACTER

CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER
44 005405
45 005406
29 005412

000
104401
000517

48 005414
49 005420
50 005422
005426

005227
001114

005450
51 005450
52 005452
53 005456
54 005460
55 005461
56 005462
005466

005552
57 005552
005556
6

104401

000410
005046
113716
104403
001
000
104401
000431
104401

000435

001217

TYPE
BR

177777

3s:

005430

768

001326

;:79%:

105737
001506
012737

001300

67 005666
68 005666
93 005674

132737
001066

005001
13700

74 005704
75 005712
76 005714
77 005722
78 005726
79 005730
g? 005734

136137
001453
012737
005737
001403
123701

82 005736
83 005744
84 005750
85 005754
86 005762
87 005770
88 005772
89 006000
90 006006
91 006010
22
93 006012
94 006020

CLR
MOVR

-(SP)
XXDP, (SP)

.BYTE
.BYTE

)

TYPE

JFIRST TIME THRU HERE ?

3368

:NO
,,TYPE ASCIZ STRING

?ss

;GET OVER THE ASCIZ

;CLEAR WORD ON STACK
JGET DRIVE ADDRESS

s TYPE DRIVE ADDRESS

JONLY 1 CHARACTER
;SUPRESS LEADING ZEROS
;. TYPE ASCIZ STRING
;:GET OVER THE ASCI2Z

07ss
77¢
/.,

HALT

PROGRAM,

REMOVE RRDP PACK AND REPLACE

001426
012760

000200

001243

XSIZ:

001276

063052

062675

001326

IT/<CRLF>

,,TYPE ASCIZ STRING

§s

BR
LAS(CIZ

/WITH A WORK PACK,

BEQ
MOV

STANDALONE
#377,8DEVM

;GET OVER THE ASCIZ

CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF>

:BR_IF NO

;SET DEVICE MAP FOR ALL DRIVES

;PROGRAM IS RUNNING IN AUTO MODE - SEE

005676

;% 005700

;GET NUMBER OF DRIVES

5%:
;CHECK FOR AUTO MODE OR STANDALONE
TST8B
$SAUTOB
JRUNNING IN AUTO MODE ?

001150

000377

§s

<CRLF>/TO TEST DRIVE

. 788 : B§sc12

005560

gUPfESS LEADING ZEROS

$CRLF

ASCIZ

B8NE
TYPE

TYPE

55¢.;

SEG 0081

#-1

TYPOS

005470

INC

41 TN

005652

62 005652
63 005656
gg 005660

11-APR-80 13:58:5% PAGE 8-2

001300

1%:

006040

001326

000040
000010
000012
062715
010000

006040
000010

062732
004000

006040
000000

000010

001300

2%:

3s:

4%:

SIZING IS ALLOWED

Bl1T18
BNE

#BIT7 ,$ENVM

CLR
MOV

R1
$BASE RO

BlT8
BEQ
MOV
TST
BEQ
(MP8
8tQ

ATNT
(R1) ,$DEVM
BL

XXDP,R1

IS THIS THE DRIVE ?
:YES, TRY NEXT DRIVE

MOV

#CLR,RMCS2
(RO)

;CLEAR MASS BUS
sLOAD THE DRIVE ADDRESS
sTRY TO ACCESS AN RM DRIVE REGISTER
sGET ADDRESS OF NOT PRESENT MESSAGE
;1S DRIVE PRESENT ?

;SIZING ALLOWED ?

#LODEV,5%
XXDP

sSTART FROM DRIVE 0
;LOAD THE BASE ADDRESS
;1S DEVICE PRESENT IN MAP ?

.
F NO
;BR
;GET ADDRESS OF LOAD DEVICE ME SSAGE
LOADED FROM RM05/3/2
?

MOV
TST
MOV
BIT
BNE
MOV
8IT
BEQ
BR

R1_RMCS2(RO)
RMDS (RO)

BI(CB

ATNTBL (R1) ,$DEVM c

TYPE

#NOTPRS,5%

ggED.RHCSZ(RO)

#NOTAVL
, 5%
§2VA.RMCS1(R0)

.SCRLF

;B8R _IF NO

:GET ADDRESS OF AVAILABLE MESSAGE
;1S DRIVE AVAILABLE ?

;BR IF NO

;CLEAR DEVICE FROM BIT MAP

CIRMPAQ RMOS/3/2 DSKLS TST 1

GET VALUE FOR SOF TWARE

95 006024
96 006030
006032
006034
006035
97 006036
98 006040

99
100 006042
101 0C5044
10% 006050

006060

104401

010146

SWITCH REGISTER

062667

104403
002
000
104401
000000

005201
020127
003715

MACRO v03.01

E 7
11-APR-80 13:58:55 PAGE 8-3
TYPE
MOV

TYPOS

.MSGDRV

R1,-(SP)

.BYTE
.BYTE

5%:
000007

104401
005004
005304
001376
005304
001376

001217

000137

007000

6%:

c£Q 0082
JTYPE

°'DRIVE'

;:SAVE R1

FOR TYPEOUT

;.60 TYPE--OCTAL ASCI!I
J.TYPE 2 DIGIT(S)

;< SUPPRESS LEADING ZEROS

TYPE

;TYPE ERROR MESSAGE

INC
(MP
BLE

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

TYPE

;CR=LF
s THESE TWO LOOPS ARE ADDED TO

.WORD

;ADDRESS OF MESSAGE GOES HERE

CLR

DEC
BNE
DEC
BNE

JMP

JWAIT FOR

CMNSTART

TTY

TO FINISH TYPING.

;JUMP TO COMMON START

CZRMPAQ RMOS/3/2 DSKLS TST 1

STANDALONE

INPUT ROUTINES

MACRO v03.01

060050

006100
006104

005227
001426

177777

_Ag..a

004737

NN S WIND
b
)
D

NN = OO 00

d
D
d vind
b

N OO NN

.SBTTL

006074

006120
006124
006132
006134
006140

012637
104401
123727
001004
104401
000137

INC
BEQ

006144
006152
006154
006160

123727
001427
104401
000752

062234

001176
001176
001176

000131

TYPE
JMP

000116

2%:

06263

gg 006226

104401
104411
012637
104401
123727
001407
123727
001405
104401
104401

001176
001176

000131

001176

000116

40 006232
41 006232
42 006236
43 006242
44 006244
45 006250
46 006254

§§EE
104401
104401
104411
012637
104401
123727

001217
062201
001176
001176
001176

48 006264

123727

001176

50 006274

104401

062631

(SP)+,$TMP1
. STMP1

S$TMP1 &Y
28

104401
013746
104402

062267
001276

JYES RESPONSE ?

JNO!!
s CR=-LF

.SCRLF
CMNSTART

;KEEP PREVIOUS PARAMETERS

,CNSLO8

,MSHELP

(SP)+,$TMP1
,$TMP]

STMPI,A'Y

BEQ
CMPB
BEQ

48
$TMP] 4N
5%

TYPE

CNSLOS

HELP

;NO,

TYPE

ILLEGAL

INPUT

°*

SWANT HELP ?

;GET RESPONSE
;SAVE AND ECHO RESPONSE

;v@g

IT A YES RESPONSE

Evég IT A NO RESPONSE ?
INO, TYPE ' ILLEGAL INPUT®

;TRY AGAIN

‘YES - TYPE HELP TEXT

IF USER WANTS TO CHANGE UNIBUS ADDRESS

TYFE

CMPB

8EQ

CMPB
BEQ
TYPE

,$CRLF
-UBUSQST

TYPE

MOV

TYPOC

;CR=LF

JWANT TO CHANGE ADDRESS ?

(SP)+,$TMP1

;GET RESPONSE
;SAVE AND ECHO RESPONSE

STMP1
., #'Y

;vég IT A YES RESPONSE

$STMP1
. #'N
12%

Evég IT A NO RESPONSE 2

,$TMP]

CNSL.08

§§+4

égIALOGUE TO CHANGE

55 006302
56 006306
006312

;MAINTAIN PREVIOUS PARAMETERS ?
;GET RESPONSE
;ECHO RESPONSE

IF OPERATOR WANTS HELP TEXT

MOV

000116

.CNSLOO

:TRY AGAIN

TYPE
TYPE
RDCHR

000131

ctMP8

;FIRST TIME THRU HERE
JYES !!

TYPE

103712

H=1
3%

sNO RESPONSE ?
YES, GET NEW PARAMETERS

MOV
TYPE

062631

;INITIALIZE CONSOLE

$TMP1 #°'N
5%

TYPE
RDCHR

001176

PC,STKINT

CMPS
BEQ
TYPE

062150

INPUT ROUTINE S

THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

(MPB
BNE

égEE

27 006162
28 006166
29 006170
30 006174
31 006200
32 006206
33 006210
34 006216
35 006220

TYPE
RDCHR
MOV
TYPE

001217
007000
001176

STANDALONE

:
STANDALONE
JSR

%EEE
1064401
104411

SEQ 0083

20
21
22
23

11-APR~80 13:58:55 PAGE 9

*NO, TYPE ' ILLEGAL INPUT *

:TRY AGAIN

THE UNIBUS ADDRESS,

. CNSLO1

$BASE,-(SP)

:TYPE

VECTOR ADDRESS AND INTERRUPT PRIORITY

CURRENT BUS ADDRESS

;;SAVE $BASE FOR TYPEOUT
;:G0 TYPE--OCTAL ASCII(ALL DIGITS)

012637
001412
022737
101403

062141

160000

001176

104401

062347

104413

012637
001412
022737

MOV
BEQ

001176

52305

013737
005046
113716
104403
003
000
104401

TYPE
RDCCT

001176

7%:
8%:

001272

001000

001176

104401
005046
113716
006216
006216

062423

001272

9s%:
108:

001273

.BYTE
BYTE

3
0

001176

062435
001176
001176
001176
001176
001176
001176

001273

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

BYTE
.BYTE

1
0

MOV

(SP)+,$TMP1

B8R

ASL
ASL
ASL
ASL
ASL

mMov8

%8£ALOGUE

177777

062466

108
#1000,$TMP1

TYPE
CLR
MOvB
ASR

TYPE

11¢:

(SP)+,$TMP1

BR
MovB

8EQ
P
BLT

000007

.QUES

9s
. CNSLO4
8%
$TMP1 ,SVECTI

TYPE
RDOCT

SEQ 0084
JTYPE ' 2

JGET NEW BUS ADDRESS
;CARRJAGE RETURN ?
JYES=SKIP YO NEXT ENTRY
:eégf ADDRESS IN [/0 PAGE ?
:TYPE WARNING MESSAGE
;TRY AGAIN

;STORE NEW BUS ADDRESS

.CNSLO3

=(SP)
$VECT1, (SP)

ASR
ASR
ASR
ASR
TYPOS

001176

TYPE

.CNSLO2

CLR
MOvB

TYPE

062141

63+4
$TMP1, $BASE

BEQ
cMP
BHI

001176

062367
113737

BR
MOV

TYPE
RDOCT
MOV

001176

(SP)+,$TMP1
8s

#160000,$TMP1
7%

TYPOS

062141

.QUES

cMP
BLOS
TYPE

001276

;GET CURRENT VECTOR ADDRESS
;TYPE 3 DIGITS

;SUPPRESS LEADING ZEROS

sGET NEW VECTOR ADDRESS
s CARRIAGE RETURN?
;YES=SKIP TO NEXT ENTRY

;¥EgT9R ADDRESS < 1000 ?
:TYPE WARNING MESSAGE

JRETRY
;STORE NEW VECTOR ADDRESS

:GET CURRENT BR LEVEL

(SP)
(SP)
(SP)
(SP)

,QUES

12%
S$TMP1 47
118
. CNSLO6

108

$TMP1
$TMP
$TMP1
$TMP]
$TMP1

JONLY 1 DIGIT
;SUPPRESS LEADING ZEROS
;GET NEW PRIORITY
;CARRJAGE RETURN ?
JYES=SKIP TO NEXT ENTRY
;LEGAL PRIORITY ?

JYES!!
;TYPE WARNING MESSAGE
;TRY AGAIN

;STORE NEW PRIORITY

$TMP1,SVECT1+1

TO INPUT DEVICE NUMBERS

INC

TYPE

.CNSLO7

BNE

138

104401
104413

11-APR-80 13:58:55 PAGE 9-1

Ing LéME

THRU ?

YPE

INSTRUCT]ONS

57 006314

MACRO v03.01

—

CIRMPAO RMOS/3/2 DSKLS TST 1
STANDALONE INPUT ROUTINES

O
W

INPUT

CIRMPAD RMOS5/3/2 DSKLS TST 1
INPUT ROUTINES

001217
001300
062653

012637
023727

001176
001176

d nd

104401
104411

sSHrONNON

b
d o
D
D
) e
D nd =D

005037

104401

AINININININININININ)
= 2 2 b 2
N OO NOWVEBINN
= OOV~

STANDALONE

0014636

b cnd

)

) ——d

006636
006640
006644
006652
30 006654
31 006662

MACRO v03.01
13%.
14%:

000101

062134
000377
005666

001300

001176

000015

001176
001176

000060

001176

000067

15%:

16%:

34 006666
35 006670
36 006674

D —d

001176
001176

0 006714
1 006722
2 006724

4 006734

0 006760
2 006770
3 006774

—

b cad wad

b nd e

d d

b d

d i

V\\Ji\n\h\nl\bl\gbbl\l\bl\u

37 006702
38 006704
9 006710

013701
042701

156137
122737
101337
104401
000137

000015

TYPE
RDCHR
MOV

$CRLF

000060

001176

000067

062631

17%:

001176
177770
063052
000377

18%:

001300
001300
19%:

SEQ 0085
s CR=LF

$DEVM

*CLEAR DEVICE MAP

(SP)+,$TMP1
STMP1.#'A

:GET RESPONSE
SIS INPUT "TM
2

,MSDRVS

STYPE

'DRIVE(S):

15%
LALL
#377,$DEVM

;NO
SYES, TYPE "‘ALL'' AND GO
*SET DEVICE MAP FOR ALL DRIVES

$TMP1,#CR
17
LSTMP1
$TMP1.2°0
17%
STMP1 . #'7
18%
178

; CARRIAGE RETURN ?
YES
*ECHO RESPONSE
“NUMBER < 0 ?
JYES
NUMBER > 7 ?
;NO
s ILLEGAL INPUT

(SP)+,$TMP1

;GET RESPONSE

*AUTO SIZE.

$TMP1 . #CR
19s

:CARRIAGE RETURN ?
SYES

CSTMPY
$TMP1,#'0
17
STMP1 . #'7

:ECHO RESPONSE
*NUMBER < 0 ?
YYES
‘NUMBER > 7 ?

,COMMA

062145
001176
001176

001217
005666

TYPE
CLR

XSiZ

35 2006t

H
7
11-APR-80 13:58:55 PAGE 9-2

JTYPE *,

18%

:NO

14$

*RETRY

LCNSLO8

STYPE ** ?ILLEGAL INPUT''

$TMP1.R1
:R1 = DRIVE NUMBER
#AC7.R1
ATNTBL (R1) , SDEVM
:SET DEVICE
#377.$DEVM
:DONE ?
16%
.NO

,$CRLF

XSI?Z

*CR-LF

*GO SIZE DEVICES

IN MAP

CZRMPAQ RMOS/3/2 DSKLS TST 1

STANDALONE

INPUT ROUTINES

MACRO v03.01

013700
012701
010137

(LR

2%:

—d

3s:

¥
A

007074

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

TST8

ASL

CLR

JSR
BR

EMT

TYPE

;:65%:

007106
25 007106

64%:

26 007110
27 007112

28
29 007152
30 007154
31 007160
32 007162
33 007166
34 007170
35 007174
36
37 007200
38 007204
39 007210
40 007214
007220
007224

MOVB
ADD

;JSIZE FOR CLOCK

054760

5.
.SBTTL

:R3= DEVICE NUMBER

R2.RO
23

BEQ
INC

d el e

BIT
BEQ

MOV

000001

ntd

3 Nols LNTe NV W NPT

e ad ad

1%:

007112
007116
007120
007126
007130
007136
007140
007142
007144
007152

ASSEMBLE TEST QUE FROM DEVICE MAP
CMNSTART
HOV
$DEVM,RO
;RO
DEVICE MAP
MOV
#TSTQUE*Z.R1
;R1
ADDRESS OF FIRST ENTRY IN QUE
MOV
R1,TSTQUE
sINITIALIZE ENTRY POINTER
MOV
#1,R2
;R2 = DEVICE POINTER

001300
001464
001462
000001

063052
000002

SEQ 0086

2 007000

1:1-APR~80 13:58:55 PAGE 10

R3,(R1)

;YES - ENTER DEVICE NUMBER IN QUE

;ADVANCE DEVICE POINTER
:eggf ALL DEVICES ?

(R1)

;ADVANCE DEViCE NUMBFP
sENTER NEXT DEVICE
s TERMINATE TEST QUE

PC,SIZCLK
5%

;SEE IF CLOCK PRESENT
JYES = CLOCK IS PRESENT

,65%

,,TYPE ASCIZ STRING

3%
R3

648

HALT
BR

_ASCIZ

ég {715 DEVICE IN MAP ?

<CRLF>/PROG HLT/

;GET OVER THE ASCIZ

:PROGRAM HALT

001242

000001

GET
VALUE”ZgR SOF TWARE SUITCH REGISTER
sARE WE RUNNING UNDER XXDP/A(CT?
BNE
66%
; BRANCH IF YES
CMPB
SENV A1
;;ARE WE RUNNING UNDER APT?

001154

000176

000042

000001

001300

001150

BEQ

663

B8NE

67%

663 :

MOVB

#1,8AUTOB

READY:

NOP
1STB

$DEVM

67%:

000042
004626
053636

1%:

2%:

007226

GTSWR
BR

SWR ,#SWREG

67%

BNE
TST
BNE
JMP
JMP

pé3
Y14
18
START
$EOP

CLRB
CLR
JSR

$iSTNM
$TIMES
PC,STKINT

MOV

g?y

#PR6,~(SP)

#648,-(SP)

;;BRANCH IF YES
;;SOFTWARE SWITCH REG SELECTED?
: sBRANCH IF NO
;cGET SOFT-SWR SETTINGS

;:SET AUTO-MODE INDICATOR
JREADY TO START TEST
JANY DRIVES IN MAP ?
;BR IF YES
sANY MONITOR PRESENT ?
;BR IF YES
;JUMP TO START
JRETURN CONTROL TO MONITOR

sRESET TEST NUMBER
JINITIALIZE NUMBER OF [TERAT]ONS
JINITIALIZE TTY
;.PUT NEW PS ON STA(CK
:;PUT NEW PC ON STACK
;.POP NEW PC AND PS

CZRMPAO RMOS5/3/2 DSKLS 1ST 1
MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

007226
41 007226

65 007234

53 007300

117737

012737

172230

002000
001276
000040

011000

001234

001330

SEQ 0087
MOVB

aTSTQUE,SUNIT

JLOAD UNIT NUMRER

;CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK
:OF THE DIFFERENT DRIVE TYPES
#TAL,LSTRK

000010
000010

001330

11-APR-80 13:58:55 PAGE 10-1

MOV

3%:

$SBASE ,RO

#CLR,RMCS
(RO)
2

;ASSUME LAST TRACK FOR RM02/3 =

;RO = UNIBUS ADDRESS
: CLEAR MASSBUS

QTSTQUE ,RMCS2(R0O)
'SELECT DEVICE UNDER TEST
RMDT (RO) ,R2
;sGET RMDT
#177770,R2
; SAVE DRIVE TYPE BITS
l;.R2
IS IT AN RMOS
?
3
NO, MUST BE AN RMO2 OR RMO3
HTA16!TA2,LSTRK :YES--SET LAST TRACK = 18.

CZRMPAD RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE

SEQ 0088

;

.SBTTL

;REGISTER ASSIGNMENTS

‘RO

UNIBUS ADDRESS OF RH CONTROLLER

6
7
8
9
10
1
12

‘R
:
‘R2.R3
:
‘RG4,RS
:
‘R6

:STORAGE ASSIGNMENTS

:$STMPO-STMP4

18
19

‘R7

=
=
=

:$GDDAT,$8DDAT
:$GDADR,$BDADR

S$TSTN

23
24
25
26
27
28

TSUNIT
=
‘RGINBF =
;
;
;RGOTBF =
;

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE
UNIT UNDER TEST
WORKING REGISTERS FOR TEST IN PROGRESS. MUST BE
SAVED BY SUBROUTINES
GENERAL WORKING REGISTERS, ARE NOT SAVED BY
SUBROUT INES
STACK POINTER

LINKAGE REGISTER TO SUBROUTINES

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

AR AR A AR AR AN AN A

'TEST 1
AR

007306
007310
007312
007316

000004
000240
012706
013700

TST1:

007322
007326

013701
012737

001100
001276
001462
000001

2 007334

012702

000000

11-APR-80 13:58:55 PAGE 12

N AN R RN AN NN A

AN AN AR A AR

AR AR

004737

016037
032737

N
~
W
~

055614
000010
010000

382PE

001140
177770
000100
001136
000010

MOV

#1,8TESTN

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

MoV

#0,R2

;R2
= REGISTER INDEX

MOV
BIT

BEQ

mMovse

001140
001140

BIC
BIS
MOV
ADD
EMT
BR

001136

:;SET TEST NUMBER IN APT MAIL BOX

b
b

PC,CNTCLR

000010

055614
000010
010000

001142
001142

001140
177770
000100
001136
000010

JSR

MOV
BIT
8EQ
MovB

001140

BIC

(R1),$GDDAT

RO.R3
R2.R3

;READ REGISTER
;1S "NED'* SET??
;NO!!

PC,CNTCLR

;60 CLEAR CONTROLLER

RMCS2(R0O) ,$BDDAT
#NED, $BDDAT
308
(R1),$GDDAT

012713

45 007530

001432

44 007522

032760

000000
010000

001136

ADD

#RM(S2, $BDADR

B8R

60s

000010

RO, $BDADR

THE REGISTER WHOSE

MOV

BIT

BEQ

;STORE RMCSZ AT $BDDAT

#*CUNTMS
, $GDDAT
K

#IR,$GDDAT

;WRITE

THE READ

;R3
= REGISTER ADDRESS

(R3) ,R4
ANED ,RMCS2(RO)
708

38255 NOT SET ‘NED'' ERROR

43 007516

INDEX IS IN R2 AND EXIT TEST IF

8IS
EMT

;STORE RMCSZ AT $8DDAT

#“CUNTMS
, $GDDAT
K
#IR,$GDDAT
RO, SBDADR
#RM(CS2
, $BDADR
1
60%

001140

MOV

;GO CLEAR CONTROLLER

208

;READ THE REGISTER WHOSE

MOV
ADD
MOV
BIT
BEQ

THAT NONEXISTANT DEVICE ERROR IS RESET

RMCS2(RO) , $BDDAT
A#NED
, SBDDAT

28§JES NOT SET 'NED'’ ERROR

010000

;SCOPE CALL

#STACK,SP
$BASE ,RO
TSTQUE ,R1

JSR

001142
001142

NN =
3 VOO NO\N

7 007340

RANN RN RN

AR R AN RN AR AN RN NNNRRAANRN R AN AN AR AN AR AN

i(C)liEAR THE MASSBUS AND VERIFY

8 007344
9 007352

AN RN AR AN IR AN

TRANSFER TEST

MOV
MOV
MOV

001226

SEQ 0089

#0, (R3)

INDEX IS

#NED ,RMCS2 (RO)
70$

IN R2 AND EXIT

TEST

THE WRITE

;WRITE REGISTER

IS "NED'* SET??

;NC!!

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

MACRO v03.01

-— P

CZRMPAQ RMOS/3/2 DSKLS TST 1
M
TRANSFER TEST

CZRMPAO RMOS5/3/2 DSKLS TST 1

TRANSFER TEST

48
49
50 007532

MACRO v03.01

M7
11-APR-80 13:58:55 PAGE 12-1

sADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT
46¥AILABLE DEVICE REGISTER

000002
000002

ADD

000022
000046
§827

67 007602
68 007610
69 007612

013737
104002
000137

001276

40%

:YES = TRY ANOTHER REGISTER

40%
#SMDB ,R2
408
#RMEC2 ,R2
108

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

cMP

W#RMAS ,R2

"NONEXISTENT DEVICE®

;1S THIS RM(CS5??

;1S THIS RMAS
?

ERROR FOR EVERY REMOTE REGISTER ADDRESS

’

gg¥

3BASE.SBDADR

;STORE BASE ADDRESS

60$:

JMP

$EOSP

;GO SELECT NEXT DEVICE

001136

053600

JYES = TRY NEXT REGISTER
;1S THIS RMBA??
SYES - TRY NEXT REGISTER

#RMCSZ2,R2

BEQ
CMP
BEQ
CMP
BHIS

sIS THIS RMW(C??

408
#RMBA R2
40%

CMP

BEQ

000016

sADVANCE TO NEXT REGISTER

#RMC ,R2

BEQ
CMP
8EQ

000010

022702
103257

#2,R2

cMP

000004

62 007574
63 007600

SEQ 0090

70%:
e

AR AR AN

S*TEST 2
SRR

0075616
007616
007620
007622
007626
007632

24 007636

000004
000240
012706
013700
013701

7872

012737

001100
001276
001462
000002

004737

055614

75 007644
76
77
78 007650
79 007656
80 007664
81 007672

012760
012760

000076
177777
001777
016200

84 007700

012702

000001

007704

016037

000000
000006
000034
000032

042737

177701

A AR AR A A AR

RN ANRRNANRRAN AR AN RN

I AR AR RN AR AN AN N RN N N RN

NNRARNNANRANNN

MOV

#2 $TESTN

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

JSR

PC.CNTCLR

;GO CLEAR CONTROLLER

;WRITE ONES IN REMOTE REGISTERS
MOV
#ILF76,RMCS1(RO)
MOV
MOV
MOV

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

::SET TEST NUMBER IN APT MAIL BOX

;LOAD RMCS1

#-1,RMDA(RO)
:LOAD RMDA
#CYLMSK ,RMDC (RO)
;LOAD RMDC
#*CXNUOF , RMOF (R0)
*LOAD RMOF

;READ REMOTE REGISTERS TWICE

001332
001340
001366
001364

MOV

#1,R2

MOV
* MOV
MOV
MOV

RMCS1(RO) ,RMCS1]
s STORE RMCS1 IN INPUT BUFFER
RMDA(RQ) ,RMDA]
;STORE RMDA IN INPUT BUFFER
RMDC(RQ) ,RMDCI
;STORE RMDC IN INPUT BUFFER
RMOF
(RO) ,RMOFI
;STORE RMOF IN INPUT BUFFER

BPL

9
93 007740

zggpe
MOV
MOV
MOV

001226

000000
000006
000034
000032

AR AR

AN AR R AT AR AN AR RN N AN RN ARN

CTOD TEST

001332

R2
108

sSEE IF ANY ONE BITS CAME BACK
BIC

#*CILF76 ,RMCSTI

;IS RMCST

0?2

CZRMPAO RMO5/3/2 DSKLS TST 1

CTOD TEST

94 007746
95 007750
96 007754
97 007756
98 007764
99 007766
00 007774

001014
005737
001011
042737
001005
042737
001001

007776

104003

MACRO v03.01

N 7
11-APR-80 13:58:55 PAGE 12-2
BNE

001340
176000

001366

161577

001364

208

JNO!H!

208

:NO!!

208
.
#XNUOF ,RMOF |
20%

JNO!!
;IS RMOF 0 ?7?
JNO!!

TST

RMDA]

BIC

#XNUDC ,RMDC ]

BNE

BNE
BIC
BNE

SEQ 0091

;IS RMDA 0??

;1S RMDC 0?2

; CANNOT gg?D/URIEE ANY ONE FROM REMOTE REGISTER

:
208
;:*'i*fit*t.'.'**".*'t'*t"‘"t*‘fitfi"*'tfi**fi.fifi.'ittQ'.t1.**".‘

J*TEST 3

MASSBUS INITIALIZE TEST

::*fifitfi**'"'tfittfifi'Qfifi"t'tt*t'fi*‘*'t*fi*.Q"*fi*fifitt'.'t'*'.'fi*'t

012737

010026

004737

055614

b ek wd d

010032
010040
010046

012760
012760
012760

000076
1772777
177777

010054

004737

055614

010060
010066
010074

016037
016037
016037

000900
000014
000042

001332
001346
001374

b}#&thfiJ—h*CD
oo ON

052737

177701
001567
177777

001332
001374
001332

177777

001346

177777

001374

)

s i

000000
000014

(Y,]

~N
W
~

o
N
N
-—

b
b ed
D
D
d

;SCOPE CALL

MOV

#STACK,SP

;LOAD THE STACK POINTER

MOV

$BASE RO
TSTQUE ,R1

#3,8TESTN

;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE

JSR

PC,CNTCLR

;G0 CLEAR CONTROLLER

;:SET TEST NUMBER IN APT MAIL BOX

JWRITE ONES IN SELECTED REGISTERS
MOV

#ILF76,RMCS1(RO)

MOV

#-1,RMER2(RO)

MOV

000042

#-1,RMER1(RQ)

JINITIALIZE MASSBUS WITH A CLEAR
JSR

PC,CNTCLR

MOV

RMCS1(RO) ,RMCS11I

MOV

RMERZ2(RO) ,RMERZ]

MOV

;LOAD RMCS1

;LOAD RMER1

;LOAD RMER?
:GO CLEAR CONTROLLER

JREAD THE REGISTERS THAT WERE WRITTEN
RMER1 (RO) ,RMER1]

;STORE RMCS1

;STORE RMERT

IN INPUT BUFFER
IN INPUT BUFFER

;STORE RMERZ IN INPUT BUFFER

JSEE IF ANY REGISTER B8]TS WERE CLEARED
BIS
H#*CILF76 ,RMCSTI ,SET ANY BIT NOT WRITTEN
BIS
#XNUER2 ,RMERZ]
CMP
BNE
CMP
BNE
CMP
BNE

b
b
b nd cd
—

aggPE

MOV
MOV

001226

b ed

NERRUKLEBBNREREN
NS Cm I rmvm =038 o
~

010020

001276
001462
000003

b b =

D e
v
e

001100

) e

TST3:

PONIN) = =

010002

000004
000240

#-1,RMCS1]
108
#-1,RMER1]

JANY ZEROS IN RM(CS1??
JYES!!
JANY ZEROS IN RMER]??

108
#-1,RMERZ]
108

JYES!!
;ANY ZEROS IN RMERZ2??

JNONE OF THE BITS WERE CLEARED
:
108

EMT

AR AR RN R AR AR AR AR AN A

SRTEST 4
e

AR AR AN AR

AR AN AN RN AN

RRARANARRAR RN AR

ANANNRARS

CLEAR STUCK ACTIVE TEST
AR AR

AR AN

AR RN A N AR RN AN AN AN AR AR RN AR AR R RAR

|
¢

RA Y

CZRHPAO RMO5/3/2 DSKLS TST 1

CLEAR STUCK ACTIVE TEST

MACRO v03.01

SEQ 0092

010150
010150
010152
010154
010160
010164
138 010170

000240
012706
013700
013701
012737

001100
001276
001462
000004

}28 010176

004737

055614

141
142 010202

012760

177777

000014

012760

000001

000024

016037
016037
016037
042737
001011
042737
001005
032737
001001
104026

000014
000042
000024
040000

001346
001374
001356
001346

040200

001374

000001

001356

143 010210

}22 010216
146

147 010224
148 010232
149 010240
150 010246
151 010254
152 010256
153 010264
154 010266
155 010274
156 010276
}gg 010300

B .8
11-APR-80 13:58:55 PAGE 12-3

TST4:

012760

177777

001226

000042

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

;LOAD
:RO
=
sR1 =
:;SET

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

;SCOPE CALL

JWRITE ONES IN TEST REGISTERS
MOV
#-1,RMER1(RO)

MOV

#-1 RMER2(RO)

#DMD ,RMMR1(RO)

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

;LOAD RMER1

:LOAD RMER?
;LOAD RMMR1

JREAD TEST REGISTERS AND SEE IF ANY BITS ARE ON

MOV
MOV
MOV
BIC
BNE
BIC
BNE
BIT
BNE
EMT

108:

159

SCOPE
NOP
MOV
MOV
MoV
MOV

RMER1(R0O) ,RMER1I
:STORE RMER1 IN INPUT BUFFER
RMERZ2 (RO) ,RMER?2]
;STORE RMERZ IN INPUT BUFFER
RMMR1 (RO) ,RMMR1]
;STORE RMMR1 IN INPUT BUFFER
#UNS ,RMER1 I
;DONT ACCEPT UNSAFE
108
:BRANCH IF ANY OTHER BITS ON
#SK1!DVC,RMER2I ;DONT ACCEPT SKI OR DVC
108
:BRANCH IF ANY OTHER BITS ON
#DMD ,RMMR1 ]
:BRANCH IF DMC IS ON
10$
26

'.'t'tt*.Qfitt*t'Q'ii’tttt'titttttttt*fi"*fitfit"'ti'fitfi'.ttttt'tit!'

J*TEST 5

ttttttttiitittt*li'tfitttt'ttfitt**t'tttt'tt'itfil"tfii

010300
010300
010302
010304
010310
010314
160 010320

013701
012737

161 010326
}g% 010330

005002
004737

055614

168 010356
}98 010364

012760
012760
012760
012760
012760

000076
177777
177777
177777
177777

000000
000006
000014
000032
000042

171
172
173
174
175

012760
012760
012760
012760

000000
000000
000000
000000

000000
000006
000014
000032

164
165 010334
166 010342
167 010350

010372
010400
010406
010414

176 010422
177 010430

TRISTATE TRANSFER TEST

000004
000240
012706
013700

012760
012760

TSTS
001100
001276

001462
000005

000000
000000

001226

000034
000042

tttt""t!tfi

SCOPE
NOP
MoV
MoV

:SCOPE CALL
#STACK,SP
$8ASE RO

;LOAD THE STACK POINTER
:RO
= UNIBUS ADDRESS

MOV
MOV

TSTQUE ,R1
#5,8TESTN

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

CLR
JSR

R
PC,CNTCLR

;CLEAR ERROR FLAGS
;GO CLEAR CONTROLLER

JWRITE ONES IN SELECTED REGISTERS
MOV
#ILF76,RMCS1(RO)
:LOAD RM(CS1
MOV
#-1,RMDA(RO)
;LOAD RMDA
MOV
#-1,RMER1(RO)
;LOAD RMER1

MOV
MOV

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

;LOAD RMOF
;LOAD RMER?

;WRITE ZEROS IN SELECTED REGISTERS
MOV
#0 ,RMCS1(RO)
;LOAD
MOv
#0 ,RMDA (RO)
:LOAD
MOV
#0 ,RMER1 (RO)
;LOAD
MOV
#0,RMOF (RO)
;LOAD
MOV
MOV

#0,RMDC (RO)
#0,RMERZ2 (RO)

RMCS1
RMDA
RMER1
RMOF
;LOAD RMD(C
;LOAD RMERZ

CZRMPA() RMGS/3/2 DSKLS TST 1
15
TRISTATE TRANSFER TEST

MACRO v03.01

178
179
180 010436
181 010444

016037
016037

000000
000006

001332
001340

183 010460
184 010466

016037
016037

000032
000034

001364
001366

012702
052737
052737
052737

177777
177701
161577
176000

182 010452

}gg 010476
187

188 010502
189 010506
190 010516
191 010522

016037

000014

000042

192 010530

052737

001567

194
195
196
197
198
199

005137
005137
005137
005137
005137
043702

001340
001346
001364
001366
001374
001332

193 010536
010542
010546
010552
010556
010562
010566

200 010572
201 010576
202 010602
203 010606
204 010612
582 010616

207

208 010620
209 010624

210 010630

005137

001332

043702
043702
043702
043702
043702
001407

001340
001346
001364
001366
001374

010237

001142

005037

104005

052702

000001

213 010636

004737

055614

214
215

216 010642 012760

000000

001374

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

RMER2 (ROS ,RMER?2]

;STORE RMER1 IN INPUT BUFFER

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

;STORE RMER2 IN INPUT BUFFER

»-1.R
#*CILF76 ,RMCSTI
#XNUOF
, RMOF |
#XNUDC _RMDC

;ACCUMULATE ZEROS IN R2
:SET ALL BITS NOT WRITTEN

RMCS11

. COMPLEMENT REGISTER CONTENTS

#XNUER2
, RMER2 ]

COM
coM
coM
CoM
CoM
BIC

RMDA]
RMER1]
RMOF
]
RMDC
RMER2]
RMCST1,R2

com

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
CLR

108:
000006

000076
177777

000000
000006

224 010706
225 010714
559 010722

012760
012760
012760

001777
177777
176210

000034
000014
000042

000000
000006
000032
000034
000014

001332
001340
001364
001306
001346

000032

R2.,$8DDAT

;SAVE RESULT FOR TYPE

$GDDAT

:LOAD EXPECTED RESULT

BIS

#BIT0,R2

;SET ERROR FLAG

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

EMT

012760
012760

016200

RMER1(ROS ,RMER1]

BIS

BIC
BIC
BIC
BIC
BIC
BEQ

0
221 010664
222 010672

230 010736
231 010744
232 010752
233 010760

MOV
BIS
BIS
8IS

001366

000032
000034

016037
016037
016037
016037
016037

MOV

001332
001364

000000
000000

228
229 010730

MOV
MOV

;CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ

012760
012760

012760

MOV

001374

217 010650
g}g 010656

223 010700

SEQ 0093

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

001140

211 010632

212 010636

001346

c
8
11-APR-80 13:58:55 PAGE 12-¢4

;PRESET SELECTED REGISTERS TO ZEROS
; (ASSUME RM(CS1, RMER1, RMERZ2 WERE CLEARED BY 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

MOV
MOV
MOV

#* CXNUOF , RMOF (RO}

;READ ALL REGISTERS
MOV
RMCS1(RO) ,RMCS1]

MOV
MOV
MOV
MoV

:LOAD RMOF

#*CXNUDC . RMDC (RO)
*LOAD RMDC
#-1,RMERT(RO)
;LOAD RMERT
#~CXNUER2 ,RMER2 (RO)
;LOAD RMER2
;STORE RMCS1 IN INPUT BUFFER
RMDA
(R0) ,RMDA]
:STORE RMDA IN INPUT BUFFER
RMOF
(RO) .RMOF]
:STORE RMOF IN INPUT BUFFER
RMDC (RO) .RMDCI
:STORE RMDC IN INPUT BUFFER
RMER1(RO) ,RMER1]
;STORE RMER1 IN INPUT BUFFER

234 010766
235
236
237 010774
238 011002
239 011010
240 011016
241 011024

TRANSFER TEST

016037

262 011026

285 011232
286 011234
287 011236
288 011242
289 011244

001374

177701
161577
176000
001567

001332
001364

MoV

001366
001374

010237
012737

104006
052702

000001

004737

055614

R2
RMCS11.R2
RMDAI ,R2
RMOF
] .R2
RMDC] .R?

CMP

#-1,R2

#XNUER2
, RMER2 ]

RMER1,R2
RMER2] .R2

208

;ACCUMULATE ONES IN R2

;JACCUMULATE ALL

001140
20%:

25$%:

ONE BITS

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

;ONE OR MORE BIT POSITIONS ARE NOT ONE
MOV
MOV
EMT

R2,$8DDAT
g-1.$GDDAT

8IS

#8I1T1,R2

;SET ERROR FLAG

TST
BNE
MOV

R2
30%
#1.R2

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

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

;SAVE RESULT FOR TVPE
JEXPECTED RESULT

;WRITE THE BIi PATTERN IN SELECTED DEVICE REGISTERS

010260
010260
010260
010260
010260

MOV
MOV
MOV
MOV

Mov

016037
016037
016037
016037
016037

001340
001364
001366
001346
001374

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

R2 .RMERZ2 (RD)

:LOAD
;LOAD
;LOAD
;LOAD

RMDA
RMOF
RMDC
RMER1

;LOAD RMER2

;READ BACK THE REGISTERS
MOV
RMDA(RQO) ,RMDAI
;STORE RMDA IN INPUT BUFFER
MOV
RMOF
(RQ) ,RMOFJ
;STORE RMOF IN INPUT BUFFER
MOV
RMDC(RO) ,RMDCI
;STORE RMDC IN INPUT BUFFER
MOV
RMER1(RO) ,RMER11
;STORE RMER1 IN INPUT BUFFER
MOV
RMER2(R0O) ,RMERZ]
;STORE RMERZ IN INPUT BUFFER

;CHECK REGISTER ggNTENTS FOR CORRECT PATTERN

005003

CLR
MOV

161577
013705

CLR
BIS
BIS
BIS
BIS

BEQ

000002

005702
001126
012702

#XNJOF , RMOF |
AXNUDC S RMDC

BIS
BIS

177777

001142
177777

;STORE RMERZ IN INPUT BUFFER

RMERZ
(RO) ,RMER2]

BIC
BI¢

BIC

001374
001410

SEQ 0094

sCHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ
BIC
#ACILF76,RMCS1]
cCLEAR ALL BITS NOT WRITTEN

001332

243 011032
244 011036
245 011042

246 011046
247 011052
248 011056
249 011062
250
251
252 011064
253 011070
254 011076
255 011100
256 011104
257 011104
258 011106
259 011110
260 011114
011114
261
262
263 011120
264 011124
265 011130
266 01 i34
267 011140
268
269
270 011144
271 011152
272 011160
273 011166
2764 011174
e75
276
277 011202
278 011204
279 011210
280 011214
281 011216
282 011220
283 011222
284 011226

000042

D 8
11-APR-80 13:58:55 PAGF 12-5

001366

MOV
8IS
coM
BIC
MOV
BIC
BIS
COM
BIC
BIC
MOV

#-1 R4

RMDA] ,R5
R5,R3
RS
R5,Ré4
RMOF
I ,RS
#XNUQF ,R5
R5.R3
R5
A XNUOF ,R5
R5,R4
RMDCI RS

JR3=ACCUMULATED ONE BIT
JR4=ACCUMULATED ZERO BITS

JGET ANY GOOD BITS FROM RMDA

;GET GOOD BITS FROM RMOF

;3ET GOOD BITS FROM RMDC

iRISTATE

MACRO v03.01

=0 |

CIRMPAD RMOS/3/2 DSKLS TST 1

290 011250
291 011254
292 011256
293 011260
294 011264
295 011266
296 011272
297 011274
298 011276
299 011300
300 011304
301 011310
302 011312
303 011314

TRANSFER TEST

042705
3

E
8
11-APR~80 13:58:55 PAGE 12-6

SEQ 0095

176000
176000

001346

001567

305 011322
306 011324
307 011326
308 011330
309 011332
310 011334
311 011336
312 011340
313 011344
314 011350
315 011352
316
317
318 011354
319 011354
320 011356
321 011360
322 011364
323
329

#XNUDC RS
RS5.R3
RS
#XNUDC RS
RS R4

BIS
(oM
BIC
MOV
8IC
BIS
oM
BIC
BIC
MOV
oM
BIC
BIC
BIS
CMP
8EQ

RS,R3
RS
RS R4
RMER2I ,RS
#XNUER?2
RS
R5,R3
RS
#XNUER?Z ,RS
R5,R4
R2.R5
RS
R5,R3
R2.R4
R4 ,R3
R3,R2
26%

MOV

001374
001567

-304 011320

8IC
BIS
(oM
BIC
8IC

RMER11,RS

MOV
?g¥

R2.$GDDAT
;3,$BDDAT

30%

JGET GOOD BITS FROM RMER1

;GET GOOD BITS FROM RMER?

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
cSAVE RESULT

JSKIP TO NEXT

éQQVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST

011114

ASL
BEQ
JMP

30%:

R2
30%
25%

JSHIFT THE BIT
JEXIT IF DONE

:;"".."*.t*.t.**‘fi""'.‘.t.*'*‘**"""**."'.*t"‘.‘t*fi""'

SRTEST 6

TEST

;*NOTE: REGISTER SELECT 16 IS TESTED BY THE “ILR"* TEST
. n

330
331
332
333
334
335
336
337
338
339

011364
011364
011366
011370
011374
011400
011404

’

000004
000240

012706
013700
013701
012737

1ST6:
001100
001276
001462
000006

001226

AR AR R R AR

AN RN NN

SCOPE
NOP
MOV
MOV
MOV

MOV
sTHE

R R AN AR RN RN RANRNNRANANRNNRANRANNNRANRRANRR

;SCOPE CALL
#STACK,SP

;LOAD THE STACK POINTER

TSTQUE ,R1
#6,$TESTN

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

$BASE RO

FOLLOWING TABLE

sEACH DEVICE REGISTER

GIVES MASSBUS REGISTER SELECT VALUES

REG SEL

RMCS1

00000
00001
00010

RMDS

RMER1

;RO = UNIBUS ADDRESS

(16,8.4.,2.1)

FOR

—

TRISTATE

MACRO v03.01

CZRMPAQ RMOS5/3/2 DSKLS TST 1

TEST

MACRO v03.01

SEQ 0096

340
341
342
343
344
345
346
347
348
349
350
351

:
;

RMMR1
RMAS

;

RMMR?2
RMER?

35¢

353
354
355
356
357
358
359
360
361
362
363 011412
364 011414
365
366
367 011420
368 011424
369 011430
370 011434
371 011440
372 011444
373 011452
374 011460
375 011464
376 011466
377 011474
378 011500
379 011502
380
381
382 011504
383 011504
384 011510
385 011514
386 011520
387 011524
388 011530
389 011534
390 011540
391 011546
392 011554

393 011562
394 011566
395 011570
396 011576

F
8
11-APR~80 13:58:55 PAGE 12-7

00011
00100

RMDA
RMDT
RMLA
RMSN
RMOF
RMD
RMHR

00101
00110
00111
01000
01001
01010
01011

01100
01101

RMEC1

01110

RMEC?2

;EACH REGISTER SELECT LINE IS 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.

. THAT HAS THE SAME SELECT VALUE,

;BEING TESTED,

THEN THE REGISTER

EXCEPT FOR THE SELECT LINE

IS WRITTEN WITH ONES.

IN THIS EXAMPLE,

JRMMRT IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0,
:THE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1
;WILL NOT BE O WHEN READ BACK.
005002
012703

177777

004737
010260
010260
010360
010360
016037
016037
020337

055614
000014
000034
000024
000036
000014
000034
001346
176000
001366

CLR
MOV
;TEST REG SEL

JSR
MOV

MOV
MOV
MOV
MOV
MOV
MP
BNE
BIS
CMP
BNE
EMT

001346
001366
001366

cTEST REG SEL 1

:
108

055614

016037
016037
016037
020337
001015
052737
020337

001340
161577
001364

JSR

MOV
MOV
MoV

001340
001364
001374

001364

R2
#-1,R3

;R2= ZEROS SOURCE
;R3= ONES
SOURCE

FOR S-A-0
PC,CNTCLR

;GO CLEAR CONTROLLER

R2 ,RMER1(RO)
;LOAD RMER1
R2 ,RMDC (RO)
;LOAD RMDC
R3.RMMR1 (RO)
;LOAD RMMR1
R3 ,RMHR (RO)
;LOAD RMHR
RMER1 (RO) ,RMER1]
;STORE RMER1 IN INPUT BUFFER
RMDC(RO) ,RMDCI
;STORE RMDC IN INPUT BUFFER
R3 ,RMER1]
108
#XNUDC ,RMDC ]
R3,RMDCI
108
10

FOR S-A-~1
PC,CNTCLR

R2 ,RMDA(RQO)
R2 ,RMOF (RO)
R2 ,RMERZ2 (RO)

;GO CLEAR CONTROLLER

MOV
MOV

R3.RMAS(RO)
R3,RMSN(RO)

MOV
MOov

RMDA(RQ) ,RMDAI
RMOF (RO) ,RMOFI

MOV

R3,RMMR2 (RO)

RMER2 (ROJ , RMER2 ]

P
BNE

R3,RMDA]
20%

(MP

R3,RMOF|

BIS

#XNUOF
, RMOF |

sLOAD RMDA
;LOAD RMOF
;LOAD RMER?2
LOAD RMAS
;LOAD RMSN

;LOAD RMMR?

;STORE RMDA IN INPUT BUFFER
;STORE RMOF IN INPUT BUFFER

:STORE RMERZ IN INPUT BUFFER

-3

CZRMPAO RMOS/3/2 DSKLS TST 1

397 011602
398 011604
399 011612

400 011616

28} 011620

403
604 011622
405 011622
406 011626
407 011632
488 011636
409
011642
410 011646
411 011652
412 011656
413 011664
614 011672

415 011700
616 011704
417 011706
418 011714
419 011720
420 011722
421 011730
422 011734
423 011736
424
425
426 011740
427 011740
428 011744

001007
052737
020337

001001

001567
001374

208

001374

#XNUER2 ,RMER2]

R3,RMERS]
20$

10401

;TEST REG SEL 2 FOR S-A-0

004737
010260
010260
010260
010360
010360
010360
016037
016037

055614
000006
000032
000042
000020
000036
000046
000006
000032

020337
001015
052737
020337
001007
052737
020337
001001
104012

001340

016037

000042

20%:

MOV
MOV
MOV

001340
001364
001374

004737
010260

052737
020337

440
44
442
443
444
445
446

104013

450
451
452
453

012064
012070
012076
012104

PC,CNTCLR

R2 ,RMDA(RQ)
R2 ,RMOF (RO)
RZ2 ,RMERZ2 (RO)
R3,RMLA(RO)

R3 ,RMHR(RO)
R3,RMEC2(RO)

2GO CLEAR CONTROLLER
;LOAD RMDA
;LOAD RMOF

;LOAD RMER?
;LOAD RMLA
;LOAD RMHR
;LOAD RMEC?2
;STORE RMDA IN INPUT BUFFER

RMD
(RO) ,RMDA]
A
RMO
(RO) ,RMOF
:STORE RMOF IN INPUT BUFFER
F
|
RMER2
(RO) ,RMER2]
:STORE RMER? IN INPUT BUFFER
R3,RMDAI

308

161577
001364

001364

#XNUOF
, RMOF 1

001567
001374

001374

#XNUER2 ,RMERZ!

R3 ,RMOF
|
308

R3 ,RMERZ]

308
12

-TEST REG SEL 2 FOR S-A-1

437 012016
438 012024

449 012060

JSR
MOV
MOV

MOV
MOV
MOV

308:

055614
000014

176000
001366

JSR

MOV
MOV
MOV
MOV
MOV
MOV
8IS
CMP
BNE
BIS
cMP
BNE
EMT

001346
001366
001346

012034
012034
012040
012044
447 012050
448 012054

SEQ 0097

000000

012032

11-APR-80 13:58:55 PAGE 12-8

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
RMDC(RQ) ,RMDCI
;STORE RMDC IN INPUT BUFFER

#*CILF76 ,RMER1]

R3 ,RMER1]
40%

#XNUDC ,RMDC]

R3,RMDCI
40%
13

cTEST REG SEL 4 FOR S-A-0

004737
010260
010260

010260
010360

010360

010360
016027
016037
016037

40%:

055614
000014
000032

000034
000026

000042

000044
000014
000032
000034

MACRO v03.01

001346
001364
001366

JSR
MoV
MoV
MOV
MOV
MOV
MoV
MOV
MOV
MOV

PC,CNTCLR

;GO CLEAR CONTROLLER
R2.RMER1 (RO)
;LOAD RMER1
RZ,RMOF (RO)
.LOAD RMOF
RZ,RMDC (RO)
sLOAD RMDC
R3,RMDT (RO)
;LOAD RMDT
R3,RMER2(RO)
;LOAD RMER?2
R3,RMEC1(RO)
;LOAD RMEC]
RMER1(RO) ,RMER1]
- STORE RMER1 IN INPUT BUFFER
RMO
(RQ) , RMOF
F
|
;STORE RMOF IN INPUT BUFFER
RMD
(RO) ,RMDCI
C
;STORE RMDC IN INPUT BUFFER

(291

CZRMPAOQ RMOS/3/2 DSKLS TST 1
16
REGISTER SELECT TEST

CZRMPAQ RMOS/3/2 DSKLS TST 1

020337
001015
052737
020337
001007
052737
020337

TEST

MACRO v03.01

H 8
11-APR-80 13:58:55 PAGE 12-9

001346
161577

001364

176000

001366

001364

001366

R3,RMER11
50$

#XNUOF
, RMOF |

R3,RMOF
|
508

#XNUDC ,RMD(C]

R3,RMD(!
50s
14

FOR S-A-1

055614
000006
000042
000012
000032
000006
000042
001340

6471 012176
472 012204

473 012212
474 012216
475 012220
476 012226
477 012232
478 012234
479
480
481 012236
482 012236
483 012242
484 012246
485 012252
486 012256
487 012262
488 012270
489 012276
490 012302
491 012304
492 012310
493 012312

4%
495

496 012314
497 012314
498 012320
499 012324

500 012330
501 012334
502 012340
503 012344
504 012350
505 012356
506 012364
507 012372
508 012400
509 012402
510 012410

001567
001374

:GO CLEAR CONTROLLER
:LOAD RMDA
;LOAD RMER?
R3,RMDS (RO)
;LOAD RMDS
R3 ,RMOF (RO)
:LOAD RMOF
RMDA
(RO) ,RMDAI
;STORE RMDA IN INPUT BUFFER
RMER2
(RO) ,RMER2I
;STORE RMERZ IN INPUT BUFFER
PC,CNTCLR

R2,RMDA(RO)
R2 .RMERZ2 (RO)

001340
001374

R3,RMDAI
60$

001374

#XNUERZ ,RMERZ]

R3,RMERZ]
608
15

104015

TEST REG SEL 8 FOR S-A-0

004737
010260
010260
010360
010360
016037
016037
020337
00

0s:

055614
000014

JSR
MOV
MOV

001346
001340

:GO CLEAR CONTROLLER
R2 ,RMER1(RO)
;LOAD RMER1
RZ ,RMDA(RO)
;LOAD RMDA
R3,RMDC (RO)
;LOAD RMDC
R3 ,RMERZ2(RO)
;LOAD RMERZ2
RMER1
(RO) ,RMER1]
;STORE RMER1 IN INPUT BUFFER
RMDA(RO) ,RMDAI
;STORE RMDA IN INPUT BUFFER
R3,RMER1]
PC,CNTCLR

70%

001340

R3,RMDAI
70%
16

104016

TEST REG SEL 8 FOR S-A-1

004737

052737
001015
022737
020337

055614
000032
000034
000042
000012
000014
000006
000032
000034
000042
161577
176000
001366

708

001364
001366
001374
001364
001366

JER
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

;60 CLEAR CONTROLLER
R2 ,RMOF (RO)
:LOAD RMOF
R2 ,RMDC (RO)
;LOAD RMDC
R2 .RMERZ2 (RO)
;LOAD RMER?2
R3 ,RMDS (RO}
;LOAD RMDS
R3.RMER1(RO)
;LOAD RMER1
R3,RMDA(RO)
;LOAD RMDA
RMOF
(RQ) , RMOF |
;STORE RMOF IN INPUT BUFFER
RMDC
(RO) ,RMDC]
;STORE RMDC IN INPUT BUFFER
RMER2
(RO) ,RMERZ]
;STORE RMERZ IN INPUT BUFFER
PC.CNTCLR

#XNU
, RMOF
OF
1

80s

#XNUDC ,RMD(C]

R3,RMDCI

SEQ 0098

CgRMPAO RMOS/3/2 DSKLS TST 1

511 012414
§12 012416

001007
052737

5§15 012432

104017

513 012624 020337
514 012430 001001

agmau

001567

001374

MACRC v03.01

11-APR-80 13:58:55 PAGE 12-10
SEQ 0099

BNE
BIS

001374

CMP
BNE
EMT

808 :

521

80s
#XNUER2 ,RMER2]

R3,RMER2]
80$
17

.'ttttttttttttt*tttttfit't'tttttttttttt!ttttttt'ttttttttt'tttttitt

J*TEST 7

012434
012434
012436
012440
012444
012450

522 012454

."tttttttttt'tttttttttt'tt'tttttttttttttt!ttttt.tttttfittttttttttt

000004
000240
012706
013700
013701

TST7:

001100
001276
001462

012737

000007

§23 0126462
524 012466
5§25 012472

016002
022702
001437

000026
020024

ggg 012500

001434

526 012474

022702

024024

529 012502
530 012506

022702
001431

020025

022702
001426

024025

534 012516

022702

020027

5§31 012510
ggg 012514
535 010522
536 0125264
ggg 012530
539 012532
560 012536
541 012544
542 012552
543 012556
544 012564
545 012566
gzg 012572

DRIVE TYPE TEST

001423
022702
001420

010237
012737
012737
010037
062737
104057
000137

001226

001174
001176
001136

053600

108 :

51.8

;SCOPE CALL

#STACK,SP
$BASE , RO
TSTQUE ,R1

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

MOV

#7.$TESTN

$;SET TEST NUMBER IN APT MAIL BOX

MOV
CMP
BEQ

RMDT (RO) ,R2
#SNGPRT ,R2
108

:STORE RMDT AT R2
*SINGLE PORT RMO3 ?
‘YES !

cTMMP

#DULPRT ,R2

MP
BEQ
CMP
BEQ

#SNGPRT!BITO,R2 ;SINGLE PORT RMO2 ?
108
YES

CMP

#SNGPRT!BIT1!BITO,R2

BEQ

024027
001142
020024
024026
001136
000026

SCOPE
NOP
MOV
MOV
MOV

108

*DUAL 'PORT RMO3 ?

TYES !

#DULPRT 'BITO,R2 DUAL PORT RMO2 ?
108
SYES !

BEQ
cMP
BEQ

108
#DULPRT'BIT1'BITO,R?2
108

MOV
MOV
MOV
MOV
ADD
EMT
JMP

R2,$BDDAT
#SNGPRT ,$TMPO
#DULPRT.$TMP1
RO, $8DADR
#RMDT
, SBDADR
57
$EOSP

SINGLE PORT RMOS 2

YES !
-DUAL PORT RMOS 2

JGET RECIEVED DRIVE TYPE
cGET EXPECTED DRIVE TYPE
o
b
;LOAD BAD ADDRESS
:GO TO NEXT DEVICE

. l'tttttttttttttttttttttttttttttttfittttttt!tttttttt.ttlttttttt't'

S*TEST 10

012572
012572
012574
012576

'.ttttttttttttttttttttttttttt'tttttttttttt'tltttttt'tt"ttttt

15110:

012602
012606

000004
000240
012706
013700
013701

001100
001276
001462

549
550 012620

004737

055614

012612

DEVICE AVAILABLE TEST

012737

000010

001226

'tt.

SCOPE
NOP
MOV
MOV
MOV

:SCOPE CALL

#STACK,SP
$8ASE ,RO
TSTQUE ,R1

;LOAD THE STACK POINTER
‘RO
= UNJIBUS ADDRESS
*R1 = POI".TER TO DEVICE

MOV

#10,$TESTIN

$;SET TEST NUMBER IN APT MAIL BOX

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

016037
042737
001006
012737
010037
104060

MACRO v03.01

001142
001142

004000
001136

001140

MOV

BI(C
BNE
MOV

MOV

EMT

10%:
S

R AR R A

LRTEST 11
e

560
561 012704
562 012710
563 012712
564 212716
565
566
567
568
569

570 012724
571 012732
572 012740
573 012746
574 012752
575 012754
576 012760
577 012762
578

579
580 012766
581 012766
582 012774
583 013002
584 013010
585 013014
586 013022
587 013030
588 013032
589 013034
590
591
592 013040
593 013040
594 013042
595 013044
596 013050
597 013050

000004
000240
012706
013700
013701
012737

001226

055614

001136
000036

RMCS1(RO) ,$BDDAT

#*CDVA,$8DDAT

108

#DVA,$GDDAT

gg.SBDADR

AR AN R T

A AR

s STORE RMCS1 AT $BDDAT

;CLEAR ALL BUT DVA

;BRANCH IF DVA SET

sSETUP EXPECTED

sSETUP REG ADDRESS

AT AT RN AN AN RN RN

R AR AR AR AR R AN RN ANA

001136

SCOPE
NOP
MOV
MOV
MOV
MoV

#11,8TESTN

JSR
CLR
MOV

R3
RO, $BDADR

ADD

HOLDING REGISTER TRANSFER TEST

AAN AN AR AR RN AR AR AN AR AR AT AN AR AN AN AN AN RN AR AN A AN

T$T11:
001100
001276
001462
000011

SEQ 0100

000000
173777

11-APR-80 13:58:55 PAGE 12-11

AN AR AN

RN R AR

RRAN

+SCOPE CALL
ASTACK,SP

$BASE RO
TSTQUE ,R1

PC,CNTCLR

#RMHR
, SBDADR

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE
;.SET TEST NUMBER IN APT MAIL BOX
;GO CLEAR CONTROLLER

;CLEAR ERROR FLAGS
;SETUP REGISTER ADDRESS

WRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS.
sNOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN

:gfigggsgo WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS

012760
012760
016037
005137
001405
005037

001140

052703

000001

104061

177777
000000
000036
001142

000006

#-1,RMDA(RD)

000006
001142

;LOAD RMDA

#0,RMDA (R0O)

;LOAD RMDA

$8DDAT
108
2$DDAT

;ANY ERROR??
;NO!!
;LOAD EXPECTED

#BITO,R3

:SET ERROR FLAGS

RMHR(RO) ,$8DDAT ;STORE RMHR AT S$BDDAT

BIS

%3§ITE ZEROS THEN ONES IN RMHR ANv CHECK FOR S-A-0 BITS.

012760
012760

000000
177777
000036
001142
127777

001140

052703

000006
000006
001142

MOV
MOV
MoV
COM
MOV
cMP
BEQ
EMT
BIS

001140
001142

000002

#0,RMDA (RO)
;LOAD RMDA
#-1,RMDA(RO)
:LOAD RMDA
RMHR(RO) ,$BDDAT ;STORE RMHR AT $BDDAT
$8DDAT
JRMHR IS COMPLEMENTED WHEN READ
#-1,8GDDAT
JSETUP EXPECTED

ggs

$GDDAT , $8DDAT

;ANY ERROR??
JNO!!

#8IT1,R3

;SET ERROR FLAG

;1 F NO PREVIOUS ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN.
20%:

005703
001025
012702

000001

012760

000000

TST

000006

:
308

R3
508

JANY FLAGS SET??
JYES!!

BNE
MOV

#1,R2

;R2=DATA PATTERN

MOV

#0,RMDA(RO)

;LOAD RMDA

CZRMPAQ RTMM0S5/3/2 DSKLS TST 1
110
DEVICE AVAILABLE TEST

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 12-12

HOLDING REGISTER TRANSFER TEST

598 013056

010260

000006
000036
001142
001142

RZ,RMDA(RQ)
RMHR(RO)
, $BDDAT
$8DDAT
$8DDAT ,R2
408
RZ,$GDDAT

001142

001140

63
50%

006302
001355

40%:

;LOAD RMDA
;STORE RMHR AT $BDDAT
JRMHR IS COMPLEMENTED
:AgY'ERROR??
;N

*SETUP EXPECTED
;DO NOT COLLECT ALL ERRORS

R2
30%

ASL

SEQ 0101

sSHIFT TO NEXT PATTERN
;CONTINUE IF NOT DONE

5 0s:
e

A A A A AN A A

J*TEST 12
AL

013144
013146

622 013172
623 013200
624 013202
625 013206
626 013212
627 013220
628
629
630
631 013222
€32 013222
633 013230
634 013236
635 013244
636 013252
637 013254
638 013260
639 013264
640 013272
641 013274
642
643
644 013300

T §T12:

000004
000240
012706
013700
013701
012737

001100
001276
001462
000012

005003
004737

055614

012760
004737
016037
042737
001410
005037
010037
062737
104043

000076
055614
000000
177701
001140
001136
000000

001226

000000

SCOPE
NOP
MOV
MOV
MOV
MOV

JSR
MOV

001142
001142

BIC
BEQ
CLR
MOV
ADD
EMT

001136

: S~A-1 BITS.

001140
001136
000000

052703

000001

104023

177701

000000
000000
001142
001142

A AR AN

5s.

001136

ANAR

2222200

#STACK,SP

;LOAD THE STACK POINTER

$8ASE RO

TSTQUE ,R1
#12,$TESTN

;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE
;oSET TEST NUMBER IN APT MaIl BOX

;R3 = ERROR INDICATOR

PC,CNTCLR

;GO CLEAR CONTROLLER

PC,CNTCLR

RMCS1(R0O) ,$BDDAT

THEN CLEAR.

READ AND

;LOAD RM(CS1

;GO CLEAR CONTROLLER

;STORE RMCS1 AT $BDDAT

g;CILF76.$BDDAT
$GDDAT
RO, $BDADR

#RMCS1,$BDADR

IN RMCST, BITS 01-05,

THEN WRITE ZEROS.

READ AND CHECK FOR

#ILF76,RMCS1(RO)
:LOAD RM(CS1
#0,RMCS1(RO)
sLOAD RMC(CSI
RMCS1(RO) ,$BDDAT
;STORE RMCS1 AT $BDDAT
#~CILF76,$8DDAT

108
$GDDAT
RO, $BDADR
3§MCS1.$BDADR

BIS

#81T0,R3

sSET ERROR FLAG

JWRITE ZEROS IN RMC(CS1, THEN ONES, READ AND CHECK S-A-0 BITS.
108
:

:SCOPE CALL

MOV
MOV
MOV
Bl1C
BEQ
CLR
MOV
ADD

EMT

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

TRANSFER TEST

itttz

;WRITE ONES IN RMCS1, BITS 01-05,
;CHECK FOR S-A-1 BITS
#ILF76 RMCS1(RO)
MOV

;sWRITE ONES

012760
012760
016037
042737
001412
005037
010037
062737

CONTROL STATUS #1

ettt

CLR
JSR

AN AN AR

CZRMPAQ RMOS/3/2 DSKLS TST 1

112

CONTROL STATUS #1

645 013300
646 013306
647 013314
648 013322
649 013330
650 013336
651 013344
652 013346
653 013352
654 013360
655 013362

012760
012760
016037
042737
012737
023737
001410
010037
062737
104024
052703

MACRO v03.01

TRANSFER TEST

000000
000076
000000
177701
000076
001140

000000
000000
001142
00114¢
001140
001142

001136
000000

001136

11-APR-80 13:58:55 PAGE 12-13

SEQ 0102

MOV
MOV
MOV
BIC
MOV
CMP
BEQ
MOV
ADD
EMT

000002

#0,RMCS1(RO)
sLOAD RMC(S1
#ILF76 ,RMCST(RO)
sLOAD RM(CS1
RMCS1(RO) ,$BDDAT
;STORE RMCS1 AT $BDDAT
#~CILF76,88DDAT
#ILF76,3GDDAT
$GDDAT ,$8DDAT
208
RO, $BDADR
A#RMCS1, $BDADR
24
#81T71,R3
;SET ERROR FLAG

BIS

égngE A SHIFTING ONE BIT PATTERN IN RMCS1,

659 013366

660 013370
661 013372
662 013376

663 013376
664 013400
665 013404
666 013412

005703

001035
012702

010203
042703
012760
010260

667 013416
668 0134264
669 013432

016037
042737
020337

671 013440
672 013444
673 013450
674 013456
675 013460
676 013462
677 013464

010337
010037
062737
104025
006302
001345

000002

177701
000000
000000
000000
177701
001142
001140
001136
000000

308

000000

001142
001142

001136
40%:

50%:

678
679

READ AND CHECK FOR STUCK BITS.

TST
BNE
MOV

R3
50%
#2,R2

MOV
BIC
MOV
MOV
MOV
BIC
cMP
BEQ
MoV
MOV
ADD

R2,R3
;R3 = EXPECTED RESULT, BITS 1-5
#~CILF76,R3
#0,RMCS1(RD)
:LOAD RMCS1
R2 ,RMCS1(RO)
sLOAD RMCS1
RMCS1(RO) ,$BDDAT
;STORE RMCS1 AT $BDDAT
#2CILF76,$8DDAT
R3,$8DDAT
408
R3,$GDDAT
RO,SBDADR
#RMCS1,$8DADR

ASL

EMT

;OMIT IF ANY ERRORS
;R2 = TEST PATTERN

BNE

JSHIFT TO NEXT BIT

308

;CONTINUE IF R2 NOT ZERO

.‘ :.t*"fi**fi*t*****fi*t**'*l’"*'**'***'*"t**'fi*tt.""'fifi*t*t't***'t'

;*TEST 13
013464
013464
013466
013470
013474
013500
013504

680
681 013512
682
683
684 013514
685
686 013522
687 013526
688 013534

689 013542
690 013550
691 013552

ERROR REGISTER #1 TRANSFER TEST

.'.' 1 2838220223322 23832 282222222322

000004
000240
012706
013700
013701
012737

TST13:

001100
001276
001462
000013

MOV
MOV

001226

005003

012760

177777

004737
016037
013737
042737
001410
005037

055614
000014
001346
177760

001140

zggPE

000014

001346

001142
001142

TR LR L

;SCOPE

LT RLEPE PR

LI ERPTEE DR T

CALL

MOV

#STACK,SP
$8ASE RO
TSTQUE ,R1

#13,8TESTN

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

CLR

;CLEAR ERROR FLAG

MOV

JWRITE ONES

MOV

IN RMER1,

;:SET TEST NUMBER IN APT MAIL BOX

CLEAR AND CHECK FOR S-A-1

BITS

#-1_,RMER1(RO)

;LOAD RMER1

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV
gég

RMER11 ,$8DDAT
:6§<PAR!RMR!ILF!1LR>,SBDDAT

CLR

$GDDAT

MOV

RMER1(RO) ,RMER1]

;STORE RMER1

IN INPUT BUFFER

RMPAO RMOS/3/2 DSKLS IST 1
MACRO V03.01
ERROR REGISTER #1 TRANSFER TEST

692 013556
693 013562
694 013570
695 013572
696 013572
697 013600
698 013606
699 013610
700 013614
701 013620
702 013626
703 013630

704
705
706
707

013630
013636
013644
013646

010037
062737
104027

013737
042737
001410
005037
010037
062737
104030
013737
042737
001410
005037
010037
062737
104031

001136
000014

001136

001346
074017

001142
001142

001140
001136
000014

001136

001346

147777

001140
001136
000014

001142
001142

:
108

M 8
11-APR-80 13:58:55 PAGE 12-14

SEQ 0103
MOV
ADD

RO, $8DADR
#RMER1 ,$8DADR

MOV

RMER11,$BDDAT

BEQ
CLR

208
$GDDAT

EMT

B8IC

208:

#°C<DCK!IAE !AQE 'HCRC'HCE'ECH'WCF!FER>,$8BDDAT

MOV
ADD

RO, $8DADR
#RMER1 ,$8DADR

MOV
BIC

RMER11 ,$8DDAT
#*C<OP1'DTE>,$BDDAT

CLR
MOV
ADD

$GDDAT
RO, $8BDADR
#RMER1,$BDADR

EMT

BEQ

001136

EMT

30%

gggITE ONES THEN ZEROS

71
718 013716
719 013724
720 013726
721 013732
722 013736
723 013744
724 013746
725 013752
726 013760
727 013766
728 013770
729 013774
730 014000
731 014006
732 014010

733 014014

734 014014
735 014022
736 014030
737 014032
738 014036
739 014042
740 014050
741 014052
742
743
744 014056
745 014056
746 014064
747 014072
748 014100

012760
012760
016037
013737
042737
001412
005037
010037
062737
104032
052703
013737

177777

001346
001142
001142

001140
001136
000014

001136

000001
001346
074017

Mov
MOV

000014
000014

000000
000014
001346
177770

MoV
MOV
BIC
BEQ
CLR

MOV
ADD

40%:

001140
001136
000014

052703

000001

013737
042737

001346

147777

001140

001136
000014
052703

030000

508

EMT
BIS
MOV
BIC
BEQ
CLR
MOV

IN RMER1,

#-1,RMER1 (R0O)
#0 ,RMER1(R0O)

READ AND CHECK FOR S-A-1

<LOAD RMER1
;LOAD RMER1

RMER1(RO) ,RMER1]
;STORE RMER1
RMER11,$8DDAT
A C<RMR!ILF!ILR>,$BDDAT
408
$GDDAT

RO, $BDADR

32
#8ITO,R3
+SET ERROR FLAG
RMER11],$8DDAT
#*C<DCK ' JAE'AOE 'HCRC'HCE 'ECH'WCF 'FER>, $BDDAT
50%
$GDDAT
RO, $8DADR

#RMER1, $BDADR

8IS

#BITO,R3

MoV
BIC
BEQ
CLR
MOV
ADD

RMER11,$8DDAT
#*C<OPI!DTE>,$8BDDAT
608
$GDDAT
RO,$8DADR
#RMER1 ,$BDADR
34
#BIT,R3

EMT
8Is

IN INPUT BUFFER

#RMER1
, $BDADR

ADD

EMT

BITS

;SET ERROR FLAG

ésngE ZEROS THEN ONES IN RMER1,READ AND CHECK FOR S-A-0 BITS

012760
012760
016037
012737

000000
177777
000014
177777

MOV

MOV
MOV
MOV

#0 ,RMER1(RO)

:LOAD RMER1

#-1,RMER1T(RO)
;LOAD RMER1
RMER1(R0O) ,$8DDAT
;STORE RMER1 AT $BDDAT

#-1,8GDDAT

CZRMPAD RMOS/3/2 DSKLS TST 1
MACRO v03.01
113
ERROR REGISTER #1 TRANSFER TEST
749 014106

023737

001140

001142

751 014116
752 014122
753 014130
754 014132
755
756
757
758 014136
759 014136
760 014140
761 014142
762 014146
763 014146
764 014152
765 014156
766 014164
767 014170
768 014172
769 014200
;;0 014204

010037
062737
104035
052703

001136
000014

001136

CMP
BEQ
MOV
ADD
EMT
BIS

000002

SEQ 0104

$GDDAT, SBDDAT
708"
RO, $8DADR
#RMER1, $8DADR
35
#8IT1,R3

;WRITE A SHIFTING 1 BIT IN RMERT AND CHECK FOR STUCK BITS
SNOTE
DONT TEST UNSAFE OR PARITY

005703
001042
012702

004737
010260

016037
032702
001003
042737
032702

001003

775 014226
776 014232

010037
062737

779 014242
780 014244
781 014246
782
783

006302
001340

;;g 014240

N 8
11-APR-80 13:58:55 PAGE 12-15

104036

000001

055614
000014
000014
000010

508

001142

000010
040000

001142

040000
001142

001142

001140
001136
000014

ST
BNE

;SKIP THIS PART IF ANY ERRORS

MOV

R3
120$
#1.R2

JSR
MOV

PC,CNTCLR
R2.RMERT (RO)

;GO CLEAR CONTROLLER
:LOAD RMER1

8IT
BNE
BIC
BIT
BNE
BIC
CMP

#PAR ,R2
90$
#PAR, $BDDAT
#UNS . R2
100$
#UNS
, SBDDAT
R2,$8DDAT

;DONT TEST PAR = 0

MOV
MOV
ADD
EMT

R2.SGDDAT
RO, $B8DADR
#RMER1, SBDADR
36

ASL

MOV

908:
1008:

001136
1108:

BEQ

:
1208

RMER1 (RO) , $8DDAT

:R2 = TEST PATTERN

SSTORE RMER1 AT S$BDDAT

:DONT TEST UNS = 0

110s

80s

;SHIFT TO NEXT BIT

SCONTINUE IF R2 NOT ZERO

' ;223222223232 24823 2232323222322 2 232232233232

SRTEST 14
. .2

014246
014246
014250
014252
014256
014262
014266

000004
000240
012706
013700
013701
012737

785 014274

004737

CLEAR OFFSET STUCK ACTIVE

LE S 4

TEST

4232344223233 232328223234282322122323228
22 2212322822
LEERETE S LY

rsr14

gggpe
MOV
MOV
MOV

001226

MOV
JSR

000032
001142
001142

001140
001136
108:

MOV
MOV
8IC
BNE
MOV
MOV
ADD
EMT

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

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

PC.CNTCLR

;60 CLEAR CONTROLLER

#14,$TESTN
#-1,RMOF (RO)
RMOF (RO) , $BDDAT
#~COFD, $8DDAT
108
#OFD, $GDDAT
RO, S8DADR
#RMOF
, $BDADR
172

2:SET TEST NUMBER IN APT MAIL BOX
*LOAD RMOF
:STORE RMOF AT $2DDAT
:BRANCH IF OFD IS A ONE

:SETUP ERROR MESSAGE

:END OF

TEST

796

SEQ 0105
A AR R AR RN

S*TEST 15

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

NANNN RN

NN RN

OFFSET REGISTER TRANSFER TEST

005003
010037
062737
005037

001136

gggpe

:SCOPE CALL

MOV

#STACK , SP
$BASE ,RO
TSTQUE ,R1

#15,$TESTN

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

CLR
MOV

R3
RO, $8DADR

:RESET ERROR FLAGS
*SETUP BAD ADDRESS

$GDDAT

;SETUP EXPECTED DATA

ADD

CLR

;WRITE ONES

012769
012760
016037

013737
042737
001403
104053
052703

tt't

MOV
MOV
MOV

001226

MOV
MOV
MOV

ARMOF
, $8DADR

THEN ZEROS

IN RMOF

#-1,RMOF (RO)
#0 ,RMOF (RO)
RMOF (RO) ,RMOF]

EMT

000001

BIS

#BITO,R3

%ngcx USED BITS OF RMOF

013737
042737
001403
104054
052703

$:SET TEST NUMBER IN APT MAIL BOX

AND CHECK FOR S-A-1

:LOAD RMOF
SLOAD RMOF
-STORE RMOF

BITS.

IN INPUT BUFFER

;CHECK UNUSED BITS OF RMOF FOR ZERO
MOV
RMOF],$BDDAT
;GET UNUSED BITS
BIC
#~CXNUOF, SBDDAT
8EQ
108
:BRANCH IF NO ERROR

001364
016200

001364
161577

MoV

000001

:SET ERROR FLAG
FOR ZERO

RMOFI,$8DDAT

:GET USED BITS

BIC
BEQ

#XNUOF
, SBDDAT
208

;BRANCH IF NO ERROR

BIS

#8ITO,R3

:SET ERROR FI AG

EMT

§8§’TE ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-0 BITS.

012760
012760

016037

013737
042737
001403

104053
052703

000000
177777
000032

Moy
MOV
MOV

#0 , RMOF (RO)

#-1,RMOF (RO)
RMOF (RO) ,RMOFI

MOV
8:C
BEQ
EMT
BIS

000001

P ¥ o LW

rnonrnrn

—b
b

—d
b

001364
161577
016200
001140

IN INPUT BUFFER

RMOF
] ,$BDDAT
;GET UNUSED BITS
4~ CXNUOF
, SBDDAT

308
53
#BITO,R3

gggfcx USED BITS OF RMOF

013737

:LOAD RMOF

:LOAD RMOF
:STORE RMOF

:CHECK UNUSED BITS OF RMOF FOR ZERO.

001364
016200

803
804 014414
805 014422
806 014430
807
808
809 014436
810 014444
811 014452
812 014454
813 014456
814
815
816 014462
817 014462
818 014470
819 014476
820 014500
821 014502
822
823
824 014506
825 014506
826 014514
827 014522
828
829
830 014530
831 014536
832 014544
833 014546
834 014550
835
836
837 014554
838 014554
839 014562
840 014570
841 014576
842 014604

000004
000240
012706
013700
013701
012737

—

797
798 014374
799 014376
800 014402
801 014410
802

15715:

0008

014352
014356
014362
014366

AN AR AN AR AN TP I

"t*ttt'*tfitt.'*fi'tt..t'*"""t'l.'.....Qfi"ifittt'tt'tt.'.it

OO0

014346
014346
014350

mov

BIC
MOV
TMP

BEQ

:BRANCH IF NO ERROR

FOR ONE.

RMOF] ,$BDDAT

:GET USED BIiS

408

;BRANCH IF NO ERROR

#XNUOF
, SBDDAT
A~ CXNUO
, SGDDAT
F ;SETUP EXPECTED STATUS
$GDDAT
, SBDDAT

«nl

11-APR-80 13:58:55 PAGE 12-16

(WS T

CZRMPAQ RMOS5/3/2 DSKLS TST 1
MACRO v03.01
115
OFFSET REGISTER TRANSFER TEST

OFFSET REGISTER TRANSFER TEST

843 014606
gzg 014610
846
847 014614
848 014614
849 014616
850 014620
851 014624
852 014624

853 014632

854 014636
855 014644
856 014646
857 014652
858 014656
859 014660
860 014664
861 014666
gg% 014670

104055
052703

005703
001025
012702

012760
010260
016037
010203
042703
020337
001403
010337
104056
006302
001355

9
c
11-APR-80 13:58:55 PAGE 12-17
SEQ 0106

EMT
BIS

000002

000001

000000
000032

000032

000032
001142

161577
001142
001140

ggé 014672

55
#8IT1,R3

:1F NO PREVIOUS ERRORS, TEST RMOF WITH SHIFTING ONE BIT PATTERN.
40$:
TST
R3
ANY ERROR??
BNE
708
YES!!
Mov
#1,RC
:STARTING DATA PATTERN
508%:
MOV
#0,RMOF (RO)
;LOAD RMOF
MOV
R2 ,RMOF (RO)
;LOAD RMOF
MOV
RMOF (RO) ,$BDDAT ;STORE RMOF AT S$BDDAT
MOV
R2,R3
;SETUP EXPECTED RESULT
8I1C
#XNUOF ,R3
;CLEAR UNUSED BITS
cMP
R3,$BDDAT
;COMPARE EXPECTED & RECEIVED
BEQ
60%
:BRANCH IF NO ERROR
MOV
R3,$GDDAT
;LOAD EXPECTED
EMT
56
60$:
ASL
R2
sSHIFT TO NEXT BIT
BNE
50%
;CONTINUE IF NOT DONE
70%:

ttt‘ti"'*tttfil’ttt"fit't't"tt'tfitfi..fi"t""ttfifi!*tfifi"ttfittt'it

tTEST 16
e

014672

014674
014676
014702

TST16:

000004

000240
012706
013700

AR R A A AR AR

ERROR REGISTER #2 TRANSFER TEST
A

AN AN AR R R AR R RN AN N RN NN N

SCOPE

NOP
MOV
MOV

001100
001276

A A AR

HSTACK,SP
$BASE ,RO

sLOAD THE STACK POINTER
:RO
= UNIBUS ADDRESS
;R1 = POINTER TO DEVICE
::SET TEST NUMBER IN APT MAIL BOX
SRESET ERROR FLAGS
;SETUP BAD ADDRESS

013701
012737

001462
000016

MOV
MOV

TSTQUE ,R1
#16,$TESTN

868 014720
869 014722
870 014726
871 014734
872 014740

005003
010037
062737
005037
012737

001136
000042
001140
010000

CLR
MOV
ADD
CLR
MOV

R3
RO, $8DADR
#RMER?
, $BDADR
$GDDAT
#FMT16 ,RMOFO

g;g 014746

012760

177777

878 014754
879 014760

004737
013760

055614
001440

875

gg? 014766

882
883 014774
884 015002
885 015010
886 015012
ggg 015014

889

016037

013737
042737
001403
104044
052703

000001

sSETUP EXPECTED DATA
;SET 16 BIT FORMAT MODE TO ALLOW

:''SSE'*
TO BE SET IN RMER2

JWRITE ONES IN RMERZ2, CLEAR AND CHECK FOR S~A-1 BITS

000042

001374
176210

ANRRAN

:SCOPE CALL

014706
867 014712

g;z

RN A NN AR AR

001142
001142

MOV

#-1,RMER2(RO)

;LOAD RMER?

JSR
MOV
MOV

PC,CNTCLR
RMOFQ,RMO
(RO)
F

;60 CLEAR CONTROLLER
;LOAD RMOF

RMERZ (RO) ,RMER?!

;STORE RMERZ IN INPUT BUFFER

sTEST UNUSED BITS FOR ZERO-FAILURE ON IF
MOV
RMERZ2I, $8DDAT
BIC
#~CXNUER2, SBDDAT
BEQ
108
;BRANCH IF NO ERROR
EMT
44
BIS
#E1TO,R3
;SET ERROR FLAG

STEST "OPE'", I

"LSC'* FOR ZERO-FAILURE ON (S,

-4

MACRO v03.01

i adon
s

CZRMPAQ RMOS/3/2 DSKLS TST 1

EROR REGISTER #2 TRANSFER TEST

890 015020
891 015020
892 015026
893 015034
894 015036
ggg 015040

013737
042737
001403
104045
052703

001374
143777

001142
001142

000001

899 015044
900 015052

901 015060
902 015062
332 015064

013737
042737

001403
104046
052703

905

906 015070

907 015070
908 015076
3?3 015104
9N
912 015112

913 015120
914 015126

915 015130
g}g 015132
918
919 015136
920 015136
921 015144
922 015152
923 015154
3§§ 015156

001374
175767

00114
00114

177777
000000
000042

000042
000042
001374

013737
042737
001403
104047

001374
143777

001142
001142

013737
042737
001403
104050
052703

001142
001142

000001

BEQ
EMT
BIS

308
46
#BITO,R3

IFf

#~C<LBC!DPE>,$BDDAT

;BRANCH IF NO ERROR

;SET ERROR FLAG

MOV
MOV
MOV

sTEST *OPE'",
MOV

BIC

BEQ

#-1,RMER2(RO)
:;LOAD RMER2
#0,RMER2 (RO)
:LOAD RMER2
RMER2 (RO) , RMER2]
;STORE RMER2 IN INPUT BUFFER
"'IVC'', 'LSC'' FOR ZERO-FAILURE ON CS,
RMER2]
, $BDDAT

#~C<OPE
' IVC'LSC>, SBDDAT
408

47
#81T0,R3

SBRANCH IF NO ERROR

:SET ERROR FLAG

STEST 'LBC'', 'DPE'' FOR ZERO-FAILURE ON DS, IF
408
:
MOV
RMER2]
, $BDDAT
BIC
#~C<LBC 'DPE>, $BDDAT
BEQ
508
:BRANCH IF NO ERROR
EMT
50
BIS
#BITO.R3
;SET ERROR FLAG

-WRITE ZEROS IN RMER2 THEN WRITE ONES AND CHECK FOR S-A-0 BITS.

012760
012760

000000
177777

000042
000042

932 015204
933 015212
934 015220
935 015222
3;9 015224

013737
042737
001403
104044
052703

001374
176210

001142
001142

938
939 015230
940 015230
941 015236
942 015244
943 015252
944 015260
945 015262
946 J15264

30s:

000001

001374
175767

RMERZ]
, $BDDAT

EMT
BIS

928 015162
929 015170

930 015176
931

RMER21, $BDDAT
#~C<OPE
' 1VC'LSC>, SBDDAT
208
:BRANCH IF NO ERROR
45
#81T0,R3
:SET ERROR FLAG

MOV

B8IC

SEQ 0107

-WRITE ONES IN RMER2 THEN WRITE ZEROS AND CHECK FOR S-A-1 BITS.

012760
012760
016037

052703

20$:

000001

926

927 015162

MOV
BIC
BEQ
EMT
BIS

:TEST ‘LBC'', 'DPE’'* FOR ZERO-FAILURE ON DS,

897

898 015044

108:

D 9
11-APR-80 13:58:55 PAGE 12-18

016037

000042

001574

000001

£0s:

MOV
MOV

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

:LOAD RMER2
:LOAD RMER?

MOV
RMER2 (RO) ,RMER21’
;STORE RMER2 IN INPUT BUFFER
;TEST UNUSED BITS FOR ZERO-FAILURE ON IF’
MOV
RMER2], $8DDAT
BIC
#~CXNUER2, $8DDAT
BE2
608
:BRANCH IF NO ERROR
EMT
44
8IS
#81T0,R3
;SET ERROR FLAG
ééiST USED BITS FOR ONE-FAILURE ON If

013737
042737
012737
023737
001403
104051
052703

001374
001567
176210
001140
000002

001142
001142
001140
001142

MOV

BIC

MOV
CMP
BEQ
EMT
BIS

RMER2] , $SBDDAT

#XNUER2, $BDDAT

#~CXNUER2, SGDDAT
$GDDAT
, SBODAT
70%
;BRANCH IF NO ERROR
51
#8IT1,R3
sSET ERROR FLAG

«rw_w

MACRO v03.01

Wirg

CZRMPAQ RMOS/3/2 DSKLS TST 1

CZRMPAO RMOS/3/2 DSKLS TST 1

ERROR REGISTER #2

MACRO v03.01

TRANSFER

TEST

947
948

949 015270

- 1F NO PREVIOUS ERROR,

950 015270
951 015272
952 015274
953 015300
954 015300
955 015304
956 015312
957 015316
958 015324
959 015330
960 015332
961 015340
962 015344
963 015346
964 015354
965 015360
966 015366
97 015374
ggg 015376

042737
010237
042737
023737
001401
104052

970 015400

006302

g;% 015402

708:

005703
001044
012702

000001

004737

055614

016037
032702
001003
042737

000042
040000

001142

040000

001142

000200
001140
001567
001140

001142

013760
010260

032702
001003

001440
000042

000200

80$:
000032

001140
001142

ST
BNE
MOV

JSR

MOV
MOV

90s:

1008:

110%:

001336

[

11-APR-80 13:58:55 PAGE 12-19

MOV
BIT
BNE
BIC

TEST BIT INTERFERENCE WITH SHIFTING ONE BIT.

R3
1208
#1,R2

:ANY ERRORS?
SYES!!
*RO=DATA PATTERN

PC,CNTCLR

;GO CLEAR CONTROLLER

RMOF
O, RMOF (RO)
R2,RMER2 (RO)

:LOAD RMOF
*LOAD RMER2

BIT
BNE
BIC
MOV
BIC
cMP
BEQ
EMT

RMER2(RO),S$BDDAT
;STORE RMER2 AT $BDDAT
#SK1,R2
;1S SKI BEING SET?
90$
SYES!!
#SK1,$8DDAT
*DONT TEST SkI FOR ZERO
#DVC.R2
*1S DVC BEING SET??
1008
SYES!!
#DVC, SBDDAT
*DONT TEST DVC FOR ZERO
R2.SGDDAT
#XNUER2,$GDDAT
;UNUSED BITS SHOULD BE ZERO
$GDDAT ,$8DDAT
JANY ERRORS??
1108
*NG!!
52

ASL

BNE

SEQ 0108

80%

JSHIFT TO NEXT DATA BIT

JCONTINUE

[F NOT DONE

g;z 015404

120$:

975

.';tttttttttttttttttttttttttttttfitttttttttttttttfitttttttttttttttt'

S*TEST 17

SERJAL NUMBER TEST

.-:tttttttttttttttttttttt'tttttttttti*tttt't*ttttt'tttttfifitttttttt

015404
015404
015406
015470
015414
015420
976 015424

000004
000240
012706
013700
013701
012737

001100
001276
001462
060017

977 015432
978 015436
979 015442
32? 015450

004737
010037
062737
012702

055614
001136
000030
000031

982
332 015454

016037

000030

985
986 015462
987 015462
988 015470
989 015476
33? 015500

992
993 015502

016037
023737
001401
104136

T$117:

000030
001140

001226

SCOPE
NOP
MoV
MOV
MOV
MOV

#STACK,SP
$BASE ,RO
TSTQUE,R1
#17.$TESTN

;LOAD
‘RO =
*R1 =
*;SET

001136

JSR
MOV
ADD

PC,CNTCLR
RO . $8DADR
#RMSN
, SBDADR

;GO CLEAR CONTROLLER
*SETUP REGISTER ADDRESS FOR TYPEOUT

001140

001142
001142

MOV

;SCOPE CALL

#25. R2

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

;READ RMSN 25 TIMES

;READ RMSN AND USE THE RESULT AS EXPECTED VALUE
MOV
RMSN(RO) ,$GDDAT ;STORE RMSN AT $GDDAT
;READ RMSN AND COMPARE WITH INITIAL VALUE
108
:
MOV
RMSN(RO) ,$BDDAT :STORE RMSN AT $8DDAT
CMP
$GDDAT, SBDDAT
BEQ
208
;BRANCH IF SERIAL NUMBER CONSISTENT
EMT
136

:DECREMENT COUNT AND CONTINUE
208:

IF NOT DONE

|73

CZRMPAQ RMOS/3/2 DSKLS TST 1
117
SERIAL NUMBER TEST
994 015502

MACRO v03.01

F
9
11-APR-80 13:58:55 PAGE 12- 20

005302
100366

30%:
A

DEC
BPL

TRTEST 20

R2
10%

JENC OF TEST
2RZX22222

X RARPANAANARANAANRARANAAARNCNONANNN

CONTROL BUS PARI TY OETECTION TEST

000004
000240
012706
13700
013701
012737
005037
111137
042737

TST20:

001100
001276
001462
000020
001140
001416
177770
000001

001416
001444

001444

MOV

s G Qi G
i

NOWVITMWN=O

001136
000014
000010

001136
001374

=SSOV

[N ] 6 I i

001142
001374
001142

1037 015726
1038

ASTACK,SP
$RASE ,RO
TSTQUE ,R1

#20,$TESIN

;LOAD THE STACK POINTER

2RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE
;oSET TEST NUMBER IN APT MAIL BOX

;SETUP FOR FIRST TEST LOOP (NO ERROR)
CLR
$GDDAT
;" PAR'" SHOULD BE ZERO
MOvVB
(R1) ,RMCS20
;SETUP RMCSZ VALUE
BIC
#*CUNTMSK ,RMCS20
MOV
#1 ,RMHRO
JINITIALIZE DATA PATTERN
BR
6%
:SKIP INCREMENT FIRST TIME
5%:
ASL
RMHRO
sSHIFT TO NEXT PATTERN

10%:

015724

. SCOPE CALL

égLEAR AND VERIFY THAT 'PAR"’ IS RESET

055614
000014
000042
177767

0
025 015650
026 015650
1027 015656
1028 015664
1029 015672
1030 015700
1031 015706
1032 015710
1033 015716
1034 015720
1035 015722
1036 015724

SCOPE

NOP
MOV
[0}
MOV

001226

V& W

— ) = cd

jelolelelolololelololole]

—t b wd d D wd e b i wnd and D md oD nd cid e

cad b wd

ge388e88283

A A0SR0
2222222 22 X1 AAARAN
AR
AANANR
RN NRAN AN
EN

JSR

PC,CNTCLR

MOV
MOV
BIC
BEQ
MOV
ADD
BIT
BNE
EMT
BR

26O CLEAR CONTROLLER
RMER1
(RO) , $8DDAT
;STORE RMER1 AT $BDDAT
RMER2
(RO) ,RMERZ2]
:STORE RMERZ IN INPUT BUFFER
#“CPAR, $8DDAT
RESET?
'PAR''
;DID
208
S!!
JYE
RO, $8DADR
;SETUP REGISTER ADDRESS
#RMER1 ,$8DADR
#DPE ,RMERZ]
;1S "DPE'’ SET??
10%
JYES!!
67
508

EMT
BR

70
50%

égngE TEST PATTERN AND VERIFY 'PAR'' STATUS

013760

000010
000036
001142
001142
001142
001416

30%:

MOV
MOV
MOV
BIC
MP
BEQ
BIT
BNE
EMT
BR

RMCS20,RMCS2(RO)
;LOAD RM(CS2
RMHRO,RMHR
(RO)
;LOAD RMHR
RMER1(R0O) ,$8DDAT
;STORE RMER1 AT $8DDAT
#“CPAR,$8DDAT
$GDDAT ,$8DDAT
;1S "PAR'’ CORRECT??
408
JYES!!
#PAT ,RM(CS20
JSHOULD ‘PAR'' BE SET?
308
JYES!H!
71
50%

EMT
72
BR
508
;GO TO NEXT PATTERN

JSKIP TO NEXT

SEQ 2109

1039 015730
1040 015734
10641 015736
1042 015744

005737
001312
032737
001072

1044 015746
1045 015754
1046 015762

052737
012737
012737
000676

1043

}825 015770

001444
000020

000020
000010
000001

408 :
001416

001416
001140
001444

SEQ 0110
ST
BNE
8IT
BNE

RMHRO
5%
#PAT ,RMCS20
508

;1S DATA PATTERN COMPLETE??
INO!!
*1S TEST COMPLETE??
SYES!!

BIS
MOV
MOV

#PAT ,RMCS20
#PAR . $GDDAT
#1,RMHRO
6$

:TURN ON BAD PARITY
*EXPECT ERROR
SINITIALIZE DATA PATTERN
:START LOOP

;SETUP FOR SECOND TEST LOOP (ERROR)

}ggg 015772

508 :

1051

::ttttttttttttttfit'tfit'ttt'ttitittkttttit'ttttttttttttttttttt"tt

;END OF TEST

S*TEST 21

015772
015772
015774
015776
016002

.';tttttttttttfit.tttttt'tttttttfitt*ttttfitttttttfitfitt'*tttt'ttttitt

000004
000249
012706
013700

016006

013701

1053
1054 016020
1055 016026
}829 016032

012737
005037
000402

1052 016012

1058
1059 016034
1060 016034
1061 016040
1062 016040
}822 016046
1065
1066 016052
1067 016060
1068 016066
1069 016074
1070 016076

}8;5 016100

012737

18121:

001100
001276
001462

000021

001226

000001
001140

001444

006337

001444

004737
013760

055614
001444

000036

016037
016037
042737

000036
000000
157777

001370
001142
001142

001402
104073

000403

1075 016102
1076 016106
}8;5 016110

SCGPE
NOP
MOV
MOV

#STACK , SP
$8ASE RO

MOV

#21.$TESTN

MOV

;SCOPE CALL

TSTQUE ,R1

;SETUP FOR TEST (NO * RROR)
MOV
#1,RMHRO
CLR
$GDDAT
BR
208
:SHIFT DATA PATTERN
10s:
ASL
RMHRO
20$:
JSR
PC.CNTCLR

MOV

RMHRO,RMHR(RO)

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

1;SET TEST NUMBER IN APT MAIL BOX

;INITIALIZE DATA PATTERN
*MCPE SHOULD BE ZERO
*DONT SHIFT FIRST TIME

;GO CLEAR CONTROLLER
:LOAD RMHR

;TRANSFER DATA TO RH. VERIFY NO 'MCPE'’ ERROR
MOV
RMHR(RO) ,RMHRI
:STORE RMHR IN INPUT BUFFER
MOV
RMCS1(RO), $BDDAT
;STORE RMCS?1 AT $BDDAT
BIC
#~CMCPE ,$8DDAT
:WAS BAD PARITY DETECTED??
BEQ
308
*NO!!
EMT
73

B8R

1073

1074 016102

CONTROL BUS PARITY GENERATION TEST

408

-GO TO NEXT PATTERN

005737
001352

1079

001444

508:
408 :

ST
BNE

RMHRO
108

:DONE ALL PATTERNS??
*NO'!
“END OF TEST

;.‘tt!'tttttttttttttttttttttttttfitttttttttt*tfittttttttttttttttitttt

SxTEST 22
016110
016110
016112

RMDA ,RMDC FAULT TEST

"."ttttttttttttttttttttttitttttittttttttttitttttt*ttttttltttttt't

000004
000240

7$122:
.

SCOPE
NOP

:SCOPE CALL

-4y |

G
9
11-APR-80 13:58:55 PAGE 12-21

LAl

CZRMPAD RMOS/3/2 DSKLS TST 1
MACRO v03.01
120
CONTROL BUS PARITY DETECTION TEST

C%gHPAO RMOS/3/2 DSKLS TST 1
RMDA,RMOC FAULT

TEST

MACRO Vv03.01

016114
016120
016126
1080 016130

012706
013700
013701
012737

001100
001276
001462
000022

}835 016136

004737

055614

012760
012760
012760
012760
016037
016037
022737
001410
052737
022737
001401

000000
000000
177777
177777
000006
000034
177777

000006
000034
000006
000034
001340
001366
001340

176000
177777

001366
001366

1083

1084 016142
1085 016150
1086 016156
1087 016164
1088 016172
1089 016200
1090 016206
1091 016214
1092 016216
1093 016224
1094 016232

}832 016234

H
9
11-APR-80 13:58:55 PAGE 12-22

001226

MOV
MOV
MOV
MOV

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

;LOAD
;RO =
:R1 =
:2SET

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
BIS
CMP
BEQ

EMT

#0,RMDA (RQ)
#0,RMDC (RO)
#-1,RMDA(RO)
#-1_RMDC(RO)
RMDA(RQ) ,RMDA]
RMDC (RO) ,RMDCI
#-1,RMDA]
108
#XNUDC,RMDCI
#-1,RMDC
108
42

;LOAD RMDA
:LOAD RMDC
:LOAD RMDA
:LOAD RMDC
:STORE RMDA IN INPUT BUFFER
:STORE RMDC IN INPUT BUFFER
;IS ANY REGISTER ALL ONES??
-YES!!
:SET UNUSED BITS

YES!!

10%:

low

t"i"'tttttifitttt*fi"ttit"ttfitti*fittfitttfifi'fitit*t*tfittttttttttt't

SATEST 23

000004
000240
012706
013700
013701

t§7123:

016264

005003

004737

055614

1104
1105 016272
1106 016300
1107 016306
1108 016314
1109 016320
1110 016322
1111 016326
1112 016332

012760
012760
016037
005737
001412
005037
010037
062737

177777
000000
000006
001142

001100
001276
001462

1100 016256 012737 000023
}}8§ 016266

1113 016340
1114 016342
}}}2 016346

016346

1117 016354
1118 016362
1119 016370
1120 016376
1121 016400

DISK ADDRESS TRANSFER TEST

*tttlitttttt'*itfil*t*t'*fl*'t*fitt'iitfiQti*i'fittt*tlit'ttt"it't'

016236
016236
016240
016242
016246
016252

1101

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

;WRITE ZEROS, THEN ONES IN RMDA,RMDC-READ AND TEST FOR S-A-0

104042

}88; 016236

SEQ 0111

001140
001136
000006

104020
052703

000001

012760

000000

012760
016037
023727
001413
012737

001226

SCOPE
NOP
MOV
MOV

MOV

#STACK , SP
$BASE ,RO
TSTQUE ,R1

#23,$TESTN

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

CLR

:R3
= ERROR INDICATOR

MOV

JSR
000006
000006
001142

001136

:SCOPE CALL

PC.CNTCLR

:WRITE ONES IN RMDA, THEN WRITE
MOV
#-1,RMDA(RO)
MOV
#0,RMDA (RO)
MOV
RMDA(RO)
, $BDDAT
TST
$8DDAT
BEQ
108
CLR
$GDDAT
MOV
RO, $BDADR
ADD
#RMDA
, $BDADR

::SET TEST NUMBER IN APT MAIL BOX

:GO CLEAR CONTROLLER

ZEROS, READ BACK AND CHECK FOR S-A-1 BITS
;LOAD RMDA
:LOAD RMDA
:STORE RMDA AT $BDDAT

EMT
BIS

20
#81T0,R3

;SET ERROR FLAG

MOV

#0 ,RMDA (RO)

;LOAD RMDA

%gglrs ZEROS IN RMDA, THEN WRITE ONES, READ BACK AND CHECK FOR S-A-0 BITS

000006

177777
000006
001142

000006
001142
177777

177777

001140

MOV
MOV
CMP
BEQ
MOV

#-1 RMDA(RO)
:LOAD RMDA
RMDA (RO) ,$BDDAT ;STORE RMDA AT $BDDAT
$8DDAT
, #-1
208
#-1,$GDDAT

41
42

——

OO0OO0Oo

001136
000006

052703

000002

104021

16502
016504
016506

0165190

012702

000001

012760
010260
016037
023702

000000
000006
000006
001142

MOV

001140
001136
000006

RO, $BDADR

ADD

#RMDA
, $BDADR

EMT
BIS

30$:

001142

#0,RMDA (RO)
R2.RMDA (RO)

$8DDAT ,R2

50%:

016536
016540
016544
016550
016554

1152 016562
1153 016570
1154 016576
1155 016604
1156 016606
1157 016610
1158
1159
1160 016614
1161 016614
1162 016622
1163 016630
1164 016636
1165 016644
1166 016646
1167 016650

062737
012760
016037
042737
001403
104134
052703

157124

22
R2
308

SRSl

001136

CLR
JSR
CLR
MOV
ADD

177777
000034
001777

000034
001142
001142

MOV
MOV
BIC
BEQ

EMT
BIS

000001

WRITE ONES

012760

177777

000000
000034
176000

052703

055614
001140
001136
000034

WRITE ONES

000001

000034
000034
001142
001142

§s

MOV
MOV
MOV
BIC

BEQ
EMT
8IS

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

R AR AANRANNARR

DESIRED CYLINDER TRANSFER TEST

001226

000024

;SHIFT TO NEXT BIT
;CONTINUE IF R2 NOT ZERO

AR R AN AN AN AR AR

SCOPE
NOP
MOV
MOV
MOV
MOV

001100
001276
001462

,$BDDAT ;STORE RMDA AT $BDDAT

RO, $8DADR
#RMDA
, SBDADR

EMT
ASL
BNE

408:

;LOAD RMDA
;LOAD RMDA

408
R2.S$GDDAT

MOV
ADD

001136

READ, AND CHECK FOR STUCK BITS

;R2 = TEST PATTERN

RMDA (RO)

CMP

MRS

012706
013700
013701
012737

;OMIT BIT TEST IF ANY ERROR

MOV
MOV
BEQ
MOV

001353

000004
000240

508
#1,R2

TRTEST 24

016510
016512
016514
016520
016524
016530

:SET ERROR FLAG

BIT PATTERN IN RMDA,

BNE
MOV

MOV

AR R AR

016510

21
#81T1.R3

WRITE A SHIFTING 1

1144
1145
1146
1147
1148
1149
1150
115

idittt

2220222202222

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

R3
PC,CNTCLR

$GODAT

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

;R1

= POINTER TO DEVICE

;o SET TEST NUMBER IN APT MAIL BOX

JRESET ERROR FLAGS
;GO CLEAR CONTROLLER

RO, $8DADR

;LOAD EXPECTED
;LOAD REG ADDRESS

IN RMDC AND VERIFY

THAT UNUSED BITS ARE

#RMDC
, SBDADR

ZERO

#-1,RMDC (RO)
sLOAD RMD(C
RMDC (RQO) ,$8DDAT ;STORE RMDC AT $BDDAT
#-CXNUDC
. $8DDAT
;CLEAR ALL USED 8]TS
(13
;BRANCH IF NO ERROR

134
#BITO.R3
IN RMDC,

THEN WRITE

#-1,RMDC (RO)
#0,RMDC (RO)
RMDC (RO) , $BDDAT
AXNUDC
, $8DDAT

108
37
#BITO.R3

:SET ERROR FLAG
ZEROS,

READ AND CHECK FOR S-A-1

sLOAD RMDC
sLOAD RMD(C
;STORE RMDC AT S$SBDDAT
sCLEAR UNUSED BITS
;BRANCH IF NO ERROR
;SET ERROR FLAG

BITS

-t

SEQ 0112

001136

000006

11-APR-80 13:58:55 PAGE 12-23

208 :

22R2222R
NIRRFGRY

b
b
b cd
b
b
b
—

010037
062737

d d o

39
40

[elelelelalelelolololololols] 00

b wd e

d h ed d d

d d ed

d D d ed D

D d d

d D d

—d d d ad wd b d edd —

FURTRGRT ERRTRONER

94 RMPAQ RMO5/3/2 DSKLS TST 1
MACRO v03.01
T2 3
DISK ADDRESS TRANSFER TEST

J
9
11-APR-80 13:58:55 PAGE 12-24

CZRMPAO RMOS/3/2 DSKLS TST 1

SEQ 0113

%gngE ZEROS,

012760
012760
016037
052737
012737
023737
001403

000000
177777
000034
176000
177777
001140

052703

000002

104040

000034
000034
001142
001142

MOV

001140
001142

005703
001026
012702

16740
16746

—

012760
010260
010203
042703
016037
023703

000000
000034
176000

000034
001142

000034

001140

#0 ,RMDC (RO)

R2 .RMDC (RO)
R2.R3
AXNUDC ,R3

006302
001354

50%:

$8DDAT
R
50%
R3,$GDDAT

60%

;SKIP TO NEXT

ASL
BNE

R2
308

sJSHIFT TO NEXT BIT
;CONTINUE IF R2 NOT ZERO

017042

000004
000240

TST125:

012737

001100
001276
001462
000025

005037
012702

001140
000000

001226

L’ T

7 017036

;R3 = EXPECTED RESULT

60%:
RS

017010
017010
017012
017014
017020
017024
017030

;LOAD RMDC
sLOAD RMD(

;CLEAR ANY UNUSED BITS
RMDC(RO)3$BDDAT ;STORE RMDC AT $8DDAT

EMT

ettt

Y282

ILLEGAL REGISTER TEST
el

22222222222222;

St sttt
22282222282
z
22 2228

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$8ASE RO
TSTQUE ,R1
#25,8TESTN

CLR
MOV

$GDDAT
#0,R2

:SCOPE CALL
;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

;R1

= POINTER TO DEVICE

;cSET TEST NUMBER IN APT MAIL BOX

;"'ILR"" SHOULD BE ZERO
;R2=REGISTER INDEX

%S%EAR AND VERIFY THAT "'ILR'* STATUS IS ZERO
b

b
—

055614
000014
177775

—

004737
016037
042737

o0
0O

JR2 = TEST PATTERN

MOV
MOV
BIC
MOV
MP
BEQ
MOV

J*xTEST 25

IF ANY ERRORS
R3
608
#1,R2

MOV

001142

1205

AN NLNVNINININ

:SET ERROR FLAG

ééEST RMDC WITH SHIFTING ONE BIT

202
1203 017010
1204

L R

sLOAD RMDC
:LOAD RMD(C
;STORE RMDC AT $8DDAT
sSET UNUSED BITS
sLOAD EXPECTED RESULT
:&gsRm?C ALL ONES ??

208
40
#8IT1,R3

TST
BNE
MOV

000001

IN RMDC, READ AND CHECK FOR S=-A-0 BITS

#-1,RMDC(RO)
RMDC
(RO) ,$BDDAT
#XNUDC ,$BDDAT
#-1,8GDDAT
$GDDAT ,$BDDAT

BEQ
EMT
BIS

20%:

THEN ONES

#0 ,RMDC (RO)

MOV
MOV
BIS
MOV
CMP

;OMIT BIT TEST

ooooogooooo

d b el b nd cnd b el wd D D b D o D ed D d D D ad e e wetd D D D ed D e ad — b D
n dddddddddddadddddddddddaddddddd -

SEB LR RIS 28 BRI R R RN 2B IFVFININIIBS

MACRO v03.01
DESIRED CYLINDER TRANSFER TEST

JSR

MoV
8IC

PC,CNTCLR

RMER1(RO) ,$BCDAT
#*CILR,$8DDAT

.GO CLEAR CONTROLLER
;STORE RMER1 AT $8DDAT

CZRMPAO RM0OS/3/2 DSKLS TST 1
125
ILLEGAL REGISTER TEST

000004

016037

000014

1250 017240
1251 017246
1252 017250
1253 017254
1254 017262
1255 017264
1256 017266
1257 017270
017270

023737
001411
010337
032737
001002
104065
000401

001140

001142
001142
001142

001174
000002

001140

1260 017272
1261 017272
1262 017276

1263 017302

1264 017304
1265
1266
1267 017306
1268 017312

022702
101261
103437

013746
013746

; :PUSH ERRVEC ON STACK

#6408 , ERRVEC

;SETUP FOR BUS TIMEOUT

R4
ARMCS2,R2

:Re=REGISTER VALUE

#PR6
. ERRVE C +2

2 ;PUSH ERRVEC+2 ON STACK

;:POP STACK INTO ERRVEC

408:

MOV

#4658, (SP)

50$:

MOV
MOV
CMP
BHI
MOV
EMT
BR

(SP)+,ERRVEC+2
(SP)+.ERRVEC
R2,#RMEC2
50$
R3, $BDADR
7%
1408

MOV
BIC
cMP

BEQ
MOV

RMER1 (RO) , $8DDAT
;STORE RMER1 AT $BDDAT
#~CILR,$BODAT
SGDDAT ,$BDDAT
;IS "‘ILR'* OK??
808
SYES!!
R3,$TMPO
*SAVE ADDRESS

BNE
EMT
BR

70$
65
80$

EMT

60%:

MOV

RTI

BIT

000002

;
;

(SP)+,ERRVE(C+2

#1LR.,SGDDAT

;:POP STACK INTO ERRVEC+2

;DUMMY RTI ADDRESS

*RESTORE PRIORITY

::POP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC
‘WERE ALL REGISTERS READ??

SYES!!

*SHOULD '‘ILRTM* BE SET??

SYES!!

TO THE NEXT REGISTER ADDRESS

ADD

#2 ,R2

; INCREMENT

BHI
8LO

108
1108

*BRANCH IF NOT
*BRANCH IF ALREADY CHECKED

cTMMP

000050

000004
000006

ERRVEC,-(SP)

égg>+.snkvec

éegVANCE

062702

;R3=REG ADDRESS

ggv

70$:

104066

AND TEST ILR STATUS

;SELECT DRIVE IF RMCS2
SWRITE TEST REGISTER

001136

BNE
MOVB
MOV

;BRANCH IF ILR IS RESET
*SETUP GOOD DATA, REG ADR

308
(R1).Ré&
R4, (R3)

000006

177775

ERRVEC+2,~(SP)

CLR
CMP

017224

042737

MOV

30$:

000004
000046

1249 017232

RO,R3
R2.R3

MOV

000006

012637
020227
101003
010337
104074
000503

1248 017224

MOV
ADD

MOV

012637

208
$GDDAT
RO, $8DADR
#RMER1, $BDADR
64
1408

THE REGISTER (INDEX=R2)

017176

012716
000002

38 017170

W
N

000006
000004

017176

001136

000010

012637
012637

1241 017202
1242 017206
1243 017212
1244 017214
1245 017220
}Szg 017222

BEQ
CLR
MOV
ADD
EMT
BR

o
W

000004
000006
017170
000300

017156
017162

1240 017176

SEQ 0114

—

022702
-

017144

013746
013746
012737
012737
005004
-

M) =

8 017126
017134

001140
001136
000014

K 9
11-APR-80 13:58:55 PAGE 12-25

égglre

d —b 2

001411
005037
010037
062737

-—

7074

v SWhAR

ASIASIASIASTASIAS
TS TAS T S [, S [ N T, ¥ )

017066
17070

MACRO v03.01

#50.R2

ARMBAE ,R2

MOV

ERRVEC,=(SP)

BNE

MOV

1008

ERRVEC+2,~(SP)

INDEX

STIME TO TRY RH70 2
*1S THIS RMBAE??
‘NO!!

::PUSH ERRVEC ON STACK

:;PUSH ERRVEC+2 ON STACK
R

CZRMPAQO RMOS5/3/2 DSKLS TST 1
125
ILLEGAL REGISTER TEST
1269 017316
1270 017324
1271
1272
1273
1274
1275
1276
1277
1278

012737
012737

017414
000300

MACRO v03.01
000004
000006

1279

052737
012702

1284 017352
1285 017360
1286 017366
1287 017370
1288 017374
1289 017400
1290 017404
1291 017410
1292 017412

016037
042737
001002
012702
012637
012637
022702
101410
000615

129 017414

012716

017422

012637

000004

1083 017344

1295 017420
1296 017622

1297 0176426

1298 017432

;
:
:
:
:
‘908:
:
11008:

1281 017332
1282 017340

012760

000002

012637

000002
000054

001400

000050
177774

001140

#~C<BIT1!BITO>,RMBAE]
908
:BRANCH IF RH?0 CONTROLLER
#ILR, $GDDAT
*TLR" SHOULD BE SET
ERRVEC+2
ERRVE(
NRMCS3+2,R2
;DONE ALL LEGAL REGISTERS

BIS

#ILR, $GDDAT

BIS
MOV

:"'ILR'' SHOULD BE SET

1208:

SO(RO) ,RMBAEI
#177774 ,RMBAE]
908
#50,R2
(SP)+,ERRVEC+2
(SP)+.ERRVEC
#74 R2
1408
108

;READ THE EXTENDED BITS
:CHOP OFF
*BRANCH IF RH70 WITH 22 REG
:OTHERWISE NOT A RH70 OR RH70 WITH 32 REG
+
:
:DONE ALL TESTS
YES!!

1308:

MoV

#1358, (SP)

1108:

1358
1408 :

RTI

MOV

#A171A16 ,RMCST(RD)

(SP)+,ERRVEC

(SP)+.ERRVE(C+2

SET EXTEND BITS

:DUMMY RTI ADDRESS

‘RESTORE PRIORITY

;;POP STACK INTO ERRVEC
;END OF

::POP STACK INTO ERRVEC+2

TEST

""tt*ttl’*ttt*ttttttt*t*'ttttttttttfittttQt*tttttti*tttttttfi'tt'*t'

TXTEST 26

RESET GO BY INIT TEST

:"il"*tfit'*tttttttttttttittttitttttQtttttttittttiittttttit'fitt'tt

017432
017432
017434
017436
017442
017446
1307 017452

000004
000240
012706
013700
013701
012737

001100
001276
001462
000026

1302 017460
1303 017464

004737
010037

055614
001136

1305
1306 017470

012760

000001

000000

1308 017476
1309 017502
1310 017510
1311 017516
1312 017520

004737
016037
042737
001403
005037

055614
000000
177776

001142
001142

1313 017524

1108

:SETUP FOR TIMEOQUT

MOV
BIC
BNE
MOV
MOV
MOV
(MP
BLOS
BR

MOV

908:

13w

MOV
MOV
PUTCST
GE TBAE
BIC
BNE
BIS
POP
POP
CMP

BNE

#1308 ,ERRVEC_
#PR6
, ERRVEC +2
#A171A16

SEQ 0115

*SET ILR
:START AT INDEX 54 IF RH70 WITH 22 REG

001402
001402

000006

#1LR.$GDDAT
#56 R2

000000

000050
000006
000004
000074

11-APR-80 13:58:55 PAGE 12-26

104137

75126

001140

001226

;SET GO,

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK , SP
$BASE , RO
TSTQUE ,R1
#26.STESTN

;LOAD
RO =
*R1 =
:;SET

JSR
MOV

PC,CNTCLR
RO, $BDADR

;GO CLEAR CONTROLLER
*SETUP REGISTER ADDRESS FOR MSG

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

INITIALIZE AND VERIFY THAT GO IS RESET
MOV
#GO,RMCS1(RO)
;LOAD RMCS1
JSR
MOV
BIC
BEQ
CLR
EMT

PC,CNTCLR
;GO CLEAR CONTROLLER
RMCS1(RO) , $BDDAT
:STORE RMCS1 AT $BDDAT
#~(GO, $BDDAT
108
:BRANCH IF GO IS RESET
$GDDAT

137

SEQ 0116

1315 017526
1316
1317

108:
IR

001226

001136
000024

001136

055614
000024
177776

ittt

Y222

232222 2

DIAGNOSTIC MODE TEST
Aol

SCOPE
NOP
MOV
MOV
MOV
MOV

aiiii szl

22 22322222220

:SCOPE CALL
#STACK,SP

;LOAD THE STACK POINTER

TSTQUE ,R1

;R1

$BASE RO

MOV

;RO = UNIBUS ADDRESS

CLR

= POINTER TO DEVICE

#27 ,STESTN

:oSET TEST NUMBER IN APT MAIL BOX

RO, $BDADR

:SETUP REGISTER ADDRESS

sINITIALIZE ERROR FLAGS

#RMMR1, $BDADR

ADD

JINITIALIZE AND VERIFY THAT 'DMD'' IS RESET
JSR

——

010037

001100
001276
001462
000027

—_—

000004
000240
012706
013700
013701
012737

AR R

1$127:

[e]le]
OO

017542

ALt

JEND OF TEST

S#TEST 27
MR

017526
017526
017530

M 9
11-APR-80 13:58:55 PAGE 12-27

PC,CNTCLR

RMMR1 (RO) , $BDDAT

MOV
8IC
BEQ
CLR

001140

#~CDMD, $BDDAT

108
;gDDAI

EMT

;GO CLEAR CONTROLLER

:STORE RMMR1 AT $BDDAT

;BRANCH IF 'DMD'' IS ZERO

%8ET AND RESET 'DMD’' USING REGISTER TRANSFER-VERIFY 'DMD’'‘ NOT S-A-1

016037
042737
001405
005037
104076
052703

000001
000000
000024
177776

000024
000024
001142

#DMD ,RMMR1(R0O)

MOV

MOV
MOV

001142

BIC
BEQ
CLR
EMT
8IS

001140
000001

;LOAD RMMR?

#0 ,RMMR1 (RO)
;LOAD RMMR1
RMMR1(R
, $BDDAT
O)
;STORE RMMR1 AT S$BDDAT
#“CDMD
, $BDDAT
208
$GDDAT
76
#81T0,R3

;BRANCH IF DMD NOT S-A-1

;SET ERROR FLAG

éSESET AND SET 'DMD'' USING REGISTER TRANSFER-VERIFY 'DMD’’ NOT $-A~0

3
3
3
3
354
gSS 017732
56 017732
§57 017734
3
1360 017750

012760
012760
016037
04%737
001006
012737

000000
000001
000024
177776

000024
000024
001142
001142

000001

001140

052703

000002

104077

MOV
MOV

#0 ,RMMR1 (RO)
#DMD ,.RMMR1(RO)

MOV

RMMR1(RO) ,$BDDAT

;LOAD RMMR1
;LOAD RMMR1

:STORE RMMR1

AT S$BDDAT

BIC
BNE
MOV

#-CDMD
, SBDDAT
308
#DMD
, $GDDAT

;BRANCH IF DMD NOT S-A-0

BIS

#8IT1,R3

;SET ERROR FLAG

EMT

;1F NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE WITH SHIFTING
(ONE BIT PATTERN

508

005703
001027
012702

000002

012760
010260

000000
000024

000024

408:

TST
BNE
MOV

R3
60%
#8IT1,R2

sANY ERRORS DETECTED??
JYES!!
sINITAILIZE DATA PATTERN

MOV

#0,RMMR1(RO)
RZ .RMMR1(RO)

;LOAD RMMR1
;LOAD RMMR1

MOV

- nj

MACRO v03.01

CZRMPAQ RMOS5/3/2 DSKLS TST 1
126
RESET GO BY INIT TEST

016037
0642737
001407
010237
010237
005037

d D

d o

FRANZ30
A

d nd

CZRMPAO RMOS/3/2 DSKLS TST 1
DIAGNOSTIC MODE TEST

177776

N 9
11-APR-80 13:58:55 PAGE 12-28

001142
001142

MOV
BIC
BEQ
MOV
MOV
CLR
EMT

001174
001174
001140

SeEa 0117

RMMR1
(RO) , $8DDAT
;STORE RMMR1 AT S$BDDAT
#*(CDMD, $BDDAT
508
;BRANCH IF DMD NOT SET
R2,$TMPO
*SAVE DATA
R2 . $TMPO
*SAVE DATA
$GDDAT
:DMD SHOULD BE ZERO
100

§8§1FT TO NEXT DATA BIT AND CONTINUE TES

)

— e and

) d

NWWNWWNNIW
NN NNN

D md e

104100

000024

MACRO Vv03.01

020014

006302
001353

608 :

ASL

BNE

408

I RAR AR A AR A AN A

**TEST 30
RN

000004
000240
012706
013700
013701
012737

TST30:
001100
007276
001462
000030

004737
010037
062737
005003

055614
001136
000012

012760
016037
042737
001405
005037

000001
000012

104101
052703

167777

001226

001136

000024
001142
001142

001140

000001

AN A AN

AR AR AR

;END OF
A AR

MOL TEST

A A A AR AR

A A

000001
001001
000012
167777

000024
000024
001142
001142

010000

001140

052703

000002

104102

TEST

A AR R AN AR AN AR AR A AN N AR ARRRANA RN

R AR R AR

gggpf

AN A AN N AR R AN AR RN NN A

MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1

;LOAD THE STACK POINTER

JSR
MOV
ADD

PC.CNTCLR
RO, $BDADR
#RMDS
, SBDADR

;GO CLEAR CONTROLLER
;RO=REGISTER ADDRESS

MOV

CLR

#30,$TESTN

;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE

BEQ
CLR
EMT
BIS

MOV

MOV
BIC
BNE
MOV

EMT
8IS

JR3=ERROR FLAG

#DMD ,RMMR1(RO)
;LOAD RMMR1
RMDS
(RO) ,$8DDAT ;STORE RMDS AT $BDDAT
#~CMOL
, SBDDAT

108
$GDDAT

101

#8ITO,R3

:SET ERROR FLAG

#DMD ,RMMR1(RO)

THAT ‘MOL'' IS ONE

:LOAD RMMR1

#DMD IMUR ,RMMR1 (R0)

:LOAD RMMR1

RMDS (RO) . $8DDAT ;STORE RMDS AT $8DDAT
#‘gMOL,SBDDAT
20
#MOL
, SGDDAT

102
#8I1T1,R3

;1F NO PREVIOUS ERROR, VERIFY VOLUME VALID IS RESET AND

1404
1405
1406
1407

020166
020166
020170
020172

ééEST FOR BIT INTERFERENCE

005703
001057
016037

000012

001142

TST
BNE
MOV

AN ARASY

;.SET TEST NUMBER IN APT MAIL B0X

;SET DIAGNOSTIC MODE AND VERIFY THAT ‘MOL'' IS ZERO
MOV
MOV
8IC

. SCOPE CALL

iggT MAINTENANCE UNIT READY AND VERIFY

012760
012760
016037
042737
001006
012737

IF NOT DONE

R3
sANY ERROR DETECTED??
70%
JYES!!
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT

czl

T4l

CZRMPAQ RMOS/3/2 DSKLS TST 1

130

MOL TEST

1408 020200
16409 020206
1610 020210
1611 Q207"
..
1412 020216
16413 020216
1414 020222

020222
1415 020230

1416
1417
1418
1419
1620
1421
1422

020234
020242
020250
020252
020256
029260
020264

1624
1425
1626
1427
1428
1429

020272
020276
020302

1423 020270

020304

1430 020304
1431 020310
1432 020312
1433 020316
1634 020320
1435 020322
1436 020326
1437
1438 020330

042737
001403
005037
104135

177677

B 10
11-APR-80 13:58:55 PAGE 12-29

001142

001140

012702

000001

012760
010260
016037
042737
005003
032702
001402
052703
020337
001405
010237
010337

000001
000024
000012
167777

104103

MACRO v03.01

25%:
308
000024
001142
001142

001000

8IC
BEQ
CLR

#*CVV,SBDDAT
25%
$GDDAT

;BRANCH IF VV RESET

MOV

#1,R2

JINITIALIZE DATA PATTERN

MoV
MOV
MoV
BIC
CLR
8IT

#DMD ,RMMR1 (RO)
RZ2.,RMMR1 (RO)
RMDS
(RO) ,$BDDAT
#4CMOL ,$8DDAT
R3
#MUR ,R2

:LOAD RMMR1
;LOAD RMMR1
STORE RMDS AT $8DDAT

B1S

#MOL ,R3

;'MOL" SHOULD BE ONE

BEQ
MOV
MOV

50%
R2,$TMPO
R3,$GDDATY

JYES!!
:SAVE TEST PATTERN

EMT

B8EQ

010000
001142

40%:

001174
001140

CMP

EMT

éggIFT

000001
000001

60$:

000001

135

408

R3,$8DDAT

SSETUP EXPECTED 'MOL"’

;1S MOL 0K??

103

TO NEXT PATTERN

BIC
BNE

#DMD ,R2
608

;DONT SHIFT DMD

BEQ
BIS

70%
#DMD ,R2

;BRANCH IF DONE
;KEEP DMD ON

MOV
ASL

B8R

A#DMD ,R?
R2
203

708 :

1439
1440

SEQ 0118

;DONT TRUNCATE TEST
JSHIFT TO NEXT BIT

CONT INUE
END OF

TEST

.'.".'fi'fl'"t*"*‘fifi*'t"**""tfi‘**fit*fl'tfififit"Qfi't*t*'fi."""‘fifi'

*TEST 31

WRITE LOCK TEST

""*i't.’t**t*'fi'**..fififi'*i"*i'*'*fi*fit."fi"Q'ifi""t"'ifitfi"fit*fi“'

020330
020330
020332
020334
020340
020344
020350

1441
1442 020356

1443 020360
1444 020364
1445 020372
1446 020376
1447
1448
1449 020402
1450 020410
1451 020416
1452 020424
1453 020426

TST31:

001100
001276
001462
000031
001136
000012
001140
055614

000001
000012
173777

001226

001136

zggpf

CALL

MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1

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

CLR
MOV
ADD
CLR

R3
RO, $BDADR
A#RMDS
, $8DADR
$GDDAT

:R3=ERROR FLAG
;SETUP REGISTER ADDRESS

MOV

JSR

000024
001142
001142

;SCOPE

#31,8TESTN

PC,CNTCLR

;3SET TEST NUMBER IN APT MAIL 80X

;WRL SHOULD BE ZERO

;G0 CLEAR CONTROLLER

JSET DIAGNOSTIC MODE AND VERIFY 'WRL'' IS ZERO
MOV
MOV
8IC
B8EQ
EMT

#DMD ,RMMR1(RO)
:LOAD RMMR1
RMDS(RO) ,$BDDAT ;:3TORE RMDS AT $8DLAT
#*CWRL
, $SBDDAT
108
;BRANCH IF WRL IS ZERO
104

—

CZRMPAQ RMOS/3/2 DSKLS TST 1

WRITE LOCK TEST

16454 020430
1455
14656
1457 020434
1458 020434
1459 020442
1460 020450
16461 020456
1462 020464
1463 020466
1464 020474
1465 020476
1466
16467
1468 020502
1469 020502
1470 020504
1471 020506
1472

1473

1474
1475
1476
1477
1478

020512
020512
020520
020524
020532

1480
1481
1482
1483

020542
020546
020550
020554
020560
020562
020566
020572

052703

c 10
11-APR-80 13:58:55 PAGE 12-30
SEQ 0119

000001

BIS

012760
012760
016037
042737
001006
012737

104105
052703

;SET ERROR FLAG

000001
000011
000012
173777

000024

MOV

#DMD.RMMR1 (RO)

001142
001142

004000

001140

MOV
BIC
BNE
gg¥

RMDS (RO) , $BDDAT ;STORE RMDS AT $8DDAT
#~CWRL
, SBODAT
208
;BRANCH IF WRL IS NOE
:g?L.SGDDAT
:WRL SHOULD BE SET

000024

MOV

8I1s

000002

012702

ST
BNE
MOV

000001

#81T71,R3

000001
000024
000012
173777

000024

R3
708
#1,R2

000010
004000
001142

RMDS (RO) , $8DDAT -STORE RMDS AT $SDDAT
#*CWRL,$8DDAT
:CLEARUP RECEIVED ‘VRL''
R3
*GENERATE EXPECTED 'WRL''

AP R2

8IS

MR ,R3

§62VANCE

000001

608:

000001

R2,RMMR1 (RO)

BIT

EMT

000001

READ RMDS AND VERIFY WRL

MOV
BIC
CLR

(WP
BEQ
MOV
MOV

001140
001174

;ANY OTHER ERROR??
YES!
INITIALIZE DATA PATTERN

#DMD ,RMMR1 (RO)

B8EQ
408:

INTERFERENCE ON ‘MWP''

mov

MOV

001142
001142

;LOAD RMMR1

;SET EPROR FLAG

TEST FOR BIT

§6§ANSFER DATA TO RMMR1,

012760

:LOAD RMMR1

#DMD
| MuP , RMMR1 (RD)

56; NO PREVIOUS ERROR,

1486
1487
1488
1489
1490 020574
1491 020574
1492 020600
1493 020602
1494 020606
1495 020610
1496 020612
1497 020616
1498
1499 020620
1500
1501

408

;LOAD RMMR1

*LOAD RMMR1

;WRL SHOULD BE SET

R3,$8DDAT
508
R3.$GDDAT
R2.$TMPO

SIS WRL OK??
TYES'!
*SAVE EXPECTED
*SAVE DATA PATTERN

106

TO NEXT DATA BIT

oBIC

BNE
MOV
ASL
BEQ
8IS

B8R

#DMD ,R2

;DONT SHIFT DMD

608
#DMD ,R2
R2
70s
#DMD ,R2

:DONT TRUNCATE TEST
*SHIFT DATA BIT
CEXIT IF DONE
*KEEP DIAGNOSTIC MODE ON

308

SCONTINUE TEST

708 :

:END OF

TEST

;."tt"*ttttttttttttfittttt'ttiifittttt'ttittt'ttttttii'ttttit'tttt

S*TEST 32
. .B

020620

#8ITO0,R3

13&1 MAINTENANCE WRITE PROTECT AND VERIFY "WRL'' IS ONE

1479 020540

1484
1485

MACRO v03.01

000004
000240
012706
013700
013701

2382222232222

15132:

001100
001276
001462

DRIVE FAULT TEST

368PE

MOV
MOV
MOV

T R 1 2223223232322

;SCOPE

#STACK, SP
$BASE ,R0
TSTQUE ,R1

2222

R SR SR R

CALL

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

R SRR

—

viiwvnN

020640
02
03 020646
05 020654
06 020660
7 020666

012737

000032

004737

055614

062737
005037

001136
000042
001140

005003
010037

MACRO v03.01

001226

JSR

CLR

~N
N
N

RN
by VO NO NS WA —=O
b

MOV
ADD
CLR

001136

b
b
d
b

b ad o
d

e
d

d b

000024
000042
000014
001142
001142

(ole]

000014
137777
001140

001136
000014

012737
012760
012760
016037
042737
001012
010037
062737

001136
000042

052703
005037

000002
001140

b e
—

b e

b wd ad awd
—t

BRUNROES

104112

;GO0 CLEAR CONTROLLER

JINITIALIZE ERROR FLAGS

RO.$8DADR
#RMER?
, $8DADR
$GDDAT

JSETUP REGISTER ADDRESS

;'DVC' AND “UNS'' SHOULD BE ZERO

;LOAD RMER?2
;LOAD RMER1

BIC

#CDVC,$8DDAT

;1S 'DVC'' RESET??

EMT

107

8IS
01"

001140

001142
001142
001142

;STORE RMERZ AT $8BDDAT

108

JYES!!

#MI1T0,R3
#MUNS
, SGDDAT

;SET ERROR FLAG

THAT UNS'’' IS SAME AS 'Dv("'

MOV

8IC
C¥

8EQ
MOV

001136
001140

RMERZ2 (RO) ,$38DDAT

RMER1(R0O) ,$8DDAT

#°CUNS ,$8DDAT
$GDDAT ,SBDDAT

30s
RO, $8DADR

ADD
8IT

AMRMER1 ,$BDADR
#UNS , SGDDAT

EMT

IRA]

BNE
EMT
BR

208
110
308

;STORE RMER1 AT $BDDAT
;1S "UNS'' 0K??
JYES!!
;SETUP REGISTER ADDRESS

JSHOULD "UNS'' BE ON??

JYES!!

éSESET AND SET 'MDF'’, VERIFY THAT 'DVC'' IS NOT S-A-0.

21044

PC,CNTCLR

#0 . RMER2 (RO)
#0 ,RMER1(RO)

B8EQ

:
208

o&3& VB WN=O SRR
00000000
o0
RN
NN
NOWNSBWN—=O

016037
042737
023737
001414

;:SET TEST NUMBER IN APT MAIL BOX

MOV
MOV

MOV

igERIFY

040000

OO000000
Y LVLNT
N TN VT ¥

Kbl\:\bl\

000001
040000

#32,8TESTN

sSET AND RESET MAINTENANCE DRIVE FAULT, VERIFY THAT 'DVC''
IS NOT
;STUCK=-AT=-0ONE.
MOV
#DMD ,RMMR1 (RO)
:LOAD RMMR1

D
d

b
b

d
d

NV AWML

b
d

177577

052703
012737

2 020746

d—l—l—h—ldd—‘-—l—‘—.d—.d—l—l—‘fl-‘dd—.—ld—I—ld—. — d d b
N AN AN A
NA
v ViV
auiiuawv i VIV
VIV
VA
&N

000001
000000
000000
000042

D 10

11-APR-80 13:58:55 PAGE 12-31

SEQ 0120

D o

ed ek

C 4 RMPAQ RMO5/3/2 DSKLS TST
T 32
ODRIVE FAULT TEST

000200
000001
000101
000042
177577

001140
000024
000024
001142
001142

MOV

MOV
MOV

MOV

BIC
BNE
MOV
ADD
EMT
8IS

001136

CLR

#DVC,SGDDAT

RMERZ2(R0Q) , $8DDAT

#-CDVC,$BDDAT
408
RO, $8DADR
#RMER? $BDADR
112
MIT1,33
$GDDAT

zXERIFY THAT "UNS'' IS

005737
001403
012737

040000

001140

016037
042737

000014
137777

001142
001142

001140
508

;STORE RMERZ2 AT $BDDAT

cBRANCH IF DVC IS SET
;SETUP REGISTER ADDRESS

;SET ERROR FLAG

JUNS SHOULD BE OFF

SAME AS 'Dv(C"'

TST

$GDDAT

MOV

#UNS , SGDDAT

MOV
BIC

RMER1(RO) ,$BDDAT
#*CUNS ,$8DDAT

BEQ

.DVC SHOULD BE ON

#DMD ,RMMR1 (RO)
:LOAD RMMR1
#DMD
! MDF ,RMMR1 (RO)
;LOAD RMMR1

. CHANGE

DVC

TO UNS

;STORE RMER1

AT $8BDDAT

—

CIRMPAQ RMOS/3/2 DSKLS TST 1

132

5
5
5

FRRNSEERER .

—

d
d

—

i
il

)
il cued

cnd e

001140

001136
000014

040000

001142

1 576
1 577
1 578
1 279
1
1 5 81
15
1 5 83
1 5 84

CMP

$GDDAT,$BDDAT

MOV
ADD
8IT

RO, $BDADR
#RMER1
, $8DADR
#UNS
, SGDDAT

EMT

114

BEQ

001136
001140

BNE
EMT
BR

60%:

708

021214
021222
021226
021234

005703
001056
012702
012769
012760
010260
016037

021246

021254
021262
5 85 021270
1 5 86 021272
1 5 87 021276
5 88 021304
p) 89 021310
5 90
591
1 592 021312
593 021312
594 021316
1 295 021320

70$
000001

000001
000024
000042
177577
001140
000100
000200
001140

001136

001174

000024
000042

80%:

;SHOULD UNS BE ON??
JYES!!

60%
113
708

:BRANCH IF ANY OTHER ERRORS
JINITIALIZE TEST PATTERN

MOV

#DMD ,RMMRT (RO)

:LOAD RMMR1

BIS

#DVC,SGDDAT

*YES-DVC SHOULD BE ON

BEQ
MOV

1008
RO, $BDADR
#RMERZ
, $BDADR
R2,$TMPO

sBRANCH IF DVC IS OK
;SETUP REGISTER ADDRESS

cMP

ADD
MOV

EMT

;LOAD RMER?2

CLR
BIT

B8EQ

001136

#0 ,RMERZ (RO)
R2 ,RMMR1(RO)

;LOAD RMMR1
RMERZ2(RQ) ,$8DDAT
;STORE RMERZ AT $BDDAT
#~CDVC,$8DDAT
sGET RESULTS
$GDDAT
sSETUP EXPECTED
#MDF ,R2
;WAS MDF SET??

8I1C

90%

.NOII

$SGDDAT
, $8DDAT

;SAVE TEST PATTERN

11§

sSHIFT TO NEXT BIT POSITION

1008:

000001

0uv0001

1
1 5 97 021326
1 5 98 021330

BIC
BNE
MOV

1108:

ASL

8EQ
8IS
BR

000001

5
1600
1 601 021336
602
1603
1

#DMD ,R2
1108
#DMD ,R?2

;DONT SHIFT DMD
;DONT TRUNCATE YEST

JSHIFT

1208
#DMD ,R2
30%

SEXIT IF DONE
;KEEP DMD ON
s CONTINUE

120%:

JEND OF TEST

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

J*TEST 33
MR

021336
021336
021340
021342
021346
021352
021356

R3
1208
#1.,R2

MOV

90$ :

TEST FOR BIT INTERFERENCE ON

TST
BNE
MOV

L 01Y)
MOV

001142
001142

SEQ 0121

;JBRANCH IF UNS IS OK
sSETUP REGISTER ADDRESS

:};D;fifiRE WERE NO PREVIOUS ERRORS,

573 021200
574 021202
1 575 021206
021206

023737

1S
1S
15
1 S6

—d e

).
))

) e

olololalolalolale] o
NONINININNININOND ny

o
v
A NVY'S \hécaghhvhfi
aRZE 000

[@Xe)

ORIVE FAULT TEST

E 10
11-APR-80 13:58:55 PAGE 12-32

MACRO v03.01

000004
000240

013701
012737

TST33:

001100
001276
001462
000033

MoV

MOV

2222222222222

;SCOPE CALL

SCOPE

MOV

001226

SEEK ERROR TEST

000222

NOP
MoV

N RN NN AR AR NANRAANRNARNRRRNNNNRNNAANNNR

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

;LOAD THE STACK POINTER

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

CIRMPAQ RMOS/3/2 DSKLS TST 1
133
SEEK ERROR TEST

SIS TNV [ ¥T VT N 1

(elolelolololete]

~N
NN =O
NN

—_, s
al

N S

1605

1621
1622
1623
1624

021450
021450
021456
021464

1625 021472

1626 021500
1627 021506
1628 021510
1629 021516
1630
1631
1632
1633 021522
16346 021522
1635 021524
1636 021526
1637 021532
1638 021532

1639 021540

1640 021546
1641 021552
1642 021560
1643 021566
1644 021572
1645 021576

001136
000042

012760
012760
016037
042737

000001
000000
000042
137777

005937

001140

052703

000001

104116

F 10
11-APR-80 13:58:55 PAGE 12-33

SEQ 0122

055614

004737
005003
010037
062737

001405

MACRO v03.01

JSR
CLR
MOV

001136

000024
000042
001142

RO, $BDADR

ADD

#RMERZ, $BDADR

MOV
BIC
BEQ
CLR
EMT
8IS

001142

RMERZ (RO) ,$8DDAT
;STORE RMERZ AT $BDDAT
#*CSKI,$BDDAT
108
;BRANCH IF SKI IS RESET
$GDDAT
;SKI SHOULD BE ZERO
116
#81T0,R3
;SET ERROR FLAG

iggT MAINTENANCE

012769
012760
012760
016037
042737
001005
012737
052703

000001
000000
000201
000042
137777

000024
000042
000024
001142
001142

040000
000002

001140

SEEK ERROR AND VERIFY

MOV
8IS

#SKI,$GDDAT
#81T1,R3

BNE

20%

012760

000001
000000
000024
000042
137777

001142
001142

040000
001140

001140
001142

001140
000200

000024

000001
000001

000001

JINITIALIZE

#DMD ,RMMR1(RO)

;LOAD RMMRI

$GDDAT
#MSER ,R2
408

sSETUP EXPECTED RESULT

BIS
cMP
BEQ
MOV

EMT

T
60$:

CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE

#1,R2

CLR
BIT
BEQ

§32VANCE

IS SET

MOV

MOV
MOV
MOV
BIC

408:

SKI

MOV

000042

;BRANCH IF

s CANT SET SKI
;SET ERROR FLAG

TST

BNE

308

SET

A#DMD ,RMMR1(RO)
;LCLAD RMMR)
#0,RMER2(RO)
;LOAD RMERZ2
#DMD !MSER ,RMMR1 (R0)
;LOAD RMMR1
RMER2 (RO) ,$8DDAT
;STORE RMERZ AT $BDDAT
#~CSKI,$BDDAT

;IF NO PREVIOUS ERROR,

000001

THAT '‘SKI'' CAN BE

MOV
MOV
MOV
MOV
BIC

§8§EK ERROR.

005703
001051
012702

;GO CLEAR CONTROLLER
;CLEAR ERROR FLAGS
;SETUP REGISTER ADDRESS

;SET DIAGNOSTIC MODE AND VERIFY THAT ‘'SKI'‘' AN BE RESET
MOV
#DMD ,RMMR1(R0O)
;LOAD RMMRI1
MOV
#0 ,RMER2 (RO)
;LOAD RMERZ

001174

1653 021624
1654 021624
1655 021630
1656 021632
1657 021636
1658 021640
1659 021642
1660 021646

:g.CNTCLR

708

;BRANCH IF ANY OTHER ERRORS
TEST PATTERN

#0 ,RMERZ (RO)
;LOAD RMER?2
R2,RMMR1(RO)
:LOAD RMMR1
RMER2 (RO) ,$BDDAT
;STORE RMERZ AT $BDDAT
#~CSK]I,$BDDAT
;GET SKI STATUS

#SK1,$GDDAT
$GDDAT, $6DDAT
508
R2,$TMPO

120

;SK] SHOULD BE ON

:BRANCH IF SKI IS OK
*SAVE TEST PATTERN

TEST PATTERN IN R?

BNE
MOV
ASL
BEQ
BIS
BR

#DMD ,R2

60
#DMD ,R2
R2
70%
#DMD ,R2
308

;DONT SHIFT DMD BIT
:DON:

TRUNCATE

TEST

*SHIFT TO NEXT BIT

JEXIT IF DONE
;KEEP DMD ON
sCONTINUE TEST

—

CIRMPAO RMOS/3/2 DSKLS TST 1
133
SEEK ERROR TEST

MACRO v03.01

SEQ 0123

1661
1662 021650

708 :

1663

1664

000004
000240
012706
013700
(13701
012737

021676
021702
021704
021710

004737
005003
010037
062737

1672 021716
1673 021726
16746 021732
1675 0217640
1676 021746
1677 021750
1678 021754
}ggg 021756

012760
012760
016037
042737
001405
005037
104121
052703

JEND OF

021650
021650
021652
02165«
021660
021664
665 021670
1666
1667
1668
1669

G 10
11-APR-80 13:58:55 PAGE 12-34

1681
1682 021762
1683 021762
1684 021770
1685 021776
1686 022004
1687 022006
1688 022014
}233 022016
1691
1692 022022

1693 022022
1696 022024
}282 022026
1697
1698 022032
1699 022032
1700 022040
1701 022044
1702 022052
1703 022060
1704 022064
1705 022070
1706 022072
1707 022100

PIP TEST

TST34
001100
001276
001462
000034

'TEST 34

001226

001136
000012

001136

JSR
CLR
MOV
ADD

000001
000401
000012
157777

000024
000024
001142
001142

055614

Rt Lt

sggpf

MOV
MOV
MOV
MOV

TEST

:SCOPE

R R

CALL

#34 ,STESTN

c:LOAD
:RO
=
;R1 =
:;SET

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

PC,CNTCLR
R3
RO, $BDADR

;GO CLEAR CONTROLLER
JRESET ERROR FLAGS
;SETUP REGISTER ADDRESS

;SET MAI“%ENANCE ON CYLINDER 'MOC’'' AND VERIFY THAT 'PIP'' CAN BE RESET.
#DMD ,RMMR1(RO)
:LOAD RMMR1

MOV

MOV
8IC
BEQ
CLR
EMT
BIS

001140

000001

#DMD iMOC ,RMMR1 (RO)

;LOAD RMMR1

RMDS (RO) , $8DDAT ;STORE RMDS AT $BDDAT
#~CPIP,$BDDAT
108
sBRANCH IF PIP IS RESET
S$GDDAT
121
#81TO0,R3
:SET ERROR FLAG

1'85557 MAINTENANCE ON CYLINDER AND VERIFY THAT ‘PIP'* CAN BE

012760
016037
042737
001006
012737
104122

052703

000001
000012
157777

000024
001142
001142

020000

001140

mov

#DMD,RMMR1
(RO)

MOV

#P1P,$GDDAT

MOV
8IC
BNE
EMT
BIS

000002

TST
BNE
MOV

000001
;WRITE

012760
010260
016C
357
042.37
005037
032702
001003
052737
023737

000001
(00024
000012
157777
001140
000400

001142
001142

020000
001140

001140
001142

000024

508

THE

MOV

122
#8IT1,R3

408:

TEST FOR ADJACENT BIT SETTING ‘MOC''

R3
70%
#1,R2
TEST PATTERN,

JBRANCH [F ANY PREVIOUS ERROR
;INITIALIZE TEST PATTERN
CHECK MOC USING PIP

#DMD ,RMMR1(R0O)

RZ.,RMMR1(RO)

B8IC

#*CPIr ,$8DDAT

CLR
BIT
BNE
BIS

(MP

:LOAD RMMR1

:SET ERROR FLAG

MOV
MOV

SET

RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#*CPIP,$BDDAT
208
;BRANCH IF PIP IS SET

56; NO PREVIOUS ERROR,

005703
001046
012702

#STACK,SP
$BASE RO
TSTQUE ,R1

#RMDS, $BDADR

:LOAD RMMR1

;LOAD RMMR1

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

$GDDAT
#MOC ,R2
408
#PIP,$GDDAT

$GDDAT, $8DDAT

;GET P]IP STATUS

JSETUP EXPECTED RESULT

;PIP SHOULD BE

SET

—

(ZPA0 RHOS/ggZ DSKLS TST
PIP TEST

1708 022106
1709 022110

};}? 022114

MACRO v03.01

1714 022116
1715 022122
1716 022126

1717 022130
1718 022132

1719 022134

};g? 022140

001403
010237

104123

BEQ
MOV

001174

042702
001002

012702

006302
001403

052702

00734

000001
000001

BIC
BNE

#DMD , R2
608

:DONT SHIFT DMD

ASL
BEQ

R2
70s

JSHIFT BIT
CEXIT IF DONE

MOV

60%:

000001

000004
000240
012706
013700
013701
012737

1726 022170
1727 022172
1728 022176

005003
010037
062737

R A A A A A A A

001100
001276
001462
000035

001136
000024

005037

001140

173
1732
1733
1734
1735
1736

004737
016037
042737
001403
104124

055614
000024
157777

022306
022306
022314
022322

TEST

JKEEP DMD ON

JCONTINUE TEST
TEST

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

EBL

AR AR RN NN

TEST

15135

};%8 022204

1750
1751
1752
1753
1754

TRUNCATE

":ttt'tttt'tttttttttttt'tttttttttttlttttttttttttt'ttttt'*tttttttt

022142
022142
022144
022146
022152
022156
1725 022162

};zg 022302

30%

;DONT

;END OF

;*TEST 35

1747 022300

#DMD ,R2

1745 022270
1766 022276

#DMD ,R2

BIS

1724

1739
1740 022240
1741 022240
1742 0222646
1743 022254
1744 022262

12%

:BRANCH IF PIP OK
*SAVE TEST PATIERN

:ADVANCE THE TEST PATTERN

§0s:

708 :

};%g 022234

12-35

508
R2,$TMPO

EMT

};gg 022142

022210
022214
022222
022230
022232

H 10

SEQ 0124

1712

1713 022116

11-APR-80 13:58:55 PAGE

052703

012760
012760
012760
016037

042737
001403
104125

052703

012760
012760
016037

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE , RO
TSTQUE ,R1

#35,$TESTN

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

001136

CLR
MOV
ADD

R3
RO, $8DADR
#RMMR1, $8DADR

;RESET ERROR FLAGS
cSETUP REGISTER ADDRESS

001142
001142

000001

000001
020001
000001
000024

157777

000024
000024
000024
001142

001142

cSETUP EXPECTED RESULT

#ITO,R3

:SET ERROR FLAG

;SET AND RESET DJAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-1.
108:
MOV
#DMD ,RMMR1 (RO)
:LOAD RMMR1
MOV
#DMD i DEBL ,RMMR1 (RO)
:LOAD RMMR1

MOV

#OM
. RMMRT D
(RO)

MOV

RMMR1 (RO) ,$8DDAT

EMT

125

BIC
BEQ
BIS

000024
000024
001142

$GDDAT

::SET TEST NUMBER IN APT MAIL BOX

;CLEAR AND VERIFY THAT END OF BiOCK IS RESET
JSR
PC,CNTCLR
;GO CLEAR CONTROLLER
MOV
RMMR1 (RO) , $8DDAT
;STORE RMMR1 AT SRODAT
BIC
#~CEB
, $8DODAT
L
8EQ
108
JBRANCH IF EBL IS RESET
EMT
124

8IS

000001

000001
020001
000024

CLR

:SCOPE CALL

:LOAD RMMR1

:STORE RMMR1

AT $8BDDAT

#~CEB
, $8DDAT
L
20%

;BRANCH IF EBL IS RESET

#81T0,R3

;SET ERROR FLAG

;RESET AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-0
208
:
MOV
#DMD,RMMR1
(RO)
:LOAD RMMR1
MOV
#DMD | DEBL ,RMMR1 (RO)
:LOAD RMMR1
MOV
RMMR1(RO) ,$8DDAT
;STORE RMMR1T AT $BDDAT

CZRMPAQ RMOS5/3/2 DSKLS ST 1
EBL TEST

755
756
757
758
759
760
1761
1762
1763
1764
}765

022330
022336
022340
022346
022350

022354
022354
022356
022360

MACRO v03.01

042737
001006
012737

157777

001142

BIC

#~CEBL
, $8DDAT

020000

001140

MOV

NEBL,$GDDAT

052703

000002

106126

1777 022426
1778 022432
1779 022436

000024
157777

126
#8IT1.R3

:SET ERROR FLAG
TEST FOR ADJACENT BIT

708
#1,R2

001140
001174
%8gxrr

1782 022440
1783 022440
1784 022444
1785 022446
1786 022452
1787 022454
1 788 022456
1 789 022462

BIC

BNE
MOV
ASL
BEQ

608 :

23333

000001

022464

#~CEBL
, $SBDDAT

:LOAD RMMR1
;LOAD RMMR1
RMMR1 (RO) , SBDDAT
;STORE RMMR1 AT $8DDAT

R2.R3
#~CEBL ,R3
R3,$BDDAT
508
R3,$GDDAT
R2.$TMPO

BIS

;BRANCH IF EBL IS OK
;SAVE EXPECTED RESULT
;SAVE TEST PATTERN

127

#DMD ,R2

;DONT SHIFT DMD

60$
#DMD ,R?
R2
70%

sDONT TRUNCATE DMD
;SHIFT TO NEXT BIT
JEXIT IF DONE

40%

;CONTINUE TEST

#DMD ,R2

;KEEP DMD ON

70%:

EEE

;GENERATE EXPECTED RESULT

TO NEXT BIT POSITION

000001
000001

BIC

EMT

INTERFERENCE ON 'DEBL''.

TEST PATTERN IN R?

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

MOV
BIC
cMP
BEQ
MOV
MOV

:BRANCH IF ANY ERROR
“INITIALIZE TEST PATTERN

MOV
MOV

MOV

001142
001142

157777
001142

1780
1781

SEND OF

SRS

LATEST 36

Rstlt

. %

ettt

ittt

TEST

sttt

LAST SECTOR, LAST TRACK TEST

sttt

sssi st

$*TRANSFER TEST PATTFIN TO RMDA THEN VERIFY LAST SECTOR 'LS'* AND LAST

:*SECTOR/TRACK 'LST'* FOR EACH TRANSFER. THE TABLE BELOW LISTS THE VALUE

“*OF RMDA FOR WHICH LS AND LST ARE SET.
X

18 BIT MODE

16 BIT MODE

LS =

XXX035

XXX037

1 «RM02/03 T«RMOS
-

LST=
(ST=

002035
011435

002037
011037

;:tfiti'ttt'fl'ittfitittfititititttttfi'tlfi*titt'ttttttfifit.ttttttt'ttt

022464
022464
022466
022470
022474

000004
000240
012706
013700

1ST36:

001100
001276

SCOPE
NOP

MOV

:SCOPE
#STACK,SP

$8ASE RO

CALL

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

;BRANCH IF EBL IS SET

SEQ 0125

308

iggITE. READ AND VERIFY THE

1776 022424

BNE
MOV

012702

012760
010260
016037
042737
010203

EMT
BIS

’

BNE

géi NO PREVIOUS ERRCRS,

110

11-APR-80 13:58:55 PAGE 12-36

1855

112737

004737
013760
010260
016037
013737
042737
005037
032737
001004

001136
000024
001440

001226

001136

001330
000035

023022
023022

055614
001440
000006

000032

000024
001356
177773
001140
010000

023022

052737
023737
001407
010237
013737
104130
000454

000004
001140

001140
001142

001174
001440

001176

013737
042737
005037
032737
001004
023702
001007
000403
023702
001003

001356

052737
023737
001404
010237
104131
000416

023022

001140
010000

1861 022774

MOV
MOV

#36,8TESTN

TSTQUE
R

;R1

MOV

R2
RO, $BDADR

JINITIALIZE TEST PATTERN
;SETUP REGISTER ADDRESS

LSTRK , 808

;START IN 18 BIT MODE
sSETUP LAST TRACK AND
;LAST SECTOR (29.)

001142
001142

#RMMR1 , $BDADR
RMOF
0

#035, 808

:
108

PC,CNTCLR
RMOF O, RMOF (RO)

= POINTER TO DEVICE

;.SET TEST NUMBER IN APT MAIL BOX

;GO CLEAR CONTROLLER
<LOAD RMOF
;LOAD RMDA

RZ ,RMDA (RO)
RMMR1(RO) ,RMMR1]
;STORE RMMR1
RMMR11,$BDDAT
JVERIFY "18°’

#4CLS,$8DDAT
$GDDAT
#FMT16 ,RMOFO

20%:
30$:
35%:

40%:

023022

:
508

000002
001140

60%:
65%:

001174

81S
MP
BEQ
MOV
EMT
B8R

:GENERATE EXPECTED 'LS"’
216 BIT MODE ?

JYES!!

#LS ,$GDDAT

;LS SHOULD BE ON-16 BIT MODE

;18 BIT MODE LAST SECTOR ?
;NO

[

;16 BIT MODE LAST SECTOR ?
sNO !

$GDDAT
, $8DDAT
408
R2.,$TMPO
RMOFO,$TMP1
130
90%

;SKIP TO NEXT

RMMR11, $BDDAT

JVERIFY "1ST"

$GDDAT

;GENERATE EXPECTED 'LST"

508
80$.R2
65%
608
80%,R2
65%

JYES!!

#LST $GDDAT

;LST SHOULD BE SET

#FMT16 ,RMOFO

023022

IN INPUT BUFFER

208
80$.R2
35%
308
80%.R2
35%

#~CLST,SBDDAT

001440

1856

1857
1858 022770
1859 022770
1860 022772

SEQ 0126

001440

123702
001007
000403
123702
001003

177775

J 10
11-APR~-80 13:58:55 PAGE 12-37

001356
001142
001142

1844
730
1845 022732
1846 022734
1847 022740
1848
1849 022742
1850 022750
1851 022756
1852 022760
1853 022764
1854 022766

013737

001462
000036

——

VIV AN

VIS BN
nNORONON

00000

NN
NN NON)

022512
022514
022520
022526

013701
012737

—_—

022500
022504

ele]
(e]le)

288
b
d oad o
b
d
d
b
b

VOO NN
NN =O

b
b ok

d e

00 00 00 00 00 0o 0o 0o O Co

CZRMPAO RMOS5/3/2 DSKLS TST 1
MACRO v03.01
LAST SECTOR, LAST TRA(CK TEST

JBRANCH IF LS IS CORRECT
;SAVE TEST PATTERN

;SAVE OFFSET REGISTER FOR ERROR

;16 BIT MODE??

:Lg ?{T MODE LAST TRACK/SECTOR ?

:;8 ?{T MODE LAST TRACK/SECTOR ?

$GDDAT, $BDDAT
708
RZ2,$TMPO

;SAVE TEST PATTERN

90%

;SKIP TO NEXT

131

sJADVANCE TO NEXT TEST PATTERN, CHANGE TO 16 BIT MODE IF ALL
'1§ BIT TESTS DONE.

005202
001265
032737

70
010000

001440

INC
BNE
81T

108

W#FMT16,RMOFO

¢ INCREMENT PATTERN
;CONTINUE IF NOT DONE
;DONE 16 BIT TEST ?

———

CZRMPAD RMOS5/3/2 DSKLS TST 1
MACRO v03.01
136
LAST SECTOR, LAST TRA(CK TEST
1862 023002
1863 023004

001010
012737
112737

000652

010000

000037

001440

023022

o
N
&~

N
W

BNE
MOV

908
#FMT16,RMOFO

B8R

108

MOVB

808 :

000000

K 10
11-APR-80 13:58:55 PAGE 12-38

.WORD

#037.80$

SEQ 0127

SYES!!
-DO 16 BIT FORMAT TEST

“SET LAST SECTOR FOR 16 BIT MODE (31.)

;HOLDS LAST TRACK/SECTOR ADDRESS

90s:
""l'tttttttttttt*t'tfi'tttttttt*ttt'fi'ttitttttttitt*ifi'ttttittfitti

T*TEST 37

RMDA COUNT TEST

.'"itttttttttttttfittkttttt"'ttttfitttttttttttttttt*ttttfitttttttttt

1875
1876 023052
1877 023056
1878 023064
1879 023070
1880 023076

000004
000240
012706
013700
013701
012737

010037
062737
005037
012737
012737

TST37:
001100
001276
001462
000037

363PE

MOV
MOV
MOV

001226

:SCOPE

#STACK , SP
$BASE , RO
TSTQUE ,R1

CALL

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

MOV

#37,$TESTN

*:SET TEST NUMBER IN APT MAIL BOX

001136
000006
001440

001136

MOV
ADD

.RO,$BDADR
#RMDA
, S8DADR

;SETUP REGISTER ADDRESS

000035

001140

023476

MOV

#1,$GDDAT

*SETUP FIRST COUNT

000001

CLR

MOV

RMOF 0

;START WITH 18 BIT FORMAT

#29..1108

sLAST SECTOR

; INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT

:SECTOR O AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS
;
.CLEAR THE MASSBUS

EER

:
;
:
g

004737
012760
012760
012760
012760
013760
013737
012760
012760

055614
000001
000000
000000
000000
001440
001440
040001
000001

000024

JSR

#0,RMER1(RO)

:LOAD RMER1

MOV
MOV
MOV
MOV

#O.RMER2(RO)
#0 _RMDA (RO)
RMOFO,RMOF
(RO)
RMOFO, $TMPO

:LOAD
*LOAD
-LOAD
“SAVE

#GO,RMCS1(RO)

;LOAD RMCS1

MOV

000024

MOV

000000

;GO CLEAR CONTROLLER

#DMD,RMMR1
(RO)

000014

000042
3
000032
001174

PC,CNTCLR

MOV

—

~nN

012760
012760
016037
023737
001402
104132
000416

06001
040001
000006
001142

000024

000024
001142

001140

:LOAD RMMRT

#DMD
! DBEN , RMMR1 (RO)

5?57 AND RESET EBL

(=]
N
W
N

—Jd—‘—ld—‘—l-—l—‘—l—ld;

889 023104
1890 023104
1891 023110
1892 023116
1893 023124
1894 023132
1895 023140
1896 023146
1897 023154
1898 023162

-SET FORMAT
-LOAD SECTOR AND TRACK ADDRESS
-ENABLE DEBUG CLOCK
.SET GO BIT

RMER2
RMDA
RMOF
OFFSET FOR ERROR TYPE

TO INCREMENT RMDA THEN VERIFY RMDA.

mov

#DMD ' DBEN ! DEBL ,RMMR 1 (RO)

TMMP

$BDDAT
, $GDDAT

MOV
MOV
BEQ

EMT

B8R

:LOAD RMMR1

#DMD ! DBEN ,RMMR1 (RO)
;LOAD RMMR]
RMDA(RO)
, $8DDAT ;STORE RMDA AT $BDDAT
30

:BRANCH IF RMDA OK

50$

;0UT OF SYNC-SKIP TO NEXT

132

JADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NCT
;COMPLETE

C%;PP#O RMOS/3/2 DSKLS TST 1
RMDA COUNT

1912
1913
1914
1915

023226
023226
023232
023240

1916 023242
1917 023246
1918 023252

1919 023256
}ggg 023260

TEST

005237
123737
001004

105037
105237
105737
001401

001140
001142

MACRO v03.01
308:

023476

001140
001141
001142

408

000743

1922
1923

1924 023262

1925 023262

}359 023270

1928
1929
1930
1931
1932
1933 023276
1934 023276
1935 023302
1936 023310
1937 023316

013737

012737

023476

000400

001414

}gzg 023332

012760

000001

000000

1941
1942 023340

012760

060001

040001

000024

1945
1946 023354
1947 023362
1948 023370
1949 023372

016037
023737
001402
104133

000006
001140

001142
001142

}ggq 023374

040001

000024

000441

1954 023376
1955 023402

1956 023410

1957 023412
1958 023416
1959 023424
1960 023426

1961 023434

1962 023436
1963 023436
1964 023444
1965 023446
1966 023454
%7 023462

$GDDAT
$8DDAT,?10%
408

: INCREMENT EXPECTED SECTOR
:WAS THE LAST SECTOR JUST COUNTED??
INO!!

BEQ
8R

508
25$

SYES~-DO NEXT
*CONTINUE SECTOR TEST

CLRB
INCB
TSTB

MOV

S$GDDAT
SGDDAT+1
$8DDAT

:YES-NEXT SECTOR SHOULD BE ZERO
- INCREMENT TRACK ADDRESS
:HAS A FULL CYCLE BEEN COUNTED??

1108, RMDAO

#TAT.$GDDAT

START AT TRACK 0.

;START SECTOR ADDRESS = 0

*FIRST VALUE AFTER INCREMENT

.CLEAR THE MASSBUS
-SET FORMAT
.LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS
.ENABLE DEBUG CLOCK
.SET GO BIT

JSR
MOV
MOV
MOV

MOV
MOV

PC.CNTCLR
RMOFO,RMOF
(RO)
RMDAO.RMDA(RO)
#DMD .RMMR1(RO)

;GO CLEAR CONTROLLER
:LOAD RMOF
:LNAD RMDA
:LOAD RMMR1

#GO,RMCST1(RO)

;LOAD RMCS1

#DMD | DBEN, RMMR1 (RO)

;LOAD RMMR1

;CLOCK RMDA USING DIAGNOSTIC END OF BLOCK
MOV
#DMD ! DBEN ! DEBL , RMMR1 (RO)

MOV

#DMD | DBEN , RMMR1 (RO)

;LOAD RMMR1

;VERIFY RMDA ACCORDING TO $GDDAT
MOV
RMDA
(RO) , $BDDAT ;STORE RMDA AT $BDDAT
cMP
$GDDAT, SBDDAT
BEQ
708
EMT
133

B8R

1952

1953 023376

INC
C(MP8
BNE

MOV
:
:
:
:
:
608:

000032
000006
000024

012760

§0s

001140

055614
001440
001414
000001

}gzz 023346

SEQ 0128

; INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK.
:LAST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE.

004737
013760
013760
012760

1938 023326

L 10
11-APR-80 13:58:55 PAGE 12-39

1208

;0UT OF SYNC=SKIP TO NEXT

-SETUP FOR NEXT INCREMENT OF RMDA TRACK ADDRESS

708:

1 5237
123737

001141
001143

005037
013737
001404
113737

001140
001142

001414

023476

001414

001002

000720
032737
001015
012737
012737
000400

001331

010000

001440

010000
000037

001440
023476

80$:

90$:

INCB
CMPB

$GDDAT+1
;ADVANCE EXPECTED TRACK
$BDDAT+1,LSTRK+1
;WAS THE LAST TRACK JUST COUNTED??

BNE

80$

B8R

608

BIT
BNE
MOV
MOV

WEMI16,RMOFO
1208
HFMT16,RMOFO
#31.,1108
100$

CLR
MOV
8EQ
MOVB

$GDDAT
$BDDAT,RMDAO
908
110$,RMDAO

:NO!!

:YES-NEXT TRACK, SECTOR SHOULD BE ZERO
:HAS A FULL CYCLE BEEN COUNTED??
SYES!!
* INCREMENT FROM LAST SECTOR

;DONE BOTH FORMATS??
YES!
- SET FORMAT BIT FOR 16
:SET LAST SECTOR FOR 16 BIT MODE

CZRMPAO RMOS/3/2 DSKLS TST 1
137
RMDA COUNT TEST
1969 023464

012737

%g;% 023476

000000

}3;9 023472

000137

000001

023104

MACRO v03.01
001140

M 10
11-APR-80 13:58:55 PAGE 12-40

SEQ 0129

1008:

MOV

#1,$GDDAT

;SET FIRST COUNT VALUE

1108:

.WORD

;STORAGE FOR LAST SECTOR VALUE

JMP

10$

‘REPEAT TEST

}ggg 023500

1208 :

1976

..tttttttttttttlt*tttttttt'tttfitttttttttttttttttttttttt*tttttttt'

;*TEST 40

RMDC COUNT TEST

..tittttttttttttttt*ttttttttttttitttttttttttt'tttttttfittttttttttt

023500
023500
023502
023504
023510
023514
1977 023520
1978
1979 023526
1980 023532
1981 023540
1982 023544
1983 023552
1984 023560
1985 023560
1986 023564
}ggg 023572

7$140:

000004
000240
012706
013700
013701
012737

001100
001276
001462
000040

010037
062737
005037
013737

001136
000034
001440
001330

000035

001414
001414

004737
012737
012760

055614
000001
000000

001140
000034

112737

001226

001136

SCOPE
NOP
MoV
MOV
MOV
MOV

004737
013760
013737

055614
001440
001440

000032
001174

JSR
MOV
MOV

1999 023626

012760

000001

000024

MOV

013760

001414

;
:
N
:
:
208:

000006

2000 023634 012760
5335 023642

012760

040001

2003
2004 023650

012760

060001

000024

2006 023664
2007 023672
2008 023700
2009 023702
%8}? 023704

016037
023737
001402
104140
000427

000034
001140

001142
001142

2005 023656

012760

000001

040001

000024

000000

000024

2012

2013 023706

2014 023706
2015 023712

#STACK ,SP
$BASE ,R0
TSTQUE ,R1
#40,$TESTN

JLOAD
*RO =
*R1 =
$:SET

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

JCLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS
MOV
RO, $8DADR
;SETUP REGISTER ADDRESS
ADD
#RMDC, $8DADR
CLR
RMOFO
;START WITH 18 BIT FORMAT
MoV
LSTRK ,RMDAO
sSETUP LLAST TRACK AND
MOVB
#29.,RMDAO
SLAST SECTOR
108
:
JSR
PC,CNTCLR
;GO CLEAR CONTROLLER
MoV
#1,8GDDAT
;LOAD FIRST INCREMENTAL VALUE
MOV
#0.RMDC (RO)
:LOAD RMDC

1989
1990
1991
1992
1993
1994 023600
1995 023600
1996 023604
1997 023612

1998 023620

;SCOPE CALL

.CLEAR THE MASSBUS
.SET OFFSET
.LOAD LAST SECTOR AND TRACK ADDRESS
-ENABLE DEBUG CLOCK
.SET GO BIT
PC,CNTCLR
RMOF 0.RMOF (RO)
RMOF 0. $TMPO

;GO CLEAR CONTROLLER
-LOAD RMOF
*SAVE FOR ERROR MSG

#DMD _RMMR1(RO)

:LOAD RMMR1

MOV

RMDAO .RMDA(RO)

MOV

#DMD | DBEN, RMMR 1 (RO)

MOV

#GO,RMCS1(RO)

:LOAD RMDA

;CLOCK THE CYLINDER ADDRESS USING DEBL
MOV
#DMD ! DBEN ! DEBL ,RMMR1 (RO)

MOV

MOV
P
BEQ
EMT
B8R

;LOAD RMMR1

;LOAD RMCS1

#DMD
| DBEN . RMMR1 (RO)

;LOAD RMMR1

RMDC (RO) , $8DDAT :STORE RMDC AT SBDDAT
$GDDAT, S8DDAT
308
JBRANCH IF RMDC=RMD(C+1
140
60%
;OUT OF SYNC-SKIP TO END

- ADVANCE EXPECTED RESULT FOR NEXT INCREMENT

005237
022737

001140
002000

508:
001140

INC
CMP

$GDDAT
#1024.,$GDDAT

JADVANCE NEXT RESULT
:SHOULD NEXT VALUE BE ZERQ??

032737
001007
012737
112737
000676

SEQ 0130

o5
001440

010000
000037

001440
001414

408

TST
BEQ

$BDDAT
508

CLR

408:

010000

BNE

*YES-RMDC SHOULD OVERFLOW

“IS ONE CYCLE COMPLETE??
SYES!!

20s

* CONT INUE

oBIT

#FMT16,RMOFO

;DONE 16 BIT FORMAT MODE

MOV
MOVB

#EMT16,RMOFO
#31..RMDAO

-SET 16 BIT FORMAT AND
*LOAD LAST SECTOR FOR 16 BIT MODE

BNE

B8R

t08:

;NO!!

$GDDAT

608

108

YES

*REPEAT TEST

' .2222232222282 222328 228222222228 222 2 R R

TRTEST 41
' ;i

023764
023766
023770
023774
0264000
024004

30
2031 024012
203% 024016

2034 024024
2035 024030
2039 026036

000004
000240
012706
013700
013701
012737

001100
001276
001462
000041

001226

010037
062737

001136
000012

001136

005037
013737
112737

001440
001330
000035

2053 024116
205; 024122

004737
012760
013760
013760
013737
016037
042737
001403

005037
104141

055614
001466
001414
001440
001440
000012
175777

012760

000006
000032
001174
001142
001142

000024

Ry R

TSTQUE ,R1

*R1

#41,$TESTN

R AR R}

*RO= UNIBUS ADDRESS

= POINTER TO DEVICE

1:SET TEST NUMBER IN APT MAIL BOX

ADD

ARMDS
, SBDADR

RO, $8DADR

:SETUP REGISTER ADDRESS

CLR

RMOF 0

;START WITH 18 BIT MODE

MOVB

#29.,RMDAO

*LAST SECTOR

LSTRK , RMDAQO

CALL

MOV

$BASE , RO

*SETUP LAST TRACK AND

VERIFY THAT ‘LBT'* IS RESET

JSR

MOV

MOV
MOV
MOV
MOV
BIC
8EQ
CLR
EMT

001140

000001

LOAD LAST TRACK AND SECTOR
LOAD LAST CYLINDER

;
:

060
2061 024124
2062 024124

CLEAR (HE MASSBUS
SET FORMAT

000034

:SCOPE

R R

;LOAD THE STACK POINTER

MOV

%os
2045 024044
2046 024050
2047 024056
2048 024064
2049 024072
2050 024100
2051 024106
2052 024114

e Y

#STACK , SP

MOV

;
:

MOV

001414

2822222322

gggps

MOV

001414

LBT TEST

isR2ss 2224223383222

75T41:

PC,CNTCLR

#822. .RMDC(RO)

RMDAO_RMDA(RO)
RMOF
O _RMOF (RO)
RMOF 0. $TMPO
RMDS (RO) , $BDDAT
#~CLBT, $8DDAT
208
$GDDAT
141

:LOAD RMDA
-LOAD RMOF
*SAVE OFFSET REG FOR ERROR MSG
:STORE RMDS AT SBDDAT
:BRANCH IF LBT IS RESET
*LBT SHOULD BE ZERO

ENABLE DEBUG CLOCK
SET GO

FORCE

VERIFY THAT LBT IS SET

20%:

;GO CLEAR CONTROLLER

-LOAD RMDC

Mov

EBL

#DMD ,RMMR1(RO)

;LOAD RMMR1

— ]

N 10
11-APR-80 13:58:55 PAGE 12-41

MACRO v03.01

—

001002
005037
005737
001401
000721

——

2016 023720
2017 023722
2018 023726
2019 023732
2020 023734
2021 023736
2022 023736
2023 023744
2024 023746
2025 023754
2026 023762
2027 023764

(ol=]
el

CZRHPAO RMOS5/3/2 DSKLS TST 1
140
RMDC COUNT TEST

CZRMPAQ RMOS/3/2 DSKLS TST 1

141

LBT

TEST

2063 024132

2064 0261640
2065 024146
2066 0264154
2067 026162
2068 024170
2069 024176
2070 024204
2071 024206
2072 024214
2073 0264216
2074 024220
2075 024220
2076 024226
2077 0264230

<078 024236
2079 024244
2080 024246
2081
2082

012760

012760
012760
012760
012760
016037
042737
001005
012737
104142
000413
032737
001007

012737

112737
000677

000000
000000

000001

060001
040001
000012
175777

MACRO v03.01

000014
000042
000000
000024
000024
001142
001140

010000

001440

010000

000037

MOV
MOV
MOV
IOV
MOV
MOV

001142

002000

B 11

11-APR-80 13:58:55 PAGE 12-42

30$:

001440

001414

#0,RMER1(RO)
;LOAD RMER1
#0 ,RMER2 (RO)
;LOAD RMERZ
#GO,RMCS1(RO)
;LOAD RMCS1
#DMD ! DBEN'DEBL ,RMMR1(R0O)
;LOAD RMMR1
#DMD ! DBEN,RMMR1 (RO)
;LOAD RMMR1
RMDS (RO) ,$8DDAT ;STORE RMDS AT $8DDAT

BIC
BNE
MOV
EMT
BR

#*CLBT ,SBDDAT
308

#LBT,SGDDAT
142
408

BIT

#FMT16,RMOFO

JBRANCH [F LBT IS SET

;DONE 16 BIT FORMAT ?

BNE
MOV

408
#FMT16,RMOFO

JYES !!
;SET 16 BIT MODE AND

108

;TEST AGAIN

MOVB

40%:

SEQ 0131

#31. ,RMDAO

;LAST SECTOR

.'.'""‘*.*fi***t"'**fi***"**"'*t***'***.t.‘t**fi'fi'*fifififi'*"*"*fittt

J*TEST 42

COMPOSITE ERROR TEST

:.‘"‘"'"t'.“'"fi**‘l"*.*"tt*t""fi**fi"t'fi"****'**"*fi*."*t't"fit*t

024246
024246
024250
024252
024256
024262
2083 024266

000004
000240
012706
013700
013701
012737

001100
001276
001462
000042

2084 024274
2085 024300
2086 024304

004737
010037
062737

055614
001136
000012

TST42:

000001
000000
000000
000012
137777

gggPE

MOV
MOV
MOV

:SCOPE

RSTACK,SP
$BASE RO
TSTQUE ,R1

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

;GO CLEAR CONTROLLER
;SETUP REGISTER ADLRFSS

001226

MOV

#62,8TESTN

001136

JSR
MOV
ADD

PC,CNTCLR
RO, $BDADR
#RMDS
, $BDADR

012760
012760
012760
016037
042737
001403
005037
104143
012737

040000

001140

10s:

00
2101 024366
2102 024374
2103 024402
024410

012760
012760
016037
042737

177777
177777
000012
137777

000014
000042
001142

;SET BOTH ERROR
MOV
MOV
MOV
BIC

001140

001142

;oSET TEST NUMBER IN APT MAIL BOX

sUSING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE
;ERROR IS RESET.
MOV
#DMD ,RMMR1(RO)
;LOAD RMMR1

2090 024312
2091 024320
2092 024326
2093 024334
2094 0264342
2095 024350
2096 024352
2097 024356
2098 024360

000024
000014
000042
001142
001142

CALL

MOV
MOV
MOV
BIC
BEQ
CLR
EMT
MOV

BNE
EMT

éXERIFY THAT

#0 ,RMER1 (RO)
#0 ,RMER2(RO)
RMDS (RO) ,$BDDAT
#*CERR, $BDDAT
108
$GDDAT
143
#ERR,$GDDAT

;LOAD RMER1
;LOAD RMER?2
;STORE RMDS AT $B8DDAT

JBRANCH IF ERR IS RESET

REGISTERS AND VERIFY THAT COMPOSITE ERROR IS SET
#-1,RMER1(RO)
;LOAD RMER]
#-1,RMER2(RO)
;LOAD RMER?
RMDS
(RO) ,$BDDAT ;STORE RMDS AT $BDDAT

#*CERR, $BDDAT
20%
144

;BRANCH IF ERR IS SET

COMPOSITE ERROR SETS FOR EACH BIT OF

RMER1

CZRMPAQ RMOS/3/2 DSKLS TST 1
COMPOSITE ERROR TEST

211 0
]

]

2
3

]

012702

11-APR-80 13:58:55 PAGE 12-43

SEQ 0132

000001

MOV
égglrs

S
6
17
18
19
g0
]

22
2 3 024502
2 4 024506

5
2 1 26
12 7 024510
2 8 024510
129 024512
130
13
132 024514
133 024514
1%4 024520
5
2 136
13
2137
024526

BNNNNNNNN

MATRO v03.01

2138 024526
2139 024532
2140 024540
2141 024546
2142 024554
2143 024560

2144 024566

2145 024574
2146 024602
2147 024610
2148 024614
2149 024616
2150 024622
2151 024630
2152 024632
2153 024636
2154 024642
2157 024644
2158 024644
2159 024646
2160 024650
2161
2162

004737
012760
012760
012760
010260
016037
042737
001005
010237
005037
104145

055614
000001
000000
000000
000014
000012
137777

JSR

RMDS (RZ) ,$BDDAT :STORE RMDS AT SBDDAT
#~CERR, S8DDAT

iegVANCE

012702
012737

000001
010000

ASL

ggfi“lf*

THAT

MoV

001440

MOV

382175

055614

JSR

000014
000042

001140

;CONTINUE IF

TEST NOT DONE

(OMPOSITE ERROR SETS FOR EACH BIT OF

#1,R2

HFMT16,RMOFO

RMER2

;INITIALIZE TEST PATTERN
:SET 16 BIT FORMAT

MOV
MOV
BIC

RMOFO,RMO
(RO)
F
-LOAD RMOF
RMDS (R0) , $BDDAT -STORE RMDS AT $8DDAT
#~CERR, $8DDAT

THE

ASL

BNE

LATEST 43
75143:

30s

-LOAD RMER]
:LOAD RMER?

fiegVAncs

#0,RMER1(RO)
#0.RMER2(RO)

EMT

TEST PATTERN FOR RMERT

MOV
MOV

MOV
BIT
8EQ
CLR
(MP
BEQ
CLR
MOV

65%:

145

;BRANCH IF COMPOSITE ERROR SET
*SAVE RMER1 TEST PATTERN
*SAVE RMER2 TEST PATTERN

;GO CLEAR CONTROLLER

MOV

000032
001142
001142

80$:

408
R2,$TMPO
$TMP1

-LOAD RMER1

PC,CNTCLR

MOV

R2.RMERT.RO)

-LOAD RMMR]
:LOAD RMER1
:LOAD RMER2

THE TEST PATTERN AND VERIFY THAT ERR IS SET

000024

001142

THE

BNE

SRS

024650

MOV
¥

EMT

;GO CLEAR CONTROLLER

#DMD ,RMMR1 (RO)
#0.RMERT (RO)
#C.7AER2(RO)

BNE
MOV
CLR

001174
001176

PC,CNTOLR

MOV
MOV
MOV

MOV

001142
001142

006302
001345

;INITIALIZE TEST PATTERN

THE TEST PATTERN AND VERIFY THAT ERR IS SET

000024
000014
000042

#1,R2

#DMD ,RMMR1 (RO)

R2.RMERJ(RO)

#ERR, $GDDAT
#XNUER2 ,R?
658
$GDDAT
$GDDAT
, S8DDAT
708
$TMPO
R2,$TMP1

145

-LOAD RMMR]

-LOAD RMER?

;SETUP EXPECTED VALUE FOR COMP ERROR

;BRANCH IF TEST BIT IS A USED BIT
STEST BIT IS NOT USED - ERR SHOULD BE 0

;BRANCH IF COMP ERROR IS OK
:SAVE RMER1 TEST PATTERN
*SAVE RMER2 TEST PATTERN

TEST PATTERN FOR RMER?

608

;CONTINUE
e

WRITE GO TEST

itz

TEST NOT DONE

32220 2222222221%

2222322223 222222222333

CIZRMPAQ RMOS/3/2 DSKLS TST 1
143
WRITE GO TEST

024650

2163
2164 024676
2165 024702
2166

2167
2168 024704
2169 024704
2170 024710
2171 024716
2172 024724
2173 024732
2174
2175
2176 024740
2177 024742
2178 024746
2179 024752
2180 024760
2181 024766
2182
2183
2184 024770
2185 024776
2186 025002
2187 025004

2188
2189
2190 025006
2191 025006
2192 025012

2193 025016

2194
2195 025020
2196
2197

000004
000240
012706
013700
013701
012737
010037
005002

MACRO v03.01

DN
11-APR-80 13:58:55 PAGE 12-44
gggPE

001100
001276
001462
000043

MOV

001226

001136
%EEEAR

004737
012760
012760
012760
012760

055614
000001
041001
000000
000000

000001
000000
000000
000001

042737
010337

177700
001140

::SET TEST NUMBER IN APT MAIL BOX

MOV
CLR

RO, $BDADR
R2

;COPY RMCS1 ADDRESS
sINITIALIZE FUNCTION CODE

THE MASSBUS,

THE

MOV
8IS
MOV
MOV
BIT

B8NE

000405

SET DIAGNOSTIC “0DE AND ENABLE DEBUG CLOCK

PC.CNTCLR

;GO CLEAR CONTROLLER

#0 ,RMERZ2(RO)

;LOAD RMER?2

FUNCTION CODE AND GO BIT

TO RMCS1,

VERIFY GO

R2,R3
;SETUP FUNCTION CODE
#GO,R3
R3,RMCS1(RO)
sLOAD RM(CS1
RMCS1(RO) , SBDDAT
;STORE RMCS1 AT $BDDAT
#GO, $BDDAT

208

THE

ERROR-CANT

B8R

308

BIC
MOV
EMT

;RO
= UNIBUS ADDRESS
:R1 = POINTER TO DEVICE

#DMD ,RMMR1(RO)
;LOAD RMMR1
#DMD ! DBEN !MUR,RMMR1(R0O) ;LOAD RMMR1
#0,RMER1 (KO)
sLOAD RMER1

MOV

:REPORT

sLOAD THE STACK POINTER

$8ASE RO
TSTQUE ,R1
#43,STESTN

JSR

001142
001142

001142

N#STACK,SP

MOV
MOV
MOV

000042

sSCOPE CALL

MoV
MOV
MOV

;TRANSFER

010203
052703
010360
016037
032737
001007

104146

000024
000024
000014

SEQ 0133

SET

;BRANCH IF GO IS SET

SET GO WITH

THIS FUNCTION CODE

#~CFNCMSK
, $8DDAT
R3,$GDDAT
:SAVE FUNCTION CODE
146

éSQVANCE R2 TO THE NEXT FUNCTION CODE

062702
022702
103332

000002
000076

308:

ADD

#2.R2

BHIS

10$

CMP

#ILF76.R2

:END OF

TEST

. !’tt.t*'fi'l'tl’t*"fi""'"'*fi'fitfi'tfifit'tttfifi"ifi'.ttfitttttt.'ttt

LHTEST 44

BRANCH MULTIPLEXOR TEST

""ttfi**fi"fltfit'.“'.'tt't"t.'*'*t."fi.tfi't"t"'it"fi.*fittttt

025020
025020
025022
025024
025030
025034
025040

2198
2199 025046
2200 025052
2201 025060

000004
000240

18744

012737

001100
001276
001462
000044

010037
062737
012702

001136
000040
025304

001226
001136

zggps

:SCOPE CALL

MOV
MOV
MOV

#STACK, SP
$BASE , RO
TSTQUE ,R1

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

MOV

RO, $8DADR

:COPY REGISTER ADDRESS

MOV
ADD
MOV

244, STESTN
#RMMR?
, $8DADR
#1008 ,R2

*:SET TEST NUMBER IN APT MAIL BOX

;INITIALIZE TABLE POINTER

;CLEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE

2204 025064
2205 025064
2206 025070
2207 025076
2208 025104
2208 025112

004737
012760
012760
012760
012760

016037
032737
001010
042737
012737
104147

055614
000001
041001

000000
000000

E N

11-APR-80 13:58:55 PAGE 12-45

SEQ 0134
10%:

000024
000024

MOV

MOV
MOV
;THE
;THE

000040
010000

JSR
MOV

167777
010000

;GO CLEAR CONTROLLER
:LOAD RMMR1

#0 ,RMER1(R0)
#0 ,RMER2 (RO)

;LOAD RMER1
;LOAD RMER?

#DMD ! DBEN'MUR,RMMR1(RO) :LOAD RMMR1

TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS
COMMAND SEQUENCER IS INITIALIZED.

MOV
BIT
BNE

IS ALL ONES WHEN

BIC
MOV

RMMRZ
(RO) ,$BDDAT
;STORE RMMRZ AT $BDDAT
#TST,$BDDAT
15%
JBRANCH IF TEST BIT IS ON
#*CTST,SBDDAT
;SETUP FOR ERROR TYPE
HTST,$GDDAT

40%

EMT

000452

PC,CNTCLR
#DMD ,RMMR1(R0O)

1647

;SKIP REST OF

TEST

:GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE,

%ggEN STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE.

111203
052703
042703
010360
010337

000001
177700
000000
001174

BIS
BIC
MOV
MOV

116203

000001

MOVB

012760
012760

141001
041001

000024
000024

016037
042737
016237
023737
001402

000040
167777
000002
001140

001142
001142
001140
001142

042703

005303
001370

2239 025230
2240 025236
2241 025244
2242 025252
2243 025260
2244 025262
2245 025264

mMov8

177400

20%:

000436

2256 025304
2257 025304
2258 025305
2259 025306
2260

000004
000001

;GET CLOCK COUNT IN R3

MOV

#DMD ! DBEN !MUR ! DBCK ,RMMR1 (R()

DEC
BNE

R3
208

#DMD ! DBEN!MUR
,RMMR1 (RO)

:LOAD RMMR1

;LOAD RMMR1

sDECREMENT CLOCK COUNT
;ISSUE CLOCKS TILL ZERO

MOV

RMMR2 (RO) , $BDDAT

BEQ
EMT
BR

308
150
408

8IC
MOV
cMP

"
40$:

H*CTST,$BDDAT
2(R2) ,$GDDAT
$GDDAT, $BDDAT

;STORE RMMR? AT S$BDDAT

JBRANCH IF TEST BIT OK
;SKIP REST OF

THE TABLE POINTER AND CONTINUE

ADD

#4 ,R2

B8R

108

TSTB
BM]
BR

%68%LE OF

000
001
000000

1(R2).R3

#~C377.R3

;GET THE TEST BIT AND COMPARE IT WITH THE TABLE ENTRY

éggye

105762
100401
000671

sR3=FUNCTION CODE, GO BIT
;LOAD RMC(CS1
;SAVE R3 FOR ERROR MSG

BIC

MOV

104150
000406

062702

(R2) ,R3

#GO,R3
#~CFNCMSK,R3
R3,RMCS1(RO)
R3,$TMPO

1(R2)
408

TEST

IF NEXT ENTRY POSITIVE

;BRANCH IF DONE TEST

‘REPEAT TEST

200$

:JUMP OVER TABLE

FUNCTION CODES,

CLOCK COUNTS, AND TEST BITS

.g;;g

?OP

:MUX ADDRESS=DATA COMMAND

"WORD

;TEST BIT=0

inla

BRANCH MULTIPLEXOR TEST

MACRO v03.01

LA
T N

CZRMPAQ RMOS/3/2 DSKLS TST 1

T44

BRANCH MULTIPLEXOR TEST

MACRO v03.01

000

2314 025375
2315 025376
2316 025400
2317

SEQ 0135

.BYTE
.BYTE
.WORD

NOP

2
0

JTEST 8IT=0

.BYTE
.BYTE
.WORD

?RVCLR

sMUX ADDRESS=F&

TST

JTEST BIT=1

.BYTE
.BYTE
.WORD

wCD
1

sMUX ADDRESS=F4

;TEST BIT=0

.BYTE
.BYTE
.WORD

?LEASE

;MUX ADDRESS=F4

TST

;sTEST B81T=1

001
000009

.BYTE
.BYTE
.WORD

WCH

sMUX ADCTESS=F4

JTEST BIT=0

020
001
010000

.BYTE
.BYTE
.WORD

RIP
1
TST

;MUX ADDRESS=F4

060
001
000000

.BYTE
.BYTE
.WORD

WD
1

;MUX ADDRESS=F4

;TEST BIT=0

022
001
010000

.BYTE
.BYTE

?AKACK

;MUX ADDRESS=F4

.WORD

TST

;TEST BIT=1

062
001
000000

.BYTE
.BYTE
.WORD

WH
1

;MUX ADDRESS=F4

sTEST BIT=0

030

.BYTE
.BYTE
.WORD

?EARCH

sMUX ADDRESS=F4

TST

;TEST BIT=1

001
000000

.BYTE
.BYTE
.WORD

:MUX ADDRESS=F4

032
001
010000

BYTE
RYTE
.WORD

{LF32

MUY ADDRESS=F&

TST

JTEST BIT=1

072
001
000000

.BYTE
.BYTE
.WORD

000
377
000000

.BYTE
.BYTE
.WORD

052

2280
2281 025334
2282 025335
2283 025336
2284
2285 025340
2286 025341
2287 025342
2288
2289 025344
2290 025345
2291 025346
2292
2293 025350
2294 025351
2295 025352
2296
2297 025354
2298 025355
2299 025356
2300
2301 025360
2302 025361
2303 025362
2304
2305 025364
2306 025365
2307 025366
2308
2309 025370
2310 025371
2311 025372
2312
2313 025374

F 1N
11-APR-80 13:58:55 PAGE 12-46

. 001

010000
070

200$:

sMUX ADDRESS=UNIT READY

STEST BIT=1

;TEST BIT=0

JMUX ADDRFSS=F4
JTEST BIT=0

JEND OF

TABLE

JEND OF

TEST

[N,
¥ Ny

CZRMPAQ RMOS5/3/2 DSKLS TST 1

—

145

SET/RESET GO TEST

MACRO V03.01 11-APR-80 13:58:55| PAGEG 1112-47

2318

SEQ 0136

::ttttttttttt.tttfifitt.tt"tt"ttttttttttttttttttttttt"'ttt.!tt"

SwTEST 45

025400
025400
025402
025404
025410

025414
>319 025420

sggg 025426

;.'tttt'tttttifltttttfittt'tt'ttttttttt't*ttttttitttt'fittfitttttttttt

000004
000240
012706
013700

75145

013701
012737

001100
001276
001462
000045

012702

026042

001226

2322

2323
2324 025432

004737
012760
012760
012760
012760

2331
2332 025466
2333 025470
2334 025474
2335 025500
2336 025506

111203
042703
052703
010360
016037

177701
000001
000000
000000

010337

001140

2340 025530

2341 025534
2342 025540
ggzz 025542

032737
001011
042737

010037
104151
000536

055614
000001
041001
000000
000000

000024
000024
000014
000042

000001

001142
001142

177700

001142

001140
000001

001142

000200

001140

025566
2352 025574
2353 025602
2354 025610
2355 025612
2356 025616
gggg 025624

016037
042737
023737
001406
010037
062737
104152

000012
177577
001140

001142
001142
001142

001136
000012

001136

2363 025636

;LOAD
*RO =
*R1 =
$;SET

MOV

#2008 ,R2

;INITIALIZE FUNCTION CODE POINTER

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

116204

042704

;TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET
MOVB
(R2) ,R3
;GET FUNCTION CODE
8IC
#~CILF76,R3
:CLEAR UNUSED BITS
8IS
#GO,R3
*SET 6O
MOV
R3,RMCS1(RO)
*LOAD RMCS1
MOV
RMCS1(RO) , $8DDAT
;STORE RMCS1 AT $8DDAT

BIT
BNE
BIC

MOV

MOV
EMT
BR

005037
032737
001003
012737

2362 025632

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

:SCOPE CALL

:ON LINE AND ENABLE DEBUG CLOCK
108:
JSR
PC,CNTCLR
;GO CLEAR CONTROLLER
MOY
#DMD ,RMMR1 (RO)
:LOAD RMMR1
MOV
#DMD ! MUR ' DBEN ,RMMR1T(RO) :LOAD RMMR1
MOV
#0,RMER1 (RO)
;LOAD RMER1
MOV
#0 . RMER2 (RO)
:LOAD RMER2

001136

2345
2346 025544
2347 025544
2348 025550
2349 025556
gggg 852222

2359
2360 025626
2361 025626

SCOPE
NOP
MOV
MOV
MOV
MOV

;CLEAR, THEN SET DIAGNNSTIC MODE, CLEAR COMPOSITE ERROR, SET MEDIUM

2325 025432
2326 0256436
2327 025644
2328 025452
gggg 025460

2337 025512
2338 025520
2339 025522

SET/RESET GO TEST

000001

177400

#GO, SBDDAT
208
;BRANCH IF GO IS SET
#~CFNCMS
, $8DDAT
K

R3.,$GDDAT

RO. $8DADR
151
1008

:SAVE EXPECTED RESULT

:COPY REGISTER ADDRESS

:GET READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO
208:
CLR
$GDDAT
;EXPECT DRY TO BE OFF
BIT
#GO, SBDDAT
‘WAS GO SET??
BNE
308
SYES!!
s08
MOV
#DRY , SGDDAT
;GO WAS NOT SET, DRY SHOULD BE
MOV
BIC
CMP
BEQ
MOV
ADD
EMT

RMDS (RO) ,$8DDAT ;STORE RMDS AT $BDDAT
#*CDRY
, $8DDAT
$GDDAT, SBDDAT
408
;BRANCH IF DRY IS OK
RO, $8DADR
:COPY REGISTER ADDRESS
#RMDS
, SBDADR
152

;STEP THE DEBUG CLOCK AND VERIFY THAT GO REMAINS SET
408:
MOVB
1(R2),R4
:GET NUMBER OF CLOCK CYCLES
508:

BIC

#~C377.RG

ARG

{cznmp»o RMOS5/3/2 DSKLS TST 1

SET/RESET GO TEST

2406
2407
26408 026042

2609 026042
2410 026043
2411
2412 026044
2413 026045
2414
2415 026046
2616 026047
2417
2418 0¢6050
2419 026051

141001

041001
000000
177700

001136

000024
000024
001142
001142

SEQ 0137

MOV

#DMD 'MUR ' DBEN'DBCK ,RMMR1(RO)

BIC

#~CFNCMSK.$8DDAT

MOV
MOV

MOV

001140

#DMD 'MUR i DBEN . RMMRT (RO)
RMCS1(RO) , SBDDAT
RO, $8DADR

R3.SGDDAT

:LOAD RMMR1

;LOAD RMMR1
*STORE RMCS1

; CLEAR UNUSED BITS

AT $BDDAT

;SETUP REGISTER ADDRESS

*SAVE EXPECTED RESULT

:DECREMEQECCLOCKREOUNT AND EXIT LOOP IF ZERO
000001

001142

BEQ

608

EMT
BR

153
100%

BIT
BNE

#GO, $BDDAT
508

;1S GO STILL
SYES!!

SET??

;0UT OF SYNC=SKIP TO NEXT

382 SHOULD NOW BE RESET AND DRY SHOULD BE SET

032737
001405
042737
104154

000001

001142

#GO, SBDDAT

000001

001140

BIC

#GO, $GDDAT

MOV
BIT

#DRY . $GDDAT
#GO, $8DDAT

;EXPECT DRIVE READY TO BE
*DID GO RESET??

CLR

$GDDAT

*GO 1S SET-

000440

016037
042737
010037
062737
023737
001401

000012
177577
001136
000012
001140

000200
000001

BEQ

EMT
BR

70%:

—

012737
032737
001402
005037

—h

001140

BEQ

508

0011

0011
0011
0011

PN
S
a1
e NN 1,¥)

2364 025636
2365 025644
2366 025652
2367 025660
2368 025666
2369 025672
2370
2371
2372 025676
2373 025700
2374 025702
2375 025710
2376 025712
2377 025714
2378
2379
2380 025716
2381 025716
2382 025724
2383 025726
2384 025734
2385 025736
2386 025740
2387 025740
2388 025746
2389 025754
2390 025756
2391 025762
025762
2392 025770
2393 025776
2394 026002
2395 026010
2396 026016
2397 026020
2398
2399
24600 026022
2401 026022
2602 026026
2403 026032
24604 026034
2405 026040

=l
lele)

145

H1
11-APR-80 13:58:55 PAGE 12-48

MACRO v03.01

mov

000002
000001

025432

90$
152

*SETUP EXPECTED RESULT

#RMDS
, $BDADR
$GDDAT,SBDDAT

ADD

#2 ,R2

BM]
IMP

1008
108

;COPY REGISTER ADDRESS
:IS DRIVE READY OK??
SYES!!

1(R2)

3008

TO BE

TESTED-EXIT

DONE

:MOVE TABLE POINTER

*END OF

TABLE??

TYES!!
STEST THIS FUNCTION CODE
‘GO TO NEXT TEST

FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

‘BYTE

ILFO2

:ILLEGAL FUNCTION CODE #2

004
001

.BYTE
BYTE

SEEK
1

;SEEK COMMAND

006
001

.BYTE

RECAL

;RECALIBRATE

014
001

.BYTE
.BYTE

?FFSET

;OFFSET

002
001

.BYTE

BYTE

SET

LYES!!

TO THE NEXT FUNCTION CODE

ééegLE OF

;1S GO RESET??

LYES!]

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

BEQ
EMT

1STB

100$:

80$

#~CDRY, $8DDAT
RO, $BDADR

66gVANCE

062702
105762
100402
000137
000423

154
1008

BIC
MOV

ADD
MP

104152

70$

COMMAND

[V
[ V]

CZRMPAQD RMOS5/3/2 DSKLS TST 1

=0 |

—

SET/RESET GO TEST

2620
2421 026052
2622 026053
2623
2624 026054
2425 026055
2426
2427 026056
2428 026057
2429
24630 026060
2631 026061

I 11

11-APR-80 13:58:55 PAGE 12-49

SEQ 0138

016
001

.BYTE
.BYTE

RTC
1

JRETURN TO CENTER L INE COMMAND

024
001

.BYTE
.BYTE

ILF24

s ILLEGAL FUNCTION CODE w24

026
001

.BYTE
BriIE

ILF26

s ILLEGAL FUNCTION CODE #26

034
001

.BYTE
.BYTE

ILF34

s ILLEGAL FUNCTION CODE #34

2633 026062
243? 026063

036
001

.BYTE
.BYTE

ILF36

. ILLEGAL FUNCTION CODE #36

2436 026064
2437 026065
2438
2439 026066
2440 026067
2441
2442 026070
2443 026071
2644
2445 026072
2446 026073
24647

042
001

.BYTE
.BYTE

ILF42

s ILLEGAL FUNCTION CODE

044
001

.BYTE
.BYTE

ILF44

;s ILLEGAL FUNCTION CODE K44

046
[0}

BYTE
.BYTE

ILF46

s ILLEGAL FUNCTION CODE 46

054
001

.BYTE
.BYTE

ILF54

s ILLEGAL FUNCTION CODE #54

056
001

.BYTE
.BYTE

ILF56

s ILLEGAL FUNCTION CODE #56

064
001

.BYTE
.BYTE

ILF64

s ILLEGAL FUNCTION CODE #64

066
001

.BYTE
.BYTE

ILF66

s ILLEGAL FUNCTION CODE #66

074
001

.BYTE
.BYTE

ILF74

s ILLEGAL FUNCTION CODE H74

076

001

.BYTE
.BYTE

ILF76

s ILLEGAL FUNCTION CODE H76

000
377

.BYTE
.BYTE

2448 026074

2449 026075
2450
2451 026076
2452 026077
2453
2454 026100
2455 026101
2456
2457 026102
2458 026103
2459
2460 026104
2461 026105
2462
2463 026106
2464 026107
2465
2466 026110
2467

;END OF TABLE

300s:

2468

END OF TEST

A AR AN

T*TEST 46
MR

000004
000240
012706
013700

AR A

TST46:
001100
001276

¥4

AN AN R A AN

RN I R AR R AR AR AN RN AN RN R RN AR AR A AR NAN RN

RN NN

END 1 RESET GO TEST

d st
eI
t
S22 2223222222
t
222220

SCOPE
NOP
MoV
MOV

s SCOPE CALL
#STACK,SP

$8ASE ,RO

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

145

MACRO v03.01

(W,
1 ]

CZRMPAQ RMOS/3/2 DSKLS TST 1

—

CZRMPAQ RMOS/3/2 DSKLS TST 1

146

END 1

026124
026130

2469
2670 026136
2671 026142
2472
2473
2474 026146
2475 026146
26476 026152
2677 026160
2478 026166
2479 026174
2480
2481
2682 026202
2683 026204
2484 026210
2485 026214
2486 026220
2487 026224
2488 026232
2489 026240
26490 026242
2491 026250
szg% 026252

RESET GO TEST

013701
012737

001462
000046

012702
010037

026374
001136

MACRO v(3.01

001226

2696 026254
2697 026260
2498
2499
2500 026264
2501 026264
2502 026272
2503 026300
2504 026306
2505 026314
2506 026316
2507 026320
2508 026326
2509 026330
2510 026332
2511
2512

2513 026334
2514 026334
2515 026342
2516 026344
2517 026352
2518 026354
2519
2520
2521 026356
2522 026356
2523 026362

MOV
Mov

TSTQUE ,R1
#46,STESTN

MOV
MOV

RO,$BDADR

. CLEAR MASSBUS,

004737
012760
012760
012760
012760

111203
042703
052703
010337
010360
016037
032737
001005
042737
104151
000447

055614
000001
041001
000000
000000

:
108

000024
000024
000014
000042

177701

177700

BIC
BIS

SEQ 0130

;R1 = POINTER TO DEVICE
;oSET TEST NUMBER IN APT MAIL BOX

#1008 ,R2

JINITIALIZE

TABLE POINTER

;COPY RMCS1 ADDRESS

THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK
PC,CNTCLR
;GO CLEAR CONTROLLER
#DMD ,RMMR1(RO)
;LOAD RMMR!
#DMD !MUR ' DBEN ,RMMR1(R0O) ;LOAD RMMR1

#0,RMER1(RO)
#0,RMER2 (RO)

sLOAD RMER1
;LOAD RMERZ

#~CILF76,R3
#GO,R3

:TABLE AND SET GO

MOV

R3,$GDDAT

001142
001142

MOV
BIT

RMCS1(RO) , $BDDAT
#GO, $8DDAT

001142

BIC

#~CFNCMS
, $8DDAT
K

B8R

608

MOV

BNE

EMT

éSET

116204
042704

JSR
MOV
MOV
MOV
017

12~50

:TRANSFEfioagE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET
(R2) ,R3
;GET FUNCTION CODE FROM

249%

2495 026254

J 1N

11-APR-80 13:58:55 PAGE

000001

208
151

THE NUMBER OF

MOVB

BIC

177400

;SAVE FUNCTION CODE FOR MSG

R3.RMCS1(RO)

:LOAD RMCS1

:STORE RMCS1

AT $BDDAT

;BRANCH IF GO IS SET

:OUT OF SYNC-SKIP
CLOCK CYCLES FROM THE

1(R2).R4

1ABLE.

SAVE EXPECTED STATUS

;R4=CLOCK COUNT

#AC377 R4

§8LEP THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES.

012760
012760

016037

042737
005304
001406
032737
001356

141001
041001
000000
177700

000024
000024
001142
001142

000001

001142

MOV
MOV

MOV

000417

RMCS1(RO) , $SBDDAT

*STORE RMCS1 AT $BDDAT

BIC
DEC
BEQ
BIT

#~CFNCMSK
, SBDDAT
R4
408
:BRANCH IF GO SHOULD BE OFF
#GO, $8DDAT

EMT
BR

153
608

BNE

104153

#DMD 'MUR ! DBEN ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD 'MUR | DBEN .RMMRT (RO) ;LOAD RMMR1

308

;CONTINUE IF GO IS ON

:0UT OF

SYNC-SKIP

igERIFY THAT GO RESET AT END1

032737
001405
042737
104154
000406

000001

001142

BIT

#GO, $8DDAT

000001

001140

BIC

#GO,$GDDAT

BEQ

EMT
BR
§8§T

062702
105762

000002
000001

508

TSIB

SYES!T

154
608

THE NEXT FUNCTION CODE

ADD

:DID GO RESET??

#2 R2
1(R2)

FROM THE

TABLE

C
T¢

[

CZRMPAQ RMOS5/3/2 DSKLS TST 1
146
END 1 RESET GO TEST

MACRO v03.01

KN
11-APR-80 13:58:55 PAGE 12-51

SEQ 0140

2524 026366
2525 026370
2526 026372
2527
2528
2529 026374
2530 026374
253; 026375

100401
000666
000404

012
002

.BYTE
.BYTE

gLEASE

sRELEASE COMMAND

2533 026376
2534 026377

030
002

.BYTE
.BYTE

;SEARCH COMMAND

2536 026400
2537 026401

032
002

.BYTE
.BYTE

éLF32

;ILLEGAL FUNCTON #32

2539 026402
2540 026403
2545 026404

000
377

.BYTE
.BYTE

60%:

%682LE OF

200%:
MR

60%
10%
200$

8M]
BR

RAR

;BRANCH IF END OF TABLE
sTEST THIS FUNCTION CODE
;JUMP OVER TABLE

FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

SATEST 47

SRS

JEND OF TABLE

-1

Rttt

END OF TEST
ottt

SET PULSE

IR AR AN AR AR R AR AN AN AN AN N

1ST47:

000004
000240
012706
013700
013701

001100
001276
001462

000047

001226

010037
062737
012702

001136
000024
026702

001136

012737

MOV
ADD
MOV

sttt

sty

TEST
AT RARNRAN R AR

SCOPE

NOP
MOV
MOV
MOV
MOV

ARANRAANAN AR AR A AARAAR RN

:SCOPE CALL
#STACK,SP

;LOAD

TSTQUE ,R1

sR1

RO, $8DADR
#RMMR1, $BDADR
#1C0$ ,R2

;COPY REG ADDRESS FOR MSG

$8ASE RO

#47 ,STESTN

THE

STACK POINTER

;RO = UNIBUS ADDRESS

= POINTER TO DEVICE

2o SET TEST NUMBER IN APT MAIL BOX

JINITIALIZE

TABLE POINTER

.CLEAR THE MASS BUS., ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS

2554 026470
2555 026476
2556
2557
2558 026504
2559 026512
2560 026520
2561 026522
2562 026526
2563 026530
2564
2565
2566 026532
2567 026532
2568 026534
2569 026540
2570 026544

004737
012760
012760
012760
012760

055614
000001
041001
000000
000000

016037
042737
001404
005037

000024

104155

10%:

JSR
MOV
MOV
MOV
MOV
MOV
BIC
8EQ
CLR
EMT
BR

177677

001140

5857

000001
177700
000000

#0 ,RMER1(RQ)

#0,RMER2 (RO)

;LOAD RMER1

;LOAD RMER?2

;VERIFY THAT CONTINUE, '‘CONT'' IS RESET AFTER CLEAR

000463

111203
052703
042703
010360

PC,CNTCLR
;60 CLEAR CONTROLLER
#DMD ,RMMR1(RO)
;LOAD RMMR1
#DMD ! DBEN!MUR ,RMMR1 (RO) ;LOAD RMMR1

THE

RMMR1(RO) , SBDDAT

#*CCONT ,$8DDAT

208

$GDDAT
155
708

FUNCTION CODE

MovB
BIS
BIC
MOV

;STORE RMMR1

AT S$BDDAT

;BRANCH IF CONT WAS CLEARED
*FOR ERROR MSG

FROM THE

TABLE AND

TRANSFER

TO RMCS?

(R2) .R3

#GO,R3

#~CFNCMSK.R3

R3.RMCST(RO)

:R3=FUNCTION CODE AND GO

>LOAD RMCST

CZRMPAO RMOS/3/2 DSKLS TST 1

T47

SET PULSE TEST

MACRO v03.01

L 11
11-APR-80 13:58:55 PAGE 12-52

MOV

Sg;} 026550

010337

001174

2573
2574 026554

gg;g 026560

116203

042703

000001

;GET THE CLOCK COUNT FROM THE TABLE
MOVB
1(R2),R3

2577
Sg;g 026564

016204

000002

:GET THE BIT STREAM FOR CONTINUE FROM THE TABLE
MOV
2(R2) R4

177400

BIC

2580

012760

2584 026604

016037

2585 026612
2586 026620
2587 026624
2588 026630

2589
2590
2591
2592
5232

026632
026640
026646
026650
026652

2595
2596 026654
2597 026654
2598 026656
2599 026660
528? 026662

2602

2603
2604
2605
2606

000024

001142

042737
005037
032704
001403

177677
001140
000001

012737
023737
001402
104156
000412

000100
001140

#~C377.R3

50s:

000024

#DMD ! DBEN 'MUR ! DBCK ,RMMR1 (RO)

MOV

RMMR1 (RO) ,$BDDAT

MOV

001142

001140
001142

MOV
BIC
CLR
BIT
BEQ

40$:

MOV
CMP
BEQ
EMT
BR

#DMD i DBEN {MUR .RMMRT (RO)

#~CCONT, SBDDAT
$GDDAT
#81TO,R4
408
#CONT
, SGDDAT
$GDDAT, SBDDAT
50%
156
708

:LOAD RMMR1

;STORE RMMR1 AT $BDDAT

;GENERATE EXPECTED CONTINUE

;BRANCH IF

CONTINUE

IS OK

;SKIP

JDECREMENT CLOCK COUNT AND SHIFT BIT STREAM
508:
DEC
R3
BEQ
60%
JBRANCH IF CLOCK COUNT EXPIRED
ASR
R
SSHIFT TO NEXT CONTINUE BIT
BR
308
STEST NEXT CLOCK CYCLE

005303
001402
006204
000742

;ADVANCE TABLE POINTER-EXIT IF DONE

gggg 026700

000442

2613 026703

000024

041001

062702
105762
100401

2610
2611 026702
2612 026702

141001

012760

026664
026664
026670
026674

2607 026676

;SAVE FUNCTION CODE FOR MSG

:STEP THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS

2581 026570
2582 026570
2583 026576

R3,$TMPO

SEQ 0141

000664

000
004

000004
000001

608:

708:

ADD
TSTB
8M]

#4 R2
1(R2)
70%

JEXIT IF CLOCK COUNT NEGATIVE

2008

:JUMP OVER TABLE

108

:CONTINUE TEST

:TABLE OF FUNCTION CODES, CLOCK COUNTS AND CONTINUE BITS FOR TEST
1008:
.BYTE
NOP
sNOP COMMAND

BYTE

14 CLOCKS

002
002
000000

.BYTE
.BYTE
JWORD

ILFO2
2
“B00

;ILLEGAL FUNCTION 2

2620 026712
2621 026713
Sggg 026714

004
002
000000

.BYTE
BYTE
JWORD

SEEK
2
“B0O

:SEEK COMMAND

2624 026716
2625 026717
2626 026720
2627

006
002
000000

.BYTE
.BYTE
"WORD

RECAL
2
“B00

;RECALIBRATE COMMAND

521? 026704

000000

2616 026706
2617 026707
Sg}g 026710

.WORD

“B0000

: CONT INUE=0000

CZRMPAQ RMOS5/3/2 DSKLS TST 1
SET PULSE TEST

2628 026722
2629 026723
2630 026724
2631
2632 026726

2633 026727
2634 026730
2635
2636 026732
2637 026733
2638 026734
2639
2640 026736
2641 026737
2642 026740
2 643
2644 026742
2645 026743
2646 026744

2647
2648 026746
2649 026747
2650 026750
2651
2652 026752
2653 026753
2654 026754
2655
2656 026756

2657 026757

2658 026760
2659
2660 026762
2661 026763
20662 026764

2663

2664 026766

2665 026767
2666 026770
2667

2668 026772
2669 026773
2670 026774

2671
2672 026776
2673 026777
2674 027000
2675
2676 027002
2677 027003
2678 027004
2679

2680 027006
2681
2682

MACRO v03.01

010
002
000001

M1
11-APR-80 13:58:55 PAGE 12-53
.BYTE
.BYTE
.WORD

012

SEQ 0142

DRVCLR

;DRIVE

gLEASE

+RELEASE COMMAND

2
“B01

CLEAR COMMAND

003

000000

.BYTE
.WORD

014
002
000000

.BYTE
.BYTE
.WORD

OFFSET

;OFFSET COMMAND -

016

002
000000

.BYTE
.BYTE
.WORD

RTC

JRETURN TO CENTER COMMAND

020
004
000015

.BYTE
.BYTE
.WORD

RIP

JREAD IN PRESET COMMAND

022
004
000016

.BYTE

ZAKACK

.WORD

“B1110

024
002
000000

.BYTE
.BYTE
.WORD

ILF24
2
“B00

sILLEGAL FUNCTION 24

026
002
000000

.BYTE
.WORD

ILF26
2

sJILLEGAL FUNCTION 26

s SEARCH COMMAND

“B000

2
“B00

“B1110
sPACK ACKNOWLEDGE

“B00

030
003

.BYTE
.BYTE
.WORD

gEARCH

032
003
000000

.BYTE

;ILLEGAL FUNCTION 32

.WORD

ILF32
3
“B000

034
002
000000

.BYTE
.BYTE
.WORD

ILF34
2

;ILLEGAL FUNCTION 34

036
002
000000

.BYTE
.BYTE
.WORD

ILF36
2

;ILLEGAL FUNCTION 36

000
377
000000

.BYTE
.BYTE
.WORD

“B000

“800

“B00

;END OF TABLE

-1

:
2008
N

;END OF TEST
A AR AR A AR AN AR AR

T*TEST 50

AR R AT RN AN RN AR AN A AANAAANRARARAARRNRRANRNN

SET/RESET IVC TEST

CZRMPAD RMOS5/3/2 DSKLS TST 1
150
SET/RESET IVC TEST

MACRO v03.01
M

027006
027006
027010
027012
027016
027022
027026
2684 027034
2685 027040
2686 027046

000004
000240

012737
010037
062737

001136
000042

2689 027050
2690 027050 004737
2691 027054 012760
2692 927062 012760
2693 027070 012769
2694 027076 012760
2695 027104 016037
2696 027112 042737
2697 027120 001404
2698 027122 005037
. 104157
2699 027126
2700 027130 000444
2701

222

TST50:

001100
001276
001462
000050

005002

NI
11-APR-80 13:58:55 PAGE 12-5¢4
SRR

00ttt

Rilil

gggPE

it 2238223223223
X222,

+SCOPE CALL

MOV

#STACK,SP

001226
001136

MOV
MOV

SEQ 0143

;LOAD THE STACK POINTER

MOV

$8ASE RO
TSTQUE ,R1

#50,$TESTN

;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE

MOV
ADD
CLR

RO, $8DADR
#RMERZ2, $BDADR
R2

:SETUP REG ADDRESS

;.SET TEST NUMBER IN APT MAIL BOX

sR2=FUNCTION CODE

%6§1TIALJZE AND VERIFY THAT IVC STATUS IS ZERO.

055614

PC,CNTCLR

.60 CLEAR CONTROLLER

MOV

#0,RMER2 (RO)

:LOAD RMER?2

BIC
BEQ
CLR
EMT

#*CIVC,$BDDAT
208
$GDDAT
157

MOV
MOV
MOV

001142

MOV

000042
167777

JSR

000024
000024
000014

001142

001140

#DMD,RMMR1 (RO)
:LOAD RMMR1
#DMD
{MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#0,RMER1 (RO)
;LOAD RMER1

RMERZ2 (RO) , $BDDAT

40%

;STORE RMERZ AT $BDDAT

sBRANCH IF

IVC IS ZERO

;SKIP REST OF

TEST

;LOAD THE FUNCTION CODE WITH GO BIT, STEP THE COMMAND SEQUENCER OFF

éSgDRESS O AND VERIFY IVC STATUS.

141001

041001
000042

167777

062752

167777
001140

2716 027220
2717 027224
2718
2719
2720 027226
2721 027226
2722 027232
2723 027236
2724 027240
2725

2726 027242
2727
2728

MOV
BIS
MOV
MOV
MOV
MOV
BIC
MOV
8IC
(MP
BEQ
MOV
EMT

000001

000024
000024
001142
001142
001140
001140
001142

001174

R2,R3
sSETUP FUNCTION CODE
#GO,R3
R3,RMCS1(RO)
:LOAD RMCS1
#DMD !MUR ! DBEN ! DBCK ,RMMR1 (R0O)
;LOAD RMMR1
#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMRI]
RMER2 (RO) , $BDDAT
;STORE RMER2 AT $3DDAT
#*CIVC,$BDODAT
:SET ACTUAL STATUS
FNCDTB(R2) ,$GDDAT
;SETUP EXPECTED STATUS FROM
#*CIVC,SGDDAT
;FUNCTION CODE TABLE
$GDDAT
, $8DDAT
308
sBRANCH IF IVC [S OK
R2,$TMPO
;SAVE FUNCTION CODE FOR MSG
160

SSQVANCE FUNCTION CODE AND REPEAT TEST

000002
000076

ADD

#2 R

B8R

10%

MP
8LO

#ILF76,R2
40%

40$:

JEND OF

o AN AR AR AR

J*TEST 51
e

R AR AR A

AR AN AN

AR A

IF NOT DONE

;BRANCH IF DONE TEST

R A A

TEST

AR A AR A RAR N AR AR AR N AR AN AN RSN NNRR AR

SET LSC TEST
AR AR

AR A AR A A

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

“4

010203

NN RN

RN AN RN

Cl
Té

CZRMPAQ RMO5/3/2 DSKLS ST 1
151
SET LSC TEST
027242
027242
027244

027262
2729
2730 027270
2731 027274
2732
2733
2734 927302
2735 027306
2736 027314
2737 027322
2738 027330
2739 027336
2740 027344
2741 027352
2742 027354
2743 027360
2744
2745
2746 027362

2750 027410
2751
2752
2753 027414

2754 027422
2755 027430
2756 027436
2757 027440
2758 027446
2759
2760 027450
2761
2762

000004
000240

MACRO v03.01

1STS1:

012737

001100
001276
001462
000051

001226

010037
062737

001136
000042

001136

004737

055614

012760
012760
012760

000001
040001

000000
000042
173777

000024
000024
000014
000042

B 12

11-APR-80 13:58:55 PAGE 12-55

gggps
#STACK, SP
$BASE , RO
TSTQUE ,R1

MOV
ADD

RO, $8DADR
#RMER2
, $8DADR

001140

#DMD ,RMMR1 (RO)
:LOAD RMMR1
#DMD | DBEN, RMMR1 (RO)
:LOAD RMMR1
#0,RMERT(RO)
;LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2

BIC
BEQ

#~CLSC, SBDDAT
108

RMER2 (RO) , $BDDAT

CLR
EMT

000000

004777

152120

012760
016037
042737
001004
012737

000001
000042
173777

000024
001142
001142

004000

001140

001530

208:

$GDDAT
161

CLOCK ENABLED,

2763

2764 027476
2765 027502

2766 027502

SET

;BRANCH IF LSC IS ZERO

GO AND WAIT

FOR ONE

#GO,RMCS1(RO)

;LOAD RMCS1

JSR

PC.aCLOCK

*START THE CLOCK

MOV

IST
BNE
JSR

#1,WATCH

WATCH
20$
PC.aSTOP

IS RESET

;STORE RMER2 AT $BDDAT

Moy

SHOT

TO SET

*SET WATCHDOG TIMER VALUE
;WAIT FOR WATCH ZERO
*STOP THE CLOCK

;ONE SHOT SHOULD BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET.
MOV
MOV
BIC
BNE
MOV
EMT

#DMD ,RMMR1(RO)
:LOAD RMMR1
RMER2 (RO) , $BDDAT
:STORE RMER2 AT $BDDAT
#~CLSC, $SBODAT
308
:BRANCH IF LSC SET
#LSC.SGDDAT
162

308 :

;END OF TEST

ttt'tttttt*tfitttttt*t'ittttttt'fittttttltttifitttttifittttt'tttttt

CRTEST 52

DECODE TEST

. .2333232222233 22223222

027450
027450
027452
027454
027460
027464
027470

*:SET TEST NUMBER IN APT MAIL BOX

MOV
MOV
MOV
MOV

%giTH DEBUG

104162

#51,8TESTN

MOV

001142

000001
000001
152130
001530

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

;INITIALIZE AND VERIFY THAT LOSS OF SYSTEM CLOCK. 'LSC'',
JSR
PC,CNTCLR
;60 CLEAR CONTROLLER

001142

012760
012737
004777
005737
001375

;SCOPE CALL

MOV
MOV
MOV

MOV

SEQ 0144

000004
000240

75T52:

012706
013700
013701
012737

001100
201276
001462
000052

005037

001422

04737

030062

zggpf

R S

R R R

282200

;SCOPE CALL

MOV

#STACK, SP

:LOAD THE STACK POINTER

MOV

TSTQUE ,R1

#52,8TESTN

*R1

CLR

RMER10

:NO ERROR FIRST TEST

JSR

PC,100%

:INITIALIZE

MOV
001226

322232222222

$BASE , RO

‘RO = UNIBUS ADDFESS

= POINTER TO DEVICE

*:SET TEST NUMBER IN APT MAIL BOX

%%gflPfiO RMOS/3/2 DSKLS TST
DECODE TEST

2767
2768
2769 027506
2770 027514
2771 027522
2772 027526
027526
2773 027534
2774 027542
2775 027544
2776 027546
2777 027554
2778 027562
2779 027564
2780 027570
2781 027572
2782 027576
2783 027602
2784 027610
2785 027612
2786 027614
2787 027614
2 788
2789
2790 027620
2791 027626
2792 027634
2793 027640
027640
2794 027646
2795 027654
2796 027656
2797 027660
2798 027666
2799 027674
2800 027676
2801 027702
2802 027704
2803 027710
2804 027714
2805 027722
2806 027724
2807 027726
2808 027726
2809
2810

2811
2812
2813
2814

027732
027740
027746
027752
027752

2815 027760
2816 027766
2817 027770
2818 027772
2819 030000
2820 030006

MACRO v03.01

SEQ 0145

013760
012760
012703

001422
000023
000003

000014
000000

012760
012760
005303
001370
016037
042737
001414
005737

141001
041001

000024
000024

104163
000522

MOV

10%:

MOV

Igte)g

030062

013760
012760
012703

001422
000021
000003

000014
000000

012760
012760
005303
001370
016037
042737
001414
005737
001462
005037
010037
062737
104163
000455

141001
041001

000024
000024

000012
177677

001142
001142

30%:

000014
000000

041001

141001

000024
000024

000024
077777

001142
001142

s ISSUE NEXT CLOCK IF COUNT NOT 0

208

;BRANCH IF VvV IS ZERO

$GDDAT
RO, SBDADR
#RMDS
, $BDADR

;SETUP ERROR MESSAGE

80%

;SKIP

JSR

PC.100%

;INITIALIZE AND SET DIAGNOSTIC MODE

708

163

;BRANCH IF VvV SHOULD BE SET

RMER10,RMER1(RO)
#RIP!GO,RMCS1(RO)

;LOAD RMER1
;LOAD RMCS1

MOV

#3,R3

MOV

#DMD !MUR ! DBEN! DBCK

BNE
MOV
BIC
BEQ

308
s ISSUE NEXT CLOCK IF COUNT NOT ZERO
RMDS (RQ) ,$8DDAT ;STORE RMDS AT $BDDAT
#~CVV,$8DDAT
408
;BRANCH IF VOLUME VALID NOT SET

gg}/

BEQ
CLR
MOV

ADD

40%:

001422
000051
000002

108

CLR
MOV
ADD

MOV
MOV

001136

013760
012760
012703

;LOAD RMMR1

RMER10

TST

030062

#DMD !MUR ! DBEN! DBCK ,RMMR1 (R()

ggMD!MUR!DBEN,RM‘R1 (RO)

;EXECUTE A READ IN PRESET AND CHECK VOLUME VALID

001422

004737

;LOAD RM(S1

TST

EMT

20%:

#3.,R3

RMDS (RQ) ,$8DDAT ;STORE RMDS AT $BDDAT
#*CVV,$BDDAT

BEQ

001136

#PACACK !GO,RMCS1(RO)

MOV
BiC

BEQ

001422

001140
001136
000012

MoV

BNE

004737

012760
012760
005303
001370
016037
042737
001414

JEXECUTE A PACK ACKNOWLEDGE AND CHECK VOLUME VALID
MOV
RMER10,RMERT (ROD)
:LOAD RMFR1

000012
177677

001140
001136
000012

¢ 12

11-APR-80 13:58:55 PAGE 12-56

EMT
BR

JSR

;R3=CLOCK COUNT

ggHD.'MJR!DBEN.R"‘R1 (RO)

RMER10

708
$GDDAT
RO, $BDADR

,RMMR1(R0)

;LOAD RMMR1

;BRANCH IF VOLUME VALID SHOULD BE SET
;SETUP ERROR MESSAGE

#RMDS
, $BDADR

163
80%

:SKIP

PC,100%

JINITIALIZE AND SET DIAGNOSTIC MODE

JEXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED

50%:

MOV
MOV
MOV

RMER10,RMER1(RO)
#WCD!GO,RMCS1(RO)

MOV

#DMD !MUR ! DBEN ! DBCK ,RMMR1 (R()

g(EJ\é

BNE

MOV
8IC
BEQ

#2,R3

;R3=CLOCK COUNT

ggMD.'MUR!DBEN.RH’RHRO)

508

sLOAD RMER1
;LOAD RM(CS1

;LOAD RMMR1

s ISSUE NEXT CLOCK IF COUNT NOT ZERO

RMMR1(RO) ,$8DDAT
;STORE RMMR1 AT $BDDAT
#*C0CC,$BDDAT
60%
;BRANCH IF OCCUPIED IS RESET

CZRMPAQ RMOS/3/2 DSKLS ST 1
DECODE

2821 030010
2822 030014
2823 030016
2824 030022
2825 030026
2826 030034
2827 030036

TEST

005737
001415
005037
010037
062737
104164

MACRO v03.01

D 12
11-APR-80 13:58:55 PAGE 12-57

001422
001140
001136
000024

TST

RMER10

ADD

#RMMR1 , $8DADR

BEQ
CLR
MOV

001136

708
$GDDAT
RO,$BDADR

;BRANCH IF OCCUPIED SHOULD BE SET
;SETUP ERROR MESSAGE

164
80$

EMT
BR

000410

SEQ 0146

éggLUME VALID AND OCCUPIED DID NOT SET~SEE

005737
001005

001422

TST

RMER10

BNE

80%

;BRANCH IF

COMP ERROR WAS A(TIVE

(COMP ERROR WAS SET

- COULD NOT SET V¥6gR OCCUPIED=-SUSPECT DECODE FLOP NOT SETTING

104165

EMT

JREPEAT

TEST WITH COMPOSITE ERROR ACTIVE-VERIFY

THAT DECODE

FLOP

°ggES NOT SET, AS INDICATED BY VOLUME VALID AND OCCUPIED.

012737
000611

040000

000510

001422

MOV
BR

ggNS.RHER1O

;USE UNSAFE

80%:

200$

;END OF

AR AAEA

AR Rl

ittt

*SUBROUTINE USED DURING TEST
SRS

ittt

TO SET COMP ERROR

TEST
ittt

222002

stttaditliaditldditsditdtsdssiislissississsyty

;USING DJAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR.
:VERIFY THAT VvV, ERR, AND OCC ARE ZERO.

100$:

JSR

MOV
MOV
MOV
MoV

CLR

MOV
ADD
MOV

2875 030230

001402
104143
000447

B8IC
BEQ
EMT
BR

016037
042737
001402
104135
000436

MOV
BIC
BEQ
EMT
B8R

016037
042737
001407
010037
062737
104166

000024
077777
001136
000024

120%:

MOV
BIC
BEQ
MOV
ADD

EMT

PC,CNTCLR

26O CLEAR CONTROLLER

#DMD ,RMMR1(RO)
;LOAD RMMR1
#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMR
#0 ,RMER1 (RO)
;LOAD RMER1
#0 ,RMER2 (RO)
;LOAD RMER?2
$GDDAT
;SETUP FOR ERROR MSG
RO, SBDADR
ARMDS
, SBDADR

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

#“CERR, $BDDAT

}lgs

;BRANCH IF COMP ERROR ZERO

1408

;SKIP TEST

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

#-CVV,$BDDAT

}%gS

;BRANCH IF VOLUME VALID ZERO

1408

;SKIP TEST

RMMR1 (RO) , $BDDAT
#2COCC,$BDDAT

1308
RO, $BDADR
?22MR1,$BDADR

;STORE RMMR1 AT $BDDAT
JBRANCH IF OCCUPIED ZERO
;SETUP ERROR MESSAGE

C2
T

DECODE

gggg 030232

TEST

E 12

11-APR-80 13:58:55 PAGE 12-58

000420

B8R

1408

SEQ 0147

:SKIP TEST

2878

;TO VERIFY THAT THE DECODE FLOP [S RESET, LOAD AN [LLEGAL FUN"TION

2880 030234

130s:

2879

2881 030234
2882 030242

;IN RMCST

012760
016037

2883 030250
2884 030256
2885 030260
2886 030264
2887 030272
%ggg 030274

042737
001410
010037
062737
104167
012716

%gg? 030300

000207

000024
000014

177776

001136
000014

000000
001142
001142

MOV
MOV

140%:

BIC
BEQ
MoV
ADD
EMT
MOV

150%:

RTS

001136

030302

AND VERJFY THAT ILF DOES NOT SET.

#ILF24 ,RMCST(RO)
RMERT (RO) , $BDDAT
#~CILF,SBDDAT
1508
RO, $8DADR
#RMER1, $8DADR
167
#2008, (SP)
PC

;LOAD RMCS1
:STORE RMER1 AT $8DDAT
;BRANCH IF ILF IS ZERO
JSETUP ERROR MESSAGE
;DONT GO BACK TO TEST
JRETURN TO TEST OR EXIT TEST

533% 030302

2008 :

289{.

.':tttttttttttfitttttttttttttttfittttttttttttttttttttttttttttttttitt

;*TEST 53

SET/RESET VOLUME VALID TEST

::tttttttttttttiQttttttt'tttttttttttttttttttttt*tttttttttttttttlt

030302
030302
030304
030306

000004
000240
012706

001100

030316

013701

001462

030312

2895 030322
2896 030330
2897 030334

gggg 030342

013700

012737
010037
062737

012702

2900
2901 030346
2902 030346

004737

2907 030402
2908 030410
2909 030416
2910 030420
223}; 030424

016037
042737
001403
005037
104135

2903 030352
2904 030360
2905 030366
2906 030374

012760
012760
012760
012760

7$7153:

001276
000053

001226

001136
000012

001136

030546
055614

000001
041001
000000
000000

000012
177677

000024
000024
000014
000042

177701
000001

2919 030444

116204

000001

2921 030454
030454

010360
042704

012760

JLOAD THE STACK POINTER

‘RO = UNIBUS ADDRESS

MOV

#53,$TESTN

©:SET TEST NUMBER IN APT MAIL BOX

MoV
ADD

RO, $8DADR
#RMDS
, SBDADR

TSTQUE ,R1

;R1 = POINTER TO DEVICE

#1008 .R2

JSETUP REGISTER ADDRESS

;R2=TABLE POINTER

JINITIALIZE AND USE DIAGNOSTIC MODE TO RESET VOLUME VALID
10s:
JSR
PC,CNTCLR
;GO CLEAR CONTROLLER

MOV
MOV
MOV
MOV
MOV
BIC
BEQ
CLR
EMT

#DMD
. RMMR1 (RO) -LOAD RMMR1
#DMD IMUR ! DBEN ,RMMR1 (RO) ;LOAD RMMR1
#0,RMER1 (RO)
:LOAD RMER1
#0.RMER2 (RO)
*LOAD RMER2

RMDS
(RO) ,$8BDDAT :STORE RMDS AT $BDDAT
#-CVV, $BDODAT
208
JBRANCH IF VOLUME VALID ZERO
$GDDAT
135

JEXECUTE THE FUNCTION CODE

111203
042703
052703

2920 030450

ASTACK,SP

$BASE ,R0O

MOV

001140

2914 030426
2915 030426
2916 030430
2917 030434

2918 030440

:SCOPE CALL

MOV

001142
001142

SCOPE
NOP
MOV

20$:

MOVB
BIC
BIS

(R2).R3
#~CILF76,R3
#GO,R3

IN THE TABLE

;GET FUNCTION CODE

000000

MOV

R3,RMCS1(RO)

177400

BIC

#~C377
R4

MOV

A#DMD ' DBEN'!MUR ! DBCK ,RMMR1 (R0O)

141001

MOVB

000024

308:

1(R2),Ré4

;LOAD RMCS?

*GET CLOCK COUNT
:LOAD RMMR1

~ira

152

MACRO v03.01

CIRMPAO RMOS/3/2 DSKLS TST 1

153

F 12
11-APR-80 13:53:55 PAGE 12-59

MACROC v03.01

SET/RESET VOLUME VALID TEST

2922 030462
2923 030470
2924 030472
2925 030474
2926 030502
2927 030510
2928 030512
2929 030516
2930 030524
31 030526
3
2934 030530
2935 030530
2936 030534
2937 030540
2938 030542
2939 030544
2941
2942 030546

012760
005304
001370
016037
042737
001007
010337
012737
104170
000406

000024

000012
177677

001142
001142

001174
000100

001140

062702
105762
100401
000701
000403

BNE
MOV
BIC
BNE

308
;ISSUE COCKS TIL R4 ZERO
RMDS
(R0) , $BDDAT :STORE RMDS AT $BDDAT
#~CVV, SBODAT
408
:BRANCH IF VOLUME VALID SET

MOV

#VV,$GDDAT

MOV

R3,$TMPO

EMT
BR

000002
000001

THE

*SAVE FUNCTION CODE FOR MSG

170
508

TABLE POINTER,

EXIT

DONE

ADD

#2 ,R2

321

?82

SEXIT IF COUNT IS NEGATIVE

2008

;:JUMP OVER TABLE

TSTB

508:

;LOAD RMMR1

1(R2)

FUNCTION CODES AND CLOCK COUNTS

.BYTE

RIP

;READ IN PRESET COMMAND

022
003

.BYTE
‘BYTE

PAKACK
3

:PACK ACKNOWLEDGE

000
377

.BYTE

2946 030550
2947 030551
2948
2949 030552
2950 030553
2951
2952 030554
2953
2954

‘BYTE

200%:
A

:END OF

ALt

LATEST 54
000004
000240
012706
013700
013701
012737

TST54:
001100
001276
001462
000054

001226

005002

2958 030604
030610
030612
2959 030614
sgg? 030616

004737
000402
104000
000460
012704

055370

2962
2963 030622
2964 030630
2965 030632
2966 030636

012760
010203
052703

041001

010360

108:

000002

000001
000000

20%:

000024

COMMAND

:END OF TABLE

-1

BYTE

2956 030602
2957 030604

ggno:oaensnua,nrrn1(no>

igegLE OF

020
003

030554
030554
030556
030560
030564
030570
2055 030574

ggg

iSQVANCE

2943 030546
2944 030547
2945

041001

SEQ 0148

sttt

ILLEGAL

TEST
22222222

SRR 20

2R B2

FUNCTION TEST

A AR AN AN R A AN AR TR RN AR AN AR AR AN RN RN RN AN NANAANRNRNRAANNRNNRARY

SCOPE
NOP
MOV
MOV
MOV
MOV

;SCOPE CALL
KSTACK,SP

;LOAD

TSTQUE ,R1
#54 ,STESTN

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

CLR

JINITIALIZE FUNCTION CODE VALUE

JSR
B8R
EMT
B8R

PC,SETVV

;GO SET

MOV

$BASE RO

20%
50%

#2 R4

THE

STACK POINTER

;RO = UNIBUS ADDRESS

VOLUME

VALID

;BRANCH TO 208 IF NO ERROR
;SKIP TEST IF ERROR

JR4=CLOCK COUNT

:EXECUTEMSCE TEST FUNCTION CODE AND VERIFY ILF
MOV
BIS
MOV

#DMD !MUR ! DBEN,RMMR1
(R0O)

R2,R3
#GO,R3
R3,RMCS1(RO)

;LOAD RMMRI]

;SETUP FUNCTION CODE
sLOAD RMC(CS1T

IN R3

-4

CIRMPAO RMOS/3/2 DSKLS TST 1

~Ira

—

CZRMPAQ RMO5/3/2 DSKLS TST 1

154

ILLEGAL FUNCTION TEST

2967 030642

030642

2968 030650

2969 030656

2970 030660
2971 030662
2972 030670
2973 030676
2974 030706
2975 050712
2976 030720
2977 030722
2978 030726
2979 030734
ggg? 030740
2982
2983 030742
2984 030742
2985 030746
2986 030752
2987 0307564

Sggg 030756

012760
012760

005304

001370
016037
042737
016237
042737
023737
001410
010037
062737
010237
104171

062702
022702
103401
000713

141007

041001

MACRO v03.01

000024

308:

000024

000014
177776
062752
177776
001140

001142
001142
001140
001140
001142

001136
000014
001174

001136

G 12

11-APR-B0 13:58:55 PAGE 12-60

SEQ 0149

MOV

#DMD 'MUR ! DBEN ! DBCK ,RMMR 1 (R0)

DEC

MOV

BNE
MOV
BIC
MOV
BIC
CMP
BEQ
MOV
ADD
MOV
EMT

#DMD iMUR | DBEN.RMMR
1 (RO)

:LOAD RMMR1

;LOAD RMMR1

308
RMER1(R0) , $BDDAT
:STORE RMER1 AT $8DDAT
#~CILF ,$8BDDAT
JSETUP ACTUAL ILF STATUS
FNCDTB(R2) ,$GDDAT
;GET EXPECTED ILF STATUS
#-CILF,SGDDAT
$GDCAT
. S8DDAT
408
sBRANCH IF ILF IS OK
RO, SBDADR
SSETUP FOR ERROR MSG
#RMERT, $BDADR
R2,$TMPO
171

JADVANCE TO THE NEXT FUNCTION CODE AND REPEAT TEST
408:
ADD
#2,R2
CMP
#ILF76.R2
BLO
508
BR
108

000002
000076

508 :

;END OF TEST

""ttttt'.t'..Qttttt'l’.tt"t'tt"tttttttfittttttttfitttttttttttttttt

;*TEST

OCCUPIED TEST

:"'ttttttt'fitt'.ltt".ttt"tttt!t'tttttttttfitttttttttttttttt'ttt'

030756
030756
030760
030762

000004
000240
012706

030772
2991 030776

013701
012737

030766

gggg 031004

013700

004737

031014

104000

gggg 031016

2999
3000 031020
3001 031020
3002 031026
3003 031030
3004 031036
3005 031040

001100

SCOPE
NOP
MOV

#STACK,SP

;LOAD THE STACK POINTER

001462
000055

MOV
MOV

TSTQUE ,R1
#55,8TESTN

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

CLR

001276

MOV
001226

005002

299
2995 031006
2996 031006

031012

75755

000402

055370

000024

000001
000000
000002

3007

3008 031044

3009 031044

3010 031052

B8R

208

B8R

508

EMT

041001

$RASE ,R0O

:GET THE DEVICE READY
108:
JSR
PC,SETVV

000464

012760
010203
052703
010360
012704

:SCOPE CALL

‘RO = UNIBUS ADDRESS

;INITIALIZE FUNCTION CODE

;GO SET VOLUME VALID

:BRANCH TO 20$ IF NO ERROR

;ENABLE DEBUG CLOCK AND LOAD THE FUNCTION CODE
208:
MOV
#DMD 'MUR ! DBEN ,RMMR1(RO) :LOAD RMMR1
MOV
R2,R3
SASSEMBLE FUNCTION CODE AND
BIS
#GO,R3
“GO BIT IN R3
MOV
R3.RMCS1(RO)
;LOAD RMCS1
MOV
#2.R4
:R4=CLOCK COUNT

-STEP THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE

012760

141001

041001

000024

$0s:

MOV

#DMD 'MUR ! DBEN ' DBCK ,RMMR1 (RO)

:LOAD RMMR1

#DMD 'MUR | DBEN_RMMRT
(RO) :LOAD RMMR1

MACRO v03.01

<3
OSSN
Vi
S

nNOoN

a
b
b Th

SO
O

b
O
O
O
P

bbb
bl

3029
3030 031154
3031 031154
3032 031160
3033 031164
3034 031166
3035
3036 031170
3037
3038

031170
031170
031172
031174
031200
031204
031210

3039
3040
3041 031216
3042 031222
3043 031230
3044 031236
3045 031244
3046
3047
3048 031252
3049 031260
3050 031266

3051
3052
3053 031274
3054 031302
3055 031306
3056 031306
3057 031314

DEC

BNE
000024
077777
001140
001000

001142
001142

100000
001140

001140

001174
001136
000024

O
P

D rd

016037

CLR

35$:

MOV

#0CC,$GDDAT

3
BEQ

MOV
MOV
ADD
EMT
BR

001136

000002
000076

$GDDAT

#AOE ,FNCDTB(R2)

iggVANCE

062702
022702
103401
000707

308

BIT

BEQ

;ISSUE NEXT CLOCK TIL R4 ZERO

CMP
BLO

B8R

;STORE RMMR1 AT $BDDAT
;GENERATE OCC FROM AOE

358

$GDDAT, $8DDAT
408

;BRANCH IF 0CC IS OK

R2.,$TMPO

*SAVE FUNCTION CODE

R0, $8DADR
#RMMR1
, SBDADR
173
508

TO NEXT FUNCTIONCODE,

ADD

SEQ 0150

;VERIFY OCCUPIED STATUS
MOV
RMMR1 (RO) , SBDDAT
BIC
#~COCC, $BDDAT

062752
001142

]

H 12
11-APR~80 13:58:55 PAGE 12-61

005304
001370
ololeololele)
W NN NN N NN NN

CIRMPAQ RMOS/3/2 DSKLS ST 1
155
OCCUPIED TEST

*SETUP REGISTER ADDRESS

EXIT

DONE

#2.R2

#ICF76.R2
508

;EXIT IF DONE

108

508 :

;END OF TEST

":t*tttt*fi*ttttifititfit*ttt'tt'tfitttitfitt*tt'fi'tittfifiitttitttt'ttt

S*TEST 56

READ IN PRESET TEST

":1'ttt*tttt*tt*t*'tfit**ttt"'tfitt'tfitttfittt*tfittl’ttitt'itt'tiQttt

000004
000240
012706

013700
013701
012737

004737
012760
012760
012760
012760

TSTS56:

001100
001276
001462
000056
055614

zggps

MOV
MOV
MOV

001226

MOV

;SCOPE CALL

#STACK, SP
$BASE ,RO
TSTQUE ,R1

#56,$TESTN

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

$:SET TEST NUMBER IN APT MAIL BOX

;CLEAR AND ENABLE DEBUG CLOCK - LEAVE VOLUME VALID RESET
JSR

000024
000024
000074
000042

177777
177777
177777

000006
000034
000032

0
0
0

000021
000003

000000

141001

041001

000024

MOV
MOV
MOV
MOV

PC.CNTCLR

;6O CLEAR CONTROLLER

#DMD ,RMMR1(RO)
:LOAD RMMRT
#DMD TMUR ! DBEN,RMMR1
(RO) ;LOAD RMMR1
#0,RMER1 (RO)
:LOAD RMER1
#0.RMER2 (RO)
*LOAD RMER2

;LOAD ALL ONES IN RMDA, RMDC AND RMOF
MOV
#-1 ,RMDA (RO)
:LOAD RMDA
MOV
MOV

#-1.RMDC (RO)
#-1,RMOF (RO)

*LOAD RMDC
*LOAD RMOF

;LOAD READ IN PRESET COMMAND AND STEP THE CLOCK TILL SET PULSE
MOV
#RIP!GO,RMCST(RO)
;LOAD RMCS1
108
MOV
#3,R2
$R2=CLOCK COUNT

MoV
MOV

#DMD 'MUR ! DBEN ' DBCK ,RMMR1 (RO)
#DMD iMUR | DBEN .RMMRT (RO)

:LOAD RMMR1

:LOAD RMMRI

I17

CZIRMPAQ RMOS/3/2 DSKLS IST 1
156
READ IN PRESET TEST

3058 031322
3059 031324
3060
3061
3062 031326
3063 031332
3064 031334
3065 031336
3066 031342
3067 031346
3068 031350
3069 031354
3070 031360
3071

3072
3073 031362
3074
3075 031364
3076
3077

MACRO v03.01

I 12

11-APR-80 13:58:55 PAGE 12-62

005302
001370
016002
005702
001413
016002
042702

01401

DEC
BNE
MoV
TST
8EQ
MoV

000034
176000

BIC
BEQ

000032
161577

MOV
BIC

BEQ

ggDA(RO).RZ

20%

;STORE RMDA AT RZ

;BRANCH IF RMDA IS ZERO

RMDC(RO) ,R2
#XNUDC ,R2

;STORE RMDC AT R2
;CLEAR UNUSED BITS

RMOF (RO) ,R2

;STORE RMOF AT RZ2

208

A#XNUOF ,R2
208

;BRANCH IF RMDC IS ZERO

;CLEAR UNUSED BITS
;BRANCH IF RMOF IS ZERO

EMT

20%:
S e AR

JEND OF TEST
R A AN RN AR AR NN AN R

SxTEST 57
15157:

010037

062737
005037

001100
001276
001462
000057

001136
000032
001140

TSTQUE ,R1

;R1

000021
000003

000000

012760
012760
005302
001370

141001
041001

000024
000024

016037
042737
001401

000032

nonrno

——

—_—

AR NN

;RO = UNIBUS ADDRESS

= POINTER TO DEVICE

2;SET TEST NUMBER IN APT MAIL BOX

RO,$BDADR

;SETUP REGISTER ADDRESS AND

$GDDAT

JEXPECTED RMOF

JINITIALIZE AND SET BITS IN RMOF
JSR
MOV
MOV
MOV
MOV
MOV

AR R AR

;LOAD THE STACK POINTER

$8ASE RO

#RMOF
, $BDADR

000024
000024
000014
000042
000032

R AR AR R AR

#STACK, SP

MOV
ADD

CLR

AR N RN AN

;SCOPE CALL

001136

012760
012702

104175

A AN AR R AR AR AN RN AR RAN

#57,8TESTN

055614
000001
041001
000000
000000

161577

SCOPE
NOP
MOV
MOV
MOV

A RRNRAARNRNA RN NRNRR

TEST

MOV

004737
012760
012760
012760
012760
012760

177777

AR AR A

AR NN R AN AR A AN ARA NN AR

RIP/RMOF

001226

ol
OO

309
3092 031472
3093 031500
3094 031504
031504
3095 031512
3096 031520
3097 031522
3098

;ISSUE 3 CLOCKS

JREAD IN PRESET gg?flAND DIDNT CLEAR ANY OF THE 3 REGISTERS

SN AR

3078
3079 031412
3080 031416
3081 031424
3082
3083
3084 031430
3085 031434
3086 031442
3087 031450
3088 031456
3089 031464
3090

R2
108

;SEE IF RMDA OR RMDC OR RMOF [S ZERO

000006

104174

013701
012737

SEQ 0151

PC,CNTCLR
#DMD ,RMMR1(RO)

;GO CLEAR CONTROLLER
;LOAD RMMR1

#DMD !MUR ! DBEN,RMMR1(RO) ;LOAD RMMRI1
#0,RMER1 (RO)
;LOAD RMER1

#0 ,RMER2 (RQ)

#-1,RMOF (RO)

;LOAD RMERZ2

:LOAD RMOF

JEXECUTE A READ IN PRESET IN DIAGNOSTIC MODE TILL SET PULSE
:
108

MOV
MOV

MOV
MOV
DEC
BNE

#RIP'GO,RMCS1(RO)

#3.R2

#DMD !MUR ! DBEN ' DBCK ,RMMR1 (R0)
;LOAD RMMR1
#DMD !MUR !DBEN,RMMR1(R0O) ;LOAD RMMR1

108

;VERIFY THAT RMOF
MOV
BIC
BEQ
EMT

sLOAD RM(CS1

:R2=CLOCK COUNT

;ISSUE s CLOCKS

[S ZERO

RMOF (RO) ,$BDDAT ;STORE RMOF AT $BDLCAT

#XNU
, $8DDAT
OF

?9?

;BRANCH IF RMOF

S ZERO

TEST

SEQ 0152

3104
3105 031544
3136
3107

:
208

3109 031572
3110
3N

3112 031576
3113 031602
3114 031610
3115 031616
3116 031624

3117 031632
3118 031640
3119
3120
3121 031646
3122 031654
3123 031660
031660
3124 031666
3125 031674
3126 031676
3127
3128
3129 031700
3130 031706
3131 031712
3132 031714
33 031720
031726

;END OF TEST

't't"itttttt.i'tttt"'ttttttttt.tttttttt*ttttttt.tttt'tt.'.tt'

'TEST 60
SRR

031544
031544
031546
031550
031554
031560
031564

J 12

11-APR-80 13:58:55 PAGE 12-63

000004
000240
012706

78760:
001100

013700
013701
012737

001276
001462
000060

005037

001140

004737
012760
012760
012760
012760
012760
012769

055614
000001
041001
000000
000000
177777
177777

012760
012702

000021
000003

000000

012760
012760
005302
001370

141001

000024
000024

016037
005737
001406
010037
062737
104176

041001

000006
001142

001136
000006

001226

AR R RN AR NN RN A AR R TN

SCOPE
NOP
MOV
MOV

3145 031762
3146
3147

104177

000034

AR R AN ANARNNNANRNRRNRNANR
AR
R AR NN AN

;SCOPE CALL
#STACK,SP

$8ASE ,RO

MOV
MoV

TSTQUE ,R1
#60,STESTN

CLR

$GDDAT

sLOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

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

;CLEAR, ENABLE DEBUG CLOCK, THEN PRESET RMDA AND RMDC
000024
000024
000014
000014
000006
000034

001142

JSR

PC,CNTCLR
:GO CLEAR CONTROLLER
#DMD ,RMMR1(RO)
;LOAD RMMR1
#DMD !MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#0 ,RMER1(RQ)
;LOAD RMER1

MoV
MOV

#-1,RMDA (RO)
#=1,RMDC(RO)

MOV
MOV
MoV
MOV

#0,RMER1T (RO)

;LOAD RMER1

:LOAD RMDA
;LOAD RMDC

EXECUTEMSEAD IN PRESET TILL SET PULSE
#RIP!GO,RMCS1(RO)
10%:

;LOAD RMC(CS1

Mov

#3,R2

MOV
MOV
DEC
BNE

#DMD !MUR ! DBEN!DBCK ,RMMR1 (R0O)

;LOAD RMMR1

ggMD!MUR!DBEN,RNFR1(RO)

;LOAD RMMR1

108

;ISSUE 3 CLOCKS

JVERIFY RMDA IS ZERO
MOV
TST

BEQ
MOV
ADD
EMT

001136

+VERIFY RMDC

016037
042737
001406
010037
062737

RMDA/RMDC/RIP TEST

20$:

176000

001136
000034

MOV
BIC
8EQ
MOV
ADD
EMT

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

20%

RO, $BDADR

JBRANCH IF RMDA RESET

#RMDA $8DADR
iro

IS ZERD

FMDC(RO) ,$BDDAT ;STORE RMDC AT $8DDAT

#XNUDC
, $BDDAT

308

RO, $B8DADR
fg;DC,saDADR

30%:

;BRANCH IF RMDC RESET

JEND OF TEST

t'fit!ififitttttttttttttttttttt'tttttttttti*ttItittttt't'ttttt"'t

*TEST €l

OF FSET COMMAND TEST

~ i

RIP/RMOF

MACRO v03.01

—

CZRMPAO RMOS5/3/2 DSKLS TST 1

SEQ 0153
AR A

3157
3158 032050
3159 032056
3160 032064
3161 032070
032070
3162 032076
3163 032104
3164 032106
3165
3166
3167 032110
3168 032116
3169 032124
3170 032126
3171 032130
3172
3173

001226

010037
062737
012737

001136
000012
000001

001136
001140

MOV
ADD
MoV

004737
000402

055370

104000

000433

012769

000000

000034

012760
012760
012702

041001
000015
000002

000024
000000

012760

141001
041001

000024
000024

016037
042737
001001

000012
177776

3155 032042

SCOPE
NOP

MOV
MOV
MOV
MOV

—

3153 032030
032034
032036
3154 032040

001100
001276
001462
000061

108:

104200

PN R R AN

20%:

LOAD THE STACK POINTER

TSTQUE ,R1
#61,STESTN

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

$8ASE R0

RO, $BDADR

#0M,S$GDDAT

#0,RMDC (RO)

PC,SETVV

;GO SET VOLUME

108

VALID

;BRANCH TO 108 IF NO ERROR

¢LOAD RMDC

#DMD !MUR !DBEN,RMMR1(RO)

;LOAD RMMR1

MoV
MOV
MOV

#OFFSET!GO,RMCS1(RO)
#2.R2

MOV

#DMD !MUR ! DBEN! DBCK ,RMMR1 (RQ)

:LOAD RM(CS1
sR2=CLOCK COUNT
:LOAD RMMR1

ggMD!MJR!DBEN.RM’RHRO)

;LOAD RMMR1

208

;ISSUE 2 CLOCKS

;VERIFY THAT OFFSET MODE 1S SET
MOV
BIC

:
408
SALE

BNE
EMT

TST62

RMDS
(RQ) ,$8DDAT ;STORE RMDS AT SBDDAT

#-COM, $8DDAT

408

;BRANCH IF OM IS SET

200

ettt

;END OF TEST
sl

izt

222822

282R¢

RETURN TO CENTER TEST
AR R A AR A A AN AR AN

SCOPE
NOP
MOV
MOV

AR AN R R RN

001100
001276
001462
000062

001226

MOV

3175 032156
3176 032162

010037
062737

001136
000012

001136

ADD

#RMDS
, $BDADR

3178 032170
032174
032176
3179 032200
3180

004737
000402

055370

JSR
BR
EMT
B8R

PC,SETVV

MOV

A AN R A RAN RN A AR RAR R AN

A RN RN

;SCOPE CALL

012706
013700
013701
012737

104000

;RO
= UNIBUS ADDRESS

A#RM
, $SBDADR
DS

MOV

MOV
DEC
BNE

000465

NAN

#STACK,SP

408

SRR AR

3177

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

;SCOPE CALL

JSR
BR
EMT
BR

s*TEST 62

000004
000240

AR AN A A AR AN T

;ENABLE DEBUG CLOCK AND EXECUTE OFFSET COMMAND

—

3151 032022
3152

000240
012706
013700
013701
012737

—r

3149 032010
3150 032014

18761

(ol
ol

3148

031762
031762
031764
031766
031772
031776
032002

K 12
11-APR-80 13:58:55 PAGE 12- 64

#STACK, SP

;LOAD THE

TSTQUE ,R1
#62,$TESTN

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

$BASE RO

STACK POINTER

;RO = UNIBUS ADDRESS

RO, SBDADR

108

60%

;GO SET VOLUME

VALID

;BRANCH TO 108 [F NO ERROR

WTM

MACRO v03.01

-4

CZRMPAQ RMOS/3/2 DSKLS TST 1
161
OFFSET COMMAND TEST

3181
3182 032202
3183 032202
3184 032210
032214
032216
3185

SEQ 0154
%SET OFFSET DIRECTION AND OFFSET

012760
004737
000401

000200
055512

000032

3188 032220

032354

3219 032402
3220 032406
3221
3222 032414

BR
EMT

208

PC,SETOM

:LOAD RMOF

*GO SET OFFSET MODE

*BRANCH TO 20$ IF NO ERROR

ésgABLE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND

3187 032220

3189 032230
3190 032232
3191 032232
3192 032240
3193 032246
3194 032252
032252
3195 032260
3196 032266
3197 032270
3198
3199
3200 032272
3201 032300
3202 032306
3203 032310
3204 032314
3205
3206
3207 032316
3208 032316
3209 032324
3210 032332
3211 032334
3212 032340
3213 032344
3214 032352
3215 032354
3216
3217

#OFD,RMOF
(RO)

JSR

104000

3186

MOV

055370
%08

012760
012760
012702

041001
000017
000002

000024

012769
012760
005302
001370

141001
041001

000024

016037
042737
001403
005037
104201

000012
177776

000000

000024

001142
001142

T
‘o8

JSR

PC,SETWVV

608

MoV

#DMD !MUR ! DBEN,RMMR1
(RO) ;LOAD RMMR1

?fir

:BRANCH TO 308 IF NO ERROR

MOV
MOV

#RTC!GO,RMCS1 (RO)
#2.R2

Mov

#DMD 'MUR ! DBEN ! DBCK , RMMR1 (RO)
ggmoznun:oee~.nrwn1(no>

;LOAD RMMR1

BNE

408

;ISSUE 2 CLOCKS

Q?X

;VERIFY THAT OFFSET MODE

MOV
BIC
BEQ
CLR
EMT

001140

;60 SET VOLUME VALID

30$

*LOAD RMCS1

;LOAD RMMR1

IS RESET

RMDS
(RO) , $BDDAT ;STORE RMDS AT $BDDAT
#~COM, SBODAT
50s
:BRANCH IF OFFSET MODE RESET
$GDDAT
201

gXER’FY THAT OFFSET DIRECTION IS RESET

016037
042737
001410
005037
010037
062737
104202

000032

177577

001140
001136
000032

001142

001136

608 :

mov

BIC
BEQ
CLR
MOV

ADD
EMT

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

#~COFD, $BDDAT
608
$GDDAT
RO, $8DADR

;BRANCH IF OFD

HRMOF
, S8DADR
202

IS RESET

;END OF TEST

",'fittttttttttttttttttttt'itttttittfitttttttttfi*ittfitttttttttfittttt

S*TEST 63

RMDC CLEAR OFFSET TEST

;"tfitttttttttt*tttttttttttttttttttttttttttttttti'tttittttttt'ttt'

TST63:

000004
000240
012706
013700
013701
012737

001100
001276
001462
000063

001226

010037
062737

001136
000012

001136

004737

055370

zggpe
MOV
MOV
MOV

;SCOPE CALL
#STACK, SP
$BASE ,R0
TSTQUE ,R1

MOV

#63,$TESTN

MOV

RO, $8DADR

JSR

PC,SETWV

ADD

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

$:SET TEST NUMBER IN APT MAIL BOX

NRMDS
, S8DADR
;GO SET VOLUME VALID

L 12

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-65

CZRMPAQ RMOS5/3/2 DSKLS TST 1
RETURN TO CENTER TEST

[

RMDC CLEAR OFFSET TEST

032420
032422
3223 032424
3224 032426
3225 832423

M 12
11-APR-80 13:58:55 PAGE 12-66
SEQ 0155

000402

104000
000421

004737
000401

108

055512

104000

3228 032436
3229 032436
3230 032444
3231 032452
3232 032460
3233 032462
3234 032466
3235
3236 032470
3237
3238

032470
032470
032472
032474
032500

3240 032516
3241 032524
3242 032532
3243 032536
3244
3245 032544
032550
032552
3246 032554
3247 032556
3248 032556
3249 032566
3250 032566
3251 032574
3252
3253
3254 032602
3255 032610
3256 032616
3257 032624

3258 032632
3259 032640
3260 032646
3261 032650

Efir

108

;BRANCH TO 108 IF NO ERROR

B8R

408

;SKIP REST OF TEST

JSR
B8R

PC,SETOM
208

EMT

;GO SET OFFSET MODE
*BRANCH TO 20$ IF NO ERROR

éggxre THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO

012760

000000
000012
177776

104203

000034

001142
001142

001140

mov

MOV
BIC
BEQ
CLR
EMT

#0,RMDC (RO)

;LOAD RMDC

RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT
#~COM, $SBODAT
408
$GDDAT
203

408:

;END OF

TEST

;:tttttttttttttttttttttt*tttttttttttttttt*ttfititt*tttt*ttt*tttttt

TxTEST 64

EBL CLEAR OFFSET TEST

",'*ttittttttttttttttt*ttttttt*tttttttttttt*t*ttttttt'tttttttfitttt

TST64:

000004
000240
012706
013700
013701
012737

001100
001276
001462
000064

013737
112737
010037
062737

001330
000037
001136
000012

001226
001414
001414
001136

108

)

055512

012760
013760

010000
001414

000032
000006

012760
012760
012760

041001
000001
061001
041001
000012
177776

000024

001140

000000

000024
000024

001142
001142

20%:

:SCOPE CALL

MOV

#STACK, SP

;:LOAD THE STACK POINTER

MOV

TSTQUE ,R1

:R1

MOV

055370

012760
016037
042737
001403
005037

gggpe

$BASE ,RO

:RO = UNIBUS ADDRESS

= POINTER TO DEVICE

MOV

#64,$TESTN

:;SET TEST NUMBER IN APT MAIL BOX

MOV
MOVB
MOV
ADD

LSTRK ,RMDAC
#31.,RMDAO
RO, SBDADR

ARMDS
, SBDADR

;SETUP LAST TRACK AND
*LAST SECTOR
:SETUP REGISTER FOR ERROR MSG

JSR
?Sr

PC,SETWV
108

;GO SET VOLUME VALID
SBRANCH TO 108 IF NO ERROR

308

JSR

PC,SETOM

MOV
MOV

#FMT16,RMOF
(RO) :LOAD RMOF
RMDAO,RMDA(RO)
:LOAD RMDA

Efir

20$

:SKIP REST OF

TEST IF ERROR

:GO SET OFFSET MODE

:BRANCH TO 208 IF NO ERROR

;FORCE END OF BLOCK AND VERIFY THAT OFFSET MODE IS CLEARED

MOV
MOV

#DMD 'MUR ' DBEN,RMMR1 (RO) :LOAD RMMR1

#GO,RMCS1(RO)

;LOAD RMCS1

MOV
MOV

#DMD 'MUR ' DBEN ' DEBL ,RMMR1 (RO)
:LOAD RMMR1
#DMD i MUR | DBEN .RMMRT (RO) ;LOAD RMMR1

CLR

$GDDAT

MOV
BIC
BEQ

RMDS (RO) , SBDDAT :STORE RMDS AT $BDDAT
#~COM, SBODAT
308
:BRANCH IF OFFSET IS ZERO

—

MACRO v03.01

nlm) ]

CZRMPAO RMOS/3/2 DSKLS TST 1

EBL CLEAR OFFSET TEST

3262 032654
3263 032656
3264
3265

MACRO v03.01

104204

N 12
11-APR-80 13:58:55 PAGE 12-67

308 :

EMT

SEQ 0156

204

;END OF TEST

:.’fi*.'t‘tfi.*tt‘tfi.i't'*""'tt't'tttfitfittfi*ttt'*'fi.ifitt't't"'t'tt

TRTEST 65

RUN AND GO TEST

""*'*Qt.it"*"‘*'t.*itt*fit"i*'t.R*t.itt'.fitfi*tfitfi'ttttit.fit'tifi

032656
032656

000004
000240
012706

013700
013701
012737

3267 032704
3268 032710
3269 032712
3270 032716
3271
3272
3273 032724
3274 032724
3275 032730
3276 032736
3277 032744
3278 032752
3279
3280
3281 032760
3282 032762
3283 032766

033004
3286 033012
3287 033020
3288 033026
3289 033030
3290 033034
3291 033036
3292 033042
3293 033046
3294 033050
3295 033052
3296 033052
3297
3298
3299 033056

3302 033070
3303 033074
3304 033076
3305 033104
3306

TST6S:

001100
001276
001462
000065

MOV

001226

001140
001136
000024

gggps

001136

:SCOPE CALL
#STACK , SP

;LOAD

TSTQUE ,R1

*R1

$8ASE , RO

MOV

#65,$TESTN

CLR
CLR
MOV

$GDDAT
R2
RO, SBDADR

ADD

THE STACK POINTER

*RO = UNIBUS ADDRESS

= POINTER TO DEVICE

:SET TEST NUMBER IN APT MAIL BOX
:INITIALIZE EXPECTED RESULT
“INTIALIZE FUNCTION CODE

#RMMR1
, $8DADR

%SEEAR THE MASSBUS AND ENABLE DEBUG CLOCK

012760

010203
052703
012737
004777
010360
016037

055614
000001
040001
000000
000000

000024
000024
000014
000042

PC,CNTCLR

#DMD ,RMMR1(RO)

MOV
MOV

#0.RMERT(RO)
#0.RMER2(RO)

MOV

;GO CLEAR CONTROLLER
-LOAD RMMR1

#DMD | DBEN , RMMR1 (R0)

:LOAD RMMR1

:LOAD RMER1
:LOAD RMER2

;LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP
000001
000200
146532
000000

000024
137777
001140

146472
001174

R2.R3

JSR
MOV

PC,aCLOCK
R3.RMCST(RO)

mov

RMMR1 (RO) , $BDDAT

CMP
BEQ

$GDDAT, SBDDAT
208

BIC

146456

#GO,R3
#200,WATCH

#~CRG, $BDDAT

:ASSEMBLE FUNCTION CODE AND GO

;SET WATCHDOG TIMER VALUE
*START THE CLOCK
:LOAD RMCS?

;STORE RMMR1 AT $BDDAT
;BRANCH IF RUN AND GO FLOP OK

éfi;

¥§;CH

:TAKE ANOTHER SAMPLE

JSR

PC,aSTOP

:STOP THE CLOCK

EMT
BR

205
408

JSR

PC.,aSTOP

MOV
208

R2.$TMPO

CLOCK NOT

ZERO

SSAVE FUNCTION CODE FOR MSG
:SKIP REST OF

:STOP THE CLOCK

;ADVNACE TO NEXT FUNCTION CODE - EXIT IF DONE

000002
000076

000050
040000

MOV

8IS
MOV

001530

000707

JSR

MOV

001140

30$:

ADD
CMP
BLO
CMP
BLO
MOV
B8R

42 .R2
#1(F76.R2
408
R2,MWCD
30§
#RG,$GDDAT
108

;EXIT IF DONE
*CHANGE EXPECTED RESULTI
*DATA COMMAND
:REPEAT TEST

CZRMPAO RMOS/3/2 DSKLS TST 1

CZgHPAO RMO5/3/2 DSKLS TST 1
RUN AND GO TEST

MACRO Vv03.01

3307 033106
3308
3309

B 13

11-APR~80 13:58:55 PAGE 12-68

408:

JEND OF TEST

s NANRARAAAY 24

s*TEST 66

8002

000004
000240
012706

3311 033134
3312 033140

3313 033140

033144
033146
3314 033150
3315
3316
3317 C33152
3318 033152
3319 033160
3320 033166
3321
3322
3323 033174
3324 033202
3325 033204
3326 033210
3327 033214
3328 033220
3329 033224
3330
3331
3332 033230
3333 033230
3334 033236
3335 033244
3336 033246
3337
3338
3339 033250
3340 033254
3341 033260

013700
013701
C12737

001100
001276
001462
000066

012702

033302

004737

055370

3351 033276

10%:

012760
012760
012760

000000

000006
000034
000032

012760

041001

000024

111203
042703

052703
010360
116204

042704

177777
177777

AN RN

AN AR AR

SCOP E

RN AR A AR RN RN NN N RN RN INN A RN

:SCOPE CALL

NOP
MOV
MOV
MOV
MOV

TSTQUE ,R1
#66,$TESTN

Mov

#1008 ,R2

JSR
BR
EMTY
BR

PC,SETVV

N#STACK,SP
$BASE RO

208

sLOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

;R1 = POINTER TO DEVICE
:cSET TEST NUMBER IN APT MAIL BOX
;R2=TABLE POINTER
;GO SET VOLUME VALID

;BRANCH TO 20% IF NO ERROR

508

;SKIP REST OF TEST

;LOAD INVALI D TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT TO 18
20%:
MOV
MGV
MoV

#-1,RMDA(RO)

#-1_,RMDC (RO)
#0 .RMOF (RO)

;LOAD RMDA

:LOAD RMD(

;LOAD RMOF

;ENABLE DEBU G CLOCK AND LOAD FUNCTION CODE IN RMCSI WITH GO ON
MOV

#DMD 'MUR ' DBEN,RMMR1 (RO)

BIC
8IS
MOV
MOvB
BIC

A~CILF76,R3
#GO,R3

MOVB

177701
000001
000000
000001
177400

(R2) .R3

R3,RMCS1(RO)
1(R2) R4

#~C377,R4

:LOAD RMMR]

:LOAD RMCS1
JGET CLOCK COUNT

; CLOCK THE C OMMAND SEQUENCER

012760

141001
041001

000014

000024
000024

305:

MOV
MOV
DEC
BNE

#DMD 'MUR ! DBEN ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
gEMD.'MJR!DBEN,RWHRO) ;LOAD RMMR1

308

;SEE IF IAE HAS SET
MOV
BIC
BNE

175777

000002
000001

3350 033276

001226

dRddsslis ittt
e
R y
220282222

SET IAE TEST

::t'fit""*' AR AR

TST66:

SEQ 0157

RMER1(RO)
,R4

#~CI1AE .R4

508

;STORE RMER1 AT R4

;BRANCH IF

IAE SET

;IAE DID NOT SET - TRV ANOTHER FUNCTION CODE
ADD
#2,R2
1ST8
1(R2)
BM]
BR

?8?

;BRANCH IF ALL CODES TRIED

. CANNOT SET IAE WITH ANY COMBINATION OF ADDRESS AND FUNCTION CODE

40%:

EMT

206

Cel,bRI‘PAO RMO5/3/2 DSKLS TST 1
SET IAE TEST

3352
%ggz 033300

MACRO v03.01

000411

c 13

11-APR-80 13:58:55 PAGE 12-69

508 :

B8R

200%

SEQ 0158

;JUMP OVER TABLE

3355
3356 033302
3357 033302
%%gg 033303

030
002

3360 033304
%332; 033305

004
002

.BYTE
.BYTE

SEEK
2

; SEEK COMMAND

3363 033306
%332‘50 033307

062
002

.BYTE
BYTE

WH
2

;WRITE HEADER COMMAND

3366 033310
%332; 03331

052
002

.BYTE
.BYTE

WCH
2

JWRITE CHECK HEADER COMMAND

3369 033312
:3%;? 033313

072
002

.BYTE
BYTE

RH
2

;READ HEADER COMMAND

3372 033314
%33);2 033315

060
002

.BYTE
.BYTE

WD
2

;WRITE DATA COMMAND

3375 033316
%%;g 033317

050
002

BYTE
.BYTE

W(D
2

JWRITE CHECK DATA COMMAND

3378 033320
%%8?(9) 033321

070
002

BYTE
.BYTE

RD
2

;READ DATA COMMAND

3381 033322

000

.BYTE

%%g% 033323

;. TABLE OF FUNCTION CODES AND CLOCK COUNTS FOR TEST
100%:
.BYTE
SEARCH
; SEARCH COMMAND
.BYTE
2

377

BYTE

%%gg 033324

200%:

3386

JEND OF TEST

R AN RN
*TEST 67

033324
033324
033326
033330
033334
033340
3387 033344

3388 033352
3389 033354
3390 033354
033360
033362
g%g} 033364

A R R AR R AN

SEARCH,

SEEK,

AR A AR RARARNNACARNRANRNEA
RN A NN

READ, WRITE

TEST

R et

000004
000240
012706
013700
013701
012737

TST67
001100
001276
001462
00Cu67

001226

005002
004737
000402
104000
000472

108:

055370

3393

SCOPE
NOP
MOV

;SCOPE CALL

MOV
MOV
MOV

H#STACK,SP
$BASE ,RO
TSTQUE ,R1
#67 ,8TESTN

CLR

JSR
BR
EMT
BR

PC,SETVV
208

;sLOAD
RO
;R1 =
,'.’SET

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

JINITIALIZE FUNCTION CODE
;G0 SET VOLUME VALID
;BRANCH TO 208 IF NO ERROR

508

;LOAD INVALID TRACK, SECTOR AND CYLIND=R ADDRESS AND SET FORMAT

3394

3395 033366
3396 033366

JEND OF TABLE

-1

. T0 18 BIT MODE

012760

177777

000006

0s:

MOV

#~1,RMDA (RO)

;LOAD RMDA

CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO V03.01
T67
SEARCH, SEEK, READ, WRITE TEST

3397 033374
3398 033402

012760
012760

177777
000000

000034
000032

3400
3401 033410
3402 033416
34,03 033420
3404 033424

012760
010203
052703
010360

041001

000024

000001
000000

012704

000002

012760
012760
005304

041001

3406
34,07 033430
3408 033434
033434
3409 033442
3410 033450

3411 033452

001370

3413
3414 033454
3415 033462
3416 033470
3417 033476
3418 033504
3419 033512

016037
042737
016237
042737
023737
001411

3,20 033514
3421 033520
3422 033526
3.3 033532
gzsg 033534

3426
3427 033536
34,28 033536
3429 033542
3430 033546
3431 033550
3432 033552

010037
062737
010237
104207
000406

062702
023702
103401
000701

141001

000024
000024

D 13

11-APR-80 13:58:55 PAGE 12 12-70

MOV
MOV

0011642
001142
001140
001140
11642

001136
000014
001174

001136

:LOAD RMDC
:LOAD RMOF

;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCST WITH GO ON
MOV
#DMD ! MUR | DBEN,RMMR1
(R0) ;LOAD RMMR1
MOV
R2.R3
:ASSEMBLE CODE AND GO
BIS
#G0,R3
MOV
R3,AMCS1(RO)
;LOAD RMCS1

;CLOCK THE COMMAND SEQUENCER TO SET PULSE
MOV
#2.R4
308:
MOV
#DMD 'MUR ! DBEN ! DBCK ,RMMRT(RO)
;L OAD RMMR1
MOV
#DMD IMUR DBEN ,RMMR1 (RO) ;LOAD RMMR1
DEC
R4
BNE

000014
175777
062752
175777
001140

#-1,RMDC(RO)
#0 ,RMOF (RO)

SEQ 0159

308

:VERIFY IAE ACCORDING TO FUNCTION CODE TABLE
MOV
RMER1(RO) , $8DDAT
:STORE RMER1 AT $BDDAT
BIC
#~C JAE , $BODAT
MOV
FNCDTB(R2) ,$GDDAT
;ASSEMBLE EXPECTED IAE
BIC
#~C IAE , $SGDDAT
CMP
SGDDAT
. $8DDAT
BEQ
408
;BRANCH IF IAE OK

MOV
ADD
MOV
EMT
BR

RO, $BDADR
#RMER1
, SBDADR
R2,$TMPO
207
508

*SET UP ERROR MSG

;SKIP REST OF

TEST

;ADVANCE TO NEXT FUNCTION CODE - EXIT IF DONE
408:
ADD
#2 ,R2
cMP
1LF76,R2

000002
000076

508 :

3434

BLO
BR

50%
108

:END OF

TEST

",'ttl’tttttfittttt.*fitfi*"ttfit't*fi'titt*fi"fifitfit"t'tl‘ttitt!tfittttt

S*TEST 70

033552
033552
033554
033556
033562
033566

w35 033572

3436 033600
3437 033606
3438 033612
3439 033612
033616
033620
3440 033622

INVALID TRACK/SECTOR TEST

""t'fittttttt*ttttttt*tttt"ttt't'*fittfitttttfittfittt'tttttttttttttt

00U004
000240
012706
012700
013701

75170:

001100
001276
001462

SCOPE
NOP
MOV
MOV
MOV

:SCOPE CALL

#STACK , SP
$BASE ,RO
TSTQUE,R1

012737

000070

001226

MOV

#70.$TESTN

013737
105237

001330
001415

001414

MOV
INCB

LSTRK ,RMDAO
RMDAO+1

004737
000402
104000
000477

055370

JSR
BR
EMT
BR

PC,SETWV
20$

108:

1008

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

::SET TEST NUMBER IN APT MAIL BOX
:INITIALIZE TRACK ADDRESS
:SETUP FIRST INVALID ADDRESS

;GO SET VOLUME VALID
:BRANCH TO 208 IF NO ERROR
;SKIP REST OF TEST

INVALID TRACK/SECTOR TEST

3441
3442
3443

3464 033624

3445 033624
3446 033632
gzzg 033640
3449

3450 033646

3451 033654
3452 033662
3453 033666
3454 033666
3455 033674
3456 033702
gzgg 033704
3459

3460 033706

361 033714
32462 033722
3463 033726
3464 033732
3465 033736
3466 033744
3467 033752
gzgg 033754

;CLEAR DESIRED CYLINDER, LOAD INVALID TRACK ADDRESS, AND SET
18 BIT FORMAT

012760
013760
012760

000000
001414
000000

000N34
000006
000032

012760

012760
012703

041001

000031
000002

000024

012760
012760
005303
001370

141001
041001

000024
000024

016037

000014

001142

002000
001136
000014
001414

001140

042737
001015
012737
010037
062737
013737
104210
000422

175777

3479
34,80
3481
gzgg

034006
034012
034020
034022

208:

MOV
MOV
MOV

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

:LOAD RMDC
:LOAD RMDA
SLOAD RMOF

;EXECUTE A SEARCH COMMAND TO WHERE '‘SET PULSE'' IS ACTIVE

000000
308:

MOV

#DMD 'MUR ' DBEN,RMMR1(RO) ;LOAD RMMR1

MOV
MOV
DEC
BNE

#DMD ! MUR ! DBEN ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD iMUR | DBEN.RMMR1
(RO) :_CAD RMMR]
R3
308
;ISSUE 2 CLOCKS

MOV
MOV

#SEARCH' GO,RMCS1(RO)
#2.R3

JVERIFY JAE IS SET

MOV

001142

BIC
BNE
MOV
MOV
ADD
MOV
EMT
BR

001136
001174

34,70

34,71 033756
3472 033756
34,73 033762
2474 033764
3475 033770
3476 033776
gz;g 034000

SEQ 0160

RMER1(RO) , $8DDAT

*LOAD RMCS1

:STORE RMZR1 AT $BDDAT

#~C1AE, $BODAT
408
# 1AE , $GDDAT
RO, $8DADR
#RMER1
, $8DADR
RMDAO,
$ TMPO
210
1008

;:BRANCH IF IAE IS ON
*SETUP ERROR MESSAGE

;ADVANCE TO NEXT RMDA ADDRESS

105737
001411
105237
123727
101705
012737

001415

005237
123727
101674

0014146
001414

408
:

001415
001415

000200

000035

001414

000200

50%:

1008 :

31.84

TSTB
BEQ
INCB
CMPB
8LOS
MOV

RMDAO+1
508
RMDAO+1
RMDAO+1,#128.
108
#29. ,RMDAO

INC
C(MPB
BLOS

RMDAQ
RMDAO,#128.
10s

;TESTING INVALID SECTORS ?
SYES 1!
: INCREMENT TRACK ADDRESS
*DONE ?
*NO, TEST NEXT TRACK ADDRESS
:%222 Lng SECTOR ADDRESS AND
:

s INCREMENT SECTOR ADDRESS
*DONE ?
*NO, TEST NEXT SECTOR ADDRESS

";ttt*tttttttttttttt't'ttt'itttttttttttfittttttttttttttttt'ttttttt

J*TEST

INVALID CYLINDER TEST

:;ttt'ttttt'tfittttttttttttt'ttttttttttttt'ttt.tttttttttttttttt't'

034022
034022
034026
034026

000004
000240
012706

001100

034036
285 034042

013701
012737

001462
000071

001226

001467

001442

034032

34,86 034050
3487 034056

013700

012737

TST71:

001276

108:

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

:SCOPE CALL
#STACK , SP

:LOAD THE STACK POINTER

TSTQUE ,R1
#71.8TESTN

*R1 = POINTER TO DEVICE
Y;SET TEST NUMBER [N API MAJL BOX

$BASE ,R0

#823. ,RMDCO

:RO = UNJBUS ADDRESS

;SET FIRST INVA ID CYLINDER

170

MACRO v03.01 11-APR-80 13:58:55 PAGEE 1312-71

-0 |

I:ZRI‘!PI*O RMO5/3/2 DSKLS TST 1

—

CIRMPAQ RMOS/3/2 DSKLS TST 1
TM7
INVALID CYLINDER TEST

3488 034056
034062
034064
3489 034066
3490 034070
3491 034070
3492 034076
3493
3494
3495 034104
3496 034112
3497 034120
3498 034124

034124

3499 034132
3500 034140
3501 034142
3502
3503
3504 034144
3505 034152
3506 034160
3507 034162
3508 034170
3509 034174
3510 034202
3511 034210
3512 034212
3513
3514
3515 034214
3516 034214
3517 034220
3518 034226
3519 034230
3520
3521

MACRO v03.01

F 13
11-APR-80 13:58:55 PAGE 12-72

055370

20
013760
012760

001442
000000

000034

012760
012760
012703

041001
000031
000002

000024

012760
212760
005303
001370

016037
042737
001015
012737
010037
062737
013737
104211
000406

141001

041001

JSR

PC,SETVV

B8R

508

gfi”

000006

000000

mov
MOV

MOV

MOV
MOV

s05

000024

gg\c/

BNE

001142
001142

002000
001136
000014
001442

001140

RMDCO,RMDC
(RO)

#0 ,RMDA (RO)

;GO SET VOLUME VALID

JBRANCH T0O 208 IF NO ERROR

:SKIP IF ERROR
:LOAD RMDC

*LOAD RMDA

JENABLE DEBUG CLOCK AND EXECUTE SEARCH COMMAND

000024

000014
175777

20%

SEQ 0161

#DMD 'MUR ' DBEN ,RMMR1(RO) ;LOAD RMMR]
#SEARCH'GO,RMCS1(RO)
#2.R3

-LOAD RMCS1

#DMD 'MUR ' DBEN ! DBCK ,RMMR1(RO)

:LOAD RMMR1

308

;ISSUE 2 CLOCKS

:VERIFY IAE IS SET
MOV
RMER1 (RO) , $8DDAT
BIC
#~CIAE, SBODAT
BNE
408
MOV
#1AE , SGDUAT
MOV

001136
001174

ADD
MOV
EMT
BR

:LOAD RMMR1

zgnomun!oeemmm1 (RO)

:STORE RMER1 AT $BDOAT
;BRANCH IF JAE IS SCT
*SETUP ERROR MESSAGE

RO, $SB8DADR

#RMER1, $8DADR
RMDCO, $TMPO
211
508

£82VANCE CYLINDER ADDRESS

005237
023727
103713

001442
001442

002000

|
o

INC

(MP

BLO

RMDCO

RMDCO,#1024.
108

: INCREMENT CYLINDER ADDRESS

-DONE ?

*NO,

JoRAANAANARANN
A AAANNNAARRAARNN
AN
NN

LeTEST 72

SET AOE TEST

TEST AGAIN

CARANANN N AR R AR

RAN

IR AR AR

AN NS

.':'*'*.*fi.t*t'fi.'**'fifi'."'"""'fifi**"fi"'*""'fil‘".fifittt‘fi"t't

3522
3523 034256
3524 034262
3525 034270
3526
3527
3528
3529 034276
3530 034276
034302

T1S172:

000004
000240
012706
013700
013701
012737

001100
001276
001462
000072

MOV
MOV
MOV

$BASE ,RO
TSTQUE ,R1
#72,$TESTN

005037
013737
112737

001440
001330
000935

CLR
MOV
MovB

RMOF
O

SCOPE

NOP

MOV

:SCOPE CALL

#STACK,SP

LSTRK,RMDAO
#29. ,RMDAO

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

;R1_= POINTER TO DEVICE

;.SET TEST NUMBER IN APT MAIL BOX

;18 BIT FORMAT MODE
;SETUP LAST TRACK AND
sLAST SECTOR

;ENABLE DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS, MEMORY ADDRESS AND
;WORD COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET

004737
000402

055370

10%:

JSR
BR

PC,SETVV

15%

2GO SET VOLUME VALID
;BRANCH TO 158 IF NO ERROR

172

SET AOE

TEST

MACRO v03.01

SEQ 0162

034304
3531 034306
3532 034310
3533 034310
3534 034316
3535 034326
3536 034332
3537 034340
3538 034346
3539 034354
3540 034362
3541 034370
3542
3543
3544 034374
3545 034374
3546 034402
3547 034410
ggzg 034412

012760
013760
013737
012760
013760
012760
012760
012760
012702

041001
001440
001440
001466
001414
177000
103712
000061
000014

000024
000032
001174
000034
000006
000002
000004
000000

012760
012760
005302
001379

141001
041001

000024
000024

3550
3551 034414
ggg% 034422

012760
012760

061001
041001

000024
000024

016037
042737
001012
010037
062737
012737
104212
000413

000014
176777

001142
001142

001136
000014
001000

001136
001140

010000

001440

010000
000037

001440
001414

3554
3555 034430
3556 034436
3557 034444
3558 034446
3559 034452
3560 034460
3561 034466
3562 034470
3563 034472
3564 034472
3565 034500
3566 034502
3567 034510
3568 034516
gggg 034520

104000
000504

032737
001007
012737
112737
000667

G 13

11-APR-80 13:58:55 PAGE 12-73

3571

15%:

EMT
BR

3573 034546
3574 034552
3575 034560
3576

;SKIP TEST IF ERROR

MoV
MOV
MOV
MOV
Mov
MoV
MOV
MOV
MOV

#DMD !MUR ! DBEN ,RMMR1(R0O) ;LOAD RMMR1
RMOFO,RMOF
(RO) ;LOAD RMOF
RMOFO,$TMPO
sSAVE OFFSET REG FOR ERROR MSG
#822. ,RMDC(RO)
;LOAD RMD(
RMDAQ,RMDA(RO)
;LOAD RMDA
#-512. ,RMJC(RO) ;LOAD RMW(
#BUFFER ,RMBA(R0)
:LOAD RMBA
#WD ! GO,RMCS1(RO)
;LOAD RM(S1
#14 ,R2
sR2
= CLOCK COUNT
;CLOCK COUNT 2-05 3-04 14-60..
;CLOCK THE COMMAND SEQUENCER TO GENERATE SET PULSE
208:
MoV
#DMD !MUR ! DBEN ! DBCK ,RMMR1 (R0O)
;LOAD RMMR1
MOV
#DMD . MUR | DBEN, RMMR1 (RO) ;LOAD RMMR1
DEC
R
]
BNE
208
;ISSUE ¢ CLOCKS
;FORCE EBL TO GET TO OVERFLOW ADDRESS
MoV
#DMD !MUR ! DBEN!DEBL ,RMMR1 (R0O)
;LOAD RMMR1
MoV
#DMD !MUR ! DBEN,RMMR
(RO)
1 ;LOAD RMMR1

;VERIFY THAT ADDRESS OVERFLOW ERROR IS SET
MOV
RMER1(R0O) , $BDDAT
;STORE RMER1 AT $8DDAT
BIC
#*CAO
, $BDDAT
E
BNE
308
;BRANCH IF AOE IS SET
MOV
RO, $BDADR
;SETUP ERROR MESSAGE
ADD
#RMER
, $BDADR
1
MOV
#AQE
, $GDDAT
EMT
212
BR
40%
308 :
;END OF TEST
BIT
#FMT16 ,RMOFO
;DONE 16 BIT FORMAT TEST ?
BNE
40$
JYES !
MOv
H#FMT16,RMOFO
;SET 16 BIT FORMAT MODE AND
MovB
#31. ,RMDAO
;LAST SECTOR
BR
108
40%:
tttttttttfittttt*tttttt'tttitfil‘*ttttttttttt'tttttttttttttttt'ttt

~TEST 73

034520
034520
034522
034524
034530
034534
3572 034540

40%

SET RMR TEST

't'tttt*tttt**tttttttt't'ttttttfitfitttitttttttitt'ttttttttt

TST73

000004
000240
012706
013700
013701
012737

001100
001276
001462
000073

010037
062737
012702

001136
000014
034726

001226

001136

tt"t

SCOPE
NOP
MOV
MOV
MOV
MOV

#ETACK,SP
$BASE RO
TSTQUE ,R1
#73,$TESTN

;LOAD
;RO =
;R1 =
:cSET

MOV
ADD
MOV

RO, $8DADR
#RMER1, $BDADR
#1008 ,R2

;SETUP REGISTER ADDRESS FOR MSG

;SCOPE CALL

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

JINITIALIZE TABLE POINTER

—~N

CZRMPAO RMOS/3/2 DSKLS TST 1

—

CZRMPAQ RMOS5/3/2 DSKLS TST 1

173

SET RMR TEST

3577
3578 034564
3579 034564
3580 034570
3581 034576
3582 034604
3583 034612
2
3584
3585
3586 034620
3587 034626
3588 034630
3589 034632
3590
3591
3592 034636
3593 034644
3594 034652
3595 034660
3596 034666
3597 034670
3598 034674
3599 034702

MACRO v03.01

H 13
11-APR-80 13:58:55 PAGE 12-74

%SEEAR THE DEVICE AND ENABLE DEBUG CLOCK

004737
012760
012760
012760
012760
012760
011203
060003
012713

016037
042737
016237
023737

055614
000001

041001
000000

JSR

000024
000024

000000

000014
000042

000001

000000

Mov
MOV

000014

177773
000002
001140

001174
000004

001142
001142
001140
001142

#0 ,RMER1(R0O)
#0 ,RMERZ (RO)

;LOAD RMER1
;LOAD RMER?

MOV
:gg

#GO ,AMCS1(RO)
ég?; R3

;LOAD RM(CSI
;GENERATE REGISTER ADDRESS

MOV

#DMD !MUR ! DBEN, (R3)

JVERIFY RMR ACCORDING TO TABLE
MOV
BIC
MOV
MP
8EQ

RMER1(RO) , $BDDAT
#°CRMR
, $SBDDAT
2(R2) ,$GDDAT
$GDDAT
, $BDDAT
308

BIT
BNE
EMT

#RMR
, 2 (R2)
208
213

EMT

214

MOV

000002

000004

JGET EXPECTED RESULT FROM TABLE
;BRANCH IF RMR S 0K
;SAVE

TEST REGISTER

;BRANCH IF

ERROR SHOU!
D BE ONE

30%

TABLE

ADD
TST

40%:

;STORE RMER1 AT $8BDDAT

(R2) ,$TMPO

20%:

;WRITE THE REGISTER

POINTER,

EXIT

#6 ,R2
(R2)

Ml
BR
B8R

408
10%
200%

DONE

JEXIT

ENTRY NEGAT]VE

;JUMP OVER TABLE

~
H

iéegLE OF REGISTER ADDRESSES AND RMR VALUES

Jiar{

;GO CLEAR CONTROLLER

JSET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE

éagVANCE

062702
005712
100401
000720
000410

PC,CNTCLR

#DMD ,RMMR1 (RO)
;LOAD RMMR1
#DMD 'MUR ! DBEN,RMMR1 (R0) :LOAD RMMR1

MOV
MOV

041001

104214

& ® AN RANN AN
~N
3 V0NN
NN =

SEQ 0163

362
3623 034742
3624 034744
3625
3626 034746
3627
3628

000016
000000

.WORD

RMAS

RMR = 0

000024
000000

.WORD

RMMR1

:MAINTENANCE REG

000006
000004

.WORD
-WORD

RMDA
RMR

:DISK ADDRESS REG
RMR = 1

177777
000000

JWORD
JWORD

=1
0

:END OF

.WORD

RMR = 0

2008 :

TABLE

;END OF TEST

:;ttti.'fi'fifitttQ'tttttttt"fitt't.ti'ltt.i!itt'tfitiitt't'!"t'.ttt

S*TEST 74
A

034746

;ATTENTION SUMMARY RLG

AL S22

1ST74:

PGM STATUS CHE"K
RARR20

2 2222222222222
222222
2G TR TR

176

PGM STATUS CHECK

034746
034750
034752
034756
034762
034766

3629
3630
3631 034774
3632 035000
3633 035006
3634
3635
3636 035014
3637 035022
3638 035024

3639 035032
3640 035034
3641 035040
3642 035044
3643 035052
3644 035054
3645
3646

000004
000240
012706
013700
013701
012737

MACRO v03.01

zggPE

001100
001276
001462
000074

001226

3647
3648
3649 035102
3650 035106
3651 035114
3652 035122
3653 035124
3654 035132
3655 035136
3656
3657
3658 035140
3659 035140
3660 035146
3661 035154
3662 035156
3663 035164

3664 035170
3665 035176
3666
3667 035200
3668
3669

N#STACK,SP

;LOAD THE STACK POINTER

MOV

TSTQUE ,R1

;R1

MOV

001174
001142

032737
001014
042737
001410
005037
010037
062737

004000

001174

176777

001142

001140
001136
000012

001134

JSR

MoV
MOV

$8ASE RO

RO
= UNIBUS ADDRESS

N#74 ,STESTN

= POINTER TO DEVICE

::SET TEST NUMBER IN APT MAIL BOX

PC,CNTCLR

26O CLEAR CONTROLLER

RMDT(RQ) ,$TMPO
;STORE RMDT AT $TMPQ
RMDS
(RO) ,$BDDAT ;STORE RMDS AT $8DDAT

;OMIT TEST IF DRQ IS ON - ELSE VERIFY THAT PGM [S OFF
BIT
#DRQ, $TMPO
BNE
BIC
BEQ
CLR
MOV
ADD
EMT

10%:

108
#*CPGM, $BDDAT
108
$GDDAT

;BRANCH IF DRQ IS ON
;BRANCH IF PGM IS OFF

RO, $BDADR
#RMDS
, $GDADR

215

END OF

TEST

tttfittttttttttt'fit'ttttti'tfitttttfi*ttttt*t'ittt'fi't'tttt'ittfitt

*TEST 75
SIR RARA

035054
035054
035056

s SCOPE CALL

;CLEAR AND READ DRIVE TYPE AND DRIVE STATUS

055614
000026
000012

104215

SEQ 0164

MOV

004737
016037
016037

113

11-APR-80 13:58:55 PAGE 12-75

000004
000240
012706

013700
013701
012737

004737
016037
042737
001006
012737
010037
104216

N RN AR AN R AN AN AN AN AT

15175:

001100
001276
001462
000075

055614
000000

173777

004000
001136

001226

104217

000012
177377
000400
001136
000012

N AN RNRRRANRRNANRR AP A NN RANAAANN

zggPE

MOV
MOV
MOV

MOV

;SCOPE

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#75,8TESTN

A RN RN

ANNRAN

CALL

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

c;SET TEST NUMBER IN APT MAIL BOX

;CLEAR AND VERIFY THAT DVA IS SET
JSR

001142
001142

MOV
BIC
BNE
MOV

001140

MOV

EMT

%8§RIFY

016037
042737
001011
012737
010037
062737

DVA/DPR STATUS CHECK

001142

001140
001136
20%:

THAT DPR

MOV

BIC
BNE
MOV
MOV
ADD
EMT

PC,CNTCLR

RMCS1(RO) ,$8DDAT
#~CDVA,$BDDAT
108
#DVA =GDDAT

;GO CLEAR CONTROLLER

;STORE RMCS1 AT $BDDAT
JBRANCH IF DVA IS ON

RO,
3. ADR

216

[S SET

RMDS
(RO) ,$BDDAT ;STORE RMDS AT $8DDA°

#*CDPR, $8DDAT
20%
#DPR,SGDDAT
RO, $BDADR
#RMDS
, $BDADR
217

JEND OF

TEST

".'tt'tl"ttttttt'tfit*tt't'itttfittl’ttttfitttltt‘tl'i'fittttt"ttfittt

CZRMPAQ RMOS/3/2 DSKLS TST 1

—

p——

CZRMPAQ RMOS/3/2 DSKLS TST 1

176

MACRO v03.01

PORT REQUEST TEST, PART 1

J 13
11-APR-80 13:58:55 PAGE 12-76

J*TEST 76
MAASEEEL

035200
035200
035202
035204
035210
035214
3670 035220

000004
000240
012706
013700
013701
012737

3671 035226
035232
035234
%g;% 035236

004737
(00402
104000
000434

TSl/o
001100
001276
001462
000076

055370

3674
3675 035240
gg;? 035240

0127609

000013

3678
3679 035246
3680 035252
ggg; 035256

016002
042702
001024

000040
037777

3683
gggg 035260

3686
3687 035264
3688 035270
3689 035274
3690 035276
3691 035304
3692 035312
3693 035314
3694 035320
3695 035326
ggg? 035330

016002

000000

016005

000012

032705
001415
016037
042737
001006
010037
062737
104220

001226

ARttt lldssidislez
iz eI
S
ssitl
SRR
2 280

SCOPE
NOP
MOV
MOV
MOV
MoV

;SCOPE CALL
#STACK, SP
$8ASE RO
TSTQUE ,R1
#76,8TESTN

;LOAD
1RO
=
;R1 =
:;SET

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

PC,SETVV
108

;GO SET VOLUME VALID
;BRANCH TO 108 IF NO ERROR

20%

;EXECUTE A RELEASE TO RESET REQUEST FLOP
10%:
MoV
#RLEASE !GO ,RMCS1(R0O)
;LOAD RM(CS1
;READ RMMRZ2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET
MOV
RMMRZ (RO) ,R2
;STORE RMMR2 AT R2
BIC
#*C<RQA!RQB>,R2
BNE
208

sREAD RMCS1 TO SET REQUEST FLOP
mMov
RMCS1(RO) ,R2
;STORE RMCS1 AT R2

001000
000040
037777

001142
001142

001136
000040

001136

3698

;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET
MOV
RMDS (RQ) ,RS
;STORE RMDS AT RS
BIT
#PGM,R5
;SEE IF PGM IS SET
BEQ
208
sDONT TEST REQUEST IF PGM IS ZERO
MoV
RMMR2 (RO) , $BDDAT”
;STORE RMMRZ AT $BDDAT
BIC
#~C<RQA'RQB>,$BDDAT
BNE
208
;BRANCH IF REQUEST IS SET
MOV
RO, $BDADR
ADD
#RMMR?2, $BDADR
EMT
220
20%:
t*'ttti*ttt**fi*'ti*t'**tt*tt.ttfit*tt*ttttttt!‘tittttttlttittttt

tTEST 77

PORT REQUEST TEST,

PART 2

ttit'tfiittfitt*ttfittfittt'i'ttti*fitt**titttittfiifitfi'itttit'ttttt'

035330
035330
035332
035334
035340
035344
3699 035350

000004
000240
012706
013700
013701
012737

3700 035356
035362
035364

004737
000402
104000

%;8; 035366

PORT REQUEST TEST, PART 1

JSR
BR
EMT
BR

000000

SEQ 0165

000435

TST??

001100
001276
001462
000077

055370

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

JSR
B8R
EMT
BR

;SCOPE CALL

#STACK,SP
$8ASE ,RO
TSTQUE ,R1
K77 ,$TESTN

;LOAD
;RO =
;R1 =
;.SET

PC,SETVV
108

;GO SET VOLUME VALID
JBRANCH TO 108 IF NO ERROR

20%

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

CIZRMPAO RMOS/3/2 DSKLS TST 1

177

MACRO v03.01

PORT REQUEST TEST, PART 2

3703
3704 035370
%;OS 035370
06
3707
3708 035376
3709 035402
3710 035406
3711
3712
3713 035410
3714
3715
3716 035416
3717 035422
3718 035426
3719 035430
3720 035436
3721 035444
3722 035446
3723 035452
3724 035460
3725 035462

K 13

11-APR-80 13:58:55 PAGE 12-77

SEQ 0166

ig;scurs A RELEASE TO RESET REQUEST FLOP

012760

000013

016002
042702
001025

000040
037777

012760

177777

016005
032705
001415
016037
042737

000012
001000

104221

000000

mov

#RLEASE ' GO,RMCS 1 (RO)

;READ RMMR2 AND SKIP TEST

000016

IF REQUEST FLOPS ARENT RESET

MOV

RMMR2 (RO) ,R?2

BNE

208

BIC

:LOAD RMCS1

#*(<RQA'!RQB>,R?

;STORE RMMRZ AT R2

JWRITE THE ATTENTION SUMMARY REGISTER TO SET REQUEST FLOP
MOV

#-1,RMAS (RO)

:LOAD RMAS

;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET
MoV
BIT
BEQ
MOV

000040
037777

BIC

BNE

001136
000040

MOV
ADD

20%:

EMT

RMDS (RQ) ,RS
;STORE RMDS AT RS
#PGM,RS
;SEE IF PGM IS SET
208
;DONT TEST REQUEST IF PGM IS ZERO
RMMR2 (RO) , $BDDAT
;STORE RMMRZ AT $BDDAT
#*C<RQA'!RQB>,$8DDAT

208

RO, $8DADR
#RMMR?2
, $BDADR

221

*t"*fifi""*fi*!"'t*fi*'**i’**t***fi*fi*fifi*"'*fi*t**'fi"fitfi't"fit"'t*ttt

*TEST 100

PORT REQUEST TEST, PART 3

fi'*fifififi***fi*t*fit.'fi't*tt""""****.‘fi**t*'****'fi*fiit**"'tfi*t"t‘

035462
035462
035464
035466
035472
035476
035502

3728
3729 035510
035514
035516
3730 035520
3731
3732

3733 035522
3734 035522
3735

3736
3737 035530
3738 035534
3739 035540
3740
3741
3742 035542

3743
3744
3745 035550
3746 035554
3747 035560

000004
000240
012706
013700

013701
012737

TST1OO

001100
001276
001462
000100

aggpf

MOV

MOV
MOV
MOV

001226

055370

+SCOPE CALL

#STACK,SP

$BASE RO
TSTQUE ,R1
#100,$TESTN

JSR
EfiT

PC,SETVV
108

20%

%EXECUTE A RELEASE

012760

000013

016002
042702
001025

000040

012760

000000

016005
032705
001415

000012
001000

000000

MOV

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE

;.SET TEST NUMBER IN APT MAIL BOX
;GO SET VOLUME VALID

;BRANCH TO 108 IF NO ERROR

COMMAND TO RESET REQUEST FLOP

#RLEASE ! GO,RMCS1(RO)

;LOAD RMCS1

JREAD RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET
MOV
BIC
BNE

037777

000006

RMMR2 (RO) ,R2
;STORE RMMR? AT R¢
#~C<RQA!RQGB>
R2
208

sWRITE RMDA TO SET REQUEST FLOP
MOV

#0,RMDA (RO)

;LOAD RMDA

;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SEY
MOV
BIT
BEQ

RMDS (RQ) ,RS
#PGM,R5
20%

;STORE RMDS AT RS
;SEE IF PGM IS SET
;DONT TEST REQUEST

PGM IS ZERO

CIRMPAOD RMOS/3/2 DSKLS TST 1

1100

PORT REQUEST TEST,

3748 035562
3749 035570
3750 035576
3751 035600
3752 035604
%;gz 035612

016037
042737
001006
010037
062737
104222

MACRO v03.01

PART 3

000040
037777

001142
001142

001136
000040

001136

%;22 035614

L 13

11-APR-80 13:58:55 PAGE 12-78

MOV
BIC
BNE
MOV
ADD
EMT

AR AN AR

STEST

000004
000240
012706
013700
013701
012737

TST101
001100
001276
001462
000101

001226

g;gg

3764
3765 035654
3766 035654
3767 035662
3768 035670
3769 035674
035674
3770 035702
3771 035710
%;;% 035712
3774
3775 035714
3776 035722
3777 035730
3778 035736
3779 035740
3780 035746
3781 035750
3782 035756
3783 035760
%;gg 035766

3789 035770
3790 035774
3791 036002

A AR

RELEASE

TEST

A AR AR A AN

SCOPE
NOP
MOV
MOV
MOV
MOV

AR AR AN

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

AR AN AR AN RN N AR AN AN NI AR

NRN AR ARNNR

sSCOPE CALL
#STACK,SP
$BASE RO
TSTQUE ,R1
#101,$TESTN

;LOAD
:RO =
sR1 =
:;SET

THE STACK POINTER
UNIBUS ADDRESS
POINTER TO DEVICE

TEST NUMBER IN APT MAIL BOX

;REQUEST FLOP SHOULD SET WHEN WRITTING RMCS1
004737
000402
104000
000454

055370

JSR
BR
EMT
BR

012760
012760
012702

041001
000013
000002

000024
000000

012760
012760
005302
001370

141001
041001

000024
000024

016037
016037
042737
001422
032737
001410
032737
001412
032737
001406

000026
000040
037777

001174
001142
001142

004000

001174

100000

001142

040000

001142

3786
3787

3788 035770

AR RN RN R RN AN N A

101

RN A A

3761 035642
035646
035650
%;2% 035652

;STORE RMMRZ AT $BDDAT

20$:

3757

035614
035614
035616
035620
035624
035630
3758 035634

RMMR2 (RO) ,$BDDAT
#~(C<RQA!RQB>, $BDDAT
208
RO, $BDADR
#RMMR?, $BDADR
222

SEQ 0167

PC,SETVV
108

;60 SET VOLUME VALID
;BRANCH TO 10% IF NO ERROR

408

JEXECUTE A RELEASE COMMAND
108:
MoV
#DMD ' DBEN!MUR
,RMMR1 (RO) ;LOAD RMMR1
MOV
#RLEASE !GO,RMCS1(RO)
;LOAD RMC(S1
Mov
#2.R2
20$:
MOV
#DMD ! DBEN !MUR ! DBCK ,RMMR1 (R0)
;LOAD RMMR1
MOV
#DMD ! DBEN!MUR ,RMMR1(RO) ;LOAD RMMR1
DEC
R2
BNE
20%
s ISSUE 2 CLOCKS
SVERIFY REQUEST
MOV
MOV
BIC
BEQ
BIT
BEQ
BIT
BEQ
BIT
BEQ

FLOPS ARE RESET
RMDT(RO) ,$TMPO :STORE RMDT AT STMPQ
RMMR2 (RO) , SBDDAT
;STORE RMMRZ AT $BDDAT
#~(C<RQA'!RQB>,$8BDDAT
403
;BRANCH IF REQUESTS ARE RESET
#DRQ,$TMPO
308
;BRANCH IF SINGLE PORT DEVICE
#RQA, $BDDAT
408
JBRANCH IF RQA IS RESET
#RQB, $BDDAT
40%
JBRANCH IF RQB IS RESET

;DRQ IS ZERO AND A REQUEST FLOP IS ON, OR, DRQ IS ONE AND
.B0TH REQUEST FLOPS ARE ON

010037
062737
104223

001136
000040

30s:
001136

MOV
ADD
EMT

RO, $BDADR
A#RMMR?
, $BDADR
223

CZRMPAQ RM05/3/2 DSKLS ST 1

T101

RELEASE

TEST

M13

MACRO v03.01

3792 036004
3793
3794

11-APR-80 13:58:55 PAGE 12-79

SEQ 0168

40$:

JEND OF TEST

AR R AR R AR AR A A RN AR

T*TEST 102
MER 2

036004
036006
036010
036014
036020
036024

000004
000240
012706
013700
013701
012737

3797 036032
3798 036036
3799 036044
3800 036052
3801 036060

004737
012760
012760
012769
012760

3804 036066
3805 036070
3806 036074
3807 036100
3808 036104
3809
3810
3811 036110
3812 036116
3813 036124
3814 036126
3815 036132
3816 036140
3817 036144
3818 036146
3819
3820
3821 036150
3822 036150
3823 036156
3824 036160
3825 036164
3826 036166
3827 036172
3828 036176
3829 036204
3830 036206

111102
042702
116203
042703
010360
016037
042737
001411
010037
062737
005037
104224
000417

220800800t

TST102:

001100
001276
001462
000102

055614

AR AR AN AN AN AR A AR TR AN RN

222

sggpe

MOV
MOV
MOV

001226

AR AR RN

MOV

A RRANAARRNCA NN

WRITE ATA TEST
22222

2222222382223

2232

223322322222 2%

:SCOPE CALL

#STACK, SP
$BASE ,R0
TSTQUE,R1

#102.$TESTN

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

$:SET TEST NUMBER IN APT MAIL BOX

;CLEAR THE DEVICE, SET DIAGNOSTIC MODE THEN SET UNIT READY
JSR
MOV
MOV
MOV

000024
000014
000042
000024

MOV

PC,CNTCLR
#DMD ,RMMR1 (RO)
#0,RMER1(RO)
#0.RMER2(RO)

;GO CLEAR CONTROLLER
:LOAD RMMR]
:LOAD RMER1
:LOAD RMER2

#DMD
'MUR , RMMR1 (RO)

;WRITE THE ATTENTION SUMMARY REGISTER
MOVB
BIC
MOVB
8IC

177770
063052
177400
000016

MOV

000012
077777

001142
001142

001136
000012
001140

001136

(R1).R2
#-CUNTMSK
,R2
ATNTBL (R2}.R3
#~CATNMSK ,R3

R3.RMAS (R0)

;LOAD RMMR1

;ASSEMBLE THE ATA BIT IN R3

;LOAD RMAS

;READ RMDS AND VERIFY THAT ATA IS RESET
MOV
BIC
BEQ
MOV
ADD
CLR

EMT
BR

RMDS (RO) , $8DDAT ;STORE RMDS AT $8DDAT
#~CATA, SBDDAT
108
;:BRANCH IF ATA IS RESET
RO, $8DADR
ARMDS
, S8DADR
$GDDAT

224
208

%8§AD RMAS AND VERIFY ATA IS RESET

016037
005103
040337
001410
005037
010037
062737
104225

3832

000016

001142

MOV
COM

001142

001140
001136
000016

001136

BIC
BEQ
CLR
MOV

RO, $8DADR

EMT

225

ADD

208 :

RMAS (RO) ,$8DDAT ;STORE RMAS AT $BDDAT
R3

R3,$BDDAT
208
$GDDAT

;BRANCH IF ATA IS RESET

#RMAS
, S8DADR

:END OF TEST

";t'tttifitttt'ttttttittttt'tt'tfitt*ittttitfifil‘.tttttitttttfiitttttt

S*TEST

103

RESET ATA BY GO TEST

;"t'l’*t'tttttttttttttttttiil'*tttittttttittittttttfitttttttttttttt!

036206
036210

000004
000240

TST103:

SCOPE

NOP

:SCOPE

CALL

L %SQPAO

RMO5/3/2 DSKLS TST 1

RESET ATA BY GO TEST

MACRO v03.01

036212
036216
036022

012706
013700
013701

001100
001276
001462

000103

001226

036234
036240
036246
036254

004737
012760
012760
012760

012760

055614
0000017
000000
000000

041001

000024
000014
000042

3840
3841 036270
3842 036276
3843 036304
3844 036312
3845 036314
3846 036320
3847 036324
ggzg 036332

012760
016037
042737
001410
005037
010037
062737
104226

000001
000012
077777

000000
001142
001142

001140
001136
000012

001136

833 036226
3834
3835
3836
3837

333%3 036262

012737

MOV
MOV
MOV

000024

gggg 036334

N 13

11-APR-80 13:58:55 PAGE 12-80

MOV

#STACK , SP
$RASE RO
TSTQUE ,R1

#103,$TESTN

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

JSR
MOV
MOV
MOV

PC,CNTCLR
#DMD ,RMMR1(R0O)
#0 ,RMER1 (RO)
#0 ,RMERZ2 (RO)

;60 CLEAR CONTROLLER
;LOAD RMMR1
;LOAD RMER1
*LOAD RMER?

MOV

::SET TEST NUMBER IN APT MAIL BOX

#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMR1

:WITH DEBUG CLOCK ENABLED, SET GO AND VERIFY THAT ATA IS RESET
MOV
#GO,RMCS1(RO)
;LOAD RMCS1
MOV
RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT
BIC
#~CATA,SBDDAT
BEQ
108
:BRANCH [F ATA IS RESET
CLR
$GDDAT
MOV
RO, $BDADR
ADD
#RMDS
, SBDADR
EMT
226
108:

3852

SEQ 0169

;END OF

TEST

ttl'ttt't**'**t*tttfi*titi'tttfifitfitttitfitfi'fitilittt'*fifi*t'tttt'it

STEST 104

UNIT READY ATA TEST

tt*'t**ttttttttfitttttttttttttttttt*fiitfittttittttttttttttt'fitttt

036334
036334
036336
036340

000004
000240
012706

036350
%853 036354

013701
012737

3854
3855 036362
3856 036366

004737
012760

055614
000001

000024

012760
012760

000000
177777

000042
000016

012760

001001

000024

001136
000012
100000

001136
001140

036344

3857 036374

3858 036402
3859 036410
3861

3862 036416

3863 036424
3864 036432
3865 036440
3866 036442
3867 036446
3868 036454
gggg 036462
3871
3872 036464
3873 036464
3874 036472
3875 036500

013700

TST104
001100

SCOPE
NOP
MOV

#STACK , SP

;LOAD THE STACK POINTER

001462
000104

MOV
MOV

TSTQUE,R1
#104,$TESTN

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

001276

MOV
001226

012760 000000 000014

016037
042737
001011
010037
062737
012737
104227

012760
012760
016037

000012
077777

177777
000001
000012

001142
001142

000016
000024
001142

;SCOPE CALL

$B8ASE ,RO

:RO = UNIBUS ADDRESS

:SET DIAGNOSTIC MODE AND CLEAR ATA
JSR
PC,CNTCLR
;G0 CLEAR CONTROLLER
MOV
#DMD ,RMMR1 (RO)
:LOAD RMMR1

MOV

MOV
MOV

#0,RMERT(RO)

#0 ,RMER2(RO)
#-1,RMAS(RO)

:LOAD RMER]

;LOAD RMERZ
:LOAD RMAS

:SET UNIT READY AND VERIFY ATA IS SET

MOV
MOV
8IC
BNE
MOV
ADD
MOV
EMT

#DMD 'MUR , RMMR1 (RO)

:LOAD RMMR1

RMDS (RO) , $BDDAT ;STORE RMDS AT $BDDAT
#~CATA, $8DDAT
108
;BRANCH IF ATA IS SET
RO, $BDADR
#RMDS
, $BDADR
#ATA,SGDDAT
227

;CLEAR ATA, RESCT UNIT READY, AND VERIFY ATA IS SET
108:
MOV
#-1,RMAS (RO)
;JLOAD RMAS
MOV
#DMD .RMMR1 (RO)
:LOAD RMMR1
MOV
RMDS(R0),$BDDAT :STORE RMDS AT $8DDAT

CZRMPAQ RMOS5/3/2 DSKLS IST 1

1104

UNIT READY ATA TEST

3876 036506
3877 036514
3878 036516
3879 036522
3880 036530
3881 036536
3882
3883 036540
3884

042737
001011
010037
062737
012737
104230

MACRO v03.01

B 14
11-APR-80 13:58:55 PAGE 12-81
SEQ 0170

077777

001142

001136
000012
100000

001136
001140

BIC
BNE

#~CATA,$BDDAT
208

ADD
MOV
EMT

#RMDS
, $8DADR
NHATA ,SGDDAT
230

MOV

208 :

3885

JEND OF
L

J*TEST 105
AN

036540
036540
036542
036544
036550
036554
036560

RO, SBDADR

3386
3887
3888 036566
3889 036572
3890 036600
3891 036606
%ggg 036614

001100
001276
001462
000105

004737
012760
012760
012760
012760

055614
000001
000000
000000
177777

3894
3895 036622
3896 036630
3897 036636
3898 036644
3899 036646
3900 036654
3901 036660
%gg% 036666

012760
016037
042737
001011
012737
010037
062737
104231

177777
000012
077777
100000
001136
000012

MOV
MOV

001226

MOV

R RN

AR R

AR R RN

RN RN AR

#STACK,SP

#105,8TESTN

001140

#0 ,RMER2 (RO)
#-1,RMAS(RO)

MOV

001136

ADD
EMT

037044

RRARRNAEAAANTR

#0,RMER1 (RO)

001100

055614

:LOAD RMMR1

:LOAD RMER1

:LOAD RIERZ2
;LOAD RMAS

RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#~CATA,$SBDDAT
108

W#ATA,SGDDAT
RO, $BDADR

#RMDS
, $8DADR
231

A AN

001226

A NN

R R

gggpf

MOV
MOV
MOV

LTI

AR A NN

AR AAN AR RARAN N

RN NN R R RN R AR

AN NS

:SCOPE CALL

#STACK,SP
$BASE RO
TSTQUE ,R1

MoV

#106,STESTN

MOV

#1008 ,R2

JSR

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

;cSET TEST NUMBER IN APT MAIL BOX
JINITIALIZE TABLE ADDRESS

g;ORCE COMPOSITE ERROR AND RESET ATA

004737

PPN

JEND OF TEST

TST106

012702

;oSET TEST NUMBER IN APT MAIL BOX

MOV
MOV

MOV
BIC
BNE

R RN

3907
3908 036716
3909
3910
3911 036722
3912 036722

;RO = UNIBUS ADDRESS
JR1 = POINTER TO DEVICE

#DMD, RMMR1 (RO)

J*TEST 106

001276
001462
000106

;WRITE ONES IN ERROR REGISTER 1 AND VERIFY ATA IS SET
MOV
#-1,RMER1(RO)
;LOAD RMER1

000004
000240
012706
013700
013701
012737

;LOAD THE STACK POINTER

$8ASE RO
TSTQUE ,R1

108:

036670
036672
036674
036700
036704
036710

:SCOPE CALL

MOV

000042
000016

001142
001142

;CLEAR THE DEVICE AND RESET ATTENTION
JSR
PC,CNTCLR
;GO CLEAR CONTROL!
FR

000014

aggpf
MOV

000024

ERROR ATA TEST

AN AR AR R AN

TST105:

000004
000240
012706
013700
013701
012737

TEST

PC,CNTCLR

;GO CLEAR CONTROLLER

CZRMPAQ RMOS5/3/2 DSKLS TST 1

T106

MACRO V03.01

3913 036726
3914 036734
%3}2 036742

012760
012760
012760

3917
3918 036750

011203

3919 036752
3920 036754

3921 036756
3922 036764
3923 036772
3924 037000
3925 037006
3926 037010
3927 037014
3928 037020
gg;g 037026
3931
3932 037030

2933 037030
3934 037034
3935 037036
3936 037040
gggg 037042

2939
3940 037044
3941 037044

060003
005013

016037
042737
016237
023737
001410
010337
010037
062737
104232

062702
005712
100401
000730
000410

000001
177777
177777

C 14

11-APR-80 13:58:55 PAGE 12-82
SEQ 0171

000024
000014
000016

MOV
MOV
MOV

#DMD ,RMMR1(RO)
#-1,RMER1(RO)
#-1_RMAS (RO)

:LOAD RMMR1
-LOAD RMER1
*LOAD RMAS

;WRITE THE TEST REGISTER AND VERIFY ATA
MOV
(R2) ,R3
;GENERATE REGISTER ADDRESS
000012
077777
000002
001140

001142
001142
001140
001142

001174
001136
000012

001136

ADD
CLR

MOV
BIC
MOV
CMP
BEQ
MOV
MOV
ADD
EMT

RO,R3
(R3)

RMDS (RO) ,$8DDAT :STORE RMDS AT S$SDDAT
#-CATA, SBDDAT
2(R2)
, $GDDAT
SGDDAT, SBDDAT
108
;BRANCH IF ATA IS OK
R3,$TMPO
RO, $8DADR
#RMDS
, SBDADR
232

sMOVE TABLE POINTER - EXIT IF DONE
108:

000004

208:

ADD
TST
BM]
BR
BR

#4 R2
(R2)
208
58
2008

SEXIT IF ENTRY MINUS
;JUMP OVER TABLE

.TABLE OF REGISTER ADDRESSES AND ATA BITS
1008:
.WORD
RMAS

000016

&g 037046

000000

3944 037050
ggzg 037052

000006
100000

.WORD
JWORD

RMDA
ATA

3947 037054
ggzg 037056

000000
000000

.WORD
-WORD

RMCS1

3950 037060
ggg; 037062

177777
000000

LWORD
-WORD

-1

-WORD

:END OF TABLE

gggz 037064

2008 :

3955

:;t*ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

;END OF TEST

s«TEST 107

037064
037064
037066
037070
037074
037100

2056 037104

3957 037112
3658 037116
3959 037116

P SET ATA TEST

".'tt*ttttttttttt*tttttttttttttttttt*tttttttttttttttttt*ttttttttti

000004
000240
012706
013700
013701
012737

151107:

001100
001276
001462

000107

012702

037254

004737

055370

001226

108:

SCOPE
NOP
MOV
MOV
MOV

;SCOPE CALL

MOV

#STACK, SP
$BASE ,R0
TSTQUE ,R1

#107,$TESTN

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

MOV

#1008 ,R2

SINITTALIZE TABLE POINTER

JSR

PC,SETVV

;GO SET VOLUME VALID

$:SET TEST NUMBER IN APT MAIL BOX

1107

P SET ATA TEST

037122
037124
%gg? 037126

MACRO v03.01

SEQ 0172

000402
104000
000451

BR
EMT
BR

3962
3963 037130
3964 037130
3965 037136
3966 037140
3967 037144
3968 037150
3969 037154
3970 037154
3971 037162
3972 037170
§3;2 037172

012760
012760
005303
001370

141001
041001

000024
000024

3975
3976 037174
3977 037202
3978 037210

016037
042737
001013

000012
077777

001142
001142

3979 037212

3980
3981
3982
gggz

037216
037224
037232
037236

012760
011203
052703
010360
012703

010037

062737
012737
011237
104233

041001

000024

000001
000000
000003

001136

000012
100000
001174

3993
3994
3995
3996
3997
gggg

037254
037254
037256
037260
037262

508

;VERIFY THAT ATA IS SET
MoV
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
BIC
#*CATA,$BDDAT
BNE
40%
MOV

ADD
MOV
MOV
EMT

RO, $BDADR

#RMDS
, $8DADR
HATA, SGDDAT
(R2) ,$TMPO
233

-ADVANCE TABLE POINTER-EXIT IF

062702
005712
100401
000722
000403

000002

508 :

ADD
TST
BMI
BR
BR

#2,R2
(R2)
508
108
200%

000014
000016
177777

DONE

;JUMP OVER TABLE

:TABLE OF FUNCTION CODES
1008:
.WORD
OFFSET
.WORD
RTC
.WORD
-1
2008 :

JEND OF

TABLE

tfil"tfitt"fit'ttt*tt'itt't*ttttitt*tttttt*t*tttttttti'*tiittttt*

tTEST 110

4002 037310
4003 037314
4004 037314

;BRANCH TO 20% [F NO ERROR

408
:

l'mo

037262
037262
037264
037266
037272
037276
4001 037302

20%

:EXECUTE THE COMMAND FROM THE TABLE
208:
MOV
#DMD !MUR ! DBEN ,RMMR1(R0O) .LOAD RMMR1
MOV
(R2) ,R3
;GET FUNCTION CODE
BIS
#GO,R3
MoV
R3 ,RMCS1(RO)
sLOAD RM(CS1
MOV
#3.R3
308MoV
#DMD !MUR ! DBEN!DBCK ,RMMR1(R0)
;LOAD RMMR1
MOV
#DMD !MUR ! DBEN,RMMR1(RO) ;LOAD RMMRI1
DEC
R3
BNE
308

001136
001140

3985

3986 037240
3987 037240
3988 037244
3989 037246
3990 037250
%992 037252

D 14
11~APR-80 13:58:55 PAGE 12-83

SET WLE

TEST

t'ttt't*tttttt*tl’*.tiiitt.fltfittfifi'fifittitittttttfittfi

TST110

000004
000240
012706
(013700
013701
012737

001100
001276
001462
000110

012702

037504

004737

055370

001226
10%:

t'l’!ttt"ttt

SCOPE
NOP
MOV
MOV
MOV
MOV

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

;LOAD
RO =
;R1 =
:;SET

MOV

#1008 ,R2

;INITIALIZE TABLE POINTER

JSR

PC,SETVV

;GO SET VOLUME VALID

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

CZRMPAO RMOS/3/2 DSKLS TST 1

CZRMPAD RMOS/3/2 DSKLS TST 1

1110

SET WLE

TEST

037320
037322

000402
104000

4005 037324
4006

4007
4008 037326
4009 037326
4010 037332
4011 037336
4012
4013
64014 037342
4015 037344
4016 037350
4017 037354
4018 037360
6019 037364
4020 037370
4021 037374
6022 037400
4023 037402
4026 037404
4027 037412
4028 037420
4029 037426
4030 037430
4031 037436
4032 037442
4033 037450
403% 037454
4035 037462
4036 037464
4037
4038
4039 037466
4040 037466
4041 037472
4042 037476
4043 037500
4044
4045 037502
4046
4047
4048 037504
4049 037504
4050 037506
4051 037510
4052
4053 037512
4054 037514
4055 037516
4056
4057 037520
4058 037522
4059 037524

E 14
11-APR-80 13:58:55 PAGE 12-84

MACRO V03.01

000466

?fir

208

508

SEQ 0173

;BRANCH TO 208 IF NO ERROR

éggABLE DEBUG CLOCK AND SET WRITE PROTECT ACCORDING TO TABLE

016203
052703
010360

011204
052704
010460
012705
052703
010360
042703
010360
005305
001366
016037
042737
026237
001417
016237
010037
062737
011237
016237
104234
000406

000002
041001
000024

mov
BIS

MOV

000416

;GuT WRITE PROTECT FROM TABLE

:SET OTHER MAINT BITS

R3,RMMR1(RO) = ;LOAD RMMRI

:LOAD AND EXECUTE THE COMMAND FROM THE TABLE
MOV
BIS
MOV

000001

MOV
BIS

30$:

MOV
BIC
MOV
DEC
BNE

000024

000014
173777
000004

001142
001142
001142

000004
001136

001140

001174
000002

000006
000002

(R2) .R&
#GO, R4
RG,RMCST(RO)

#2.RS
#DBCK ,R3
R3.ARMMR1(RO)
#DBCK ,R3
R3,RMMRT(RO)
RS
308

sGET FUNCTION CODE FROM TABLE
*SET GO
:LOAD RMCST

*RS=CLOCK COUNT
*SET CLOCK
-LOAD RMMR1
*RESET CLOCK
:LOAD RMMRT

;ISSUE 2 CLOCKS

;VERIFY THAT WRITE LOCK ERROR IS ACCORDING TO TABLE
MOV
BIC
CMP
BEQ
MOV
MOV
ADD
MOV
MOV

001136
001176

EMT
BR
isgVANCE

062702
005762
100401
000705

2(R2) .R3

#DMD ' MUR ' DBEN,R3

ADD

#6,R2

BM]
BR

508
108

:REPEAT TEST

2008

;JUMP OVER TABLE

%éegLE OF

DONE

2(R2)

FUNCTION CODES, WRITE PROTECT AND WRITE LOCK ERRORS

"WORD
'WORD

MwP
WLE

:WRITE DATA COMMAND

000060
000000
000000

.WORD
- WORD
-WORD

:WRITE DATA COMMAND
‘MWP OFF
‘WLE OFF

000070
000030
000000

.WCRD
"WORD
" WORD

RD
MwP

:READ DATA COMMAND
‘MWP ON
‘WLE OFF

000060
000010
004000

234
508

TABLE POINTER TO NEXT FUNCTION CODE-EXIT
ST

50$:

RMER1 (RO) , $8DDAT
:STORE RMER1 AT $BDDAT
#~CWLE
, S8DDAT
4(R2)
, $BDDAT
408
:BRANCH IF WLE IS OK
4(R2) ,$GDDAT
-SAVE DATA FOR ERROR MSG
RO, $BDADR
ARMER1, $BDADR
(R2) ,$TMPO
;$TMPO=FUNCTION CODE
2(R2) . $TMP1
‘$TMP1=WRITE PROTECT

.WORD

*WRITE PROTECT ON
*WRITE LOCK ERROR ONE

SET WLE

4060
4061 037526
4062 037530

2822 037532

4065 037534
4066 037536
4067
4068 037540
4069
4070

TEST

F 14
11-APR-80 13:58:55 PAGE 12-85

000020
000010

000000

.WORD
.WORD
.WORD

000000
177777

.WORD
.WORD

407
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081

S*TEST

000004
000240
012706
013709
013701
012737

TST111:

001100
001276
001462
000111

-1

001226

sEND OF

TABLE

JEND OF

TEST

EXCEPTION TEST

AR AN R R AR R RN R

R AN R

zggpf

R AR RN R RR AN

RPN AN

RAN NI RNANNRRO AN

;SCOPE CALL

MOV
MOV
MOV
MOV

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

;LOAD
;RO =
;R1 =
;sSET

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

;WITH OCCUPIED SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN
JEXCEPTION:

PAR,
RMR,

ILR,
DCK
HCE
HCRC
FER
OP]

4082

4083
4084 037566
4085
4086
4087 037572
4088 037572
4089 037576
64090 037604
4091 037612
4092 037614
4093 037620
4094 037626
4095 037632
4096 037634
4097 037634

4098
4099
4100
4101
4102
4103
4104

JREAD IN PRESET COMMAND
JMWP ON
JWLE OFF

200$:

037540
037540
037542
037544
037550
037554
037560

RIP
MwP

SEQ 0174

037640
037642

037644

037646
037646
037654
037562

012702

040040

MOV

IF
IF

RUN AND GO
RUN AND GO

IS SET
[S SET

RUN AND GO IS SET

#1008, R2

;INITIALIZE TABLE POINTER

%éngIALIZE AND VERIFY THAT EXCEPTION IS RESET

004737
016037
042737
001410
010037
062737
005037
104235
004737

000402
104000

055614

000024
167777

001142
001142

001136
000024
001140

001136

20%:

055370

000474

MOV
BIC
BEQ
MOV
ADD
CLR
EMT

JSR

PC.CNTCLR

RMMR1 (RO) , SBDDAT
©STORE RMMR1 AT $BDDAT
#~CREX, $BODAT
208
:BRANCH IF EXCEPTION IS 0
RO, $8DADR
#RMMR1
, $BDADR
$GDDAT
235

;G0 CLEAR CONTROLLER

JSR
?fir

PC,SETVV
30$

;G0 SET VOLUME VALID
*BRANCH TO 30% IF NO ERROR

B8R

608

Sséscurf A WRITE DATA COMMAND TO SET OCCUPIED,

01
012760
01

000000
000000
041001

000006
000034
000024

Moy

MOV
MoV

#0 ,RMDA (R()

;LOAD RMDA

RUN AND GO

#0 RMDC (RO)
*LOAD RMDC
4#DMD !MUR .DBEN,RMMR1(RO) ;LOAD RMMR1

ey Ny

110

MACRO Vv03.01

o ]

IRMPAQ RMOS5/3/2 DSKLS TST 1

CZRMP AO RMOS/3/2 DSKLS TST 1
"
EXCEPTION TEST

000000

012760

141001
041001

000024
000n2¢4

G 14

11-APR-80 13:58:55 PAGE 12-86

40%:

016037

000024
167777

SN
o

001530
-

000014
000200
161572

6117 037754
4118 037756
6119 037762
4120 037764
4121 037770
6122 037776
4123 040002
4124 040010
4125 040014
4126 040016

#WD ! GO,RMCS1(RO)

MOV

#DMD !MUR ! DBEN!D
,RMMR1
BCK
(R0)
;LOAD
#gMD!MUR!DBEN,RNNR1(RO) :LOAD RMMR1
R

MOV
DEC

010000
001136
000024
001174

RMMR1

s ISSUE 2 CLOCKS

408

;LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET
MOV
(R2) ,RMER1 (RO)
;LOAD RMER1
MOV
#200,WATCH
;SET WATCHDOG TIMER VALUE
PC.,aCLOCK
JSR
;START THE CLOCK

4(5%:

RMMR1
(RO) , $BDDAT

MOV

508

TST

45%

PC,aSTOP
#REX,$GDDAT

RO, $8DADR
#RMMR1,$8 'ADR

MOV
ADD
MoV

001136

(R2) ,$TMPQ

236

EMT
B8R

%GgVANCE

141510

TABLE POINTER-EXIT

JSR

000002

DONE

PC,aSTOP

;STOP THE

#2,R2
(R2)

ADD
TST

60%:

sHAS CLOCK EXPIRED ??
;NO - TAKE ANOTHER SAMPLE
;STOP THE CLOCK

WATCH

BNE
JSR
MOV

001140

8EQ
BR

JPRESENTLY,

;STORE RMMR1 AT $8DDAT

#*CREX,$BDDAT

BIC
BNE

001530
141544

;LOAD RMCS1

#2,R3

BNE

011260
012737
004777

SEQ 0175

MOV

MoV

001370

037734
4115 037740
037740
6116 037746

000061
000002

—_

41
6109 037716
4110
037720
41
41
41
4

012760
012703

o0
oC

4 05 037670
3 06 037676
4 07 037702

MACRO v03.01

CLOCK

;JUMP OVER TABLE
THE

TABLE

HAS ONLY ONE

ENTRY,

THE

TEST USING RMR.,

THE

;TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF
;A HARDWARE (HANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR

JREGISTER 1 WITH GO SET.

100%:

:
2008
oA

. WORD

4148

A A AN

A0SR

TST112:

000004
000240
012706

013700
013701
012737

END OF TABLE
;END OF TEST
AN AR

RN AR NN AR AN AR AN ANAAARANNRAR AR

RECALIBRATE

MOV
MOV
MOV

AR AR NN

TEST

222220280222

SCOPE

NOP
MoV

001226

JRMR IS CAUSED BY HARDWARE

WORD

LWTEST 112
A

RMR

2222222222222 22X

SR TR R

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

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

sR1

= POINTER TO DEVICE

;.SET TEST NUMBER IN APT MAIL BOX

—

CZRMPAO RMOS/3/2 DSKLS TST 1
TM 2
RECAL IBRATE TEST

MACRO v03.01

H 14
11-APR-B0 13:58:55 PAGE 12-87

4149 040072

055370

JSR
?ST

PC,SETVV
108

4150 040102

041400

JMP

3308

040076
040100

4151
4152
4153 040106
4154 040106
4155 040114
4156 040122
4157 040130
4158
4159
4160 040136
4161 040142
040142
4162 040150
4163 040156
4164 040160
4165
4166
4167 040162
4168 040170
4169 040174

040174

4170 040202
4171 040210
4172 040212

4173

4174
4175 040214
4176 040222

4177 040230
4178 040232
4179 040240
4180 040244
4181 040252
4182
4183 040254
418%
4185
4186 040262
4187 040262
040266

040270

4188 040272
4189
4190
4191 040276
4192 040276

4194
4195
4196
4197
4198
4199

012760
012760
012760
012760

041001
000000
000000
000007

012702

000002

012760
012760
005302
0013790

161001

041001

000024

000042
000000

000024
000024

000024

012760
012760
005302
001370

140001
040001

000024

016037
042737
001011
012737
010037
062737

000014
157777

001142
001142

020000
001136
000014

001140

012737

040262

001124

004737
000403

055370

000137

041400

104000

MOV

#DMD !MUR ! DBEN ,RMMR1 (RO) ;LOAD RMMR1

MOV
MOV

#0 ,RMERZ2 (RO)
:LOAD RMER?
HRECAL !GO,RMCS1(R0O)
;LOAD RMC(CS1

MoV

#0 ,RMER1 (RO)

sLOAD RMER1

;STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS)

040001
000002

104241

000014

012760
012702

000024

20%:

MoV

#2,R2

MOV
ggg

#DMD ! MUR ' DBEN ! DBCK , RMMR 1 (RO)
:LOAD RMMR1
zgmosmua:oeen,anna1(R0) ;LOAD RMMR1

BNE

208

:DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)
MOV
#DMD ! DBEN ,RMMR 1 (R0)
;LOAD RMMRI

“0

MOV

#2 ,R2

MOV

#DMD ! DBEN ! DBCK ,KMMR1 (RO)

BNE

30$

ggg

ggno:oes~.nnna1<no>

:VERIFY THAT OPIl IS SET
MOV
RMER1 (RO) , $8DDAT

001136

BIC
BNE
MOV
MOV

#-COPI, $SBDDAT
408
#OP] ,$GDDAT
RO, $8DADR

EMT

2641

ADD

#RMER1
, $BDADR

40$:

MoV

gXER’F'

THAT RECALIBRATE ABORTS DURING EXECUTION

040312
040320
040326

012702

000003

000024

000014

:LOAD RMMR

;LOAD RMMRI

;STORE RMER1 AT $8DDAT

#508 , SLPERR

JSR

PC,SETVV

JMP

330s

?fiT

60%

:CHANGE | 0OP ON ERROR ADDRESS

;60 SET VOLUME VALID

;BRANCH TO 60% IF NO ERROR

éggABLE DEBUG CLOCK AND LOAD RECALIBRATE

041001

040332

;GO SET VOLUME VALID
JBRANCH TO 108 [F NO ERROR

%SQABLE DEBUG CLOCK AND LOAD RECALIBRATE (OMMAND

012760
012760
012760
012760

4193 040304

SEQ 0176

000042

000000

COMMAND

MOV

#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMR1

MOV

#0 ,RMERZ (RO)

MOV

MoV

#0,RMER1 (RO)

;LOAD RMER1

:LOAD RMER?2

#RE CAL ! GO,RMCS1(R0)

;LOAD RM(S1

sSTEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT
70%:

MOV

#3.R2

(3 CLOCKS)

%%?MPAO RMO5/3/2 DSKLS TST 1
12
RECALIBRATE TEST

MACRO v03.071

4200 040332
6201 040340
6202 040346
2%82 040350

012760
012760
005302
001370

141001
041001

000024
000024

4205
2589 040352

012760

041101

000024

012702

000002

4208
4209 040360
4210 040364
0764
4211 040372
4212 04400
4213 04,0402
4214 (40404
4215 040412
6216 060420
4277 040422
4c18 040426
4219 040432

C12760
005302
001370
016037
042737
001405
010037
005037
104242

4221 040434

012737

4223
4224 040442
4225 040442
040446
040450

zggg 040452

4228
4229 040456
4230 040456

012760

004737
000403
104000

000137

141101

000024

000000
177776

001142
001142

041101

000024

001136
001140

060442

001124

055370

041400

4232 040472
2532 040500

4235
4236 040506

012702

000017

012760
012760
005302
001379

141001
041001

000024
000024

016037
042737
001011
010037
062737
012737
104243

000014
157777

001142
001142

001136
000014
020000

001136
001140

040600

001124

4243
4244 040532
4245 040540
42646 040546
4247 040550
4248 040554
4249 040562
4250 040570
4251
2%2% 040572

012737

#DMD MUR ! DBEN!DBCK ,RMMR1 (R0O)
;LOAD RMMR1
#DMD !MUR ! DBEN,RMMR1
(RO) ;LOAD RMMR1
R2
708

;SET DRIVE FAULT TO CAUSE ABORT CONDITION
MoV
#DMD !MUR ! NBEN !MDF ,RMMR1 (RO)

;LOAD RMMR1

;STEP 2 CLOCKS AND VERIFY GO IS RESET
MOV
#2,R2
80%:
MoV
#DMD !MUR ! DBENMDF !DBCK ,RMMR1 (RO)
;LOAD RMMR1
MOV
#DMD !MUR ! DBEN .MDF ,RMMR1 (R0O)
;LOAD RMMR1
DEC
R2
BNE
80$
MOV
RMCS1(RO) , $BDDAT
;STORE RM(CS1 AT $8DDAT
BIC
#°CGO, $BDDAT
BEQ
90%
MOV
RO, $BDADR
CLR
$GDDAT
EMT
242
90S$:

MOV

JMP

061001
000000
000000
000007

4237 040512
4238 040512
4239 040520
4240 040526
252; 040530

MOV
MoV
DEC
BNE

SEQ 0177

#7008, SLPERR

;CHANGE LOOP ON tRROR ADDRESS

;VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR
100%:
JSR
PC,SETVV
;GO SET VOLUME VALID
BR
110%
;BRANCH TO 1108 IF NO ERROR
EMT

012760
012760
012760
012760

4231 040464

I 14

11-APR-80 13:58:55 PAGE 12-88

000024
000014
(00042
000000

3308

:ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND
110%:
MOV
#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMRI1

MOV

MoV
MoV

#0,RMER1 (RO)

sLOAD RMER1

#0 ,RMERZ2 (RO)
:LOAD RMER?2
#RECAL !GO,RMCS1(RO)
;LOAD RM(CS1

;STEP THE COMMAND SEQUENCER
MoV
#15..R2
1208
:
MOV
#DMD !MUR ! DBEN!DBCK ,RMMR1 (RO)
;LOAD RMMR1
MOV
#DMD !MUR !DBEN,RMMR1 (RO) ;LOAD RMMR1
DEC
R2
BNE
1208
JVERIFY THAT OPl IS SET
MOV
RMER1(RO) ,$8DDAT
BIC
#*COPI1 ,$BDDAT
BNE
1308
MOV
RO, $8DADR
ADD
#RMER1,$BDADR
MOV
#OP],$GDDAT
EMT
243

1308:

MOV

#1508, SLPERR

;STORE RMER1

AT $BDDAT

s CHANGE LOOP ON ERROR ADDRESS

112

RECALIBRATE

TEST

4254

4256 040600

055370

4257 040610
4258

041400

040604
040606

4263 040630
4264 040636
4265
4266
4267 0460644
4268 040650
040650
4269 040656
4270 060664
4271 04C666
4272
4273
4274 040670
4275 040676
4276
4277
4278 040704
4279 040710
4280 040710
4281 040716
4282 0460724
4283 040726
4284
4285
4286 040730
4287 040736
4288 040744

JSR

PC,SETVV

JMP

3308

EZT

1608

(ON CYLINDER SETS)

2GO SET VOLUME VALID

sBRANCH TO 160% IF NO ERROR

%ggéBLE DEBUG CLOCK AND LOAD RECALIBRATE (OMMAND

012760
012760
012760
012760

041401
000000
000000
000007

012702

000015

012760
012769
005302
001370

161401
0461401

012760
012760

041001
041401

012702

000003

012760
012760
005302
001370

016037

141401

041401

000024
000014
000042
000000

000024
000024

mov

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

MOV

#0 ,RMERZ2 (RO)

MoV

Mov

#0 ,RMER1 (RQ)

sLOAD RMER1

;LOAD RMMR1

:LOAD RMER?2

#RECAL !GO,RMCS1(R0O)

;LOAD RMC(CS1

1708:

#13.,R2

MOV
ggg

#DMD ! MUR ! DBEN ! DBCK ! MOC ,RMMR1 (R0)
:LOAD RMMR1
zgmosmuneoee~enoc,nnnn1<Ro>
:LOAD RMMR1

BNE

170$

;DROP ON CYLINDER TO RESET LATCH.,
MOV

MOV

THEN SET ON CYLINDER

#DMD ' MUR ' DBEN.RMMR1
(RO)

:LOAD RMMR]

#DMD i MUR | DBEN 'MOC . RMMR1 (R0)

SLOAD RMMR

:STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS)
000024
000024

001142
001142

100000

001140

040776

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)

000012
077777
001136
000012

4297 040776

SEQ 0178

%ggglFY ATA SETS IF DRIVE COMPLETES RECALIBRATE

4255 040600

4261 040614
4262 040622

J 14
11-APR-80 13:58:55 PAGE 12-89

MACRO v03.01

180%:

#3.R2

MOV
rggg

#DMD ' MUR ! DBEN 'MOC ! DBCK . RMMR1 (RO)
:LOAD RMMR1
zgnomumoeenmoc,mm1 (RO)
:LOAD RMMR1

BNE

1808

;VERIFY ATA IS SET

001136

001124

MOV

1908:

MOV
BIC
BNE
MOV
MOV
ADD
EMT

RMDS (RO) , $8DDAT :STORE RMDS AT $8DDAT
#~CATA, S8DDAT
190$
#ATA, SGDDAT
RO, S8DADR
A#RMDS
, $8DADR
244

MOV

#2008 ,$LPERR

:CHANGE LOOP ON ERROR ADDRESS

éggglrv THAT RECALIBRATE ABORTS AFTER EXECUTION DURING WAIT LOOP

055370

JSR

PC,SETWV

B8R

3308

Efir

2108

;GO SET VOLUME VALID

‘BRANCH TO 2108 IF NO ERROR

égggsLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

041401
000000
000000

000024
000014
000042

mov

MOV
MOV

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

#0,RMER1(RO) ~
#0.RMER2(RO)

:LOAD RMER]
:LOAD RMER?

:LOAD RMMR1

CZRMPAOQ RMOS/3/2 DSKLS TST 1

CZRMPAO RMOS/3/2 DSKLS TST 1

T112

RECALIBRATE

TEST

2%8? 041032

012760

000007

4308
4309 041040
4310 041044

012702

000015

4311 041044

012760

4312 041052
4313 041060

141401

041401

2§}§ 041062

012760
005302

001370

4316
2;}; 041064

012760

041001

4319
4320 041072
4321 041076
1322 041076
4323 061104
4326 041112
zggg 041114

4327
4328 0461116
4329 041124
4330 041132
4331 0411346
4332 041142

2;;2 041146

4335
4336 041150

337 041150

4338

4339 041156
4340 041162

041162
4341 041170
4342 041176
4343 041200
4344 041202
4345 041210
4346 041216
4347 041220
4348 041226
2§§3 041230

2;2} 041232

000024

012760
012760
005302

141001
041001

000024
000024

016037
042737
001006
012737
010037

000000
177776

001142
001142

000007
001136

001140

001370

104245

012760

041201

012702

000003

012760
012760

141201
041201

00532
001370
016037
042737
001405
010037
005037

104246

012737

MOV

MOV
DEC

000000
177776

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

#DMD | MUR | DBEN | MOC .RMMR1 (RO)
R2

;LOAD RMMR1

2208

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)
MOV
47 .R2
2308
:
MOV
#DMD 'MUR ! DBEN ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
MOV
#DMD I MUR i DBEN.RMMRT
(RO) :LOAD RMMRI
DEC
R2
BNE
2308

;VERIFY THAT GC IS STILL SET
MOV
RMCS1(RO) , SBDDAT
BIC
#~CGO, SBDDAT
BNE
2408
MOV
#GO, $GDDAT
MOV
RO, $8DADR

;STORE RMCS1 AT $BDDAT

245

:SET SEEK INCOMPLETE ERROR
2408:

MOV

#DMD 'MUR ! DBCN !MSER ,RMMR 1 (RO)

:LOAD RMMR1

;STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)
000024
000024

2508

001142
001142

001136
001140

041240

;LOAD RMCS1

;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0
MOV
#DMD 'MUR ' DBEN,RMMRT(RO) ;LOAD RMMR1

EMT

000024

#RECAL ! GO,RMCS1(RO)

SEQ 0179

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)
MOV
#13. .R2
2208:

000024

000007

MOV

#3.R2

MOV
MOV

#DMD 'MUR ! DBEN'MSER ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD 'MUR | DBEN!MSER . RMMR 1 (RO)
;LOAD RMMR1

DEC
BNE
MOV
BIC
BEQ
MOV
CLR

R2
2508
RMCS1(RO) , S8DDAT
#~CGO, $8DDAT
2608
RO, $8DADR
$GDDAT

MOV

#3008,$LPERR

EMT

001124

2608:

;STORE RMCS1 AT $BDDAT

246

;CHANGE LOOP ON ERROR ADDRESS

:VERIFY THE TAG BUS DURING RECALIBRATE

(04737

041246
2;29 041250

04000
000453

4358

000024

012702

4355 061240

041244

000000

K 14
11-APR-8C 13:58:55 PAGE 12-90

BNE

4353

4354 041240

MACRO Vv03.01

)00402

055370

3008
:

JSR

PC,SETVV

EMT
BR

3308

B8R

3108

;GO SET VOLUME VALID

*BRANCH TO 3108 IF NO ERROR

;ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

CZRMPAQ RMOS5/3/2 DSKLS TST 1
1112
RECALIBRATE TEST

4359 041252
6360 041252
4361 041260
4362 041266
4363 0641274
2%2? 041302
4366
4367 041306
041306
4368 041314
6369 041322
4370 041326
4371 041330
6372 041334
4373 041340
4374 041346
4375 041350
4376
4377
4378 041352
4379 041352
4380 041356
4381 041360
4382
4383
4384 041362
4385 041370
4386 041376
4387 041400
4388
4389
4390 041402
4391 0641402
4392 041404
4393 041406
4394 041410
4395 041412
4396 041414
4397 041416
4398 041420
4399 041422
4400 041426
4401 041426
4402 041430
4403 041432
4404
4405 041434

4406
4407 041436
4408
4409

012760
012760
012760
012760
012702

041401
000000
000000
000007
041402

L 14

MACRO v03.01

000024

11-APR-80 13:58:55 PAGE 12-91

310s:

000014
000042

MOV

#DMD 'MUR ! DBEN'MOC
,RMMR 1 (R0O)

MOV
MOV

#RECAL 'GO,RMCS1(RO)
;LOAD RM(CS1
#6008 ,R2
JINITIALIZE TABLE POINTER

MOV
MOV

000000

SEQ 0180

#0 ,RMER1T(RO)
#0 ,RMERZ2 (RO)

;LOAD RMERI1
;LOAD RMERZ

;LOAD RMMR1

S¥E§IFY TAG BUS ACCORDING TO TABLE

016037
042737
021237
001411
011237
010037
062737
104247
000413

000040
150000
001142
001140
001136
000040

001142

MOV

001142

8IC
CMP
BEQ
MOV
MOV
ADD
EMT
BR

001136

ggggANCE

062702
005712
100407

000002

012760
012760
000743
000416

151001
041401

TO NEXT ENTRY

ADD
TST

BMI
000024
000024

;STORE RMMRZ AT $8DDAT

IN TABLE-EXIT

#2,R2
(R2)

3308

DONE

JEXIT IF ENTRY NEGATIVE

.STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION
MOV
#DMD ! DBEN ! MUR 'MOV ' DBCK ,RMMR 1 (RQ)
;LOAD RMMR1
MOV
#DMD ! DBEN ' MUR 'MOC ,RMMR1 (RO)
;LOAD RMMR1
BR
3158
3308:
BR
5008
;:JUMP OVER TABLE
igegLE OF

001777
001777
006100
006100
026100
026100
026100
026100
026100
026100
006100
006100
001777

RMMR?2 (RO) , $BDDAT

#RQA'RQB'TST,$BDDAT
(R2) ,$8DDAT
3208
(R2) ,$GDDAT
RO, $8DADR
#RMMRZ
, $BDADR
247
330¢

TAG BUS CONTROL AND BIT VALUES

.WORD

"WORD
'WORD

1777
CC!CH'BBO6

;BUS BITS AT HIGH IMPEDANCE STATE
;CONTROL BITS ENABLED, BIT 6 ON

.WORD
.WORD
"WORD
JWORD
"WORD
"WORD
.WORD
"WORD
"WORD

CC!CH!BBO6
TAG!CC'CH!BBO6
TAG!CCiCHIBBO6
TAG!(CCiCHIBBO6
TAG!CC!CHiBBO6
TAG!CCiCHIBBO6
TAG!CC!CHIBBO6
CC!CH'BBO6
CC!CH!BBO6

1777

:CONTROL BITS DISABLED

JWORD

-1

;END OF

JWORD

177777

1777

5008 :

:TAG COMES ON

:TAG GOES OFF

TABLE

:END OF TEST

:."Itt'fiit.tttt'tfit.**"i"i"'t*'t*fififi*fifittlttfififi*fifitt' (2322338

TRTEST 113

3§

SEEK TEST

.':"li'fiiti'tfi*itfitt'fit.'tttitt'fi*tttfi'fi"t'ttttfititfi'fifi"ttttttt

000004

TST113:

SCOPE

;SCOPE

*
CALL

CZRMPAQ RMOS/3/2 DSKLS ST 1

T113

4410
4411
4412

SEEK TEST

041440
041442
041446
041452
041456

000240
012706
013700
013701
012737

001100
001276
001462
000113

MACRO v03.01

NOP
MOV

#STACK,SP

;LOAD THE STACK POINTER

MOV

#113,$TESTN

;.SET TEST NUMBER IN APT MAIL BOX

MoV
MOV

001226

SEQ 0181

$8ASE RO
TSTQUE ,R1

;RO = UNIBUS ADDRESS
sR1 = POINTER TO DEVICE

;VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION

4613 061464
041470
041472
4416 041476

4415
4416

004737
000403
106000
000137

055370

JSR

PC,SETVV

JMP

3308

?ZT

063114

108

;GO SET VOLUME VALID

sBRANCH TO 108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

4417

4418 041500
4419 041500
4420 041506

%egDRESS,

012760
012760
012769
012760
012760
012760

041001

012702

000002

041550

012760

141001

4430 041564
4431 041566
4432
4433
443 041570
4435 041576
4436 041602
041602
4437 0461610
4438 041616
4439 041620
4440

005302
001370

4421
6422
4423
4424

LY
11-APR-80 13:58:55 PAGE 12-92

041514
041522
041530
041536

4427 041544
4428 041550

4429 041556

4441

4442 041622
4443 041630
4444 041636
4445 061640
4446 041646
4647 041652
4448 041660
4449
4450 041662
4451

4452
4453 041670
4454 061670
041674
041676
4455 041700

012760

041001

000024
000006
000034
000014
000042
000000

000024

012760
012760
005302
001370

140001
040001

000024

016037
042737
001011
012737
010037
062737
104250

000014

001142
001142

020000
001136
000014

001140

041670

001124

004737
000403

055370

000137

043114

104000

000024

040001
000002

012737

#DMD 'MUR ! DBEN,RMMR1
(RO) :LOAD RMMR1
#0 ,RMDA (RO)
;LOAD RMDA
#0 . RMDC (RO)
*LOAD RMDC
#0 RMER1(RO)
:LOAD RMER1
#0 RMER2(RO)
:LOAD RMER2
#SEEK ! GO,RMCS1(RO)
;LOAD RMCS1

;STEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS)

208

012760
012702

157777

MOV
MOV
MOV
MOV
MOV
MOV

AND LOAD SEEK COMMAND

000024

MOV

#2.R2

MoV

#DMD 'MUR ! DBEN!DBCK ,RMMR1(RO)

BNE

208

r[;ng%

ggnomua:oem.muam

:LOAD RMMR1

;LOAD RMMR1

;DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)
MOV
#DMD ! DBEN, RMMR1 (RO)
;LOAD RMMR1

<05

MOV

#2.R2

Mov

#DMD ! DBEN' DBCK ,RMMR1 (RO)

BNE

308

ggg

ggflD!DBEN,RMMR1(RO)

:VERIFY THAT OPI IS SET
MOV
RMERT (RO) , $8DDAT
BIC
#~COP], SBDODAT

:LOAD RMMR1

;LOAD RMMR1

:STORE RMER1 AT $BDDAT

BNE
MOV
MOV

ADD
EMT

408
#OP]
, SGDDAT
RO, $8DADR
#RMER1, $BDADR
250

40$:

MOV

#508 ,SLPERR

gggfllf'

THAT SEEK ABORTS DURING EXECUTION

001136

JSR

PC,SETWVV

JMP

3308

?fir

60$

s CHANGE LOOP ON ERROR ADDRESS

;60 SET VOLUME VALID

*BRANCH TO 608 IF NO ERROR

94 RMPAQ RMOS5/3/2 DSKLS TST 1
M 13
SEEK TEST

4456
4457
4458
4459 041704
4460 041704

4471 041762
4472 041770
4473 041772
4474
4475
4476 041774
4477
4478
4479 042002
4480 042006

042006

4481 042014
4482 042022

4483 042024

4484 042026
4485 042034
4486 042042
4487 042044
4488 042050
4489 042054
4490
4491 042056
4492
4493
4494 042064

MACRO v03.01

N 14
11-APR-80 13:58:55 PAGE 12-93

SEQ 0182

JENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

éS%DRESS'

012760
012760
012760
012760
012760
012760

041001
000000
000000
000000
000000
000005

12702

000003

012760
012760
005302
001370

141001

041001

012760

041101

012702

000002

012760
012760
005302
001370
016037
042737
001405
010037
005037

141101
041101

104251

012737

000024

MOV
MOV
MOV
MOV
MOV

000006
000034
000014
000042
000000

MOV

#DMD ! MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#0 ,RMDA (RO)
:LOAD RMDA
#0 ,RMDC (RO)
cLOAD RMD(
#0 ,RMER1 (RQ)
;LOAD RMER1
#0 ,RMER2 (RO)
;:LOAD RMERZ2
#SEEK!GO,RMCS1(RO)

sLOAD RM(CS1

;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)

208

000024
000024

000024

MOV

#3,R2

MOV

#DMD !MUR ! DBEN ' DBCK ,RMMR1(R0)

BNE

708

ggg

ggMD!MUR!DBEN.RNFR1(RO)

MOV

;LOAD RMMR1

sSET DRIVE FAULT TO CAUSE ABORT CONDITION

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

;LOAD RMMR1

;STEP 2 CLOCKS AND VERIFY GO IS RESET

308

000024
000024

000000
177776

MoV

#2,R2

MOV

#DMD !MUR ! DBEN !MDF ! DBCK ,RMMR1 (RO)

BNE

80$

MOV

#1008, SLPERR

ggg

MOV
BIC
BEQ
MoV
CLR
EMT

001136
001140

042064

AND LOAD SEEK COMMAND

001124

908 :

gBMDEMUR!DBEN!MDF.RMMR1(RO)

RMCS1(RO) ,$8DDAT
#*CGO, $BDDAT
90$
RO, $8DADR
$GDDAT
251

;STORE RM(CS1

055370

JSR
BR
EMT
JMP

PC,SETVV

110%

s CHANGE LOOP ON ERROR ADDRESS

;GO SET VOLUME VALID

;BRANCH TO 1108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
i?ggRESS'

012760
012760
012760
012760
012760
012760

000005

012702

000017

041001

000024
000006
000034
000014
000042
000000

MOV
MOV
MOV
MOV
MOV
MOV

AND LOAD SEEK COMMAND

#DMD !MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#0,RMDA (R))
;LOAD RMDA
#0 ,RMDC (R))
;LOAD RMD(
#0,RMER1(RD)
;LOAD RMER1
#0,RMER2 (RO)
:LOAD RMERZ2

#SEEK
' GO,RMCS1(RD)

;STEP THE COMMAND SEQUENCER
MOV

#15..R2

)

AT $8DDAT

JVERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR

100%:

043114

4509 042144

;LOAD RMMR1

;LOAD RMCS1

AQ RMO5/3/2 DSKLS
3
SEEK TEST

MACRO v03.01

012760
012760
005302
001370

815

11-APR-80 13:58:55 PAGE 12-94

MOV
MOV
DEC
BNE

#DMD 'MUR ! DBEN ! DBCK ,RMMR1 (RO)

R2
1208

RMER1(RO) ,$8DDAT

MOV
8IC

AT $8DDAT

1308

KO, SBDADR

MOV
ADD

#RMER1, $BDADR

EMT

252

#0P] ,$GDDAT

MOV

012737

;STORE RMER1

#“COP1,$BDDAT

BNE

104252

:LOAD RMMR1

#DMD ' MUR | DBEN.RMMRT
(RO) ;LOAD RMMR1

;VERIFY THAT OPI IS SET

016037
042737
001011
010037
062737
012737

SEQ 0183

#1508 ,SLPERR

MOV

;CHANGE LOOP ON ERROR ADDRESS

:VERIFY ATA SETS IF DRIVE COMPLETES SEEK (ON CYLINDER SETS)
004737
000403

JER
BR
EMT
JMP

104000

000137

PC,SeTVV

160%

;GO SET VOLUME

VALID

;BRANCH TO 160% IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

.ADDRESS,

012760
012760
012760
012760
012760
012760

;LOAD RMMR1

:LOAD RMDA
sLOAD RMD(C
;LOAD RMER1

#0 ,RMER2 (RO)
:LOAD RMER?2
WSEEK!GO,RMCS1(RO)
;LOAD RM(CS1

;STEP CO;SCND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)
#13. R

012702
012760
012760
005302
001370

MOV
MOV
DEC
BNE

#DMD !MUR ! DBEN ! DBCK !MOC

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

R2
1708

,RMMR1(RO)

;LOAD RMMR1

sDROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER

012760
012760

MOV
MOV

#DMD !MUR ! DBEN ,RMMR1 (RO)

;LOAD RMMR1

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

;LOAD RMMR1

;STEP COMMAND SE QUENCER TO SET ATTENTION (3 CLOCKS)
#3,R2
<

012702
012760
012760
005302
001370
nono

—

MOV
MOV
DEC
BNE
—

016037
042737

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

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

jole]

4540 042310
4541
4542
4543 042316
4544 042322
042322
4545 04642330
4546 042336
4547 042340
4548
4549
4550 042342
4551 042350
4552
4553
4554 042356
4555 042362
4556 042362
4557 042370
4558 042376
4559 042400
4560
4561
4562 042402
4563 042410

AND LOAD SEEK COMMAND

160

#DMD !MUR ! DBEN !MOC ! DBCK ,RMMR1 (R0)
;LCAD RMMRI
ggMD!HUR!DBEN!MOC,RFHR1(RO)
:LOAD RMMR1

180%

JVERIFY ATA IS SET
MOV
8IC

RMDS (RO) , $BDDAT ;STORE RMDS AT S$BDDAT

#*CATA $BDDAT

4564 042416
6565 042420
4566 042426
4567 042432
4568 042440
4569
4570 042442
4571
4572
4573 042450
4574 042450
042454
042456
6575 042460
4576
6577
4578

4579 042464
4580 042464
4581 042472
4582 042500
4583 042506
4584 042514
4585 042522
4586
4587
4588 042530
4589 042534
4590 042534
4591 042542
4592 042550
4593 042552
4594
4595
4596 042554
4597
4598
4599 042562
4600 042566
4601 042566

4602 042574
4603 042602

4604 042604
4605
4606

4607 042606

4608 042614
4609 042622
4610 042624
4611 042632
4612 042636
4613
4614
4615 042640
4616
4617

042640

001011
012737
010037
062737

001136
000012

012737

042450

104253

100000

c 15

MACRO v03.01

11-APR-80 13:58:55 PAGE 12-95
BNE

001140

001124

#ATA,SGDDAT

ADD

#RMDS
, SBDADR

MOV

#2008, SLPERR

EMT

1908:

1908

MOV

001136

SEQ 0184

RO, $BDADR

253

s CHANGE LOOP ON ERROR ADDRESS

éggglFY THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP

055370

JSR

EMT

043114

JMP

PC,SETWV

2108

;GO SET VOLUME VALID
;BRANCH TO 2108 IF NC ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
:ADDRESS AND LOAD SEEK COMMAND

012769
012760
012760
012760
012760
012760

041401
000000
000000
000000
000000
000005

012702

000015

012760
012760
005302
001370

141401

041401

012760

041001

012702

000007

012760
012760
005302
001370

016037
042737
001006
012737
010037
104254

1641001

041001

210$:

MOV
MOV
MOV

000000

000024
000024

000024

000024
000024

000000
177776

001142
001142

000001
001136

001140

MOV
MOV
MOV

041201

000024

#0 ,RMDA (RO)
#0 ,”RMDC (RO)

;LOAD RMDA
;LOAD RMD(C

;LOAD RMMR1

#0 ,RMERT(RQ)
:LOAD RMERI1
#0 ,RMER2 (RO)
.LOAD RMER?
#SEEK.GO,RMCS1RO)
;LOAD RM(CS1

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)
MOV
#13..R2
220%:
MOV
#DMD 'MUR ! DBEN'MOC
'DBCK
,RMMR1(RO)
;LOAD RMMR1
{‘)KE)X

ggflDme!DBEmeC,RNVN (RO)

BNE

2208

;LOAD RMMRI

;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER O

MOV

#DMD 'MUR 'DBEN,RMMR1 (RO)

;LOAD RMMR1

JSTEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)
MOV
#7 ,R2
230%:
MOV
#DMD 'MUR ' DBEN'DBCK
,RMMR1 (R0O)
;LOAD RMMR1
SCE)\CI

ggflD!MR!DBEN,RIMm (RO)

BNE

2308

;VERIFY THAT GO IS STILL SET
MOV
8IC
BNE
MOV
MOV

5251 SEEK

012760

#DMD 'MUR ! DBEN 'MOC ,RMMR1 (R0)

RMCS1(RO) ,$8DCAT
#4CGO, $BDDAT
2408
#GO,$SGDDAT
gngBDADR

;LOAD RMMR1

;STORE RMCS1 AT $BDDAT

INCOMPLETE ERROR

MoV

#DMD 'MUR ' DBEN 'MSER,RMMR1
(RO)

:LOAD RMMR]

;STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)

94 RMPAQ RMO5/3/2 DSKLS ST 1
T 13
SEEK TEST

CZRMPAD RMOS5/3/2 DSKLS TST 1

T113

SEEK TEST

4618 062646
4619 042652

042652

012702

012760

4620 042660
4621 042666
4622 042670
4623 042672
4624 0462700
4625 062706
4626 0642710
4627 062714
2253 042720

012760
005302
001370
016037
042737
001405
010037
005037
104255

4630 042722

012737

22%; 042730

012703

MACRO v03.01

000003

141201

000024

000000
177776

001142
001142

041201

000024

001140

042734

000001

001124

004737

042742
22%9 042744

104000
000463

000402

3008

055370

640 042746
4642
4643
4644
4645
4646
2225

042754
042762
062766
042776
043002
043010

012760

012760
010360
012760
012760
012760
012702

016037
042737
011237
050337
023737
001407
010037
062737

2223 043064

000413

4658 043062

041401

000000
000034
000000
000000
000005
043130

000024

104256

062702

4665 043074

100407

4667
4668 043076
4669 043104

4670 043112

#3008 ,$LPERR

#1,R3

. CHANGE LOOP ON ERROR ADDRESS

CINITIALIZE CYLINDER ADDRESS

JSR

PC,SETWV

EMT
BR

3308

310s

;GO SET VOLUME VALID

*BRANCH TO 3108 IF NO ERROR

MOV

MOV
MOV
MOV
MOV
MOV
MOV

000014
000042
000000

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

;:LOAD RMMR1

#0,RMDA (RO)
;LOAD RMDA
R3.RMDC (RO)
*LOAD RMDC
#0.RMER1 (RO)
:LOAD RMER1
#0 . RMER2 (RO)
*LOAD RMER2
#SEEK!GO,RMCS1(RD)
;LOAD RM(CS?
#4008 ,R2
;INITIALIZE TABLE POINTER

000040
150000
001140
001140
001140
001136
000040

001142
001142

515%:

001142
001136

MOV
BIC
MOV
BIS
CMP
BEQ
MOV
ADD

RMMR2 (RO) , SBDDAT
:STORE RMMR2 AT $8DDAT
#RQARQB' TST,$8DDAT
(R2) .$GDDAT
R3,$GDDAT
;OR CYLINDER ADDRESS IN
SGDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED
3208
*BRANCH IF TAG BUS OK
RO, $8DADR
#RMMR2
, $8DADR

3308

EMT

256

:ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE

4663 043066

4664 043072

$10s:

000006

4661

4662 043066

MOV

;LOAD RMMRT

#DMD ! MUR ' DBEN 'MSER ,RMMR1 (RO)
;LOAD RMMR1
R2
2508
RMCS1(RO) , SBDDAT
;STORE RMCS1 AT $BDDAT
#~CGO, SBDDAT
2608
RO, $8DADR
$GDDAT
255

-VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3

043014
043022
043030
043034
043040
043046
043050
043054

4651
4652
4653
4656
4655
4656
4657

#DMD 'MUR ' DBEN 'MSER ! DBCK ,RMMR1 (RO)

JENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
ADDRESS AND LOAD SEEK COMMAND

4649

4650 043014

MOV

B8R

L4638
4639

4641 0427646

#3.R2

-VERIFY THE TAG BUS DURING SEEK

4635 042734

042740

260%:

SEQ 0185

MOV
MOV
DEC
BNE
MOV
BIC
BEQ
MOV
CLR
EMT

001136

4633

6634 062734

2508

D 15

11-APR-80 13:58:55 PAGE 12-96

005712

012760
012760
000740

3208

000002

151001
041401

ADD

#2 ,R2

BM]

3308

000024
000024

(R2)

;EXIT IF ENTRY NEGATIVE

;STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION
MOV
#0MD ! DBEN !MUR !MOV ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
MOV
#DMD ! DBEN !MUR !MOC ,RMMR1 (RO)
;LOAD RMMR1

315%

CIRMPAD RMOS5/3/2 DSKLS TST 1

113

SEEK TEST

4671

4672

4673 043114

4674 043114
4675 043116
4676 043122

4677 043124
4578 043126

4679
4680
4681 043130
4682 043130

4683 043132

E 15

MACRO v03.01

11-APR-80 13:58:55 PAGE 12-97

SEQ 0186

égngAT TAG BUS TEST FOR EACH PRIME CYLINDER,
006303
020327
103001

002000

ASL

CMP

R3 #1024

BR
3R

3oos
5008

BHIS

000703
000416

34,08:

iésgLE OF

001777

(001777

4694 043160

001777

“696 043162

177777

I.E.,

1.2.4....

;SHIFT TO NEXT CYL'NDER

3408

;EXIT IF WAS DONE

“TEST NEXT CYLINDER
*JUMP OVER TABLE

TAG BUS CONTROL AND BIT VALUES

.WORD

1777

:BUS BITS AT HIGH IMPEDANCE STATE

WORD
"WORD
"WORD
"WORD
"WORD
"WORD
"WwORD
"WORD
JWORD
"WORD

CC
CC
TAG!CC
TAG!CC
TAGICC
TAG!CC
TAG!CC
TAG!CC
CC
(C

;CONTROL BITS ENABLED, BIT 6 ON

1777

;CONTROL BITS DISABLED

LWORD

;END OF

TABLE

;END OF

TEST

JWORD

1777

;TAG COMES ON

:TAG GUES OFF

5008 :

t*fit'ttt"'ttfi'ttfit"t'ttt't*tfittt*ifi***l’t**""ttit"'ttt'ttt.t

TRTEST

114

TEST

2223232232283 32232223232222

043164
043166
043170
043174
043200
043204

000004
000240
012706
013700
013701
012737

187114

001100
001276
001462
000114

4702

4703
4704 043212

043216
043220

4705 043222
4706

4707
4708
4709 043226
4710 063226
4711 043234
4712 043242
4713 043250
4714 043256
4715 043264

gggpe

MOV

001226

MOV
MOV
MOV

#STACK, SP

$BASE , RO
TSTQUE,R1
#114,$TESTN

223X

:SCOPE

CALL

IR TR

TEEEELER R

;LOAD THE STACK POINTER

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

;VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION
004737

055370

JSR
?fir

PC,SETVV
108

000137

045260

JMP

3308

000403
104000

012760
(12760
012760
012760
012760
012760

041001
000000
000000
000000
000000
000031

000024
000006
000034
000014
000042
000000

;GO SET VOLUME VALID
;BRANCH TO 10$ IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
:ADDRESS,
AND LOAD SEARCH COMMAND
108
MOV
#DMD ! MUR ! DBEN ,RMMR1 (RO) ;LOAD RMMR1
MOV
#0,RMDA(RO)
;LOAD RMDA
MOV
#0,RMDC (RO)
sLOAD RMDC
MOV
#0 ,RMER1 (RQ)
;LOAD RMER1
MoV
#0,RMERZ (RO)
;LOAD RMERZ2
Mov
#SEARCH!GO,RMCS1(RO)
;LOAD RMCS1

—~e
]

—

CZRMPAQ RMOS/3/2 DSKLS TST 1

T114

SEARCH TEST

MACRO V03.01

4716

(M7
4718 043272
4719 043276

012702

000002

043276

012760

012760
005302
001370

041001

000024

4724
4725 043316
4726 043324
4727 043330

012760
012702

040001
000002

000024

4720 043304
4721 043312
4722 043314

141001

000N24

043330

012760
012760
005302
001370

040001

140001

000024

4732
4733 043350
473% 043356
4735 043364

016037
042737
001011

000014
157777

001142
001142

104257

020000
001136
000014

001140

4759 043406

012737
010037
062737

012737

(43416

001124

4728 043336
4729 043344
4730 043346

4736 043366
4737 043374
4738 043400

2;2% 043410
4743
4744 043416
4745 043416
043422

043424
2;29 043426
4748
4749
4750 043432
4751 043432

4752 043440
4753 043446

4754 043454
4755 043462

2;29 043470

4758
4759 043476
4760 043502
4761 043502
4762 043510

4763 043516
2;22 043520
4766
4767 043522
4768

004737
000403
104000
000137

012702

000003

012760
012760
005302
001370

141001
041001

012760

041101

012760

000031

MOV

MOV
DEC
BNE

#DMD 'MUR ! DBEN!DBCK ,RMMR1(R0)
#DMD !MUR | DBEN .RMM 1 (RO)
R2
208

:LOAD RMMRI

;DROP UNIT READY AND STEP COM~
. .0 SEQUENCER (2 (I QCKS)
MOV
#DMD ! DBEN ,RMMR1 (RO)
{LDAD RMMR1
MOV
#2,R2
308:

MOV
MOV
DEC
BNE

#DMD ! DBEN ' DBCK ,RMMR1 (RO)
#DMD ! DBEN ,RMMR1 (RO)
R2
308

;VERIFY THAT OPI IS SET
MOV
RMERT (RO) , $8DDAT
BIC
#~COPI
, $BDDAT
BNE
408

C01136

MOV
MOV
ADD

#OP]
, $GDDAT
RO, SBDADR
#RMER1
, SBDADR

MOV

#50% ,SLPERR

EMT

40$:

-LOAD RMMR1

;LOAD RMMR1

:STORE RMER1 AT $BDDAT

257

; CHANGE LOOP ON ERROR ADDRESS

;VERIFY THAT SEARCH ABORTS DURING EX:CUTION
508:

JSR
BR
EMT
JMP

045260

0641001
000000
000000
000000
000000

SEQ 01€7

;STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS)
MOV
#2.R?
208:

000024

055370

012760
012760
012760
012760
012760

F 15

11-APR-80 13:58:55 PAGE 12-98

000024
000006
000034
000014
000042

000000

000024
000024

;G0 SET VOLUME VALID
;5RANCH TO 60% IF NO ERROR

330%

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
;ADDRESS,
AND LOAD SEARCH COMMAND
60%:
MoV
#DMD !MUR ! DBEN,RMMR1
(RO) ;LOAD RMMRI1

MOV
MOV

MOV
MoV

MoV

#0Q ,RMDA (R0O)
#0 ,RMDC (RO)

#0,RMER1 (RO)
#0,RMERZ2 (RO)

;LOAD RMDA
;LOAD RMDC

;LOAD RMER1

.LOAD RMERZ2

#SEARCH!GO,RMCS1(RO)

;LOAD RM(CS1

;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)
MoV
#3.R2
708
:
MOV
#DMD !MUR ! DBEN!DBCK ,RMMR1 (RQ)
;LOAD RMMR1
MOV
#DMD !MUR ! DBEN,RMMR1(R0) ;LOAD RMMRI1

DEC
BNE
000024

PC,SETVV
60%

R2
70%

;SET DRIVE FAULT TO CAUSE ABORT CONDITION
MoV
#DMD !MUR . DBEN .MDF ,RMMR1 (RO)

;LOAD RMMR1

CZIRMPAO RMOS/3/2 DSKLS TST 1

1114

SEARCH TEST

4769
4770 043530
4771 043534

043534

4772 043542
4773 043550
4774 043552
4775 043554
4776 043562
4777 043570
4778 043572
4779 043576

z;g? 043602

072702

012760

012760
005302
001370
016037
042737
001405
010037
005037

104260

MACRO v03.01

000002

141101

000024

000000
177776

001142
001142

041101

MOV

#DMD ' MUR ! DBEN 'MDF ! DBCK ,RMMR1 (R0O)

MOV
DEC
BNE
MOV
BIC
BEQ
MOV
CLR

001136
001140

:LOAD RMMR1

#DMD 'MUR ! DBEN'MDF ,RMMR1(RO)
:LOAD RMMR1
R2
80%
RMCS1(RO) ,SBCDAT
;STORE RMCST AT $BDDAT
#~CGO,$BDDAT
90$
RG, $8DADR
$GDDAT

EMT

260

;(THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE

Z;gz

;DURING DATA COMMAND TESTS)

2;%2 043604
4787
4788 043612

4789 043612

043616
043620
2;3? 043622
4792
4793
4794 043626
4795 043626
4796 043634
4797 043642
4798 043650
4799 043656
228? 043664
4802
4803 043672
4804 043676

4805 043676

4806 043704
4807 043712
2383 043714

4810

4811 043716

012737

004737

000403
104000
000137

043612

012702

000023

000024
000006
000034
000014
000042
000000

000024

016037

000014

001142

001136
000014
020000

001136
001140

0437646

001124

012737

TESTED

:CHANGE LOOP ON ERROR ADDRESS

SETS IF ON CYLINDER LATCH DOESNT CLEAR

JSR

141001

22}3 043756

#1008 ,SLPERR

BR
EMT
JMP

041001

157777

MOV

;VERIFY OPI
1008
:

012760
005302
001370

042737
001011
010037
062737
012737
104261

90$:

045260

041001
000000
000000
000000
000000
000031

012760

0011246

055370

012760
012760
012760
012760
012760
012760

043724
043732
043734
043740
043746
043754

4821
4822

SEQ 0188

:STEP 2 CLOCKS AND VERIFY GO IS RESET
MOV
#2,R2
80$:

000024

4782

4812
4813
4814
4815
4816
2g}§

G 15

11-APR-80 13:58:55 PAGE 12-99

PC,SETWVV

;GO SET VOLUME VALID

1108

;BRANCH TO 1108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
;ADDRESS,
AND LOAD SEARCH COMMAND
110$:
MOV
#DMD 'MUR ' DBEN,RMMR1(R0) :LOAD RMMR1
MOV
#0,RMDA (RO)
:LOAD RMDA
MOV
#0,RMDC (RO)
:LOAD RMDC
MOV
#0,RMER1 (RO)
:LOAD RMER1
MOV
#0 ,RMER2 (RO)
:LOAD RMER?2
MOV
#SEARCH !GO ,RMCS1(R0)
:LOAD RMCS1
;STEP THE COMMAND SEQUENCER
MOV
#19. ,R2
1208
:

MOV

000024

MOV
DEC
BNE
;VERIFY

001142

130%8:

iHAT OP]

MOV

#DMD !MUR ! DBEN ' DBCK ,RMMR1 (R0O)

#DMD 'MUR 'DBEN,RMMR1(R0)
R2
1208
IS SET

RMER1(R0O) , $8DCAT

BIC
BNE
MOV
ADD
MOV
EMT

#~C0PI1,$8DDAT
1303
RO, $8DADR
#RMER1, $BDADR
#OP] ,$GDDAT
261

MOV

#1508, $LPERR

JVERIFY ATA SETS IF DRIVE
JSECTOR COMFARE SETS)

;LOAD RMMR1

:STORE RMER1 AT $BDDAT

;CHANGE LOOP ON ERROR ADDRESS

COMPLETES SEARCH

(ON CYLINDER AND

—t

[

SEARCH TEST

4823 043764

4826 043764

004757

055370

4825 043774
4826
4827
4,828
4829 044000

000137

045260

4832 044014

012760

043770
043772

4830 044000
4831 044006
4833 044022
4834 044030
4835 044036

000403
104000

012760
012760

041401

000000
000031

012702

000021

044050

012760

141601
041401

232% 044066

001370

4840 044056
4841 044064

4844
4845
4846 044070
4847

150%:

012760
005302

000024
000006
000034
000014
000042
000000

000024

4850
4851
4852 044104

051401

000024

012702

000002

4854 044110
4855 044116

012760
012760

151401
051401

044156
4868 044164
4869 044172
4870 044174
48/1
4872
4873 044176
4874 044204
4875 044212

JMP

3308

005302
00,70

MOV
MOV
MOV
MOV
MOV
MOV

000024

012760

860
4861 044130
4862 044136
4863 0464144
4864
4865
4866 044152
4867 044156

PC,SETWV

1608

SEQ 0189

;GO SET VOLUME VALID

:BRANCH TO 1608 IF NO ERROR
TRACK AND SECTOR

#DMD ' MUR ! DBEN ' MOC ,RMMR1 (RO)
:LOAD RMMR1
#0,RMDA (RO)
;LOAD RMDA
#0.RMDC (RO)
*LOAD RMDC
#O.RMER1(RO)
:LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#SEARCH'GO,RMCS1(RO)
;LOAD RMCS1

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST

000024

4856 044124
4857 044126

708

041005

4853 044110

JSR

ggr

(12760

4848
4849 044076

11-APR=-80 13:58:55 PAGE 12-100

;ENABLE DEBUG CLOCK, LOAD CYLINDER,
1ggoness
AND LOAD SEARCH COMMAND

012760
012760
012760

4836
4837
4838 044044
4839 044050

H 15

MACRC Vv03.01

#17..R2

mov

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

BNE

170$

ggg

ngD!MUR!DBEN!MOC,RMMR1(RO)

MOV

#DMD 'MUR ! DBEN 'MI ,RMMR1 (RO)

;RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT
MOV

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

;STEP COMMAND SEQUENCER TO SEARCH ENABLE

000024

:LOAD RMMR1

;LOAD RMMR1

:DROP ON CYLINDER TO RESET LATCH,AND PAISE INDEX PULSE
“TO SET FORMAT CHANGE FLOP

1808

000024

(17 CLOCKS)

MOV

;LOAD RMMR1
;LOAD RMMR1

(2 CLOCKS)

MOV

#2.R2

mov

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

BNE

1808

ggg

ggMD!MUR!DBEN!MOC!DTO,RFNR1(RO)

:LOAD RMMR1

;LOAD RMMR1

:;g§gsesecron COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE
012760
012760
012760

051403
051443
051403

012702

000003

012760
012760

051401

005302
001370

016037
042737
00101

151401

000012
077777

000024

MOV

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

:LOAD RMMR1

000024

MOV

#DMD i MUR IMOC | DBENDTO!MSC .RMMR? (RO)

*LOAD RMMR1

000024

MOV

#DMD I MUR | MOC i DBENDTO!MSC
'MS,RMMRT (RO)

:LOAD RMMR1

;CLOCK SEQUENCER TO SET ATA (3 CLOCKS)
85s.
MOV
#3,R2
;R2 = CLOCK COUNT

000024

001142
001142

MOV

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

ggg

ggmosmua:nocsoee~&oro,nmna1(RO)

BNE

185%

;VERIFY ATA IS SET

MOV
BIC
BNE

:LOAD RMMR1

;LOAD RMMR1

RMDS (RO) ,$8DDAT :STORE RMDS AT $8DDAT
#~CATA, $BDDAT
190%

-4

CZRMPAQ RH05/3/2 DSKLS ST 1

114

SEARCH TEST

4876 044214
4877 044222
4878 044226
4879 044234
4,880
4881 044236
4882
4883
488% 044244
4885 044244
4886 044254
4889
4890 044260
4891 044260
4892 044266
4893 044274
4894 044302
4895 044310
4896 044316
4897
4898
4899 044324
4900 044330
4901 044330
4902 044336
4903 044344
zggg 0446346
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916

MACRO v03.01

001136
000012

001136

012737

044244

001124

000137

100000

001140

055370

#ATA, SGDDAT

ADD

#RMDS
, $8DADR

MOV

#2008, SLPERR

EMT

1908%:

RO, $BDADR

262

JSR

PC,SETVV

JMP

3308

?ST

045260

; CHANGE LCOP ON ERROR ADDRESS

2108

;GO SET VOLUME VALID

;BRANCH TO 2108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

:ADDRESS

012760
012769
012760
012760
012760
012760

041401

012702

000021

012760
012760
005302
001370

141401

000031

000024
000006
000034
000014
000042
000000

041401

000024
000024

000024

041001

044356
044362
044362
044370
044376
044400

012702

000007

012760
012760
005302
001370

141001
041001

000024
000024

016037
042737
001006
012737
010037
104263

000000

001142
001142

000001
001136

001140

177776

2108%:

AND LOAD SEARCH COMMAND

MOV

#DMD !MUR ! DBEN !MOC

MOV
MOV
MoV

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

MOV

#0,RMDA (R0O)

,RMMR1(R0O)
sLOAD RMDA

220%:

#SEARCH!GO,RMCS1(RO)

;LOAD RM(CS1

MOV

MOV
MOV

DEC
BNE

(17 CLOCKS)

#DMD !MUR ! DBEN !MOC ! DBCK ,RMMR1T (RO)
;LOAD RMMR1
#DMD !MUR ! DBEN !MOC ,RMMR1 (R()
;LOAD RMMR1
R2
220%

:DROP ON CYLINDER TO RESET LATCH,

MOV

;LOAD RMMR1

:LOAD RMDC
;LOAD RMER1
;LOAD RMERZ2

:STEP COMMAND SEg?;NCEg TO FIRST ON LATCH TESY

012760

4929 044442

MOV

<VERIFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP
200%:

044350

4917
4918 044402
4919 044410
4920 044416
4921 044420
4922 044426
4923 044432
4924
4925
4926 044434
044434
4927
4928

SEQ 0190

012737
010037
062737
104262

004737

I15
11-APR-80 13:58:55 PAGE 12-101

LEAVE ON CYLINDER O

#DMD 'MUR !DBEN,RMMR1(R0O)

;LOAD RMMRI1

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)
230%:

MOV

#7.,R2

MoV

#DMD !MUR ! DBEN ' DBCK ,RMMR1 (RO)

DEC
BNE

R2
2308

MoV

s VERIFY THAT GO IS STILL SET
MOV
8IC

RMCS1(RO) ,$BDDAT
#*CGO,$8DDAT

MOV

#GO,$GDDAT

EMT

26%

BNE

MoV

;LOAD RMMRI1

#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMR1

;STORE RM(CS1 AT $BDDAT

2408

RO, $BDADR

JSET SEEK INCOMPLETE ERROR

012760

041201

012702

000003

000024

2408%:

MOV

#DMD !MUR ! DBEN !MSER ,RMMR1 (R0)

;LOAD RMMR1

;STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)
MOV

#3.R2

En an

CZRMPAQ RMOS5/3/2 DSKLS TST 1

1114

SEARCH TEST

4930 044446

4931
4932
4933
4934
4935
4936
4937
4938
4939
4940

044446

012760

044454
044462
044464
044466
044474
044502
044504
044510
044514

012760
005302
001370
016037
042737
001405
010037
005037
104264

4941 044516
4942

012737

4943
4944 044524
4945 044524

044530
044532

64946 044534
4947
4948
4949
4950 044540
4951 044540
4952 044546
4953 044554
4954 044562
4955 044570
4956 064576
4957
4958
4959 044604
4960 044610
044610
4961 044616
4962 044624
4963 044626
4964
4965
4966
4967 044630
4968
4969
4970 064636
4971
4972
4973 044644
4974 044650
4975 044650
4976 044656
4977 044664
4978 044666
4979
4980
4981 044670
4982 044674

141201
041201

000024

000000
177776

001142

11-APR-80 13:58:55 PAGE 12-102

250¢%:

000024

044524

055370

000137

045260

ggMD.'MUfl!DBEN!MSER.RWT (RO)
2508

MOV

RM(CS1(RO) ,$BDDAT

BIC
BEQ

260%:

MOV
CLR

EMT

RO,$BDADR
$GDDAT
264

MoV

#265% ,SLPERR

;CHANGE LOOP ON ERROR ADDRESS

;:VERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP
265%:
JSR

PC,SETVV

JMP

3308

?ZT

:ADDRESS,

041401
000000
000000
000031

012702

000021

012760

141401
047401

012760
005302

;LOAD RMMR1

;STORE RMCS1 AT $BDDAT

#~CGO,$BDDAT
260%

2708

;GO SET VOLUME VALID

;BRANCH TO 27C$ IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER,
012760
012760
012760
012760
012760
012760

SEQ 0191

#DMD 'MUR ' DBEN!MSER!'DBCK ,RMMR1 (RO)

BNE

001142

001124

MOV
E‘gg

001136
001140

004737

000403
104009

J 15

MACRO v03.01

000024
000006
000034
000014

270%:

000042

AND LOAD SEARCH COMMAND

MOV
MOV
MOV
MOV

#DMD 'MUR ! DBEN 'MOC ,RMMR1 (RO)
#0 ,RMDA (RO)
;LOAD RMDA
#0 ,RMDC (RO)
<LOAD RMD(C
#0,RMER1(RO)
;LOAD RMERI

MOV

#SEARCH!GO,RMCS1(RO)

MOV

000000

TRACK AND SECTOR

#0 ,RMERZ2(RO)

. LOAD RMMR

;LOAD RMERZ?

;LOAD RMCS1

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 (LOCKS)
000024
000024

2758%:

001370

MOV

#17..R2

MOV
ggg

#DMD 'MUR ! DBEN 'DBCK !MOC ,RMMR1(R0O)
;LOAD RMMR1
gBMDfMUR!DBEN!MOC,RHMR1(RO)
:LOAD RMMR1

BNE

275%

sDROP ON CYLINDER TO RESET LATCH, AND RAISE INDEX PULSE
012760

041005

000024

012760

051401

000024

012702

000002

012760
012760
005302
0071370

012702

151401

051401

000004

2TO SET FORMAT CHANGE

MOV

FLOP

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

JRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT
MoV
#DMD !MUR ! DBEN!MOC !DTO,RMMR1(RO)

;LOAD RMMR1

;STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS)

2808

000024

#2,R2

omov

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

BNE

280%

ggg

ggMD!MUR!DBEN!MOC!DTO.RMMR1(RO)

;LOAD RMMR1

JVERIFY THAT SEARCH ENABLE IS ON DURING SECTOR COMPARE LOOP
281%:

MOV

#4,R?

;RZ2 = CLOCK COUNT

-t

CZRMPAQ RM0OS5/3/2 DSKLS ST 1

SEARCH TEST

4983 044674
4984 044702
4985 044710
4986 044712
4987 044720
4988 044726
4989 044730
4990 044732
4991 044734
4992 044742
4993 044746
4994 044754
4995
4996
4997 044756

016037
042737
001411
012760
012760

000024
173777
151401

051401

004000
001136
000024

012760

051501

5000 044764
5001 044770
044770
5002 044776
5003 045004
5004 045006
5005 045010
5006 045016
5007 045024
5008 045026
5009 045034
5010 045040
5011
5012 045042
5013 045050

012702

000002

4999

5016 045054
5017 045054
045060
045062
5018 045064
5019

001142

MOV

001142

000024
000024

001140

282%:

001136

RMMR1 (RO) , $BDDAT

012760

012737
012703

004737
000402

000024

;STORE RMMR1 AT $BDDAT

#*CESRC, $BDDAT
282%
;BRANCH IF SEARCH NOT ENABLED
#DMD !MUR !MOC ! DBEN!DTO!DBCK ,RMMR1(RO)
;LOAD RMMR1
ggMD!MUR!HOC!DBEN!DTO.RWNR1(RO) ;LOAD RMMR1

BNE
BR
MOV
MOV
ADD
EMT

2818
283$

MOV

#ESRC,$GDDAT
RO, $BDADR

#RMMR1,$BDADR
265
TO CAUSE ABORT CONDITION

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

;LOAD RMMR1

;STEP 2 CLOCKS AND VERIFY GO IS RESET

2858

151501

000024

000000
177776

001142
001142

000000
001136

001140

V45054
000001

001124

051501

SEQ 0192

8IC
BEQ
MoV
ggg

ég%; DRIVE FAULT

044756

4998

K 15
11-APR-80 13:58:55 PAGE 12-103

MACRO v(C3.01

000024

MOV

#2,R2

MoV

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

BNE
MOV
BIC
BEQ
MOV
MOV
EMT

285%
RMCS1(RO) , $BDDAT
#~(GO, $8DDAT
290%

290%:

MOV
MOV

#300%, SLPERR
#1,R3

SgsgIFY

THE

TAG BUS DURING SEARCH

ggg

055370

104000

000475

ggMD!MUR!DBEN!MOC!DTO!MDF.RPFR1(RO)

;LOAD RMMR1

;STORE RMCS1 AT $BDDAT

#0,3GDDAT
RO, $BDADR
260

JSR

PC,SETVV

3308

EfiT

JR2 = CLOCK COUNT

3108

s CHANGE LOOP ON ERROR ADDRESS
;INITIALIZE CYLINDER ADDRESS

;GO SET VOLUME VALID

;BRANCH TO 3108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
.ADDRESS

012760

041401

000024
000006

012760

000000
000000
000031

000014
000042
000000

$10s:

AND LOAD SEARCH COMMAND

MOV
MOV

MOV

MOV
MOV
MOV

#DMD ' MUR ! DBEN 'MOC , RMMR 1 (RO)
;LOAD RMMR1
#0,RMDA (RO)
:LOAD RMDA
R3.RMDC (RO)
*LOAD RMDC
#0_RMER1 (RO)
*LOAD RMER1
#0.RMER2 (RO)
*LOAD RMER2
#SEARCH'GO,RMCS1(R0)
;LOAD RMCS1

""ttttttl‘tttttttttttttttttttttttfiit'tfitttttttttfitttttfittttttttttt

MOV

5034
5035 045130

#4008 ,R2

;INITIALIZE TABLE POINTER

;HARDWARE ECO CHANGE

012702

000011

MoV

#9..R2

*CS BOARD.

;CLOCK THE

TO THE PLA OF

SEQUENCER THRU THE

FIRST

THE

-—d

RMPAQO RMOS5/3/2 DSKLS TST 1

CZRMPAO RMOS/3/2 DSKLS TST 1

SEARCH TEST

5036
5037
5038 045134
5039 045134
5040 045142
5041 045150
5042 045152
5043 045154
5044
5045
5046
5047 045160
045160
5048 045166
5049 045174
5050 045200
5051 045204

L 15

11~-APR-80 13:58:55 PAGE 12-104

012760
012760
005302

141401
041601

012702

045316

001370

000024
000024

:TO RUN WITH OR WITHOUT THE ECO.

312%:

MOV
MOV
DEC
BNE
MOV

AR AR R AR A A

5063

5064
5065 045242
5066 045250
5067 (45256
5068
5069
5070 045260
5071 045260
5072 045262
5073 045266
5074 045270
5075 045272
5076
5077
5078 045274
5079 045274
5080 045276
5081 045300
5082 045302
5083 045304

5084 045306
5085 045310
5086 045312
5087 045314
5088 045316
5089 045316
5090 045320
5091 045322

#DMD ! DBEN!MUR
'MOC ' DBCK ,RMMR1 (R0O)
;LOAD RMMR1
#DMD ! DBEN'MUR
'MOC ,RMMR1 (R0O)
;LOAD RMMR1
R2
;DONE 9. CLOCKS ?
3128
JNO !
#4508 ,R2
JINITIALIZE NEW TABLE POINTER

AR AR A AN AN AR

IR AR RN A A AR AR AR A AR AR

AN RN

NA RN R AN RN

.VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3

016037
042737
011237
050337
023737

000040
150000
001140
001140
001140

001142
001142

3158

001142

MOV
BIC
MOV
BIS
CMP
8EQ

RMMR2 (RO) , $BDDAT
;STORE RMMR2 AT $BDDAT
#ROA'RQB!
TST, SBDDAT
(R2) ,SGDDAT
R3,$GDDAT
;OR CYLINDER ADDRESS IN
$GDDAT,$BDDAT : COMPARE EXPECTED AND RECEIVED
3208
;BRANCH IF TAG BUS 0K

ADD
EMT
BR

#RMMR2 , $8DADR
266
3408

MOV

001136

000420
ééngNCE

5060 045232
5061 045236
5062 045240

SEQ 0193

;9. COMMAND SEQUENCES TO ALLOW THE PROGRAM

001136
000040
5056 045230

MACRO v03.01

062702
005712
100407

000002

012760
012760
000740

141601

006303
020327
103001
000671
000424

TO NEXT ENTRY

ADD
TST

B8MI

0414601

000024
000024

024000
024000
024000

IN TABLE-EXIT

#2,R2
(R2)

3308

DONE

JEXIT IF ENTRY NEGATIVE

;STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION
MOV
#DMD ! DBEN ' MUR 'MOC ! DBCK ,RMMR1(RO)
;LOAD RMMR1
MOV
#DMD i DBEN ! MUR {MOC . RMMR T (RO)
;LOAD RMMRT
BR
3158
§§5§EAT

TAG BUS TEST FOR EACH PRIME

340$:

ASL
cMP
BHIS
BR
BR

002000

iéagLE OF

001777
001777
001777
001777
001777
004000
004000
024000
024000

RO, $BDADR

1.E.,

1.2.4....

sSHIFT TO NEXT CYLINDER

;EXIT IF WAS DONE
STEST NEXT CYLINDER
:JUMP OVER TABLE

TAu BUS CONTROL AND BIT VALUES

.WORD
JWORD
JWORD
WORD
WORD

4508 :

R3
R3.,#1024.
3408
300$
5008

CYLINDER,

1777
1777
1777
1777
1777

JWORD
"WORD
.WORD
"WORD

CC
CC
TAG'CC
TAG!CC

.WORD
.WORD
CWORD

TAG!CC
TAG!'CC
TAGICC

;BUS BITS AT HIGH IMPEDENCE STATE
:

;CONTROL BITS ENABLED, BIT 6 ON

;TAG COMES ON

:START TABLE HERE FOR HARDWARE ECO CHANGE

SEQ 0194

177777

TAG!CC
-1

.WORD
WORD

:TAG GOES OFF

.WORD
"WORD
JWORD
.WORD

CC
CC

1777
1777
1777
1777

;CONTROL BITS DISABLED

.WORD

-1

:END OF

TABLE

SEND OF

TEST

5008 :

;END TABLE HERE FOR HARDWARE ECO CHANGE

;,'tttttttttl’tfittttttt*t*ttttttttttttttttttifittttttttttttttttttttt

T*TEST 115

SEARCH TIMEOUT TEST

.':ttttti*ttttti*tttttt*tttttttt*tfitifittttttttttttt*tttfittitttttt*

5107
5108 045372
045376
045400
5109 045402
5110
5111
5112 045404
5113 045404
5114 045412
5115 045420
5116 045426
5117 045434
5118 045442
5119

5120

5121 045450
5122 045454
045454
5123 045462
5124 045470
5125 045472
5126
5127
5128 045474
5129 045502
5130
5131

5132 045510
5133 045514
045514
5134 045522

000004
000240
012706
013700
013701
012737

TST115:

001100
001276
001462
000115

001226

055370

zcc)gpe

;SCOPE

MOV
MOV
MOV
MOV

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

JSR

PC,SETWVV

B8R

908

gfi"

10§

CALL

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

*BRANCH TO 108 IF NO ERROR

%Srswsu.e DEBUG CLOCK AND LOAD SEARCH COMMAND

012760
012760
012760
012760
012760
012760

041401
000000
000000
000000
000000
000031

012702

000021

012760

141401

041401

012760
012760

041001
041401

012702

000002

012760
012760

051401

151401

000024

mov

MOV
MOV
MOV
MOV
MOV

#DMD 'MUR ! DBEN 'MOC , RMMR 1 (RO)

:LOAD RMMR1

#0,RMER1(RO)
:LOAD RMERI
#0.RMER2(RO)
:LOAD RMER2
#0.RMDC (RO)
*LOAD RMDC
#0RMDA (RO)
*LOAD RMDA
#SEARCH!GO,RMCST1(RO)
:LOAD RMCS1

MONA@MZ

045344
045344
045346
045350
045354
045360
045364

;EXECUTE SEARCH TO TEST FOR ON LATCH RESET (17 CLOCKS)

208

000024
000024

MOV

#17..R2

MoV

#DMD 'MUR ! DBEN 'MOC ' DBCK . RM

BNE

208

ggg

zgnosmasose~:noc,m1 (Ru)

/R0)

:LOAD RMMR1

;LOAD RMMRI

;DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER

MOV
MOV

#DMD 'MUR | DBEN,RMMR1
(RO) ;LOAD RMMR1
ADMD I MUR | DBEN {MOC , RMMR1 (RO)
:LOAD RMMR1

;STEP COMMAND SEQUENCER TO SECTOR COMPARE LOOP (2 CLOCKS)

<08
000024
000024

MOV

#2.R2

Mov

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

MOV

#DMD I DBEN 'MUR iMOC I DTO,RMMRT
(RO)

RCrTOMMOMNAMZ

004000
001777
001777
001777
001777

.WORD
'WORD

024000
177777

RCreTOANNMOAND

11-APR-80 13:58:55 PAGE 12-105

M XKCr—TOMMOODMZ

5092 045324
5093 045326
5094
5095
5096 045330
5097 045332
5098 045334
5099 045336
5100 045340
5101
5102 045342
5103
5104 045344
5105
5106

MACRO v03.01

:LOAD RMMR1

— T OTMMONDM2Z
R
T
e

CZRMPAQ RMOS/3/ 2 DSKLS TST 1
T4
SEARCH T EST

5155
5156 045624
5157 045626
5158 045632
045640
5159 045644
045644
5160 045652
5161 045660
5162 045662
5163 045666
5164 045670
5165 045674
5166 045702

5167 045706

5168
5169
5170
5171

045714
045716
045720
045720

000024
000024
001142

004000

001140

042737
001403
005302
001361
000412
012737
010037
062737
104265

001136
000026

001142

MOV
ADD

001136

EMT
BR

000440

012760
012737
004777

041401
070000
133666

016037
042737

000014
157777

005737
001356
004777
012737
010037
062737
104267
000402

001530

004777

133610

001017

133640
020000
001136
000014

RO, SBDADR
#RMMR1
, SBDADR
265

908

;DROP DTO TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI TO SET.
608:
000024
MOV
#DMD ! MUR ' MOC ! DBEN ,RMMR1 (RO)
:LOAD RMMR1
001530
MOV
#70000,WATCH
;SET WATCHDOG TIMER VALUE
JSR
PC,aCLOCK
*START THE CLOCK
__708:
00142
MOV
RMER1(RO) , SBDDAT
:STORE RMER1 AT $BDDAT
001142
BIC
#~COPI, $BODAT
BNE
808
TST
WATCH
BNE
708
JSR
PC,aSTOP
;STOP THE CLOCK
001140
MOV
#OP1, SGDDAT
*SETUP ERROR MSG
MOV
RC , SSDADR

001136

ADD

80$:

#RMER1
, $BDADR

EMT
BR

267
908

JSR

PC,aSTOP

;STOP THE CLOCK

3172 045724

908 :

;END OF

5174

;;ttttfitttt!’**ttttttt*Q"itttttttttt*tttttilittttfitttiittt't't*it

TRTEST 116

DATA COMMAND TESTS

TEST

(1)

.'.'ttttttt*tt*tttt*t*ttttttt'tttttfittifi*itfititttttttiittt'itt'tttt

045724
045724
045726
045730
04573
045740
gq75 045744

215

000004
000240
012706
013700
013701

012757

851116

001100
001276
001462
000116

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

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

#116,$TESTN

RXCorTONM

151401
051401
000024
173777

012760
012760
016037

RC—=ITOMTMOODZ

000005

:THE COMMAND SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP.
STEP
:THROUGH THE LOOP AND VERIFY SEARCH IS ENABLED.
MOV
#5,R2
408:
MOV
#DMD ! DBEN'MUR ! MOC ! DBCK !DTO,RMMR1(RO)
;LOAD RMMRT
MOV
#DMD | DBEN | MUR iMOC iDTO,RMMRT
(RO) ;LOAD RMMR1
MOV
RMMR1 (RO) , SBDDAT
;STORE RMMR1 AT $BDDAT
BIC
#~CESRC, $8DDAT
BEQ
508
;BRANCH IF SEARCH NOT ENABLED
DEC
R2
BNE
40$
BR
60$
508:
MoV
#ESRC,SGDDAT
;SETUP ERROR MSG

012702

R2
308

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

1;SET TEST NUMBER IN APT MAIL BOX

;VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY

—~TOMTMONDZ

5152 045620
2133 045622

DEC
BNE

5150 045606
5151 045612

005302
001370

SEQ 0195

5138
5139
5140 045534
5141 045540
045540
5142 045546
5143 045554
5144 045562
5145 045570
5146 045572
§147 045574
5148 045576
5149 045600

N 15

11-APR-80 13:58:55 PAGE 12-106

RCr—ITOMMOMNWZ

5135 045530
5136 045532

MACRO v03.01

FRCr—ITOTMOMNMZAN

%1ZR!'PA0 RMOS5/3/2 DSKLS TST 1
15
SEARCH TIMEOUT TEST

CZRMPAQ RMOS/3/2 DSKFLS TST 1

DATA COMMAND TESTS

5178 045752
045756

004737

(1)

MACRO v03.01

(°S370

B 16
11-APR-80 13:58:55 PAGE 12-107
JSR
?fn

PC.SETVV
108

408

SEQ 0196

;60 SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR

%SQIABLE DEBUG CLOCK AND LOAD READ COMMAND

045764
045772

.2760
C 2760

046006
046014
046022

012760
012760
012760

041401
000000
000000
000000
000000
000071

046030

012702

000003

046034
046042
046050
046052

012760
012769
005302
001370

141401
041401

5198 046054

012760

040401

5201 046062

012702

000002

6066

012760

5204 046102
5205 046104
5206 046106
5207 046114
5208 046122
5209 046124
5210 046132
5211 046136
gg}% 046144

005302
001370
016037
042737
001011
012737
010037
062737
104270

5214 046146

012737

5203 046074

5215
5216
5217 046154
5218 046154
046160
046162
5219 046164
5220
5221
5222 046166
5223 046166
5224 046174
5225 046202
5226 046210
5227 046216
5228 046224

012760

000024

000014
000042
000006
000034
000000

000024
000024

mov

MOV
MOV
MOV
MOV
MOV

:DROP UNIT READY
MOV
#DMD 'MOC ! DBEN ,RMMR1 (RO)

:LOAD RMMR1

;STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS)

140401

000024

000014
157777

001142
001142

020000
001136
000014

001140

046154

001124

040401

;LOAD RMMR1

#0,RMER1(RO)~
;LOAD RMER1
#0 RMER2(RO)
:LOAD RMER2
#0 _RMDA (RO)
‘LOAD RMDA
#0 .RMDC (RO)
*LOAD RMDC
#RD ! GO,RMCS1(RO)
;LOAD RMCS1

;STEP COMMAND SEQUENCER TO UNIT READY TEST (3 CLOCKS)
Mov
#3,.R2
20%:
MOV
#DMD ! MUR ' MOC ! DBEN ' DBCK , RMMR1 (RO)
-LOAD RMMR1
ggg
;gnosmunsnoc:oes~.nnna1<R0)
:LOAD RMMR1
BNE

000024

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

000024
-

001136

40$:

mov

#DMD !'MOC ! DBEN ! DBCK , RMMR1 (RO)

BNE
MOV
BIC
BNE
MOV
MOV
ADD
EMT

30s
RMER1 (RO) , $8DDAT
#~COPI,$BODAT
408
#OP]
., SGDDAT
RO, $B8DADR
#RMER1T
, SBDADR
270

MOV

#508, SLPERR

ggg

ngD!MOC!DBEN.RNFRI(RO)

:LOAD RMMR1

;LOAD RMMR1

;STORE RMER1 AT $BDDAT

;CHANGE LOOP ON ERROR TEST

éXERIFY DATA COMMAND ABORTS AT LOCATION 129

004737
000402
104000
000576

055370

JSR

PC,SETWV

B8R

1508

Efir

60$

;60 SET VOLUME VALID

*BRANCH TO 60% IF NO ERROR

ésgABLE DEBUG CLOCK AND LOAD READ COMMAND

012760
012760
012760
012760
012760
012760

0.1401
000000
000000
000000
000000
000071

000024

000014

000042
000006
000034
000000

Moy

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

MOV
MOV
MOV
MOV

#0.RMER2(RO)
:LOAD RMER?
#C _RMDA (RO)
*LCAD RMDA
#0.RMDC (RO)
*LOAD RMD(C
#RD'!GO,RMCS1(RO)
;LOAD RMC(S1

MOV

#0,RMERT(RO)

;L[ OAD RMER]

:LOAD RMMR1T

—

CZRMPAQ RMOS5/3/2 DSKLS TST 1

LRI

DATA COMMAND TESTS

(1)

MACRO v03.01

SEQ 0197

5229
5230
5231 046232
5232 046236
046236
5233 046244
5234 046252
2573)2 046254

012702

000004

012760
012760
005302
001370

141401
041401

000024
000024

5237
g%%g 0646256

012760

041501

000024

012702

000001

012760
012760
005302
001379

141501
041501

5240
5261 046264
5242 046270
046270
5243 046276
5264 046304
2522 046306
5247
5248
25‘5’8 822%}2

012702

000020

066314
5251 046322
9252 046330
5253 046336
g%gg 046344

012760
012760
016037
042737
001014

045501
041501
000024
157777

5256
5257
5258
5259

005302
001361
012737
010037

046346
046350
046352
046360

5260 046364
5261 046372
gggg 046374

062737
104271
000472

020000
001136
000024

000024
000024

pl4

5273
5274
5275 046422
5276 046426
046426
5277 046434
5278 046442
2%8 046444

5281

;STEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS)
MOV
#4 ,R2
708
:
MoV
#DMD !MUR !MOC ! DBEN!DBCK
,RMMR1 (RO)
;LOAD RMMR1
MOV
#DMD !MUR !MOC ! DBEN ,RMMR1 (R0O)
;LOAD RMMR1
DEC
R2
BNE
708
;SET DEVICE FAULT TO CAUSE ABORT CONDITICW
Mov
#DMD !MUR !MOC . DBEN!MDF ,RMMR1(R0O)

;LOAD RMMR1

;STEP THE SEQUENCER THROUGH THE TEST FOR ABORT (1 CLOCK)
MOV
#1,R2
80%:
MoV
#DMD !MUR !MOC ! DBEN!MDF ! DBCK ,RMMR1 (R0)
;LOAD RMMR1
MOV
#DMD !MUR !MOC ! DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1
DEC
R2
BNE
80%
;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO
sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
ass
MOV
#16. ,R2
;JMAXIMUM NUMBER OF BIT CLOCKS

000024
000024
001142
001142

001140

001136

5264

5265 046376
5266 046376
5267 046402
5268 046402
5269 046410
5270 046416
52;; 046420

c 16

11-APR-80 13:58:55 PAGE 12-108

MOV
MOV
MOV
BIC
BNE

#DMD !MUR :MOC ! DBEN !MDF 'MCLK ,RMMR1 (R0O)
;LOAD RMMR1
#DMD !MUR !MOC ! DBEN !MDF ,RMMR1 (R0) :LOAD RMMR1
RMMR1 (RO) ,§BDDAT
:STORE RMMR1 AT S$BDDAT
#~CEBL,$BDDAT
90%
;BRANCH IF EBL IS SET

DEC
BNE
MOV
MOV
ADD
EMT
BR

R
85%
#EBL ,$GDDAT
RO, $8DADR

;CONTINUE BIT CLOCKS IF COUNT NOT O

#RMMR1, $BDADR
271
1508

;STEP THE SEQUENCER THROUGH ITS TEST FOR EBL (2 CLOCKS)

012702

000002

012760
012760
005302
001370

141501
041501

012702

000020

012760
012760
005302
001370

045501
041501

90%:
000024
000024

000024
000024

1008:

Mov

#2.R2

MOV
MoV
DEC
BNE

#DMD !MUR !MOC ! DBEN ! MDF ! DBCK ,RMMR1 (R0)
;LOAD RMMR1
#DMD !MUR !MOC ! DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1
R2
100%

;ABORT EBL SHOULD NOW BE INACTIVE - FORCE BIT CLOCK USING THE
JMAINTENANCE REGISTER TO RESET EBL (16 BIT CLOCKS)
MOV
#16. ,R2
sMAXIMUM NUMBER OF BIT CLOCKS
110$:
MOV
#DMD !MUR 1MOC ! DBEN ! MDF !MCLK ,RMMR1 (R0)
:LOAD RMMR1
MOV
#DMD !MUR !MOC ! DBEN!MDF ,RMMR1(R0O) ;LOAD RMMR1
DEC
R2
BNE
1108
s ISSUE 16 BIT CLOCKS THEN TESTY

;VERIFY EBL IS NOW RESET

016037
042737

000024
157777
001140
001136
000024

H
NN

5282 046446
5283 046446
5284 046454
5285 046462
5286 046454
5287 046470
5288 046474
5289 046502
5290 046504

(1)

—

DATA COMMAND TESTS

—_

mn 16

MACRO v03.01

o0
[ele)]

04 RMPAQ RMOS/3/2 DSKLS TST 1

:
1208

D 16
11-APR-80 13-58:55 PAGE 12-109

MOV

BIC
BEQ
CLR
MOV

001136

ADD

EMT
BR

RMMR1(R0O) ,$BDDAT
#*CEBL ,$8DDAT

1308
$GDDAT

SEQ 0198

;STORE RMMR1 AT S$BDDAT
;BRANCH IF EBL

IS RESET

RO, $BDADR
#RMMR1, $BDADR

273

150%

JVERIFY GO RESETS WITHIN & CLOCK CYCLES

010037

001140
001136

012737

046570

104274

5306 046562
5307
5308
5309 046570
5310 046570
046574
046576
5311 046600
5312
5313
5314 046602
5315 046602
5316 046610

5327 046670
5328
5329
5330 046672
5331 046700
5332 046706
5333 046710
5334 046716

004737

000402
104000
000512

140%:

H
nono

000000
177776

000024
000024
—

141501
041501

—a

012760

o0
OO

000004

—_

012702

130$:

001124

150%:

mMov

#4 ,R2

MOV
MOV
DEC
BNE
MOV
BIC
BEQ
CLR
MOV
EMT

#DMD !MUR !MOC ' DBEN !MDF ! DBCK ,RMMR1(R0)

MOV

ggflD!NR!HOC!DBEN!MDF.RWHRO)

1408
RMCS1(RO) ,$BDDAT

#*CGO,$8DDAT

;LOAD RMMR1

;STORE RMCST AT S$BDDAT

1508

$GDDAT
RO, $BDADR

274

#2008, SLPERR

;CHANGE LOOP ON ERROR ADDRESS

JVERIFY SEQUENCER BRANCHES TO SEEK WHEN RUN AND GO FLOP SETS
200$:

055370

JSR
BR
EMT
BR

PC,SETVV

2108

;GO SET VOLUME

VALID

;BRANCH TO 210% IF NO ERROR

2508

. ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

012760
012760
012760
012760
012760
012760

041401
000000
000000
000000
000000
000071

012702

000005

012760
012760
005302
001370

016037
042737
001012
012737
010037

141401

041401

000024
000014
000042
000006
000034
000000

210%:

MGV
MOV
MOV
MOV
MOV
MOV

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

#0,RMER1 (RO)
#0 ,RMER2 (RO)

;LOAD RMER]
;LOAD RMER?2

#0 ,RMDC (RO)

;LOAD RMD(C

#0,RMDA (RQ)

#RD !GO ,RMCS1(RO)

;LOAD RMMR1

;LOAD RMDA

;LOAD RMCS1

;MOVE SEQUENCER ;g ASST FOR RUN AND GO AT LOCATION 130 (5 CLOCKS)
000024
000024

000024
137777

001142
001142

040000
001136

001140

220%:

MOV

MOV
DEC
BNE

#DMD !MUR ! MOC ! DBEN!DB
,RMMR1CK
(R0O)

ggMD.'WR !MOC ! DBEN,RMMR1(R0O)

2208

JVERIFY RUN AND GO IS SEI
MOV
8IC
BNE

MOV
MoV

:LOAD RMMR1
;LOAD RMMR1

RMMR1(RO)
, $BDDAT

#“CRG, $BDDAT

230%

#RG, $GDDAT
RO, $8DADR

;STORE RMMR1 AT $BDDAT

CIRMPAQ RMOS/3/2 DSKLS TST 1

116

OATA COMMAND TESTS

5335 046722
5336 046730
5337 046732
5338
5339
5340 046734
5341 046734
5342 046740
046740
5343 046746
5344 046754
5345 046756
5349 046760

062737
104275

(1)

000024

E 16
11-APR-80 13:58:55 PAGE 12-110

MACRO v03.01

001136

ADD
EMT

B8R

000435

SEQ 0199

#RMMR1
, $8DADR
275

2508

§§8§1FY THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE

012702
012760
012760
005302
001370
C16037

000001
141401

000024

000040

001142

041401

2408:

000024

mov

#1.R2

MOV

#DMD 'MUR ' MOC ! DBEN! DBCK ,RMMR1 (R0)

BNE

2408

ng\c/

MOV

:gmomua iMOC | DBEN.RMMRT (RO)

RMMR?2 (RO) , SBDDAT

:LOAD RMMR1

;LOAD RMMR1

:STORE RMMR2 AT $BDDAT

;;tt*ttttQ't*tfi'fittt"fi"'tt'fi'fifi'fitfit*itt't"tfit't'ttt*fi'tfi't'it

BIC

#RQA'ROB'
TAG, SBDDAT

;THE FOLLOWING CODE WAS ADDED

;7O ALLOW THE PROGRAM TO RUN WITH

;OR WITHOUT THE ECO TO THE CS BOARD.
042737

162000

001142

BIC

#RQA!RQB!TAG!CH,$8DDAT

;HARDWARE ECO CHANGE CAUSES CC AND

sCH TO SET AT THE SAME TiME

;;tt'tttttttttttt't*tttt'ti'fittttttttttttttfi'ttfifi'tt'ttt't.ti't*'

5358 046774
5359 047002
5360 047010
5361 047012
5362 047016
5363 047024
5 364
5365 047026
5366
5367
5368 047034
5369 047040
5370 047040
5371 047050
5372
5373
5374 047052
5375 047052
5376 047060
5377 047066
5378 047074
5379 047102

0011740

012737
023737
001406
010037
062737
104276

004000
001140

001136
000040

001136

012737

047040

001124

012702

000144

MOV

001142

cMP
BEQ

MOV

$GDDAT, $8DDAT
2508

RO, SBDADR

ADD

#RMMR2, SBDADR

MOV

#2608 ,SLPERR

EMT

250%:

#CC,$GDDAT

276

;CHANGE LOOP ON ERROR ADDRESS

;VERIFY DATA COMMAND ABORTS AT (OMMAND SEQUENCER LOCATIONS 144, 145

2605

055370

MOV

2144 ,R2

;INITIALIZE

JSR

PC,SETWV

;GO SET VOLUME VALID

B8R

3208

ggr

270s

TEST LOCATION

*BRANCH TO 2708 IF NO ERROR

égggaLe DEBUG CLOCK AND LOAD DATA COMMAND

012760
012760
012760
012760
012760
012760

041401
000000
000000
000000
000000
000071

000024

012737
004777

000310

001530

016037
042737
001017

000024

001142

132402

137777

000014
000042
000006
000034
000000

001142

mov

MOV
MOV
MOV
MOV
MOV

#DMD
' MUR ' MOC | DBEN, RMMR 1 (R0)
#0 RMERT(RO)
;[ 0AD
#0.RMER2(RO)
:LOAD
#0 _RMDA (RO)
*LOAD
#0 . RMDC (RO)
*LOAD
ARD ! GO, RMCS 1 (RO)

:WAIT FOR RUN AND GO TO SET

2808

MOV

#200. ,WATCH

Moy

RMMR1 (RO) , SBDDAT

BNE

290%

JSR

BIC

PC,aclocK

#~CRG, $BDDAT

:LOAD RMMR1

RMERI
RMER2
RMDA
RMDC
:LOAD RMCS1

:SET WATCHDOG TIMER VALUE

*START THE

CLOCK

:STORE RMMR1 AT $BDDAT

CIRMPAO RMOS5/3/2 DSKLS TST 1

T116

DATA COMMAND TESTS

5387 047146
5388 047152
5389 047154
5390 047160
5391 047166
5392 047172
5393 047200
5394 047202
5395 047204
5396 047204
5397

5398 047210
5399 047214

(1)

005737
001366
004777
012737
010037
062737
104275
000476

132354
040000
001136
000024

004777

132324

(€12703
022702

000006
000144

001530

5600 047220
5601 047222
5402 047226
047226
5603 047234

001402
012703

2282 047244

001370

5407
2288 0472646

012760

041501

012703

000001

012760
012760
005303
001370

141501
061501

5404 047242

5410
5411 047254
5612 047260
047260

5413 047266

5414 047274
gz}g 047276

012760
012769

005303

MACRO v03.01

001140
001136
290%:

5426 047336

JSR

PC.aSTOP

000024
000024

000024

000024
000024

300%:

#6,R3
#144 ,R2

SEQ 0200

;STOP THE CLOCK

;STOP THE CLOCK
(LOCATION 144 OR 145)

;SETUP CLOCK COUNT

BtQ
MOV

3008
#7,R3

MOV
MoV

#DMD ! MUR !MOC ! DBEN ! DBCK ,RMMR1(R0O)
;LOAD RMMR1
#DMD ! MUR !MOC ! DBEN ,RMMR1 (RO)
;LOAD RMMR1

BNE

3008

DEC

;SET DRIVE FAULT TO FORCE ABORT CONDITION
MOV
#DMD !MUR !MOC ! DBEN !MDF ,RMMR1(RO)

;LOAD RMMRI1

;CLOCK SEQUENCER THRQUGH ITS TEST FOR ABORT (1 CLOCK)
MoV
#1,R3
305%:
MoV
#DMD ! MUR .MOC ! DBEN!MDF !DBCK ,RMMR1(R0)

MOV

DEC
BNE

#DMD ! MUR !MOC ! DBEN !MDF ,RMMR1(R0)
R3
305%

;LOAD RMMR1
;LOAD RMMR1

;ISSUE 2 CLOCKS

;ABORT EBL SHOULD NOW BE ACTIVE -~ USE THE MAINTENANCE REGISTER TO

012702

000020

012760
012760
016037
042737
001013

045501
041501
000024
157777

000024
000024
001142
001142

JFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
MoV
#16. ,R2
sMAXIMUM NUMBER OF BIT CLOCKS
306%:
MoV
#DMD !MUR !MOC ! DBEN!MDF 'MCLK ,RMMR1 (R0O)
;LOAD RMMR1
MoV
#DMD !MUR !MOC ! DBEN!MDF ,RMMR1 (RO) ;LOAD RMMR1
MoV
RMMR1(RO) , $8DDAT
;STORE RMMR1 AT S$BDDAT
BIC
#~CEBL
, $BDDAT
BNE
3108
;BRANCH IF EBL IS SET

005302

5427 047340
5428 047342
5429 047350
5430 047354
5431 047362
5432 047364
5433 047370
5434 047372

001361
012737
010037
062737
104271
022702
001003
012702

5437 047400
5438
5439

012737

gz%g 047376

WATCH
2808
PC,aSTOP
#RG,SGDDAT
RO, $BDADR
#RMMR1, $BDADR
275
3208

MOV
CMP

5617

5418
5619 047300
5420 047304
047304
5421 047312
5422 047320
5423 047326
gzsg 047334

TST
BNE
JSR
MOV
MOV
ADD
EMT
BR

;MOVE COMMAND SEQUENCER TO ABORT TEST

000007

141401
041401

F 16
11-APR-80 13:58:55 PAGE 12-111

000620

DEC

020000
001136
000024

001140

001136

000144

3108:

000145
047410

001126

3208:

BNE
MOV
MOV
ADD
EMT
(mP
BNE
MoV

306%
#EBL ,$GDDAT
RO, $BDADR
#RMMR1,$BDADR
271
#1464 ,R2
3208
#145,R2

2608

MOV

#3308, SLPERR

;CONTINUE BIT CLOCKS IF COUNT NOT O

;VERIFY HEAD TAG DURING DATA COMMAND

; CHANGE LOOP ON ERROR ADDRESS

€2 RMPAQ RMOS/3/2 DSKLS TST 1
DATA COMMAND TESTS (1)
M 16

5646 047422
5447 047422
5448 047430
5449 047436
5450 047444
5451 047450
5452 047456
5453
5454
5455 047464
047472
5456 047476
0L 476
5457 47504
5458 047512
5459 047514
2460 047520
5461 047522
5462 047526
5463 047534
5664 047540
5465 047546
5466 047550
5467 047552
047552
5468
5469
3470 047556
5471 047562
047562
5472 047570

5473 047576
5474 047600
5475
5476
5477 047602
5478 047610
5479
5480
5481
5482
5483
5484
5485 047616
5486
5487
5488 047622
5489 047622
5490 047630

004737
000402

055370

104000

000570

SEQ (°01

CLR

;INITIALIZE TRACK ADDRESS = 0

JSR

PC,SETVV

;GO SET VOLUME VALID

4008

?fir

3408

*BRANCH TO 3408 IF NO ERROR

%EggBLE DEBUG CLOCK AND LOAD DATA COMMAND

012760
012760
012760
010260
012760
012760

041401
000000
000000
000006
000000
000071

000024
000014
000042

01273/
04777

000310

001530

016037
042737
001017
005737
001366
004777
012737
010037

000024
137777

001142
001142

062737
104275

132034

MOV
MOV

MOV
MOV
MOV

000034
000000

132006
040000
001136

MOV

000024

004777

131756

012703

000021
141401

041401

041001
041401

#DMD ! MUR ! MOC ! DBEN , RMMR1 (RO)
#0,RMER1(RO)
;LOAD RMER]

#0.RMER2(RO)
R2.RMDA (RO)
#0.RMDC (RO)

#RD !GO, RMCS1(RO)

:WAIT FOR RUN AND GO TO SET
MOV
#200. ,WATCH

4505

JSR

PC.aclock

mov

RMMR1 (RO) , $BDDAT

BIC

BNE

001140

001136

JSR
MOV

PC,aSTOP
#RG., SGDDAT

3508

MOV
ADD

RO, $8DADR
#RMMR1, SBDADR

B8R

4008

JSR

:LOAD RMMR1

:LOAD RMER2
*LOAD RMDA
*LOAD RMDC

:LOAD RMCS1

;SET WATCHDOG TIMER VALUE
*START

THE

CLOCK

:STORE RMMR1 AT $8DDAT

3608

WATCH

EMT

360%:

#~CRG, SBDDAT

TST

BNE

000514

012760

001530

;STOP THE

CLOCK

275

PC,3STOP

:STOP THE CLOCK

;STEP COMMAND SEQUENCER TO HEAD SEQUENCE. LOCATION 156 (17 CLOCKS)

000024
000024

MOV

#17..R3

Moy

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

BNE

3708

ggg

zgmofnua!noc:0&5~.anrn1<Ro>

:LOAD RMMR1

;LOAD RMMRI

;DROP AND RAISE ON CYLINDER TO RESET ON LATCH

MOV
MOV

#DMD 'MUR ' DBEN,,RMMR1T (RO) ; LOAD RMMR1
#DMD ' MUR i MOC ! DBEN, RMMR1 (R0)
:LOAD RMMR1

::ttttttttttttttttt*ttt'tt'ttfitfifit**itttktittttt*ttttttittttttttt

MOV

000004

MOV

575.
£HE

047414
047416
5443 047420
5444
5445

4305

—

5642 047410

005002

o—

5440 047406
5441 047410

G 16
11-APR-80 13:58:55 PAGE 12-112

MACRO v03.01

000024
000024

#4508 ,R3

#4 .R3

;INITIALIZE TABLE POINTER

;HARDWARE ECO CHANGE TO THE PLA ON THE
*CS BOARD.
:CLOCK THE SEQUENCER THRU THE FIRST

*4 COMMAND SEQUENCES 10 ALLOW THE PROGRAM
STO RUN WITH OR WITHOUT THE ECO.

mov

MOV

#DMD ! DBEN 'MUR ' MOC ! DBCK , RMMR1 (RO)
#DMD | DBEN | MUR IMOC .RMMR 1 (RQ)

:LOAD RMMR1

CZRMPAQ RMOS/3/2 DSKLS TST 1
DATA COMMAND TESTS

5491 047636
5492 047640
5493 047642
5494
5495

005303
001370
012703

H 16
11-APR-80 13:58:55 PAGE 12-113

SEQ 0202
DEC
BNE

050014

MoV

R3
372%

#4758 ,R3

;DONE & CLOCKS ¢
JNO !

JINITIALIZE NEW TABLE POINTER

::ttt'tttttt*tttttfitfi*t'tttt'tttt"t*tttti'ttttt*

tt"'t."ttitt'.

5502 047670
5503 047672
5504 047676
5505 047704
5506 047706
5507 047714

012760

5511 047726
047730
047732

062703
005713
100401
000745

047734
047734
5518 047740
5519 047746
047750
047754
047756
047756
047762
047764

5528 047766

5533 050002
5534
5535
5536 050004
5537 050004
5538 050006
5539 050010
5540 050012
5541 050014

5542 050014
5543 050016
5544 050020
9545 050022
5546 050024
5547

£~
[AVT)V)

Q00040

016037
042737
011337

—

5498 047546
5499 047654
5500 047662
5501 047666

éggglFY TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS
—

5496
5497 047646

5520
5521
5522
5523
5524
5525

(1)

(ole]
lole]

MACRO v03.01

001140
001140

001142

MOV
BIC
MOV
MOV
SWAB
BIS
CMP

1414017
041401

000024
000024

MOV
MOV

150000
001140

BNE

101615

020237
101007
000611

000400
010000

RMMR2 (RO) , $BDDAT
;STORE RMMR2 AT $8DDAT
#RQATRQB!
TST, $SBDDAT
(R3)
. $GDDAT
R2,R4
.,CINERATE EXPECTED TAG BUS
R4
R4, $GDDAT
$GDDAT, $8DDAT
#DMD ' MUR 'MOC ! DBEN! DBCK ,RMMRT (RO)
;LOAD RMMR1
#DMD
! MUR ' MOC | DREN.RMMR1 (RO)
;LOAD RMMR1

3908

;ADVANCE TO NEXT TABLE ENTRY

000002

ADD

#2 R3

BM]
BR

3808
375%

TST

éggiFT

062702
032737
001403
020237

IN R2

ADD

BIT

001330

TO NEXT

5855

001330

BEQ
CMP

BLOS

CMP
BHI

(R3)

TRACK ADDRESS-EXIT LOOP

#TA1,R2

#TA16.,LSTRK

385$
R2,LSTRK

;ADVANCE

DONE

TRACK ADDRESS

2IS IT RMOS 2

*NO !
:DONE WITH TRACKS ON RMOS 2

330$

R2,LSTRK
4008

:DONE WITH TRACKS ON RM02/3 ?
SYES, EXIT

3308

558§0R ON TAG BUS DLRING HEAD SEQUENCE

010037
062737
104276

000440

001136

001040

MOV
ADD

001136
400$:

EMT

276

500%

igegLE OF

002000
002000
022000
022000

177777

475%:

RO, $BDADR
#RMMR?
, $BDADR

;JUMP OVER TABLE

TAG BUS DURING HEAD SEQUENCE

.WORD
.WORD
.WORD
.WORD

CH
CH
CH!TAG
" CHITAG

.WORD
.WORD
.WORD
.WORD
CWORD

CH!TAG
CHI!TAG
CH!TAG
CH!TAG
-1

;START TABLE HERE FOR HARDWARE ECO CHANGE
_

;END TABLE HERE FOR HARDWARE ECO CHANGE

CZRMPAQ RMOS/3/2 DSKLS TST 1

T116

DATA COMMAND TESTS

5548

5549 050026
5550 €50030
5551 050032
5552 050034
5553 050036
5554 050040
5555 050042
5556 050044
5557 050046
5558 050050
5559 050052
5560 050054
5561 050056
5562 050060
5563 050062
5564 050064
5565 050066
5566 050070
5567 050072
5568 050074
5569 050076
gg;? 050100

002000
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
0017277
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777

gg;% 050102

177777

(1)

MACRO v03.01

1 16
11-APR-80 13:58:55 PAGE 12-114

;

LWORD

SEQ 0203

(WM

.WORD
.WCRD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

(H
1777
1777
1777
1777
17277
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777

LWORD

-1

gg;g 050104

500%:

5576

SRR N AR AR AR A AR AR A AR

:END OF TABLE
;END
OF TEST

:*TEST 117

R A

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

DATA COMMAND TESTS

(2)

;'-tttttttttttttkttttttttttttttttttt*tttttttttttttttttt'tttttttttt

050104
050104

050106

000004
000240

TST117:

050110

012706

001100

5577 050124

012737

000117

050114
050120

013700
033701

001276
001462

001226

gg;g

ggg} 050142

004737
000402
104000

055370

MOV

H#STACK,SP

MOV

#117,$TESTN

MOV
MOV

JSR
BR
EMT

000514

B8R

gggz 050144

5585 050144

5592

:SCOPE CALL

$BASE RO
TSTQUE ,R1

:LOAD THE STACK POINTER

;RO = UNJBUS ADDRESS
;R1 = POINTER TO DEVICE

;:SET TEST NUMBER IN APT MAIL BOX

;VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT RESET

5580 050132
050136
050140

5586
5587
5588
5589
ggg?

SCOPE
NOP

250152
050160
050166
050174
050202

PC,SETVV
108

;GO SET VOLUME VALID
:BRANCH TO 108 IF NO ERROR

60%

%SQABLE DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDER SEQUENCE

012760

012760
012760
012760
012760
012760

041401

000000
000000
000000
000000
000071

000024

000014
000042
00006
000034
000020

MOV

MOV
MOV
MOV
MOV
MoV

#DMD 'MUR 'MOC ' DBEN,RMMR1 (R0)

#0 ,RMER1(RO)
;LOAD
#0,2MER2 (RO)
;LOAD
#0,RMDA (RO)
;LOAD
#0,RMDC (RO)
;LOAD
#RD !GO, RMCST (RO

;WAIT FOR RUN AND GO TO SET

:LOAD RMMR1

RMER?
RMER?
RMDA
RMDC
;LOAD RM(CST

CIRMPAO RMOS5/3/2 DSKLS TST 1

DATA COMMAND TESTS

5593 050210
050216
5594 050222
050222
5595 050230
5596 050236
5597 050240
5598 050244
5599 050246
5600 050252
5601 050260
5602 050264
5603 050272

5604 050274

5605 050276
050276
5606
5607
5608 050302
5609 050306
050306
5610 050314
5611 050322
5612 050324
5613 050326
5614 050334
5615 050342
5616 050344

5617 050352
5618 050356

5619
5620
5621
5622
5623
5624

050364
050366

050374
050374
050400
050402
5625 050404

5628 050406
5629 050406
5630 050414
5631 050422
5632 050430
5633 050436
gggg 050444

(2)

MACRO v03.01

012737
004777

000310
131310

001530

016037
042737
001017
005737
001566
004777

000024
137777

001142

MOV

RMMR1 (RQO) ,$8BDDAT

TST

WATCH

JSR

PC,aSTOP

BNE

040000
001136
000024

004777

131232

012702

000023

(012760
012760
005302
001370
016037
042737
001011
012737
010037
062737
104277
012737

141401
041401

000024
000024

000014
157777

001142
001142

020000
001136
000014

001140

050374

001124

001140

MoV

MOV

001136

:
308

PC,aCLOCK

;SET WATCHDOG TIMER VALUE
:START

#RG,$GDDAT

THE

CLOCK

;STORE RMMR1 AT $8BDDAT

#“CRG,$BDDAT
308
208

SEQ 0204

;STOP THE CLOCK

RO, $BDADR

ADD
EMT
BR

#RMMR1, $BDADR
275
60%

JSR

PC,aSTOP

;STOP THE CLOCK

;STEP COMMAND SEQUENCER AND VERIFY OPI SETS (19 CLOCKS)
40%:

001136
50%:

MoV

#19. ,R2

MOV
l;g\cl

#DMD 'MUR 'MOC ! DBEN!DBCK ,ARMMR1(R0)
;LOAD RMMR1
ngD.'MURfMOCfDBEN.RMR1 (RO)
.LOAD RMMR1

BNE
MOV
BIC
BNE
MoV
MOV
ADD
EMT
MOV

408
RMER1 (RO) , $BDDAT
;STORE RMER1 AT $BDDAT
#°COPI,S$BODAT
508
;BRANCH IF OP] SET
A0PE ,$GDDAT
RO, $SBDADR
#RMER1
, $8DADR
277
#60%, SLPERR
;CHANGE LOOP ON ERROR ADDRESS

.VERIFY DATA COMMAND ABORTS DURING SEEK WAIT LOOP
60%:

055370

JSR
?fi”

PC,SETWV
70$

B8R

1408

;GO SET VOLUME VALID
*BRANCH TO 708 IF NO ERROR

%SQABLE DERUG CLOCK AND LOAD DATA COMMAND

000024

012760
012760
012760

041401
000000
000000

5636
5637 050452
050460

012737
004777

000310
131046

001530

050464

016037

000024

001142

5640 050500
5641 050502

001017
005737

001530

5639 050472

#200. ,WATCH

BIC
BNE

001530
131262

MOV
JSR

001142

012737
010037
062737
104275
000437

004737
000402
104007
000567

208

J 1%
11-APR-80 13:58:55 PAGE 12-115

012760
012760
012760

042737

000000
000000
000071

137777

000014
000042
000034
000006
000000

001142

MOV
MOV
MOV
MOV
MOV

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

;WAIT FOR RUN & GO TO SET

MOV
JSR

"
S,fl E
TST

:LOAD RMMR|

#0,RMER1 (RO)~ :;LOAD RMER1
#0_RMER2(RO)
-LOAD RMER2
#0_RMDC (RO)
*LOAD RMDC
#0_RMDA (RO)
*LOAD RMDA
#RD !GO, RMCS1(RO)
;L OAD RMCS1
#200. ,WATCH
PC.aclock

RMMR1 (RO) , $8DDAT
gagns,saoom
WATCH
i

:SET WATCHDOG TIMER VALUE

*START

THE

CLOCK

;STORE RMMR1 AT $BDDAT

RMO5/3/2 DSKLS TST 1
DATA COMMAND TESTS (2)
5642 050506
5643 050510
5644 050514

001366
004777

012737
010037
062737
104275

131020
040000
001136
000024

SEQ 0205
BNE

004777

130770

5652 050544
5653 050550
050550
5654 050556
5655 050564
5656 050566

012702

000021

012760
012760
005302
001370

5659 050570

012760

041001

5662 050576

012702

000037

012760
012760
005302
001370

141001
041001

012702

000006

012760

141001
041001

5665 050616
5666 050620
5667
5668
5669 050622
5670 050626
050626
5671 050634
5672 050642
5673 050644
5674
5675
5676 050646
5677
5678
5679 050654
5680 050660
050660
5681 050666
5682 050674

5683 050676
5684
5685
5686
5687 050700
5688 050704
050704
5689 050712
5690 050720
5691 050726
5692 050734

1641401

041401

001140

PC,aSTOP
#RG, SGDDAT

001136

ADD

#RMMR1, SBDADR

JSR

PC,aSTOP

MOV

EMT
BR

90%:

012702

000002

012760
012760
005302
001370

141201

041201

012702

000020

012760
012760
016037
042737
001013

045501
041501
000024
157777

RO, $8DADR

275
1408

;STOP THE CLOCK

000024
000024

000024

MOV

#17.,R2

mov

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

BNE

1008

ggg

ngD!MUR!MOC!DBEN.RMMR1(RO)

;DROP ON CYLINDER TO RESET LATCH
MOV

#DMD 'MUR | DBEN.RMMR1
(RO)

1105

000024
000024

MOV

#31. .R2

mov

#DMD 'MUR ' DBEN!DBCK,RMMR1(RO)

DEC
BNE

R2
1108

MOV

#DMD 'MUR i DBEN .RMMRT (RO)

:LOAD RMMR1

;MOVE COMMAND SEQUENCER TO SEEK WAIT LOOP (31

CLOCKS)

:LOAD RMMRY

;LOAD RMMR1

:STEP THROUGH SEEK WAIT LOOP (6 CLOCKS) 2 TIMES
000024
000024

120%:

MOV

#6. R2

MOV
MOV
DEC

#DMD 'MUR ' DBEN ! DBCK ,RMMR1(RO)
:LOAD RMMR1
#DMD 'MUR i DBEN .RMMRT (RO) :LOAD RMMR1
R2

BNE

041201

;STOP THE CLOCK

:STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS)

008

001370
012760

80s

JSR
MOV

000512

050540

K 16
11-APR-80 13:58:55 PAGE 12-116

MACRO v03.01

000024

1208

;SET SEEK INCOMPLETE ERROR TO CAUSE ABORT
MOV

#DMD !MUR ! DBEN !MSER,RMMR1 (R0)

;LOAD RMMR1

;CLOCK THE SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS)
000024
000024

130%:

MOV

#2,R2

MoV
Mov
DEC
BNE

#DMD !MUR ! DBEN !MSER ! DBCK ,RMMR1 (R0)
;LOAD RMMR1
#DMD !MUR ! DBEN !MSER ,RMMR1 (RO)
;LOAD RMMR1

1308

;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO
;FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
000024
000024
001142
001142

135%:

MOV

#16. ,R2

;MAXIMUM NUMBER OF BIT CLOCKS

#DMD !MUR !MOC ! DBEN!MDF 'MCLK ,RMMR1 (R0O)
;LOAD RMMR1
#DMD ! MUR !MOC ! DBEN !MDF ,RMMR1 (RO) ;LOAD RMMR1

RMMR1(RO) , $BDDAT
nggBL,SBDDAT

;STORE RMMR1

AT S$BDDAT

CZRMPAO RMOS5/3/2 DSKLS TST 1
1117
DATA COMMAND TESTS (2)

5693
5694 050736
5695 050740
5696 050742
5697 050750
5698 050754
5699 050762
2;8? 050764

005302
001361
012737
010037
062737
104300
012737

MACRO v03.01

5704 050772

051000
2;89 051002
5708
5709 051004
5710 051004
5711 051012
5712 051020
051024
051026
g;}g 051030
5715
5716 051032
5717 051032
5718 051040
5719 051046
g;%? 051054

5722
5723 051062
051070
5724 051074
031074
5725 051102
5726 051110
5727 051112
5728 051116
5729 051120
5730 051124
5731 051132

5732 051136
5733 051144
5734 051146
5735 051150
573 051150

5737
5738 051154
5739 051160
051160
5740 051166
5741 051174

12-117

SEQ 0206

020000
001136
000026

001136

050772

001124

001140

5702
5703

5705 050772
050776

L 16

11-APR~80 13:58:55 PAGE

140%:

DEC
BNE
MOv
MOV
ADD
EMT
MOV

R
1358
#EBL ,$GDDAT
RO, $BDADR
#RMMR1, $8DADR
300
#1508, SLPERR

;CONTINUE BIT CLOCKS IF COUNT NOT 0

)
;
; CHANGE LOOP ON ERROR ADDRESS

.VERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LAT(CH
:DOESNT RESET

004737
000402

1508:

055370

104000
000536

012760
012760

004737

000402
104000
000523

012760

012760
012760

012760

000000
000000
055512

041401

000000
000000

000071

000034
000006

000024

000014
000042

000000

000310
130436

001530

016037
042737
001017
005737
001366
004777
012737
010037
062737
104275
000454

000024
137777

001142
001142

001530

004777

130360

012702

000021

012760
012760
005302

141401
041401

001140

001136

000024
000024

PC,SETVV
160%

;GO SET VOLUME VALID
;BRANCH TO 160$ If NO ERROR

220%

:LOAD TRACK, SECTOR, AND CYLINDER ADDRESSES
160%:
MOV
#0,RMDC (RO)
;LOAD RMDC
MoV
#0,RMDA(RO)
;LOAD RMDA
JSR

BR
EMT
BR

012737
004777

130410
040000
001140
000024

JSR
BR
EMT
BR

PC,SETOM

1708

;6o SET OFFSET MODE

;BRANCH TO 170% IF NO ERROR

220%

:ENABLE DEBUG CLOCK AND LOAD DATA COMMAND
170$:
MoV
#DMD !MUR !MOC ! DBEN,RMMR1 (R0)
MOV
MOV

MoV

#0 ,RMER1(RQ)
#0 ,RMER2 (RO)

#RD !GO,RMCS1(RO)

;LOAD RMER1
;LOAD RMER?2

;LOAD RMMR1

;LOAD RM(CS1

JWAIT FOR RUN AND GO TO SET
MOV
#200. ,WATCH
;SET WATCHDOG TIMER VALUE
JSR
PC,aCLOCK
;START THE CLOCK
180%:
MOV
RMMR1(RO) , $BDDAT
;STORE RMMR1 AT $BDDAT
BIC
#*CRG, $BDDAT
BNE
190%
TST
WATCH
BNE
180%
JSR
PC,aSTOP
;STOP THE CLOCK
MoV
#RG, $SGDDAT
MOV
RO, $GDDAT
ADD
#RMMR1, $BDADR
EMT
275
BR
220$
190%:
JSR
PC.,asSTOP
;STOP THE CLOCK
;STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS)
MoV
#17..R2
2008:
MOV
#DMD !MUR !MOC ! DBEN ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
MOV
#DMD !MUR !MOC ! DBEN,RMMR1 (R0)
;LOAD RMMR1
DEC
R

‘$1ZRFPA0 RM0OS/3/2 DSKLS TST 1
17
DATA COMMAND TESTS (2)

MACRO v03.01

2;25 051176 001370
§744
5745
§746 051200

BNE

012760

041001

5751 051220
051220
5752 051226
§753 051234
g;gg 051236

012702

000047

012760
012760
005302
001370

141401
041401

000024
000024

5756
5757 051240
5758 0512646
5759 051254
5760 051256
5761 051264
5762 051270
5763 051276
g;gg 051300

016037
042737
001011
012737
010037
062737
106277
012737

000014
157777

0OC114?
001142

020000
001136
000014

001140

051306

001124

g;zg 051205

5749

§750 051214

012760

041401

000024

12-118

201136

SEQ 0207

2008

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST
AT LOCATION 166
MOV
#DMD 'MUR ' DBEN,RMMR1(R0) :LOAD RMMRI

MOV

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

;MOVE SEQUENCER TO SET OPI AND EBL

g;gg

2108
:

;L OAD RMMR1

(39 CLOCKS)

MOV

#39. .R2

MOV
MOV
DEC
BNE

#DMD 'MUR ' DBEN 'MOC ! DBCK ,RMMR 1 (R0)
;LOAD RMMRI1
#DMD ' MUR | DSEN 'MOC .RMMR T (RO)
;LOAD RMMRT
R2
2108

;VERIFY OPI IS SET
MOV
RMER1(RO) , $8DDAT
;STORE RMER' AT $8DDAT
BIC
#~COPI,$BDDAT
BNE
2208
MOV
#OP] ,$GDDAT
MOV
RO, $8DADR
ADD
#RMER1, SBDADR
EMT
277
2208:
MOV
#2308 ,8LPERR
;CHANGE LOOP ON ERROR ADDRLSS

;VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP

"768 051306

051306

051312

051314

g;gg 051316
/

577
5772
5773
5774
5775

11-APR-80 13:58:55 PAGE

004737

000403

104000

000137

051322
051322
051330
051336

012760
012760
004737

051344

104000

051342

g;;g 051346

000402

012760

5781 051364
g;gg 051372

012760
012760

5784

5785 051400

051406

5786 051412
051412
5787 051620
5788 051426
5789 051430

EMT

051726

000000
000000
055512

000006
000034

041401

000024

000000
000000
000071

000042
000000

012737

000310

001530

016037
042737
001017
005737

130120

000024
137777
001530

000014

001142
001142

PC,SETWV

2408

;GO SET VOLUME VALID

:BRANCH TO 2408 IF NO ERROR
‘

3108

;LOAD SECTOR.TRACK AND CYLINDER
2408:
MOV
#0,RMDA (RO)
MOV
#0 . RMDC (RO)
JSR
PC.SETOM

B8R

2458

B8R

3108

EMT

012760

004777

JSR

B8R

000567

5778
5779 051350
051350

5780 051356

2308
:

055370

ADDRESS
:LOAD RMDA
*LOAD RMDC
“GO SET OFFSET MODE

*BRANCH TO 2458 IF NO ERROR

;ENABLE DEBUG CLOCK AND LOAD DATA COMMAAD
245%
MOV
#DMD 'MUR ' MOC ! DBEN . RMMR1 (RO)

MOV
MOV
MOV

#0,RMER1 (RO)

2508:

:LOAD RMMR1

#0.RMER2 (RO)
:LOAD RMER2
#RD ' GO,RMCST (RO)
;LOAD RMCST

;WAIT FOR RUN AND GO TO SET

MOV

:LOAD RMER1

#200. ,WATCH

JSR

PC.aCcLOCK

MOV
BIC
BNE
ST

RMMR1 (RO) , SBDDAT
#*CRG,SBDDAT
2608
WATCH

:SET WATCHDOG TIMER VAL UE

*START THE CLOCK

;STORE RMMR1 AT $BDDAT

C]ZR!‘PAO RMOS5/3/2 DSKLS TST 1

T117

DATA COMMAND TESTS

5790 051434
5791 051436
5792 051442
5793 051450
5794 051454
5795 051462
5796 051464
5797 051466
5798 051466

5799

5800 051472
5801 051476
0516476
5802 051504
5803 051512
ggg‘so 051514

5806
5807

001366
004777
012737
010037
062737
104275
000520

(&)

130072
040000
001136
00002«

004777

130042

012702

(00021

012760
012760
005302
001370

141401
041401

5808 051516
gg?g 05152¢

012760
012760

041001
041401

5811
5812 051532
5813 051536

012702

000045

051536

5814 051544
5815 051552

012760

141401

MACRO v03.01

SEQG 0208

001140
001136
260$:

000024
000024

000024

041401

gg}? 051554

001370

5818
gg}g 051556

012760

041001

012702

000007

012760
012760
005302
001370

141001
041001

000024
000024

012760

041101

000024

012702

000002

012760
012760
005302
001370

141101
041101

5822 051564
5823 051570
051570
5824 051576
5825 051604
gggg 051606

5828

gg%g 051610

5831
5832 051616
5833 051622
051622
5834 051630

5835 051636
gg%g 051640

5841 051646

2508
PC,asTOP
#RG,$GDDAT
RO, $BDADR
#RMMR1 , $BDADR
275
3108

JSR

PC.aSTOP

270%:

;STOP THE (CLOCK

:STOP THE (LOLK

MOV

#7..R2

MOV
MOV
DEC
BNE

#DMD 'MUR !MOC : DBEN! DBCK ,RMMR1 (R0)
;L OAD RMMR1
#DMD MUR !MOC ! DBEN,RMMR1 (RO)
;LOAD RMMR1
R2
2708

:DPOP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST
;AT LOCATION 166
MOV
MOV

MOV

000024

#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMR1
#DMD !MUR !MOC ! DBEN ,RMMR 1 (RO)
;LOAL RMMRI

;MOVE SEQLENCER TO_LOCATION
MOV
#37..R2
280$:

MOV
DEC

BNE

5838

5839
5840 051642

BNE
JSR
MOV
MOV
ADD
EMT
BR

;STEP SEQUENCER TO_LOCATION 156 (17 CLOCKS)

012760
005302

5821

1
¢
11-APR-80 13:58:55 PAGE 12-119

174

(37 CLOCKS)

#DMD !MUR :MGC ! DBEN!DBCK ,RMMR1(RO)

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

;LOAD RMMR1

2808

:DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER RESET
MOV
#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMR1

;STEP SEQUENCER THROUGH OFFSET WAIT LOOP TWICE (7 CLOCKS)

000024
000024

2908:

MOV

#7..R2

MOV
MOV
DEC
BNE

#DMD !MUR ! DBEN ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
#DMD !MUR ! DBEN,RMMR1(R0O) ;LOAD RMMR1
R2
2908

;SET DRIVE FAULT TO CAUSE ABORT CONDITION
MOV

#DMD !MJR | DBEN'MDF ,RMMR1 (RO)

;LOAD RMMR1

sSTEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS)
MO
#2,R2
300$:
MOV
#DMD MUR ! DBEN !MDF ! DBCK ,RMMR1(RO)
;LOAD RMMRI1
MOV
#DMD ! MUR ! DBEN ! MDF ,RMMR1 (RO)
;LOAD RMMR1

DEC
BNE

R?
3008

;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO
012702

000020

JFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
MOV
#16..R2
;MAXIMUM NUMBER OF BIT CLOCKS

305$:

RMPAD RMOS/3/2 DSKLS TST 1
17
DATA COMMAND TESTS (2)

051646
5842 051656

012760
012760

5843 051662
5844 051670
gg:g 051676

016037
042737
001013

§847
5848
5849
$850
5851
§g§§

051700
051702
051704
051712
051716
0517264

005302
001361
012737
010037
062737
104271

gggg 051726

012737

045501
041501

000024
157777

MACRO V03.01

000024
000024

001142
001142

020000
001136
000026

001136

051734

001124

5858 051734
051734
051740
051742
gggg 051744

004737
000403
104000
000137

055370

5863
5864
5865
5866

052372

012760
012760
012760
012760

041401
000000
000000
000000

gggg 052006

012760

000071

5870
5871 052014

5867 052000 012760

000024
000014
000042
000006

000000

000034

012737

000310

001530

58772 052026
052026
5873 052034
5874 052042

016037
042737
001017

000024
137777

001162
001142

5876 052050
5877 052052
5878 052056

001366
004777
012737

5875 052044

5879 052064

5880 052070
5881 052076

5882 052100

5883 052102
. 052102

SEQ 0209

#DMD ' MUR 'MOC ! DBEN 'MDF . MCLK ,RMMR 1 (R0)
:LOAD RMMR1
#DMD ' MUR 'MOC ' DBEN 'MDF ,RMMRT (RO) ;LOAD RMMRI

DEC
BNE
MOV
MOV
ADD
EMT

R2
305$
#EBL
, SGDDAT
RO, $S8DADR
#RMMR
1, SBDADR
271

MOV

#3208,8LPERR

;CHANGE LOOP ON ERROR ADDRESS

JSR
BR
EMT
JMP

PC,SETVV
3308

;GO SET VOLUME VALID
*BRANCH TO 3308 IF NO ERROR

RMMR1(RO) , SBDDAT
#-CEBL
, SBDDAT
3108

:STORE RMMR1 AT $BDDAT

;CONTINUE BIT CLOCKS IF

COUNT NOT 0

4208

-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

051750
051756
051764
051772

052022

12-120

JVERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAJT LOOP AT LOCATION 179

3208
:

5861

5862 051750

3108:

MOV
MOV
MOV
BIC
BNE

001140

gggg

11-APR-80 13:58:55 PAGE

004777

005737

010037
062737
104275

127504

001140

000024

001136

127426

5885
5886 052106
5887 052112

012702

000021

5888 052120

012760

5889 052126
5890 052130

005302
001370

141401

041401

3408:

000024

#0.RMDC (RO)

#RD ! GO,RMCS1 (RO)

JSR

PC.aCcLoOCK

MOV
Bit
BNE

RMMR1 (RO) , SBDDAT
#*CRG, S3DDAT
3508

BNE
JSR
MOV

MOV
ADD
EMT

5508

000024

#DMD 'MUR 'MOC ! DBEN, RMMR 1 (RO)
#0,RMER1 (RO)
;LOAD RMER1
#0_RMER2 (RO)
*LOAD RMER?
#0 . RMDA (RO)
*LOAD RMDA

;WAIT FOR RUN AND GO TO SET
MOV
#200. ,WATCH

127456
040000

004777

012760

MOV

001530

001136

MOV
MOV
MOV
MOV

MOV

000000

000534

052112

3308

:LOAD RMDC

:LOAD RM(S1

;SET WATCHDOG TIMER VALUE

'START THE CLOCK

;STORE RMMR1

AT $8DDAT

WATCH

3408
PC.aSTOP
#RG,SGDDAT

:STOP THE CLOCK

RO, $8DADR

ARMMR1, SBDADR
275

arR

4208

JSR

PC.aS10P

:STOP THE CLOCK

;STEP SEQUENCER TO LOCATION 156 (17 CLOCKS)
MOV
7. ,R2
3608:

MOV

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

DEC
BNE

RZ
3608

MOV

:LOAD RMMRT

#DMD ' MUR . MOC . DBEN ,RMMR 1 (R0)

;LOAD RMMR1

CZRMPAQ RMOS/3/2 DSKLS TST 1
DATA COMMAND TESTS

012702

000042

012760
012760
005302
001370

141401
041401

012702

000006

012760
012769
016037
042737
001403
005302
001361

141401
041401
000024
173777

004000
001136

052242
052250
052252
052254
052254

5922
5923
5924 052262
5925 052266
052266
5926 052274
5927 052302
5928 052304
5929
5930

£931
5932 052306
5933 052312
052312

5934 052320
5935
5936

041001

5937 052326
5938 052334
2939 052342

5940
5941 052344
5942 052346

000024

;AT LOCATION 166

MOV

000024
000024

MOV

#34. .R2

mov

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

BNE

3708

ggg

;5MD!HUR!HOC!DBEN,RNNR1(RO)

041501

012702

000002

012760
012760
005302
001370

141501
041501

012702

000020

012760
012760

045501
041501

016037
042737
001013

000024
157777

005302
001361

;LOAD RMMR1

;STEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED
;DURING ;gs LOOP’é6 g%OCKS)
000024
000024

380%:

#DMD !MUR !MOC ! DBEN ! DBCK ,RMMR1 (R0)

MOV
BIC

RMMR1 (RO) , $8DDAT
#*CESRC,$BDDAT

MOV

001142

001140

MOV

3908:

001136

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

8EQ
DEC
BNE
BR
MOV
MOV
ADD

#RMMR1, $BDADR

420%

EMT

000024

mov

;LOAD RMMR1

;STORE RMMR1

AT $BDDAT

3908
R2
380%
4<00%
#ESRC,$GDDAT
RO, $BDADR
301

igg; DRIVE FAULT

012760

#DMD !MUR !DBEN,RMMR1(R0O) ;LOAD RMMR1

;MOVE SEQUENCER TQ SECTOR WAIT (34 CLOCKS)

3708

TO CAUSE ABNRT CONDITION

#DMD !MUR !MOC ! DBEN!MDF ,RMMR1 (RO) ;LOAD RMMR1

;STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS)
000024
000024

4108:

MOV

#2.R2

MOV
gg\({

#DMD !MUR !MOC ! DBEN!MDF 'DBCK ,RMMR1 (R0)
.LOAD RMMR1
:gflDPWR!HOCfDBEN.'MDF LRAMMRT1(RO) ;LOAD RMMRI1

BNE

4108

cABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO
JFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT (CLOCKS

0158

000024
000024
b

052222
052224
052226

012760

—

5910 052220

5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST

—

5905 052164
5906 052170
052170
5907 052176
5908 052204
5909 052212

11-APR-80 13:58:55 PAGE 12-121

SEQ 0210

—

5891
5892
5893
5894 052132
5895
5896
5897 052140
5898 052144
052144
5899 052152
5900 052160
5901 052162
5902
5903
5904

(2)

QO
O

£ 1

MACRO Vv03.01

MOV

#16. ,R2

;JMAXIMUM NUMBER OF BIT

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

SVERIFY EBL IS SET
MOV
BIC
BNE

RMMR1(RO) ,$8DDAT
#*CEBL, $BDDAT
420%

DEC
BNE

R2
415%

,RMMR1(R0)

CLOCKS

.LOAD RMMR1

;LOAD RMMR1

;STORE RMMR1 AT $BDDAT

;CONTINUE BIT CLOCKS IF

COUNT NOT O

CZRMPAOD RMOS5/3/2 DSKLS TST 1
T117
DATA COMMAND TESTS (2)

5943 05c750

5944 052356
5945 052362

ggzg 052370

012737

010037
062737

104271

020000

001136
000024

MACRO V03.01

001140

MOV

001136

5950

5957 052426
5958 052434
5959 052442

5960 052442
5961 052450

5962 052456
gggz 052464

5965
ggg? 052472

001100
001276
001462
000120

001466
001330
000035

001442
001414
001414

012737
012737

000200
000071

001440
001406

(12737
012737

004737

177400
103712

Ad S22

DATA COMMAND TESTS (3)

0dd

SCOPE
NOP
MOV
MOV
MOV
MOV

ittt

2222

YRR

SRR

;SCOPE CALL
#STACK,SP
$8ASE RO
TSTQUE ,R1
#120,$TESTN

sLOAD
;RO =
;R1 =
soSET

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

:LOAD TEST PARAMETERS IN REGISTER QUTPUT BUFFER
MOV
#822. ,RMDCO
;LAST CYLINDER

5%:

001410
001412

MoV
MovB

LSTRK,RMDAO
#29. ,RMDAC

sSETUP LAST TRACK AND
sLAST SECTOR

MoV
MOV

#OF D ,RMOFO
#RD.GO,RMCS10

;FORWARD OFFSET
;READ DATA

MoV
MOV

#=256. ,RMJCO
#BUFFER ,RMBAO

JEXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE
JSR
PC.10$
. SECOND PART USES OFFSET REVERSE
sLOAD TEST PARAMETERS IN REGISTER QUTPUT BUFFER
MovB
#0,RMOFO
SJREVERSE OFFSET

5972
5973 052504
gg;g 052510

004737
000137

052514
053600

001440

JEXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE
JSR
PC,10$
JMP
3008

5976

5977

AN AR AR AN AR R

AN AN RN A AN A AR AR AN AR RN A AR A RNRANRANNRARRR RN

s SUBROUTINE USED DURING TEST

5978

SRR AR NN R AR AR N R AR AR A A N T

004737
000403
104000
000137

013760
013760

;WORD COUNT
;BUFFER ADDRESS

_
052514

000000

5987 052536

001226

012737
013737
112737

112737

5984
5985 052530
5986 052530

TEST

;VERIFY THE TAG BUS DURING DATA COMMAND
;FIRST PART USES OFFSET FORWARD

5968
5969
gg;? 052476

5979
5980 052514
5981 052514
052520
052522
ggg% 052524

TST120:

5952
2322

5955
5956 052420

;END OF

TRTEST 120
000004
000240
012706
013700
013701
012737

RO, $8DADR
#RMMR1, $BDADR
27

EMT

4208 :

SEQ 0211

NEBL ,SGDDAT

MOV
ADD

ggzg 052372

052372
052372
052374
052376
052402
0526406
5951 052412

11-APR-80 13:58:55 PAGE 12-122

AR A AR

RN R R

108:

055370

JSR
BR
EMT
JMP

053416

001414
001442

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

000006
000034

PC,SETVV
20%

GO SET VOLUME VALID
;BRANCH TO 20% IF NO ERROR

160%

:LOAD TRACK, SECTOR AND CYLINDER ADDRESS, LOAD OFFSET
20%:
MOV
RMDAO,RMDA(RQ)
:LOAD RMDA
MOV
RMDCO,RMDC(RO)
;LOAD RMDC

CZRMPAO RMOS/3/2 DSKLS TST 1
T120
DATA COMMAND TESTS (3)

SO88 052544
5989 052552

052556
052560
ggg? 052562

013760
004737

000403
104000
000137

001440
055512

000032

001410

000002

5997
5998 052602
5999 052610

0©12760
012760

041401
000000

000024
0000714

2885 052626

6003

6004 052632

052640
6005 052644
052644
6006 052652
6007 052660
6008 052662
6009 052666
6010 052€70
6011 052674
6012 052702

6013 052706

6014 052714
6015 052716
6016 052722

013760

012760

001412

000000

000042

013760

001406

000000

012737

000310

001530

004777

016037
042737
001020
005737
001366
004777
012737
010037

062737

126666

000024
137777

001142
001142

126640
040000
001136

000024

126606
053420

6019
6020 052732

012705

000021

016037

000040

001142

013737

001142

001174

042737
022737
001414

171777
006000

001174
001174

042737
012437
053737
023737
001011

150000
001140
001442
001140

012760

141401

6031
6032 052770
6033 052776
6034 053002
6035 053010
6036 053016
6037 053020
6038 053020

MOV

308

;LOAD RMOF
*GO SET OFFSET MODE

*BRANCH TO 20% IF NO ERROR

160%

RMWCO,RMWC
(RO)

RMBAO.RMBA(RO)

#0.RMER2 (RO)

RMCS10,RMCS1 (RO)

JWAIT FOR RUN AND GO TQ SET

;LOAD RMWC

-LOAD RMBA

408
:

;LOAD RMMR1

*LOAD RMER2

;LOAD RMCS1

MOV

#200. ,WATCH

MOV
BIC
BNE
TST
BNE
JSR
MOV
MOV

RMMR1(RO) , SBDDAT
:STORE RMMR1 AT $8DDAT
#*CRG, SBDDAT
508
WATCH
408
PC,aSTOP
:STOP THE CLOCK
#RG,SGDDAT
RO, $8DADR

JSR

PC,aclock

ADD

#RMMR1
, $BDADR

JSR
MOV

PC,aSTOP
#2008 R4

EMT
JMP

50%:

;SET WATCHDOG TIMER VALUE

*START THE CLOCK

275
1608

:STOP THE CLOCK
‘R4 = TABLE POINTER

;STEP SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS)
MOV
#17. RS
;RS = CLOCK COUNT

6023

6030

MOV

001136

004777
012704

6027 052752
6028 052760
6029 052766

RMOF
O, RMOF (RO)
PC,SETOM

;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND
MOV
#DMD ! MUR ' MOC ! DBEN ,RMMR1 (RO)
MOV
#0,RMER1 (RO)
:LOAD RMER1

001140

052722
gg}; 052726

gggg

MOV

001530

053416

6024 052744

308:

000004

104275
000137

6021 052736
052736

12-123

:LOAD BUFFER ADDRESS AND WORD COUNT

013760

6000 052616

MOV
JSR
BR
EMT
JMP

053416

5994 052566

gggg 052574

11-APR-80 13:58:55 PAGE

SEQ 0212

5992

5993 052566

MACRO v03.01

608:

MOV

RMMR2 (RO) , $8DDAT

:STORE RMMR2 AT $8DDAT

:"t‘attt'tttttttttttttttttt*t*ttttfi*tttttttttt*tttttt'tttttitttttt

i
-

MOV

$BDDAT,$TMPO

BIC
cMP
BEQ

#~C<CC!CH>,$TMPO
:SAVE CC AND CH BITS
#CC'CH,$TMPO
:;ARE CC AND CH SET ?
65$
*YES, BRANCH TO NEW LOCATION

BIC
MOV
BIS
CMP
BNE

#RQA'RQB'TST, $8DDAT
(R4)+,$GDDAT
RMDCO. $GDDAT
;OR CYLINDER ADDRESS
$GDDAT, $8DDAT
70$
;BRANCH IF TAG BUS WRONG

MOV

#DMD 'MUR ' MOC . DBEN . DBCK , RMMR 1 (RO)

:IF CC AND CH ARE SET AT THE SAME TIME

:THE ECO TO THE CS BOARD IS IMPLEMENTED.

;:ttttttttttttttt*tttttttttttttittttttttttttttttttttttttttttttttt

001142
001140
001142
000024

65%:

:LOAD RMMRI

CZRMPAQ RMOS/3/2 DSKLS TST 1
T120

DATA COMMAND TESTS

6039 053026
6040 053034

60¢1

6042
o043
6044
6045
2829

053036

053040
053042
053046
053054
053056

6048
6049
6050 053060
6051 053060

gggg 053066

6054
6055 053074
6056 053100
057 053100

012760
005305

(3)

041401

MACRO v03.01

000024

MOV
DEC

001337

000407
010037
062737
104276
000557

BNE

001136
000040

012760

041001

012705

000045

016037

000040

012760

H
1
11-APR-80 13:58:55 PAGE 12-124

041401

001136

708:

BR
MoV
ADD
EMT
BR

SEQ 0213

#DMD 'MUR .MOC . DBEN , RMMR 1 (RO)
RS

;LOAD RMMR1

608

80$
RO, $8DADR
#RMMR?
, SBDADR
276
1608

000024

:DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT
:LOCATION 166
808:
MOV
#DMD 'MUR ' DBEN, RMMR1 (RO) ;LOAD RMMR1

001142

;STEP SEQUENCER TO END OF OFFSET AT LOCATION 174 (37 CLOCKS)
MOV
#37..RS
;RELOAD CLOCK COUNT
908:
MOV
RMMR2 (RO) , SBDDAT
:STORE RMMR2 AT $BDDAT

000024

6058

MOV

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

;LOAD RMMR1

.';i'ttfitt*ttt*fitfiittl’tt*'lil’titfit'fi*ttttt*tttt‘ti*t*i*ttttttt*ififiti

6059 053106

013737

001142

001i%

MOV

$BDDAT,$TMPO

6062
6063
6064
6065
6066
6067

062737
022737
001003
162704
000441

171777
006000

001174
001174

BIC
CMP
BNE
SUB
BR

#~C<CC!CH> , $TMPO
;SAVE C( AND CH BIiS
#CC!CH,$TMPO
;ARE CC AND CH SET ?
928
INO !
#2 R4
:ADJUST THE TABLE ADDRESS
1158
170 OTHER LOCATION

ggg?

6%8

053114
053122
053130
053132
053136
053140

6069
6070 053140
6071 053146
6072 053152
6073 053156
6074 053160
28;2 053164
6077

6078 053166
6079 053174

6080 053202

6081 053204
6082 053212
6083 053220
6085
6086 053222
6087 053222
283? 053226
6090
6091 053232
6092 053232
6093 053240

6094 053242

000002

928:

:IF

CC AND CH ARE SET AT SAME

TIME

:THE ECO TO THE CS BOARD IS IMPLEMENTED.

""ittttttt*l’tfi*ttt*ti*"ttt'tttttitt*fittt***l’it*tt*tttttttfittfitttt

042737
011437
032714
001425
032714
001416

150000
001140

001142

002000

004000

052737
032737

000010
000200

001140
001440

042737
052737
000404

000010
000004

001140
001140

001406

113703
050337

023737
007013

BIC
MOV
BIT
BEQ
BIT
BEQ

;CONTROL TAG SHOULD BE ON-SETUP EXPECTED OFFSET

BIS
BIT

#3803, $GDDAT ~
#OF
D, RMOF O

;ASSUME OFD IS NOT SET

BIC
BIS
BR

#B8B03,$GDDAT
#8802
. $GDDAT
1108

;RESET BUS BIT 3 - DIRECTION IS REV

BEQ

95$:

95%

;HEADER TAG SHOULD BE ON - SETUP EXPECTED TRACK ADDRESS
1008:
MOVB
RMDAO+1,R3
;GET TRACK
BIS
R3.$GDDAT

001415
001140

001140

#RQA'RQB' TST,$BDDAT
(R4)
, $GDDAT
#CH, (R4)
110$
;BRANCH IF CONTROL/HEADER NOT ON
#CC, (RG)
100$
;BRANCH IF HEADER TAG

001142

; COMPARE EXPECTID AND RECEIVED TAG BUS DATA
110s:
CMP
$GDDAT
, $BDDAT
BNE
1208

115%:

CZRMPAOQ RMOS/3/2 DSKLS TST 1
1120
DATA COMMAND TESTS (3)

053242

6095 053250

6096 053256
6097 053262
6098 053264
6099 053266
6100 053270
6101 053274
6102 053302

6103 053304
04

012760

062704
005305
001205
000407
010037
062737
104275

141401

MACRO v03.01

000024

041401

000024

001136
000040

001136

000002

6108 053306
g}?g 053314
6111

6112 053322
6113 053326
6114 053326

1208:

ADD
DEC
BNE
BR
MOV
ADD
EMT

#2.R4
RS
90%
1308
RO,$BDADR
#RMMR?2, $BDADR
276

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

: SEQUENCER LOCATION 175

012760
012760

041001
041401

012705

000010

016037

000040

000024
000024

1308:

MoV
MoV

#DMD !MU'R ' DBEN,RMMR1(RO) ;LOAD RMMR1
#DMD !MUR .MOC ! DBEN,RMMR1 (R0O)
;LOAD RMMR1

;STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS)

001142

140%:
IR

Mov

#8..RS5

MoV

RMMRZ (RO) , $BDDAT

#RQA'!RQB!TST,$BDDAT
s THE FOLLOWING CODE WAS ADDED
270 ALLOW THE PROGRAM TO RUN WITH

¢OR WITHOUT ECO TO THE CS BOARD.

042737

171777

001142

006000

001140

6124
6125 053350
6126 053356
6127 053360
6128 053366
6129 053374
6130 053376
6131 053400
6132 053402
6133 053406
2}%? 053414

023737
001011
012760
012760
005305
001353
000406
010037
062737
104276

001140

001142

141401
041401

000024
000024

001136
000040

001136

g}gg 053416

000207

6140 053420

6141 053422
6142 053424
6143 053426
6144 053430
6145 053432
6146 053434
6147 053436
6148 053440
6149 053442

;STORE RMMRZ AT S$BDDAT

AR R AR AR AR AN A AR NN E RN R A AN RN RN ARE R AN KRR ARRAN RN ARANANNAR RN

BIC

012737

6138
6139 053420

;MOVE TABLE POINTER
;DECREMENT CLOCK COUNT

1608

2};3

6123

;LOAD RMMR1

. LOAD RMMR1

;DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT

6116
6117
6118

6122 053342

SEQ 0214

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

6115

6121 053334

MoV

MOV

000444

6105

6106
6107 053306

11-APR-80 13:58:55 PAGE 12-125

001777

001777
001777
001777
001777
001777
004000
004000
024000
024000

BIC

1508:

1608:

MoV

#4C<CC!CH>,SBDDAT

#CC!CH,SGDDAT

R AR AR AR AN

N AN

:SAVE CC AND (H BITS

;GET EXPECTED DATA

AT RN RN AR AR NAR RN ARANARR AN NARA NN AR RA

tMP
BNE
MoV
MOV
DEC
BNE
BR
MOV
ADD
EMT

$GDDAT ,$BDDAT
;GOOD DATA SAME AS LAST CMP
1508
;BRANCH IF ERROR
#DMD !MUR !MOC ! DBEN! DBCK ,RMMR | (RO)
;LOAD RMMR1
#DMD !MUR ! MOC ! DBEN,RMMR1 (RO)
;LOAD RMMR1
R5
1408
1608
RO, $BDADR
ARMMR?2, $BDADR
276

RTS

:TABLE OF 1AG BUS CONTROL AND DATA VALUES
2008
:
.WORD
1777
JLOCATION
WORD
1777
;LOCATION
.WORD
1777
;LOCATION
.WORD
1777
sLOCATION
LWORD
1777
;LOCATION
.WORD
1777
JLOCATION

.WORD
.WORD
.WORD
.WORD

(C
(C(
(CC!TAG
(CC!TAG

;LOCATION
JLOCATION
JLOCATION
JLOCATION

25
26
128
129
130
144
145
146
147

CZRMPAQ RMOS/3/2 DSKLS TST 1

1120

DATA COMMAND TESTS

6150 053444
6151 053446
6152 053450
6153 053452
6154 053454
6155 053456
6156 053460
6157 053462

6158
6159
6160
6161
€162
6163

053464
053466
053470
053472
053474
053476

6165
6166
6167
6168
6169
6170
6171
6172

053502
053504
053506
053510
053512
053514
053516
053520

6164 053500

6173 053522
6174 053524
6175 053526
6176 053530
6177 053532
6178 053534
6179 053536
6180 053540
6181 053542
6182 053544
6183 053546
6184 053550

6185 053552

6186 053554

6187 053556
6188 053560

6189 053562

6190 053564

6191
6192
6193
6194
g}gg

053566
053570
053572
053574
053576

6197 053600

6198

(3)

MACRO Vv03.01

024000
024000
024000
024000
004000
004000
001777
002000

J
1
11-APR-80 13:58:55 PAGE 12-126
.WORD
.WORD
.WORD

CC!TAG
CC!TAG
CC!TAG

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

((
1777
CH
CH
CH!TAG
CH!TAG
CH!TAG
CH!TAG
CH!TAG
CH!TAG
CH
(CH
1777
1777
1777

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

1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777

.WORD
.WORD

002000
022000
022000
022000
022000
022000

022000

002000
002000
001777
001777
001777
001777
001777
001777

.WORD

001777
001777
001777

001777
001777
001777
001777
001777
001777
001777
001777
001777
(01777
001777
001777
001777
006000
006000
026000
026000
026000
026000
026000

1777

.WORD

1777

.WORD
.WORD

1777
1777

.WORD
.WORD

.WORD

.WORD
WORD
.WORD
.WORD
.WORD

300%:

CC!TAG
CC

1777

CC!CH

CC!CH!TAG
CC!CH!TAG
CC!CH!TAG
CC!CH!TAG
CC!CH!TAG

SEQ 0215

;LOCATION
JLOCATION
JLOCATION
;LOCATION
;LOCATION
;LOCATION
sLOCATION
JLOCATION

;LOCATION
;LOCATION
;LOCATION
;LOCATION
sLOCATION
;LOCATION

148
149
150
151
152
153
154
156
157
158
159
160
161
162

;LOCATION 163

;LOCATION
;LOCATION
;LOCATION
sLOCATION
;LOCATION
;LOCATION
;LOCATION
;LOCATION

164
165
232
233
234
235
236
237

;LOCATION 238
;LOCATION 239
;LOCATION 240

;LOCATION 241
;LOCATION 242
;LOCATION 243
JLOCATION 244
;LOCATION 245
;LOCATION 246
.'OCATION 247
JLUCATION 248
sLOCATION 249
;LOCATION 250
;LOCATION 251
;LOCATION 252
;LOCATION 166
;LOCATION 169
sLOCATION 170
;LOCATION 171
;LOCATION 172
;LOCATION 173
;LOCATION 174
JLOCATION 175,ETC
JEND OF

TEST

‘

CZRMPAQ RM0S/3/2 DSKLS TST 1

END OF

SUB-PASS ROUTINE

MACRO v03.01

K
1
11-APR-80 13:58:55 PAGE 13

SEQ 0216

;

.SBTTL

;THIS IS TRE END OF SUB-PASS ROUTINE.

5
6
g

;SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
:TO TEST, EXIT IS MADE TO 'SEUP' ROUTINE. OTHERWISE, RETURN
;1S MADE TO 'READY' ROUTINE.

9
10
11
12
13

END OF SUB-PASS ROUTINE

;TERMINATE

053600
053602
053604
053610
053614

000004
000240
013700
062700
(10037

15 053622
16 053624
17 053630

001402
000137
012737

14 053620

005710

$EOSP:

THE OPERATION OF

THE

THIS ROUTINE IS USED TO

CURRENT DEVICE UNDER

TEST AND

001462
000002
001462

SCOPE
NOP
MOV
ADD
MOV

TSTQUE ,RO
#2 RO
RO, TSTQUE

007152
001464

1$:

BEQ
JMP
MoV

1%
BR IF NO
READY
:YES, JUMP TO READY
#TSTQUE+2, TSTQUE
:INITIALIZE POINTER TO FIRST DEVICE

.SBTTL

END OF PASS ROUTINE

001462

(RO)

:GET POINTER TO TSTQUE
;ADJUST POINTER TO NEXT DEVICE
:SAVE POINTER TO TSTQUE

SANY MORE DEVICES FOR TEST ?

sTEST QUE

TABLE

::ttt*tttttttttttttttttttttttttttt*t*tttttttttttttttttttitttttttt

;*INCREMENT THE PASS NUMBER (SPASS)

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

:*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
:*]F THERES A MONITOR GO TO IT
;*IF

053636
053636
053640

053644
053650
053654
053662
053664

053666

053670
053672
053674
053676
053702

000240
005037

005037
005237
042737
005327
000001

$EOP:
001116
001206
001230
100000

003063

012737
000001
053664
104401
000407

053704

001230

053726
053730

104405
104401

053736

054000
054000

013746

054004
054006
054012
054016

104405
104401
005037
013700

NOP
CLR

CLR
INC
°
BIC
DEC
$EOPCT: .WORD

648
:

::678:

001126
001217
001126
000042

66$:

STSTAM
STIMES
$PAS
#100000 $PASS
(PC)+
1

::ZERO THE TEST NUMBER
;;ZERO THE NUMBER OF [TERATIONS
:; INCREMENT THE PASS NUMBER
..DON T ALLOW A NEG. NUMBER
:LOOP?

$DOAGN

::YES

,65%
648

::TYPE ASCIZ STRING
:GET OVER THE ASCIZ

MoV

$PASS,-(SP)

TYPDS
TYPE

,67%

;:SAVE $PASS FOR TYPEOUT
::TYPE PASS NUMBER
;:GO TYPE--DECIMAL ASCII WITH SIGN
::TYPE ASCIZ STRING

MOV
$ENDCT: .WORD
SEOPCT
TYPE
BR

;:658:

013746

000421

001230

ISN'T JUMP TO READY

BGT

053722
053722

053734

THERE

.ASCIZ

(PC)+,3(PC)+
1

<12><15>/END PASS #/

B8R
.ASCIZ

66$

MOV

$ERTTL,-(SP)

TYPDS
TYPE
CLR
$GET42: MOV

:IRESTORE COUNTER

:GET OVER THE ASCIZ
TOTA. ERRORS SINCE LAST REPORT
/

;:SAVE SERTTL FOR TYPEOUT

;:TOTAL NUMBER OF ERRORS
LSCRLF
$ERTTL
a6l RO

;2GO TYPE-~DECIMAL ASCII WITH SIGN
;s TYPE CARRIAGE RETURN, LINE FEED
::CLEAR ERROR TOTAL
;.GET MONITOR ADDRESS

CZRMPAD RMOS5/3/2 DSKLS TST 1
END GfF PASS ROUTINE

054022
054026
054026
054030
054032
054034
054036
054036
054040
054042

MACRO v03.01

377

SEQ 0217

001405
000005
004710
000240
000240
000240

000137
007152
377

11-APR-80 13:58:55 PAGE 13-1

000

8EQ
RESET
$ENDAD: JSR
NOP
NOP
NOP
$D0OAGN:
JMP
$RTINAD: .WORD
S$ENULL: .?;gg

$DOAGN

PC., (RO)

a(PC)+
READY
-1,-1,0

+sBRANCH IF NO MONITOR
;sCLEAR THE WORLD
G0 TO MONITOR
;s SAVE ROOM
;:FOR
JsACTN

; JRETURN
. sNULL CHARACTER STRING

CZRMPAQ RM0OS/3/2 DSKLS TST 1

MACRO Vv03.01

NN 2 O V00 N ONN SN (NN —

SUBROUT INES

ERROR TYPEOUT ROUTINE

NARR A AR N AANAARRNARAAA

;*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:'REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:
.

’

‘w

LUNIT NUMBER,

.ERROR MESSAGE

TEST NUMBER,

“»PRINTED ON THE FIRST LINE:

ERROR NUMBER AND PROGRAM COUNTER ARE

IS ASSEMBLED,

**ONE OR MORE SUCCEEDING LINES;

FORMATTED AND PRINTED ON

d e

e
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
“*«ARE PRINTED AFTER THE ERROR MESSAGE.

d
)

WA = OO 00NV

N PO —t

SEQ 0218

SUBROUTINES

NRARA AR AR AR AR AR AN N AR AR AR

"SBTTL

054046
054046
054050
054056
054060

054064
054070
054074
054100
054102
054103

24
25 054104
26 054110
27 054114
28 054122
29 054126
30
31 054130
32 054136
33 054142
34
35 054144
36 054152
37 054156
38 054160
39 054164
2? 054166
42
43
44
45
46

11~-APR-80 13:58:55 PAGE 14

.SBTTL
S

—

054170
054174
054202
054206

05412
054214
054215

47 054216
48 054222
49 054230

104414

ERRTYP:

032777
001402
000137

020000

104401
104401

001217
054676
001234

013746

125076

054662

;TYPE

is:

104403

SAVREG

BIT
BEQ
JMP

#SW13,aSWR
1%
258

TYPE

L $CRLF

MOV

$UNIT,~(SP)

UNIT NUMBER,

TYPE

TYPOS

000026
177740
054745
000024

;TYPE

.BYTE
BYTE

*DRIVE

MOV

_ERTYOD

3
0

TYPE'

RMOS,

RMDT (RO

ERROR NUMBER,

AND PROGRAM COUNTER

;TYPE "UNTA"

::SAVE SUNIT FOR TYPEOUT
$:TYPE UNIT NUMBER
;GO TYPE==OCTAL ASCII

..rvps 3 DIGIT(S)
*SUPPRESS LEADING ZEROS

RMO3 OR RMO2 FOR UNIT UNDER TEST

,RO

;STORE RMDT AT RO

BIC

#177740,R0

CMP
BEQ

#24 R0
2

*IS DEVICE AN RMO3 ?
SYES I

MOV

054166

TEST NUMBER,

: INHIBIT TYPEOUTS??
‘NO!!
SYESi!

#SRMO3, $8

*SAVE DRIVE TYPE BITS AND

:GET ASCII DRIVE TYPE

012737
022700
001406

054740
000025

054166

MOV
cMP
BEQ

#SRMO2 , 38
#25,R0
2s

:SAVE ASCII DRIVE TYPE
*1S DEVICE AN RMO2 ?
SYES 1!

012737
022700
001004

054752
000027

054166
28:

MOV
CMP
BNE
TYPE

#SRMDS , 38
#27 RO
4
JERTYOS

;SAVE ASCII DRIVE TYPE
*1S DEVICE AN RMOS ?
‘NO !
STYPE ** =

3$:

LWORD

104401
104401
000000

054734

005037
013737

054666
001226
054704
054666

104401

013746

:TYPE

054666

TEST NUMBER,

CLR

MOV
TYPE

MOV

104403

003
000
005037
113737
001406

is:

TYPE

TYPOS

.BYTE

054670
001130

054670

BYTE
CLR
MOVB
BEQ

TYPE

ERROR NUMBER AND PROGRAM COUNTER

TSTN'B

STESTN, TSTNMB
,ERTYOI

TSTNMB,-(SP)

STYPE DRIVE

‘DRIVE TYPE MESAAGE IS STORED HERE

0
ERRAMB
SITEMB.ERRNMB
5¢

;LOAD TEST NUMBER FOR
sTYPE "TSTAH

::SAVE TSTNMB FOR TYPEOUT
::TYPE TEST NUMBER

;:G0 TYPE--OCTAL ASCII

S:TYPE 3 DIGIT(S)

: :SUPPRESS LEADING 2EROS
:{0OAD ERROR NUMBER FOR
- TYPEOUT
:SKIP IF NO ERROR CALLED

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR TYPEOUT ROUTINE

50 054232
51 054236

104401

013746

054242
054244
054245
054246
054252

013746

054256
054260
054261

104403
006
001

054262

005737
001575

003
000

104401

013709
006300
006300
006300
062700
011001

054324

001507

054326
0543
054332
054336
054342

012102
001505
010237

056344
054346
054352
054354
054360

054714
054670

TYPE

TYPOS

5%:

0547%3
001132

001217
054674
054675
054670

TYPE

LERTYO3
$ERRPC,~(SP)

:TYPE

7s:

054500
8%:

000015

054675

001217
054675
054500

ERRNMB,
RO

;:SAVE ERRNMB FOR TYPEOUT
2 TYPE ERROR NUMBER
*2G0 TYPE~-OCTAL ASCII
J:TYPE 3 DIGIT(S)
;. SUPPRESS LEADING ZEROS
;TYPE 'PC='"’

2 :SAVE SERRPC FOR TYPEOUT

;s TYPE PROGRAM COUNTER

9%:

054675

11%:

054675

12%:

RO
RO
RO

;RO POINTS TO FIRST OF

;FOUR ENTRIES
s TABLE

IN ERROR

#SERRTB-8.
,RO
(RO,
R

BEQ

16$

MOV
BEQ

(R1)+,R2
16%

;R2=ADDRESS OF MESSAGE STRING

CLR

BOTADR

BEQ
CMPS
BNE

14%
#CR,R3
9%

sCLEAR BOT ADDRESS
cEND OF STRING??
;YES!

BR
CMP8
BEQ

8s
#LF ,R3
8s

BNE
INCB

113
CHRCNT

THE ERROR ME SSAGE

MOvVB

CMP8B

10%:

CHRCNT

*YES<TYPE CRLF
;CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER

ADD
MOV

CLRB

000012

054672

MO\

MOV

054672

.SCRLF

BOTFLG

ASL
ASL
ASL

001526

054672
000100

JTYPE 'ERRN''

;GO TYPE--OCTAL ASCII

CLRB

F1 RB

054675
000040

97 054460
98 054464

TYPE
MOV

3
O

SEQ 0219

.BYTE
6
::TYPE 6 DIGIT(S)
1
.BYTE
sTYPE LEADING ZEROS
6gENERATES¢01NTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0
ERRNMB
:85 AN ERROR CALLED?
BEQ
25%

054670

054675
000007

.BYTE
.BYTE

LERTYO?

ERRNMB,
- (SP)

TYPQOS

000011

91
92

N I
11-APR-80 13:58:55 PAGE 14-1

MOV

104403

104401
105037
105037

054322

MACRO v03.01

BITB
BNE
BR
INCB
CMP8
BNE
MOV

R2,15%

(R2)+,R3

CHRCNT

#HT ,R3 #7,CHRCNT
108
12%
CHRCNT
#' _R3
12%
RZ ,BOTADR

;R1 POINTS TO ERROR MESSAGE
;TABLE
;BRANCH IF NO ERROR MESSAGE

¢BRANCH IF END OF MESSAGE
;LOAD ADDRESS OF STRING

fiSRRIAGE RETURN??

:YES-CLEAR CHAR COUNT
JGET NEXT CHARACTER
sLINE TEED??
sYES-GET NEXT CHARACTER
:QSB{ZONTAL TAB??

*ADJUST CHARACTER COUNT
s INCREMENT CHARACTER COUNT
:gg??f??

*SAVE ADDRESS OF SPACE

(MP8

#64. ,CHRCNT

‘58?.0' LINE??

MOV

BOTADR
R4

;GET ADDRESS OF LAST SPACE
;BRANCH IF SPACE DETECTED

BHIS
BNE

TYPE

CLRB
MOv
BR

13$

. SCRLF

CHRCNT
158,R2
es

s TYPE

CRLF

sCLEAR CHARACTER (OUNT
JSET UP R2 FOR TELTING

99 054466

00 054470

1 056476

2 054500
3 054502
054506

054510
054514
054520
054524
054530

105044
112737
104401
000000
105737

001707
104401
105037
105037

013702
01023
112742
105722

177777

054674

-k

~
N

N
&~

b e

1044601
016002

SSRRS

PRLRR

D
b cnd

054674

13%:
14%:

CLRB
MovB
TYPE

15%:

. WORD

1STB

8tQ

TYPE

CLRB
CLRB
MOV
MOV
mMovB
TSTB

B8R

-—

016003
012137
001433

000002
001217
000004
000006
054576

16%:

17¢:

=(R4)
#-1,BOTFLG

JREPLACE SPACE
;SET BOT FLAG
;TYPE ERROR MESSAGE STRING

BOTFLG
73

JAS STRING TRUNCATED??
JNO!!

.SCRLF

BOTFLG
CHRCNT
BOTADR,R2
R2,15%

#' -(R2)
(R2)+

sSTRING ADDRESS GOES HERE

:YES=TYPE CRLF

;CLEAR
sCLEs..
sSETUP
JSETUP

BOT FLAG
CHARACTER C"INT
R2 FOR TESTINC
158 FOR TYPING

JRESTORE
JRESTORE

SPACE
R?2

;TYPE REST OF

STRING

1044601

005702
001767
012204
012305

18%:

001217

10%:

20%:

b o

(=]

b o

104402

000402
013446
1046406

104401

1044601

000742
104415

000207

054675

000000
000000
000
000

4«(RO) ,R2
6(R0O) ,R3

;R2 POINTS TO DATA ADDRESS TABLE
JR3 POINTS TO FORMAT TABLE

25%

;BRANCH |F END OF HEADERS

TYPE

. WORD

BEQ
MOV
MOV

TST8

(R1)+,19%

0
LSCRLF

R
18%
(R2)+ R4
(R3)+,RS
(RS)+

223
21s
a8(R4) ¢+, -(SP)

21s:

B8R
MOV

@(R4)
¢+, ~(SP)

22%:

MOV

23%:

TST
8ta

054731
001217

SCRLF

BM]
8tQ
MOV

TYPLS

000405
01344¢

000760

MOV
MCv
MCV

TST

1046405

143 054644

JR1 POINTS TO ERROR HEADER TABLE
;BRANCH [F NO HEADER

TYPE

001403
013446

005714
001403

2(R0O) ,R1
25%

TYPE

104401

000000

MOV
8tQ

8tQ

105725
1004 07

d e

7 054604

d o

SEQ 0220

001217
054674
054675
054672
054500
000040

D i
D el o

016001
001444

5 054576

b
—d

11-APR-80 13:58:55 PAGE 14-2

. TYPE ERROR HEADER AM. ERROR DATA

4 054574

2R
oW

MACRO v03.01

000677

o o

rd e e

d e

b d d —D

SRIEGF \NANIN
WA
-S
Ny
— SomIFAr
NN&)NNNNN
AN Z5BBIRAR jolele]

CZRMPAO RMOS/3/2 DSKLS TST 1
ERROR TYPEQUT ROUT INE

TYPO(

TYPBN
TYPE

248

25$ISTNMB:

ERRNMB:
BOTADR:
BOTFLG:
(HRONT-

TYPE

RE SREG
RTS
.

.
.
.

; (ASSUME NO DATA)

;PUT HEADER ADDRESS FOR

: (ASSUME END OF

TYPE

DATA)

.HEADER ADDRESS GOES HERE
;DATA W]TH
JNO!!
;R4 POINTS
;RS POINTS
;WHAT KIND

;BINARY
;OCTAL
;DECIMAL

HEADER??
TO DATA ADDRESS
TO FORMAT
OF DATA??

238

@(R4G)
e ,~-(SP)

(R4)

268
JERTYO4
208
LSCRLF
18%

.MORE

DATA??

JNO!!
JYES=TYPE 2 SPA(ES
JAND CONT INUE

cTYPE ONE BLANK [ INE
.BEFORE NEXT HEADER

0
0
0

JTEST NUMBER
ERROR NUMBER

;BEGINNING OF

(BOT

FLAG

TEXT ADDRESS

JCHARACTER COUNT

CIRMPAQ RMOS/3/2 DSKLS TSTM

ERROR TYPEOUT ROUT INE

156
157 054676
158 054704
159 054714

MACRO v03.01

054731

125
054
054
054
040

116
040
040
040
040

111
126
105
120
000

1646 054740
165 054745

122
122

115
115

060
060

160 056723

161

}g% 054734

166 054752
167

168

040

122

055

115

040

060

11-APR-80 13:58:55 PAGE

ERTY00:
ERTYQ1:
ERTYQ2:

.ASCIZ
.ASCIZ
.ASCIZ

@UN]IT#8
@, TEST#R
@. ERR#a

ERTYQ3:

,ASCIZ

ERTYOS:

.ASCIZ

@ - @

ERTYO4:

.ASCIZ

PC=

S$RMO2:
SRMO3:

.ASCIZ
_ASCIZ

aRMO2a
aRMO3a

S$RMOS:
.EVEN

.AS(C]Z

aRMOSa

14-3

SEQ 0221

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CLOCK

SUBROUT INES

MACRO v03.01 11-APR-80 13:58:55 PAGED 1%

SEQ 0222

;

.SBTTL

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

5 056760
6 054762

000240
013746

000004

8 054772

012737

055056

7 054766

013746

000006

18 055000

012737

000300

1
12 055006

005777

124474

16 055020

012737

055342

16
17
18
19

012777
013777
005077
000454

000300
001522
124446

13 055012

15 055026

055034
055042
055050
055054

20 055056
S; 055062

23
24 055064
25 055064
26 055072
27 055076
28 055104
29 055112

30 055120
31 055126
32 055134
33 055140
34 055142
gg 055146

37
38 055150
39 055150

(12737

012777

012716
000002

012737
005777
012737
012737
012777
012777
013777
005077
000422
012716
000002

055154
055162
055166
055174

005037
012737
005037
012737
005037

055206

012637

2; 055216

000207

40
41
42
43

2? 822582
46 055212

062766

012637

SIZCLK:

NOP
MOV

ERRVEC,=(SP)

s cPUSH ERRVEC ON STACK

MOV

#108 ,ERRVE(C

;LOAD 04 TRAP VECTORS

MOV

000004

000006

MOV
;SEE

ERRVEC+2,=(SP)

#PRO,ERRVEC+2

A KW11=-P CLOCK IS PRESENT = GO TO 108 IF NOT PRESENT
TST
aSLPCSR
;TEST FOR P CLOCK

001532

MOV

#PCLOCK,CLOCK

05530€¢

124456

MOV

#PCOUNT ,@SLPVEC ;LOAD P CLOCK INTERRUPT VECTOR

001534

124452
12445C

055064

055142
124420
055236
055350
055306
000300
001514
124354

108:

000004
001532
001534
124400
124374
124356

055150

001532
001514
001514
001522
001522

000002

MOV

000006

MOV
MOV
CLR
BR
MOV
RTI

308

MOV
(LR
MOV
CLR

ADD

MOV

000004

012777

53 055234
54
gz 055236

000403

177777

012777

000135

MOV

RTS

012777

000100

124262

124252
124252

;LOAD STOP ADDRESS

#PR6,ASLPVE(C+2
SLLVEC+2 @SLLVEC
aSLLVEC+?
30%

#15%, (SP)

;CLEAR L

CLOCK

INTERRUPT VE(CTOR

;DUMMY RT] ADDRESS
JRESTORE PRIORITY

IF L CLOCK IS PRESENT-GO TO 208 IF NOT PRESET
#208 ,ERRVEC
;CHANGE 04 TRAP VECTOR
aSLLCSR
sTEST FOR L CLOCK
MLCLOCK,CLOCK
;LOAD SUBROUTINt ADDRESS
#LSTOP,STOP
:LOAD STOP ADDRESS
#LCOUNT ,@SLLVEC ;LOAD L CLOCK INTERRUPT VECTOR
#PRE ,@SLLVE(C+2
SLPVEC+2,@SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR
ASLPVE(C+2
308
#25%, (SP)
;DUMMY RT] ADDRESS
JRESTORE PRIORITY

:NO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS
25%:
CLR
CLOCK
;CLEAR SURROUTINE ADDRESS

001520

000004

MOV
RTI

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

20$:

001512

MOV
MOV
CLR
BR

;LOAD SUBROUTINE ADDRESS

#PSTOP,STOP

N#SLPVEC+2,SLPVEC,;CLEAR P (CLOCK INTERRUPT VECTOR
SLPVEC+2
W#SLLVEC+2 SLLVEC;CLEAR L CLOCK INTERRUPT VE(CTOR
SLLVEC+?2

#2,4(SP)

PCLOCK: MOV

MOV

B8R

LCLOCK: MOV

s CHANGE RETURN ADDRESS

(SP)+ ,ERRVE(+2

(“3)+ ERRVE(

JROUTINES TO START THE

51 055220

;;PUSH ERRVE(C+2 ON STACK

055220

ég

52 055226

CLOCK SUBROUTINES

#-1

(CLOCK

a$LPCSB

#135,3SLPCSR
PLCLK

#100,33LLCSR

..POP STACK INTO ERRVE(+?2
;.POP STACK

INTO ERRVEC

(KW11-L OR KW11-P)

¢LOAD COUNT SET BUFFER

cLOAD CONTROL REGISTER
;GO TO COMMON CODE

;LOAD CONTROL REGISTER

(ZRMPAQ RMOS5/3/2 DSKLS ST 1
CLOCK SUBROUTINES

57 055244
58 055250

59
60
61
62
63

005037

001526

012605
010537
042705
022705

001524
177437
000300

012746
012746

000240
055304

104400

101005

000002

MACRO v03.01

E
2
11-APR-80 13:58:55 PAGE 15-1
SEQ 0223

PLCLK:

(LR
TRAP

MOV
MOV
81C

LMP
BHI

30s$:

000207

40%:

MOV
MOV
RT]
RTS

TIME

(SP)+ RS
RS, $PSW

#~CPR7 ,R5
#PR6,RS
4<0%
#PRS,~(SP)
#308,-(SP)

;CLEAR TIMER COUNT
;sPUSH OLD PSW AND PC ON STA(CK
;. SAVE THE PSW IN RS
;SAVE PRIORITY
JMASK X
:Lg'eRIORITY TOO HIGH??

;.PUT NEW PS ON STA(K
;.PUT NEW PC ON STACK
;.POP NEW PC AND PS

JROUTINES TO HANDLE CLOCK INTERRUPTS (KW11=L OR KW11-P)
PCOUNT
:

062737

000021

001526

012737
162737

177777
000021

001526

005037
000002

001530

103003

100002

001530

LCOUNT:

10%:

20%:

ADD
BCC
MOV
SuUB
8PL

CLR
RT]

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

20%

WATCH

JROUTINES TO STOP THE CLOCK
055342

055346

005077
000402

124140

055350

005077

124142

013746
012746
000002

001524
055366

055354
055354
055360
055364
055366
055366

000207

PSTOP:

JRETURN TO USER
(KW1l=L OP KW11-P)

PLSTP

;STOP P CLOCK
GO TO COMMON STOP CODE

(LR

ASLLCSR

JSTOP L CLOCK

MOV
MOV

#10%,-(SP)

$PSW,
- (SP)

J2PUT NEW PS ON STACK

RTS

PLSTP:

10%:

:CLEAR REMAINING TIME

aSLP(SR

(LR

BR
LSTOP:

;ADD 17MS TO ELAPSED TIME
;BRANCH IF NO OVERFLOW
JRESTORE MAXIMUM COUNT
;DECREMENT REMAINING TIME
;BRANCH IF POSITIVE

RTI

csPUT NEW PC ON STACK
::POP NEW PC AND PS

CZRMPAQ RMOS5/3/2 DSKLS TST 1

SET VOLUME VALID SUBROUTINE

MACRO v03.01

F
2
11-APR-90 13:58:55 PAGE 16

SEQ 0224

;

LSBTTL

;THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID,

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

JRETURNING WITH THE DRIVE

:%ETECTED.

CALL.
s
:
JCALL:
:
N

9
10
1;

13
14
15
16
17
18
19

SET VOLUME VALID SUBROUTINE

055370
055370
055374
055402
055410
055416
055424

004737
012760
012760
012760
012760
012760

20 055432
21 055440
22 055446
23 055450
24 055454
25 055462
26 055470

016037
042737
001020
010037
062737
012737
062716

28 055502
%g 055510

012737
000207

27 055474

112776

055614
000001
001001
000000
000000
000023

000012
177677

001136

SETVV:
000024
000024
000014
000042
000000

001142
001142

000012
000100
000002

001136
001140

000022

001174

000170

0C0000

IN DIAGNOSTIC MODE.TM THE

SUBROUTINE

IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE

JSR
BR
ERROR

PC,SETVV
2?

JSR
MOV
MOV
MOV
MOV
MOV

PC,CNTCLR
.GO CLEAR CONTROLLER
#DMD ,RMMR1(RO)
;LOAD RMMR1
#DMD ! MUR ,RMMR1 (RO)
;LOAD RMMR1
#0,RMER1(RO)
;LOAD RMER1
#0 ,RMERZ2 (R0O)
;LOAD RMER?
#PACACK !GO ,RMCS1(RO)
;LOAD RMCS1

JUMP TO SUBROUTINE
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

MOV
BIC
BNE
MOV
ADD
MOV
ADD

RMDS(R0O) ,$8DDAT
#*Cvv,$BDDAT
108
RO, $BDADR
#RMDS
, $BDADR
#VV,SGDDAT
#2,(SP)

sMOVE RETURN ADDRESS TO ERROR

MOV
RTS

#PACACK ,$TMPO
PC

JRETURN

MOVB

108:

STILL

#1720, a(SP)

;STORE RMDS AT $8DDAT

JBRANCH IF VOLUME VALID SET
;SETUP FOR ERROR MSG

;WRITE ERROR NUMBER

CIZRMPAQ RMOS/3/2 DSKLS TST 1

SET OFFSET MODE

SUBROUTINE

MACRO v03.01

G ¢
11-APR-80 13:58:55 PAGE 17

SEQ 0225

;

.SBTTL

;THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFrSET

sSUBROUTINE, WHICH WILL LEAVE DMD ON.

:MODE

6
g

;CALL:
;

};

20
21
22
23
24

SETS.

THE DRIVE

SHOULD BE

IN DIAGNOSTIC MODE WHEN CALLING THE

THE SUBROUTINE RETURNS TO THE

;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR,
;RETURNS TO THE SECOND WORD FOLLOWING THE CALL

9
10

13
14
15
16
17
18
19

SET OFFSET MODE SUBROUTINE

:
055512
055512
055520
055526
055534
055542
055550

012760
012760
012760
012760
016037
042737

055556
055560
05556€
055572
055600

001015
012737
010037
062737
062716

gg 055612

000207

gg 8%22?12.

112776

001001
000000
000000
000015
000012
177776

000024
000014
000042
000000
001142
001142

000001
001136
000012
000002

001140

000200

SETOM:

001136
000000

108

IN WHICH CASE

JSR
BR

PC,SETOM
??

MOV
MoV
MOV
MOV
MOV
8I¢

#DMD !MUR ,RMMR1 (RO)
:LOAD RMMR1
#0,RMER1 (RO)
;LOAD RMER]
#0,RMER2 (RO)
:LOAD RMER?2
#OFFSET !GO,RMCS1(RO)
;LOAD RMC(CS1
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#~C0OM, $8DDAT

ERROR

JUMP TO SUBROUT INE
RETURN HERE IF NO ERROR

RETURN HERC IF ERROR

BNE
MOV
MOV
ADD
ADD

108
#0M, SGDDAT
RO, $8DADR
#RMDS
, $BDADR
#2,(SP)

JBRANCH IF OFFSET ON

#200,3(SP)

JWRITE ERROR NUMKER

RTS

:RETURN TO USER

MOVB

;MOVE RETURN ADDRESS TO ERROR

CZRMPAQ RMOS/3/2 DSKLS TST 1

CLEAR CONTROLLER SUBROUTINE

MACRO v03.01

11-APR-80 13:58:55 PAGE 18

SEQ 0226

;

.SBTTL

3
g

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,
:éfiELDRIVES. THEN SELECTS THE DRIVE.

8 055614
055614
9 055616
10 055622

010046
013700
012760

12 055636

(12600

055630

}2 055640

117760

CNTCLR:
001276
000040
123626

055672
18 055672
19 055676
20 055700
2]
g% 055704

000010
000010

PC,CNTCLR

:CALL TO ROUTINE

MOV
MOV
MOV

RO, ~(SP)
$BASE ,RO
#CLR,RMCS2(RO)

;:PUSH RO ON STACK
*RO = UNIBUS BASE ADDRESS
:CLEAR MASSBUS

MOV

(SP) +,R0

::POP STACK INTO RO

RTS

.SBTTL
104401
000411

JSR

MOVB

000207

}2
17 055642
055642
055646

CLEAR CONTROLLER SUBROUTINE

055650

SHUT:

;:65%:

005737
001402

0000¢2

000137

053636

000137

004626

648

108:

@TSTQUE ,RMCS2 (RO}

:SELECT DEVICE UNDER TEST

*RETURN

SHUTDOWN SUBROUTINE
TYPE
BR

,658
648

;:TYPE ASCIZ STRING
S:GET OVER THE ASCIZ

TST
BEQ
JMP

awé 2
108

$EOP

JRUNNING CHAIN MODE OR ACT11
‘NO !

SYES = GO TO END OF PASS

JMP

START

;GO TO START

L_ASCIZ

<CRLF>QTEST WAS HALTED@<CRLF>

AUTO ACCEPT

CZRMPAO RMOS/3/2 DSKLS TST 1

SAVE AND RESTORE RO-RS ROUTINES
1

MACRO v03.01

[

11-APR-80 13:58:55 PAGE 19
SEQ 0227

.SBTTL
Al d

SAVE AND RESTORE RO-RS ROUTINES
il

:*SAVE RO-R5

IIT

s*CALL:

SAVREG
o
;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
. %

SaTOP===(+16)
;¥ $2-==(+18)

;* +4---RS
;% +6===R4

;* +8---R3

;Jx+10-~=R?2
Jx+12=-=<R1
;*+14~=<R0

055710
055710
055712
055714
055716
055720
055722
055724
055730
055734
055740
055744

055746
055746
055752
055756
055762
055766

055770
055772
055774
055776

056000
056002

010045
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

MOV
MOV
MOV

RO,-(SP)
R1,-(SP)
R2.-(SP)

J¢PUSH RO ON STACK
;;PUSH R1 ON STACK
;sPUSH R2 ON STACK

MOV

R4 ,-(SP)

;:PUSH R4 ON STACK

MOV

MOV
MOV
MOV
MOV
MOV

000022
000022
000022

000022

RTI

R3,-(SP)

;sPUSH R3 ON STACK

RS,=(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

::PUSH
;.SAVE
;.SAVE
;.SAVE
;.SAVE

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+ RS
(SP) + R4
(SP)+,R3
(SP)+,R¢
(SP)+,R1
(SP)+,RO

;cRESTORE PC OF CALL
;cRESTORE PS OF CALL
;cRESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
;.POP STACK INTO RS
;.POP STACK INTO R4
:.POP STACK INTO R3
;.POP STACK INTO R?
;.POP STACK INTO R1
;.POP STACK INTO RO

RS
PS
PC
PS
PC

ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

;*RESTORE RO-RS
s*CALL:
RESREG
o

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

.SBTTL

MOV
MOV
MOV
MGV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

BINARY TO ASCII AND TYPE ROUTINE

.’."t...tt"tfi.'t..tt'."'t"'ttt'l.n\tt"tt"'.t'ttt'it'tttfittttt

;*THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 16-BIT
s *BINARY=-ASCI1 NUMBER AND TYPE IT.

s*CALL:

056004
056006
056012

010146
016601
000261

000006

MOV

TYPBN

$TYPBN: MOV
MOV
SEC

NUMBER,~-(SP)

;<NUMBER TO BE TYPED

R1,-(SP)
6(SP) R

;. SAVE R1 ON THE STACK
;:GET THE INPUT NUMBER
;;SET "'C'" SO CAN KEEP TRACK OF

J.TYPE

THE NUMBER OF BITS

CZRMPAG RMOS5/3/2 DSKLS TST 1

BINARY TO ASCII

056014

(56022
056024
056026

056032

056036
056040
056042
056044
056052
056054
056056

AND TYPE ROUTINE

112737
006101
001406
105537
104401

000060

MACRO v03.01
056056

1%:

#'0,$BIN

;:SET CHARACTER TO AN ASCII 'O

BEQ
ADCB

2%
$3IN

; :DONE?
:NO-=SET THE CHARACTER EQUAL TO THIS BIT

TYPE

000004

000

cLe
8R
MOV
MOV

28:

$8IN:
.SBTTL

SEQ 0228

MOVB
ROL

056056
056056

000002

11-APR-80 13:58:55 PAGE 19-1

MOV
RTI

,$BIN

;:GET THIS BIT
::GO TYPE

18
(SP)+,R1
2(SP) .4 (SP)
(SP)+. (SP)

THIS BIT

:3CLEAR "'C'* SO CAN KEEP TRACK OF BITS
+:GO DO THE NEXT BIT
::POP THE STACK INTO R1
S:ADJUST THE STACK
; ;RETURN TO USER

.BYTE
0.0
*STORAGE FOR ASCII
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

CHAR.

AND TERMINATOR

.' :ttttttttittttiittttfifiti'tt'it*ttitt*tfit.'.t'ttt'tttttfit'.tttttt

**THIS ROUTINE

IS USED

TO CHANGE A 16-BIT BINARY NUMBER

TO A S-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
:'?EPtACED WITH SPACES.

*CALL:

056060
056060
056062
056066
056070
056072
056076
056102
056104
056106
056114
056116
056122
056126
056130
056134
056136
056140
056142
056144
056146
056150
056152
056154
056156
056160
056162
056170
056174
056200
056202
056204

$TYPDS:

MOV

TYPDS

MOV
MOV
MOV

NUM, - (SP)

::PUT
2260

RO,=(SP)
R1.~(SP)
R2.-(SP)

THE BINARY NUMBER ON THE
TO

THE

::PUSH RO ON STACK
2:PUSH R1 ON STACK
::PUSH R2 ON STACK

020200
000020

MOV
MOV
MOV
MOV

R3.-(SP)
RS,=(SP)
#2020C,~(SP)
20(SP) _RS

000055

NEG
MOVB

RS
#'-=,1(SP)

S:MAKE THE BINARY NUMBER POS.
$:MAKE THE ASCII NUMBER NEG.

BPL

000001

056274
000040

18:

2% :

056264

48 :

CLR

000001
000060
000040
000010

177777

68:

$:BR IF

INPUT

IS POS.

::2ERO THE CONSTANTS

INDEX

MOV

#S$DBLK,R3

$:SETUP THE OUTPUT POINTER

CLR

::CLEAR THE BCD NUMBER

MOVB
MOV

#' ,(R3)+

$DTBL (RO) ,R1

*3SET THE FIRST CHARACTER TO A BLANK
2:GET THE CONSTANT

SUB
BLT
égc

R1.RS
48
gg

“:FORM THIS BCD DIGIT
*:BR IF DONE
: - INCREASE THE BCD DIGIT BY 1

ADD
TST

R1.RS
R2

::ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0

1STB

(SP)

BNE
5%

BM]
ASLB
8CC
MOVB

73
(SP)
63
1(sp>

BIS

MOVB

Ré

JoFALL THROUGH IF O

$:STILL DOING LEADING 0'S?

-1(R3)

R2 (R3)¢

(RO) +

RO.#10

STACK

ROUTINE

S:BR IF YES
1:MSD?
S:BR IF NO
SIYES=-SET THE SIGN

$:MAKE THE BCD DIGIT ASCII
S:MAKE

IT A SPACE

NOT ALREADY A DIGIT

S:PUT THIS CHARACTER IN THE OUTPUT BUFFER

23 JUST INCREMENTING
*:CHECK THE

TABLE

INDEX

—_—

CZRMPADQ RMOS/3/2 DSKLS TST 1

MACRO v03.01

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

056210
056212
056214
056216
056220
056222
056224
056232
056234
056236
056240
056242
056244
056246

056252

056260
056262
056264
056266
05€270
056272
056274

002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
(12600
104401

016666

012616
000002
023420
001759
000144
000012

K 2
11-APR-80 13:58:55 PAGE 19-2

BLT
BGT

MOV

BR
TST8
BPL
mMov8
CLRB
MoV
MoV

8%:
177777

056274

006002

177776

MOV
MoV
MoV
TYPE

000004

MOV

$OTBL:

$DBLK:

.SBTTL

MOV
RTI
10000.
1000.
100.
10.
.BLKW

2%
8s
R5.R2
6%
(SP)+
9$
<1(SP) ,~2(R3)
(R3)
(SP)+,R5
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,R0O
$DBLK

2(SP),4(SP)
(SP)+,(SP)

A AN AR A AR A

s*THIS ROUTINE

;:G0 DO THE NEXT DIGIT
;.60 TO EXIT

ssGET THE LSD

;.60 CHANGE TO ASCII
;cWAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO
;;YES--SET THE SIGN FOR TYPING
;. SET THE TERMINATOR
;;POP STACK INTO RS
;:POP STACK INTO R3

;;POP
;.POP
:.POP
:NOW

STACK INTO R2
STACK INTO R1
STACK INTO RO
TYPE THE NUMBER

;sADJUST THE STACK

;;RETURN TO USER

BINARY TO OCTAL

RN R RN

SEQ 0229

(ASCII)

AR AR

AND TYPE

AT RN R AR R RN

A AN NN NN AN RN RARR RN AN

IS USED TO CHANGE A 16-BIT BINARY NUMBER

s*OCTAL (ASCII) NUMBER AND TYPE IT.

;*$TYPOS~=-ENTER HERE

s*CALL:
ox
MOV
¥
TYPOS

o
J®
o
:

.BYTE
BYTE

NARN N NS

TO A 6-DIGIT

TO SETUP SUPPRESS ZEROS AND NUMBER OF

NUM, - (SP)

N
M

DIGITS

TO TYPE

;sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
JiM=1 OR 0
;o 1=TYPE LEADING ZEROS
;. 0=SUPPRESS LEADING ZEROS

:«$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETEFS AS THE LAST

;*$TYPOS OR $TYPOC
JxCALL:

- %

MOv

TYPON

NUM, - (SP)

J:NUMBER TO BE TYPED

s CALL FOR TYPEOUT

:'%LZTCC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

M
M
056304
056310
056316
056322
056326
056330
056336
056344
050352
056354

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446

000000
000001
056531
000002

000001
000006
000005

056527

056527
056531
056526

MOV
TYPO(C

$TYPOS: MOV
MOVB
mMov8
ADD
B8R
S$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV

NUM, - (SP)

;;NUMBER TO BE TYPED
csCALL FOR TYPEOUT

a(SP),-(SP)
1(SP) ,$OF ILL
(SP)+,$OMODE+1
#2,(SP)
$STYPON
#,80FILL
#6,$0MODE +1
#5,80CNT
R3,-(SP)
R4 ,~(SP)

;:PICKUP THE MODE
csLOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
;sADJUST RETURN ADDRESS

;JsSET THE ZERO FILL SWITCH
J.SET FOR SIX(6) DIGITS
c;SET THE ITERATION COUNT
;SAVE R3
;:SAVE R4

BINARY TO OCTAL

(ASCII)

056356

010546
113704
005404
062704
110437
113704
016605

AND TYPE

MACRO v03.01

056531

000006
056530
056527
000012
1%:

2%:

3s:

056530
177770

A ¥

000060
000040
056524
056524
056526

5%:
7%:

6%:

000002

11-APR-80 13:58:55 PAGE 19-3

000004
8%:

MOV
MOVB
NEG
ADD
MOVB
MovB
MOV
CLR
ROL
BR

R5,=(SP)

;sSAVE RS
JsGET THE NUMBER OF DIGITS TO TYPE

#6,R4
R4, $OMODE

;;SUBTRACT IT FOR MAX. ALLOWED
22SAVE IT FOR USE
J2GET THE ZERO FIIL SWITCH
;+PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD

:2"005*1.R4

SOFILL
R4
12(SP) ,RS

s sROTATE MSB INTO ‘‘C''

.:60 DO MSB
:;FORM THIS OIGIT

ROL

ROL
ROL

MOV

ROL

DE(B
BPL
BIC
BNE
TST
BEQ
INC
8IS

$OMODE
78

81S

MOVB
TYPE
DECB
BG”
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI

.BYTE

.BYTE
_.BYTE
.BYTE
.WORD

J:GET LSRR OF THIS DIGIT

;oTYPE

THIS DIGIT?

;:BR IF NO
::GET RID OF JUNK
J:TEST FOR O
2 ;SUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0°'S
;JMAKE THIS DIGIT ASCII
. sMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
;:GO TYPE THIS DIGIT
. COUNT BY 1
;;BR IF MORE TO DO
;:BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
::G0O DO THE LAST DIGIT

RS
Ré
R3
STACK FOR RETURNING

(SP)+ RS
(SP)+ ,R4
(SP)+,R3
2(SP) ,4(SP)

:cRESTORE
:;RESTORE
;:RESTORE
::SET THE

2 sRETURN
;sSTORAGE FOR ASCII DIGIT
;- TERMINATOR FOR TYPE ROUTINE
2;0CTAL DIGIT COUNTER
;;ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

(SP)+,(SP)

$SOCNT:
$OFILL:
$OMODE:
.SBTTL

TYPE ROUTINE

NN AR R

SEQ 0230

OOOO0O

CZRMPAD RMOS/3/2 DSKLS TST 1

RN N AR AN NN R AN AR NN

N AR AN RN AN N RN

RA N AN AN NRRANRANCAN AR

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

c*THE ROUTINE WILL

;*NOTE1:
J*NOTE?:

INSERT A NUMBER OF

NULL

CHARACTERS AFTER A LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

J*NOTE3:
- %

SeCALL:

;*1) USING A TRAP INSTRUCTION
TYPE
.MESADR

I
. *0OR

M
o*

TYPE
Mt SADR

;JMESADR IS FIRST ADLRESS OF AN ASCIZ STRING

CZRMPAQ RMOS/3/2 DSKLS TST 1

TYPE

ROUTINE

056532
056536
056540
056542
056544

*Q5737
100008

MACRO v03.01

001173

M2
11-APR-B0 13:58:55 PAGE 19-4

$TYPE:

$TPFLG
1%

1%:

RO,=(SP)

#A;TENV.SENV

000100

001243

N#APTSPOOL
, SENVM :2SPOOL MESSAGE

a2(SP) ,RO

62%

RO,61$

001243

SC.SATYB

61%:

62%:

NHAPTCSUP, SENVM

2%:

(RO)+,-(SP)
3

603

000002

000011

¥
A

#HT, (SP)

;RETURN
;JBRANCH IF

#CRLF
, (SP)

;sBRANCH IF NOT <CRLF>

057062

013746

001170

105366

000001

$CHARCNT
2%

5%:
6%:

056744
001172

PC,STYPEC
$FILLC,(SP)+

$NULL ,-(SP)

7%:

056744
057062

DE(B
BLT
JSR
DE(B
BR

sHORIZONTAL

000040
056744
000007

8$:
057062

9%:

MovB
JSR

81718
BNE
TST

000724

122716

TO APT

;sNO,GO CHECK FOR CONSOLE
2 SETUP MESSAGE ADDRESS FOR APT
;s SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS
2 sAPT CONSOLE SUPPRESSED
;oYES,SKIP TYPE OUT
s sPUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;:IF TERMINATOR POP IT OFF THE STACK
::RESTORE RO
2 ;ADJUST RETURN PC

+
(SP)
(SP)+,R0
#2,(SP)

+
(SP)

105777

.;GET ADDRESS OF ASCIZ STRING
s sRUNNING IN APT MODE
2cNO,GO CHECK FOR APT CONSOLE

60%:
2s:

000200

056720
056724
056730
056736
056740
056742
056744
056744
056750
056752
056756
056762

:¢SAVE RO

001242

000040

056700
056704
056706
056712
056716

?
;:1S THERE A TERMINA!
J:BR IF YES
s cHALT HERE IF NO TERMINAL
s cLEAVE

000002
000001

056602
061672

056654
056660
056662
056666
056672
056674

SEQ 0231

122210
122204
177600
000023

$TYPEC:

B8R

TSTB

8PL
MOV
8IC
(MP8

1(SP)
63

PC.STYPEC

$CHARCNT
78

::POP

<HT>

<CR><LF> EQUIV

;oTYPE A CR AND LF

;o CLEAR CHARACTER COUNT
;cGET NEXT CHARACTER
.60 TYPE THIS CHARACTER
;oIS IT TIME FOR FILLER CHARS.?
;;IF NO GO GET NEXT CHAR.
;.GET # OF FILLER CHARS. NEEDED
J:AND THE NULL CHAR,
;.DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF O~ STACK
;GO TYPE A NULL
;<D0 NOT COUNT AS A COUNT
.:LOOP

TAB PROCESSOR

#' L (SP)
PC.STYPEC
#7 ,$CHARCNT

9%
(SP)+
’$

as$TKS
108
3$TKB,~(SP)

#177600. (SP)
#SXOFF
, (SP)

. sREPLACE TAB WITH SPACE
;. TYPE A SPACE

. ,BRANCH IF NOT AT
;:TAB STOP

. .POP SPACE OFF STACK
JsGET NEXT CHARACTER
::CHAR IN KYBD BUFFER?
;.BR IF NOT
;:GET CHAR
;.STRIP EXTRANEOUS BITS
. .WAS CHAR XOFF

CZRMPAQ RMOS5/3/2 DSKLS TST 1

TYPE

ROUTINE

056766
056770
056770
056774
056776
057002

MACRO v03.01

001012
105777

001366

101%:

122164

122160
177600
000021
102%:

116677

122766

10%:

122142

000002
000015

122134
000002

000012

;:BR IF*NOT

a$TKS
1018
a$TKB, (SP)

J:WAIT FOR CHAR

#SXON, (SP)

101$

scWAS IT XON?
J:BR IF NOT

(SP)+

JoFIX STACK

a$TPS
108

JJWAIT UNTIL PRINTER IS READY

;:GET (HAR

000002

J:STRIP IT

2(SP) ,as$TPB

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
JsBRAN(H IF NO
;:g§§;-CLEAR CHARACTER COUNT

#CR,2(SP)
1%
SCHARCNT

057062
1$:

CMP8

INCB
$CHARCNT
: . WORD
$TYPEX: RTS
.SBTTI
AR

SEQ 0232

1028

#177600, (SP)

005726
105777
100375

N 2
11-APR-80 13:58:55 PAGE 19-5

$TYPEX

WLF ,2(SP)
$TYPEX
(PC)+

;:1S CHARACTER A LINE FEED?
;sBRANCH IF YES
;s COUNT THE CHARACTER
;. CHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE
AR R A AN AN R A A AN RN

NN AN A RN AR AR

AN N ANTA R R

SeTH!S ROUTINE

CONTROLS THE LOOPING OF

;xSW14=1

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

SUBTESTS.

NANN SR NARSE

IT WILL

INCREMENT

J*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

Je3Wl 1=

;*SW09=1
: *SW08=1
. =CALL
SCOPE
o¥
057066

104410

$SCOPE:

057066
057070
057076

032777
00113

057100

000416

057102
057106
057114
057120
057124
057126
057130
057134
057136
057136
057144
057146

013746
012737
005737
012637
000500
022626
012637
000440

000004
057126
177060
000004

032777
001421
005046

000400

040000

122056

1$:

CKSWR
81T
BNE

;ANANRSTART OF

$XTSTR: BR

000004

5%:

000004
122010

MOV
MOV
TST
MOV
B8R

LOOP ON TEST IN SWR<7:0>

s SCOPE=]OI

#81T714 ,aSWR
$OVER

ngE

FOR

THE

XOR

@#ERRVEC,~(SP)
#5$ ¥ERRVEC

ar177060

(SP)+ ,3#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+ ,a#ERRVEC
7%

CMP
MOV
B8R
6S: ; AMNANEND OF CODE FOR THE
BIT
#81708,3SWR
BEQ
2%
=(SP)
CLR

JoTEST FOR CHANGE IN SOFT-SWR
;:;LO0OP ON PRESENT TEST?
JoYES IF SW14=1

TESTERMNAAN

¢:IF RUNNING ON THE °*XOR'' TESTER CHANGE
J:THIS INSTRUCTION TO A 'WNOP'' (NOP=240)

;:SAVE THE CONTENTS OF THE ERROR VECTOR
;:SET FOR TIMEOUT
;:TIME OUT ON XOR?
;s cRESTORE THE ERROR VECTOR
;G0 TO THE NEXT TEST
;sCLEAR THE STACK AFTER A TIME OuT
;;RESTORE

THE ERROR VECTOR

;.LO0P ON THE PRESENT TEST

XOR TESTERAZAMA

;.LOOP ON SPEC. TEST?
;:BR IF NO
;cCLEAR A TEMP. LOCATION

057400
001122

ASL
ADD
MOV

(SP) ,$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)
a(SP)+ SLPADR
$OVER
(SP)+
SERFLG

DEC

8S:
2%:

001117

BR
TST
1ST8

8s$

001131

001117

SERMAX, SERFLG

001000

121720

¥81T09,aSWR

001124

001122

001117
001206

A ¥

121666

001120

7%:

001120

001120
001206

121566

001726

001131

3%:

BIT
BNE
TST
BEQ
INC
P
BGE
18:
MOV
MOV
$SVLAD: INCB
MOV8
MOV
MOV
CLR
MOVB
$OVER:
MOV
MOV
RT]

SMXCNT: 10.
$SwOBTBL:

SLPERR, SLPADR
$OVER
SERFLG
STIMES
1%
#BIT11,aSWR
1%
$PASS
1%
$ICNT

STIMES,SICNT
$OVER

SEQ 0233

;.PICKUP THE DESIRED TEST NUMBER
;cBRANCH IF BAD TEST NUMBER [N SWR
;o CHECK THE NUMBER IN THE SWR

;sBRANCH [F TEST NUMBER IS OUT OF RANGE
. «UPDATE THE TEST NUMBER
. :BACKUP BY ONE
;:SCALE THE TEST NUMBER AS AN INDEX
;.FORM THE ADDRESS OF

TEST POINTER

;:SET LOOP ADDRESS TO DESIRED TES?T
;.00 LOOP ON THE TEST
;o CLEAN THE BAD TEST NUMBER OFF OF THE STACK
;:HAS AN ERROR OCCURRED?
:..BR ]F NO
;:MAX, ERRORS FOR THIS TEST OCCURRED?
..BR IF NO
;LOOP ON ERROR?

BR IF NO

;SET LOOP ADDRESS TO LAST SCOPE

;cJERO THE ERROR FLAG
;o CLEAR THE NUMBER OF ]TERATIONS "0 MAKE
JcESCAPE TO THE NEXT TESTY
;o INKRIBIT ITERATIONS?
::BR IF YES
;

IF FIRST PASS OF PROGRAM
INHIBIT JTERATIONS
INCREHENT ITERATION COUNT
;CHECK THE NUMBER OF ITERATIONS MADE

:;BR IF MORE JTERATION REQUIRED
JCREINITIALIZE THE ITERATION COUNTER
SMXCNT ,STIMES
;:SET NUMBER OF ITERATIONS TO DO
STSTNM
;o COUNT TEST NUMBERS
STSTNM, STESTN
J:SET TEST NUMBER IN APT MAILBOX
(SP) ,$LPADR
;:SAVE SCOPE LOOP ADDRESS
(SP) ,$LPtRR
.. SAVE ERROR LOOP ADDRESS
$ESCAPE
;. CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
ccONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM 0ISPLAY ; ;DISPLAY TEST NUMBER
$LPADR, (SP)
;cFUDGE RETURN ADDRESS
;. FIXES PS
;MAX. NUMBER OF ITERATIONS
#1,$ICNT

TST142
TST242

TST3e2

TST4+?2
TST542
1ST6+2
TST7+2
TST10+42
TST11+2
TST1242
TST13+2

g —¢

007310

MOV

112737
013777
013716
000002
000012

001116

A NIO)
= =~y
O~ MOOON—

011637
011637
005037

#120, (SP)

88§88888 ¥

105237
113737

057430
057432
05743

002024
012737
013737

aSWR, (SP)

CMP

BLT

N —
NN

057266
057270
057274
057276
057302
057310
057312
057320
057326
057332
057340
057344
057350
057354
057362
057370
057374
057376
057400
057400
057402
057404
057406
057410
057412
057414
057416
057420
057422
057424
057426

000445
105037
005037
000415
032777
001011
005737
001406
005237
023737

B 3
11-APR-80 13:58:55 PAGE 19-6
MOvB
8EQ

000120

057256

057260

101015

032777
001404
013737

122000

\Va)

057244
057246
057252

117716
001414
022716
002411
011637
005316
006316
062716
013637
000466
005726
105737
014621
123737

e
B
e e
N = =3 —d =2

057150
057754
057156
057162
057164
057179
057172
057174
057200
057204
057206
057210
057214
057216
057224
057226
057234
057236

— —
— —

>COPE HANDLER ROUT INE

MACRC VO3 .01

TST 1

[—IRHPfiO RMOS/3/2 DSKLS

;. STARTING ADDRESS
;:STARTING ADDRESS
;;STARTING ADDRESS
. :STARTING ADDRESS
:cSTARTING ADDRESS
;. STARTING ADDRESS
;. STARTING ADDRESS
;o STARTING ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF

;. STARTING
;:STARTING
;. STARTING
. STARTING
;. STARTING

OF
OF
OF
OF
OF

;. STARTING ADDRESS OF

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

;s STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

1
2
3
4
S
6
7
10

TEST
TEST
TEST
TEST
TEST

12
13
14
15
16

TEST

(ZRMPAQ RMOS5/3/2 DSKLS TST
SLOPE HANDLER ROUT INE

0576436
057440

057442
057444
057446
057450
057452
057454
057456
0576460
057462
057464
0576466
057470
057472
057474
057476
057500
057502
057504
057506
057,10
057512
057514
057516
057520
057522
057524
057526
057530
057532
057534
057536
057540
057542
057544
057546
057550
057552
057554
057556
057560
057562
057564
057566
057570
057572
057574
057576
057630
057602
057604
057606
057610
057612
057614
057616

015510
015774

016112
016240
016512
017012
017634
017530
020016
020332
020622
021340
(21652
022144
022466
023026
023502
023766
024259
(024652
025022
025402
026112
026406
027010
027244
027452
030304
030556
03C760
031172
031366
031546
031764
032132
032356
032472
032660
033110
033326
033554
034024
034232
034522
034750
035056
035202
035332
035464
(035616
036006
036210
036336
036542
036672
037066
(037264

MACRO v03.01

11-APR-80 13:58:55 PAGE

.WORD
.WORD
.WORD
LWORD
. WORD
.WORD
LWORD
WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WOn.
. WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
. WORD
LWORD
LWORD
. WORD
. WORD

TST20+2
TST21+2
TST22+2
TST23+2
TST24+2
TST25+¢2
TST26¢2
TST27+¢2
TST30+2
TST31+2
TST32+2
TST33+2
TST34+2
TST3S5+¢2
T5736+2
TST37+2
TST40+?2
TST41+2
TST4L2+2
TST43+2
TST44+2
TST4LS+?
TST4L6+2
TST47+42
TST50+2
TSTS51+¢2
TSTS52+2
TST53+2
TSTS4+?2
TST5542
TSTS56+2
TST57+2
TST60+2
TST61+2
TSTE2+2
TST63+2
1ST64+2
TST65+2
TST66+2
TST67+2
TST70+2
TST71+2
TST72+2
TST73+2
TST74+2
TST75+¢2
TST76+2
TST77+2
TST100¢2
TST101+2
TST102¢?2
TST103¢2
75710405
TST10S5e
TST106¢
TST107+
1ST110¢

19-7

;;STARTING ADDRESS OF TEST 20
;. STARTING ADDRESS OF TEST 21
J:STARTING ADDRESS OF TEST 22
;cSTARTING ADDRESS OF TEST 23
;cSTARTING ADDRESS OF TEST 24
;STARTING ADDRESS OF TEST 25
. ;STARTING ADDRESS OF TEST 26
;;STARTING ADDRESS OF TEST 27
;sSTARTING ADDRESS OF TEST 30
;. STARTING ADDRESS OF TEST %1
;. STARTING ADDRESS OF TEST 32
;;STARTING ADDRESS OF TEST 33
;. STARTING ADDRESS OF TEST 34
;. STARTING ADDRESS OF TEST 35
;sSTARTING ADDRESS OF TEST 36
;. STARTING ADDRESS OF TeST 37
. sSTARTING ADDRESS OF TEST 40
. :STARTING ADDRESS OF TEST 41
;. STARTING ADDRESS OF TEST &2
;:STARTING ADDRESS OF TEST 43
;:STARTING ADDRESS OF TEST &4
;. STARTING ADDRESS OF TEST 45
JsSTARTING ADDRESS OF TEST 46
.. STARTING ADDRESS OF TEST 47
;. STARTING ADDRESS OF TEST SO
;;STARTING ADDRESS OF TEST S1
;. STARTING ADDRESS Of TEST 52
::STARTING ADDRESS OF TEST S3
;STARTING ADDRESS OF TEST 54
;.STARTING ADDRESS OF TEST S5
;;STARTING ADDRESS OF TEST S6
;. STARTING ADDRESS OF TEST 57
;. STARTING ADDRESS OF TEST 60
;. STARTING ADDRESS OF TEST 61
J:STARTING ADDRESS OF TEST 62
;:STARTING ADDRESS OF TEST 63
;;STARTING ADDRESS OF TEST 64
;. STARTING ADDRESS OF TEST 65
;. STARTING ADDRESS OF TEST 66
;. STARTING ADDRESS Of TEST 67
;:STARTING ADDRESS OF TEST 70
;;STARTING ADDRESS OF TEST 71
;;STARTING ADDRESS OF TEST 72
;:STARTING ADDRESS OF TEST 73
;STARTING ADDRESS OF TEST 74
;;STARTING ADDRESS OF TEST 7S
;sSTARTING ADDRESS OF TEST 76
;cSTARTING ADDRESS OF TEST 77
;:STARTING ADDRESS OF TEST
JoSTARTING ADDRESS OF TEST
;:STARTING ADDRESS OF TEST
;:STARTING ADDRESS OF TEST
;sSTARTING ADDRESS OF TEST
;STARTING ADDRESS OF TEST
;STARTING ADDRESS OF TEST
*;STARTING ADDRESS OF TEST
J:STARTING ADDRESS OF TEST

SEQ 0234

100
101
102
103
104
105
106
107
110

CZRMPAD RMOS/3/2 DSKLS ST 1

SCOPE HANDLER ROUTINE

057620

037542

057626
057630
05763¢
05763«
057636

052374

11-APR-80 13:58:55 PAGE

19-8

SEQ 0235
LWORD
TST11142
.WORD
TST112¢2
LWORD
TST11342
WORD
TST11442
.WORD
TST115+42
WURD
TST116+2
WORD
TST117+42
. WOR WORD
TST120+2
ERROR HANDLER ROUTINE

.SBTTL
R

AAAAL AR

ARl

;. STARTING ADDRESS
;;STARVING ADDRESS
;:STARTING ADDRESS
;o STARTING ADDRESS
;STARTING ADDRESS
;cSTARTING ADDRESS
;s STARTING ADDRESS
;. STARTING ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

111
112
113
114
115
116
117
120

R332

.*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
. *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO ERRTYP ON ERROR

;*THE

SWITCH OPTIONS PROVIDED BY
HALT ON ERROR

;*SW15=1
;*SW13=1
;*Sw10=1

s=CALL
o

001116
002000
001212
001126
001132
000002

7%:
—

001775
013777
032777
001402
104401
005237
011637

001117
b

105237

$ERROR:

—

UG« 1V

300
270
1%:

162737
117737
032777
001004
004737
104401

054046
0C1217

122737

000001

001242

001130
061702

057760

121216

020000

001132
001130
121230

218:

22%:
2%:

121164
104410

032777
001402
013716
005737
001402
013716

001000

001124
001210
001210

20%:

121150

3s:
A ¥

5¢:

THIS ROUTINE ARE:

INHIBIT ERROR TYPEQUTS

BELL ON ERROR
LOOP ON ERROR

s *SW09=1

nono

057622
057624

MACRO v03.01

ERROR

CKSWR
INCB
BEQ
MOV

$ERFLG
;.SET THE ERROR FLAG
’$
;:DON'T LET THE FLAG GO TO ZERO
STSTNM,IDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

: ;ERROR=EMT AND N=ERROR

;o TEST FOR CHANGE

BIT
BEQ

#81T710,aSwR

INC
MOV
SuB
MOVB
BIT
BNE
JSR
TYPE

SERTTL
(SP) ,$ERRPC

TYPE

CMPB
BNE
MOVB
JSR

.BYTE

B8R
TST

8PL
HALT
(KSWR

BIT

BEQ
MOV
TST
BEQ
MOV

[TEM NUMBER

L SBELL

#2,$ERRPC

a$ERRPC,SITEMB
#8IT13,aSWR

208

PC,ERRTYP

.SCRLF

NAPTE
, SENV
NV

2%
$ITEMB,21%
8C,$ATY4

0
22%

aSwR

#81709,aSwR

43
$LPERR, (SP)

$ESCAPE
b3 ]

$ESCAPE, (SP)

IN SOFT-SWR

;.BELL ON ERROR?
;:NO - SKIP
s sRING BELL
;o COUNT THE NUMBER OF ERRORS
;.GET ADDRESS OF ERROR INSTRUCTION

. :STRIP AND SAVE

THE ERROR

;:SKIP TYPEOUT IF SET

]TEM CODE

. sSKIP TYPEOUTS

;.60 TO USER ERROR ROUTINE

. -RUNNING TN APT MODE
:sNO,SKIP AFT FRROR REPORT
;oSET ITEM NUMBCR AS ERROR NUMBER
:;REPORT FATAL ERROR TO APT

;.APT ERROR LOOP
;:HALT ON ERROR
;:SKIP IF CONTINUE
;JcHALT ON ERROR!
;o TEST FOR CHANGE IN SOFT-SWR
;.LOOP ON ERROR SWITCH SET?
;:BR IF NO
;.FUDGE RETURN FOR LOOPING
;. (HECK FOR AN ESCAPE ADDRESS

..BR IF NONE

;.FUDGE RETURN ADDRESS FOR ESCAPE

CZRMPAQ RMOS/3/2 DSKLS ST 1

ERROR HANDLER ROUTINE
«,

060024
060032

060034
060036
060036

022737
001001
000000

054026

MACRO v03.01

11-APR-80 13:58:55 PAGE

(MP

000042

BNE

HALT

6%:

000002

LSBTTL

19-9

#SENDAD ,a#6?2

SEQ 0236

JJACT=11 AUTO-ACCEPT?

;:BRANCH IF NO

JJYES

RTI

. sRETURN

TTY INPUT ROUTINE

'."'Ql"".".'.ttttfit"'""tt".!t.'.".'t'..'..!QQ'Q"."'Q".

.ENABL
LSB
$TK(NT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

000000
000000
000000

060047

;*TK

O
0
O
1

;;NUMBER OF ITEMS IN QUEUE
.« INPUT POINTER
2 ;0UTPUT POINTER

;. TTY KEYBOARD QUEUE

INITIALIZE ROUTINE

;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD [NPUT QUELE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

SaCALL:
o
o

060050
060054
060070

060076
060110
060116

005037
012737

013737
012737
012737
005777
012777
000207

060040
060046

060120
000200

060042
060044
000060
000062

000100

121042

121052

JSR
RE TURN

$TKINT: CLR

MOV
MOV
MOV

MOV
TST

MOV
RTS

PC.STKINT

$TKCNT

:;CLEAR COUNT OF ITEMS IN GWUEUE

#200,a#TKVEC+2
as$Tks

;;'BR"' LEVEL 4
;. CLEAR DONE FLAG

J;RETURN TO CALLER

#STKQSRT ,$TKQIN ;;MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
;,QUEUE INTO THE INPUT & OUTPUT POINTERS.
NSTKSRV ,@#TKVEC . INITIALIZE THE KEYBOARD VECTOR

#100,987TKS

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE

THE

JoEN/BLE TTY KEYBOARD INTERRUPT

TTY KEYBOARD

INTERRUPT

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;+]T IN THE QUEUE.
;*1F THE CHARA(CTER IS A °‘°CONTROL-C'' (*C) STKINT IS CALLED AND
:*UPON RETURN EXIT

117746
042716
021627
001007
104401

121036
177600
000003

$TKSRV: MOVB
BIC
cMP

061234

TYPE

BNE

IS MADE

@$TKB,-(SP)
#-C177 (SP)
(sP) . #$
13

LSCNTLC

TO THE °''CONTROL-C'' RESTART ADDRESS

::PICKUP THE CHARACTER
S:STRIP THE JUNK
SYIS IT A CONTROL C?
;;BRANCH [F NO
JoTYPE

A CONTROL-C

JSR

PC,.$TKINY

055642
000007

JMP

SHUT

BNE
(MP
BEQ

23
#SWREG, SWR
6%

(MP

#, STK(ONT

;. 1S THE QUEUE FULL?

TYPE

LSBELL

JJRING

TST

1%:

000176

001154

000001

060040

001212

(mP

BNE

(SP)+

(SP)

;o INIT THE KEYBOARD

(*(O)

060050

;o CLEAN UP STACK

;. CONTROL C RESTART

;oIS

IT A CONTROL

;;BRANCH IF NO
;.1S SOFT-SWR SELECTED?
;GO TO SWR (HANGE

;;BRANCH IF NO
THE

TTY BELL

(SHUT)

CZRMPAQ RMOS/3/2 DSKLS TST 1

TTY

INPUT

ROUTINE

060206
060210
060212
060216

MACRO v03.01

F
3
11-APR-80 13:58:55 PAGE 19-10
+
(SP)

000023

(SP) ,#23

328

120734

as$TKS

120726

+
(SP)
S TKS
31s
as$TkB,-(SP)

31%:

120722
177600
000021

000100

JsWAIT FOR A CHAR

c.LOOP UNTIL ITS THERE
;JcGET THE (CHARAC(CTER

#AC177.(SP)

JiMAKE IT 7-BIT ASCII
;oIS IT A CONTROL=-Q?
;;BRANCH IF NO
;oREENABLE TTY KEYBOARD INTERRUPTS

(SP)+, #21

31%

120700

#100,a8TKS

32%:

060040
000140

060042

060047

060046

060042

(SP) ,.m175

INC
cMP
BNE

48
#40, (SP)
(SP)+,a$TKQIN
$TKQIN
g;KOIN.ISTKQEND;G0 OFF THE END?
:BRANCH IFf

#$TKQSRT,$TKQIN ..RESET THE
TURN

MOV
RTI

RN A A A AN RN

:sCOUNT THIS CHARACTER
;2218 1T UPPER CASE?
. :BRANCH IF YES
;1S IT A SPECIAL CHAR?
;;BRANCH IF YES
JsMAKE 1T UPPER CASE
J;AND PUT IT IN QUEUE
;J:UPDATE THE POINTER

mMovB

5%:

;. JRETURN

$TKCNT
(gP),#14O

BLT
CMP
BGT
8I1C

000175
000040
177530
060042

;s CLEAN CHARACTER OFF OF STA(CK
JoEXIT
2218 IT A CONTROL=-S?
;;BRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
:sCLEAN CHAR OFF STACK

3%:

SEQ 0237

NN AN R AN

POINTER

AT NI AR AR AN AN AR R RAARN RN AN AN AN AN A

RN NN

NA RN

. *SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
FROM THE TRAP HANDLER, AND WILL
;*ROUTINE IS ENTERED
J*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
022737
001124
105777
100121
117746

042716
021627
001300

000176

001154

s%CALL WHEN OPERATING IN TTY
#SWREG,
SWR
cwe

$CKSWR:

INTERRUPT MODE.

158
asTKS
15%
a$TKB, ~(SP)

120606
120602
177600

#-C177 . (SP)
(SP) 47

000007

RN AN A AA AN AN AN

;1S THE SOFT-SWR SELECTED
J:EXIT IF NOT
;1S A CHAR WAITING?

IF NOT, EXIT
;2

22 YES

JJMAKE IT 7-BIT ASCII
;oIS IT A CONTROL=G?
JoIF NOT, PUT IT IN THE TTY QUEUE
s sAND EXIT

AN RN E N A AN RN NN ANRNRRN

AN ANRAANANRN RN RANANCERNEY

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERV]CE
;*ROUTINE

123727

001674
005726
004737
005077
112737
104401
104401

013746
104402

001150

000001

060050
120544

000001

061246
061253
000176

001151

OR FROM

THE

SOF TWARE

SWITCH REGISTER

TRAP CALL,

AS A RESULT

; *CONTROL~G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
MP8
SAUTOB, #1
¢sARE WE RUNNING IN AUTO-MODE?
8EQ
23
. sBRANCH [F YES
TST
(SP)+
;;CLEAR CONTROL-G OFf STACK
PC,STKINT
JSR
¢.FLUSH THE TTY INPUT QUEUE
(LR
a$7kKS
;:DISABLE TTY KEYBOARD INTERRUPTS
#1,$INTAG
MOVB
2.SET INTERRUPT MODE INDICATOR

$GTSWR:

TYPE
TYPE

MOV

TYPD(

LSCNTLG

. SMSWR
SWREG, =(5P)

;;ECHO THE CONTROL-G (*G)
2 TYPE CURRENT CONTENTS

;.60 TYPE~-~OCTAL ASCII(ALL DIGITS)

CZRMPAQ RMOS5/3/2 DSKLS TST 1
INPUT

ROUTINE

6 3
11-APR-80 13:58-55 PAGE 19-11

SEQ 0238

060440
060444
060446
060450
060454

104401

060456
060462

117746
042716

120500
177600

MovB
BIC

as$TKB,~(SP)

;.PI1CK UP CHAR

060466
060472
060474

021627
001015

000003

CMP
BNE

(SP) 43
9s

JoIS IT A ("NTROL-C?
. ;BRANCH ]F NOT
;JcYES, ECHO CONTROL=C (*C)
;. CLEAN UP STACK
;sREENABLE TTY KEYBOARD INTERRUPTS?
JJBRANCH IF NO
csALLOW TTY KEYBOARD INTERRUPTS
. sCONTROL~C RESTART

061264

19%:

120504

104401

062706
000737

021627
001022

005766

001403
016677

000100
055642

000001
120436

8%:

000025

9%:

061241
000006

20%:

000015

10%:

000004
000002
000006
001217
001151

000001

000100

120342

056744
000060

120364

TYFE

CLR
CLR

TSTB
BPL

000067
000060
000002

000002
177776

17%:

001216

18%:
.DSABL

SRR

;o
1F NOT

#°C177,(S5P)

(SP) ,#25
108

#6,SP
19%

CMP
BNE
TS7

ADD
TYPE

$INTAG, #1
8S

LSCNTLU

(SP) 415
16$
4(SP)
11%

2(SP) ,aSwR

#6,SP

. SCRLF

CMPS
BNE
MOV

$INTAG,.
M
158
#100,31TKS

JSR
P
BLY
cMP
BGT
BI(C
TST
BEQ

PC,STYPEC

RT]

ASL
ASL
ASL

(SP) ,#60
18%
(SP) 467
188

260, (SP)+

2{(SP)
17%

(SP)
(SP)
(SP)

INC
BIS
BR

2(SP)
=2(SP), (SP)

BR
LSB

208

TYPE

R ARE AR R AR

FOR NEW SWR

s CLEAR COUNTER

CMP
BNE

TYPE
ADD

csPROMPT

s THE NEW SWR

a$TKS

#100,3$TKS
SHUT

BEQ

15¢%:
16%:

- SMNEW

-(SP)
=(SP)

TYPE
ADD
CMPS
BNE
MOV
JMP

MOV
L X

021627
001005

061234
000006
001151

—d

104401

062706
123727
001003
012777
000137

7%:

—

TTY

MACRO v03.01

7%
$QUES

;s CHAR THERE?

TRY AGAIN

JcMAKE IT 7-BIT ASCII

1S IT A CONTROL-U?
;;BRANCH IF NOT
;:YES, ECHO CONTROL=-U (*U)
;. IGNORE PREVIOUS INPUT

:;LET'S TRY IT AGAIN

;018 IT A <CR>?
;JBRANCH IF NO
c2YES, IS IT THE FIRST (HAR?
;sBRANCH IF YES
. :SAVE NEW SWR
;cCLEAR UP STA(K
:2ECHO <CR> AND <LF>
cJRE-ENABLE TTY KBD INTERRUPTS?
;JBRANCH IF NOT
JJRE=-ENABLE TTY KBD INTERRUPTS

;JRETURN

;.ECHO CHAR
;.CHAR < (Q?
. sBRANCH IF YES

;;CHAR > 7?

;cBRANCH IF YES
;.STRIP=-0OFF ASCI!I
;2 IS THIS THE FIRST CHAR
..BRANCH IF YES
.: . SHIFT PRESENT
oe
CHAR OVER TO MAKE
ce
ROOM FOR NEW ONE.
;:KEEP COUNT OF CHAR
;oSET N NEW CHAR

;.GET THE NEXT ONE
J:TYPE

2<CRX<LF>

JSIMULATE CONTROL=U

NN NANI RN NN NN O RRARNRNOERNONRERSOERNOCOEOOOROCQRGRORERROTETY

CZRMPAQ RMOS/3/2 DSKLS TST 1

TTY

INPUT

ROUTINE

MACRO v03.01

v 3
11-APR-80 13:58:55 PAGE 19-12

:‘g:IS ROUTINE JILL INPUT #

s*CALL:

M
M
M

060700
060702
060710
060714

060716
060722

011646
016666
005066
005046

000004
000004

000002

012746
C00002

060724

060724
060730
060732

005737
001775
005337

060040

060744
060750
060756
060760
060766

005237
023727
001003
012737
000002

060044
060044

060047

060046

060044

060724

060736

117766

060040
177102

64%:
1%:

000004

;.GET A CHARACTER FROM THE QUEUE
;. CHARACTER IS ON THE STA(K

;:WITH PARITY BIT STRIPPED OFF

(SP),=(SP)
4(SP) ,2(SP)
4(SP)
-(SP)

J:PUSH DOWN THE PC AND
:2THE PS
;:;GET READY FOR A CHARA(TER
2JPUT NEW PS ON STACK

TST
BEQ
DEC

S$TKCNT
1%
STKCNT

ssWAIT ON A CHARACTER

INC
CMP
BNE
MOV
RT]

$TKQOUT
;JUPDATE THE POINTER
$TKQOUT ,#$TKQEND ;;DID IT GO OFF OF THE END?
23
;;BRANCH IF NO
#S$TKQSRT, STKOOUT ,.REStI THE POINTER
s ¢RETURN

MoV
RT]

MOVB

2s:

SINGLE CHARACTER FROM THE TTY

RDCHR
RETURN HERE

$RDCHR: MOV
MOV
CLR
CLR

SEQ 0239

#6468 ,~-(SP)

@$TKQOUT,4(SP)

JJPUT NEW PC ON STACK
. :POP NEW PC AND PS

; :DECREMENT THE COUNTER
;.GET ONE (HARACTER

. l’tfiti'ttt'ttt't'fittt't"t"l'*'i'fi.t'tittfi"t.ttt.t't"t'."t"

*E:IS ROUTINE WILL
;«CALL:

:'
o

INPUT A STRING FROM THE

RDLIN

RETURN HERE

060770
060772
060774
061000
061004
061006
061010
061012
061016
061020

061022
061026
061032
061036

061042
061044
061050

061052
061056
061062
061064
061066
061070
061076
061102
061104
061110

010346
005046
012703
022703
101456
104411
112613

122713

001022
005716
001007
112737
104401
012716

005303
020327
103434

111337
104401
000746
005716
001406
112737
104401
005016
122713
001003

000177

000134
061222
177777

10%:

061222

6% :

061224
061222
061222

5%:
000134
061222
000025

061222
7%:

JoINPUT A STRING FROM THE TTY
. ADDRESS OF

FIRST

CHARACTER WILL

;. TERMINATOR WILL BE A BYTE OF

$RDLIN: MOV
CLR
1%:
MOV
2%:
CMP
BLOS
RDCHR
MOVB

061224
061234

1TY

(MP8

BNE
TST
BNE
MOVB
TYPE
MOV

DEC
P
8LO

MOovB
TYPE
8R
TST
BEQ
MOVB
TYPE
(LR
(MPB
BNE

R3,~-(SP)
-(SP)
#STTYIN,R3
NSTTYIN+8.,R3
43
(SP)+,(R3)

#177.(R3)

5%
(SP)
63
#'\,9%
.98
#=-1,(SP)

R3
R3,#8ITYIN
A

(R3),9%
,9%
2%
(SP)
7%
#'\,9%
.9%
(SP)
#25,(R3)
8%

;:SAVE R3
;:CLEAR THE RUBOUT KEY
. ;GET ADDRESS
;:BUFFER FULL?
;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER

;218 IT A RUBOUT

J:BR IF NO
221S THIS THE FIRST RUBOUT?
J:BR IF NO
;:TYPE A BACK SLASH
;3SET THE RUBOUT KEY

. sBACKUP BY ONE
JcSTACK EMPTY?
;:BR IF YES

J2SETUP TO TYPEOUT THE DELETED CHAR.
2:G0 TYPE
;260 READ ANOTHER (CHAR.
..RLBOUT KEY SET?
;;BR IF NO
S:TYPE A BACK SLASH

.. CLEAR THE RUBOUT KEY
;o 1S CHARACTER A (TRL U?
;:BR IF NO

ALL 0'S

THE

STACK

CIRMPAD RMOS/3/2 DSKLS TST 1
INPUT ROUTINE

061112
061116

104401

000726
122713
00101
105013
104401

061241

TYPE

B8R

8%:

000022

CMPB
BNE
CLRB

001217
061224

TYPE
TYPE

001216

061222
061222
000015

3¢

TYPE

BR
MOVB
TYPE
(MPB
BNE
CLRB
TYPE
TST

MOV

000004
061224

MOV

000002
000004

MOV

MOV
RTI

b —d D
)
—

012

040

—_—0O00

040

(o JPVIV,
IV, IV, ]

98:
103
125
107

.BYTE

BYTE
.BLKB
ASCIZ
ASCIZ
ASCIZ
LASClZ

,$CNTLU

J:;TYPE A CONTROL 'V

#22,(R3)
3$
(R®)

;o 1S CHARACTER A '"“R'"TM

,SCRLF
STTYIN

|, SQUES

is
(R3).9%
9%
#15,(R3)+
2s
-1(R3)

;:BRANCH IF NO
;cCLEAR THE CHARACTER

J:TYPE A "'CR'' & "LF"
;o TYPE THE INPUT STRING
;.60 PICKUP ANOTHER CHACTER
J2TYPE A

;cCHECK FOR RETURN
;.LO0OP IF NOT RETURN
;s CLEAR RETURN (THE 15)

csTYPE A LINE FEED

(SP) ,<(SP)

L(SP) ,2(SP)

..ADJUST THE STACK AND PUT ADDRESS OF
s
FIRST ASCI] CHARACTER ON IT

; ;RETURN
::STORAGE FOR ASCII CHAR.

(SP) +,R3

H#STTYIN,4L(SP)

O
8.
/4C/<A15><1>
2>
/7*U/<15<1
/72G6/<155<12>

::CLEAN RUBOUT KEY FROM THE STACK
JRESTORE R3

; TERMINATOR

READ AN OCTAL NUMBER FROM THE

<15><12>/SWR =
/
NEW =

c*CALL:
bR

.. CONTROL '‘C*’

READ AN OCTAL

RDOCT
RETURN HERE

> %

: MOV
$RDOCT
MOV
MOV
MOV
MOV
1%:
MOV
(LR
CLR
2%:
MOv8

BEQ
ASL

ROL
ASL

(SP) ,~(SP)
4(SP) ,2(SP)
RO,=-(SP)
R1,-(SP)
R2,~(SP)

(SP)+ RO
R1
R2
(RO)+,-(SP)

R2
R1

TO TYPE

2 s CONTROL U”
;. CONTROL ‘G’

TTY

RA AR AR AN RN AN N AN NI AN AR AN RN RN AR R NN A AN N AN NN RANNR NN

IT TO BINARY.

THE

: SRESERVE 8 BYTES FOR TTY NPUT

LSBTTL

'2°

;+CLEAR THE BUFFER AND LOOP
. +ECHO THE CHARACTER

LASCIZ

:*CHANGE

000002

;GO START OVER

LSLF
(SP)+

'THIS ROUTINE WILL

000004

SEQ 0240

$TTYIN:
$CNTLC:
$CNTLU:
SCNTLG:
SMSWR:
SMNEW:

S AR

011646

11-APR-80 13:58:55 PAGE 19-13

177777
001220

BERIXKE

TTY

MACRO v03.01

(ASCII)

NUMBER FROM THE

RANR

TTY AND

;;READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STACK
;;HIGH ORDER BITS ARE I[N $HIOCT
;;PROVIDE

SPACE

;¢ INPUT NUMBER

FOR THE

;:PUSH RO ON STACK
;cPUSH R1 ON STACK
;;PUSH R2 ON STACK
;;READ AN ASCIZ LINE
;.GET ADDRESS OF 1ST CHARACTER
;e CLEAR DATA WORD
;.PICKUP THIS CHARACTER
;1F ZERO GET OUT

—

CZRMPAQ RMOS/3/2 DSKLS TST 1

READ AN OCTAL NUMBER FROM THE

061342
061344
061350
061352
061354
061356
061362
061366
061370
061372
061374
10 061376

006102
042716
062601
000764
005726
010166
010237
012602
012601
012600
000002
000000

MACRO v03.01

TTY

11-APR-80 13:58:55 PAGE
ROL

19-14

SEQ 0241

177770

BI(

#~C7,(SP)

c2STRIP THE ASCII JUNK

000012
061376

BR
TST
MOV
MOV

P 3
(SP)+
R1,12(SP)
R2,$HIOCT

;. LOOP
s CLEAN TERMINATOR FROM STACK
csSAVE THE RESULT

ADD

$HIOCT:
.SBTTL

(SP)+,R1

MOV
MOV
MOV
RTI

;;ADD

(SP)+ ,R2
(SP)+ ,R1
(SP)+ R0

IN THIS DIGIT

;2POP STACK INTO RZ2
J:POP STACK INTO R1
. +POP STACK INTO RO
. ;RETURN

.WORD
0
TRAP DECODER

+sHIGH ORDER BITS GO HEft

.'."Q'titfi'fi.ttfi"tfitttt't'"'t't.tttt'.ttttt.tt.ttfit'fitttflttttt"

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF
J*AND USE IT TO INDEX THROUGH THE TRAP TABLE

;*0F THE DESIRED ROUTINE.
:*GO TO THAT ROUTINE.
061400
061404
061410
061414
061416
061420
061424
061426

061430
061432
061436

016646
042716
12746

000002
000020
061416

010046
016600
005740

000002

006300
016000
000200

061452

$TRAP:

MOV
BIC

1$:

111000

011646
016666
000002

000004

T=-BIT TRAPS

RO -(SP)

TST
MOovB

-(R0O)
(RO) ,RO

: sBACKUP BY 2
;:GET RJGHT BYTE OF TRAP

;G0 TO ROUTINE

MOV

2(SP).RO

RO
$TRPAD (RO) RO

RTS

;:GET TRAP ADDRESS

;;POSITION FOR INDEXING
;2 INDEX TC TABLE

TO HANDLE THE "'GETPRI'' MACRO

$TRAP2: MOV
MOV
RT]

.SBTTL

;:SET THE NEW STATUS
;s SAVE RO

ASL
MOV

000002

;;ASSUME THE STATUS OF
;: THE CALLER--DO NOT ALLOW

RTI
MOV

;oTHIS IS USE
061440
061442
061450

THEN USING THE ADDRESS OBTAINED IT WILL

2(SP) ,-(SP)
#20, (SP)
#18,-(SP)

MOV

THE ‘‘TRAP'' INSTRUCTION
FOR THE STARTING ADDRESS

(SP) ,=(SP)
4(SP) ,2(SP)

:;MOVE
;;MOVE

THE PC DOWN
THE PSW DOWN

;;RESTORE

THE

PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE '‘TRAP'' INSTRUCTION.

THE ROUTINES CALLED

ROUT INE

061452
061454
061456
061460
061462
061464
061466

061440
056532
056330
056304
056344
056060
056004

06147

060426

061472

060336

$TRPAD: .WORD

$TYPE
$TYPOC
$STYPOS
STYPON
$TYPDS
STYPBN

$TRAP2

;;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+S(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING 2EROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

SGTSWR

;:CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

$CKSWR

;;CALL=CKSWR

TRAP+10(104410)

TEST FOR CHANGE

IN SOF T=5wP

CIRMPAOD RMOS/3/2 DSKLS TST 1

TRAP TABLE

061474
061476
061500
061502
061504

MACRO v03.01

K 3
11-APR-80 13:58:55 PAGE 19-15
SEQ 0242

060700
060770
061276
055710
055746

.SBTTL

$RDCHR
s CALL=RDCHR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
$RDL IN
s CALL=RDLIN
TRAP+12(104412) TTY TYPEIN STRING ROUTINE
$RDOCT
s CALL=RDOCT
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY
$SAVREG ;s CALL=SAVREG
TRAP+14(104414) SAVE RO-R5 ROUTINE
$RESREG ;s CALL=RESREG _ TRAP+15(104415) RESTORE RO-RS ROUTINE
POWER DOWN AND UP ROUTINES

cRARAAAARAANER I

061506
061514
061522
061524
061526
061530
061532
061534
061536
061542
061546
061554

061556

012737
012737

010046
10146
010246
010346
010446
010546
017746
010637
012737
000000
000776

061646
000340

117412
06165¢
061560

000024
000026

$PWRDN: MOV
MOV

012737
013706
005037

061646
061652
061652

000024

061652

1$:

CLR
INC
BNE
MOV
MOV
MOV
MOV
MOV

00024
000026
.WORD

$ILLUP: HALT
120

:sPUSH R3 ON STACK

: JHANG UP

:2PUSH R2 ON STACK

R4 ON STACK
RS ON STACK
aSWR ON STACK
SP
UP VECTOR

:POWER UP ROUTINE
SPWRUP: MUV
#SILLUP @#PWRVEC ;;SET FOR FAST DOWN
MOV
$SAVRG, SP
:GET SP

SPWRMG:

012

R2.=-(SP)
R3,~(SP)

AR AR AN AN AR A AN RN AR AR IR TR P AR AN AR AN AN A RN N AN AR NN NN N NN RNANCN

117344

061506
000340

#SILLUP ,QNPWRVEC .;SET FOR FAST UP
#3460, a4PWRVEC+2 ; :PRIO:7
RO, -(SP)
;sPUSH RO ON STACK
1,-(SP)
JcPUSH R1 ON STACK

R4 ,-(SP)
::PUSH
R5.-(SP)
;:PUSH
oSWR,-(SP)
,.PUSH
SP, SSAVR6
:SAVE
#SPURUP alPURvEC ..SET

061560
061566
061572
061576
061602
061604
061610
061612
061614
061616
061620
061622
061624
061632
061640
061642
061644
061646
061650
061652
061654

POUER DOWN ROU TINE

$SAVR6
$SAVR6
18
(SP)+,aSwR
(SP)+ RS
(SP) + R4
(SP)+,R3
(SP)+ R2
(SP)+ ,R1

JsWAIT LOOP FOR THE TTY
s WAIT FOR THE INC
2;0F
WORD
::POP STACK INTO @SWwR
:sPOP STACK INTO RS
:.POP STACK INTO R4
;.POP STACK INTO R3
:.POP STACK INTO R2
,.POP STACK INTO R1

(SP)+,RO
;;POP _STACK INTO RO
#SPWRDN, @#PWRVEC” :; SET UP THE POWER DOWN VECTOR
#3640, @4PWRVEC+Q ; :PRIO:7
JREPORT THE POWER FAILURE

$POVWER

::POWER FAIL MESSAGE POINTER

;. BEFOPE THE POWER DOWN WAS COMPLETE
J;PUT THE SP HERE

;s THE POWER UP SEQUENCE WAS STARTED

$SAVR6: 0
$POWER: .ASCIZ
<15><12>' POWER"*
.EVEN
.SBTTL
APT COMMUNICATIONS ROUTINE
CCRNRANRNRARNNND FARRANRAARANNRNNANE

000001
000001

062130
062126

$ATY1:
SATY3:

000001

062130

SATYL(:
SATY(:

mOVB
MOVB

RANNNNRANARNNRNNNN
RN NN ORRANNRD

#,$FFLG

;.10 REPORT FATAL ERROR

BR
MOV/B

#,SFFLG

;.70 ONLY REPORT FATAL ERROR

MOV
MOV

RO,-(SP)
R1,-(SP)

;+PUSH RO ON STACK
;.PUSH R1 ON STA(K

:lie?fLG

;70 TYPE A MESSAGE

—

CZRMPAOQ RMOS/3/2 DSKLS TST 1

APT

COMMUNICATIONS ROUTINE

061714
061720

105737

MACRO Vv03.01

11-APR-80 13:58:55 PAGE

SEQ 0243

062126
000001

001242

000100

001243

000004
000002
001222

000004

001236

1ST8
BEQ

18:

TST

2%:

7578

3s:

MOV

001236
001240
000004

000004

001222
062040
000004

056532
105737
001416

005737
001413

A ¥

5%:
10%:

062130

g?FLG

;s SHOULD TYPE A McSSAGE?
BR
scIF NOT:
NAPTENV, SENV
;s OPERATING UNDER APT?
38
BR
;.JF NOT:
#APTSP
, OOL
SENVM 2 cSHOULD SPOOL MESSAGES?
3$
B8R
J.1F NOT:
84 (SP) ,RO
;.GET MESSAGE ADDR.
#2,4(SP)
c:BUMP RETURN ADDR.
?QSGTYPE
;cSEE IF DONE W/ LAST XMISSION?
WAIT
JoIF NOT:
RO, SMSGAD
. .PUT ADDR IN MAILBOX
(RO)
+
;sFIND END OF MESSAGE
23
$MSGAD
RO
;.SUB START OF MESSAGE
RO
;.GET MESSAGE LNGTH IN WORDS
RO, SMSGLGT
s .PUT LENGTH IN MAILBOX
gg.SMSGTYPE
;. TELL APT TO TAKE MSG.
3 (SP) .48
#2.4(SP)

001222

$SFFLG

; :SHOULD REPORT FATAL ERROK?
c:1F NOT:
BR
. cRUNNING UNDER APT?
BR
;:1F NOT:
s 2FINISHED LAST MESSAGE?
WAIT
JIF NOT:
;:GET ERROR #
;.BUMP RETURN ADDR.

Sc.srvpe

12%
SMSGTYPE

001224
0C0004
:
128

APTSIZE

RTS

.BYTE
.BYTE
.BYTE
.EVEN

= 200

APTENV
= 007
APTSPOOL= 100
APTCSUP = 040

- -BUMP RETURN ADDRESS

;:PUSH 177776 ON STACK

123

118:

;;PUT MSG ADDR IN JSR L INKAGE

177776 ,~(SP)

»ENV

SMFLG:
SLFLG:
$FFLG:

.WORD

001242

000C04
000002
001222
062130
062127
062126

19-16

118
34 (SP) ,SFATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,R0O

0
0
0

*:CALL TYPE MACRO

s TELL APT TO TAKE ERROR
;oCLEAR FATAL FLAG
;. (LEAR LOG FLAG
. s CLEAR MESSAGE FLAG
. .POP STACK INTO R1
. :POP STACK INTO RO

: sRETURN

:;MESSG. FLAG
. +L0G FLAG
;cFATAL FLAG

CZRMPAOQ RMO5/3/2 DSKLS TST 1

CONSOLE MESSAGES

MACRO v03.01

;

3 062132

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

062134
062141
062145
062150
062201
062201
062234
062267
062305
U62347
062367
062423
062435
0624666
062467
062554

20 062631
21 062632
22 062653
23 062667
24 062675
25 062715
26 062732
28

075

000

101
040
054
200

114
077
040
126

114
N40
000
131

200
200
200
040
126
040
102
040
200
200
209

103
125
102
114
105
114
122
114

110
123
125
111
103
111
040
111

124
101

131
116

077
104
122
1
116
116

111
122
111
123
117
117

200
040
200
104
040
040
040

M 3
11-APR-80 13:58:55 PAGE 20

.SBTTL

CONSOLE MESSAGES

EQUALS:

.ASCIZ

ALL:
.ASCIZ
QUES:
.ASCIZ
COMMA:
_ASCIZ
MSHELP: .ASCIZ
UBUSQST:
.ASCIZ
CNSLOO: .ASCIZ
(C(NSLO1: _ASCIZ
CNSLO2: .ASCIZ
CNSLO3: .ASCIZ
CNSLO4: .ASCIZ
CNSLOS5: .ASCIZ
CNSLO6: .ASCIZ
CNSLO7: .ASCII
LASCII
.ASCIZ

CNSLO8:
CNSLO9:
MSDRVS:
MSGDRV:
LODEV:
NOTPRS:
NOTAVL:
.EVEN

.ASCI1
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

SEQ 0244

@a=a

Q@ALL@<CRLF>
@ ? a
a, @
<CRLF>@TYPE HELP TEXT

(Y/N)

? a

<CRLF>@CHANGE ADDRESSES (Y/N) ? @
<CRLF>QUSE SAME DEVICES (Y/N) ? @
<CRLF>aBUS ADDRESS a
@ LIMITS - LO= 160000, HI= 17XXXXa@<CRLF>
Q@VECTOR ADDRESS
@
@ LIMITS - LO= 0 HI= 1000@<CRLF><LF>
aBR LEVEL a
@ LIMITS - LO= 0, HI= 7a<CRLF><LF>
<CRLF>
<CRLF>QTYPE 'A’* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a®
<CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.a@

<CRLF>
@ ?ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
/ IS LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/

CZRMPAQ RMOS5/3/2 DSKLS TST 1
TABLE

NN =

FUNCTION CODE

.SBTTL

NN
d
b

FUNCTION CODE TABLE

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

NN = OO0

SEQ 0245

;THE FUNCTION CUDE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
;EACH FUNCTION CODE.
BIT USAGE IS AS FOLLOWS:

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

NOTE THAT ATA MAY BE SET WHEN A COMMAND [S EXECUTED EVEN THOUGH

.'IT IS NOT EXPECTED AS A RESULT OF THE COMMAND.

WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

)

=3 VOO NN

N 3
11-APR-80 13.58:%5 PAGE 21

MACRO v03.01

OP] - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

OP1

ERRORS ARE ENABLED DURING THE EXECUTION OF

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
THAT COMMAND.

WLE ~ BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE ERRORS ARr ENABLED DURING THE EXECUTION OF THAT COMMAND,
:THE WRITE

ERRORS WHICH ARE ENABLED ARE

"WLE'',

'WCF'',

‘DPE'",

'UPE".

JAE - 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
;COMMAND.

THE ERRORS EMNABLED BY

SMXF', CLBT'', AND 'AOE''.

THIS BIT ARE "‘TRE'',

"DLT'',

THE

"NEM'’,

BIT 08 IS NOT USED.
HCE - BIT 07 IS SET IN THE ENTRY tOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE FNABLED DURING THE EXECUTION OF THAT COMMAND.
:HEADER ERRORS INCLUDE 'MCRC'', "MCE'’, 'FER'\, AND 'BSE'".

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

:IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF
:COMMAND.
~THESE ERRORS INCLUDE ‘MDPE’’, 'DCK'', AND 'ECH''.

THAT

BIT 05 IS NOT USED.
BIT 04 IS NCT USED.

BIT 03 IS NOT USED.
BIT 02 IS NOT USED.
BIT 01

IS NOT USED.

ILF - 81T 00 IS SET IF
22 0 2752

57 062752

FNCDTB:

020000

.WORD

THE FUNCTION CODE

IS ILLEGAL.

sFUNCTION CODE

OPI

sNOP

TABLE

B 4

—

CZRM AQ RMOS/3/2 DSKLS TS~ 1

FUNCTION CODE

58 062756
59 062756

TABLE

MACRO v03.01
. WORD
.WORD
.WORD
.WORD
.WORD

11-APR-80 13:58:55 PAGE 21-1
OPI'ATA!ILF!IV(

ATA!O
! IVC!IAE
P]
ATA!OP1!1V(C

oPl
oPI!IYVC
OP]!ATA!IV(
OPI!ATA!IVC(

OP]
OPl
OP]!ATA!ILF!1VC
OPI!ATA!ILF!IVC
ATA!OPI!1VC!IAE

OPI!ATA'ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!]IvC
OPI!ATA!ILF!IVC

OPI!ATA!ILF!IV(C
OP]!ATA!ILF
! IVC
WCE!OPI!IVC!IAE
!AOE 'HCE 'ECH
WCE!OPI!1VC!IAE
!AOE !HCE'ECH

OP]!ATA'ILF!1VC
OPI!ATA!ILF!]IVC
OPI!IVC!WLE!IAF'"OF
'HCE
OPI!IVCIWLE!IA .AOE
OPI!ATA!ILF!]IV(
OPI!ATA!ILF!IVC
OPI!1VC!IAE!AOE !HCE!CCH
OP1!1VC!IAE!AQE
'HCE 'ECH
OPJ!ATA!ILF'!IV(C
OP] .ATA!ILF!]IVC

SEQ 0246

cILLEGAL FUNCTION ()
; SEEK

*RECAL IBRATE

*DRIVE CLEAR
¢RELEASE

JOFFSET
JRETURN TO CENTERLINE
JREAD IN PRESET

+PACK ACKNOWLEDGE

s ILLEGAL FUNCTION (24)
s ILLEGAL FUNCTION (26)
;SEARCH
JILLEGAL FUNCTION (32)
;s ILLEGAL FUNCTION (34)
. ILLEGAL FUNCTION (36)
s ILLEGAL FUNCTION (40)
s ILLEGAL FUNCTION (42)
s ILLEGAL FUNCT10ON (44)
s ILLEGAL FUNCTION (46)
;JWRITE CHECK DATA
JWRITE CHECK HEADER AND DATA
JILLEGAL FUNCTION (54)
JILLEGAL FUNCTION (56)
:WRITE DATA
;JWRITE HEADER AND DATA
cILLEGAL FUNCTION (64)
JILLEGAL FUNCTION (66)
;READ DATA
JREAD HEADER AND DATA
cILLEGAL FUNCTION (74)
JILLEGAL FUNCTION (76)

—t
b

—t D OO0 NN
BN
=

ATTENTION

(ATA)

TABLE

001
002
004
010
020

040
100

200

MACRO v03.01

&
¢
11-APR-80 13:58:55 PAGE 22

.SBTTL

ATTENTION

ATNTBL
:

.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

QW=
N —
PO o o o

CZRMPAO RMOS/3/2 DSKLS TST 1

(ATA)

TABLE

SEQ 0247

4
D
11-APR-80 13:58:55 PAGE 23

RGDTPT:
MIXED:

W
o
~
o

NN =2 OV
OOV

N) =P b b od o ced ed wd wd

:
ONES

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

57 063232

[o s Yo - ¥ X

ZEROS:

. wORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD

N =2 NN 2N —=JWN—=O
OO IAPINS
N ¢ o o
PO \NNYe ¢ o

063062

DATA PATTERN TABLE

N=20O00 =N~

.SBTTL

N WA
—

DATA PATTERN TABLE

MACRO v03.01

W
— Q00 & n =S NN 2O W=
PR
= O QO = \NPLNOON
NNWO
O SHSrPOoONOO0N0DE o
o~ONOOMNLON A& o o

(ZRMPA) RMOS/3/2 DSKLS TST 1

16386.

SEQ 0248

(ZRMPAQ RMOS/3/2 DSKLS TST

DATA PATTERN TABLE

58 063234
59 063236
60 063240
61 063242
62 063244
63 063246
64 063250
65 063252
66 063254
67 063256
68 063260
69 063262
70 063264

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

80 063310

177600

71
72
73
764
75
76
77
78
79

063266
063270
063272
063274
063276
063300
063302
063304
063306

81
82
83
84
85
86

063312
063314
063316
063320
063322
063324

87 063326
88 063330
89 063332

90 063334
91 063336
92 063340
93 063342
94 063344
95 063346
96 063350
97 063352
98 063354
99 063356
100 063360
101 063362
102 063364
103 063366
104 063370
105 063372
106 063374
107 063376
108 063400
109 063402
110 063404
111 063406
112 063410
113 063412
114 063414

MACRO v03.01

4
E
11-APR-80 13:58:55 PAGE 23-1

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

8192.
4096.
2048.
1024.
512.
256.
128.
64.
32.
16.
8.
4.
2.

000001
000000
177777
177776
177774
177779
177760
177740
177700

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

1.
0.
65535.
65534.
65532.
65528.
65520.
65504.
65472.

177400
177000
176000
174000
170000
160000

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

65280.
6502¢4.
64512.
63488.
61440.
57344.

140000
100000
000000
000000
100000
140000
160000
170000
174000
176000
177000
177400
177600
177700
177740
177760
177770
177774
177776
177777
125252
152525
125252
177777
177776
177775
177773
177767

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
. WOF
.WOKD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WwORD
.WORD
.WORD
.WORD
.WORD

65408.

49152.
32768.
0.

0.
32768.
49152.
57344.
61440.
63488.
64512.
6502¢4.
65280.
65408.
65472.
65504.
65520.
65528.
65532.
65534.
65535.
43690.
43690./2
436%90.
65535.
65534.
65533.
65531.
65527.

SEQ 0249

——

£H

D et

b oD

d e

)

gw&w!flwuwwmwmmmmmmmm—aa-'—a—~NOW
W =2OVONOWVNEWN
OV~
N

CZRMPAO RMOS/3/2 DSKLS TST 1
DATA PATTERN TABLE

139 063476

143 063506
144 063510
145

146

MACRO Vv03.01

11-APR-80 13:58:55 PAGE 23-2

177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777
077777
137777
157777
162777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773

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

177775
177776
177777

ENRGDT:
.EVEN

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

65519.
65503.
65471.
65407.
65279.
65023.
64511,
63487.
61439,
57343,

49151,

32767.
32767.

49151.

57343.
614639,
63487.
64511.

65023.
65279.
65407,
65471.
65503.
65519,
65527.
65531.
65533.
65534.
65535.

SEQ 0250

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR MESSAGE

TABLE

MACRO v03.01

;

.SBTTL

ERROR MESSAGE

TABLE

3 063510

076634

071542

000000

EMT1:

_WORD

EMS300,EMS1.0

6 063544

076652

076742

076675

EMT3:

_WORD

EMS301,EMS306,EMS302

076756

EMT4:

4 063516
5 063530
7 063552

8 063564

9 063574
10 063606
11 063614
12 063626
13 063632
14 063640
15 063654
16 063662
17 063676
18 063704
19 063714
20 063722

21
22
23
26

076652
101656
101656

076634

101656
076652
101656
077100
076652
101656
076652
101656
077244
101656
077244
101656

076675
101061

101377

076675

101247
077017
101247
000000
076742
101247
077136
101222
077265
101222
077265
101222

076722
101222
101222

101222
077034
101222
077034
101222
076675
101247
077167
101247
077216
101247

063732
063740
063750
063756

077244
101656
077244
101656

077305
101222
077305
101222

077167
101247
077216
101247

26 0637764
27 064004
28 066012

101656
077244
101656

101222
077325
101222

101247
077216
101247

25 063766

077244

077325

29 064022
30 064030
31 064040
32 064046
33 064056
34 064064
35 064070
36 066076
37 064104
38 064110
39 064116
40 064126
41 064132

077244
101656
077244
101656
076652
101656
077100
076652
101656
077100
076652
101656
076652

077345
101222
077345
101222
077404
101344
077435
077365
101344
077424
077136
101344
077404

43 064144
44 064152
45 064160
46 064164
47 064172
48 064200
49 064206
50 064222

077100
076652
101656
077100
076652
101656
076652
101656

077435
077365
101222
077424
077136
101222
076742
101317

42 064140

G 4
11-APR-80 13:58:55 PAGE 24

51
52
53
54
55
56
57

064232
064240
064244
064252
064256
064266
064272

101656

077453
076634
101656
076634
101656
076634
101656

101222

077167
076224
101222
076224
101222
076224
101222

077167

EMT2:

EMTS:
EMT6:

EMT7:
EMT10:

EMT11:

EMT12:
EMT13:
EMT14:

EMT15:

077167
101247
077216
101247
076122

EMT20:

000000
076122

EMT21:

000000
076122
000000
076160

000000
076160
000000
076160
000000
076224
101222

000000

000000
101344

101317

EMT16:
EMT17:

EMT22:
EMT23:

.WORD
EMS301.EMS302,EMS303,EMS1,EMS304
.WORD EMSS511.EMS500,EMS501 .EMS502,EMS503,0
.WORD

_WORD

EMT25:

EMT26:

EMT27:
EMT30:
EMT31:

EMS300,EMS302,EMS307,EMS2

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

EMS511,EMSS502,EMS501,EMS503,0
EMS301,EMS310,EMS311
EMS511,EMS502,EMS501,EMSS03,EMS504
EMS312,0
EMS301,EMS306,EMS311
EMS511,EMSS502,EMS501,EMS503,EMS504,0
EMS301,EMS313,EMS302
EMS511,EMS501,EMSS02,EMS504
,EMS503,0
EMS316,EMS317,EMS314
EmS5511,EMS501,EMSS502,0
EMS316,EMS317,EMS315
EMS511,EMS501,EMS502,0

_WORD

EMS316,EMS321,EMS314

.WORD
.WORD
_WORD
.WORD
.WORD
_WORD
.WORD

.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

EMT24:

EMS511,EMS505,EMS501,EMS502,0

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

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

EMS316,EMS320,EMS314
EMS511,EMS501,EMS502,0
EMS316,EMS320,EMS315
EMS511,EMS501,EMS502,0
EMS511,EMS501,EMS502,0
EMS316,EMS321,EMS315
EMS511,EMS501,EMS502.,0

EMS316,EMS322,EMS314
EMS511,EMS501,EMS502,0
EMS316,EMS322.EMS315
EMS511,EMS501,EMS502,0
EMS301,EMS324,EMS250
EMS511,EMS504
EMS312,EMS326.0
EMS301,EMS323,EMS250
EMS511,EMSS504
EMS312,EMS325.0
EMS301,EMS313,EMS250
EMS511,EMS504.0
EMS301,EMS324,EMS2S1
EMS511,EMS501

EMS312,EMS326.0
EMS301,EMS323,EMS251
EMS511,EMS501
EMS312,EMS325.0
EMS301,EMS373,EMS251
EMS511,EMS501.,0
EMS301,EMS306,EMS252,EMS253,EM
,EMS254
S327
EMS511,EMS503,EMS501,EMS502

EMS330,EMS314.0
EMS300,EMS252
EMS511,EMS501,0
EMS300,EMS252
EMS511,EMS501,EMS504,0
EMS300,EMS252
EMS511,EMS501,EMS503.,0

SEQ 0251

—

CZRMPAD RMOS/3/2 DSKLS TST 1

ERROR MESSAGE

S8 064302
§9 064310
60 064316
61 064324

TABLE

077406
101222
077404
101222

101656

101222

076652

64 064352

076652

66 064366

076652

65 064360

67 064376
68 064402

69 064410

70 064416
71 064426
72 066430
73 064436
74 064444
75 064452
76 064464
77 064476
78 064502
79 064510
80 064516
81 064524
82 064530
83 064540
84 0645644
85 064554
86 064562

87 064570
88 064576
89 064604

101656

101656
076652

077100

076652
101656
077100
076652
101656
076652
101656
076634
101656
077472
101656
076634
101656
076634
101656
076652
101656

0776064

076226

EMT3S:

077136

076224

EMT36:

101222

101222
077404

077435

077365
101344
077424
077136
101344
077365
101344
071662
101222
071727
101222
076257
101222
076257
101222
077404
101222

077435
0776404

076652
101656

077365
101222

101222

93
9%
95
96

064632
064640
064646
064654

077100
076652
101656
077472

077424
077136
101222
071727

98 064670
99 064676

076652
101656

077404
101222

077435

101317

000000
000000
076353

000000
076353

000000
076353
000000
076122
101222
000000
076257
000000

101317
101344
076257
101317
000000
076257
101344

000000

076257

000000

103 064722

077100

077424

00000C

106 064744

076445

077522

107 064750
108 064760

076652
101656

077136
101222

076415

076415
000000

064774
065002
065006
065014
065022

EMT43:

EMT44:

EMT45:
EMT46:
EMT47:
EMTSO:
EMTS1:

EMTS2:

EMTSS:
EMTS6:

EMTS7:

101656
071760

101452
077540

101222

076652
101656
077100
076652
101656

077404
101222
077435
077365
101222

076501

EMT61:

000000
076501

EMT62:

109 064764 101656 101513 101222

110
111
112
113
114

EMT42:

EMTS4:

077435

106 064730
105 064736

EMT41:

076415

000000

077365
101222

EMT40:

EMTS3:

101222

077100

076652
101656

EMT37:

000000
076257
000000
076415

100 064702

101 064710
102 064716

EMT33:

077365

077100
076652
101656

101656

EMT32:

EMT34:

077100

97 064662

076226
000000
076224
101344

0762264

90 064612

91 064620
92 064626

H
&4
11-APR-80 13:58:55 PAGE 24-~1
SEQ 0252

076652
101656
076652
101656

62 064334

€3 064362

MACRO v03.01

EMT60:

.WORD
.WORD
_WORD
.WORD

.WORD

.WwORD

EMS301,EMS324.EMS252
EMS511.EMS501.0
EMS301.EMS324.EMS252
EMS511.EMS501.EMS504.0

EMS301.EMS324 EMS252

EMSS511.EMS501.EMS503,0

.WORD

EMS301.EMS323 EMS252

.WORD

EMS301.EMS313 EMS252

.WORD

EMS511.EMSS501.0

.WORD
.WORD

EMS511.EMS501.0
EMS301.EMS324 EMS255

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

EMS301.EMS323.EMSZSS
EMS511.EMS504
EMS312.EMS325.0
EMS301.EMS313 EMS2SS
EMSS511.EMS504.0
EMS301.EMS323.EMS250.EMS327.EMS255
EMSS511.EMS504.EMSS01.EMS503.0
EMS300.EMS3
EMSS511.EMS501.0
EMS331.EMS4,EMS253
EMS511.EMSS01.,0
EMS300.EMS253
EM,S511.EMSS01,EMSS03.0
EMS300.EMS253°
EMS511.EMS501,EMS504,0
EMS301.EMS324.EMS253
EMSS511.EMS501.EMS503

.WORD

.WORD
.WORD

.WORD

.WORD
_WORD
.WORD
.WORD
-WORD
.WORD

.WORD

.WORD
.WORD

.WORD

EMS312.EMS326.0

EMS312.EMS326.0
EMS307.EMS324 .EMS253

EMSS511.EMSS01.EMSS04

EMS312.EMS326.0

EMS301.EMS323.EMS253
EMS511.EMS501

EMS5312.EMS325.0
EMS301.EMS313.EMS253
EMS511.EMS501.0
EMS331.EMS4.EMS256

EMSS511.EmMSSO1.0

EMS301.EMS324 EMS?Sb
EMS511.EMS501

EMS312.EMS326.0

.WORD
.WORD

EMS30T.EMS323 EMS256
EMSS511.EMS501

.WORD
-WORD

EMS301.EMS313 EMS256
EMS511.EMS501.0

.WORD
.WORD

EMS312.EMS325.0
£EMS257.EMS332°

EMSS511.EMS506,EMS501,0
EMSS,EMS333

-WORD EMS511,EMS507.EMS501.,0
.WORD
.WORD
"WORD
.WORD
.WORD

EMS301.EMS324 EMS260
EMS511.EMS501
EMS312.EMS326.0
EMS30T.EMS323 EMS260
EMS5511.EMS507

CZRMPAQ RMOS/3/2 DSKLS TST 1

WA= OO0~

) od e
d
D
)

065042
065050
065054

077100
076652
101656
076634
101656

101222

000100
077662
000000
077662
000000

077564

072030

d el md

EIRKRUKLET OO NNV

000000

101222

d wd

000000

5210

101656

EMT63:
EMT64:

EMT65:
EMT66:

EMT72:

000000

— e

EMS300. EMS6
EMS511.EMSSO1
EMS7,EMS333.0

EMS300,EMS6 ,EMS327,EMS7
EMS511.€EMSSOT,EMSS04,0

EMS6,EMS335 ,EMS340,EMS10, EMS333, EMS342

EMsS11,EMSS501,EMS502,0

EMS6, EMS336,EMS340, EMS10,EMS334 ,EMS342

EMSS11,EMSSOT,EMSS02,0

EMT73:

EMT76:

EMS301.EMS260.EMS303.EMS11
EMS511.EMSS01 .EMS502.0
EMS343.EMS344 EMS342.0
EMS300.EMS13
EMS511.EMSS03,0
EMS346.EMS13,EMS345

EMT77:

EMS337.EMS13,EMS345

EMT74:
EMT75:

EMT100:

EMS511.EMSS03.0
.

EMT101:

000000
077653
101222
077653
N

(=)

-—

101222

072632

065512
065522
065536

101656
072673
101656
072673
101656
077626
101656
077626
101656
072673
101656
076652
101656

&~
o~

oAl

065474

N
N

065556
065564
065574
065604

B PSRAANS

bl v
md el el
—
e
e
W

bP
b ok
et
d
)
b
—

(o ¥ oY e Yo (VI IV IV IV IV IV )
W
—=O VO ~NONN S W

101222
076312

065630
065644
065652
065664

100005

076312
000000
077653
101222
072737
000000
100044
000000
077653
101222
077653

EMT102:

EMT103:

EMT104:

EMS511.EMSS03.,0

EMS301 . EMS313 EMS254 ,EMS347,EMST3
EMS511.EMS503.0
EMS346.EMS14 ,EMS341,EMSTS

EMS511.EMSS03,EMSS07.0

EMS337 EMS14 EMS341,EMSTS

EMSS511.EMSS03,EMSS501.0

EMS301.EMS313
EMS2564 . EMS347 ,EMS1S
EMS511.EMS503
EMS14,EMS332.0
EMS346,EMST7 EMS341,EMS16

EMSS511.EMSS03, EMSS01,0

EMS337.EMS17.EMS?41,EMS16

EMT10S5:

EMT106:

EMTI07:

EMS301.EMS313.EMS254
.EMS347 EMS16
EMSS511.EMS503
EMS17,EMS332.0
EMS346, EMS20 EMS341,EMS21

EMT110:

EMS20,EMS351,EMS21, EMS350,EMS22,EMS315

EMTI11:

EMT112:

EMT113:

EMT115:

EMSS11.EMSS03,EM3501.0

EMS511.EMSSOS.EMSS501.0

emsS11.Ems501.,0

EMS20,EMS334 ,EMS350,EMS22, EMS333

EMSS11,EMS501,0

EMS337.EMS20,EMS341,EMS21
.

EMT114:

076312

EMS312,EMS32 5.0
EMS3071.EMS31 3,EMS260
EMS511.EMSS0 1,0
EMS300.EMS12
1
EMS511.EMSS01,0
EMS12,EMS335, EMS342
EMSS11,EMS501,0
EMS12,EMS336, EMS342

EMsS11.EMS501,0

EMT70:

077642

101247
076722
101247

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

EMT67:

EMT71:

077662

wpd

4
I
11-APR-80 13:58:55 PAGE 24-2

077445
101344
077642

101247

D
d

000000
076501

101222

072301

077607

b rd e

D ed

0774624
077136

101222

d D

TABLE

5 065026
065034

NININININININININ)
= — =2 3

ERROR MESSAGE

MACRO v03.01

EMS511.EMS50%.EMSS01.0

EMS337.EMS20,EMS341,EMS21,EMS350,EMS
22, EMS334

EMS511.EMS501.,0

EMS20,EMS352 EMS21,EMS350,
EMS22, EMS333
.

EmsS11,.ems501,0

EMS307.EMS313
EMS254 ,EMS347 , EMS21
EMS511.EMS503

SEQ 0253

CZRMPAQ RMOS5/3/2 DSKLS
2 065670

072673

100005
101656

077522
073063

:)N

D
d
)

077653

EMT122:

077136

076312

EMT123:

077522
073355

000000
076756
000000
100103

101317

077653

101222
076312

101222

000000
077653
000000
076312

000000
076122
101317

Wi
HOn

§§

EMT116:

EMT121:

0/3355

000000
077653
101222

4
J
11-APR-80 13:58:55 PAGE 24-3

000000
077653

101317

D ed

MACRO V03.01

101317
073063
101317
077136
101317
077522
073220
101317
073220
101317

b e

OO
oo~

-t —

101317

D el

D e e e

R RG2S BB IRRRER LB IIIFANA

)

ERROR MESSAGE TABLE

TST

EMT117:
EMT120:

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

000000

EMS301.EMS313.EMS254
. EMS347,EMS24
EMS511.EMS503
EMS23,EMS332.0
EMS346,EMS2S (EMS341,EMS26

EMS511.EMSS05,EMSS501,0

EMS337.EMS25,EMS341,EMS26

EMS511.EMSS03, EMSS01.0

EMT125:

EMS331.EMS27,EMS353

EMT126:

EMT124:

EMTI127:

EMT130:

EMT131:

EMT132:

EMT133:

EMT134:

EMT135:

EMT137:

EMT140:

EMT141:

EMT142:

EMT144:

cc? 066474
228 066500

EMSS11.EMSS0S.EMSS01.0

EMS301.EMS313.EMS254
. EMS347,EMS26
EMSS511.EMS503
EMS2S ,EMS332.0

EMT143:

101317

EMS511.EMSS0%,EMSS01,0

EMS337.EMS23 EMS341,EMS24

.WORD
.WORD
.WORD
.WORD

EMT136:

101656
100406
101656

EMS20,EMS332,0
EMS346, EMS23 EMS341,EMS24

EMS300,EMS27 EMS307,EMS?2
EMSS511.EMSS03.,0
EMS511.EMSS03

EMS30,EMS315.0

EMS337,EMS27 . EMS341,EMS30
EMS511.EMSS03.0

EMS301.EMS313.EMS254, EMS347,EMS30
EMSS511,EMS503
EMS27,EMS332.0
EMS31.EMS354
. EMS250
EMS511,EMS504, EMS503,0
EMS32,EMS354, EMS250
EMS511,EMS504 ,EMS503,0
EMS355.EMS33,EMS250,EMS341,EMS30
EMS511.EMS504
.0
EMS355.EMS34, EMS250,EMS34 1, EMS30
EMS511.EMS504,0
EMS331.EMS4 EMS255

EMS511.EMSS504
,0

EMS3S,EMS357 ,EMS360,EMS1S
EMSS511,EMS501,0
EMS261.EMS362
EMSS511.EMS503,0
EMS300. EMS36,EMS307, EMS2
EMS511.EMS501.,0
EMS355 . EMS37 . EMS255 ,EMS341,EMS30
EMS517.EMS504,0
EMS346.EMSL0, EMS345
EMS511.EMSS04,0
EMS337.EMSL0,EMS» 1,EMS30
EMS511.EMS504,0
EMS363.EMS310.EMS41
EMS511.EMS501.0

EMS337.EMSL1,EMS341,EMS252,
EMS327, EMS253

EMT145:

EMT146:

EMTI47:

EMS511.EMSS01
.0

EMS41,EMS354 , EMS364 ,EMS252,EMS365,EMS253

EmsS11.ems501.0

EMS301
. EMS306.EMS36
EMS511.EMSS01 .EMS503.0
EMS366
. EMS4L?2
EMSS11.EMSS03.0

SEQ 0254

CZRMPAQ RMOS/3/2 DSKLS ST 1
100431
101656

pry
— P
Py gy
—=O=2W-0
=S NWN D WWN =D AN =N =N NN =
O=N=2O=2
d =2 O = OO 2O
N SNV SN N S NN NN NI NN

229 066506
230 066522
231 066530

TABLE

SO =t d O bt b d D b B O

ERROR MESSAGE

MACRO v03.01
100401
000000

000000
073753
000000
100401

4
K
11-APR-80 13:58:55 PAGE 24-~4

EMT150:
EMT151:
EMT152:
EMT153:

EMT154:
EMT155:

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

EMT156:
EMT157:

EMT161:

254 067002
255 067016
256 067024
257 067034
258 067040

000000

077445

259 067050

260 067060
261 067070
262 067102
263 067112
264 067116
265 067124
266 067132
267 067140
268 067146
269 067156
270 067172
271 067200

EMT162:

EMT163:

EMT164:

EMT165:

100545
076756

EMT166:

077642

EMTI67:

EMT170:

EMT171:

EMT172:

101317
101317

000000

077653
000000
077653
000000
077653
000000
077653
000000

101656

000000

EMSS11,EMS501,0

EMS367.EMS353.EMS365,EMS36,EMS370
EMS511.EMS503.0
EMS367.EMS3S3
. EMS365, EMS36, EMS371
EMS511.EMS503.0
EMS300
. EMSL4 ,EMS307, EMS2

EMS511.EMS503.0

EMS367.EMS353.EMS365,
EMS44 , EMS354 ,EMS3
EMS511.EMS503.0
EMS300.EMS4L5,EMS307, EMS2

EMS511.EMSS03,0

EMS300, EMS46 . EMS307, EMS2
EMSS511.EMSS03.0
EMS337 EMS4L6,EMS3S3

EMS511.EMSSOS, EMS501,0

EMS35,EMS335,EMS337,EMS4
T, EMS334,EMS372
EMSS11,EMS501,0
EMS&7 ,EMS335,EMS337,EMS4T, EMS335,EMS372
EMSS11,EMS507,0

EMS337.EMS3S,EMS327,
EMS47
EMSS511.EMS501

EMS41,EMS333,EMS372.0

EMS300,EMS4L7.EMS307 . EMS2
EMSS11.EMSSOT,EMSS503,0

EMSS0, EMS335, EMS340, EMS36,EMS333

EMS511,EMS501,EMSS503.,0

EMS337 EMS3S
EMSS511.EMS501.0
EMSS50,EMS34 EMS3

EmSS11,EMSS01.,0

EMT174:

EMTI75:

EMT176:

EMTI77:

EMT200:

E/15301
. EMS306 . EMSS1
EMS511.EMSS01 .EMS504,0
EMS367 . EMS353 . EMS365 . EMS4L7 . EMS354 ,EMS3
EMS511.EMS501.0
EMS300. EMS250, EMS327 ,EMS255 ,EMS327 ., EMS256
EMS34
1. EMS600
EMS511.EMSS01.0
EMS300.EMS256
. EMS341 ., EMS600
EMS511.EMS501.0
EMS300, EMS250,EMS34 1, EMS600
EMS511.EMS504.0
EMS300.
EMS255 .EMS341,EMS600
EMS511.EMSS04
.0
EMS337.EMS52, EMS341,EMS601

EMT201:

EMS346.EMSS2, EMS341,EMS602

EMT202:

EMT173:
077445

EMS337 EMS36
EMS511.EMS501,0
EMS43, EMS354, EMS36

EMS367.EMS353.EMS365,
EMS4S, EMS354 ,EMS3
EMS511.EMS503
. EMS507
EMS3S,EMS333.0

EMT160:

101317

EMS367,EMS353,EMS365,EMS42,
EMS354 , EMS3

EMS511.EMS503.0

EMS511.EMSS501,0

EMSS511.EMS501,0

EMS346
. EMSST,EMS341,EMS602

EMS511.EMS501.,0

SEQ 0255

CZRMPAQ RM05/3/2 DSKLS TST 1

ERROR MESSAGE TABLE

286 067352

074672

077757

EMT203:

100005

074672

077653

EMT204:

100127

071662

EMT205:

100603

EMT206:

101656

289 067404

101656

101344
101344

290 067416

074733

292 067434
293 067450
294 067456
295 067464
296 0676472
297 067500

077626
077445
101656
074774
101656
074774

074774
071662
101344
100127
101222
100127

299 067516
300 067526
301 06753
302 067540
303 067546

074774
101656
077626
101656
075127

100127
101344
075051
101344
077554

291 067422

298 067510

L 4
11-APR-80 13:58:55 PAGE 24-5

100005

287 067364

288 067374

MACRO V03.01

101656

304 067564
305 067570

101655
075127

307 067602
308 067610

101317

101344

101222

10124,

101222
071662
000000
100360

000000
100360
000000

000000
077757

EM1207:
EMT210:

EMT211:
EMT212:
EMT213:

.WORD

.WORD
.WORD

.WwORD

EMS511,EMS50%,EMS502,EMS510.0

.WORD

EMS337.EMS54.EMS374,EMS250.EMS327
. EMS25S
EMS327.EMS3

.WORD
.WORD
.WORD
'WORD
.WORD

EMS54,EMS354,EMS364
. EMS2SS
EMS511.EMS504,0
EMS337.EMS55
EMS511.EMS504.0
EMS56,EMS334,EMS345,EMS373.EMS262,EMS327,EMS251

.WORD

101222
077540

000000
100044

310 067630
311 067636
312 067644
313 067652
314 067660
315 062670
316 067676
317 067706
318 067714

100343
101656
100343
101656
075433
101656
075433
101656
075433

076742
101222
076742
101222
077540
101222
077540
101222
077540

071760
000000
075360
000000
100634
000000
100650
000000
100650

320 067732
321 067742
322 067750

100005
101656
100005

075433
101222
075514

077653
000000
100650

EMT223:

324 067770
325 070004
326 070012

075514
101656
075514

077540
101222
100224

100044
000000
073753

EMT225:
EMT226:

328 070030

075514

100204

100246

EMT227: .WORD

330 070046

075514

100204

100274

EMT230:

332 070064

075514

074113

EMT231:

33% 970100

074113

077662

EMT232:

336 (70122
337 070134
338 070144

100431
101656
072551

100103
101317
100664

100401
101222
100545

EMT233:

340 070172

076634

075624

076756

EMT235:

342 070212

075127

100664

100650

EMT236:

309 067622

319 067726

323 067760

327 070022

329 070040

331 070056

333 070072
335 070114

339 070162

341 070202

101656

101656
101656

101656

101656
101656
101656

101656

101222

000000

101317

000000

101222

000000

101222

000000

101222

000000

101222

000000

101317

101222

100204
1

101247

101317

.WORD
.WORD

EMT214: .WORD
EMT215:

EMT216:
EMT217:
EMT220:
EMT221:
EMT222:

EMT224:

EMT234:

EMS53,EMS354,EMS3

.WORD
"WORD
-WORD
.WORD
.WORD
.WORD

101656
075222

075127

EMS346.EMS52.EMS341.EMS27

EMS511.EMS504,EMS501,0

000000

077626

EMS511.EMS504,EMSSO01,0

.WORD

101222
077564

306 067576

EMS346,EMS52,EMS345,EMS373,EMS2S5

"WORD
.WORD

.WORD

EMS511.EMS504,EMS501,0
EMS54,EMS354,EMS3
EMS511,EMS501.0
EMS54,EMS354,EMS364
. EMS250

EMS511,EMS504,0

EMS511,EMS501
EMS56,EMS335,0

EMS337,EMS56

EMS511.EMS501.0
EMS57,EMS333,EMS350.EMS60,EMS334

EMS511.EMS501,0

.WORD
.WORD
.WORD
"WORD
.WORD
.WORD
.WORD
.WORD
.WORD

EMS363.EMS306.EMSS
EMS511.EMS501.0
EMS363.EMS306 EMS61
EMS511.EMS501.0
EMS62,EMS333,EMS375.EMS251
EMSS511,EMS501,0
EMS62,EMSS33.EMS376.EMS262
EMSS11,EMS501.0
EMS62,EMS333,EMS376.EMS250

.WORD
"WwORD
.WORD

EMS346.EMS62,EMS341.EMS603
EMS511.EMSS01.0
EMS346.EMS63,EMS376,EMS262

.WORD
.WORD
.WORD

EMS63,EMS333,EMS350,EMS363.EMS310,
EMS262
EMSS11.EMS501.0
EMS63,EMS357,EMS36,EMS372

.WORD

EMSS11,EMSS01.0

EMS511.EMSS01,EMSS03.0

.WORD

EMSS11,EMS501.0

.WORD

EMSS511,Ems501,0

.WORD

EMS63,EMS356,EMS360,EMSTS
EMS63,EMS356,EMS361.EMSTS

.WwORD

EMS511,EMS501.,0

.WORD

EMSS11,EMS501.0

.WORD

-WwOoRD

.WORD
.WORD
.WORD

.WORD

EMS63,EMS356.EMS41
EMS41,EMS377,EMS342,EMS365,EMS63,
EMS332

EMsS11.Emss01.0

EMS367.EMS353 EMS365,EMS63, EMS401
EMS511,EMS503.EMS501.0
EMS16,EMS377.EMS372,EMS365.EMS64 ,EMS354 . EMS3

EMSS11.EMSS08,EMSS01,0

EMS300.EMS65.EMS307,EMS2

EMSS11.EMSS502,EMS505.,0

EMS56.EMS377,EMS376.EMS252.EMS372.EMS350

SEQ 0256

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO Vv03.01

ERROR MESSAGE TABLE

075624
101656
076634
101656
072473
101656
075665
101656
100736
101656
073753
075665
101656
075514
101656

346 070254
347 070264
348 070300
349 070310
350 070326
351 070334
352 070346
353 070352
354 070360
355 070376
356 070404
357 070414
358 070422
359 070432
360 070440
361 070452
362 070456
363 070464
364 070474
365 070502
366 070520
367 070526
368 070540
369 070544
370 070552
371 070570

073753
101656
100736
101656
073753
075742
101650
075665
101656
100736
101656
073753
075665
101656

374 070614
375 070626
376 070632
377 070644
378 070650
379 070656
380 070666
381 070674
382 070712
383 070720
384 070732
385 070736
386 070744
387 070762
388 070770
389 071000
390 071006

073753
101656
100736
101656
073753
075742
161656
(/75665
101656
100736
101656
073753
075665
101656
075514
101656
073753

000000
077642
000000
101016
000000
101016

000000
100727
000000
101016
000000

077642
000000
100727

000000
077642
000000
1071016
000000
101016
000000
100727

—t N2
A\
O
NN =N

W\l%fitfl—fld\hbd

N N (7,]
=b =2
(=] — N)
&»H ~ N NN

i e
O

101656
100736
101656
073753
076054
101656
075742
101656
075665

) —d —d md b ik

075514
101656

391 071016
392 071024
393 071036
394 071042
395 071050
396 071060
397 071066
398 071076
399 071104

100727

—b e

372 070576
373 070606

100712

o
S OoONO
~N — 83228

343 070226
344 070232
345 070244

M4
11-APR-80 13:58:55 PAGE 24-6

000000
101041

EMS65 ,EMS401

EMS511,EMSS02, EMS503,EMS501,0

EMT237:

.WORD
.WORD

EMT240:

EMT241:

EMT242:

EMT243:

EMS403 . EMS604 . EMS402, EMS21,EMS377
EMSS517, EMSS03
EMS36,EMS335,0
EMS66 , EMS336 . EMS340,EMS26
,EMS404 , EMS405 , EMS604

EMT244:

EMS63, EMS4L0T, EMS405
, EMS604

EMTZ245:

EMT246:

EMT?251:

EMS66, EMS336,EMS340,EMS15,
EMS406 ., EMS405 , EMS604

EMS511.€EMS505.0

EMSS11,EMS505,0
EMs511,EMSS05,0

EMS36,EMS370, EMS405
, FMS604

EMS511,EMSS05.0

EMsS11,Ems505.0

EMS66 , EMS336,EMS340,EMS15,
EMS406, EMS405 , EMS605

EMSS11.EMS505.0

EMS403.EMS605 . EMS402, EMS21,EMS377
EMS_11.EMSS03
EMS36,EMS335,0
EMS66, EMS336 . SMS340, EMS26, EMS404 , EMS4LCS , EMS605

EMT252:

EMT253:

EMS15 ,EMS400 EMS372,EMS350,
EMS66, EMS401

EMSS11,EMS50%,EMS501.0

EMS403 . EMS604 . EMS402, EM524 , EMS377
EMSS11,EMSS503
EMS36,EMS335.,0
EMS67 . EMS332.EMS405
, EMS604

EMT247:
EMT250:

EMS300. EMS66, EMS307,EMS2

EMS511.EMSS01 ,EMS503.,0

EMT254:

EMSS11,EMS505.0

EMSA3, EMS4L01 , EMS40S
, EMS60S

EMSS11,EMSS05.0

EMS36 , EMS370,EMS405
, EMS605

EMS511.EMSS03,0

EMT255:

EMT256:

EMS&03. EMS605 . EMS402, EMS24 , EMS377
EMSS511.EMSS03
EMS36,EMS335.0
EMS67 . EMS332 . EMS405
, EMS605

EMT257:

EMS66, EMS336,EMS340,EMS15,
EMS406 ., EMS40S . EMS606

EMT260:

EMT261:

EMS&03 . EMS606 . EMS402, EMS21, EMS377
EMSS11.EMSS03
EMS36,EMS335.0
EMS66 . EMS336 EMS340,EMS26,
EMS404 , EMS405 . EMS606

EMT262:

EMS63, EMSL0T L EMS4OS
, EMS606

EMT263:

EMS36,EMS370 . EMS405
. EMS606

EMT264:

EMT26S:

EMT266:
EMT267:

EMSS11,EMS505.0

EMSS11.EMS505.0

EMsS11,EMS505.0

EmMsS11.EmsS03.0
EMS511.EMS505.,0

EMS403 . EMS606 . EMS402, EMS24 , EMS377
EMSS?T1.EMSS03
EMS36,EMS335.0
EMS70 EMSL01 S EMS405
, EMS600

EMSS11,EMS503%.0

EMS67 , EMS332. EMS40S
, EMS606
.

EmsS11,Ems508,0

EMS66, EMS3SC . EMS407

SEQ 0257

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR MESSAGE TABLE

MACRO v03.01

N 4
11-APR-80 13:58:55 PAGE 24~7

400 071112
401 071120

101656
075665

101317
077607

000000
077642

EMT270:

LWORD
.WORD

EMSS511,EMS503.0
EMSG66,EMS336,EMS340,EMS1S,EMS406,
EMS40S , EMS607

403 071144

100736

102172

100727

EMT271:

.WORD

EMS4L03.EMSHC
.’ EMS402,EMS21,EMS3?7

WORD

EMSS11,EMS503.,0

WORD

EMS517,EMS503.,0

.WORD

EMSS511,EMS50%.0

.WORD

EMSS511,EMSS0%,EMS502.0

"WORD

EMSS511,EMS50%.0

402 071136

101656

101317

000000

.WORD

404 071156
405 071162
406 071170

101656
073355
073355

101317
077607
100501

000009
101016

EMT272:

WORD
o
. .+

408 071206

073355

100516

101016

EMT273:

.WORD

410 071524

073753

100777

101016

EMT274:

412 071242

074733

101016

EMT275:

414 071262

075742

077522

101016

EMT276:

416 071300

075665

077607

077642

EMT277:

418 071324
419 071336
420 071342
421 071350

100736
101656
073355
076054

102172
101317
077607
100712

100727

EMT300:

000000
101016

EMT301:

407 071200
409 071216
411 071236

413 071252

415 071272

417 071316

422 071360

423

101656

101656
101656
101656
171656
101656

101656

101317

000000

101317

000000

101317

000000

101317

101247

100712

101317
101317

101317

000000

.WORD

.WORD
.WORD
.WORD

"WORD

.WORD
"WORD
"WORD
.WORD

.WORD

EMSS11,EMS503.0

EMSS11.EMSS03
EMS27,EMS336,0
EMS27.EMS370 EMS40S,EMS607

EMS27,EMS371,EMS4CS.EMS607
EMS36,EMS4L04,EMS405,EMS607

EMS53,EMS401,EMS40S,EMS607
EMS67.EMS332.EMS4L0S
., EMS607

EMS66,EMS336.EMS340,EMS26,
EMS404 , EMS405 , EMS607

EMSS511,EMS50%.0

EMS403.EMS607 EMS402.EMS24 . EMS377
EMSS511.EMS503
EMS27,EMS336.0
EMS70.EMS401.EMS405.EMS607

EMS517,EMS505.0

sEQ 0258

[EZRMPAO
RMOS/3/2 DSKLS TST 7
ERROR MESSAGE TABLE
1

071366

102210

2 071372
3 071376

102266
102303

S 071406

102360

& 0716402

6 0716412

7 0716416

8 071422

9
10
11
12
13
16
15
}g

071426
0716432
071436
071442
071446
071652
071456
071462

000000

.WORD
.WORD

000000

EHTS7:

.WORD

EHT71:

.WORD

102456

000000

102607
102704
103022
103120
103216
103333
1034317
103526

.WORD

EHT2:
EHTS:

000000

102532

EHTi:

000000
000000

102341

102274

MACRO v03.01 11-APR-80 13:58:55 PAGEB 255

000000

000000
000000
000000
000000
000000
000000
000000
000000

EMT7:

EHT6S:
EMT74:

EHT11S:
EHT130:
EMT132:
EHT142:
EHTI14S:
EHT1S0:
ENT213:
EHT220:

.WORD

EM1.,0

EH2.0
EHS.0
EH7.0

ENS7.0

.WORD

EH6S.0

.WORD

EM3,0

.WORD
.WwORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ENH71.0

EH115.,0
EH130.0
EH132.0
EH142.0
EH145.,0
EH150.0
EH213.0
ENH220.0

SEQ 0259

b
)
—

071666
971470
071472
071474
071476
071500
071502
071504
071506
071510
071512

TABLE

103564
103574
103600
103606
103620
103630
103574
103640
103652
103640

103666

MACRO v03.01

11-APR-80 13:58:55 PAGE 26

SEQ 0260
DT
DY
DT

N
—

N=2O0V00 NN
W

ERROR MESSAGL

mmm

(ZRMPAD RMOS/3/2 DSKLS TST

EDTS?7:
EDT6S:
EDT?1:
EDT?:
EDT11S:
EDT130:
EDT132:
E.1220:

.
.
.

—2 —2 \ AN

NN =2 AR
NN
o

MMV

—

D
5
11-APR-80 13:58:55 PAGE 27
mmmmmmmmmmm

103676

—

103672
103675
103676
103700
103672
103672
103675
103700
103704
103700

P = —b 2
N ON NN
PN~
S =B A~ oe o=

—t
e
b

1 071514

TABLE

TMTTETIETMETM
T M IMYITMIEITTYI MY
)
g
= = —t 4 4

ERROR MESSAGE

MACRO v03.01
mmmmmmmmmmm

CIRMPAQ RMOS/3/2 DSKLS TST 1

SEQ 0261

——

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR MESSAGE

STRINGS

MACRO v03.01

;

.SBTTL

ERROR MESSAGE STRINGS

SEQ 0262

3 071542

116

117

116

EMS1:

_ASCIZ

GSNONEXISTENT DEVICE 'NED'' (RMCSZ2,BIT 12) a

5 071662

106

125

116

EMS3:

.ASCIZ

@FUNCTION CODE

4 071613

6
7
8
9
10
11
12
13
14

103

117

0721727
071760

125
104

116
105

15
16
17
18
19

072145
072210
072260
072301
072357
072426
072473
072551
072632
072673

120
115
050
1
104
115
115
115
127
104

101
101
122
114
1M1
105
101
101
122
105

40
41
42
43
44

074355
074432
074514
074554
074623

m
114
117
m
117

116
117
103
114
106

46
47
48
49

074733
Q74774
07505!
075127

122
M
101
122

125
116
104
105

072030
072074

20 072737
21 073016
22 073063
23 073141
24 073220
25 073276
26 073355
27 073421
28 073501
29 073552
30 073632
31 073662
32 073711
33 073753
34 074003
35 074035
36 074113
37 074161
38 074243
39 074314

11-APR-80 13:58:55 PAGE 28

120
104

115
125
123
115
120
115
105
104
114
114
123
124
126
107
103
114
103
103
104
103

101
101

101
116
105
101
117
101
116
111
101
101
105
122
117
117
131
101
117
117
122
117

45 074672

117

S0 075173
51 075222
52 075306
53 075360
54 075433
55 075514
56 075554

042
104
120
104

122
122
122
122

101
127

124
122

57 075624

120

105

106

130

116

125
126
122
126
122
123
115
114
101
104
111
111
111
126

111
123
105
111
123
111
106
101
123
123
103
101
114
0640
114
123
115
115
111
116
126
123
103
114
106

106

116
126
106
107

115
111
117
111
122
126
111

103

EMS2:

EMS4:
EMSS:
EMS6:
EMS7:
EMS10:
EMS11:
EMS12:
EMS13:
EMS14:
EMS15:
EMS16:
EMS17:
EMS20:

EMS21:
EMS22:
EMS23:
EMS24:
EMS25:
EMS26:
EMS27
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:
EMS43:
EMS44:

EMS45:
EMS46:
EMS47:
EMS50:
EMS51:

EMS52:

EMS53:
EMS54:
EMS55:
EMS56:

EMS57:
EMS60:
EMS61:
EMS62:
EMS63:
EMS64:

EMS6S:

.ASCIZ

Q@CONTROLLER CLEAR "'CLR'' (RMCS2.BIT 05)

(RMCS1, BITS 01 - 05) a3

.ASCIZ
_ASCIZ

@UNUSED BIT POSITIONS OF @
QDEVICE AVAILABLE ‘DVA’’ (RMCS1, BIT 11)

.ASCIZ
L.ASCI]
LASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@QPARITY TEST ‘PAT'' (RMCS2, BIT 04)
aMASSBUS CONTROL BUS PARITY ERROR 'MCPE'' @
Q(RMCS1T, BIT 13) @
QILLEGAL REGISTER ERROR '‘ILR'‘ (RMER1, BIT 01) a
@DIAGNOSTIC MODE ‘DMD'’' (RMMR1, BIT 00) a
QMEDIUM ON LINE "MOL'' (RMDS, BIT 12) @
GMAINTENANCE UNIT READY ‘MUR’' (RMMR1, BIT 09) a
GMAINTENANCE WRITE PROTECT '‘MWP'' (RMMR1, BIT 03)
QWRITE LOCK 'WRL'' (RMDS, BIT 11) @
QDEVICE CHECK ‘DVC'' (RMERZ2, BIT 07) @

.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

GPARTIY ERROR 'PAR'‘ (RMER1, BIT 03) a
QDATA PARITY ERROR 'DPE'’' (RMER2, BIT 03) a

GMAINTENANCE DRIVE FAULT ‘MDF'' (RMMR1, BIT 06) 3
@UNSAFE STATUS "UNS'' (RMER1, BIT 14) @
QSEEK INCOMPLETE STATUS "‘SKI'' (RMER2, BIT 14) a
GQMAINTENANCE SEEK ERROR ‘MSER'' (RMMR1, BIT 07) a
@POSITIONING IN PROGRESS ‘PIP'' (RMDS, BIT 13) 3
QMAINTENANCE ON CYLINDER 'MOC'’' (RMMR1, BIT 08) a
QEND OF BLOCK 'EBL'' (RMMR1, BIT 13) a
@DIAGNOSTIC END OF BLOCK ‘DEBL'' (RMMR1, BIT 13) 3
@LAST SECTOR STATUS ‘LS'’ (RMMR1, BIT 02) 3
GLAST SECTOR/TRACK STATUS ‘LST'' (RMMR1, BIT 01) @
@SECTOR ADDRESS BITS OF @
@TRACK ADDRESS BITS OF a
@VOLUME VALID '‘VV'' (RMDS, BIT 06) a
@GO BIT (RMCS1, BIT 00) @
@CYLINDER ADDRESS BITS OF @
SLAST BLOCK TRANSFERRED, 'LBT'' (RMDS, BIT 10) a
SCOMPOSITE ERROR ‘ERR'' (RMDS, BIT 14) @
SCOMMAND SEQUENCER TEST BIT “'TST'' (RMMR2. BIT 12) a
@DRIVE READY STATUS 'DRY'* (RMDS, BIT 07) a
@CONTINUE '‘CONT'' (RMMR1, BIT 06) 3

@INVALID COMMAND ERROR “'IVC'‘ (RMER2, BIT 12) a
aLOSS OF SYSTEM CLOCK ERROR ‘LSC'' (RMER?2, BIT 11)
Q0CCUPIED 'OCC'’ (RMMR1, BIT 15) 3
QILLEGAL FUNCTION '‘ILFTM* (RMER1, BIT 0) a
@0OFFSET DIRECTION ‘OFD'' (RMOF,
BIT 07) &

.ASCIZ

QOFFSET MODE ‘UM’ (RMDS, BIT 00) a

LASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

@' RMR'' (RMER1, BIT 02) @
@DRIVE REQUEST REQUIRED STATUS 'DRQ'’' (RMDT, BIT 11) a
QPROGRAMMABLE STATUS 'PGM'' (RMDS, BIT 09) a
QDRIVE PRESENT STATUS ‘DPR'' (RMDS, BIT 08) a

_ASCIZ
.ASCIZ
.ASCIZ
.ASCII

.ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ

@RUN AND GO 'RG'' (RMR1, BIT 14) a
@INVALID ADDRESS ERROR “'IAE'' (RMER1, BIT 10) a
@ADDRESS OVERFLOW ERROR ‘°'AOE'' (RMER1, BIT 09) a
@REGISTER MODIFICATION REFUSED ERROR @

@PORT REQUEST FLOP ‘RQA,RQB'' (RMMR2, BITS 15,14) a
QATTENTION “ATA'* (RMDS, BIT 15) a
IWRITE LOCK ERROR "WLE'' (RMER1,
BIT

QEXCEPTION ‘REX'' (RMMR1, BIT 12) &

11) @

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR MESSAGE

STRINGS

58 075665

60 076016
gg 076054

114
123

63 076122

104

67 076312
68 076353

115
104

S9 075742

116

101

126

107

11-APR-80 13:58:55 PAGE 281

EMS66:

EMS67:

.ASCIZ

SEQ 0263

@INVALID COMMAND ERROR ‘''IVC'' (RMER2, BIT 12) a

.ASCIZ

STAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL 3

111
105

116
101

EMS70:

LASCIZ
.ASCIZ

123

EMS250:

.ASCIZ

@DISK ADDRESS REGISTER (RMDA) @

117

101
105
106

111
123

EMS254:
EMS255:

EMS256:

.ASCIZ
.ASCIZ
.ASCIZ

GSMAINTENANCE REGISTER #1 (RMMR1) 3
QDESIRED CYLINDER REGISTER (RMDC) @

@QOFFSET REGISTER (RMOF) a

71 07A,01
72 07¢5%2

110
123

117
105

114
122

EMS260:
EMS261:

.ASCIZ
.ASCIZ

.ASCIZ

@HOLDING REGISTER (RMHR) @
@SERJAL NUMBER REGISTER (RMSN) a

QATTENTION SUMMARY REGISTER (RMAS) a

75
76
77
78
79

076634
076652
076675
076722
076733

103
103
101
127
105

101
101
116
1
122

116
116
131
124
122

EMS300:
EMS301:
EMS302:
EMS303:
EMS304:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

QICANNOT CLEAR @
QCANMOT WRITE/READ a
@ANY DEVICE REGISTER a
aWITHOUT a
QERROR @

077325

64 076160
65 076224
66 076257
69 076415
70 076445

;2 0,55

80
81
82
83
84
85
86
87
88
89
90

1264

MACRO V03.01

103
105
105

104

101

117
122
122

122

124

076742
076756
077017
077034
077100
077136
077167
077216
077244
077265
077305

101
125
101
105
124
10
101
101
122
061
062

040
123
040
126
170
040
120
120
105
040
040

92 077345
93 077365

070
101

040
114

064

EMS257:

126

EMS262:

117
111
132
105
105
123
120
120
107
050
050

EMS306:
EMS307:
EMS310:
EMS311:
EMS312:
EMS313:
EMS314:
EMS315:
EMS316:
EMS317:
EMS320:

050
114

EMS322:
EMS323:

114
040
040
117
103
116
060
060
040
117
117
116
103
111
122
105

EMS324:
EMS325:
EMS326:
EMS327:
EMS330:
EMS331:
EMS332:
EMS333:
EMS334:
EMS335:
EMS336:
EMS337:
EMS340:
EMS341:
EMS342:
EMS343:

040
116
124
124

EMS345:
EMS346:
EMS347:
EMS350:

125

114
124
124
040
012
101
123
123
123
110
110
101
105
123
125
116

111
112
113
114

102
103
127
102

131
101
m
125

077757
100005
100023
100044

111

050

101
101
101
054
015
103
1
m
11
123
123
103
102
125
104

102

106

EMS251:
EMS252:
EMS253:

040

94 077404
95 077424
%% 077435
97 077445
98 077453
99 077472
100 077522
101 077540
102 077554
103 077564
104 077607
105 077626
106 077642
107 077653
108 077662
109 077714

110 077730

116
12¢
122

125

123

EMS321:

EMS344:

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

aLINES (RMMRZ, BITS 10,11,13) a3
QSEARCH ENABLE 'ESRC'' (RMMR1, BIT 11) @
Q@CONTROL STATUS REGISTER #1 (RMCS1)
WERROR REGISTER #1 (RMER1) @
@ERROR REGISTER #2 (RMER2) a

@DRIVE

TYPE REGISTER

(RMDT)

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@A ONE FROM a
@USING MASSBUS INITIALIZE, [.E., @
@A ZERO FROM a
@EVERY DEVICE REGISTER BIT POSITION a
QTHE FOLLOWING BITS ARE STUCK @
@A SHIFTING ONE BIT FROM 3
@APPEARS STUCK AT ZERO a
@APPEARS STUCK AT ONE a
QREGISTER SELECT a
a1 (1,2,4,8,160) @
@2 (1,2,4.8,16) @

.ASCIZ
.ASCIZ

a8 (1,2,4.8,16) 3
@ALL ONES FROM 3

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

_ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
_ASCIZ
.ASC]Z

(1,2,4.8,16)

@ALL ZEROS FRCM a
@AT ZERO @
QAT ONE @
3, OR @
<CR><LF>a(S MBA CLRL a
@CANNOT READ ZEROS FROM a
@IS INCORRECT a
@IS NOT SET @
@IS SET @
@SHOULD NOT BE SET a
@SHOULD BE SET a
@CANNOT SET 3
@BECAUSE a
@SUSING 3
@DURING REGISTER TRANSFER @

@UNEXPECTED @

a@BUS TIMEOUT (04 TRAP) @

aBY REGISTER TRANSFER a
@CANNOT RESET a
aWITHOUT SETTING @
aBUT a

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR MESSAGE

STRINGS

115
116
117
118
119
120
121
122
123
124

100051
100067
100103
100127
100162
100204
100224
100246
100274
100322

127
127
11
111
103
127
127
060
061
111

10?
101
116
123
101
101
101
040
040
123

126
127
128
129

100360
100401
100406
100431

124
101
103
124

105
116
101
110

131

100516

104

MACRO v03.01

143 101016
144 101026

127
103
127
104
127

125
101

123
123
040
040
116
123
123
126
124
040
116
123
104
116
105
123
104
122
040
124
0640
040
123
123
104
111
115
123
122
123

147 101061
148 101113
149 101156

on
on
on

104
104
124

105
105
122

125 100343

130 100501

132
133
134
135
136
137
138
139

100545
100577
100603
100634
100650
100664
100675
100712

140 100727
141 100736
142 100777

}22 101041

150
151
152
153
154
155
156
157
158
}23

101222
101247
101317
101344
101377
101452
101513
101603
101656
101705

161
162
163
164
165
166
167
}gg

101755
102005
102025
102066
102107
102134
102152
10172

103

122

104
124
127
102
102
127
127
104

123

101

105

125
117
11
13
131
101
101
11
110
117
101

105

101

G
5
11-APR-80 13:58:55 PAGE 28-2

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:
EMS500:

EMS407:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

aWAS RESET BY @
awAS SET BY a
QIN DJAGNOSTIC MODE a
@IS INCORRECT ACCORDING TO @
SCANNOT INCREMENT @
@WAS NOT SET BY a
oWAS NOT RESET BY a
@0 TO 1 TRANSITION OF 3
@1 TO O TRANSITION OF @
@IS INCONSISTENT a

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QTEST PATTERN IN @
@AND a
@CANNOT INITIALIZE @
QTHE COMMAND SEQUENCER HAS BEEN CLOCKED @

_ASCIZ

aDID NOT RESET ON TIME a

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

@CANNOT READ a

QRESET EARLY a

Q@DURING COMMAND EXECUTION 3
aT0 @
QWITH ANY COMBINATION OF @
@BY READING @
QBY WRITING @
@WAS SET a
@WAS NOT SET a
aDID NOT SET a

.ASCIZ
.ASCIZ

GWHILE 3
@COMMAND SEQUENCER DID NOT ABORT @
@WAS NOT RESET 3
@DURING &
@WAS RESET @

.ASCII
ASCI1
ASCIZ

@
@
3

.ASCIZ

SEQ 0264

QSEARCH TIMEOUT a

DEVICE IS NON-EXISTENT ,@<CR><LF>
DEVICE IS SWITCHED TO OTHER PORT@<(R><LF>
TRANSCEIVER ENABLE SWITCH IS OFFa<CR><LF>

on
01
on
on
on
011
oM
on
015
on

1
115
103
104
104
104
104
101
012
050

106
101
123
123
105
105
105
123
011
116

EMS501:
EMS502:
EMS503:
EMS504:
EMS505:
EMS506:
EMS507:
EMS510:
EMS511:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCI]
LASCIZ

@
o
@
@
o
@
a
3

122
117
122
122
122
123
123
104

105
106
105
105
105
105
105
101

101
106
126
114
103
105
101
124

EMS600:
EMS601:
EMS602:
EMS603:
EMS604:
EMS605:
EMS606:
EMS607:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@READ IN PRESET COMMAND a
SOFFSET COMMAND a
G@RETURN TO CENTER CENTER COMMAND a
QRELEASE COMMAND a
SRECALIBRATE COMMAND 3
@SEEK COMMAND a
QSEARCH COMMAND a
@DATA COMMAND a

IF MODULE, M7686,3<CR><LF>
MASSBUS TRANSCEIVER, M5922 OR M5923
a<CR><LF>
CS MODULE, M7684,@<CR><LF>
DS MODULE, MB685/M7685,a<CR><LF>
DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF>
DEVICE IS NOT AN RM05/3/2, ORa<CR><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)@<CR><LF>

CZRMPAD RMOS/3/2 DSKLS TST 1

ERROR MESSAGE

102210

STRINGS

105

130

2 102237
3 102266

123
040

124
102

6 102322

122

105

4 102274
S 102303
7 102341

8 102360

9
10
11
12
13
14
15
16
17
18
19

1026417
102456
102503
102532
102560
102607
102645
102704
102753
103022
103061

101
105

MACRO VO03.01
120

101
101

104
130

122
120

105

130

120

104
105
123
105
123
105
123
105
123
105
103

122
130
126
130
124
130
124
130
1264
130
117

126
120
101
120
101
120
101
120
101
120
125

123

20
21
22
52

103120
103157
103216
103264

105
123
105
103

25
26
27
28
29
g?

103333
103373
103431
103467
103526
103545

105
122
105
122
101
122

116

123

107

EM1:

EH2:

EH3:
EHS:
EM7:

EH57:
EH65:
EH71:
EH115:

EH130:
EH132:

130
124
130
115

120
101
120
120

EH142:

130
105
130
105
103
105

120
123
120
123
126
123

EH150:

EH145:

EH213:
EH220:
EVEN

11-APR-80 13:58:55 PAGE 29
LASCI]

QEXPCTD

RECEVD

SEQ 0265

REGSTRA<CRLF>

.ASCIZ
.ASCI]

@QSTATUS STATUS
o BASEQ<CRLF>

CASCIZ

QRESULT

STUCKa<CRLF>
BIT(S)a

@SNGPRT

DULPRT

.ASCIZ
CASCII

QADRESSa
QEXPCTD

.ASCIZ

QEXPCTD

.ASCIZ
.ASCI]
.ASCIZ
_ASCI]
.ASCIZ
_ASCI]1
ASCIZ
.ASCI]
.ASCIZ
.ASCII
.ASCIZ

QDRVIYP
QEXPCTD
QSTATUS
QEXPCTD
@QSTATUS
QEXPCTD
QSTATUS
QEXPCTD
@STATUS
QEXPCTD
Q@COUNT

.ASCIl

RECEVDa

DRVIYP
RECEVD
STATUS
RECEVD
STATUS
RECEVD
STATUS
RECEVD
STATUS
ACTUAL
COUNT

ADRESSa

RECEVD

DRVTYPa<(CRLF>

REGSTR
ADRESS
REGSTR
ADRESS

OFFSETa@<CRLF>
REGSTRa
RMER1
RMER2a<CRLF>
PATTRN PATTRNX

DRVIYP REGADRa
TESTa<CRLF>
REGSTRa
TESTR<CRLF>
PATTRNa
REGSTR
TEST@<CRLF>
ADRESS
PATTRNa
REGSTR
TEST
OFFSET@<CRLF>
ADRESS
PATTRN REGSTRa
REGSTR
OFFSET@<CRLF>
ADRESS
REGSTRa

.ASLI1
LASCIZ
_ASCI]
.ASCIZ

QEXPCTD
QSTATUS
QEXPCTD
QCMPERR

RECEVD
STATUS
ACTUAL
C(MPERR

.ASCII
.ASCIZ
_ASCII
.ASCIZ
.ASCI]
LASCIZ

Q@EXPCTD
QRESULT
QEXPCTD
@RESULT
@ACTUAL
Q@RESULT

ACTUAL
REGSTR FUNCTIONR<CRLF>
RESULT
ADRESS
(ODEa
ACTUAL
STATUS
TEST@R<CRLF>
RESULT ADRESS
REGSTRa
REGSTRa<CRLF>
ADRESSa

CZRMPAO RMOS5/3/2 DSKLS TST 1

md
el
) ol
ad
e
el
—

STRINGS

103564
103574
103600
103606
103620

001140
001136
001140
001176
001140

001142
000000
001142
001176
001142

103640

001140

000
000
000
000
000

103630

103652
e

NOAWVNNWN—=O0V00
NP NS NN =

ERROR MESSAGE

103672
103675
103676
103700
103704

001140

001140
001142

MACRO v03.01

001174

EDI:
ED2:
EDS:
EDS7:
ED6S:

001142

001136

ED115:

ED130:
ED220:

.WORD

SGDDAT,$BDDAT,$BDADR,$TMP(,0

000

000
000
000

000
000

EF1:
EF2:
EF5:
EFS57:
EE138:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0,0,0
0
0, 0
0,0,0.0
0,0,

001142

001142
001136

001136

11-APR-80 13:58:55 PAGE 30

000000
001142

001444

ED71:

LEV

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD

S$GDDAT,$8DDAT,$8DADR,0
$BDADR.0
S$GDDAT,$BDDAT,
0
$TMPO,$TMP1,$BDDAT, $BDADR,0
$GDDAT,$BDDAT,$TMPO,0

SGDDAT,$BDDAT,RMHRO,0

SGDDAT,$BDDAT,$BDADR,$TMPQ,$TMP1,0
$BDDAT,$BDADR

SEQ 0266

CZRMPAQ RMOS/3/2 DSKLS TST 1
103712

2 103712

BUFONE:

2 104716
103712

124
124
124
124
124
124
124
124
124
124

50
51
52
53
54
55
56
57

105652
105675
105724
105745
105765
106025
106057
106101

124

124
124
124
124
124
124
124
124

063
063
063
063

060
061
062
063

063
063
063
064
064
064
064
064
064
064

065
066
067
060
061
062
063
064
065
066

063

064
065
065
065
065
065
065
065

064

067
060
061
062
063
064
065
066

.
.

.
.ASC

b S
S
S
Sy sy Sy Gy Wiy Wiy Wiy Wy oy
SRS
I T
Y
I S S
= 1 L
L
L
S SN
e e
Y O
SN
O e
L
L oS 1 BN I T B
S NI
SIS S
L L Y Yy Y o e e e ey e o e e

105322
105337
105400
105424
1056450
105465
105516
105540
105574
105622

39 105305

065
066
067

.ASC
.ASC

40
41
42
43
44
45
46
47
48
49

062
062
062

064
065
066
067
060
061
062
063
064

L
L
Y

124
124
124
124

061
061
061
061
062
062
062
062
062

e L
e

105173
105210
105234
105261

.ASC
.ASC
.ASC
.ASC
.ASC
.ASC

.ASC
.ASC
.ASC

35
36
37
38

011
011
060
061
062
063

011
011
011

el
L i R
e

124
124
124

066
067
061
061
061
061

063
064
065

PP EEPEEPPPEELIEEIBIDEDDD

32 105056
33 105110
34 105142

124
124
124
124
124
124
124
124
124

.ASC
.ASC
.ASC

Lo uwuununnumnnm n (Ve X RV XV X X
X
XY XV YV XV XY XY XY X7 XY XY X7 X X
X7, )
OIOIIOIIOIIOIYY 'a) OO OIOIOIIOIOIOIOIOIDIOYDIIOINOIOY
O

104406
104451
104513
104557
104606
104654
104723
104754
105013

.ASC

23
24
25
26
27
28
29
30
31

123

055
011
011

[]

124
124
124
124
124
124

104126
104156
104201
104233
104276
104342

124
124
124

055
061
062

17
18
19
20
21
22

14 104006
15 104041
16 104074

114

[

055
124
124

.ASC

[

11 103732
12 103750
13 103771

HELP:
.ASC

[)

200
200

.BLKW

258.
258.

.=BUFFER

7 103712
8 103712
9 103713

10 103714

.BLKW

BUFTWO:

11-APR-80 13:58:55 PAGE 31

BUFFER:

STRINGS

) 2. 2.2.2.2.0.2.0.0. >

ERROR MESSAGE

MACRO v03.01

aLIST OF

a
all
aT2

T3
aTé
ars

aré
al?7
ario
arn
ar12
ari13

TESTSa<CRLF>

=a<CRLF>
TRANSFER TEST@<CRLF>
CTOD TESTa<CRLF>
MASSBUS INITIALIZE TESTa<CRLF>
CLEAR STUCK ACTIVE TESTa<CRLF>
TRISTATE TRANSFER TEST@<CRLF>
REGISTER SELECT TESTR<CRLF>
DRIVE TYPE TEST@<CRLF>
DEVICE AVAILABLE TESTa<CRLF>

arls
ar1s

HOLDING REGISTER TRANSFER TESTa<CRLF>
CONTRO! STATUS #1 TRANSFER TESTa<(CRLF>
ERROR REGISTER #1 TRANSFER TESTa<CRLF>
CLEAR OFFSET STUCK ACTIVE TEST@<CRLF>
OFFSET REGISTER TRANSFER TESTa<CRLF>

ar2l
ar22

CONTROL BUS PARITY GENERATION TESTa<CRLF>
RMDA ,RMDC FAULT TEST@<CRLF>

ar2é
aras
al2é
argz
aT30
ar3i

DESIRED CYLINDER TRANSFER TESTa<CRLF>
ILLEGAL REGISTER TESTQ@<CRLF>
RESET GO BY INIT TESTQ<CRLF>
DIAGNOSTIC MODE TEST@<CRLF>
MOL TESTa<CRLF>
WRITE LOCK TEST@<CRLF>

ar3é
ar3z
aT40
T4l

LAST SECTOR, LAST TRACK TESTI<CRLF>
RMDA COUNT TEST@<CRLF>

aT43

WRITE GO TESTa<CRLF>

aT1é
ar1z
arao

ar32
al33
al34
T35

are?2
arTés

al4s
aT46

arsz

also0

alsl
al5?
ars3
al54

“16})

alsé

ERROR REGISTER #2 TRANSFER TESTa<CRLF>
SERJAL NUMBER TESTa<CRLF>
CONTROL BUS PARITY DETECTION TESTa@<CRLF>

DISK ADDRESS TRANSFER TEST@<CRLF>

DRIVE FAULT TESTa<CRLF>
SEEK ERROR TESTa<CRLF>
PIP TESTa<CRLF>
EBL TESTa<CRLF>

RMDC COUNT TESTa<CRLF>
LBT TESTa<CRLr>

COMPOSITE ERROR TESTa<CRLF>

BRANCH MULTIPLEXOR TEST@<CRLF>
SET/RESET GO TEST@<CRLF>
END 1 RESET GO TESTa@<CRLF>

SET PULSE TEST@<CRLF>

SET/RESET 1VC TESTA<CRLF>

SET LSC TESTa<CRLF>
DECODE TEST@<CRLF>
SET/RESET VOLUME VALID TEST@<CRLF>
ILLEGAL FUNCTION TEST@<CRLF>

OCCUPIED TESTa<CRLF>

READ IN PRESET TESTa<CRLF>

SEQ 0267

58 106131

124

SYNSN
N

RRRRRRRRRR

K
5
11-APR-80 13:58:55 PAGE 31-1

P49
« COIIOIOIOIOIOIOIOIOIOIOIOIOIINDIOIOICIOIOIOVO
g g g B B o Bt St B
g B
g (g Bt B Bt g Bt By ot et g B B S S B Bt St e By g (g g g o St Bt gt bt Bt
Y Y Y Y Y Y Y S Y Y S S
Y Y Sy S Siby Wy WY WDy Wiy Wy Wiy Wby WPy Py Gy Wy Wi W Gy Wy WY Sy Wy G S P VR S S,

ERROR MESSAGE STRINGS

MACRO v03.01
> P 2. 2. 2.2, 2. 2.0.0.20.2.20.2.2.2.2.2.2.222.0
).
wn [ N e X T X T XY XY XY R AT X XY N XY XY N
XV XV XV XV XV XV XV, Y Y,

CZRMPAQ RMOS/3/2 DSKLS TST 1

.ASC

S (g et gt B B S B S By Bt (g
Ll
Tl
L
T T Y Y Y T

= = =
8
ANV NN
Hni=niHun o
g—n\nwOV\

RSOSSN
NG SO0

and

b wud

e
d

b
wd mnd

b e
h o

ek e

i
e
—

b ad

RARNZoIRINGRAC28Y

—d wd el ol wed cnd aud

b ol wd

b cmd

b ——d

-ASC

0002

ars7
aT60

RIP/RMOF TESTa<CRLF>
RMDA/RMDC/RIP TESTa<CRLF>

alél

OFFSET COMMAND TESTa<CRLF>

ar62
aT63

RETURN TO CENTER TESTa<CRLF>
RMDC CLEAR OFFSET TESTa<CRLF>

aT64

EBL CLEAR OFFSET TEST@<CRLF>

aT65s

RUN AND GO TEST@<CRLF>

aT66
aT67

ar70

SET JAE TESTa<CRLF>
SEARCH, SEEK, READ, WRITE TESTA<CRLF>
INVALID TRACK/SECTOR TESTQ<CRLF>

ar73
alz4
al75
aT76
al7?
aT100
aT7101

SET RMR TESTa<CRLF>
PGM STATUS CHECKa@<CRLF>
DVA/DPR STATUS CHECKa<CRLF>
PORT REQUEST TEST, PART 1a<(CRLF>
PORT REQUEST TEST, PART 2a<(CRLF>
PORT REQUEST TEST, PART 3a<CRLF>
RELEASE TEST@<CRLF>

arzil
al7?2

INVALID CYLINDER TESTa<CRLF>
SET AOE TESTa<CRLF>

art102

WRITE ATA TESTa<CRLF>

aT110
aT111

SET WLE TESTa<CRLF>
EXCEPTION TESTa<CRLF>

aT103
aT104
87105
aT106
al107

RESET ATA BY GO TESTa<CRLF>
UNIT READY ATA TESTa<CRLF>
ERROR ATA TESTa<CRLF>
REGISTER TRANSFER ATA TESTa<CRLF>
P SET ATA TESTa<CRLF>

aT11?2

aT113
ar114
ar11s
all1é
all17
agfg
<

RECALIBRATE TESTa<CRLF>

SEEK TESTa<CRLF>
SEARCH TESTa<CRLF>
SEARCH TIMEOUT TESTa<CRLF>
DATA COMMAND TESTS (1)@a<CRLF>
DATA COMMAND TESTS (2)a<CRLF>
DATA CO-MAND TESTS (3)a<CRLF>

SOPERATIONAL SWITCH SETTINGSa<CRLF>
o
ad<CRLF>
aSWITCH
USEa<CRLF>
fe————
@<CRLF>

8
a
a
a

a
a
o
]
9
a
o
]
9
o
]

200

15
14
13
12
1
10
9
8
7
6
5
4
3
2
1

HALT ON ERROR@<CRLF>
LOOP ON TESTa<CRLF>
INHIBIT ERROR TYPEOUTSa<CRLF>
a<CRLF>
INHIBIT ]TERAT]IONS@<CRLF>
BELL ON ERRORa<(CRLF>
LOOP ON ERRORa<CRLF>
LOOP ON TEST IN SWR<7:0>a<CRLF>
TN128a<CRLF>
TN6LB<CRLF>
TN32a<CRLF>
TN16a<CRLF>
TN8a<CRLF>
TN4R<CRLF>
TN2a<CRLF>

TN1a<CRLF>

SEQ 0268

MACRO v03.01
——

n—
nann

ADDWO

120254
000000
000400
001000
004546
000010
000001
000002
000004
000010
000020
000040
0C2100
000200
000400

CNSLO1
CNSLO2
CNSLO3
CNSLO4
CNSLO5
CNSLO6
CNSLO?7
CNSLO8
CNSLO9

CNTCLR
COMMA
CONT
CR
CRLF
CYLMSK
DBCK

062267

SEQ 0269
103666
103600
103606
103620
103630
000020

071514
071532
071534
071536
071516
071540

DBEN
DBL
DCK
DDISP
DEBL
DISPLA
DISPRE

DLT
DMD

DPE
DPEHI
DPELO
DPR
DRQ
DRVCLR
DRY
DSWR
DTE
DTO
DULPRT
DVA
Dv(C

—

2266
3431

LMNSTA

CNSLOO

062234

EMS16
EMS17
EMS2
EMS20
EMS21
EMS22
EMS23
EMS24
EMS25
EMS250
EMS251
EMS252

EMS253

001000
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400

PONL—=MNONONONY

ACPUOP

176700

ABASE

ACDW1
ACDW2

SYMBOL TABLE

11-APR-80 13:58:55 PAGE 31-2

ny
o

CZRIMPAD RMOS/2/2 DSKLS TST 1

EMS254
EMS255
EMS256
EMS257
EMS26
EMS260
EMS261
EMS262
EMSZ27
EMS3
EMS30
EMS300
EMS301
EMS302
EMS303
EMS304
EMS306
EMS307
EMS31
EMS310
EMS311
EMS312
EMS313
EMS314
EMS315
EMS316
EMS317
EMS32
EMS320
EMS321
EMS322
EMS323
EMS324
EMS325
EMS 326

EMS327
EMS33
EMS330
EMS331
EMS332

072301
072357
072426
072473
072551
072632
071613
072673
072737
073016
073063
073141
073220
076122
076160
076224
076257
076312
076353
076415
076445

073276
076501
076532
076571
073355
071662
073421
076634
076652
076675
076722
076733
076742
076756
073501
077017
077034
077100
077136
077167
077216
077244
077265
073552
077305
077325
077345

077365
077404
077424
077435
077445
073632
077453
077472
077522

Par Puurd

EMSS50
EMS500
EMS501

074514
071760
074554
061
Goear G

EMS4?7
EMS5

Gtarr GG

077540

EMS333

EMS334
EMS335
EMS336
EMS337
EMS34
EMS340
EMS341
EMS342
EMS343
EMS344
EMS345
EMS346
EMS347
EMS35
EmMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36
EMS 360
EMS361
EMS362
EML363
EMS 364
EMS365
EMS 366
EMS367
EMS37
EMS370

NOOOOOOOO

SYMBOL TABLE

MACRO v03.01

CZRMPAQ RMO5/3/2 DSKLS TST 1

4623

M5
11-APR-80 13:58:55 PAGE 31-3
065676
065716
063732

065736
065762
066002

066022
066046
066064
066104
066122
063750
066146
066164
066202
066222
066242
066256
066274
066306
063766

066324
066344
066360
066376
066412
066434

EMS371
EMS372

EMS373
EMS374
EMS275
EMS376
EMS377
EMS4
EMS40
EMS400
EMS401
EMS402
EMS403
EMS404
EMS405
EMS406
EMS407
EMS41
EMS4L2
EMS43
EMS44
EMS4S
EMS4L6

063516

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
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT244
EMT245
EMT246
EMT247
EMT25
EMT250
EMT251
EMT252

EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261

SEQ 0270

064056
067300
067316
067334
067352
067374
067414
067434

067464
064076
067500
067516
067534
067546
067576

EMT262
EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270
EMT271
EMT272
EMT273
EMT274
EMT275
EMi276
EMT277
EMT3
EMT30
EMT300
EMT301
31
EMT
EMT3?2
EMT33
EMT 34
EMT35
EM1 36
EMT37
EMTS
EMT40
EMT41]
EMT42
EMT4S
EMT44
EMT4S
EMT46
EMT4L7
EMTS

070770

071006

071024
071050
071066
071104

064240
071120
071144
071170
071206
071224
071242
071262
071300
063544
064252
071324
071350

EMTS50

EMTS]
EMTS2
EMTS3
EMT54
EMTSS
EMT56
EMTS7
EMT6
EMT60
EMTE

070744

EMTE2
EMT63
EMT64
EMT65
EMT66
EMTG7
EMT7
EMT70
EMT71
EMT72

065150
065174

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO Vv03.01

EMT73
EMT74
EMT7S
EMT76
EMT77
ENRGDT
EQUALS

000002
000050
000052
000054
000056
000060
000062

SYMBOL TABLE

065220
065240
065250
065262
065276
063510
062132

ERR
=
ERRNMB
ERROR =
ERRTYP
ERRVEC=
ERTYOO
ERTYO1
ERTYO2
ERTYO3
ERTYO4
ERTYO5
ESRC
=

040000
054670
104000
054046
000004
054676
054704
054714
054723
054731
054734
004000

FMT16 =
FNCDTB
FNCMSK=
FO
=
F1
=
F2
=
F3
=

010000
062752
000077
000002
000004
000010
000020

FER

= 000020

Fé4

= 000040

HCE
HCI
HCRC
HELP
HT

= 000200
= 002000
= 000400
103712
= 000011

GETBUF
001332
GO
= 000001
GTSWR = 104407

IAE
=
IDXMSK=
IE
=
ILF
=
ILFO2 =
ILF24 =
ILF26 =

002000
000077
000100
000001
000002
000024
000026

ILF30 = 000030
ILF32 = 000032
ILF34 = 000034
ILF36 = 000036
ILF40 = 000040
ILF42 = 000042
ILF44 = 000044
ILF46 = 000046
ILF54 = 000054
ILF56 = 000056
ILF64 = 000064
ILF66 = 000066
ILF74 = 000074
ILF76 = 000076

ILR
=
ILRG50=
ILRGS2=
ILRGS4=
ILRGS6=
ILRG60=
ILRG62=

N S
11-APR-80 13:58:55 PARE 31-4
NOTAVL
NOTPRS
NSA
=
0cC
=
OFD
=
OFFSET=
oM
=

ILRG64=
ILRG66=
ILRG70=
ILRG72=
ILRG74=
ILRG76=
IOTVEC=
IPCKO =
IPCK1 =
IPCK2 =
IPCK3 =
IR
=

000064
000066
000070
000072
000074
000076
000020
000001
000002
000004
000010
000100

ONES
OPE
=
OPI
=
OR
=
PACACK=
PAKACK=
PAR
=
PAT
=
PCLOCK
PCOUNT
PDA
=
PGE
=

LBC
=
LBT
=
LCLOCK
LCOUNT
LF
=
LODEV
LS
=

002000
002000
055236
055306
000012
062675
000004

PHA
=
PIP
=
PIRQ
=
PIRQVE=
PLCLK
PLFS
=
PLSTP

IvC

= 010000

LSC

= 004000

MCLK
MCPE
MDF
MOPE
Ml

=
=
=
=
=

LST
= 000002
LSTOP
055350
LSTRK
001330

MIXED
MOC
=
MOH
=
muL
=
MRD
=
MR1AAA=
MS
=

MSC
=
MSDRVS
MSE
=
‘MSER =
MSGDRV
MSHELP
MUR
=
M
=
MWP
=
MXF
=
NDTMSK=
NED
=
NEM
=
NOP
=

004000
020000
000100
000400
000004

063062
000400
020000
010000
002000
051401
000040

000002
062653
100000
000200
062667
062150
001000
000010
000010
001000
115760
010000
004000
000000

PGM

PRO
PR1
PRZ
PR3

PR4
PRS
PR6
PR7
PS

062732
062715
100000
100000
00020V
000014
000001

063122
020000
020000
000200
000022
000022
000010
000020
055220
055306
000400
002000

= 001000

SEQ 0271

RMAS =
RMASI
RMASO
RMBA =
RMBAE =
RMBAEI
RMBAEO

000016
001350
001424
000004
000050
001402
001456

RMBAI
RMBAO
RMCS1 =
RMCS1I
RMCS10
RMCS2 =
RMCS21
RMCS20
RMCS3
=
RMCS3I
RMCS30
RMDA
=

001336
001412
000000
001332
001406
000010
001342
001416
000052
001404
001460
000006

RMDAI

001340

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
Ré6
=%000006
R7
=%X000007
SADMSK= 000377
SAVREG= 104414
SA1
= 000001
SA16
= 000020
SA2

= 000002

000200
020000
177772
000240
055244
002000
055354

RMDAO
001414
RMDB
= 000022
RMDBI
001354
RMDBO
001430
RMDC
= 000034
RMDCI
001366
RMDCO
001442

SA4
=
SA8
=
SC
=~
SCOPE =
SCIMSK=
SCO
=
SC1
=

= 000040
= 000100
= 000140

RMDSI
001344
RMDSU
001420
RMDT
= 000026

SC3
= 001000
SC4
= 002000
SEARCH= 000030

= 000000

=
=
=
=
=

PSEL
=
PSTOP
PSW
=
PUTBUF
PWRVEC=
QUES
RD
=

RDCHR =
RDLIN =
RDOCT =
RDY
=
READY
RECAL =
RESPEG=
RESVEC=
REX
=
RG
=
RGDTPT
RH
=
RIP
=
RLEASE=

000200
000240
000300
000340
177776

002000
055342
177776
001406
000024
062141
000070

104411
104412
104413
000200
007152
000006
104415
000010
010000
040000
063062
000072
000020
000012

RMDS

= 000012

RMDTI
RMDTO
RMECT =
RMEC1I
RMECTIO

RMEC2 =
RMEC2I
RMEC20
RMER1 =
RMER1I
RMER10
RMER2 =

RMER2I
RMER20
RMHR =
RMHR]I
RMHRO
RMLA =
RMLAI
RMLAO
RMMR1 =
RMMR11
RMMR10
RMMRZ =
RMMR2I
RMMR20

001360
001434
000044
001376

001452

000046
001400
001454
000014
001346
001422
000042

001374
001450
000036
001370
001444
000020
001352
001426
000024
001356
001432
000040
001372
001446

SC2

000004
000010
100000
100004
0037

00010V
000200

= 000400

SEEK
= 000004
SETOM
055512
SETVW
055370
SHUT
055642

SIZCLK

SKI
=
SNGPRT=
STACK =
STANDA
START
STKLMT=
STOP

SWR
SWREG
SWO
SW00
Sw01
Sw02
Sw03
Swo4
SWO5
sw06
SW07
SW08
Sw09
SW1

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

054760

040000
020024
001100
006074
004626
177774
001534

001154
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002

TSTQUE
ST
ISTI0
1ST100
TST101
1ST102
TST103
1ST104
1ST10S
1ST106
TST107
ST
TST110
TST111
TST112
TSTI13
TST114
TST11S
TST116
IST117
TST12
T1ST120

001462
007306
012572
035462
035614
036004
036206
036334
036540
036670
037064
012656
037262
037540
0460044
041436
043164
045344
045724
050104
013116
052372

TST14
TST1S

014246
014346

T1ST13

013464

TST44
TST4S
TST46
TST47
1STS
1ST50
1ST51
T1ST52
15753

02502C
025400
026110
026406
010300
027006
027242
027450
030302

1ST55
1ST56
1ST57

030756
031170
031364

TST43

TSTS54

024650

011364
031544
031762
032130

1ST64
TST6S
1ST66
1ST67
1517
15170
1ST71
1ST72
1ST73
1174
1ST75
15176
1ST77

032470
032656
033106
033324
012434
033552
034022
034230
034520
034746
035054
035200
035330

1ST63

TYPBN -

A imimsm

$DDWo
$ODWS
$DDW6
$DDW?
$DEVCT
$DE /M
$DOAGN
$0TBL
$ENDAD
SENDCT
SENULL
$ENV
SENVM
$EOP
$EOPCT
$EOSP
SERFLG
SERMAX
$ERROR
S$ERRP(

nuwnwannnn

$DDW3

SERRTB

$FATAL
$FFLG

SFILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=

$RDSZ = 000010
SRESRE
055746

$HIBTS
$HIO0CT
SICNT
$ILLUP
$INTAG
SITEMB

032354

104406

001252

SERTTL
$ESCAP
SETABL
SETEND

030554

1ST6
TST60
TST61
1ST62

SMAMS1

054740

SRMO3
SRMOS

054745
054752

$TKCNT
$TKINT
$TKQEN=
$TKQIN
$TKQOU

060040
060050
060047
060042
060044

IST
= 010000
TSTNMB
054666

010150
023500
023764
024246

$DDW1
$DDW2

SLF
SLFLG
S$LLCSR
SLLVEC
SLPADR
$LP(CSB
$LPCSR

TRTVEC= 000014

1ST4
T1ST140
15741
15142

TYPON
TYPQOS
uBuUSQS

106405
104401
104402
106404
104403
062201
040000
000007
020000
060000
000001
000002
000004
000100
001530
000040
000050
040000
010000
004000

SEQ 0272

177400
020000
001114
040000
000400
010000
001000
002000
004000
000014
001526
000060
000064
000034
040000

TYPOC

nunnnn

TADMSK=
TAG
=
TAGADR=
TAP
=
TA1
=
TA16
=
TA2
=
TAG
=
TA8
=
TBITVE=
TIME
TKVEC =
TPVEC =
TRAPVE=
TRE
=

000020
000040
000100
000200
000400
007000

TYPDS
TYPE

=
=
=
=
=
=

020000
040000
100000
000004
000010

014672
015404
007616
0
0
0
0
0
0
0
017526
010000
020014
020330
020620
021336
021650
(22142
022464
023024

SWé
SW5
Sw6
SW7
SW8
SW9

=
=
=
=
=

TST16
1ST17
1ST2
1ST20
15721
15782
15123
1S126
15125
TST26
1S127
1ST3
1ST30
1ST31
1ST32
TST33
1ST3,
1ST3S
1ST36
1ST37

SWi3
SWi4
SW1S
SW2
SWw3

= 002000
= 004000
= 010000

[%]

W10
SW11
SW12

B 6
11-APR-80 13.58:55 PAGE 31-5

o
"

SYMBOL TABLE

MACRO v03.01

CZRMPAQ RMOS/3/2 DSKLS TST 1

S$LPERR

SLPVEC
$MADR!
$MADR?
SMADR3

001306

$MADRS
SMAIL

001222

$TMPSG

001204

. ABS.

110342
000000

ERRORS DETECTED:

$TPFLG
$TPS
$TRAP

= 000121

001°66

001173
001164
061400
$TRAP?2
061440
$TRP
= 000016
$TRPAD
061452
000
001

VIRTUAL MEMORY USED:
55280 WORDS
( 216 PAGES)
DYNAMI(C MEMORY AVAILABLE FOR
69 PAGES
CZRMPA .BIC,CZRMPA/(-CZRMPA_DOC, (ZRMPA,SYSMA(/M

$TSTM
$TSTNM
SITYIN
$TYPBN
$TYPDS
STYPE
STYPEC
$TYPEX

001104
001116
061224
056004
056060
056532
056744
057064

$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECTI
SVECTZ2

056330
056344
056304
001234
001110
001246
001272
001274

$XOFF = 000023
$XON
$XTSTR 057100
$$GE 14= 000000
$$5w08= 000121
$OFILL
056527
.$X
= 001100
—

$TN

$7P8

aY)

060046
001160
060120
001174
001176
001200
001202

$TKQSR
$TKS
$TKSRV
$TMPO
$TMP1
sTMP2
$TMP3

SEQ 0273
Q

TABLE

C
6
" 1-APR-80 13:58:55 PAGE 31-6

SYMBOL

MACRO v03.01

CIZRMFAQ RMOS/3/2 DSKLS TST 1

x)V.S673T—t1V40&232TL.oR5”V791TV824691TI.o302R88PVIT77“067.NI2”5V55AFTI65.0N““T[o4n92NA051eT]W2wo1N59TP14V73“T[%Po1292o7P)V7=o08A)N[3TT9o819RW7P1I5“V20NTeoQ081I1N|PI63V993TI9eIo51R24“NIQIe4N38/13oI[PV2~VTI&&VTo9VMOo-ARI)]N(No&—N%M)J-|OaV—VIMi-aVMV—OnRIM11WARaoeV—NI—AIy9goVONo¥«o-1w&Y.Yo[08LJoTXWYoT-[—o“g®.X.%“a%..u.o.&o.%l“.o.l.%o.l.%o..e4l..%1o..1l..%1.e36l0.e%l(11,6ol].o(l1.%]LlL4.aRl

[0A1)xAXL-2OOo3®ICNWD~33yO—O5VmVB)VMreNR1067QO=~MNIILe'VLo113O@f0r=MOI—IO“l6L40INIf%mO59ND*NRI5IWlMfJ5Jw07”—LZA7I*INlvL*:n2W1A.TVOOnIJI|0I5WYV27WE.LAVINN.|[4f3Y*KXTG76OOOJlf\L.%7JV7S29LAim.nsX£9f“uV82M*NBT-A.iGN]%]4QSJ.L91OafOFif.9_y-f77MA«SlJ7wNl4WJ%<8O*47-P9VOSP712.99OM.i0|IfVRNS%}83&77=?e3luI(12--2WWCMMk3U|'724q%4fOO1ZA'*7%93%lNA=%KY]LSA?{[|foI.—N7N5OVWNORINOlC9MNX4OQH—XINW£*VJMANEMv[]TfWTBCNLQ.&YV}OS1lIXO]V.O51NWNrYsHRXnVXSM—fx—Fi\OA!O>>‘[[]1Wo(2~Sf7IT%ifl-.T?7”%.W1H~¥.u%t,#&.““.&“&M%66%P-.OOIHO6%L6HV0046%«%O6%PO.HO66I%O0%H.LV%MO%6O6%OnH6TV0%w%66IOO%,H6L6O%H%6%SNMNO%[”baV]
TABLE

(CREF

vO1-0S

MACRO v03.01
)

NDGOIeRE-IoAS=NITL 380W8RT 5-5N 2DPM2O0A9U2R
][RARIBRADRNLPOI RN!R)gIRN F!]j SERA3R[

CROSS REFERENCE

CZRMPAQ RMOS/3/2 DSKLS TST 1

E ETEEDOXEXEMEMEXEDRERA:UA NB V=TOrO

YE EY EYRN N ERERNRE R ESEXE
NYEE "XXEE XEEEERFEEFEE EE EE XR[
N N RR RNE E NE E E LR R[

>4 =W SO

XVPM)VVIWN)]eAoVVeOeT—T-l)eVoSRNTy7lDeVaLoWT1lIOrYVoNTTlAnNNNoITTNlIOVWToUYGSSlLFooTOIWRlD1VaNTRnTSOdoJVNNoVTnoASTlWNeooATLlSPNT- oEAToJQNlYNRLTVNdTTeIdAroVNaTTnNAOdooVSdTOTIooNNNTTAIooNVNlTTI(IeRQoNaoTOneIIVdOVALTNSo&o&[[T«lOOTRVVIINRWNeBTQoVORV—USI)NgTAIVN0IoNV—oIDITro0RNYV-IegTorXOWNI(eT@|[00=MpR—ArOI—0—oI~ST=3r-ASoex—Y—ogo-T[TYXNoeNYooTlYNoeeYNoeNYleYooNdTPoYYaoYelYNXooeYTe(oeTNYooTlYNooYe=TNYNlooTTNNeeooleTYNYoodAeI eTYYoooelYYLooae—l[[oo0SoM§e])—&-)Vl0TIVkVORDTVVVSL2g—])),ToVVUtoVVGTTNeUTTSlOIVVVNV%-TV4TXoTTlSDoT]V0VVo1TTTMkTlI0QAVVXL(aV94oTTVTTI0dIAVVNVoVXoo7TTTTltloI~|VVLVTLoVo%UTTTlOlbNVVoeVoWN2TETTdol73TlVVoaWaVNV”Tn1TTTlLdld0fNVoNNWe(4TTOPTT7llRE1VNNoVPWToToTTl]WINVJeVNEJon2TdNlNTAdrlTTVoTLVVean3WWTPNonNTl17dPNOD EO]dJTVLVoNloN‘EYoQTTo]llWNWPNVWoN3ooTTITQllAlNoo(NTeNoNo5aMVToTNTnllLTBIWdTooUTaeo6noTTP1aNooldloIDIVPVdTNEVoaVVoT4oQNTP-TToQWTldTlNIINVool—oVQLVLNITGoTaoPoIlV|nooldVVVVIIIIRoVTIRV6-e[V—RoRt]NoaVVoVQoowIoVaaoWoT-Tl7nVlelNLdI[Oooo]V—TooaaTYnanNTnTlodlodgVVOoo—aVePToRoeQTVgIollaoTVVVV[g?aoor\-YnLllLFII[dAIT—Y(oaaaLaLL-nN(V[YoaQNOlAAln—lVITdLoandl okg—dY—¥oNNlPVNNeoo¥oXlgloelVooooel-lloNXoaodlNYdrXooeooollYNlroaoodOlNroooodlOTNYooaordnldONaooapondnllYNNaoooonNlnOddlNoNooedolOPYNooooollMNNYeoosoO¥lllPNYNNYeoeeooeooPYO=llTXlNYPooooelOlPYNYYPYNooooaoL=dlYOTYYoeY0ooLoNLkPXYlolO[l[[oo0
——
————

0
6
11-APR-80 13:58:55 PAGE S-1

SEQ 0274

[o-t«

QetrO)7.A£DEGI*LOPS$VY\A)*oVOANONNOOON
a—uo-[nT-e—~3wmOw-nV]o-[—N.Cf4)Q—T1DssXOMflOlfrv~Nz\R2Nq630\O7QleTLI.A'Rs~*8n1‘h5NMNMrVr—h=&J.ok657On.N0I,MD'hk’NT81@9¥H4ah.lIL.I|aO72m2KM7O"¥O[0IN)uVWeN&483OmOODR)Si'—N13E9f5AOfrT?&>l798%Rl=P9M=V~—V~hDO3v=l&ND7T5T7%>#'x>~AvXOE3VU31.9>X?ZNaCNlGV9W6W5'7J=J%OMzM:tEIIr?N4ZZ2.5P36D-I@M:|sGNK%\57\EO4TJ054«I*'NMGA8A8NnL93SQOCf9C35WM*%D30f(LNJPKiIO]E87i3&—92*YT~DLMOf'F5832F1OE.I7PfN*WSGG8610O1B5S3irD:mAJCIW6789oW$42)’t«~OL7LCK858—Z6VS48L']LQ—A.M.*8\17X*36OOIQN97«BWWQ9'05[8N‘II4CATOJN12A23965C5A)AVOMBF&@7Q“C122iO®iRIvvs;lQ60N“5I51loeN“3Wssis‘lvo7—8ODlVl8V145s2%“¢*l¢‘9O10'0oWs01IOOO«D5F%NAN%4166OWGOG=6OINW1VOQO91NO91R15ONI“NW1O»NOD57”V0N1NMWI.I"LOOOONN456N3Ah8NNIR~3WONOO97N2W7JN|NVNOV
V9—w ? %-- 2 97-T T-|]—]VIoVTN,T[ooVNN-TTooVVJTTNeTSSVVTT0ooVNVTT)ooNTToTo]VVVN0TNIoVNVTTIoQJWN]TOP[ooVNT0ToQTNTQ0P[NoNWV]TT0ooNVTTQNoTVVTTo)0WoNVQ[TNlIoTQVNTPT0oVQoTeTN0etVooVQsNTNeToTVQ]eT0NoVqaTwe=N0TEoAVVnNTT0Tao1oQ=eQWP]NVQTIVee0QTaINQTVTgQPVoTTNoeTNoToQ[TTP@VVgIo=eTPVQVV(-I=eVTPg—aVlTIeogeQTgVVIegeTQgtVI[geeaQNVTIoeogQNVT
U3YLo|[0 oU1L- TN["]]I a o]! 1o] 8&VTO,VTe e VTMe NTeo —I(OVTJNIToNVTOAVJMTOVEVNOT2ToJVN]ODTVN=TIoNQeTOQNTTeIooNeO NLAWe]QNTIoTNoNeoQ—NINQ0NTIQNVT—ToVTV—OoIVISeQVN~IQQgNPIUVgMIVgMiVgNNIVgAINgNIAO aITIVaTQVi[V[
o-][go—| o we ]! ]1 -o!]O)V—|TNoIVTOeRVNT=WIIONeTDI (VWNIOTSJlV=OI]VoT—I ITo=O|VTXQN|o=MoTVlT4NP(oJe§lOTQNTPMXQNkJTDQoNloT1IoT0§loNoV1TkeoONeTlQWNdToNVdT|TIeoNleTOQoeQleNoQelTWIoNelTOoeNlToVoIleOgNVoIlTgoNelIQVOLIelQVNoTtKULN[ae|nVk
&
&
&
&
&
&
&
o
&
&
«
&
&
N
“
&
8
N
&
&
0
—MON~ - (OVo eYVVOTTe&BVMVTTOVVeTTNNVOTTIoVN¥oTICVQMTWXOI]VVTToVVINT]ooVVoTTl«~AeWONYLTl]oVNT%ToTQMQTIoWJVNlT&[TVVTToTXQDQ&[NNloVWNT&ToeVNolIWNoVlVNOTT«QoNQTMXNIoVNoXT&)VoNeQMTl—®NQNoQT0NlIIooV0NTlaoVVoIT<l«o7oNNaIIdvAVVeITkO&Ioo=IdVa&IVITgaVOVIlgoVoIVgIVlaI&n(VVLoIVl
V[U] [[]] oM1)NN]|eVVVM—]T]XIVVV1eTRTTYIAVVVTTTIIV1VVNTTT7O&IIN(VVVTTIITSo1VVoWRT]I]IV(SNVTO&NIIT’NA|VoNVTTlT2|1ooNVTOoRTTA&WoNlJo(VVNT&T1()ToVQNTRUNTN&e7ooVQLQNtN11T&ToMVWVTYT&[NooVVNNeTT1TIl&OoooNVeTeATQl%)NoNTVQ1QXTOWoNYWVJoWN]TWoVT1WQT]lo&WNVNoWeTT1&IWoa1eoNNTlTVoQNVWNdT]NT&Ooo1VToNdQTOT&TNooNWTTeITTNoT&QWo1VQT&TU¥oTNQWooIeV’VGVo(ooIlT1VOWVTooeNl&VaoVLoMNTNaoe1&TQVIVpooTlae&IVV[OIao1dgVe¥IV[IaggVVe—&VNIIQaL3o[VV«NTiVQa
H
E
N
E
E
N
E
E
E
N
S
N
K
&
&
*
E
E
R
&
"
&
< ["a) 1V]V1TVTV1TVToN1ToVTV1ToNTV1TEQoVN1To(1NV1TV1TN1TW1]V1ToV1T1ANQ1VTV1oV1oT1N1QNV1T1Vl1N1oV1L1LA3L

W5 wn VKE]=&&N«EeR~&e5E&e&&T¥N-%«—B&B&B&«&&&TT«.e-e&&—&P-&e&&&Te&&«&&-&&—¥&—&«r&——-dL

-o-—0Os--—uo—o~unNf”Sl-0-d—aqwndluLemo--oO—Jl8w)-0oofe[-si0.QQaYvOOAlsqo«o--ydO[LusVa[an})dS~aonL-d*dNwLooLoe,1]o0[y%[lo+1rA&R|&E|)m,VNOOOe]—T&(SuVN1]XBTr*eTN&IEIVMVN&ESDETeITAE—LV1TT&&IIIUN~IEA(OVNe&Se®&IIXTNI]INOV1]Ex&IBE—«RoJAVOeNTS&OKIASOSNQ1oNMW]&I[O«YDVAENIT&I[IODIIIVO1RKT%&>&«NERBQ(&OEW&SAL2EY1|KDIVS1&T&LCEN1NIQDW&OO&T[TOXK14CE&&*NN)A1]PEOQBIWOA&«&)ETTRQV1aI—T«&EBUI«TtIJW~eeNOoIT(«ONMQ1~ePNB*DO&IT]«[NOQONe&&Y&O[TAEoI1NMNXI&&&TO|VIVTe&&«&¥))oI1o&aN&I&«IVAB|aeNOV&eN&I&BTMao1AN¥v«I&®]IIIolVNee&N«I%KIITO1‘Mo%Is&&IItIV«BOoNI&&BIII«VO1NUoL&O&&IIN4V[ONBV&&NI&II|o1VO&II&XIII[QMV&WI&*®]IIT[[aI3NNo=V-£«|[L[o
8
[¥a)

vO1-05

)

~aoN->0
~

-—

[o¥]. O5w~ ao0

-—

] ]

(CREF

-—

TABLE

MACRO v03.01

O1~ oU w'
-[O]Lg¥]: ov]
U ]
O w

CROSS REFERENCE

N o x

CZRMPAQ RMOS5/3/2 DSKLS TST 1
6
E
11-APR-80 13:58:55 PAGE S-2

SEQ 0275

L. —
m [a)4

(¢}Y.e

-—

]

OOWE

5=-04

SEQ 0276

CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

9 6
11-APR-B0 13:58:55 PAGE S-3

9-115»
13-204

9-122+

SEQ 0277

9-149«

9-150

10-3

10-30

19-6+

19-7

19=7x

19-7

19-6+

BLF

S=0On

19-5

19-7

19-8

SEQ 0278

3%7WN0M%U&M6%%%“QW
flDGJflWPQSTelNe—=inNON
_N—aaO~Q7aNfO7D:NAx[cN~O3Qi0awS.¥w?MNA.vPv5roA\mOAM—u%eQOe7%nm—BNDe—rNS.—9N3ET.CNJRO.EOYpoO0%L:NW%YVI4.eO4—O2D.*.?yO—“$WJ%HV1fO%3N07\°lOIEK.9DQ%O*E9NGDR5N374.GJT4OVOI3)5-¥c-lNIKNPu72TeA%T.V*J—VWe585NM0‘VN71M9”«P.W-8.—MeN%9Vx°NouRIYw506\I41OS.k*SOn7g02N1%T0—fNa9[iV.l.“...%oJ-.a——V,TaV]o-%V]],o[-aV—E 0~[w1Vn| W4[NV,*Vie—1NosOJNVaOYVDaY.eO[VOaYNVaNY-ON
&x&&&8B ®
—VV—T])LVVToXx,l,)RoNXVTk.VXN—XT[oNNPd7lVVdT%lNeoUeT]l[oV&TkolPW(oFoVlkTooVJo®TNlleTxVooQTlNlVoNTTleoVoNonTTIldeVQaxlNTdIreIaVoTdTOleeQoNlITloogNVIlleTTLYNoIolVl=YYoLo—o[[l00 Y-—o-o-]| ——YoNodY[o-Y—oo-o— LLo-4oo oN oMyoNT o]NXN[O

B3 b ¥ R ¥xB

b
3

*«

«&

J! ]] (K§ ]]
o] - o[) M

«%

2] ad [

®&

&«

o2ONPl

«&

O& N¥

*. .J‘. *fl . %. K.

"
l
N
O
o
~
r
V]VQT0VTTVTWVTOVNTMW]AoQJWYOVToQNN1SNVV]QONTaN.T[aTV1~aVNIaeVTOQ-nV—T [aV]e

nX RB&& "B¥&B xx
'-% '¥®
e
e
P
P
P
T
e
e
®L = T T Pe &BX T T'BB¥ Pe e
V—e
]VTVTVT[L VToW1V&&% TVT[VT8VToVR{ TNTIVTQQWITINT|Po[aVI¥Q1VIQeP NT

1w-]— YVe«[o,YaV—[TTa«V]VTIoS&N[”ValVaY[] ea!10 V]o]YVIR=1[0TyjYV ®NNV[[Va]Y&VaY«|L e
Y—J IO
&O] —woO1e 0o>V1&

¥VO—T]IoVVToVIVOTT[oNNN-TToPVTToOJNTRS]ToNAVNTTOoANNeATToVNTTNIoNJTeNPToNVNTTIoVNTTIIooToIoPVVVRTIVIooNVVTIgFaVAIoOVOgTNVV1YANTaIVaIYIXN0P[|o0NNVNVYVNV—oVV)o]oVNVYIVOeoNVTNo(—odIeVAR["aYVaYo¥oN d]] L o(-x&—) oMd—o}-«LSO-OM<e2N5N—r[9O>¥—c*]-WW-NeMe&—[~o—VaO“Ol«a
VV—V—VVOeOMS[eT-N—P-])]])L[30ooo)VVVOTIVTToTaIWRNNooVrTS¥VVa1e—TANINTIVooN—VVVVTDTTTooIVVNOVVxTT—TT2TR[oooNaNNVoTPPTTTWNTooooNNNVWTDRT1QT1R)|oNNoFVoVQTOTW]INTIToIooFVQVNOxTATNTeIQ1ooTWVIVV]TOToeTWoNVooT0oNOQoo1T]IeNVoIVNVaMT—oTPNOOATIToVooNNVQNTOToIIoTIIN VoVMoVaI~QaNVoeTIVTNVIoVaNOoMTeTIITIoVoVN[T[IOTTaOaQV[VV3aI[eIITPVaaaTVVVVOQeeeIII[V[aaa|TNVV (=) oo-X hooo--o-owoe——0l\ V~V-N&-VN-Loo-«o3——lYlVIVVRIIR[—VRLNN-"OVo4e-a_[o1V9—NY~I-¥-oO[Ea(—aS -)-[[[[——VVV[V~[aaVa-a-¢«cyYcaY[YYg—e)eee)
VVQ¥]][[0oVVTT-oVVTTooVV7TToVT&xSTNNo1WVVITT)[NoTNOTooQN®TIT\oVNTToTVLoT|VIQoNeITVV=xNIIINVQIIWIQVNIIIg[O[QIIQVVIIa¥—O IIaVIVIIQINa||TV [oMp-adV—]A [o-aVN—RIaqO—LVo]
V0O])[DVT-VTVMTMVITVOTNNOT[oWToVTOT oOVQIIN=oOVWQNIIOoINVoOIV\IVNIQIeV—=I [QIV [MoogV}L geOV}~[-yV€—]
CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

I
6
11-APR-80 13:58:55 PAGE S-¢4
SEQ 0279

«&

-«

12-U27#

12=U27#

12-U57

12-US57#

12-U574

12-194

12~U94

12-U94n

12=-U94#

12-v32

12-v32
SEQ 0280

12-U27

12-u2?

OWNAooD«WVOWNDORO8&10&8908O0OROVOVOo~Or—O28MANIN
KPdElTNdiTAdPER.SLXYoiliPdIoaTdPXoTdIiVYhbdEYTNOEdRhGTdBA OV3bnTdWPSIdT7TSdstdmm17mdDmT’AtTdwwwo1sTIw%TIwOTIiiELY

e=W—0—OO-o$F—E&E(ELL,ONor=)rKOPNldI.EOeEn—waN—deEtiIN—X=IoeI2yROIKl]nETeNNXMTos—y,ItEIRKlIXIENF3NL.-KNI*[[SOI|lIuN-yIxN¥L vYR NN WW7sFA][YVTEDOTS—I—OTNeNL]NNFL—nNOI—eONNeiO-SNINISOTOODIOCT[NIONOWNIIOIOVNCNUITNIOICOOAALNUINIW—MNMOOTWO.O[NOLSOENWUNNOOTYMNWSwTONYY--—3yOTOo~s¥RJ<42[[rXNoa--. 3-L-OO——MoT3n0ao0-oNTtT-O®~n<3rSrNXo—OeTO Lo*NteeOeTo0eLi)—--o)"a[][e—}—[do+¢=P)[VaYe-o¥i T-oOM-1-o*][[—}}N—OoN¥-l%NNY—oNoO-«]lcN—VeIeINVlNEYIisRVOin-NegW¥C*leO]2oIONNaoXoNXnOloOtV]oAhNVltoVMOT'~onXOlLVN[OyyNNo—Lg['[R—&VM-olwODaL|aTTlNVV
RvVNY-4VO])VOoIHYN$WRAYIMVNS1ToA1oHNVaOTII9AoVDN12ToL|XNotOTV,xQTN¥SN-oO(PS]—(o w—V]nYOomUaVV1WouoV]aNVgWT]EoNMTVh¥TIARJ[~Nm-aTI]VAaTNIYNaaVVN%IIOyVaoINNTYTOoN[LTN O3OU3-N0E—\3a.z ¥)[0 2Vo1TxVV3-]o[V2NX]aVVI1TI39a-[V(—]I9

WVJ1>-N9«—N~oW]—MteN5=]VKlo}fOFBV3—7NO3V2aT("4[%nINi%oOadoV—1lOV%W/aTVW0XTIanadMNVf)V213bOI7s8TC&WbTiXloOo.OOeVNWWq9mNToT5“3~G—I-N+Nlol[BNor2O5aO%6Po”S|Ve-—TNlT4)aLSo-l4e0[-n0O3wwaavV)%[%o—\0\58OW—ON4-odI%~oC-3eX—sN[lNYo%eOsA8F7Nla?OVNO1oNWIAOar]9OO9o!ulLdNo—NNN:oA5=2a3OVI07WnOlIlEdOvINMN0e7ONO[&m\o4]MIalN"IFUvOaWOo6NOn-=%alN2MlMfaNNIdNVeO8oi“1PC8L%OOla0anND=IWNIV%t9412LIO3OVVO|Nao7~VUNlI54~O00WTvM&LgN[VP-O—W&%W-O—044#3[ oO&40~®0o03&~T1.~NMzXo¢3%LNAOk-—7-oN,Ie—%tOJ[O.GuagCoowVo5,dMaY-O)oO.&¥~X~O“R3T<n]>3NNt[z30o1WOdw0e#-k—ilrL90-—a-¥O*«ndl&9/%f7i9»&”“%WA4CDOXoRO4OL-gU—oWZOrSo-AR—w,NRa)0-0—[.1399L“1N-%xo.—l3|5o—F9aZxoQ[-oo&-O2&9x«¥U]20—Wc2Aw2NgN%e&1o[VOXO-6N-VNX.Nxa]ORVXN.WOIa”m>n]ONMaLoVO[O7l5T0g—xoN>OWa-N¥'AV*N9V”]—IVV&NNNOgNoINaO&r4[[VYa]e

"OREK]RWRSENE.RRORNoARI[—wGAM28a3wSRNS%AR6NB3%I0RAORy.RWM:NWCGSSQ8DIx¥0w..\lUSRaOxLDHRN3EEMWRC—MZITRM2“3S%WSRTySWWZTDISSD7]COVNMSRmVABRIU—xVEOQRAFx>0wO«q-RLXnNx¥nRRNROrXBN.
CROSS REFERENCE

CZRMPAOD RMOS5/3/2 DSKLS TST 1
TABLE

(CREF v01-0S

MACRO Vv03.01
)

K
6
11-APR-80 13:58:55 PAGE S-5

MbLIBx3N,

SEQ 0281
12-W06#
12=Y47
12=-c06#
°

8-19
8-25

-984#

8-19
12~612
=75
12-H6R
12-758
34
-k50

9-7

19-6

12-086+
12-V8Sw

12-796¢
12-a03+
12K 28+

STIMES

5-0#

8-1G+

1038+

13-20+

19-6

19-6+

SEQ 0282

%wm,-n&r,.%%nrnrnmww["a1."a1"m),nQ7wP,WRT63(J2UI3V[2W8YC75“A84“2WI170I11I¢9—I1”=[19N5O1[t0NVN1%y.N1O[MtNMEW1y11].oJlf(iVoY_o~oJM
Q<9eOO[—-w—m..reb—.l]o0w—ur%eeln=d—D.Ooedfn[r.llw—ewiaeW,l0lo,——orreme.%"%Nl.loO—,“w%nr——sda%~=l])LI.Nr=NOr—IomYWtVrVoNYsV1=7S80XO39oo(7>74])(P)SnNW%“72”?8O82O1ON5I%>PA&%DN5399RWO.R.D>209N5P52JQTQEPO”6:9s99RfSGJoN*mmO8JQ4i“P0I0P2IU)TlLyT.3NV3*M11]fOR“.Q*I[WTNwi—Sl“O7&GV442AVO['vYoN7XP00—T9WQ“.x6,YOM6“R87WN72[TSf1%T”H3nCOluE90o”TbY«D2A44231D4.f.7UGe5C7GI&W82[lu.JK2.50%=%Oy332nT]V*AID*DX142W19”5*mUys%7~T83#\4&2nLA])y5w926“80)oTl)ivz07o65727)4soIoIo/87495Tse2W—.N%INNIe”7”8M——TM52571II—N=NI73”‘0%Ml9765tNNA0eNA67O91T424%4—ONNIO|382w7S86O2A|NWW—(X130Y]NQL+—0SDDN—JwNm—3vn8=oO—&yotVOo)OwQ.§AX07%]o—aa@o0W*®*«X])00n07O,V01[Oaa00100mMICG0I]1D]Qae0GoL1oQaQ0.D]Y0[0o.eQpw-)I]ivw>-~e)\)M—
-—

—

-0
—

[AY)

3NoYo»OlNYoeOlNYoe](o VN)OVTw,WVTwVWYTVTNT7NV~T1NVTNWT]ooN17TVTSNoVOWT]oTQNNQNTo[QPWNNTVQNWQVDTQWoWNQTNNOoNV[VIQWo[NQVIQaVTIg[NVT )o«[0 (o)0

WTM TM ® TM % X * &.. * 28n.n
[o3ebol-—katokelanedlLaa-)k O—M~*ONNSBTMNX%OINoNDXROEXOIN&NA&OoNoN®l=o&leOOd—TWOo&eNNdATIeBOloNoxeOlanexdsYaMsPlIiONPl3eTDbo3OlLoAl --—— -—
—
M
N
M
F
A
N
D
O
O
N
O
Y
—
O
A
T
N
O
O
OO
—1oT1o—1L1l VoP—)XVRTYyVOTPVTRVNT=RPUQAA '¥ 70VLI T—OVTOVT0T=xQPNONT0TNRINSOQRNV=TPWVAxITRNNRTBPTWVAP1oNTRoIAVTOYP VPioVNeoVOTeoDINgRB& VeOIgTVRNReIoPeoV @T-[—o S

A8—O!-¥3[-3%-=P401XeeYeb0ool[[Ye-(1oeeYYe]e}olol8l-l%eeeP1eOYYlllool0¢)te)ee=-+eYXYlll¢loooe%eee[-—§.§(e[)+]()[l)-o04oooePRPoAr.-ao—RYao§-&AqblM%o¥Nb-V=I—EsNVV9OO¥NWoN%F)MO=]IIV(Po}oPVTVVONI]V,B—TTT—]OORoNVNFVIV“R&ToTeTOVTAoONTVVSVo8VXNORTQTl[eT]IRoONlVMVVI9VITX¥0TeTNeoN,TOAeNVUoVWU7NOXTSTlNT0tYT—(¢OVPA0OooVooINoV1SQN®-TNTNlTWRlS<I§PTTb7VTMooVNo—%VONoTQTkTLlIPONI[TooOFIoToNNoV9OTNAQT7TlNIl[eTCPloNTNBooTVOSooNW8NNQTTlATTlToOTGPooooCNNON2NVIxTiToOOTTele=NT)ooOoNlNTaVo4NoQWQTNTe=Wl]M(W(PT)dNo]OoNoQVoQWVo7VLRTTIWeTNLll]TOlTOe]OAoooT)AoDVVeMTTQnNMkTNOoeP=[dT[TloVTNQooVaAN9TQNe®Nn—KIoTTe=IdTWIoIWFoOTaFoaN1VV=OPATNToOleNTP)lNNdPQWToIaNse“OTQoVNoOlTIlgNNNONeNTQVVoTVoaQ7AMTINTn3NeOQNloVlIdoTIPoVNIs2VNIVOegbgeTNlaoIPIeOIVaVPII3VVaNOsTV%AoVoaNoTTM-olaIeIlNVTVVoVINOIIalN9VgSnAgNoVIeNlIPdMTVIVTIUa[e6NVaIVeeINOaLoIe3lldAIeo|hVN[[VTNIILQaoL3N[~aVV“"lIl|AQVIlIL[4VQIaLHMH3bR=OAOYNo-oLoM|JVoAAIV}YaNoYVOOIoANVNoU.)Y“Y—IIMo2OXVNo—Rd-IuadarVe)N-aNOIlo:O—VNNlW[ooeNwVT&llOOaaa—lYoNWaPeo3T*MlFOlVslRa>M-&- ndANRoao---)OMO-Rnl][[—Yd—oALonMoZ—eddRY2oeo—o—OAl&M&&1duY-oooW-M-xd««-l]R—Y2k—oaoAnlMQdd2YNeooQt=oMl2t[»@ulMRx--nL1rLYo~AdooLe-o-oo -t-]] ]) N]l——l[L——oL(>&-"o[“N72V1~E6a0oo ov—.[¢wQ-Q-.<oVnuw
Qaw

(=]

o] [«

$TSTNM

5-0#

10=-37+

13-20+

19-6

19-64

19-6+

19-7

SEQ 0284

333m3[1ofoX7N2VQ.0’MooRe)7)lVOyo]aP.No5v0V7o2<2NNT[Ny0o-l«vVe>wOw197l3No5—£VTB13O0l2Io’0Do(%:%V(4R54T2T30I27N1?7VOWETo,0i6W1oA*~ylAI]..o3YKd1UN92($N7£Nhe*SNoF|0VPs4(8E343Tgk.EISAVRSa5)J3\7LT)nJId03Nh3VTs“Ie%9.2o72V%Np.Ilc2VT65—%a—8”M2|0Qn8Id3VUh3T4WA"R3Wa216%oa42nS2NitO%(AoR4*895LLnSV02dNooLLTk8N5NON80INVkLTEIANNRNNANNRVNANoNVl[2TVA]a)7”.3RS”2OE8g\oPlo5RlL4ol5Ro]NAo—o][+5%”1T4O]M(XR%oOlo—3N'l.OooTSlN.Yo-o%l0YNToe[O(9'loR%Nlooyt.e0lTYoo0l%elY]T.oAa9L]o0-t
mnwmwm&nmuw
-

VV—oe
])[VVo1TTRlVVToT11 VWTo7ooVVoKTTk[1VooT4NlTNVoTTQlQRNT1IVaTand8VoINaQTndN6TQooWlN0]Tao¥n[[dVaVL[IanaalVV
&®V—T
X][oVVT VT VT(N]1 TRoVVyT)VT V’TI®_VI[VI [aV
V——)T1VT—,VTN—- TVT VN=OTa[oTI=TQNT0QI1WVIoVI [TLQ1VoIQ§fV
e
NN—VaeTVVrTPNN7YIV3TPNV1¥”TVTMTN:TQNIfQWRN]TVlQWm[0aVI1aVI6aV
a—e
%PRPTnF ®TSEY »TPV

Aa0yN— N—ONMNOAN 5

¥ Rk R X R

L4 ® ¥y RE

R » R Rk

T—e9——R_15T0aQIyO0-L4Y2AL3sIT 47—P5MEeP4OTONPDLFTT2SE2F2LE3E2RTS39IE22og2gl3E9slCs3lY2oE|3L%23%o(V(Y)]P-—R—PRND—TRTA“wSRaPA-0NoRud[TNLDARWoReoR—leoRl—oIRrl—oAlN-aRdreA—l-eLR-a—m—f
a0VAFoN-L]0V[3oTNV¥TOOVWvTxfNVokRTNOTOVT][oNVQxTONOrVoCVBOVQITPW|NgVTxOoT1VAF4gNIVTO¥V3O[NgtV*NYI®gaOg1[V o\]d -[1—Yo(o )o§][b¢
*®r L34 ®r
I4
8
11-APR-80 13:5 8:55 PAGE S-7

u1ON3eu51
wslOqNo.}~O.N

12-7964

12-K28#

% mu an

CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

SEQ 0285

12-7964

mmmmmmmmMmmMmmmm
m

SEQ

mmmmmmmMmmm

12=US7# 12-US7# 12512132

12-U27& 12-U27#& 12-U57

mMMMmMmMmMmMmMmmmmmmmmmMmmmrmm

12-T98# 12-79& 7 12=U27

mMmm

12-T69# 12-T6O%4 12-T98

12=T468 12-169

]

CZRMPAQ RMOS5/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF Vv01-05 )

ALL
AMADR1
AMADR?
AMADR3
AMADRG
AMAMST1
AMAMS?

12~U94#
12-WSS
12=-\05#
12=-kSO¥
5-~0
5-<0
5-0
9-121
5-0
5-0
S-0
5-0
S-0
S5<0

AMAMSS,
AMSGAD
AMSGLG
AMSGTY
AMTYP1
AMTYPZ
AMTYP3
AMTYPL
AOE

S50
5-0
5-0
5=0
S0
5-0
S-0
5-0
L=7764

AENV
AENVM
AFATAL

AMAMS3

APASS
APE
APRIOR
APTCSU
APTENV

5-0
L=-9594
5-0
19-5
19-5

APTSPO
ASWREG
ATA

19-5
5-0
L-7564
12-289

APTSI12Z

ATESTN
ATNMSK
ATNTBL
AUNIT
AUSWR
AVECT1
AVECT2
ADTMO
A |
800
801

802
03
B0«
805
06
B807
08
09
10

8-19

21-71

S5-0
4=-793#
8-74
5-0
5L(-982#4
S-0
8-3#
L=-94(8¥
4(-877#
4-877#

L~8774
L8774
4-877#
L-877#
L8774
4-877#
L(-877#

4-877#
L~-688#
12-895

12-U94#
12~W55#
12- 00

12-v32
12-W554
12-_004

12-V32k
12-x00
12-_00#

4-787

12-697

12-726

19-12#4
19-7
19-12#

19-12

19-12#4

1?-62

19-12#4

12-v12
12-363

12-v43
12-165

12-kS0#

5-0
5-0
5-0
20-4#
5=0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0

5-0

12-véé
12-'74

21-72
5-0

21-73

21-74

8-93
5-0
5-0
5-0
5-0
8-21

9-149

10-1

12-v07

11-APR-80 13:58:55 PAGE S-8

12=-X004
12~c06#

SEQ 0287

12=V524
12=-X704
12=c74

12-V85
12=X704
12-Cc74M

12-vB85#
12=Y47
12-C74H

12-VBS#
12=-v478
12-976

12-W06
12-Y47#
12-g76#

12-W06#
12-\09
12-g76#

21-77

21-78

21-81

21-82

21-85

21-86

12-V97

12-V99

12-W22

12-W45

12-W77

12-wW81

21-60
21-80

21-63
21-83

21-64
21-84

21-67
21-87

12-W06#
12-\09#
12-k50

12-287

21-68
21-88

21-69

21-70

12-821
12-718

}S~ 8 34
-a18

12-887
12-a79

5-0

12-182
12-178

12-181

12-093

12-[94

12-[95

12-099

12-\00

12-\01

12-\02

12-211
12-903

12-529
12-916

12-5%1
12-92¢4

12-;67

12-724
Zz
12-=40

12-732
12-=89

12-813
12->54

-— o < oA o0
i

-— [aV] o[
o] ~N
!

]
(Ve w, o o N o0a0

)WMLg))LLM))iL)L)WL)L)SL)UL)))L)ULMLeL)))WLULbL)GLLsLLe

12-A37

E 2k ak a¥ a¥ o o Nbl'\bbbl\bl\l\b

4-969
4-966

12-;25

4-965
4-931
4-943
4~942
12=;79

4,-886
4£-873
4-939
4-938
4=-926
4=925

4-928
4£-885
4-962
4-961
4-937
4-936

oo
W
n

NTo Jo Yo .To Yo Yo .To Jo To.Jo )
N = 2 (NN NN
N
S HVIWSNININoON

o
&S

EaR aE aF oF o o Nbl'\l\bl\l\bbl\b

[0 Lo Te - To Yo To T
AN NWNNVOW
VO
= NOVO

N0
NV
OO — 0

=759
=772
=771
=770

O~ ~J0O0 000000000000~

=534
~-a29
=761
-738

VIO"NOONW

1
1

=764
=741
=740

COC0000OCOC

BITOS

BITO6
BITO?7
BITO8
BITOS
BIT1

4-698
4~697
4-696
4-695
4=765

7
S-9

SEQ 0289

EaR aF ol oW O o Nbl'\bl\l\bbbb:\

BIT04

4-€99

F
11-APR-80 13:58:55 PAGE

bbl\bi\l\'\)'\)?bbbl\bbl\bb
!

B1703

4-700

~ NNSNNNNN
~
e -]

4-688#4
4(-6884
(-6884
4-688#4
4-688#4
4-6884
4-688#4
L-688#4
4-6884
4-6884
12-255
12-247
4=-739

BIT00
BITO1
BITO2

4688
4-688
4-688
4-688
4-688
4-688
4-688
4-688

(CREF

o
~no

TABLE

CROSS REFERENCE

MACRO v03.01
Vv01-05 )

bbl\bbbf\)l\)l:bbbbbbbbb
!
i

CZRMPAQ RMOS5/3/2 DSKLS TST 1

-872

12->00
19-7
19-6

8-68
14-90%
14-100+

12-k63

CHRCNT
CKSWR
CLOCK

CLR
CMNSTA
CNSLOO

CNSLO1
CNSLOZ2
CNSLO3
CNSLO4
CNSLOS
CNSLO6
CNSLO?7
CNSLO8

12-093
12-88
12-b96
12-m51
12-093
12-g40
12-m58
12-m94

-[95

14=77+
19-7
12-K47
15-39«

12-[96

12-128
12-m54
12-[96
12-944
12-m61

12-\00
12-b85
12-m21
12-m91
12-\00
12-128
12-m65

14-87%

14-1554

12-c58

12-h37

12-291

8-82
9-18
20-10#

20-11#
20-12#
20-13»

20-144
20-154
20-16#
20-17#
9-35

9-50

9-144

20-20#

12-i23

12-\02
12-b87
12-mb4é
12-m93
12-\02
12-163
12-m89

12-+85
12-b90
12-m48
12-m95
12-937
12-m21
12-m91

12-185

12~ 04

20-21#

SEQ 0290

W) W W W W A

CNSLOO

-.—J—w——.——.T..e_..-.e.Te.ee.e—1-fF-—NNMMRMMMMN[a¥1aVN]-

wON3NLJc3EQ9OaCL2emkvdC.UL~?efdOVVh%3—eD.ef0VDVlMlh.U8-4LeDDL25.V‘QeC{~.P!38LIx—O-)oJ]m2ULIKkTC6R~0OPOfNxOlOo9BleV62I1P’¢PP45I¢b92IMC1OCND)C71LQGIGSJIOXKTIVKN*MSW1N0wIXCPO>P2OZDNI~QR|R1>9IUeISOtIV02LZ@QUV~[+(X.9oMS-lIZNZoL4[Of\lP\-l\Q”JJMlVaJOy5AOACwr*S-WDWQOVe8~D=VlOY~M~VDK=OOLoROO0IlWDe—nOlIWWNNfXMMeOnE=lIMEl7NEXN[0WULICkDIMO[LGY~CC[—wyO—MONN|N——OM0~IIoeNTNODeM—IY~lSUMVaOT:—IONMONABI3rNVTAR—iAOM—~LUMI0MNMN-On3I—UeN[NdFe—NeaY——e-m——mNM0RL[3e.—R~Lr%lwNW~—FVQa—KNYOlg0IVWo\I]O~e—ANeLiVr—=04MaOJQ—N[SO@OgNNZ—4eV0D|EO[NToW¥0—ONvTLo==VIRWNNOOT—S—ooNVO7T—=eoyoNIVMVTT=WeooNVVTYTN==—yPooAIVNV—T=TNOPNTEooFQWVTTP=PyTRVooN—eT1NMToRINM1VeT=MoNOUOT]eI=eEooUVYNT-eT—OPooNSNOLrTTIYAVV—TO=eTNMTOorVNTTeNeooNTT=IeN—eTDooWVVONeTVOeOTNPooVNVNTTTNIWeeNNooNOeTNIePAooMNVVTPT=ePooMNAWIWTAYF=eAoOoUNTPTQeV—eTR[IN0oVVcATTO¥NeooNuVVR0PeTIeX([IIoeo~VVOMTTeCPooVV~NITWPeTTZeiooQR0NVVIIORR-OTVeeYr)OWoPieOVWMgTTeOoVMNIVeVIegoI—aVINOW(VeerATIgaMPLLeMee0IoDAVVROOeLLUAAVMO— eeVOIR-e|UA4MT4@[MeW%)lt]IMMNSMOO—VPT—|OrNNM—NMvsrAI—OrttIC—r—ITIAMMNUeIN=—TFMOMMrNNMtCF—RMMP—rVIFTIvMOOeIMI—A—NINrYTOM—M,—|I)MIRNTVMNOR0OVTooOW-“]]woOoMl—e¥ONT:1NNN0,TLVW[0(0so~e—UN—rRVNV—IOORo[—Ne~rOMeoaNe—EONeTorVoND—VIeIV—NROTNaW—eiIMTEaNOOAaVerTIUWWgracO—Ue[NOYVT@eN0IVi—eINTtGo4Oehga4D[.V+
U
|
)
I
I
|
MWONVrMO—)]y1VNoMOW3IOIm—UTO)—rN]oV—OUNVVMMTFTW—TyN——MIxMooNSrINWuVVe—NUJ1TTM—eOTBe=DAyUoI0VIV=NUEFO—QMTTTO—ee=MYBCNOANoNAVVWLIR=OTTN—YIOONEUVOoVIVNDTIFTTOO=IMoToIVV(WOM0TOVIIITNNoONoNMVVMTUOUNE—TN7o=IAII—eVoOo—~VVTIAWM0WTOSO=OTIIeONMoN—IVVNTTTA=WRINNIICoOVooMTVTNNNOONTeAoOoIIINOTV—oVVNOs1TOOTITAITIIOooNTNVNVNeTSNNIeIII—ooO~VoWTTeN]O=IIITo>oMNNIVIVToOeTToOCIWM—V—ooNOAVTOUQT=NoeWIIIII]0No~WNMTVoMTDOoIN=IINIWe|[oNTNIVOI-TTeQ=MI—VToAeTQoIeWTO[[N|eVoIAOTVANVATTeMP0ToRoNMVQVNNOTSTeOI1TU0oQoVVM0NVOTATNM¢[0IPooYWVV~QAsN eTPeON]OnfD)1]NI0|AoNRVVUIWaOAN——0AO0IoVoMcTINNoTVNONogoPIYYVOVIOaNTOIVG—goAaeTIAILIWNV—VONDT=—NTIa—eOeMIPIgONVU0ONVegOBONTITeI[MIIAAVIVaWgIO—PIeM—NeN—IeN[LNIIArVaTMSMN— DAI Oe(eAD.—A—NoO[|[VA(|NgNNOI—O r|N—T—N= MNANoMAW—r8O}r|||B]|VaOeO——Ula0,YBrNB=IMeBNIDeLM—Ra—uIOeglBBrIBBrMMrrLNO—aO——n4IlBrBIBYBVIrV1rO—aM=-0O—IIlIr—ID\I.OrMT—raNMrIOI—IlIeMMO—[.NILLrVLOarNaIIM—INlLL[—N,I—oIrWOMrM—OY=WTrV)N—NOoo-a-sNO1|v1LU00¥LaO()6RVe0[e+|oNWo0@wmo3-~N]—1ay1M|—N[0+ oVoVOM[AW—ON-OM———V]VLV)gI)]]I}oBYVNVOT—7Io_NTTo0,aVW~)NVYO—VTr—~IOT[VVo[OIOI1aNFMOo——NSoVVTV—NQTMoNMI=I~Ia(—IX0NoVVoIIeT1c[[—OINOrNooa—gO]||—[|VV[[(Ta]e
VOO—OMUS—YeTt)TOEUO—0—A\NTTU0—IIVSEAYNP—MUVMUOYYMONePTOIVM=TOrUOPTyPR—LOT0VrCOIIO—VN=TIRNOVNQATAVIT=TNVATOTPPN~OTVNNTeTTM=TWNeOUOoNeoATSAAoIIVATToMINTTNDOPST—ToNoXR[RT=Vo¥FoTTNOPseMTNtQLyEoOgPMVRNPT—NPrMT=PWLQNRLOT NwNOT~9ATrn3IO0&rOMIYMr9YYsVMA1YeMNRrAYVeMm1RMeINNrYTMe1RNYIrAONOT—1NeAYTT0oNo]-SM—[+ oYIT-—FV}ri[OT—OwoaVnrN1O—Va1¥V—ioITO—NVyTW[Ta—oTWNVN-NTa
CROSS REFERENCE

CZRMPAQ RMOS/3/2 DSKLS TST 1

]

TABLE

(CREF

MACRO v03.01
v0O1-05 )
H
I4
11-APR-80 13:58:55 PAGE S-10

SEQ 0291

ODISP

4~688#

5<0

8-19

v w o o N oN

-o—LmNNVvOoVTekN~ro—VoT—lMNo—VTl-WoVLoITTkoDTJeoNTNoVNLTkTDeoTelNOTVoeMPTTelNoOVoOTelo—oTTdTQlMPoeTeTleOoNeTleTAoZWgTNTlAONooCeXTleo—-NoTTCMloIoUe—V>sVOlIeUNaWVoOT]l~XoNaZMnoTTdVO2N5VO0gC2VNOole0OXoTVTMogdVUAaV—NnIITdNoIa>AnTIOdg>VsLCNITIlTNaVaLnTTITdIaVIaOdTAITlMVILW~eeaC|[nAdN3)o—]L[]g-~-<-VJ,~[y—[]——.L
0L~Q%DPQWUNS>DO>NLZMXYQOHe-

U3NLaOa4N&aCCl.Wo2d592dr.~IMIme‘%3N5elrNff4ah96mNL60ot.hhrlO]39YM3.h..0eO54Q9&2Ol-.)lA-8796lW24.I)V5J92c8OMUJ32N.kmDU41k4OD9Eu&%fwDW1—%BlMO84-0]5OM0&726153N%-’44[”8[}001M[1}bPc513O7mD-:C7u4f8QWW2TX6VA)1mNlNAP9PO03CuGLJ>RIS“3RO9O7AOr3~0DVUO~1V0C2-4SOY>YUMEY7ZVNF53CN6ZrIZ0J92O6WL[L9.V[V0X\1IH2\6(L.ZA\7M2.7e—W7J~B0J76J09OCO39:R200f4UL>ST83i*HH91%OYAVAaUD252W94B@NHAZ~87nIG9M865£KIDA'CCeN04\N97IJGLA<N-IZ92.OQo465K\N@&II2AWO1fJ”C2tO0DTMMNlQA84IXX52AWCMM0O2MORwowNV[aM—nvye=\
r—to—U

S
S
T
W
&
P
¥VOV¥FJW—IV<Ig]o]}.N|7ooooT0oNVNooT01lVVOroMTVNVeV1TY—TlCOeSoJVOroNNlOTNTTlOTMIoo—ToWTQoVNNXTVWTWlN]VoWoAIoeUoOVORANTMTllITDoooNVNVTeVNoTTOTlolINVooAo®AOQgoVoNIlNMNTTW—ITOoQTVVNNoT]TeOoA—\TTooWoVoJlVNNTNlOTTINTVN—NTOooVWToI]lYlVIoooNOoVNeMVVTTTle)lMBDooO—VTVoaOoTNQTnNlVTlINd]oo~MNaoVoNNenT]=lOTNTdVOoANNVoWAoTTl]0TlIVoOooWNoVQVsNNTTNTNTlITloNoITNaoVDoTNOnNYOToodToOOaVNsVWnQ]YTdTlNWIloroDsNaONaaoNTTueNsl|VQlooNO~oeVsTRNToellToWoOVooVMeTeTNollNTVoOoONVsQaVo]TnWldo]VNNoIVVsaVTTnW]olTtNoVNoTo5QaVoNtlMNVoI=VooolANVeVVoVaOlTIgoIOdVVoVaaTVonoNndVdVIVNboaVen—II[nodOdaaVlaMVVL-NLIoaFNo—VQonO(ldVIVOVIJEQBIBMVN1NOoyVoT8N-o.OxR]1[[[agaoMV—L ¥V¥[r(]]1Xe.e
VWN)M4TOE].VVNN
o01VVC,AoTNVoVAr1VVToTORNo—ooVJV0TOTNe~OTAoVVQx2SITeNTVIoOMVoVI—TTeNTNoAJTVONoTeOTNQoVEoTVoINQTNeeTTONoOVVVTTITToootWVDQVQOTNTeNNTVoQYVNTVoeTToee¢o$oQTWMWWeT1TY0VVTTOIoDooTSoQTtIeNA~NTBVoVTeTNIooWVNATWTIIoooLVVVQYTNIOTNooMON~oVTTAoMoOoWoICTVATQoNaVTHTNeOTNooQAVN]oITToVBVVNIMNeTCQoVIONV1MVToOTIIVooV1LOTIWooINaQVoON[ToNIaIWoNVTNIOoMMLTQaIVoVAVAIV—NTOaINVoMJIP[QIa2aVVVTIiQ0IgIgPNVVT@OIIQQQaVVVT o[ oOO NO[-e o]L [J«
MYMT0NWS—vNVIVVOMN==PM]VNO]oOVTWVMTVOTTTAVOVQTVVMVTTINY—eOoOAVVNQNTTNOUMTooVVMVTTIIATMOMoooNVVQNnITVT—VTMNoOoVOooNTNUNOIVTMYoAIVMTIQTANoVWN]onTSoMoQNVNNRO0T—TIToIVVVNTe—TTTDNMoooNJVOQQ\N—TWNT]EVO0rVVVQTTTWoMeN]OOo—o—MNDeAVTTNVoNQTM~eTNIQooMNVNIWTTOA]NTeUPNoooNOTVVOJo]ToTVvTOVNNoTTVMOVTNQVNAeToTMNWNTSMOOTVVQOo]TRITooRoANoVTNoNTNeT(OTQUOVtoNIoVVTTVNeTINU TNTILooMOoQNOoMNTTF1NVIoooVAONeTV1WNooNIVVaoeTOVVooONVNV\VTIQeTO]W0TWQOQWOWNNNeeTTA]IoNOWoOAVVQMITTN—POOINoMNQT[PV0QeNNaNTTNVIoVTIONVeOIaNaePOITNQ.VNMTVIa(eANeUgMVM(VNI[OVTaAoe—SI FV[INT w-\—
x

0
—
V'PVTVTVYoToVToVVTVT]oVToNTooN0TVTTIoNooIWNIToNTIMIVITNTeIoVT|OoVeoVT1oVoeVoTVo0PVoeVgeVgP1Ve1[

laYaYoYaYa)
CZRMPAOQ RMO5/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF Vv01-05 )
4
J
11-APR-80 13:58:55 PAGE S-11

SEQ 0293

12- 67

12-'68

12-a70
12-a75
12-a76
12-a86

12-123
12-128
12-h9N
12-h%6

)ANARNMAUMMWMlb]]eGGWV))SW]]b/]NUlA))]]))W)))Vd))btd)ilbtbktbtk)eLA
ED2

262

26=7
30-2#
SEQ 0294

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE

TABLE

MACRO v03.01

(CREF Vv01-05

)

7
L
11-APR-80 13:58:55 PAGE S-12

7-415
7-442

7-364

7-370

7-400

7-406

7-409

7-412

7-364

7-370

7-400

7-406

7-409

7-412

26=-10#

26=11»4
7-211

26=-5#

7-415
7-442

SEQ 0295

27-11#
7-211

27=54

27-10#

)NNSbMMMWWMMWWAMMWWMbAbsARRMMWGbA)W)M))UiShedW)ViCdk)k)dVeldoitSilCdeSlbteUlSlS
EH132

25-1
29-18#4
SEQ 0296

CZRMPAQ RMOS/3/2 DSKLS TST 1

gmo
YelV] g—l

NN —0

EH71
EHTI

NN
NN NN NN

EH7

EH3
EHS
EHS7
EH6ES

!
\nmmmmm\‘nu‘mmmm
D WW
l&\lfl!

EH142
EH145
EH150
EH2
EH213
EH220

[
1V, BERFSV
], N}

CROSS REFERENCE TABLE

EHT115
EHT130
EHT132
EHT142
EHT145
EHT150
EHT2

EHT213
EHT220
EHTS
EHTS?7
EHT65

(CREF

MACRO v03.01

v01-05

)

N 7
11-APR-80 13:58:55 PAGE S-13

SEQ 0297

29-20#
29-224
29-25#
29-34
29-27#
29~29#
29-4H

7-52
7-97
7=145
7-214
7-280
7-343
7=424
7-495
7-540
7-583
7-250
25-104
7-289
7-415

25-114
25-124

7-337

7-361

7-464
7-439

25-15#4

25-34

7=55
7-100
7-148
7-217
7-283
7-346
=427
7-498
7-543
7-586
7-262

7-58
7-106
7-151
7-220
7-286
7-349

7=70
7-115
7-166
7-229
7-307

7-501
7-546

7-61
7-109
7=-154
7-223
7-298
7=355
7-445
7=504
7-549

7-409

7-412

25-94

7-364

7-370

7-430

25-14

7-442

25-16#4

7-193

7-202

7-73
7-118
7-169
7-235
7-310
7-376
7=454
7-515
7-558

7=76
7-121
7-184
7-238
7-316
7-379
7-457
7-518
7-561

7-79
7-124
7-187
7=244
7-319
7-382
7-460
7-521
7-564

7-247
7-322
7-385
7-473
7-524
7-567

7-406

7-467

7-470

7-482

25-144

24~401

28-164

7-367
7-451
7-511
7-555

7-400

7-82
7-127

7-88
7-133
7-199
7-256
7-328
7-391
7-485
7-530
7-573

7-190

25-64

EHT7
EHT71
EHT74
EMS1T
EMS10
EMS11
EMS12
EMS13
EMS14
EMS15
EMS16
EMS17
EMS2

=178

7-211

25=7#4

28-34
28-10#
24-122
24-140
24-150
24-148
24-155
24=157
24=-211
24-162

EMS20
EMS21
EMS22
EMS23

24=164

24-49

24-166
24-179
24=177
24-186
24-39
24~47
24-54

28-144

24-328
28-17#4

24-330

24-349

24-365

24-381

24-243
24-166
24-168
28-214

24-248
24-168
24=170

24-340
28-154
24-367

24-345

28-44

24-383

24-403

28-204

24-376

24-392

28-23#

24=197
24-314
24-58

24-199
28644
24-60

24-203

264-27"

264=276

26-292

24=297

24-318

24-64

24-66

24=221

26-223

24-342

28-65#

28-634

24-81

24-83

24-85

24-88

24-91

24~94

24-221

24~223

28-66#

SEQ 0298
mmMmmmmmmmmmmmmmmmmmmmmMm
MM MMM MmMMmmMMmM
Men

24=79

MmmMmmmMmMmmm

264~49

EMS252

CZRMPAQ RMOS/3/2 DSKLS TST 1

CROSS REFERENCE

TABLE

(CREF

EMS254
EMS255
EMS256
EMS257

24-142
2470

MACRO v03.01

v01-05

)

11-APR-80 13:58:55 PAGE S-14

SEQ 0299

24-148
24-73
264=101

24-155
34-75
24-104

24=-177
264-213
24=274

24~158¢4
24=271
28-69#

24~194
264-278

24-184
24-116

24-354
24-133

24-386

24=416

28-25#

264-322

EMS302
EMS303
EMS 304
EMS 306
EMS307
EMS31
EMS310
EMS311
EMS312

24-324
24=17%
24-245
24-201
2454
24~259
24-13
24-68
24-133
24-15

24405
24269
24-213
24=77
24=274
24-33
24-73
24=148

24-225
24-23%

24-49

28-674
24-286

264=292

24299

24-420
24-295

28=264
24-338

28=-5#

24-118
26-340
24=41
24-88
24=177

26-124
24=345
24~bk
24=91
24-184

264-127
28-75#4
2447
2494
24-194

24-136

24-187

24-211

2449
24~ /8
24=225

24-58
24=-101
24267

26-60
24-104
28-764

24-310
24-248

24-345

28-81#

24-43

2469

24-90

24-93

24-100

24-103

264-112

24-115

EMS313

24-66

24~94

24142

24-148

24-155

24=-179

24-177

24-184

EMS314
EMS315
EMS316
EMS317

24-29

28-86#4
24-191
24=27

28-88#

28-101#

EMS26
EMS260
EMS261
EMS262

EMS27
EMS3
EMS30
EMS300
EMS301

EMS32
EMS320
EMS321
EMS322
EMS323
EMS324
EMS325
EMS326
EMS327
EMS33
EMS330
EMS331
EMS332
EMS333
EMS334

EMS335
EMS336
EMS337

EMS 34
EMS340
EMS341
EMS 342

24-408
264-293

28-68#

28-824

24-31
24-23

24-91
24-68
24-115
24-100
24=271

24-101
24-85
28-95#
24-112
24=271

24-186

24-196
24-258
28-102#
24-305

24-113
24-88

28-934
24-98

28-964
24=29?

24-293

24-334
24~261

264-363
24-308

26614
24-318

28-100#4
24-324

24-353
24-386
264-192

24-362
24-401
24=217

24-385
24-420
24-250

24-394
28-104#
24-252

28-103#

264-381
24-173
24-280

24-386
24=175
26-282

28-1064
24-192
24-320

264~201
28-107#

24~203

24-51

24-108
24-120

26-140
24-129
26144
24-213
24-120

24-381

24-182
28-105#

24-370
24-166
24-278
28-108#

26~254

24-135

28-109#
SEQ 0300

pe—SyPyeySySySySySySyeyeySyvy¥yeyT

EMS 342

PSVBgmayeg

——

CZRMPAD RMOS/3/2 DSKLS TST 1

CROSS REFERENCE

TABLE

EMS 344
EMS345
EMS 346
EMS347
EMS35
EMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36

28-110#
24-140
24=144
24-148
24247
24-162
28-1154
28-116#
24229
24-199
24-203
24-330

EMS360
EMS361
EMS362
EMS363
EMS364
EMS365
EMS 366
EMS367
EMS37
EMS370
EMS371
EMS372
EMS373
EMS374
EMS375
EMS376
EMS377
EMS4
EMS40
EMS400
EMS401
EMS402
EMS403
EMS404
EMS405

EMS406
EMS407
EMS41
EMS42

EMS43

IEMS44

EMS4S
EMS46
EMS47
EMS5
EMS50

MS500
MS501

24-135
24-138
24-138
24162
24-207
24-160
24-160
264-168

(CREF

MACRO v03.01 11-APR-80 13:58:55 PAGE $=15

v01-0S

)

28-1114
24~"80
24-184
28-324
24324

24-286

26-241
264-233

SEQ 0301

24=215
24-194

24-28¢
28-1134

24284

24-342

24-347

28-1144

24-245
24=241

24~250
24=245

24269
24269

24237

26-261

24-286

24-288

24-320

24322

28=112#

24-336
24-290

28-117#
24-295

24=297

24-299

24-338

28-1184

24326

24-353

24-358

24=362

24-369

24=374

24-378

24-336

24-338

28-127#

24=418

28-1374

24~388

24-390

28-120#

28-1214
24-231
24-394
28-122#

24-235
28-33#

26-312
24299
24-235

28-125#4

24-241

24245

24-269

24-334

24-237

24-245

24-269

24-336

28-129#

24-374
28-1314
24-258
28-1334

24-406

28-1304

24-338

24-342

24-347

28-1324

24-322
24-342
24-205
28-35#4

28-1364
24-360

24=367

24-376

24-392

24-403

24-388
24-392
24392
28-142#
24-365
24-410

24~395
24-403
24-403

26-421
28-140#
28-1414

28-135#

24-370
24=412

24-374
24-416

24-379
24-4621

24-381
28-1434

24-386

24-258

24-332

28-364#

24-16
24=55
24-92

24-18
24-57
24-95

24=24
2463
24-102

24-26
24-65
264-105

24-28
24-67
24-107

24347
24-367
24-367
24-386
24-356
24-401
24-381

24-356
24-410
24-358
24-406
264=401

24-372
24-383
24-383
24-416
24-363
24-408
28-144n

24-223
28-37#

24-252

24-254%

28-394
28-40#
28-414
24259
28-74
28-434
24=9

24-48
24-84

28-42#

24-14
24-53
24-89

24-20
24-59
24-97

24-22
24-61
24-99

24-32
24~78

24~111

24=128

24=130

24=132

24=134

24=145

24=147

26=152

24154
SEQ 0302

N —

24=125

———p— p—

‘

B e~
—

24=123

B
B B J

26=121

24=119

24=117

e 2

26=114

EMSS504
EMS505
EMS5C6

EMS507
EMS51
EMS510
EMS511

EMSS2
EMS53
EMS54
EMS5S5
EMS56
EMS57
EMS6
EMS60
EMS600
EMS601
EMS602
EMS603
MS604

EMS605
EMS606
EMS607

FH561

MS62

EMS63
EMS64

24~401
24-312
24-314
24-322
24-338

24-130
24~9

24145
24~185
24~242
24~348
24380
24-4611
26-14
24200
24-300

24-163
24232
264=275
246-317
24-348

24~9
24-132
24-11
264=147

24-188
24=244
24-350
24~382
24413
24+-16
24-202
24-302

28-154#
28-155#
28-156#
24284

28-44u

24-37
24-71

24-9
24-40
2474

28-157#
24=7
24-105
24-137
24-167
24-200
24-228

24257
24-287
24-317
24-346
24-377
24-409

24-165
24234
24-281

24-319
28-150#
24-11
24-134
24~14
24-149
24-190
24~246
26-352
26-384
24-415
24=34
24=204
28-153#

24-167

24=246

24-169

24-283
24-321
26=14

SEQ 0303

VNI

EMSS03

24161
24=226
24-273%
264-315
24-346
24~7

EMSS532

24159
24=224
24270
24-313
24344
245
24-50
24-5
24-143
24-183
24-240
24346
24~377
24-409
24-11
24-198
24-298
24-7
24-107
24-109
24-267
24-291
2645
26-34
24-67
24-102
24-134
24-165
24-198
24-226
24255
24285
24-315
24344
24-375
24-407
24-280
24~290
24-292
24-301
24-303
24-308
24-124
24-308
264-272
24-280
24-282
24~320
24-349
24-365
24381

11-APR-80 13:58:55 PAGE S-16

26=176
26=255
26=289
24=327

24-181
24-257
24-294
24-329

24-183
24-260
24-296
24-331

24-208
24-262
24-304
24-333

24212
24~264
24-307
24-335

24-220
24266
24-309
24-337

24=222
24-268
24-311
24-339

VWV~
Coo~
&»

CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF vO1-05 )

24-20

24-22

24=-24

24-26

24-28

24-30

24-32

24-63
24=159
26=200
26-262
264=361
24-393

24=76
24-165
24-210
24=291
24-364
24-396

24-82
24-171
24-226
24-323
24-366
24-398

264~86
24174
24~228
24-337
24~368
24-400

24-137
26-176
24-230
24-339
24-371
24-402

24-139
24-178
24=-236
24~341
24-373
24-404

24-141
24-181
24-238
24-344
24-375
24~407

26-61
24=218

24=71
24-268

2474
24-277

24=76
24-279

24-84
24-287

24-89
24289

24-128
26-294

24-20

24~22

24-24

2426
24-59

24~32
24-65
264~-99
26-132
24-163
264-195
24224
24-253
24-283
24-313
24-341
24-373
24-404

24-107
24-139
24-169
24-202
24=230

24~411
24~286
28~464
24=297
24-306

24-129
24=276

28-1614

28-1634
24-354

24-356
24-408

24-358
24-374
24-390
24-410

24-360
24-376
24-392
24412

24-363
24-379
24-395
24-414

28-1654
28-1664
24-397
24=616

28-167#4
24-418

24-421

28-168#

24-320
24-378

28-544
24-330

24-332

24-334

24=-336

24-356

24-372

24-388

28-55#

26=340

24-343

28-57#

SEQ 0304

oELLELCEE
t\d ) I I T XE

EMS65

—

CZRMPAQ RMOS/3/2 DSKLS TST 1

C(ROSS REFERENCE

TABLE

EMS66
EMSE7
EMS?
EMS70
EMT

24-345
24-363
24=126
24~395
7-3

26-347
24-379
24-127
24-421
24-34

EMTIO0
EMTION
EMT102

7-193
7196
7-199

EMTI04
EMTI0S
EMTI06
EMTI07
EMT11
EMT110
EMTI11
EMT112
EMT113
EMT114
EMT11S
EMT116
EMT117
EMT12
EMT120
EMTI21
EMT122
EMT123
EMT124
EMTI25
EMT126
EMT127
EMT13
EMT130
EMT131
EMT132

7-205
7-208
7-211
7-214
7-28
7-217
7-220
7-223
7-226
7-229
7-232
7-235
7-238
7-31
7-241
7-244
7-247
7-250
7-253
7-256
7259
7-262
7-34
7-265
7-268
7-271

EMTI10

EMTI03

7-25

7-202

(CREF

24=174

24-142#4
24-144n
24-1464

24-148«4

24-1514
24-153#
24-155#
24-158#
24=-154
24-160#4
24-162#
24-164n
24-1664
24-168#
24-1704
24-173~#
24-1754
24=214
24-177#
24-180#
24-182#
24-184#
24-187¢
24-189#
24-192#
24-194
24=234
24-197#
24-1994
24-201#

EMT133
EMT134
EMTI35
EMT136
EMT137
EMT14

7-274
7-277
7-280
7-283
7-286
7-37

24-203#
24-205#
24-207#
24-209#
24-211»#
24254

MT141
MT142
MT143
MT144
MT145
MT1646
MT147
MT15
MT150
MTI51

7-292
7-295
7-298
7-301
7-304
7-307
7-310
7-40
7-313
7-316

24-2154
24-217#
24-219#
24-221#
24-223#
24-225#
24-227#
24=274
24-229#
24-231#

EMT1640

MT152
MT153
MT154

7-289

7-319
7-322
7-325

24-213«4

24-233«#
24-235#
24-237#

MACRO v03.01

v01-05

24-349
24-397
28-9#
28-61#

)

24-354
24-414

I
8
11-APR-80 13:58:55 PAGE S-17

24-365
28-594

24=370

24-381

24-3B6

SEQ 0305

24~399

24-401

24-~416

28-58#

7-328

242394

SEQ 0306

WASWT GeGlee———

EMTISC

CZRMPAD RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE

EMT156
EMT157

EMT16
EMT160
EMT161
EMT162

EMT163
EMT164

EMT165

EMT166

EMT167
EMT17
EMT170
EMTI
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT2
EMT20
EMT200
EMT201
cMT1202
EMT203
EMT204
EMT20S
EMT206
EMT207
EMT21
EMT210
EMT211
tMT212
EMT213
EMT214
EMT215
EMT216
EMT217

IEMT22

EMT220
EMT221
EMT222
EMT223
EMT224
EMT22S

FMT226
EMT227
MT23
mM1230
M1231
MT232
MT233
MT234
MT235
MT236

7-331
7-334
7-43
7-337
7-340
7-343
7-346
7-349
7-352

7-355
7-358
7~46
7-361
7-364
7-367
7-370
7-373
7-376
7-379

7-382
7-6
7-49
7-385
7-388
7=-391
7-394
7-397
7-400
7-403
7-406
7-52
7-409

TABLE

(CREF

26=2461n
24=243n
264=29#
264=2454
24=248¥
24=250#4
24=252#»
264=254H
2642564
24=259#
24=2614
24-314
24-263#
264=-265#
24=267#»
24=269#
24=-271#

24=274H
24=276H
242784
24L=4A
24-33#
242804
242824
264-284H
24-2864
24-288#
264-290#
24292/
24-2954
24=-364
264=297#
24~299#
24-301#
24-303#
24-306#
24-308#
24=-310#
264=312#
24=-3#
24=-3144
24-316#
24-318#
24-3204
24=322#
24=324m
24=-3264
24-328#
24=414
24=-330#

24=-3324
24-3344
24-336#
24-338#
24=-3404
24=342N

MACRO v03.01

v01-0S

)

K 8
11-APR-80 13:58:55 PAGE S-18
SEQ 0307

ema

[

————

SEQ 0308

24=-3454

7-482

7=479

EMT237

CZRMPAQ RMOS/3/2 DSKLS TST 1

CROSS REFERENCE

TABLE

EMT24

7-61

24=44N

7-485
7-488
7-492

24~3494
24=-351#
24=354H
24-356#
24=-358#
24=360#
24-363#
24=4T7H
24-365#
24-3674
24=370#
24=3724
24=374m
24-376M

EMT240
EMT241
EMT242

EMT243
EMT244
EMT245
EMT246
EMT247

EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265
EMT266
EMT267
EMT27

EMT270

EMT27
EMT272
EMT273
EMT274
EMT275
tMT276
EMT277
EMT3
EMT30

EMT300
EMT301
EMT 31
EMT 32
EMT33
EMT 34
EMT35
MT36
MT37
MT4
MT40
MT41
MT42
MT43
MT44
MT4S
MT46
MT47

24-3474

7-495

7-498
7-501
7=-504
7-64
7-508
7-511
7-515
7-518
7-521
7-524
7=527
7-530
7-67
7-533
7-537
7-540
7-543
7-546
7-549
7-552
7-555
7-70
7-558
7-561
7-564
7-567
7-570
7-573
7-576
7-580
7-9
7-73
7-583
7-586
7-76
7=79
7-82
7-85
7-88
7-9N
7-94
=12
7-97
7-100
7-103
7-106
7-109
7-112
7-115
7-118

MACRO v03.01

(CREF v01-0S )

24-379#
24-381#

24=4N
24-383#
24-T86#
24-388#
26-390#
24-392#
24-395#
24=-397#
24=-3994
24-52#
24-401#
24=403n
24~406#
24-408¥
246~4104

2N
2461
24=-4140

m 8
11-APR-80 13:58:55 PAGE S-19

SEQ 0309

R yp———

" SEQ 0310

24-10#

7=15

EMTS

CZRMPAOQ RMOS5/3/2 DSKLS TST 1

ERTYOO
ERTYO1
ERTYO2
ERTYO3
ERTYO4
ERTYOS

FNCDTB
FNCMSK
GE TBUF

[GNS

7-190

8-19+

12-D9%
14-48¢

12-098
14-51

12-E04
14=55

8-19»
12=-<69*
19-6*

12-E20

12-E46

12-L61

12=-<70*
19-6+

8-19»

8-21+
12-<88+
19-6%

12-<26
12-<96+

12-<27
12-<97*

12-<28»
15-6

12-<29+

15-7

12-<35+
15-8+

12-<36+
15-9»

12-<40r
15-25+

12~<41»
15-45+

12-a91

12~cb4

12-c49

12-k09

12-k14

12-697
12-822

12-726
12-841

12-861

12-863

12-C63

12-C65

12-D22

12-D24

12-D75

12-D77

12-€34

12-PSO

12-N18
12-F26

12-R16
12-G39

12-H90

12-104

1¢-169
19-10
19-10

19~-10
19-10

8-6

19-10

8-25

19-10

14-60

21=-554
12-G67

8-39

19-10

8-50

19-10

8-56

19-10

8-57

19-10

EMTVEC
ENRGDT
EQUALS
ERR
ERRNMB
ERROR
ERRTYP
ERRVEC

7-169
7-172
7-175
7-178
7-181
7-184
7-187

EMTE2
EMT63
EMT64
EMT6ES
EMT66
EMT67
EMT?7
EMT70
EMT71
EMT72
EMT73
EMT74
EMT75
EMT76
EMT77

SEQ 0311

—

EMT6
EMTE60
EMTO

7-130
7-133
7-136
7-139
7-142
7-18
7-145
7-148
7-151
7-154
7-157
7-160
7-163
7-166
7-22

)

(ola)

24-88#
24=-91a
24L=-94n
24-96#
24~-98«#
24=-101#
24=-1044
24=1064
24-134
24-108#
24=-1104
24-1134
24-1164
24-118#
24-120#
24=1224
24=124M
24=-15#4
24=-127#
24=-129#
26-131#
24=133
24~-1354
24=-136#4
24-138#
24=-140#

vO1-05

EMT50
EMTST
EMTS?
EMTS3
EMT 54
EMTSS
EMTS6
EMTS?7

7-121
7-124
7-127

(CREF

TABLE

B 9
11-APR-80 13:58:55 PAGE $-20

—

CROSS REFERENCE

MACRO v03.01

19-10

SEQ 0312

XYY
3
IS

19-10

7S7SIo%S0I1A2IN%BWENNIAINTO~VvJvrI“?BJ-2Tc.I’o0“~2W—4I60I2“I0A2Z4A6MR4ON6A&R%—SO4hIe6—%%NlnM8A8oF.uAXNoa~u.4<-IwN“[—v[n«ROSR4N~NOW“oW@—SNLO9oVr5xVON.o1IM~gA0NZwwO%DOe—6wa,NM-DW—SyM!
6* N~O QeOXMX>r
4—
(Y21

—

[

o -—

@[+
o]

-iN—] RNoo J! S-+)—o\Of=0IDn-I"TIR=eQ=[0 5

Noo- ovO!] |] ~ O I 0I I MIINL

eMX1oyvfI
—c

V)oITV12V[ O3 2§—oN PTor

SoTM“RAySSyNdg-T3aSo-—TrL|u10]—)n0gAuQP@PROdErBaOANGTm>RnIgdX)DPTMSdASxuRmagXSImdngxOIRSANgTXaRIQIdBATOGIouRmUgagIQOaRPINVhAVO0NoMW—o1-Y--]4sS—GYT®V1|BRo[SV}NONI-VVDy[eII«RR[o—ToOwV[~T——-—-A—aX)]a]VMer]V[Mt~90yIaBSWdIA.No=Vkn[-Q[[JLa]gTaTd3HPWembedNI%I(PbdN]gLRbW3T*NdBba0dIHlBub'g~sSuTibnIg*MJARS]bd?gAubIdRAbSJAN=VOGe=dI1Sb0JoHMPR(bDdUd3*o7O~—oeLI!S3NdbSMAUVV——$OIeJLdNOdN70ON-—pkNnMbeeDgeOrV¥TPAlId—U—tNDrVQrAI0O-N-WoNo]H!—OL—a00eN¥VIrTt~ON0P]~M-aOReN\\I—D—(—t—349NWg®/NYVgX4bS-e9OMOWNooAo=Leen[V1eoM8---Wo-~0OWoIQR—]]1 l¥V~0————NIo]Oe9—XNATO—oIo00JVORINVoIVTNWNIIORNONOaT--N¥T!ooIATXV®VIISIwR[oo[[O—--|TeTF(-|] —][y1ae——oIOU)O-0NL¥-R0N—¢AeVIVNoYRgOiDPO0—U——lVIo))N1V]7oVVTOaVIr}e—-oeoI4SVVooWOMNVdTNrV——ONrHIeOVgao]INIVL1V[VLIO7eOaloN~rIV1oAeOgYTkIIZVCloVaeo—tNNrNVMWvereTVoNodOI-drIVVodTMaWV——WoeVVNe¢—T[Ho'—erI]lNNJNOa1RVV—VaOr[Va+Zoe41-e[eA—V[ODDOITtItLa[3qIlNSoaVVg(—~J>S—2WW“o[[o%=]Nw2J]]][(mo~Joa[oo -EwoSM>-——S .o— —<Mw7(N@olcev&)x]l
-[ofoO-0oMN-"aVVi\¥¥—1f[[y—40~Oa-a3l—]V¥—]] ooN--oa-N!]— [-o[[-(~--97[1=—]n¥Vao——)] eo-l VoOBVa0—-Ow —M-—TV]]14}norNO—0e0VTo]oM,——ONVVVN1oao-o0-TOON1To0oMVVVWVTTg-T]a+IAVoI~W[[oNw4IVNaa>ITIVVWN.gTINQr|g0Vaa<WII*V13I(MP0ITNVaaTO N[.-mM(VVYNgV—T] of ][«
o ONOMNON M
(YY)

o
[72] W)

o~m

1PCK3

4=966#

SEQ 0314

Hmme

0—ATR
e—TOol3N- r—r—r—eo—r—
oAVNGeO—1¢ 0 OO] —MO0— II NM2|
—0o0i —} NOe—e—|N|

ER2YIRBN

v01-05

o |4

)

12-K40

12-=96

12-=98

12-"62

12-763

12-a44

12=[36

oo[]]V0a[Y++ ~-—Ne—[ —

(CREF

[OO}
[|ON
[]
[|
[|
[|
[}

TABLE

MACRO v03.01

U~5
!~r
{
)
U
1
|

| CROSS REFERENCE

A)[a[V0@l1.[X N~—MN1 —|I
oa]U0oL@0 [}M—

-—

THOM
BS
& ¥R

| o [ RO PR e

OOA ,0N.7.D%GO?/.ax70.>O~~

-00O~VeNlA—T—ON0oVegVaV[Iga¥]Lokl
V[[N~aaNVe]N]age—VV—)) oW —0—SN0Nuye0[0V—yal
oo~][«+ oV[—-])a[¥(aIVaV]]a]

A00R0~E——SOFJOEU—MR—V]S[ya¥] [o(—3)aV@I[oo—aa94]VNYV00]04%5oN](e[[[9-SVaaVaV¥[—I4—1]1YIoaag-NVV—lV}—)]a)5
-

N“314I“271O~a0

nwv
OX
QW
o
>0
CZRMPAQ RMOS/3/2 DSKLS TST 1
F
9
11-APR-80 13:58:55 PAGE S$=22

12-K55

12-K57

12->17

12->21

12-[60

12-[41

aoWw

12-*15

SEQ 0315

12-*19

O-—N

12-R36

12-%20

—

12-S24

12-g18

12-g20

12-g23

12-k57

12-a26

12-a30

12-a31

.12-h76

12-h30

O- Loel-—: 0O-— [oaVy}] O—

12-040

12-[41

12-060

12-084

12-085

12-\19

6
12-\28

12=\29

12-\60

12=-\70

12-\71

12=\76

12-\80

12-\81

SEQ 0316

w—-N%7oA][0«~o oN0V}eaQ8NT—VT0FoVC2]—orIO6aVTM9oUNT3oVOT5aNT%DQNVO6TV2IN[PQ7VWIgT9NVMIMQ
RV(O[-BwN]-&)I—oVIRav--[—keO—-R-~[o.--0=aN—V—¥—]10AaV~ke)—|a——]=NN—0eN-ONeVoO|V|RI})I—OOrIl0geVeON0e—1—V=VM\MOg—N[MyoMNNXN—OMa0VeVN\~eenIoe[[oNo-w——a]O~N—1*—Nl—|I|kyVn[—E(+MnNsNoVN—Z-NMO—U]}g—eVO—O—V[c(aW0O-r—]~—Ia3rV—¥tI[g&R[J--aRE|N¥—VE]oo-~-|——[ywO-oo-[Aan!V——\]X—eUooooON0-LO—V—O<M-V]V])}3}\3}VCVVOMoT]N0ool—IVVT<oVJ01rOaVooQooV¥NNOOTekSoNk—TGTeIIvXWLNToo~X\OeoVoTTVo~VeToNlQNMN0DIWTUNYoTIoONNooVJV~—[WVMoeTNTlNNVTaIIV\ITeNNToToVooooTVoOSINOeGOeNTOYTolAaWlNIOToFoVVVooNe—IVNTMNVoDlMUTUaINlITVINIoNeoVNoYTlVVIToAVDXOOaaO]ToOD—PTIlNIIVON¥VaoaNIT{VVeIVrVeoTMWaMTOlaT=ToMNITIINVNWoVWVal—]OIVIVoNO1SIFTeIVg]alOTIN-IeUIVVgoFoETIMTNTPOooILV[[IoM—MaTkIIOW§jIag[Tg—VWMVO-VaToUIoUNdINVoNQMMllNIIaQMaIUV[NMAVmeEQVOLTaLIVI[VOANloNT Ao[ONLaI«NaTn|LVeaVVdT
AO%Loo7ll[o“a=V] V6.—%)loT6.eN2olWIV5f=1TOxof“NVYlo9—V0UTo9OV2DoMT-5oTC1N/O3oM«V[0O3aOI42aMV¢I12ONNT7Om[V
~y Q-0[NT]|LO"-NaIlN~Nya——[[ o- O ~N MW0YyLOI~eDWILLI—LVWIDNOITDOMOMIO0OV0IO.0N—IININ¢PtLOPmNTM«NMLM
oVOoaND[])]VLao"VA0LVn]L][la"agRl¥VaoLlMdl[a VC—|oL=r-IUvo—rIrmD—eem.YeeeUVLIDe0-IISYeIITTaBNVIIV0OoIUNVIUaPPYPVIaYTMMLL(o

ATPoi]y>ARToS--®TwNRRowT--+NATN<oI®4Nw}T’['«VnIDVPIR2ORD[o@—0LI1aIVTNer—AOXRIT[W0-oLN¥]PoOTaO4JIOV]MNAT12OVYN*IUNPXA=VaL——VVFl|]VNi£~MR0IaUIVILAO]aNwV>NMLELIoTOV~lIIoPVY>SiI|NcYVTosOOON[CoAVITR—3N2.OUPaoW0]OONIUT0VNMOZ1IT0|o1VV?Oa0Y4I[—[[ aAVRO4TNx0\OS0lDNO-N]IoNovM0%1[A[IRaN¥Oe >wox[P2J|0VoSTAePUSNV1VOVo]EOoOMBLe—X,eYk)RA}ooWVeTVNNTk]VOINaoATPVoN—TD~SNT—lIANoooEIONNVoUVTQTTlI—TNoo—VWoVMVAOT]]OlIERT—OooNIMaLgNooIVoeIlIVO—VT—NDooeNUAoNlMIIIOVTT8MVaAIAIeodVOAIIOVITUNQTUsV5VIOoIIIIVOaQNRNlVNVeVIINIMoo-PgeNVNVA[OlIITa[\NIaVgaLVMIVOINlTLTaImMae—VaILETVN[-<o—LNgI|VlVg
¢O- eL1ad —O1eN—O0N2LSuoV~tk1NOA-x-N—VIQ[-|aO ~yopdoML—V|}o—0rI\TvoIWrNT—IoVOTI\ooPMIVVOIUVDIogOVtoB=OVTOOV-L=[aMVIeLaV
CZRMPAQ RMOS/3/2 DSKLS TST 1

CROSS REFERENCE
TABLE

MACRO v03.01
(CREF v01-0S )

H
9
11-APR~80 13:58:55 PAGE $-23

SEQ 0317

4~688#

15-63
SEQ 0318

—

PRS

CZF®:
A0 RMOS5/3/2 DSKLS TST 1
(CREF

8-22

15-60

v01-05 )

10-40

12-<29

12=-<70

15-9

15-16

15-30

15-61

46884

9-94

19-11»

19-11+

19=11»

19-11»

8-19+

20-5#4
8-19+

12-Q78

12-X57

12-c88

12-d28

12-e20

12-e80

12-152

9-43

9-117

9-134

19-8

19-10#

9-95

19-104

13-20
12-J26

12-Y95

12-233

12-006

12-063

12-Y16
12-Q0C4
12-192

12-e33
12-j78

12-e85
12-106

12-57

12-162

12-Q69
12-J44
12-13C
12-387+

1c-M43
1¢~176
1¢=U13+

=N5_

12-021
12-u67
12-v28

12-X61

12-54

12-539+

12-<84»

12-<85+

12-k63*
4-9734
12-621
12-:67
12-HB6»
12-N92+
12-184
12=-006+
12-_56+
12-e20+
12-85+
12-k61¢

-vV08+

12-v59+

12-g90

12-h34

12-i20

12-i82

12-j68

12-995

12-h00

12-h39

12-h&4é

12-i25

12-V73«

12-v92+

12-W15e

12-W41

I 14
~-mo.—
S ON~D
O
= \NOWN =)0 NO

15-804

8=-19«

RMCS1

SEQ 0319

12-221+
12-653

NNNN;’NNNN
g

46884
4-688#
4688
4~9284
15-14

TABLE

J
9

11-APR-80 13:58:55 PAGE S=~24

CRCLS REFERENCE

MACRO v03.01

8-82+

10=47+

12-15

12-36

12-44

RMCS2]
(S20
RMCS3

12=-:02+

12-:3¢

12=:442

12=79+

12-173«

12-216+

12-270

12-384+

CS3!
(S30

18-10+

d
ud
e
b
b
b
—d

12222+

12-230

LAE BN BN BF J

12-229+

'
=<

12-189+

RMCS1]
RMCS10
RMCS2

12-990+
12-124+

12-229
12-665+*
12=F 27+
12-M18¢
12-540+
12-Y95+
12-07
12=-c18+
17=17+
12=237+

12-263¢

12-d28+

12~:26+

12-390

12-406+

12-612

12-467%

12-471

12-484+

12-488

12-503s

K 9

12-570

12-571%

12-581»

12-582¢

12-597¢

12-598s

12-:84e

12-:86

SEQ 0320

C7RMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

RMDB]

RMDC

RMDCI
RMDCO
RMDS

RMDS1
RMDSO
RMDT

RMDT]
RMDTO
RMECT
RMEC1]
'RHEC10

RMEC2
RMEC2I
RME C20
IRMERT

6-0#
6-04

4-9084
12-~447%
12-;71»
12-042
12-464 3+
12-g89+

12-377
6-0#
4=-900#
12-a74
12-G%4%
12-P00
12-Vv4?2

12-162

6-0#
6-0#
4-905#
6-0On
6-0n

12-243

12=270*

12-279

12-390*

12-393

12=-412+

12-415

12-373%
12=;61«
12-N6S
12-303+
12-e19«

12-429+
12-,62*
12=-018+
12-137+
12~e79»

12-433
12-.63
12~-038

12-289

12-373>
12-:93

12=-376+

12->60

12=->77
12-G56
12-067
12-v11
12-286

12-369
12~G91
12-076
12-v15
12-IN

12-232
12-:89
12-C87~
12-536+
12-b25+

12-265*
12=-,49
12-D06
12-Y03+
12=-c16*

12-272
12-,52*
12-D46*
12=\21+
12-c87+

12-369*
12-,53
12-N49+
12=-\62*
12-d27+

12-203
12-460
12-k56*
12-=95
12-D86
12-L60
12-T42
12-V96
17-18

12-232+
12-505+

12-k87
12->07
12-093
12-L65
12-T59
12-W01
17=23

12 ~239%
12 -509
12 -134
12 ->16
12 -E03
12-L97
12-T64
12-w21

12-24
=245
12-51
=510

12=272+
12-:89+

16-20

12-218+
12-:85+
12-,93
12=-R45*
12="93«
12-k87+
12=-197
12~459+
12-517
12-=84
12-D68
12-L59
12-733
12-v79
16-24

12=224*
12-:87+
12-C80
12-R91+
12-a53+

12-a84
12-K76
12-P20
12=-Vv47
12-167

12-184
12-505
12-,90¢
12-Q97¢
12-"32w
12=j67*
1215-453+
15-S16s
15-279
12-050
13-L04
13-P58
15-v75

12->44
12-E19
12-M07
12-187
12-wW28

12->50
12~E44
12-M25
12-U16
12-W76

10=49

12-448+

12-523

12-543

12-132

12-U75

14-25

12-411

12-<42

12-h32«

12-87+
12-433%
12~R86*

8-84

({-913#
6-0n
6-0n
4=9014
12-428+
12=716
12-<13
12-€40+
12-M0S+
12-509
12-Y13x
12-\63*

12-62

12-230¢«

12=-176+
12499+
12~,89+
12-Q19«
12=_97+
12=174>
12-184+
12-438
12-510
12=501~
12-D32
12-K97
12-P43
12-v67
12- 78

12-453
12=.72%
12~055+
12=_12*

12-4502

12-"33«

SEQ 0321

12-87
12-485+
12-.73
12-P29*
12= 53«
12=110x
12-97+
12-437«
12-R9N
12~469*
12-A01
12-k83
12-P30
12-v63
12-'73

12-80+

L-9124

6-0n
6-0#

9
L
11-APR-80 13:58:55 PAGE S-25

12-112»

12-432
12-722
12-<18
12-E72+
12-M71
12-555
12-Y55+
12-104+
12="9%+
12-h13
12-120+
12-434+

1914

12=:92«

12-G51
12-050
12-U45
12-w80

12-182+*

12=f51+

12-928+

12-929*

12-930

12-956+

12-957

12-:12

Mmoo

12-7206

12=212%

12=714

12-741

12=245

12-276+

12-278

12-;85

SEQ 032

DoLCLomrm—OVULUD.:>aADGJLWvaSV.Z.L\JAeooP—ONTQM>
S59Of7~=sMM--ooNKwaM]iei00~yAgso(nY@RO)F1w.06lJNNe0LRI&.ra—7TXBCko®S6M£%.mIIm“TLlONv~Rfvr1e1N0lSmmIMar45TDrlO—=rV73ESILSLOV5mNV\nC=N%~ArU—SSM27D@eTQVN3GItILNATO4Ne&-DeweDEOL12V0UM4U—INVD“Y3oD-U3=DOB”D=&PRO%SMVRNC2@%SOB[1P0OD82GL%IPSP0=&O6INRbP7O3RMfNGE5O9FENQR1T—.i:EtUO17~PO8TM3TBSOIrRI0MAL3PTXNmV>C69Q2D¢XSrNN>rER20ZP5SVMI¢URO.5SFJNOSSOLILT2>3\rNB=PAW&ZLVfrOU..A9%yNSCMUAlJ*MJN—ONYLfAO©2Il4JR0YIA4<<1w5HHLRT3DNTfM2Of4SNPPI%3AiTOl—MfAAAaf1QRHCBW~IlBNiFTI“9AOCOONCXJRNYX%.%TR—Y.AMuf.D07ZOSID~lQ[5mNNYRM_A3eIJW2A7oGRO—a0SOM.e8-eOMO0wN<©nW—CIOMBaM6NTeeoG4U=——AIN1——OWMIB5OAO-OS“NS\TgdT0SGIO3%BdAeO~2NA-TOq—@0LT—l6MNNfIOyOE3sHl7—0MTIOAWMmMRO)JA>%ONW0NOAWr7hBVNCi
CROSS REFERENCE TABLE

N
—0

(CREF v01-05 )

MACRO v03.01

- -

— O\ = <

—_Q - —uNe—

b*bP—MAAo=B-=—T—uU(e-4-AO—t—Uo72UP)")7"Tu—R4z0yU1ny]S&y-—ybON8—NNAPoL=SR—=BsaryT,M~IUeN&ADTNMRAmA0hM-OUU&PTEiNymAP~ESASCUOO|II&eLPRPoUYA0iNAUR&C-iEE=BOEEOePNPUBsNRIKAUySaPUe&eYGUTPPtMTEAARe"SeUeTeP)PNUSTsdRU-MeEOBANeOPPiPB0rEEIItAAeSREeU©POLPPPPrRLUTBAeKNUU=(PeSPPPDoTATLMU0KI"INPEUAeMe=EeeoPPeNNt[RAA-eUoEEeoWIItPIPPgO/LMS0P-NWRSUo|EPeePPALPEOlEE-EAOAUNP=YPYPAPPLMX0UUNAN=U(=eIeSN0PIEEoIbRNiNERgUooPeOI=Ai0PbPRELN—NFUE0e=IIOiBPPgPPIAtUIGRAFU-oeOIPI0PPTPNNtXEEU~D(KM=o00OTITRFPU~ELRBAIAyU=IO00PB0PPOPEXSS+USIR=eO([=ee0E0BLNTUlEIo~-o=eAOTO8PPUNRLREG0eSeME&PPoTAA0PROE~IB\OAIR=ro=«[oTP80LOUaNAS NMEeR=oo=NQE)oARRNX3IAUSN=I&=ETAPTOTARPEET=A-U&o=0POTAA—ARATEA==N—SAe"eOTOMTTPNEANNUIIOYe=TNoOeeTAXNE=A~Oe&AeoTR0PFEUIRNMMROM===D¥&e=TePARS0BBMGlt=TA&NeLoPLoTP0NIaNANT=-eIIeo&XMUSTT0NINoAIe\oeeo&®eL1UREoROSRFeJXoo0ooCALAL%W+~IA BT—OroOO-3-Y~A-.O5-e-—~4«0«« SYAyL3—0W3l&8-8-NdNA-8©0&--8—®&3INe—D—R—ONr-ne--®A0AOPgrMR—Nm&O&E&Or0—IOE—CFIr&&xTAat—NlNRTrr’SNRV—&&&r—aIOeVl_M—IRIIDt&&&—rTRYAP—Br—AANMe&r—€R&rMEI«NRe——ONVO-S&TMNOereIrSOEOe«e—«—D
)A~Neo—DOD-—)TTNPo0y03-Vy— ALUDOLM—vO-5Ng] TI«AIolUI0—eA"afdm'ATOROUST8aI«-e—r]AT=U0\ITO—A0U=OO0N0&I0rOATUK-LQT.—IP€[=UTTSPLFoO=0PIUAi(LTMALFXT|E=POTPUYNTGOVWON=ODTARaUVTDTUA=NVOOLP)NXIDKMTAIL=eOo—UOUiYEVWLATM®D=RDBTRNbOPUEOAUTVMLOA=OITI7eP»TEUT=DDAI—OPLPALMUTO—DIO00PNEA1>EWrMTITRPUPN—LaPTeIBVROANO0P~%EEOTTUS&TATiPDVN¢—ITKUO~O—oC—0GPLtESMTWATAJO>Io01ONG~TSL1OUVeA0B&EMTPIVI30VfTATMe&>ILA0PUlITR-— PATeI=&OoPTT0vYI0OENTUTTNee®&NaPTUA”DOSBOeOToPK«GGPVNMo—e&]OTB0N0UYUA&—T<e&PI8POOTN7iSZBT7&eeN&ARIP.1dCNNNT=T“Oe0«DRPT«L0AVT-A=NTPe\&=OOPR—DU0TPO.e=FO&&1PLN\—VJRNAToOe."&MPAB~O«UTNTH« 0oAONMK;O NN~OOOM—«V—rpODO]TN=LrT—RNAr—=¢OO0IO——A—Ro\TM3—MY~gn—,d—WOAO&I2&eSRnI-T-MO&LBOIo—EOQ>“—A«oyrdhRMMT—WTP0aArLtnL>CO-—MT*T—r
]4[aVEN UoA—UUU UeMOeSOARPUOBAPUMPOESPTNUOEASUOeP—Oeg—eOPOD-PONAIAoSRU==EO1P0MURo' u-&1ny30«00ON—Tr
CZRMPAQ RMOS5/3/2 DSKLS TST 1
N
9
11-APR-80 13:58:55 PAGE S-26

SEQ 0323

RMOF

4~907«%

12-81+

12-88

12-168+

12=175~

12-183

81 0

12-217+

12-223+

12-231

12-264*

12-27M

12-385+

12-391

12-407+

SEQ 0324

(CZRMPAO RMOS/3/2 DSKLS TST 1
CROSS RFFERENCE

TABLE

(CREF

MACRO v03.01

v01-05

SEQ 0325

12-k94*

12-U09

12-U20

12-U38

12-U49

12-u77

12-u81

12-[68

12-%51

12-b48

12-e54

12-199

12-U09

12-U20

12-U38

12-U49

12-u77

12-U83

12-[68

12-451

12-b48

12-e54

12-199

[oXkl - 37-)—e%24 - 1.Dw.’\ - |] oMAINO - I|vNVWoOr- -oV[aI)aVTaIV[L) [IoV]a¥TVN Pi eTY A—O>L0C.

—

SHUT
SIZCLK
SK1
SNGPRT
STACK

12-e70
18-174
10-21
4-882#
48504
L-688#
12=796
12-303

12-H12
12-P25
12-M96
12-U61
1¢-174
12-142
19-8
15-54
12-152
12-524

8-19

12-866
12-364

12-420
12-P48
12-053
12-W59
12-+35
12-380
19-

VeOO
IV
]— -gV [aV
TYPeT
M=
—
oo
J *Q )|

—

MO P NF N\

4pVY

vWwhwoD

248%60

oO[aV]aV
VWNONAIN
]OoV o oOVNO
-}o[Va}Vo[VaV]DaVIaMN
N00O[NOWVLYOO
ToaV] TQNQ—WNOI1NToaNNT
WONMN
——NNJ WLNe—e-—r[—
Oe——ANOONN
o[aVIaVT
V} oNT -T oV oV -1
o[}NaVoIa-VTaV(UToV

xI1.%
S:NGOpSfiZg

-%1‘

-e— ]fiF

REFENS
— WO~

Qswy J3

VNN£——]o¥3]V13oo%gV2AV(R

12-538«

)

c 10

11-APR-80 13:58:55 PAGE S-27

12-J60

12-Q57

12-060
12-i112
12-078
12-X04
12-_04

12-\24
12-i75
12-088

12-h24

12-R51

12-R96

12-_15

12-_56

12-328

12-a42

12-a46

12-X97
12=_45

12-705

12-°00

12-°35

12-°96

12-a56

R38%5

12-b28

12-k28

12-k62

12-194

12-M54

12-M90

12-N38

D1 0

12=N77

12-007

12-047

12-073

12-P17

12-P38

12-P65

12-Q09

SEQ 0326

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE

STANDA
START
STKLMT
STOP
SWO
SWOO0
SWO1
SW0O2
SWO3
SWO4
SWO5
SW0O6
SWO7
Sw0O8
SWO9

SW1
SW10
SwW11

12-Q86
12-V85

8-63

6£-986
L-688#4

]
12-h43
4-6884
4-688
4-688
4-688
4-688
4-688
4-688
4-688
4-688
4-688
4-688

TABLE

(CREF

12-R34
12-W06

MACRO v03.01

v01-05

)

9-34
8-14#

12-R84
12-W55

12-S21
12-x00

10-34

18-22

12-K50
12-h49

12~P91
12-129

12-P96
12-i35

8-19
19-7

8~19»
19-7

£ 10

11-APR-80 13:58:55 PAGE S-28

12-571
12-x70

12~728
12-Y47

12-T46
12-\09

12-T69
12-_00

12-Y20
12-191

12-Y30
12-197

12~c64
12-377

12-¢70
12-383

SEQ 0327
12-798
12-¢c06

12=-U27
12=-c74

12-U9%
12-k50

12-v32

12-v52

12-167
15-28+

12-999

12-h05

19-6

12-489
12~g44
12-m91

12-90

12-g45
12-m92

12-91
12-m48
12-m93

12-b86
12-m49
12-m94

12-G07

12-[68

12-%51

12-b48

4-6884
4-6884
4-688#
4-688#4
4-688#4
4-688#4
4-688#
4-688#4
4L-688#
4-6884

14-17

8-19

19-7
8-19
12-C26
10-53
10-53
10-45

12-g17
12-g18

8-25

10-27

12-[95
12~b89
12-m51

12-096
12-b90
12-m52

12-[97
12-b9N
12-m53

15=57+«
19-8+«

15=70+
19-8+

15=72+

8-19»

8-19¢

12-F14

12-F16

19-6

12-[98
12-b92
12-m59

12-099
12-e54
12-m60

12-F40

12-F67

12-86
12-g40
12-mé2

12~-~87
12-942
12-m63

12-F83

12-F91

5-0

TKVEC
TPVEC
TRAPVE

TRE
TRTVEC

TST

12-F17

12-F75

12-F99

12-199

12=132

12-170

SEQ 0328

N)eYoIxOYroA—RYoS—oNeA%O.IRTIY9-CDI3PNR9EIiG9ZOI<iR9IN9IAe‘AR:IN:1Aeo:O}'R<wIP’RNI9Ry7PRYoNI.YoC3U$-YXoEQ¥IoOT%NRoIAXiKoNIbY%oE?NoNRo*YNoSIRXoXAYEoVYOoYANNIo\RNAoYEIo>YSo>YI0o>yYRNoYeoqBoloSAoNfaliRofalle
a(OIV=Si1oh,2d——sYV0——LlN2=)iV~=JN2=VOPiA=BX2iN=A=JU==RXN2i=A0JVUOv==EIlNK2=TVNvAoPN2TVMP=M2taiD=yIYa=v=lMaNM2==v1yNoil=yNoM2glTyViSPvayNt2o=i]NS0VyiT==o2ONi=V=SIVv=S[a2=SI=aVigI=PNa2VB=vIPDaVi0=IN=aiS=P2Vio=a02WtBOi==uyNbviSea)Pgt2SOi=y=aBtG=edyID2UeiOg==tBydSatiD=boIy2SIeiytieD=gytIT2BSiOb=eyIOASdeaTyIV2SoOeetySaSgebeIN2ySseDeI0oys=leNtoBOb=TSoaLlrtTT[aNoObreteoaOyeetBsobOltTe1NOo=tlToNOlteT1oltTToSaVOtelTloetTNTOMPeT1!NOltT!LO
CROSS REFERENCE

CZRMPAQ RMOS/3/2 DSKLS TST 1
TABLE

(CREF

v01-05

MACRO v03.01
)

11-APR-80 13:58:55 PAGE $-29

G 10
SEQ 0329

TSTS2

12-k62@ 19-6

H 10

SEQ 0330

CZRMPAQ RM0OS/3/2 DSKLS TST 1

CROSS REFERENCE

TABLE

MACRO v03.01
(CREF v01-05 )

[ 10

11-APR-80 13:58:55 PAGE S$-30

SEQ 0331

8-104

9-57
9-139
14-57
19~7
19-8

9-70

12-L12

12-002

9-91

12-Q75

14-23

14-46

14-51

14-53

19-10#

12-229

12-254

12-257

12-262

12-L40

9-11
9-63
9-144
16-95
19-7
19-8

9-14
9-67
9-152
14-101
19-8

19-8

9-17
9-73
10-24

14-105
19-8
19-8

wCE

9378

21-77

21-78

SEQ 0332

CZRMPAQ RMOS/3/2 DSKLS TST 1

CROSS REFERENCE
WCEHI
WCELO

WwCF

WCH
w0
wH
WLE

WRL

XNUDC

XNUER2

4=9624
49634

(=780

4(-787

12-F77
12-FBS
12-F93
4=787

4-8648

12-97

4(=760#
12=-:76

XSz

lJEROS

23-38#

XXDP

(CREF

L=7228
4=725#4
4~726#
4=7740

4-8BO#
12=942
(-8594
12-831
8-67#

XNUOF

TABLE

6-0#

MACRO v03.01

v01-05

12-697

12-Q66
12-Q72
12-063
12-X27

)

SEQ 0333

12-726
12-S40

12-X4%

12-xX53

12-x51

21-81

21-82

12-226

12-239

12-290

12-293

12-376

12-437

12-459

12-509

12-:92

12-;54

12-:64

12226

12240

12-300

12-303

12-398

12-420

12-475

12-512

12-884

12-933

12-941

12-190

12-223

12-238

12-284

12-287

12-395

12-417

12-456

12-507

12-810

12-818

8-3¢

8-36+

8-41

8-52

8-77

8-79

12->51

12=->61

12=>63

12-:92

12-N66

12-039

12-125
12-965
12-81

12-839
9-123
8-30+

12-191

12-192
12-E47
12-99

12-840
9-153

8-33»

K 10
11-APR-80 13:58:55 PAGE S-31

12-856

12->78

12-N69

12->82

12-001

12-Y05

nithhITLITITIRTIRIERYITIXTSRIO0T1ATEIT24§
O

0—N——NOO -vN—~LoOCLeWl-HMeN—N-O— -NUTFDTXHOwWwVON-— (%)

TONToMIUn9M%NaT2N—-I--T.OI)NeT—IO—C—IOONL0FNINTADTI—N[EWVIaNOYLOIIFMNNIIELI—OION ®[TIIeI.SI IeI~I,II-— E]EIDMeTe——21—N]Iiw0A4P[MIEONT--O1IX~—I)T—NN%[PI >-w€-- o[][0>o<-[«
P—a[2]XVANNN—N)UoR]UU6VM4OV.Ol—eOr[SaAaX—V—YJUIu(RaeNXUennWrSVeOIR—[OVASnaUY[: V¥O0-WVVO—NMO-—))")ToAroVV,NV—M~YrVTTtOOAo(VVySMN—-V@TMNTeIIIETMRYVVVIIeIReARW-ONNN—4—ODNoOVVe~MVITATR%IIONIIO—rNNV(RrOVN—OTVMTIIAITGroTWIroNVVVR—VNtnIT—TIOILMVNAreNTerTL—[(Nao2—Ul—A—~L||V(tNTA - —NoTN-AN§-§O—§||||VTrNTNY_,,JTNOo,eNIo—I@OTrV)oNTNeoOOwDQT,TN¥WIIOI—Jo—NXVVVNMi¢TVTrTWONOIAIOI[VV—VN[TA—hTTQTaVIIIIV]+NOV[TV[NNonTGMoaaIIIYOV—VOoN.TTVLaNaeoaoMO—TON[]V|N|V.TTVN <«[aL .CVQa
Nn~—0SAOa-NO—NOeMTS[ mVT3M]~oVN£I][-&V=Voa¥o)EVNoEI=G—[SWMVVaO7oVQLOo]k8rWNVo]IaolDOoaT0oV—CNI1rT7oLaEN-V—orV(lg ©--1OViR,]B[QoNT-oWVrOaeo—AVOrT1—Ma—NVI=o]t0eQo-—DaVArt[HV>a— o—

cISE—MgeQ—PNNeNU\KVU—.]0—O—AOo\4RO\7]e.NvO—[NAM.e9NO—.M—NMm4[+eNCcemo3%2w_ITw3dmMb=]:eoV-N>e-oYVXwXON%s|]®¥]~d71—&oo(W,VV-—EK]Y-N~STO—V2oQN0INBUVT(-4NWB-¥“eR[l8—o]TVPOTno-V%VIg0TVMMV-3a9oI—eD,7D¢YIo.VaNND—EoTAAVP57TXOoITIlO0l%aUIoIVWRo2PJST-Sl—Lo—F1%WVo\EMVTm5I-MNlR"4[—TraA%eqVSNr\wL&NT0o—d]AABoewLVM—aLlV1—NlNTLouV1VAW—TA%7(R~&XXo,HEme%0mN7L%s,%7MES—"mw@X%gVwo>uXo"xas%>dqX".wo>lo/m0X>%d&zoXumE¢WX%a%&IRXumC*%XIfowui%We.%DmJeolla)4-0o%CsTdSo]z.eXS“WIsXlX0.%sZXNtI">E%W0&L}DELuMTsE«Og6IwToovB3WoS@YsOXfOSaD%iS3—nDROMe-QOC§37e].|s|rWheVNTOEVMI—N9Nr,6Xo]ON—Vo—-TdN%TNRTMoBeW.OVoNANV"VDYXe*NTOTIOEOIoeOoVNT‘V*SKO]TCI-eNHOBN1LWIVoQM.1eIMGXRVoVI—ONT~TeNoEOVDr1Oo-=CMX-AN—NTI[WOVTFfOiQQ[EC((XVnW(OOPA]sNMURE'274oT[o)m4~]VN—0~WlRMoo-Q-QNSa[4}——«u.J'
w

wmo
—w

&]5
[

o—

4
[« a0

]

Lo w

—E

We—e—0~“ TSRNUDNBABNONIMeMmNSJB/OE
Mo[OAV}aWT—VorIVN4[)1—4aNOaoV[R+TVe-XraI¥—4T—oa0N*T—--NTo—0aOulyalNaoA-)dJ~[>y«-v— fX9012Vvl|2=Q15oLt-73041ILM5W1/35IQ027#90I.$9K38>oI3%27*29>527P7a&3L“E01Ta54I0w5V3nf5%66Y5l24.7\0X54W35R11%.U480%%5VfX7629[i&9.e863A4$.Jl%8“os82O.«200.O&NI179_NI%8.V2-f6Nai9W—M“%85DO.%—M9H1J5N4TLV46NN4T”V.f4%T.Y:%MlOS35IEW0XQ?.82NO41T31X579uIN2.6M0]1MI1Z[%N”09-JN¥MT.1%9a8‘7VN]
[ve]

- %2

-0 —On

TR o o[¥] oN o oN

NMOM
12-634
12-L44

12-647
12-\84

12-667
12-%07

-— !] NM -—oN M— -—[aoV |] a0o0(V) -— ao0
"M ~
] !
~M 0
N o
o! N)

21
28

] )

)

o4 o)

Vv01-05

(V4) ~J

(CREF

"~M oT
o o

TABLE

[MaV] oM
-—§ [!

CROSS REFERENCE

MACRO v03.01

)—— — X7[! [
LN)MNIMO[ A! §
[o-}) —O[ —— O[—}N
J- —e§ — [—
P9SN wo IVM

R ®

=Y9TMVYT
_T3O0NI—NOVNOV——0r\=—JMr——N~S—TATNNORN—
Ol= e — W 0l

w--I NIU QWi&137[)[ 2[ OV—0W-e]oNTV—1oOV—oAUToITAVNTOoWMToTToVVOToVITMV~TIoOMSTOVJTNoVOTNTFoTRAoeWOVNTeoVTeoVTOeoVT—oYMeT @~NYNOMANAO~ATJAONROI
—V[-N—O][)oNrMVoa[]E—r¥ICTaVQo@-VIUU —UgIrMV]L¥o-oIIeYV:Oa]—eINImI®V:———M|LBLII &gNK--!U)N"KNA—N"-- £O@aIDNI—h-)1 LL DV—AO]o—VVLoRTlooNOVo~TTlISVoTYNlTo3oVOoAIl]NoNVoOMNoTAlW-oVoVTloNVFoVTAlMoooVNTUlMoO0AoVoMeTl]Roo0ITNelMSoNVWoQTTNlooAVReTIoUVaTNlNOo—oVNOeTlosNToloTVWOTsVeTNlINoToelOoTVaAN TMQnQedNNoOVTVLQTToWNlSAANNYORNSSA—TMIRiUIMSRNAOANO)eoUWMeNA—MEILOLMA
OMOIUNNe—Mee—L N A|Me2D—Q VNO¥ge]o—VTTIoMVUlT7DOTLoMRVVToToNVTTOMMWoTN7leoIVAoTTRONlVTeTIoNVQoTTOAeTVSlTTNoWVVTITlDooVNAo—TTNlMVSoOeTNlTNAVoTTeFlNoVoTIlTooOSTVoNeNTlINOTToeQMQOlANNNNVe—ITlTooMoNWTYelONooIVTLoQTACnNelNMNALgUAOAOUS~NVOeWNNRUOeNOL
I
e
I
I
I
I
[
N
M
—
—XOONY)O\I|I >—ON| ——OeN—NIeOTMTOeeNTIeMNTTTMeOATMeOeMUNe—NOJTOMNUMNUNANUMN
—N-ONO5-44 S ki-— n . e -MI<42yN0-R-O|BM—AO8UIM0AIAMA 0N—IRO
e(OI|M.OFNUO—[Me~FAIOOTR0N<D)R3ON7M=IGOLe0\AA—BNRNNOOABULR=2—IAMA M(=OI YOAOIvOIA0eON0RNMOOTARNOIMAC—RNUSANOITNNONI—O0MIANIO0LRNUT0 AI
N
e
o
R
o
o
o
o
o
o
o
X
o
k
o
l
o
l
e
l
L
l
W
T
T
R
T
O
O
¥
0
T
O
O
P
V
T
T
0
7
4
0
T
I
N
e .e P
YTN TTVNT0TP P4VTOT0PV O0TTYPV NVN ANNTN

13IOVo=I[VTSMea[N-PV-gRBVTlNVNIVa1VaI1]VV1i~—TNTalgVVRe]ogMag-V—V[8]BagNa VIv—-VfIn]oautIDVAoT=]VWVD[-O3TNa\oK—O¥g-~a51FVV=M—a]}eV0r—[[2I—WOaaea—VVDVn1—IyOiAa[)NaNv-VVe]-~-N—~--N—— XTOWOMAOWVM)|NVL—TNOIOITVBNTeIoMW—=YIDo>N0TN—IorVNTNeoOVGr0TPoVXTeIINI—eToO0oeW2N1VeQT00IV=TINeIOoOVATIo—BTVITNVOvNe—IOMVOTTGLoVATTNIVIPIoPN)SONPRONNONUTSRVOSSVNOAUONOAOUVMAVUMNOBrOSIUeM—MsLM
ocV——guVOnV—]-VMO]—NoNg[ta\VO¥NWeV[goV—VNINyI]IVc1RegVN—Oo—[y[(aag oNa-oNdNV]¥l}]LOOoaVVo]lloVN~[VaLyl[~NV[rqlI[q—¥qVao0-~5—r [o-~4a]V—5-A) VOQ0)oWTNOVSTI—NoVO]AoIVNTQM(AVTOVNTXoVIToVNODToO]V—TNVEAOTMVO]OoN—TWoV0TNNVTOoVNOToNBTIoMVOTNaVETNaUNOAIMONNIMONN0IN0AAMNTNL
¥VO]]ooBINVoN1VoV][[aa [[faaiVVIIaaVVIIoggVV]]- -— Q»LAIO NUM[O100MSeITOIOMeNeONRYUTVRORUYRU
!CZRMPAO RMOS5/3/2 DSKLS TST 1
Mm10
11-APR-80 13:58:55 PAGE M-2

SEQ 0335

12-:67
12-423

12-_75

12-=09

f
i
N
o
W
»
—WOMON Tx>Lowm -oIX%VelVa}Y.

12-€E79
12-al18

12-G36
12-a34

-—Lo ‘e O- }) M~oM -— I°.“M

—

GETMRY

‘

4=254@

12-149

12-=25

12-=35

12-246

12-=61

N 10

12-A33

12-A44

12-A54

12-A71

12-B18

12-158

12-184 55325%%2

—MANoMmet—eRrdN—Tngt-JPAu40ZNoMm~—e>-oK4-L4IV4eMLdadde)eMLdQdOdE)eM]E@—EOGei>—N -oP-X—Dor<u
oo

.OrF-2a0WaNeo—UNeOndo—OVm~TLOvRg.OJgmMZ-dOnCawMyoKg.-—WN=n9—lfMlXIOQPRvo1SA3BoTvYSoO—U5Nha%XrOvRT{QTGRMd1o=PhaMYONJDm%NTI-RvC—Mfe-wdM1x—d5—Rd3——Tct6-o4MOMGSAeNZ%Mnmdo1IUAoQmOadF0n=deuA>KNd&©oNYQ¥HeS%QFlTR0V%aNToEEVNSdO7ndMIT.oJosnON-8®dnYlQAO9aNSrsKDdT%®eTNDWd—L62l#=MSBAiAaN5xO3-dAT0Y§§O#VlMLi-A>3d-emP@OMo0]NN(td—P7[2a+LTAyOdAS-)Iw(T—oWMpWl[UnleNoOOViETDldNo*NOAbeN-OMlaOIDV4oRTxHX%AWsdNClM—IVaSmAsyRnSU&aOdlOeNoIdIbAA0lTDSDeisOYVOnM%Q>clSeVxgdlNRnaNEAdOTrRiloB=dCNobJSANL-pPOlVmfOMasRnNXFENdIllVdMDSaAnvaVWOd-TAOlaLoeTxeOLdM~ldNIVMNa©ocNYYn—NwOMeldrLwUA%6W3CJNG-TTvMNKO)S:..AOMYRior&%—EMOVJaNTGTPE—Pm.£AZDIT¥RNMNPfg%I5ODeSEet-ifWST9KIlsYcSxMO>Y—.—B—O—R)M¥TDN0AbSRbNS0oaeANO—oXIM]7GbnlTd[~M~N+ALI%ERoQo>VVh40©SM6r—nx—Sds5UOGeXO9rNle~O_oDDeM-—®mMlO-LaS>BWSm<)7IYt®>wmgfMn.C.SiJ]w
ox

2VeocUL~GIeoP—LN-)oRAMNOuudOyVoNe'rNoeTyONauurlVART)eIOcMAauxu)IM[oce—eoRe—OAuyRyVzNLYN[IA~MU—(—N-0—eARaLyVrurNMPT0S—aU—OOVFTQt=ANOItrACIoy—VueJIr-I—~EI~arO—LeNVT2—GHAAeoIazOaATaAendO—UNoAU—LWW——1oOTNT3loUA0AOTo—NO-QRYU=lNNa—eI—Aoo_dTMYnNI—TdUTlAUCNVYAsODOBIL0lITUNIrTTC[OaNSO-naGA—ITEdPAAUNVMhINNo~DaY—ZN4nOY—PlVRPT.TLa9xLgS3zATRe<(oW9OM0U>(©©AhL1—10)TRAI8\wY(A-0AZnr©eT400VUMEWXATFeONINIOUW-TRoATaTSI—Ie\NRolyVNOlNONdSE7deRllAAT—oblAAeo2I(TlTToRA]GNoTo)INleOiloUORooAIeONl0TlB—NUFoeA3—leALIlR1IOEdsBNNUlrTYRROak—ARIloIAPlNRATolIYRITBa)IGSedOGOLTPlNSoTITNk1AIRANaL0YdW»2-» .OllJA[|OLRAOIRTNON0NO3oeT—eoP1RPVB]N0oAV0A0MAoYaPN-N4rTITOQI@TRRM~ANMNFXVeET2O——I—.Vr-STL[O®-Bot—7[—k]aEAI3W2SJ2N©N RET-NLS)h—dEa0%M—Sn5dTLEIK—®UTA[VoER-M-—e—B8]9A0vyVo—5]CoTu—]\VoLNOIVVNM—wo23£Er]TTGOIn.r\TO-1—U-YoMy3—ONMOeT0VreL@—N\—[]P92-IMS%[c&a~V7z[w-ER3"oN o—C a-N —N —N Q=[y)XY
e
i
l
i
T
T
1
V
P
3
8
"
1
0
1
T
OfLNeZO—AT—WN-YuuUAAoOV—ArEOIaOIyUNAxAITu~MYCNuMnUyr0eNAS—O—eA—OeYyYTFOK—2OeNr0ONOBTh RT-T—=A——0NOarRl~i0OyeI0AN—0NIrOANAOct0,rNNI—M-——VDT NRNeAM-T-C——-- 0OIOaP¥VINNAOhRRIAO—EgIArOASBRTAMON.OYR—OVoPNOeNTtOD—- NM T-P ¢P O-——OvIr6--—— TeY-R—OO0CiIeRMIRHNCTONOtGoIIelaMM0ePI0oTJiNNytINIAaIOiYOeI, —DlNYD—iyrONenN—TiGItDfMBNRoATOTWRoaAIMeL0RrVTeDGtMdieoO—TRIsWeN TANNW-T-S——CBTaOIOMORGNUJaORAO—EENC-NIGUMDTONPTEiA.ORNOLAOI-eSNTrENyT.N——O—- O NLN©PNFo--7-30E7NOv-WM-NN-—MNTIemRN9Ny—G©NN—To--g—D
NNA-ENB S-IRL— o—X—NG—MB—-— -~-BVMOVmTeMDBYVm O-CONO v®yO--g— ]S~[«
W

—

[
9]

[
)

vy Wi

SEQ 0338

-_NOSSwo242&4500OGOAIMNYOAN4“9%17015012“12761
xwL8%XRNK17MlNW[gOl¥&-D]~e5NSal90CfmIOdiyRI6f—7eh90S.8VIAV1.=R3NiAOr40Rx2mNIA902FR“0=S1D0XLN~S1OL8IING.R5~O9ML7QCRM2O2N0BC05-X346M”4E3C&B50OM&”7UR931N654NG88778CM12O4&B%1N7%S74—88O35U77A”“M0WT4”O59N70071%0772
4ohba4dbexD-~2f¥%o/®2aw)\fg4WiXMQq[bho2lCaERv2JC1N7MoN7l4~d073rs0CS24m5N8—2ENf.6rLh2OUCRMlm33N2VdQ6.—%P1D2VmNIR)47MA6t4kNA7nO8fh8bMI%TVl2SM64D2I3%T2A4MCV’30—9V21NO8O7\9WATZmV31—2O“uCPXmOA4FRuRNR41SN12=JVfO7&LNYlIEYEW08ZO2ZN7ON7r[EOLMOAD4W0\2.AN‘J96JO0aUMVN“A2AOXTYMENBZNSG19h02I[O.eM&2MOJ\-NWAe76TJ<I2ANvSTQ%6.NJIeu/I“W2EMMTqnN—“3M.eNOeNTl2)aOTICO2E.BlIA.2UJaIP2NVIeR2SN4TN~O2I7T4TN4TI4I
CROSS REFERENCE

[gVIaV] V]oVTSTVTVTVTVTVToVTToWoW1VToTNToVToVQNVTNoQW]VIaNToQWgVVIVIaIg(VI

VV¥0(O—AM)})L4Wo1VUV-OTT!0IONrNoSWyMNTY-—1—SIVRIT——- TOMSVeVOOVTTN0VAVUR-TT7M—ooIVSITTRNNVTTOoeNOoVVAUTT—ODoNITVWeYTMoVYo—MTNV—NT—oONWVOOTTeIooNVTVA—TOooVNN1VMVoeTATTooOVNTeMAe—OooVVQDNTTWOYooVUQ—eNONTMTNVNTTOOINNQTOTNaSNoTNNoTTVNoNeTAooONOV~VTToNNTMAQQTVNoIoVQo—TT TNVM~NNIoETVaOoNNNoTRooIQoNQTMOVINNIOV=[TTNaIVaOICVeTaIAVDQIOVTRgIVQNIOaTVegIVgINaNTRgVQIVMQIeN[VoVT
I
O
I
N
I
NN
O¥VIOY(1M-o-9LTY—ol OINoTWNVIRNV]OlTNTOM—I3NoVOPIeTTMMAMVIAYTINOVDETOTyeQVM]OVMVOSRDTWNVNEPTeoCVTNeTOROVPSTeeOANVYTeMOo—VeOTTP VeMTTIVNITeTMSIATVeIVOeoLNTWTNoTRIW—TAQTNOQETN=ToNVNY—gTNVAIAgTNVNLLRXMTILogIeTgNMy=TAMgMNNPULITIQLNNAA|
QgW)-V]0(V0] VPM)Ve1I—o\YVDTSMVMTEoVNTFTVOITUVYTMoVOOPTVTATyMNVOTVToVQTNTVOTOVMYTT TTVTOooTON]ANTATNNoIVRTT—TNNTVTONoYAgVIOgRVWLNNgIMONONILIONOLAALINN

YO9ixo0AULOT-—e0uA3®tCA—MuPUoVWAC4IYaP=)—d)7uuaoou0-V1nATdy0—2IRyTPwu~(SNeTUA-YS=L0[yo](AUTVUI0Il5TTOMA,rA.VD9ILANSTielAU=—yTVrTa1MTOx0WsV3wM==Te—=ITV7UDPUT=OPeIorVD3OUTUMPo=PoE-NyNeDTUt—O=oLIQ6WATU=e=NO]INND4MPQT=eAPOgeoEOVMBNPe=—TTNMVI—0-UTTUEPLP ¢yJR9=NNTTo%NUeO1eTRM=V1PeTVUIe==ro—N4sXYTAN==0eaUNoOWFQN5TN==TONIV1TOAT0IeeNU~IVT2ANQTU|PNUTOM7oRTeIOAPoNV7F]E=OUeNTo.3AToPUMT=TV0OAN2I=AFTMPTUoCR5OoAXTTVF~1UeoFCeVAINNO3YIe=LIOIIo0NPoWeeeONVMO40aeTODUTVI1ROBpeTe ee0OVTI~R7lg3T=]AAVOV=ONIR-NLIATT»—e0U—[P~yTMAeUItANOTAOoUPlT1QoA0TIe—lRt0O=ALATATPUUBTeOO0eTATAOlTeIRUANeIATkeLTUUeGATlTeOdOeTU[TeeLNI—TA0UOe0A0U)o--O o=~—
CZRMPAQ RMOS/3/2 DSKLS TST 1
TABLE

(CREF

v01-05

MACRO v03.01
)

11-APR-80 13:58:55 PAGE M-4

D 11
SEQ 0339

SCTCMP

4-638

£ 11
SEQ 0340

D—KJ.W3u9Q.P52T”9fV[1\lY4Qf0fYl%12.I891.27u.I7_80SvN2EoT4.Y5.5O\0.o0lM.2A7RC[0OAICNneOwOM,3.XONfOl—cA0—VOe0~—O
].%—goex3gn[]wo,oJ—e—TUaeYOOXl¥|aHfooOoWDNV1VWN0lT~IPll[oNloOOKNvo6SM0sTIYlNoMfoW.oO:5WOkFIlYlONoFeOoV%NQ4TQloXIelIl—NT[MaTeNaeCGNS2wlnMTkINldO=noVoOLVISIoleolWOT\lT\oaOeTN7osM2dV9NO]eloO)lOg]lJoIRaoV%V16MTnTTlIdlITqOWoUWM%o.9o0OVTOlTIDlIUNloHU.eoIek5O%lQONOlTNéLeN[NooNNloG06.LoTAllMVI—I)TMlkOeaNLMVNClIL:T]ONoLT%I—oNlR[(lX]ooaOO-W%f-V|l|]lNeIO—V<o@egeo7)VIfAB3O—rN)Na]2oi0V4~uRrO1Ng--BI0dSN(7VrNr———YaqXODa—--oIndDOrcIrl[—VL.¢l---O©—N~--*[SRI|——7®foOWl~[e]QL0o-wN-VIoe|]—v—l.
¢SN SN AX X gS SR
.Ju 1 .% U
OPM o1w4n oU

—Iwm = wE—a—o—

O8[.oa0NFOVTMXoTMTOWVaNONONoOV=LBoNTWNOVIQW03TIONVOoNTOOVOoNCVOWOOOIUWNMNaNWFIVMOOTOIONToNNONIODTIVXNoUOOININNATONo=VANNRT—ooXeN4]—&V%-3]M&O1]T%[WVANooTW3-VN(to[@«SN(-oo[V

N~o*0ON0OMao wa0OOdNNyo||]UoooOOYklNIoooeO8ANlIU[TlNVerITlOINoIeOTAloNoNEoOITlIl[oONeVeNOkeTlIIMNCIINoOeTYIloNAONoCITNlIOLoNNWVTNIMooYVlNTI—oIOoYTOZlNdNaIIONVNIeLTaMOlIIVNTOLkSAOaI[lVNNTNIT~—([[FRaV»nVVaMAF-]|]oV7OTW]2oINN|IV7O1aNoAIVoyVNITALOooNSmA1NNN[SP[NT—K0Iaa!eoTIOVV0TN]IM7OVVaWaaO—— NTNF|0YYWV
[V]—

(EAJXSLVGTog]I¥VINRYVgaE

~[e«N3+]x 332

OoI|NNIAS|NNO[N=—ON]NON=N I| oVMI}1TMo[NO(]o

[||eeTaoBIVV¥VoNoIITIoN¥eaToVToeVINWTIooIDNVTaooIBNoVooIWIVVoOaIVIVoIVIoIVaVIINoVITI[KaVaLTLa oVa]V)}oV]]oVTV]aoSNSi1 |I [[
—NN,
e
eoolelolololelokolTololandLad o—ry ---

¥)Lg[YYVeoolMa]aTT¥0ke]V¥0YeoiRVVaolVooVVWgTYVIoVAVe1o]laoWVoooNNVWlTV1OaToNoSlWVoaVVoHTNTVlQa—N¥KITT>oooVaVI]laNaVoOITVaV[aLIVaaVYVlaIVToIaQ[VVT ¥VVP]}I~Vog1VoN]]VooVoQ]V]1oo>oooVVVSNSNN—[o[Yq«oVVITR[X——e ea
|eT¥ooWelaVeIoVeIaNeToIVoI SVoIVoIVVIoVI[IaVT|a V]ooIV[IVoIVSN(|o

TABLE

-—

(CREF

v01-0S

—

<0 10 O
1 1

3 &-

CROSS REFERENCE

CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01
)

F1
11-APR-80 13:58:55 PAGE M-5

SEQ 0341

BQOWM—XO>V=ANVOoINOt 470294Oe3—90%N307 XW3N—ID.-0~OX0A IL|) -=|)be}—t

—

wrO—
-—

]1 Wwn
-— o [g¥] ~y
]

-— M o o

[

-— L] o o

-— a0
[}

-— M~