Digital PDFs

AH-T107A-MC

July 1982

Number of pages unknown

Original

18MB

view download

OCR Version

16MB

view download

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

OCR Text

el orc, @ity EIENNE]

_Mfi

DSKLS»TEST P11

AHTI0ZR-ME

e iue

EDBB

SEQ 0091

.REM

NN b erd d b ¢ D b d e

b d

= O OO NO WS AN 2
-~ OO0~ OSSN

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 1

IDENTIFICATION

PRODUCT CODE:

AC-T106A-MC

PRODUCT NAME:

CZRNBAD

PRODUCT DATE:

APRIL 1, 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITT

RMBO DISKLESS TEST, PT 1

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

NOT
SHOULD
CORPORATION.

CONSTRUED AS A COMMITMENT BY
BE
DIGITAL EQUIPMENT CORPORATION ASSUMES

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

DIGITAL EQUIPMENT
NO RESPONSIBILITY

THE SOF TWARE 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?é{?fl{LITY OF ITS

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

SEQ@ 0002
CONTENTS

INTRODUCTION

2.
2.

HALTING

NOAWN
S NN —

PROGRAM 1D
CONSOLE DIALOSUE

PERFORMANCE REPORTS
PROGRAM HALTS

ERROR REPORTS
EXEXCUTION TIME

-—

ENVIRONMENTAL SUPPORT
.

RESTARTING

PROGRESS REPORTS

SWITCH OPTIONS
STARTING

OPERATOR INTERFACE

36
37
38
39
40
2}

HARDWARE REQUIREMENTS
MEDJA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

UNIT UNDER TEST

OPERATING PROCEDURE
2.
3.

ABSTRACT

OPERATING REQUIREMENTS
1.
2.
3.

VIS W

WA NN A A NI NI NS PONININ) wd b b b end cod b b b b
WNR 2O
00 NOCWS NN - 20000 NN S WIWIN) =
=0 000~ OV

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 2

2.
3.
4.
5.
6.
7.

PROCESSCR COMPATIBILITY

DUAL PORT CONFIGURATIONS
MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

NN PONININ)
b ad b d b cd b e b
ANN — OO 00 NN
VSN
=OO0 NNV

NN =

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3
1.0

INTRODUCTION

1.1

ABSTRACT

)

SEQ 0003

THE RMBO DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH

USES

FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RM80
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 RH70 MASSBUS CONTROLLER:
TO DETECT ERRORS AND FAULTS IN THE RMB0 MASSBUS ADAPTER:
TO RESOLVE HARDWARE FAILURES IN THE RM80 TO A FIELD REPLACEABLE

MODULE OR MODULES.

1.2

UNIT UNDER TEST

THE UNIT UNDER TEST (UUT) IS THE RM80 DISK SUBSYSTEM, EXCLUDING
THE STORAGE MODULE DISK DRIVE AND THE RH70 MASSBUS CONTROLLER.

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

THE FOLLOWING

OPERATIONAL,
DIAGNOSTIC:

MINIMUM

REQUIRED

HARDWARE

LOAD

PDP-11/70 PROCESSOR
20K MEMORY
KW11=L Of. aW11=-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

RH70 CONTROLLER
1 TO 8 RMBO DISK DRIVES

2.2

MEDIA REQUIREMENTS
NONE

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS
NONE

3.0

OPERATING PROCEDURE

CONFIGURATION,

AND

EXECUTE

THE

ASSUMED

RMBO DISKLESS

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-1
3.1

SEQ CO04

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA:

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

3.2

SWITCH OPTIONS

THE FOLLOWING SWITCH OPTIONS ARE

SWITCH IS ON.

Sw15

SW14

swi3
swi2
Sw11
sw10
Swo9
Swo8

INVOKED

WHEN

THE

APPROPRIATE

HALT ON ERROR

LOOP ON TEST (CURRENTLY BEING EXECUTED)
INHIBIT ERROR TYPEOUTS

UNUSED

INHIBIT TEST ITERATIONS

BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SW07-00

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

A PARTICULAR TEST WHICH THE PROGRAM WILL LOOP ON.

3.3

SPECIFY

STARTING

THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE
THE RH/RM BASE ADDRESS TO BE CHANCED.
IF RUNNING IN A _STAND-ALONE
ENVIRONMENT, THE PROGRAM USES CONSOLE DJALOGUE TO ALLOW THE OPERATOR
TO CONTROL TEST CONDITIONS.

3.4

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)

b ol b e b

HALTING

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST

TIME

QOO

OOOGO‘OWU\M\AU‘MU\MMU“\&J\bl\l\l\l\l\J\WWWWWWU‘MWWNNNNNNNNNN—‘—‘—'—'—l

—l_.n—l—l-l—l—l-l—h—l—l—i-l—l_n_.—b—b._n...n-a-n_n_a_n_a—l-a_.—l—a—b._n_n-l—l—l-l..;_n—l—l_n_n_n_n_n—l—o_.—h—h—‘—-i—b—l_A

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-2

SEQ 0005

1S STARTED AFTER BEING LOADED.

4.2

CONSOLE DIALOGUE

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

ENTERS A

THE FIRST QUESTION TYPED OUT IS: ‘‘TYPE HELP TEXT (L) N 2",
IF THE OPERATOR RESPONDS WITH A °*'Y'', THE PROGRAM WILL TYPE A BRIEF
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE
TO THE QUESTION IS CONSIDERED A ‘N'' AND NO HELP TEXT IS TYPED. THIS
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON
SUBSEQUENT START-UP'S.

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

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

DIALOGUE.

EXAMPLE 1

sNO CHANGE IN ADDRESS
sNO CHANGE IN ADDRESS

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

RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS T0 177200
:CHANGE VECTOR ADDRESS TO 260
RMVEC=000254 260<CR>

ON THE INITIAL START,

THE NEXT QUESTION

TYPED IS, °'TYPE “A' TO

TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH
A CARRIAGE RETURN'. THEN, 'DRIVE(S):* IS TYPED AND WAITS FOR THE
TO TEST ALL POSSIBLE DRIVES OR TYPE _ANY
OPERATOR TO TYPE AN *‘A’,

STRING Nf DRIVE yUHBER(SS TO BE TESTED AND TERMINATE THE INPUT WITH A

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

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING
IS AN EXAMPLE PRINTOUT:
'UNIT STATUS:

ONLINE

2
3

OFFLINE RM80
NOT PRESENT

2
14

1, ¢

RM80

LOAD DEVICE

NOT PRESENT

NOT AN RM80
NOT PRESENTY
NOT PRESENT'

;HE 98 0 YE UNIT STATUS SHOWS THAT DRIVE 0 & 2 WILL BE TESTED, WHILE DRIVES
v LL NOT BE

TESTED.

00~

_._;—I—l._._..a-l-a—l—l_fl_h_l_g_.—a_..-l..._;—l_od--I_‘__;
N~ NNNNN~N
OO O OO O O O O 00 00 00 0o 00 o 0o000000

WSS NN = © 0 00 O VSN = OO GO NOC NV S LIND

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-3

SEQ@ 0006

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON TIE

STATUS OF THE DRIVE:

'DRIVE(S) TO BE TESTED, 0, 2°

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

TYPED TO THE OPERATOR:

*DRIVE(S) TO BE TESTED, NONE'

THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE 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 BE TESTED:
"DRIVE 0

DRIVE 2°

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

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

NOTE:

L=LETTER.

4.3

PROGRESS REPORTS

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

THE FOLLOWING MESSAGE WILL ALSO

OV~
NN =

*TOTAL ERRORS SINCE LAST REPORT

b b e

b b be e

ASLaS IS TN N TN N 1NN 1,8 )

THE LAST END OF PASS REPORT.

221

OCCUR IF THERE WERE ERRORS SINCE

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

SEQ 0007

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-4
THE

REPORTS

RMBO

DISKLESS

INTENDED

(1)

DIAGNOSTIC

AID

REFERENCES TO PROGRAM LISTINGS.

PROVIDES

COMPREHENSIVE

ERROR

FAULT RESOLUTION AND (2) MINIMIZE

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE
UNIT (DRIVE) BEING TESTED, DRIVE TYPE, THE TEST NUMBER, THE ERROR
'>BER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED.
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHiCH
GIVE A COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING
MODULES IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS
aggug?gA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST
THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS FROGRAM:

DRVA# 0 - RMBO, TEST# 25, ERR# 66, P(=017566
ILLEGAL REGISTER ERROR "ILR'’' (RMER1, BIT 01) SHOULD BE SET
DURING REGISTER TRANSFER

PROBABLE FAULT(S):

(NOT INCLUDING CABLES OR CONNECTORS)
IF MODULE, M7686,

EXPCTD
STATUS
000002

RECEVD
STATUS
000000

TEST
REGSTR
176750

4.7

EXECUTION TIME

5.0

INVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

ON A PDP=11/70
IS EXECUTABLE
THE RMB0 DISKLESS DIAGNOSTIC
SQ?CESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE

5.2

DUAL PORT CONFIGURATIONS

THE RM80 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMBO SUBSYSTEMS
HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS SET T0
IR/BIHE APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE POSITION

5.3

MEMORY PARITY HARDWARE

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-5

SEQ 0008

MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE

THE RM80 DISKLESS DIAGNGOSTIC.

EXECUTION

MEMORY MANAGEMENT HARDWARE

5.4

MEMORY

MANAGEMENT

DISKLESS DIAGNOSTIC.

HARDWARE

WILL

NOT

USED DURING THE RM80

ACT11, APT11 COMPATIBILITY

5.5

THE RM80 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11
AND APT11
IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL
SSEEUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY

XXDP COMPATIBILITY

5.6

THE

RM80

DISKLESS

IN DUMP AND CHAIN MODES.

DIAGNOSTIC

PROGRAM IS COMPATIBLE WITH

XXDP

V')

OPERATING SYSTEM COMPATIBILITY

5.7

TE;HE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

ANY

OPERATING

b e

Velo . TNTe JUL¥

ol
b

WNNN
N NN

312

320

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

HAVE

MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS
BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE,

NONTRANSIENT HARDWARE FAILURES.

THE

°‘RMB0 DISKLES DIAGNOSTIC'® CAN

RH70

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

THE

THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION

THE

MASSBUS CONTROLLER.

TEST ARE AS FOLLOWS:

IF
¢S
DS

EXECUTED

USING

SEQ 0009

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-6
MASSBUS MODULE

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

TEST 1

TRANSFER TEST

PURPOSE
:

VERIFY

THAT

THE

RMB0 CAN COMPLETE A REGISTER TRANSFER

ON THE MASSBUS, AND, IN PARTICULAR, YO VERIFY THAT
NOT STUCK IN AN INACTIVE STATE.

‘'TRANSFER'' IS

PROCEDURE:

THE PROGRAM WRITES AND
REGISTER
DEVICE.
SELECTED

READS REMOTE
CONTENTS AND

REGISTERS FOR
PARITY ERRORS

THE
~ARE

WHICH

THE

IGNORED, AND THE TEST FAILS IF A 'NONEXISTENT DEVICE ERROR'' OR
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS
THE PROGRAM JUMPS TO THE END OF PASS HANDLER

NEXT DEVICE TO BE TESTED.

SELECTS

PROBABLE FAULT:

THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT

SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT.
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WI{EN THE DEVICE IS

PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT.
1.

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

(S MODULE

TEST 2

CTOD TEST

:
PURPOSE

TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE
RM80 USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT
"'CONTROLLER TO DEVICE'® HAS NOT FAILED.
PROCEDURE:

THE TEST WRITES ONES IN REMOTE_REGISTERS

THEN

READS

EACH

REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF "'IF3 CTOD HOLD
H'' IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS.

SEQ 0010

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-7
PROBABLE FAULT:

1F MODULE

ASYNCHRONOUS MASSBUS MODULE

TEST 3

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 1S CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR.
PROBABLE FAULT:

ASYNCHRONOUS MASSBUS MODULE

[IF MODULE

(S MODULE

TEST 4

CLEAR STUCK ACTIVE TEST

:
PURPOSE

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

AN ACTIVE STATE.

PROCEDURE:

CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT,
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
1S 0K, ELSE, 'MBA CLRL' IS PROBABLY STUCK ACTIVE.
PROBABLE FAULT:
1.

CS MODULE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

CZRNBAG RM30 C-KLS PT1 MACRO V04.00 14-JAN-B2 16:33:00 PAGE 3-8
457
458
459
460
461

22%

TEST 5

SEQ 0011

TRISTATE TRANSFER TEST

2gg

PURPOSE :

466
467

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

223

BIT POSITION IS INDEPENDENT.

2;9

PROCEDURE :

472
473
474
475

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

478
479
480

THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING
THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS
MANY REGISTERS AS 'S NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN

483
484
485

FINALLY, TAE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT 0
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN (AN BE
READ BACK. THE ONE BIT 1S SHIFTED AND THE TEST REPEATED FOR ALL

2;9

23;

POSITION.

EACH BIT POSITION.

239

BIT POSITIONS.

233

PROBABLE FAULT:

23?

ASYNCHRONOUS MASSBUS MODULE

492

IF MODULE

494

€S MODULE

496

DS MODULE

28%

TEST 6

493
495

497
498
499
500
501

ggg

506

PURPOSE :

TO VERI/Y THAT THE REGISTER SELECT LINES ARE NOT IN A

STUCK

507

POSITION.

g?g

PROCEDURE :

511
512
513

EACH REGISTER SELECT LINE IS TESTED BY WRITING ZEROS_IN
THO§E DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO, THEN
WRITING ONES IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE

508

S W

IV
AWMV
AN NI
VIV

=00~

WWWWNANI
NI NI NININI NINIADN) = =d b b b

WNH NN 2000~V
S

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-9

SEQ 0012

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

REGISIER SELECT LINES 1, 2, 4 AND_ 8 ARE TESTED IN THIS
MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE “ILR TEST".
PROBABLE FAULT:

IF MODULE

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
CORRESPONDS TO A SINGLE PORT OR DUAL PORT RM80 DRIVE.
PROBABLE FAULT:
1.

Vi
AW
Vi
OO~
S NN —

550

560

IF MODULE

TEST 10 DEVICE AVAILABLE TEST
PURPOSE:

TO VERIFY THAT DEVICE AVAILABLE >TATUS IS SET.
PROCEDURE:

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

IF MODULE

TEST 11 HOLDING REGISTER TRANSFER TEST

RESULT

SEQ 0013

CZRNBAO RM8J DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-10
:
PURPOSE

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

ONE,

:
PROCEDURE

THE PROGRAM TRANSFERS ONES,
THEN ZEROS TO THE HOLDING
REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT OnE.
THE PROGRAM TRANSFERS ZEROS,
THEN_ ONES TO THE HOLDING
REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ZERO.
FINALLY, THE TEST TRANSFERS A SHIFTING ONE BIT
VERIFIES THAT EACH BIT IS INDEPENDENT.

PATTERN

AND

PROBABLE FAULT:
1.

IF MODULE

TEST 12 CONTROL STATUS #1

TRANSFER TEST

:
PURPOSE

TO VERIFY THAT BITS 01 THROUGH 05 OF CONTROL STATUS REGISTER
AT ONE OR ZERO,
AND THAT THERL IS NOT BIT

1
ARE_ NOT_ STUCK
INTERFERENCE.
PROCEDURE
:

THEN
ONE.

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

oo
On oooononONOn
N e o e b e b ek
(=2rele
- RNTe NV ¥ NV'T,N)

NEXT, THE TEST CLEARS THE CONTROL

STATUS

RMCS1,

WRITES ONES IN BITS 01 THROUGH 05 AND VERIFIES THAT THE BITS ARE
NOT STUCK AT ZERO.
THE GO BIT IS NOT TESTED.
THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN
FROM RMCS1 AND CHECKS FOR ADJACEN' BIT INTERFERENCE.
PROBABLE FAULT:
1.

IF MODULE

621

TEST 13 ERROR REGISTER #1
:
PURPOSE

TRANSFER TEST

AND

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 rAGE 3-11
628

SEQ 0014

TO VERIFY THAT ERROR REGISTER 1 IS NOT STUCK AT ONE OR ZERO,

g%g

AND THAT THERE IS NOT BIT INTERFERENCE.

gg;

PROCEDURE :

633
634
635
gg?

THIS TEST WRITES ONES IN ERROR REGISTER 1, RMER1, THEN
WRITES Z2EROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ONE.
"UNSAFE'' IS NOT TESTED DURING THIS TEST. IN ORDER TO LIMIT THE
PROBABLE FAULTS TO ONE OR TWO MODULES, THE TEST 1S EXECUTED IN 3

638

PARTS WITH EACH PART TESTING THOSE BITS

641
gz%

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

228

644

ARE DERIVED FROM THE SAME MO. JLE.

AND CHECKS FOR ADJACENT BIT INTERFERENCE.

647

PROBABLE FAULT:

649

IF MODULE

651

CS MODULE

653

DS MODULE

650

652

654
655
656
657
658

gzg

gg;

663

PRESET

FUNCTIONS

FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1

222

648

WHOSE

TEST 14 CLEAR OFFSET STUCK ACTIVE TEST

PURPOSE :

TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET

MODE

NOT

222

STUCK IN ACTIVE STATE.

gg?

PROCEDURE :

668
293

THE TEST WRITES A ONE IN THE OFFSET DIRECTION BIT WHICH IS
CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK.

671

PROBABLE FAULT:

673

IF MODULE

675

DS MODULE

672

674

676
677
678
679
680

gg}

683

TEST 15 OFFSET REGISTER TRANSFER TEST
PURPOSE:

CZRNBAO RMBO DSKLS PT1 MACRO V04 00 14-JAN-82 16:33:00 PAGE 3-12
TO_VERIFY THAT THE OFFSET REGISTER

SEQ 0015
IS

NOT

STUCK

ONE,

STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT INTERFERENCE.
PROCEDURE:

THE OFFSET_REGISTER,
RMOF,
IS
WRITTEN WITH ONES,
THEN
g?fig;f:r gfigfl ZEROS AND READ TO VERIFY THAT NONE OF THE BITS ARE
THEN THE OFFSET REGISTER IS WRITTEN WITH ZEROS
AND
WRITTEN
WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO.
FINALLY,

BIT PATTERN.

THE OFFSET REGISTER IS TESTED WITH A

SHIFTING

ONE

PROBABLE FAULT:
1.

IF MODULE

DS MODULE

TEST 16 ERROR REGISTER #2 TRANSFER TEST

PURPOSE:

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

PRPJCEDURE:

THAT

THE TEST WRITES ONES THEN WRITES ZEROS IN RMERZ2 AND VERIFIES
NONE OF THE BITS ARE STUCK AT ONE.
°‘'SKI'* AND °‘DVC‘'' ARE NOT

TESTED.

IN ORDER TO LIMIT THE NUMBER OF PROBABLE FAULTS

ONE

OR _TWO MODULES,
THE TEST IS EXECUTED IN 3 PARTS WITH EACH PART
ggfiglggoafgSE BITS WHOSE PRESET FUNCTIONS ARE
DERIVED FROM THE
THEN THE TEST WRITES ZEROS IN ERROR REGISTER 2,
AND
ONES VERIFYING THAT THE REGISTER IS NOT STUCK AT ZERO.

WRITES

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

IF MODULE

(S MODULE

DS MODULE

THE

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-13

SE@ 0016

TEST 17 SERIAL NUMBER TEST
PURPOSE:

TO VERIFY THAT THE SERIAL NUMBER CAN BE READ.
PROCEDURE:

THE TEST READS THE SERIAL NUMBER REGISTER SEVERAL TIMES
VERIFIES THAT THE NUMBER IS THE SAME EACH TIME.

AND

PROBABLE FAULT:

€S MODULE

TEST 20 CONTROL BUS PARITY DETECTION TEST

PURPOSE:

TEST

THE

RM80'S

PARITY CHECKING LOGIC FOR THE MASSBUS

ASYNCHRONOUS CONTROL BUS.
PROCEDURE:

THIS TEST WRITES A SHIFTING ONE 8IT DATA PATTERN IN THE DISK
ADDRESS REGISTER USING ‘PAT'' TO CONTROL THE STATE OF THE PARITY
BIT. 'PAR'' STATUS, BIT 03 OF RMER1, IS CHECKED AFTER EACH
PATTERN 1S TRANSFERRED..NOTE THE FOLLOWING TABLE SHOWS A SET OF
;E;;ESQTTERNS THAT COULD BE USED INSTEAD OF A SHIFTING ONE BIT
DATA PATTERN

PAT

PAR

000000
075266
163753
116535

1
0
0
1

PROBABLE FAULT:

IF MODULE

ASSYNCHRONOUS MASSBUS MODULE

TEST 21

CONTROL BUS PARITY GENERATION TEST

PURPOSE:

SEQ 0017

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-14
TO

TSST

THE RMBO'S PARITY GENERATING LOGIC FOR THE MASSBUS

ASYNCHRONOUS CONTROL BUS.
PROCEDURE:

THE TEST TRANSFEKS A SHIFTING ONE BIT DATA

PATTERN TO

THE

DISK ADDRESS REGISTER. AFTER EACH PATTERN IS READ BACK, 'MASSBUS
CONTROL BUS PARITY ERROR'' IS TESTED AND SHOULD 3E ZERO..NOTE THE
FOLLOWING SET OF TEST PATTERNS COULD BE USED INSTEAD OF THE
fuard
ot Qutr Gt Putr Gutr Putr S

0O ~NON NS NN —

00 00 00 00 00 00 0o GO

SHIFTING ONE BIT PATTERN.

819

DATA PATTERN

MCPE

000000
056747
135672
163135

0
0
0
0

PROBABLE FAULT:
1.

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

TEST 22 RMDA, RMDC FAULT TEST

:
PURPOSE

TO VERIFY THAT THERE ARE NOT FAULTS WHICH INHIBIT THE
?zgffisg FROM WRITING RMDC AND RMDA.
SPECIFICALLY, THESE FAULTS

.''6G0 H'' STUCK HIGH, WHICH WOULD INHIBIT

FUNCTION,

JRIP

STUCK

LOW,

WHICH

WOULD

THE

LOAD

CLEAR

THE

CONSTANTLY

EBL'* STUCK, WHICH WOULD INHIBIT THE CLOCK FUNCTION.
PROCE.

oacoooouoooog
v

VS
W =00

848

THEN

RE:

THE TEST WRITES AND READS BOTH RMDC, AND RMDA. WITH ZEROS,
ONES.
THE TEST PASSES IF EITHER REGISTER CAN BE WRITTEN

WITH ONES.

PROBABLE FAULT:

DS MODULE

IF MODULE

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-15
3.

SE@ 0018

CS MODULE

TEST 23 DISK ADDRESS TRANSFER TEST

PURPOSE:

10 VERIFY THAT THE DISK ADDRESS REGISTER IS NOT STUCK AT ONE
OR ZERO, AND THAT THERE IS NOT BIT INTERFERENCE.
PROCEDURE:

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

A SHIFTING ONE BIT PATTERN IS TRANSFERRED TO AND FROM THE
DISK ADDRESS REGISTER, RMDA, AND THE TEST VERIFIES THAT EACH BIT
1S INDEPENDENT.

PROBABLE FAULT:

DS MODULE

IF MODULE

TEST 24 DESIRED CYLINDER TRANSFER TEST

:
PURPOSE

TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER,

NOT

STUCK

INTERFERENCE.

ONE

ZERO,

AND

THAT

THERE

RMDC,

NOT BIT

PROCEDURE:

5:EN

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

THEN THE TEST WRITES ZERQ S N THE DES 1 RED CYLIND 3 R REGISTER,
ggDC. WRITES ONES AND VER IFIE S THAT THE RE GISTER IS NOT STUCK AT
FINALLY, A SHIFTING 1 BIT PATTERN IS TRANSFERRED TO AND FROM
RMDC AND THE PROGRAM CHECKS FOR BIT INTERFERENCE.

—

SEQ 0019

PROBABLE FAULT:
1.

DS MODULE

IF MODULE

—

)

) i

)

elLNTe
XV, ¥ YOV

LellelVellelVe
2Vo 2V, ]

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-16

TEST 25 ILLEGAL REGISTER TEST

:
PURPOSE

TO TEST ILLEGAL REGISTER ERROR DETECTION IN THE RM8O.
PROCEDURE:

THIS TEST READS ALL LEGAL REGISTERS AND VERIFIES THAT 'ILR'’,
BIT 2 OF RMER1 DOES NOT SET. THEN, TO THE EXTENT ALLOWED BY THE
MASSBUS CONTROLLER, IT READS ILLEGAL REGISTERS AND VERIFIES THAT
IS SET.
“ILR'"

PROBABLE FAULT:
1.

IF MODULE

ASSYNCHRONOUS MASSBUS MODULE

TEST 26 RESET GO BY INIT TEST

PURPOSE:

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

THE TEST SETS GO THEN CLEARS GO

1.E.., CONTROLLER CLEAR.
PROBABLE FAULT:

(S MODULE

IF MODULE

TEST 27 DIAGNOSTIC MODE TEST

USING

MASSBUS

INITIALIZE,

OO0V VOV OO O OO VOOV OVOOVO

S8 88888888
R R R RS INNIRINSS

CZRNBAO RMB0O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-17

1001

1002

1003
1004

1005
1006

PURPOSE:

TO _VERIFY THAT “DIAGNOSTIC MODE'', BIT 0

STUCK AT ONE OR ZERO.

PROBABLE FAUL7:

CS MODULE

IF MODULE

TEST 30 MOL TEST
:
PURPOSE

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

US. 'G MAINTENANCE UNIT READY.

AFTER INITIALIZING THE SUBSYSTEM, THE TEST SETS *DIAGNOSTIC
AND READS THE DRIVE STATUS REGISTER, RMDS, EXPECTING MOL,
MODE:
BIT 12 T0 BE ZERO. *MAINTENANCE UNIT READYTM, BIT 9 OF RMMR1, IS
SET AND MOL SHOULD BE ONE. THE TEST THEN WRITES A ZERO IN MUR
AND READS RMDS, VERIFYING THAT "MEDIUM ON LINE'® IS ZERO.

(S MODULE

1011

IF MODULE

TEST 31 WRITE LOCK TEST

1019

PURPOSE:

1021

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

1024

PROCEDURE:

1020

1022
1023

1025
1026

RESET

PROCEDURE :

}8};

NOT

STUCK AT ONE.

1009

1012
1013
1014
1015
1016

RMMR1,

INITIALIZED AND °‘DMD'’' 1S CHECKED FOR ZERO.
THE RM80 IS
*DMD'* IS WRITTEN WITH ONE AND READ TO VERIFY THAT IT IS NOT STUCK
AT ZERO, THEN WRITTEN WITH ZERO AND READ TO VERIFY THAT IT IS NOT

PROBABLE FAULT:

1010

PROCEDURE:

1007
1008

SEQ 0020

CAN

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MwP,

BIT

SET

AND

SEa 0021

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-18

1027

RMMR1,

AND

READS

RMDS TO VERIFY THAT WRL, BIT 11 IS SET.

THEN

UNS,

CZAN

}853

MWP IS RESET AND WRL SHOULD BE ZERO.

}8%?

PROBABLE FAULT:

1032

€S MODULE

1034

IF MODULE

1033

1035
1036
1037

1038
1039

}82?

TEST 32 DRIVE FAULT TEST

}82%

PURPOSE :

1044
}%g

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

}825

PROCEDURE :

1049
1050

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MDF, BIT 06 OF
RMMR1, AND READS RMER3 TO VERIFY THAT DVC, BIT 07 IS SET RMER1 IS

1054
1055
1056

PROBABLE FAULT:

CS MODULE

1058

IF MODULE

1051
}8;%

1057

1059
1050
1061
1062
1063

}8%?

}829

1068

ALSO READ AND UNS, BIT 14 SHOULD ALSO BE SET.
AND DVC AND UNS SHOULD BE RESET.

TO VERIFY THAT ''SEEK ERROR'', SKI, CAN BE SET AND RESET USING

}8;}

PROCEDURE :

WITH DIAGNOSTIC MODE SET, THE TEST

SETS

MSER,

BIT

1074
}8;2

RMMR1 AND READS RMER3 TO VERIFY THAT SKI, BIT 14 IS SET.
RESET AND SKI SHOULD RESET.

1077

PROBABLE FAULT:

1079

€S MODULE

1081

IF MODULE

1080

1082
1083

RESET

PURPOSE :
"MAINTENANCE SEEK ERROR'', MSER.

1078

TEST 33 SEEK ERROR TEST

}898

1073

THEN MDF

MSER IS

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-19

SEQ@ 0022

1084
1085

1086

1087

TEST 34 PIP TEST

}838

PURPOSE :

1091
}83%

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

}882

PROCEDURE :

1096
1097

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

Ogg

PROBABLE FAULT:

CS MODULE

IF MODULE

NN = O 00NN

S NN

OV~ OB

— b e ) e o
e
—d b b o b b b e

WA =2 O V0NN

WN =000~

05
06

CAN

SET

SHOULD BE ONE.

b
b b e o
e e o e b el
b == b b e o =D b b d b b b e b b e
b b e e b e b e d cd e b ed =D
b e e b cd b d b b b b b b d s b
= OO0
N N N LA AN NN NN N NI NN NI NI N == = =b b b P

b CD

1088

TEST 35 EBL TEST
PURPOSE:

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

CAN

SET

AND

:
PROCEDURE

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

CS MODULE

TEST 36 LAST SECTOR, LAST TRACK TEST
PURPOSE:

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

PLA

THE

MODULE

SEQ 0023

THE TEST WRITES ALL POSSIBLE PATTERNS IN THE DISK ADDRESS
AND VERIFIES ‘'LS'' AND °‘1LST'* STATUS FOR EACH
RMDA,
REGISTER,

THE PROCEDURE IS DONE ONCE FOR 18 BIT FORMAT, ONCE
16 BIT FORMAT AND ONCE FOR 16 BIT FORMAT WITH °''SSEI'’ SET.

PATTERN.

FOR

PROBABLE FAULT:
1.

DS MODULE

(S MODULE

TEST 37 RMDA COUNT TEST
PURPOSE:

TO VERIFY THAT THE DISK ADDRESS REGISTER

(RMDA)

INCREMENTS

PROPERLY.

:
PROCEDURE

THE TEST INCREMENTS RMDA USING DIAGNOSTIC END OF BLOCK
"DEBL'* AND VERIFIES THE RESULT IN 18 BIT FORMAT, 16 BIT FORMAT
AND 16 BIT FORMAT WITH °'SSEI’’ SET.
PROBABLE FAULT:

DS MODULE

NOWVSWN=O

e b

b ot

b b e i e

b e

b nd =D oo o cd e e

b e

b —l and

b ad

-A—.-lddd-fld-fl-‘_‘-‘dd—._.—l-l-‘-l—.fldd—l—l-‘-ld—l-‘d —

b anb —b

OO0 O OO OO V0000000000000
NN NNNNNNNN OO

b b aud el
and b b o

D d o b D b e b b cd D ) D D D red o oD d b
D and wud cnd D b b cad b o D b b wod b o d D D d

OQNOMJ\WN-‘OOQVO\Rbum—iOOQNOU\gWN—DOOQNOWJ“WN—'OOGVO\A&WN—'

O O O\ O VIWVINVIVIVIVIVIIVIES
S B IS S OIS IS S

CZRNBAO RM80 DSALS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-20

TEST 40 RMDC COUNT TEST
PURPOSE:

TO VERIFY THAT
INCREMENTS PROPERLY.

THE

DESIRED

CYLINDER

RMDC,

:
PROCEDURE

THE PROGRAM INCREMENTS RMDC USING D JAGNOSTIC END OF BLOCK,
“DEBL'‘, AND VERIFIES THE RESULT IN 18 B IT FORMAT, 16 BIT FORMAT
AND 16 BIT FORMAT WITH °''SSEI'* SET.
PROBABLE FAULT:

DS MODULE

SEQ 0024

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-21
1198

TEST 41 LBT TEST

1200

PURPOSE:

1199

1201
1202
1203
1204

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

1205

PROCEDURE:

1208

THE TEST USES DIAGNOSTIC EBL TO SET LBT, AND TRANSFERS TO
RMDA TO RESET LBT. THE RESULTS ARE VERIFIED IN 18 BIT FORMAT, 16
BIT FORMAT AND 16 BIT FORMAT WITH °'SSEI'’ SET.

}S}%

PROBABLE FAULT:

1214

DS MODULE

1216

IF MODULE

1206
1207

1209
1210
1211

1215

1217
1218
1219
1220
1221

}%g%
c

1224

1225
1226
1227

1228

1
1
1
1

\h\h\h\h&bbbbbbbbbwudwwg
NN =20 00O W

S NN =2O VNN

1
1
1
1
1

NONLNLNLNINLNLNLNLNLNLNINININININININI
NN

1229
1230
1231
1232
1233

TEST 42 COMPOSITE ERROR TEST
PURPOSE:

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

THE TEST USES INITIALIZE AND DIAGNOSTIC MODE TO FORCE ALL
ERRORS TO ZERO THEN VERIFIES THAT "ERR'' IS ZERO. EACH ERROR IS
INDIVIDUALLY SET AND ‘‘ERR'’ SHOULD BE ONE FOR EVERY ERROR TESTED.
ADDRESSES #2 AND #17 OF THE COMPOSITE ERROR PLA ARE NOT TESTED.
THE
“’ABORT'' AND "EXCEPTION'' OUTPUTS OF THE PLA ARE NOT TESTED.
TEST FAILS IF ERR IS NOT ZERO WITH ALL SET ARGUMENTS ZERO OR IF
ERR IS NOT ONE WITH ANY SET ARGUMENT ONE.

PROBABLE FAULT:
1.

IF MODULE

TEST 43 WRITE GO TEST
PURPOSE:

TO VERIFY THAT GO CAN BE SET.
:
PROCEDURE

THE TEST ENABLES THE

DEBUG

CLOCK,

THEN

TRANSFERS

NOP

SEQ 0025

WA= O 000~
(NN = O OO NV
VOO NI

_‘d-l—.—.d_.—..‘d_l-‘—‘d—ld—l—.-ldd—l-‘—.,—.

l\)NNN%NNN'UNNNNNNNNNNNNNNNN
NNNNNOOOOONOONONONON
WY NN
SNNNN

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-22
FUNCTION

CODE

AND GO BIT TO RMCS1, VERIFYING THAT GO SETS.

FUNCTION CODES ARE TESTED.

ALL

PROBABLE FAULT:

IF MODULE

(S MODULE

TEST 44 BRANCH MULTIPLEXOR TEST

PURPOSE:

TO VERIFY THAT THE OUTPUT OF THE

MULTIPLEXOR DOES NOT HAVE A FAULT.

COMMAND

SEQUENCER

BRANCH

:
PROCEDURE

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

PROBABLE FAULT:

(S MODULE

TEST 45 SET/RESET GO TEST
:
PURPOSE

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

THE SUBSYSTEM IS INITIALIZED AND PUT IN DIAGNOSTIC MODE WITH
DEBUG CLOCK ENABLE', BIT 14 OF RMMR1 SET.CERTAIN FUNCTION CODES
ARE WRITTEN IN RMCST AND THE PROGRAM READS RMCS1 TO VERIFY _THAT
.

RMDS IS_ ALSO READ TO VERIFY THAT "DRYTM IS RESET.
GO IS SET,
THEN THE PROGRAM STEPS THE DEBUG CLOCK USING BIT 15 OF RMMR1TM AND

VERIFIES THAT ''GO"' RESETS AND ‘DRY'' SETS. USING A FUNCTION CCDE
THAT RESETS GO AT A DIFFERENT PROM ADDRESS. THE TEST FAILS If GO
DOES NOT SET OR CANNOT BE RESET BY THE COMMAND SEQUENCER. THE
TEST ALSO FAILS IF "DRIVE READY'' IS NOT THE COMPLIMENT OF GO.
PROBABLE FAULT:
1.

(S MODULE

(W V=000 NN

N S 8 D 8 8 B B 8 D B WNWWWNWWNIN N WNANN NN NN NORNINN) DS = = D b b b

IF MODULE

TO VERIFY THAT THE COMMAND SEQUENCER CAN

END1 LOCATION.

RESET

THE

PROCEDURE:

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

SPECIFIED CLGCK CYCLE.
PROBABLE FAULT:
1.

(S MODULE

TEST 47 SET PULSE TEST
-

PURPOSE
:

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

WITH DEBUG

CLUK

ENABLED,

THE

SEQUENCER THROUGH PARTS OF VARIOUS
CONTINUE, BIT 06 Of RMMR1 TO DETERMINE

TEST

GENERATED.

STEPS

THE

COMMAND

FUNCTION CODES AND CHECKS
IF SET PULSE IS BEING

PROBABLE FAULT:

CS MODULE

TEST 50 SET/RESET IVC TESY

PURPOSCc :

322

%gg

SEQ 0026

:
PURPOSE

WA = O 000NV
9

TEST 46 END 1 RESET GO TEST

= OO0 NV
WA = O VO N NS W
NN

O O\

—a-h_.—l-l—l—.—l—l—.—l-.-.-b-‘—l—._._‘-.-l—l-l_;—l-l—._h—l—l—l—h-fi-I—l—l_l-l_l_._;—l—l—._l__.—)_a—l_)—l—l—l—l_h_l_.

uuuwwwuuwuuuuwwwuwuuuwwwuwuuwuwuuwwuwwwwuwuwuuwuuuuuuw

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-23

TEST

PROCEDURE :

''INVALID COMMAND''

STATUS

FOR EACH FUNCTION CODE.

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-24
1369
1370
13N
1372

1373

IS CHECKED.

PROBABLE FAULT:

1376

(S MODULE

1378

IF MODULE

1377

1379
1380
1381
1382
1383

SEQ 0027

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

1374

1375

1284

TEST 51 SET LSC TEST

}ggg

PURPOSE :

1%%%

}gg?

PROCEDURE :

1392
1393

THE TEST ENABLES THE DEBUG CLOCK AND SETS THE GO BIT. A-TER
WAITING ENOUGH TIME FOR THE ONE SHOT TO SET, THE TEST DISABLES

1396

PROBABLE FAULT:

1398

(S MODULE

1400

IF MODULE

1385

}ggg

1397

1399

16401
14602
1403
1404

1405

VERIFY

TEST 52 DECODE TEST

}283

PURPOSE :

1410
1611

THE

1412
1413

'1L0SS OF SYSTeM CLOJK'®

CAN SET AND RESET.

THE DEBUG CLOCK AND VERIFIES THAT LSC SETS.

1406

1407

THAT

TO VERIFY THAT THE 'DECODE’' FLOP ON THE IF MODULE SETS WITH
LEADING EDGE OF ‘'SET PULSE'' EXCEPT WHEN "'COMPOSITE ERRORTM IS

ACTIVE.

}2}?

PROCEDURE :

1416
16417
1418
1419
1420

THE TEST USES °'‘'VOLUME VALID'' AND °'OCCUPPIED'' 10 DETERMINE IF
THE DECODE FLOP IS SET OR RESET. INITIALLY, VV AND OCCUPFIED ARE
RESET AND THE TEST EXCCUTES THOSE COMMANDS WHICH SET Vv OR 0C(C
AND VERIFIES THAT ONE OR BOTH BITS SET. THE SAME COMMANDS ARE
EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND THE TEST VERIFIES

1423

PROBABLE FAULT:

1425

}25}

1424

THAT NEITHER BIT SETS.

IF MODULE

:
PURFOSE

YN
T
T
N

TO VERIFY THAT °‘‘'VOLUME VALID'' RESETS WITH THE

LEADING

EDGE

UNIT READY, AND SETS WITH PACK ACKNOWLEDGE AND READ IN PRESET

COMMANDS.

PROCEDURE:

USING ‘MAINTENANCE UNIT READY'', BIT 9 OF RMMR1, THIS TEST
FORCES A ZERO TO ONE TRANSITION OF UNIT READY AND VERIFIES THAT
VOLUME VALID,BIT 6 OF RMDS IS 2ERO. THEN THE TEST_ EXECUTES A
PACK ACKNOWLEDGE COMMAND, VERIFYING THAT Vv SETS. THE PROCEDURE
IS REPEATED WITH A READ IN PRESET COMMAND.

PROBABLE FAULT:

IF MODULE

—

TEST 54 ILLEGAL FUNCTION TEST
PURPOSE:

TO TEST ILLEGAL FUNCTION ERROR IN THE RM80.
PROCEDURE:

TO INHIBIT THE = COMMAND
CL OCK ENABLED
WITH DIAGNOSTIC
BIT O OF RMER1, IS OFF
“'ILF'’,
THAT
VER
TEST
IFIES
THIS
SEQUENCER,
FUNCTIONCODZS.
TME
FOR LEGAL FUNCTION COD ES A?D ON FOR JLLEGAL
BIT
IGNORED.
°''GO'*
IS
THE
OF
STATUS
PROBABLE FAULT:
1.

IF MODULE

-mb

b it

o
oTM

b e e

b b b

b e o e

e e

b e

b o

DS Y I

N N

SE0 0028

TEST 53 SET/RESET VOLUME VALID TEST

b —D—l_A_.—A—A-h_.—.-A—h—l—l_.—i—a—i..._._._._.—l—bd—l_._..—l—ld -—b

D b e b nd )
T o
T

S B 55 0 5 0 0 B B B
NN NN N N N NN N RO N
4\5558\55251\4\58\55
OO o [ VANV
W
—=OWoo~N
wwoo«og vy XV N OV NO VS NN =20V N NS WA= OVB NS W —=O 000NN

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-25

TEST 55 OCCUPIED TEST

PURPOSE:

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

TRANSFERS

AND

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-26
PROCEDURE:

BIT 15 OF RMMR1
FOR EACH DATA TRANSFER COMMAND, ''OCC'',
SHOULD BE ONE, DCBUG CLOCK I g ENABLED 'TO PREVENT GO FROM

PROBABLE FAULT:

IF MODULE

)
w

00 0o

RESETTING BEFORE STATUS IS SAMPLE

CS MODULE

i D b b cd =D ved b wD b e wd cndh D b b b ) b b cd b amd b b ) b b and cd and i cid ) nd ond D D e

499

= O ooogogo
0NN SN
O 00 NOMN B AN =2 © 0 00 NN BN = OO0 00 NN S W

—d e

b e

b b b b b A o

D D ) D D e

(VA AV IV [V IV IV IV TV LV I W
IV AV IV NV LV LIV LV LV IV TV L5, LV LV LV AV ViAW
N AN AN AN N NN NN N NI PO NI PO PO N NVN) e b b b cd b o od e b

501

TEST 56 READ IN PRESET TEST
PURPOSE:
TO VERIFY THAT "READ IN PRES ET'' COMMAND IS DECODED, AND IN
PARTICULAR,
TO VERIFY THAT '‘IF 5 READ IN CMD L'* IS NOT STUCK AT
PROCEDURE:

EACH VISIBLE STATUS OR REGIS TER BIT WHICH IS CLEARED BY
IN PRESET'' IS SET. THEN THE RIP COMMAND IS EXECUTED AND
CLEARED.
THE
OR THORE BITS ARE
THAT ONE
THE TEST VERIFIES
FOLLOWING ARE USED DURING THE TES

"READ

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

IS SET WITH A MOVE
. THE DESIRED CYLINDER REGISTER . RMDC,
INSTRUCTION AND THE TEST PASSES IfF BITS 00-09 ARE ZERO AFTER THE

RIP COMMAND.

. THE DISK ADDRESS REGISTER, RMDA IS SET WITH A MOVE INSTRUCTION
AND THE TEST PASSES IF BITS 00-0 7. AND BITS 08-15 ARE ZERO AFTER
THE RIP COMMAND.

THE TEST FAILS IF NONE OF THE PRE SET TERMS ARE ZERO AFTER THE RIP
.
COMMAND

PROBABLE FAULT:
1.

IF MODULE

DS MODULE

TEST 57 RIP/RMOF TEST
PURPOSE:

SE@ 0029

SEQ 0030

O 00000
OMAS
NN =

b b e

b e e

D i o e b e e e e e

30000030 1 VN N NN N URR R
STBIRAR WY = O VOO NI WA= O VOO~ g

wviv\W v

b b b b b nd b d ) b b cond e} D D b cd D D D ad e e

D d e e e e o

D d De

b D

VAW

OO
NN NNV
S BB
VS W= OOV NO VNS NN =2 O 000NN
W
—=O

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-27
TO VFRIFY THAT “‘READ IN PRESET'' RESETS FMT16, ECI, HCI AND
SSEI BITS 09, 10, 11 AND 12 OF RMOF.
PROCEDURE:

FMT16, ECI, HCI AND SSEI ARE SET, THEN A RIP COMMAND IS EXECUTED

AND EACH BIT SHOULD BE ZERO.
PROBABLE FAULT:
1.

IF MODULE

DS MODULE

60 RMDA/RMDC/RIP TEST
PURPOSE:

TO VERIFY THAT 'READ IN PRESET'' RESETS THE DESIRED

ADDRESS, RMDC, AND THE DISK ADDRESS, RMDA.

CYLINDER

PROCEDURE:

RMDA AND RMDC ARE PRESET THEN TESTED FOR ZERO AFTER THE

RIP

COMMAND.

PROBABLE FAULT:
1.

DS MODULE

61 OFFSET COMMAND TEST
PURPOSE:

VERIFY

THAT

°‘OFFSET MODE'®

SETS

WITH

OFFJET COMMAND.

PROCEDURE:

THE TEST EXECUTES OFFSET COMMAND AND VERIFIES THAT 'OM, BIT

00 OF RMDS IS ONE.
PROBABLE FAULT:
1.

IF MODULE

SEQ 0031

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-28
1597

}ggg
1600

1601
1602
1603

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

THEN

OFFSET MODE, BIT 00 OF RMDS,

THE

TEST

SET_

WITH

OFFSET DIRECTION
COMMAND.
THE
CHECKED FOR ZERO AFTER
THAT OFFSET MODE

OFFSET

COMMAND,

EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES
RESETS

SET

ALSO

AND

PROBABLE FAULT:
1.

IF MODULE

TEST 63 RMDC CLEAR OFFSET TEST

:
PURPOSE

TO VERIFY THAT CLEAR OFFSET
CYLINDER ADDRESS 1S WRITTEN.

ACTIVE

WHEN

THE

DESIRED

:
PROCEDURE

THE TEST

OFFSET

MODE

EXECUTES

COMMAND,

VERIFIES THAT OM, BIT 00 OF RMDS IS ZERO.

WRITES

RMDC,

AND

PROBABLE FAULT:

e Y

e Yo o Yo Yo Yo e Yo Yo Yo Yo Yo Yo To o

—.—l-ld_.d-l-l_.-.d—l—i—l-‘d-—.d-fl—b-—ld—l—bd—._‘d-fid-‘—l—'d—lfld—l-‘dd_‘_‘d—l-‘

Yo Yo Yo Yo Loagon

1604

]

DS MODULE

635

IF MODULE

634

636
637
638
639
640

22}
643
644
645

646
647
648
649
650
1651
1652
1653

TEST 64 EBL CLEAR OFFSET TEST
PURPOSE:

RTO VERIFY
OCCURS

THAT

CLEARS

WHEN

HEAD

SWITCHING

PROCEDURE:

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

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-29
1654

1655

PROBABLE FAULT:

1657

1656

1658
1659
1660
1661
1662

1663

1664

}ggz

1667

SEQ 0032

DS MODULE

TEST 65 RUN AND GO TEST
PURPOSE :

VERIFY THAT

°'RUN AND GO''

FLOP SETS DURING READ AND

WRITE

1668

COMMANDS.

}g;?

PROCEDURE :

1672
1673
1674

AND A DATA TRANSFER COMMAND WITH
THE RM80 IS INITIALIZED
GO SET IS WRITTEN IN RMCS1. 'RUN AND GO'’, BIT 14 OF RMMR1 SHOULD BE
ONE FOR EACH DATA COMMAND, THE DEBUG CLOCK IS ENABLED SO THAT GO

1677

PROBABLE FAULT:

1679

(S MODULE

1681

SYNCHRONOUS MASSBUS MODULE

1669

}2;2

1678
1680

1682
1683
1684
1685
1686

DOES NOT RESET BEFORE STATUS IS TESTED.

1687

TEST 66 SET IAE TEST

}ggg

PURPOSE :

1688

}23}

TO VERIFY THAT INVALID ADDRESS ERROR CAN SET.

}ggz

PROCEDURE :

1695
1696
1697
}283

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES
AND EXECUTES A SEARCH COMMAND, VERIFYING THAT ''IAE'’ SFTS. THE
PROCESS IS REPEATED WITH A DIFFERENT COMMAND IF THE IAE DCSS NOT
SET, AND THE TEST FAILS IF IAE CANNOT BE SET.

1700

PROBABLE FAULT:

1702

DS MODULE

1704

IF MODULE

1701

1703

1705
1706
1707
1708
1709

1710

TEST 67 SEARCH, SEEK, READ, WRITE TEST

NN N NN NN SNISNIN NN N

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-30

SEQ@ 0033

PURPOSE:

D e

TO VERIFY THAT THE °''SCH SK R OR W'
IS CORRECT FOR ALL FUNCTION CODES.

MODULE

=D e

PROCEDURE:

e e

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES
AND EXECUTES EACH COMMAND T0 WHERE SET PULSE IS ACTIVE AND
VEKIFIES THE DECODE BY CHECKING "'IAE''.

d e e

PROBABLE FAULT:

IF MODULE

b i

b e

NN N NN NNN NN N NNNNNNNNNNNYNNNNN NN NN NN N N N NN

DECODE ON THE

TEST 70 INVALID TRACK/SECTOR TEST

b e

:
PURPOSE

NOWVIS NN 20000~
= O VN VB WA = OV
~ NN

OO~

NN NN

b e e

h b e

b b i

b b o

b cmd e b b e

e b i D b

TO VERIFY

DETECTED.

THAT

INVALID

TRACK

AND

SECTOR

ADDRESSES

ARE

PROCEDURE:

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

AND

EXECUTES

PROBABLE FAULT:

DS MODULE

TRACK ADDRESS OPTION JUMPER

TEST 71 INVALID CYLINDER TEST

PURPOSE:

TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED.
:
PROCEDURE

THE TEST LOADS THE TEST PATTERN IN RMDC
SEARCH COMMAND, VERIFYING THAT °'IAE'® SETS.
PROBABLE FAULTS:

DS MODULE

AND

EXECUTES

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-31
};28
1770
177
1772
1773

CYLINDER ADDRESS OPTION JUMPER

1774

TEST 72 SET AOE TEST

};;9

PURPOSE :

1775

TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED.

%;;g
};g?

PROCEDURE :

1782
1783
1784
1785
1786

THE TEST LOADS THE ADDRESS OF THE LAST SECTOR IN RMDA AND
RMDC, THEN INITIATES A DATA COMMAND WITH DEBUG CLOCK ENABLED.
END OF BLOCK IS FORCED TO INCREMENT THE SECTOR ADDRESS, AND THE
TEST VERIFIES THAT “'AOE'’ IS SET, IN 18 BIT FORMAT, 16 BIT FORMAT
AND 16 BIT FORMAT WITH ''SSEI’’* SET.

1789

PROBABLE FAULT:

1791

1787
1788
1790

1792
1793
1794
1795
1796

DS MODULE

1797

TEST 73 SET RMR TEST

}ggg

PURPOSE :

1801
1802

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

1798

MAINTENANCE REGISTER IS WRITTEN.

}ggg

PROCEDURE :

1807
1808

COMMAND
THE
"DEBUG CLOCK ENABLE'' IS SET TO INHIBIT
SEQUENCER, THEN A NOP COMMAND AND GO BIT IS WRITTEN IN RMCS1.

AOMNLND NON) b b b b b b b e ek =d O
SN
— OV
NO NN
OO

[o Yo Jo Yo Jo T

b e

b md

b e

To To To To To To 1o 70 To 10 .}

}ggz

WITHOUT STEPPING THE DEBUG CLOCK, THE TEST WRITES RMMR AND RMAS,
WHICH SHOULD NOT SET RMR STATUS. THEN RMDA IS WRITTEN AND RMR
STATUS, BIT 02 OF RMER1, SHOULD BE ONE.
PROBABLE FAULT:
1.

IF MODULE

TEST 74 PGM STATUS CHECK
:
PURPOSE

SEQ 0034

SEQ 0035

CZRNBAO RM80 DSKLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 3-32
AND

BIT

THE

DRIVE

1825

}g%g

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

1828

PROCEDURE:

1831
;g%%

THE TEST REPORTS AN ERROR IF PGM IS ON AND DRQ IS OFF.
IS NOT PREDICTABLE IN THE CASE WHERE DRQ IS ON BECAUSE OF THE
PORT SELECT SWITCH.

1834

PROBABLE FAULT:

1836

1829
1830

1835

1837
1838
1839
1840
1841

}gfi%
1844

1845
1846

IF MODULE

TEST 75 DVA/DPR STATUS CHECK
PURPOSE:

TO VERIFY THAT DEVICE AVAILABLE

1847

STATUS ARE SET.

1849

PROCEDURE:

1848

1850
1851
1852

PROBABLE FAULT:

1855

1856
1857
1858
1859
1860

}gg}

AND

DRIVE

PRESENT

DVA AND DPR ARE TESTED AND BOTH SHOULD BE ON.

1853
1854

STATUS

IF MODULE

TEST 76 PORT REQUEST TEST, PART 1

1863

PURPOSE:

}ggg

TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF
WHEN THE PROGRAM READS RMCS1.

1868

PROCEDURE:

1871
}g;%

IS RELEASED, IT READS RMCS1, THEN READS RMMR & AND VERIFIES THAT
ONE OF THE PORT REQUEST FLOPS IS SET.

1874

PROBABLE FAULT:

1876

IF MODULE

1878

(S MODULE

1864
1865

1875

1877

1879
1880
1881

THE TEST EXECUTES A RELEASE COMMAND, THEN,

MODULE

SET

ASSUMING THE PORT

CZRNBAQ RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-33
1882
1883

}ggg

}gg?

1888

SEQ 0036

TEST 77 FORT REQUEST TEST, PART 2
PURPOSE :

TO VERIFY THAY THE PORT REQUEST FLOPS ON THE IF

MODULE

SET

AND

}ggg

WHEN THE PROGRAM WRITES RMAS.

}gg}

PROCEDURE :

1893
}ggg

THE TEST EXECUTES A RELEASE COMMAND THEN WRITES RMAS
READS RMMR2, VERIFYING THAT ONE OF THE REQUEST FLOPS IS SET.

1896

PROBABLE FAULT:

1898

IF MODULE

1900

(S MODULE

1897

1899

1901
1902
1903
1904
1905

}389
}ggg

1910

TEST 100 PORT REQUEST TEST, PART 3
PURPOSE :

TO VERIFY THAT PORT REQUEST SETS WHEN

1911

RMAS IS WRITTEN.

}3}2

PROCEDURE :

1912

1915

THE PORT REQUEST FLOP IS ON.

1918
1919
1920

PROBABLE FAULT:

IF MODULE

1922

(S MODULE

1923
1924
1925
1926
1927

1928

1929

THE TEST WRITES THE DISK ADDRESS REGISTER AND VERIFIES

}g}g

1921

ANY

EXCEPT

THAT

TEST 101 RELEASE TEST

PURPOSE :

193¢
}3%2

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

}8;2

PROCEDURE :

193

oo~

}gg?

THE PROGRAM SETS REQUEST FLOP BY WRITTING THE RMCS1 REGISTER

THEN, EXECUTE> A RELEASE COMMAND TO RESET THE REQUEST FLOP.

SEQ 0037

v wviwuawvivaoaiw Vi g SN SRS W

CONOWVIESS
NN = oV GO ~NONNVE W —O0

— e

b b

b end el =D ad d ad e

wnd wd D e

d e

d ek

O 00000 O
0000V VOO Nl OOV

CZRNBAO RM80 DSKLS PT1 MACRO Vv04.00 14-JAN-82 16:33:00 PAGE 3-34

959

PROBABLE FAULT:

IF MODULE

TEST 102 WRITE ATA TEST

PURPOSE:

TO VERIFY THAT ATTENTION

ATTENTION SUMMARY REGISTER.

CAN

CLEARED

WRITING

THE

PROCEDURE:

THE PROGRAM RESETS AND SETS UNIT READY WHICH SHOULD CAUSE AN
THEN WRITES THE ATTENTION SUMMARY REGISTER AND
ATTENTION,
VERIFIES THAT ATTENTION IS RESET.

PROBABLE FAULT:
1.

IF MODULE

CS MODULE

TEST 103 RESET ATA BY GO TEST
:
PURPOSE

" OFIO VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE

ERROR

PROCEDURE
:

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

PROBABLE FAULT:

IF MODULE

TEST 104 UNIT READY ATA TEST

PURPOSE:

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 3-35

SEQ 0038

TO VERIFY THAT ONE-ZERO AND

READY SET ATTENTION.

Z2ERO-ONE

TRANSITIONS

UNIT

PROCEDURE:

TRANSITIONS

THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH_

UNIT READY AND VERI FIES THAT ATA SETS WITH EACH TRANSITION.

PROBABLE FAULT:

IF MODULE

TEST 105 ERROR ATA TEST
:
PURPOSE

TO VERIFY THAT ATTENTION SETS WHEN

WHILE GO IS OFF.

COMPOSITE

ERRCR

OCCURS

:
PROCEDURE

THE PROGRAM CLEARS

VERIFIES ATA IS ON.

THE

DEVICE

AND

SETS

ERROR,

THEN

ORNBARLE FAULT:
1.

IF MODULE

TEST 106 REGISTER TRANSFER ATA TEST

PURPOSE:

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

FOR

PROCEDURE:

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

PROBABLE FAULT:

IF MODULE

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-36
2053

gggg

SEQ 0039

TEST 107 P SET ATA TEST

%8%9

PURPOSE :

2058
%823

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

%825

PROCEDURE :

2063
gggé

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

2066

PROBABLE FAULT:

2067
2068
2069
2070
2071
2072
2073
2074
2075

%8;9

IF MODULE

TEST 110 SET WLE TEST

PURPOSE :

%8;3

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

ggg?

PROCEDURE.

2082
gggz

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

2085
%299

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

2064

EXECUTE

WRITE

USING

THE

DATA COMMAND WITHOUT MAINTANCE WRITE PROTECT

5838

SET, SHOULD EXPECT WLE TO BE RESET.

2091
ggg%

EXECUTE READ DATA COMMAND WITH MAINTANCE WRITE PROTECT SET,
SHOULD EXPECT WLE TO BE RESET.
.

2094
5832

EXECUTE READ IN PRESET COMMAND WITH MAINTANCE WRITE PROTECT
SET, SHOULD EXPECT WLE TO BE RESET.

2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
5}8;

PROBABLE FAULT:

2109

€S MODULE

IF MODULE

TEST 111 EXCEPTION TEST

PURPOSE:

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN=82 16:33:00 PAGE 3-37
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
e
et d ik 2 2 b b e mh =D o md b md mh e cd =D e md D d d D b b cd b b e d o d b b D b D D e d d d =D b
o OOOOO‘O‘MU\\AU‘\"U’!\I’U\MMJ\J\‘“b‘“b‘“bb‘“wuuuwwwwwWNNNNNNNNNN—A—D—‘—'—'
o J‘WN-‘OOOVOWJ\WN-‘OOWVO\hbWN—DOOQNO\IIJ\WN—'OOOVOV‘J\WN—OOOQNOMJ\UJN—!O

21
o1

—h -

]

TO VERIFY THAT "REX'' OF RMMR1 IS RESET AFTER THE CONTROLLER IS
INTIALIALIZED AND SET WHEN AN ERROR IS DETECTED DURING A DATA TRANSFER

COMMAND .

PROCEDURE:
THE PROGRAM WILL INITIALIZE THE MASSBUS ('REX'* SHOULD BE CLEAR)
AND THEN EXECUTE THE WRITE DATA COMMAND USING THE MAINTANCE DEBUG CLOCK.
WHILE THE COMMAND IS BEING EXECUTED (RUN AND GO SET), THE PROGRAM CAUSES

ée;§nn" ERROR. BY TRYING TO WRITE THE RMER1 REGISTER' ('REX'' SHOULD BE

PROBABLE FAULT:

€S MODULE

IF MODULE

TEST 112 RECALIBRATE TEST
:
PURPOSE

TO VERIFY THAT “‘OPI'* SETS, IF UNIT READY DROPS DURING RECALIBRATE

COMMAND EXECUTION.

TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS DURING COMMAND

EXECUTION.

TO VERIFY THAT “‘OPI'' SETS, IF ON CYLINDER LATCH DOES NOT CLEAR.

TO VERIFY THAT “‘ATA'* SETS, IF THE DRIVE COMPLETES THE RECALIBRATE

COMMAND.

TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS AFTER EXECUTION

DUPING A WAIT LOOP.

TO VERIFY THE TAG BUS DURING A RECALIBRATE COMMAND.
PROCEDURE:

THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING ZACH COMMAND.

SE$XECUTE RECALIBRATE COMMAND, DROP UNIT READY AND VERIFY THAT ‘OPI*

EXECUTE RECALIBRATE COMMAND, SET DRIVE FAULT (°MDF'’ IN RMMR1) TO
CAUSE COMMAND ABORT AND VERIFY THAT ''GO'‘ IS RESET.
EXECUTE RECALIBRATE COMMAND, VERIFY THAT "OPI‘'' IS SET WHEN ON

CYLINDER LATCH IS NOT CLEARED.

SEQ 0040

EXECUTE RECALIBRATE COMMAND,

SEQ 0041
DROP ON CYLINDER TO RESET LATCH,

THEN SET ON CYLINDER AGAIN AND VERIFY THAT "ATA'' IS SET.

70
;1

EXECUTE RECALIBRATE COMMAND, DROP ON CYLINDER TO RESET LATCH,
LEAVE ON CYLINDER RESET AND VERIFY THAT ''GO'’ IS STILL SET.

030\10&’1&WN—'OOONOU!&WN—'OOQNOMJNWN

b g v d b b D ad ) D b D o i d D et ) ) D e

O OO OO OO0V V0000000
N NNNN

D i) d D D i D D D

PIRIALNL AN AINIAI NI NIALNININI AN A AL NI NI NI NI AN NI N NI PVNINI PININD

CZRNB+D RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-38

EXECUTE RECALIBRATE COYMAND AND VERIFY THAT THE TAG BUS IS CORRECT

ACCORDING A PRE-DETERMINED TABLE.
PROBABLE FAULT:
1.

(S MODULE

TEST 113 SEEK TEST
PURPOSE:

TO VERIFY THAT 'OPI'* SETS, IF UNIT READY DROPS DURING SEEK COMMAND

EXECUTION.

TO VERIFY THAT THE SEEK COMMAND ABORTS DURING COMMAND EXECUTION.
TO VERIFY THAT 'NPI'* SETS, IF ON CYLINDER LATCH DOES NOT CLEAR.

TO VERIFY THAT ‘'ATA’* SETS, IF THE DRIVE COMPLETES THE SEEK COMMAND.

TO VERIFY THAT THE SEEK COMMAND ABORTS AFTER EXECUTION DURING A WAIT

LOOP.

TO VERIFY THE TAG BUS DURING A SEEK COMMAND.

PROCEDURE :

2204
5582

THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND.

(=)

2%01
%gg%

sggg
2209

%g}?

2212

%5}2
2215

EXECUTE SEEK COMMAND, DROP UNIT READY AND VERIFY THAT 'OPI'* IS SET.

COMMAND ABORT AND VERIFY THAT ''GO’' IS RESET.

EXECUTE SEEK COMMAND, SET DRIVE FAULT (°MDF'' IN RMMR1) TO CAUSE

EXECUTE SEEK COMMAND, VERIFY THAT 'OPI'' IS SET WHEN ON CYLINDER

LATCH IS NOT CLEARED.

55}9

EXECUTE SEEK COMMAND, DROP ON CYLINDER TQ RESET LATCH, THEN SET
ON CYLINDER AGAIN AND VERIFY THAT "ATA" IS SET.

2218
5558

EXECUTE SEEK COMMAND, DRUP ON CYLINDER TO RESET LATCH, LEAVE ON
CYLINDER RESET AND VERIFY THAT °''GO'' IS STILL SET.

2221
2222

EXECUTE SEEK COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT
ACCORDING A PRE-DETERMINED TABLE.

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-39
2224

PROBABLE FAULT:

2226

2225

2027
2228
2229
2230
2231

%sgg

2034

gggg

€S MODULE

TEST 114 SEARCH TEST

TO VERIFY THAT "OPI'* SETS. IF UNIT READY DROPS DURING SEARCH COMMAND

EXECUTION.

%%gg

TO VERIFY THAT THE SEARCH COMMAND ABORTS DURING COMMAND EXECUTION.

%%zg

TO VERIFY THAT 'OPI'* SETS, IF ON CYLINDER LATCH DOES NOT CLEAR.

%%2}

TO VERIFY THAT “ATA’* SETS. IF THE DRIVE COMPLETES THE SEARCH COMMAND.

2243
ggzg

TO VERIFY THAT THE SEARCH COMMAND ABORTS AFTER EXECUTION DURING A

WAIT LOOP.

TO VERIFY THAT SEARCH COMMAND ABORTS DURING SECTOR COMPARE LOOP

%%29
%%23

TO VERIFY THE TAG BUS DURING A SEARCH COMMAND.

%ggg

PROCEDURE :

2252
gggz

THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE
MAINTANCE DEBUG CLOCK AND EXPECTS THE RESULTS FOLLOWING EACH COMMAND.

EXECUTE SEARCH COMMAND, DROP UNIT READY AND VERIFY THAT '‘OPI'* IS SET.

%%gg
2257
gggg

EXECUTE SEARCH COMMAND, SET DRIVE FAULT ('MDF'" IN RMMR1) TO CAUSE
COMMAND ABORT AND VERIFY THAT "'GO'' IS RESET.

2260

EXECUTE SEARCH COMMAND, VERIFY THAT "OPI'' IS SET WHEN ON CYLINDER

gggg

LATCH IS NOT CLEARED.

2263
gsog

EXECUTE SEARCH COMMAND, DROP ON CYLINDER TO RESET LATCH, THEN SET
ON CYLINDER AGAIN AND VERIFY THAT “ATA'' IS SET.

2266
gggg

EXECUTE SEARCH COMMAND, DROP ON CYLINDER TO RESET LATCH, LEAVE ON
CYLINDER RESET AND VERIFY THAT ‘%60 IS STILL SET.

(4]

2269

%ggg

2272

2273

555?

2276
2077
2278
2279

EXECUTE SEARCH COMMAND, WHILE IN SECTOR COMPARE LOOP, SET DRIVE

§e¥Lr ("MDFTM IN RMMR1) TO CAUSE COMMAND ABORT AND VERIFY THAT “ATA'" IS

)

EXECUTE SEARCH COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT

ACCORDING A PRE-DETERMINED TABLE.
PROBABLE FAULT:

€S MODULE

SEQ 0042

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 3-40
2281
2282
2283

%%gg
%ggg

2288

TEST 115 SEARCH TIMEOUT TEST
PURPOSE :

TO VERIFY THAT "‘OPI'* SETS, IF 'MSEN'' (SEARCH TIMEOUT ENABLE) IS

%ggg

DROPPED DURING SEARCH COMMAND EXECUTION.

%sg}

PROCEDURE :

2293

EXECUTE SEARCH COMMAND, VERIFY THAT 'OPI'* IS SET WHEN 'MSEN'’ IS

2294

CLEARED.

2296

PROBABLE FAULT:

2298

2295

2297

2299
2300
2301
2302
2303

%g%g
%ggg

€S MODULE

TEST 116 - 120 DATA COMMAND TESTS (1, 2, 3)
PURPOSE :

TO VERIFY THE COMMAND SEQUENCER DURING DATA COMMANDS.

%%%g
%g}?

PROCEDURE :

2312
2313
2314
2315

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

2318

PROBABLE FAULT:

2320

3%}9
2319

2321
2322
2323
2324
2325

“ENABLE SEARCH', BIT 11 OF RMMR1.

(S MODULE

SEQ 0043

SEQ 0044

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-J\N-82 16:33:00 PAGE &

:*LAST REVISION 07-AUG-81

69;

LTITLE

696

CZRNBAOD RMB80 DSKLS PT1

'DIGITAL EQUIPMENT CORPORATION
'COLORADO SPGS., CO. 80919
tPROGRAH BY MIKE LEAVITT

tTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
tPACKAGE (MAINDEC=11=DZQAC=CS5), 18-MAR-81

.SBTTL

697

OPERATIONAL SWITCH SETTINGS
SWITCH

15
14
13
1"
10
9

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

o
ix

)
b)

TNG4
TN32

o
ot

3
2

TN8
TN4

TN1

8
7
4

]

700

LY * T

M
o¥
ot
o
ot
o¥

699

USE

......

o
B

698

.SBTTL

LOOP ON TEST IN SWR<7:0>
TN128
TN16

TN2

BASIC DEFINITIONS

:«INITIAL ADDRESS OF THE STACK POINTER t2x 1100 wne

001100
104000

STACK
ERROR

000011

::CODE FOR HORIZONTAL TAB

177776

= 177776

..PROCESSOR STATUS WORD

000004

000012
000015
000200
177776

177774
177772
177570
177570

000000

000001

000002
000003
000004

SCOPE

= 1100
= EMT

= JOT

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

tHISCEL ANEOUS DEFINITIONS

LF
CR
CRLF
PSW=PS

STKLMT
PIRQ
DSWR
DDISP

= 12
=15
= 200
=
=
=
=

177774
177772
177570
177570

::CODE FOR LINE FEED
..CODE FOR CARRIAGE RETURN
:CODE FOR CARRIAGE RETURN-LINE FEED
::STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
: :HARDWARE SWITCH REGISTER
: :HARDWARE DISPLAY REGISTER

;*GENERAL PURPOSE REGISTER DEF INITIONS
:GENERAL REGISTER
= X0
RO

R2
R3
R4

= X1

= X2
= X3
= %4

..GENERAL REGISTER

: :GENERAL REGISTER
:;GENERAL REGISTER
: sGENERAL REGISTER

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 4-1

SEQ 0045

BASIC DEFINITIONS

ER'' SWITCH DEFINITIONS

O
O T T
|

OOOOOO
bbb ad =d
S VONNOOIWNO
=N NS

Y
Y

M O

s s R

Y
Y

e
s b

o o o GO

e b

[Ny SN TS S

0o @

000040
000020

DATA BIT DEFINITIONS (BITOO TO BIT1S5)

100000

000001

€000

NOMVNSB
NN =O

NOVNOW

tottt
ol ad

WWNNIN)
=~ = 8O
S OHOHOCO
M
OO0O0O0O0O0

Haunnuhin-—

T > S
T T T T

' 'SWITC
SW15
SW14
Sw13
W12
Swi1
SW10
Swo9
Sw08
SWo7
Swoé
SW05

(O I T

PR7

::PRIORITY LEVEL
ssPRIORITY LEVEL
s:PRIORITY LEVEL
s:PRIORITY LEVEL
ssPRIORITY LEVEL
s:PRIORITY LEVEL
:sPRIORITY LEVEL
ssPRIORITY LEVEL

100000

PR6

EVEL DEFINITIONS

(T I T

0€0000
000040
000100
000140
000200
000240
000300
000340

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

B2
OoOOM
OO0

000005

SEQ 0046

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 4-2

000001

701
702
703
704
705

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

Y
Ry
N

LEEEEEESNE

T2=81

D
T

VO OO0
NS VO

17
IT
17
IT
119=81
178=81
117=8]
116=81
175=81
174=8!
173=8]
=2 A

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

mgwmmmwwmmmmm

BASIC DEFINITIONS

I1T1=81701
B8I1T0=8IT00

;*BASIC °*‘CPU'" TRAP VECTOR ADDRESSES
TIME OUT AND OTHER ERRORS
ERRVEC = 4

RESVEC

= 10

..RESERVED AND ILLEGAL INSTRUCTIGNS

BPTVEC
JIOTVEC

= 14
= 20

; sBREAKPOINT TRAP (BPT)
..INPUT/OUTPUT TRAP (]OT) ««SCOPE*+

TBITVEC = 14
TRIVEC = 14

PURVEC

= 24

EMTVEC = 30
TRAPVEC = 34

= 60
TKVEC
= 64
TPVEC
PIRGVEC = 240

.SBTTL

T BIT
;S TRACE TRAP
s ;POWER FAIL

..EHULATOR TRAP (EMT) =+ERRORt+
::""TRAP'' TRAP

s:TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

RMBO REGISTER BIT DEFINITIONS

;*RMCS. CONTROL STATUS REGISTER

706
707
708
709
710
m
712
713

004000
000040
000020
000010
000004
000002
000001
000077

DVA

= BIT11

:DEVICE AVAILABLE-READ ONLY

F3
F2

= BIT04
= 81703

ZFUNCTION CODE
:FUNCTION CODE

= BIT0
= BIT00
= 000077

:FUNCTION CODE
60 BIT
:FUNCTICH CODE MASK

716

0000

NOP

= 0000

718
719

000004
000006

DRVCLR

= 000010

714
715

7217

720
721
722
723
724
725
726
727
728
729

000002

000010
000012
000014
000016
000020
000022
000022
000024
000026
000030

Fé

FO
)
FNCMSK

= BITQS

= BIT02

:FUNCTION CODE

:FUNCTION CODES (BITS 01-05 OF RMCS1)

ILFO2
SEEK
RECAL

RLEASE
OFFSET

RTC
RIP
PAKACK

PACACK

ILF2%
ILF26
SEARCH

NOP_COMMAND

= 000002
= 000004
= 000006

STILLEGAL COMMAND
SEEK COMMAND
*RECALIBRATE COMMAND

= 000012
= 000014

RELEASE COMMAND
ZOFFSET COMMAND

= 000016
= 000020
= 000022

= PAKACK

= 000024
= 000026
= 000030

:DRIVE CLEAR COMMAND
RETURN TO CENTERLINE COMMAND
:READ IN PRESET COMMAND
:PACK ACKNOWLEDGE COMMAND
;ILLEGAL COMMAND
:ILLEGAL COMMAND
ISEARCH COMMAND

SEQ 0047

CZRNBAO RMBO DSKLS PT1 MACRO v04.00 14-JAN-82 16:33:00 PAGE 4-3
RM80 REGISTER BIT DEFINITIONS

733
734

000046
000050
000052

736
737

000056
000040

735

738
739

740
761
762
743
T4

745
746
767
748

749
750
751
752
753
754

755
756
757
758
759
760
761

762
763
764

765
766

767
768
769
770
mn
772
773
7%
775
776
777
778
779
780
781

000054

000062

000064

000066
000070
000072
000074
000076

WCH
ILFS4
ILF56
WD
WH
ILF64
ILF66
RD
RH
ILF74
ILF76
s*RMDA

=
=
=
=
=
=
=
=
=
=
=

000052
000054
000056
000060
000062
000064
000666
000070
000072
000074
000076

:TRACK ADDRESS DEFINITIONS

=BITN

TA8

000020
000010
000004
000002
000001

SA16
SA8
SA4
SA2
SA1

177400
000377

TADMSK

= 177400

J*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP
MOL
WRL

= BIT15
= BIT14
= BIT13
= BIT12
=8I

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

= BIT10
= BIT09
= BI1T08

:SECTOR ADDRESS DEFINITIONS
=
=
=
=
=

BIT04
BIT03
BIT02
8IT0
BIT00

:TRACK & SECTOR MASKS

SADMSK

L8T
PGM
DPR
DRY
vv
oM

TE CHECK DATA COMMAND
TE CHECK HEADER AND DATA

EGAL COMMAND
LEGAL COMMAND
URITE DATA COMMAND

URITE HEADER AgD DATA COMMAND
READ DATA COMMAND
{READ HEADER AND DATA COMMAND
¢ ILLEGAL COMMAND

;ILLEGAL COMMAND

DISK ADDRESS REGISTER

004000
002000
001000
000400

TA4
TA2
TA1

EGAL COMMAND

£00044

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

—r-r

000032
000034
000036
000040
000042

ILF30
ILF32
ILF36
ILF36
ILF40
ILF42
ILF446
ILF46
wCD

mmm

000030

732

= 000377

= BIT10
= BIT09
= BIT08
= BIT07
= BIT06
= BIT00

:TRACK ADDRESS 8.

sTRACK ADDRESS 4
s TRACK ADDRESS 2
:TRACK ADDRESS 1

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

:SECTOR ADDRESS 2
;SECTOR ADDRESS 1

sTRACK ADDRESS MASK

sSECTOR ADDRESS MASK

SATTENTION ACTIVE

;COMPOSITE ERROR

;POSITIONING IN PROGRESS
;MEDIUM ON LINE

;WRITE LOCK

;LAST BLOCK TRANSFERRED
:

06 PROGRAMMABL E

:DRIVE PRESENT
:DRIVE READY
:VOLUMEVALID
;OFFSET HODE ACTIVE

:*RMERT ERROR REGISTER M
100000

DCK

= BIT15

sDATA CHECK ERROR

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE -4

SEQ 0048

RM80 REGISTER BIT DEFINITIONS

782
783
785
786
787
788
789
790
9
792
793
794
795
796

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

798

115760

797
799

800
801
802
803

804

805
806
807

808
809
810
81
812
313
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838

UNS
OPl

= BIT14
= BIT13

WLE

= BITN

AOE

= BIT09

HCE
ECH

= 81107
= BIT06

DTE

IAE
HCRC

= BIT12

= BIT10
= BITO08

WCF

= BIT0S

RMR

= BIT02

FER
PAR

ILR
ILF

= BIT04
= BIT03

= 8IT01
= 8IT00

sDRIVE UNSAFE
:OPERATION INCOMPLETE

:DRIVE TIMING ERROR
;WRITE LOCK ERROR
:INVALID ADDRESS ERROR

;ADDRESS OVERFLOW ERROR

:HEADER CRC ERROR

HEADER COMPARE ERROR
sECC_"HARD'' ERROR

;WRITE CLOCK FAILURE
:FORMAT ERROR
:PARITY ERROR

;REGISTER MODIFICATION REFUSED

sILLEGAL REGISTER
:ILLEGAL FUNCTION

NDTMSK

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

:*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

s*RMLA

LOOK AHEAD REGISTER

002000
001000
000400
000200
000100

SC4
SC3
SC2
SC1
SCo

= 81110
= 81109
= BIT08
= 81107
= 8IT06

sSECTOF
sSECTOR
sSECTOR
sSECTOR
;SECTOR

003700

SCTMSK

= 003700

:SECTOR COUNT MASK

000377

J"NDTMSK'® IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA
sCOMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS
sMASK FOR ATTEMY¥ION BITS

COUNT = 16
COUNT = 8
COUNT = 4
COUNT = 2
COUNT = 1

:*RMMR1 MAINTENANCE REGISTER #1
100000
040000
020000
010000
0040
002000
001000
000400
000200
0001
000040
000010
000004
000002
000001

100000
040000
020000

URITE ONLY BITS

pBCK

= BIT15

;DEBUG CLOCK

DEBL
MSEN
MCLK
MRD
MUR

= BIT13

:DIAGNOSTIC END OF BLOCK

= BITN
= 8IT10
= BIT09

:MAINTENANCE CLOCK
:READ DATA
;UNIT READY

DBEN

MOC
MSER

MDF
MS

MwP
Ml
MSC
OMD

= BIT14

= BIT12

= 81708
= 81107

= BIT06
= BIT0S

= BIT03

= BI7102
= BITO1
= BIT00

;READ ONLY BITS
0cc
= BIT15
RG
= BIT14
= BIT13
EsL

:DEBUG CLOCK ENABLE

:SEARCH TIMEOUT ENABLE

;ON_CYLINDER
:SEEK_ERROR

:DRIVE FAULT

:SECTOR PULSE

;WRITE PROTECT

¢ INDEX PULSE
;SECTOR COMPARE
sDIAGNOSTIC MODE

OCCUPIED
;RUN AND GO
;END OF BLOCK

SEQ 0049

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 4-5
RM80 REGISTER BIT DEFINITIONS

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

= BIT1?
sEXCEPTION
sENABLE SEARCH
= BITN
= BIT10
sLOOKING FOR SYNC
sENABLE CRC OuT
= BIT09
:DATA AREA
= BIT08
= BITQ7
sHEADER AREA
= BIT06
s CONTINUE
= BIT05
sWORD CLOCK
sENABLE ECC OuT
= BIT04
sWRITE DATA BIT
= BIT03
sLAST SECTOR
= BIT02
sLAST SECTOR AND TRACK
= BITO1
= 81100
sDIAGNOSTIC MODE
= DMD!MUR!DBEN'MOC!MSEN

s*RMDT

DRIVE TYPE REGISTER

100000
040000
020000
004000

NSA
TAP
MOH

= BIT1S
= BIT14
= BIT13

sNOT SECTOR ADDRESSED = 0
:TAPE DRIVE = 0
:MOVING HEAD = 1

020026
024026

SNGPRT
DULPRT

= 020026
= 024026

:SINGLE PORT DRIVE TYPE
;DUAL PORT DRIVE TYPE

s*RMOF

OFFSET REGISTER

FMT16
ECI

= BIT12
= BITI

OFD
XNUOF

= 81107
= 160577

839
840
841
842
843
844
845
846
847
848
849
850
851
852
853

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

856
857
858
859
860
861
862
863
864
865
866
867
868

854
855

870
87

872
873
874

875
876
877

012000
004000
002000
001000
000200
160577

001777
176000

882
883
885
886
889

HCI
SSEI

= BITI

= BIT10
= BIT09

sDRIVE REQUEST REQUIRED

216 BIT WORD FORMAT
sECC INHIBIT
sHEADER COMPARE INHIBIT
:SKIP SECTOR ERROR INHIBIT
;OFFSET FORWARD
;UNSED BITS OF RMOF

s*RMDC

DESIRED CYLINDER ADDRESS REGISTCR

CYLMSK
XNUDC

= 001777
= 176000

sMASK FOR CYLINDER ADDRESS
sUNSED BITS OF RMDC

s *RMMR2 MAINTENANCE REGISTER #2

878
879

880
88i

DRQ

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

;READ ONLY BITS

RQA
RQGB
TAG
ST
cC
CH
8809
8808
8807
BB06
BB0S
BBO4
8803
8802
8801

= BIT15
= BIT14
= BIT13
= BIT12
= BITN
= BIT10
= BIT09
= 8IT08
= BIT07
= BIT06
= BIT0S
= BIT04
= BIT03
= BIT02
= BITO1

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

SEQ 0050

CZRNBAO RM80 DSKLS k11 MACRO V04.00 14~JAN-82 16:33:00 PAGE 4-6

RMB0 REGISTER BIT DEFINITIONS
000001

8800

:TAG BUS

= BIT00

NN
NO =2 NN N

b ok = ot b
VIO O O

001527

DOODDODODODD

nuwonnnnnnnon

100000

[

s *RMER? ERROR REGISTER 2

;BAD SECTOR ERROR

;SEEK INCOMPLETE
;OPERATOR PLUG ERROR
:INVALID COMMAND ERROR
:LOSS OF SYSTEM CLOCK
:L0SS OF BIT CLOCK
:DEVICE CHECK
;SKIP SECTOR ERROR
:DATA PARITY ERROR

:UNSED BITS OF RMER2

PROGRAM MNEMONICS

BIT15
BIT14
BIT13

RMER1
RMAS
RMLA

RMMR1
RMDT

RMSN
RMOF
RMDC
RMHR

RMMR2
RMER2
RMEC1
RMEC2

00
D UNWWWNINININD
= = = O

RMDA
RMDS

RMCS1

000000

JMANUFACTURING DETECTED SECTOR ERROR
:USER DETECTED SECTOR ERROR
:SKIP SECTOR FAILURE

RMB0 REGISTER INDEX VALUES

VIVAAAWNE

.SBTTL

OB NOOSHPNOONSNOONS OO

100000
040000
020000

;CONTROL STATUS REGISTER #1

:DISK ADDRESS REGISTER
:DRIVE STATUS REGISTER
:EnROR REGISTER #1

SATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER

;MAINTENANCE REGISTER
:DRIVE TYPE REGISTER

*SERJAL NUMBER REGISTER
;OFFSET REGISTER

:DESIRED CYLINDER REGISTER
;HOLDING REGISTER
:MAINTENANCE REGISTER #2
:ERROR REGISTER #2
;ECC POSITION REGISTER

:ECC_PATTERN REGISTER

;ILLEGAL REGISTER 50

000076

ILRGS50
ILRGS2
ILRG54
ILRG56
ILRG6O
ILRG62
ILRG64
ILRG66
ILRG70
ILRG?72
ILRG74
ILRG76

000077

IDXMSK

=77

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

LLEGAL REGISTER 52
LEGAL REGISTER 54
LEGAL REGISTER 56
LEGAL REGISTER 60
LEGAL REGISTER 62
LEGAL REGISTER 64
LEGAL REGISTER 66
LEGAL REGISTER 70
LEGAL REGISTER 72
LEGAL REGISTER 74
LEGAL REGISTER 76

sMASK FOR REGISTER INDEX NUMBER

SEQ 0051

PT1 MACRO v04.00 14~JAN-82 16:33:00 PAGE 4-7
CZRNBAOQ RM80 DSKLS

RH CONTROLLER REGISTER BIT DEF IN ITIONS

:*RMCS? CONTROL STATUS REGISTER M

100000
040000
020000
002000

000100

TRE
MCPE
PSEL

Al17
A16
RDY
I1E

= BIT1S

= BIT14
= BIT13
= BIT10

= BIT09
= BIT08
= BITO07
= BIT06

sSPECIAL CONDITION-READ ONLY

: TRANSFER ERROR
:MASSBUS CONTROL BUS PARITY ERROR~READ ONLY
;PORT B SELECT
:ADDRESS EXTENSION
;ADDRESS EXTENSION

:READY-READ ONLY
: INTERRUPT ENABLE

:*RMCS?2 kH CONTROL STATUS REGISTER #2

100000

000001

DLY
WCE
UPE
NED

NEM
PGE
MXF
MDPE
OR
IR
CLR
PAT
BAI
u2
u1
uo

= BIT1S
= BIT14
= BIT13
= BIT12

= BIT11
= BIT10
= BIT09
= BIT08
= BIT07
= BI706
= BIT0S
= BIT04
= BJT03
= BIT02
= BITO
= BIT00

sDATA 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
:OUTPUT READY-READ ONLY
s INPUT READY=READ ONLY

:CONTROLLER CLEAR
:PARITY TEST

:UNIBUS ADDRESS INCREMENT INHIBIT

SUNIT SELECT

;UNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK
000007

UNTMSK

= 7

SUNIT SELECT MASK

:*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000

000001

000000

000052

;ADDRESS PARITY ERROR
:DATA PARITY ERROR HIGH WORD

APE
DPEHI
DPELO
WCEH]I
WCELO
DBL
1E
IPCK3
IPCK2
1PCK1
IPCKO

= BIT1S5
= BIT14
= BIT13
= BIT12
= BITI
= BIT10
= BIT06
= BIT03
= BIT0?2
= BITO1
= BIT00

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

RMCS
RMW{
RMBA
RMCS2
RMDB
RMBAE
RMCS3

= Q0
= 02
= 04
=10
= 22
= 50
= 52

:DATA PARITY ERROR LOW WORD
:WRITE CHECK ERROR HIGH WORD
;WRITE CHECK ERROR LOW WCRD

:DOUBLE WORD TRANSFER
; INTERRUPT ENABLE
:INVERT PARITY CHECK
;: INVERT PARITY CHECK
: INVERT PARITY CHECK

: INVERT PARITY CHECK

sCONTROL, STATUS REGISTER M1

;WORD COUNT REGISTER

;BUS_ADDRESS REGISTER

sCONTROL, STATUS REGISTER #2

:DATA BUFFER
:BUS ADDRESS EXTENSION

:CONTROL, STATUS REGISTER #3

CZRNBAQ RMBO DSKLS P71 MACRO V04.00 14-JAN-82 16:33:00 PAGE 4-8

SEQ@ 0052

RH CONTROLLER REGISTER INDEX VALUES

994
995

339

176700

120254

ABASE

AVECT1

= 176700

= 120254

sUNIBUS ADDRESS

sUNIBUS VECTOR ADDRESS AND PRIORITY

TRAP CATCHER

.SBTTL

000000

000174
000176

;*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A °',+2,HALT''
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATION19‘C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG: .WORD
SWREG:

.SBTTL
000200

2
3 000204

TRAP CATCHER

.WORD

::SOF TWARE DISPLAY REGISTER

S SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000137

004652

JMP

SASTART

::JUMP TO STARTING ADDRESS OF PROGRAM

000137

004642

JMP

SNSTARTI

;CHANGE RH/RM BUS ADDRESS

.SBTTL

ACT11 HOOKS

L LA AL L
L A
T
L

$SZZC=.

sSAVE PC

000046

SEggAD

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

000052

'WORD

b
b

WA
=

000210

;HOOKS REGUIRED BY ACTIN

"=$SVPC

000210
001100

.=1100
.SBTTL

::2)SET LOC.52 TO ZERO

*:“RESTORE PC

APT PARAMETER BLOCK

N
ARAOCONS
NRRA
AANANRANAGARNAA
NENR
AR AN RRAANRNARARNRRR
SRR RNRRNANN

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

:;tttti.tQttttt'.lttt"t"""t.ttttt.tttt.t't.Qttltfitttfittttttlfi

000024

000044

001100
000024
000200
000044
001100
001100

LEX=,

::SAVE CURRENT LOCATION

200

:2FOR APT START UP

.=24

=44

:2SET POWER FAIL TO POINT TO START OF PROGRAM
:2POINT TO APT INDIRECT ADDRESS PNTR.

$SAPTHDR ::POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER
.=.8X

::IitttttttttttQttttttt"tttt.tttttfi!tttfQtttt.'i.'tttt"t'.t'ttt

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DJAGNOSTIC
JINTERFACE SPEC.

000000
001222
000024
000024
000024
000042
001114

$SAPTHD:

$HIBTS: .WORD

;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

:sRUN TIM OF LONGEST TEST
;sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

$MBADR: .WORD

SMAIL

$SPASTM:
SUNITM:

20
52

$TSTM:

TAGADR=.

.WORD

.WORD
.WORD

.WORD

;:ADDRESS OF APT MAILBOX (BITS 0-15)

::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

TEND-SMAIL/2

;:LENGTH MAILBOX-ETABLE (WORDS)

(a2l
an

SEQ 0053

CZRNBAQ RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 5

SEQ 0054

CZRNBAO RHgO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 6
COMMON TAG

.SBTTL

COMMON TAGS

:'ttttttttttttttttfit't't'tt"tt.'tQt.tQttQQ'Q.Q.Q.........'.'QQ..

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

:*USED IN THE PROGRAM.
001114
001114
001116
001117
001120
001122
001124
001126
001130
001131
001132
001134
001136
001140
001142
001144
001146
001150
001151
001152
001154
001156
001160
001162
001164
001166
001170
001171
001172
001173
001174
001176
001200
001202
001204
001206
001210
001212
001216
001217
001220

001114

$CMTAG

000000
000

.=TAGADR

WORD

::START OF COMMON TAGS

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.ggsg

0
0
O
O
O
O
O
1
O
O
O
0
O
8

::CONTAINS THE TEST NUMBER
. sCONTAINS ERROR FLAG
:2CONTAINS SUBTEST ITERATION COUNT
::CONTAINS SCOPE LOOP ADDRESS
:2CONTAINS SCOPE RETURN FOR ERRORS
:2CONTAINS TOTAL ERRORS DETECTED
::CONTAINS ITEM CONTROL BYTE
::CONTAINS MAX. ERRORS PER TEST
:sCONTAINS PC OF LAST ERROR INSTRUCTION
;3CONTAINS ADDRESS OF 'GOOD' DATA
::CONTAINS ADDRESS OF °'BAD' DATA
;:CONTAINS °*GOOD' DATA
:2CONTAINS °'BAD' DATA
: JRESERVED=-=NOT TO BE USED

$SAUTOB: .BYTE
$INTAG: .esgg

0
8

::AUTOMATIC MODE INDICATOR
;2 INTERRUPT MODE INDICATOR

WORD
SWR:
DISPLAY: .WORD
177560
$TKS:
177562
$TKB:
77564
$TPS:
177566
$TPB:
.BYTE
$NULL:
.BYTE
SFILLS:

DSWR
DDISP

: :ADDRESS OF SWITCH REGISTER
:;ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
::TTY KBD BUFFER
;3TTY PRINTER STATUS REG. ADDRESS
2;TTY PRINTER BUFFER REG. ADDRESS
2:CONTAINS NULL CHARACTER FOR FILLS
2;CONTAINS # OF FILLER CHARACTERS REQUIRED

$TMPO:
$TMP1:
$TMP2:
$TMP3:
$TMP4:
S$TIMES:

O
O
O
O
O

$STSTNM:
$ERFLG:
$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
$SERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

$SFILLC: .BYTE
$TPFLG: .BYTE

377

000

377

.WORD
.WORD
.WORD
.WORD
.WORD
0
SESCAPE:0
.ASCIZ
$BELL:
.ASCII
$QUES:
.ASCII
$CRLF:
$SLF:
LASCIZ

O
2

¢ INSERT FILL CHARS. AFTER A ‘LINE FEED'’
::"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

12
0

:JUSER DEFINED
:2USER DEF INED
::USER DEF INED
:JUSER DEFINED
:2USER DEF INED
ssMAX. NUMBER OF ITERATIONS
;sESCAPE ON_ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
:2QUESTION MARK
/7%
:;CARRIAGE RETURN
<15
<12
J:LINE FEED

':t'lttttfitttttt*ttttttttttt'tlttttfittttttttttttllttttttfitfit'tttt

"SBTTL

APT MAILBOX-ETABLE

c o ARNARRRRRRARANAAARA
AN AR AR R ARARN RN RARRARAAANAAARARARRENRAANNES

001222
001222
001224
001226

000000
000000
000000

.EVEN
$MAIL :
$MSGTY: .WORD
SFATAL: .WORD
S$TESTN: .WORD

AMSGTY
AFATAL
ATESTN

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

CZRNBAQ RM80 DSKLS PT1 MACRO v04.00 14-JAN-82 16:33:00 PAGE 6-1

SEQ@ 0055

APT MAILBOX-ETABLE

001230
001232
001234
001236
001240
001242

001242
001243
001244
001246
001250

000000
000000
000000
000000
000000
000
000
000000
000000
000000

$PASS:
$DEVCT:
SUNIT:
$SMSGAD:
$MSGLG:

SETABLE:

$SENV:
SENVM:
$SWREG:
$USWR:
$CPUOP:
b

.WORD
.WORD
.WORD
.WORD
.WORD

APASS
ADEV(CT
AUNIT
AMSGAD
AMSGLG

: :PASS COUNT
::DEVICE COUNT
::1/0 UNIT NUMBER
: sMESSAGE ADDRESS
s sMESSAGE LENGTH

.BYTE
.BYTE
.WORD
.WORD
.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

: sENVIRONMENT BYTE
: :ENVIRONMENT MODE BITS
:sAPT SWITCH REGISTER
::USER SWITCHES
::CPU TYPE,OPTIONS

::APT ENVIRONMENT TABLE

BITS 15-11=CPU TYPE

11/704=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10

001252

001253

000

$MAMS1: .BYTE

SMTYP1: .BYTE

AMAMSI

AMTYP1

. &

e
;t

* %

00125¢

001256

001257

001260

001262
001263
001264

001266
001267
001270
001272
001274

001276
001300

001302
001304
001306
001310
001312
001314
001316
001320
001322
001324
001326

000000

$MADR1: .WORD

AMADRI1

000

$MAMS2: .BYTE

AMAMS?

000600

SMADR2: .WORD

AMADR?

000

000
000
000000

000
000
000000
120254
000000
176700
000000
000000
000000
000000
000000
000000
000000
000000
00€000
000000
000000

. %

SMTYP2: .BYTE

SMAMS3: BYTE
SMTYP3: .BYTE
SMADR3: .WORD

SMAMSL:
SMTYP4:
SMADRG:
$VECT1:
SVECT2:
SE:
$SDEVM:
$CDOW1:
$CDW2:
$DOW0:
$ODW1:
$DDW2:
$DDW3:
$DDW4:
$DDWS:
$ODW6:
$DDW7:
SETEND

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

AMTYP?

AMAMS3
AMTYP3
AMADR3
AMAMSS
AMTYP4
AMADR
AVECTI
AVECT2
ABASE
ADEVM
ACDW1
ACDW2
ADDWO
ADDW1
ADDW2
ADDW3
ADDW&
ADDWS
ADDW6
ADDW?

Bl T 10=REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
8l T
Bl T 8=MEMORY MANAGEMENT

HIGH ADDRESS.M.S. BYTE

hé

MEM. TYPE.,BLK#

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
SO0 NSEC M0S=003

::HIGH ADDRESS,BLK#
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'® ABOVE
::HIGH ADDRESS.M.S. BYTE
: :MEM.TYPE ,BLKN?
::MEM.LAST ADDRESS.BLK#?2
::HIGH ADDRESS,M.S.BYTE

s sMEM.TYPE ,BLKA3
::MEM.LAST ADDRESS.BLK#3
::HIGH ADDRESS .M.S.BYTE
2 :MEM.TYPE ,BLKAS
::MEM.LAST ADDRESS,BLK#G
:: INTERRUPT VECTORA1,BUS PRIORITY#!
:: INTERRUPT VECTORA28US PRIORITYA?
::BASE ADDRESS OF EQUIPMENT UNDER TEST
:;DEVICE MAP

:;CONTROLLER DESCRIPTION WORDA1
:;CONTROLLER DESCRIPTION WORDA?
DESCRIPTOR WORDA(Q
s
DESCRIPTOR WORD#1
DESCRIPTOR WORD#

DESCRIPTOR WORDAS

DESCRIPTOR WORDA4
DESCRIPTOR WORDAS
DESCRIPTOR WORDA6
DESCRIPTOR WORDA7

)

SEQ@ 0056

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 7

b
ol b

800
[a]=]

WIWNW
NN
OO

USER DEFINED TAGS

001334
001335

000000
000000
000000
000
015

LSBTTL

USER DEFINED TAGS

AUTSIZ:
CHGADR:
XXDP:

.WORD
.WORD
.WORD

.BYTE

LSTRK:

0
0
0
13.

;ALLOW AUTO DRIVE SIZING = 0, USE MANUALLY INPUT DRIVES = 1
: CHANGE RH/RM BUS ADDRESS = -1, NO CHANGE = 0
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH

: THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

:'XXDP' DEVICE CODE FOR THE RM8O.
;LO BYTE = 0

sHI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT
;UNDER TEST. RM80 = 13.

sTHE REGISTER INPUT BUFFER IS USED FOR

;STORING DRIVE STATUS

001336

GETBUF:

001336

RMCS11:

0
0
000000
000000

WORD
.WORD
.WORD
.WORD
RMCS2I: .WORD
RMDSI:
.WORD
RMER1]: -WORD
RMAS]:
-WORD
:
.WORD
RMLAL
.WORD
RMCBI:
RMMR1]: -WORD
RMDTI:
.WORD
:
RMSN]
.WORD
]:
RMOF
-WORD
RMDCI:
-WORD
:
RMHR]
-WORD
: -WORD
RMMR?]
RMERZ2]: .WORD
RMEC1I: .WORD
RMEC2]: .WORD

:
RMWCI
:
RMBA]
:
RMDA]I

:
:

.WORD
.WORD

(elelelelelalelalalelalolalalalelalelelela
le

000000

;REGISTER INPUT BUFFER

:CONTROL, STATUS REGISTER #1

‘WORD COUNT REGISTER
‘BUS ADDRESS REGISTER
*DISK ADDRESS REGISTER

*CONTROL,

STATUS REGISTER #2

‘DRIVE STATUS REGISTER

*ERROR REGISTER #1
TATTENTION SUMMARY REGISTER
:LOOK AMEAD REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER #1
:DRIVE TYPE REGISTER

sSERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2

;ERROR REGISTER #2
sECC POSITION REGISTER

sECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER

:CONTROL, STATUS REGISTER #3

sTHE REGISTER OUTPUT BUFFER 1S USED FOR
JASSEMBLING DATA GOING TO REGISTER

RMW(CO:
RMBAO:
RMDAQ:

RM(S20:

RMDSO:

—

RMER10:

000000

RMASO:
RMLAQ:
RMDBO:

RMMR10:

WORD

.WORD
-WORD
.WORD

(= lelololelelolelelala]

:REGISTER OUTPUT BUFFER

RMCS10:

£8332333388
S aANRRoEE
gl\NOOJ\NOObN

PUTBUF:

;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
1LOOK AHEAD REGISTER
:DATA B UFFER

sMAINTENANCE REGISTER M

CZRNBAO RMB0 DSKLS PT1 MACRO v04.00 14-JAN-82 16:33:00 PAGE 7-1

SEQ 0057

001440

001442

000000

001464

RMDTO:
RMSNO:
RMOFO:
RMDCO:
RMHRO:

.WORD

.WORD
-WORD
-WORD
.WORD
RMMR20: .WORD
RMERZ20: .WORD
RMEC10: .WORD
RMEC20: .WORD
RMBAEO: .WORD
RM(CS30: .WORD

[elelelelelalalelalels)

USER DEFINED TAGS

:DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER

;OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:HOLDINS REGISTER

:MAINTENANCE REGISTER #2
:ERROR REGISTER #2

:ECC POSITION REGISTER
;ECC PATTERN REGISTER
:BUS ADDRESS EXTENSION REGISTER

:CONTROL, STATUS REGISTER #3

;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
;THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
:FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
ézDTgE }QQLEUEA ZERO WORD IS A BLANK AND REPRESENTS THE
000000

TSTQUE:

.WORD
.BLKW
.WORD

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

$LPCSR:
$LP(CSB:
$SLPVEC:

.WORD
.WORD
-WORD
.WORD
«WORD
.WORD

;KW11-P CONTROL ¢+ STATUS REGISTER

000000
172540
172542

SLLCSR:
SLLVEC:
$PSW:
TIME:

001540

000000

WATCH:
CLOCK:
STOPCL:

+WORD
.WORD
-WORD
.WORD
-WORD
.WORD

;PUT TAGS HERE

;KW11-P COUNT SET BUFFER
:KW11-P INTERRUPT VECTOR

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

:STORAGE
:STIRAGE
;STORAGE
;ADDRESS
:ADDRESS

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

SEQ 0058

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8

ERROR POINTER TABLE

.SBTTL

cRROR POINTER TABLE

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

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

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

: 001542

$ERRTB:

2
3

;ERROR
001542
001544
001546
001550

001552
001554
001556
001560

CANNOT CLEAR NED STATUS

CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED

001562
001564
001566
001570

EMT?
EHT?
EDT2
EFT2

064404
072266
072364

072412

oo~

;;POINTS TO THE DATA FORMAT

:ERROR

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

EMT1
EHT1
EDTY
EFT

064376
072262
072362
072610

:;POINTS TO THE ERROR MESSAGE

LR
N N J

LA TR TR X3

:*NOTE1:
:*NOTEZ2:

:ERROR

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

sERROR

CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT

:ERROR

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

;ERROR

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

064432

000000
000000

064474

072414

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-1

ERROR POINTER TABLE

EMT
EnT

EDTS
EFTS
:ERROR
001622
001624
001626
001630

sERROR
001642
001644
001646

001650
29
30
3

32
33
34

35
36
37

38
39

EMT13

064636
000000

sERROR
001672
001674
001676
001700

EMT12

064620
000000
000000
000000
sERROR

001662
001664
001666
001670

EMT11

064602
000000
000000
000000

;ERROR
001652
001654
001656
001660

EMT10

064564
000000
000000
000000

CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS

OF DEVICE REGISTERS

EMT?7
EHT?7
EDTS
EFTS

064542
072276
072366
072614
:ERROR

001632
001634
001636
001640

EMT14

064654
000000
000000
000000

:ERROR

SEQ 0059

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-2

ERROR POINTER TABLE
0

001702
001704
001706
001710

064672
000000
000000
000000

;ERROR

064710
000000

001722
001724
001726
001730
&7

CANT WRITE ZEROS RMDA

sERROR

001732
001734
001736
0061740

064744

EMT20

072410

EFT

§1

:ERROR

BIT INTERFERENCE IN WRITING/READING RMDA

;ERROR

CANT WRITE ZEROS RMCS1

;ERROR

CANT WRITE ONES RMCS1

072410

00 ~NO

001762
001764
001766
001770

CANT WRITE ONES RMDA

065004

001752
001754
001756
001700

:ERROR
064764
072262
072362
072410

(V.
I V)

001742
001744
001746
001750

59
60
61

EMT17

064726
000000
000000
000000

065020

072410

SEQ 0060

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-3

62
63
64

sERROR

BIT INTERFERENCE IN WRITING/READING RM(CS1

;ERROR

MBA CLR L IS STUCK ACTIVE

072610

68
69
70

002002

002004
002006
002010

b )

001772
001774
001776
002000

—lh

mmmm

ERROR POINTER TABLE

002012
002014
002016
002020

065074
000000
000000
000000

;ERROR

002022
002024
002026
002030

CANNOT CLEAR RMER1-PAR,RMR,ILF,ILR

EMT27
EHT1
EDT]
EFT1

065126
072262
072362
072410
:ERROR

CANNOT CLEAR RMER1-D(CK, IAE,AOE,HCR(,HCE ECH, WCF FER

EMT30
EHT1
EDT1
EFT1
sERROR

CANNOT CLEAR RMER1-0PI,DTE

EMT31
EHTI
EDT
EFT1

sERROR

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

EMT3¢
EHTI
EDT
EFT

JERROR
002062

065204

EMT33

H,
WCF ,FER
CANNOT WRITE O IN RMER1-DCK,IAE,AQOE,HCRC,HCE,EC

SEQ 0061

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-4
HT
DT
FT

mmm

002064
002066
002070

072262
072362
072410
sERROR

b
b —=d

ERROR POINTER TABLE

CANNOT WRITE O IN RMER1-OPI,DTE

EMT34
EHT]
EDT1
EFT1

072410

:ERROR

CANNOT WRITE 1 IN RMER1

EMT35
EHT1
EDTI
EFT1

065240
072410
;ERROR

CANNOT WRITE SHIFTING 1 IN RMER1

:ERROR

CANNOT WRITE ZEROS IN RMDC

:ERROR

CANNOT WRITE ONES IN RMDC

<ERROR

BIT INTERFERENCE IN WRITING/READING RMDC

;ERROR

CANNOT WRITE 1°'S IN RMDC OR RMDA

065254
072610

065270

072410

002152
002154

065340
000000

SEQ 0062

C2
ER

CZRNBAQO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-5

ERROR POINTER TABLE
002156
002160
104
105
106

107
108
109

0
0

000000
000000

;ERROR
002162
002164
002166
002170

EHT1
EDT1
EFT1

072410

¢ERROR

CANNOT CLEAR RMERZ2-LBC,DPE

CANNOT WRITE ZEROS RMERZ-OPE,IVC,LSC

EMT47
EHTI
EDT
EFT1

065442
072410

sERROR

CANNOT WRITE ZEROS RMER2-LBC,DPE

EMTS50
EHT1
EDTY
EFT1

065464

072410

sERROR

072362

CANNOT CLEAR RMER2-OPE,IVC,LSC

EFT1

072410

065506

EMT46
EHT1
EDT1

065426

N72262

UNUSED BITS OF RMER2 NOT ZERO

EMT4S5
EHT1
EDT1
EFT1

065412

:ERROR

002242
002244
002246

EMT4L4
EHTI
EDT1
EFT1

065376

:ERROR
002202
002204
002206
002210

CANNOT CLEAR RMCS1-FUNCTION CODE

EMT43

065364

:ERROR
002172
0021774
002176
002200

EMT51
EHT1
EDT?

CANNOT WRITE ONES RMER2

SEQ 0063

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-6

ERRCR POINTER TABLE

EFT

~NONDN

072410

ronon

b
D anbd

002250

:ERROR

EHT1
EDTY
EFT1

128
129
130

:ERROR

3
3
3

sERROR
002272
002274
002276
002300

137
138
139

UNUSED BITS OF RMOF ARE NOT ZERO

EMTS3
EHT1
EDTY
EFT1

072410

564

CANNOT WRITE ZEROS RMOF

EMT54
EHTT
EDT1
EFT1

065556

131
132
133

CANNOT WRITE SHIFTING ONES RMER2

EMT52

002252
002254
002256
002260

002270

;ERROR

CANNOT WRITE ONES RMOF

sERROR

CANNOT WRITE SHIFTING ONES RMOF

sERROR

DEVICE IS NOT AN RM80

:ERROR

DEVICE AVAILABLE IS NOT SET

002302
002304
002306
002310

802312
072410

065632

002340

SEQ 0064

CZRNBAQ RMB0 DSKLS PT1 MACRO v04.00 14-JAN-82 16:33:00 PAGE 8-7

A
A
4

CO~NO~

ERROR POINTER TABLE

;ERROR
002342
002344
002346
002350

CANNOT WRITE ZEROS RMHR

EMT61

065662
072262
072362
072410

EFT1
:ERROR

CANNOT WRITE ONES RMHR

sERROR

CANNOT WRITE SHIFTING ONES RMHR

:ERROR

CANNOT CLEAR ILR STATUS

<ERROR

ILR ERROR SHOULD NOT BE SET

¢ERROR

ILR ERROR SHOULD BE SET

:ERROR

CANNOT CLEAR PAR STATUS-DPE IS RESET

065702

072410

002362
002364
002366
002370

002372
002374
002376
002400

065722
072410

065736
072410

065750

002430

072410

SEQ 0065

€2
ER

ERROR POINTER TABLE
167
168
169

4
W

;ERROR

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

:ERROR

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

:ERROK

"MCPE'* ERROR SHOULD NOT BE SET

072422

NN~

CANNOT CLEAR PAR AND DPE STATUS

002432
002434
002436
002440

002442
002444
002446
002450

002452

066062
072422

SNNN

0o ~NO~

002454
002456
002460
)
b b

:ERROR

002462

066106

EFT7

-0
0

—

0000~

002470

sERROR

—b
b b

©o
00 0o
~JOnon

(o Jo o

]

UNEXPECTED BUS TIMEOUT

EMT74
EHT74
EDT74
EFT74

002472
002474
002476
002500
b
b b

188

;ERROR

CANT CLEAR 'DMD'’

EMT75
EHTI
EDT
EFTY

002502

:ERROR

EMT76
EHT]
EDTI
EFT

CANT WRITE ZERO *DMD'’

SEQ 0066

mao

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-8

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-9

ERROR POINTER TAS3LE

:ERROR

CANT WRITE ONE 'DMD*’

EMT?7
EHTT
EOT1
EFT1

:ERROR

DMD SET BY WRONG BIT

:ERROR

CANT CLEAR 'MOL'’ IN DIAGNOSTIC MODE

sERROR

CANT SET 'MOL'' IN DIAGNOSTIC MODE

sERROR

"MUR'" SET BY WRONG BIT

002532

002534
002536
002540

002542
002544
002546
002550
197
198
199

002552

002560

072410

002562

066260

002570

072420

EFT65

;ERROR
002572
002574
002576
002600

104

IN DIAGNOSTIC MODE
CANT RESET "WRL''

EMT104

066304
072410

<ERROR

CANT SET 'WRL'' IN DIAGNOSTIC MODE

:ERROR

"MWP'’ SET BY WRONG BIT

066324
072410

SEQ 0067

CZRNBAQ RM80 DSKLS PT1 MACRO v04.00 14-JAN-82 16:33:00 PAGE 8-10

ERROR POINTER TABLE
002612
002614
002616
002620

HWr

— b

218
219
220

002632

066410

002640

072410

002642
002644
002646
002650

002652
002654
002656
002660

002662

CANT RESET 'DVC'' USING *MDVC'’

JERROR

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

¢ERROR

*PvC’’ IS SET BUT "UNS'' IS NOT SET

:ERROR

CANT SET °*DVC'' USING MDVC''

:ERROR

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

<ERROR

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

sERROR

"MDF'* IS SET BY WRONG BIT

072410

~NOo v

002622
002624
002626
002630

:ERROR

066432
072410

066452
072410

066472

002670

002672
002674
002676
002700
230
231
232

SEQ 0068

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-11

ERROR POINTER TABLE
002702
002704
002706
002710

002712
002714
002716
002720

002722

002730

002732
002734
002736
002740

002742
002744
002746
002750

002752
002754
002756
002760

002762
002764
002766
002770

066540
072426

sERROR

CANT RESET °''SKI'' USING ‘MSER'’

:ERROR

CANT SET ''SKI'* USING 'MSER'’

:ERROR

*'SKI** SET BY WRONG BIT

:ERROR

CANT RESET 'PIP'‘ USING ‘MOC"'’

sERROR

CANT SET 'PIP'* USING 'MOC’’

:ERROR

‘MOC'* SET BY WRONG BIT

066564

072410

066604
072262
072362
072410

066624
072322
072400
072426

066650

072410

066670
072410

066710
072426

:ERROR

002772

066734

124

EMT124

CANT CLCAR °‘EBL''

SEQ 0069

CZRNBAO RMB0 DSKLS PT1 MACRO VO04.00 14-JAN-82 16:33:00 PAGE 8-12

ERROR POINTER TABLE

002774
002776
003000

EHT1
EDTY
EFT1

072262
072362
072410

254

:ERROR

322
003002
003004
003006
003010
257

:ERROR
003012
003014
003016
003020

260

:ERROR
003022
003024
003026
003030

263

:ERROR
003032
003034
003036
003040

266

:ERROR
003042
003044
003046
003050

269

:ERROR
003052
0030546
003056
003060

272

:ERROR
003062
003064

067110
072332

130

*0S'* NOT CORRECT ACCORDING TO RMDA

131

*LST''* NOT CORRECT ACCORDING TO RMDA

132

CANNOT INCREMENT SECTOR ADDRESS USING °'DEBL'’

EMT132
EHT132
EDT132
EFT132

707
072332
072404
072432

5;2

"DEBL'* SET BY WRONG BIT

EMT131
EHT130
EDT130
EFT130

067052
072326
072402
072430

%;g

127

EMT130
ENT130
EDT130
EFT130

067034
072326
072402
072430

%gg

CANT SET 'EBL'' USING °'DEBL"’

EMT127
EHT11S
EDT11S
EFT11S

067010
(72322
072400
072426

%gg

126
EMT126
EMT1
EDT1
EFT?

066772
072262
072362
072410

%g}

"EBL'' NOT ZERO IN DIAGNOSTIC MODE

EMT12S
EMT1
EDTY
EFT1

066752
072262
072362
072410

%gg

125

133
EMT133
EHT132

CANNOT INCREMENT TRACKX ADDRESS USING °‘DEBL'’

SEQ 0070

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-13

ERROR POINTER TABLE
003066
003070

275
276
277

072404
072432

UNUSED BITS OF RMDC NOT ZERO

:ERROR
003072
003074
003C76
003100

278
279
280

072410

sERROR

135

*'VV'' NOT RESET BY UNIT READY

EMT135
EHTI
EDT1
EFT1

067144

;ERROR

136

SERIAL NUMBER IS INCONSISTENT

EMT136
EHTI
EDT1
EFT1

072410

;ERROR

137

CANT CLEAR °'GO’' BIT

EMT137
EHTI
EDT1
EFT1

067174
072262
072362
072410

:ERROR

CANT INCREMENT CYLINDER USING 'DEBL'

;ERROR

CANT RESET "LBT'’ BY WRITING RMDA

sERROR

CANT SET "LBT'' USING 'DEBL"

067212

072432

067232
072432

003152
003154
003156

067246

072336
072404

SEQ 0071

CZRNBAQ RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-14

ERROR POINTER TABLE

003160
296
297
298

EFT132

072432

;ERROR

EDTY
EFT1

072410

;ERROR

00317¢
003174
003176
003200

003202
003204
003206
003210

CANT READ ZERO FROM COMP ERROR

EMT143
EHT]

003162
003170

143

144

CANT SET COMP ERROR WITH RMER1 OR RMERC

EMT144
EHT

067300
072410

:ERROR

COMP ERROR DID NOT SET

JERROR

CANT SET *'GO'* BIT

JERROR

CANT READ A ONE FROM °‘TST*'

067322
072430

067344
072410

W)
=

W NN

003230

003232

EMT147
EHT

067362
072262
072362
072410

EDT1

EFT1
;ERROR

“'TST'* IS INCORRECT FOR THE FUNCTION CODE

sERROR

CANT SET THE ''60°'* BIT

067374

[« JY,
7 0

pubPuuiiy

003240

003242
003244
003246
003250

SEQ 0072

CZRNBAOQ RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-15
1

ele BN

WWNW

ERROR POINTER TABLE

320
321
2

323
324
325

sERROR

003272
003274
003276
003300

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

EMT15?

003252
003254
003256
003260

003262
003264
003266
003270

152

EFT

;ERROR

"'GO’* RESET EARLY

:ERROR

‘GO’ DIDNT RESET ON TIME

sERROR

CANT CLEAR CONTINUE

:ERROR

CONTINUE IS INCORRECT FOR THE FUNCTION CODE

JERROR

CANT CLEAR IVC

<ERROR

IvC IS INCORRECT FOR THE FUNCTION CODE

072410

067464
072410

067504
072410

067522

003320
332
333
334

003322
003324
003326
003330

072426

067544
072410

335

336
337

003332
003334
003336
003340

067562

072426

SEQ 0073

CZRNBAO RMBO DSKLS PT1 MACRO Vv04.00 14=JAN-82 16:33:00 PAGE 8-16

ERROR POINTER TABLE

338
339
340

;ERROR

161

CANT CLEAR LSC

003342
003344
003346
003350

341
342
343

CANT SET LSC

;ERROR

EDT1
EFT1

072410

:ERROR

COMMAND DECODE WAS ENABLED WITH (OMP ERROR SET

EMT163
EHT
EDT
EFT1

067646
072262
072362
072410

sERROR

164

COMMAND DECODE WAS ENABLED WITH COMP ERROR SET

EMT164
EHT1
EDT1
EFT1

067670
072410

:ERROR
003402
003404
003406
003410

163

165

DECODE DOES NOT SET

EMT165
0
0
0

067712

;ERROR

166

CANT CLEAR OCCUPIED

EMT166
EHT]
EDT1
EFTY

<ERROR

167

EMT167
003430
359

ILF SET WITHOUT GO BIT

SEQ 0074

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-17

ERROR POINTER TABLE

360
361

003440

003442
003444
003446
003450

;ERROR

CANT SET VOLUME VALID

sERROR

ILF IS INCORRECT

:ERROR

CANT SET OFFSET DIRECTION BIT

sERROR

OCCUPIED IS INCORRECT FOR FUNCTION CODE

;ERROR

READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF

072426

070012

072426

070026

072410

070044

072426

003472
003474
003476
003500

070066
000000
000000
000000

¢ERROR

175

READ IN PRESET DIDNT CLEAR RMOF

EMT175
EHT1
EDT1
EFTY

070116

072410

;ERROR

176

READ IN PRESET DIDNT CLEAR RMDA

EMT176
EHTI
EDT1
EFT1

070136

072410
;ERROR

177

-=-RESERVED FOR POWER MONITOR BIT FAILURE--

SEQ 0075

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-18
=]lelels

ERROR POINTER TABLE

000000
000000
;ERROR

003542
003544
003546
003550

200

070156

EMT200

072410

EFT1

CANT SET OFFSET MODE BY OFFSET COMMAND

:ERROR

CANT RESET OFFSET MODE BY RTC COMMAND

:ERROR

CANT RESET OFD 8Y RTC COMMAND

:ERROR

CANT RESET OM 8Y RMDC

;ERROR

CANT RESET OM BY EBL

sERROR

RUN AND GO NOT CORRECT FOR FUNCTION CODE

:ERROR

CANT SET IAE ERROR

070174
072410

070212

072410

070230

072410

070252

00361C
401
402

403

SEQ 0076

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-19

ERROR POINTER TABLE

003612
003614
003616
003620

003622
003624
003626
003630

0
0
0

:ERROR

IAE IS INCORRECT FOR FUNCTION CODE

;ERROR

IAE IS INCORRECT FOR RMDA

:ERROR

IAE IS INCORRECT FOR RMDC

;ERROR

CANT SET AOE

:ERROR

RMR SET WHEN WRITING RMAS OR RMCS

sERROR

CANT SET RMR

070342
072346
072400
072626

0703%6

072426

070374
072426

070412
072432

TR
\VAVE

VLY

070424

mmmm

404
405
06

EMT206

070312
000000
000000
000000

DRQ IS O AND PGM IS 1

:ERROR

003702

070466

EMT215

SEQ@ 0077

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-20
072262
072362
072410

425

426
427

003712
003714
003716
003720

HT
DY
FT

mmm

003704
003706
003710

b
b b

ERROR POINTER TABLE

;ERROR

DVA IS NOT SET

:ERROR

DPR IS NOT SET

:ERROR

CANT SET PORT REQUEST BY READING RM(CS1

;ERROR

CANT SET PORT REQUEST BY WRITING RMAS

:ERROR

CANT SET PORT REQUEST BY WRITING RMDA

sERROR

CANT RESET PORT REQUEST BY RELEASE COMMAND

:ERROR

CANT CLEAR ATA BY RMAS

070506

003722
003724
003726
003730

072434

003742
003744
003746
003750
438
439

070554

003752
003754
003756
003760

440

4461

003762
003764
003766
003770

072434

443
444

445

003772
003774

070626
072262

SEQ 0078

(94

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-21

ERROR POINTER TABLE

C 3776
004000

EDTY
EFT1

072362
072410

446

;ERROR

22;
004002
004004
004006
004010
449

:ERROR
004012

004014
004016
006020

:ERROR
004022
004024
004026
004030

:ERROR

229
004032
004034
004036

004040

072410

458

;ERROR
004042
004044
004046
004050

462
222

;ERROR
:
004052
004054
004056
004060

070756
072352
072400
072426

465

004062
004066

071000
072346

ATA NOT SET BY UNIT READY

231

ATA NOT SET BY COMP ERROR

232

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

emzsi
EHT21
EFrT115
. 115
Er

;ERROR

229

230

EMT231
EHTT
EDT1
EFTI

2
072262
072362
10

461

ATA NOT SET BY UNIT READY

EMT230
EHTY
EDTI
EFT1

070724
072262
072362

228

227
EMT227
EHTI
EDTI
EFT1

070706
072262
072362
072410

455

CANT RESET ATA BY GO

EMTI
EDT1
EFT1

072262
072362
072410

zgz

226
EMT226

070670

452

ATA IS RESET BUT RMAS NOT 2ERO

EMT225
ENTY
EDTY
EFT1

070646
072262
072362
072410

229

225

233
EMT233
EMTISO

ATA NOT SET BY COMMAND SEQUENCER

SEQ 0079

CZRNBAOQ RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-22

ERROR POINTER TABLE

004066
004070
468
469
470

004072
004074
004076
004100

072400
072426

;ERROR

WLE INCORRECT ACCORDING TO FUNCTION CODE

:ERROR

CANT CLEAR EXCEPTION

sERROR

CANT SET EXCEPTION

;ERROR

CANT CLEAR IVC

sERROR

CANT SET IVC

s ERROR

OPI NOT SET DURING RECALIBRATE

sERROR

RECALIBRATE DID NOT ABORT WHEN DRIVE FAULT SET

071022
072426

071050
072262
072362
072410

004152
004154
004156

SEQ 0080

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-23

ERROR POINTER TABLE

004160

EFT1

072610

¢ERROR

243

OP1 SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING RECALIBRATE

EMT243
EHT1
EDT
EFT1

004166

:ERROR

ATA NOT SET DURING RECALIBRATE

;ERROR

GO RESET EARLY DURING RECALIBRATE

:ERROR

GO NOT RESET DURING RECALIBRATE

004172
004174
004176
004200

072410

071316

072410
sERROR

004230

508

INCORRECT TAG BUS DURING RECALIBRATE

EMT247
EHTI
EDT
EFT1

071342

505
506
507

247

:CRROR

OP] SHOULD HAVE SET DURING SEEK BECAUSE UNIT

:ERROR

SEEK DID NOT ABORT WHEN DRIVE FAULT SET

READY OROPPED

004232

004242
004244

071404
072262

SEQ 0081

CZRNBAO RM80 DSKLS PT1 MACRO Vv04.00 14=JAN004246
004250

-—d
b e

o ~NON

[V, 19,1V,]

072410

:ERROR

072410

CYLINDER

CYLINDER NEVER

253

ATA NOT SET DURING SEEK

254

GO RESET EARLY DURING SEEK

255

GO DID NOT RESET DURING SEEK

EMT255
EHTI
EDT1
EFT1

071510

072410
sERROR

256

INCORRECT TAG BUS DURING SEEK

EMT256
EHTI
EDT1
EFTT

071534

528

DROPPED DURING SEEK

EMT254
EHT1
EDT
EFT1

071472

:ERROR

004312
004314
004316
004320

OP1 SHOULD HAVE SET BECAUSE ON

EHT
EDT1
EFTT

072410

525
526
527

252

EMT253

071454

004302
004304
004306
004310

SEQ 0082

EMT252
EHTT
EDT1
EFT1

071430

;ERROR

004272
004274
004276
004300

EDTI
EFT1

072362
072410

:ERROR
004252
004254
004256
004260

:33:

sERROR

257

OP] NOT SET DURING SEARCH

EMT257
EHT
EDT1
EFT1
:ERROR

004332
004334

071576
072262

260

EMT260
EHT]

SEARCH DID NOT ABORT WHEN DRIVE FAULT SET

CZRNBAQ RM80 DSKLS PT1 MATRO V04.00 14=JAN-82 16:33:00 PAGE 8-25

ERROR POINTER TABLE

EDT1
EFT

004336
004340

:ERROR

561
542
543

004362
004364
004366
004370

004372
004374
004376
004400

004412
004414
004416
004420

004422
004424

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

EMT261
EHTI
EDT1
EFT

004342
004344
004346
004350

004352
004354
004356
004360

261

;ERROR

ATA NOT SET DURING SEARCH

sERROR

GO RESET EARLY DURING SEARCH

:ERROR

GO DID NOT RESET DURING SEARCH

+ERROR

SEARCH ENABLE DIDNT SET DURING SEARCH

sERROR

INCORRECT TAG BUS DURING SEARCH

:ERROR

OP1 NOT SET BY SEARCH TIMEOUT

072410

071664

072410

071702

072410

071762
072262

SEQ 0083

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-26

ERROR POINTER TABLE

VIV

5
5
5

0o ~NO~

004426
004430

559
560
561

072362
072410
;ERROR

OP1 NOT SET DURING DATA COMMAND

:ERROR

DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET

sERROR

EBL RESET EARLY DURING DATA COMMAND

:ERROR

EBL DIDNT RESET ON TIME DURING DATA COMMAND

;ERROR

30 NOT RESET DURING DATA COMMAND

sERROR

RUN AND GO NOT SET DURING DATA COMMAND

:ERROR

INCORRECT TAG BUS DURING DATA (OMMAND

004432
004434
004436
004440

004442

004444
004446

004450

004452
004454
004456
004460

072410

072064
072262
072362
072410

072102

SEQ 0084

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 8-27

ERROR POINTER TABLE

004520

EFT1

072410
sERROR

004544
004546

277

OP1 NOT €Zi DURING DATA COMMAND WHEN ON
CYLINDER DIDNT DROP

:ERROR

DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET

sERROR

SEARCH NOT ENABLED DURING DATA COMMAND

:ERROR

READ IN PRESET DIDNT CLEAR RMD(

072226
072262
072362
0726410

004552

072244

004560

072410

sPUT ERROR TABLE HERE

SEQ 0085

(94

SEQ 0086

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 9
ERROR POINTER TABLE

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS
62

NO VSN =2 OO0~

-gss:

W= OV

PININIA)
= b =d b b b d b cd b

;SAVE PC WHERE THE TIME OUT OCCURED

(SP)+,(SP)+

*RESTORE STACK POIMTER

648

“:GET OVER THE ASCIZ

?egoc

RO,=(SP)

-(RO}

TYPE

,65%

CMP

004576

6
004640

(SP) RO

BADTMO: MOV

011600

010046

104402
000240

CASCIZ

004642

004650

012737
000402

177777

004652

005037

001330

sPUT 'HALT(0)® INSTRUCTION HERE IF YOU WISH
;TO STOP ON UNEXPECTED TIMEOUT.

.SBTTL

s CHANGE RH/RM BUS ADDRESS

(LR

CHGADR

sNO CHANGE IN ADDRESS

INC
BNE
RESET

#0
.~

sTTY LOOP, WAIT FOR INCREMENT
:OF WORD

START2

SRESET THE WORLD

INITIALIZE THE COMMON TAGS

;sCLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
CLR
CMP
BNE

001114

001154
001100

056370

#-1,CHGADR

START2: NOP

000000

;SETUP FOR TYPING OUT PC

START OF PROGRAM

START1: MOV
START:

:2TYPE ASCIZ STRING

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

NOP
.SBTTL

*ADJUST PC =2

000020

#SCMTAG,R6
;:FIRST LOCATION TO BE CLEARED
:3CLEAR MEMORY LOCATION
(R6)+
J:DONE?
#SWR,R6
::LO00P BACK IF NO
.~6
:;SETUP THE STACK POINTER
#STACK ,SP
MOV
S
VECTOR
FEW
A
LIZE
INITIA
;s
#SSCOPE,a#IOTVEC ;:10T VECTOR FOR SCOPE ROUTINE
MOV
#340,a#10TVEC+2 ;:LEVEL 7
MOV
MOV
#SERROR,SFEMTVEC :;EMT VECTOR FOR ERROR ROUTINE
#3460, J4EMTVEC+Y ;:LEVEL 7
MOV
#STRAP,3#TRAPVEC' :;TRAP VECTOR FOR TRAP CALLS
MOV
LEVEL 7
#340,a#TRAPVEC+2;
MOV
#SPWRDN, a#PWRVEC ; ;POWER FAILURE VECTOR
MOV
#3460, 34PURVEC+2 ;:LEVEL 7
MOV
::SETUP END-OF -PROGRAM COUNTER
SENDCT,SEOPCT
MOV

CLR
CLR

STIMES
$ESCAPE

*SINITIALIZE NUMBER OF ITERATIONS
*:CLEAR THE ESCAPE ON ERROR ADDRESS

#. S$LPADR

SSINITIALIZE THE LOOP ADDRESS FOR SCOPE

MOVB

#1,SERMAX

MOV

#. SLPERR

MOV

TSALLOW ONE ERROR PER TEST

*SSETUP THE ERROR LOOP ADDRESS

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
*“EQUAL TO A -1, SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV

@#ERRVEC,~(SP)

MOV
MOV
CMP
BNE

#DSWR, SWR
ADDISP.DISPLAY
#-1,3SUR
668

MOV
174070

#64$,MERRVEC

658

;;SAVE ERROR VECTOR

-:SET UP ERROR VECTOR

T3SETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER
**TRY TO REFERENCE HARDWARE SWR
T BRANCH IF NO TIMEOUT TRAP OCCURRED

TSAND

THE HARDWARE SWR IS NOT = =1

**BRANCH IF NO TIMEOUT

INITIALIZE THE COMMON TAGS

005070

012716

005076

012737

000176

005116
005122
005130
88?125

005037
132737
001403
012737

005074

005104

000002

012737

000174

005112 012637 000004

24
25 005140

012737

001156

648

Mov

#65%, (SP)

::SET UP FOR TRAP RETURN

658:

MOV

#SWREG, SWR

::POINT TO SOFTWARE SWR

$PASS
WAPTSIZE,SENVM
678
#$SWREG, SWR

:CLEAR PASS COUNT
..TEST USER SIZE UNDER APT
SYES,USE NON-APT SWITCH
SiNO,USE APT SWITCH REGISTER

668:

005246
005246

005252
005254
005262

005737

001012
123727
001406

004562

. :SETUP "‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEQUTS
#84DTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT
MOV
000004

678

MOV

é§g9$:
.SBTTL

000042

0000C1

000001

001150

INC
BNE

#-1
68$

;sFIRST TIME?
SBRANCH IF NO

BEQ
TYPE
BR

68$
,69%
68$

*BRANCH IF YES
,.rvpe ASCIZ STRING
“GET OVER THE ASCIZ

71s:

..ACT-ll’

GET VALUE FOR SOFTWARE SWITCH REGISTER

w62

CMP

SWR, #SWREG

BNE
GTSWR

70%8:

#SENDAD , aN42

.ASCIZ <CRLF>@CIRNBAQ - RHBO DISKLESS TEST, PT 13<CRLF>

BNE
CMPB
BEQ

001005
104407

005276 000403
005300 112737
2 005306

:LEVEL 6

TYPE PROGRAM NAME

CMP

005200

001242

#P16,ERRVEC+2

,.TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

005264 023727 001154 000176
005272
005274

(SP)+,9#ERRVEC ;:RESTORE ERROR VECTOR

001154

005162 022737 054302 000042
001426
104401
000423

CLR
BITB
8EQ
MOV

#DISPREG,D1SPLAY

001244

.SBTTL

005170
005172
005176

MOV

001243

005227
001032

MOV

001230
000200

gg 005146 012737 000300 000006
005154
005160

RTI

B8R

MOVB

ARE WE RUNNING UNDER XXDP/ACT?

708
SENV,
708

..BRANCH IF YES
*:ARE WE RUNNING UNDER APT?
*:BRANCH IF YES

718

$:BRANCH IF NO
::GET SOFT=-SWR SETTINGS

718

#1,SAUTOB

..SOFTHARE SWITCH REG SELECTED?
::SET AUTO-MODE INDICATOR

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP

33 005306

005037

35 005320

001121

38 005336

103002

001332

013737
122737

000040
000007

39 005340
40 005344

105037
005737

001332
000042

42 005352

104401

005360

36 005322
37 005330
41 005350

001425

005356 000412

0054

43 005404

005046

45 005412
46 0056414

104403
001

44 005406 113716 001332

CLR

XXDP

;CLEAR *XXDP® LOAD DEVICE STORAGE

BNE

:BR IF

CMPB #16, 3441

3% 005312 122737 000016 000041
001332
001332

?2;33

SGET osvxce INDICATOR AND NUMBER
?
:IS_IT A VALID NUMBER

MOV
CMPB

axs0,XxDP
#7,XXDP

CLRB
TST

XXDP
ane2

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

TYPE

738

..rvps ASCIZ STRING

BHIS

1$:

mmmmmmo

BEQ

-YES

‘BR IF NEITHER

SGET ovsa THE ASCIZ

LASCIZ

/
<CRLF>/NOT TESTING DRIVE

CLR

-(SP)

:CLEAR WORD ON STACK

STYPE THE ADDRESS
*ONLY 1 CHARACTER

MOVB

TYPOS
.BYTE

XXDP, (SP)

“GET DRIVE ADDRESS

(W1
V]

SEQ 0087

CZRNBAO RMB0 DSKLS PT1 MACRO V(4.00 14=JAN-82 16:33:00 PAGE 9-1

GET VALUE FOR SOF TWARE SWITCH REGISTER
47 005615
48 005416
49 005422
50
51 005424

52 005430
53 005632
005436

005460
54 005460
55 005462

5¢ 005466
57 V05470
58 005471
59 005472
005476
3

000
104401
000460

005227
001055
104401
000410
005046

104403
1
000
104401
000432

001217

28:

177777

65 005564
66 005570
67 005574
gg 005576

005037
005737
001537
012737

5i;§‘:

INC

#-1

ASCIZ

MOVB

TYPOS
.BYTE
‘BYTE

TYPE

005500

g§?6‘

B8R

ASCIZ

$CRLF

:SUPRESS LEADING ZEROS
‘CR-LF

‘GET NUMBER OF DRIVES

;FIRST TIME THRU HERE ?

‘NO

748

‘GET OVER THE ASCIZ

75$

,.rvpe ASCIZ STRING

<CRLF>/TO TEST DRIVE /

-(SP)

XXDP, (SP)
1
0

768

:CLEAR WORD OGN STACK

*GET DRIVE ADDRESS

‘TYPE DRIVE ADDRESS
TONLY 1 CHARACTER
*SUPRESS LEADING ZEROS

,.rvps ASCIZ STRING

‘GET OVER THE ASCIZ

7. HALT PROGRAM, CLEAR LGC. 40 AND RESTART PROGRAM./<CRLF>

:CHECK FOR AUTO MODE OR STANDALONE MODE
SLET AUTO DRIVE SIZING 0CCUR
AUTSIZ
CLR
?
*RUNNING IN AUTO MODE
ane?
TST

001326
000042

BEQ

MOV

000377 001300

STANDALONE

#377.$DEVM

‘BR IF NO

*SET DEVICE MAP FOR ALL DRIVES

ig?gsnAn IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED

75 005614
76 005616
77 005622

005C01
013700
104401

79 005626
80 005634
81 005636
82 005642
005644
005646
005647
83 005650
84
85 005654

136137
001507
104401
010146
104403
002
000
104401

063740

012760

000040

012737
022760
001407
022760
001403
104401

000200 001243

132737
001124

92 005712
93 005720
94 005726
95 005730
96 005736
97 005740

CLR

)

001332

;2 005612

TYPE

71 005604
72 005604

BNE

005440

005564

BYTE
TYPE

001276
063474

001300

18:

BITB

#BIT7.SENVM

:SIZING ALLOWED ?

CLR
MOV
TYPE

R1
$BASE ,RO

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

gé;a

?;QTBL(R1).soevn

BNE

TYPE

001217

12%

,SYSTAT

,SCRLF

MOV

R1,-(SP)

.BYTE
BYTE
TYPE

2
0
,BLNKS4

000010

MOV

#CLR,RMCS2(RO)

010000

000010

004000

TYPOS

063632

:NO

. nbls DEVICE PRESENT IN MAP ?

+CR=LF

1:SAVE R1 FOR TYPEOUT

;360 TYPE==OCTAL ASCII

SSTYPE 2 DIGIT(S)
S SUPPRESS LEADING ZEROS
*TYPE 4 BLANKS

:CLEAR MASS BUS

gfig

R1.RMCS2(RO)
RMDS (RO)

ggfo.nnc52<R0)

:LOAD THE DRIVE ADDRESS
*ACCESS DRIVE REGISTER

000000

gé;

ngA.RHCS1(R0)

éfi ?vas AVAILABLE ?

063512 006052
020026 000026

MOV
ggg

*ASSUME RM80 DEVICE
#SRMBO, 108
ggoozs.nnor<no> gIN?LE Egar RMBO?

000026

CMP

#24026 ,RMDT(RO) :DUAL PORT RM8O ?

TYPE

,NOTRM

000010
000012

024026

063517

MOV
ST

BEQ

?
és ?vag PRESENT

*BR IF YES

*DRIVE NOT AN RMB0

SEQ@ 0088

CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 9-2

SEQ 0089

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 9-3

GET VALUE FOR SOFTWARE SWITCH REGISTER

98 005744
99 005746
100 005754

000443
032760
001415

010000

103 005760

104401

063551

38:

106 005766
107 005772
108 005776
109 006000

104401
005737
001026
146137

063566
001326

48:
5$:

112 006010

104401

063605

68:

115 006016

005737

001332

78:

117 006024
118 006030
119 006032

123701
001360
104401

001332

122 006040
123 006044
124 006050
}%g 006052

104401
104401
104401
000000

063616
063634

127 006054
128 006056
}gg 006062

005201
020127
003661

000007

131 006064
132 006070

104401
000137

001217
006612

000012

28:

}83 005756 000417
}82 005764 000402

}}9 006006 000422

}}2 006014 000413
116 006022

001406

}g? 006036 000755

063740

001300

BR
BIT
BEQ

118
#MOL ,RMDS(RO)
6$

:CHECK NEXT DRIVE
:IS MEDIUM ON LINE ?
*BR IF NO

TYPE

NOTPRS

;DRIVE NOT PRESENT

B8R

§s

TYPE
ST
BNE
BICB

,NOTAVL
:DRIVE NOT AVAILABLE
AUTSIZ
*AUTO SIZING ON ?
118
*BR IF NO
:CLEAR DEVICE FROM BIT MAP
ATNTBL(R1),$DEVM

TYPE

118

;CHECK NEXT DRIVE

UNTOFF

:DRIVE OFFLINE

XXDP

;LOADED FROM RM80 ?

C(MPB
BNE
TYPE

XXDP,R1
5%
LODEV

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

BEQ

B8R
8$:
98:

*CHECK NEXT DRIVE

B8R

063534

§s

*NO

TYPE
TYPE
TYPE
.WORD

:DRIVE ONLINE
STYPE 2 BLANKS
‘PRINT DRIVE TYPE
*MESSAGE ADDRESS HERE

118:

INC
CMP
BLE

R1
R1,47
18

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

128:

TYPE
JMP

,$CRLF
CMNSTART

:CR=LF
$JUMP TO COMMON START

108:

,UNTON
.BLNKS2

*PRINT DRIVE TYPE

—

SEQ 0090

CZRNBAQ RM80 DSKLS PT1 MALRO V04.00 14~JAN-82 16:33:00 PAGE 10
STANDALONE INPUT ROUTINES

STANDALONE INPUT ROUTINES

.SBTTL

3 006074
006074

004737

060730

STANDALONE:
JSR

006100
006104

005227
001023

177777

WA = O 0 00 NOMN

INC
BNE

PC,STKINT

sINITIALIZE CONSOLE

#-1
2

;FIRST TIME THRU HERE ?

;B8R IF NO

;SEE IF OPERATOR WANTS HELP TEXT
106
6112

o
o
o

POINININ)
=P cd d e b cad ced e = b

NN = O 000

O NS

WNND

6114

06140
06142
06146

28 006166

29
30
31 006172

32 006172
33 006176
006202
34 006204
35 006210
36 006212
37 006216
38 006220
39 006226
40 006230
43
44 006244
45 006250
46 006252
47 006256
48 006260
49 006264

50 006266
51 006272

104401
1044611

012637
123727
001005
104401
104401
000414
104401

104401
000407

TYPE
RDCHR

063064

001176
001176

MOV
CMPB
BNE
TYPE

000131

001176
104536

TYPE

18:

063626
001217

TYPE
TYPE

JWANT HELP ?

(SP)+,$TMP1
STMP1.#'Y
18
,$TMP1

sTYPE

HEI
D

sanr

:GET RESPONSE
:SAVE AND ECHO RESPONSE
:SS IT A YES RESPONSE ?
'Y°

JYES = TYPE HELP TEXT
:TYPE N’

:CR-LF

§§EE IF USER WANTS TO CHANGE UNIBUS ADDRESS
005737
001475
005037
104401

001330

CHGADR

ggA?GE
RH/RM BUS ADDRESS ?

CLR

CHGADR

NO CHANGE NEXT TIME

BEQ

001330
001217

TYPE

,SCRLF

:DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY

104401
013746
104402
104401
104413
012637
001412
022737
101403
104401
000756
013737

063115
001276

104401

063167

35:

001176

063125
001176

001276

48:

58:

001272

,BLNKS2

MOV
BEQ
CMP
BLOS
TYPE

(SP)+,$TMP1
58
#160000,$TMP1
4$
CNSLO2

MOV

$TMP1,$BASE

TYPE

001176

68:

Z(SP)
SVECT1.(SP)

TYPE

,BLNKS2

MOV
BEQ
CMP
BHI
TYPE
BR

(SP)+,$TMP1
78
#1000, $TMP1
6$
CNSLO4
$
SVECT1,RO

MOVB

sTYPE _CURRENT BUS ADDRESS

..SAVE $BASE FOR TYPEQUT
:GO TYPE--OCTAL ASCII(ALL DIGITS)
;TYPE 2 BLANKS
:GET NEW BULS ADDRESS
?
sCARRIAGE RETURN
:YES=SKIP TO NEXT ENTRY
BASE ADDRESS IN 1/0 PAGE ?
s YES
:TYPE WARNING MESSAGE
:TRY AGAIN

;STORE NEW BUS ADDRESS

,CNSLO3

CLR
MOVB

RDOCT

001176

001272

TYPE

TYPOC

063634

001000

,CNSLO?
$BASE,
- (SP)

RDGCT

001176
160000

TYPE
MOV

TYPOC

063634

263176

56 006312

B8R

,MSHELP

sGET CURRENT VECTOR ADDRESS
;TYPE 2 BLANKS
;GET NEW VECTOR ADDRESS
: CARRIAGE RETURN?
:YES-SKIP TO NEXT ENTRY
VEUUR ADDREDS <

10UV

TE?E WARNING MESSAGE
:GET CURRENT VECTOR ADDRESS

CZRNBAO RM80 DSKLS PT1 MACRO v04.00 14=JAN-82 16:33:00 PAGE 10-1

SEQ 0091

STANDALONE INPUT ROUTINES

177400

57 006316
58 00€322
59 006324
60 006330
61 006332
62 006336
63 006342
gg 006346

177776

001176

063452

012737
000137

023727

001176

CMP
BNE

108:

001176
001176

001176
000423
118:

001176
001176

RDCHR
MOV
CMP

LCNSLO?

:GET PRIORITY LEVEL

;STORE NEW VECTOR ADDRESS
SFIRST TIME THRU ?

:BR IF NO

STYPE INPUT INSTRUCTIONS

,MSDRVS

*TYPE 'DRIVE(S):

CLEAR DEVICE MAP
:GET RESPONSE

LALL

1YES, TYPE "ALL'* AND GO

XS12

SAUTO SIZE

108

#377.,$DEVM
$TMP1,#CR
128
STMP1

$TMP1.#°0

+1S INPUT "ATM
?
‘NO

“SET DEVICE MAP FOR ALL DRIVES
s CARRIAGE RETURN ?
“YES
ECHO RESPONSE

12$

$STMP1,4'7

(SP)+,$TMP1

;GET RESPONSE

148

SYES

$STMP1.#(R

001176

13s:

138

(=1

*CARRIAGE RETURN ?
:TYPE *, '

SECHO_RESPONSE
*NUMBER
< 0 ?
SYES

‘NUMBER > 7 ?
N0

§~5L08

STYPE * 2ILLEGAL INPUT'
*RETRY

;Ig1§l1n

:R1 = DRIVE NUMBER

ATNTBL (R1) ,SDEVM
148:

“YES

NUHBER >77?

*NO
*ILLEGAL INPUT

12%

128:

*NUMBER < 0 ?

138
128

$STMP1

063374

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

STMP1,#'7

001326
001217
005604

;GET ADDRESS FOR INTERRUPT VECTOR

SCR-LF

$TMP1, 20

063740
000377

: INCREMENT RO BY 2
;SETUP TRAP CATCHER ADDRESS AND
:PUT HALT IN TRAP ADDRESS +2
;GET NEW VECTOR ADDRESS

*$CRLF

063061
001176
001176

177770

sCLEAR SIGN EXTENSION

, COMMA

—

013701

CMP
BEQ
TYPE
CMP
BLT

CMP
BLE
BR

—

D il e
)

$DEVM

TYPE
MOV
JMP

l=lelelolele]

b cd S
b

OO0

CLR
TYPE
RDCHR

TYPE

063050
000377
005604

000711

SVECT1+1, (RO)
$TMP1,SVECT1
8s

MOV

94 006512
95 00651¢

(RO) ¢+
RO, =2(R2)
(RO)
$TMP1,RO

BNE
TYPE

001176
001176

104411
012637

— e

8s:
9$:

86 006462
87 006470
gg 006472

063232

[el=]

81 006436
82 006444
83 006446
84 006452
85 006460

#4C<377>,R0

DIALOGUE TO 1NPUT1DEVICE NUMBERS

7$:

177777

67 006354
68 006360
69 006362

gg 006432

MOV
MOov8
MovB

001176

70 006366
71 006372
72 006376
73 006402
74 006404
75 006410
76 006416
77 006420
78 006424

BIC
TST
Mov
CLR
MoV

:SET DEVICE IN MAP

f?;7.soevn

.ogne ?

Agzg{g

D0 N?T AUTO SIZE WHEN TYPING DRIVE STATUS
sCR-L
;GO SIZE DEVICES

Xs1z

CZRNBAD RM80 DS:LS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 11

SEQ 0092

STANDALONE INPUT ROUTINES

;ASSEMBLE TEST QUE FROM DEVICE MAP

2 006612
3 006612

& 006616
5 006622

(=
(=4
o
o

6 006624
7 006630
8 006634
9 006640

17 006672
}8 006700

104401

063416

=l olelelelalale
l T d
O==OO0OWNO==—-00
OH=20WNINON
S

063061
063445
001470

013700
001004
1

I4
2

3
0
3
1

116361
062701

CMNSTART:
TYPE

001300

MOV

BNE

001466
000001

1$%:

MOV

2s:

8IT

063061

063740
000002

DRIVES

ioevn RO
.COHMA

.NONE

#TSTQUE+2,R1
R1,TSTQUE
#1,R2
R3
R2.RO
3s

sTYPE 'DRIVE(S) TO BE TESTED'

:RO = DEVICE MAP

?RPEFDRIVES TO TEST

:TYPE *NONE'
:R1 = ADDRESS OF FIRST ENTRY IN QUE
INITIALIZE ENTRY POINTER
;R2 = DEVICE POINTER

:R3= DEVICE NUMBER

IgTHIS DEVICE IN MAP ?

, COIMMA

;TYPE *

:;SAVE R3 FOR TYPEOUT
::G0 TYPE--0CTAL ASCII
..TYPE 1 DIGIT(S)

R3,(R1)
R3,=(SP)

SYES - ENTER DEVICE NUMBER IN QUE

:SUPPRESS LEADING ZEROS

ATNTBL(R3),1(R1);ENTER ATTENTIOM 3IT IN QUE

000001

3s:

ASL

#2,R1
R

sADVANCE ENTRY POINTER
;ADVANCE DEVICE POINTER
?
DOgE ALL DEVICES
YE

23 006714
24 006716
gg 006720
27

28 006724

29 006730
30 006732
006736

006766
31 006766
32 006772
33 006774
34 007000
%S 007004
)

000756
005011
104401

001217

004737

054322

000425
104401
000413

005737
001002
000137
000137
000413

37 007006
38 007010
39 007014
40 007016
41 007022
42 007024
43 007030
44 007034

000240
105737
001007
005737
001002
000137
000137

46 007034
47 007040
48 007044
49 007050
007056
007060

105037
005037
004737
012746
012746
000002

:ADVANCE DEVICE NUMBER
48:

CLR
TYPE

:SIZE FOR CLOCK

006740
'253:

;SEE IF CLOCK PRESENT
:YES = CLOCK IS PRESENT
..TYPE ASCIZ STRING
¥:GET OVER THE ASCIZ

LASCI2

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

TYPE
BR

63
,658
643
ane2
5%

START

$GET42
READY1

001300

$DEVM
23
ane2
1$
START

000042
18:

2s:
READY1:

;TYPE CR-LF

PC,SIZCLK

004652
054272

001116
001206
060730
000000
007062

-SCRLF

;TERMINATE TEST QUE

JSR
B8R

000042

004652
054272

sENTER NEXT DEVICE

CLRB

sANY MONITOR PRESENT ?
sBR IF YES
:JUMP TO START
:RETURN CONTROL TO MONITOR

sREADY TO START TEST
;ANY DRIVES IN MAP ?
:BR IF YES
:ANY MONITOR PRESENT ?
:BR IF YES

$GET42

;JUMP TO START
cRETURN CONTROL TO MONITOR

STSTNM
$STIMES

SINITIALIZE NUMBER OF ITERATIONS

PC,STKINT

#PRO, = (SP)
2643 .-(SP)

sRESET TEST NUMBER

JINITIALIZE TTY
:;PUT NEW PS ON STACK

ssPUT NEW PC ON STACK
:sPOP NEW PC AND PS

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 11-1

SEQ 0093

STANDALONE INPUT ROUTINES

007062

117737

172400

§3 007070
54 0070764

013700
012760

001276
000040

50
51

001236

104401

61 007126

001406

001217

60 007122 105737 001300
62 007130

104401

MOV
MOV

000010

MOVB
POV

104403
002
000

64 007144 005004

65 007146

66 007150
67 007152

68 007154

005304

001376
005304

001376

STSTQUE,SUNIT

;LOAD DRIVE NUMBER

$BASE , RO
#CLR,RMCS2(RO)

:RO = UNIBUS ADDRESS
:CLEAR MASSBUS

aTSTAUE,RMCS2 (RO}
#TAB! TAS ' TAT,LSTRK

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

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

$DEVM

SANY DRIVES IN MAP ?

MSGDRV

STYPE 'DRIVE®

TYPOS
.BYTE
BYTE

2
0

+:G0 TYPE=-=OCTAL ASCII
SSTYPE 2 DIGIT(S)
S SUPPRESS LEADING ZEROS

DEC

Ré

SWAIT FOR TTY

1s18

BEQ

TYPE

063466

MOV

63 007134 013746 001234
007140
007142
007143

movs

:CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND SET LAST TRACK ADDRESS

§5 007102 117760 172360 000010
gg 007110 012737 006400 001334
58
59 007116

64$:

18:

CLR

BNE
DEC

BNE

$UNIT,=(SP)

.R4
.=2

‘BR IF NO

::SAVE SUNIT FOR TYPEOUT
::TYPE DRIVE NUMBER

*THESE TWO LOOPS ARE ADDED TO

NN
PN NNPNIND b b = o

OO NO NS NN = O 000 NV

b ek o =D )

WA 2O 00NN

W)=

.SBTTL

;REGISTER ASSIGNMENTS

‘RO
:R1

‘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

S $TMPO-$TMP4

:$GDDAT,SBDDAT
:$GDADR, $8DADR

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 PUFFER HAS A STORAGE LOCATION FOR

EACH REGISTER, AND I: 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 0094

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 12

SEQ 0095

C%RNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13
TRANSFER TEST

Y 3233222222222 222222222232 LLLL 22242 A
TRANSFER TEST
TeTEST 1

R idllddddl)

;;tttttttfitttttttttttttttt't'ttttQitttttt..tt'tt...ttfit"'t.....'

007156

007160

1811

000004

000240

007162 012706 001100
007166 013700 001276
007172 013701 001466
012737 000001
007176
)
012702

000000

7 007210

004737

055156

9 007222
10 007230
11 007232
12 007236
13 007244
14 007252
15 007256

032737
001417
111137
042737
052737
010037
062737

010000

}g 007266

000475

z 007204

001226

16 007264

016037

104001

000010

22 007270

001140
177770
000100
001136
000010

001142

001140
001140

001136

208:

010003

23 007272 060203
25 007276 032760 010000 000010

59 007304

001470

28 007306
29 007312

004737
016037

37 007362

MOV

#0,R2

:R2 = REGISTER INDEX

JSR

PC,CNTCLR

BIT
BEQ
MOVB
BIC
BIS
MOV
ADD
EMT
BR

#NED, SBDDAT
20$
(R1),$GDDAT
SK
, SGDDAT
#°CUNTM
#IR,$GODAT
RO, $BDADR
#RMCS2, $BDADR
1
608

RMCS2 (RO) , SBDDAT

032737
001417
111137
042737
052737

062737
104001

MoV

;60 CLEAR CONTROLLER

:STORE RMCS2 AT $BDDAT

ADD
B8IT

MOV
BEQ

JSR
MOV

RO,R3

:R3 = REGISTER ADDRESS

708

*NO!!

R2.R3
sREAD REGISTER
(R3).R¢
-IS ‘NED'" SET??
.RMCS2(RO)
ANED

;G0 CLEAR CONTROLLER
PC,CNTCLR
:STORE RMCS2 AT $BDDAT
RMCS2 (RO) , $BDDAT

055156
000010

001142

001140
177770
000100

001140
001140

8IT
BEQ
MOVB
BIC
8IS

000010

001136

ADD

ARMCS2, SBDADR

B8R

608

010000

35 007350 010037 001136
36 007354

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

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

24 007274 011304

30 007320
31 007326
32 007330
33 007334
3%, 007342

#STACK, SP
$BASE R
TSTQUE ,R1
#1,$TESTN

MOV

001142

19
20

21 007270

MOV
MOV
MOV
MOV

ig&EAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET

2 007210

8 007214

:SCOPE CALL

SCOPE

NOP

001142

gg 007364 000436

MOV
EMT

ANED, $BDDAT
308
(R1),$GDDAT
SGDDAT
#CUNT, MSK
#IR,S$GDDAT

RO, $8DADR
1

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

42 007366

$0s:

.DOES NOT SET ‘NED'* ERROR

43 007366 012713 000000
4% 007372
22 007400

032760
001432

010000

000010

MOV

BIT
BEQ

#0, (R3)

ANED ,RMCS2(RO)
708

;WRITE REGISTER
:IS "NEDTM SET??
*NO!!

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

TRANSFER TEST

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

48
49

50 007402

51 007402
52 007406
53 007412
54 007414
55 007420
56 007422
57 007426
58 007430
59 007434
60 007436
61 007442
62 007444
gz 007450
65
66 007452

67 007452
68 007460
98 007462

062702
022702
001773
022702
001770
022702
001765
022702
0
022702
001757
022772
103257

SAVAILABLE DEVICE REGISTER
L0s8:

000002
000002
000004

78 007520
79 007526

80 007534
81 007542
82 007550
83

84 007556
85 007562
007562
86 007570
87 007576
88 007604
89 007612
g? 007614
92

:ADVANCE T0 NEXT REGISTER

CMP
8EQ

#RMBA ,R2
408

SIS THIS RMBA??
YES - TRY NEXT REGISTER

BEQ
CMP
8EQ
(MP
B8EQ
CMP
8HIS

408
#RMAS ,R?2
408
#RMDB,R?2
408
#RMEC?2 ,R2
108

CMP

000010
000016

000022
000046

:1S THIS RMW(C??
YES = TRY NEXT REGISTER

0RMHC.R2
408

IS THIS RM(CS2??

#RMCS2,R2

*YES = TRY ANOTHER REGISTER
?
IS THIS RMAS
SYES = TRY ANOTHER REGISTER
*IS THIS RMDB??
YES = TRY ANOTHER REGISTER
*IS THIS A LEGAL REGISTER
*YES = TRY THIS REGISTER

éggT 'NONEXISTENT DEVICE® ERROR FOR EVERY REMOTE REGISTER ADDRESS
013737
104002
000137

001276

001136

054046

)

Eg¥

SBASE.SBDADR

:STORE BASE ADDRESS

6 0s%:

JMP

$SEOSP

;GO SELECT NEXT DEVICE

14 0s:
AR

tTEST 2
AN

;g 007514

#2,R2

CMP
8EQ

71 007466
72
73

007466
007466
007470
007472
007476
007502
007506

ADD

T ST2:

000004

000240
012706
013700
013701
012737

001100
001276
001466
000002

004737

055156

012760
012760
012760
012760
012760

000076
177777
001777
017200
017200

012702

000001

016037
016037
016037
005302
100362

000000

RAANAR AR RRAANN AR AR RN NRRR RTINS

E R

CTOD TEST
R R TR

RA AR RRARARRRANR AR ARNERRRRRRERNRARRS

zggPE

:SCOPE CALL

MOV

#STACK,SP

:LOAD THE STACK POINTER

MoV

#2,8TESTN

..SET TEST NUMBER IN APT MAIL BOX

JSR

PC,CNTCLR

MOV
MoV

001226

$BASE RO
TSTQUE R

:WRITE ONES IN REMOTE REGISTERS
#ILF76 ,RRCST(RO)
MoV

:60 CLEAR CONTROLLER

:LOAD RMCS1

;LOAD RMDA

Mov

a-=1 RHOA(RO)

MoV

#*CXNUOF ,RHOF(RO)

MOV
MOV

000032

*RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

'CYLHSK RMDC(RO)
U‘CXNUOF RMOF (RO)

:LOAD RHDC
LOAD RMO

LOAD RHOF AGAIN TO SET SSEI

sREAD REMOTE REGISTERS TWICE

000000

001336

000032

001370

1 0s:

MoV

#1,R2

MOV
MOV
MOV
MoV

;STORE RMCS1 IN INPUT BUFFER
RMCS1(RO) ,RMCS1]
RMDA
(RQ) ,RMDA]
;STORE RMDA IN INPUT BUFFER
RMDC
(RO) ,RMDCI
:STORE RMDC IN INPUT BUFFER
RMOF
(RO) ,RMOF I
;STORE RMOF IN INPUT BUFFER
R2
108

DEC
BPL

;SEE IF ANY ONE BITS CAME BACK

A
A

SEQ 0096

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-1

177701

93 007616
94 0076264

001336

BIC
BNE
TST

001344

95 007626

007652
007654
84 007656

176000

001372

160577

001370

BNE
BIC
BNE
B8IC
BNE

#*CILF76,RMCS1]
208
RMDAI
208
#XNUDC ,RMDCI
208
#XNUOF ,RMOF 1
208

;1S RMCST 0??
;NO!!

‘IS RMDA 0??
*NO!!
;1S RMDC 0?2
JNO!!

1S RMOF 0 ??
:NO!!

: CANNOT gg?D/HngE A ONE FROM ANY REMOTE REGISTER

104003

208:
°;t'ttttttttttltt'tttt"'t'tttQQQttt..tt.t.....'..t"'.....'.....

MASSBUS INITIALIZE TEST

s«TEST 3

E
NENCAROCS
ENNRGC
RANNRANARANAAC
NARRNR
AN NNNRARARRARARA
s cAREAANRANAR

TST3:

000004

VB NN =000~

000076
177777
177777

MoV
MOV
MOV

001226

JSR
000000
000014
000042

-t NN
= NN

crvgg\u:~4~ru
OO
W=
NN

NS
CDCHDCDE;C“DCD
OoONON
=) =N = NINON)

~
~
~
»

NN = O VRN

S
»

#STACK,SP

$BASE RO
R
TSTQUE
#3,8TESTN
PC.CNTCLR

MOV
MOV
MoV

JSR

000000
000014

n00042

001336
001352
001400

177701
001527
177777

001336
001400
001336

177777

001352

177777

001400

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

sR1 = POINTER TO DEVICE
::SET TEST NUMBER IN APT MAIL eoOx

:GO CLEAR CONTROL LER

:WRITE ONES IN SELECTED REGISTERS

#ILF76 ,RMCS1(RO)
;LOAD RM(S?
#-1,RMER1(RO)
sLOAD RMER1
#-1,RMER2(RO)
:LOAD RMER2

:INITIALIZE MASSBUS WITH A CLEAR

055156

(=4

b e
b

Mov

055156

b e

e e

LNgfid,:UflNhflg;
NANE WA
2O 000 NN

b b d

b e

b D md b i

PPV ALNI AN NINININ) b = wd —d b b =k b

=2 =t Q O O

001100
001276
001466
000003

:SCOPE CALL

SCOPE

NOP

PC,CNTCLR

;GO CLEAR CONTROLLER

:READ THE REGISTERS THAT WERE WRITTEN
MoV
Mov
MoV

RMCS1(RO) ,RMCS1]
RMER1(RQ) ,RMER1]
RMERZ
(RO) ,RMERZI

sSTORE RMCST IN INPUT BUFFER
:STORE RMER1 IN INPUT BUFFER
;STORE RMER2 IN INPUT BUFFER

:SEE IF ANY REGISTER B]TS WERE CLEARED
8IS
#°CILF76 "RMCSTI ;SET ANY BIT NOT WRITTEN
#XNUER2 ,RMERZ2]
8IS
#-1,RMCS1]
CMP
;ANY ZEROS IN RMCS12?
108
JYES!!
BNE
P
BNE
CMP
BNE

#-1,RMER1]
108
#-1,RMERZ]
108

;cgg';enos IN RMER]??

TANY ZEROS IN RMER2??

sNONE OF THE BITS WERE CLEARED
108:

EMT

s e AARNRERRRRA N RN

TRTEST &

RNV C R ERARRRAARAANARANNRARANRARARANAARRARACES

CLEAR STUCK ACTIVE TEST

Y
-

SEQ 0097

PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-2

€z RNBAO RM80 DSKLS
12
CTOD TEST

%{RNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-3

SEQ 0098

CLEAR STUCK ACTIVE TEST

010026
010026
010030
010032
010036
010042
010046

000004

001100
001276
001466
000004

138
139 010054
140

001226

142 010060
143 010066
144 010074

177777
177777
000001

00001¢
00G0+2
000024

010102
010110
010116
010124
010132
010134
010142
010144

000014
000042
000024
040000

001352
001400
001362
001352

040200

001400

000001

001362

151
152
153
154
155 010152
156 010154
157 010156
158
159

106026

160
161 010204

#6,STESTN

1:SET TEST NUMBER IN APT MAIL BOX

JSR

PC,CNTCLR

;G0 CLEAR CONTROLLER

$BASE R0
R
TSTQUE

#DMD ,RMMR1(RO)

POINTER TO DEVICE

:LOAD RMER]

:LOAD RMER2
;LOAD RMMR1

;READ TEST REGIS TERS AND SEE IF ANY BITS ARE ON
:STORE RMER1
RMER1
(RO) ,RMER1]
MoV
MOV
MoV
BIC

BNE
8IC
BNE
8IT
BNE
EMT

seTEST §

IN INPUT BUFFER

;STORE RMER?2 IN INPUT BUFFER

RMER2
(RO) .RMER2]
RMMRT (RO) .RMMRT]

:STORE RAMMR1 IN INPUT BUFFER

cgns,anenix

sDONT ACCEPT UNSAFE
sBRANCH IF ANY QTHER BITS ON
#SK1!DVC,RMER2] ;DONT ACCEPT SK1 OR DVC
108
:BRANCH IF ANY OTHER BITS ON
#DMD ,RMMR1 |
sBRANCH IF DMD 1S ON
108

108

TRISTATE TRANSFER TEST

AN NRRRARANRNRARANRNRCA
RN RRRANAARNARRRANAAANCAARACAOEARANRNNARANES

fs1s:

000004

001100
001276
001466
000005

165 010212
166 010220
167 010226
168 010234
010242
169 010250

000076
}77777

172
173
174
175

000000
000000
000000
000000

010256
010264
010272
010300

:LOAD THE STACK POINTER
ROz UNIBUS ADDRESS

#STACK,
SP

:;tttttt'ttt'ttt't.t"'.ttlt'tl.ti'Q...ttt'.'fi'.tltt'.".t".t'.'

055156

170
171

sSCOPE CALL

MOV
MOV
MOV

MoV

108:

162 010206
163

164

IR CRRARANRARRNRARANANANNRORARARACAROAOENNND

SWRITE ONES IN T EST REGISTE RS
#-1,RMERT
(R 0)
MOV
l-l.RHERZ(? 26
MOV

010156
010156
010160
010162
010166
010172
010176

SCOPE
NOP

MOV

055156

141

145
146
147
148
149
150

R ANARARARRARENANRA R

fST14:

:SCOPE CALL

CLR
JSR

000042

000000
000006
000014
000032

:LOAD THE STACK POINTER

R2
PC,CNTCLR

sCLEAR ERROR FLAGS
;GO FLEAR CONTROLLER

$BASE ,RO
TSTQUE R
#5,8TESTN

001226

000000

#STACK,SP

sRO = UNIBUS ADDRESS
;R1 = POINTER TO DEVICE
ssSET TEST NUMBER IN APT MAIL BOX

sWRITE ONES IN S ELECTED REGISTERS
MOV
MoV
oV
MOV
MoV
MOV

#ILF76 ,RMCST(RO)
#-1,RMDA(RO)

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

;LOAD
:LOAD
;LOAD
;LOAD

:LOAD RMCS1

RMDA

RMER?
RMOF
RMOF AGAIN TO SET SSEI
RMER2

sWRITE ZEROS IN SELECTED REGISTERS
#0,RMCST(RO)
;LOAD RMCS1
MOV
MOV

MoV
MoV

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

sLOAD RMDA
:LOAD RMER1
sLOAD RMOF

SEQ 0099

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-4
TRISTATE TRANSFER TEST

SNNNNNY

000000
000006
000014

127777
177701
160577

186

187

188 010366
189 010372
190 010400

191 010406
192 010414
193 010422
194 010426
195 010432
196 010436
197 0104¢2
198 010446
199 010452

200 010456
201 010462
202 010466
203 010472
204 010476
205 010502
206
207
208 010504
209 010510
210 010514
211 010516
212
213 010522
010522
214
215
216

217 010526
218 010534
219 010542
220
221

000000
000000

N NN N NN NN WNO
NNNNNNNNNNND

e
e
b
D

180 010322
181 010330
182 010336
183 010344
184 010352
185 010360

179

012760
012750

176 010306
177 010314
178

[~lelalelels)

001407

000042

001142
001140

052702

000001

004737

055156

#0,RMDC (RO)

#0.RMFR2(R0)

:LOAD RMDC

:LOAD RMER2

;READ BACK ALL nscxsrsas
MOV
MOV

:STORE RMCS1 IN INPUT BUFFER
RMCS1]
1(no>
RHDA(RO) MDAI ;STORE RMDA IN INPUT BUFFER

MOV

(RO ,RMERTI
RMER1

SSTORE RMER1 IN INPUT BUFFER

Mov

RMER2 (RO ,RMER21’

;STORE RMER2 IN INPUT BUFFER

MOV
MoV

001400

RMOF (RO) ,RMOF1 ~ ;STORE RMOF IN INPUT BUFFER
RMDC (RO) ,RMDCI :STORE RMDC IN INPUT BUFFER

;CHECK EACH REGISTER CONTENT FOR zsno BITS WRITTEN & READ
MOV

001336
001370
001372
001400

#-1,R?

CCUMULATE 2EROS IN R2

BIS

#°CiLF76,RMCS1] ssr ALL BITS NOT WRITTEN

8IS

#XNUER2,RMER2]

COM

RMDAI

BIS
BIS

coM

com
CoM
COM
COM
8IC
8IC
8IC
8IC
BIC
BIC

BEQ

#XNUOF,RMOF
]
#XNUDC SRMDC

RMCS11

RMER11]
RMOF1
RMDC]
RMERZI
RMCS1I,R2
RMDAI ,R2
RMER1I ,R2
RMOF
I ,R2
RMDCI ,R2
RMERZ21 ,R2

108

;COMPLEMENT REGISTER CONTENTS

sACCUMULATE ALL ZERO BITS

;BRANCH IF EACH BIT IS ZERO

;ONE OR MORE BIT POSITIONS ARE NOT ZERO
MOV

:SAVE RESULT FOR TYPE

;LOAD EXPECTED RESULT

8IS

#8I1T0,R2

;SET ERROR FLAG

JSKH

PC,CNTLLR

:G0 CLEAR CONTROLLER

EMT

108:

R2,$8DDAT
$GDDAT
5

CLR

JPRESET SELECTED REGISTERS TO ZEROS
000000
000000
000000

000006
000032
000034

222 010550
223 010556
224 010564
010572
225 010600
226 010606
227 010614
228

000000

230 010622

001336

2 29

MOV

001400

010237
005037
104005

MOV

000034
000042

000042

; (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT)

MOV

#0,RMDA (RO)

:LOAD RMDA

MOV

#0_RMDC (RO)

*LOAD RMDC

MOV

#0_RMOF (RO)

*LOAD RMOF

:WRITE ONES IN SELECTED REGISTERS
MOV
#ILF76 ,RACS1(RO)

:LOAD RMCS?

:LOAD RMDA

MOV

#-1,RMOA (RO)

MOV
MOV
MOV
MOV

#CXNUOF_RMOF (R0)
*LOAD RMOF AGAIN TO SET SSEI
#*CXNUDC ;RMDC (RO)
*LOAD RMD(C
;LOAD RMER1
#-1,RMERT(RO)
;LOAD RMER2
#CXNUER2,RMER2 (RO)

MOV

#*CXNUOF,RMOF(RoS

JREAD ALL REGISTERS

MOv

RMCS1(RO) ,RMCS1]

:LOAD RMOF

;STORE RMCS1 IN INPUT BUFFER

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-5

SEQ 0100

TRISTATE TRANSFER TEST

231 010630
232 010636
233 010644

016037 000006
016037 000632
016037 000036

234 010652 016037 000014 001352
%gg 010660 016037 000042 001400

237
238 010666
239 010674
240 010702

042737

042737
042737

177701

MOV
MOV
MOV

001344
001370
001372

001336

MOV
MOV

001336

CLR
BIS

R2
RMCS11,R2

;ACCUMULATE ONES IN R2
-ACCUMULATE ALL ONE BITS

177777

CMP
BEQ

#-1,R2
208

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

253 010756

010237

001142

256 010772

052702

000002

258 010776
259 011000

005702
001130

252

022702
001410

001370
001372

BIC

8IS
8IS
BIS
8IS
8IS

010762 012737 177777 001140
254
255 010770 104006
257 010776

263 011006

264

004737

208:

258:

055156

265 011012

010260

000006

267 011026
268 011032

010260
010260

000034
000014

016037
016037
016037

000006
000032
000034

#XNUERS ,RMER21]
RMDAI ,R2
I _R?2
RMOF
RMDCI.R2
RMER1],R2
RMER2] .R2

:ONE OR MORE exr posxr:ons ARE NOT ONE

gg? 011002 012702 000001

262 011006

$8DDAT
,$GDDAT
a-i
6
#81T1,R2

;SET ERROR FLAG

ST
BNE

MOV

R2
308

#1,R2

;ANY ERRORS DETECTED 7?
*YES - DONT DO BIT TEST

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

BIS

R2,RMDA (R0)

nov
MOV

000042

MOV

R2.RMER2(RO)

272 011042
273 011050
274 011056

MOV
MOV

001344
001370
001372

275 011064 016037 000014 001352
5;9 011072 016037 000042 001400

278
279 011100

280 011102
281 011106
282 011112
283 011114

284 011116

285 011120

005003

012704 177777
013705 001344
050503
005105
040504

013705

001370

‘RO=BIT POSITION

;WRITE rne exr PATTERN IN SELECTED DEVICE REGISTERS

266 011016 010260 000032
011022 010260 000032
010260

;SAVE RESULT FOR TYPE
RESULT
*EXPECTED

MOV
MOV
EMT

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

ggg 011036

-STORE RMER1 IN INPUT BUFFER
“STORE RMER2 IN INPUT BUFFER

#XNUOF, RMOF|
#XNUDC .RMDC]

001344
001370
001372
001352
001400

249 010750
ggg 010754

RMERT (ROS ,RMERT]"
RMER2 (RO) .RMER2]

BIC
BIC

160577
176000

053702
053702
053702
053702
053702

244 010724
245 010730
246 010734
247 010740
248 010744

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

:CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ
SCLEAR ALL BITS NOT WRITTEN
#ACILF76,RMCST]
BiC

241 010710 042737 001527 001400
242 010716 005002
2463 010720 053702

RMDA(RO) ,RMDA]
RMOF (RO) _RMOF]I
AMpC (RO) RMDCI

R2.RMDC (RO)
R2.RMER1(RO)

:READ BACK THE REGISTERS

MOV
MOV
MOV

MOV
MOV

RMDA(RO) ,RMDA]
RMOF (RO) CRMOF]
RMDC (RO) RMDCI

sLOAD RMDA

*LOAD RMOF
‘LOAD RMOF AGAIN TO SET SSEI
:LOAD RMER2

*LOAD RMDC
:LOAD RMER1

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

RMER1 (ROS ,RMERT]’
RMER2 (RO) RMER2]

-STORE RMER1 IN INPUT BUFFER
*STORE RMER2 IN INPUT BUFFER

;CHECK REGISTER CONTENTS FOR CORRECT PATTERN
R3=ACCUMULATED ONE BIT
R3
CLR

MOV
MOV
BIS
CoM

#-1.R4
RMDA; ,RS
RS,R3’
RS’

MOV

I ,RS
RMOF

BIC

ns R4

*R4=ACCUMULATED ZERO BITS

SGET ANY GOOD BITS FROM RMDA
:GET GOOD BITS FROM RMOF

C RNBAO RM80 DSKLS PT1 MACRO V04.00
TRIS TATE TRANSFER TEST
T

hu—c:hfighqah-h1g-h«3h<~1;hu—
<fiflgm¢'s<fi
N ZNOIKCOHO RN

ZOODOSODODEODADERODOAODDETODDOADD

&
N

VN = NSNISNWNY

[=l{=lelololelelelalal
VIS WA
AN
DnWn

160577

001372
176000
176000

001352

001400
001527

e e

001527

—

coM

[=3=
(==

286 011124
287 011130
288 011132
289 011134
290 011140
291 011142
292 011146
293 011152
294 011154
295 011156
296 011162
297 011164
298 011170
299 011172
300 011174
301 011176
302 011202
303 011206
304 011210
305 011212
306 011216
307 011220
308 011222
309 011224
310 011226
311 011230
312 011232
313 011234
314 011236
315 011242
316 011246
317 011250
318
319
320 011252
321 011252
322 011254
323 011256
324 011262
325
33
332

SEQ 0101

14-JAN~82 16:33:00 PAGE 13-6

000404

#XNUOF ,R5
Rg.RS
R

#XNUOF ,R5
R5,Ré

;GET GOOD BITS FROM RMDC

RMDCI RS
#XNUDC RS
Rg.RB
R

#XNUDC,RS
R5,R4
RMER1I,RS
R5.R3
RS
RS.R4
RMER2I ,RS

;GET GOOD BITS FROM RMER1

:GET GOOD BITS FROM RMER?2

#XNUER2,RS

25.R3
5
#XNUERZ2 ,R5
R5,R4
R2,R5
R5

sRESET ALL ONES IN R3 EXCEPT
cFOR THE TEST BIT

2
R2,$GDDAT
;3.$BDDAT

sRESET TEST BIT IN R4
;COMBINE ACCUMULATED 1°'S + 0°S
:1S PATTERN 0K??
sYES!!
sSAVE TEST PATTERN
sSAVE RESULT

308

:SKIP TO NEXT

- ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST

006302
001402
000137

26$:
011006

308
25%

:
308

sSHIFT THE BIT
sEXIT IF DONE

:'ttttttttttttttttttttttt'ttttt.tittt.ttt.ttttttttltfitfitt..t't'.'

SwTEST 6

E:NOTE: REGISTER SELECT 16 IS TESTED BY THE °‘‘ILR'* TEST
;:tttttttttttttttttttttttt'ttt'tt't.ttittt.t.t.ttt't..fi'..t.tt.lt

333
334
335

011262
011262
011264
011266
011272
011276
011302

TST6:

001100
001276
001466

000006

001226

SCOPE
NOP
MOV

sSCOPE CALL

MoV

ssSET TEST NUMBER IN APT MAIL BOX

MOV
MOV

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

sTHE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR
sEACH DEVICE REGISTER

.«

—M

—ted wd b OO
=
=2 2 OO0
D) = OO == OO
= OO
SO O=ORAO=OO— O=0

b =d =2 ODOOOOOOO

SRy|
(eleolelelelalalelololalololelelo

RMCS1
RMDS

RMER1
RMMR1

—b ced b cnd s

RMAS
RMDA
RMDT
RMLA
RMSN

;EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE,
;STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1.
;FOR S=A=0, RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER

sTHAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE

;BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE,
;RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0,

055156

U‘NN-‘—‘gOO

—

NN N NN NN N NN NN
O NN
WNWNNIN =
ORI NOONONONON

004737

b e S
b b b
b
e
i
b
b
b e

NOVNONNOONNVN

177777

HBDBDDEDN

=
-

— b
b ad

b
b

ad b b b b b b
b o e e i ndh caaih e

elelelelelalelelelalelels

005002
012703

;THE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1
sWILL NOT BE O WHEN READ BACK.

(elelelelelol=ia)

SEQ 0102

001352
176000
001372

055156

CLR

MOV

;R2= ZEROS SOURCE
*R3= ONES SOURCE

sTEST REG SEL 1 FOR S=-A-0
PC,CNTCLR
JSR
MOV
MOV
MOV
MOV
MOV
MOV

CMP
BNE
BIS
CMP
BNE
EMT

;G0 CLEAR CONTROLLER
RMERT
:LOAD
RO.RMERT(RO)
R2.RMDC (RO)
*LOAD RMDC
:LOAD RMMR1
R3I.RMMR1(RO)
*LOAD RMHR
R3.RMHR (RO)
<STORE RMER1 IN INPUT BUFFER
RMER1 (RO) , RMER1]
IN INPUT BUFFER
RMDC
;STORE
C
,RMDCI
(RO)
RMD
R3,RMER1]

108

#XNUDC ,RMDCI
R3,RMDCI

108
10

TEST REG SEL 1 FOR S=-A-1
0s:
PC,CNTCLR
JSR
MOV

Mov

000030

R2
#<1,R3

MOV
MOV
MOV
MOov

R2 .RMDA (RO)
R .RMOF (RO)
R2 .RMOF (RO)

:G0 CLEAR CONTROLLER
*LOAD RMDA
*LOAD RMOF
*LOAD RMOF AGAIN TO SET SSEI

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

*LOAD RMAS
*LOAD RMSN

R2.RMER2(R0)

:LOAD RMER2

- P

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-7

CZRNBAO RMBO DSKLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 13-8

SE@ 0103

000040

NN20O
NNRO
W
NOSERONO
oN &~
80\10‘0\11\”4\4\
[=1,¥P
JeoF JoP le] gWNN
S NN
= = ONN ownnS

MOV
MOV
Mov
MOV

001344

CMP
BNE
8IS
CMP
BNE
8IS
CMP
BNE
EMT

160577
001370

001527
001400

001400

R3,RMMR2(RO)
RMDA(RO) ,RMDAI
RMOF (RO) CRMOFI

RMER2 (ROJ , RMER2]

;LOAD RMMR2
:STORE RMDA IN INPUT BUFFER
:STORE RMOF IN INPUT BUFFER

R3,RMDAI

-STORE RMER2 IN INPUT BUFFER

20§

#XNUOF
, RMOF
R3,RMOF

208
#XNUER2 ,RMER2]

R3,RMER2]
20$
11

:TEST REG SEL 2 FOR S=A-0

208:

004737
010260
010260

001001

JSR

MOV
MOV
MOV
MOV
MOV

100042
001344

WWNION,
— =

SO0

NNNNNNNVNOOOROONONO

ORI
ONI S ONOVNONON

e
b cad

VIS
B B 5 0

OO0
O(o 3V, 1V, IV, JV, IV [V [V LV, IV L)y

ad
) e

b ah crnd
b

el
—

b b
D d
b e b
b b wd
b b b
D wd b
b

b
b
b e
b b
b b b b
- ah md e
b
—d b end b b

b
mch
b md o
b b e
b
b
ad od od
b b md

b o
b b

b md and
b b cand

b
b

42
42

(dlalelelelelalelelalalelelale)

o~
T Y Y Y Y
W
o Y
-t
PONININD
= b b e e£ e
S
W=
VAW
=SO 00NN

b
b

(FeTolelolelalalololelelelolalolololele
g

cmd

b cnd

aud o

[elelelelelelolelelalelal

Sy
o
KRS

392 011436
393
011442

MOV
MOV

001344
001370
001400

MOV
MOV
MOV

CMP

PC,CNTCLR
R2.RMDA(RO)
R2 - RMOF (RO)
R2 -RMOF (RO)
RO.RMER2(R0)
R3.RMLA(RO)
R3.RMNR(RO)

R3'RMEC2(RO)
RMDA(RO) ,RMDAI
RMOF (RO) CRMOF]

RMER2 (ROJ , RMER21]
R3,RMDAI

;G0 CLEAR CONTROLLER
*LOAD RMDA
*LOAD RMOF

‘LOAD RMOF AGAIN TO SET SSEI
-LOAD RMER2
*LOAD RMLA
*LOAD RMHR
:LOAD RMEC2
>STNRE RMDA IN INPUT BUFFER
:STJURE RMOF IN INPUT BUFFER

:STORE RMER2 IN INPUT BUFFER

308

160577
001370

001370

#XNUOF
, RMOF
gg RMOF 1

001527
001400

001400

#XNUER2 ,RMER2]

R3,RMERZ]
30$
12

-TEST REG SEL 2 FOR S=A-1

$0s:

055156
000000

001352
176000
001372

104012

004737

001352
001372
001352
001372

JSR

MOV
MOV
MOV
MOV
MOV
Mov
8IS
CMP

BNE
81S
CMP
BNE
[]

[

055156

]

:GO CLEAR CONTROLLER
PC.CNTCLR
:LOAD RMER1
R2.RMERT(RO)
R2.RMDC (RO)
*LOAD RMDC
#ILF76,RMCS1(RO)
:LOAD RMCS1
:LOAD RMSN
R3,RMSN(RO)

RMER1 (RO) ,RMER1]
RMAC(RO) LRMDCI

#°CILF76.RMER1I
R3,RMER1]

*STORE RMER1 IN INPUT BUFFER

:STORE RMDC IN INPUT BUFFER

408

#XNUDC ,RMDC I

R3,RMDC
I

408
12

:TEST REG SEL & FOR S-A-0
408:
PC,CNTCLR
JSR

;GO CLEAR CONTROLLER

SEQ 0104

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-9
REGISTER SELECT TEST

OSSOSO
O

VNS NWNN

OO SO

SHOOSN
WNNN—‘OS\I\IOO\A\A

MNIPNINLNIND
NI N == d b b b d

NONLMNINPLNLNLNLNINONONON

) sl
e o
b
il

CMP
BNE
BIS
CMP
BNE
BIS
CMP

001352

176000
001372

001372

BNE

EMT

104014

R2,RMER1
(RO )
R2,RMOF (RO)
(R
R2,RMOF
RZ,RMDC

OFI
DCI

:LOAD RMER1
sLOAD RMOF

;LOAD RMOF AGAIN TO SET SSEI
sLOAD RMDC
2LOAD RMDT
:LOAD RMERZ2
;LOAD RMEC

:STORE RMER1 IN INPUT BUFFER

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

#XNUOF ,RMOF I

§3§RHOFI
0

#XNUDC ,RMDC 1

R3,RMDCI
508

TEST REG SEL 4 FOR S=-A-1

004737

§os

055156

= = OO

b
b
d
d
b
d
D e
b
D
-

b anb
b emd

b aud

([elelelelelelelelelelele]

b el = wud wd cd

0
o

MOV
MOV
MOV
MOV
MOV
MoV
MOV
MoV
MOV
MOV

000014

160577
001370

==}

)
il
b
)
b
ed amd
b —d ed e
-l

467
468 012064

0 10260
0 260
0
0
0
0
0
0
0
0
020337

MOV
MOV
MoV
MOV
MoV
MOV
MOV

001344

001344
001527
001400

001400

CMP
BNE
81S
CMP

001400

BNE
EMT

104015

004737

PC,CNTCLR

R2,RMDA(RO)
R2,RMER2(RO )
R3,RMDS (R0)
R3.,RMOF (RO)
R3,RMOF (RO)
RMDA (RO) ,RM DAl

260 CLEAR CONTROLLER

s LOAD RMDA
.L

:LOAD RMER2
:LOAD RMDS
sLOAD RMOF

;LOAD RNOF AGAIN TO SET SSEI
:STORE RMDA IN INPUT BUFFER
RMER2
(ROJ ,RMER2I
:STORE RMERZ2 IN INPUT BUFFER
R3,RMDA1
60
#XNUER2 ,RME R21

R3,RMERZ]
608
15

TEST REG SEL 8 FOR S-A-0
0s:

055156

001352

JSR

MOV
MOV
MOV
MOV

001352
001344

;GO CLEAR CONTROLLER
R2,RMER1
(RO )
:LOAD RMER1
R2,RMDA(RQ)
sLOAD RMDA
R3,RMDC(RO)
sLOAD RMDC
R3.RMER2
(RO )
:LOAD RMER2
RMER1(RO) ,RMER1]
:STORE RMER1 IN INPUT BUFFER
RMDA (K0) ,RM DAI
sSTORE RMDA IN INPUT BUFFER
R3,RMER1]

PC,CNTCLR

70
R3,RMDAI

001344

70$
16

104016

TEST REG SEL 8 FOR S=-A-1

004737
010260
010260

055156
000032
000032

708

JSR

MOV
MOV

PC,CNTCLR

R2,RMOF (RO
R2,RMOF (RO

466

so NO SO ORI

012046
012054
012060
012062

oo 0000000000

462
463
464
465

Yy
&S
(¥, 1V, 1V, ]
oo
-0 OONO
NS WO

NNI’\)NNN—I-—D_A_.:‘.

448 011746
449 011752

:G0 CLEAR CONTROLLER
:LOAD RMOf
:LOAD RMOf AGAIN TO SET SSEI

;LOAD RMER2
:LOAD RMDS

;LOAD RMER1

001372

001527
001400

001400

80$
#XNUER2 .RMER2!

176000
001372

#XNUDC ,RMDC1

160577

104017

xxguor.anorl

R3,RMDCI

80$:

EMT

SRTEST 7

001226

OO0OCDOOO0O0

000026
020026

001142
001142

MOV
CMP

024026

001142

001136
000026

001136

054046

adeadedad
o b b ad

b =
N

001100
001276
001466
000007

:SCOPE CALL
#STACK,SP

$BASE ,RO
TSTQUE ,R1
#7 ,S$TESTN

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

::SET TEST NUMBER IN APT MAIL 80X

RMDT (RO) ,$BDDAT sSTORE RMDT AT $BDDAT

#SNGPRT
, $BDDAT

:SIN?%E PORT RM80??

.YES..

MoV
ADD

108
#DULPRT ,$BDDAT
108
RO, $BDADR
#RMDT ,$BDADR

JMP

$EOSP

.GO TO NEXT DEVICE

BEQ
CMP
BEQ

EMT

10$:

diiidttttdds)

2232322233223 3322222222220 d0dddd ittt idlldd)

SCOPE

NOP
MOV
MoV
MoV
MoV

-t

A HAIVIVIVIVAVIA

N NN N N NN AN A N N NI N N
CONOVWA=
O 0NV

VWA

DRIVE TYPE TEST

b o

OO0OO00O00O

Ts17:

:DUAL PORT RM80??
JYES!!
:LOAD BAD ADDRESS

st A AANRNRRR R RN RRAARNRNRAR IR RN E AR RAANRRAARARARARARAARRARARARRERRARACRARR

L*TEST 10
c

001226

NOP
Mov
Mov
MOV
MOV

055156
000000

001142

Mov

OOOO0O0OO0O0

—d e and b nd b
RN
BSOS
NOO\WVIWWVIAA
NN

fst10:
001100
001276
001466
000010

OO0

DEVICE AVAILABLE TEST

AN AAARRANRNARNRARARRANRARCAARANNRARNRARARCRARAAARAAACAACRARACRRAR

——d
NN
VAY
OO
£SO

&~
-0

R3,RMERZ]
80$

2223232228022 3223223 2223232233223 3223312322232 22222200

53232222228 222 s

sLOAD RMDA

;STORE RMOF IN INPUT BUFFER
sSTORE RMDC IN INPUT BUFFER
RMER2
(ROS ,RMER2]
:STORE RMER2 IN INPUT BUFFER

001370
001372
001400
001370

1
RMDC (RO) ;RMDC]I

b e

d d

SNSRROSO
N

NI O AN

hnunn&*b%flhflhohhfl<953
S NOOONSNSOONONNOINON

—b

d e

ad e

NN NLNLNNLNININ
N NININININNIN)
N N N N N N NN N N N A N NI N RO NN
NN

(elololelolelelalalelolalolelelele
e

sLOAD RMD(C

000034

VIV

N"U-‘—hfl-‘—‘—hfl-‘—MHCDCNDCNDia
S OVONOWVIEWNN
= OO0V

WMVIVTIA IV
[o]e]

:SCOPE CALL

SCOPE

JSR

#STACK,SP

, RO
$BASE
TSTQUE,R1

#10,$TESTN
PC,CN TCLR

RMCS1(RO) ,$BDDAT

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS
sR1 = POINTER TO DEVICE
ssSET TEST NUMBER IN APT MAIL BOX
;60 CLEAR CONTROLLER
:STORE RMCS1 AT $BDDAT

SEQ 0105

CZRNBAO RMBO DSKLS PT1 MACRC V04.00 14~JAN-82 16:33:00 PAGE 13-10

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-11

SEQ 0106

DEVICE AVAILABLE TEST

110

562 012512 042737
543 012520 00100¢
564 012522 012737
545 012530 010037
546 012534

gzg 012536

104060

173777

001142

004000
001136

001140

BIC
BNE
MOV
MOV
108:

EMT

#°CDVA,$SBDDAT
108
#DVA,$GDDAT
RO, SBDADR
60

;CLEAR ALL BUT DVA
*BRANCH IF DVA SET
SSETUP EXPECTED
*SETUP REG ADDRESS

:;tttitttttttttttttttttttttttttttttfittttttttttttttttttttttttttttt

5(,9

SwTEST 11

HOLDING REGISTER TRANSFER TEST

M ;tttttttttttttttttttttttttttttttttttttttttttttttttttttt*tttttttt

012536

012540

T$T11:

000004

000240

012542 012706
012545 013700
012552 013701
50 012556 012737

001100
001276
001466
000011

004737
005003

055156

062737

000J36

551 012564
552 012570

553 012572 010037 001" 36

ggg 012576

001226

560 012604
561 012612
562 012620
563 012626
564 012632
565 012634

012760
012760
016037
005137
001405
005037

177777
000000
000036
001142

gg; 012642

052703

000001

566 012640 104061

000006
000006
001142

001140

JSR
CLR

PC.CNTCLR
R3

;GO CLEAR CONTROLLER
$CLEAR ERROR FLAGS

ADD

#RMHR , SBDADR

RO, $BDADR

:SETUP RESISTER ADDRESS

MOV
MOV
MOV
coM
BEQ
CLR

;LOAD RMDA
#-1,RMDA(RO)
*LOAD RMDA
#0 ,RMDA (RO)
(RO) , SBDDAT :STORE RMHR AT $BDDAT
RMHR
*ANY ERROR??
$8DDAT
*NO!!
108
*LOAD EXPECTED
$GDDAT

BIS

#81T0,R3

:SET ERROR FLAGS

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

571 012646

012760

000000

000006

573 012662
574 012670

016037
005137

000036
001142

001142

576 012702
577 012710
578 012712
g;g 012714

023737
001403
1046062
052703

001140

001142

10s:

572 012654 012760 177777 000006

MOV

#-1,_RMDA(ROY

MOV

#-1,$GDDAT

CMP
BEQ
EMT
BIS

000002

#0 ,RMDA (RO)

MOV

MOV
COM

575 012674 012737 177777 001140

:LOAD RMDA

(RO) , $BDDAT ;STORE RMHR AT S$SBDDAT
RMHR
‘RMHR IS COMPLEMENTED WHEN READ
$BDDAT
$GDDAT,SBDDAT
208
62
#81T1,R3

*SETUP EXPECTED
:ANY ERROR??
*NO!!

:SET ERROR FLAG

-1F NO PREVIOUS ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN.

581

208:

583 012720
584 012722
585 012724

005703
001025
012702

000001

587 012730
588 012736

012760
010260

000000
000006

586 012730

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

EMT

569

582 012720

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

:WRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS.
NOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN
‘282585E° WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS

556
557
ggg

570 012646

MOV
MOV
MOV
MOV

MOV

001136

;SCOPE CALL

SCOPE

NOP

000006

308:

ST
BNE
MOV

R3
508
#1,R2

:ANY FLAGS SET??
SYES!!
*RO=DATA PATTERN

MOV
MOV

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

:LOAD RMDA
*LOAD RMDA

SEQ 0107

NBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-12
HOLDING REGISTER TRANSFER TEST

016037
005137
023702
001404
010237
104063
000402

000036
001142
001142

001142

Mov

COM
CMP
BEQ
MOV

001140

EMT
BR
40$:

006302
001355

ASL
BNE

RHHR(RO) $BDDAT STORE RMHR AT $SBDDAT
R IS COMPLEMENTED
$BDDAT
ANY ERROR??
$8DDAT,R2

ngSGDDAT

SgTUP EXPECTED

508

;DO NOT COLLECT ALL ERRORS

R2
308

sSHIFT TO NEXT PATTERN
;CONTINUE IF NOT DONE

50%:
ttt.i.ttttfitttttttttt"tQttt'tt.ttttt't't.t"'t"t"ttfi'ttttt't

tTEST 12

CONTROL STATUS #1 TRANSFER TEST

ANC NN
NRAN
ANRARNRANNNR
NRAN
I AR RARRANNRACNA
RANA
RN CAANN
CHARANRN

47112

000076

004737

055156
000000
177701
001140
001136
000000

000000

$BASE ,R
TSTWUE R

#12,8TESTN
R3

PC,CNTCLR

:LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS
:R1_= POINTER TO DEVICE

:2SET TEST NUMBER IN APT MAIL BOX
;R3= ERROR INDICATOR

;60 CLEAR CONTROLLER

sWRITE ONES IN RHCS1 BITS 01-05, THEN CLEAR. READ AND
;CHECK FOR S-A-1 BIT
llLF76 RMCS1(RO)
:LOAD RMCS1
MOV
JSR

PC,CNTCLR

BIC
8EQ
CLR

#°CILF76,$BDDAT

MOV

MOV
ADD

001136

EMT

;G0 CLEAR CONTROLLER

RMCS1(RO) , $BDDAT’

;STORE RMCS1 AT $BDDAT

012760

CLR

JSR

#STACK,SP

055156

005003
004737

001226

—b

001100
001276
001466
000012

sSCOPE CALL

SCOPE

NOP
MOV
MOV
MoV
Mov

o0
(=1

000004
000240
012706
013700
013701
012737

$GDDAT
RO, $BDADR

z§HCSI.$BDADR

purd

(=]

HNWNNNNINYNNOO

b
b
b
d
d
b

635 013160

=
=]
ONINNN—
N

b mh

VNS DWW
= =00
SNONSONONN

b
e
b

A N LN N

b
b

b o b

N
~

NN N AN N

[elolelelelelalelelala)

;WRITE ONES IN RMCS1, BITS 01-05, THEN WRITE ZEROS. READ AND CHECK FOR
000076
000000
000000
177701

001140
001136
000000

000000

:5-A-1 BITS.
§s:
MOV
MOV
MOV

001142

BIC
BEQ
CLR

MOV
ADD

001136

EMT
BIS

000001

#ILF76,RMCS1T(RO)

#0.RMCS1(RO)
:;LOAD
RMCS1(RO) , SBDDAT
#~CILF76,$BDDAT

:LOAD RMCS?

RMCS1
;STORE RMCS1 AT $BDDAT

108
$GDDAT
RO, $8DADR
5§ncs1.sevon

#BIT0,R3

;SET ERROR FLAG

:WRITE 2EROS IN RMCS1, THEN ONES, READ AND CHECK S-A-0 BITS.

ios

—

CZR NBAO RMB80 DSKLS PT1 MACRO V04.00 14-JAN-82
CONTROL STATUS #1 TRANSFER TEST
112

16:33:00 PAGE 13-13

SEQ 0108

636 013160
637 013166

012760
012760

000000
000076

000000
000000

MOV
MOV

;LOAD RMCS?
#0,RMCS1(RO)
:LOAD RMCS1
#1LF76,RMCST(RO)

640 013210
641 013216
642 013224
643 013226
644 013232
645 013240
gzg 013242

012737
023737
001410
010037
062737
104024
052703

000076
001140

001140
001142

001136
000000

001136

MOV
CMP
BEQ
MOV
ADD
EMT
BIS

#1LF76,$GDDAT
$GDDAT,$BDDAT
208
RO, $BDADR
#RMCS1,SBDADR
24
#81T1,R3

MOV
BIC

638 013174 016037 000000 001142
639 013202 042737 177701 001142

000002

650 013246
651 013250
652 013252

005703
001035
012702

654 013256

010203

653 013256

655 013260
656 013264
657 013272
658 013276

208:
000002

042703
012760
010260
016037

177701
000000
000000
000000

010337
010037
062737
104025
006302

001140
001136
000000

308:

000000

001142

667 013342

ggg 013344

001136

408:

001345

508 :

670

ST
BNE

MOV

;SET ERROR FLAG

MOV

R3
508
#2.R2

;OMIT IF ANY ERRORS

R2,R3

:R3 = EXPECTED RESULT, BITS 1=5

:R2 = TEST PATTERN

BIC
MOV
MOV
MOV

#5CILF76,R3
#0,RMCS1(R0)
;LOAD RMCS1
:LOAD RMCS?
R2.RMCS1(RO)
:STORE RMCS1 AT $BDDAT
RMCS1(RO) ,$BDDAT

MOV
MOV
ADD
EMT
ASL

R3,$GDDAT
RO. $BDADR
#RMCS1,$BDADR
25
R2

8IC
CMP
BEQ

659 013304 042737 177701 001142
660 013312 020337 001142
661 013316 001410
662 013320
663 013324
664 013330
665 013336
666 013340

*STORE RMCS?1 AT $BDDAT

-WRITE A SHIFTING ONE BIT PATTERN IN RMCS1, READ AND CHECK FOR STUCK BITS.

648

649 013246

RMCS1(RO) ,$BDDAT
#~CILF76,$BDDAT

BNE

#°CILF76,$BDDAT
R3,$8DDAT
408

308

:SHIFT TO NEXT BIT
*CONTINUE IF R2 NOT ZERO

;:ttttttttttttttttttttt'ttt'ttttttttttttfitfitfittttttt'tttt.ttttttt

S*TEST 13

ERROR REGISTER #1 TRANSFER TEST

;:ttttttttttttttttttttt'ttt'ttttttttt.ttttttttt'ttttttttt.ttttttt

013344
013344

000004

013350
013354
013360
671 013364

012706
013700
013701
012737

013346

000240

1$113:

001100
001276
001466
000013

SCOPE

NOP

001226

g;g 013372

005003

674
g;g 013374

012760

177777

000014

677 013402
678 013406
679 013414

004737
016037
013737

055156
000014
001352

001352

681 013430
682 013432

001410
005037

001140

001142

680 013422 042737 177760 001142

:SCOPE CALL

MOV
MOV
MOV
MOV

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

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

CLR

;CLEAR ERROR FLAG

:WRITE ONES IN RMER1, CLEAR AND CHECK FOR S-A=-1 BITS
MOV
#-1_RMERT(RO)
;LOAD RMERI
JSR
MOV

MOV

BIC

BEQ
CLR

PC.CNTCLR
:GO CLEAR CONTROLLER
RMER1 (RO) ,RMER1]
:STORE RMER1 IN INPUT BUFFER
RMER1],SBDODAT

ILR>,$BDDAT
ILF 'TRMR!
#-C<PAR
108
$GDDAT

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-14

SEQ@ 0109

ERROR REGISTER #1 TRANSFER TEST

113

687 013452

013737

001352

001142

689 013466
690 013470
691 013474
692 013500
693 013506

001410
005037
010037
062737
104030

001140
001136
000014

001136

001352
147777

001142
001142

001140
001136
000014

001136

o
oo

jrd

001136

(V.J
P

001136
000014

010037
062737
104027

684 013442
685 013450
686 013452

688 013460

694 013510

695 013510
696 013516
697 013524
698 013526
699 013532
700 013536
;35 013544

042737

013737
042737
001410
005037
010037
062737
104031

074017

001142

704 013546
708 015570
709 013576
710 013604
711 013606
712 013612
713 013616
714 0136264
715 013626
716 013632
717 013640
718 013646

719 013650
720 013654
721 013660
722 013666

723 (13670

724 013674
725 013674
726 013702
727 013710
728 013712
729 013716
730 013722
731 013730

;gg 013732

012760
012760
016037

013737
042737
001412
005037
010037
062737
104032
052703
013737

042737

001412
005037
010037
042737
104033
052703
013737
042737
001412
005037
010037
062737
104034

052703

177777
000000
000014

000014
000014
001352

001140
001136
000014

001136

001352
177770

000001
001352
074017
001140
001136
000014

735 013736

$08:

001142
001142

001142

40$:

001136

000001
001352
147777

001142
001142

001140
001136
000014

001136

508:

RMER11,$BDDAT

BIC

#2C<DCK ' IAE 'AOE 'HCRC 'HCE 'ECH'WCF ' FER>,$SBDDAT

MOV
BIC
BEQ
CLR
MOV
ADD
EMT

RMER1],$BDDAT
#~C<OP'DTE>,$BDDAT
308
$GDDAT
RO, $8DADR
#RMERT,$BDADR
31

BEQ
CLR
MOV
ADD
EMT

MOV
MOV
MoV

MOV
BIC
BEQ
CLR
MOV
ADD
EMT
BIS
MOV

BIC

BEQ
CLR
MOV
ADD
EMT
8IS
MOV
BIC
8EQ
CLR
MOV
ADD
EMT

8IS

030000

208
$GDDAT
RO, $8DADR
#RMER1T, $8DADR
30

;LOAD RMER1
#-1,RMER1(R0)
RMER1
:LOAD
#0,RMER1(RO)
:STORE RMER1 IN INPUT BUFFER
RMER1 (RU) ,RMER1]
RMER1]1,$BODAT
#°C<RMR'ILF'ILR>,$BDDAT
408
$SGDDAT
RO, $8DADR
#RMER1, SBDADR
32
:SET ERROR FLAG
#81T0,R3
T
RMER11,S$BDDA
#°C<DCK' IAE 'AOE 'HCRC 'HCE 'ECH'WCF 'FER> , $SBDDAT
508
$GDDAT
RO, $8DADR
#RMER1T,SBDADR
33
#81T0,R3

:SET ERROP FLAG

RMER1]1,$BDDAT
#°C<0Pi 'DTE>,$BDDAT
60$
$GDDAT
RO, $B8DADR
#RMER1, $BDADR
34

#81T,R3

:WRITE ZEROS THEN ONES IN RMER1,READ AND CHECK FOR S-A-0 BITS

734

736 013736

208:

MOV

RO, , $BDADR
#RMER1, SBDADR
27

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

703

705 013546
706 013554
707 013562

108:

MoV
ADD
EMT

012760

000000

000014

737 013744 012760 177777 000014
738 013752 016037 000014 001142
739 013760 012737 177777 001140

:
608

MOV

MOV
MOV
MOV

#0 RMER1(RO)

:LOAD RMER1

:LOAD RMER1
#-1,RMER1(RO)
;STORE RMER1 AT $BDDAT
RMERT (RO) , SBDODAT
#-1,8GDDAf

7640 013766
7641 013774
7642 013776
7643 014002
7646 014010

;22 014012

023737
0014610
010037
062737
104035

052703

001140

001142

001136
000014

001136

16:33:00 PAGE 13-15
CMP
BEQ
MOV
ADD
EMT

BIS

000002

SEQ 0110

$GDDAT,$BDDAT
70$
RO, $8DADR
#RMER1, $BDADR
35

#8IT1,R3

;WRITE A SHIFTING 1 BIT IN RMER1 AND CHECK FOR STUCK BITS

767

“NOTE:

748

749 014016

750 014016

708:

005703

751 014020
752 014022

001042
012702

000001

754 014026
755 014032

004737
010260

055156
000014

753 014026

756 014036
757 014044

758 014050
759 014052

760 014060

761 014064
762 014066
763 014074

016037
032702

001003
042737

032702

001003
042737
020237

764 014100 001410

765 014102
766 014106
767 014112
;gg 014120

010237
010037
062737
104036

770 014122
771 014124

006302
001340

;;g 014126

808:

000014

001142

000010

001142

000010

040000

040000
001142

001140
001136
000014

001142

DONT TEST UNSAFE OR PARITY

1008:

001136

1108:

1208 :

:SKIP THIS PART IF ANY ERRORS

BNE
MOV

1208
#1,R2

:R2 = TEST PATTERN

JSR
MOV

PC.CNTCLR
R2'RMERT(RO)

;GO CLEAR CONTROLLER
:LOAD RMERT

BIT

#PAR,R2

;DONT TEST PAR = 0

#UNS .R2

:DONT TEST UNS = 0

MoV
908:

RMERT (RO) , SBDDAT

BNE
BIC

908
#PAR, $SBDDAT

BNE
BIC
CMP

1008
, SBDDAT
#UNS
R2,$8DDAT

BIT

BEQ

:STORE RMER1 AT $BDDAT

1108

MOV
MOV
ADD
EMT

R2.$GDDAT
RO, $BDADR
#RMER1,$BDADR
36

ASL
BNE

R2
80s

;SHIFT TO NEXT BIT
*CONTINUE IF R2 NOT ZERO

:;tt.ttt'tttttttlt!ttt'ttttttt'ttttttttttttttttttttttttttttttt'tt

774

SeTEST 14

CLEAR OFFSET STUCK ACTIVE TEST

:;'ttttttttttttti.tttt'Qtttt'ttttttt'ttt.ttttttttt.ttttfittttttttt

014126

TS114:

:SCOPE CALL

SCOPE

014126

000004

014132
014136
014142

012706
013700
013701

001100
001276
001456

MoV
MOV
MOV

#STACK, SP
$BASE ,RO
TSTQUE ,R1

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

776 0141564

004737

055156

JSR

PC,CNTCLR

:60 CLEAR CONTROLLER

014166
778 014174

012760
016037

177777
000032

780 014210
781 014212

001011
012737

014130

000240

NOP

MOV

775 014146 012737 000014 001226
777 014160 012760 172777 000032

MOov

177577

001142

BIC

000200

001140

779 014202

782 014220
783 014224
784 014232
785 014234

042737

010037
062737
104172

001136
000032

000032
001142

001136

108:

#14,$TESTN
#-1_RMOF(RO)

S;SET TEST NUMBER IN APT MAIL BOX
:LOAD RMOF

MOV
MOV

-LOAD RMOF AGAIN TO SET SSEI
#-1.RMOF (RO)
RMOF AT SBDDAT
:STORE
RMOF (RO) ,$BDDAT

BNE
MOV

108
#OFD, SGODAT

MOV
ADD
EMT

#-COFD,$BDDAT

RO, $8DADR
, $8DADR
NRMOF
172

:BRANCH IF OFD IS A ONE
‘SETUP ERROR MESSAGE
;END OF TEST

-t

(94 RNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82
n3
ERROR REGISTER #1 TRANSFER TEST

C 4 R NBAO
T14

SEQ 01

RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-16
CLEAR OFFSET STUCK ACTIVE TEST

786

Qt.tt..'Q.'t""t""""""fi.Q.Q.t'..Q"t'Q".'Q'."Q.Q.".t'

787

«rssr 15

OFFSET REGISTER TRANSFER TEST

Q
o

(=]

N
~

T1ST1S:

2737

2760
2760
6037

-—h

o
(V]

013737
=4
o

NOOON

T
vy
I v

S
NN
N
O
HOON

oo Qunr Q- QG

(=lalelolag

Quary

—b

(olelele]

—

ol
X 2R OB

—d

b o

b ol

(ellol-Nololelelelel]

¥ o o X 0l o 2 o
AINLAINNORNIND

OO
et
‘N‘ng’
IV. T
oo
N (Y#%D’NDSLBJ‘

;;tttt.ttt"Qtt'.tt.t""'tt"tfit't..'tfiQttt'.tt.".tttt.tt".tt.

001100
001276
001466
000015

001136
000032
001140

177777

177777
000000
000032

001370
017200

001142
001142

#STACK,SP

:LOAD THE STACK POINTER

MOV

#15,STESTN

t:SET TEST NUMBER IN APT MAIL BOX

CLR

:RESET ERROR FLAGS

CLR

$GDDAT

:SETUP EXPECTED DATA

MOV
ADD

001136

:SCOPE CALL

MOV

MOV
MOV

001226

000032

382’5

$BASE ,R0
TSTQUE . R1

RO, $BDADR
F
, $8DADR
#RMO

‘RO = UNIBUS ADDRESS
‘R1 = POINTER TO DEVICE
*SETUP BAD ADDRESS

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

MOV
MOV
MOV

#-1,RMOF (RO)

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

:LOAD RMOF

LOAD RMOF AGAIN TO SET SSEI
‘LOAD RMOF

:STORE RMOF IN INPUT BUFFER

:CHECK UNUSED BITS OF RMOF FOR ZERO
;GET UNUSED BITS
] ,$BDDAT
RMOF
MOV
#*CXNUOF,S8DDAT
BIC
;BRANCH IF NO ERROR
;gs
25?

BIS

000001

#81TO,R3

:SET ERROR FLAG

iggscx USED BITS OF RMOF FOR ZERO

NOWVSHMNNN=O0O

737
737

001370
100577

703

000001

00M
0011

mov

BIC
25?

BIS

RMOF],8BDDAT

;GET USED BITS

OF
, SBDDAT
AXNU
ggs

:BRANCH IF NO ERROR

#8ITO,R3

;SET ERROR FLAG

53@!75 ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-0 BITS.
760

000000

mov
MOV
MOV

MOV

N pivquiry

(o Yo
Yo J

—d b ad b b b wnd b

1o -To Yo -To Yo To To To J

808

s urQurd

OO0

4456
4456
4464

RMOF (RO) ,RMOF]

:LOAD RMOF
:LOAD RMOF
:LOAD RMOF AGAIN TO SET SSEI

-STORE RMOF IN INPUT BUFFER

; CHECK u~us£o 8ITS OF RMOF FOR ZERO.
;GET UNUSED BITS
RMOF].$8DDAT
#CXNUOF, S8DDAT
exc
:BRANCH IF NO ERROR
308
BEQ
53
EMT
#BITO,R3
BIS

821 014432

825 014452

#0, RMOF (RO)
#-1.RMOF (RO)
#-1_RMOF(RO)

052703

égggcx USED BITS OF RMOF FOR ONE,
013737
062737

00
16

mov

BIC

RMOF],$BDDAT

#XNUOF, SBDDAT

:GET USED BITS

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14 <JAN-82
OFFSET REGISTER TRANSFER TEST
TS

831 014472
832 014500
833 014506
834 014510
ggg 014512

012737
023737
001403
104055
052703

017200
001140

840 014516
841 014520

EMT
8IS

000002

“IN 18 BIT MODE.
408:

012760

847 014552

010203

849 014560
850 014564

042703
020337

000000

000032

508:

010337

851 014570 001401

gg; 014572

104056

854 014574

006302

861 014604

012760

000000

052702

010000

708
000032

808:

910203

010337

042703
020337

869 014652 001401

872 014656

MOV

R2.R3

SSETUP EXPECTED RESULT

wx~uor'ssex R3
R3,$BDDAT

;CLEAR UNUSED BITS
{COMPARE EXPECTED & RECEIVED

ASL

BNE

*LOAD RMOF
R2.RMOF (RO)
*LOAD RMOF AGAIN TO SET SSEI
R2_RMOF (RO)
RMOF (RO) , SBDDAT :STORE RMOF AT $BDDAT
R3.$GDDAT

“BRANCH IF NO ERROR

;SHIFT TO NEXT BIT

50$

*CONTINUE IF NOT DONE

160577
001142

042702

873 014662 006302
874 014664 001347
g;g 014666

010000

#1,R2

;STARTING DATA PATTERN

MOV

#0,RMOF (RO)

;

MOV
MOV
MOV

SLOAD RMOF
R2,RMOF (RO)
‘LOAD RMOF AGAIN TO SET SSEI
R2_RMOF (RO)
RHOF(RO) $BDDAT :STORE RMOF AT $BDDAT

MOV

R3.SGDDAT

1008 :

ssr 16 exr MODE WITH ROTATING PATTERN
‘SETUP EXPECTED RESULTS

BIC
P

#XNUOF ,R3
R3,$BDDAT

:CLEAR UNUSED BITS
connecr BITS SET ?

EMT

BEQ
908:

#FMT16,R2
g

MOV

001140

104056

MOV

BIS

863 014616 010260 000032
014622 010260 000032
864 014626 016037 000032 0011642

870 014654
871 014656

:LOAD RMOF

STARTING DATA PATTERN

-TEST RMOF WITH SHIFTING ONE BIT PATTERN IN 16 BIT MODE

000001

866 014636

#0,RMOF (RO)

BEQ

60$:

012702

867 014642
868 014646

MOV

EMT

859 014600

865 014636

#1,R2

8IC
CMP

161577
001142

857

862 014612

55
#BIT1,R3

MOV

001140

ggg 014576 001353
860 014604

#4CXNUOF ,$GDDAT ;SETUP EXPECTED STATUS
$GDDAT, SBDDAT
:BRANCH IF NO ERROR
408

sANY ERROR??
“YES!!

MOV
MOV
MOV

845 014534 010260 000032
014540 010260 000032
846 014544 016037 000032 001142

858 014600

SEQ 0112

R3
1008

ST
BNE

005703
001062

844 014526

848 014554

.IF NO PREVIOUS ERRORS, TEST RMOF WITH SHIFTING ONE BIT PATTERN

842 014522 012702 000001
843 014526

MOV
CWP
BEQ

001140
001142

837

838
839 014516

16:33:00 PAGE 13-17

90§

SYES!

BIC

#EMT16,R2

:DON'T SHIFT FORMAT BIT

BNE

80s

STEST NEXT BIT

ASL

SHIFT PATTERN AND

;;ttQQQttttttt.ttt'ttt""t"t.t.tttfittttt'.tt..t".ttt.lllt.t!'.

877

TeTEST 16

ERROR REGISTER #2 TRANSFER TEST

.':'ttttt'tttttttttttttt't.ittt.t'tlt.tt.t!ttttlt.t.fittl.t'i"lt.t

014666

000004

014672

012706

014670

000240

ts116:

001100

014676 013700 001276

:SCOPE CALL

SCOPE

NOP

MOV

#STACK, SP

$BASE ,RO

;LOAD THE STACK POINTER

‘RO= UNIBUS ADDRESS

C 4 R NBAO
T16

ERROR REGISTER #2 TRANSFER TEST
001466
000016

014702
014706

878
879 014714
880 014716
881 014722
882 014730
883 014734

001136
000042
001140
010000

884

001226

MoV
Mov

#16,$TESTN

TSTQUE ,R1

sR1 = POINTER TO DEVICE

CLR

sRESET ERROR FLAGS

001136

MOV
ADD

001444

MOV

#FMT16,RMOFO

sSETUP EXPECTED DATA
JSET 16 BIT FORMAT MODE TO ALLOW
;''SSE'* TO BE SET IN RMER2

885

886

887 014742
888
889 014750
390 014754
891 014762

892
893
894 014770

895 014776
896 015004
897 015006
898 015010
899

012760

177777

004737
013760
016037

055156
001444
000042

901 015014
902 015014
903 015022
904 015030

905 015032

906 015034
907
908
909 015040
910 015040
911 015046
912 015054
913 015056
914 015060
915
916

917 012064
918 015064
919 015072

G20 015100
921
923 015106
924 015114
925 015122
926 015124
927 015126
928
929

000042

013737
0642737
001403

CLR

RO,SBDADR
#RMER?, $BDADR
$GDDAT

2;SET TEST NUMBER IN APT MAIL BOX
:SETUP BAD ADDRESS

JWRITE ONES IN RMER2, CLEAR AND CHECK FOR S-A-1 BITS
MOV

#-1,RMER2(RO)

;LOAD RMER2

JSR

PC,CNTCLR

;60 CLEAR CONTROLLER

MOV

RMER2 (RO) ,RMER2]

MOV

000032
001400
001142
001142

RMOFO,RMOF
(RO)

:LOAD RMOF

:STORE RMER2 IN INPUT BUFFER

STEST UNUSED BITS FOR Z2ERO-FAILURE ON IF

104044

052703

MOV
BIC
?fi?

RMER21, $BDDAT
#CXNUER2, SBDDAT
:BRANCH IF NO ERROR
123

BIS

#81T0,R3

:SET ERROR FLAG

55557 "OPE'', “'IVC'’, ''LSC'' FOR ZERO-FAILURE ON CS, IF

900

922

SEQ 0113

RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-18

013737
042737
052703

mov

RMER2] ,$BDDAT

8IS

#81T0,R3

BIC
25?

E
,$BDDAT
<OP
' IVC'LSC>
#°C
{BRANCH IF NO ERROR
zgs

;SET ERROR FLAG

25§§r "LBC'’, "DPE'’* FOR ZERO-FAILURE ON DS, IF
013737

001400
175767

)

000001

pny

RMER2], $BDDAT

8IC
ggg

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

BIS

#81T0,R3

;SET ERROR FLAG

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

mov

#-1,RMER2(RO)

MOV

RMER2 (RO) ,RMER2]

MOV

#0.RMER2(RO)

;LOAD RMER2
:LOAD RMER2

:STORE RMER2 IN INPUT BUFFER

STEST "'OPE'’, *"IVC'', 'LSC'* FOR 2ERO~FAILURE ON CS, IF
MOV
BIC
Efi?

RMER21, SBDDAT
SBDDAT
#C<OPE'IVC'LSC>,
{BRANCH IF NO ERROR
293

BIS

#81TO,R3

;SET ERROR FLAG

iggsr *LBC*", "DPE'’ FOR ZERO-FAILURE ON DS, IF

mov
BIC

RMER21,$BDDAT

#2C<LBC'DPE>, $BDDAT

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-19

SEQ 0114

ERROR REGISTER #2 TRANSFER TEST

116

933 015146
934 015150
3%2 015152

001403
104050
052703

BEQ
EMT
8IS

000001

939 015156

012760

000000

000042

941 015172

016037

000042

001400

001400
176250

001142
001142

gzg 015220

013737
042737
001403
104044
052703

$os:

013737

001400

001142

953 015240
954 015246
955 015256
956 015256
3;; 015260

012737
023737
001403
104051
052703

176250
001140

001140
001142

952 015232 042737 001527 001142

RMERZ2 (RO) ,RMER¢.

:STORE RMERZ2 IN INPUT BUFFER

;SET ERROR FLAG

#81T0,R3

BIC

MOV
CMpP
BEQ
EMT
BIS

, $BDDAT
#XNUERS

#*CXNUER?Z ,SGDDAT
$SGDDAT ,$BDDAT
708
;BRANCH IF NO ERROR
51
#8IT1,R3
;SET ERROR FLAG

<1F NO PREVIOUS ERROR, TEST BIT INTERFERENCE WITH SHIFTING ONE BIT.

005703
001044
012702

965 015274
966 015300
967 015306
968 015312
969 015320
970 015324
971 015326

004737
013760
010260
016037
032702
001003
042737

055156
001444
000042
000042
040000
040000
000200

001142

974 015342

042737

000200

001142

976 015354

042737

001527

001140

978 015370
ggg 015372

001401
104052

981 015374
83% 015376

006302
001336

975 015350

MOV

;TEST USED BITS FOR ONE~-FAILURE ON IF
608:
MOV
RMERZ2] ,$BDDAT

708:

961 015264
962 015266
963 015270

972 015334
973 015340

:LOAD RMER?2

c-f,RHERZ(RO) _ ;LOAD RMER?2

:TEST UNUSED BITS FOR ZERO-FAILURE ON IF
RMERZ] ,$8DDAT
MoV
8IC
#~CXNUERZ ,$BDDAT
8EQ
603
;BRANCH IF NO ERROR
44
EMT

000002

959

964 015274

#0 ,RMER2(RO)

8IS

000001

949
950 015224
951 015224

960 015264

MOV

940 015164 012760 177777 000042
942
943 015200
944 015206
94S 015214
946 015216

:SET ERROR FLAG

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

937

938 015156

;BRANCH IF NO ERROR

508
50
#8IT0,R3

032702
001003

010237

000001

001140

80$:

000032

TST
BNE
MOV

R3
1208
# ,R2

JSR
MOV

PC,.CNTCLR
;GO CLEAR CONTROLLER
(RO) ;LOAD RMOF
RMOFO,RMOF
RZ,RMER2(R0O)
:LOAD RMER?
RMERZ(RO) ,$BDDAT
:STORE RMERZ2 AT S$BDDAT
#SK1,R2
;1S SKI BEING SET?
90$
JYES!!
#SK],$BDDAT
;DONT TEST SKI FOR ZERO

MOV
MOV

001142
90%:
1008:

977 015362 023737 001140 001142

8IT
BNE
BIC
8IT
BNE

BIC

MOV

8IC

(MP

BEQ
EMT
1108:

ASL
BNE

#DVC,R2
1008

#DV(C,$BDDAT
R2,$GDDAT

:1S DVC BEING SET??
JYES!!

:DONT TEST DVC FOR Z2ERO

#XNUER2 ,$GDDAT

;UNUSED BITS SHOULD BE ZERO

1108
52

JNO!!

SGDDAT.‘BDDAT

R2
80s

ggg 015400

120$:

986

JINNANRRA AN N AN AR

seTEST 17

JANY ERRORS?
JYES!!
;R2=DATA PATTERN

:ANY ERRORS??

JSHIFT TO NEXT DATA BIT
JCONTINUE IF NOT DONE

RN ANRA NN NANRNRERNNEA AN

SERIAL NUMBER TEST

RAERIRERS

e AARARNERNNRRANEAANRNR
AN RN G AN RARARRARARARNNAANRARAACANRNCARACARS

C 4 R NBAO RM80 DSKLS PT1 MACRO
T 1 l4
SERIAL NUMBER TEST

000004
000240

T1ST17:

012706
013700
013701
012737

00
00
00
00

426

004737

5444

012702

000031

5632
5436

016037

SEQ 0115

v04.00 14-JAN-82 16:33:00 PAGE 13-20

000030

001226

:SCOPE CALL

MOV
MOv
MOV
MOov

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

sLOAD THE STACK POINTER
;RO = UNIBUS ADDRESS
:R1 = POINTER TO DEVICE
;;SET TEST NUMBER IN APT MAIL 80X

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

MOV
ADD
Mov

001136

001140

SCOPE
NOP

RO,$BDADR

#RMSN, $BDADR

#25. ,R2

;SETUP REGISTER ADDRESS FOR TYPEOUT
sREAD RMSN 25 TIMES

sREAD RMSN AND USE THE RESULT AS EXPECTED VALUE
RMSN(RO) ,$GDDAT ;STORE RMSN AT S$SGDDAT
MOV

Py
o
(LS ],¥]

—

001140

(elelele)

b
d

o
(=4

RMSN(RO) ,$BDDAT :STORE RMSN AT $BDDAT
$GDDAT,$BDDAT

EMT

136

208

:BRANCH IF SERIAL NUMBER CONSISTENT

éggcafnsur COUNT AND CONTINUE IF NOT DONE

005302
100366

30$:

MOV
CMP

BEQ

3737

000030

Puorurd

16037

[ol=]
OO

%SEAD RMSN AND COMPARE WITH INITIAL VALUE

DEC

8PL

108

;END OF TEST

NC
AAAANASARRS
RARAA
NRARRAARAAAN
ARARR
AR ARANRARRRARR
A AARNRNAARA

LeTEST 20

CONTROL BUS PARITY DETECTION TEST

ViAW

N=2=220000
OO
NN

000004
000240

012706
013700

012737

b
b and
b
b

-t
e O

NJC)NJ;!OKNJHJ

75120:

001100
001276
001466
000020

737

001140
001422
177770
000001

006337

001450

005037
111137

elelelelale]

b el

b e

b a=b

(=leTlolelele
]

NN (X1 T P Pur Quur Ghur P Paur Prr PPy
NN
WNN=O
OSSN
— OV

b e

b o

b e

b ek

[elelelolalelelelolelelelelelelele)

—)

b cub

(elelolele

CARARANRARANAANAARNANRENANAANNRRAARNRRARARARNRAANRNRANAARARAANARARCY

aggpe

MOV
MOV
MOV
MOV

001226

:SCOPE CALL

#STACK,SP
$BASE ,R0
TSTQUE .R1
#20,$TESTN

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

:SETUP FOR FIRST TEST LOOP (NO ERROR)

CLR
MOVB
BIC
MOV
BR
ASL

:"PAR’* SHOULD BE ZERO
$GDDAT
SSETUP RMCS2 VALUE
(R1),RM(CS20
#*CUNTMSK ,RMCS20
SINITIALIZE DATA PATTERN
#1,RMHRO
*SKIP INCREMENT FIRST TIME
6$
*SHIFT TO NEXT PATTERN
RMHRO

égLEAR AND VERIFY THAT 'PAR'* IS RESET

JSR

PC,CNTCLR

MOV

RMER2 (RO) .RMER2]

MOV

BIC

BEQ
MOV

RMERT (RO) , $BDDAT

#*~CPAR,$BODAT
208
RO, $8DADR

:GO CLEAR CONTROLLER

:STORE RMER1 AT $BDDAT

:STORE_RMER2 IN INPUT BUFFER

;DID 'PARTM RESET?

SYES!!
*SETUP REGISTER ADDRESS

CONTROL BUS PARITY DETECTION TEST

120

1027 0156.6
1028 015624
1029 015632
1030 015634
1031 015636
1032 015640
015640
1033 015642
1034
1035
1036 015644
1037 015644
1038 015652
1039 015660
1040 015666
1041 015674
1042 015702
1043 015704
1046 015712
1045 015714
1046 015716
1047 015720
015720
1048 015722
1049
1050 015724
1051 015730
1052 015732
1053 015740
1054
1055 015742
1056 015750
1057 015756
1058 015764
1059

062737
032737
001002

000014
000010

001136
001400

108:

104070
000451

BNE
EMT

B8R

108
67
508

EMT
BR

70
508

#DPE ,RMER2 1

;1S "DPE'* SET??
JYES!!

*WRITE TEST PATTERN AND VERIFY 'PAR'’ L'TATUS

208

013760

104071

000423

30$:

104072

000421

005737
001312
032737
001012

001450

052737

000020
000010
000001

000676

000020

001422
001422
001140
001450

MOV
MOV
MOV
8IC
cMp
BEQ
B8IT
BNE
EMT
BR

;LOAD RM(CS2
RMCS20,RMC S2(R0)
;LOAD RMHR
RMHRO ,RMHR (RO)
;STORE RMERY AT $BDDAT
RMER1(RO), gggDAT
#*°CPAR,$8D
:#gs:?AR“ CORRECT??
$GDDAT,$BD DAT
408
*SHOULD 'PAR'’ BE SET?
#PAT ,RM(CS2 0
JYES!!
30%
71
508

72
EMT
50%
BR
:G0 TO NEXT PATTERN
408:
TST
RMHRO
5%
BNE
BIT
#PAT ,RMCS2 0
508
BNE

1061
1062

;SKIP TO NEXT

:#S'?ATA PATTERN COMPLETE??

YIS TEST COMPLETE??
JYES!!

:SETUP FOR SECOND TEST LOO P (ERROR)
BIS

#PAT ,RM(CS2 0

B8R

MOV
MoV

#PAR, $GDDA T
#1 ,RMHRO

:TURN ON BAD PARITY
*EXPECT ERROR

*INITIALIZE DATA PATTERN
*START LOOP

;END OF TEST

50%:

1060 015766

3222232228322 22 2322223223223 32382223222

;«TEST 21
s

1963

#RMER1,$8D ADR

BIT

106067

000453

ADD

001450

1065 016014
1066 016022

MOV
MoV
MOV

#STACK,SP

$BASE RO
TSTQUE .R1
#21,8TESTN

:SETUP FOR TEST (NO ERROR)
MOV
(LR

1067 016026
1068
1069

1070 016030
1071 016030

MOV

001226

:SCOPE CALL

SCOPE

NOP

001100

1064

CONTROL BU S PARITY GENERATION TEST

AR RN
A ARRANRRRNRRARRA R AN R AN RR AR RARNNRARARRARNARANNCRAAARANARR

TST21:

015766
015766
015770
015772
015776
016702
0160V6

#1,RMHRO
$SGDDAT

208

SHIFT DATA PATTERN

006337

001450

2823222030 dadilidiiidslsd)

i0s:

ASL

RMHRO

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRLSS

:R1 = POINTER TO DEVICE

s;SET TEST NUMBER IN APT MAIL BOX

sINITIALIZE DATA PATTERN
;MCPE SHOULD BE ZERO
;DONT SHIFT FIRST TIME

SEQ 0116

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-21

SEQ 0117

CZRNBAO RM80 DSKLS PT1 MACRO V064.00 14=-JAN-82 16:33:00 PAGE 13-22
CONTROL BUS PARITY GENERATION TEST

1072 016034

208:

004737

055156

001450

000036

1077 016046

016037

000036

001374

1079 016062
1080 016070
1081 016072

042737
001402
104073

157777

001142

1073 016034

}8;§ 016040

1076

013760

MOV

RMHRO, RMHR (RO)

:60 CLEAR CONTROLLER
R
;LOAD

RMHR (RO) , RMHR]

;STORE RMHR IN INPUT BUFFER
;STORE RMCS1 AT SBDDAT
USS BAD PARITY DETECTED??

MOV

RMCS1(ROS, SBDODAT’

B8R

408

BIC
8EQ
EMT

}835 016074 000403

#*CMCPE, SBDDAT
30$
73

GO TO NEXT PATTERN

1084

1086 016076
1087 016102
1088 016104

PC,CNTCLR

:TRANSFER DATA TO RH, VERIFY NO ‘MCPE'* ERROR

1078 016054 016037 000000 001142

1085 016076

JSR

MOV

005737
001352

$0s:

001450

408:

1089
1090

ST
BNE

RMHRO
108

DgNE ALL PATTERNS??

:END OF TEST

fitttttttittttt'ttttttttttttttttttlttfitttt*tttfitit.ttttt*t'ttttt

RMDA,RMDC FAULT TEST

tresr 22

2322822828232 ¢23 22222

016104
016104
016106
016110

016114
016120
1091 016124
}83§ 016132
1094

1095 016136

1096 016144
1097 016152
1098 016160
1099 016166
1100 016174
1101 016202
1102 016210

1103 016212
1104 016220
1105 016226
}}39 016230

000004
000240
012706

013700
013701
012737
004737

012760

012760
012760
012760
016037
016037
022737
001410
052737
022737
001401
104042

8722

001100

001276
001466
000022

MOV
MOV
MOV

001226

JSR

055156

000000

000000
177777
177777
000006
000034

177777

176000
177777

SCOPE
NOP
MOV

000006

000034
000006
000034
001344
001372

23 1222

222

R dddliddddd)

:SCOPE CALL

SP
#STACK,

, RO
$BASE
TSTQUE ,R1
#22,8TESTN
PC,CNTCLR

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

..SET TEST NUMBER IN APT MAIL BOX

;GO CLEAR CONTROLLER

sWRITE ZEROS, THEN ONES IN RMDA, RHDC-READ AND TEST FOR S~A=0
;LOAD RMDA
#0.R MDA (RO)
MOV

001344

MOV
MOV
MOV
MOV
MOV

#0 .RMDC (RO)
#-1,RMDA(RO)
#-1.RMDC (RO)
RMDA (RO) ,RMDAI
RMDC (RO) .RMDC]

8EQ

108’

CMP

001372
001372

8IS
CMP
BEQ
EMT

¢LOAD RMDC
:LOAD RMDA
:LOAD RMDC

;STORE RMDA IN INPUT BUFFER

;STORE RMDC IN INPUT BUFFER

#-1,RMDA]

ISSANY REGISTER ALL ONES??

#XNUDC ,RMDC ]
#-1,RMDC]
10$

;SET UNUSED BITS

sYES!!

108:

1108 016232

tTEST 23

016232
016232
016234
016236
016242

2382222332032

2223222232223 2223228222222 2 33202832 3230 3 R

il ddld)

DISK ADDRESS TRANSFER TEST

RNIRASNRY
NNN
NNRAARRAANRAARAR
RRRAR
AN R A ARNREARRRNARNRAA
AR RARNRARRRR

000004
000240

012706
013700

tsr23:

001100
001276

SCOPE
NOP

MOV
MOV

sSCOPE CALL

SP
#STACK,
$BASE ,R

;LOAD THE STACK POINTER
= UNIBUS ADDRESS
;RO

p—

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-23

SEQ 011S

DISK ADDRESS TRANSFER TEST

123

016246
111 016252

013701
012737

001466
000025

1112 016260
}}}2 016262

005003
004737

055156

1116 016266
1117 016274

012760
012760

177777
000000

1119 016310
1120 016314
1121 016316
1122 016322
1123 016326
11264 016334

005737
001412
005037
010037
062737
104020

001142

1115

001226

000006
000006

1125 016336

TSTQUE ,R1
#23,8TESTN

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

CLR
JSR

R3
PC,CNTCLR

:R3
= ERROR INDICATOR
GO CLEAR CONTROLLER

:WRITE ONES IN RMDA, THEN WRITE ZEROS, READ BACK AND CHECK FOR S-A-) BITS
MOV
MOV

1118 016302 016037 000006 001142
001140
001136
000006

MOV
MOV

RHDA(RO) $BDDAT STORE RMDA AT S$SBDDAT

BIS

#81T0,R3

;SET ERROR FLAG
;LOAD RMDA

$B8DDAT
108
$GDDAT
RO,$BDADR
#RMDA, $BDADR
20

052703

000001

016342

012760

000000

000006

MOV

#0 ,RMDA (RO)

1130 016364
1131 016372
1132 0163746
1133 016402
1134 016406
1135 016416
1136 016416

023727
001413
012737
010037
062737
104021
052703

001142

177777

177777
001136
000006

001140

CMP
8EQ
MOV
MOV
ADD
EMT
8IS

SBDDAT.#-T
208
#-1,SGDDAT
RO,$BDADR
#RMDA, $BDADR
1
#3IT1,R3

}}%9 016342

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

1128 016350 012760 177777 000006
1129 016356 016037 000006 001142

1137

016432

MOV
MOV

001136

000002

203

001C27
012702

000001

012760

000000

000006

30s:

1142 016440 010260 000006
1143 016444 016037 000006 001142
001410
010237

001140

1148 016470
1149 016476

062737
1046022

000006

1147 016464 010037 001136
1150 016500

006302

};gg 016504

508:

1154

MOV

#0,RMDA(RO)

:R2 = TEST PATTERN

sLOAD RMDA

SBDDA R2

408
R2.$GDDAT

ADD
EMT

#RMDA, SBDADR
22

BNE

308

ASL

JOMIT BIT TEST IF ANY ERROR

R2.RMDA (R0)
*LOAD RMDA
RMDA (RO) ,SBDDAT STORE RMDA AT S$BDDAT

BEQ
MOV

MOV

001136

508
#,R2

CMP

408:

1151 016502 001353

TST

BNE
MOV

MOV
MOV

1164 016452 023702 001142

1145 016456
1146 016460

#-1 RMDA(RO)
;LOAD RMDA
RMDA(RO) $BODAT STORE RMDA AT $BDDAT

:SET ERROR FLAG
:WRITE A SHIFTING 1 BIT PATTERN IN RMDA, READ, AND CHECK FOR STUCK BITS

1138 016422 005703

1139 016424
11640 016426
1141 016432

;LOAD RMDA
sLOAD RMDA

MOV
ST
BEQ
CLR
MOV
ADD
EMT

001136

#=1,RMDA(R0)
0, RHDA(RO)

RO $B8DADR
R2

sSHIFT TO NEXT B!T

CONTINUE IF R2 NOT ZERO

JNRRRARRRANRARARARARR
R R AR RAANARARARARARANAAANEARARARACREEARARRED

tTEST 24
IR

TST24-

DESIRED CYLINDER TRANSFER TEST

RARARARAAARRAR N AR AR RRARAANARANRAAANARANAAERAANNRANCRARAS

016504
016504
016506
016510

000004
000240
012706

001100

MOV

#STACK,SP

:LOAD THE STACK POINTER

n16520

013701

001466

MOV

TSTQUE R

:R1 = POINTER TO DEVICE

016514 013700 001276

SCOPE
NOP

MOV

:SCOPE CALL

$BASE RO

.RO = UNIBUS ADDRESS

]

sEa 0119

CZRNBAO RM80 DSKLS PT1 MACRO V04,00 14-JAN-82 16:33:00 PAGE 13-24
D CYLINDER TRANSFER TEST

VIS NN = O 000NN
onwoooovwwwwwwwwwooogoooooommmmm

012737

000024

005003
004737
005037
010037
062737

000034
001142
001142

012760

MOV

#24,$TESTN

;sSET TEST NUMBER IN APT MAIL 80X

CLR
JSR
CLR

R3
PC,CNTCLR
$GODAT
RO, $8DADR
#RMDC
, SBDADR

sRESET _ERROR FLAGS
:GO CLEAR CONTROLLER
:LOAD EXPECTED
:LOAD REG ADDRESS

MOV
ADD

;WRITE 0:53 IN RMDC AND VERIFY THAT UNUSSD BITS ARE ZERO
MOV
BIC
BEQ
EMT
BIS

:LOAD RMDC
RMDC (RO) , SBDDAT ;STORE RMDC AT S$BDDAT
DC
. SBDDAT
#-CXNU
sCLEAR ALL USED BITS
58
;BRANCH IF NO ERROR
134
#BITO,R3
sSET ERROR FLAG

#-1,RMDC (RO)

OO0

ggnxrs ONES IN RMDC, THEN WRITE ZEROS, READ AND CHECK FOR S=-A-1 BITS

SNON

0‘00‘0‘&0‘0‘0‘
PONONONO
KRR W)= =2

(elelelelelelale

b —d —b

000001

177777

000034

176000

001142

000001

MOV
MOV
MOV
BIC
BEQ
EMT
BIS

#-1,RMDC (RO)
#0 ,RMDC (RO)
RMDC (RO) , SBDDAT
, SBDDAT
#XNUDC
108
37
#8ITO,R3

sLOAD RMDC
sLOAD RMD(
;STORE RMDC AT $BDDAT
sCLEAR UNUSED BITS
;BRANCH IF NO ERROR

:SET ERROR FLAG

iggxrs ZEROS, THEN ONES IN RMDC, READ AND CHECK FOR S-A-0 BITS
000000
177777

001140

052703

010034
000034
001142
001142
001140
001142

MOV

MOV
8IS
MOV
CMP
BEQ
EMT

BIS

000002

:LOAD RMD(C
sLOAD RMDC
RMDC (RO) , $BDDAT :STORE RMDC AT $BDDAT
C
, SBDDAT
#XNUD
sSET UNUSED BITS
#-1,8GODAT
;LOAD EXPECTED RESULT
$GDDAT, SBDDAT
:sgsflqqc ALL ONES ??
208
40
#81T1,R3
:SET ERROR FLAG
#0 ,RMDC (RO)

#-1,RMDC (RO)

§8§” BIT TEST IF ANY ERRORS

005703
001026
012702
(elelelelelelelelelel)

OV®~NONWN

-ooooogooo
W=
O

e e o D e b b b ==b ) b b D o D D D wwd D ) D aed b )
b b e
b b b o cud wd b b cnd b b b nd b b b
NININLNININSNINININ) A b e cd b vd b od b o e b nd b b b b -—d b aud b anh b b o e D b e o D d D rd
o

001226

001136

D b

D D d i

) ) D D ad D i D i b

d b D ocd

124

ST
BNE
MOV

000001

R3
608
#1,R2

;R2 = TEST PATTERN

5555' RMDC WITH SHIFTING ONE BIT

012760

000000
000034
176000
000034
001142

001140
000402

000034

001142

:LOAD RMDC
:LOAD RMD(C

MOV
MOV
MOV

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

MOV

RMDC (RO) ; $BDDAT

:R3 = EXPECTED RESULTY
sCLEAR ANY UNUSED BITS
:STORE RMDC AT $BDDAT

508
R3,$GDDAT
X
608

;SKIP TO NEXT

BIC

cMP

BEQ
MOV
EMT
BR

#XNUDC ,R3

$8DDAT,
RS

CZRNBAO RMBO DSKLS PT1 MACRO V04.00

DESIRED CYLINDER TRANSFER T €S

?-JAN-BZ 16:33:00 PAGE 13-25
508:

00630¢
001354

ASL

BNE

R2
308

SEQ 0120

sSHIFT TO NEXT BIT
;CONTINUE IF R2 NOT ZERO

608:
P

ANRAN R R AN NRANNNANRR AN C LR C RN AR

TRTEST 25

ARRRAAARR VAN ANNANNNRRRNAROAANNNS

ILLEGAL REGISTER TEST

000004
000240
012706
013700
013701
012737

d =D b

PN N NN NI NN NN NN NN
NN MO MININIALNINLN
= b 2
WINW
NN NN NN NIPNININ)
NL
X 2% 3 a2 oy X aF W JWNIVILV]
W = O 000NN
NN = O 000~
W =0V
=0 VLNV

RO D
RRA
NNNRANNA
NNRA
NNRAARNRANNRN
NARA
AL RN ERRARARAANRAR
C T AARANRAA

TsT2s5:
001100
001276
001466
000025

:SCOPE CALL

601226

005037
012702

CLR

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

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS
:R1 = POINTER TO DEVICE
:sSET TEST NUMBER IN APT MAIL 80X

S$GDDAT

:"'ILR’* SHOULD BE ZERO

#0,R2

sR2=REGISTER INDEX

108:

urPurd

)

8EQ
CLR
MOV
ADD

O~
(=17
~

O0O0O000Q2O =t =d b = ONYO =
ONONINO
= = NINNIN)

208

637
637

N
N
~

=O=000

NN NN

EMT
BR

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

#*CILR,$BDDAT

208
$GDDAT

RO,$8DADR
#RMER1,$BDADR
64

:BRANCH IF ILR 1S RESET
;SETUP GOOD DATA, REG ADR

1408

:WRITE THE REGISTER (INDEX=R2) AND TEST ILR STATUS

O=ON)—d=b
HO=0ONN

HOONNO NJCDi:fiUCBFUCDCFJ‘CDC’CDNJONNJCDCFEE

-‘—hfl-‘—h‘-‘—hfl-‘—hfl-‘—A—hflE;—b

NN N NN NN NN NNNNNNNNYNY

001136

MNONINONY
=~
- = OO NNNNNOOWNNNES
B S NNN) b =
N

D
D ek =
b
d
b
b
b b
b
b e
b
nd
b e
ok ek e
e e

JSR

MOV
8IC

004737

(=3
QO

<D<DC><DC>EZCNCNDC>

;CL EAR AND VERIFY THAT 'ILR'* STATUS IS ZERO

17042
17046

OOO0OOOOOOOOOOO0OO0O0OO0O0O00O

-VS
OB WN

ViAW

—d e

b b

b b e

e e o

b b e e e

e =

emd b e

b ad b b

S ed b =S b DS b =

MOV

#STACK,SP

000004
000006
017164
000300

000004
000006

000010

000006
000004

017172
000006
000004
000046

001136

30$:

40$:

45%:

MOV
ADD
MOV
MoV
Mov
MGV

CLR
CMP
BNE
Mov8
MOV
Mov
MOV
BR
Mov
RTI

Mov
MOV

CMP
BH!
MOV

EMT

:g.gg

:R3=REG ADDRESS

ERRVEC.=(SP)

:;PUSH ERRVEC ON STACK

#408, ERRVEC
#PR6
. ERRVEC+2
R4
gggcsz.nz

;SETUP FOR BUS TIMEOUT

ERRVEC+2,-(SP)

(R1) R4

::PUSH ERRVEC+2 ON STACK

:R4=REGISTER VALUE

:SELECT DRIVE IF RMCS2

R4, (R3)

‘WRITE TEST REGISTER

ggg)+.ennvec

;:POP STACK INTO ERRVEC

4458, (SP)

:DUMMY RTI ADDRESS

(SP)+,ERRVEC+2

(SP)+_ERRVEC ~
R2 , #RMEC2

50$

;2.savon

::POP STACK INTO ERRVEC+2

*RESTORE PRIORITY

;:POP STACK INTO ERRVEC+2

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

SYES!!

SEQ 0121

v d

Py
N

[olele]

b
b

b
-

—

—b

~
~N

NNNNNNNNNNNY
n
NINININININININIPND
N

— cd wmd

il and

b cnd

(elelelalolelolalelelela

O L

o
o

b b

nN
~

B \ N b wnd b

=2OO0000OO0O0O00O0000

vy
o

b
b and ad

~
~

-—b ad ad

17374

——b wnd aud amd =

(===}

;STORE RMER1 AT $BDDAT

RMER1(RO) ,$BDDAT

#*CILR,$BDDAT

$GDDAT ,$BDDAT
8 0s
R3,$TMPO

218 "'ILR" 0K??

708

CYES!!

#ILR,SGDDAT

80s

000002
000050

17266
17272

VIS W)= O000~N

001140

60$:

1408

65
80$

‘YES!!

{SAVE ADDRESS

*SHOULD '‘ILR’* BE SET??

:ADVANCE TO THE NEXT REGISTER ADDRESS

end cnd

WA =0OW S UWNN=00

b b
-nd b e e amd D

001174
000002

B8R

:
708

b
D

001140

0
00
0

177775

b
b e e

b
b

md
e
e

b wmd
—d ed

508:

012637

000004
000006
017410
000300
000002
000054
001400
000050
177774

ADD

CMP
BHI
BLO

MOV
MOV
MOV
MOV

000004
000006
001140

8IS

MoV
MOV
MOV

000000
001406
001406

000050
000006
000004
000074

8IC
BNE

90$:

1108:

MOV
MoV
MOV

:
1208

CMP
BLOS
BR

017416

:
1308

MOV

000006
000004

135%:
1408:

b cod

b cnd cmd

N NN
NN NN NN NN

500503
000014

—

et and ad

NN
VNN
Voo~
PPNV
oONONOr
o
WO=O
O~

—d ond ad and b b cod d b

SERESNIINNE
BB ENAS
uugw~§§~
~
SIARIILCS
LS LR

-— b

b —b

ILLEGAL REGISTER TEST

125

RTI
MoV
MOV

#50.R2

s INCREMENT INDEX
sTIME TO TRY RH70 ?

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

sBRANCH IF ALREADY CHECKED
s;PUSH ERRVEC ON STACK
::PUSH ERRVEC+2 ON STACK
TIMEOUT
FOR
sSETUP

#2 ,R2

108
1108

#1308 ,ERRVEC
#PR6 ,ERRVEC+2
#ILR,S$GDDAT
#54 R2

sBRANCH IF NOT

;SET ILR
START AT INDEX 54 IF RH70/22REG

#A17'A16 ,RMCST(R )]

:SET EXTEND BITS

50(RO) ,RMBAE]

:READ THE EXTENDED BITS

90$
#50,R2

‘BRANCH IF RH70/22-REG

#177774 ,RMBAE]
(SPJ+,ERRVEC+2
(SP)+ ERRVEC

;CHOP OFF

*OTHERWISE NOT A RH70 OR RH70 WITH 32 REG

#74.R3
1408

‘DONE ALL TESTS

#135$%, (SP)

;DUMMY RT] ADDRESS
sRESTORE PRIORITY

108

(SP)+ ,ERRVEC+2
(SP)+ ,ERRVEC

TYES!!

*END OF TEST

AANOAEEORY
RANANN
ARANAAAANRARAR
RNRCRA
AN RARANRARRARAAN
s oA ANARANRARARN

LeTEST 26

RESET GO BY INIT TEST

A
ARSROES
RARNR
CAARARARAANRAA
ARARA
AR AN RARAARANRARAAR
c [ A ARRNRARNRR

15126

000004

)
000026

004737

055156

$BASE RO
TSTQUE ,R1

#26,8TESTN

sLOAD THE STACK POINTER
sRO = UNIBUS ADDRESS
:R1_= POINTER TO DEVICE
:;SET TEST NUMBER IN APT MAIL BOX

PC.CNTCLR

;GO CLEAR CONTROLLER

#STACK,SP

001100

012737

:SCOPE CALL

001226

p—y

CZR NBAO RM80O DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-26

RESET GO BY INIT TEST

MoV

1318 017460
1319
1320
1321 017464

010037

001136

012760

000001

1323 017472
1324 017476
1325 017504
1326 017512
1327 017514
1328 017520

004737
016037
062737
001403
005037

055156
000000
177776

MOV

001140

CLR
EMT

1322

1329
1330 017522
1331
1332

106137

RO,$BDADR

sSETUP REGISTER ADDRESS FOR MSG

:SET GO, 6N171ALIZE AND VERIFY THAT GO IS RESET
#GO,RMCST1(RO)

;LOAD RMCS1

JSR

PC.CNTCLR

co CLEAR CONTROLLER

BIC

#4CGO, S8DDAT

BEQ

RMCS1(RO),$8DDA
108

$GDDAT
137

:STORE RMCS1 AT $BDDAT

:BRANCH IF GO IS RESET
:END OF TEST

108:

:;tttttttttttttt.tttt"ttt't'ttttt'tttttttttfittttttttt'ttt.ttttt'

TRTEST 27

DIAGNOSTIC MODE TEST

::t'tttttttt.tttttttt'i"'t".i.'t.fi.tt.tt.t.t..t.t'.t'...'."i.i

18127:

#STACK, SP

:LOAD THE STACK POINTER

MOV

$BASE , RO
TSTQUE .R1

#27,$TESTN

RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

MOV

RO, $8DADR

;SETUP REGISTER ADDRESS

CLR

;INITIALIZE ERROR FLAGS

t.SET TEST NUMBER IN APT MAIL BOX

, SBDADR
#RMMR1

SINITIALIZE AND VERIFY THAT ‘DMD'* IS RESET
JSR

PC,CNTCLR

BIC

#CDMD, $BODAT

CLR

$GDDAT

MOV

177776

;SCOPE CALL

MOV

ADD

001136

001136
000024

aggps

MOV
MOV

001226

(==}
QO

001100
001276
001466
000027

055156
000024

BEQ

001140

EMT

:G0 CLEAR CONTROLLER

RMMR1 (RO) , $8DDAT’
108

:STORE RMMR1 AT SBDDAT

:BRANCH IF 'DMD'’ IS Z2ERO

%351 AND RESET ‘DMD'* USING REGISTER TRANSFER-VERIFY ‘DMD'* NOT S=-A-1
000001
000000
000024
177776

000024
000024
001142
001142

mov
MOV

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

BIC

#4CDMD, SBODAT

CLR
EMT

$GDDAT
76

MOV

BEQ

001140

BIS

000001

RMMR1(RO), SBDDAT’

-STORE RMMR1 AT SBDDAT

208

:BRANCH IF DMD NOT S=-A-1

#81TO,R3

:SET ERROR FLAG

58555’ AND SET 'DMD'* USING REGISTER TRANSFER-VERIFY ‘DMD'' NOT S-A-0
NOANNOO

1350 017630
1351 017636
1352 017644
1353 017646
1354 017652
1355 017654
1356
1357
1358 017660
1359 017660
1360 017666
1361 017674
1362 017702
1363 017710
1364 017712

010037
062737
005003

- O & b = b
=N
NONONN
WO WO

1333
1334 017550
1335 017554
1336 017562
1337
1338
1339 017564
1340 017570
1341 017576
1342 017604
1343 017606
1344 017612
134°
1346
1347 017614
1348 017614
1349 017622

000004
000240
012706
013700
013701
012737

(=laleleleld

017522
017522
017524
017526
017532
017535
017542

1727776

000024
000024
001142
001142

000001

001140

000000

mov

#0,RMMR1(RO)

MOV
BIC

T (RO) , SBDDAT
RMMR
#-CDMD, SBODAT

MOV

BNE

MOV

#DMD ,RMMR1(RO)

308

#DMD, SGDDAT

;LOAD RMMR1
LOAD RMMR1

sSTORE RMMR1 AT $8DDAT

;BRANCH IF DMD NOT S=-A<0

puy
Y

SEQ 0122 l

’NBAO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16-33:00 PAGE 13-27

SEQ 0123

DIAGNOSTIC MODE TEST

S 017720
017722

005703
001027
012702
012760

000002

#81T1,R3

;SET ERROR FLAG

gé

020004
020004
020006
020010

104100

:ANY ERRORS DETECTED??

mov

#0,RMMR1(RO)

:LOAD RMMR1

BIC

, SBODAT
#CDM

TSt
000000
000024
000024

BNE
MOV

‘08

000002

177776

D b od b b wnd b end b b

EMT
BIS

§8§E BIT PATTERN

b omd b and e e

NN NN N

1 04 077
0 52703

:1F NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE WITH SHIFTING

b d cd d cd e

WA=
OOV NOWV
SN
= OV~
SEEERHEES

oo
NN
NN NN Lflvfldhfluflflbdgf
@ N
NNNNN
NNNNVOO

D el ) b

127

000024

MOV
MOV

001142
001142

BEQ
MOV

001174
001174
001140

MOV

CLR
EMT

608
#BIT1,R2

SYES!!
SINITAILIZE DATA PATTERN

:LOAD RMMR1
R2.RMMR1(RO)
~STORE RMMR1 AT $BDDAT
RMMR1(RO) , SBDDAT
508
R2,$TMPO
R2.STMPO
$GDDAT
100

:BRANCH IF DMD NOT SET
*SAVE DATA
*SAVE DATA

*DMD SHOULD BE ZERO

gggxrr TO NEXT DATA BIT AND CONTINUE TEST IF NOT DONE

006302
001353

608 :

ASL

BNE

408

;END OF TEST

::ttttttttttttttttt'tttttttttttttttttQtttttttfitttttttttt.'ttttttt

LeTEST 30

MOL TEST

::tttttttttttttttttttttt'ttttttttttttttt'.tttt'.'ti'ttt.tt.ttt.'t

75730

000004

1391
1392 020036
1393 020042
1394 020046
1395 020054
1396
1397
1398 020056
399 020064

012737
004737
010037
062737
005003
012760

001100
001276
001466
000030

055156
001136
000012

001226

:SCOPE CALL

MOV
MOV
MOV
MOV

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

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

JSR

PC,CNTCLR

;60 CLEAR CONTROLLER

ADD

S
, SBDADR
ARMD

MOV

001136

CLR

RO $SBDADR
R3

*RO=REGISTER ADDRESS
:R3=ERROR FLAG

:SET DIAGNOSTIC MODE AND VERIFY THAT ‘MOL'’ IS ZERO

000001

000012
167777

aggps

001142

MOV
MOV
BIC
BEQ

;LOAD RMMR1
ADMD ,RMMRT (RO)
(RO) , SBODAT :STORE RMDS AT SBDDAT
RMDS
OL
, SBDDAT
#~CM
108

BIS

#8ITO,R3

CLR
EMT

001140
000001

$GDDAT
101

;SET ERROR FLAG

535’ MAINTENANCE UNIT READY AND VERIFY THAT ‘MOL’* IS ONE
000001
001001
000012

000024
000024

001142

mov
MOV

MOV

#DMD,RMMR1(RO) :LOAD RMMR1
;LOAD RMMR1
#DMD I MUR , RMMR1 (RD)

(RO) -$BODAT ;STORE RMDS AT $BDDAT
RMDS

—-—

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-28

SEQ 0126

(ZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-29
MOL TEST

130

167777

001142

010000

001140

BIC
BNE

MoV

EMT
BIS

000002

OL
, SBDDAT
#~CM

208

#MOL
, SGDDAT
102

#8IT1,R3

:JF NO PREVIOUS ERROR, VERIFY VOLUME VALID IS RESET AND
:TEST FOR BIT INTERFERENCE

106135

012702

[A%,
8]

JEFQEN

——

000012
177677

(==

208

Mov

001140
25$:

000001
000001

000024

167777

001142
001142

30$:

001000

010000
001142

BIC
BEQ
CLR
EMT

708

sANY ERROR DETECTED??
JYES!!

RMDS (RO) ,$BDDAT ;STORE RMDS AT $8DDAT
#2CVV,SBDDAT

25%

:BRANCH IF VV RESET

MOV

#,R2

sINITJALIZE DATA PATTERN

MOV
MoV
MOV

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

8IC
CLR
8IT
BEQ
8IS
CMP
BEQ
MOV
MOV

EMT

SGLDAT
135

#°CMOL ,$BDDAT

;SETUP EXPECTED ‘MTMOL''

#MOL ,R3

S'MOL’* SHOULD BE ONE
;1S MOL 0K??
SYES!!

AMUR ,R2
408

R3,$BDDAT

508

R2,$TMPO

?33‘G°°"

*SAVE TEST PATTERN

:SHIFT TO NEXT PATTERN

020300
020300
020304
020306
020312
020322

40S$:

001174
001140

020276

TST
BNE

5os

000001

BNE

000001

000735

60$:

000001

gggD.RZ

;DONT SHIFT DMD

#DMD ,R2
R2
708
#DMD ,R2
308

sDONT TRUNCATE TEST
sSHIFT TO NEXT BIT
;BRANCH 1F DONE
:KEEP DMD ON
s CONTINUE

;END OF TEST

708:

020324

3222232322232 22223223 3223223232223 3332322320222 0 200 0 ddtiiRiisdldd

LeTEST 31

WRITE LOCK TEST

9322322322822 2222222 2232232332322 3383223232202 02002

757131

020324

1456

001100
001276
001466
000031

001226

sSCOPE CALL

SCOPE

NOP
MoV
MoV
MoV
MoV

dditiiiiiRsld

#STACK, SP

$BASE ,RO
TSTQUE . R1
#31,$TESTN

sLOAD THE STACK POINTER

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

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-30
131

110

SEQ 0125

WRITE LOCK TEST

1457 020352
1458 020354

1459 020360

005003
010037

062737

001136
000012

004737

055156

012760
016037

000001
000012

052703

000001

1460 020366 005037 001140
}225 020372

1463
1464 020376

1465 020404
1466 020412
1467 020420
1468 020422
}293 020424

042737
001403
104104

173777

001136

000024
001142

1473 020430 012760 000001
1474 020436 012760 000011

000024
000024

1476 020452

173777

001142

004000

001140

1475 020444

016037

1477 020460
1478 020462
1479 020470
}ag? 020472

001006
012737
104105
052703

042737

000012

}286 020502

005703
001045

108:

;WRL SHOULD BE ZERO

:GO CLEAR CONTROLLER

RMDS (RO) , SBDDAT:STORE RMDS AT SBDDAT
#*CWRL
, SBDDAT
108
:BRANCH IF WRL IS ZERO
104

#81T0,R3

:SET ERROR FLAG

MOV
MOV

#DMD .RMMR1 (RO) :LOAD RMMR]
#0MD
| MuP ,RMMR1 (RD)
LOAD RMMR1

BIC

#4CWRL, SBDDAT

MOV

BNE
MOV
EMT
BIS

012702

208:

ST
BNE

MOV

000001

RMDS (RO) _$BDDAT ; STORE RMDS AT SBDDAT

208
#WRL , SGDDAT
105
#81T1,R3

;BRANCH IF WRL IS NOE
SWRL SHOULD BE SET
:SET ERROR FLAG

R3
708

#1.R2

;ANY OTHER ERROR??
“YES!

INITIAL]ZE DATA PATTERN

- TRANSFER DATA TO RMMR1, READ RMDS AND VERIFY WRL

012760
010260
016037
042737

000001
000024
000012
173777

1495 020536
1496 020542
1497 020544
1498 020550

032702
001402
052703
020337

000010

1500 020556

010337

001140

1494 020534 005003

001405

004000
001142

000024

$0s:

001142
001142

1504

MOV
MOV
MOV
BIC

#DMD ,RMMR1(RO)
R2,RMMR1(RO)
RMDS (RO) , $BODAT
#~CWRL,$BDDAT

:LOAD RMMR1
:LOAD RMMR1
:STNPT RMDS AT $BDDAT
:CLEARUF RECEIVED "WRL''

BIT
BEQ
8IS
CMP

AMWP ,R2
408
MIRL ,R3
R3,$8DDAT

;WAL SHOULD _BE SET
:IS WRL OK?

CLR

408:

BEQ

MOV

1501 020562 010237 001174
}ggg 020566 104106
1505 020570

$GDDAT

-1F NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE ON '‘MwP'’

1490 020506
1491 020514
1492 020520
1493 020526

1499 020554

PC,CNTCLR

MOV
BIC
BEQ
EMT
8IS

000002

1488

1489 020506

JSR

:R3=ERROR FLAG
*SETUP REGISTER ADDRESS

:SET DIAGNOSTIC MODE AND VERIFY ‘MRL'’ IS 2ERO
#DMD ,RMMR1 (RO) ;LOAD RMMR1
MOV

001142

1482

1483 020476

R3
RO, $BDADR

:SET MAINTENANCE WRITE PROTECT AND VERIFY ‘MRL'® IS ONE

1472 020430

1484 020476
1485 020500

#RMDS , SBDADR

CLR

001142

1671

CLR
MOV
ADD

MOV
EMT

508

R3,$GDDAT

az $TMPO
106

*GENERATE EXPECTED ‘WRL
SYES!!

*SAVE EXPECTED

*SAVE DATA PATTERN

- ADVANCE TO NEXT DATA BIT

1506 020570
1507 020574
1508 020576
1509 020602

042702
001002
012702
006302

000001

1511 020606

052702

000001

1510 020604 001403

}g}g 020612 000735

000001

50s:

608:

BIC
BNE
MOV
ASL

#DMD ,R2
608
#DMD ,R2
R2

;DONT SHIFT DMD

8IS

#DMD ,R2

“KEEP DIAGNOSTIC MODE ON

BEQ

B8R

708

308

:DONT TRUNCATE TEST
*SHIFT DATA BIT

SEXIT IF DONE

*CONTINUE TEST

g ?NBAO RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-31

SEQ 0126

WRITE LOCK TEST

;END OF TEST

708:

1514 020614
1515
1516

X212 222222222 3322322828282 2222222232222

*TEST 32

DRIVE FAULT TEST

2220002

0 dRR

Rt dRddll)

':Qttttttttitttt.itt"t"t't't'tttitttttttttttlttt..t.ttttttttttt

f§132:

020614

000004

020620

012706

001100

020634

012737

000032

0 20642
0

004737

055156

010037
062737
005037

001136
000042
001140

020650
020654
020662

001226

MOV
MOV
MoV
MOV

#STACK, SP

:LOAD THE STACK POINTER

JSR
CLR

PC,CNTCLR
R3
RO, SBDADR
#RMER2, SBDADR

;G0 CLEAR_CONTROLLER
:INITIALIZE ERROR FLAGS
:SETUP REGISTER ADDRESS
.

MOV
ADD

001136

:SCOPE CALL

SCOPE

NOP

CLR

$BASE , RO
TSTQUE R
#32,STESTN

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

SGDDAT

:*DVC'* AND ‘'UNS'* SHOULD BE ZERO

;SET AND RESET MAINTENANCE DRIVE FAULT, VERIFY THAT 'DV(C'' IS NOT
2760
2760
2760
6037
2737

000001
000000
000000
000042
177577

000024
000042
000014
001142
001142

2703
2737

000001
040000

001140

s STUCK=-AT=-ONE.
MOV
MOV
MOV
MOV

8IC
BEQ
EMT
BIS

MoV

#DMD ,RMMR1(RO)
#0,RMER2(RO)
#O RMERT(RO)

;LOAD RMMR]
:LOAD RMER?2
LOAD RMER1

}8;

SYES!!

#BITO,R3

:SET ERROR FLAG

;STORE_RMER2 AT $8DDAT
RMER2 (RO) , SBDDAT
#°CDVC,SBODAT
;IS *DVC' RESET??

#UNS
, $GDDAT

1\(;ERIFY THAT "UNS'’ IS SAME AS 'DVC*’

020742
020750
5640 020756

016037
042737
023737

000014
137777
001140

001142
001142
001142

542 020766
543 020772
544 021000

010037
062737
032737

001136
000014
040000

001
001

000401

2 0s:

104111

CMP
BEQ
MOV
ADD
BIT
BNE
EMT
BR
EMT

:STORE RMER1 AT $BDDAT

RO)
, $BDDAT
RMER1(
#~CUNS ,$BDDAT

gggbAT.SHDDAT
RO, $BDADR
#RMER1,$BDADR
#UNS
, SGDDAT

208
110
308

:IS 'UNS'* 0K??
JYES!!
sSETUP REGISTER ADDRESS

2SHOULD '‘UNS'' BE ON??
sYES!!

177577

001136
000042

S
N

puy

—

001140
000024
(=]
o

000200
000001
(=1
(=1
o
o

NNNINNOON

[el=lelelelelale]

(o e = R
e
NO=NOONNIMNINY
NOONONNN
WN = N NOCON
N

385557 AND SET °MDF’', VERIFY THAT 'DVC'' IS NOT S-A-0.

&H
o

=l{elelalelelelele

MOV
BIC

001142

001136

MoV
MOV
MOV
MOV

8IC
BNE

MOV
ADD

#DVC,$GDDAT

#DMD .RMMR1(RO)

:DVC SHOULD BE ON

:LOAD RMMR1

#DMD
i MDF ,RMMR1 (RD)

RMER2 (ROJ , SBDDAT
#*CDVC,$BDDAT

408
RO, $SBDADR

#RMERZ ,$BDADR

:LOAD RMMR1

*STORE RMER2 AT S$BDDAT

sBRANCH IF DVC IS SET
sSETUP REGISTER ADDRESS

;

SEQ 0127

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-32
DRIVE FAULT TEST

\IN&O‘OU’!‘*J‘I‘WN—‘—'—‘OOO
SNSONONSOONOONIN

b
b
b e e
b ed

01140

016037

000014
137777
001140

o
e

b o
e e
b ed ed
b b cad

040000

TST

001140

503

001136
000014
040000

o
o

b d b d b
b e e ed =

005737
001403
012737

106113

000401

60%:

104114

012760

08:
000001
000001
000000

000024

80S$:

000042
001142
001142

000100

SGDDAT

s CHANGE DVC TO UNS

508
#UNS ,SGDDAT

MOV
8IC
CMP
BEQ
mov
ADD
8IT
BNE
EMT
8R

RMER1(RO) ,$BDDAT
;STORE RMER1 AT $BDDAT
#~CUNS ,$BDDAT
$GDDAT ,$BDDAT
708
sBRANCH IF UNS IS 0K
RO, $SBDADR
sSETUP REGISTER ADDRESS
#RMER1 ,$BDADR
#UNS ,$GDDAT
:SHOULD UNS BE ON??
sYES!!
608
113
708

EMT

114

001136

urQnrd

b
b
b
b
b cnd
b

001136
000042
001174

TST
BNE
Mov

R3
1208
2 .,R2

Mov
MoV
MoV
MOV
BIC
CLR
8IT
8EQ
BIS

#DMD ,RMMR1 (RO)
:LOAD RMMR1
#0 ,RMERZ2 (RO)
sLOAD RMER?
R2 ,RMMR1(RO)
:LOAD RMMRI]
(R0) ,$BDDAT
RMERZ
:STORE RMER2 AT $BDDAT
LTS
RESU
#-CDVC,$BDDAT
sGET
$GDDAT
;SETUP EXPECTED
#MDF ,R2
:UA§.HDF SET??
sNO!!
90%
#DVC,SGDDAT
:YES=DVC SHOULD BE ON

8EQ
(11"
ADD
MOV

1008
RO.$8 DADR
, SBDADR
#RMER?2
R2,$TMPO

EMT

$SGDDAT ,$BDDAT

115

sBRANCH IF ANY OTHER ERRORS
SINITIALIZE TEST PATTERN

sBRANCH IF DVC IS OK
sSETUP REGISTER ADDRESS

sSAVE TEST PATTERN

b amd

%38%" TO NEXT BIT POSITION

b e

000001

b wnd
b aud

sSET ERROR FLAG
sUNS SHOULD BE OFF

8EQ
MOV

CMP

90$%:

OO
QOO0

000200
001140

(==
O

ONONONINIONS
NN

PONONINININ)
b b b b
W) = =2 OO NNNN

b
b
b oud cnd wuad
b
b

005703
001056
012702

604 021304

b o

$SGDDAT

i.gERlFY THAT °'UNS'’ IS SAME AS 'DvC'’

D
b

AINVAINNININYPIAINLALNINOAINININD

(=leloldlelololololelelololololelo]

TN 1 N 1,N

lelalelelal=d

T NT T
T
N

CLR

112
#81T1,R3

:!;D;flfiRE WERE NO PREVIOUS ERRORS, TEST FOR BIT INTERFERENCE ON

NN NNNNNNNNOOO
[« -] 00000000 00C0 00

b o e
b b ) e md
e e

EMT
BIS

000002
001140

ViAW

o
b
bb

O OO

d
d
d
b
o

b e

61 021070
62 021072
63 021076

vawvaii vV
AIY. Avivva i VMIAWAVHWAWNANAANWNW

132

000724

"
1108:

000001
1208:

BIC

BNE
MoV
ASL
8EQ
BIS
BR

#DMD ,R2

1108
#DMD ,R2
R2
1208
#DMD ,R?2
80$

:DONT SHIFT DMD

:DONT TRUNCATE TESTY
JSHIFT
SEXIT IF DONE
:KEEP DMD ON
: CONTINUE

;END OF TEST

$§5NBA° RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-33

SEQ 0128

DRIVE FAULT TEST

1617
1618

931232202222 ¢8222

LATEST 33

2212322232222 2232222822220 0 2

Rt disaddiiiatiddd

SEEK ERROR TEST

000004

021336
021342
021346
021352

012706
013700
013701
012737

001100
001276
001466
000033

0 021360
1 021364
2 021366
2 021372

004737
005003
010037
062737

055156

000024
000042
001142
001142

737
737
703

&
N

137777
040000
000002

PC.CNTCLR
R3
RO, $BDADR
#RMER2, $BDADR

2GO _CLEAR CONTROLLER
sCLEAR ERROR FLAGS
sSETUP REGISTER ADDRESS

#~CSKI1,$BDDAT

8IS

000024
000042
000024
001142
001142

;LOAD
;RO =
sR1 =
s:SET

sSET DIAGNOSTIC MODE AND VERIFY THAT ‘°SK1‘'’ CAN BE RESET
;LOAD RMMR1
#DMD ,RMMR1(RO)
MOV
RMERZ2
:LOAD
#0 ,RMER2 (RO)
;STORE RMER2 AT $BDDAT
RMER2 (RO) ,$BDDAT

000001

000091

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

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

10$:

108
??gDAT

sBRANCH IF SKI IS RESET
2SKI SHOULD BE ZERO

#81T0,R3

;SET ERROR FLAG

MAINTENANCE SEEK ERROR AND VERIFY THAT *'SKI’' CAN BE SET
MOV
MOV
MOV
MOV

;LOAD RMMR1
#DMD ,RMMR1(RO)
#0,RMER2(RO)
:LOAD RMER2
;LOAD RMMR1
(RO)
RMMR1
,
'MSER
#DMD

RMER2 (RO) . SBDDAT

#4(SK1,SBDDAT

208

:BRANCH IF SKI IS SET

#8171 .R3

*SET ERROR FLAG

#SK]1,$GDDAT

001140

*STORE RMER2 AT $BDDAT

*CANT SET SKI

:IF NO PREVIOUS ERROR, CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE

e e

:SEEK ERROR.

208:

005703
2702

000001

12760
}2760

000001
000000

308:

052737
023737
001403

040000
001140

574
602
610

000200
—

032702

566

708
#1,R2

sBRANCH IF ANY OTHER_ERRORS
sINITIALIZE TEST PATTERN

#DMD ,RMMR1(R0O)
#0,RMER2(RO)
R2 ,RMMR1(RO)

;LOAD RMMR]
;LOAD RMER2
:LOAD RMMR1

#-CSK],$BODAT
$GDDAT
zgng.RZ

;GET SKI STATUS
sSETUP EXPECTED RESULT

#5K1,$GDDAT
$GDDAT,$BDDAT

2SK1 SHOULD BE ON

RMER2 (RO) , $BDDAT

001142

[=l=]
(=l

b emd o

000024
000042

MOV

001142

572

TST

BNE

]

med md o
o
d e
e
b

MOV
ADD

001136

001140

(=
o
(=]
L=

760
V]
~

b ek md b
O &
N

000001
000000
000042
137777

JSR
CLR

OO~ OO
oo ONOMAWN AWML
W=
O 00~ WS AN = O V00O NS

001136
000042

001226

:SCOPE CALL

SCOPE

NOP
MoV
MOV
MoV
Mov

:S ET

NHU—WvgyUNMU

S
o~
&»H
&~ ~
~
&

rs b

o (=]
NN

bb
b

021444

012760
012760
016037
042737
001405
005037
104116
052703

[elelelelelalele]

&
\hl\bnbt\bizg: xR o
:g Sfifighun»ucnoaru efunuumnv-a
W) =

D
D amd =D b
D cnd b
d
b
b

6 021400
021406
021414
021422
021430
021432
021436
021440

o oo

b med ed b o

15133:

021332
021332

ONONON ooorOrONONONON oo
v
WA
0
~

) o =D ad

2122222322223 3232332228222 2822222022222 0ddaldiitdiitiiidlldd)

40$:

CMP

508

;STORE RMER2 AT $BDDAT

sBRANCH IF SKI IS OK

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-34

M 10

SEQ@ 0129

SEEK ERROR TEST

133

1664
664 021612
1665
665 021616
1666
667
1668 02 1620
1669 02 1620
1670 02 1624
}671 02 1626

010237
104120

MOV

EMT

042702

508

000001
000001

000731

60$:

000001

1687 021712
1688 021720
1689 021726
1690 021734
1691 021742
1692 021744
1693 921750
1692 02752

000004
000240
012706
013700
013701

#OMD, R

ASL

*SHIFT TO NEXT BIT

308

:CONTINUE TEST

MOV

#DMD ,R2

BEQ
BIS
BR

708
#DMD ,R2

;DONT TRUNCATE TEST
:EXIT IF DONE
*KEEP DMD ON

;END OF TEST
2322222222222 2222222222232 2 2223232388333 2 220 2222220t ddddd]

004737
005003
010037
062737
012760
012760
016037
062737
001405
005037
104121
052703

7$734:

PIP TEST

001100
001276
001466
000034

000001
000401
000012
157777

ARz

22222

2232223323223 322382322222 202 238222202 s

;SCOPE CALL

SCOPE

#STACK , SP

001226

MOV
MOV
MOV
MoV

$BASE ,R0
TSTQUE,R1

RO = UNIBUS ADDRESS
:R1_= POINTER TO DEVICE

001136

JSR
CLR
MOV
ADD

PC,CNTCLR
R3
RO, $BDADR

;G0 CLEAR CONTROLLER
‘RESET ERROR FLAGS
*SETUP REGISTER ADDRESS

055156

001136
000012

NOP

000024
000024
001142
001142

#34,STESTN

#RMDS ,$BDADR

;LOAD THE STACK POINTER

:;SET TEST NUMBER IN APT MAIL BOX

sSET HAINBENANCE ON CYLINDER 'MOC'* AND VERIFY THAT 'PIP'’ CAN BE RESET.
MOV
Mov

8IC
8EQ
CLR
EMT
8IS

001140
000001

#DMD ,RMMR1(RO)

:LOAD RMMR1

i MOC ,RMMR1 (R0)
#DMD

:LOAD RMMR1

RMDS (RO) .$BDDAT :STORE RMDS AT SBDDAT

l‘gPIP,$BDDAT
10

sBRANCH IF PIP IS RESET

#81T0,R3

:SET ERROR FLAG

%85551 MAINTENANCE ON CYLINDER AND VERIFY THAT ‘PIP'* CAN BE SET

1696

1697 021756

;DONT SHIFT DMD BIT

BIC
BNE

tTEST 34

012737

1684 021704

120

708:

021644
021644
021646
021650
021654

;SAVE TEST PATTERN

R2,$TMPO

-ADVANCE TEST PATTERN IN R2

672 021632

1673 021634
1674 021636
1675 021642
1676
1677 021644
1678
1679

001174

000024

012760
016037
042737

001142
001142

MoV
MoV

#DMD ,RMMR1(R0)

;LOAD RMMR1

MOV

155P.$GDDAT

;BRANCH IF PIP IS SET

#81T1,R3

sSET ERROR FLAG

8IC
BNE

001140

EMT
8IS

RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#‘gPIP,$BDDAT

:]JF NO PREVIOUS ERROR, TEST FOR ADJACENT BIT SETTING 'MOC'’

208
000001

708
#1,R2

sBRANCH IF ANY PREVIOUS ERRGR
SINITIALIZE TEST PATTERN

€2

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-35

134

SEQ 0130

(elelellelelelelelalelels]

000001

000024

Mov

001142
001142

8
no

pur@urd

020000
001140

(==}
[=]=]

000400

408:

001174

MOV
MOV
BIC
CLR
BIT
BNE
BIS
(MP
BEQ
MOV

EMT

#DMD ,RMMR1(RO)

R2,RMMR1(RO)
RMDS
(RO) , $BDDAT
#~CPIP,$BDDAT
$GDDAT
#MOC,R2
408
#PIP,$GDDAT
$GDDAT, SBDDAT
508
R2,$TMPO

12%

:LOAD RMMR1

:LOAD RMMR1
:STORE RMDS AT $BDDAT
:GET PIP STATUS
:SETUP EXPECTED RESULT
:PIP SHOULD BE SET
;BRANCH IF PIP OK
*SAVE TEST PATTERN

NN
b b b

HOONNN

éegVANCE THE TEST PATTERN

000001

000734

608:

000001

BIC

BNE
MOV
ASL
BEQ
BIS

B8R

#DMD ,R2

608
#DMD ,R2
R2
708
#DMD ,R2

308

708:

W
o

OWAS:U“U-‘CMOOD‘GONflJ‘U“U-JChOOD‘JO“flJ‘U“U-‘

iggxre THE TEST PATTERN, CHECK MOC USING PIP

(=]
N
nN

b ) b e cd b b b b ad b and D cnd e b b b D b ad d ) D wd = el b —ed
~ NN NN NN NN N NN NN NN N NN NN NN NN
NNN
ANANAN NI PO A NI AN A NI NN
b b b cacd b e ccd b b
NN W
~
&

PIP TEST

:DONT SHIFT DMD
:DONT TRUNCATE TEST
‘SHIFT BIT
SEXIT IF DONE
*KEEP DMD ON

*CONTINUE TEST
;END OF TEST

::tttttttttt*tttttttti'tttttttttttttttttttt*ttttttttfittttittfi'*tt

S*TEST 35

EBL TEST

::t;;ttttttttttltt*ttttt'ttttttfittt*fitttfitlttttttt*ttttttttttfittt

TST35:

000004

001136

#STACK, SP
$BASE ,R0

:LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS

MOV

#35,$TESTN

*;SET TEST NUMBER IN APT MAIL BOX

CLR
MOV
ADD
CLR

R3
RO, $BDADR

;RESET ERROR FLAGS
*SETUP REGISTER ADDRESS

$GDDAT

;SETUP EXPECTED RESULT

TSTQUE,.R1

#RMMR1
, SBDADR

*R1 = POINTER TO DEVICE

:CLEAR AND VERIFY THAT END OF BLOCK IS RESET
fhurPhrd

(==
QO

4
4
4

JSR
MOV
BIC
BEQ
EMT
BIS

41 022164
742 022166
743 022172
4§ 022200

:SCOPE CALL

MOV
MOV

MOV

001226

—

740

001100
001276
001466
000035

388”5

0
21 022226
5
5

PC.CNTCLR
:G0 CLEAR CONTROLLER
:STORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBDDAT
#~CEBL,$BODAT
108
;BRANCH IF EBL IS RESET
124
#8ITO,R3
:SET ERROR FLAG

iggr AND RESET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-1.
000001
020001

000024
000024

MoV

MOV

#DMD ,RMMRY (RO)

:LOAD RMMR1

#DMD DEBL , RMMR1 (R0)

:LOAD RMMR1

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-36

B 11

SEQ 0131

EBL TEST

135

1758 022250

012760

000001

000024

1760 022264

1762 022274

};gz 022276

042737

001403
104125

052703

157777

001142

1766 022302

1770 022324

1771 022332

1772 022334
1773 022342

};;g 022344

1776
1777 022350
1778 022350
1779 022352

};g? 022354

EMT

BIS

012760
012760
016037

042737

001006

012737
104126

052703

005703
001042

012702
012760
010260
016037

1788 022406

010203

1789 022410
1790 022414

042737

000001
020001
000026

157777

020000

000024
000024
001142

000001
000024
000024

157777

010337
010237

001140
001174

1798 022434

042702

000001

1800 022442
1801 022446

012702
006302

000001

1802 022450
1803 022452

001002

001403
052702

}ggg 022456 000740

BNE

MOV
EMT

001140

BIS

20$

:BRANCH IF EBL IS RESET

#BITO,R3

;SET ERROR FLAG

125

#DMD ,RMMR1 (RO) :LOAD RMMR1
:LOAD RMMR1
#DMD | DEBL , RMMR1 (RO)
‘STORE RMMR1 AT $BDDAT
RMMR1 (RO) . $BDDAT
#*CEBL,$80DAT

308

;BRANCH IF EBL IS SET

#8IT1,R3

;SET ERROR FLAG

#EBL,SGDDAT
126

-1F NO PREVIOUS ERRORS, TEST FOR ADJACENT BIT INTERFERENCE ON ‘DEBL’’.
50s:
TST
BNE
MOV

000024

408:

001142

R3
708

#1,R2

:BRANCH IF ANY ERROR
YINITIALIZE TEST PATTERN

MOV
MOV
MOV

#DMD ,RMMR1 (RO) ;LOAD RMMR1
:LOAD RMMR]
R2,RMMR1(RO)
-STORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBDDAT

MOV

R2,R3

BIC

001142

BIC
CMP

BEQ

MOV
MOV

EMT

50s:

#~CEBL ,$BDDAT

#~CEBL.R3
R3,$8DDAT

so$

R3,$GDDAT
R2.$TMPO

127

:GENERATE EXPECTED RESULT

:BRANCH IF EBL IS OK

*SAVE EXPECTED RESULT
*SAVE TEST PATTERN

8IC

#DMD ,R2

:DONT SHIFT DMD

MOV
ASL

#DMD ,R2
R2

:DONT TRUNCATE DMD
‘SHIFT TO NEXT 8!T

B8R

408

*CONTINUE TEST

BNE

608:

000001

1806 022460

70$:

1820

: 23223232

18%

:STORE RMMR1 AT $BDDAT

-SHIFT TO NEXT BIT POSITION

1796

1799 022440

MOV
MOV
MOV
BIC

000001

157777
001142

};gg 022432 104127
1797 022434

20$:

001142

000002

047703
020337

1791 022420 001405
1792 022422
1793 022426

;LOAD RMMR1

:WRITE, READ AND VERIFY THE TEST PATTERN IN R2

1784 022360
1785 022366
1786 022372

1787 022400

RMMRT (RO) , SBDDAT

-RESET AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-0

1782

1783 022360

BIC

#*CEBL,$BODAT

BEQ

000001

1765

1767 022302
1768 022310
1769 022316

#DMD ,RMMR1 (RO)

MOV

1759 022256 016037 000024 001142
1761 022272

MOV

BEQ
BIS

;*TEST 36

60$

708
#DMD ,R2

YEXIT IF DONE
*KEEP DMD ON

;END OF TEST
2232222222222 3322223 82333223283 332233333323332323232222%33;/

LAST SECTOR, LAST TRACK TEST

s*TRANSFER TEST PATTERN TO RMDA THEN VERIFY LAST SECTOR °'LS'’ AND LAST
;*SECTOR/TRACK ‘LST'' FOR EACH TRANSFER. THE TABLE BELOW LISTS THE VALUE
;*OF RMDA FOR WHICH LS AND LST ARE SET.
b

—

CZRNBAO

136

RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-37

SEQ 0132

LAST SECTOR, LAST TRACK TEST

;e
JxLS =
. %

18 BIT MODE
XXx035

talST= 006435
3

Se 2223228222232

ts136:

022460

022460 000004
022462

000240

022464 012706
022470 01%700
022476 013701
022500 012737
1821 022506 012737
1822 022514
1823 022516
1824 022522

005002
010037

062737

001100
001276
001666
000003
000036
001136

000024

001444
001334

001136

1825 022530
1826 022534

005037
013737

1829 022550
1830 022554
1831 022562

004737
013760
016037

055156
001444
000032

000032

1833 022574
183% 022602

016037
013737

000026
001362

001362
001142

023114

}ggg 8552?5 112737 000035 023114 105
1832 022570

010260

000006

001176

1836 022616 005037 001140
1837 022622
1838 022630
1839 022632
1840 022640
1841 022642
1842 022646

032737
001010
032737
001010
123702
001014

010000

001444

007000

0016444

1844 022652

123702

023114

1843 022650 000410
1845 022656

001010

1847 022662

}gzg 022670

123737

001003

023114

001140

1850 022672

052737

000004

001140

1852 022706
1853 022710

001494
010237

1846 022660 000404
1851 022700

023737

1854 022714 104130

001140

001142

258:
308:

358:

001174

1857 022720

1858 022726

1859 022734

1860 022740
1861 022746
1862 022750
1863 022756

013737

042737

005037

032737
001010
032737
001010

001362
177775

001140

001142
001142

010000

(01444

001000

001444

40$:

222

3Rttt

laddidd

;SCOPE CALL

CLR
MOV

R2
RO, $BDADR

SINITIALIZE TEST PATTERN
*SETUP REGISTER ADDRESS

RMOF O
LSTRK , 808

;START IN 18 BIT MODE
*SETUP LAST TRACK AND

ADD

1, SBDADR
#RMMR

MOvB

#035,808

‘LAST SECTOR (29.)

JSR
MOV

MOV

PC,CNTCLR
F
(RO)
RMOFO,RMO
RMOF (RO) ,$TMP1

;G0 CLEAR CONTROLLER
:LOAD NMOF
:STORE RMOF AT STMP1

MOV
MOV

;STORE RMMR1 IN INPUT BUFFER
RMMR1(RO) ,RMMR1]
;VERIFY 'vsTM
RMMR11,$BODAT

CLR
MOV

R2,RMDA (R0)

#-CLS,$BDDAT
$GDDAT

BIT
BNE
8IT
BNE
cmP8
BNE

#FMT16.RMOFO
208
#SSE] ,RMOFO
258
80$.R2
358

(MPB

80S$.R2

B8R

308

B8R

308

SLOAD RMDA

:GENERATE EXPECTED ‘18"’

:16 BIT MODE ?
SYES!!
216 BIT MODE W/ SSEI ?
SYES !!
218 BIT MODE LAST SECTOR ?
*NO !!

;16 BIT MODE LAST SECTOR ?

358

“NO !

CMPB

80S,SGDDAT

;16 BIT MODE W/ SSEI LAST SECTOR ?

BIS

#LS,SGDDAT

:LS SHOULD BE ON-16 BIT MODE

BEQ
MOV

408
R2,$TMPO

:BRANCH IF LS IS CORRECT
*SAVE TEST PATTZRN

B8R

908

;SKIP TO NEXT

MOV

RMMR1],%BDDAT

:VERIFY '1ST"'

CLR

$GDDAT

:GENERATE EXPECTED ‘LST'’

BNE

(MP

EMT

}ggg 022716 000477

2332222222223 2228322222

:LOAD THE STACK POINTER
RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
1:p0 3 ITERATIONS
P3SET TEST NUMBE® IN APT MAIL BOX

CLR

208:

006437

#STACK,SP
$BASE RO
TSTQUE R
#3,$TIMES
#36,$TESTN

BIC

023114

006436

MOV
Mov
MOV
MOV
MOV

MOV

1835 022610 042737 177773 001142

16 BIT MODE W/ SSEI SET
XXX037

SCOPE

NOP

001206
001226

16 BIT MODE
XxXx036

BIC

BIT
BNE
BIT
BNE

358

$GDDAT,SBDDAT

130

#-CLST,SBDDAT

#FMT16,RMOFO
508
#SSE],RMOFO
558

INO !

:16 BIT MODE??
SYES!!
*16 BT MODE W/ SSEI ?
SYES !

SEQ 0133

$§2N8A0 RMB0O DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-38

N
N

000002
001140

60$:
658:

—d

55¢:
-—

~N)
-~J
-~

N[a S
W

b
o

023114

001174

e
b

50$:

023114

7 023032

000431

H 18 ?{T MODE LAST TRACK/SECTOR ?

(MP

80$.R2

; 16 ?{T MODE LAST TRACK/SECTOR ?

B8R

BNE

B8R

(MP

BNE

608
658

608

80$.R2
65$

;NO

16 BIT MODE W/ SSEI LAST TRACK/SECTOR ?
NO

LS T SHOULD

BE SET

BIS
CMP
BEQ
MOV

#LST,SGDDAT
$GDDAT, SBDDAT
708
R2,$TMPO

2IS LST STATUS CORRECT ?
‘BR IF YES
*SAVE TEST PATTERN

90s

sSKIP TO NEXT

131

18 BIT TESTS DONE.

001444

010000
000036

001444
023114

001000

001444

001000
000037

001444
023114

S
2588

Y=/

005202
010000

890
023066
891 023074
892 023076
1893 023104
1894 023112
1895
1896 023114
1897
1898 023116
1899

708

(e Y=o

023034
023034
023036
=i=lel=

g=°° 830%:00 SRRD
838 ERER

D md =D b
b e

808 .R2
659

;ADVANCE TO NEXT TEST PATTERN, CHANGE TO 16 BIT MODE IF ALL

CMP
BNE

EMT

023114

(==
oo

B
d —b
d

D e

00 00 Oe 00 00 00 0o 00 00 00
SNNNNSNSNSNNNYN
NN 2O
WN—=O 000 WOV

023702

NI, ST, ST, V] N1,N]1,91,%]

PRDRD®
g\l@mb

LAST SECTOR, LAST TRACK TEST

000631
032737
00140
052737
112737
000616

R2
108
#FMT16,RMOFO
758
#FMT16 RMOFO

108

MOVB

758:

BIT

BEQ
8IS

MOVvB

B8R
80$:

000000

INC
BNE
BIT
BNE
MOV

WORD

s INCREMENT PATTERN
sCONTINUE IF NOT DONE
:30g§.16 BIT TEST ?
r E

° .

#036,808

DO 16 BIT FORMAT TEST
*STORE LAST SECTOR ADDRESS

#SSEI1,RMOFO

‘32?‘.16 BIT FORMAT W/ SSEI SET ?

#SSEI ,RMOFO

*SET SSEI WITH 16 BIT MODE AND

908

#037,808
108

*STORE LAST SECTOR ADDRESS
STEST AGAIN

sHOLDS LAST TRACK/SECTOR ADDRESS

90$:
°:tttttttttttttttttttttt'tittt.tfi.tttt.tttttttttfi't*t!ttttt'ttttt

1903

S*TEST 37

RMDA COUNT TEST

NNARANRNNRANE
RARN
RAEANRRANRAANRA
RANRA
NI RAAARARRARNRARA
AR RARANRANRN

b
b ab

-t b OO
b

OO0O0OO00

N=OV00
N

‘”o‘ngéng 338

b
b b cnch =
b

b ad kb

OO00O0

TST37:

001100

000037
001136

000001

MOV

SP
#STACK,

MOV

TSTQUE.R1

MOV

001206
001226

001136
023622
001140

:SCOPE CALL

SCOPE

NOP

MOV

$BASE ,RO

#3, STIMES

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

::D0 3 ITERATIONS
ssSET TEST NUMBER IN APT MAIL 80X

MOV

#37,$TESTN

MOV

ADD

RO, $8DADR
A
, $BDADR
#RMD

:SETUP REGISTER ADDRESS

Mov
MoV

#29.,1108
#1,8GDDAT

sSETUP LAST SECTOR FOR 18 BIT

RMOFO

sSTART WITH 18 BIT FORMAT

sSETUP FIRST COUNT

s INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT
;SECTOR O AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS

NS NN = OO0 ~NO NS W

&~
~
\v|
~

b
- b

000001

000000

060001
040001
000006
001142

.SET GO BIT

JSR
MOV
MOV
MOV
MOV
MOV

PC,CNTCLR
#OMD ,RMMR1(RO)
#0.RMER1(RO)
#0 RMER2(RO)

;GO CLEAR CONTROLLER
:LOAD RMMR1
:LOAD RMER1
:LOAD RMER2

MOV
MOV

#DMD ! DBEN, RMMR1 (RO)
:LOAD RMMR1
#GO,RMCS1(RO)
;LOAD RMCS1

RMOF
(R0) ,$TMPO

:STORE RMOF AT STMPO

#0 _RMDA (RO)
RMOFO,RMOF (RO)

*LOAD RMDA
:LOAD RMOF

0030
FH¥

MOV

#DMD
! DBEN !
EBL ,RMMR1 (RO)

cMP
BEQ
EMT
BR

$BDDAT, SGDDAT

MoV
MOV

000416

:LOAD RMMR1

:LOAD RMMR1
| (RO)
| DBEN .RMMR
#DMD
RMDA(RO) ,$BDDAT ;STORE RMDA AT $BDDAT
308
132
508

;BRANCH IF RMDA OK
sOUT OF SYNC-SKIP TO NEXT

sADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NOT

SggnPLETE

005237
123737

INC

023622

40$:

[ YN

N
W
WNW

(=]
N
W
N
W
~nN

023326

WN=0O 000 ~

oo~ OV

000024
000024
001142
001140

9 023360

CvP8
BNE
CLRB
INCB
TST8
BEQ
B8R

$GDDAT

$8DDAT, 1108
408
$SGDDAT
$SGDDAT+1
$8DDAT
508
25$%

;INCREMENT EXPECTED SECTOR

;WAS THE LAST SECTOR JUST COUNTED??
:NO!!
:YES=NEXT SECTOR SHOULD BE ZERO
: INCREMENT TRACK ADDRESS
JHAS A FULL CYCLE BEEN COUNTED??
JYES-DO NEXT
;CONTINUE SECTOR TEST

s INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK.
b

023622
000400

Y
N

:LAST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE.

023362
023362
023370

o0
=l=)

o
800
o~ ooogoog\nmmgmv\\nm\nm
m%umdoomwombwmdo
O~

b ad =D wd

.SET FORMAT
"LOAD SECTOR AND TRACK ADDRESS
.ENABLE DEBUG CLOCK

MOV

50s

o.. LR FI
o
w

b
b
b
b wmd cd

055156

000032

o
N
W
£&H
W
N

000001

000000

MOV

MOV
i XY

d wd =D

000024

.CLEAR THE MASSBUS

§§§' AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA.

b e
D b D ) D e

OOV OO0

b —d —d ed e

VOO

b —h
b

0
0 O OO
OO OO0
VO VOO O

055156

b D

b ek b (=]

(elelelelelalale
el

fos

wmd
—d e

SEQ 0134

V04.00 14-JAN-82 16:33:00 PAGE 13-39
;
:
:

Dl D d e

) ed e e

)

D ) e e

) d

00000000 0N OO 000 0V OV OO

AORINININDND
— — — —b —2 s —2

CZR NBAQ RMBO DSKLS PT1 MACRO
RMDA COUNT TEST
137

1108 . RMDAO

#TA1.$GDDAT

START AT TRACK O,

;STARTING TRACK ADDRESS = 0

‘FIRST VALUE AFTER INCREMENT

.CLEAR THE MASSBUS
«SET FORMAT
.LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS
.ENABLE DEBUG CLOCK
.SET GO BIT

JSR
MOV
MOV
MOV

PC.CNTCLR
RMOF
O, RMOF (RO)
RMDAO _RMDA(RO)
#DMD RMMR1(RO)

;GO CLEAR CONTROLLER
MOF
:LOAD RMDA
:LOAD RMMRI

MOV

#GO,RMCS1(RO)

;LOAD RMCS1

MOV

#DMD { DBEN, RMMR1 (R0)

:LOAD RMMR1

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-40

F1N

SEQ 0135

RMDA COUNT TEST

137

1970

1971 023440

012760

060001

000024

1974
1975 023454

016037

000006

001142

1978 023472

10413

:CLOCK RMDA USING DIAGNOSTIC END OF BLOCK

Mov

MoV

}g;g 023446 012760 040001 000024

1976 023462
1977 023470

}ggg 023474

023737
00140

001140

001142

1982 023476

000453
105237

1985 023510

001002

1986 023512
1987 023516
1988 023524
1989 023526
1990 023534

1991 023536

CMP
8EQ

$GDDAT,SBDDAT
708

1208

133

123737

005037
013737

001404
113737
000720

1992 023536
1993 023544
1994 023546

032737
001007
012737

1996 023562
1997 023564

000412

001141

708:

001143

001335

001140
001142

001420

023622

001420

010000

001444

010000

001446

1998 023564
1999 023572
2000 023574

032737
001014
052737

001000

001444

001000

001444

2003 023610

80S$:
90$:

012737

000001

001140

%889 023622

000000

SGDDAT+1

:ADVANCE EXPECTED TRACK

BNE

80$

JNO!!

90%
1108 ,RMDAO
60$

JYES!!
2INCREMENT FROM LAST SECTOR

CLR
MOV

BEQ
Mov8e
BR

95%:

$SBDDAT+1,LSTRK+1
$GDDAT
$SB8DDAT ,RMDAO

817
BNE
MoV

#FMT16,RROFO
95%
#FMT16 ,RMOFO

1008

MOV

l30..1i0$

MOV

#1,8GDDAT

*REPEAT TEST

110$:

.WORD

JMP

JIRAARARRRR AN

:«TEST 40

IINNARAAR RN

T1ST40:

023640 013701 001466
023644 012737 000003 001206
2011 023652 012737 000040 001226
2012
2013 023660

010037

001136

2015 023672

005037

001444

2014 023664

062737

000034

001136

:SET LAST SECTOR FOR 16 MODE

1008:

MoV

2010

001100
001276

:DONE BOTH FORMATS??
SJYES!!
:SET FORMAT BIT FOR 16

:DONE 16 BIT MODE W/ SSEl SET ?
JYES !
:SET SSE]l W/ 16 BIT MODE AND

120$:

023630
023634

JYES=NEXT TRACK, SECTOR SHOULD BE ZERO
JHAS A FULL CYCLE BEEN COUNTED??

#SSE1 ,RMOFO
1208
#SSE] ,RMOFO

5883 023624

000004
000240
012706
013700

;WAS THE LAST TRACK JUST COUNTED??

BIT
BNE
8IS

%88} 023602 012737 000037 023622

5% 023616 000137 023204

INCB

(MP8

1995 023554 012737 000036 023622

023624
023624
023626

;0UT OF SYNC-SKIP TO NEXT

+SETUP FOR NEXT INCREMENT OF RMDA TRACK ADDRESS

1983 023476

1984 023502

:LOAD RMMR1

:VERIFY RMDA ACCORDING TO SGDDAT
RMDA(RO) ,$BDDAT ;STORE RMDA AT SBDDAT
MOV
EMT

1981

#DMD 'DBEN'DEBL ,RMMR1 (R0O)

lDflD!DBEN.RHHRf(RO)

SCOPE
NOP

MoV
MOV

MOV
MoV
MOV

#31.,1108

108

SSET LAST SECTOR

:SET FIRST COUNT VALUE
;STORAGE FOR LAST SECTOR VALUE

AR NN R RO R AR NARRRANANARARANNAARARAETEANACORCRNND

RMDC COUNT TEST
AR

AN LR E AN AN RN RNRA RN AN AAARARAAINARIRARORD

;SCOPE CALL

#STACK,SP
$8ASE RO

TSTQUE R
l‘b.SIESTN

#3_STIMES

;LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

*R1 =_POINTER TO DEVICE
::D0 3 JTERATIONS
ssSET TEST NUMBER IN APT MAIL BOX

:CLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS
MOV
RO, $BDADR
;SETUP REGISTER ADDRESS
ADD

CLR

#RMDC ,$BDADR

RMOFO

:START WITH 18 BIT FORMAT

140

SEQ 0136

RMDC COUNT TES

2016 023676
2017 023704
2018 023712
2019 023712
2020 023716
2021 023724
2022
2023

013737
112737

001334
000035

004737
012737
012760

055156
000001

000000

001420
001420

004737

055156
001444

000032

000034

001420
000001

001174

2038 024002
2039 024010
2040 024016
2041 024024
2062 024032
2043 024034
2044 024036
2045

000024

001140

001142

/WIS
SN
RO O S

RN
RITIRRD
SERERESS
S

OO0

MOV

#0.RMDC (RO)

2GO CLEAR CONTROLLER
sLOAD FIRST INCREMENTAL VALUE
sLOAD RMD(

#1.$GDDAT

JSR

PC,CNTCLR

MOV

(RO) ,$TMPO
RMOF

MOV

;G0 CLEAR CONTROLLER

(RO)
RMOFO,RMOF

:LOAD RMOF

RMDAQ,RMDA(RO)
#DMD ,RMMR1(RO)

:LOAD RMDA
:LOAD RMMR1

#GO.RMCST1(RO)

;LOAD RMCS1

:STORE RMOF AT $TMPO

#DMD | DBEN ., RMMR1 (RO)

:LOAD RMMR1

:CLOCK THE CYLINDER ADDRESS USING DEBL

MOV

' DBEN DEBL ,RMMRT (RO)
#DM

:LOAD RMMR1

MOV
MOV

:LOAD RMMR1
1 (RO)
i DBEN .RMMR
#DMD
C :STORE RMDC AT $BDDAT
(RO) , SBODAT
RMD

ggg

?23

:BRANCH IF RMDC=RMDC+1

60$

:0UT OF SYNC-SKIP TO END

cMP

$GDDAT, SBDDAT

SS%YANCE EXPECTED RESULT FOR NEXT INCREMENT

2047 024040

A%,

PC,CNTCLR

MOV

040001 000024
000034 001142

2046

JSR

MOV

000000

060001

sLOAD LAST TRACK AND
sLAST SECTOR

MOV
MOV

000006
000024

0460001 000024
000001

LSTRK ,RMDAO
#29.,RMDAO

.CLEAR THE MASSBUS
.SET OFFSET
.LOAD LAST SECTOR AND TRACK ADDRESS
.ENABLE DEBUG CLOCK
"SET GO BIT

000032

MOV
MOVB
MOV

2037

2050 024052
2051 024054
2052 024060
2053 024064
2054 024066
2055 024070

001140

2024
2025
2026
2027

2028 023732
2029 023732
2030 023736
2031 023744
2032 023752
2033 023760
2034 023766
2035 023774
2036

108

001140

002000

001140

408:

001142

Sos

000721

032737

000676

032737

010000 001444
010000
000036

001444
001420

001000 001444

000663

CLR

$GDDAT

:agquo NEXT VALUE BE ZER0??

$GDDAT

LYES-RMDC SHOULD OVERFLOW

508

SYES!!

TST

$BDDAT

B8R

208

BEQ

;ADVANCE NEXT RESULT

26g24..$GDDAT

*1S ONE CYCLE COMPLETE??

* CONT INUE
:DONE 16 BIT FORMAT MODE ?

NFMT16,RMOFO

55
#FMT16.RMOFO
#30..RMDAO
108

SYES !!
:SET 16 BIT FORMAT AND
*LAST SECTOR

gfig

gggsx.anoro

;ggge‘]a BIT MODE W/ SSEI SET ?

8IS
MOVEB
B8R

#SSEI1,RMOFO
#31..RMDAO
108

BNE
MOV
MOVB
BR

001000 001444
000037

INC

gfig

001420
60$:

*SET SSEI W/ 16 BIT MODE AND
SLAST SECTOR
*REPEAT TEST

::ttttttlttl'.tttt.tt't't."*ttt't.ttt.tt'.t.tt'ttlttttttittOtttt

SeTEST 41

LBT TEST

::'Qtt'ttttt".tttttti""""tt"ttt.tttt.t't'tt'ttttttttttttttt

——d

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-41

CZRNBAO RM80 DSKLS PT1 MACRO VO04.00 14=JAN-82 16:33:00 PAGE 13-42

SEQ 0137

LBT TEST

141

024146

TST41:

024144

000004

024150
024154
024160
0264164

012706
013700
013701
012737

001100
001276
001466
000003

2071 024200

010037

062737

001136

000012

2074 024212

005037

001444

024146

000240

MOV
MOV
MOV
MOV

001206

MOV

2070 024172 012737 000041 001226
585% 024204

2075 024216
%8;9 024224

013737
112737

001334
000035

2078
2079
2080

2083

2084 024232

2085 024232
2086 024236
2087 024244
2088 024252
2089 024260
2090 024266
2091 024276
2092 024302
2093 024304

gggg 024310

004737 055156
012760 001060
013760 001420
013760 001444
016037 000032
016037 000012
042737 175777
001403
005037 001140

001142

:START WITH 18 BIT MODE

012760
012760
012760
012760
012760

000001
000000
000000
000001
060001

000024
000014
000042
000000
000024

2109 024364

042737

175777

001142

JSR
MOV
MOV
MOV

002000

001140

032737
001007
012737
112737

010000

001444

010000
000036

001444
001420

:GO CLEAR CONTROLLER
PC.CNTCLR
#560. ,RMDC(RO) :LOAD RMDC
. RMDA(RO) :LOAD RMDA
RMDAO
F :LOAD RMOF
(RO)
RMOFO.RMO
(R0) ,$TMPO :STORE RMOF AT $TMPO
RMOF
RMDS (RO) .$BDDAT :STORE RMDS AT SB8DDAT
#°CLBT,$BDDAT
:BRANCH IF LBT IS RESET
208
*LBT SHOULD BE ZERO
$GDDAT
141

VERIFY THAT LBT IS SET

SET GO
FORCE EBL

MOV
MOV
MOV
MOV
MOV

#DMD ,RMMR1 (RO) ;LOAD RMMR1
:LOAD RMERI
#0.RMER1(RO)
:LOAD RMER2
#0.RMER2(RO)
:LOAD RMCS1
#GO,RMCS1(RO)
(RO)
,RMMR1
DEBL
' DBEN!
#DMD

BIC

#~CLBT,$BDDAT

MOV
MOV

2107 024350 012760 040001 000024
2108 024356 016037 000012 001142
012737
104142
000426

*SET LAST TRACK AND
SLAST SECTOR

LOAD LAST CYLINDER

ENABLE DEBUG CLOCK

208:

2102 024312
2103 024320
2104 026326
2105 024334
2106 024342

LSTRK,RMDAO
#29.,RMDAO

;

2101 024312

2115 024406
2116 024414
2117 024416
2118 024424

RMOFO

EMT

:
:
:

2111 024374
2112 024402
2113 024404
2114 024406

CLR

MOV
MOV
BIC
BEQ
CLR

001174
001142

104141

001005

;SETUP REGISTER ADDRESS

VERIFY THAT *LBT'* IS RESET

2097
2098
2099

2110 024372

RO, $BDADR

000034
000006
000032

2100

“:SET TEST NUMBER IN APT MAIL BOX

CLEAR THE MASSBUS
SET FORMAT
LOAD LAST TRACK AND SECTOR

fos:

2096

#i,$TESTN

;
:
:

ggg;

;LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
+:D0 3 ITERATIONS

#RMDS , SBDADR

MOV
MOVB

001420
001420

#STACK,SP
$BASE R0
TSTQUE,R1
#3 STIMES

ADD

MOV

001136

;SCOPE CALL

SCOPE

NGP

MOV
EMT
BR

#LBT,$GDDAT
142
408

308

:BRANCH IF LBT IS SET

BIT
BNE
MOV
MOVB

#FMT16,RMOFO
358
#FMT16,RMOFO
#30.,RMDAO

:DONE 16 BIT FORMAT ?
SYES !!
:SET 16 BIT MODE AND
*LAST SECTOR

BNE

308:

:LOAD RMMR1

:LOAD RMMR1
| DBEN ,RMMRT (RO)
#OMD
AT $BDDAT
RMDS
:;STORE
$BDDAT
,
(RO)
RMDS

CZRNBAO RMBO DSKLS PT1 MACRO V064.00 14=JAN-82 16:33:00 PAGE 13-43

SEQ 0138 ]

LBT TEST

1461

19 02&4%%

000677

024434

032737

024460

000664

358
001000

001444

001000
000037

001444
001420

108

STEST AGAIN.

BIT
BNE
81S

#SSE1,RMOFO
4«0%
#SSE1,RMOFO

;DONE 16 BIT MODE W/ SSEI SET ?
JYES !!
sSET SSEI W/ 16 BIT MODE AND

108

sTEST AGAIN.

mMove

408

#31. ,RMDAO

sLAST SECTOR

2212322322 2222223222 3223228222223 232322238328 22320

LeTEST 42

COMPOSITE ERROR TEST

000004
000240
012706
013700
013701
012737

001100
001276
001466
000042

024510
024514

010037
062737

001136
000012

001226

MOV
ADD

001136

2 20

allsdds

#STACK,SP
$BASE ,R0
TSTQUE ,R1
#42,$TESTN

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

RO, SBDADR

:SETUP REGISTER ADDRESS

, SBDADR
#RMDS

;USING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE
024522

004737

055156
000001
000000
000000
000012
137777

000024
000014
000042
001142
001142

;ERROR IS RESET.
PC,CNTCLR
JSR
,RMMR1(RO)
#DMD
Mov
RO)
#0,RMER1(
MoV
#0,RMER2 (RO)
MOV
RMDS (RO) ,$BDDAT
MoV

[=]

~N
F S

024602

024634
024636

024636

012737

040000

001140

=S OOO0OOO

024574

177777
1772777
000012
137777

000014
000042
001142
001142

8IC

#~CERR,$BDDAT

CLR
EMT
MOV

$GDDAT
143
#ERR,$GDDAT

8EQ

001140
108:

108

;G0 CLEAR CONTROLLER
;LOAD RMMR1
:LOAD RMER1
;LOAD RMER?
;STORE RMDS AT $BDDAT

;BRANCH IF ERR IS RESET

:SET BOTH ERROR REGISTERS AND VERIFY THAT COMPOSITE ERROR IS SET
Mov
Mov
MOV
8IC
BNE
EMT

#-1,RMERT1(RO)
#-1,RMER2(RO) _
RMDS (RO) ,$BDDAT
#“CERR, $BDDAT
208
144

;LOAD RMER1]
;LOAD RMER?
;STORE RMDS AT $BDDAT

sBRANCH IF ERR IS SET

555?"' THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER1
012702

000001

mov

M ,R2

;INITIALIZE TEST PATTERN

-WRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET

308

)

024674

055156

000024

b
—b e

b —d

elelelelo]

b
b
d
b
—d o

oONONONON
NS NN =

MOV
MOV
MOV
MOV

:SCOPE CALL

SCOPE

NOP

)

TST42:

024462
024462
024464
024466
024472
024476
024502

uununnu“nv“nuunbdxaJ\b&\b:\b:wuvungkn‘“flhhdc»o
SOONOmwa-‘OOONOubuw-floomN

MUNLALNLNL NSRRI b
NINIAINIAININIAL
NN RINIALI NI AN NN NN
AN NN
and aud b and wud and and D b b cad mod b e —ed b
d D ) D ) d D

NN
N NN

Y 2222322282222 2222322323383 3222232282222

2202 Rddd)

2202

000012

001142

JSR
MOV
MOV
MOV
MOV
MOV

PC,CNTCLR
#DMD,RMMR1(RO)
#0,RMER1(RO)
#0 RMER2(RO)
R2.RMERT(RO)
RMDS (RO) ,$BDDAT

;60 CLEAR CONTROLLER
:LOAD RMMR1
:LOAD RMER1
:LOAD RMER2
:LOAD RMERI
:STORE RMDS AT SBDDAT

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-«

J 1n

SEQ 0139

COMPOSITE ERROR TEST

137777

:Scb‘ighfl‘\U"V-‘éLOOD‘JghflJ‘U"U—‘CNOOD‘UO“fi“U"U-‘C)(K”‘do‘

024702
024710
024712
024716
024722

024724
024724
024726

MOV
CLR
EMT

R2,$TMPO
$TMP1
145

408

;BRANCH IF COMPOSITE ERROR SET
*SAVE RMER1 TEST PATTERN
‘SAVE RMER2 TEST PATTERN

ASL

BNE

30s

:CONTINUE IF TEST NOT DONE

gggnxrv THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2
000001
010000

001444

MoV
MOV

#1,R2

#FMT16,RMOFO

SINITIALIZE TEST PATTERN
;SET 16 BIT FORMAT

éggxrs THE TEST PATTERN AND VERIFY THAT ERR IS SET

024742
024742
024746
024754
024762

055156
000001
000000
000000
000042

[p)
&oH
~
~

#CERR, $BDDAT

BNE

024730
024730
024734

) o
D wnd

040000
001527

) wnd

001140
001140

000024
000014
000042

000032
001142
001142
001140

JSR

MOV
MOV
MOV
MOV
MOV
MOV
BIC
MOV
BIT

BEQ

001142

658:

001174
001176

—d md

CLR

(MP
BEQ
CLR
MOV

EMT

PC.CNTCLR

#DMD ,RMMR1(RO)
#0,RMER1(RO)
#0 RMER2(RO)
R2.RMER2(RO)
OF
RMOFO,RM(RO)
RMDS (RO) , $8DDAT
#~CERR, $BDDAT
#ERR, SGDDAT
#XNUER2 ,R2

;60 CLEAR CONTROLLER

:LOAD RMMRI
:LOAD RMER1
:LOAD RMER2
:LOAD RMER2
:LOAD RMOF
:STORE RMDS AT $BDDAT

;SETUP EXPECTED VALUE FOR COMP ERROR

658

:BRANCH IF TEST BIT IS A USED BIT

$GDDAT,$BDDAT
708
$TMPO
R2,$TMP1

;BRANCH IF COMP ERROR IS OK
*SAVE RMER1 TEST PATTERN
*SAVE RMER2 TEST PATTERN

$GDDAT

145

STEST BIT IS NOT USED = ERR SHOULD BE 0

562VANCE THE TEST PATTERN FOR RMER2

006302
001327

80$:

asL

BNE

608

:CONTINUE IF TEST NOT DONE

;:tttttttttttttttttttttttttIttittttQtitttQtfitttttttt.ttlttfittttt'

TaTEST 43

WRITE GO TEST

;:lt;ittttttttttttttt'tttttlttttfitttf!titttttt'ti.ttt't'.'ittttfit

OO
=mbded
Nl
~N

000004
000240
012706
013700
37

37
02

o0
O=d
Vo
OO

2
2203 025060

BIC

iegVAncs THE TEST PATTERN FOR RMER1

2200 025056

001142

001174
001176

b —b

O
0 0 O O 0 OO P 0o 0o
0o

PN S, S, S8 LS LY LS LS ST STRTSTST
STV NS LN LN LS LN T ST ST ST SN IS LN TN LN N o
od d b b b ok b D b b e amd b e e ad b o b e

00Q0 00000000 N N NN NNNNNNOOOO

1462

15143:

001100
001276
001466
000043

001136

Sggpe

MOV

#STACK, SP

;LOAD THE STACK POINT:R

MOV
MOV

TSTQUE.R1
#43,STESTN

*R1 = POINTER TO DE\iCE
1:SET TEST NUMBER IN APi MAIL BOX

MOV

RO,$BDADR

MOV

001226

:SCOPE CALL

CLR

$BASE ,R0

‘RO = UNIBUS ADDRESS

:COPY RMCS1 ADDRESS
SINITIALIZE FUNCTION CODE

SEQ 0140

CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-45
WRITE GO TEST

2213
2214 025120
2215 025120
2216 0251264
2217 025132
2218 025140
2219 025146
2220
2221

ig%EAR THE MASSBUS, SET DIAGNOSTIC MODE AND ENABLE DEBUG CLOCK
004737
012760
012760
012760
012760

055156
000001
041001
000000
000000

000024

2236 025222
2237 025222
2238 025226
2239 025232
2240

042737
010337
104146
000405

MOV
MOV

-2

NININININININD
NN

2230 025204
2231 025212
2232 025216
2233 025220

177700
001140

MOV

MOV
MOV
MOV

PC,CNTCLR

#DMD ,RMMR1(RO)

;G0 CLEAR CONTROLLER

:LOAD RMMR1

i DBEN'MUR,RMMR1 (RO) ;LOAD RMMR1
#DMD
#0,RMERT(RO) = ;LOAD RMER1
:LOAD RMER2
#0 RMER2(RO)

;TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET
:SETUP FUNCTION CODE
33
2.
g?g

000001
000001

JSR

000042

QO
OO

143

001142

BIT

BNE

:LOAD RMCS1
R3 Rncs1(n0)
SSTORE RMCS1 AT $BDDAT
RMCS1(RO), SBDDAT’

#G0, SBODAT

208

:BRANCH IF GO IS SET

:REPORT THE ERROR-CANT SET GO WITH THIS FUNCTION CODE
BIC
MOV
EMT
BR

, SBDDAT
#~CFNCMSK
R3,$GDDAT
:SAVE FUNCTION CODE
146
308

éS%VANCE R2 TO THE NEXT FUNCTION CODE

062702
022702
103332

000002
000076

ADD

CMP
BHIS

#2,R2

#ILF76.R2
108

;END OF TEST

308:

2241 025234
2242
2243

tfittttttttt.ltfifitttt'*ittttfitfit*ttttttt.fitttttttittttfi**tttt'ii

RTEST 46

BRANCH MULTIPLEXOR TEST

::tttttt*ttttttttttttttttttittttttltttt.tttttttt.ttttittttitttttt

025234
025234

TST44:

000004
001100

025254

012737

000044

2245 025262
2246 025266
%szg 025274

010037
062737
012702

001136
000040
025520

2244

MOV

#STACK, SP

;LOAD THE STACK POINTER

MOV

#44,STESTN

1:SET TEST NUMBER IN APT MAIL BOX

MOV

RO, $8DADR

;COPY REGISTER ADDRESS

MOV

#1008 ,R2

SINITIALIZE TABLE POINTER

MOV
MOV

001226

ADD

001136

:SCOPE CALL

$BASE , RO
TSTQUE.R1

#RMMR?
, SBDADR

‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

%8EEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE

2249
2250 025300

2254 025320
2255 025326
2256
2257
2258
2259 025334

352PE

055156

000000

016037

000040

000024
000024
000014
000042

001142

:60 CLEAR CONTROLLER

JSR

PC.CNTCLR

MOV
MOV
MOV

(RO) :LOAD RMMR1
D
| DBEW !MUR,RMMR1
#DM
#0,RMERT(RO) =~ :LOAD RMER1
#0 RMER2(RO)
:LOAD RMER2

MOV

#DMD ,RMMR1 (RO)

-LOAD RMMR1

:THE TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN
“THE COMMAND SEQUENCER IS INITIALIZED.
:STORE RMMR2 AT $BDDAT
RMMR2 (RO) , $BDDAT
MOV

1464

SEQ 0141

BRANCH MULTIPLEXOR TEST

2260 025342

2261 025350
2062 025352

2263 025360
2064 025366
%%gg 025370

032737

001010
042737

012737
104147

010000

001142

167777

001142

010000

2269 025372

#TST,SBODAT

MOV
EMT

#TST,SGODAT
147

BNE
BIC

001140

000452

15%
#*CTST,$BDDAT

;BRANCH IF TEST BIT IS ON
:SETUP FOR ERROR TYPE

408

:SKIP REST OF TEST

:GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE,
“THEN STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE.

2067
2068

2270 025372

BIT

iss:

111203

MOVB

(R2).R3

2271 025374 052703 000001
2272 025400 042703 177700
2273 025406 010360 000000

BIS
BIC
MOV

#G0,R3
#ACFNCMSK,R3
R3.RMCS1(RO)

;R3=FUNCTION CODE, GO BIT

MOVB

1(R2) .R3

:GET CLOCK COUNT IN R3

gggg 025410

010337

001174

2276 025414

116203

000001

MOV

2277 025420 042703 177400

2278 0256424

2279 025424

012760

2281 025440
2282 025442

005303
001370

141001

0060024

208:

2283

2284

2285 025444

2286 025452

016037

042737

000040

167777

00 1142
001142

2289 025474

2290 025476
%335 025500

023737

001402

001140

2294 025502

| DBEN iMUR.RMMR (RO) ;LOAD RMMR1
#OMD

;LOAD RMMR1
#DMD ! DBEN'MUR'DBCK ,RMMR1(R0)
:DECREMENT CLOCK COUNT
R3
208

*ISSUE CLOCKS TILL ZERO

;GET THE TEST BIT AND COMPARE IT WITH THE TABLE ENTRY
exc

RMMR2 (RO) , SBDDAT
#°CTST, SBODAT

CMP

$GDDAT, SBDDAT

MoV

MOV

001142

BEQ

104150
000406

;STORE RMMR2 AT SBDDAT

2(R2) ,$GDDAT
308

150
408

:BRANCH IF TEST BIT OK
:SKIP REST OF TEST

-MOVE THE TABLE POINTER AND CONTINUE IF NEXT ENTRY POSITIVE

062702
105762
100401
000671
000436

000004
000001

308:

408:

ADD
TSTB
BMI
BR
BR

#4 ,R2
1(R2)
408
108
2008

:BRANCH IF DONE TEST
*REPEAT TEST
*JUMP OVER TABLE

:TABLE OF FUNCTION CODES, CLOCK COUNTS, AND TEST BITS

2301

2302 025520

MOV

EMT
BR

2293

2295 025502
2296 025506
2297 025512
2298 025514
3533 025516

#~C377.R3

DEC
BNE

2287 025460 016237 000002 001140
2288 025466

*SAVE R3 FOR ERROR MSG

BIC

MOV

2280 025432 012760 041001 000024

R3.$TMPO

:LOAD RMCS1

100s:

.BYTE

NOP

:MUX ADDRESS=DATA COMMAND

WORD

;TEST BIT=0

000

.BYTE

NOP

:MUX ADDRESS=UNIT READY

5§?3 025526

000000

WORD

;TEST BIT=0

2311 025530

010

.BYTE

DRVCLR

:MUX ADDRESS=F&

5;}2 025532

010000

JWORD

TST

;TEST BIT=1

2315 025534

050

.BYTE

WCD

:MUX ADDRESS=F&

2303 025520

000

gggg 025522

000000

2307 025524

2304 025521

2308 025525
2312 025531

2316 025535

001

002
001

001

BYTE

.BYTE

BYTE

2
1

-d

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-46

)
-

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-47

mnn

SEQ 0142

BRANCH MULTIPLEXOR TEST

NINIALININININONININD
NN
NN N NN

T44

025536

000000

WORD

;TEST BIT=0

25540

012

.BYTE
BYTE
.WORD

KLEASE
1
TST

;MUX ADDRESS=Fé

542

001
010000

44
5
6

052
001
000000

.BYTE
.BYTE

WCH
1

;MUX ADDRESS=F4

sTEST BIT=0

020

010000

RIP
1
TST

;MUX ADDRESS=F4

.BYTE
BYTE
.WORD

5
6

060
001
000000

.BYTE

:MUX ADDRESS=F4

2335 025560
2336 025561
23%; 025562

022
001
010000

.BYTE
BYTE
WORD

PAKACK
1
TST

:MUX ADDRESS=Fé

2339 025564
2340 025565
2341 025566
2342
2343 025570
2344 025571
2345 025572
2346
2347 025574
2348 025575
2349 025576
2350
2351 025600
2352 025601
2%53 025602
235
2355 025604
2356 025605
2357 025606
2358
2359 025610
2360 025611
2361 025612
2362 025614
2363
2364

062
001
000000

.BYTE
.BYTE

WH
1

sMUX ADDRESS=Fé

sTEST BIT=0

030
001
010000

.BYTE

sMUX ADDRESS=Fé

070
001
000000

.BYTE
BYTE

WORD

001

BYTE
WORD

JWORD

.BYTE
.WORD

025620
025624
025630

;TEST BIT=1

1
0

sTEST 8IT=0

1
TST

sTEST BIT=1

STEST BIT=1
:MUX ADDRESS=Fé

WORD

RD
1

;TEST BIT=0

032
001
010000

.BYTE
BYTE

sMUX ADDRESS=F4

WORD

ILF32
1

TST

;TEST BIT=1

072
N1
004000

.BYTE
.BYTE

RH
1

;MUX ADDRESS=Fé

000
377
000000

.BYTE
BYTE
.WORD

-1

WORD

:
2008

;TEST BIT=0

;END OF TABLE
;END OF TEST

*ttttttttttttttttttttttttttttttttttttttttttttttttittt.tit.ttttt

*TEST 45

e AR

025614
025614

sTEST BIT=1

000004
000240
012706
013700
013701

f ST4S:
001100
001276
001466

SET/RESET GO TEST

RS
AR AR NRRARRRARREAANANRARNARRANARERRARARER

:SCOPE CALL

SCOPE

NOP

Mov

MOV
MOV

SP
#STACK,

$BASE ,RO
TSTQUE ,R1

;LOAD THE STACK POINTER

:RO = UNIBUS ADDRESS
:R1 = POINTER TO DEVICE

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-48

SEQ 0143

SET/RESET GO TEST

145

2365 025634

012737

000045

%ggg 025642

012702

026256

MOV

001226

#45,$TESTN

;:SET TEST NUMBER IN APT MAIL BOX

2368

;INITIALIZE FUNCTION CODE POINTER
:CLEAR, THEN SET DIAGNOSTIC MODE, CLEAR COMPOSITE ERROR, SET MEDIUM

2370 025646

10s:

MOV

ON LINE AND ENABLE DEBUG CLOCK

2369

2371 025646 004737 055156
2372 025652
2373 025660
2374 025666
%ggg 0256764

012760
012760
012760
012760

2377
2378 025702

111203

2380 025710
2381 025714
2382 025720

052703
010360
016037

2384 025734
2385 025736
2386 025744
2387 025750

001011
042737
010337
010037

gggg 025756

000536

000001
041001
000000
000000

032737

2388 025754 104151

000001
000000
000000
177700

001142

000200

001140

026002
2398 026010

016037
042737

000012
177577

001142
001142

023737

001406
010037

062737
104152

001140

001136
000012

R3,$GDDAT
RO, $8DADR

151

;SAVE EXPECTED RESULT
*COPY REGISTER ADDRESS

1008

:EXPECT DRY TO BE OFF
*WAS GO SET??
SYES!!
$GO WAS NOT SET, DRY SHOULD BE

MOV
BIC

RMDS (RO) ,$BDDAT ;STORE RMDS AT $8DDAT
#~CDRY, SBDDAT
$GDDAT ,SBDDAT
:BRANCH IF DRY IS OK
408
*COPY REGISTER ADDRESS
RO, $8DADR
, SBDADR
#RMDS
152

ADD
EMT

:STEP THE DEBUG CLOCK AND VERIFY THAT GO REMAINS SET

000001

2410 026052

012760

141001

000024

2412 026066
2413 026074

016037
042737

007000
177700

001142
001142

gz}g 026106

010337

001140

2411 026060 012760 041001 00024

2414 026102 010037 001136
2618 026112
2419 026114

:BRANCH IF GO IS SET
208
SK
, $BDDAT
#*CFNCM

$GDDAT
#GO, SBDDAT
308
#DRY ,$GODAT

CMP

408:

116204

2617

‘SET GO
#GO,R3
-LOAD RMCS1
R3,AMC>1(RO)
;STORE RMCS1 AT $BDDAT
SBDDAT
,
RMCS1(RO)

CLR
BIT
BNE
MOV

BEQ
MOV

001136

2408 026046 042704 177400

2409 026052

508

001142

2405

2606 026042

*CLEAR UNUSED BITS

-GET READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO

001142

2407 026042

#GO, SBDDAT

BNE
BIC
MOV
MOV

208:

001140
000001

2402 026032
5282 026040

BIT

005037
032737
001003
012737

2400 0260246
2401 02€926

#°CILF76,R3

EMT

2393 025760
2394 025764
2395 025772
%ggg 352553

2399 026016

:GO CLEAR CONTROLLER

#DMD ,RMMR1(RO) :LOAD RMMRI
#DMD {MUR ! DBEN,RMMR1(R0) ;LOAD RMMR1
#0,RMER1(RO) ~ ;LOAD RMER1
:LOAD RMER2
#0_RMER2(RO)

BIC

8IS
MOV
MOV

001142

2391

2392 025760

PC.,CNTCLR

sTRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET
:GET FUNCTION CODE
(R2).R3
MOVB

000001

001140
001136

JSR

MOV
MOV
MOV
MOV

000024
000024
000014
000042

2379 025704 042703 177701
2383 025726

#2008 ,R2

005304
001406

508:

MOVB

1(R2),Ré&

;GET NUMBER OF CLOCK CYCLES

BIC

#4C377.R4

MOV

#DMD ! MUR ' DBEN'DBCK ,RMMRT(R0)

MOV
BIC

RMCST (RO) , SBDDAT
£°CFNCMSK _$BDDAT

MOV

RO, $BDADR

R3.$GDDAT

*STORE RMCS1 AT $BDDAT
; CLEAR UNUSED BITS

:SETUP REGISTER ADDRESS

*SAVE EXPECTED RESULT

;DECREMENT CLOCK COUNT AND EXIT LOOP IF ZERO
DEC
BEQ

:LOAD RMMR1

T ;LOAD RMMR1
(RO)
#DMD ! MUR i DBEN,RMMR

R
608

gngBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-49

SEQ 0144_~

032737
001352
104153
000£ 1

2435 026170
2436 026172
2437 026176
026176
2438 026204
2439 026212
24640 026216
2441 026224
2442 026232
2443 0262346
2444
2445
2446 026236
2447 026236
2448 026242
2449 026246
2450 026250
2451 026256
2452
2453
2654 026256
2455 026256
24;9 026257

24
2458 026260
2459 026261
2460
24661 026262
2462 026263
2463
2464 026264
2465 026265
2666
2467 026266
2468 026267
2469
2470 026270
2471 026271
2472
2473 026272
2474 026273
2475

000001

BIT
BNE
EMT
B8R

001142

#GO,$BDDAT

;1S GO STILL SET??

?g;

JYES!!

1008

;0UT OF SYNC=SKIP TO NEXT

382 SHOULD NOW BE RESET AND DRY SHOULD BE SET
032737

000001
000001

&N SRS
NINO NN
WIWN MNP
SN
= O
N = O 000 SNO

SET/RESET GO TEST

001142

012737
005037
016037
042737
010037

062737
023737
001401

000200
000001

001140
001142

001140

000012
177577
001136
000012
001140

001142
001142

;1S GO RESET??

qgg.scooAr

*SETUP EXPECTED RESULT

708

001140

000440

#GO,$BDDAT

TYES!!

1008

70$:

#DRY, $GODAT

#G0, $8DDAT
80$
$GDDAT

80s:

;EXPECT DRIVE READY TO BE SET

*DID GO RESET??
SYES!!
160 1S SET-

RMDS (RO) , $BDDAT ;STORE RMDS AT $BDDAT
#~CDRY,$BDDAT

RO, $8DADR

#RMDS
, SBDADR

001136
001142

$GDDAT,$BODAT

‘1?(5)3

104152

;COPY REGISTER ADDRESS

;IS DRIVE READY 0K??

JYES!!

:ADVANCE T0 THE NEXT FUNCTION CODE TO BE TESTED-EXIT IF DONE

000002
000001
000137
000423

025646

508:

1008:

ADD
1S78

8MI]
JMP
BR

#2,R2
1(R2)

00s
108
3008

sMOVE TABLE POINTER
:END OF TABLE??

JYES!!
sTEST THIS FUNCTION CODE
;GO TO NEXT TEST

:TABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

2008

.BYTE
.BYTE

%LFOZ

:ILLEGAL FUNCTION CODE #2

004
001

.BYTE
.BYTE

?EEK

s SEEK COMMAND

006
001

.BYTE
.BYTE

?ECAL

sRECALIBRATE COMMAND

014
001

.BYTE
.BYTE

?FFSET

sOFFSET COMMAND

016
001

.BYTE

?TC

JRETURN TO CENTER LINE COMMAND

024
001

.BYTE
.BYTE

%LFZ‘

;ILLEGAL FUNCTION CODE #24

026
001

.BYTE

%LF26

:JLLEGAL FUNCTION CODE #26

002
001

CZR NBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-50

¢ 1

SEQ 0145

SET/RESET GO TEST

145

2476 026274
2477 026275
2478
2479 026276
2480 026277
2481
2482 026300
2483 026301
2484
2485 026302
2489 026303
248
2488 026304
2488 026305

034
001

.BYTE
.BYTE

%LF34

:ILLEGAL FUNCTION CODE #34

036
001

.BYTE
.BYTE

%LF36

sILLEGAL FUNCTION CODE #36

042
001

.BYTE
.BYTE

%LF‘?

sILLEGAL FUNCTION CODE #42

%LF44

;ILLEGAL FUNCTION CODE #44

046
001

.BYTE

%LF46

;ILLEGAL FUNCTION CODE #46

2491 026306
2492 026307
2493
2494 026310
2495 026311
2496
24697 026312
2498 026313
2499
2500 026314
258; 026315

054
001

.BYTE
.BYTE

%LF54

sJLLEGAL FUNCTION CODE #54

056
001

.BYTE
.BYTE

%LFSb

sILLEGAL FUNCTION CODE #56

064
001

.BYTE
.BYTE

{LF64

sILLEGAL FUNCTION CODE #64

066
001

.BYTE
.BYTE

%LF66

sILLEGAL FUNCTION CODE #66

2503 026316
504 026317
05
06 ) 026320
07 7 026321
08
0 9 026322
? 026323

074
001

.BYTE
.BYTE

{LF?é

sILLEGAL FUNCTION CODE #74

076
001

.BYTE

%LF76

sJLLEGAL FUNCTION CODE #76

000
377

.BYTE

sEND OF TABLE

.BYTE

itttttt'tttittttttttttitt'ttfi.fit'tttttfittttt'ttlttttt.itttfitttt

tTEST 46

END 1 RESET GO TEST

AARRAARASARRSY
RRRAA
RARANRNAARANNARA
RRRRA
RN EARARARNRRARRNRR
CARNNRRARA

026324

TST46

000004

001100
001276
001466
000046

001226

:SCOPE CALL

SCOPE

NOP
MoV
MOV
Mov
Mov

026610
001136

Mov
MOV

#STACK,SP

;LOAD THE STACK POINTER

#46,$TESTN

:3SET TEST NUMBER IN APT MAIL BOX

$BASE, RO
TSTQUE ,R1

#1008 ,R2
RO,$BDADR

;RO= UNIBUS ADDRESS
:R1 = POINTER TO DEVICE

sINITIALIZE TABLE POINTER
;COPY RMCST ADDRESS

- CL EAR MASSBUS, THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK

oW
oW
[T
)
=1V,]
- O

;END OF TEST

:
3008

1 % 026324

[l=]

SIS TS T ST NI ST N TS L LS LN A

249

044
001

10s:
000024

JSR
MOV

PC,CNTCLR
#DMD,RMMR1(RO)

:GO CLEAR CONTROLLER
;' .0AD RMMR1

END 1 RESET GO TEST

146

012760

061001

000024

MOV

RT ;LOAD RMMR1
#DMD 'MUR ! DBEN,RMM(RO)

gggg 026410

012760

000000

000042

MOV

#0 RMER2(RO)

2527
2528 026416

111203

2523 026374

MOV

2524 026402 012760 000000 000014
2529 026420 0462703 177701
2530 026424 052703 000001
2531 026430 010337 001140
2532 026434

2533 026440

2534 026446
2535 026454
2536 026456
2537 026464

010360

090000

032737
001005
0642737
104151

000001

016037

000000

001142

177700

001142

2541 026470

116204

012760

141001

000024

2549 026514

016037

000000

001142

2548 026506 012760 061001 000024

2553 026534
2554 026542
2555 026544
%ggg 026546
2558
2559 026550
2560 026550
2561 026556
2562 026560
2563 026566
gggg 026570

001406

032737
001356
104153
000617

032737
001405

042737
104156
000406

177700

000001

c567 026572

2570 026602
2571 026604
gg;g 026606

062702
105762

100401
000666
000404

:LOAD RM(S1

;STORE RMCS1 AT SBDDAT

#GO,$BODAT
:BRANCH IF GO IS SET
208
MSK
, SBDDAT
#ACFNC
151

608

:0UT OF SYNC-SKIP

MOVB

000011

001140

#~C377.R4

:R4=CLOCK COUNT

Sg;EP THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRt:
:LOAD RMMR1
#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)
MOV

MOV

R ;LOAD RMMR1
(RO)
#DMD | MUR | DBEN.RMM

BIC
DEC

SK
, SBDDAT
#*CENCM
Ré

BIT
BNE
EMT
BR

#G0,$BDDAT
308
153
603

MOV

BEQ

001142

1(R2),Ré&

RMCS1(RO) ,SBDDAT
408

;VERIFY THAT GO RESET AT END1
:
408
#GO,SBDDAT
BIT
508
BEQ
#G0.,$GDDAT
BIC
1564
EMT
60$
BR

*STORE RMCS1 AT SBDDAT

;BRANCH IF GO SHOULD BE OFF
;CONTINUE IF GO IS ON
:0UT OF SYNC=SKIP
:DID GO RESET??
SYES!!

000002
000001

§50$:

60$:

ADD
TSTB

BM]
BR
BR

#2,R2
1(R2)

608
108
200$

:BRANCH IF END OF TABLE
‘TEST THIS FUNCTION CODE
tJUMP OVER TABLE

-TABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

2576 026610

012

2579 026612

030

52;; 026611

R3'RMCST1(RO)

‘TABLE AND SET GO
:SAVE FUNCTIUN CODE FOR MSG

-GET THE NEXT FUNCTION CODE FROM THE TABLE

2574

2575 026610

BIT
BNE
BIC
EMT

001142

000001

2566

2568 026572
2569 026576

RMCS1(RO) , SBDDAT

BIC

2547 026500

2552 026532

MOV

208:

000001

%gzg 026500

042737
005304

#°CILF76,R3
#GO,R3
R3, $GDDAT

.GET THE NUMBFR OF CLOCK CYCLES FROM THE TABLE, SAVE EXPECTED STATUS

5222 026476 042704 177400

2550 026522
2551 026530

B8IC
BIS
MOV

B8R

2540

2542 026470

:LOAD RMER2

:TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET
SGET FUNCTION CODE FROM
R2) ,R3
MOVB

001142

gggg 026466 000447

#0,RMER1(RO) ~ :LOAD RMER1

002

o0s:

.BYTE

RLEASE

;RELEASE COMMAND

.BYTE

:SEARCH COMMAND

.BYTE

SEQ 0146

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-51

146

SEQ 0147

END 1 RESET GO TEST

ggg? 026613

002

BYTE

2582 026614

032

.BYTE

ILF32

2585 026616

000

.BYTE

gggz 026615
2586 026617

gggg 026620

BYTE

002

377

2008 :

BYTE

-1

;ILLEGAL FUNCTON #32
:END OF TABLE

:END OF TEST

ttttttttttttttt'tit.tttttttttttttttttttttt.ttttttttttttttittttt

2589

-resr 47

SET PULSE TEST

;;tttttttttttttttttttttttt'tttttttttttttt.ttttfitttttttttttttttt't

026620

T$T147:

026620

000004

026624

012706

101100

2590 026640

012737

000047

2591 026646

010037

001136

%ggz 026660

012702

027116

026622

000240

026630 013700 001276
026634 013701 001466

2592 026652

062737

000026

055156
000001

000024

ggg; 026712

012760

000000

000042

2603
2604 026720

016037

000024

001142

042737

001404
005037
104155

177677

2612 026746

2;SET TEST NUMBER IN APT MAIL BOX

001142

JSR
MOV

MOV
MOV

MOV

‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

RO, SBDADR

:COPY REG ADDRESS FOR MSG

#1008 .R2

SINITIALIZE TABLE POINTER

#RMMR1, $BDADR

PC,CNTCLR
#DMD ,RMMR1(RO)

;GO . _EAR CONTROLLER
:LOAD RMMR1

#O_RMER2(RO)

:LOAD RMER2

i DBEN !MUR,RMMR1 (RO) ;LOAD RMMR1
#0MD
SLOAD RMER1
#0,RMER1 (RO)

;VERIFY THAT CONTINUE, ‘‘CONT'’ IS RESET AFTER CLEAR
:STORE RMMR1 AT SBDDAT
RMMR1(RO) , SBDDAT
MOV
BIC

#*CCONT,$SBDDAT

708

8EQ
CLR
EMT

001140

000463

208
$GDDAT
155

;BRANCH IF CONT WAS CLEARED
:FOR ERROR MSG
,

.GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO RMCS1

2611

2613 026746

#47,$TESTN

MOV

2599 026676 012760 0410C1 000024
2600 026704 013760 000000 000014

52?3 026744

MOV

$BASE ,RO
TSTQUE ,R1

:CLEAR THE MASS BUS. ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS

004737
012760

2606 026734
2607 026736
2608 026742

:LOAD THE STACK POINTER

ADD

10$:

2597 026664
2598 026670

260% 026726

#STACK, SP

MOV

001136

2595

2596 026664

MOV

MOV
MOV

001226

:SCOPE CALL

SCOPE

NOP

208:

111203

2614 026750 052703 000001
2615 026754 042703 177700
2616 026760 010360 006000

MOVB

8IS
BIC
MOV

MOV

(R2).R3

#G0,R3
#ACENCMSK,RS
R3.RMCST(RO)
R3.$TMPO

:R3=FUNCTION CODE AND GO

:LOAD RMCS?

*SAVE FUNCTION CODE FOR MSG

%g}g 026764

010337

001174

2619
2620 026770

116203

000001

:GET THE CLOCK COUNT FROM THE TABLE
1(R2),R3
MOVB

000002

:GET THE BIT STREAM FOR CONTINUE FROM THE TABLE
2(R2) ,R&
MOV

gggg 026774 042703 177400
2623
gggg 027000

2626

016204

BIC

c‘c37? R3

:STEP THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS

-4

CZRNBAOQ RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-52

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-53

SEQ 0148

SET PULSE TEST

147

2627 027004

2628 027004

012760

141001

000024

2630 027020

016037

000024

001142

2632 027034

005037

001140

308:

2633 027040
2634 027044
2635 027046
2636 027054

2637 027062
2638 027064

042737
032704
001403
012737
023737

001402
104156

177677

#*CCONT,SBDDAT

001140
001142

BIT
BEQ
MOV
CMP
BEQ
EMT

#81T0,R4
408
#CONT ,$GDDAT
$GDDAT,$BDDAT
508
156

CLR

40$:

B8R

2643 027070
2644 027072

005303
001402

ggzg 027076

000742

§0s:

062702
105762

100401

2653 027112 000664

gggg 027114

000442

2658 027116

2659 027117

:BRANCH IF CONTINUE IS OK

:SKIP

R3
608

308

;BRANCH IF CLOCK COUNT EXPIRED

“SHIFT TO NEXT CONTINUE BIT
*TEST NEXT CLOCK CYCLE

000004
000001

60$:

ADD
TST8

#6,R2
1(R2)

10$

BM]
708:

708

;EXIT IF CLOCK COUNT NEGATIVE

2008

SJUMP OVER TABLE

*CONTINUE TEST

;TABLE OF FUNCTION CODES, CLOCK COUNTS AND CONTIMUE BITS FOR TEST

2656

2657 027116

:GENERATE EXPECTED CONTINUE

:ADVANCE TABLE POINTER-EXIT IF DONE

2648

2652 027110

70s

DEC
BEQ

ASR

2645 027074 006204

2649 027100

$GDDAT

*STORE RMMR1 AT $BDDAT

-DECREMENT CLOCK COUNT AND SHIFT BIT STREAM

2641

2650 027100
2651 0271064

RMMR1 (RO) , SBDDAT

BIC

5228 027066 000412
2642 027070

MOV

:LOAD RMMR1

R ;LOAD RMMR1
(RO)
#DMD I DBEN ! MUR.RMM

001142

000001

000100
001140

#DMD ! DBEN ' MUR ! DBCK , RMMR1 (R0)

MOV

2629 027012 012760 041001 000024
2631 027026

MOV

000

004

1008

.BYTE

NOP

:NOP COHHAND

“B0000

co~11~ue 0000

BYTE

ggg? 027120

000000

.WORD

2662 027122

2663 027123
gggg 027124

002

002
000000

.BYTE

2666 027126
2667 027127
%ggg 027130

2670 027132

+4 CLOCK

BYTE
.WORD

ILFO2

2
4800

:ILLEGAL FUNCTION 2

004
002
000000

.BYTE
.BYTE
.WORD

SEEK
2
“B0O

sSEEK COMMAND

2671 027133
52;; 027134

006

002
000000

.BYTE

RECAL

:RECALIBRATE COMMAND

2674 027136
2675 027137
%679 027140

010
002
000001

.BYTE
BYTE
JWORD

DRVCLR
2
“BO1

:DRIVE CLEAR COMMAND

2678 027142
2679 027143
2680 027144

012
003
000000

.BYTE
BYTE
.WORD

RLEASE
3
48000

;RELEASE COMMAND

2682 027146
2683 027147

014
002

.BYTE
BYTE

OFFSET
2

;OFFSET COMMAND

268

.BYTE
.WORD

2
“B00

—t

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN=82 16:33:00 PAGE 13-54

6 12

SEQ 0149

SET PULSE TEST

147

Sggg 027150

000000

.WORD

“B00

2686 027152
2687 027153
%ggg 027154

016
002
000000

.BYTE
.BYTE
.WORD

RTC
2
“B0O

JRETURN TO CENTER COMMAND

2690 027156
2691 027157
gggg 027160

020
004
000016

.BYTE
BYTE
"WORD

RIP
4
481110

SREAD IN PRESET COMMAND

2694 027162
2695 027163

000016

.BYTE
BYTE

PAKACK
&

sPACK ACKNOWLEDGE

%ggg 027164

022
004

2698 027166
2699 027167
5;8? 027170

024
002
000000

BYTE
BYTE
.WORD

ILF24
2
4800

sJILLEGAL FUNCTION 24

2702 027172
2703 027173
%;8§ 027174

026
002
000000

.BYTE
.BYTE
-WORD

ILF26
2
“B00

sILLEGAL FUNCTION 26

2706 027176
2707 027177

000000

.BYTE
.BYTE

SEARCH
3

:SEARCH COMMAND

5;83 027200

030
003

2710 027202

.WORD

“B1110

*B00O

2711 027203
5515 027204

032

003
000000

.BYTE

.BYTE
.WORD

3
“B8000

ILF32

sJLLEGAL FUNCTION 32

2714 027206
2715 027207
%;}9 027210

034
002
000000

.BYTE
.BYTE
-WORD

ILF34
2
“B0O

sILLEGAL FUNCTION 34

2718 027212
2719 027213
5;59 027214

036
002
000000

.BYTE
.BYTE
.WORD

ILF36
2
“B0O

sILLEGAL FUNCTION 36

2722 027216
2723 027217
5;gg 027220

000
377
000000

.BYTE
BYTE

-1

-WORD

;END OF TEST

2008

2726 027222
2727
2728

;END OF TABLE

::ttttttttttttttttttttttt'tttttttt'Q.tt.fittfi.t'ltt..i.'t".'.t.l'

J«TEST SO

027222

027222
027224

027226
027232
027236

2729 027242
2730 027250

SET/RESET IVC TEST

N
NOORAEY
ARAAA
ARRANRRARAARARA
ARRRA
RANRRARRARARANR
RN
A RARNAANNRR

000004
000240

757150:

012706
013700
013701

001100
001275
001(66

010037

00.136

012737

000)50

001226

SCOPE
NOP

:SCOPE CALL

MOV
MOV
MOV

#STACK,SP
$BASE ,R0
TSTQUE ,R1

sLOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

MOV

RO, $BDADR

:SETUP REG ADDRESS

MOV

#50,$TESTN

:R1_= POINTER TO DEVICE

;sSET TEST NUMBER IN APT MAIL 80X

SEQ 0150-]

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-55
SET/RESET IVC TEST

150

2731 027254
% 3% 027262

062737
005002

000042

ADD
CLR

001136

#RMERZ ,$BDADR
R2

sR2=FUNCTION CODE

:INITIALIZE AND VERIFY THAT IVC STATUS IS ZERO.

2734
2735 027264

i0s

055156

PC,CNTCLR
#DMD ,RMMR1(RO)

MOV

#0.RMER1(RO) = :LOAD RMER1

MOV

RMER2 (RO) , SBDDAT”

MOV

2740 027312
2741 027320
2742 027326
2743 027334
2744 027336
2745 027342
2746 027344

167777

i MUR ' DBEN,RMMR1 (R0) :LOAD RMMR1
#0MD
¢0.RMER2(RO)

BIC

#4CIVC,SBODAT

CLR

$GDDAT

8EQ

001140

:GO CLEAR CONTROLLER
RMMR1
:LOAD

JSR
MOV

EMT
B8R

:LOAD RMER2

;STORE RMER2 AT $BDDAT

208

sBRANCH IF IVC IS ZERO

157
40$

:SKIP REST OF TEST

;LOAD THE FUNCTION CODE WITH GO BIT, STEP THE COMMAND SEQUENCER OFF
2.7 027346
2751 027346

2752 027350
2753 027354
2754 027360
2755 027366
2756 027374
2757 027402
2758 027410
2759 027416
2760 027424
2761 027432
2762 027434
2763 027440
2764

2765
2766 027442

2767 027442
2768 027446
2769 027452
2770 027454
2771
2772 027456
2773
2774

<ADDRESS O AND VERIFY IVC STATUS.

010203
052703
010360
012760
012760
016037
042737

208:
000001
000000
141001

104160

MOV
MOV
MOV

:LOAD RMCS?
R3 RMCS1(RO)
LOAD RMMR1
#DMD ' MUR ! DBEN ! DBCK ,RMMR1 (R0)
RMMR1
;LOAD
(RO)
| MUR | DBEN.RMMR
#DMD

BIC
MOV
8IC

:;SET ACTUAL STATUS
#°CIVC,$BDDAT
ENCDTBCR2) ,$GDDAT ;SETUP EXPECTED STATUS FROM
:FUNCTION CODE TABLE
#°CIVC,SGDDAT

BEQ
MOV

308
R2,$TMPO

CMP

001174

EMT

RMER2 (RO) , SBDDAT

., SBDDAT
$GDDAT
160

STORE RHERZ AT SBDDAT

:BRANCH IF IVC IS OK
*SAVE FUNCTION CODE FOR MSG

SegVAuce FUNCTION CODE AND REPEAT TEST IF NOT DONE
062702
022702
103401

000002
000076

ADD

#2,R2

BLO

408

CMP

B8R

000703

#ILF76.R2

10$

:BRANCH IF DONE TEST

;END OF TEST

408:

'tt.ttiittttttttttttt'tt"tttttit!t'tttfitt.ttttttt!tlt.tttttttt

*TEST 51

SET LSC TEST

1ST51:

027456
027456

001100

2775
2776 027504
2777 027510

Rg3
az

MOV

001140

:SETUP FUNCTION CODE

g?g

)
000051

001226

001136
000042

001136

RRA VAR AN

aggPE

AN R R RRRANARRRERRAANIRRERNNNNRRRRS

:SCOPE CALL

MoV
MoV

JSTACK.SP
$BASE RO

LOAD THE STACK POINTER
;RO= UNIBUS ADDRESS

MOV

#51,8TESTN

::SET TEST NUMBER IN APT MAIL BOX

MOV

RO, $8

MOV
ADD

rsroué R1

lRHERZ,‘BDADR

:R1 = POINTER TO DEVICE

2778
2779

2780 027516
2781 027522
2782 027530
2783 027536
2784 027544
2785 027552
2786 027560
2787 027566
2788 027570
2789 027574
2790
2791

2792 027576
027576
2793 027604
027612
2794 027616
2795 027622
2796 027624
2797
2798
2799 027630
2800 027636
2801 027644
2802 027652
2803 027654
2804 027662
2805
2806 027664
2807
2808

004737
012760
012760
012760
012760
016037
042737
001403
005037
104161

055156

000001
040001
000000
000000
000042

173777

000024
000024
000014
000042
001142

INITIALIZE AND VERIFY THAT LOSS OF SYSTEM CLOCK, ‘1SC'', IS RESET
;G0 CLEAR CONTROLLER
PC,CNTCLR

nov
MOV
MOV
MOV
MOV
BIC
BEQ
CLR

001142

001140

EMT

conoinnna1(n0) *LOAD RMMR1
sLOAD RMMR1
#DMD| DBEN ,RMMR1 (R0)
:LOAD RMER]
#0,RMERT (RD)
:LOAD RMER2
#0 RMER2(RO)
:STORE RMER2 AT $BDDAT
RMER2 (RO) , SBDDAT
#CLSC,SBODAT
108
$GDDAT

:BRANCH IF LSC IS ZERO

161

ig%TH DEBUG CLOCK ENABLED, SET GO AND WAIT FOR ONE SHOT TO SET
012760
012737
004777
005737
001375
004777

012760
016037
042737
001004
012737
104162

000001

000001
151720
001534

MOV

000000
001534

208:

151710

000001

000042
173777

004000

000024

001142
001142

Mov
JSR
18T
BNE
JSR

#G0,RMCS1(RO)
#1,WATCH
PC,aCLOCK
WATCH
208
PC,aSTOPCL

:LOAD RMCS1
;SET WATCHDOG TIMER VALUE
;START THE CLOCK

;WAIT FOR WATCH ZERO
;STOP THE CLOCK

;ONE SHOT SHOULD BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET.
1
#DMD ,RMMR1 (RO)
MOV
MOV
BIC
BNE
MoV
EMT

001140

RHER?(RO) $BDDAT

#~CLSC,SBDDAT
30%
#LSC,S$GDDAT
162

:STORE RMER2 AT $BDDAT

sBRANCH IF LSC SET
;END OF TEST

30s8:

;:tfititttttttttttt'ttt.titttt.ttitt'tttttfittitttitttttttt'tt.tt.t

TRTEST 52

DECODE TEST

RAA
RAARARARACARS
RARNR
NANRNARANARAR
NEANN
AR AN CARAANRNRNRAR
CARRANRNRA

027664

t3752:

000004

027704

012737

001100
001276
001466
000052

2810 027712
2811 027716
2812 027716

005037

001426

004737

030276

2817 027736

013760
012760
012703

001426

2819 027750
2820 027756
2821 027760

012760
012760
005303
001370

2809

2813
2814
2815 027722
2816 027730

2818 027742
027742

001226
s

)
000014

000023 000000
000003

141001

041001

000024

:SCOPE CALL

SCOPE

NOP

MOV
MOV
MoV
MOV

SP
#STACK,
, RO
$BASE
R
TSTQUE
#52,$TESTN

;LOAD THE STACK POINTER

CLR

RMER10

:NO ERROR FIRST TEST

JSR

PC,1008

sINITIALIZE

:RO= UNIBUS ADDRESS

:R1_= POINTER TO DEVICE

:;SET TEST NUMBER IN APT MAIL BOX

;EXECUTE A PACK ACKNOWLEDGE AND CHECK VOLUME VALID
MoV

108

Mov
MoV

MoV

RMER10,RMER1{R0)

#PACACK !GO, RMCS1(RO)
#3,R3

sLOAD

RMER1
R

:LOAD RM(S1

#DMD ! MUR ! DBEN ! DBCK . RMMR1 (R0)

:LOAD RMMR1

MoV

ogno!nun!oasn.nnnni(RO) ;LOAD RMMR1

BNE

108

DEC

:ISSUE NEXT CLOCK IF COUNT NOT 0

-l

SEQ 0151

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-56
SET LSC TEST
TM

C4
Y5

SEQ 0152

RNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-57

DECODE TEST

027762

016037

2824 027776

001414

2822

2823

027770

2825 030000

2826 030004
2827 030006

2828 030012
2829 030016
2830 030024
2831 030026

2832 030030

%ggz 030030

042737

000012

177677

005737

001426

010037
062737
104163
000522

001136
000012

004737

030276

001527
005037

142

001136
208:

013760
012760
012703

001426
000021
000003

(00014
000000

030054
2840 030062

012760
012760

141001
041001

000024
000024

2842 030072
2843 030074

001370
016037

2841 030070
28464 030102

2645 030110

2846 030112

2847 03016
2848 030120

2849 03024
2850 030130
2851 030136
2852 030140
2853 030142

005303

042737

001414

005737

001462
005037
010037
062737
104163
000455

000012

177677

001136
40$:

2857 030146
2858 030154
2859 030162

001426
000051
000002

000014
000000

030166

012760

141001

000024

508:

2865 030214

042737

077777

005737

001426

2867 030224

2868 030230
2869 030232

2870 030236
2871 030242
2872 030250
%g;z 030252

2875

2876 030254

001414

001415
005037

010037
062737
104164
000410

7(.
SGDDAT

;BRANCH IF VV SHOULD BE SET
:SETUP ERROR MESSAGE
:SKIP

SJINITIALIZE AND SET DIAGNOSTIC MODE

;LOAD RMMR1
#DMD !MUR ! DBEN ! DBCK ,RMMR1(R0)
#DMD !MUR ! DBEN ,RMMR1(R0) ;LOAD RMMR1

BNE
MoV

sISSUE NEXT CLOCK IF COUNT NOT ZERO
308
(RO) ,$BDDAT :STORE RMDS AT $BDDAT
RMDS

8IC

#2CVV,$BDDAT

TST

RMER10

408

sBRANCH IF VOLUME VALID NOT SET

708
SGDDAT

;BRANCH IF VOLUME VALID SHOULD BE SET
;SETUP ERROR MESSAGE

MoV
ADD
EMT
BR

RO, $BDADR
, $SBDADR
#RMDS
163
80$

JSR

PC.100%

:SKIP

sINITIALIZE AND SET DIAGNOSTIC MODE

MoV
Mov
Mov

:LOAD RMER1
RMER10,RMER1(RO)
:LCAD RMCS1
#JCD!GO,RMCS1(RO)
:R3=CLOCK COUNT
#2,R3

MoV

#DMD ! MUR ! DBEN'!DBCK ,RMMR1 (RO)

DEC

MOV

001142

sISSUE NEXT CLOCK IF COUNT NOT ZERO

RMMR1 (RO) , $BDDAT’

TST

RMER10

MOV
ADD
EMT
BR

001136

508

#~C0CC,$BDDAT

BEQ
CLR

;LOAD RMMR1

MUR i DBEN,RMMR1 (RO) ;LOAD RMMR1
#DMD

8IC

BEQ

001140

001136
000024

;BRANCH IF VvV IS ZERO

MoV
MoV

BNE

2864 030206 016037 000024 001142

2866 030222

PC,100%

MOV

005303

001370

JSR

sEXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED

2861 030174 012760 041001 000024

2862 030202

RO, $B8DADR
S
, $BDADR
#RMD
163
80s

BEQ

001140

2863 030204

MOV
ADD
EMT
BR

BEQ
CLR

013760
012760
012703

2860 030166

kMFR10

DEC

001142

030276

2856

30s:

001142

004737

%ggg 030142

TST

sEXECUTE A READ IN PRESET AND CHECK VOLUHE VALID
LOAD RMER1
RMER10,RMER1 (RO)
MoV
RMCS1
;LOAD
1(RO)
#RIP!GO,RMCS
MOV
COUNT
:R3=CLOCK
#3,R3
MoV

001426
001136
000012

#°CVV,$BDDAT

BEQ

001140

S ;STORE RMDS AT S$BDDAT
(RQ) ,$BDDAT
RMD

BIC

BEQ
CLR

2835
2836 030034
2837 030042
2838 030050
2839 030054

MOV

001142

;STORE RMMR1 AT $BDDAT

60%

sBRANCH IF OCCUPIED IS RESET

708
$GDDAT

sBRANCH IF OCCUPIED SHOULD BE SET
:SETUP ERROR MESSAGE

RO, $BDADR
#RMMR1, SBDADR
164
80$

;VOLUME VALID AND OCCUPIED DID NOT SET-SEE IF COMP ERROR WAS ACTIVE

60$:

€2

T¢

SEQ@ 0153

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-58
DECODE TEST

152

2877 030254
%g;g 030260

2880
gggg 030262

005737
001005

ST
BNE

001426

2883
2884

2885 030264

012737

%ggg 030274

000510

gggg 030272 000511

;BRANCH IF COMP ERROR WAS SET

;COULD NOT ssr VV OR OCCUPIED-SUSPECT DECODE FLOP NOT SETTING
165
EMT

104165

2886 030264

RMER10
80$

040000

001426

-REPEAT TEST WITH COMPOSITE ERROR ACTIVE-VERIFY THAT DECODE FLOP
DOES NOT SET, AS INDICATED BY VOLUME VALID AND OCCUPIED.
?0s:
:USE UNSAFE TO SET COMP ERROR
#UNS ,RMER10
MOV
80$:

B8R

2008

:END OF TEST

'tttttttttttttttttttttttttQtt.ttttttttttttttttttttttttttttttttt

2591

2892

suenourxns USED DURING TEST

2895
2896

:USING DIAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR.
*VERIFY THAT VV, ERR, AND OCC ARE ZERO.

ttttttttttttttttttttttttttttttttttttttttttttttt'ttttttttttttttt

2893
2894

2897 030276

2898 030276
2899 030302

004737
012760

055156
000001

2904 030336
2905 030342

010037
062737

001136
000012

2900 030310
2901 030316
2902 030324
2903 030332

2906 030350

2907 030356

2908 030364

012760
012760
012760
005037
016037

042737

001402

2909 030366
2910 030370

104143
000447

030372

016037

2913 030406

001402

2911 030372

2912 030400

2914 030410
2915 030412
2916 030414

030414

2917 030422

2918 030430
2919 030432
2920 030436
2321 030444
535% 030446

042737

100s:
000024

JSR
MOV

PC,CNTCLR
#DMD ,RMMR1(RO)

001136

MOV
ADD

RO, $8DADR
, SBDADR
#RMDS

001142

BIC

#*CERR,$BDDAT

EMT
BR

143
1408

000012

137777

000012

177677

016037

000024

001407
010037
062737

001136
000024

104166
000420

077777

001142

2926 030450

001142

2929 030464

1108:

MOV

120$:

(RO) . $BDDAT :;STORE RMDS AT $BDDAT
RMDS
1108

EMT
BR

135
1408

MOV

BEQ
MOV
ADD
EMT
BR

:BRANCH IF COMP ERROR ZERO
;SKIP TEST

(RO) ,$BDDAT ;STORE RMDS AT S$BDDAT
RMDS

#°CVV,SBDODAT

BIC

001136

{MUR ' DBEN,RMMR1 (RO) :LOAD RMMR1
#0MD
#0.RMERT1(RO) ~ :LOAD RMER1
:LOAD RMER2
#0 RMER2(RO)
*SETUP FOR ERROR MSG
$GODAT

BIC

BEQ

001142

1208

RMMR1 (RO) , SBDDAT

#~C0CC,$SBDDAT

130$
RO, SBDADR
#RMMR1, SBDADR
166
1408

:BRANCH IF VOLUME VALID ZERO
;SKIP TEST

:STORE RMMR1 AT $BDDAT
:BRANCH IF OCCUPIED ZERO
*SETUP ERROR MESSAGE
:SKIP TEST

:TO VERIFY THAT THE DECODE FLOP IS RESET, LOAD AN ILLEGAL FUNCTION
“IN RMCST AND VERIFY THAT ILF DOES NOT SET.
012760

000024

000000

042737

177776

001142

2928 030456 016037 000014 001142
2930 030472
2931 030474

BEQ

001142

2924
2925

2927 030450

MOV

001142

104135
000436
042737

MOV
MOV
MOV
CLR

061001 000024
000000 000014
000000 000042
001140

;GO CLEAR CONTROLLER
:LOAD RMMR1

001410
010037

001136

130s:

MOV

#ILF24 ,RMCST(RO)

BIC

#~CILF,$BDDAT

MOV
BEQ
MOV

RMER1(RO) , $BDDAT
1508
RO, SBDADR

:LOAD RMCS1

*STORE RMER1 AT $BDDAT
:BRANCH IF ILF IS ZERO
*SETUP ERROR MESSAGE

CZRNBAO RM80O DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-59

SEQ@ 0154

DECODE TEST

152

2932 030500
2933 030506
2936 030510

2935
2936 030514
2937
2938 030516
2939

062737
104167
012716

000014

ADD

#RMER1,$BDADR

16408:

MOV

#2008, (SP)

;DONT GO BACK TO TEST

1508$:

RTS

sRETURN TO TEST OR EXIT TEST

001136

030516

000207

EMT

167

200$:
5321222322222 2322 222232232232 3233232 32280002

2940

LaTEST 53

SET/RESET VOLUME VALID TEST

3222

2022

X 2222223222222 2232222232238 2332232032222 22 2233203230232

030516
030516
030520
030522

000004
000240
012706

030532

013701

2942 030544
2943 030550
2944 030556

010037
062737
012702

2941

030536

2945
2946
2947 030562

012737

aggPE

MOV

#STACK,SP

;LOAD THE STACK POINTER

001136

MOV

RO,$BDADR

:SETUP REGISTER ADDRESS

#1008 ,R2

;R2=TABLE POINTER

MOV
MOV
MOV

000012

030762

ADD

001136

MOV

dtdddds

:SCOPE CALL

001100

001276
001466
000083 001226

$BASE R
TSTQUE ,R1
#53,8TESTN
, $SBDADR
#RMDS

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

NITIALIZE AND USE DIAGNOSTIC MODE TO RESET VOLUME VALID
6

2948 030562
2949 030566
2950 030574
2951 030602
2952 030610
2953 030616
2954 030624
2955 030632
2956 030634
2957 030640
2958

004737
012760
012760
012760
012760
016037
042737
001403
005037
104135

2961 030642
2962 030644
2963 030650
2964 030654
2965 030660
2966 030664
2967 030670
030670
2968 030676
2969 030704
2970 030706
2971 030710
2972 030716
2973 030724
2974 030726
2975 030732
2976 030740
2977 030742

111203
042703
052703
010360
116204
042704

2959
2960 030642

TSTS3:

dddadddds

000024

JSR
MOV
MOV

;60 CLEAR CONTROLLER
PC,CNTCLR
:LOAD RMMR1
RMMR1(R0O)
UDHD
(RO) ;LOAD RMMR1
RMR1
EN
IDHD'HUR'DB

000042
001142

MOV
MOV

LOAD RMERZ
#0,RMER2(RO)
RHDS(RO) $BDDAT STORE RMDS AT S$BDDAT

055156
000001
041001

000024

000000
000012

MOV

000000 000014
177677

BIC
BEQ
CLR
EMT

001142

001140

#0,RMERT(RO)

#‘CVV.SBDDAT
208
$GDDAT
135

;LOAD RMER1

:BRANCH IF VOLUME VALID ZERO

55{55”75 THE FUNCTION CODE IN THE TABLE

012760
012760
005304
001370
016037
042737
001007
0
0
1
0

MOVB

177701
000000

(R2),.R3

000001

BIS

#GO,R3

000001

8IC
MOV

MOVB

1(R2)

MOV

#DMD ! DBEN ! MUR ! DBCK ,RMMR1 (R0)

177400

308

141001

000024

000012

001142

041001

000024

177677

001142

001174
000100

001140

BIC

ggg
BNE

MOV

BIC
BNE
MOV
MOV
EMT

B8R

c~c1Lr76 R3
R3. Rncs1(R0)

sGET FUNCTION CODE

*c377 n

;LOAD RMCS1
;GET CLOCK COUNT

:LOAD RMMR1

:QHD!DBEN!HUR.RHHRi(RO) :LOAD RMMR1
308

s ISSUE COCKS TIL R4 ZERO

RMDS (RO) , SBDDAT :STORE RMDS AT $BDDAT

#4CVV,$BODAT
408
R3,$TMPO
AVV,SGDDAT
170

508

BRANCH IF _VOLUME VALID SET

sSAve FUNCTION CODE FOR MSG

m12

SEQ 0155

SET/RESET VOLUME VALID TEST

153

2978

2979
2980 030744
2981 030744
2982 030750

2983 030754

2984 030756

%332 030760

062702
105762

100401

;ADVANCE THE TABLE POINTER, EXIT IF DONE
40$:
#2,R2
ADD
1(R2)
TST8

000002
000001

000701

508:

000403

50%

;EXIT IF COUNT IS NEGATIVE

2008

;JUMP OVER TABLE

108

:TABLE OF FUNCTION CODES AND CLOCK COUNTS

2987

2988 030762

BMI

1008:

.BYTE
BYTE

RIP
3

;READ IN PRESET COMMAND

022
003

.BYTE
.BYTE

PAKACK
3

;PACK ACKNOWLEDGE COMMAND

000
377

.BYTE
BYTE

2989 030762
ggg? 030763

020
003

2992 030764
gggz 030765
2995 030766
5339 030767

;END OF TABLE

;END OF TEST

%333 030770

2008 :

3000

:.'t*ttt*t*titttttfififittttitttt.tfit*t*ifit*ttttt'fittti'Q.tttttttt'i'
T*TEST S4

ILLEGAL FUNCTION TEST

.'.'ttttttt*ttttttttt*t*tttttttt*fi*lttttfifitfit.tt*'t.tt'*tfit'*ttfitfi'

030770
030770
030772

15754

000004

000240

030774

012706

001100

%001 031010

012737

000054

3002 031016

005002

3004 031020
031026

004737
000402

3005 031030

000460

3008
3009 031036

012760

041001

3011 031046
3012 031052

052703
010360

000001
000000

031056

012760

141001

3015 031072
3016 031074

005304
001370

031000 013700 001276
031004 013701 001466

3003 031020

031026

108:

054732

3013 031056

010203

208:
000024

000024

3014 031066 012760 041001 000024

3017 031076

016037

#STACK ,SP

;LOAD THE STACK POINTER

MOV

#54,STESTN

1:SET TEST NUMBER IN APT MAIL BOX

CLR

;INITIALIZE FUNCTION CODE VALUE

JSR
BR

PC,SETW
208

;60 SET VOLUME VALID
*BRANCH TO 208 IF NO ERROR

508

:SKIP TEST IF ERROR

EMT

104000

gggg 031032 012704 000002
3010 03i044

MOV

MOV
MOV

001226

000014

001142

3018 031106 062737 177776 001142
3019 031112 016237 063640 001140
3020 031120 042737 177776 001140
3021 031126 023737 001140 001142

;SCOPE CALL

SCOPE

NOP

MOV

$BASE ,RO
TSTQUE ,R1

#2.R4

‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

*R4=CLOCK COUNT

;EXECUTE THE TEST FUNCTION CODE AND VERIFY ILF
! MUR ! DBEN,RMMR1 (RO) ;LOAD RMMRi
#DMD
MOV

MOV

308:

R2.R3

;SETUP FUNCTION CODE IN R3

BIS
MOV

0.R3
R3 RMCS1(RO)

MOV

#DMD 'MUR ! DBEN!DBCK ,RMMR1(R0)

DEC
BNE

R4
308

MOV
MOV

BIC
MOV
BIC
CMP

;LOAD RMCS1

;LOAD RMMR1

MUR i DBEN,RMMRT (RO) ;LOAD RMMR1
#DMD
RMER1(RO),$8DDAT

;STORE RMER1 AT $BDDAT

#~CILF,$BDDAT ;SETUP ACTUAL ILF STATUS
FNCDTBIR2) ,$GDDATTM ;GET EXPECTED ILF STATUS
#-CILF,$GDDAT
$GDDAT,$BDDAT

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-60

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-61

SEQ 0156

ILLEGAL FUNCTION TEST

154

b
-

W
o

~N)
W

(=]
U“NU“N

031134
%022

001410
010037
0
0
1

001136
000014
001174

BEQ

408

ADD

#RMER1, SBDADR

EMT

171

MOV

001136

MOV

RO, $SBDADR

:BRANCH IF ILF IS OK

‘SETUP FOR ERROR MSG

R2,$TMPO

zegVANCE TO THE NEXT FUNCTION CODE AND REPEAT TEST

000002
000076

000713

508 :

ADD

#2.R2

B8R

108

CMP
BLO

#ILF76.R2
508

:END OF TEST

tttttttt*tttttttttttitttttttitfitttQt..Qi..t....'......'.'......

SRTEST 55

OCCUPIED TEST

:;ittt'ttttttttt*ttttttitttttttttttQt.tt...tfi..*t.'.'......'.'.'.

TSTSS:

000004

3037
3038 031220
3039
3040
3041 031222
3042 031222
031226
031230
3043 031232
304

012737

001100
001276
001466
000055

aggps

MOV

#STACK, SP

MOV

TSTQUE ,R1

MOV

001226

005002

:SCOPE CALL

$BASE ,R0

MOV

#55,STESTN

CLR

:LOAD THE STACK POINTER

‘RO = UNIBUS ADDRESS

*R1 = POINTER TO DEVICE

LSSET TEST NUMBER IN APT MAIL BOX

;INITIALIZE FUNCTION CODE

1851 THE DEVICE READY

004737
000402

JSR

054732

PC,SETVV

E:r

20§

508

:60 SET VOLUME VALID

‘BRANCH TO 208 IF NO ERROR

ésgeaLs DEBUG CLOCK AND LOAD THE FUNCTION CODE
041001

000024

MoV
MOV

#DMD 'MUR ! DBEN,RMMR1(R0) ;LOAD RMMR1
*ASSEMBLE FUNCTION CODE AND
R2,R3

MOV

R3,AMCST(RO)

BIS

000001

MOV

#G0.R3
#2.R4

R3
260 BIT IN

;LOAD RMCS1

;R4=CLOCK COUNT

§3I§P THE DEBUG CLOCK UNT:L SET PULSE IS ACTIVE
000024
000024

3061 031300
3062 031306
3063 031314
3064 031320
065 031326
066 031330

000024
077777
001140
001000

001142
001142

100000

001140

063640

mMov

#DMD 'MUR ! DBEN!DBCK ,RMMRT(R0O)

BNE

308

ggg

:VERIFY OCCUPIED STATUS
RMMR1(RO), SBDDAT
MOV
8IC

c*cocc $BODAT

MOV

#0CC.SGDDAT

CLR
BIT
8EQ

;LOAD RMMR?

zgno'nua'oeen.RMMRI(RO) :LOAD RMMR1

:ISSUE NEXT CLOCK TIL R4 ZERO
:STORE RMMR1 AT SBDDAT

$GDDAT
:GENERATE OCC FROM AOE
#AOE ,FNCDTB(R2)
358

(94
17

CZRNBAO RM80 DSh.S PT1 MACRO VO04.00 14=JAN-82 16:33:00 PAGE 13-62

SEQ 0157

OCCUPIED TEST

155

3067 031336
2068 031344
3069 031346

023737
001411
010237

001140

062737
104173
000406

000024

$GDDAT, $BDDAT
408
R2,$TMPO

ADD
EMT
BR

#RMMR1, $BDADR
173
508

sBRANCH IF 0CC IS OK
:SAVE FUNCTION CODE

;SETUP REGISTER ADDRESS

RO,$BDADR

;ADVANCE TO NEXT FUNCTIONCODE, EXIT IF DONE

3077 031370
3078 031374

062702
022702

ggg? 031402

000707

3079 031400

CMP
BEQ
MoV

MoV

001136

3075

3076 031370

35S:

001174

3070 031352 010037 001136

3071 031356
3072 031364
%8;2 031366

001142

103401

408:

000002
000076

ADD
CMP

#2,Re
#ILF76,R2

108

BLO

sEXIT IF DONE

50%

sEND OF TEST

%8%% 031404

508:

3084

JINRAARANRAARANEARANARANAANAAAARARRANRRAAARARARAAARAAANRRAGACCRAAN

READ IN PRESET TEST

;*TEST 56
2132223283

TST56:

031404
031404

000004

0316410

012706

001100

031420
3085 031424

013701
012737

001466
000056

031406

000240

004737
012760

055156
000001

012760

177777

000000

3102 031530

012760

141001

000024

3104 031544

005302

3103 031536 012760 041001 000024

3110 031556
3111 031560

001413
016002

3109 031554

005702

Mov
MoV
MOV

Mov
MoV
MoV

108

000006

176000
3112 031564 042702 000034

#DMD iML..'DBEN,RMMR1 (RO) ;LOAD RMMR1
;:LOAD RMER1
#0,RMER1 (RO)
:LOAD RMER2
#0.RMER2 (RO)
-1,RHDC(RO)
#-1.RMOF (RO)
#-1,RMOF (RO)

:LOAD RHDC
;LOAD RMOF
;LOAD RMOF AGAIN TO SET SSEI
:R2=CLOCK COUNT

MoV

#3,R2

MoV

#DMD 'MUR ! DBEN ! DBCK ,RMMR1(R0)

DEC

MOV
BNE

001370
016002

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

;LOAD READ IN PRESET CCMMAND AND STEP THE CLOCK TILL SET PULSE
:LOAD RMCS1
#RIP!GO,RMCS1(RO)
MoV

000021

3108 031550

TSTQUE ,R1
#56,$TESTN

;RO = UNIBUS ADDRESS

000006

012760

3107

MoV
Mov

$BASE RO

;LOAD ALL ONES IN RHDA RMDC AMD RMOF
sLOAD RMDA
#-1,RMDA(RQ)
Mov

3098
3099 031516

g;gg 031546

;LOAD THE STACK POINTER

000024

3095 031474 012760 177777 000034
3096 031502 012760 177777 000032
3097 031510 012760 177777 000032
%}8? 8%}2%8 012702 000003

#STACK,SP

;CLEAR AND ENABLE DEBUG CLOCK =~ LEAVE VOLUME VALID RESET
:GO CLEAR CONTROLLER
PC,CNTCLR
JSR
#DMD ,RM¥R1(RO) :LOAD RMMR1
MoV

3089 031444 012760 061001 000024
3090 031452 012760 000000 000014
ggg; 031460 012760 000009 000042

3093
3094 031466

Mov

MoV
001226

il dddidds)

:SCOPE CALL

SCOPE

NOP

031414 013700 001276

3086
3087 031432
3088 031436

2223 2222232 3X22 2332833223838 32332302 i

:LOAD RMMR1

| MUR i DBEN,RMMRT (RO) ;LOAD RMMR1
#DMD

;ISSUE 3 CLOCKS

108

;SEE IF RMDA OR RMDC OR RMOF IS ZERO

MoV

RMDA(RO) ,R2

;STORE RMDA AT R2

BEQ
MoV

20$
RMDC (RO) R

:BRANCH IF RMDA IS ZERO
;STORE RMDC AT R

TST

8IC

#XNUDC, Ré

sCLEAR UNUSED BITS

%%gNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-63

SEQ 0158

READ IN PRESET TEST

3113 031570
3114 031572
3115 031576
3116 031602
3117
3118
3119 031604
3120
3121 031606

001401

BEQ
MoV

000032
160577

8IC
BEQ

:BRANCH IF RMDC IS ZERO

208
RMOF (RO) ,R2

;STORE RMOF AT R2

#XNUOF ,R&

:CLEAR UNUSED BITS
‘BRANCH IF RMOF IS ZERO

20$

+READ INE:¥ESET ggzflAND DIDNT CLEAR ANY OF THE 3 REGISTERS

1064174

;END OF TEST

208:

3122
3123

':tttttttitttttfitt*ttttttit'tittttfi'tttifitttttttittttt.tttttttttt

LRTEST 57

RIP/RMOF TEST

A
A AR ANAEAACONNS
NAANR
NNANRNRN
ARANA
AN AANRNRARARNARR
PR AARARRANRR

001100
001276
001466
000057
001136
000032
001140

055156
000001
041001
000000
000000
177777
177777

001226

MOV
MoV

001136

MOV
ADD

RO, $8DADR
#RMOF , SBDADR

CLR

ssSET TEST NUMBER IN APT MAIL 80X
sSETUP REGISTER ADDRESS AND

$GDDAT

sEXPECTED RMOF

JINITIALIZE AND SET BITS IN RMOF
JSR

000024
000024
000014

Mov
MOV
MoV
MoV
MOV
MOov

000032

000024
000024

1 (RO)
#DMD ,RMMR

:GO CLEAR CONTROLLER
sLOAD RMMR1

#0 ,RMER1 (RO)
#0 RMER2(RO)

:LOAD RMER1
:LOAD RMER2

PC,CNTCLR

#DMD {MUR ' DBEN,RMMR1
(RO) ;LOAD RMMR1
#-1,RMOF (RO)
#-1_RMOF (RO)

:LOAD RMOF
;LOAD RMOF AGAIN TO SET SSEI

JEXECUTE A READ IN PRESET IN DIAGNOSTIC MODE TILL SET PULSE
:LOAD RMCS1
#RIP!GO,RMCS1(RO)
MoV
:R2=CLOCK COUNT
MOV
#35,R2

108:

Mov
MOV

DEC
BNE

;LOAD RMMR1

#DMD ! MUR ! DBEN ! DBCK ,RMMR1 (R0)

ggflD!HUR!DBEN.RHHRf(RO) :LOAD RMMR1

;ISSUE 3 CLOCKS

108

sVERIFY THAT RMOF 1S ZERO
RMOF (RO) ,$BDDAT ;STORE RMOF AT $8DDAT
MOV
8IC
8EQ
EMT

141001

000000

, SBDDAT
#XNUOF

JBRANCH IF RMOF IS ZERO

0s
175

;END OF TEST

20$:

3522222222222 2232 2222332223380 222 20222

LRTEST 60
c

031774

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

#STACK,SP

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

000021
000003

041001

:SCOPE CALL

SCOPE

NOP
Mov
MOV

—

3125 031634
3126 031640
3127 031646
3128
3129
3130 031652
3131 031656
3132 031664
3133 031672
3134 031700
3135 031706
031714
3136
3137
3138 031722
3139 031730
3140 031734
031734
3141 031742
3142 031750
3143 031752
3144
3145
3146 0317564
3147 031762
3148 031770
3149 031772
3150
3151 031775
3152
3153

000004
000240
012706
013700
013701
012737

ts157:

3124

031606
031606
031610
031612
031616
031622
031626

AR ENARNRNEARARRRANNRN N RO RN

¥S160:

R dRRddditiiiilddd)

RMDA/RMDC/RIP TEST

ERA
A RARNCAANNEERS
R ARAARNRNARANNCARNN

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-64

e 13

SE: 0159

RMDA/RMDC/RIP TEST

160

0317764

031776

;SCOPE CALL

SCOPE

000004

NOP

000240

032000 012706 001100
032004 013700 001276
032010 013701 001466

MOV

#STACK, SP

001140

CLR

$GDDAT

MOV
MOV
MOV

15 032014 012737 000060 001226
g}gg 032022

005037

3157
3158 032026 004737 055156
3159 032032 012760 (00001
3160 032040 012760 041001

000024
000024

3161 032046 01276C 000000 000014
012760 000000 000014
3163 032062 012760 177777 000006

3162 032054

g}gg 022070

012760

177777

3166

3167 032076 012760 000021

3168 032104
3169 032110

012702

000003

032110 012760

141001

3171 032124

005302

000024

MOV
MOV

108:

3176 032136

016037

005737

3177 032142 001406
3178 032144
3179 032150
g;gg 032156

010037
062737
104176

000006

001142

001136
000006

001142

:LOAD RMDA
:LOAD RMDC

;LOAD RMCS?

#RIP1GO,RMCS1(RO)

MOV

(R0O) ;LOAD RMMR1
#DMD | MUR | DBEN.RMMRT

BNE

108

MOV

#3,R2

#DMD 'MUR ' DBEN'DBCK ,RMMR1(RO)
R2

:LOAD RMMR1

;ISSUE 3 CLOCKS

:VERIFY RMDA IS ZERO

MOV
ST

BEQ

MOV
ADD
EMT

001136

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

:BRANCH IF RMDA RESET

208

RO, $8DADR
, SBDADR
#RMDA
176

.VERIFY RMDC IS 2ERO

3182

3183 032160

3184 032160 016037 000034 001142
3185 032166 042737 176000 001142
3186 032174 001406
3187 032176
3188 032202
g}gg 032210

#-1.RMDC(PN)

MOV

DEC

g};g 032126 001370
3175 032130

#-1,RMDA(RO)

;EXECUTE READ IN PRESET TILL SET PULSE

3170 032116 012760 041001 000024

3174

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

:CLEAR, ENABLE DEBUG CLOCK, THEN PRESET RMDA AND RMDC
;G0 CLEAR CONTROLLER
PC,CNTCLR
JSR
#DHD RMAR1(RO) :LOAD RMMR]
MOV
#DMD MUR 'DBEN,RMMRT(RO) :LOAD RMMR1
MOV
#0.RMER1(RO) ~ :LOAD RMER1
MOV
:LOAD RMER1
#0 RMER1(RO)
MOV

000034

000000

$BASE , RO
TSTQUE,R1
#60,$TESTN

:LOAD THE STACK POINTER

010037
062737
104302

001136
000034

208:

MOV
BIC

BEQ

MOV
ADD
EMT

001136

RMDC (RO) ,$BDDAT ;STORE RMDC AT S$BDDAT
C
, S8DDAT
AXNUD
;BRANCH IF RMDC RESET
308
RO, $8DADR
C
, SBDADR
#RMD
302

:END OF TEST

308:

§}3} 032212

:;tttttttttttttttttttttt"'ttt'tttttltttttttt.tt.'ttt.tttt..'ttlt

3193

SRTEST 61

OFFSET COMMAND TEST

":ttttttltttttttttttttt"'tttttttttttt'tltttttt'....ttt.t'.ttt.'.

032212

032214

000004

000240

032216 012706 001100
032222 012700 001276

032226 013701 001466
032232 012737 000061 001226

15T61:

:SCOPE CALL

SCOPE

NOP

MOV
MOV

#STACK, SP
$BASE , RO

TSTQUE ,R1
#61,$TESTN

:LOAD THE STACK POINTER
‘RO = UNIBUS ADDRESS

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

‘

CZRNBAO RM80 DSKLS PT1 HQCRO v04.00 14-JAN-82 16:33:00 PAGE 13-65
161

E 13

SEQ 0160

OFFSET COMMAND TEST

010037
062737
012737

001136
000012
000001

004737
000402

054732

001136
001140

3207 032320
2320
3208 032326
3209 032334
3210 032336
2n
3212
3213 032340
3214 032346
3215 032354
3216 032356
3217 032360
3218
3219

000000 000034
0461001

000024

141001

000024

041001 000024

177776

JSR

PC,SETW

408

mov

#0,RMDC (RO)

001142

;60 SET VOLUME VALID

*BRANCH TO 108 IF NO ERROR

;LOAD RMDC

! DBEN, RMMR1 (RU) ;LOAD RMMR1
#DMD 'MUR

:LOAD RMCS1
*R2=CLOCK COUNT

nov
MOV

SOFFSET'GO,RMCST(RO)
#2.R2

mov

#DMD 'MUR'DBEN'DBCK ,RMMRT(R0)

BNE

20$

ggg

;LOAD RMMR1

:gno'nun'oeen.RMRT(RO) ;LOAD RMMR1

:ISSUE 2 CLOCKS

:VERIFY THAT OFFSET MODE IS SET

MOV

001142

104200

10$

; ENABLE oeeuc CLO;K AND EXECUTE OFFSET COMMAND

000015 000000
208
000002

000012

RO, $8DADR
S
, SBDADR
#RMD
#0M, SGDDAT

g:r

104000
000433

012760

MOV
ADD
MOV

BIC

#4COM, SBOCAT

EMT

200

BNE

408:

RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
;BRANCH IF OM IS SET

40$

:END OF TEST

tttttttttttttttttttt'tt'ttttttttttttttttttt'lt.ttt.'tt.t.!ttttt

LRTEST 62

RETURN TO CENTER TEST

. ettstttttttttttttttttttt'ittttltttttttlttttttttl'..'t.lt'tt'.t..

7516

3220
3221 032406
3222 032412
3223
3224 032420
032424
032426
3225 032430
3226
3227
3228 032432
2229 032432
3230
3231 032440
032444
032446
3232

000062

001136
000012

;SCOPE CALL

MOV

#STACK, SP

:LOAD THE STACK POINTER

001226

MOV

#62,$TESTN

1:SET TEST NUMBER IN APT MAIL BOX

001136

MOV
ADD

RO, $BDADR
, SBDADR
#RMDS

JSR

PC,SETW

60$

001100

001276
001466

zsgps

MOV
MOV

054732

E:r

000465

$BASE , RO
TSTQUE ,R1

108

‘RO = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

:60 SET VOLUME VALID

‘BRANCH TO 108 IF NO ERROR

-SET OFFSET DIRECTION AND OFFSET MODE
012760

000200 000032

004737
000401
104000

055054

MoV

#OFD,RMOF (RO)

JSR

PC,SETOM

Ezr

208

:GO SET OFFSET MODE

*BRANCH TO 208 IF NO ERROR

SEQ 0161

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-66
RETURN TO CENTER TESY

004737
000402

104000
000451

012760
012760
012702

041001
000017
000002

000024
000000

012760
012760
005302
001370

141001
041001

000024
000024

016037

000012
177776

104201

308:

40$:

JSR
B8R
EMT
BR

PC,SETVV

MOV
MOov
MoV

#DMD ! MUR ! DBEN ,RMMR1(R0O) ;LOAD RMMR1
zgfgéGO.RHCS1(RO)
;LOAD RM(S1

MoV
MOV
DEC

#DMD 'MUR ' DBEN'!DBCK ,RMMR1(R0)

—b

b
-

BNE

308

;GO SET VOLUME VALID

*BRANCH TO ,0$ IF NO ERROR

608

;LOAD RMMR?

ggnosnuasoseu.annai<R0) ;LOAD RMMR1

sISSUE 2 CLOCKS

408

sVERIFY THAT OFFSET MODE 1S RESET
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
MOV
BIC

#~COM, SBDDAT

CLR

gggbAT

8EQ

001140

EMT

;BRANCH IF OFFSET MODE RESET

508

016037

104202

000032
177577
001140
001136
000032

:VERIFY THAT OFFSET DIRECTION IS RESET

3258 032564

3259 032570
3260 032574
3261 03262
3262 032604
3263
3264

208

054732

3240 032476
3241 032502
032502
3242 032510
3243 032516
3244 032520
3245
3246
3247 032522
3248 032530
3249 032536
3250 032540
3251 0325644
3252
3253
3254 032546
3255 032546
3256 032554
3257 032562

-ENABLE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND

(o=}
oo

3233
3234 032450
3235 032450
032454
032456
3236 032460

(==
[=1=]

162

Sos

001136
60$:
s

MOV
8iIC
8eQ
CLR
MoV
ADD
EMT

RMOF (RO) ,$BDDAT ;STORE RMOF AT $BDDAT
#~COFD,$BDDAT

:BRANCH IF OFD IS RESET

608

$GDDAT

RO, $BDADR

#RMOF ,$BDADR

202

sEND OF TEST

NACOANRS
ANNAR
RARAANNANCACAA
RARNR
L RN RN A RARARNANRANARR
A ARARANRARA

LRTEST 63

RMDC CLEAR OFFSET TEST

1232322322222 23 3232322228322 3203232223232

15763:

032624

000063

3266 032632
3267 032636

001136
(00012

001226

#STACK, SP
$BASE ,RO
TSTQUE ,R?
#63,$TESTN

001136

MOV
ADD

RO, SBDADR
#RMDS
, SBDADR

JSR
BR
EMT
B8R

PC,SETVV

JSR
BR
EMT

PC,SETOM

054732

004737
000401
104000

055054

108:

i dRididdiiiidldld)

sSCOPE CALL

SCOPE

NOP
MoV
MOV
MoV
Mov

001100

0230

108

408

20§

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

;GO SFT VOLUME VALID

*BRANCH TO 108 IF NO ERROR
:SKIP REST OF TEST
;GO SET OFFSET MODE

*BRANCH TO 208 IF NO ERROR

CZRNBAQ RMBO DSKLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 13-67

6 13

SEQ 0162

RMDC CLEAR OFFSET TEST

163

3273

-WRITE THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS 2ERO

337

3275 032666

3276 032666

012760

000000

000034

3278 032702
3279 032710
3280 032712
%535 032716

042737
001403
005037
104203

177776

001142

208:

MOV

#0,RMDC (RO)

BIC
BEQ
CLR
EMT

#4COM, SBODAT
408
$GDDAT
203

MOV

3277 032676 016037 000012 001142
001140

:LOAD RMD(C

RMDS (RO) , SBDDAT :STORE RMDS AT $BDDAT

;END OF TEST

408:

gggz 032720

ttttttttttttttttttttt"tttt"ttttt'tttttttttttttttttttttt.ttttt

3285

RTEST 64

EBL CLEAR OFFSET TEST

:;ttltttttttttttttttttttttttttttttttt.tfitttttttttt'.ttt't.'t'tttt

032720

000004

032724

012706

032722

000240

75764

001100

032734 013701 001466
5286 032740 012737 000064 001226
3287 032746
3288 032754
3289 032762

013737
112737
010037

001334
000036
001136

3292 032774

004737

054732

033002

104000

ggg? 032766

062737

033000 000402

000012

001420
001420

3294 033006

004737

033014
3296 033016

104000

033012 000401

3297 033016

012760

108:

000032

3300
3301 033032
3302 033040

012760
012760

041001
000001

000024
000000

3305 033062

016037

000012

001142

3307 033076

001403

3303 033046 012760 061001 000024
3304 033054 012760 041001 000024
3308 033100
3309 033104

gg;? 033106
3312

042737
005037
104204

177776

MOV
MOV

TSTQUE ,R1
#64,STESTN

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

208:

$BASE ,RO

MOV
MOVEB
MOV

LSTRK , RMDAO
#30.,RMDAD
RO, $8DADR

JSR

PC,SETWV

B8R

EMT

308

JSR

PC,SETOM

B8R

EMT

MoV

MOV

gggg 033024 013760 001420 000006

3306 033070

;LOAD THE STACK POINTER

B8R

055054
010000

#STACK, SP

ADD

001136

3293 033004 000440
3295 033006

MOV

032730 013700 001276

;SCOPE CALL

SCOPE

NOP

#RMDS , SBDADR

10$

208

#FMT16,RMOF (RO)

RMDAO,RMDA(RO)

RO= UNIBUS ADDRESS

:SET LAST TRACK AND
*LAST SECTOR
*SETUP REGISTER FOR ERROR MSG
;GO SET VOLUME VALID

*BRANCH TO 108 IF NO ERROR

;SKIP REST OF TEST IF ERROR

;GO SET OFFSET MODE

‘BRANCH TO 208 IF NO ERROR
:LOAD RMDA

:FORCE END OF BLOCK AND VERIFY THAT orrssr noos IS CLEARED
' MUR ' DBEN,RMMR1(R0);LOAD RMMR1
#DMD
MOV
#GO,RMCS1 (RO~ ;LOAD nn
MOV

MOV
MOV

:LOAD RMMR1
#DMD ' MUR ! DBEN! DEBL RHHR1(R0)
| MUR i DBEN .RMMRT (RO) ;LOAD RMMR1
#DMD

8IC

#~COM, SBODAT

CLR
EMT

$GDDAT
204

MOV

001142

8EQ

001140

308:

RMDS (RO) . $BDDAT :STORE RMDS AT $SBDDAT

308

:BRANCH IF OFFSET IS ZERO
;END OF TEST

Qtt.tttt'.'tttttt.t'tt'ttttttfittt'ttQttQ.tttt'.tttl"!ttt".l't

-resr 65

RUN AND GO TEST

::.'t'tt.tt't'it'tttttt"'t'ttttttltttttttt....tt.t'l...'....t...

]

SEQ 0163—1

H 13

RUN AND GO TESTY

165

TST6S:

033106
033106

000004

033112

012706

001100

3314 033134

005037

3316 033142
gg}g 033146

010037
062737

033110

000240

MOV

#STACK, SP

001140

CLR

$GDDAT

001136
000026

MOV
ADD

3321 033154
3322 033160

004737
012760

055156
000001

gggg 033202

012760

000000

10s:
000024

3329 033212

010203

033234

000001

016037

000024

0462737
023737

3337 033264
3338 033266

001363
004777

3335 033256
3336 033260

3339 033272

001411
005737

010237

137777
001140

001142

062702
022702

103407
020227

3350 033324 103403
3351 033326

gggg 033334

gggg 033336

012737

000707

#0 RMER2(RO)

:LOAD RMER2

| DBEN , RMMR1 (R0)
#DMD

SLOAD RMMR1

158:

146246

MOV
JSR
MOV

#2000, WATCH
PC,acLOCK
R3'RMCST(RO)

MOV

RMMR1 (RO) , SBDDAT

#G0,R3

208:

:SET WATCHDOG TIMER VALUE
*START THE CLOCK
:LOAD RMCS1

BIC
CMP

#CRG, $BDDAT
$GDDAT, SBDDAT

BNE
JSR

158
PC,aSTOPCL

208
WATCH

:BRANCH IF RUN AND GO FLOP OK
SAMPLE IF CLOCK NOT ZERO
ANOTHER
:TAKE

;SAVE FUNCTION CODE FOR MSG

205
408
PC.,asSTOPCL

EMT
B8R
JSR

;STORE RMMR1 AT $BDDAT

;STOP THE CLOCK

R2 . STMPO

MOV

001174

:SKIP REST OF
;STOP THE CLOCK

:ADVNACE TO NEXT FUNCTION CODE - EXIT IF DONE
ADD
#2.R2
#ILF76.R2
cMP
;EXIT IF DONE
408
BLO
*CHANGE EXPECTED RESULTI IF
R2,MICD
cMP

000002
000076

000050
040000

R2.R3

BEQ
TST

001534

;ASSEMBLE FUNCTION COD: AND GO

Mov
BIS

001142
001142

33,0 033276 104205
3341 033300 000416
3342 033302
ggzz 033302 004777 146232
3345
3346 033306
3347 033312
3348 033316
3349 033320

;G0 CLEAR CONTROLLER
:LOAD RMMRT

:LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP

052703

3333 033242
3334 033250

PC,CNTCLR
#DMD ,RMMR1(RO)

#0.RMER1(RO) :LOAD RMER1

MOV

000042

3330 033216 012737 000200 001534
033224 004777 146306
3331 033230 010360 000000
3332 033234

JSR
MOV

MOV

3324 0331764 012760 000000 000014
3328 033210

PINTIALIZE FUNCTION CODE

RO, $8DADR
#RMMR1, $BDADR

MOV

3323 033166 012760 060001 000024

3327

;INITIALIZE EXPECTED RESULT

-CLEAR THE MASSBUS AND ENABLE DEBUG CLOCK

3319

3320 033154

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

CLR

001136

:LOAD THE STACK POINTER

$BASE ,RO
TSTQUE ,R?
#65,$TESTN

MOV
MOV
MOV

033116 013700 001276
033122 013701 001466
313 033126 012737 000065 001226

3315 033140 005002

:SCOPE CALL

SCOPE

NOP

001140

BLO

30$:

30$

*DATA COMMAND

108

:REPEAT TEST

#RG,SGDDAT

MOV

B8R

:END OF TEST

408:

ttttttttttttttttttt*tttt'ttttttttt.tttttttttttttttttttttttttttt

3356

RTEST 66

033336

I R R R A A

75766:

SET IAE TEST

R A

i 1332322323323 3232232223234323223232¢%4;/

omad Pod

CZRNBAO RMB80 DSKLS PT1 MACRO Vv04.00 14-JAN-82 16: 33:00 PAGE 13-68

SEQ 0164

SET IAE TEST

166

033336

sggPE

000004

001100
001276
001466
000066

364

012702

033532

360 033370
033374

004737
000402

054732

3361 033400

000453

3385
3386 033500
3387 033504
%%gg 033510
3390
3391 033512
3392 033516
3393 033522
gggg 033524

177777
177777
000000

01
1N
04
05
01
1
042704

3399

3400 033530
3401
3402
3403 033532
3404 033532
3405 033533

MoV

#1008 ,R2

JSR

PC,SETVV

20$

:BRANCH TO 208 IF NO ERROR

508

;SKIP REST OF TEST

E:r

TsTQUE R1
#66,8TESTN

*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX
sR2=TABLE POINTER
260 SET VOLUME VALID

000006
000034
000032

000024

208

Mov

#-1,RMDA(RO)

sLOAD RMDA

MOV

#0,RMOF (RO)

sLOAD RMOF

MoV

:LOAD RMDC

;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCSI WITH GO ON
#DMD 'MUR
! DBEN ,RMMR1(R0O) ;LOAD RMMR1
HOVB
(R2) ,R3

BIC

177701
000001
000000
000001
177400

#=1,RMDC (RO)

BIS

MoV
MOov8

BIC

O‘CILF76 R3
R3
R3 RHCS1(R0)
1(R2)

0*c377a4

;LOAD RMCS1
sGET CLOCK COUNT

:CLOCK THE COMMAND SEQUENCER

012760
012760
005304
001370
016004
042704
001007

000014
175777

062702
105762
100401
000721

000002
000001

000024
000024

$0s

104206
000411

MOV

#OMD 'MUR ' DBEN!DBCK ,RMMR1(RO)

DEC
BNE

R4
308

MOV

BNE

:LOAD RMMR1

! MUR i DBEN.RMMRT (RO) ;LOAD RMMR1
#DMD

:SEE IF JIAE HAS SET
RMER1(RO) ,Ré
MoV
R4
#~CIAE
BIC

508

;STORE RMER1 AT R4

sBRANCH IF IAE SET

:1AE DID ggf SET 5 rgv ANOTHER FUNCTION CODE
1ST8

8MI]
BR

; CANNOT

3396

3397 033526
3398 033526

041001

3367 033416
3368
3369
3370 033424
3371 033432
3372 033434
3373 033440
3374 033444
3375 033450
3376 033454
3377
3378
3379 033460
3380 033460
3381 033466
3382 033474
gggz 033476

#STACK,SP
$BASE ,RO

:LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT TO 18

(=]

3362
3363
3364 033402

[«

108:

LOAD THE STACK POINTER
;RO
= UNIBUS ADDRESS

MoV
MoV

MOV
MOV

001226

:SCOPE CALL

40$:

508:

1(R2)

408

108

:BRANCH IF ALL CODES TRIED

SET IAE WITH ANY COMBINATION Of ADDRESS AND FUNCTION CODE
EMT

206

2008

;JUMP OVER TABLE

:TABLE OF FUNCTION CODES AND CLOCK COUNTS FOR TEST

030
002

100s

.BYTE

SEARCH
2

sSEARCH COMMAND

113

CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-69

SEQ 0165

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-70
SET IAE TEST

166

3406

34,07 033534
gzgg 033535

004
002

.BYTE
‘BYTE

SEEK
2

;SEEK COMMAND

3410 033536

062

002

.BYTE

BYTE

;WRITE HEADER COMMAND

3413 033540

052

.BYTE

WCH

;WRITE CHECK HEADER COMMAND

3416 033542

072

.BYTE

;READ HEADER COMMAND

3419 033544

060

.BYTE

;WRITE DATA COMMAND

3422 033546

050

BYTE

WCD

;WRITE CHECK DATA COMMAND

3425 033550

070

.BYTE

:READ DATA COMMAND

3428 033552

000

.BYTE

gz}g 033537
gz}g 033541

gz}g 033543
3259 033545
gzgz 033547
3259 033551

gzgg 033553

BYTE

002

‘BYTE

002

BYTE

002

BYTE

002

BYTE

.BYTE

377

2
2

;END OF TEST

200$:

§2§5 033554

:END OF TABLE

;:tttttttttttttttttt*tttttttttttttfittt!ttttttttttfitttfitttttt'tttt

3‘033

S*TEST 67

SEARCH, SEEK, READ, WRITE TEST

:;ttttttttttttttttttttttt'tttttttttttttttttttttttttttttittttttttt

TS167:

033554
033554

000004

033560

012706

001100

033570 013701

001466

033556

000240

" 033574

012737

3435 033602

005002

3437 033604

004737

033612

104000

3436 033604

033610 000402

gzgg 033614

000067

001226
108:

054732

#STACK,SP

LOAD THE STACK POINTER

MOV

TSTQUE,R1

‘R1 = POINTER TO DEVICE

#67,$TESTN

CLR

JSR

PC,SETVV

EMT

000472

$BASE ,R0O

MOV

B8R

20$

‘RO= UNIBUS ADDRESS

P.SET TEST NUMEZR IN APT MAIL BOX
:INITIALIZE FUNCTION CODE
;G0 SET VOLUME VALID

*BRANCH TO 208 IF NO ERROR

508

LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT

3440
3441

3442 033616 012760 177777 000006 éos

3443 033616

3444 033626 012760 177777 000034
gzzg 033632 012760 000000 000032

3447
3448 033640
3449 033646

MoV

MOV

033564 013700 001276

:SCOPE CALL

SCOPE

NOP

012760
010203

041001

3450 033650 052703 000001

000024

18 BIT MODE

MOV

MOV
MOV

#-1,RMDA(RO)

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

;LOAD RMDA

:LOAD RMDC
*LOAD RMOF

; ENABLE ossuc CLOCK AND LOAD FUNCTION CODE IN ancs1 WITH GO ON
'MUR 'DBEN,RMMR1 (RO) :LOAD RMMR1
#DMD
ASSEHBLE CODE AND GO
R2,R3
nov

8IS

#G0,R3

€2
n

%g;NBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-71

SEQ 0166

SEARCH, SEEK, READ, WRITE TEST

010360

MOV

000000

012704

000002

012760

141001

041001

308
000024
000024

3472
3473
3474 033766
3475 033766
3476 033772
3477 033776
3478 034000
3479 034002
3480
3481

001136
000014
001174

:LOAD RMCS?

OO NN

2l ol o
2

MOV

#2.R4

mov

#DMD 'MUR ' DBEN!DBCK ,RMMR1(R0)

BNE

308

ggg

:LOAD RMMR1

gzno'nun'oasn.RMMRT(RO) ;LOAD RMMR1

:VERIFY IAE ACCORDING TO FUNCTION CODE TABLE
MOV

FNCDTB(R2) , $SGDDAT

:ASSEMBLE EXPECTED IAE

RO, $8DADR

:BR WNCH IF IAE 0K
‘SE UP ERROR MSG

8IC
CMP
8EQ

#*CIAE,$GDDAT
$GDDAT, SBDDAT
408

ADD

#RMER1, SBDADR

MOV

EMT

000406

:STORE RMER1 AT $BDDAT

#~CIAE, SBODAT

MOV

001136

RMER1(RO), SBDDAT

BIC

MOV

P
F

Gurd
G

ek
e
b
—d

[olelelele)
[elelelale

paur Qar Gins

SNNNSNNN ~
S BWNIN
-o
SN
O0NON &~

NN NN N

3468 033750
3469 033756
3470 033762
3471 033764

016037

000014
175777
063640
175777
001140

R3,RMCST1(RO)

:CLOCK THE COMMAND SEQUENCER TO SET PULSE

001370
[elelelelels] o
NN
N NN NW

OWVOO~NO

by
ferre gress
SEELEL
-wo«ngkmv

1 033654

R2,$TMPO

207
508

:SKIP REST OF TEST

iegVANCE TO NEXT FUNCTION CODE - EXIT IF TONE
062702
023702
103401

000002
000076

000701

508 :

ACD

CMP
BLO
BR

#2,R2

ILF76.R2
508
108

:END OF TEST

ttttttttttttttttttt't't'tt't'fifittfi'QtQfi.Q..tfi.fiti.'.........fi.'

RTEST 70

INVALID TRACK/SECTOR TEST

::tttfitttttttt'tttttttttttttititttttfiitt'ttt..i't.ttltfi.fi't.'....

15170

000004

012737

001100
001276
001466
000070

013737
105237

001334
001421

004737

054732

013701

;LOAD THE STACK POINTER
= UNIBUS ADDRESS
RO

MOV

#70,STESTN

tsSET TEST NUMBER IN APT MAIL BOX

MOV

LSTRK , RMDAO

JSR
?gr

PC,SETVV
20§

B8R

1008

TSTQUE.R1

RMDAO+1

*R1 = POINTER TO DEVICE

:LOAD LAST TRACK ADDRESS

*SETUP FIRST INVALID ADDRESS
;GO SET VOLUME VALID
*BRANCH TO 208 IF NO ERROR
:SKIP REST OF TEST

4 034070

252 BIT FORMAT

v
S

:CLEAR DESIRED CYLINDER, LOAD INVALID ADDRESS AND SET

046
034050
87 034052

#STACK, SP
$BASE , RO

INCB

:SCOPE CALL

MOV
MOV

MOV

001226

001420

zggpe

000000
001420
000000

000034
000006

000032

MOV
MOV

MOV

#0,RMDC (RO)
RMDAO,RMDA(RO)

#0,RMOF (RO)

:LOAD RMDC
>LOAD RMDA

*LOAD RMOF

-b P

—

SEQ 0167

INVALID TRACK/SECTOR TEST

170

3495

34,96

3,97 034076

012760

041001

3499 034112

012703

000002

3501 034116

012760

141001

3503 034132

005303

000024

;EXECUTE A SEARCH COMMAND TO WHERE ‘'SET PULSE'' IS ACTIVE
MOV

MOV

34,98 034104 012760 000031 000000

3500 034116

000024

308:

02 034124 012760 041001 000024

358§ 03413¢

001370

3507 034136

016037

3509 034152
3510 034154

001015
012737

3508 034144

3511 034162
3512 034166

042737

010037
062737

000014

175777

002000

001136
000014

001142

105737

001411

3522 034220
3523 034226

123727
101705

MOV
BNE

308

;ISSUE 2 CLOCKS

RMER1(RO) , $8DDAT

;STORE RMER1 AT $BDDAT

408
#1AE. $GDDAT

:BRANCH IF IAE IS ON
*SETUP ERROR MESSAGE

BIC

#°CIAE, $BDDAT

MOV
ADD

RO, SBDADR
#RMER1, SBDADR

MOV
EMT
B8R

012737
123727

101674

408:

RMDAO, $TMPO
210
1008

000200

000035

001420

TSTB

RMDAO+1

sTESTING INVALID SECTORS ?

INCB

RMDAO+1

1~cnsne~r TRACK ADDRESS

BEQ

001421

3526 034236 005237 001420
gggg 034250

:LOAD RMMR1

#DMD 'MUR ' DBEN, RHHRi(RO) :LOAD RMMR1

BNE
MOV

001136

001421

3521 034214 105237 001421

3507 034242

#DMD 'MUR ! DBEN'!DBCK ,RMMRT(RO)

:ADVANCE TO NEXT ENTRY IN TABLE - EXIT IF DONE

3520 034212

ggsg 034230

MOV

001140

3517

3518 034206

#2.R3

:VERIFY JAE IS SET

001142

:LOAD RMCS?

MOV
DEC

3513 034174 013737 001420 001174
3514 034202 104210
gg}g 034204 000422
3519 034206

'MUR ! DBEN,RMMR1(R0) ;LOAD RMMR1
#DMD

#SEARCH'GO,RMCST(RO)

000200

(MPB
B8LOS
MOV

50%:

INC

C(MPB

BLOS

508

“YES

RMDAO+1,#128.
108

?
:DONE
NO TEST NEXT TRACK ADDRESS

RMDAO

INCREHENT SECTOR ADDRESS

108

NO IEST NEXT SECTOR ADDRESS

#29. ,RMDAO

RMDAO,#128.

%g:g Lesr SECTOR ADDRESS AND
?
*DONE

gggg 034252

1008 :

3532

AS
A
NRARRARRARRANR
RRARA
ANARARRAREARRA
AANRA
R AR RN AR AN
PINAANARAR

TRTEST 71

INVALID CYLINDER TEST

;:ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

034252

15171

034252

000004

034256

012706

001100

3533 034272

012737

000071

001226

§§§g 8%2383

012737

001061

001446

3536 034306

004737

054732

034254

000240

034262 013700 001276
034266 013701 001466

034312 000402
034314

105

000460

9 034320

013760

#STACK, SP

;LOAD THE STACK POINTER

MOV

#71,8TESTN

LS SET TEST NUMBER IN APT MAIL BOX

MOV

#561. ,RMDCO

JSR

PC,SETVV

B8R

EMT

001446

000034

20%:

:SCOPE CALL

MOV

MOV
MOV

104000

7 034316

SCOPE

NOP

$BASE ,R0
TSTQUE . R1

20§

508

MoV

RMDCO,RMDC(RO)

‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

:SET FIRST INVALID CYLINDER
:60 SET VOLUME VALID

‘BRANCH TO 20$ IF NO ERROR
;SKIP IF ERROR

;LOAD RMD(

-—b P

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-72

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-73

SEQ 0168

INVALID CYLINDER TEST

3540 034326
3541
3542
3543 034334
3544 034342
3545 034350
3546 034354
03 6354
3547 034362
3548 034370
3549 034372
3550

3560 034442
3561
3562
3563 034444
3564 034444
3565 034450
3566 034456
3567 036460
3568
3569

012760

000000

000006

041001
000031
000002

000024
000000

141001

000024
000024

041001

000014
175777

001142
001142

002000
001136
000014
001446

001140

Mov

#0,RMDA(R0D)

;LOAD RMDA

sENABLE DEBUG CLOCK AND EXECUTE SEARCH COMMAND
'MUR ' DBEN,RMMR1(R0) ;LOAD RMMR1
#DMD
MOV

MoV

308

)

#SEARCH!GO, RHCS1(R0)

#2.R3

MOV

#DMD 'MUR ! DBEN ! DBCK ,RMMR1(RO)

BNE

308

ggg

BIC

#°CIAE,$BDDAT

MoV
ADD
10V
EMT
BR

RO, $BDADR
#RMER1 ,$BDADR
RMDCO,S$TMPO
211
508

BNE
MOV

000406

:LOAD RMMR1

ggflDfHUR!DBEN.RHflR1(RO) ;LOAD RMMR1

;ISSUE 2 CLOCKS

:VERIFY ]AE IS SET
RMER1(R0O) ,$BDDAT
MOV

001136
001174

LOAD RMCS1

MOV

:STORE RMER1 AT $BDDAT
:BRANCH IF JAE IS SET
:SETUP ERROR MESSAGE

408
#1AE ,SGDDAT

zggVANCE CYLINDER ADDRESS

005237
023727
103713

001446
001446

002000

|
50$:

INC

CMP

8LO

RMDCO

INCREHENT CYLINDER ADDRESS

0os

NO TEST AGAIN

RMDCO,#1024.

*DONE
?

T e LT L
e
TL

:xTEST 72

SET AOE TEST

;;t;sttttttttt*tttttttttttttttttttttttttttttttttttttttttt'ttttttt

TST172:

034460
034460
034462

MOV

|V,]

001100

3570
3571 034514
3572 034520
3573 034526
3574

aggPE

:SCOPE CALL

#STACK,SP

:LOAD THE STACK POINTER

000672

001206
001226

L [1]")

072 $TESTN

RO = UNIBUS ADDRESS
R1 POINTER TO DEVICE
..DO 3 ITERATIONS
:2SET TEST NUMBER IN APT MAIL BOX

001444
001334
000035

001420
001420

CLR
MOV
MOvVB

RMOFOQ
LSTRK ,RMDAO
#29. ,RMDAO

:18 BIT FORMAT MODE
SET LAST TRACK AND
LAST SECTOR

Mov
MOV

MOV

$BASE RO
TSTQUE R1

#3 STIHES

;ENABLE DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS, MEMORY ADDRESS AND
*WORD COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET

10s:

054732
2
3579 034544
3580 034546
3581 034546
3582 034554

000517

012760
013760

041001
001444

000024
0000

15%:

JSR
BR
EMT

PC,SETW

;GO SET VOLUME VALID

15§

:BRANCH TO 15$ IF NO ERROR

40%

sSKIP TEST IF ERROR

MoV
MOV

#DMD 'MUR ! DBEN,RMMR1 (R0) :LOAD RMMR1
0, RMOF (RO ;LOAD RMOF
RMOF

—

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-74
SET AOE

172

MOV

#560. ,RMDC(RO)

MOV
MOV

#BUFFER, RMBA (R0)
! GO,RMCS1 (RO)
#4D

000024
000024

YV 1 8 L

N
NN

&SN
(=T)

b
—
—

prar@urd

N0
oo

001136
000014
001000

poargurd

000014
176777

000024
000024

(==}
QO

061001
041001

3601
3602
3603 034666
36

Vele BNle NV P

;STORE RMOF AT $TMPO

LOAD RMDC

RMDAO_RMDA(RO) :LOAD RMDA
#-512. ,RMJC(RO) :LOAD RMWC

:LOAD RMBA
*LOAD chs1

:R2 = CLOCK COUN
1CLOCK COUNT z-os 3-04 14-60..
SET PULSE
GENERATE
TO
é(c)kocx THE COMMAND SEQUENCER

3592 034632
3593 034632
3594 034640
3595 034646
3596 034650
3597
3598
3599 034652
3600 034660

AANANNN
A

RMOF (RO) ,$TMPO

MOV
MOV
MOV

000426

34756

SEQ 0169

TEST

000032

34736

032737

000667
032737

000654

010000

001444

010000
000036

001444
001420

001000

001444

001000
000037

001444
001420

MOV

#14.R2

MOV

#DMD 'MUR !'DBEN!DBCX.RMMR1(R0)

BNE

208

EEX

:ISSUE 2 CLOCKS

:FORCE EBL TO GET TO OVERFLOW ADDRESS
#DMD 'MUR ' DBEN ! DEBL ,RMMR1(R0)
MOV

MOV

;LOAD RMMR1

:gnpsnunzoesn.nnna1(R0) ;LOAD RMMR1

;LOAD RMMR1

' MUR i DBEN,RMMR (RO) ;LOAD RMMR1
#DMD

:VERIFY THAT ADDRESS OVERFLOW ERROR IS SET

MOV

E
, SBODAT
#4CAO

ADD

308
RO, $8DADR

EMT
BR

#RMER1, SBDADR
, SGDDAT
NAQE
212
408

;BRANCH IF AOE IS SET
*SETUP ERROR MESSAGE

BIT

#FMT16,RMOFO

;END OF TEST
oons 16 BIT FORMAT TEST ?

MOV

WFMT16,RMOFO

- SET 16 BIT FORMAT MODE AND

B8R

108

BNE
MOV
MOV

308 :

BNE

358

MOVB

#30..RMDAO

!
:YES

‘LAST SECTOR

BIT

#SSE] ,RMOFO

sDONE 16 BIT TEST W/ SSEI SET ?

BIS

#SSE] ,RMOFO

SSET ssex W/ 16 BIT MODE AND

BNE

MOVEB

40$8:

;STORE RMER1 AT $BDDAT

RMER1 (RO) , SBDDAT

BIC

B8R

408

#31..RMDAO

108

!
“YES

*LAST SECTOR

tttttttttttttttttttttttttt'ttttfi**tttttttttt.tttfittttt*t.ttttfi'

ATEST 73

SET RMR TEST

’.tt;t*tttttttttttttitt*ltitttttttttttfitttttitttttfittttitfitttt'tt

ts17

MOV

001100

3626
3627 035032
3628 035036
3629 035044

358’5

000073

001226

001136
000014
035212

001136

MOV
MOV
MOV
MOV

ADD
MOV

:SCOPE CALL

#STACK, SP

sLOAD THE STACK POINTER

RO, $BDADR

;SETUP REGISTER ADDRESS FOR MSG

$BASE ,R
TSTQUE ,R1
#73,$TESTN
#RMER1, SBDADR
#1008 ,R2

‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
1sSET TEST NUMBER IN APT MAIL BOX
;INITIALIZE TABLE POINTER

CZRNBAQ RM80 DSKLS PT1 MACRO Vv04.00 14~JAN-82 106:33:00 PAGE 13-75

SEQ 0170

SET RMR TEST

173

3631
3632 035050

3633 035050
634 035054
3635 035062
3636 035070
3637 025076
3638
3639

3640 035104
3641 035112
3642 035114
3643 035116

3644
3645

1&EAR THE DEVICE AND ENABLE DEBUG CLOCK
004737
012760
012760
012760
012760
012760
011203
060003
012713
l

3646 035122
3647 035130
3648 035136
3649 035144
3650 035152
3651 035154
52 035160
3653 035166

016037
042737
016237
023737
001411
011237
032762
001002

3655 035172
3656 035174
» 035174

000401

3658
3659 035176
3660 035176
3661 035202
3662 035204
3663 035206
%ggé 035210

000000

000024

JSR
MOV

PC,CNTCLR
#DMD,RMMR1(RO)

;G0 CLEAR CONTROLLER
:LOADRMMRT

000042

MOV

#0 RMER2(RO)

:LOAD RMER2

MOV
MOV

0461061 000024
000000 000014
000001

000000

ggg

MOV

000014

177773

001142

001174
000004

(825 R3

#DMDMUR ! DBEN, (R3)

;VERIFY RMR ACCORDING TO TABLE

000002

:STORE RMER1 AT $BDDAT

MOV

2(R2) ,$GODAT

;GET EXPECTED RESULT FROM TABLE

#*CRMR, SBODAT

$GDDAT, $BDDAT
30$

MOV
BIT
BNE

(R2) ,$TMPO
;2 (R2)
#RMR
208

EMT

214

EMT
BR

208:

:WRITE THE REGISTER

RMER1(R0), $BDDAT

CMP
BEQ

001142

;GENERATE REGISTER ADDRESS

MOV
BIC

001142

000002 001140
001140

R0) ;LOAD RMMR1
D
MUR ' DBEN,RMMR1(
#DM
#0,RMERT1(RO) =~ ;LOAD RMER1

;SET GO THEN uaxrs THE REGISTER SPECIFIED BY THE TABLE
:LOAD RMCS1
¢ST(RO)
MOV

041001

106214

213
308

:BRANCH IF RMR IS OK

*SAVE TEST REGISTER

:BRANCH IF ERROR SHOULD BE ONE

éG%VANCE TABLE POINTER, EXIT IF DONE

062702
005712
100401
000720
000410

000004

ADD

#4 ,R2

ggx

?8?

SEXIT IF ENTRY NEGATIVE

2008

:JUMP OVER TABLE

TST

408:

(R2)

%53gLE OF REGISTER ADDRESSES AND RMR VALUES

3666

3667 035212
3668 035212
3669 035214
3670
3671 035216
3672 035220
3673
3674 035222
36;2 035224
36
3677 035226
3678 035230
3679
3680 035232
3681
3682

055156
000001

.WORD

RMAS

;ATTENTION SUMMARY REG

000024
000000

.WORD
"WORD

RMMR1
0

:MAINTENANCE REG
‘RMR = 0

000006
000004

.WORD
"WORD

RMDA
RMR

:DISK ADDRESS REG
RMR = 1

177777
000000

LWORD
"WORD

=1
O

;END OF TABLE

000016
000000

"WORD

‘RMR = 0

:END OF TEST

200$:

"'ttltt.ttt'.'..tt""Q'tt"tt.ttittfit..ifiittttttttttttttttttt

tTEST 74

PGM STATUS CHECK

::.tttt'.tt.t...tt..t'tt".li'tt'.tlt.tt.ltttit'tttttt'tttttttt"

SEQ 0171

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-76
174

PGM STATUS CHECK

035232

000004

035236

012706

035234

000240

TST74:

NOP

MOV

001100

MOV
MOV
MOV

035242 013700 001276
035246 013701 001466
3683 035252 012737 000074 001226
3684
3685 035260

004737

055156

ggg; 035272

016037

000012

3686 035264 016037 000026 001174

3689
3690 035300
3691 035306

3692 035310

3693 035316

3694 035320
3695 035324
3696 035330
3697 035336

3683 035340

004000

001174

042737

176777

001142

001014

001410

005037
010037
062737
104215

001140
001136
000012

001100

004737
016037
042737
001006

055156
000000
173777

000240

012737
010037

g;gg 035422 104216

3722

15175:

012:06

3721 035464

RMDS (RO) _$BDDAT :STORE RMDS AT $BDDAT

8IC

#4CPGM,$BDDAT

CLR
MOV
ADD
EMT

$GDDAT
RO, $8DADR
, SGDADR
#RMDS
215

BEQ

;BRANCH IF PGM IS OFF

108

;END OF TEST

DVA/DPR STATUS CHECK

016037
042737
001011
012737
010037
062737
104217

004000
001136

:SCOPE CALL

SCOPE

NOP

MOV

MOV
MOV
MOV

035350 013700 001276
035354 013701 001466
035360 012737 000075 001226

3715 035440
3716 035442
3717 035450
3718 035454
3719 035462

RMDT (RO) ,$TMPO :STORE RMDT AT $TMPO

eX 222223232222 22322222227222322 33303323221 3833323213223333433323422232243+%;

035344

3711
3712 035424
3713 035424
371% 035432

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

;;ttttttttttttttttfitttt'ttt'ttttfitttttttttttttttttt'ttttttttttttt

000004

3707 035410
3708 035416

$BASE , RO
TSTQUE ,R1
#76,$TESTN

:LOAD THE STACK POINTER

;OMIT TEST IF DRQ IS ON - ELSE VERIFY THAT PGM IS OFF
#DRQ, $TMPO
BIT
:BRANCH IF DRQ IS ON
108
BNE

108:

035340

#STACK, SP

$BASE ,RO
TSTQUE,R?
#75,$TESTN

sLOAD THE STACK POINTER

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

:CLEAR AND VERIFY THAT DVA IS SET
0011
00N

001142
001142

000400
001136
000012

001140
001136

P C.CNT

8IC

#~CDVA,SBODAT

EMT

216

BNE
MOV
MOV

001140

000012
177377

JSR

MoV

FRY
8
ron

3703 035366
3704 035372
3705 035400
3706 035406

3720

MOV

LaTEST 75

035342

3701
3702

MOV

001134

3700

035340

#STACK,SP

:CLEAR AND READ DRIVE TYPE AND DRIVE STATUS
:GO CLEAR CONTROLLER
PC,CNTCLR
JSR

001142

032737

:SCOPE CALL

SCOPE

Hav CLEAR CONTROLLER

RHCS1(RO) $BDDAT’

sSTORE RMCST AT $BDDAT

108
#DVA, SGDDAT
RO, $8DADR

sBRANCH IF DVA IS ON

:VERIFY THAT DPR IS SET
108
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
MOV
#-CDPR, SBDDAT
BIC
20$
BNE
#DPR,$GDDAT
MOV
20, $BDADR
MOV
, SBDADR
ARMDS
ADD

EMT

208:

217

;END OF TEST

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JN-82 16:33:00 PAGE 13-77

SEQ 0172-1

PORT REQUEST TEST, PART i

176

R IT LI

3723

;*TEST 76

0356464

1ST76:

000004

035470

012706

001100

004737

054732

000240

035516 000402
035520

%;%9 035522

104000

3732
3733 035532
3734 035536

016002
042702

000040
037777

016002

000000

3741 035550
3742 035554
3743 035560
3744 035562

016005
032705
001415
016037

000012
001000

3746 035576

001006

3740

3745 035570

3747 035600
3748 035604
3749 035612

g;g? 035614

PC,SETVV

:GO SET VOLUME VALID

$BASE RO
TSTQUE ,R1
#76,STESTN
10%

;RO= UNIBUS ADDRESS
:R1_= POINTER TO DEVICE
:SET TEST NUMBER IN APT MAIL BOX
:BRANCH TO 108 IF NO ERROR

208

:EXECUTE A RELEASE TO RESET REQUEST FLuP

000013

%;%g 035544

JSR

012760

3737

;LOAD THE STACK POINTER

EMT

%;%? 035524

g;gg 035542

#STACK, SP

3728

3729 035524

MOV

MoV
MoV
MoV

000434

:SCOPE CALL

SCOPE

NOP

035474 013700 001276
035500 013701 001466
3724 035504 012737 000076 001226
3725 035512

PORT REQUEST TEST, PART 1

C
RRARARACN
ANANEN
AENRACACRCRCRO
ERANRA
TN NARARARARAAAAT
CIANANARRRRR

035464

035466

LALLLLLLLLL LA
ihbbibbb
b AL
A 2L L LA b b bhbibddbihhitdih

001024

042737
010037
062737
106220

000000

037777
001136
000040

MoV

GO,RMCS1(R0O)
!
#RLEASE

:LOAD RMCS1

sREAD RHHRZ AND SKIP TEST IF REQUEST FLOPS ARENT RESET
:STORE RMMR2 ATR2
(R0) ,R2
RMMR2
L
l‘c<RnA‘R08> R2
BIC
BNE

208

;READ RMCS1 TO SET REQUEST FLOP

MoV

RMCS1(RO) ,R2

:STORE RMCS1 AT R2

;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET

000040

f0s:

001142

MoV
8IT
BEQ
MOV

:STORE RMDS AT R5
RMDS (RO) ,R5
:SEE_IF_PGM IS SET
#PGM RS
:DONT TEST REQUEST IF PGM IS ZERO
208
:STORE RMMR2 AT $BDDAT
RMMR2 (RO) , SBDDAT

BNE

208

8IC

001162
001136
208:

MOV
ADD
EMT

#~C<RQA'RGB>, $BDDAT

RO, $BDADR
, SBDADR
#RMMR2
220

sBRANCH IF REQUEST IS SET

RE
ERARRANRARCY
NRAAR
ARANRAIRAAARAE
RAAAR
RN ELERRARNAAANNR
JIAARRARAA

3752

J*TEST 77

035614

RRRCARARCERAR
NRARAAREARAARRRRIN
AANRA
AR EENEERRANAANRA
JRRRAANARR

035614

000004

035620
035626

012706
013700

035616

000240

T77
001100
wvvicro

001466
035630 013701
012737 000077 001226

3753 035634

3754 035642

004737

035646 000402
035650

3755 035652

PORT REQUEST TEST, PART 2

104000

000435

054732

:SCOPE CALL

SCOPE

NOP

MOV
MOV

lSTACK SP
$BASE ,RO

;LOAD THE STACK POINTER
;RO= UNIBUS ADDRESS

MoV

#77,STESTN

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

JSR

PC SETVV

;GO SET VOLUME VALID

MOV
BR

EMT

TSTOUE R1
108

208

:BRANCH TO 103 IF NO ERROR

177

PORT REQUEST TEST, PART 2

3756

-EXECUTE A RELEASE TO RESET REQUEST FLOP

3757

3758 035654

gggg 035654
376

3762 035662
3763 035666

3764 035672

3766

3767 035674

3769
3770 035702
3771 035706
3772 035712

3773 035714

3774 035722
3775 035730
3776 035732
3777 035736

012760

000013

016002
042702

000040
037777

001025

012760

016005
032705
001415
016037

042737
001006
010037
062737

3778 035744 104221

177777

000000

MOV

#RLEASE !GO,RMCS1(R0)

BIC
BNE
000016

000040

001142

001136
000040

001136

RMMR2(RO) ,R2 _ ;STORE RMMR2 AT
M-C<ROA'REBS.R2
208

WRITE THE ATTENTION SURMARY REGISTER T0 SET REQUEST FLOP
#-1,RMAS(RO)

MOV

BIC
BNE
MOV
ADD

001142

EMT

RMMR2(RO),$BDDAT’

W*C<RQA!RGB>,SBDDAT
208
RO,SBDADR
WRMMR2,SBDADR

3781

Se 2322322223222z

SATEST 100

t51100:

000004

035752

012706

001100

575 035766

012737

000100

3783 035774

004737

054732

036002

104000

000240

035756 013700 001276
035752 013701 001466
036000 000402

001226

000435

3788 036006
379
3791 036014
3792 036020

016002
042702

000040
037777

012760

000000

016005

000012

3798

3799 036034

ASTACK,SP

;LOAD THE STACK POINTER

MOV

#100,STESTN

:;SET TEST NUMBER IN APT MAIL BOX

JSR

PC,SETW

EMT

SBASE,RD
TSTQUE,R!
108

RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
;GO SET VOLUME VALID

*BRANCH TO 108 IF NO ERROR

208

:EXECUTE A RELEASE COMMAMD TO RESET REQUEST FLOP

000013

379 036026

:SCOPE CALL

MOV

MOV
MOV

)

012760

3795

PORT REQUEST TEST, PART 3

SCOPE

NOP

3786

3793 036024

22232233 3223332228808 2022832222333 233322024414}

oeCARRRRPRRANANANRNRAARRAREANR RN RARRAARARARARRANRARAARANARAARR AR NEL

035746
035746

3787 036006

;STORE RMMR2 AT $BDDAT

221

208:

378 036004

;LOAD RMAS

;VERIFY THAT REQUEST FLOP IS SET IF PGM LS SET
;STORE RMDS AT RS
RMDS(RO),RS
MOV
SEE IF PGM IS SET
WPGM,RS
BIT
DONT TEST REQUEST IF PGM IS ZERO
208
BEQ

3779 035746

035750

:LOAD RMCS1

sREAD RMHRZ AND SKIP TEST IF REQUEST FLOPS ARENT gESET

000012
001000
037777

10s:

001025

3800 036040 032705 001000

000000

108:

MOV

WRLEASE'GO,RMCS1(RO)

;LOAD RMCS1

READ RMAR2 AND SKIP TEST If REQUEST FLOPS ARENT RESET
RMMR2(R0) ,R2 _ ;STORE RMMR2 AT R2
WAC<RQA!RGBS.R2
BIL
BNE

000006

208

;WRITE RMDA TO SET REQUEST FLOP

MOV

#0,RMDA(R0)

:LOAD RMDA

;VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET

MOV

BIT

RMDS(RO),RS

#PGM,RS

;STORE RMDS AT RS

“SEE IF PGM IS SET

-y

SEQ 0173

CZRNBAO RM80 DSKLS PT1 MACRO V04,00 14-JAN-82 16:33:00 PAGT 13-78

SEQ 0174

BEQ

MOV

&~
NN

ol
b

3803 036054
3804
062
3805 036064
3806 036070
3807 036076
3808
3809 036100

001415
016037
042737
001006
010037
062737
104222

[=3=4
(==)

3801 036044

—t el

PORT REQUEST TEST, PART 3

1100

BIC

MOV

ADD

001136

EMT

208

;DONT TEST REQUEST IF PGM IS ZERO

2
(RO) , $BDDAT’
RMMR

06C<ROA!R08>.SBDDAT
20%
RO, $BDADR
gggHRZ.SBDADR

;STORE RMMR2 AT $BDDAT

2 0s:

3810
3811

ttttt'ttt!ttttttt'tQQ"'*tt'tt'.tfifittttttttttttttt't'"t"'tt.t

tTEST 101

RELEASE TEST

::t'tt'ttttttttttttttttttt"tltttttQtttt.t.ttt*tt'.'t'it'.'t"t'.

TST101:

000004

013701

001100
001276
001466
000101

MoV

#STACK,SP

:LOAD THE _STACK POINTER

MoV

#101,STESTN

..SET TEST NUMBER IN APT MAIL BOX

MOV
Moy

001226

:SCOPE CALL

SCOPE

NOP

$BASERO
TSTQUE R1

= UNIBUS ADDRESS
RO
R1 POINTER TO DEVICE

;REQUEST FLOP SHOULD SET WHEN WRITTING RMCS1

[ G Putr uirYuirGutr

OV~

054732

JSR

PC,SETW

408

E:I

108

;GO SET VOLUME VALID

:BRANCH TO 10$ IF NO ERROR

15§§CUTE A RELEASE COMMAND
041001

000013
000002
141001
041001

000024
000024

037777

001174
001142
001142

004000

001174

000026
000040

MOV

000024
000000

MoV
MoV

MOV

MOV
DEC
BNE

#DMD
! DBEN ! MUR ,RMMR1 (RO) sLOAD RMMR1
;LOAD RM(S1
#2,R2

GO,RMCS1(RO)
!
#RLEASE

#DMD ! DBEN ! MUR ! DBCK ,RMMR1 (RO)
R2
208

:VERIFY REQUEST FLOPS ARE RESET

sISSUE 2 CLOCKS
:STORE RMDT AT $TMPQ

MOV

R%NT(RO) srnpo

BIC

zagcnoA'nos>seooAr

BIT

cggo.srnpo
#ROA,$BDDAT
408
#RQB,$BDDAT
408

MOV

100000

001142

BIT

040000

001142

BIT

;LOAD RMMR1

| (RO) ;LOAD RMMR1
| DBEN I MUR .RMMR
#DMD

RMMR2 (RO) . $8

s STORE RMMR2 AT $BDDAT

;BRANCH IF REQUESTS ARE RESET

sBRANCH IF SINGLE PO.T DEVICE
sBRANCH IF RQA IS RESET
:BRANCH IF RQB IS RESET

:DRQ IS ZERO AND A REQUEST FLOP IS ON, OR, DRQ IS ONE AND
“80TH REQUEST FLOPS ARE ON
010037
062737

$0s$:
001136

MOV

ADD

RO, $BDAD

SRMMR?, SBDADR

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-79

SEQ 0175 1

RELEASE TEST

3845 036266
3846 036270
3847
3848

104223

40$:

EMT

223

sEND OF TEST

':tttttttttt!tttttttt't't'ttttttt.tt.ttfi'Qi.ttfittt'tttt"tt""..

LeTEST 102

WRITE ATA TEST

AACN NS
RRAN
NN CARNACARARRRAAR
ANRNR
R AR AN EAANARANNRA
C e ANRANRARNN

036270
036270
036272
036274
036300
036304
9 036310

T$7T102:

000004

001100
001276
001466
000102

3850
3851 036316

012760
111102
042702
116203
042703
010360

055156
000001
000000
000000
001001

aggPE

MoV

MOV
Mov
MOV

001226

2SCOPE CALL

#STACK,SP

$BASE RO
TS1QUE R
#102,$TESTN

:LOAD THE STACK POINTER

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

;CLEAR THE DEVICE, SET DIAGNOSTIC MODE THEN SET UNIT READY
HOV

000024
000014
000042
000024

Mov
MOV
MOV

PC,CNTCLR
ADMD ,RMMR1(RO)

26O CLEAR CONTROLLER
:LOAD RMMR1

:LOAD RMER1
#0,RMER1 (RO)
#0,RMER2 (RO)
:LOAD RMER2
:LOAD RMMR1
! MUR , RMMR1 (RD)
#DMD

;WRITE rue ATTENTION SUMMARY REGISTER

ov8

exc

177770

MOV8B
BIC
MOV

(R1),.R2

#*CUNTMSK ,R2

ATNTBL(R2.R3
#~CATNMSK ,R3
R3,RMAS (R)

;ASSEMBLE THE ATA BIT IN R3

:LOAD RMAS

-READ RHDS AND VERIFY THAT ATA IS RESET
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BODAT

016037

BIC

#~CATA,$SBDDAT

MoV
ADD
CLR
EMT
BR

RO, $BDADR
, $BDADR
#RMDS
$GDDAT
224
208

BEQ

000417

:BRANCH IF ATA IS RESET

108

iSEAD RMAS AND VERIFY ATA IS RESET

016037

104225

MOV

EHAS(RO).SBDDAT ;STORE RMAS AT S$BDDAT

001142

BIC

R3,$8DDAT

001140
001136
000016

CLR
MoV
ADD

$GDDAT
RO, $8DADR
#RMAS
, $BDADR

000016

001142

)

BEQ

001136

208:

EMT

:BRANCH IF ATA IS RESET

20$

225

sEND OF TEST

tt't.Qttttt'tfifittttttttttttfitt.t.tttttt.t'tt.ttttttfit'ttltttttfi

tTEST 103

RESET ATA BY GO TEST

A RANRRARNANE AR RN RN

036472
036472

000004

t§r103:

SCOPE

A VR AR ARARARRANARARRARARACARARAARCAARARACARE

:SCOPE CALL

—

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-80

1103

RESET ATA BY GO TEST

036474

000240

036476

012706

001100

3888 036520
3889 036524

004737
012760

055156
000001

NOP

000024

3890 036532 012760 000000 000014
3891 036540 012760 000000 000042
3892 036546 012760 041001 000024
3894

3895 036554 012760 000001 000000
3896 036562 016037 000012 001142
3897 036570

3898 036576

3899 036600
3900 036604
3901 036610

042737

077777

005037
010037
062737

001140
001136
000012

001410

g%gmwm 104226

MOV

#STACK, SP

:LOAD THE STACK POINTER

JSR
MOV

PC,CNTCLR
#DMD,RMMRT (RO)

;G0 CLEAR CONTROLLER
:LOAD RMMRI

$BASE , RO
TSTQUE ,R1
#103,$TESTN

MOV
MOV
MOV

036502 013700 001276
036506 013701 001466
<887 036512 012737 000103 001226

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

LOAD RMER1
#0,RMER1 (RO)
RMER2
#0 RMER2 (RO)
#DMD ! MUR ' DBEN, anna1<no> :LOAD RMMR1

MOV
MOV
MOV

:WITH DEBUG CLOCK ENABLED, SET GO AND VERIFY THAT ATA IS RESET

#GO,RMCS1(RO) :LOAD RMCS?
RMDS (RO) , $BDODAT :STORE RMDS AT SBDDAT

MOV
MOV

#CATA, SBDDAT

8IC

001142

$GDDAT
RO, $BDADR
, SBDADR
ARMDS

CLR
MOV
ADD

001136

226

EMT

gggg 036620

108:

3906

. sPY R

:BRANCH IF ATA IS RESET

108

BEQ

;END OF TEST

;*TEST 104

s e 2222222223232 3232232332328 13232323242333223223 4223244343}
UNIT READY ATA TEST

. . tttttttttttttitttttttt'tttttttttttfittttttttttttttttttt'ttttttt'

036620

000004

036624

012706

036622

000240

75T104:

001100

036634 013701 001466
2007 036640 012737 000104 001226
3908

055156
000001

000024

3916 036702

012760

001 001

000024

3918 036716

042737

077777

001142

010037
062737
012737
104227

001136
000012
100000

3917 036710

3919 036724

3920 036726
3921 036732
3922 036740
3923 036746
3924

016037

001011

000012

001142

3926 036750

MOV
MOV

TSTQUE ,R1
#106,$TESTN

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

MOV
MOV
MOV

$BASE , RO

‘RO= UNIBUS ADDRESS

PC,CNTCLR
#DMD,RMMR1 (RO)

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

;G0 CLEAR CONTROLLER
:LOAD RMMRT

:LOAD RMER1
:LOAD RMER2
:LOAD RMAS

:SET UNIT READY AND VERIFY ATA IS SET
! MUR , RMMR1 (RO)
#DMD
Mov

MoV

#~CATA,SBDDAT

MoV
ADD

RO, $BDADR
#RMDS SBDADR

EMT

227

MOV

;LOAD

RMMR1

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

BIC

BNE

001136
001140

108

:BRANCH IF ATA IS SET

#ATA, $GDDAT

-CLEAR ATA, RESET UNIT READY, AND VERIFY ATA IS SET

3925

3927 036750
3928 036756

:LOAD THE STACK POINTER

JSR
MOV

3911 036660 012760 000000 000014
3912 036666 012760 000000 000042
gg}z 036674 012760 177777 000016

3915

#STACK, SP

:SET DIAGNOSTIC MODE AND CLEAR ATA

004737
012760

3009 036646
3910 036652

MOV

036630 013700 001276

;SCOPE CALL

SCOPE

NOP

012760
012760

177777
000001

000016
000024

10s:

MOV
MOV

#-1,RMAS(RO)
#DMD ,RMMR1(RO)

:LOAD RMAS
:LOAD RMMR1

-l
=1 Y]

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-81

SEQ 0176

SEQ 0177

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-82

3935 037022
3936
3937 037024
3938
3939

b b

P ¥

—d b

RMDS (RO) saooAr :STORE RMDS AT $BDDAT

MOV

RO, $BDADR
#RMDS ,SBDADR

ADD
MoV

EMT

gagATA,$BDDA
#ATA, $GDDAT
230

SEND OF TEST

2 0s:
AR

tTEST 105
TR

001100
001276
001446
000105

3940
3941

012760

055156
000001
000000
000000
177777
177777
000012

077777

104231

100000
001136
000012

AAAANAAANARCRCR TR R ERRNARRNNNARR RIS

LR AN ANRANNAAARRRER TR AR RRNANRANANR O

:SCOPE CALL

SCOPE

NOP
MOV
MOV
MoV
Mov

001226

ERROR ATA TEST

ENANRRRNANAA AR

T105

037024

3942 037052
3943 037056
3944 037064
3945 037072
3946 037100
3947
3948
3949 037106
3950 037114
3951 037122
3952 037130
3953 037132
3954 037140
3955 037144
3956 037152
3957
3958 037154
3959
3960

MOV

8IC
BNE

001136
000012
100000

3932 037002

OO
(=1}
—

000012
077777

3929 036764
3930 036772
3931 037000

[N ],8]

UNIT READY ATA TEST

[el=]
[=1=]
— el

1104

#STACK,SP
$BASE ,RO

LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

#105,$TESTN

::SET TEST NUMBER IN APT MAIL BOX

TSTQUE ,R1

:R1 = POINTER TO DEVICE

sCLEAR THE DEVICECANz RESET ATTEN&ION
000024

MOV
MOV
MOV
MOV

000016
n00014

CNTCLR
#DMD ,RMMR1(RO)

#0.RMER1(RO)
#0 RMER2(RO)
#-1,RMAS(RO)

CLEAR CONTROLLER
;LOAD RMMR1

:LOAD RMER1
:LOAD RMER2
:LOAD RMAS

sWRITE 0:53 IN ERROR REGISTER 1 AND VERIFY ATA IS SET

V01142
001142

MOV

001140

MOV
MoV
ADD

8IC
BNE

001136

EMT

#-1,RMERT(RO) _ ;LOAD
RMER1

RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT
{agATA,$8DDAT
#ATA,SGDDAT
RO, $BDADR
#RMDS
, $BDADR

231

;END OF TEST

0s:

Qt'ttttttttttttttt*tt'*tttttttttfittttttfi'ttt*t.fitttttt.'ttttt'i

tTEST 106

:;ttttttttttttttttttttttt't'ttttttttttt.ttt.t.ttttttttttttltttt.t

3961

037154
037154
037156
037160
037164
037170
037174

3962 037202
3963
3964
3965 037206

1ST106:

000004

012737

001100
001276
001466
000106

012702

037330

013701

001226

:SCOPE CALL

SCOPE

NOP
MoV
MOV
MOV
MOV
MoV

#STACK, SP

$BASE , RO
TSTQUE,R1
#106,STESTN

;LOAD THE STACK POINTER

*RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
LSSET TEST NUMBER IN APT MAIL BOX

#1008 ,R2

gggRCE COMPOSITE ERROR AND RESET ATA

SINITIALIZE TABLE ADDRESS

Y
Cda

)

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-83

1106

SEQ 0178

3966 037206
3967 037212
3968 037220
3969 037226
3970
3971
3972 037234
3973 037236
3974 037240
3975 037242
3976 037250
3977 037256
3978 037264
3979 037272
3980 037274
3981 037300
3982 037304
3983 037312
3984
3985
3985 037314
3987 037314
3988 037320
3989 037322
3990 037324
3991 037326
3992
3993
399¢ 037330
3995 037330
3996 037332
3997
3998 037334
3999 037336

004737
0

4001 037340
4002 037342
4003
4004 037344
4005 037346

4000

4006

012760

JSR

055156
000001
177777
127777

MOV
MOV
MoV

011203

MOV

ADD
CLR

MOV
BIC

MOV

CMP

BEQ
MOV
MOV
ADD

062737
104232

EMT

062702
005712

000004

:GENERATE REGISTER ADDRESS

RO5S
RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT
#*CATA, SBDDAT

2(R2) ,$GDDAT

$GDDAT,SBDDAT
108

:BRANCH IF ATA IS OK

R3,$TMPO
RO, $BDADR
#RMDS
, $BDADR

232

100401

000730
000410

ADD

#4 R2

ggl

ggs

;EXIT IF ENTRY MINUS

2008

:JUMP OVER TABLE

TST

20$:

(R?)

%532LE OF REGISTER ADDRESSES AND ATA BITS

_WORD

RMAS

000006
100000

.WORD
"WORD

RMDA
ATA

000000
000000

.WORD

RMCS1

127777
000000

WORD

000016
000000

~WORD

-WORD

~WORD

4009

4008

2222223233232 3 2322383232422 3233232232333 22838323

001100
)

012737

000107

012702

037540

222213422022 ]])

P SET ATA TEST

AR RNRRRANRARARNRNAARRNER
AR ARARARAERRAARNRRANRANANAAREAARARERARAY

1ST107:

000004

:END OF TABLE

;EnD OF TEST

SRTEST 107

4012 037402

R2) .R3

%ggvs TABLE POINTER - EXIT IF DONE

:
2008

4010
4011 037376

:GO0 CLEAR CONTROLLER
;LOAD RMMR
;LOAD RMER1
sLOAD RMAS

;WRITE THE TEST ?EGISTER AND VERIFY ATA

4007 037350

037350

PC,CNTCLR
#DMD ,RMMR1(RO)
#-1,RMERT1(RO)
#=1,RMAS (RO)

001226
108:

SCOPE
NOP

:SCOPE CALL

MOV
MOV
MOV

#STACK,SP

sLOAD THE STACK POINTER

MoV

$BASE RO
TSTQUE .R1
#107,$TESTN

MOV

#1008 ,R2

sINITIALIZE TABLE POINTER

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

Y
-

SEQ 0179

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-84
0

P SET ATA TEST

4013 037402
037406
037410
4014 037412
4015
4016
4017 037414
4018 037414
4019 037422
4020 037424
4021 037430
4022 037434
4023 037440
4024 037440
4025 037446
4026 037454
4027 037456

004737
2

054732

041001
000001
000000
000003
141007

041001

4046

4047
4048 037540

4049 037540
4050 037542
4051 037544
4052 037546
4053
4054

000024

305
000024
000024

508

20§

:60 SET VOLUME VALID

*BRANCH TO 208 IF NO ERROR

mov

#DMD 'MUR ! DBEN,RMMR1(R0) ;LOAD RMMR1

MOV
8IS
MOV
MOV

(R2) .R3
#G0,R3
R3,AMCST1(RO)
3.R3

Moy

#DMD 'MUR'DBEN!DBCK ,RMMR1(R0)

MOV
DEC
BNE

<GET FUNCTION CODE

;LOAD RMCS?

;LOAD RMMR1

(R0) :LOAD RMMR1
#DMD IMUR i DBEN.RMMR1
R3
308

:VERIFY THAT ATA IS SET
MOV
8IC
BNE

MOV
ADD

RMDS
(RO) ,$BDDAT ;STORE RMDS AT SBDDAT
#CATA,SBDDAT
408
RO, SBDADR
#RMDS ,$BDADR

MOV
EMT

(R2) .$TMPO
233

MOV

011237
104233

#ATA, $GDDAT

zG%VANCE TABLE POINTER-EXIT IF DONE

4039

4040 037524
4041 037524
4042 037530
4043 037532
4044 037534
4045 037536

PC,SETVV

§5§Ecurs THE COMMAND FROM THE TABLE

4028
4029
4030 037460

4031 037466
4032 037474
4033 037476
4034 037502
4035 037510
4036 037516
4037 037522
4038

JSR

22:

062702
005712
100401
000722
000403

000002

508:

ADD
ST

#2.R2
(R2)

200$

BM]
BR

508
108

;JUMP OVER TABLE

:TABLE OF FUNCTION CODES

100$:

000014
000016
177777

2008:

.WORD
"WORD

"WORD

OFFSET
RTC

-1

:END OF TABLE

:;tttttttttttttttttttttt*tttttt*ttfitfi*tlfittfitlt**t'tttttitttttttt

;«TEST 110

SET WLE TEST

:;tttttttttttt*ttttttttttitttfitttttfitttlfitttttttttttttltttitt*ttt

037546

4055
4056 037574
4057 037600

TST110:

000004

012737

001100
001276
001466
000110

012702

037770

001226
108:

sSCOPE CALL

SCOPE
NOP
MoV
MOv
MoV
MoV

#STACK,SP
$BASE ,RO

TSTQUE ,R1
#110,STESTN

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

MoV

#1008 ,R2

SINITIALIZE TABLE POINTER

LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-85

SEQ@ 0180

SET WLE TEST

110

4058 037600
037604
037606
4059 037610

004737
2

JSR

054732

B8R

EMT

4060
4061

308:

2(R2) ,R3

;GET WRITE PROTECT FROM TABLE

R3,RMMR1(RO)

;LOADRMMR1

#DMD
! MUR ! DBEN,R3’

R4
#G0,

MoV

#2.RS

#DBCK ,R3

BIC

#DBCK ,R3

MOV
DEC
BNE

000014
173777
000004

001142
001142
001142

000004
001136
000014
001174
000002

001140

R4 ,RMCS1(RO)

BIS

MOV

sSET OTHER MAINT BITS

;GET FUNCTION CODE FROM TABLE

:SET GO
“LOAD RMCS1
sRY-CLOCK COUNT
$SET CLOCK

R3,RMMR1 (RO)

:LOAD RMMR1

RS.RMHR1(R0)

;LOAD RMMRT

RS
308

:RESET CLOCK

sI5SUE 2 CLOCKS

SVERIFY THAT WRITE LOCK ERROR IS ACCORDING TO TABLE
MOV
BIC
CMP
BEQ
MOV
MOV
ADD
MOV
MOV
EMT
BR

001136
001176

000406

1
(RO) , SBDDAT
RMER
:STORE RMER1 AT $BDDAT
#*CWLE, SBODAT
4(R2),$BDDAT
408
sBRANCH IF WLE IS OK
4(R2) .$GDDAT
sSAVE DATA FOR ERROR MSG
RO, $BDADR
#RMER1, SBDADR
;$TMPO=FUNCTION CODE
(R2) ,$TMPO
:$TMP1=WRITE PROTECT
2(R2) ,$TMP1
234
508

iegVANCE TABLE POINTER TO NEXT FUNCTION CODE-EXIT IF DONE
062702
005762
100401

000006
000002

000705

ADD
ST
BM]
8R

#6,R2
2(R2)
50
108

sRFPEAT TEST

2008

:JUMP OVER TABLE

000416

508:

000060
000010
004000

;TABLE OF FUNCTION CODES, WRITE PROTECT AND WRITE LOCK ERRORS
:
1008
sWRITE DATA COMMAND
WD
WORD
:WRITE PROTECT ON
MwP
"WORD
:WRITE LOCK ERROR ONE
.WORD
WLE

e
D
b
b
b cmd
b wd end amd

508

BIS

MOV

000024

MOV

100000

4085 037722
4086 037726
4087 037734
4088 037740

and

MOV

BIS

000001
000000
000002

4080 037670
4081 037676
4082 037704
4,083 037712
4084 037714

4098

;GO SET VOLUME VALID
:BRANCH TO 208 IF NO ERROR

;LOAD Anoosxecurg gue EOHHAND FROM THE TABLE

4078
4079

4099 037766

208

000002
041001
000024

4066
4067
4068 037626
4069 037630
4070 037634
4071 037640
4072 037644
4073 037650
4074 037654
4075 037660
4076 037664
4077 037666

4095 037756
4096 037762
4097 037764

20§

-ENABLE DEBUG CLOCK AND SET WRITE PROTECT ACCORDING TO TABLE

4062 037612
4063 037612
4,064 037616
4065 037622

4089 037746
4090 037750
4091
4092
4093 037752
4094 037752

PC,SETW

000060
000000

MORD
-WORD

sWRITE DATA COMMAND
:MWP OFF
:WLE OFF

000070
000010

.MORD
"WORD

RD
MwP

sJREAD DATA COMMAND

000000

-WORD

P ON

CZRNBAQ RM80 DSKLS PT1 MACRO Vv04.00 14-JAN-82 16:33:00 PAGE 13-86
T110

M 14

SEQ@ 0181

SET WLE TEST

;WLE OFF

2}}2 040010

000000

.WORD

4115 040012

000020

.WORD

"WORD
-WORD

MWP

4119 040020
2}59 040022

000000
177777

.WORD
"WORD

-1

4116 040014
2}}; 040016

000010
000000

RIP

READ IN PRESET COMMAND

‘MWP ON
sWLE OFF

;END OF TABLE

:END OF TEST

2}5% 040024

2008 :

412('

2233 4R%231;]
2223832223333 2233432324
. e P332 2332223232222 22222223233333

S*TEST 111

040024

'tttttttttttttttttt*ttttt'tttwtttttttttttttt'ttttfittttttttttttt.

TsT111:

040026

000004

040030

012706

001100

(125 040044

012737

000111

040026

EXCEPTION TEST

000240

040034 013700 001276
040040 013701 001466

NOP

MOV

#STACK,SP

MOV

#111,$TESTN

MOV
MOV

001226

:SCOPE CALL

SCOPE

$BASE ,RO
TSTQUE ,R1

:LOAD THE STACK POINTER

*RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

*:SET TEST NUMBER IN APT MAIL BOX

4126

:WITH OCCUPIED SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN

4129

PAR, JF RUN AND GO IS SET

4132
4133
4134
4135

H
:
:
:

DCK
HCE
HCRC
FER

*EXCEPTION:

2}5;

:
:

4130
4131

2}%9

21§g 040052

012702

0PI

MOV

040324

4142 040056

004737

055156

4144 040070

042737

167777

010037
062737
005037
104235

001136
000024
001140

4151 040120

004737

054732

040126

104000

10s:

BIC

#*CREX,$BDDAT

MOV
ADD
CLR
EMT

208

RO, $BDADR
#RMMR1, $BDADR
$GDDAT
235

:BRANCH IF EXCEPTION IS ¢

JSR

PC,SETWV

;GO SET VOLUME VALID

4145 040076

BEQ

001410

040124 000402

001142

001136
208:

B8R

EMT

000474

4154

4155 040132

4156 040132

:GO CLEAR CONTROLLER

PC.CNTCLR

MOV

2}2; 040130

;INITIALIZE TABLE POINTER

JSR

4143 040062 016037 000024 001142

4146 040100
4147 040104
4148 040112
4149 040116
4150 040120

#1008 ,R2

sINITIALIZE AND VERIFY THAT EXCEPTION IS RESET

4140

4141 040056

RMR. IF RUN AND GO IS SET
ILR. IF RUN AND GO IS SET

RMMR1 (RO) , $BDDAT”

308

:STORE RMMR1 AT $BDDAT

*BRANCH TO 308 IF NO ERROR

608

-EXECUTE A WRITE DATA COMMAND TO SET OCCUPIED, RUN AND GO

012760

000000

000006

4157 040140 012760 000000 000034

308:

MOV

#0,RMDA (RO)

#0_RMDC (RO)

+1.0AD RMDA

*LOAD RMDC

4158 040146
4159 060154
4160 040162
4161 0460166
040166
4162 040174
4163 060202
4164 040206
4165

0
O

0O
0
0
O

6166

4167 040206
4168 040212

040220
4169 040224
040224
4170 040232
4171 0640240
4172 040242
4173 040246

4174 060250
4175 040254
4176 040262
4177 060266
4178 040274
4179 040300
4180 040302
418
182

4183 040304
4184 040304
4185 040310
4186 040314
4187 040316
4188 040320
4183 040322

004777

016037
042737

061001
000061
000002

000024
000000

141001
041001

000024
000024

001534

000024

001142

Mov

#2,R3

MOV

#DMD 'MUR ! DBEN!DBCK ,PMMR1(RO)

BNE

408

MoV

40%:

ggg

MOV
MOV

JSR

45%:

MOV

BIC
BNE
TST
BNE
JSR
MOV
MOV
ADD
MOV
EMT
BR

001142

001534
141264
010000
001136
000024
001174

! MUR ! DBEN ,RMMR 1(RO) ;LOAD RMMR1
#DMD

#dD ! GO,RMCST(RO)

:LOAD RMCS1

;LOAD RMMR1

:gno'nun'ossn_RMMRT(RO) ;LOAD RMMR1
;ISSUE 2 CLOCKS

:LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET

000014
000200
141312
167777

MOV

001140

001136

000407

(R2) ,RMER1(R0O)
#200,WATCH

PC,aCLOCK

;LOAD RMER1
:SET WATCHDOG TIMER VALUE

sSTART THE CLOCK

;STORE RMMR1 AT $BDDAT

RMMR1 (RO) , $BDDAT

#~CREX,SBDDAT
508
WATCH
45$
PC.aSTOPCL
#REX,SGDDAT
RO, SBDADR
1, SBDADR
#RMMR
(R2) ,$TMPO
236
60$

:HAS CLOCK EXPIRED ??
*NO - TAKE ANOTHER SAMPLE
*STOP THE CLOCK

§32VA~ce TABLE POINTER-EXIT IF DONE
004777
062702
005712
001401
000656
000402

JSR

141230
000002

ADD

#2.R2

:STOP THE CLOCK

(R2)

BEQ

60S

2008

B8R

60$:

PC,aSTOPCL

108

:JUMP OVER TABLE

;PRESENTLY, THE TABLE HAS ONLY ONE ENTRY, THE TEST USING RMR. THE
:TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF
:A HARDWARE CHANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR

iggg:sren 1 WITH GO SET.

4195 040324
4196 040324
4197
4198 040326
4199 040330
4200
4201

000004

000000

2008:

.WORD

RMR

.WORD

:RMR IS CAUSED BY HARDWARE
:END OF TABLE

‘END OF TEST

ttttttttttttttttl [ 2 2222222323222233232322233137133233233283832332333334]

SRTEST 112

RECALIBRATE TEST

: ; tttstttttltttttttttttt'tittttttttlfittttttfi!tt'tt'ttttttttfittttt

040330
060330

040350

tst112:

000004
001100
001276
001466
000112

582”5

MOV

lSTACK.SP

MoV

#112,$TESTN

MOV
001226

;SCOPE CALL

MOV

$BASE , R0

rsroué R1

:LOAD THE STACK POINTER

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

- 20

—y

SEQ 0182

CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-87
"
EXCEPTION TEST

CZRNB AO RM80 DSKLS PT1 MACRO
TM P4
RECALIBRATE TEST

V04.00 14~JAN-82 16:33:00 PAGE 13-88

4202
4203
4204

JSR

054732

EMT

JMP

041664

4207 040366
4208
4209
4210 040372
4211 0460372
4212 040400
4213 040406

4217 040422
4218 040426
040426
4219 0640434
4220 040442

041001
000000
000000
000007
012702

000024

MOV

MOV
MoV
MoV

000000

041001

000024
000024

040001

000024

140001
040001

000024
000024

000014
157777

001142
001142

020000
001136
000014

001140

040546

001124

000002

4230
4231

4247
4248 040562
4249 040562
4250 040570
4251 040576
4252 040604

10$

;60 SET VOLUME VALID
:BRANCH TO 10$ IF NO ERROR

3308

104241

012737

'MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#DMD

#0,RMER1(RO) = ;LOAD ansa1
#0,RMER2 (RO)
:LOAD RMER?2
sLOAD RMCS1
' GO,RMCS1 (RO)
#RECAL

;STEP CO:gOND SEOUENSER TO RECAL COM (2 CLOCKS)

000002
141001

4222
4223
4224 040446
4225 040454
4226 040460
040460
4227 040466
4228 0460474
4229 040476

4?4

PC,SETWV

. E NABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

208:

MOV

#DMD 'MUR 'DBEN!DBCK ,RMMR1(R0)

DEC
BNE

R2
20$

MOV

4221 040444

4232 040500
4233 040506
4234 040514
4235 060516
4236 040524
4237 040530
4238 040536
4239
4240 040540
4241
4242
4243 040546
4244 040546
040552
040554
4245 040556

SEQ 0183

;VERIFY THAT OP] SETS IF UNIT READY DROPS AFTER DECODE
004737

4214 060414
4215
4216

;LOAD RMMR1

#DMD 175 ' DREN.RMMR (RO) :LOAD RMMR1

:DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)
30

! DBEN, RMMR1 (R0)
#DMD
#2,R2

mov
MOV

;LOAD RMMR1
BCK ,RMMR1 (RO)
! DBEN !
#DMD
:LOAD RMMR1
| DBEN . RMMRT (RO)
#DMD

DEC
BNE

R2
30$

;VERIFY THAT OPI IS SET
RMERT (RO) , $BDDAT
MOV

001136

40$:

RMMR1
;LOAD

MOV
MOV

BIC
BNE
MOV
MOV
ADD
EMT

#-COPI,$SBODAT
408
. $GDDAT
#OP]
RO, $BDADR
#RMER1, SBDADR
241

MOV

#508, SLPERR

:STORE RMER1 AT $BDDAT

:CHANGE LOOP ON ERROR ADDRESS

égggxrv THAT RECALIBRATE ABORTS DURING EXECUTION
004737

054732
041664

JSR
gzr

PC,SETVV
60§

JMP

3308

:GO SET VOLUME VALID
*BRANCH TO 608 IF NO ERROR

85§ABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND
041001
000000
000000
000007

MoV

MOV
MOV
MOV

'MUR ' DBEN,RMMR1(RO) :LOAD RMMR1
#DMD

#0,RMER1(RO) ~ :LOAD RMER1
#0 RMER2(RO)
:LOAD ansnz
sLOAD RMCS1
#RECAL'GO,RMCS1(RO)

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-89
1112

€15

SEQ 0184

RECALIBRATE TEST

4253

6254

4255 040612

012702

000003

4257 0640616

012760

141001

4259 040632

005302

4256 040616

;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)

000024

70%:

4262

001370

000024

z%gz 040636

012760

4265
4266 040644

012702

000002

060650

012760

141101

000024

4271 040670

016037

000000

001142

4268 060656
4269 040664
4270 040666

4272 040676
4273 040704
4274 040706
4275 040712
2%;9 040716

2%;8 040720

012760
005302
001370

041101

042737
001405
010037
005037
106242

177776

012737

4281 040726
040734

4287 040742
4288 040750

040726

004737

001124

MoV

708

#DMD ! MUR ! DBEN ! MDF ,RMMR1 (R0)

90S$:

#DMD ! MUR ! DBEN ! MDF ! DBCK , RMMR1 (RO)

MoV
DEC
BNE

#DMD ! MUR ! DBEN ! MDF ,RMMR1 (RO)
R2
80s

8IC
BEQ
MoV
CLR
EMT

#~CGO,$BDDAT
90%
RO, $BDADR
$GDDAT
242

Mov

#1008 ,SLPERR

MOV

104000

000137

:
1008

054732

JSR

EMT

JMP

041664

;LOAD RMMR1

RMCS1(RO) ,$BDDAT

;LOAD RMMR1

;LOAD RMMR

:STORE RMCS1 AT $BDDAT

:CHANGE LOOP ON ERROR ADDRESS

PC,SETW

1108

;GO SET VOLUME VALID

*BRANCH TO 1108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

012760
012760

041001
000000

000017

4295 040776

012760

141001

000024
000014

4297 041012

005302

000024

4296 041004 012760 041C01 000024

4300

80$:

001136
001140

012702

2533 041014

MoV

001142

4289 040756 01c 60 000000 000042
253? 040764 012760 000007 000000

4292
£293 040772
4294 040776

sSET DRIVE FAULT TO CAUSE ABORT CON"I1TION

000024

4285

4286 040742

DEC

:LOAD RMMR1

| MUR i DBEN,RMMRT (RO) ;LOAD RMMR1
#DMD

:VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR

040732 000403

2532 040736

#DMD ! MUR ! DBEN ! DBCK ,RMMR1 (R0)

;STEP 2 CLOCKS AND VERIFY GO IS RESET
#2,R2
Mov

4280

4282 040726

MoV
BNE

041101

4267 040650

#3.R2

MoV

4258 040624 012760 041001 000024

2%2? 040634

Mov

001370

4301 0641016

016037

4303 041032
4304 041034
4305 041040
4306 041046

001011
010037
062737
012737

000014

001142

4302 0641024 042737 157777 001142
001136
000014
020000

001136
001140

110s:

MoV
Mov

MoV
MoV

! MUR ! DBEN ,RMMR1 (R0O) ;LOAD RMMR1
#DMD
sLOAD RMER1
#0,RMER1(RO)

#0,RMER2 (RO)
:LOAD RMER2
;LOAD RMCS1
URECAL'GO RMCS1(RO)

;STEP THE COMMAND SEQUENCER
MoV
#5. ,R2
1208:

MoV

#DMD ! MUR ! DBEN ! DBCK ,RMMR1(R0)

:LOAD RMMR1

MoV

| MUR i DBEN,RMMRT (RO) ;LOAD RMMR1
#DMD

BNE

1208

DEC

sVERIFY THAT OPI IS SET

MoV

RMER1(RO), SBDDAT

BNE
Mov
ADD
MoV

1308
RO, $BDADR
#RMER1,$B8DADR
#0P1,$GDDAT

8IC

#COPI,$B0D

:STORE RMER1 AT $BDDAT

112

RECALIBRATE TEST

2307 041054

104243

4309 041056

012737

4310

041064

001124

1308:

EMT

243

MoV

#1508,SLPERR

;CHANGE LOOP ON ERROR ADDRESS

gggxrv ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS)
004737

054732

JSR

PC,SETWV

JMP

3308

Efir

041664

1608

;60 SET VOLUME VALID

*BRANCH TO 1608 IF NO ERROR

1%828LE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND
041401
000000
000000
000007

Mov
MoV

000024
000024

001370
4331 041154
4332 041162

012760
012760

041001
0461401

4335 041170
4336 041174
4337 061174
4338 041202
4339 041210
4340 041212
434

012702

000003

012760

141401
041401

4350
4351 041254
4352
4353
4354 041262

4355 041262
041266

000024
000024

104244

012737

:LOAD RMMR1

#0,RMER2 (RO)
:LOAD RMER2
;LOAD RMCS1
#RECAL !GO,RMCS1(RO)

MoV

#M3..R2

MOV

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

ggg

ggno'nua'oeen'nnc,RMMRT (RO)

BNE

1708

:LOAD RMMR1

;LOAD RMMR1

:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER

MOV
MOV

oono'nua-oseu‘nnna1<no> ;LOAD RMMR1
:LOAD RMMR1
! MUR i DBEN {MOC, RMMR1 (RO)
#DMD

;STEP cu:gcno seogengen T0 SET ATTENTION (3 CLOCKS)
000024
000024

:
1808

001370
016037

#DMD ! MUR ! DBEN!MOC,RMMR1 (R0O)
:LOAD RMER1
#0 ,RMER1(RO)

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)

000015
141401
041401

MoV
MoV

000024
000014
000042
000000

000012
077777

001142
001142

100000
001136
000012

001140

041262

001124

MOV

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

ggg

:gno'nua'oeen'noc.RMMRT (RO)

BNE

1808

;LOAD RMMR1

:LOAD RMMR1

sVERIFY ATA IS SET
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
Mov
#4CATA,SBDDAT
8IC
1908
BNE

001136

1908:

MOV
MoV
ADD
EMT

#ATA,SGDDAT
RO, $BDADR
#RMDS
, $SBDADR
2644

MoV

#2008 ,SLPERR

;CHANGE LOOP ON ERROR ADDRESS

:VERIFY THAT RECALIBRATE ABORTS AFTER EXECUTION DURING WAIT LOOP

004737
000402

104000

000574

054732

2008

JSR

B8R

EMT

PC,SETVV

2108

;60 SET VOLUME VALID

‘BRANCH TO 2108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

e
&

SEQ 0185

CZRNBAO RMBO DSKLS PT1 MACRO VO04.00 14=-JAN-82 16:33:00 PAGE 13-90

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-91

SEQ 0186

RECALIBRATE TEST

041401
000000
000000
000007

2108:

041001

000024

000007

012760

141001
041001

000024
000024

MOV

#3..R2

MoV

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

ggg

:gnosnua!osensnoc.nnnni(Ro>

BNE

2208

MOV

000000
177776

001142
001142

000001
001136

001140

230$:

:LOAD RMMR1

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

MOV

#DMD 'MUR 'DBEN!DBCK ,RMMR1(R0)

DEC
BNE

R2
2308

MOV

001370

104245

sLOAD RMCS1

;STEP co:gcno seausnssn THROUGH WAIT LOOP (7 CLOCKS)

012702

016037
0642737

#RECAL !GO, RMCS1 (RO)

:LOAD RMMR1

:DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0

BIC
BNE
MOV
MOV

EMT

;LOAD RMMR1

(RO) ;LOAD RMMR1
#OMD | MUR | DBEN.RMMR

;VERIFY THAT GO IS STILL SET
RMCS1(RO) , SBDDAT
MOV

;STORE RMCS1 AT $BDDAT

#CGO, SBDDAT
2408
#GO, SGDDAT
RO, $BDADR

2.t

éiSI.SEEK INCOMPLETE ERROR
041201

012702

000003

012760

141201
041201

000024

2505
000024
000024

. RMMR1(R0)
#DMD 'MUR'DBEN'MSER

:LOAD RMMR1

001124

MOV

#3.R2

mov

#DMD ! MUR ' DBEN !MSER ! DBCK ,RMMR1 (RO)

ggg
BNE

MOV

104246

012737

mov

:STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)

012760

—

4396 041442
4397 041446
041446
4398 041454
4399 041462
4400 041464
4401 0461466
4402 041474
4403 041502
4404 041504
4405 041510
4406 041514
4407
4408 041516
4409
4410
04 15
44611 041524
15
4612 041524
04 1530

000024
000024

001370

012760

#DMD ' MUR ! DBEN 'MOC ,RMMR1 (RO)
#0,RMER1(RO) = ;LOAD RMER]
#0°RMER2(RO)
:LOAD RMER?2

:STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)

puururd

4370 061344
4371 061346
4372
4373
4374 041350
4375
4376
4377 041356
4378 041362
4379 041362
4380 041370
4381 041376
4382 041400
4383
4384
4385 041402
4386 041410
4387 041416
4388 041420
4389 041426
4390 061432
43N
4392
4393 041434
041434

MOV

2208

000015
141401
041401

MOV
MOV
MOV

000000

[=]=]
[=l=]

TMm

2608:

zonosnunsoeensnsea.nnnni(Ro>
2508

:STORE RMCS1 AT $BDDAT

RMCS1(RO) , SBDDAT

BIC
BEQ
MOV
CLR
EMT

#~CGO,$BDDAT
2608
RO, $BDADR
$GDDAT
246

MOV

#3008,SLPERR

:LOAD RMMR1

:CHANGE LOOP ON ERROR ADDRESS

§XS§"' THE TAG BUS DURING RECALIBRATE
004737
000402

054732

JSR
B8R

PC,SETW
3108

:G0 SET VOLUME VALID
*BRANCH TO 3108 IF NO ERROR

€2 quAO RM80 DSKLS PT1 MACRO
n
RECALIBRATE TEST

041532
4413 041534
4414
4415

EMT

104000

000453

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

;LOAD RMMR1

#0,RMER1(RO) =
#O.RMER2(RO)

:LOAD RMER1
:LOAD RMER2

MOV

#4008, R2

:INITIALIZE TABLE POINTER

#RECAL ' GO,RMCS1 (RO)

:LOAD RMCS1

§¥§§1rv TAG BUS ACCORDING TO TABLE

4423
4624 041572
041572
4425 041600
4426 041606
4427 041612
4428 041614
4429 041620
4430 041624
4431 041632
4432 041634
4433

000040
150000
001142
001140
001136
000040

MoV

BIC
CMP
BEQ
MOV
MOV
ADD
EMT

001136

RMMR2 (RO) , SBDDAT

$BDDAT
RQB'
TST,
#ROA'
(R2) .$BDDAT
3208
(R2) .$GDDAT

;STORE RMMR2 AT $BDDAT

RO, $8DADR
, SBDADR
#RMMR2
247
3308

Ssgxencs TO NEXT ENTRY IN TABLE-EXIT IF DONE

634

4448 041666
4449 041670
4450 041672
4451 041674
4452 041676
4453 041700
4454 041202
4455 041704
4456 041706
4457 041710
4458 041712
4459 041714
4460 0461716
4461
4462 041720
4463
4464 041722
4465
4466

mov

MOV
MOV

MOV

061666

4432

4446
4447 041666

3308

égggeLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

4416 041536
4617 041536
4418 241544
4419 041552
4429 041560
4421 041566

4435 041636
4436 041636
4437 041642
4438 041644
4439
4440
4441 041646
4442 041654
4443 041662
444k 041664
4445

SEQ 0187

V04.00 14-JAN-82 16:33:00 PAGE 13-92

062702
005712
100407
012760
012760
000743
000416

000002

ADD
TS
BMI

000024
000024

#2.R2
(R2)
3308

:EXIT IF ENTRY NEGATIVE

:STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION
MOV

3308:

#DMD ! DBEN ! MUR MOV { DBCK ,RMMR1 (RO)

ggv

g?gg!ossnznunznoc,annai(RO)

B8R

5008

:LOAD RMMR1

:JUMP OVER TABLE

isegLE OF TAG BUS CONTROL AND BIT VALUES
001777

.gggg

};;;

:BUS BITS AT HIGH IMPEDANCE STATE

"WORD

CC!CH'BBO6

:CONTROL BITS ENABLED, BIT 6 ON

001777

"WORD
"WORD
.WORD
+WORD
-WORD
.WORD
.WORD
.WORD
.WORD
MWORD

177777

MWORD

(CiCH!BBO6
TAG'CC!CH!BBO6
TAG!CC!CH!BBO6
TAG!CC!CH'BBO6
TAG!CC!CH'BB06
TAG!CC!CH'BB06
TAG!CC!CH'BBO6
CC!CH'BBO6
CC!CH!BBO6

;TAG COMES ON

:TAG GOES OFF

1777

;CONTROL BITS DISABLED

-1

JEND OF TABLE
:END OF TEST

500$:

. :Qti't"tt'fitt'fifitfifit't"tt"'lfiit.tt.'...t.t.i.' (1228221333122 312%

;eTEST 113

SEEK TESTY

AO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-93

SEQ 0188

SEEK TEST

2232322223232 2222 2R

[ X1

TST113:
001100
001276
001466
000113

RS2

gggPE

$BASE, RO
TSTOUE R1
M3, STESTN

MOV
MOV
MOV

R dddldididddiiaiiill]

:SCOPE CALL

#STACK,SP

MOV
00126

222

LOAD THE STACK POINTER

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

:VERIFY THAT OP] SETS IF UNIT READY DROPS DURING COMMAND EXECUTION

4471 041750
041754
041756
4472 041760

054732

JSR
E:T

PC,SETVVY
108

043400

JMP

3308

;60 SET VOLUME VALID
BRANCH TO 108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

iequESS

4676 041764
4477 0461764

041001
000000
000000

4478 061772
4479 042000
4480 042006
4481 (42014
4482 042022
4483
448%

4485 042030

4486 042034
~ 042034
4487 062042
4488 042050
4439 042052

000005

012702

000024
000006
000034
000014
000042
000000

000024
000024

4L49(C

000024

140001
040001

000024
000024

450

4508 042146
4509
4510

104250

012737

~NO
WO
N
NS

4496 042102
4497 042104

040001
000002

001142
001142

Q
QO
Q

4491
4492 042054
4493 042062
449% 042066
042066
4495 042074

001140

001136
000014

062154

MoV

#DMD !MUR ! DBEN,RMMR1(RO) ;LOAD RMMR1

Mov
MOV
Mov
MoV

sLOAD RMDC
#0.RMDC (RO)
:LOAD RMER1
#0.RMER1 (RO)
#0,RMER2 (RO)
:LOAD RMER2
sLOAD RMCS1
#SEEK !GO,RMCS1(RD)

MOV

#0,RMDA (RO)

sLOAD RMDA

sSTEP CO:SOND SEOUENSER TO SEEK COM (2 CLOCKS)

000002
141001
041001

AND LOAD SEEK COMMAND

20$:

MOV

#DMD 'MUR ! DBEN!DBCK ,RMMR1(RO)

:LOAD RMMR1

ggg

zono'nun'oaeu.RMMRI (RO) ;LOAD RMMR)

BNE

208

:DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)
MOV

30s:

MOV

MOV
DEC
BNE

! DBEN ,RMMR1 (RO)
#DMD
#2,R2

BCK , RMMR1 (RO)
! DBEN !
#DMD

i DBEN . RMMRT (RO)
#DMD
R2
30$

sVERIFY THAT OPI ]S SET
RMER1(RO),SBDDAT
MOV

BIC

#~COPI, $SBODAT

Mov
MOV
ADD

#0PI ,SGDDAT
RO,$BDADR
#RMER1,$BDADR

MoV

#508 ,SLPERR

BNE

01136

001124

EMT

40$:

:LOAD RMMR1

;STORE RMER1 AT $BDDAT

408

250

:CHANGE LOOP ON ERROR ADDRESS

JVERIFY THAT SEEK ABORTS DURING EXECUTION

508:

0564732
043400

PC,SETVV

JSR
BR
EMT
JMP

60$

;60 SET VOLUME VALID

*BRANCH TO 60S IF NO ERROR

3308

\fl\h&bbg
o
ONOO

NN—‘?N\I\J
(e J1]
oON

NN
NIPOAIN)
= = b

éG%DRESS.
041001
000000

000005

141001
041001

4538 (2272
ve2272

4539 042300
4540 042306
4541 042310
4542 042312
4543 042320
4544 042326
4545 042330
4546 042334
4547 042340
4548
4549 042342
4550
4551
4552 042350
4553 042350
042354

012702

000002

012760

1641101

041101
000000
177776

104251

012737

000024
000024

:
708

#0,RMER1 (RO)
#0 ,RMER2 (RO)

sLOAD RMDA
cLOAD RMDC

;LOAD RMER]
:LOAD RMER2

#SEEK!GO,RMCS1 (RD)

;LOAD RMCS1

000024

#DMD 'MUR'DBEN!DBCK ,RMMR1(R0)

MOV
MoV

:LOAD RMMR1

:gnoznun!oasn.nnnni(RO) ;LOAD RMMR1

DEC
BNE

70s

sSET DRIXSVFAULT TO CAUSE ABORT CONDITION

#DMD ! MUR ! DBEN ! MDF ,RMMR1(R0)

;LOAD RMMR1

sSTEP 2 CLOCKS AND VERIFY GO IS RESET
000024
000024

80$:

001142
001142

001124

MOV

2.R2
[4

MOV
MoV
DEC

;LOAD RMMR1
#DMD ! MUR ! DBEN ! MDF ! DBCK ,RMMR1 (RO)
;LOAD RMMR1
:gflD!HUR!DBEN!HDF.RHHR1(RO)

MOV

RMCS1(RO) ,$BDDAT

80s

BNE

#*CGO,$BDDAT

BIC
BEQ
MOV
CLR
EMT

001136
001140
062350

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

;STEP THSOSOH"AND SEgUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)

001370
041101

#DMD ! MUR ! DBEN ,RMMR1(R0O) ;LOAD RMMR1

Mov
MoV
Mov
MoV
MoV
Mov

000000

000003

012760
4536
4537 042266

000024
000006
000034

AND LOAD SEEK COMMAND

90$:

:STORE RMCS1 AT $BDDAT

90%
RO, $8DADR
$GDDAT

251

#1008, SLPERR

MOV

sCHANGE LOOP ON ERROR ADDRESS

:VERIFY OP] SETS IF Onk CYLINDER LATCH DOESNT CLEAR

004737
000403

054732

000137

043400

104000

100s:

PC,SETWV

JSR
BR
EMT
JMP

1108

:G0 SET VOLUME VALID

*BRANCH TO 1108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
:ADDRESS,

041001

000000

000024
000014

1108

AND LOAD SEEK COMMAND

R1 :LOAD RMMR1
#DMD ! MUR ! DBEN,RMM(R0O)

#0,RMDA (RO)

MoV

#0.RMDC (RO)
#O.RMER1(RO)

:LOAD RMDA

*LOAD RMDC
:LOAD RMER?

wnX

gooo
X
S v:
h‘!g
m

004737

oo
— e ek d d

(=]

~NOWNESW
OO0 NON VNN
— OV

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

RRRRRRY

»
[

N —»

W
He

(9, 1V, ]

£H oL

22 2 2L 2k 2kl hd bl Al b

N ViV
[p¥] NORIALNININIMNON) ) b b b i eh e

Ednd

-0

4530

SEQ 0189

SKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-9¢4

SEQ@ 0190

SEEK TEST

4563 042414

012760

000000

4566
4567 042430

012702

000017

4569 042634

012760

141001

4571 042450

005302

4568 0426434

000024

1208:

001136

4580 042504
4581 042512

012737
104252

020000

zggz 042514

012737

042522

001124

4586 042522

004737

042526 000403
042530

zggg 042532

1208

RMER1(RO) ,$BNDAT

BIC

#2COPI1,$BDDAV

ADD

NRMER1, $BDADR

MOV

#1508, SLPERR

1308
RO, $BDADR

BNE
MOV

#OPI,SGDDAT
252

MOV
EMT

1308:

:STORE RMER1 AT $BDDAT

:CHANGE LOOP ON ERROR ADDRESS

-VERIFY ATA SETS IF DRIVE COMPLETES SEEK (ON CYLINDZR SETS)

4587 042522

MOV

001142
b

157777

4579 042476 062737 000014
4582

DEC

:LOAD RMMR1

i MUR i DBEN,RMMRT (RO) ;LOAD RMMR1
#DMD

sVERIFY THAT OP] IS SEY

&SN
oo

042737

001142
—t

001011
010037

4576 0626462

000014

—

4577 042470
4578 042472

#DMD ! MUR ! DBEN ! DBCK ,RMMR1(R0)

BNE

016037

MoV

001370

4575 042454

;LOAD RMCS1

;STEP THE COMMAND SEQUENCER
mov
#15.,R2

(==
QO

4574

:LOAD RMER2

#SEEK!GO,RMCS1(RD)

Mov

4570 0426442 012760 041001 000024

2%;% 042452

#0,RMER2(R0)

Mov

000042

zggg 062622 012760 000005 000000

104000

000137

1508

054732

PC,SETVV

JSR

1608

B8R

EMT

*BRANCH TO 1608 IF NO ERROR

3308

JMP

043400

;G0 SET VOLUME VALID

4590

;ENABLE DEBUG CLOCK. LOAD CYLINDER, TRACK AND SECTOR

4592 042536

1608:

4591

*ADDRESS,

4593 042536

012760

041401

000024

4595 042552
4596 042560
4597 042566
2233 042574

012760
012760
012760
012760

000000
000000
000000
000005

000034
000014
000042
000000

4601 042602

012702

000015

062606

012760

141401

4604 042622
2232 042624

005302
001370

4594 042544

4600

4602 042606

012760

000000

000006

AND LOAD SEEK COMMAND

;LOAD RMMR1

MOV

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

MOV
MOV
MOV
MOV

#0 RMDC (RO)
*LOAD RMDC
:LOAD RMER!
#O RMER1(RO)
#O RMER2(RO)
:LOAD RMER2
;LOAD RMCS1
1 (RD)
#SEEK !GO, RMCS

MOV

#0,RMDA (RO)

:LOAD RMDA

:STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)
000026

:
1708

MOV

#13. .R2

MOV

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

DEC
BNE

R2
1703

MOV

4603 0462614 012760 041401 000024

T (RO)
#DMD i MUR i DBEN MOC , RMMR

:LOAD RMMR1

4607

:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER

4611

:STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS)

4608 042626 012760 041001 000024
2293 042634 012760 041401 000024
4612 062642
4613 042646

012702

000003

4614 042646

012760

141401

4616 042662

005302

000024

4615 042654 012760 041401 000024

MOV
MOV

1808:

oono'nua'osenfnnna1<no> :LOAD RMMR1
:LOAD RMMR1
| MUR i DBENMOC,RMMR1 (R0)
#DMD

MOV

#3.R2

MOV

! DBCK ,RMMR1(RO)
#DMD ' MUR { DBEN'MOC

DEC

MOV

#DMD i MUR i DBEN MOC . RMMRT (RO)

:LOAD RMMR1

-4

CIRNBAO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-95

1113

SEEK TEST

22}% 042664
4619

4620 042666
4621 042674
4622 042702

BNE

001370

016037
042737
001011

000012
077777

001142
001142

4623 042704
4626 042712
4625 0642716
4626 042724

012737
010037
062737
104253

100000
001136
000012

001140

22%3 042726

012737

0427346

001126

4627

1908:

MoV
8IC
BNE

Mov
MoV
ADD
FMT

RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#2CATA,SBDDAT
1908
#ATA,SGDDAT
RO,$BDADR
, $BDADR
#RMDS
253

MOV

#2008, SLPERR

;CHANGE LOOP ON ERROR ADDRESS

.VERIFY THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP

4632 042734

004737

042742

104000

042740 000403

2232 042744

;VERIFY ATA IS SET

001136

4630

4631 042734

180%

000137

2008:

054732

JSR

EMT

JMP

043400

PC,SETWV

210s

:GO SET VOLUME VALID

‘BRANCH TO 2108 IF NO ERROR

3308

4635

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

4637 042750

2108:

*ADDRESS

4636

4638 062750
4639 0462756
4640 042764

4641 042772
4642 0643000
zgzz 043006

4645

8 1 2760

12760

041401

000000

012702

000015

4648 043020

012760

141401

4650 043034
22;} 043036

005302
001370

;LOAD RMMR1

Mov

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

MoV

;LOAD RMDC
#0.RMDC (RO)
;LOAD RMER1
#0.RMER1 (RO)
#0.RMER2 (R0)
:LOAD RMER?2
;LOAD RMCS?
#SEEK!GO,RMCS1 (RD)

MoV

000006

000000 000034
}2760 000000 000014
0 2760 000000 000042
0 1 012760 000005 000000

8 12760

4646 0643014

4647 0463020

000024

AND LOAD SEEK COMMAND

Mov
MOV
MOV

#0,RMDA (RO)

:LOAD RMDA

:STEP COMMAND SEQUENCER 10 FIRST ON LATCH TEST (13 CLOCKS)
000024

2208:

MOV

#13..R2

MOV

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

MOV

4649 043026 012760 041401 000024

DEC
BNE

cono'nun'oaeu-noc RMMRT (RO)
R2
2208

:LOAD RMMR1

4653

2ggmmw 012760 041001 000024

:DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0

4656

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)

4657 043046
4,658 043052

012702

000007

4659 043052

012760

141001

4661 0463066
zggg 043070

005302
001370

000024

4660 043060 012760 041001 000024

4664

4665 043072

4666 063100
4667 043106
4668 043110

016037

042737
001006
012737

000000

001142

000001

001140

177776

4669 043116 010037 001136
4670 043122 104254

001142

MOV

2308:

#DMD 'MUR ! DBEN . RMMRT(RO) ;LOAD RMMR1

MOV

#7.R2

MOV

#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)

DEC
BNE

R2
2308

MOV

:VERIFY THAT GO IS STILL SEY

MOV

BIC
BNE
MOV

MOV
EMT

:LOAD RMMR1

| MUR i DBEN.RMMR{ (RO) ;LOAD RMMR1
#DMD
RMCS1(RO) , SBDDAT

#-(G0,$BDDAT
2408
#G0,$GDDAT

RO, $8DADR
254

:STORE RMCS1 AT $BDDAT

-d

SEQ@ 0191

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-96

SEEK TEST

4687

4688 043206
4689 043214
4690
4691

4692 043220
4693 043220
043224
043226
4694 043230

2551 SEEK INCOMPLETE ERROR

012702

000003

012760

141201
041201

Mov

000024

000024
000024

250$:

MOV

JLOAD RMMR1

001124

2608:

R ,RMMR1 (RO)
! DBCK
#DMD ! MUR ! DBEN'MSE

ggg

#DOMD ! MUR I DBENIMSER.RMMRT (RO)

BNE
MOV

2508
RMCS1(RO) ,$BDDAT

BIC
BEQ
MOV
CLR

#4CGO,SBDDAT
2608
RO, $8DADR
$GDDAT

MOV

#3008,SLPERR

EMT

104255

012737
012703

#DMD 'MUR 'DBEN'MSER,RMMR1(RO)

;STEP ConchD SEQgENSER AND VERIFY GO RESETS (3 CLOCKS)

061201

012760

parQury

672
4673 043124
043124
4674
4675
4676 043132
4677 043136
0643136
4678 043144
4679 043152
4680 043154
4681 043156
4682 043164
4683 043172
4684 043174
4685 043200
4686 043204

[=l=]
OO

SEQ 0192

MOV

:STORE RMCS1 AT $BDDAT

255

#1.R3

:CHANGE LOOP ON ERROR ADDRESS

SINITIALIZE CYLINDER ADDRESS

Sggglrv THE TAG BUS DURING SEEK

004737

0564732

4695

JSR
?:r

PC,SETW
.
3108

330$

;G0 SET VOLUME VALID
*BRANCH TO 3108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD C/LINDER, TRACK AND SECTOR

4696
4697
4698 043232

3?8gness
041401

4699 043232
4700 043240
4701 043246
4702 043252
4703 043260
4704 063266
4705 043274

000024
€00006

AND LOAD SEEK COMMAND

MOV

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

MOV
MOV

R3.RMDC (RO)
#O.RMER1(RO)

MOV

000014
000042
000000

4706
4707

MOV

#0 ,RMDA(KO)

:LOAD RMDA

#0 RMER2(RO)

:LOAD RMER2

*LOAD RMDC
:LOAD RMER1

#SEEK 'GO,RMCST(RD)

#4008 .R2

;LOAD RMMR1

sLOAD RMCS1

;INITIALIZE TABLE POINTER

§¥§§1rv TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3

4708 043300
043300
4709 043306
4710 043314

mov

001136
000040

:STORE RMMR2 AT $8DDAT

#ROA'RQB! TST,$8DDAT

BIS

R3,$GDDAT

:OR CYLINDER ADDRESS IN

BEQ

3208

‘BRANCH IF TAG BUS OK

CMP

(R2).SGDDAT

SGDDAT,$8DDAT

MOV

RO, $BDADR

EMT

256

ADD

001136

RMMR2 (RO) , SB1IDAT

BIC

MOV

001140

B8R

- COMPARE EXPECTED AND RECEIVED

#RMMR2, SBDADR

330s

SsggAnce TO NEXT ENTRY IN TABLE-EXIT IF DONE

4723 043360

;LOAD QMMR1

:LOAD RMMR1

062702
005712
100407

000002

ADD
ST
BMI

#2.R2
(RJ)
3308

sEXIT IF ENTRY NEGATIVE

b Pl

RNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-97

€z RNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-98
T 13

SEQ 0193

SEEK TEST

4724
6725
4726 043362

4727 043370
4728 043376
4729
4730
4731 043400
4732 043400
4733 043402
4734 043406
4735 043410
4736 043472
4737

0 2740
012760
007 0

151 001

041 401

000024
000024

4739 063414
4740 063414

043416
043420
063422
063624
063626
043430
0436432

4748 043434
4749 043436
4750 043440
4751 043442
4752 063444
4753
4754 043446
4755
4756 0643450

;STEP rne COMHAND SEQUENCER AND REPEAT VERIFI CA TION
#DMD ! DBEN ! MUR 'MOV ! DBCK ,RMMR1(RO )

gggg'oeeu'nun'noc_RMMRT (RO)

HOV
B8R

:REPEAT TAG BUS TEST FOR EACH PRIME CYLINDER,

006303
020327
10300

$30s
002000

000703
000416

3408:

:LOAD RMMR1

;LOAD RMMR1

I.E.‘ 1.2,44...

sSHIFT TO NEXT CYLINDER

ASL

CMP
BHIS
B8R

;EXIT IF WAS DONE

;TEST NEXT CYLINDER

;JUMP OVER TABLE

isegLE OF TAG BUS CONTROL AND BIT VALUES

4738

4741
4742
4743
4764
4745
4746
4747

001777
001777
004000
004000
024000
024000
024000
024000
024000
024000
004000
004000
001777

-WORD
.WORD
.WORD
+WORD
.WORD
-WORD
-WORD
.WORD
.WORD
+WORD
+WORD
-WORD
-WORD

177777

-WORD

;BUS BITS AT HIGH IMPEDANCE STATE

};;;
EE

;CONTROL BITS ENABLED, BIT 6 ON

TAG!CC
TAG!CC
TAG!CC

TAG COMES ON

:TAG GOES OFF

TAG!CC
TAG!CC
TAG!CC

1777

;CONTROL BITS DISABLED

-1

;END OF TABLE
;END OF TEST

5008:

4757
4758

':tttttttfitttttttttttttttttttttttttttt*t**ttttttitttittt*ttfitttti

LRTEST 114

SEARCH TEST

22222222223 3T22T2T 2232032822322 22322 383220280 ddd R

ST114

043450
001100
001276
001466°
000114 001226

:SCOPE CALL

SCOPE

NOP
MOV
Mov
MOV
MOV

R iitiiildsd]

#STACK,SP

sLOAD THE STACK POINTER

#1164 ,STESTN

:sSET TEST NUMBER IN APT MAIL BOX

$BASE RO
TSTQUE ,R1

;RO= UNIBUS ADDRESS
:R1 = POINTER TO DEVICE

sVERIFY THAT OP] SETS IF UNIT READY DROPS DURING COMMAND EXECUTION
4763 043476
043502
043504
4764 043506
4765
4766
4767
4768 043512

054732

000137

JSR
BR
EMT
JMP

045544

PC,SETVV

108

;GO SET VOLUME VALID
:BRANCH TO 108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
ADDRESS

ios:

AND LOAD SEARCH COMMAND

-4
b b

4769 043512
4770 0643520
4771 043526
4772 043534
4773 06354¢
4774 0463550
4775
4776
4777 043556
4778 043562
043562
4779 043570
4780 043576
4781 043600
4782
4783

4784 043602
4785 043610
4786 043614
043614
4787 043622
4788 043630
4789 043632
4790
479N
4792 043634
4793 043642
4794 043650
4795 043652
4796 043660
4797 043664
4798 043672
4799
4800 043674

4801
4802
4803 043702

4804 043702
3706
043710
4805 043712

PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-99
041001

000031

012702

041001

000024
000024

012760
012702

04000
000002

000024

012760
012760
005302
001370

140001

040001

000024
000024

000014
157777

001142
001142

020000
001136
000014

001140

043702

001124

104257

012737

001136

MoV

#2,R2

MOV

#DMD 'MUR ! DBEN !DBCK ,RMMR1(R0)

:LOAD RMMR1
#DMD !MUR ! DBEN ,RMMR1(RO) ;LOAD RMMR1
R2
208

MOV
DEC
BNE

;DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)
;LOAD RMMR1
! DBEN ,RMMR1(R0)
#DMD
MOV

305

MOV

#2,R2

#DMD ! DBEN ! DBCK ,RMMR1 (RO)

Mov
MOV
DEC
BNE

#DMD | DBEN , RMMR1 (RO)
R2
30s

:VERIFY THAT OPl IS SET
RMER1(RO) ,$BDDAT
MOV
#~COPI,$BODAT
8IC
408
BNE
#0P],SGDDAT
MOV
RO, $8DADR
MOV
#RMER1, SBDADR
ADD
257
EMT
408:

MOV

#508,SLPERR

:LOAD RMMR1

;STORE RMER1 AT $BDDAT

;CHANGE LOOP ON ERROR ADDRESS

gggglrv THAT SEARCH ABORTS DURING EXECUTION
004737

054732

PC,SETVY

JSR

B8R

60$

EMT

IMP

045544

;GO SET VOLUME VALID
:BRANCH TO 60$ IF NO ERROR

3308

sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

*ADDRESS,

4809 043716
4810 043716
4811 043724
4812 063732
4813 043740
4814 043746
4815 043754
4216

4818 043762
4819 043766
4820 043766
4821 043774

:
208

001370

016037
062737

#0.RMER1 (RO)
:LOAD RMER1
RMER2
#0,RMER2 (RO)
:LOAD
S1(R0)
sLOAD RMCS1
#SEARCH!GO,RMC

;STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS)

000002
141001

MOV
MoV
MOV
MoV

000000

SEQ 0194

1 (R0)DLOAD RMMR1
! MUR ! DBEN ,RMMR
#DMD
R
#0,RMDA(R0)
sLOAD
#0.RMDC (RO)
sLOAD RMDC

Mov
MoV

000024

041001

000024

60$:

AND LOAD SEARCH COMMAND

MOV
MOV

MOV

000031

012702

000003

012760
012760

141001
041001

MoV
MoV

000000

#DMD !MUR ! DBEN RMMR1(RO) ;LOAD RMMR1
#0,RMDA(RO)
;LOAD RMDA
#0_RMDC (RO)
:LOAD RMDC
;LOAD RMER]

#0.RMER?2 (RO)
:LOAD RMER?2
#SEARCH!GO,RMCS1(R0)
:LOAD RMCS1

sSTEP TH5050""A~D3SEgUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)
000024
000024

:
708

MOV
MOV

#DMD
'MUR ! DBEN IDBCK.RMMR1(RO)
#DMD
! MUR ! DBEN,.RMMRT (RO) ;LOAD

:LOAD RMMR1

RMMR1

-—zmmmonwz:m-xg-—::ommonwz:lr‘xc.—-:a-nMOnwz:lr'x(..--za-nmonmz::r-ru..-::o-wmonw

CZR NBAO RM80 DSKLS
1114
SEARCH
T

000000
177776

104260

#DMD !MUR ! DBEN ! MDF ! DBCK ,RMMR1 (R0)

ggflD'HUR'DBEN'HD‘.RMMRT (RO)
80s
RMCS1(RO) ,$BDDAT
gagGO.SBDDAT

:LOAD RMMR1

;LOAD RMMR1

;STORE RMCS1 AT $BDDAT

RO, $BDADR
$GDDAT

001136
001140

260

: (THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE TESTED

4844 044070
4845
4846
4847 044076
4848 044076
044102
044104
4849 044106

:DURING DATA COMMAND TESTS)
012737

044076

001124

90$:

#1008 ,SLPERR

MOV

;CHANGE LOOP ON ERROR ADDRESS

%gsglFY OP] SETS IF ON CYLINDER LATCH DOESNT CLEAR
004737
000403

054732

PC,SETWV

JSR
BR
EMT
JMP

045544

1108

;60 SET VOLUME VALID

*BRANCH TO 1108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

1?82RESS.

041001

000031

000024
000024

1208:

MOV
MOV
DEC

(L€, 8]

Hw
oo

—

—d aad

BNE

—d

4875 044232

141001
041001

#DMD ! MUR ! DBEN ,RMMR1 (R0) ;LOAD RMMR1
#0,RMDA(RO)
#0.RMDC (RO)

;LOAD RMDA
:LOAD RMDC

:LOAD RMER1
#0.RMER1 (RO)
#0,RMER2 (RO)
:LOAD RMER?2
#SEARCH!GO,RMCS1(RO)
sLOAD RMCS1

sSTEP THE COMMAND SEQUENCER
MoV
n
2

000023

)

4863 044162
4864 044162
4865 044170
4866 044176
4867 044200
4868
4869
4870 044202

012702

oo
o0

4861
4862 044156

MOV
MoV
MoV
MOV
MOV
MOV

000000

=34
(=l

4859 044150
4860

000024

AND LOAD SEARCH COMMAND

#DMD ! MUR ! DBEN! DBCK , RMMR1 (R0)

;LOAD RMMR1

cono'nua'ossn.RMMR1 (RO) :LOAD RMMR1
R2
120%

;VERIFY THAT OPI 1S SET

(RO) , $8DDAT
RMER1
#-2COPI,$BODAT
1308
RO,$8DADR

#RMER1, SBDADR
#OPI,$GDDAT

sSTORE RMER1 AT $BDDAT

#2,R2

000024
000024

80$:

;STEP 2 CLOCKS AND VERIFY GO IS RESET

& _ A

1641101
041101

;LOAD RMMR1

012760

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

_ & _ BN

000002

sSET DRIVE FAULT T0 CAUSE ABORT CONDITION

I
N

012702

000024

0641101

012760

)

4824
4825
4826 044006
4827
4,828
4829 044014
4830 044020
044020
4831 064026
4832 044034
4833 044036
4834 044040
4835 044046
4836 044054
4837 044056
4,838 044062
4838 044066

R2
70$

DEC
BNE

005302
001370

4822 064002
4823 044004

A_ &

SEQ 0195

SEARCH TEST

(==

TM 4

N 15

CZR NBAO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-100

FRGEITIOMNMOMDERT
RN reIONVMONDEE

—

IR NBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-101
"4

B 16

SEQ 0196

SEARCH TEST

2879 044240

104261

4,878 044242

012737

4,879

4882 044250
4883 044250
064254
064256
4884 044260

044250

001124

1308:

EMT

261

MOV

#1508 ,SLPERR

;CHANGE LOOP ON ERROR ADDRESS

:VERIFY ATA SETS IF DRIVE COMPLETES SEARCH (ON CYLINDER AND
:SECTOR COMPARE SETS)

004737

1508:

054732

PC,SETWV

JSR

1608

EMT

3308

JMP

045544

;60 SET VOLUME VALID
sBRANCH TO 160% IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
:ADLRESS,

061401
000000
000000
000000
000000
000031

4894 044322
4,895
4897 044330
4898 044334
334

012702

4901 044352
4902
4903

001370

4909
4910
4911 044370
4912 044374
4913 044374
4914 044402
4915 044410
4916 044412
4917
4918
4919
4920 044414
4921 044422
4922 044430
4923
4924

4925 044436
4926 044442
044442
4927 044450
4928 044456

:LOAD RMMR1
#DMD ! MUR ! DBEN ! MOC ,RMMR1 (R0O)
#0,RMDA (R0O)
sLOAD RMDA
#0,RMDC(RO)
sLOAD RridC
#0,RMER1 (RO)
:LOAD RMER1
#0,RMER2 (RO)
:LOAD RMER2
;LOAD RM(CS1
#SEARCH!GO,RMCS1(R0)

;STEP COMMAND SEQUENCER TC FIRST ON LATCH TEST (17 CLOCKS)

1708
000024
000024

MoV

M7..R2

MOV

#DMD ! MUR ! DREN! DBCK !MOC ,RMMR1 (RO)

ggg

:gnoznun!oasuznoc.annni(RO)

BNE

1708

:LOAD RMMR1

;LOAD RMMR1

:DROP ON CYLINDER TO RESET LATCH,AND RAISE INDEX PULSE
012760

012760

041005

051401

012702

000002

012760

151401
051401

000024

‘TO SET FORMAT CHANGE FLOP

MOV

#DMD 'MUR ! DBEN'MI ,RMMR1 (RO)

;LOAD RMMR1

;RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT
#DMD ! MUR ! DBEN ! MOC 'MSEN,RMMR1 (RO)
MOV

;LOAD RMMR1

;STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS)

1808

MOV

’

000024
000024

ggg
BNE

#2.R2

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

ggnosnuaaoetnenoc!nseu.nnnni(RO)

;LOAD RMMR)

SLOAD RMMR1

1808

:FO?ESESECTOR COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE
(VLY]

4908 044362

041401

=i=l=]

4904
4905 044354
4906
4907

141401

AND LOAD SEARCH COMMAND

MoV
MoV
MoV
MoV
MOV
Mov

000000

000021

140
144

140

WNN

4896

000024

160s

012702

000003

012760
012760
005302

051401

151401

000024
000024
000024

Mov

’

MoV
Mov

#DHD!HUR!HOC!DBEN!HSEN!HSCfRHHR1(RO)

;LOAD RMMR1

C ;LOAD RMMR1
!MS ,RMMR1(RO)
#DMD 'MUR 'MOC ! DBEN!MSEN'MS
:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN!MSEN!MSC ,RMMR1 (RO)

sCLOCK SEQUENCE® TO SET ATA (3 CLOCKS)

1858
000024
000024

:R2 = CLOCK COUNT

MoV

#3.R2

MoV
ggg

#DMD ! MUR ' MOC ! DBEN !MSEN'!DBCK .RMMR1(RO)
ngQ!HUR!HOC!DBEN!HSEN.RHHR‘(RO)

;LOAD RMMR1
:LOAD RMMR1

RNBAO RMB0O DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-102
CZR

C 16

3EQ 0197

SEARCH TEST

TMm14

4929 044460
4930
4931
4932 044462
4933 044470
4934 044476
4935 044500
4936 044506
4937 044512
4938 044520

001370

494? 044522

012737

2
4943 044530
4944 044530
044534
044536
4945 044540

BNE
001142
001142

001136
044530

004737
000403
104000
000137

MOV

#2008, SLPERR

1908:

JSR

PC,SETVV

JMP

3308

gzr

045544

;CHANGE LOOP ON ERROR ADDRESS

2108

;GO SET VOLUME VALID

*BRANCH TO 2108 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
ADDRESS

041401

012702

000024
000006
000034
000014
000042
000000

141401

2108:

041001

012702

000007

012760

141001

000024
000024

000024

MOV
MOV
MOV
MOV

WNO
NO
NO
OO

000024
000024

001142
001142

001140

001136

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

#0,RMDA (RO)

:LOAD RMDA

:LOAD RMMR1

#0_RMDC (RO)
*LOAD RMDC
:LOAD RMER1
#0 RMER1(RO)
#0 RMER2(;
))
:LOAD RMER2
;LOAD RMCS?
#SEARCH'GO,RMCST1(RO)

2208 :

MOV

! DBCK ,RMMR1 (R0O)
#DMD 'MUR ! DBEN'MOC

BNE

2208

ggg

:gflD'HUR'DBEN'"OCRHHRi(RO)

:LOAD RMMR1

:DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER O

MOV

! DBEN, RHHR1(R0) :LOAD RMMR1
#DMD 'MUR

;STEP CO:EOND SEQgENgER THROUGH WAIT LOOP (7 CLOCKS)

O
S
c
-

041001

MOV

001370

012760

AND LOAD SEARCH COMMAND

;STEP congAnn ssgg;nceg T0 FIRST ON LATCH TEST (17 CLOCKS)

000021
041401

4981 044712
4982 044716
4983

#~CATA,SBDDAT
1908
#ATA ,SGODAT
RO, $BDADR
gggDS,SBDADR

054732

000031

4963 044632
4964
4965
4966 044634
4967
4968
4969 0464642
4970 044646
4971 044646
4972 044654
4973 044662
4974 0464664
4975
4976
4977 064666
4978 044674
4979 044702
4980 044704

001124

BIC
BNE
MoV
MOV
ADD
EMT

éggglFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP

4948
4949 044544
4950 044544
4951 044552
4952 044560

4959 044614

;VERIFY ATA IS SET
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
MoV

001140
104262

185%

2308:

MOV

82!

BNE

#DMD ! MUR ! DBEN ! DBCK ,RMMR1 (R0)

2%08

;VERIFY THAT GO IS STILL SET
MoV
8IC
BNE

RMCS1(RO) ,$BDDAT
#*CG0,$BDDAT
2608

MOV

RO, $8DADR

MOV

EMT

:LOAD RMMR1

:DND'HUR'DBENRHHR‘(RO) ;LOAD RMMR1

#G0, SGDDAT

2653

:STORE RMCS1 AT $SBDDAT

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-103
T114

D 16

SEQ 0198

SEARCH TEST

:SET SEEK INCOMPLETE ERROR

4984

4985 044720

(986 044720

4987

4988 044726
4989 044732

044732

012760

041201

012702

000003

012760

141201

000024

408:

000024

2508:

4992 044750

499% 044760
4995 044766
4996 044770
4997 044774
2333 045000

042737
001405
010037
005037
104264

4993 044752

gggg 045002

016037

012737

000000

177776

001142

001124

5004 045010

004737

045016

104000

045014 000403

2608:

2658:

054732

5011 045032
5012 045040

012760

012760
012760

041401

000000
000000

5018 045070

012702

000021

045074

012760

141401

5021 045110
gggg 045112

005302
001370

5019 045074

000024

2708:

000024

5024

5025

5028

gggg 045122

5031

5032 045130
5033 045134

5034 045134

BNE

2508

RMCS1(RO) , SBDDAT

BIC
BEQ
MOV
CLR
EMT

#4CG0, $SBDDAT
2608
RO, $BDADR
$GODAT
264

MOV

#2658 ,$LPERR

JSR

PC,SETWV

EMT

33208

:STORE RMCS1 AT SBDDAT

:CHANGE LOOP ON ERROR ADDRESS

2708

:GO SET VOLUME VALID

*BRANCH TO 2708 IF NO ERROR

012760

041005

000024

012760

051401

000024

012702

000002

012760

151401

:LOAD RMMR1

MOV

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

MOV
MOV
MOV

:LOAD RMER1
20 RMER1(RO)
RMER2
:LOAD
#O.RMER2(RO)
;LOAD RMCS?
#SEARCH'GO,RMCST1(RO)

MOV
MOV

000006
00”4

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

:LOAD RMDA
*LOAD RMDC

:STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS)
2758:

MOV

M7, .R2

MOV

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

DEC
BNE

R2
2758

MOV

5020 045102 012760 041401 000024

2359 045114

:LOAD RMMR1

:ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
“ADDRESS, AND LOAD SEARCH COMMAND

5013 045046 012760 000000 00091%
5014 045054 012760 000000 000042
gg}g 045062 012760 000031 000000

5017

R ,RMMR1 (RO)
! DBCK
#DMD ! MUR ' DBEN!MSE

(RO) ~ ;LOAD RMMR1
#DMD IMUR I DBENIMSER_RMMRT

JMP

5007
5008

5009 0450264

#3.R2

MOV

gggg 045020 000137 045544
5010 045024

;LOAD RMMR1

-VERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP

5002

5003 045010

MOV

001142

001136
001140

045010

MOV
DEC

005302

001370

#DMD !MUR ! DBEN!MSER,RMMR1(R0)

:STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS)

4990 044740 012760 041201 000024
4991 044746

MOV

#DMD ! MUR i DBEN iMOC , RMMR T (RO)

:LOAD RMMR1

:DROP ON CYLINDER TO asser LATCH, AND RAISE INDEX PULSE
*TO SET FORMAT CHANGE FLOP
:LOAD RMMR1
#DMD 'MUR ' DBEN'MI,RMMR1 (RO)
MOV
;RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT

MOV

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

:LOAD RMMR1

:STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS)

000024

5035 045142 012760 051401 000024

280$:

MOV

#2.R2

MOV

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

MOV

#DMD ! MUR | DBEN IMOC ! MSEN ,RMMRT (RO)

:LOAD RMMR]

:LOAD RMMR1

-t 0

-t Y
-— P

N8AQ RHSOCDS§%§TPT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-104
&

E 16

SEQ 0199

DEC
BNE

5036 045150
gggg 045152

005302
001370

5039
5040 045154

012702

000004

5042 045160

016037

000024

5044 045174

001411

5041 045160

5043 045166

042737

173777

;VERIFY THAT SEARCH ENABLE IS o~ DURING SECTOR COMPARE LOOP
n2 - cLafK COUNT
84 ,R2
MOV

001142

281$:

001142

050 045220
5051 045226
5052 045232

012737
010037
062737

5049 045216 000411

%§05u01m%5

004000
001136
000024

001140

001136

5057 045242

012760

051501

5058
5059 045250

012702

000002

045254

012760

151501

5062 045270

005302

5060 045254

5064 045274

5065 045302
5066 045310
5067 045312
5068 045320

001370

016037

042737
001406
012737
010037

3893 045324 104260

5071 045326

000024

012737

001142

000000
001136

001140

045340

001126

177776

283$:

285$:

5087 045406
5088

MoV

:BRANCH IF SEARCH NOY ENABLED

#DMD | MUR iMOC | DBEN i MSEN, RMMRT (RO)

;LOAD RMMR1

‘LOAD RMMR1

283s

#ESRC,SGDDAT
RO, $8DADR
#RMMR1, $BDADR

265

#DMD 'MUR ! DBEN'MOC 'MSEN!MDF ,RMMR1(R0O)

:LOAD RMMR1

MOV

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

DEC

MOV

290$:

#DMD 'MUR ' DBEN!MOC !MSEN!MDF, RHMRi(RO)
2858

BIC
BEQ
MOV
MOV

MOV

#3008 ,SLPERR

MOV

260

#1.R3

JSR

104000

EMT

000475

PC,SETW

3108

:CHANGE LOOP ON ERROR ADDRESS

SINITIALIZE CYLINDER ADDRESS
;GO SET VOLUME VALID

‘BRANCH TO 3108 IF NO ERROR

330$

;ENABLE DEBUG CLOCK. LOAD CYLINDER, TRACK AND SECTOR
“ADDRESS AND LOAD SEARCh COMMAND

012760

041401

000000

000024

000006

012760

000000
000031 000042
012760 006000

510s:

MOV

#DMD ! MUR ! DBEN'MOC,RMMR1 (R0)

MOV
MOV

R3.RMDC (RO)
PRHER1(RO)

MOV

MOV
MOV

20, RHDA(RO)

;LOAD RMDA

*LOAD RMDC
LOAD RMER1

:LOAD RMMR1

#0 RMER2(RO)
:LOAD RMER2
sLOAD RMCS1
nncs1(a0)
cséAacu'co.

;LOAD RMMR1

:LOAD RMMR1

:STORE RMCS1 AT $BDDAT

RMCS1(RO) , $BDDAT

#~(GO,$BDDAT
2908
#0,SGDDAT
RO $BDADR

5084 045366 010360 000034
5085 045372 012760 000000 000014
5086 045400

MOV
MOV
ADD

2828

.VERIFY THE TAG BUS DURING SEARCH

5079
5080

5083 045360

B8R

BNE

%00s:

5075 045340
004737 054732
045344 000402

5082 045352

R2
2818

EMT

5076 045340

5081 045352

DEC
BNE

MOV

001142

5074

gg;g 045350

N ,RMMRT (RO)
! DBCK
#DMD 'MUR 'MOC ! DBEN'MSE

;STEP 2 CLOCKS AND VERIFY GO IS RESET
;R2= CLOCK COUNT
#2.R2
MOV

000000

gg;g 045334 012703 000001

045346

MOV

EMT

5061 045262 012760 051501 000024
5063 045272

#°CESRC,SBDDAT

-SET DRIVE FAULT TO CAUSE ABORT CONDITION

5055

5056 045242

282%:

;STORE RMMR1 AT $BDDAT

RHHR1(R0).$BDDAT

BIC

MOV

5046 045204 012760 051401 000024
005302
001361

MOV

BEQ

5045 045176 012760 151401 000024

5047 045212
5048 045214

R2
2808

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-105

F 16

SEQ 0200

SEARCH TEST

TMm 4

5089
5090
5091
5092
5093
5094 045414
5095
5096

MoV

012702

MoV

000011

000024
000024

012760

3128:

WWNINANN NN NN NININNIN = b e b cd b ek B b = QO O Sy:
J\U“U"‘Cfisas‘dghfla:U"U-flCNOCD‘QO“flJ‘U"U-‘CNOOD‘JO“hJ\U“U-‘CMOGD\J
[=lelele
o0
0000
RRRRRRRRRRR
SN
RRRRRR
R!RR
RREIRRRR
wvivauonaw
il

:9. COMMAND SEQUENCES TO ALLOW THE PROGRAM
:TO RUN WITH OR WITHOUT THE ECO.

#DMD | DBEN | MUR 1 M0C .RMMR1 (RO)

b
b
b

:CS BOARD.
;CLOCK THE SEQUENCER THRU THE FIRST

R2
3128

#4508 ,R2

:LOAD RMMR1

;DONE 9. CLOCKS ?
*NO !!

YINITIALIZE NEW TABLE POINTER

::tQtttttt'ttfittfi.fittt"'.'tttttttQtttt.tQttttt'tttt'tt.ttttt'tt.

— e

016037

000040
150000
001140
001140
001140
001136
000040

ViAWY

PNON)
=2 —
SO

U“flxg
&H
Nb

mov

001136

RMMR2 (RO) , $8DDAT

BIC
MOV

SBDDAT
RQB!
#RQA'ST,
. SGDDAT
(R2)

MOV
ADD
EMT

RO, SBDADR
, SBDADR
ARMMR?
266

8IS
P
BEQ

B8R

000420

R3,$GDDAT
$GODAT,SBODAT
3208

;STORE RMMR2 AT $BDDAT

:OR CYLINDER ADDRESS IN
:COMPARE EXPECTED AND RECEIVED
BRANCH IF TAG BUS OK

3408

§38¥A”CE TO NEXT ENTRY IN TABLE-EXIT IF DONE
062702
005712
100407
012760
012760
000740

000002

ADD
ST
BMI

141401
041401

000024
000024

#2 .R2
(R2)
3308

SEXIT IF ENTRY NEGATIVE

:STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION
#DMD ' DBEN ' MUR ' MOC ' DBCK ,RMMR1 (RO)
MOV

MOV

B8R

#DMD ! DBEN | MUR iMOC .RMMR 1 (RO)

3158

;LOAD RMMR1

sgg:gAr TAG BUS TEST FOR EACH PRIME CYLINDER, 1.E., 1.2.4....
006303

ONONOTM
RNOO

000424

2RO

\rfl\“’g:

wVIVAWAWAAWLZWAIWN
wVh WAL

WNWN
)
Y
Y Y
Py

#9..R2

§¥§§1rv TAG BUS ACCORDING TO TABLE AND CYLINDER iN R3

VIV
b d
d b

:INITIALIZE TABLE POINTER

#OMD ! DBEN ! MUR 'MOC ! DBCK ,RMMR1 (RO)

MOV

012702

VIV
WAV VTWA AWV
VWAo A VATV
A VATV b
b end o oad b b e
b ok b b b i b cnd o b b e
b b aud oud omd end b cnd end acd e=b T

#6008 ,R2

:HARDWARE ECO CHANGE TO THE PLA OF THE

VAWV
b

5097 045420

::tttttt'ttfittttttfitttt'ttit'ttttt.Q.tt.Q'.tt'.fi.'ttt'ttttttttl.i

002000

T
3408:

AsL

BHIS

340$

CMP

B8R
BR

RS, #1024.

3008
5008

:SHIFT TO NEXT CYLINDER
;EXIT IF WAS DONE

STEST NEXT CYLINDER
:JUMP OVER TABLE

zaegLs OF TAG BUS CONTROL AND BIT VALUES
001777

004000

.WORD

1777

:BUS BITS AT HIGH IMPEDANCE STATE

:CONTROL BITS ENABLED, BIT € ON

"WORD
WORD
"WORD
"WORD

1777
1777
1777
1777

"WORD

<€

"WORD

Y v

NBAOQ RM8O DSK LSTPT1
4

SEARCH TES

MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-106

G 16

SE@ 0201
:TAG COMES ON

.WORD
.WORD

5145 045576
5146 0456
5147 045602
€148 045602
5149 045604
5150 045606
5151 045610
5152 045612
5153
5154
5155 045614
5156 045616
5157 045620
045622
5158
g}gg 045624

024000
024000

004000
001777
001777
001777
001777

.WORD
-WORD
.WORD
.WORD
.WORD
-WORD

:TAG GOES OFF

5161 045626

177777

.WORD

sEND OF TABLE

5162
5163 045630
5164
5165

450%:

024000
024000
024000
024009
177777

-WORD

;END TABLE HERE FOR HARDWARE ECO CHANGE

;CONTROL BITS DISABLED

;END OF TEST

TRTEST 115
000004
000240
012706
013200
013701
012737

5167 045656
045662
045664
5168 045666

004737
000402
104009
000550

5173 045676
5174 045704
5175 045712
5176 045720
5177 045726
5178
5179
5180 045734
5181 045740
045740
5182 045746
5183 045754
5184 045756
5185
5186
5187 045760
5188 045766

-1

':ttttttttttttttttttttttttt"fitttt'tttfitfi'ttfit..ttttt'ti.ttttfi.tt

045630
045630
045632
045634
045640
045644
045650

5169
5170
5171 045670
5172 045670

sSTART TABLE HERE FOR HARDWARE ECO CHANGE

5008:

5166

.WORD
. WORD
.WORD
.WORD

NR
RRANARANRR
ANAR
ANNIRARAANAARAR
NRAR
AR AN ARAARNRRRARRARR
A RARAARAN

TsT118:
001100
001276
001466
000115

SEARCH TIMEOUT TEST

zggps

MOV
MOV
MOV

001226

054732

;SCOPE CALL

NSTACK, SP
$BASE R
TSTQUE ,R1

MOV

#115,$TESTN

JSR

PC,SETVV

90$

gfir

108

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

$sSET TEST NUMBER IN APT MAIL BOX
;60 SET VOLUME VALID

‘BRANCH TO 108 IF NO ERROR

%5§§BLE DEBUG CLOCK AND LOAD SEARCH COMMAND
012760
012760
012760
012760
012760
012760

041401
000000
000000
000000
000000
000031

012702

000021

012760
012760
005302
001370

141401
041401

012760
012760

000024

mov

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

MOV

#0 _RMDA (RO)

MOV
MoV
MOV

MOV

000000

#0,RMER1(RO) =
#O.RMER2(RO)
#0_RMDC (RO)

;LOAD RMER1
:LOAD RMER2
*LOAD RMDC

;LOAD RMMR1

*LOAD RMDA

#SEARCH!GO,RMCS1(R0)

:LOAD RMCS1

<EYECUTE SEARCH TO TEST FOR ON LATCH RESET (17 CLOCKS)

208
000024
000024

000024
000024

MOV

moy

ggg

BNE

7..R2

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

zono!nua:oaeuznoc.nnnai(Ro>

253

:LOAD RMMR1

;LOAD RMMR1

;DROP ON CYLINDE R TO RESET LATCH, RAISE ON CYLINDER
#DMD ! MUR IDBEN RMAR1 (RO) :LOAD RMMRI
MoV
MOV

#DMD | MUR i DBENMOC , RMMR1 (R0)

;LOAD RMMR1

CZR NBAO RMB0 DSKLS PT1 MACRO V04.00
TMm
SEARCH TIMEOUT TEST

012702

000002

012760

151401
051401

14-JAN-82 16:33:00 PAGE 13-107

:STEP COMMAND SEQUENCER TO SECTOR COMPARE LOOP (2 CLOCKS)
000024
000024

30s:

012702

000005

012760

151401
051401
000024
173777

004000
001136
000024

Mov

#2,R2

MOV

ggno'oaeu'nun'noc'nsen.RMMRT (RO)

MOV

DEC
BNE

001370

5199 046020
5200 046024
024
5201 046032

000024
000024
001142
001142

001140

408:

012760
012737
004777

041401
070000
133406

6130

016037

000014
157777

5222 046152
5223 046154
5224 046160
5225 046166
5226 046172
5227 046200
5228 046202
5229 046204
046204
5230
5231 046210
5232
5233

30$

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

#DMD I DBEN | MUR i MOC i

RMMR1 (RO) . SBDDAT
#*CESRC, $BDDAT

508

508:

STEP

MoV

R2
408
608
#ESRC,SGDDAT
RO, SBDADR

MSEN,RMMR
1 (RO)

LOAD RMMR1

:STORE annn1 AT ieooAr

D RMMR1

sBRANCH IF SEARCH NOT ENABLED

;SETUP ERROR MSG

NRMMR1, SBDADR
265
90s

:DROP *'MSEN'' TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI TO SET.

5216 046110
5217 0461;6
046

608:

708:

MOV
MOV
JSR

#DMD ! MUR ! MOC ! DBEN ,RMMR1 (R0)
#70000,WATCH

PC.,acLOCK

JSR
Mov
MOV
ADD

PC,asSTOPCL

133330

—b

133360
020000
001136
000014

ond

RMER1 (RO} , SBDDAT

001534

MOV
BIC
BNE
TST

000402

004777

000024
001534
(=]
(=1

5219 046136
5220 046144
5221 046146

:LOAD RMMR1

*LOAD RMMR1

MOV

001136

5214

5218 046130

#DMD ' DBEN ' MUR ' MUC ! DBCK 'MSEN, RMMRT(RO)

:THE COMMAND SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP.
: THROUGH THE LOOPSAgg VERIFY SEARCH IS ENASLED.

000440

5215 046110

SEQ 0202

BNE

001140

001136
80$:

EMT
8R

JSR

:LOAD RMMR1

:SET WATCHDOG TIMER VALUE

*START THE CLOCK

;STORE RMER1 AT $BDDAT

#~COP1,$BDDAT
80$
WATCH

70$

20P1, SGDDAT
RO, SBDADR

;STOP THE CLOCK

‘SETUP ERROR MSG

ARMER1,$BDADR
267
908

PC,aSTOPCL

:STOP THE CLOCK

;END OF TEST

90$:

tttttttttltttttttt'ttt'tttttttttittttt'.ltfi.tit....fi.tt'tttlttt

tTEST 116

DATA COMMAND TESTS (1)

'.ttittttttt.tttttttt'tt"tt"tttt.QtttfitQttltt.tt.ttt.t't.t.ttt.

000004
000240
012706

1ST116:

001100

SCOPE
NOP

Mov

sSCOPE CALL
#STACK,SP

sLOAD THE STACK POINTER

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-108
116

116

SEQ 0203

DATA COMMAND TESTS (1)

046220

013700

001276

523 046230

012737

000116

046224 013701 001666
004737

046244

104000

046242 000402

054732

EMT

B8R

012760
012760

061401
000000

000024
000014

012760
012760

000000
000000

10s:

5250 046314

012702

000003

046320

012760

141401

5253 046334
gggg 046336

005302
001370

5251 046320

gggg 046340

5259

5260 046346

5261 046352

000024

012760
012702

040401

000024

5263 066366
5264 046370

005302
001370

5266 046400
5267 046406
5268 046410
5269 046416
5270 046422
5271 046430

042737
001011
012737
010037
062737
104270

5272

g%;% 046432

016037

012737

5275

000002

000014

5280
5281 046452

104000
000576

MOV
MOV

#0_RMDA (RO)
#0RMDC (RO)

#0 RMER2(RO)

:LOAD RMMR1

:LOAD RMER2
*LOAD RMDA
*LOAD RMDC

mmmmm)

sLOAD RMCS?

;STEP COMMAND SEQUENCER TO UNIT READY TEST (3 CLOCKS)
208:

MOV

#3.R2

MOV

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

DEC
BNE

R2
208

MOV

:DROP UNIT READY

MOV

308:

T (RO)
#DMD i MUR iMOC | DBEN .RMMR

:LOAD RMMR1

;LOAD RMMR1

1 ;LOAD RMMR?
(RO)
#DMD !MOC ! DBEN,RMMR

001142

020000
001136
000014

001140

046440

001124

MOV

#2.R2

DEC
BNE

R2
308

MOV
MOV
MOV

001142

157777

5276 046440
5077 046440 004737 054732
046444 000402
046446
ggrs 046450

408

*BRANCH TO 108 IF NO ERROR

:STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS)

046352 012760 140401 000024
5262 046360 012760 040401 000024

5265 046372

10§

xono'nun'noc DBEN,RMMR1 (RO)
;LOAD RMER?
#0,RMER1(RO)

MOV

5252 046326 012760 041401 000024

5256

LSSET TEST NUMBER IN APT MAIL BOX

MOV
MOV

MOV

000006
000034

ggmmomeW1mm
5249

;RO = UNIBUS ADDRESS

*R1 = POINTER TO DEVICE

-ENABLE DEBUG CLOCK AND LOAD READ COMMAND

5244 046264 01276C 000000 000042
5245 046272
5246 046300

#116,$TESTN

5240

5241 046250

MOV

TSTQUE R

:VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY
;60 SET VOLUME VALID
PC,SETVV
JSR

gggg 046246 000471
§242 046250
5243 046256

$BASE ,R0

MOV

001226

gggg
§237 046236

MOV

001136

40S:

#DMD 'MOC ' DBEN!DBCK ,RMMR1(R0) :LOAD RMMR1
'MOC | DBEN.RMMR (RO) ;LOAD RMMR1
#DMD
RMER1(RO) , SBDDAT

BIC
BNE
MOV
MOV
ADD
EMT

#~COP1,$BDDAT
408
#OP],SGDDAT
RO, $8DADR
#RMER1,$BDADR
270

Mov

#508 ,SLPERR

:STORE RMER1 AT S$BDDAT

;CHANGE LOOP ON ERROR TEST

:VERIFY DATA COMMAND ABORTS AT LOCATION 129

50s:

JSR

PC,SETVV

EMT
BR

1508

608

;GO SET VOLUME VALID

‘BRANCH TO 608 IF NO ERROR

;ENABLE DEBUG CLOCK AND LOAD READ COMMAND
60$:

CZR ZBAO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-109

J 16

SEQ 0204

DATA COMMAND TESTS (1)

TMm

46522

000024

000071

000000

012702

00000/

01276¢
012760
005302
001370

141401

0414601

012760

041501

012702

000001

012760

1641501
041501

012702

000020

012760

045501
041501
000024
157777

001014

020000
001136
000024

#DMD ! MUR ! MOC ! DBEN,RMMR1
(R0)
;LOAD RMMR1
#0,RMER1(R0)
sLOAD RMER1
#0,RMER2 (RO)
;LOAD RMER2
+LOAD RMDA
#0,RMDA(R0)
#0,RMDC (RO)
sLOAD RMDC
sLOAD RMCS1
#RD !GO ,RMCS1(RO)

;STEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS)

208
000024
000024

000024

MoV

#4 ,R2

MoV

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

BNE

708

ggg

gDHD!HUR!HOC!DBEN.RHMR1(RO)

;LOAD RMMR1

sSET DEVICE FAULT TO CAUSE ABORT CONDITION
#DMD ! MUR 'MOC ! DBEN ! MDF ,RMMRT (R0) ;LOAD RMMR1
MOV

sSTEP TH;OsEOUENCER EHROUGH THE TEST FOR ABORT (1 CLOCK)
000024
000024

80$:

‘

MoV

#DMD 'MUR ' MOC ' DBEN !MDF ! DBCK ,RMMR1(R0O)

BNE

80s

ggg

:L0AD RMMR1

:gHD!HUR!HOC!DBEN!HDF.RHHR1(RO) ;LOAD RMMR1

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO
sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
000024
000024
001142
001142

85$:

#16.,R2

MOV

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

MoV
BIC

#°CEBL ,SBDDAT

DEC

MOV
MOV
ADD
EMT

#EBL ,$SGDDAT
RO,$BDADR
#RMMR1,$BDADR
271

BNE

001136

000472

:LOAD RMMR1

lDHD!HUR!HOC!DBEN!HDF.RHHRi(RO) ;LOAD RMMR1

BNE

001140

sMAXIMUM NUMBER OF BIT CLOCKS

Mov

MOV

005302

RMMR1(RO) ,$BDDAT

90%

85%

:STORE RMMR1 AT $BDDAT

:BRANCH IF EBL IS SET

;CONTINUE BIT CLOCKS IF COUNT NOT O

1508

63;EP THE SEQUENCER THROUGH ITS TEST FOR EBL (2 CLOCKS)
012702

000002

012760

141501

30 046704

001370

34 046706
35 046712

MOV
Mov
MoV
Mov
MoV
Mov

001370

®N VIS
&H
P33 20
&
22
]o N

N = OV

NO NS W

PONINININVRIN)
—b b ek b =d d b b

VA VIVAVAWAWAWVAAWA
WAV WVVAVIAA VIV
NN NN NN NN NN AN U N AN AN N N NN N NN NN

5292 046530
5293 046536
5294 046540
5295
5296
5297 046542
5298
5299
5300 046550
5301 046554
046554
5302 046562
5303 046570
5304 046572
5305
5306
5307
5308 046574

041401

012702

041501

000020

000024
000024

100$:

MoV

#2,R2

ggg

:gflD'HUR!HOC!DBEN!HDF.RHHRi(RO) :LOAD RMMR1

BNE

1008

#DMD ! MUR ! MOC ! DBEN ! MDF ! DBCK .RMMR1 (R0)

;LOAD RMMR1

;ABORT EBL SHOULD NOW BE INACTIVE - FORCE BIT CLOCK USING THE
;MAINTENANCE REGISTER TO RESET EBL (16 BIT CLOCKS)
1108:

MoV

#16..R2

sMAXIMUM NUMBER OF BIT CLOCKS

CZRNBAQ RM80 DSKLS PT1 MA CRO V 04.00 14=JAN-82 16:33:00 PAGE 13-110

]

K 16

SEQ 0205

DATA COMMAND TEST s ()

046766

046770

-—b

60 047032
5361 047034
5362 047040
5363 047044

5365 047046
S
5367
5368 047054
5369 047054
047060
047062
5370 047064

F ,RMMR1(R0)
'MCLK
#DMD ' MUR ! MOC ' DBEN'MD

BNE

1108

—

120s:

016037
062737
001411
005037
010037
062737
104273
000426

;ISSUE 16 BIT CLOCKS THEN TEST

MOV
8IC

)
, SBDDAT
RMMR1(RO
#*CEBL ,$BDDAT

MOV
ADD
EMT

RO,$BDADR
lg?HR1,SBDADR
2

8EQ
CLR

001136

1308
$GDDAT

;STORE RMMR1 AT $BDDAT
:BRANCH IF EBL IS RESET

1508

JVERIFY GO RESETS WITHIN & CLOCK CYCLES
012702

000004

012760

141501
041501

000000
177776

104274

012737

130$:

000024
000024

1408:

00112¢4

#4 ,R2

Mov

#DMD ! MUR ! MOC ! DBEN ! MDF ! DBCK ,RMMR1 (R0)

BNE
Mov
BIC
BEQ
CLR
MoV
EMT

1408
RMCS1(RO) ,$BDDAT
#*CGO,$BDDAT
1508
SGDDAT
RO, $BDADR
274

Mov

#2008 ,SLPERR

ggg

001140
001136

047054

MOV

:
1508

:LOAD RMMR1

ggflD!HUR!HOC!DBEN!HDF.RHHR1(RO) :LOAD RMMR1

;STORE RMCS1 AT $BDDAT

:CHANGE LOOP ON ERROR ADDRESS

:VERIFY SEQUENCER BRANCHES TO SEEK WHEN RUN AND CO FLOP SETS

004737

2008

054732

JSR

B8R

EMT

PC,SETWV

2108

:60 SET VOLUME VALID

‘BRANCH TO 2108 IF NO ERROR

2508

- ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

5372
5373 047066

041401

000024

210s:

MoV
MoV

MoV
Mov

5379 047124
5380
5381
5382 047132
5383 047136
047136
5384 047144
5385 047152
5386 047154
5387

:LOAD RMMR1

ggnosnuaznoc!oaeusnor.nnnai(RO):LOAD RMMR1

:VERIFY EBL IS NOW RESET

&»

&~
~
o

046772

VIAVIAWLN
WWWNWIWN
AU
YI

VONGWV

uwuwuug

W VIV IV IV IV 1V, 1V )
W
IV, P o ¥ o
R AV
& WA =OVONN

2 066732
3 046740
046746
046750
046754
046760

MOV

S?Z

—b

0
1 046732

000024
000024

g 046730

045501
061501

b rmd

7 046726

012760
012760
005302
001370

00O
(=]

f&fflbbf&w&&

046712
6 046720

o0
0O

1116

000071

001370

MoV

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

#RD'GO RHCS1(R0)

;LOAD RMMR1

:LOAD RMER2
:LOAD RMDA
:LOAD RMDC

:LOAD RMCS1

;MOVE SE:gSNCER10 TSST FOR RUN AND GO AT LOCATION 130 (5 CLOCKS)

000005
141401
041401

MoV

000000

#DMD 'MUR ' MOC ! DBEN ,RMMR1 (R0)
#0,RMER1(R0)
;LOAD RMER1

000024
000024

220$:

MOV

MOV
BNE

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

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

2208

;LOAD RMMR1
RMMR1
:LOAD

-l Y
-

-0

NBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-111
6

SEQ 0206

DATA COMMAND TESTS (1)

5388

5389 047156

016037

5391 047172

001012

5390 047164

5392 047374
5393 047202

042737

012737
010037

000026

137777

040000
001136

001142

;VERIFY RUN AND GO IS SET

MOV

BIC

#*CRG, $BDDAT

001140

MOV
MOV

#RG, SGODAT
RO, $BDADR

EMT
BR

275
2508

BNE

5395 047214
gggg 047216

ADD

104275
000435

5399 047220

012702

000001

0467226

012760

141401

5403 047240
5404 047242

005302
001370

2308:
000024

2408:

NRMMR1, SBDADR

016037

000040

MOV

#1,R2

MOV

#DMD ! MUR MOC ! DBEN! DBCK .RMMR1 (RO)

DEC
BNE

R2
2408

MOV

5402 047°32 012760 041401 000024

gzgz 047244

2308

-VERIFY THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE

5398

5400 047220
5401 047224

;STORE RMMR1 AT $BDDAT

RMMR1 (RO) , SBDDAT

001142

5394 047206 062737 000026 001136

MoV

0011642

#DMD iMUR i MOC i DBEN, RMMRT (RO)

;LOAD RMMR1

;STORE RMMR2 AT $BDDAT

RMMR2 (RO) , SBDDAT

::ttttttttttttttttttttttttttttttttttttttttitt'tttttttttttttttttt'

5407

5408

5409
5410
gz}g

5413 047252
5414

062737

162000

001142

5416

001140
001142

012737
023737

004000
001140

5420 047276
5421 047302
5422 047310

010037
062737
104276

001136
000040

001136

%25% 047312

012737

047326

001124

5427 047320

012702

000144

5429 047324

004737

054732

047332

104000

5417 047260
5418 047266

5419 047274 001406
5423

5426

5428 047324

047330 000402

gzgg 047334

B!
TAG, $BDDAT
#RQA!RQ

BIC

#ROA!RQB'TAG!CH,SBDDAT

;THE FOLLOWING CODE WAS ADDED
:TO ALLOW THE PROGRAM TO RUN WITH
;OR WITHOUT THE ECO TO THE CS BOARD.

;HARDWARE ECO CHANGE CAUSES CC AND
:CH TO SET AT THE SAME
TIME
tttttt

MOV
CMP

#CC,SGDDAT
$GDDAT, SBDDAT

MOV
ADD
EMT

RO, SBDADR
, SBDADR
#RMMR2
276

MOV

#2608 ,SLPERR

BEQ
2508:

2508

;CHANGE LOOP ON ERROR ADDRESS

sVERIFY DATA COMMAND ABORTS AT COMMAND SEQUENCER LOCATIONS 144, 145
:
2608

MOV

#144,R2

SINITIALIZE TEST LOCATION

JSR

PC,SETVV

;60 SET VOLUME VALID

EMT

000553

2708

‘BRANCH TO 2708 !F NO ERROR

3208

-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

5432

5433 047336

5434 047336 012760 041401 000024
5435 047344

BIC

;:ttfittttttttttttttttttttttttttttttlttttttttttttttttttt'ttt

5415

012760

000000

000014

5436 047352 012760 000000 000042
5437 047360 012760 000000 000006
5438 047366 012760 000000 000034

5439 047374 012760 000071 000000
5441

L 16

2708:

MOV

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

MOV
MOV
MOV

#0 RMER2(RO)
#0 RMDA (RO)
#0RMDC (RO)

MOV

#0,RMER1(RO) TM

;LOAD RMER}

:LOAD nnsnz
*LOAD RHDA
*LOADRMDC

#RD'GO,RMCST(RO)’

sWAIT FOR RUN AND GO TO SET

:LOAD RMMR1

:LOAD RMCS1

CZRNBAO RMBO DSKLS Pi1 MACR

T116

DATA COMMAMD TEST

001534

5442 047402
047410
5443 047414
047414
5444 067422
5445 047430
5446 047432
5447 047436
5448 047440
5449 77444
5450 447452
5451 047456
5452 047464
5453 047466

000024

5484

5485 047622
5486 047624
5487 047626
5488 047634
5489 (47640
5490 047646
5491 047650
5492 047654

MOV

RMMR1 (RO) , SBDDAT

290$:

DAT
#*CRG,SBI
2905

BNE
JSR
MOV

2808
PC.asTOPCL
#RG,$GDDAT

EMT
BR

275
3208

CMP

3008

000007

012760

041501

012703

000001

012760
012760
005303
001370

141501

041501

012702

000020

012760

045501
041501
000024
157777

001013

002024
000024

000024

001003

000144

:SET WATCHDOG TIMER VALUE

*START THE CLOCK

;STORE PMMR1 AT $BDDAT

WATCH

:STOP THE CLOCK

RO, $8DADR
#RMMR1, $BDADR
PC,aSTOPCL

sSTOP THE CLOCK

#6,R3

#144,R2

sSETUP CLOCK COUNY

BEQ
MoV

3008
#7,R3

mov

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

BNE

3008

ggg

ggflD'HUR'HOC'DBEN.RMMR1 (RO)

:LOAD RMMR1

sSET DRIVE FAULT TO FORCE ABORT CONDITION
#DMD ! MUR !MOC ! DBEN!MDF,RMMR1 (R0) ;LOAD RMMR1
MoV

;CLOCK SEQUENCER THRQUGH TTS TEST FOR ABORT (1 CLOCK)
000024
000024

3058:

MOV

#1,R3

ggg

:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN ! MDF ! DBCK ,RMMR1(R0)
RMMR1
:LOAD
:gMD!HUR!HOC!DBEN!MDF.RHHR1(RO)

BNE

305%

sISSUE 2 CLOCKS

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO
sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
MOV
#16.,R2
sMAXIMUM NUMBER OF BIT CLOCKS
000024
000024
001142

306$:

MOV

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

MOV

RMMR1(R(O) ,$BDDAT

MOV
BIC

001142

BNE

n05302
020000
001136
000024

JSR

SEQ 0207

sMOVE COHHAND SEQUENCER TO ABORT TEST (LOCATION 144 OR 145)

000006
000144

141401
041401

PC.acLoCx

BIC
BNE

MOV
ADD

001136

132044

047470

5457 047474
5458 047500
5459 067504
5460 047506
5461 047512
047512
5462 047520
5463 047526
5464 047530
5465
5466
5467 047532
5468
5469
5470 047540
5471 047544
047544
5472 047552
5473 047560
5474 047262
5475
5476
5477
5478 047564
5479 047570
047570
5480 047576
5481 047604
5482 047612
5483 047620

#200. ,WA. CH

001140

MOV

JSR

2805

001142
001142

5454 047479

5455
5456

04.00 14=JAN-82 16:33:00 PAGE 13-112

001140

3108:

3108

MOV

#EBL,SGDDAT

MOV
ADD

001136

'“CEBL.‘BDDAT

DEC

BNE

EMT
(MP
BNE

:LOAD RMMR1

#DMD 'MUR 'MOC ! DBEN'MDF , RHHRi(RO) JLOAD RHHR1

306$

RO, SBDADR
'RHHRI $BDADR
271
#144 ,R2
3208

:STORE RMMR1 AT $BDDAT

:BRANCH IF EBL IS SET

;CONTINUE BIT CLOCKS IF COUNT NOT 0

CZR NBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-113

SEQ 0208

DATA COMMAND TESTS (1)

VIV AU VIAWVIAVAIWIVA

9493 047656
5494 0467662
5495
5496 047664
5497
5498
5499 047672
5500 047674
5501 047674
047700
047702
047704

012702
000620

000145

012737

047674 001124

#145,R2
2608

MOV

#3308.SLPERR

;CHANGE LOOP ON ERROR ADDRESS

;VERIFY HEAD TAG DURING DATA COMMAND
R2
CLR
sINITIALIZE TRACK ADDRESS = 0

005002

004737
000402

3208:

MoV
BR

3308:

054732

JSR

B8R

EMT

PC,SETVV

3408

:GO SET VOLUME VALID
sBRANCH TO 3408 IF NO ERROR

400%

(=] (= l=]
H
NN NN
~
NNNNN
o
NNOCONWN
oo N

000310
131554

001534

000024
137777

001142
001142

N
&~

00002¢

000034
000000

:
3508

012703

000021

212760

141401
041401

MOV

JSR

#200. ,WATCH
PC.,acLoCK

MOV
BIC
BNE

O)
, SBDDAT
RMMR1(R
#*CRG,SBDDAT
3608

BNE
JSR

001140

MOV

001136

ADD
EMT
BR

360%:

131476

;LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN ,RMMR1 (RO)
#0,RMER1 (RO)
:LOAD RMER1
#0,RMER2 (RO)
;LOAD RMER2
R2,RMDA(RQ)
sLOAD RMDA
#0 ,RMDC (RO)
sLOAD RMDC
#RD ! GO,RMCS1(RO)
sLOAD RM(CS1

sWAIT FOR RUN A''D GO TO SET

;SET WATCHDOG TIMER VALUE

sSTART THE CLOCK

:STORE RMMR1 AT $BDDAT

WATCH

3508

PC,asSTOPCL
#RG,SGDDAT

MOV

RO, $8DADR

JSR

PC,aSTOPCL

;STOP THE CLOCK

#RMMR1, SBDADR
275
400$

sSTOP THE CLOCK

;STEP CO:SOND SEggENCEg TO HEAD SEQUENCE, LOCATION 156 (17 CLOCKS)
000024
000024

&»H

o
=3
o

004777

MoV
MoV

MOV
MoV
MOV
Mov

01534

b=
=

050036

AT ALLAWAWAVAIWALAL

000024
000014
000042

000505

3 6 050066
3 7 050074
3
3
4
4
4
4

061401
000000
000000
000006
000000
000071

131526

050042
050046
50046
1 050054
2 050062

AMTAN
1V, 1V, ]
[V AV IV AV ANV, 1V, 18, N
NN N
wHWwW
WL —=O00

047750
6

w—nd

VIV
Vil
WA

OWVOO~N

NININININIAIN)
= = b

i
I AW
vauvivuvaivaivioauaiuiaiuiwg

OIS UWN~OVO~NO

i
w

:ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

$408:

000024
000024

3708:

MOV

#DMD 'MUR 'MOC ! DBEN ! DBCK ,RMMR1 (R0O)

ggg

ggflD!HUR!HOC!DBEN.RflflRi(RO)

BNE

3708

:LOAD RMMR1

:DROP AND RAISE ON CYLINDER TO RESET ON LATCH
MOV
MOV

#DMD 'MUR 'DBEN ,RMMR1 (RO) :LOAD RMMR1
:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN ,RMMR1(R0)

;:ttltt*ttttt!*tttttltttttttitfittttttttttttttttttttttttt'tttttttt

Mov

#4508 ,R3

sINITIALIZE TABLE POINTER

:HARDUARE ECO CHANGE TO THE PLA ON THE

SEQ 0209

—h

012703

MoV

000004

O =2
o8

012703

000024
000024

#4 ,R3

*TO RUN WITH OR WITHOUT THE ECO.

3728:

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

#DMD i DBEN | MUR i MOC ,RMMR (RO)
R3
3728

¥475% ,R3

050262

sCLOCK THE SEQUENCER THRU THE FIRST
;4 COMMAND SEQUENCES TO ALLOW THE PROGRAM

;DONE & CLOCKS ?
‘NO 1!

;LOAD RMMR1

:LOAD RMMR1

“INITIALIZE NEW TASLE POINTER

2 1222222222223 3F23 2332332233222 3332024222220 22200 dtdddttiiiidiidtd]

023737

012760

\l%

Al A A ViAW wvivuauvivivaiuviuviivinvaiunaaaviiiawv
N~
0o Co
wnN
W
O NOW
o

65 050162

abd
-

(¥, 1°7,]

0
71 050206

72 050216

062703
005713
100401
000745

77 050220
78 050220
79 050224
80 050230
81 050232

84 £25N234

00 00 00

5 05023«
6 050240
7 050246

8
89 050250
90

NN
O\ONW

000

VLA

00O

050264
0 050266

b
—

BIC
MOV
MOV
SWAB
8IS

001140
1641401
041401

001142

;STORE RMMR2 AT $BDDAT

RMMR2 (RO) , $BDDAT

#ROARQB!TST, $BDDAT
. $GDDAT
(R3)
;GENERATE EXPECTED TAG BUS
R2,R4
R4
R4, $GDDAT

: COMPARE EXPECTED AND RECEIVED TAG BUS DATA

CMP

$GDDAT,SBDDAT

MOV

#DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (R0)

BNE

000024
000024

MOV

908

#DMD MUR i MOC ! DBEN,RMMR T (RO)

;LOAD RMMR1

:LLOAD RMMR1

:ADVANCE TO NEXT TABLE ENTRY
ADD
#2 .R3

000002

TST

BMI
B8R

(rRS)

3808
375¢

§§8§fr TO NEXT TRACK ADDRESS-EXIT LOOP IF DONE
062702

000400
001334

ADD

#TA1,R2

;ADVANCE TRACK ADDRESS

BHI

400$

SYES, EXIT

CMP

B8R

000620

R2,LSTRK

3308

*DONE ALL TRACKS ?

Ssggga ON TAG BUS DURING HEAD SEQUENCE
010037
062737
104276
000440

001136
000040

001136

mov

RO, $BDADR

400$:

5008

ADD
EMT

, SBDADR
#RMMR2
276

:JUMP OVER TABLE

i;e%LE OF TAG BUS DURING HEAD SEQUENCE

92 050252
3 050252

MoV

001140

30’08000

000040
150000
001140

—d

016037
042737
011337
010204
000304
050437

(ol
oo

§¥§§1F' TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2

002000
022000
022000
022090
022000

"
475$:

.WORD

"WORD
"WORD

CH!TAG
CHITAG

"WORD

.WORD
"WORD
"WORD

CH!TAG
CHITAG
CHITAG

;START TABLE HERE FOR HARDWARE ECO CHANGE

mmmmmmwwmmmmmwwmw& OE

)

DATA COMMAND TESTS (1)

44 050102

AN
LA WAWATIAVAIW
WA VTV VALV VAN WVMIWMWVIAWNIVIWIVIVALY
v
Aav i

e A
o

CZR

AO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-114

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-115

SEQ 0210

CATA COMMAND TESTS (1)

1116

LMORD

022000
177777

.MORD

001777

WORD
WORD
"WORD
"WORD
WORD
"WORD
"WORD
"WORD
"WORD
WORD
"WORD
"WORD
WORD
"WORD
"WORD
"WORD
"WORD
WORD
WORD
"WORD
"WORD

1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777

177777

.WORD

;

"WORD

VIV

002000

:END OF TABLE

:END OF TEST

ttttttttttttt*tttttttttttttttttttttttttttQtttttttttlttttttttttt

TRTEST 117

DATA COMMAND TESTS (2)

*tt;t 3222332222223 22222323382333 22833223323 3333332323323333 443328223134 ]
T$T11

aggpe

00110C
001276
001466
000117

:SCOPE CALL

MOV

#STACK, SP

:LOAD THE STACK POINTER

MOV

#117,$TESTN

t:SET TEST NUMBER IN APT MAIL BOX

MOV
MOV

001226

$BASE , RO
TSTQUE ,R1

‘RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE

:VERIFY OPI SETS IF ON CYLINDER LATCH DOESN'T RESET
054732

JSR

PC,SETWV

608

E:r

5637 050410

5638
5639

5640 050412
5641 050412
5642 050420
5643 050426
5644 050434
5645 050442

;END TABLE HERE FO# HARDWARE ECO CHANGE

5008 :

050352

5633
5634
5635
5636 050400
050404
050406

CH!TAG

"WORD

QOO0

Ombu

5601 050270
5602 050272
5603
5604
5605 050274
5600 050276
5607 050300
5608 050302
5609 050304
5610 050306
5611 050310
5612
050312
050314
5613
5614
050316
561
561
0322
5617 050324
5618 050326
5619 050330
5620 050332
5621 050334
5622 050336
5623 050340
5624 050342
5625 050344
5626 050346
5627
5628 050350
5629
5630 050352
5631
5632

10§

;60 SET VOLUME VALID

‘BRANCH TO 108 IF NO ERROR

isgABLE DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDER SEQUENCE
041401

000000

000024

000034

MoV

MOV

MOV
MOV
MOV

#DMD ! MUR ' MOC ! DBEN, RHHR1(R0)

#0.RMER1(RO)

#0 RMER2(RO)
#0 RMDA (RO)
#0_RMDC (RO)

;LOAD RME

:LOAD RHERZ
*LOAD RMDA
*LOAD RMDC

:LOAD RMMR1

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-116
Mz

SEQ 0211

DATA COMMAND TESTS (2)

gzzg 050450
5648

5649 050456
050464

5650 050470

050470

5651 050476
5652 050504
5653 050506
5654 050512
5655 050514
5656 050" Y
5657 05C..o
5658 0505,2
5659 050540
5660 050542
5661 050544

5662 050544

5663

012760

000071

000000

012737

000310

001534

016037

000024

001142

004777
042737
001017
005737
001366
004777
012737
010037
062737
104275
000437

004777

131046

137777

208:

001142

131020
040000
001136
0000264

001140

001136
308:

130770

012702

000023

050554

012760

141401

5667 050570
5668 050572

005302
001370

5670 050602
5671 050610
5672 050612
5673 050620
5674 050524
5675 050632

042737
001011
012737
010037
062737
104277

gg;? 050634

016037

012737

000014

157777

020000
001136
000014

050642

000024

40$:

5679 050642

050650

001140
001136

001124

508:

004737
000402

60$:

054732

104000

5693 050720

050.26
5694 050732

050732

8IC
BNE
TST
BNE
JSR
Mov
MoV
ADD
EMT
BR

#~CRG,$BDDAT
308
WATCH
20$
.
PC,8STOPCL
#RG,SGDDAT
RO, $BDADR
#3IWMR1,$BDADR
275
608

JSR

PC,aSTOPCL

:START THE CLOCK

;STORE RMMR1 AT $BDDAT

sSTOP THE CLOCK

:STOP THE CLOCK

Mov

#19..R2

MoV

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

DEC
BNE

R2
408

BIC
BNE
MoV
MoV
ADD
EMT

MoV

1 (RO)
#DMD i MUR {MOC i DBEN , RMMR
RMER1(RO) ,$BDDAT

#°COP],$BDDAT
508
, SGDDAT
#OPE
RO,$BDADR
#RMER1,$BDADR
2 77

#60S ,SLPERR

JSR
BR

PC,SETWV
708

B8R

1408

EMT

;LOAD RMMR1

:LOAD RMMR1

;STORE RMER1 AT $BDDAT
:BRANCH IF OPI SET
.

;CHANGE LOOP ON ERROR ADDRESS
;GO ScT VOLUME VALID
*BRANCH TO 708 IF NO ERROR

-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

012760
012760

041401
000000

000024
000014

012737

000310

001534

?70$:

5687 050670 012760 000000 000042
5688 050676 012760 000000 000034
5689 050704 012760 000000 000006
2290 050712 012760 000071 000000
5692

PC,aCLOCK

;SET WATCHDOG TIMER VALUE

:VERIFY DATA COMMAND ABORTS DURING SEEK WAIT LOOP

2683

5684 050654

RMMR1(RO) ,$BDDAT

MoV

001142

ggg} 050652 000567
5685 050654
5686 050662

MOV

001142

5678

2680 050642
050646

#200. ,WATCH

;STEP COMMAND SEQUENCER AND VERIFY OPI SETS (19 CLOCKS)

5666 050562 012760 041401 000024

5669 050574

Mov

JSR

:LOAD RMCS1

#RD !GO,RMCS1(RO)

;WAIT FOR RUN AND GO TO SET

001534

5664 050550

5665 050554

Mov

004777

016037

130604

000024

001142

MoV
MOV

MOV
MOV
MOV
MOV

#DMD 'MUR ! MOC ! DBEN ,RMMR1 (R0)
:LOAD RMER1
#0,RMER1 (RO)

#0.RMER2 (RO)
*LOAD RMER2
#0_RMDC (RO)
“LOAD RMDC
*LOAD RMDA
#0.RMDA(RO)
:LOAD RMCS1
#RD'GO,RMCST(RO)”

:WAIT FOR RUN & GO TO SET
20s:

MOV

#200..UATCH

MOV

RMMR1(RO) ,$8DDAT

JSR

:LOAD RMMR1

PC,acLoCK

:SET WATCHDOG TIMER VALUE
*START THE CLOCK

:STORE RMMR1 AT $BDDAT

062737

137777

001142

001534
130556
040000
001136
000024

NN
= = b
Hos~O0N0NN

b
b
b

OCOO0000

b ad wd

001136
90$:

130526

000021

012760

1414601

L=
Y
o

=lelelololel

VIV

VOO NOWVSWNI—=O

004777

012760

0641407

SEQ 0212

000024
000024

000024

1 051064

5722 051066
723
5724
5725 051070
5726 051074
051074
5727 051102
5728 051110
5729 051112
5730
5731
5732 051114
5733
5734
5735 051122
5736 051126
051126
5737 051134
5738 051142
5739 051144
5740
5741
5742
5743 051146
5744 051152
051152
5745 051160

000037

012760

141001

041001

1008 :

012760

000024
000024

1108$:

0641201

012792

000002

012760

141201
041201

JSR

00002«
000024

000024

012760
012760

045501
041501

;STOP THE CLOCK

;LOAD RMMR1
#DMD ' MUR ! MOC ! DBEN! DBCK , RMMR1 (RO)
RMMR1
:LOAD
ngD!HUR!HOC!DBEN.RHHR1(RO)

BNE

1008

MOV

MOV
MOV

;LOAD RMMR1
#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)
1 :LOAD RMMR1
(RO)
#DMD 'MUR i DBEN.RMMR

1208 :

R2
1108

°e

MOV
ggg

:LOAD RMMR1
DBCK
. RMMR1(RO)
#DMD 'MUR ' DBEN!
ggnosnua:oseu.nnnn1(ao> :LOAD RMMR1

BNE

1208

;SET SEEK INCOMPLETE ERROR TO CAUSE ABORT

MOV

000024
000024

130%:

MoV

SE!
BNE

000020

PC,aSTOPCL

#DMD 'MUR ' DBEN'MSER,RMMR1(R0)

;LOAD RMMR1

;CLOCK THE SEQUENCER _THROUGH ITS TEST FOR ABORT (2 CLOCKS)

001370

012702

275
1408

MOV
ggg

DEC
BNE

001370

012760

EMT
8R

:STEP 7“5836" SEEK UA%T LOOP (6 CLOCKS) 2 TIMES

000006
14001
041001

RO, $BDADR
lRHHR1 $BDADR

:STOP THE CLOCK

:DROP ON CYLINDER TO RESET LATCH
#DMD 'MUR'DBEN ,RMMR1(R0O) :LOAD RMMR1
MOV

001370

012702

MOV
ADD

#RG.‘GDDAT

:MOVE COMMAND SEQUENCER TO SEEK WAIT LOOP (31 CLOCKS)

b
b o

RJ)N

20 051056

012702

#*CRG,$BDDAT
90%
WATCH
80%
PC,8STOPCL

;STEP COHSAND ssgg;ncsg TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS)

001370
041001

BIC
BNE
TST
BNE
JSR

MOV

001140

000512

012702

b -t

viavaviuvawa (%,
SNNNNN ~

5704 051004
5705 051006
051006

wViuvn

DATA COMMAND TESTS (2)

5695 050740

\’l

—
b Py

-2

AO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-117

#2,.R2

#DMD ! MUR ! DBEN 'MSER ! DBCK ,RMMR1 (RO)

ggno'nunlossu'nsea'RMMRI(RO)

:LOAD RMMR1

;LOAD RMMR1

1308

:ABORT EBL SHOULD NOW BE ACTIVE =~ USE THE MAINTENANCE REGISTER TO
*FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
355
MOV
6. ,R2
MAXIMUM NUMBER OF BIT CLOCKS
000024
000024

MoV

#DHD'HUR'HOC'DBEN'HDF'HCLK RMMR1(R0)

;LOAD RMMR1

#DMD | MUR i MOC i DBEN MDF ,RMMRT (R0) :LOAD RMMR1

—_—

DATA COMMAND TESTS (2)

5746 051166
5747 051174
5748 051202

016037
042737
001013

5750 051204
5751 051206
752 051210
5753 051216
5754 051222
5755 051230
2559 051232

005302
001361
012737
010037

5749

5758
5759
5760 (51240

062737
10430C
012737

004737

05124€
€762 051250

104000
000536

5763
5764

020000
001136
000024

001136

051240

001124

000000
000000

5769 051266
051272
051274
5770 051276

004737
000402
104000
000523

055054

1408:

000006
000034

Mov

#EBL ,SGDDAT
RO, $BDADR

;STORE RMMR1 AT $BDDAT

sCONTINUE BIT CLOCKS IF COUNT NOT O

ISHMR1.$BDADR
3
#1508,SLPERR

JSR

PC,SETVV

2208

1608

MoV
Mov

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

JSR

PC,SETOM

2208

ggr

:CHANGE LOOP ON ERROR ADDRESS

;G0 SET VOLUME VALID

*BRANCH Tu 1608 IF NO ERROR

170s

:LOAD RMDA

sLOAD RMD(

;GC SET OFFSET MODE

*BRANCH TO 1708 IF NO ERROR

;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

041401
000000
000000
000071

(00024
000014
000042
000000

5780 051330

012737

000310

001534

016037
042737

900024
137777

001142
001142

5784 051360

y05737

001534

5786 051356
5787 051372
5788 051400
5789 051404
5790 051412
5791 051414
5792 051416
051416

004777
012737
010037
062737
104275
000454

130146
040000
001140
000024

004777

130116

012702

000021

5795 051422

R2
135$

E:r

012760
012760
012760
012760

DEC
BNE

ADD

isos:

5774 051300
5775 051306
5776 051314
5777 051322

051336
5781 051342
051342
5782 051350

RMMR1(RO) ,$BDDAT
#*~CEBL ,$BDDAT
1408

i%géb TRACK, SECTOR AND CYLINDER ADDRESSES

012760
012760

g?;B

MOV
BIC
BNE

MoV
MOV

001140

054732

5765 051252
5766 051252
g;gg 051260

5771
5772
5773 051300

001142
001142

:VERIFY 22§QTC°""A"° ABORTS DURING OFFSET IF ON CYLINDER LATCH
:DOESNT

5761 051240

051244

000024
157777

004777

130174

170s:

MOV
MOV

MoV
MOV

#DMD ! MUR ! MOC ! DBEN,RMMR1 (R0)
;(OAD RMER1
#0,RMER1(RO)

#0,RMER2 (RO)
:LOAD RMER2
#RD
! GO,RMCS1(RO)
;LOAD RMCS1

sWAIT FOR RUN AND GO TO SET
1808:

MoV

JSR

#200. ,WATCH
PC,aCLOCK

MoV

RMMR1 (RO) ,$BDDAT

(091140
)
00:1136
:
1908

sSET WATCHDOG TIMER VALUE
¢START THE CLOCK

;STORE RMMR1 AT S$BDDAT

8IC
BNE
TST

#*CRG,$BDDAT
190%
WATCH

:STOP THE CLOCK

MOV
ADD

PC,aSTOPCL
#RG,SGDDAT
RO,SGDDAT
#RMMR1,$BDADR

JSR

PC,aSTOPCL

:STOP THE CLOCK

BNE
JSR
MoV

EMT
BR

;LOAD RMMR1

1808

275
2208

;STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATIiON 156 (17 CLOCKS)
Mov

#17..R2

‘Y]

SEQ 0213

%?;BAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-118

CZR NBAO RM80 DSKLS PT1 MACRO V04.00
DATA COMMAND TESTS (2)
TM 7

5796 051426
051426
5797 051434
5798 051442
5799 051444

14~JAN-82 16:33:00 PAGE 13-119

000024
000024

012760

:
2008

MOV

]

SEQ 0214

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

ggg

:gnosnuasnocsoasn.nnnai(RO)

BNE

2008

:LOAD RMMR1

:DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST

J\J\WWNN—lg
NSO
NS

b
b
o
b e
b
b
b

iAW

(elelelalelolele]

5803 051446
5804 051454
5805
5806
5807 051462
5808 051466
0514666
5809 051474
5810 051502
5811 051504

041001
041401

000024
000024

7+0s

MOV

mov

001370
016037

012737

000014
157777

001142
001142

020000
001136
000014

001140

#DMD 'MUR ' DBEN,RMMR1(R0) ;LOAD RMMR1
:LOAD RMMR1
#DMD ! MUR | DBEN 'MOC , RMMR1 (RO)

051554

001124

#39. ,R2

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

ggg

ggnosnualoaeuznoc.annn1(RO)

ENE

210$

;VERIFY OP] IS SET
RMER1(RO) ,$BDDAT
MOVv

001136

2208:

BIL
BNE
MoV
MOV
ADD
EMT

MOV

#-COPI,$BDDAT
2208
#0P1,$GDDAY
RO,$BDADR
#RMER1,$60ADR
277

#2308 ,SLPERR

;LOAD RMMR1

:LOAD RMMR1

;STORE RMER1 AT $BDDAT

;CHANGE LOOP ON ERROR ADDRESS

;VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP

5824

5825 051554
051554
051560
051562
5826 051564
5827
5828
5829 051570
5830 051570
5831 051576
5832
5833 051604
051610
051612
5834 051614
5835
5836
5837 051616
051616
5838 051624
5839 051632
5840 051640
5841
5842
5843 051646
051654

MoV
MOV

:MOVE SEQUENCER TO SET OPI AND EBL (39 CLOCKS)

000047
14160
041401

;AT LOCATION 166

004737

054732

000137

052174

230$:

JSR

PC,SETVV

Ezr

2408

JMP

3108

:GO SET VOLUME VALID

*BRANCH TO 240% IF NO ERROR

5282? SECTOR, TRACK AND CYLINDER ADDRESS
012760
012760

000000
000000

004737

055054

000006
0CJ034

mov

#0 ,RMDA (RO)

JSR

PC,SETOM

3108

MOV

Efir

#0_RMDC (RO}

2458

:LOAD RMDA
*LOAD RMDC

:GO SET OFFSET MODE

*BRANCH TO 245$ IF NO ERROR

ézgéqLE DEBUG CLOCK AND LOAD DATA COMMAND
060024
000000

001534

MoV

MOV
MOV
MOV

#DMD ' MUR ' MOC ! DBEN, RMMR1 (R0)

:LOAD RMER1
#0.RMER1(RO)
:LOAD RMER2
#0 RMER2(RO)
;LOAD RMCS1
#RD'GO,RMCS1(RO)

;WAIT FOR RUN AND GO TO SET
MoV
JSR

:LOAD RMMR1

#200. ,WATCH
PC,aCLOCK

sSET WATCHDOG TIMER VALUE
sSTART THE CLOCK

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-120
117

SEQ 0215

DATA COMMAND TESTS (2)

5844 051660

051660

016037

000024

5847 051676

005737

001534

5845 051666
5846 051674

5848 051702
5849 051704
5850 051710

042737
001017

007366
004777
012737

137777

001140

5855 051734

062737
104275
000520

000024

001136

5857
5858 051740

012702

000021

051744
5860 051752

012760
01276C

141401
041401

5859 051744

5861 051760
3862 051762

005302
001370

MOV

2608:

sas 051734 004777 127600

MOV

BIC
BNE
TST
BNE
JSR
MOV

001142

127630
040000

5851 051716 010037 001136
5852 051722
58535 051730
5854 051732

0011642

2508:

ADD
EMT
BR

JSR

RMMR1(RO) SBDDAT
#°CRG,SBDDAT
2608
WATCH
2508
PC,aSTOPCL
#RG,SGDDAT

:STORE RMMR1 AT $BDDAT

:STOP THE CLOCK

RO, $BDADR

ARMMR1,SBDADR
275
3108

PC,asTOPCL

:STOP THE CLOCK

:STEP SEQUENCER TO_LOCATION 156 (17 CLOCKS)
#17.,R2
MOV

000024
000024

2708:

MOV
MOV
DEC
BNE

:LOAD RMMR1
#DMD!MUR!MOC!DBEN!DBCK ,RMMR1(RO)
RMMRI
:LOAD
~
RO)
iDBEN.RMMRT(
#DMDiMURIMOC
R2
2708

;DROP ON_CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST

5864

5865

5866 051764
3867 051772
5869

012760
012760

041001
041401

5870 052000

012702

000045

052004
5872 052012

012760
012760

141401
041401

5871 052004

5873 052020
3874 (52022

005302
001370

000024
000024

3877 052024 012760 041001 000024
5880 052032

012702

000007

052036

012760

141001

5883 052052
3884 052054

005302
001370

5881 052036

MOV
MOV

2808:

3887 052056

5889

5890 052064
5891 052070

012760
012702

052070

012760

5893 052104
5894 052106

005302
001370

041101
000002
)

141101

174 (37 CLOCKS)

MOV

#37.,

MOV
MOV

:LOAD RMMR1
R1
#DMD!MUR!MOC!DBEN!DBCK,RMM(RO)
#DMDiMURIMOCiDBEN.RMMRT(RO) ~ :LOAD RMMRI

DEC
BNE

R2
2808

:DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER RESET

MOV

#DMD!MUR!DBEN,RMART(RO) :LOAD RMMRI

;STEP SEQUENCER THROUGH OFFSET WAJT LOOP TWICE (7 CLOCKS)

000024

2908:

000024

MOV

..R2

MOV

ADMD!MUR!DBEN'!DBCK RMMR1(RO)

DEC
BNE

R2
2908

MOV

5882 052044 012760 041001 000024

5886

#DMD!MUR!DBEN,RMMR1(R0) :LOAD RMMR1
;LOAD RMMR1
#DMD!MURIMOC'DBEN.RMMR1(R0)

;MOVE SEQUENCER TO_LOCATION

5876

5879

AT LOCATION 166

:SET DRIVE FAULT TO CAUSE ABORT CONDITION

MOV

;LOAD RMMR1

#DMDIMUR!DBEN.RMMRT(RO) ;LOAD RMART
A#DMD!MUR!DBEN'MDF ,RMMR1(R0)

;LOAD RMMR1

:STEP SEQUENCER THROUGH 1TS TEST FOR ABORT (2 CLOCKS)

000024

5892 052076 012760 041101 000024

3008:

MOV

MOV
DEC
BNE

#2.R2

!DBCK ,RMMR1(RO)
#DMD!MUR!DBEN!MDF

#DMDIMURIDBEN!MDF ,RMMRT(x0)
R
3008

:LOAD RMMR1

;LOAD RMMR1

SEQ 0216

OO0

—d emd b el = b
S NAN
— — =
HOONS SO
-— b el amd b
NS
ONOOT

O
o

O0O00O0O

DATA COMMAND TESTS (2)

g
-

'y
]

NBAO RM80 DSKLS PT1 MACRO_V04.00 14-JAN-82 16:33:00 PAGE 13-121

590
5909 052164
5910 052172
5911

5912 052174
5913
5914
5915

5916 052202
052202
052206
052210
9917 052212
5918
5919
5920 052216
5921 052216
5922 052224
5923 052232
5924 052240
5925 052246
5926 052254
5927
5928
5929 052262
052270
5930 052274
052274
5931 052302
5932 052310
5933 052312
5934 052316
5935 052320
5936 052324
5937 052332
5938 052336
5939 052344
5940 052346
5941 052350
052350
5942
5943
5944 052354

012702

000020

012760

0645501
041501
000024
157777

001013

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO
sFORCE BaT CLOsz AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
;MAXIMUM NUMBER OF BIT CLOCKS
16. .R2
ov
3055

000024
000024
001142
001142

005302

104271

012737

020000
001136
00002¢

001140

052202

001124

mov

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

8IC
BNE

#~CEBL, $BODAT
3108

MOV
MOV
DEC

MOV
MOV
ADD

#EBL,$GDDAT
RO, $BDADR
#RMMR1, SBDADR

MOV

#3208,$LPERR

BNE

001136

EMT

3108:

:LOAD RMMR1

#DMD | MUR i MOC | DBEN ! MDF _RMMRT (RO) ;LOAD RMMR1
SSTORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBODAT

305$

;CONTINUE BIT CLOCKS IF COUNT NOT 0

271

;CHANGE LOOP ON ERROR ADDRESS

:VERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAIT LOOP AT LOCATION 179
004737
000403

3208:

054732

JSR

PC,SETVV

JMP

4208

ggr
‘

052640

230s

;G0 SET VOLUME VALID

*BRANCH TO 3308 IF NO ERROR

§§g§§LE DEBUG CLOCK AND LUAD DATA COMMAND
041401
000000
000000
000000
000000
000071

000024
000014
000042
000006
000034
000000

000310

001534

000024
137777

001142
001142

127242

MoV

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

MOV
MOV

#0 RMER2(RO)
#0_RMDA (RO)

MOV

000534

004777
012702

127164

000021

;LOAD RMER1

#0RMDC (RO)

*LOAD RMDC

3408:

JSR

>LOAD RMER2
*LOAD RMDA

#RD!GO,RMCS1(RO)

SWAIT FO:ORUN
AND GO TO SET

#200. ,WATCH
PC,acLoCK

RMMR1(RO) , SBDDAT

#~CRG,SBDDAT

:LOAD RMCS1

;SET WATCHDOG TIMER VALUE

*START THE CLOCK

;STORE RMMR1 AT $BDDAT

3508

001534
127214
040000
001136
000024

#0.RMZR1(R0)~

WATCH

3408
PC.aSTOPCL

#RG,SGDDAT

001140

;STOP THE CLOCK

RO, $BDADR
#RMMR1, SRDADR

001136

275
4208

3508:

PC,aSTOPCL

;STOP THE CLOCK

sSTEP SEQUENCER ;0 LOCATION 156 (17 CLOCKS)
MoV

;LOAD RMMR1

NBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-122
7

SEQ 0217

DATA COMMAND TESTS (2)

5945 052360
0 52360
5946 052366
5947 052374
5948 052376
5949
5950
5951
5952 052400
5953
5954
5955 052406
5956 052412
052412
5957 052420
5958 052426
5959 052430

5963 052432
5964 052436
052436
5965 052444
5966 052452
5967 052460
5968 052466
5969 052470
5970 052472
5971 052474
5972 052476
5973 052504
5974 052510
5975 052516
5976 052520
5977
5978
5979 052522
052522
5980
5981
5982 052530
5983 052534
052534
5984 052542
5985 052550
2886 052552
5989
5990 052554
5991 052560
052560
5992 052566
5993
5994
5995 052574

161401

061401

000024
000024

3608:
MOV

DEC
BNE

:LOAD RMMR1
#DMD ! MUR !MOC ! DBEN! DBCK ,RMMR1 (RO)
#gHD!HUR!HOC!DBEN.RMMR1(RO)
:LOAD RMMR1
R

3608

;:DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST
012760

041001

012702

000042

012760

1614601

041401

000024

;AT LOCATION 166
MOV

#DMD !MUR ! DBEN,RMMR1(RO) ;LOAD RMMR1

;MOVE SEQUENCER TO SECTOR WAIT (34 CLOCKS)
MoV

:LOAD RMMR1
#DMD !MUR !MOC ! DBEN!DBCK ,RMMR1(R0)
#DMD ! MUR ! MOC ! DBEN ,RMMR1 (R0)
:LOAD RMMR1

000024
000024

3708

001370

012702

000006

012760

141401
041401
000024
173777

004000
001136
000024

:STEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED
:DURING THE LOOP (6 CLOCKS)
000024
000024
001142
001142

001140

380%:

:
3908

001136

MOV

MoV
MoV
MOV

8IC
BEQ
DEC
BNE
BR

Mov
MOV
ADD

EMT
BR

000447

;LOAD RMMR1
:LOAD RMMR1
;STORE RMMR1 AT $B8DDAT

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

#DMD | MUR iMOC ! DBEN ,RMMRT (R0)
(RO) , SBODAT
RMMR1
#*CESRC,$BDDAT

3908

3808

4008
#ESRC,SGDDAT
RO,$BDADR
#RMMR1,$BDADR
301

4208

:SET DRIVE FAULT TO CAUSE ABORT CONDITION

012760

041501

012702

000002

012760

141501
0641501

000024

4008:

000024
000024

4108:

000020

012760
012760

045501
041501

000024

MOV
MOV
DEC

BNE

012702

#DMD ! MUR ! MOC ! DBEN!MDF ,RMMR1 (RO) 4LOAD RMIR1

:STEP SEggSNCER THROgGH ITS TEST FOR ABORT (2 CLOCKS)

001370

016037

MOV

;LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN : MDF ! DBCK ,RMMR1 {R0)
RMMR1
:LOAD
RO)
ggHD!HUR!HOC!DBEN!MDF.RMNR](
4108

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO
sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
000024
000024
001142

415%:

MOV

#6. R

sMAXIMUM NUMBER OF BIT CLOCKS

Mov
MoV

!MCLK ,RMMR1(R0)
#DMD ! MUR ! MOC ! DBEN!MDF

:LOAD RMMR1

#DMD | MUR iMOC i DBEN ! MDF ,RMMR{ (RO) ;LOAD RMMR1

JVERIFY EBL IS S ET
RMMR1(RO) ,$BDDAT
MoV

;STORE RMMR1 AT $BDDAT

mn1

CZRNBAO RM80 DSKLS P11 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-123
17

DATA COMMAND TESTS (2)

5996 052602
gggg 052610

0642737
001013

5999 052612

005302

6000 052614 001361
6001 052616

6002 052624
6003 052630
gggg 052636

012737

010037
062737
104271

157777

020000

001136
000024

001142

BIC
BNE

#~CEBL ,$BDDAT
4208

DEC

MOV

#EBL ,$GDDAT

BNE

001140

MOV
ADD
EMT

001136

:CONTINUE BIT CLOCKS IF COUNT NOT 0O

415%

RO,$BDADR
#RMMR1,$BDADR
271
:END OF TEST

420%:

2889 052640

fitttttttttttttttttttttttttttttttttittfittttttttttttttttttttttttt

6008

*Tc:T 120

052640

T120

052640

000004

052644
052650

012706
013700

001100
001276

6009 052660

012737

000120

052642

000240

052654 013701 001466

AR AR

AR ARRNRANARANNANANARARARRRERARRE

;SCOPE CALL

MOV
MOV

#STACK ,SP
$BASE RO

LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

MOV

#120,8TESTN

..SET TFST NUMBER IN APT MAIL BOX

MOV

001226

DATA COMMAND TESTS (3)

SCOPE

NOP

R1 POINTER TO DEVICE

TSTQUE ,R1

:VERIFY THE TAG BUS DURING DATA COMMAND

6010
28}5

FIRST PART USES OFFSET FORWARD

6013
6014 052666
6015 052674
6016 052702
6017 052710
6018 052775

012737
013737
112737
012737
012737

001060
001334
000035
000200
000071

001446
001420
001420
001444
001412

285? 052732

012737

104536

001416

6019 052724 012737 177400 001414
6022
2852 052740
6025
6026
ggsg 052744

6029
6030 052752

004737
112737
004737

JLOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER
:LAST CYLINDER
#560. ,RMDCO
MOV
SET LAST TRACK AND
LSTRK ,RMDAO
MOV
LAST SECTOR
l29..RHDAO
MOVB
:FORUARD OFFSET
#OFD ,RMOFO
MOV
;READ DATA
#RD'GO RMCS10
MOV

MOV

l-256..RHUCO

#BUFFER,RMBAO

000000

:SECOND PART USES OFFSET REVERSE
*LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER
;REVERSE OFFSET
#0,RMOFO
MOVB

052762

001444

:EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE
PC,108
JSR

JMP

300s

AR EAAARRR AR SRS AR AR LR AR E A AR RS AR PP AN RN RAFRF AR AR CR RS AN NS

SUBROUTINE USED DURING TEST

6034

TRRRARARRRRRAA AR

6832

60>

6038 052762

004737

052766 000403
052770

6039 052772

104000

000137

;BUFFER ADDRESS

052762

6033

6037 052762

:WORD COUNT

:FXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE
PC,108
JSR

ggg; 052756 000137 054046

6040

SEQ 0218

054732
053664

108:

JSR

EMT

JMP

PC,SETVV

208

160%

AN R AN

RAR AR AP RRRRERRRRRANRNRRRRS

;G0 SET VOLUME VALID

*BRANCH TO 208 IF NO ERROR

SEQ 0219

CZRNBAO RMS) DSKi.S PT1 MACRO_V04.0C 14-JAN-82 16:33:00 PAGE 13-124
1120

DATA COMMAND TELTS (3)

6041

6042 052776

6043 052776
6044 053006
2822 053012

013760
013760
013760

001420
001446
001444

6047 053020
053024

004737
000403

2823 053030

000137

053026

104000

000006
000034
000032

MOV

RMOFO.RMOF (RO)

:LOAD RMOF

055054

JSR
BR

PC,SETOM
30§

;G0 SET OFFSET MODE
*BRANCH TO 308 IF NO ERROR

053664

JMP

1608

EMT

-LOAD BUTFER ADDRESS AND WORD COUNT

6050

6051 053034

6052 053034
2853 053042

013760
013760

001414
001416

000002
000004

6055

6056 053050 012760 041401 000024
6057 053056

-LOAD TRACK, SECTOR AND CYLINDER ADDRESS, LOAD OFFSET
208:
RMDAO,RMDA(RO) ;LOAD RMDA
MOV
RMDCO.RMDC(RO) :LOAD RMDC
MOV

012760

000000

000014

012737

000310

001534

50s:

6062 053100

053106

6063 053112

053112

6064 053120
6065 05312¢
6066 053130
6067 053134
6068 053136
6069 053142
6070 053150
6071 053154
6072 053162
6073 053164
6074 053170
053170

004777

016037

042737
001020
005737
001366
004777
012737
010037
062737
104275
000137

004777

126724

000026

137777

001142

nov

MOV
MOV

MOV

:
408

001142

00114¢
001136

053664

508:

126344

2872 053174 012704 053666

6077

001142

6082 053212

013737

001142

001174

6086 053296
6087 053234

042737
022737
001414

171777
006005

0117I
01 74

04273,
012437

150000
001140

6089

6090 053236
6091 053244

d —\

000040

016037

6083
6084
685 053220

#DMD ' MUR TMOC ! DBEN, R¥MR1 (R0)
#0,RMER1(RO)

;LOAD RMER1

MOV

:LOAD RMMP1

:LOAD RMER2
#U.RMER2(RO)
;LOAD RMCS1
RMCS10,RMCST(RO)
#200. ,WATCH
PC,aCLOCK

:SET WATCHDOG TIMER VALUE
*START THE CLOCK

:STORE RMMR1 AT SBDDAT

RMMR1 (RO) , SEDDAT

BIC
BNE
ST
BNE
JSR
MOV
MOV
ADD
EMT
JMP

#~CRG,SBDDAT
508
WATCH
408
PC,aSTOPCL
#RG,SGDDAT
RO, $8DADR
#RMMR1, SBDADR
275
1608

JSR

PC,aSTOPCL

#2008 R4

:STOP THE ‘CLOCK

:STOP THE CLOCK

‘R4 = TABLE POINTER

sSTEP SEQUENCER ;O HEAg SEQUENCE aT LOCATION 156 (17 CLOCKS)

£C0021

6081

JSR

MOV

012705

6078 053200
6079 053204
053204

,LOAD RMWC
:LOAD RMBA

;WAIT FOR RUN AND GO TO SET

001534

126376
040000
001136
000024

RMWCO,RMWC(RO)
RMBAO. RMBA(RO)

:ENABLE oseuc CLOCK AND LOAD DATA COMMAND

6058 053064 012760 000000 000042
2823 053072 013760 001412 000000

6061

MOV
MOV

60$:

5 = CLOCK COUNT

MOV

:STCRE RMMR2 AT $BDDAT

RMMR2 (RO) ,SBDDAT

ttttltttttttttttttittttttittttttt*fifittfittttttltttttttttttlttttt

sIF CC AND CH ARE SET AT THE SAME TIME

MOV

$8DDAT,$TMPO

8IC
CMP
BEQ

#°C<CC!CH>,STMPO

8IC
MOV

#RQA!RQB!TST,$BDDAT
(R4) +,$GDDAT

#CC!CH,$MPO
65$

:THE ECO TO THE CS BOARD IS IMPLEMENTCD.
:SAVE (C AND CH BITS

ARE CC AND CH SET

YES, BRANCH TO NEU LOCATION

:;ttttttttttt!t!fi'tttt't"ttttt'ttttttttttt't.ittttttttttttttttt.

001142

CZRNBAO RM80 DSKLS FT1 MACRO_VO04.00 14-JAN-82 16:33:00 PAGE 13-125

SEQ 0220

JATA COMMAND TESTS (3)

1120

6092 053250
6093 053256
6094 053284
6395 053266
6096 053266
6097 053274
6098 053302
6099 053304
6100 053306
6101 053310
6102 053314
6103 053322
6104 053324

053737
023737
001011

8IS
CMP
BNE

658

012760

001136

708:

Mov

RMDCO,$GDDAT
$GDDAT,SBDDAT
708

:;OR CYLINDER ADDRESS

;BRANCH IF TAG BUS WRONG

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

ggg

ngD!HUR!HOC!DBEN.RMHRf(RO)

BNE

608

MOV
ADD
EMT
BR

RO, $BDADR
2
, SBDADR
#RMMR
276
1608

B8R

;LOAD RMMR1

:LOAD RMMR1

808

:DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT

é52cmo~ 166

SN
=

=000~ o

b wd ch ==b b

b b
NN

b e

ooccooororO
O

b ek

e
b wnd

CONONON

6108 053326
6109 053326
6110 053334
053342
053346
053346

MOV

000024
000024

012705

000045

016037

000040

(RO) ;LOAD RMMR1
D
'MUR ! DBEN,RMMR1
#DM

#DMD i MUR i MOC ! DBEN, RMMR1 (RC)

:LOAD RMMR1

:STEP SEQUENCER TO END OF OFFSET AT LOCATION 174 (37 CLOCKS)

%08

001142

053354

013737

001142

001174

053362

042737
022737
001003

171777
006000

0011
0011

162704
000441

MOV

000002

MOV

#37..RS

MoV

RMMR2 (RO) , SBDDAT

:RELOAD CLOCK COUNT

:STORE RMMR2 AT $BDDAT

tttttttttttttttttttitttttt'ttttttttttt*tttttttttttttttttttttttt

028

:IF CC AND CH ARE SET AT SAME TIME

MOV

$BDDAT,STMPO

BIC
CMP

:SAVE CC AND CH BITS
#2C<CC ! CH>, STMPO
CH SET ?
AND
CC
:ARE
#CC'CH.STMPO

115s

BNE
SuB

928
#2 R4

*THE ECO TO THE CS BOARD IS IMPLEMENTED.

*NO !!
*ADJUST THE TABLE ADDRESS

$TO OTHER LOCATION

;:ttitttttttt*tttttttttttftttttttttttfitttttttttttittttfitttt*ttttt

6 47

000010
000200
000010
000004

MoV

BEQ
8IT

BEQ

#RQA'RQGB!TST,$BDDAT
(R4) ,$GDDAT

110$

:BRANCH IF CONTROL/HEADER NOT ON

100$

:BRANCH IF HEADER TAG

#CC, (RG)

;CONTROL TAG SHOULD BE ON- SETUP EXPECTED OFFSET
sASSUME OFD IS NOT SET
#8803 ,$GDDAT
8

95%:

BIT

gg;b,RMOFO

8IC
8IS
B8R

#8803, $GDDAT
#8802, $GDDAT
1108

;RESET BUS BIT 3 - DIRECTION IS REV

:HEADER TAG SHOULD BE ON = SETUP EXPECTED TRACK ADDRESS

6136 053434
6137 053442
6138 053450
6139 053452
6 140 053460
6 141 053466
6 142
61143
44 0 053470
6 144
6 145 053470
4 60 53474
¢}

Py
N

BIC

001142

004000

prhry

6133 053432

150000
001140
002000

[=3=4
(=] =)

062737

100s

MOVB
BIS

RMDAO+1,R3
R3,SGDDAT

:GET TRACK

CZRNBAO RM80 DSKLS PT1 MACRO_V04.00 14=-JAN-82 16:33:00 PAGE 13-126

SEQ 0221

DATA COMMAND TESTS (3)

1120

- COMPARE EXPECTED AND RECEIVED TAG BUS DATA

6149 053500

023737
001013

001140

001142

6153 053510 012760

141401

000024

6155 053524
6156 053530
6157 053532

062704
005305
001305

000002

6159 053536
6160 053542
6161 053550
2}2% 053552

010037
062737
104276
000444

001136
000040

6150 053500
6151 053506

6152 053510

110s:
115$:

001136

6166 053554

1208:

012760

041001

000024

150$:

g}gg 053562 012760 041401 000024
6170
6171 053570

012705

000010

6173 053574

0°6037

000040

6172 053574

MOV

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

ADD
DEC
BNE

#2.Ré
RS
908

MOV
ADD
EMT
BR

RO, $BDADR
2
, SBDADR
NRMMR?
276
1608

B8R

#DMD | MUR i MOC i DBEN , RMMR1 (R0)

;LOAD RMMR1

:LOAD RMMR1

:MOVE TABLE POINTER
*DECREMENT CLOCK COUNT

1308

:DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT
SEQUENCER LOCATION 175

6164
6165

6167 053554

3GDDAT,$BDDAT
1208

MOV

6154 053516 012760 041401 000024

6158 053534 000407

CMP
BNE

MOV

1 ;LOAD RMMR1
(R0)
#DMD 'MUR ' DBEN,RMMR

#DMD ! MUR i MOC ! DBEN,RMMR1 (R0)

1 0AD RMMR1

;STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS)
..RS
MOV

001142

1408:

MOV

:STORE RMMR2 AT $BDDAT

RMMR2 (RO) , SBDDAT

61 71.

. :ttttttttttttttttttttt'tttttttttttttttttttttttttttttt 123222222322 4]

6176
6177

;THE FOLLOWING CODE WAS ADDED
;7O ALLOW THE PROGRAM TO RUN WITH

6175

g};g

6180 053602
6181 053610
61 8%

618

6184 053616
6185 053624

6186 053626

042737
012737

171777
006000

001142
001140

023737
001011

001140

001142

141401

000024

012760

005305
001353
000406
010037
062737
104276

g}gg 053664

000207

6198 053666

001136

:OR WITHOUT ECO TO THE CS BOARD.

BIC
MOV

:SAVE CC AND CH BITS
#4C<CC'CH>, SBDDAT
;GET EXPECTED DATA
#CC'CH,SGDDAT

CMP
BNE

$GDDAT,$BDDAT
1508

MOV

:GOOD DATA SAME AS LAST CMP
*BRANCH IF ERROR

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

MOV

#DMD | MUR i MOC | DBEN , RMMR T (RO)

1508:

DEC
BNE
BR
MOV
APD
EMT

1608:

RTS

RS
1408
1608
RO, $BDADR
, SBDADR
ARMMR?2
276

-TABLE OF TAG BUS CONTROL AND DATA VALUES

6197

6199 053666
6200 053670
6201 053672
02 053674
6203 053676

001136
000040

#ROA'RQB'!TST,$BDDAT

. . tttttttttttttttttttttt'tttttttttttttttttttttttttttttttttttttttt

6187 053634 012763 041401 000024

6188 053642
6189 053644
6190 053646
6191 053650
6192 053654
g}gz 053662

BIC

001777
001777
001777
001777
001777

2008

.MORD
WORD
"WORD
"WORD
WORD

1777
1777
1777
1777
1777

:LOCATION 0
*LOCATICON 25
*LOCATION 26
*LOCATION 128
*LOCATION 129

:LOAD RMMR1

;LOAD RMMR1

DATA COMMAND TESTS (3)

6224 053750
6225 053752

002000
002000

.WORD
WORD

6205 053702
6206 053704
6207 053706
6208 053710
6209 053712
6210 053714
6211 053716
6212 053720
6213 053722
6214 053724
6215 053726
6216 053730
6217 053732
6218 053734
6219 053736
6220 053740
6221 053742
6222 053744
6223 053746

6226 053754
6227 053756
6228 053760
6229 053762
6230 053764
6231 053766
6232 053770
6233 053772
6234 053774
6235 053776
6236 054000
6237 054002
6238 054004
6239 054006
6240 054010
6241 054012
6242 054014
6243 054016
6244 054020
6245 054022
6246 054026
6247 054026

6248 054030
49 054032
6250 054034
6251 054036
6252 054040
6253 054042
gggg 054044

6256 054046

004000
004000
024000
024000
024000
024000
024000
024000
004000
004000
001777
002000
002000
022000
022000
022000
022000
022000
022000

001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777
001777

(C
CC
CC!TAG
CC!TAG
CC!TAG
CC!TAG
CC!TAG
CC!TAG
CC
C(
1777
CH
(CH
CH!TAG
CH!TAG
CH!TAG
CH!TAG
CH!TAG
CH!/AG

.WORD
WORD
WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.WORD
WORD
JWORD
LWORD
.WORD
WORD
.WORD
.WORD
WORD
.WORD
.WORD

1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777

+WORD
.WORD
.WORD
+WORD
WORD
.WORD
.WORD

006000
006000
026000
026000
026000
026000
026000

3008:

1777

WORD
MWORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
LWORD

CH
CH

CC!CH
CCICH
CC!CH!TAG
CC!CH!TAG
CCI!CH!TAG
CC!CH!TAG
CC!CH!TAG

sLGCATION
sLOCATION
¢LOCATION
sLOCATICYN
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION
cLOCATION
sLOCATION
sLOCATION
SLOCATION
sLOCATION
sLOCATION
sLOCATION
sLOCATION

sLOCATION
sLOCATION
LOCATION

:LOCATION 2

NN =2 OV NONWNESO

.WORD

W= O OO0 NON

001777

N =2 OO0 NOMN B NN

62064 053700

b b e e e
b e —d
NINAVNLNINININININ)
= —b b b b b e b cmd o e i
S
W0
&5 8 NN
NN ONONONoo wawwnwnmwanwanesS

1120

SEQ 0225——]

)

:LOCATION 243
LOCATION 244

;LOCATION 245

:LOCATION 246

;LOCATION 247
sLOCATION 248
;LOCATION 249
;LOCATION 250
;LOCATION 251
;LOCATION 252
sLOCATION 166
;LOCATION 169
sLOCATION 170
:LOCATION 171
sLOCATION 172
;LOCATION 173
;LOCATION 174
;LOCATION 175,E7C
;END OF TEST

CZRNBAO RMB0 DSKLS PT1 MACRO_V04.00 14-JAN-82 16:33:00 PAGE 13-127

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 14

SEQ 0223

END OF SUB-PASS ROUTINE
NO VNS LN —=OVO~NONWN
S W=

.SBTTL

END OF SUB-PASS ROUTINE

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

$EOSP:

b b

000004

b b cad = cd cd i

001466
000002
001466

MOV
ADD
MOV

TSTQUE,RO
#2,R0
RO TSTQUE

:GET POINTER TO TSTQUE
*ADJUST POINTER TO NEXT DEVICE
‘SAVE POINTER TO TSTQUE

BEQ

‘B8R IF NO

TST

001466

012737

007006
001470

33gps

(rO)

*YES, JUMP TO "READY' ROUTINE
READY
SINITIALIZE POINTER TO FIRST DEVICE IN
ATSTQUL+2, TSTQUE

18:

JMP
MOV

.SBTTL

END OF PASS ROUTINE

*ANY MORE DEVICES FOR TEST ?
sTEST QUE TABLE

bbbttt e

DAL

A L IR

AR L

s*INCREMENT THE PASS NUMBER ($PASS)
s«TYPE 'END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYyyy'
s*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

s«JF THERES A MONITOR GO 1O IT
s*]F THERE ISN'T JUMP TO READY

054104
054104
054106
054112
054116

000240

$EOP:

001116
001206
001230
100000

NOP

CLR
CLR
INC
8IC
DEC

001230

$EOPCT: .WORD
8GT
MO/
SENDCT: .W0RD

054152

054150

000407

054170
054170

013746

001230

104405
005737
001431

001126

054174
054176
054202
054204
054210

-gss:

104401
000421

054212

054254
054254

013746

001126

054260
054262

005037

1046405

SEOPCT

:;678:

001126

$TSTNM
STIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,3(PC)+
1

JsYES
JSRESTORE COUNTER

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<12><15>/END PASS 4/

TYPE
BR

,65%
648

MOV

$PASS ,=(SP)

LASCIZ

::2ZERO THE TEST NUMBER
:22ERO THE NUMBER OF ITERATIONS
: S INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
::LO0P?

TYPDS
TST
BEQ
TYPE
BR
.ASCIZ

::SAVE $PASS FOR TYPEOUT
;sTYPE PASS NUMBER
::60 TYPE-=DECIMAL ASCI! WITH SIGN
SERTTL
;2SEE IF ANY ERRORS THIS PASS
;:BR IF NO ERRORS TO REPORT
$GT42P
.67%
:sTYPE ASCIZ STRING
66$
;:GET OVER iHE ASCIZ
/ TOTAL ERRORS SINCE LAST REPORT /

nov

$ERTTL,~(SP)

TYPDS

CLR

SERTTL

::SAVE SERTTL FOR TYPEOUT
;s TOTAL NUMBER OF ERRORS
$:60 TYPE~--DECIMAL ASCII WITH SIGN
:;CLEAR ERROR TOTAL

SEQ 0224

CZRNBAO RM8O DSKLS PT1 MACRO Vv04.00 14-JAN-82 16:33:00 PAGE 14-1

END OF PASS ROUTINE

054266

104401

013700
05

$GT42P: TYPE
$GET42:

001217
000042

SENDAD:

000240

054316

000137
007006
377

$DOAGN:

377

000

SRTNAD:

SENULL:

.SCRLF

ax42,RO
$DOAGN
PC,(RO)

::TYPE CARRIAGE RETURN, LINE FEED

::GET MONITOR ADDRESS
MONITOR
:BRANCH IF |
::CLEAR THE | LD
R
G0 TO MONI'
::SAVE ROOM
2:FOR
J:ACT1

a(PC)+

:sRETURN

-1,-1,0

2:NULL CHARACTER STRING

READY

.SBTTL

CLOCK SUBROUTINES

;ROUTINE TO SIZE FOR CLOCKS (KWi11-L OR KW11-P)
054322
054324
054330
054334
054342

000240

012737

000309

054350
054354
054362
054370
054376
054404
054412
054416
054420
05-424

005777

125136

ERRVEC,=(SP)

s sPUSH ERRVEC ON STACK

MoV

#108, ERRVEC

;LOAD 04 TRAP VECTORS

MoV

000004
000006

MOV

ERRVEC+2,=(SP)
#PRG, ERRVEC
+2

:PUSH ERRVEC+2 ON STA(K

;SEE IF A KW11-P_CLOCK 1S PRESENT - GO TO 108 IF NOT PRESENT
1ST

NN\
b b
—d b b VAN

- =3P\ SN
NS OOON

MOV
MOV
MOV

MOV
MOV
CLR

108:

054426

B8R

MOV
RTI

aSLPCSR

TEST FOR P CLOCK

:LOAD SUBROUTINE ADDRESS
#PCLOCK,CLOCK
:LOAD STOP ADDRESS
#PSTOP,STOPCL
#PCOUNT,aSLPVEC :LOAD P CLOCK INTERRUPT VECTOR

#PR6, aSLPVEC+2
SLLVEC+2,aSLLVEC
aSLLVEC+2

308

#15$, (SP)

:CLEAR L CLOCK INTERRUPT VECTOR
:DUMMY RTI ADDRESS
*RESTORE PRIORITY

%gg P CLOCK-SEE IF L CLOCK IS PRESENT-GO TO 208 IF NOT PRESET
054504

000004

#20$ ,ERRVEC

MOV

#LSTOP,STOPCL

MOV
MOV
CLR

#PRG, aSLLVEC+2
SLPVEC+2,@SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR
aSLPVEC+8

18T
MOV

125016

000002

208 :

054512

;CHANGE 04 TRAP VECTOR

MOV

B8R

MOV
RTI

SSLLCSR
#LCLOCK,CLOCK

;TEST FOR L CLOCK

;LOAD SUBROUTINE ADDRESS
:LOAD STOP ADDRESS

#LCOUNT,@SLLVEC :LOAD L CLOCK INTERRUPT VECTOR

308

#25$, (SP)

:DUMMY RTI ADDRESS

sRESTORE PRIORITY

égg-CLOCK AVAILABLE - AUGMENT RETURN ADDRESS
005037

000207

001536
001520
001520
001526
001526
000002
000006
000004

001516
001524
000004

308:

CLR
MOV
CLR
MOV
CLR
ADD

;CLEAR SUBROUTINE ADDRESS
CLOCK
#SLPVEC+2,SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR
SLPVEC+2
#SLLVEC+2,SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR
SLLVEC+2
#2,4(SP)
:CHANGE RETURN ADDRESS

MOV
MOV

(SP)+ ,ERRVEC+2
(SP)+,ERRVEC

RTS

::POP STACK INTO ERRVE(C+2

:;POP STACK INTO ERRVEC

;ROUTINES TO START THE CLOCK (KW11-L OR KW11-P)

50
51 054562
52 054570
53 054576
54
55 054600
56

SIZCLK: NOP
MoV

125110

054426
054426
054434
05444"
28 054446

29 054454
30 054462
31 054470
32 054476
33 054502
34 054504
35 054510
36
37
38 054512
39 054512
40 054516
41 054524
42 054530
43 054536
44 054542
45 054550
054550
46 054554
2g 054560

000004

_,—
OO
nNONOO

SHSLSHN
IS 1SV N b d =d d od wnd b ch =D b
= O V00~[0 QW F YV 1,8 L
NOVWN
S AN -2 OO 00 NOWNEMANN

CLOCK SUBROUTINES

012777
012777
000403

177777
000135

PCLOCK: MOV

#=1 9SLPCSB

#135,3SLPCSR
PLCLK

:LOAD CONTROL REGISTER
;60 TO COMMON CODE

012777

000100

LCLOCK: MOV

#100,38LLCSR

sLOAD CONTROL REGISTER

MOV
BR

sLOAD COUNT SET BUFFER

SEQ@ 0225

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 10:33:00 PAGE 15

SEQ 0226

57 054606
58 054612
054614
59 0564616
60 054622
1 054626
62 054632
63 054634
054640
054644
054646
64 054646

=S OOO0O
O
O
=2 =200
N =2rR0NON
SN

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 15-1
CLOCK SUBROUTINES
PLCLK:

001532
001530
177437
000300

CLR

TRAP
[ [0)")
MOV
BIC

CMP
8HI

000240
054646
:
308
408 :

Mov
MOV
RT1

RTS

TIME

;CLEAR TIMER COUNT

(SP)+,RS
R5,$PSW

SAVE PRIORITY

#*CPR7,RS
#PR6,RS

408
#PRS,
= (SP)
#308.-(SP)

..PUSH OLD PSW AND PC ON STA(CK
:SAVE THE PSW IN RS

MASK

IgPRIORITY TOO HIGH??

::PUT NEW PS ON STACK
ssPUT NEW PC ON STACK
:;POP NEW PC AND PS

;ROUTINES TO HANDLE CLOCK INTERRUPTS (KW11=L OR KW11-P)
68 054650
69 054650
70 054656
71 054660

103003

72 054666

73 054674
74 054676
75 054702

005037

000021

001532

177777
000021

001532
001534

001534

PCOUNT:

LCOUNT: ADD
108:

:
208

8CC
MoV

suB

8PL

CLR

7., TIME
108
#-1,TIME

017 +WATCH
208

WATCH

sADD 17MS TO ELAPSED TIME

:BRANCH IF NO OVERFIOW

:RESTORE MAXIMUM COUNT
:DECREMENT REMAINING TIME
:BRANCH If POSITIVE
;CLEAR REMAINING TIME

;RT1 TO HANDLE DEVICE INTERRUPTS
79 054702

IRP:

000002

sRETURN TO USER

RT1

;ROUTINES TO STOP THE CLOCK (KW11-L OR KW11-P)
83 054704
84 054710
85
86 054712
87
88 054716
89 054716
054722
054726
054730
90 054730

005077
000402

124602

PSTOP:

CLR
BR

PLSTP

aSLPCSR

:STOP P CLOCK
260 TO COMMON STOP CODE

005077

124604

LSTOP:

CLR

aSLLCSR

:STOP L CLOCK

013746
012746
000002

007530
054730

MOV
MOV
RTI

$PSW,~(SP)

::PUT NEW PS ON STACK

RTS

000207

PLSTP:

108:

#108,-(SP)

:sPUT NEW PC ON

STACK

::POP NEW PC AND PS

SEQ 0227

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 16
SET VOLUME VALID SUBROUTINE

;RETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE.

THE SUBROUT INE

;RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR IS

;DETECTED, IN WHICH CASE IT RETURNS TO "HE SECOND WORD FOLLOWING THE
+CALL.

SCALL:

&H
Ny
-~
W
~

(=]

N
~
W
~

(=]

29 055052

010037
o
o

(=]
o
N

5012

012737
062716
112776
012737

000207

(=
(=4
(=]
o

55010

001020

055156
o
(=4

016037

N
~
o
o

54774

(=4

NNNNN ~

004737

oS
WW
OSSO N

l=l=)

54732

5024
5032
55036
28 055044
NNV

SET VOLUME VALID SUBROUTINE

;THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID,

VIV WAL
OOOOOOSOOOOOO
v
PP P
¥ X &oH

(NN = OO0 00 NN

AONIPIPIAINININ
= b wed —d od b b b b b

NN = O 000

O N SN

.SBTTL

000012
177677

001136
000012
000100
000002
000170
000022

SETVV:

000024
000024
000014
000042
000000
001142
001142

JSR
BR
ERROR

PC.SETVV

272

RETURN HERE IF NO ERROR

JSR

PC,CNTCLR
#DMD ,RMMR1 (RO)

;GO CLEAR CONTROLLER
:LOAD RMMR1

MOV
MOV
Mov
MoV

RETURN HERE IF ERROR

#DMD ! MUR, RMMR1 (R0)

:LOAD RMMR1

#0,RMER1(RO)
;LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2
#PACACK 'GO,RMCS1(RO)
;LOAD RMCS1
RMDS (RO) ,$SBDDAT ;STORE RMDS AT $BDDAT
#°CVV,SBODAT

108
RO, $BDADR

:BRANCH IF VOLUME VALID SET
*SETUP FOR ERROR MSG

#2,(SP)

:MOVE RETURN ADDRESS TO ERROR

#PACACK
, $TMPO
PC

sRETURN

001136
001140

#RMDS
, SBOADR
#VV,SGDDAT

000000
001174

#170,3(SP)
108:

JUMP TO SUBROUTINE

SWRITE ERROR NUMBER

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 17

SEQ 0228

SET OFFSET MODE SUBROUTINE

.SBTTL

SET OFFSET MODE SUBROUTINE

2
3

:ngg gg?gOUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET

b)
6
7
8
9
10

sSUBROUTINE, WHICH WILL LEAVE DMD ON.

THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE

sRETURNS TO THE SECOND WORD FOLLOWING THE CALL

CALL:

JSR

ERROR

12
13 055054
16 055054
15 055062
16 055070
17 055076
18 055104
19 055112

20 055120
21 055122
22 055130
23 055134
24 055142
25 055146
26 055154
27 055154

THE SUBROUTINE RETURNS TO THE

;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT

000207

001001
000000
000000
000015
00CJ12
177776

000024
000014
000042
000000
001142
001142

000001
001136
000012
000002
000200

001140

SETOM:

000000

108:

JUMP TO SUBROUTINE
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

:LOAD RMMR1

MOV
MOV
Mov
MOV
MOV

#DMD ' MUR , RMMR1 (RO)

MOV
MOV
ADD
ADD
Mov8

#OM,SGDDAT

#2,(SP)

:MOVE RETURN ADDRESS TO ERROR

RTS

;RETURN TO USER

BIC
BNE

001136

PC,SETOM
27

#0.RMER1(RO)
#0 RMER2(RO)

:;LOAD RMER1
:LOAD RMER2

#OFFSET!GO,RMCS1(RO)
;LOAD RMCS1
(RO) , $BDDAT :STORE RMDS AT $BDDAT
RMDS
#~COM,$BODAT

108

:BRANCH IF OFFSET ON

RO, $8DADR

#RMDS
, $BDADR

#200.3(sP)

‘WRITE ERROR NUMBER

SEQ@ 0229

CZRNBAO RM80 DSKLS PT1 MACRO Vv04.00 14~JAN-82 16:33:00 PAGE 18
CLEAR CONTROLLER SUBROUTINE

.SBTTL

2
3

CLEAR CONTROLLER SUBROUTINE

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,
sAND DRIVES, THEN SELECTS THE DRIVE.

sCALL:

8 055156
055156
055160
9 055162
10 055166
11 0551746

12 055200
13 055204

055206
14 055210

010046
010145
013700
012760
0137017

111160

012601

012600
000207

CNTCLR:
001276
000040
001466
000010

000010

JSR

PC,LNTCLR

;CALL TO ROUTINE

MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
$BASE ,RU

:2PUSH RO ON STACK
::PUSH R1 ON STACK
:RO = UNIBUS BASE ADDRESS

MOV

MOVB
MOV

MOV
RTS

#CLR,RMCS2(RO)
TSTQUE ,R1
(R1) ,RMCS2(RO)
(SP)+ ,R1
(5P)+,R0
PC

:CLEAR MASSBUS

;GET DEVICE UNDER TEST
:SELECT DEVICE
::POP STACK INTO R1
:2POP STACK INTO RO
;RETURN

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 19

SEQ 0230

SAVE AND RESTORE RO-R5 ROUTINES

.SBTTL

SAVE AND RESTORE RO-R5 ROUTINES

ttttttttttttttttifi.itttt*ttttttt.ttfitfittfi.ttt'it'ttt.."'.t.'fi.

*SAVE RO-R5
;*CALL:
b

SAVRCG

*UPON RETURN FROM S$SAVREG THE STACK WILL LOOK LIKE:

~TOP---(+16)

it 42===(+18)
it +4~==R5
;% +6===R4
s* +8--<R3
s *+10=---R2
;*412--=R1
s%+14=-==R0

$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MoV
MOV
MOV
MoV
MOV
MOV
RTI

RO,=(SP)
R1,=-(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
R3 ON STACK
::PUSH
R4 ON STACK
SH
::PU
R5 ON STACK
SH
::PU

::SAVE PS OF MAIN FLOW
:2SAVE PC OF MAIN FLOW
:3SAVE PS OF CALL
:sSAVE PC OF CALL

;*RESTORE RO-RS5
*CALL

000022
000022

055304

000002

SRESREG

RESREG
MOV
MOV
MOV
MOV
MOV
MoV
MoV
MOV
MOV
MOV

RTI

;RESTORE P, OF CALL

..PgalURt rs OF CALL

JRESTORE PC OF MAIN FLOW

..RESTORE PS OF MAIN FLOW

;:POP STACK IN"O RS

:;POP STACK INTO R4
:sPOP STACK INTO R3
::POP STACK INTO R2

(SP)+.R0

:;POP STACK INTO R1
;:POP STACK INTO RO

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 20

SEQ 0231

BINARY TO ASCII AND TYPE ROUTINE

.SBTTL

BINARY TO ASCII AND TYPE ROUTINE

tttttttttttttt*ifitttttt'tttttttitttttttltttti.tttt..ttt.'i't't.

tTHIS ROUTINE 1S USED TO CHANGE A 16-81T BINARY NUMBER TO A 16-BIT

;*B1..ARY-ASCI] NUMBER AND TYPE IT
*CALL

055306
055310

055314
055316

055324
055326
055330
055334
055340
055342
055344
055346
055354

055356
055360

010146
016601

000261
11¢737

006101
(001406
105537
104491
000241
00065
012601
016666
012616

006002
000

000006

000060

055340

000

NUMBER,~=(SP)

R1,-(SP)
6(SP) ,R1

1$:

#'0,$BIN

055360

000004

TYPBN

STYPBN: MOV
MOV

055360

000002

MOV

2s:

SEC
MOVB

ROL
BEQ
ADCB
TYPE
CLC
BR
MOV
MOV
PV

$BIN:

RTI
.BYTE

::NUMBER TO BE TYPED

JsTYPE IT

:3SAVE R1 ON THE STA(CK
..GET ]H; INPUT NUMBER

sSET *'C'* SO _CAN KEEP TRACK OF THE NUMBER OF BITS
..SET CHARACTER TO AN ASCII °''0''.

1$
+ ,R1
(SP)
2/SP),4(SP)

..GET THIS BIT
;DONE?
..NO--SET THE CHARACTER EQUAL TO THIS BIT
J:G0 TYPE THIS BIT
SO CAN KEEP TRACK OF BITS
..CLEAR ''C'*
:GO DO THE NEXT BIT
..POP THE STACK INTO R1
::ADJUST THE STACK

0,0

::RETURN TO USER
:2STORAGE FOR ASCII CHAR. AND TERMINATOR

R1
2’3
$8IN
LSBIN

(SP)+,(SP)

CZRNBAQ RMB0 DSKLS FT1 MACRO v04.00 14-JAN-82 16:33:00 PAGE 21

SEQ 0232

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

JoRNANANARANEAAAR 1332223202220 223022

2 R 223 032202 0003322 22220401%02%4%]

s*THIS ROUTINE IS USED TO CHANGE A 16~BIT BINARY NUMBER TO A 5-DIGIT

s*SIGNEC DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:*?EEtACED WITH SPACES.

s*CALL:

ta
e

055362

055362
055364
055366

010046
010146
010246

055372

010546

055370

$TYPDS:

010346
016605
100004
005405
112766
005000
012703

055430
055/32
05543
055470
055442
055,44
055446
055450
055452
055454
055456
055460
055462
055464

005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

055476
055502
055504
255506
055512
055514
055516
055520
055522
055524
055526
055534
055536

052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605

055424

000020
000055

000001

055576

112723 000040

012603
012602
012601

1$:
28:

055566

38:

48:

58:
000001

055472 052702 000060

055540
055542
055544

NUM, = (SP)

::PUT THE BINARY NUMBER ON THE STACK
2360 TO THE ROUTINE

MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,=(SP)

::PUSH RO ON STACA
::PUSH R1 ON STACK
$3PUSH R2 ON STACK

MOV

F5.<(SP)

*3PUSH R3 ON STACK

MOV

055374 012746 020200
055400
055404
055406
05541)
055416
055420

MOV
TYPDS

177777

000040

68:
78:

000010

8s:

177777

177776

98:

R3.=-(SP)

MOV

#20200,-(SP)

MOVB

#' ,(R3)%

MOV
8PL
NEG
Move
CLR
Mov

CLR
MCV
SUB
BLT
INC
8R
ALD
TST
BNE
1STB
BM]
ASLB
BCC
MOVB

BIS

815
MOVB
ST
CMP
BLT
BGT
MOV
BR
TSTB
8PL
MOVB
CLRB
Fov

MV
MOV
MOV

20(SP) RS
1$
RS
#'=,1(SP)
RO
#$DBLK R3

R2
$DTBL(RO),R1
R1.RS
X
R2
3$
R1,RS
R2
5$
(SP)
78
(SF)
6$
1(:P),=1(R3)

#'JU,R2

# R
R2.(R3)+
(RO) +
RO.#10
2
8$
RS,R2
63
(SP)+
13
=-1(SP),~2(R3)
(R3)
(SP)+,RS

(SP)+.R3
(SP)+.R2
(SP)+.R1

2 :PUSH R§ ON STACK

::SET BLANK SWITCH AND SIGN

:3GET THE INPUT NUMBER
$:BR IF INPUT IS POS.
“IMAKE THE BINARY NUMBER PCS
JsMAKE THE ASCI] NUMBER NEG.
*3ZERO THE CONSTANTS INDEX
2:SETUP THE OUTPUT POINTER

“:SET THE FIRST CHARACTER TO A BLANK
*3CLEAR THE BCD NUMBER
;;GET THE CONSTANT
+3FORM THIS BCD DIGIT
+:BR IF DONE
+ S INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT
*SCHECK IF BCD DIGIT=0
*SFALL THROUGH IF 0
S3STILL DOING LEADING 0°S?
2:BR IF YES
S iMSD?
$3BR IF NO
::YES==SET THE SIGN

+3MAKS THE BCD DIGIT ASCII

SSMAKE IT A SPACE IF NOT ALREADY A DIGIT
*:PUT THIS CHARACTER IN THE OUTPUT BUFFER
1:JUST INCREMENTING
*SCHECK THE TABLE INDEX
©360 DO THE NEXT DIGIT
1360 TO EXIT
$3GET THE LSD
1360 CHANGE TO ASCII
*:WAS THE LSD THE FIRST NON-ZER0?
*3BR IF NO
::YES==SET THE SIGN FOR TYPING
$3SET THE TERMINATOR
+3POP STACK INTO RS

13POP STACK INTO R3
$3POP STACK INTO R2
$:P0P STACK INTO R1

CZRNBAO RMBO DSKLS PT1 MACRO V04,00 14~JAN-82 16:33:00 PAGE 21-1

SEQ 0233

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

055546

055550

012600
104401

055566
055570
055572
055574
C55576

012616
000002

023420
001750
000144
000012

(SP)+,RO

mov

8(SP),4(SP)

TYPE

055576

055554 016666 000002 000004

055562
055554

MoV

$DTBL:

$DBLK:

MoV
RTI
10000.
1000.
100.
10.

.BLKW

$DBLK

(SP)+,(SP)

;:POP STACK INTO RO

:;NOW TYPE THE NUMBER

:sADJUST THE STACK
:;RETURN TO USER

SEQ 0c34

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~-JAN-82 16:32:00 PAGE 22

BINARY TO OCTAL (ASCII) AND TYPE

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

tttttttttttifitttt**tttttt'tttttttttitttttttttt*tttttt*'ttttt't.

tTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
:*OCTAL (ASCII) NUMBER AND TYPE IT

;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
*CALL

MOV

NUM,=(SP)

BYTE

TYPOS

BYTE

:2NUMBER TO BES TYPED

..CALL FOR TYPEOUT

::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

::M=1 0R 0

::1=TYPE LEADING ZEROS

0 SUPPRESS LEADING ZEROS

Mt
.t

;*$STYPON-=-<ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*STYPOS OR $TYPOC
:*CALL:

MOV

TYPON

NUM,=(SP)

: iNUMBER TO BE TYPED

::CALL FOR TYPEOUT

t%;{toc---snren HERE FOR TYPEOUT OF A 16 BIT NUMBER
> %

i
W
~

ONNONN

b b b ed b O ON b =d b

716
406

e OO=OOON

055506
05561¢
055620
055624
055630

===

000000
000001
056033
000002

000001
000006
000005

056033

056031

MOVB
MOVB
ADD

056031
056033
056030

=lelelelelelelele

2s:
33:

4$:

@(SP),=(SP)

;;PICKUP_ THE MODE

#2,(SP)

::ADJUST RETURN ADDRESS

1(SP).$OFILL
(SP)+,$OMODE+1

STYPON

::LOAD ZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE

ADD
MOVB
MOVB

#6,R4
R&.SOMODE
SOFILL.R4

::SUBTRACT IT FOR MAX. ALLOWED
:3SAVE_IT FOR USE
:GET THE_ZERO FILL SWITCH

CLR
ROL

R3
RS
33
RS

::CLEAR THE OUTPUT, WORD
; :ROTATEMSB INTO *'C"
:60 DO MSB
:;FORM THIS DIGIT

ROL
ROL
ROL

MoV

ROL_

12(SP).RS

RS
RS

R3,R3

::PICKUP_THE INPUT NUMBER

:GET LSB OF THIS DIGIT

$OMODE

..TYPE THIS DIGIT?

BIC
BNE
ST

#177770.R3
48
Ré

:GET RID OF JUNK

INC

Ré

::DON'T SUPPRESS ANYMORE 0°S

DECB

BPL

177770

: ;NUMBER TO BE TYPED

:3CALL FOR TYPEOUT

;:SET THE ZERQ FILL SWITCH
;:SET FOR SIX(6) DIGITS
::SET_THE ITERATION COUNT
::SAVE R3
:SAVE Rd
RS
::SAVE
iGET THE NUMBER OF DIGITS TO TYPE

MOV

1$:

NUM,=(SP)

#1,$0FILL
#6.SOMODE+1
#5.SOCNT
R3.-(SP)
R&.=(SP)
R5.-(SP)
SOMODE+1.R4

STYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVB

000012

005204

TYPOC

$TYPOS: MOV

000006

056032

MOV

BEQ

IF _NO

STESTFOR 0

..SUPPRESS THIS 0?
:BR IF YES

SEQ 0235

CZRNBAO RMBO DSK
BINARY TO OCTAL

AND TYPE

::MAKE THIS DIGIT ASCII
:2MAKE ASCII IF NOT ALREADY
:2SAVE FOR TYPING
::G0 TYPE THIS DIGIT
::COUNT BY 1
::BR IF MORE T0 DO
;s8R IF DONE
:2INSURE LAST DIGIT ISN'T A BLANX
2260 DO THE LAST DIGIT
:;RESTORE RS

5%:

78:

($:

000004

(SP)+,(SP)

8s$:

056032

000000

.BYTE
.BYTE
$SOCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

OCOO0O00

000002

:JRESTORE Ré&

:sRESTORE R3
:2SET THE STACK FOR RETURNING
2 2RETURN

::STORAGE FOR ASCII DIGIT
: :TERMINATOR FOR TYPE ROUTINE
::0CTAL DIGIT COUNTER
J:ZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 23

SEQ 0236

TYPE ROUTINE

.SBTTL
L

TYPE ROUTINE
T

bbbttt bbb

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED

SNULL CONTA_NS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE1:

:*NOTE?:
:*NOTE3:

ALL
;*1) US ING A TRAP INSTRUCTION
o x
TYPE
-MESADR

;;MESADR IS FIRST ADDFLSS OF AN ASCIZ STRING

TYPE
MESADR

001173

056034

000002
000001

000100
056104
062606

056202
056206
056210
056214
056220

(SP)+ RO

::RESTORE RO

000002

¢00011

#HT, (SP)

:sADJUST RETURN PC
: sRETURN
::BRANCH IF <HT>

000200

#CRLF, (SP)

:;BRANCH IF NOT <CRLF>

S$
(SP)+

056364

$CHARCNT

056245
001172

PC,STYPEC

056174
056176

::1S THERE A TERMINAL?
::BR IF YES
::HALT HERE IF NO TERMINAL
3s
JsLEAVE
RO,=(SP)
::SAVE RO
#82(SP) RO
:2GET ADDRESS OF ASCIZ STRING
#APTENV,SENV
: :RUNNING IN APT MODE
62$
:3NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ::SPOOL MESSAGE TO APT
62%
::NO,GO CHECK FOR CONSOLE
RO,61$
:2SETUP MESSAGE ADDRESS FOR APT
PC,SATY3
::SPOOL MESSAGE TO APT
: :MESSAGE ADDRESS
#3PTCSUP.$ENVH :sAPT CONSOLE SUPPRESSED
60%
:2YES,SKIP TYPE OUT
tRO)+,=(SP)
:2PUSH CHARACTER TO BE TYPED ONTO STACK
43
*2BR JF IT ISN'T THE TERMINATOR
(SP)+
:;YF TERMINATOR POP IT OFF THE STACK

S$TPFLG
1%

#2,(SP)

001170

O=O0=

S 28 N
R

000040

TST8

000001

056246
056364

SFILLC,{SP)+
2%
$NULL ,=(SP)
1(SP)
63
PC,STYPEC
S$CHARCNT
78

::POP <CR><LF> EQUIV
:2TYPE A CR AND LF

:2CLEAR CHARACTER COUNT
:3GET NEXT CHARACTER
::G0 TYPE TH1S CHARACTER
:2IS IT TIME FOR FILLER CHARS.?
:21F NO GO GET NEXT CHAR.

+:GET # OF FJLLER CHARS. NEEDED

:2AND THE NULL CHAR.

:2DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STACK
260 TYPE A NULL
::D0 NOT COUNT AS A COUNT
;. LOOP

SEQ 0237

CZRNBAO RMBC DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 23-1
TYPE ROUTINE

;HORIZONTAL TAB PROCESSOR

056364

8$:
9%:

STYPEC:

122706

MOVB
JSR
8118
BNE
TST
B8R

105777
100375

#SXOFF
, (SP)
1028

101$:

108:

122640

122632
000002

056364

000002

18:

(MPB

8
: .WORD
$CHARCNT
STYPEX: RTS

:sREPLACE TAB WITH SPACE
ssTYPE A SPACE
s sBRANCH IF NOT AT
:TAB STOP
:;POP SPACE OFF

STACK

;:GET NEXT CHARACTER

:2CHAR IN KYBD BUFFER?
J:BR IF NOT
::GET CHAR
::STRIP EXTRANEOUS BITS
::WAS CHAR XOFF
2:BR IF NOT

asTKS
1018

ssWAIT FOR CHAR

#177600, (SP)
#SXON, (SP)

1018

ceSTRIP IT
s:WAS IT XON?
::BR IF NOT

(SP)+

soFIX STACK

asTPS
108
2(SP) ,a$TPB
1&R.2(SP)

;oWAIT UNTIL PRINTER IS READY

a$TKB, (SP)

122656
177600
000021

1028:

000000
000207

(SP)+
23

#177600, (SP)

122662

000012

g;.SCHARCNT

as$Tk8,=(SP)

000023

000002
000015

,(SP)

Pc,$TYPEC

887KS
108

122702
177600

001012

$CHARCNT
STYPEX
#LF ,2(SP)
STYPEX
(PC)+

000040
056246
000007

;:LOAD CHAR TO BE TYPED INTO DATA REG.
2:1S CHARACTER A CARRIAGE RETURN?
s ;BRANCH IF NO
s YES==CLEAR CHARACTER COUNT
JIEXIT

;218 CHARACTER A LINE FEED?
::BRANCH IF YES
:sCOUNT THE CHARACTER
:2CHARACTER COUNT STORAGE

—

SEQ 0238

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~-JAN-82 16:33:00 PAGE 24
SCOPE HANDLER ROUTINE

.SBTTL

SCOPE HANDLER ROUTINE

12PN
3122222822222

222
202 002 ddiidisdiiilidi
S 2222232222

:*THIS ROUTINE CONTRO.. THE LOOPING OF SUBTESTS. IT WILL INCREMENT >)
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

TeSWi4=1
taSw11=1

LOOP ON TEST
INHIBIT ITERATIONS

+%SW08=1

LOOP ON TEST IN SWR<7:0>

LOOP ON ERROR

t #SW09=1

sxCALL

x
056370

056370
056372
056400
82228%

104410
032777
001402
000137

$SCOPE:

040000

122554

057032

013746
012737

022626
012637

056442 000521
056444

056444
056452
056454
056456

032777
001421
005046
117716

056470
056472

002411
011637

000004
056434

MOV
MOV

000004

056514
056516
056522
056524

005316
316
062716
013637
000547

0C5726
105737
001502
022737

056532 001455

000004

::TEST FOR CHANGE IN SOFT=-SWR
*:LOOP ON PRESENT TEST?
LINO IF SW14=0
t:JUMP OVER SCOPE ROUTINE
;2THIS INSTRUCTION TO A 'NOP (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT

(SP)+,(SP)+
(SP)+.S#ERRVEC

SSCLEAR T2 STACK AFTER A TIME oOuT
::RESTORE THE ERROR VECTOR

::TIME OUT ON XOR?
ar177060
(SP)+,a#ERRVEC ::RESTORE THE ERROR VECTOR
$360 TO THE NEXT TEST
$SVLAD

122472

001116

BLT
MOV

8s
(SP) ,STSTNM

BEQ
CMP

057050
001122

(SP)
(SP)
(SP)
#SSWOBTBL.
a(SP)+,SLPADR
$OVER

$SBRANCH IF BAD TEST NUMBER IN SWR
*:CHECK THE NUMBER IN THE SWR

L:BRANCH IF TEST MUMBER IS OUT OF RANGE
‘SUPDATE THE TEST NUMBER
: :BACKUP BY ONE
13SCALE THE TEST NUMBER AS AN INDEX
:>FORM THE ADDRESS OF TEST POINTER
:-SET LOOP ADDRESS TO DESIRED TEST
$360 LOOP ON THE TEST

1SCLEAN THE BAD TEST NUMBER OFF OF THE STACK
P HAS AN ERROR OCCURRED?

057700

BEQ
CMP

MOV
MOV
MOV

ERRVEC,-(SP)
#20008 'ERRVEC
177766.CPSAVE

::SAVE CONTENTS OF ERROR VECTOR
:-SETUP ‘TRAP' RETURN ADDRESS
:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

#-1,CPSAVE

::SET CPU ERROR REGISTER TIMEOUT INDICATOR

000004
056556
177766

000004
057700

056556

012737

177777

057700

322293 855553 056572

DEC
ASL
ADD
MOV
BR

8s$
#120, (SP)

::LOOP ON SPEC. TEST?
::BR IF NO
S3CLEAR A TEMP. LOCATION
S:PICKUP THE DESIRED TEST NUMBER

(SP)+
SERFLG
3s
#-1,CPSAVE

8$:
2s:

001117
177777

1:LOOP ON THE PRESENT TEST

6$:: AMNAAEND OF CODE FOR THE XOR TESTERAMNAA

#81T08,aswR
2
=(SP)
aSWR, (SP)

122502

;;IF RUNNING ON THE "XOR'* TESTER CHANGE

a¥ERRVEC,-(SP)
#58 BNERRVEC

BIT
BEQ
CLR
MOVB

000400

013746
012737
013737
000406

cMP
MOV

B8R

050534
056540
056546
056554

TST
B8R

MOV

056462 001414
056464 022716 000120
056476
056500
056502
056506
056512

#81T14,35WR
98
$OVER

-AMRMNSTART OF CODE FOR THE XOR TESTERANANN

056422 005737 177060
056426 012637 000004
056432 000561
056434
056436

CKSWR
BIT
BEQ
JMP

$XTSTR: BR

056406 000416
056410
056414

18:

:;SCOPE=IOT

SCOPE

ST
TSTB

BEQ

2000$:

MOV

R?Y

2005$

20018

#2001$, (SP)

*:BR IF NO
‘iSEE IF TIMEOUT WAS PREVIOUSLY RECORDED

*3KICK AROUND ROUTINE IF SO

*3SETUP RETURN ADDRESS

CZRNBAC RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 24-1

€€q 0239

SCOPE HANDLER ROUTINE

057700

000001

057700

000001

177766

N
o
W
~
N
~
~
~

Ot
W ON

001404

2002%:

#-1,CPSAVE

;sSEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

001154
001000

001131

001117

001000

122250

001124

001122

001117
001206
004000

2003s:

78:
4$:

122216

3s:

001230
001120
001206

001120

001120
001206
001226

1$:

$SVLAD:

SOVER:

057046

057050

057074

s :BRANCH IF SO

#176,SuR
(SP) JaSWR

;o SAVE SWR ADDRESS
::SAVE SWR VALUE
;sGET SOF TWARE SWR ADDRESS
ssGET CURRENT SWR VALUE

177
(SP)+,a(SP)
(SP)+.SWR

:sRESTORE SWR ADDRESS

#81709,asWR

122300

000000
001154

2005$

cexrgo.cPsAve
2003
#81700,177766
SWR,~(SP)
a(SP) ,=(SP)

SERHAX.SERFLG

#81T709,3SWR
43
SLPERR,$LPADR
SOVER
SERFLG
STIMES
1$
#8IT11,3SWR
1%
$PASS
1$

$ICNT
STIMES,SICNT
$OVER

#1,81CNT

SMXCNT.STIMES
$TS7 NM

STSTNM,STESTN
(SP) ,$LPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX

s:DON'T ALLOW LOOP ON ERROR ON THIS ERROR
;;CALL SPECIAL POWER FAIL BIT ERROR CALL
sRESTORE SUR TO ORIGINAL VALUE
::MAX. ERRORS FOR THIS TEST OCCURRED?
J:BR IF NO
;:LO0P ON ERROR?
2:BR IF NO

:2SET LOOP ADDRESS TO LAST SCOPE
::IERC THE ERROR FLAG

;2CLEAR THE NUMBER OF ITERATIONS TO MAKE
:;ESCAPE TO THE NEXT TEST
;2 INHIBIT ITERATIONS?
J:BR IF YES
;:1F FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
HH

2 INCREMENT ITERATION COUNT
;:CHECK THE NUMBER OF JTERATIONS MADE
::BR IF MORE ITERATION REQUIRED
:;REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
:2COUNT TEST NUMBERS
:2SET TEST NUMBER IN APT MAILBOX
::SAVE SCOPE (OOP ADDRESS
;2SAVE ERROR LOOP ADDRESS
:2CLEAR THE ESCAPE FROM ERROR ADDRESS
2:ONLY ALLOW ONE(1) ERROR ON NEXT TEST

$TSTNM,aDISPLAY ::DISPLAY TEST NUMBER

$LPADR, (SP)

:2FUDGE RETURN ADDRESS
:sFIXES PS
::MAX. NUMBER OF ITERATIONS

TST1+2
TST2+2
TST3+42
TST44+2
TST5+42
TST6+2
T1ST7+2
TST10+2
TST11+2
TST12+2
TST13+2

:;STARTING ADDRESS OF
:STARTING ADDRESS OF
s STARTING ADDRESS OF
2;STARTING ADDRESS OF

SMXCNT: 5.

$SWO8TBL:
-REPT

;;SEE IF THE POWER MONITOR BIT IS ON
;:BRANCH TO CONTINUE ROUTINE IF CLEAR
s:CLEAR THE BIT FOUND TO BE SET

s STARTING ADDRESS OF

s STARTING ADDRESS OF
:sSTARTING ADDRESS OF

;s STARTING ADDRESS OF

:sSTARTING ADDRESS OF
:STARTING ADDRESS OF
: ;STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TESY

NNO =

177777

:;sRESTORE CONTENTS OF ERROR VECTOR

022737
001430
032737
001424
042737
013746
017646
012737
11677
2777

(SP)
+ ,ERRVEC

056576

2001S$:

-t b b
W=
O

000004

~
~

012637

OO=O0O
=3O8

056572

SEQ 0240

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 24-2

036622

:sSTARTING ADDRESS

2 STARTING ADDRESS
s STARTING ADDRESS
s STARTING ADDRESS
: sSTARTING ADDRESS
s STARTING ADDRESS

2 STARTING ADDRESS
:sSTARTING ADDRESS
;s STARTING ADDRESS
:STARTING ADDRESS
s STARTING ADDRESS
2 STARTING ADDRESS
s ;STARTING ADDRESS
;s STARTING ADDRESS
:sSTARTING ADURESS
:;STARTING ADDRESS
:;STARTING ADDRESS

2 STARTING ADDRESS

s STARTING ADDRESS

:STARTING ADDRESS
s STARTING ADDRESS
s sSTARTING ADDRESS
s STARTING ADDRESS
2 STARTING ADDRESS
s sSTARTING ADDRESS
s STARTING ADDRESS
s sSTARTING ADDRESS
:3STARTING ADDRESS
:sSTARTING ADDRESS
s sSTARTING ADDRESS
s ;STARTING ADDRESS
:;STARTING ADDRESS
s STARTING ADDRESS
:STARTING ADDRESS
2 STARTING ADDRESS
s STARTING ADDRESS
2;STARTING ADDRESS
2 STARTING ADDRESS
: ;STARTING ADDRESS
:;STARTING ADDRESS
s STARTING ADDRESS
s STARTING ADDRESS
;s STARTING ADDRESS
;s STARTING ADDRESS
:;STARTING ADDRESS
s STARTING ADDRESS
2 STARTING ADDRESS
:sSTARTING ADDRESS
2 STARTING ADDRESS
:sSTARTING ADDRESS OF
: :STARTING
: :STARTING ADDRESS
: :STARTING ADDRESS
: :STARTING ADDRESS
:sSTARTING ADDRESS

NN = O NN NV

:sSTARTING ADDRESS
s s STARTING ADDRESS

W) =2 O NO VIS

017430

TST1442
TST15+2
TST16+2
TST17+2
TST20+2
TST21+2
TST22+2
TST23+2
TST24+2
TST25+2
TST26+2
TST27+2
TST30+2
TST31+2
TST32¢2
TST33+2
TST34+2
TST35+2
TST36+2
TST37+2
TST40+2
TST4142
TST42+2
TST43+42
TST&L4+2
TST4542
TST46+2
TST4L7+42
TSTS50+2
TSTS51+42
TSTS52+2
TST53+2
TSTS4+2
TSTS5+2
TSTS56+2
TSTS7+2
TST60+2
TST61+42
TST62+2
TST63+42
TST64+2
TST65+2
TST66+2
TST67+2
TST70+2
TST21+2
TST72+2
TST73¢2
TST74+42
TST75¢2
TST76+2
1ST77+2
TST100+2
TST101+2
102+2
TST103+2
TST104+42

WAL SN NI NINONININON)
=b =d —b —d

—h

b e

b D
o d d

olelelelalelalele
lod

SCOPE HANDLER ROUTINE

]

SEQ 0241

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 26-3

045632
046212
050354
052642

LWORD
WORD
.WORD
.WORD

TST115¢2
TST116+2
TST117¢2
TST120¢2

b —b
b
b aub

s STARTING ADDRESS
2 STARTING ADDRESS
2 sSTARTING ADDRESS
s s STARTING ADDRESS
s STARTING ADDRESS
s sSTARTING ADDRESS
;s STARTING ADDRESS
s STARTING ADDRESS

:STARTING ADDRESS

TEST
TEST
TEST
TEST
TESTY
TEST
TEST
TEST
TEST
TEST
TEST
TEST

2sSTARTING ADDRESS
s STARTING ADDRESS
s STARTING ADDRESS

TST105¢2
TST106+2
TST107¢2
TST110¢2
TST111¢2
TST112¢2
TST113+42
TSTi14¢2

057300
057302
057304
057306

.WORD
.WORD
.WORD
.WORD
MWORD
WORD
WORD
WORD

—b and cud

057260 037026
057262 037156
057264 037352
057266 037550
057270 0460026
057272 040332
057274 041724
057276 043452

N) b b d b b =d =d = OO O
ONOWVIS
NN = O NOWN

SCOPE HANDLER ROUTINE

SEQ 0242

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 25
ERROR HANDLER ROUTINE

.SBTTL

ERROR HANDLER ROUTINE

tttttttttttittttttt'ttittttttQittt'ttlttttiltttii!tttt'tttttttt

'THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
+#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO ERRTYP ON ERROR

;*THE SWITCH OPTIONS PROVIDED B8Y THIS ROUTINE ARE:

*SU15-1
*SW13=1
tSUlO; *SW09=1

HALT ON ERROR

INHIBIT ERROR TYPEOUTS

BELL ON ERROR
LOOP ON ERROR

105037

057702

$ERROR:

001117

78:

001116
002000

001212

18:

000177

057552

057700

057452
177766

000004

177777
057466

057700

000004

022737
001420
032737
001414
042737
113737
112737
000402

177777

057700

000001

057700

000001
001130
000177

177766

105037

057702

032777
001004
004737

026000

057704

$ERTTL

(SP) ,$SERRPC
#2,$ERRPC
aS$ERRPC,SI1TEMB

..STRIP AND SAVE THE ERROR ITEM CODE
LOOP ON ERROR IS SET
L E
;BRANCH AROUND RQUTINE IF SO

1004$

#-1,CPSAVE

..SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

..SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
¢BRANCH IF SO

sBRANCH IF SO

..SAVE CONTENTS OF ERROR VECTOR
;SETUP 'TRAP' RETURN ADDRESS

1000$:

#1000$ ,ERRVEC
177766, CPSAVE
1001$
#-1,CPSAVE

#1001s, (SP)

2:SET CPU ERROR REGISTER TIMEOUT INDICATOR
s SETUP RETURN ADDRESS

1001$:

(SP)+,ERRVEC

;sRESTORE CONTENTS OF ERROR VECTOR

1002%:

#-1,CPSAVE

..S§§~£5 gPSggE HAS CPU ERR RECG TIMEOUT INDICATION

1004$
#81700, CPSAVE
1004$

#81T00,177766
$ITEMB, IBSAVE
#177 ,$1TEMB

057702
001130

121404

;COUNT THE NUMBER OF ERRORS

:3GET ADDRESS OF ERROR INSTRUCTION

::SEE IF THIS IS THE POWER FAIL CALL
; :BRANCH AROUND ROUTINE IF IT IS

1004$
ERRVEC,=(SP)

057700

012637

s:CLEAR THE ITEM BYTE SAVE LOCATION
:;TEST _FOR _CHANGE IN SOFT=-SWR
..SET THE _ERROR FLAG

SERFLG
78
;DON'T LET THE FLAG GO TO ZERO
STSTNM, aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG
021710.aSWR
..BELL ON ERROR?
:NO = SKIP
$BELL
..RING BELL

IBSAVE
1003$

057702

000004

IBSAVE

#81T09,3SWR
1004$
#177 ,S1TEMB

001000

1777277

: ;ERROR= EMT AND N=ERROR ITEM NUMBER

057310
057314

[]

;#CALL

1003$:
1004$:

::MOVE CPU ERROR REGISTER TO CPSAVF FOR TEST

;:SEE IF POWER MONITOR BIT IS ET IN CPU ERR REG
s cBRANCH IF 0K

..CLEAR THE BIT FOUND SET

sMAKE IBSAVE NON-ZERO FOR D'JAL ERROR CALL

1004$

;:SET SITEMB TO SPECIAL POWER FAIL POINTER
: ;BRANCH OVER IBSAVE CLEARING

{BSAVE

;:CLEAR IBSAVE SO Z2ND TIME THROUGH EXITS

#B8I1T13,3SWR
20$
PC,ERRTYP

2;SKIP TYPEOUT IF SET
;o SKIP TYPEQUTS
:;60 TO USER ERROR ROUTIME

—

SEQ 0243

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~-JAN-82 16:33:00 PAGE 25-1
ERROR HANDLER ROUTINE
104401

001217

122737

000001

001242

001130
062616

057604
218:
22$:
2$:

057702
121332
104410

032777

001000

121316

001124
001210

057702

013716

001210

022737
001001
0€0000

054302

105737

057702

000000

3s:

4$:

000042

TYPE

+SCRLF

CMPB
BNE
Move
JSR

fiéPTENV-SENV

; sRUNNING IN AP' MODE

SCJSATY4

tiSET ITEM NUMEER AS ERROR NUMBER
**REPORT FATAL ERROR TO APT

.BYTE
.BYTE
BR
1ST8
BNE
TST
8PL
HALT

0
22%
IBSAVE
3s

8IT
BEQ
MOV

TST

6$:

-WORD
-WORD

*iNO,SKIP APT EIROR REPORT

:;APT ERROR LJOP

ssSEE IF IBS/VE IS LOADED
::BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR

ssHALT ON ERROR
::SKIP IF CJNTINUE
;sHALT ON FRROR!
:sTEST FOR CHANGE IN SOFT-SWR

#B1T09,3SWR

ON ERROR SWITCH SET?
..LFO?

SLPERR, (SP)
$ESCAPE
58
SESCAPE, (SP)

::FUDGE METURN FOR LOOPING
..ggfgg .gREAN ESCAPE ADDRESS

N#SENDAD ,a¥42
6$

::ACT=71 AUTO-ACCEPT?
::%‘«gfi:cu IF NO

IBSAVE
7$

2:SEL IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
..g??fign BACK TO CALL ORIGINAL ERROR

0
0

::LICATION TO SAVE CPU ERROR REG CONTENTS
:;LOCATION TO SAVE ITEM BYTE

aSWR

CKSWR

5%:

CPSAVE:
IBSAVE:

2
$ITEMB,21$

;87

::FUDGE RETURN ADDRESS FOR ESCAPE

SER 0244

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-32 16:33.00 PAGE 26

ERROR TYPEOUT ROUTINE

PONIN) = == o cd cd b b e

ERROR (YPEOJT ROUTINE

;*THE ERROR TYPECUT ROUTINE ASSEMBLES AND PRINTS INFORMATION

*REGARDING THE CETECTION OF AN CRROR AS FOLLOWS:

.UNIT NUM3ER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND
*PROGRAH COUNTER ARE PRINTED ON'THE FIRST LINE:
.ERROR MESSAGE 1S ASSEMBLED, FORMATTED AND PRINTED ON
*ONE OR MORE SUCCEEDING LINES;
.PAIRED LINES OF ERROR HEADERS AND EKROR DATA ARE PRINTED

) d

N = OVo~NOWN S NN =2 O V0O ~NOWN

.SBTTL

*AFTER THE ERROR MESSAGE.

104414
032777
001402
000137

020000

121240

ERRTYP: SAVREG

BIT

#35W13,aSWR

INHIBIT TYPEOUTS??

JMP

27%

SYES!!

BEQ

060514

;NO!!

sTYPE UNIT NUMBEK, DRIVE TYPE, TEST NUMBER, ERROR NUMBER, AND

057732

104401
104401
013746

057726
057740
3 057741

104403
003
000

25 057742
26 057746
27 057752
28 057756

013700

:PROGRAM COUNTER

is:

001217
060530
001234

.BYTE
BYTE

001276

060000

060024

104403
003
000

005037

MOV

38:
060520

3
0

TYPE 'DRVA''
..SAVE SUNIT FOR TYPEOUT
;s TYPE DRIVE NUMBER

..GO TYPE-=OCTAL ASCII

sTYPE 3 DIGIT(S)
; ;SUPPRESS LEADING ZEROS

#SRM80, 38

‘GET ASCII DRIVE TYPE

#26,R0

;1S DEVICE AN RMBO ?

TYPE

LERTYOS

STYPE' =

‘DRIVE TYPE MESSAGE IS STORED HERE

BNE

TYFE

LWORD

*NO
!

‘TYPE onxve TYPE

;TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER

060520

A $:

TS TNMB

:LOAD TEST NUMBER FOR

LERTYO]
TSTNMB,-(SP)

STYPE "TSTA'
+;SAVE TSTNMB FOR TYPEOUT

BYTE
.BYTE
CLR

3
0
ERRNMB

:2TYPE 3 DIGIT(S)
: ; SUPPRESS LEADING ZEROS
sLOAD ERROR NUMBER FOR

TYPE

LERTY02

TYPE “ERR¥'

CLR

MGV

TYPE
MOV

013746

TYPOS

005037
113737
013746

MOV

060054

104403
003
000
104401

TYPQS

060522

060554

LERTY0O
$UNIT,=(SP)

CMP

40 060030
41 060034
42 060042
43 060044
44 060050

45 060060

+SCRLF

;TYPE ‘DRIVE TYPE', RM80 FOR UNIT UNDER TEST
;GET RM BASE ADDRESS
,RO
$BASE
MOV
:GET DRIVE TYPE REGISTER
RMDT (RO) ,RO
MOV
:SAVE DRIVE TYPE BITS AND
#177740,R0
BIC

28:

060565
000000

TYPE
Mov

TYPQS

000026

33 060060
34
35
36 060002
37 060006
38 060014
39 060020

TYPE

MOVB
EEQ

58:

.BYTE
.BYTE
TYPE

STESTN,TSTNMB

S:TYPE TEST NUMBER

;60 TYPE=-OCTAL ASCII

SITEMB,ERRNMB : TYPEOUT
;SKIP IF_NO ERROR CALLED
5%
ERRNMB, - (SP)

3
0
.ERTYO3

::SAVE ERRNMB FOR TYPEOUT
;s TYPE ERROR NUMBER

26O TYPE-~OCTAL ASCII

::TYPE 3 DIGIT(S)
..SUPPRESS LEADING ZEROS
:TYPE ‘PC="

ERROR TYPEOUT ROUTINE

001132

46 0600064

013746

060070

104403
006
001

49 060074
50 060100
g} 060102

005737
001002
000137

060522

53 060106
54 060112

104401

001217

MoV

TYPQS

.BYTE
.BYTE

72
73
74
75
76
77
78

060164
060170
060174
060176
040200
060204
060206

79 060212
80 060214
51 060220
82 060222
83 060226
84 060230
85 060234
86 060242
87 060244
88 060246
89 060252
90 060256
91 060260
92 060264
93 060272
9% 060274
95 060300
96 060302
97 060306
98 060312

::SAVE SERRPC FOR TYPEOUT

6
1

..GO TYPE==0CTAL ASCi{l
ssTYDE 6 DIGIT(S)
:sTYPE LEADING ZEROS

E RNMB
278

060514

LSCRLF

78:

BOTFLG
CHRCNT

ERRNMB, RO

5177R0

000177

$
#PFECH,RO
9

060572

001532

9$:

060332
060524

118:

000015
06057

000012

12$:

000011

06052/

060527
000040
060524
000100

060524
001217
060527
060332

138:

sYES=TYPE CRLF

¢CLEAR BOT FLAG
sCLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF
sSEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
:BRANCH IF NOT

:MOVE POWER FAIL ERROR CALL TABLE TO RO

MoV

BEQ

198

:BRANCH IF NO ERROR MESSAGE

(R1)+,R2
19%
R2,18%
BOTADR
(R2)+,R3
17%
#CR,R3
128
CHRCNT
118
#LF R3
118
#HT R3
148

CHRCNT

#7 ,CHRCNY

ABLE

?ABPQINTS TO ERROR MESSAGE

sR2=ADDRESS OF MESSAGE STRING
¢BRANCH IF END OF MESSAGE

sLOAD ADDRESS OF STRINS
sCLEAR BOT ADDRESS
EggOF STRING??

CSRRIAGE RETURN??
:YES-CLEAR CHAR COUNT

;GET NEXT CHARACTER

;LINE FEED??
sYES=GET NEXT CHARACTER
:HO?{ZONTAL TAB??
:NO!!

sADJUST CHARACTER COUNT

13$

14$:

060527

:NO==EXIT

sFOUR _ENTRIES IN ERROR

;T YPE THE ERROR MESSAGE

108:

WAS AN ERROR CALLED?
BR IF YES

RO
RO
RO
#SERRTB-8.
,RO
(RO) ,R1

8s:

060527
000007

s TYPE PROGRAM COUNTER

GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0

68:

55 060116

56 060122
57 060126
58 060132
59 060134
60 060140
61 060142
62 060144
63 060146
64 060150
65 060154
66
67 060156
68
69
70 060160
71 060162

SERRPC,~(SP)

158:

'éNC?EMENT CHARACTER COUNT
R2,BOTADR
#64. ,CHRCNT
1%
BOTADR,R4
168

.SCRLF

CHRCNT
18%,R2

NO!!

;SAVE ADDRESS OF SPACE
Egb OF LINE??
:GET ADDRESS OF LAST SPACE

;BRANCH IF SPACE DETECTED
sTYPE CRLF
;CLEAR CHARACTER COUNT

:SET UP R2 FOR TESTING

SEQ 0245

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 26-1

SEQ 0246

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16 33:00 PAGE 26-2
ERROR TYPEOUT ROUTINE

000726
177777

QWO WSS

O
OO b =d b
QO==2=000

060526

168:
17%:
18%:

001217

BOTFLG
10$

CLRB
CLRB

BOTFLG
CHRCNT

TSTB

001217
060430

001217

208:

218:

238:
248:
258:

060562

000207
000000

sSET BOT FLAG

sTYPE ERROR MESSAGE STRING
:STRING ADDRESS GOES HERE

:UA§.STRING TRUNCATED??
:NO!!

BOTADR,R2
R2.,18%
#' ,=(R2)

sYES=TYPE CRLF
sCLEAR 30T FLAG
sCLEAR CHARACTER COUNT
sSETUP R2 FOR TESTING
:SETUP 188 FOR TYPING
sRESTORE SPACE

11$

;TYPE REST OF STRING

,S$CRLF

(R2§+

sRESTORE R2

(R1)+.,21%
278

:PUT HEADER ADDRESS FOR TYPE
sBRANCH IF END OF HEADERS
: (ASSUHE END OF DATA)

.MORD

sHEADER ADDRESS GOES HERE

;DATA WITH HEADER??

MOV
BEQ

TYPE

BEQ
MOV
MOV
1STB
BM]
BEQ
MOV

TYPDS

060514

sREPLACE SPACE

:TYPE ERROR HEADER AND ERROR DATA
2(RO) R
MoV
i9s:
sR1 POINTS TO ERROR HEADER TABLE
278
BEQ
;BRANCH IF NO HEADER
,SCRLF
TYPE
: (ASSUME NO DATA)
{(RO) ,R2
MOV
sR2 POINTS TO DATA ADDRESS TABLE
6(RO) .R3
MOV
;R3 POINTS TO FORMAT TABLE

228:

001217

11$
=(R&)
#-1,BOTFLG

BEQ

MOV
MOV
MOVB

000040

000002

104401
000000

.WORD
ISTB
TYPE

037

012137
001433

BR
CLRB
MOVB
TYPE

268:

278:
TSTNMB:

ERRNMG:
BOTADR:
BOTFLG:
CHRCNT:

BR
MOV

TYPOC

B8R

,$CRLF

208
(R2) +,R4
(R3)+.RS
(RS)+
248
238
a(R4)+,~(SP)

TST
BEQ
TYPE

(R4)
26$
ERTYO04

TYPE

$CRLF

228

208

RTS

.WORD

RESREG

.WORD
.WORD
.BYTE
.BYTE

:WHAT KIND OF DATA??
;BINARY
:OCTAL
:DECIMAL

258

a(R4)+,=(SP)

:R4 POINTS TO DATA ADDRESS

:RS POINTS TO FORMAT

25$
a(R4)+,=(SP)

MOV

TYPBN

.Nol [}

O
0
0
0

sMORE DATA??
“NO'!

sYES-TYPE 2 SPACES

sAND CONTINUE
:TYPE ONC BLAMK LINE
;BEFORE NEXT HEADER

sTEST NUMBER

:ERROR NUMBER
;BEGINNING OF TEXT ADDRESS
:BOT FLAG
:CHARACTER COUNT

CZRNBAO RMB0O DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 26-3

060674
103

1 060706
2 060710
3 060714
4 060716

060710
057700
060716
000

[=lalalV,PoTe]

O
wd b e d
S ONHONN

060706
127

060670
060674

(=]

060602
060696
120

-0
NO
OO

=0
—=O0ON
NOO

OO0O00O-—
Vs
\"WOOoOOoOON

ERROR TYPEOUT ROUTINE

000000
000

125

ERTY00:
ERTYO1:
ERTY0?2:
ERTYOQS:
ERTYQ4:
ERTYOS:
.EVEN

LASCIZ
JASCIZ

LASCIZ
LASCI2
LASCIZ
LASCIZ

aDRVA?

3., TESTHR
8., ERRYS
8, PC=d
e @
a-2a

PFECH1 PFECH2 ,PFECH3,PFECH4 ;WORDS DEFINING TAELES BELOW
. 46,0
7POWER MONITCR BIT IN CPU ERROR REGISTER FOUND SET?
ASCIZ
.EVEN
. +6,0
PFECHZ:
?CPUERREG?
.ASCIZ
.EVEN

PFECH:

PFECH1:

PFECHS3:

PFECH&:

.42
.BYTE

.WORD

CPSAVE,0
0.0

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 27

SEQ 0248

TTY INPUT ROUTINE

.SBTTL

TTY INPUT ROUTINE
233 3222233222822 2833232222220 8230 00202228

52 2 2 2 2 2

060720
060722
060724
060726

.ENABL

LSB

$TKCNT: .WORD

000000
000000
000000

$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB

060727

0O
0
1

202 0ttt dd

::NUMBER OF ITEMS IN QUEUE

:s INPUT POINTER
s OUTPUT POINTER
s TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE

;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

s*CALL:

o
*

060730
060734
060742
060750
060756

005037
012737
013737
012737
012737

060776

000207

060720

060722
060724
000060
000062

JSR

RETURN

$TKINT: CLR
MoV
MOV
MoV
Mov
TST
MOV
RTS

120162

PC,STKINT
STKCNT
;s CLEAR COUNT OF ITEMS IN QUEUE
#$TKQSRT ,$STKQIN ;;MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT :;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV @¥TKVEC ;;INITIALIZE THE KEYBOARD VECTOR
#200,9#TKVEC+2
a$Tk8
#100,3$TKS
PC

;;'BR'’ LEVEL &
s CLEAR DONE FLAG
s ;ENABLE TTY KEYBOARD INTERRUPT
ssRETURN TO CALLER

;#TK_SERVICE ROUTINE

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:«BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:*1T IN THE QUEUE.

:«IF THE CHARACTER IS A '‘CONTROL=C'' (C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE '‘CONTROL=C'* RESTART ADDRESS (SHUT)
061000

117746

061020

000002

061022

021627

%08
000003

.
0621.
000007

001500

061064
061072
061074

022737
001004
104401

18:

000176

001154

000001

060720

001212

::PICKUP THE CHARACTER

308
(SP)+

::BRANCH IF NO
*3CLEAN RANDOM XON OFF STACK
* SRETURN

CMP
BNE
TYPE
JSR
TST
JMP
CMP
BNE
CMP
BEQ

(SP) 43
13
,SCNTLC
PC.STKINT
(SP)+
SHUT
(SP) .47
28
#SWREG, SWR
63

::1S IT A CONTROL C?
+SBRANCH IF NO
SSTYPE A CONTROL=C (~C)
SSINIT THE KEYBOARD
*CLEAN UP STACK
::CONTROL C RESTART
$3IS IT A CONTROL G?
:3BRANCH IF NO
131S SOFT-SWR SELECTED?
$:G0 TO SWR CHANGE

CMP
8NE

#1,8TKCNT
3s

::]1. THE QUEUE FULL?
:;BRANCH IF NO

BIC
CMP

062126
060730

061062

a$TKB,=-(SP)

$TKSRV: MOVB

120156
177600
000021

BNE
TST
RTI

TYPE

#4177, (SP)
(SP) , #$XON

.$SBELL

$SSTRIP THE JUNK
231S IT A RANDOM XON?

:;RING THE TTY BELL

—

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 27-1

SEQ 0249

120042

31$:

120034
120030
177600
000021

000100

::£§§¢~ CHARACTER OFF OF STACK

(SP) . #23

$31S IT A CONTROL-S?

CLR

asTKS

$:DISABLE TTY KEYBOARD INTERRUPTS

TSTB
8PL
MOVB

a$TKS
318
a$TKB,=(SP)

“SWAIT FOR A CHAR
*:LO0P UNTIL ITS THERE
+:GET THE CHARACTER

BNE
:?Y

318
#100,387KS

:SBRANCH IF NO
..gggnasLe TTY KEYBOARD INTERRUPTS

120006

328:

000175
000040

48:

177516

012737
000002

CMP

BNE

TST

BIC
CMP

060720
000140

—-d

(=]
o

38:

000023

06113

061226

§§P>+

gsr

NN ==
OO =
lo Lo IV IV P ¥ 0
SN o
SO
NN S,O0NNO

o
o

TTY INPUT ROUTINE

060722
060722

060727

060726

060722

5$:

32¢

(SP)+

#4C177,(SP)
(SP)+,#21

*SBRANCH IF NO

*3CLEAN CHAR OFF STACK

SIMAKE IT 7-BIT ASCII
2318 IT A CONTROL-Q?

$TKCNT
(SP) ,#140

*3COUNT THIS CHARACTER
231S IT UPPER CASE?

(SPJ+,a$TKQIN

..AND PUT IT IN QUEUE

INC
CMP
BLT
CMP
BGT
BIC

(S
(SP) ,#175
43
#40, (SP)

INC
CMP
BNE
MOV
RTI

*UPDATE THE POINTER
$TKQIN
OFF THE END?
..GO
#$TKQEND
$TKQIN,
IF NO
*BRANCH
s$
POINTER
THE
::RESET
QIN
#$TKQSRT,$TK
*SRETURN

MOVB

..BRANCH IF YES
A SPECIAL CHAR?
13IS IT
:3BRANCH 17 YES
*MAKE IT UPPER CASE

ttttttttttttttttt'ttttttttttttt.ttttit*lttttl*tttttt.tt'ttttttt

*SOFTUARE SWITCH REGISTER CHANGE ROUTINE.

+*ROUTINE IS ENTERED

061230
061236
061240

061262

022737
001124
105777
100121
117746

001300

000176

001154

117714

117710
177600

TSTB
BPL
MOVB

@$TKS
158
a$TKB,-(SP)

BNE

BIC
CMP

000007

FROM THE TRAP HANDLER, AND WILL

;«SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
:«CALL WHEN OPERATING IN TTY INTERRUPT MODE.
#SWREG, SWR
$CKSWR: CMP
ss1S THE SOFT-SWR SELECTED
158
BNE
scEXIT IF NOT

#2177, (SP)
(SP) 7

SIS A CHAR WAITING?
::IF NOT, EXIT
YES

SSMAKE IT 7-BIT ASCII
$3IS IT A CONTROL-G?

**IF NOT, PUT IT IN THE TTY QUEUE

SIAND EXIT

tttt*tttttttfitttilttttfittttitttttttlitttt.titttlittltttitittttl

'CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

061264
061272

061306
061314
061320
061324
061330

123727

001150

000001

060730
117652
000001

001151

062140
062145
000176

:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS 2 RESULT OF A
6;C0NTRO%igBBEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
BEQ
TST
JSR
CLR
Mova

TYPE
$GTSWR: TYPE
MOV
TYPOC

SAUTOB, M1

s;ARE WE RUNNING IN AUTO-MODE?

S
(SP)+
PC, STKINT
asTK
n SINTAG

..BRANCH IF YES
sCLEAR CONTROL-G OFF STACK
..FLUSH THE _TTY INPUT QUEUE
sDISABLE TTY KEYBOARD INTERRUPTS
..SET INTERRUPT MODE INDICATOR

+SCNTLG
. SMSWR
SWRES,=(SP)

:;ECHO THE CONTROL=G (*G)
;s TYPE CURRENT CONTENTS
::SAVE SWREG FOR TYPEOUT
::60 TYPE--OCTAL ASCII(ALL DIGITS)

SEQ 0250

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 27-2
TTY INPUT ROUTINE

061332
061336
061340
0613462

104401
005046
005046
105777

062156

061350

061360
061364

061346 100375

198:

78:

117612

TYPE
CLR
CLR
TSTB

B8PL

,SMNEW
Z(sP)
-(SP)
a$TKS

;PROMPT FOR NEW SWR

..CLEAR COUNTER

s THE NEW SWR
;s CHAR THERE?
:sIF NOT TRY AGAIN

061354 042716 177600

117746

117606

BIC

#2177, (SP)

a$TkB,-(SP)

::PICK UP CHAR
soMAKE IT 7-BIT ASCII

000003

061366
061372
061376
061404
061406
061414

021627
001015
104401
062706
123727
001003
012777
000137

062126
000006
001151

CMP
BNE
TYPE
ADD
C(MPB
BNE
MOV
JMP

(SP) 43
98
,S$CNTLC
#6,SP
SINTAG,.#1
8$
#100,a8TKS
SHUT

2:1S IT A CONTROL-C?
s sBRANCH IF NOT
;sYES, ECHO CONTROL=-C (*C)
::CLEAN UP STACK
s;REENABLE TTY KEYBOARD INTERRUPTS?
s :BRANCH IF NO
s;ALLOW TTY KEYBOARD INTERRUPTS
2CONTROL=C RESTART

061420
061426

021627
001005

000025

98:

104401
062706

062133
000006

(SP),#25
108
,S$CNTLU
#6.SP

::1S IT A CONTROL-U?
s sBRANCH IF NOT

208:

CMP
BNE
TYPE
ADD

19§

2:YES, ECHO CONTROL-U (*U)
..IGNORE PREVIOUS INPUT
;oLET'S TRY IT AGAIN

021627

000015

108:

CMP

(SP) ,#15

2IS IT A <CR>7

061426
061432

061436 000737
061440

061444
061446
061452

000100
062170

001022
005766
001403

000004

061462
061465

062706
104401

oooooe
001217

061500
0618)2
061510
061512
061516
061522
061524
061530
061532
061536
061542
061544
061546
061550
061552
061556

001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616

MOVB

00000%
117544

0614546 016677 000002 117472
061472 123727 001151

000001

000100

117450

061562 000667
061564 104401
061570 000720

056246
000060

8s:

11$:
148:

15$:
168:

000067
000060
000002

000002
177776

178:

001216

188:
.DSABL

BNE
ST
BEQ

16$
4(SP)
118

ADD
TYPE

#6,SP
$CRLF

BNE
MOV
RTI
JSR
cMP
BLT
CMP
86T
BIC
TST
BEQ
ASL
ASL
ASL
INC
BIS

158
#100,387KS

MOV

(MPB

B8R
TYPE
B8R
LSB

2(SP) ,aswR
SINTAG.#1

PC,S$TYPEC
(SP) ,#60
188

(SP) ,#67

188
#60, (SP) ¢
2(SP)
17%
(SP)
(SP)
(SP)
2(SP)
<2(SP), (SP)

78
$QUES
208

JsBRANCH IF
JJYES, IS IT THE FIRST CHAR?
..BRANCH IFYES
::SAVE NEW SWR
J2CLEAR UP STACK
:2ECHO <CR> AND <LF>

:;RE=-ENABLE TTY KBD INTERRUPTS?
NOT

s sRE-ENABLE TTY KBD INTERRUPTS

IF YES
ANCH 77
:3BR
2
BRANCH IF YES

..STRIP-OFF ASCII
::1S THIS THE FIRST CHAR
:sBRANCH IF YES
..No SHIFT PRESENT
CHAR OVER TO MAKE
22
::

ROOM FOR NEW ONE.

..KEEP COUNT OF CHAR
::SET IN NEW CHAR
..GET THE NEXT ONE
:TYPE 2<CR><LF>

..SIHULATE CONTROL=V

::tfi.ttttttt't'ttttttt'tt'tt'tttttlQtttttttttfi'.tttttt'lt..t'tt'.

SEQ 0251

CZRNBAO RM80 DSKLS PT1 MACRO VO04.00 14=JAN-82 16:33:00 PAGE 27-3
TTY INPUT ROUTINE

st TH IE ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s«CAL
o
‘e
:t

011646
016666
005066
005046
012746
000002

005737

000004
000004

000002

MOV

CLR
CLR
MOV

061616
:
648
18:

060720

060720
177070
060724
060724
061660

000002

$RDCHR: MOV

060726

000004

060727
060724

RTI

TST
BEQ
DEC
MOVB
IN®
CMP
BNE

28:

MOV

RTI

(SP) ,~(SP)

4(5PS 2(sP)
4(SP)
-(SP)
#64$,-(SP)

$TKCNT
1s
$TKCNT
@$TKQO. T,4(SP)
$TKQOUT

sGET A CHARACTER FROM THE QUEUE

..CHARACTER IS ON THE STACK

;:WITH PARITY BIT STRIPPED OFF
..Pugn gouu THE PC AND

::GET READY FOR A CHARACTER
*PUT NEW PS ON STACK

*SPUT NEW PC ON STACK
*:POP NEW PC AND PS

s;WAIT ON A CHARACTER
;DECREMENT THE COUNTER

..GET ONE CHARACTER

sUPDATE THE POINTER
$TKQOUT,#$TKQEND ..DID IT GO OFF OF THE END?
; ;BRANCH IF NO
2%

#STKQSRT,$TKQOUT’..E;SST THE POINTER

fittlttttfitttt'tttttt"tttttttfi&ttttttttt""tttttttttitttttttt.

'Zfi{f ROUTINE WILL INPUT A STRING FROM THE TTY
L

:
;v

RDLIN
RETURN HERE

$SRDLIN: MOV
CLR
18:
MOV

010346

062116
062126

2s:

CMP

BLOS

RDCHR

108 :

000177

000134
062114
177777

062114

6$:

062116

5$:

062114

001003

000025

CMPB

BNE
ST
BNE
MOVB
MOV

DEC
CMP

BLO
MOVB
TYPE

062114
06214

000134

MOVB

062114

78:

B8R

TST
BEQ
MOVB

TYPE
CLR
C(MPB

BNE

R3 -(SP)
~($P)
#STTYIN,R3

8.
#STTYIN+,R3
4$

(SP)+,(R3)

#4177, (R3)
5
(SP)
6$
#'\,9%

#-1,(SP)

R3
R3,#STTYIN
/X3
(R3).9%
9%

(SP)
143
#'\,9%
.98

(SP)
#25,(R3)

;s INPUT A STRING FROM THE TTY
s sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

s :TERMINATOR WILL BE A BYTE OF ALL 0'S
CLEAR THE RUBOUT KEY

..GET ADDRESS
s sBUFFER FULL?

,,BR IF YES

;GO READ ONE CHARACTER FROM THE TTY
:3GET CHARACTER
..IS IT A RUBOUT
sBR IF NO

..IS T?ISOTHE FIRST RUBOUT?

§3

061572
061574

RDCHR
RETURN HERE

:iTYPE A BACK SLASH

..SET THE RUBOUT KEY
:BACKUP BY ONE

..STACK EMPTY?
:BR_IF YES

..SST?PPEO TYPEOUT THE DELETED CHAR.
::G0 READ ANOTHER CHAR.
..RUBOUT KEY SET?
sBR _IF NO

::TYPE A BACK SLASH
;CLEAR THE RUBOUT KEY

..IS CHARACTER A CTRL U?
N
::BR IF

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 27-4
TTY

SEQ 0252

INPUT ROUTINE

062004

104401

062133

062012
062016
062020

122713
00101
105013
104401
104401

000022

062010 000726
062022
062026

062032 000717
062036 104401
062040 000712

TYPE

8s:

001217
062116
001216

48:

3$:

062042
062046
062052
062056
062060
062064
062u70
062072
062074

111337
104401
122723
001305
105063
104401
005726
012603
011646

062114
062114
000015

062106

012766

062116

177777

000002
000
000

103
125
107
012

000004

015
015
015
123

SCNTLC:
SCNTLU:
S$CNTLG:
SMSWR:

040

3 062170

005737

000042

SHUT:

004652
001300
0564104

1$:

001002
000137
005037
000137

116

SMNEW:
.EVEN

$CNTLU

A ''*R'%?
;:1S CHARACTER
s sBRANCH IF NO
ssCLEAR THE CHARACTER

1
$QUES
is

..GO PICKUP ANOTHER CHACTER

,$CALF
STTYIN

MOV
MOV

MOV

#STTYIN,4(SP)

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

TST

BNE
JMP
CLR
JMP

,,TYPE A CONTROL ‘V"’
;GO START OVER

#22,(R3)
3s
(R3)

(R3).9%
.98
#15,(R3)+
28
=1(R3)
,SLF
(sP)+
(SP)+,R3
(SP) ,=(SP)

MOVEB
TYPE
C(MPB
BNE
CLRB

RTI
98:
BYTE
BYTE
STTYIN: .BLKB

136
136
136
015
040

4 062174
5 062176
6 062202
7 062206

BR
TYPE
8R

MOV

062126
062133
062140
062145
062156

CMPB
BNE
CLRB
TYPE
TYPE

TYPE
ST

001220

062076 016666 000004 000002

062112
062114
062115
062116

4(SP},2(SP)

s:TYPE
A "'CR" & "LF"
:sTYPE THE INPUT STRING
TYPE A *2°

::CLEAR THE BUFFER AND LOOP
ssECHO THE CHARACTER
..CHECK FOR RETURN

;LOOP IF NOT RETURiK

..CLEAR RETURN (THE 15)
ssTYPE A LINE FEED

;s CLEAN RUBQUTKEY FROM THE STACK
:;sRESTORE R3

..ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
e’
; sRETUR

FOR ASCII CHAR. TO TYPE
..;an?ce

0
0
8.

::RESERVE 8 BYTES FOR TTY INPUT

/4C/<15><12>
1CONTROL *'c"*
/4U/<15><i2>
::CONTROL 'V’
/746/<15><12>
£ CONTROL "G
<15><12>/SWR =
/

NEW = /

ane2

18
START
$DEVM
$EOP

sANY MONITOR PRESENT ?
:BR IF YES
;G0 TO START
;FUDGE NO DRIVES IN MAP
;RETURN TO SEOP

SEQ 0253

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 28

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY
23222 2223233232382 0282222223200

12 2 2 2 2 2

20000ttt Ridldd)

+#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
s*CHANGE !T TO BINARY.

s*CALL:
o %

RDOCT
RETURN HERE

062212

062214

062222
0622246
062226
062230

(11646

016666

010046
010146
010246
104412

000004

000002

$RDOCT: MOV

1$:

2s:

062260

062272
062276

062312

04271?
6

010166
01023;

000900

RDLIN
MoV

CLR
CLR

Movs
BEQ
ASL
ROL
ASL
ROL
ASL
ROL

177770

000012
062312

MOV
MOV
MoV
MOV

8IC

ADD

3s:

$HIOCT:

B8R
TST

MOV
MOV
MoV
MOV
MOV

RTI

.WORD

(SP) ,=(SP)

4(SP),2(SP)
RO,=(SP)
R1.=(SP)
R2,-(SP)

(SP)+,RO

R1
R2

(RO) +,-(SP)

ssREAD AN OCTAL NUMBER
;;LOW ORDER BITS ARE ON TOP OF THE STA(K

::HIGH ORDER BITS ARE IN SHIOCT

:;PROVIDE SPACE FOR THE
: s INPUT NUMBER
:sPUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
:;READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
J2CLEAR DATA UQRD

;sPICKUP THIS CHARACTER
::{5 ZERO GET OUT
Jo%h

;o8
#%C7,(SP)
(SP)+,R1

::STRIP THE ASCII JUNK
scADD IN THIS DIGIT

s.L00P

(SP)+,R2
(SP)+,R1
(SP)+,RO

:sPOP STACK INTO R?
:sPOP STACK INTO R1
:;POP STACK INTO RO
s sRETURN
s sHIGH ORDER BITS GO HERE

(SP)+
R1,12(SP)
R2,$HIOCT

:;CLEAN TERMINATOR FROM STACK
s SAVE THE RESULT

TRAP DECODER

.SBTTL

TRAP DECODER

T L

bbb bdivbtviibiiviai ittt

tTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP'' INSTRUCTION
s~AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;#GO TO THAT ROUTINE.

062314

016646

$TRAP:

000002
000020
062332

18:

000002

062352

000200

2(SP) ,~(SP)
#20, (SP)

MOV

2(SP) ,RO

::GET TRAP ADDRESS

MoV
RTS

$TRPAD(R0)
,RO
RO

;:INDEX TO TABLE
::60 TO ROUTINE

MOV
RTI
MoV

TST
Move
ASL

062366

..ASSUHE THE STATUS OF
;s THE CALLER==DO NOT ALLOW

MOV
BIC

#18,-(SP)

RO,=(SP)

=(R0)
(RO) ,RO
RO

;s T=BIT TRAPS
:sSET_THE NEW STATUS
s s SAVE RO

s ;BACKUP BY 2
..GET RIGHT BYTE OF TRAP
;POSITION FOR INDEXING

;:THIS IS USE TO HANDLE THE °*‘GETPRI'’' MACRO
062354
062356
062364

011646
016666
000002

000004

000002

S$TRAP2: MOV
MOV
RTI
.SBTTL

(SP) ,=(SP)
4(SP) ,2(SP)

:;MOVE THE PC DOWN
;;MOVE THE PSW DOWN
:;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE '‘TRAP'' INSTRUCTION.

:
062366
062370
062372
062374
062376
062400
062402

062354

S$TRPAD:

ROUTINE
.WORD

$TYPE
$TYPOC
$TYPOS
S$TYPON
$TYPDS
S$TYPBN

S$TRAP2

;.CALL=TYPE
;.CALL=TYPOC
.CALL=TYPOS
;.CALL=TYPON
;. CALL=TYPDS
;;CALL=TYPBN

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE

TYPE
TYPE
TYPE
TYPE
TYPE

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NU"BER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)
BINARY (ASCII) NUMBER

062404

$GTSWR

;. CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

062406

S$CKSWR
SRDCHR
SRDLIN
$RDOCT
$SAVREG
$SRESREG

;. CALL=CKSWR
;. CALL=RDCHR
..CALL ROLIN
;;CALL=RDOCT
::CALL=SAVREG
;;CALL=RESREG

TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)
TRAP+15(104415)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-R5> ROUTINE
RESTORE RO-R5 ROUTINE

062420

meo

SEQ 0254

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 29

—

SEQ 0255

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 30

POWER DOWN AND UP ROUTINES

.SBTTL

POWER DOWN AND UP ROUTINES

b
b ad ed
b

elelelelelalele]

062422

222 O
2338232332223

062562
000340

116476
062566
062474

000024
000026

POUER DOWN ROUT INE

$PWRDN: MOV
Mov
MoV
MOV

MoV
Mov
MOV
MOV
MOV
MOV
MOV

000024

HALT
BR

062472

L L

T T

e T

T R A T

#$ILLUP,3#PWRVEC ;;SET FOR FAST UP

#340,#PURVEC+2 ;:PRIO:7
RO.=(SP)
::PUSH RO ON STACK
R1,=(SP)
R2,=(SP)
R3,-(SP)
R4,=(SP)
R5,=(SP)
aSWR,=(SP)
SP,$SAVR6

:sPUSH R1 ON STACK
:;PUSH R2 ON STACK
::PUSH R3 ON STACK
:sPUSH R4 ON STACK
:sPUSH R5 ON STACK
..PUSH 8SWR ON STACK
¢SAVE SP

: sHANG UP

#SPWRUP,a#PWRVEC ;;SET UP VECTOR

a2 ddddddd)
0 Rd R R 232
22282
2232232322020
JRARRARRAARARAR I TSTT22 28232

062474

062562
062566
062566
062566

000024

POUER UP ROUTINE

$PWRUP: MOV
18:

INC

000024
000026
.

$ILLUP:

062570

012

120

2sWAIT FOR THE INC
::0F

WORD

#340,3#PWRVEC+2 ;:PRIO:7

$PWRMG:

062566

$SAVR6

:;POP STACK INTO @SWR
(SP)+,aSWR
(SP)+,RS
::POP STACK INTO R5
:;POP STACK INTO Ré
(SP) +,R4
::POP STACK INTO R3
(SP)+,R3
(SP)+,R2
::POP STACK INTO R2
..POP STACK INTO R1
(SP)+,R1
(SP)+ R0
;POP STACK INTO RO
#SPWRON,@#PWRVEC' :;SET UP THE POWER DOWN VECTOR

116430

06242¢
000340

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
:cGET _SP
$SAVRG, SP
ssWAIT LOOP FOR THE TTY
$SAVR6

$SAVR6:
S$POWER:

$POWER

.~
.ASCIZ
.EVEN

<15><12>''POWER"’

:REPORT THE POWER FAILURE
:;POWER FAIL MESSAGE POINTER
..THE POWER UP SEQUENCE WAS STARTED

:: BEFORE THE POWER DOWN WAS COMPLETE
;:PUT THE SP HERE

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 31

SEQ 0256

APT COMMUNICATIONS ROUTINE

.SBTTL

APT COMMUNICATIONS ROUTINE

Se 2222232232333 223 3322223232333 83232222222 38d23022 0

062600
062606
062614
062616
062624
062624
062626
062630
062634
062636
062644
062646

112737
112737
000403
112737
010046
010146
105737
001450
122737
001031
132737

000001
000001

063044
063042

$ATY1:

000001

063044

$SATY4:

$SATY3:
$SATY(:

063042

000001

001242

000100

001243

062656
062662
002670

017600
062766
005737

000004
000002
001222

062676

010037

001236

062706

163700

001236

062714
062720

010037
012737

001240
000004

062730
062736
062744
062750
062754

017637
062766
013746
004737
000000

000004
000002
177776
056034

062756

105737

063044

062764

005737

001242

062772

005737

001222

063000

017637

000004

1$:

28:

063044

105037

000

000040

#1.SMFLG
$ATYC
#1,8FFLG

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB

RO, =(SP)
R1,=(SP)
SMFLG
5
WAPTENV,SEMY
3s
#APTSPOOL,SENVM

:2PUSH RO ON STACK
:2PUSH R1 ON STACK
::SHOULD TYPE A MESSAGE?
::]F NOT: BR
:SOPERATING UNDER APT?
:;1F NOT: BR
::SHOULD SPOOL MESSAGES?

(RO)+

:;GET MESSAGE ADDR.
JsBUMP RETURN ADDR.
::SEE IF DONE W/ LAST XMISSION?
2:IF NOT: WAIT
:sPUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

BEQ
MOV
ADD
TST
BNE
MOV

TST8

3
34 (SP) RO
#2.4(SP)
$MSGTYPE
1%
RO, SMSGAD

2s
, RO
$MSGAD
RO
RO, $MSGLGT
#4.SMSGTYPE
58
34(SP) .48
#2,.6(SP)

g::

108:

38:

118:

001224
000004

063042

::]F NOT:

;;SUB START OF MESSAGE
3:GET MESSAGE LNGTH IN WORDS
ssPUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

::PUT MSG ADDR IN JSR LINKAGE

. +BUMP RETURN ADDRESS

JSR
LWORD

PC,$TYPE
O

::PUSH 177776 ON STACK

TSTB

SFFLG

::SHOULD REPORT FATAL ERROR?
:sIF NOT: BR
; :RUNNING UNDER APT?
:21F NOT: BR

BEQ
ST
BEQ
TST
BNE
MOV
ADD

128

SENV

128

INC
CLRB
CLRB
CLRB

$MSGTYPE
118
a4 (SP) ,$FATAL
#2.4(SP)
$MSGTYPE
S$FFLG
SLFLG
SMFLG

RTS

MOV
MOV

$SMFLG:
$SLFLG:
$FFLG:

::TO ONLY REPORT FATAL ERROR

177776, (SP)

MOV

12%:

063030

#1,$FFLG

dddidlilidd)

MOVB
BR
MOVB

BNE
SuB
ASR
MOV
MOV
BR
MOV
ADD

001222

062754
000004

MOVB

;:70 REPORT FATAL ERROR
::TO TYPE A MESSAGE

.BYTE
.BYTE
.BYTE
-EVEN
APTSIZE = 200
APTENV = 001
APTSFOOL= 100
APTCSUP = 04V

(SP)+,R1
(SP)+.R0

0
O
O

+3CALL TYPE MACRO

:sFINISHED LAST MESSAGE?
WAIT
:21F NOT:

::GET ERROR #
::BUMP RETURN ADDR.
TO TAKE ERROR
APT
::TELL
FLAG
FATAL
AR
:3CLE
22CLEAR LOG FLAG
:3CLEAR MESSAGE FLAG
::POP STACK INTO R1

::POP STACK INTO RO

;;RETURN
;s sMESSG. FLAG
2:L0G FLAG
J:FATAL FLAG

CZRNBAOQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 32

CONSOLE MESSAGES
2

3 063046
4 063050
5 063055
6 063061

7 063064
8 063115
9 063125

10 063167

114
040
000

EQUALS:
ALL:
QUES:
COMMA:

122

115

126

CNSLO3: .ASCIZ

200
200
040

124
122
114

11 063176

13 063317

200

101

200

14 063374
15 063375
16 063416
17 063445

200
040
200
116

19 063466
20 063474
21 )63512

104
200
122

24 063551
25 063566
26 063605
27 063616
28 063626
29 063630
30 063632
31 063633
32 063634
33 063635

040
040
040
040
116
131
040
040
040
040

22 063517
23 063534

.ASCIZ
LASCIZ
.ASCIZ
_ASCIZ

000
114
077
040

114

18 063452

CONSOLE MESSAGES

075
101
040
054

040

12 063232

.SBTTL

200

040
040

124

077
104
117
104
122
125
115
116
114
116
116
117
117
000
000

000

131
115
111

MSHELP: .ASCIZ
(NSLO1: .ASCIZ
CNSLO2: .ASCIZ

111

(NSLO4: .ASCIZ

116

LASCIZ

131

111
122
116
122
111
116
070
117
117
117
117
106
116

CNSLO7: .ASCI]

CNSLO8:
C(NSLO9:
DRIVES:
NONE:

.ASCII
.ASCIZ
.ASCIZ
.ASCIZ

MSDRVS: .ASCIZ

MSGDRV: .ASCIZ
SYSTAT: .ASCIZ
$RMB0: .ASCIZ

NOTRM:
LODEV:

NOTPRS:
NOTAVL:
UNTOFF:
UNTON:
N:
Y
BLNKS4:
BLNKS3:
BLNKS2:
BLNKS1:
.EVEN

_ASCIZ
.ASCIZ

,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
JASCIZ
.ASCI1
.ASCII
.ASCII
.ASCIZ

a=d
@ALLa<CRLF>
a ? a
a, @

<CRLF>QTYPE HELP TEXT (L) N ? @
<CRLF>3RMCS1=a

@ LIMITS - LO= 160000, HI= 17XXXX@<CRLF>
@RMVEC=a

0, HI= 1000a<CRLF><LF>
@ LIMITS = LO=

<CRLF>aTYPE ''A’* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.3

<CRLF>
@ ?ILLEGAL INPUTQ<CRLF>
<CRLF>/DRIVE(S) TO BE TESTED/
/NONE/

<CRLF>/DRIVE(S): /

/DRIVE/
<CRLF>/UNIT STATUS:/
/RMB0/

/ NOT AN RMBO/
/ LOAD DEVICE/

/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
/ ONLINE/
/N/
/Y/
/ /
/ /
/ /
/ /

SEQ 0257

SEQ@ 0258

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 33
FUNCTION CODE

TABLE

.SBTTL

3
g

:THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
;EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS:

FUNCTION CODE TABLE

ATA = BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

7
8
9
}?

IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,
:BIT 15 IS 2ERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
:NOTZ THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
sIT IS NOT EXPECTED AS A RESULT OF THE COMMAND.

12
}z

WCE = BIT 14 IS SET _IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

15
}9

OP1 - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF OP] ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

18
58

IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

21
22
Sz

WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
:THE WRITE FRRORS WHICH ARE ENABLED ARE "WLETM, 'WCF'', 'DPE", ‘UPETM.

25
59

IAE - BIT 10 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT CO/MAND.

28
29

IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE

STMXF'Y, TUBT",

AOE ~ BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

:COMMAND.

THE ERRORS ENABLED BY THIS BIT ARE ''TRE'’, "DLT'’, "NEM",

*'AOE"’.

35
36
%g

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
;HEADER ERRORS INCLUDE ‘‘HCRC'’, ‘HCE'', ‘'FER'’, AND 'BSE"".

39
40

IF DATA FIELD “RRORS ARE ENABLED DUKING THE EXECUTION OF THAT

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

;

BIT 01 IS NOT USED.

;

gg 063640

FNCD18:

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

57 063640

BIT 08 IS NOT USED.

;COMMAND.

020000

.WORD

THESE ERRORS INCLUDE 'MDPE’’, 'DCK'', AND ‘ECHTM.

ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.
sFUNCTION CODE TABLE

OP!

+NOP

C?
3,

FUNCTION CODE TABLE

58 063642
59 063644
60 063646

61 063650

62 063652
63 063654
64 063656
65 063660
66 063662

67 063664
68 063666
69 063670
70 063672
71 063674
72 063676

73 063700
74 063702
75 063704
76 063706
77 063710
78 063712
79 063714
80 063716
81 063720
82 063722
83 063724
84 063726
85 063730
86 063732
87 063734
88 063736

130001
132000
130000

.WORD
.WORD
.WORD

OPI!ATA!ILF!IV(C
ATA!OPI!IVC!IAE
ATA!OPI!IVC

sILLEGAL FUNCTION (2)

030000
130000
130000
020500

.WORD
.WORD
.WORD
.WORD

OPI!IVC
OPI!ATA!IV(C
OPI'!ATA!IVC
OPI

;RELEASE
;OFFSET
:RETURN TO CENTERLINE

130001
130001
132000
130001
130001
130001

WORD
.WORD
.WORD
WORD
.WORD
.WORD

OPI!ATA!ILF!IVC
OPJ!ATA!ILF!IVC
ATA!OPI!IVC!IAE
OPJ!ATA!ILF!IV(C
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

020000

130001
130001
130001
130001
073300
073300
130001
130001
037200
037000
130001
130001
033300
033500
13000
130001

.WORD

+WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORL
.WORD

OP]

OPI!ATA!ILF!IVC
OPJI'!ATA!ILF!IVC
OPJ'!ATA!ILF!IVC
OPI!ATA!ILF!IVC
WCE!OPI!IVC!IAE!AOE!HCE!ECH
WCE!OPI!IVC!IAE'AOE!HCE'ECH
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!WLE!IAE!AOE!HCE
OPI!IVC!WLE!IAE'!AOE
OPI!ATA!ILF!IVC
OPJ!ATA!ILF!IVC
OPI!IVC!JAE!AOE!HCE!ECH
OPI!IVC!IAE'!AOE!HCE!ECH
OPIiATA!ILFIIVC
OPJ'!ATA!ILF!IVC

; SEEK

;RECAL IBRATE

:DRIVE CLEAR

:READ IN PRESET
:PACK ACKNOWLEDGE

;ILLEGAL FUNCTION (26)

sJLLEGAL FUNCTION (26)
¢ SEARCH
sJLLEGAL FUNCTION (32)
sJILLEGAL FUNCTION (34)
sILLEGAL FUNCTION (36)
sILLEGAL FUNCTION (40)
sJILLEGAL FUNCTION (42)
sILLEGAL FUNCTION (44)
SILLEGAL FUNCTION (46)
sWRITE CHECK DATA

;WRITE CHECK HEADER AN D DATA

;ILLEGAL FUNCTION (54)

:ILLEGAL FUNCTION (56)
;WRITE DATA

:WRITE HEADER AND DATA

sILLEGAL FUNCTION (64)

:ILLEGAL FUNCTION (66)

:READ DATA
;READ HEADER AND DATA

;ILLEGAL FUNCTION (74)
: ILLEGAL FUNCTION (76)

SEQ 0259

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 33-1

CZRNBAQ RMB80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 34
*TTENTION (ATA) TABLE

JSBTTL

5
3 063740
4 063761
S 063742
6 063743
7 063744
8 063745
9 063746
10 063747

001
002
004
010
020
040
100
200

ATTENTION (ATA) TABLE

ATN"BL: .BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
LBYTE

1,
2.
&.
8.
16.
32.
64,
128.

SEQ 0260

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 35

.WORD

JEROS:

52 064106
53 064110
54 064112
55 064114
56 064116
57 064120

010000
020000
040000
100000
100000
040000

.WORD
.WORD

.WORD

.WORD
.WORD
Y D‘ORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORL
.WORD
.WORD
.WORD
.WORD
.WORC
.WORD
.WORD

o
&
e
o
&
e

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

ONES:

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

(=4
L=
o
W

(=]

(=]
o

W
~
~

000000

“GDTPT:
MIXED:

DATA PATTERN TABLE

i NN =2 00 S5 N =2 VNN = OMAN = 00 SN =2 O O =
N =2 UNON = NIAN = 1\) 8 00 =2 NON ONMAN =2 00 XN = NN ~2 ON N =2 NN — O
= OO0 - \NNJ = \Ne
e o o NN NN =OOO =0V
ORI = O OO = \NNIESHNION
o NN =PRI S OOWNWVIANNWNO
O SN
o o
WNNULWNOC
S PONOONCD
o o (N NN =200ONANNONGO
=2 NN
¢ o
COONONCONIONCDSe ¢ o
o o o o NNWVIWVANN® o
00008 o o o

.SBTTL

o WVESMANN

PORNINININININ)
~d b b od o b d b b b

=2 OO 00 NN SMANN = O 0 00 NN S W) —

DATA PATTERN TABLE

SEQ 0261

€2
ER

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 35-1

DATA PATTERN TABLE

58 064122
59 0641264
60 064126
61 064130
62 064132
63 064134
64 0564136
65 064140
66 064142
67 066144
68 064146

69 064150
70 064152
71 064154
72 064156
73 066160
74 064162
75 064164
76 064166
77 064170
78 064172
79 064174
80 064176
81 064200
82 064202
83 064204
84 064206
85 064210
86 064212
87 064214
88 064216
89 064220
90 064222
91 064224
92 064226
93 064230
94 064232
95 064234
96 064236
97 064240
98 064242
99 064244
100 064246
101 064250
102 064252
103 064254
104 064256
105 064260
106 064262
107 064264
108 064266
109 064270
110 064272
111 064274
112 0646276
113 066300
114 064302

020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010

000004
000002
000001
000000
177777
177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000
000000
100000
140000
160000
170000
174070
176000
177000
177400
177600
177700
177740
177760
177770
177774
177776
177777
125252
152525
125252
177777
177776
177775
177773
177767

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

.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
WORD
WORD
.WORD
WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
MWORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
.MORD
WORD
.WORD
WORD
.WORD
.WORD
WIRD
.WORD
.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD

8192.
4096.
2048.
102¢4.
512.
256.
128.
64.
32.
16.
8.

4.
2.
1.
0.
65535.
65534.
65532.
65528.
65520.
65504.
65472.
65408.
65280.
65024.
64512.
63488.
61440,
57344.
49152.
32768.
0.
0.
32768.
49152.
57344,
61440.
63488.
64512.
650264.
65280.
65408.
65472.
65504.
65520.
65528.
65532.
65534.
65535.
43690.
43690./2
43690.
65535.
65534.
65533.
65531.
65527.

SEQ 0262

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 35-2

DATA PATTERN TABLE

115 064304
116 064306
117 064310
118 064312
119 064314
120 064316
121 064320
122 064322
123 0643264
124 064326

125 064330
126 064332
127 064334
128 064336
129 064340
130 064342
131 064344
132 064346
133 064350
134 064352
135 064354
136 064356
137 064360
138 064362
139 064364
140 064366
141 064370
142 064372
143 064374

144 064376
145

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

177757
177737
177677
177577
177377
176777
175777
173777
167777
157777

13777”
077777
077777
137777
1.°777
¢ 77
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776
177777

ENRGDT:
.EVEN

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

65519.
65503.
65471,
65407,
65279.
65023.
64511,
63487,
61439,
57343,

49151,
32767.
32767.
49151,
57343,
61439,
63487.
64511,
65023.
65279.
65407.
65471.
65503.
65519.
65527,
65531,
65533,
65534.
65535.

SEQ 0263

]

CZRNBAQ RM80 DSKLS PT1 MACRO VC&4.00 14~JAN-82 16:33:00 PAGE 36

ERROR MESSAGE TABLE

OWVIN | VINWN
= WVOWWNO
Ssr—aso
2O

w O=O

b b cnd e b d b b wnd o e e wd = O = OO
) b d

OO
OO0

WO
WO
- QWO
WVINOWO

WOWNS

OO
OO = O

NINNINNNNINO
NNORONON ONONIOCNIONIONNMNIN

NOOOOOOOOOOOOOOOOONON

NO
SNO
~

o~ O

OO0

EMT16:

—~SOOOO

770

N
NO

000
ONONO
NINONO

ONWVS OO

EMT10:

000000

b b e

000000
102237

—

b b N b

b N =S = ON N =2 N WN =N

NWNN =

2 B et

VNV
NN RN NN = YO
O VI N N = N O O NWWMIO IO MO MO WO MO WO VIO WM = AVIO NN

QOO
O b b O = b b b i b b b b b b b b ed b b b cad b b —d b D - D ad and b b ed b i d =B D) = O A RO = OO
NONONOONIOO0OO00OOOO00OO00OLUOOOOOROOOOOOOOOOOOONOONONONONN

O NS
NN
OB HONON

QOO0
OONONONONON

b=
N =N
NN
N NN NN NON WO ONOONONOONOONONONONONONONONONONON NON NN NN
=HO=ONO =NV
= NN O NNININNINI
= NI =3 N) =N = N) =2 N\) b\ =b —b b
b b b b e e
M) ON =2 O W =N

NI PININ) b ad ced b b b b d b ead

NOWNSUIN
=20V NO NS WA —=O 000~

POPVPINI N

NOVWNES
WY -

VIWAWAVAWAIWALWL

EMT1:

= PONIN = PININ = NI

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORC
.WORD
.WORD
.WORD
.WORD
-WORD
+WORD
.WORD
-WORD
.WORD
.WORD

4 0646404

- POV

3 064376

ONONONONO

ERROR MESSAGE TABLE

N) = O = O = O = O = NS NO S = S NN WA

.SBTTL
00O
O = O ek O == o OwOO=O
-—h Ot O=0O
-—
- O O b b b b i oo e d e o v e b e ad b A O OO =O O = o
OOOOOOOOOONONNONONO ~
~NO NOOQOOO
NONNON
ONNONO
(=]
ONONONOO NONNON
ANONIONIONIONIONI
NN NNN NN NN ~
NN N ~NAND
N N~
N NN NN
NN
N
N NN NN YO N ~IRD
W = VAW NV AWV
AV b =
\
AVISNIWAIW
~NWV
WAL
(¥,]
ViAW Wi VAN
WAV
WS BEDPENSEBSESEN
WS WS SN
~N &N S B NSNS
NN
NN
&H
SN
NF N
[VIV,
NIV NI NN (VL IV IV [WVIV LV (VLN IV LV IV, IV, bV
LV,|IV, LVEIV,
%,] IV,|W VIV NWVINWVINM
VINWINWVNON
NWVIWNAALN [VIV,
\V,|[VYIV1V,

102212

EMT2:

EMT3:
EMTS:

EMTS:
EMT6:

EMT7:

EMT11:

EMT12:

EMT13:
EMT14:

EMT1S:

EMT17:
EMT20:

EMT21:
EMT22:

EMTZ23:
EMT24:

EMTZS:
EMT26:
EMV27:

EMT30:

EMT31:

EMS300,EMS1.,0

EMS301.EMS302,EMS303,EMST , EMS304
EMS511.EMS500.EMS501 .EMSS02,EMSS503.0
EMS301.EMS306.EMS302
ENSS11,EMSS05,EMSS501 ,EMSS02,0
,EMS2
EMS300,EMS302,EMS307
502
. EMSS01.EMS503,0
EMS511.EMS
EMS301.EMS310.EMS311
EMS511 . EMS502.EMS501,EMSS03, EMS504
EMS312.0

.WORD
.WORD
-WORD
+WORD
.WORD
.WORD
-WORD
.WORD
-WORD
.WORD
+WORD

EMS301,EMS306,EMS311
EMSS511,EMS502,EMS501 ,EMS503,EMS504,0
EMS301,EMS313 ,EMS302
EMSS511,EMS501,EMS502,EMS504
,EMS503,0
EMS316,EMS317 EMS314
EMSS511 ,EMS501,EMS502,0
EMS316 ,EMS317 ,EMS315
EMS511,EMS501,EMS502,0
EMS316 ,EMS320 ,EMS314
EMS511,EMS501,EMS5C2,0
EMS316 ,EMS320 ,EMS315
EMS511,EMS501 EMSS502,0
EMS316,EMS321 ,EMS314
EMS511,EMS501,EMS502,0
EMS316 ,EMS321 ,EMS315
EMS511,EMS501 ,EMS502.0
EMS316 ,EMS322 ,EMS314
EMS511 ,EMS501 ,EMS502,0
EMS316,EMS322,EMS315
EMS511,EMSS501 ,EMS502,0
EMS301,EMS324 ,EMS250
EMS511 ,EMS504
EMS312 ,EMS326,0
EMS301,EMS3c3 ,EMS250
EMS511,EMS504
EMS312,EMS325,0
EMS301 ,EMS313 ,EMS250
EMSS511,EMS504,0
EMS301,EMS324 ,EMS251
EMS511,EMS501
EMS312,EMS326,0
EMS301,EMS323,EMS251
EMSS511,EMS501
EMS312,EM5325.0
EMS301,EMS313 ,EMS251
EMS511,EMS501,0
52
,EMS327 ,EMS254
6,EMS2
,EMS253
EMS301,EMS30
EMSS511,EMSS03,EMS501,EMS502

.WORD
-WORD
+WORD
-WORD

EMS300,EMS252
EMSS511,EMS501,0
EMS300,EMS252
EMS511,EMS501,EMS504.,0
EMS300,EMS252
EMS511,EMS501,EMS503,0

+WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
-WORD
-WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
-WORD

.WORD
.WORD
.WORD

SEQ 0264

72 065316
73 065324

077773
077545
077545
102545
077527
102545
100365
102545
077527
102545
077527
102545
077545
102545

—d\) =) = O

O=0-=000
NONONON
NNV NN NO TMY

d D D b
b ed e
i d b d D e
b
b
b amb
b and
b cub cnbd wud oud ol

100365
102545
077545
102545
077773
077545
102545
077773
077545
102545
077340
102545
072654
102545
077545
102545
077773
077545
102545

e cmb mud and cmd

96 065542
97 065550
98 065556
99 065554
100 065570
101 065576
102 065604
103 065610
104 065616
105 065624
106 065632
107 065636
108 065646
109 065652
110 065662
111 065670
112 065674
113 065702
114 065710

—d

e e cad e b i e

75 065340
76 065352
77 065364
78 065370
79 065376
80 065404
81 065412
82 065416
83 065426
84 065432
85 065442
86 065450

0775
1025

b e

70 065304
71 065312

b b e ) b () =B ) b O b d b o

66 065254
67 065262
68 065270
69 065276

OO0V
WVWNOOOOOODOOOOOONO NONONOOOOOOOOOOOOOO0O00000
ROORNORONON OONOONIONNNOONOONOONON NN NNNNNNON QONIOOONIONONONIONO

60 065204
61 065212
62 065222
63 065230
64 065240
65 065246

0775
102
QO=O0O=0=20=20
NNONONONON

S8 065170
59 065176

O N = NN = ) = O =2 OAN =3P N =2 NI N =2 ) = =d b b = O8N =2 ANINI NV OHUANNININN = O = N =2 N = N — )
—_rO N
RO & SN
N
—2ONN =
O NS = s
= = ON N =2 N =2 () = ) b = ON L = AN == N = N =2 N =3 N =2 NN ON NN = NN N =2 N =2 O = N =d =
NWHAW — YWD O W N O W NN VRO VN0 NO N = N NO
O N
= VIO W SN
VO OWNNIRWN
NN = ~ WO O

CZRNBAQ RMBO DSKLS PT1 MACRO Vv04.00 14=JAN-82 16:33:00 PAGE 36-1
ERROR MESSAGE TABLE

EMT32:
EMT33:
EMT34:

EMT3S:
EMT36:

EMT3?7:
077246
000000
077246
000000
077015
102115
000000
077152
000000
102212

102237

EMT40:
EMT41:

EMT42:

EMT43:
EMT44:

EMT4S:
EMT46:

EMT47:
EMTSO:

077152
000000
077152
000000
077310
000000
077310

EMTS51:
EMTS2:

EMTS3:
EMTS4:

000000
077310

EMTSS:

000000
077310
000000

EMTS56:

102115

102115
077374

000000
077374

EMTS57:
EMT60:
EMT61:

EMTEL:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
+WORD

.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD

EMS301,EMS324 ,EMS252
EMS511,EMS501,0
EMS301,EMS324 ,EMS252
EMS511,EMS501 ,EMS504,0
EMS301,EMS324 ,EMS252
EMS511,EMS501 ,EMS503,0
EMS301,EMS323 EMS252
EMS511,EMS501,0
EMS301,EMS313,EMS252
EMSS511,EMS501,0
EMS301,EMS324 ,EMS255
EMS312,EMS326,0
EMS301,EMS323,EMS255
EMS511,EMS504
EMS312 ,EMS325,0
EMS301,EMS313 EMS255
EMS511,EMS5504,0

7
. EMS255
EMS301 . EMSZ23 EMS250,EMS32

EMSS511.EMS504.EMSS01.EMS503.0
EMS300,EMS3
EMSS511.EMS501,0

EMS331.EMS4L ,EMS253

EMSS11.EMSSO1,0
EMS3(.0,EMS253

EMSS11.EMSS01,EMSS503.0
EMS300.EMS253
EMS511.EMSS507,EMSS04,0
3
01
. EMS324.EMS25
EMS3
EMS511.EMS501.EMSS03
EMS312.CMS326.0
4
. EMS253
EMS301.EMS32
EMSS11.EMS507.EMSS04
EMS312.EMS326.0
EMS301.EMS323.EMS253
EMS511.EMS501
EMS312.EMS325,0
EMS301.EMS315.EMS253
EMS511.EMS501,0
EMS331.EMSL EMS256

EMS511.EMSS01,0

EMS301.EMS324.EMS256

EMSE11.EMSS01
EMS372.EMS326.0

EMS301.EMS323.EMS256
EMS511,EMS507
EMS312.EMS325.0
EMS301.EMS313.EMS256
EMS511,EMS501.0
EMS257,EMS332
EMSS11.EMS506,EMS501,0
EMSS EMS333

<Ms5§1,EMS507,EMS501,0

4
. EMS260
EMS301.EMS32
EMS511,EMS501
EMS312.EMS326.0
EMS301.EMS323.EMS260
EMS511,EMS501

SEQ 0265

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 36-2
ERROR MESSAGE TABLE

SN WA
A SN WA
NNSOHDTNNSONMN
= VO VW= VO WNN
WA N W WA

WO AN NN ORI O WA NNONON NNONONN

SN WA VAW

BB
NBONSON OISO
VAN
W = WA= VAN
N WYOO\ A= O NV

ONION) W

Vi VIV

NSTSIEHR W= OV

md S cmd
b cumd e wmd e
o

NNOOONORO

066540
066552

—no_no—a-.—s—h-no—no-ndo-no-s-n-n-ao-ac_n-n-n-.n-no.o-n—l_a—ao_a

-b

W
W
o~

§ §

b
b
b
b

OO O\O" VIV

b wnd b ek and

066220
066230

N NN

066164
066172
066200
066212

b E=b wmd b b

S S

144
145

NOWNSH NN =O VNN

WA =

140
147
142
143

077773
077543
102545
077527
102545
073175
102545
073175
102545
077527
102545
072770
077527
102545
072724
102545
072724
102545
077545
102545
100607
ONONOOO OONONOONONOOOONONOOOOONOOOOON

115 065714
116 065722
117 065730
118 065736
119 065742
120 065750
121 065756
122 065764
123 065772
124 066000
125 066004
126 066010
127 066016
128 066026
129 066036
130 066052
131 066062
132 066076
133 066106
134 066116
135 066126
136 066136
137 066142
138 066150
139 066156

100317
100031
102115
073175
102115
1006457

000000
077376
000000

EMT63:

000000
100555

EMT65:

102115 000000
100502 100555
102115 000000

072724
102115
100433

072724
102115
100657
102115
100502
102115

EMT66:

EMT67:

000000

100340 EMT?0:
102237
100535 EMT71:
102142
100535 EMT72:
102142

077374
102115
100623
073253

077615
102142
100555

073253

100652

102212

EMT64:

000000

102212 00000
100652
102212 000000

073253

.WORD
.WORD
"WORD
.WORD
"WORD
.4ORD

EMS312,EMS325
EMS301.EMS313
EMSS511.EMS501
EMS300.EMS12
EMSS511.EMS501
EMS12,EMS33S

.WORD
"WORD
"WORD

EMS300.EMS6
EMSS511.EMS501
EMS? EMS333,0

‘WworRD
.WORD
"WwOoRD

.WORD
"WORD
.WORD
"WwOoRD
.WORD
‘WORD

EMS511,Ems501
EMS12, EMS336
EMSS11,eEms501

EMS300,EMS6 EMS327 ,EMS?
EMS511.EmMsS01,EMS504,0
EMS6,EMS335,EMS34 0,EMS10,EM5333,EMS342
EM5511,EmS501,EMs502,0
EMS6,EMS336,EMS340 5fi31o.sn5334.ens342
EMSST1,EMSSO1,EMS
EMS301.EMS260.EMS 303.EMS11
EMSS511.EMSS01.EMS502.,0
EMS343.EMS344,EMS342,0
EMS300.EMS13

EMT?4:
EMT75:

.WORD
"WORD
.WORD
.WORD

EMT?6:

.WORD

EMS346.EMS13 EMS345

EMT77:

.WORD

EMS337.EMS13_EMS345

EMT?3:

"WORD

.WORD
'WORD

EMSS511.EMS503,0

EMS511,EMS508.0
EMS511.EMS505.0

EMS301.EMS313.EMS254,EMS347,EM313

077205

EMT100: .WORD

1022 ¢ g 102115
100546
102212 2 102115

"WORD
EMT101: .WORD

EMSS511.EMS503.0
EMS346.EMS14

EMT102: .WORD

EMS337.EMS14 EMS341,EMS15

54
,EMS347 ,EMS1S
EMS301,EMS313,EMS2
EMSS11,EMSS503
EMS14,EMS332.0
EMS346,EMS17 EMS341 EMS16

100031

102212
073322

000000
100546

075322

"WORD
"WORD

EMS511.EMSS0%,EMSSO
EMS511.EMS50%,EMS501,0

10003 1
10221 2
100415 5
07352 6

077205

000000
100546

EMT103: .WORD
-WORD
"WORD
EMT104: .WORD

073526 6

100546

EMT10S: .WORD

EMS337.EMS17 EMS341,EMS16

100031 1
10221 2
100415 5
07356 7

077205

100546

EMT106: .WORD
.WORD
"WORD
EMT107: .WORD

EMS301.EMS313.EMS2 54 EMS347 ,EMS16
EMSS11,EMSS03
EMS17.EMS?32.0
EMS346,EMS20, EMS341 ,EMS21

100744 4

073633

EMT110: .WORD

1006447

100737

EMT111: .WORD

EMS20,EM $334

100546

EMT112: .WORD

EMS337.EMS20,EMS341,EMS21

077205

EMT115: .WORD

102212 2

102115

102212 2 102115

000000

102212 2 102115
12115

000000

102115 000000

073567

"WORD

"WwORD

"WwoRD

102212
073567
102115
100762
102115

102115
"WORD
100546 EMT113: .WORD
000006
"WwORD
073633 EMT114: .WORD
000000
"WORD

102212

"WORD

100031

EMS511.EMSS0%,EMS501,0

EMS511.EMS50%.EMS501.0

EMS511.EMS50%,EMS501,0

EMS20,EMS 351 EMS21,EMS350,EMS22,EMS315

EMsS11,Ems501,0
EMS350,EMS22,EMS333
EMSS511,Ems501,0

EMS511.EMSS0%,EMS501 .0
,EMS334
EMS337.EMS20,EMS34 1.EMS21,EMS350,EMS22
EMS511.EMs501.0
EMS20,EMS352,EMS21,EMS350,EMS22,EMS333
EMSS11,EMS501.0
EMS301.EMS313.EMS254,EMS347,EMS21
EMS511.EMS503

SEQ 0266

€2

]

}85 066722
1

1
1
1
1

1
1

-—b

~
W

LS TUS S TN TN TN 1,018 )
N INSIASIAS
[\Y
N

203 067110
204 067122
205 067130
206 067136

223 067322
226 067352
227 067362
228 067366

O dmd e
O
NOOOOO
Ot
b kD
NOOOOO

~N—
Vil \fl\ho\fl\fl\flm\fl\h\l\fl\flom\fl\h“\flo‘\flwmo\’loU\&\hu'\)\flv‘\.fl\flu\l\u\fl\fl—.U‘\fl\fl\flu‘fl\‘v‘v‘\h\fl\fl\l\fl
OS NSNS NNSOS O
NMENEEE NV ESNSSOSN=SERENSOWVNSSSNSO0
£OLDPSO SNV
OMMMNMMMU‘WU‘MMWMWO‘\fl\fl—‘\fl\.flv‘—‘\fl\h\l‘\flNbv‘\h\fl—'v‘oy\flv‘v‘-‘mcfl
=
WO N2 WO N =2

1 72 066556
1
1
1
1
1
1

St et O et O bt b bt b b b b b D DO DA Dbk b A O =R OO ONOONOOONVONOOOONONOOOO
OO
= OO DO DD DUO O DS ~
O
OOONONOOOOOOOOOOONONONOODOOOOONONY
NNN\"NON-‘NONQN-‘NVNVN5N°~—'N—'N“NJ‘J\NVN°bNONNJ“N\JNONOWNVNONOW

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 36-3
ERROR MESSAGE TABLE

SEQ 0267

EMS20 ensssg.o

EMS346,EMS23 EMS341 ,EMS24
EMS511.EMSS0%.EMS501,0

EMS337 EMS23 EMS341, EMS24

EMS511.EMSS0%.EM~501,0

EMS301,EMS313,EMS254 ,EMS347,EMS24
EMS511.EMS503
EMS23, EMS332.0
EMS346,EMS2S SEMS341,EMS26

EMS511.EMSS0S,EMSS501,0
EMS337 EMS25,EMS341,EMS26
EMS511.EMS50%,EMS501,0

)

EMS347,EMSZ6
EMS301 . EMS313.L EMS254
EMS511.EMS503
EMS25 , EMS332.0

EMS300,EMS27 EMS307,EMS2
EMS511.EMS50%.,0
EMS331.EMS27,EMS3S3

EMS511.EMSS0S

EMS30,EMS315.0

077205
000000
077015
102212
077015
102212

077015
000000
077015
000000
077246
000000

101141
000000

000000
077651

EMS337.EMS27 JEMS341,EMS30
EMS511.EMSS0%.0

EMS301 . EMS313.EMS254 ,EMS347,EMS30
EMS511.EMS503

EMS27,EMS332.0
4
. EMS250
EMS31 EMS35

EMSS511,EMS504,€EMS503.,0
EMS32,EMS

354, EMS250

EMS511,EMS504,EMS503,0

EMS35S EMS33,EMS250, EMS341,EMS30

EMS511.EMS504.,0

EMS355 . EMS34 , EMS250 ,EMS341,EMS30

EMS511.EMS504,0
EMS331.EMSL EMSDSS

EMS511.Em5504,0

EMS3S EMS357 ,EMS360,EMS1S

EMS511.,EMS501.0

EMS261.EMS362
EMS511.EMS503,0
. EMS36,EMS307,EMS2
EMS300

EMS511.EMS501,0

EMS355 EMS37 . EMS255,EMS341,EMS30
EMS511.EMS504,0
EMS346 EMSLO, EMS34S

EMS511.EMS504,0

EMS337 EMS4L0, EMS341,EMS30

EMS511.EMSS04.0

EMS363 EMS310.EMS41
EMS511.EMS501.0

,EMS253
EMS337 EMS4L1,EMS341,EMS252,EMS327

EMS511.EMSS01,0

EMS41 EMS354 ,EMS364,EMS252,EMS365,EMS253

Emss11,emss501.0

102212

000000

EMS301.EMS306.EMS36
EMS511.EMS501.EMS503.0
. EMSL?
EMS366
EMS511,EMS503,0

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 36-4

ERROR MESSAGE TABLE

229 067376

101326

100776

101274

EMT150: .WORD

230 067410
231 067416
232 067422
233 0676430

102545
100521
102545
075136

102212
074647
102115
101022

000000
000000
074647

"WORD
EMT151: .WORD
"WORD
EMT152: .WORD

535 067446

101324

100776

101274

EMT1S3: .WORD

537 067666 101324

100776

234 0676436 102545 102115 000000

"WwOoRD
"WORD

102212

000000

238 067476 102545
539 067506 077527

102212
075207

000000
077651

"WORD
EMT155: .WORD

101324

100776

101274

EMT156: .WORD

236 067456

102545

1012746 EMT154: .WORD

240 067514 102545 102212 0000C0

561 067522

262 067536
543 067546

102545
077527

102212
075250

000000
077651

545 067562

101324

100776

101274

077527
102545
100521
102545
0764605
102545
075407
102545
100521
102545
C75006
(77527
102545
075447
102545

075325
102212
075325
102212
100457
102115
100457
102115
074605
102115
100433
075407
102115
100657
102115

264 067554 102545 102212 000000
246 067576
247 067604

348 067612
249 067622
250 067630
251 067636
552 067646
253 067662
354 067670
255 067704
256 067712
257 067722
258 067726
259 067736
260 067746
561 067756
262 067770

263 070000
264 070006
265 070012

102545
074605

100521
102545
075447

102212
100433

074605
102115
074556

102115
000000

"WORD

EMS511.EMS503.0
EMS337.EMS36
EMSS511.EMS501,0
EMS43 EMS354 EMS36

EMS51§,Ems501,0

EMS367.EMS353,EMS365,EMS36,EMS370
EMSS511.EMS503.0

EMS367.EMS353.EMS365,EMS36,EMS371
EMSS511.EMS503.0
EMS300,EMS44 (EMS307,EMS2

EMS511.EMSS0%5.0

,EMS3
EMS367.EMS353,EMS365,EMS44,EMS354

"WORD
EMT157: .WORD

EMSS511.EMS503.0
- EMS300,EMS45 ,EMSZ07,EMS2

EMT160: .WORD

EMS367.EMS353,EMS365,EMS4S,EMS3564,EMS3

"WORD

"WORD
"WORD

077651 EMT161: .WORD
"WORD
000000
100776 EMT162: .WORD
"WORD
102115
100527 EMT163: .WORD
"WwORD
000000
.WORD
EMT164:
100521
"WORD
000000
100340 EMT165: .WORD
"WORD
101440
"WORD
077651 EMT166: .WORD
"WORD
102212
100535 EMT167: .WORD
"WORD
102212
000000
072556

EMT170: .WORD
"WORD
EMT171: .WORD

266 070020 102545 102115 000000

,EMS3
EMS367,EMS353,EMS365,EMS42,EMS354

"WwORD

EMS511.EMSS50%.0

EMS511.EMS503,EMS501
EMS35,EMS333,

EMS300,EMS46,EMS307,EMS2
EMSS511.EMS505.0
EMS337,EMS4L6 EMS353
EMS511.EMS50%,EMS501,0
EMS3S,EMS335,EMS337,EMS41,EMS334,EMS372
EMSS11,EmMS501.0
EMS&7,EMS335,EMS337,EMS41,EMS335,EMS372
EMSS11,EmMs501.0
EMS337.EMS3S5,EMS327,EMS47
EMS511.EMS501
EMS4&1,EMS333,EMS372.0

EMS300.EMS47,EMS307 ,EMS2
EMS511.EMS501,EMS505.0
EMSS50,EMS335,EMS340,EMS36,EMS333
EMS511,Ems501,EMS505.,0
EMS337.EMS3S
EMSS511.EMS501.0
EMS50,EMS34 EMS3

EMSS511.Em$501.0

267 070026
268 070034
269 070044

077545
102545
101324

077635
102115
100776

075516
102237
101274

EMT172: .WORD
"WORD
EMT173: .WORD

EMS301,EMS306,EMSS1
EMS511.EMS501.EMS504,0
EMS367.EMS353.EMS365,EMS47
,EMS354 ,EMS3

271 070066

077527

077015

100340

EMT174: .WORD

,EMS256
EMS300.EMS250,EMS327,EMS255,EMS327

270 070060

272 070102
273 070106
274 070116
275 070126
576 070136
277 070146
278 070156

279 070156

280 070166
281 070174
282 070204
583 070212
284 070222
585 070230

102545

102115

000000

"WORD

102644
102115
077310
102115
077015
102237

102237
100546
102237
100546
000000

"WORD
"WORD
EMT175: .WORD
"WORD
EMT176: .WORD
"WORD

100521

075565

100546

EMT200: .WORD

100700

075565

100700

075565

100546
102545
077527
102545
077527
102545
000000

102545
102545
100700
102545

102115
102115
075516
102115

000000
100546
000000
100546
000000
100652

EMT177: .WORD

"WORD
EMT201: .WORD
"WORD
EMT202: .WORD
"WORD
EMT203: .WORD

EMSS511.EMS501.0

EMS341.EMS600
EMS511.EMSS01,EMSS504,0
EMS300.EMS256.,EMS341.EMS600
EMS511.EMSSO1.EMS504.0
EMS300.EMS250.EMS341,EMS600
EMS511.EMS504.0

EMS337,.EMS52,EMS341,EMS601

EMS511.EMs501.0
EMS346.EMS52,EMS341,EMS602
EMS511.EMS501,0
EMS346.EMSS51,EMS341,EMS602
EMS511.EMS501,0

EMS346.EMS52,EMS345,EMS373,EMS255

SEQ 0268

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 36-5

SEQ 0269

EMT211:

EMT212:

EMT213:
000000

EMT214:

EMT215: -WORD

+WORD

EMT216: -WORD

.WORD

EMT217: .WORD
EMT220:

EMT221:
EMT222:
EMT223:

EMT224:

000000
100737
000000
072654
000000
076253
000000
101527
000000
101543
000000
101543
000000
100546
000000
101543

EMT225:

EMT227:

EMT231:

EMT233:

EMT226:

EMT230:

EMT232:

EMT234:
EMT235:

EMT236:

.WORD
-WORD
-WORD
.WORD
-WORD
.WORD
-WORD
+WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
-WORD
-WORD
-WORD
.WORD
.WORD
.WORD
-WORD
.WORD
-WORD
-WORD
.WORD
.WORD
.WORD
-WORD
.WORD

,EMS255
MS374
MS327
,EMS250,
EMS337.EMS54,E
EMS327.EMS3
S504
, EMSS01,0
EMS511.EM
EMS54 ,EMS354 , EMS3

emss11,emss501.,0
EMSS4 EMS354 EMS364,EMS250
EMS511,EMS504,0
EMS56 ,EMS354 ,EMS364 ,EMS255

EMS511,EMS504,0

EMS337.EMS5S
EMS511.EMS504,0

,
EMS327 ,EMS251
EMS56 ., EMS334 , EMS345 ,EMS373,EMS262
EMSS511,EMS501
EMS56 ,EMS335,0

EMS511.EMS501,0

EMS334
MS350,
EMS60,
EMS57,EMS333,E

EMsS11,Ems501.0

EMS363.EMS306.EMSS
EMS511.EMS501.0
EMS363.EMS306.EMS61
EMSS11.EMS501.0
EMS62 , EMS333,EMS375,EMS251

EMSS11,EMS501.0

EMS62,EMS333,EMS376
. EMS262

EMsS11.ems501,0

EMS62 ,EMS333,EMS376,EMS250

EMsS11,EMS501.,0

EMS346 EMS62,EMS341,EMS603

EMS511.EMS501.0

EMS346 EMS63, EMS376,EMS262

EMS511.EMSS01,EMSS05.0

EMS63,EMS333,EMS350,EMS363,EMS310,EMS262

EMSS11,EMS501,

EMS63,EMS357 ,EMS36,EMS372

Ems511,emss501,

EMS63, EMS356,EMS360,EMSTS

EmsS11,emss501,
EMsS11,emss0f

EMS63,EMS356 ,EMS361,EMS1S
EMS63,EMS356 ,EMS41

Ems511,EMs501.,0
EMS41,EMS377 ,EMS342,EMS365,EMS63,EMS332
EMsS11,EmM5501.0
EMS401
EMS367 EMS353 EMS365,EMS63,
EMS511.EMS503.EMS501.0

64
, EMS354 ,EMS3
EMS16,EMS377 EMS372 EMS365,EMS

EmMs511,Emss0%. EMss01.0
. EMSAS . EMS307 EMS2
EMS300
EMS511.EMS502,EMS505.0
EMS56,EMS377 ,EMS376,EMS252,EMS372,EMS350
65
. EMS401
EMS

— R R EEEEEEEE B E BB BB

EMT210:

EMS511.EMS504
, EMSS01.,0
EMS53 EMS354 EMS3
EMS511,EMS505,EMS502,EM5510,0

OFOXORO

EMT207:

.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
+WORD
-WORD
-WORD
-WURD
+WORD
.WORD
.WORD
+WORD
-WORD

EMSS11,EMSS04
, EMS501,0
EMS346 EMS52 ,EMS341 EMS27

OOV

oMY

N2\
N—2
NN =dfs—a

===
OONOOO
=rNONNON

Qb OO =
OOONO
QO=ONIN)
ONIOWVI=
QOWVIOWNI—
ONO
O WY

IR N0 NINR NI
NI NI
A NN NN NIV NN
A AN N

.WORD

EMT206: +WORD

NI ST

U O U

.WORD

EMT205: .WORD

A N

NONONOOS
~

ONOMNI
NN NN

342 071104

076407
102545
076407
102545
076407
102545
076407
102545
075006
OO =O = =b—d—d

o
N

V)
W

325 070670
326 070700
327 070706
328 070716
329 070724
330 070734
331 070742
332 070750
333 070756
334 070772
335 071000

101253

.WORD

EMT204: .WORD

IR0 0N W1

102545
100521
102545
076022
102545
076022
100521
102545
076115
102545
101236
102545
101236
102545
076326
102545
076326
102545
076326
102545
100700
102545
100700
102545

075667

T IR NN

299 070404
300 070412
301 070416
302 070424
303 070442
304 070446
305 070454
306 070460
307 070466
308 070500
309 070506
310 070514
311 070522
312 070530
313 070536
314 070546
315 070554
316 070564
317 070572
318 070602
319 070610
320 070620
321 070626
322 070636

298 070374

R BO =

102545
100700
102545
075626
102545
100521
100340
102545
075667
102545
075667
102545

—b b d ) b b e b e e e e b cveid b b o e e e () = ) md i e md b A (D A D) b b B D b b ek b O b b ek b B b S OO

286 070242
287 070252
288 070262
289 070272
290 070300
291 070312
292 070326
293 070332
294 070342
295 070350
296 0703,6
297 070366

QOO NOOOO i=lelelelelelalelolelele]
b =2 NN
=) QNI =N =N =N =AY =2 PO
b ed !
NN =2\ANIWNNI
N = \N= O =2OO
OWNE
= 2N =N =N -‘\l-'N—‘\l—'—l—'\-ldc—'N—‘u—‘u-'W—'W—'W—'LN—'N\II—DJ\WJ\WNWN—‘NU‘MO*—'NWO‘U‘

ERROR MESSAGE TABLE

—

SEQ 0270

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 36-6

102545
077527

366 071142

073367

350 071212

101631

345 071132
347 071156
368 071166
34,9 071204

102545
102545
076560
102545

351 071226
352 071230

102545
074647

354 071254
355 071262
356 071272
357 071300
358 071310

102545
076407
102545
074667
102545

353 071236

359 071316

076560

101631

360 071330
Sol 071334
362 071342

102545
074647
076635

366 071406

101631

102142
076560

102115
101570
102212
100502
102212
102776

102212
077651

.WORD
EMT237: .WORD

EMS511,EMSS502,EMSS503,EMS501,0
EMS300,EMS66,EMS307 EMS2

EMT242: .WORD

EMS403.EMS604.EMS402,EMS21,EMS377

"WORD
102212
EMT240: .WORD
"WwORD
102115
100535 EMT241: .WORD
"WORD
000000
101440
101622

"WORD
"WORD

000000

192212
101605
122212
101374
102212

"WwORD
000000
101711 EMT244: .WORD
‘WwoRD
000000
101711 EMT245: .WORD
"WORD
000000

102212
-00457
00415

000000
101711

"WORD
"WORD
EMT247: .WORD

EMSS511.EMS503
EMS36,EMS335.0
EMS67.EMS332,EMS405,EMS604

103023

101622

EMT251: .WORD

EMS403.EMS605.EMS402,EMS21,EMS377

100502

102776

100535

EMT243: .WORD

101622

EMT246: .WORD

102212
100457

000000

102545
076407
102545
074647
102545

7102212
101605
02212
101374
192212

"WORD
000000
101711 EMT253: .WORD
"WORD
000000
101711 EMT254: .WORD
"WORD
000000

076560

375 071510

101631

370 071446
371 071456
372 071464
373 071472
374 071502

"WORD
"WORD

102545
074647

369 071430

100502

133023

376 071522
77 071836
378 071532

102545
074847
076635

102212
100457
100415

382 071576
383 071610
384 071614
385 071622

101631
102545
074647
076560

103041
102212
100457
100502

100535

EMT252: .WORD

101622

EMT255: .WORD

000000
101711

391 071702
202 071714

303 071720
394 071726

395 071736
306 071746
397 071754
308 071762
399 071770

102545
076407
102545
074647
102545
101631
1025875

074647
076747

102545
102545
076560
102545

076635

101622

000000

100535

EMT260: .WORD
"WORD
"WORD
EMT261: .WORD

102212
101605
102212
101374
102212

"WORD
000000
101711 EMT262: .WORD
000000
"WORD
101711 EMT263: .WORD
"WORD
000000

100457
101605

000000
101711

103041
102212

102212
100415
102212
101077
102212

101622

EMS66,EMS336,.cMS340,EMS26,EMS404,EMS405,EMS604

EMSS511,EMS505.0
EMS63,EMS401,EMS405,EMS604
EMSS511,EMs50%.0
EMS36,EMS370,EMS405,EMS604
EMSS511,EmMS50%.0

S24
,EMS377
EMS&L03.EMS604,EMS402,EM

EMSS17,EMS505,0
EMS66,EMS336 EMS340,EMS15,EMS406,EMS405,EMS605
EMSS511,EMS50%.0
EMSS17.EMSS03
EMS36,EMS335.0

EMS66.EMS336,EMS340,EMS26,EMS404 ,EMS405,EMS60S

EMSS11,EMS505.0
EMS63,EMS401,EMS405,EMS605
EMSS11.EMSS05.0
EMS36,EMS370,EMS405,EMS605
EMSS11,EMS505.0

MS24
,EMS377
EMS403.EMS605.EMS402,E

EMSS511.EMSSO3
"WORD
"WORD EMS36, EMS335 0
EMS67,EMS332.EMS405,EMS605
EMT256: .WORD

"WORD
379 071544 102545 102212 000000
380 071552 076560 100502 100535 EMT257: .WORD
"WORD
381 071570 102545 102212 000000

386 071640
387 071646
388 071656
389 071666
390 071674

EMSS11.EMS503
EMS36,EMS335.0

102212
100457

"WwORD
363 071352 102545 102212 000000
.WORD
EMT250:
100535
364 071360 076560 100502
"WwORD
000000
102212
365 071376 102545
367 071416
368 071422

EMS511.EMS501,EMS505.0
EMS15,EMS4L00,EMS372, EMS350,EMS66,EMS401
EMs511,EMS50%,EMS501,0
EMS66,EMS336 EMS340,EMS15,EMS406,EMS405,EMS604
EMsS11,EmS50%.0

EMT264: .WORD
uUNAp
‘WORD
EMT265: .WwORD

000000
"WORD
101711 EMT266: .WORD
000000
"WORD
101734 EMT267: .WORD
000000
"WORD

EM5511,EMS50%.0
EMS66,EMS336,.EMS340,EMS15,EMS406,EMS405,EMS606
EMS511,EMS50%.0

EMS403.EMS606.EMS402,EMS21,EMS377
EMSS511.EMS503
EMS36,EMS335.0
EMS66.EMS336.EMS340,EMS26,EMS404,EMS405,EMS606

EMS511.EMS505.0

EMS63,EMS4L01, EMS405,EMS606

EMSS11,EMs50%.0
EMS36,EMS370,EMS40S5,EMS606
EMS511,EMS50%.,0

MS24
,EMS377
EMS403.EMS606.EMS402,E
EMSS17)EMSSNT
EMS36,EMS335.0
EMS70,EMS401,.EMS405,EMS606

EMSS11,7ms50%.cC
EMS67,EMS332,EMS405,EMS606
EMSS11,EMS50%.0
EMS66,EMS356 EMS407
EMSS11,EMS50%.0

MMMMMMrEMMMMMMMMMMMMMMT MMMAMMMMMMMMMMMMAMMOMMMOMMMMOMMMmmEmme

343 071110
364 071122

ERROR MESSAGE TABLE

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 36-7

SEQ 0271

ERROR MESSAGE TABLE

MS4
IS5, EMS607
EMS340,EMS1S,EMS406,E
400 071776 076560 100502 100535 EMT270: .WORD EMS66 ENS336
EMSS11,eMS50%.0
401 072014 102545 102212 000000 EMT271: "WORD
EMS607.EMS402,EMS21,EMS377
EMS403
.WORD
101622
103061
202 075022 107631
EMSS511.EMSS03
'WORD
403 072034 102545 102212

406 072056
407 072064
408 072074
L09 072102
410 072112
411 072120
412 072130
413 072140
41% 072150
215 079156
416 072174

102545
102545
074647
102545
075626
102545
076635
102545
076560
102545

074251

417 073202 101631
418 072214
419 072220
420 072226

102545
074251
076747

100502 000000
101374 101711 EMT272:
102212 000000
101411 101711 EMT273:

102212
102212
101605
102212
100415
102212
100502
102212

101672

103061

102212
100502
101605

000000
101711
000000
101711
102142
101711
000000
100535
000000

‘WORD
.WORD
"WORD
EMT274: .WORD
"WORD
EMT275: .WORD
"WORD
EMT276: .WORD
"WORD
EMT277: .WORD
‘WORD

000000
101711

"WORD
"WORD
EMT301: .WORD

100546
000000

EMT302: .WORD
"WORD

101622 EMT300: .WORD

421 072236 102545 102212 000000

(52 073544
423 072254

077527 077246
102545 102237

"WORD
.WORD

"WwORD

EMS27,EMS336,0
EMS27,EMS370 EMS4C5,EMS607
EMsS11,EmM350%.0
EMS27,EMS371,EMS405,EMS607

EMSS11,EMS505%.0
EMS36,EMS404 EMS40S5,EMS607
EMSS511,EMS50%,0
EMS53, EMS401,EMS405,EMS607
EMS511,EMS503%,EMS502,0
EMS67 EMS232 EMS405,EMS607
EMSS11,EMS505.0
EMS66,EMS336,EMS340,EMS26,EMS404,EMS405,EMS607
EMSS511.EMS50%.0
EMS24
EMSLO3.EMS607,EMS402,,EMS377
EMSS511.EMS503
EMS27,EMS330.0
EMS70,EMS401 EMS40S,EMS607

EMs511,emss0%.0

EMS300,EMS255,EMS341,EMS600
EMS511.EMS504.0

._._._......._.._.-...-—-—--——-o—o—’-zIIIIC\C’C\W!“‘“'“”"“'"'“'“"‘"‘"‘""“M"‘

404 072040 074251
205 075046 074251

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 37

SEQ 0272

ERROR MESSAGE TABLE

1 072262
2 072266
3 072272
L 072276

103077
103155
103172
103230

000000
000000
000000
000000

EHT1:
EHT2:
EHTS:
EHT?:

.WORD
.WORD
.WORD
.WORD

EH1.0
EH2.0
EHS.0
EH7.0

6 072306

103305

€00000

EHT65:

.WORD

EH65.0

7 072312

103361

000000

8 072316 103163 000000
9 072322 103436 000000

10 072326
11 072332
12 072336
13 072342
14 072346
15 072352
16 072356

103533
103651
103747
104045
104162
104260
104355

000000
000000
000000
0C0000
000000
000000
000000

EHTS7:
EHT71:

.WORD
.WORD

CAT74: .WORD
EHT115: _WORD
EHT130:
EHT132:
EHT142:
EHT145:
EHT150:
EHT213:
EHT220:

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

EHS7.0
EHW71.0

EH3,0
EH115.0

EH130.0
EH132.0
EH142.0
EH145.0
EH150.0
EH213.0
EH220.0

et ek ek ed ek ik i et mend e el el el el o = = = =4 A DN NN DN NN DDA NNNVNNWN

S 072302 103247 000000

EDT1:
EDT2:
EDTS:
EDTS7:
EDT65:
EDT71:
EDT74:
EDT115:
EDT130:
EDT132:
EDT220:

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

EDI]
ED2
ED5
ED57
EDES
ED71
ED2
ED115
ED130
ED115
ED220

PAPAPAPRAARARPARANR

104414
104424
104430
104436
104444
104454
104424
104464
104476
104464
104512

1 072362
2 072364
3 072366
& 072370
5 072372
6 072374
7 072376
8 072400
G 072402
10 072404
11 072406

ERROR MESS..GE TABLE

SEQ 0273

CZRNBAO RM"0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 38

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 39

ERROR MESSAGE

TABLE

SEQ 0274

ERROR MESSAGE STRINGS

27 074315
28 074375
29 074446
30 074526
31 074556
32 074605
33 074647
34 074677

35 074730
075
37 075054
38 075136
39 075207
40 075250
41 075325
42 075407
43 075447
44 075516
45 075565
46 075626
47 075667
4«8 075744
49 076022
50 076066
51 076115
52 076201
53 076253
54 076326

55 076407
56 076447
57 076517

115
050
m
104
115
115
115
127
104
115
125
123
115
120
115
105

104
114
114
123
124
126
107
103

114
103
103
104
103
1
114
117
1M1
117
117
122
11
101
122
042
104
120
104
120

101

127
105

117
117
125
116
105
101
101
101

101
122
114
m
105
101
101
122
105
101
116
105
101
117
101
116

m
101
101
105
122
117
117
131

101
117
117
122
117
116
117
103
114
106
106
125
116
104
105
122
122
122
122
117

124

122
130

116
116
116
125
126
122
124
122
123
115
114
101
106
111
111
111
126
111
123
105
111
123
111
106
101
123
123
103
101
1164
040
114
123
115
115

111
116
126

123
103
114
106
106

116

126
104
107
115

111
117
111
122
124
111
103

EMS1:
EMS2:
EMS3:
EMS4:
EMS5:
EMS6:
EMS7:
EMS10:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS11:

EMS12:
EMS13:
EMS14:
EMS15:
EMS16:
EMS17:
EMS20:
EMS21:
EMS22:
EMS23:
EMS24:
EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:

EMS41:
EMS42:

EMS43:
EMS44:
EMS45:
EMS46:
EMS47:
EMS50:
EMS51:
EMS52:
EMSS53:
EMS54:
EMS55:
EMS56:

EMS57:
EMS60:
EMS61:
EMS62:
EMS63:
EMS64:
EMS65:

.ASCII
+ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.nSCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

SNONEXISTENT DEVICE 'NED'* (RMCS2,BI
@CONTROLLER CLEAR “‘CLRTM (RMCS?2,BI
@FUNCTION CODE (RMCS1, BITS 01 -

QUNUSED BIT POSITIONS OF @
aDEVICE AVAILABLE 'DVATM (RMCS1, BIT 1

SPARTIY ERROR 'PAR'' (RMER1, BIT 03) 3
aDATA_PARITY ERROR 'DPE’ (RMER2, BIT 03) @

SPARITY TEST "PAT'' (RMCS2, BIT 04) @

@MASSBUS CONTROL BUS PARITY ERROR ‘MCPE'*
a(RMCS1, BIT 13) @

QILLEGAL REGISTER ERROR "'ILR'* (RMER1,

BIT 01) @

aDIAGNOSTIC MODE 'DMp’ (RMMR1, BIT 00) @

aMEDIUM ON LINE 'MOL'' (RMDS, BIT 12) 3
aMAINTENANCE UNIT READY 'MUR'* (RMMR1, BIT 09) @
AMAINTENANCE WRITE PROTECT ‘MWP'' (RMMR1, BIT 03) @
aWwRITE LOCK ‘WRL'' (RMDS, BIT 11) @
@DEVICE CHECK 'DVC'' (RMER2, BIT 07) @
GMAINTENANCE DRIVE FAULT 'WDF'' (RMMR1, BIT 06) @
BUNSAFE STATUS "UNS'' (RMER1, BIT 14) 3
aSEEK_INCOMPLETE STATUS ‘'SKi'* (RMER2, BIT 14) 3

GMAINTENANCE SEEK ERROR "MSER'' (RMMRT, BIT 07) @

aPOSITIONING IN PROGRESS ‘PIP'* (RMDS, BIT 13) 3
GMAINTENANCE ON CYLINDER 'TMOC'' (RMMRi, BIT 08) @
9END OF BLOCK "EBLTM (RMMR], BIT 13) @
@DJAGNOSTIC END OF BLOCK 'DEBL'* (RMMR1, BIT 13) @

aLAST SECTOR STATUS "LS'* (RMMRY, BIT 02) @

QLAST SECTOR/TRACK STATUS

@SECTOR ADDRESS BITS OF @

‘LST'*

(RMMR1, BIT 01) @

@TRACK ADDRESS BITS OF @

aVOLUME VALID 'VV'* (RMDS, BIT 06) @
GO BIT (RMCS1, BIT 00) 3

SCYLINDER ADDRESS BIT OF @

LAST BLOCK TRANSFERRED, 'LBT''

(RMDS,

BIT 10) @

aCOMPOSITE ERROR 'ERR" (RMDS, BIT 145 @

SCOMMAND SEQUENCER TEST BIT “TST"* (RMMR2, BIT 12) @
@DRIVE READY STATUS "DRY" (RMDS, BIT 07) 3

QCONTINUE '‘CONT'* (RMMR1, BIT 06 @

SINVALID COMMAND ERROR “IVC" (RMER2, BIT 12) @
aLOSS OF SYSTEM CLOCK ERROR 'LSCTM* (RMER2, BIT 11) @
30CCUPIED ‘OCC'' (RMMR1, BIT 15) @
SILLEGAL FUNCTION *‘ILF” (RMER1, BIT 0) @
@OFFSET DIRECTION ‘OFD'* (RMOF . 'BIT 07) @

SOFFSET MODE ‘'OM'* (RMDS, BIT §0) @

@RUN AND GO ‘RG'* (RMMR1, BIT 14) @
QINVALID ADDRESS ERROR “JAE'* (RMER1,

BADDRESS OVERFLOW ERROR “'AOE''

BIT 10) @

(RMERi, BIT 09) @

@DRIVE REQUEST REQUIRED STATUS ‘DRQ'* (RMDT, BIT 11) @
SPROGRAMMABLE STATUS “PGM'* (RMDS, BIT 09) @
@DRIVE PRESENT STATUS ‘DPR'’ (RMDS, BIT 08) @
8PORT REQUEST FLOP "ROA,RQB'’ (RMMR2, BITS 15,14) @
SATTENTION “‘ATATM (RMDS,’BIT 15) @
QWRITE LOCK ERROR 'WLE” (RMER1, BIT 11) @

QEXCEPTION 'REXTM (RMMR1, BIT 18) @

PON

11 073104
12 073154
13 073175
14 073253
15 073322
16 073367
17 073445
18 073526
19 073567
20 073633
21 073712
22 073757
23 074035
24 074114
25 074172
26 074251

116
103
106
125
104
120
104
120

ERROR MESSAGE STRINGS

VYV

3 072436
& 072507
5 072556
6 072623
7 072654
8 072724
9 072770
10 073041

.SBTTL

Y YV Y~

SEQ 0275

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 40

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 40-1

SE@ 0276

.ASCIZ
.ASCIZ

@INVALID COMMAND ERROR ‘'IVC'’ (RMER2, B'7 12) @
@TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @
QLINES (RMMR2, BITS 10,11,13) @

EMS250:
EMS251:
[EMS252:
EMS253:
EMS254:
EMS255:
EMS2.6:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@DISK ADDRESS REGISTER (RMDA) @
@CONTROL STATUS REGISTER #1 (RMCS1) @
@ERROR REGISTER #1 (RMER1) @
@ERROR REGISTER #2 (RMER2) @
@MAINTENANCE REGISTER #1 (RMMR1) @
QDESIRED CYLINDER REGISTER (RMD(C) @
SOFFSET REGISTER (RMOF) @

116
116
131
124
122
117

EMS300:
EMS301:
EMS302:
EMS303:

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

107
050
050
050
050

EMS307:
EMS310:
EMS311:
EMS312:
EMS313:
EMS314:
EMS315:

EMS316:
EMS317:
EMS320:
EMS321:
EMS322:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

SCANNCT CLEAR @
@CANNOT WRITE/READ @
@ANY DEVICE REGISTER 3
SWITHOUT @
@ERROR @
@A ONE FROM @

EMS66:

58 076540

116

126

g; 076747

123

105

101 EMS70:

63 077015
64 077053
65 077117
66 077152
67 077205
68 077246
69 077310

104
103
105
105
115
104
117

m
117
122
122
101
105
106

123
116
122
122
111
123
106

75 077527
76 077545
77 077570
78 077615
79 077626
80 077635

103
103
101
127
105
101

101
101
116
m
122
040

88 100137
89 100160
90 100200
91 100220
92 100240

122
061
062
064
070

123
040
126
110
040
120
120
105
040
040
040
040

101
101
101
054
015
103
M
m
m
123
123
103
102
125
104
125
102
102
103
127
102

114
124
124
040
012
101
123
123
123
110
110
101
1905
123
125
116
125
131
101
11
125

81 077651
82 077712
83 077727
84 077773
85 100031
86 100062
87 100111

93 100260

94 100277
95 100317
96 100330
97 100340
98 100346
99 100355
100 100415
101 100433
102 100447
103 100457
104 100502
105 100521
106 100535
107 100546
108 100555
109 100607
110 100623
111 100652
112 100700
113 100716
114 100737

104
110
123
101

125
101
105
124
101
101
101

101

101
m

122
117
105
124

114

107
116

111
114
122
1246

111
132
105
105
123
120
120

EMS67:

EMS257:
EMS260:
EMS261:
EMS262:

.ASCIZ Q@SEARCH ENABLE 'ESRC'' (RMMR1, BIT 11) @

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS304: .ASCIZ
EMS306: .ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@DRIVE TYPE REGISTER (RMDT) @
SHOLDING REGISTER (RMHR) @
QSERIAL NUMBER REGISTER (RMSN) @
QATTENTION SUMMARY REGISTER (RMAS) @

SUSING MASSBUS INITIALIZE, 1.E., @
@A ZERO FROM @
@EVERY DEVICE REGISTER BIT POSITION @
@THE FOLLOWING BITS ARE STUCK @
@A SHIFTING ONE BIT FROM @
SAPPEARS STUCK AT ZERO @
SAPPEARS STUCK AT ONE 3
SREGISTER SELECT @
@1 (1,2,4.8,16) @
@2 (1,2,4.8,16) @
@4 (1,2,4.8,16) @
@8 (1,2,4,8,16) @

114 EMS323: .ASCIZ @ALL ONES FROM @

114
040
040
117
103
116
0640
040
040
117
117
116
103
111
122
105

123
0640
116
124
124

EMS324:
EMS325:
EMS326:
EMS327:
EMS330:
EMS331:
EMS332:
EMS333:
EMS334:
EMS335:
EMS336:
EMS337:
EMS340:
EMS3641:
EMS342:
EMS343:
EMS344:
EMS345:
EMS346:
EMS347:
EMS350:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

@ALL _ZEROS FROM @
@AT ZERO @
AT ONE @
@, OR @
<CR><LF>3CS MBA CLRL @
@CANMNOT READ ZEROS FROM @
@IS INCORRECT @
@IS NOT SET @
QIS SET @
@SHOULD NOT BE SET @
@SHOULD BE SET @
@CANNOT SET @
@BECAUSE @
@USING @
@DURING REGISTER TRANSFER @
SUNEXPECTED @
@BUS TIMEOUT (04 TRAP) @
@BY REGISTER TRANSFER @
SCANNOT RESET @
@WITHOUT SETTING @
@8BUT @

Amamamamaon
am

70 077340
71 077374
72 077425
;z 077464

124
114

59 076635
60 076711

.ASCIZ

BRI AN NN A NN DA N AR ANNARRARRNPAPRPRPRRN

ERROR MESSAGE STRINGS

)
SEQ 0277

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 40-2
123
123
040
040
116
123
123
126
1246
0640
116
123
104
116

EMS351:
EHSSS%:
EMS3S53:
EMS356:
EMS355:
EMS356:
EMS357:
EMS360:
EMS361:
EMS362:
EMS363:
EMS364:
EMS365:
EMS366:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@WAS RESET BY @
QaWAS SET 8Y @
@IN DIAGNOSTIC MODE @
@IS INCORRECT ACCORDING TO @
@CANNOT INCREMENT @
@WAS NOT SET BY @
@WAS NOT RESET 8Y @
@0 TO 1 TRANSITION OF @
@1 TO O TRANSITION OF @
@IS INCONSISTENT @
SCANNOT READ @
QTEST PATTERN IN @
QAND @
SCANNOT INITIALIZE @

130 101374
131 1016411
132 101440
133 101472
134 101476
135 101527
136 101543
137 101557
138 101570
139 101605
140 101622
141 101631
14% 101672
143 101711
1446 101721
}22 101734

122
104
104
124
127
102
102
127
127
104
127
103
127
104
127
123

105
m
125
117
m
131
131
101
101
m
110
117
101
125
101
105

123
106
122
040
124
040
040
123
123
104
111
115
123
122
123
101

EMS370:
EMS371:
EMS372:
EMS373:
EMS374:
EM3375:
EMS376:
EMS377:
EMS400:
EMS401:
EMS402:
EMS403:
EMS404:
EMS405:
EMS406:
EMS407:

.ASCIZ
._ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCiZ
.ASCIZ
.ASCIZ

@RESET EARLY @
@DID NOT RESET ON TIME &
SDURING COMMAND EXECUTION 3
Q@710 @
@WITH ANY COMBINATION OF @
@BY READING &
@BY WRITING @
@WAS SET @

125 101324

124

110

105

EMS367: .ASCIZ

PAPPPAWN

101
101
116
123
101
101
101
040
040
123
101
105
116
101

QTHE COMMAND SEQUENCER HAS BEEN CLOCKED @

@WAS NOT SET @
@DID NOT SET a
QWHILE @

SCOMMAND SEQUENCER DID NOT ABORT @
@WAS NOT RESET @
@DURING &
@WAS RESET @
@SEARCH TIMEOUT @

147 101754
142 102006
149 102051
150 102115

on
on
011
011

104
104
124
m

105
193
122
106

EMS500: .ASCIl
.ASCI1
LASCIZ
EMS501: .ASCIZ

@
d
@
@

DEVICE 1S NON=EXISTENT,3<CR><LF>
DEVICE IS SWITC.ED TO OTHER PORT@<CR><LF>
TRANSCEIVER ENABLE SWITCH IS OFF@<CR><LF>
IF MODULE, M7686,8<CR><L

152 102212
153 102237
154 102272
155 102345

103
104
104
104
104
101
012
050

123
123
105
105
105
123
011
116

EMS503:
EMS504:
EMS505:
EMS506:
EMS507:
EMS510:
EMS511:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCIZ

@
@
@
@
@
@

DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF>
DEVICE IS NOT AN RMB0, ORE<CR><LF>

157 102472
158 102545
}28 102574

011
on
01
on
on
on
015
011

161 102644
162 102674
163 102714
164 102755
165 102776
166 103023
167 103041
168 103061

122
117
122
122
122
123
123
104

105
106
105
105
105
105
105
101

101
106
126
114
103
105
101
124

EMS600:
EMS601:
EMS602:
EMS603:
EMS604:
EMS605:
EMS606:
EMS607:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

SREAD IN PRESET COMMAND @
@OFFSET COMMAND @
SRETURN TO CENTER CENTER COMMAND @
SRELEASE COMMAND @
SRECALIBRATE COMMAND @
QSEEK COMMAND @
@SEARCH COMMAND @
QDATA COMMAND @

151 102142

156 102402

115

101

EMS502: .ASCIZ

MASSBUS TRANSCEIVER, M5922 OR M5923
CS MODULE, M7684,8<CR><LF>
DS MODULE, MB685/M7685,3<CR><LF>

8<CRX<! &>

DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, OR®<CR><LF>

ASSUMING THE RH CONTROLLER HAS NO FAULT<CR><LF>
PROBABLE FAULT(S) :@<CR><LF>
<CRY<LF>®
(NOT INCLUDING CABLES OR CONNECTORS)@<CR><LF>

AN NIANANANRPNAN

127
127
m
m
103
127
127
060
061
m
103
124
101
103

MMM

115 100744
116 100762
117 100776
118 101022
119 101055
120 101077
121 101117
122 101141
123 101167
124 101215
125 101236
126 101253
127 101274
128 101301

VAR RAAPRPARNAN

ERROR MESSAGE STRINGS

CZRNBAQ RMB0 DSKLS PT1 MACRO v04.00 14-JAN-82 16:33:00 PAGE 41

SEQ 0278

130
105
130
105
103

120
123
120
123
126

EH150:

%? 104374

122

105

123

EH65:
EH71:

EH115:

EH130:
EH132:
EH142:

EH145:

EH213:
EH220:
EVEN

.ASCI]
.ASCIZ
.ASCI]
.ASCIZ
.ASCI]

@EXPCTD
@RESULT
QEXPCTD
@RESULT
SACTUAL

.ASCIZ

@RESULT

ACTUAL REGSTR FUNCTION@<CRLF>
C(CODE®
RESULT ADRESS
TESTa<CRLF>
ACTUAL STATUS
RESULT ADRESS REGSTRa
REGSTRa<CRLF>
ADRESS®

105
122
105
122
101

EH7:

EHS7:

QEXPCTD RECEVD REGSTRa<CRLF>
@STATUS STATUS ADRESS@
@ BASE®<CRLF>
@ADRESS®
STUCK@<CRLF>
@EXPCTD
@RESULT BIT(S)a
@EXPCTD RECEVD®
SRECEVD DRVTYP@<CRLF>
@DRVTYP REGADR®
@EXPCTD RECEVD TEST@<CRLF>
@STATUS STATUS REGSTR®
TEST@<CRLF>
@EXPCTD RECEVD
@STATUS STATUS PATTRNS
TEST@<CRLF>
@EXPCTD RECEVD REGSTR
@STATUS STATUS ADRESS PATTRN®
OFFSET@<CRLF>
TEST
@EXPCTD RECEVD REGSTR
Q@STATUS STATUS ADRESS PATTRN REGSTRa
SEXPCTD ACTUAL REGSTR OFFSET@<CRLF>
ADRESS REGSTRa
COUNT
@COUNT
SEXPCTD RECEVD REGSTR OFFSET@<CRLF>
@STATUS STATUS ADRESS REGSTRa
RMER2@<CRLF>
®EXPCTD ACTUAL REGSTR RMER1
QCMPERR CMPERR ADRESS PATTRN PATTRN®

25 104162
26 106222
27 104260
28 104316
29 104355

EH2:
EH3:
EH5:

LASCI]
.ASCIZ
.ASCI]1
.ASCIZ
LASCI1
.ASCIZ
.ASCIZ
.ASCI1
.ASCIZ
.ASCII
.ASCIZ
.ASCII
.ASC12
.ASCI1
.ASCIZ
.ASCIl
LASCIZ
.ASCII
.ASCIZ
.ASCI]
.ASCIZ
.ASCI]
ASCIZ

EHI:

120
101
101
122
120
123
120
103
126
120
101
120
101
120
101
120
101
120
125
120
101
120
120

130
124
102
104
130
105
130
105
122
130
124
130
1264
130
124
130
124
130
117
130
124
130
115

105
123
040
10
105
122
105
122
104
105
123
105
123
105
123
105
123
105
103
105
123
105
103

Al A 4D 4O

1 103077
2 103126
3 103155
& 103163
5 103172
6 103211
7 103230
8 103247
9 103266
10 103305
11 103332
12 103361
13 103407
14 103436
15 103474
16 103533
17 103602
18 103651
19 103710
20 103747
21 104006
22 104045
gz 104113

. r.r . r.x . xr

ERROR MESSAGE STRINGS

001140
001136
001140
001142
001140
001140
001140
001140

001142
000000
001142
001136
001142
001142
001142
001142

001136

11 106516
12 104521
13 104522
14 104524
}g 104530

000
200
000
000
000

000

18 104512

001142

001136

000
000
000

000000
000000
001176
001450
001136
001136

000
000

EDI:
ED2:
ED3:
EDS7:
ED6S:
ED71:
ED115:
ED130:

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

$GDDAT,$BDDAT,$BDADR,0
$BDADR,0
SGDDAT,$BDDAT,0
$SBDDAT,$BDADR.O
$GDDAT,$BDDAT,$TMPO,0
SGDDAT,S$BDDAT,RMHRO,0
$GDDAT,$BDDAT,$BDADR,$TMPO,0
$GDDAT,SBDDAT,$BDADR,$TMPO,$TMP1,0

EF1
EF2
EF5
EFS57:
Ezagg:

.BYTE
.BYTE
.BYTE
.BYTE
.8Y7e

0,0,0
0
0,0
0,0,0,0
0,0,0,0.0

ED220:

.WORD

$BDDAT,$BDADR

PARARPAAAAP
AN

1 104414
2 104424
3 106430
& 1046436
S 104444
6 104454
7 104464
8 106476

ERROR MESSAGE STRINGS

SEQ 0279

CZRNBAQ RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 42

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 43

SEQ 0280

30 105600
31 105637

124
126

4% 106276

124

32 105702
33 10573
3, 105766
35 106017
36 10603
37 106060
38 106105
39 106131
40 106146
41 106163
42 106224
43 106250

45 106311
46 10632
47 106364
48 106420
49 106446
50 106476
51 106521
52 106550
53 106571
56 106611
55 106651
56 106703
57 106725

124
126
124
124
124
124
124
124
124
1264
1264
1264

1264
1264
124
124
1264
124
124
124
124
124
124
124
124

062
062

062
062
062
063
063
063
063
063
063
063
063
064
064

064
064
064
064
064
064
065
065
065
065
065
065
065

063
064

065
066
067
060
061
062
063
064
065
066
067
060
061

062
063
064
065
066
067
060
061
062
063
064
065
066

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

@722

RMDA,RMDC FAULT TEST@<CRLF>

@T1l
@T12
aI13
@T14
ar15
ar16
@r17
@T20
ar2]
@723
ar2k

ar25
@126
@127
@r30
ar31
aT32
ar33
ar3%
I35
@T36
@I37
@740
@T41

@T42
@lé3
@744
a@T45
@748
@747
ar50
@r51
@r52
@ar53
@154
@T55
@r56

HOLDING REGISTER TRANSFER TESTA<CRLF>
CONTROL STATUS #1 TRANSFER TEST@<CRLF>
ERROR REGISTER #1 TRANSFER TESTS<CRLF>
CLEAR OFFSET STUCK ACTIVE TEST@<CRLF>
OFFSET REGISTER TRANSFER TEST@<CRLF>
ERROR REGISTER #2 TRANSFER TEST@<CRLF>
SERIAL NUMBER TEST@<CRLF>
CONTROL BUS PARITY DETECTION TEST@<CRLF>
CONTROL BUS PARITY GENERATION TEST@<CRLF>
DISK ADDRESS TRANSFER TEST@<CRLF>
DESIRED CYLINDER TRANSFER TEST@<CRLF>
ILLEGAL REGISTER TEST@<CRLF>
RESET GO BY INIT_TESTa<CRLF>
DIAGNOSTIC MODE TESTS<CRLF>
MOL TESTA<CRLF>
WRITE LOCk TEST@<CRLF>
DRIVE FAULT TESTa<CRLF>
SEEK ERROR TEST@<CRLF>
PIP TESTa<CRLF>
EBL_TESTA<CRLF>
LAST SECTOR, LAST TRACK TEST@<CRLF>
RMDA COUNT TESTa<CRLF>
RMDC_COUNT TEST@<CRLF>
LBT TESTA<CRLF>

COMPOSITE ERROR TEST@<CRLF>
WRITE GO TESTA<CRLF>
BRANCH MULTIPLEXOR TEST@<CRLF>
SET/RESET GO TES @<CRLF>
END 1 RESET GO TESTA<CRLF>
SET PULSE TESTA<CRLF>
SET/RESET IVC TEST@<CRLF>
SET LSC_TESTa<CRLF>
DECODE TEST@<CRLF>

SET/RESET VOLUME VALID TEST3<CRLF>
ILLEGAL FUNCTION TESTA<CRLF>
OCCUPIED TESTa<CRLF>
READ IN PRESET TEST@<CRLF>

062

061
062
€63
064
065
066
067
060
061

TRANSFER TESTa<CRLF>
CTOD TESTa<CRLF>
MASSBUS INITIALIZE TEST@<CRLF>
CLEAR STUCK ACTIVE TEST@<CRLF>
TRISTATE TRANSFER TEST@<CRLF>
REGISTER SELECT TEST@<CRLF>
DRIVE TYPE TESTACRLF>
DEVICE AVAILABLE TESTA<CRLF>

062

061
061
061
061
061
061
061
062
062

@T1
ar2
aI3
a7
@15
@76
@17
@710

BB BB -5 b

124

126
126
126
124
126
124
124
1264
126

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

29 105547

123
055
011
011
011
011
011
011
011
060

<CRLF>
<CRLF>
LIST OF TESTS3<CRLF>
@=====-swe<==s @<CRLF>

20 105057
51 105122
52 105166
53 105232
54 105275
55 105337
26 105403
57 1056432
58 105500

126
124
126
126
124
126
124
126

111
0SS
061
062
063
064
065
066
067
061

HELP:
ASCIT
'ASCIT

10 104540
11 1064556
12 106576
13 104615
14 1064632
15 104685
16 104720
17 104752
18 105002
19 105025

200
200
114
055

7 104536
8 104536
9 104537

.=BUFFER

104536

258.
238.

BUFONE: .BLKW
BUFTWO: .BLKW

2 104536
3105542

LRSS

BUFFER:

104536

L LS L

PANANAPRANABANARRARARN

ERROR MESSAGE STRINGS

SEQ@ 0281

. QNBAQ RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 43-1

CakJIR MESSAGE STRINGS

114

000200

Hhhhhhh.—hhh‘hfi-hhh‘—hhh.hh.—khh.—h

RIP/RMOF TESTE<CRLF>
RMDA/RMDC/RIP TEST@<CRLF>

b
-

SEEK TESTA<CRLF>
SEARCH TESTa<CRLF>
SEARCH TIMEOUT TEST@<CRLF>
DATA COMMAND TESTS (1)@<CRLF>
DATA COMMAND TESTS (2)@<CRLF>

DATA COMMAND TESTS (3)@<CRLF>

@O0PERATIONAL SWITCH SETTINGS@<CRLF>
-------------------- 8<CRLF>

OO =N
N
Q= PNINS NN N

VLVVLVVVLVLILLDDDODDODLD

PP 200 D

3> 3> P

USER<CRLF>

200

> 22 0

SET WLE TEST@<CRLF>
EXCEPTION TEST@<CRLF>
RECALIBRATE TESTa<CRLF>

ES S

b
N) =2 b b b b b
o~ NS UWNNI=O

—

<CRLF>

P SET ATA TESTa<CRLF>

HALT ON ERRORa<CRLF>
LOOP ON TEST@<CRLF>

INHIBIT ERROR TYPEOUTS@<CRLF>

a8<CRLF>

INHIBIT ITERATIONS®<CRLF>

BELL ON ERROR@<CRLF>
LOOP ON ERROR@<CRLF>

LOOP ON TEST IN SWR<7:0>8<CRLF>
TN128a<CRLF>
TN64LA<CRLF>
TN328<CRLF>
TN168<CRLF>
TN8a<CRLF>
TN4A<CRLF>
TN2a<CRLF>
TN1a<CRLF>

(2 Y2
ataalsetaalasleslesls:
bR T 2T 2 2 2 2 08

Y D

Y ol o

g Brnp g B B S

g Bt et g e g Bt Gt g g Bt g e e Y

DVA/DPR STATUS CHECK®<CRLF>
PORT REQUEST TEST, PART 1@<CRLF>
PORT REQUEST TEST, PART 2a<CRLF>
PORT REQUEST TEST, PART 3@<CRLF>
RELEASE TEST@<CRLF>
WRITE ATA TEST@<CRLF>
I
RESET ATA BY GO TESTa<CRF>
UNJT READY ATA TESTa<CRLF>
ERRUOR ATA TEST@<CRLF>
REGISTER TRANSFER ATA TESTa<(RLF>

PSSP

SET AOE TEST@<CRLF>
SET RMR TESTa<CRLF>
PGM STATUS CHECK@<CRLF>

I S

L
T
Y

SEARCH, SEEK, READ, WRITE TESTa<CRLF>
INVALID TRACK/SECTOR TEST@<CRLF>
INVALID CYLINDER TEST@<CRLF>

OFFSET COMMAND TEST@<CRLF>

RETURN TO CENTER TEST@<CRLF>
RMDC CLEAR OFFSET TEST@<CRLF>
EBL CLEAR OFFSET TEST@<CRLF>
RUN AND GO TEST@<CRLF>
SET 1AE TEST@<CRLF>

v B

Y
Y

Y
[

ey Sy ey ey ey ey Y

N St Sug Brieg g St g Gt reng g g et g By B

nunumrunnhunununn w

CVNVNICICICICICICICICICIICIMICICICIOICICICICIOICICIOIOHIOIOIOIO s lalalalzlalalalalalalalslislslslalslalalalnlsl

8
s
&
o
¢
&
&
@
o
o
o
&
®

O S

S S S

S ST O

P o

R oF

pry

040

R
RS
T I I T Y> >
MU’mwm‘flmmmmmmmmmmmmmmmmmmmmmmmmmmmmwmmwmmmwm(flm

84 110133
85 110157
86 110205
87 110224
88 110245
89 110276
90 110332
91 110366
92 110422
93 110423
94 110457
95 110513
96 110530
97 110565
98 110611
99 110634
100 110671
101 110700
102 110731
103 110755
104 111001
105 111040
106 111054
107 111067
108 111102
109 111115
110 111127
111 111141
112 111153
113

83 1101

81 110025
82 110065

107650
107672
107716
107750
110001

76
77
78
79
80

107416
107437
107464
107515
107553
107611

OOWVIWNWNNO SN I

70
71
72
73
74
75

124
124
QOO
O ~N)=d=b —d e d e b b e wid i caed e D e D b e wed b b b b d b b e ed b e b
NI NLAIN NN NN ANV NLNL NN NN NN NN
S NNON=OMNON MNOINININININININI

38 106755
€~ 106777
¢0 107026
61 107056
62 107110
63 107143
64 107175
65 107221
66 107242
67 107305
68 107343
69 107375

DOoODO

OoODoooooOo®
nN O
NNV

O NNHANVNIOWNI
I N = NN NNV OOV

b b wd wd =R OO OOOOOO
e 2

~NMAMMMMMMOOMDIOODOOOOO@Ommmommm®

O NOWn

MM TITMITIT TNTITTITMOOO0O0D0O0V0O0

prgiry
b b —f = —f e =f = =f =f = =4 = ) S JONVAN[ Y, P
N
=
NNOVVININA)
=2 = wd = () =3NS
o
Ow
NN
NN
NN

TMTITI MV

W
o

e e

DLT
= 100000
= 000001
DMD
= 000010
vPE
DPEH] = 040000
DPELO = 020000
DPR
= 000400
DRIVES 063416
= 004000
DRQ
DRVCLR= 000010
= 000200
DRY
DSWR = 177570
DTE
= 010000
DULPRT= 024026
= 004000
DVA
= 000200
pve
= 020000
EBL
= 000100
ECH
= 004000
ECI
ECRC = 001000
EDT1
072362
EDT115 072400
EDT130 072402
FEDT132 072404
072364
EDT2
EDT220 072406
072366
EDTS
072370
EDT57
072372
EDT6S
072374
EDT71
072376
EDT74

VAN

NNONN)
=2 —a O W
NN NWVWNNO o

CLR _ = 0000
CMNSTA 0066
0631
CNSLOT1
063}
CNSLO2
CNSLO3 063
CNSLO4 063 1
CNSLO7 0632
CNSLO8 063374
CNSLO9 063375
CNTCLR 055156
063061
COMMA
CONT = 000100
CPSAVE 057700
= 000015
CR
CRLF = 000200
CYLMSK= 001777
pDBCK = 100000
DBEN = 040000
= 002000
pDBL
= 100000
DCK
DDISP = 177570
DEBL = 020000

b td d )

= 100000
8SE__
BUFFER 104536
BUFONE 104536
BUFTWO 105542
= 004000
cC
CH
= 00200 0
CHGADR 001330

cLoCK

—b

AUNIT = 000000
AUSWR = 000000

BPTVEC= 000014

CHRCNT 060527
CKSWR = 104410

OOOOOOOOOOOOOOONNNNNNNN
NN UNNN 8 85 N 8 S NN
N R PO N PPN n~N
PNONIND = b (NN =2 =2 ©O N OM N S OANNNI NN
NW
WO
NN ONWNON 8 SN
N = =
O O W (¥,

AOE
= 001000
APASS = 000000
= 100000
APE
APRIOR= 000000
APTCSU= 000040
APTENV= 000001
APTS1Z2= 000200
APTSPO= 000100
ASWREG= 000000
ATA
= 100000
ATESTN= 000000
ATNMSK= 000377
ATNTBL 063740

AUTSIZ 001326
AVECT1= 120254
AVECT2= 000000
A16
= 000400
A17
= 001000
BADTMO
004562
= 000010
BAl
8800 = 000001
8801 = 000002
BB02 = 000004
BB03 = 00001
BB04 = 000020
8805 = 000040
B8B06 = 000100
8807 = 000200
8808 = 000400
8809 = 001000
BITO = 000001
BIT00 = 000001
81701 = 000002
BITO2 = 000004
81703 = 000010
BIT04 = 000020
BITOS = 000040
BIT06 = 000100
81707 = 000200
BIT08 = 000400
81709 = 001000
= 000002
BIT1
BIT10 = 002000
81711 = 004000
81712 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 00001C
BIT4 = 000020
BITS = 000040
8IT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 0 001000
BLNKS1 063635
BLNKS2 063634
BLNKS3 063633
BLNKS4 063632
BOTADR 060524
BOTFLG 060526

[=]
o

ABASE = 176700
ACOW1 = 000000
ACOW2 = 000000
ACPUOP= 000000
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000
ADDW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000
ADDW6 = 000000
ADDW7 = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
= 000001
ADR
AENV = 000000
AENVM = 000000
AFATAL= 000000
063050
ALL
AMADR1= 000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 000000
AMAMS1= 000000
AMAMS2= 000000
AMAMS 3= 000000
AMAMS4= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000
AMTYP3= 000000

mmmmmmmmmmmmmmmmmmmmmmmmm

SYMBOL TABLE

SEQ 0282

CZRNEAOD RMB0O DSKLS PT1 MACRG V04.00 14~JAN-82 16:33:00 PAGE 43-2

EMS33
EMS330
EMS$3)
EMS332
EMS333

EMS334
EMS335
EMS336
EMS337
EMS34
EMS340
EMS341
EMS342
EMS343
EMS344
EMS345
EMS346
EMS347
EMS3S
EMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36
EMS360
EMS361
EMS362
EMS363
EMS364

074526
100346
100365
100415
100433

100447
100457
100502
100521
074556
100535
100546
100555
100607
100623
100652
100700
100716
074605
100737
100744
100762
100776
101022
101055
101077
101117
074647
101141
101167
101215
101236
101253

EMS365 101274
EMS366
EM>367
EMS37
EMS370
EMS371
EMS372
EMS373
EMS37%
EMS375
EMS376
EMS377
EMSL
EMS4O
EMS400
EMS401
EMS402
EMS403
EMS404
EMS405
EMS406
EMS407
EMS41
EMS42

101301
1013¢4
074677
101374
101411
101440
101472
101476
101527
101543
101557
072623
074730
101570
101605
101622
10631
101672
101711
101721
101734
075006
075054

070116
070136
070154
064404
064744

075136
075207
075250
075325
075407

EMT112
EMT113
EMT11%
EMTI1S
EMT116

066452
066472
066516
066540
066564

EMT175
EMT176
EMT177
EMT2
EMT20

EMS607 103061

EMTIS

064672

EMT231 070742

EMS63
EMS4s
EMS4S
EMS46
EMS4?

EMSS
EMS50
EMS500
EMS501
EMS502
EMS503
EMS504
EMS505
EMS506
EMS507
EMS51_
EMS510
EMS511
EMS52
EMS53
EMS54
EMSSS
EMS56
EMS57
EMS6
EMS60
EMS600
EMS601
EMS602
EMS603
EMS604
EMS605
EMS606

072654
075447
101754
102115
102142
102212
102237
102272
102345
102402
075516
102472
102545
075565
075626
075667
075744
076022
076115
072724
076201
102644
102674
102714
102755
102776
103023
103041

EMS61
076253
076320
ERS0E
076407
EMS63
EMS64
076447
EMS6S
076517
076560
EMS66
076635
EMS67
EMS7
072770
EMS70
076747
EMTVEC= 000030
EMT1
064376
064564
EMT10
EMT100 066200
EMT101 066220
EMT102 066240
EMT103 065260
EMTI0% 06630
EMT10S 066324
EMT106 066344
EMT107 066370
EMT11
064602
EMT110 066410
EMT111 066432

EMT117
EMTI2
EMT120
EMT121
EMT122
EMT123
EMT124
EMT125
EMT126
EMT127
EMT13
EMT130
EMTI31
EMT132
EMT133
EMTI3%
EMT135
EMTI36
EMTI37
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT150
ERTI51
EMT152
EMT153
EMT15%
EMT155
EMT156
EMTI57
EMT16_
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
SNTIGr
EMTIZ
EMT120
EMT171
EMT172
EMT173
EMT17%

066604
064620
066624
066650
066670
066710
066734
066752
066772
067010
064636
067034
067052
067070
067110
057130
067144
067162
067174
064654
067212
067232
067246
067264
067300
067322
067344
067362
067374
Gbraib
067430
067444
067464
067504
067522
067544
064710
067562
067612
067630
062646
067670
067712
067736
Goriol
064726
07000C
070012
070026
070044
070066

EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT21S
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230

EMT232
EMid33
EMT23%
EMT235
EMT236
EAT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT24%
EMT245
EMT246
EMT247
EMT25
EMTes0
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256

070156
070174
070212
070230
(070252
(070272
070312
070342
064764
070356
070374
070412
070424
07045
070466
070506
070522
065004
070536
070554
070572
070610
070626
070646
070670
070706
065020
070724
070756
071000
071022
071050
071070
071122
065040
071142
071166
071212
071236
071262
071300
071316
071342
065060
071300
071404
071430
071454
071472
071510
071534

EMT257
EMT26
EMT260
EMT261
EMT262

071552
065074
071576
071622
071646

EMT41

065324

EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270
EMT271
EMT272
EMT273
EMT274
EMT275
EMT276
EMT277
EMT3
EMT30
EMT300
EMT301
EMT302
EMT31
EMT32
EMT33
EMT34
EMT3S
EMT36
EMT37
EMT4
EMT40
EMT42
EMT4s
EMT4%
EMT4S
EMT46
EMT47
EMTS
EMT50
EMTS1
EMTS2
EMTSS
EMTS4
EMT5S
EMTS6
EMT57
EMT6
ERTO0
EMT6]
EMT62
EMT63
EMT64
EMT6S
EMT66

071664
071702
071726
071744
071762
065126
071776
072022
072046
072064
072102
072120
072140
072156
064432
065140
072202
072226
072244
065154
065170
065204
065222
065240
065254
065270
064452
065304
065340
065364
065376
065412
065426
065442
064474
065464
065506
065526
065542
065556
065576
065616
065632
064520
065(40
065662
065702
065722
065736
065750
065764

[ lm)

SYMBOL TABLE

(alnlalalslalalalalel

SEQ 0283

MmO

CZRNBAO RMB80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 43-3

SEQ 0284

SYMBOL TABLE

ENT6E7 066000
064542
EMT?
EMT70 066016
066036
EMT71
EMT72 066062
EMT?73 066106
066126
EMT74
066136
EMT?5
EMT76 066150
EMT77 066164
ENRGDT 064376
EQUALS 063046
= 040000
ERR
ERRNMB 060522
ERROR = 104000
ERRTYP 057704
ERRVEC= 000004
ERTYO0 060%30

ILF54 = 000054
ILF56 = 000056
ILF64 = 000064
ILF66 = 000066
ILF74 = 000074
ILF76 = 000076
= 000002
ILR
ILRG50= 000050
ILRGS52= 000052
ILRGS4= 000054
ILRG56= 000056
ILRG60= 000060
ILRGE2= 000062
ILRG64= 000064
ILRG66= ©0DQ066
ILRG?70= 000070
ILRG72= 000072
ILRG74= 000074

MUR - 001000
= 000010
MWD
MwP = 000010
= 001000
MXF
063626
N
NDTMSK= 115760
= 010000
NED
= 004000
NEM_
063445
NONE
NOP = 000000
NOTAVL 063566
NOTPRS 063551
063517
NOTRM
= 100000
NSA
= 100000
occ
OFD _ = 000200
OFFSET= 000014
= 000001
oM

063055
QUES
000070
=
RD
RDCHR = 104411
RDLIN = 104412
RDOCT = 104413
= 000209
RDY
007006
READY
READY1 007034
RECAL = 000006
RESREG= 104415
RESVEC= 000010
= 010000
REX
= 040000
RGDTPT 063750
= 000072
RH
= 000020
RIP
RLEASE= 000012
RMAS = 000016

RMER11 001352
RMER10 001426
RMER2 = 000042
RMER2I 001400
RMER20 001454
RMHR = 000036
001374
RMHRI
RMHRO 001450
RMLA = 000020
001356
RMLAI
RMLAO 001432
RMMR1 = 000024
RMMR1I 001362
RMMR10 001436
RMMR2 = 000040
RMMR21 001376
RMMR20 001452
RMOF = 000032

ILF24 = 000024
ILF26 = 000026
ILF30 = 000030
ILF32 = 000032
ILF34 = 000034
LF36 = 000036
ILF40 = 0000+
ILF42 = 000042
ILF44 = 000044
ILF46 = 0000%6

MRD = 002000
MR1AAA= 051401
= 000040
MS
MSC = 0000?5
MSDRVS 0634
MSE = 100000
MSEN = 010000
MSER = 000200
MSGDRV 063466
MSHELP 063064

PR4 = 000200
= 000240
PRS
PR6 = 000300
PR7 = 000340
= 177776
PS
PSEL = 002000
PSTOP 054704
= 177776
PSW

RMDT = 000026
001364
RMDT]
RMDTO 001440
RMECT = 000044
RMECT] 001402
RMECIO0 001456
RHECS = 000046
RMECZ2] 001404

SEARCH= 000030
SEEK = 000004
SETOM 055034
SETVV 054732
062170
SHUT
SIZCLK 054322
= 040000
Skl
SNGPRT=

ERTYO1 060535
ERTYO2 060545
ERTYO3 060554
ERTYO4 060562
ERTYO5 060565
ESRC = 004000
FER
= 000020
FMT16 = 010000
FNCDTB 063640
FNCMSK= 000077
FO
= 000002
= 000004
F1
F2
= 000010
F3
= 000020
= 000040
Fé4
GETBUF 001336
= 000001
GTSWR = 104407
= 000200
HCE
= 002000
HCI
HCRC = 000400
104536
HELP
= 000011
HT
= 002000
IAE
IBSAVE 057702
1DXMSK= 000077
= 000100
IE
= 000001
ILF__
ILFO2 = 000002

ILRG76= 000076
JOTVEC= 000020
IPCKO = 000001
IPCK1 = 000002
IPCK2 = 000004
IPCK3 = 000010
IR
= 000100
054702
IRP
IvC
= 010000
L8C
= 002000
LBT
= 002000
LCLOCK 054600
LCOUNT 054650
LF
= 000012
063534
LODEV
= 000004
LS
= 004000
LSC
= 000002
LST
054712
LSTOP
001334
LSTRK
MCLK = 004000
MCPE = 020000
= 000100
MDF
MDPE = 000400
= 000004
MI
063750
MIxcD
000400
=
mMoC
MOH = 020000
= 010000
moL

064010
ONES
= 020000
OPE
= 020000
oPI
= 000200
ORrR
PACACX= 000022
PAKACK= 000022
PAR
= 000010
= 000029
PAT
PCLOCK 054562
PCOUNT 054650
PDA
= 000400
060572
PFECH
PFECH1 060602
PFECH2 060670
PFECHS 060706
PFECH4 060714
= 002000
PGE
= 001000
PGM
= 000200
PHA
= 020000
PIP
PIRQ = 177772
PIRQVE= 000240
054606
PLCLK
PLFS = 002000
PLSTP 054716
= 000000
PRO
= 000040
PR1
= 000100
PRZ
PR3 = 000140

PUTBUF 001412
PWRVEC= 000024

001354
RMASI
001430
RMASO
RMBA = 000004
RMBAE = 000050
RMBAEI 001406
RMBAEC 001462
RMBAI
001342
001416
RMBAOD
RMCS1 = 000000
RMCS1I 001336
RMCS10 001412
/RMCS2 = 000010
RACS2I 001346
RMcS20 001422
RMCS3 = 000052
RMCS31 001410
RMCS30 007 .64
RMDA = 000006
001344
RMDAI
001420
RMDAO
RMDB = 000022
RMDBI 00° 360
001434
RMDBO
RMDC = 000034
001372
RMDCI
0C:446
RMDCO
RMDS = 000012
0C1350
RMDSI
RMDSO 0(1424

RMEC20 001460
RMZR1 = 000014

001370
RMOFI
001444
RMOFO
= 000004
RMR
RMSN = 000030
001366
RMSNI
RMSNO 001442
RMWC = 000002
001340
RMWCI
RMWCO
001414
ROA
= 100000
RGB
= 040000
= 000016
RTC
R6
=X000006
R7
=X000007
SADMSK= 000377
SAVREG= 104414
= 000001
SA1
SA16 = 000020
= 000002
SA2
= 000004
SA4
= 000010
SA8
= 100000
SC
scopt = 000004
SCTMsx= 003700
= 000100
sCO
= 000200
SC1
= 000400
SC2
= 001000
SC3
= 002000
SC4

5SE
SSEI

= 000040
= 001000

fiviviv]ivleoleololol
o]

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 43-4

SSF = 020000
STACK = 001100
STANDA 006074
START 004652
START1 004642
STARTZ 004656
STKLMT= 177774
STOPCL 001540
001154
SWR
SWREG 000176
sSw0 = 000001
Sw00 = 000001
swol = 000002
Sw02 = 000004
sw03 = 000010
Sw04 = 000020
Sw0S = 000040
Sw06 = 000100
sw07 = 000200
Sw08 = 000400
sw09 = 001000
= 000002
swi_
SWw10 = 002000
SW11 = 004000
swi2 = 010000
swi3 = 020000
Swi4 = 040000
swis = 100000
Sw2 =
sw3 = 000010
swé = 000020
Sw5 = 000040
swé = 000100

SwZ7 = 000200
sw8 = 000400
Sw9 = 001000
SYSTAT 063474
TADMSK= 177400
TAG = 020000
TAGADR= 001114
TAP = 040000
= 000400
TA1
TA2 = 001000
TA4 = 002000
TA8 = 004000
TBITVE= 000014
001532
TIME
TKVEC = 000060
TPVEC = 00006
TRAPVE= 000034
TRE = 040000
TRTVEC= 000014
ST = 010000
TSTNMB 060520
TSTQUE 001466
007156
ST
TST10 012452

TST100
TST101
TST102
TST103
1ST104
1ST105
TST106
151107
TST11
TST110
TST111
TST112
TST113
TST114
TST115
TST116
1ST117
TST12
TST120
TST13
TST14
TST15S
TST16
1ST17
TSY2
TST20
1ST21
187122
TST23
1ST24
1ST25
TST26
1ST27
TST3
TST30
TST31
1ST32
1ST33
TST34
TST35
TST36
TST37
1ST4
TST40
TST41
TST42
TST43
TST44
TS745
TST46
TST47
1ST5
TST50
TST51
1ST52
TST53
TST54

035746
036100
036270
036472
036620
037024
037154
037350
012536
037546
040024
040330
041722
(043450
045630
046210
050352
012776
052640
013344
014126
014234
014666
015400
007466
015502
015760
016104
016232
016504
017004
017426
017522

007656
020010
02034
020614
021332
021644
022136
022460
023116
010026
023624
024144
024462
025064
025234
025614
026324
026620
010156
027222
027456
027664
030516
030770

TSTSS 031172
TST56 031404
TS157 031606
011262
1ST6
TST60 031774
TST61 032212
TST62 032360
TST63 032604
TST64 032720
TST65 033106
TST66 033336
1ST67 033554
012356
18717
TST70 034002
034252
TST71
TST72 034460
TST73 035004
TST74 035232
1ST75 035340
1ST76 035464
1ST?77 035614
TYPBN = 106406
TYPDS = 104405
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
S = 040000
UNTMSK= 000007
UNTOFF 063605
UNTON 063616
UPE = 020000
USE = 040000

= 000001
uo
= 000002
Ul
= 000004
ue
= 000100
A4
WATCH 001534
= 000040
WC
weD = 000050
WCE = 040000
WCEHI = 010000
WCELO = 004000
= CU0040
wCF
WCH = 000052
= 000060
WD
= 000062
WH
WLE = 004000
WRL = 004000
XNUDC = 176000
XNUER2= 001527
XNUOF = 160577
005604
XS12
001332
XXDP
063630
Y
2EROS 064052
$SAPTHD 001100

SEQ 0285
SATYC 062624
SATY1 062600
SATYS 062606
SATYL 062616
$AUTOB 001150
$BASE 001276
$8DADR 001136
$8DDAT 001142
$BELL 007212
055360
$BIN
$cowl 001302
$Cow2 101304
$CHARC 056364
$CKSWR 061230
S$CMTAG 001114
= 000000
C
$CM4é = 000005
SCNTLC 062126
SCNTLG 062140
SCNTLU 062133
$CPUOP 001250
$CRLF 001217
$DBLK 055576
$DDWO0 001306
001310
$ppwl
$oDW2 001312
$DOW3 001314
$DDW4 001316
$DDWS 001320
$DDW6 001322
$DDW7 001324
$DEVCT 001232
$DEVM 001300
$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
$EOPCT
SEJSP
SERFLG
SERMAX
$ERROR
SERRPC
$SERRTB
SERTTL
SESCAP
SETABL
SETEND
SFATAL
SFFLG
$SFILLC
$FILLS
$GDADR

054312
055566
054302
054140
054316
001242
001243
054104
054132
054046
00,117
00131
057311
001132
001542
001126
001210
001242
001326
001224
063044
001172
001171
001134

$GDDAT 007140
$GET42 054272
$GTSWR 061320
$GT42P 054266
$HD = 000000
$HIBTS 001100
$HIOCT 062312
S$ICNT 001120
SILLUP 062562
$INTAG 001151
SITEM8 (001130
001220
sL”
SLFLG 063043
SLLCSR 001522
SLLVEC 001524
SLPADR 001122
S$LPCSB 001514
SLPCSR 001512
SLPERR 001124
SLPVEC 001516
$MADR1 001254
SMADR2 001260
$MADRS 001264
$MADRG 001270
SMAIL 001222
sMAMS1 001252
sMAMS2 001256
SMAMS3 001262
$MAMSS 001266
$MBADR 001102
SMFLG 063042
SMNEW 062156
$MSGAD 001236

$MSGLG 001240
$MSGTY 001222
SMSWR 062145
SMTYP1 001253
SMTYP2 001257
SMTYP3 001263
SMTYP4 001267
SMXCNT 057046
$NULL . 001170
SNWTST= 000001
SOCNT 056030
SOMODE (56052
SOVER 057032
$PASS 001230
$PASTM 001106
SPOWER 062570
001530
$PSW
SPWRDN 062422
$SPURMG 062556
SPWRUP 062474
$QUES 001216
$SRDCHR 061572
SRDLIN 061662
$RDOCT 062212

Mmoo

MO OO

SYM30OL TABLE

mmmmmmmmmmmmm

CZRNBAO RM80 DSKLS PT1 MACRO V064.00 14-JAN-82 16:33:00 PAGE 43-5

ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED: 62208 WORDS ( 243 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES
+A:CZRNBA/C=A:CZRNBA.DOC,CZRNBA,SYSMAC/M

—

(=)
(=
o
=]
N

$XOFF
$XON

$XTSTR 056406
$$GET4= 000000
$$5wW08= 000121
SOFILL 056031
.$X
= 001100

mmmmmmmmmmamammmmmmmmmmmmMmmmMmm.

111166
000000

061000

001234
001110
001246
001272
001274

SUNIT
SUNITM
SUSWR
SVECT1
SVECT2

A PAE FA AL PV I

$TKSRV

001244

$TRPAD
$TSTM
STSTNM
STTYIN
$TYPBN
$TYPDS
STYPE
S$TYPEC
S$TYPEX
$TYPOC
$TYPON
$TYPOS

FAF

$SWREG

001174
$TMPO
001176
$TMP1
001200
$TMP2
001202
$TMP3
001204
$TMP4G
= 000121
$IN
001166
$TPB
STPFLG 001173
001164
$TPS
062314
STRAP
$TRAP2 062354
$TRP = 000016

$SWRMK= 000000
$SWO8T 057050
STESTN 001226
$TIMES 001206
001162
$7kB
$TKCNT 060720
$TKINT 060730
$ /KQEN= 060727
S$TKQIN 060722
$TKQOU 060724
$TKQSR 060726
001160
$TKS

$RDSZ = 000010
$RESRE 055250
063512
$TMB0
SRTNAD 054314
$SAVRE 055212
$SAVR6 062566
$SCOPE 056370
$SETUP= 000137
$STUP = 177777
$SVLAD 056776
$SVPC = 000210
$SWR = 167400

A A

OL TABLE

[elelaleleleleleolelolee]
VIO
OO O
VIO
OO \WNNAIND = =2 N
OO O
O NN = =d =2 (N
OB WO WNOO—=2—=20O0
ONONNOONON
S NOONONON O

SYr

SEQ 0286

~ue res PR PR FR FAFTR fAPA FA PR

CZF BAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 43-6

CROSS REFERENCE TABLE (CREF v04.00 )

24~
24-1
24-1
24=1
24=-14
26414
2414
24=14
24=1#
24=14

SOFILL

22-1

SASTAT
SATY1

31-1
31-1»

264-1

24-14
2bL=14
24=14
24=14
26=-14
24-14
2214

241
24~14
24=-14
24L=14
24=14
24=14
24-14
22=1*

24=14
24~14
24=14
24=14
24-14

9®

24=1A4
24=14
24=-14
24=-14
24=14

22=1+

2W10@s—~NO05N6M

. . P et

I EE E RN EEEEEREREEREXEERE.

— e QZFN WNON . MT A2 +~->XJ VLX)

N NDINMOOLO~E
il BUWXXEO
AN BYES MOM

<
[-

W ) W A0 WA ) W) LA W (A W00 L) 0 WA A0J W00 BT WA G L) MM WS WA MBS WA W et A LS LA S SR B RS M SR R WA W T G S R S SR S T ———

SEQ 0287

CZRNBAQ RMB0 DSKLS PT1 MACRO V04,00 14-JAN-82 1(:33:00 PAGE S-1

ww
§

[}

4
[-

— PPOT P T e

]

[] U L

§ 1 0 ] o0 0 0 0

]

BE52rS
ARAAAAN

| U (UL R TR [ [}

UL Py e et

oeaL4XNld
VY] (S

e et
A
TR
RRREGRGRaL
IRERRER
CE Q233233 RBRRAGL

]
7Y

[

[
4

o
§

-&&&

U R

RRNB&BB B* =

B® b

ZBO)20o—MPNON OD”-—e
W)
a

" ' | L]

OO ARNAAARARRS &

3313111113

v &«&L &R&&_®B BX&&=®
]

bv4

& « = (7]
SLvY][

[}

4
[-

-«

w
w

> 0 0t (R P00 b L (U U UK (PP

STV[

]

[
4

|
s

(VY]

CROSS REFERENCE TABLE (CREF v04.00 )

STRPAD

$TSTM
STSTNM

STTYIN

STYPBN
$TYPDS
$TYPE

$TYPEC
S$TYPEX
S$TYPOC
STYPON
$STYPOS

SUNIT
SUNITM
SUSWR

SVECT]
SVECT?
$XOFF
$XON

SXTSTR
.SASTA

.$X
Al6
A7
ABASE
ACDW1
ACDW2
ACPUOP
ADDWO
ADDW1

ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15
ADDW?
ADDW3
ADDW4
ADDW5
ADDW6

ADDW?7
ADDW8
ADDW9

ADEVCT
ADEVM
ADR

29-1
5-13#
6-0r
27-1
20-1#
21-1#
23-1»
23-1
23-1
22-1#
22-1
22-1#4
6-04
5-13#
6-0#
6-0#
6-0#
23-1
23-1
2414
31-1
5-13
L4=944H
4-9434
4=995#
6-0
6-0
6-0
6-0
6-0
6-P

6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
13-1
13-159#
13-602#
13-986
13-; 104
13-=90#
13-A39

13-D69%
13-1144
13-M40

29-14
241

11-63

26-22

10-46

10-56

10-63

10-64+

2323-

27-1

13-14
13-3324
13-670

13-73
13-3324

13-734
13-524

13-,54A

13- ;564

13-:094
13-<16

31-1
5-134
13-<98
13-<98
6~0
6-0
6-0
6-0
6~0
6~0

25-1

384

13-137#
13-549
13-7874

13-137#
13-549%4
13-877

13-159
13-5494
13-8774

13-159%
13-602
13-877#

3-=154
13-3184
13-D10

1
13-318¢
13-D10#

13-379
13-D10#

13-D69
13-G64#
13-LO8#4
13-023

13-114
13-L08#4
13-023#4

24=1+

24=1¢

1
1
1
1
1
1
1

11-50+

—

241

6-0

6-0
6-0
6-0
13-14
13-332
13-602#

13-986#

13-; 54
13-=90#

13-A39#
13-£28
13-114#
13-M40#

13-9864

13-355

13-A394
13-E28#
13-189
13-M<0#

13-670#
13-:09

13->554
13-820
13-E28¢
13-1894
13-NOO

13-6704

13->554
13-820#
13-F08
13-189#4

13-73#
13-524
13-774
13-:
13-<
13=?
1
1
1
1

~7874
90

*
K74
-N36#

3-F434
13-K744
13-N84

13-G64
13-X744
13-N84#

13-G64#
13-L08
13-NB4H

OO W) W WA A LA G A LA b A A LA i ) L) ) G ) A ) A ) L L) A L) L) ) ) Wd ) B Rl ) Rl Waf ? B Wt lhad P RS

SEQ 0293

CZRNBAO RM80 DSKLS PT1 MACRO V04,00 14=JAN-82 16:33:00 PAGE S-7

e ke e o s e T T T —~ > v =

“'&RLAl
Ol

— 00 NID>X FOOOJTOOOOOOOOOOOOOOONOD —eerem O3 NO D OO0 VO ON EE -

3
%
9
3
8
(%e»v

- Rk Rk =

R%k

Vg Ve PNy VI V Sy g P o s
ITUIV ] YAy e ETTU
At [VETVVETV
vy W
(7]

)

bv4

O Jre »

N~ O —INO N

OW
mn

xO
(YY)

[ e e e S N ol ol el et et et el ad o Y ol el - B ol gl TP [T 7

VXV.O

-—

"\ U R ]
["aY'aY

®»
*®

o T ITI T M ST o OO M M M M IMIMOMNO

CONONO\N\ir—r—0000 ~ OtOMMMM

— RN e

[}

[7¢]

(=]
b4

W) I

> '

R UURURUUR BRI RN

- NN MTIPSr Ll ek el ksl stkekel el e elol olol el ol g

N T e —e QRe rON NO 0N— NFEODr — WMZAXENULIFreG 10 0
w)

w
L]

=8
b4

SEQ 0297

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE §-11
CROSS REFERENCE TABLE (CREF V04.00 )

13-€06

13-=48
13->r3

13-a37
13-AS57
13-C71
13-FS2
13-J28
13-L61
13-N89
13-P38
13-R97
13-v20
13-X25
13-263
13-[68
13-\92
13-403

13-003

13-599

13-=60
13->90
13-a53
13-A67
13-p33
13-F79
13-k37
13-M00
13-003
13-P42
13-502
13-v24
13-Y58

13-a89
13-b82
13-d16
13-e10
13-162

13168

13-482

13-m10

MOM )~]M[-

13-m09

13-?68
13-137
13-j67

OMNIMMN La]

2aoLXl]2e LM-NO4IMON

-—

L.a]

& v

Y=Y=-Y=-Y=-Y-1-Y-1-1=[
OL~NaBAMoY]eO 0w oo.
00 ONWNAONIANO

- OO O

-—

P
oM

[]

[

L UL

N —e

W= OUOUIM T NN =M S

WNr—r=ONONIM NN

UL UL UL )9 U

0 Do M

(BB

e
QCONCOITNOM

(BB N N )3 U0 ]

]VE] [

N D3>0 wvwuoaoaaacocaaso

W Wta
O QA AQALAOOW

“w

E w “4‘3‘Ifl4888888888888888888888888888888499999888888888888

CONOTWVNOMe—=000~r O MW

~ U

~ O ONOMNOO

n.'—Me
=

-—
-—
-—

a [ LR )

w (VY]

(7]

o
m a0
b4

M
a

(SJV] w

XL XX XXX WX

- ——

G0 G0 G0 60 €O a0 A0 A0
N 000000 00 a0 a0 N
A NN NN A NN
A AN A NN0
W 60

37-144
8-482
8-470
8-467
8-370

8-400

§-202

8-21

37-7#

8-406
8-364

L X=
SEQ 0299
[
7]

o
z

o
L]

SEQ 0300

CZRNBAQ RM80O DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE S-14
CROSS REFERENCE TABLE (CREF Vv04.00 )

EMS15
EMS16
EMS17
EMS2
EMS20
EMS21
EMS22
EMS23
EMS24
EMS25
EMS250
EMS251
EMS252
EMS253
EMS254
EMS255
EMS256
EMS257
EMS26
EMS260
EMS261
EMS262
EMS27
EMS3
EMS30
EMS300

36-144
36-151
36-151
36-8
36-158
36-158

36-327
40-174

36-329

36-346

36-400

40-164

36-364

36-380

36-344

40-4#

36-382

36-402

40-20#

36=276

36-291

36-296

36-317

36-221
36-223

40-66#

36-223

36-341

40-65#

36-298

36-422

40-684

40-634

40-264

36-337

36-124
36-422
36-44
36-91
36-184

EMS301

36-187

36-211

36-58
36-101
36-267

36-60
36-104
40=-76#

EMS302

EMS303
EMS304
EMS306
EMS307
EMS31
EMS310
EMS311
EMS3"2

36-90

36-93

36-100

36-103

36-112

36-115

EMS313

36-142

36-148

36-155

36-170

36-177

36-184

40-934
36-98

36-110

40-94#

36-292

36-302

40-974

EMS314
EMS315
EMS316
EMS317
EMS32
EMS320
EMS321
EMS322
EMS323
EMS324
EMS325
EMS326
EMS327
EMS33

40-814

40-88#

36-113
36-88
40-964

36-291

EMS330
EMS331
EMS332
EMS333

40-994
36-179

36-413
36-317

40-100#

36-323

40-101#

36-384
36-419
36-250

36-393

40-103#

36-252

36-254

36-192
36-422

36-201
40-107#

36-203

36-287

36-319

36-321

40-112#

6-258

EMSZ36
EMS337
EMS34
EMS340
EMS341

40-106#

40-1114

36-285

40-1044

36-180
36-184
40-324
36-323

36-281
40-1134

36-283

36-346

40-1144

36-245
36~261

36-269
36-269

36-335
36-289

40-1174

36-294

36-296

36-298

36-337

40-118#

36-237

36-325

36-352

36-357

36-361

36-368

36-373

36-377

36-335

36-337

40-127#

36-417

40-1374

36-380
40-1434

36-385

36-387

36-389

40-1204

36-235
40-334

40-1224

EMS40
EMS400
EMS401
EMS402
EMS403
EMS4L04
EMS4LO5

36-311
36-298
36-235

36-323

40-1254

36-237

36-241

36-245

36-269

36-333

36-237

1,261

36-245

36-269

36-335

40-1294

36-389

36~405

40-1304

36-325

36-337

36~341

36-346

40-1324

36-341
36-350
40-64

40-1364

36-366

36-375

36-402

36-394

40-139#

36-355
36-375
36-375
36-409

36-357
36~405

36-359

36-378
36-420

HIOHTDODD

CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0301

I MIMIMIBIAINRIARIAIAIAIAIAIA LA T

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE $-15

OOV O0 VO VO VOOVOVOOOO
o OO0V

TR TTETT Tha LRl

®r

OMONIWNON O NSO —ON OO L3

NOONNOOOOO—NINER O

O O O 0 OO OO OO0 OOO (=]

g+ O MR RBRRBRO xR

bWA
(FV% Tv%eve&]vYo)

WNNOONOONONOv

NN NN
XwyW [VNEXLXEx
FeTVIV ITVI TR VY]

Sws

TR X X R S e Lalalalla
NQO(A RNFIFISXIY
W) ) A ) W )
b ) G G IXsIxyE

EwyW WnXW

~ SN R —NOOONNIN

=3
|
el

MR w

L3 M

v x

w
]
[

CZRNBAO RMBO DSKLS PT1 MACRO V04,00 14-JAN-82 16:33:00 PAGE S-17

SEQ 0303

36-341

L0-494

36-129

36-131

40-8#

36-276

36-422

40-1614

36-305

36-304

40-514
36-127
40-52#

[

40-1634

40-1674

(I [

40-1654

36-6417

36-420

40-168#

36-355

36-371

36-387

40-554

36-398

36400

36-415

40-58#

EMS64

EMS65
EMS66
EMS67
EMS?
EMS70

EMT1

EMTI0
EMT100
EMT101
EMT102
EMT103
EMT104
EMT105
EMT106
EMT107

EMT125
EMT126
EMT127
EMT13
EMT130
EMTI31
EMT132
EMT133
EMT134
EMT135

36-353

EMSS6
EMSS7
EMS6
EMS60
EMS600
EMS601
EMS602
EMS603
EMS604
EMS605
EMS600
EMS607
EMS61
EMS62
EMS63

—" g— g—

CROSS REFERENCE TABLE (CREF v04.00 )

— g~

36-207#

36-364
36-2964
36-298#
36-3004
36-302#4
36-305#4
36-3074
36-3094

__& __ 4 _a_a_a_.a_-a_
4

8-52
8-409
8-412
8-415
8-418
8-421
8-424
8-427

_ A

EMT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT215
EMT216

_ A

36-2094
36-211#
36-254
36-213#
36-215#
36-2174
36~2194
36-2214
36~223#
36-2254
36-2274
36-274
36-2294
36-2314
36-233#
36-2354
36-2374
36~2394
36-2414
36-2434
36=29%
36-2454
36-2484
36-2504
36-2504

8-283
8-286
B-37
8-289
8-292
8-295
8-298
8-301
8-304
8-307
8-310
840
8-313
8-316
8-319
8-322
8-325
8-328
8-331
8-334
8-43.
8-337
8-340
8-343
B8-346

SEQ 0304

_ &

EMT136
EMT137
EMTIG
EMTI40
EMTI4]
EMT142
EMT143
EMT144
EMT14S
EMTI46
EMT147
EMT1S
EMTI50
EMTI51
EMT152
cMT153
EMT154
EMTI5S
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163

CROSS REFERENCE TABLE (CREF v04.00 )

CZRNBAO RM8O DSKLS PT1 MACRO V04,00 14=JAN-82 16:33:00 PAGE $-18

36-348#
36-350#
36-353#4
36-3554
36-3574
36-359#4
36-362#4
36-474
36-3644
36-3664
36-369#4
36-3714
36-3734
36-375#4
36-3784
36-380#4
36-494
36-382#4
36-3854
36-387#4
36-389#
36-3914
36-3944
36-3964
36-398#
36-524
36-4004
36-4024
36-4054
36-407#4
36-4094
36-4114
36-413#4
36-415#4
36-6#

-r

36-311#
36-394
36-3
36-3
36-3
36-3
36-3
36-3234
36-3254
36-3274
36-414
36-329#4
36-3314
36-3334
36-335#4
36-337#4
36-339#4
36-3414
8-482
36-44n

8-430
8-55
8-435
8-436
8-439
B8-442
8-445
B8-448
8-451
B-454
8-58
8-457
8-460
B-464
B-467
8-470
8-473
B-476
8-479
8-61
36-346#
8-485
8-488
B-492
8-495
8 498
8-501
8-504
b-64
8-508
8-511
8-515
8-518
8-521
8-524
8-527
8-530
8-67
8-533
8-537
8-540
8-543
B8-546
B8-549
8-552
8-555
8-70
8-558
8-561
8-564
8-567
8-570
8-573
8-576
8-580
8-9

ol e

EMT217
EMT2?
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT244
EMT24S
EMT246
EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270
EMT271
EMT272
EMT273
EMT274
EMT275
EMT276
EMT277
EMT3

SEQ 0305

L2 of o 2 o W w

CROSS REFERENCE TABLE (CREF v04.00 )

~r~

CZRNBAO RMBO DSKLS PT1 MACRO V04,00 14-JAN-82 16:33:00 PAGE S-19

36-344A

SEQ@ 0306

ERRNMB

36-544
36-4174
36-4204
36-4224
36-56#
36-58#
36-604
36-624
36-644
36-66#
36-68#
36-84
36-70#
36-734
36-75#
36-774
36-79#
36-81#
36-83#
36-85#

8-121
8124
8-127
8-130
8-133
8-136
8-139
8-142
8-18
8-145
8-148
8-151
B8-15%
8-157
8-160
8-163
B-166
8-22
8-169
8-172
8-175
8-178
8-181
8-184
8-187
8-190
4-700#
35-144#
32-3#
4-7680

36-88#
36-914
36-94#
36-96#
36-98#
36-1014
36-104#
36-106#
36-13#
36-108#
36-110#
36-113#
36-1164
36-118#
36-1204
36-122#
36-1244
36-15#
36-12.#
36-129#
36-131#
36-133#
36-135#
36-136#
36-138#
36-1404
9-23%¢

9-23s

26-40%

13-E40
26-41%

13-E44
26-44

4-700#

_9-

8-15

ERR R 100
ERRVEC

13-<B0.

oo sd

8-73
8-583
8-586
8-589
8-76
8-79
8-82
8-85
8-88
8-91
8-94
8-12
8-97
8-100
8-103
8-106
8-109
8-112
8-115
8-118

EMT30
EMT300
EMT301
EMT302
EMT
EMT3?
EMT33
EMT34
EMT3S
EMT36
EMT37
EMT4
EMT40
EMT4
EMT4L2
EMT43
EMT4S
EMT4S
EMT46
EMT47
EMTS
EMTS0
EMTS1
EMTS2
EMT53
EMTS,
EMTSS"
EMT56
EMT57
EMT6
EMTE0
EMT61
EMT62
EMT63
EMT6,
EMT6S
EMT6h
EMT67
EMT7
EMT70
EMT71
EMT72
EMT?S
EMT74
EMT75
EMT76
EMT77
EMTVEC
ENRGDT
EQUALS
ERR

ol ald & 4

CROSS REFERENCE TABLE (CREF V064.00 )

36-104

13-<B1

CZRNBAO RMB0 DSKLS PT1 MACRO V04,00 14-JAN-82 16:33:00 PAGE $-20

9-23%

13-<B2+

13-ESO
2649

9-23x

13-<B3+

13-E66
26-56

9=25%

13-203¢

13-E91
26-1524

13-E92

13-M07

9-262

13-<37

13-<38

13-204

13-=11¢

13-z12¢

13-<39%
15-6

13-<40%
15-7

13-<46t
15-8+

13-<47*
15-9%

13-<51v
15-25«

13-<52+
15-45s

)

CROSS REFERENCE TABLE (CREF v04.00 )

M oy MMMMMMMN

M [\

UL P8 0 0 0 0 [ ) UL [ [] []

Wi W WA e e ek e OO 9

R A IR I I
L = o b < I eT e T ee e eee e e L )

Rn3k

SEQ 0307

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 5-21

[7¢)
]

Wad I

- AOM ANNO

]
[V

$Y4

MM 3

- -—-

M —eR VRANAMOR &«XPONNNO wrn ONMOOR—O

SEQ@ 0309

CZRNBAO RMBO DSKLS PT1 MACRO V(4,00 14-JAN-82 16:33:00 PAGE S$-23
CROSS REFERENCE TABLE (CREF V04.00 )

13=->13
4-824¥
MsSC

MSDRVS

MSE
MSEN

MSER

4&-8294

4-8324
10-72
4=906#

13-a21
13-a20
32-18#

13-a21

13->32

13->36

13-a22
13-a26

13-a27

13-b29

13-b34

13-b35

13-b45

13-~78

13-a85

13-a89

13-a90

13-i32

13-i136

Dr0—=NO2N—MAIA ~RVDQBUrLNI-=XO—NLmTILMED

OFD
OFFSET
oM
ONES
OPE
OPl

(~8704
4=7224
4=7774

13-779
13-H64
13-097

13-781
13-482
13-P14

13-903

13-P56
13-X49
15-P78

13-m37
17-19

17-21

13-235

13-006
13-115
33-69
33-83

13-3J01
13-;17
33-/0
33-84

PACACK
PAKACK
PAR
PAT
PCLOCK
PCOUNT
PDA
PFECH

PFECH]

PFECHZ
PFECH3
PFECH4
PGE

13-]80

13-]03
33-57
33-7
33-85

13-.93

13-.95

33-73
33-87

33-74
33-88

33-%0

33-81

13-h90

13-i77

13-j40

33-59

33-75

13-'71

33-62

13-k26

33-76

13-:56

26-1644
26=-1654
26-168#
26-1714
26-1734
13-192

13-ué2

13-u71

13-v00

13-390

13-A00

13-A02

13-A17

13-A21

15-63
13-<40

13-<83

15-9

15-16

15-30

15-61

9-23+

30-1+

30-1»

301+

30=-1+

30-1«

30-1+

9-23+

13-R25

13-y11

13-d47

13-d87

13-e79

13-f39

13-gN

10-90

27-1

29-14

15=57#
15-88#
11-49

29-14
READY

READY1

14-20

13-hé6

o~~~

SEQ 0310

CROSS REFERENCE TABLE (CREF v04.00 )

R salAIALNNILNATD

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE $-24

SEQ 0311

CZRNBAOQ RMBO DSKLS PT1 MACRO VO04.00 14=JAN-82 16:33:00 PAGE $-25
CROSS REFERENCE TABLE (CREF v04.00 )

‘=

NOVIRON O o

TOV2r-NCG D N 0N

7=04
7-04
4~9934
7=04
7-04

RMDB
RMDBI

4=991#
7=04

RHMDBO
RMDC

13=:13¢

13-:14x

13-:37

13-:43

13-:52

13-:55¢

=OeO=N\0Or\—N O8N MMDMNYE NOMaun NMONWNO oT0LAalalaN}lalal, NOMN~IAN.

13-60

OO MO «— 0N

RMCS21
RMCS20
RMCS3
RMCS31
RMCS30

- QDD N~

Ta=WVWy0—NO—

[
]

SEQ 0312

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE S-26
CROSS REFERENCE TABLE (CREF Vv 04 .00)

7-04
7-04
4=N7#
7=-0#
7-04
4-9184

9-95

13-451+

13-414*

13-<53

13-526

13-532

13-786

13-v29

26-26

13-562

13-573

13-589

13-:38+

13=:74+

13-:77

13-:15¢

13=:17¢

13-:38

13=-:50

13=:57¢

13=:65¢

13=:71¢

13-:74

13-:86

42-6

13-144+

13-149

13-373¢

13-=35

13-=40

13-=48+

13-249¢

13-=50

13-=59+

13-=60*

13-412¢

13-=61

13-274s

13~=75¢

SEQ 0313

CZRNBAO RMB0 DSKLS PT1 MACRO V04,00 14-JAN-82 16:33:00 PAGE $-27
CROSS REFERENCE TABLE (CREF v04.00 )

RMMR21
RMMR20
RMOF

RMOF
I

RMR
RMSN
RMSNI

13-127+
4=-7944
4-920#

13-680
13-391«

[

i 10 80 0P G P T Y T §
]

IR [T TR

o G P P G P Y P e - O G P P P P P P P e e e e P e — L ol ol

0O COWX E QA
RMMR11
RMMR10
RMMR?2

13=2755+
13-A48
13=-C26*
13-€36*
13=-123¢
13-kK81¢
13=-M20
13=N89*
13-p38¢
13-R55+«
13=-735¢
13-X18¢
13=-218¢
13-L18¢
13-L97+
13-134+
13=248+
84+

13-a71¢«
13-b46t
13-c88+
13-d82+
13-e42
13-161+

g36e

13-109¢
13=i74»
13-&66'
13-k21+
13-k84+
13-m67+

13-v06
13-m02

SEQ 0314

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE $-28
CROSS REFERENCE TABLE (CREF v04.00 )

SAVREG
SC

SCO
sC1
sC2

SC3
SC4

SCOPE

SCTMSK
SEARCH
SEEK
SETOM
SETW

SHUT

SIZCLk

SKl

SNGPRT

M]>

-— [] >

- >

13-544

13-_74

13-°15

13-°59

13-443

13-_04

|}[ oO

13-X50

13-G43

13-179

13-K06

13-R0%

13-J66
13-P95
13-099
13-X13
13-493
13-h36

11-28
4 -8944
4 -861#

13-H58
13-pP72
13-N42
13-v15
13-432
13-?01
2715-5#
13-152
=527

13-969

13-971

13-329

13-a41

13-a43

13-357

13-a61

4-8694

13-849

13-839

13-862

13-890

13-892

13-(98

13-000

13-D62

13-D64

13-€21

11-42

27=5

13-043

13-Y74

13-v84

13-d23

13-d29

13-148

13-15¢4

13-g20

4=7634

26-13
49354

4-8124
4-8114
4-810#
4-8094
4-808#
4-700#
13-877
13-a79
13-L08
13-R81
13-w60

4-814H

4=7294
13-¢c77
4-7184
13-P31
13-N04
13-uU83
27-1

4=9004

s) L2

13-P39

MM
13-486

,WZMZ

13-H67

To|

TM Mm
W Mm

13-152+

Ld-— MNTM

8%8

4-7234

SADMSK

13-586¢

M Mm

7=-04

13-52

MTmM(][oO

13-b15

13-b87

13-U25
13-112
13-d77

13-U54
13-153
13-e69

13-€23

13-118

13-120

13-926

13-h55

13~-h61

MMmN MMmm
TMN MmM
3 Lali
Ns N[T
TM" Mm
M Mm

7-0#

4-988%4
7=-0#

[
o0\

RMSNO
RMw(
RMWCI
RMWJCO
RQA

[]} oO

29-14

13-1
13-986
13-A39
13-M40
13-532
13~-x09

13-R98

13-°94

13-a55

27-34

SEQ 0315 I

CZRNBAQ RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE $-29
CROSS REFERENCE TABLE (CREF v04.00 )
13-h99
4=7004
4~700
4-700
4~-700
4~700
4-700
4~700
4-700
4-700
4~709
4-700

13-i05

13-186

13-i92

9-23
24=1*
9-28

9-23+
25-1
27-1

13-C55

13-978

13-j49

13-j55

13-k35

13-ké1

13-168

24=1
25-1

241
26~14

13-174

15=14¢

15-28+

4-700#
4=7004
4-7004
4=7004
4=7004
4-7004
4-7004
4-7004
4-7004
4~700#

26-14

27-

and

13-h01
13-n51

13-_49
13=-n07
13-n52

13-\25

13-_09

13- 48

13-n50

13-

OO~

264-1
30-1

24~

—h
b LY

u\‘lw

b
o
b

9-23¢
25-1
27-1

13-h00

26=1+
30-1+

15-71¢

13-F63

TST102

13-F86

13-613

13-621

13-G29

13-637

13-G45

13-G53

13-¢07

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE $-30

TST53
1ST5
TST55
TST56

13-M4ON
13-NOO#
13-N36#
13-NB4#

TST103 13-v86#
TST104 13-w06#
TST105 13-W3
TST106 13-Wwo0#
TST107 13-X09#
13-5494
TSTI1
TST110 13-X54#
TSTI11
13-Y24#
TST112
13-2014
TST113 13-\66#
TST114
13-_58#
TSTI1S 13-C6SH
TST116 13-d33#
TST117 13-h324
13-6024
TST12
TST120 13-108#
13-6704
1STI3
TST16
13-774#
13-7874
TST1S
TST16
13-8774
TST17
13-9864
TST2
13-734
13-:09#
TST20
13-:62¢
TST21
TST22
13-:90#
1ST23 13-; 104
TSTo4
13-:544
TST25
13-<16#
TST26
13-=154
13-=320
1ST27
TST3
13-106#
TST30
13-=90#
13->554
TST31
1ST32
13-216#
13-3184
TST33
13-a794
TST3%
TST35
13-A39#
13-B20#
TST36
13-CO3#
TST37
13-1374
1STG
13-D10#
TST40
13-D6O#
TST41
13-E28M
1ST42
13-FOBH
TST43
13-F434
TST4h
TST4S
13-G64N
13-1144
TST46
13-1894
1ST47
131594
1STS
13-K284#
TST50
13-K744
TST51
13-L0BA
TST52

)
4
|}

CROSS REFERENCE TABLE (CREF v04.00 )
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24~
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24~
24-1
24-1
24-1
24~1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24~
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1
24-1

24-1
24-1
24-1
24=1

SEQ 0316

SEQ 0317

CZRNBAQ RM80 DSKLS PT1 MACRO 824.00 14=JAN-82 16:33:00 PAGE S-31
CROSS REFERENCE TABLE (CREF V

.00 )

MONC YOI~

*»

OC0M\m~M NA—o4MO

DN WVNIX@BN
W

g OMMe-r—-3

9-56

WATCH
wC
wCd
WCE
WCEHI
WCELO

4~9074
4=-7764
7-04
13-h53

13->23
13-K93+

2-733#
-9514

13-G15
33-77

4-8464

4=9764
4=9774

9-82

13-L58
33-78

11-16

13-049

11-63

13-R22

26-22

26-39

2644

26-46

29-14

13-239

13-244

13-269

13-272

13-277

13-L86

SEG 0318

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE S-32

XS1Z

XXDP
Y

ZEROS

32-294
35-38#

13-717
13-v59

13-v05

33-82
13=>97
13-292

13-295

13-379

13-:75

13-302

13-305

13-401

13-952

3-99
3-830

13-224
13-849

13-224
13-867

13-239
13-015

13-510

9-3 14

9-44

9-55

9-115

e
b e

3->7

3-22
3-08
3-22

~Nwwioo

13-Y07

13-588

— e

e
b e
—d ad

XNUOF

?ouuuuuuuwuu‘uw

XNUER?2

W=0000M =0~V X200 DDO
O =)= OO = O NOO— - 200
2ON
WNIN
O = O OWWNOD

WLE
WRL
XNUDC

4-798

D e

4=7914
4-7340
4=7374
4=7384

D e

WCF
WCH
WD

(CREF Vv04.00 )

ed e

CROSS REFERENCE TABLE

SEQ 0319

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-B2 16:33:00 PAGE M-1
CROSS REFERENCE TABLE (CREF v04.00 )

$SCMRE
SSCMTM
$SESCA
SSNEWT

$SSET
$SSETM
$$SKIP
SACTI

OONe—O
9-23
4-700#
4~6924
4-6924
4-6924
4-692¢
4-688¢
4-689%
4-689%
4-689%

5-5
6-0
5-13
31-1
5 =1
5 =15
14 =20
25 -1

4-6898

28 1
27 1
1924~ 1

4-691#
4-69504
4-6904
4-6904
4-6914

4-6914
4~6914

Z:J!:Jtijo,

CLKOFF

29-1

20-1
21-1
23-1

4-688#

4-697#
13-7
13-469
13-:73
13-829
13-k36
13-w42

CLKON
CLKSNC
COMMEN
ENBSCH
ENDCOM
ERR

13-h99
4-603#
4=6724
4-700#4
4«-638#
4=-700#

29-1

4-6904
4-6904
4-6894

4=4974
13=-447
13-:21
13-A47

29-1

30 -1

13-K96

13-105
13-K93

2<315101=3t¢ ogaLalala

[o1fl.]- O 0GO =er—e0J

Lal"alnge,]

CLEAR

13-W39

6-0#

=DQEe=i

-SREAD
. $SAVE
.$5COP
.$SIZE
-STRAP
.$TYPB
.STYPD
.STYPE
.STYPO

6-0

VONWe—M 0%20w75

29-14

SEQ 0320

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:32:00 PAGE M-2
CROSS REFERENCE TABLE (CREF v04.00 )

TCAeUMINMVLIP

[w3~oaown -— ¢[l - (5~9N, -—eLLala.]a [oLa48VI - []

(~.2} LoaNlgO)

eOb—

M Lal.al

-—

R RN

4
w o o o[«

UaMlaNOLoMl LMal.al O~

X4 O~

M Lala]
-o2

R[] Mo3

e WIQ X
N— O -

MWON~

SEQ 0321

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14~-JAN-82 16:33:00 PAGE M-3
CROSS REFERENCE TABLE (CREF v04.00 )
13-

13-g15

13-h50

13-\24

13- 08

13-c06

13-105

13-797

13-818

13-846

13-864

13-B08#
13-L08
13-R81
13-Wé0

[

-— wy o

13-:62
13-820
13-M40
13-532
13-X09

M O ®8
13-:90
13-C00#
13-N0O0O
13-569
13-X54

-—

[

13-,10
13-C03
13-N36
13-T25
13-Y24

13-N84
13-782
13-201

-—

[
]

wy -— &
13- ;564
13-p10
[

-—
[7a) ~5
13-<16
[}

[

]

L.a}

-—

- La) ~

[

-—

-— o Vel

[,a]
L)
N
oN

)

L.a]

[[+
Y] oNao

L.a}

—

[ ad
UL00 O~

aL AaULun IxX
NG

13-181

MO~
¥ a0

Lo-l— [J"a-—Yl)e

(LDOoVLL
e = e E=
£g00OUN
LCrOMe—R
XQWOO~Y
AA— ANL
3] 3
AT RSO RIS W
AARR

[Y]IVPTEIVES,IvE

EZIVD

[La]

13-831

M 3ale["al

GETOF

13-143

-—

[]

0 o [aY]

SEQ 0322 ]

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE M-4
CROSS REFERENCE TABLE (CREF v04.00 )
13-504

PUTER2

3-163
PUTLA

a=2 [ g

4-3854

13-137

13-412

13-777
13-D30
13-F89

PUTSN

PUTWC

PUTX
REPORT

4=4094

4=-3224
4=306#4
4=7004

13-391

13-586

13-795
13-D88

SEQ 0323

CZRNBAO RM8O DSKLS PT1 MACRO V04,00 14-JAN-82 16:33:00 PAGE M-5
CROSS REFERENCE TABLE (CREF v04.00 )

SCTCMP
SETLFS
SETOM
SETPRI

SETTRA
SETUP
SETW

SKIP
SLASH

4=124
4=6504
4=6614
4-627#

4=700#
29-1
4=700#
4-616#4
13-U54
13-153
13-e69
4-700#4

7-0

7 0

13-p31
11-49
29-1
9-23
13-N04
13-u83
13-187
13-129

13-P72
15-63
29-1

TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

13->55
13-D10
13-189
13-N36
13-P85
13-125
13-v48
13-v24
13-f15
13-m32
28-1
9-23
29-14
4-7004
4=700#4
4-6884
4-700#
4-700#
4=7004
4=700#

13 -i169
27=1
29-1

13-j33

13-147

29-1

29-1#

13-N42
13-v15
1 3 232
13-g01

STARS

SWRSU
TAGS

13-P95
15-89
29-1

14-20
4=700#

14-20
9-28

9-82
10-33
9-6

11-16

27-1
9-42

MQ—eOT~=N —CoINAIWNOOM

RGBFMC

11-63

26~22

26-39

26-44

26-46

9-53

9-59

11-30

1420

14-20

%203[40491‘36