Digital PDFs

AH-T109A-MC

July 1982

Number of pages unknown

Original

4.0MB

view download

OCR Version

3.5MB

view download

Document:	CZRNCA0 RM80 DSKLS TEST PT 2 AH-T109A-MC JUL 1982 bw
Order Number:	AH-T109A-MC
Revision:	000
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRNCA0__RM80__DSKLS_TEST_PT_2__AH-T109A-MC__JUL_1982_bw.pdf

OCR Text

.REM

SEQ 0001

000 NPV

PITIN) b b b b cad b b b e d

NN =2 O V0O NO

S NN —

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-B2 16:41:16 PAGE 1

N -2

1DENTIFICATION

PRODUCT CODE:

AC-T108A-MC

PRODUCT NAME:

CZRNCAO

PRODUCT DATE:

APRIL 1, 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITY

RMBO DISKLESS TEST, PT 2

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND

SHOULD ~ NOT
CORPORATION.

BE _ CONSTRUED AS A COMMITMENT BY
DIGITAL EQUIPMENT CORPORATION ASSUMES
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

DIGITAL
EQUIPMENT
NO RESPONSIBILITY

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

DIGITAL
EQUIPMENT
g?%f?g{LITY OF ITS

CORPORATION ASSUMES {0 RESPONSIBILITY FOR THE USE OR
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

CZRNCAO RMBO DSKLS PT2 MACRO Vv04.00 14~JAN-82 16:41:16 PAGE 2

SEQ 000¢

NN —

CONTENTS

NO VI

INTRODUCTION
1.

ABSTRACY

UNIT UNDER TEST

PNIN) =d b wd cd wnd cod i arnd wd b

= OOWNO VIS NN = OV

OPERATING REQUIREMENTS
1.
2.
3.

HARDWARE REQUIREMENTS
MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

4.
5.

HALTING
RESTARTING

2.
3.

SWITCH OPTIONS
STARTING

OPERATOR INTERFACE
1.

PROGRAM ID

PERFORMANCE REPORTS

2.
3.

5.
6.
7.

PROGRAM HALTS
ERROR REPORTS
EXFCUTION TIM:

ENVIRONMENTAL SUPPORT
1.

PROCESSOR COMPATIBILITY

2.
3.
g.
.

DUAL PORT CONFIGURATIONS
MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY

6.
6.

CONSOLE DIALOGUE
PROGRESS REPORTS

XXDP COMPATIBILITY

TEST DESCRIPTION

1.0

INTRODUCTION

1.1

ABSTRACT

b e
b md e

USES

AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RM8O

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 RMBO MASSBUS ADAPTER.

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

1.2

N QN AWNAN LN NN PO N RO N NN

N A S

A T IR

WAAAAVAVAVAANA
S 85 8N 85 85 85 05 8% 8 3 LN W

UNIT UNDER TEST
THE UNIT UNDER TEST (UUT) IS THE RM80 DISK

AT IR N2 et vd Nt e ot VI SrIA NN
N =2 OO0 NV

SEQ 0003

THE RMB0 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH

FUNCTIONAL

NN = OO0 N

N —

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 3

THE STORAGE MODULE DISK DRIVE AND THE

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE FOLLOWING

OPERATIONAL,
DIAGNOSTIC:

MINIMUM

REQUIRED

HARDWARE

PDP-11/70 PROCESSOR
12K MEMORY
KWi11-L OR KW11=P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

RH70 CONTROLLER
1 TO 8 RM80 DISK DRIVES

2.2

MEDIA REQUIREMENTS
NONE

2.3

PREREQUISITE PROGRAMS
RMB0 DISKLES3 TEST, PART 1

3.0

OPERATING PROCEDURE

3.1

LOAD

SUBSYSTEM,

MASSBUS CONTROLLER.

CONFIGURATION,

AND

EXECUTE

THE

EXCLUDING

ASSUMED

RMBO DISKLESS

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 3-1

SEQ 0004

THE PROGRAM MAY BE LOADED BY EITHER OF

60
2}

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE.
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE.

63
64

THE FOLLOWING MEDIA:

3.2

67
28

THE FOLLOWING SWITCH OPTIONS ARE
SWiTCH IS ON.

70
4
72
73
74
75
76
;g

Sw15
SWi6
w13
swi2
SWi1
sw10
Sw09
Swo8

THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO

SWITCH OPTIONS
INVOKED

WHEN

THE

APPRUPRIATE

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

THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL LOOP ON.

SPECIFY

83
gg
86

87
88
89

92
93

3.3

STARTING

200

WILL BE THE NORMAL STARTING ADDRESS.

3.4

HALTING

RURISIRIRIRER28Y

b and aud

MAY BE STARTED AT LOCATION 200 OR 204.

STARTING AT

STARTING AT 204 WIL'. ENABLE

THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE.

3.5

RESTARTING
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3)

d and ad
b wd e
d wnd
b cnd wd

PROGRAM

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

THE

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

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

TIME

CZRNCAO RMB0 DoKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 3-2

SEQ 0005

11112

4.2

CONSOLE DIALOGUE

117
”g

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

120
121

ENTERS A

THE FIRST QUESTION TYPED OQUT 1S:
‘TYPE HELP TEXT
(L) N ?'°.
THE OPERATOR RESPONDS WITH A '*Y'', THE PROGRAM WILL TYPE A BRIEF

122

HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE

124

QUESTION

127
128
129
130
‘{g;

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204,
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING

123
‘}%2

133

H’g

%gg

138
}28

141

142

TO THE QUESTION IS CONSIDERED A 'N'' AND NO HELP TEXT IS TYPED. THIS
IS

ONLY ASKED

SUBSEQUENT START-UP'S.

THE INITIAL PROGRAM

START AND

NOT ON

DJALOGUE.

EXAMPLE 1

RMCS1=176700 <CR>

sNO CHANGE IN ADDRESS

RMVEC=000254 <CR>

sNO CHANGE IN ADDRESS

EXAMPLE 2

RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS T0 177200
RMVEC=000254 260<CR>
ON THE INITIAL START,

TEST ALL DRIVES,

OR TYPE

:CHANGE VECTOR ADDRESS TO 260

THE NEXT QUESTION

DRIVE NUMBER(S)

145

STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A

146

TYPE AN ''A”’,

"'CARRIAGE RETURN''.

TO TEST

AND

INPUT WITH

A CARRIAGE RETURN'.

OPERATOR TO

IS TYPED

*TYPE “'A’’ TO

143

144

THEN, 'DRIVE(S):*

TYPED IS,

AND TERMINATE

ALL POSSIBLE DRIVES

WAITS

FOR THE

OR TYPE

ANY

NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN

147
148
}lsog

ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER.
ON ALL SUBSEQUENT
STARTS, ONLY THE 'DRIVE(S):' PROMPT IS TYPED.

151
152

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING

322

155
156
157
158
159
160
161

162
}22

165
}g?

168

}98

171

IS AN EXAMPLE PRINTOUT:

'UNIT STATUS:
0
ONLINE
RM8O
1
LOAD DEVICE
2
OFFLINE
RMBO
3
NOT PRESENT
4
NOT PRESENT
5
NOT AN RMS8O

é
7

NOT PRESENT
NOT PRESENT’

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 & 2 WILL BE TESTED, WHILE DRIVES
1, & 3 = 7 WILL NOT BE TESTED.

THE DIAGNOSTIC THEN TYPES THE FULLOWING MESSAGE, BASED ON THE

STATUS OF THE DRIVE:
'DRIVE(S)

TO BE TESTED, 0, 2°

e e

2B IV

D cmd e

<>c>c§g
W)=
8RR RS 28R IR ARG

b md d d e o e cd i d o) o ad b
POIPININ) b b b cnd oo e e

SE@ 0006

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

I NI

CZRNCAO RM8") DSKLS PT2 MACRO VO04.00 14-JAN-82 16:41:16 PAGE 3-3

TYPED TO THE OPERATOR:

'DRIVE(S) TO BE TESTED, NONE'
THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT.

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR
AS EACH DRIVE BEGINS TO GE TESTED:

'DRIVE 0
DRIVE 2'
AFTER ALL THE DRIVES ARE COMPLET ELY TESTED, THE END OF PASS
MESSAGE WILL BE TYPED (SEE SECTION 4. 3) AND THE PROGRAM WILL START
TESTING ALL THE DRIVES AGAIN. THIS WI LL CONTINUE UNTIL THE PROGRAM
IS HALTED BY THE OPERATOR.
NOTE:

4.3

THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE
EEL2$¥?8NSE
REQUIRED BY THE USER,
D=DECIMAL,
O0=0CTAL AND

PROGRESS REPORTS

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

‘END OF PASS

THE FOLLOWING MESSAGE WILL ALSO
THE LAST END OF PASS REPORT.

OCCUR IF THERE WERE ERRORS SINCE

NN =

[, P

r pr O

VOO NO

i Sl

i i 9y

S LS LSV ST RYSUNT
N1

'TOTAL ERRORS SINCE LAST REPORT
4.4

PERFORMANCE REPORT

NO PERFORMANCE REPORTS ARE GIVEN
PROGRAM.

4.5

0’

DURING

THE

EXECUTION

THE

PROGRAM HALTS

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

4.6

ERROR REPORTS

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

CZRNCAO RMBO DSKLS PTZ MACRO V04.00 14-JAN-82 16:41:16 PAGE 3-4

SEQ 0007

REFERENCES TO PROGRAM LISTINGS.

UNIT

THE FIRST

LINE OF THE ERROR REPORT CONTAINS

(DRIVE) BEING

TESTED, DRIVE TYPE,

THE TEST

THE

NUMBER

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

MODULES IN

ORDER

DESCRIPTION OF THE ERROR,
DECREASING

PROBABILITY.

AND A LIST OF FAILING

THE

ERROR

MESSAGE IS

NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS
?E“S’UE?gA PERTININENT TO THE ERROR,
INCLUDING EXPECTED AND ACTUAL TEST
THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS PROGRAM:

DRVA O - RMBO, TEST# 23,

ERRA 61, PC=017724

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

85,

IF MODULE,

EXP EC TED
ECC
175154
3
3 17

4.7

RECEIVED ECC
7
003402
0176

EXECUTION TIME
PASS 1 OF THE PROGRAM TAKES ABOUT 2 SECONDS.

SUBSEQUENT PASSES TAKE 12 SECONDS.
5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

PASS 2 AND

THE RMBO DISKLESS DIAGNOSTIC
IS EXECUTABLE ON A PDP-11/70
:E?CESSM.
PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE

5.2

DUAL PORT CONFIGURATIONS

THE _RMBO DISKLESS OIAGNOSTIC IS NOT EXECUTABLE ON RMS8 0 SUBSYSTEMS
HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH I S SET TO THE
APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE POSI TION (A/8).

5.3

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

THE RMBO DISKLESS DIAGNGOSTIC.

5.4

MEMORY MANAGEMENT HARDWARE

EXECUTION

CZRNCAO RM80 DSKLS PT2 MACRO V04.00 14~JAN-82 16:41:16 PAGE 3-5

MEMORY MANAGEMENT HARDWARE WILL
DISKLESS DIAGNOSTIC.

SEQ 0008

NOT

USED

DURING

THE

ACT11, APT11 COMPATIBILITY

APT11

THE RMB0 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 AND
IN BOTH DUMP AND AUTOMATIC MODES.
FURTHER, THE PROGRAM WILL

5.6

XXDP CCMPATIBILITY

THE RM80 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH
DUMP AND CHAIN MODES.

5.7

VERIFY

XXDP

OPERATING SYSTEM COMPATIBILITY

SYSTE;HE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

ANY

OPERATING

6.0

TEST DESCRIPTION

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

emd wh cmd o

=O OO NN

cnd

b wd

LIN -

RM80

5.5

SSEEUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK

AN AN NN NN NN
RIRIROR

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

THE

'RMB0 DISKLES DIAGNOSTIC''

USING AN

RHW70

UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE

THE

MASSBUS CONTROLLER.

CAN

EXECUTED

TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0.

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

IF
¢S
DS
MASSBUS MODULE

THE RADJAL 4ODULE (RD) IS NOT TESTED BY THIS PROGRAM.

THE

CZRNCAO RMBO DSKLS PT2 MACPO V04.00 14-JAN=-82 16:41:16 PAGE 3-6

TEST 1

SEQ 0009

TRANSFER TEST

PURPOSE:

TO VERIFY THAT THE RMBO CAN COMPLETE A REGISTER TRANSFER

THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT '‘TRANSFER'' IS NOT
STUCK IN AN INACTIVE STATE.
PROCEDURE:

THE PROGRAM WRITES AND
SELECTED
DEVICE.
REGISTER

READS REMOTE
CONTENTS AND

IGNORED, AND THE TEST FAILS IF A 'NONEXISTENT

BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS.
THE PROGRAM JUMPS TO THE END OF PASS HANDLER
NEXT DEVICE TO BE TVESTED.

REGISTERS FOR
PARITY ERRORS

DEVICE

ERROR''

THE
ARE

IF THE TEST FAILS

WHICH

SELECTS

THE

PROSABLE FAULT:

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

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

(S MODULE

TEST 2

CTOD TEST

PURPOSE:

USING

TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE
THE CONTROL BUS AND.
IN PARTICULAR,
TO VERIFY

“"CONTROLLER TO DEVICE'

HAS NOf FAILED.

RM80
THAT

PROCEDURE:

THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH
REGISTER WHICH WILL WRITE_ZEROS IN THE REGISTER IF "'IF3 CTOD HOLD
H" IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS.
PROBABLE FAULT:

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

CZRNCAQO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 3-7
400
401
402
403
404
405
406
407
408
409
410
a1
612
613
414
415
416
417
418
419

TEST 3

SEQ 0010

MASSBUS INITIALIZE TEST

PURPOSE:

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

INITIALIZED

PROCEDURE
:

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS

TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST

ONE BIT IS CLEARED.
MASSBUS ADAPTER REGISTERS ARE
NON ZCRO VALUE PRIOR TO CONTROLLER CLEAR.

PRESET

TO VERIFY THAT 'MBA CLR L'° ON THE CS MODULE IS NOT STUCK

PROBABLE FAULT:

ASYNCHRONOUS MASSBUS MGDULE

IF MODULE

(S MODULE

TEST 4

CLEAR STUCK ACTIVE TEST

PURPOSE:
AN ACTIVE STATE.
PROCEDURE:

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

PROBABLE FAULT:

(S MODULE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

TEST 5

TRISTATE TRANSFER TEST

CZRNCAOQ RMBO DSKLS PT2 MACRO V04.00 14~JAN-B2 16:41:16 PAGE 3-8
457
458
459
460
461
462
463

464
465
466
467
468
469
470
471
472

473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
49%
495
496
497

SEQ 0011

PURPOSE:

TO VERIFY THAT THE PATH TO

TRI-STATE

AND

FROM

THE

MASSBUS

ADAPTER

BIT POSITION IS INDEPENDENT.
PROCEDURE:

+HIS TEST PRESETS MASSBUS ADAPTER

REGISTERS

A_NONZERO

VALUE,
THEN,
ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM
USING A MOVE INSTRUCTION.
THE TEST THEN READS AS MANY REGISTERS
sgsx%§0NNECESSARY
TO OBTAIN ONE OR MORE Z2EROS FROM EACH BIT

THE

THE TEST CLEARS MASSBUS ADAPTER REGISTERS,
THEN,
ASSUMING
REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS

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

1IN

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.
PRGBABLE FAULT:

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

(S MODULE

DS MODULE

TEST 6

PURPOSE:

TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A
POSITION.

STUCK

PROCEDURE:

EACH REGISTER SELECT LINE IS

TESTED

WRITING

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 fO DETECT A STUCK AT_ONE FAULT EXCEPT IN THIS CASE,

THE ONES REGISTER IS WRITTEN FIRST.

AND

ARE

TESTED

THIS

CZRNCAO RMB0 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 3-9
g}‘s'

MANNER;

g}g

PROBABLE FAULT:

g}g

g%?
522

523
524
525
259

ggg
273,(1)

ggg
534

SELECT LINE 16 IS EXPLICITLY TESTED IN THE ‘‘ILR TEST'.

IF MODULE

2. ASYNCHRONOUS MASSBUS MODULE
TEST 7

DRIVE TYPE TEST

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

PROCEDURE :
THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT

ggg

CORRESPONDS TO A SINGLE PORT OR DUAL PORT RMBO DRIVE

ggg

PROBABLE FAULT:

539

1. 1F MOULE

540
541

542
543
544
glzg

gzg
ggg

TEST 10 DEVICE AVAILABLE TEST

PURPOSE :
TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET.

gg;

PROCEDURE :

%22
ggg

PROBABLE FAULT:

557
558
559
560
561
562

ggz

ggg
567

THE PROGRAM 1ZSTS ‘DVA'.BIT 11 OF RMCS1.

1. IF MODULE

TEST 11 SEARCH TIMEOUT TEST

PURPOSE :
TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS °‘‘OPI‘’,

ggg

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

570

PROCEDURE :

SEQ 0012

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14~JAN-82 16:41:16 PAGE 3-10
571
572

573

574
575

?39
253

WITH SEARCH TIMEOUT DISABLED,

THAT OPI SETS.

PROBABLE FAULT:

582
583
584

NOTE:

ggg
594

THE TEST EXECUTES A DATA

AFTER WAITING A SUFFiCIENT PERIOD AND VERIFYING THAT OPI
1S NOT SET, THE TEST ENABLES SEARCH TIMEOUT AND VERIFIES

ggg

SEQ 0013

COMMAND TO THE POINT WHERE 'P ENABLE SEARCH'' IS ASSERTED.

ggg

585
586
587
588
589

CS MODULE

IT 1S ASSUMED THAT THE ''SET OPI TEST'' HAS
AN IMPROBABLE FAULT.
ALREADY PASSED, THUS MAKING THE IF MODULE

TEST 12 SET DTE TEST

PURPOSE :
IN ADDITION TO VERIFYING THAT 'DRIVE TIMING ERROR'’ CAN

ggg

BE SET BY THE CS MODULE. THIS TEST ALSO VERIFIES

597
ggg

*
THAT 'MAINTENANCE SECTOR COMPARE'® IS NOT STUCK AT ONE
OR ZERO.

ggg

ggg
604
605
606

PROCEDURE :
(1) INITIALIZE AND VERIFY THAT ‘DTE'* IS RESET. THEN
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL
RESET, THIS TEST WILL INSURE THAT THE SECTOR COMPARE FLOP

609
610

(2) EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO
THE POINT WHERE SEARCH 1S ENABLED, I.E., P EN SEARCH H IS

612

SEARCH'* FLOP,

614

RESET.

ggg

611

613
2}2
617

618

THAT "ENABLE SEARCHTM IS NOT STUCK AT ONE OR ZERO.

IS NOT STUCK AT ONE.

IS ACTIVE.

SET AND RESET THE SECTOR PULSE TO SET 'CS3 EN
AND CLOCK ''SS SECTOR COMPARE'® FLOP WHICH

SHOULD NOT SET.

IS STUCK AT ONE.
REPEAT,

BUT SET MAINTENANCE SECTOR COMPARE AND VERIFY

THAT DTE SEFS.

THIS TEST FAILS IF RAINTENANCE SECTOR

COMPARE IS STUCK AT ZERO.

gf%%

PROBABLE FAULT:

654
625

€S MODULE

DS MODULE

SET SECTOR PULSE AND VERIFY THAT DTE IS

THIS TEST FAILS IF J INPUT TO SECTOR COMPARE FLOP

CZRNCAO RMB0 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 3-11

TEST 13 FORMAT CHANGE TEST
:
PURPOSE
TO VERIFY THAT A CHANGE IN FORMAT INHIBITS SEARCH

ENABLE UNTIL THE NEXT INDEX PULSE.
:
PROCEDURE

THE TEST WILL USE 'DTE'' FOR VISIBILITY OF ''CS3 EN
SEARCH H''.
THE FOLLOWING STEPS ARE EXECUTED:

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

(2)
EXECUTE A DATA COMMAND TO THE POINT WHERE SEARCH
IS ENABLED BY THE SEQUENCER.
(3)
ST 'MAINTENANCE SECTOR COMPARE'', THEN SET
"MAINTENANCE SECTOR PULSETM TO CLOCK °°'CS3 EN SEARCH'' FLOP

WHICH SHOULD NOT SET BECAUSE OF THE FORMAT CHANGE.

(4)
RESET SECTOR PULSE TO CLOCK °‘‘'CS5 SECTOR COMPARE'’
FLOP WHICH WILL NOT SET IF '°CS3 EN SEARCH H'' IS INACTIVE.
(5)
SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING
ERROR IS RESET.

(6) SET AND RESET INDEX PULSE TOCLEAR THE FORMAT
CHANGE FLOP.
(7) SET AND RESET SECTOR PULSE TO SET “°(S3 EN SEARCH'’
FLOP AND ''CS5 SECTOR COMPARE' FLOP.
(8)

SET SECTOR COMPARE AND VERIFY THAT DTE IS SET.

REPEAT THE TEST WITH A FORMAT CHANGE FROM 18 BiT MODE

TO 16 81T MODE.

PROBABLE FAULT:

(S MODULE

TEST 14 PROM STROBE TEST
PURFOSE:

TO VERIFY THAT WORD CLOCK AND PROM STROBE CAN BE MANIPULATED

SEQ 0014

CZRNCAO RM80 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 3-12

ggz

IN MAINTENANCE MODE.

ggg

PROCEDURE :

689
690

INITIALIZE AND SET 16 BIT MODE, THEN SEQUENCE THE
MAINTENANCE CLOCK UNTIL PROM STROBE SETS. ISSUE =< MORE

ggz

PROBABLE FAULT:

695

CS MODULE

697

DS MODULE

gg}

696

698
699
700

701
702
;82

;82

MAINTENANCE CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS.

TEST 15 SYNC WORD COUNT INHIBIT TEST

PURPOSE :

;8;

TO VERIFY THE FOLLOWING DURING READ COMMAND:

;(1)8

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

;}12

THAT 'LOOKING FOR SYNC'' INHIBITS THE WORD COUNT

;1(3.

PROCEDURE :

715

A READ COMMAND IS SETUP AND EXECUTED TO THE POINT

716

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

;;(9)

THAT "PROM STROBE ° NEVER GOES ACTIVE.

717
718

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

;55

PROBABLE FAULT:

;gz

CS MODULE IF LFS FAILS,

;gg

DS MODULE IF PROM STROBE FAILS.

227

728

729

730
;%}

;%2
735

TEST 16 SYNC DETECTION TEST

PURPOSE :
TO _VERIFY THAT THE APPROPRIATE SYNC PATTERN IS

;gg

RECOGNIZED.

;%g

PROCEDURE :

740
741

THE TEST EXECUTES A READ COMMAND IN MAINTENANCE MODE,
USING BIT 10 OF THE MAINTENANCE REGISTER (RMMRT) TO SIMULIATE

SEQ 0015

CZRNCAO RMB0 DSKLS PT2 MACRO v04.00 14-JAN-82 16:41:16 PAGE 3-13
742
743
744
745

746
747
748
749

SEQ 0016

THE _SYNC BIT STREAM, AND USING PROM STROBE TO DETERMINE

IF THE SYNC PATTERN HAS BEEN DETECTED.
THE SYNC PATTERN IS 00011001,

WITH THE LEFT MOST

BIT REPRESENTING THE LAST BIT OF THE STREAM.
PROBABLE FAULT:

DS MODULE

(S MODULE

TEST 17 ABOP~ SYNC DETECTION TEST
PURPOSE:

TO _VERIFY THAT ‘WORD COUNT INHIBIT'' | S RESET IF A
"DRIVE TIMING ERROR'' OCCURS DURING SYNC DE TECT]
ECTION.
PROCEDURE:

A READ COMMAND IS INITIATED IN MAINTENANCE MODE.

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

WHEN

TIMING ERROR AND USES PROM STROBE TO VERIFY THAT 'WORD

COUNT INMIBIT'® HAS BEEN RESEY.
PROBABLE FAULT:
1.

DS MODULE

TEST 20 SYNC GENERATION TEST
:
PURPOSE
TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS

GENERATED DURING A FORMAT OPLRATION.
PROCEDURE:

THE TEST EXECUTES A WRITE HEADER AND DATA COMMAND

IN MAINTENANCE MODE,

AND VERIFIES THAT THE CORRECT SYNC

PATTERN IS GENERATED BY MONITORING WRITE DATA AT THE MAINTENANCE REGISTER (RMMR1).

PROSABLE FAULT:

DS MODULE

CZRNCAO RM80 DSKLS PT2 MACRO Vv04.00 14-JAN-82 16:41:16 PAGE 3-14
799
800
801

gg%

TEST 21 WRITE HEADER TEST

804

PURPOSE:

806

ggg

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

809

PROCEDURE:

811

A WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE
MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE
ggglgl#:ACTER USING THE WRITE DATA BIT OF THE MAINTENANCE

805

d e

Lel. LN

3V, F YV N

00 00 0o 00 00 00 00oo

810

812

THE TEST USES CYLINDER 560., TRACK 13., SECTOR 30. AND
16 BIT FORMAT, WHICH CORRESPONSE TO THZ FOLLOWING:

HEADER:

g%}

WORD 1 - 1101001000110000

g%{

WORD 2 - 0000110100011110

ggg

PROBABLE FAULT:

g%g

829
830
831
832
ggz
ggg
837

DS MODULE OR MASSBUS MODULE

TEST 22 HEADER COMPARE TEST
PURPOSE :
TO CHECX THE OPERATION OF (1) THE SHIFT REGISTER AND

838

DATA BUFFER AS WELL AS THE (2) CRC GENERATOR DURING

g‘i,}

PROCEDURE :

843
844
845
846
847
848
849

THE TESI EXECUTES A READ HEADLR AND DATA COMMAND IN
MAINTENANCE MODE USING BIT 10 OF THE MAINTENANCE REGISTER
(RMMR1) TO SIMULATE THE DATYA BITS FOR THE FIRST AND SECOND
HEADER WORDS AS WELL AS THE CRC CHARACTER. THE CRC CHARACTER IS
IS FAULTED, AND THE TEST VERIFIES THAT A CRC ERROR IS DETECTED.
ADDITIONALLY, THE TEST VERIFIES THAT HEADER WORDS ONE AND TWO
ARE CORRECTLY TRANSFERD TO MEMORY.

853
854

PROBARLE FAULT:

839
840

850
323_

855

READ.

THE TEST USES THE SAME HEADER AS IN THE PREVIOUS TEST EXCEPT
THAT BIT 15 IS INVERTED.

DS OR IF MNODULE IF CRC ERROR NOT DETECTED:

SEQ 0C17

CZRNCAO RMBO DSKLS PT2 MACRO Vv04.00 14-JAN-82 16:41:16 PAGE 3-15

DS OR MASSBUS MODULE IF DATA INCORRECT

TEST 23 ECC GENERATION TEST
PURPOSE:

TO CHECK ECC OPERATION DURING WRJTE.
PROCEDURE
:

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

DS MODULE

TEST 24 ECC DETECTION TEST

:
PURPOSE
TO CHECK THE ECC GENERATION DURING READ.

PROCEDURE:

THE TEST EXECUTES A READ DATA COMMAND IN MAINTENANCE
MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA
WORD IS FAULTED.
THE TEST VERIF1 ES (1) THAT AN ECC ERROR 1S DETECTED
AND THAT (2) THE POS ITION AND PATTERN REGISTERS ARE VALID.
PROBABLE FAULT:

DS MODULE

SEQ 0018

CZRNCAO RMB0 DSKLS PT2 MACRO V04.00 14~JAN-8¢ 18:41:16 PAGE 4

SEQ 0019

s*LAST REVISION 07-AUG-81

695
696

.TITLE

CZRNCAO RM8O DSKLS PT2

:*DIGITAL EQUIPMENT CORPORATION
::COLORADO SPGS., CO. 80919

:':PROGRAN BY MIKE LEAVITT
;*THIS PROGRAM WAS ASSEMBLED

USING THE PDP-11 MAINDEC SYSMAC

s *PACKAGE (MAINDEC-11-D2QAC-C5), 18-MAR~81
697

SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

A
:.

B
v

700

HALT ON ERROR

13
11
10

INHIBIT ERROR TYPEOUTS

LOOP ON TEST

INHIBIT ITERATIONS

BELL ON ERROR
LOOP ON ERROR

9
8
7
6
5
4
3
2
1
0

F
ot
Fad
H
L
ot
i
o
144
o

699

®
I
%
698

USE

eoeees

.SBTTL

LOOP ON TEST IN SWR<7:0>
TN128
TNgk
IN32
IN16
TN8
TNG
TN2
TM1

BASIC DEFINITIONS

s*INITIAL AgggESS OF THE STACK POINTER sex 1100 wex

STACK
ERROR
SCOPE

EMTY
107

;sBASIC DEFINITION OF ERROR CALL
ssBASIC DEFINITION OF SCOPE CALL

000004

it hunre

7776

¥
~
[~

b\
b onded
b mbadad

P4
|=]

[

: *GENERA

RO
Ri
R2
R3
R4

Houu

RPLIRPEPRT)

[

\=]
HBWNN=OC V:JJNN NN
=

s *MISCELLANEOUS DEF INITIONS
;;CODE FOR HORIZONTAL TAB

:;CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN
s :CODE FOR CARRIAGE RETURN-LINE FEED
2 :PROCESSOR STATUS WORD
ssSTACK LIMIT REGISTER
: ;PROGRAM INTERRUPT REQUEST REGISTER
s sHARDWARE SWITCH REGISTER
; sHARDWARE DISPLAY REGISTER

RPOSE REGISTER DEFINITIONS

: ;GENERAL REGISTER
: sGENERAL REGISTER
: sGENERAL REGISTER
; ;GENERAL REGISTER
¢ sGENERAL REGISTER

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 14-~JAN-82 76:41:16 PAGE 4-1

SEQ@ 0020

BASIC DEF INITIONS

000005
090006
000007
000006
000007

RS
Ré

= X5
= X6

s sGENERAL REGISTER
. sGENERAL REGISTER

SP
PC

= X6
= X7

:;STACK POINTER
: sPROGRAM COUNTER

R?7

= X7

: sGENERAL REGISTER

J*PRIORITY LEVEL DEFINITIONS

PRO
PR1
PR2

PR3
PRG
PRS
PR6

PR?7

=0
= 40
= 100

;:PRIORITY LEVEL 0
s:PRIORITY LEVEL 1
s:PRIORIY LEVEL g

= 340

::PRIORITY LEVEL 7

=
=
=
=

140
200
240
300

;:PRIORITY
::PRIORITY
;sPRIORITY
::PRIORITY

LEVEL
LEVEL 4
LEVEL S
LEVEL 6

+*'SWITCH REGISTER'® SWITCH DEFINITIONS

SW15
SWié
SW13
SW12

=
=
=
=

SW10

= 2000

SwW11

SW09
SWO8
SWo7
SW06

100000
40000
200600
10000

= 4000
= 1000
= 400
= 200
= 100

SW0S
= 40
SW04
= 20
SW03
= 10
Sw0?
= 4
SW01
=2
Swoo
=1
SW9=SW09
SWB=SW08
SW7=Sw07
SW6=SW06
SW5=SW05
SW4=SW04
SW3=5w03
SW2=Sw02
SW1=SW01
SW0=Sw00

:*DATA BIT DEFINITIONS (BITOO TO BIT1S)

BITIS
eIT14
8IT13
8IT12
BIT11
8ITI1I0
817109
BITO8
BITS7
BITO6
BITOS
BITO4

= 100060
= 40000
= 20000
= 10009
= 4000
= 2000
= 1000
= 400
= 200
= 100
=40
=20

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 14-JAN~82 16:61:16 PAGE 4-2

SEa 0021

BASIC DEFINITIONS

0C0010
000004
000002
000001
001000
000400
000200
000100
0
000020
000010
000004
000002
000001

81703
=10
BiT02
=4
81101
=2
=1
BITO0
8179=81T709
8178=81708
8117=B1107
B176=B1706
BIT5=BIT05
BIT4=BIT04
BI713=81703
BIT2=81T02
BIT1=B1701
BIT0=81T00

000004

ERRVEC

= &

;o TIME OUT AND OTHER ERRORS

TKVEC

= 60

..TYY KEYBOARD VECTOR

200010
000014
000014
000014
000020
000024
000030
000034

RESVEC
TBITVEC
TRIVEC
BPTVEC
I0IVEC
PWRVEC
EMTVEC
TRAPVEC

000064

TPVEC

000060
201

:*BASIC ‘‘CPU"* TRAP VECTOR ADDRESSES

000240

=
=
=
=
=
=
=
=

10
14
14
14
20
24
30
34

= 64

PIRQVEC = 240

s;RESERVCD AND ILLEGAL INSTRUCTIONS
T BIT
;1 TRACE TRAP
: :BREAKPOINT TRAP (BPT)
s INPUT/OQUTPUT TRAP (:07) #+SCOPEx+
..POUER FAIL
i MULATOR TRAP (EMT) #+ERROR%+
:"'TRAP'' TRAP
::TTY PRINTER VECTOR

: ;PROGRAM INTERRUPT REQUEST VECTOR

;8%

.SBTTL

RM80 REGISTER BIT DEFINITIONS

;8?

s*RMCS1 CONTROL STATUS REGISTER

706

004000

DVA

[4)]
712
;}2

000002
000001
000077

60
FNCMSK

000000
000002

NOP
ILF02

= 00000
= 00000

sNOP_COMMAND
s ILLEGAL COMMAND

DRVCLR

= 88831

:DRIVE CLEAR COMMAND

707
708
709
710

715

716
717

000040
000020
000010
000004

718
719

000004
000006

721
222
723
724
725

000012
000014
000016
000020
000022

720

726
727
728
729

000010

000022
000024
000026
000030

Fé
F3
F2
F1

= BITI

sDEVICE AVAILABLE-READ ONLY

= 81701
= 1709
=
7

;G0 817
sFUNCTION CODE MASK

= BIT05
= BIT04
= 81703
= BIT02

sFUNCTION CODE
sFUNCTION CODE
sFUNCTION CODE
sFUNCTION CODE

sFUNCTION CODE

;FUNCTION CODES (BITS 01-05 OF RMCS1)

SEEK
RECAL

RLEASE
OFFSET
RTC
RIP
PAKACK

PACACK
ILF24
ILF26
SEARCH

=
=

004
0000

=
12
= 000014
= 000016
= 000 50
= 000022
= PAKACK
= 000024
= 000026
<= 000030

:SEEK COMMAND
:RECALIBRATE COMMAND

;RELEASE COMMAND
;OFFSET COMMAND
:RETURN TO CENTERLINE COMMAND
:READ IN PRESET COMMAND
:PACK ACKNOWLEDGE COMMAND
s JLLEGAL COMMAND
< JLLEGAL COMMAND
:SEARCH COMMAND

CZRNCAO RMB0 DSKLS PT2 MACRO Vv04.00 14~JAN-B82 16°41:16 PAGE 4-3

SEQ@ 0022

732

733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753

754

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

770

77
772
773
774
775
776
777
778
779
780
781

000030
060032
000034
000036
200040
000042
000044
000046
000050
000052
000054
000056

000060
000062
000064
000066
000070
000072
000074
000076

ILF30
ILF32
ILF34
ILF3¢
ILF40
ILF42
ILF44
ILF46

= 000030
= 000032
= 000034
= 000036
= 000040
= 000042
= 000044
= 000046

ILF54
ILF56

= 000054
= 000056

wCD
WCH
WD
WH

= 000060
= 000062

s*RMDA

DISK ADDRESS REGISTER

ILF64
ILF66
RD
RH
ILF74
ILF76

=
=
=
=
=
=

000064
000066
000070
000072
000074
000076

: TRACK ADDRESS DEFINITIONS

004000
002000
001000
000400

TA8

000020
000010
000004
000002
000001

SA16
SA8
SA4
SA2
SA1

177400
000377

TADMSK
SADMSK

100000
040000
020000
010000
004
002000
001000
000400
000200
000100
000001

= 000050
= 000052

TA4
TA2
TA?

= 8ITN

= BIT10
= BIT09
= BIT08

;SECTOR ADDRESS DEFINITIONS
= BIT04
= BITO3
= BIT02
= BITO01
= BITO0

:TRACK €& SECTOR MASKS
= 1774
= 0003

;1
ol
;1
;1
;1
1
;1
;1

RMBO REGISTER BIT DEFINITIONS

EGAL
EGAL
EGAL
EGAL
EGAL
EGAL
EGAL
EGAL

COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND
COMMAND

JWRITE CHECK DATA COMMAND
sWRITE CHECK HEADER AND DATA
s ILLEGAL COMMAND
s ILLEGAL COMMAND
sWRITE DATA COMMAND
:WRITE HEADER AND DATA COMMAND
sJLLEGAL COMMAND
s 1LLEGAL COMMAND
sREAD DATA COMMAND
sREAD HEADER AND DATA COMMAND
sILLEGAL COMMAND
sILLEGAL COMMAND

sTRACK ADDRESS 8.

: TRACK ADDRESS 4
:TRACK ADDRES
:TRACK ADDRES

sSECTOR ADDRESS 16.
+SECTOR ADDRESS 8.

:SECTOR ADDRESS
&

:SECTOR ADDRESS 2
;SECTOR ADDRESS
1
sTRACK ADDRESS MASK

sSECTOR ADDRESS MASK

s*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP
MOL
WRL
Ler

= BIT15
= BIT14
= BIT13
= BIT12
= BITN
= BIT10

sATTENTION ACTIVE
sCOMPOSITE ERROR

DPR
DRY
vV
oM

= BIT08
= BI107
= BIT06
= 8IT00

:DRIVE PRESENT
:DRIVE READY

PGM

= BIT09

:POSITIONING IN PROGRESS
:MEDIUM ON LINE

:WRITE LOCK

:LAST BLOCK TRANSFERRED
: PRUGRAMMABL
E

:VOLUME VALID
:OFFSET MODE ACTIVE

s*RMER1 ERROR REGISTER M1
100000

DCK

= BIT15

sDATA CHECK ERROR

CZRNCAQ RMBO DSKLS PT2 MACRO v04.00 14-JAN-82 16:41:16 PAGE 4-4

SEQ@ (023

RMB0 REGISTER BIT DEFINITIONS
782
783
784
785

UNS
oP
PTE

= BITI
= BITI3
= BIT12

:DRIVE UNSAFE
:OPERATION INCOMPLETE
:DRIVE TIMING ERROR

IAE
AOE

= BITI0
= BITQ9

:INVALID ADDRESS ERROR
:ADDRESS OVERFLOW ERROR

WwE

= BITI

HCRC
HCE

= BITO8
= BITO7

FER
PAR
RMR

= BITO4
= BITO3
= BIT0?

ECH
WeF

ILR
ILF

= EIT06
= BITOS

= BITO)
= 81700

:WRITE LOCK ERROR

:HEADER CRC ERROR
:HEADER COMPARE ERROR

:ECC_'HARD'' ERROR
:WRITE CLOCK FAILURE

:FORMAT ERROR
SPARITY ERROR
:REGISTER MODIFICATION REFUSED

:ILLEGAL REGISTER
:ILLEGAL FUNCTION

NDTMSK

= DCK!DTE 'WLE ! AOE 'HERC ! HCE ! ECHIWCF !FER

s*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

S*RMLA

LOOK AHEAD REGISTER

000400
000200
000100

SCé
SC3
SC2
sc1
SCo

= BIT10
= BIT09
= BJT08
= BIT07
= BIT06

sSECTOR
;SECTOR
sSECTOR
:SECTOR
;SECTOR

003700

SCTMSK

= 003700

sSECTOR COUNT MASK

115760

000377

002000
001000

:*NDTMSK'* IS USED TO MASK ERROR REGISTER 1 DURING NON -~ DATA
sCOMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS
JMASK FOR ATTENTION BITS

COUNT
COUNT
COUNT
COUNT
COUNT

= 16
= 8
= 4
= 2
= 1

2*RMMR1 MAINTENANCE REGISTER #1

—b

b ok

NOWVSNN=O

00 00 00 00 00 00 0o 00

3= AR
SR R

786
787

040000
020000
010000
004000
002000
001000
000400

sWRITE ONLY BITS
= BIT15
DBCK
BI7
DBEN
= BIT14
DEBL
= BIT13
MSEN
= BIT1?

:DEBUS CLOCK
sDEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK
sSEARCH TIMEOUT ENABLE

MRD
MUR
MOC

= BIT10
= 817109
= BIT08

sREAD DATA
SUNIT READY
;ON CYLINDER

MwP
Ml

= BIT03
= BIT02

MCLK

MSER
MDF
MS

200002
000001
100000

040000
020000

MSC
oMD

= BIT1}

= BI107
= BIT06
= BIT03
= BITO1
= BIT00

sMAINTENANCE CLOCK

s SEEK ERROR
sDRIVE FAULT
sSECTOR PULSE

SWRITE PROTECT
s INDEX PULSE

sSECTOR COMPARE
:DIAGNOSTIC MODE

;READ ONLY BITS
0c¢
= BIT15

¢0CCUPIED

EBL

;END OF BLOCK

= BIT14

= BIT13

sRUN AND GO

CZRNCAO RM80 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 4-5

SEQ@ 0024

RM80 REGISTER BIT DEFINITIONS

010000
004000

051401

REX
ESRC
PLFS
ECRC
PDA
PHA
CONT
W
EECC
MWD
LS
LST
DMD

= BIT12
=8I
= BIT10
= BIT09
= BIT08
= BIT07
= BIT06
= BITOS
= BIT04
= BIT03
= BIT02
= BIT01
= BIT00

s*RMDT

DRIVE TYPE REGISTER

MR1AAA

= DMD!MUR!DBEN!MOC!MSEN

;EXCEPTION
sENABLE SEARCH
sLOOKING FOR SYNC
sENABLE CRC OUT
sDATA AREA
sHEADER AREA
s CONTINUE
sWORD CLOCK

sENABLE ECC OUT
sWRITE DATA BIT
sLAST SECTOR
sLAST SECTOR AND TRACK
:DIAGNOSTIC MODE

100000
040000
020000
004000

NSA

TAP
MOH
DRQ

= BIT15

sNOT SECTOR ADDRESSED = 0

020026
024026

SNGPRT
DULPRT

= 020026
= 024026

sSINGLE PORT DRIVE TYPE
:DUAL PORT DRIVE TYPE

s*RMOF

OFFSET REGISTER

FMT16

= BIT12

s*RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK
XNUDC

= 001777
= 176000

010000
004000
002000
001000
000200
160577

001777
176000

ECI
HCI
SSEI
OFD
XNUOF

= BIT14
= BIT13
= 8ITN

=8I
= BIT10
= BIT09
= BI1107
= 160577

sTAPE DRIVE = 0
sMOVING HEAD = 1
sDRIVE REQUEST REQUIRED

216 BIT WORD FORMAT

sECC INHIBIT
sHEADER COMPARE INHIBIT
sSKIP SECTOR ERROR INHIBIT
sOFFSET FORWARD
JUNSED BITS OF RMOF

;MASK FOR CYLINDER ADDRESS
sUNSED BITS OF RMDC

s *RMMR2 MAINTENANCE REGISTER #2
100000
040000

020000
010000
004000
002000
001000
000400
000200
000100
000040

000002

sREAD ONLY BITS

RQA
ROB
TAG
18T
cC
CH
8809

= BIT1S
= BIT14
= BIT13
= BIT12
= 8ITN
= BIT10
= BIT09

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

8801

= BITO1

sTAG BUS

8808
8807
8806
6805
8804
BBO3
BB0?

= BI108
= BIT07
= BIT06
= BIT05
= BIT04
= BIT03
= BIT02

sTAG BUS
:TAG BUS
;TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
s TAG BUS

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 4-6

SEQ 0025

RMB0 REGISTER BIT DEFINITIONS

890

000001

gg}
893
894
895
896
897
898
899
900
901
gg%

907

ggg

100000
040000
020000
010000
004000
002000
000200
000040
000010
001527

= BIT15
= BIT14
= BIT13
= BIT1?
= BITN
= BIT10
= BIT07
= BITO5
= BITO3
= 001527

SBTTL

PROGRAM MNEMONICS

100000

MSE

= BIT15

sMANUFACTURING DETECTED SECTOR ERROR

020000

SSF

= BIT13

;SKIP SECTOR FAILURE

040000

USE

.SBTTL

912

000000

RMCST

917
918
919
920

000020
000024
000026
000030

000006
000012
000014
000016

921

000032

924

000040

922
923
925
926

927

930

000034
000036
000042
000044

046

000050
52
000054

000056

931

000060
000062
000064
000066
000070
000072
000074
000076

932
3%2

000077

935

:TAG BUS

BSE
SK1
OPE
IvC
LSC
LBC
DV(
SSE
DPE
XNUER2

8}?

913
914
915
916

= BIT00

; *RMER2 ERROR REGISTER 2

38?
906

8800

= BIT14

:BAD SECTOR ERROR
¢SEEK INCOMPLETE
sOPERATOR PLUG ERROR
s INVALID COMMAND ERROR
;LOSS OF SYSTEM CLOCK
;LOSS OF BIT CLOCK
sDEVICE CHECK
;SKIP SECTOR ERROR
sDATA PARITY ERROR
JUNSED BITS OF RMER?

sUSER DETECTED SECTOR ERROR

RMBO REGISTER INDEX VALUES
= Q0

sCONTROL STATUS REGISTER #1

RMMR1
RMOT
RMSN

=
=
=
=

:LOOK AHEAD REGISTER
sMAINTENANCE REGISTER
sDRIVE TYPE REGISTER
¢SERJAL NUMBER REGISTER

RMDC
RMHR

= 34
= 36

RMDA
RMDS
RMER1
RMAS

RMOF

RMMR2

RMER2
RMECT

RMEC2

ILRG50

ILRG32
ILRG34

= 06
= 12
= 14
= 16

20
24
26
30

= 32

= 40

= &2
= 44

= 46

= 50
= 52
= 54

ILRG56 = 56

:DISK ADDRESS REGISTER
:DRIVE STATUS REGISTER
:ERROR REGISTER #1
:ATTENTION SUMMARY REGISTER

sOFFSET REGISTER

;DESIRED CYLINDER REGISTER
:HOLDING REGISTER

:MAINTENANCE REGISTER #2
sERROR REGISTER #2
:ECC POSITION REGISTER

:ECC_PATTERN REGISTER

:ILLEGAL REGISTER 50
:ILLEGAL REGISTER 52
sJLLEGAL REGISTER 54

:ILLEGAL REGISTER 56

ILRG6O
ILRG62
ILRG64
ILRG6G
ILRG70
ILRG72
ILRG?4
ILRG76

= 60
= 62
= 64
= 66
= 70
= 72
= 74
= 76

sJLLEGAL REGISTER 60
sILLEGAL REGISTER 62
s ILLEGAL REGISTER 64
sJILLEGAL REGISTER 66
;ILLEGAL REGISTER 70
sJLLEGAL REGISTER 72
sILLEGAL REGISTER 74
:ILLEGAL REGISTER 76

IDXMSK

= 77

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

sMASK FOR REGISTER INDEX NUMBER

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 4-7

SEQ 0026

RH CONTROLLER REGISTER BIT DEFINITIONS

;*RMCS1 CONTROL STATUS REGISTER #1
100000

000100

sC
TRE
MCPE
PSEL
A17
A16
RDY

= BIT1S
= BIT1%
= BITI3

;SPECIAL CONDITION-READ ONLY
STRANSFER ERROR
SMASSBUS CONTROL BUS PARITY ERROR-READ ONLY

BITO08
BIT07
= BIT06

*ADDRESS EXTENSION
*READY=-READ ONLY
*INTERRUPT ENABLE

=
=
=
=

BIT10
BIT09

*PORT B SELECT
*ADDRESS EXTENSION

;*RMCS2 RH CONTROL STATUS REGISTER #2
100000

LT
WCE

PGE

=
=
=
=
=
=

MDPE
OR
IR

= BITO8
= BIT0?
= BITO

UPE
NED
NEM

MXF

BIT1S
BIT1%
BIT13
BIT12
BIT11
BIT10

= BIT09

(LR

= BITO

BAI

= BIT03

PAT

u2
Ul

= BIT0%

= BITO02
= 31701

= BIT00

:DATA LATE-READ ONLY
*WRITE CHECK ERROR-READ ONLY
*UNIBUS PARITY ERROR
*NONEXISTANT DRIVE-READ ONLY
*NONEXISTANT MEMORY<-READ ONLY
*PROGRAM ERROR-READ ONLY

*MISSED TRANSFER

*MASSBUS DATA BUS PARITY ERROR-READ ONLY
SOUTPUT READY-READ ONLY
*INPUT READY-READ ONLY

*CONTROLLER CLEAR
‘PARITY TEST

SUNIBUS ADDRESS INCREMENT INHIBIT
SUNIT SELECT
SUNIT SELECT

TUNIT SELECT

;UNIT SELECT MASK

UNTMSK

= 7

;UNIT SELECT MASK

:*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000
040000
020000
010000
004000
002000
000100
000010

000002
000001

APE

= BIT1S

;ADDRESS PARITY ERROR

= BIT1]

SWRITE CHECK ERROR LOW WORD

DPEHI
DPELO
WCEHI

= BIT14
= amg
= BIT1

DBL

2 BIT10

WCELO

*DATA PARITY ERROR HIGH WORD
SDATA PARITY ERROR LOW WORD
*WRITE CHECK ERROR HIGH WORD

*DOUBLE WORD TRANSFER

1€
IPCK3
IPCK2
IPCKT
IPCKO

= snog
= BIT
= BITO2
= BITO1
= BITOO

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

RMCST

= 00

;CONTROL, STATUS REGISTER #1

RMCS2

= 10

*CONTROL,

RMIC
RMBA

RMDB
RMBAE

RMCS3

= 02
= 04

= ;
=

*INTERRUPT ENABLE
$INVERT PARITY CHECK
*INVERT PARITY CHECK
SINVERT PARITY CHECK
*INVERT PARITY CHECK

*WORD COUNT REGISTER
*BUS ADDRESS REGISTER

STATUS REGISTER #2

‘DATA BUFFER

*BUS ADDRESS EXTENSION

*CONTROL, STATUS REGISTER #3

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 14~JAN-82 16:41:16 PAGE 4-8

SE@ 0027

RH CONTROLLER REGISTER INDEX VALUES

339

176700
120254

ABASE
AVECT1

1767?0
120254

sUNIBUS ADDRESS
sUNIBUS VECTOR ADDRESS AND PRIORITY

CZRNCAO RMB0O DSKLS PT2 MACRG V04.00 14~ AN-82 16:41:16 PAGE 5

SE@ 0028

TRAP CATCHER

.SBTTL

.=0
,*ALL UNUSED LOCATIONS FROM 4 - 776 CCNTAIN A *'.+2,HALT"’
s*SEQUENCE TO CATCH I_LEGAL TRAPS AND INTERRUPTS

000000

000174
000176

TRAP CAT(CHER

'LOCATION19‘CONTAINS 0 TO CATCH IMPROPERLY LCADED VECTORS

000174
000000
000000

DISPREG: .WORD
SWREG:
.WORD
.SBTTL

0
0

;;SOFTWARE DISPLAY REGISTER
1SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

, 000200

000137

002732

JMP

NSTART

;;JUMP TO STARTING ADDRESS OF PROGRAM

3 000204

000137

002722

JMP

NSTART

:CHANGE RH/RM BUS ADDRESS

.SBTTL

ACT11 HOOKS

t'Qt*t*t"fitti.ittlit‘iitti'ltt.tt.tt.fi'...tfit*tt't.t.tttfitttttt

000210

$SVPC=.

;SAVE PC

oz13§3

$ENDAD

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

000052 000000

WORD

000046
.

*fi00KS REQUIRED BY ACT11

.=46

000046

000210

001100

"=$SVPC

.=1100
"SBTTL

::2)SET LOC. sz 10 ZERO
::"RESTORE
P

APT PARAMETER BLOCK

l**t'ttt't.t'ttt.t'tti't"'tt.fit.t'tttttt'.!ttttttt..tttttttttt

ssr LOCATIONS 26 AND &4 AS REQUIRED FOR APT

tttt*tt!ttttttti.'t'Q'it't'ttl0.'..'!'ttfitfitt'ttl.tt'Q'tttttttt

001100

$X=.;:SAVE CURRENT LOCATION

000024

=24

000024 000200
000044

001100

11FOR APT START UP

.=.8X

::RESET LOCATION COUNTER

=44

000044 001100

1SET POWER FAIL 10 POINT TO START OF PROGRAM

200

::POINT TO APT INDIRELT ADDRESS PNTR.

$APTHDR ::POINT TO APT HEADER BLOCK

s tittt*t.ttt".tt*'tt.t'ti"tlfifiltfi'..fit'tt.'.t.tl'i'.llt.tttt't

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

001100
001102
001104
001106
001110

, 001112

000000
001222
000002
000002
000002

000042

SAPTHD:

$HIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:

.WORD
.WORD
.WORD
.WORD
.WORD

escaDR - YO

0
SMAIL
2
2
2

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

SETEND-SHAIL/?

::LENGTH MAILBOX-ETABLE (WORDS)

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-~JAN-82 16:41:16 PAGE 6

SEQ 0029

COMMON TAGS

.SBTTL

COMMON TAGS

JoNRNR AN R A AN RN AN N AR RN AN

AR AN AN AR RAA R AR RANANAARRNAANRARRNROORS

s*THIS TABLE CONIAINS VARIOUS COMMON STORAGE LOCATIONS

:*USED IN THE PROGRAM,

001114
001114
091116
001117

001114

$CMTAG:

000000

000

.=TAGADR

WORD

STSTNM: .BYTE
$ERFLG: .BYTE

0
0

s;CONTAINS THE TEST NUMBER
s CONTAINS ERROR FLAG

0
1

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

001120
001122
001126
001126

000000
000000
000000
000000

SICNT:
SLPADR:
SLPERR:
SERTTL:

.WORD
.WORD
.WORD
.WORD

O
O
0O
O

001132
001134
001136
0C1'40

000000
000000

000C00

SERRPC: .WORD
$GDADR: .WORD
$B8DADR: .WORD
$GDDAT: .WORD

9
0
0
0

001146

000000

001152
001154

000000

001130
001131

001142
001144
001150
001151

001156
001160

201162

000
001

001217

001220

s sADDRESS OF SWITCH REGISTER

.BYTE
.BYTE
.BYTE
.BYTE

0
2
12
0

$TMPI1:
$TMP2:
$TMP3:
$TMP4:
STIMES:

.WORD
.WORD
.WORD
.WORD
O

O
O
0
O

$QUES:

.ASCII

$SLF:

LASCIZ

.SBTTL

APT MAILBOX-ETABLE

000
002
012
000

$TMPO:

000000
000000
000020
000000
000000

077

015

012

377
000

377

177564
177566

.WORD

PC OF LAST ERROR INSTRUCTION
ADDRESS Ck °GOOD' DATA
ADDRESS OF °'BAD' DATA
'GOOD' DATA

DSWR

SNULL:
SFILLS:
$FILLC:
$TPFLG:

$TPS:
$TPB:

s CONTAINS
:cCONTAINS
ssCONTAINS
s :CONTAINS

ssAUTOMATIC MODE INDICATOR
s ¢ INTERRUPT MODE INDICATOR

177562

DISPLAY: .WORD
$TKS:
177560

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

0
O

$TKB:

000000
207

WORD

177562

177570
177560

000000

00121é

WORD

s CONTAINS
:;CONTAINS
; sCONTAINS
;s CONTAINS

::CONTAINS 'BAD* DATA
: JRESERVED=-NOT TO BE USED

SWR:

001174

001210
001212

WORD

$AUTOB: .BYTE
$INTAG: .BYTE

O
0

177570

177564
177566

001176
001200
001202
001204
001206

$8DDAT: .WORD
MORD

000

01164
001166

001170
001171
001172
001173

SITEMB: .BYTE
SEPMAX: .BYTE

:2START OF COMMON TAGS

DDISP

:;ADDRESS OF DISPLAY REGISTER
s:TTY KBD STATUS

s:TTY KBD BUFFER

s+ TTY PRINTER STATUS REG. ADDRESS
s:TTY _PRINTER BUFFER REG. ADDRESS

s sCONTAINS NULL CHARACTER FOR FILLS
s CONTAINS # OF FILLER CHARACTERS REQUIRED
..INSERT FILL CHARS. AFTER
A °‘LINE_FEED'
;‘TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)

:JUSER DEF INED

s sUSER DEF INED
s sUSER DEF INED
:sUSER DEF INED
: sUSER DEF INED
s sMAX. NUMBER OF ITERATIONS

SESCAPE:0
S$BELL: .ASCIZ

:;ESCAPE ON LRROR ADDRESS
<207><377><377> ..CODE FOR BELL

S$CRLF:

<15>

.ASCII

cQUESTION MARK

..CARRIAGE RETURN

<12

soLINE FEED

S o RRAARRAAAARRAARINAAAAETERAAAARAEARARRAEAAEAARRAAAAACAAAARAAARRERES

SaRRANANARN A RN RRNAARA AR AR RARAAAARRARAARARAARAAA
RN R AARERRS

001222

001224
001226

.EVEN

000000

010000
C€000CT

SMAIL :

$MSGTY: .WORD
SFATAL:
$TESTN:

.WORD
.WORD

AMSGTY

AFATAL
ATESTN

s sAPT MAILBOX

::MESSAGE TYPE CODE

;:FATAL ERROR NUMBER
;;TEST NUMBER

CZRNCAO RMBO DSKLS PT2 MACRO v04.00 14-JAN-82 16:41:16 PAGE 6-1

SEQ@ 0030

APT MAILBOX-ETABLE

SENV:
SENVM:
$SWREG:
SUSWR:
$CPUOP:

.BYTE
.BYTE
.WORD
.WORD
.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

‘e

: :ENVIRONMENT MODE BITS

$SAPT SWITCH REGISTER

$SUSER SWITCHES
*:CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

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

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

BIT 10=REAL TIME CLOCK

BIT

000
000

S1: .BYTE
SMTYP1: .BYTE
;*

AMAMSI
AMTYP1

9=FLOATING POINT PROCESSOR

BIT

B=MEMORY MANAGEMENT

:HIGH ADDRESS.M.S. BYTE

:MEM. TYPE.BLKNT
MEM.TYPE BYTE
=~

.WORD

AMADR?

000
000
000
000

$MAMS?: .BYTE
SMTYP2: .BYTE
SMADRZ: .WORD
SMAMS3: _BYTE
SMTYP3: .BYTE

AMAMS?
AMTYP?
AMADR
AAAMS
AMTYP3

000
000

SMAMSL: .BYTE
SMTYP4: .BYTE

AMAMSS
AMTYPS

000000
120254
000000
176700
000000
000000
000000
000060
000000
000000
000000
000000
000000
000000
000000

001326

SMADRG:
SVECT1:
SVECT2:
SBASE:
SOEVM:
$COW1:
$COW2:
$ODWO:
$ODW1:
SODW2:
$DDWS:
$DDOW4:
$DDWS:
$ODW6:
$ODW7:

SETEND:
MEXIY

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

:SMEM.LAST ADDRESS.BLKA?
::HIGH ADDRESS.M.S.BYTE

:SMEM. TYPE ,BLK#3

AMADR3

*MEM.LAST ADDRESS,BLKA3
$:HIGH ADDRESS,N.S.BYTE

AMADR4
AVECT1
AVE(T2

*IMEN.LAST ADDRESS.BLKN
: - INTERRUPT VECTORA1,.BUS PRIORITY#1

ADEVM
ACDW?
ACDW2
ADD
ADDW1
ADDW
ADDW
ADDW&
ADDWS
ADDWG
ADDW?

::HEH TYPE ,BLKAG

INTERRUPT VECTORN20US PRIORITYA2

BASE ADDRESS OF EQUIPMENT UNDER TEST
‘DEVICE MAP

:$CONTROLLER DESCRIPTION WORD#1

: CONTROLLER DESCRIPTION
Mgonocz
<

001270
021272
001274
001276
001300
501302
001304
001396
001310
001312
001314
001316
001320
001322
001324

001266
001267

SMADR3: .WORD

*MEM. TYPE ,BLK#?

000000

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

;:HIGH ADDRESS,M.S. BYTE

001264

. %

500 NSEC M0$S=003

:sHIGH ADDRESS ,BLKA1

(IR TRAIR IR TR 1)

001256
001257
001260
001262
001263

* %

$MADR1:

.0- A YA TE TR ¥

000000

0..

001254

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002

001252
001253

* N

-t

AMSGLG

)

000
000
000000
000000
000000

.WORD

SETABLE:

: :PASS COUNT
P DEVICE COUNT
Y1170 UNIT NUMBER
‘ SMESSAGE ADDKESS
**MESSAGE LENGTH
**APT ENVIRONMENT TABLE
: "ENVIRONMENT BYTE

00124
00124
001244
001246
001250

$MSGLG:

APASS
ADEVCT
AUNIT
AMSGAD

000000

.WORD
.WORD
.WORD
.WORD

:DEVICE DESCRIPTOR WORDA1
[

001240

001242

$PASS:
$DEVCT:
SUNIT:
SMSGAD:

<
Leid
[7
(=]

000000
000000
000000
000000

=TM
~y

001230
001232
001234
001236

::DEVICE DESCRIPTOR WORDA?

::DEVICE DESCRIPTOR WORDA3S
..DEVICE DESCRIPTOR WORD#4
s :DEVICE DESCRIPTOR WORDAS

::DEVICE DESCRIPTOR WORDAS
..DEV!CE DESCRIPTOR WORD#7

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 164-JAN-82 16:41:16 PAGE 7

SEQ 0031

USER DEFINED T2GS

001326

001330
001332

000000
000000
000000

001334
001335

000
015

.SBTTL

USER DEFINED TAGS

AUTSIZ:
CHGADR:
XXDP:

+WORD
+WORD
.WORD

0
0
0

cALLOW AUTO DRIVE SIZING = ), USE MANUALLY INPUT DRIVES = 1
: CHANGE RH/RM BUS ADDRESS = =1, NO CHANGE = 0

.BYTE

0
13.

:'XXDP' DEVICE CODE FOR THE RMBO.
;:LO BYTE = 0
:Hl BYTE CONTAégS_L?§T TRACK ADDRESS OF UNIT

LSTRK:

;THE LOW ByTE CONTAINS THE DRIVE NUMBER FROM WHICH

:THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

*UNDER TEST. RM

sTHE REGISTER INPUT BUFFER IS USED FOR
:STORING DRIVE STATUS
GETBUF:
.WORD
.WORD
.WORD
.WORD

RMDSI:
RMER1]:

.WORD
.WORD

RMCSZ]:

RMASI:

.WORD

RMLA::
RMDBI:
RMMR1I:
RMDT]I:
RMSN]I:
RMOF]:
RMDCI:
RMHRI:

.WORD
.WORD
.WORD
.WORD
.WOPD
.WORD
.WORD
.WORD

RMCS31:

.WORD

RMMR2I: .WORD
RMERZ]:
.WORD
RMECII:
.WORD
RMEC2]I:
.WORD
I: .WORD

[wlelelalelelalelelelalelelalelalealslelelele)

;REGISTER INPUT BUFFER

RMCS1I:
RMWCI:
RMBAI:
RMDA]:

;CONTROL, STATUS REGISTER #1
‘WORD COUNT REGISTER
:BUS ADDRESS REGISTER
‘DISK ADDRESS REGISTER

1CONTROL,

STATUS REGISTER #2

‘DRIVE STATUS REGISTER

*ERROR REGISTER #1
SATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
‘DATA BUFFER
*MAINTENANCE REGISTER #1
‘DRIVE TYPE REGISTER
‘SERIAL NUMBER REGISTER
:OFFSET REGISTER
:DESIRED CYLINDER REGISTER
‘HOLDING REGISTER
:MAINTENANCE REGISTER #2
‘ERROR REGISTER #2
:ECC POSITION REGISTER
*ECC PATTERN REGISTER
‘BUS ADDRESS EXTENSION REGISTER

$CONTROL, STATUS REGISTER #3

;THE REGISTER OQUTPUT BUrFER IS USED FOR
sASSEMBLING DATA GOING TO REGISTER
PUTBUF:

000000

<REGISTER QUTPUT BUFFER

RMCS10: .WORD
RMWCO:
RMBAO:

RMDAO:

.WORD
.WORD

.WORD

RM(CS20: .WORD

RMDSO:

RMER10:
RMASO:
RMLAO:
RMDBO:
RMMR10:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

OO0V O0OOOOOO

88888388888

SRCERRNERES

001412

;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 AMEAD REGISTER
‘DATA BUFFER
*MAINTENANCE REGISTER #1

CZRNCAQ RM80 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 7-1

USER DEF INED TAGS

001440
001442
001444
001446
001450
001452
001454
001456
001460
001462
001464

000000

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

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

0
0
0
0
0
0

:DRIVE TYPE REGISTER
s SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2

RMEC10:
RMEC20:
RMBAEO:
RMCS30:

.WORD
.WORD
.WORD
.WORD

0
0
0
O

sECC POSITION REGISTER
sECC P/ TTERM REGISTER
sBUS ADDRESS EXTENSION REGISTER
sCONTROL, S1ATUS REGISTER #3

RMER20: .WORD

;ERROR REGISTER #2

2LR
OOg
l‘\:NN-h—l—i

s88888

VIV UI\ANWN

883

;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
cTHE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
sFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
:ézDTgE ¥QEL565A ZERO WORD IS A BLANK AND REPRESENTS THE

001526
30

TSTQUE:

.WORD

BLKW
WORD

8.
0

SLPCSR: .WORD
SLPCSB: .WORD
SLPVEC: .xg

172540
172542
}82

SLLCSR: .WORD

177546

SLLVEC: .gg

}83

sCONTAINS DEVICE POINTER

‘TEST QUE FOR DEVICES UNDER TEST
“TABLE TERMINATOR GOES HERE WHEN

*ALL 8. DEVICES ARE UNDER TEST.

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

:KW11=L CONTROL + STATUS REGISTER

*KW11-L INTERRUPT VECTOR

$PSW:

.WORD

:STORAGE FOR PRIORITY

CLOCK:
STOPCL:

.WORD
.WORD

*ADDRESS OF START CLOCK SUB
*ADDRESS OF STOP CLOCK SUB

TIME:
WATCH:

.WORD
.WORD

sPUT TAGS HERE

*STORAGE FOR ELAPSED TIME
*STORAGE FOR REMAINING TIME

CZRNCAQ RABO DSKLS PT2 MACRO V04.00 14-JAN-BZ 16:41:16 PAGE 8

SEQ 0033

ERROR POINTER TABLE

.SBTTL

ERROR PUINTER TABLE

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

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

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC),
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

¢ *NOTE1:
:*NOTEZ:
i

L
o¥
A

DH
DT
DF

: 001542

$SERRTB:

;ERROR
001542
001544
001546
001550

032244
040152
040266
040322

:;POINTS

THE

ERROR MESSAGE

:sPOINTS TO THE DATA HEADER
;sPOINTS TO THE DATA
;:POINTS TO THE DATA FORMAT

CANNOT CLEAR NED STATUS

EMT
EHT1
EpT1
EFT1

;ERROR
001552
001554
001556

001560

032252
040156
040270

JERROR
032300

EMT3

001566
001570

000000
000000

0
0

000000

001600

032320
000000
000000

CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT

JERROR
001602
001604
001606
001610

4
EMT4
0
0

000000

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

JERROR
001572
001574
001576

001562

001564

CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED

EMT2
EHTZ2
EDT2
EFT2

040324

032342
040162
040272
040326

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

EMTS
EHTS
EDTS
EFT5

JERROR

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 8-1

ERROR POINTER TABLE

001612

001614
001616
001620

032366

001622
001624
001626
001630

032410
040166
040272
040326

032432
000000

sERROR
001642
001644
001646
001650

032450
000000
000000
000000

032466
000000
000000
000000

032504
000000
000000
000000

EMT13
0
0
0

sERROR
001672
001674
001676
001700

EMT12
0
0
0

;ERROR
001662
001664
001666
001670

EMT11
0
0
0

;ERROR
001652
001654
001656
001660

CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS

OF DEVICE REGISTERS

EMT10
0
0
0

000000
V00000

7
EMT?
EHT?
EDTS
EFTS

;ERROR
001632
001634
001636
001640

EHTS
EDTS
EFTS
;ERROR

EMT6

040162
040272
040326

032522
000000
000000
000000

REGISTTMTM SELECT 4 APPEARS S-A-0

EMT14
0
0
0

SERROR

SEQ 0034

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE §-2

ERROR POINTER TABLE

032540
000000
000000
000000

;ERROR

032556
000000
000000
000000

EMT17

032574

:ERROR

OP]1 SET WITH SEACH TIMOUT DISABLED

EMT20
EHT1
EDT1
EFT1

032612
040152
040266
040322

sERROR

032634
040152
040266
040322

OPI SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET

EMT21
EWTY
EDT?
EFT1
;ERROR

DTE SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED

EMT22
EHT1
EDT1
EFT1

032656
040152
0460266
040322

sERROR

DTE SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET

EMT23
EHT]
EDTY
EFT1

032702
040322

:ERROR

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

SEQ 0035

CZRNCAO RMB0 DSKLS PT2 MACRO Vv04.00 14-JAN-82 16:41:16 PAGE 8-3

ERROR POINTER TABLE

001772
001774
001776
002000

032726
040152
040266
040322

EMT24
EHT]
EDT
EFT1

:ERROR
002002
002004
2006
002010

032752
040152
040266
040322

29
002014

002016
002020

EMT26

000000
000000

0
0

002030

033024
040152
040266
040322

;%
002036
002040

002060

033100
040152
040266

;ERROR
002062

033112

CANNOT CLEAR RMER1,DTE

PROM STROBE RESET EARLY

EMT32
EHT1
EDTI
EFTY

040322

31
EMT31
EHT1
EDTY
EFT1

;ERROR
002052
002054
002056

CANNOT SET PROM STROBE WITH BIT CLOCK

EDT1
EFT1

033064
060152
040256
040322

30
EMT30
EHT1

:ERROR
002042
002044
002046
002050

COULD NOT SET DTE AFTER FORMAT CHANGE

EFTY

033044
040152
040266
040322

27
EMT27
ENHTT
EDT1

;ERROR
002032
002034

MBA CLR L IS STUCK ACTIVE

;ERROR
002022
002024
002026

032772

000000

DTE SET WITH SECTOR PULSE DURING FORMAT CHANGE

EMT25
EHT1
EDT]
EFT1

;ERROR
002012

33
EMT33

PROM STROBE SET EARLY

CZRNCAQ RMB0 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 8-4

SEQ 0037

83
84
85

86
87
88

H
D
3

:ERROR
002072
002074
002076
002100

LOOKING FOR SYNC SET EARLY

EMT34

033124
040152
040266
040322

ENT1
EDT]
EFT1

;ERROR
002102
002104

———

040152
040266
040322

mmm

002064
002066
002070

)
@l =l

ERROR POINTER TABLE

LOOKING FOR SYNC DID NOT SET

EMT35

033136

EHT
EDT1
EFT

060152

040266
040322

:ERROR

PROM STROBE

s ERROR

SYNC DETECTED WITH WRONG PATTERN

:ERROR

SYNC NOT DETECTED

;ERROR

DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC

;ERROR

WRITE GATE DID NOT COME ON OR RESET EARLY

SET WHILE LOOKING FOR SYNC

033170
040226
040312
040340

033220
040152
040266
040322

033242
040152
040266
040322

033270
040152

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 8-5

ERROR POINTER TABLE

002156
002160

040266
040322

104

}82

;ERROR
002162

002164
002166
002170

033306
000000
000000
000000

107

}83

110

033340
040152
040266
040322

113

}}g
033354
040152
040266
040322

116

%%g
033370
040172
040274
040322

119

%%?

033406
040152
040266
040322

122

002242
002244
002246

033424
040152
040266

HEADER AREA DID NOT COME ON OR RESET EARLY

CRC ENABLE DID NOT SET

INCORRECT HEADER GENERATED DURING WRITE

EMT47
EHTL?
EDT47
EFT1

;ERROR
002232
002234
002236
002240

EMT46
EHT
EDT1
EFTY

;ERROR
002222
002224
002226
002230

INCORRECT SYNC PATTERN DURING HEADER

EMT4S5
EHT1
EDT1
EFTY

;ERROR
002212
002214
002216
002220

44
EMT43
EHT?
EDTS
EFTS

;ERROR
002202
002206
002206
002210

INCORRECT SYNC PATTERN DURING HEADER

EMT43

033306
040166
040272
040326

}}}

43
0
0
0

;ERROR
002172
002174
002176
002200

%%2

EDT1
EFM

READ GATE INCORRECT DURING HEADER AREA

EMTS50
EHT1
EDT
EFT1

:ERROR 51

EMT51
EHT1
EDTY

UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE

SEQ CO3&

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 14~JAN-82 16:41:16 PAGE 8-6

ERROR POINTER TABLE

12
12
12

EFTY

040322

Y- V|

002250

;ERROR
002252
002254
002256
002260

040322

INCORRECT TAG BUS DURING DATA COMMAND

DATA TIMING SEQUENCER CONTROLS INCORRECT DURING DATA COMMAND

EMTS4
EHT1
EDT]
EFT1

033472
040152
040266
040322

;ERROR

DATA AREA DID NOT COME ON OR RESET EARLY

EMTSS
EHTY

033510
040152
040266
0640322

EDT1
EFT1

:ERROR

ECC ENABLE DID NOT SET

EMTS6
EHTY
EDT1
EFT1

033526,
040152
040266

040322

JERROR

DEVICE IS NOT AN RM8O

EMTS5?
EHTS5?
EDTS?
EFTS7

033542

sERROR

{

EMT276
EHT1
EDT1
EFT1

040030
040152
040266

sERROR

002332
002334
002336
002340

INCORRECT HEADER READ IN DIAGNOSTIC MODE

EMTS
EHTS
EDTS
EFTS

033440
040176
060276
040330
:ERROR

002262
002264
002266
002270

60
EHT?O
EHTY
EDT1
EFT1

DEVICE AVAILABLE IS NOT SET

SE2 0.

CZRNCAO RM80 DSKLS PT2 MACRO V04.00 14=JAN=-82 16:41:16 PAGE 8-7
ERROR POINTER TABLE
146

%2;

JERROR

002342
002344
002346
002350

033572
040206
040302
040330

149

}g?

033610
040152
040266
040322

152

}gz
033626
060152
040266
040322

155
%gg

033640
(040152
040266
040322

158

}gg
033654
040152
040266
040322

161

}g%
033666
000000
000000
000000

164

%22

65
EMTES
EHTT
EDT1
EFT

:ERROR
0026412
002414
002416
002420

66
EMTE6
0
0
0

:ERROR 67
002422
002424
002426
002430

033702
000000
000000
000000

DATA AREA DJD NOT RESET

UNEXPECTED ECC ERROR IN DIAGNOSTIC MODE

EMT64
EHT?
EDT1
EFT1

;ERROR
002402
002404
002406
002410

CANNOT CLEAR PROM STROBE WITH BIT CLOCK

EMT63
ENTI
EDT1
EFTI
JERROR

002372
002374
002376
002400

62
EMT62
EHT1
EDT1
EFT1

:ERROR
002362
002364
002366
002370

INCORRECT ECC PATTERN GENERATED DURING WRITE

EMT6)
EHT6
EDT61
EFTS?7

:ERROR
002352
002354
002356
002360

EMT67
0
0
0

INCORRECT DATA TRANSFERRED TO MEMORY

SEQ 004(

CZRNCAQ RMBO DSKLS PT2 MACRO Vv064.00 14-JAN-82 16:41:16 PAGE 8-8

ERROR POINTER TABLE

167

:ERROR 70
002432
002434
002436
002440

EMT70

0
0
0

:ERROR 71

173
174
175

002442
002444
002446
002450

033740

000000
000000
000000

EMT71
0
0
0

JERROR 72
002452
002454
002456

033764
000000
000000
000000

0O ~NO

002460

b
b
b

033720
000000
000000
000000

—b
i ad

168
169

EMT72
0
0
0

:ERROR 73
002462
002464
002466
002470

034010
000000
0000V0

000000

EMT73
0
0
0

;ERROR 74
002472
002674
002476
002500

034030

EMT74
0
0
0

SERROR 75
002502
002504
002506
002510

EMT7S
0
0
0

SERROR 76
8nr76
000000

0
0

SEQ 0041

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 8-9
ERROR POINTER TABLE

;ERROR 77

}gg
002522
002524
002526
002530

034066
000000
000000
000000

191

}gg

EMT?7
0
0
0

;ERROR

100

002532
002534

035674
040252

EMT170
EHT150

002540

040340

EFT115

002536

040312

194

}gg
040010
040152
0460266
040322

197

}gg
034142
040152
040266
040322

200
%8}

035740
040252
040312
040340

203
%8§

035762
000000
000000
000000

206
%8;

SEARCH ENABLE WONT SET

103

OCCUPIED 1S INCORRECT FOR FUNCTION CODE

104

READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF

EMT174
0
8

sERROR

002602
002604
002606
002610

102

EMT173
EHT150
EDT115
EFT115
;ERROR

002572
002574
002576
002600

RUN AND GO WONT SET

EMT102
EHTY
EDT
EFTY
;ERROR

002562
002564
002566
002570

101
EMT275
EHT]
EDT1
EFT1

;ERROR
002552
002554
002556
002560

CANT SET VOLUME VALID

EDT115

;ERROR
002542
002544
002546
002550

209
210

036010
040152
040266
040322

105

READ IN PRESET DIDNT CLEAR RMOF

EMT175
EHT]
EDTI
EFT1
;ERROR

106

READ IN PRESET DIDNT CLEAR RMDA

SEQ 0042

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 8-10

1
1

D
F

sERROR
002622
002624
002626

002630

040134
040152

107

READ IN PRESET DIDNT CLEAR RMDC

EMT302
EHT]
EDT1
EFT1

040266

060322

sERROR

040322

d el

)

-t
=g =4

036026
040152
040266
040322

nmmm

002612
002614
002616
002620

ERROR POINTER TABLE

110

CANT SET OFFSET MODE BY OFFSET COMMAND

EMT200
EHT1
EDT1
EFT?

sPUT ERROR TABLE HERE

.EQ 0043

CZRNCAQ RMBO DSKLS PT2 MACRO v064.00 14~JAN-82 16:41:16 PAGE 9
ERROR POINTER TABLE

SEQ 0044

sTHIS ROUTINE AANDLES UNEXPECTED TIMEOUTS

3 002642

011600

S 002646
6 002650

022626
104401

& 002644

002654

000417

7 002714

010046

002714

8 002716
9 002720

BADTMO: MOV

005740

éigss:

104402
000240

.SBTTL

14 002722
}2 002730

012737
000402

177777

17 002732
18 002736
19 002740

005037
000240
005227

001330

20 002744
5} 002746

001375

001330

000000

MoV

RO,=(SP)

012706
005026
022706
001374
012706

001154

2777

012737

025054

*ADJUST PC =2

*:GET OVER THE ASCIZ

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

;SETUP FOR TYPING OUT PC

JPUT "HALT(0)® INSTRUCTION HERE IF YOU WISH
*TO STOP ON UNEXPECTED TIMEOUT.

START OF PROGRAM

START1: MOV
BR

#-1,CHGADR
START?

:CHANGE RH/RM BUS ADDRESS

START:
CLR
START2: NOP
INC

CHGADR

;NO CHANGE IN ADDRESS

sTTY LOOP, WAIT FOR INCREMENT

.SBTTL

002750
002754
002756
002762
002764

*RESTORE STACK POINTER
1:TYPE ASCIZ STRING

643

LASCIZ

BNE
RESET

(SP)+,(SP)+
658

TYPOC
NOP

;SAVE PC WHERE THE TIME OUT OCCURED

-(ROS

cMP
TYPE

002656

(SP) RO

$0F WORD
*RESET THE WORLD

INITIALIZE THE COMMCN TAGS

::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG,R6
;2FIRST LOCATION TO BE CLEARED
CLR
(R6)+
: sCLEAR MEMORY LOCATION

001114

BNE
MOV

001100
000020

#SWR,R6

.~6
#STACK, SP

;:INITIALIZE A FEW VECTORS
MOV

: sDONE?

:;LO0P BACK IF NO
;:SETUP THE STACK POINTER

#$SCOPE acxotvsc ::10T VECTOR FOR SCOPE ROUTINE

002776 012737 000340 000022
3006 012737 025604 000030
003012 012737 000340 000032
003020 012737 030610 000034

MoV
MOV
MoV
nov

#340, a#OTVEC+S ;:LEVEL 7
cginfioa SFENTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
#3460, a0ERTVEC+2 ;:LEVEL 7
S3TRAP acrnnpveg *-TRAP VECTOR FOR TRAP CALLS

003034
003042
003050

MoV
MoV
MOV

F3PURDN acpuavsc :;POMER FAILURE VECTOR
#340 a#buRVEC+2 ::LEVEL 7
SENDCT,SEOPCT
::SETUP END~OF-PROGRAM COUNTER

003026 012737 000340 000036

003656
003062
003066
003076

012737 030716 000024
012737 000340 000026
013737 021212 021204
005037
005037
112737
012737

001206
001210
000001
00307¢

001131
001122

003102 012737 003102 001124
003110
003114

013746
012737

000004
003150

000004

003136
003144

022777
01072

177777

176010

003122
003130
003146

012737
012737
000403

177570
177570

001154
001156

MoV

CLR
CLR
MOVB
MOV

MOV

#340, a#TRAPVEC+2; LEVEL 7
STIMES
SESTAPE
#1,SERNAX
#. . SLPADR

#. SLPERR

SSINITIALIZE MUMBER OF ITERATIONS
$3CLEAR THE ESCAPE ON ERROR ADDRESS
S3ALLOW ONE ERROR PER TEST
:SINITIALIZE THE LOGP ADDRESS FOR SCOPE
- Qse

TUP THE ERROR LOOP ADDRESS

:
SWITCH REGISTER. 1F NOT FOL®D OR IT
2;SIZE FOR A HARDWARE
J:EQUAL TO A ''-1 , SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
MERRVEC = (SP)
;:SAVE ERROR VECTOR
MOV
#64$ ,SERRVEC
s:SET UP ERROR VECTOR

MOV
MoV

(w®
BNE
BR

SR
#DDISP oISPLAY

ssSETUP FOR A HARDWARE SWICH REGISTER
:sAND A HARDWARE DISPLAY REGISTER

658

csBRANCH IF NO TIMEOUT TRAP OCCURRED
ssAND THE HARDWARE SWR IS NOT = -1
¢ sBRANCH IF NO TIMEOUT

#-1,35 WR
668

:sJRY TO DNEFERENCE HARDWARE SWR

LZRNCAC RMBO OSKLE PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 9-1

SEQ 0045

INITIALTZE THE COMMON TAGS

83%1?2
012716

003156

64$:

:?Y

#65$, (SP)

003164 C€12737
000174 001156
003172 012637 000004
668:

MOV
MOV

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

003156 omg? 000176 001154 658:
003176 005037 001230

003202

003210

132737

001403

000200

001243

25 003220 012737 002642 000004
5(7, 003226 012737 000300 000006
28

005227

177777

003242

022737

021354

104401

003260

003240 001032
003250

003252

001426

003256 000423
003326

#SSWREG, SWR

*:NO,USE APT SWITCH REGISTER

#BADTMO,ERRVEC
#PR6.ERRVEC+2

BNE

688

BEQ

68$

3529“
.SBTTL

003334

123727

001242

000001

112737

000001

001150

003360

..resr USER SIZE UNDER APT
*YES,USE NON-APT SWITCH

:SETUP FOR UNEXPECTED TIMEOUT
:LEVEL 6

TYPE PROGRAM NAME

TYPE

000042

29 003366

678

MOV
MOV

000042

005737

003342
003344
003352
003354
003356

BEU

MOV

;CLEAR PASS COUNT

WAPTSIZE,SENVM

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

003326

003332 001012

$PASS

;:POINT TO SOFTWARE SWR

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

.SBTTL

003234

#SWREG, SWR

CLR

BITB

%gg% 012737 001244 001154 6781
24

MOV

::SET UP FOR TRAP RETURN

001406
023727 001154 000176
001005
104407
000403

718:

..ACT-H"

..rvpe ASCIZ STRING

SBRANCH IF YES

B8R
é
GET OVER THE ASCIZ
"ASCIZ <CRLF>CIRNCAO -° AMB0 DISKLESS TEST. PT 23<CRLF>
GET VALUE FOR SOFTWARE SWITCH REGISTER
ST
w62
;ARE WE RUNNING UNDER XXDP/ACT?

BNE

70$:

*BRANCH IF NO

ASENDAD , a#62

708

*SBRANCH IF YES

708
SWR, #SWREG
718
718

*BRANCH IFYES
..sonme SWITCH REG SELECTED?
s :BRANCH IF NO
$3GET SOFT-SWR SETTINGS

)

ssnv.n

MOVB

#1,SAUTOS

BEQ
(M
BNE
GTSWR
BR

:ARE VE RUNNING UNDER APT?

::SET AUTO-MODE INDICATOR

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

%é

*PAPER TAPE (MANUAL). ACT'1, XXDP CMAIN OR DUMP

33 003366 005037 001332

CLR

XXDP

;CLEAR *XXDP' LOAD DEVICE STORAGE

%237 %33283
8?:'5;5; 000040 001332
003410 122737 000007 001332

%
P8

#7.XXDP

asusu.o XXDP

%r’osme
INDICATOR ?AND NUMBER
SIS _IT A VALID NUMBER

39 003420

CLRB

XXDP

iNO.

8EQ

.aa IF NEITHER

3%, 003372

122737

38 003416

103002

40 0034%

005737

42 003432

104401

41 003430

105037

001425

003436 000412
64

43 003464

4% 003466
45 003472
46 003474

005046

113716
104403
001

000016

001332

000042

003440

001332

000041

(P8

BHIS

18:

TST

TYPE

B8R
,}ézsn CASCIZ
LR

416,441
1%

62
73s

*LOADED FROM AN RMS0
2
YES

DEFAULT TO DRIVE 0

SCHAIN MODE OR ACT11 AUTO ACCEPT ?
+TYPE ASCIZ STRING

72%
$3GET OVER THE ASCIZ
<CRLF>/NOT TESTING DRIVE 7
-(SP)

MOVB XXDP, (SP)
TYPOS
.BYTE
1

;CLEAR WORD ON STACK

*GET DRIVE ADDRESS
*TYPE THE ADDRESS
SONLY 1 CHARACTER

CZRNCAO RMBO DSKLS PT2 MACRO v04.00 14~JAN-82 16:41:16 PAGE 9-2

SEQ 0046

GET VALUE FOR SOFTWARE SWITCH REGISTER

47 003475
48 00

000
104401

49 00 oz

000460

51 003506
52 003510
53 003512

005227
061055
104401

003516 000410
003540

5¢ 003540
55 003542
56 003546
57 003550
58 003551
59 003552

005046
113716
104403
001
000
104401

003556 000432
. 003644
64

65 003644

005037

67 003656
gg 003656

001537
012737

001217

177777

28:

003520

..758:
7is:
001332

003560
--768:

51 ¥

66 003650 005737 000042
70
71 003664

72 003664
;2 003672

132737
001124

75 003674
76 003676
;g 003702

005001
013700
104401

79 003706
80 003714
81 003716

136137
001507
104401

82 003722

010146

003726

002

003726

003727

000200

001300

001243

001300

001217

INC
BNE
TYPE

#-1
33
758

-ASCIZ

<CRLF>/TO TEST DRIVE /

:SUPRESS LEADING ZEROS
‘CR-LF

$CRLF

SGET NUMBER OF DRIVES

;FIRST TIME THRU HERE ?
)
,,rvpe ASCIZ STRING

743

“GET OVER THE ASCIZ

CLR
~(SP)
MOV
XXDP. (SP)
TYPOS
BYTE
1
.BYTE
0
TYPE
768

B8R

LASCIZ

;CLEAR WORD ON STACK
*GET DRIVE ADDRESS
*TYPE DRIVE ADDRESS
SONLY 1 CHARACTER
*SUPRESS LEADING ZERDS
S:TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

7. HALT PROGRAM, CLEAR LOC. 40 AND PESTART PROGRAM./<CRLF>

CLR

AUTSIZ

;LET AUTO DRIVE SIZING OCCUR

BEQ
MOV

STANDAL ONE
#377 . $DEVA

‘B8R IF NO
*SET DEVICE MAP FOR ALL DRIVES

PY TR,

*RUNNING IN AUTO MODE 2

:PROGRAM IS RUNNING IN AUTO MODE ~ SEE IF SIZING IS ALLOWED
Xs12:

1$:

BITB
BNE

#BIT7,SENVM
128

:SIZING ALLOWED ?
*NO

CLR
MOV
TYPE

R1
$BASE RO
,SYSTAT

:START FROM DRIVE 0
:LOAD THE BASE ADDRESS
STYPE ‘UNIT STATUS:®

BITB
BEQ
TYPE

ATNTBL(R1),SDEVM
21S DEVICE PRESENT IN MAP ?
118
:BR IF NO
$CRLF
SCR-LF

MOV

104402

000

TST

001276
031770
032234

;CHECK FOR AUTO MODE OR STANDALONE MODE

001326
000377

.BYTE
TYPE

R1,-(5P)

..savs R1 FOR TYPEOUT

.BYTE

..rvps 2 DIGIT(S)

TYPOS
.BYTE

160 TYPE--OCTAL ASCIi
- SUPPRESS LEADING ZERCS

gz 003730

104401

032126

TYPE

.BLNKS&

STYPE4 BLANK

85 003734

012760 000040 000010

MoV

#CLR,RMCS2(RO)

;CLEAR MASS BUS

88 003752

032760

BIT

#NED ,RRCS2(RO)

:1S DRIVE PRESENT
?

86 003742
87 003746

89 003760
90 003762
91 003770
92 003772

93 004000

9 004006
95 004010
96 004016
97 004020

010160
005760

001027
032760
001426
012737

022760

001407
022760
001403
104401

000010
000012

010000

000010

004000

000000

032006

004132

020026

024026
032013

000026
000026

MOV
ST

R1.RMCS2(RO)
REDS(RO)

BNE
8IT
8EQ
MoV

3s
#DVA,RMCS1(RO)
4
#$RMB0, 108

BEQ
CMP
BEQ
TYPE

28
#264026,RMDT(RO)
2
,NOTRA

CMP

#20026

:LOAD THE DRIVE ADDRESS
:ACCESS DRIVE REGISTER
‘BR IF NO
:1S DRIVE AVAILABLE ?
‘B8R IF NO
;ASSUME RM80 DEVICE

.RMDT(RO) :SINGLE PORT RM80
?
‘BR IF YES
:DUAL PORT RMRO ?
*BR IF YES
‘DRIVE NOT AN RMB0

I CIRNCAO RMBO DSKLS PT2 MACRO V04.00 14~JAN-82 16:41:16 PAGE 9-3
GET VALUE FCR SOF TWARE SWITCH REGISTER

103 004040
}8‘; 004044

104401
000402

032045

106 004046
107 004052

104401
005737

032062
001326

146137
000422

032234

108 004056

109 004060
}}? 004066

001026

010000

000012

28:

001300

000413

104401

032101

6s:

115 004076
116 004102
117 004104
118 004110
119 004112

005737
001408
123701
001360
104401

001332

7%:

122 004120
123 004126
124 004130

104401
104401
104401

127 004134
128 004136
}%8 004142

005201
020127
003661

000007

131 004144
132 004150

104401
000137

001217
004672

:g? 004116

}gz 004132

000755

BIT

BEQ
8R

TYPE

}}z 004074

112 004070

8R
w»n

000443
032760
00141
000417

wves

98 004024
99 004026
100 0040
}83 004036

001332
032030

TYPE
1ST
BNE
8l(8
8R

118

lgOL,RHDS(RO)
$

SEQ@ 004

JCHECK NEXT DRIVE
c1S MEDIUM ON LINE ?

:BR

IF NO

NOTPRS

sDRIVE NOT PRESENT

.NOTAVL

;DRIVE NOT AVAILABLE
:AUT?FS£6ING ON ?

§s

AUTSIZ

sCHECK NEXT DRIVE

118
'BR
ATNTBL(R1) ,SDEVM
18
;CHECK

CLEAR DEVICE FROM BIT MAP

NEXT DRIVE

UNTOFF

sDRIVE OFFLINE
;PRINT DRIVE TYPE

XXDP

:LOADED FROM RM8O ?

8s
XXDP,R1
{3
LODEV

§s

‘1S THIS THE DRIVE ?

;BR IF NO
*DRIVE IS LOAD DEVICE

8$:
9%:

JUNTON

108:

118:

R1
R1.#7
1$

: INCREMENT THE DRIVE ADDRESS

+SCRLF

:CR=LF

12%:

"BLNKS2

CMNSTART

:DRIVE ONLINE

STYPE 2 BLANKS
*PRINT DRIVE TYPE
‘MESSAGE ADDRESS HERE
ALL DRIVES ARE CHECKED ?

SBRANCH IF NOT

JJUMP TO COMMON STARTY

CZRNCAO RM80 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 10

2R 28
23

004737

027224

005227
001023

177777

ONE :
STANDAL

031360

JSR

PC,STKINT

;INITIALIZE CONSOLE

INC
BNE

#-1
28

;FIRST TIME THRU HERE ?
‘BR IF NO

001176
001176

TYPE
RDCHR
MOV

000131

N
~NV
O

001176
0544

1s:

,MSHELP

(MPB
BNE
TYPE

(SP)+,$TMP1
STMPI.X'Y
18
,$TMPI

TYPE

TYPE
TYPE

B8R

;WANT HELP ?
*GET RESPONSE

HELP

SSAVE AND ECHO RESPONSE
‘WAS IT A YES RESPONSE ?
:NO
STYPE 'Y!
*YES = TYPE MELP TEXT

;TYPE

$CRLF

‘CR-LF

'N'

égse IF USER WANTS 10 CHANGE UNIBUS ADDRESS
ST

BEQ

CLR
TYPE

CHGAOR

:CHANGE RH/RM BUS ADDRESS ”

CHGADR
.SCRLF

“NO CHANGE NEXT TIME
*CR-LF

‘BR IF NO

ingLocue TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY

TYPE

001176

031421

8\0@
O W
A
N ugw-oo-NONWS NN~

83882039282 2

nNO

B RS RRRRRES pae
8FERERE

160000

001176

001276

48:

58:

031463
001272
032130

001176

031472
001272

TYPE

,BLNKS2

*:SAVE SBASE FOR TYPEOUT

$:60 TYPE=-<OCTAL ASCII(ALL DIGITS)

‘TYPE 2 BLANKS

‘GET NEV BUS ADDRESS
*CARRIAGE RETURN ?

53
#160000,$TMPT
48
CNSLO2

SYES~SKIP TO NEXT ENTRY
;BASE ADDRESS IN 1/0 PAGE ?
SYES
STYPE WARNING MESSAGE

nov

$TMP1, SBASE

“STORE NEW BUS ADDRESS

TYPE
CLR
?gggc

,CNSLO3
<(SP)
SVECT1, (SP)

:GET CURRENT VECTOR ADDRESS

TYPE

,BLNKS2

;TYPE 2 BLANKS

(SP)+,STMP1

STRY AGAIN

*GET NEW VECTOR ADDRESS
SCARRIAGE RETURN?

BEQ
P
BH]

78
#1000,$7MP1
6

SYES~SKIP TO NEXT ENTRY
SVECTOR ADDRESS < 1000 ?
SYES!!

B8R
MOVB

SVECT1,.RO

‘GET CURRENT VECTOR ADDRESS

TYPE

6S:

(SP)+,$TAP1

;TYPE CURRENT BUS ADDRESS

8EQ
P
BLOS
TYPE

RDOCT
MOV

001176
001000

$BASE .- (SP)

RDOCT
MOV

001176

CNSLO1

MOV

TYPOC

032130

OB WIN—~ OOV ~N

STANDALONE INPUT ROUTINES

;SEE IF OPERATOR WANTS HELP TEXT

g
$382383838
RERANSSE

= OO

PONIND =D cod b o ad ed o wmid d md

EVBIRGRU N =00 00 NO N B N

.SBTTL

031411
001276

ARV
S S &»

SEQ 004t

INPUT ROUTINES

NN
IR —

STANDALONE

gflSLO‘

STYPE WARNING MESSAGE

JRETRY

CZRNCAO RMBO DSKLS PT2 MACRO Vv04.00 14~JAN-82 16:41:16 PAGE
STANDALONE INPUT ROUTINES

57 004376
58 004402
S9 004404

042700
005720
010060

177400

61 004412
62 004416

013700
o1§7zo

€0 004410

63 004422
gg 004426
66

67 004434

68 004440
69 004442
70 004446

005010

;CLEAR SIGN EXTENSION
S INCREMENT RO BY 2
:SETUP TRAP CATCHER ADDRESS AND

001176
021754

MOV
MOV

$TMP1,RO
#1IRP, (RO)+

*GET NEW VECTOR ADDRESS
:GET ADDRESS FOR INTERRUPT VECTOR

005227

177777

005037

73 004462
74 004464

104411
012637

76 004476
77 004500

gg 004512

72 004456

177776

#C<377>.R0
(RO)+
RO,~2(R0O)

001273
001176

71 004452

104401

CLR

move
MOVB

001272

031526

001217

8s:

001300

9s:

031746

003664

023727
003427
000423

90 004554 104411

000377

001300

001176

000015

10$:

001176

012637
023727

001432
104401

001176

0013776
001176

000015

97 004610
98 004612
99 004620
100 004622

002404
023727
003403
104401

103 004630
104 004636

106 004646

000067

031670

128:

013701
042701

001176
177770

138:

122737

000377

}85 004626 000711

107 004654

001176

156137

101337

032234

108 004656

005237

001326

110 004666

000137

003664

109 004662 104401 001217

001300

148:

'DRIVE(S):

(SP)+,$TMP1

:GET RESPONSE

10$
A55

‘NO
,
*YES., TYPE “"ALL'’ AND GO

(P
8EQ
TYPE

$TMP1,4CR
128
STMP1

:CARRIAGE RETURN ?
SYES
*EFHO RESPONSE

BLY

128

*YES

RDCHR

MoV
e

XSz

SNUMBER < 0 ?

SNUMBER > 7 ?
:NO
sILLEGAL INPUT

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

JYES
STYPE °*,

128
STNP1.2°7
138
gNSLOG

:YES
SNUMBER > 7 ?
*NO
STYPE ** ?ILLEGAL INPUT''

MoV
BIC

$TMP1,R1
#°C7.R1

C(MPB

£377.$DEVAM

:GET RESPONSE
:CARRIAGE RETURN ?

SRETRY

:R1 = DRIVE NUMBER

:DONE ?

118

:NO

,S$CRLF

iCR-LF

AUTSI2

JMP

Xs1Z

SECHO RESPONSE
SNUMBER < 0 ?

ATNTAL(R1),SDEVM

INC

TYPE

TAUTO SIZE

STHP1 47
13$
12$

B8R

B8HI

*SET DEVICE MAP FOR ALL DRIVES

§TMP1,0°0

STMP1
$§TMP1. 00

8LY
P
BLE
TYPE

SIS INPUT A"2

,8DEVM

TYPE
e

BISB

001300

*TYPE

#377

8EQ
TYPE

031355

,MSDRVS

MOV

P
BLE
BR

11$:

*BR IF NO
STYPE INPUT INSTRUCTIONS
‘CR-LF

STMPT.#'A

000067

8s
,CNSLO?
$CRLF

MNP

JMP

95 004576 104401 001176
96 004602 023727 001176 000060

105 004640

*CLEAR DEVICE MAP

000137

002430

93 004570
94 004572

$DEVM

TYPE

031344

85 004540

91 004556
92 004562

CLR

BNE
TYPE

84 004532 023727 001176 000060
86 004542
87 004550
gg 004552

<FIRST TIME THRU ?

001007
104401

023727
001436
104401

'GET PRIURITY LEVEL
;STORE NEW VECTOR ADDRESS

#-1

001176

81 004516
82 004526
83 004526

SVECFi»1,(RO)
STHPl.SVfCT1

;PUT HALT IN TRAP ADDRESS +¢2

INC

BNE
TYPE
TYPE
RDCHR
MOV

012737

(Rb)

-DIALOGUE TO INPUT DEVICE NUMBERS

75 004470 023727 001176 000101

78 004504

SEQ 0049

BIC
ST
MOV

113710
113737

001002
104401
104401

10-1

:SET DEVICE IN MAP

D0 NOT AUTO SIZE WHEN TYPING DRIVE STATUS
$GO SIZE DEVICES

CZRNCAC RM80 DSKLS PT2 MACRO Vv04.00 14-JAN-82 16:41:16 PAGE 1
STANDALORE

:ASSEMBLE TEST QUE FROM DEVICE MAP

2 004672
3 004672

b el

b cd

b —d

4 004676

OIS NN = O DO~

SEQ 0050

INPUT ROUTINES

104401

CMNSTART:

031712
001300

TYPE
MOV

ioevn RO

TYPE

.COHHA

MoV
MOV

#TSTQUE+2,R1

BNE

031355
18:

TYPE

2s:
736

031355

032234
000002

001217

021374

'DRIVE(S)

RO = DEVICE MAP

10 BE TESTED'

:BR_IF DRIVES TO TEST

‘TYPE *

nps "NONE*

R1,TSTQUE

INITIALIZE ENTRY POINTER

#1.R2

*R1
= ADDRESS OF FIRST ENTRY IN QUE
= DEVICE POINTER

R3
R2.R0
38
, COMMA

‘RS = DEVICE MUMBER
xs THIS DEVICE IN MAP ?
‘NO
!
STYPE TM,
*

R3,-(SP)

*:SAVE R3 FOR TYPEOUT

*YES - ENTER DEVICE NUMBER IN QUE
;G0 TYPE--OCTAL ASCII

..TYPE 1 DIGIT(S)

#2.R
R?
zg

*ADVANCE ENTRY POINTER
*ADVANCE DEVICE POINTER
ogge ALL DEVICES
?

“ADVANCE DEVICE NUMBER

(R1)

*TERMINATE TEST QUE

UPPRESS LEADING 2EROS

ATNT?L(RB)JR1);éNTER ATTENTION BIT IN QUE

000001

3s:

4S:

CLR
TYPE

:SIZE FOR CLOCK

000042
002732
021344

.SCRLF

1%:

2s:
READY1:

STYPE CR-LF

PC,SIZCLK

:SEE IF CLOCK PRESENT

.65

::TYPE ASCIZ STRING

18T
BNE

a2
58

:ANY MONITOR PRESENT ?
‘BR IF YES

$GET42

*RETURN CONTROL TO MONITOR

648

*YES - CLOCK IS PRESENT
:iGET OVER THE ASCIZ

<CRLF>/NO *L* OR'*P* CLOCK/
START

READY1

SDEVM
2$
W62
1$

000042

*ENTER NEXT DEVICE

JSR
BR
TYPE
8R
.ASCI2

JMP
JMP
BR

001300

001116
001206
027224
000000
005142

sTYPE

- NONE

R3,(R1)

005020

002732
021344

DRIVES

START
$GET42
STSTNM
STIMES

PC,STKINT
#PRO,~(SP)
2648.- (SP)

SJUMP TO START

:READY TO START TEST

*ANY DRIVES IN MAP ?
:BR IF YES
*ANY MONITO® PRESENT ?
‘B8R IF YES

*JUMP TO START
*RETURN CONTROL TO MONITOR
:RESET TEST NUMBER
YINITIALIZE NUMBER (S ITERATIONS

INITIALIZE TTY
;PUT NEW PS ON STACK
2ipUT NEW PC ON _STACK

:sPOP NEW PC AND PS

CZRNCAO RMBO DSKLS PT2 MACRO v04.00 14-JAN-82 16:41:16 PAGE 11-?
STANDALONE

SEQ 0051

INPUT ROUTINES

005142
gg 005142

117737

i
174320

52
53 005150
56 005154

013700
012760

001276
000040

58
59 005176

104401

001217

55 005162
gg 005170

60 005202

117760
012737

105737 001300

61 005206
62 005210

001406
104401

005220
005222
005223

104403
002
000

63 005214

64 005224

65 005226
66 005230
67 005232
68 005234

174300
006400

013746

005004

005304
001376
005304
001376

001234

000010

000010
001334

648:

MOVE

QTSTQUE.SUNIT

;LOAD DRIVE NUMBER

;CLEAR MASSBUS CONTROLLER. SELECT DRIVE AND SET LAST TRACK ADDRESS
MOV
$BASE ,RO
;RO = UNIBUS ADDRESS
MOV
#CLR,RMCS2(RO)
>CLEAR MASSBUS

MOVB
MOV

@TSTAUE,RMCS2 (RO}
#TAB!TAL ' TAT,LSTRK

;SELECT DEVICE UNDER TEST
*SET LAST TRACK = 13.

;TYPE DRIVE NUMBER TO BE TESTED(SUNIT)
TYPE
$CRLF
: CR=LF

1ST8

$DEVM

SANY DRIVES IN MAP ?

MOV

$UNIT,~(sP)

*:SAVE SUNIT FOR TYPEOUT

TYPOS
BYTE
BYTE

2
0

DEC
BNE
DEC
BNE

RG
2
Ré¢
=2

BEQ
TYPE

031762

001234

18:

CLR

1$
MSGDRV

R¢

*BR IF NO
*TYPE 'DRIVE'

$:TYPE DRIVE NUMBER
*%G0 TYPE-~OCTAL ASCII

S3TYPE 2 DIGIT(S)
*ISUPPRESS LEADING ZEROS

:THESE TWO LOOPS ARE ADDED TO

‘WAIT FOR TTY

CZRNCAQ RMB0 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 12

.SBTTL

;REGISTER ASSIGNMENTS

‘RO

9
10
1
12

‘R

‘R2,R3
:
‘R4.RS
:
‘R6

‘R7

=
=
=

UNIBUS ADDRESS OF RH CONTROLLER

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE

UNIT UNDER TEST

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

LINKAGE REGISTER TO SUBROUTINES

; STORAGE ASSIGNMENTS

‘STMPO-$TMP4

18
19

+$GDDAT,$8DOAT
*$SGDADR.$BDADR

SSTSIN

sRGINBF

23
25
26
27
28

SUNIT

:
:
*RGOTBF =
:

TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES

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

ALSO THE ADDRESS OF A REGISTER ERROR

TEST NUMBER

NUMBER OF DEVICE BEING TESTED

THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR

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

WRITTEN IN REGISTERS

SEQ 0052

€z RNCAO RMBO DSKLS PTZ2 MACRO V04.00 14-JAN-E2 16:41:16 PAGE 13
n
TRANSFER TEST
1

SIARNERARARAAN

TRTEST 1

SEa 005

ARAC NN AN N R R ARA AR P ARNNN N

AR ANNAANNNCANORNNRNNEN

TRANSFER TEST

SINRRRARNARAAANRANRAAN
NN AAANRRNANRARRANNRANARNAANARANACRARR AN
NS

012737

001100
001276
001466
000001

3 005264

012702

000000

001226

W
N
~
o

05270

sgss8s8s

NO
NN = OO

TST1:

004737
016037
032737
001417
111137
042737
052737
010037
062737

022230
000010
010000
001140
177770
000100
001136
000010

001140
001140

) ==

42
43
44
45

46
&7

sLOAD THE STACK POINTER

TSTQUE R1
#1,8TESTN

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

MoV

#0,R2

sR2 = REGISTER INDEX

$BASE RO

;RO = UNIBUS ADDRESS

EMT
BR

RO, $BDADR

fnncsz.ssvoR

608

SREAD THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ
;DOES NOT SET 'NED'' ERROR

208

21 005350

35 005430
36 0054634
37 005442
gg 005444

#STACK,SP

MOV
ADD

346

001140
177770

000100
001136
000010

JSR
MOY
8IT
BEQ
MOVB
8IC
8IS
MoV
ADD
EMT
B8R

e
~NN

022230
000010
010000

004737
016037
032737
001417
111137

RO.R3
R2.R3

:R3 = REGISTER ADDRESS

MNED.RMCS2(RO)
70%

-IS 'WED'' SET??
JNO!!

(R$) R4

000010

four-Qurd

010000

(=]
E;C)

22 005350
23 005352
24 005354
25 005356
29 005364
2
28 005366
29 005372
30 005400
31 005406
32 005410
33 005414
34 005422

sSCOPE CALL

SCOPE
NOP
MOV
MOV
MoV
Mov

:CL EAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET
10$:
PC,CNTCLR
JSR
;GO CLEAR CONTROLLER
MOV
RMCS2(RO) ,$BDDAT
;STORE RMCS2 AT SBDDAT
lgED.SBDDAT
8IT
BEQ
2
(R1),$GDDAT
MOVB
#ACUNTMSK , SGDDAT
BIC
#IR,$GDDAT
BIS

001136

b cd cod cumd cud wnd b wmd b

[od=I=1=4 [=4
(=I=]
Q

VWA

005236
005236
005240
005242
005246
005252
005256

001140
001140

001136

:READ REGISTER

PC,C NTC LR
;GO CLEAR CONTRCLLER
RMCS2(RO)
, $BODAT
sSTORE RMCS2 AT SBDDAT
#NED, SBODAT

308

(R1) ,$GDDAT
#~CUNTMSK ,SGDDAT

#1R,SGDDAT
RO, $8DADR

?Rncsz.savon

60s

sWRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE
005446
005446
005452
005460

:DOES NOT SET 'NED'' ERROR

000000
010000

%0s
000010

MOV

BIT
BEQ

40, (R3)

;WRITE REGISTER

70$

SNO!!

#NED,RMCS2(RO)

IS 'NEDTM SET??

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

RNCAO RMB0 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-1

SEQ 0054

TRANSFER TEST

;ADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NECXT

iegngAaLs DEVICE REGISTER

SO 005462
51 005462

000002
000002

ADD

CMP
BEQ
CMP
BEQ
CMP
8EQ
CMP
BEQ
CMP
BEQ
cMP
BHIS

000004

000010
000016

000022
022702
173257

000046

#2,R2

#RMYC ,R2
408
#RMBA ,R2
408
ARMCS2,R2
408
ARMAS ,R2
408
#RMDB ,R2
408
ARMEC2,R2
108

sADVANCE TO NEXT REGISTER
;1S THIS RMWC??
:YES - TRY NEXT REGISTER

:1S THIS RMBA??

$YES - TRY NEXT REGISTER

1S THIS RMCS2??

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

§8?T "NONEXISTENT DEVICE' ERROR FOR EVERY REMOTE REGISTER ADDRESS

67 005532
68 005540
98 005542

013737

001276

000137

021120

104002

001136

MoV
EMT
JWP

608:

71 005546
72
73

$BASE
, $8DADR
2
SEOSP

;STORE BASE ADDRESS

;G0 SELECT NEXT DEVICE

70%:
CRRARRRANRARAARARANARARCAAAEARAAAANRANARRANNARARRARAAAANNNNARRAN
SRS

RTEST 2

CTOD TEST

SRRRARRANRAAEAARARAAN
AN AR A AN ARARRARRAAN NS AAAAREAARRE RSN ROEN

1812

000004
000240
012706
013700
013701
012737

001100
001276
001465
000002

0C4737

022230

NOP
MOV

MOV

#STACK, sp
$3ASE ,RO

novV

#2,$TESTN

TSTQUE ,R?

:R1 = POINTER TO DEVICE

JSR

PC,CNTCLR

;G0 CLEAR CONTROLLER

MoV

201226

sSCOPE CALL
sLOAD THE STACK POINTER

RO= UNIBUS ADDRESS

;:SET TEST NUMBER IN APT MAIL BOX

;WRITE ONES IN REHOT;6REGISTERS
MOV

FILF76,RACST(RO)

MOV

#CYLASK,RMDC (RO)

MoV

81 005622
005630
8¢
a3
84 00 5636
85 00 5642
00 5642
86 00 005650
87 00 005656
88 005664
89 005672
90 905674
91
92

MOV
MoV

#~1,RMDACRO)

:LOAD RMCS1

:LOAD RMDA

#%CXNUOF, RMOF (RO)
#*CXNUOF. ROF (RO)

:LOAD RMDC

*LOAD RMOF

sLOAD RMOF AGAIN TO SET SSEI

SREAD REMOTE REGISTERS TWICE
MOV
#1,R2

108:

MoV

MOV
MoV
MoV
DEC
8PL

RMCS1 (RO)

( RO)
RMDA
A(
,
RMDC( RO),
RMOF(
5
108

;SEE IF ANY ONE BITS CAME BACK

;STORE RMCS1 IN INPUT BUFFER
sSTORE RMDA IN INPUT BUFFER
;STORE RMDC IN INPUT BUFFER
;STORE RMOF IN INPUT BUFFER

o
»H
SRIR323
=N =d ) = LA =N}
Egc”g‘iCD\“D‘d
) = Ll =2 (N
NN
N =S N

\qc
- Ro

8383322 3

177701

001336

001344
176000

001372

160577

001370

b
d

A~CILF76,RMCSTI ;IS RMCST 022
205
IND!!

BNE
BIC
BNE
8IC
BNE

208
#XNUDC.RMDCI
208
#XNUOF ,RMOF1
20$

RMDA]

1S RMDA 077

*NO!!
IS RMDC 02?2
NO!!
IS RMOF 0 27
*NO!!

: CANNOT gg?o/unxge A ONE FROM ANY REMOTE REGISTER
208:

SEQ 0055

BIC
BNE

FORAV2S8 L3RS

€z RNCAQ RMB0 DSKLS PT2 MACRO V04.00 14~ AN-82 16:41:16 PAGE 13-2
P4
CT0D TEST

;:ttitttttttttt'tht.titttit'tttt.tfittttttttitt'fifitttt"tttttttttt

MASSBUS INITIALIZE TEST

SRTEST 3

::i;ttttfitfitfittt'tfit.tit"tttt**.ttfii.fifit'tttttlltttttttttttttttt

001100
091276
001466
0000903

b ad

gyn&duu»
VSN N Lflhflvfiohflvhflvhumnunrd-hd-a—ha-ha.a-fissg
= OO0 NS NN 2O VWNOWVIS NN =O
~

TST3:

o
N
00O
W=
¥
N

016037
016037
016037

b
i

L=
[+

—d

104004

HSTACK, SP
$BASE RO

;LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS

MOV

#3,$TESTN

*sSET TEST NUMBER IN APT MAIL BOX

JSR

PC.CNTCLR

TSTQUE R

*R1 = POINTER TO DEVICE
;60 CLEAR CONTROLLER

;WRITE ONES IN SELECTED REGISTERS
MOV
SILF76,RMCS1(RO)

MOV

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

:LOAD RMCS?

;LOAD RMER1

:LOAD RMER2

sINITIALIZE MASSBUS WITH A CLEAR
JSR
PC,.CNTCLR
;G0 CLEAR CONTROLLER

022230

052737
052737
022737
001011
022737
001005
022737
001001

wd madt v
d cnd ad crd e

W
“~

—d ol

000000
000014
000042

:SCOPE CALL

MOV
MOV

MoV

001226

022230
000076
177777
177777

s el o e

el wild

)

D i ead el cnd wuh wnd wd

D cuh

004737

aggps

000042

001336
001352
001400

177701
001527
177777

001336
001400
001336

177777

001352

177777

001400

sREAD THE REGISTERS THAT WERE WRITTEN
MoV
MoV
MoV

RMCS1(RO) ,RMCS1I
RMERT(RO) ,RMERT]
RMERZ(RO) ,RMERZ2]

;STORE RMCS1 IN INPUT BUFFER
:STORE RMER1 IN INPUT BUFFER
sSTORE WAER2 IN INPUT BUFFER

;SEE IF ANY REGISTER BITS WERE CLEARED
BIS
#*CILF76,RMCSTI ;SET ANY BIT NOT WRITTEN

8IS
cMP

#XNUER2 , RMER2]
#-1.Rucé11

3,
BNE

#-1.RMER1]
108

BNE

CMP
BNE

;ANY ZEROS IN RMCS12?

108

SYES!!

#-1,RMER2]
108

*ANY 2EROS IN RMER2??

SANY 2EROS IN RMER]I??
SYES!!

;NONE OF THE BITS WERE CLEARED
%
EMT

108

SR SRS

SATEST 4

2 242223

232323002228 2323 3023202323232 432223233¢28232];

CLEAR STUCK ACTIVE TEST

CZRNCAO RMBO DSXLS PT2 MACRO V04.00 14-JAN-B2 16:41:16 PAGE 13-3
T4
CLEAR STUCK ACTIVE TEST

006106
006106

SEQ J05¢

SIRANRBANRARNANAANANN
NN ORI RRNRA RN NN RARANSANN NN NR AN AN CN R AN NN

1574

000004

006110
006112
006116

000240
012706
013700

001100
001276

004737

022230

012760
012760

177777
177777

016037
016037
016037
042737
001011

000014
000042
000024
040000

001352
001400
001262
001352

040200

001400

SCOPE

:SCOPE CALL

006122 013701 001466
138 006126 012?37 000006 001226

NOP
MOV
MOV

MOV
MOV

#STACK, SP
$BASE , R0

:LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS

}zg 006134

JSR

PC.CNTCLR

;60 CLEAR CONTROLLER

141

142 006140
143 006146

}215. 006156 012760 000001
146

147 006162
148 006170
149 006176
150 006204
151 006212
152 006214

042737

153 006222 001005
154 006224 032737 000001
155 006232 001001

156 006234

}gg 006236

000014
000042

:WRITE ONES IN TEST REGISTERS

MOV
MOV

000024

MOV

161 006264

}gg 006266

:LOAD RMMRI

RMER1(RO) ,RMER1 ]
:STORE RMER1 IN INPUT BUFFER
RMER? (RO) . RMER2]
:STORE RMER2 IN INPUT BUFFER
RMMRT(RO) [RMMRT]
*STORE RMMRT IN INPUT BUFFER
#UNS ,RMERT]
:DONT ACCEPT UNSAFE
10$
*BRANCM IF ANY OTHER BITS ON

BNE
BIT
BNE

108
#DMD ,RMMR1 ]
108

BIC

EMT

#SK1'DVC,RMER2] :DONT ACCEPT SKI OR DVC

:BRANCH IF ANY OTHER BITS ON
:BRANCH IF DMD IS ON

P ARARAEANAARANNRAENNRNCOGEENNARRANAANRNAANAANAERAANAAARNRARARARACARS

S*TEST §

006236
006236
006240
006242
006246
006252
160 006256

#OMD ,RMMR1(R0)

;LOAD RMER1
:LOAD RMER?

MOV
MOV
MOV
BIC
BNE

108:

159

#-1,RMERT(RO)
#-1.RMER2(RO)

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

;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON

001362

104026

TSTQUE ,R1
¥4, STESTN

TRISTATE TRANSFER TEST

M AAARANRARRNARAAANRARANAEOAEEARAEAANRARARARAARRARR AN

fs1s:

000004

000240

01,706
013700
013701
012737
005002

004737

001100
001276
001466
000005 001226

SCOPE

NOP

MOV
MOV
MOV
MOV
CLR

022230

JSR

:SCOPE CALL

#STACK 39
$BASE R
rgnué R1
#5.$TESTN

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

;CLEAR ERROR FLAGS

PC,CNTCLR

:GO CLEAR CONTROLLER

164
165 006272 012760 000076 000000
166 006300 012760 177777 000005

;WRITE ONES IN SELECTED REGISTERS
MOV
FILF76,RACST(RO)
:LOAD RMCS1
MOV
#-1,RMDA(RD)
:LOAD RMDA

171

:WRITE 2EROS IN SELECTED ngcxsrens

167 006306 012760
168 006314 012760
006322 012760
}93 006330 012760

177777
177777
177777
177777

000014
000032
000032
000042

172 006336
173 006344

012760 000000 000000
012760 000000 000006

175 006360

012760

174 006352

012760

000000

000014

000032

MoV
MOV
MoV
MOV

#-1.RMERT(RO)
#-1.RMOF(RO)
#-1RMOF(RO)
#-1.RMER2(RO)

;LOAD RMER1
;LOAD RMOF
:LOAD RMOF AGAIN TO SET SSEI
:LOAD RMER2

MOV
MOV

#0.RMCST(RO)
#0_RMDA (RO)

:LOAD RMCS?
*LOAD RMDA

MOV

#0 . RMOF (RO)

SLOAD RMOF

MOV

AAARAANANACARSY

#O.RMERT(RO)

:LOAD RMER?

CZRNCAQ RMBO DSKLS PT2 MACRO V04.00 146-JAN=-82 10:41:16 PAGE 13-4
15

TRISTATE

176 006366

000000

000034

180 006402

016037

000000

001336

184 006432

016037

187
188 006446
189 006452
190 006460
191 006466

012702
052737
052737
052737

193 006502
194 006506
195 006512
196 006516
197 006522

005137
005137
005137
005137
005137

001336
001344
001352
001370
001372

199 006532
200 006536
201 006542

043702
043702
043702

001336
001344
001352

179

181 006410
182 006416
183 006424

}gz 006440

192 006474

012760

000000

016037
0160%7
016037

000006
000014
000032

001344
001352
001370

016037

000042

001400

052737

000034

177777
177701
160577
176000

001527

MOV

000042

MCV

001400

207

208 006564

043702
043702
043702
001407

010237

000001

213 006602
4 006602

004737

022230

215
216

217 006506

81S

oM
com
com
com
¢

BIC
BIC
8I¢
BEQ

MOy

CLR

108:

000000

000006

221
222 006630

012760

000079

000000

006652
225 006660

012760
012760

017200
001777

000032
000034

226 006666
227 006674
229
230 006702

012760
012760
016037

17777
017200

177777
176250

000000

-STORE RMCS1 IN INPUT BUFFER

RMDA (RO) ,RMDAI ;STORE RMDA IN INPUT BUFFER
RMER1 (ROS , RMER1]
-STORE RMER1 IN INPUT BUFFER
RMOF
(RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER

RMER2 (ROS , RMER2]

> STORE RMDC IN INPUT BUFFER

;STORE RMER2 IN INPUT BUFFER

AXNUERS ,RMER2I
RMCST]
RMDA]
RMER1]
RMOF
]
RMDC

; COMPLEMENT REGISTER CONTENTS

RMER?]

RMCSTI,R2
RMDA] ,R2
RMERT
I, R2

RMOF
1 ,R2
RMOC] .R2
RMERZI,R2
108

;ACCUMULATE ALL ZERO BITS

;BRANCH [F EACH BIT IS 2ERO

000032
000034

ooooog
00003

000014
000042
001336

R2,$BDDAT

-SAVE RESULT FOR TYPE

SGODAT

;LOAD EXPECTED RESULT

8IS

#IT0.R2

:SET ERROR FLAG

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

EMT

012760

012760
012760

:LOAD RMER?2

;ONE OR MORE BIT POSITIONS ARE NOT ZERD

012760
012760

223 006636
224 006646

RMDC (RO) CRMDCI

com

218 006614
%53 006622

000000
000000

MOV

BIC
BIC
BIC

001142

052702

:LOAD RMDC

:CHECK EACH REGISTER SONTENT FOR ZERO BITS WRITTEN & READ
MOV
#-1,R
;ACCUMULATE ZEROS IN R
8IS
#CILF76 RMCSYI SET ALL BITS NOT WRITTEN
8IS
#XNUOF
, RMOF |
8IS
#XNUDC (RMDCI

209 006570 005037 001140

210 006574 104005

RMCST(ROY ,RMCST]

MOV

001370
001372
001400

5}5 006576

#0.RMER2(RO)

MOV

MOV
MOV
MOV

001372

001336
001370
001372

40,RMDC (RO)

;READ BACK ALL REGISTERS

198 006526 005137 001400

202 006546
203 006552
204 006556
582 006562

SEQ 005

TRANSFER TEST

012760

};g 006374

;PRESET SELECTED REGISTERS TO 2EROS
“(ASSUME RMCST, RMER1, RMER2 WERE CLEARED BY INIT)

MoV

MOV
MOV

#0,RMDA(RO)

#0 .RMOF (RO)
#0_RMDC (RO)

:LOAD RMDA

*LOAD RMOF
SLOAD RMDC

sWRITE ONES IN SELECTED REGISTERS
MOV
#ILF76 ,RACST(RO)

:LOAD RMCS?

MoV
MOV

#~1,RMOA(RD)
:LOAD RMDA
#*CXNUOF , RMOF (RO}
:LOAD RMOF

MoV
MOV

#-1,RMERT(RO)
:LOAD RMER1
_
#~CXNUER2 ,RMER2 (RO)
:LOAD RMERZ

MOV
MOV

#*C XNUOF , RMOF (RO)
#*CXNUDC ; RMOC (RO)

sREAD ALL REGISTERS
y
RMCS1(RO) ,RMCS1I
MoV

*LOAD RMOF AGAIN TO SET SSEI
*LOAD RMDC

:STORE RMCS1

IN INPUT BUFFER

§§RNCAO RMBO DSKLS PT2 MACRO V04.00 1~ JAN-B2 16:41:16 PAGE
TRISTATE TRANSFER TEST

016037
016037

MOV
MOV
MOV

000033
016037 0000 3
7

242 006776
2643 007000
244 007004
245 007010
246 007014
247 007020
248 007024
249 007030
250 007034
251
232

0160}
016037

000014
000042

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

177701
160577
176000

010237
012737
104006

052702

005702
001130
012702

MOV

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

;STORE RMER1 IN INPUT BUFFER

RMER2 (RO) - RMER2]

#XNUOF
, RMOF |

8I¢

*STORE RMER2 IN INPUT BUFFER

#XNUER2
, RMER2I

R2
RMCS11,R2

8IS

RMOF
I JR2

BIS

RMER1I,R2

BEQ

208

BIS

BIS
coP

177777

001140

AXNUDC SRMDCI

CLR
BIS

BIS

001344
001370
0ri372

RMDAI ,R2

;ACCUMULATE ONES IN R2
:ACCUMULATE ALL ONE BITS

RMDCI ;R2

RMER2] .R2
»-1.R2

;SEE IF EACH BIT POSITION WAS ONE

*BRANCH IF NONE STUCK

;ONE OR MOREt BIT POSITIONS ARE NOT ONE
MOV
R2,$BDDAT

208

25%:

;SAVE RESULT FOR TYPE

Eg¥

z-i.ssooAr

BIS

8177 ,.R2

;SET ERROR FLAG

308
M ,R2

:ANY ERRORS DETECTED ??

*YES - DONT DO BIT TEST
‘RO=BIT POSITION

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

BNE
MOV

000001

022230

RMER1(ROJ , RMER1]

BIC

001336

000002

RMDA
(RO) ,RMDAI
RMOF (RO) .RMOF]1
RMDC (RO) ;RMDCI

SEQ CO%

;CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ
BIC
#CILF76 RMCS1]
sCLEAR ALL BITS NOT WRITIEN

001527

001142
177777

13-5

:EXPECTED RESULT

;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS
MOV
R2,RMDA(RO)
:LOAD RMDA
MOV
R2.RMOF (RO)
*LOAD RMOF
MOV

MOV
MOV
MOV

269 007116
270
271
272 907122
273 0071
274 007136
275 007144
276 007152
277
278

279 007160
280 007162
281 007166
282 007172
283 007174
284 007176
285 007200

. RMOF (RO)

R2.RMDC (RO)
RZ.RMERI(RO)
RI.RMER2(RO)

;READ BACK THE REGISTERS
MoV

RMOA(RO) .RMOA]

MOV

RMER1 (RO ,RMER1 1

MOV
MoV

MOV

RMOF
(RO) .RMOFI
RMDC (RO) RMDCI

RMER2 (RO) . RMER2]

:LOAD RMOF AGAIN TO SET SSEI

SLOAD RMDC
:LOAD RMER?
:LOAD RMER2

;STORE RMDA IN INPUT BUFFER

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

:STORE RMER! IN INPUT BUFFER
*STORE RMER2 IN INPUT BUFFER

:CHECK REGISTER CONTENTS FOR CORRECT PATTERN
127777
001344

CLR
MOV
MoV
BIS

R3
#-1.R6
RHDA%.RS
RS.R

8IC
MOV

R5,R4
RMOF 1 .RS

comM

001370

;R3=ACCUMULATED ONE BIT
*R4=ACCUMULATED 2ERO BITS
:GET ANY GOOD BITS FROM RMDA

:GET GOOD BITS FROM RMOF

[

CZRNCAO RMB0 DSKLS PT2 MACRO V04.0M 14~JAN-82 16:41:16 PAGE 13-6

TS5

SEQ (059

TRISTATE TRANSFER TEST

286 007204
287 00721C

042705
050503

160577

BIC
BIS

#XNUOF ,RS
RS5.R3

289 007214
290 007020

042705
040504

160577

BIC
BIC

#XNUOF RS
RS, R4

288 007212 005105

con

291 007222
292 007206
293 oors 2
294 007234
295 007236
296 007242
297 oo;%u
298 007250
299 007252
300 007254
301 007256

013705
001372
942705 176000
050503
005105
042705 176000
040504
013705 001352
050503
005105
040504
013705 001400

MOV
BIC
BIS
CoM
BIC
B8IC
MOV
8IS
CoM
BIC
MOV

RMDCI,RS
#XNUDC ,RS
RS,R3
RS
#XNUDC RS
RS ,Ré
RMER11,R5
RS,R3
RS
RS,R%
RMER21 RS

303 00726¢

050503

8IS

RS.R

305 007272
306 007276

042705
040504

309 007304
310 007306
311 007310
312 007312

040503
040204
050403
020302

302 007262

042705

304 007270 005105

001527

BIC

319

320 007332

321 007332

#XNUER2 ,RS
RS.R&

MOV
coM

R2.RS
RS

BIC
8I¢
8IS
P

313 007314 001406
314 007316 010237 001140
315 007322 010337 001142
316 007326 104007
g}; 007330

RS.R3
R2.R%
R&.R3
R3:R2

BEQ
MmOV
nov
EMT
BR

268
og.ssom
. SBDDAT
7
308

;RESET ALL ONES IN R3 EXCEPT
‘FOR THE TEST BIT
;RESET TEST BIT IN R4
*COMBINE ACCUMULATED 1°S + 0°'S
‘1S PATTERN OK??

SYES!!

;SAVE TEST PATTERN
*SAVE RESULT

:SKIP TO NEXT

-ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST

268:

006302

ASL

322 007334 001402
323 007336 000137 007066
%5‘5’ 007342

308:

326

JIRARARRR RN A RAA AR

BEQ
JNP

000004
000240
012706
013700
013701
012737

RAANENCA R AN AR

RAARRANNENRR RN

AR ARRCRANRARNER

2332132432822 1222132331313 2383123343311 1233328272233 02°21

SCOPE
MOV
nov
MoV
mov
NOP

001100
001276
001466
000006 001226

SEXIT IF DONE

2 2322223212

t816:

sSHIFT THE BIT

308
258

S2TEST 6

007342
007342
007344
007346
007352
007356
527 007362

;GET GOOD BITS FROM RMER?2

8IC
BIC

307 007300 010205
308 007302 005105

;GET GOOD BITS FROM RMER1

:xuugaé.ns

coM

001527

;GET GOOD BITS FROM RMDC

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

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

328

:THE FOLLOVING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR

133

;

ggg

332

*EACH DEVICE REGISTER

NAME

REG SEL

(16,8.4.2.1

CZRNCAQ RMBO DSKLS PT2 MACRO v04.00 14~JAN-82 16:41:16 PAGE 13-7

SEQ 006

RM(ST

RMMR1

RMDA

:
:
:
:
:

RMMHR
RMMR?
RMER?2

;
:

H
:
:
:
:

VLh

SN =0V
NO NS W N

WNNN

PIRIIIIIISYAN LN N N NN

O O000 ~NO N8N

00000

RMDS
RMER1

00001
00010

RMAS

0100
00101

Q011

00110
00131
01000
01001
01010

RMDT
RMLA
RMSN
RMOF
RMD(

01011
01100
01101
01110
01111

RMEC?

RMEC?2

JEACH 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, RMERT ]S WRITTEN WiT+ ZEROS. THEN THE REGISTER

;THAT HAS iHE SAME SELECTY VALUE, EXCEPY FOR THE SELECT LINE
JBEING TESTED,

IS WRITTEN wi WITH ONES. IN THIS EXAMPLE,

:RMMRT 1S WRIFTEN WITH ONES. IF SELECT LINE 1 IS S~-A-0,
sTHE ALL ONES WORD WILL BE WRITTEN IN RMERT, AND RMER1
;WILL NOT BE O WHEN READ BACK.

360 007370
3323 007372

363
364
365 007376
366 00740c
367 007406
368 007412
369 007415
370 007422
371 007430
372 007436
375 007442
374 007444
375 007452
376 007456
377 007460

378
379

380 007462
381 007462
382 007466
383 007472
007476
384 007502
385 007506
386 007512
387 007516
388 007522

005002
012703

CLR
Mov

177777

R2
#-1,R3

+RZ= ZEROS SOURCE

:R3= ONES

SOURCE

sTEST REG SEL 1 FOR S=A-0
004737
010260
010260
010360
010360
016037
016037
020337
001007
052737
020337
001001
104010

022230
000014
000034
000024
000036
000014
000034
001
176000
001

JSR

PC.CNTCLR

MoV
MOV

R3.RMAR1T (RO)
R3,RMHR(RO)

MOV
MOV

001352
001372

mov
MOV
P

RQ.RMERT (RO)
R¢.RMDC(RO)

;G0 CLEAR CONTROLLER
;LOAD RMERT
sLOAD RMDC

sLOAD RMMR1

:LOAD RMHR
L

RMERT (RO) ,RMERT]
-STORE RMER1 IN INPUT BUFFER
RMDC(RO) ,RMDCI :STORE RMDC IN INPUT BUFFER
R3,RMERT|

001372

BNE

EMT

55557 REG SEL 1 FOR 5-A-1

004737
010260
010260
010260
01
010360
010360
010360
016037

022230
006

JSR

000032
16
000030
000040
000006

001344

MOV
MOV
MoV
MOV
MoV
MOV
MOV
MOV

PC.CNTCLR

R2 " RMOA(RO)
R RMOF (R0)
R .RMOF (RO)
RO.RMER2(R0)
R3.RMAS (RO)
ng.msncnm
RIRMMR2(RO)
RMDA(RO) ,RMDA]

:60 CLEAR CONTROLLER

SLOAD RMDA
*LOAD RMOF
*LOAD RMOF AGAIN TO SET SSEI
:LOAD RMER2
*LOAD RMAS
*LOAD RMSN
:LOAD RMMR2
:STORE RMDA IN INPUT BUFFER

CZRNCAD RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-8
16

SEQ 0061

389 007530

390 0075
391 007544
392 007550
393 007552
394 007560
39S 007564
396 007566
397 00757¢
398 007600

233 007602

016037

000032

001370

o1co§7 000042 001400
020337 001344
001015
052737 160577 001370
020337 001370
001007
052737 001527 001400
020337 001400
001001
104011

401

402 007604

403 007604

MOV

RMOF (RO) ,RMOFI

EMT

MOV
P
BNE
8IS
CMP
BNE
8IS
CMP
BNE

004737

022230

PC,CNTCLR

;60 CLEAR CONTROLLER

MoV

R . RMOF (RO)

:LOAD RMOF AGAIN TO SET SSEI

406 007626
407 007630
408 007634
409 007640
410 007644
411 007652
412 007660

MoV
MOV
MOV
MOV
MOV
MoV
MOV

007620 010260 000032
010260
010360
010360
010360
016037
016037
016037
020337

41% 007672 001015

000042
000020
000036
000046
000006 001344
000032 001370
000042 001400
001344

415 007674
416 007702

052737
020337

160577
001370

001370

418 007710

052737

001527

001400

417 007706 001007
020337

420 007722 001001
253 007724

001400

R2.RMDA(RC)
RO . RMOF (R0)

ng.mnmo»
*LOAD RMER2
R3.RMLA(RO)
*LOAD RMLA
R3.RMHR (RO)
SLOAD RMHR
R3.RMEC2(RO)
-LOAD RMEC2
RMDA
(RO) ,RMDA] -STORE RMDA IN INPUT BUFFER
RMOF (RO) ;RMOF] :STORE RMOF IN INPUT BUFFER
RMER? (ROS ,RMER2]
;STORE RMER2 IN INPUT BUFFER
R3,RMOA]

30$

BIS
P

#XNUOF
, RMOF |
R3,RMOF|

8IS

#XNUER2 RMER2]

BNE

30$

BNE

EMT

*LOAD RMDA
*LOAD RMOF

30§

R3,RMERS]
12

-TEST REG SEL 2 FOR S=A-1

425 007726
426 007732

004737
010260

432 007770

052737

427 007736
428 007742
429 007750
430 007754
431 007762

BNE

104012

423

424 007726

;STORE RMER2 IN INPUT BUFFER

JSR

MOV
MOV

419 007716

;STORE RMOF IN INPUT BUFFER

-TEST REG SEL 2 FOR S-A~0

208

404 007610 010260 000006
405 007614 010260 000032

413 007666

RMER2 (ROS , RMER2]
R3,RMDA]
208
#XNUOF ,RMOF|
R3,RMOF1
208
#XNUER2 , RMER2!
R3,RMERS]
208

022230
000014

JSR
oV

PC,CNTCLR
Rg.anmuzo»

;60 CLEAR CONTROLLER
*LOAD RMERT

000034
000076 000000
000030
000014 001352
ooog.u 001372

MoV
nov
MOV
MmOV
MoV

RZ .RADC (RO)
“LOAD RMDC
cime.mm (RO)
sLOAD RMCS1
RS, RMSN(RO)
:LOAD RMSN
RMERT(RO) .RMERT]
:STORE RMER1 IN INPUT BUFFER
RMDC (RO) ,RMDCI ;STORE RMDC IN INPUT BUFFER

020337

001352

R3,RMER1{

435 010004
436 010012

052737
020337

176000
001372

gg 010020

104013

433 007776

010260
012760
010360
016037
016037

508:

43% 010002 001007
437 010016

440
441 010022

442 010022

001001

004737

177701

001352
001372

BIS

BNE

8IS
cP

BNE

EMT

022230

443 010026 010260 000014
444 010032 010260 000032

#°CILF 76 RMERT]

<0$

#XNUDC ,RMOC I
R3,RMDC
I

43&
1

:TEST REG SEL 4 FOR S=A=0
408
:
JSR
PC,CNTCLR

MOV
MOV

RO.RMERT(RO)
R2.RMOF (RO)

;60 CLEAR CONTROLLER

-LOAD RMER1
*LOAD RMOF

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-9
16

SEQ V062

445
446
447
448
449

010036
010042

010260
(10260

000032
000034

016037

000032

001370

010046
010052
010056
010062

010360
o1oggo
010360
016037

451 010076
452 010104

0160%7
020337

000036
001352

454 010112
455 010120

052737
020337

160577
001370

001370

457 010126
458 010134

052737
020337

176000
001372

001372

450 010070

453 010110

456 010124

459 010140

001015

001007

001001

000026
000042
000046
000014

001352

001372

466 010156

BNE

0046737
010260
010250

50s:

022230
000006
000042

010360

000032

471 010210

020337

001344

473 010216

052737

474 010226
475 010230

2;9 010232

016037
016037

001007

020337
001001

000006
000042
001527

001400

004737
010260
010260
010360

022230
000014
000006
000034

485 010260

016037

000014

<88 010300

001004

484 010254 010360 000042

489 010302

016037
020337
020337

490 010306 001001
23} 010310

000006
001352

495 010312
496 010316
010322
497 010356
498 010332

IN INPUT BUFFER

:STORE RMDC IN INPUT BUFFER

50§

8IS
cMp

AXNUDC ,RMDC
R3,RMDC
]

EMT

56§

508

JSR
MOV

PC,CNTCLR
R2.RMDA (RO)

:60 CLEAR CONTROLLER
SLOAD RMDA

MOV
MOV

R3.RMDS (RO)
R3.RMOF (RO)

*LOAD RMDS
*LOAD RMOF

MOV

001344
001400

MOV
MoV
P

BNE

001400

R2.RMER2(R0)

R3,RMOA]

60§

#XNUER2 RMER2]

EMT

R3,RMERS]
608

MOV

RS.RMER2(RO)

MoV
P

RMDA(RO) ,RMDAI
R3,RMERT]

MoV

001344

BNE

;60 CLEAR CONTROLLER
:LOAD RMERT
*LOAD RMDA
*LOAD RMDC

:LOAD RMER2

RMERT
(RO) ,RMERT]

:STORE RMER1 IN INPUT BUFFER

;STORE RMDA IN INPUT BUFFER

70$

R3,RMOA]

EMT

BNE

104016

*LOAD RMOF AGAIN TO SET SSEI

RMOA (RO) ,RMDAI -STORE RMDA IN INPUT BUFFER
RMER? (ROS ,RMER21
;STORE RMER2 IN INPUT BUFFER

;TEST REG SEL 3 FOR S-A=0
608:
JSR
PC.CNTCLR
MOV
RO.RMERT(RO)
MOV
R2 . RMDA (RO)
nov
R3.RMDC (RO)

001352

:LOAD RMER2

R3 RMOF (RO)

8IS

P
BNE

001344

493

49% 010312

RMDC(RO) ,RMDCI
R3,RMER1{

#XNUOF
, RMOF |
R3,RMOF|

MOV

104015

478
479 010234
480 010234
481 010240
482 010244
483 010250

486 010266
487 010274

R3.RMDT (RO)
*LOAD RMDT
R3.RMER2(RO)
:LOAD RMER2
R3IRMECTC(RO)
:LOAD RMECT
RMER1 (RO) ,RMER1]
-STORE RMER1

8IS
CMP

BNE

;LOAD RMOF AGAIN TO SET SSEI
*LOAD RMD(

-TEST REG SEL & FOR S~A-1

010170

472 010214

RMOF
(RO) ,RMOF] ~ ; STORE RMOF IN INPUT BUFFER

MoV
(NP

467 010160 010360 900012
468 010164 010360 000032
469 010174
470 010202

MOV

BNE

462

464 0101446
465 010150

R2 ,RMOF (R(Q)
RO .RMDC (RO,

MOV
MOV
MOV
MOV

2gowuz1mm4
463 010144

MOV
MOY

708

-TEST REG SEL 8 FOR S~A~1

004737
010260
010260
010260
010260

022230
000032
000032
000034
000042

0s:

JSR
MOV

MOV

MOV
MOV

PC,CNTCLR
RO . RMOF (RQ)
RO . RMOF (R0)
RO .RMDC (RO)
RO.RMER2(R0)

;60 CLEAR CONTROLLER
*LOAD RMOF
*LOAD RMOF AGAIN TO SET SSEI
*LOAD RMDC
:LOAD RMER2

CZRNCAO RMB0 DSKLS PT2 MACRO VC4.00 14-JAN-82 16:41:16 PAGE 13-10
16

SEQ 0063

RECISTER SELECT TESTY

499 010336

010360

000012

MoV

R3,RMDS (RO)

sLOAD RMDS

010360
016037
016037

00000
000032
000034

001370
001372

MoV
MOV
MOV

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

+LOAD RMDA
;STORE RMOF IN INPUT BUFFER
;STORE RMDC IN INPUT BUFFER

505 010374
506 010402
507 010404
508 010412

052737
001015
022737
020337

160577

001370

176000
001372

001372

510 010420

052737

001527

001400

500 010342

501 010346
502 010352
50X 010360

504 010366

509 010416

511 010426
512 010432

513 010434
g}g 010436

010360

016037

001007

020337
001001

000014

000042

001400

MOV

001400

104017

R%.RHER1(R0)

MOV

RMER2 (RO , RMER2]

8IS
BNE
CMP
CMP

#XNUOF ,RMOF 1
80s
#XNUDC ,RMDCI
R3,RMDC]

8l1$s

#XNUERZ ,RMER2]

EMT

BNE

sSTORE RMERZ2 IN INPUT BUFFER

80§

CMP
BNE
80s:

cLOAD RMER1

R3,RMERZI
808

g}g

;REGISTER SELECT 16 IS TESTED BY THE ILR TEST

518

JINAARRRARA AN

S*TEST 7
PR

000004
000240
012706
013700
013701
012737

001100
001276
001466
000007

001226

SCOPE
NOP
MoV
Mov
MOV
MOV

520 010464

016037

000026

001142

MOV

522 010500

001414

022737

020026

523 010502

022737

024026

525 010512
526 010516
527 010524
528 010526

010037
062737
104057
000137

001136
000026

524 010510

g%g 010532

001410

001142

001136

021120

108:

[X3]

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

sLOAD
;RO =
:R1 =
;;SET

#DULPRT,$BDDAT

MOV
ADD
EMT
JWP

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

108
108

JINARNRNARR AN EARARRAAR RN AR AR

JINARRR RN AN AR

010532
010532

000004

010542
010546
532 010552

013700
013701
012737

010534
010536

533 010560
534 010564

535 010572

000240
012706

004737
018037

042737

1ST10:
001100

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

:SINGLE PORT RMB0??

SYES!H!

;DUAL PORT RM80??
JYES!!

sLOAD BAD ADDRESS
;GO TO NEXT DEVICE
NI

AR AN ERERANANARC AN RANNRRCY

AR AAA RN AN

EANARA NN RRARTRRAAANERRAAY

DEVICE AVAILABLE TEST

AT R AR

RN AR

sSCOPE CALL
#STACK,SP

PC,CNTCLR
;GO CLEAR CONTROLLER
RMCS1(RO) ,$BDDAT
;STORE RMCST AT $BDDAT

001226

022230
000000

001142

JSR
MoV

8IC

RAR

SCOPE

MOV
MoV
Mov

001142

AN NI NE AN RRRRRA AR

NOP
Mov

001276
001466
000010

173777

NANR

RMDT (RO) ,$BDDAT ;STORE RMDT AT SBDDAT

s*TEST 10

RN AT

:SCOPE CALL

#SNGPRT,$BDDAT

BEQ

NN ANV AR A AN

RN AR R AN AR AR N AR

cMP

8EQ

001142

DRIVE TYPE TFSTY

AN AN

010436
010436
010440
010442
010446
010452
519 010456

521 010472

1S17:

RARANN TN C AN RN R AR

$BASE , RO
TSTQUE ,R1
#10,STESTN

#*CDVA,$BODAT

sLOAD THE STACK POINTER

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

;CLEAR ALL BUT DVA

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-11
110

SEQ 0064

DEVICE AVAILABLE TEST

536 010600

og9

538 010610
539 010614

010037
104060

537 010602

229 010616

015

004000

001136

BNE

001140

MOV

108:

542

MOV
EMT

108

;BRANCH IF DVA SET

RO, SSDADR
60°

*SETUP REG ADDRESS

#DVA,$GDDAT

*SETUP EXPECTED

t’ttttttttttttttt'ttt'tt"tttttlttttttttttttttttttttttttttt'ttttt

SRTEST 11

SEARCH TIMEOUT TEST

:'ttttQttttlttttttttttttttttitfit!ttfitttlttttttttttttttttttttttttt

010616
010616
010020

010622

010626
010632

000004
000240

012706

013700
013701

T5T11:

001100

001276
001466

MOV

543 010636 012737 000011
544,

001226

546 010652
547 010660
548 010666
549 010674

012737
012737
012737
012737

000000
010000
054420
177777

001446
001444
001416
001414

552 010710

004737

022264

010714

000402

545 010644

ggg 010702

010716
gg{ 010720

012737

€12737

000000

000061

001420

557 010722
010730
558 010734
559 010740
gg? 010742

#STACK, SP

$BASE ,RO
TSTQUE ,R1

;LOAD THE STACK POINTER

‘RO= UNIBUS ADDRESS
*R1= POINTER TO DEVICE

MOV

#0,RMDAO

; SECTOR=0=TRACK

MOV

M 1GO,RMCS10

:WRITE DATA COMMAND

MOV
MoV
MOV
MOV

#0.RMDCO
NFMT16,RMOFO
NBUFFER,RMBAO
c-1,anuco

JSR

PC,ENBSCH

108

EMT
BR

508

*CYLINDER=0
:16 BIT FORMAT
:STARTING BUFFER ADDRESS
*WORD COUNT
;EXECUTE DATA COMMAND TO POINT WHERE
*SEARCH IS ENABLED USING SUBROUTINE.

‘BRANCH TO 108 IF NO ERROR
;SLOC REST PF TEST

:START THE CLOCK AND WAIT FOR 100 MS

000144
170602
001534

563 010746

016037

000014

001142

001534

565 010760
566 010766
567 010774
568 010776
569 011002
570
g;} 011004

062737
042737
001404
005037
104020

000074
157777

001136
001142

j0s:
208:

170572

564 010754 010037 001136

MOV
JSR
TST
BNE
JSR

#100. ,WATCH
PC acLocx
wAfcH
.
zos
PC,asTOPCL

:SET WATCHDOG TIMER VALUE
*START THE CLOCK
;STOP THE CLOCK

:VERIFY THAT OP] IS nor SET (SEARCH TIMEOUT IS DISABLED)

MoV

RMER1 ( 0) $BDDAT

ADD
BIC
BEQ
CLR
EMT

ann£a1.$svo
#°COP]. SBDDAT
308
$GDDAT
20

MoV

001140

000430

573

574 011006

:SCOPE CALL

MOV
#11,$TESTN
;SET TEST NUMBER IN APT MAIL BOX
;LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS

104000
000462

012737
004777
005737
001375
004777

562

MOV
MOV

001412

5§55

556 010722

SCOPE
NOP

RO, $BDAD

508

-STORE RMER1 AT $8DDAT

;SET UP FOR ERROR MSG
;BRANCH IF NO ERROR
:DISABLED
+SKIP

-ENABLE SEARCH TIMEOUT, THEN WAIT 100 MS

575 011006

012760

041401

011022
577 011026

004777 170510
005737 001534

576 011014 012737 000144

000024

%0s:

001534

MOV

#DMD ! MUR ! DBEN'MOC , RMMR1 (RO}

JSR
TST

PC,aclock
WATCH

MOV
408:

#100., ,WATCH

-LOAD RMMR1

;$ET WATCHDOG TIMER VALUE
‘START THE CLOCK

CZR NCAO RM80 DSKLS PT? ?gg?fl v04.00 14-JAN-82 16:41:16 PAGE
TM
SEARCH TIMEOUT

578 011032

579 011034
580

001375
004777

581
582 011040
583 011046
584 011054
585 011056
586 011064
587 011066

BNE

170500

JSR

000014

001142

020000

001140

157777 001142

408

PC,aSTOPCL

SEQ 0065

;STOP THE CLOCK

;0PI SHOULD NOW 3E SET (SEARCH TIMEOUT IS ENABLED)
MOV
RMER1(RO) ,$BDDAT
JSTORE RMER1 AT S$SBDDAT

50s:

588
589

13-12

g’r‘g

gagom.saéon

MoV
EMT

#0P1 ,S$GDDAT
21

;;*ttttttttttttt*tttttttttitfitttttttt!*tttttttttttttttttttttttttt

:«TEST 12

SET DTE TEST

;.'t;sttttttttttttttttttttttttittttttttttttttttttttttttttttttttttt

011066
011066
011070
011072
011076
011102
011106

590
591 011114
592 011120
593 011126
594
595
596 011132

598 011136

599 011144
600 011152
601 011154
602 011156
603
604

605 011160

606 011160
607 011166

608 011174
609 011202
610 011210
611 011212
612 011214
613
614
615 011216
616 011216
617 011224
618 011235

000004
000240

012737
010037
062737
005037

TST12:

001100
001276
001466
000012 001226
001136
000014 001136

CLR

;SCOPE CALL

#STACK, SP
$BASE ,R0
TSTaué R1
N2,8TESTN
RO, $BDADR
#RMERT , SBDADR

;LOAD THE STACK POINTER
*RU = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
12SET TEST NUMBER IN APT MAIL BOX
:SETUP ERROR MSG

$GDDAT

sINITILAIZE AND VERIFY TMAT DRIVE TIMING ERROR IS RESET
JSR
PC.CNTCLR
;60 CLEAR CONTROLLER

022230

000014 001142
167777 001142

MoV
8IC

RMER1 (RO) , SBDDAT
#4CDTE,SBODAT
;(1):

;BRANCH IF DTE=0

B8R

:SKIP REST OF TEST

Efi‘r’

;STORE RMER1 AT $BDDAT
.

535! MAINTENANCE INDEX PULSE AND VERIFY DTE REMAINS RESET

000001
000005
000014
167777

000024
000024
001142
001142

mov
[
BIC

#OMD RWAR1(RQ) = :LOAD RMMRI
M1, RMMR1 (ROS
:LOAD RMMR1
RMERT (RO) , SBDDAT
*STORE RMER1 AT $SBDDAT
#°CDTE,$BODAT

508

MOV

;COMPARE SHOULD BE RESET

égggcurs DUMMY DATA COMMAND TO ENABLE SEARCH

620 011246
621 011254
623

022264

&8 011262

MOV
MOV
MOV
MOV
MOV
ADD

001140

000000
000005
010000
osu.;o
177777
000061

619 01124

's‘ggpe

001420
001446
001444
001416
001414
001412

mov
MoV
MOV
MOV
MOV
MoV

JSR

,RMDAO
#5.RMDCO
#FRT16,RMOFO
#BUFFER , RMBAOD
#-1 .Amdc0
#up GO, RMCS10
PC.ENBSCH

;EXECUTE DATA COMMAND 0 POINT WHERE

sSEARCH IS ENABLED USING SUBROUTINE.

NCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-13
SET DTE TEST

653 011404
6564 011406

655 011414
656
657 011416
658
659

308

B8R

508

;BRANCH TO 308 IF NO ERROR

;WITH SEARCH ENABLED, SET AND RESET SECTOR PULSE TO SET ENABLE

purguiy

012760

630 011302
631
632
633
634
635
636 011310
637 011316
638 011324
639 011326
640 011330
641
642
643 011332
644 011332
645 011340
646 011346
647
648
649 011354
65C 011362
651 011370
652 011376

{SEARCH TLOP.
[ol=)

629 011274

000402
104000
000451

[V, 1V, ]

011266
011270
624 011272
625
626
627
628 011274

SEQ 0066

000024
000024

MOV
MOV

#DMD!MUR!DBEN!MOC {MSEN!MS RMMR1(R0)
A#DMDIMURIDBEN!MOC
! MSEN, RMMR1 (RO)

:LOAD RMMR1
:LOAD RMMR1

;SET SECTOR PULSE AND VERIFY DTE DOES NOT SET
;
PUTMRT #DMD!MUR!DBEN!MOC !MSEN!MS
H
PUTMR1 #DMD!MUR!DBEN!MOC
!MSEN
016037
042737
001402
104023

000014
147777

MoV

00°
00114

8IC

BEQ

EMT
8EQ

001432

012760
012760
012700

051403
051443
051403

000024
000024
000024

012760
012760
016037
042737

051441
051401
000014
167777

000024
000024
001142
001142

012737
104024

010000

001142

001004

;STORE RMER1 AT $BDDAT

RMER1 (RO) ,$BDDAT

zagore.seéon
23
508

s COMPARE SHOULD BE RESET

:F ORCE SECTOR COMPARE
:
408
MOV
lDfiD!HUR!DBEN!HOC!HSEN!HSC‘RHHR1(RO)
:LOAD RMMR1
MOV
#DMD !MUR ! DBEN'!MOC !MSEN!MSC'MS
,RMMR1(RO) ;LOAD RMMR1
Mov
#DMD ! MUR ! DBEN!MOC !MSEN!MSC ,RMMR1 (RO)
;LOAD RMMR1

sSET SECTOR PULSE AND VERIFY DIE SETS
Mov
#DMD ! MUR ! DBEN !MOC ! MSEN!MS ,RMMR1 (RO
MOV

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

8IC
BNE
MOV
EMY

#°CDTE ,SBODAT
508
#DTE ,$BDDAT
24

MOV

RMER1(RO) ,SBDDAT

50$:

;LOAD RMMR1

:LOAD RMMR1

:STORE RMER1 AT $BDDAT

JSECTOR COMPARE SET

R T

s«TEST 13

FORMAT CHANGE TEST

&WNNN-‘—‘
NOVNOOON

d -

b e

YIS

&SV!U\U\
HOO

&H
&
N

F T

rd
b

-—b

b wud
b aud

e
o
b

OOO0O0

YA AN

O000O000O

S oRARRNAAANNRARARANARER
RN R RN AN ARRRARSRRAEAARAAAAAARARAANARARRANY

TST13:

000004
001100
001276
001466
000013

001226

011774

SCOPE
NOP

: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 80X

MoV

#508,R2

;R2=TABLE POINTER

:INITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR #ORMAT CHANGE

022230
000032
000001
000005

i0s

JSR

MoV
MoV

MOV

PC,CNTCLR

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

;G0 CLEAR CONTROLLER

:LOAD FORMAT MODE IN RMOF
:LOAD RMMRI

#OMD *MI, RMMR1 (RO

;LOAD R .1

CIR NCAO RM80 DSKLS PT2 MACRO v04.00 14-JAN-82 16:41:16 PAGE 13-14
113
FORMAT CHANGE TEST
669

670
671 011474
672 011502

012737
012737

000000
000005

001420
001446

000061

001412

673 011510 016237
674 011516 012737
675 011526 012737

2;9 011532

012737

000002 001444
054420 001416
177777 001414

678 011540

004737

022264

011544
011546
258 011550

000402
104000
000514

681

SEQ 0067

;SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT
MOV
#0,RMDAO
MOV
#5 RMDCO

MOV
MOV
MOV

2(R2) ,RMOFC
#8UFFER RMBAO
c-t,anuto

JSR

PC,ENBSCH

sEXECUTE DATA COMMAND TO POINT WHERE

BR
EMT
BR

208

*BRANCH TO

MOV

#wp!GO,RMCS10

*SEARCH IS

ENABLED USING SUBROUTINE.
208 If NO ERROR

608

sFORMAT CHANGE FLOP SHOULD BE SET - VERIFY BY TRYING TC FORCE A

ggg 011552

582‘”5 TIMING ERROR WHICH SHOULD NOT SET.

684 011552

012760

051403

000024

MOV

#DMD ! MUR ! DBEN!MOC 'MSEN!MSC ,RMMRT(R0)

;LOAD RMMR1

686 011566
23; 011574

012760
012760

051403
051401

000024
000024

MOV
MOV

#DMD IMUR ! DBENMOC ' MSENMSC.PMMR1(R0)
#DMD iMUR i DBEN i MOC iMSEN.RMMR1 (RO)

:LOAD RMMR1
SLOAD RMMR?

690 011602
691 011610
692 011616
693 011620
6% 011624
695 011632
69 011636

016037
042737
001416
010037
062737
005037
011237

000014
167777

698 011650
933 011652

1046025
000453

685 011560

689

697 011642

012760

051443

001136
000014
001140
001174

000024

001142
001142

;82 011654

016337 000002 007176

051405

000024

032760
012760

051403
051443

000024
000024

711 011704 012760 051441
712 011712 012760 051401

000024
000024

714 011726

001142

706 011662
707 011670

;% 011676 012760 051403 000024

710

713 011720

715 011734
716 011736

717 011742
718 011750
719 011756

;gg 011760
722

MOV
BIC
BEQ
MOV
ADD
CLR
MOV

RMERT (RO) , SBDDAT
#-CDTE, SBDODAT
308

ENT
8R

25
60s

MOV

RO, $BDADR
ARMER1, SBDADR
$GDDAT
(R2) ,$THPO

;STORE RMER1 AT SBDDAT

:SETUP ERROR MESSAGE

2(R25,$TMP1

;A FORMAT CHANGE

-CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE

012760

705

#DMD | MUR i DBEN :MOC MSENMSC IMS ,RMMR1 (RO) :LOAD RMMR1

sVERIFY THAT DRIVE TIMINS ERROR DIDNT SET

001136

701

702 011654

MOV

016037

000014

001012
010037

001136

042737

062737
012737
104027

000410

167777

000014
010000

001142

001136
001140

$0s:

MOV

#DMD ! MUR ! GBEN ! MOC !MSEN!MI ,RMMR1 (RO)

:LOAD RMMR1

sENABLE %ORCH AXD FORCE SECTOR COMPARE
nov

MOV

#DMD I MUR DBEN!MOC !MSENIMSC RMMR1(RO)
;LOAD RMRI
#DMD I MUR I DBEN iMOC MSENi MSC TMS ,RMMR1(RO) :LOAD RMMR1

#DMD | MUR iDBENMOC IMSENIMSC ,RMMRI(R0)

:SET DTE W/ANOTHER SECTOR PULSE -~ VERIFY DTE IS SET

MoV
MOV

#DMD | MUR ' DBENMOC ' MSEN'MS . RMMR1 (RO)
#DMD i MUR i DBEN i MCC i MSEN, RMMR1 (RC)

BIC

#*CDTE,$BODAT

MOV
ENE
MOV

ADD
MOV
EMT

RMERT (RO) ,SBDDAT
408
RO, $BDADR

SRAER1, SBDADR
ADTE,SGODAT

-LOAD RMMR1

:LOAD RMMR1
:LOAD RMMR1

:STORE RMER1 AT $BDDAT

:SETUP ERROR MESSAGE

60s

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

C7§NCAO RM80 DSKLS PT? TEQ%RO v04.00 14~JAN-82 16:41:16 PAGE 13-15
FORMAT CHANGE
1 62
723 0117
011762
01 1 7
0N 1 7 14
01 1 7 72

724
725
726
727
728

729 01 1 774
730 01 1 776
731 01 2 000
732 01 2 002

02270%

00100
005722
000626

408:

011774

CMP
BNE

#508 K2
60%

JBRANCH IF DONE TEST

B8R

10%

JREPEAT TEST

TST

S0$:

010000
000000
010000

60$:

733
734

SEQ 0068

.WORD

LMWORD
.WORD

(R2)»

FMT16

0
FMT16

JMOVE POINTER

:16-18 FORMAT CHANGE

:18-16 FORMAT CHANGE
JEND OF TEST

SIRRENRRRRANRAARNRRARN
A AAANN AR ARNRAANNANRARN A RAARRIR AN NNRNNAA
AN OAY

LRTEST 14

PROM STROBE TEST

SIRANRRRNAARRARAARNARAN
NNV TR R AR ANNNRAAN
RN AAN AN AN AN
RN AN

T$114:

735
736 012030

Sh»CJfigbU&4>C”VNN)JWUOMWUC’

b
b
e
i
b

ook

N
©o

b emed

mnd

=lelelelelelalelelelela)

7510

NININVAIALININIAIN
NN NN NN NN
T\ b o b
o o o oo b e e
e b acd b b emd
OV SN BN UNNINININ)
= b b =
~N N

737 012034
738 012040
739
740
741 012046
742 012054
743 0}2060

000240
012706
013700
013701
012737

000014

004737
010037
062737

022230
001136
000024

SCOPE
NOP

MOV
MOV

JSR
MOV

ADD

001136

000001
000021

000024

004001
000001

000024
000024
001142
001142

000024
177737

MOV
MOV

001226

000040

PC.CNTCLR
RO, $BDADR

ARMMRT, SBDADR

*R1 = POINTER TO DEVICE

Y:SET TEST NUMBER IN APT MAIL BOX
;G0 CLEAR CONTROLLER
*SETUP ERROR MESSAGE

5s:

#DMD ,RMMR1(R0O)

KOV

#DMD
! MCLK ,RMMR1 (RO)

BIC
BEQ
DEC

#ACUC, SBDDAT
6
R2

MoV

MOV
MOV

CLR
EMT

?3;

001140

TSTQUE ,R1
#14,STESTN

;LOAD THE STACK POINTER
‘RO = UNJBUS ADDRESS

MoV

BNE

000024
000024
001142
001142

#STACK, SP
$BASE ,RO

sSET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE

001140

000021

:SCOPE CALL

”nz..R2

;LOAD RMMAR1

sR2=MAXIMUM # CLOCK PULSES

(17

$GDDAT

BR
mov

60;
f7..R2

mov

#OMD
' MCLK ,RMARY (RO)

ggg

gos

MOV
MoV
8IC
BNE
MOV

EMT
8R

;LOAD RMMR1

#0M0 . RMART (RO) :LOAD RMAR1
RPRT (RO) , SBDDAT
:STORE RMMR1 AT $BDDAT

-LOAD RMMR1

#0MD RMRT (RO :LOAD RMAR1
RMMR{ (RO) ,SBODAT
;STORE RMMR1 AT SBDDAT
#°CWC, SBODAT

;EXIT LOOP WHEN PROM STROBE ON

108
#IC. SGDDAT

30
608

éggnxrv PROM STROBE IS ON FOR 3 BIT CLOCKS
767 012202

000003

MoV

#3..R2

C Z R NCAQ RMB0 DSKLS PTZ2 MACRO v04.00 14-JAN-82
T14
PROM STROBE TEST

768 012206

012206

769 012214

012760

004001

000001

000054

258:

000024

770 012222 016037 000026 001142
062737
177737 001142
77% 012236 001005
77
774 012240 012737 000040 001140
106032
000427
005302

30$:

;;g 012254 001354
780
781 012256 012702 000010

012262 012760 004001 000024
783 012270 012760 000001 000024
784 012276 016037 000024 001142
785 012306

787 012314
788 012320

042737

177737 001142

005037
104033

001140

001404

S5EQ 0069

#DMD 'MC K ,RMMR1(R0)

MOV

#DMD _RMMRI (RO)

BIC

#4CWC,$BDDAT

EMT
BR
DEC

32
60$
R2

:LCAD RMMR1

:LOAD RMMR1

RMMR1 (RO) , SBDDAT
SSTORE APMMR1 AT SBDDAT
308
;BRANCH [ PROM STORBE DID NOT
;DROP EARLY
#WC,SGDDAT

BNE
258
;VERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS
MoV
#8..R2

782 012262

786 012312

MoV

MOV
BNE
MOV

771 012230

775 012246
776 012250
777 012252

16:41:16 PAGE 13-16

408:

MOV
¥ovV
MOV
B8IC

BEQ

CLR
EMT

789 012322 000402
790 01232¢ 005302
791 012326 001355

S0$:

BR
DEC
BNE

#DMD
! MCLK ,RMMRT (RO)
:LOAD RMMR1
#0MD RMMR{ (RO) ;LDAD RMMR1
RMMRT (RO) , SBDDAT
;STORE RMMR1 AT $BDDAT
#°CWC, $SBDDAT
508

$GDDAT
33

;BRANCH IF PROM STROBE

*DID NOT SET EARLY

608
R2
408

792 012330

608
:

e RERRARANRRANRARNANRANY ARV ARCEARARANRRARNAARARAGRERARANAARANENRLAACASRNES

S*TEST 15

012330
012330
012332
01233%
012340
12344
o 012350
796
797 012356
798 012364

e AEAARRAARAERRAAEARANCCCRRARNEARRARGERRRAAAEAAREALAALRARARARAGALAS

000004
000240
012706
015700
013701
012737

012737
012737
799 012372 012737
800 012400 012737
801 012406 012737
% 012414 012737
804 012422

SYNC WORD COUNT INHIBIT TEST

fs11s:
001100
001276
001466
000015 001226
000005
000000
010000
054420
177777
000061

001446
201420
001444
001416
001414
001412

SCOPE
:SCOPE CALL
MGV
#STACK,SP
:LOAD THE STACK POINTER
MoV
$BASE RO
*RO = UNJBUS ADDRESS
MOV
1STQUE RY
*R1 = POINTER TO DEVICE
POV
#15,$STESTN
::SET TEST NUMBER IN APT MAIL BOX
;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES
MOV
#S,RMDC0
: CYLINDER=5
MOV
#0_RMDAD
*SECTOR=(, TRACK=0
NOP

004737 022264

012426 000402

012430

104000

807 012434

004737

012442

104000

ggg 8}22:;2 000562

012440 000402

108
023136

MOV

#FAT16 RMOFO

JSR

PC,SCTCMP

MOV
MOV
MOV
JSR
BR
EMT
BR
BR

EMT

SSUFFCR,RMBAO
#-1 RNEO
ADIGO,RMCS10
PC,ENBSCH
108
120$
20§

:16 BIT FORMAT

"STARTING BUFFER ADDRESS
SWORD COUNT
SWRITE DATA COMMAND
;EXECUTE DATA COMMAND TO POINT WHERE
*SEARCH IS ENABLED USING SUBROUTINE.
SBRANCH T® 108 IF NO ERROR
sSKIP IF FAILURE
:FORCE SECTOR COMPARE USING SUBROUTINE

*RRANCH TG 208 IF NO ERROR

€2 R %LAQ RM80 DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 FAGE 13-17
n5
SYNC WORD COUNT INHIBIT TEST

808 012444
809
810

000555

o
8\"\0

b aadh
=

[T~

N
= OO NN
NN =

AANARRRRRRRRR

012566
012572
012576
012600

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

208

012702

857
858

859 012606
860 012606
861 012614
862 012622
863 012624
864

MoY

#0,R2

;R2=SEQUENCER ADDRESS

ists:gss MAINTENANCE CLOCK UNTIL PROM STROBE SETS

000024
000024

012760
012760

mov
MOV

#DMD ! MUR ! DBEN ' MOC ' MSEN!MCLK ,RMMR1 (R0)
#DMD i MUR i DBEN | MOC i MSEN, RMMRT (RO)

;SEE IF PROM STROBE IS SET

MOV

016003
032703
001765
005202

BIT
BEQ
INC

RMMR1(RO)
,R3
MIC,R3
308
R2

;LOAD RMMR1
*LOAD RMMAR1

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

;CHECK "LOOKING FOR SYNC'* = SHOULD BC 2ERO UNTIL LOCATION 11

010337
042737
001413
005037
010037
062737
010237

MOV

001142

8IC
B5Q
CLR

MOV
ADD
MoV
chT
BR

001136

104034

000516

R3,$BDDAT

#*CPLFS,$BDDAT
508
$GDDAT

RO, SBDADR
ARMMR1 , $BDADR
R2,$TMPO
34
1208

:BRANCH IF PLFS IS ZERO

:SKIP REST OF TEST

és)sqr LOCP IF SEQUENCER NOW AT LOCATION 10

000012

BEQ

#10. .R2
708

gztsn:ss MAINTENANCE CLOCK UNTIL PROM STROBE RESETS

055401
051401

000024
001024

mov

MOV

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

#DMD | MUR | DBENMOC
I MSEN. RMPRT (RO)

:SEE IF PROM STROBE IS RESETY

MOV
8iT
BNE
BR

000024
000040

RMMR1 (ROY,R3
gos
0s

MNC,R3

:LOAD RWR1

*LOAD RWPR1

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

sTHE NEXT PROM STROBE SHOULD SET 'PLFS’’ AT LOCATION 11(10) OF THE

854

855 012602
856 012602

1208

;CAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET

811

81%
813
012446
814
815
816 012452
817 012452
818 012460
819
820
821 012466
822 012472
823 012476
824 012500
825
826
827 012502
828 012506
829 012514
830 012516
831 012522
832 012526
833 012534
834 012540
835 0.2542
836
837
838 012544
839 012544
840 012550

SEC 0070

:DATA TIMING SCQUENCER.

708

000020

MOV

neé. R

sR2=NUMBER OF BIT CLOCKS

§6§§UE 16 BIT CLOCKS TO GET NEXT PROM STROBE

055401
051401

000024
000024

MoV
MoV
DEC
BNE

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

ggmmweemmc !NSEN,RMR {(rO)
80s

;LOAD RMMR1
sLOAD RMMR1

|94 R NCAQ RM30 DSKLS PT2 MACRO V04.00 14-JAN-82 16:61:16 PAGE
T5
SYNC WORD COUNT INMIBIT TEST

037

737

13-18

SEQ 0071

JVERIFY THAT “PLFS'' IS NOW SET

173957

00114
00114

002090
001136
00002¢

001140

APLFS,$GDDAT

001136

ggnnn1,savon

RMMR1(RO) ,SBDDAT

#~CPLFS,$BDDAT
90$

RO, $BDADR
1208

;STORE RMMR1 AT SBDDAT
;BRANCH IF PLFS IS SET
:SETUP ERROR MESSAGL

;SKIP RCST OF TEST

:1SSUE 3 MORE BIT CLOCKS TO RESET PROM STROBE

012702

000003

012760

055401
051401

012702

$0s
000024
000024

95%:

MOV

#3.R2

MOV
MOV
DEC
BNE

#DMD ! MUY ! DBEN !MOC ! MSEN!MCLK .RMMR1 (RO)

#OMD MUR DBEN MOC | MSEN, RMMR T (RO)

;LOAD RMMR1
;LOAD RMMR1

sWITH ‘LOOKING FOR SYNC SET, FURTHER BIT CLOCKS SHOULD NOT SET
sPROM STROBE
#32..R2
MOV
;R2=NUMBER OF BIT CLOCKS

000040

‘PU%SE BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET

012760
012760

055401
051421
000024
177737

000024
000024

{00

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

msmeoogusmcmsen.mi (RO)

900 012774
901 012776

;STORE RYMR1 AT R3

1108
$GDDAT

;BRANCH IF PROM STROBE IS 0
:SETUP ERROR MESSAGE

tgnnn1.saoaoa

1108:

902
903 013000
904
905

*LOAD RMR1

25?5}(: ).R

LSBDDAT
RO, SHDAOR

001136

;LOAD RMMR1

DEC
BNE

'3%05
1208

;CONTINUE FOR 32 BIT CLOCKS

]

;END OF TESY

1208.

SIARRNERRARARAAARRAAAARAETE
LA CANNAANANRNCHARARA AR ANARARARENONRRP RN

TRTEST 16

SYNC DETECTION TEST

PrARAAANNNRANEANAA
AR IAN TR AN I RANNRNAERA AR ARARAAVARROACARANERRARY

828
g2238
N

sesgese
RO
= =b
oroO

88
Nb X

eggeece

000000
00000
010000

292

33383
-

Ts116:

SCOPE
NOP
MoV
Mov
MOV
MoV

sSETUP REGISTER
MoV
MOV
MOV

:SCOPE CALL
FSTACK, SP

:LOAD THE STACK POINTER

TSTOUE ,R1
#16,8TESTN

:R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL 80X

$BASE RO

‘RO = UNIBUS ADDRESS

TPUT BUFFER FOR SUBROUTINES

§§ RMDAO

:SECTOREg,;RACK 0

#FMT16,RMOFO

:16 BIT MODE

*RMDCO

:CYLIND

?eg?O v04.00 14-JAN-82 16:41:16 PAGE 13-19

CZRNCAO RM80 DSK LS
116
SYNC DET EC
013050
013056
013064

001412

022264
104000

105

023136

T
205

023244

d o =D

MOV
MOV

NBUFFER,RMBAO
#-1 Rma0

:BUFFER ADDRESS
*CORD COUNT

JSR

PC,ENBSCH

?fir

108

;EXECUTE DATA COMMAND TO POINT WHERE
*SEARCH 1S ENABLED USING SUBROUTINE.

1008

SR
?:r

PC,SCTCMP
20$

1008

PC, SETLFS

B8R

1008

MOV

SRR
ru SRR

b e cd i

001416
001414

Dl e

D e o

NN N NN N

) e

D e

N NN

D ed wud

013100

[=lelolelolelololele
)

D
b
—

[+ BNT.

Lol olle]

00007%

013072

013076

osa«;o
177707

01
1

911
1%
913
914
915

SEQ 0072

Efir

#RDFGO,RMCS10

508

READ DATA COMMAND
*BRANCH TO <08 IF NO ERROR

;FORCE SECTOR COMPARE USING SUBROUTINE
‘BRANCH TO 208 IF NO ERROR
;SET "LOOKING FOR SYNC'' USING SUBROUTINE
*BRANCH TO 308 IF NO ERROR

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

NO~N

st
N~
3 3

2382
S
QO\IN

§5¥§1~G PROM STORRE AS INDICATION)

001405

000020

001136

000024 001136
001140
053401 000024 ‘o8
057401 000024
053401 000024
000024 001142

ADD
CLR
MOV

ARMMRY
, SBDADR
$GDDAT
FRR1AAL
! BRD . RMMRT(RO)

RO, $EDADR

;NUMBER OF ONE BITS

*SETUP ERROR MESSAGE

:LOAD RIPRI

mov
MOV
MOV

#MRTAAA
!MRD ' MCLK RMMRY (RO)
:LOAD RMRI
MRIAAA
I MRD RMMRT (RO)
;LOAD RMARY
RMR1 (RO} , SBDDAT
*STORE RMMR1 AT $BDDAT

001142

ggg

177777

001174

MOV

2177727.8TMP0

DEC
BNE
MOV

R2
408
#16. .R2

000020

EMT
BR

gaguc.saooAt

37
1008

:REPEAT FOR 16 BITS
sNUMBER OF ZERO BITS

20‘0‘00

\J\lug

SOwW
WA

POND)
=2 N

R S8/RSS2
N =2 NIOMOND

OO HNONN
v
NN
NNOO

38§°5K ALL ZERO SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED

2288

960 013306

216. .R2

MOV

177737

:
508
964 013230
945
%6
947 013234
948 013234
949 013242
950 013250
951 013256
952 013264
953 013266
954 013272
955 013274
956 013276
957 013276
958 013
959 013302

mov

055401
051401

000024

000024
000024

001142

001174

000031

PRIAAAINCLK RMMRT(RO)
MRIAAA RMRT (RO)

ggg

;aguc.sso6ar

MOV

177757 001142

000040

mov
MOV
CLR
EMT

205

B8R

)

RIMR1T(RO) , SBDDAT
STRPO
37

:LOAD RMMR1
SLOAD RMMR1
*STORE RMMR1 AT SBDDAT

:MAKE SURE SYNC NOT DETECTED

100s
;

;SKIP IF EAILURE
;REPEAT FOR 16 BITS

MOV

32, R%

;R§=NUHBER OF BITS

MOV

#000031.R3

*R3=SYNC PATTCRN FOR LEFT SHIFT

CZPNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN~-82 16:41:16 PAGE 13-20
116

SEQ 0G73

SYNC DETECTION TEST

961

gg%

'g%%‘érggf BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS

964 013312

012737

966 013;22

00%88;

965 013320

967 013334

000241
10

051401

001436

80S:

mov

#MRIAAA,RMMR10

ROR

8IS

#MRD ,RMMR10

cLe

)

BCC

% 83%%2 052737 002000 (01436 008

;GENERATE VALUE OF RMMR1

SCLEAR THE CARR

;SHIFT RIGHT

908

*BRANCH IF C BIT CLEAR

“SET MRD IF PATTER BIT SETS

013334

013760

001436

0000;4

MoV

RMMR10,RMMR1(RO)

;LOAD RMMRI

971 013350
972 013356
973 013364
974 013372

013760
042737
013760
016037

001436
004000
001436
ooocgr.

oooo§4
001436
000024
00114

MOV
BIC
MOV
MoV

RMMR10, RMMR1 (RO)
MMCLK ,AMMR10
RMMR10, RMMR1 (RO)
RMMR1 (RO) ,$BDDAT

SLOAD RMMR1
‘RESET BIT CLOCK
SLOAD RMMR1
*STORE RMMR1 AT $8DDAT

970 013342

975 013400

052737

042737

976 013406 001006
977 013410

005302

980 013422

104040

000

177737

001436

els

00114

BIC

ONE

978 013412 001337
979 013414 012737 000040 001140

3%} 013424
983

EMT

R AR

isr17:

013424 000004
013426

000240

RN AN R AN AR

986 013452
987 C13460
988 013466
989 013474
990 013502
33} G*3510

012737
012737
012737
012737
012237
012737

000000
000005
010000
054420
177777
000071

993 013516

004737

022264

001420
001446
001444
001416
001414
001412

MOV
MoV
Y
MoV

013534

013536

AT RN AN RNV AR R AN NN EA T AR AR AN R U AR AR E AN

ABORT SYNC DETECTION TEST

poe i T
:

.,<7

(00402

023136

10$:

004737

013550

104000

000402

:LOAD THE STACK POINTER
*RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*;SET TEST NUMBER IN APT MAIL BOX
2SECTOR 0, TRACK 0
SCYLINDER'S
;16 BIT FORMAT
:STARTING BUFFER ADDRFSS
*WORD COUNT
SREAD DATA COMMAND

JSR

PC,ENBSCH

JEXECUTE DATA COMMAND TO POINT WHERE

10$

508

JSR

PC,SCTCHP

EMT

023244

#STACK, SP
SBASE , RO
TSTOUE ,R1
#17.$TESTN
,RMDAD
25.RM0C0
#FATI6,RMOFD
#BUFFER RMBAO
-1 RO
#MRDIGO,RMCSIO

B8R

104000

998 013542
999 013542

:SCOPE CALL

MOV
MoV
MOV
MoV
MOV
MoV

EMT

997 013540 000442
013546

JCONTINME FOR 16 BIT CLCCKS

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

013522 0nnen

995 0135
996 013530

;BRANCH iF PROM STROBE IS SET

:END OF TEST

SCOPE

NOP

013430 012706 001100
013434 013700 001276
013440 013701
001466
o8t 013444 012737 000017 001226

994 013553

80s
MJC, SGDDAT

JSET THE MAINTENANCE DATA (LK

;;ttitttttttttttttttttttttt.ttlQtttttt!tttttttttttttttttttttttttt

013424

013524

100$

SRTEST 17

985

#4CWC, SBDDAT

DEC

BNE
MOV
1008:

MCLK fimnw

208:

208

508

JSR

PC, SETLFS

EMT

30§

:SEARCH ]S ENABLED USING SUBROUTINE.

*BRANCH TO 108 IF NO ERROR

;FORCE SECTOR COMPARE USING SUBROUTINE

“BRANCH TO 208 IF NO ERROR

sSET *LOOKING FOR SYNC'® USING SUBROUTINE

*BRANCH TO 308 IF NO ERROR

CZRNCAC RMB0O DSKLS PT2 MACRO v04.00 14-JAN=82 16:41:16 PAGE 13-21
nz
ABORT SYNC DETECTION TEST

}

}
1

gee3888Re3

013552

000435

SEQ 0074

508

;LOOKING FOR SYNC INHIBITS WORD CLOCK HOWEVER, ‘DRIVE TIMING ERROR'’

sSHOULD RESET 'LFS WORD COUNT INHIBITTM FLOP

13550

352"“ DRIVE TIMING ERROR

13554 012760 051441

}mo 83?25
1011 013566
1012 013574
1013 013602
1014 013610
1015 013616

012702
012760
012760
016037
042737
001013

1016 013620

005302

1020 013636
1021 013644
1022 013646

062737
104041

000024

MOV

FMRTAAA
NS, RMMR1(RO)

:LOAD RMMRI

:PULSE BIT CLOCK AND VERIFY PROM STROBE SETS

000020
0
055441 000024
051441 000024
000024 001142
177737

001142

001136

508
:

105
1025

6. .R2
;R2, NUMBER OF BIT CLOCKS
#MR1AAA
'MS {MCLK ,RMMR1 (RO)
:LOAD RMMR1
AMRIAAA
NS RMMRI(RO)
:LOAD RMAR1
RMMR1 (RO) , $BDDAT
‘STORE RMMR1 AT $SBDDAT
#-CWC,$BDOAT
50

BNE
MOV
MOV

408
#JC,SGDDAT
RO, $8DADR

DEC

1017 013622 001361
1018 013624 012737 100040 001140
1019 013632 010037 001136
000026

MOV
MOV
MOV
MOV
8IC
BNE

ADD
EMT

ARMMR1, $BDADR
41

. e 1 3232342322323 3228 1321213222213 2313871183812

SeTEST 20

013646
013646
013650
013652
013656
013662
1026 013666
1027

1028 013674
1029 013702
1030 013710
1031 013716
1032 013724
}8343 013732
1035 013740

SYNC GENERATION TSST

3323282230 Y2027

: :tttttttfittttttttttttt"ttttttttttttt't'ttttttttttttttttttttttt'

s120:

000004
000240
012706
013700
013701
012737

001100
001276
001466
000020 001226

012737
012737
012737
012737
012737
012737
004737

000000
000005
010000
054420
177776
000063
022264

013744 000403
013746 104000
1036 013750 000137 014340
1037 013754
1038 013754

004737

013762

104000

013760 000402

}843.3 013764 000565
1041

023136

001420
001446
001444
001416
001414
001412

SCOPE
MOV
MOV
MOV
MOV
NOP

#STACK, SP
$BASE , RO
1sT0UE . R1
#20,$TESTN

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

;SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES

108:

MOV
MOV
MOV
MoV
MOV
MoV
JSR

#0.RMDAD
#S.RMDCO
NFAT16 RMOFO
FER RMBAO
’~ ,méo
#H1GO,RMCS10
PC.ENBSCH

;SECTOR 0, TRACK 0
YL S
216 BIT MODE
*BUFFER ADDRESS
*WORD COUNT
*WRITE HEAD AND DATA COMMAND
;EXECUTE DATA COMMAND TO POINT WHERE

B8R
EMT
JWP

108
1608

*BRANCH TO 1u$ IF NO ERROR

JSR

PC,SCTCMP

EMT

208

*SEARCH IS ENABLED USING SUBROUTINE.

:FORCE SECTOR COMPARE USING SUBROUTINE

*BRANCH TO 208 If NO ERROR

B8R
1608
;WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED

LZRNCAO RMB0 DSKLS PT2 MACRO v04.00 14-JAN-82 16:41:16 PAGE 13-22

120

SEQ 0075

JFJRST, VERIFY THAT WRITE GATE IS ON, INDICATING THAT

AL NN 2OV~

é(s)gcron COMPARE SET

—

000040
000001

00114¢
001142

001135
000040
000001

001136
001140

S5z
XRFR88 853
SSER

016037
032737
001014
005302
001367
010037
062737
012737
104042
000520

b
b md
d

000016

005302
001414

2B
bO

b ved

OO0O00OO0OOOOOOOO

bl
d d d b

w08

012702

012760
012760
016003
032703
001765

508

055401
051401
000024
000040

42
1608

;FORMAT=CS FAILURE

000024
000024

4. ,R2

sMAXMUM NUMBER OF CLOCK

MOV
817
BNE
DEC
BNE
MOV
ADD
MOV
EMT
BR

RMMR?2 (RO) , SBDDAT
#8800, SBDOAT
508
R2
408
RO, SBDADR
ARMMR?2 , $BDADR
00, $GDDAT
A
1608

;STORE RMMR2 AT $BDDAT
:
SBRANCH IF WRITE GATE ON

MOV
MOV
MoV
BIT
8EQ

MMRIAAAIMCLK ,RMMRT(RO) :LOAD RMMRI
MRIAAA RMART (RO)
SLOAD RMMR1
RMRT(RO),RZ
:STORE RMMR1 AT R3
NCR3
608

;FORMAT = CS FAILURE

8EQ

80$

%A’ur FOR PROM STROBE TO GO OFF, THEN REPEAT LOOP

e
1,7

Qoururd
Y,¥1,N)

§8°°°°
RPN
muwgo

cucd
o
b
b
e
b

OMAWIES
SN Wil
OO ONN

:
608

MOV

:PROM srgggs ‘”‘f, ON-DECREMENT PROM STROBE COUNT

055401
051401
000024
000040

000024
000024

MoV
MOV
MOV

MRIAAAINCLK, RMMRT(RO) ;LOAD RMMR1
MRTAAA RMART (RO)
*LOAD RMMR1
RR1{R0),R3
;STORE RMMR1 AT R3

BEQ

408

8IT

b o

Quar G

Qour- Pt

=lelelelalate

30%

582“ STAYS ON

000000

NN
-

$GDDAT
RO, $8DADK
#RMMR?
, SBDADR

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

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

°§ 3 SRRE AESVN33%
R
2B2E VBN

ol wd
=
b
d
b wad
b i wed wad
b ol
b

b e

v =D

QOOO0O0OO0O0000

b wd e @b cnd

CLR
MOV
ADD

EMT
BR

000545

D
)
b
b
weed ad
b o

RMMR2 (RO) , SBDDAT
#°CBB00, SBDDAT

MIC,R3

70$

S3ERR

—d el el w=d

s
Y
N

(olelalela)

anb wad and o=d aud

d e

sVERIFY HEADER SYNC GENERATION
SWRITE DATA BIT IS INVERTED AT MAINTENANCE REGISTER

e
b o

MOV
BIC

BNE

001136

[=]

001142
001142

BB
- ad md ad wod b

D e

d b v

nd b

iodeiclelelolelelola]

VIWAWVIWVHAVIVIWVIAAN

d v

D od

)

RRERRRPRRY

SYNC GENERATION TEST

:FIRST,COUNT NUMBER OF ZERO BITS UNTIL FIRST ONE BIT

01270
00500

000020

016004

000024

8os

90$:

Moy
CLR

556..R2

;MAX TIMES THRU LOOP

Mov

RMMR1(R0O) R4

;STORE RMMR1 AT R4

CZRNCAO RMBO DSKLS PT2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-23

120

33
oSS NO

b st

b e e

e ed el

=]
W

g 8823
222 83
®
2253

&£H

D
ndh sd

Fad ol ok oF ¥ o o W W
NININIPOANINININII

i cnd

1005

000024
000024

#MdD R4
1108

mov
MOV

AMRTAAA 'MCLK ,RMMRT(RO)
MRIAAA . RMMRT (RO)

B8R

—b

000436

012702
005003

000010

1308

;HEADER SYNC ,CANT GET FIRST 1

90$

000024

R3, 48.
1;6:
4
1608

:HEADER SYNC

055401
051401

d aud

gNN-l—l

gyd

mov

#8..R2

;NUMBER OF SAMPLES

:g{

:gnatcno>,a4

;STORE RMMR1 AT Ré

BIT
BNE

D , R4
1408

sSHIFT SAMPLE.IF SYNC BIT IS 1
*THEN SET SAMPLE INPUT

DEC

MOV

SMRTAAA
! RCLK RMMRT(RO)

000010
600001

1408:

000024
000024

CLR

BEQ

MOV

B8R

NRT2¥N
5

ga&gflfir

b ond

*HEADER SYNC

1508

MRIAAA . RMMRT (RO)

1308

:LOAD RMMR1

;D0 LOOP TIL R2=0

igsggrv THE SYNC BIT STREAM IS 0000000010011000

012737
010337
023737
001401

000230
001142
001140

001140

001142

1046044

mov

#000230,SGDDAT

SGODAT,SBDDAT

KOV

BEQ
1608:

EMT

ARNRNAN

b and wnd and

;LOAD RMMR1
*LOAD RMMK1

SRTEST 21

;JUMP OUT OF LOOP WITH FiRST 1
*INCREMENT ZERO COUNT
*DECREMENT MAX LOOP COUNT

R3
R2
1008
43
1608

igegPLe AND STORE THE REST OF THE HEADER SYNC

CDCDCHDCDC%ECDCNDCDCDCND

e
BHIS
EMT
BR

000010

N
N
N
[TV
TR VAT
W
oo
oSS

b wmd ch emd and

=l=lelelalele)

BIT
BEQ
INC
DE(
BNE
EMT
BR

R3,$8DDAT

1608

SRR RRRNRNAN RN L AN AN RN R

0000000
s~

000010

i?ege SURE THERE WERE AT LEAST 8 ZERO BITS IN HEADER SYNC

OCOO00O

;:;:;:c:-a-ha::-ac:.a-4.a-a-a-a.A.a-a.a-a.a.a-a.a-a_ha-a-a-a_a—ha.a
W
W
PININI A PO NI PRI NI AN == b b b b b cmad ool o
NLSSRVERRURLS
OO ~NON VIS W =OVONOWVH
CNDCDS!
LW 2OV0
N SRER28

[=lelelelalelololelela)

wd b
Q
O
[}
nd o

e
e

) el i
e

md end d e s
i o
cecd b b e e
e 2D b e
b o
o mad b
) b
e mcd o
nd d o
b nd cd b d e e
b

el
-

-l

SEQ 0076

SYNC GENER-TION TEST

TST21:

001100
66
000021

001226

SCOPE
NOP

MOV
MOV
MoV

MOV

R AR

AR T AAAAAN RN RAN

WRITE HEADER TEST
RS

R AR AR SRR

A NRNRNRRNRRRERONNRARERARY

AR AR RN AR AR

RERRRERRRANARS

;SCOPE CALL

#STACK,SP
$BASE , RO
TSTAUE ,R1

#21,$TESTN

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

YsSET TEST NUMBER IN APT MAIL BOX

sSETUP THE REGISTER OUTPUT BUFFER FOR SUBROUTINES

sq Al HMBL DukLS P2 MACRO V04.00 14-JAN-82 16:41:16 PAGE 13-24

Ted

WRITE

1145 014366
1146 014376

HEADER

SEQ 0077

TEST

012737
013737

001060
001334

001446
001420

#560. ,RMDCO
L§TRK RMDAO

,LAST CYLINDER
SSET LAST TRACK AND

1147 014402
1148 014410
1149 014416
1150 014422

112737
015737
012702
010237

000036
010000
054420
001416

1152 014426

012712

001060

MOV

#150000,(R2)

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

1154
1155 014436
1156 014442

052722

150000

013712
112712

001334
000036

MOV
Mmove

LSTRK, (R2)
#30.,(R2)

:STORE SECOND HEADER WORD
:SET LAST TRACK ADDRESS AND
*SECTOR ADDRESS.

MOV

#HIGO,RMCS10

1151

1153 014432

1157 014446

012737

000063

1160 014462

004737

022264

014466
014470

000403
104000

}}gg 014454

177776

1161 014472
1162 014476
1163 014476

000137

015274

004737

023136

014504
}}gg 014506

104000
000137

014502 000403

001420
001444

MOV
MOV

BIS

001414

1168 014512
}}93 014516

108:

015274

012702
012704

208:

000017
000041

*STORE FIRST HEADER WORD

*LAST CYLINDER

‘2 WORDS (2'S cOmMP)

JSR

PC,ENBSCH

;EXECUTE DATA COMMAND TO POINT WHERE

8R
EMT

108

JMP

1608

JSR

PC,SCTCMP

EMT
JNP

1608

20§

:WRITE HEADER COMMAND

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

;FORCE SECTOR COMPARE USING SUBROUTINE

:BRANCH TO 208 IF NO ERROR

308:

MOV
MOV

#15..R2
#33. R4

:ALLOW 15 #3 PROM STORBES
SALLOW 33 BI7 CLOCK® PER PROM STROBE

;PULSE BIT CLOCK UNTIL PROM STROBE IS ON

012760

055401

1175 014536

016003

000024

1174 014530 012760 051401
032703
001004
005304
001363
000137

000024

408:

000024

MoV

PRIAAAIMCLK RMMRT(RO)

MOV

RR1(RO)
RS

MOV

000040

BIT
BNE
DEC
BNE
P

015274

1182

MRTAAA RMR
T (RO)
MCR3
508
R4
408
1608

;LOAD RMMAR1

:LOAD RMMRY

:STORE RMMR1 AT R3

:COUNT EXHAUSTED

-SEE IF HEADER AREA CAME ON

1184 014560
1185 014564
1186 014566
;3gg 014570

032703
001062
005302
001015

000200

1189
1190 014572

012737

000200

1192 014604
1193 014610
1194 014616
;;gg 014620

010037
062737
106045
000137

001136
000024

1191 014600

#560.,(R2)+

*LAST SECTOR
:IN 16 BIT FORMAT
*BUFFER ADDRESS
‘BUFFER STARTS

-STEP THE DATA TIMING SEQUENCER UNTIL 'HEADER AREA'' COMES ON

1172 014522
1172 014822

1183 014560

#30.,RMDAD
NFMT16 RMOFO
#BUFFER,R2
R2,RMBAQ

w-z,finuco

B8R

1171

1176 014542
1177 014546
1178 014550
1179 014552
}}g? 014554

MOV

001412

1166

1167 014512

MOVB
MOV
MOV
MOV

005037

508:

BIT
BNE
DEC

BNE

001142
015274

001140
001136

#PHA ,R3
808
R2
60s

;ERROR-HEADER AREA NEVER CAME ON
MOV
#PHA, SGDDAT
:SETUP ERROR MESSAGE

CLR

MOV
ADD
EMT
JMP

sgooir

RO, $BDADR
#RMMR1, SBDADR
45
1608

:SKIP REST OF TEST

CZRNCAC RMBO DSKLS PT2 MACRU Vv04.00 14-JAN-32 16:41:16 PAGE 13-25
121

SEu 0078

WRITE MEADER TEST

1197
1198 014624

1199 014626

012760

055401

1202 014644
014650
014652

032703
001404
005304
001363
000137

000040

1200 014632
1201 014640

PONINININ)
b wd ed b b ad cd and v wed

211
1 212
213
1 214
1 215
1

’

12
12
1¢

1222

1223
1224

WNNTNIPONIPIND

1225

1226
}g
12

1230

1231

N =000~ J\WN—'OOQ\JO‘MJ\WN—‘OS

1 203
1 204
1 205
1 589
1
1 208
1 209
1 210

1232

914656
014656

014662

012760
016003

016037
042737
022737
001704
010037
062737

014726
014730

106042
000561

014732

012737

001142
001142
001142

001136
000040

001136

000001

014736

014744

012760

055401

014752
014754

012760

005302
001370

014756

005037

001174

014766

012702

001174

70$:

001140

005037

012703
005004

051401

MIC.R3
708
R4

MOV
BIC
CMP
BEQ
MOV
ADD

EMT
8R

000024

81%:

000024

;LOAD RMMR1

#MR1AAA RMMR{ (RO)
*LOAD RMMR1
RMMR1(RO),R3
;STORF RMMR1 AT R3

608
1608

;COUNT EXHAUSTED

RMMR2 (RO)
, $BDDAT
;STORE RMMR2 AT $SBDDAT
#2C1777 ,SBDDAT
#8800,88DDAT
;WRITE GATE SHOULD BE ON
308
‘ALL ELSE OFF
RO, SEDADR
:
#RMMR2 ,$BDADR

#8800, $GDDAT
I¥)
1608

1239 015012
1240 015014
1241 015020
015020

001002
052704

000001

012760

055401

1243 015034
1244 015036

005303
001360

1245 015040 010422

051401

1246 015042

022702

001200

1249
1250 015050
1251 015054

042705
001346

177577

101415

MOV

MMRTAAA 'MCLK ,RMMRT(RO)

DEC
BNE

R2
81s

CLR
CLR

908:
100$:

M‘IMA,RMRf (RO)

:LOAD RMMR1

:L0AD RMMR1

#STMPO R2

:R2 NUMBER OF WORDS/ADDRESS

CLR

Ré

*WORD STORAGE

MOV

000024

1108
:

6. /S

*NUMBER OF BITS

nov

RMMR1(RO),RS

BNE
BIS

1108
”,BITO,RG

MOV

MMRTAAAMCLK RMMRT(RO)

DEC
BNE

R3
1008

81T

000024

$TMP1

MoV

ASL

1238 015006 032705 000010
012760

#5.R2

;SAMPLE AND STORE 'r‘:;s TWO HEADER WORDS

000020

006304

MOV

Moy

001176

1237 015004

3525 015046

BIT
BEQ
DEC

MOV

Bos:

1236 015000 016005 000024

1242 015026

MMRIAAA !MCLK ,RMMR1(RO)

MOV
MOV

sHEADER AREA IS NOW ON CAN START SAMPLE
:DATA AFTER 5 MORE BIT CLOCKS

000005

1234 014776
1235 015000

MOV

BNE
JMP

000040
176000
000001

012702

1233 014772

000024

015274

014732
014736

014762

000024

-VERIFY THE TAG BUS ONCE EVERY PROM STROBE

014662
014670
014676
014704
014706
014712

014720

051401
000024

JWAIT FOR PROM STROBE TO GO OFF
608
:

MoV

MOV
cMP

BLOS
;HEADER AREA
BIC
BNE

5nuo.ns

;STORE RMMR1 AT RS
SSHIFT WORD SAMPLE

“SET BIT O IF WRITE BIT ON

MRIAA RRT (RO)

R&, (R2)+
ogf

1208

+4 ,R2

:LOAD RMMR1

‘LOAD RMMR1

:STORE WORD SAMPLE

:DONE ?
:

SHOULD STILL BE ON FOR SECOND HEADER WORD
#*C<PHA>
RS
90$
;BRANCH IF ON

aml wwah
b ol o

wnd cndd cmdh v

QOOOOOOOO

(%)

ES8E 3BT

SaooaoRRRS

N
RERSSIRT

15236

(=1

—

(==

MOV

ADD
Mov
EMT
BR

SEQ 0079

RO, $BDADR
#RMMR
1, SBDADR
#PHA, SGDDAT

45
1608

;WAIT UNTIL ECRC SETS

1208

005003

104046

000024
000024

001136
000024
001000
001142

000020
oo

101361

010037
062737
012737
005037

055401
051401

012760
005203
022703

1258:

000024
176777

—

016005
0642705
001026
012760

erard

b de o e e

~JO~
b
PR
REpENE —T Sas
35
CDOWUC%’ANDX#U&%’&NDS&#
NN

) e s 2o i cacd ) i amd

inlslelelalelelelolelelololelo

) cmdd w—d
b
e
e
i
d
b

vivawwuiiuaiwnawiu

miel=lalelelalelelelelelalele)

15220

001136
000024
000200

(==}
[=1<]

—b

i e

(e]elelele]

MY,

A A S I LV IV TV TV IV TV TV TV IV IV IV 1V1

NSO

N
2 Yo N
NN

A
M
SRPR
Wwn -‘CNOOD\u}\h&wxhthMOGrfigx;g:(oWR

010037
062737
012737
104045
C00475

IV, TV, IV 1V ] ViAW

OD®NOWNE NN

CZRNCAO RMB0 DSKLS PT2 MACRO V064.00 14~JAN-82 16:41:16 PAGE 13-26
121
WRITE HEADER TEST

CLR

:CHECK NUMBER BITS DIFFER BET PHA AND ECRL

MOV
8lC
BNE
MOV
MoV
INC
cmp
BHI
MOV
ADD
MoV
CLR

RMMR1(RO)
,RS
#*C<ECRC>.R5

127$

;STORE RMMR1 AT RS
:CHECK OUT THE REST BITS
BRANCH IF ECRC ON

R3
#16. .R3

:TOTAL NUMBER OF BIT DIFF
SOVER ONE WORD ?

EMT
B8R

000441

s SAMPLE

012703
005004

000020

016005
006304

000024

001002

000001

012760
012760
005303
001360
010422

055401
051401

022737

125$%

RO, $BDADR
#RMMR1T, SRDADR
#ECRC,$GDDAT

*BRANCH IF NOT

2gooar

:CLEAR THE EXP

1608

SEXIT

’16..R3
Ré

130s:

RMMR1(RC)
,RS

;STORE RMMR1 AT RS

gggg.ns

SSET BIT O IF WRITE BIT ON

000024
000024

:LOAD RMMR1
:LOAD RMMR1

STORE CRC WORD

127%:

000010

052704

#MR1AAA 'MCLK RMMRT(RO)
#MR1AAA
. RMMRT (RO)

:SHIFT WORD SAMPLE

#8ITO.RG

:
1408

MMRTAAA IMCLK RMMRT(RO)

z&mm,nmaimw

:LOAD RMMR1

‘LOAD RMMR1

1308
Ré, (R2)+

006113

001174

074260

001176

163072

001200

;VERIFY 3 HEADER WORDS
sNOTE THAT DATA WAS STORED IN THE REVERSE
;ORDER F?Ofl Hfllcgolgiggs WRITTEN
MNP
$TMPO
;CORRECT FIPST HDR WRD ?
BNE
1508
SNO !
cMP
0274260.$THP1
sCORRECT SECOND HDR WRD ?
BNE
1508
INO 1!
P
#163072,8TMP2
;CORRECT HEADER CRC ?
1508:
1608 :

8EQ

1608

EMT

4?7

SYES !!

sEND OF SUB 1EST

JoNNRANRAAAAAANARRAASARAARRRRARARARRARARNRRRARERSARNCRRANRRRCLARNNE

CZR NCAO RMBO DSKLS PYZ MACRO V04.00 14~JAN-82 16:41:16 PAGE 13-27

122

.EQ 00€0

HEADER COMPARE TEST

s*TEST 22

HEADER COMPARE TEST

SIRANENR A RN R RAANNANRAAN RN

tsr22:

015274
015274
015276
015300
015304
015310
015314

000004
000240
012706
013700
013701
012737

001100
001276
001466
000022

001226

1308 015322
1309 015330
1310 015336
1311 015344
1312 015352
1313 015360
}g}g 015366

012737
013737
112737
012737
012737
012737
C12737

001060
00133¢
000036
054420
177776
010000
000073

001446
001420
001420
001416
001414
001444
001412

1316 015374

004737

015400
015402
1317 015404
1318 015410
1319 015410
015414
015416

000403
104000
000137

1307

%ggg 015420

004737
000403
104000

000137

NN RN ARANAENARNNANRAANPANCEARER
AN Y

;SCOPE CALL
#STACK,SP

$BASE , R0
TSTQUE ,R1
#22.8TESTN

sLOAD THE STACK POINTER

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

#560. ,RMDCO
LSTRK , RMDAO
#30, ,RMDAD

sLAST CYLINDER
SSET LAST TRACK AND
*LAST SECTOR

#-2

12 WORDS

#RH!GO.RMCS10

:READ HEADER AND DATA FUN

022264

JSR

PC,ENGSCH

:EXECUTE DATA COMMAND TO POINT WHERE

108

SSEARCH 1S ENABLED USING SUBROUTINE.
*BRANCH TO 108 IF NO ERROK

016524

BR
EMT
JMP

2308

;SKIP REST OF TEST IF ERROR

PC,SCTCMP

:FORCE SECTOR COMPARE USING SUBROUT INE

108:

023136

JSR
B8R

EMT
JNP

016524

[}

1322
1323 015424
1324 015424
1325 015430
1326 015436
1327 015442
1328
1329

010037
062737
012702
012704

1331 015446
1332 015454
1333 015462
1334 015

012760 055401
000024
012760 051401
000024
016003 000024
CZVIMAO VT61 ACCPT TST

1330 015446

SCOPE
NOP
MoV
MOV
MoV
MoV

NN AN

#BUFFER,RMBAO
,RMYCO

NFMT16,RMOFO

20§

:DATA ADDRESS

(2°'S COKP)

16 BIT MODE

‘BRANCH TO 208 IF NO ERROR

2308

'READ GATE SHOULD BE OFF FOR 3 PROM STROBES

001136
000040
000004
000021

001136

308:

MoV
ADD
mov

MoV

RO, SBDADR
ARMMR2, SBDADR
#4 R?

M7, R4

:SETUP ERROR MESSAGE
;R2=NUMBER OF PROM STROBES

:MAX BIT CLOCKS

i8§OCK BIT CLOCK UNTIL PROM STROBE COMES ON

ZVIN
v10

AD
A0

MOV
MOV
MoV

MMRIAAAIACLK RMMRT(RO)

;LOAD RMMRY

MR1AAA RMRRT (RO)
:LOAD RMMRY
RMMRT(RO)
RS ;STORE RMMRY AT R3

CZVINAQ VI105 ACCPT T1ST
CIVTOAQ M7142 ACCPT TST
x+ EMD OF RFPORT #»