Digital PDFs

AH-F931A-MC

June 1980

343 pages

Original

169MB

view download

OCR Version

233MB

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

e
i
d
) wd
D
)
—

OOV NOWVNSWN—=OV
NN NN

CZRMPAQ RMOS/3/2 DSKLS TST 1

B 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 1
.REM

SEQ 0001

IDENTIFICATION

PRODUCT CODE:

AC=F930A-M(C

PRODUCT NAME:

CZRMPAO RM05/3/2 DSKLS

DATE CREATED:

APRIL 1980

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITT

TST

THE INFORMATION
IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOT!CE
AND
SHOULD
NOT BE
CONSTRUED AS A
COMMITMENT
BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY FOR USE IN SUCH
SYSTEM,
EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT
CORPORATION ASSUMES
NO RESPONSIBILITY FOR THE USE
8?61?%}:“8“.”' OF ITS
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

(C)

1980 DIGITAL EQUIPMENT CORPORATION

CZRMPAQ RMOS/3/2 DSKLS TST 1

E -3
MACRO v03.01 11-APR-80 13:58:55 PAGE 2

INTRODUCTION
1.

D D

OPERATING REQUIREMENTS
1.

2.
5.

—_— e

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

oo
N

ABSTRACT

UNIT UNDER TEST

2.
3.

SWITCH OPTIONS
STARTING

OPERATOR INTERFACE

2.
3.

PROGRAM ID

PROGRESS REPORTS
PERFORMANCE REPORTS

PROGRAM HALTS

ERROR REPORTS

NO\WnS
W

2.
.
.
“

SEIRUR W WW

ENVIRONMENTAL SUPPORT

PROCESSOR COMPATIBILITY

DUAL PORT CONFIGURATIONS
MEMORY PARITY HARDWARE

MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

'SEQ 0002

NNV
D amwacaaa

O VNN
NN = OV~ N W =

CZRMPAD RM0S5/3/2 DSKLS TST 1

D .1
MACRO v03.01 11-APR-80 13:58:55 PAGE 3

1.0

INTRODUCTION

1.1

ABSTRACT

SEQ 0003

THE RMO5/3/2 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH

FUNCTIONAL

AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF

USES

THE RM05/3/2

DISK SUBSYSTEM EXCLUDING AND
INDEPENDENTLY OF
THE
STORAGE MODULE
DRIVE.
IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES:
TO DETECT ERRORS AND FAULTS IN THE RH MASSBUS CONTROLLER;
TO DETECT ERRORS AND FAULTS IN THE RM MASSBUS ADAPTER;
TO RESOLVE HARDWARE FAILURES IN THE RH/RM TO A FIELD
REPLACEABLE MODULE OR MODULES.

1.2

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.

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE FOLLOWING

OPERATIONAL,

DIAGNOSTIC:

MINIMUM

REQUIRED

HARDWARE

CONFIGURATION,

ASSUMED

LOAD AND EXECUTE THE RM05/3/2 DISKLESS

PDP=-11 PROCESSOR

24K MEMORY

KW11-L OR KW11-P CLOCK

PROGRAM LOADING DEVICE
TERMINAL

RH11 OR RH70 CONTROLLER
1 7O 8 DISK DRIVES (ANY COMBINATION OF RMO5'S, RMO3'S OR RM02'S)

2.2

MEDIA REQUIREMENTS
NONE

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS
NONE

3.0

OPERATING PROCEDURE

CZRMPAO RMOS/3/2 DSKLS TST 1

MACRO v03.01

11-APR-80 13:58:55 PAGE 3-1
'SEQ 0004

2(9)

3.1

THE PROGRAM MAY

STANDARD

PAPER

TAPE

LOADED

APPROPRIATE LOADING DEVICE.

EITHER

PROCEDURE,

PAPER

TAPE,

WHEN

THE

XXDP

USING

THE

MEDIA, USING THE

66
gg

3.2

69
;?

THE FOLLOWING SWITCH OPTIONS ARE
SWITCH IS ON.

72
73
74
75
76
77
78
873

SW15
SW14
Sw13
Sw12
SW11
SwW10
Sw09
SW08

81
g%

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

84
85
gg

3.3

90
91

92
93

SWITCH OPTIONS
INVOKED

APPROPRIATE

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)
INHIBIT ERROR TYPEOUTS
UNUSED
INHIBIT TEST ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SW07-00

STARTING PROGRAM

THE PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT

VALUES

TO ZERO.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

98
188

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

}82
105

4.2

AN END OF PASS REPORT OCCURRS EACH TIME THE PROGRAM

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

109
110
H}

4.3

114

TIME

PROGRESS REPORTS

106
}8;

113

PARAMETERS AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL

101
102

SPECIFY

EXECUTED

THE END OF PASS REPORT INCLUDES A

PERFORMANCE REPORT

NO PERFORMANCE REPORTS ARE GIVEN

PROGRAM.

DURING

THE

EXECUTION

THE

sl il

WWWWWWWWW
oo
o
Oog\l&uguwdggmwombwm—ng
VO ~NO N

CZRMPAQ RMOS5/3/2 DSKLS TST 1

F
1
MACRO v03.07 11-APR-80 13:58:55 PAGE 3~2

4.4

'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

ORDER

DECREASING

PROBABILITY.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

THE ERROR MESSAGE IS NORMALLY

FOLLOWED BY ONE OR MORE PAIRS OF LINES
CONTAINING
DATA
HEADERS
AND
gechTgFRTININENT
TO
THE
ERROR,
INCLUDING EXPECTED AND ACTUAL TEST

5.2

DUAL PORT CONFIGURATIONS
THE RMO5/3/2

DISKLESS DIAGNOSTIC

IS NOT EXECUTABLE ON

RM0S/3/2

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

5.3

MEMORY PARITY HARDWARE

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

EXECUTION

—

b o

b i

e o

) e

D e

b i

3T o
~ NV
SN SRV
vt A

THE
RMO5/3/2 DISKLESS DIAGNOSTIC
IS
EXECUTABLE
ON ANY PDP-11
:FE?(T)CESSOR.
PROVIDING
PREVIOUSLY
MENTIONED HARDWARE REQUIREMENTS ARE

5.4

MEMORY MANAGEMENT HARDWARE
MEMORY MANAGEMENT HARDWARE WILL

NOT

BE USED DURING THE RM0S5/3/2

€2

G .1
MACRO v03.01 11-APR-80 13:58:55 PAGE 3-3

'SEQ 0006

DISKLESS DIAGNOSTIC.

5.5

ACT11, APT11 COMPATIBILITY
THE RM05/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11

AND APT11
IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL
%SEUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK
VERIFY

5.6

XXDP COMPATIBILITY

THE RM05/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH

IN DUMP AND CHAIN MODES.

XXDP

)

OPERATING SYSTEM COMPATIBILITY

SYQTELHE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

ANY

OPERATING

oONONWVSAWN=O

—d

)

USUSLSLSTNTNLN
NN

—

)

5.7

) —

D e

) D D

d D

— _n..a_..—a_a-a:‘a_n_a_g
NNNNN

FRSRIRIVIS ERIRGRAC2EBFIRAR SR2BIIIFANIN

CZRMPAQ RMOS/3/2 DSKLS TST 1

6.0

TEST DESCRIPTION

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

MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TE.STS

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

THE

*RMO05/3/2 DISKLES DIAGNOSTIC'' CAN BE EXECUTED USING AN

RH70

UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE

THE

OR AN RH11 MASSBUS CONTROLLER.

TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 07
THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION
TEST ARE AS FOLLOWS:

IF
CS
DS
MASSBUS MODULE
THE RADIAL MODULE

(RD)

IS NOT TESTED BY THIS PROGRAM.

THE

CZRMPAD RMOS5/3/2 DSKLS TST 1

229

230
sg%
233

234

MACRO v03.01

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

YSEO 0007

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

ON THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT

'‘TRANSFER'' IS

S%g

NOT STUCK IN AN INACTIVE STATE.

%:g

PROCEDURE :

239
240
241
242
243

THE PROGRAM WRITES AND READS REMOTE REGISTERS FOR THE
SELECTED
DEVICE.
REGISTER
CONTENTS AND PARITY ERRORS ARE
IGNORED, AND THE TEST FAILS IF A 'NONEXISTENT DEVICE
ERROR'' OR

BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS.
IF THE TEST FAILS
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE

52150

NEXT DEVICE TO BE TESTED.

%29

PROBABLE FAULT:

248
249
250
gg;

THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR
IS
SWITCHED
TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT.
THE FOLLOWING FAULTS ARE APPLICABLE
ONLY WHEN THE DEVICE
IS
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT.

ggz

1. IF MODULE

sgg

ASYNCHRONOUS MASSBUS MODULE

257
258
259
260
261
262
263

(S MODULE

264

CTOD TEST

ggg

PURPOSE :

267

268
ggg

TO VERIFY THAT DATA (AN BE
TRANSFERRED TO AND FROM THE
RM05/3/2 USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT
"'CONTROLLER TO DEVICE'' HAS NOT FAILED.

S;}

PROCEDURE :

273

274

THE TEST WRITES ONES IN REMOTE

REGISTERS

THEN

READS

FEACH

275
5;9

H'' IS STUCK AT ONE.
THE TEST THEN READS AS MANY REMOTE REGISTERS
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS.

278

PROBABLE FAULT:

279
Sg?

gg%

284

i 2.

IF MODULE

ASYNCHRONOUS MASSBUS MODULEF

CZRMPAO RMOS5/3/2 DSKLS TST 1

L8
MACRO v03.01 11-APR-80 13:58:55 PAGE 35
SEQ 0008

286
287
%gg

MASSBUS INITIALIZE TEST

223?

PURPOSE :

292
293

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

2232

PROCEDURE :

297
298
299

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

294

NON ZERO VALUE PRIOR TO CONTROLLER CLEAR.

338%

PROBABLE FAULT:

338§

ASYNCHRONOUS MASSBUS MODULE

306

IF MODULE

308

(S MODULE

307

309
310
3N
312
313
g}g

PURPOSE :

318

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

319
320
%%}

324
325
ggg

328
329

PROCEDURE :
‘

CONTROLLER CLEAR IS USED TO INITIALIZE

PROBABLE FAULT:

CS MODULE

ggg

"~ 2.

IF MODULE

%%é

336
337
338
339
332(1)

342

THE

SELECTED

UNIT,

AFTER WHICH 1°'S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND
MAINTENANCE REGISTER 1.
IF ANY 1 BITS CAN BE READ BACK THE TEST
IS OK, ELSE, "MBA CLR L'' IS PROBABLY STUCK ACTIVE.

330
331

CLEAR STUCK ACTIVE TEST

%19

323

INITIALIZED

ASYNCHRONOUS MASSBUS MODULE

.
TRISTATE TRANSFER TEST

PURPOSE:

CZRMPAQ RMO5/3/2 DSKLS TST 1

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

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
VALUE,
THEN,
ASSUMING
THE REGISTERS ARE PRESET,

USING A MOVE INSTRUCTION.

S(S)SIfi(NNECESSARY

TO
A
NONZERO
IT CLEARS THEM

THE TEST THEN READS AS MANY

OBTAIN

ONE

REGISTERS

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

CS MODULE

DS MODULE

PURPOSE :
TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT

POSITION.

IN A

STUCK

PROCEDURE :
EACH REGISTER SELECT LINE IS

TESTED

WRITING

ZEROS

THOSE
DEVICE
REGISTERS
FOR WHICH
THE LINE MUST BE ZERO, THEN
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE
ONE.
THE
ZERO REGISTER IS READ BACK AND IF THE SELECT LINE IS
STUCK AT ZERO, THE ZERO REGISTER WILL CONTAIN ONES.
THE
PROCESS

REPEATED TO DETECT A _STUCK AT ONE FAULT, EXCEPT IN THIS CASE,

THE ONES REGISTER IS WRITTEN FIRST.

CZRMPAD RMOS5/3/2 DSKLS TST 1

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

MACRO v03.01

SEQ 0010

PROBABLE FAULT:

DRIVE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

TYPE

TEST

:
PURPOSE
TO TEST THE "DRIVE TYPE'' REGISTER, RMDT.
PROCEDURE
:

THE

PROGRAM

READS

RMDT

AND

VERIFIES

_THAT

THE

RESULT

CORRESPONDS TO A SINGLE OR DUAL PORT RMO5, RMO3 OR RMO2 DRIVE.
PROBABLE FAULT:

IF MODULE

DEVICE AVAILABLE TEST

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

THE PROGRAM TESTS "DVA'', BIT 11

OF RMCS1.

PROBABLE 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
457
458
459
460
461
462
463
64
65

466

467
468

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

SEQ 0011

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

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

PATTERN

AND

PROBABLE FAULT:

IF MODULE

CONTROL STATUS #1

TRANSFER TEST

:
PURPOSE
TO VERIFY THAT BITS 01

1
ARE_
NOT
STUCK
INTERFERENCE.

ONE

THROUGH
05 OF

ZERO,

CONTROL STATUS REGISTER

AND THAT THERE IS NOT BIT

PROCEDURE
:

THEN
ONE.

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.

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.

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

AND

PROBABLE FAULT:

IF MODULE

ERROR REGISTER #1

TRANSFER TEST

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

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 TO

LIMIT

THE

CZRMPAQ RMOS5/3/2 DSKLS TST 1

M1
MACRO v03.01 11-APR-80 13:58:55 PAGE 3-9

—

il o

LIV
IV IV Y )
RN
88@’00\%5“ NS
- e lo - ENTe XV

SEQ 0012

W
N

531

PROBABLE

FAJLTS TO ONE OR TWO MODULES,

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

THE TEST IS EXECUTED IN 3
WHOSE

PRESET

FUNCTIONS

THE TEST WRITES ZEROS
IN_ ERROR REGISTER
1,
RMER1,
THEN
WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ZERO.
FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1
AND CHECKS FOR ADJACENT BIT INTERFERENCE.
PROBABLE FAULT:

IF MODULE

(S MODULE

DS MODULE

CLEAR OFFSET STUCK ACTIVE TEST
PURPOSE :
TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET

STUCK IN ACTIVE STATE.

MODE

NOT

WHICH

PROCEDURE :

THE TEST WRITES A ONE IN THE CFFSET DIRECTION BIT

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

IF MODULE

DS MODULE

OFFSET REGISTER TRANSFER TEST

PURPOSE :
TO_VERIFY THAT THE OFFSET REGISTER
IS
NOT
STUCK
AT
ONE,
STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT INTERFERENCE.
PROCEDURE
:

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.

CZRMPAO RMOS5/3/2 DSKLS TST 1

N 1
MACRO V03.01 11-APR-80 13:58:55 PAGE 3-10

.
SEQ 0013

THEN THE OFFSET REGISTER IS WRITTEN WITH ZEROS
AND
WRITTEN
WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO.

FINALLY, THE OFFSET REGISTER IS TESTED WITH A
BIT PATTERN.

SHIFTING

ONE

PROBABLE FAULT:

IF MODULE

ERROR REGISTER #2 TRANSFER TEST

PURPOSE :
TO VERIFY_THAT ERROR REGISTER

|
2, RMER2,

NOT

STUCK

ONE, STUCK AT ZERO, AND THAT THERE IS NOT BIT INTERFERENCE.

PROCEDURE :

THE TEST WRITES ONES THEN WRITES ZEROS IN RMER2 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 EATH PART
TES”:‘SDLLHgSE BITS WHOSE PRESET FUNCTIONS ARE
DERIVED
FROM
THE
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.

THE

PROBABLE FAULT:

IF MODULE

€S MODULE

DS MODULE

SERIAL NUMBER TEST

PURPOSE :

TO VERIFY THAT THE SERIAL NUMBER CAN BE READ.

PROCEDURE :

CZRMPAQD RMOS/3/2 DSKLS TST 1

B 2
MACRO v03.01 11-APR-80 13:58:55 PAGE 3-11

SEQ 0014

THE TEST READS THE SERIAL NUMBER REGISTER SEVERAL

VERIFIES THAT THE NUMBER IS THE SAME EACH TIME.

TIMES

AND

PROBABLE FAULT:

(S MODULE

CONTROL BUS PARITY DETECTION TEST

PURPOSE :
TO TEST THE RMO5/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

RMER1,

C(HECKED

AFTER

EACH

PATTERN
IS
TRANSFERRED..NOTE THE FOLLOWING TABLE SHOWS A SET OF
IT’E?}E:IAV"EMS THAT COULD BE USED INSTEAD OF A
SHIFTING
ONE
BIT

DATA PATTERN

PAT

PAR

000000
075266

1
0

163753
116535

0
1

PROBABLE FAULT:

IF MODULE

ASSYNCHRONOUS MASSBUS MODULE

CONTROL BUS PARITY GENERATION TEST

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

GENERATING

LOGIC FOR THE

PROCEDURE
:

THE TEST TRANSFERS A SHIFTING ONE B'TM DATA PATTERN
TO
THE
DISK ADDRESS REGISTER.
AFTER EACH PATTE/
IS READ BACK, ‘MASSBUS
CONTROL BUS PARITY ERROR'‘ IS TESTED AND SHOULD BE ZERO..NOTE
THE

FOLLOWING

SET

TEST

PATTERNS

COULD

BE USED INSTEAD OF

THE

€z

MACRO V03.01 11-APR-80 13:58:55 PAGE 3-12

SEQ 0015

SHIFTING ONE BIT PATTERN.
DATA PATTERN

MCPE

000000
056747
135672
163135

elelele)

CZRMPAD RMO5/3/2 DSKLS TST 1

PROBABLE FAULT:
1.

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

RMDA, RMDC FAULT

TEST

:
PURPOSE
TO VERIFY THAT
THERE
ARE
NOT
l;z?m
FROM
WRITING RMDC AND RMDA.

FAULTS
WHICH
SPECIFICALLY,

."'GO H'' STUCK HIGH, WHICH WOULD INHMIBIT

FUNCTION,

RIP

STUCK

LOW,

WHICH

WOULD

THE

INHIBIT
THE
1HESE FAULTS

CONSTANTLY

CLEAR

LOAD

THE

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

THE TEST WRITES AND READS BOTH RMDC,

THEN ONES.
WITH ONES.

THE

TEST

PROBABLE FAULT:

DS MODULE

IF MODULE

(S MODULE

DISK ADDRESS TRANSFER TEST

:
PURPOSE

AND RMDA.

WITH

ZEROS,

PASSES IF EITHER REGISTER CAN BE WRITTEN

CZRMPAD RMOS/3/2 DSKLS TST 1

MACRO V03.01

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

SEQ 0016
TO VERIFY THAT THE DISK ADDRESS REGISTER IS NOT STUCK AT ONE

OR ZERO, AND THAT THERE IS NOT BIT INTERFERENCE.
PROCEDURE :

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 TRANSFERRED TO AND
FROM
THE
DISK
ADDRESS REGISTER, RMDA, AND THE TEST VERIFIES THAT EACH BIT
IS INDEPENDENT.
PROBABLE

FAULT:

DS MODULE

IF MODULE

DESIRED CYLINDER TRANSFER TEST

PURPOSE :
TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER,

IS
NOT
STUCK
INTERFERENCE.

ONE

ZERO,

AND

THAT

THERE

RMDC,

NOT BIT

PROCEDURE
:

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

(T;:EN

?5?08'

THEN THE TEST WRITES ZEROS IN THE DESIRED CYLINDER REGISTER,

WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT

FINALLY, A SHIFTING 1 BIT PATTERN IS TRANSFERRED TO AND FROM
RMDC AND THE PROGRAM CHECKS FOR BIT INTERFERENCE.
PROBABLE FAULT:

DS MODULE

IF MODULE

CZRMPAQ RMOS5/3/2 DSKLS TST 1
799

801
802
803
804
805
806
807
808
809
e

s
i cxlh cnld
b anlh

VO NONNVI SN -d

00 0o 00 0o 00 0o 00 00 oo

810

E 2
MACRO v03.01 11-APR-80 13:58:55 PAGE 3-14

SEQ 0017

ILLEGAL REGISTER TEST
:
PURPOSE
TO TEST ILLEGAL REGISTER ERROR DETECTION IN THE RM05/3/2.
PROCEDURE
:

BIT

THIS TEST READS ALL LEGAL REGISTERS AND VERIFIES THAT "‘ILR'’,

2 OF RMER1 DOES NOT SET.

MASSBUS CONTROLLER,

"ILR"" IS SET.

THEN, TO THE EXTENT ALLOWED BY THE

IT READS ILLEGAL REGISTERS AND VERIFIES

THAT

PROBABLE FAULT:

IF MODULE

ASSYNCHRONOUS MASSBUS MODULE

820
RESET GO BY INIT

TEST

:
PURPOSE
TO VERIFY THAT GO CAN BE RESET BY INITIALIZE.
PROCEDURE
:

THE

TEST SETS GO THEN CLEARS GO

I.E., CONTROLLER CLEAR.

USING

MASSBUS

INITIALIZE,

PROBABLE FAULT:

(S MODULE

IF MODULE

DIAGNOSTIC MODE

TEST

:
PURPOSE
TO_VERIFY THAT 'DIAGNOSTIC MODE'', BIT 0
STUCK AT ONE OR ZERO.

RMMR1,

NOT

PROCEDURE
:

THE RM05/3/2 IS INITIALIZED

AND

'DMD'‘ IS CHECKED FOR ZERO.

"DMD'’' IS WRITTEN WITH ONE AND READ TO VERiFY THAT IT IS NOT STUCK

AT ZERO,

THEN WRITTEN WITH ZERO AND READ TG VERIFY THAT

IS NOT

czi

CZRMPAQ RMOS5/3/2 DSKLS TST 1
856
857
858
859

863

¢
2
MACRO v03.01 11-APR-80 13:58:55 PAGE 3-15

SEQ 0018

STUCK AT ONE.
PROBABLE FAULT:

CS MODULE

IF MODULE

MOL TEST

PURPOSE :
TO VERIFY THAT "MEDIUM ON LINE'' STATUS CAN BE SET AND

USING MAINTENANCE UNIT READY.

RESET

PROCEDURE
:

MODE:

AFTER INITIALIZING THE SUBSYSTEM,

THE TEST SETS

'DIAGNOSTIC

AND READS THE DRIVE STATUS REGISTER, RMDS, EXPECTING MOL,

BIT 12 TO BE ZERO.

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

(S MODULE

IF MODULE

WRITE LOCK TEST

PURPOSE :

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

CAN

SET

AND

PROCEDURE
:

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

MWP IS RESET AND WRL SHOULD BE ZERO.
PROBABLE FAULT:

€S MODULE

IF MODULE

czi

CZRMPAO RMOS5/3/2 DSKLS TST 1

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

SEQ 0019

DRIVE FAULT TEST

:
PURPOSE

TO VERIFY THAT 'DEVICE CHECK'', DVC,

"UNSAFE'',

BE SET AND RESET USING ‘MAINTENANCE DRIVE FAULT" MDF.

UNS,

CAN

PROCEDURE
:

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

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.

PROBABLE FAULT:

€S MODULE

IF MODULE

SEEK ERROR TEST

:
PURPOSE
TO VERIFY THAT °‘SEEK ERROR'‘, SKI,

"MAINTENANCE SEEK ERROR'’, MSER.

CAN BE SET AND RESET USING .

PROCEDURE
:

WITH DIAGNOSTIC MODE SET, THE TEST
SETS
MSER,
BIT
07
OF
RMMR1 AND READS RMER3 TO VERIFY THAT SKI, BIT 14 IS SET.
MSER IS
RESET AND SKI SHOULD REGET.
PROBABLE FAULT:

CS MODULE

IF MODULE

PIP TEST

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

(AN

SET

CZRMPAO RM05/3/2 DSKLS TST 1

979
972

MACRO v03.01

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

SEQ 0020

PROCEDURE:
DIAGNOSTIC MODE IS SET THEN MOC, BIT 08 OF RMMR1

973

PIP,

976
977
978
979

PROBABLE FAULT:

BIT

13 OF RMDS, SHOULD BE ZERO.

SHOULD BE ONE.

CS MODULE

980

IF MODULE

986
987
988
990

EBL TEST
PURPOSE:

981
982
983
984
985

IS SET AND
MOC IS THEN RESET AND PIP

TO VERIFY THAT END OF BLOCK STATUS 'EBL'* CAN BE

SET AND

RESET USING DIAGNOSTIC END OF BLOCK 'DEBL'.

PROCEDURE:

995
99
997
28
1000
1001
1002

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 CHECKS FOR
DEBL BEING SET BY AN ADJACENT BIT.
PROBABLE FAULT:
1. CS MODULE

1003
1004
1005
1006
1007

1008

LAST SECTOR, LAST TRACK TEST

1010

PURPOSE
:

1012
1013

TO VERIFY THE DESIRED TRACK/SECTOR
USING RMMR1, BITS 01 AND 02.

1015

PROCEDURE
:

1017
1018
1019

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

1022
1023
1024
1025
1026

PROBABLE FAULT:

1020

FOR 18 BIT FORMAT.
1.

DS MODULE

(S MODULE

PLA

THE

MODULE

|
|

CZRMPAD RMOS5/3/2 DSKLS TST 1

1.2

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

RMDA COUNT

SEQ 0021

TEST

:
PURPOSE
TO VERIFY THAT THE DISK ADDRESS REGISTER

PROPERLY.

(RMDA)

INCREMENTS

PROCEDURE :

THE TEST INCREMENTS

RMDA

USi'.\c

DIAGNOSTIC

END

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

BLOCK

PROBABLE FAULT:

DS MODULE

RMDC COUNT TEST

:
PURPOSE
TO

VERIFY

THAT

INCREMENTS PROPERLY.

THE

DESIRED

CYLINDER

RMDC,

PROCEDURE :

THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END

BLOCK,

"DEBL'’, VERIFYING THAT RMDC INCREMENTS THROUGH A COMPLETE CYCLE.
PROBABLE FAULT:

DS MODULE

LBT TEST
PURPOSC T INSURE

THAT LAST BLOCK TRANSFERRED,

'1BT'’,

CLEARS WHEN

RMDA 1S WRITTEN, AND SETS WHEN THE LAST SECTOR IS TRANSFERRED.
PROCEDURE :

THE TEST USES DIAGNOSTIC EBL TO SET LBT,
RMDA TO RESET LBT.

AND

TRANSFERS

czl

23 2332580800

CZRMPAQ RM0S5/3/2 DSKLS TST 1

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

SEQ 0022

PROBABLE FAULT:

DS MODULE

IF MODULE

COMPOSITE ERROR TEST

PURPOSE:

THE TEST USES INITIALIZE AND DIAGNOSTIC MODE
ERRORS
TO
ZERO THEN VERIFIES THAT "ERR'' IS ZERO.

3333750023203

d d

PROCEDURE
:

TO TEST "'COMPOSITE ERROR'’, BIT 14 OF RMDS.

TO
FORCE
ALL
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
TESTED.
THE
TEST

FAILS

IF ERR IS NOT ZERO WITH ALL SET ARGUMENTS ZERO OR IF

ERR IS NOT ONE WITH ANY SET ARGUMENT ONE.

d e e e e

PROBABLE FAULT:

IF MODULE

e d D

D e e

d d

—

) d D e

WRITE GO TEST

D e

:
PURPOSE

D e d

D d

TO VERIFY THAT GO CAN BE SET.

D e

PROCEDURE
:

IF MODULE

(S MODULE

—

— e

s e d e e

e d e

d e

PROBABLE FAULT:

d D

SEIRAR W
=

D e

D d d e

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

BRANCH MULTIPLEXOR TEST

NOP
ALL

czl

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

SEQ 0023

PURPOSE :
TO VERIFY THAT THE OUTPUT OF

MULTIPLEXOR DOES NOT HAVE A FAULT.

THE

COMMAND

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
CHECKED
FOR A
STUCK FAULT.
PROBABLE FAULT:

CS MODULE

SET/RESET GO TEST
:
PURPOSE

Y—

—.-A_.—I—A—A—A—l—l—l—l-—l—b—l—l—l—l—l_._g_._‘_‘_‘_;_._.—l-a-h_.—l—l—.—l—d—l—l—-l—l_l—l—.—-l—l —

d i

D d e d o
i D d D i o

D
D i

AR A
U
LV LV Dl 2R F 38 22 W 2t 2 o
N NANIITEIFSTRARZS AR
VONONHSWN=OVONO
NS W =

CZRMPAO RMO5/3/2 DSKLS TST 1

PROCEDURE
:

TO VERIFY THAT GO CAN BE SET AND RESET.

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

ARE WRITTEN IN RMCS1 AND THE PROGRAM READS RMCS1

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:

(S MODULE

IF MODULE

—d

SRR

D d

)

—d

D d e

d D

D dB

28 B RN R R RAR 2B IV

e Y

THE SUBSYSTEM IS INITIALIZED AND PUT IN DIAGNOSTIC MODE WITH

"DEBUG

END 1 RESET GO TEST
PURPOSE :
TO VERIFY THAT THE COMMAND SEQUENCER CAN

END1 LOCATION.
PROCEDURE :

RESET

THE

Czl

— e

)

D d e

D e

)

D wd

) D

D e

INSIASTAS TS SIS DS LSS LSTNTAN LSS TN S TS TS TN

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

SEQ 0024 '

THE TEST EXECUTES RELEASE, SEARCH AND ILLEGAL FUNCTION

IN_

DIAGNOSTIC

MODE

SPECIFIED CLOCK CYCLE.

AND

VERIFIES

THAT

CODE

RESETS ON THE

PROBABLE FAULT:

STN STV, )

FRERN NS OB I N F NN O BB IR o RER 3888

CZRMPAQ RMO5/3/2 DSKLS TST 1

(S MODULE

SET PULSE TEST

:
PURPOSE
TO VERIFY THAT THE COMMAND SEQUENCER CAN GENERATE SET PULSE.
PROCEDURE
:

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

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

PROBABLE FAULT:

€S MODULE

SET/RESET IVC TEST

:
PURPOSE

TEST

‘''INVALID COMMAND''

STATUS

FOR EACH FUNCTION CODE.

PROCEDURE
:

READY'", BITOD OF RMAR1,
THEN LOADS THEFONCTIO
CODE N.
AND GO IN

RMCS1.
EACH FUNCTION CODE IS TESTED AND ‘‘IVC'', BIT 12
IS CHECKED.
PROBABLE FAULT:

CS MODULE

IF MODULE

RMER2

CZRMPAD RMOS/372 D KLS TST 1

m 2

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

1255
1256

SET LSC TEST

11%23

}gg}

VERIFY

THAT

:
SEQ 0025

'10SS OF SYSTEM CLOCK'*

CAN SET AND RESET.

PROCEDURE :

1263

THE TEST ENABLES THE DEBUG CLOCK AND SETS THE GO BIT.

1264

WAITING

;lsgg

ENOUGH

TIME

AFTER

FOR THE ONE SHOT TO SET, THE TEST DISABLES

;

THE DEBUG CLOCK AND VERIFIES THAT LSC SETS.

;

1267

PROBABLE FAULT:

1269
1270
1271
1272
1273
12/4
1275
1276

CS MODULE

IF MODULE

1268

1277

1278
}%g

,
'
|
;

DECODE TEST

PURPOSE :

|
?

1281
1282
1283

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

:
,

]'%gg

PROCEDURE :

1284

1287

1288

BB RN

1289

|
i

THE TEST USES 'VOLUME VALID'' AND ‘OCCUPPIED'' TO DETERMINE IF

THE DECODE FLOP IS SET OR RESET.

;

INITIALLY, VV AND OCCUPPIED ARE

RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET
VWV OR 0CC
AND
VERIFIES
THAT ONE OR BOTH BITS SET.
THE SAME COMMANDS ARE
EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND
THE
TEST
VERIFIES
THAT NEITHER BIT SETS.

;
|
|
-

PROBABLE FAULT:
1.

IF MODULE

SET/RESET VOLUME VALID TEST

TO VERIFY THAT 'VOLUME VALID'' RESETS WITH THE
LEADING EDGE
LN(I); READY, AND SETS WITH PACK ACKNOWLEDGE AND READ IN PRESET

PROCEDURE :

—————

-t

—-Q

:
PURPOSE

el i i
D i
o i b b
WWW WWWWWWWNNW
NN
= DL L Lo

WN =IOV
W

CZRMPAQ RMOS5/3/2 DSKLS TST 1

N 2
MACRO v03.01 11-APR-80 13:58:55 PAGE 3-23

SEQ 0026 :

USING 'MAINTENANCE UNIT READY'', BIT 9 OF

FORCES

VOLUME VALID,BIT 6 OF RMDS IS ZERO.

PACK

RMMR1,

THIS

TEST

EXECUTES

ZERO TO ONE TRANSITION OF UNIT READY AND VERIFIES THAT

THEN

THE

ACKNOWLEDGE COMMAND, VERIFYING THAT VvV SETS.

THE PROCEDURE

IS REPEATED WITH A READ IN PRESET COMMAND.

PROBABLE FAULT:
1.

IF MODULE

24
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 ILLEGAL
FUNCTIONCODES.
THE

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

—

)

D e

EEEERELSE

) D

WWWW

d d D D

D d )

) D ) -

D e

AAAAAAA
R R RRRRRRR

VONPVNBWN=OVONO
NS WN -

1340

PROBABLE FAULT:

IF MODULE

OCCUPIED TEST

PURPOSE :
TO VERIFY THAT 'OCCUPIED'' IS SET DURING DATA

IS RESET FOR ALL OTHER COMMANDS.

PROCEDURE :

FOR_EACH DATA TRANSFER

IF MODULE

(S MODULE

AND

Cm.

‘0CC*',

SHOULD BE
ONE,
DEBUG
CLOCK
IS
ENABLED
RESETTING BEFORE STATUS IS SAMPLED.
PROBABLE FAULT:

TRANSFERS

BIT

PREVENT

RMMR1

GO FROM

CZl

i d D e d
e
D i
W WWWWWWANNW

D d e

SRERENS
2EEREREFULESbRR

1370
1371
137
137
1374
1375

@2
|

CZRMPAD RMOS5/3/2 DSKLS TST 1

MACRO Vv03.01 11-APR-80 13:58:55 PAGE 3-24

READ IN PRESET TEST

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

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

. ALL BITS OF RMOF

ARE

SET

BITS

ARE

C(LEARED.

THE

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

COMMAND.

IF NONE OF

THE PRESET TERMS ARE ZERO AFTER THE RIP

PROBABLE FAULT:

RIP/RMOF

IF MODULE

TEST

:
PURPOSE
TO VERIFY THAT "READ IN PRESET'' RESETS FMT16, 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

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

SEQ 0028

RMDA/RMDC/RIP TeST

PURPOSE :
TO VERIFY THAT "READ IN PRESET'® RESETS THE DESIRED

ADDRESS, RMDC, AND THE DISK ADDRESS., RMDA.

CYLINDER

PROCEDURE :
RMDA AND RMDC ARE PRESET THEN TESTED FOR ZERO AFTER THE
COMMAND.

RIP

PROBABLE FAULT:

DS MODULE

OFFSET COMMAND TEST

:
PURPOSE
TO

VERIFY

THAT

‘DFFSET MODE''

SETS

WITH

OFFSET COMMAND.

PROCEDURE
:

THE

TEST EXECUTES OFFSET COMMAND AND VERIFIES THAT "‘OM'‘, BIT

00 OF RMDS IS ONE.
PROBABLE FAULT:

IF MODULE

RETURN TO CENTER TEST

:
PURPOSE
TO VERIFY THAT "RETURN TO CENTER'® RESETS OFFSET MODE.
PROCEDURE
:

OFFSET MODE, BIT 00 OF RMPS, IS

SET

WITH

OFFSET

COMMAND,

THEN
THE
TEST
EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES
THAT OFFSET MODE
RESETS.
OFFSET
DIRECTION
IS
ALSO
SET
AND
CHECKED FOR ZERO AFTER THE COMMAND.
PROBABLE FAULT:

IF MODULE

3o|

CZRMPAD RMOS/3/2 DSKLS TST

MACRO v03.01

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

SEQ 0029

RMDC CLEAR OFFSET TEST
PURPOSE :

TO VERIFY THAT CLEAR

OFFSET

CYLINDER ADDRESS IS WRITTEN.

ACTIVE

WHEN

THE

DESIRED

PROCEDURE :

THE TEST
EXECUTES
AN OFFSET
COMMAND,
VERIFIES THAT OM, BIT 00 OF RMDS IS ZERO.

WRITES

RMDC,

AND

PROBABLE FAULT:

R NV Swt et S04AIRIRORORURORG
BNR
AR IS SS VNV~ WN=O

— e
e D
Dl
e e —d —lh — el D D el e e D i D
o D i o ) D i
ViV (O AR LV LV W TV LV LV LV LV W LV IV DWW LV, IV, ) Al

1506
07

DS MODULE

IF MODULE

°
EBL CLEAR OFFSET TEST

PURPOSE :
OCCI.R;O VERIFY

THAT

OFFSET

MODE

CLEARS

WHEN

HEAD

SWITCHING

PROCEDURE:
THE TEST EXECUTES AN OFFSET
COMMAND
TO
SET
OFFSET
MODE.
/7 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.
PROBABLE FAULT:

DS MODULE

RUN AND GO TEST

PURPOSE :
TO
VERIFY THAT
COMMANDS
PROCEDURE :

"RUN AND GO''

FLOP SETS DURING READ AND

WRITE

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRC v03.01

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

1540

THE RMOS/3/2 IS INITIALIZED

AND

DATA TRANSFER COMMAND WITH

GO SET IS WRITTEN IN RMCS1.
'RUN AND GO'', BIT 14 OF RMMR1 SHOULD BE
ONE FOR EACH DATA COMMAND.
THE
DEBUG
CLOCK
IS ENABLED SO THAT GO
DOES NOT RESET BEFORE STATUS IS TESTED.
PROBABLE FAULT:

SYNCHRONOUS MASSBUS MODULE

€S MODULE

SET IAE

TO VERIFY THAT

INVALID ADDRESS ERROR CAN SET.

ld i

D i

PROCEDURE
:

Vi
Lo
0

-l

TEST

:
PURPOSE

D s

i i

vivivruaunavnaunanaaung

PROCESS IS REPEATED WITH A DIFFERENT COMMAND IF
SET, AND THE TEST FAILS IF IAE CANNOT BE SET.

THE

JAE DOES

NOT

PROBABLE FAULT:

DS MODULE

IF MODULE

SEARCH,

SEEK, READ, WRITE TEST

PURPOSE :
TO VERIFY THAT THE "'SCH SK R OR W'' DECODE ON THE

IS CORRECT FOR ALL FUNCTION CODES.

MODULE

PROCEDURE
:

AND

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER
ADDRESSES
EXECUTES
EACH
COMMAND
TO
WHERE
SET
PULSE IS ACTIVE AND

VERIFIES THE DECODE BY CHECKING '‘IAE'".

PROBABLE FAULT:

IF MODULE

CZRMPAC RM"5/3/2 DSKLS TST 1

WN=O

b
axh

VOOV

) o
b

INVALID TRACK/SECTOR TEST
PURPOSE :
TO VERIFY

DETECTED.

THAT

INVALID

TRACK

AND

SECTOR

ADDRESSES

ARE

PROCEDURE :

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

AND

EXECUTES

PROBABLE FAULT:

DS MODULE

TRACK ADDRESS OPTION JUMPER

T,S1,.ST,.S1,8 18] b

INVALID CYLINDER TEST

:
PURPOSE

USLSLST

TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED.
PROCEDURE
:

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

RMDC

AND

EXECUTES

PROBABLE FAULTS:

DS MODULE

CYLINDER ADDRESS OPTION JUMPER

SET AOE TEST
:
PURPOSE
TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED.
PROCEDURE
:

ENDC OF BLOCK IS FORCED TO INCREMENT THE SECTOR ADDRESS,
TEST VERIFIES THAT "AOE'' IS SET.

AND

THE

(al

SEQ 0031

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

""a‘a‘a“'a‘g‘a‘ga‘a‘
ggomwgmbum-do

b culd

D d

D d -

oo
OO OO

D d

NONwn

338983 §82883%%

CZRMPAQ RMOS/3/2 DSKLS TST 1

28AR

1654
1655
1656
1657
1658
1659
1660

MACRO V03.01

¢ 5

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

PROBABLE

SEQ 0032

FAULT:

DS MODULE

SET RMR TEST
PURPOSE :

TO VERIFY THAT 'REGISTER MODIFICATION REFUSED'' SETS
WHEN A
REGISTER IS WRITTEN WHILE GO IS SET, EXCEPT WHEN THE ATTENTION OR
MAINTENANCE REGISTER IS WRITTEN.
PROCEDURE
:

"DEBUG

CLOCK

ENABLE''

SET

INHMIBIT

THE

COMMAND

SEQUENCER,
THEN A NOP
COMMAND AND GO BIT 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, SHOULD BE ONE.

PROBABLE FAULT:

IF MODULE

PGM STATUS CHECK

PURPOSE :
TO VERIFY THAT THE PROGRAMMABLE STATUS
REQUEST STATUS BIT ARE COMPATABLE.

BIT

AND

THE

DRIVE

THE TEST REPORTS AN ERROR IF PGM IS ON AND DRQ IS OFF.

PGM

PROCEDURE
:

IS
NOT
PREDICTABLE
PORT SELECT SWITCH.
PROBABLE FAULT:

IF MODULE

DVA/DPR STATUS CHECK

PURPOSE :

THE CASE WHERE URQ IS ON BECAUSE OF

THE

CZRMPAD RM05/3/2 DSKLS TST 1

N~ ~

BIERRUIK - IS

SNRNNN YNNI

e e e e e e D e e i D e D e ae
~ NN~
n nono
o0 NOWVNHWN=OV00
NN (N —

CZRMPAO RMOS/3/2 DSKLS TST 1

NO NS WN=O
OV

) -

ANNNNNNNNNN
~

D
)
e
—

1739

H .3
MACRO v03.01 11-APR-80 13:58:55 PAGE 3-30

SEQ 0033

STATULOAVERLEY
THAT DEVICE AVAILABLE

STATUS

AND

DRIVE

PRESENT

PROCEDURE
:

DVA AND DPR ARE TESTED AND BOTH SHOULD BE ON.
PROBABLE FAULT:
1.

IF MODULE

PORT REQUEST TEST, PART 1

:
PURPOSE
TO VERIFY THAT THE PORT REQUEST FLOPS ON THE
WHEN THE PROGRAM READS RM(S1.

MODULE

SET

PROCEDURE
:

THE TEST EXECUTES A RELEASE COMMAND,

THEN, ASSUMING THE PORT

IS
RELEASED,
IT READS RMCS1, THEN READS RMMR2 AND VERIFIES THAT
ONE OF THE PORT REQUEST FLOPS IS SET.
PROBABLE FAULT:

IF MODULE

(S MODULE

PORT REQUEST TEST, PART 2

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

MODULE

SET

RMAS

AND

PROCEDURE :

THE TEST EXECUTES A RELEA“t

READS RMMRZ2, VERIFYING THAT ON.
PROBABLE FAULT:

IF MODULE

(S MODULE

TOMMAND

THEN

WRITES

JF THE REQUEST FLOPS IS SET.

CZRMPAO RMOS5/3/2 DSKLS TST 1

1768
1769
1770
1771
1772
1773
1774

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

SEQ 0034

PORT REQUEST TEST, PART 3
PURPOSE :

TO VERIFY THAT PORT REQUEST SETS WHEN
RMAS IS WRITTEN.

ANY

EXCEPT

PROCEDURE :
THE TEST WRITES THE DISK ADDRESS REGISTER AND VERIFIES
THE PORT REQUEST FLOP IS ON.

THAT

PROBABLE FAULT:

IF MODULE

(S MODULE

TEST

PURPOSE :
TO VERIFY THAT A RELEASE COMMAND CAN RESET THE REQUEST FLOPS
RQA AND RQB IN MAINTANCE REGISTER #2.

NO NS WN=O

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

i e
b nd
b
e

ddd;

RO R

s
i
culh i

i e

00 00 0o 0o 0o 0o 0o 0o 00 0O

il i

il clh b B

B SRR e

RELEASE

R IR IR 23

1791

WRITE ATA TEST

PURPOSE :
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

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
F;O VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE

ERROR

VNN~ W=
—_

—
D
D
=2 _——d
—_—

wvwviniuiwnuanannwn wn

00 00 00 0o 0o 0o 0o 0O 0O[* ]

d e

D e

33223333

1841

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

CZRMPAD RM0S5/3/2 DSKLS TST 1

NO\wn

OV NOVSUWN=O

d cd

O 0000
n

b b

e e

D e

3333333333330

_._._._.'32'3333§§8§8§ SRE832eRT LS 2 gREREEEE

CZRMPAO RM05/3/2 DSKLS TST 1

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

SEQ 0036 .

TO VERIFY THAT ATTENTION SETS WHEN

WHILE GO IS OFF.

COMPOSITE

ERROR

OCCURS

PROCEDURE :

THE PROGRAM CLEARS

VERIFIES ATA IS ON.

THE

DEVICE

AND

SETS

ERROR,

THEN

PROBABLE FAULT:

IF MODULE

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

FOR

PROCEDURE
:

THE PROGRAM FORCES AN ERROR THEN RESETS ATTENTION
FROM
THE
ERROR.
THE
PROGRAM THEN WRITES RMAS AND RMCS AND VERIFIES THAT
NO ATTENTION OCCURS, AND WRITES RMDC AND VERIFIES THAT
ATTENTION
DOES OCCUR.
PROBABLE FAULT:

IF MODULE

P SET ATA TEST

PURPOSE :
TO_VERIFY THAT ATA IS SET AT THE COMPLETETION OF AN OFFSET AND
RETURN TO CENTER LINE COMMAND.
PROCEDURE :

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

IF MODULE

CZl
usI

CZRMPAQ RMO5/3/2 DSKLS TST 1

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

- -

Vv
W

D e

D i i

N=OVONONSWN=O

33333333

SEQ 0037

1954

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 EXPECT WLE TO BE SET.
EXECUTE
WRITE
DATA COMMAND WITHOUT MAINTANCE WRITE PROTECT
SET, 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.

-.—l-l—l-l—l—'g—l—.-l—ld
0000
$ 288883 SR

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

m3
MACRO v03.01 11-APR-80 13:58:55 PAGE 4

SEQ 0038

:PROGRAM VERSION #001
.TITLE

CZRMPAQ RM0S5/3/2 DSKLS TST 1

:*COPYRIGHT (C) 1980
:*DIGITAL EQUIPMENT CORP.
:*MAYNARD, MASS. 01754
. %

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

685

.SBTTL
. %

687

B
oTM
M
oTM
M
o*
s®
e
i
i*
i
o®
]
i
o%
.SBTTL

OPERATIONAL SWITCH SETTINGS
SWITCH

USE

——

15
14
13
11
10
9
8
7
6
5
4
3
2
1
0

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
TN128
TN64
TN32
TN16
TN8
TN4
TN2
TN1

BASIC DEFINITIONS

s *INITIAL ?11)38585 OF THE STACK POINTER *xx 1100 =

STACK
ERROR
SCOPE

=
= EMT
= IOT

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

'HISCELLANEOUS DEF INITIONS
=N
=12
=15

::CODE FOR HORIZONTAL TAB
;:CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN

ggu -

= 177776

; ;PROCESSOR STATUS WORD

STKLMT
PIRQ

= 177774
= 177772

LF
CR
CRLF

DSWR

DDISP

= 200

= 177570
= 177570

..STACK LIMIT REGISTER
:PROGRAM INTERRUPT REQUEST REGISTER

: HARDWARE SWITCH REGISTER

: ;HARDWARE DISPLAY REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS
= %0
:GENERAL REGISTER
=2
..GENERAL REGISTER
= 22
s ;GENERAL REGISTER
=23
; :GENERAL REGISTER

RO
R1
R2
R3
R4

= %6

‘

::CODE_FOR CARRIAGE RETURN-LIN: FEED

; ;GENERAL REGISTER

CZl
ERI

CZRMPAQ RMOS5/3/2 DSKLS TST 1

BASIC DEFINITIONS

000005
000006
000007
000006
000007

N 3
MACRO v03.01 11-APR-80 13:58:55 PAGE 4=1
RS
R6
R7
SP
PC

=
=
=
=
=

%5
%6
X7
%6
X7

s ;GENERAL REGISTER
s ;GENERAL REGISTER
; ;GENERAL REGISTER
;s STACK POINTER
; :PROGRAM COUNTER

:*PRIORITY LEVEL DEFINITIONS
PRO
=0
;;PRIORITY LEVEL 0
PR1
= 40
::PRIORITY LEVEL 1
PR2
= 100
;:PRIORITY LEVEL 2

PR3

= 140

;;PRIORITY LEVEL 3

PRS
PR6

= 240
= 300

;:PRIORITY LEVEL 5
::PRIORITY LEVEL 6

PR4

PR7

= 200
= 340

;:PRIORITY LEVEL 4

;:PRIORITY LEVEL 7

;%" 'SWITCH REGISTER'' SWITCH DEFINITIONS

SW15

SW14

= 100000

= 40000

SW13
Sw12
Sw11
Sw10

= 20000
= 10000
= 4000
= 2000

sSwo8

= 400

Swo9

Swo7
SWo6
SWO5
SWO4
SW03
Sw02

= 1000

= 200
= 100
= 40
= 20
=10
=4

Swo1
=2
Sw00
=1
SW9=Sw09
Sw8=5w08

SW7=Sw07

SW6=SW06
SW5=5W05
SWé4=SW04

SW3=Sw03
SW2=Sw02
SW1=SW01
SWO=SW00

:*DATA BIT DEFINITIONS (BITOO TO BIT15)
= 100000
= 40000
= 20000
= 10000
= 4000
= 2000
BITO9
= 1000
BITO8
= 400
BITO7
= 200
BITO6
= 100
BITO5S
= 40
BITO4
=20
BIT15
BIT14
BIT13
BIT12
BIT11
BIT1I0

SEQ 0039
!

CZF

ERR

BASIC DEFINITIONS

000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
000004
000010
000014
000014
000014
000020
000024

689
690
691
692
693

B 4
MACRO v03.01 11-APR-80 13:58:55 PAGE 4=2

BITO3
BITO2

;*BASIC ‘CPU‘ TRAP VECTOR ADDRESSES

ERRVEC
RESVEC

IOTVEC

;s INPUT/0UTPUT TRAP (10T) »«SCOPE#*+

BPTVEC

PWRVEC

000240

PIRQVEC = 240

= 30

TRAPVEC = 34
TKVEC
= 60
TPVEC
= 64

.SBTTL

; ;BREAKPOINT TRAP (BPT)

; ;POMER FAIL

..EM.AT(R TRAP (EMT) =«ERROR*»

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

; ;PROGRAM INTERRUPT REQUEST VECTOR

RM REGISTER BIT DEFINITIONS

s*RMCS1 CONTROL STATUS REGISTER

698
699
700
701

000004
000002
000001
000077

F3
Fo

710
71
712
713
714
715
716
717

= 24

EMTVEC

0000

703

= 14

= 20

000030
000034

696

704
705
706
707
708
709

TIME OUT AND OTHER ERRORS
..RESERVED AND ILLEGAL INSTRUCTIONS

T BIT
..TRACE TRAP

DVA

702

=
= 10

TBITVEC = 14
TRTVEC
= 14

004000

697

=10
=4

BIT9=8IT09
BIT8=81T08
BIT7=8BIT07
BIT6=BIT06
BITS=BITOS
BIT4=BIT04
BIT3=8IT03
BIT2=BIT02
BIT1=8BIT01
BITO=BIT00

694
695

SEQ 0040

000040

00001

000000
000002
000004
000006
000010
000012

000014
000016
000020
000022
000022
000024
000026
000030

Fé&

=BITN

= BITO0S

= BIT04
= BITO03

;DEVICE AVAILABLE-READ ONLY

JFUNCTION CODE

JFUNCTION CODE
JFUNCTION CODE

= BITO0?2

JFUNCTION CODE

= BITO0

;GO BIT

FNCMSK

= BITO1

= 000077

sFUNCTION CODES

NOP

= 000000

SEEK
RECAL
DRVCLR

=
=
=
=
=
=
=

ILFO2

RLEASE

OFFSET

RTC
RIP

= 000002

000006
000010

000012

000014

000016
000020

PAKACK

PACACK

= PAKACK

ILF24
ILF26

000022

= 000024
= 000026

= 000030

FWCTI(N CODE

FLNCTIW CODE MASK

(BITS 01-05 OF RMCS1)

;NOP COMMAND

s ILLEGAL COMMAND

;SEEK COMMAND
sRECAL IBRATE COMMAND
;DRIVE CLEAR COMMAND
:RELEASE COMMAND
JOFFSET COMMAND
JRETURN TO CENTERL INE COMMAND
JREAD IN PRESET COMMAND

sPACK ACKNOWLEDGE

;ILLEGAL COMMAND
s ILLEGAL COMMAND

;SEARCH COMMAND

COMMAND

xNI

CZRMPAQD RMOS5/3/2 DSKLS TST 1

721
722
723
724
725

000030
000032
0000
0000
000040
000042
000044
000046

000050
000052
000054

000056
000060

726

000062

728

000066

727

000064

729
730

000070
000072

732

000076

731

733

000074

734

735
736

737
738
739
740
741
742
743
744
745

746

747
748
749

750
751
752
753
754
755

756

010000
004000
00

ILF§0
ILF32
ILF34
ILF36
ILF40
ILF42
ILF&446
ILF&6

w(D

WCH
ILF56
ILFS56
wD
WH
ILF64
ILF66

RD
RH

= 000030
= 0000%2
= 0000
= 000036
= 000040
= 000042
= 000044
= 000046

= 000052
= 000054
= 000056
= 000060
= 000062

s ILLEGAL COMMAND

= 000050

= 000064
= 000066

= 000070
= 000072

ILF76
ILF76

= 000074
= 000076

;*RMDA

DISK ADDRESS REGISTER

;s TRACK ADDRESS DEF INITIONS

TA16

= BIT12

TA4

= BIT10

TA8

001000
000400

TA2
TA1

000020
000010

SA16

= BITN

= BIT09
= BIT08

;SECTOR ADDRESS DEFINITIONS

SA8

= Bli104

= BITO03

000002
000001

000004

SA4
SA2
SA1

177400
000377

TADMSK

= 177400

;*RMDS

DRIVE STATUS REGISTER

100000

757
758
759

040000
020000
010000

761

002000

= BIT02
= BITO1
= BIT00

;TRACK & sscroa MASKS

SADMSK

ATA

= 000377

= BIT1S

ERR

= BIT14

004000

MOL
WRL

= BIT12
= BITI

762
763
764

001000
0004
000200

PGM
DPR

= BITO9
= BIT08

766

000001

760

765

767
768

000100

PIP

LBT

DRY
vv

= BIT13

= RBIT10

= BIT07
= BIT06

= BIT00

;*RMER1 ERROR REGISTER

; ILLE
; ILLE
; ILLE
s ILLE
; ILLE
; ILLE
; ILLE
; ILLE

720

;WRITE CHECK DATA COMMAND
;WRITE CHECK HEADER AND DATA

:ILLEGAL COMMAND

;WRITE DATA COMMAND
;WRITE HEADER AND DATA COMMAND

:ILLEGAL COMMAND
s ILLEGAL COMMAND
sREAD DATA COMMAND
sREAD HEADER AND DATA COMMAND

; ILLEGAL COMMAND

s ILLEGAL COMMAND

s TRACK ADDRESS 16.
s TRACK ADDRESS 8.

s TRACK ADDRESS 4

. TRACK ADDRESS 2

; TRACK ADDRESS 1

sSECTOR ADDRESS 16.

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

;TRACK ADDRESS MASK
;SECTOR ADDRESS MASK

SATTENTION ACTIVE

:COMPOSITE ERROR
sPOSITIONING IN PROGRESS
sMEDIUM ON LINE

SWRITE LOCK

sLAST BLOCK ERANSFERRED

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

meam~

SEQ 0041
AT A T A T A T AT ATA T

RM REGISTER BIT DEFINITIONS

C &
MACRO v03.01 11-APR-80 13:58:55 PAGE 4-3

CZRMPAD RM0S5/3/2 DSKLS TST 1

770
m
772
773
774
775
776
777

DCK

= BIT15

SEQ 0042
;DATA CHECK ERROR

UNS
OPl

= BIT14
= BIT13

sDRIVE UNSAFE
;OPERATION INCOMPLETE

WLE

=BITN

sWRITE LOCK ERROR

DTE

1AE
AOE

HCRC

HCE
ECH

WCF
FER

= BIT12

= BIT10
= BIT09

= BITO8

= BIT07
= BIT06

= BITOS
= BITO4

;DRIVE TIMING ERROR

s INVALID ADDRESS ERROR
;ADDRESS OVERFLOW ERROR

sHEADER CRC ERROR

;HEADER COMPARE ERROR
;ECC_"HARD'' ERROR

;WRITE CLOCK FAILURE
;FORMAT ERROR

PAR
RMR
ILR
ILF

= BIT03
= BIT02
= BITO1
= BITO0

NDTMSK

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

;PARITY ERROR
sREGISTER MODIF ICATION REFUSED
sILLEGAL REGISTER
s ILLEGAL FUNCTION

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

FRIRGR

;COMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS

SERRRRS

- cn

i e

cnd cd cud

VONOWVSWN=O

0o 0o Co 0o 0o Co 0o 0o Co 0o

b cud wud

807

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

;*RMLA

LOOK AHEAD REGISTER

SC4

= BIT10

sMASK FOR ATTENTION BITS

sSECTOR COUNT = 16

SC3
SC2
SC1
SCO

= BIT09
= BITO8
= BITO7
= BIT06

sSECTOR
sSECTOR
sSECTOR
sSECTOR

SCTMSK

= 003700

;SECTOR COUNT MASK

COUNT
COUNT
COUNT
COUNT

=
=
=
=

8
4
2
1

;*RMMR1 MAINTENANCE REGISTER #1
;WRITE ONLY BITS
DBCK
= BIT15
DBEN
= BIT14
DEBL
= BIT13
DTO

MCLK

MRD
MUR
MOC

MSER

MDF
MS
MwP
Ml
MSC

DMD

= BIT12

= BIT1

= BIT10
= BITO9
= BITO8

= BITO07

= BIT06
= BITOS
= BITO3

= BIT0?
= BITO1

= BITO0

;READ ONLY BITS

0CC

= BIT15

= BIT14

;DEBUG CLOCK
;DEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK

sDIAGNOSTIC TIMEOUT

sMAINTENANCE CLOCK

sREAD DATA
sUNIT READY
sON_CYLINDER

s SEEK_ERROR

;DRIVE FAULT
:SECTOR PULSE
;WRITE PROTECT

s INDEX PULSE
sSECTOR COMPARE

sDIAGNOSTIC MODE

;0CCUPIED

sRUN AND GO

Dea

RM REGISTER BIT DEFINITIONS

D &
MACRO v03.01 11-APR-80 13:58:55 PAGE 4=4

me j

CZRMPAO RMOS5/3/2 DSKLS TST 1

ESRC

PLFS

ECRC

PDA
PHA

CONT

EECC
MwD
LS

J*RMDT

DRQ

BIT13
BITN

SNGPRT
DULPRT

020024
024024

;SINGLE PORT DRIVE TYPE
;DUAL PORT DRIVE TYPE

BIT14

OFFSET REGISTER

FMT16
ECI

BIT12
BITN
BIT10
BITO?7
161577

HCI
OFD
XNUOF

J*RMDC
001777
176000

;END OF BLOCK
sEXCEPTION
sENABLE SEARCH
sLOOKING FOR SYNC
sENABLE CRC our
:DATA AREA
+HEADER AREA
- CONT INUE
sWORD CLOCK
sENABLE ECC Our
;WRITE DATA BIT
sLAST SECTOR
sLAST SECTOR AND TRACK
;DIAGNOSTIC MODE

sNOT SECTOR ADDRESSED = 0
;TAPE DRIVE = 0
sMOVING HEAD = 1
;DRIVE REQUEST REQUIRED

: *RMOF
010000
004000
002000
000200
161577

;16 BIT WORD FORMAT

sECC INHIBIT

:HEADER COMPARE INMIBIT
;OFFSET FORWARD
:UNSED BITS OF RMOF

DESIRED CYLINDER ADDRESS REGISTER

001777
176000

CYLMSK
XNUDC

sMASK FOR CYLINDER ADDRESS
sUNSED BITS OF RMDC

:*RMMR2 MAINTENANCE REGISTER #2
RREAD ONLY BITS

RQ8B

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

;TAG BUS

:TAG BUS
. TAG BUS
:TAG BUS

;TAG BUS

b o JN

m~ ]

SEQ 0043

TYPE REGISTER

BIT15

NSA
TAP
MOH

—

020024
024024

DRIVE

o
[*-]

100009

040000
020000
004000

DMD !MUR ! DBEN'MOC!DTO

m®

051401

LST
DMD
MR1AAA

EBL

REX

nuwnunnnn "é" nunuwnnn

E ¢4
11-APR-80 13:58:55 PAGE 4=5

RM REGISTER BIT DEFINITIONS

MACRO v03.01

nunanunnnnnunnnn

CZRMPAD RMOS/3/2 DSKLS TST 1

CZRMPAO RMOS5/3/2 DSKLS TST 1

RM REGISTER BIT DEFINITIONS

878

879
880

881

882
883
884
885
886
887
888
889
890
891
892
893
8%
895

8%
897
898

899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
916

917

918

919
920
921
922
923

924

000001

F o4

MACRO V03.01 11-APR-80 13:58:55 PAGE 4=6
8800

= BIT00

SEQ 0044
. TAG BUS

ERROR REGISTER 2
100000

= BIT15
= BIT14
= BIT13
= BIT12
= BIT1
= BIT10
= BIT07
= BITO3
= 001567

040000
020000
010000
004000
002000
000200
000010
001567

;BAD SECTOR ERROR
s SEEK INCOMPLETE
;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
:LOSS OF SYSTEM CLOCK
;LOSS OF BIT CLOCK
sDEVICE CHECK
;DATA PARITY ERROR
JUNSED BITS OF RMER?

PROGRAM MNEMONICS

100000
040000

= BIT15
= BIT14

sMANUFACTURING DETECTED SECTOR ERROR
sUSER DETECTED SECTOR ERROR

RM REGISTER INDEX VALUES

000000
000006
000012

06
12

000014

14
16

000016
000020
000024
000026
000030
000032
000034
000036
000040

=
=
=
=

= 40

000042
000044

000046
000050
000052
000054
000056
000060
000062
000064

30
32
34
36

= 42
= 44
= 46

= 50
= 52

= 54

;CONTROL STATUS REGISTER #1

;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER

;ERROR REGISTER #1
SATTENTION SUMMARY REGISTER

;LOOK AHEAD REGISTER
sMAINTENANCE REGISTER
sDRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
;OFFSET REGISTER
sDESIRED CYLINDER REGISTER
sHOLDING REGISTER

sMAINTENANCE REGISTER #2

sERROR REGISTER #2

;ECC POSITION REGISTER
sECC_PATTERN REGISTER

s ILLEGAL REGISTER 50
s ILLEGAL REGISTER 52

sILLEGAL REGISTER 54

000066
000070
000072
000074
000076

ILRG56
ILRG60
ILRG62
ILRG64
ILRG66
ILRG70
ILRG7?2
ILRG74
ILRG76

=70
= 72
= 74
=76

sILLEGAL
sILLEGAL
sILLEGAL
s ILLEGAL

000077

IDXMSK

=77

sMASK FOR REGISTER INDEX NUMBER

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

= 56
= 60
= 62
= 64
= 66

sILLEGAL
;ILLEGAL
s ILLEGAL
sILLEGAL
s ILLEGAL

J*RM(CS1T CONTROL STATUS REGISTER #1

70
72
74
76

G &
CZRMPAQ RMO5/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 4~7
RH CONTROLLER REGISTER B IT DEFINITIONS

SEQ 0045

925
926
927

100000
040000
020000

SC
TRE
MCPE

= BIT1S
= BIT14
= BIT13

;SPECIAL CONDITION=READ ONLY
;TRANSFER ERROR
;MASSBUS CONTROL BUS PARITY ERROR-READ ONLY

G29

001000

A17

= BIT09

sADDRESS EXTENSION

928

930
931
gg%

002000

000400
000200
000100

ggg

936
937
938
939
940
91

942
943
944
945
946

947

94,8
951
952

959

967
968
3(;8

= BIT08
= BIT07
= BIT06

100000
040000
020000
010000
004000
002000
001000
000409
000200
000100
000040

DLT
WCE
UPE
NED
NEM
PGE
MXF
MDPE
OR
IR
CLR

= BIT1S
= BIT14
= BIT13
= BIT12
= BITN
= BIT10
= BIT09
= BITO8
= BIT07
= BIT06
= BITOS

000010
000004
000002

BAI
u2
U1

= BIT03
= BIT02
= BITOT

000020

000001

JPORT B8 SELECT

JADDRESS EXTENSION
;READY=-READ ONLY
s INTERRUPT ENABLE

PAT

:DATA LATE-READ ONLY
JWRITE CHECK ERROR-READ ONLY
;UNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY
:NONEXISTANT MEMORY-READ ONLY
:PROGRAM ERROR-READ ONLY

;MISSED TRANSFER
;MASSBUS DATA BUS PARITY ERROR-READ ONLY
;OUTPUT READY-READ ONLY
:INPUT READY-READ ONLY
;CONTROLLER CLEAR

= BIT04

JPARITY TEST

= BITO00

JUNIT SELECT

;UNIBUS ADDRESS INCREMENT INHIBIT
JUNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK

000007

ggg

960
961
962
963
964
965

Al16
RDY
1E

= BIT10

;*RMCS2 RH CONTROL STATUS REGISTER #2

ggz

ggg

PSEL

UNTMSK

= 7

JUNIT SELECT MASK

;*RMCS3 RH70 CONTROL STATUS REGISTER #3

100000

APE

000001

IPCKO

040000
020000
010000
004000
002000
000100
000010
000004
000002

g;}

= BIT1S

;ADDRESS PARITY ERROR

DPEHI
DPELO
WCEHI
WCELO
DBL
1E
IPCK3
IPCK2
IPCK1

= BIT14
= BIT13
= BIT12
= BITM
= BITiC
= BIT06
= BIT03
= BIT0?2
= BITO1

.SBTTL

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

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

:UNIBUS ADDRESS

= BITO00

973
974
975
976
977
978
ggg

000000
000002
000004
000010
000022
000050
000052

RMCS1T
RMW(

RMBAE
RMCS3

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

981

176700

ABASE

= 176700

RMCS2

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

CZRMPAO_RMOS5/3/2 DSKLS TST 1

MACRO v03.01 11-APR-80 13:58:55 PAGE 4-8

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

982
983
985
986

120254

000000

000174
000176

AVECT1

= 120254

.SBTTL

TRAP CATCHER

:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
'LOCATI(N1(7) CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174

DISPREG: fuono 0
SWREG:

000137

988

.WORD

004626

JMP

000046
000052

989

001100

991

;s SOFTWARE DISPLAY REGISTER
;s SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

.SBTTL

000204
000046
054026
000052
000000
000204

;UNIBUS VECTOR ADDRESS AND PRIOKITY

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *'.+2.HALT''

.SBTTL

000200

SEQ 0046

A#START

;:JUMP TO STARTING ADDRESS OF PROGRAM

ACT11 HOOKS
R

dddd

st eIl
2222222322233 222223

HOOKS REgUIRED BY ACT1

:SAVE PC

.=46
$ENDAD

=52

" WORD

.=$SVPC

.=1100

.SBTTL
MR

Al d

::1)SET LOC.46 TO ADDRESS OF S$ENDAD IN .SEOP
0

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

APT PARAMETER BLOCK
g

sttt

T332 223222222222322322%;

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
IRRRARRAARARARRARRRARERAREARERRRARRRARRAAREARRREARAARRAAREAR
AR

:sSAVE CURRENT LOCATION

000044
MR

ARttt

;2 SET POWER FAIL TO POINT TO START OF PROGRAM
:;FOR APT START UP
:sPOINT TO APT INDIRECT ADDRESS PNTR.
s ;POINT TO APT HEADER BLOCK
s sRESET LOCATION COUNTER
el

1221223222223

232222222227

3333383

8888888

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC
; INTERFACE SPEC.

992

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

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
: ;ADDRESS OF APT MAILBOX (BITS 0-15)
..RLN TIM OF LONGEST TEST
i W TIME IN SECS. OF 1ST PASS (N 1 UNIT (QUICK VERIFY)
DITIONAL RUN TIME

SETEND-SHAIL/Z

(SECS) OF
A PASS FOR EACH ADDED UNIT

:;LENGTH MAILBOX~ETABLE (WORDS)

CZRMPAO WS/S/Z DSKLS TST 1

COMMON TAG

1 &
CRO v03.01 11-APR-80 13:58:55 PAGE 5

.SBTTL
MR

SEQ 0047

COMMON TAGS

LA E AR A

ittt

itlssd]

001114

001

$CMTAG:

.=TAGADR
oo
0

;:START OF COMMON TAGS

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
S$ERMAX:
S$ERRPC:
$GDADR:

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

O
O
O
0
0
O
O
1
O
O

;sCONTAINS
s sCONTAINS
;;CONTAINS
2 sCONTAINS
2 ;CONTAINS
2 ;CONTAINS
;:CONTAINS
;sCONTAINS
s sCONTAINS
2 ;CONTAINS

$GDDAT:
$8DDAT:

.WORD
.WORD

O
O

2 ;CONTAINS 'GOOD' DATA
;;CONTAINS 'BAD' DATA

$AUTOB:
$INTAG:

.BYTE
'3&5

O
8

2 sAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

SWR:

.WORD

DSWR

;;ADDRESS OF SWITCH REGISTER

$TKB:
$TPS:

177562
177564

$NULL:
$FILLS:
$FILLC:
$TPFLG:
$TMPO:
$TMP1:
$TMP2:

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

$8DADR: .WORD

000000
000000

SRRARR
8IRERTREIISE

—_

88 88 88888288388885888888883838

a—l
NISERREFLNLEE
R SR RRIERRNSIa =R

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

DISPLAY: .WORD
$TKS:
177560

$TPB:

001174

$TMP3:

SRR

.xg

377

177566

.WORD

$TMP4:
_WORD
$TIMES: 0
SESCAPE:0
$BELL:
.ASCIZ
$QUES:
L.ASCII
$CRLF:
.ASCII
SLF:
ASCIZ

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

. s CONTAINS ADDRESS OF 'BAD' DATA

; RESERVED==NOT TO BE USED

DDISP

; sADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

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

2:TTY PRINTER BUFFER REG. ADDRESS

O
2
12
O
O
O
O

2 sCONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED

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

;;USER DEF INED

..USER DEF INED
;MAX. NUMBER OF ITERATIONS
JESCAPE ON ERROR ADDRESS
<207><377><377> ,.CODE FOR BELL
JQUESTION MARK
<15>
..CARRIAGE RETURN
<12
;LINE FEED

tttttttttttttttttttttt'tttttttttttttttttttt'ttttttttttttttttttt

"SBTTL

APT MAILBOX-ETABLE

::tttt'ttttttttttttttttttttttttttttttttttttttttttttt'tttttttttttt

.EVEN

SMAIL :

$MSGTY:
SFATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

: sAPT MA]LBOX

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

CZl
ERI

CZRMPAQ RM0S5/3/2 DSKLS TST 1

APT MAILBOX-ETABLE

J &
MACRO v03.01 11-APR-80 13:58:55 PAGE 5-1
SEQ 0048
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
SMSGAD: .WORD
$MSGLG: .WORD
SETABLE:
SENV:
.BYTE
SENVM:
_BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD
. %

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENWM
ASWREG
AUSWR
ACPUOP

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,Q=10

5 *
H *

.
: *

$SMAMS1:
SMTYP1:

s sPASS COUNT
s sDEVICE COUNT
::1/70 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH
s sAPT ENVIRONMENT TABLE
: :ENVIRONMENT BYTE
s sENVIRONMENT MODE BITS
s sAPT SWITCH REGISTER
;sUSER SWITCHES
;:CPU TYPE,OPTIONS

.BYTE
.BYTE

AMAMS1
AMTYPI

- %

‘e

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT

;sHIGH ADDRESS.M.S. BYTE
;s sMEM. TYPE ,BLKA#1

MEM.TYPE BYTE

(HIGH BYTE)

.WORD

AMADR1

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003
;;HIGH ADDRESS ,BLK#1

SMAMS?2:

.BYTE

AMAMS?

;sHIGH ADDRESS.M.S. BYTE

$MADR2:
$SMAMS3:
SMTYP3:
$MADR3:
SMAMSS:
SMTYP4:
$MADRS4:
SVECT1:
SVECT2:
E:
$DEVM:
$CDW1:
$CDW2:
$DDWO:
$DDW1:
$DDW2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
$DDW7:
SETEND

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

AMADR?
AMAMS3
AMTYP3
AMADR3
AMAMSS
AMTYP4
AMADRS
AVECT1
AVECT?2
ABASE
ADEVM
ACDWI!
ACDW2
ADDWO
ADDWI1
ADDW2
ADDW3
ADDW4
ADDWS
ADDW6
ADDW7

3 *

$MADR1:
. %

SMTYP2:

.BYTE

AMTYP?2

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

..HEH TYPE.BLK#Z

sMEM.LAST ADDRESS.BLK#2

..HIGH ADDRESS ,M.S.BYTE

s sMEM. TYPE.BLK#S

s sMEM.LAST ADDRESS.BLK#3
ssHIGH ADDRESS.M.S.BYTE
.
TYPE ,BLK#
3 JMEM
s sMEM.LAST ADDRESS ,BLK#%
s s INTERRUPT VECTOR#1,BUS PRIORITY#1
s s INTERRUPT VECTOR#2BUS PRIORITYA#2

s :BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
s sCONTROLLER DESCRIPTION WORDA#1
s sCONTROLLER DESCRIPTION WORDA#?2
s ;DEVICE DESCRIPTOR WORDA#0
2sDEVICE DESCRIPTOR WORD#1
2 :DEVICE DESCRIPTOR WORD#?2
2 ;DEVICE DESCRIPTOR WORDA#3
2 :DEVICE DESCRIPTOR WORDA#4
;;DEVICE DESCRIPTOR WORDAS
;:DEVICE DESCRIPTOR WORD#6
2 ;DEVICE DESCRIPTOR WORDA#7

CZRMPAO RMOS5/3/2 DSKLS TST 1

USER DEFINED TAGS

001326

001330

001331

000000

000

MACRO v03.01

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

.SBTTL

USER DEFINED TAGS

XXDP:

.WORD

LSTRK:

.BYTE

SEQ 0049

:THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH

:THE PROGRAM WAS LOADED.

THE HIGH BYTE CONTAINS THE

: 'XXDP' DEV(I)CE CODE FOR THE RM05/3/2.

:LO BYTE

:HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT
:UNDER TEST. RM0273 = 4., RMOS
= 18.

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

001332
001332
001334
001336
001340
001342
001344
001346
001350
001352
001354
001356
001360
001362
001364

GE TBUF :
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;REGISTER INPUT BUFFER
RMCS1I: .WORD
O
RMWCI:
.WORD
O
RMBAI:
.WORD
O
RMDAI:
.WORD
O
RMCS2I:
.WORD
0
RMDSi:
.WORD
O
RMER1I:
.WORD
0
RMASI:
.WORD
O
RMLAI:
.WORD
O
RMDBI:
.WORD
O
RMMR1I:
.WORD
0
RMDTI:
.WORD
O
RMSNI:
.WORD
O
RMOFI:
.WORM
O

000000
000000
000000

RMHRI:
RMMR2I:
RMER2I:

000000

001376
001400
001402
001404

000000
000000
000000
000000

001370
001372
001374

RMDCI:

RMEC1I:
RMEC2I:
RMBAEI:
RMCS3I:

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

O
0
0

O
0
0
O

;CONTROL, STATUS REGISTER #1
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER
sCONTROL, STATUS REGISTER #2
;DRIVE STATUS REGISTER
sERROR REGISTER #1
sATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
;OFFSET REGISTER

;DESIRED CYLINDER REGISTER

sHOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER #2

.ECC POSITION REGISTER
;ECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

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

001406
001406
001410
001412
001414
001416

001420
001422
001424
001426
001430
001432
001434
001436

PUTBUF:
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000

nesxsrsn OUTPUT BUFFER

RMCS10:
RMWCO:
RMBAD:
RMDAO:
RMCS20:

RMDSO:
RMER10:
RMASO:
RMLAO:
RMDBO:
RMMR10:
RMDTO:
RMSNO:

.WORD
.WORD

.WORD
.WORD
.WORD

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

0
0

0
O
0

0
O
0
O
O
O
0
O

;CONTROL, STATUS REGISTER #1
*WORD COUNT REGISTER

:BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER
:CONTROL, STATUS REGISTER #2

:DRIVE STATUS REGISTER
:ERROR REGISTER
#1
SATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
*DATA BUFFE
*MAINTENANCE REGISTER #1
:DRIVE TYPE REGISTER
*SERIAL NUMBER REGISTER

CZRMPAQ RMOS5/3/2 DSKLS TST 1

USER DEFINED TAGS

MACRO v03.01

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

SEQ 0050
WORD
WORD
WORD
RMMR20: WORD
RMERZ20: WORD
RMEC10: WORD
RMEC20: WORD
RMBAEO: WORD
RMCS30: WORD
RMOFO:
RMDCO:
RMHRO:

0
0
0
0
0
0
0
0
0

;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER
sECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

172540
172542

$LPCSR:
$LPCSB:
$SLPVEC:
$LLCSR:
SLLVEC:

WORD
WORD

WORD

$PSW:

TIME:
WATCH:
CLOCK:
STOP:

;PUT TAGS HERE

.QO

000009

[ =

TSTQUE:

—

000000

@®

sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
:THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
sFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
s IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
;END OF THE QUE.

;CONTAINS DEVICE POINTER
sTEST QUE FOR DEVICES UNDER TEST
;TABLE TERMINATOR GOES HERE WHEN
;ALL 8. DEVICES ARE UNDER TEST.

172540
172542
104
106
177546
100
102

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

;KW11=P INTERRUPT VECTOR

;KW11=L CONTROL + STATUS REGISTER
;KW11=L INTERRUPT VECTOR
s STORAGE
:STORAGE
sSTORAGE
;ADDRESS
sADDRESS

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

CZRMPAQ RMO5/3/2 DSKLS TST 1
ERROR POINTER TABLE
0

M4
MACRO V03.01 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.
s*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).
s*NOTE1:
;*NOTEZ2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
LR
I 2

:;POINTS
;sPOINTS
;;POINTS
;;POINTS

. 001536

TO THE
TO THE
TO THE
TO THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

:ERROR
001536

EMT1
EHT
EDT1
EFT1

071514
oW

CANNOT CLEAR NED STATUS

;ERROR
063516
071372
071470
071516

CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED

EMT2
EHT2
EDT2
EFT2
;ERROR

063544

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

EMT3

;ERROR

CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT

;ERROR

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

;ERROR

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

071520

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

001606

N &
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-1

3632
071520

;ERROR

063654

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

EMT7
EHT7
EDTS
EFTS

;ERROR

EMT10

:ERROR

EMT11

;ERROR

EMT12

;ERROR

EMT13

;ERROR

EMT14

001674

;ERROR

SEQ 0052 |

CZRMPAD RMO5/3/2 DSKLS TST 1

ERROR POINTER TABLE

MACRO v03.01 11-APR-80 13:58:55 PAGg 722

064004

EMT1S

;ERROR

EMT16

;ERROR

EMT17

;ERROR

CANT WRITE ZEROS RMDA

EMT20
EHTI
EDT1
EFT1
;ERROR

CANT WRITE ONES RMDA

EMT21
EHT1
EDT1
EFT?
;ERROR

BIT INTERFERENCE IN WRITING/READING RMDA

EMT22
EHT1
EDT
EFT1

:ERROR

CANT WRITE ZEROS RMCS1

EMT23
EHTI
EDT
EFT1
;ERROR

CANT WRITE ONES RM(CST

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

001766
001770
001772
001774

€5
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-3

EMT24
EHTI

EDT]
EFT1

071514
;ERROR

064172
071366
071466
071514

BIT INTERFERENCE IN WRITING/READING RMCS51

EMT25

EHT]
EDTI
EFT
;ERROR

MBA CLR L

sERROR

CANNOT CLEAR RMER1-PAR.RMR,ILF.,ILR

IS STUCK ACTIVE

064206

EFT1

;ERROR

CANNOT CLEAR RMER1-DCK,
JAE ,AOQE ,HCRC ,HCE ,ECH,WCF ,FER

EMT30
EHT1
EDT]
EFT1
;ERROR

CANNOT CLEAR RMER1-OPI,DTE

EMT31
EHTI
EDT1
EFT1
;ERROR

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

EMT32
EHT]
EDT1

EFT1
:ERROR

064316

33
EMT33

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

SEQ 0054

CZRMPAD RMO5/3/2 DSKLS TST 1
ERROR POINTER TABLE

002060
002062
002064

D 5
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-4

SEQ 0055

071366
071466
071514

;ERROR

CANNOT WRITE O IN RMER1-OPI,DTE

EFT1
;ERROR

CANNOT WRITE 1

IN RMER1

EMT35
EFT1
;ERROR

CANNOT WRITE SHIFTING 1

:ERROR

CANNOT WRITE ZEROS IN RMDC

IN RMER1

EFT1

;ERRCR

CANNOT WRITE ONES IN RMDC

EMT40
EHT1
EDTI
EFT1
sERROR

BIT INTERFERENCE IN WRITING/READING RMDC

EMT41
EHT]
EDT]
EFT1

;ERROR
064452
000000

EMT42
0

CANNOT WRITE 1°'S IN RMDC OR RMDA

CZRMPAQ RMO5/3/2 DSKLS TST 1

0
0

O°O§
P3N
2582

:ERROR

CANNOT CLEAR RMCST1=FUNCTION CODE

NNN

EMT43
EHT]
EDT

EFT1

—_—

002152
002154

MACRO v03.01 11-APR-80 13:58:55 PAGE 725

ERROR POINTER TABLE

;ERROR

UNUSED BITS OF RMER2 NOT ZERO

EMT44
EHTI
EDT1
EFT1

;ERROR

CANNOT CLEAR RMER2-OPE, IVC,LSC

EMT45
EHTI
EDT1
EFT1
;ERROR

CANNOT CLEAR RMERZ2-LBC,DPE

EMT46
EHT1
EDT1
EFT1

;ERROR

CANNOT WRITE ZEROS RMER2-OPE,IVC,LSC

EMT47
EHT1
EDT1
EFT1
;ERROR

CANNOT WRITE ZEROS RMERZ2-LBC,DPE

EMTS50
EHT]
EDT1
CFT1
sERROR

EMTS51
EHT1
EDT1

CANNOT WRITE ONES RMERZ2

SEQ 0056

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR POINTER TABLE

002244

F
5
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-6

071514

SEQ 0057

EFT1

:ERROR

CANNOT WRITE SHIFTING ONES RMERZ2

EMTS52
EHT]
EDT1
EFT1

071366
071466
071514
sERROR

UNUSED BITS OF RMOF ARE NOT ZERO

EMTS3
EHTI
EDT
EFT1
;ERROR

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

EMT54

EHT1
EDT1
EFT1

071514
;ERROR
064710
071366
071466
071514

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

EMTS5
EHT1
EDT1
EFT1
;ERROR

CANNOT WRITE SHIFTING ONES RMOF

EMT56
EFT1
;ERROR

DEVICE IS NOT AN RM05/3/2

:ERROR

DEVICE AVAILABLE

EFT1

IS NOT SET

CZRMPAD RMO5/3/2 DSKLS TST 1

ERROR POINTER TABLE
146

}2;

:ERROR
002336
002340
002342
002344

064774
071366
071466
071514

149

1??

065014
071366
071466
071514

152

}gz

065034
071366
071466
071514

155

}gg
065050
071366
071466
071514

158

}gg
065062
071412
071476
071524

161

}g%
065076
071412
071476
071524

164

;22
065112
071366
071466
071514

CANNOT WRITE SHIFTING ONES RMHR

CANNOT CLEAR ILR STATUS

ILR ERROR SHOULD NOT BE SET

ILR ERROR SHOULD BE SET

EMT66
EHT65
EDT65
EFT65

JERROR
002416
002420
002422
002424

EMT65
EHT65
EDT65
EFT65

:ERROR
002406
002410
002412
002414

CANNOT WRITE ONES RMHR

EMT64
EHTI
EDT1
EFT1

;ERROR
002376
002400
002402
002404

EMT63
EHT1
EDT1
EFT1

:ERROR
002366
002370
002372
002374

CANNOT WRITE ZEROS RMHR

EMT62
EHT1
EDT1
EFT1

;ERROR
002356
002360
002362
002364

61
EMT61
EHTI
EDT]
EFT1

:ERROR
002346
002350
002352
002354

MACRO v03.01 11-APR-80 13:58:55 PAGE 7-7

67
EMT67
EHT1
EDTY
EFT1

CANNOT CLEAR PAR STATUS-DPE IS RESET

SEQ 0058

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

:ERROR

CANNOT CLEAR PAR AND DPE STATUS

EMT70
EHTI
EDT1
EFT1

071466
071514

;ERROR
065150
071416

"PAR'" ERROR SHOULD NOT BE SET='PAT'' IS OFF

EMT71
EHT71
EDT71
EFT71

071500

071526

;ERROR

065174
071416
071500
071526

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

EMT72
EHT71
EDT71
EFT71
;ERROR

065220
071416
071500
071526

"MCPE'" ERROR SHOULD NOT BE SET

EMT73
EHT71
EDT71
EFT71
;ERROR

065240
071422
071502
071530

UNEXPECTED BUS TIMEOUT

EMT74
EHT74
ED174
EFT74
;ERROR

CANT CLEAR 'DMD'’

EMT75
EHT]
EDT
EFT1
;ERROR

071514

EMT76
EHT1
EDT1
EFT1

CANT WRITE ZERO 'DMD'’

SEQ 0059

mm I

MACRO v03.01

p o N

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

}gg
065276
071366
071466
071514

}gg

194
195
196

065312
071416
071476
071524

065332
071366
071466
071514

197

}33

200
201
202

065352
071366
071466
071514

065372
071416
071476
071524

203

204
205

206
207
208

209
210

;ERROR
002566
002570
002572
002574

065416
071366
071466
071514

101

CANT CLEAR "MOL'' IN DIAGNOSTIC MODE

102

CANT SET 'MOL'" IN DIAGNOSTIC MODE

103

"MUR'" SET BY WRONG BIT

104

CANT RESET "WRL'' IN DIAGNOSTIC MODE

_
EMT103
EHT?71
EDT6S
EFT65

EMT104
EHT1
EDT1
EFT1

;ERROR
002576
002600
002602
002604

DMD SET BY WRONG BIT

EMT102
EHT1
EDT1
EFT1
;ERROR

002556
002560
002562
002564

100

EMT101
EHT1
EDT1
EFT1

;ERROR
002546
002550
002552
002554

CANT WRITE ONE 'DMD'’

EMT100
EHT71
EDT6S
EFT65
JERROR

002536
002540
002542
002544

77
EMT?7.
EHT1
EDT1
EFT1

;ERROR
002526
002530
002532
002534

SEQ 0060

:ERROR
002516
002520
002522
002524

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

065436
071366
071466
071514

105

CANT SET "WRL'' IN DIAGNOSTIC MODE

EMT105
EHT1
EDT1
EFT1
;ERROR

106

"MWP'' SET BY WRONG BIT

ERROR POINTER TABLE

MACRO v03.01

ma~

CZRMPAD RM05/3/2 DSKLS TST 1

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

Pa k|

002606
002610
002612
002614

065456
071416
071476
071524

EMT106
EHT71
EDT6S
EFT65

212

:ERROR 107

%}2

002616
002620
002622
002624

065502
071366
071466
071514

:ERROR 110
002626
002630
002632
002634

065522
071365
071466
071514

218

:ERROR
002636
002640
002642
002644

221
222
223"

224
225
226

227
228
229

065564
071366
071466
071514

002656
002660
002662
002664

111

"DVC'' IS SET BUT "UNS'' IS NOT SET

EMT111
EHT1
EDT1
EFT1

112

CANT SET 'DVC'' USING MDVC''

EMT112
EHT1
EDT1
EFT1

:ERROR

065604
071366
071466
071514

113

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

EMT113
EHT1
EDT1
EFT1
:ERRCR

002670
002672
002674

230
231
232

065544
071366
071466
071514

;ERROR
002646
002650
002652
002654

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

EMT110
EHT1
EDT1
EFT1

219

220

CANT RESET 'DVC'' USING "MDVC''

EMT107
EHT1
EDT1
EFT1

215

%}9

MACRO v03.01 11-APR-80 13:58:55 PAGE 7-10

065630

114

"DVC'' IS SET BUT "UNS'' IS NOT SET

EMT114

071366
071466
071514

EHT1
EDT1
EFT1

;ERROR

115

"MDF'' IS SET BY WRONG BIT

SEQ 0061

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

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

EFT1

;ERROR

117

CANT SET "'SKI'' USING ‘MSER''

EMT117
071514

;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

071514

066002
071366
071466
071514

066022
071426
071504
071532
;ERROR

066046

124

EMT124

CANT CLEAR "EBL'’

CZRMPAQ RMO5/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
EHT1
EDT1
EFTT
;ERROR

126

CANT SET "EBL'' USING 'DEBL'

EMT126
EHT1
EDT1
EFT1

071366
071466
071514
s ERROR

"DEBL'* SET BY WRONG BIT

066122

;ERROR

130

"LS'* NOT CORRECT ACCORDING TO RMDA

EMT130
EHT130
EDT130
EFT130
;ERROR

"LST'* NOT CORRECT ACCORDING TO RMDA

EMT131
EHT130
EDT130
EFT130

;ERROR

132

CANNOT INCREMENT SECTOR ADDRESS USING ‘DEBL''

EMT132
EHT132
EDT132
EFT132
;ERROR

133

EMT133
EHT132

CANNOT INCREMENT TRACK ADDRESS USING ‘DEBL'’

SEQ 0063

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

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

SEQ 0064

071510
071536

275

;ERROR

UNUSED BITS OF RMDC NOT ZERO

;ERROR

"VV'' NOT RESET BY UNIT READY

;ERROR

SERIAL NUMBER IS INCONSISTENT

071514

066274
71366
71466

071514

;ERROR

137

CANT CLEAR ''GO'’ BIT

EMT137
EHT1
EDT1
EFT1

071366
071466
071514

;ERROR

140

CANT INCREMENT CYLINDER USING 'DEBL''

EMT140
EHT132
EDT132
EFT132
CANT RESET "LBT'' BY WRITING RMDA

;ERROR

CANT SET 'LBT'' USING 'DEBL"*

T ——————————

;ERROR

————————

066360
071442
071510

{

003062
003064

MACRO v03.01

CZRMPAD RMO5/3/2 DSKLS TST 1

ERROR POINTER TABLE

003154

N5
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-14

EFT132

071536

;ERROR

143

CANT READ ZERO FROM COMP ERROR

EMT143
EHT1
EDT1
EFT1
:ERROR

144

CANT SET COMP ERROR WITH RMER1 OR RMERZ2

EMT144
EHT1
EDT1
EFT1

;ERROR

145

COMP ERROR DID NOT SET

EMT145
EHT145
EDT130
EFT130
;ERROR

146

CANT SET ''GO'' BIT

EMT146
EHT1
EDT1
EFT1

071466
071514

;ERROR

CANT READ A ONE FROM ‘‘TST"'

;ERROR

"TST'* IS INCORRECT FOR THE FUNCTION CODE

066474
071366
071466
071514

;ERROR

071514

151

EMT151
EHT1
EDT1
EFT1

CANT SET THE ''GO'' BIT

SEQ 0065 |

ERROR POINTER TABLE

317

g;g

;ERROR

3246
003250
003252
003254

066542
071366
071466
071514

320

§2212
066556
071366
071466
071514

323

gsg

066576
0713«
071460
071514

066616
071366
071466
071514

329

330
33

003310
003312
003314

332
333
33

066656

003322
003324

071466
071514

337

156

CONTINUE IS INCORRECT FOR THE FUNCTION CODE

157

CANT CLEAR IVC

EDT1
EFT1

ROR

066674
071452
071504
071532

CANT CLEAR CONTINUE

EHTI

+ERROR

003326
3330
003332
33

155

EMT157

071366

"'GO"’ DIDNT RESET ON TIME

EHT150
EDT115
EFT115

JERROR

154

EMT156

071452
071504
071532

003316

"'GO"* RESET EARLY

EMT155
EHTY
EDT1
EFT1

;ERROR

003

153

EMT154
EHTI
EDT1
EFT1

:ERROR
003276
3300
003302
003304

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

EMT153
EHT1
EDT1
EFT1

;ERROR
003266
003270
003272
003274

152

EMT152
EHTI
EDT
EFT1

;ERROR
003256
003260
003262
3264

326
327
328

B 6
MACRC v03.01 11-APR-80 13:58:55 PAGE 7-15

160
EMT160
EHMT150
EDT11S
EFT11S

IVC IS INCORRECT FOR THE FUNCTION CODE

mem

CZRMPAQ RMO5/3/2 DSKLS TST 1

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

38
39
340

;ERROR

003336
003340
003342
003344

066724
071366
071466
071514

341

342

343

3
003350
003352
003354

066742
071366
071466
071514

066760
071366
071466
071514

347

3323
067002
071366
071466
071514

350

%g}

067024
000000
000000
000000

353

gglg

356
357
358

359

067050
071366
071466
071514

067070
071366
071466
071514

COMMAND DECODE WAS ENABLED WiTH COMP ERROR SET

164

COMMAND DECODE WAS ENABLED WITH COMP ERROR SET

165

DECODE DOES NOT SET

166

CANT CLEAR OCCUPIED

EMT166
EHT]
EDT1
EFT1

;ERROR
003416
003420
003422
003424

163

EMT165
0
0
0
;ERROR

003406
003410
003412
003414

CANT SET LSC

EMT164
EHT
EDTT
EFT1
;ERROR

003376
3400
003402
003404

162

EMT163
EHTT
EDT1
EFT1

;ERROR
003366
3370
003372
003374

CANT CLEAR LSC

EMT162
EHT]
EDT1
EFT1
;ERROR

003356
003360
003362
003364

161

EMT161
EHT
EDT
EFT1

;ERROR

344

345
34€

C 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-16

167
EMT167
EHT1
EDT1
EFT1

ILF SET WITHOUT GO BIT

SEQ 0067

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR POINTER TABLE

;ERROR
0034%8
0034
003432
003434

067112
071452

067124
071452
(71504
071532

365
366

371
372
373

374
375
376

377
378
379

380

381

067149
071366
071466
071514

067156
071452
071504
071532

067200
000000
000000
000000

067226
071366
071466
071514

OCCUPIED IS INCORRECT FOR FUNCTION CODE

174

READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOr

175

READ IN PRESET DIDNT CLEAR RMOF

EMT17S
EHT1
EDT1
EFT1

;ERROR
003506
003510
003512
003514

173

EMT174
0
0
0
;ERROR

003476
003500
003502
003504

CANT SET OFFSET DIRECTION BIT

EMT173
EHT150
EDT115
EFT11S
;ERROR

3466
003470
003472
003474

172

EMT172
EHT
EDT1
EFT1
:ERROR

003456
003460
003462

ILF IS INCORRECT

EMT171
EHT150
EDT11S
EFT115
;ERROR

003446
003450
003452
003454

CANT SET VOLUME VALID

EDT11S
EFT11S

;ERROR 171
003436
003440
003442
003444

368
369
370

170
EMT170
EHT150

071504
071532

3‘3

367

D 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-17

067244
071366
071466
071514

176

READ IN PRESET DIDNT CLEAR RMDA

EMT176
EHT1
EDT1
EFT1

JERROR

177

READ IN PRESET DIDNT CLEAR RMDC

SEQ 0068

003516
003520
003522
003524

067262
071366
071466
071514

383
384

386
387
388
.
003536
003540
003542
003544

067300
071366
071466
071514

067316
071365
071466
071514

067334
071366
071466
071514

067352
071366
071466
071514

067374
071366
071466
071514

398
399

400

401
402

202

CANT RESET OFD BY RTC COMMAND

203

CANT RESET OM BY RMDC

k
204

CANT RESET OM BY EBL

EMT204
EHT1
EDT1
EFT1
;ERROR

003576
3600
003602
003604

CANT RESET OFFSET MODE BY RTC COMMAND

EMT203
EHT1
EDT1
EFT1
;ERROR

003566
003570
003572
003574

201

EMT202
EHT1
EDT1
EFT1

;ERROR
003556
003560
003562
003564

CANT SET OFFSET MODE BY OFFSET COMMAND

EMT201
EHT1
EDT1
EFT1

;ERROR
003546
003550
003552
003554

200
EMT200
EHTI
EDT1
EFT1

;ERROR

389
%3?

395
396
397

EMT177
EHTI
EDT1
EFT1
;ERROR

003526
003530
003532
003534

392
393
394

E 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-18

7414
071452
071504
071532

205

RUN AND GO NOT CORRECT FOR FUNCTION CODE

EMT205
EHT150
EDT115
EFT115
JERROR

206

CANT SET IAE ERROR

SEQ 0069

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

CZRMPAD RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

MACRO v03.01 11-APR-80 13:58:55 PAGE 7-19

067434
000000
000000
000000

EMT206
0
0
0
;ERROR

067464

207

IAE IS INCORRECT FOR FUNCTION CODE

EMT207
EHT150
EDT115
EFT115

071532
;ERROR

IAE

;ERROR

IAE IS INCORRECT FOR RMDC

INCORRECT FOR RMDA

067500
071426
071504
071532

067516
071426
071504
071532

;ERROR

067534
071442
071510
071536

212

CANT SET AOE

EMT212
EHT142
EDT132
EFT132
;ERROR

RMR SET WHEN WRITING RMAS OR RMCS

;ERROR

CANT SET RMR

067546
071532

067576
071456
071504
071532
;ERROR

067610

215

EMT215

DRQ IS O AND PGM IS 1

SEQ 0070

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR POINTER TABLE

3
003702
003704
425
426
427

071366
071466
071514

EHT1
EDT1
EFT1
;ERROR

003706
003710
003712
003714

067630
071366
071466
071514

428

429

430

G 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-20

067644
071366
071466
071514

(31

2%%

217

DPR IS NOT SET

EMT217
EHTI
EDT1
EFT1

;ERROR
003726
003730
003732
003734

DVA IS NOT SET

EMT216
EHTI
EDT1
EFT1

;ERROR
003716
003720
003722
003724

216

067660
071462
071512
071540

220

CANT SET PORT REQUEST BY READING RM(CS1

EMT220
EHT220
EDT220
EFT220

434

435
436

;ERROR

003736
003740
003742
003744

067676
071462
071512
071540

437

438

439

440
441
442

067714
071462
071512
071540

067732
071462
071512
071540

443
22‘5

067750
071

CANT SET PORT REQUEST BY WRITING RMDA

223

CANT RESET PORT REQUEST BY RELEASE COMMAND

EMT223
EHT220
EDT220
EFT220

JERROR
003766
003770

222
EMT222
EHT220
EDT220
EFT220

JERROR

003756
003760
003762
003764

CANT SET PORT REQUEST BY WRITING RMAS

EMT221
EHT220
EDT220
EFT220

;ERROR
003746
003750
003752
003754

221

224
EMT224
EMTI

CANT CLEAR ATA BY RMAS

SEQ 0071

v
|

—

ERROR POINTER TABLE

003772
003774
446
447
448

H 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-21

SEQ 0072

071466
071514

EDT1
EFT1
;ERROR

003776
004000
004002
004

067770
071366
071466
071514

225

ATA IS RESET BUT RMAS NOT ZERO

EMT225
EHTT
EDTT
EFT1

449

22?

;ERROR

004006
004010
004012
004014

070012
071366
071466
071514

452
222

070030
071366
071466
071514

455
229

004032
004034
458
459
460

461
462
463
464

070046
071366

071466
071514

070064
071366
071466
071514

070100
071456
071504
071532

465
466

467

070122
071452

ATA NOT SET BY UNIT READY

231

ATA NOT SET BY COMP ERROR

232

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

EMT232
EHT213
EDT115
EFT115
JERROR

004056
004

230

EMT231
EHTT
EDTi
EFT1
;ERROR
3

004046
004050
004052
004054

ATA NOT SET BY UNIT READY

EMT230
EHT1
EDT1
EFT1
;ERROR

004036
004040
004042
004044

227

EMT227
EHTI
EDT1
EFT1
;ERROR

004026
004030

CANT RESET ATA BY GO

EMT226
EHTT EDT1
EFT1
;ERROR

004016
004020
004022
0046024

226

233

EMT233
EHT150

ATA NOT SET BY COMMAND SEQUENCER

CZRMPAD RMOS5/3/2 DSKLS TST 1

004062
004064

’;38
070144
071452
071504
071532

2;%

004104

070172
071366
071466

071514

070212
071426
071504
071532

070244
071366
071466
071514

070244
071452
071504
071532

483

484

485

486
487
488

070310
071366
071466
071514

070334
071366
071466

CANT SET EXCEPTION

237

CANT CLEAR IVC

240

CANT SET IVC

241

OPI NOT SET DURING RECALIBRATE

EMT241
EHT1
EDT1
EFT1

;ERROR

004146
004150
004152

236

EMT237
EHT150
EDT115
EFT115

;ERROR
004136
004140
004142
004144

CANT CLEAR EXCEPTION

EMT237
EHT1
EDT1
EFT1
;ERROR

004126
004130
004132
004134

235

EMT236
EHT115
EDT115
EFT115
;ERROR

004116
004120
004122
004124

WLE INCORRECT ACCORDING TO FUNCTION CODE

EMT235
EHT1
EDT1
EFTT
;ERROR

004106
004110
004112
004114

234
EMT234
EHT150
EDT115
EFT115

;ERROR
004076
004100
004102

480
481
482

EDT115
EFT115

;ERROR
004066
004070
004072
004074

477
478
479

SEQ 0073

071504
071532

468

474
475
476

I 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-22

242

EMT242
EHT]
EDT1

RECALIBRATE DID NOT ABORT WHEN DRIVE FAULT SET

wme

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

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

004154

MACRO v03.01

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

071514

EFTI

;ERROR

070360
071366
071466
071514

243

OP1 SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING RECALIBRATE

EMT243

EHT1
EDT1
EFT1
;ERROR

244

ATA NOT SET DURING RECALIBRATE

EMT244
EHT1
EDT1
EFT1

;ERROR

GO RESET EARLY DURING RECALIBRATE

EMT245
EHT]
EDT1
EFT1

071514

sERROR
070440

246

GO NOT RESET DURING RECALIBRATE

EMT246
EHT1
EDT1
EFT1

071366

071466
071514

;ERROR

247

INCORRECT TAG BUS DURING RECALIBRATE

EMT247
EHT1
EDT1
EFT1

071514

;ERROR

070502
071366
071466
071514

250

OPI SHOULD HAVE SET DURING SEEK BECAUSE UNIT
READY DROPPED

EMT250
EHT]
EDT1
EFT1
: ERROR

079526
071366

245

251
EMT251
EHT?

SEEK DID NOT ABORT WHEN DRIVE FAULT SET

SEQ 0074

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

004242
004244

004246
004250
004252
004254

070552
071366
071466
071514

g}g
070576
071366
071466
071514

519

g%?

070614
071366
071466
071514

522

2%2

070632
071366
071466
071514

525

253

254

255

070656
071366
071466
071514

528

2233
004316

004322
004324

070674

257

OPI NOT SET DURING SEARCH

EHT1

071466
071514

EDT1
EFT1
;ERROR

070720
071366

INCORRECT TAG BUS DURING SEEK

EMT257

071366

531
532

GO DID NOT RESET DURING SEEK

EMT256
EHT1
EDT1
EFT1

;ERROR
0043

GO RESET EARLY DURING SEEK

EMT255
EHT1
EDT1
EFT1

;ERROR 256
004306
004310
004312
004314

ATA NOT SET DURING SEEK

EMT254
EHT1
EDT1
EFT1

;ERROR
004276
004300
004302
004304

OP1 SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING SEEK

EMT253
EHT1
EDT1
EFT1

;ERROR
004266
004270
004272
004274

252

EMT252
EHT1
EDT1
EFT1

;ERROR
004256
004260
004262
004264

533

EDT]
EFT1
JERROR
:

516

ggg

SEQ 0075

071466
071514

512

513
514
515

K 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-24

=
260
EMT260
EHT1

SEARCH DID NOT ABORT WHEN DRIVE FAULT SET

CZRMPAQ RMO5/3/2 DSKLS TST 1
ERROR POINTER TABLE
004332
004334

L 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-25

071466
071514
;ERROR

070744
071366
071466
071514

261

OPI1 SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING SEARCH

EMT261
EHT1
EDT1
EFT1
;ERROR

070770
071366
071466
071514

262

ATA NOT SET DURING SEARCH

EMT262
EHT]
EDT1
EFT1
;ERROR

263

GO RESET EARLY DURING SEARCH

EMT263
EHT1
EDT1
EFT1

071514

;ERROR

071024
071366
071466
071514

264

GO DID NOT RESET DURING SEARCH

EMT264
EHT1
EDT1
EFT1

;ERROR
071050

265

SEARCH ENABLE DIDNT SET DURING SEARCH

EMT265
EHT1
EDT1
EFT1
;ERROR

INCORRECT TAG BUS DURING SEARCH

;ERROR

OPI NOT SET BY SEARCH TIMEOUT

SEQ 0076

CZRMPAQ RMO5/3/2 DSKLS TST 1
ERROR POINTER TABLE
004422
004424

M6
MACRO v03.01 11-APR-80 13:58:55 PAGE 7-26

071466
071514

;ERROR
071120
071366
071466
071514

OPI NOT SET DURING DATA COMMAND

EFT1

;ERROR

071144
071366
071466
071514

271

DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET

EMT271
EHTI]
EDT1
EFT1
;ERROR

071170

272

EBL RESET EARLY DURING DATA COMMAND

EMT272
EHT1
EDT1
EFT1

071366
071466
071514

;ERROR

273

EBL DIDNT RESET ON TIME DURING DATA COMMAND

EMT273
EHT]
EDT1
EFT1

071514

;ERROR

071224
071366
071466
071514

274

GO NOT RESET DURING DATA COMMAND

EMT274
EHT]
EDT1
EFT1
;ERROR

RUN AND GO NOT SET DURING DATA COMMAND

;ERROR

INCORRECT TAG BUS DURING DATA COMMAND

071242
071366
071466
071514

071262
071366
071466

SEQ 0077

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR POINTER TABLE

004514

MACRO v03.01 11-APR-80 13:58:55 PAGE 7227
.

EFT1

071514

;ERROR

277

OPI NOT SET DURING DATA COMMAND WHEN ON
CYLINDER DIDNT DROP

EMT277
EHT1
EDTI
EFT1

071514

300
071324
071366

DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET

EMT300
EHT1
EDT1
EFT1

071466

071514

;ERROR
071350
071366
071466
071514

301

SEARCH NOT ENABLED DURING DATA COMMAND

EMT301
EHT1
EDT1
EFT1
;PUT ERROR TABLE HERE

SEQ 0078 |

CZRMPAD RMOS5/3/2 DSKLS ST 1
ERROR POINTER TABLE

8 7
MACRO v03.01 11-APR-80 '3:58:55 PAGE 8

SEQ 0079 |

sTHIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

BADTMO: MOV

ST
P
TYPE

004562

agss:
VONOWVESWN 2OV

(SP) ,RO

-(RO)
(SP)+, (SP)+
,658

B8R

648

?%o -

RO,=(SP)

"ASCIZ

START:

NOP

;PUT "HALT(0)' INSTRUCTION HERE IF YOU WISH

START OF PROGRAM

d o
-

.SBTTL

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

.SBTTL

RESET

GET OVER THE ASCIZ

<CRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/

NOP

INC
BNE

;SAVE PC WHERE THE TIME OUT OCCURED

*ADJUST PC =2
*RESTORE STACK POINTER
..rvps ASCIZ STRING

#0
=4

:TTY LOOP, WAIT FOR INCREMENT
*OF WORD

*RESET THE WORLD

INITI, _IZE THE COMMON TAGS

:;CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#LCMTAG,R6
s;FIRST LOCATION TO BE CLEARED
CLR

CMP
BNE
MOV

(R6)+

;sCLEAR MEMORY LOCATION

#STACK, SP

;sSETUP THE STACK POINTER

#SWR,R6
.~6

;:INITIALIZE A FEW VECTORS

s ;DONE?
;:LO0OP BACK IF NO

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#$SCOPE ,a# IOTVEC ;:IOT VECTOR FOR SCOPE ROUTINE
#340, ¥ TIOTVEC+2 ;:LEVEL 7
#SERROR ,@¥EMTVEC - ;EMT VECTOR FOR ERROR ROUTINE
#3460, QMEMTVEC+2 ;:LEVEL 7
#STRAP, a# TRAPVEC ..nw VECTOR FOR TRAP CALLS
#340, a#TRAPVEC+2; LEVEL 7
#SPWURDN,@#PWRVEC ; ;POWER FAILURE VECTOR
#3640, a#PWRVEC+2 ;:LEVEL 7
SENDCT,SEOPCT ::SETUP END-OF-PROGRAM COUNTER

MOV

FERRVEC , - (SP)

STIMES
;s INITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
..CLEAR THE ESCAPE ON ERROR ADDRESS
MOvVB
#1 ,SERMAX
;ALLOW ONE ERROR PER TEST
MOV
..SLPADR
..INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
.SLPERR
:SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDHARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "*~1'', SETUP FOR A SOF TWARE SWITCH REGISTER.
-3
—d
—

—_—

177777

rowvun
ooy

012737

:§§§

CLR

005046
o~

—a
—_—

(¥ 1V,]

—b
—

000176
000174

648:

65%:

MOV
MOV
MOV
cMP

#64$,aNERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR

..SAVE ERROR VECTOR

SET UP_ERROR VECTU!
::SETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR

BNE

668"

65%

MOV
MOV

#SWREG, SWR
;;POINT TO SOFTWARE SWR
#DISPREG,DISPLAY

al?\ll

#65%, (SP)

..BRANCH IF NO TIMEOUT TRAP OCCURRED

;sAND

THE HARDWARE SWR IS NOT = =]

::BRANCH IF NO TIMEOUT

..SET UP FOR TRAP RETURN

CZRMPAD RMO5/3/2 DSKLS TST 1
INITIALIZE THE COMMON TAGS

005062

012637

000004
001230
000200
001244

2737

004546
000300
000140
005136

MOV

(SP)+,3#ERRVEC

001243
001154 ok

CLR
BITB
BEQ
MOV

$PASS
;CLEAR PASS COUNT
WAPTSIZE,SENWM ..TEST USER SIZE UNDER APT
678
:YES,USE NON-APT SWITCH
#SSWREG, SWR
::NO,USE APT SWITCH REGISTER

000004
000006

MOV
MOV
MOV
MOV
RTI

#BADTMO,ERRVEC
#PR6,ERRVEC+2
#PR3.~(SP)
#688.~(SP)

;SETUP FOR UNEXPECTED TIMEOUT
:LEVEL 6
+;PUT NEW PS ON STACK
+:PUT NEW PC ON STACK

1:POP NEW PC AND PS

TYPE PROGRAM NAME

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

177777

BNE
P

000042

005222

BEQ

.SBTTL

000042

112737

;:RESTORE FRROR VECTOR

;SETUP ‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

.SBTTL

0004

SEQ 0080

668:

68$%:

054026

MACRO v03.01 11-APR-80 13:58:55 PAGE 8-1

698
#SENDAD ,a#42

*:BRANCH IF NO
::ACT=11?

698

..emwcu IF YES

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

TYPE
,708
TYPE ASCIZ STRING
GET VALUE FOR SOF TWARE suxrcn REGISTER
ST
w62
ARE WE RUNNING UNDER XXDP/ACT?

001242

000001

BNE
CMPB

71s
SENV.#1

001154

000176

SWR, #SWREG

g;sm

*:GET SOFT-SWR SETTINGS

MOVB

#1,SAUTOB

::SET AUTO-MODE INDICATOR

698

::GET OVER THE ASCIZ

000001

BEQ

BNE

001150 ;}2

000426

z',i;;o"

.ASCIZ

718

*:BRANCH IF YES

72%

;:BRANCH IF NO

::SOFTWARE SWITCH REG SELECTED?

<CRLF>3CZRMPAO - RM0S5/3/2 DISKLESS TEST. PART 1a<CRLF>

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

005037
122737
001160
013737
122737
10300
105037
00573
001425
104401
000412

2
43 005404

005046
113716
104403
001

001326
000016

000041

000040
000007

001326
001326

001326
000042

CLR

18:

005350
%;z.s:

001326

XXDP

(MPB
BNE
MOV
CMPB

#16,a441
5s
ans0, XXDP
#7,XXDP

BEQ

BHIS
CLRB
TST

TYPE
BR

.ASCIZ

CLR
MOVB

TYPOS
BYTE

;CLEAR *XXDP* LOAD DEVICE STORAGE

*LOADED FROM AN RM0S/3/2?
*BRANCH
IF NOT
:GET DEVICE INDICATOR AND NUMBER
:IS_IT A VALID NUMBER ?

18
XXDP
62

“YES
*NO, DEFAULT TO DRIVE 0
:CHAIN MODE OR ACT11 AUTO ACCEPT ?

748
738

..rvpe ASCIZ STRING
GET ovsn THE ASCIZ

*BR IF NEITHER

<CRLF>/NOT TESTING DRIVE
/
-(SP)
XXDP, (SP)

:CLEAR WORD ON STACK
:GET DRIVE ADDRESS

*TYPE THE ADDRESS

*ONLY 1 CHARACTER

7
CZRMPAD RMO5/3/2 DSKLS
MACRO v03.01 11-APR-80 13:58:5% PAGE 8-2
GET VALUE FOR SOF TWARE SWITCH REGISTER
45 005406

2? 005412

000

104401

38:
005426

56 005462
005466

000
104401
000431

2
57 005552
005556

104401
000435

62 005652
63 005656
glg 005660

105737
001506
012737

§s

csr NUMBER OF DRIVES

INC
BNE

#-1
58

:FIRST TIME THRU HERE ?
*NO

758

TYPE

000410

5450
51 005450

.BYTE

TYPE

000517

..768:

.ASCIZ

CLR

MOVR
TYPOS

supness LEADING ZEROS

$CRLF

*CR=-L

76%

::TYPE ASCIZ STRING

“GET OVER THE ASCIZ

<CRLF>/TO TEST DRIVE /
-(SP)

sCLEAR WORD ON STACK

XXDP, (SP)

BYTE
BYTE

1
0

778

TYPE

55;83:

SEG 0081

*GET DRIVE ADDRESS
sTYPE DRIVE ADDRESS

*ONLY 1 CHARACTER
:SUPRESS LEADING ZEROS
*:TYPE ASCIZ STRING

788

+:GET OVER THE ASCIZ

.ASCIZ

/. HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF>

TYPE
BR

79%
§s

LASCIZ

::TYPE ASCIZ STRING
*:GET OVER THE ASCIZ

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

:CHECK FOR AUTO MODE OR STANDALONE
TSTB
BEQ

001300

MOV

SAUTOB
STANDAL ONE

;RUNNING IN AUTO MODE ?
*BR IF NO

#377 .$DEVM

:SET DEVICE MAP FOR ALL DRIVES

xg?gGRAH IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED

68 005666
69 005674
70

132737
001066

71 005676
;% 005700

005001
(13700

74 005704
75 005712
76 005714

136137
001453
012737

001243

001300

1$:

2s:

001300

*NO

CLR
MOV

R1
$BASE ,RO

;START FROM DRIVE 0
:LOAD THE BASE ADDRESS

BITB

AINTBL(R1).$DEVM

MOV

#LODEV,5$

BEQ

CMP8

2$
XXDP,R1
33

:
;1S THIS THE DRIVE ?
;YES, TRY NEXT DRIVE

MOV

#CLR,RMCS2(RO)

;CLEAR MASS BUS

BEQ

MOV
TST

XXDP

R1,RMCS2(RO)
RMDS (RO)

;1S DEVICE PRESENT IN MAP ?

:BR IF NO

:GET ADDRESS OF LOAD DEVICE MESSAGE
:kngeo FROM RM05/3/2 ?

;LOAD THE DRIVE ADDRESS

sTRY TO ACCESS AN RM DRIVE REGISTER

#NOTPRS ,5%
#NED ,RMCS2(RO)

MOV
BIT

#NOTAVL ,5%
#DVA,RMCST1(RO)

BI(B
TYPE

ATNTBL (R1) ,$DEVM
.SCRLF
:CR=LF

BEQ

3$:
4$:

:SIZING ALLOWED ?

MOV
BIT

BNE

006040
000000

146727
04401

;g;

006040
000010

92
93 006012
94 006020

#BIT7,$ENVM

BNE

006040

000010

BITB

;GET ADDRESS OF MJT PRESENT MESSAGE
;IS DRIVE PRESENT
?

:BR_IF NO

;BR IF NO

:GET ADDRESS OF AVAILABLE ME SSAGE
;IS DRIVE AVAILABLE
?

;CLEAR DEVICE FROM BIT mMAP

GET VALUE FOR SOF TWARE SWITCH REGISTER

95 006024
9% 0060
0060
0060
006035

97 0060
98 006040

062667

TYPE
MO

10440

002
000

104401

005201
020127
003715

,MSGDRV

R1,=(SP)

2
0

000000

gl i £

000007

104401
005004

001217

000137

007000

;TYPE

'DRIVE'

;:SAVE R1 FOR_TYPEOUT
;.60 TYPE=-OCTAL ASCII

;:EYPE 2 DIGIT(S)

5$%:

*ADDRESS OF MESSAGE GOES HERE

6%:

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

7%:

:CR=LF

sTHESE TWO LOOPS ARE ADDED TO
;WAIT FOR TTY TO FINISH TYPING.

005304
001376
005304
001376

N=o38IRIRER

104401
01014

SEQ 0082

CMNSTART

;JUMP TO COMMON START

(W,
7 N

E 7
MACRO v03.01 11-APR-80 13:58:55 PAGE 8-3

- I

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CZRMPAD RMOS’3/2 DSKLS TST 1
STANDALONE INPUT ROUTINES

MACRO v03.01

SEQ 0083

060050

177777

INC
BEQ

RDCHR
MOV
TYPE

000131

123727
001427
104401
000752

PC,STKINT

sINITIALIZE CONSOLE

#=1
3

;FIRST TIME THRU HERE ?
SYES !!

001176

000116

;MAINTAIN PREVIOUS PARAMETERS ?

(SP)+,$TMP1

*GET RESPONSE
:ECHO RESPONSE

cMPB

$TMPI.&'Y

:YES RESPONSE ?

TYPE
JMP

,S$CRLF
CMNSTART

*CR-LF
:KEEP PREVIOUS PARAMETERS

CMPB

STMP1.#'N

:NO RESPONSE ?

TYPE

,CNSLOS

:NO,

BNE

28:

,CNSLOO

BEQ

B8R

sTTMMP]

*NO!!

*YES, GET NEW PARAMETERS

TYPE

*TRY AGAIN

ILLEGAL

INPUT

062150
001176

104401

égse IF OPERATOR WANTS HELP TEXT
TYPE
RDCHR

MOV

000131

123727

001176

000116

123727

001176
001176

012637
123727

123727

ONE :
STANDAL
JSR

TYPE

SRR SRURSRIER

NIZIR

004737

STANDALONE INPUT ROUTINES

%gee IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

3855 §§§§
88 §gggEe B gesess
S

B
b
b
b
b
b o
b
-d

g 233 EREEREEER 52

.SBTTL

N
FRRINISSELEE R GRS E8RYURY
Wik 2EVR XRR N
W AT VNN
W= OV~
NS
-

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

TYPE

062631
4%-

(SP)+,$TMP1

,$TMP]

(MPB
BEQ
CMPB
BEQ

$TMP1.#'Y
4$
STMP1.4'N
5$

TYPE

103712

,MSHELP

TYPE

CNSLO8

LHELP

;WANT HELP ?
*GET RESPONSE

:SAVE AND ECHO RESPONSE

;WAS IT A YES RESPONSE ?
*YES
“WAS IT A NO RESPONSE ?
SYES

:NO,

TYPE

*TRY AGAIN

ILLEGAL

INPUT®

*YES = TYPE HELP TEXT

éiEE IF USER WANTS TO CHANGE UNIBUS ADDRESS

001217
062201

001176
001176
001176

000131

001176

000116

062631

TYPE
TYPE
RDCHR
MOV

TYPE

,$CRLF
.UBUSQST
(SP)+,$TMP1

.$TTMP]

(MPB

$TMPI. 4'Y

CMPB

STMP1.4'N

BEQ

TYPE
BR

128

CNSL.08
§8+4

:CR-LF
*WANT TO CHANGE ADDRESS ?
*GET RESPONSE
*SAVE AND ECHO RESPONSE

;WAS IT A YES RESPONSE ?
SYES

*WAS IT A NO RESPONSE ?

SYES

:NO, TYPE ' ILLEGAL INPUT °
*TRY AGAIN

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

062267
001276

TYPE

MOV

TYPOC

CNSLO1

$BASE
, - (SP)

s TYPE CURRENT BUS ADDRESS

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

STANDALONE INPUT ROUTINES

57 006314
58
20

MACRO v03.01

062141

000760
013737
104401
005046

113716

104403

003
000

104401

001176

062305
001176

001276

7%:
8s:

001272

feh T ERERE

SosossSss

v
v

SN0

8385

(SP)+,$TMP1

062367

062423

9s
108:

001273

;GET NEW BUS ADDRESS
s CARRIAGE RETURN ?
s YES=SKIP TO NEXT ENTRY
:eASE ADDRESS IN 1/0 PAGE ?

TYPE
CLR
MOVB

,CNSLO3
Z(SP)
SVECT1,(SP)

;GET CURRENT VECTOR ADDRESS

.BYTE
BYTE

3
0

MOV

(SP)+,$TMP

,CNSLO2

$TMP1, SBASE

;YES

:STORE NEW BUS ADDRESS

;TYPE 3 DIGITS

,QUES

108

s SUPPRESS LEADING ZEROS
'TYPE

sGET NEW VECTOR ADDRESS
:CARRIAGE RETURN?
;YES=SKIP TO NEXT ENTRY
:VECIQR ADDRESS < 1000 ?

cMP
BHI

#1000, STMP1
9s

BR
MOVB

8s
$TMP1,SVECT1

TYPE
CLR
MOVB

,CNSLOS
Z(SP)
SVECT1+1,(SP)

;GET CURRENT BR LEVEL

.BYTE
BYTE

1
0

sONLY 1 DIGIT
:SUPPRESS LEADING ZEROS

(SP)+,$TMP1
12%
$TMP1 47

;GET NEW PRIORITY
E ?
- RETURN
s CARRIAG
;YES=SKIP TO NEXT ENTRY
:bgg’% PRIORITY ?

TYPE

MOV
BEQ
cMP
BLT

TYPE

B8R

CNSLO4

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

,QUES

11$

CNSLO6

ASL
ASL
ASL

$TMP1
$TMP1
$TMP1

ASL
MOVB

$TMP1
$TMP1,SVECT1+1

ASL

001273

6%+4

MOV

RDOCT

118:

ASR
ASR
ASR
ASR
ASR
TYPOS

000007

:TypE

:TYPE WARNING MESSAGE
s TRY AGAIN

TYPE

001272

SEQ 0084

8s
#160000, $TMP1
7%

BEQ

001176

BEQ
P
BLOS

TYPE
RDOCT

001176

GRS BRURIRER2CER
YRR RS 28 BB IR RRRT 2SI

MOV

TYPOS

062141

001176

,QUES

TYPE

062347

001000

TYPE

RDOCT

001176
160000

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

sYES!!®
:TYPE WARNING MESSAGE

;RETRY
;STORE NEW VECTOR ADDRESS

*TYPE WARNING MESSAGE
:TRY AGAIN

;STORE NEW PRIORITY

$TMP1

i-%ALocue TO INPUT DEVICE NUMBERS

INC

#-1

TYPE

,CNSLO7

BNE

13$

;FIRST TIME THRU ?
;BR
IF NO
; TYPE INPUT INSTRUCTIONS
—

CZRMPAD RMO5/3/2 DSKLS TST 1

CZRMPAD RM0S5/3/2 DSKLS TST 1

STANDALONE INPUT ROUTINES

114 006560
115 006564
116 006570
117 006574
118 006576
119 006602
120 006610
121 006612
122 006616
123 006624
124
125 006630
126 006636
127 006640
128 006644
129 006652
130 006654
131 006662
132 006664
133
134 006666
135 006670
136 006674
137 006702
138 006704
139 006710
140 006714
141 006722
142 006724
143 006732
144 006734
145 006740
146
147 006742
148 006746
149 006752
150 006760
151 006766

152 006770
153 006774
154

MACRO v03.01

001217
001300

TYPE

062653

001176
001176

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

*CLEAR DEVICE MAP
:TYPE *DRIVE(S): '

(SP)+,$TMP1

:GET RESPONSE

STMP1.#'A
15%

012737
000137

001300

#377,$DEVM

023727
001436

000015

023727
002430
023727
003427
000423

000060

104401

156137
122737
101337
104401
000137

LALL

:YES, TYPE "ALL'' AND GO

XS12Z

:AUTO SIZE.

*SET DEVICE MAP FOR ALL DRIVES

$TMP1,#CR

:CARRIAGE RETURN ?

$TMP1
$TMP1,4'0

+ECHO RESPONSE
NUMBER < 0 ?

17%

*YES

*YES
*NUMBER > 7 ?
:NO
:ILLEGAL INPUT

(SP)+,$TMP1

:GET RESPONSE

000060

198
,COMMA
$TMP1
$TMP1,#°0

*YES
STYPE *, °
*ECHO RESPONSE
*NUMBER < 0 ?

000067

STMP1 47

16%:

000015

$TMP1 . #CR

17%:

013701
042701

:IS INPUT “ATM 2
:NO

17%
$TMP1 .47
18%
178

000067

104411

012637
023727

:CR=LF

$DEVM
.MSDRVS

000101

15%:

SEQ 0085

18%:

17%

SYES

18%

:NO

LCNSLO8

148

$TMP1,R1

#-C7.R1

ATNTBL (R1) , SDEVM

001300
001300
19%:

:CARRIAGE RETURN ?

NUMBER > 7 ?

*TYPE ' ?ILLEGAL INPUT
*RETRY

:R1 = DRIVE NUMBER

#377.$DEVM

:DONE ?

LSCRLF

“CR=-LF

16%

XSiz

:SET DEVICE IN MAP

;NO

*GO SIZE DEVICES

CZRMPAQ RMOS5/3/2 DSKLS TST 1

STANDALONE INPUT ROUTINES

MACRO v03.01 11-APR-80 13:58:55 PAGE 10

SEQ 0086

;ASSEMBLE TEST QUE FROM DEVICE MAP

2
3

CMNSTART

MOV

6
7
8

;

1 007030

116361

063052

000002

2%:

5
6
7
8
9

R1,TSTQUE
#1,R2

INITIALIZE ENTRY POINTER
sR2 = DEVICE POINTER

gég

gg.RO

IS THIS DEVICE IN MAP ?

R3,(R1)

YES = ENTER DEVICE NUMBER IN QUE

#2,R1

'ADVANCE ENTRY POINTER

DM ALL DEVICES
?

MOV

000001

21 007056

004737

054760

00
24 007066

104401

007074

ASL

ADD

TSTB

CLR

JSR

005737

000042

007120

123727

001242

000001

007130

023&2)7

001154

000176

007144

000403
112737

001150

3%
R3

;YES
ADVANCE DEVICE NUMBFR

JENTER NEXT DEVICE

(R1)

:TERHINATE TEST QUE

PC,SIZCLK

sSEE IF CLOCK PRESENT

sYES = CLOCK IS PRESENT

,65%

;. TYPE ASCIZ STRING

649

HALT
BR

.SBTTL

GET VALUE FOR SOF TWARE SUITCH REGISTER

.ASCIZ

TST

<CRLF>/PROG HLT/

;:GET OVER THE ASCIZ

;PROGRAM HALT !!

ARE WE RUNNING UNDER XXDP/ACT?

BNE
CMPB
BEQ
CMP
BNE

66%
SENV. 41
66%
SWR,#SWREG
67%
678

..GET SOFT-S\R SETTINGS

gg::

MOVB

#1,8AUTOB

2:SET AUTO-MODE INDICATOR

READY:

NOP

$DEVM
2%

sANY DRIVES IN MAP ?
;BR IF YES

g;sm

000001

;ADVANCE DEVICE POINTER

él.'gSS:

34 007

" BR

EMT
TYPE

007112

3 = DEVICE NUMBER

ATNTBL(R3),1(R‘I) ENTER ATTENTION BIT IN QUE

;SIZE FOR CLOCK

MOvVB
BEQ
INC

3%:

;RO
= DEVICE MAP

R1 ADDRESS OF FIRST ENTRY IN QUE

MOV
MOV

CLR

1$:

$DEVM,RO

#TSTQUE+2,R1

;g 007174

000137

053636

1%:

37 007200
38 007204
39 007210

105037

001116

2%:

004737

060050
000300

T1STB
BNE

..BRANCH IF YES
ARE WE RUNNING UNDER APT?
BRANCH IF YES
..SOFTHARE SUITCH REG SELECTED?
JBRANCH IF

JREADY TO START TEST

TST

JMP

$EOP

RETlRN CONTROL TO MONITOR

CLRB
CLR

$iSTNM
STIMES

JRESET TEST NUMBER
JINITIALIZE NUMBER OF ITERATIONS

#PR6,~(SP)
#648,-(SP)

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

BNE
JMP

JSR

MOV
MOV
RTI

1%
START

PC,STKINT

sANY MONITOR PRESENT ?

BR IF
YES
;JUMP TO START

JINITIALIZE TTY

::POP NEW PC AND PS

007226

41 007226

45 007234

117737

012737

00100
012737

172230

002000
001276
000040
172202
000026
177770
000007
011000

001234

001330

64%:

MOVB

;LOAD UNIT NUMBER

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

MOV

#TAG4 ,LSTRK

MOV

#CLR,RMCS2(R0)

:CLEAR MASSBUS

#177770,R2

s SAVE DRIVE TYPE BITS

MOV

000010
000010

$SBASE ,RO

ASSUE LAST TRACK FOR RM02/3
=

;RO
_= UNIBUS ADDRESS

MOvB
MOV

ATSTAUE,RMCS2 (ROS
RMDT (RO) ,R2
:GET

cMP

#7 .R2

8IC

001330

oTSTQUE ,SUNIT

SEQ 0087

BNE
MOV

SELECT DEVICE UNDER TEST
RMDT

;1S IT AN RMOS5
?

3%
:NO, MUST BE AN RMO2 OR RMO3
#TA16!TA2,LSTRK ;YES--SET LAST TRACK = 18.

—

-4

CZRMPAD RMO5/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 10-1
GET VALUE FOR SOF TWARE SWITCH REGISTER

\nbWN—'BOQ\IOU\J\U#N—'OOQNOUU\WN—I
26

SEQ 0088
.SBTTL

;REGISTER ASSIGNMENTS

‘RO
:R1

‘R2.R3
*R4,RS
‘R6
7

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

s STORAGE ASSIGNMENTS

*STMPO-STMP4

:SGDDAT, SBDDAT
:$GDADR, $BDADR

*$TSTN
JSUNIT

JRGINBF

*RGOTBF

TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES
EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEQUT
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

—

K 7
MACRO v03.01 11-APR-80 13:58:55 PAGE 11

- I

CZRMPAO RMO5/3/2 DSKLS TST 1

TRANSFER TEST

MACRO v03.01 11-APR-80 13:58:55 PAGE 12

MR AR AR A AR A A AR AR AN

;*TEST 1

SEQ 0089

ARAN AARR
AR AR AR
AAAA
AR AR AR AR
A
n

TRANSFER TEST

::'t"t"lt""'.fi't'*.t"'t"t' ARAARAAA A AR

TST1:

SCOPE
NOP

MOV

012737

001226

012702
‘

001142

001140
001140
001136

b cocd e

3 VONOWVSWN=O

001142

A AR

AR AR AR

:SCOPE CALL
#STACK,SP

;LOAD THE STACK POINTER

MOV
MOV
MOV

$BASE ,RO
TSTQUE ,R1
#1,8TESTN

;RO = UNIBUS ADDRESS
sR1_= POINTER TO DEVICE
;sSET TEST NUMBER IN APT MAIL BOX

MOV

#0,R2

;R2 = REGISTER INDEX

i((%EAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET

JSR

PC,CNTCLR

BIT

#NED
, SBDDAT

BIC
BIS
MOV

ADD

#~CUNTM
, SGDDAT
SK
#IR,$GDDAT
RO, $8DADR
#RMCS2, SBDADR

608

MOV
BEQ
MOVB

EMT

RMCS2(RO) , $8DDAT

;GO CLEAR CONTROLLER
;STORE RMCS2 AT $BDDAT

208
(R1),$GDDAT

;READ THE REGISTER WHOSE INDEX I S IN R2 AND EXIT TEST IF THE READ

53255 NOT SET ‘NED'* ERROR

000010
001142

001142

001140
001140
001136

MOV
ADD
MOV
BIT
BEQ
JSR

MOV

BIT

BEQ

MOVB

RO.R3
R2.R3
(R3) R4
#NED .RMCS2 (RO)
70$

JREAD REGISTER
;IS "NED'' SET??
JNO!!

PC.,CNTCLR

;GO CLEAR CONTROLLER

RMCS2(RO) , $8DDAT

:STORE RMCS2 AT $BDDAT

#NED
, SBDDAT
308

(R1),$GDDAT

BIC
BIS
MOV
ADD

#~CUNTMS
, SGDDAT
K
#IR,$GDDAT
RO, $8DADR
#RMCS2, SBDADR

608

EMT

;R3 = REGISTER ADDRESS

;WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE

sggss NOT SET

000010

MOV
BIT
BEQ

'NED'' ERROR

#0, (R3)
#NED ,RMCS2 (RO)
70$

;WRITE REGISTER
;1S "NED'* SET??
.

NO!!

;COULD NOT READ OR WRITE THE REG ISTER WITHOUT SETING ‘NED'' ERROR =

—3

CZRMPAQ RMOS5/3/2 DSKLS ST 1

;ADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT
4G¥A1LABLE DEVICE REGISTER

000002
000002

000010

sgts)T

013737

001276

98 007612

000137

053600

#RMAS ,R2

CMP

#R/MDB ,R2

CMP
BHIS

#RMEC2 ,R2
108

BEQ

000046

67 007602

CMP

BEQ

000022
022702
103257

#RMCS2 ,R2

BEQ

000016

62 007574
63 007600

ADD
CMP
BEQ
CMP
BEQ
CMP

001136

60$:

71 007616
72

#2,R2
#RMUC ,R2
408

#RMBA ,R2
408

:YES - TRY NEXT REGISTER

408

:YES = TRY MDTHER REGISTER

408

:YES - TRY AM)THER REGISTER

408

1S THIS RMAS
?
:1S THIS RMDB??

:YES - TRY ANOTHER REGISTER

:IS THIS A LEGAL REGISTER
:YES = TRY THIS REGISTER

Efi\{

3BASE . $BDADR

;STORE BASE ADDRESS

JMP

$EOSP

;GO SELECT NEXT DEVICE

.':'tfit.'*.'.'i....fi....'t""'fi.fi'..'t'....flfi..fi'.""t"'ifi"'."
J*TEST 2
CTOD TEST
TST2:

001100
001276
001462
000002

MOV

001226

000001

000000
000006
000034
000032

042737

177701

;SCOPE CALL

#STACK,SP

$BASE RO

TSTQUE ,R1
#2,8TESTN

PC,CNTCLR

;LOAD THE STACK POINTER

*RO
= UNIBUS ADDRESS

R1 = POINTER TO DEVICE

..SET TEST NUMBER IN APT MAIL BOX

;GO CLEAR CONTROLLER

;WRITE ONES IN REMOTE REGISTERS

MOV
MOV
MOV
MOV

#ILF76 ,RMCS1(RO)
:LOAD RMCS1
#-1,RMDA(RO)
;LOAD RMDA
:cvunsx RMDC (RO)
:LOAD RMDC
#CXNUOF , RMOF (RO)
*LOAD RMOF

;READ REMOTE REGISTERS TWICE
108
MOV
#1,R2

012702

MOV
MOV

JSR

8888

012760

000076
177777
001777
016200

I3 323 223222228233 2322232222222321% 85

&%PE

MOV

055614

92
93 007740

:1S THIS RMCS5??

"NONEXISTENT DEVICE' ERROR FOR EVERY REMOTE REGISTER ADDRESS

22A i i s il

83
84 007700
85 007704
007704

:YES = TRY AEXT REGISTER

:1S THIS RMBA??

708
:

3‘1? 007672

sADVANCE TO NEXT REGISTER
;1S THIS RMWC??

MOV
* MOV
MOV
MOV

RMCS1(RO) ,RMCS11
;STORE RMCS1 IN INPUT BUFFER
RMDA (RO),RMDAI
sSTORE RMDA IN INPUT BUFFER
RMDC (RO) . RMDCI sSTORE RMDC IN INPUT BUFFER
RMOF (RO) , RMOF
I
:STORE RMOF IN INPUT BUFFER

BPL

108

DEC

001332

:SEE IF ANY ONE BITS CAME BACK
BIC
#*CILF76 ,RMCS1] ;IS RMCS1 0??

SEQ 0090

TRANSFER TEST

M7
MACRO V03.01 11-APR-80 13:58:55 PAGE 12-1

- ]

CZRMPAO RMOS5/3/2 DSKLS TST 1

CZRMPAQ RMO5/3/2 DSKLS TST 1

CTOD

TEST

N 7
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-2

BNE

176000

001366

161577

001364

“NO!'!

BIC

#XNUDC ,RMDC I

;1S RMDC 0??

BIC

#XNUOF
, RMOF I

“IS RMOF 0 22

BNE

;1S RMDA 0??

NO!'!

208

JNO!!

20%:
ML AR

t4713:

81 0002

000004
000249

010014
010020

013701
012737

001100
001276
001462
000003

004737

055614

012760
012760
012760

000076
177777
177777

004737

055614

016037
016037
016037

000900
000014
000042

052737
052737
022737
101
022737
1005
022737
001001

177701

133
134 010146
135 010150
136
137

208

RMDAI

104004

SCOPE
NOP

ittt

itiisiiisisds]

A A AR AR

AN AR

AR A AR AR

:SCOPE CALL

MOV
MOV

#STACK,SP
$BASE RO

MOV

#3,$TESTN

TSTQUE R1

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

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV

001226

MASSBUS INITIALIZE TEST

SRR A A AR

121 010074
122
123
126 010102
125 010110
126 010116
127 010124
128 010126
129 010134
130 010136
131 010144
132

:NO!!

TST

BNE

tTEST 3

107
108 010026
109
110
111 010032
112 010040
113 010046
114
115
116 010054
117
118
119 010060
120 010066

208

2 CANNOT gg?o/mlgi ANY ONE FROM REMOTE REGISTER

3535723

001340

SEQ 0091

::SET TEST NUMBER IN APT MAIL BOX

JWRITE ONES IN SELECTED REGISTERS

MOV

MOV
MOV

#ILF76 ,RMCS1(R0O)
#-1,RMER1(R0O)
#-1,RMER2(R0O)

JINITIALIZE MASSBUS WITH A CLEAR

JSR

PC,CNTCLR

:LOAD RMCS1
;LOAD RMER1
:LOAD RMERZ2

;GO CLEAR CONTROLLER

JREAD THE REGISTERS THAT WERE WRITTEN

MOV

RMCS1(RO) ,RMCS11]

MOV

RMERZ2(RO) ,RMER2]

MOV

RMER1 (RO) ,RMER11]

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

;SEE IF a?g REGISTER BITS WERE CLEARED
#*CILF76,RMCS1] ;SET ANY BIT NOT WRITTEN
BIS
#XNUER2 ,RMER2]

CMP
BNE
CMP
BNE
CMP
BNE

177777

#-1,RMCS11
108
#-1,RMER11]
108
#-1,RMER2]
108

Ng;ZEROS IN RM(CS1??
~EWZEROS IN RMER]??

s ANY ZEROS IN RMER2??

JNONE OF THE BITS WERE CLEARED
EMT

108:
AR

AR AR AR AR A AR

'TEST 4
A

A AR A AR AN

AN AR AR AR

AR R AR R RN RR R,

CLEAR STUCK ACTIVE TEST
A A

AR AR AR

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

AR AR

AR RS

CZRMPAQ RMO5/3/2 DSKLS TST 1
T4
CLEAR STUCK ACTIVE TEST

MACRO v03.01 11-APR-80 13:58:55 PAGE8 13-3
%gPE

001226

i e

d e

BRIFRRURN2EEHIGEREREESY

TST4:

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

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

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV
MOV
MOV

D e e e

OOOSOOO

MOV
MOV
MOV
BIC
BNE
BIC
BNE
BIT
BNE

3
o

#-1,RMER1(RO)
#-1.RMER2(RO)
#DMD ,RMMR1(RO)

;LOAD RMER1
:LOAD RMER2
:LOAD RMMR1

;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON

10254

(=lelele]

e e e i
i
D e

MOV
MOV
MOV
MOV

;WRITE ONES IN TEST REGISTERS

EMT

10%:

d e d

:SCOPE CALL

RMER1 (RO)
, RMER1 ]
RMER2 (RO) . RMER2]
RMMRT (RO) .RMMR1]

#UNS ,RMERT

:STORE RMER1 IN INPUT BUFFER
*STORE RMER2 IN INPUT BUFFER
*STORE RMMR1 IN INPUT BUFFER

:DONT ACCEPT UNSAFE

108
*BRANCH IF ANY OTHER BITS ON
#SKI'DVC,RMER2]I :DONT ACCEPT SKI OR DVC
108
*BRANCH IF ANY OTHER BITS ON
#DMD , RMMR1 |
*BRANCH IF DMD IS ON
108
26

::Q'ttt..ttfitt*ttttttt""'t'tttt'tfitt"fiit.t"t't"t'tt'il.ttt"

S*TEST S

TRISTATE TRANSFER TEST

:.'tt'tttfi"ttttl"tt't"t'tttt't'tttt't't'tt.ttit"ttt't.'t.'tttt

TSTS:

-a-A—ha-a-a-a_a-a-n-a.a-hd.a-aara

JARNANIITEIE
SRR LS

001100
001276
001462

055614
000076
177777
177777
177777
177777

001226

zggpe

:SCOPE CALL

MOV
MOV
MOV
MOV

#STACK, SP
$BASE ,R0O
TSTQUE ,R1
#5,8TESTN

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

CLR
JSR

R2
PC,CNTCLR

:CLEAR ERROR FLAGS
*GO CLEAR CONTROLLER

;WRITE ONES IN SELECTED REGISTERS

MOV
MOV
MOV
MOV
MOV

#ILF76,RMCS1(RO)
;LOAD RMCS1
#-1,RMDA(RO)
;LOAD RMDA
#-1.RMER1(R0)
:LOAD RMER1
#-1.RMOF (RO)
:LOAD RMOF
#-1.RMER2(R0)
:LOAD RMER2

;WRITE ZEROS IN SELECTED REGISTERS

MOV
MOV
MOV
MOV
MOV
MOV

JRMCST(RO)
#0 . RMDA (RO)
#0.RMER1(R0)
#0 . RMOF (RO)
#0_RMDC (RO)
#0.RMER2(R0)

;LOAD RMCS1
*LOAD RMDA
:LOAD RMER?
:LOAD RMOF
*LOAD RMDC
:LOAD RMER2

CZRMPAQ RMOS5/3/2 DSKLS TST 1

TRISTATE TRANSFER TEST

178
179
180 010436
181 010444
18% 010452
183 010460
184 010466
185 010474
186
187
188 010502
189 010506
190 010514
191 010522
192 010530
193 010536
194 010542
195 010546
196 010552
197 010556
198 010562
199 010566
200 010572
201 010576

202 010602
203 010606
204 010612
205 010616
206
207
208 010620
209 010624
210 010630
211 010632
212 010636
010636
213
214
215
216 010642
217 010650
218 010656
519
221 010664
222 010672
223 010700
224 010706
225 010714
226 010722
227
228
229 010730
230 010736
231 010744
232 010752
233 010760

MACRO v03.01 11-APR-80 13:58:55 PAGEC 13-4
001332
001340
001346
001364
001366
001374

016037
016037

SEQ 0093

sREAD BACK ALL REGISTERS
MOV

MOV
MOV
MOV
MOV
MOV

RMCS1(RO) ,RMCS11]
;STORE RMCS1 IN INPUT BUFFER
RMDA(RO) ,RMDAI ;STORE RMDA IN INPUT BUFFER
RMER1 (ROJ , RMER1]
:STORE RMER1 IN INPUT BUFFER
RMOF
(RO) ,RMOF] :;STORE RMOF IN INPUT BUFFER
RMDC (RO) ,RMDCI :STORE RMDC IN INPUT BUFFER
RMER2 (ROS ,RMER2]
:STORE RMER2 IN INPUT BUFFER

;CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ

MOV
BIS
BIS
BIS
BIS
coM
coM
coM
coM
coM
coM
BIC

001332
001364
001366
001374

BIC
BIC
BIC
BIC
BIC
BEQ

010237
005037
104005
052702

000001

004737

055614

#-1,R2
;ACCUMULATE ZEROS IN R2
#~CILF76 RMCS1I :SET ALL BITS NOT WRITTEN
#XNUOF
, RMOF |
#XNUDC .RMDCI
#XNUER2 ,RMER2]
RMCS1]
;COMPLEMENT REGISTER CONTENTS
RMDA]
RMER1]
RMOF]
RMDC]
RMER2]
RMCSTI,R2

RMDAI ,R2
RMER11,R2
RMOF
I ,R2
RMDCI .R2
RMER2] ,R2
108

;ACCUMULATE ALL ZERO BITS

;BRANCH IF EACH BIT IS ZERO

;ONE OR MORE BIT POSITIONS ARE NOT ZERO

001142
001140

MOV

R2,$BDDAT
gr,ooAr

:LOAD EXPECTED RESULT

BIS

#BITO,R2

;SET ERROR FLAG

JSR

PC,CNTCLR

:GO CLEAR CONTROLLER

gk#

000006
000032
000034

176210

000000
000006
000032
000034
000014
000042

000000
000006
000032
000034
000014

001332
001340
001364
001306
001346

:SAVE RESULT FOR TYPE

;PRESET SELECTED REGISTERS TO ZEROS
: (ASSUME RMCS1, RMER1, RMER2 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
MOV
MOV
MOV
MOV
MOV

#ILF76,RMCS1(RO)
:LOAD RMCS1
#-1,RMDA(RO)
:LOAD RMDA
#* CXNUOF , RMOF (RO
:LOAD RMOF
#* CXNUDC . RMDC (RO)
*LOAD RMDC
#-1,RMERT(RO)
;LOAD RMER1
#~CXNUER2, RMER2 (RO)
;LOAD RMER2

;READ ALL REGISTERS

MOV
MOV
MOV
MOV
MOV

RMCS1(RO) ,RMCS11]
;STORE RMCS1 IN INPUT BUFFER
RMDA(RO) ,RMDAI ;STORE RMDA IN INPUT BUFFER
RMOF
(RO) .RMOFI :STORE RMOF IN INPUT BUFFER
RMDC (RO) .RMDCI :STORE RMDC IN INPUT BUFFER
RMER1(RO) ,RMER1]
:STORE RMER1 IN INPUT BUFFER

%%g 010766

239 011010
240 011016
261 011024
262 011026
263 011032
264 011036
265 011042
266 011046
247 011052
248 011056
249 011062

530

252 011064
253 011070
254 011076
255 011100
256 011104
257 011104
258 011106
259 011110
260 011114
011114

261
262
263 011120
264 011126

265 011130
266 011134
267 011120
268
269
270 011144
271 011152
272 011160
273 011166
27% 011174

016037

042737
042737
005002
053702
053702
053702
053702
053702
053702
022702
001410

010237
012737
104006
052702

000042

001374

176000
001567

001332
001364
001366
001374

001142
177777

004737

055614

010260
010260
010260
010260
010260

000006
000032
000034
000014
000042

016037
016037
016037
016037

000006
000032
000034
000014
000042

282 011220
283 011222
284 011226
285 011232
286 011234
287 011236
288 011242
289 011244

005003
012704
013705
050503
005105
040504
013705
042705

050503
005105
042705
040504
013705

;STORE RMERZ IN INPUT BUFFER

BIC
BIC
BIC
BIC

#*CILF76 ,RMCS1]
#XNUOF
, RMOF 1
#XNUDC ,RMDC

#XNUER2 ,RMER2]

BIS

RMCS11,R2

BIS
BIS
BIS
BIS
BIS

RMDAI ,R2
RMOF
I .R2
RMDCI .R2
RMER11,R2
RMER2] .R2

BEQ

208

#-1.R2

;CLEAR ALL BITS NOT WRITTEN

;ACCUMULATE ONES IN R2

;ACCUMULATE ALL ONE BITS

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

;ONE OR MORE BIT POSITIONS ARE NOT ONE

MOV
Ev«nflo'\T/

001140
'

000001

RMER2 (RO) ,RMER2]

el
S

BIS

R2,$BDDAT
z—1.scooAr
#BIT1,R2

:SAVE RESULT FOR TYPE
*EXPECTED RESULT

:SET ERROR FLAG

BNE
MOV

308
#1.R2

:ANY ERRORS DETECTED ??

JoR

PC,CNTCLR

;GO CLEAR CONTROLLER

*YES - DONT DO BIT TEST
*R2=BIT POSITION

;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS

MOV

R2,RMDA (RO)

MOV

R2 .RMDC (RO)
R2 .RMER1(RO)
R2.RMER2(R0)

MOV
MOV

MOV

001340
001364
001366
001346
001374

R2 ,RMOF (RO)

:LOAD RMDA

:LOAD RMOF

;LOAD RMDC
:LOAD RMER1
:LOAD RMER?

;READ BACK THE REGISTERS

MOV
MOV
MOV
MOV
MOV

RMDA(RO) ,RMDAI ;STORE RMDA IN INPUT BUFFER
RMOF (RO) _RMOFJ :STORE RMOF IN INPUT BUFFER
RMDC (RO) ,RMDCI :STORE RMDC IN INPUT BUFFER
RMER1 (ROJ , RMER1]
;STORE RMER1 IN INPUT BUFFER
RMER2 (RO) _RMER2]
*STORE RMER2 IN INPUT BUFFER

;CHECK REGISTER CONTENTS FOR CORRECT PATTERN
177777
001340

001364
161577
161577
001366

CLR
MOV
MOV
BIS
CoM
BIC
MOV
BIC
BIS

CoM

BIC
BIC

MOV

R3
#-1,Ré4
RMDA] ,RS
RS,.R3
RS
RS,R4
RMOF I ,RS

#XNUOF ,RS
RS,R3

:R3=ACCUMULATED ONE BIT
*R4=ACCUMULATED ZERO BITS
:GET ANY GOOD BITS FROM RMDA

:GET GOOD BITS FROM RMOF

#XNUOF ,RS
RS,R4

RMDCI,RS

;GET GOOD BITS FROM RMDC

—_—

SEQ 0094

sCHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ

CMP

000002

276
277 011202
278 011204
279 011210
280 011214
281 011216

MOV

001332
001340
001364
001
001346
001374
177777

005702
001126
012702

016037

D 8
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-5

-t ]

CZRMPAQ RMO5/3/2 DSKLS TST 1
15
TRISTATE TRANSFER TEST

%RFPAO RMO5/3/2 DSKLS TST 1
TRISTATE TRANSFER TEST

MACRO v03.01

290 011250
291 011254

042705
050503

176000

BIC
BIS

#XNUDC
, RS
RS,R3

293 011260
29 011264

042705
040504

176000

BIC
BIC

#XNUDC ,RS
RS,Ré4

296 011272

050503

292 011256 005105

295 011266 013705
297 011274

298 011276

299 011300 013705
300 011304

301 011310

042705

050503

302 011312 005105

303 011314
.304 011320

305 011322
306 011324

COM

001346

042705
040504

MOV

RMER11,RS

COM

001567

RMER2I ,RS

BIS

RS,R3

BIC

#XNUER2 ,RS
RS,R4&

BIC

RS5,R3

308 011330

040204

BIC

310 011334
311 011336

020302
001406

309 011332

040503

010237

314 011350

104007

313 011344

g}g 011352

317
318 011354
319 011354
320 011356

R2.RS
RS

:RESET ALL ONES IN R3 EXCEPT
“FOR THE TEST BIT

R2.R&4

;RESET TEST BIT IN R4

CMP
BEQ

R3.R2
26$

*IS PATTERN OK??
SYES!!

MOV

R3.$BDDAT

050403

312 011340

010337

BIS

001140

321 011360 000137

% 011364

R4 .R3

MOV

001142

:COMBINE ACCUMULATED 1°'S + 0'S

R2,$GDDAT

EMT

000404

006302
001402

BIC
BIC

MOV
COM

;GET GOOD BITS FROM RMER2

#XNUER2 ,RS

COM

010205
005105

307 011326

RS R4

MOV

001567

;GET GOOD BITS FROM RMER1

RS.R3

BIC

001374

SEQ 0095

BIS

005105
040504

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

308

sSAVE TEST PATTERN

*SAVE RESULT
:SKIP TO NEXT

;ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST
268
:
ASL
R2
;SHIFT THE BIT
BEQ
308
SEXIT IF DONE

011114

JMP

308 :

329

25%

";ttfitttttttt'ttttttttt"ttttttttttttttttt.fitttttttttttttttt'tt't

S*TEST 6

- %

:*NOTE: REGISTER SELECT 16 IS TESTED BY THE "‘ILR'* TEST
- %

011364
011364
011366

011370
011374
011400
- 011404
331

§§§

:'_'ttttttttttttttttttttttttt'ttttttttttttttttttt.t'tttttttt'tttt"

7576:

000240

012706 001100
013700 001276
013701 001462
012737 000006

SCOPE

NOP

MOV
MOV
MOV
MOV

001226

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

;THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR

*EACH DEVICE REGISTER

;

NAME

REG SEL

337

RMCS1

00000

339

RMER1

00010

ggg

338

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

RMDS

(16.8,4.,2.1)

00001

SEQ 0096

_——

[ S
—y

e T

)

;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. THEN THE REGISTER
;THAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE
;BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE,
;RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0,
sTHE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1
;WILL NOT BE 0O WHEN READ BACK.
005002

012703

177777

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

055614
000014
000034
000024
000036
000014
000034
001346

367 011420
368 011426
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

004737
010260
010260
010260
010360
010360
010360

055614
000006
000032
000042
000016
000030
000040

391 011546

016037

000032

390 011540

392 011556
393 011562
394 011566
395 011570
396 011576

176000
001366

CLR
MOV
sTEST REG SEL

JSR

#-1,R3
1

-;R2= ZEROS SOURCE

FOR S-A-0

PC,CNTCLR

R2 ,RMER1(RO)

001346
001366
001366

;R3= ONES

SOURCE

;GO CLEAR CONTROLLER

;LOAD RMER1

R2 .RMDC (RO)

sLOAD RMDC

R3,RMHR (RO)

:LOAD RMHR

RMDC(RO) ,RMDCI
R3,RMER1I
108

;STORE RMDC IN INPUT BUFFER

R3.RMMR1(RO)
RMER1 (RO) ,RMER1]

;LOAD RMMR1
;STORE RMER1

IN INPUT BUFFER

#XNUDC ,RMDC

R3,RMDCI
108
10

FOR S-A-1

016037

016037
020337
001015
052737
020337

000006

000042
001340

161577
001364

PC,CNTCLR

;GO CLEAR CONTROLLER

R2,RMOF (RO)

:LOAD RMOF

R2 .RMDA(RO)

11412

364 011414

888

F 8
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-7

—'—'-‘—‘008 ——
_nc_ng_no_s
——a O
§ —_—

CZRMPAO RMOS5/3/2 DSKLS TST 1

RZ.RMER2 (RO)
R3.RMAS (RO)
R3.,RMSN(RO)
R3,RMMR2 (RO)

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

RMER2 (ROJ , RMER21]
ggiwu

001364

#XNUOF
, RMOF |

R3,RMOF
|

:LOAD RMDA

:LOAD RMER?2
;LOAD RMAS
;LOAD RMSN
;LOAD RMMR?

:STORE RMDA IN INPUT BUFFER
:STORE RMOF IN INPUT BUFFER

;STORE RMER2 IN INPUT BUFFER

397 011602

398 011604

001007

052737

399 011612

020337

28} 011620

104011

400 011616

001001

001567

001374

405 011622

004737

000006
000032
000042
000020
000036
000046
000006

414 011672
415 011700
416 011704

016037
020337
001015

000042
001340

020337
001007

001364

418 011714
419 011720
420 011722

421 011730
422 011734

252 011736

016037

052737

020337
001001

208:

000032

001340
001364

427 011740

428 011744
429 011750
430 011754
431 011762
432 011766
433 011776

161577

001364

001567

001374

004737

020337
001007

001346

438 012024
439 012030

020337
001001

001366

443 012034

444 012034

445 012040
446 012044
447 012050
448 0120564
449 012060
450 012064
451 012070
452 012076
453 012106

208

JSR

PC,CNTCLR

MOV
MOV
MOV
MOV
MOV
MOV
MOV

R2.RMDA (RO)
R2 . RMOF (RO)
R2.RMER2(RO)
R3.RMLA(RO)
R3.RMHR (RO)
R3,RMEC2(RO)
RMDA
(RO) ,RMDAI

MOV
cMP
BNE

RMER2 (RO) ,RMER?2]
R3,RMDAI
308

CMP
BNE

R3, RMOF |
308

RMOF
(RO) ,RMOFI

;GO CLEAR CONTROLLER

:LOAD RMDA
:LOAD RMOF
:LOAD RMER2
*LOAD RMLA
*LOAD RMHR
:LOAD RMEC2
:STORE RMDA IN INPUT BUFFER

;STORE RMOF IN INPUT BUFFER

;STORE RMER2 IN INPUT BUFFER

#XNUOF
, RMOF |

BIS

#XNUER2 ,RMER2]

EMT

cMP
BNE

052737

308:

055614

435 012010
436 012014

22.? 012032

EMT

R3,RMER2]
308

:TEST REG SEL 2 FOR S-A-1

000014
000034
000076
000030
000014
000034

437 012016

208

R3,RMERZ]

BIS

104012

010260
010260
012760
010360
016037
016037

434 012002

SEQ 0097

#XNUER2 ,RMER2]

CMP

MOV

001374

425

426 011740

BIS

BNE

055614

010260
010260
010260
010360
010360
010360
016037

417 011706

:TEST REG SEL 2 FOR S=A-0

406 011626
407 011632
408 011636
409 011642
410 011646
411 011652
412 011656
413 011664

BNE

001374

403

404 011622

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

000000

001346
001366

177701

001346

176000

001366

JSR

MOV
MOV
MOV
MOV
MOV
MOV
BIS

CMP
BNE
BIS

CMP
BNE

104013

EMT

PC,CNTCLR

;GO CLEAR CONTROLLER

R2.RMERT(RO)
:LOAD RMER1
R2.RMDC (RO)
*LOAD RMDC
#ILF76,RMCS1(RO)
:LOAD RMCS1
R3,RMSN(RO)
:LOAD RMSN
RMER1(RO) ,RMER1]
:STORE RMER1 IN INPUT BUFFER
RMDC
(RO) ,RMDCI ~:STORE RMDC IN INPUT BUFFER

#~CILF76.RMERT]

R3,RMER11
408

#XNUD
, RMDC I

R3,RMDC]
408
13

sTEST REG SEL 4 FOR S-A-0

004737

010260
010260
010260
010360
010360
010360
016027
016037
016037

408

055614

000014
000032
000034
000026
000042
000044
000014
000032
000034

001346
001364
001366

JSR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

PC,CNTCLR

;GO CLEAR CONTROLLER

R2.RMERT(RO)
:LOAD RMER1
R2 . RMOF (RO)
*LOAD RMOF
R2.RMDC (RO)
*LOAD RMDC
R3.RMDT (RO)
*LOAD RMDT
R3.RMER2(RO)
:LOAD RMER2
R3.RMECT(RO)
:LOAD RMEC1
RMER1 (RO) ,RMER1]
:STORE RMER1 IN INPUT BUFFER
RMOF
(RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER
RMDC(RO) ,RMDCI :STORE RMDC IN INPUT BUFFER

-4 TM |

MACRO v03.01

[, ST

CZRMPAQ RMOS5/3/2 DSKLS TST 1
16
REGISTER SELECT TEST

CZRMPAQD RMOS5/3/2 DSKLS TST 1

4564 012112
455 012116
456 01%120
457 0 1§g
458 0121
459 012134
460 012142
461 012146
462 012150
463

020337
001015
052737
020337
001007
052737
020337
001001
104014

466 012152
467 012156
468 012162

004737
010260
010260

464
465 012152

001346

001364

176000
001366

001366

055614
000006
000042

475 012220
476 012226

052737
020337

001567
001374

489 012276
491 012304
492 012310
282 012312

495
496 012314
497 012314

BIS

CMP
BNE
BIS
CMP
BNE

R3,RMER1I
508
#XNUOF , RMOF
|

R3,RMOF
508
#XNUDC
, RMDC I
R3,RMD(I
508
14

g(r)gsr REG SEL 4 FOR S-A-1

000012
000032
000006
000042
001340

486 012256
487 012262

BNE

EMT

010360
010360
016037
016037
020337

483 012242
484 012246
485 012252

CMP

161577
001364

469 012166
470 012172
471 012176
472 012204
473 012212

478 012234
479
480
481 012236
482 012236

H 8
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-9

00100

JSR

001340
001374
001374

104015

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

PC,CNTCLR

;GO CLEAR CONTROLLER

R2.RMDA (RO)
*LOAD RMDA
R2.RMER2(R0)
:LOAD RMER2
R3.RMDS (RO)
*LOAD RMDS
R3.RMOF (RO)
*LOAD RMOF
RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
RMER2 (RO) ,RMER2]
;STORE RMER2 IN INPUT BUFFER
R3,RMDAI
60$
#XNUER2 ,RMER2]
R3,RMERZ]
608
15

36557 REG SEL 8 FOR S-A-0

004737
010260
010260
010360
010360
016037

020337
001004
020337
001001
104016

055614
000014
000006
000034
000042
000014
000006
001346

JSR

001346
001340

001340

MOV
MOV
MOV
MOV
MOV
MOV
CMP
BNE
CMP
BNE
EMT

PC,CNTCLR

;GO CLEAR CONTROLLER

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

%gsr REG SEL 8 FOR S-A-1

004737

505 0}2356
506 012364

016037

508 012400
509 012402
510 012410

001015
022737
020337

055614

JSR

000032

00004

507 012372 052737 16157%
176000
001366

001364
001366
001374
001364
001366

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIS
BNE
CMP
cMP

PC,CNTCLR

;GO CLEAR CONTROLLER

R2.RMOF (RO)
*LOAD RMOF
R2.RMDC (RO)
*LOAD RMDC
R2.RMER2(R0)
:LOAD RMER2
R3.RMDS (RO)
*LOAD RMDS
R3.RMER1(R0)
:LOAD RMER?
R3.RMDA (RO)
*LOAD RMDA
RMOF (RO) ,RMOF] :STORE RMOF IN INPUT BUFFER
RMDC (RO) .RMDCI :STORE RMDC IN INPUT BUFFER
RMER2 (ROJ , RMER2]
;STORE RMER2 IN INPUT BUFFER
#XNUOF
, RMOF |
80
#XNUDC
, RMDC I
R3,RMDCI

SEQ 0098

012414
126416
1 2424
30
12432
12434

001007

052737

020337
001001

001567

001374

#XNUER2 ,RMER2]

R3,RMERZ]

80$

104017

80%:
R

Rttt

;*TEST 7
A

000004
000240
012706
013700
013701
012737

Attt

t8717:
001100
001276
001462
000007

SEQ 0099

80%

001374

012436
012440
012444
012450
012454

222222232222232222322

DRIVE TYPE TEST
st

eIt

232232222222222223

:SCOPE CALL
#STACK,SP

$BASE ,RO

TSTQUE ,R1

001226

#7,STESTN

:LOAD THE STACK POINTER

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

522
523 012462
524 012466
525 012472
526 012474
ggg 012500

016002
022702
001437
022702
001434

000026
020024

529 012502
530 012506

022702
001431

020025

:(s):svcpmsano,nzSINGLE PORT RMOZ2 ?

022702
001426

024025

#DULPRT 'BITO.R2 -

022702

020027

:SQGPRTSBIT1!BITO.R2

sggme PORT RMOS ?

024027

#DULPRT!BIT1!BITO,R2
108

*DUAL 'PORT RMOS ?

531 012510
g%% 012514

534 012516

535 010522
536 012524
237 012530
539 012532
540 012536
541 012544
544 012564
545 012566
229 012572

001423
022702
001420

010237
012737
012737
104057
000137

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

024024

001142
020024
85??%2

108

R2,$8DDAT

001174
001176

#SNGPRT ,$TMPQ
#DULPRT ,$TMP1
RO, $8DADR
#RMDT , $BDADR

001136

053600

57
$EOSP

108:

548

4710

000004
000240

012737

000010

550 012620

004737

055614

001226

JYES !!

;GET RECIEVED DRIVE TYPE
:GET EXPECTED DRIVE TYPE

*LOAD BAD ADDRESS
;GO TO NEXT DEVICE

T22223232 3222222222222 22;

DEVICE AVAILABLE TEST
it

SCOPE

I 223222222222232222222¢%;

sSCOPE CALL
#STACK SP

;LOAD THE STACK POINTER

TSTQUE ,R1

:R1 = POI'.TER TO DEVICE

$BASE
R

606
549 012612

“DUAL 'PORT RMO3 ?

'TEST 10

012572
012572
012574

;STORE RMDT AT R2
éégGl‘.E PORT RMO3 ?

;RO = UNIBUS ADDRESS

#10,STESTN

s;SET TEST NUMBER IN APT MAIL BOX

PC,CNTCLR

;GO CLEAR CONTROLLER

-4 1

MACRC v03.01 11-APR-80 13:58:55 PAGE 12-10

[, ST

CZRMPAQ RMOS5/3/2 DSKLS TST 1

110

DEVICE AVAILABLE TEST

MACRO V03.01 11-APR=80' 13:58:55 PAGEJ 13-11
001142
001142

MOV
BIC
BNE

001140

MOV
MOV
108:

EMT

RMCS1(RO) , $BDDAT
;STORE RMCS1 AT $BDDAT
#~CDVA,$BODAT
;CLEAR ALL BUT DVA
108
:BRANCH IF DVA SET

#DVA, SGDDAT
RO, S8DADR
60

:SETUP EXPECTED
*SETUP REG ADDRESS

't"'tQ"tQtt't'Qtt""t'Q'Q'..ttttt"t.t..'t.".tttttt't't't.'

RTEST 11

HOLDING REGISTER TRANSFER TEST

..QtttQtttt'tttt'.'tt"Q't"ttt.tt't'..ttt'.'.ti'ttt.'..'t't'tt"

T$T11:

012672
012676

001226

560
561 012704
562 012710
563 012712
564 012716
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

055614
001136
000036

333',5

MOV
MOV
MOV
MOV

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

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

JSR
CLR

PC,CNTCLR
R3

;GO CLEAR CONTROLLER
*CLEAR ERROR FLAGS

MOV
ADD

001136

;SCOPE CALL

RO, $S8DADR
#RMHR
, SBDADR

*SETUP REGISTER ADDRESS

;WRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS.
:NOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN
:gfigggsgo WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS
177777
000000
000036
001142

000006
000006

MOV
MOV

001142

108

*NO!!

RMHR (RO) , SBDDAT :STORE RMHR AT S$BDDAT
$BDDAT
*ANY ERROR??

CLR

$GDDAT

EMT

BIS

000001

:LOAD RMDA
*LOAD RMDA

MOV
coM
BEQ

001140

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

#8IT0,R3

*LOAD EXPECTED

:SET ERROR FLAGS

ig};ns ZEROS THEN ONES IN RMHR ANy CHECK FOR S-A-0 BITS.

000000
177777

001142
177777
001140

000006
001142
001140
001142

000006

mov
MOV
COM
MOV
CMP

#0 ,RMDA (RO)
:LOAD RMDA
:LOAD RMDA
mmm $BDDAT sroae RMHR AT $BDDAT
$8DDA
RMHR IS COMPLEMENTED WHEN READ
#-I.SGDDAT
*SETUP EXPECTED
$GDDAT,$BDDAT :ANY ERROR??

BIS

#8IT1.R3

MOV

BEQ
EMT

000002

#-1 ,RMDA(RO)

208
62

*NO!!

:SET ERROR FLAG

5(1); NO PREVIOUS ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN.

;
012702
597 013050

012760

000001

000006

BNE
MOV

508
#1,R2

:ANY FLAGS SET??

MoV

#0,RMDA (RO)

:LOAD RMDA

“YES!!
*R2=DATA PATTERN

SEQ 0100

a0|

CZRMPAQ RM05/3/2 DSKLS TST 1

CZRMPAQ RMO5/3/2 DSKLS TST 1

TMm

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-12

HOLDING REGISTER TRANSFER TEST

000006
000036
001142
001142

001142

SEQ 0101

R2,RMDA(RQ)

:LOAD RMDA

$8DDAT
$8DDAT ,R2

sRMHR IS COMPLEMENTED
sANY ERROR??

RMHR(RO) ,$BDDAT ;STORE RMHR AT $BDDAT

001140

408

;NO!!

508

;DO NOT COLLECT ALL ERRORS

R2
308

sSHIFT TO NEXT PATTERN
sCONTINUE IF NOT DONE

gg.SGDDAT

4 0$:

ASL

sSETUP EXPECTED

5 0$:
MR

AR Rttt t

;*TEST 12
?

001100
001276
001462
000012

dddd ittt
1222222232232 222223

CONTROL STATUS #1

ettt

§T12:

ittt

SCOPE

CLR
JSR

055614

#STACK, SP

;LOAD THE STACK POINTER

TSTQUE ,R1

;R1_= POINTER TO DEVICE

sRO

;:SET TEST NUMBER IN APT MAIL BOX

;R3 = ERROR INDICATOR

PC,CNTCLR

;GO CLEAR CONTROLLER

RMCS1(RO), $8DDAT”
g;CILF 76, $BDDAT

:S-A-1 BITS

§s.

THEN WRITE ZEROS. READ AND CHECK FOR

#ILF76,RMCS1(RO)

:LOAD RMCS1
;LOAD RMCS1
RMCS1(RO) ,SBDDAT
;STORE RMCS1 AT $BDDAT

#0.RMCS1 (RO)

f‘CILF76,$BDDAT

001140
001136
000000

052703

;STORE RMCS1 AT $BDDAT

$GDDAT
RO, $BDADR
zgnc S1,$BDADR
;WRITE ONES IN RMCS1, BITS 01-05,

640 013272
641 013274
642
643
644 013300

THEN CLEAR. READ AND

:CHECK FOR S-A-1 BITS,
#ILF76 ,RMCS1(RO)
:LOAD RMCS1
PC,CNTCLR
;G0 CLEAR CONTROLLER

001140
001136
000000

000076
000000
000000
177701

= UNIBUS ADDRESS

#12,$TESTN

;WRITE ONES IN RMCS1, BITS 01-05,

000076
055614
000000
177701

22222222232222222%3

:SCOPE CALL

$BASE ,RO
001226

TRANSFER TEST

g’;flCS‘l.$BDADR

000001

BIS

#8IT0,R3

;WRITE ZEROS IN RMCS1,

108:

:SET ERROR FLAG

THEN ONES, READ AND CHECK S-A-0 BITS.

MACRO v03.01 11-APR-80 13:58:55 PAGEL 13-13

645 013300
646 013306
647 013314

104024

052703

000000
000076
000000
177701
000076
001140

§§§§§§

CZRMPAQ RMO5/3/2 DSKLS TST 1
T12
CONTROL STATUS #1 TRANSFER TEST

001136
000000

001136

000002

MOV
MOV
MOV
BIC
MOV
CMP
BEQ
MOV
ADD
EMT
BIS

SEQ 0102

#0,RMCS1(RO)
;LOAD RMCS1
#ILF76,RMCS1 (RO)
;LOAD RMCS1
RMCS1(RO) , SBDDAT
*STORE RMCS1 AT $BDDAT
#~CILF76,$B8DDAT
#ILF76,$GDDAT
$GDDAT
. SBDDAT
208
RO, $8DADR
#RMCS1, SBDADR
4
#8IT1,R3
:SET ERROR FLAG

5‘5"}"5 A SHIFTING ONE BIT PATTERN IN RMCS1, READ AND CHECK FOR STUCK BITS.

000002
177701

177701
001142

671 013440
672 013444
673 013450
674 013456

001140
001136
000000

663 013376
664 013400
665 013404

001136
408:

50%:

;OMIT IF ANY ERRORS

BNE
MOV
MOV
BIC
MOV
MOV
MOV
BIC
CMP
BEQ
MOV
MOV
ADD

508
#2,R2
:R2 = TEST PATTERN
R2,R3
:R3 = EXPECTED RESULT, BITS 1-5
#~CILF76.R3
#0.RMCST1(RO)
;LOAD RMCS1
R2.RMCS1(RO)
:LOAD RMCS1
RMCS1(RO)
, SBDDAT
;STORE RMCS1 AT $BDDAT
#°CILF76,$BDDAT
R3,$8DDAT
408
R3,$GDDAT
RO. $BDADR
#RMCS1, $BDADR

ASL

EMT

BNE

308

;SHIFT TO NEXT BIT

*CONTINUE IF R2 NOT ZERO

:;ttfil"tl'tt.tittttt'*ttttt"'tt.tfifi.tt.l'.'t.tt'.'t.it.it.titttt.

S*TEST 13

ERROR REGISTER #1 TRANSFER TEST

:"tfitfififit"tt.itfi*t*'t’t't*"fittfi'tfitt.'t'fifi"t"fit'ttt‘ifitttit"

TST13:

001100

001276
0014?2

001140

055614
000014
001346
177760

:SCOPE CALL

MOV
MOV
MOV
MOV

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

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

CLR

;CLEAR ERROR FLAG

;WRITE ONES IN RMER1, CLEAR AND CHECK FOR S-A-1 BITS

177777

PSS

689 013542
690 013550
691 013552

001226

888

680
681 013512
682
683
684 013514
685

%gps

MOV

#-1,RMERT1(RO)

;LOAD RMER1

JSR
MOV
MOV
BIC
BEQ
CLR

PC,CNTCLR
;GO CLEAR CONTROLLER
RMER1(RO) ,RMER1]
;STORE RMER1 IN INPUT BUFFER
RMER11,$8DDAT
#*C<PAR!RMR!ILF!ILR>,$8DDAT
108
$GDDAT

CZRMPAQ RMOS5/3/2 DSKLS TST 1
MACRO V03.01
13
ERROR REGISTER #1 TRANSFER TEST

692 013556

001136
000014

001142
001142

108:

:
208

MOV
BIC
BEQ
CLR
MOV
ADD

RMER11, $8DDAT
#~C<DCK ' IAE 'AOE 'HCRC 'HCE 'ECH!WCF ! FER>, SBDDAT
20$
$GDDAT
RO, SBDADR
#RMER1, SBDADR

MOV
BIC

RMER1]1, $8DDAT
#~C<OPIDTE>,$BDDAT

CLR
MOV
ADD

$GDDAT
RO, SBDADR
#RMER1, SBDADR

EMT

308

sgngE ONES THEN ZEROS IN RMER1, READ AND CHECK FOR S-A-1 BITS
MOV

MOV
MOV
MOV
BIC
BEQ
CLR
MOV

062
104033
052703
013737
042737

408:

001140
001136
000014

000001

001346
147777
001140
001136
000014

741 014052
742

ADD

030000

EMT
BIS
MOV
BIC
BEQ
CLR

#-1,RMER1(R0)

;LOAD RMER1

#0,RMER1(RO)
:LOAD RMER1
RMER1 (RO) ,RMER1]
;STORE RMER1
RMER11, $S8DDAT
#~C<RMR'ILF 'ILR>,$BDDAT
408
$GDDAT
RO, SBDADR

#RMER1 , SBDADR

32
#BITO.R3
:SET ERROR FLAG
RMER11, SBDDAT
#~C<DCK ' JAE ' AOE 'HCRC 'HCE 'ECH!WCF ' FER> , SBDDAT
508
$GDDAT

MOV
ADD

RO, SBDADR
#RMER1, SBDADR

BIS

#BITO,R3

MOV
BIC
BEQ
CLR
MOV

RMER11, $8DDAT
#~C<OPI 'DTE>, $BDDAT
608
$GDDAT
RO, SBDADR

EMT

ADD
EMT
BIS

IN INPUT BUFFER

:SET ERROR FLAG

#RMER1, SBDADR

34
#BIT.R3

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

012737

000000
177777
000014
177777

MOV

#0.RMER1(RO)

MOV
MOV

RMER1 (RO) , SBDDAT
#-1,8GDDAT

MOV

#-1,RMER1(RO)

:LOAD RMER1

:STORE RMER1 AT $BDDAT

e ——————————————————————————

177777
000000
000014
001346
177770

000001
001346
074017

743
744 014056
745 014056
746 014064
747 014072
748 014100

EMT

001140
001136
000014

735 014022
736 014030
737 014032
738 014036
739 014042
740 014050

RO, $BDADR
#RMER1, SBDADR

EMT

BEQ

001140
001136
000014

€z
T2

SEQ 0103
MOV
ADD

001136

00000000000

001346
147777

VOOV

WNN=O

SRR3R
IR ARORSS 3

001346
074017

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

C4
T1

MACRO v03.01 11-APR-80 13:58:55 PAGE 13-15
N

AQO RMOS/3/2 DSKLS TST 1
ERROR REGISTER #1 TRANSFER TEST

023737

052703

001140

001142

001136
000014

001136

$GDDAT, SBDDAT

CMP
BEQ

708"
RO, $SBDADR
§§H5R1.$BDADR

MOV
ADD

EMT
BIS

000002

SEQ 0104

#B8IT1,R3

:S{EE A SHIFTING 1 BIT IN RMER1 AND CHECK FOR STUCK BITS
DONT TEST UNSAFE OR PARITY

708:

005703
001042
012702

TST

80$:

004737

04
001142
001140
001136
000014

001142

90$:

BIT

1008:

CMP

PC,CNTCLR

;GO CLEAR CONTROLLER

gg;\a.nz

:DONT TEST PAR = 0

#PAR, SBDDAT

#UNS .R2

1008
#UNS
, SBDDAT
R2,$8DDAT

:DONT TEST UNS = 0

1108

R2
80s

ASL

:
1208

782
783

:R2 = TEST PATTERN

#RMER1, SBDADR

1108:

780 014244
781 014246

#1.R2

R2,$GDDAT
RO . $8DADR

001136

+ 778
779 014242

:SKIP nus PART IF ANY ERRORS

R2,RMER1(RO)
;LOAD RMER1
RMER1 (RO)
, $8DDAT
:STORE RMER1 AT $BDDAT

001142
001142

?303

AR A

*TEST 14
SRR

i&m

A AR

;SHIFT TO NEXT BIT
*CONTINUE IF R2 NOT ZERO

AR AR AR

AR AR AN AR

AR A AR AR A A AN AR

AR A AN AR

RN AR

AR AR AR AR AR RAN

AR A AR

AR AR

‘RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

PC,CNTCLR

;G0 CLEAR CONTROLLER

#-1 .RMOF (RO)

*:SET TEST NUMBER IN APT MAIL BOX

000032
001142
001142

:LOAD RMOF
RMOF (RO) ,$BDDAT ;STORE RMOF AT SBDDAT

001140

#OFD,SGDDAT
RO, $BDADR

18g0FD. SBDDAT

sBRANCH IF OFD IS A ONE
sSETUP ERROR MESSAGE

#RMOF
, $BDADR

108:

AR AR

:LOAD THE STACK POINTER

$BASE ,R0
TSTQUE ,R1

#14,$TESTN

001136

:SCOPE CALL
#STACK, SP

001226

A AN AAA AN

CLEAR OFFSET STUCK ACTIVE TEST

;END OF TEST

CZRMPAO RMO5/3/2 DSKLS TST 1

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-16

OFFSET REGISTER TRANSFER TEST

SEQ 0105
t'ttt.t"tt"'QQ't'Q"t"""'..t"t."tt'.tt't'...'t'.t"""t

~rssr 15

014346

"'tttt't'.tt"tl..ttt"'t't't'Qfit.tt.t'!t.tttt."tt."'...i'.."

014346

000004

014352
014356
014362
"o 014366

012706
013700
013701
012737

798 014374

005003

gg; 014410

014350

OFFSET REGISTER TRANSFER TEST

000240

T§T115:!
001100
001276
001462
000015

SCOPE

NOP

:SCOPE CALL

001226

MOV
MOV
MOV
MOV

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

CLR

001140

001136

MOV
ADD

005037

001136
000032

012760
012760
016037

177777
000000
000032

000032
000032
001364

809 014436

013737

001364

001142

g}z 014456

052703

000001

799 014376
800 014402

803

804 014414
805 014422
ggg 014430

808

810 014444
811 014452
812 014454

815
816 014462

817 014462

818 014470
819 014476
820 014500

g.;:} 014502
824 014506
825 014506
826 014514

ggg 014522

829

830 014530

831 014536
832 014544
833 014546

g?s’ 014550
836
837 014554
838 014554
839 014562
840 014570
841 014576
842 014604

010037
062737

0462737
001403
104053

013737

042737
001403
104054

052703

016200

001364

161577

CLR

$GDDAT

:RESET ERROR FLAGS

*SETUP BAD ADDRESS
;SETUP EXPECTED DATA

;WRITE ONES THEN ZEROS IN RMOF AND CHECK FOR S-A-1 BITS.
MOV
MOV
MOV

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

;:LOAD RMOF
*LOAD RMOF
:STORE RMOF IN INPUT BUFFER

;CHECK UNUSED BITS OF RMOF FOR ZERO
MOV

001142

BIC
BEQ
EMT

BIS

001142

RO, $BDADR
#RMOF
, SBDADR

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

RMOF],$BDDAT

;GET UNUSED BITS

#BITO,R3

:SET ERROR FLAG

#*CXNUOF, SBDDAT
108
:BRANCH IF NO ERROR
53

~ ;CHECK USED BITS OF RMOF FOR ZERO
108:

MOV

001142

BIC
BEQ
EMT

000001

BIS

RMOFI,$BDDAT

#XNUOF
, SBDDAT
208
54

#B1TO,R3

;GET USED BITS

;BRANCH IF NO ERROR

:SET ERROR FLAG

:WRITE ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-0 BITS.

012760
012760
016037

000000
177777
000032

000032
000032
001364

013737

001364

001142

052703

000001

042737
001403
104053

016200

001142

208:

MOV
MOV
MOV

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

:LOAD RMOF
:LOAD RMOF
:STORE RMOF IN INPUT BUFFER

;CHECK UNUSED BITS OF RMOF FOR ZERO.
MOV
BIC
BEQ
EMT

BIS

RMOFI,$8DDAT

;GET UNUSED BITS

#*CXNUOF, SBDDAT
308
:BRANCH IF NO ERROR
53

#BITO,R3

_';(C);'gcx USED BITS OF RMOF FOR ONE,

013737
042737
012737
023737
001403

1
016200
001140

001142
001142
001140
001142

MOV
BIC
MOV
CMP
BEQ

RMOF1I, SBDDAT
sGET USED BITS
#XNUOF,SBDDAT
#*CXNUOF,SGDDAT ;SETUP EXPECTED STATUS
$GDDAT, S8DDAT
408
;BRANCH IF NO ERROR

CZRMPAQ RH)S/S/Z DSKLS TST 1

115

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-17

OF
F SE T REGISTER TRANSFER TEST

843 014606
844 014610
845
846
847 014614
848 014614

104055
052703

EMT
BIS

55
#8IT1,R3

;1F NO PREVIOUS ERRORS, TEST RMOF WITH SHIFTING ONE BIT PATTERN.

408:
000001

000000
000032
000032
4646

000032

001142

R3
708
#1.R2

;ANY ERROR??
“YES!!
STARTING DATA PATTERN

mov

#0 , RMOF (RO)

:LOAD RMOF

R2,R3

*SETUP EXPECTED RESULT

MOV
MOV

R2.RMOF (RO)
*LOAD RMOF
RMOF (RO) ,$BDDAT :STORE RMOF AT SBDDAT

BIC

#XNUOF ,R3

MOV

161577
001142

857 014652
858 014656
859 014660
860 014664
861 014666
86% 014670
86
864 014672
865
866

ST
BNE
MOV

001140

608:

:CLEAR UNUSED BITS

CMP
BEQ
Eg¥

R3, $BDDAT
608
gg.scooAr

:COMPARE EXPECTED & RECEIVED
*BRANCH IF NO ERROR
*LOAD EXPECTED

ASL
BNE

R2
508

;SHIFT TO NEXT BIT
:CONTINUE IF NOT DONE

70%:
'tt!titQttttt'ttt""""'ttttttttfitttfit"t.t."fit'..ttttt"'tt

RTEST 16

ERROR REGISTER #2 TRANSFER TEST

. -ttti'tt.Q'fiQtt'tttttttt'.tttitfittfit....'t*tt"ttt"i'.tti'ttt'.

75116

000004
000240

&c)gps
MOV

MOV
867
868 014720
869 014722

870 014726
871 014734
872 014740
873
874
875
876 014746
877
878 014754
879 014760
880 014766
881
882
883 014774
884 015002
885 015010
886 015012
887 015014
888
889

012737
005003
010037
062737
005037
012737

012760
004737
013760
016037

013737
042737
001403
104044
052703

:SCOPE CALL
#STACK, SP

$BASE ,R0O

:LOAD THE STACK POINTER

*RO= UNIBUS ADDRESS

001226

MOV
MOV

TSTQUE ,R1
#16,STESTN

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

CLR

001136

MOV
ADD

R3
RO, $BDADR
MRZ $BDADR

:SETUP BAD ADDRESS

001440

MOV

#FMT16,RMOFO

CLR

$GDDAT

sRESET ERROR FLAGS

sSETUP EXPECTED DATA

sSET 16 BIT FORMAT MODE TO ALLOW

:"'SSE'* TO BE SET IN RMER2

;WRITE ONES IN RMER2, CLEAR AND CHECK FOR S-A-1 BITS
MoV
#-1,RMER2(RO)
;LOAD RMERZ2
JSR

MOV
MOV

PC,CNTCLR

;GO CLEAR CONTROLLER

RMOFO,RMOF (RO) _ ;LOAD RMOF
RMER2(RO) ,RMER2]
;STORE RMERZ IN INPUT BUFFER

sTEST UNUSED BITS FOR ZERO-FAILURE ON IF

MOV

RMER2], $8DDAT

BIC

#~CXNUER2, SBDDAT
125

;BRANCH IF NO ERROR

BIS

#EITO,R3

:SET ERROR FLAG

Efi?

;TEST "OPE", "'IVC'', "LSC'* FOR ZERO-FAILURE ON CS, IF

SEQ 0106

CZRMPAQ RMO5/3/2 DSKLS TST 1

T16

0 9
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-18

ERROR REGISTER #2 TRANSFER TEST

890 015020

108:

891 015020 013737 001376 001142
892 o1so§2 042737 143777 001142
893 015034
89 015036

001403
104045

BEQ
EMT

ggg 015040 052703 000001

BIS

897

898 015044

013737

382 015064

052703 000001

042737
001403
104046

001374

175767

208:

001142

508

907 015070 012760 177777 000042
908 015076 012760 000000 000042
ggg 015104 016037 000042 001374
013737 001374

913 015120

042737

915 015130

104047

914 015126

3}9 015132

918
919 015136

001403

052703

143777

013737

001374

gsg 015156

052703

000001

042737
001403
104050

001142

175767

#-1,RMER2(RO)
;LOAD RMER2
#0,RMER2(RO)
:LOAD RMER?
RMER2 (RO) , RMER2]
;STORE RMER2 IN INPUT BUFFER
IFf

RMER2]
, $BDDAT

BEQ

408

:BRANCH IF NO ERROR

#BITO,R3

:SET ERROR FLAG

#~C<OPE
' IVC 'LSC>, $BDDAT
47

BIC
BEQ
EMT

RMER2]
, SBDDAT

#~C<LBC 'DPE>, $BDDAT
508
:BRANCH IF NO ERROR
50

#8ITO0,.R3

:SET ERROR FLAG

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

013737

001374

001142

933 015212

042737

935 015222

104044

001403

052703

176210

508:
~

MOV
MOV
MOV

#0,RMER2(RO)
;LOAD RMER2
#-1,RMER2(R0) _ :LOAD RMER?
RMER2 (RO) , RMER2]
;STORE RMER2 IN INPUT BUFFER

:;TEST UNUSED BITS FOR ZERO-FAILURE ON IF

MOV

001142

BIC

000001

RMER2I
, SBDDAT

#~CXNUER2, SBDDAT

BEQ

608

:BRANCH IF NO ERROR

BIS

#BITO,R3

:SET ERROR FLAG

EMT

938

:TEST USED BITS FOR ONE-FAILURE ON IF

940 015230

013737

001374

001142

942 015244
943 015252

012737
023737

176210
001140

001140
001142

94 015260
945 015262
96 015264

;SET ERROR FLAG

MOV

BIS

932 015204

941 015236

MOV
MOV
MOV

MOV

001142

000042
000942
001374

939 015230

#~C<LBC 'DPE>, S8DDAT
308
:BRANCH IF NO ERROR
46

;TEST "LBC'', 'DPE'’ FOR ZERO-FAILURE ON DS,
408

001142

000000
177777
000042

gge.? 015224

#8IT0,R3

BIS

012760
012760
016037

934 015220

BIS

EMT

928 015162
929 015170
930 015176
931

:SET ERROR FLAG

RMER2]
, SBDDAT

BIC

926

927 015162

#BITO,R3

;TEST "OPE'’, "'IVC'", 'LSC'' FOR ZERO-FAILURE ON CS.

001142

000001

920 015136
921 015144
922 015152
923 015154

:BRANCH IF NO ERROR

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

906 015070

912 015112

208

MOV
BIC
BEQ
EMT

905

911

RMER2]
, $8DDAT
#~C<OPE
' IVC'LSC>, SBDDAT

:TEST *LBC'", 'DPE'* FOR ZERO-FAILURE ON DS, IF

899 015044

900 015052
901 015060
902 015062

MOV
BIC

SEQ 0107

042737
001403
104051
052703

001567

000002

001142

608:

MOV

RMER2] , $8DDAT

BIC

#XNUER2
, SBDDAT

BEQ
EMT
BIS

708
51
#8IT1,R3

MOV
CMP

#*CXNUER2, SGDDAT
$GDDAT, SBODAT

:BRANCH IF NO ERROR
;SET ERROR FLAG

CZRMPAD RMOS5/3/2 DSKLS TST 1

T16

E 9
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-19

ERROR REGISTER #2 TRANSFER TEST

5(1); NO PREVIOUS ERROR, TEST BIT INTERFERENCE WITH SHIFTING ONE BIT.

=ri

000001

055614
001440
000042
000042
040000

000032
001142

040000

001142

000200

000200
001140
001567
001140

966
015366
967 015374
828 015376

001142

001140
001142

970 015400

908:
1008:

mv [ERRORS?

1208
#1.R2

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

1108
52

*NO!!

;SHIFT TO NEXT DATA BIT

MOV
MOV
MOV
BIT
BNE
BIC
BIT
BNE
BIC
MOV
BIC
cMP
BEQ
EMT

1108:

971 015402
972
973 015404

BNE
MOV

ASL

BNE

R2 DATA PATTERN

RMOFO,RMOF
(RO) :LOAD RMOF
R2,RMER2(RO)
:LOAD RMER2
. RMER2(RO),$BDDAT
:STORE RMER2 AT $SBDDAT
#SKI,R2
;18 SKI BEING SET?
908
“YES!!
#SK1,$BDDAT
*DONT TEST SKI FOR ZERO
#DVC.R2
:1S DVC BEING SET??
1008
‘YES!!
#DVC, SBDDAT
*DONT TEST DVC FOR ZERO
R2,$GDDAT
#XNUER2, $GDDAT ;UNUSED BITS SHOULD BE ZERO
$GDDAT,$BDDAT :ANY ERRORS??
80s

*CONTINUE IF NOT DONE

120%:

975

t""tt‘fi't'.fifi'ttt't""""*tt'Q.tl.'.t'.itttt.i'."'...t..t'

RTEST 17

SERIAL NUMBER TEST

..'ttttt't.tttttfi'tttttt'tt"tfitttttt'tfi.t"'tt.ttt'ttitit."'tt.

976
977 015432

978 015436

15117:

000004
000240
012706
013700
013701
012737

001226

004737
010037
062737
012702

001136

016037

001140

zggpe

:SCOPE CALL

MOV
MOV
MOV
MOV

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

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

JSR

PC,INTCLR

;GO CLEAR CONTROLLER

MOV
ADD
MOV

RO, $BDADR
#RMSN, SBDADR
#25. ,R2

*SETUP REGISTER ADDRESS FOR TYPEOUT
;READ RMSN 25 TIMES

;READ RMSN AND USE THE RESULT AS EXPECTED VALUE

MOV

RMSN(RO)
, $GDDAT ;STORE RMSN AT $GDDAT

555” RMSN AND COMPARE WITH INITIAL VALUE

016037

023737
001401
104136

000030
001140

001142
001142

mov
CMP

gg?

RMSN(RO),$8DDAT ;STORE RMSN AT $BDDAT
$GDDAT, SBDDAT
ggz

é%EQREMENT COUNT AND CONTINUE

;BRANCH IF SERIAL NUMBER CONSISTENT

IF NOT DONE

SEQ 0108

994 015502
995 015504

005302
100366

308 :
IR

DEC
8PL

FRNIRNORR

Vi
wvivivi
i

001100
001276
001462
000020

5534
5540
5544

005037
111137
042737

5562

000402
006337

001140
001416
177770
000001

~
o

TST120:

D
D el
D
d cd
d

8R228
%

2N8SS
W

001136
000014
000010

2ESNES

010037
062737

W ~N

—

016037

S
g

v
&

5616
5622

015644
1022 015646
1023
1024
1025 015650
1026 015650
1027 015656

013760
013760

1029 015672
1030 015700

042737
023737

1035 015722
1036 015724

015724
1037 015726
1038

JEND OF TEST
RN AR RN RNR AR RRANIRRRRAR

zSgPE

MOV

RARRRRRA

AR AR NS

CONTROL BUS PARITY DETECTION TEST
ARAR RN RN

RR AR NN

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

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

#20,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

;SETUP FOR FIRST TEST LOOP (NO ERROR)
CLR
$GDDAT
;'PAR'" SHOULD BE ZERO
001416
001444
5%:

MOVB
BIC
MOV
BR
ASL

(R1) ,RMCS20
;SETUP RMCSZ2 VALUE
#*CUNTMSK ,RMCS20
#1,RMHRO
JINITIALIZE DATA PATTERN
6%
;SKIP INCREMENT FIRST TIME
RMHRO
sSHIFT TO NEXT PATTERN

égLEAR AND VERIFY THAT 'PAR'' IS RESET

055614
000014
000042
177767

§ TGS

—_

o jolelelelelelelelelelele]

b
e
d
d
d
d e
d
d
—

WNN=O
-

VNV

d
d
)

=y —

)

) cd

S [elelelelelelelelelels]

001444

SEQ 0109

AR AR ARARERR RN AR AR AR RRERRRRRRRAR AR RN

MoV
MOV
MOV

001226

geeRSR38288

[elelelelelele]

R2
108

AR AR AR AR AR

;*TEST 20

012706
C13700
013701
012737

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-20

PC,CNTCLR

BIC

#“CPAR,$BDDAT

RMER1(R0O) ,$8DDAT
RMER2(R0O) ,RMER2]

;GO CLEAR CONTROLLER

:STORE RMER1 AT $BDDAT
:STORE RMER2 IN INPUT BUFFER

;DID 'PAR'' RESET?

BEQ
MOV
ADD

208
RO, $8DADR
#RMER1, $BDADR

:YES!!
;SETUP REGISTER ADDRESS

BNE

108

:YES!!

BIT

10%:

104070
000451

JSR

MOV
MOV

#DPE ,RMER21]

EMT

;1S "DPE'" SET??

508

50%

égngE TEST PATTERN AND VERIFY 'PAR'' STATUS

104072
000421

001416
001444
0000
177767
001140

MOV

RMCS20,RMCS2(R0)

BIC
CMP

A*CPAR,SBODAT
$SGDDAT ,$BDDAT

MOV
MOV
BEQ
BIT

30%:

BNE
EMT
BR

;LOAD RMCS2

RMHRO,RMHR(RO) ;LOAD RMHR
)
RMER1(R0O) ,$BDDAT
;STORE RMER1 AT $BDDAT

408
#PAT ,RMCS20

308
71
50%

EMT
72
BR
50%
;GO TO NEXT PATTERN

)
;IS 'PAR'' CORRECT??
JYES!!
;SHOULD ‘PAR'' BE SET?

SYES!!

;SKIP TO NEXT

CZRMPAD RMOS5/3/2 DSKLS TST 1
7z
SERIAL NUMBER TEST

001416

000020
000010
000001

141
114
144

rco

000020

888

TST
BNE

RMHRO
5%
#PAT ,RM(S20

BIS
MOV
MOV

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

:TURN ON BAD PARITY
SEXPECT ERROR
sINITIALIZE DATA PATTERN

BIT
BNE

D d

D —d

ZRTREXRRE

1052
1053
1054 016020
1055 016026
1056 016032
1057
1058
1059 016034
1060 016034
016040

013700
013701
012737

AR S

012737
005037
000402

ARt

006337

001444

004737
013760

055614
001444
000036
000000

NONwnSs

157777

NN 23

d d e

~N NNN

000001
001140

001226

001444

eIt

23223222222222222232222;

CONTROL BUS PARITY GENERATION TEST

Attt il
2223232323 2223222222222

SCOPE
NOP
MOV
MOV
MOV
MOV

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

;SETUP FOR TEST (NO ERROR)
MOV
CLR
BR

#1 ,RMHRO
$GDDAT
208

;LOAD
;RO =
;R1_=
;sSET

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

sINITIALIZE DATA PATTERN
sMCPE SHOULD BE ZERO

;DONT SHIFT FIRST TIME

sSHIFT DATA PATTERN

10%:

:
208
000036

001370
001142
001142

ASL

JSR

MOV

RMHRO

PC,CNTCLR

RMHRO,RMHR(RO)

;GO CLEAR CONTROLLER

:LOAD RMHR

; TRANSFER DATA TO RH, VERIFY NO ‘MCPE'' ERROR
MOV
RMHR(RO) ,RMHR]I
;STORE RMHR IN INPUT BUFFER
MOV
RMCS1(RO) , SBDDAT
:STORE RMCS?1 AT $BDDAT
BIC
gagncpe.seooAr
:=3§.BAD PARITY DETECTED??
BEQ

EMT

B8R

408

582 TO NEXT PATTERN

005737
001352

—

d e

D d

d e

OOOOOOOOO

18721
001100
001276
001462
000021

:START LOOP

;END OF TEST

J*TEST 21

000004
000249
012706

?ATA PATTERN COMPLETE??

l
IgST COMPLETE??
508
2y S!
;SETUP FOR SECOND TEST LOOP (ERROR)

508:

015772
015772
015774
015776

40$:

lnoms

001444

408 :

BNE

RMHRO
108

:DONE ALL PATTERNS??
INO!!

*END OF TEST

t't.ttttfitt.t'tt.t't"'tt""'ttttttttttfi'ttfittlfitit"ttt't'

SRTEST 22

RMDA,RMDC FAULT TEST

..t't'tfi"'ttfi'tt.tt't'i'itt'titt't.t'.'t"ttttlfitt'ttt'ttt'ttt't

000004
000240

Ts122:

SCOPE
NOP

:SCOPE CALL

= |

SEQ 0110

G 9
CZRMPAD RMOS5/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-21
120
CON TROL BUS PARITY DETECTION TEST

004737

055614
000000
000000
177777

o
N
W
N

.a_w;gg-hu.a_ha
Ao

013701
012737

001100
001276
001462
000022

001226

177777

000006
000034
177777

000006
000034
000006
000034
001340
001366
001340

176000
177777

001366
001366

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

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

JSR

PC,CNTCLR

:GO CLEAR CONTROLLER

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

#0,RMDA (RO)

#0,RMDC (RO)

MOV
MOV
MOV
MOV
CMP

#<1,RMDACRO)
#<1.RMDCC(RO)
RMDA(RO) ,RMDAI
RMDC
(RO) ,RMDCI
#-1,RMDA]

CMP

#-1,RMDCI

EMT

BEQ
BIS

BEQ

108
AXNUDC ,RMDCI
10$

: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 u~u<eo BITS
SYES!!

:
108

—

MOV
MOV
MOV
MOV

tttt'ttttttitttttt.'tt't'ttttitttttt.lttt"'ttt'ttttttttttttt'fi

CRTEST 23

DISK ADDRESS TRANSFER TEST

000004
000240
012706
013700
013701
012737

ey _.-A—A-A—o-n-n—l_.—l—n_.-c—h_ns_a
D
oleoleolelele]

.,ttttttttttt*ttttttt!tttttitttiltttttfittttttttttlttltt'tttt.ttQt

T5123:

001226

005003
004737

CLR

QI
L

= —mm

:SCOPE CALL

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

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

:R3
= ERROR INDICATOR

PC,CNTCLR

:GO CLEAR CONTROLLER

;WRITE ONES IN RMDA, THEN WRITE ZEROS, READ BACK AND CHECK FOR S-A=1 BITS

16314

MOV
MOV
MOV

#-1.RMDA(R0)
;LOAD RMDA
#0,RMDA (RO)
*LOAD RMDA
RMDA (RO) ,$8DDAT :STORE RMDA AT $BDDAT

BEQ
CLR

10$
$GDDAT

TST

16322

MOV
MOV
MOV
MOV
JSR

$BDDAT

MOV
ADD

RO, $8DADR
#RMDA, SBDADR

BIS

#81T0,R3

000006
000006
001142
177777

MOV
MOV
MOV
CMP

#0 ,RMDA (RO)
;LOAD RMDA
#-1,RMDA (RO)
*LOAD RMDA
RMDA(R0),$BDDAT :STORE RMDA AT $BDDAT
$BDDAT , #=1

001140

MOV

001136

EMT

WRITE ZEROS IN RMDA,

R
R

3ggPE

012737

BEQ

208

:SET ERROR FLAG

THEN WRITE ONES, READ BACK AND CHECK FOR S-A-0 BITS

#-1,8GDDAT

qr{—1

SEQ 01N

H 9
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-22

d e

O0O (elelelelelelelele]

—

3332 3R B BB RERERERES

CZRMPAO RMOS/3/2 DSKLS TST 1
122
RMDA,RMDC FAULT TEST

OO0O0Oo
_—

001136

104021

000006

SEQ 0112

MOV
ADD

001136

000002

:35 %&
88
8

EMT
BIS

21
#8IT1,R3

:SET ERROR FLAG

;OMIT BIT TEST IF ANY ERROR

BNE
MOV
MOV
MOV
MOV
CMP

30%:

001142

MOV
MOV
ADD

508
#1.R2
;R2 = TEST PATTERN
#0 ,RMDA (RO)
;LOAD RMDA
R2.RMDA (RO)
:LOAD RMDA
RMDA (RO) , SBDDAT ;STORE RMDA AT S$BDDAT
$BDDAT ,R2
408
R2,$GDDAT
RO $8DADR
#RMDA
, $8DADR

BNE

308

BEQ

001136

EMT
ASL

408:

50%:
MR

AL AR

*TEST 24
MR

TST24:

000004
000240
012706
013700
d

b—

Al
i

—

MOV

#24 ,$TESTN

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

CLR
JSR
CLR
MOV

R3
PC,CNTCLR
$GDDAT
RO, $8DADR

sRESET ERROR FLAGS
;GO CLEAR CONTROLLER
;LOAD EXPECTED
;LOAD REG ADDRESS

#RMDC
, SBDADR

!rh
o

#-1,RMDC (RO)

177777
000000
000034
176000

D —d

052703

000001

000034
0000
001142
001142

MOV
MOV
MOV
BIC
BEQ

EMT

BIS

sLOAD RMDC

RMDC
(RO) ,$BDDAT ;STORE RMDC AT S$BDDAT
#*CXNUDC
, $BDDAT
;CLEAR ALL USED BITS
5%
;BRANCH IF NO ERROR
134
#BITO,R3
:SET ERROR FLAG

WRITE ONES IN RMDC,

;LOAD THE STACK POINTER

TSTQUE ,R1

EMT
BIS

&
v

#STACK,SP

$BASE ,R0O

MOV
BIC
BEQ

e
e
—

:SCOPE CALL

MOV

—d

elelelelelelele)

DESIRED CYLINDER TRANSFER TEST

WRITE ONES IN RMDC AND VERIFY THAT UNUSED BITS ARE ZERO

ESRAR
2B BB

=lelelelele)

D
D e
e

sSHIFT TO NEXT BIT
5
;CONTINUE IF R2 NOT ZERO

d st
3222223 3823222332222 22222

SCOPE
NOP
MOV

ADD

D d d D e e

wviviwnwnwn
e IS N

d D e e
D e

kD d e

22
R2

Rt il
22222 2222332222222 228)

MOV

001226

) —d

D
d

) —

d d
d
e

RO, $8DADR
#RMDA
, SBDADR

WRITE A SHIFTING 1 BIT PATTERN IN RMDA, READ, AND CHECK FOR STUCK BITS

000001

013701
012737

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

208:

[elelelelelelelelelelele] OCO0O0
_—ed e D D D DD D DD

— el d

S
W
WN =00

d D D e e

— e nd i ) ) ) e D ) D i

— e

—_—— — o

d e

d d D D d D

SVERRUKYS EIBVRURTN

MACRO v03.01
DISK ADDRESS TRANSFER TEST

THEN WRITE ZEROS, READ AND CHECK FOR S-A-1 BITS

#=1,RMDC (RO)
sLOAD RMDC
#0,RMDC (RO)
:LOAD RMDC
RMDC (RO) , SBDDAT sSTORE RMDC AT $BDDAT
#XNUDC
, SBDDAT
108

:CLEAR UNUSED BITS
;BRANCH IF NO ERROR

#BIT0.R3

:SET ERROR FLAG

CZRMPAD RMOS/3/2 DSKLS TST 1

—_—

={=lelele] (elelelele]

000000
177777
000034
176000
177777
001140

16670

16722

MOV

001142
001142
001140

MOV
BIS
MOV

RMDC
(RO) , SBDDAT :STORE RMDC AT SBDDAT
#XNUDC,$8DDAT
:SET UNUSED BITS
#-1,$GODAT
*LOAD EXPECTED RESULT

BEQ
EMT
BIS

20$
40
#BIT1.R3

000034

MOV

001142

CMP

#0 ,RMDC (RO)

:LOAD RMDC

#-1,RMDC(RO)

:LOAD RMDC

$GDDAT,$BDDAT

IS RMDC ALL ONES 27

SYES !!

;SET ERROR FLAG

:OMIT BIT TEST IF ANY ERRORS

d e e e

éOS:
012702

000001

ST
BNE
MOV

R3
608
#1,R2

;R2 = TEST PATTERN

d e

§5§57 RMDC WITH SHIFTING ONE BIT

16740

012760

000036

176000

001142

16774

mov

R2.RMDC (RO)
R2.R3
#XNUDC ,R3

$BDDAT RS

MOV

R3,$GDDAT

BEQ

001140

oo
jole]

e e

508:

#0 ,RMDC (RO)

MOV
MOV
BIC

MOV

001142

000034

e e

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

000034

000002

e e

SEQ 0113
ig@ITE ZEROS,

16654

b—

d d

D i

) e

ddd—ld—‘—l—ld—l—‘—ldd—l—l—ld—l—.-fl-fl-fl—l—‘—.-‘-‘d-fl—.—.

g R&S 38 BRLRE RN 28 BB IR R RAR LB IIVFININNIZS

DESIRED CYLINDER TRANSFER TEST

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

:LOAD RMDC

*LOAD RMD(
*R3 = EXPECTED RESULT
*CLEAR ANY UNUSED BITS

RMDC (RO) ,SBDDAT :STORE RMDC AT SBDDAT
508

EMT
BR

41
608

;SKIP TO NEXT

ASL
BNE

R2
308

;SHIFT TO NEXT BIT
*CONTINUE IF R2 NOT ZERO

60%:
":ttttttt'ttt.'tttt'."i"ttttfittttttttttttt'titttttttt'.i't'fit't

S*TEST 25

ILLEGAL REGISTER TEST

;.'t't.tttttttt'tttttttt't'itttt.‘ltttttttittt*ttt.ttttttt.tttttttt

75125:

005037
012702

—d
— e

MOV
MOV
MOV

001226

001140
000000

d —d

d ——d —d

001100
001276
001462
0000

gggpf

:SCOPE CALL

MOV

#STACK, SP
$BASE , RO
TSTQUE ,R1

#25,8TESTN

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

CLR
MOV

$GDDAT
#0,R2

:"'ILR'* SHOULD BE ZERO
*R2=REGISTER INDEX

::SET TEST NUMBER IN APT MAIL BOX

%8§EAR AND VERIFY THAT *‘ILR'* STATUS IS ZERO

004737
016037
042737

055614
000014

177775

001142
001142

JSR

MOV
BIC

PC,CNTCLR

RMER1(R0) , $BDDAT
#~CILR, SBDDAT

;GO CLEAR CONTROLLER

:STORE RMER1 AT $BDDAT

- ]

MACRO V03.01

alng

CZRMPAO RMO5/3/2 DSKLS TST 1

—

[elelelelels]

7066

005037

00}} 40

100

062737

000014

17070

prd

NIy
o uab

jol=lelele]

bodl

013746

000004

000006
017170
000300

000004
000006

—

012637
012637
000416
012716
000002
—

—_—

017176

016037
042737
023737
001411
010337
032737
001002
104065
000401

000014
177775
001140

262 017276

022702

017224
1249 017232
1250 017240
1251 017246
1252 017250
1253 017254
1254 017262
1255 017264
1256 017266
1257 017270
017270
1253
125
1260 017272

001136

1244 017214
1245 017220
}gzg 017222

1248 017224

2
267 017306
017312

308:

000006
000004

010337
104074

242 017206

RO, $8DADR

:BRANCH IF ILR IS RESET
:SETUP GOOD DATA, REG ADR

1408

408:
s

000503

50$:

001174
000002

001142
001142
001142

60%:

MOV

R4, (R3)

Bngv

((,(S)l;)*.ERRVEC

MOV

#458, (SP)

MOV
MOV
cMP
BHI
MOV

(SP)+,ERRVEC+2
::POP STACK INTO ERRVEC+2
(SP)+,ERRVEC
;:POP STACK INTO ERRVEC
R2, MRMEC2
*WERE ALL REGISTERS READ??
508
SYES!!
R3, $8DADR

MOV
BIC
CMP

RMER1(RO
, $8DDAT
)
:STORE RMER1 AT $BDDAT
#~CILR, $SBDDAT
SGDDAT ,$BDDAT ;IS ''ILR'* OK??

MOV
BIT
BNE
EMT
BR

R3,$TMPO
#1LR,$GDDAT
708
65
80$

EMT

MOVB

MOV
RTI

EMT
BR

BEQ

001140
70%:

104066

cMP
BNE

RO,R3
R2.R3
ERRVEC,=(SP)
ERRVEC+2,=(SP)
#408 , ERRVEC
#PR6. ERRVEC +2
R4
#RMCS2,R2
308

CLR

000010

000006
000004
000046

#RMER1, $BDADR
64

MOV
ADD
MOV
MOV
MOV
MOV

T
ObNfiON oSN

NNNNNN NNNN

)

im{=lelelelelelelele]

d D o
d e
d

ADD
EMT

SEQ 0114

5‘6’2”5 THE REGISTER (INDEX=R2) AND TEST ILR STATUS

D e

D d

d e

PORRRIRINININIAIA NN

017156
017162

n
F

208
$GDDAT

012637
012637
020227

BEQ
CLR

MOV

001136

—

K 9
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-25

D e

d D

<
ELFERRURIEBRIR
ARG
RRRpRRRRR
Voo~ wvi

CZRMPAQ RH05/3/2 DSKLS TST 1
125
ILLEGAL REGISTER TEST

(R1).Ré

(SP)+,ERRVEC+2

:R3=REG ADDRESS

;:PUSH ERRVEC ON STACK
::PUSH ERRVEC+2 ON STACK
:SETUP FOR BUS TIMEOUT
:Re=REGISTER VALUE
:SELECT DRIVE IF RMCS2

:WRITE TEST REGISTER

:POP STACK INTO ERRVE(C+2

::POP STACK INTO ERRVEC

:DUMMY RTI ADDRESS

*RESTORE PRIORITY

74
1408

808

:YES!

*SAVE ADDRESS
*SHOULD "‘ILR'* BE SET??
SYES!!

ésgvmce TO THE NEXT REGISTER ADDRESS

013746
013746

000002
000050

000004
000006

:
:

ADD
CMP
BHI

#2 R2
tsb R2

CMP
BNE
MOV
MOV

#RMBAE ,R2
1008
ERRVEC,=(SP)
ERRVEC+2,-(SP)

BLO

11os

: INCREMENT INDEX
*TIME TO TRY RH70 ?
*BRANCH IF NOT

*BRANCH IF ALREADY CHECKED

*1S THIS RMBAE??
*NO!!
::PUSH ERRVEC ON STACK
:;PUSH ERRVEC+2 ON STACK
7

1269 017316

}270 017324

012737
012737

017414
000300

000004
000006

MoV

:908:

SEIY FIRIILY NNgNNNNNNNN
EORARNZEI

D D d ) D D D i i cd D

POP

—

012637
012637

000004
000006

:"'ILR" SHOULD BE SET
:SET ILR

000000
001402
001402

MOV
BIC

SO(R0O) ,RMBAEI

;READ THE EXTENDED BITS

90%:

MOV

1108:

1308:

MoV

135%:

[

001100
001276
001462
000026

(SPJ+,ERRVEC+2

(SP)+ ERRVEC
4,R2

1403

#1358, (SP)

:CHOP OFF

*BRANCH IF RH70 WITH 22 REG

:OTHERWISE NOT A RH70 OR RH70 WITH 32 REG

*DONE ALL TESTS

SYES!!

:DUMMY RTI ADDRESS

sRESTORE PRIORITY

::POP STACK INTO ERRVEC
:;POP STACK INTO ERRVEC+2
;END OF TEST

ittt ittt
Il T3 22223222322;

RESET GO BY INIT TEST

017460
017464

055614
001136

001226

001140

:SCOPE CALL
#STACK, SP

;LOAD THE STACK POINTER

MOV

TSTQUE ,R1

#26,$TESTN

;R1_= POINTER TO DEVICE

JSR
MOV

PC,CNTCLR

;GO _CLEAR CONTROLLER

RO, $BDADR

;RO = UNIBUS ADDRESS

;:SET TEST NUMBER IN APT MAIL BOX

sSETUP REGISTER ADDRESS FOR MSG

:SET GO,néNITIALIZE AND VERIFY THAT GO IS RESET

000001

055614
000000
177776

SCOPE

$BASE RO

SN =O

#50,R2

:SET EXTEND BITS

START AT INDEX 54 IF RH70 WITH 22 REG

R ARtt
Il
132222222223222
t
23

75126

017432
017432
017434
017436
017442
017446
017452

SRR
b
b
ad alh

#177774 ,RMBAE]

908

(SP)+ ,ERRVE(
(SP)+ _ERRVEC+2

:
1408

;DONE ALL LEGAL REGISTERS

m?me mcsunb)

108

*TEST 26

sBRANCH IF RH70 CONTROLLER

:"ILRTM SHOULD BE SET

#ILR,$GDDAT
lILR SGDDAT

120%:

017422

90$

#ILR,SGDDAT

BIS

000050
000006
000004
000074

012716
000002

#*C<BIT1!BIT0>,RMBAE
I

001140 °

—Y

000002
000054
001400
000050
177774

;SETUP FOR TIMEOUT

CMP

;1008:

052737

#1308 ,ERRVEC
#PR61£RRV C+2
#A17!A16

SEQ 0115

ERRVEC+2
ERRVE(C
q$8g53*2.R2

1278

1 017332

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-26

CZRMPAOD RMO5/3/2 DSKLS TST 1
125
ILLEGAL REGISTER TEST

#GO,RMCS1(RO)

;LOAD RMCS1

PC,CNTCLR

;GO CLEAR CONTROLLER

RMCS1(RO),$BDDAT

#~CGO, SBDDAT

108

;STORE RMCS1 AT $BDDAT

sBRANCH IF GO IS RESET

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

Mm99
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-27
SEQ 0116

1315 017526
1316
1317

017526
017526
017530
017532
017536
017542
1318 017546
1319 017554
1320 017560
1321 017566
1322
1323
1324 017570
1325 017574
1326 017602
1327 017610
1328 017612
1329 017616
1330
1331
1332 017620
1333 017620
1334 017626
1335 017634
1336 017642
1337 017650
1338 017652
1339 017656
1340 017660
1341
134§
1343 017664
1344 017664
1345 017672
1346 017700
1347 017706
1348 017714
1349 017716
1350 017724
1351 017726
1352
1353
1354
1355 017732
1356 017732
1357 017734
1358 017736
1359 017742

017742
1360 017750

108:

:END OF TEST

::'t'.'..'.t‘."QQ'.t'.'*""t.."fi.'..t'tt'..tfi"lfit'it'.'t'."'

SRTEST 27

DIAGNOSTIC MODE TEST

:"'tt't.fittttt.l'tttt"t"""".ttt'*t*Qtitt'.tt'i'ttttt.'tt"t*'

TST127:

000240
012706
013700
013701
012737

001136
000024

004737
016037
042737
001403
005037
104075

055614
000024
177776

;SCOPE CALL

MOV
MOV
MOV
MOV
MOV
ADD
CLR

001100
001276
001462
000027

010037
062737
005003

aggps

#STACK, SP
$BASE , RO
TSTQUE ,R1
#27,$TESTN
RO, $8DADR
#RMMR1, SBDADR
R3

;LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
::SET TEST NUMBER IN APT MAIL BOX
;SETUP REGISTER ADDRESS
;INITIALIZE ERROR FLAGS

;INITIALIZE AND VERIFY THAT 'DMD'' IS RESET
JSR

MOV
BIC
BEQ
CLR

001140

PC,CNTCLR

;G0 CLEAR CONTROLLER

#~CDMD
, SBODAT
108
$GDDAT

;BRANCH IF "DMD'* IS ZERO

RMMR! (RO) , SBDDAT

EMT

;STORE RMMR1 AT $BDDAT

5357 AND RESET 'DMD'* USING REGISTER TRANSFER-VERIFY 'DMD'’ NOT S-A-1

012760
012760
016037
042737
001405
005037
104076
052703

000001
000000
000024
177776
001140

mov

#DMD ,RMMR1 (RO)

;LOAD RMMR!

BIC
BEQ
CLR
EMT

#~CDMD, SBDDAT
20$
$GDDAT
76

;BRANCH IF DMD NOT S-A-1

MOV
MOV

BIS

000001

#0,RMMR1(RO)
:LOAD RMMR1
RMMR1 (RO)
, SBDDAT
;STORE RMMR1 AT $BDDAT

#BITO.R3

:SET ERROR FLAG

éggssr AND SET 'DMD'* USING REGISTER TRANSFER-VERIFY 'DMD'’ NOT S-A-0

012760
012760
016037
042737
001006
012737
104077
052703

000000
000001
000024
177776

000024
000024
001142
001142

000001

001140

mov

#0,RMMR1(RO)

MOV

RMMR1 (RO)
, SBDDAT

BNE
MOV
EMT
BIS

308
#DMD
, SGDDAT
77
#BIT1,R3

MOV
BIC

000002

#DMD ,RMMR1 (RO)

#~CDMD, SBDDAT

;LOAD RMMR1

:LOAD RMMR1

:STORE RMMR1 AT $BDDAT

;BRANCH IF DMD NOT S-A=0
:SET ERROR FLAG

: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

608
#BIT1,R2

sYES!:
sINITAILIZE DATA PATTERN

MOV
MOV

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

;LOAD RMMR1
;LOAD RMMR1

sANY ERRORS DETECTED??

CZRMPAO RMOS5/3/2 DSKLS TST 1
127
DIAGNOSTIC MODE TEST

1361 017754

016037

1362 017762
1363 017770

0462737
001407

1366 020002

005037

1364 017772
1365 017776

}3325 0

010237
010237

104100

177776

1371 020010

1372 020012

g;z 020014

001142
001142

MOV

RMMR1(RO) , SBDDAT

MOV
MOV

R2,$TMPO
R2.$TMPO

BIC
BEQ

001174
001174

001140

CLR

EMT

:STORE RMMR1 AT $BDDAT

#~COMD
, SBODAT
508

;BRANCH IF DMD NOT SET

$GDDAT

:DMD SHOULD BE ZERO

100

*SAVE DATA
*SAVE DATA

:SHIFT TO NEXT DATA BIT AND CONTINUE TES < IF NOT DONE

50s:

006302

001353

608 :

1375

ASL

BNE

408

020014
020016
020020
020024
020030
v 020034

000004
000240
012706
013700
013701
012737

1377 020042

004737

1378 020046
1379 020052
}333(13 020060

1382

010037
062737
005003

1383 020062
1384 020070

012760
016037

1386 020104
1387 020106
1388 020112

001405
005037
104101

1385 020076

ggg 020114

1391
1392 020120

1393 020120
1394 020126
1395 020134
1396 020142

042737

052703

012760
012760
016037
042737

001100
003276
001462
000030

000001
000012

167777

JSR

001136
24
001142
001142

167777

001142

001140

010000

}28? 020162

052703

000002

1402
1403

1404 020166

1405 020166

1406 020170
1407 020172

PC,CNTCLR

RO, $S8DADR
#RMDS , SBDADR
R3

001057
016037

:R3=ERROR FLAG

108
SGDDAT
101

#~CMOL , SBDDAT

:SET ERROR FLAG

001142

%
|
|
|

|
1

f
|
|
|

:SET MAINTENANCE UNIT READY AND VERIFY THAT ‘MOL'’ IS ONE
108
:

MOV
MOV
MOV
BIC

#DMD _RMMR1(RO) :LOAD RMMR1
#DMD TMUR , RMMR1 (RO)
:LOAD RMMR1
RMDS (RO) | saoon :STORE RMDS AT $8DDAT
#~CMOL, SBDDAT

BNE
MOV

208
#MOL
, SGDDAT

BIS

#8IT1,R3

EMT

208 :

000012

102

;IF NO PREVIOUS ERROR, VERIFY VOLUME VALID IS RESET AND
*TEST FOR BIT INTERFERENCE

005703

;GO CLEAR CONTROLLER

*RO=REGISTER ADDRESS

BEQ
CLR
EMT

#8ITO,R3

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

#DMD ,RMMR1(RO) :LOAD RMMR1
RMDS (RO) , SBDDAT :STORE RMDS AT $8DDAT

BIC

!
;
|
|
i
|

MOV
MOV

BIS
000024
000024
001142

;SCOPE CALL

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

;SET DIAGNOSTIC MODE AND VERIFY THAT "MOL'' IS ZERO

000001
000001
001001
000012

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV
ADD
CLR

001140

001006
012737
104102

001226

055614

001136
000012

1397 020150
1398 020152

1399 020160

MOL TEST

..ttttttttttttttttttttttt"ttttttttttttttt.ttttttttltt.tttttttttt

7$130:

;END OF TEST

tttttttttttttttttttttttttttflttfittttfitt*tttttttttttttt.tttttttt'

SRTEST 30

020014

2l
T4l

SEQ 0117

1369

1370 020010

MACRO V03.01 11-APR-80 13:58:55 PAGE 12-28

BNE
MOV

;ANY ERROR DETECTED??

708
SYES!!
RMDS (R0) ,$BDDAT :STORE RMDS AT $8DDAT

|
|

(gol'PAO RMOS5/3/2 DSKLS ST 1
T

177677

FRUBRE ERNNG
o

SSRRRKSIS
RRNR IR

jolelele] jelolelelelels]

rRAR

8333

—

F OB T P O
ot b
— e d e

) e

—h

1421 020260
1422 020264
1423 020270
1424 020272
1425 020276
}226 020302

8 10
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-29
001142

001140

25%:

000001
000001
000024
000012
167777

000024

30%:

001142
001142

010000
001142

BIC

BEQ
CLR
EMT

#*CVvv,$BDDAT
25%
$GDDAT
135

MOV

#1,R2

MOV
MOV
MOV

#DMD ,RMMR1 (RO)
;LOAD RMMR1
R2 .RMMR1(RO)
;LOAD RMMR1
RMDS (RO) ,$8BDDAT :STORE RMDS AT $BDDAT

CLR
BIT
BEQ
BIS
cMP
BEQ
MOV
MOV

R3
#MUR ,R2
408
#MOL ,R3

BIC

001000

408%:

001174
001140

SEQ 0118 |

EMT

sBRANCH IF VV RESET

sINITIALIZE DATA PATTERN

#~CMOL , $BDDAT

sSETUP EXPECTED "MOL"’
;"MOL'' SHOULD
BE ONE
JSFDLOK""
s YES!!

R3,$8DDAT
0s
R2,$TMPO
R3. $GDDAT

:SAVE TEST PATTERN

103

gggxrr TO NEXT PATTERN

1431 020310
1432 020312
1433 020316
1434 020320
1435 020322

14%6 020326

000001

60%:

000001

BNE
MOV
ASL
BEQ
BIS

B8R

141;8 020330

#DMD ,R2

;DONT SHIFT DMD

308

sDONT TRUNCATE TEST
sSHIFT TO NEXT BIT
;BRANCH IF DONE
;KEEP DMD ON
- CONT INUE

608
#DMD ,R2
R2
708
#DMD ,R2

70%:

1440

;END OF TEST

AR A A A

A A A A A A A AR A

SRTEST 31

AR A AR AR AR

78731

1441
1442 020356

1443 020360
1444 020364
1445 020372

001226

MOV
MOV
MOV
MOV

001136

MOV
ADD

1446 020376
1448
1449 020402

1450 020410
1451 020416

1452 020424

1453 020426

SCOPE
NOP

000024
001142
001142

CLR
JSR

A AN

AR AR AN AR AR AR AR AR AR AR RN AAA

A A AR AR AR AR AR AR AR A AR AR A AR AR AR AN

R AR

BEQ
EMT

AR AR AR

AR AR AR RN

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

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

;R1_= POINTER TO DEVICE

;:SET TEST NUMBER IN APT MAIL BOX

;R3=ERROR FLAG

$GDDAT
PC,CNTCLR

;WRL SHOULD BE ZERO

RO, $8DADR
#RMDS , SBDADR

;SETUP REGISTER ADDRESS

;GO CLEAR CONTROLLER

sSET DIAGNOSTIC MODE AND VERIFY '\RL" IS ZERO
MOV
#DMD ,RMMR1 (RO)
LOAD RMMR1
MOV
RMDS (RO) , SBDDAT STME RMDS AT $BDDAT
8IC

WRITE LOCK TEST

#*CWRL
, SBDDAT

108
104

;BRANCH IF WRL IS ZERO

CZRMPAQD RMOS5/3/2 DSKLS TST 1
WRITE LOCK TEST

54 020430

052703

BIS

000001
000011
000012

173777

000024
24
001142
001142

012737

004000

001140

020476

052703

000002

020456

NZ(?)(S)Z

012760
012760

1469 020502
1470 020504
14;‘1? 020506

005703
001045
012702

032702

000010

1483 020554

020337

1485 020562

010337

042737

010237

173777

004000
001142

000024

MOV
MOV
MOV
BIC

001142
001142

408:

001140

:SET ERROR FLAG

TEST FOR BIT INTERFERENCE ON ‘MWP''

;ANY OTHER ERROR??

708
#1,R2

SYES!!
*INITIALIZE DATA PATTERN

001174

#DMD,RMMR1(RO) :LOAD RMMR1
R2,RMMR1(RO)
:LOAD RMMR1
RMDS (RO) , SBDDAT :STORE RMDS AT $SDDAT
#*CWRL ,$8DDAT :CLEARUP RECEIVED 'WRL''

CLR
BIT
BEQ

R3
AP, R2
408

(MP

R3,$8DDAT

*IS WRL 0K??

R3,$GDDAT
?&ST’PO

s SAVE EXPECTED
:SAVE DATA PATTERN

BIS

BEQ

MOV
MOV

*GENERATE EXPECTED ‘WRL''

MRL ,R3

;WRL SHOULD BE SET

508

SYES!!

§62V‘WCE TO NEXT DATA BIT

042702
001002
012702

000001

052702
000735

000001

006302

000001

L
60$:

e
BNE
MOV

#DMD ,R2

BIS
BR

#DMD ,R2
308

ASL
BEQ

#DMD ,R2
608

:DONT SHIFT DMD

R2
708

*SHIFT DATA BIT
SEXIT IF DONE

:DONT TRUNCATE TEST

sKEEP DIAGNOSTIC MODE ON
sCONTINUE TEST

708 :
MR

;END OF TEST

AR ARl

s*TEST 32
IR

020634

#8I1T1,R3

ScT)ms FER DATA TO RMMR1, READ RMDS AND VERIFY WRL

1480 020542

020620
020620
020622
020624
020630

BIS

BNE
MOV

000001

000001
000024
000012

1496 020612
1497 020616
1498
1499 020620
1500
1501

#DMD RMMR1(RO) :LOAD RMMRI
#DMD
| MwP ,RMMR1 (RD)
LOAD RMMR1
RMDS (RO) , $BDDAT ; STORE RMDS AT SBDDAT
#~CWRL, SBDDAT
208
;BRANCH IF WRL IS NOE
%L.SGDDAT
:WRL SHOULD BE SET

012760
010260
016037

89
1490 020574
1491 020574
1492 020600
1493 020602

:SET ERROR FLAG

MoV
MOV
MOV
BIC
BNE
Eng\T/

5(1); NO PREVIOUS ERROR,

1474 020512
1475 020512
1476 020520
1477 0205264

1486 020566

#BITO,R3

SEQ 0119

i(s)gr MAINTENANCE WRITE PROTECT AND VERIFY *WRL'' IS ONE

020434

467
468 020502

c 10
11-APR-80 13:58:55 PAGE 12-30

000001

jolele]

2B5RER8E SETRGR

MACRO v03.01

TST32:

000240
012706
013700
013701

001100
001276
001462

g ittt
2123222222323 2223

DRIVE FAULT TEST
A

SCOPE

NOP

MOV
MOV
MOV

R AR A AR AR R AR AR AR

RN RN RRRRRRANRERNRE RN

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

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

RESE 2

012737

S
N

D e e

MOV
ADD
CLR

001140

;INITIALIZE ERROR FLAGS

RO, SBDADR
#RMER2 $BDADR
$GDDAT

:SETUP REGISTER ADDRESS

2'DVC'* AND “UNS'* SHOULD BE ZERO

#~CDVC,$BDDAT
108

;IS ‘DVC'
SYES!!

BIS
MOV

#81T0,R3
#UNS
, SGDDAT

:SET ERROR FLAG

040000

888

MOV

001136

—

;GO CLEAR CONTROLLER

#DMD ,RMMR1(RO) :LOAD RMMR1
#0,RMER2(RO)
:LOAD RMER2
#0.RMER1 (RO)
*LOAD RMER1
RMER2 (RO) , SBDDAT
;STORE RMER2 AT $BDDAT
107

#~CUNS
, SBODAT
$GDDAT ,$8DDAT

MOV
ADD
BIT
BNE

RO, SBDADR
#RMER1, $BDADR
#UNS , SGDDAT
208

308

EMT

111

EMT

20%:

D d D

RMER1 (RO)
, SBDDAT

BIC
C¥

BEQ

—

8 8
2 5

770
7 020772

PC,CNTCLR

MOV
MOV
MOV
MOV
BIC
BEQ
EMT

000014
137777
001140

RESET??

308

110

:STORE RMER1 AT $BDDAT
;IS 'UNS'' 0K??
SYES!!

:SETUP REGISTER ADDRESS
;SHOULD ‘UNS'' BE ON??
SYES!!

5855” AND SET ‘MDF'‘, VERIFY THAT 'DVC'' IS NOT S-A=0.

) D el

SSRSR8S o
39‘0
SN
nNON

000200
000001
000101
000042
177577

MOV
MOV
MOV
MOV

#DVC,SGDDAT
:DVC SHOULD BE ON
#DMD .RMMR1(RO) :LOAD RMMR1
#DMD
! MDF ,RMMR1 (R)
:LOAD RMMR1
RMER2 (RO) , SBDDAT
:STORE RMER2 AT $8DDAT

BNE
MOV
ADD

408
RO, $8DADR
#RMER2
. $BDADR

:BRANCH IF DVC IS SET
:SETUP REGISTER ADDRESS

BIS

#8IT1,R3

:SET ERROR FLAG

BIC

001136
000042

&H
SNN&N&&

d
b
b e
—

anNoS33

b —d

—_——
—d ) ) —3

21044

OO000O000
NN

wvivionawng

;:SET TEST NUMBER IN APT MAIL BOX

;SET AND RESET MAINTENANCE DRIVE FAULT, VERIFY THAT ‘DVC'* IS NOT
*STUCK=AT=ONE.

i
d D e e
D e
D e

001136
000042
001140

CLR

#32,$TESTN

%ggnxrv THAT "UNS'* IS SAME AS 'DVC''

Rt bt b b

d e
D e
i
e
D
) e
d b
s

oV
JSR

000001
040000

001226

) b

d— e

b o b b

SEQ 0120

055614

000032

D10
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-31

000001
000000
000000
000042
177577

e o o e

h e

TV I IV IV IV TVA L LV LV LV IV LV TN LV IV IV IV, IV, IV,] w

SRV& W =0V~ RRERYRY
VB
WN=O BEYRRRUK
wi % e
LS NNRN
3 =t w
R
5%

CZRMPAD RMOS5/3/2 DSKLS TST 1
132
DRIVE FAULT TEST

EMT

000002
001140

CLR

#~CDVC,SBODAT

112

$GDDAT

:UNS SHOULD BE OFF

iggnm THAT “UNS'' IS SAME AS 'DVC''

005737
001403
012737

040000

001140

016037
042737

000014
137777

001142
001142

001140

—

$GDDAT

MOV

#UNS , SGDDAT

MOV

RMER1(R
, SBDDAT
O)

BEQ

BIC

508

#~CUNS
, SBDDAT

;CHANGE DVC TO UNS

:STORE RMER1 AT $BDDAT

/3/ 2 DSKL S IST 1

IRNNNIEE EEEFEREE
ST
RN SR8R0%888 o9S9SS
999
22998888 £3
T
3 DDV PSS

001140

001136
000014
040000

e
D

023737

D i i

D e

E 10
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-32
001142

cMP
BEQ

MOV
ADD

001136
001140

BIT
BNE
EMT

D i

—

b -l
k)
b
ek e

000001

114

80%:

000001
000000
000024
000042

sSETUP REGISTER ADDRESS
sSHOULD UNS BE ON??

sYES!!

R3
1208

;BRANCH IF ANY OTHER ERRORS

#DMD ,RMMR1(R0O)

;LOAD RMMR1

R2 ,RMMR1(RO)

;LOAD RMMR1

#1.R2

sINITIALIZE TEST PATTERN

#0 ,RMERZ2 (RQ)

;LOAD RMER?2

RMERZ2 (RO) , $BDDAT

#*CDVC,$BDDAT

$GDDAT
#MDF ,R2

000200

001140

90%:

TMMP

001136
000042
001174

—

e e

EMT

BNE

90$
#DVC,SGDDAT
$GDDAT
, $BDDAT
1008
RO, $8DADR

#RMER?2
, $BDADR
?$5$THPO

;STORE RMERZ AT $BDDAT

;GET RESULTS

s SETUP EXPECTED
;WAS MDF SET??

sNO!!
: YES-DVC SHOULD BE ON

;BRANCH IF DVC IS OK
;SETUP REGISTER ADDRESS
;SAVE TEST PATTERN

sSHIFT TO NEXT BIT POSITION

708:

1008:

1108:

1599 021334
1600
1601 021336
1602
1603

120%:
R

BIC
BNE
MOV
ASL
BEQ
BIS
BR

T*TEST 33
W

qggg.RZ

;DONT SHIFT DMD

#DMD ,R2
R2
1208
#DMD ,R2
308

;DONT TRUNCATE TEST
JSHIFT
JEXIT IF DONE
;KEEP DMD ON
2 CONT INUE

;END OF TEST

2222

75133:

SCOPE
NOP

2223232233333 3233333333333 3332232223222222222222%3

SEEK ERROR TEST
3223232333323 3333333333333 33322332223222222222222222223

sSCOPE CALL
#STACK, SP

;LOAD THE STACK POINTER

TSTQUE ,R1

;R1 _= POINTER TO DEVICE

$BASE ,RO

021356

sBRANCH IF UNS IS OK

RO, $BDADR
#RMER1, $8DADR
#UNS , SGDDAT

60$
113
708

177577
001140
000100

pry D

EEREE IS S

012769

o
N

005703
001056
012702

96 021324

$GDDAT, $BDDAT
708

SEQ 0121

:};D;flfiRE WERE NO PREVIOUS ERRORS, TEST FOR BIT INTERFERENCE ON

Nfl&g\fl\h\h\fl\h\h\h\fl\h
Vi
&&
i

sszUflfiJ-‘

60%:

—

) D e D i
v
w
i
D e
D e
i
e
b
D
d b o
i cd cd e
cd

FAULT TE ST

D od

RMPAQ

012737

001226

#33,$TESTN

;RO = UNIBUS ADDRESS

;:SET TEST NUMBER IN APT MAIL BOX

CZRMPAD RMOS/3/2 DSKLS TST 1

(=]
o
RO

o —

) e

d e

d =D

VO NOVSWN=O

ooooorrOrOr
O OOM

382E3R

SEEK ERROR TEST

F 10
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-33

055614

104116
052703

001136
000042

001136

000001
000000
000042
137777

000024
000042
001142
001142

JSR
CLR
MOV
ADD

PC,CNTCLR

SEQ 0122

;GO _CLEAR CONTROLLER

;CLEAR ERROR FLAGS

RO, $BDADR

;SETUP REGISTER ADDRESS

#RME
, $8DADR
RZ

sSET DIAGNOSTIC MODE AND VERIFY THAT ''SKI'‘' CAN BE RESET
MOV
MOV
MOV
BIC
BEQ
CLR
EMT
BIS

001140

000001

#DMD ,RMMR1(RO)

;LOAD RMMR1

#0 ,RMER2 (RO)
;LOAD RMER?
RMERZ2 (RO) , $BDDAT
;STORE RMERZ AT $BDDAT
#*CSK1,$BDDAT

108
?S'SgDAT

sBRANCH IF SKI IS RESET
:SKI SHOULD BE ZERO

#8I1T0,R3

;SET ERROR FLAG

!'(S)ET MAINTENANCE SEEK ERROR AND VERIFY THAT ‘'SKI‘‘ CAN BE SET

012769

00100

012737
052703

000001
000000
000201
000042
137777

000024
000042
000024
001142
001142

040000
000002

001140

#DMD ,RMMR1(R0O)

;LLAD RMMR1

#0 ,RMERZ2 (RO)

:LOAD RMER?2

#DMD !MSER ,RMMR1 (RO)

RMER2(RO) , $BDDAT
#*CSKI,$BDDAT

208
#SK1,$GDDAT
#BIT1,R3

;LOAD RMMR1

;STORE RMERZ AT $BDDAT

sBRANCH IF SKI IS SET
s CANT SET SKI
:SET ERROR FLAG

:IF _NO PREVIOUS ERROR, CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE
; SEEK ERROR.

005703
001051
012702

208
000001

000001
000000
000024
000042
137777
001140
000200

040000

001140

1650 021622
1651
1652
1653 021624

:
308

BNE
MOV

R3
708

sINITIALIZE TEST PATTERN

#DMD ,RMMR1(R0O)

;LOAD RMMR1

#0 ,RMER2 (RO)

001174

EMT

:LOAD RMER?

R2 ,RMMR1(RO)

;LOAD RMMR1

#*CSKI,$BDDAT

;GET SKI

RMER2 (RO) ,$BDDAT

40%:

;BRANCH IF ANY OTHER ERRORS

#1,R2

:STORE RMERZ AT S$BDDAT
STATUS

$GDDAT
zgng.RZ

sSETUP EXPECTED RESULT

#SK]1,$GDDAT

:SKI SHOULD BE ON

$GDDAT ,$8DDAT
508
t;sbsrmo

sBRANCH IF SKI IS OK
;SAVE TEST PATTERN

;ADVANCE TEST PATTERN IN R2

000001
000001
000001

50s

608:

gg’:D.RZ

sDONT SHIFT DMD BIT

#DMD ,R2
R2
70%
#DMD ,R2
308

sDONT TRUNCATE TEST
JSHIFT TO NEXT BIT
JEXIT IF DONE
;KEEP DMD ON
sCONTINUE TEST

¢l

]
SEQ 0123

1661
1662 021650

708 :

1663

1664

;END OF TEST

't"ttt".Q'tt".'t"""i"l...'t'......t..'.."t'.".'ttt

SRTEST 34

15134

001100
001276
001462
000034

1665
1666 021676
1667
1668
166

001226

055614

1670
671

001136
000012

001136

000001

000024

1672 021716
1673 021724
1674 021732
1675 021740
1676 021746
1677 021750
1678 021754
1679 021756
1680
1681
1682 021762
1683 021762
1684 021770
1685 021776
1686 022004
1687 022006
1688 022014
1689 022016
1690
1691
1692 022022
1693 022022
1694 022024
1695 022026
1696
1697
1698 022032
1699 022032
1700 022040
1701 022044
1702 022052

000401
000012
157777
104121

PIP TEST

382"

:SCOPE CALL

MOV
MOV
MOV
MOV

#STACK, SP
$BASE ,R0
TSTQUE ,R1
#34,$TESTN

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

JSR
CLR

PC,CNTCLR
R3

;GO CLEAR CONTROLLER
*RESET ERROR FLAGS

MOV
ADD

RO, SBDADR
#RMDS,SBDADR

:SETUP REGISTER ADDRESS

;SET MAINTENANCE ON CYLINDER ‘MOC'' AND VERIFY THAT ‘PIP'* CAN BE RESET.

MOV

000024

MOV

001142
001142

000001

:LOAD RMMR1

MOV
BIC

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

BIS

#81T0,R3

BEQ
CLR
EMT

001140

#DMD .RMMR1(RO)

#DMD
' MOC ,RMMR1 (RD)
108
$GDDAT
121

:BRANCH IF PIP IS RESET

:SET ERROR FLAG

1'8555' MAINTENANCE ON CYLINDER AND VERIFY THAT ‘PIP'* CAN BE SET

104122

052703

000001
000012
157777

000024
001142
001142

020000

001140

mov
MOV
BIC
BNE
MOV

#DMD ,RMMR1(RO) ;LOAD RMMR1
RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT
#~CPIP,$BDDAT
208
:BRANCH IF PIP IS SET
#PIP,$GDDAT

BIS

#81T1,R3

EMT

000002

122

; (1); NO PREVIOUS ERROR,

005703
001046
012702

'
000001

BNE
MOV

:SET ERROR FLAG

TEST FOR ADJACENT BIT SETTING ‘MOC''

708
#1,R2

:BRANCH IF ANY PREVIOUS ERROR
“INITIALIZE TEST PATTERN

gg;me THE TEST PATTERN, CHECK MOC USING PIP

1703 022060

1707 022100

"t'

..ttfi.t.t't'tttttt...t"""'t't.'tt"'.'ttt.'.'t...t.'.ttt"tt'.

021650

G 10
11-APR-80 13:58:55 PAGE 12-34

00100
052737
023737

000001
000024
000012
157777
001140
000400

020000
001140

000024

001142
001142
001140
001142

MoV
MOV
MOV
BIC
CLR
BIT

40$:

BNE
BIS
cMP

#DMD ,RMMR1 (RO) ;LOAD RMMR1
R2,RMMR1(RO)
:LOAD RMMR1
RMDS (R0) , SBDDAT :STORE RMDS AT $BDDAT
#~CPIP,$8DDAT :GET PIP STATUS

$GDDAT
#MOC ,R2

408
#PIP,$GDDAT

$GDDAT, SBDDAT

*SETUP EXPECTED RESULT

:PIP SHOULD BE SET

MACRO v03.01

CZRMPAD RMOS/3/2 DSKLS TST 1
133
SEEK ERROR TEST

bog
b aub

RERNSS
Sroonon

)
I
e e
B

) i

D e

SOOOOOOO
NN

-‘-A}-b.—l—‘.‘-‘-.l-‘

) e e e

NNNNNNYNY
NNNNNNN
n NN
S W=
VO NN
W=D

fi"Ufi;

e
b

C IRMPAD RMOS/ 3/ % DSKLS ST 1
T 34
PIP TES

—

BEQ

MOV

001174

EMT

gegvmce

042702
001002
012702
006302
001403
052702
000734

000001
000001

608:

000001

~
N

H 10
11-APR-80 13:58:55 PAGE 12-35
SEQ 0124

508

R2,$TMPO
125

:BRANCH IF PIP OK

*SAVE TEST PATTERN

THE TEST PATTERN

BIC
BNE
MOV

#DMD ,R2
608

:DONT SHIFT DMD

BIS
BR

R2
70s

#DMD ,R2
308

*SHIFT BIT
SEXIT IF DONE

ASL
BEQ

#DMD ,R2

708 :

— o

o
N
N

e e

2134

001403
010237
104123

MACRO v03.01

;DONT TRUNCATE TEST

*KEEP DMD ON
*CONTINUE TEST

:END OF

TEST

::tIt"t..ttfi*.tti".t"tt".."t.fit'..t."*....'t.lt't.tttfit"tt

T*TEST 35

EBL TEST

:;"ttt.fi'tt.t'it.fi't‘"'t"'t't..'.fit.'t"'t't"""'Q'Qfii't'.

000004
000240
012706
013700
013701
012737

1725

1
1
1
1
1

£ NNNNA dsividcidad

1726 022170
1727 022172
1728 022176
1729 022204
1

001100
001276
001462
000035
001136
000024
001140

055614
000024

N
&~

o
N

NNN

1
1
17
306
1 753 022314
1 754 022322

z(c)gpe

:SCOPE CALL

001226

MOV
MOV
MOV
MOV

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

CLR

001136

MOV
ADD
CLR

RO, $BDADR
#RMMR1
, SBDADR
$GDDAT

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

*SETUP REGISTER ADDRESS
:SETUP EXPECTED RESULT

;CLEAR AND VERIFY THAT END OF BLOCK IS RESET
JSR

157777

1
1
1
1
1
1
1
1 45 022270
1 729 022276
1
1
—

005003

TST3S:

;GO CLEAR CONTROLLER

#*CEBL
, SBODAT
108

:BRANCH IF EBL IS RESET

#BITO.R3

:SET ERROR FLAG

RMMR1 (RO)
, SBDDAT

EMT

124

BIC
BEQ

BIS

000001

PC,CNTCLR

MOV

:STORE RMMR1 AT SEODAT

i(s)gr AND RESET DIAGNOSTIC END OF BLOCK,

000001
020001
000001
000024
157777

mov

#DMD ,.RMMR1 (RO)

BIC

#~CEBL
, SBODAT

MOV
MOV
MOV
BEQ
EMT

BIS

000001

CHECK FOR EBL S-A-1.

;LOAD RMMR1

#DMD
| DEBL ,RMMR1 (RO)
:LOAD RMMR1
#DMD
. RMMR1 (RO) ;LOAD RMMR1
RMMR1 (RO)
, SBDDAT
:STORE RMMR1 AT $BDDAT
20$
125

#8I1TO,R3

;BRANCH IF EBL IS RESET

:SET ERROR FLAG

5855“ AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S=A=0

000001
020001
000024

MoV

MOV
MOV

#DMD ,RMMR1(RO)

;LOAD RMMR1

#DMD
| DEBL , RMMR1 (R0)
RMMR1 (RO)
. $BDDAT

:LOAD RMMR1
*STORE RMMR1 AT $BDDAT

| CZRMPAQO RMO5/3/2 DSKLS ST 1
135

MACRO v03.01

SRy
558

N 2R

v
W

o &~

oo
N
NN
W

22354

ESRINEE

[,¥]

S290202989

65 022360

LYLY1,¥)

D d e
d
D
d e
D e

042737

052703

157777

001142

BIC

#*CEBL
, SBDDAT

020000

001140

MOV

#EBL
, $GDDAT

)
D

EMT
BIS

005703
001042
012702

B
000001

BNE
MOV

SEQ 0125

30$

;BRANCH IF EBL IS SET

126
#BIT1.R3

:SET ERROR FLAG

55; NO PREVIOUS ERRORS,

TEST FOR ADJACENT BIT INTERFERENCE ON 'DEBL''.

70$
#1,R2

:BRANCH IF ANY ERROR
YINITIALIZE TEST PATTERN

232’75' READ AND VERIFY THE TEST PATTERN IN R2

000001
000024
000024
157777

000024
001142
001142

157777
001142

mov

#DMD ,RMMR1(RO)

BIC

#~CEBL
, SBDDAT

MOV
MOV

R2.R3
#~CEBL ,R3
R3, SBDDAT

MOV
MOV

R3, $GDDAT
R2.$TMPO

EMT

;LOAD RMMR1

R2,RMMR1(RO)
:LOAD RMMR1
RMMR1 (RO)
, SBDDAT
:STORE RMMR1 AT $BDDAT

MOV
BIC
CMP

BEQ

001140
001174

508

127

:GENERATE EXPECTED RESULT

:BRANCH IF EBL IS OK

*SAVE EXPECTED RESULT
*SAVE TEST PATTERN

gggxrr TO NEXT BIT POSITION

000001
000001

608:

000001

BIC

BNE
MOV
ASL
BEQ
BIS
BR

#DMD ,R2

:DONT SHIFT DMD

608
#DMD , R2
R2
70s
#DMD ,R2
408

:DONT TRUNCATE DMD

*SHIFT TO NEXT BIT
*EXIT IF DONE
*KEEP DMD ON
:CONTINUE TEST

708 :

— e

D e

022440

BNE

000002

D e

d d d D e ed

346
9 022350

NNNYN ~
o
~
W

) d—

D nd

) e o

SRS
EE R ST CERE PRIFINIFIIAFAY s ON233de\l\l
LY

EBL TEST

110

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

;END OF

TEST

:;fitttt't'ttt.t"tttt.t'tt'ttt'tfi'.'fi".tttt'tt.titttttttt't.fi.tt

S*TEST 36
. %

LAST SECTOR, LAST TRACK TEST

:*TRANSFER TEST PATTFTN 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.
sk

:b
b

;*RM02/03 2 *RMOS
-

LS =

18 BIT MODE
XXx035

16 BIT MODE
XXX037

LST=
LST=

002135
011935

002037
011037

::.'.'......."'t'fi.'.*fi"'.'...'.'...'.."'.'fi'.."...."'..""

022470
022474

N —

TST36:

’SwggPE
MOV
MOV

;SCOPE CALL
#STACK,SP
$BASE ,RO

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

J 10
CégHPfiO RMO5/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-37
LAST SECTOR, LAST TRACK TEST

SKESRN

NN
N

o 0000
o
j=l=]o
NN

001136
000024

33 GEREORER SERSRE

) D
D i
e
D i

b i

052737
023737
001407
010237
013737

000004
001140

001174
001440

»HO N

RMOF 0

LSTRK , 80$

#035,808

;START IN 18 BIT MODE
*SETUP LAST TRACK AND
*LAST SECTOR (29.)

PC,CNTCLR
RMOFO,RMOF
(RO)

;GO CLEAR CONTROLLER
;LOAD RMOF

#-CLS, $BDDAT
$GDDAT

:
208
:
308
35%:

001176

408
:

60$:

65%:

104131

000416

001440

INC
BNE
BIT

SYES!!

308
808 .R2
35s

:16 BIT MODE LAST SECTOR ?
:NO !!

#LS,SGDDAT

;LS SHOULD BE ON-16 BIT MODE

$GDDAT
, $8DDAT
408

;BRANCH IF LS IS CORRECT

mro.smm

*SAVE OFFSET REGISTER FOR ERROR

908

:SKIP TO NEXT

RMMR11,$BDDAT

;VERIFY 'LST'*

$GDDAT

;GENERATE EXPECTED 'LST**

*SAVE TEST PATTERN

'5'5'}"6'”‘0'0

wsen MODE 2?7

ggg.nz

18 an MODE LAST TRACK/SECTOR ?

608
80$.R2
65%

:16 BIT MODE LAST TRACK/SECTOR ?
‘NO !

#LST.SGDDAT

;LST SHOULD BE SET

%srmo

:SAVE TEST PATTERN

508

:SKIP TO NEXT

;ggon.seoon

;18 BIT TESTS DONE.

708:

GENERATE EXPECTED .’
o

18 an MODE LAST SECTOR ?

#~CLST.SBDDAT

B8l1S
CMP
BEQ
MOV
EMT
BR

IN INPUT BUFFER

ggg.nz

sADVANCE TO NEXT TEST PATTERN,

010000

+16 BIT MODE
?

R2,$TMPO

508:

032737

*LOAD

#FMT16,RMOFO

208

001440

052737
023737
001404
010237

;INITIALIZE TEST PATTERN

RMMR1 (RO) , RMMR1]
;STORE RMMR1
RMMR1I,$BODAT
;VERIFY ‘15"

001440

001140
001142

= POINTER TO DEVICE

+:SET TEST NUMBER IN APT MAIL BOX

*SETUP REGISTER ADDRESS

R2,RMDA (RO)

001356
001142
001142

1858 022770
1859 022770
1860 022772
1861 022774

108:

:R1

RO, SBDADR

#RM
1, SBDADR
MR

000032

001142
001142

R0 N
o

1853 022764
1854 022766

001136

023022

022674

1842 022722
1843 022724
1844 022730
1845 022732
1846 022734
1847 022740
1848
1849 022742
1850 022750
1851 022756
1852 022760

023022
0004
123702
001003

2662
022670
022672

TSTQUE ,R1

#36,$TESTN

001226

023022
023022
055614
001440
000006
000024
001356
177773
001149
010000

b
b
D i
i
———t -

001462
000036

VONOVSWN=O

013701
012737

D i i

i e

D i i

D s

i e

8 RBRRRRBRBE 388

022500
022504

SEQ 0126

R2
108
#FMT16,RMOFO

CHANGE TO 16 BIT MODE

s INCREMENT PATTERN
sCONTINUE IF NOT DONE

:DONE 16 BIT TEST
?

IF ALL

8 2588

S RRRS

R3ERRERERR

K 10
CZRMPAD RMO5/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-38
136
LAST SECTOR, LAST TRACK TEST
001010
012737
112737
000652

010000

000037

001440
023022

2SR

1875
1876 023052
1877 023056

012737
012737

001
0012
0014
0000

001136
000006
001440
000001
000035

ittt

A A AR A A A

A AR

001140

A A A A A A A AR AR AR AR AR AR

AR A AR AR

#STACK, SP

:LOAD THE STACK POINTER

#37,$TESTN

::SET TEST NUMBER IN APT MAIL BOX

RO, $8DADR
#RMDA
, SBDADR
RMOF 0

;SETUP REGISTER ADDRESS
;START WITH 18 BIT FORMAT

#29.,1108

*LAST SECTOR

#1,$GDDAT

023476

:SCOPE CALL

$BASE , RO
TSTQUE ,R1

001136

ittt

RMDA COUNT TEST

*RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

*SETUP FIRST COUNT

-l Sy N,

s INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT

BRI R AR IR R R SR I RIS ERERERE

:DO 16 BIT FORMAT TEST

;HOLDS LAST TRACK/SECTOR ADDRESS

SCOPE

001226

1882

023170
023170
023176
023204
023212
023220
023222
023224

—

*SET LAST SECTOR FOR 16 BIT MODE (31.)

ittt

*TEST 37

013701

-0

#037,808

90%:

AR A

—

JYES!!

T §T37:

Lol
e}

908

#FMT16,RMOFO

80$:

000000

SEQ 0127

055614
000001
000000
000000
000000
001440
001440
040001
000001

000024
000006
000032
001174
000024
000000

SECTOR O AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS
.CLEAR THE MASSBUS
.SET FORMAT

.LOAD SECTOR AND TRACK ADDRESS
.ENABLE DEBUG CLOCK
.SET GO BIT

JSR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

PC,CNTCLR

;GO CLEAR CONTROLLER

#DMD ,RMMR1 (RO) :LOAD RMMR1
#0,RMER1(RO)
:LOAD RMER1
#O.RMER2(RO)
:LOAD RMER2
#0_RMDA (RO)
*LOAD RMDA
RMOFO,RMOF
(RO) :LOAD RMOF
RMOFO . $TMPO
*SAVE OFFSET FOR ERROR TYPE
#DMD ! DBEN , RMMR1 (RO)
:LOAD RMMR1
#GO,RMCS1(RO)
;LOAD RMCS1

§§§T AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA.

060001
040001
000006
001142

000024
001142
001140

MOV
MOV
MOV
CMP

#DMD
! DBEN '
EBL ,RMMR1 (RO)
:LOAD RMMR1
#DMD
| DBEN .RMMR1 (RO)
:LOAD RMMR1
RMDA(RO)
, $8DDAT ;STORE RMDA AT $BDDAT
$BDDAT
, SGDDAT

B8R

508

BEQ
EMT

30
132

:BRANCH IF RMDA OK

;0UT OF SYNC-SKIP TO NEXT

sADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NCT
COMPLETE

%;FPAO RMOS/3/2 DSKLS TST 1
RMDA COUNT TEST

1912 023226

1913 023226
1914 023232

1915 023240

1916 023242
1917 023246
1918 023252
1919 023256

}gg? 023260

ooszgr 001140
123737

001142

105037
105237
105737
001401

001140
001141
001142

001004

L 10

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-39
308:
023476

000743

1924 023262

$GDDAT

: INCREMENT EXPECTED SECTOR

BNE

408

:NO!!

CLRB
INCB
TSTB
BEQ

1922
1923

1925 023262
}359 023270

INC

(MP8

408:

SEQ 0128

$BDDAT,110$

$GDDAT
$GDDAT+1
$BDDAT
508

25$

:WAS THE LAST SECTOR JUST COUNTED??

:YES=NEXT SECTOR SHOULD BE ZERO
: INCREMENT TRACK ADDRESS
sHAS A FULL CYCLE BEEN COUNTED??
*YES=DO NEXT

:CONTINUE SECTOR TEST

; INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK.
-LAST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE.

013737
012737

023476
000400

001414
001140

1928

508:

MOV
MOV

1108, RMDAO
#TA1.$GDDAT

START AT TRACK 0.

:START SECTOR ADDRESS = 0
*FIRST VALUE AFTER INCREMENT

.CLEAR THE MASSBUS

1929
1930

;
:

.SET FORMAT
.LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS

1932

;

.SET GO BIT

1931

1933 023276
1934 023276

1935 023302
1936 023310
1937 023316
1938 023324
}323 023332

1941

1942 023340
}34‘2 023346

1945

1946 023354
1947 023362

1948 023370
1949 023372
}32(1) 023374

004737

055614

608:

013760
013760
012760
012760
012760

001440
001414
000001
040001
000001

000032
000006
000024
000024
000000

012760
012760

060001
040001

000024
000024

016037
023737

000006
001140

001142
001142

001402
104133
000441

1952

1953 023376

1.5237

1956 023410

001002

123737

001141

001143

001331

005037
013737

001140
001142

001414

1960 023426

113737

023476

001414

032737

010000

001440

010000
000037

001440
023476

1961 023434

1962 023436
1963 023436

1964 023444
1965 023446
1966 023454
}ggg 023462

MOV
MOV
MOV
MOV
MOV

PC,CNTCLR

:GO CLEAR CONTROLLER

RMOFO,RMOF
(RO) :LOAD RMOF
RMDAO.RMDA(R0O) :L0AD RMDA
#DMD ,RMMR1 (RO) :LOAD RMMR1
#DMD ! DBEN , RMMR1 (RO)
:LOAD RMMR1
#GO,RMCS1(RO)
;LOAD RMCS1

;CLOCK RMDA USING DIAGNOSTIC END OF BLOCK
MOV
MOV

#DMD ! DBEN ' DEBL ,RMMR1 (RO)
:LOAD RMMR1
#DMD ! DBEN , RMMR1 (RO)
:LOAD RMMR1

;VERIFY RMDA ACCORDING TO $GDDAT
MOV
cMP
BEQ
EMT
BR

708:

1957 023412
1958 023416

1959 023424

JSR

RMDA
(RO) ,$8DDAT ;STORE RMDA AT $BDDAT
$GDDAT
, SBDDAT
708
133
1208

sOUT OF SYNC=SKIP TO NEXT

-SETUP FOR NEXT INCREMENT OF RMDA TRACK ADDRESS

1954 023376

1955 023402

.ENABLE DEBUG CLOCK

001404

000720

001015
012737
012737
000400

INCB

$GDDAT+1

;ADVANCE EXPECTED TRACK

BNE

80$

:NO!!

BEQ

90$

608

BIT

#FMT16,RMOFO

CMP8

80$:

CLR
MOV

MOVB

908:

BNE
MOV
MOV
BR

$BDDAT+1,LSTRK+1

:WAS THE LAST TRACK JUST COUNTED??

$GDDAT
$BDDAT,RMDAO

:YES-NEXT TRACK, SECTOR SHOULD BE ZERO
:HAS A FULL CYCLE BEEN COUNTED??

110$.RMDAO

: INCREMENT FROM LAST SECTOR

1208
#FMT16,RMOFO
#31.,1108
1008

SYES!!

;DONE BOTH FORMATS??

SYES!!
:SET FORMAT BIT FOR 16
*SET LAST SECTOR FOR 16 BIT MODE

;
|

CZRMPAQ RMOS5/3/2 DSKLS TST 1

RMDA COUNT TEST

1969 023464
}g;? 023472

012737
000137

197% 023476
197
1974 023500
1975
1976

000000

000001
023104

M 10
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-40
001140

1008:

MOV

#1,$GDDAT

;SET FIRST COUNT VALUE

1108:

.WORD

:STORAGE FOR LAST SECTOR VALUE

JMP

108

*REPEAT TEST

:
1208
"tti'.Qfitt.ttttt.'.ttttt't'iQtt.fitttttlt".t'.t"ltt.tt'.l.'tt

SRTEST 40

RMDC COUNT TEST

"'tttt't"tttt'tttfittt"'."tttit't't.fittt'l...t....tttttt.tt".

00
023502
023504
023510
023514
023520

—t

1977
1978
1979 023526
1980 023532
1981 023540
1982 023544
1983 023552
1984 023560
1985 023560
1 986 0023564
13%; 023572

000004
000240
012706
013700
013701
012737

75140:

001100
001276
001462

MOV
MOV
MOV
MOV

001226

001136
000034
001440

112737

000035

001414
001414

004737

055614
000001
000000

001140
000034

001136

1989
1990
1991

004737

055614

000032
001174
000006
000024
000024
000000

000024

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

RO, S8DADR
#RMDC,S8DADR
RMOF 0
LSTRK, RMDAO

:SETUP REGISTER ADDRESS

JSR
MOV
MOV

PC.,CNTCLR
#1.$GDDAT
#0.RMDC (RO)

;GO CLEAR CONTROLLER
*LOAD FIRST INCREMENTAL VALUE
:LOAD RMDC

#29.,RMDAO

;START WITH 18 BIT FORMAT

*SETUP LAST TRACK AND
:LAST SECTOR

.CLEAR THE MASSBUS
.SET OFFSET
-LOAD LAST SECTOR AND TRACK ADDRESS
-ENABLE DEBUG CLOCK
.SET GO BIT

JSR

MOV
MOV
MOV
MOV
MOV
MOV

PC,CNTCLR

;60 CLEAR CONTROLLER

RMOFO,RMOF (RO) :LOAD RMOF
RMOF
O $TMPO
*SAVE FOR ERROR MSG
RMDAO.RMDA(RO) :LOAD RMDA
#DMD _RMMR1(RO) :LOAD RMMR1
#DMD
| DBEN, RMMR1 (RO)
:LOAD RMMR1
#GO,RMCS1(RO)
;LOAD RMCS1

:CLOCK THE CYLINDER ADDRESS USING DEBL

001142
001142

MOV
MOV
MOV

#DMD' DBEN
! DEBL ,RMMR1 (R0)
:LOAD RMMR1
#DMD
i DBEN .RMMR1 (RO)
;LOAD RMMR1
RMDC (RO) , $BDDAT ;STORE RMDC AT $BDDAT

BEQ
EMT

308
140

[

BR
23706
023706
023712

#STACK, SP
$BASE ,R0
TSTQUE,R1
#40,STESTN

MOV
ADD
CLR
MOV

MOVB

:
:
:
:

1995 023600
996

:SCOPE CALL

;CLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS

010037
062737
005037

012760

zggPE

$GDDAT, SB8DDAT

608

;BRANCH IF RMDC=RMDC+1

:0UT OF SYNC-SKIP TO END

Ssg\_/mce EXPECTED RESULT FOR NEXT INCREMENT

005237
022737

001140
002000

001140

INC
CMP

$GDDAT
#1024, ,$GDDAT

;ADVANCE NEXT RESULT
:SHOULD NEXT VALUE BE ZERQ??

SEQ 0129

CZl

CZRMPAD RMOS5/3/2 DSKLS TST 1
140
RMDC COUNT TEST

N 10
MACRO V03.01 11-APR-80 13:58:55 PAGE 12-41

2016 023720
2017 023
22
2018 02%
2019 023732
20 023734

408:

508

001440

BNE
CLR
TST
BEQ
BR

408
$GDDAT
$8DDAT
508
208

sNO!!
s YES=RMDC SHOULD OVERFLOW
IS ONE CYCLE COMPLETE??
;YES!!
CONTINUE

BIT
BNE

#FMT16 ,RMOFO
608

DONE 16 BIT FORMAT MODE ?
; YES

MovBe

031. ,RMDAO

:LOAD LAST SECTOR FOR 16 BIT MODE

MOV

001440
001414

B8R

¢0$:

#FMT16,RMOFO

108

SSET 16 BIT FORMAT AND

*REPEAT TEST

t.t!t.ttt"ttfitt*'t't"t"'ttttttt'tititttttttt't'tt'fitttt'tttt

SRTEST 41

LBT TEST

. :tl'tttttttit.tt't."!'t.tttttfiifi'ttttititi'.tt.i'tt"'t.tttttt.t

T8T41:

001100
001276
001462
000041

#STACK, SP

;LOAD THE STACK POINTER

MOV

TSTQUE ,R1

#41,$TESTN

*R1 = POINTER TO DEVICE

001136
000012

MOV

RO, $8DADR

;SETUP REGISTER ADDRESS

001440
001330
000035

CLR
MOV

RMOF 0
LSTRK , RMDAO

;START WITH 18 BIT MODE
*SETUP LAST TRACK AND

2053 024116
2054 024122
2055
2056
2057
2058
2059
2060
2061 024124
2062 024124

ADD

MOVB

:LAST SECTOR

VERIFY THAT *LBT'' IS RESET

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV

#822. RMDC(RO)

MOV
BIC
BEQ
CLR
EMT

RMDS (RO) ,$BDDAT :STORE RMDS AT SBDDAT
#~CLBT, $8DDAT
208
;BRANCH IF LBT IS RESET
$GDDAT
:LBT SHOULD BE ZERO
141

MOV
MOV
MOV

LAS Lp¥ ]

000024

#29.,RMDAO

::SET TEST NUMBER IN APT MAIL BOX

%os

;

000001

#RMDS
, SBDADR

*RO = UNIBUS ADDRESS

CLEAR THE MASSBUS
SET FORMAT
LOAD LAST TRACK AND SECTOR
LOAD LAST CYLINDER

001140

012760

$BASE ,RO

:
:
:
:

000034
000006
b
b b

055614
001466
001414
001440
001440
000012
175777

MOV

005037
013737
112737

:SCOPE CALL

MOV

8388

2030
2031 024012
2032 024016
2033
2034 024024
2035 024030
2039 024036

aggps

RMDAO.RMDA(RO)
RMOFO_RMOF
(RO)
RMOF O, $TMPO

:LOAD RMDC

-LOAD RMDA
:LOAD RMOF
:SAVE OFFSET REG FOR ERROR MSG

gg?eLs DEBUG CLOCK

FORCE EBL

:
208:

VERIFY THAT LBT IS SET
MOV

#DMD ,RMMR1(RO)

;LOAD RMMR1

SEQ 0130 |

¢Z

B 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-42

CZRMPAQ RMOS5/3/2 DSKLS

LBT TEST

2063 024132
2064 024140
2065 024146
2066 024154
2067 024162
2068 02

012760
012760
012760
012760
012760

000014
000042
000000

MOV
MOV
MOV

000024
000024

001142
17577; 001142
002000

e
75 024220

032737

010000

001440

2077 024230

012737

010000
000037

001440
001414

2076 024226

2078 024236
2079 024244
2080 024246
2081

001007
112737
000677

40%:

;LOAD RMER1
:LOAD RMER?
:LOAD RMCS1

MOV
MOV

#DMD
! DBEN !
EBL ,RMMR1 (RO)
;LOAD RMMR1
#DMD
| DBEN .RMMR1 (RO)
:LOAD RMMR1

BIC

#~CLBT, $S8DDA

408

MOV

001140

#0,RMER1(RO)
#0.RMER2(RO)
#GO,RMCS1(RO)

BNE
MOV
EMT

BIT
BNE
MOV
MOVB
BR

RMDS (RO) iaooAr ;STORE RMDS AT $BDDAT

308
#LBT,$GDDAT
142

;BRANCH IF LBT IS SET

#FMT16,RMOFO
408
#FMT16 RMOFO
#31.,RMDAOD
108

;DONE 16 BIT FORMAT ?
“YES
!
:SET 16 BIT MODE AND
*LAST SECTOR

*TEST AGAIN

fitttttttttttl.iQtfittttt't'ttt.ttttt.'ttfi't"t'tttt.t't..fi.tttt'

RTEST 42

'.ttt"'tt.'tt'tt"fitt"'t"'ttit"tttttfi.'fitt.'.ltttt'it'ttttt"

024246

75142:

gggpe
MOV

2083
2084 024274
2085 024300
gggg 024304
2088
2089
2090 024312
2091 024320
2092 024326
2093 024334

COMPOSITE ERROR TEST

004737
010037
062737

012760
012760
012760
016037

001136

000024
000012
137777

#STACK, SP

;:LOAD THE STACK POINTER

MOV

$BASE , RO

MOV

#42,$TESTN

*:SET TEST NUMBER IN APT MAIL BOX

JSR
MOV

PC,CNTCLR
RO, $BDADR

;G0 CLEAR CONTROLLER
*SETUP REGISTER ADDRESS

MOV

001226

;SCOPE CALL

ADD

TSTQUE ,R1

#RMDS, SBDADR

‘RO = UNIBUS ADDRESS

*R1 = POINTER TO DEVICE

;USING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE
*ERROR IS RESET.

000014
000042
001142
001142

MOV

#DMD ,RMMR1(RO)

CLR

$GDDAT

MOV
MOV
MOV
BIC
BEQ

001140

EMT
MOV

#0,RMER1(RO)
#O.RMER2(RO)
RMD
(RO) , SBDDAT
S
#*CERR, S8DDAT
108

:LOAD RMMR1

:LOAD RMER1
:LOAD RMER2
:STORE RMDS AT $BDDAT
;BRANCH IF ERR IS RESET

143
#ERR,$GDDAT

040000

001140

10s:

177777
177777
000012
137777

000014

s SET BOT:OSRROR REGISTERS AND VERIFY THAT COMPOSITE ERROR IS SET
#-1,RMER1(RO)
;LOAD RMER1

000042

001142
001142

MOV

MOV
BIC
BNE
EMT

#-1,RMER2(RO)

:LOAD RMER?2

RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT
#*CERR, SBDDAT
208
;BRANCH IF ERR IS SET
Tha

§5ERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER1

SEQ 0131

CZRMPAD RMOS5/3/2 DSKLS TST 1

T42

COMPOSITE ERROR TEST

012702

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-43

MOV

000001

#1,R2

SEQ 0132

;INITIALIZE TEST PATTERN

i&ne THE TEST PATTERN AND VERIFY THAT ERR IS SET

000024
000014
000042

001142
001142

4
22 0
23 024502
Zg 024506
27 024510
28 024510
29 024512

3
32 024514
024514
34 024520
136
2137 024526
2138 024526
2139 024532
2140 024540
2141 024546
2142 024554
2143 024560
2144 024566
2145 024574
2146 024602
2147 024610
2148 024614
2149 024616

MOV
MOV
MOV
MOV
MOV
s
BNE
MOV
CLR
EMT

PC,CNTCLR

;GO CLEAR CONTROLLER

#DMD
. RMMR1(RO) :LOAD RMMR1
#0,.RMER1(RO)
:LOAD RMER1
#C.RMER2(RO)
:LOAD RMER2
R2,RMERT(RO)
:LOAD RMER1
RMDS (RO) ,$BDDAT :STORE RMDS AT SBDDAT
#~CERR, SBDDAT
408
;BRANCH IF COMPOSITE ERROR SET
R2,$TMPO
*SAVE RMER1 TEST PATTERN
STMP1
*SAVE RMER2 TEST PATTERN
145

iagvmcs THE TEST PATTERN FOR RMER1

006302
001345

BNE

308

;CONTINUE IF TEST NOT DONE

§5§R‘" THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2

012702
012737

001440

mov

MOV

#1,R2

HFMT16,RMOFO

;INITIALIZE TEST PATTERN

;SET 16 BIT FORMAT

3‘6",‘”5 THE TEST PATTERN AND VERIFY THAT ERR IS SET

000024
000014
000042
000032
001142
001142
001140
001142

MOV
MOV
MOV
MOV
MOV
MOV
BIC
MOV

PC,CNTCLR
;G0 CLEAR CONTROLLER
#DMD
. RMMR1(RO) :LOAD RMMR1
#0,RMER1(RO)
:LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
R2.RMER2(RO)
:LOAD RMER2
RMOFO,RMOF
(RO) :LOAD RMOF
RMDS (RO) ,$BDDAT :STORE RMDS AT SBDDAT
#~CERR, SBDDAT
#ERR, SGDDAT
;SETUP EXPECTED VALUE FOR COMP ERROR

CLR

$GDDAT

BIT
BEQ

65%:

(MP

BEQ
CLR
MOV
EMT

#XNUER2 ,R2
658

$GDDAT, SBDDAT

70$
$TMPO
R2,$TMP1
145

;BRANCH IF TEST BIT IS A USED BIT

<TEST BIT IS NOT USED - ERR SHOULD BE 0

;BRANCH IF COMP ERROR IS OK
*SAVE RMER1 TEST PATTERN
*SAVE RMER2 TEST PATTERN

%;wmce THE TEST PATTERN FOR RMER2

BNE

608

;CONTINUE IF TEST NOT DONE

;:ti'tttt.'tttttttttt't"'ttttttittlfittttt'tt'ttittttttt't'ttittt

024650

S*TEST 43

WRITE GO TEST

75143:

2223223223232

2232322222222121

CZRMPAD RMOS5/3/2 DSKLS ST 1
143
WRITE GO TEST

MACRO v03.01

D N
11-APR-B0 13:58:55 PAGE 12-44
&c)gpe

2163
2164 024676
2165 024702
2166

012737
010037
005002

2167
2168 024704
2169 024704
2170 024710
2171 024716
2172 024724
2173 024732
174
175

MOV
MOV
MOV
MOV
MOV

001226

001136

CLR

;SCOPE CALL

#STACK, SP
$BASE, RO
TSTQUE ,R1
#43,$TESTN
RO, $8DADR
R2

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

i&em THE MASSBUS, SET DIAGNOSTIC “ODE AND ENABLE DEBUG CLOCK

055614

JSR

MOV
MOV
MOV
MOV

041001

PC,CNTCLR

;60 CLEAR CONTROLLER

#DMD ,RMMR1 (RO) :LOAD RMMR1
#DMD | DBEN!'MUR,RMMR1 (RO) :LOAD RMMR1
#0,RMERT(RO) = :LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2

;TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1,

176 024740
177 024742
178
179
180

MOV
BIS
MOV
MOV
BIT
BNE

000001

}8 024766

183

2184 024770
2185 024776
2186 025002
2187 025004
2188
2189
2190 025006
2191 025006
2192 025012
2193 025016
2194
2195 025020
2196
2197

001100
001276
001462
00004

SEQ 0133

VERIFY GO IS SET

R2,R3
;SETUP FUNCTION CODE
#GO,R3
R3,RMCS1(RO)
:LOAD RMCS?
RMCS1(RO)
, SBDDAT
;STORE RMCS1 AT $BDDAT
#GO, SBDDAT
208
:BRANCH IF GO IS SET

;REPORT THE ERROR-CANT SET GO WITH THIS FUNCTION CODE

177700
001140

BIC

MOV
EMT
BR

#~CFNCMSK
, SBDDAT

R3,$GDDAT
146
308

;SAVE FUNCTION CODE

582"‘"“ R2 TO THE NEXT FUNCTION CODE

062702
022702
103332

000002
000076

308:

ADD

#2.R2

BHIS

10%

CMP

#I1LF76.R2

:END OF TEST

".'Qfit...t'Q.it".t'."""it'.i.'fi.'..'tt."'t"tt't"""""

RTEST 44

BRANCH MULTIPLEXOR TEST

'.."...'fifit..'t'.'.'.'t't"'.'fifi.'."t.fi.".fi"l.'.""t'..tt.t'

T5T44:

000004
000240

2198

2199 025046
2200 025052
2201 025060
2202
2203

001226
001136

zcc)gPE

MOV
MOV
MOV
MOV
MOV
ADD
MOV

:SCOPE CALL

#STACK, SP
$BASE , RO
TSTQUE ,R1
244, STESTN
RO, $8DADR
#RMMR2
, SBDADR
#1008 ,R2

:LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX
:COPY REGISTER ADDRESS
sINITIALIZE TABLE POINTER

;CLEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE

CZRHPAO RHOS/S/? DSKLS TST 1

H MULTIPLEXOR TEST

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-45

2204 025064

108:

000000
000000

PC,CNTCLR

MOV

#DMD,RMMR1 (RO)

000014
000042

MOV
MOV

#0 ,RMER1(RO)
#0,RMER2 (RO)

000024

2209 025112
2210
2211
2212
2213 025120
2214 025126
2215 025134
2216 025136
2217 025144
2218 025152
2219 025154
2220
2221
2222
2223 025156

016037
032737
001010
042737
012737
104147
000452

2225 025160
2226 025164

052703
042703

2228 025174
2229
2230 025200
2231 025204
2232 025210
2233 025210
2234 025216
2235 025224
gggg 025226

010337

000001
177700
000000
001174

116203
042703

000001
177400

012760
012760
005303
001370

141001
041001

000024
000024

016037
042737
016237
023737
001402
104150
000406

000040
167777
000002
001140

001142

2238
2239 025230
2240 025236
2241 025244
2242 025252
2243 025260
2244 025262
2245 025264
2246
2247
2248 025266
2249 025266
2250 025272
2251 025276
52 025300
2252 025302

012760

JSR

000024

MOV

SEQ 0134

;GO CLEAR CONTROLLER

:LOAD RMMR1

M'DBEN'M an (RO) ;LOAD RMMR1
:LOAD RMER1
:LOAD RMER2

:THE TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN

000040
010000

001142

167777
010000

001142
001140

001142

: THE CU’:GW SEQUENCER IS INITIALIZED.

BIT

BNE
BIC
MOV
EMT
BR

RMMR2 (RO), SBDDAT

#TST,$BDDAT

15%
#*CTST,$BDDAT
ATST,SGDDAT
147
408

;STORE RMMR2 AT $BDDAT

;BRANCH IF TEST BIT IS ON
:SETUP FOR ERROR TYPE
;SKIP REST OF TEST

;GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE.
1gge~ STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE.

MOVB
BIS

(R2).R3
#GO,R3

MOV

R3.$TMPO

*SAVE R3 FOR ERROR MSG

1(R2),R3

;GET CLOCK COUNT IN R3

BIC
MOV

MOVB

#~CFNCMSK,R3
R3,RMCST1(RO)

;R3=FUNCTION CODE. GO BIT
:LOAD RMCS1

BIC

#~C377.R3

mov
MOV

#DMD ' DBEN'MUR
! DBCK
,RMMR1(RO)
:LOAD RMMR1
#DMD | DBEN | MUR .RMMR1 (RO) :LOAD RMMR1

DEC
BNE

R3
208

:DECREMENT CLOCK COUNT
*ISSUE CLOCKS TILL ZERO

;GET THE TEST BIT AND COMPARE IT WITH THE TABLE ENTRY

001142

MOV

RMMR2 (RO) , SBDDAT

MOV

2(R2)
, $GDDAT

BIC

001140

001142

CMP
BEQ

EMT
BR

#ACTST,SBDDAT

$GDDAT
, SBDDAT
308
150
408

;STORE RMMR2 AT $BDDAT

:BRANCH IF TEST BIT OK
:SKIP REST OF TEST

Sggvs THE TABLE POINTER AND CONTINUE IF NEXT ENTRY POSITIVE

062702
105762
100401
000671
000436

000004
000001

ADD

#4 ,R2

408:

BMI
BR
BR

408
108
2008

ISTB

1(R2)

:BRANCH IF DONE TEST
*REPEAT TEST
*JUMP OVER TABLE

%5SQLE OF FUNCTION CODES, CLOCK COUNTS, AND TEST BITS

:
2259 025306
2260

.g;;g

?op

:MUX ADDRESS=DATA COMMAND

"WORD

;TEST BIT=0

BRANCH MULTIPLEXOR TEST

2 276

2277 025330
2278 025331
2279 025332
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
2 300
2301 025360
2302 025361
2303 025362
2304
2305 025364
2306 025365
2307 025366
2308
2309 025370
2310 025371
2%11 025372
2312
2313 025374
2314 025375
2315 025376
2316 025400
2317

000
002

.BYTE
.BYTE

NOP

.WORD

2
0

;TEST BIT=0

010
001
010000

.BYTE

?RVCLR

sMUX ADDRESS=Fé&

.WORD

TST

;TEST BIT=1

050
001
000000

.BYTE
.BYTE
.WORD

wCD
1

sMUX ADDRESS=F4

;TEST BIT=0

012
001
010000

.BYTE

?LEASE

sMUX ADDRESS=F4

.WORD

TST

sTEST BIT=1

.BYTE
.BYTE
.WORD

WCH
1

sMUX ADDRESS=F4

052
001

020
001
010000

.WORD

sMUX ADDRESS=UNIT READY

JTEST BIT=0

RIP
1
TST

sMUX ADDRESS=F4

;TEST BIT=1

060
001

.BYTE
.BYTE
.WORD

WD
1

sMUX ADDRESS=F4

;TEST BIT=0

022
001
010000

.BYTE
.BYTE
.WORD

7AKACK

;MUX ADDRESS=F4

TST

;TEST BIT=1

062
001

.BYTE
.BYTE
.WORD

030

.BYTE

?EARCH

sMUX ADDRESS=F4

010000

.WORD

TST

sTEST BIT=1

sMUX ADDRESS=F4&

. 001

070
.BYTE
.WORD

032
010000

.WORD

072
001

.BYTE
.WORD

fe i

2261 025310
2262 025311
2263 025312
2264
2265 025314
2266 025315
2267 025316
2268
2269 025320
2270 025321
2271 025322
2 272
2273 025324
2274 025325
2275 025326

.BYTE
.BYTE

2008:

sMUX ADDRESS=F&

;TEST BIT=0

;TEST BIT=0
{LF32

sMUX ADDRESS=F4

TST

;TEST BIT=1
sMUX ADDRESS=F4

;TEST BIT=0
;END OF TABLE
;END OF TEST

I
SEQ 0135

Tad

F 11
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-46

[T
-

CZRMPAQ RMOS5/3/2 DSKLS TST 1

6 N
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-47

CZRMPAO RMOS5/3/2 DSKLS TST 1

145

SET/RESET GO TEST

SEQ 0136

2318

523

t4745:

013701

838

000004
000240

012702

026042

012737

SCOPE

001226
nov

000024
000024
000014
000042

I 222228

SET/RESET GO TEST
I

22222222222

:SCOPE CALL
#STACK,SP

;LOAD THE STACK POINTER

$BASE ,RO
TSTQUE ,R1
#45,STESTN

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

#2008 ,R2

sINITIALIZE FUNCTION CODE POINTER

;CLEAR, THEN SET DIAGNOSTIC MODE, CLEAR COMPOSITE ERROR, SET MEDIUM
:ON LINE AND ENABLE DEBUG CLOCK
i0s:
PC,CNTCLR
;GO CLEAR CONTROLLER
#DMD ,RMMR1 (RO)
:LOAD RMMR1
#DMD !MUR ! DBEN ,RMMR1(R0O) ;LOAD RMMR1

#0 ,RMER1 (RO)
#0,RMER2 (RO)

;LOAD RMER1
:LOAD RMER?2

; TRANSFER cgf FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET

(R2) ,R3

177701

000001

;GET FUNCTION CODE

#~CILF76,R3

CLEAR UNUSED BITS

R3,RMCS1(RO)

:LOAD RMCS1

#GO,R3

;SET GO

RHCS1(R0).$BDDAT

000000
000001

001142
001142

#GO, $8DDA

177700
001140
001136

001142

#~CFNCMSK,$BDDAT"

;STORE RMCS1 AT $BDDAT

208

;BRANCH IF GO IS SET

R3,$GDDAT
?giSBDADR

sSAVE EXPECTED RESULT
:COPY REGISTER ADDRESS

1008

001140
000001

001142

000200

001140

ne 830

éggT READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO

001142

308:

—

111203

055614
000001
041001
000000
000000

—D—IN

004737
012769
012760
012760
012760

§§€3 83

2351 025566
025566
2352 025574
2353 025602
2354 025610
2355 025612
2356 025616
2357 025624
2358
2359
2360 025626
2361 025626
2362 025632
2363 025636

'TEST 45
AR

2324 025432
2325 025432
2326 025436
2327 025444
2328 025452
2329 025460
2330
2331
2332 025466
2333 025470
2334 025474
2335 025500
2336 025504
2337 025512
2338 025520
2339 025522
2340 025530
2341 025534
2342 025540
2343 025542
2344
2345
2346 025544
2347 025544
2348 025550

CLR
BIT
BNE
MOV

$GDDAT
#GO, $SBDDAT
308
#DRY , $GDDAT

MOV
BIC

#“CDRY, $BDDAT

;EXPECT DRY TO BE OFF
;WAS GO SET??
$VES!]
;GO WAS NOT SET, DRY SHOULD BE

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

$GDDAT
, $BDDAT
408
RO, $8DADR
fggDS.SBDADR

sBRANCH IF DRY IS OK
s COPY REGISTER ADDRESS

CLOCK AND VERIFY THAT GO REMAINS SET

000001
177400

1(R2) R4

50%:

#~C377 R4

:GET NUMBER OF CLOCK CYCLES

SET/RESET GO TEST

2364 025636 012760 141001
2365 025644 012760 041001

2366 025652
2367 025660

016037
042737

gggg 025672

010337

2368 025666

2371
2372 025676
2373 025700
2374 025702
2375 025710
2376 025712
%%;78 025714

010037
005304
001406
032737
001352
104153
000451

000000
177700

001136

000024
000024

001142
001142

MOV
BIC

MOV

001140

000001

MOV

001142

2379

2380 025716
2381 025716
2382 025724
2383 025726
2384 025734
2385 025736
2386 025740
2387 025740

MOV
MOV

032737
001405
042737
104154
000440

000001

001142

000001

001140

012737

000200

001140

001402
005037

016037
042737
010037
062737
023737
001401
104152

RO, $8DADR

R3.$GDDAT

*STORE RMCS1 AT $BDDAT
:CLEAR UNUSED BITS

;SETUP REGISTER ADDRESS
*SAVE EXPECTED RESULT

608:

708
:

001140
000012
177577
001136
000012
001140

001142
001142

BIT
BEQ
BIC
EMT
BR

#GO,$8BDDAT
70$
#GO,$GDDAT
154
1008

;IS GO RESET??
SYES!!
JSETUP EXPECTED RESULT

MOV

#DRY ,$GDDAT

JEXPECT DRIVE READY TO BE SET

BEQ
CLR

808
$GDDAT

SYES!!
;GO IS SET-

BIT
808
:

001136
001142

MOV
BIC
MOV
ADD
CMP
BEQ
EMT

#GO, $BDDAT

RMDS (RO) , SBDDAT
#~CDRY
, SBDDAT
RO, $8DADR
#RMDS
, SBDADR
$GDDAT,$BDDAT
908
152

*DID
GO RESET??

;STORE RMDS AT $BDDAT

;COPY REGISTER ADDRESS
;IS DRIVE READY OK??
SYES!!

sADVANCE TO THE NEXT FUNCTION CODE TO BE TESTED=EXIT IF DONE

062702
105762
100402
000137
000423

24607

2408 026042

RMCS1(RO) , SBDDAT
#~CFNCMSK
. $SBDDAT

2GO SHOULD NOW BE RESET AND DRY SHOULD BE SET

2399

2400 026022
2401 026022
2402 026026
2403 026032
2404 026034
5282 026040

#DMD 'MUR ' DBEN'DBCK ,RMMR1(RO)
:LOAD RMMR1
#DMD I MUR { DBEN,RMMRT
(RO) ;LOAD RMMR1

;DECREMENT CLOCK COUNT AND EXIT LOOP IF ZERO
DEC
R4
BEQ
608
BIT
#GO,$BDDAT
+1S GO STILL SET??
BNE
508
SYES!!
EMT
153
BR
100%
sOUT OF SYNC=SKIP TO NEXT

2388 025746 032737 000001 001142
2389 025754
2390 025756
2391 025762
025762
2392 025770
2393 025776
2394 026002
2395 026010
2396 026016
gggg 026020

SEQ 0137

000002
000001

025432

508:

1008:

ADD
TSTB
BM]
JMP
BR

#2,R2
1(R2)
1008
108
3008

;MOVE TABLE POINTER
*END OF TABLE??
SYES!!
sTEST THIS FUNCTION CODE
*GO TO NEXT TEST

; TABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

2409 026042
52}? 026043

002
001

2412 026044
52}2 026045

2008:

.BYTE
BYTE

ILFO02
1

;ILLEGAL FUNCTION CODE #2

004
001

.BYTE
BYTE

SEEK
1

:SEEK COMMAND

2415 026046
52}9 026047

006
001

.BYTE
BYTE

RECAL
1

;RECALIBRATE COMMAND

2418 026050
2419 026051

014
001

.BYTE
BYTE

OFFSET
1

;OFFSET COMMAND

-4 ]

145

H 11
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-48

NNy

CZRMPAQD RMOS5/3/2 DSKLS TST 1

(

CZRMPAD RMOS5/3/2 DSKLS TST 1

145

SET/RESET GO TEST

MACRO v03.01

I N

11-APR-80 13:58:55 PAGE 12-49
SEQ 0138

2420
2421 02605
gzgg 02605

016
001

.BYTE
BYTE

RTC
1

;RETURN TO CENTER LINE COMMAND

2424 026054
gzgg 026055

024
001

BYTE
BYTE

ILF24
1

:ILLEGAL FUNCTION CODE #24

2427 026056
gzgg 026057

026
001

BYTE
BYiE

ILF26
1

;ILLEGAL FUNCTION CODE #26

2430 026060
gzg; 026061

034
001

BYTE
BYTE

ILF34
1

:ILLEGAL FUNCTION CODE #34

2433 026062
52%? 026063

036
001

BYTE
BYTE

ILF36
1

;ILLEGAL FUNCTION CODE #36

2436 026064
gzgg 026065

042
001

BYTE
BYTE

ILF42
1

;ILLEGAL FUNCTION CODE #42

2439 026066
322? 026067

044
001

BYTE
BYTE

ILF4é

:ILLEGAL FUNCTION CODE #44

2642 026070
5222 026071

046
001

BYTE
BYTE

ILF46
1

:ILLEGAL FUNCTION CODE #46

2445 026072
5229 026073

054
001

.BYTE
BYTE

ILFS4
1

;ILLEGAL FUNCTION CODE #54

2448 026074
gz;g 026075

056
001

.BYTE
BYTE

ILFS6
1

;ILLEGAL FUNCTION CODE #56

2451 026076
gzgg 026077

064
001

.BYTE
BYTE

ILF64
1

;ILLEGAL FUNCTION CODE #64

2454 026100
gzgg 026101

066
001

.BYTE
BYTE

ILF66
1

:ILLEGAL FUNCTION CODE #66

2457 026102
gzgg 026103

074
001

.BYTE
BYTE

ILF7%4
1

:ILLEGAL FUNCTION CODE #74

2460 026104
5225 026105

076
001

.BYTE
BYTE

ILF76
1

2463 026106

000

.BYTE

gzgg 026107

377

BYTE

-1

;ILLEGAL FUNCTION CODE #76

:END OF TABLE

5229 026110

3008 :

;END OF TEST

2468

:"'.fi't..t..'tt"'l’...'."""'.fi.*'t't.'.t*"t'.'.".fi""ifi""

TRTEST 46
026110
026110
026112
026114
026120

END 1 RESET GO TEST

: : 'fi.'...t.'..t.t'.".""fi.'.t.‘.i.'..".."fifit'.'fi'fi"'.."fi."

000004
000240
012706
013700

15746:

001100
001276

SCOPE
NOP
MOV
MOV

:SCOPE CALL
#STACK , SP

$BASE , RO

:LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS

CZRMPAQ RMOS5/3/2 DSKLS

T46

MACRO v03.01

END 1 RESET GO

026124
026130

2469
2470 026136
2471 026142
2474 026146
2475 026146
2476 026152
2477 026160
2478 026166
%2;8 026174

013701
012737

MOV

001226

012702
010037

SEQ 0139

MOV

#46,STESTN

TSTQUE ,R1

;R1 = POINTER TO DEVICE

MOV
MOV

#1008 ,R2
RO, $8DADR

sINITIALIZE TABLE POINTER
:COPY RMCS1 ADDRESS

;;SET TEST NUMBER IN APT MAIL BOX

,”C)LEAR MASSBUS, THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK

004737
012760
012760
012760
012760

JSR

000024
000024
000014
000042

2481

MOV
MOV
MOV
MoV

PC,CNTCLR

;GO CLEAR CONTROLLER

#DMD.RMMR1(RO) :LOAD RMMR1
#DMD
' MUR ' DBEN, RMMR1 (RO) :LOAD RMMR1
#0 ,RMER1 (RO)
:LOAD RMER1
#0,RMER2 (RO)
:LOAD RMER2

: TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET

2484 026210
2485 026214
2486 026220
2487 026224
2488 026232
2489 026240
2690 026242
2491 026250
2492 026252
2493
249

052703
010337
010360
016037
032737
001005
042737
104151
000447

2496 026254
2497 026260

116204
042704

2495 026254

2499
2500 026264

2501 026264
2

J N
11-APR-80 13:58:55 PAGE 12-50

2505 026314

2506 026316
2507 026320
2508 026326
2509 026330
%g}? 026332
2512
2513 026334
2514 026334
2515 026342
2516 026344
2517 026352
sg}g 026354
2520
2521 026356
2522 026356
2523 026362

MOvB

BIC

177701
000001

001140
000000
000000
000001
177700

BIS

001142

R3, $GDDAT

BIT

#GO,$BDDAT

BNE
BIC
EMT
BR

001142

#GO,R3

MOV
MOV
MOV

001142

(R2) ,R3

#~CILF76,R3

MOVB

BIC

;TABLE AND SET GO

sSAVE FUNCTION CODE FOR MSG

R3,RMCS1(RO)
;LOAD RMCS1
RMCS1(
, RO)
$BDDAT
:STORE RMCS1 AT $BDDAT

208
;BRANCH IF GO IS SET
#*CFNCMSK , $BDDAT
151
60$
;OUT OF SYNC-SKIP

.ZSET THE NUMBER OF

000001
177400

:GET FUNCTION CODE FROM

CLOCK CYCLES FROM THE TABLE,

1(R2).Ré4

#-C377.R4

SAVE EXPECTED STATUS

;R4=CLOCK COUNT

g(s)zsp THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES.

012760

005304

001406
001356
104153
000417

141001
041001
000000
177700

000024
000024
001142

000001

001142

mov
MOV
MOV
gé g

BEQ

BIT
BNE
EMT
BR

#DMD 'MUR ' DBEN'DBCK ,RMMR1(RO)
:LOAD RMMR1
#DMD 'MUR i DBEN_.RMMRT (RO) :LOAD RMMR1
RMCS1 (RO)
, SBDDAT
*STORE RMCS1 AT $BDDAT
gzcmcnsx - $BDDAT

408

#GO, SBDDAT
308
153
608

:BRANCH IF GO SHOULD BE OFF

;CONTINUE IF GO IS ON
;0UT OF SYNC-SKIP

i‘éfi“" THAT GO RESET AT END1

032737
001405
042737
104154
000406

000001

001142
001140

BIT
BEQ
BIC
EMT
BR

#GO, SBDDAT
508
#GO
., S$GDDAT
154
608

:DID GO RESET??
SYES!!

§8§' THE NEXT FUNCTION CODE FROM THE

062702
105762

000002
000001

ADD

TSTB

#2.R2
1(R2)

TABLE

CZRMPAQ RMOS5/3/2 DSKLS IST 1

146

END 1 RESET GO TEST

2524 026366
2525 026370
Sgsg 026372
2528
2529 026374
2530 026374
2531 026375
2532
2533 026376
2534 026377
2535
2536 026400
Zggg 026401
2
2539 026402
2540 026403
2541 026404
2542
2543

K11
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-51

100401
000666
000404

8MI
BR

60$:

608
108

2008

SEQ 0140

;BRANCH IF END OF TABLE
*TEST THIS FUNCTION CODE

:JUMP OVER TABLE

i(r)egLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

012
002

.BYTE

‘BYTE

RLEASE

;RELEASE COMMAND

030
002

.BYTE

BYTE

:SEARCH COMMAND

032
002

.BYTE
BYTE

ILF32
2

:ILLEGAL FUNCTON #32

000
377

.BYTE
BYTE

2008 :

:END OF

TABLE

:END OF TEST

'tt"t.t"*.i't"'.t'"'t't"fi".tfi.fit.*'.....t"fi..t.ti".'tt.

LRTEST 47

SET PULSE TEST

.'tt't!tt.ttt'.ttttt't'tttttt'tQt*.Q't'ttt.tttt."t"t'ttttttt.'t

2544
2545 026432
2546 026436
ngg 026444

2549
2550 026450
2551 026450
2552 026454
2553 026462
2554 026470
gggg 026476

010037

062737
012702

15147:

001276
001462
000047

001136
000024
026702

gggps

MOV
MOV
MOV
MOV
MOV
ADD
MOV

1100

026406
026410
026414
026420
026424

000004
000240
012706
013700
013701
012737

001226

001136

:SCOPE CALL

#STACK, SP
$BASE , RO
TSTQUE ,R1
#47,STESTN
RO, $BDADR
#RMMR1
, SBDADR
#1008 ,R2

:LOAD THE STACK POINTER
‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX
;COPY REG ADDRESS FOR MSG
;INITIALIZE TABLE POINTER

(c)n.sm THE MASS BUS. ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS

004737
012760
012760
012760
012760

055614
000001
041001
000000
000000

2557
2558 026504
2559 026512
2560 026

016037
042737

000024
177677

2562 026
2563 026530
2564

000463

2568 026534

052703

2570 026544

010360

JSR

MOV
MOV
MOV
MOV

PC,CNTCLR

;VERIFY THAT CONTINUE, '‘CONT"' 1s RESET AFTER CLEAR

MOV

RMMR1 (RO) , SBDDAT

BIC

#~CCONT, S8DDAT

CLR
EMT
B8R

$GDDAT
155
708

BEQ

001140

20$

5857 THE FUNCTION CODE FROM THE

000001
177700
000000

;G0 CLEAR CONTROLLER

#DMD ,RMMR1(RO) :LOAD RMMR1
#DMD | DBEN 'MUR,RMMR1 (RO) :LOAD RMMR1
#0.RMERT(RO) = ;LOAD RMER1
#O.RMER2(RO)
:LOAD RMER2

mOvB

BIS
BIC

MOV

:STORE RMMR1 AT $BDDAT

:BRANCH IF CONT WAS CLEARED

*FOR ERROR MSG

TABLE AND TRANSFER IT TO RMCS1

(R2).R3

#GO,R3
#~CFNCMSK,R3

R3,RMCST(RO)

:R3=FUNCTION CODE AND GO

:LOAD RMCS1

Ci
Té

CZRMPAD RMOS5/3/2 DSKLS ST 1
147
SET PULSE TEST
001174

116203
042703

000001
177400

016204

000002

R3,$TMPO

;SAVE FUNCTION CODE FOR MSG

;GET THE CLOCK COUNT FROM THE TABLE
MOVB
1(R2),R3

BIC

#~C377.R3

;GET THE BIT STREAM FOR CONTINUE FROM THE TABLE

MOV

001140

- -

—=SONSN =

wé?a
=3A088

042737

000024
000024
001142
001142

BNYO

012760
012760

8
1

2593 026652
259
2595
2596 026654
2597 026654

000412

2599 026660
528? 026662

006204
000742

2598 026656

MOV

2(R2) ,R4

gggep THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS

2577
2578 026564
2579
2580
2581 026570
2582 026570
2583 026576
2584 0
2585 026612
2586

010337

2571 026550
2572
2573
2574 026554
%g;g 026560

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

MACRO v03.01

001142

mov
MOV

MOV
BIC

#DMD ! DBEN'MUR
! DBCK ,RMMR1(RO)
:LOAD RMMR1
#DMD i DBEN {MUR ,RMMR1 (RO) ;LOAD RMWR1
RMMR1 (RO)
. SBDDAT
*STORE RMMR1 AT $BDDAT
#~CCONT, S8DDAT

MOV

#CONT , SGDDAT

CLR
BIT
BEQ

40$:

CMP
BEQ
EMT
BR

$GDDAT
#BITO,R4
408

;GENERATE EXPECTED CONTINUE

$GDDAT
, SBDDAT
508
156
70%

;BRANCH IF CONTINUE IS OK
;SKIP

gggcnenem CLOCK COUNT AND SHIFT BIT STREAM

005303
001402

DEC

ASR

BEQ

608

;BRANCH IF CLOCK COUNT EXPIRED

308

*TEST NEXT CLOCK CYCLE

éegvmce TABLE POINTER-EXIT

000004
000001

ADD

#4,R2

BMI
B8R

708
108

TSTB

70$:

1(R2)

2008

*SHIFT TO NEXT CONTINUE BIT
IF DONE

;EXIT IF CLOCK COUNT NEGATIVE
*CONTINUE TEST

:JUMP OVER TABLE

1'532& OF FUNCTION CODES. CLOCK COUNTS AND CONTINUE BITS FOR TEST

2613 026703
2614 026704
2615
2616 026706
2617 026707
Sg}g 026710

002
002
000000

2620 026712

2621 026713
2622 026714

2624 026716
2625 026717
2626 026720

004
000000

.BYTE

NOP

:NOP COMMAND

.BYTE

ILF02

;ILLEGAL FUNCTION 2

‘BYTE
-WORD

4
“B0000

‘4 CLOCKS
* CONT INUE=0000

‘BYTE
.WORD

“B0O

004

.BYTE
‘BYTE
"WORD

SEEK
2
“B00

:SEEK COMMAND

006
002

.BYTE
BYTE
.WORD

RECAL
2

:RECALIBRATE COMMAND

002

“B00

SEQ 0141

C2
16

CZ;HPAO RMO5/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

MmN
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-53

SEQ 0142

010
002
000001

.BYTE
.BYTE
.WORD-

DRVCLR

:DRIVE CLEAR COMMAND

012

.BYTE
.BYTE
.WORD

RLEASE

:RELEASE COMMAND

OFFSET

;OFFSET COMMAND

003

.BYTE
.WORD

2640 026736
2641 026737
2642 026740
2643
2644 026742
2645 026743
2646 026744
2647
2648 026746
2649 026747
2650 026750
2651
2652 026752

.BYTE
.WORD
.BYTE
.WORD
.BYTE

.WORD

2655
2656 026756
2657 026757
2658 026760
2659
2660 026762
2661 026763
2662 026764
2663
2664 026766
2665 026767
2666 026770
2667
2668 026772
2669 026773
26;0 026774
2671
2672 026776

ésooo

“800

RTC

;RETURN TO CENTER COMMAND

RIP

;READ IN PRESET COMMAND

PAKACK

sPACK ACKNOWLEDGE

ILF24

;ILLEGAL FUNCTION 24

gsoo
fe111o
fe111o

geoo

.BYTE
.BYTE
.WORD

ILF26

gsoo

;ILLEGAL FUNCTION 26

.BYTE

;SEARCH COMMAND

%LFSZ

;ILLEGAL FUNCTION 32

.WORD

.BYTE
-WORD

.WORD

.WORD
.BYTE
.WORD

200%:
R

gao1

S*TEST 50

§eooo
8000

ILF34

;ILLEGAL FUNCTION 34

ILF36

:ILLEGAL FUNCTION 36

gsoo
800

;END OF TABLE

;END OF TEST
ittt

SET/RESET IVC TEST

1112332222223 222222

cggymo RMO5/3/2 DSKLS TST 1
SET/RESET IVC TEST

MACRO V03.01 11-APR-80 13:58:55 PAGE 12-54
‘.t"tt"tt'tt'tttt'.tt't'tttttttQtt"t.t'tttttt'tt't'..."."t"

027006
027006 000004
027010
027012

000240
012706

027022
027026

013701
012737

027016

2684 027034
2685 027040
2686 027046
2689 027050
2690 027050
2691 027054

013700

010037
062737
005002

t8150:

ASTACK,SP

;LOAD THE STACK POINTER

001462
000050

001226

MOV
MOV

TSTQUE,R1
#50,STESTN

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

001136
000042

001136

MOV
ADD
(LR

RO,S$BDADR
ARMER2,SBDADR
R2

:SETUP REG ADDRESS

001276

MOV

000024

2693 027070 012760
2694 027076 012760
2695 027104 016037
2696 027112 042737
2697 027120 001404
2698 027122 005037
2699 027126 . 104157

000000
000000
000042
167777

000014
000042
001142
001142

041001

000024

MOV

208:
000001
000000

2710 027160
2711 027166

016037
042737

000042
167777

gr17 027224

012760
012760

016237

042737
023737
001403
010237

104160

141001
041001

000024
000024

062752

001140

167777
001140

2721 027226
2722 027232

2723 027236

001142
001142

2728

:SKIP REST OF TEST

MOV
BIS
MOV

R2,R3
#G0,R3
RSAMCST(RO)

:SETUP FUNCTION CODE

MOV
BIC

RMER2(RO) ,SBDDAT
:STORE RMER2 AT $BDDAT
A*CIVC,$BODAT
:SET ACTUAL STATUS

BIC
CMP
BEQ
MOV

W~CIVC,SGDDAT
SGDDAT,S$BDDAT
308
R2,STMPO

:LOAD RMCSI

FNCDTB(R2) ,$GDDAT

EMT

160

062702
022702

103401

000002
000076

ADD
M

#2,R2
#ILF76.R2

BLO

408

BR
408:

:BRANCH IF IVC IS OK
:SAVE FUNCTION CODE FOR MSG

A A A AR AR

A AN

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

SET LSC TEST
A

|
|

tttttQttttttttttttttttitt'tttit.t!tittttttttttt.ttttttttt.tttt'

|
|
;

:END OF TEST

SATEST 51

;SETUP EXPECTED STATUS FROM

:BRANCH IF DONE TEST

108

;FUNCTION CODE TABLE

;ADVANCE FUNCTION CODE AND REPEAT TEST IF NOT DONE

30s:

|
|
|
;
|

|
|

#DMD'MUR!DBEN'DBCK.RMMR1(R0)
;LOAD RMMRI
#DMD!MURiDBEN,RMMR(RO) ;LOAD RMWRI

MOV

001140
001142

2724 027240 000703
2126 027242

408

MOV
MOV

001174

2719

2720 027226

:R2=FUNCTION CODE

:LOAD THE FUNCTION CODE WITH GO BIT, STEP THE COMMAND SEQUENCER OFF
;ADDRESS O AND VERIFY IVC STATUS.

010203
052703
010360

2713 027202
2714 027210
2715 027216
2716 027220

‘

#0,RMER1(RO) = ;LOAD RMER1
#O.RMER2(RO)
:LOAD RMER2
RMER2(RO) ,SBDDAT
:STORE RMER2 AT $BDDAT
#*CIVC,S$BODAT
208
:BRANCH IF IVC IS ZERO
SGDDAT
157

2705 027132
2706 027134
2707 027140

2712 027174

;RO
= UNIBUS ADDRESS

#DMDIMUR!DBEN,RMMR1(R0) ;LOAD RMMR1

MOV
MOV
MOV
BIC
BEQ
CLR
EMT

001140

2702
2703

2708 027144
2709 027152

$BASE,RO

;INITIALIZE AND VERIFY THAT IVC STATUS IS ZERO.
10s:
JSR
PC,CNTCLR
;GO CLEAR CONTROLLER
MOV
ADMD,.RMMR1(RO)
:LOAD RMMRI

2700 027130 * 000444
2704 027132

:SCOPE CALL

001100

055614
000001

012760

SCOPE

NOP
MOV

004737
012760

2692 027062

SEQ 0143

AR AR RN R

CZRMPAD RMOS5/3/2 DSKLS ST 1
51
SET LSC TEST
027242
027242
027244
272

2729
2730 027270
2;%} 027274

MACRO v03.01 11-APR-80 13:58:55 PAGEB115-55
TSTS1:

24
012706

MOV
MOV
MOV
MOV
MOV
ADD
INITIALIZE
JSR
MOV
MOV
MOV
MOV
MOV

010037

055614
000001
040001
000000

2741 027352
2742 027354
2743 027360

001403

%gPE

000042
173777

BIC

BEQ
CLR
EMT

001140

:SCOPE CALL

#STACK, SP
:LOAD THE STACK POINTER
$BASE ,RO
*RO= UNIBUS ADDRESS
rsroue R1
*R1= POINTER TO DEVICE
#51,8TESTN
*:SET TEST NUMBER IN APT MAIL BOX
RO, SBDADR
#RMER2
, S8DADR
VERIFY THAT LOSS OF SYSTEM CLOCK, ‘1SC'', IS RESET
PC,CNTCLR
;GO CLEAR CONTROLLER
#DMD,RMMR1 (RO) :LOAD RMMR1
#DMD
| DBEN, RMMR1 (RO)
:LOAD RMMR1
#0,RMERT(RO)
:LOAD RMER1
#0.RMER2(R0)
:LOAD RMER2
RMER2 (RO) , SBDDAT
;STORE RMER2 AT $BDDAT
#~CLSC, SBODAT

108
$GDDAT
161

%3?” DEBUG CLOCK ENABLED,

000000

001530

20$:

004000

001140

mov

MOV
JSR

#GO,RMCS1(RO)

#1,WATCH

PC.acLOCK

TST

WATCH

JSR

PC.,aSTOP

BNE

20$

MOV
MOV
BIC
BNE
MOV

;LOAD RMCS1

*SET WATCHDOG TIMER VALUE
*START THE CLOCK

;WAIT FOR WATCH ZERO

*STOP THE CLOCK

EMT

#DMD ,RMMR1(RO) :LOAD RMMR1
RMER2 (RO) , $8DDAT
:STORE RMER2 AT $BDDAT
#~CLSC,$SBDDAT

308
#LSC,SGDDAT

:BRANCH IF LSC SET

162

308:

2762

SET GO AND WAIT FOR ONE SHOT TO SET

;ONE SHOT SHOULD BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET.

—_—

000001
000042
173777

152120

_—

016037
042737
001004
012737

000001
000001
152130
001530

—

012737
004777
005737
001375
004777

—_—

7362
2747 027370
027376
2748 027402
2749 027406
2750 027410
2751
2752
2753 027414
2754 027422
2755 027430
2756 027436
2757 027440
2758 027446
2759
2760 027450
2761

;BRANCH IF LSC IS ZERO

:END OF TEST

'*"ttttttfi't'tttitt't"ttttfil’ttt.ttfifit'tt't..Qttt'tt't.ttt.tt'

ZRTEST 52

DECODE TEST

. 22222222233333

027450

027452

027470
2763
2764 027476
2765 027502
2766 027502

000004
000240

7S152:

001100
201276
00146
0000

012737
_
005037

001422

004737

030062

001226

2232322333333 23333333332 2223222232232323222322222233

&c’gpe

:SCOPE CALL

MOV
MOV
MOV
MOV
CLR

#STACK, SP
$BASE , RO
TSTQUE ,R1
#52,$TESTN
RMER10

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

JSR

PC,1008

;INITIALIZE

SEQ 0144

T¢

CZRMPAD RMOS5/3/2 DSKLS TST 1
152
DECODE TEST

2767
2768
2769 027506
2770 027514
2771
027522
2772 8%7526

013760
012760
012703

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-56

001422
000023

000014
000000

141001
041001

000024
000024

000012
177677

001142
001142

JEXECUTE A PACK ACKNOWLEDGE AND CHECK VOLUME VALID

2784 027610
2785 027612
2786 027614
2787 027614
2788

104163
000522

001136

004737

030062

2790 027620
2791 027626
2792 027634
2793 027640

013760
012760
012703

001422
000021
000003

000014
000000

2795 027654
2796 027656
2797 027660
2798 027666
2799 027674
2800 027676
2801 027702
2802 027704

005303
001370
016037
042737
001414
005737
001462

141001
041001

000024
000024

2804 027714
2805 027722
2806 027724
2807 027726
2808 027726
2809
2810
2811 027732
2812 027740

062737
104163
000455

2803 027710

2813 027746
2814 027752
027752
2815 027760
2816 027766
2817 027770
2818 027772
2819 030000
2820 030006

010037

MOV
gg\c/
BNE
MOV
BIC

#DMD 'MUR ' DBEN'DBCK ,RMMRT(R0)
:;LOAD RMMR1
mflsIMUR
i DBEN,RMMRT(R0O) :LOAD RMMR1
108
;ISSUE NEXT CLOCK IF COUNT NOT O
RMDS (RO) , $BDDAT :STORE RMDS AT SBDDAT
#~CVV,$BDDAT

TST

RMER10

CLR
MOV
ADD

$GDDAT
RO, $8DADR
#RMDS
, SBDADR

*SETUP ERROR MESSAGE

B8R

808

;SKIP

JSR

PC.1008

;INITIALIZE AND SET DIAGNOSTIC MODE

EMT

708

163

:BRANCH IF WV IS ZERO

;BRANCH IF VV SHOULD BE SET

001142
001142

MOV
MOV
MOV
MOV
‘,','2!
BNE
MOV

RMER10,RMER1 (RO)
;LOAD RMER1
#RIP!GO,RMCS1(RO)
*LOAD RMCS1
#3.R3
:R3=CLOCK COUNT
#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)
:LOAD RMMR1
Rsmemsoeeu.m1 (RO) ;LOAD RMMR1
308
;ISSUE NEXT CLOCK IF COUNT NOT ZERO
RMDS (RO) , $BDDAT :STORE RMDS AT SBDDAT

BEQ

408

;BRANCH IF VOLUME VALID NOT SET

708
$GDDAT

;BRANCH IF VOLUME VALID SHOULD BE SET
;SETUP ERROR MESSAGE

BIC

RMER10

MOV
ADD

RO, $8DADR
ARMDS
, SBDADR

808

;SKIP

JSR

PC, 1008

;INITIALIZE AND SET DIAGNOSTIC MODE

BEQ
CLR

001136
e

#eCvy, SBDDAT

TST

EMT

004737

030062

013760
012760
012703

001422
000051
000002

000014
000000

041001

141001

000024
000024

MOV
MOV
MOV
MOV
gg\c/

000024
077777

001142
001142

BNE
MOV
BIC

012760
012760
005303
001370
016037
042737
001414

208

;LOAD RMFR1
:LOAD RMCS1

;EXECUTE A READ IN PRESET AND CHECK VOLUME VALID

001422
001140
001136
000012

RMER10, RMER1 (R0)
#PACACK 'GO,RMCS1(RO)
#3,R3

BEQ

000012
177677

MOV
MOV
MOV

BEQ

001422
001140
001136
000012

SEQ 0145

163

;EXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED

BEQ

RMER10, RMER1 (RO)
;LOAD RMER1
MJCD
! GO, RMCST (RO)
*LOAD RMCS1
#2.R3
:R3=CLOCK COUNT
#DMD'MUR'DBEN'DBCK,RMMR1(RO)
:LOAD RMMRI
cgm'mmoeeuRMMR1(RO) :LOAD RMWR1
508
;ISSUE NEXT CLOCK IF COUNT NOT ZERO
RMMR1 (RO) , $BDDAT”
:STORE RMMR1 AT SBDDAT
#~COCC, SBODAT

60%

sBRANCH IF OCCUPIED IS RESET

CZRMPAQ RMOS5/3/2 DSKLS ST 1
152
DECODE TES

2821 030010

MACRO v03.01 11-APR-80 13:58:55 PAGED115~57

001422

001140
001136
000024

TST

RMER10

CLR
MOV

$GDDAT
RO, $BDADR

BEQ

001136

70%

sBRANCH IF OCCUPIED SHOULD BE SET

;SETUP ERROR MESSAGE

ADD

#RMMR1 , $BDADR

80$

EMT

164

6\6?“’* VALID AND OCCUPIED DID NOT SET~SEE IF

001422

SEQ 0146

TST

RMER10

BNE

80%

COMP ERROR WAS ACTIVE

;BRANCH IF COMP ERROR WAS SET

; COULD ME);TSET V¥6gR OCCUPIED-SUSPECT DECODE FLOP NOT SETTING

38
2839 030050
2840 030050

2845 030056

sREPEAT TEST WITH COMPOSITE ERROR ACTIVE-VERIFY THAT DECODE FLOP

58?55 NOT SET, AS INDICATED BY VOLUME VALID AND OCCUPIED.

012737
000611

001422

000510

ggv

gtsNS.RHENO

sUSE UNSAFE TO SET COMP ERROR

80%:

2008

;END OF TEST

AR A

A A A

A A A A A AR AR A A AR A AR AR A AR AR

AR AR AR AR AR

AR AR RN AR

SlBRWTINE USED DURING TEST
SRR A

A A

A A AR AR

AR A AR A AR AR AR AN AR AR AR

AN AR RN AR

AR AN

sUSING DIAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR.
igggIFY THAT VvV, ERR, AND OCC ARE ZERO.

2854
0
2855 030102
2856 030110
2857 030116
2858 030122
2859 030126
2860 030134
2861 030142
2862 030150
2863 030152

2866

2867 030172
2868 030174
2869 030176
2870 030200
030200
2871 030206
2872 030214
2873 030216
2874 030222
2875 030230

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

$GODAT

;SETUP FOR ERROR MSG

#*CERR,SBDDAT
1108
143

;BRANCH IF COMP ERROR ZERO

000024
000024
000014
000042

MOV
MOV
MOV
MOV

#DMD ,RMMR1 (RO) :LOAD RMMR1
#DMD
MUR ! DBEN,RMMR1(RO) ;LOAD RMMR1
#0 ,RMER1(RO)
:LOAD RMER1
#0,RMER2 (RO)
:LOAD RMER2

001136
001142

MOV
ADD
MOV

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

CLR

001142

1108

001142
001142

001136

MOV
BIC

1208

001142
001142

BIC
BEQ
EMT

BEQ
EMT
BR

MOV
BIC
BEQ
MOV
?g?

1408

;SKIP TEST

RMDS (RO) , $BDDAT ;STORE RMDS AT $BDDAT
#*CVV,$BDDAT
1208
135
1408

;BRANCH IF VOLUME VALID ZERO

;SKIP TEST

RMMR1(RO) , SBDDAT
:STORE RMMR1 AT $BDDAT
#*COCC,$BDDAT
1308
sBRANCH IF OCCUPIED ZERO
RO, $S8DADR
:SETUP ERROR MESSAGE
mmé 1,$BDADR

Té

CZRMPAD RMOS/3/2 DSKLS TST 1
152
DECODE TEST

gg;g 030232

E 12

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-58

000420

2878
2879

2880 030234

:SKIP TEST

;TO VERIFY THAT THE DECODE FLOP IS RESET, LOAD AN ILLEGAL FUNCTION
:IN RMCST1 AND VERIFY THAT ILF DOES NOT SET.

2881 030234

012760

2886 030264

062737 000014

2882 030242
2883 030250
2884 030256
2885 030260

1408

SEQ 0147

016037
042737
001410
010037

2887 030272
%ggg 030274

104167
012716

ggg? 030300

000207

000024

000014
177776
001136

000000

130s:

001142
001142

#ILF24 ,RMCS1(RO)

ADD

#RMER1, SBDADR

MOV
BIC
BEQ
MOV

001136

030302

MOV

140%:

EMT
MOV

150%:

RTS

:LOAD RMCS1

RMER1(RO) ,$BDDAT
:STORE RMER1 AT $BDDAT
#~CILF ,SBDDAT
1508
;BRANCH IF ILF IS ZERO
RO, $BDADR
;SETUP ERROR MESSAGE

167
#2008, (SP)

;DONT GO BACK TO TEST

JRETURN TO TEST OR EXIT TEST

gggg 030302

2008 :

2891.

;.-ttttttttttttttttttttttttt'ttt.ttttt'tttttttt'tttttt'ttttttt"tt

**TEST 53

030302

;;tttttttttttttttttttt't"tttttttttttttttttttittt.'tt"ttt.tttttt

75153:

030302
030304
030306
030312
030316
2895 030322

000004
000240
012706
013700
013701
012737

001100
001276
001462
000053

2896 030330

010037

001136

2897 030334
gggg 030342

2901 030346
2902 030346

2903 030352

2905 030366
2906 030374
2907 030402

2908 030410
2909 030416
2910 030420
2911 030424

062737
012702

000012
030546

004737

055614

042737
001403
005037
104135

177677

012760
012760
012760
012760
016037

000001
041001
000000
000000
000012

001226

000024
000024
000014
000042
001142

2915 030426
2916 030430
2917 030434

2918 030440
2919 030444

2920 030450

2921 030454
030454

SCOPE
NOP
MOV
MOV
MOV
MoV

MOV

001136

ADD
MOV

;SCOPE CALL

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

;LOAD
;RO =
;R1 =
2:SET

RO, $BDADR

+SETUP REGISTER ADDRESS

#RMDS
, SBDADR
#1008 .R2

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

;R2=TABLE POINTER

JINITIALIZE AND USE DIAGNOSTIC MODE TO RESET VOLUME VALID
108
:
JSR
PC,CNTCLR
;GO CLEAR CONTROLLER

MOV
MOV
MOV
MOV
MOV

001142

BIC
BEQ
CLR
EMT

001140

2913

2914 030426

SET/RESET VOLUME VALID TEST

#DMD ,RMMR1(RO) :LOAD RMMR1
#DMD 'MUR ' DBEN,RMMR1
(RO) :LOAD RMMR1
#0,RMER1(RO) = ;LOAD RMER1
#0.RMER2 (RO)
*LOAD RMER2
RMDS (RO) , $8DDAT :STORE RMDS AT $8DDAT
#~CVV, SBODAT
20%
$GDDAT
135

JBRANCH IF VOLUME VALID ZERO

;EXECUTE THE FUNCTION CODE IN THE TABLE

111203
042703
052703

010360
116204
042704

012760

208:
177701
000001

000000
000001

(R2),R3
#~CILF76,R3
#GO,R3

BIC

#~C377.R4

MOV

#DMD ! DBEN MUR ! DBCK ,RMMR1 (R0)

MOV
MOVB

177400
141001

MOVB
BIC
BIS

000024

308:

R3,RMCS1(RO)
un%) R4

:GET FUNCTION CODE

;LOAD RMCS1
*GET CLOCK COUNT
:LOAD RMMR1

SET/RESET VOLUME VALID TEST

041001

000024

001174
000100
2931 030526
2932
2933
2934 030530
2935 030530
2936 030534
2937 030540
2938 030542
2939 030544
2940
2941
2942 030546
2943 030546
2944 030547
2945
2946 030550
2947 030551
2948
2949 030552
2950 030553
2951
2952 030554
2953
2954

MOV

“IZFD!DBEN!M.M1 (RO) ;LOAD RMMR1

BNE
MOV
BIC
BNE
MOV
MOV
EMT
BR

308
;ISSUE COCKS TIL R4 ZERO
RMDS (RO) , SBDDAT :STORE RMDS AT $SDDAT
#CVV, SBODAT
408
:BRANCH IF VOLUME VALID SET
R3,$TMPO
*SAVE FUNCTION CODE FOR MSG
#VV,SGDDAT
170
508

DEC

000012
177677

iegvmcs

000002
000001

THE

TABLE POINTER, EXIT IF DONE

ADD

#2,R2

g;u

?82

;EXIT IF COUNT IS NEGATIVE

2008

;:JUMP OVER TABLE

TSTB

50$:

SEQ 0148

1(R2)

; (r)egLE OF FUNCTION CODES AND CLOCK COUNTS

.BYTE

RIP

;READ IN PRESET COMMAND

.BYTE

PAKACK

:PACK ACKNOWLEDGE COMMAND

.BYTE
BYTE

‘BYTE
BYTE

2008 :

:END OF

TABLE

:END OF TEST

::.'t'..t*tfi'.*"t'tt*"'.t't'.tfi.".t"tt"""tti"tt't"'."'.

T*TEST 54

ILLEGAL FUNCTION TEST

.'.'tt""t.l‘."""t""i't't"fi.".'.fi"."""'.'.".".'.t'.!tt

000004
000240

013701
012737

15754

001100

001276
001462
000054

001226

005002

055370

208:

000002

041001

000001
000000

000024

aggpe

:SCOPE CALL

MOV
MOV
MOV
MOV

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

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

CLR

;INITIALIZE FUNCTION CODE VALUE

JSR

PC,SETVV

;GO SET VOLUME VALID

BR
MOV

508
#2,Ré4

:SKIP TEST IF ERROR
;R4=CLOCK COUNT

20%

sBRANCH TO 208 IF NO ERROR

JEXECUTE THE TEST FUNCTION CODE AND VERIFY ILF
MOV
#DMD !MUR ! DBEN ,RMMR1(RO) ;LOAD RMMR1
MOV
R2,R3
;SETUP FUNCTION CODE IN R3
BIS
#GO,R3
MOV
R3,RMCS1(RO)
;LOAD RMCS1

~ina

MACRO v03.01 11-APR-80 13:58:55 PAGE 15-59

-4 —]

RMPAD RMOS5/3/2 DSKLS TST 1

2l
Fal

b
b

b
-

30%:

000024
000024
b

141001
041001

760

83888

2967 030642

MACRO V03.01 11-APR-80 13:58:55 PAGE61213-60

CZRMPAD RM05/3/2 DSKLS TST 1
154
ILLEGAL FUNCTION TEST

SEQ 0149

MOV
MOV
DEC

#DMD 'MUR ! DBEN ! DBCK ,RMMR1(RO)

MOV

RMER1(RO) , SBDDAT

:LOAD RMMR1

:Emsmn!oaeu.mi (RO) ;LOAD RMMR1
308

;STORE RMER1 AT $BDDAT

#*CILF ,$BDDAT
SETUP ACTUAL ILF STATUS
FNCDTB(R2) ,$GDDAT
;GET EXPECTED ILF STATUS
#*CILF ,SGDDAT

ngDAT.SBDDAT
0

RO, $BDADR

001136

#RMER1, $BDADR

sBRANCH IF ILF IS OK
;SETUP FOR ERROR MSG

R 2,87MPO

171

;ADVANCE TO THE NEXT FUNCTION CODE AND REPEAT TEST

40%:

2988 030756
2989
2990

508:
S

#2,R2

ADD
cMP
BLO
BR

S*TEST 55

#ILF76,R2

508
108

AR AR AR AR

;END OF TEST
R AR R AR AR A AR R AR R AR AR AR AR AR AR

OCCUPIED TEST

LA A SRRl
i3
22232222 7

030756
030756
030760
030762
030766
030772
030776

2991
2992 031004
2993

2996 031006

000004
000240
012706
013700
013701
012737

TST55:
001100
001276
001462
000055

SCOPE

:SCOPE CALL
#STACK, SP

$BASE ,RO

TSTQUE ,R1
#55,8TESTN

001226

005002

CLR

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS

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

sINITIALIZE FUNCTION CODE

:GET THE DEVICE READY

004737

108:

055370

JSR
BR
EMT
BR

PC,SETVV

20%

;GO SET VOLUME VALID

;BRANCH TO 208 IF NO ERROR

508

, ENABLE DEBUG CLOCK AND LOAD THE FUNCTION CODE

000024

20$

MOV
MOV
BIS
MOV
MOV

#DMD !MUR ! DBEN ,RMMR1(R0O) ;LOAD RMMR1
R2,R3
sASSEMBLE FUNCTION CODE AND

#GO,R3

R3,RMCS1(RO)

#2,Ré4

:GO BIT IN R3

;LOAD RMCS1

sR4=CLOCK COUNT

. STEP THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE

000024
000024

508

MOV
MOV

#DMD 'MUR ' DBEN ! DBCK , RMMR1 (R0)

:LOAD RMMR1

#DMD i MUR | DBEN.RMMRT
(RO) :LOAD RMMR1

¢z

CZRMPAD RMOS5/3/2 DSKLS TST 1

155

OCCUPIED TEST

3011 031060
338}% 031062

3014

3015 031064
3016 031072
3017 031100
3018 031104
3019 031112
3020 031114
3021 031122
3022 031130
3023 031132
3024 031136
3025 031142
3026 031150
%gg 031152

MACRO v03.01 11-APR-80 13:58:55 PAG

SEQ 0150

005304
001370
016037
042737
005037
032762
001403
012737
023737
001411
010237
010037
062737
104173
000406

DEC
BNE
000024
077777
001140
001000

001142
001142

100000
001140

001140
001142

001174
001136
000024

001136

35%:

062702
022702
103401
000707

000002
000076

508:

3038

MOV
BIC
CLR
BIT
BEQ
MOV
cMP
BEQ
MOV
MOV
ADD
EMT
BR

ADD
cMP
BLO
BR

031170
031170
031172
031174
031200
031204

000004
000240
012706
013700
013701

012737

001100
001276
001462
000056

3041 031216
3042 031222

004737
012760

055614
000001

MOV

000000

000042

012760
012760
012760

177777
177777
177777

000006
000034
000032

3053 031274
3382150 8;}3385

012760
012702

000021
000003

000000

3056 031306

012760

141001

000024

3057 031314

012760

041001

222222222 23

adddd ittt
I3 2222223243 23

MOV

000014

012760

3052

READ IN PRESET TEST

SCOPE
NOP
MOV
MOV
MOV

JSR
MOV

3384‘2 031244

3048 031252
3049 031260
3382(1) 031266

000024

000000

SEXIT IF DONE

:SCOPE CALL

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

;LOAD
;RO =
;R1 =
s;SET

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

;CLEAR AND ENABLE DEBUG CLOCK - LEAVE VOLUME VALID RESET

041001

3047

AR AR

001226

012760

#2,R2
#ILF76,R2
508
108

LA AR SRRttt d

TST56:

3043 031230

3044 031236

RMMR1(RO), SBDDAT
;STORE RMMR1 AT $BDDAT
#~COCC, SBODAT
$GDDAT
s GENERATE OCC FROM AOE
#AQE ,FNCDTB(R2)
35%
#0CC,SGDDAT
$GDDAT
, $BDDAT
408
sBRANCH IF 0OCC IS Ok
R2.,$TMPO
sSAVE FUNCTION CODE
RO, $BDADR
sSETUP REGISTER ADDRESS
#RMMR1, $BDADR
173
508

;END OF TEST

;*TEST 56

3040

s ISSUE NEXT CLOCK TIL R4 ZERO

;ADVANCE TO NEXT FUNCTIONCODE, EXIT IF DONE

408:

338%9 031170

3039 031210

R4
308

;VERIFY OCCUPIED STATUS

062752

3029

3030 031154
3031 031154
3032 031160
3033 031164
338;‘50 031166

=61

000024

PC,CNTCLR
#DMD ,RMMR1 (RO)

:60 CLEAR CONTROLLER
:LOAD RMMR1

#0 ,RMER1(RO)

:LOAD RMER1

MOV

#DMD 'MUR ! DBEN, RH'U (RO) ;LOAD RMMR1

MOV

#0,RMER2 (RO)

:LOAD RMER2

sLOAD ALL ONES IN RMDA, RMDC AND RMOF
MOV
MOV
MOV

#-1,RMDA (RO)
#-1.RMDC (RO)
#-1,RMOF (RO)

;LOAD RMDA
sLOAD RMDC
:LOAD RMOF

;LOAD READ IN PRESET COMMAND AND STEP THE CLOCK TILL SET PULSE
108

MOV
MOV

#RIP!GO,RMCS1(RO)
#3,R2

MOV

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

MOV

;LOAD RMCS1
:R2=CLOCK COUNT

;LOAD RMMR1

#DMD
!MUR i DBEN,RMMRT (RO) ;LOAD RMMR1

3058 031322
3059 031324
3060
3061
3062 031326
3063 031332
3064 031334
3065 031336
3066 031342
3067 031346

005302
001370
016002
005702
001413
016002
042702
001406

DEC
BNE

108

SEQ 0151

;ISSUE 3 CLOCKS

;SEE IF RMDA OR RMDC OR RMOF IS ZERO
MOV
SfiZ‘DA(RO) .R2
;STORE RMDA AT R2

000006

TST

BEQ

208

000034
176000

MOV

RMDC (RO) ,R2

000032
161577

BEQ

MOV

20 s

RMOF (RO) ,R2

BEQ

208

BIC

#XNUDC ,R2

#XNUOF ,R2

;BRANCH IF RMDA IS ZERO

:STORE RMDC AT R2

s CLEAR UNUSED BITS
:BRANCH IF RMDC IS ZERO

:STORE RMOF AT R2

;CLEAR UNUSED BITS

:BRANCH IF RMOF IS ZERO

sREAD INE:?ESET s'I%:HAND DIDNT CLEAR ANY OF THE 3 REGISTERS
208:

:END OF TEST

";Qfit'*'ttt"."*t"fit."t"'*fi'.'t.'."'ttti'."".'!'fit'i.tt.'.

;*TEST 57
- §-i

18157:

3078
3079 031412

001100
001276
001462
000057

010037

3080 031416
3081 031424

062737
005037

001136
000032
001140

3083
3084 031430
3085 031434
3086 031442
3087 031450
3088 031456
3089 031464

004737
012760
012760
012760
012760
012760

055614
000001
041001
000000
000000

3091
3092 031472

012760

177777

RIP/RMOF TEST

SCOPE
NOP

MOV
MOV
MOV

#STACK,SP
$BASE ,RO
TSTQUE R1

MOV

#57 ,$TESTN

001136

MOV
ADD

#RMOF , $BDADR

JSR

MOV
MOV
MOV

000042
000032
000000

000024
000024

001142
001142

MOV
MOV

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

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

RO, $BDADR

;SETUP REGISTER ADDRESS AND

$GDDAT

;EXPECTED RMOF

sINITIALIZE AND SET BITS IN RMOF
000024
000024
000014

2222233232322232332322222222223

;SCOPE CALL

001226

CLR

PC,CNTCLR

;GO CLEAR CONTROLLER

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

:LOAD RMER2
*LOAD RMOF

#DMD,RMMR1 (RO)
- LOAD RMMR1
#DMD
'MUR ' DBEN, RMMR1 (RO) :;LOAD RMMR1
#0,RMER1(RO) = ;LOAD RMER1

;EXECUTE A READ IN PRESET IN DIAGNOSTIC MODE TILL SET PULSE
MOV
#RIP'GO,RMCS1(RO)
LOAD RMCS1

MOV

#3,R2

MoV

#DMD 'MUR ' DBEN'DBCK
.
RMMR1(RO)

BNE

108

ggg

RZ-CLOCK COUNT

:LOAD RMMR1

ggnosnunsoee~.nnnn1<no> :LOAD RMMR1

;ISSUE 3 CLOCKS

;VERIFY THAT RMOF IS ZERO

MOV
BIC

BEQ
EMT

RMOF (RO), SBDDAT :STORE RMOF AT S$BDDAT
#XNUOF, SBDDAT
208
175

;BRANCH IF RMOF

IS ZERO

~Inu

112

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-62

- ]

CZRMPAD RMO5/3/2 DSKLS TST 1
156
READ IN PRESET TEST

RIP/RMOF

TEST

3104
3105 031544
3106
3107

WN—-O

012737

75160:

ZR3

000004
000240

001226

005037

001140

004737
012760
012760

012760

055614
000001
041001
000000
000000
177777
177777

012760
012702

000021
000003

000000

141001

000024
000024

041001

000006
001142

RMDA/RMDC/RIP TEST

000006

g(c)gps

:SCOPE CALL

MOV
MOV
MOV
MOV

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

CLR

$GDDAT

;LOAD 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
JSR

MOV
MOV
MOV
MOV
MOV
MOV

000024
000024

000014
000006
000034

001142

PC,CNTCLR

:GO CLEAR CONTROLLER

#DMD,RMMR1 (RO) :LOAD RMMRT
#DMD
'MUR ! DBEN, RMMR1 (R0) ;LOAD RMMR1
#0,RMER1(RO) ~ :LOAD RMER1
#0,RMER1(RO)
:LOAD RMER1
#-1,RMDA(RO)
:LOAD RMDA
#=1.RMDC(RO)
:LOAD RMDC

;EXECUTE READ IN PRESET TILL SET PULSE

.
T

MOV
MOV

#RIP'GO,RMCS1(RO)
#3,R2

mov

#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)
:gm.'mmoaen.m1 (RO)

;LOAD RMMR1

BNE

108

;ISSUE 3 CLOCKS

BKE)\CI

;LOAD RMCS1
:LOAD RMMR1

;VERIFY RMDA IS ZERO
MOV

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

BEQ
MOV
ADD
EMT

208
RO, $BDADR
#RMDA
, $BDADR
i76

TST

001136

$BDDAT

sBRANCH IF RMDA RESET

égERIFY RMDC IS ZERO
—

001136

001136
000034

—

000034
176000

NN
NN
AN
AN
—
) AN
el
D NN
)
)
=D e
)

W
l\l\l\l\l\
N = OO SLERR

001136

3145 031762
3146
3147

;END OF TEST

'.fitt'tttil*'t.'.ittt*'i""t'.'tQ.tt"t.tttttt'.'...t.t"tttt'Qt

USE e

—

W
e
A
= —
2222

Yo [ ¥}

[elelelelelele]
WWWWWWW
=lele]

ad aub

SRTEST 60

—

g_a-l_n-n_n—l—n
VNIV

d
e
d e
e
d
—

N
N -

WWWWWWW WWW WW

pt4 — bk

3108
§109 031572

)

"t'.ti't.!ttt"fi'fi't"'Qtitfifi.t.tt't.ttt!'t".'."Qt'.tt"t.'.

888

031544

208:

SEQ 0152

MOV

RMDC (RO) , SBDDAT ;STORE RMDC AT S$BDDAT

BIC

#XNUDC, $BDDA

ADD

#RMDC
, $BDADR

BEQ
MOV
EMT

308
RO, $BDADR

;BRANCH IF RMDC RESET

177

308 :
M

;END OF TEST
e

'TEST €l

OFFSET COMMAND TEST

1332322222322 2222222223

-~in

157

J 12

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-63

CZRMPAQ RMOS5/3/2 DSKLS TST 1

t161:

0
3148
3149 032010
3150 032014
g}g% 032022

3153 032030
032034
032036
3154 032040
3155 032042
032042

3157
3158 032050
3159 032056
3160 032064
3161 032070
032070
3162 032076
3163 032104
3164 032106
§16S
166

3167 032110
3168 032116
3169 032124
3170 032126
3171 032130
3172

001226
010037
062737

001136
001140

012737

MACRO v03.01 11-APR-80 13:58:55 PAGEK11%~64

004737

000433

000034
012760
012760
012702

000024
000000

012760
012760
005302
001370

000024
000024

016037
042737
001001
104200

001142
001142

s AT
2222232322 2232322222222

%gpe

:SCOPE CALL

MOV
MOV
MOV
MOV
MOV
ADD
MOV

#STACK, SP
$BASE ,R0
TSTQUE ,R1
#61,8TESTN
RO, $8DADR
#RMDS
, SBDADR
#OM, $GDDAT

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

JSR
?:r

PC,SETWV
10§

;GO SET VOLUME VALID
*BRANCH TO 10$ IF NO ERROR

408

mov

#0,RMDC (RO)

:LOAD RMDC

;ENABLE DEBUG CLOCK AND EXECUTE OFFSET COMMAND

MOV
MOV
MOV

#DMD 'MUR ' DBEN, RMMR1 (R0) :LOAD RMMR1
#OFFSET !GO, RMCS1(RO)
:LOAD RMCS1
#2.R2
*R2=CLOCK COUNT

Moy
gg\c/

#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)
:LOAD RMMR1
:gm:mnsoazu.m1 (RO) :LOAD RMMR1
208
;ISSUE 2 CLOCKS

BNE

;VERIFY THAT OFFSET MODE IS SET

MOV
BIC
BNE

408:

3173

SEQ 0153

EMT

RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#~COM, SBODAT
408
;BRANCH IF OM IS SET
200

:END OF TEST

:;tt.tt'ttt'tit'tttttttttt't'tttt't'tttttit.tttttt't.tttttttttttt

S*TEST 62

RETURN TO CENTER TEST

'.Qittt..ttt.tttt'tt!"'tttt'tlitttitttttttttttti!.ttttt.ttttttt'

TsT62:

032150
3174
3175 032156
g};s 032162
3178 032170
032174
032176
3179 032200
3180

012737

001100
001276
001462
2

010037
062737

001136
000012

004737
000402
104000
000465

055370

'sxc’gps

:SCOPE CALL

001226

MOV
MOV
MOV
MOV

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

001136

MOV
ADD

RO, $8DADR
#RMDS
, SBDADR

JSR

PC,SETWV

608

g:r

10§

: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

—“h

CZRMPAD RM0S5/3/2 DSKLS TST 1
61
OFFSET COMMAND TEST

CZRMPAQ =E05/3/2 DSKLS TST 1
T62
TURN TO CENTER TEST

MACRO v03.01 11-APR-80 13:58:55 PAGEL11%-65

SEQ 0154

iggr OFFSET DIRECTION AND OFFSET

000032

012760
737

104000

mov

#OFD,RMOF (RO)

2'3"

20§

JSR

PC,SETOM

:LOAD RMOF

*GO SET OFFSET MODE

*BRANCH TO 208 IF NO ERROR

é(E)hslABLE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND

055370

3190 032232
3191 032232
3192 032240
3193 032246
3194 03222%

o
000024
000000

012702

000024
000024

012769

001142
001142

o
T

JSR
E:r

PC,SETWV
30§

BR
mov
MOV
MOV
mov
ggxcf

608
#DMD 'MUR ! DBEN, RMMR1 (RO) :LOAD RMMR1
#RTC1GO,RMCS1(RO)
*LOAD RMCS1
#2,R2
#DMD 'MUR ' DBEN!DBCK,RMMR1(R0)
:LOAD RMMR1
:gmsmazoeen.m1 (RO) :LOAD RMMR1

BNE

408

;GO SET VOLUME VALID
*BRANCH TO 308 IF NO ERROR

;ISSUE 2 CLOCKS

;VERIFY THAT OFFSET MODE IS RESET

MOV
BIC
BEQ
CLR
EMT

RMDS (RO) , SBDDAT ;STORE RMDS AT $BDDAT
#~COM, SBDDAT
508
$GDDAT
201

;BRANCH IF OFFSET MODE RESET

g‘éfi”" THAT OFFSET DIRECTION IS RESET

001142
001142

)
D

608 :

RMOF (RO) ,$BDDAT ;STORE RMOF AT SBDDAT
#~COFD, S8DDAT

MOV
ADD

RO, SBDADR
#RMOF
, SBDADR

BEQ
CLR

001136

—

mov
BIC

EMT

608
$GDDAT

:BRANCH IF OFD IS RESET

202

:END OF TEST

fitfittt.ttttt'tttfitfi't"itttttttttttttttfittfi*tttttt'tttttt!ttt't

RTEST 63

3218
3219 032402
3220 032406
3221
3222 032414

2‘i'.tt'ttttiittttitttttt'i'.'Q*tfi..tttt'ttt"ttt'.ttttt'ttttti't

75763:

00
76
62
3

010037
062737

001136
000012

004737

055370

012737

888

032354
032354
032356
032360
032364
032370
032374

RMDC CLEAR OFFSET TEST

gggps

:SCOPE CALL

001226

MOV
MOV
MOV
MOV

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

001136

MOV
ADD

RO, $8DADR
#RMDS
, SBDADR

JSR

PC,SETWVV

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

;GO SET VOLUME VALID

CZRMPAQ RMOS5/3/2 DSKLS TST 1

T63

RMDC CLEAR OFFSET TEST

032422
3223 032424
3224 032426
3225 032426
032432
032434
26
3227
3228 032436
3231 032452
3232 032460
3233 032462
3234 032466
3235
3236 032470
3237
3238

M 12

MACRO V03.01 11-APR-80 13:58:55 PAGE 12-66

000402
104000
000421

004737

-~
"

055512

ga"

108

;BRANCH TO 108 IF NO ERROR

408

:SKIP REST OF TEST

JSR
B8R

PC,SETOM
20§

EMT

:GO SET OFFSET MODE
*BRANCH TO 208 IF NO ERROR

é&ms THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO

000012
177776

000034
001142
001142

mov
MOV
BIC
BEQ
CLR
EMT

001140

#0,RMDC (RO)
;LOAD RMDC
RMDS (RO) , ssooAr *STORE RMDS AT $BDDAT
#~COM, S8DDA
408
$GDDAT
203

408:

:END OF TEST

.'.'ttt'tttt*tittttitttttt'tt"'ttttttttfifitQttfittt'tittttitttttttt'

T*TEST 64

EBL CLEAR OFFSET TEST

.':tt'lttttt.t*ttttifi'*tttt".'ttttttfittt'ttl’tttt.t*tt'tt'ttttttttt

032470

TST64:

001226
001414 001414

001136
.

3246 032554
3247 032556
3248 032523

000032
000006

000024
000000
000024
000024
001142
001142
3261 032650

SEQ 0155

208 :
T

g(c)gpe

:SCOPE CALL

MOV
MOV
MOV
MOV
MOV
MOVB
MOV
ADD

#STACK, SP
$BASE ,R0O
TSTQUE ,R1
#64,STESTN
LSTRK, RMDAO
#31.,RMDAO
RO, $8DADR
#RMDS
, SBDADR

:LOAD THE STACK POINTER
‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX
;SETUP LAST TRACK AND
*LAST SECTOR
:SETUP REGISTER FOR ERROR MSG

JSR
Efin

PC,SETW
108

;GO SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR

BR
JSR
B8R

308
PC,SETOM
208

mov
MOV

#FMT16,RMOF
(RO) :LOAD RMOF
RMDAO,RMDA(RO) :LOAD RMDA

;SKIP REST OF TEST IF ERROR
:GO SET OFFSET MODE
.-aamcu TO 208 IF NO ERROR

:FORCE END OF BLOCK AND VERIFY THAT orrser nooe IS CLEARED

MOV
MOV
MOV
MOV
MOV
BIC
BEQ
CLR

#DMD 'MUR
! DBEN,RMMR1(R0O) ;LOAD RMMR1
#GO,RMCS1(RO) " ;LOAD RMCS1
#DMD 'MUR ' DBEN'DEBL ,RMMR1(R0)
:LOAD RMMR1
#DMD
!MUR i DBEN .RMMR1 (RO) ;LOAD RMMR1
RMDS (RO) | seooAr :STORE RMDS AT $BDDAT
#~COM, SBODAT
308
:BRANCH IF OFFSET IS ZERO
$GDDAT

EBL CLEAR OFFSET TEST

3262 032654
%563 032656

104204

308:

3265

EMT

204

SEQ 0156
:END OF TEST

t'Q"ttt'tt'i*fi."t'tt""""tt..fi'.tt.ttt't..'.'.t'ttt'.t..tt

“TEST 65

RUN AND GO TEST

..'tfi.'.*...tfi'fi"..Qi'tit""fitfitfi.'*.tt.fi.t..ifi."Q'.tt'!t..t"

032656

75765:

001100
001276
001462
000065

001226

001140

3269 032712
3270 032716
3271
3272
3273 032724
3274 032724

001136
000024

gggps

MOV
MOV
MOV
MOV

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

CLR
CLR

$GDDAT
R2

MOV
ADD

001136

:SCOPE CALL

RO, SBDADR
#RMMR1, SBDADR

;LOAD THE STACK POINTER
*RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*;SET TEST NUMBER IN APT MAIL BOX
;INITIALIZE EXPECTED RESULT
*INTIALIZE FUNCTION CODE

;gLEAR THE MASSBUS AND ENABLE DEBUG CLOCK

055614
000001
040001
000000
000000

JSR

MOV
MOV
MOV
MOV

PC,CNTCLR

;GO CLEAR CONTROLLER

#DMD ,RMMR1 (RO) +LOAD RMMR1
#DMD | DBEN , RMMR1 (R0)
:LOAD RMMR1
#0,RMERT(RO)
;LOAD RMER1
#0.RMER2(R0)
:LOAD RMER2

:LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP

S
oo

888

.
—_—

000024
137777
001140

001530

—_—

000001
000200
146532
000000

146472
001174

mov

RMMR1 (RO)
, SBDDAT

CMP

$GDDAT
, S8DDAT

BIC

#G0,R3

#~CRG, SBDDAT

208

;ASSEMBLE FUNCTION CODE AND GO
:SET WATCHDOG TIMER VALUE
*START THE CLOCK
:LOAD RMCS1
;STORE RMMR1 AT $BDDAT
:BRANCH IF RUN AND GO FLOP OK

&slg

%\;cu

;TAKE ANOTHER SAMPLE

JSR
MOV
EMT
BR

PC,aSTOP
R2.$TMPO
205
408
PC,aSTOP

:STOP THE CLOCK
sSAVE FUNCTION CODE FOR MSG
:SKIP REST OF
:STOP THE CLOCK

ERE

146456

IF CLOCK NOT ZERO

;ADVNACE TO NEXT FUNCTION CODE - EXIT IF DONE

000002
000076

ADD

#2.R2

CMP
BLO
MOV

R2, MJCD
30§
#RG, SGDDAT

CMPBLO

000050

3305 033104
3306

R2.R3
#200,WATCH
PC,aCLOCK
R3.RMCST(RO)

BEQ

001530

040000

MOV
BIS
MOV
JSR
MOV

001140

30$:

#I(F76.R2
408

108

;EXIT IF DONE

*CHANGE EXPECTED RESULTI IF
*DATA COMMAND
:REPEAT TEST

- I

T64

MACRO v03.01 11-APR-80 13:58:55 PAGEN115-67

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CZRMPAD RMO5/3/2 DSKLS TST 1
165
RUN AND GO TEST

B 13

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-68

SEQ 0157 |

%3.36; 033106

408:

3309

:;t'ttttt'tt.ttt.tttt'tt't't'tttttfit.t.ttt'tt'ttttt.ltt.t"t'ttit

;END OF TEST

S*TEST 66

033106

"ttttt'tt'tttttt"t!.t't"'t.tt't'tt.Qtt.tt.tttttt.tttt't.tt.t.t

75166:

033106

000004

033112
033116
033122
e 033126

012706
013700
013701
012737

001100
001276
001462
000066

3311 033134
3312 033140

012702

033302

004737

055370

033110

3313 033140

033144

033146

§§}’§ 033150

3316
3317 033152

3318 033152
3319 033160
gg? 033166

000240

000402

001226
108 :

104000

3323 033174

012760

041001

000024

3325 033204

042703

177701

3327 033214

010360

3326 033210

3328 033220

052703

000001

116204

000001

012760
012760

;gg 033246

001370

005304

3339 033250

016004

gs}z} 033260

001007

3343

0462704

3344 033262

062702

3346 033272
g}sz; 033275

100401
000721

3345 033266

105762

3349

3350 033276
3351 033276

#1008 ,R2

;R2=TABLE POINTER

JSR

PC,SETWV

|
5

208

508

;GO SET VOLUME VALID

:BRANCH TO 208 IF NO ERROR
:SKIP REST OF TEST

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

:LOAD RMDA
:LOAD RMDC
:LOAD RMOF

;ENABLE DEBUG CLOCK AND LOAD FUNCTION coos m RMCSI WITH GO ON

MOV

#DM
'MUR ' DBEN,RMMR1
D
(RO):LOAD RMMR]

BIC

mum R3

MOV

R3 mcs1 (RO)

MOVB

BIS

MOVB

BIC

(R2).R3

GO,R3

1(R

rc377m.

:;LOAD RMCS1

;GET CLOCK COUNT

;CLOCK THE COMMAND SEQUENCER

3332 033230
3333 033230
3334 033236

3340 033254

MOV

MOV
MOV
MOV

000000

3331

3338

|
|
|
!

;LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT TO 18
208:

gggg 033224 042704 177400

3335 033244

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

000006
000034
000032

111203

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

EMT

000453

:SCOPE CALL

MOV
MOV
MOV
MOV

177777
177777
000000

3324 033202

SCOPE

NOP

012760
012760
012760

3322

SET IAE TEST

141001
041001

000014

000024
000024

308:

#DMD 'MUR ! DBEN ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
#DMD 'MUR | DBEN.RMM(RO)
R1 :LOAD RMMR1

BNE

308

DEC

MOV
BIC

BNE

RMER1(R0) ,R4

#~CIAE R4

508

;STORE RMER1 AT R&

;BRANCH IF IAE SET

;IAE DID NOT SET - TRV ANOTHER FUNCTION CODE

000001

ADD

#2,R2

BMI
BR

408
108

ISTB

1(R2)

;BRANCH IF ALL CODES TRIED

; CANNOT SET IAE WITH ANY COMBINATION OF ADDRESS AND FUNCTION CODE

104206

|
|

;SEE IF IAE HAS SET

175777

000002

MOV
MOV

408:

EMT

206

:
|

|
g
,

%ggHPAO RMOS5/3/2 DSKLS TST 1
SET IAE TEST

3352
3353 033300
3354
3356 033302
3357 033302
ggSB 033303

c 13

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-69
SEQ 0158

000411

50$:

2008

;:JUMP OVER TABLE

%‘r)egu OF FUNCTION CODES AND CLOCK COUNTS FOR TEST

.BYTE
BYTE

:SEARCH COMMAND

004
002

.BYTE
BYTE

SEEK
2

;SEEK COMMAND

062
002

BYTE
BYTE

WH
2

;WRITE HEADER COMMAND

052
002

.BYTE
BYTE

WCH
2

;WRITE CHECK HEADER COMMAND

3369 033312
§§7° 033313

072

002

.BYTE
BYTE

RH
2

;READ HEADER COMMAND

3372 033314
3;73 033315
337
3375 033316
33;9 033317
33
3378 033320
3379 033321
3380
3381 033322
3382 033323
3383
3384 033324
3385

060
002

.BYTE
BYTE

WD
2

:WRITE DATA COMMAND

050
002

.BYTE
BYTE

WD
2

;WRITE CHECK DATA COMMAND

070
002

.BYTE
BYTE

RD
2

:READ DATA COMMAND

377

.BYTE
‘BYTE

-1

3360 033304
3361 033305
3362
3363 033306
3364 033307
3365
3366 033310
3367 033311
3368

030
002

2008 :

:END OF

TABLE

:END OF TEST

,.'ttfi't't'..'ti't.tfil't"ttt'fifit.*.t.'t!..tt'ti"'fitt."'tit.."

T*TEST 67

033324

3387
3388 033352
3389 033354
3390 033354
033360
033362
3391 033364
3392
3393
3394
3395 033366
3396 033366

SEARCH, SEEK, READ, WRITE TEST

..tttttttttl’tttttttttttt"tt'ttt.tttt.tt"tt'itt'ttt'tttttt.'t'tt

000004
000240
012706
013700
013701
012737

15167:

001100
001276
001462

000067 001226

005002

:SCOPE CALL

MOV
MOV
MOV

#STACK, SP
$BASE , RO
TSTQUE ,R1

CLR

MOV

055370

sggpe

?fir

#67,$TESTN

PC,SETWV
20§

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

*:SET TEST NUMBER IN APT MAIL BOX
;INITIALIZE FUNCTION CODE

;G0 SET VOLUME VALID

*BRANCH TO 208 IF NO ERROR

508

;LOAD INVALID TRACK, SECTOR AND CYLINDSR ADDRESS AND SET FORMAT
égg 18 BIT MODE

012760

177777

000006

Moy

#-1,RMDA(RO)

:;LOAD RMDA

D13

CZRMPAQ RMOS/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-70
167
SEARCH, SEEK, READ, WRITE TEST

3397 033374
33% 033402

3400

3401 033410

012760
012760

177777
000000

000034
000032

012760

041001

000024

3402 033416
3403 033420
360'; 033426

010203
052703
010360

000001
000000

3407 033430

012704

000002

033434

012760

fi}} 033452

001370

3408 033434

3409 033442
3410 033450

141001

012760
005304

041001

3414 033454
3415 033462
3416 033470
3417 033476

016037
042737
016237
042737

000014
175777
062752
175777

3419 033512

001411

3421 033520
3422 033526

062737
010237

%’2‘3’3 033534

000406

3413

3418 033504
3420 033514

3423 033532

023737

001140

010037

001136

104207

000014
001174

702
023702

3431 033550

000701

s}gg 033552

:LOAD RMDC
:LOAD RMOF

;ENABLE DEBUG CLOCK AND LOAD FUNCTION cooe m RMCS1 WITH GO ON
MOV

MOV
BIS
MOV

#DMD
'MUR ' DBEN,RMMR1 (R0O):LOAD RMMR1

R2.R3
#GO,R3
R3, RMCS1(R0)

ASSEFBLE CODE AND GO

sLOAD RMCS1

000024

308:

000024

001142
001142
001140
001140

MOV

#2 R4

MOV

#DMD ' MUR ! DBEN ! DBCK , RMMR1 (R0)

BNE

308

MOV
DEC

:LOAD RMMR1

#DMD 'MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
R4

sVERIFY IAE ACCORDING TO FUNCTION CODE TABLE

001142

MOV
BIC
MOV
BIC

RMER1(RO) ,$BDDAT
#~CIAE
, $SBDDAT
FNCDTB(RZ2) ,$GDDAT
#*CIAE ,SGDDAT

BEQ

408

ADD
MOV

#RMER1, SBDADR
R2,$TMPO

508

CMP

MOV

001136

EMT

$GDDAT
, SBDDAT

RO, $BDADR

207

;STORE RMER1 AT $BDDAT

;ASSEMBLE EXPECTED IAE
:BRANCH IF IAE OK

+SET UP ERROR MSG

;SKIP REST OF TEST

sADVANCE TO NEXT FUNCTION CODE = EXIT IF DONE

3428 033536
3429 033542

3430 033546

#<1,RMDC (RO)
#0,RMOF (RO)

;CLOCK THE COMMAND SEQUENCER TO SET PULSE

3426

3427 033536

MOV
MOV

SEQ 0159

103401

408:

000002
000076

ADD
cMP

#2.R2
ILF76,R2

108

BLO

508 :

508

:END OF TEST

ttttttttttttttttttttttttttttttttttttttt'ttttttt't'ttttttttttttt

tresr 70

033552

033554
033556

'.tttttttttttttttttttttttttt'tttttttttttttttttttttttttttttttttttt

7S170:

000004

000240
012706

001100

013700
013701
012737

001276
00146
0

001226

3436 033600
332% 8%36“%

013737
105237

001415

001330

001414

3439 033612

004737

055370

033620
3440 033622

104000
000477

000402

SCOPE

NOP
MOV

033562
033
A 033572

033616

INVALID TRACK/SECTOR TEST

:SCOPE CALL
#STACK,SP

MOV
MOV
MOV

$BASE ,R
TSTQUE, m
#70,$TESTN

MoV
INCB

RMDAO+1

JSR

PC,SETW

EMT
BR

1008

LSTRK ,RMDAO

208$

;LOAD THE STACK POINTER

:RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
::SET TEST NUMBER IN APT MAIL BOX
JINITIALIZE 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

2442
3443

;CLEAR DESIRED CYLINDER, LOAD INVALID TRACK ADDRESS, AND SET
18 BIT FORMAT

3444 033624

3445 033624 012760
3446 033632 013760
fizg 033640 012760
3449

000000 000N34
001414 000006
000000 000032

3450 033646

012760

041001

3452 033662

012703

000002

3451 033654

3453 033666
3454 033666

3455 033674

3456 033702

3;3; 033704

3459

3460 033706
3461 033714
3462 033722
3463 033724

012760
012760

012760
005303

000031
141001

041001

3467 033752

000024
000024

016037
042737
001015
012737

001142
001142

002000

001140

:LOAD RMDC
:LOAD RMDA
*LOAD RMOF

#DMD
'MUR ' DBEN,RMMR1(RO);LOAD RMMR1

MOV

#2.R3

#SEARCH!'!GO, RHCS1 (RO)

#DMD 'MUR ! DBEN ' DBCK ,RMMR1 (RO)

DEC

308

MOV
BIC
BNE
MOV

RMER1(RO) ,$8DDAT
#~CIAE
, $BDDAT
408
#1AE ,SGDDAT

EMT

210

MOV
ADD
MOV

;LOAD RMMR1

#DMD {MUR | DBEN_.RMMR1 (RO) :_CAD RMMR1

;ISSUE 2 CLOCKS

:VERIFY IAE IS SET

001136
001174

LOAD RMCS1

MOV

BNE

104210

;STORE RMER1 AT $BDDAT
;BRANCH IF IAE IS ON
;SETUP ERROR MESSAGE

RO, S8DADR
#RMER1
, SBDADR
RMDAO,
$ TMPO

1008

sADVANCE TO NEXT RMDA ADDRESS

105737
001411
105237
123727
101705

3479 034006

3323% 034022

308:

000024

000014
175777

#0,RMDC (RO)
RMDAO,RMDA
(R0)
#0, RMOF (RO)

MOV
MOV

000422

3471 033756
3472 033756
3473 033762
3474 033764
3475 033770
3476 033776

3480 034012
3481 034020

MOV
MOV
MOV

JEXECUTE A SEARCH COMMAND TO WHERE °'‘SET PULSE” IS ACTIVE

000000

3470

3477; 034000

208:

001370

364 033732 010037 001136
3465 033736 062737 000014
3466 033744 013737 001414

33223 033754

SEQ 0160

408:

001415

001415
001415

000200

012737

000035

001414

005237

001414

123727
101674

001414

000200

RMDAO+1
50%
RMDAO+1
RMDAO+1,#128.
10%

#29. ,RMDAO

%22‘2 LgAD SECTOR ADDRESS AND

INC

RMDAOD

INCRE*NT SECTOR ADDRESS

MOV
50%:

1008 :

3‘8‘

TSTB
BEQ
INCB
CMPB
BLOS

CMP8B
BLOS

TESTING INVALID SECTORS ?
SYES !
INCREFENT TRACK ADDRESS
*DONE
?
*NO, TEST NEXT TRACK ADDRESS

RMDAOD,#128.
108

*DONE
?
NO TEST NEXT SECTOR ADDRESS

ttlttttttttttttttttttI"tttttttttttttttttttttttttlttttt'ttt"tt

tTEST 71

034022

.,ttttttttttttttttttttttttt'ttttttt'ttttt!tttttttttttt!t'tt'tt'tt

034022

000004

034032
034036
e 034042

013700
013701
012737

034024
034026

3486 034050
34,87 034056

INVALID CYLINDER TEST

000240
012706

012737

TST71:

SCOPE

NOP
MOV

001100

001276
001462
000071

001226

001467

001442

108:

:SCOPE CALL
#STACK,SP

MOV
MOV
MOV

$BASE ,RO
TSTQUE ,R1
#71.8TESTN

MOV

#823. ,RMDCO

;LOAD THE STACK POINTER

‘RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN API MAIL BOX
;SET FIRST INVALID CYLINDER

-—

170

E 13
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-71

-o |

CZRMPAD RMOS5/3/2 DSKLS TST 1

CZRMPAD RMOS5/3/2 DSKLS TST 1
INVALID CYLINDER TEST

3488 034056
034062

004737

F 13
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-72

055370

3489 034066
3490 034070
3491 034070
3492 034076
3493
3494
3495 034104

001442
000000

000034
000006

041001

000024
000000

000002
141001

041001

000024
000024

3516 034214

3517 034220
3518 034226
3519 034230

PC,SETW

508

000014
175777

001142
001142

002000
001136
000014
001442

001140

mov

MOV

;GO SET VOLUME VALID

208

*BRANCH TO 20$ IF NO ERROR

:SKIP IF ERROR

RMDCO,RMDC
(RO)

:LOAD RMDC

#0,RMDA (RO)

*LOAD RMDA

;ENABLE DEBUG CLOCK AND EXECUTE SEARCH COMMAND

3501 034142

3502
3503
3504 034144
3505 034152
3506 034160
3507 034162
3508 034170
3509 034174
3510 034202
3511 034210
3512 034212
:
3513
35143515 034214

JSR

?fin

SEQ 0161

MOV
MOV
MOV

#DMD 'MUR
! DBEN, RMMR1 (RO) ;LOAD RMMR1
#SEARCH'GO,RMCS1(RO)
:LOAD RMCS1
#2.R3

MoV

#DMD 'MUR ' DBEN'DBCK ,RMMRT(RO)
Rm3 iMUR i DBEN.RMMRT (RO)

:LOAD RMMR1

BNE

308

;ISSUE 2 CLOCKS

gg\c/

:VERIFY IAE IS SET

MOV
BIC
BNE
MOV
MOV
ADD
MOV
EMT
BR

001136
001174

RMER1(RO)
, $BDDAT
#~C IAE , SBODAT
408
#IAE , SGDDAT
RO, SSDADR
#RMER1, SBDADR
RMDCO, $TMPO
211
508

:LOAD RMMR1

:STORE RMER1 AT $8DDAT
:BRANCH IF IAE IS SCT
*SETUP ERROR MESSAGE

iegvmce CYLINDER ADDRESS

005237
023727

103713-

001442
001442

002000

T
50%:

INC
(MP

BLO

RMDCO
RMDCO,#1024.
108

: INCREMENT CYLINDER ADDRESS
:DONE?

*NO,

TEST AGAIN

tt".tttttt'tt'tl'tt"""'tfi.fil7'fittfii...t.i.t..'t'.t.'t'titt'

RTEST 72

SET AOE TEST

‘..i'"fit'.t'."".'l"""'.i.'.'fitfiifi't'i."t'."'.fittttttfi.'Qt

15172:

3522
3523 034256
3524 034262
gsgs 034270

MOV
MOV
MOV
MOV
CLR
MOV

012737
005037
013737
112737

MOVB

3527

3529 034276

3530 034276
034302

%gpe

:SCOPE CALL

#STACK , SP
$BASE , RO
TSTQUE ,R1
#72.$TESTN
RMOF 0
LSTRK , RMDAO
#29.,RMDAO

LOAD THE STACK POINTER
= UNIBUS ADDRESS
m= POINTER TO DEVICE
1:SET TEST NUMBER IN APT MAIL BOX
:18 BIT FORMAT MODE
*SETUP LAST TRACK AND
*LAST SECTOR

;ENABLE DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS, MEMORY ADDRESS AND
182RD COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET

004737
000402

055370

égR

PC,SETWVV

15§

;GO SET VOLUME VALID

*BRANCH TO 158 IF NO ERROR

034304
%S%} 034306

MACRO v03.01

SEQ 0162

104000
000504

012760
012760
005302
001379

000024
000024

3550
3551 034414
%ggg 034422

012760
012760

000024
000024

3561 034466

001174
000034
000006
000002
000004
000000

362
3541 034370
3542
3543
3544 034374
3545 034374
3546 034402
3547 034410
ggzg 034412

3562
0
3563 034472
3564 034472
3565 034500
3566 034502
3567 034510
3568 034516
3568 034520

EMT

000024
000032

3554
3555 034430
3556 034436
3557 034444
3558 034446
3559 034452
3560
034460

G 13

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

012702

408

mov
MOV

#DMD
'MUR ! DBEN,RMMR1 (R0O) :LOAD RMMR1
RMOFO,RMOF (RO ;LOAD RMOF

;SKIP TEST IF ERROR

MOV
MOV
MOV
MOV
MOV
MOV
MOV

RMOF
0. $TMPO
:SAVE OFFSET REG FOR ERROR MSG
#822. .RMDC(RO) :LOAD RMDC
RMDAO.RMDA(RO) :LOAD RMDA
#=512. RMJC (RO) :LOAD RMWC
#BUFFER, RMBA (R0)
:LOAD RMBA
#JD
' GO, RMCS1(RO)
*LOAD Rncs1
#14.R2
:R2= CLOCK COUN

MOV
gg\c/
BNE

#DMD 'MUR ' DBEN'DBCK ,RMMR1(RO)
:LOAD RMMR1
nmz iIMUR i DBEN.RMMRT (RO) :LOAD RMMR1

:CLOCK COUNT z-os 3-04 14=60.
.
é&ocx THE COMMAND SEQUENCER TO GENERATE SET PULSE

016037
042737
001012
010037
062737

104212
032737
001007
012737
112737
000667

000014
176777

001136
000014
001000

010000
010000
000037

001142

;ISSUE 2 CLOCKS

;FORCE EBL TO GET TO OVERFLOW ADDRESS

MOV
MOV

#DMD 'MUR ' DBEN'DEBL ,RMMR1(RO)
:LOAD RMMR1
#DMD 'MUR | DBEN.RMMR1 (RO) :LOAD RMMR1

;VERIFY THAT ADDRESS OVERFLOW ERROR IS SET

001142

001136

001140

001440
001440
001414

208

MOV
BIC
BNE
MOV
ADD
MOV

RMER1 (RO)
, SBDDAT
;STORE RMER1 AT $BDDAT
308
:BRANCH IF AOE IS SET
RO, S8DADR
*SETUP ERROR MESSAGE
#RMER1 , SBDADR
#AOE
, SGDDAT

BR
ghxlg
MOV
MOVB
B8R

408
zsr;nb,nnoro

EMT

308 :

40%:

#~CAOE , SBODAT

212

AFMT16,RMOFO
#31..RMDAO
108

;END OF TEST

oogg]a BIT FORMAT TEST ?
-SET 16 BIT FORMAT MODE AND
*LAST SECTOR

.'l'tttt"t'tttttttt.tt'"'t"tt'ttfit'ttt't.tttt"'t"tt'tt.'tt'

LATEST 73

SET RMR TEST

.'Q!'fi'tttttttt'ttfitfi"ti"t't'.ifittt't'Qfi'.tt.it'ittt'.'t'fi'tt.t

RSt

n—

75173:

001462
001136
0000
034726

»H

010037
062737
012702

3572
3573 034546
3574 034552
%g;g 034560

001226
001136

%gpe

:SCOPE CALL

MOV
MOV
MOV
MOV

#73,$TESTN

MOV
ADD
MOV

RO, $8DADR
#RMER1, SBDADR
#1008, R2

#STACK, SP
$BASE ,R0
TSTQUE ,R1

;LOAD THE STACK POINTER
*RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
::SET TEST NUMBER IN APT MAIL BOX
;SETUP REGISTER ADDRESS FOR MSG
;INITIALIZE TABLE POINTER

CZRMPAO RMOS5/3/2 DSKLS IST 1
172
SET
AOE TEST

TZ?PAO RMOS5/3/2 DSKLS TST 1
SET RMR TEST

3577
3578 034564
3579 034564
3580 034570
3581 0%2576

MACRO v03.01

H13

11-APR-B0 13:58:55 PAGE 12-74

SEQ 0163

ingAR THE DEVICE AND ENABLE DEBUG CLOCK

055614
000001
041001
000000
000000

34620
3587 034626
3588 034630
3589 034632
3590
3591
3592 034636
3593 034644
3594 034652
3595 034660
3596 034666
3597 034670
3598 034674
3599 034702
3600 034704
3601 034706
3602 034710

JSR

PC,CNTCLR

MOV

#DMD ,RMMR1 (RO)

MOV

#0.RMER2(RO)

MOV
MOV

;GO CLEAR CONTROLLER

:LOAD RMMR1

#DMD 'MUR ! DBEN,RMMRT
(RO) ;LOAD RMMR1
#0,RMER1(RO) ~ :LOAD RMER1

:LOAD RMER2

;SET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE

000001

MOV

#GO RMCS1(RO)

MOV

#DMD 'MUR ! DBEN, (R3)

:gg

2
-3

—_—

rnomnnN

000002

001174
000004

_—

000014
177773
000002
001140

8888

041001

:LOAD RMCS1

(82) R3

;GENERATE REGISTER ADDRESS
;WRITE THE REGISTER

;VERIFY RMR ACCORDING TO TABLE

20%:

MOV
BIC
MOV
P
BEQ
MOV
BIT
BNE

RMER1 (RO) , $8DDAT
#*CRMR, SBDDAT
2(R2) ,$GDDAT
$GDDAT, SBDDAT
308
(R2) ,$TMPO
#RMR
2 (R2)
208

EMT

214

EMT
BR

;STORE RMER1 AT $BDDAT

;GET EXPECTED RESULT FROM TABLE
:BRANCH IF RMR IS OK
*SAVE TEST REGISTER
:BRANCH IF ERROR SHOULD BE ONE

213
308

gagVANCE TABLE POINTER, EXIT IF DONE

ADD

#4 ,R2

BMI

408

;EXIT IF ENTRY NEGATIVE

2008

:JUMP OVER TABLE

408$:

B8R

108

"i(TJegLE OF REGISTER ADDRESSES AND RMR VALUES
[=]

-WORD
.WORD

RMAS

.WORD

RMMR1

:RMR = 0

.WORD
.WORD

RMDA
RMR

:DISK ADDRESS REG
RMR = 1

3622
3623 034742

2224 034744

177777
000000

.WORD
.WORD

-1
0

;END OF

;ATTENT(I)W SUMMARY RLG

.WORD

£s

VONOWNSH W=

AN NN

3610 034724

(R2)

;RMR =

JMAINTENANCE REG

200$:

JEND OF TEST

AR AR AR RN

'TEST 74
A

034746

186774

TABLE

AR AR R

AR R R

RN AR R AR

AR R RN RN AR AR AR RN

RN RN

PGM STATUS CHECK
e

2223223232233

2222

CZRMPAQ RMOS5/3/2 DSKLS TST 1

174

PGM STATUS CHECK

MACRO v03.01

I13

11-APR-80 13:58:55 PAGE 12-75
%gPE

034752
034756
034762
034766

012706
013700
013701
012737

001100
001276
001462
000074

3630
3631 034774
3632 035000
332%2 035006

004737
016037
016037

055614
000026
000012

001174
001142

032737
001014
042737
001410
005037
010037
062737
104215

004000

001174

176777

001142

001140
001136
000012

001134

3635
3636 035014
3637 035022
3638 035024
3639 035032
3640 035034
3641 035040
3642 035044
3643 035052
3644 035054
3645

MOV
MOV
MOV
MOV

001226

MOV
MOV

BIC
BEQ
CLR

MOV
ADD
EMT

3647 035074

3648
3649 035102
3650 035106
3651 035114
3652 035122
3653 035124
3654 035132
33222 035136

001100
001276
001462

004737
016037

055614
000000

012737

042737
001006
012737
010037
104216

3657
3658 035140
3659 035140
3660 035146
3661 035154
3662 035156

016037
042737
001011
012737

3664 035170
3665 035176

062737
104217

3663 035164

3667 035200
3668
3669

1ST175:

000004
000240
012706
013700
013701

000075

173777

004000
001136

MOV

;BRANCH IF PGM IS OFF

RO, $BDADR
#RMDS , $SGDADR
215

;END OF

R RRR AR AR

TEST

R RRRRRANRRARRRARNARRRRRARRRAR

DVA/DPR STATUS CHECK
R

SCOPE

MOV
MOV
MOV

001226

#*CPGM,$BDDAT
108
$GDDAT

AR AR AR AR AE AN AR

NOP

001142
001142

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

RMDT (RO) ,$TMPO :STORE RMDT AT $TMPO
RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT

AR AR RN R RN R AR

;*TEST 75

035056
035060
035064
035070

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

sOMIT TEST IF DRQ IS ON - ELSE VERIFY THAT PGM IS OFF
BIT
#DRQ, $TMPO
BNE
108
;BRANCH IF DRQ IS ON

035054
035054

:SCOPE CALL

;CLEAR AND READ DRIVE TYPE AND DRIVE STATUS
JSR
PC,CNTCLR
;GO CLEAR CONTROLLER

108:

3646

SEQ 0164

R RRRRRRRRAARRRARRRAARARARREARR
AR

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

#75,8TESTN

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

::SET TEST NUMBER IN APT MAIL BOX

;CLEAR AND VERIFY THAT DVA IS SET
JSR
PC,CNTCLR
GO CLEAR CONTROLLER

MOV
BIC
BNE
MOV
MOV

001140

EMT

RMCS1(RO), $BDDA
#~CDVA, SBODAT
108
#DVA SGDDAT
RO, 33CADR
216

;STORE RMCS1 AT $BDDAT

;BRANCH IF DVA IS ON

iggRIFY THAT DPR IS SET

010037

000012
177377

001142

000400

001140

000012

001136

MOV

001142

BIC
BNE
MOV
MOV
ADD
EMT
20%:

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

#*CDPR, $BDDAT
208
#DPR, SGDDAT
RO, $8DADR
#RMDS , $BDADR
217

;END OF TEST

::tfi.tttt'tttttt'ttti.t'tt"'tt"ttt"t.t""t.'t."tttt't'ttt't'

CZRMPAD RMOS5/3/2 DSKLS TST 1
MACRO v03.01
176
PORT REQUEST TEST, PART 1

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

s*TEST 76

PORT REQUEST TEST, PART 1

RN RN R AR

TSI76

001226

055370

RRRRARRR AR RN RN RN

&%gpf

:SCOPE CALL

MOV
MOV
MOV
MOV

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

;LOAD
;RO =
;R1 =
;sSET

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

JSR

PC,SETVV
108

;GO SET VOLUME VALID
;BRANCH TO 108 IF NO ERROR

208

%S)S‘ECUTE A RELEASE TO RESET REQUEST FLOP

)

MOV

#RLEASE
!GO ,RMCS1(R0O)

;LOAD RMCS1

012769

000013

016002
042702
001024

000040
037777

016002

000000

;READ RMCS1 TO SET REQUEST FLOP
Mov
RMCS1(RO) ,R2
;STORE RMCS1 AT R2

016005
032705
001415
016037
042737
001006
010037
062737

000012
001000

;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET
MOV
RMDS (RO) ,R5
;STORE RMDS AT RS
BIT
#PGM,R5
sSEE IF PGM IS SET

104220

000000

;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET
MOV
RMMR2 (RO) ,R2
:STORE RMMR2 AT R2
BIC

BNE

000040
037777

3670
3671 035226
035232
035234
3672 035236
3673
3674
3675 035240
3676 035240
3677
3678
3679 035246
3680 035252
3681 035256
3682
3683
3684 035260
3685
3686
3687 035264
3688 035270
3689 035274
3690 035276
3691 035304
3692 035312
3693 035314
3694 035320
3695 035326
3696 035330
3697
3698

001100
001276
001462
000076

SEQ 0165

001136
000040

001136

BEQ

208

MOV

RMMR2 (RO) , $BDDAT

BNE

208

BIC

:
208

#*C<RQA'!RQB>,R2

;DONT TEST REQUEST IF PGM IS ZERO

#*C<RQA'!RQB>,$BDDAT

;STORE RMMR2 AT $BDDAT

;BRANCH IF REQUEST IS SET

EMT

:.".'!t.'*t*t'fifi*"t."""'.'.Q"""'fi.*".'fi‘*fi'.."""'.'Q"

J*TEST 77

PORT REQUEST TEST, PART 2

"."t.t.".."fi"""..""“"..'.fi..."*'...fi‘fi'.fi.""."fi'.'.'

1S177:

3699
3700 035356
035362
035364
3701 035366
3702

001100
001276
001462
000077

055370

001226

&C)gPE

;SCOPE CALL

MOV
MoV
MOV
MOV

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

JSR

PC,SETWVV
108

208

2LOAD THE STACK POINTER
RO UNIBUS ADDRESS

:R1_= POINTER TO DEVICE

:;SET TEST NUMBER IN APT MAIL BOX

;GO SET VOLUME VALID
;BRANCH TO 10$ IF NO ERROR

3703
3704 035370
%;82 035370

012760

000013

3707
3708 035376
3709 035402
%;}? 035406

016002
042702
001025

000040
037777

012760

177777

016005
032705
001415
016037
042737
001005
010037
062737
104221

000012
001000

3712
3713 035410
3714
3715
3716 035416
3717 035422
3718 035426
3719 035430
3720 035436
3721 035444
3722 035446
3723 035452
3724 035460

g?SS 035462

iS’s‘ECUTE A RELEASE TO RESET REQUEST FLOP

000000

MoV

#RLEASE 'GO,RMCS1(RO)

:LOAD RMCS1

;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET
MOV
RMMR2 (RO) ,R2
:STORE RMMRZ2 AT R2
BIC

#*C<RQA'!RQB>,R2

BNE
208
;WRITE me ms~no~ SUMMARY REGISTER TO SET REQUEST FLOP
000016
#<1,RMAS(RO)
:LOAD RMAS
;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET

000040
037777

001142
001142

001136
000040

001136

RMDS (RO) ,R5

MOV
BIC
BNE
MOV
ADD

RMMR2 (RO) , SBDDAT”
#*C<RQA'RQGB>, $8DDAT
208
RO, SBDADR
#RMMR?2 , SBDADR

BIT
BEQ

20%:

3727

MOV

EMT

#PGM,RS
208

;STORE RMDS AT RS

:SEE IF PGM IS SET
*DONT TEST REQUEST IF PGM IS ZERO

:STORE RMMR2 AT $BDDAT

221

tttttttttttttttttttttttttt'tttttttt'tttttt't'tttt..'t'tttttt'tt

“%TEST 100

PORT REQUEST TEST. PART 3

Qtttttt.tttt!ttt.tttt'ttttt'ttttttttttltttitttttt".tt.ttt'tttt

TST100

035466
035472
035476
035502

3728
3729 035510

012706
013700
013701
012737

001100
001276
001462
000100

004737

055370

373
3732
3733 035522
%;gg 035522 - 012760

3736
3737 035530
3738 035534
g;zg 035540

:SCOPE CALL

MOV
MOV
MOV
MOV

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

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

JSR
gz"

PC,SETWV
108

;GO SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR

208

iggecurs A RELEASE COMMAND TO RESET REQUEST FLOP

000013
000040
037777

g?%% 035542

012760

000000

3744
3745 035550
3746 035554
3747 035560

016005
032705
001415

000000

mov

#RLEASE 'GO,RMCS1(RO)

:LOAD RMCS1

;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET

MOV
BIC
BNE

000006

016002
042702
001025

3741

001226

,382"5

RMMR2(R0) ,R2
208

#~C<ROA'RQGB>,R2

;WRITE RMDA TO SET REQUEST FLOP

MOV

#0,RMDA (RO)

;STORE RMMR? AT R2
otk

:LOAD RMDA

;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET
MOV
RMDS (RO) ,R5
;STORE RMDS AT R5
BIT
BEQ

#PGM,
RS
208

S e

;SEE IF PGM IS SET
sDONT TEST REQUEST IF PGM IS ZERO

—t

SEQ 0166

K13
CZRHPAO RMOS5/3/2 DSKLS TST 1
gACRO v03.01 11-APR-80 13:58:55 PAGE 12-77
177
PORT REQUEST TEST, PART

L 13

CZRHPAO RMOS5/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-78
1100
PORT REQUEST TEST, PART 3
3748 035562
3749 035570

016037
042737

000040
037777

001142
001142

3751 035600

010037

3753 035612
3754
3755 035614
3756
3757

104222

001136
000040

001136

MOV
BIC
BNE
MOV
ADD
EMT

RMMR2 (RO) , SBDDAT
#~C<RQA'RGB>, $BDDAT
208
RO, $8DADR

SEQ 0167

;STORE RMMR2 AT $BDDAT

#RMMR2, $BDADR
222

20%:
.tt'.tt.ttttttttttttt."t'Q'iitt't.t.tttttt'tt'.'t'ttttttttt.t'

SRTEST 101

RELEASE TEST

..tt"t.tt.ttttttttttt'Qtt"tt.ttttt.'tt..'tttttt.tttt.tttt.'ttt'

035614
035620
035624
035630
035634

3758
3759
3760
3761 035642
035646
035650
3762 035652

3763

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

3784 035766
3785
3786
3787
3788 035770
3789 035770
3790 035774
3791 036002

751101:

012706
013700
013701
012737

001100
001276
001462
000101

383"5

MOV
MOV
MOV
MOV

001226

:SCOPE CALL

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

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

;REQUEST FLOP SHOULD SET WHEN WRITTING RMCS1
004737
000402
104000
000454

055370

JSR
ga"

PC,SETWV
108

408

;GO SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR

iggscure A RELEASE COMMAND

012760
012760
012702

041001
000013
000002

000024
000000

012760
012760
005302
001370

141001
041001

000024
000024

016037
016037

000026

001422
032737
00141

004000

001406

001174
001142
001142
001174
001142
001142

.
T

mov
MOV
MOV
mov
gg\c/

#DMD ! DBEN 'MUR ,RMMR1 (RO) :LOAD RMMR1
#RLEASE 'GO,RMCS1(RO)
-LOAD RMCS1
#2.R2
#DMD ! DBEN'MUR
' DBCK .RMMR1(RO)
:LOAD RMMR1
wgm'oeen'mRMR1(R0O) ;LOAD RMMR1

BNE

208

;ISSUE 2 CLOCKS

:VERIFY REQUEST FLOPS ARE RESET

MOV
MOV
BIC
BEQ
BIT
BEQ
BIT
BEQ
BIT
BEQ

RMDT
(RO) ,$TMPO ;STORE RMDT AT STMPQ
RMMR2 (RO) , SBDDAT
:STORE RMMR2 AT $BDDAT
#~C<RQA'RGB>, $8DDAT
408
;BRANCH IF REQUESTS ARE RESET
#DRQ, $TMPO
308
:BRANCH IF SINGLE PORT DEVICE
#RQA, SBDDAT
408
:BRANCH IF RQA IS RESET
#RQB, SBDDAT
408

:BRANCH IF RQB IS RESET

;DRQ IS ZERO AND A REQUEST FLOP IS ON, OR, DRQ IS ONE AND
:BOTH REQUEST FLOPS ARE ON

010037
062737
104223

001136
000040

508

001136

MOV
ADD
EMT

RO, $BDADR
#RMMR?
, SBDADR
223

101

RELEASE TEST

Mm13
MACRO V03.01 11-APR-80 13:58:55 PAGE 12-79

3792 036004
3793
3794

SEQ 0168

40$:
R

;END OF TEST
A

AR AR

'TESY 102
Ml

TST102:

AR A

MOV

MOV
MOV
JSR

AL AR

ittt

ittt iiiiatiisiistisssdsdy

;SCOPE CALL
WHSTACK, SP

;LOAD THE STACK POINTER

TSTQUE ,R1
#102,S$TESTN

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

$BASE RO

:RO
= UNIBUS ADDRESS

PC,CNTCLR

;GO CLEAR CONTROLLER

#0,RMER1 (RO)

:LOAD RMER1

nov

#DMD ,RMMR1 (RO)

MOV
MoV

#0,RMER2 (RO)
;:LOAD RMER2
#DMD !MUR , RMMR1 (RO)
:LOAD RMMR1

MOV

000000
000000
001001

:LOAD RMMRI

;WRITE THE ATTENTION SUMMARY REGISTER
MOVB
(R1).R2

177770

BIC

MOVB
BIC
MOV

#-CUNTMSK ,R2

ATNTBL(R2).R3
#~CATNMSK ,R3
R3,RMAS (RO)

;ASSEMBLE THE ATA BIT IN R3

;LOAD RMAS

;READ RMDS AND VERIFY THAT ATA IS RESET

000012
077777

MOV

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

BEQ
MOV
ADD
CLR
EMT

108
RO, $8DADR
#RMDS
, $BDADR

BIC

001136
000012
001140

3818 036146
3819
3820
3821 036150

;CLEAR THE DEVICE, SET DIAGNOSTIC MODE THEN SET UNIT READY

055614
000001

3809
3810
3811 036110
3812 036116
3813 036124

AR AR AR AR AR AR AA AR AR AR AR

SCOPE

NOP

3795
3796

WRITE ATA TEST

#~CATA, SS8DDAT

;BRANCH IF ATA IS RESET

$GDDAT
224

208

%SEAD RMAS AND VERIFY ATA IS RESET

000016

001142

001140
001136
000016

mov

ggAS(RO).SBDDAT ;STORE RMAS AT $BDDAT

BIC
BEQ
CLR

R3,$8DDAT
208

COM

MOV
ADD

001136

;BRANCH IF ATA IS RESET

$GDDAT

RO, SBDADR
gg!;AS . $8DADR

208 :
R

;END OF TEST
AR A A AR AR

*TEST 103
A

000004
000240

t57103:

SCOPE

NOP

A AR AR AR AR AR AN AR AR AR AR AR AR AR AR AR AN

RESET ATA BY GO TEST
i

:SCOPE CALL

22322323

—

CZRMPAO RMO5/3/2 DSKLS ST 1

CZRMPAO RMOS/3/2 DSKLS TST 1

T103

RESET ATA BY GO TEST

036212
036216
036222
w
26

012706
013700
013701
012737

3834

004737 055614

3835 036240
3836 036246
3837 0362564
333333 036262

012760
012760
012760
012760

MACRO v03.01

001100
001276
001462
000103 001226
000001
000000
000000
041001

000024
000014
000042
000024

3841 036270 012760 000001

000000

3840

3842 036276 016037

3843 036304
3844 036312
3845 036314

042737
001410
005037

077777

%g 036332

MOV
MOV
MOV
MOV

JSR

MOV
MOV
MOV
MOV

104226

MOV

001142

MOV

001142

BIC
BEQ
CLR

MOV
ADD

001136

333?? 036334

EMT

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

PC,CNTCLR

;60 CLEAR CONTROLLER

#DMD ,RMMR1(RO) :LOAD RMMR1
#0,RMER1(RO)
:LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#DMD
'MUR ! DBEN, RMMR1 (R0) ;LOAD RMMR1
#GO,RMCS1(RO)

;LOAD RMCS?

RMDS (RO) , $BDDAT :STORE RMDS AT $BDDAT
#~CATA, SB8DDAT
108
$GDDAT

:BRANCH IF ATA IS RESET

RO, $S8DADR
#RMDS
, SBDADR
226

;END OF TEST

ttttttttttttttttttttttt'ttttttt'titttttttttttttfittttitttttttttt

RTEST 104

036334

036336

hin

#STACK, SP
$RASE ,RO
TSTQUE ,R1
#103,$TESTN

108:

3852

SEQ 0169

;WITH DEBUG CLOCK ENABLED, SET GO AND VERIFY THAT ATA IS RESET

001140

3846 036320 010037 001136
3847 036324 062737 000012

N 13

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

.tttttttttttttt'ttfitttttltttttttt'ttttttttttttttttttt'ttttt.tttt

757104

000004

000240

MOV
MOV
MOV

356 012737 000104 001226

3855 036362
3856 036366
3857 036374
3858 036402
3859 036410

000024
000014
000042
000016

3862 036416 012760 001001
3863 036424 016037 000012

000024
001142

3864 036432

3865 036440
3866 036442
3867 036446
3868 036454
33393 036462

042737

077777

001011
010037 001136
062737 000012
012737 100000
104227

3873 036464
2874 036472
3875 036500

#STACK, SP
$BASE , RO
TSTQUE ,R1

#104,$TESTN

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

*;SET TEST NUMBER IN APT MAIL BOX

JSR
MOV
MOV
MOV
MOV

PC.CNTCLR
#DMD ,RMMR1(RO)
#0.RMER1(RO)
#0.RMER2(R0)
#-1,RMAS(RO)

;GO CLEAR CONTROLLER
:LOAD RMMR1
:LOAD RMER]
:LOAD RMER?
:LOAD RMAS

MOV
MOV

#DMD 'MUR , RMMR1 (RO)
:LOAD RMMR1
RMDS (RO) . SBDDAT ;STORE RMDS AT $BDDAT

BNE
MOV
ADD
MOV

108
RO, $8DADR
#RMDS ,SBDADR
#ATA, SGDDAT

;SET UNIT READY AND VERIFY ATA IS SET

001142

BIC

001136
001140

3871

3872 036464

MOV

:SCOPE CALL

;SET DIAGNOSTIC MODE AND CLEAR ATA

055614
000001
000000
000000
177777

3&33
”1:

004737
012760
012760
012760
012760

SCOPE

NOP

036340 012706 001100
036344 013700 001276
036350 013701 001462

3854,

UNIT READY ATA TEST

EMT

#~CATA, SBDDAT

:BRANCH IF ATA IS SET

227

:CLEAR ATA, RESET UNIT READY, AND VERIFY ATA IS SET
012760
012760
016037

177777
000001
000012

000016
000024
001142

10s:

MOV
MOV
MOV

#-1,RMAS(RO)
;LOAD RMAS
#DMD
. RMMR1(RO) :LOAD RMMR1
RMDS
(R0) ,$BDDAT :STORE RMDS AT SBDDAT

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
3885

042737
001011
010037
062737
104230

077777
001136
000012
100000

B 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-81
001142

BIC

BNE
MOV
ADD
MOV

001136
001140

EMT

SE@ 0170

#~CATA, SBDDAT

208
RO, S8DADR
#RMDS
, SBDADR
#ATA, $GDDAT
230

208:

;END OF TEST

'.t'tt'.fiQtt't""t't""ttti.tttfit.*t't'Qt't"..t'.'..t'tt'."

SRTEST 105

ERROR ATA TEST

‘ttfittttt'*'i."""."tt"'tQfi.t'tfi..fit*tt'**i L 23333233322

151105:
001100
001276
001462
000105

000014
001142
001142
001140
001136

z(c)gps

MOV
MOV
MOV
MOV

001226
000024
000014
000042
000076

222 3

;SCOPE CALL

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

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

;CLEAR THE DEVICE AND RESET ATTENTION
JSR
PC,CNTCLR
;G0 CLEAR CONTROLLER

MOV
MOV
MOV
MOV

#DMD ,RMMR1(RO)
#0,RMER1(RO)
#O.RMER2(RO)
#-1,RMAS(RO)

:LOAD RMMR1
:LOAD RMER1
:LOAD RMER2
:LOAD RMAS

;WRITE ONES IN ERROR REGISTER 1 AND VERIFY ATA IS SET

MOV
MOV
BIC
BNE
MOV
MOV
ADD
EMT

#-1,RMER1(RO) :LOAD RMER1
RMDS (RO) , SBDDAT :STORE RMDS AT $BDDAT
#~CATA, SBDDAT
108
#ATA, SGDDAT
RO, $8DADR
#RMDS
, $BDADR
231

108:

:END OF TEST

'.itl"t*lt*fitiittttttt"'tttt't.t.'Qttt.ii'ii..'ttfit"ttt't'ttt

RTEST 106

. 2't'tttttl'tttfiittttttiitt"ttt'tt‘l"ittfit.fi"'tt'ttt!tt.'t!tfit'fi

157106:

MOV
MOV
MOV
MOV
MoV

88
3907
3908 036716
3909
3910
3911 036722
3912 036722

001462
000106
012702

%gps

001226

037044

:SCOPE CALL

#STACK, SP
$BASE , RO
TSTQUE ,R1
#106,$TESTN
#1008 ,R2

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

ggonce COMPOSITE ERROR AND RESET ATA

004737

055614

;

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

—

CZRMPAQ RMOS5/3/2 DSKLS TST 1

1106

C1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-89

3913 036726
3914 036734
%3}2 036742

012760
012760
012760

3917
3918 036750

011203

3919 036752

3920 036754

000001
177777
177777

000024
000014
000016

3921 036756
3922 036764

016037
042737

000012
077777

001142
001142

3924 037000
3925 037006
3926 037010
3927 037014
3928 037020
ggg 037026

023737
001410
010337
010037
062737
104232

001140

001142

001174
001136
000012

062702

3935 037036
3936 037040
gggg 037042

100401
000730
000410

005712

MOV
BIC

RMDS (RO) ,$8DDAT ;STORE RMDS AT $BDDAT
#~CATA, SBDDAT

CMP
BEQ
MOV
MOV
ADD
EMT

$GDDAT, SBDDAT
108
R3,$TMPO
RO, $BDADR
#RMDS
, SBDADR
232

(R$)

S (R2) .$GDDAT

000004

TST

BMI
BR
BR

208 :

(R2)

208
5%
2008

SEXIT IF ENTRY MINUS
;JUMP OVER TABLE

000000

3944 037050
g&g 037052

000006
100000

.WORD
.WORD

RMDA
ATA

3947 037054
;glo‘g 037056

000000
000000

.WORD
.WORD

RMC(CS1

WORD

-1

3950 037060

:TABLE OF REGISTER ADDRESSES AND ATA BITS
1008:
.WORD
RMAS
.WORD

000016

177777

000000

.WORD

%gg{ 037064

;END OF TABLE

2008 :

3955

JEND OF TEST
gttt

'TEST 107

037064

;BRANCH IF ATA IS OK

;MOVE TABLE POINTER = EXIT IF DONE
108:
ADD
#4 R2

3939
3940 037044
3941 037044
%gz% 037046

%32;_ 037062

RO,.RS

MOV

001136

3931

3934 037034

;LOAD RMMR1
;LOAD RMER1
;LOAD RMAS

ADD
CLR

3923 036772 016237 000002 001140

3932 037030
2933 037030

#DMD ,RMMR1(RO)
#-1,RMERT1(RO)
#-1,RMAS (RO)

sWRITE THE TEST REGISTER AND VERIFY ATA
MOV
(R2) ,R3
sGENERATE REGISTER ADDRESS

060003

005013

MOV
MOV
MOV

SEQ 0171

SRR

75T107:

037064
037066
037070
037074
037100
3956 037104

000004
000240
012706
013700
013701
012737

001100
001276
001462
000107

3957 037112
3958 037116
3959 037116

012702

037254

004737

055370

001226

108:

AR AR

P SET ATA TEST
A AR

222222322222

AR R AR A AR AR A AR

A AR AR ANRANARARRAN AR AN,

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

MOV

#1008 ,R2

sINITIALIZE TABLE POINTER

JSR

PC,SETWVV

;GO SET VOLUME VALID

:SCOPE CALL

CZRMPAQD RMOS5/3/2 DSKLS TST 1
T107
P SET ATA TEST
037122
037124
gggg 037126

D 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-83

000402
104000
000451

BR
EMT
BR

3962

3963 037130

012760
011203
052703
010360
012703

000001
000000
000003

012760

141001

041001

000024

3972 037170
gg;z 037172

012760

005303
001370

041001

3975
3976 037174
3977 037202
3978 037210
3979 037212
3980 037216
3981 037224
3082 037232
gggz 037236

016037
042737
001013
010037
062737
012737
011237
104233

000012
077777

001142
001142

001136
000012
100000
001174

001136
001140

3985
3986 037240
3987 037240
3088 037244
3089 037246
3990 037250
§33} 037252

062702
005712
100401
000722
000403

gggg 037262

208:

308

000024

508

MOV
MOV
BIS
MOV
MOV
MOV

MOV
DEC
BNE

#DMD 'MUR ! DBEN ,RMMR1 (R0O) :LOAD RMMR1
(R2) ,R3
JGET FUNCYION CODE
#GO,R3
R3,RMCS1(RO)
;LOAD RMCS?
#3.R3
#DMD 'MUR ' DBEN'DBC
,RMMR1
K (R0O)

;LOAD RMMR1

#DMD 'MUR DBEN.RMMR
(RO)
T :LOAD RMMR1
R3
308

JVERIFY THAT ATA IS SET
MOV
RMDS
(RO) , $BDDAT ;STORE RMDS AT $BDDAT
BIC
#~CATA, S8DDAT
BNE
408
MOV
RO, $8DADR
ADD
#RMDS
, SBDADR
MOV
#ATA, $GDDAT
MOV
(R2) .$TMPO
EMT
233
sADVANCE TABLE POINTER=-EXIT IF DONE
408
:
ADD
#2 ,R2
ST
(R2)
BMI
50$
BR
108
50$:
BR
2008
:JUMP OVER TABLE

000002

3993

3994 037254
3995 037254
3996 037256
3997 037260

:BRANCH TO 20$ IF NO ERROR

EXECUTE THE COMMAND FROM THE TABLE

3964 037130
3965 037136
3966 037140
3967 037144
3968 037150
3969 037154
3970 037154

3971 037162

208

SEQ 0172

;TABLE OF FUNCTION CODES
1008:

000014
000016
177777

2008 :

(.wo

.WORD
.WORD
.WORD

OFFSET
RTC
-1

JEND OF TABLE

;.'ttttfittttttttttttt"tQtttttttttt'tttttfittttttttttttttttittttttt

;*TEST 110

:;tttttttttttttttttttttttttttttttttitttttttttttfittttttttttttttttt

037262
037262
037264
037266

000004
000240
012706

001100

037276
s 037302

013701
012737

001462
000110

012702

037504

004737

055370

037272

4002 037310
4003 037314
4004 037314

SET WLE TEST

013700

75T110:

001276

SCOPE
NOP
MoV

#STACK,SP

MOV
MOV

TSTQUE ,R1
#110,$TESTN

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

MOV

#1008 ,R2

;INITIALIZE TABLE POINTER

JSR

PC,SETVV

;GO SET VOLUME VALID

MOV

001226
108:

;SCOPE CALL

$BASE ,R0

;LOAD THE STACK POINTER

:RO = UNIBUS ADDRESS

CZRMPAQ RN)S/S/Z DSKLS TST 1

110

SET WL E TEST

037320
037322

4005 037324
4006

4010 037332
4011 037336
4012
4013
4014 037342
4015 037344
4016 037350
4017 037354
4018 037360
4019 037364
4020 037370
4021 037374

E 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12~ 84

000402
104000
000466

20%

508

EMT

;BRANCH TO 208 IF NO ERROR

é(E)';lABLE DEBUG CLOCK AND SET WRIT E PROTECT ACCORDING TO TABLE

016203
052703
010360

MOV

000002
041001
000024

BIS

MOV

2(R2) ,R3

;GET WRITE PROTECT FROM TABLE

R3,RMMR1(RO)

.'LOAD RMMR1

M'NJR'DBE

;SET OTHER MAINT BITS

sLOAD AND EXECUTE THE COMMAND FR OM THE TABLE
MOV
(R2) ,R4
;GET FUNCTION CODE FROM TABLE
BIS
#GO,R
4
:SET GO

308 :

4022 037400
4023 037402
4024
4025
4026 037404

MOV
MoV
BIS
MOV
BIC
MOV

R‘.RHCS1 (RO)
#2 ,R5
#DB(CK ,R3
R3,.RMMR1(RO)
#DBCK ,R3
R3.RMMR1(RO)

;LOAD RMCS1
:R5=CLOCK COUNT
:SET CLOCK
:LOAD RMMR1

BNE

308

;ISSUE 2 CLOCKS

DEC

4027 037412

000014
173777
000004

001142
001142
001142

4031 037436

000004
001136

001140

4028 037420
4029 037426
4030 037430
4032 037442
4033 037450

001174
000002

4034 037454
4035 037462
4036 037464
4037

sRESET CLOCK

:LOAD RMMR1

sVERIFY THAT WRITE LOCK ERROR IS ACCORDING TO TABLE
MOV
RMER1(R0Q) , $BDDAT
;STORE RMER1 AT $BDDAT

BIC
CMP

BEQ
MoV

MOV

001136

ADD
MOV
MoV
EMT

001176

4038

#*CWLE ,$BDDAT
4(R2) ,$BDDAT
408
4(R2) ,$GDDAT

RO, $8DADR

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

sBRANCH IF WLE IS OK
:SAVE DATA FOR ERROR MSG

;$TMPO=FUNCTION CODE

;$TMP1=WRITE PROTECT

50%

zGl;VANCE TABLE POINTER TO NEXT F UNCTION CODE-EXIT IF DONE

4039 037466
4040 037466
4041 037472
4042 037476
4043 037500

000006
000002

4044
4045 037502
4046
4047

ADD

#6,R2

BMI
BR

50%
108

;REPEAT TEST

2008

;JUMP OVER TABLE

TST

50%:

sTABLE OF

4048 037504

4049 037504
4050 037506
4051 037510
4052
4053 037512
4054 037514
4055 037516
4056
4057 037520
4058 037522
4059 037524

SEQ 0173

100%:

000070
000070
000000

2(R2)

FUNCTION CODES, WRITE PROTECT AND WRITE LOCK ERRORS

.WORD
.WORD
.WORD

WD
MWP
WLE

.WORD
.WORD
.WORD

;WRITE DATA COMMAND
:MJP OFF
:WLE OFF

.WORD
.WORD
.WORD

RD
MWP

;READ DATA COMMAND

;WRITE DATA COMMAND
;WRITE PROTECT ON

;WRITE LOCK ERROR ONE

;MWP ON

‘WLE OFF

4060
4061 037526
4062 037530

2063 037532

064
4065 037534
4066 037536
4067
4068 037540
4069
4070

F 14
11-APR-80 13:58:55 PAGE 12-85

000020
000010
000000

.WORD
"WORD

RIP
MWP

‘WORD

-WORD
.WORD

000000
177777

2008 :

SEQ 0174

;READ IN PRESET COMMAND
‘MWP ON

‘WLE OFF
:END OF TABLE

;END OF TEST

.'"Qt'fi*'fi"*'.*'fi'.tt"""""lt'fi...'t'.'.!flfitt'tQ""."Q.".Q

TRTEST 111

EXCEPTION TEST

..ttfi.t*'.tt*ttt."""Q*t't"'"QQ."".."..'.'t..'i"'.tt'fi'tt

4093 037620

4094 037626
4095 037632
4096 037634
4097 037634

037640
037642

4098 037644
4099
4100
4101 037646
4102 037646
4103 037654
4104 037662

012737

151111

001100
001276
001462
000111

gggpe

;SCOPE CALL

MOV
MOV
MOV
MOV

1001226

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

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

:WITH OCCUPIED SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN
*EXCEPTION:

PAR, IF RUN AND GO IS SET

:
:
3

ILR. IF RUN AND GO IS SET
DCK
HCE

RMR.

RUN AND GO IS SET

FER
OP]

MOV

040040

#1008 ,R2

;INITIALIZE TABLE POINTER

001136

001140

PC,CNTCLR

;G0 CLEAR CONTROLLER

BIC
BEQ

#~CREX, SBODAT
208

:BRANCH IF EXCEPTION IS 0

CLR

$GDDAT

MOV
ADD

001136
20%:

055370

JSR

MOV

055614
000024
167777

i(J)v:nuu.ue AND VERIFY THAT EXCEPTION IS RESET

-d

012702

HCRC

:
:

—

407N
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084 037566
4085
4086
4087 037572
4088 037572
4089 037576
4090 037604
4091 037612
4092 037614

000004
000240

037540
037540
037542
037544
037550
037554
037560

EMT

RMMR1 (RO)
, SBDDAT

RO, $8DADR
#RMMR1
, SBDADR
235

JSR

PC,SETW

B8R

60$

Efir

:STORE RMMR1 AT $BDDAT

30§

:GO SET VOLUME VALID

*BRANCH TO 308 IF NO ERROR

S(E))s(scurs A WRITE DATA COMMAND TO SET OCCUPIED., RUN AND GO

000006
000034
000024

MoV

MOV
MOV

#0,RMDA (RO)

:LOAD RMDA

#0.RMDC (RO)
*LOAD RMDC
#DMD
'MUR ' DBEN,RMMR1 (RO) :LOAD RMMR1

—

MACRO v03.01

- j

CZRMPAD
RMOS5/3/2 DSKLS TST 1
|94
110
SET WLE TEST
1

CZRMPAD RMOS/3/2 DSKLS TST 1

T111

EXCEPTION TEST

4105 037670 012760
4106 037676 012703

4107 037702

037702

012760

2} }(1) 037720

001370

4108 037710
4109 037716

4112

4113 037722
4114 037726
037734

4115 037740

037740

4116 037746

000024

000014
000200
141572

016037 000024
042737

4124 040010

011237

z}gg 040016

141001

011260
012737

001021
005737
001366
004777
012737
010037

4125 040014

000000

041001

4117 037754
4118 037756
4119 037762
4120 037764
4121 037770
4122 037776

4123 040002

000061
000002

012760
005303

004777

062737
104236

G 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-86

167777

000024

001174

4130 040020

4131 0400246

4132 040030
4133 040032

4134 040034

2%2 040036

#WD ' GO,RMCS1(RO)
#2,R3

MOV

#DMD 'MUR ! DBEN!DBCK ,RMMR1(R0)

BNE

408

MOV
DEC

001530

001142

45%:

001142

;LOAD RMCS1
-

:LOAD RMMR1

#DMD ! MUR DBEN.RMMR1
(RO) ;LOAD RMMR1
R3

MOV
MOV

(R2) ,RMER1(R0O)
#200.WATCH

MOV

RMMR1 (RO) , $8DDAT

BNE
ST
BNE
JSR
MOV
MOV

508
WATCH
45%
PC,asTOP
#REX, SGDDAT
RO, $8DADR

JSR

PC.aCLOCK

BIC

001530
141544
010000
001136

MOV
MOV

;ISSUE 2 CLOCKS

:LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET

001140
001136

ADD

*START THE CLOCK

;STORE RMMR1 AT $BDDAT
;HAS CLOCK EXPIRED ??
*NO = TAKE ANOTHER SAMPLE
:STOP THE CLOCK

#RMMR1
, SBDADR

MOV

000407

;LOAD RMER1
*SET WATCHDOG TIMER VALUE

#~CREX, SBDDAT

(R2) ,$TMPO

EMT

236

B8R

4128

4129 040020

408:

SEQ 0175

608

:ADVANCE TABLE POINTER-EXIT IF DONE

004777

062702

005712

508:

141510

000002

JSR

PC,aSTOP

ADD

#2 R2

BEQ

608

2008

TST

001401

000656

000402

60$:

:STOP THE CLOCK

(R2)

108

;:JUMP OVER TABLE

4137

;PRESENTLY,

4139
4140
4141 0460040

:A HARDWARE CHANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR
*REGISTER 1 WITH GO SET.
1008
:
.WORD
RMR
;RMR IS CAUSED BY HARDWARE

4138

wg 040040

000004

4144 040042

000000

2}22 040044

THE TABLE HAS ONLY ONE ENTRY,

2008 :

41‘.7

.WORD

THE

:END OF TABLE

*END OF TEST

ttttttttttttttttfittttt't't'tttt.'t.!'t.tttttt.tttt"tttttt"ttt

RTEST 112

040044

TS1112:

000004

040050
040054

012706
013700

001100
001276

012737

000112

RECAL IBRATE TEST

"tt'tt.tttttt.ttttttttt'i'tt'tttfi'Qttt'tltt'fi"tttttttttttttt'tt

040044

040046

4148

THE TEST USING RMR.

:TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF

000240

013701

001462

SCOPE

NOP

001226

:SCOPE CALL

MOV
MOV

#STACK, SP
$BASE ,RO

MOV

#112,$TESTN

MOV

TSTQUE . R1

:LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS

*R1 = POINTER TO DEVICE

*;SET TEST NUMBER IN APT MAIL BOX

(2 RMPAD RMOS5/3/2 DSKLS TST 1
n 12
RECALIBRATE TEST
4149 040072
040076
040100

055370

4150 040102
4151
4152

041400

4154 040106
4155 040114
4156 040122
4157 040130
4158
4159
4160 040136
4161 040142

012760

041001
000000
000000
000007

012702

000002

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
4184

JSR

PC,SETWV

JMP

3308

ggr

012760
012760
005302
001379

141001

041001

000024
000014
000042

108

SEQ 0176

;GO SET VOLUME VALID

:BRANCH TO 108 IF NO ERROR

000024
000024

040001
000002

000024

012760

140001
040001

000024
000024

000014
157777

001142
001142

001011
012737
010037
062737

020000
001136
000014

001140

012737

040262

001124

104241

MoV
MOV
MOV
MOV

#DMD 'MUR ! DBEN, RMMR1 (R0) :LOAD RMMR1
#0,RMER1(RO) ~ ;LOAD RMER1
#0_RMER2(RO)
:LOAD RMER2
#RECAL
' GO,RMCS1(R0)
;LOAD RMCS1

;STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS)

012760
012702

016037

MOV

mov
'32}’

#2.R2
#DMD 'MUR ! DBEN ! DBCK , RMMR1 (RO)
:LOAD RMMR1
ggnosmasoeen.m1 (RO) ;:LOAD RMMR1

BNE

208

:DROP UNIT READY AND STEP COMMAND SEQUENCER

—

#DMD
! DBEN, RMMR1 (RO)
;LOAD RMMR1
#2.R2
#DMD ! DBEN ! DBCK , RMMR 1 (RO)
:LOAD RMMR1
:gmfoaen.am1 (RO)
:LOAD RMMR1

BNE

308

MOV
BIC
BNE
MOV
MOV

RMERT (RO)
, SBDDAT
#~COPI, $BDODAT
408
#OPI,$GDDAT
RO, $8DADR

ADD

#RMER1, SBDADR

MOV

#508 , SLPERR

EMT

408:

(2 CLOCKS)

MOV
MOV
MoV
gg\c/

:VERIFY THAT OPI IS SET

001136

4185

;STORE RMER1 AT $BDDAT

241

;CHANGE LOOP ON ERROR ADDRESS

g}’,fi”” THAT RECALIBRATE ABORTS DURING EXECUTION

4186 040262
4187 040262

055370

040266
040270

4188 040272
4189
4190
4191 040276
4192 040276

041400

JSR

PC,SETW

JMP

3308

Ezr

608

;GO SET VOLUME VALID

*BRANCH TO 60$ IF NO ERROR

38;‘“8‘5 DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

041001
000000
000000
000007

4193 040304

4194 040312
4195 040320
4196
4197
4198 040326
4199 040332

)
H 14
11-APR-80 13:58:55 PAGE 12-87

iS;MBLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

4153 040106

040142
4162 040150
4163 040156

MACRO v03.01

012702

000003

000024

000014
000042
000000

mov

MOV
MOV
MOV

#DMD 'MUR ! DBEN,RMMR1 (R0) :LOAD RMMR1

#0.RMER1(RO) = ;LOAD RMER1
#0RMER2(R0)
:LOAD RMER2
#RECAL
' GO,RMCS1 (R0)
;LOAD RMCS1

STEP mgo \c’awngssegueucea TO FIRST TEST FOR ABORT

70%:

(3 CLOCKS)

CZRMPAQ RMOS5/3/2 DSKLS TST 1
T2
RECALIBRATE TEST

4200 040332

4201 040340
4202 0460346
4203 040350
4204
4205
4206 040352
4207
4208
4209 040360
4210 040364

012760
012760
005302
001370

141001
041001

012760

041101

012702

000002

040764

4211 040372
4212 047400
4213 040402
4214 (40404
4215 040412
4216 040420
4217 040422
4c18 040426
4219 040432
4220
4221 040434
4222
4223
4224 040442
4225 040442
040446
040450

4244 040532
4245 040540
4246 0460546
4247 040550
4248 040554
4249 040562
4250 040570
4251
4252 040572
4253

MOV

000024
000024

000024

#DMD 'MUR ! DBEN ! DBCK ,RMMR1 (RO)

:LOAD RMMR1

gg\cr

ggno'mn'osmRMMRT(RO) ;LOAD RMMR1

BNE

708
;LOAD RMMR1

;STEP 2 CLOCKS AND VERIFY GO IS RESET

141101
041101

000024
000024

000000
177776

001142
001142

040442

SEQ 0177

sSET DRI;S FAULT TO CAUSE ABORT CONDITION
#DMD MUR ! DBEN !MDF ,RMMR1 (RO)

808%:

001124

MOov

’

MOV
MOV

90%:

#DMD !MUR ! DBEN ! MDF ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD !MUR ! DBEN !MDF ,RMMR1 (RO)
;LOAD RMMR1
80%

MOV
BIC
BEQ
MOV
CLR
EMT

001136
001140

RMCS1(RO)
, $BDDAT
#*CGO, $BDDAT
90%
RO, $BDADR
$GDDAT
242

MOV

#7008, SLPERR

;STORE RMCS1 AT $BDDAT

;CHANGE LOOP ON tRROR ADDRESS

sVERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR

055370

4226 040452

4227
4228
4229 040456
4230 040456
4231 040464
4232 0460472
4233 040500
4234
4235
4236 040506
4237 040512
4238 040512
4239 040520
4240 040526
4241 040530
4242
4243

I 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-88

:
1008

JSR

PC,SETVV

JMP

3308

ga"

041400

1108

;GO SET VOLUME VALID

*BRANCH TO 1108 IF NO ERROR

sENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

1108:

012760
012760

#DMD !MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1

MOV
MOV
MoV

012760

012702

MOV

#0 ,RMER1(RO)
;LOAD RMER1
#0 ,RMER2 (RO)
:LOAD RMERZ2
#RECAL
!
GO,RMCS1(RO)
;LOAD RMCS1

sSTEP THE conmm SEQUENCER
#15. ,R2

1208
:

MOV
MOV
DEC

BNE

#DMD !MUR ! DBEN ! DBCK ,RMMR1 (RO)
:gm!mnsoeen.munm

1208

;VERIFY THAT OPI IS SET
MOV
BIC

RMER1(RO) , $BDDAT
#*COPI,$BDDAT

MOV
ADD
MOV

RO, $3DADR
#RMER1, $BDADR
sggI.SGDDAT

MOV

#1508, SLPERR

BNE

012737

130%:

:LOAD RMMR1

;LOAD RMMR1

;STORE RMER1 AT $BDDAT

1308

s CHANGE LOOP ON ERROR ADDRESS

4254
4255 040600
4256 040600
040604
040606
225; 040610

J 14
11-APR-80 13:58:55 PAGE 12-89

MACRO v03.01

SEQ 0178

: VERIFY ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS)

150%:

055370

JSR

PC,SETWV

JMP

3308

gg"

041400

1608

;GO SET VOLUME VALID

*BRANCH TO 1608 IF NO ERROR

555‘28'“5 DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

041401
000000
000000
000007

000024
000014
000042
000000

4267 040644

000015

4269 040656

141401
041401

4268 040650
04
70

4274 040670
4275 040676
4276
4277
4278 040704
4279 040710
4280 040710
4281 040716
4282 040724
4283 040726
4284

041001
041401

012702
012760

104244

012737

141401

mMov

MOV
MOV
MOV

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

;LOAD RMMR1

#0,RMER1(RO)
;LOAD RMER1
#0 RMER2(RO)
-LOAD RMER2
#RECAL
' GO,RMCS1 (RO)
;LOAD RMCS1

:STEP comnm ssou§~cen TO FIRST ON LATCH TEST (13 CLOCKS)

000024
000024

1708:

MOV

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

BNE

1708

gg\c/

:gnosmnsoeemnoc.m1 (RO)

:LOAD RMMR1

;:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER

MOV
MOV

#DMD 'MUR ! DBEN, RMMR1 (RO) ;LOAD RMMR1
#DMD I MUR i DBENMOC
. RMMR1 (RO)
:LOAD RMMR'i

:STEP cmw SEQUENCER TO SET ATTENTION (3 CLOCKS)

000003
041401

000024
000024

000012
077777

001142
001142

100000
001136
000012

001140

040776

001124

180%:

‘

MOV

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

BNE

1808

rgg\cf

:gmsmasoee~:mc.mm1 (RO)

:LOAD RMMR1

;VERIFY ATA IS SET

001136

MOV
BIC
BNE
MOV
MOV
ADD

RMDS (RO) , $BDDAT ;STORE RMDS AT $BDDAT
#~CATA, SBDDAT
190$
#ATA, SGDDAT
RO, SBDADR
#RMDS
, SBDADR

MoV

#2008,SLPERR

EMT

1908:

244

;CHANGE LOOP ON ERROR ADDRESS

éggf;{” THAT RECALIBRATE ABORTS AFTER EXECUTION DURING WAIT LOOP

055370

JSR

PC,SETVV

3308

2:7

2108

;GO SET VOLUME VALID

*BRANCH TO 2108 IF NO ERROR

é%u;me DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

000024
000014
000042

MoV

MOV
MOV

#DMD 'MUR ! DBEN ' MOC , RMMR (RO)

#0,RMER1(RO)
#O.RMER2(RO)

:;LOAD RMER1
:LOAD RMER2

:LOAD RMMR1

94 RMPAQ RMOS5/3/2 DSKLS TST 1
n 12
RECALIBRATE TEST

CZRMPAQ RMOS5/3/2 DSKLS TST 1
T112
RECALIBRATE TEST

23389 041032

012760

000007

4309 041040

012702

000015

4311 0641044
4312 041052

012760
012760

141401
041401

g}g 041062

001370

4308

4310 041044

4313 041060

4316

g}g 041064

005302

012760

041001

4320 041072

012702

000007

1322 041076

012760

4319

4321 041076

4323 041104

4324 041112

ggg 041114

4327

012760

005302

141001

041001

MACRO Vv03.01

000000

000024
000024

000024

001142

4330 041132
4331 061134
4332 041142

001006
012737
010037

000007
001136

001140

o 041150

104245

012760

041201

4339 041156

012702

000003

041162
4341 041170

012760
012760

141201
041201

4343 061200
4344 041202

001370
016037

4338

4340 041162
4342 041176

005302

000000

4345 041210
4346 041216

042737
001405

4348 041224
ggg 041230

005037
104246

001140

2§§12 041232

012737

041240

4347 041220

010037

177776

4354 041240

004737

041246

104000

gg«; 041250
4358

MOV
MOV

#DMD 'MUR ! DBEN 'MOC ! DBCK , RMMR1 (RO)
:LOAD RMMR1
#DMD I MUR | DBEN | MOC .RMMR1 (RO)
;LOAD RMMR1

BNE

2208

MOV

#DMD 'MUR ' DBEN,RMMR1(RO) ;LOAD RMMR1

2308:

MOV

#7.R2

MOV

#DMD 'MUR ! DBEN!DBCK ,RMMRT(RO)

DEC

MOV

MOV
BIC

BNE
MOV
MOV
EMT

000024

2308

;VERIFY THAT GO IS STILL SET

001142

RMCS1(RO
, SBDDAT
)

;STORE RMCS1 AT $BDDAT

#~CGO, SBDDAT

2408
#GO, SGDDAT
RO, $8DADR
245

:SET SEEK INCOMPLETE ERROR
2408
:

MOV

:LOAD RMMR1

#DMD | MUR | DBEN.RMMR1
(RO) :LOAD RMMR1

#DMD 'MUR ! DBCN'MSER, RMMR1(R0)

:LOAD RMMR1

;STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)
000024
000024

2508
:

MOV

#3.R2

MOV
MOV

#DMD 'MUR ! DBEN 'MSER ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD IMUR i DBEN'MSER_.RMMRT(R0)
:LOAD RMMR1

BNE
MOV

2508
RMCS1(RO
, SBDDAT
)

DEC

001142

BIC
BEQ

MOV
001124

2608:

;STORE RMCS1 AT $BDDAT

#*CGO, SBDDAT
2608

RO, $8DADR

CLR
EMT

$GDDAT
246

MOV

#3008,$LPERR

;CHANGE LOOP ON ERROR ADDRESS

:VERIFY THE TAG BUS DURING RECALIBRATE

4355 041240

041244

#13. .R2

;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0

001136

4353

;LOAD RMCS1

MOV
DEC

000024

000000

4335
4336 041150

2208:

BNE
177776

#RECAL
! GO,RMCS1(RO)

SEQ 0179

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)

016037

ggz 041146

MOV

001370

042737

11-APR-8C 13:58:55 PAGE 12-90

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)

4328 041116
4329 041126

K 14

100402

000453

055370

%00$:

JSR

EMT

PC,SETWV

3108

;GO SET VOLUME VALID

*BRANCH TO 3108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

AQ RMO5/3/2 DSKLS TST 1

RECALIBRATE TEST

041401
000000
000000
000007
041402

L 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-91

000024
000014
000042
000000

310%:

MOV
MOV
MOV
MOV
MOV

SEQ 0180

#DMD ' MUR ! DBEN 'MOC , RMMR1 (RO)
:LOAD RMMR1
#0,RMERT1(RO)
;LOAD RMER1
#0 RMER2(R0)
:LOAD RMER2
lRECAL'GO RMCS1(RO)
;LOAD RMCS1
#4008, R2
;INITIALIZE TABLE POINTER

5‘1"552"' TAG BUS ACCORDING TO TABLE

000040

001142
001140
001136
000040
4375 041350
4376
4377
4378 041352

001142
001142

001136

RMMR2 (RO) , SBDDAT
#ROA'RQB!
ST, $BDDAT
(R2)
. $BDDAT
3208
(R2) , $GDDAT
RO, $S8DADR
#RMMR?2
, SBDADR
247
3308

;STORE RMMR2 AT $BDDAT

ésg\s/mce TO NEXT ENTRY IN TABLE-EXIT IF DONE

062702
005712

100407

012760
012760
000743
000416
4389
4390 041402
4391 041402
4392 041404
4393 041406
4394 041410
4395 041412
4396 041414
4397 041416
4398 041420
4399 041422
4400 041424
4401 041426
4402 041430
4403 041432
4404
4405 041434
4406
4407 041436
4408
4409

MoV
BIC
CMP
BEQ
MOV
MOV
ADD
EMT
BR

000024
000024

ADD

#2 .R2

8MI

3308

(R2)

;EXIT IF ENTRY NEGATIVE

;STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION

330$:

MOV
Bmgv

#DMD ! DBEN 'MUR 'MOV ' DBCK , RMMR1 (RO)
:LOAD RMMR1
m31sseoee~:m:mc.m1 (RO)
:LOAD RMMR1

5008

; (T)G?LE OF

TAG BUS CONTROL AND BIT VALUES

.WORD

1777

;BUS BITS AT HIGH IMPEDANCE STATE

"WORD

CC!CH'BB06
CC!CH!BBO6
TAG'CC'CH'BBO6
TAG!CCiCHiBBO6
TAGICCiCHiBBO6
TAGI!CCiCHiBBO6
TAG!CCiCHiBBOG
TAG!CCiCHiBBO6
CC'CH'BBOG
CCiCHiBBO6

;CONTROL BITS ENABLED, BIT 6 ON

001777

.WORD
.WORD
JWORD
.WORD
.WORD
"WORD
.WORD
.WORD
.WORD
.WORD

1777

;CONTROL BITS DISABLED

177777

LWORD

-1

:END OF TABLE

001777
001777

;:JUMP OVER TABLE

006100

"WORD

1777

5008 :

:TAG COMES ON

:TAG GOES OFF

:END OF TEST

'Itttttttttttttttttt'i'itt'ttttttttt.ttt.t.t."tttttttt't't'ttt

RTEST 113

SEEK TEST

'.*.l".'fitt..ifit'.tt'.i"tt'ttt'."t..fit.'tt.t"t'tttttttt..t'.'.

7571113:

SCOPE

:SCOPE CALL

041440

041442
041446
041452
041456

000240

013700

012737

8888
=08

CZRMPAQ RMOS5/3/2 DSKLS TST 1
T3
SEEK TEST

M 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-92
NOP
MOV
MOV
MOV

001226

MoV

#STACK,SP
$BASE ,RO
TSTQUE R

SEQ 0181

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

#113,$TESTN

;:SET TEST NUMBER IN APT MAIL BOX

;VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION
055370

JSR
ga"

PC,SETW
10§

043114

JMP

3308

;GO SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

132”555'

041001

000005
012702

000002

012760
012760

041001

141001

000024
000006
000034
000014
000042
000000

mov
MOV
MOV
MOV
MOV
MOV

040001
000002
140001
040001

1662

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(R0)
;LOAD RMCS1

;STEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS)

e
000024
000024

MOV
MoV
'32}'

" BNE

012760

AND LOAD SEEK COMMAND

000024

000024
000024

000014
157777

001142
001142

020000
001136
000014

001140
001136

041670

001124

#2.R2
#DMD 'MUR ! DBEN!DBCK,RMMR1(RO)
:LOAD RMMR1
:gmsmeoeen.m1 (RO) ;LOAD RMMR1
208

;:DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)

MOV
MOV
mov
gg\c/

#DMD
! DBEN, RMMR1 (RO)
;LOAD RMMR1
#2,R2
#DMD ! DBEN ! DBCK ,RMMR1 (R0)
:LOAD RMMR1
Rmz iDBEN,RMMR1 (RO)
:LOAD RMMR1

BNE

308

:VERIFY THAT OPI IS SET

MOV
BIC
BNE
MOV
MOV
ADD

RMER1 (RO)
, SBDDAT
#~COP], SBODAT
408
#OPI,SGDDAT
RO, $8DADR
#RMER1, SBDADR

MOV

#508, SLPERR

EMT

40$:

:STORE RMER1 AT $BDDAT

250

;CHANGE LOOP ON ERROR ADDRESS

%gmv THAT SEEK ABORTS DURING EXECUTION

004737
000403

104000
000137

055370

043114

JSR

PC,SETWV

JMP

3308

?:r

608

;G0 SET VOLUME VALID

*BRANCH TO 60$ IF NO ERROR

N 14
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-93

C 4 RMPAQ RMOS/3 /2 DSKLS ST 1
T 1 13
SEEK T EST

SEQ 0182

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

é/o“s)DRESS'

000024
000006
000034
000014
000042

041101

4477

000024

MOV
MOV
MOV
MOV
MOV
MOV

#DMD 'MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#0 ,RMDA (RO)
:LOAD RMDA
#0 . RMDC (RO)
*LOAD RMDC
#0.RMER1(R0)
:LOAD RMER1
#O.RMER2(RO)
:LOAD RMER2
#SEEK
! GO,RMCS1 (RD)
;LOAD RMCS1

;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)

000024
000024

4473 061772
4474
4475
4476 061774

AND LOAD SEEK COMMAND

MOV

#3,R2

MoV
gg\cl

#DMD 'MUR ! DBEN!DBCK ,RMMR1(R0)
:LOAD RMMR1
ggno.'ma!oeen.m1 (RO) ;LOAD RMMR1

BNE

70$

;SET DRIVE FAULT TO CAUSE ABORT CONDITION

MOV

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

;LOAD RMMR1

;STEP 2 CLOCKS AND VERIFY GO IS RESET

€8
3

o=
3
S&
&

141101
041101

000024
000024

001142
001142

042064

2.R2
#DMD 'MUR ! DBEN ! MDF ! DBCK , RMMR1 (RO)
;LOAD RMMR1
nmz iMUR i DBEN ! MDF .RMMR1 (RO)
:LOAD RMMR1

BNE
MOV
gég

808
RMCS1(RO) , SBDDAT
gagso.saoon

MOV

RO, $BDADR

MOV

#1008, SLPERR

CLR
EMT

104251

012737

MOV
MoV
gg\cf

001124

90$:

;
:STORE RMCS1 AT $BDDAT

$GDDAT
251

;CHANGE LOOP ON ERROR ADDRESS

%SSF;IFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR

055370

JSR

PC,SETWV

JMP

3308

g:r

043114

1108

;GO SET VOLUME VALID

*BRANCH TO 1108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

i?ggRESS.

000024
000006

000034
000014
000042
000000

45
4509 042144

000017

MOV
MOV

MOV
MOV
MOV
MOV

AND LOAD SEEK COMMAND

#DMD !MUR ! DBEN ,RMMR1(R0O) ;LOAD RMMR1
#0 ,RMDA (RQ):LOAD RMDA

#0.RMDC (RO)
:LOAD RMDC
#0.RMER1 (RO)
:LOAD RMER1
#0.RMER2 (RO)
-LOAD RMER2
#SEEK'GO,RMCS1(RD)
;LOAD RMCS1

;STEP THE COMMAND SEQUENCER

MoV

CZRMPAQ RMO5/3/2 DSKLS TST 1

SEEK TEST

4510 042150
4511 042150

012760

4513 042164
22}450 042166

005302
001370

4512 042156

141001

MACRO v03.01

000024

012760

041001

4517 042170
4518 042176
4519 042204
4520 042206
4521 042212
4522 042220

016037
042737
001011
010037
062737
012737

000014
157777

001142
001142

001136
000014
020000

001136
001140

lzgsg 042230

012737

042236

001124

4516

2252 042226

4527
4528 042236
4529 042236

042242
042244
22%? 042246

104252

004737

000403
104000
000137

000024

222(1) 042310

4542

4543 042316
4544 042322

055370

041401
000000
000000
000000
000000

012702

000015

012760

222; 042340

001370

4550 042342
22;12 042350

4553
4554 042356
4555 042362
4556 042362

R2
1208

IS SET

MOV
BIC
BNE
MOV
ADD
MOV

RMER1(RO) , $BDDAT
#>COPI,$BDDAT
1308
RO, $BDADR
#RMER1, $8DADR
#OPI ,$GDDAT

MOV

#1508 ,SLPERR

EMT

BR
EMT
JMP

000005

141401

012760
005302

041401

012760
012760

041001
041401

012702

000000

;STORE RMER1 AT $BDDAT

252

;CHANGE LOOP ON ERROR ADDRESS

1608

;BRANCH TO 160$ IF NO ERROR

3308

000024

000024
000024

000003

012760
005302
001370

041401

141401

000024

4561
4562 042402

016037

1
000012

42
42

—

077777

000024

042737

;ADDRESS,
AND LOAD SEEK COMMAND
160$:
MOV
#DMD !MUR ! DBEN!MOC
,RMMR1 (RO)
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

#SEEK !GO, RMCS1(RD)

:LOAD RMMR1

;LOAD RMCS1

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)

—_

012760

000024
000006
000034
000014
000042

4557 042370
4558 042376
222(9) 042400

4563 062410

DEC
BNE

;LOAD RMMR1

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

;VERIFY THAT OPI

043114

012760
012760
012760
012760
012760

012760

4549

#DMD !MUR ! DBEN ! DBCK ,RMMR1 (R0)

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

042322

4545 042330
4546 042336

MOV

1308:

:VERIFY ATA SETS IF DRIVE COMPLETES SEEK (ON CYLINDER SETS)
1508
:
JSR
PC,SETW
;GO SET VOLUME VALID

4532

4533
4534 04c. 52
4535 042252
4536 042260
4537 042266
4538 042274
4539 042302

1208:

B 15

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

1708
:

MOV

#13. ,R2

MOV

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

BNE

1708

MOV
DEC

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

:LOAD RMMR1

;LOAD RMMR1

;DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER
MOV
MOV

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

;STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS)
#3,R2
1808$:
MOV
#DMD !MUR ! DBEN !MOC ! DBCK ,RMMR1 (RO)

MOV
DEC
BNE

#DMD !MUR ! DBEN !MOC ,RMMR1 (R0O)
R2
180%

:LOAD RMMR1

;LOAD RMMR1

;VERIFY ATA IS SET
MOV
RMDS (RO) ,$8DDAT ;STORE RMDS AT $BDDAT
BIC
#~CATA,SBDDAT

SEQ 0183

C15

RMPAQ RH05/3/2 DSKLS ST 1
13
SEEK
T

4568 042440

4570 062442

ség

001011

062

4564 042416

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-95

012737

042450

104253

4572
4573 042450
4576 042450
042454
042456
4575 042460
4576
4577
4578
4579 042464
4580 042464
4581 042472

012769
012760

4584 042514
2585 042522

012760
012760

041401
000000
000000
000000
000000
000005

4588 042530

012702

000015

4590 042534

012760

4593 042552
4594
4595
4596 042554
4597

001370
'

001140
001136
001124

004737
000403
104000
000137

1908:

043114

#2008 ,SLPERR

253

;CHANGE LOOP ON ERROR ADDRESS

JS
g:r

PC,SETW
2108

JMP

3308

;G0 SET VOLUME VALID
*BRANCH TO 2108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
;ADDRESS

012760

141401

041401

041001

4616
4617

MoV

EMT

055370

141001

4615 042640
042640

190%
#ATA,SGDDAT
RO, $S8DADR
#RMDS
, $BDADR

§‘65',‘"" THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP

000024
000006
000034
000014
000042
000000

104254

AND LOAD SEEK COMMAND

MOV
MOV
MOV
MOV
MOV
MOV

#DMD 'MUR ! DBEN 'MOC ,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 FIRST ON LATCH TEST

000024
000024

000024

MOV

(13 CLOCKS)

MOV
ggg

#13. .R2
#DMD 'MUR ' DBEN 'MOC ! DBCK , RMMR1 (RO)
;LOAD RMMR1
:gm!nm:osemnoc,m1 (RO)
:LOAD RMMR1

BNE

2208

:DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0

MOV

#DMD
'MUR ' DBEN,RMMRT (R0O) :LOAD RMMR1

;STEP cmm seogezgen THROUGH WAIT LOOP (7 CLOCKS)

000024
000024

000000
177776

001142
001142

000001

001140

001136

2108:

000007

461% 042636

BNE
MOV
MOV
ADD

SEQ 0184

:
2308

MOV
ggwcl

#DMD 'MUR ! DBEN ! DBCK , RMMR1 (RO)
:LOAD RMMR1
zgmzmeoasn,m1 (RO) ;LOAD RMMR1

BNE

2308

;VERIFY THAT GO IS STILL SET

MOV
BIC
BNE
MOV
MOV
EMT

RMCS1(RO)
, $8DDAT
#~CGO, SBDDAT
2408
#GO, $GDDAT
RO, $8DADR

:STORE RMCS1 AT $BDDAT

254

525; SEEK INCOMPLETE ERROR

012760

041201

000024

MoV

#DMD 'MUR ! DBEN 'MSER , RMMR1 (RO)

:LOAD RMMR1

;STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)

ST 1

D15
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-96

000003

2508

MOV

#3.R2

mov
ggg

#DMD 'MUR ! DBEN 'MSER ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
amz IMUR I DBEN'MSER.RMMRT(RO)
:LOAD RMMR1

BNE
MOV

2508
RMCS1(RO)
, $8DDAT

BEQ

2608

141201
041201

000000
177776

BIC

001136

MOV
CLR

001140

4629
4630 042722

4631 042730
4632
4633
4634 042734
4635 042734

012737

042734
000001

001124

SEQ 0185

2608:

MOV
MOV

:STORE RMCS1 AT $BDDAT

#*(GO, SBDDAT

RO, $BDADR
$GDDAT

255

03og§.$LPERR
#1

;CHANGE LOOP ON ERROR ADDRESS
+INITIALIZE CYLINDER ADDRESS

égsg!FY THE TAG BUS DURING SEEK

055370

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

é?ggnsss

AND LOAD SEEK COMMAND

MOV
MOV
MOV
MOV
MOV
MOV

012702

#DMD ' MUR ! DBEN 'MOC ,RMMR1 (R0)
;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 RMCS?
#4008 ,R2
sINITIALIZE TABLE POINTER

. VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3

515%:

016037
042737
011237

MOV

RMMR2 (RO) , SBDDAT

MOV
BIS
CMP

(R2) . SGDDAT
R3,$GDDAT
$GDDAT,$BDDAT

MOV
ADD

RO, $8DADR
#RMMR2
, $8DADR

B8R

3308

BIC

BEQ
EMT

#RQA'RQB'
TST, $SBDDAT

3208

;STORE RMMR2 AT $BDDAT

:OR CYLINDER ADDRESS IN
:COMPARE EXPECTED AND RECEIVED
*BRANCH IF TAG BUS OK

256

533‘5""(5 TO NEXT ENTRY IN TABLE-EXIT IF DONE

000002

ADD

#2 R2

BMI

3308

000024
000024

(R2)

;EXIT IF ENTRY NEGATIVE

:STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION

MOV

#DMD ' DBEN 'MUR 'MOV ' DBCK , RMMR1 (RO)

315%

MOV

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

:LOAD RMMR1

;LOAD RMMR1

CZRMPAD RMOS5/3/2 DSKLS TST 1
T3
SEEK TEST

SEQ 0186

PN
= — —

§§8§E“ TAG BUS TEST FOR EACH PRIME CYLINDER,

2
NS

467
467
4673 04

E 15

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-97

ASL

CMP
BHIS
BR

34,08:

I.E.,

1.2.4....

;SHIFT TO NEXT CYLINDER

R3,#1024.
3408
3008

;EXIT IF WAS DONE

“TEST NEXT CYLINDER

5008

:JUMP OVER TABLE

z(r)egu OF TAG BUS CONTROL AND BIT VALUES

LWORD
JWORD

177777

1777
1777

;BUS BITS AT HIGH IMPEDANCE STATE

.WORD
JWORD
.WORD
WORD
"WORD
"WORD
WORD
"WORD
JWORD
"WORD
WORD

CC
CC
TAG!'CC
TAG!CC
TAG!CC
TAG!CC
TAG!CC
TAG!CC
CC
CC
1777

;CONTROL BITS ENABLED, BIT 6 ON

LWORD

-1

;END OF

:TAG COMES ON

:TAG GOES OFF

;CONTROL BITS DISABLED

5008 :
S

;END OF TEST

S*TEST 114
M

TST114:

4701

0011
001276
001462
000114

4707
4708
4709 043226
4710 043226
4711 043234
4712 043242
4713 043250
4714 043256
4715 043264

AR A A A AR AR

SEARCH TEST

ittt

%gpe

MOV
MOV
MOV
MOV

AR AR A AR AR A AR AR

AR A CAR AR

AR AR AR AR

2222233 222

:SCOPE CALL

#STACK, SP
$BASE ,RO
TSTQUE ,R1

#114,STESTN

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

:-SET TEST NUMBER IN APT MAIL BOX

;VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION
055370

4705 043222
4706

001226

TABLE

045260

JSR

PC,SETVV

JMP

3308

gfir

108

;GO SET VOLUME VALID

;BRANCH TO 108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
‘.iels)DRESS.

041001

000031

MOV

MOV
MOV
MOV
MOV
MoV

AND LOAD SEARCH COMMAND

#DMD !MUR ! DBEN ,RMMR1 (R0O) ;LOAD RMMR1
#0 ,RMDA(RO)
;LOAD
#0 ,RMDC (RO)
sLOAD
#0 ,RMER1(RO)
;LOAD
#0 ,RMER2 (RO)
;LOAD
#SEARCH!GO,RMCS1(RO)

RMDA
RMDC
RMER1
RMER?2
;LOAD RMCS1

CZRMPAQ RMOS5/3/2 DSKLS ST 1

1114

SEARCH TEST

4716
4717
4718 043272
4719 043276

043276

4720 043304
4721 043312
4722 043314
4723
4724
4725 043316
4726 043324
4727 043330

043330

4728 043336
4729 043344
4730 043346
4731

012702

000002

012760

141001

012760
012702

040001
000002

000024

012760

140001
040001

000024
000024

473% 043356
4735 043364

4737 043374

104257

4746 043426
4747
4748
4749
4750 043432
4751 043432
4752 043440
4753 043446
4754 043454
4755 043462
4756 043470
4757
4758
4759 043476
4760 043502

4761 043502
4762 043510
4763 043516

4764 043520
4765
4766
4767 043522
4768

000014

001142
001142

020000
001136
000014

001140

043416

001124

157777

366

4741 043410
4742
4743
4744 043416
4745 043416

000024
000024

F 15
11-APR-80 13:58:55 PAGE 12-98

012737

SEQ 01E7

;STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS)
MOV
#2.R2
20%:
MOV
#DMD 'MUR ! DBEN!DBCK ,RMMR1(RO)
;LOAD RMMR1
MOV
g(z)m.'HJR!DBEN.R'M1 (RO) ;LOAD RMMR1
DEC

BNE

4732
4733 043350

4736

041001

MACRO v03.01

208

;DROP lNgKT) READY AND STEP COMM: W SEQUENCER (2 CLOCKS)
30%:

#DMD! DBEN ,RMMR1 (RO)

;LOAD RMMR1

Mov

#2,R2

MOV
MOV

#DMD ! DBEN'DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD ! DBEN,RMMR1 (RO)
;LOAD RMMRI1

BNE

308

DEC

;VERIFY THAT OPI IS SET
MOV
RMER1 (RO) , $BDDAT
BIC

#*COPI ,$BDDAT

MoV

#508, SLPERR

BNE
MOV

;STORE RMER1 AT $BDDAT

408
#0P1,$GDDAT

01136
40$:

s CHANGE LOOP ON ERROR ADDRESS

g‘éE’“” THAT SEARCH ABORTS DURING EXZCUTION

055370

PC,SETWV

045260

JMP

EMT

60%

;GO SET VOLUME VALID
;BRANCH TO 60% IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

éSgDRESS.

041001

MOV
MOV
MOV
MOV
MOV
MOV

000031

AND LOAD SEARCH COMMAND

#DMD !MUR ! DBEN ,RMMR1 (R0O) ;LOAD RMMR1
#0 ,RMDA (RO)
;LOAD RMDA
#0 ,RMDC (RO)
sLOAD RMDC
#0 ,RMER1(RO)
:LOAD RMER1
#0 ,RMER2 (RO)
;LOAD RMER?2
#SEARCH!GO,RMCS1(RO)
:LOAD RMCS1

;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)
MOV
#3,R2

012702

000003

012760

141001
041001

000024
000024

012760

041101

000024

70%:

MOV
MOV
DEC
BNE

#DMD 'MUR ! DBEN'!DBCK ,RMMR1(R0O)
:LOAD RMMR1
:DMD!NR!DBEN.MIH (RO) ;LOAD RMMR1
2
708

;SET DRIVE FAULT TO CAUSE ABORT CONDITION

MOV

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

;LOAD RMMR1

SEARCH TEST

4770 043530

G 15

MACRO v03.01

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

SEQ 0188

;STEP 2 CLOCKS AND VERIFY GO IS RESET

072702
141101

000024
000024

001142
001142

N
S8 &

88 3%

041101

80%:

MOV

#2,R2

MOV
gg\c/
BNE
MOV
gég

#DMD 'MUR ! DBEN ! MDF ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
Rmz IMUR | DBEN ! MDF .RMMR1 (RO)
;LOAD RMMR1
80$
RMCS1(RO)
, $8DDAT
;STORE RMCS1 AT $BDDAT
gagso,seoon

MoV
CLR
EMT

RO, $8DADR
$GDDAT
260

; (THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE

47
4785 043604
4786
4787
4788 043612
4789 043612
82
16

;DURING DATA COMMAND TESTS)

012737

004737
000403

043612

001124

90%:

MOV

#1008, SLPERR

TESTED

;CHANGE LOOP ON ERROR ADDRESS

:VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR
100%:
JSR
PC,SETWV
;GO SET VOLUME VALID
Efir
1108
*BRANCH TO 1108 IF NO ERROR

055370

JMP

045260

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

1'?82“555'

000024
000006
000034
000014
000042
000000

141001

4807 043712
4808 043714
4809
4810
4811 043716
4812 043724

4813 043732
4814 043734
4815 043740
4816 043746
4317 043754

4818
4819 043756
4820
4821
4822

005302
001370
016037
042737

001011
010037

062737
012737
104261
012737

000014
157777

mov
MOV
MOV
MOV
MOV
MOV

#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
#SEARCH'GO,RMCS1(R0O)
:LOAD RMCS1

;STEP THE COMMAND SEQUENCER

000023
041001

AND LOAD SEARCH COMMAND

000024
000024

001142

001136

043764

001124

#19.,
#DMD 'MUR ! DBEN ! DBCK
,RMMR1(RO)
:LOAD RMMR1
:gmsmsoaen,m1 (RO) :LOAD RMMR1

BNE

1208

:VERIFY THAT OPI IS SET

MOV
BIC
BNE
MOV

001142

001136
000014
020000

MOV
mov
rgg\c/

ADD

001140

1308:

RMERT (RO)
, SBDDAT
1303
RO, $8DADR
#~COPI, $BODAT

:STORE RMER1 AT $BDDAT

#RMER1 , SBDADR

MOV

#0P1 ,SGDDAT
261

Mov

#1508, SLPERR

; CHANGE LOOP ONJERROR ADDRESS

;VERIFY ATA SETS IF DRIVE COMPLETES SEARCH (ON CYLINDER AND
;SECTOR COMPARE SETS)

CZRMPAQ RM0S5/3/2 DSKLS ST 1

SEARCH TEST

4823 043764

4824 043764

043770
043772

4825 043774
4826

004737
104000

000137

150%:

055370
045260

012760
012760
012760

012760
012760

000031

4837
4838 044044
4839 044050

012702

000021

012760

141401
041401

000024
000006
000034
000014
000042
000000
000024
000024

041005

000024

012760

051401

000024

4852 0441 08

012702

000002

012760

151401
051401

4872
4873 044176
4874 044204
4875 044212

3308

;GO SET VOLUME VALID

*BRANCH TO 1608 IF NO ERROR

mov
MOV
MOV
MOV
MOV
MOV

AND LOAD SEARCH COMMAND

#DMD 'MUR ! DBEN 'MOC ,RMMR1 (RO)
;LOAD RMMR1
#0 ,RMDA (RO)
;LOAD RMDA
#0.RMDC (RO)
:LOAD RMDC
#0.RMER1(RO)
:LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#SEARCH'GO,RMCS1(RO)
;LOAD RMCS1

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS)

012760

4846 044070
4847
4848
484(9) 044076

4863 044144
4864
4865
4866 044152
4867 044156
044156
4868 044164
4869 044172
g;? 044174

JMP

1608

SEQ 0189

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

4834 044030
g%g 044036

4860
4861 044130

PC,SETWV

igggness.

4829 044000

044050

JSR

Eren

4827
4,828

4830 044000
4831 044006
4832 044014
4833 044022

H 15
11-APR-80 13:58:55 PAGE 12-100

MACRC v03.01

MOV

MOV
gg\cr

#17..R2
#DMD 'MUR ! DBEN ! DBCK 'MOC ,RMMR1 (RO)
:LOAD RMMR1
:gnosmmoeemnoc.m1 (RO)
;LOAD RMMR1

BNE

1708

;DROP ON CYLINDER TO RESET LATCH,AND PAISE INDEX PULSE
:TO SET FORMAT CHANGE FLOP

MOV

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

;LOAD RMMR1

sRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT

MOV

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

;STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS)
1808
MOV
#2.R2

000024

MoV

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

BNE

1808

E(EJ\CI

;LOAD RMMR1

:BHD!NR!DBENEMC!DTO.M‘I (RO) ;LOAD RMMR1

:;g?(IISESECTOR COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE
012760

012760

000024

000024
000024

MOV

MOV
MOV

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

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

:LOAD RMMR1

;LOAD RMMR1
:LOAD RMMR1

;CLOCK SEQUENCER TO SET ATA (3 CLOCKS)

012702

1858:

012760
012760
005302
001370

000024
000024

016037

2
2

042737
001011

MOV

#3,R2

;R2 = CLOCK COUNT

MOV
Blg}l

#DMD !MUR !MOC ! DBEN!DTO!DBCK
,RMMR1 (RO)
:LOAD RMMR1
:(Z)MD!MJREMC!DBEN!DTO.RWR1 (RO) :;LOAD RMMR1

BNE

185%

;VERIFY ATA IS SET
MOV
RMDS (RO) ,$BDDAT ;STORE RMDS AT $8DDAT
BIC
#*CATA,SBDDAT
BNE
1908

—

CZRMPAO RN)S/B/Z DSKLS ST 1

SEARCH TEST

4LB76 044214

4877 044222

4878 044226

4879 044234
4,880
4881 044236
4882

115

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-101
-

012737
010037
062737

001136
000012

001136

012737

044244

001124

104262

4883
4884 044244

100000

MOV
MOV

001140

ADD

#RMDS
, SBDADR

MOV

#2008 ,SLPERR

EMT

1908:

#ATA, SGDDAT
RO, $BDADR
262

;CHANGE LCOP ON ERROR ADDRESS

5\6521” THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP

4885 044244

055370

045260

JSR
E:r

PC,SETWV
2108

JMP

3308

;GO SET VOLUME VALID
*BRANCH TO 2108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

éqxggness

4890 044260

012760

041401
000000
000000
000000
000000
000031

012702

000021

012760

4906
4907 044350
4908
4909
4910 044356
4911 044362
4912 044362

4913 044370
4914 044376
4915 044400
4916
97
4918 044402
4919 044410
4920 044416
4921 044420
4922 044426
4923 044432
4924
4925
4926 044434

8
4929 044442

141401

041401

012760

041001

012702

000007

012760

141001

041001

000024

:LOAD RMMR1

#0,RMDA (RO)
:LOAD RMDA
#0.RMDC (RO)
*LOAD RMDC
#0.RMER1(RO)
:LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#SEARCH'GO,RMCS1(R0)
:LOAD RMCS1

mov

#DMD ' MUR ! DBEN 'MOC ! DBCK , RMMR1 (R0)

BNE

2208

ggg

:gmsmmoeemnoc,m1 (RO)

:LOAD RMMR1

MOV

#DMD 'MUR ' DBEN,RMMRT (RO) :LOAD RMMR1

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)

000024
000024

001140

000003

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

;:DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0

000001
001136

012702

000024
000024

001142
001142

041201

mov

MOV
MOV
MOV
MOV
MOV

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS)

000000
177776

012760

AND LOAD SEARCH COMMAND

MOV
mov

#7.R2
#DMD 'MUR ' DBEN!DBCK ,RMMRT(RO)

BNE

2308

gg\c/

;VERIFY THAT GO IS STILL SET

MOV
BIC
BNE
MOV
MOV
EMT

000024

zgmsmmoaeu.m1 (RO)

RMCS1(RO) , SBDDAT
#~CGO, SBDDAT
2408
#GO, SGDDAT
RO, $8DADR

;STORE RMCS1 AT $BDDAT

263

;SET SEEK INCOMPLETE ERROR
240%:
MOV

:LOAD RMMR1

;LOAD RMMR1

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

;LOAD RMMR1

;STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)
MOV
#3,R2

SEQ 0190

—

CZRMPAQ RMOS5/3/2 DSKLS ST 1

SEARCH TEST

4930 044446
044446
4931 044454
4932 044462
4933 044464
4934 044466
4935 044474
4936 044502
4937 044504
4938 044510
4939 044514

4940
4941 044516
4942

4943
4944 044524
4945 824524

012760
012760

005302
001370
016037
042737
001405
010037
005037
104264
012737

MACRO v03.01

141201

000024
000024

000000
177776

001142

041201

250%:

001142

001124

260$:

004737

055370

012760
012760
012760
012760
012760
012760

000031

4959 044604

012702

000021

044610

012760

141401
047401

005302

000024
000006
000034
000014
000042
000000

BIC
BEQ

#~(CGO, SBDDAT
2608

CLR
EMT

$GDDAT
264

MOV

:STORE RMCS1 AT $BDDAT

RO, $8DADR

#2658 ,8SLPERR

JSR

PC,SETVV

JMP

3308

MOV
MOV
MOV
MOV
MOV
MOV

:CHANGE LOOP ON ERROR ADDRESS

2708

;GO SET VOLUME VALID

*BRANCH TO 2708 IF NO ERROR
TRACK AND SECTOR

#DMD 'MUR ! DBEN 'MOC ,RMMR1 (RO)
:LOAD RMMR'
#0,RMDA (RO)
;LOAD RMDA
#0. RMDC (RO)
*LOAD RMDC
#0_RMER1 (RO)
LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#SEARCH' GO, mcsuaw
;LOAD RMCS1

:STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST

e
000024
000024

001370

012760

041005

000024

012760

051401

000024

4973 044644

012702

000002

012760
012760
005302
0071370

151401
051401

012702

000004

4981 044670
4982 044674

2508
RMCS1(RO)
, $8DDAT

%&3"

4965
4966
4967 044630
4968
4969
2870 044636

4974 044650
4975 044650
4976 044656
4977 044664
4978 044666

BNE
MOV

;ENABLE DEBUG CLOCK, LOAD CYLINDER,
2;7u>sness
AND LOAD SEARCH COMMAND

4950 044540
4951 044540
4952 044546
4953 044554
4954 044562
4955 044570
4959 044576

4962 044624

#DMD 'MUR ' DBEN 'MSER ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
cgno'mwoaewnssn.RMMRT (RO)
:LOAD RMMR1

; VERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP

2658:

045260

2322 044626

SEQ 019

MOV
gg\c/

MOV

001136
001140
044524

J 15

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

(17 CLOCKS)

MOV
MOV
'32!

#17. .R2
#DMD 'MUR ! DBEN ! DBCK 'MOC , RMMR1 (RO)
;LOAD RMMR1
:gmzmnsoaenmoc.m1 (RO)
:LOAD RMMR1

BNE

2758

:DROP ON CYLINDER TO RESET LATCH, AND RAISE INDEX PULSE
:TO SET FORMAT CHANGE FLOP

MOV

#DMD 'MUR ' DBEN'MI
,RMMR1 (RO)

:LOAD RMMR1

;RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT

MOV

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

;STEP COMMAND SEQUENCER TO SEARCH ENABLE

S
000024
000024

#2.R2
#DMD 'MUR ' DBEN'MOC 'DTO!DBCK ,RMMRT(RO)
:LOAD RMMR1
ggno!mmoesnmocmo.m1 (RO) ;:LOAD RMMR1

BNE

2808

;VERIFY THAT SEARCH ENABLE

281%:

(2 CLOCKS)

MOV
MOV
ggg

MOV

#4R2

IS ON DURING SECTIR COMPARE LOOP

:R2 = CLOCK COUNT

CZRMPAQ RHOS/B/Z DSKLS ST 1

SEARCH TEST

4983 044674
4984 044702
4985 044710

016037
042737
001411

4988 044726
4989 044730

005302
001361

4992 044742

010037

4993 044746
2331;_ 044754
4996
4997 044756

044756

062737
104265

001142

MOV

BIC

#*CESRC,$BDDAT

151401

000024

MOV

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

BNE

2818

MoV
MOV

#ESRC,SGDDAT
RO, $8DADR

051401

004000
001136
000C2¢4

012702

000002

044770

012760

151501
051501

5005 045010
5006 045016
5007 045024
5008 045026
5009 045034
gg} ? 045040

016037
042737
001406
012737
010037
104260

000000
177776

5012 045042
%]I z 045050

012737
012703

V45054
000001

50
5022 045066
5023 045066
5024 045074
5025 045102
5026 045106
5027 045114
5028 045122
5029
5030
5031 5032
5033

5034
5035 045130

001142

BEQ

000024

001140

RMMR1(RO)
, $BDDAT
282%

lgg\cl

001136

;BRANCH IF SEARCH NOT ENABLED

;LOAD RMMR1

lgm'HJR'K)C'DBEN'DTO.RMMRT(RO) ;LOAD RMMR1

282%:

;STORE RMMR1 AT $BDDAT

ADD

#RMMR1, SBDADR

EMT

265

§§§I DRIVE FAULT TO CAUSE ABORT CONDITION

051501

5015
5016 045054
5017 825054

SEQ 0192

000024
173777

012760

4998
4999
5000 044764
5001 044770

K 15

MACRO vC3.01 11-APR-80 13:58:55 PAGE 12-103

000000
001136

000024

mov

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

:LOAD RMMR1

;STEP 2 CLOCKS AND VERIFY GO IS RESET

000024
000024

MOV

#2.,R2

mov
E?‘c’

#DMD 'MUR ' DBEN 'MOC ! DTO ! MDF ! DBCK , RMMR1 (RO)
:LOAD RMMR1
:gm.-mneoesmnocsorosmr.m1 (RO)
:LOAD RMMR1

BNE

001142
001142
001140

285%

MOV
BIC
BEQ
MOV
MOV

RMCS1(RO) , SBDDAT
#~CGO, SBDDAT
2908
#0, SGDDAT
RO . $S8DADR

MOV

#3008, SLPERR

EMT

001124

2908:

:R2 = CLOCK COUNT

;STORE RMCS1 AT $BUDAT

260

MOV

#1.R3

;CHANGE LOOP ON ERROR ADDRESS

*INITIALIZE CYLINDER ADDRESS

Sgsglrv THE TAG BUS DURING SEARCH

004737

055370

JSR

PC,SETWV

3308

?fir

3108

;GO SET VOLUME VALID

*BRANCH TO 3108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

5?3253555

012760
012760
010360
012760
012760
012760

041401
000000

000024
000006

000000
000031

000014
000042
000000

s AR

3
012702

000011

AND LOAD SEARCH COMMAND

MoV
MOV
MOV
MOV
MOV
MOV
A

A A

MOV
MOV

#DMD 'MUR ! DBEN 'MOC ,RMMR1 (RO)
;LOAD RMMR1
#0 ,RMDA (RO)
;LOAD RMDA
R3.RMDC (RO)
*LOAD RMDC
#0_RMER1 (RO)
on RMER1
#0. RMER2 (RO)
0AD RMER2
#SEARCH'GO, RHCSHRO)
;LOAD RMCS1
A A A

AR AR AR AR

A A A AR AN A AR AN AR AR

RN AR R AR AR

AR AR

#4008 ,R2

JINITIALIZE TABLE POINTER

#9..R2

sHARDWARE ECO CHANGE TO THE PLA OF THE
;CS BOARD.
;CLOCK THE SEQUENCER THRU THE FIRST

—d TM~

CZRMPAQ Rm5l3/2 DSKLS TST 1

SEARCH TEST

L 15

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-104

SEQ 0193

PO
SS

;9. COMMAND SEQUENCES TO ALLOW THE PROGRAM

012760
012760
005302
001370
012702

141401

041401

000024
000024

312%:

:TO RUN WITH OR WITHOUT THE ECO.

MOV
MOV

#DMD ! DBEN ' MUR 'MOC ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD i DBEN ! MUR | MOC .RMMR1 (RO)
;LOAD RMWRT

BNE
MOV

3128
#4508 ,R2

DEC

045316

oo~e 9. CLOCKS
?

INITIALIZE NEW TABLE POINTER

:;'t.tQ'tttfittfifit..ttlt't""."tt'*t"tttttt.l'ttt't'ttt'i.t"tt

5\1/?21” TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3

001140
001140
001140

001136
000040

001142
001142
001142

MOV
BIC
MOV
BIS
CMP

RMMR2 (RO) , SBDDAT
;STORE RMMR2 AT $BDDAT
#RQA'RQB'
TST, $SBDDAT
(R2) . $GDDAT
R3,S$GDDAT
;OR CYLINDER ADDRESS IN
$GDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED

MOV

RO, $8DADR

8EQ

001136

ADD
EMT

3208

*BRANCH IF TAG BUS OK

#RMMR2 , S8DADR
266

3408

SSB‘{ANCE TO NEXT ENTRY IN TABLE-EXIT IF

000002

5064
5065 045242
5066 045250
5067 045256
5068
5069
5070 045260
5071 045260

5074 045270
5075 045272
5076
5077
5078 045274
5079 045274
5080 045276

141401

041401

#2,R2

BMI

3308

000024
000024

(R2)

;EXIT IF ENTRY NEGATIVE

+STEP me conmno SEQUENCER AND REPEAT VERIFICATION

nov
BR

#DMD ! DBEN 'MUR 'MOC ! DBCK , RMMR1 (RO)
;LOAD RMMR1
#DMD i DBEN ! MUR | MOC .RMMR1 (RO)
:LOAD RMMR1
3158

éggf;em TAG BUS TEST FOR EACH PRIME CYLINDER,

3,08:

I.E..

1.2.4....

ASL

;SHIFT TO NEXT CYLINDER

BHIS

3408

SEXIT IF WAS DONE

5008

*JUMP OVER TABLE

cMP

002000

BR
BR

R3,#1024.
3008

*TEST NEXT CYLINDER

5.53%& OF TAG BUS CONTROL AND BIT VALUES

.WORD
JWORD
CWORD
JWORD
JWORD

4508 :
5090 045320
5091 045322

ADD

DONE

1777
1777
1777
1777
1777

JWORD
.WORD
.WORD
.WORD

CC
CC
TAG!'CC
TAG!CC

LWORD
.WORD
.WORD

TAG!CC
TAG!CC
TAG!CC

;BUS BITS AT HIGH IMPEDENCE STATE
:

;CONTROL BITS ENABLED, BIT 6 ON

;TAG COMES ON

;START TABLE HERE FOR HARDWARE ECO CHANGE

CZRMPAQ RMO5/3/2 DSKLS TST 1

SEARCH TEST

5092 045324
5093 045326

5095

024000
177777

5096 045330
5097 045332
5098 045334
5099 045336
g}g? 045340

004000
001777
001777
001777
001777

g}g% 045342

177777

.WORD
.WORD

TAG!CC
=1

;END TABLE HERE FOR HARDWARE ECO CHANGE

.WORD

(CC

:TAG GOES OFF

.WORD
WORD
.WORD
.WORD
.WORD

.WORD

g}gg 045344

5008 :

51%

000004
000240
012706
013700
013701
012737

001100
001276
001462
000115

5108 045372

004737

055370

5111
5112 045404

5113 045404

5114 045412
5115 045420
5116 045426
5117 045434
g”g 045442

5120

000402
104000
000550
:

012760

041401

012760
012760
012760
012760
012760

000000
000000
000000
000000
000031

5121 045450
5122 045454
045454

012702

000021

012760

141401

5124 045470
g}%g 045472

005302
001370

5127
5128 045474
g}?}g 045502

012760
012760

5123 045462

5131
5132-045510

5133 045514
045514

5134 045522

012760 041401

041001
041401

012702

000002

012760

151401

012760

051401

001226

A AR AR A A A AR AR

;END OF TABLE

AR AR A AR AT AR AR

AR AR AR AR AR AR AR AR

SEARCH TIMEOUT TEST
AR AR AR

AR AR

AR AA

;

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

;LOAD
;RO =
;R1 =
;;SET

JSR

PC,SETWVV

;GO SET VOLUME VALID

108

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

MOV

MOV
MOV
MOV
MOV
MOV

JBRANCH TO 108 IF NO ERROR

90s

:ENABLE DEBUG CLOCK AND LOAD SEARCH COMMAND
108:

000014
000042
000034
000006
000000

AR AR AR Rr

SCOPE
NOP
MOV
MOV
MOV
MOV
BR
EMT
BR

000024

sCONTROL BITS DISABLED

AR AR AR AR AR A AR AR AR AR AR AR

TST115:

045344
045346
045350
045354
045360
5107 045364
045376
045400
g}?g 045402

CC
1777
1777
1777
1777

;END OF TEST

;*TEST 115

045344

SEQ 0194

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

#0 ,RMER1(RO)
;LOAD
#0 ,RMER2 (RO)
:LOAD
#0,RMDC (RO)
sLOAD
#0 ,RMDA (RO)
sLOAD
#SEARCH!GO,RMCS1(RO)

;LOAD RMMR1

RMER1
RMER?2
RMDC
RMDA
;LOAD RMCS1

;EXECUTE SEARCH TO_TEST FOR ON LATCH RESET (17 CLOCKS)
000024

208:

000024

000024
000024

MOV

#17..R2

MOV

#DMD !MUR ! DBEN !MOC ! DBCK ,RM* " (RO)

DEC
BNE

R2
208

MOV

#DMD MUR i DBEN !MOC ,RMMR1 (R()

;LOAD RMMR1

;DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER
MOV
#DMD !MUR ! DBEN .RMMR1(R0O) ;LOAD RMMR1
MOV
#DMD !MUR ! DBEN'!MOC
,RMMR1 (RO)
;LOAD RMMR1
;STEP COMMAND SEQUENCER TO SECTOR COMPARE LOOP (2 -CLOCKS)
MOV
#2,R2

000024

308:

MOV

#DMD ! DBEN !MUR !MOC ! DBCK !DTO ,RMMR1 (RQ)

;LOAD RMMR1

#DMD ! DBEN ! MUR !MOC IDTO,RMMRT (R0) ;LOAD RMMR1

BT RC=TOMMOMDZEMr-RXC=TOMMOMNADZ
BV
RC=TOATMMOMNADZ BrXNCeaTMAMOAMO D

M 15
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-105

T OOTMMOMDZ

CZRMPAQ RM05/3/2 gSKLS ST 1

151401
051401
000024
173777

51
51
51
51
51
51
51
5576
51
51
51
51
51
51
51
5156 045624
5157 045624
5158 045632
5640
5159 045644
5644
5160 045652

«08

000005

001140

MOV

#5,R2

MOV
MOV
MOV
BIC

#DMD ! DBEN !MUR !MOC ! DBCK ! DTO ,RMMR1 (R0)
;LOAD RMMR1
#DMD ! DBEN!MUR
!MOC !DTO,RMMRT (RO) ;LOAD RMMR1
RMMR1(RO)
, SBDDAT
;STORE RMMR1 AT $BDDAT
#*CESRC,$BDDAT

DEC

BEQ

50s:

001136

Wi
w

004000
001136
000024

000024
000024
001142
001142

BNE
BR
MOV
MOV

508

408
608
#ESRC,$SGDDAT
RO, $8DADR

ADD

#RMMR1, SBDADR

908

EMT

;BRANCH IF SEARCH NOT ENABLED

:SETUP ERROR MSG

265

éggop DTO TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI

041401
070000
133666

000024
001530

000014

001742
001142

157777

"
e

001530
133640
020000
001136
000014

#DMD 'MUR ' MOC ! DBEN , RMMR1 (RO)
;LOAD RMMR1
#70000,WATCH
;SET WATCHDOG TIMER VALUE

mov
BIC
BNE

RMER1 (RO)
, SBDDAT
:STORE RMER1 AT $BDDAT
#~COP1, $BDDAT
808
WATCH
708
PC,asTOP
:STOP THE CLOCK
#OP] , $GDDAT
*SETUP ERROR MSG
RC, $8DADR

TST

BNE
JSR
MOV
MOV
ADD

001140
001136

EMT

80%:

133610

TO SET.

MoV
MOV
JSR

STEP

PC.aCLOCK

*START THE CLOCK

#RMER1, SBDADR
267

908

JSR

PC,aSTOP

908 :

;STOP THE CLOCK

;END OF TEST

;;ttttttittttttttttttt"tt'tttttttttttttittttttt!tttttttttttttttt

S*TEST 116

DATA COMMAND TESTS (1)

::ttttttttttttttttt'ttttt'ttttttttttt.ttttttttttttttitt'ttttttttt

NOVwn

NNN

—_——

wvivin

012737

§888
SRS

T$1116:

SCOPE

NOP

MOV

001226

MOV
MOV
MOV

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

T mnM
B

012702

s THROUGH THE LOOP AND VERIFY SEARCH IS ENABLED.

308

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS
;R1_= POINTER TO DEVICE

;:SET TEST NUMBER IN APT MAIL BOX

;VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY

RN X C=TOMMOMNMDZ

DEC
BNE

R C~=TITOMMOMNMDZ

005302
001370

SEQ 0195

XC=TITOMMOMNDZ

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

;THE COMMAND SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP.

2.2 RRRRRRIRRRIK
RS 33

RUNIRSEREHEAE Soqgay

51
51
51
51
51
51
51

%
%

]

MACRO v03.01

MR C—=TITOMMOMNMD Z R

94 RMPAQ RMOS5/3/2 DSKLS TST 1
n 5
SEARCH TIMEOUT TEST

CZRMPAQ RMOS5/3/2 DSKLS TST 1

DATA COMMAND TESTS (1)

5178 045752
045756
045760
51 79 045762

5180
5181
5182 045764
5183 045764

004737
000402
104000

B 16
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-107

055370

000471

000024
000014
000042
000006
000034
000000

(72760
0.2760
012760
012760
012760
012760

041401
000000
000000
000000
000000
000071

5191 046030

012702

000003

046034
5193 046042

012760
012760
005302
001370
-

141401
041401

000024
000024

012760

040401

000024

012702

000002

5203 046074

012760
012760

140401
040401

000024
000024

5206 046106
5207 046114

016037
042737

000014
157777

001142
001142
001140

5192 046034

5194

5195 046052
5196
5197
5198 046054
2199
200
5201 046062

5209 046124

5210 046132
5211 046136
gg}% 046144

010037
062737
104270

5214 046146
5215
5216
5217 046154
5218 046154
046160

012737

046162

52%8 046164

52
5221
5222 046166
5223 046166
5224 046174
5225 046202
5226 046210
5227 046216
5228 0462264

PC.SETVV
108

408

;60 SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR

isgmu DEBUG CLOCK AND LOAD READ COMMAND

5184 045772
5185 046000
5186 046006
5187 046014
5188 046022

5189
5190

JSR
?fir

SEQ 0196

020000

mov
MOV
MOV
MOV
MOV
MOV

#DMD ' MUR ' MOC ! DBEN, RMMR1 (RO)
:LOAD RMMR1
#0,RMER1(RO)
:LOAD RMER1
#O.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
mov
rgg\c/
BNE

#3.R2
#DMD ' MUR ' MOC ! DBEN' DBCK , RMMR1 (RO)
-LOAD RMMR1
:gmsmmoc:oaemm1 (RO)
:LOAD RMMAR1
208

:DROP UNIT READY

MOV

#DMD 'MOC ! DBEN,RMMRT (RO) :LOAD RMMR1

;STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS)

001136
000014

001136

046154

001124

MOV
mov
gg\cz

#2.R2
#DMD 'MOC ' DBEN!DBCK ,RMMR1(RO)
:LOAD RMMR1
mnz iMOC i DBEN.RMMR1(RO) ;LOAD RMMR1

BNE
MOV
BIC
BNE
MOV
MOV
ADD

308
RMER1(RO)
, $BDDAT
#~COPI, $BODAT
408
#OPI,SGDDAT
RO, SBDADR
#RMER1, S8DADR

MOV

#508 ,SLPERR

EMT

40$:

:STORE RMER1 AT $SDDAT

270

;CHANGE LOOP ON ERROR TEST

%gmv DATA COMMAND ABORTS AT LOCATION 129

004737

055370

104000

000576

JSR

PC,SETWV

1508

Efir

60$

;GO SET VOLUME VALID

*BRANCH TO 60$ IF NO ERROR

ésglABLE DEBUG CLOCK AND LOAD READ COMMAND

012760
012760
012760
012760
012760
012760

041401
000000
000000
000000
000000
000071

000024

000014
000042
000006
000034
000000

MoV

MOV
MOV
MOV
MOV
MOV

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

:LOAD RMMR1

#0,RMER1(RO)
:LOAD RMER1
#0_RMER2(RO)
:LOAD RMER2
#0_RMDA (RO)
*LCAD RMDA
#0_RMDC (RO)
*LOAD RMDC
mo'co RMCS1(RO)
:LOAD RMCS1

€ 16

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-108

DATA COMMAND TESTS (1)

5229
5230
5231 046232
5232 046236
046236
5233 046244
3234 046252
2235 046254

012702

000004

012760
012760
005302
001370

141401
041401

52
§238 046256

012760

041501

000024

012702

000001

012760
012760

141501
041501

000024

5241 046264
5242 046270
046270
5243 046276

000020

012760
012760
016037
042737
001014

045501
041501
000024
157777

046346
5257 046350
3258 046352
5259 046360
5260 046364
5261 046372
ggg% 046374

001361
012737
010037
062737
104271
000472

5275 046422
5276 046426
046426
5277 046434
5278 046442
22873 046444
2
5281

000024
000024

:
708

MOV
B?g

#DMD !MUR !MOC ! DBEN'DBCK ,RMMR1(RO)
;LOAD RMMR1
gm'ma'mc'oeen.RMMRT (RO)
;LOAD RMMR1

BNE

708

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

808

000024

MOV

#1,R2

MOV

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

BNE

80%

gg\é

;LOAD RMMR1

#DHDZ'MUR ' MOC ! DBEN ! MDF _.RMMR1 (RO) ;LOAD RMMR1

;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO

012702

5268 046402
5269 046410

;STEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS)
MOV
#4,R2

8
2249 046310
5250 046314
046314
5251 046322
5252 046330
5253 046336
5254 046344

5264
5265 046376
5266 046376
5267 046402

SEQ 0197

020000
001136
000024

;FORCE B'Ilg CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS

000024
000024
001142
001142

16..R2

mov
MOV
MOV
BIC
BNE

#DMD 'MUR ‘ MOC ! DBEN!MD
'MCLKF ,RMMR1 (RO)
:LUAD RMMR1
#DMD ' MUR | MOC i DBEN !MDF _.RMMRT (RO):LOAD RMMR1
RMMR1 (RO), $BDDAT
: STORE m1 AT $BDDAT
#~CEBL, SBDDAT
90$
;BRANCH IF EBL IS SET

DEC

BNE
MOV
MOV

001140
001136

;MAXIMUM NUMBER OF BIT CLOCKS

ADD
EMT

85
#EBL , SGDDAT

RO, SSDADR

;CONTINUE BIT CLOCKS IF COUNT NOT 0

#RMMR1 , SBDADR
271
,

1508

é(s);ep THE SEQUENCER THROUGH ITS TEST FOR EBL

012702

000002

012760
012760

141501
041501

012702

000020

012760
012760
005302
001370

045501
041501

100;

000024
000024

MOV

MoV
gg\c/
BNE

(2 CLOCKS)

#2.R2
#DMD 'MUR 'MOC ! DBEN'MD
! DBCKF ,RMMR1(RO)
:LOAD RMMR1
tgm'mn'noc'oeewmr.RMMRT(RO) :LOAD RMMR1

1008

;ABORT EBL SHOULD NOW BE INACTIVE - FORCE BIT CLOCK USING THE
MAINTEN'Ag\CIE REGISTER TO RESET EBL (16 BIT CLOCKS)
1108

000024

#16. .R2

;MAXIMUM NUMBER OF BIT CLOCKS

mov

#DMD ! MUR !MOC ! DBEN !MDF !MCLK ,RMMR1(RQ)

BNE

1108

BKE)\CI

:LOAD RMMR1

#gno'nua'noc'oeewmr.RMR1 (RO) ;LOAD RMMRI

;VERIFY EBL IS NOW RESET

;ISSUE 16 BIT CLOCKS THEN TEST

CZRMPAD RMOS5/3/2 DSKLS TST 1

116

DATA COMMAND TESTS

(1)

001142
001142

88
&

%&o 3%

5282 046446
5283 046446
5284 046454
5285 046462
5286 046454
5287 046470
5288 046474
5289 046502
5290 046504
5291
5292
5293 046506
5294 046506
5295 046512
046512
5296 046520
5297 046526
5298
30

MACRO v03.01

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

120%:

BIC

BEQ

sVERIFY

:
1408

104274

012737
308
5309 046570
5310 046570
046574

046570

#RMMR1, SBDADR

1508

:
1508

;BRANCH IF EBL IS RESET-

RO, $BDADR
273

MOV

#4,R2

MOV

#DMD 'MUR ' MOC ' DBEN'MDF 'DBCK

BNE
MOV

1408
RMCS1(RO) , SBDDAT

BEQ
CLR

1508
$GDDAT

ggmsmmnoc:oeemmr.m1 (RO)

#(GO, SBDDAT

MOV

RO, $8DADR

MOV

#2008,SLPERR

EMT

001124

:STORE RMMR1 AT $BDDAT

GO RESETS WITHIN 4 CLOCK CYCLES

BIC

001140
001136

1308

ADD

gg\c/

000000
177776

#*CEBL
, $BODAT
$GDDAT

EMT

130%:

RMMR1 (RO)
, $BDDAT

CLR

MOV

001136

141501
041501

MOV

SEQ 0198

,RMMR1(RO)

:LOAD RMMR1

;LOAD RMMR1

:STORE RMCS1 AT $BDDAT

274

;CHANGE LOOP ON ERROR ADDRESS

;VERIFY SEQUENCER BRANCHES TO SEEK WHEN RUN AND GO FLOP SETS

200$%:

055370

JSR

PC,SETVV

2508

ga"

2108

;GO SET VOLUME VALID

*BRANCH TO 2108 IF NO ERROR

: ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

5315 046602
5316 046610
5317 046616

041401
000000
000000
000000
000000
000071

012702

012760

5329
5330 046672
5331 046700
5332 046706
5333 046710
5334 046716

2108:

141401

#DMD ! MUR 'MOC ! DBEN, RMMR1 (RO)
: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

;MOVE SEQUENCER ;0 TSST FOR RUN AND GO AT LOCATION 130 (5 CLOCKS)

000005
041401

MOV
MOV
MOV
MOV
MOV
MOV

000024
000024

000024
137777

001142
001142

040000
001136

001140

2208:

MOV

MOV
MOV
DEC
BNE

;VERIFY RUN
MOV
BIC
BNE
MOV
MOV

#DMD !MUR !MOC ! DBEN ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
ggno!mnmoc !DBEN,RMMR1(R0)
;LOAD RMMR1

2208
GO IS SET

RMMR1 (RO) , $BDDAT
#*CRG,$BDDAT

2308

#RG, SGDDAT
RO, $8DADR

;STORE RMMR1 AT $BDDAT

C 4 RMPAQ RMOS/3/2 DSKLS TST 1
T 1 16
DATA COMMAND TESTS (1)

5335 046722
5336 046730
2337 046732

062737
104275

000024

E 16

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-110

001136

ADD

#RMMR1
, SBDADR

2508

EMT

000435

SEQ 0199

275

2‘3’8’}1" THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE

012702

5344 046754
5345 046756
5346 046760

016037

000001
041401

141401

000024
000024

000040

001142

240%:

MOV
MOV

#1,R2
#DMD ' MUR ' MOC ! DBEN! DBCK , RMMR1 (RO)

BNE
MOV

2408
RMMR2 (RO) , SBDDAT

gg\c/

:gmsmamocsoes~.m1 (RO)

:LOAD RMMR1

;LOAD RMMR1

;STORE RMMR2 AT $BDDAT

:.'tt‘ttt'ttfit'fi"tfi.'t'."'Q".t...t'ttQ..tt"...'t"t...""."'

;

5354 046766
53
5356
5357
5358 046774
5359 047002
5360 047010
5361 047012
5362 047016
5363 047024
5 364
5365 047026
5366
5367
5368 047034
5369 047040
5370 047040
047044
047046
5371 047050
5372

042737

162000

001142

BIC

#RQA'RQB'
TAG, $BDDAT

BIC

#RQA'RQB! TAG!CH,$BDDAT

:THE FOLLOWING CODE WAS ADDED
*TO ALLOW THE PROGRAM TO RUN WITH
*OR WITHOUT THE ECO TO THE CS BOARD.
;HARDWARE ECO CHANGE CAUSES CC AND

“CH TO SET AT THE SAME TIME

".'t"t'fi't'l‘fi..‘ttt*t"I't""'Q'Qt.l'fi'tl"t.fi*"fi"t'.'.'.'.'...'

012737
023737
001406
010037
062737
104276

004000
001140

001740
001142

001136
000040

001136

012737

047040

001124

012702

000144

MOV
CMP
BEQ
MOV

012760

041401
000000
000000
000000
000000
000071

012737
004777

000310
132402

5386 047144

016037
042737
001017

000024
137777

#RMMR2
, SBDADR

MOV

#2608,SLPERR

276

;CHANGE LOOP ON ERROR ADDRESS

;VERIFY DATA COMMAND ABORTS AT COMMAND SEQUENCER LOCATIONS 144, 145

055370

5373
5374 047052
5375 047052
5376 047060
5377 047066
5378 047074
5379 047102
5380 047110
5381
5382
5383 047116
24

ADD

EMT

2508:

#CC,SGDDAT
$GDDAT
, $BDDAT
2508
RO, SBDADR

MOV

#144,R2

sINITIALIZE TEST LOCATION

Jem
?:r

PC,SETWV
2708

;GO SET VOLUME VALID
*BRANCH TO 2708 IF NO ERROR

3208

é%gBLE DEBUG CLOCK AND LOAD DATA COMMAND

mov

MOV
MOV
MOV
MOV
MOV

#DMD ' MUR ' MOC ! DBEN, RMMR1 (R0)

;WAIT FOR RUN AND GO TO SET
e

MOV

#200. ,WATCH

MoV

RMMR1 (RO)
, SBDDAT

BNE

2908

JSR

BIC

:LOAD RMMR1

#0,RMER1(RO)
:LOAD RMER]
#0_RMER2(R0)
:LOAD RMER2
#0_RMDA (RO)
*LOAD RMDA
#0_RMDC (RO)
*LOAD RMDC
#RD
! GO,RMCS1(RO)
:LOAD RMCS1
PC,aCLOCK

#~CRG, SBDDAT

:SET WATCHDOG TIMER VALUE
*START THE CLOCK

:STORE RMMR1 AT $BDDAT

CZRMPAQ RMO5/3/2 DSKLS TST 1

Té

DATA COMMAND TESTS (1)

5387 047146
5388 047152
5389 047154
5390 047160

001530
132354
040000
001136
000024

001140

290%:

012760
012769

141401
041401

041501

012703

000001

012760
012760
005303
001370

141501
041501

012702

020000
001136
000024

54
2
5435 047376

5436
5437 047400

5438
5439

00
012702
00062
012737

ADD
EMT

g;gnn1,$BDADR

3208

JSR

PC.aSTOP

CMP

000024
000024

000024

2808

;STOP THE CLOCK

RO, $8DADR

;STOP THE CLOCK

300%:

#6,R3

#144 ,R2

sSETUP CLOCK COUNT

BEQ
MOV

300%
#7 ,R3

MOV

#DMD !MUR !MOC ! DBEN ! DBCK

BNE

300s

B(EJZ

:gmzmamoc:oesn.m1 (RO)

000024
000024

000024

001142
001142

305%:

;LOAD RMMR1

;LOAD RMMR1
CLOCK)

MoV

#1,R3

MOV

#DMD !MUR !MOC ! DBEN ! MDF ! DBCK ,RMMR1 (R0)

BNE

305%

Bfié\é

:gMD!MJR!MC!DBEN!HDF.m1 (RO)

;LOAD RMMR1

;ISSUE 2 CLOCKS

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO
sFORCE 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 (RO)
;LOAD RMMR1
MOV
#DMD !MUR ! MOC ! DBEN !MDF
,RMMR1(R0O) ;LOAD RMMR1
MoV
RMMR1(RO) ,$BDDAT
;STORE RMMR1 AT $BDDAT

001140
001136

310%:

000145

BIC
BNE

#~CEBL ,$8BDDAT
3108

DEC
BNE
MOV

R2
3068
#EBL ,$GDDAT

cMP
BNE
MOV

#RMMR1, $8DADR
271
#1464 ,R2
3208
#145 ,R2

MOV

#3308, $LPERR

MOV
ADD
EMT

BR
001124

,RMMR1(RO)

;SET DRIVE FAULT TO FORCE ABORT CONDITION
MOV
#DMD !MUR !MOC ! DBEN!MDF ,RMMR1(R0O)
;CLOCK SEQUENCER THROUGH ITS TEST FOR ABORT

000144

047410

PC,aSTOP
#RG, SGDDAT

MOV

000020

045501
041501
000024
157777

JSR
MOV

SEQ 0200

;MOVE COMMAND SEQUENCER TO ABORT TEST (LOCATION 144 OR 145)

000006
000144

000007

WATCH

MOV

001136

132324

012703

BNE

RRLLLR LEXR

5395 047204
204
5396
5397
5398 047210
5399 047214
5400 047220
5401 047222
5402 047226
047226
5403 047234
5404 047242
5405 047244
5406
5407
5408 047246
09

F 16

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-111

320%:

;BRANCH IF EBL IS SET
sCONTINUE BIT CLOCKS IF COUNT NOT O

RO, $8DADR

2608°

;VERIFY HEAD TAG DURING DATA COMMAND

;s CHANGE LOOP ON ERROR ADDRESS

CZRMPAO RMOS/3/2 DSKLS TST 1

116

DATA COMMAND TESTS (1)

5440 047406

5441 047410
5442 047410
047414

047416
5443 047420
5444
5445
5446 047422
5447 047422
5448 047430
5449 047436
5450 047444
5451 047450
gzg% 047456

5454
5455 047464
047472
5456 047476
047476
5457 047504
5458 047512
5459 047514
2460 047520
5461 047522
5462 047526
5463 047534
5464 047540
5465 047546
5466 047550
5467 047552
047552
5468
5469
3470 047556
5471 047562
047562
5472 047570

005002
004737
000402
104000
000570

055370

CLR

;INITIALIZE TRACK ADDRESS = 0

JSR

PC,SETWV

;GO SET VOLUME VALID

4008

Egr

3408

012760
012760
012760
010260
012760
012760

041401
000000
000000
000006
000000
000071

000024
000014
000042
000034
000000

012737
004777

000310
132034

001530

016037
042737

000024
137777

001142

001017
005737
001366
004777
012737
010037
062737
104275
000514

*BRANCH TO 3408 IF NO ERROR

132006
040000
001136
000024

360%:

041401

000024
000024

5477 047602 012760 041001

000024

041401

MOV

#200. ,WATCH

mov
BIC
BNE
ST
BNE
JSR
MOV
MOV
ADD
EMT
BR

RMMR1 (RO)
, S8DDAT
;STORE RMMR1 AT $BDDAT
#~CRG, SBDDAT
3608
WATCH
3508
PC.,aSTOP
;STOP THE CLOCK
#RG, SGDDAT
RO, $8DADR
#RMMR1 , SBDADR
275
4008

JSR

PC,ASTOP

JSR

001136

141401

012760

001140

012760

#DMD ' MUR ! MOC ! DBEN, RMMR1 (RO)
:LOAD RMMR1
#0,RMER1(RO)
;LOAD RMER1
#O.RMER2(RO)
:LOAD RMER2
R2.RMDA (RO)
*LOAD RMDA
#0 _RMDC (RO)
*LOAD RMDC
#RD !GO, RMCS1(RO)
:LOAD RMCS1

;WAIT FOR RUN AND GO TO SET

001530

000021

(012760
005303

MOV
MOV
MOV
MOV
MOV
MOV

001142

012703

PC,acLOCK

;SET WATCHDOG TIMER VALUE

*START THE CLOCK

:STOP THE CLOCK

;STEP COMMAND segg;msg TO HEAD SEQUENCE, LOCATION 156 (17 CLOCKS)

3708
:

MOV
rl;xE)\C/
BNE

#DMD ' MUR ' MOC ! DBEN ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
:gm:mnmocsoee~.m1 (RO)
:LOAD RMMR1
370s

;DROP AND RAISE ON CYLINDER TO RESET ON LATCH

MOV

000024

MOV

#DMD 'MUR ' DBEN,RMMRT (R0) ;LOAD RMMR1
#DMD | MUR i MOC ! DBEN, RMMR1 (R0)

:LOAD RMMR1

;;ttttttttttfitttttttttt"tt'tfitt'tiItttttitt'tfittttttttttittttt't

MOV

54
5485 047616
5486
5487
5488 047622
5489 047622
5490 047630

SEQ 0201

35542&5 DEBUG CLOCK AND LOAD DATA COMMAND

131756

5478 047610

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

Saes

004777

5473 047576

G 16

MACRO v03.01

#4508 ,R3

;INITIALIZE TABLE POINTER

rcignowzf ECO CHANGE TO THE PLA ON THE

012703

MOV

000004
v

012760
012760

141401
041401

000024

#4,R3

:CLOCK THE SEQUENCER THRU THE FIRST

‘4 COMMAND SEQUENCES TO ALLOW THE PROGRAM

*TO RUN WITH OR WITHOUT

MCV

MOV

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

#DMD | DBEN ! MUR MOC ,RMMR
1 (RO)

THE ECO.

:LOAD RMMR1

CZ RMPAQ RMOS5/3/2 DSKLS TST 1
mn 16
DATA COMMAND TESTS (1)

5491 047636
5492 047640

5432 047642

005303
001370
012703

MACRO V03.01

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

SEQ 0202
DEC
BNE
MOV

050014
MR

;DONE 4 CLOCKS 7

#475% ,R3

;INITIALIZE NEW TABLE POINTER

372%

sNO !

AR ARtt
22 222323 22222222222
t
225

—ha-a_ha-a-a_13

v
Vi
visbnwvioaovvoaoa
oo

5502 047670
5503 047672
5504 047676
5505 047704
5506 047706
ssgg 047714

016037
042737
011337
010204
000304
050437
023737

047722
047726
047730

001140
001140

001142

141401
041401

000024
000024

5525 047764
5528 047766
5529 047766
5530 047772
5531 050000
5532
5533 050002
5534
5535
5536 050004

5537 050004
5538 050006
5539 050010
5540 050012
5541 050014
5542 050014
5543 050016
5546 050024

RMMR2 (RO) , $8DDAT

MOV
MOV

(R3) . $GDDAT
R2,R4

CMP
BNE
MOV
MOV

$GDDAT, SBDDAT
3908
#DMD ' MUR ! MOC ! DBEN! DBCK , RMMR1 (RO)
;LOAD RMMR1
#DMD ! MUR | MOC | DREN .RMMR 1 (RO)
:LOAD RMMR1

BIC

SWAB
BIS

TST

BMI
B8R

047732

5523 047756

MOV

#RQA'RQB!
TST, $SBDDAT
R4
R4 ,$GDDAT

;STORE RMMR2 AT $BDDAT

;GINERATE EXPECTED TAG BUS

;ADVANCE TO NEXT TABLE ENTRY
ADD
#2 ,R3

000002

(R3)

3808
375$

Sggirr TO NEXT TRACK ADDRESS-EXIT LOOP IF DONE

000400
010000

020237

001330

020237
101007
000611

001330

101615

5547

Q00040
150000
001140

§¥§§IFY TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2

001330

ADD

#TA1,R2

CMP

R2,LSTRK
330$

“NO !

CMP
BHI
B8R

R2,LSTRK
4008
3308

:DONE WITH TRACKS ON RM02/3 ?
:YES, EXIT

BIT
BEQ

385%:

BLOS

#TA16,LSTRK
385$

;ADVANCE TRACK ADDRESS

2IS IT RMOS ?
‘NO !

*DONE WITH TRACKS ON RMOS ?

éSS’}OR ON TAG BUS DURING HEAD SEQUENCE

010037
062737
104276

000440

001136
000040

001136

MOV
ADD

RO, $8DADR
#RMMR?
, SBDADR

5008

EMT

4008
:

276

;:JUMP OVER TABLE

z-gegw OF TAG BUS DURING HEAD SEQUENCE

475%:

.WORD
.WORD
.WORD
.WORD

CH
CH
_ CH!TAG
° CHITAG

.WORD
.WORD
.WORD
.WORD
JWORD

CH!'TAG
CHITAG
CHITAG
CHITAG
-1

:START TABLE HERE FOR HARDWARE ECO CHANGE
_
;END TABLE HERE FOR HARDWARE ECO CHANGE

CZRMPAO RMOS5/3/2 DSKLS TST 1

T16

DATA COMMAND TESTS

5548

5549 050026
5550 050030
5551 050032
552 050034

5566 050070
5567 050072
5568 050074
5569 050076
5570 050100
5571
5572 050102
5573
5574 050104
5575
5576

(1)

MACRO v03.01
:

.WORD

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

001777
001777
001777
001777
001777

WORD
WORD
.WORD
WORD
WORD
WORD
.WORD

1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777

177777

.WORD

-1

002000
001777
001777
001777

.WORD

1777
1777
1777
1777
1777
1777
1777

;END OF TABLE

;END_OF TEST
AR AR A AR

*TEST 117

000004
000240
012706

013700
013701
012737

TST117:

001100
001276
001462
000117

A AR

AR R

A A AR AR AR A AR A AR

MOV
MOV
MoV

A AN A AR

DATA COMMAND TESTS

(2)

AR AR AR

AAA A AN

AR AR A A AR

382PE
MOV

001226

SEQ@ 0203

5008 :

5577
5578
5579
5580 050132
050136
050140
5581 050142
5582
5583
5584 050144
5585 050144
5586 750152
5587 050160
5588 050166
5589 050174
5590 050202
5591
5592

116

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

AR AR

AAR RN

AR AR AR

AR AR AN AR

AR AR

:SCOPE CALL
#STACK,SP

$BASE ,RO
TSTQUE ,R1
#117 ,$TESTN

LOAD THE STACK POINTER

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

;VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT RESET
055370

JSR
ng

PC,SETVV
108

60%

;GO SET VOLUME VALID
;BRANCH TO 108 IF NO ERROR

%SQABLE DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDER SEQUENCE

041401

000071

000024

000014
000042
000006
000034
000000

MoV

MOV
MOV
MoV
MOV
MOV

#DMD !MUR !MOC ! DBEN ,RMMR1 (R0)
#0 ,RMER1(RO)
;LOAD
#0 ,RMER2 (RO)
;LOAD
#0 ,RMDA (RO)
;LOAD
#0 ,RMDC (RO)
:LOAD
#RD !GO,RMCS1(RO)

;WAIT FOR RUN AND GO TO SET

;:LOAD RMMR1

RMER1
RMER?2
RMDA
RMDC
;LOAD RMCS1

CZRMPAD RMOS5/3/2 DSKLS TST

)

DATA COMMAND TESTS (

5593 050210
050216
5594 050222
050222
5595 050230
5596 050236
5597 050240
5598 050244
5599 050246
5600 050252
5601 050260
5604 050274
5605 050276
050276

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 050364
225? 050366
5622
5623 050374
5624 828274

012737
004777

0003
1313

042737
001017
005737
001366
004777
012737
010037

137777

J 16
11-APR-B0 13:58:55 PAGE 12-115

MACRO v03.01

001530

MOV

208

JSR

01142

MOV

142

131262
040000
001136

001140

TST

WATCH

JSR

PC,aSTOP

MOV
ADD
EMT

RO, $BDADR
#RMMR1 , $BDADR
275

MOV

001136
30%:

004777

131232

012702

000023

012760
012760
005302
001370
016037
042737
001011
012737
010037
062737
104277
012737

141401
041401

000024

000014
157777

001142

020000
001136
000014

001140

050374

001124

;START THE CLOCK

RMMR1(RO)
, $BDDAT

#“CRG,$BDDAT

BNE

;SET WATCHDOG TIMER VALUE

PC,aCLOCK

BIC

BNE

001530

#200. ,WATCH

SEQ 0204

;STORE RMMR1 AT $BDDAT

308

208

#RG,SGDDAT

60%

JSR

PC,aSTOP

;STOP THE CLOCK

;STEP COMMAND SEQUENCER AND VERIFY OPI SETS (19 CLOCKS)
«08
MOV
#19. .R2

000024

MOV

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

BNE

408

BIC

‘“COPI $BDDAT

FDKE)\CI

MOV

001142

;

001136
50%:

BNE
MOV
MoV
ADD
EMT
MOV

:SMDEWR!MC!DBEN.MT (RO)

RMER1 (RO),$BDDAT
508
"OPE $GDDAT
RO, SBDADR
MR1 . $8DADR
277
#608,SLPERR

;LOAD RMMR1

;STORE RMER1 AT $BDLDAT
;BRANCH IF OP] SET

s CHANGE LOOP ON ERROR ADDRESS

éggR"Y DATA COMMAND ABORTS DURING SEEK WAIT LOOP

004737

055370

JSR
?:r

PC,SETWV
70$

1408

;GO SET VOLUME VALID
*BRANCH TO 70$ IF NO ERROR

55;4@81.5 DEBUG CLOCK AND LOAD DATA COMMAND

041401
000000
000000

012760

000000
000000
000071

000024
000014
000042
000034
000006
000000

012737
004777

000310
131046

001530

000024
137777

001142

5629 050406

012760

5631 050422

012760

5634 050444
5635
5636
5637 050452
050460
5638 050464
050464
5639 050472
5640 050500
5641 050502

5632 050430

012760

042737
001017
005737

001530

001142

mov
MOV
MOV
MOV
MOV
MOV

#DMD ' MUR ' MOC ! DBEN, RMMR1 (RO)
:LOAD RMMR|
#0,RMER1(RO)
:;LOAD RMER]
#0 RMER2(R0)
-LOAD RMER2
#0_RMDC (RO)
*LOAD RMDC
#0_RMDA (RO)
*LOAD RMDA
#RD ' GO,RMCS1(RO)
:LOAD RMCS1

;WAIT FOR RUN & GO TO SET
L=

MOV

#200. ,WATCH

mov

RMMR1 (RO)
, SBDDAT

TST

WATCH

JSR

gtx‘g

PC,acLoCK

gagns,seoon

;

:SET WATCHDOG TIMER VALUE
*START THE CLOCK

:STORE RMMR1 AT $BDDAT

C z RMPAQ RMOS5/3/2 DSKLS TST 1

T 17
f

DATA COMMAND TESTS (2)

131020
040000

001136
000024

001140

001136

5679 050654

5680 050660
0660
5683 050676
5684
5685
5686
5687 050700

5689 050712
5690 050720
5691 050726
5692 050734

012702
012760

141401

012760

041001

012702

000037

012760

141001
041001

EMT

275

JSR

SEQ 0205

;STOP THE CLOCK

#RMMR1, $BDADR

1408

PC.asTOP

:STOP THE CLOCK

;STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS)

000024
000024

000024

MOV

#17..R2

MOV

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

BNE

1008

gg\c/

R»'lmo2 iMUR iMOC | DBEN . RMMR 1 (RO)

:LOAD RMMR1

:DROP ON CYLINDER TO RESET LATCH

MOV

#DMD 'MUR ' DBEN,RMMR1 (RO) :LOAD RMMR1

;MOVE COMMAND SEQUENCER TO SEEK WAIT LOOP (31 CLOCKS)

e
000024
000024

MOV

#31. ,R2

mov

#DMD 'MUR ! DBEN'DBCK ,RMMR1(R0O)

MOV
DEC
BNE

:LOAD RMMR

#DMD !MUR | DBEN.RMMR1 (RO) ;LOAD RMMR1
R2
1108

;STEP THROUGH SEEK WAIT LOOP (6 CLOCKS) 2 TIMES

fand:

012702
012760

80%
PC,aSTOP
#RG,SGDDAT
RO, $BDADR

2008

000021

041401

BNE
JSR
MOV
MOV
ADD

90%:

130770

5652 050544
5653 050550
050550
5654 050556
5655 050564
5656 050566
5657
5658
5659 050570
5660
5661
5662 050576
5663 050602
050602
5664 050610
5665 050616
5666 050620
5667
5668
5669 050622
5670 050626
050626
5671 050634
5672 050642
5673 050644
5674
5675
5676 050646
5677
5678

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

MACRO v03.01

141001
041001

000024
000024

041201

000024

012702

000002

012760

141201
041201

MOV
MOV
MOV
DEC
BNE

#6. ,R2
#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)
:LOAD RMMR1
#DMD !MUR DBEN_.RMMR1 (R0) ;LOAD RMMR1
R2
1208

;SET SEEK INCOMPLETE ERROR TO CAUSE ABORT

MOV

#DMD 'MUR | DBEN'MSER,RMMR1 (R0)

;CLOCK THE SEQUENCER THROUGH ITS TEST FOR ABORT

1308:

000024
000024

:LOAD RMMR1
(2 CLOCKS)

MOV

#2,R2

MOV

#DMD !MUR ! DBEN !MSER ! DBCK ,RMMR1 (R0)

BNE

1308

B\(E)\Cl

flz)MD"UR'DBEN'HSER.RMMRT (RO)

:LOAD RMMR1

;LOAD RMMR1

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO

sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS

000020
045501
041501
000024
157777

1358:

000024
000
001142
001142

MOV

MoV

16..R2

sMAXIMUM NUMBER OF BIT CLOCKS

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

;LOAD RMMR1

MOV

#DMD ' MUR {MOC | DBEN ' MDF ,RMMR1 (RO) ;LOAD RMMR1

BIC

fZSEBL, SBODAT

MOV

RMMR1(RO), SBDDAT

: STORE m1 AT $BDDAT

e
——————————

CZRMPAQ RMOS5/3/2 DSKLS TST 1
T117
DATA COMMAND TESTS (2)

5693

5694 050736

5695 050740
5696 050742
5697 050750

5698 050754

5699 0507562

g;gg 050764

MACRO v03.01

062737

104300
012737

050776

051000

2;89 051002

000024

001136

050772

001124

5710 051004
5711 051012

004737

000402

1508:

055370

012760
012760
104000

5717 051032
5718 051040
5719 051046
g;g? 051054
5722

5723 051062

051070
5724 051074

000402

EMT

001530

001366

5730 051124
5731 051132
5732 051136

012737
010037
062737

5734 051146

000454

042737

130436

000024

137777

005737

001530

004777

130410

104275

040000
001140
000024

004777

130360

5738 051154

012702

000021

051160
5740 051166

012760
012760

141401
041401

5737

5739 051160

5741 051174

JSR

B8R

000310

004777

005302

MOV
MOV
EMT

012737

5728 051116

5735 051150
Bt 051150

1608

B8R

000024
000014
000042
000000

001017

5733 051144

055512

000034
000006

041401
000000
000000
000071

5726 051110

5729 051120

000000
000000

012760
012760
012760
012760

016037

5727 051112

JSR

000523

051074

5725 051102

135%
#EBL
, SGDDAT
RO, S8DADR

;CONTINUE BIT CLOCKS IF COUNT NOT 0

#RMMR1, SBDADR

;

300
#1508, SLPERR

;CHANGE LOOP ON ERROR ADDRESS

PC,SETWV

:GO SET VOLUME VALID

1608

:BRANCH TO 1608 IF NO ERROR ,

2208

:LOAD TRACK, SECTOR, AND CYLINDER ADDRESSES

051026

5715
5716 051032

EMT
MOV

B8R

104000

004737

g;}z 051030

1408:

000536

5712 051020

051024

ADD

;VERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LATCH
‘DOESNT RESET
-

5708

5709 051004

BNE
MOY
MOV

001140

§702
5703

5704 050772
§705 050772

L 16

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

DEC

020000
001136

———————

SEQ 0206

005302

0071361
012737
010037

001142

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

PC.SETOM

1708

2208

;LOAD RMDC
*LOAD RMDA

*GO SET OFFSET MODE

*BRANCH TO 1708 IF NO ERROR
:

;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND
1708
:

MOV
MOV
MOV
MOV

#DMD 'MUR ! MOC ! DBEN ,RMMR1 (RO)
:LOAD RMMR1
#0,RMER1(RO)
:LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#RD ' GO,RMCS1(RO)
;LOAD RMCS1

;WAIT FOR RUN AND GO TO SET

MOV

180$:

001142

JSR

MOV
ST

WATCH

JSR

PC.aSTOP

;SET WATCHDOG TIMER VALUE
*START THE CLOCK

;STORE RMMR1 AT $BDDAT

1908
1808

MOV
MOV
ADD

#RG,SGDDAT
RO, $GDDAT
#RMMR
, SBDADR
1

2208

JSR

PC.aSTOP

EMT

1908

RMMR1 (RO)
, SBDDAT

#~CRG, SBDDAT

BNE

001136

PC.aCLOCK

BIC

BNE

001140

#200. ,WATCH

;STOP THE CLOCK

275

:STOP THE CLOCK

;STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS)

000024
000024

2008
:

MOV

#17. .R2

MOV
MOV

#DMD 'MUR 'MOC ! DBEN ! DBCK , RMMR1 (RO)
:LOAD RMMR1
#DMD ! MUR | MOC | DBEN.RMMRT (RO)
:LOAD RMMR1

DEC

RMPAQ RMOS/3/2 DSKLS TST 1
7z
DATA COMMAND TESTS (2)

5742 051176
574

5745
5746 051200
5747 051205
5748
5749

5750 051214
5751 051220
051220

5752 051226
5753 051234
5754 051236
5755

5756
5757 051240
5758 051246
5759 051254

5762 051270
5763 051276
5764 051300
5765

MACRO v03.01

001370

BNE

012760
012760

041001
041407

012702

000047

012760
012760

041401

141401

000024
000024

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

2008

sDROP ON CYLINDER TO RESET LATCH,
;AT LOCATION 166

MOV
MOV

SEQ 0207

SET ON CYLINDER TO PASS TEST

#DMD 'MUR ! DBEN, RMMRT (R0) ;LOAD RMMRI
#DMD | MUR i DBEN 'MOC ,RMMR1 (R0)
:LOAD RMMR1

;MOVE SEQUENCER TO SET OPI AND EBL (39 CLOCKS)

000024
000024

000014
157777

001142
001142

020000
001136
000014

001140

051306

001124

MOV

#39. .R2

mov
ggg

#DMD 'MUR ' DBEN 'MOC ! DBCK , RMMR 1 (RO)
:LOAD RMMR1
amz IMUR | DSENMOC ,RMMR1 (RO)
;LOAD RMMR1

BNE

2108

;VERIFY OPI IS SET

MOV
BIC
BNE
MOV
MOV
ADD

201136

2208:

EMT
MOV

RMER1 (RO) , SBDDAT
#~COPI, SBDDAT
2208
#OP]
, $GDDAT
RO, SBDADR
#RMER1, SBDADR
277
#2308, SLPERR

:STORE RMER1 AT $BDDAT

;:CHANGE LOOP ON ERROR ADDRESS

;VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP
230%:

JSR

PC,SETW

JMP

3108

?:T

2408

;GO SET VOLUME VALID

*BRANCH TO 2408 IF NO ERROR

528@0 SECTOR,TRACK AND CYLINDER ADDRESS

000006
000034
051342
51344
5776 051346
5777
5778
5779 051350
051350
5780 051356
5781 051364
5782 051372
5783
5784
5785 051400
051406
5786 051412

051412
5787 051420
5788 051426
5789 051430

mov

#0,RMDA (RO)

;LOAD RMDA

MOV

#0 _RMDC (RO)

*LOAD RMDC

g:T

2458

*BRANCH TO 2458 IF NO ERROR

3108

JSR

PC.SETOM

*GO SET OFFSET MODE

égglgme DEBUG CLOCK AND LOAD DATA COMMAND

mov

MOV
MOV
MOV

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

;WAIT FOR RUN AND GO TO SET
Comi

MOV

#200. ,WATCH

MoV

RMMR1 (RO) , SBDDAT

JSR

BIC

BNE
ST

:LOAD RMMR1

#0,RMER1(RO) ~ ;LOAD RMER1
#0RMER2(RO)
:LOAD RMER2
#RD'GO,RMCS1(RO)
;LOAD RMCST
PC,acLOCK

#~CRG, SBDDAT

2608

WATCH

;SET WATCHDOG TIMER VAL UE
*START THE CLOCK

:STORE RMMR1 AT $BDDAT

$1ZRH-"AO RMO5/3/2 DSKLS TST 1
17
DATA COMMAND TESTS (&)
|

|
|

5790 051434
5791 051436
5792 051442
5793 051450
5794 051454
5795 051462
5796 051464
5797 051466
051466

5799

5800 051472
5801 051476
051476
5802 051504
5803 051512
gggg 051514

5806
5807

5808 051516
58580910 051524

5811

5812 051532
5813 051536
051536
5814 051544
5815 051552
gg}g 051554

5818

5819 051556

5821

5822 051564
5823 051570
051570
5824 051576
5825 051604
5826 051606

5828

Ssgg 051610

5831
5832 051616
5833 051622
051622
5834 051630
5835 051636
gggg 051640

5838
5839

g&? 82}&%

001366
004777
012737
010037
062737
104275
000520

130072
040000
001136
000024

004777

130042

012702

000021

012760
012760
005302
001370

141401
041401

MACRO v03.01

.
001140
001136
2608%:

BNE
JSR
MOV
MOV
ADD
EMT
BR

2508
PC,aSTOP
#RG,SGDDAT
RO, $8DADR
#RMMR1, SBDADR
275
3108

JSR

PC.asSTOP

;STOP THE CLOCK

;STEP SEQUENCER TO_LOCATION 156 (17 CLOCKS)
000024
000024

041001
041401

012702

000045

012760
012760
005302
001370

141401
041401

000024
000024

012760

041001

000024

012702

000007

012760
012760
005302
001370

141001
041001

000024
000024

012760

041101

000024

012702

000002

012760
012760
005302
001370

141101
041101

000020

SEQ 0208

012760
012760

012702

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

000024
000024

2708%:

#17..R2

MOV
MOV
DEC
BNE

#DMD !MUR !MOC ! DBEN ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
#DMD !MUR !MOC ! DBEN,RMMR1 (R0)
;LOAD RMMR1
R2
2708

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST
;AT LOCATION 166
MOV
MOV

#DMD !MUR ! DBEN ,RMMR1(R0O) ;LOAD RMMR1
#DMD !MUR !MOC ! DBEN,RMMR 1 (R0)
;LOAD RMMR1

;MOVE SEQUENCER TO_LOCATION
2808$:

174 (37 CLOCKS)

MOV

#37..R2

MOV
MOV
DEC
BNE

#DMD !MUR !MOC ! DBEN!DBC
,RMMR1
K (RO)
;LOAD RMMR1
#DMD !MUR !MOC ! DBEN,RMMR1 (R0)
;LOAD RMMR1
R2
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(RO) ;LOAD RMMR1
R2
2908

;SET DRIVE FAULT TO CAUSE ABORT CONDITION
MOV

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

:LOAD RMMR1

;STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS)
MOV
#2 R
3008
:
MOV
#DMD !MUR ! DBEN !MDF ! DBCK ,RMMR1(RO)
:LOAD RMMR1
MOV
#DMD ! MUR | DBEN | MDF ,RMMR
1 (RO)
:LOAD RMMR1
DEC
R2
BNE
3008

;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO
sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS

3058

MOv

#16..R2

;MAXIMUM NUMBER OF BIT CLOCKS

C%R’PAO RMO5/3/2 DSKLS TST 1

T117

DATA COMMAND TESTS

(2)

051646 012760 045501
5842 051654 012760 041501
5843 051662 016037 000024
5844 051670

042737

5847 051700

005302

2&2 051676 001013

5848 051702
5849 051704
5850 051712
5851 051716

gggg 051724

ssggtg 051726

157777

MACRO v03.01

000024
000024
001142

001142

020000 001140
001136
000024 001136

012737

051734

001124

#DMD 'MUR ' MOC ! DBEN'MDF
'MCLK ,RMMR1(RO)
:LOAD RMMR1
#DMD ! MUR ' MOC | DBEN ' MDF ,RMMRT (RO) ;LOAD RMMR1
RMMR1 (RO) , SBDDAT
:STORE RMMR1 AT $BDDAT

BNE

3108

BIC

gggg

#*CEBL
, SBODAT
R2

BNE
MOV
MOV
ADD

305%
#EBL
, SGDDAT
RO, SBDADR
#RMMR1
, SBDADR

;CONTINUE BIT CLOCKS IF COUNT NOT 0

MOV

#3208,$LPERR

;CHANGE LOOP ON ERROR ADDRESS

EMT

3108:

SEQ 0209

MOV
MOV
MOV
DEC

001361
012737
010037
062737
104271

D 1
11-APR-B0 13:58:55 PAGE 12-120

271

;VERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAIT LOOP AT LOCATION 179

5858 051734
051734

004737

051742

104000

051740 000403

ggzg 051744

000137

3208:

055370

EMT

052372

JMP

5861

5862 051750

5863 051750
5864 051756
5865 051764
5866 051772
5867 052000
2;,"?3 052006
5870

5871 052014

012760 041401 000024
012760 000000 000014
012760 000000 000042
012760 000000
012760 000000 000034
012760 000071
001530

052026 016037 000024

001142

5873 052034

5874 052042
5875 052044

012737
004777

127504

042737

137777

005737

001530

001017

5876 052050 001366
5877 052052 004777
5878 052056 012737
5879 052064 010037
5880 052070 062737
5881 052076

104275

127456
040000
001136
000024

5882 052100

000534

052102

004777

127426

5886 052106

012702

000021

052112
5888 052120

012760
012760

141401
041401

5890 052130

001370

5883 052102

5885

5887 052112

5889 052126

PC,SETWV

3308

;GO SET VOLUME VALID

*BRANCH TO 3308 IF NO ERROR

4208

:ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

000310

052022
5872 052026

JSR

005302

3308:

MOV
MOV
MOV
MOV
MOV
MOV

#DMD 'MUR ' MOC ! DBEN, RMMR1 (RO)
: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

:WAIT FOR RUN AND GO TO SET
3408:

001142

MOV

#200. ,WATCH

MOV

RMMR1 (RO) , SBDDAT

JSR

BIC

BNE

BNE
JSR
MOV
MOV
ADD

001140
001136
o

3508

EMT

PC.acLoCK

#~CRG, SBDDAT

;SET WATCHDOG TIMER VALUE

*START THE CLOCK

:STORE RMMR1 AT $BDDAT

3508

WATCH

3408
PC,aSTOP
#RG,$GDDAT
RO, $8DADR
ARMMR1
, SBDADR

;STOP THE CLOCK

275

4208

JSR

PC,aSTOP

:STOP THE CLOCK

;STEP SEQUENCER TO LOCATION 156 (17 CLOCKS)
000024
000024

3608:

MOV

#17..R2

MOV
MOV

#DMD 'MUR 'MOC ' DBEN ' DBCK , RMMR1 (R0)
:LOAD RMMR1
#DMD | MUR ' MOC | DBEN . RMMR 1 (RO)
:LOAD RMMR1

BNE

3608

DEC

CZRMPAQ RMOS/3/2 DSKLS TST 1
mz
DATA COMMAND TESTS (2)

5891
5892
5893
589 052132
5895

5896
5897 052140
5898 052144
052144
5899 052152
5900 052160
5901 052162
5902
5903
5904

5905 052164
5906 052170
052170
5907 052176
5908 052204
5909 052212
5910 052220
5911 052222
5912 052224
5913 0522
5914 0522
5915 052236
5916 052242
5917 052250
5918 052252
5919

11-APR-80 13:58:55 PAGE 12-121
SEQ 0210

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST

012760

041001

012702

000042

012760
012760
00530
00137

141401
041401

012702

000006

012760
012760
016037
042737
001403
005302
001361
000412
012737
010037
062737
104301
000447

141401
041401
000024
173777

004000
001136
000024

000024

;AT LOCATION 166

MOV

#DMD 'MUR ' DBEN,RMMR1
(RO) :LOAD RMMR1

;MOVE SEQUENCER TO SECTOR WAIT (34 CLOCKS)
o
MOV
#34. ,R2

000024

mov

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

BNE

3708

BE{

zgnosnua:noc:oae~.annn1<Ro>

:LOAD RMMR1

;STEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED
:DURING THE LOOP (6 CLOCKS)

000024

000024
001142

001142

001140

3908:

001136

5920

5921 052254
052254
5922
5923
5924 052262
5925 052266
052266
5926 052274
5927 052302
5928 052304
5929
5930

MACRO V03.01

MOV

#6. ,R2

mov

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

BIC
BEQ

#~CESRC, SBDDAT
3908

MOV
MOV

DEC
BNE
BR
MOV
MOV

R2
3808
4008
#ESRC
, SGDDAT
RO, $8DADR

EMT
BR

301
4208

ADD

:LOAD RMMR1

#DMD ' MUR i MOC | DBEN,RMMR 1 (RO)
:LOAD RMMR1
RMMR1 (RO)
, SBDDAT
:STORE RMMR1 AT $BDDAT

#RMMR1, SBDADR

235; DRIVE FAULT TO CAUSE ABORT CONDITION

012760

041501

012702

000002

012760
012760
005302
001370

141501
041501

5931
5932 052306
5933 052312
052312
5934 052320
5935
5936
5937 052326
5938 052334
ggzg 052342
5941 052344
5942 052346

005302
001361

000024

mov

#DMD ' MUR ' MOC ' DBEN 'MDF

,RMMR1(R0) :LOAD RMMR1

;STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS)

000024
000024

MOV

#2,R2

mov
gg\cf

#DMD 'MUR 'MOC ' DBEN'MDF ' DBCK,RMMR1(RO)
:LOAD RMMR1
:gmsmamoc:oeemmr.m1 (RO) ;LOAD RMMR1

BNE

4108

;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO
:FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS

012702

000020

012760
012760

045501
041501

000024
000024

016037
042737
001013

000024
157777

001142

MOV

#16. ,R2

MoV
MOV

#DMD 'MUR 'MOC ' DBEN'MDF 'MCLK
,RMMR1(R0O)
:LOAD RMMR1
#DMD ' MUR | MOC i DBEN MDF .RMMR1 (RO) :LOAD RMMR1

:VERIFY EBL IS SET

MOV

RMMR1(RO) , $8DDAT

DEC
BNE

R2 .
4158

BIC
BNE

#*CEBL
, $SBODAT
4208

;MAXIMUM NUMBER OF BIT CLOCKS

:STORE RMMR1 AT $BDDAT

;CONTINUE BIT CLOCKS IF COUNT NOT 0

CZRMPAD RMO5/3/2 DSKLS TST 12

T117

DATA COMMAND TESTS (2)

5943 052350

§944 052356
5945 052362
ggzg 052370

012737

010037
062737
104271

020000

001136
000024

MACRO v03.01 11-APR-80 13:58:55 PAGE 12-122

001140

MOV
MOV

001136

ADD

EMT

SEQ 0211

#EBL
, SGDDAT
RO, S8DADR

#RMMR
1, SBDADR

271

gg:g 052372

4208 :

:END OF TEST

5950

‘ ttttttttitttt't"tttt't""tttttttttt'ttttttttt.tttt"t't'tttt.

S*TEST 120

052372

052374
052376
052402
052406

Nt 052412

000004

000240
012706
013700
013701

012737

001100
001276
001462

000120

5957 052426

5960 052442

5961 052450
5962 052456
gggz 052464

5965

gggg 052472

012737

#120,$TESTN

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

*:SET TEST NUMBER IN APT MAIL BOX

013737
112737

012737

001442

;LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER
MOV
#822. ,RMDCO
:LAST CYLINDER

000035

001414

000200

001440

001466

001330

012737
012737
012737

000071
177400
103712

004737

052514

000000

5972
5973 052504

004737

052514

001414

MOV

001406
001410
001412

LSTRK , RMDAO

MOVB

#29.,RMDAO

MOV

#OFD , RMOF O

MOV
MOV
MOV

#RD.GO,RMCS10
#-256..RMWCO
#BUFFER,RMBAO

*SETUP LAST TRACK AND

*LAST SECTOR

;FORWARD OFFSET

-READ DATA
-WORD COUNT
:BUFFER ADDRESS

;EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUT INE
JSR

001440

PC,108

:SECOND PART USES OFFSET REVERSE
:LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER
MOVB
#0,RMOFO
:REVERSE OFFSET
;EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE
JSR
10$

gg;g 052510 000137 053600

JMP

5976

3oés

1222222222322 2223223222222217;

“§UBROUTINE USED DURING TEST
..lttttt'ttt'itttttttttt'ttttttttttttttttttttttttttttttttt'tttttt
004737
000403
104000
000137

108
:

055370
053416

5984

5986 052530

#STACK, SP
$BASE , RO
TSTQUE ,R1

;VERIFY THE TAG BUS DURING DATA COMMAND

112737

5985 052530

MOV

:SCOPE CALL

:FIRST PART USES OFFSET FORWARD

5968
5969
gg;? 052476

5977
5978
5979
5980 052514
5981 052514
052520
052522
gggg 052524

SCOPE

NOP
MOV
MOV
MOV

001226

§952

gggg 8?5223

(3)

..tttt't'tttttttfi'tttttt't"tttttttttttttttttt'tt'tttttttt'ttttt!

7§1120:

gggz
5955
5956 052420

DATA COMMAND TESTS

JSR
BR
EMT
JMP

PC,SETWV
208

;GO SET VOLUME VALID
*BRANCH TO 20$ IF NO ERROR

1608

:LOAD TRACK, SECTOR AND CYLINDER ADDRESS. LOAD OFFSET

013760

5987 052536 013760

001414

001442

000006

000034

208:

MOV

RMDAO,RMDA(RO)

:LOAD RMDA

RMDCO.RMD
(RO)
C :LOAD RMDC

CZRMPAQ RMOS5/3/2 DSKLS TST 1

1120

DATA COMMAND TESTS (3)

5988 052544
5989 825%3%

013760
004737

001440
055512

052560
ggg? 052562

000137

053416

G 1
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-123
SEQ 0212

000032

013760
013760

00141
00141

000002

5997
5998 052602
5999 052610
6000 052616
288} 052624

012760
012760
012760
013760

041401
000000
000000
001406

000024

6003
6004 052632
052640

012737
004777

000310
126666

001530

052644
6006 052652

016037
042737

000024
137777

001142

6008 052662
6009 052
6010 052670
6011 052674
6012 052702
6013 052706
6014 052714
6015 052716
6016 052722
052722
6017 052726
6018
'
6019
6020 052732
6021 052736
052736

005737

001530

004777
012737
010037
062737
104275
000137

126640
040000
001136
000024

004777
012704

126606
053420

012705

000021

016037

000040

001142

013737

:
001142

001174

6031
6032 052770
6033 052776
6034 053002
6035 053010
6036 053016
6037 053020
6038 053020

RMOFO,RMOF
(RO)

JSR

PC,SETOM

JMP

1608

?fir

5992
5993 052566
5994 052566
gggg 052574

6023
6024 052744
6025
26
6027 052752
6028 052760
28%3 052766

MOV

;LOAD RMOF

“GO SET OFFSET MODE

30$

*BRANCH TO 30$ IF NO ERROR

ébgAD BUFFER ADDRESS AND WORD COUNT

000004

mov

MOV

MOV
MOV
MOV

000000

MOV

001414

171777
006000

-LOAD RMBA

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

#0.RMER1(RO)
#0.RMER2(RO)

:LOAD RMER1
:LOAD RMER2

RMCS10,RMCS1 (RO)

001142

MOV

#200. ,WATCH

MoV

RMMR1(RO)
, SBDDAT

TST

WATCH

JSR

PC,asSTOP

JSR

BIC
BNE
BNE

001140

001136
50%:

#RG, SGDDAT
RO, $8DADR

JMP

1608

JSR

MOV

*START THE CLOCK

;STORE RMMR1 AT $BDDAT

#~CRG, SBDDAT
508

MOV
MOV

ADD
EMT

;SET WATCHDOG TIMER VALUE

PC,acLoCK

408

:LOAD RMMR1

;LOAD RMCS1

;WAIT FOR RUN AND GO TO SET

:STOP THE CLOCK

ARMMR1, SBDADR
275
PC,aSTOP

#2008 R4

:STOP THE CLOCK

‘R4 = TABLE POINTER

;STEP SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS)

MOV

#17. .RS

mov

RMMR2 (RO) , SBDDAT

;RS
= CLOCK COUNT

:STORE RMMR2 AT $BDDAT

:"t\l"ttttttttt*tttitttttttt‘ttttit*ttttttttttItt'tttttttttttt'ttttt

MOV

$BDDAT,$TMPO

cMP
BEQ

#2C<CC!CH>,$TMPO
:SAVE CC AND CH BITS
#CC'CH.$TMPO
;ARE CC AND CH SET
65%
*YES, BRANCH TO ~eu LOCATION

001142

BIC

#ROA'RQB'TST, $BDDAT

001140

BIS

RMDCO,$GDDAT

;OR CYLINDER ADDRESS

BNE

708

:BRANCH IF

042737
022737

;LOAD RMWC

RMBAO.RMBA(RO)

;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

000014
000042

053416

RMWCO,RMWC
(RO)

001174
001174

;IF CC AND CH ARE SET AT THE SAME TIME
:THE ECO TO THE CS BOARD IS IMPLEMENTED.

;.'ttttttttttttttttttttt"tttttittttt'tt!tttItttfitttt'ttttttfitt"t

042737
012437
053737
023737
001011

150000
001140
001442
001140

012760

141401

001142

000024

MOV

CMP

MOV

(R4)+,$GDDAT

$GDDAT, SBDDAT

TAG BUS WRONG

#DMD !MUR !MOC ! DBEN ! DBCK ,RMMR1 (R0)

:LOAD RMMR1

CZRMPAO RMOS/3/2 DSKLS TST 1
T120
DATA COMMAND TESTS (3)

6039 053026

012760

6040 053034

005305

6043 053042
6044 053046
6045 053054

010037
062737
104276

6041 053036 001337
6042 053040 000407

041401
001136
000040

MACRO v03.01

000024

001136

708:

6051 053060
6052 053066

6054

6055 053074
6056 053100

cos7 0°3100

wss

012760
012760

041001
041401

012705

000045

016037

000040

013737

6062 053114

042737

6064 053130

001003

6063 053122

6065 053132

6066 053136

6067 053140

001142

001i7%

171777

001174

006000

162704

000002

002000

052737
032737

000010
000200

001140
001440

042737
052737

000010
000004

001140
001140

113703
050337

001415
00114

011437

001416

6080 053202

001406

6083 053220

150000

001140

6093 053240

6094 053242

MOV
MOV

#DMD !MUR ! DBEN,RMMR1 (R0O) ;LOAD RMMR1
#DMD | MUR | MOC ! DBEN ,RMMR1 (R0)
:LOAD RMMR1

MOV

#37..RS

MoV

RMMR2 (RO) , $BDDAT

:RELOAD CLOCK COUNT

:STORE RMMR2 AT $BDDAT

MOV

$BDDAT,$TMPO

BIC

#2C<CC!CH>, $TMPO

CMP

BNE

WCC!CH,$TMPO

;IF CC AND CH ARE SET AT SAME TIME

:THE ECO TO THE CS BOARD IS IMPLEMENTED.
:SAVE CC AND CH BITS

;ARE CC AND CH SET ?

92$

INO !

1158

:TO OTHER LOCATION

#2,Ré4

:ADJUST THE TABLE ADDRESS

BIC

#RQA'RQB! TST,$BDDAT

BIT
BEQ
BIT

#CH, (R4)
1108
#CC, (R4)

MOV

004000

BEQ

(R4) ,$GDDAT

100§

:BRANCH IF CONTROL/HEADER NOT ON

:BRANCH IF HEADER TAG

:CONTROL_TAG SHOULD BE ON-SETUP EXPECTED OFFSET
BIS
BIT

#8803, $GDDAT ~
#OF
D, RMOF O

;ASSUME OFD 1S NOT SET

BIC
BIS

#8803,$GDDAT
#8802, SGDDAT

;RESET BUS BIT 3 - DIRECTION IS REV

MOVB
BIS

RMDAD+1,R3
R3,S$GDDAT

;GET TRACK

BEQ

95%

958:
BR
1108
;HEADER TAG SHOULD BE ON - SETUP EXPECTED TRACK ADDRESS
1008:

6090

6091 053232
6092 053232

1608

;.'ttttt"tfittttttttttttttt'Qtttttttt.ttttttttttitttt!tttttttt'ttt

001142

6085

6086 053222
6087 053222
6088 053226

RO, $BDADR
#RMMR2
, SBDADR
276

:"tttttttttttt*ttttt't*'tttt'tttitttt!tttttttttttttttttt.tttttt't

032714
001425
032714

6081 053204
6082 053212

90$:

928:

6072 053152
6073 053156
6074 053160

6078 053166
6079 053174

MOV
ADD
EMT

SUB

042737

6077

808:

001174

6069
6070 053140

6075 053164

608
80$

;LOAD RMMR1

;STEP SEQUENCER TO_END OF OFFSET AT LOCATION 174 (37 CLOCKS)

001142

022737

000441

000024
000024

6%8

6071 053146

BNE
BR

:DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT
:LOCATION 166

6059 053106

6060

#DMD !MUR !MOC ! DBEN ,RMMR 1 (RO)

6048
6049

SEQ 0213

MOV
DEC

6046 053056 000557
6050 053060

H
1
11-APR-80 13:58:55 PAGE 12-124

; COMPARE EXPECTED AND RECEIVED TAG BUS DATA
023737

001013

001140

001142

110s:

1158:

BNE

$GDDAT
, SBDDAT

1208

CZ RMPAQ RMOS5/3/2 DSKLS T
mn 20
DATA COMMAND TES

1
I
MACRO v03.01 11-APR-80 13:58:55 PAGE 12-125
000024
000024

6099 053266
6100 053270
6101 053274
6102 053302
6103 053304

1208:

0 CONOWVISS

b
e
o

OO O

- P
p—

908
1308

MOV
ADD

RO, $8DADR
#RMMR2
, SBDADR

1608

:MOVE TABLE POINTER
*DECREMENT CLOCK COUNT

276

;DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT

053322
053326
053326

6136 053416
6137
6138
6139 053420
6140 053420
6141 053422
6142 053424
6143 053426
6144 053430
6145 053432
6146 053434
6147 053436
6148 053440
6149 053442

BNE
BR

#2 R
RS

i§ngE~CER LOCATION 175

6110

6120
6121 053334
6122 053342
6123
6124
6125 053350
6126 053356
6127 053360
6128 053366
6129 053374
6130 053376
6131 053400
6132 053402
6133 053406
6134 053414
€135

#DMD ' MUR ' MOC ! DBEN ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD | MUR i MOC | DBEN . RMMR1 (RO)
:LOAD RMMR1

EMT

6104

6105
6106
6107 053306
6108 053306
6109 053314

MOV
MOV
ADD
DEC

001136

SEQ 0214

012760
012760

041001
041401

012705

000010

016037

000024
000024

MOV

MOV
Mov

Ed d

001142

171777
006000
MR

023737

001140

001136
000040

:LOAD RMMR1

#8..RS

RMMR2 (RO) , SBDDAT

BIC

#RQA'!RQB!TST,$BDDAT

BIC
MOV

#*C<CC!CH>,SBDDAT
;SAVE CC AND (CH BITS
#CC!CH,SGDDAT
;GET EXPECTED DATA

;THE FOLLOWING CODE WAS ADDED
;TO ALLOW THE PROGRAM TO RUN WITH
;OR WITHOUT ECO TO THE CS BOARD.

dd sttt
T332 22222¢

cMP

$GDDAT,$BDDAT

MOV

#DMD !MUR !MOC ! DBEN!DBCK
,RMMR | (R0)

1508:

BNE
BR
MoV

ADD
EMT

1408
160$
RO, $8DADR

#RMMR2, $8DADR
276

1608:

RTS

I(‘)‘Ig\é

001136

:STORE RMMR2 AT $BDDAT

g ettt
T 2222232222228

BNE

141401
041401

#DMD | MUR ! MOC ! DBEN, RMMR1 (R0)

;STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS)

i
R

042737
012737

#DMD !MU'R ' DBEN,RMMR1 (RO) ;LOAD RMMR1

MOV

égegLE OF

1508

;GOOD DATA SAME AS LAST (MP

;BRANCH IF ERROR

:ls)m!mnmocmasn.m1 (RO)

TAG BUS CONTROL AND DATA VALUES

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

.WORD
.WORD
.WORD
.WORD

1777
1777
1777
1777
1777
1777

CC
(CC
CC!TAG
CC!TAG

;LOCATION
;LOCATION
;LOCATION
;LOCATION
;LOCATION
;LOCATION
;LOCATION
;LOCATION
;LOCATION
;LOCATION

0
25
26
128
129
130
144
145
146
147

;LOAD RMMR1

6170 053514
6171 053516
6172 053520
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 053566
6192 053570
6193 053572
6194 053574
6195 053576

6196

6197 053600
6198

022000
022000
002000
002000
001777
001777
001777

W= O 000
NN
WA= OV

il cild cnuld
i <l el sld
sl
sl ol canlh wnd

022000

il sl

001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
(001777
001777
001777
001777
006000
006000

CC!CH
CC!CH!TAG
CC!CH!TAG
CC!CH!TAG
CC!CH!TAG
CC!CH!TAG

026000
026000
026000
026000
026000

300%:

;END OF TEST

6163 053476
6164 053500
6165 053502
6166 053504
6167 053506
6168 053510
6169 053512

022000
022000

6162 053474

022000

6160 053470
6161 053472

;LOCATION
:LOCATION
:LOCATION
:LOCATION
:LOCATION
:LOCATION
*LOCATION
LOCATION
:LOCATION
*LOCATION
:LOCATION
:LOCATION
:LOCATION
:LOCATION
:LOCATION
*LOCATION
:LOCATION
:LOCATION 232
:LOCATION 233
:LOCATION 234
:LOCATION 235
:LOCATION 236
:LOCATION 237
:LOCATION 238
:LOCATION 239
:LOCATION 240
:LOCATION 241
:LOCATION 242
:LOCATION 243
:LOCATION 244
:LOCATION 245
:LOCATION 246
LOCATION 247
:LOCATION 248
:LOCATION 249
:LOCATION 250
:LOCATION 251
:LOCATION 252
:LOCATION 166
:LOCATION 69
:LOCATION 70
:LOCATION 71
*LOCATION 17 2
:LOCATION 173
*LOCATION 174
:LOCATION 175,ETC
ey

6159 053466

024000
024000
024000
024000
004000
004000
001777
002000
002000

SEQ 0215

6150 053444
6151 053446
6152 053450
6153 053452
6154 053454
6155 053456
6156 053460
6157 053462
6158 053464

(3)

D e

DATA COMMAND TESTS

J
.1
11-APR-80 13:58:55 PAGE 12-126

1120

MACRO Vv03.01

—

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CZRMPAO RM05/3/2 DSKLS TST 1

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

.SBTTL

SEQ 0216

END OF SUB-PASS ROUTINE

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

$EOSP:

001462
000002
001462

012737

007152
001464

a(c)gps

MOV
ADD
MOV

#2.,R0O

TSTQUE RO

RO TSTQUE

*SAVE POINTER TO TSTQUE

BEQ

*BR IF NO

001462

(RO)

1$:

JMP
MOV

.SBTTL

END OF PASS ROUTINE

AR A

;GET POINTER TO TSTQUE

*ADJUST POINTER TO NEXT DEVICE
:ANY MORE DEVICES FOR TEST ?

READY
*YES, JUMP TO READY
#TSTQUE+2, TSTQUE
S INITIALIZE POINTER TO FIRST DEVICE IN
sTEST QUE TABLE

A A

AR AR A AR AR A AR AR A AR AR AR AR AR AR

s *INCREMENT THE PASS NUMBER (SPASS)
;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY''
s *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;*IF THERES A MONITOR GO TO IT
;*IF THERE ISN'T JUMP TO READY

Soa-

sss8

$EOP:

054012
054016

::YES
::RESTORE COUNTER

,65%

::TYPE ASCIZ STRING

.WORD
SEOPCT
TYPE

648

$PASS,-(SP)

ASCIZ

MoV

104405
104401
000421

053736

TYPE

013746

001126

005037
013700

$DOAGN
(PC)+,a(PC)+

SENDCT:

BGT
MOV

001230

104405
104401

::2ERO THE TEST NUMBER
::2ERO THE NUMBER OF ITERATIONS
:: INCREMENT THE PASS NUMBER

#100000,8PASS
(PC)+
1

013746

TYPDS

éégn:

A]
NN —
nNONN

053726

STSTNM
$TIMES
$PASS

BIC
DEC
$EOPCT: .WORD

éi;gss:

288

053722
053722

001230

CLR
CLR
INC

053704

053702

ard_a—hd-d—hd-d—hd
VNN WN—=OVONON S W) =

END OF SUB-PASS ROUTINE

MACRO v03.01

;:GET OVER THE ASCIZ

<12><15>/END PASS #/

L67%

66$

MOV

$ERTTL,~(SP)

.ASCIZ

TYPDS
TYPE

CLR

$GET42: MOV

;:DON'T ALLOW A NEG. NUMBER
;
:LOOP?

::SAVE SPASS FOR TYPEOUT

::TYPE PASS NUMBER

;:G0 TYPE--DECIMAL ASCII WITH SIGN

;:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

TOTA. ERRORS SINCE LAST REPORT /

$CRLF

$ERTTL

42 ,RO

;:SAVE SERTTL FOR TYPEOUT

::TOTAL NUMBER OF ERRORS

::G0 TYPE=--DECIMAL ASCII WITH SIGN
;:TYPE CARRIAGE RETURN, LINE FEED

*:CLEAR ERROR TOTAL

:2GET MONITOR ADDRESS

CZRMPAD RMOS5/3/2 DSKLS TST 1
END OF PASS ROUTINE

054022
054024
054026
054030
054032
054034
054036
054036
054040
054042
21

MACRO v03.01

001405
000005

BEQ

RESET
$ENDAD: JSR
NOP
NOP
NOP

$DOAGN:

377

000

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

SRTNAD NAD::
SENULL:

JMP

.WORD

.BYTE
.EVEN

$DOAGN
PC. (RO)

s sBRANCH IF NO MONITOR
;s CLEAR THE WORLD
2.GO0 TO MONITOR

2 :SAVE ROOM

J2FOR
J:ACTN

a(PC)+

2 sRETURN
;sNULL CHARACTER STRING

SEQ 0217

CZRMPAD RM0OS5/3/2 DSKLS TST 1

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

SBTTL

SUBROUT INES

.SBTTL

ERROR TYPEOUT ROUTINE

A R

SEQ 0218

R AR AR AR AR R AR

;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:
LUNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE

tPRINTED ON THE FIRST LINE;

i
.ERROR MESSAGE IS Assemeo FORMATTED AND PRINTED ON
:*ONE OR MORE SUCCEEDING LINES:

tw
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
*«ARE PRINTED AFTER THE ERROR MESSAGE.

104414

ng&"ugg-a_hu.a_a_hd.a_a—n
W
=OVONOVNHWN
2O VOO S W) =

SUBROUT INES

MACRO v03.01

054100
054102
< 054103

032777
001402
000137

020000

104401
104401

001217
054676
001234

013746

35 054144
36 054152
37 054156
38 054160
39 054164
2? 054166

125076

1s:

054166

012737
022700
001004

054752
000027

054166

3$:

49 054230

$UNIT,=(SP)

054670
001130

.evre
BYTE

'omve

MOV

.ERTY00

3
0

TYPE'

: INHIBIT TYPEOUTS??
*NO!!

vss“

ERROR NUMBER, AND PROGRAM COUNTER

:TYPE "UNTH'

*:SAVE SUNIT FOR TYPEOUT

+:TYPE UNIT NUMBER

+:G0 TYPE=-OCTAL ASCII

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

RMOS, RMO3 OR RMO2 FOR UNIT UNDER TEST

RMDT (RO) ,RO

:STORE RMDT AT RO

#177740,R0

*SAVE DRIVE TYPE BITS AND

SYES !!

MOV
cMP

#SRMO3, 58
#24 ,R0

MOV
cMP

#SRMO2, 38
#25.,R0

:SAVE ASCII DRIVE TYPE
+1S DEVICE AN RMO2 ?

MOV
CMP
BNE

#SRMDS , 38
#27 .RO
4

:SAVE ASCII DRIVE TYPE
:1S DEVICE AN RMOS ?
“NO !

TYPE

.WORD

,ERTYOS

*GET ASCII DRIVE TYPE
+IS DEVICE AN RMO3 ?

SYES !

STYPE ** = *

*TYPE DRIVE TYPE

:DRIVE TYPE MESAAGE IS STORED HERE

:TYPE TEST men ERROR NUMBER AND PROGRAM COUNTER

054666

104403

003
000
005037
113737
001406

MOV

BIC

2s:

TEST NUMBER,

,$CRLF

BEQ

054734

054666
001226
054704
054666

258

TYPE

BEQ

054740
000025

005037
013737
104401
013746

: TYPE

054166

012737
022700
001406

104401
000000

#SW13,aSWR
1%

:TYPE UNIT NUMBER,

TYPOS
000026
177740
054745
000024

104401

SAVREG
BIT
BEQ

JMP

054662

104403

2
25 054104
26 054110
27 054114
28 054122

29 054126
30
31 054130
32 054136
;2 054142

ERRTYP:

is:

CLR

:LOAD TEST NUMBER FOR

ERTYOT

:TYPE *TSTA""

STESTN, TSTNMB

MOV
TYPOS

rsmva -(SP)

TYPE

BYTE
BYTE

054670

TSTNYB

MOV

::G0 TYPE=--OCTAL ASCII

3
0

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

S$ITEMB.ERRNMB

:TYPEOUT

CLR

ERRNMB

BEQ

MOVB

::SAVE TSTNMB FOR TYPEOUT

::TYPE TEST NUMBER

:LOAD ERROR NUMBER FOR

:SKIP IF NO ERROR CALLED

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR TYPEOUT ROUTINE

50 054232
51 054236

104401
013746

054242
054244

104403
003

52 054246
53 054252

104401
013746

054256

104403

054245

054260
054261

054723
001132

104401

58 054274
59 054300
60 054304
61 054310
62 054312
63 054314
64 054316
22 054322

105037
105037
013700
006300
006300
006300
062700
011001

67 054324

001507

001505

72 054336
73 054342

005037
112203

71 054332
764 054344
75 054346
76 054352
77 054354

010237

001454
122703
001003

103340
013704
001007
104401
105037
013702
000726

LERTYO3
SERRPC,-(SP)

.BYTE
.BYTE

6
1

TST

ERRNVB

BEQ

25%

7$:
054500

8%:

000015

9%:

054675

054675
000040

054672

001217
054675
054500
,

YPE 'PC='’
..SAVE $ERRPC FOR TYPEOUT
;:TYPE PROGRAM COUNTER

::G0 TYPE--OCTAL ASCII

..TYPE 6 DIGIT(S)
TYPE LEADING ZEROS

. $CRLF

108:

118:

054675

12%:

AN ERROR CALLED?

YES-TYPE CRLF

BEQ

16$

sBRANCH IF NO ERROR MESSAGE

(R1)+,R2

;R2=ADDRESS OF MESSAGE STRING

R2,15%

:LOAD ADDRESS OF STRING

MOV
BEQ

CLR
MOvB
BEQ
CMPB

BNE
CLRB

000011

054672
000100

;:TYPE ERROR NUMBER
*;G0 TYPE=-OCTAL ASCII
;:TYPE 3 DIGIT(S)
..SLPPRESS LEADING ZEROS

BOTFLG
CHRCNT
ERRNMB RO
RO
RO
RO
#SERRTB-8.
RO
(RO),R1

MOV

054672

054675
000007

;TYPE 'ERRA''
;:SAVE ERRNMB FOR TYPEOUT

CLRB
CLRB
MOV
ASL
ASL
ASL
ADD
MOV

: TYPE THE ERROR MESSAGE

000012

001765
122703
001007
105237
132737
001372
000407
105237
122703
001002
010237
122737

92 054440
93 054442
9% 054446
95 054450
96 054454
97 054460
98 054464

001526

122703

80 054366
81 054370
82 054374
83 054376
84 054402
85 054410
86 054412
87 054414
88 054420
89 054424
90 054426
91 054432

TYPE
MOV

TYPE

054674
054675
054670

054675

000770

3
0

;GENERATE POINTER TO ERROR TABLE' LNLESS ERROR NUMBER IS 0

6$:

001217

105037

78 054360

79 054362

5%:

012102

70 0543

LERTYO2
ERRNMB, - (SP)

.BYTE

TYPOS

57 054270

69 054326

TYPE
MOV

006
001

001575

N 1
11-APR-80 13:58:55 PAGE 14-1

TYPQS
BYTE

005737 054670

054714
054670

55 054262

56 054266

'
|
|

000

MACRO v03.01

CMPB

" BEQ
CMPB
BNE
INCB
BITB
BNE
BR
INCB
CMPB
BNE
MOV
CMP8
BHIS
MoV
BNE
TYPE
CLRB
MOV
BR

16$

BOTADR
(R2)+,R3
14%
#CR,R3
9%
CHRCNT

:CLEAR BOT FLAG
:CLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF
sFOUR_ENTRIES IN ERROR
s TABLE
:'HBE(EHNTS TO ERROR MESSAGE

sBRANCH IF END OF MESSAGE

:CLEAR BOT ADDRESS
END OF STRING??
sYES!!
CARRIAGE RETURN??
:NO!
!

.YES-CLEAR CHAR COUNT

:GET NEXT CHARACTER

8$
#HT ,R3 118
CHRCNT
#7 ,CHRCNT
108
12%
CHRCNT
#' ,R3
12%
RZ,BOTADR
#64. ,CHRCNT

sYES=GET NEXT CHARACTER
sHORIZONTAL TAB??
:NO!!
sADJUST CHARACTER COUNT

#LF ,R3

8%
BOTADR R4
138
.SCRLF
CHRCNT
158,R2
&s

;LINE FEED??

s INCREMENT CHARACTER COUNT
s SPACE??
:NO!!
:SAVE ADDRESS OF SPACE
;END OF LINE??

;NO!!
sGET ADDRESS OF LAST SPACE
sBRANCH IF SPACE DETECTED
s TYPE CRLF
:CLEAR CHARACTER COUNT
;SET UP R2 FOR TESTING

SEQ 0219

CZRMPAQ RMOS5/3/2 DSKLS TST 1
ERROR TYPEOUT ROUT INE

99 054466

100 054470
101 054476

102 054500

103 054502
104 054506
105 054510
106 054514
107 054520

105044

112737
104401

177777

105737
001707
104401
105037
105037

054674

000000

108 054524
109 054530

013702
010237

111 054540

105722

110 054534

”% 054542

112742

116 054544
117 054550
118 054552

016001
001444
104401

124 054574

104401

127 054604

000000
104401

005702

126 054606
129 054610
130 054612

001767
012204
012305

122 054616
133 054620

100407
001403

131 054614

134 054622
135 054624

136 054626

137 054630

138 054632

139 054634

140 054636
141 054640

142 054642

143 054644
144 054646
145 054652

146 054654
147 054660

13$:
148:

158:

054672
054500

000040

TSTB
BEQ
TYPE
(LRB
CLRB

BOTFLG
78
,$CRLF
BOTFLG
CHRCNT

.WORD

MOV
MOV

BOTADR ,R2
R2,15$

TSTB

(R2)+

B8R
000002

168:

178:

001217

000004
000006
054576

001217

105725

188:

19%:

208 :

013446

000405

21%:

104402

013446
104406

22%:

005714

238 :
054731

001217

248:
25%:

151 054666
152 054670

000000
000000

TSTNMB:
ERRNMB:

000000

000
000

TYPE

LWORD
TYPE
BEQ
MOV
MOV

ISTB

BM]
BEQ

TYPDS

013446

104401
00074

MOV
MOV
MOV
BEQ

MOV

104405

00140
104401
0007

MOV
BEQ
TYPE

104415
000207

154 054674
155 054675

=(R&)

#-1,BOTFLG

MOVB

148 054662
}'53 054664

153 054672

CLRB

MOVB
TYPE

,=(R2)

;REPLACE SPACE

*SET BOT FLAG
:TYPE ERROR MESSAGE STRING

*STRING ADDRESS GOES HERE

*WAS STRING TRUNCATED??
*NO!!
SYES=TYPE CRLF
*CLEAR BOT FLAG
*CLEA~ CHARACTER COUNT

SSETUP R2 FOR TESTING
*SETUP 158 FOR TYPING

*RESTORE SPACE

*RESTORE R2

*TYPE REST OF STRING

:TYPE ERROR HEADER AN ERROR DATA

016002
016003
012137
001433

125 054576
126 054600

054674

000677

119 054556
120 054562
121 054566
122 054572
123

SEQ 0220

001217
054674
054675

114

115 054544

MACRO v03.01 11-APR-80 13:58:55 PAGE 14~2

BOTADR:

B8R

MOV

TYPOC

B8R

2(R0) ,R1
258
,SCRLF

4 (RO) ,R2
6(R0O) .R3
(R1)+.19%
258

*R2 POINTS TO DATA ADDRESS TABLE
*R3 POINTS TO FORMAT TABLE
:PUT HEADER ADDRESS FOR TYPE
:BRANCH IF END OF HEADERS

0
.S$CRLF

;HEADER ADDRESS GOES HERE

188
(R2)+,Ré
(R3)+.RS

“NO!!
“R% POINTS TO DATA ADDRESS
*RS POINTS TO FORMAT
‘WHAT KIND OF DATA??
*BINARY
*OCTAL

(RS)+

22%
218

a(R4)+,-(SP)

248
ERTYO4
508

RESREG
RTS

.WORD
.WORD

0
0

.WORD

sDECIMAL

23s

BEQ
TYPE
8R

BOTFLG: .BYTE
CHRCNT: .BYTE

:DATA WITH HEADER??

238

d(R4)+ ,~-(SP)

TYPE
B8R

: (ASSUME END OF DATA)

a(R4)+,-(SP)

MOV
TYPBN

:R1 POINTS TO ERROR HEADER TABLE
*BRANCH IF NO HEADER
: (ASSUME NO DATA)

(R&)

.SCRLF
iss

;MORE DATA??

‘NO!
SYES=TYPE 2 SPACES
SAND CONT INUE
STYPE ONE BLANK L INE
*BEFORE NEXT HEADER

:TEST NUMBER
*ERROR NUMBER

*BEGINNING OF TEXT ADDRESS

‘BOT FLAG
*CHARACTER COUNT

g
[ ZRMPAQ RMOS/3/2 DSKLS TST 1
ERROR TYPEOUT ROUTINE

157 054676

125

116

158 054704
159 054714
160 054723
161 054731

054
054
054
040

040
040
040
040

164 054740
165 054745
166 054752

122
122
122

}g% 054734

]lgg

040

MACRO v03.01 11-APR-80 13:58:55 PAGE 14~3

111

ERTY00:

.ASCIZ

aUNIT#a

055

126
105
120
000

ERTYO1:
ERTY02:
ERTYO3:
ERTYO4:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@, TEST#a
@. ERR#®
a. PC=a
@ @

040 ERTYOS: .ASCIZ @ - @

115
115
115

060
060
060

SAMO2:
$AMO3:
SRMOS5:

.ASCIZ
.ASCIZ
.ASCIZ

@RMO2a
aRMO3a
@RMOSa

.EVEN

SEQ 0221

CZRMPAD RMOS/3/2 DSKLS TST 1

MACRO Vv03.01 11-APR-80 13:58:55 PAGE 1i

CLOCK SUBROUTINES

.SBTTL

;ROUTINE TO SiZE FOR CLOCKS (KW11=L OR KW11=P)

S 054760

000240

7 054766

013746

000006

12 055006
13 055012
14 055020
15 055026
16 055034
17 055042

005777
012737
012737
012777
012777
013777

124474
055220 001532
055342 001534
055306 124456
000300 124452
001522 124450

19 055054

000454

18 055050

20 055056
g} 055062

005077

012716
000002

29 055112

012737 055142 000004
005777 124420
012737 055236 001532
012737 055350 001534
012777

055306

005077

124354

012716

055150

33 055140

000422

gg 055146

000002

3%, 055142

124400

39 055150

40 055154

41 055162

005037

001532

005037

001514

005037

001522

012737
012737

:g 8?2%

766

:LOAD 04 TRAP VECTORS

: :PUSH ERRVEC+2 ON STACK

IF A KW11=P CLOCK IS PRESENT = GO TO 108 IF NOT PRESENT

ST
MOV
MOV
MOV
MOV
MOV

MOV
RTI

aSLPCSR
;TEST FOR P CLOCK
#PCLOCK,CLOCK
:LOAD SUBROUTINE ADDRESS
#PSTOP, STOP
:LOAD STOP ADDRESS
#PCOUNT,@SLPVEC :LOAD P CLOCK INTERRUPT VECTOR
#PR6, aSLPVEC+2
SLLVEC+2,aSLLVEC
;CLEAR L CLOCK INTERRUPT VECTOR
ASLLVEC+2

308

#158, (SP)

:DUMMY RTI ADDRESS
*RESTORE PRIORITY

IF L CLOCK IS PRESENT=GO TO 208 IF NOT PRESET

MOV
ST
MOV
MOV

#208, ERRVEC
asLLCSR
#LCLOCK,CLOCK
#LSTOP, STOP

MOV
MOV

#PR6, aSLLVEC+2
SLPVEC+2,aSLPVEC: CLEAR P CLOCK INTERRUPT VECTOR

CLR

208:
25%:

B8R

MOV
RTI

:CHANGE 04 TRAP VECTOR
*TEST FOR L CLOCK
:LOAD SUBROUTINE ADDRESS
*LOAD STOP ADDRESS

#LCOUNT ,@SLLVEC ;LOAD L CLOCK INTERRUPT VECTOR

ASLPVEC+2

308

#258$, (SP)

:DUMMY RTI ADDRESS
*RESTORE PRIORITY

CLR

CLOCK

:CLEAR SUBROUTINE ADDRESS

001514

001512

MOV

#SLPVEC+2,SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR

001522

001520

MOV

#SLLVEC+2,SLLVEC;
CLEAR L CLOCK INTERRUPT VECTOR

ADD
MOV

#2.4(SP)
(SP)+ ,ERRVE(C+2

RTS

2 000004

055206 012637 000006
46 055212 012637 000004

2; 055216

#108, ERRVE C
#PR6 . ERRVE C+2

ERRVEC+2,=(SP)

:NO CLOCK AVAILABLE = AUGMENT RETURN ADDRESS

42 055166
43 0551764

MOV
MOV

MOV

124374
124356

38 055150

;:PUSH ERRVEC ON STACK

i"seg P CLOCK=SEE

30 055120 012777 000300
31 055126 013777 001514
32 055134

ERRVEC,=(SP)

CLR

108:

%‘3. Lol

25 055064
26 055072
27 055076
28 0551064

;SEE

124446

055064

MOV

8 054772 012737 055056 000004
13 055000 012737 000300 000006
1

CLOCK SUBROUTINES

SIZCLK: NOP

CLR

MOV

000207

’;3

SLPVEC+2

SLLVEC+2

(“®)+.ERRVEC

:CHANGE RETURN ADDRESS
::POP STACK INTO ERRVE(+2
;:POP STACK INTO ERRVEC

JROUTINES TO START THE CLOCK (KW11=L OR KW11=-P)

51 055220

012777

000135

177777

124262

PCLOCK: MOV

54
gz 055236

012777
000403

MOV
B8R

#135,38LPCSR
PLCLK

:LOAD CONTROL REGISTER
*GO TO COMMON CODE

012777

000100

124252

LCLOCK: MOV

#100,38LLCSR

;LOAD CONTROL REGISTER

52 055226
53 055234

124252

#-1,38LPCSB

‘
|

;

6 054762 013746 000004

SEQ 0222

:LOAD COUNT SET BUFFER

1
|

|
|

E_-__uu

CZRMPAQ RMOS5/3/2 DSKLS ST 1

CLOCK SUBROUT INE S

MACRO v03.01 11-APR-80 13:58:55 PAGE 1%-1

57 055244
58 055250

001526

59 055254

001524
177437
000300

#PR6RS
,

000240
055304

#PRS
, = (SP)
#308
.~ (SP)

055252

PLCLK:

CLR
TRAP

TIME

(SP)+,RS
RS,$PSW
#*CPR7,RS
408

30%:

40%:

RTS

JCLEAR TIMER COUNT
;:PUSH OLD PSW AND PC ON STACK
;s +SAVE THE PSW IN RS
;SAVE PRIORITY
JMASK X
:#S'eRIORITv TO0 HIGH??

“:PUT NEW PS ON STACK

;sPUT NEW PC ON STACK
::POP NEW PC AND PS

sROUTINES TO HANDLE CLOCK INTERRUPTS (KW11=L OR KW11=P)
PCOUNT
:

062737
103003
012737
162737

000021

001526

177777

001526
001530

005037
000002

001530

100002

000021

:
LCOUNT

10%:

20%:

ADD
SuB

RTI

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

208

WATCH

sROUTINES TO STOP THE CLOCK

82
83 055350
84
85 055354

005077
000402

124140

005077

124142

013746
012746
000002

001524
055366

000207

PSTOP:

;RETURN TO USER
(KW11=L ORP KW11-P)

aSLP(SR
PLSTP

;STOP P CLOCK
;GO TO COMMON STOP CODE

(LR

ISLLCSR

;STOP L CLOCK

MOV
MOV

#108,-(SP)

$PSW,~(SP)

;:PUT NEW PS ON STACK
;:PUT NEW PC ON STACK
;:POP NEW PC AND PS

RTS

PLSTP:

10%:

;CLEAR REMAINING TIME

(LR

BR
LSTOP:

;ADD 17MS TO ELAPSED TIME
sBRANCH IF NO OVERFLOW
sRESTORE MAXIMUM COUNT
;DECREMENT REMAINING TIME
sBRANCH IF POSITIVE

RTI

SEQ 0223

D
d
D
d
D
d
d e e
—

VONOWNSWN
2OV
YO NS WN) =

CZRMPAD RM0S5/3/2 DSKLS TST 1
SET VOLUME VALID SUBROUTINE

MACRO V03.01

F 2

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

.SBTTL

SEQ 0224

SET VOLUME VALID SUBROUTINE

:THIS SUBROUTINE

INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID,

sRETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE.TM THE SUBROUTINE
sRETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN’AN ERROR IS
;DETECTED, IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE
CALL.

CALL:

JSR
BR
ERROR

PC,SETVV
44

JUMP TO SUBROUTINE
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

SETVV:

:LOAD RMMR1

#0 ,RMER2 (RO)

;LOAD RMER1
:LOAD RMER?2

#PACACK !GO,RMCS1(RO)

;LOAD RMCS1

RMDS (R0O) ,$BDDAT ;STORE RMDS AT $BDDAT
#~CVV,SBODAT

23 055450
24 055454
25 055462
26 055470
27 055474
28 055502
29 055510
30

108

RO, SBDADR

#RM
, SBDADR
DS
#VV,SGDDAT
#2,(SP)

:MOVE RETURN ADDRESS TO ERROR

#PAC,ACK
$TMPO
PC

:RETURN

#170,a(SP)

10%:

:BRANCH IF VOLUME VALID SET

:SETUP FOR ERROR MSG
*WRITE ERROR NUMBER

CZRMPAD RMOS/3/2 DSKLS TST 1

SET OFFSET MODE SUBROUT INE

MACRO v03.01

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

.SBTTL

;THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET

S
é

:SUBROUTINE, WHICH WILL LEAVE DMD ON.
THE SUBROUTINE RETURNS TO THE
:WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT

13 055512

19 055550

‘CALL:
;
:
012760
012760
012760
012760
016037
042737

001001
000000
000000
000015
000012
177776

20 055556 001015
21 055560 012737 000001
22 055566 010037 001136

000024
000014
000042
000000
001142

000012

001136

52 8232?3

112776

000200

000000

% 055612 "000207

000002

JSR
BR
ERROR

PC,SETOM
77

MOV
MOV
MOV
MOV
MOV

#DMD
'MUR , RMMR1 (RO)
:LOAD RMMR1
#0,RMER1(RO)
:LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#OFFSET'GO,RMCS1(RO)
;LOAD RMCS1
RMDS (RO) , SBDDAT ;STORE RMDS AT $S8DDAT

BNE
MOV
MOV

108
#OM, SGDDAT
RO, $8DADR

:BRANCH IF OFFSET ON

#2,(SP)

;MOVE RETURN ADDRESS TO ERROR

:RETURN TO USER

BIC

001140

062737

062716

SETOM:

001142

23 055572

24 055600

THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE

*RETURNS TO THE SECOND WORD FOLLOWING THE CALL

9
10
B
14 055512
15 055520
16 055526
17 055534
18 055542

SET OFFSET MODE SUBROUTINE

:MODE SETS.

SEQ 0225

#~COM, SBODAT

ADD

#RMDS
, SBDADR

movB

#200.a(sP)

ADD

RTS

JUMP TO SUBROUT INE
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

*WRITE ERROR NUMBER

CZRMPAQ RMOS/3/2 DSKLS TST 1

CLEAR CONTROLLER SUBROUT INE

MACRO v03.01 11-APR-80 13:58:55 PAGE 15

SEQ 0226

;

.SBTTL

3
g

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,
:a&omvss. THEN SELECTS THE DRIVE.

8 055614

CNTCLR:

055614 010046
9 055616 013700 001276
10 055622 012760 000040 000010

11 055630

117760

12 055636 012600
}2 055640 000207

123626

.2l

000010

104401

055646 000411

055650

ket

005737

000042

%o 055700

000137

053636

g% 055704

000137

004626

19 055676
;

001402

SHUT:
i 225"

18 055672

PC,CNTCLR

:CALL TO ROUTINE

MOV
MOV
MOV

RO,=(SP)
$BASE ,R0
#CLR,RMCS2(R0)

::PUSH RO ON STACK
*RO = UNIBUS BASE ADDRESS
:CLEAR MASSBUS

MOV
RTS

(sP)+,R0
PC

::POP STACK INTO RO
*RETURN

MOVB

.SBTTL

17 055642
055642

CLEAR CONTROLLER SUBROUTINE

it
108:

@TSTQUE ,RMCS2(RO)

:SELECT DEVICE UNDER TEST

SHUTDOWN SUBROUT INE
TYPE

LASCIZ

,65%

648

::TYPE ASCIZ STRING

“:GET OVER THE ASCIZ

<CRLF>@TEST WAS HALTED@<CRLF>

;RUNNING CHAIN MODE OR ACT11 AUTO ACCEPT ?

JMP

$EOP

*YES = GO TO END OF PASS

JMP

START

BEQ

108

INO !

;GO TO START

CZRMPAO RMOS5/3/2 DSKLS TST 1

SAVE AND RESTORE RO-R5 ROUTINES
1

MACRO v03.01 11-APR-80 13:58:55 PAGEI 1%
.SBTTL
MLAL

SEQ 0227

SAVE AND RESTORE RO-R5 ROUTINES

AL Al

22222%

*SAVE RO-R5

s*CALL:

SAVREG

.'l.P(N RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
.-TOP---(¢16)

;% $2===(+18)
;% +4===RS
;% +6===R4

;* +8---R3

;*+10-==R2
;*+12-==R1
;*+14=---R0

055710
055710
055712
055714
055716
055720
055722
055724
055730
055734
055740
055744

$SAVREG:

MOV

RO,=(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

R2,-(SP)
R3,-(SP)
R4,-(SP)
R5,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)

MOV

R1,-(SP)

;:PUSH RO ON STACK
22PUSH R1 ON STACK
;:PUSH R2 ON STACK
;3PUSH R3 ON STACK
;sPUSH R4 ON STACK
::PUSH RS ON STACK
;3SAVE PS OF MAIN FLOW
;2SAVE PC OF MAIN FLOW
;sSAVE PS OF CALL
;:SAVE PC OF CALL

;*RESTORE RO-RS

s*CALL:
. %

$RESREG:

055746

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+.RS
(SP)+.Ré
(SP)+.,R3
(SP) +.R2
(SP)+.R1

s sRESTORE PC OF CALL
:sRESTORE PS OF CALL
:;RESTORE PC OF MAIN FLOW
;RESTORE PS OF MAIN FLOW
::POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

nov
(SP)+.R0
RTI
BINARY TO ASCII AND TYPE ROUTINE

.SBTTL
MR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

22222322222

;*THIS ROUTINE IS USED TO CHANGE A 16-8BIT BINARY NUMBER TO A 16-BIT

;*BINARY-ASCII NUMBER AND TYPE IT.
i*CALL:

056004
056006

056012

010146

MOV

TYPBN

$TYPBN: MOV

'Stf)g

NUMBER,=-(SP)
R1,=(SP)

6(SP) ,R1

;NUMBER TO BE TYPED

J.TYPE IT

;5 SAVE R1 ON THE STACK
FIGET THE INPUT MMBER
::SET "'C"* SO CAN KEEP TRACK OF THE NUMBER OF BITS

CZRMPAC RMO5/3/2 DSKLS TST 1

BINARY TO ASCII AND TYPE ROUTINE

112737

000060

MACRO v03.01 11-APR-80 13:58:55 PAGEJ 18-1
056056

1%:

mMove
ROL

BEQ

056056
056056

000002

ADCB
TYPE
CLC

000004

000

2%:

$BIN:
.SBTTL
e

RTI

#'0,88IN
R1

$3IN
1%
(SP) +,R1
2(SP) ,4(SP)
(SP)+,(SP)

SEQ 0228

;:SET CHARACTER TO AN ASCII ''0''.
“SE’EI'”S BIT
:: DONE
:INO-=SET THE CHARACTER EQUAL TO THIS BIT
:1GO_TYPE THIS BIT
::CLEAR "C'' SO CAN KEEP TRACK OF BITS
::60 DO THE NEXT BIT
:POP THE STACK INTO R

: ADJUST THE STACK

..RETLRN TO USER

.BYTE
0.0
sSTORAGE FOR ASCII CHAR. AND TERMINATOR
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

AR AR AR AR AR AR AR AR AR AR AR AR AR A AR AR

AR AR

AR AR AR

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s *REPLACED WITH SPACES.
s*CALL:
MOV
NUM,
= (SP)
:
::PUT THE BINARY NUMBER ON THE STACK
3
TYPDS
;G0 TO THE ROUTINE
$TYPDS:

RO,=(SP)
R1.=(5P)
R2.=(SP)

R3,-(SP)

RS .=(SP)

#20200,-(SP)

020200
000020

000055

ZO(SP) RS

000001

056274
000040

1%:

#'=,1(5P)
RO

#SDBLK ,R3

# ,(RS)+
R

056264

3%:

A ¥

$DTBL (RO) ,R1
R5

;:PUSH RO ON STACK
2:PUSH R1 ON STACK
;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH RS ON STACK
;2SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;J:BR IF INPUT IS POS.
;JMAKE THE BINARY NUMBER POS.
;JsMAKE THE ASCII NUMBER NEG.
:sZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
+2SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
JGET THE CONSTANT
..Fmfl THIS BCD DIGIT

;BR IF DONE
:: INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT
..C#ECK IF BCD DIGIT'O
FALL THROUGH IF 0

..STILL DOING LEADING 0'S?

5%:

000001
000060
000040
000010

177777

;BR IF YES
HSD
BR IF NO

..YES-SET THE SIGN
s sMAKE THE BCD DIGIT ASCII
ssMAKE IT A SPACE IF NOT ALREADY A DIGIT
::PUT THIS CHARACTER IN THE OUTPUT BUFFER
2 :JUST INCREMENT
ING
;:CHECK THE TABLE INDEX

CZRMPAQ RMOS5/3/2 DSKLS TST 1

MACRO v03.01 11-APR-80 13:58:55 PAGE13-2

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

002746
003002
010502
000764
105726
0000

BLT

8%:
177777

056274
006002

177776

TSTB

9%:

CLRB

2%
8%
R5.R2
6%
(SP)+
OF,
=1(SP) ,~2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+,R0O
$DBLK

étsm 4(SP)

000004

(SP)+. (SP)

$DTBL:

;GO CHANGE TO ASCII

.'UASI;HSDLSD THE FIRST NON-ZERO?
;BR

;s YES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR
:;POP STACK INTO RS
:;POP STACK INTO R3
:sPOP STACK INTO R2
::POP STACK INTO R1
:;POP STACK INTO RO
:sNOW TYPE THE NUMBER
;sADJUST THE STACK

.SBTTL
LA A R

::G0 DO THE NEXT DIGIT
2:G0_TO EXIT
::GET THE LSD

:;RETURN TO USER

10000.

$DBLK:

BINARY TO OCTAL (ASCII) AND TYPE
AR d

'YHIS ROUTINE

eIt

T332 23222223

32223

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6~DIGIT

;*OCTAL (ASCII) NUMBER AND TYPE IT
:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:
MOV
NUM,
- (SP)
e
: sNUMBER TO BE TYPED

o
i

::CALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
J:M=1 0RO

TYPOS

.BYTE
.BYTE

;:1=TYPE LEADING ZEROS

..O-SU’PRESS LEADING ZEROS

'SYYPW---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC

s*CALL:

.' .

o
-

MOV

TYPON

- (SP)
NUM,

: NUMBER TO BE TYPED
:sCALL FOR TYPEOUT

:*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

g@\lfl\l&@

bt wa

—_——

2§z~§§§

[

—-

—y

s*CALL:
i
MOV
ot
TYPOC

056210

SEQ 0229

056531
000002

000001
000006
000005

056527

056557
056531
056526

$TYPOS: MOV
MOVB
MOvVB
ADD
BR
$TYPOC: MOVB
MOvVB
S$TYPON: MOVB
MOV
MOV

- (SP)
NUM,

;;NUMBER TO BF TYPED
+:CALL FOR TYPEOUT

a(SP) ,=-(SP)

::PI1CKUP THE MODE
..LOAD ZERO FILL SWITCH

: NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS

..SET THE ZERO FILL SWITCH
SET FOR SIX(6) DIG ITS
..SETlg ITERATION COUN
E RS

CZRMPAQ RMOS5/3/2 DSKLS TST 1

BINARY TO OCTAL (ASCII) AND TYPE

MACRO v03.01 11-APR-80 13:58:55 PAGEL 13-3

056356
056360
056364

010546
113704
005404

056531

056372
056376

110437
113704

056530
056527

056406
056410

005003
006105

056414
056416
056420

006105
006105
006105

28:

056426
056426

006103
105337

056530

3s:

056434

042703

177770

056442
056444
056446
056450
056454

005704
001403
005204
052703
052703

056464

104401

056366

MOV
MOVB
NEG

704 000006

056402 016605

ADD

MOVB
MOVB

000012

MOV
18:

056412 000404

056422 010503
056432

100016

056440 001002

056460

056470

056474

056476

110337

056524

105337

056526

003347

“:SAVE IT FOR USE
+:GET THE ZERO FILL SWITCH

12(SP) .RS

“:FORM THIS DIGIT

ROL
DECB

R3
$OMODE

1:G0 DO MSB

R5,R3
78

*:GET RID OF JUNK

ST
BEQ
INC
BIS
BIS

R4
58
R4
#'0,R3
#'
.R3

: :SUPPRESS THIS 0?
*:BR IF YES
“:DON'T SUPPRESS ANYMORE 0'S
*:MAKE THIS DIGIT ASCII
“:MAKE ASCII IF NOT ALREADY

MOVB

R3,8%

DECB

$OCNT

BGT

*:BR IF MORE TO DO

B8R
MOV

2$
(SP)+,RS

056

012604

056522
056524
056525
0565
056527
056530

2
000
000
000
000

000000

MOV

MOV
MOV
MOV

000004

RTI
8s:
BYTE
BYTE
$OCNT: .BYTE
$OFILL: .BYTE

SOMODE:

.WORD

(SP)+.Ré

(SP)+.R3
2(SP) .4 (SP)
(SP)+. (SP)

0
0
0
0

1:BR IF DONE
::INSURE LAST DIGIT ISN'T A BLANK
*:G0 DO THE LAST DIGIT
::RESTORE RS

*:RESTORE Ré&

*:RESTORE R3
*:SET THE STACK FOR RETURNING

: :RETURN
*:STORAGE FOR ASCII DIGIT
*:TERMINATOR FOR TYPE ROUTINE
“:0CTAL DIGIT COUNTER
*:2ERO FILL SWITCH

::NUMBER OF DIGITS TO TYPE

.SBTTL TYPE ROUTINE
AR AR A

+:SAVE FOR TYPING

+:GO TYPE THIS DIGIT

056502 000744
056504 012605

INC

S:TEST FOR 0

+:COUNT BY 1

056510 012603
056512
016666 000002
056520 012616

“:BR IF NO

#177770.R3

BLT

68:

::GET LSB OF THIS DIGIT
$:TYPE THIS DIGIT?

BIC

TYPE

005204

::PICKUP THE INPUT NUMBER

RS
RS
RS

002402

056500

; ;SUBTRACT IT FOR MAX. ALLOWED

ROL
ROL
ROL

BNE

78:

R&.S$SOMODE
SOFILL,R4

#6,R4

::CLEAR THE OUTPUT WORD
+:ROTATE MSB INTO '‘C

BPL

056524

::SAVE RS
+:GET THE NUMBER OF DIGITS TO TYPE

R3
RS

MOV

5%:

RS,=(SP)
SOMODE+1,Ré4
R4

CLR
ROL

B8R

48:

SEQ 0230

1121%3222232322223

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

s*NOTE1:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

s *NOTEZ2:
s *NOTES:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*CALL:

i#1) USING A TRAP INSTRUCTION
;e

TYPE

A
e

TYPE
ME SADR

. %

.MESADR

:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

CZRMPAQ RN)S/3/2 DSKLS TST 1

TYPE ROUTI

MACRO v03.01 11-APR-80 13:58:55 PAGE 1%—4
M

SEQ 0231

‘%

056536

105737

100002

001173

001242

000100

001243

000040

1%:

000002
000001

056602
061672

$TPFLG
18

$TYPE:

001243

RO,=(SP)
@82(SP) ,RO

..ég }HERE A TERMINA!?

..HALT HERE IF NO TERMINAL
AVE

.':GET ADDRESS OF ASCIZ STRING
;s JRUNNING IN APT MODE
62%
23NO,GO CHECK FOR APT CONSOLE
#APTSPOOL , SENVM ..SPOOL MESSAGE TO APT
62%
..NO.GO CHECK FOR CONSOLE
RO,61%
::SETUP MESSAGE ADDRESS FOR APT
SC.SATYS
2 :SPOOL MESSAGE TO APT
; JMESSAGE ADDRESS
#APTCSUP, SENVM
;sAPT CONSOLE SUPPRESSED
60$
J2YES,SKIP TYPE OUT
(RO)+,=(SP)
+:PUSH CHARACTER TO BE TYPED ONTO STACK
68
J:BR IF IT ISN'T THE TERMINATOR
(SP)+
s:IF TERMINATOR POP IT OFF THE STACK
(SP)+,RO
::RESTORE RO
#2,(SP)
;:;ADJUST RETURN PC
: :RETURN
::RE
#HT, (SP)
: :BRANCH IF <HT>
#APTE
, SENV
NV

61%:

623
2$:

000002

:
608
3s:

000011

A H

#CRLF
, (SP)

5%
(SP)+

057062

;;BRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
::TYPE A CR AND LF

056744
001172

PC,STYPEC

:sCLEAR CHARACTER COUNT
:sGET NEXT CHARACTER
..GO TYPE THIS CHARACTER

001170

SNULL ,=(SP)

GET # OF HLLE%HARS NEEDED

000001

1(SP)
6$

$CHARCNT
2%

gILLC. (SP)+

056744
057062

PC,STYPEC

$CHARCNT
78

::1S IT TIME FOR FILLER CHARS.?
:s1F NO GO GET NEXT CHAR.

THE NULL
S A NULL NEED TO BE TYPED?
IF NO--GO POP THE NULL OFF OF STAZK
TYPE A NULL

::DO NOT COUNT AS A COUNT

sHORIZONTAL TAB PROCESSOR
00004
056744
00000

122210
122204
177600
000023

8%:

057062

0%:

$TYPEC:

MOvB
JSR
BlT8
BNE
TST
BR
TSTB

BPL
MOV
8IC
(MP8

(SP)

pc $TYPEC
3;" SCHARCNT
(SP)+

as$TKS
108
a$TKB, ~(SP)

- m77600, (sP)
#SXOFF, (SP)

JJREPLACE TAB WITH SPACE
2:TYPE A SPACE
; BRANCH IF NOT AT

2:TAB STOP

. ;POP SPACE OFF STACK
J2GET NEXT CHARACTER

..CHAR IN KYBD BUFFER?
::BR IF NOT
1IGET CHAR
..STRIP EXTMNS BITS
X
CHAR

CZRMPAQ RK&S/S/Z DSKLS ST 1

TYPE ROUTI

MACRO v03.01 11-APR-80 13:58:55 PAGE 1%-5
N

001012
105777

122164

005726

las

122142
122134
000002

TSTB

@$TKS

;:WAIT FOR CHAR

MOVB

@$TKB, (SP)

::GET CHAR

CMPB

#SXON, (SP)

S:WAS IT XON?

(SP)+

;:FIX STACK

ggla

%;PS

::WAIT UNTIL PRINTER IS READY

MOVB
CMPB

2(SP),asTPB
#CR,2(SP)

::LOAD CHAR TO BE TYPED INTO DATA REG.
+:1S CHARACTER A CARRIAGE RETURN?

CLRB

SCHARCNT

*:YES==CLEAR CHARACTER COUNT

BNE

057062
000012

;:BR IF*NOT

BNE

102%:

000002
000015

102

BIC

000021

100375

BNE

BPL

122160
177600

000002

1$:

CMPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS
.SBTTL
s AR

SEQ 0232

1018

#177600,(SP)
1018

$TYPEX

#LF,2(SP)
$TYPEX
(PC)+
0
PC

::STRIP IT

J:BR IF NOT

*:BRANCH IF NO
SIEXIT

::1S CHARACTER A LINE FEED?
*:BRANCH IF YES
+:COUNT THE CHARACTER
+:CHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE
AR

AR AR AR AR AR AR AR A AR AR AR AR AR AR AR

s*TH.! ROUTINE CONTROLS THE LOOPING OF

s*AND LOAD TME TEST NUMBER(STSTNM)
;*AND LOAD THE ERROR FLAG (SERFLG)

AR AAAN

SUBTESTS.

RN ARSI

IT WILL

R AR

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)
INTO DISPLAY<15:08>

:#THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
s *SW14=1

LOOP ON TEST

: *SW09=1
; *SW08=1
: *CALL
i
SCOPE

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
: :SCOPE=101

1*3W11=1

104410

032777
001131

:
$SCOPE

040000

122056

057106

CKSWR

BIT

BNE

#BIT14,@SWR

. SOVER

::TEST FOR CHANGE IN_SOF T-SWR
::LOOP ON PRESENT TEST?

:YES IF SW14=1

;MMMMNSTART OF CODE FOR THE XOR ?ésrsmmn

$XTSTR: BR

000416

013746

INHIBIT ITERATIONS

000004
057126
177060
000004

000400

::THIS INSTRUCTION TO A 'NOP'* (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR
..SET FOR _TIMEOUT

MOV
BR
cTMP
MOV
B8R

(SP)+,3#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+.a#ERRVEC
78

::RESTORE THE ERROR VECTOR
::G0 TO THE NEXT TEST
*:CLEAR THE STACK AFTER A TIME OUT
..nesroae THE ERROR VECTOR
LOOP ON THE PRESENT TEST

BEQ
CLR

#81T08,aSWR
2%
-(SP)

..LW ON SPEC. TEST?
:BR_IF NO
::CLEAR A TEMP. LOCATION

5%:
122010

:IF RUNNING ON THE ‘XOR'* TESTER
- CHANGE

@N#ERRVEC,~(SP)
#5$ VERRVE

MOV
MOV

000004

an177060

TIME OUT ON XOR?

“”"”fi"r" OF CODE FOR THE XOR 'fesmmmr

5COPE HANDLER ROUTINE

MOVB
BEQ
CMP
BLT

000120
001116

MOV
DEC

ASL

057400
001122
8%:
2%:

001117

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

122000

ADD
MOV
B8R
TST

TSTB

SEQ 0233

aSWR, (SP)

..PICKLP THE DESIRED TEST NUMBER

#120, (SP)

..CHECK THE NUMBER IN THE SWR

(SP) ,$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)
a(SP)+ ,SLPADR

::UPDATE THE TEST NUMBER
..BACKLP BY ONE

8%
8%

$OVER

(SP)+
$SERFLG

sBRANCH IF BAD TEST NUMBER IN SWR
sBRANCH IF TEST NUMBER IS OUT OF RANGE

sSCALE THE TEST NUMBER AS AN INDEX

::FORM THE ADDRESS OF TEST POINTER
:;SET LOOP ADDRESS TO DESIRED TEST
..GO LOOP ON THE TEST

sCLEAN THE BAD TEST NUMBER OFF OF THE STACK

HASl ERROR OCCURRED?

F NO
i ERmRCRS FOR THIS TEST OCCURRED?

001131

001117

;ERHAX.SERFLG

001000

121720

#BI1T09,aSWR

..LOW ON _ERROR?

001124

001122

SLPERR, SLPADR

::SET LOOP ADDRESS TO LAST SCOPE

;:ZERO THE ERROR FLAG
:;CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
..IMIBIT ITERATIONS?

001117
001206
121666

7%:

MOV

A ¥

CLRB

3%:

BIT

(A3

1?”11 .@SWR
$PASS
1$

$ICNT
STIMES,SICNT
SOVER

001120

001226

—
—

) —a

e N
—

) b e e

88§888888

001120
001206

000001

— et QN =t =2 w2
N
N=O=NIN)
— =~
VT BT e ¥ NT. Ne o N

057150
057154

MACRO v03.01

ggg

( ZRMPAD RMOS/3/2 DSKLS ST 1

$SVLAD:

SOVER:

INCB
[0):]
MOV
MOV
CLR
MOVB
MOV
MOV
RTI

SMXCNT: 10.
$SWOBTBL
:

;BR_IF NO

:BR IF YES

..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
;s INCREMENT ITERATION COUNT
..CFECK THE NUMBER OF ITERATIONS MADE
;BR IF MORE ITERATION REQUIRED

#1,SICNT

..REINHIALIZE THE ITERATION COUNTER

TST1+2
TST2+2
TST3+2
TST4+2
TSTS+2

: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
:;STARTING ADDRESS OF
..STARTIM ADDRESS OF
il
TING ADDRESS OF
:;STARTING ADDRESS OF
;s STARTING ADDRESS OF
;. STARTING ADDRESS OF
s sSTARTING ADDRESS OF
: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF

SMXCNT ,STIMES
STSTANM
STSTNM, STESTN

T NUMBER OF ITERATIONS TO DO
..CG.NT TEST NUMBERS
;:SET_TEST NUMBER IN APT MAILBOX
;:SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
:;CLEAR THE ESCAPE FROM ERROR ADDRESS
ssONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM, 3D SPLAY ::DISPLAY TEST NUMBER
SLPADR, (SP)
;;FUDGE RETURN ADDRESS
::FIXES PS
;:MAX. NUMBER OF ITERATIONS

TST6+2
TST7+2

TST10+2
TST11+2
TST12+2
TST13+
TST14+
TST15+
TST16+
TST17+

s STARTING ADDRESS OF

TEST 1
TEST i
TEST
TEST 4
TEST S
TEST 6
TEST 7
TEST 10
TEST 11
TEST 1§
TEST 1
TEST 14
TEST 15

: s STARTING ADDRESS OF TEST 16

:sSTARTING ADDRESS OF

TEST 17

‘

f
|

' CZRMPAD RMOS/3/2 DSKLS TST 1

| SCOPE HANDLER ROUT INE

!
|

MACRO v03.01 11-APR-80 13:58:55 PAGE 19-7

SEQ 0234

057436 015510

LWORD

TST20+2

::STARTING ADDRESS OF TEST 20

057442

LWORD

TST22+

::STARTING ADDRESS OF

057440

015774

057444
057446
057450
057452
057454
057456
057460
057462
057464
057466
057470
057472
057474
057476
057500
057502
057504
057506
057510
057512
057514
057516

016240
016512
017012
017434
017530
020016
020332
020622
021340
(021652
022144
022466
023026
023502
023766
024259
024652
025022
025402
026112
026406
027010

LWORD
LWORD
LWORD
.WORD
WORD
.WORD
LWORD
LWORD
LWORD
LWORD
.WORD
LWORD
.WORD
.WORD
LWORD
WORD
LWORD
LWORD
LWORD
LWORD
LWORD
WORD

030304
030556
030760
031172
031366
031546
031764

LWORD
LWORD
LWORD
LWORD
MWORU
LWORD
LWORD

032356
032472
032660
033110
033326
033554
034024
034232
034522
034750
035056

035332
035464
035616

057520
057522

057524
057526
057530
057532
057534
057536
057540

057542

057544
057546
057550
057552
057554
057556
057560
057562
057564
57566
057570

057572
057574
057576
057600

057602

016112

027244
027452

032132

035202

.WORD

LWORD
LWORD

rsmos
TST23+2
TST24+2
TST25+2
TST26+2
TST27+2
TST30+2
TST31+2
TST32+2
TST33+)
TST34+Q
TST35+2
TST36+2
TST37+2
TST&40+2
TST41+2
TST42+2
TST43+2
TST44+2
TST45+2
TST&46+2
TST47+2
TSTS50+2

TSTS51+2
TSTS52+2
TST53+2
TSTS4+2
TST55+2
TSTS56+2

:;STARTING ADDRESS OF
: :STARTING ADDRESS OF
;:STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
::STARTING ADDRESS OF

TEST 2

TEST 2
TEST 24
TEST 25
TEST 26
TEST %
TEST
TEST 31
TEST 32
TEST 33
TEST 34
TEST 35
TEST 36
TEST 37
TEST 40
TEST 41
TEST 42
TEST 43
TEST 44
TEST 45
TEST 46
TEST 47
TEST S0

TEST
TEST
TEST
TEST
TEST
TEST

51
§

TSTS57+2
TST60+2
TST61+2

WORD
WORD
LWORD
LWORD
WORD
.WORD
LWORD
LWORD
LWORD
LWORD
LWORD

TST63+2
iST64+2
TST65+2
TST66+2
TST67+2
TST70+2
TST71+2
TST72+2
TST73+2
TST74+2
TST75+2

:;STARTING ADDRESS OF
; :STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
: :STARTING ADDRESS OF
; :STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
;:STARTING ADDRESS OF

LWORD
.WORD
LWORD

TST77+
TST100+
TST101+

: :STARTING ADDRESS OF TEST 77
::STARTING ADDRESS OF TEST 100
::STARTING ADDRESS OF TEST 101

.WORD

rsrggq

tS!?b*S

rsnogo

036210
036336
036542

WORD
LWORD
LWORD

TST103+
TST104+
TST105+

057614
057616

037066
037264

LWORD
LWORD

TST107+
TST110+

036672

: :STARTING ADDRESS OF
::STARTING ADDRESS OF
: :STARTING ADDRESS OF
::STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
;:STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
: :STARTING ADDRESS OF
;:STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
: :STARTING ADDRESS OF
:;STARTING ADDRESS OF
::STARTING ADDRESS OF
: :STARTING ADDRESS OF
;:STARTING ADDRESS OF
: :STARTING ADDRESS OF
::STARTING ADDRESS OF

S
54
55
56
: :STARTING ADDRESS OF TEST 57
: :STARTING ADDRESS OF TEST 60
::STARTING ADDRESS OF TEST 61

057604
57606
057610

057612

: :STARTING ADDRESS OF TEST 21

.WORD

ISHO?O

::STARTING ADDRESS OF TEST eg
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

6
64
65
66
67
70
71
75
7
74
75

: :STARTING ADDRESS OF TEST 76

::STARTING ADDRESS OF TEST 10;
;:STARTING ADDRESS OF TEST 10
; :STARTING ADDRESS OF TEST 104
: :STARTING ADDRESS OF TEST 105

;;STARTING ADDRESS OF TEST 106

:STARTING ADDRESS OF TEST 107
:;STARTING ADDRESS OF TEST 110

;

.SBTTL
LA R

AR AR Al

22222322222

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

$ERROR:

001117

7%:

001116
002000
1%:

:gp;ézgggpc

::GET ADDRESS OF ERROR INSTRUCTION

208

PC,ERRTYP

:
208

,$CRLF

#APTENV,SENV

SITEMB,21$

21%:

22%:
2%:

121164

121150

3s:
4%:

5%:

sc.um

*NO = SKIP

:COUNT THE NUMBER OF ERRORS

;:STRIP AND SAVE THE ERROR ITEM CODE

::SKIP TYPEOUT IF SET

;:SKIP TYPEOUTS

::G0 TO USER ERROR ROUTINE

001130
061702

001210

..RING BELL

@SERRPC,SITEMB

000001

013716

L, SBELL

$ERTTL

#BIT13,35WR

054046
0C1217

001124
001210

::BELL ON ERROR?

001212
001126
001132
000002
121216
020000

001000

::TEST FOR CHANGE IN SOFT-SWR

SERFLG
:iSET THE ERROR FLAG
78
*DON'T LET THE FLAG GO TO ZERO
STSTNM,aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

#B1T10.3SWR

;;RUNNING IN APT MODE

$INO,SKIP APT ERROR REPORT

::SET ITEM NUMBER AS ERROR NUMBER
::REPORT FATAL ERROR TO APT

0
228

:;APT_ERROR LOOP

..sup IF CONTINUE

#B1T09,aSWR

S:TEST FOR CHANGE IN SOFT-SWR
::LOOP ON ERROR SWITCH SET?

aSWR

“HALT ON ERROR

“HALT ON ERROR'

43
SLPERR (SP)

$:BR IF NO
::FUDGE
RETURN FOR LOOPING

ss
$ESCAPE,(SP)

S:BR IF NONE
::FUDGE RETURN ADDRESS FOR ESCAPE

SCAPE

::CHECK FOR AN ESCAPE ADDRESS

R R

S
S

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
N

T
T

2223233223

'THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO ERRTYP ON ERROR
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE :
:'SU1S=1
HALT ON ERROR

:+SW13=1
;*SW10=1
s *SW09=1
s*=CALL

ONO
NS NN —

052374

;s STARTING ADDRESS OF TEST
;s STARTING ADDRESS OF
: :STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;:STARTING ADDRESS OF
:;STARTING ADDRESS OF TEST
: ;STARTING ADDRESS OF TEST

e B

TST1114%
TST11§¢
TST11342
TST114+2
TST115¢2
TST116+2
TST117+2
TST120+2
ERROR MANDLER ROUTINE

040046

[

037542

SEQ 0235
— =

620

057622
057624
057626
057630
057632
05763<
057636

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

SCOPE HANDLER ROUTINE

MACRO v03.01

o
mmmmm
wnunununn

CZRMPAD RMOS5/3/2 DSKLS TST 1

CZRMPAD RMO5/3/2 DSKLS TIST 1

ERROR HANDLER ROUTINE

022737
001001
000000

054026

MACRO v03.01

CMP
BNE

000042

6%:

000002

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

LSBTTL

HALT

#SENDAD ,a#4?2
6%

RTI
TTY INPUT ROUTINE

SEQ 0236

;sACT=11 AUTO=-ACCEPT?
2 JBRANCH IF NO

2:YES

;RETURN

"QQ"'QQ'Q..Q.Q"Q'""Q"tQ.Qtt.'tt"t't.'....t..Qt"..'tt.t'

ENABL

LSB

$TKCNT : WORD

$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLkB
SgKng=.

060047

;JNUMBER OF ITEMS IN QUEUE

0
O
1

;s INPUT POINTER
:sOUTPUT POINTER
;. TTY KEYBOARD QUEUE

.EVEN

;*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL

INITIALIZE

THE

TTY KEYBOARD INPUT QUEUE

s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

S«CALL:
v

060050
060054
060062

060042

060076
060104
060110
060116

JSR

RETURN

$TKINT: CLR

MOV
MOV
MOV

MOV

000062

TST

MOV

121042

RTS

PC,STKINT

$TKCNT

: :CLEAR COUNT OF ITEMS IN GUEUE

#STKQSRT ,STKQIN ;:;MOVE THE STARTING ADDRESS OF THE
STKQIN,STKQOUT
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
ISTKSRV o#TKVEC ;;INITIALIZE THE KEYBOARD VECTOR

0200 aTKVEC+2
0100 a$TKS

::'BR'* LEVEL &

;:CLEAR DONE FLAG

JsEN/BLE TTY KEYBOARD INTERRUPT
JJRETURN TO CALLER

;*TK SERVICE ROUTINE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
s*IT IN THE QUEUE.
s*1F THE CHARACTER IS A "'CONTROL-C'' (*C) STKINT IS CALLED AND

200
20

117746

$TKSRV: MOVB
BIC

121036
177600

CMP

000003

061234
060050

TYPE

18:

000176

001154

000001

060040

001212

2%:

@$TKB,~-(SP)
#°C177,(SP)

;1S IT A CONTROL C?

LSCNTLC

::TYPE A CONTROL=C (*C)

(SP)+

::CLEAN UP STACK

PC,STKINT

JMP
CMP
BNE
(MP
BEQ

SHUT
(SP) .47
2%
#SWREG, SWR
63

CMpP

#1,8TKCNT
3s

BNE
TYPE

::PICKUP THE CHARACTER
S:STRIP THE JUNK

(sP) ,#%

JSR
TST

055642
000007

R=2

3 ZEE ZRZRTRXZTZZZ
N 3 RBRBERERENS

:*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (SHUT)

LSBELL

: :BRANCH IF NO

;2 INIT THE KEYBOARD

s ;CONTROL C RESTART

::1S 1T A CONTROL G?

; ;BRANCH IF NO
::1S SOFT-SWR SELECTED?
::G0 TO SWR CHANGE
;:1S THE QUEUE FULL?

;sBRANCH IF NO
;sRING THE TTY BELL

CZRMPAQ RIK)S/B/Z DSKLS TST 1

TTY

INPUT ROUTI

060206

060210
060212
060216
060220
060224
060226

060232
060234

005726

000451
021627 000023
001021
005077 120734
005726
105777

120726

117746

120722

100375

060240

042716

060260
060262

000002
005237

060272
060274
060300
060302

002405
021627
003002
042716

060312

005237

060334

000002

060266 021627

112677

3s:
318:

177600

060244 022627 000021
060250 001366
060252 012777 000100

060306

120700
32%:

000140
000175

060316 023727 060042
060324 001003
060326 012737 060046

B8R
cMP
BNE
L

ST
ISTB

BPL

48:

060047
060042

5%
s

(SP)+

..CLEAN CHARACTER OFF OF STACK

CEXIT
$:IS 1T A CONTROL=S?
*:BRANCH IF NO
*:DISABLE TTY KEYBOARD INTERRUPTS

31s

“:LOOP UNTIL ITS THERE

#4C177, (SP)

SIMAKE IT 7-BIT ASCII

(SP)+
@$TKS

::CLEAN CHAR OFF STACK
S:WAIT FOR A CHAR

@$TKB,=-(SP)

CMP
BNE
MOV

(SP)+,#21
318
#100,38TKS

RTI
INC

SEQ 0237

58
(SP) ,#23
328
as$TKS

MOVB

BIC

060040

000040
177530
060042

MACRO v03.01 11-APR-80 13:58:55 PAGE 19-10

*:GET THE CHARACTER

;1S IT A CONTROL-Q?
*BRANCH IF NO
..Reemeus TTY KEYBOARD INTERRUPTS

STKCNT

*:RETURN
..CMT THIS CHARACTER

BLT
CMP
BGT
BIC

43
(SP) ,#175
43
#40, (SP)

*:BRANCH IF YES
2:1S IT A SPECIAL CHAR?
*:BRANCH IF YES
S:MAKE IT UPPER CASE

INC

$TKQIN

*:UPDATE THE POINTER

CMP

MOVB

cMP
BNE
MOV
RTI

(SP) ,#140

(SP)+,@$TKQIN

*IS IT UPPER CASE?

::AND PUT IT IN QUEUE

$TKQIN, #$TKQEND ..co OFF THE END?
58
*BRANCH IF NO
#STKQSRT,$TKQIN ::RESET THE POINTER
*RETURN

AR AR AR AR AR AR A A AR AR AR R A AR AR AR R AR AR AR AR R

AR AR

R AR

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

060336
060344

022737
001124

060352

100121

060346

060354

060360

060364
060370

000176

105777

120606

117746

120602

021627
001300

000007

042716

001154

;*ROUTINE IS ENTERED
FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
; *CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR: CMP
BNE

TSTB

BPL

MOVB

177600

BIC

cMP
BNE
IR

csmec SWR
158

::1S THE son-sm SELECTED
SIEXIT IF NO

15%

::IF NOT, EXIT

@$TKS

a$TKB,-(SP)

#-C177,(SP)

(SP) 47
2s

R R RN

1:IS A CHAR mmm
YES

YIMAKE IT

7-BIT ASCII

::1S IT A CONTROL=G?
..zoug;x PUT IT IN THE TTY QUEUE
R N RN

AR RN

AR RN NN

RN RN

RORRRS

'CWTR& 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

;*ROUTINE OR FROM THE

060372

060400

060402

04
060410
060414
060422
0606%3

0604
060436

123727

001674

005;%6

001150

004737
005077
112737

060050
120544
000001

104401
104401

061246
061253

013746
104402

000176

000001

SOF TWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF

; *CONTROL~G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

5$:

001151

$GTSWR:

(MP8

SAUTO8, #1

..ARE WE RUNNING IN AUTO-MODE?

TST

JSR
(LR
MOVB

(SP)+

PC,STKINT
as$TkS
#1,8INTAG

::CLEAR CONTROL-G OFF STACK

TYPE
TYPE

.SCNTLG
. SMSWR

;;ECHO THE CONTROL=G (*G)
::TYPE CURRENT CONTENTS

BEQ

MOV
TYPOC

SWREG,~(SP)

sBRANCH IF
YES

..FLUSH THE TTY INPUT QUEUE
;DISABLE TTY KEYBOARD INTERRUPTS
::SET INTERRUPT MODE INDICATOR

::3AVE SWREG FOR TYPEQUT

;.60 TYPE--OCTAL ASCII(ALL DIGITS)

CZRMPAD RMOS5/3/2 DSKLS TST 1
INPUT ROUTINE

061264

19%:

120504

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

7$:

TYPE
CLR
CLR
TSTB
BPL

, SMNEW

as$TKS

;;PROMPT FOR NEW SWR
;+CLEAR COUNTER
;s THE NEW SWR
:;CHAR THERE?

<(SP)
-(SP)

;+IF NOT TRY AGAIN

117746

120500
177600

MOVB
BIC

#°C177.(SP)

as$TKB, = (SP)

;:PICK UP CHAR

021627
001015

000003

CMP
BNE

(SP) .43
9

;:1S IT A CONTROL=C?
;sBRANCH IF NOT
;sYES, ECHO CONTROL=C (*C)
s sCLEAN UP STACK
;JREENABLE TTY KEYBOARD INTERRUPTS?
:JBRANCH IF NO
JsALLOW TTY KEYBOARD INTERRUPTS
2 sCONTROL=C RESTART

061234
000006
001151
000100
055642

TYPE
ADD

000001
120436

8%:

JMP

000025

9%:

061241
000006

CMP
BNE

20%:

ADD

000015

108:

000002
000006
001217
001151

000001

000100

120342

120364

#100,3$TKS

SHUT

(SP) ,#25
108

000002
177776

17%:

INC

001216

18%:

TYPE
BR
LSB

000067
000002

.DSABL

321S IT A CONTROL=-U?
2 sBRANCH IF NOT
;2YES, ECHO CONTROL=-U (*U)
2 : IGNORE PREVIOUS INPUT

2:1S IT A <CR>?
; JBRANCH IF NO
J2YES, IS IT THE FIRST CHAR?
;JBRANCH IF YES

JSR

JIMAKE IT 7-BIT ASCII

J:LET'S TRY IT AGAIN

#100,38TKS

15%:
16%:

056744
000060

LSCNTLC

#6,SP
#1
$INTAG,

062706
123727
001003
012777
000137

104401

—_

042716

TTY

MACRO Vv03.01

PC,STYPEC

#60

2 ;SAVE NEW SWR
;:CLEAR UP STACK
2ECHO <CR> AND <LF>
2 JRE-ENABLE TTY KBD INTERRUPTS?
: JBRANCH IF NO NOT
¥
;JRE-ENABLE TTY KBD INTERRUPTS
2 JRETURN
2 ;ECHO CHAR

;:CHAR < 0?
2 JBRANCH IF YES
J:CHAR > 7?
;JBRANCH IF YES
;:STRIP-OFF ASCII
2:1S THIS THE FIRST CHAR
;JBRANCH IF YES
J2NO, SHIFT PRESENT
¥
CHAR OVER TO MAKE

J2TYPE ?2<CR><LF>

2 sSIMULATE CONTROL=-U

.'.'l'."..'...t......l"""."'..'..'l....'.".l..."".."..'."

SEQ 0238

CZRMPAD RM0S/3/2 DSKLS TST 1

TTY

INPUT ROUTINE

K 3
MACRO v03.01 11-APR-80 13:58:55 PAGE 19-12
,-wf ROUTINE JILL
k 3

i
i

060700

011646

060710

005066

060702

060714

016666
005046

000004

000002

060722

060724
060730
060732
060736

005737
001775
005337
117766

060724

MOV

060744
060750
060756
060760
060766

648:

060040
177102

005237 060044
023727 060044
001003
012737 060046
000002

1$:

000004

060047
060044

28:

::CHARACTER IS ON THE STACK
::WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)

uspS 2(5P)

:PUSH DOWN THE PC AND

..me PS

CLR

4(SP)

MOV

#64$,=(SP)

“:PUT NEW PC ON

ST
BEQ
DEC
MOVB

$TKCNT
1%
$TKCNT
@$TKQOUT,4(SP)

;:WAIT ON A CHARACTER

RTI

INC
cMP
BNE
MOV
RTI

TTY

;:GET A CHARACTER FROM THE QUEUE

RETURN HERE

CLR

060040

SINGLE CHARACTER FROM THE

RDCHR

$RDCHR: MOV

060716 012746 060724

INPUT #

SEQ 0239

-(SP)

1:GET READY FOR A CHARACTER
“:PUT NEW PS ON STACK

STACK

;:POP NEW PC AND PS

: ;DECREMENT THE COUNTER
::GET ONE CHARACTER

$TKQOUT
:UPDATE THE POINTER
$TKQOUT,#4$TKQEND" ..oxo IT GO OFF OF THE END?
2$
: *BRANCH IF NO
#$TKQSRT,$TKQOUT : ;RESET THE POINTER
: RETURN

ttttt.tl.tttt.ttt...'"tt'.t.tl't.tt.t.t'ttt!t'.tt't't'ttttt't.

'Efiif ROUTINE WILL
- %

‘e

060770
060772

010346
005046

061004
061006
061010
061012

101456
104411
112613
122713

060774
061000

061016

012703
022703

001022

061

005716

061026
061032

112737
104401

061022

001007

061036

012716

061044
061050

020327 061224
1034

061042

061052

00530

111337

061056
061062
061064
061066
061070

104401
000746
005716
0014
112737

061102

00501

061110

00100

061076

061104

104401

122713

1$:
28:

000177

000134
061222

08:

061222

177777

68:

061222

000025

MOV
cTMMP

061222

#STTYIN,R3
#STTYIN+S8.,R3

::TERMINATOR WILL BE A BYTE OF ALL 0'S

::SAVE R3
*CLEAR THE RUBOUT KEY

::GET ADDRESS
::BUFFER FULL?

(SP)+,(R3)
#177.(R3)

(SP)

::1S THIS THE FIRST RUBOUT?

BNE

::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

::BR IF YES
22G0 READ ONE CHARACTER FROM THE TTY
1:GET CHARACTER
i3IS IT A RUBOUT

::BR IF

BNE

MOV

#-1,(SP)

::SET THE RUBOUT KEY

cMP
8LO

R3,A#STTYIN
43

..sncx EMPTY?
:BR IF YES

TYPE
B8R
ST
BEQ
MOVB

9%
28
(SP)
78
#'\.9%

DEC

TYPE

78:

R3 -(SP)
-(5P)

::INPUT A STRING FROM THE TTY

BLOS
RDCHR
MOVB
C(MPB

MOVB

5%
061222

RETURN HERE

MOVB
TYPE

061222
000134

RDL IN

$SRDLIN: MOV
CLR

061224
061234

INPUT A STRING FROM THE TTY

CLR

(MPB

BNE

#'\,9%
.98

(R3),9%

.98

::BR IF

::TYPE A BACK SLASH

*BACKUP BY ONE

..serw TO TYPEOUT THE DELETED CHAR.

:GO TYPE
1:GO READ ANOTHER CHAR.
..nusour KEY SET?
::BR IF
S:TYPE A&ACK SLASH

(SP)

::CLEAR THE RUBOUT KEY

“:BR IF NO

#25.(R3)

::1S CHARACTER A CTRL U?

CZRMPAQ RMOS5/3/2 DSKLS TST 1

TTY

INPUT ROUTINE

061112

104401

061241

ozmso

122713

000022

105013
104401
104401

001217

061116 000726
061124

061126
061130
061134

001011

TYPE

8s:

061224

061140 000717
061142 104401 001216
061146 000712

061150
0611564
061160

111337
104401
122723

061222
061222
000015

105063
104401

177777
001220

061164

001305

061176

005726

061166
061172

061200
061202
061206
061212

061220

061222
061223
061224
061234
061241
061246
061253
061264

012603
011645
016666 000004
012766 061224
000002

48:
3s:

000002
000004

015
015
015
122
116

#22,(R3)

CLRB
TYPE
TYPE

(R
,SCRLF
STTYIN

BNE

BR
TYPE
BR

:: LA

::TYPE A CONTROL 'V’

::G0 START OVER

::1S CHARACTER A '"“R'"

*:BRANCH IF NO

k3
$QUES
is

::G0 PICKUP ANOTHER CHACTER
STYPE A '2°
::CLEAR THE BUFFER AND LOOP

(R3).9%
,9%
#15,(R3)+

CLRB
TYPE

=1(R3)
,SLF

MOV
MOV
MOV
MOV

(SP)+,R3
(SP) ,~(SP)
4(SP),2(SP)
#STTYIN,4(SP)

RTI

(SP)+

::CLEAR THE CHARACTER
S:TYPE A "'CRTM
& 'LF
::TYPE THE INPUT STRING

::ECHO THE CHARACTER

::CHECK FOR RETURN

$:LOOP IF NOT RETURN

+:CLEAR RETURN (THE 15)
$:TYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK

*:RESTORE R3
+:ADJUST THE STACK AND PUT ADDRESS OF THE
Iy
FIRST ASCII CHARACTER ON IT
: ;RETURN

0
::STORAGE FOR ASCII CHAR. TO TYPE
0
+ :TERMINATOR
8.
::RESERVE 8 BYTES FOR TTY INPUT
/*C/<15><12>
::CONTROL ''¢**
/*U/<15><12>
::CONTROL ‘U’
/%G/<15><12>
::CONTROL 'G'
<15><12>/SWR = /
/7 NEW = /

READ AN OCTAL NUMBER FROM THE TTY
22

2333230333333 333333322223223232222222232222222

;*THIS ROUTINE WILL READ AN OCTAL

:-Emnce IT TO BINARY,

RDOCT

RETURN HERE

061%3 011646
SRDOCT: MOV
061
016666 000004 000002
MOV
061
010046
MOV
061310
061312
061314
oe1§8

010146
0102
10441
%gooo

061322
061326

005002
112046

061

18:

001

061
061

001412
006301

061334

006301

MOV
MOV
ROL IN
MOV

CLR

28:

CLR
MOVB

BEQ
ASL

061332 006102

ROL

061336

ROL

061340

006102
006301

SEQ 0240

MOVB
TYPE
CMPB

BYTE
BYTE
STTYIN: .BLKB
SCNTLC: .ASCIZ
SCNTLU: .ASCIZ
SCNTLG: .ASCIZ
SMSWR: .ASCIZ
‘?fi:‘ JASCIZ
.SBTTL

$CNTLU

(MPB

9s:

103
125
107
012
040

BNE

000
000

136
136
136
015
040

MACRO v03.01 11-APR-80 13:58:55 PAGE 19-13

ASL

(SP) ,~(SP)
4(SPJ,2(SP)
RO, =(SP)
R1.=(SP)
R2.=(SP)

(SP)+,RO

(ASCII) NUMBER FROM THE

;:READ AN OCTAL NUMBER

::LOW ORDER BITS ARE ON TOP OF THE STAK

*:HIGH ORDER BITS ARE

*:PUSH R1 ON STACK
::PUSH R2 ON STACK
$:READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER

*:CLEAR DATA WORD

3s
R1

“:1F ZERO GET OUT
1le2

;:v8

IN SHIOCT

::PROVIDE SPACE FOR THE
+ 3 INPUT NUMBER
::PUSH RO ON STACK

R2
(RO)+,=(SP)

TTY AND

::PICKUP THIS CHARACTER

CZRMPAQ RMOS5/3/2 DSKLS TST 1

READ AN OCTAL NUMBER FROM THE

006102

04 71?

MACRO v03.01

TTY

R2
#*C7,(SP)

ROL

177770

000012
061376

3%:

;:STRIP THE ASCII JUNK
::ADD IN THIS DIGIT

(SP)+

*:CLEAN TERMINATOR FROM STACK

TST

; : LOOP

R1,12(SP)
R2,SHIOCT
(SP)+,R2
(SP)
+ ,R1
(SP)+,RO

RTI

NLAA

AR AR AR A

SEQ 0241

(SP) +,R1

$HIOCT: ,WORD
0
.SBTTL
TRAP DECODER

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

Al A

*:SAVE THME RESULT

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

s sRETURN

s sHIGH ORDER BITS GO HERE

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

eIy

THE '‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;%GO TO THAT ROUTINE.
016646
042716
012746
000002
010046
6600
005740
111000
016000
000200

$TRAP:

061416
000002

18:

MOV
BlIC
MOV
RTI
MOV
MOV
TST
MOVB
ASL

061452

MOV
RTS

2(SP) ,~(SP)

#20, (SP)
#18,-(SP)

RO
$TRPAD (RO) ,RO
RO

;sASSUME THE STATUS OF
22 THE CALLER==DO NOT ALLOW
:: T-BIT TRAPS
;sSET THE NEW STATUS
SAVE RO
s
s; :SAVE
::GET TRAP ADDRESS
; ;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;2 INDEX TC TABLE
;:G0 TO ROUTINE

ssTHIS IS USE TO HANDLE THE "GETPRI'® MACRO
011646

000002

000004 000002

$TRAP2: MOV
MOV
RTI]

.SBTTL

(SP) ,~(SP)

4(SPJ,2(SP)

;2MOVE THE PC DOWN
22MOVE THE PSW DOWN
;J:RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE "‘TRAP'' INSTRUCTION.

ROUT INE

BBRREER

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
STYPBN

060336

$TRAP?2

2:CALL=TYPE
2 CALL=TYPOC
2 ;CALL=TYPOS
2 :CALL=TYPON
s sCALL=TYPDS
2:CALL=TYPBN

404)
405 )
TRAP+6(104406)

$GTSWR

2 CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

$CKSWR

2 sCALL=CKSWR

TRAP+10(104410)

TEST FOR CHANGE IN SOF T=-SwR

401)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

TYPE BINARY (ASCII) NUMBER

CZRMPAQ RMOS5/3/2 DSKLS ST 1

TRAP TABLE

061474
061476
061500
061502
" 061504

£ 13

MACRO v03.01 11-APR-80 13:58:55 PAGE 19-15
SRDCHR ;; CALL=RDCHR

SRDLIN

055710
05

.SBTTL
AR

061646

000024

000026

TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE

..CALL'RDLIN

TRAPH;(‘IO“‘!;) TTY TYPEIN STRING ROUTINE

SRDOCT ;. CALL=RDOCT
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY
$SAVREG ::CALL=SAVREG
TRAP+14(104414) SAVE RO-RS ROUTINE
SRESREG ;;CALL=RESREG
TRAP+15(104415) RESTORE RO=-RS5 ROUTINE
POWER DOWN AND UP ROUTINES
AR A

AR AR AR

POUER DO\N RWTI'E

$PWRDN:
MO

nov
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000024

SEQ 0242

AR R AR AR AR R AR AR R AR AR AR R AR AR AR AR

51. LO#PWRVEC

;:SET FOR FAST UP

340, SWPWRVEC+2 : -PRIO: 7
RO,=(SP)
..PUSH RO ON STACK
R1.=(SP)
: SPUSH m ON STACK
g.-(SP)
::PUSH ON STACK
R3,=(SP)
:PUSH R3 ON STACK
R&,=(SP)
..PUSH R4 ON STACK
RS.=(SP)
+:PUSH RS ON STACK
aSWR, = (SP)
::PUSH @SWR ON STACK
SP, $SAVR6
:SAVE SP

#SPWRUP, a#PWRVEC' : :SET UP VECTOR

1 :HANG UP

t...'tt....'Q'.Qt.'."'t".'.'t"tt.'...'.'l.'.ttt..t.t...Qt"t

000024

061506
000340

012

“POWER UP ROUT INE

$PWRUP: MOV

#SILLUP QWPWRVEC ;;SET FOR FAST DOWN

18:

$SAVR6

..wm FOR THE INC

#340, aFPWURVEC +

hu
kspom THE POWER FAILURE

MOV
CLR
INC

BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000024

000026

120

MOV
TYPE

WO
NWNN

3 55
2

—_—

—

NSIRENE

EIZREER

000001

130

SGET SP
..um LOOP FOR THE TTY

13
WORD
(SP)+,aSWR
Pop STACK INTO @aSWR
(SP)+.RS
..P(P STACK INTO RS
(SP) +.Ré
+:POP STACK INTO Ré&
(SP)+.R3
::POP STACK INTO R3
(SP)+.R2
1:POP STACK INTO R2
(SP)+.R1
::POP STACK INTO R1
(SP)+.RO
..ror STACK INTO RO
#SPURDN , vsc
a#PWR
y THE POWER DOWN VECTOR

SPWRMG : fim”

SPOWER

SILLUP: HALT
gz

SPOWER: .es\;g:z

<15><12>' POWER"*

$SAVRG :
.SBTTL

000001
000001

$SAVR6, SP
$SAVR6G

+;POWER FAIL MESSAGE POINTER
::THE POWER UP SEQUENCE WAS STARTED
BEFORE THE POWER DOWN WAS COMPLETE

S:PUT THE SP MERE

APT COMMUNICATIONS ROUTINE
R

iR 122222322233222322231III1°T

$ATY!:

MOVB
gvs

fsmc

062130 am

MOVB

n JSFFLG

::TO ONLY REPORT FATAL ERROR

MOV
MOV

RO,~(SP)
R1.=(5P)

: :PUSH RO ON STACK
S:PUSH R1 ON STACK

126

SATY3:

n LSFFLG

::70 REPORT FATAL ERROR
2370 TYPE A MESSAGE

—

CZRMPAQ RMO5/3/2 DSKLS TST 1

APT COMMUNICATIONS ROUTINE

105737
00

MACRO v03.01 11-APR-80 13:58:55 PAGEL 13'16

062126

gl:fLG

000100

001243

#APTSPOOL, SENVM

..IHWLF
D SPOOL MESSAGES?

84 (SP) ,RO

:GET nessme ADDR.
:BUMP RETURN ADDR.
::SEE IF *DONE W/ LAST XMISSION?

001240
000004

1$:

2s:

TST

1578

#2,4(SP)

flserm

RO, SMSGAD

énbu

$MSGAD
, RO
RO
RO, SMSGLGT

001222

g;o.snscrwe

062040
000004

: {OPERATING_UNDER APT?

“:1F NOT:

WAIT

::PUT ADDR IN MAILBOX
:sFIND END OF MESSAGE
2:SUB START OF MESSAGE
:sGET MESSAGE LNGTH IN WORDS
2 sPUT LENGTH IN MAILBOX
ssTELL APT TO TAKE MSG.

::PUT MSG ADDR IN JSR LINKAGE

- -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK
63:

*IF NOT:

#APTENV, SENV

001236

::CALL TYPE MACRO

.WORD

103:

: SHOULD REPORT FATAL ERROK?
:IF NOT:

:.RUNING %ER APT?

062056

ERRRRBZZRS

001242

001236

RRRRERRERR

::SHOULD TYPE A MESSAGE?

s+IF NOT:

000001

000002
001222

:IF NOT:

11%:

001224
000004

@4 (SP) ,SFATAL
#2,4(SP)

SMSGTYPE

12%:

$FFLG

SLFLG
SMFLG

(SP)+.R1

SMFLG:
SLFLG:
$FFLG:

RTS

.BYTE
.BYTE
.BYTE

APTSIZE :£Y50
APTENY = 33?
=

SEQ 0243

[

0
0
0

..FINISKD LAST MESSAGE?
I nor WAIT
ERRM &

2:TELL Afi'r
TO TAKE ERROR

RETURN ADDR.

*:CLEAR FATAL FLAG
:.CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
::POP STACK INTO R1
::POP STACK INTO RO
: *RETURN
06

:.FAYAL FLAG

CZRMPAQ mosmz DSKLS TST 1

CONSOLE MESSAGE

MACRO v03.01 11-APR-80 13:58:55 PAGE 23
¥

]

.SBTTL
000

6 062145

040

7062150

8 062201
9 062201
10 06ce3s

11 062267
1206030
13060347
16 062367
15 0604e3
16 062435

17 060466
18 062467
19 062554

20 060631
21 062632
22 060653
23 060667
2% 060675
25062715

062

101
040
200

200
200
200
040
126
040
102

040

200
200
200

200
040
200
104
040
040

040

114
077
126

.ASCIZ
.ASCIZ

131

MSHELP:

.ASCIZ

000

110
123
125
111
103
111
040

126
101

13
116

077
104
122
111
116

111
122
111
123
117

116

EQUALS: .ASCIZ

ALL:
QUES:

103
1e5
102
114
105
114
122

174

CONSOLE MESSAGES

114
040

111

COMMA:

uBUSasT
CNSLOO:

CNSLO1:
CNSLO:
CNSLO3:
(NSLO4:
(NSLOS:
(NSLOS:
CNSLO7:

CNSLOB:
CNSLO9:
MSDRVS:
MSGDRV:
LODEV:
NOTPRS:

@=d

.ASCIZ

@ALLa<CRLF>
@ ? @
a, @

LASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<CRLF>3CHANGE ADDRESSES (Y/N) ? @
<CRLESQUSE SAME DEVICES (Y/N) ? @
<CRLF>38US ADDRESS
@ LIMITS ~ LO= moooo HI= 17XXXX@<CRLF>
@VECTOR ADDRESS
a
@ LIMITS = LO= 0, HI= 10008<CRLF><LF>
@R LEVEL @

<CRLF>@TYPE HELP TEXT (Y/N)

? @

.ASCIZ

@ LIMITS = LO= 0, HI= 7@<CRLF><LF>

.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<CRLF>
@ ?ILLEGAL INPUTA<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
/ IS LOAD DEVICE/
/ NOT PRESENT/

.ASCII
LASCIT
LASCIZ

<CRLF>
<CRLF>ATYPE "A'* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.d

117 NOTAVL: .ASCIZ / NOT AVAILABLE/
Z

075

3062132

4062134
5062141

SEQ 0244

CZRMPAO RMO5/3/2 DSKLS TST 1

FUNCTION CODE TABLE

PIRZEoa VGG RGN LS SRR RUKR WS BB VRN RUN NS SR I AR i =30 m ~o v s iy =

.SBTTL

SEQ 0245

FUNCTION CODE TABLE

;THE FUNCTION CUDE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
;EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS:
ATA = BIT 15 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED OTHERWISE,
:BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
INOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
;1T IS NOT EXPECTED AS A RESULT OF THE COMMAND.

WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

OP] = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

If OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
IF

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

WLE = BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE ERRORS ARF ENABLED DURING THE EXECUTION OF THAT COMMAND.

:THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE', 'WCF'', ‘DPETM, 'UPETM.

JIAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTiION CODE

IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
:COMMAND,
THE ERRORS ENABLED BY THIS BIT ARE '‘TRE'', "DLT'', "NEM",
"MXF'', “LBT'', AND 'AOE''.

BIT 08 IS NOT USED.
HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

:HEADER ERRORS INCLUDE 'MCRC'', 'WCE'', 'FER'\, AND'BSE''.

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF DATA FIELD ERRORS ARE ENABLED DURING, THE EXECUTION OF THAT
:COMMAND.
~THESE ERRORS INCLUDE 'MDPE'', 'DCK'’, AND 'ECH'.

BIT 05 IS NOT USED.
BIT 04 IS NOT USED.

BIT 03 IS NOT USED.
BIT 02 IS NOT USED.

BIT 01 IS NOT USED.
ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.

gg 062752
57 062752

N3
MACRO v03.01 11-APR-80 13:58:55 PAGE 21

FNCDTB:

020000

.WORD

sFUNCTION CODE TABLE

OP]

sNOP

CZRM"AQ RMOS5/3/2 DEKLS ST 1

FUNCTION CODE

TABL

B &
MACRO v03.01 11-APR-80 13:58:55 PAGE 21-1
OP]!ATA!ILF!IVC
ATA!OPI!IVC!IAE

ATA!OPI!IVC

0PI
OPI!IVC
OP] !ATA!IV(C
OPI!ATA!IVC
OPl
OPI
OPI!ATA!ILF!IVC
OPI'!ATA!ILF!IVC

ATA!OPI!IVC!IAE

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
WCE!OPI!IVC!IAE !AOE !HCE'ECH
WCE!OPI!IVC!IAE
'AOE 'HCE 'ECH
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!WLE!IAF'"OF
!HCE
OPI!IVC!WLE!IA
.AOE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!IAE!AOE !HCE'!CCH
OPI!IVC!IAE
!AOE !HCE!ECH
OPI'ATA!ILF!IVC
OPI!'ATA!ILF!IVC

SEQ 0246

sILLEGAL FUNCTION ()
N: E SEEK
sRECAL IBRATE
;DRIVE CLEAR
sRELEASE
JOFFSET
JRETURN TO CENTERL INE
sREAD IN PRESET

sPACK ACKNOWLEDGE

s ILLEGAL FUNCTION (24)
s ILLEGAL FUNCTION (26)
;SEARCH
s ILLEGAL FUNCTION
s JILLEGAL FUNCTION
s ILLEGAL FUNCTION
s ILLEGAL FUNCTION
s ILLEGAL FUNCTION
s JLLEGAL FUNCTION
s ILLEGAL FUNCTION (46)
;WRITE CHECK DATA
;WRITE CHECK HEADER AND DATA
sILLEGAL FUNCTION (54)
;ILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATA
s1LLEGAL FUNCTION (64)
;ILLEGAL FUNCTION (66)
sREAD DATA
sREAD HEADER AND DATA
sILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION (76)

8888%888

NOWN

ATTENTION (ATA)

TABLE

MACRO V03.01

wER

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

.SBTTL

ATTENTION (ATA)

ATNTBL
:

BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

—agw-n“bl\;—a
8 N.oo « o .

CZRMPAD RMOS/3/2 DSKLS TST 1

= DOV

[

TABLE

SEQ 0247

57 063232

SF
.

~
~N
~N

»H

—

D e

.SBTTL

RGDTPT:
MIXED:

ZEROS:

=SV
=AW= NVWN—=O
O=2\NMNON—=UNe « o

W NWWWWWWWNW ANWWWWN NN

MACRO v03.01

W=
NO\—=N)
'S W=0HNMN=OO—=
PROONs & o o o o & o » UNalygnoWv

HN=NN)
—
OO0 =)
SHPONOONCD:

d e

~N~8—l—a-o—|—a—|_a_o_a_a
WN=O
VRNV
WN—=OVONO NS W

& BEaanEEaans & KRR FERXKK FRIRIXERXIKIXIIKKR
8
3 FRRBFRNBERT FRREFRNSr
2o RE8 SRERRE

5 BEIERRUKLEY n
oo

DATA PATTERN TABLE

CZRMPAQ RMOS/3/2 DSKLS TST 1

D 4
11-APR-80 13:58:55 PAGE 23
DATA PATTERN TABLE

ONES:

SEQ 0248

CZRMPAQ RMOS/3/2 DSKLS TST 1

DATA PATTERN TABLE

020000

MACRO v03.01

E &
11-APR-80 13:58:55 PAGE 23-1
SEQ 0249

.WORD

8192

59 063236
60 063240
61 063242
62 063244
63 063246
64 063250
65 063252

010000
004000
002000
001000
0004
000200
000100

WORD
WORD
WORD
LWORD
WORD
.WORD
.WORD

4096
2048
1024
512
256
128
64

67 063256
60
69 063262
70 063264

000020
000010
000004
000002

16
8
&
2

74 063274
75 063276
76 063300
77 063302
78 063304

000001
000000
177777
177776
177774
177779
177760
177740

.WORD
WORD
WORD
WORD

.WORD
.WORD
.WORD
.WORD
.WORD

65534.
65532.
65528
65520
65504

80 063310
81 063312
82 063314
83 063316

177600
177400
177000
176000

.WORD
.WORD
.WORD
WORD

65408
65280
65024
64512.

85 063322

170000

WORD

61440

€6

71
063266
72 063270
73 063272

063

86 063324
87 063326
88 063330

89 063332

90 063334
91 063336
92 063340
93 063342
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

000040

177700

174000

160000
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

1
O
65535

65472

63488.

57344
49152
32768

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

32768
49152.
57344
61440.
63488.
64512.
65024
65280
65408.
65472

WOkD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

65520
65528
65532
65534.
65535.
&
43690./2
43690.
65535
65534
65533
65531,
65527.

.WOF

65504

CZRMPAQ RMOS5/3/2 DSKLS TST 1

141
142
143
144
145

146

8o FN

SRS 5 NS

&
%8888888
il P3N
S

— -l—l—l-—l—l-ldd-‘d-.—.—l—l-‘—l—‘—l—‘d—l-—.—l_‘

59 BLERRURLEBRNRRRUN
S on oo

DATA PATTERN TABLE

[

063502
063504
063506
063510

177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777
077777
137777
157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

177777

MACRO V03.01

11-APR=-80 13:58:55 PAGE 23=2

SEQ 0250

CZRMPAQ RMOS/3/2 DSKLS TST 1

ERROR MESSAGE

TABLE

MACRO V03.01

;
3 063510

4 063516
5 063530
6 063544
7 063552
8 063564
9 063574

076634

076652
101656
076652
101656
076634
101656

071542

EMTS:

077100

000000

14 063640
15 063654

101656
076652

16 063662

101656

.WORD

077034

12 063626

076652

EMT1:

EMT4:

101247

077017

13 063632

ERROR MESSAGE TABLE

076722
101222
076675
101222
076756

076652

101656

.SBTTL

076675
101061
076742
101377
076675

10 063606

11 063614

000000

101247

076742

101247
077136
101222

101222

077034

EMT2:

EMT3:

EMT6:

077167

EMT10:

19 063714

077244

077265

077216

EMT11:

21 063732

077244

077305

077167

EMT12:

23 063750

077244

077305

077216

EMT13:

25 063766

077244

077325

077167

EMT14:

27 064004

077244

077325

077216

EMT1S:

29 064022

077244

077345

077167

EMT16:

31 064040

077244

077345

077216

EMT17:

33 064056

076652

077404

076122

EMT20:

000000
076122

EMT21:

20 063722
22 063740

26 063756
26 063774

28 064012

030

32 064046

34 064064
35 064070
36 064076
37 0641064

101656

101656
101656

101656
077100
076652
101656

101222

101222
101222
101222
101222

101222
101222

101344
077435
077365
101344

EMS301.EMS310.

.WORD

EMS312.0

.WORD
.WORD

.WORD

077265

101656

.WORD

EMT7:

077244

101247

101247
101247
101247
101247

101247
101247

.WORD

43 064144

077100

077435

45 064160

101656

101222

EMT24:

EMT25:

46 064164
47 064172

077100
076652

077424
077136

000000
076160

49 064206
50 064222
51 064232
52 064240

076652
101656
077453
076634

076742
101317
077167
076224

076224
101222
000000

54 064252
55 064256
56 0642

076634
101656
076634

076224
101222
076224

48 064200

53 064244

57 064272

101656

101222

000000

101344
101317

EMT26:

EMT27:

EMT30:
EMT31:

EMS316.EMS321.EMS315

EMS511,EMS501,EMS502,0

EMS316.EMS322.EMS314

EMS511,EMS501,EMS502,0

EMS316.EMS322.EMS315

EMS511,EMS504
EMS312,EMS326.0
EHS301 EHS323 EMS250
EMS511,EMS504

.WORD

076160

EMS316.EMS321.EMS314

.WORD
.WORD
.WORD
.WORD

EMT23:

000000

EMS316.EMS320.EMS315

EMS511,EMS501,EMS502,0

076160

077365

EMS511,EMS501,EMS502,0

.WORD

077404

076652

EMS316.EMS320.EMS314

EMS511.EMS501.EMS502,0

.WORD

076652

44 064152

EMS511,EMS501,EMS502,0

.WORD

41 064132

101222

EMS316.EMS317.EMS315

EMS511,EMS501,EMS502,0

.WORD
.WORD

101656

EMS316.EMS317.EMS314

.WORD

EMT22:

42 064140

EMS511,EMS502,EMS501,EMS503,EMSS504,0
EMS301,EMS313.EMS302

EmS511,EMS501 EHSSOZ 0

.WORD

000000
076122

000000

EMS301,EMS306,EMS311

.WORD

077424
077136
101344

EMS511,EMS502,EMS501,EMSS03, EMSS504

EMS511.EMS501.EMS502,EMSS04 ,EMSS03,0

077100
076652

101656

EMS511,EMS50 EHS§01.EMS503,0

.WORD

38 064110
39 064116

40 064126

EMS300,EMS1,0

EMS301.EMS302,EMS303,EMS1,EMS304
EMS511.EMS500.EMS501.EMSS02,EMSS03,0
EMS301,EMS306.EMS302°
EMS511,EMS505. EHSSO1 EMS502.0
EMS300,EHS30% 7.EMS2

.WORD
.WORD

101247

.WORD
.WORD
.WORD
.WORD
.WORD

101222
076675

17 063676

18 063704

11-APR=80 13:58:55 PAGE 24

.WORD

EHSSO1.EMS324. EMS250

EMS312, EHSSZS 0
EMS301 EH8313 EMS250
EMS511,EMS504.0

EMS301 EHS324 EMS251

EMS511,EMS501

.WORD

EMS312. EH 326.0

.WORD

EMS511,EMS501

.WORD

. WORD
.WORD

.WORD

.WORD
.WORD
. WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

EH5301 EHSSZS EMS251

EH5312 MS325.0
EH5301 EH5313 EMS251

EMS511,EMS501.0

EMS301 EHS306 EMS252, EMSZSS EMS327 ,EMS254
EMS511 EHSSOS EMS501,EMS502
Ensggg
.EMS314,0
EMS
EM S;SZ

EMS511,EMS501.,0

EMS300,EMS252
EMS511,EHSSOI EMS504.0
EMS300,EMS252°

EMS511,EMS501,EMS503,0

SEQ 0251

H 4
MACRO v03.01 11-APR-80 13:58:55 PAGE 24~1

CZRMPAQ RMO5/3/2 DSKLS

ERROR MESSAGE TABLE

076652
101656
076652
101656

076224
000000

EMT32:

EMT33:
EMT34:
EMT35:

81 064524
82

EMT36:
EMT37:
EMT40:
EMT4T:
N

F ORI RRAFERA oSS

ERRERRRTIREE gige
=59

BIFJANANIS SELEHRARZES

58 064302
10
16
24

SEQ 0252

EMT42:

EMT43:
EMT44:

076634

101317
101344
076257
101317
000000
076257
101344
000000
076257

99 064676
100 064702
101 064710
102 064716
103 064722

101656
0771 00
076652
101656
077100

106 064744
107 064750
108 064760
109 064764
110 064774
111 065002

076445
101656
071760
101656
076652
101656

104 064730
105 064736

112 065006
113 065014

114 065022

076652
101656

077100
076652
101656

EMS511,EMS501. EMS504,0
EMS301,EMS324 ,EMS252

EMS511,EMS501,EMS503,0

EMS301,EHSSZS EMS252

EMS511,EMS501.0

EMS301 EH5313 EMS252

EMS511,EMS501,0

EMS301 EHS324 EMS255
EMS312,EMS326.0

EMS301 EH8323 EMSZ55
EMS511.EMS504
EMS312.EMS325,0
EMS301.EMS313.EMS255
EMS511.EMS504 .0

EMS301.EMS323. EMS250, EMS327, EMS255
EMS511.EMS504. EMS501. EMS503 .0

EMS300.EMS3

EMS511.EMS501,0
EMS331.EMS4 ,EMS253

EMT45:

EMS511.EMS501,0
EMS300.EMS253 "

EMT46:

EMS300.EMS253"

EMT47:

EMS301 . EMS324. EMS253

EMTS0:
EMTS51:

000000
076257
000000
076415
000000
076415

EMTS54:

000000
076415

EMTSS:

EMTS2:

EMTS3:

EMT56:

EMS511.EMS501 ,EMS503.0

EMS511.EMSS01,EMS504,0

EMS511.EMS501 .EMS503

EMS312.EMS326.0

EMS301 . EMS324. EMS253
EMS511.EMS501. EMS504

EMS312.EMS326.0

EMS301 . EHSSZS EMS253
EMS312. EHSSZS 0
EMS511.EMS501

EMS307 . EMS313_EMS253

EMS511.EMS501.0

en5331 ens:. EMS256

EMS511.EMSS01,0
EMS301.EMS324 snszse
1.EMS501
"EMS326.,0
EMS301 . EMS323
. EMS256
EMS511 .EMS501

EMS312.EMS325.0
EMS301.EMS313.EMS256

EMT60:

EMS511.EMS501.0
EMS257. EMS332
EMSS511.EMS506,EMS501,0
snss MS333

EMT61:

EMS301 .snssza EMS260°

EMTS57:

101222

EMS301 EH5324 EMS252

EMS511,EMS501,0

EMTE2:

Ensshsnssor EMSS01,0
EMS511.EMS501

snsm snssz
EMS307.EMS323. snszeo
EMS511.EMS501

mnj

AOQ
RMO5/3/2 DSKLS TST 1
MESSAGE TABLE

MACRO V03.01

115 065026
116 065034
117 065042
118 065050
119 065054
120 065062

077100
076652
101656
076634
101656
072301

077424
077136
101222
072301
101222
077564

000000
077662

122 065076

072301

077607

077662

126 065112
125 065116
126 065122

076634
101656
072074

072030
101222
077540

000000

129 065150

072030

077564

077642

EMT71:

131 065174

072030

077607

077642

EMT?2:

133 065220
134 065230
135 065240
136 065250
137 065254
138 065262

076652
101656
077714
076634
101656
100005

076501
101222
07
072357
101317
072357

076722
101247
077662

EMT73:

140 065276

077626

072357

077757

EMT77:

142 065312
143 065324
144 065332

076652
101656
100005

077136
101317
072426

076312
000000
077653

EMT100:
EMT101:

146 065352

077626

072426

077653

EMT102:

148 065372
149 065404
150 065410
151 065416

076652
101656
072426
100005

077136
101317
077522
072632

076312

EMT103:

000000
077653

EMT104:

072632

077653

EMT105:

076652
101656

077136
101317

076312

EMT106:

100005
101656

072673
101317

101656

101222

121 065070
123 065104

127 065130
128 065140
130 065164

132 065210

139 065270

141

065

145 065342
147 065362

152 065426
153 065436

154 065446

155 065456
156 065470

101656

076634
101656
101656

101656

101656
101656

101656

101222

072030
101222
101222

101222

101317

101317
101317
101317

101317

000000
076501
000000

000000

000000
077445
101344

101247

000000
077757

000000

101222

EMT63:
EMT64:

EMT65:

EMT74:
EMT75:
EMT?6:

160 065522

072673

072737

EMT110:

162 065544

072673

077554

100044

EMT111:

164 065564

077626

072673

077653

EMT112:

166 065604
167 065622

077
101656

072673
101222

077653
000000

EMT113:

170 065652
171 065664

076652
101656

077136
101317

076312

EMT115:

163 065556

165 065574

168 065630
169 065644

101656

072673
101656

100051

10122

101317

100067
101222

10122

072737
000000

EMSS11,EMS501,0

.WORD

EMS511,EMS501,0

.WORD
.WORD
.WORD

000000

161 065536

.WORD

EMT67:

EMT70:

SEQ 0253

EMS312,EMS325,0
EMS307.EMS313.EMS260
EMS511.EMS501.0
EMS300.EMS12
EMSS511.EMSS01,0

.WORD

072632 0

077653
101222

.WORD
.WORD
.WORD
.WORD
.WORD

EMT66:

157 065474

158 065502
159 065512

11-APR-80 13:58:55 PAGE 24=2

EMS12,EMS33S5,EMS342

EMS12,EMS336,EMS342
EMS300.EMS6
EMS511.EMSS501
EMS7,EMS333,0

.WORD
.WORD

EMS300,EMS6 EMS327.EMS7
EMS511,EMSSOT,EMS504,0

.WORD

EMSS11,EMS501,EMS502,0

.WORD

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

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

EMS6,EMS335,EMS340,EMS10,EMS333, EMS342
EMS6,EMS336,EMS340,EMS10,EMS334
, EMS342

EMSS511,EMSS01,EMS502,0

EMS301.EMS260.EMS303
EMS11
EMS511.EMSS501.EMS502.0
EMS343.EMS344.EMS342.0
EMS300.EMS13
EMS511.EMSS503,0
EMS346.EMS13,EMS34S

EMS511.EMS50%5.0

EMS337.EMS13,EMS34S

EMS511.EMS505.0

EMS301.EMS313.EMS254 ,EMS347.EMS13
EMSS511.EMS503.0
EMS346.EMS14,EMS341,EMS1S

EMS511.EMSS0%,EMSS07,0

EMS337.EMS14,EMS341,EMS1S

EMS511,EMSS503.EMS501.0

EMS301.EMS313.EMS254 EMS347.EMS1S
EMS511.EMS503
EMS14,EMS332.0
EMS346.EMS17 EMS341.EMS16

.WORD

EMS511.EMS505,EMS501,0

.WORD

EMS511.EMSS0%.EMSS501.0

.WORD

.WORD
.WORD

.WORD

EMT107: .WORD
.WORD
.WORD

EMS337.EMS17,EMS341,EMS16

EMS301.EMS313.EMS254 EMS347.EMS16
EMS511.EMS503

EMS17.EMS332.0

EMS346,EMS20 EMS341.EMS21
EMS511,EMSS0%,EMS501,0

ensgo EMS351,EMS21,

EMS350, EMS22,EMS315

.WORD

EMSS11,EMS501.0

.WORD

EMSS511,EMS501,0

-WORD

enssn.snssoz.engzoi.o

.WORD

.WORD
.WORD

EMT114: .WORD
.WORD
.WORD
.WORD

ensgo EMS334 ,EMS350,EMS22,EMS333
EMS337.EMS20,EMS341,EMS21

snsssr.snsgo EMS341,EMS21,EMS350,EMS22,
EMS334
EMS511 engo,o

snsgo EMS352 EMS21,EMS350, EMS22,EMS333
EMSS511,EMS501,0
enssm.ensn%.enszs«.ensw.enszn
EMS511.EMS50

CZRMPAQ RMOS/3/2 DSKLS ST

ERROR MESSAGE TABLE

072673
100005

b sl i

073063
00005

)

5754

076312

EMT120:

Nw
4
o

—

33
2R
R

snssm.enss1§.enszsl..ensst.r.snsz:.
EMS511.EMS50

-WORD

EMS511.EMSS0%.EMSS01.0

Ensiz énsssg,o

EMT122: .WORD

EMS337.EMS2S5,EMS341,EMS26

076312

EMT123:

.WORD

100103

EMT125:

000000
076122

EMT130:

076122

EMT131:

076122

EMT132:

076122

EMT133:

076353

EMS511.EMS50%,EMS507,0

EMS301.EMS313.EMS254
. EMS347,EMS26
EMS511.EMS503

.WORD

EMS331.EMS27,EMS353

.WORD

000000
.WORD
077653 EMT126: .WORD
000000
.WORD
EMT127:

EMS341,EMS26

EMS511.EMSS05,EMS507,0

.WORD
.WORD

000000
.WORD
076756 EMT124: .WORD
000000
.WORD

.WORD
.WORD

.WORD

EMS2S,EMS332.0
EMS300,EMS27 EMS307,EMS2
EMS511.EMSS505,0
EMS511.EMSS03

EMS30,EMS315.0
EMS337,EMS27 . EMS341,EMS30
EMS511.EMSS0%,0

EMS301.EMS313.EMS254,EMS347,EMS30
EMS511.EMS503

EMS27,EMS332,0

EMS31.EMS354
. EMS250

.WORD

EMS511,EMS504,EMS503,0

.WORD

EMS511,EMS504,EMS503,0

.WORD

EMT134:

.WORD

EMS331.EMS4 EMS255

100246

EMT135:

.WORD

076756

EMT137:

000000

.WORD

EMS32,EMS354,EMS250

EMS355.EMS33,EMS250,EMS341,EMS30
EMS511.EMS504 .0
EMS35S.EMS34,EMS250,EMS341,EMS30

000000

.WORD
.WORD

.WORD

.WORD
EMT136: .WORD
.WORD
.WORD

.WORD

EMS511.EMS504,0

EMS3S,EMS357,EMS360,EMS1S

EMS511,EMS501,0
EMS261.EMS362
EMSS511.EMS503,0

EMS300.EMS36,EMS307,EMS2

EMS511.EMS501,0

076353

EMT140: .WORD

EMS355.EMS37,EMS255,EMS341,EMS30

077757

077653

EMT141: .WORD
.WORD
EMT142: .WORD

EMS346.EMS40,EMS345
EMS511.EMS504,0
EMS337.EMS40,EMS341,EMS30

074113

EMT143:

000000

000000
077653
000000

.WORD

EMT144:

.WORD

.WORD
.WORD
.WORD

.WORD

100360

EMT145: .WORD

073753

EMT146: .WORD

000000
&S

.WORD
"WORD

077653

101222

000000
000000

EMS337.EMS23 EMS341,EMS24

EMS346,EMS2S

000000

PY T
T)

.WORD

EMS346,EMS23 EMS341,EMS24
EMS511,EMSS0S,EMSS01,0

EMT121: .WORD

101317

Pl =l

EMS§0 EMS332,0

077653

101317

SRS
N

S SEREN 33

EMT117:

000000

.WORD

EMT116: .WORD
.WORD

077653

076312

x
&

NES

BEEEBBEER
EEEeE
gwg L 7SNEREERNZR

VIS

NN -

hoal

VONOWVSAWN=O

073220
076634
oo

el i
b i
i
il s
) b
il
e
) il
b
-

RN
T
JEe SO R
S
R
e

S IAY) R

000000

077653
10122

101222

066034
066040
066046

077522

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

101222

D s il

3= SRS 8 BRURAREC2EEEIRRRER
2B IIIFANA

NNNNNNNY

2 065670

101317

000000

EMT147:

EMS511.EMS504,0
EMS511.EMSS04,0

EMS363.EMS310.EMS41
EMS511.EMS501
0
»
EMS337.EMS41,EMS341,EMS252,EMS327,EMS253

EMS511 engsoi .0

EMS&1,EMS354,EMS364 ,EMS252,EMS365,EMS253

.WORD

EMSS11,.EmS501.0

.WORD

EMS511,EMS501,EMS503.0

.WORD

EMS301,EMS306,EMS36

EMS366 ,EMS42
EMS511,EMS503,0

SEQ 0254

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR MESSAGE TABLE

230 066522

229 066506

101656

100431

100103

066534

101656

101222

101317

K &4
MACRO v03.01 11-APR-80 13:58:55 PAGE 24=4

100401

EMT150:

.WORD

EMS367, enssss EMS365,EMS42, EMS354 ,EMS3

.WORD

EMS511.EMS501,0

231 066530 077626 073753

000000

233

073753
000000
100401

EMT152: .WORD
.WORD
EMT153: .WORD

100401
000000
076756
000000
100401
000000
076756
000000
100401

EMT154: .WORD
.WORD
EMT155: .WORD
.WORD
EMT156: .WORD
.WORD
EMT157: .WORD
JWORD
EMT160: .WORD

EMS367. ensss "EMS365,EMS36,EMS371
EMS511.EMS503.0
EMS300. sns« EMS307,EMS2
EMS511.EMS505,0
enssor enssss EMS365, EMS44 ,EMS354 ,EMS3
EMS511.EMS503.0
snssoo snsas EMS307,EMS2
EMS511.EMSS505.0
EMS367. enssss EMS365,EMS4S, EMS354 ,EMS3

076756

EMT161: .WORD
.WORD

EMS300,EMS46 EMS307.EMS2
EMS511.EMS505,0

EMT151: .WORD

066542
066550
235 066556

074243
101656
100431

237 066576
066610
239 066616
240 066626
241 066634
262 066650
243 066656
066666
245 0666764

100431
101656
076634
101656
100431
101656
076634
101656
1006431

248 066724
249 066734

07
101656

251 066750
252 066760
253 0667764
2
255 067016
256 067026

101656
075711
101656
074514
101656
077626

101317
077564
101222
077564
101222
073711

101222
077626

077445

.WORD
EMT163: .WORD
.WORD
EMT164: .WURD
.WORD
EMT165: .WORD

074113
07
101656
074554

077540
074514
101222
077564

100545
076756
101317
077642

JWORD
EMT166: .WORD
.WORD
EMT167: .WORD

236 066570

246 066710
247 066716
250 066742

257 067034

258 067040
259 067050
261 067070

262 067102
263 067112

264 067116

101656

100127
101222
100103

.WORD

101317

100103
101317
074314
101317
100103
101317
074355
101317
100103

000000

101656
073711

101317
077540

101222
000000

077626

074432

100103

101656

101656
077626

101656

074432
101317

101222

101222
073711

077626

101317

101223

000000

076742
101222

074623
101344

.WORD

.WORD
.WORD

EMT162:

.WORD

-WORD

.WORD

EMT170: .WORD

.WORD

EMS511.EMS503.0

ensssr.ensse

EMS43 snssst. ensse
EMSS511,EMS501,
EMS367. enssss ensses EMS36,EMS370
EMS511.EMS503.0

EMS511.EMS503.EMS501
EMS35,EMS333,
EMS337.EMS46.EMS3S3

EMS511.EMSS0%,EMS501,0
EMS3S5,EMS33S,EMS337,EMS41,EMS334,EMS372
EMSS511,EMS501.0
ensa enssss EMS337,EMS41,EMS335, EMS372
EMSS11,EMS501,0
EMS337. ensss EMS327. EMS47

enss1 EMs501

EMS&1,EMS333,EMS372.0
EMS300,EMS47 EMS307 EMS2
EMS511 snss
01,EMS505,0
EMSS0,EMS33S,EMS340,EMS36,EMS333

EMS511,enssoi LEMS50%.0

EMS337 EMS3S

EMSS511,EHSSO1 0

566 Ger1ss 01636 01535 0000 LI7T: L MORD EN NS

267 067140
268 067146
%678 8‘6;33

076652
101656
}3%%

}3?.1233

EMT172: .WORD
.WORD

100401

EMT173: .xg

077653

EMT177: Zgg
ENS300,
ensgss SnsmLEMS600

271 067200 076634 076122 ounwu.”s[J EMT174: .WORD
5;32
82;2233 ?5?222 }3}533
’uon““‘o
5;2 3‘6;5232 %?2% %?gg o: 707560509 EMT175: .WORD
Sg %22%

%?gg

%?3322

EMS301.EMS306. sns51
EMS511.EMS501.EMS504,0
%‘}?{ Ensggs.snssesJEMS47 ,EMS354 ,EMS3

%g? &;33?8 %;2252 %?g?% 07765? EMT200: :KRD
52% 827316 1000 sg %?Sz on7u706csug EMT201: I%@EL

EMS300.EMS250.EMS327,EMS255,EMS327 ,EMS256
%fit
Eflés’o” .0
Egssgoo'gnsgoseSnsmLEMS600
E:ssgfi EH5251£88341.EMS601
Egg«;snsgg‘égsm EMS602

284 0673334“ 100005 07462 oC 7c7C6C scg EMT202: .WORD EMS346.EMSS51,EMS341,EMS602
067344

101656

101222

000000

.WORD

EMS511.EMS501,0

SEQ 0255

CZRMPAD RMO5/3/2 DSKLS

MACRO v03.01

ERROR MESSAGE TABLE

286 067352
287 067364
288 067374

100005
101656
100005

077757

101222

L 4
11-APR-80 13:58:55 PAGE 24-5

EMT203:

.WORD

077653 EMT204: .WORD
101222
.WORD

EMS346,EMS52 EHSSAS EMS373 ,EMS255

EMS511 ensso&

1.0

EMS346. énsm EMs27
EMS511 sng
ol 501.0

EMT205: .WORD
EMS53,EMS35
101247
.WORD
EMS511
snssoS snssoz EMS510,0
100603 EMT206: .WORD
EMS337.EMS54,EMS374,EMS250, EMS327,EMS255

KO
wvY
vA
oy

-\ v —

Y o T P
ONO

p—

S2828

071662

SEQ 0256

101222

.WORD

000000

EM1207: .WORD

100360

000000

EMT210: .WORD

100360

.WORD

EMT211: .WORD

EMS54 Ensss4 EMS364 ,EMS255

EMT212: .WORD

EHSSS?.EHSSS

077757

EMT213: .WORD

EMS56 EH5334 EMS345,EMS373,EMS262,EMS327, EMS251

100044

EMT215: .WORD

071760

EMT216:

000000

100650

EMT222: .WORD

000000

077653

EMT223: .WORD

100650

.WORD

EMT224: .WORD

100044

EMT225: .WORD

000000
000000

.WORD

.WORD
.WORD

R QN

ONO 08
~zu
-— W=

G
W
W

S
W
Y

— A} O

o T Y

EMS54,EMS354,EMS3

EMS511, enssi

EMS54 ensssa snssu. EMS250

EMSS511.E

EMSS511,EMS504,0

EMS511,EMSS504,0

-WORD
000000
-WORD
EMT214: .WORD
000000
; WORD

Enssfl 501
35 0
7
e
enssnensso ,0

000000

EMSS511.EMS501.0

101317

101656
075127

EMS511 ensso:. EMS501,0

071662

WORD

.WORD

000000
.WORD
075360 EMT217: .WORD
000000
.WORD
1006346 EMT220: .WORD
000000
-WORD
100650 EMT221: .WORD
000000
.WORD

341 070202
342 070212

EMS327.EMS3
213

.WORD

-WORD

EMSS57,EMS333,EMS350,EMS60,EMS334

EMS363.EMS306. enss

EMS511.EMS501.0
EMS
MS306. EMS61
EMS511.EMS501.0
EMS62,EMS333,EMS375,EMS251
enssfl EMS501,0
EMS62 ensm EMS376,EMS262
EMSS1
i
.0
EMS62

333 EMS376,EMS250

EMSS11 501.0

Ens346.£
562 EMS341,EMS603

EMS511.EMSSO1,0

ensm.snss

snssre EMS262

snssn.enisgi EMSS05,0
EMS63

ooooog
-WORD
073753 EMT226: .WORD
000000
JWORD
100246 EMT227: .WORD
000000
.WORD
100274 EMT230: .WORD
.WORD
07[4:51[2 EMT231: .WORD

EMS363,EMS310, EMS262
enssfl§91EMS350,
0
EMS&3 éns 57 ,EMS36,EMS372
EMSS11.EMs
501.0
EMSG3,EMS énssao EMS15
EMSS11 engsoi
EMS63,E
EMS361,EMS15
EMSS11.En§
{
EMSA3,E 56 énsu

077662

EMT232: .WORD

10131
100650

.WORD
EMT236: .WORD

enssfl i.0
EMS367.ensssg
ensses
SnsesLEMS401
EMS511 sng 79
EMS16,E
énssss EMS64 ,EMS354 ,EMS3
EMSS11 En5523n§7501,0
EMS300.
oé

000000

-WORD

000000
-WORD
1006401 EMT233: .WORD
10122
.WORD
100545 EMT234: .WORD
101 g
.WORD
076 9 EMT235: .WORD

sussfln§;g
EMS41éns

EMS342,EMS365, EMS63, EMS332

EMS511 engsg ng
ensse EMS377,EMS376, snszsz EMS372,EMS350

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR MESSAGE TABLE

33 070226 075624

M4
MACRO Vv03.01 11-APR-80 13:58:55 PAGE 24=6

100712

.WORD

snse;iengg%z uttl

SEQ 0257 |

et &

332§ 8778%242 6%2%2 (1)(7);22; (11%;;2 EMT237: Igg
35
Orosza 5952; }8&% }852}.; EMT240: I'fig
348 9703550 101656 101317 101222
.WORD
38 S0
7607 077642 EMT241: .WORD
350 orone Jorese %% §?7 000000
" .WORD
%2? 8;3532,2 }83%2 }85107 100727 EMT242: Zuong

Eassséggiggggg{égss%segsz
EMS1S,EMS400,EMS372, EMS350, EMS66, EMS401
EMSS511,EMSS03,EMSS07,0
EMS66,EMS336,EMS340,EMS15,
EMS406, EMS405 , EMS604
EMSS11,EMS50$.0
Efig%,ggg%.smoz.emm.ens377

332 97032 °§§Z§-§' 8;;23? o: 7C7:64: 2 EMT243: Iflg
338 070392 (1’01656 101317 000000
.WORD
3% oro 04 075514 100712 101016 EMT244: .WORD
§§‘7’ 8%14 101656 101317 000000
.WORD

Efi&'gzggg'gnsm.enszs.sns:.oa.sns:.os,enseoz.
EMSS517,EMS505,0
EMS&3,EMS401,EMS405,EMS604
EMSS511,EMsS05,0

352 070346 101656 101317

358 070422

073753

100501

361 070452

101656

101317

368 070540

101656

101317

-WOR

101016

EMT245:

.xg

000000

|
|
|
|

|
|

Egg?ieggggsegsws.snsom

MS36,EMS335,0

% 8%6 8%23 8%23’5 101016 EMT247: .fig :e:ssg;iegggggsegsws.ensso«
% 8778%3 5%22'5’ 59;23; 0000
oC 7C7Cu.”2c
EMT250: Zfig Enseciénssggségsuo.sms.enswe.ensaos.Enssos
00
:
511,EmMS508,
3329 8;82222 }85%2 }8.12?% 100727 EMT251: fig %49?{:3?83.5'1“02.%21,enssn

|
;

5;12 87782;2 39}??2 }85;15 ?8?8?2 EMT253: :fig %{’152:2253érgs«os.emsesos
374 oroces ooases }853; 1“0u 1Coc 156: EMT254: ‘uoao"” EMS36, EMS370,EMS405
, EMS605
378 oroemu 07%2 101317 000000
.WORD
EMS511.EMS505.
0
§;§ 87063'5 }80736 1021346 100727 EMT255: .WORD EMS&03.EMS605.EMS402,EMS24
,EMS377
378 070650 075353 OFY3ed 000000
‘WORD
EMS34
ERS3I39-0EMS405,EMS605
070030
0?;45.2
077522
101016
EMT256:
.WORD
EMSG7
.
EMS332
380 9r0eee 16
101317
WORD EMSS11,EMS505.
0
orom 21075661652 077607 000000
077642 EMT257: .WORD
EMS66,EMS336,EMS340,EMS15,
EMS406,EMS405 EMS606
3335870712 101656 101317 000000
JWORD EMSS11,EMS505.0

383 070720
384 070732

100
101656

10215;
10131

100727

EMT260:

.WORD
¥

J11,

%g(fi.gns 60 EMS402,EMS21,EMS377

388 0%;432 8?55? 8%658; o7c7c“c2 EMT261: Zfig
esgssig'gnss “EMS340,EMS26 , EMS404 , EMS405 , EMS606
.WORD EMSS11,EMS50%.0

387 870762 101656 101317 000000
70770

075514 10071;

101016

EMT262: .WORD

§381 8;}%
5‘7’:15‘7'5 i§<}§c}; ?8?8?2 EMT263: Iuoao:
071016 101656
§32 §;}8§2 }8?67:;2 }%3 000000
100727 EMT264: -WORD
.WORD
IuoaoHuv
3"5 8;}315'5 3%?2 %;?; 000000
101016 EMT265: .ngg
397 o;}ooo 3‘7’%‘7’23 c}%%%%; 5oooooE°
C1c C1Cec EMT266: Immo
gg 8;}%2 59%22? 100206 101041 EMT267: .WORD

%g{,fgg‘ggfgs‘”-fflsm

%fiiéggéségsaos.ensm
>
i
Eegssgg;éggsggg.emoz.fnsz/..ensm
EMS36,EMS335,0
,
%;1{523401 eest.os.snssoo
Egssg;‘égggsogégsws.snssoe
EMS66,EMS356.EMS407

i
|:
|

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR MESSAGE TABLE

N &
MACRO V03.01 11-APR-80 13:58:55 PAGE 24~7

400 071112

101656

101317

000000

.WORD

402 0711
403 071144

101656
100736

101317
102172

000000
100727

.WORD
EMT271: .WORD

4os o7 162

073355

077607

000000

ORE

401 071120 075665 077607 077642 EMT270: .WORD
071156

406 071170
407 071200
408 071206

101656

073355
101656
073355

101317

100501
101317
100516

101016
000000
101016

"WORD

EMT272: ... 3D
.WORD
EMT273: .WORD

EMSS511,EMS503.0

EMS66 enssse énss&o EMS15,EMS406, EMS405,EMS607

EMSS11,EMS50%.0
en5403 ensso..sn5402 EMS21,EMS377
EMSS511.EMSS03

EMS27,EMS336,0

EHSZ? enssro EMS405, EMS607
EMS511,EMS50%,0
ensz7 ens371 EMS405, EMS607

409 071216 101656 101317 000000
Jmoemfimss
410 071224 073753 100777 101016 EMT274: .WORD EMS mmummmw

411 071236 101656 101317 000000

412 071242 074733
413 071252 101656
414 071262 075742
415 071272 101656
416 071300 075665
417 071316 101656
418 071324
419 071336

100736
101656

421 071350
422 071360
423

076054
101656

100712
101317
077522
101317
077607
101317
102172
101317

101016
101247
101016
000000
077642
000000
100727

420 071342 073355 077607 000000
100712

101317

101016

000000

-WORD

EMT275: .WORD
-WORD
EMT276: .WORD
JWORD
EMT277: .WORD
.WORD
EMT300:

EMT301:

.WORD
.WORD

snss1i 50%.0

EMS53 snsao1 EMS405 , EMS607
nss11 EMSS0%, EMS502,0
EMS67,EMS332 sn5405 ensso7
EMS511,EMS505.0
EMS66,EMS336,EMS340,EMS26,EMS404, EMS405. EMS607
EMSS511,EMS505.0
EMS403.EMS607.EMS402,EMS24 ,EMS377
EMSS511.EMS503

Mmsm73xo
.WORD

.WORD

EMS70.EMS401.EMS40S,EMS607

EMSS517,EMS50%.0

5EQ 0258

CZRMPAD RMOS5/3/2 DSKLS TST 1

ERROR MESSAGE TABLE
1 071366

102210

2 071372
3 071376

102266
102303

S 071406

102360

8 071422
9 071426

102274
102607

& 071402
6 071412
7 071416

10 071432
11 071436

12 071442
13 071446
14 071452
15 071456
}9 071462

000000

B 5
MACRO v03.01 11-APR-80 13:58:55 PAGE 25
EMT1:

EM1,0

EMT2:
EHTS:

.WORD
.WORD

EHW2.0
EHWS.0

000000

EHTS7:

.WORD

EHWS57.0

EMT?4: .WORD
EMT115: .WORD

EH3,0
EW115.0

102341

000000

102456
102532

000000
000000

EHT6S:
EHT71:

000000
000000
000000
000000
000000
000000
000000

EHMT130:
EHT132:
EHT142:
EHT145:
EHT150:
ENT213:
EHT220:

102704
103022
103120
103216
103333
103431
103526

.WORD

000000
000000

EMT?:

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

EHW7.0

EHM65.0
EW71.0

EH130.0
EW132.0
EH142.0
EM145.0
EH150.0
EM213.0
EH220.0

SEQ 0259
'

CZRMPAD RMOS/3/2 DSKLS TST 1

ERROR MESSAGE TABLE

1 071466

2 071470
3 071472

103564

MACRO v03.01

EDT1:

.WORD

EDI

.WORD

EDS7

103574
103600

EDT2:
EDT5:

.WORD
.WORD

103620
103630

EDT65:
EDT71:

.WORD
.WORD

103606

7 071502

103574

EDT74:

.WORD

ED?2

10 071510

103640

EDT132:

.WORD

ED115

8 071504
9 071506

}; 071512

103640
103652

103666

EDTS7:

ED2
ED5

& 0714764

5 071476
6 071500

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

EDT115:
EDT130:

EZT220:

.WORD
.WORD

.WORD

ED6S
ED71

ED115
ED130
ED220

SEQ 0260

CZRMPAQ RMOS5/3/2 DSKLS TST 1

ERROR MESSAGE TABLE
1 071514

2 071516
3 071520

& 071522
5 071524

103672

103675
103676

6 071526
7 071530
8 071532
9 071534

103700
103672
103672
103675
103700
103704

B 071540

103676

10 071536

103700

MACRO v03.01

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

EFT1:

EFT2:
EFT5:

EFT57:
EFT65:

EFT71:

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

EF57
EF1
EF1i
EF2
EF57
EF130

.WORD

EF5

.WORD

EFT74:

.WORD

EFT132:

.WORD

EFT115:
EFT130:

EFT220:

EF]

EF?2
EF5

EF57

SEQ 0261

rCZRW‘AO RMO5/3/2 DSKLS TST 1

MACRO v03.01 11-APR-80 13:58:55 PAGE 28

—

ERROR MESSAGE STRINGS

2
307152

116

117

10 072145

120

101

122

104

111

101

£ 071613
5071662
6071727
7071760
8 072030
9072074

103
106
125
104
120
104

11072210
12072260
13072301

115
050
111

15072426
16 072473
17072551
18 072632
19 072673
20 072737

115
115
115
127
106
115

25073276

115

14 072357

21 073016
22 073063
23 073141
2 073220

125
123
115
120

117
125
116
105
101
101

116

.SBTTL

ERROR MESSAGE STRINGS

EMS1:

.ASCIZ

SEQ 0262

NONEXISTENT DEVICE 'NED'' (RMCS2,BIT 12) @

116
116
125
126
122
124

EMS2:
EMS3:
EMS4:
EMSS:
EMS6:
EMS7:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@CONTROLLER CLEAR "'CLRTM
(RMCS2.BIT 05) @
@FUNCTION CODE (RMCST, BITS 01 - 05) @
@UNUSED BIT POSITIONS OF @
@DEVICE AVAILABLE 'DVA"'
(RMCS1, BIT 11) @
@PARTIY ERROR 'PAR'*
(RMER1, BIT 03) a
@DATA PARITY ERROR 'DPE''
(RMER2, BIT 03) @

123
115
114

EMS11:

EMS12:

.ASCI]
.ASCIZ
.ASCIZ

@MASSBUS CONTROL BUS PARITY ERROR 'MCPE''
@
@(RMCS1, BIT 13) @
3
QILLEGAL REGISTER ERROR “'ILR'*
(RMER1,
BIT 01) @

105
101
101
122
105
101

104
111
111
111
126
111

EMS14:
EMS1S:
EMS1&:
EMS17:
EMS20:
EMS21:

.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ

@MEDIUM ON LINE 'MOL''
(RMDS, BIT 12) @
QMAINTENANCE UNIT READY 'MUR'' (RMMR1, BIT 09) @
QMAINTENANCE WRITE PROTECT 'MWP'' (RMWR1, BIT 03) @
@WRITE LOCK 'WRL'' (RMDS, BIT 11) @
@DEVICE CHECK 'DVC'' (RMER2, BIT 07) @

101

111

EMS26:

.ASCIZ

QMAINTENANCE ON CYLINDER 'MOC'' (RMMRi, BIT 08) a

123

EMS31:

101
122
114

116
105
101
117

.ASCIZ

@PARITY TEST "PAT'' (RMCS2, BIT 04)@

aDIAGNOSTIC MODE 'DMD'* (RMMR1, BIT 00) @

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

GMAINTENANCE DRIVE FAULT 'MDF'' (RMMR1, BIT 06) @
@UNSAFE STATUS 'UNS'' (RMER1, BIT 14) @
@SEEK INCOMPLETE STATUS ''SKi'‘
(RMER2, BIT 14) @
QGMAINTENANCE SEEK ERROR 'MSER'' (RMMRi, BIT 07) a
a@POSITIONING IN PROGRESS 'PIP'' (RMDS, BIT 13) @

EMS27:
EMS30:

.ASCIZ
.ASCIZ

@END OF BLOCK 'EBLTM (RMMR1, BIT 13) a
aDIAGNOSTIC END OF BLOCK 'DEBL'' (RMMR1,

EMS22:
EMS23:
EMS24:
EMS25:

105
104

29 073552
30 073632
31 073662
32073711
33073753
3 074003
35076035

114
123
124
126
107
103
114

101
105
122
117
117
131
101

123
103
101
114
040
114
123

EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@LAST SECTOR/TRACK STATUS 'LST'' (RMMR1, BIT 01) @
@SECTOR ADDRESS BITS OF a
STRACK ADDRESS BITS OF @
@aVOLUME VALID 'WV'' (RMDS, BIT 06) @
@GO BIT (RMCS1, BIT 00) @
SCYLINDER ADDRESS BITS OF @
@LAST BLOCK TRANSFERRED, 'LBT'' (RMDS, BIT 10) a

37 074161
38 074243
39 076314
40 074355
41 074432

103
106
103
111
114

117
122
117
116
117

115
111
116
126
123

EMS42:
EMS43:
EMS44:
EMS45:
EMS48:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@COMMAND SEQUENCER TEST BIT “TST'* (RMMR2, BIT 12) @
@DRIVE READY STATUS "DRY'‘ (RMDS, BIT 07) @
@CONTINUE "'CONT'' (RMMR1, BIT 065 a
@INVALID COMMAND ERROR “IVC'* (RMER2, BIT 12) @
@LOSS OF SYSTEM CLOCK ERROR ‘LSC"' (RMER2, BIT 11) @

36 074113

114

103

42 0764514
43 07455
46 076623

117
111
117

46 074733
47 0764774
49 075127

101

117

104
101

EMS13:

.ASCIZ

26 073355
27 073621

28 073501

116
111

123
105
111
123

EMS10:

115

103
114
106

122
111

125
116

50 075173

122
042

52 075306
53 075360
54 075433
55 075514
56 075554

120
104
120
101
127

122
122
117
124
122

45 074672

48 075051

51 075222

57 075624

117

101

104

105

EMS41:

.ASCIZ

BIT 13) @

@LAST SECTOR STATUS 'LS'* (RMMR], BIT 02) @

@COMPOSITE ERROR 'ERR' (RMDS, BIT 14 a

EMS47:
EMSS0:
EMS51:

.ASCIZ
.ASCIZ
.ASCIZ

@OCCUPIED 'OCC'* (RMMR1, BIT 15) @
QILLEGAL FUNCTION '‘ILF" (RMER1, BIT 0) a
@OFFSET DIRECTION 'OFD'' (RMOF,
'BIT 07) @

116
126

EMS53:
EMSS4:

[ASCIZ
.ASCIZ

@RUN AND GO 'RG'' (RMWR1, BIT 14) @
@INVALID ADDRESS ERROR “IAE'* (RMER1,

105

107

EMS56:

.ASCII

@REGISTER MODIFICATION REFUSED ERROR @

122

111

EMSS7:

.ASCIZ

@DRIVE REQUEST REQUIRED STATUS ‘DRQ'' (RMDT, BIT 11) a

130

103

EMS6S5:

106

104

122

106

104
115

117
111
122
124
111

EMSS52:
EMSSS:

EMS60:
EMS61:
EMS62:
EMS63:
EMS64:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

@OFFSET MODE ‘UM’ (RMDS, BIT 00) a

BIT 10) @

@ADDRESS OVERFLOW ERROR ‘'AOE'' (RMERi, BIT 09) a
@RMRTM (RMER1,

BIT 02) @

@PROGRAMMABLE STATUS "PGM’ (RMDS, BIT 09) &
@DRIVE PRESENT STATUS ‘DPR'* (RMDS, BIT 08) a
@PORT REQUEST FLOP "RQA,RQB'' (RMMR2, BITS 15,14) a
QATTENTION “ATATM (RMDS, BIT 15) a
SWRITE LOCK ERROR 'MLE” (RMER1, BIT 11) @

QEXCEPTION 'REX'' (RMMR1, BIT 1) @

CZRMPAQ RMO5/3/2 DSKLS TST 1

ERROR MESSAGE STRINGS

58 075665
59 075742
60 076016

m
124
114

63 076122
64 076160
65 076224
66 076257
67 076312
68 076353
69 076415
70 076445

104
103
105
105
115
104
117
104

2.12 076054

71 076501
72 076522

;2 076571
75
76
77
78

076634
076652
076675
076722

123

116
101
m

MACRO v03.01

F
5
11-APR-80 13:58:55 PAGE 28-1

EMS66:
EMS67:

105

126
107
116

101

EMS70:

123
116
122
122
111
123
106
111

EMS250:
EMSZ251:
EMS252:
EMS253:
EMS254:
EMS255:
EMS256:
EMSZ57:

117
122
122
101

105

106
122
117

110
123

105

114
122

EMS260:
EMS261:

10;
10
101
127

101
101
116
m

116
116
131
124

EMS300:
EMS301:
EMS302:
EMS303:

101

124

126

EMS262:

79 076733
80 076742
81 076756
82 077017
83 077034
84 077100
85 077136
86 077167
87 077216
88 077244
89 077265

105
101
125
101
105
124
101
101
101
122
061

122
040
123
040
126
170
040
120
120
105
040

122
117
111
132
105
105
123
120
120
107
050

EMS304:
EMS306:
EMS307:
EMS310:
EMS311:
EMS312:
EMS313:
EMS314:
EMS315:
EMS316:
EMS317:

91 077325
92 077345
93 077365

064
070
101

040
040
114

050
050
114

EMS321:
EMS322:
EMS323:

97 077445
98 077453
99 077472

054
015
103

040
012
101

108 077662

104

125

90 077305

94 077404
95 077424
96 077435

100 077522
101 077540
102 077554
103 077564
104 077607
105 077626
106 077642
107 077653

109 077714
110 077730
111 077757
112 100005
113 100023
114 100044

062

101
101
101

111
m
m
123
123
103
102
125

125
102
102
103
127
102

040

050

QINVALID COMMAND ERROR ''IVC'' (RMER2, BIT 12) a
QTAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @
QLINES (RMMR2, BITS 10,11,13) a

.ASCIZ

@DISK ADDRESS REGISTER (RMDA) a
QCONTROL STATUS REGISTER #1 (RMCS1) a
@ERROR REGISTER #1 (RMER1) @
QERROR REGISTER #2 (RMER2) a
QMAINTENANCE REGISTER #1 (RMMR1) @
QDESIRED CYLINDER REGISTER (RMDC) @
QOFFSET REGISTER (RMOF) @
QDRIVE TYPE REGISTER (RMDT) @

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

QSEARCH ENABLE "ESRC'' (RMMR1, BIT 11) @

.ASCIZ

QHOLDING REGISTER (RMHR) @
QSERIAL NUMBER REGISTER (RMSN) @

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QCANNOT CLEAR @
QCANNOT WRITE/READ @
QANY DEVICE REGISTER a
awWITHOUT @

.ASCIZ

QATTENTION SUMMARY REGISTER (RMAS) a

.ASCIZ
.ASCIZ
.ASCIZ

@ERROR @
@A ONE FROM @
QUSING MASSBUS INITIALIZE,

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QAPPEARS STUCK AT ZERO @
QAPPEARS STUCK AT ONE @
QREGISTER SELECT @
a1 (1,2,4.8.16) a

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

EMS320: .ASCIZ
.ASCIZ
.ASCIZ

I.E., @
@A ZERO FROM 3
QEVERY DEVICE REGISTER BIT POSITION @
QTHE FOLLOWING BITS ARE STUCK @
@A SHIFTING ONE BIT FROM @

@2 (1,2,4.8.16) a

@4 (1,2,4.8.16) @
a8 (1,2,4.8,16) a
@ALL ONES FROM @

040
040
040
117
117
116
103
111

EMS327:
EMS330:
EMS331:
EMS332:
EMS333:
EMS334:
EMS335:
EMS336:
EMS337:
EMS340:
EMS341:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@IS INCORRECT @
@IS NOT SET @
QIS SET @
@SHOULD NOT BE SET @
@SHOULD BE SET @
QCANNOT SET a
QBECAUSE a
@USING @

105
123
040
116
126

EMS343:
EMS344:
EMS345:
EMS346:
EMS347:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QUNEXPECTED @
@BUS TIMEOUT (04 TRAP) @
@BY REGISTER TRANSFER @
QCANNOT RESET @
aWITHOUT SETTING @

114
124
124

114
040
040

123
123
123
110
110
101
105
123

116
125
131
101
m

125

.ASCIZ
.ASCIZ
LASCIZ

117
103
116

122

124

EMS324:
EMS325:
EMS326:

EMS342: .ASCIZ

EMS350:

.ASCIZ

@ALL ZEROS FROM 3
QAT ZERO a
QAT ONE

@, OR @
<CR><LF>aCS MBA CLRL @
QCANNOT READ ZEROS FROM @

@DURING REGISTER TRANSFER @

aBUT @

SEQ 0263

AQ RMO5/3/2 DSKLS TST 1
MESSAGE STRINGS

115
116
117
118
119
120
121

122
123
124
125

100051
100067
100103
100127
100162
100204
100224

127
127
11
11
103
127
127

101
101
116
123
101
101
101

MACRO v03.01
123
123
040
040
116
123
123

EMS351:
EMS352:
EMS353:
EMS354:
EMS355:
EMS356:
EMS357:

123
104
116
105
123
104

EMS364:
EMS365:
EMS366:
EMS367:
EMS370:
EMS371:

100246
100274
100322
100343

060
061
11
103

040
040
123
101

124
124
040
116

100545
100577
100603
100634
100650
100664
100675
100712

104
124
127
102
102
127
127
104

125
117
m
131
131
101
101
m

122
040
124
040
040
123
123
104

143 101016

104

126
127
128
129
130
131

132
133
134
135
136
137
138
139

100360
100401
100406
100431
100501
100516

140 100727
141 100736
142 100777

144 101026

124
101
103
124
122
104

127
103
127

105
116
101
110
105
m

110
117
101

125

EMS360:
EMS361:
EMS362:
EMS363:

}22 101041

123

101

EMS407:

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

101061
101113
101156
101222
101247
101317
101344
101377
101452
101513
101603
101656

011
011
on
01
on
011
on
0N
0n
on
on
015

104
104
124
m
115
103
104
104
104
104
101
012

105
105
122
106
101
123
123
105
105
105
123
011

EMS500:
EMS501:
EMS502:
EMS503:
EMS504:
EMS505:
EMS506:
EMS507:
EMS510:
EMS511:

161
162
163
164
165
166
167

101755
102005
102025
102066
102107
102134
102152

122
117
122
122
122
123
123

105
106
105
105
105
105
105

101
106
126
114
103
105
101

EMS600:
EMS601:
EMS602:
EMS603:
EMS604:
EMS605:
EMS606:

168 102172

104

050

101

116

1264

QTEST PATTERN IN @
aAND a
@CANNOT INITIALIZE @
QTHE COMMAND SEQUENCER HAS BEEN CLOCKED @
QRESET EARLY @
aDID NOT RESET ON TIME @

.ASCIZ

EMS406:

123

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS405:

EMS402:
EMS403:
EMS404:

101

}23 101705

awAS RESET BY a
QawAS SET BY @
@IN DIAGNOSTIC MODE a
@IS INCORRECT ACCORDING TO @
QCANNOT INCREMENT @
@aWAS NOT SET BY a
QWAS NOT RESET BY a

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

127

105

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS372:
EMS373:
EMS374:
EMS375:
EMS376:
EMS377:
EMS400:
EMS401:

111
115
123

122

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

EMS607:

@0 TO 1 TRANSITION OF @
@1 TO O TRANSITION OF a
@IS INCONSISTENT @
QCANNOT READ a

QDURING COMMAND EXECUTION a
QaT0 @
@WITH ANY COMBINATION OF @
aBY READING @
aBY WRITING @
aWAS SET @
awWAS NOT SET @
aDID NOT SET @

.ASCIZ
.ASCIZ
.ASCIZ

QWwHILE @
@COMMAND SEQUENCER DID NOT ABORT @
aWAS NOT RESET

.ASCIZ

awWAS RESET @

.ASCII
.ASCII1
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

@
@
o
@
@
@
@
@
@
@
@

LASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@READ IN PRESET COMMAND a
@QOFFSET COMMAND @
@RETURN TO CENTER CENTER COMMAND 3
QRELEASE COMMAND a
Q@RECALIBRATE COMMAND @
QSEEK COMMAND a
Q@SEARCH COMMAND @

.ASCIZ

SEQ 0264

@DURING @

QSEARCH TIMEOUT a
DEVICE IS NON-EXISTENT ,@<CR><LF>
DEVICE IS SWITCHED TO OTHER PORT@<CR><LF>
TRANSCEIVER ENABLE SWITCH IS OFF@<CR><LF>
IF MODULE, M7686,a<CR><LF>
MASSBUS TRANSCEIVER, M5922 OR M5923
A<CR><LF>
CS MODULE, M7684 ,a<CR><LF>
DS MODULE, MB685/M7685,a<CR><LF>
DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF>
DEVICE IS NOT AN RMO5/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>

QDATA COMMAND @

CZRMPAQ RMO5/3/2 DSKLS TST 1
ERROR MESSAGE STRINGS
1

102210

105

2
3
&
5
6

102237
102266
102274
102303
102322

123
040
101
105
122

10
11
12
13
14
15
16
17
18
19
20
21

102456
102503
102532

105
123
105

103120
103157
22 103216
52 103264

105
123
105
103

25
26
27
28
29

103333
103373
103431
103467
103526

105
122
105
122
101

7 102341
8 102360
9 102417

102560

102607
102645
102704
102753
103022
103061

g? 103545

105
123
104

123

105
123
105
123
105
103

122

130

124
102
104
130
105

MACRO v03.01
120

101
101
122
120
123

H 5
11-APR-B0 13:58:55 PAGE 29

EHI

EM2:
EH3:
EHS5:

130
116
128
13
124
130
124
130
124
130
124
130
117
130
124

120
107
126
120
101
120
101
120
101
120
101
120
125
120
101

120
120

EH145:

130
105
130
105
103

120
123
120
123
124

EH150:

130
115

105

123

ENW7:
EHS57:
EH65
EH71
EH115:
EH130:

EH132:

EH142:

EH213:
*
EH220:
-

LASCI]

.ASCIZ
.ASCI]
.ASCIZ
LASCII
LASCIZ

.ASCIZ
.ASCII
+ASCIZ
LASCII
.ASCIZ
LASCII1

.ASCIZ

.ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCII
.ASCIZ

L.ASCI1
.ASCIZ
L.ASCII
.ASCIZ
.ASCII
.ASCIZ
.ASCII
JASCIZ
.ASCI]
.ASCIZ

QEXPCTD

RECEVD

REGSTRa<CRLF>

QEXPCTD
Q@SNGPRT
@QDRVTYP
QEXPCTD
QSTATUS
QEXPCTD
@STATUS
QEXPCTD
QSTATUS
QEXPCTD
QSTATUS
QEXPCTD
QCOUNT
QEXPCTD
QSTATUS

RECEVDa
DULPRT RECEVD DRVTYPa<CRLF>
DRVTYP DRVTYP REGADRa
RECEVD
TESTa<CRLF>
STATUS REGSTRa
RECEVD
TEST@<CRLF>
STATUS PATTRN@
RECEVD REGSTR
TEST@<CRLF>
STATUS ADRESS
PATTRNa
RECEVD REGSTR
TEST
OFFSET@<CRLF>
STATUS ADRESS PATTRN REGSTRa
ACTUAL REGSTR OFFSET@<CRLF>
COUNT
ADRESS
REGSTRa
RECEVD REGSTR OFFSET@<CRLF>
STATUS ADRESS REGSTRa

@QSTATUS STATUS ADRESSa
@ BASE@<CRLF>
QADRESSa
QEXPCTD
STUCK@<CRLF>
GRESULT BIT(S)a

QEXPCTD
QCMPERR

ACTUAL
C(MPERR

QEXPCTD
@RESULT
QEXPCTD
@QRESULT
Q@ACTUAL

ACTUAL REGSTR FUNCTION@<CRLF>
RESULT ADRESS
C(CODEa
ACTUAL STATUS
TEST@<CRLF>
RESULT ADRESS REGSTRa
REGSTRa<CRLF>

QRESULT

ADRESSa

REGSTR
ADRESS

RMER1
PATTRN

RMER2@<CRLF>
PATTRNa

SEQ 0265

CZRMPAO RM0S5/3/2 DSKLS ST 1

MACRO v03.01

11
12
13
14
15

103672
103675
103676
103700
103704

000
000
000
000
000

b
b

b
b cnld s

WS BN
NN
ONN

001140

001142

8 103652

18 103666

001140

7 103640

6 103630

001174
001140

4 103606
5 103620

001140

001136
001140

3888888

1 103564

2 103574
3 103600

§§

ERROR MESSAGE STRINGS

001136

000000

001142
001174

001444
001136
001136
000
000
000

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

ED1:
ED2:
EDS:

.WORD
.WORD
.WORD

ED71:
ED115:
ED130:
ED220

.WORD
.WORD
.WORD
WORD

EF1:
EF2:

.BYTE
.BYTE

ED57:
ED6S:

EF5:
EF57:
EE&ES:

.WORD
.WORD

.BYTE
.BYTE
.BYTE

$GDDAT,$BDDAT,S$BDADR,0
$BDADR.O
$GDDAT.SBDDAT,0

STMPO,$TMP1,$B8DDAT, SBDADR,0
$GDDAT,S$BDDAT,STMP,0

SGDDAT.SBDDAT .RMHRO.0
$GDDAT.SBDDAT .$BDADR,S$TMPO,0
SGDDAT.SBDDAT .$BDADR.$TMPO.$TMP1 .0
$BDDAT,$BDADR
0,0,0
0

0.0
0.0,0.0
0,0,0.0,0

SEQ 0266

J 5
MACRO v03.01 11-APR-B0 13:58:55 PAGE 31

CZRMPAQO RM0S5/3/2 DSKLS TST 1

ERROR MESSAGE STRINGS

1 103712
2 103712

BUFFER:
BUFONE:
BUFTWO:

21%”6
2

103712

105173
105210
105234
105261
105305

50 105652
51 105675
52 105724
53 105745
54 105765
55 106025
56 106057
57 106101

124
124
124
124
124
124
124
124
124
124
124
124
124
124
124

124
124
124
124
124

124
124
124
124
124
124
124
124

— b e D
— d e e e

2 2\ NN
e = \ NN

(=lelelelelelele
iy

W)=
—

061

BBRBRER e R R R R R AR R e R BRERRRRERERREE

35
36
37
38
39

104233
104276
104342
104406
104451
104513
104557
104606
104654
104723
104754
105013
105056
105110
105142

114
055
124
124
124
124
124
124
124
124

BREZZRRRRRRE

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

103714
103732
103750
103771
104006
104041
104074
104126
104156
104201

O—

10
11
12
13
146
15
16
17
18
19

200
200

258.
258.

.=BUFFER

SRRSO RRRRRRRR

7 103712
8 103712
9 103713

.BLKW
.BLKW

HELP:
LASCII
LASCII
LASCII
ASCII

ASCII
ASCII
ASCII
LASCII
LASCII
ASCI1
ASCII
LASCII
LASCII
LASCII
ASCII
ASCII
ASCII
ASCII
LASCII
ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
ASCII
LASCII
LASCII

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

<CRLF>
<CRLF>
QLIST OF
@

am
aTe
QT3
QT4
arTs
aTé
aT?7
aT10
atTh
arT12
aTi13
aT14
aTi1s
aT1é
aTm17
atT20
ar2l
ar22
ar23
aT2é
@125
aT26
ar127
ar130
ar3l

ar32
@133
ar34
QT35
ar36
ar137
ar140

TESTSa<CRLF>
@<CRLF>

TRANSFER TESTa<CRLF>
CTOD TEST@<CRLF>
MASSBUS INITIALIZE TESTa<CRLF>
CLEAR STUCK ACTIVE TEST@<CRLF>
TRISTATE TRANSFER TEST@<CRLF>
REGISTER SELECT TEST@<CRLF>
DRIVE TYPE TESTa<CRLF>
DEVICE AVAILABLE TESTa<CRLF>
HOLDING REGISTER TRANSFER TESTa<CRLF>
CONTRO. STATUS #1 TRANSFER TEST@<CRLF>
ERROR REGISTER #1 TRANSFER TESTa<CRLF>
CLEAR OFFSET STUCK ACTIVE TESTa<CRLF>
OFFSET REGISTER TRANSFER TESTa<CRLF>
ERROR REGISTER #2 TRANSFER TESTa@<CRLF>
SERIAL NUMBER TEST@<CRLF>
CONTROL BUS PARITY DETECTION TEST@<CRLF>
CONTROL BUS PARITY GENERATTON TEST@<CRLF>
RMDA ,RMDC FAULT TESTa<CRLF>
DISK ADDRESS TRANSFER TESTa<CRLF>
DESIRED CYLINDER TRANSFER TEST@<CRLF>
ILLEGAL REGISTER TESTa<CRLF>
RESET GO BY INIT TESTa<CRLF>
DIAGNOSTIC MODE TEST@<CRLF>
MOL TESTa<CRLF>
WRITE LOCK TESTa<CRLF>

DRIVE FAULT TESTa<CRLF>
SEEK ERROR TESTa<CRLF>
PIP TESTa<CRLF>
EBL TESTa<CRLF>
LAST SECTOR, LAST TRACK TESTa<CRLF>
RMDA COUNT TESTa<CRLF>
RMDC COUNT TESTa@<CRLF>

LASCII
LASCII
LASCII
LASCII

aT41
aTé
aTé
aTé44

LBT TESTa<CRLr>
COMPOSITE ERROR TEST@a<CRLF>
WRITE GO TESTa<CRLF>
BRANCH MULTIPLEXOR TEST@<CRLF>

LASCII

aTéé

END 1 RESET GO TEST@<CRLF>

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

ar45

ar47
@150
aT151
arT15
@75
aT154
Q155
aT56

SET/RESET GO TEST@<CRLF>

SET PULSE TEST@a<CRLF>
SET/RESET IVC TESTa<CRLF>
SET LSC TEST@<CRLF>
DECODE TEST@<CRLF>
SET/RESET VOLUME VALID TEST@<CRLF>
ILLEGAL FUNCTION TESTa<CRLF>
OCCUPIED TESTa<CRLF>
READ IN PRESET TESTa<CRLF>

SEQ 0267

065

74
75
76
77
78
79

124
124
124
124
124
1264

067

113

114

110010
110045
110054
110105
110131

110155
110214
110230
110243
110256
110271
110303
110315
110327

117
055
123
055
040
040

040
040
040
040
040

040
040
040
040
040
040
040
040
040
200

e L
e
R
i
i
e
e

DATA COMMAND TESTS (1)a@<CRLF>

DATA COMMAND TESTS (2)a<CRLF>
DATA CO+MAND TESTS (3)a<CRLF>

afl_PERATIM SWITCH SETTINGS@<CRLF>
@<CRLF>
aSWITCH
USE@<CRLF>

040

e I
I

99
100
101
102
103
104
105
106
107
108
109
110
111
112

107577
107633
107667
107704
107741
107765

e e e e

93
9
95
96
97
98

124

124
124
200

O=NWSI
VNN OVO=NWHNWN

90 107506
91 107542
92 107576

EXCEPTION TEST@<CRLF>

RECALIBRATE TEST@<CRLF>
SEEK TESTa<CRLF>
SEARCH TESTa@<CRLF>
SEARCH TIMEOUT TESTa@<CRLF>

124

89 107452

g e e e e o e e o e o e e e

88 107421

124
124
124
124
124
124
124
124

00000000

107155
107201
107241
107265
107307
107333
107361
107400

060

RRRRRRRR

80
81
82
83
84
85
86
87

106727
106765
107024
107046
107072
107124

124

73 106671

EBL CLEAR OFFSET TEST@<CRLF>
RUN AND GO TEST@<CRLF>
SET IAE TEST@<CRLF>
SEARCH, SEEK, READ, WRITE TEST@<CRLF>
INVALID TRACK/SECTOR TEST@<CRLF>
INVALID CYLINDER TEST@<CRLF>
SET AOE TEST@<CRLF>
SET RMR TESTa<CRLF>
PGM STATUS CHECK@<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>
WRITE ATA TESTa<CRLF>
RESET ATA BY GO TEST@<CRLF>
UNIT READY ATA TEST@<CRLF>
ERROR ATA TEST@<CRLF>
REGISTER TRANSFER ATA TEST@<CRLF>
P SET ATA TEST@<CRLF>
SET WLE TEST@<CRLF>

72 106640

S Sy Sy Ay Ny WAy WPy Sy Sy Sy Sy Sy Sy S S S S S S

061
062
063

RETURN TO CENTER TESTa<CRLF>
RMDC CLEAR OFFSET TESTa<CRLF>

e R

067

alalalisliaslaslalislslslalslslslslsalslslalalalalale]

124
124
124
124

124
124

e e e Tl e

106517
106551
106572
106613

065

OFFSET COMMAND TESTa@<CRLF>

e e

28
69
70
71

66 106416
106461

063

RIP/RMOF TEST@<CRLF>
RMDA/RMDC/RIP TEST@<CRLF>

L L

124
124
124
124

>B>> > >>>
Sobobobnd & (723>
X7, 17,] (X7 17,17, n wnrn

106264
106317
106351
106375

067
060
061
06

62
63
€4
65

065
066

g FER

124
124
124
124

FZE

58 106131
59 106153
60 106202
61 106232

ERROR MESSAGE STRINGS

K .5
MACRO v03.01 11-APR-80 13:58:55 PAGE 31-1

CZRMPAD RMOS5/3/2 DSKLS TST 1

@<CRLF>
HALT ON ERROR@<CRLF>
LOOP ON TEST@a<CRLF>
INHIBIT ERROR TYPEOUTS@<CRLF>
@<CRLF>

INHIBIT ITERATIONS@<CRLF>
BELL ON ERRORa<CRLF>
LOOP ON ERROR@<CRLF>
LOOP ON TEST IN SWR<7:0>@<CRLF>
TN128a<CRLF>
TN64@<CRLF>
TN32a<CRLF>
TN16@<CRLF>
TN8@<CRLF>
TN4@<CRLF>

TN2a<CRLF>
TN1a<CRLF>

SEQ 0268

CZRMPAQ RMO5/3/2 DSKLS TST 1

MACRO v03.01 11-APR-80 13:58:55 PAGE 31-2

ABASE = 176700
ACDW1 = 000000
ACDW2 = 000000
ACPUOP= 000000
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000

120254
000000
000400
001000
004546
000010
000001
000002
000004

S YMBOL TABLE

AVECT1=
AVECT2=
A16
=
A17
=
BADTMO

BAI
8800
8801

=
=
=

ADDW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDWZ2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDW5 = 000000

8802
8803
B804
BB05
8806
8807
BB08
8809

ADDW?7 = 000000

B8IT00 = 000001

ADDWS = 000000

ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
ADR
= 000001
AENV = 000000
AENVM = 000000
AFATAL= 000000

ALL

062134

AMADR1= 000000
AMADRZ2= 000000

AMADR3= 000000

BITO

BITO1
BIT02
BITO3
BITO4
BITO5
BITO6
BIT07
BITO8

BIT11 = 004000

AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000

BITS
BIT4
BITS

AMTYP1= 000000

AMTYP4= 000000

= 000002
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
='000400

BIT1
= 000002
BIT10 = 002000

BIT12
BIT13
BIT14
BIT15

AMTYP2= 000000
AMTYP3= 000000

= 000001

BIT09 = 001000

AMADR4= 000000
AMAMS1= 000000
AMAMS2= 000000
AMAMS3= 000000

= 000000

=
= 000010
= 000020
= 000040
= 0C0100
= 000200
= 000400
= 001000

BIT2

BIT6

BIT7
BIT8

BIT9

=
=
=
=

010000
020000
040000
100000

= 000004

= 000010
= 000020
= 000040

= 000100

= 000200
= 000400

= 001000

AOE
= 001000
APASS = 000000
= 100000
APRIOR= 000000
APTCSU= 000040
APTENV= 000001
APTSIZ= 000200
AP1SP0= 000100

BOTADR 054672
BOTFLG 054674
PTVEC= 000014
BSE__
= 100000
BUFFER
103712
BUFONE
103712
BUFTWO 104716
cC
= 004000

ATA
= 100000
ATESTN= 000000
ATNMSK= 000377
ATNTBL
063052
AUNIT = 000000
AUSWR = 000000

CHRCNT
CKSWR =
CLOCK
CLR _ =
CMNSTA
CNSLOO

ASWREG=

= 002000
054675
104410
001532
000040
007000
062234

CNSLO1
CNSLO2
CNSLO3
CNSLO4
CNSLO5
CNSLO6
CNSLO7
CNSLO8
CNSLO9

062267
062305
062347
062367
062423
062435
062466
062631
06263

CNTCLR 055614
COMMA
062145
CONT = 000100
CR
= 000015
CRLF
= 000200
CYLMSK= 001777
DBCK = 100000
DBEN

DBL

= 040000

= 002000

DCK
=
DDISP =
DEBL
=
DISPLA
DISPRE
DLT
=
DMD
=
DPE
=

DPEH] =

0
177570
020000
001156
000174
100000

000010

DPELO = 020000
DPR
= 000400

DRQ

= 004000

DRVCLR=
10
DRY
= 000200
DSWR = 177570
PDTE
=01

pTO

DULPRT= 024024
DVA
=
pvC
= 000200

EBL

ECH
ECI

ECRC

EDT1
EDT115
EDT130
EDT132
EDT2
EDT§20
EDT
EDT57

EDTE5

EDT71
EDT74
ED1
ED115
ED130
ED2

= 020000

= 000100
=
000

= 001000

071466
071504
071506
071510
071470
07151
07147
071474

071476

071500
071502
103564
103640
103652
103574

SEQ 0269

ED220
ED5
ED57
ED65
ED71

103666
103600
103606
103620
103630
EECC
= 000020
EFT1
071514
EFT115 071532
EFT130 071534

EFT132

EFT2
EFT220
EFTS
EFT57
EFT65S
EFT71
EFT74
EF1
EF130
EF2
EF5
EF57

EHT1
EHT115
EHT130
EHT132

EHT142

EHT145
EHT150

EHT2

EHT213
EHT220
EHTS
EHT57

EHTE5

EMS254

103704
103675
103676
103700
071366
071426
071432
071436

EH57

EMS253

EMS255
EMS256
EMS257
EMS26
EMS260
EMS261
EMS262
EMS27

071442

EMS3

071372

EMS301

071446
071452

071456
071462
071376
071406

102456
102341
102532
071542
075145
072210

076501
076532
076571
073355

071662

076675
076722
076733
076742

EMS31
EMS310
EMS311

073501
077017
077034

EMS312

102360

073016

073063
073141
073220
076122
076160
076224
076257
076312
076353
076415
076445
073276

EMS302
EMS303
EMS304
EMS306

102210

103022

072737

073421
076634

EMS307

10312
10321
10333
1022
103431
103526
102274
102303

072301
072357

EMS30
EMS300

071412

102607
102704

EH65
EH7
EH71
EMS1
EMS10
EMS11

072632
071613
072673

103672

071530

EH115
EH130

EH142
EH145
EH150
EH2
EH213
EH220
EH
EH5

EMS17
EMS2
EMS20

071536
071516
071540
071520
071522
071524
071526

071402
071416
071422

EH132

072426
072473
072551

EMS21
EMS22
EMS23
EMS24
EMS25
EMS250
EMS251
EMS252

EHT?7
EHT71
EHT74

EH1

EMS12
EMS13
EMS14
EMS15
EMS16

EMS313
EMS314

EMS315

076652

076756

077100

077136
077167

077216

EMS316
EMS317
EMS32
EMS320
EMS321
EMS322
EMS325
EMS324

077244
077265
073552
07
077325
0
5
077365
077404

EMS326
EMS327
EMS3
EMS3
EMS331
EMS332

077435
077445
07363
07745
077472
077522

EMS325

077424

CZRMPAO RMOS5/3/2 DSKLS TST 1

M5
MACRO v03.01 11-APR-80 13:58:55 PAGE 31-3

EMS333

EMS47

074514

EMT116

065676

EMT20

064056

EMS50
EMS500
EMS501

074554
101061
101222

EMT1 5
EMT120
EMT121

063732
065736
065762

EMT201
EMT202
EMT203

067316
067334
067352

077642
077653
077662
077714
077730
077757
100005
100023
073711
100044
100051
100067
100103
100127
100162
100204
100224
073753
100246
100274
100322
100343
100360
100401
100406
100431
074003
100501
1005
100545
100577
100603
1
100650
1

EMS503 101317
EMS504 101344
EMS505 101377
EMS506 101452
EMS507 101513
EMS51
074623
EMS510 101603
EMS511
101656
EMS52
074672
EMS53
074733
EMS54
074774
EMS55
075051
EMS56
075127
EMS57
075222
EMS6
072030
EMS60
075306
EMS600 101755
EMS601
102005
EMS602 102025
EMS603 102066
EMS604 102107
EMS605 102134
EMS606 102152
EMS607 102172
EMS61
75360
EMS62
075433
EMS63
075514
EMS64
075554
EMS65
075624
EMS66
07
EMS67
075742
EMS7
072074
MS70
076054
EMTVEC= 0000
EMT1
063510

EMT123
EMT126
EMT125
EMT126
EMT127
EMT13
EMT130
EMT131
EMT132
EMT133
EMT13%4
EMT135
EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161

066022
066046
066064
066104
066122
063750 066146
066164
066202
066222
066242
066256
066274
066306
063766
066324
066344
066360
066376
066412
066434
066456
066474
064004
066506
066530
066542
066556
066576
066616
066656
0640;2
066674
066724

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
EMT24
EMT243

0702
070310
70334
07

EMT27
EMT270
EMT271
EMT272
EMT273
EMT274
EMT275
EMT276
EHT§77
EMT
EMT30
EMT300
EMT301
EMT31
EMT32
EMT33
- EMT34
- EMT35
EMI36
EMT37
EMT4
EMT40
EMT41
EMT4
EMT4
EMT44
EMT45S
EMT46
EMT47
EMTS
EMTS0
EMT51
EMTS52
EMT53
EMT54

EMS40
EMS400
EMS401
EMS402
EMS403
EMS404
EMS405
EMS406
EMS407
EMS41

074035
100675
100712
100727
100736
100777
101016
101026
101041
074113

EMT100
EMT101
EMT102
EMT103
EMT104
EMT105
EMT106
EMT107
EMTI
EMT110

065312
065332
065352
065372
065416
065436
065456
065502
714
065522

EMT1
EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172
EMT173

066760
067002
067024
067050
067070
04
067112
067124
067140
067156

EMT245
EMT246
EMT247
MT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255

070422
070440
070464
7
070502
070526
070552
070576
O
070632

EMT56
EMTS7
EMT6
EMT60
EMT61
EMT
EMT
EMT64
EMT65
EMT66

EMS44
EMS45
[EMS46

074314
074355
074432

EMT113
EMT114
EMT115

065604
065630
065652

EMT176
EMT177
EMT2

067244
067262
063516

EMT26
EMT260
EMT261

206
070720
070744

EMT70
EMT71
EMT72

SYMBOL TABLE

EMS3

EMS335
EMS336
EMS337
EMS340
EMS341
EMS342
EMS343
EMS344
EMS345
EMS346
EMS347
EMS35
EMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36
EMS360
EMS361
EMS362
EMS363
EMS364
EMS365
EMS
EMS367
EMS37
EMS370
EMS371
EMS372
EMS
EMS374
EMS
EMS376
EMS

EMS4

EMS4,
EMS4

077540

077554

077564
077607
077626

073662

071727

074161
074243

EMS5

MS502

EMTI0

EMT111
EMT1 1%

071760

101247

06367

065544
5564

EMT117

EMT122

EMT1 8

EMT174
EMT175

065716

066002

066742

067200
067226

EMT200

EMT204

EMT244

EMT256
EMT25

SEQ 0270

EMT262

070770

067300

EMT263

071006

067374

EMT267

071104

067414
067434
067464
064076
067500
067516
067534
067546
067576
067610
067630
067644
064116
067660
067676
067714
067732
067750
067770
070012
070030
064132
070046

070100

070122
070144
070172
070212
070244

070404

070656
70674

EMT264
EMT265
EMT266

EMTS5

EMT67
EMT?7

071024
071050
071066
064240
071120
071144
071170
071206
071224
071242
071262
071300
063544
064252
071324
071350
064266
064302
064316
064334
064352
064366
064402
063564
064416
064436
064452
064476
064510
064524
064540
064554

064576
640

064654

064670
064710

064730
064744
063632
7
77
065014
065050

065076

065112
063654

065130
065150
065174

N5
MACRO Vv03.01 11-APR-80 13:58:55 PARE 31-4

CZRMPAQ RMO5/3/2 DSKLS TST 1

SYMBOL TABLE

EMT73
EMT74
EMT75

065220
065240
065250
262

ILR
= 000002
ILRG50= 000050

ILRGS52= 000052
ILRGS54= 000054
ILRGS56= 000056
ILRG60= 000060
ILRG62= 000062
ILRG64= 000064
IL
= 000066
ILRG70= 000070
ILRG72= 000072
ILRG74= 000074
ILRG76= 000076
I0TVEC= 000020
IPCKO = 000001
IPCK1 = 000002
IPCk2 = 000004

ESRC

= 004000

FER
= 000020
FMT16 = 010000

FNCDTB 062752
FNCMSK= 000077
FO
= 000002
F1
= 000004
F2
= 000010
F3
= 000020

Fé&

= 000040

GTSWR
HCE
HCI
HCRC

=
=
=
=

GETBUF

HELP

001332
= 000001

104407
000200
002000
000400

103712

HT
= 000011
IAE
=
002000
IDXMSK= 000077

IE
ILF__
ILFO2
ILF24

= 000100
= 000001
= 000002
= 000024

ILF26 = 000026
ILF30 = 000030
ILF32 = 000032
ILF34 = 000034
ILF36 = 000036
ILF40 = 000040
ILF42 = 000042
ILF44 = 000044
ILF46 = 000046
ILF54 = 000054
ILF56 = 000056
ILF64 = 000064
ILF66 = 000066
ILF74 = 000074
ILF76 = 000076

IPCK3 = 000010

IR
= 000100
IvC
= 010000
LBC
= 002000
LBT
= 002000
LCLOCK 055236
LCOUNT 055306
LF
= 000012
LODEV
062675
LS
= 000004
LSC
= 004000
LST
= 000002
LSTOP
055350
LSTRK
001330

MCLK
MCPE
MDF
MDPE
Ml
MIXED
MOC

MOH
moL

=
=
=
=
=

004000
020000
000100
000400
000004
063062
= 000400

= 020000
= 010000

MRD
=
MRT1AAA=
MS
=
MSC
=
MSDRVS
MSE
=
MSER =

MSGDRV
MSHELP
MUR
=
Mo
=
MP
=
MXF
=
NDTMSK=
NED
=
NEM
=
=
NOP

002000
051401
000040
00000
06265
100000
000200

062667
062150
001000
000010
000010
001000
115760
010000
004000

NOTAVL 06273
NOTPRS 06271
NSA
= 100000
ocC
= 100000
OFD _ = 000200
OFFSET= 000014
oM
= 000001
ONES
063122
OPE
= 020000
OPI
= 020000
OR
= 000200
PACACK= 000022
PAKACK= 000022
PAR
= 000010
PAT
= 000020
PCLOCK 055220
PCOUNT 055306
PDA
= 000400
PGE
= 002000
PGM
= 001000
PHA
= 000200
PIP
= 020000
PIRQ = 177772

PLCLK

PLFS
=
PLSTP
PRO
=
PR1
=
PRZ
=
PR3
=
PR4é
=
PRS
=

PR6
PR7

055244

002000
055354
000000
000040
000100
000140
000200
000240

= 000300
= 000340

PS
= 177776
PSEL = 002000
PSTOP
055342
PSW
= 177776
PUTBUF
001406
PWRVEC= 000024
QUES
062141
D
= 000070
RDCHR = 104411
RDLIN = 104412
RDOCT = 104413
RDY
= 000200
READY
007152
RECAL = 000006
RESPEG= 104415
RESVEC= 000010
REX
= 010000
RG
= 040000
RGDTPT 063062

g?P

= 000072
000020

RLEASE= 000012

SEQ@ 0271

RMAS =
RMASI
RMASO
RMBA =
RMBAE =
RMBAEI
RMBAEO
RMBAI
RMBAD
RMCS1 =
RMCS1I
RMCS10
RMCS2 =

RMCS21
RMCS20
RMCS3 =
RMCS3I
RMCS30
RMDA

000016
001350
001424
000004
000050
001402
001456
001336
001412
000000
001332
001406
000010

001342
001416
000052
001404
001460

RMDAI
001340
RMDAO
001414
RMDB =
22

RMDBI

001354

RMDBO
001430
RMDC =
34
RMDCI
001366
RMDCO
001442
RMDS =
12
RMDSI
001344
RMDSO
001420
RMDT =
26
RMDTI
001360
RMDTO
001434
RMECT = 000044
RMEC1I
001376
RMEC10 001452
RMEC2 = 000046
RMEC2I 001400
RMEC20 001454
RMER1 = 000014
RMERTI
001346
RMER10 001422
RMER? =
l

RMER2I 001374
RMER20 001450
RMHR =
36
RMHRI
001370
RMHRO

001444

RMLA =
20
RMLAI
001352
RMLAD
001426
RMMR1 = 0000;4
RMR1I
001356
RMMRIO 001432
RMMR2 = 000040
RMMRZ2] 001372
RMMR20 001446

RMOF
= 000032
RMOFI
001364
RMOFO
001440
RMR
= 000004
RMSN = 000030

RMSNI
RMSNO

001362
001436

SA2
SA4

= 000002
= 000004

RMWC = 000002
RMJCI
001334
RMWCO
001410
RQA
=-100000
RAB
= 040000
RTC
= 000016
R6
=%000006
R7
=%000007
SADMSK= 000377
SAVREG= 104414
SA1
= 000001
SA16 = 000020
SA8
SC

= 000010
= 100000

SCIMSK= 003
SCO
= 000100V
SC1
= 000200
SC2
= 000400
SC3
= 001000
SC4
= 002000

SEARCH= 000030
SEEK = 000004
SETOM
055512

SETW

SHUT
SIZCLK
SKI
=
SNGPRT=

055370

055642
054760
040000
020024

STACK = 001100
STANDA 006074
START
004626
STKLMT= 177774
STOP
001534

SWR
001154
SWREG
000176
SWO0
= 000001
SW00 = 000001
sSw01
= 000002
SUO§ = 000004
sSw03
= 000010
SWw04 = 000020
SW05 = 000040
Sw0é = 000100
SW07 = 000200
Sw08 = 000400
Sw09 = 001000
SWw1
= 000002

TA¢
=
TA8
=
TBITVE=
TIME
TKVEC =
TPVEC =
TRAPVE=
TRE
=

020000
001114
040000
000400
010000
001000

002000
004000
000014
001526
000060
000064
000034
040000

TRTVEC= 000014

TST
= 010000
TSTNMB 054666
TSTQUE
001462

TST10
TST100
TST101
1ST102

007306
012572
035462
035614
036004

TST103
TST104
TST105
TST106
TST107
TST11
TST110
TST111
TST112
TST113
TST114
TST115
TST116

036206
036334
036540
036670
037064
012656
037262
037540
040044
041436
043164
045344
045724

TST12
TST120
TST13
TST14
TST1S

013116
052372
013464
014246
014346

TST117

050104

TST31
TST32

020330
020620

TST33
TST34
TST35
TST36
TST37
TST4

021336
021650
022142
022464
023024
010150

TSTS

010300

TST40
TST41
TS142
TST43
TST44
TST45
TST46
TST47

023500
023764
024246
024650
025020
025400
026110
026404

A4
= 000100
WATCH
001530

w(C
wCD
WCE
WCEHI
WCELO
WCF

005666

$FFLG_

SATYC

061710

030554
030756
031170
031364

SATY1
SATY3
$SATY4
$SAUTOB

TST64
TST6S
TST66
TST67
1S17
TST70
TST71
TST7

TST7

TST74
TST75
TST76
TST77
TYPBN =

011364
031544
031762
032130
032354
032470
032656
033106
033324
012434
033552
034022
034230

$8ASE
$BDADR
$8DDAT
$BELL
$8IN
$COW1
$CDW2
$CHARC
$CKSWR
S$CMTAG
$CM3 =
$CMé
=
SCNTLC

034746
035054
035200
035330
104406

SCNTLU
$CPUOP
SCRLF
$DBLK
$ODW0

034520

SENVM
$EOP
SEOPCT
$EOSP
$ERFLG
SERMAX

XSI1Z

TST54
TST55
TST56
TST57

TST6
TST60
TST61
TST
TST6

SENULL
SENV

$ERROR
$ERRPC
$ERRTB
SERTTL
$ESCAP
SETABL
SETEND
SFATAL

XXDP
ZEROS
$APTHD

SCNTLG

001326
063164
001100

SFILLC
SFILLS
$GDADR

061664
061672
061702
001150

$GET42
$GTSWR
$HD
=
$HIBTS

001276
001136
001142
001212
056056
001302
001304
057062
060336
001114
000000
000005
061234

061246

061241
001250
001217
056274
001306

MTYP2

001257

$GDDAT

$HIOCT
SICNT
SILLUP
$INTAG
SITEMB
SLF
SLFLG
SLLCSR
SLLVEC
SLPADR
$LPCSB
SLPCSR
SLPERR

SLPVEC

SMADR1
$MADR2
SMADR3
$MADR4
sMAIL

054042
001242

001243
053636
053664
053600
001117
001131

057640
001132
001536
001126
001210
001242
001326
001224
062130

001172
001171
001134

001140

054016
060426
000000
001100

061376
001120
061646
001151
001130
001220
062127
001516
001520
001122
001510
001506
001124

001512

001254
001260
001264
001270
001222

SMTYP1

SMTYP3
SMTYPS

SMXCNT
$NULL SNWTST=
SOCNT
SOMODE
SOVER

$PASS
SPASTM
SPOWER
$PSW
SPWRDN
SPWRMG
SPWRUP
SQUES
SRDCHR

SROLIN
SRDOCT

SRDSZ =

SRESRE

001253

001263
001267

057376
001170

056526
056530
057362
001230
001106
061654
001524
061506
061642
061560
001216
060700

060770
061276

055746

SRMO2
SRMO3

054740
054745

SRMO5
SRTNAD
$SAVRE
$SAVR6
$SCOPE
$SETUP=
$STUP =

054752
054040
055710
061652
057
000137
177777

$SVLAD
057326
$SVPC =

$SWR

SSWREG

= 167400
001244

$SWRMK
=
$SWOBT 057400
S$TESTN 001226
STIMES 001206

$TKB

$TKCNT
STKINT
$TKQEN=
$TKQIN
$TKQOU

001162

060040
50
060047
060042
060044

054026

000052
000060
000062
004000
004000
176000
001567
161577

027006
027242
027450

030302

= 000040
= 000050
=
040000
=
010000
= 004000
=
0

05367

$ENDAD

WCH
=
wD
=
WH
=
WLE
=
WRL
=
XNUDC =
XNUER2=
XNUOF =

IST50
TST51
TST52

TST53

= 000004

001262
001266
001102
062126
061264
001236
001240
001222
061253

001256

SENDCT

= 000002

$MAMSS
sMAMSS
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
. SMSGTY
SMSWR

001314
001316
001320
001322
001 3%6
001232
001300
054036
056264

020014

010000

001252

SMAMS?2

adh

TST30

$MAMS1

$DDW
$DDWs
$DDWS
$DDWé
$DDW7
S$DEVCT
$DEVM
$DOAGN
S$DTBL

001310

001312

TYPOC = 104402
TYPON = 104404
TYPOS = 104403
UBUSQ@S 062201
UNS
=
040000
UNTMSK= 000007
UPE
= 020000
USE
= 040000
W
= 000001

TST3

$ODW1

$DDW

= 000400

TAG
=
TAGADR=
TAP
=
TA1T
=
TA16
=
TA2
=

007616
015506
015772
016110
016236
016510
017010
017432
017526

= 104401

Sw8

Sw9
= 001000
TADMSK= 177400

TST2
TST20
1ST21
TST2
1ST2
TST24
TST25
TST26
TST27

TYPE

= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200

TYPDS = 104405

015404

AMD

Swi2
Sw13
SWw14¢
sSwi5
Sw2
SWw3
Sw4
SW5
Swé
SW7

014672

TST17

TST16

= 004000

Adh

= 002000

SW1l

SW10

SEQ 0272

SYMBOL

B 6
MACRO v03.01 11-APR-80 13:58:55 PAGE 31-5

S
——

CZR’PAOT?.?%/SIZ DSKLS TST 1

CZRMPAD RMOS5/3/2 DSKLS TST 1

SYMBOL TABLE

$TKQSR
$TKS
$TKSRV
$TMPO
STMPY
STMP2
STMP3
$TMPS

060046
001160
060120
001174
001176
001200
001202
001204

. ABS.

110342
000000

ERRORS DETECTED:

$TN
$TPB

= 000121
001166
$TPFLG 001173
$TPS
001164
$TRAP
061400
$TRAP2 061440
$TRP = 000016
$TRPAD 061452

C 6

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

000
001

VIRTUAL MEMORY USED:
55280 WORDS
( 216 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMPA .BIC,CZRMPA/(C=CZRMPA.DOC,CZRMPA,SYSMAC/M

$TSTM
$TSTNM
SITYIN
$STYPBN
$TYPDS
$TYPE
STYPEC
$TYPEX

$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1
$SVECT?

SEQ 0273

056330

001110
001246
001272
001274

$XOFF = 000023
000021
$XON
$XTSTR 057100
$$GET4= 000000
$$5w08= 000121
SOFILL 056527
.$X
= 001100

0.ONfX0B—-6sl3[1N‘R.DD”Bo0—loS&.JD“”7w,‘0I0LflV3f2A~a1mlLO8R6v11106*703D‘*0J#.&IfO521R.Z*0LJ7i1AIf1&SF$vU.V7%%“L3—OI**5F7J57Z|iT0a%*0A3“V*nd54M7S[T)Y3g9?vOJV\.%v0§f4Yda17lD.0-Tl\fR390.f&Ul1c72SY3aa)1|olllll0t?2‘so%e”08W4fVM7k3F7IB0O9”Ww:‘11&,nn¢“i5*BNI&i01[N|*?=%OaSD*nD7iL1ZI=1o“AoJ>vWAsvNs%.1%xI0—AOSA11W.,0Nez%OBN-JUIN1%RLO)01~..l-R2]I@7o~,%%:-%N.HN%O-~..N%vs“.1xu%]o1.o0un%11a.yV.%oI]-%Velo%%HlVeo’%.Ve%%eL.lVe.lVor%-vHe-lVle.Ool.eHRVlOve.lr%l0Heo.[l.%%OVH.eoLH~2N
eOANONO~OION—IUMOIINONI.OTeSN=NIIOOMNNoI-OINONo=oe“gt0No0oNeo0NoeoONro=rNO=YroO=YFoMeOON=MOTNOoNOTNoNOTNTNooNooNoNoo(eo
eRATSREARtRBATIUsNMIaMIsROTLTIAthNIBQLTARIkNAAQLRNAE0SABQREAoVySInRSagASD tgikr—eie0e§egPe0ReeRTe0eei0eR
YTEEEEEESR E P
oLSoOnD,ecDMOnAARNSO EOS0EMBEOL& MgBI
-— — —

JZ@2cnroBy

2
3
3
3
3
8
2
eVe)VSNVIOyNSA]sNTVooE-TGlSRVoTolIAAEVNT-oSVilWETyVToEoIoTLUNlLlAVeINTlAAoVeNoTSlUlWTLeITToElAWUolSASTUlVooWALTllSAeTANlSNoRSoTLT-- NlWlATAoTANlLTeEoTLlNQlNPUNAoEoQSlNSelILANlRE0IeoASQlNSlNTNSTeENBLlNAoNoIYa0olAoTQIInNecBoNEATQioINoTN[lrR.NoeQImlNNlTAoInIoNsIrTcQLlNnVIIYmTnQmosAVooNoWseIIllNrYnoLLATeTo£ekl[+AaxSeR=5Sa =-oL =oe-=oo=eol=eol=rolPreolPrOdTrOeo=TrOeToPNMo==ON=oTMlOoPTMoOlPNoOlTNoOol=TNOLoNoOlo—MMo
R|&HVYV.T&EVGAeTOEIVNTRoHAVWD0TOIFMLT-O0g—VEWTSe0NDSTAO0GVOTI&0IVTWTO0LnSRTNOMYOIT0N&OENTWAA0VLNSTP T-0TNDIO0VTRLA0TGNUO0LLlT—NI0ESTONV0T,MANOW)oIVNTMoTOIOx-—oPrgOpr[NmToe.ICsVLnLOeYroVLEoATLY —o-7—ooe90D910%9090%90%3Ne09Yo%(e
;V2N2-)SLIe22AeNeS22AH=NA22eRLA220SR0220E0S220I022SP0RL0220NS22O&R&sfoNo=TOcrutVIene3yIy®r2geST —£eI3o—}er—e—£s9r7ee2sei8n2geyro
—

13_*7.CJ%*5L-Qe47N1Yf-V]Xl«\”.75
—

—_O

-—

- -

| CROSS REFERENCE TABLE
MACRO v03.01
(CREF Vv01-05 )

o[ - - -

CZRMPAQ RMOS5/3/2 DSKLS TST 1

D 6
11-APR-80 13:58:55 PAGE S-1

SEQ 0274

—

CZRMPAD RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

19-5
19-8#4
5-0
5-0

5-0#

19-5+

5-0#
5-0
S=0#
8-19
19-8

E
11-APR-80 13:58:55 PAGE S=2

SEQ@ 0275

19-5+

5<0

5-04

ifsdy

eR R B

(CREF v01-05 )

19-5#
19-10

=MWARAN RMO N5P93

$BELL
$8IN
$CDW1
$CDW2
$CHARC
$CKSWR
$CM3
$CM4

MACRO v03.01

19-8#
19-8

8-45

14-146

19-3

8-19

9-17
19-5

9-41
19-7

9-114
19-7

9-152
19-7

19-8#

8-94
19-5
19-3#4

8-104

19-5

13-20
19-8

1421
19-8

14=57

19-8

5-0#

504

14-95
19-8

14-105

14-118

$ODWE

5=0#

SEQ 0276

—N* x =

CZRMPAD RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE
(CREF v01-05 )

MACRO v03.01

E)e
R=WS)-VTNSETEVTMTNNEN]TTgNSTN=TNOADNTDO NTNNTQ LR&N[*NNILaNL&VSL®Y
Ne
VFM)T-VUTIVOTN=INNTONMVNMTMTNeN~NT1TONTVNAWILM[MTONe[NT=[ONONgINLaNLOYNL

- —

oOM0 BOBNOOG- NOS

HESHES $SRESHERNEIN Ue

,r-o-8—1IY—olYo—.Yoo-*I~(o~—|VSV—V6O—- Tx—- M))V)EL1[SITVVVV“NTN,T-T&oH&S14NTVETNO6,MLTTN(&NIVWNVSTVN1e-TYTN&W&lLE0VVVONTN5oTT1S«1B&0lSON0OTTTVReNNWATWNY—l«TFoEVTLfoTNWOTNRNF=|l]NoTTTO0oQ-NvRV=N&lNE—TITgTN~NBNTWoN«00TENoE[VQo%TETNSNLO)lN[NNGToN]T[NLSNO.-EOo—NNoLL:TlTN[LNNTt5NNoNN~1Ee8OTBN[oLl&N—eU)WNNAINRT—NTTLATL&0oNONENNI0L[T[NQP&MNNNLlOoNmL(Q[Io¥iUNUoLWNLWNLWE[-- ALVNLoLnI¥LUNfTPoFV[PtVVanNNL(OL«(oaVVtVlOTY[TLLL«*xi|\NVYNYoeDa—noN ok¥t|3*o-O-ooM-¥||—~O|I—o-o-]!)0o—O—eh|1doro-or—o—w]]1|—Womto.MMO—o—N1O——-NT—o-Mo-.ow—Mo$oo -[i***w ]||] }49 !1 0«®—
R.—T&EdV.T"VOTE.&XNETT*U&EN1TNW&.PTON*)LTUAN]0TANkdTA&N=&Lo[L&N=L&oV[*&N&UTo&LAl¥*L —| o—]

o0GOP—&!1G.cNHO"IG..No—Neu1.%O-_]g?.T~o-m’0-T.P.LOXK—0o‘e1QoEaUlN*.S9d1&y=IPRu.-51N0%o*—?YI(9\L”7%-.]HM.‘fb988Ca“TgTlClefN7-74.OD.E&EvlG5-93taGoJJlS*717TcffY3RAA005*lQii11*CC232SPLeV<DD0X784sPI[Ir>GAG\R‘.d70E.«*”g0“aMP%YAl510C&&1ss&eTl‘JA85TRsl.DCl.98201%ON31NYO8w82M%LT.iO18o—NI**Nlol.Aoo—.lTu%o~-S=lnTL~YNo1N\NTg*ioYdoNVN-dI~TdLOR*11O0NNT=OrgBOo=R-NgYoNv—V|}1wT—gVY|UN&||YgVNvUMMLSN—wo—3
o

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

SEQ 0277

5=0O#

19-5

19-7

19-8

SEQ 0278

SLF

*73JwVuQS7T8a.u1AW&yGwJsay-g4)]otzN=oN3
Gnn?Iaa%k=d4RRDEdGyJRR*Ed¥essJ3d&.ee*yddS®ouTdd)nneoi&SdoeNReel=tlee"A3NddONeTiR
5—O2N~T2~2—NO2~N—2O2W—N22v02oM2W2
—T——————
— AW 1] 0* ==l

H * mv —. !. .—. U

b
o
L
r
L
2
9
0
G
A
D
I
K
T
OVYVNA-e
AoT
yb))[l=V0TN~VVTTTI1 ii TTANITTNIVWTNITT>A[HNITTQPNTTNNTIRI000)oTT&6N00.oNTI1|]lQQN#=eW[T”W=QNNWNWNITa”LN0o+V?LTLoV”N«FfF[
XON
R
R
*
O
L”—I8O”—O4"N7I—”O1I“WI1 N7" ”9Mu”nUr8noo

[B(§U BN
~N N —

CROSS REFERENCE TABLE

CZRMPAD RMOS5/3/2 DSKLS TST 1

15-31+

19-12+

15-32«

AsRAOhk AYRkEVLAk IRYRAR
S
kiAEsLNs b
LI AT

5—”“

15-40

(CREF v01-05 )

I
MACRO v03.01 11-APR-80 13:5 8:55 PAGE S-4

15-40+

SEQ 0279

15<41%

19-12%

12=u27

12=U274

12=U27#

12=U57

12-U5;fi 12=U57# 12-194

12-U9%

12=U9%4#

12-U9%#

12-v32

12-v 32
SEQ 0280

CROSS REFERENCE TABLE

12-V32#
12-WS5
12=Y478
12=c74
19-4#

MACRO V03.01

(CREF v01-05 )

12-Vv32#
12-W55
12-Y47#
12=¢c74
194

12-V52
12-WS5#
12-\09
12=c74H

K
6
11-APR-80 13:58:55 PAGE S=5

12-v52
12-W554
12-\09

12=V524
12=X00
12-\09#

12-V524

19=4%
19-6

19=4
19-64

19=4»

12=c74#

12-976

12-V85
12=-X00#
12- 00

12-V85

SEQ 0281

12-V85# 12-v85#

12=X70
12- o0
12=k50

12=X70
12~ 004
12-k50

19-6

13-20

13-20+

19-6

19-7

19-8

4-685

onoBT ERLSN 2

CZRMPAQ RMO5/3/2 DSKLS TST 1

19-6

$TIMES

5=0#

8=10»

10-38+

13-20+

19-6

:
L
196

19-6+

196+

SEQ 0282

7Ww6@3woNWONME~
f||{%E3«Soc1c-2ooo«c1c0123o3o-2d0—d3S—1—o331opsr1n.ymiEmSVToiRahiW3sGtpOEgimaOOoiuwg=OWRamt=wrNeTuRaRdITl&ensSo—ma0dFI7wds0RTeR4.o0OosdYN3Ow0darYEM0IaT0BiITWlsoANCf0PdReMiIRlN1Tat0nC{Pyr31@eR«1eT0ilIPo*d107eSwoicBEoa-l=R3MSs1ep%eTnrTdh*oo0ngLS(-4L5—352oepT27BT838yP§oMe3p1TB-8Wwe&rmar5oE&0Yao8o0w«rm51Td~5-2»v-o9~R83ea39—e08nr~33o8tn3e5o7-2~B—.l-7cbgEGmgH3o$y.uwE2me
| S BAT0 ORI SAdd S

21o3s3e2s3l2 LanIl—ceBNlqteRagseToIsLtoCgLpIiDaZASgTeRRsEIoRrInErE YoT2rayvoehR2c5&eT-N9obd5e% 52b3o%.>o I9
bS-7aL3dco~la3l1 A0BTINnGS3A_e®OBe¥k(P63bBXE3SxN56b4Rn-3QBo.AoZbDoIWbOTWN hV*®®Re eSA&2&&m* -. T
—|! ——Y-—— gRoooA-P0P0030001101111.To1.oeRoe d—%a-«dL-xh&d* ~&-—

&si5gd—c—da--eY[ooe]d—dceoraloowT—l"ld—d3e—Fo]aog‘ol=oascgso0N—N«=0P~2SA0SS3®R=NN00d-OO-Nu0D=T0rol'Rl0PO0sTLeA—ANNcl0OO0NOd-LP0N0uNAsSR=P0eP0TI00i—o0O0PNr-N-ROG00PP0oSCO4cP0000NosNe01RO1—d30PPO1IROnO0TPWdSPTTPNeONOoIOdo0=oPOINN4oo1TRRRoTPR¢=}ToooI(daoeOolI’s-TReaeld"——XRoaolEaRRMM—k3cJdA2a®naaO3neT3ndd8B§enMSTo&oLLAee-eZl&uoai0LRlNxoxOddyRRD"NRu&-oo-Aev—AgeRlskAes-ouwl—diAePo-lvPo—- —&& :ioRy£m-Dg(-L p\_(S6R”TeY8o-.Ll.4]“w.0
coo3d RwemRuRemlcwlm:Bmalzmlmal0meflimlweOmdwzmsdow83y3BmwNlm35
o

«&

s &&«

$TSTNM

5<0#

10=37+

13-20~

19-6

196+

19<6+

19-7

SEQ 0284

U58AT352E2R3T3o2PL30ITt3e8R22T33.—ToLmb’ym0«123s“5wummowmmwwm-mwA44&.l..4'/l.44=44m-soW3XemsH3nfiw”
Wwmao-

—

L&)

V2o]NTN2T NN22TT8500N2TN 2QN’68QN[2[NQW2[aV
N2ON2 2 2 2 2 2
2222222
AALTR
aA23e~LY
iRadetle

oANU Nlol()ololol[NoNlILl AM-—-—rS| &1e+1d1I:111[11111 ~-r>o

Em]m3E¥BwNAE—nTZ4LX3]7uR,oJWworoloi[[e«WTa«sn*f—TwRoh2oolwNw:%on—lTWSltFfNymoO%VoT—YNTcsilIlIouNSeo\TNXmAEP-ol2I3wwEofYN—cd3Jl%STRl.o—TNV"AdwNlawnTeBI&o—oQ:uYllcSdyITaoosNTsS%lU1NNlcAtgnoPRAew=MmV.IlTENIeRNoida5”VdAnlTIdGmNes7[NgLLOVfoILuMNlsVmyWPwLmiu9znnrnzWoM-1gs1ou1C%EW84B1¥2lVio5at?3bio5zeo5=nsRzoiienAw,nCnr{ao2So%H3">.gra>es@aLT%Ede$a%]WaNAeNos?«3—KoosYoE,lda-(teM$Izo%lSao£Tyo¢-o—d>]tgtn.o>.W8v\~“w"nuat&.o;3—>S@J.bJu
umn.mmmwm
o~

1G] w wm ~N

7
SEQ 0285

12=U27#4

12=U27#8

12-U57

12=U57#

12-U57#

12-U9

SEQ 0286

7
C
12-1T98#
12=027

mmmmmmmmmmmm

12-T98#4

12-798

mmmmmmmmm

12=T69#

12-T65#

TMmMMm mmMmmmmmm
mmmmmmmmmmmmmmm

12-169

12=T464

CZRMPAD RMO5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

12-U96H
12-WSS
12-\0%

(CREF v01-05 )

12-U9%H
12-WSS#
12- 00

AENV

12-kSO#
5-0

12-KSOW
5=0

ALL

9-121

20-4#

AENWM
AFATAL

5-0
5-0

AMADR1
AMADR?
AMADR3
AMADRG
AMAMS1
AMAMS?
AMAMS3
AMAMSSG
AMSGAD
AMSGLG
AMSGTY
AMTYP1
AMTYP?
AMTYP3

5=0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
5-0
§-0
§-0

AOE

4~7768

APE

4=959#

AMTYPG
APASS

5-0

MACRO v03.01

12-V32K
12-X00
12-_00#

12=V32#
12-X00#
12-c06

12=V52
12-X00&
12-cO6#

12-VS2#
12-X70
12-c06#

12-V52#
12-X70#
12-c74

12-VB5S
12-X70#
10-c74k

12-VBSH
12=Y47
12-c74#

12-VBSH
12-Y47#
12-g76

12-697

12-726

12-N18

12-556

12-S60

21-77

21-78

21-81

19-12

19-12#

12-v76

12-VBO

12-V97

12=V99

12-W22

5-0
5-0
5=0
5-0
5-0
5=0
5-0
§-0
5-0
5-0
5-0
5-0
5-0
5-0

5-0

4=787
-0

19-12#
19-7
19-12#
1912

ATA

4=7568

12-V12

12-V43

12-V64

12-V6B

21-71

21-72

21-73

21-74

21-75

21-76

9-149

10=11

12-vV06

22-3#

12094

12-[95

12-[96

12-529
12-916

12-531
12-924

12-534
12-936

ATESTN
ATNMSK

12-289

5-0
4=793#

12-W06
12-Y47#
12-g76#

12-WO6K
12-\09
12-g76#

21-82

21-85

21-86

12-W45

12-W77

12-w81

12-W06H
12-\09#
12-k50

5-0
5-0

5-0
19-5
19-5
8-19
19-5

SEQ 0287

12-V32
12-W55#
12-_00#

APRIOR
APTCSU
APTENV
APTSIZ
APTSPO

ASWREG

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

5-0

12-163

-0
12-V07

19-12#

12-165

12-'74

12-'76

21-58

21-59

21-79

21-80

21-60

21-83

21-63

21-84

21-64

21-67

12-[97

12-[98

12-[99

12=\00

12=\01

12-\02

12-536
12-:14

12-577
12-;57

12=-641
12-:67

12-724
12-=40

12-732
12-=89

12-813
12->54

21-87

12-287

21-68

21-69

21-70

12-821
12-718

12-834
12-318

12-887
12-a79

21-88

5-0

12-181

WWWWWWWWMMWWLL0L)LLLGLULALLLLSU)LLASLLAA
12-A37
— o < ~ o0
i

-— o -— 00 L

v w o oN

CZRMPAD RM05/3/2 DSKLS TST 1

11-APR-B0 13:58:55 PAGE S-9

4-688
4-688
4-688
4-688
4-688
4-688
4-688
4688

SEQ 0289

4-688
4688

12->65

SAVJBN] ASoERVtXN RAdaNV]U)L

— sTOoNO0N 5-—

.. N

BITO9
BIT

[

BITO4
BITOS
BITO6
BITO?7
BITO8

OnNNOINNWNNO 0Nu—0n—Ou0Nn0.oNe ~o—

BITO3

=gMNN=MMCNUM MN

2OBNC9OC8OG7ON7“3a[}O5ON4ON‘¥O

gO00000000
&ON—0X N NNAAA ANAO
mmnnenn

BITOO
BITO1
BITO2

MACRO v03.01
(CREF v01-05 )

]OoNVWdNO NSNOENRGOENS0EAOGWAONACOCAROGAORN.
e maEEEREERERE
GTON0NGM0NGME0N00AET0D ONE\MON~EGO0 GN0 GBONG0
gs(LVdLaAlaAtN-A A O4L)A OA AUL
gTNV ANooA eA(Be ~ ~o

CROSS REFERENCE TABLE

14-96+

14=107+

14-155#4

12-155

12-993

12-h37

-—

12-i23

12-i85

— s w[+o]

4-688#
BOTADR

BOTFLG

BPTVEC
SE

BUFFER
BUFONE
cC

FTWO

14=72+
14-58+
4-688#4
4-881#
12-S39
31-2#

14-90*
14-100*

14-93
14-103

14-108
14=-106%

12-k63

31-1#

31-5

L(-8734

12-[93
12-88
12-b96
1%—m51
1 -[93
12
0
12-m58
12-m94

31-3#

12-87
12-b92
12-m50
4-8748
12-g39

12-m57
19-6

CLR
CMNSTA

CNSLOO
|CNSLO1

NSLO2

CNSLO3
CNSLO4

NSLO5
NSLO6
NSLO7
NSLO8

6-0#
15=27+
4=-9464

8-111
9-11
9-55
9-63
9-67
9-79
9-83
9-100
9-113
9-22

19-7
12-K47
15-39+

8-82
9-18

10-47
10-2#

18-10

9-35

9-50

9-144

20-10#
20-11#
20-12#
20~-13#
20-14#
20-15#
20-16#
20-17#

14 =-153#4
14 ~1544

20-20#

12-j71

12-'04

15=13+

CNSLO®

20-21#

SEQ 0290

NLYAomC.vWe‘welrh.VNL-lD.!lL.“(%)DO1NIP3CN*NVHAYL~ZWM\CP-RJ*.*Z(C\G*]*A[mNOO~m~%—IN9OsNmM
-T
Tr
E
ItOVN—T]HVOWTTNNMOT—NOLMTNAU¥TVTITSPNITN.7NNYTWTNITNv——NMPyTTMNWNOe)TTteNTANTeITWOeP4NTNNTTeeUNT1QTTNNN—AOeTeoNMTNLOTNT=TQLOTNNTTLOe[NNNT$[NTeeN-OL=tepLVIFL1NT0YePNvLNt

gN——N———NT-TM4PO7e1e57T3T0”T7=2%g“1P0“o4gP7P6PI—nMgN.UM7“F6O
XVLlWY\.

hOO3e~NNW''y6OOeINND2T-0i0a2-NNNRNEA—COEOIM4M—2MYgEO—2ILeOOIALE=NRPGyTlO0NMWPV20eAE~[INStMbMRNTihR)OO2MNOMIEN®OP2+AT—OAOT=LNU¢P2~II+—y.2OD—RI\~N2DOL—OI0JINETNF~—MN20—OrTO02O¢ON2©OTNMoR<—P3IO2N=eOA3NeTVO2%OTeOOOUM0—oRR)OWVMo2OAINGOTNe2OrWA—T00POMWTOoNEmeONNNN%V200Tr—YOR—PON3V2SOTM0rIRA-TTNN4OTAe~TTbP
CROSS REFERENCE TABLE
(CREF v01-05 )

MACRO v03.01

NANI
—NTO—WNnPyMANWINTOO~r—MIONNT—VNTONN

CZRMPAD RMOS5/3/2 DSKLS TST 1

¥.9yUMN—OON
}MO
TQN[—QN oWQYWi QWOL-A—VO
—_TNrT—QrN—eoV—oIV SL—oV
¥OONONIMN
——N———
-Oye—ine—N
Ny
U
-OOoIy
————
VOO000
NG0 N~— X07—.
U
O X7
-NONM
—
—
NNy
1110\IONI
——NNy
——
-B

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

28-147

12-L15

12-

LAv 972”320
e—

SEQ 0291

20-6#

28-148
28-149
28-150
28-151

#—ce— I NIy

28-152
28-153

BgdJdWWvWWWWWWWWDWUWLWLWS—_
DDISP

4-688#

5<0

8-19

SEQ 0292

ORW—~TNo3@nAXNNk\5D1-%~~=N£—~T%oS=e%C—N—NO—<N4e-U*1—U”Ni'0anlN9V3"NalN¥-OMUf~]L]9~~NT6l)ONN1cAT”ffib0i.’J2Noai5W-|9.lb0?4.itO0oN—5T.8—NLCr%VI59XO1”VmT-R“ffCvV7=”m0U81iRrhM~iyd%T3.59auN—DLMfOelVw753To%9\EOVh«I.b0.T3.227)SClfDLu—Ol8rfTW“h2Rc.OiNLlVm.7l50TOB2f.1frTxNOL&—15N—l“JVl-T*0Ik”mN3NOWD5|IO‘OT30Ol6w8”U}1¢VP[t”3“3TT7I%bP»+TM8”N0OEH*MmAfST33J1JJV7¢8W3vOSlCW.T.Z>O.0t”2=79NXN1SQQr*h>TRVL47“O%ZNVS0Sf7N\VOLVl.7%“NVV8~q6-W=0YvZLJVYYMZ&5T5.3.AZIM\.ZZT“M”4LfNn07CEJF\|E[f\TL44“l.3CmLa\A4JJ.s\NIW94Jfs8LJJA3QaliNn9—:AL6FI'N>TWHMC&L%AT]N.WNAM“**o4D=ELC7@AP~NONB¢GIz9>IE*9NAIJOam5K—In&CLNNMTOAI6N*1AFN~L—DO“..n6oB1%TLO.—WWQN1HGvN2%LCGM8—.7ATMO0M«fA*O54L=®JA9lCONLCTHenC.OoE—I%ov[%N[a,3an—¥=L]
CON=N= N .NOVCON v~F0MGOW00M)O\v=NO\vOWNINVO=7~MOUN-FMO— &M
—e}[+ -o oM —— wa.3 -- )! J! |] 4i 0 ©UR0M1NO1A0NVeL—0OFUIMA00N0WNM00O00N00NeV0O0T—MS0=0N0WeOS00=MRTe~ON0T0MNB0OORTO11IRNoi0M1MOVIoF1NNOB1Oi1INeoTOoAoWT~ONeeMT)=eOe[I]TNeeNOMOAeeNNeeOTeeVO0ONeS
H] UMe=e=MWNO]NINNU—_0 UOMMOWNWV )baledal

N~- [~-aN"—] Y2=220N22=e2AS0N2P0202012112AO2TT2oNe2ee2

vTcVLMN=1oPa)oloa¥v‘PaVSY]2O2-N-N-~AIoNOHbiR(lNTONN--TNOPMooN[©cNMANgdyIIna[l|1¥No-N1VoN0ga®.d—o0dylI¥P]LMt|oNRoNlIyOIooG1NNB-PdlOeR[aaoyNegON—o-aVd[dI)T¥=s1o~y~2NMaoRloiL rdSI"NN.]V|LoONP2NNNooNLoNNB—]l~|2ORoUTNoN—Ol2oRTl|2VVNe))[TI2V|]VVXV2OML—o-RT)))TRVNIVVMVVTo,NNTTTTe0e0lIo-NV2VoVNTVNoTT—0lTTNDeOOlNTFToVVNT8tNT1—NTlBeOALPG0T2VNTMVNTooNTTTITNNelSolIO—NNTVUoTOrlWTWN3TATPoNQNMlSiO1eoOT2~RVVoVVooTNT1TNTlNeTIll0MTTNVVVoAooV—6WNTNTTDlNlOO01T)N0l2rTVVVoToOP—NNTWTMPTll0=00oNSTToOoToVBTN6OBWNNeNMlWlTl00o20NNTT=eoVd“TINA=olNWTl0OW0NoMsTeTVTe09OnTNooNTWlNObN00W2FsTeTVVV7OOOOANTldToTTlN0NR0WeTTgITTV1TMWfNNNolTD00M20OoTMbiTToToTTSUQONNVNNNll00lTNv0NNITGNTTTTV1NoIN.dWNNWTO0T0lD20ooTOTzTeTfVNoRQNTO~NNNIFPT1lF00.lNVeTTT0QoOAWT[N=TNNN0l2(OolV\TTTTeTf5NITNQNNlTFO1H0NO0]GTNTNTToT3Po3N[L—NdTaTLTNLol[[l40NTNNNNT9eT*o5—s[OLNNloL‘TTTWNlNNL.lo[TA2NOLNQNNLWlPTVLlN!osNTCT4OOQRNTNdLeNeLfTTRI]PTNV3NNUTOoTeFnol‘QLT1NNlNloPONN7NNH1olTJLT0—NLQOLNlNN“WAPTN5L[N0oTgMTLVB8QlLkNTNeeT0[oPO9NONCNTNT*To5MagsoLLL“NNe<1dOPTV[NNkNNlITOQ5LlTeW‘LM%LeLTPLT[NINWNNNIL“on1L02g0TLQllIeTMaPlNg0YVkNVA5MOI78lL“LeLLNNoTaoLBoVVYRNaLMoNN2l[JR(oNo¢“Ié3—-I7}x=UV[a[9~woLg‘-oooG~O —-~"¥N!ic1i1 i1 vaN—]=F)e:
o-~— -— VTVTVTFVT00T0N0TN(T0NN0VT0TNTN0T0TTNOTN1TN1LLNLoNNoTNoTeeNLTeNeLNeLNLeV
J

CZRMPAO RMO5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

}
Ey

7
MACRO v03.01 11-APR-80 13:58:55 PAGE S=11
(CREF v01-05 )

SEQ 0293

)MMMMMMWWMAAWAAAAAAAAAGAWAAGWAGGLLBGWGGGGNGGWWWWWAAAAALATT
ED2
262

26=7
30-2#
SEQ 0294

e|7A9oA%%73eA&MeA77NOeNTNn2=“S3e79Ae®&7MNeSNGgo3A®eS7&SbA>-M74W1NeSNS2”%NAWM70&~mN3M34725P1077%RA27O8N174GNR“081&SO%12507”R34S926“77NAA23”427R9ON“AD35“01SM7%‘6047D%R2N5“8”O6‘&5A7R-W”“N%7AS8&NBeS&—eOb2OBO69b32Lo%eN36MNeOA0%bS2=7eO“7bo—D&O91N97“bA=ANM3I&SASRN¢MON75D=A4%BANNS2—7ATOeBR&=%oANeAN0U37—AOWRN=n#NDOR0SPUT%B97ANNMNIOR81SMJRN067DTTGASW”ONDIAnS7UN2T57oEd%ab7dnTedSW>mh~&.2ooE<»
W_ NYy~N~ANo~Ao~P~RNSRWoR~MA3=YRRWANOTNRAO20NRn8NR4B1ORNrRBRCMONPRNNRA“[NRMV)LNYWVTILO)MVTGV)A)~PNNL)~)NA~LR)~NoR~NAYMS=oeWLANCBMOD01ON5NIENO2\meD05O4NN<IN0DM5[yNAwMSMNwM2&-aeIo%~dC~)
"m. YTNNNTOYNNVAIYNNMEDN YNPTOINNTNVINTNENYMNTTN
—NMOTRONA Ne—e—=UM M—M NRe—O0UMJRTIOnIn
A ANAAS

'i NAo3.NR)RyR—NM0(ROee=0=AO=M0NNeUM—M=ONIOJRTFeTNI—NNuINn" =ANO3MyNM0NRReeT=e——eNNRR CO—NNUMCMeU~NO—MJ=M—NIJTITTNNIWNWNON(eIRn—NTnIN Y—a

oW---S.eRMoT5=RB-2~o9~T)oNOITNRBOT1eNNYRW~77AoMTNNTWATsNSNTnTNoAeORNYOP9AOEMN2RyTAOONrw[-— P~MSAINTN0OTON8.IA3TNNYOO3FAMII—OVRN1OnSAoINNMsS0TSTIRAOO1INS—YNM.NmSiYNRxireoEYN~AS~eOM50B4oNOo7~A'NWINSsNO?O~YWoNNTiO7NNToNNBYNA\0IOJOOMTO1W?NCO[YAOQ ~"Aa—T)ToLSMS~POORY0TMVYR2IRI—YOTEEYOIMI0AYVIOweNSOnAEToMO0MnTA—OEY0TRS\I[YNGaYaYNWaYaY=Y=)[4T PM“%]2]aO O~o-P M--T o<.N
|

=38

@v
4

~
SEQ 0295

7-409

7412 |

7-409

7-412 |

EH132

25-1

29-18#

SEQ 0296

CZRMPAQ RMO5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

EH142
EH145
EH150

25-12
25-13
25-14
25

N 7
MACRO v03.01 11-APR-80 13:58:55 PAGE S-13

(CREF v01-05 )

SEQ 0297

29-20#
29-22#
29-25#
29-34

7-82
7-127
7=190
7=247
7-322
7-385
7-473
7-524
7-567

EHTIIS
EHT130
EHT132
EWT142
EHTI45
EHTIS0
EHT2
EHT213
EHT220
EMTS
EHTS7
EHT65

7-232
7-265
7271
7-292
7-304
7-313
7-6
7-418
7-433
7-15
7=142
7-160

7-241
7-268
7-274
7-295
25-13#
7-331
25-24
7=421
7-436
7-18
25-5#4
7:123

7-85
7-130
7-196
7-253
7-325
7=479
7-527
7=570

7-250
25-10#
7-289
7-415
-

7-337

7-370

7-400

7-406

7-467

7-470

7-482

25-144

24-330

24=365

24-381

24=401

28-164

24-248
24-168
24=170

24-345

28-4u

24~383

24=403

28-204

7-464
7-439
25-34
25-6#4
7-193

7-202

7=211

25-7#

24~392

28-234

24=199
2
24-60

24-203

264=271

264=276

26~292

24=297

24-318

2464

24~66

24=221

24-223

24=342

28-65#4

28-634 |

24-49

24=79

24-81

24-83

24-85

24-88

24=91

24=94

264=221

24-223

28-66#4

eSSewwiusiwoWwiwiwWwiwiwwiwwuwiwiuwiwet

EMS252

“

SEQ 0298 |

CZRMPAD RMO5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

EMS254
EMS255

EMS301
EMS302

24-49
24-68

24
24=239
24-4
24
24=110
24-4

MACRO v03.01

(CREF v01-05 )

24=142
24-70

24-243
24-6
24~64
24-113
4~6

11-APR-80 13:58:55 PAGE S-14

24-148
24~73
24=101

24=170
264=205
24=271

24-184
24=116

24=370
28=71#

24-322
24-192
24=241
24=19%
24=52
24-248
24-10
24-66
24=116
24-8
28784

28-734
24~288

24=177

24=213
24274

24-184
24=271
28-69#

2419
24278

24-386

24=416

28-25#

24=405
24=269

SEQ 0299

28-674
24-286

24-408
26=293

24-49
24=211

24=292

24-299

28-26#4
24-338

28-5#

24=124
24=345
24=44
24-9
24-184

24=127
28-754
24=47
24=94
24=194

24-136

24-187

24=211

24=49
24~ /8
24-225

24-58
24=101
24-267

24-60

28-68#4

24-104

38-764

28-81#

24-90

24-93

24-100

24-103

24-112

24-115 |

24=142

24-148

24-155

24=179

24-177

24-184

24-113
24-88

24-110

28-94#

28-964
24=292

24-303

28-97#

24-334
24=261

24-379
24=314

24~397
24-316

28-100#
24-324

28-101#4

24-353
24-386
264-192

24-369
24-405
24=221

24-378
24-416
24-231

264-394
28-104#
24-252

24-381
24-173
24280

24=401
24-180
24-284

24-416
24-182
24-288

24~201
28-107#

28-88#

24=101

24=271

28-103#
24-254 |
24-203

28-109#

SEQ 0300

TM A e e e e N

24-135

]ReRKRRRRRReeRRRRel

EMS342

PeRgToByg

CZRMPAD RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

MACRO v03.01

(CREF v01-05 )

E
8
11-APR-80 13:58:55 PAGE S-15

SEQ 0301

EMS344
EMS345
EMS346
EMS347
EMS35
EMS350

24-135
24-138
24-138
24-142
24-207
24-160

28-110#
24-140
264-144
24148
24-247
24-162

24-215
24-151
24=155
24-252
24-166

24-286
24-158
24=170
24-256
24-168

24-303
24-173
24~177
24-263
24-308

28-111#
24-180
24=-1B4
28-324
24-324

24=215
24-194

24=282
28-1134

24<284

24=342

24-347

28-114#

EMS353
EMS354

24-189
24-197

24-229
24=199

24-235
24-223

24237
24-229

24-241
24=233

24=245
24=241

24=250
24=245

24=269
24269

EMS356

24-328

24-330

24-332

24-399

28-1204

EMS36

26211

24-225

24-231

24-233

24-235

24-237

24=261

EMS363

24-219

24-310

24-312

24-324

28-125#

EMS365

24-223

24-229

24-235

24-237

24-241

24=245

EMS367

24-229

24-235

24-237

24-241

24=245

24=269

EMS370

24-235

24-358

24-374

24-390

24-406

28-130#

EMS372

24-252

24-254

24-258

24-326

24-338

EMS376
EMS377

24-316
24334

24-318
24-338

24-322
24-342

24-342
24-351

[EMS401

24-336

24-343

24-347

24-356

24-376
24-376

24-383
24-383

EMS405

24-349
24=395
24=349

24=354
24=397
24-365

24-356
24-401
24-381

MS41

24=219

24-221

MS47

24=254

MS501

24-5
24=42
24-80

EMS402
EMS403

24-385

24-351
24~351

24-286

24-288

24-320

24=322

28-112#

24336
24=290

28-117#
24-295

24=297

24=299

24-338

28-118#4

24=326

24-353

24-358

24-362

24-369

24=374

24-378

24-269

24=334

24-336

24-338

28-127#

24-336

28-129#

24-342

24-347

28-132#

28-136#
24-360

24=367

24=376

24-383

24-392

24-403

24-418

28-137#

24=372

24~388

24-395

24~403
24=403

24-412

24=418
24-418

24=421

28-1404
28-141#

28-13%

24-358
24-406
24-401

24-363
24-408
28-144k

24=365
24=410

24=370
24=412

24372
24=414

24-374
24-416

24-379
24-421

24-381
28-143#

24-386

24-388

24-390

24-223

24-252

24-254

24=258

24-332

24-334

28-364

24-256

24-259

24-269

28-42M

24~7
2445
24-82

24-9
24-48
24-84

24-11
24=50
24-86

24=14
24-53
24-89

24-16
24=55
24-92

24-18
24=57
24-95

24=20
24=59
24~97

264=22
24-61
24-99

24=24
24-63
26=102

24=26
264-65
24-105

24-28
24-67
24-107

24-30
24-76
24-109

24-32
24-78
24-1M1

24-390

24-360
24-360

24-394

24-367
24-367

24-410

28-33#

24-392
24-392

24=134

24=145

24=147

24=152

24=-154
SEQ 0302
PO

24=132

g—

24=130

= g

24=128

ree

24=125

24=123

==2=2=

24-121

24=119

e B

24-117

24=114

CZRMPAO RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

24-159
24-226
24=270

EMSS02
EMSS03

EMSS04

EMSS0S
EMS506
EMS507
EMSS1
EMS510
EMS511

EMSS2
EMSS3
EMS54
EMSSS
EMS56
EMS57

MS6
EMS60
MS600
EMS601
MS602
MS603
MS604

EMS605S
EMS606
EMS607
EMS61
MS62

MS63
EMS64

MACRO v03.01
(CREF v01-05 )

24161
24=226
24=273

24=163
24=232
24=375

24=313
26-364
24=5
24-50

24=315
24-346
247
24-130

24=317
24-348
24=9
24-132

24=143
24-183
24-260
24-346
24-377
24409

24=145
24-185
24242
24-348
24-380
24411

24=147
24-188
24=244
24=350
24-382
24=413

24=5 _

24=11
24-198
24-298
24-7
24-107
24=109
24=267
24-291
24=5

24-34
24-67
24=102
24134
24-165
24-198
24-226
24=255
24-085
24-315
24-34h
24-375
24407
24-280
24-290
24-292
24-301
24303
24-308

24-124
24-308
24-272
24-280
24-282
24-320
24-349

24-365
24-381
24401
24-312

24-314

24-322
24-338

249

24=14
24-200
24-300
28154
28-155#
28-156#
24284
28-1574
24=7_

2%=37
24=71_
24-105
2-137
24=167
24-200
24=228
24=257
24=2B7
24-317
24346
24-377
24=409
24-282
24412
24=295
28-484
24-305
28-514

24-127
28-5o4
24-274
28-1624
24-284
28-164#
24=351

24=367
24-383
24=403
28-53¥

24-316

24-324
2B-564

24=11_

24=16
24-202
24-302

24=165
24=~234
24=2B1

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

24=167

24-169
24=251

24=220
24-266
309
24-337

24=319
28-1504
24=11
24-134

24-30

24=14

24=149
24=190
24=246
24-352
24-384
24=415

24-139
24-178
24-236
24=-341
24-373

24-396

24=34
24204
28-1534

24-404

24=71
24~268

24-89
24-289

28-4ik

24=9

24=11

24-32
24=65

=40
24=7h_
24=107
24-139
24=189
24-202
24=230
24=260
24=289
24=319
24-348
24-380
24=411
24-286
2B-46H
24-297

2%4=42
24=76
24=109
24=141
24=171
24-204
24=232
24=262
24=291
24=321
24-350
24-382
24=413
24-288

24=415
28-454

24=299

28-474

24=306

24-342

28-49#4

24=129

24=131

28-8#

24=276

24=278

28-1614

24-356

24~358

24-132
24-163
24=195
24-224
24-253
24283
24-313
24-341
24~373

24-404

28~1634

24=354

24=370
24-386
24=406

24318

24-326

24-372
24-388
24~408

24-32

24-328

28-1654
28-1664
24=397
24=416

28-1674
24-418

24-421

28-168#

24-336

24-356

24=372

24-388

28-554

EMS6S

264=340

24-343

28-57#
SEQ 0304

CZRMPAQ RMOS/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

EMS66

EMS67
EMS?7
EMS70

EMT1

MACRO v03.01

(CREF v01-05 )

24-%47
24=379
24=127
24=421
24=34
24=17#
24=1424
24=1444
24=1464
24-1484
24=151#
24=153#
24=155#
24-158#
24=194
24=-160#
24=162#
24=164H
241664
24-168#
24=1704
24=173#
24=175#
24=21#
24=1774
24-180#
24-182#
24-1844
24=187»
24-18%#
24-192#

24~237#

4=349
4=397

28-9#
28-614

24-354
24-414

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

24-365

28-55#

24-370

24-381

24-386

SEQ 0305

24-399

24=401

24=416

28-58#4

EMT15S

7-328

24-23%#

SEQ 0306

CZRMPAD RMO5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

EMT156
EMT1S7
EMT16
EMT160
EMT161

7-331
7-334
7=43
7-337
7-340

MACRO v03.01

(CREF v01-0S5 )

242414
24=294
24-245#
24-248#

K 8
11-APR-80 13:58:55 PAGE S-18

SEQ 0307

EMT237

7=479

7-482

24=3454

SEQ 0308

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

EMT24

EMT240
EMT241

7-61

24=3474
7-485
7-488
7-492
7-495

m 8
MACRO v03.01 11-APR-80 13:58:55 PAGE S=19

(CREF v01-05 )

24=44n

24=345#

SEQ 0309

EMTS

~ -v
U

o~ 5 —
!

wv w o o LA — o

CZRMPAOD RMO5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

7-139

SEQ 0311

24-88#
24=91#
24=94n
24=96#
24-98#
24=101#
24=1044

24=113#
24=-116#4
24-118#
24=120#
24=1224
24=1244
24=154
24=127#
24=129#
24=-131#
24-133#
24-135#
24-136#4
24~138#
24=140#
8-19«

8-19+

12-D%9%
1448+

12-D98
14-51

8-19+

12-E04
14=55

12-E20
14-60

12-E45
14=152#4

12-E46

12-L61

12=-<27
12=<97%

12=<28*
15-6

12-<29*
15-7

12-<35+
15-8+

12-D22

12-D24

10-24
19-10

13-20
19-10

12-<69*
19-6%

12=<70*
19-6+

8-19+

8-21+
12-<88*
19-6%

8-22*
12-<89«

12-<26
12-<96+

12=-a91

12=c44

12-¢c49.

12-k09

12-k14

12-697
12-822

12-726
12-841

12-B61

12-B63

12-C63

12-C65

12-N18
12-F 26

12-R16
12-G39

21=554
12-6G67

12-H90

12-104

12-169

8-6

19-10

8-25

19-10

8-39

19-10

8-50

19-10

8-56

19-10

8-57

19-10

12=<36% 12-<40* 12-<4l+
15-9%

15-25+

15-45+

12-D75

12-D77

12-E34

12-PSO

18-17
19-10

19-10
1910

19-10
19-10

7-130
7-133
7-136

(CREF Vv01-05 )

7-121
7-124
7=-127

—

EMT50
EMTS]
EMTS
EMTS
EMT54

MACRO v03.01 11-APR-80 13:58:55 PAGE S-20

19-10

SEQ 0312

Y LIS

19-10

e e

19-10

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE
GO

HCI
HCRC

HELP

IAE

4-857#
4=7774
9-37
46884
4=775#

21-81

4=919#

(CREF v01-05 )

12-=06

12-=10
12-G88
12-N03
12-176

12-C39
12-H88
12=N92
12-U34
12-[45

12«_76
12- e20

12-D01
12-107
12-021
12-U67
12-[63
12-°00
12-e80

12-726

21=77

21-78

21-81

21-85

21-86

12-R15

12-R17

12-R61

12-R63

12-505

12-697

12-726

14-81
12-697

19-5
12-726
21-85

19-5
12-Q40

21-82

SEQ 0313

12-898
12-H84
12-N53
12-U05
12-L31
15~ 56
12= e00

4-787

31-7#4

D 9
11-APR-80 13:58:55 PAGE S-21

21-86

12-507

21-59

o.Nlyn.%lsw“n6on

IDXMSK

&-700%#
12-G81
12-M17
12-S40
12-264
12-*24
12-c18

MACRO v03.01

ILRG50
ILRG52
ILRG54
ILRG56
ILRG60O
ILRG62
ILRG64
ILRG66

ILRG70
ILRG72
ILRG74
ILRG76
IOTVEC

IPCKO
IPCK1
IPCK2

4-9164
4-916#
4-916#
4=9164
4=9164
4=916#
4=9164
4=916#
4-916#
4-688#4
4=965#
4=9684
4=9674

N Ne—

12-H36
12-H39
12-H42
12-H45
12-H48
12-H51
12-H54
12-H57
12-78
12-646
12-Q25
12-689

12-93
12-64R
12-R29
12-718

12-111
12-649

12-124
12-664

12-165
12-668

12-<14

12-<49

12-<53

12-<81

8-19+

8-16+

21-78

20 N

12-J64

12-H33

12-136
12-J68
12-J72

12-G05
12-H30

21-77

wvmoo

4=731#
4-7324
12-635
12-Q00
4-7844
4-9164
4-9164
4=916#4

-0y
N~

ILR

4=720#4
4=720#
4=720#
4=720#
4=7204
4=7204
4=7204
4=7208
4=7238
4=724N
4=7278
4=7284

-0y
NM

ILF30
ILF32
ILF34

NNy
S5SS
VN eAN

ox®
NN

bgtywJdLe 3203 —N- TT
o

21-69

[aVaV¥] — I\

o - O[+
o]

o - No

o- N—

N -— NN

N - NM

o -— N

12-189
12-E92

12-221
12-G33

12-237
12-H60

12-430
12-H83

12-434
12-Kk22

12-619
12-M16

12-622
12-M85

12-632
12-N32

IPCK3

4-966#

SEQ 0314

CZRMPAO RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

LBC
LBT
LCLOCK
LCOUNT
LF

LODEV
LS
LSC
LST
LSTOP
LSTRK

MCLK
MCPE
MDF

MDPE

MI
MIXED

2PRERepsy

IMOC

SDRVS

SER

GD!RV

(CREF v01-05 )

4=9454
4L-884n

12-13
12-892

4-886#
4-7614
15-27
15-29
4L-6884
28-154
8-76
4(-8384
4-885#
4-835#
15-28
6~On

12-900
12-D51
15=55#
15-69#
14-79

21-69
21-83

4-8124¢

4=927#
4-8178
12-b02
12-f13
12-k34
4-9434
4-820#

23-4H

4(-815#
12-[85
12='40
12-ab1
12=-¢c13
12-d03
12-d96
12-147
12-h88
12-&41
12-k98
L=B4LTH
4=759%
4-B41#
4-813#
4-818#
L8214
9-116
4(-893#
4-816#4
12-h81

8-95
9-27

4-8144
e 12-153
12-M21

12-014
12-034

12-552
12=-Y07
12-261

12-34
12-913

F 9 _

11-APR-80 13:58:55 PAGE S$=22

SEQ 0315

21-70
21-84

21=71

21=72
21-86

21-73
21-87

12-K13
21-74
21-88

28-155
20=24#
12-820

28-15¢

19-5

19-5
28-157

20-14
28-158

20-16
28-158

12-913
12-849

12-K40

12-K55

12-K57

10=53+
12=d76

12-812
12-120

1€=C33
12-h88

12-(82
12=-j41

12-D35
12-k33

12-P40

12-R36

12-524

12-918

12-781
12-d42
12-f21

12-206
12-d43
12-h88

12-210
12-d50
12-h89

12-211
12-d51
12-j29

12=\76
12-d68
12-j33

12-\bV
12-d69
12-j34

12-\81
12-d76
12-741

12-_67

12-_71

12-j42

12-k21

12-892
12-B39
15-83#
10-45+
12-d50

12-:48
12-240
12-d38
12-120
12-'46

12-830

12-J96

12-K11

2 =58
2 -75

21-59
21 -76

21-60
21-77

21-62
21-78

21-63
21=79

21-64
21-80

21-67
21-81

21-68
21-82

28-98
28-159

28-147

28-148

28-149

28-150

28-151

28-152

28-153

12-g20

12-923

12-k57

12-_72

12-a97
12-108
12-k26

12-b01
12-f12
12-k33

]

12-d95

12-d%
12-k25

12-a67

4-841
12-135
12-"49
1;‘.70
12=c22
12-d23
12-e15
12=-f71
12-h89%
12-{42
12-138

12-=85

12-296

12-=98

12-'62
12-'61

12-'62

12-763

12-a24

12-344

=94
12-183
12-M63
12-024
12-R08
12-589
12-Y54
12-269

20224

12-377

12-280
12=190
12~ 68
12-b02
12=-¢57
12-d51
12-103

12-b01
12=c42
12-d50
12-102
907
12-152
12-k06
12=-m27

12-179
12-k07
12-m28

12-L60
12-'39
12-aé0
12-b66
12-d02
12-d95
12-121
12-h54
12-&14

985

12->17

12->21

12-[36

12-[40

12-[41

12-*15

12=*19

12-*20

12-a26

12-a30

12-a31

12->19
12=-J92
12-M67
12-058
12=-R09
12-U66
12-Y61
12=274

12-E71
12-k08
12-M68
12-061
12=R50
12-U69
12-Y62
12=275

12-F0Q7
12-k09

12=F 34
12-K73
12-N10
12-094
12-R95
12-v38
12-201
12-(03

12-G27
12-K93
12-N43
12-095
12-R98
vé
z

12-G64
12-K94
12-N56
12-P54

12-G65
12-L14
12=N57
12-P56
12-533
12-W70

12-h76

12-h80

egT Te

IR
IvC

MACRO v03.01

12-N01
12-062
12-R54
12-U70
12-Y92

2-280

S
-W71

-230
[22

12-101
12-L54
12-N9%
12-Q23
12-546
12-X10
12-238
12-023

12-102
12-M04
12-N95
-Q33
12-S51
12-Y04
12-239
12-(3%6

12-[40

12-[41

12-[60

12-[84

12-(85

12=\19

G
12-\28

12=\29

12-\60

12=\70

12-\71

12=\76

12-\80

12-\81
SEQ 0316

CZRMPAD RMO5/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

NOTAVL
NOTPRS
NSA
0CC
OFD
OFFSET
oM
ONES

ope

L=942#
L-787#
{-93%#
4=9404
4-704%

8-88
8-85

4-845#
4(-825#
4(-858#¢
4=710#
4-7664

23-21#

4(-8834
4=7728
12-'16

21-63

PACACK
PAKACK
PAR
PAT

PCLOCK
PCOUNT
PDA
PHA

1P
PIRQ
IRQVE
CLK
FS

2
3

21-77
4=944n
4-7144
4~7134
4-782#4
L=9478
15-13
15-15
4-8324
4=9414
4-7624
4-833#
4=7584
4-688#
4-688#
15-53
4-830#
15-81
4(-6884
4(-6884
L-688#
4(-688#
4{-688#

8-86

12-9

12=25

12-F57

12-F61

12=J12

12-913

12-h16
12=Y76
12-d07

20-26#
20-25#

H
9
11-APR-80 13:58:55 PAGE S~23

12-X58

12-X62

12-30

12=44

12-Y78
12-d09

12-245
12-h14

SEQ 0317

1
1
1
1

12-892
12-705
12-c60

12-735
12-c65

21-64
21-78

21-65
2179

21-66
21-80

12-K70
4&=714
12-689
12-:32
15-51#
15-68#4

16-19
12-F89

12-:41

16-28
12-J48
12-768
12-:44

12-738

12-788

12-U17

12-U46

12-a75

. ~a85

12-287

12-A02

15=57#

15-85#

8-23

12=766

21-67
21-81

21-68
21-82

12-A06

12-24912-i58

21-69
21-83

12-\43
12=-i60

21-70
21-84

12-\45

21-57
21-71
21-85

12-118

21-58
21-72
21-86

12-]22

21-59
21-73
21-87

12-_34

21-8v

21=74
21-88

12-_36

21-81

21-75

12-'12

21-62
21-76

PRS

4L-688#

15-63

SEQ 0318

CZP* A0 RMO5/3/2 DSKLS TST 1

(CREF v01-05 )

8-19»

8=19+

9-94
8-19+

20=-5#
8=-19+

19=11»

19=11+»

19«11

19=11+=

19=11+»

19=11+=

12-e80

12-f52

142-'7‘220

12-G01

12-Q78

12-X57

12-c88

12-d28

12-e20

RDCHR
ROLIN
RDOCT

9-12
19-9
9-58

9-28
19-10#
9-74

9-43

9-117

9-13&

19-8

19-10#

9-95

19-10#

READY
RECAL
RESREG

10-29%
4=7074
14:;33'

13-1%
12-H1S
19-10#

13-20
12-J26

12-Y57

12-Y95

12-233

12-264

12-[06

12-[63

REX
RG

12-Y16
12-Q04
12-i92

12-v21
12-e3]
12-j73

12-e33
12-j78

12-e85
12-106

12-e90
12-L11

12-157

12-f62

RGDTPT

4-828% 12-X90
4-8264
12-PB6
12-i30
12-i87
23-3#

RIP

47128

12=J44

12-K91

12-M43

12-N52

12-N92

12-021

12=-X61

12-58

12-387+

12-T14

12=U13*

12-V08*

12-V22

12-V28

12-54

12=-S39*

12-k95»

12-<84*

12-<85+

12-k63*
4-973#4
12-621
12-:67

12-k95
8-89
12-626
12-<B3+

RESVEC

SEe]

RLEASE

RMAS
RMASI
RMASO

RMBA

RMBAE
RMBAEI

RMCS1]

RMCS10
S2

4&=730%

12-G09

12-Q69

&4-709%

12-F73

12-130C

4-902#
6=0n
6-0#

L=975#

4(-9784
6~0#

6-0#
6-0#
6-0n
4-89BF
12-619%
12-673
12-G66
12-N53+
12-T76%
12-264*
12-_15+

6-OF

4-9764

1231

320
S3

4-979#

s3I
$30

6
6-04

4-B99F

12-F81

12-HB6*
12-N92+
12184

12-[06+
12-_56*
12-8200

12-85+

1¢=T76

12-U05

12-U34

12-U67

12-h34

12-i20

12-i82

12-j68

12-g95

12-h00

12-h39

12-hé4

12-i25

12-V59%

12-y73«

12=v92+

12-W15+

12-w41

12-180
19-647
12-E78«
12-L12e
12-RS1+
12-Y03
12-140%
12-b05

12-384+

12-390

12-78*
12-632%
12-=06*
12-103
12-059+
1 SSee
12-[44
12-'00%

12-85
12-633%
12-=09
12-170%
12-092+
12-ere
12-[63%*
12- 35+

12-111+
12-634
12-898*
10-K07%
12-P55+
12-Vélr
12-\2%+
12-'96+

12-118
10-639
12-C39+
12-Kkbe
12-P84*
12447
12-\65+
12-a18

12165+
10-645%
12-D01%
12K70s
12-Q27%
12-w67s
12-\84
12-a3

12-172+
12-646+
12-Dg3%
12-K91x
12-R04*
12-X6n
12-106%
12-as6x

12-93«

12-119¢

12-T24+

12-126

12-180%

12-189+

1 -j68:

12-101

12-193«

12-199

12-15

12=25

12-29

12-222+

12-230

12-263s

12-H87
12-021%
12-U05+

12-[28
12-_75
12-880v

12-k61% 12-101
B-82+

12-u32

12-g%90

12-f32e

12-g90r

12-h34s

12-i20s

1810+

18-11s

8-8B3+

B8-86

10-47+

10-48+

12-8

12-:02¢

12-:03%

12=:26

12-:32

12=:41

12-:44s

12-79+

12-B6

12-166%

12=173+

12=181

12-216%

12-i82s

)

L(-6884

1561

LIS NS LS LN NN
I
1
—OriJ=<
o
oo
n

15-30

-_—

9-73
8-19

(~6884

15-16

Dr-rh

9-57
4(-688¢

QUES
R6

15-9

81+
W
#*

15-80#

12=<70

15-14
(-688#
6-0#

12=<29

PSTOP
PSW
PUTBUF
PWRVEC

1040

B8-22
15-60
4L-688#

e e R

4-688%
4-688%
4-688

PR6
PR7
PS

SEQ 0319

CROSS REFERENCE TABLE

J 9
MACRO Vv03.01 11-APR-80 13:58:55 PAGE S=24

28+

12-270

12-406+

12=412

12=467+

12=471

12=484+

12-488

12-503%

12-570%

12-571%

12-581%

12-582+ ' 12=597+

12-598+

12-:84e

12=:86e
SEQ 0320

RNNyN]LKNES *~N~N. ~NNANNIyNANNk3I&N" V]TNNkSN1W]*TNNTQNQNNITNILQQNIt[QV

Y9N%AvdO”o"sy%cGm~4*NNloNcf7y©liRN&1cART.0W28WO-eIl7e1“oRQv%lURDM5TRA%vY1I&.rNMOS)21lRNmS”3ToORTNM>Gnm"f7GAE60OiCO'”“KG?5O?NA?-4IA4C12OBlg6U4T1eX.7LNM7&f“M=fYRm0iu)Q0%Ols®A.~ESqaNm0”[A*mW~uRFW%¥-SRWNYSRW.Nw—W~IARINMJ8RIOTdVIAF,[O0wA=YL—N->IB%Dt>OX4rO~LO0v9BWfABaa2aR3HlS0RQkReA%O6d]aI1ENR9A.M-KTh1"iBDT5O3.RE'I0EoM1Nt4%75SRaA'SM5NMRI1.*.AOEt“DEoyO*NI-&CTB5.iRmNDhON[M7—*3ST»emyD\rDN”0AN72y3PI"1n9.BLwS0AMM_oO45Rc—eRek28O*lk9N3LG&Mo-N8~¥XATN%7sNSMhMw8—oteZOOomac6IB2eMoO4DBr>Ig8etu~%®]
OIO—NTO—SSp¥iatyR———)ddyyhSeePtA0NsTNTFAOWoICo—cNSfSNR=p-aDltWVIMiTk’¢ISsAhSDOeNFTlYe(WUDeAeRMtBIRenDtNUWT_cO0reiAPIVfNtOTRo.YsA0"+~—e—Y>N ¥N SA A—1010 M—nu NT ~)—-i—o)NSe——MNB=—RE—OVAOi———AM—T———SRR2—N—eiP-—ONGFOeEN\AmE—eMMeeIVReOBYANtee&RMANNieUUOlOAaAAONNcN-BTNISnDR—Ns—R——OO——2N-AS——RA0ND—S——0OAO—AMD—Y—03—eo7SNNeACAcAN—O—eOrRTN——S—EriA——N—rrhR—NO0POD-N3
STNO—ANe—E0'OU—=0OONtl———v—yTINNANNeOTtDe=—L2-JeMreRAN—0T®Be—eDP—I—eOeIMePOe3¥DDer TTOE3eAPTAVFeYU.D0AOTUT5D2eyDG—eAAPrYkO— ~o—h'NPeANaBTNF—A4—Y——TeRvOAMaaI—et—bTTN9eNeRO3—AaIAMG=e2SnGtI=e<eI-33AOIea\RIVy3eAe3UnSNIG%OTOAeAMNYT—ABeNOeTIiIT—4rIS—3—PRNUIO_s0A—yMVIA2—rObrt Sa4AN&-N¢Ye-—O1AsN3832T7AOS-ROYM-=oV~RoSNTL—-D—2MArTrhOU—R—Tyrer3NS—1—tI®O—rTr
~A—TT'hleMSAVr—1OV)dP—*N—&TAJTOtaer.dN@T—{TDei—AO%ld.enfe—Dlyd0=e;0fdA—— l"RttUaMO TA2O-—WYo—enVUwen—I=y0TOe—vUNeNTO08SO=A¥YMM—-S*_®:1—M71—NOr:y~TerN— OT&-eO*9YyNe-—N-WMe—¥&NRAY—AerMP—OrOlDIO—S—M—PGr—D
N NNy N

RMER1] ,5:826.
573

6-0n

—— —

RMDCI

RMDCO
RMDS

— —

RMDB
RMDBI
RMDBO
RMDC

- —

9
L
CZRMPAO RMO5/3/2 DSKLS TST 1
MACRO v03.01 11-APR-80 13:58:55 PAGE S<25
CROSS REFERENCE TABLE (CREF v01-05 )

RMDSI
RMDSO

lflflb

RMDTO

—

SEQ 0321

12-928+

12<929*

12-930

12-956%

12-957

12=:12

12=7206

12=212%

12=214

12=741

12=245

12=776%

12-778 SEAZB;SS‘

CZRMPAQ RMO5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

-308

~E73%

N 9
MACRO v03.01 11-APR-80 13:58:55 PAGE S-26

(CREF v01-05 )

12-a12+

19-FQ9+

12-213
12=G29+

12-a23+

12-B93+
12-J95
12=V58+

12=H79*
12-P78+

12105+

12-144»

6~0O#
6-0#

12-E02+
12-K38%
12-Y94+
- 12=" 34+

12-E17+
12-K39
12232+
12="95+
12-L00+
12240+
12=512%

12-E41+
12-K54
12-263+

12-E42+
12-L56+

12-h98
12-j02+

12=i17+
12-j08+

12-k25*
12=-195«

12-k26+|
12
.

12-U48

12-U52

12-[05%

12-=83+
12-277«
12-A42*
12-CO3+

12=149+

EI 4-91 2’ 12-389+

e
ed B D D e e

11
10

=904k

12-=61
12=275%
12=-A41x
12-C02*

12-D92+

12=:66*

RMMR1

12-371+

6~O4

—

RMHRI

o
N

6-0#

4=90%%

SEQ 0323

12-251

12-)63+|

RMOF

—

4=907#

12-81+

12-88

12-168* 12-175« 12-183

12-219' 12-223* 12-231

12-264*

12=271

12-385+ 12-391

12-407+

SEQ 0324 |

CZRMPAD RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

RMOF

RMR
RMSN
RMSNI
RMSNO
RMW(C
RMWCI
RMWCO

12-C35
12-E43
4-7834
4=906#
6-On
6-0#
4=9748
6-0#
6~0#
4-869%
12-132
4-870#
12-132
4=711%

4=7178
12-c18

MACRO v03.01

(CREF v01-05 )

c 10

11-APR-80 13:58:55 PAGE S=-27

SEQ 0325

12-872+
12-C63
12-523+
12-689
12-388+

12-879
12-C65+
12-534
12-718
12-431»

12-955
12-C81+
12-535
12-593
12-979

12-52

12-538+

12-k9%4*

12-k62*
12-T80
12=170
12-T80
12-170
12-H21

12-k94
12-T91

12-U09

12-U20

12-U38

12-U49

12-U77

12-U81

12-[68

12-451

12-b48

12-e54

12-199

12=-TN

12-U09

12-U20

12-U38

12-U49

12-077

12-U83

12-[68

12-451

12-b48

12-e54

12-199

12-J40

12-092

12-W96

12-F97

12-133

12-J60

12-Q57

12-R51

12-R96

12-_15

12-_56

12-°00

12-'35

12-796

12-a56

12-b28 |

12-140

12-185

12-%46

12-a42

12-a46

12-328

12-k28

12-k62

12-1.94

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

CZRMPAO RM05/3/2 DSKLS TST 1

CROSS REFERENCE TABLE
12-086

STANDA
START
STKLMT
STOP

(CREF v01-05 )

12-W06
9-34
8144

12-R84

12-S21

10-34

18-22

1£-h43

12=K50
12=h49

12-P91
12-i29

12-P96
12-i35

4L-688

46884

12-v85
8-63
4-986

12-W55

4-688#
6~0n

12-R34

Sw00

Sw13

4-6884

14-17

Swe
Sw3
SWé
SWS
Swé
Sw7
Sw8
SW9

L6884
4L-688#
4(-6884
4L-6884
L(-688#
L-688#
4(-688#
L(-688#

SWREG

19-7
4(-986#

SWR

TA1
TA16
TA2
TAG
TA8

MACRO v03.01

S5=-0#

8-19

19-7
8-19

8-19

12-X00

8-19*

E 10
11-APR-80 13:58:55 PAGE S-28

SEQ 0327

12-S71

12-T28

12-Y47

12-\09

12-T46

12-T69

12-_00

12-c06

12-T98

12-U27

12=c74

12-976

12-k50

12-U%

12-v32

12-v52

12-Y20
12-i9N

12-Y30
12=197

12-cb4
12=j77

12-c70
12-j83

12-e89
12=110

12-e95
12=116

12-f61
15-14*

12-f67
15-28+

12-g99

12-h05

19-6

12-X70

8~19+

8-19*

12-US7

19-7
8-25

19-7
10-27

19-8
19-8

19-8+
19-8

8-25

10-27

14-17

19-6

19-11

19=11x=

L=7414
&=737#
4&=740#
4=739%
4(-738#

12-C26
10-53
10-53
10-45

12-917
12-g18

4=-8714

12-[95

12-[%6

12-[97

12-[98

12-[99

12-\00

12-86

12-*87

12-"88

12-*89

12-90

12-91

}g-_:g(s)

12-m51

12-m52

12-m53

12-mS59

12-m60

12-mé1

12=-m62

12-m63

12-mbé4&

12-m48

12-m49

12-m91

12-m92

12-m93

12-m9%

TAGADR
TAF

4-992#
L-8L6H

5-0

TIME

6-0#

15=57«

15-70*

15-72«

TPVEC
TRAPVE
T
TRTVEC
ST

4-688#
4-6B8#
4=926#
4-688#
4=872¢

8-19»

8-19+

12-F14

12-F16

12-F40

12=F67

12-F75

12-F83

12-F91

12-F99

12-G07

12-[68

12-*51

12-b48

TADMSK

TAG

&~751#

12-b87

12-b89

12-b90

12-b9

12-F17

12-b92

12-e54

12-939

12-g40

12-g42

12-g43

12-g44

12-g45

12-b86

)

12-199

12-132

12=170

SEQ 0328

Op—ggOgee=UgIgMeITgN(Oo(N=o—(oO(oA=MI(oWoN=ON(o(=(=N[O=N(oS(o(—oOoN=M(ooOorP(ro=r(=r0—=rr0—1r—001N0AM1J1ToNTONToTooTmooTToT
SoU2qelee.lSeI2cle(NqSelN2qmLeEolS1weI2me1NSf(1oee2le1IS4/ReN1_.eS1ewo1E2eo.1SAIe«1N2eS_2e1beoq2I=el\cNwelU2qMIeo=lS2-eN»leiNcoS2leI.mfeNe2Slbwe-Idleu-N2SlTewOqlRe2SSIqeloEN-e2SlIcqIelNsec2SElmeqIlwe2oSqNileocNmEo2eSlAcIeSolTc2N-eSHlwEScelf2PSecileSNck2Slee.fSeRlic2SeNlr2ScePlm24eScN2wlSuecT2Slne2cITSel.T2NcPSeIlm2ESceTb2lYSce2wlS=02eq4sSl02bqmS0R?lbcS0.=l
CROSS REFERENCE TABLE

CZRMPAQ RMO5/3/2 DSKLS TST 1
(CREF v01-05 )

MACRO v03.01
11-APR-80 13:58:55 PAGE S=29

610
SEQ 0329

1ST52

12-k62*

19-6

SEQ 0330

KBN28.3DSoB4I8L
“¥&mARzAi.&mARS&:>ARzmD23WR&maRAgymmA«YwRYBmV&1FmWP1nIFSe3ieSIW1AEfe3.TF1n0tITE5e>FSI>r>EsITOLTSISRSLIHESETORIASIRSLcIREYDTNFPINLRVeVLtAVNAGLeANVRLVICVRTAMVSATVIRPVETNOBWEIYRPL3ND33NT3L8VSS3R
v

oA9&y eiA—M7¥NOtMyT8—k— AYNTdro <~ —— o%4® i&T=deB—dY0O—iGOTI0dNTs OtN3d1 A0—SFT&AoIOMud—TRmIPMuo—XRnOfTAd—:MsTh=
N&PV—TPOR— €o 0 —— §3R TG —— <% GTb—DeY—nTyeIR)yTteY T-RT—IE—TPFE—RnPD0Oy—E
—&Aog—RS—%-S —— 10 1L5—— ——0R90VT TN—O—ur—I—lN—y—e——O
A—?~2N-N VYd—3——db—8dosdt Np——h5o—4ITT—aAen—yW—Thg

oe-ytASy ~9Se ~> b"E<=S R-VAnSSTo-NLLYYG RNTNAUARTILRRINSSTy2M3

o3- B—lr3— B— 2-f—e—R—my—el.0%r-eg-iRedesye PP PeeeTeeTTTT TT

QS-AOLRtOe8—o—sNo~'.To»ly“e-—o}T—lLPR—g—~—SNoN’IROy<—o®N A—)W—-Shm-~gdV.—hegrrHS-Mn—I%gNn-rnh—P.ESEI%Y-0r—-FEN—o—SWTlAA—Z@lo_rO%lVF—M—AoBuNlTnN—?W—IA~SyI—l—eOMToNe*loSoAelUoeleooeloredwdewdedeo£elNoeloedoeloelaedBdeoeIeVoelogeoeooleB eLt1
CROSS REFERENCE TABLE

CZRMPAO RM05/3/2 DSKLS TST 1
(CREF v01-05 )

MACRO v03.01
11-APR-80 13:58:55 PAG E S-30

110
SEQ 0331

WCE

4=9378 21-77

21-78

J10

SEQ 0332

CZRMPAD RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE
WCEHI

WCELO

WD
WH
WLE
WRL
XNUDC

4=725#
4=7268
4=774H
4=760#
4=B864N
12=: 74

XNUOF
XS12
XXDP

ZEROS

SEQ 0333

4=962#

4-780%

XNUER2

(CREF Vv01-05 )

K10

11-APR=80 13:58:55 PAGE S$-31

4=-963#

WCF

WCH

MACRO V03.01

4=7224

4-889%#

12-942
&4-859%
12-831
8-674
6=-0#

23-38#

8-34

12=X49

12=X53

21-81
12=>78

21-82

12=Y05

12-239

12->82
12-290

12-293

12-376

12-437

12-459

12-509

12-:92

12=;54

12-:64

12-240

12-300

12-303

12-398

12-420

12-475

12-512

12-884

12-933

12=941

12-223
12-N69

12-238
12-001

12-284

12-287

12-395

12-417

12-456

12-507

12-810

12-818

8-36+

8-41

8-52

8-77

8-79

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

L1
MACRO v03.01 11-APR-80 13:58:55 PAGE M=1

(CREF v01-05 )

5<0

.SCATC
.SCMTA

COMMEN
NBSCH
NDCOM
RR

4~67¢4
4~6778

4-677#
L=6778
L-6774
L=679%

4-6764
4-6768
46768
L-6768
L~6768
4=498
12-444
12-:10
12-A32
12-151
12-V55
4=-600#
12-h43
4=S91F
L-6600
4-688#
4-626#

SEQ 0334

5<0

4-993

13-20
19-7

19-11

L-684
4-984
4-685
L-6BSH
12-7

5
12-h49
12-K47

12-161

12-167

12-999

12-h0S |

CZRMPAQ RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

MACRO v03.01

(CREF v01-05 )

M 10
11 ~APR-80 13:58:55 PAGE M-2

SEQ 0335

GE TBAE
GETCS1

GETCS2

GETDA

4=1424
4-286#
&=-126#

12-G66
12-b05
4-1584

12-85

12-H87
12-d99
12-8

12-209
12-_75

12-€79

12-G36

12-a18

12-a3%

12-270

12=390

12-412

12-471

12-488

12-:88

12-;07

12-;18

12-:32

12-C04 |

12-272

12-373

12-433

12-453

12-505

12-:89

12-;53

12-;63

12-:73

12-:93 |

GETMRY

4=254

12-149

12-225

12-=35

12-=46

12-=61

N 10

12-A33

12-A44

12-AS4

12-A71

12-B18

12-158

12-184

sel2sL1s

CZRMPAQ RMO5/3/2 DSKLS TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

4=262¢
12-£98

4=222#

12-U%
12-k50
46884
46884

12-F13
12-L21

12-i24
12-F39
12-156
12-183

12-m13
12=231

12-983

12-987

8-25#

10-27

12-1
12=796
12-a03
12-143
12-P65
12-v32

12-73
12-866
12-264
12-J82
12-Q09
12-v52

12-106
12=-975
12-A24
12-K28
12-Q86
12-V85

8-25

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

12=271

12-137
12-998

12-A93#

12-391

12-806
12-L9%%¢
12-R84
12-W55

|PUTCST

4=L664
4-3304
4=474H
4-315#
12-=06

12=452

12-3244
12=:79
12-B71#
12-M54
12-S21
12-x00

12-329
12=:99
1 3874
1 -M90
12-S71
12=-X70

12-504

12-e30

12-e84

12-f22

12-156

12-9%4

12-U76

12-[67

12=%50

12-b47

12-e46

12-787

12-806

12-827

12-854

12-N68

19-3

19-9

19-11

19-12

12-1

PUSH
PUTAS
PUTBA
PUTBAE

12=413

SEQ 0337

12-387
12-S39

12-78

12-U13
12-k95

12-v08

12-v59

12-v73

15-7

18-8

12-v92

12-wW15

19-1

19-3

19-9

12-k87

SEQ 0338

CZRMPAO RMOS5/3/2 DSKLS TST 1

CROSS REFERENCE TABLE

PUTER?2

PUTHR
PUTLA

12-469
12-448
12-450
12-411
12-112
12=745
12=H78

SEQ 0339

12-501

12-c84
12-113
12-908
12-E41
12-583

12-139
12-e77
12-371
12-409

12-144
12->58
12-972
12-C02
12-E15
12-101
12-K73
12-N01
12-024
12-Q34

12-370
12->59
12-a73
12-C03
12-E39
12-102
12-K93
12=N09
12-058
12=-R0O1
12-S80

12-=33
12=>75
12-283
12-C37
12-E70
12-152
12-K94%
12-N10
12-061
12-R08
12-S81
12-W70
12-Y92
12-280
12=-\19

N~nNe=OUINNMOAIWN—MNO‘09%1ONe—MNMYO

~—N V]1VTeV0TTITNTN0TeNTeNTTN0TWTNN0TNRTNhTNIQNfTeQFNNeoQNoNQNe[QeW[[aVLeaVIaN

LKRoOSl1VDO2%¥7&Rf“iX&Z“.2L%\J1A“.?AoCRFeIoLRWA

PUTMR1

4=354F
4=6028
4=418%
44268
4-362¢
12=715
12-G28
12-P77
12-[61
12-¢c14
-394
12-907
12-E17
12-P78
12-105
12-e17
4=4348
4-3864
4=4428
12=->49
12-a40
12-897
12-D90
12=H77
12-K72
12-M68
12-023

(CREF v01-05 )

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

Y)rLVeM~S)TrNIVSTVYATNPT[yI- e,aVlUT0"aN)PRT,SIN0PVNOCYNWN0NOT)P O0VNMTTA 0VNTITNLONT=0IT=OTLVTNTNLTOPOTILMMeTLNPeTELII OeTILMWTTTP OANTPLYLiTeN=NPBLw

PUTDS
PUTDT
PUTEC1
PUTEC?2
PUTERT

MACRO v03.01

12-Q33

12-551
12-v89
12-Y67
12-269
12-[60
12-\81
12-196

-749

12-a26
12-b02
12-c42
12-dS0
12-f02

12-5852
12-W13
12-Y69
12-274
12-(84
12-101
12=-*01
12=_51

12-754

12-a30
12-b23
12=-¢c57
12=-d51
12-103

12-Wé4b

12-Y70
12=-275
12-[85
12=111
12-02
12-_61
12="55
12-a31

12-b39
12-c83

4=458%
12-805
12-N89
4=410#

12-81

6-0

12-470
12-(96

6-0

12-498
12-D48

12-786
12-E43

12-804
12-NS0O

SCTCMP 4-638#

E11
SEQ 0340

AMmN“mRAVA—AV0Oo4eNwn”AgmRG8gL2A~gf—Ry7iSR0gf4R7i5WSn0nP70I6tNo3NWoRASABAARIDOAWR.)SMRo.\.J
s. N

W[SMTW~3+VY(]YVW8SVETRVTVNTANTTNTNToNVTNTNoNTTLTQNNLRV[AU7B,)UToyT-UH—TU- vZoo m0oo11=] 8XN01YYooM0NToT~NRTNeT0V.0TVNOT00VNo0TTVNOffTTFFNVTTONTNT(VTVTN[BFTTTWNVTNXRTTVOTTN(V>(YVAA ¥o}V1To0[aa1VyT0>oNT <a1 g[

eow~~o0O%w—[TnrlO—.S=o4N%0eNwvM—on)TalOd|ePWl4NMM~em“eonyW—l{4eMWl‘NN—iMTa5%0[orDwgg.G~y-*d0o..ONO|lg—0ldnoEGfw%\Oo0oOWOVV,1woST0lNMORO-.oN‘d9~WQoONOS!|l>lMy1oVTOGoMe4d3ToOdlNIRLNV%WTNMO8%d”dgoo3—m¥Tn\gWiOEvQ54oO31gOdQG§lIR*STt‘o%gSoMN9g.fMldgOIOiT24o-So8IdoxN[e)llGdN.fU?MT.7oOm78gldoNIMlR(D,N2Voob95gMTJoOld.‘dU47éWo+68e1Q»"o19UdlNg-4oVo2N1g”O%-TldlU“41L8aVLN97o?~5MMoN5adlTO[n20d|L608nPPXn%2wnMv"o=0dNr-0Ig-NO)V12oU]—C}"OaooL~~oOalgd§eWoy’oOdogN2ldOgaV~4Xl|LToog~“foa~xlPVlI{LiE2«.SN%F—M-.#—STE.0(2oSVs%]32vSSoT>mm-W~-Ln.]f—.Ni(L)m“wwoo”S-UgiGa2].nt}lR
w

w —

RVONeOIT4NIY.NTAL"FINTO VO

.m....

anNCUAIIAINININIANINY

V]VTVTVTVTVTTNVTVT T VTTAN[V
RTS BRI/

N¥TeVTNTNTVTVTNT T VTVTTTNQN(PR
NTeo¥R]TW]SoToTVQlNVlTQNVTQoNToNNloVdQTNVTQoNVlQTNVoQTlNToTNaNa(LdoVVoT[lNa

4(2]
—w

o|a-—Ddgr=—l-

~[o5]

=38

13-20

18-17

SEQ 0341

19-10

19-10#4

12-P45
12-v87
12='24
12-j58

12-013
12-225
12-°85
12-k81

12-090
12=256
12-a45

12-R39
12-298
12-b17

12-R88
12-[55
12-c08

12-530
12-\13
12=¢c78

12-171
12-\54
12-d18

trOXoONODVBWO—> oeLdl[TNVLQV],F01(rI odtleALTIS e oegtl.n1)|iLr>V]v-x0