Digital PDFs

AH-T107A-MC

2000

Number of pages unknown

Original

171MB

view download

OCR Version

231MB

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

OCR Text

el orc, @ity EIENNE]

_Mfi

DSKLS»TEST P11

AHTI0ZR-ME

e iue

EDBB

-REM

SEQ 0001

AN = o d ==« b b b b b D

NOWVE W= O VO NO VNN -

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

- OOV

IDENTIFICATION

PRODUCT CODE:

AC=-T106A-MC

PRODUCT NAME:

CZRNBAO

PRODUCT DATE:

APRIL 1, 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITT

RMB0 DISKLESS TEST, PT 1

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

NOT
SHOULD
CORPORATION.

BE _ CONSTRUED AS A COMMITMENT BY
DIGITAL EQUIPMENT CORPORATION ASSUMES

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

DIGITAL EQUIPMENT
NO RESPONSIBILITY

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

DIGITAL EQUIPMENT
gf%}fi{fl" OF ITS

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

585
8 B

SEQ 0002
CONTENTS

INTRODUCTION
1.
2.

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.
2.
3.

HARDWARE REQUIREMENTS
MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1

4.
5.

LOADING
SWITCH OPTIONS
STARTING
HALTING
RESTARTING

NOMWNESS
N =

OPERATOR INTERFACE

NN W N NN
N AN N NI NI NI NI NI NN N = b b b b
o =B b
WN—'OO&N&M%WN—'OSOVOM&WB‘-'OOO‘#OV!&WN"OOONOM&WN—.

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

PROGRAM 1D
CONSOLE DIALOGUE
PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS

ERROR REPORTS
EXEXCUTION TIME

ENVIRONMENTAL SUPPORT
1.

5
]
7.
6.

PROCESSOR COMPATIBILITY

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

XXDP COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

SEQ 0003

MNINIPININININININD
= b b e b o d b b

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

INTRODUCTION

1.1

ABSTRACT

THE RM80 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 RM80 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 OR aW11=-P CLOCK
PROGRAM LOADING DEVICE

WWWWW
SO

TERMINAL

RH70 CONTROLLER
1 TO 8 RMB0 DISK DRIVES

2.2

MEDIA REQUIREMENTS

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS
NONE

3.0

OPERATING PROCEDURE

CONFIGURATION,

AND

EXECUTE

THE

ASSUMED

RMB0 DISKLESS

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

3.1

E 1

SEQ 0004

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

6%
24

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

65
66

3.2

THE FOLLOUING SWITCH OPTIONS ARE

SWITCH IS ON

;?
72

76
75
76
77
78

SW15

HALT ON ERROR

SW13
SW12
SW11
SU10
SW09

INHIBIT ERROR TYPEOUTS
UNUSED
INHIBIT TEST ITERATIONS
BELL O ERROR
LOOP ON ERROR

SW1é

SWo8

INVOKED

WHEN

THE

APPROPRIATE

LOOP ON TEST (CURRENTLY BEING EXECUTED)

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.

SWITCH OPTIONS

SPECIFY

3.3

88
89
90
91

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 CHANGED. IF RUNNING IN A STAND-ALONE
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR

9%
95

STARTING

TO CONTROL TEST CONDITIONS.

3.4

HALTING

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

RESTARTING

—

b bk
=

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

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST

TIME

SEQ 0005

IS STARTED AFTER BEING LOADED.

NN
OSSN
=

) e D e i D e

—

D D )e

BOONOW

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

) D D cd e e

7
8

£}

—h d b e el

4.2

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

THE FIRST QUESTION TYPED OUT IS: ‘‘TYPE HELP TEXT (L) N 2%,
THE OPERATOR RESPONDS WITH A “°v'', 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

NN = OV NOVNSWNN=O0

wviviwvawnvwuananeS
S S

JITSARRRAR2E VOOV

D d e o wd od e wmd D o - D d cd d =D d d D b b D D b D

ONLY ASKED ON THE INITIAL PROGRAM STARF AND NOT ON

SUBSEQUENT START=UP'S.

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

THE OPERATOR MAY CHANGE THE RHM/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 TO 177200
sCHANGE VECTOR ADDRESS TO 260
RMVEC=000254 260<CR>
ON THE INITIAL START, THE NEXT QUESTION TYPED IS, °*TYPE "A' TO

14
}2

b e

QUESTION

37
}%8

ENTERS A

CONSOLE DIALOGUE

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 !J.UBER(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:
RM80
ONLINE
0
1
LOAD DEVICE

§
4

5
9

1. ¢

OFFLINE

RM80

NOT PRESENT
NOT PRESENT

NOT AN RM80
NOT PRESENT
NOT PRESENT'

;HE 9BOVE UNIT STATUS SHOWS THAT DRIVE O & 2 WILL BE TESTED, WHILE DRIVES
WILL NOT BE TESTED.

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

NYO NS WNI=O

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON T!E
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 COMPLE T ELY TESTED, THE END OF PASS
MESSAGE WILL BE TYPED (SEE SECTION 4 3) AND THE PROGRAM WILL START
TESTING ALL THE DRIVES AGAIN. THIS W i LL CONTINUE UNTIL THE PROGRAM
IS HALTED BY THE OPERATOR.

THE LETTER LOCATED WITHIN THE BRACKETS () NDICATES THE TYPE
AND

NOTE:
4.3

BngggngSE

REQUIRED

BY THE USER,

D=DECIMAL,

0=0CTAL

PROGRESS REPORTS

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

THE FOLLOWING MESSAGE WILL ALSO

THE LAST END OF PASS REPORT.

OCCUR IF THERE WERE ERRORS SINCE
o'

*TOTAL ERRORS SINCE LAST REPORT

=2 OV

NN = e e

b e o

e cd

NSIASLS ST NT NI N1 NN NN TN ]NN - e o

D D cd cd e

D e e

D D d =D D i D ) D D ) D d -

R RRIRARSS 88 RN RG2S ERIRNRER IS IS I

17
17
174

SEQ 0006

222

4.4

PERFORMANCE REPORT

NO PERFORMANCE REPORTS ARE GIVEN

PROGRAM.

4.5

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

S LS LSNT,N]
SE
VIS
N =

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 3-4
ERROR
DIAGNOSTIC PROVIDES COMPREHENSIVE
THE RM80 DISKLESS
MINIMIZE
(2)
AND
RESOLUTION
FAULT
IN
AID
REPORTS INTENDED TO (1)
REFERENCES TO PROGRAM LISTINGS.

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE
THE ERROR
UNIT (DRIVE) BEING TESTED, DRIVE TYPE, THE TEST NUMBER,
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
agguf?gA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST
THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS FROGRAM:

DRVA# 0 - RM80,

TEST# 25, ERRN 66, PC=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

4.7

RECEVD
STATUS

000000

TEST
REGSTR

176750

EXECUTION TIME

PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS.
SUBSEQUENT PASSES TAKE 60 SECONDS.
5.0

CTNVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

PASS 2 AND

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

5.2

DUAL PORT CONFIGURATIONS

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

5.3

MEMORY PARITY HARDWARE

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

SEQ 0008

MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE

THE RM80 DISKLESS DIAGNGOSTIC.

EXECUTION

289

5.4

MANAGEMENT

DISKLESS DIAGNOSTIC.

5.5

HARDWARE

WILL

NOT

USED DURING THE RM80

ACT11, APT11 COMPATIBILITY

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

5.6

XXDP COMPATIBILITY

THE

RM80

DISKLESS

IN DUMP AND CHAIN MODES.

5.7

DIAGNOSTIC

PROGRAM IS COMPATIBLE WITH

XXDP

OPERATING SYSTEM COMPATIBILITY

E’T'HE PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH

ANY

OPERATING

b e

MEMORY MANAGEMENT HARDWARE

MEMORY

o o

e e

WWWWWWW

OVRONOVISWN=O

b cd ch

SRR
A R R

2
293

6.0

TEST DESCRIPTION

THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST
GEgERALLY USES
MORE COMPLEX SUBSET OF HARDUARE 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
CS
DS

EXECUTED

USING

SEQ@ 0009

SESRRELsE
5-‘ Voo~

N
NN N

vt vvivivivivivy
'S
SR
—- OVO~NOWVSW

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

MASSBUS MODULE

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

TEST 1

TRANSFER TEST

PURPOSE :

TO VERIFY THAT THE RMB0 CAN COMPLETE A REGISTER TRANSFER
ON THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT ‘“‘TRANSFER' IS
NOT STUCK IN AN INACTIVE STATE.
PROCEDURE :

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

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

NEXT DEVICE TO BE TESTED.

IF THE TEST FAILS

WHICH

SELECTS

THE

PROBABLE FAULT:

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

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

CS MODULE

TEST 2

CTOD TEST

PURPOSE :

VERIFY

THAT

DATA

CAN

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.

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

SEQ 0010

PROBABLE FAULT:

IF 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 IS 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 g‘ll’
AFTER WHICH 1°'S ARE WRITTEN IN ERROR REGISTERS 1 AND
MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST
IS OK, ELSE, 'MBA CLR L'* IS PROBABLY STUCK ACTIVE.
PROBABLE FAULT:

(CS MODULE

IF MODULE

ASYNCHRONOUS MASSBUS MODULE

SEQ 0011

CZRNBAD RMB0 C5KLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 3-8

TEST 5

TRISTATE TRANSFER TEST

PURPOSE:

TO VERIFY THAT THE PATH TO AND FROM THE_ MASSBUS ADAPTER
TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH
BIT POSITION IS INDEPENDENT.
PROCEDURE:

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

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

FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT 0
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE
READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL
BIT POSITIONS.

PROBABLE FAULT:

ASYNCHRONOUS MASSBUS MODULE

IF MODULE

CS MODULE

DS MODULE

PURPOSE:

TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A

POSITION.

STUCK

PROCEDURE:

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

N-cog‘dg\nfluru-ooawo«mbuvv-aooawma

Vi iaiviviviiviaviviivivivivaviwg
WNWNW WNWWNNI NN NN NI NI NN = = b b b b

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

SEQ 0012
K _AND IF THE SELECT LINE IS
THE PROCES
CONTAIN ONES.
FAULT, EXCEPT IN THIS CASE,

T
R1

AND

ARE

TESTED IN THIS

m.icm.v TESTED IN THE "‘ILR TEST'.

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

gzz

PROBABLE FAULT:

545

CORRESPONDS TO A SINGLE PORT OR DUAL PORT RM80 DRIVE.

546
547
548
549
550

PURPOSE :

ggz
ggg

TEST 10 DEVICE AVAILABLE TEST

gg}

ggg

IF MODULE

TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET.

PROCEDURE :

THE PROGRAM TESTS ‘DVA", BIT 11 OF RMCS1.

ggg
gg}

PROBABLE FAULT:

563

564
565
566

368
569

570

IF MODULE

TEST 11 HOLDING REGISTER TRANSFER TEST

THE

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

SEQ 0013

PURPOSE :

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

ONE,

PROCEDURE :

THE PROGRAM

TRANSFERS

ONES,

THEN

ZEROS

THE

HOLDING

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 :

CBIUC NN

WS WA =

-O

.._..._.9‘.'.".‘.".9.?.‘_".§§S§ §

TO VERIFY_THAT BITS 01 THROUGH 05 OF CONTROL STATUS REGISTER
1 ARE NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT BIT
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.

NEXT, THE TEST CLEARS THE CONTROL STATUS REGISTER, RMCS1,
WRITES ONES IN BITS 01 THROUGH 05 AND VERIFIES THAT THE BITS ARE
NOT STUCK AT ZERO. THE GO BIT IS NOT TESTED.
THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN
FROM RMCS1 AND CHECKS FOR ADJACENT BIT INTERFERENCE.
PROBABLE FAULT:

IF MODULE

TEST 13 ERROR REGISTER #1 TRANSFER TEST

PURPOSE :

AND

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

SEQ 0014

RE1Cés NOT STUCK AT ONE OR ZERO,
TO VERIFY THAT ERROR REGIST
AND THAT THERE IS NOT BIT INTERF
:
PROCEDURE

RMER1,

THEN

THIS
ZEROS AND VERIFIES THAT THE REGISTER IS NOf STUCK AT ONE.
WRITES
"UNSAFE'' IS NOT TESTED DURING THIS TEST._ IN ORDER TO LIMIT TH
TEST WRITES ONES

PROBABLE

IN_

ERROR

FAULTS TO ONE OR TWO MODULES, THE TEST IS EXECUTED IN

PARTS WITH EACH PART TESTING THOSE BITS

WHOSE

PRESET

ARE DERIVED FROM THE SAME MOLULE.

THE TEST WRITES ZEROS

IN_ERROR

FUNCTIONS

RMER1,

THEN

WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ZERO.

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

AND CHECKS FOR ADJACENT BIT INTERFERENCE.
PROBABLE FAULT:

IF MODULE

CS MODULE

DS MODULE

TEST 14 CLEAR OFFSET STUCK ACTIVE TEST

PURPOSE:

TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET

STUCK IN ACTIVE STATE.

MODE

NOT

PROCEDURE
:

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

IF MODULE

DS MODULE

TEST 15 OFFSET REGISTER TRANSFER TEST

:
PURPOSE

SEQ@ 0015

CZRNBAO RMBO DSKLS PT1 MACRO VO04.00 14=JAN-82 16:33:00 PAGE 3-12
TO_VERIFY THAT THE OFFSET REGISTER IS _NOT STUCK AT ONE,
STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT INTERFERENCE.
PROCEDURE
:

THE OFFSET__REGISTER,

WRITTEN WITH
STUCK AT ONE.

RMOF,

WRITTEN

WITH

ONES,

THEN

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, THE OFFSET REGISTER IS TESTED WITH A

BIT PATTERN.

SHIFTING

ONE

PROBABLE FAULT:

IF MODULE

DS MODULE

TEST 16 ERROR REGISTER #2 TRANSFER TEST

PURPOSE:

TO VERIFY THAT ERROR REGISTER

2, RMER2,

NOT

STUCK

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

PROCEDURE:

THAT

THE TEST WRITES ONES THEN WRITES ZEROS IN"RHERZ AND |VERIF!ES
NONE OF THE BITS ARE STUCK AT ONE.
‘°SKI'* AND ‘DVC'' ARE NO

_TWO

TESTED.

IN ORDER TO LIMIT THE NUMBER OF PROBABLE FAULTS

_MODU

ONE

THE TEST IS EXECUTED IN 3 PARTS WITH EACH PART

;Eggl:gpargSE BIfS 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 THE
REGISTER AND VERIFIES THAT ALL BIT POSITIONS ARE INDEPENDENT.
PROBABLE FAULT:

IF MODULE

(S MODULE

DS MODULE

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

SEQ 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 AND

VERIFIES THAT THE NUMBER IS THE SAME EACH TIME.
PROBABLE FAULT:

CS MODULE

TEST 20 CONTROL BUS PARITY DETECTION TEST
:
PURPOSE

TEST

THE

RMB0'S

ASYNCHRONOUS CONTROL BUS.

PARITY CHECKING LOGIC FOR THE MASSBUS

PROCEDURE
:

THIS TEST WRITES A SHIFTING ONE 8IT DATA PATTERN IN THE DISK
TO CONTROL THE STATE OF THE PARITY
ADDRESS RFGISTER USING ‘PAT''
BIT 03 OF RMER1, IS CHECKED AFTER EACH
BIT.

OF
OTE THE FOLLOWING TABLE SHOWS AONESETBIT
PATTERN IS TRANSFERRED..N
SHIFTING
A
OF
BE USED INSTEAD
TEST PATTERNS THAT COULD

PATTERN.

DATA PATTERN

PAT

PAR

000000
07526
16375
116535

1
0
0
1

PROBABLE FAULT:

IF MODULE

ASSYNCHRONOUS MASSBUS MODULE

TEST 21 CONTROL BUS PARITY GENERATION TEST
PURPOSE:

OVONOWVSWN=O

00 00 0o 0o 0o 0o 0o 0o 0o 0o

ERRe saemesasnossssszazany

CZRNBAO RMB80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 3-14
THE RMBO'S PARITY GENERATING LOGIC FOR THE MASSBUS

TEST

SEQ 0017

ASYNCHRONOUS CONTROL BUS.
:
PROCEDURE

THE TEST TRANSFEKS A SHIFTING ONE BIT DATA

PATTERN

THE

DISK ADDRESS REGISTER. AFTER EACH PATTERN IS READ BACK, 'MASSBUS
CONTROL BUS PARITY ERROR'' IS TESTED AND SHOULD JE ZERO,..NOTE THE
FOLLOWING

TEST

SET

SHIFTING ONE BIT PATTERN.
DATA PATTERN

MCPE

000000
056747
13567
16313

0
0
0
0

PATTERNS

COULD

BE USED INSTEAD OF THE

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

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

RE:

THE TEST WRITES AND READS BOTH RMDC,

VIS WN=O0

THEN ONES.

WITH ONES.

PROBABLE FAULT:

DS MODULE

IF MODULE

AND RMDA.

WITH

ZEROS,

THE TEST PASSES IF EITHER REGISTER CAN BE WRITTEN

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

856

857
858
859

861

SEQ 0018

(S MODULE

TEST 23 DISK ADDRESS TRANSFER TEST

ggg

PURPOSE :

ggg

70 VERIFY THAT THE DISK ADDRESS REGISTER IS NOT STUCK AT ONE

866

OR ZERO, AND THAT THERE 1S NOT BIT INTERFERENCE.

ggg

393

PROCEDURE :

871
872
g;z

THIS TEST PRESETS THE DISK ADDRESS TO A NONZERO VALUE, THEN
USES A MOVE TO CLEAR TNE REGISTER.THE TEST THEN READS RMDA AND
VERIFIES THAT NONE OF THE BiTS ARE STUCK AT ONE.

875
876

THEN THE TEST PRECLEARS THE MASSBUS ADAPTER DISK ADDRESS
REGISTER (RMDA), LOADS IT TO ALL ONES, AND VERIFIES THAT NONE OF

879
880

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

ggz

PROBABLE FAULT:

885
886
887

1.
2.

g;g

THE BITS ARE STUCK AT ZERO.

1S INDEPENDENT.

gg;

888
889
890

802

DS MODULE
IF MODULE

TEST 24 DESIRED CYLINDER TRANSFER TEST

gg{

PURPOSE :

ggg
897

TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER,

RMDC

898
333
335 ,

IS NOT STUCK AT ONE OR ZERO, AND THAT THERE 1S NOT BIf
INTERFERENCE.
.
PROCEDURE :

903

34'5" WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK Af

THIS TEST WRITES ONES IN THE DESIRED CYLINDER REGISTER RMDC

906
907

908
3?3

911
912

THEN THE TEST WRITES ZEROS IN THE DESIRED CYLINDER REGISTER

RMDC. WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK Af
ZERO.

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

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

SEQ 0019

PROBABLE FAULT:
1.

DS MODULE

IF MODULE

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
“ILR'" IS SET.

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:
1.

(S MODULE

IF MODULE

TEST 27 DIAGNOSTIC MODE TEST

USING

MASSBUS

INITIALIZE,

SEQ 0020

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE 3-17
g;?

3;‘

3;2
977
978

PURPOSE :

TO VERIFY THAT "DIAGNOSTIC MODE'', BIT 0 OF RMMR1,

STUCK AT ONE OR ZERO.

IS NOT

PROCEDURE :

THE RM80 IS INITIALIZED AND 'DMD'* IS CHECKED FOR ZERO.
*DMD'* IS WRITTEN WITH ONE AND READ TO VERIFY THAT IT IS NOT STUCK

979

AT ZERO, THEN WRITTEN WITH ZERO AND READ TO VERIFY THAT IT IS NOT

ggg

PROBABLE FAULT:

98%
985
986

1.
2.

gg?

987
988
989
990
991

992

993

332

996
ggg

STUCK AT ONE.

CS MODULE
IF MODULE

TEST 30 MOL TEST

PURPOSE :

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

USI'6 MAINTENANCE UNIT READY.

PROCEDURE :

1001
1002
1003
1004

AFTER INITIALIZING THE SUBSYSTEM, THE TEST SETS ‘DIAGNOSTIC
MODE: AND READS THE DRIVE STATUS REGISTER, RMDS, EXPECTING MOL,
BIT 12 TO BE ZERO. °'MAINTENANCE UNIT READY”, BIT 9 OF RMMR1, IS
SET AND MOL SHOULD BE ONE. THE TEST THEN WRITES A ZERO IN MUR

1007
1008
1009

PROBABLE FAULT:

—

e e

i e

e e

i o

e e

o OOO0O0DO0O0O00O000000
N PORRINRNIN)
= D =
b cd b
=

OW‘*W%-‘OOONO\A&MM-‘O

AND READS RMDS, VERIFYING THAT ‘MEDIUM ON LINE'‘ IS ZERO.

CS MODULE

IF MODULE

TEST 31 WRITE LOCK TEST
PURPOSE:

TO VERIFY THAT 'WRITE L OCK'* STATUS,

WRL,

RESET USING “MAINTENANCE WRITE PROTECT . MWP,

CAN

SET

AND

PROCEDURE :

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MWwP,

BIT

SEQ 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,

ZAN

}8%3

MWP IS RESET AND WRL SHOULD BE ZERO.

}8%?

PROBABLE FAULT:

}8%

CS MODULE

1034

IF MODULE

1035
1036
1037
1038
1039

}84‘?

104%

104
1044
1045
1046

1047

1048
1049
1050
1051

TEST 32 DRIVE FAULT TEST
PURPOSE :

TO VERIFY THAT 'DEVICE CHECK'',

DVC, AND ‘UNSAFE'',

BE SET AND RESET USING 'MAINTENANCE DRIVE FAULT', MDF.
PROCEDURE:

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MDF,

}8;%

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

1054

PROBABLE FAULT:

1056

CS MODULE

1058

IF MODULE

1055

1057

1059
1050
1061
1062
1063

‘%%

1066

1067
1068

}893

BIT

RMMR1, AND READS RMER3 TO VERIFY THAT DVC, BIT 07 1S SET RMER1 IS
THEN MDF IS

RESET

TEST 33 SEEK ERROR TEST
PURPOSE:
(]

TO VERIFY THAT °'‘SEEK
" ERROR'', SKI, CAN BE SET AND RESET USING
MAINTENANCE SEEK ERROR'', MSER.

1071
107;
107
1074

PROCEDURE:

}8;2

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

1077

PROBABLE FAULT:

1079

CS MODULE

1081

IF MODULE

1078

1080

108%
108

SEQ 0022

TEST 34 PIP TEST
PURPOSE:
BE

CAN

SET

PROCEDURE :

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

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

e D

i e

D i

D e

D e e

SRS333323 233323

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

SHOULD BE ONE.

PROBABLE FAULT:

}

CS MODULE

104

IF MODULE

}

105
106

1107
1108
1109

H]'?

TEST 35 EBL TEST

}“%

PURPOSE :

1114
”}g

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

”}z

PROCEDURE :

1119
1120
1121
Hgg

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

‘”%lso

PROBABLE FAULT:

1126

1127
1128
1129

‘Hg%

CAN

SET

AND

(S MODULE

TEST 36 LAST SECTOR, LAST TRACK TEST

ngg

PURPOSE :

1136
”gg

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

1139
1140

PROCEDURE :

PLA

THE

MODULE

SEQ 0023

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

1141
11lo§

THE TEST WRITES ALL POSSIBLE PATTERNS IN_ THE DISK ADDRESS
REGISTER, RMDA, AND VERIFIES ‘LS AND “LST'" STATUS FOR EACH

1146

PROBABLE FAULT:

1148

DS MODULE

1150

(CS MODULE

114

}}2‘;

1147

1149

1151
115%
115
1154
1155

‘Hgg
‘Hgg

1160

PATTERN, THE PROCEDURE IS DONE ONCE FOR 18 BIT, FORMAT, ONCE FOR

16 BIT FORMAT AND ONCE FOR 16 BIT FORMAT WITH “'SSEI SET.

TEST 37 RMDA COUNT TEST
PURPOSE :

TO VERIFY THAT THE DISK ADDRESS REGISTER

(RMDA)

INCREMENTS

1161

PROPERLY.

PROCEDURE :

1165
1166
”2;

THE TEST INCREMENTS RMDA USING DIAGNOSTIC END OF BLOCK
AND VERIFIES THE RESULT IN 18 BIT FORMAT, 16 BIT FORMAT
DEBL''
AND 16 BIT FORMAT WITH ‘'SSEI'* SET.

1169

PROBABLE FAULT:

17N

1162

1170
1172
1173
1174
1175
1176

?I“'I;;

”;3

1181

DS MODULE

TEST 40 RMDC COUNT TEST

PURPOSE :

VERIFY

THAT

THE

”g%

INCREMENTS PROPERLY.

Hgg

PROCEDURE :

1186
1187

”gg

AND 16 BIT FORMAT WITH ''SSEI'"

ug?

PROBABLE FAULT:

1192

1193
1194
1195
1196
1197

DESIRED

CYLINDER

RMDC,

THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END OF BLOCK,
DEBL'', AND VERIFIES THE RESULT IN 18 BIT FORMAT, 16 BIT FORMAT

DS MODULE

SET.

SEQ 0024

NN
N

=
Q<R SR WA

= s

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

-l-.-l-.-l-.—.-.d—.-‘—.-.—h-l-l—l-.-l-.-l-l—.—l-—l-l-._.-l-‘d-‘-l-l—.-l-l-..-‘—l—l—l—l-l-.-‘—l

2
2
210
en

TEST 41 LBT TEST
:
PURPOSE

TO INSURE THAT

BIT FORMAT AND 16 BIT FORMAT WITH "'SSEI'* SET.

%}lg

DS MODULE

216

IF MODULE

wuwg
N=O

224
225
226
227
228
2
2

;

233
%3“5

ggg

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

%gg

PROBABLE FAULT:

240

241
242
243
244
245

%29
%28

5?‘1’
sgg
254

CLEARS WHEN

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

PROBABLE FAULT:

%%%

“LBT"',

PROCEDURE :

%}%

217
218
219

LAST BLOCK TRANSFERRED

RMDA IS WRITTEN, AND SETS WHEN THE LAST SECTOR IS FRANSFERRED.

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

FUNCTION

CODE

IF MODULE

(CS MODULE

oaoocnonzw
g 20"\)-‘0
(+ ] NRANON=S0 ANVS

e e i e
D e
D e e e e
D e
e
e b i e

D e e

PROBABLE FAULT:

-—

AND GO BIT TO RMCS1, VERIFYING THAT GO SETS.

FUNCTION CODES ARE TESTED.

D e

NNN
N NININININININININ
N
NN
NN NN
oo
Vi
NN N
TNNNO
Co
oo
W)
=
Voo~V
v
~

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

TEST 44 BRANCH MULTIPLEXOR TEST

PURPOSE:

TO VERIFY THAT THE OUTPUT OF THE

MULTIPLEXOR DOES NOT HAVE A FAULT.

COMMAND

SEQUENCER

BRANCH

VARIOUS

FUNCTION

PROCEDURE:

WITH DEBUG CLOCK ENABLED, THE

TEST

USES

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:
1.

CS MODULE

TEST 45 SET/RESET GO TEST
:
PURPOSE

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

23888888888

SeoooooocaooR

1298

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 RMMR1 AND
VERIFIES THAT ''G0'° RESETS AND 'DRY'' SETS. USING A FUNCTION CODE
THAT RESETS GO AT A DIFFERENT PROM ADDRESS. THE TEST FAILS IF GO
DOES NOT SET OR CANNOT BE RESET BY THE COMMAND SEQUENCER. THE
TEST ALSO FAILS IF “DRIVE READY'' IS NOT THE COMPLIMENT OF GO.
__

PROBABLE FAULT:

CS MODULE

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

131;

1;1
1314
1315

SEQ 0026

IF MODULE

TEST 46 END 1 RESET GO TEST

} }g
1320

PURPOSE:

1 53

TO VERIFY THAT THE COMMAND SEQUENCER CAN
END1 LOCATION.

1325

PROCEDURE:

1328
}ggg

THE TEST EXECUTES RELEASE, SEARCH AND ILLEGAL FUNCTION CODE
32 IN DIAGNOSTIC MODE AND VERIFIES THAT GO RESETS ON THE
SPECIFIED CLGCK CYCLE.

1331

PROBABLE FAULT:

1333

1 %1
1322

1324

1329
133

1332

1334
1335
1336
1337
1338
1339

134
1344
1345

1346

1347

1348

1349
1350
3321

1ss§
}ggg

1356
1357
1358
1359

THE

€S MODULE

TEST 47 SET PULSE TEST

}%2?

RESET

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

PROCEDURE:
WITH DEBUG

CLOCK

ENABLED,

THE

SEQUENCER THROUGH PARTS OF VARIOUS
CONT INUE BIT 06 OF RMMR1 TO DETERMINE
GENERATED.

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

PROBABLE FAULT:
1. CS MODULE

TEST 50 SET/RESET IVC TEST
PURPOSE:

TEST

PROCEDURE :

‘'INVALID COMMAND'*

STATUS

FOR EACH FUNCTION CODE.

SEQ 0027

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14=JAN=82 16:33:00 PAGE 3-24
THE PROGRAM RESETS

1369

BITO9

1370

READY'",

IS CHECKED.

1375

1378
1378

1379
1380
1381
1382
1383

‘MAINTENANCE

UNIT

THEN LOADS THE FUNCTION CODE AND GO IN

PROBABLE FAULT:

CS MODULE

IF MODULE

1384

TEST 51 SET LSC TEST

1386

PURPOSE :

1388

1385

RMMR1,

VALID USING

RMCS1,” EACH FUNCTION CODE IS TESTED AND “'IVCTM, BIT 12 OF RMER2

1371

1374

VOLUME

VERIFY

:
THAT

‘LOSS OF SYSTEM CLOCK'*

CAN SET AND RESET.

1390

PROCEDURE:

1392
1393
13%

THE TEST ENABLES THE DEBUG CLOCK AND SETS THE GO BIT. AZTER
WAITING ENOUGH TIME FOR THE ONE SHOT TO SET, THE TEST DISABLES
THE DEBUG CLOCK AND VERIFIES THAT LSC SETS.

1396

PROBABLE FAULT:

1398

CS MODULE

1400

IF MODULE

1397

1399

1401
1402
1403
1404
1405

1406

TEST 52 DECODE TEST

1408

PURPOSE:

1410
1411

THE

1407

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

1412

ACTIVE.

1414

PROCEDURE:

1416
1417
1418
1419
1420

THE TEST USES ''VOLUME VALID'' AND 'OCCUPPIED'* TO DETERMINE IF
THE DECODE_FLOP IS SET OR RESET. INITIALLY, VV AND OCCUPPIED ARE
RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET WV OR 0CC
AND VERIFIES THAT ONE OR BOTH BITS SET. THE SAME COMMANDS ARE
EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND THE TEST VERIFIES

}25%
1458

PROBABLE FAULT:
1. IF MODULE

14]

1421

THAT NEITHER BIT SETS.

ddddddddddddddddddddddddd-‘—ldd—.—ldd-‘ddddddddddd.’dd—lflddd

F ¥ T a0 a2 of o o F 5
T T T T T T NIy
W
WNWWWNI NN
Qooommmmmmmm\nubbbbbbbabbw
mgm—-ooaflo
W = OV
NO VS WN=O VRN
WV WO

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

SE0 0028

TEST 53 SET/RESET VOLUME VALID TEST
PURFOSE:

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

EDGE

THIS

TEST

COMMANDS .

PROCEDURE:

USING ‘MAINTENANCE UNIT READY'', BIT 9 OF

RMMR1,

FORCES A ZERO TO ONE TRANSITION OF UNIT READY AND VERIFIES THAT

VOLUME VALID,BIT 6 OF RMDS IS Z2ERO. 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

WITH

DIAGNOSTIC

CLOCK

ENABLED

INHIBIT

THE _ COMMAND

THIS TEST VERIFIES THAT “‘ILF'', BIT O OF RMER1,

464

SEQUENCER,

229

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

465

LEADING

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

FOR LEGAL FUNCTION CODES AND ON FOR ILLEGAL FUNCTIONCODZS.

223

PROBABLE FAULT:

470

IS OFF

THE

IF MODULE

i
b74

475

2;9

- TEST 55 OCCUPIED TEST

12;8

PURPOSE :

1480
}28}

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

TRANSFERS

AND

SEQ 0029

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

;232

PROCEDURE :

1485
1486

‘'OCC'', BIT 15 OF RMMR1
FOR EACH DATA TRANSFER COMMAND,
'TO PREVENT GO FROM
ENABLED
IS
OCK
SHOULD BE ONE,
DCBUG CL

}233

RESETTING BEFORE STATUS IS SAMPLED.

1489

PROBABLE FAULT:

1491

IF MODULE

1493

CS MODULE

1490
1492

149%
1495
1496
1497
1498

}ggg
1501

b b = e ek b o d kb

PURPOSE:

TO VERIFY THAT "‘READ IN PRESET'' COMMAND IS DECODED,

EACH VISIBLE STATUS OR REGISTER BIT WHICH IS CLEARED BY
‘READ IN PRESET'' IS _SET. THEN THE RIP COMMAND IS EXECUTED AND
THE
THE TEST VERIFIES THAT ONE OR MORE BITS ARE CLEARED.

FOLLOWING ARE USED DURING THE TEST.
T

. THE DESIRED

AND THE TEST PASSES IF BIT §
THE RIP COMMAND.

DS MODULE

) D D

b cnd

RE GISTER,

. THE_DISK ADDRESS REGISTER

IF MODULE

e i

CYLINDER

RMDC,

SET

WITH

MOVE

RIP COMMAND.

— o

A MOVE INSTRUCTION AND THE TEST

INSTRUCTION AND THE TEST PASSES IF BITS 00-09 ARE ZERO AFTER THE

539

BITS ARE 2ER O AFTER THE RIP COMMAND.
USED”1F
pASSES

PROBABLE FAULT:

§§8

PROCEDURE:

5
3

AND

mgTICULAR. TO VERIFY THAT "IFS READ IN CMD L' IS NOT STUCK AT

NINIALNINININININ)

D e cd e D D e cd =D D cnd D e e e i =D b

wviviuvuununnunununaunuavaviinaunnaw

1502
1503
1504
1505
15

TEST 56 READ IN PRESET TEST

RMDA,

IS SET WITH A MOVE INSTRUCTION

00-07, AND BITS 08-15 ARE ZERO AFTER

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

TEST 57 RIP/RMOF TEST
PURPOSE :

SEQ 0030

5
g

TO VERIFY THAT ‘‘READ 5" PRESET'' RESETS FMT16, ECI, HCI AND
SSEI BITS 09, 10, 11 AND 1 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

5
5

b e

D D e

D e

D D

D e

D d

Vi
I
S YIIINIINS
OO

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

TEST 60 RMDA/RMDC/RIP TEST
PURPOSE :

CYLINDER

1566

PROCEDURE :

1568
1569

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

1571

PROBABLE FAULT:

1573

TO VERIFY THAT "READ IN PRESET'' RESETS THE DESIRED
ADDRESS, RMDC, AND THE DISK ADDRESS, RMDA.

1567
1570

1572

1574
1575
1576
1577
1578

‘%gg

RIP

DS MODULE

TEST 61 OFFSET COMMAND TEST

1581

PURPOSE:

158

1585

PROCEDURE:

158
}ggg

THE TEST EXECUTES OFFSET COMMAND AND VERIFIES THAT 'OM'‘, BIT
00 OF RMDS IS ONE.

}gg(‘)

PROBABLE FAULT:

159§
159
1594
1595
1596

1584

1589

VERIFY

IF MODULE

THAT

‘OFFSET MODE'®

SETS

WITH

OFFSET COMMAND.

SEQ 0031

N
[+ -]

d e cnd b b D cd D cd cd D D D D d D D D e = e

d D D d D d e

(o Yo Yo Yo Yo Yo Yo Yo Yo Yo O

* TEST 62 RETURN TO CENTER TEST
PURPOSE :

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

OFFSET _MODE, BI 00 OF RMDS, IS SET WITH OFFSET COMMAND
THEN THE TEST EXE v TES A RETURN TO CENTER COMMAND AND VERIFIES
r;
OFFSET DIRECTION IS ALSO SET AND
THAT OFFSET MODE RE ETS.
R
THE
COMMAND.
AFT
CHECKED FOR ZERO
mwno
-

SgaeaeaEaagyge

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

PROBABLE FAULT:
1.

IF MODULE

TEST 63 RMDC CLEAR OFFSET TEST
PURPOSE :

TO VERIFY THAT CLEAR

OFFSET

CYLINDER ADDRESS IS WRITTEN.

ACTIVE

WHEN

WRITES

THE TEST

OFFSET

COMMAND,

OFFSET

MODE

CLEARS

EXECUTES

VERIFIES THAT OM, BIT 00 OF RMDS IS ZERO.

ggg

PROBABLE FAULT:

633

DS MODULE

635

IF MODULE

RMDC,

AND

636
637
638
639
1640

DESIRED

PROCEDURE :

634

THE

%221

TEST 64 EBL CLEAR OFFSET TEST

11222

;0 VERIFY

}222
1647

PURPOSE :

THAT

WHEN

HEAD

SWITCHING

‘

}gzg

PROCEDURE :

1650
1651
}22%

THE TEST EXECUTES AN OFFSET COMMAND TO SET OFFSET MODE.
AFTER SETTING THE FORMAT BIT AND LOADING THE LAST SECTOR/TRACK
'A.gggE'S!gsé?smA. THE TEST FORCES AN EBL AND VERIFIES THAT OFFSET

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

1655

PROBABLE FAULT:

165

1659

1658
1659
1660
}661

SEQ 0032

DS MODULE

TEST 65 RUN AND GO TEST

}é‘%

PURPOSE :

}222
1122;

ros VERIFY THAT

‘RUN AND GO''

FLOP SETS DURING READ AND

WRITE

1669
}g;?

)
PROCEDURE :

167§
167
1674
}2;2

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

1677

PROBABLE FAULT:

}2373

CS MODULE

}gg%

SYNCHRONOUS MASSBUS MODULE

1678

1683

168%
1685
1686

TEST 66 SET IAE TEST

1687

1688

PURPOSE :

}2893
112312

TO VERIFY THAT INVALID ADDRESS ERROR CAN SET.

32313.

PROCEDURE :

1695

1696
1697
}ggg

;
,

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES

AND EXECUTES A SEARCH COMMAND, VERIFYING THAT “‘IAE'* SETS. THE
PROCESS IS REPEATED WITH A DIFFERENT COMMAND IF THE IAE DCSS NOT
SET, AND THE TEST FAILS IF IAE CANNOT BE SET.

};8?

PROBABLE FAULT:

1702

DS MODULE

1704

IF MODULE

1703

1768

1708
1709

1710

TEST 67 SEARCH, SEEK, READ, WRITE TEST

SEQ 0033

PURPOSE :

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

PROBABLE FAULT:

IF MODULE

TEST 70 INVALID TRACK/SECTOR TEST
PURPOSE:

TO VERIFY

DETECTED.

THAT

INVALID

TRACK

AND

SECTOR

ADDRESSES

ARE

PROCEDURE :

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

AND

EXECUTES

PROBABLE FAULT:

DS MODULE

TRACK ADDRESS OPTION JUMPER

TEST 71 INVALID CYLINDER TEST

PURPOSE:

TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED.

FSWO
A%,]

MODULE

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES
AND EXECUTES EACH COMMAND TP WHERE SET PULSE IS ACTIVE AND
VERIFIES THE DECODE BY CHECKI%G "'IAETM".

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

:
PROCEDURE

PROCEDURE :

~ NNN
o

dflddflddddddflddddflfldddddddddddddddddddddd-‘dfldddddflddflddddd

NN N NN NN N NN NN NN NN NN NN N NN NN NN NN NN NNNN NN NNNNNNNNNNNNNNNY

T o Ot oy B N N N N N N N N N Ol O o o o o o N NI NI NS A NI A NI NI NI — = =5 5 3 b — > 3
A S T SRS
S NS G R O S S S B NS N R UK L S BN R AR NN NS 0@~ i i —

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

PROBABLE FAULTS:

DS MODULE

AND

EXECUTES

1768

SEQ 0034

CYLINDER ADDRESS OPTION JUMPER

1720

177
177

1778

1774

TEST 72 SET AOE TEST

1776

PURPOSE:

1777

T0 VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED.

1778

1779

1780

PROCEDURE:

1782

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
IN 18 BIT FORMAT, 16 BIT FORMAT
IS SET,
TEST VERIFIES THAT “AOE:’
" IS
S|

1781

178
1784
1785

1786

AND 16 BIT FORMAT WITH “'SSEI®

1789

PROBABLE FAULT:

1791

1787
1788

1790

1752
1795
179
1795
1796

SET.

DS MODULE

1797

TEST 73 SET RMR TEST

1799

PURPOSE:

1801

70 VERIFY THAT “REGISTER MODIFICATION REFUSED'* SETS WHEN
REGISTER IS WRITTEN WHILE GO IS SET, EXCEPT WHEN THE ATTENTION OR

1798

1800

1808

1805

1806
1807

1808

1809

1810

1811
1812

MAINTENANCE REGISTER 1S WRITTEN.

PROCEDURE:

"DEBUG CLOCK ENABLE'' IS SET TO INHIBI
SEQUENCER. _ THEN A_NOP COMMAND AND GO BI

WITHOUT STEPPING THE DEBUG CLOCK, THE TEST WRI

WHICH SHOULD NOT SET RMR STATUS. THEN RMDA
STATUS, BIT 02 OF RMER1, SHOULD BE ONE.

181

PROBABLE FAULT:

1815

1814

1816
1817
1818
1819
1820

1821

1858
1854

IF MODULE

TEST 74 PGM STATUS CHECK

PURPOSE:

B
et

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

1825

TO VERIFY THAT THE PROGRAMMABLE STATUS BIT AND

}g%g

REQUEST STATUS BIT ARE COMPATABLE.

}g%g

PROCEDURE :

18%0
1831

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

}gg%

PORT SELECT SWITCH.

1834

PROBABLE FAULT:

1836

1835

1837
1838
1839
1840
1841

}glzg

}glo‘g

1846

IF MODULE

TEST 75 DVA/DPR STATUS CHECK

PURPOSE :

TO VERIFY THAT DEVICE AVAILABLE

1847

STATUS ARE SET.

}ggg

PROCEDURE :

1848

1853

PROBABLE FAULT:

1855

1856

1857
1858
1859
1860

]'861

}g‘g‘g

D e e md =D

00 00 00 00 0o Co 00

d =D d

3%28

1865

TEST 76 PORT REQUEST TEST, PART 1

PURPOSE :

TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF

WHEN THE PROGRAM READS RMCS1.

PROBABLE FAULT:

IF MODULE

878

CS MODULE

883

SET

THE TEST EXECUTES A RELEASE COMMAND, THEN, ASSUMING THE PORT
RELEASED,
IT READS RMCS1, THEN READS RMMRS AND VERIFIES THAT

ONE OF THE PORT REQUEST FLOPS IS SET.

MODULE

PROCEDURE :

b e e

PRESENT

IF MODULE

877

STATUS AND DRIVE

DVA AND DPR ARE TESTED AND BOTH SHOULD BE ON.

]lgglz
1854

THE DRIVE

-y~

SEQ 0035

CZRNBAO RM80 DSKLS PT1 MACRO VO‘..QO 14=JAN-82 16:33:00 PAGE 3-32

CERE R RS R S AR
00000 O 0000 00 0 0 VOV VOOV VOV VOOV OOVOO

PURPOSE:

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

MODULE

PROCEDURE:

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

IF MODULE

(S MODULE

TEST 100 PORT REQUEST TEST, PART 3
:
PURPOSE

TO VERIFY THAT PORT REQUEST SETS WHEN

ANY

RMAS IS WRITTEN.

PROCEDURE:

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

PROBABLE FAULT:

2. CS MODULE

uuw
SRR W=

23
24
25
26
27
28

SET

EXCEPT

THAT

IF MODULE

TEST 101 RELEASE TEST
PURPOSE:

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

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

b+)

SEQ 0036

TEST 77 PORT REQUEST TEST, PART 2

L 0

ddddddddddflddddddddddddddflddddddddddddddflfl - nd cnd D cd D i ) D s i ) D ) o d

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

SEQ 0037

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

}&?

PROBABLE FAULT:

194%

194
1944
1945
1946

1947

}gfig

IF MODULE

TEST 102 WRITE ATA TEST

1950

PURPOSE:

}ggz

TO VERIFY THAT ATTENTION
ATTENTION SUMMARY REGISTER.

1955

PROCEDURE :

1958

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

1961

PROBABLE FAULT:

1963

IF MODULE

1965

(CS MODULE

1951
1952

1956
1957

‘}32(9)
1962

1964

1966
1967
1968
1969
1970

PURPOSE:
IS OFF

SBIR ARGN =

0O VOO0

R S
B
i P G
S Y
G
YW W
P

CLEARED

WRITING

THE

TEST 103 RESET ATA BY GO TEST

1973
1974
1975

VERIFIES THAT ATTENTION IS RESET.

}g;%

CAN

TO VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE

ERROR

PROCEDURE :

THE PROGRAM SETS MAINTENANCE UNIT READY WHICH

SHOULD

CAUSE

THEN, WITH DEBUG CLOCK ENABLED, GO IS SET, AND ATA
AN ATTENTION.
SHOULD BE ZERO.
PROBABLE FAULT:
1.

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
1996

SEQ 0038

TO VERIFY THAT ONE-ZERO AND ZERO-ONE

}ggg

READY SET ATTENTION.

%&8

PROCEDURE :

001

TRANSITIONS OF UNIT

THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH_TRANSITIONS OF

00%

UNIT READY AND VERIFIES THAT ATA SETS WITH EACH TRANSITION.

PROBABLE FAULT:

2006

2007
2008
2009
2010
2011

%8}%

%8}2

2016

IF MODULE

TEST 105 ERROR ATA TEST

PURPOSE :

TO VERIFY THAT ATTENTION SETS WHEN COMPOSITE

2017

WHILE GO IS OFF.

%8}8

PROCEDURE :

2018

ERROR OCCURS

AND SETS AN ERROR,

THEN

Sggg

PURPOSE :

2036
%8%

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

FOR

%828

PROCEDURE :

2041
204
204

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

202

THE PROGRAM CLEARS

%8%%

VERIFIES ATA IS ON.

2024

SRNBABLE FAULT:

2026

2025

2027
2028
2029
2030
2031

%8%%

2044

2045

DEVICE

IF MODULE

TEST 106 REGISTER TRANSFER ATA TEST

DOES OCCUR.

504

PROBABLE FAULT:

2048

5049
050
2051

THE

IF MODULE

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

SEQ 0039

TEST 107 P SET ATA TEST
PURPOSE:
TO _VERIFY THAT ATASST
IS
AT THE COMPLETETION OF AN OFFSET AND
RETURN TO CENTER LINE COMMAN
PROCEDURE
:
THE

TEST 110 SET WLE TEST
PURPOSE:

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

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

USING

THE

EXECUTE WRITE DATA COMMAND WITH MAINTANCE WRITE PROTECT SET,

SHOULD EXPECT WLE TO BE SET.

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

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

CS MODULE

IF MODULE

b e
b md
e

THE COMMANDS USING THE MAINTANCE DEBUG

IF MODULE

D oD

b md o}

NNLNINININININL
NN N

EXECUTES

PROBABLE FAULT:

BINY
=
¥
AEE
SRISIRIV2S 3AR
EER T RS

065
2066
2067
2068

PROGRAM

CLOCK AND EXPECTS ATA TO BE SET ON COMPLETETION.

TEST 111 EXCEPTION TEST

PURPOSE:

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

M
11§

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

PROCEDURE :

118
119

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

g}g‘

PROBABLE FAULT:

2125

CS MODULE

2127

IF MODULE

119

2}2?

2126

£158
$1%0
2131
2132

%}a

5};2
2137

g}gg

2140

%11?3.
%m
2147

2148

gggg

5%1

THE PROGRAM WILL INITIALIZE THE MASSBUS ('REX'* SHOULD BE CLEAR)

AS\E'Tv;M" ERROR, BY TRYING TO WRITE THE RMER1 REGISTER ('REX'' SHOULD BE

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

’

TO VERIFY THAT THE RECALIBRATE COMMAND ABORTS AFTER EXECUTION

DURING A WAIT LOOP.

TO VERIFY THE TAG BUS DURING A RECALIBRATE COMMAND.

5};%

PROCEDURE :

2155
zgg

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

gggaq

2160

2161
gggg

164

g}gg

se;xecure 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

SEQ 0041

}gg

167

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

2170

2};1

LEAVE ON CYLINDER RESET AND VERIFY THAT *'GO’* IS STILL SET.

AN AN AINIAI NN AN NN NN N NN NN NN NN

CZRNBA) RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 3-38

ACCORDING

DROP ON CYLINDER TO RESET LATCH,

EXECUTE RECALIBRATE COMMAND,

DROP ON CYLINDER TO RESET LATCH,

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

PROBABLE FAULT:
1.

CS 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 "*ATA'* SETS, IF THE DRIVE COMPLETES THE SEEK COMMAND.

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

—

D e

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

D
D
0
W~

D ) e

) D ) i ot ) ) Dl

A
BLLER 28 BRI ARARNZISI=I

%17%
174

EXECUTE RECALIBRATE COMMAND,

MIN

2199

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

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

— b s
e
e

NNNNNNNNNN%NN

naNLNINLRLNINLNLNINY

NN = o
WN=OV OO

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

SET DRIVE FAULT (*MDF'* IN RMMR1) TO CAUSE

D ABORT AND VERIFY THAT *‘GO'* IS RESET.

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

LATCH IS NOT CLEARED.

EXECUTE SEEK COMMAND,

DROP ON CYLINDER TO RESET LATCH, THEN SET

ON CYLINDER AGAIN AND VERIFY THAT “ATATM IS SET.

EXECUTE SEEK COMMAND, DRUP ON CYLINDER TO RESET LATCH, LEAVE ON
CYLINDER RESET AND VERIFY THAT ''GO'* IS STILL SET.
EXECUTE SEEK COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT

ACCORDING A PRE-DETERMINED TABLE.

NN PNONINININD

roR NN NN
NN
N
WA
=83
OO~V
w rwww

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

2236

SEQ 0042

PROBABLE FAULT:

CS MODULE

TEST 114 SEARCH TEST

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

EXECUTION.

TO VERIFY THAT THE SEARCH 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 SEARCH COMMAND.

"T(LJOXSI.UFY THAT THE SEARCH COMMAND ABORTS AFTER EXECUTION DURING A
TO VERIFY THAT SEARCH COMMAND ABORTS DURING SECTOR COMPARE LOOP
TO VERIFY THE TAG BUS DURING A SEARCH COMMAND.
PROCEDURE :

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.
EXECUTE SEARCH COMMAND, SET DRIVE FAULT ('MDF'' IN RMMR1) TO CAUSE
ABORT AND VERIFY THAT

"'GO'* IS RESET.

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

LATCH IS NOT CLEARED.

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

WHILE IN SECTOR COMPARE LOOP.

SET DRIVE

;elrlLT ("MDFTM IN RMMR1) TO CAUSE COMMAND ABORT AND VERIFY THAT ATATM* IS
EXECUTE SEARCH COMMAND AND VERIFY THAT THE TAG BUS IS CORRECT

ACCORDING A PRE-DETERMINED TABLE.
PROBABLE FAULT:

CS MODULE

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

&
g gg

TEST 115 SEARCH TIMEOUT TEST
PURPOSE :

%%86

&
%%gg
2%91
9

TO VERIFY THAT ''OPI'* SETS,

DROPPED DURING SEARCH C
PROCEDURE :

22
229
2294
2295

PROBABLE FAULT:

2298

2297

%3382

(S MODULE

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

%3389

TO VERIFY THE COMMAND SEQUENCER DURING DATA COMMANDS.

PROCEDURE :

%fi?

USES
THIS TEST, LIKE RECALIBRATE, SEEK, AND SEARCH TESTS,
AND
FORCE
THE MAINTENANCE REGISTER TO SIMULATE DRIVE CONDITIONS
THE COMMAND SEQUENCER THROUGH EACH BRANCH PATH. ADDITIONAL ITEMS

2312
2313
%g}lso

WHICH ARE TESTED INCLUDE OFFSET PLUS AND MINUS ON THE TAG BUS AND

“ENABLE SEARCHTM, BIT 11 OF RMMR1.

gg"lg
318

PROBABLE

2320

2319
Y

N
vl
NN
wa W

%321

2326

IF ‘MSEN'' (SEARCH TIMEOUT ENABLE) IS

D EXECUTION.

ARE)D(ECUTE SEARCH COMMAND, VERIFY THAT ''OPI'* IS SET WHEN 'MSEN'' IS

2296
2299
2300
2301
2302
2303

SEQ 0043

FAULT
LE FAULT:

CS MODULE

SEQ 0044

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

s*LAST REVISION 07-AUG-81
.TITLE CIR'BAOMg
s*COPYRIGHT (C)

DSKLS PT1

;*DIGITAL EQUIPMENT CORPORATIW
*COLORADO SPGS., C0. 80919
*PROGRM BY MIKE LEAVITT
'THIS PROGRAM WAS ASSEMBLED SING THE PDP=11 MAINDEC SYSMAC
tPACKAGE (MAINDEC=11-DZQAC~C5) . 18-MAR-81

699
700

.SBTTL

OPERATIONAL SWITCH SETTINGS
USE

SWITCH

el ek

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

O=NWH
VO N OO =W

698

SBTTL
BRI

697

LOOPBON TEST IN SWR<7:0>
TN12

BASIC DEFINITIONS

s*INITIAL fi%ess OF THE STACK POINTER #** 1100 w#«

STACK
ERROR
SCOPE

MT
10T

:sBASIC DEFINITION OF ERROR CALL
:sBASIC DEFINITION OF SCOPE CALL

“;Hl SCELI.MEOUS DEFINI TIMS
;CODE FOR HORIZONTAL TAB

= 1

..cooe FOR LINE FEED

;gu - ® 77776

:SPROCESSOR STATUS WORD

R
CRLF

x 1
= g

::CODE FOR CARRIAGE RETURN
:CODE FOR CARRIAGE RETURN-LINE FEED

STKLMT
PIRQ

= 177774
= 17777

..smx LIMIT REGISTER
:PROGRAM INTERRUPT aeouest REGISTER

DDISP

= 177570

: SHARDWARE DISPLAY REGISTER

DSWR

= 17757

: *GENERAL

RO
R1
R
R
R&

= 1
= x;
=X
= %%

..mowe SWITCH REGISTER

PURPOSE REGISTER DEFINITIONS

:
:
+
:

:GENERAL REGISTER

SGENERAL REGISTER
SGENERAL REGISTER
SGENERAL REGISTER
SGENERAL REGISTER

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

BASIC DEFINITIONS

= 15

00000
000006
000007

R
sP
PC

=3
= 19
=X

= !9

PRO
PR1
PR
PR

=0
= 40
= 100
= 140

000240
oooggo
000340

PRS
PR6
PR7

= 2
= 300
= 340

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

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

PR&

::PRIORITY LEVEL 0
::PRIORITY LEVEL 5
+:PRIORITY LEVEL

::PRIORITY LEVEL 1

::PRIORITY LEVEL &

$SPRIORITY LEVEL S
+:PRIORITY LEVEL 9
::PRIORITY LEVEL

= 100000
SW1S
= 40000
SWié
= 20000
sWi3
= 10000
sWi2
= 4000
sWil
= 2000
SWi0
= 1000
SW09
= 400
SW08
sSWo7
= 200
suog
= 100
= 40
SWo
= 20
SWoé
=10
SWwo3
=4
W02
W0l
=2
SWo0
=1
SW9=SW09
SW8=Sw0
SW7=SW0
SW6=S
SWS=S
SWé=SW04
SW3=Sw03
SW2=SW0
SW1=SW0
SW0=Sw00

:#DATA BIT %r NITIONS (BITOO TO BIT15)

BITIS
BITIA

=1
=4

BIT12

2000
1000

BITI0
BIT

BITI3

000

BIT1

BIT ’
BIT
BIT
BIT
BIT

: :GENERAL REGISTER
::STACK POINTER
: :PROGRAM COUNTER

;%"'SWITCH REGISTER'® SWITCH DEFINITIONS

100000
040000
8zoooo
10000

2
ooowg

2 :GENERAL REGISTER

:#PRIORITY LEVEL DEFINITIONS

000000
000040
000100
000140

000200

::GENERAL REGISTER

= 4

= g
=

= &
= ;
=
= 4
=2

SEQ 0045

CZRNBAO RM80 osxgs P71
BASIC DEFINITION

oooo1o

001
088
%%“
00004
000020

000010
000004
000002
000001

SEQ 0046

MACRO V04.00 14=JAN=-82 16:33:00 PAGE 4=2
ang

BIT
BITOT

=10
= 4
= ;

Bl 19%170§
en;=en§
BiT6811
ang;gngg4

. BIT&=BIT0
snganos
BIT =angz
81T1=81T01
81T0=81T00
;#BASIC ‘'CPUTM TRAP VECTOR Aooasssss

TIME OUT AND OTHER ERRORS
e ax
PITRACE T TRAP (BPT)
..mmmr
;3 INPUT/QUTPUT TRAP (IOT) #+SCOPE+*

000004
000010
000014
000014
000014
0000

ERRVEC = &
RESVEC = 10
TBITVEC = 14
14
TRTVEC == 14
BPTVEC
I0TVEC = 20

..nesenvso AND ILLEGAL INSTRUCTIONS

000240

PIRGVEC = 240

: *PROGRAM INTERRUPT REQUEST VECTOR

000024

000030
000034
000060
000064

PWRVEC

:POWER FAIL

..;nuu\roa TRAP (EMT) *+ERROR*#
"TRAP'® TRAP
STTY KEYBOARD VECTOR
S1TY PRINTER VECTOR

EMTVEC = 30
TRAPVEC =
TKVEC = 60
TPVEC =
.SBTTL

RM80 REGISTER BIT DEFINITIONS

;*RMCS. CONTROL STATUS REGISTER

= BITN
= BITO0S
= BIT
= BITO3
= BIT02
= BITO1
= BIT

004000
000040
000020
000010
000004
000002
000091

DVA
Fé
F3
F2
F1
FO
G0

ooooog
00000
000004
000006
mig

NOP
ILFO2
SEEK
RECAL
DRVCLR

000014
1

OFFSET =
“
RTC
=
RIP

000077

0000
83%

0000
0000

FNCMSK = 3500 7
;FUNCTION

RLEASE

=
=
=
=
=

PAKACK =
PACACK

ILF2%

ILF26 =
SEARCH =

SFUNCTICH CODE MASK

CODES (BITS 01-05 OF RMCS1)

000000

:NOP COMMAND
SILLEGAL COMMAND
$SEEK COMMAND
*RECALIBRATE COMMAND
*DRIVE CLEAR COMMAND
;RELEASE COMMAND

FSET COMMAND
*RETURN TO CENTERLINE COMMAND
*READ IN PRESET COMMAND

= PAKACK

:DEVICE AVAILABLE-READ ONLY
*FUNCTION CODE
SFUNCTION CODE
ruumon CODE
UNCTION CODE
runcnon CODE
*G0 BIT

*PACK Acmutose COMMAND
;ILLEGAL COMMAND

*ILLEGAL COMMAND
*SEARCH COMMAND

SEQ 0047

3 §§

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

000070
000072
000074
000076

ILFé&

ILFé
ILF46
ILF46
weD
WCH

=
=
=
=
=

o
6
Sg
00005

i g

a1
=

ILF64
ILF66
RD
RH
ILF76
ILF76

s*RMDA

= 000064
= 000G6
= 00007
= 000072
= 000074
= 000076

832

§§§§

= BIT1

000020
000010
000004
000002
000001

SA16

177400

TADMSK

= 1774

:*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP

= BIT1S
= BIT14
= BIT13

WRL

= BITI1

000377

100000

:§§§§§§§

888388288

0000
020000

= BIT10
= BIT09
= BITO8

:SECTOR ADDRESS DEFINITIONS

= BITO4

= BITO03
= BIT02
= BITO1
= BIT00

:TRACK & SECTOR MASKS

SADMSK

MOL

= BIT12

LBT
PGM
DPR
DRY

= BIT10
= 31789
= BIT ’
= BITO

= BIT

COMMAND

sREAD HEADER AND DATA COMMAND
sILLEGAL COMMAND
s ILLEGAL COMMAND

DISK ADDRESS REGISTER

:TRACK ADDRESS DEFINITIONS

SA8
SA%
SA2
SA1

K DATA COMMAND
K _HEADER AND DATA

TA%
TA2
TA1

[(n]ln]

ILF

$E520443

0000 g

(w]lm]

ILF

w88

ILF g

GISTER BIT DEFINITIONS

= BIT

:TRACK ADDRESS 8.

:TRACK ADDRESS &
:TRACK ADDRESS 2
;TRACK ADDRESS 1

sSECTOR ADDRESS 16.

:SECTOR ADDRESS 8.

sTRACK ADDRESS MASK

;SECTOR ADDRESS MASK
SATTENTION ACTIVE

:COMPOSITE ERROR
;POSITIONING IN PROGRESS
:MEDIUM ONLINE
;WRITE LOCK

.%ST BLOCK ERMSFERRED
OGRAMMABL

:DRIVE PRESENT

DRIVE READY

VALID
: VOLUME

;OFFSET MODE ACTIVE

s*RMER1 ERROR REGISTER #1
100000

DCK

= BIT15

sDATA CHECK ERROR

:''NDTMSK"*

OOODODOODOOO®O®mOO@om
R
R
o F el
)

*3as§a~*aa=:==:
SR RS AR BSN~

NDTMSK

:DRIVE UNSAFE

:OPERATION mcgmégrs

H!ITE CLOCK FAILURE

FORHA ERROR
:PARITY ERROR
;REGISTER MODIF ICATION REFUSED

:ILLEGAL REGISTER
;ILLEGAL FUNCTION

E
!HCE !ECH!WCF !FER
E!WL
!AOE !HCRC
K!DT
S USED TO MASK ERROR REGISTER 1 DURING NON = DATA

--o
fl

' ]

S22
£33

UNS
OPl

"SRR

3 52

- —

]

b
-

NITIONS

S2R

;COMMANDS, I1.E., HOUSEKEEPING AND POSITIONING COMMANDS
s*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

s*RMLA

LOOK AHEAD REGISTER

SC4
SC3
sc2
SC1
SCO

= BIT10
= BIT09
= BITO08
= BIT07
= 8IT06

SCTMSK

= 003700

sMASK FOR AWW 8ITS

:SECTOR COUNT MASK

s*RMMR1 MAINTENANCE REGISTER #1
100000
040000

R=§§§§§§§§

88888328

:
R
B
A D PR P S P RE P DR LD

SEQ 0048

MACRO V04.00 14~JAN-82 16:33:00 PAGE 4=4

;WRITE ONLY BITS

pBCK

= BIT1S

MRD
MUR
MOC
MSER
MDF
W
MWP

= BIT10
= 91789
= BIT 9
= BIT
= BIT
E ang
= BITO3

DBEN
DEBL
MSEN
MCLK

MI
MSC

DMD

= BIT14%
= BIT13
= BIT12
= BIT1

EBL

:DEBUG CLOCK ENABLE
:DIAGNOSTIC END OF BLOCK
;SEARCH TIMEOUT ENABLE
MINTENANCE CLOCK

= BIT02
= an%

= BIT

== emf
BIT1%

:READ ONLY BIT

occ
RG

;DEBUG CLOCK

= BIT13

:0CCUPIED
RUN AND GO

.END OF BLOCK

o
mo

g~
§
FIIIIIIAIANa
8

W= O000 NOWVSWN=O

333888

§2883%§

GISTER BIT DEFINITIONS

00 00 00 0o 0o Oo

9
870
8n
872
873
874
875
876
877
878

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

= BIT12
= BITN
= BITI0
;L
= BIT09
sENABLE CRC OuT
= 31709
sDATA AREA
= BITO
sHEADER AREA
= anog
s CONTINUE
= BITO
sWORD CLOCK
= BITO4
sENABLE ECC OUT
;WRITE DATA BIT
= BITO3
= BIT02
sLAST SECTOR
= BITO1
sLAST SECTOR AND TRACK
= BITO0
sDIAGNOSTIC MODE
'MSEN
N'MOC
DMD'MUR'DBE
=

:*RMDT

DRIVE TYPE REGISTER

NSA
TAP
MOH
DRQ

= BIT1S
= BIT14
= BIT13
= BITN

sMOVING HEAD = 1
:DRIVE REQUEST REQUIRED

SNGPRT
DULPRT

= 020026
= 024026

:SINGLE PORT DRIVE TYPE
sDUAL PORT DRIVE TYPE

:*RMOF

OFFSET REGISTER

FMT16
ECI
HCI
SSEI
OFD

= BIT12
= BITI
= BIT10
= BIT09
= BIT0?

;*RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

XNUOF

XNUDC

= 160577

= 176000

sNOT _SECTOR ADDRESSED = 0
:TAPE DRIVE = 0

216 BIT WORD FORMAT
sECC INHIBIT
sHEADER COMPARE INHIBIT

sSKIP SECTOR ERROR INHIBIT
sOFFSET FORWARD
sUNSED BITS OF RMOF

sMASK FOR _CYLINDER ADDRESS
sUNSED BITS OF RMDC

S38
888

e e

s*RMMR2 MAINTENANCE REGISTER #2

SRRRRRST

SEQ 0049

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

:READ ONLY axrg

ROA

RQB

TAG
ST
cC
CH
BB09
880
880
880
880
B804
BB03
BB02
8801

= BIT1

= BIT1%
= BIT13
= BIT12
= BIT11
= BIT10
= BIT09
= sxro;
= BIT
= BIT
= BITO
= BITO0%
= BITO3
= BIT02
= BITO1

:PORT A REQUEST
sPORT B REQUEST
:TAG CONTROL
s COMMAND SEQUENCE TEST BIT
sCONTROL OR CYLINDER TAG
:%NTROL OR HEAD TAG

SEQ 0050

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 4-6
RHBO REGISTER BIT DEFINITIONS

LOS? (EJF BIT CLOCK

VIO O O =

b wd wd b

= —¢

NNWWNINO =W

modDm

s bt bt bt g bt Bt Bt Bt
©

:LOSS OF SYSTEM CLOCK
:DATA PARITY ERROR

:UNSED BITS OF RMER2

b
b

e B |

—

b b

;USER DETECTED SECTOR ERROR
:SKIP SECTOR FAILURE

sCONTROL STATUS REGISTER #1

:DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER

000034

000077

sMANUFACTURING DETECTED SECTOR ERROR

IDXMSK

.SBTTL

;EAROR REGISTER #1

;ATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER

;MAINTENANCE REGISTER
:DRIVE TYPE REGISTER

:SERIAL NUMBER REGISTER

;OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:HOLDING REGISTER
MINTEMNCE REGISTER L4

DODDVDDDDDD

000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

923
924
925
926
927
930

933

[0 e]s o]0 ]

100000
040000
020000

000000
000006
000012
000014
000016
000020
000024
00002
000030
000032

931
932

;OPERATOR PLUG ERROR
;INVALID COMMAND ERROR

MNEMONICS

912
913
914
915
916
917
918
919
920
921

922

sBAD SECTOR ERROR
sSEEK INCOMPLETE

mmmmmmmmmm

909
910
911

100000
040000
020000
010000
004000
002000
000200
000040
000010
001527

906
907
908

s*RMER2 ERROR REGISTER 2

8 8N S UTWNWWNIN NN =

903
904
905

:TAG BUS

= BITO0

ONONONON NN

89
897
898
899
900
901
902

8800

nonn

890
891
89
89
89%
895

000001

sMASK FOR REGISTER INDEX NUMBER

RH CONTROLLER REGISTER BIT DEFINITIONS

SEQ 0051

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE &4~7
RH CONTROLLER REGISTER BIT DEFINITIONS

;#RMCS1 CONTROL STATUS REGISTER #1

3 7

939

940
941
9%
9%
944
945
&g
gzg
950

951
952
953
954
955
956
957
958
959
960
961
962
965
<

100000

040000
020000
002000
001000
000400
000200
000100
100000

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

g;}

973
974
975
976
977
978
979
980
981
983
988
989
990
991
992
993

= BIT1S

= BIT1%
= BIT13
= BIT10
= BIT09
= BITO8
= BIT07
= BIT06

;SPECIAL CONDITION=READ ONLY

*TRANSFER ERROR
*MASSBUS CONTROL BUS PARITY ERROR-READ ONLY
*PORT B SELECT
*ADDRESS EXTENSION
*ADDRESS EXTENSION
*READY=-READ ONLY
*INTERRUPT ENABLE

;*RMCS2 KH CONTROL STATUS REGISTER #2
:DATA LATE=READ ONLY
= BIT1S
LT

WCE
UPE
NED
NEM
PGE
MXF
MDPE
OR
IR
CLR
PAT
BAI
U2
u1
uo

= BIT14
= BIT13
= BIT12
= BITI
= BIT10
= BIT09
= BITO8
= BIT07
= BIT06
= BITO0S
= BIT04
= BITO3
= BIT02
= BITO1
= BITO0

*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
:INPUT READY=READ ONLY
*CONTROLLER CLEAR
*PARITY TEST
*UNIBUS ADDRESS INCREMENT INHIBIT
SUNIT SELECT
*UNIT SELECT
SUNIT SELECT
;UNIT SELECT MASK

000007

UNTMSK = 7

100000
040000
020000
010000
004000
002000
000100
10
000002
1

APE
DPEHI
DPELO
WCEHI
WCELO
DBL
1E
IPCK3
IPCK2
IPCK1T
IPCKO

= BIT1S
= BIT14
= BIT13
= BIT12
= BITI1
= BIT10
= BIT06
= BITO03
= BIT02
= BITO1
= BIT00

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

RMCS1

= 00

ggg

987

TRE
MCPE
PSEL
A17
A16
RDY
IE

sUNIT SELECT MASK

9993

000000

000002
000004
000010
000022
000050
000052

:#RMCS3 RH70 CONTROL STATUS REGISTER #3

RMWC
RMBA
RMCS2
RMDB
wg
RMCS3

= 02
= 04
= 10
= gz
= 50
= 52

;ADDRESS PARITY ERROR
*DATA PARITY ERROR HIGH WORD
*DATA PARITY ERROR LOW WORD
*WRITE CHECK ERROR HIGH WORD
mne CHECK ERROR LOW WORD
DOUBLE WORD TRANSFER
: INTERRUPT ENABLE
*INVERT PARITY CHECK
*INVERT PARITY CHECK
*INVERT PARITY CHECK
*INVERT PARITY CHECK

;CONTROL, STATUS REGISTER #1

*WORD COUNT REGISTER
*BUS ADDRESS REGISTER
*CONTROL, 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

s« 1Y

sUNIBUS ADDRESS
sUNIBUS VECTOR ADDRESS AND PRIORITY

€2

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

SEQ 0053

TRAP CATCHER

.SBTTL

000000
P

000174 000000
000176

000000

;#ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A *',+2,HALT"

*«SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

-Locmon9 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

: :SOFTWARE DISPLAY REGISTER

DISPREG: .uono 8

*:SOFTWARE SWITCH REGISTER

SWREG:

.WOR

.SBTTL

STARTING ADDRESS(ES)

JMP

000200 000137 004652

JMP

% 000204 000137 004642

.SBTTL

TRAP CATCHER

NSTART

::JUMP TO STARTING ADDRESS OF PROGRAM

:CHANGE RH/RM BUS ADDRESS

a#START1

ACT11 HOOKS

Q'tt.'t.'ttt't.'t.tt"'t'tttttttttttt'tt.t..'t'.QQQ.QQ.QQQ...Q'

000212

*fi00KS REQUIRED BY ACT11

ke
12

000210
001100

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

igrsang

000046 054 gs
000052

:SAVE PC

sszzc »

:52)SET LOC. 52 T0 ZERO
P
% RESTORE

WORD 0
.=$SVPC
.=1100
"SBTTL

APT PARAMETER BLOCK

333222322222322322332232233223233%233332138333333333333333333333333243%3};

§£r LOCATIONS 24 AND 44 AS REQUIRED FOR APT

001100
000024
000024 000200
000044
000044 001100
001100

tttt.t.ttttt't..tt"t.'t".'t.t..'tt'itlt..tt.tt!'t"tt."tttt.

.$X=.
::SAVE CURRENT LOCATION
;SET POWER FAIL TO POINT TO START OF PROGRAM
=24
300
$3FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.
‘=44
$APTHDR ::POINT TO APT HEADER BLOCK
.=.8X ::RESET LOCATION COUNTER

X 3133123322222233333222223¢383833%22232333333
3333333323333 3333333 3333;

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

001100
001100

001104 000054

SAPTHD:
SHIBTS: .WORD
$MBADR: .WORD
$TSTM: .WORD

. 001112 %3

TR, "WORD

SETEND-SHAIL

001102

001222

oo1108
001110

000024
000024

$SPASTM: .WORD
SUNITM: .WORD

20.

20.
o.

..woHIGH BITS OF 18 BIT MAILBOX ADDR.
*:ADDRESS OF APT MAILBOX (BITS 0-15)

$:RUN TIM OF LONGEST TEST

::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
Aooyxwl. RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

:LENGTH MAILBOX-ETABLE (WORDS)

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

SEQ 0054

COMMON TAGS

.SBTTL

COMMON TAGS

QQt"ttt.t'tQ....QQ't."'tttt.itQQ..t..'.ttfit..t.'..fi.'."l."'

tTHIS TABLE CWTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THEPROGRAM.

001114

000000

001122
001124
001126

000000
000000
000000

$CMTAG:

.=TAGADR

MORD

SLPADR: .WORD
SLPERR: .WORD
SERTTL: .WORD

0
0
O

000
001116
000
001117
oo11%g 000000

$TSTNM: .BYTE
$ERFLG: .BYTE
SICNT: .

000
001

SITEMB: .BYTE
RMAX: .BYTE

001130
001131

$ERRPC:
$GDADR:
$BDADR:
$GDDAT:

001132 000000
000000
001134
001136 000000
001120 000000

.WORD
.WORD
.WORD
.WORD

$BDDAT: .WORD

001142 000000
001144

000000

001150
001151

000
000

$AUTOB: .BYTE
$INTAG: .BYTE

177570
177570
177560
177562

.WORD
:
DISPLAY: .WORD
177560
$TKS:
177562
$TKB:

001146
001152

000000

001164
001166
001170
001171
oomg
00117
001174
001176
001200
001202
001204
001206
001512
00121
001216
001517
001220

177564
177566
000
002
012
000
000000
000000
838%

001154
001156
001160
001162

JWORD

000000

000000
ooooog
20
077
015
012

377
000

0
0
0

: :CONTAINS THE resr NUMBER
: SCONTAINS ERROR FLAG
:SCONTAINS SUBTEST ITERATION COUNT

0
1

*:CONTAINS ITEM CONTROL BYTE
:SCONTAINS MAX. ERRORS PER TEST

::CONTAINS SCOPE LOOP ADDRESS
:SCONTAINS SCOPE RETURN FOR ERRORS
:CONTAINS TOTAL ERRORS DETECTED

:CONTAINS PC OF LAST ERROR INSTRUCTION
: SCONTAINS ADDRESS OF °GOOD® DATA
..CONTAINS ADDRESS OF 'BAD' DATA
*CONTAINS *GOOD’ DATA

0
0
0
O

..coumns *'BAD' DAT

JWORD

WORD

$TPS: 177564
$TPB:
177566
SNULL: .BYTE
SFILLS: .BYTE
$SFILLC: .BYTE
$STPFLG: .BYTE
STMPO: .
$TMP1: .WORD
$TMP2: .WORD
$TMP3: .WORD
$TMP4:
.WORD
STIMES: 8
SESCAPE :
377 S$BELL: .ASCIZ
$QUES: .ASCII
SCRLF: .ASCII
SLF:
.ASCIZ

::START OF COMMON TAGS

+ SRESERVED=-NOT TO ee USED

0
0

;AUTOMATIC MODE INDICATOR
..mrenaupr MODE INDICATOR

DSWR
DDISP

::;ADDRESS OF SWITCH REGISTER
:SADDRESS OF DISPLAY REGISTER
:3TTY KBD STws
STTY KBD BUFFER

..m PRINTER STATUS REG. ADDRESS
SSTTY PRINTER BUFFER REG. ADDRESS
:;CONTAINS NULL CHARACTER FOR FILLSREQUIRED
*CONTAINS # OF nu.sn CHARACTERS
..;nssm FILL CHARS.
AFTER A “LINE FEED'’
"TERMINALAVAILABLE'' FLAG (BIT<07>=0=YES)
*:USER DEF INED
*:USER DEFINED
:SUSER DEF INED
*:USER DEFINED

0
2
12
0
0
O
O
O
0

.:usea DEF INED

NUMBER OF ITERATIONS
ESCAPE ON ERROR ADDRESS
<207><377><377> ..coos FOR BELL
QUESTION MARK

<15>

..cmmss RETURN

<12

LINE FEED

tQtt.ltfittlttfitt.t"tt"'t'.t'tltfitfittttfittttt..t.l.....tt.titt

‘$BTTL

APT MAILBOX-ETABLE

CARARRARRARAAAARAAANAAR
R AR R AR RARANAARARRARAAAAAARRRARARAARCAANAS

*EVEN

001225

001222 000000
001 54. 000000
001226

000000

$MAIL :

SMSGTY: .WORD
SFATAL: .WORD

STESTN: .WORD

T MAILBOX

AMSGTY ..HESSAGE TYPE CODE
AFATAL ::FATAL ERROR NUMBER
ATESTN

::TEST NUMBER

PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 6-1

:
:

LWORD
.WORD
.WORD
.WORD
.WORD

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

BYTE

AENV

.BYTE
: .WORD
:
.WORD
: .WORD

AENVM
ASWREG
AUSWR
ACPUOP

SEQ 0055

;:PASS COUNT
;:;DEVICE COUNT
;;1/0 UNIT NUMBER
;;MESSAGE ADDRESS
;;MESSAGE LENGTH
: SAPT ENVIRONMENT TABLE
::ENVIRONMENT BYTE
::ENVIRONMENT MODE BITS
::APT SWITCH REGISTER
::USER SWITCHES
::CPU TYPE,OPTIONS

8ITS 15-11=CPU TYPE

AMAMS1
AMTYP1

11/ o=oa.m:gr.a=1o
BIT 10=REAL TIME CLO
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGE
;:HIGH ADDRESS,M.S. BYTE
;;MEM. TYPE BLK# 1

: .MORD

AMADR1

NSEC CORE=001
00 NSEC BIPOLAR=002
00 NSEC M0S=003
;:HIGH ADDRESS,BLKA1

: .BYTE

AMAMS2

;;HIGH ADDRESS.M.S. BYTE

: .WORD
SMAMS3: .BYTE

AMADRZ
AMAMS3

;:MEM.LAST ADDRESS.BLK#2
;:HIGH ADDRESS.M.S.BYTE
;:MEN . TYPE ,BLKA3
;;MEM.LAST ADDRESS,BLKA3

: .BYTE
: .BYTE

: .BYTE
:

.BYTE

: .WORD

SMAMSS: .BYTE
: .BYTE
:

AMTYP?
AMTYP3S

AMADR3

AMAMSL
AMTYP4

.WORD

AMADRS

WORD

ABASE

WORD
WORD

e;§§§§§§§§§§§ §

NS NOONSNO

RORIRIN)
= = —s —

35 PPRRS&

3333838338838833333383
— d d e
b b e md d D b e md b = D i

11/04=01,11705=02,11/20=03,11/40=04,11/45=05

WORD
«WORD
+WORD
.WORD

MEM.TYPE

900

BYTE

(MIGH BYTE)

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

::MEM.TYPE,BLKN2

::MIGH ADDRESS.M.S.BYTE
::MEM.TYPE ,BLKAG
::MEM.LAST ADDRESS,BLK#4
::INTERRUPT VECTORA1,BUS PRIORITY#1

AVECT1
AVECT2 ::INTERRUPT VECTORN2BUS PRIORITYA2
ACDW1
ACD%
ADD
ADDW1

::BASE ADDRESS OF EQUIPMENT UNDER TEST
:sDEVICE MAP

;;CONTROLLER DESCRIPTION WORDA1
: ;CONTROLLER DESCRIPTION WORDA#2
::DEVICE DESCRIPTOR WORDAO
;:DEVICE DESCRIPTOR WORDA]

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

SEQ 0056

USER DEFINED TAGS

\flr

—t

888

.SBTTL

80000
000000
3t

USER DEFINED TAGS

AUTSIZ: .WORD

CHGADR: .WORD

XXDP:

LSTRK:

. WORD
.BYTE

.BYTE

0
0

13.

;ALLOW AUTO DRIVE SIZING = 0, USE MANUALLY INPUT DRIVES = 1

= 0
:CHANGE RH/RM BUS ADDRESS= =1, NO CHANGE

THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH

WAS LOADED. THE HIGH BYTE CONTAINS THE
: THE PROGRAM

:'XXDP* DEVICE CODE FOR THE RM80.

= 0
:LO 0 BYTE

:H1 BYTE, CONTAINS LA T TRACK ADDRESS OF UNIT
*UNDER TEST. RM80 = 13.

:THE REGISTER INPUT BUFFER IS USED FOR

RMCS1I: .WORD

b cnd nd b

W
~
(=]

D d

D D

2333333333388888883388

GETBUF:

I3
37

:STORING DRIVE STATUS

:REGISTER INPUT BUFFER

RMWCI:
mx
RMDAI:

.WORD
.WORD
.WORD

RMCS21: _WORD

O
8
0

:CONTROL, STATUS REGISTER #1

*WORD COUNT REGISTER
:BUS ADDRESS REGISTER

:DISK ADDRESS REGISTER

:CONTROL,

STATUS REGISTER #2

RMDSI: .WORD
RMER1I: .WORD
RMASI: .WORD
RMLAI: .WORD
RMDBI: .WORD

O
0
O
O
O

:DRIVE STATUS REGISTER
:ERROR REGISTER #1
SATTENTION SUMMARY REGISTER
:LOOK AHMEAD REGISTER
:DATA BUFFER

RMMR2I: .WORD

*MAINTENANCE aeex TER #2

RMMR1I: .WORD
RMDTI: .WORD
RMSNI: .WORD
RMOFI: .WORD
RMDCI: .WORD
RMHRI: .WORD

RMER2I: .WORD
RMEC1I: .WORD
RMEC2]: .WORD
mmgx: -WORD
RMCS3I: .WORD

e cd

O
O
O
O
O
O

O
O
8
O

*MAINTENANCE REGISTER #1
:DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
SOFFSET REGISTER
:DESIRED CYLINDER REGISTER
*HOLDING REGISTER

*ERROR REGISTER
$ECC POSITION assxsm
SECC PATTERN REGISTER
:BUS ADDRESS EXTENSION aesx TER
#
SCONTROL, STATUS REGISTER

sTHE REGISTER OUTPUT BUFFER IS USED FOR

:ASSEMBLING DATA GOING TO REGISTER

) =

b =

888888883883

001412

PUTBUF:

:REGISTER OUTPUT BUFFER

RMCS10: .WORD

RMWCO:
RMBAO:

.WORD
.WORD

RMLAO:

.WORD

nnoag: -WORD
RMCS20: .WORD
RMDSO: .WORD
RMER10: .WORD
RMDBO:
RMMR10:

.WORD
.WORD

;CONTROL, STATUS REGISTER #1

*WORD COUNT REGISTER
*BUS ADDRESS nscxsm

oxsx maess REGISTER
SCONTROL,
STATUS REGISTER #2
*DRIVE szruse STER
:ERROR REGISTER

sATTENTION SWMY REGISTER
$LOOK AHEAD REGISTER

*DATA BUFFER
*MAINTENANCE REGISTER #1

FRESRGSEREE oo

gsgssssssss 33

SKLS PT1 WACRO V04.00 14-JAN-82 16:33:00 PAGE 7-1
RMDTO:

000000

RMCS30: .WORD

000000
000000
000000
000000
000000
000000
000000
000000

RMSNO: .WORD
RMOFO: .WORD
RMDCO: .WORD
RMHRO: .WORD
RAMR0: .WORD
RMERZ0: .WORD
RMECT0: .WORD
RMEC20: .WORD
RMEAEO: WORD

SEQ 0057

:DRIVE TYPE REGISTER

.WORD

000000

0
0

:SERIAL NUMBER REGISTER
:OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:MOLDING REGISTER
:MAINTENANCE REGISTER #2
:ERROR_REGISTER
:ECC POSITION REGISTER
:ECC PATTERN REGISTER
:BUS_ADDRESS EXTENSION REGISTER
#
:CONTROL, STATUS REGISTER

;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

S38

TSTQUE: .WORD

000000

WORD

17%560

FRBEX RS

iauiianaun

Vi
o~
o

purhrPrpirphs
gl i Gl g g T

888838833838

888

000000

é
H NDOE ;agLSUEA ZERO WORD IS A BLANK AND REPRESENTS THE

172542
000104

.BLKW

SLPCSR:

.WORD

SLPCSB: .WORD

SLPVEC: .WORD

000106
177546

.WORD
SLLCSR: .WORD

000102
000000

.WORD
.WORD

000100

000000
000000
000000
000000

SLLVEC: .WORD
$PSW:

TIME: .WORD
WATCH: .WORD
CLOCK: .WORD
STOPCL: .WORD
;PUT TAGS MERE

sCONTAINS DEVICE POINTER

:TEST QUE FOR DEVICES UNDER TEST

;TABLE TERMINATOR GOES HERE WHEN
;ALL 8. DEVICES ARE UNDER TEST.

175540

:KW11-P CONTROL + STATUS REGISTER

104

:KW11-P INTERRUPT VECTOR

172542

109
177546

100

102

:KW11-P COUNT SET BUFFER

;KW11=L CONTROL + STATUS REGISTER

;KW11-L INTERRUPT VECTOR

sSTORAGE FOR PRIORITY

:STIRAGE FOR ELAPSED TIME
;STORAGE FOR REMAINING TIME
;ADDRESS OF START CLOCK SUB
;ADDRESS OF STOP CLOCK SUB

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

ERROR POINTER TABLE

.SBTTL

ERROR POINTER TABLE

'THIS TABLE CWTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*T HE INFORMATION IS OBTAINED BY USING THE INDEX _NUMBER _FOUND IN

~hgcenon SITE.i. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE lS PERTINENT.
F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
: *NOTE2:
:®
:*

e
A

;ERROR

;ERROR
001562
001
0015
001570

064432
000000
000000
000000

001572
001574

201576
001600

000000
000000

;ERROR

19
1

CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT

&
MT4

064452
000009

001602
001604
001
00161

CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER

3
EMT3
0
0
0

sERROR

113?

CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED

2
EMT
EWT
EDT
EFT

064404
072266
072364
072412

CANNOT CLEAR NED STATUS

1
EMT1
EHT1
EDT1
EFT1

064376
07 ggs
07
072410

001552
001554
001556
001560

oT
DF

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

$SERRTB:

] 001542
001542
001544
001546
001550

EM
DH

09“76
72
7
72414

CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS

EMTS
EHTS
EDTS
EFT5

;ERROR 6

CANNOT WRITE/READ ONES TO ALL BIT POSITIONS

SEQ 0058

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

ERROR POINTER TABLE

E 001612
001614

001618
00162

e
8; 414

CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS

7
7261

001622
001624
001626
0016

OF DEVICE REGISTERS

26
27
28

001632
001634
001636
001640

064564
000000
000000
000000
REGISTER SELECT 1 APPEARS S-A-1

001642
001644
001646
001650

06460
000000
000000
000000

064620

e
ek

§§§§§§

sERROR

§§§§§§

SEQ 0059

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

ERROR POINTER TABLE
40

001702

MT15

06467

Qi 85
41

s
;ERROR

’z

001712
001714
001716
001720

;ERROR

22
064726

§MT17

001730

000000

001724 000000
0017;8 000000
23

;ERROR

001732
001734
001736
001740

064744
072 6%
072
072410

001742

064764

EMT21

001746
001750

875
07241

EDT1
EFT1

001744

;ERROR
001752

065004

0017%
0017

BIT INTERFERENCE IN WRITING/READING RMDA

i
EFT1

;ERROR 23
001762
001764

CANT WRITE ONES RMDA

EMT22

Rkt
881708 87 41
§52

CANT WRITE ZEROS RMDA

EHT

07226

g‘s

EMT20
EWT]
EDT1
EFT1

;ERROR

001722

EMT16
0
0
0

064710
000000
000000
000000

“h

5020

CANT WRITE ZEROS RMCS1

EHT%’S
EHT

7
7241

EDT1
EFT1

;ERROR

CANT WRITE ONES RMCS1

SEQ 0060

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

ERROR POINTER TABLE

BIT INTERFERENCE IN WRITING/READING RMCS1

MBA CLR L IS STUCK ACTIVE

:ERROR

CANNOT CLEAR RMER1=PAR,RMR,ILF,ILR

F FER
,
,HCE,ECH,WC
DCK
JAE ,AOE ,HCRC
CANNOT CLEAR RMER1-

065204

;ERROR

CANNOT CLEAR RMER1-0PI,DTE

;ERROR

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

:ERROR

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

SEQ 0061

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

ERROR POINTER TABLE

i
CANNOT WRITE O IN RMER1-0PI,DTE

sERROR

CANNOT WRITE 1 IN RMER1

N =

b 2

oSN

CANNOT WRITE SHIFTING 1 IN RMER1

;ERROR

CANNOT WRITE ZEROS IN RMDC

CANNOT WRITE ONES IN RMDC

sERROR

BIT INTERFERENCE IN WRITING/READING RMDC

;ERROR

CANNOT WRITE 1'S IN RMDC OR RMDA

095324
0 226%
07236
072410

065340
000000

SEQ 0062

DS;%EEPTI MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-5

;ERROR

CANNOT CLEAR RMCS1=-FUNCTION CODE

;ERROR

UNUSED BITS OF RMER2 NOT ZERO

;ERROR

CANNOT CLEAR RMER2-OPE,IVC,LSC

;ERROR

CANNOT CLEAR RMER2-LBC,DPE

;ERROR

CANNOT WRITE ZEROS RMER2-OPE,IVC,LSC

;ERROR

CANNOT WRITE ZEROS RMER2-LBC,DPE

;ERROR

CANNOT WRITE ONES RMER2

SEQ 0063

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

ERROR POINTER TABLE

EFT1

072410
;ERROR

CANNOT WRITE SHIFTING ONES RMER2

:ERROR

UNUSED BITS OF RMOF ARE NOT ZERO

sERROR

CANNOT WRITE ZEROS RMOF

;ERROR

CANNOT WRITE ONES RMOF

;ERROR

~ CANNOT WRITE SHIFTING ONES RMOF

=leolel=d
NNNO

002250

sERROR

DEVICE IS NOT AN RM80

;ERROR

DEVICE AVAILABLE IS NOT SET

SEQ 0064

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

ERROR POINTER TABLE

}22

;ERROR 61

002;22

002344
002346
002350

065

EMTET

875%2
07
07241

EHTI1
EDT1
EFT1

149

}g?

;ERROR
002352
002354
002356
2360

06570
07226
07236
072410

}g‘

;ERROR
2

002370

072410

EFT1

072362

;ERROR

065736
072262
072362
072410

}23

065750

EMT65

0054?8 7242

EFT65

002412

065

gttt
002428 07242
164
‘%gg

002422
002424
0024
0024

066
07 gg
87
7241

CANNOT CLEAR ILR STATUS

EMT64
EHT1
EDTI
EFT1

;ERROR

161

CANNOT WRITE SHIFTING ONES RMHR

EDT]

158

CANNOT WRITE ONES RMHR

63
EMT63
EHTI

}%9

002402

065722
072262

155

002372
002374
002376
002400

EMT62
EHTI
EDTI
EFT1

002362
2364

CANNOT WRITE ZEROS RMHR

;ERROR

MT66

e
EFT65

;ERROR

EMT67
EHT]
EDTI
EFT1

ILR ERROR SHOULD NOT BE SET

ILR ERROR SHOULD BE SET

CANNOT CLEAR PAR STATUS-DPE IS RESET

SEQ 0065

cZl

ERROR POINTER TABLE
167

:ERROR

169
4

002440

CANNOT CLEAR PAR AND DPE STATUS

EMT70
EHT]
EPT1
EFT1

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

;ERROR

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

: ERROR

"MCPE'* ERROR SHOULD NOT BE SET

;ERROR

UNEXPECTED BUS TIMEOUT

sERROR

CANT CLEAR 'DMD'

:ERROR

CANT WRITE ZERO ‘‘DMD'

SEQ 0066

CZRNBAOD 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 TASLE
189
190

CANT WRITE ONE 'DMD*'

sERROR

DMD SET BY WRONG BIT

CANT CLEAR "MOL'* IN DIAGNOSTIC MODE

CANT SET "MOL'* IN DIAGNOSTIC MODE

JERROR

:ERROR

103

"MUR'" SET BY WRONG BIT

CANT RESET "WRL'* IN DIAGNOSTIC MODE

CANT SET "WRL'' IN DIAGNOSTIC MODE

"MWP'* SET BY WRONG BIT

SEQ 0067

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

ERROR POINTER TABLE
r4h!

bt
072642

:ERROR

CANT RESET 'DVC'* USING 'MDVC"’

:ERROR

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

"DvC'* IS SET BUT "UNS'' IS NOT SET

:ERROR

CANT SET "DVC'' USING MDVC''

;ERROR

*DVC'* IS RESET BUT 'UNS'' IS SET

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

sERROR

‘MDF'* IS SET BY WRONG BIT

SEQ 0068

ERROR POINTER TABLE

002702

o
0027?8

340

072322
072400
072426

CANT RESET 'SKI'' USING 'MSER'’

:ERROR

CANT SET ''SKI'* USING ‘MSER''

*'SKI'* SET BY WRONG BIT

:ERROR

CANT RESET 'PIP'* USING ‘MOC'’

CANT SET "PIP'* USING "MOC''

*MOC'* SET BY WRONG BIT

;ERROR

CANT CLZAR "EBL"

SEQ 0069

me
|

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

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

ERROR POINTER TABLE

002774
002776
003000

EHT1
EDTI
EFT1

07 523
07
072410

254

;ERROR

%gz
003002

003006
003010

072410

003012
003014
003016
003020
260 .

003022
003024
003026
0030

;ERROR

263

;ERROR
003032

s
003040

067034

435

gg;

130

003050 07 4%

EFT130

269

;ERROR
003052

*LS'* NOT CORRECT ACCORDING TO RMDA

4
EFT1 8
*LST** NOT CORRECT ACCORDING TO RMDA
;ERROR 131
EMT131

%;(l,

"DEBL'* SET BY WRONG BIT

EMTI 8

067052

003042

127
EMT127
EHT115
EDT115
EFT115

097010
072322
072400
072426

%gg

CANT SET "EBL'' USING 'DEBL"’

EMT126
EHT1
EDT1
EFT1

06677
072;2
07%
072410

2212

%;‘

EDT1
EFT1

;ERROR 126

%gg

“EBL'' NOT ZERO IN DIAGNOSTIC MODE

EMT125
EHT1

003004 892%6
07236

257

125

132

7g7g

EMT1

07, l.gg

EFT1
;ERROR 133

CANNOT INCREMENT SECTOR ADDRESS USING °'DEBL"

CANNOT INCREMENT TRACK ADDRESS USING ‘DEBL"’

SEQ 0070

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

ERROR POINTER TABLE

o8 072482
75
7

UNUSED BITS OF RMDC NOT ZERO

i et
s 07561 0
*'VV'* NOT RESET BY UNIT READY

SERIAL NUMBER IS INCONSISTENT

s
41
072

:ERROR

CANT CLEAR ''GO'* BIT

71 z&

072410

CANT INCREMENT CYLINDER USING 'DEBL'

067212

gr3ich
CANT RESET 'LBT'* BY WRITING RMDA

067232

gr3uns
CANT SET "'LBT'' USING 'DEBL"’

SEQ 0071

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

ERROR POINTER TABLE

003160

EFT132
143

097 64

8883

072432

EHT‘MS
EHT1
EDT
EFTT
144

CANT SET COMP ERROR WITH RMER1 OR RMERZ

EHT}“

gg22

goR

CANT READ ZERO FROM COMP ERROR

COMP ERROR DID NOT SET

CANT SET ‘60" BIT

003212
003214
00321
00322

Q67344

438

%,;ié ;

CANT READ A ONE FROM °‘TST''
7
226

07561

*TST'* IS INCORRECT FOR THE FUNCTION CODE

s D

[«
XV

el
e e

CANT SET THE ''G0'* BIT
42
G4

003255

SEQ 0072

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

ERROR POINTER TABLE

;ERROR 152

i‘!'

EMT152

003252
003254

EHT1

EDT

00325 §7§
7261

EFT1

;ERROR 153

gg
00

003264
003 %
0032

EHT1
EDT1
EFT1

0 igs
07
072410

;ERROR 154

003272

Eo11
EFT1

003576 Orsses
07%410
003
;ERROR

003302
003304
003306
003310

155

;ERROR 156
EFT115

072426

;ERROR 157

igz
003322

003324
003326

0033

CANT CLEAR IVC

EMT157

0975“
8

CONTINUE IS INCORRECT FOR THE FUNCTION CODE

EMT15
ENTIS§
EPTT

067522
072346
003314
003316 87 400
003312

003320

CANT CLEAR CONTINUE

EMT155
EHT1
EDT1
EFT1

097506
0 g
07
072410

*'GO’* DIDNT RESET ON TIME

EMT154

067464

358

*'60"* RESET EARLY

EMT153

0974“

é’;

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

ggs

EHT1
EDT

EFT1

072410
;ERROR

160

IVC IS INCORRECT FOR THE FUNCTION CODE

SEQ 0073

€2
ER

SEQ 0074

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

ERROR POINTER TABLE

161

CANT CLEAR LSC

CANT SET LSC

COMMAND DECODE WAS ENABLED WITH COMP ERROR SET
646
07% 6
07
07261
164

COMMAND DECODE WAS ENABLED WITH COMP ERROR SET

165

DECODE DOES NOT SET

067670
07226
072
072410

07241

sERROR

CANT CLEAR OCCUPIED

;ERROR

ILF SET WITHOUT GO BIT

€2

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

ERROR POINTER TABLE

CANT SET VOLUME VALID

003432

ILF IS INCORRECT

:ERROR

CANT SET OFFSET DIRECTION BIT

;ERROR

OCCUPIED IS INCORRECT FOR FUNCTION CODE

:ERROR

READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF

sERROR

READ IN PRESET DIDNT CLEAR RMOF

;ERROR

READ IN PRESET DIDNT CLEAR RMDA

;ERROR

-=-RESERVED FOR POWER MONITOR BIT FAILURE--

072426

070066
000000
000000
000

070116

072410

SEQ 0075

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-18
ERROR POINTER TABLE

000000
000000
000000
000000

;ERROR

CANT SET OFFSET MODE BY OFFSET COMMAND

sERROR

CANT RESET OFFSET MODE BY RTC COMMAND

sERROR

CANT RESET OFD BY RTC COMMAND

07%%62
072410
070174
072%22
07% 2
072410

070212
072262
072362
072410

203

CANT RESET OM BY RMDC

EMT203
EHT]

onNNO

o000

NNNYN

;ERROR

sERROR

204

CANT RESET OM BY EBL

EMT204
EHT1

sERROR

RUN AND GO NOT CORRECT FOR FUNCTION CODE

;ERROR

CANT SET IAE ERROR

070§z2
072346
072400
072426

SEQ 0076

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

ERROR POINTER TABLE

EMT206

870315

003614 000000
00361
00

IAE 1S INCORRECT FOR FUNCTION CODE

07
072426
sERROR

IAE IS INCORRECT FOR RMDA

:ERROR

IAE IS INCORRECT FOR RMDC

sERROR

CANT SET AOE

;ERROR

RMR SET WHEN WRITING RMAS OR RMCS

sERROR

CANT SET RMR

07036
072322

;ERROR
070466

215

EMT215

DRQ IS O AND PGM IS 1

SEQ 0077

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

ERROR POINTER TABLE

003704

00374

i
DVA IS NOT SET

DPR IS NOT SET

CANT SET PORT REQUEST BY READING RMCS1
070536
072356

;ERROR

221

CANT SET PORT REQUEST BY WRITING RMAS

EMT221

ENT230

EDT220
EFT220

CANT SET PORT REQUEST BY WRITING RMDA

CANT RESET PORT REQUEST BY RELEASE COMMAND

CANT CLEAR ATA BY RMAS

SEQ 0078

CZi

SEQ 0079

ATA IS RESET BUT RMAS NOT ZERO

;ERROR

CANT RESET ATA BY GO

—_—

Sarn

;ERROR

ATA NOT SET BY UNIT READY

;ERROR

ATA NOT SET BY UNIT READY

ATA NOT SET BY COMP ERROR

;ERROR

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

ATA NOT SET BY COMMAND SEQUENCER

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

ERROR POINTER TABLE

80:070 078426

N
N

[=]elel=]
SNNNN

004072
004074
004076
004100

23
8o

WLE INCORRECT ACCORDING TO FUNCTION CODE

;ERROR

2222

SRR

CANT CLEAR EXCEPTION

N = =

28R

oo
N

CANT SET EXCEPTION

=00\
OoONNN

NN
=

;ERROR

OPI NOT SET DURING RECALIBRATE

SRR

N
g& R
8o

CANT SET IVC

;ERROR

NN~

(==l
]

-a-o-c§

oo
N

NNNN

[=l=lel=

CANT CLEAR IVC

1 N]

:ERROR

[+ ¥

4,68
469
470

242

EHT%‘Z
ENT

EDTY

RECALIBRATE DID NOT ABORT WHEN DRIVE FAULT SET

SEQ 0080

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

ERROR POINTER TABLE

EFT1

072410

;ERROR

OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER

:ERROR

ATA NOT SET DURING RECALIBRATE

sERROR

GO RESET EARLY DURING RECALIBRATE

:ERROR

GO NOT RESET DURING RECALIBRATE

:ERROR

INCORRECT TAG BUS DURING RECALIBRATE

sCRROR

OPI SHOULD HAVE SET DURING SEEK BECAUSE UNIT

DROPPED DURING RECALIBRATE

on
07226
07
07261

072410

071316
072265
07236
072410

grsg
072%6
072410
READY DROPPED

=l=l=1=]

004160

7241

SEEK DID NOT ABORT WHEN DRIVE FAULT SET
071404
072262

SEQ 0081

80:2s8 75410
OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING SEEK

s ERROR

ATA NOT SET DURING SEEK

GO RESET EARLY DURING SEEK

:ERROR

GO DID NOT RESET DURING SEEK

INCORRECT TAG BUS DURING SEEK

OPI NOT SET DURING SEARCH

;ERROR
7157
722

SEARCH DID NOT ABORT WHEN DRIVE FAULT SET

SEQ 0082

p o+4

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 8-24
ERROR POINTER TABLE

MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-25

804328 87521
OPI SHOULD WAVE SET BECAUSE ON CYLINDER NEVER
DROPPED DURING SEARCH

ATA NOT SET DURING SEARCH

;ERROR
071646
072 65
075
072410

GO RESET EARLY DURING SEARCH
071664
072262
072362
072410

GO DID NOT RESET DURING SEARCH

s ERROR

265

SEARCH ENABLE DIDNT SET DURING SEARCH

sERROR

266

INCORRECT TAG BUS DURING SEARCH

EMT266
EHT1

NONONY
=
o
~
=O\ON &~

[=l=l=1=]

;ERROR

:ERROR

67228

OPI NOT SET BY SEARCH TIMEOUT

SEQ 0083

-4 Y

CZRNBAO RM80 DSKLS PT1
ERROR POINTER TABLE

CZRNBAO RMBO DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 8-26
ERROR POINTER TABLE
004426
0044

875t
OPI NOT SET DURING DATA COMMAND

DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET

EBL RESET EARLY DURING DATA COMMAND

072410

EBL DIDNT RESET ON TIME DURING DATA COMMAND

ds
072410
G0 NOT RESET DURING DATA COMMAND

RUN AND GO NOT SET DURING DATA COMMAND

276

EHT%%
EHT

EPT1

INCORRECT TAG BUS DURING DATA COMMAND

SEQ 0084

004520

072410

MACRO V04.00 14~JAN-82 16:33:00 PAGE 8-27
EFT

277

OPI NOT S£1 DURING DATA COMMAND WHEN ON
CYLINDER DIDNT DROP

DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET
0045
0045
0045
004540
584
585
586

587
588
589

590

301

SEARCH NOT ENABLED DURING DATA COMMAND

EMT301

004542
004544
004548
00455

EWT1

READ IN PRESET DIDNT CLEAR RMDC

004552
004554
004556
004560

072244
072 65
07
072410

sPUT ERROR TABLE HERE

SEQ 0085

RNBAQ RM80 DSKLS PT1
ERROR POINTER TABLE

b b e e ek
b b b e
=
PPN

MACRO V04.00 14~JAN-82 16:33:00 PAGE 9

SEQ 0086

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

004562 011

BADTMO: MOV

agss:

004564 80 40
oo:.sgg %gose
104401 004576
004570
0045764 000417

WN—'SQ“VOM’W-‘OOCN

[ V¥ 1V [N Lo

CZRNBAO RMB0 DSKLS PT1
ERROR POINTER TABLE

TYPOC

10440

004640 000240
.SBTTL

oow.s 012737

004650

000402

004666

000005

177777 001330

004652 005037 001330
ooaggg 000240
005227 000000
004
004664 001375

*ADJUST PC=
nesroae STACK romm
TYPE ASCIZ STRING
GET OVER THE ASCIZ

RO,=(SP)

:SETUP FOR TYPING OUT PC

:PUT "HALT(0)* INSTRUCTION HERE IF YOU WISH
“TO STOP ON UNEXPECTED TIMEOUT.

START OF PROGRAM

#-1,CHGADR

;CHANGE RH/RM BUS ADDRESS

START: CLR
START2: NOP
INC
BNE

CHGADR
#0
b

:NO CHANGE IN ADDRESS
;TTY LOOP, WAIT FOR INCREMENT
:0F WORD

B8R

RESET

START2

*RESET THE WORLD

INITIALIZE THE COMMON TAGS

::CLEAR THE COMMON TAGS (SCMTAG) AREA

004670 012706 001114
004676 005026
004676 022706 001154
001374
012706
012737
012737
012737

-(R
(SP)+,(SP)+
658
$

START1: MOV

.SBTTL

004702
004704
004710
004716
004724

sSAVE PC WHERE THE TIME OUT OCCURED

LASCIZ <cnu>/unemcreb BUS TIMEOUT, PC=/
v

ooasgz o1oot.g
004636

ST
CMP
TYPE
B8R

(SP) ,RO

::FIRST LOCATION TO BE CLEARED
: SDONE?

MOV
CLR
(MP

#SCMTAG,R6
(R6)+
#SWR,R6

MOV
MOV
MOV
MOV
MOV
MOV
CLR

uémvm s sLEVEL
#340
SSTRAP, a8 5 : TRAP vecroa FOR TRAP CALLS
{EVEL FAILURE VECTOR
mo aiflwveco ..rousa
7eno-or-moem COUNTER
ufimvec’ siLEVEL
iSSINITIALIZE
noé
NUMBER OF ITERATIONS

:3CLEAR MEMORY LOCATION

::LO0P BACK IF
.6
aue
THE sucx POINTER
SISETUP
SP
#STACK,
001100
S
VECTOR
FEW
A
mue
..mn
FIOTVEC ..1orv;cron FOR SCOPE ROUTINE
nssope
MOV
056370 000020
#340,a#10TVEC+
MOV
oog.uo 0000 s
, SVEMT ..sr CTOR FOR ERROR ROUTINE
#SERROR
MOV
05 318 0000

2
38%
ooog‘
012737
004
062314
737
004740 81
004746 012737 34 888324
004756 012737 330"2
34 ooooig
gr 054140
004762
0561
013737
004770 01
0 1 03
005037
004776

00121
005002 005037
1 001131
005006 112737
005014 01 7;7 005014 88"52
001124
005022 012737 005022

CLR
MOVB
MOV
MOV

mnss

SCAPE
..smoa
SLPERR
#1,SERMAX

$3CLEAR THE ESCAPE ON moa ADDRESS
SSINITIALIZE THE LOOP ADDRESS FOR SCOPE
SETUP THE mon LOOP ADDRESS

::ALLOV ONE ERROR PER TEST

IF. NOT FOUND OR IT
SUITCH assi&m
;13126 FOR AA y.mpuhe
SOFTWARE SWITCH REGISTER.
ur on A
‘=1
SSEQUAL TO
.
VECTOR
ERROR
;:SAVE
SP)
a&
MOV
000004
13749
005030
VECTOR SWICH REGISTER
ERROR
UP
..ser
vs
i
#64$
MOV
oosgr
;3
1
0
005034
MARDWARE
A
FOR
..serup
sua
MOV #DS
831”1024‘
12737 17757
504.5 012737
A HARDWARE DISPLAY REGISTER
#DDISP.DISPLAY ::AND
MOV
17757 ognss
005050
5056 022777 177777
5064 001012
005066 000403

17407

CMP
BNE
BR

#-1,3SWR
658

*:TRY TO REFERENCE HARDWAR
$SBRANCH IF NO TIMEOUT TRAP OCCURRED
= THE HARDWARE SWR IS
¥
*SBRANCH IF NO TIMEOUT

CZRNBAO RMB0 DSKLS PT1 HACRO V04.00 14=JAN=-82 16:33:00 PAGE 9-1

SEQ 0087

T
lll"&llfi THE COMMON
1 71;

&S SK&Na
~NR

gt 81

15 4
15 6

001244

001154

#65$, (SP)

::SET UP FOR TRAP RETURN

658:

MOV

#SWREG, SWR

::POINT TO SOFTWARE SWR

668:

MOV

#DISPREG,DISPLAY

CLR

$PASS

:CLEAR PASS COUNT

678
#SSWREG, SWR

es.use NON=-APT SWITCH
NO,USE APT SWITCH REGISTER

BITB

BEQ
MOV

MOV

.SBTTL

(SP)+,3#ERRVEC ;;RESTORE ERROR VECTOR

WAPTSIZE,SENVM ..TESt USER SIZE uuoen APT

#BADTMO,ERRVEC

#PR6, Enivu

:SETUP FOR UNEXPECTED TIMEOUT

‘LEVEL 6

TYPE PROGRAM NAME

::TYPE THE NAME OF THE PROGRAM IF FIRSt PASS
000042

INC
BNE

#-1
688

::FIRST TIME?
::BRANCH IF NO

BEQ

688

:;BRANCH IF YES

TYPE

98
..rvpe ASCIZ STRING
GET OVER THEASCIZ
B8R
DISKLESS TEST. PT 13<CRLF>
AMBO
=
RNBAO
<CRLF>CI
PASCIZ
éégos:

005200

.SBTTL

000042
001242

000001

001154

000176

000001

MOV

:SETUP “‘TIMEOUT'' TRAP vectoa FOR UNEXPECTED BUS TIMEOUTS

004562
000300

054302

001150

ser VALUE FOR SOFTWARE SWITCH REGISTER
:ARE WE RUNNING UNDER XXDP/ACT?
w62

ane

SZBRANCH IF YES

BNE

g;sua

SWR, #SWREG
718
o

:ARE WE RUNNING UNDER APT?
:BRANCH IF YES

MOVE

#1,$AUTOB

::SET AUTO-MODE INDICATOR

CMP

;?::

70$

SENV.M
08

CMP8
BEQ

..sorruane SWITCH REG SELECTED?
::BRANCH IF NO
$:GET SOFT=SWR SETTINGS

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

gresse

— e
DO =

SQoo

Ko
S53R

SN38NS
NN
W
—o~§u8
=\~ NNNN=NYN

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

82 832g222222
88228
i 382
o
2 g

A ES PRI

:gy

800550 001243

177777

S58%

648:

001230

g3 88338

SVRUR

005076
176

—

wviun

5070
5074
5076

001332
000016

CLR

(MPB
BNE
MOV
CMPB
BHIS

000041

806007 001335
001335
00004

18:

005360

.738:

958
001332

CLRB

BEQ
TYPE

c1e.ao41
3s
ane0, XXDP
#7,XXDP
18
XXDP

FY 7Y,

2
738

;CLEAR *XXDP' LOAD DEVICE STORAGE

.LOADED FROM AN RM80?
*BR IF NOT
$GET oevxce INDICATOR AND NUMBER
?
SIS IT A VALID NUMBER
YES
*NO,

DEFAULT TO DRIVE 0

*CHAIN MODE OR ACT11 AUTO ACCEPT ?
‘BR IF
..rvre

NEITHER
CIZ STRI

*GET OV ER THE ASCIZ
728
" BR
-ASCIZ <CRLF>/NOT TESTING DRIVE
/
CLR

MOVB

'EC?E

-(SP)

XXDP, (SP)
1

:CLEAR WORD ON STACK

*GET DRIVE ADDRESS
*TYPE THE ADDRESS

SEQ 0088

CZRNBAO RM80 DSKLS PT1 HOCRO V04.00 14=JAN-82 16:33:00 PAGE 9-2

w VALUE FOR SOFTWARE SWITCH REGISTER

47 005415

000

49 005422

48 005416

000460

104401

001217

5424

005227

177777

sg OOSlo
oos:.

oos:.oo

001055

28:

104401 005440
000410

- 005564
64
65 005564

:SUPRESS LEADING ZEROS

$CRLF

INC

#-1

:FIRST TIME THRU HERE ?

TYPE
B8R

75
48

BNE

*GET NUMBER OF DRIVES

*NO

..rwz ASCIZ STRING
GET OVER THE ASCIZ

-758: .ASCIZ <CRLF>/TO TEST okivs /

oi8:

113716 001332
10440
001
000
104401 005500
000432

..768:
58

CLR

-(SP)

MOVBE XXDP, (SP)
TYPOS
BYTE 1
BYTE 0
76
TYPE
s
B8R

:CLEAR WORD ON STACK

*GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS
SONLY 1 CHARACTER
*SUPRESS LEADING ZEROS
..rvpe ASCIZ STRING
*GET OVER THE ASCIZ

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

; CHECK ron AUTO nooe OR STANDALONE MODE

005037 001326

66 005570 005737 000042
67 005574 001537
68 005576 012737 000377 001300
71 005604

:CR=LF

YPE

54 005460 005046

55 005462
56 005466
57 005470
5471
59 005472
5476

sYIE

CLR

ST
BEQ
MOV

uTSiz

u
STANDALONE
#377,$DEVM

LET AUTO DRIVE smne OCCUR

.nummc IN AUTO MODE?
*BR IF NO
“SET DEVICE MAP FOR ALL DRIVES

:PROGRAM IS RUNNING IN AUTO MODE = SEE IF SIZING IS ALLOWED

XS12:

BITB

#BIT7,SENVM

:SIZING ALLOWED ?

;% 005

73 005612 001124

132737 000200 001243

BNE

75 005614

005C01

MOV

$BASE ,RO

BITB

ATNTBL(R1),SDEVM

MOV
TYPOS
.BYTE
-BYTE
TYPE
MOV
MOV
ST
BIT
BNE

..SAVE R1 FOR TYPEOUT
:60 vps--ocm ASCII
..m-e 2 DIGIT(S)
sumess mec ZEROS
fv & BLANKS
,BLNKS4
#CLR.RMCS2(RO) ;CLEAR MASS BUS
:LOAD THE DRIVE ADDRESS
R1.RMCS2(RO)
DRIVE REGISTER
*ACCESS
S(RO)
PRESENT?
DRIVE
:IS
#NED ,RMCS2(R0)
*BR IF NO
?

9 715 0157 7 833512 006052

MOV

#SRMS0,10$

22760 024026 000026
oos7
9s
96 005736 001403

CMP

CLR

76 005616 013700 001276
005

79 005626

005634
81 005636

82 005642
005644
005646
005647
gz 005650
85 005654
86 005662
87 oosegg
88 005672
89 005700

TYPE

104401 063474

136137

001507
104401

010146
104403
002
000
104401
012760
010160
5760
032760
001027

063740

001300

001217

063632
000040 000010
000010
00001
01

000010

032760
001426

004000

000000

o
9 os;z

0 : zsg

0026

97 005740

104401

063517

90 005702
91 oosn

000026

18:

BEQ
TYPE

BIT
BEQ

gg:
BEQ

TYPE

128

*NO

:LOAD THE BASE ADDRESS

,SYSTAT

:START FROM DRIVE 0

STYPE *UNIT STATUS:®

:1S DEVICE PRESENT IN MAP ?

118
,SCRLF

IF NO
:BR
:CR=-LF

#DVA,RMCS1(R0O)
1

:IS DRIVE AVAILABLE
*BR IF NO

R1,-(SP)

SASSUME RM80 DEVICE

?
goozs.anomo; ;gg%EvggaT RM80

RM8O ?
:DUALIF PORT
) *BR
#24026,RMDT(RO
YES
$
,NOTRM

*DRIVE NOT AN RM80

C ;l

-2

5744

38 &

}81 005756 880‘1
10§ 885760 104401
}82

5764

00040

010000

000012

2S$:

BR
BIT
BEQ
BR

118

JQOL.RHDS(RO)

sCHECK NEXT DRIVE
:1S MEDIUM ON LINE ?
;B8R IF NO

sDRIVE NOT PRESENT
sCHECK NEXT DRIVE

063551

3s:

TYPE
BR

ngTPRS

4$:
5$:

TYPE
TST
BNE

/NOTAVL
sDRIVE NOT AVAILABLE
AUTSIZ
sAUTO SIZING ON ?
118
:BR IF NO
?{gTBL(R1).$DEVH
:CLEAR DEVICE FROM BIT MAP

005766

104401

063566

108 005776
109 006000
}}? 006006

0010%9
1461
000422

063740

11; 006010
}}‘ 006014

104401
000413

063605

6$:

115 006016
116 006022
117 006024
118 006030
119 006032
}%? 006036

005737
001406
123701
001360
104401
000755

001332

7$:

122 006040
123 006044
124 006050
}%z 006052

104401
104401
104401
000000

063616
063634

127 006054
128 006056
}%3 006062

005201
020127
003661

000007

131 006064
132 006070

104401
000137

001217
0066

189 005793 005737 001326

106

SEQ 0089

~JAN-82 16:33:00 PAGE 9-3

RNBAO RMBO DSKLS PT1
T VALUE FOR SOF TWARE

BI(CB
BR

001300

001332
063534

;CHECK NEXT DRIVE

UNTOFF

sDRIVE OFFLINE
sPRINT DRIVE TYPE

XXDP

:thoeo FROM RM8O0 ?

8s
XXDP,R1
5%
LODEV

8$:
9%:

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

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

.BLNKS2

128:

:BR IF NO
*DRIVE IS LOAD DEVICE

+UNTON

108:
11$:

*IS THIS THE DRIVE ?

+SCRLF

CMNSTART

sCR=LF
sJUMP TO COMMON START

SEQ 0090

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 10
STANDALONE INPUT ROUTINES

§ 006074 004737 060730

gooson

9006100

005227

! 006104 001023

.SBTTL

STANDALONE INPUT ROUTINES

STANDALONE :

177777

JSR

PC,STKINT

INC

#-1

BNE

;INITIALIZE CONSOLE
;FIRST TIME THRU HERE ?

:BR IF NO

;SEE IF OPERATOR WANTS HELP TEXT

13
1 oomog

1§ 006112
13 006114
14 006120
15 006126
19 006130
17 0061346
18 006140
19 006142
20 oomg
51 006152

é e——

104401

104411
012637
123727
001005
104401
104401
000414
104401
104401
000407

063064

001176
001176 000131
001176

104536

063626

001217

25 006154 005737 001330
26 006160 001475
27 006162 005037 001330
28 006166

104401

TYPE

001217

35 006172 104401 063115

18:

,MSHELP

RDCHR
MOV
CMPB
BNE
TYPE
TYPE
BR
TYPE
TYPE
B8R

(SP)+,$TMP1
STMPI.A'Y
1$
,$TMP1
HEL?
ss
N
S$CRLF
is

ST
CLR

CHGADR
7
CHGADR

BEQ

TYPE

,SCRLF

TYPE

4$
CNSLO2

ves
STYPE WARNING MESSAGE

s
$TMP1,$BASE

006244
45 006250

104401
005046

TYPE
CLR

47 006256

10440

001276
063634
001176
160000 001176
063125

063167

58:

006252 113713 001272

48 006260

104401

063634

S0 006 93
51 ooé
52 006274
53 006302
54 006304
55 006310
56 006312

852637
1430
oszm
101003
104401
oogrss
113700

001176
001000 001176
063176
001272
68:

49 006266 104413

:CR=LF

rvpe E cunnsm
sus ADDRESS
SBASEFOR TYPEOUT

BR
MOV

101403
104401

:CHANGE RH/RM BUS ADDRESS ?
*BR
IF NO
*NO CHANGE NEXT TIME

CNSLO1

41 006234 000756
42 006236 013737 001176 001276 4$:

39 006226
%0 006230

:TYPE °N'

:CR-LF

sgmosue TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY
$BASE, - (SP)
,BLNKS2
(SP)+,$TMP1
58
#160000,8TMP1

013746
104402
104401
104413
012637
oom;
022737

*GET RESPONSE
*SAVE AND ECHO RESPONSE
*WAS IT A YES RESPONSE ?
N
STYPE 'Y’
SYES = TYPE HELP TEXT

gee IF USER WANTS TO CHANGE UNIBUS ADDRESS

MOV
TYPOC
TYPE
RDOCT
MOV
BEQ
CMP

33 006176
006202
§" 006204
5 006210
006212
7 006216
006220

;WANT HELP ?

BLOS
TYPE

MOVB

,CNSLO3
<(SP)

co npe-ocm ASCIICALL DIGITS)
hrpe 2 BLANKS
:GET NEW BUS ADDRESS
*CARRIAGE RETURN?
SYES=SKIP TO NEXT ENTRY
:BASE ADDRESS IN 1/0 PAGE ?
*TRY AGAIN
*STORE NEW BUS ADDRESS

SVECT1,(SP)

:GET CURRENT VECTOR ADDRESS

TYPE

,BLNKS2

;TYPE 2 BLANKS

BEQv
CMP
BHI
TYPE
BR
MOVB

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

*CARRIAGE RETURN?
SYES=SKIP TO NEXT ENTRY
.vecvon ADDRESS < 1000 ?
SYES!!
rvps "WARNING MESSAGE
*RETRY
*GET CURRENT VECTOR ADDRESS

TYPOC

RDOCT

*GET NEW VECTOR ADDRESS

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

SEQ 0091

STANDALONE INPUT ROUTINES

60
61

&
64

7g8

0‘s<377>.lo
(RO) ) ¢+
R06-2(R0)

177400

23 177776

§§§§§§§§

81
127
1137
11373

1176

&
67 006354 005227 177777

063050
000377
005

001300

81 006436
82 006444
83 006446
84 006452
85 006460
86 00646%
87 00647
gg 0064

0237%2

001176

000015

01
023727
30
023727
27
23

001176
001176

000060

001176

000067

90 0064
31 006476

1
012637

98
99
100
}81

10§
104
}OS

S35 Ssosososss

G4
95

Vi
— bt O NN

104401
012737
000137

3
4
00654

727
3
401

000711

550 013701
042701

006554
560

1 ;

189 8&%92 1813 7
i
gy
e
000127
006606
110

06323
00121
001
063452

001176

8s:
9$:

:SETUP TRAP CATCHER ADDRESS_AND
:PUT HALT IN TRAP ADDRESS +2
:GET NEW VECTOR ADDRESS

:GET ADDRESS FOR INTERRUPT VECTOR
sGET PRIORITY LEVEL

;STORE NEW VECTOR ADDRESS

108:

:BR_IF NO

i
e

sCLEAR DEVICE MAP

.CNSLO?
,MSDRVS

;AUTO SIZE

:ECHO QESPONSE

STMP1,#'7

(SP)+,$THP1
STMP1,4CR
148

.CAgRIAGE RETURN ?

STMP1

000067

STMP1,#'7
13
°§N$L00
STHP1 R1

:GET RESPONSE

TYPE
°*

*ECHO nésmss
*NUMBER < 0 ?
:YES
.waea >7 72

STYPE ** 2ILLEGAL INPUT"*
RETRY

:R1 = DRIVE NUMBER

AmréumSDEVM_
"
C

#377,$DEVM

14$:

:SET DEVICE MAP FOR ALL DRIVES

NUEBER <0?
YE
:=3HBER >7?
$ILLEGAL INPUT

%rm M0

801300

CARRIAGE RETURN ?
:YES

000060

13%:

;GET_RESPONSE
IS INPUT “ATM 2

STMP1,#CR
128
STMP1

13$
128

117

;TYPE 'DRIVE(S): *

«5955.soevn

12$

000015

'E;PE INPUT INSTRUCTIONS

sYES, TYPE "ALL'* AND GO

§TMP1,4°0

118:

sFIRST TIME THRU ?

Xsi2

128:

5604

BN
TYPE

(SP) +,STMP1
STMP1,#°A
108

000101

063374

17777
3;;

XTEN;ION

s INCREMENT RO BY

'DIALOGU%NTO INPUT1DEV1CE NUMBERS

7s:

001002
104401
104401
005037
104401
104411
012637
023727

001176

STMP1,SVECTI

001272

68 006
9 006
006
71 006372
;g 00637%
006402
74 006404
75 006410
76 00641
77 0064
78 006424
;3 006432

001176
001176

(R8)0
IRP
SVECT1+1, (RO)

sCLEAR SIGN

AUTSIZ
+SCRLF

Xsiz

. ;SET DEVICE IN MAP

NOT AUTO SIZE WHEN TYPING DRIVE STATUS
20
;60 SIIE DEVICES

ZRNBAO RM8O DSXLS PT1 MACRO V04.00 14=JAN=82 16:33:00 PAGE 11

SEQ 0092

TANDALONE INPUT ROUTINES

; 00661%
104401 883416
006612
001300
4 oowg 13700
1004
5
90066 6
006630

104401
104401

82%061
445

10 006644
11 006650

01 705
00500

0001

8 006634 81 7g1
9 006640 010137

1470
001466

006656

1% ooeesg

15 006662
16 006664
006666
006670
006671
17 ooecgs
18 006700

19 006704
20 006706

00141

104401

18:
28:

1; 006652 %ozog
13

ASSEMBLE TEST QUE FROM DEVICE MAP

CMNSTART :
TYPE
MOV
BNE

006302
105702
21 006710 oou.og
22 006712 00520

38:

24
006716
gg 006720

48:

23 3827"' 000756

28 006726

005011
104401

001217

004737

054322

006730 000425
30 006732 104401
006736 000413
006766

31 006766

gz 006772
3 006774
3% 007000
gz 007004
37 007006
go 007010

005737

oo1oo;
000137 004652
000137 054272
000413

ooo;l.g
105737

001300

9 007014
41 007022
:.5 ooro%
43 007030
us. 007034

oo1og7
005737 000042
oo1oo;
00013 oo:.ssg
000137 056427

46 007034
47 007040
48 007044

105037
005037
004737

7060

000002

40 007016

001116
0012
06073

49 007050 mgm
9oog
7056 012746 00706

648

58:
68:
READY:

18:

28:

:R1 = ADDRESS OF FIRST ENTRY IN QUE
SINITIALIZE ENTRY POINTER

BEQ

R2.RO

gom

STYPE *, '
STYPE "NONE'
‘R2
*R3

= DEVICE POINTER
= DEVICE NUMBER

*1S THIS DEVICE IN MAP ?
*NO !!

STYPE *,

MOV
MOV
TYPOS
BYTE
BYTE
MOVB
ADD

R3, (R1)
*YES = ENTER DEVICE NUMBER IN QUE
*:SAVE R3 FOR TYPEOUT
R3.=(SP)
$36G0 TYPE=-OCTAL ASCII
SSTYPE 1 DIGIT(S)
1
0
: *SUPPRESS LEADING ZEROS
ATNTBL(R3),1(R1):ENTER ATTENTIOM BIT IN QUE
#2,R1
*ADVANCE ENTRY POINTER

ASL
TST8
BEQ
INC

CLR
TYPE

JSR

::658:

#TSTQUE+2,R1
R1, TSTQUE

,COMMA
,NONE

#1.R2
R3

BIT

;TYPE *DRIVE(S) TO BE TESTED®

*RO = DEVICE MAP
*BR IF DRIVES TO TEST

MOV
CLR

;SIZE FOR CLOCK

006740

000042

MOV
MOV

TYPE

063061

010311
010346
104403
001
g6oo
116361 063740 000001
062701 000002 -

TYPE
TYPE

DRIVES

$DEVM,RO
1$

R2
R2
48
R3

*ADVANCE DEVICE POINTER
:DONE ALL DEVICES ?
YES
*ADVANCE DEVICE NUMBER

(R1)
,SCRLF

*TERMINATE TEST QUE
:TYPE CR-LF

PC,SIZCLK

:ENTER NEXT DEVICE

;SEE IF CLOCK PRESENT

BR
TYPE
BR

6
658
648

*YES = CLOCK IS PRESENT
::TYPE ASCIZ STRING
:3GET OVER THE ASCIZ

TST

;ANY MONITOR PRESENT ?

NOP
TSTB

$DEVM

;READY TO START TEST
*ANY DRIVES IN MAP ?

.ASCIZ

BNE
JMP
JMP
B8R
BNE
ST
BNE
JMP
JMP

READY1: CLRB
CLR
JSR

MOV
MOV
RTI

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

5%
START
$GET42
READY1
28
1$
START
$GET42

STSTNM
STIMES
PC,STKINT

#PRO, = (SP)
#64S.~(SP)

*BR IF YES
:JUMP TO START
*RETURN CONTROL TO MONITOR
*BR IF YES
*ANY MONITOR PRESENT ?
*BR IF YES
:JUMP TO START
*RETURN CONTROL TO MONITOR
;RESET TEST NUMBER
SINITIALIZE NUMBER OF ITERATIONS
SINITIALIZE TTY

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

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

SEQ 0093

STANDALONE INPUT ROUTINES

00706

gg 007062

117737

172400 001234

s§

§3 007070 omgg
54 007074 0137 °92§"
§5 007102 11 729

gg 007110 012737 006400 o1 34

59 oomg 1ou.g1 001217
105737 001300
60 8871
61 007126
"i 007130
63 007134
007140

oom;

00714

648:

007144 005
64
65 007146 005304

66 007150 oo1§76
67 007152 005304
68 007154 001376

Q@TSTQUE,SUNIT

;LOAD DRIVE NUMBER

:CLEAR MASSBUS comousa smcr oaxve AND SET LAST TRACK ADDRESS

MOV
MOV
MOVB

umsus ADDRESS
SBUS
»ch
kncszmg
#CLR
ECT DEVICE unm TEST
se
@TSTAQUE,RMCS

ma'nl'm.u.smx

TYPE
1ST8

S$CRLF
$DEVM

:CR=LF
*ANY DRIVES IN MAP ?

.BYTE

..ms 2 DIGIT(S)

BNE
DEC
BNE

Ré

BEQ
TYPE
MOV
TYPOS

18:

SSET LAST TRACK = 13.

POV

;TYPE DRIVE men TO BE TESTED(SUNIT)

001406
104401 °33‘§°
013746 001234
104403
00

MOVEB

"BYTE

CLR
DEC

1$
MSGDRV
$UNIT,=(SP)

Ré&
Ré

..-

:BR IF NO
STYPE 'DRIVE®
*:SAVE SUNIT FOR TYPEOUT
$:TYPE DRIVE NUMBER
::60 rws--ocuL ASCII

ZEROS

UPPRESS mes
TWO LOOPS ARE ADDED TO
fuess
‘WAIT FORT

>»n

2—

wno

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

GE USAGE

.SBTTL

sREGISTER ASSIGNMENTS

)
I
e e
e T

UNIBUS ADDRESS OF RH_CONTROLLER

:RO

ENTRY IN TEST QUE CORRESPONDING TO THE
&D‘??angf

:R2,R3

:R4,R5

WORK ING REG!STERS FOR TEST IN PROGRESS, MUST BE
SAVED BY SUBROUTINES
GENERAL WORKING REGISTERS, ARE NOT SAVED BY

:R1

;:
:R?

S
S UBROUTINE
STACK POINTER

LINKAGE REGISTER TO SUBROUTINES

'STORAGE ASSIGNMENTS

TEMPORARY STORAGE, NOT SAVED BY SlEROUTINES
:$GDADR,$BDADR ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE,

:$TMPO-STMP4

—

(2]

wé

:$GDDAT,SBDDAT EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT
A REGISTER ERROR
ALSO THE ADDRESS OF

:$TSTN

TEST NUMBER

sSUNIT =
sRGINBF =

NUMBER OF DEVICE BEING TESTED
THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR

:RGOTBF

THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR

;

E&g’#flg{figi}ifl AND I35 USED WHEN READING STATUS AND

EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE

WRITTEN IN REGISTERS

SEQ 0094

@4 RNBAO RM80 DSKLS PT1
TRANSFER TEST
n

SEQ 0095

MACRO V04.00 14=JAN-82 16:33:00 PAGE 13
3222222223222 22222232223 2322333122333 3 28332222222 ddddiidiiiidddd)

*TEST 1

TRANSFER TEST

3333322222822 8222222222222 2232222

t §T1:

sSCOPE CALL

130
8127 7

$BASE ,R
TSTQUE ,R1

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

#0,R2

:R2 = REGISTER INDEX

#STACK 3»

#1,STESTN

001226
MOV

012702

iRt diiddiiidilidd)

2:SET TEST NUMBER IN APT MAIL BOX

:CLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET

Hn
N

AT SBDDAT

2 0$
(R1) ,SGDDAT

#*CUNTMSK $GDDAT
#IR, $GDDA

——

—_—

PC,CNTCLR
:GO CLEAR CONTROLLER
RMCS 2(R0) ,$SBDDAT
sSTORE RMCS2
#NED, .$B
$8 DDAT

RO, $8DADR

parPurd

i 0s:

gRHCSZ.sflbADR

001136

608

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

208:

RO.R3
R2.R3

R4
(R$)

#NED _RMCS2(RO)
708
PC,CNTCLR

, SBDDAT
RMCS2(RO)

:R3 = REGISTER ADDRESS

:READ_REGISTER
:;1S “NEDTM* SET??
:NO

;GO CLEAR CONTROLLER

:STORE RMCS2 AT SBDDAT

ggen.saooAt
$
(R1) . SGDDAT
#*CUNTMSK ,SGDDAT

R0, $80ADR

sg88
5355

LESRERESY

gflfl(SZ.‘BDADR

608

;WRITE THE REG] STER ggggs INDEX IS IN R2 AND EXIT TEST IF THE WRITE
DOES NOT SET ‘NED

50s:
000010

MOV
8l T
BE G

#0, (R3)

#NED,RMCS2(RO)
708

sWRITE REGISTER

:IS ' ‘NEDTM SET??
*NO!!

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

SEQ 0096

ANSFER TEST

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

a:& 5N

ges NNNNIINNI

2888232288

223
S

70
0227
17
022702

888885

;AVAILABLE DEVICE REGISTER
40s:

ADD
CMP
BEQ
CMP

000004
022702 000010
oo178
000016
022702
00173
000022
022702
00175
ozzm; 000046

BEQ

177

CMP
CMP
BEQ
CMP
BEQ

BEQ
CMP
BHIS

10325

#2,R2
#RMMC ,R2
408
#RMBA,R2

onmce TO NEXT REGISTER
$1STHIS RMWC??
vss - TRY NEXT REGISTER
xsHIS RMBA??

408
#RMEC2,R2
108

:1S THIS A LEGAL REGISTER

408

#RMCS2,R2
408
#RMAS ,R2
408
#RMDB ,R2

YES = TRY NEXT REGISTER

1s THIS RMCS2??
*YES= TRY ANOTHER REGISTER
;1S THIS RMAS 2?
“YES - TRY ANOTHER REGISTER
1s THIS RMDB??

:YES - TRY ANOTHER REGISTER
*YES = TRY THIS REGISTER

éggT *NONEXISTENT DEVICE' ERROR FOR EVERY REMOTE REGISTER ADDRESS

%2737 001276 001136

ooo?g; 054046

608:

'5'3}'

JMP

gaAse.sevon

$EOSP

:STORE BASE ADDRESS

;60 SELECT NEXT DEVICE

708:
ttt'ttttttttttttt.ttt'tttt'tttttQttlttt!'ttt.tttt..t'tttt't'.t'

CTOD TEST

LRTEST 2

‘g;slttttt.t'tttt'ttttt"".t.'tt'tt.t..ttt'ttttt.tlttttt.tt.tttt

COPE
NOP
MOV
MOV
MOV
MOV
JSR

000004
000240
o1§7oo 001100
013700 001276
013701 001466
012737 000002 001226
004737 055156

#STACK, SP
$BASE , RO
TSTOUE ,R1
#2,$TESTN
PC,CNTCLR

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

(D) :LOAD RMDALOAD RMCS1
sRRcS]
IN RE
000000 - ITE ONES
76
012760
RO)
a-%.méu
MOV
1"7”997
012760
:LOAD RMDC
#CYLMSK ,RMDC (RO)
MOV
012760 001777
12760
12760

012702 000001

7604

89 007612
30 007614
92

MOV
MOV

017200 0000 s
017200 0000

016037 000000 001336
001344
16037
001 75
16037 000034
1&7 000032 00137
00 365
100

#5CXNUOF, RMOF (R0)
#*CXNUOF_RMOF (R0)

:LOAD RMOF
*LOAD RMOF AGAIN TO SET SSEI

;READ REMOTE REGISTERS TWICE

MOV

mov
MOV
MOV
MOV
DEC
BPL

2 .R2

-STORE RMCS1 IN INPUT BUFFER
nncsmm RMCS1]
RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
mc(a ) "RMDCI :STORE RMDC IN INPUT BUFFER
RMOF (RO) RMOFI :STORE RMOF IN INPUT BUFFER
5
108

;SEE IF ANY ONE BITS CAME BACK

-d

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

BIC
BNE

001336

ST
BNE

001344
176000

001372

160577

001370

BIC

BNE

BIC

BNE

#°CILF76,RMCS1] :IS RMCS1 02?
:NO!!
208

RMDAI
20$

:1S RMDA 0?2
*NO!!

208

:NO!!

208

:NO!!

#XNUDC,RMDCI

#XNUOF ,RMOFI

:IS RMDC 0??

IS RMOF 0 ??

; CANNOT 25?”“";‘ A ONE FROM ANY REMOTE REGISTER
208:
::.tttttl't.t..t..t.t'.'."t"....tt.ttt...'t.t.t.ttt..ttttt"t..

MASSBUS INITIALIZE TEST

S*TEST 3
13:

382
8
N

235EN
R

s
22
[
N

gss

000000
000014
100042
177701
1527
177777

S8
ot
ey b

OO0O00
o0

LRARURS

b
R
e
e e
e e

MOV
MOV
MOV

055156

7752

#STACK, SP
$BASE , RO
tgroué R1
#3,$TESTN
PC,CNTCLR

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

:WRITE ONES IN SELECTED REGISTERS

7710

e B

) ) e
Yo
—d e e e

D o oD o wmd =D
b cd cd
e
b

VIS WN =2 OV NOWVSWN=O

D —h D

MOV
MOV
MOV
MOV
JSR

001226

:SCOPE CALL

's‘sgPe

:LOAD RMCS?
#ILF76 ,RMCS1 (RO)
#-1,RMER1(RO) ;LOAD RMER1
#-1_RMER2(R0) :LOAD RMER2

;INITIALIZE MASSBUS WITH A CLEAR

JSR

PC,CNTCLR

:60 CLEAR CONTROLLER

:READ THE REGISTERS THAT WERE WRITTEN

MOV
MOV
MOV

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

;STORE RMCS1 IN INPUT BUFFER
*STORE RMER1 IN INPUT BUFFER
*STORE RMER2 IN INPUT BUFFER

:SEE IF ANY REGISTER u;rs WERE CLEARED
#CILF76 nncgu SSET ANY BIT NOT WRITTEN
BIS

BIS
CMP
BNE
CMP
BNE
CMP
BNE

177777
177777

XNUER2 , RMER21]
#-1,RMCS11
1o¥
#-1,RMER1]
108
#-1,RMER2I]
108

;ANY ZEROS IN RMCS12?
SYES!!
SANY ZEROS IN RMER]??
SYES!!
SANY ZEROS IN RMER2??

sNONE OF THE BITS WERE CLEARED
108:

EMT

':.t.'l...ttlt...t.t.'QQ'."'Q..t..!'.'t.'t.tti..fi.tt.t!'t.t.""

J*TEST &

CLEAR STUCK ACTIVE TEST

-4

Faoos

(o)

SARIV2SELURRRA
88888888
~N SN =
~
g8
> 8
o
oOn

e
e e e

177701

igtglttt...lt.'.Q.Qt'."'t'."'ttttt...tt'..'ttt.t'tt'.'*'.ttt'tt

-l

SEQ 0097

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

SEQ 0098

czmuo RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-3
CLEAR STUCK ACTIVE TEST
IONYAERERRARAARANRNANAANAARAAANARCAANAAOOAOES
st RARARRANRRNANAAR

tére:

100
1
1
1

1
137

SCOPE
MOV
MOV
NOP

1190
1276

csncx 3’
ER

:SCOPE CALL
:LOAD THE STACK POINTER
:RO = UNIBUS ADDRESS

#0MD ,RMMR1(RO)

:LOAD RMER1
:LOAD
RMER
:LOAD RMMR

1
13701 001466
MOV tsroué
: 10046 012737
001226
MOV "%, m&m
PC,CNTCLR
JSR
}%«2 010054 004737 055156
}21
1% s ".‘5‘
"‘“‘IE%?
1:.§ 010060
010066 012760
81%760 177777
1727777 838&2
MOV - rss{
-1 nneazmo’
MOV

R1 = POINTER TO DEVICE
..ssr TEST NUMBER IN APT MAIL BOX
:60 CLEAR CONTROLLER

}zg 010074

012760 000001 000024

16037 83834." 88135
016037
1%

:READ TEST REGISTERS
AND SEE IF ANY BITS ARE ON

104026

108:

1% 810105
148 010110

149 010116
150 010124
151 0101
1s§ 0101
153 010142
154 010144
155 010152
156 010156
}gg 010156

139;7 820024 ootge
7
00135
821 11
7 040200 001400
og1 5
032737 000001 001362
001001

159

RMER mg)
LRMER1]
RMER2 (RO)
2:

EMT

MOV
BIC
BNE
BIC
BNE
BIT
BNE

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

RMMRT(RO) m i
*STORE RMMR1 IN INPUT BUFFER
o&s.mm
:DONT ACCEPT UNSAFE
1
*BRANCH IF ANY OTHER BITS ON
#SK1'DVC,RMER2] :DONT ACCEPT SKI OR DVC
108
*BRANCH IF ANY OTHER BITS ON
#DMD,RMMR1
*SRANCH IF DMD IS ON
108

Q'tt.t.'t'.t.tt..t"t.'...'t.t.ttt'tt..'t.t"'..t.tt..ttt..t..t

LATEST S

térs:

010156
010193

137
010172
01
;91
- 010176 012737
161 010

1276

1466 001226

005

}g o1o$32 00692; 055156

164
165 010212
169 10

0127
127
167
010226
012760
168 018
12760
01 48 12760
;93 010250
012760
17; 10356

TRISTATE TRANSFER TEST

X 2323232323322 322323232223222:3¢%3%t33%:33333333133313331333333333333233131%]

8}8}23 ooooo4‘°
001100
010162 01

171

MOV
MOV

12760

1%
175 010553
wios 015760
12760

9999
1777

177777
177777
177777
000

606
000(

SCOPE
MOV

:SCOPE CALL
THE STACK POINTER
.Lg»

MoV

MOV
MOV

osrm 3?
ER
tsroué
R1
#5,8TESTN

CLR

JSR

PC,CNTCLR

:CLEAR ERROR FLAGS

#-1_RMER1(R0)

:LOAD RMER1

BUS ADDRESS
Rl
=
romm
TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX

*G0 CLEAR CONTROLLER

;WRITE ONES IN sasmo uecxs;sns
MOV
1%F76,RMCS1(RO)
:LOAD RMCS1
"oV
LRMOA(RO)
:LOAD RMDA

MOV
MOV
MOV

1.
(a8>
#-1_RMOF(RO)
#-1_RMER2(R0)

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

WRITE Z2EROS IN SELECTED ascxsms

T
32

MOV

ROV
MOV

.mcsm )

‘AMERT(RO)
* RMOF (RO)

:LOAD RMCS1

LOAD
*LOAD RMERY
RMOF

TRISTATE

TRANSFER TEST

010

127

176

}g 810?1’2 815723 838888 388842

180 010

16037

}ss 10

16037

181 18
"i 1
183 010
184 810 52

139

16037
16037
16037
016037

1336

1
gz

188 o1o§og
189 01037
190 010400
191 010406
19§ 010414
19 8104.
194 010426
195 010432
199 010436
197 010442
198 01
199 010452
200 0104
201 01

0 ;
85 7
052737
7
gs
052737
005137
005137
005137
005137
005137
005137
043702
702
70

1272777
1777%
1605
1
0015
01
001344
00135
00137
00137
oougg
001
001344
83135

010472

043702

00137

sgg 01

MoV

MOV

1;
137

:LOAD RMER2

RMCS1(RO) ,RMCS1]

E RMCS1 IN INPUT BUFFER

MOV

RMER2 (RO ,RMER2I

:STORE RMER2 IN INPUT BUFFER

MOV
MOV
MOV
MOV

RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
-STORE RMER1 IN INPUT BUFFER
RMER1 (ROS ,RMER1]
RMOF(RO) ,RMOF] :STORE RMOF IN INPUT BUFFER
RMDC (RO) RMDCI :STORE RMDC IN INPUT BUFFER

& usno
ZERO BITS WRITTEN
Somm FOR :ACCUMULATE
;CHECK EACH mxsrgn
ZEROS IN R
#-1.R
MOV
BIS
8IS
BIS
8IS
coM
coM
com
com
coM
coM
BIC
BIC
BIC

137

JRMFR2(R0)

:LOAD RMDC

:READ BACK ALL REGISTER

1344
135
137
137

0014

LRMDC (RO)

#°CILF76,RMCS1] :SET ALL BITS NOT WRITTEN
, RMOF
#XNUOF
#XNUDC ;RMDCI

BIC

#XNUER2 , RMER21]
;COMPLEMENT REGISTER CONTENTS
RMCS1]
RMDA]
RMER1]
RMOF |
wcs
RMER2]
;ACCUMULATE ALL ZERO BITS
RMCST1,R2
RMDAI ,R
RMER11,R2
RMOF I ,R

MOV
CLR
EMT
BIS

R2,S$BDDAT
$GDDAT
5
#8ITO0,R2

:SAVE RESULT FOR TYPE
:LOAD EXPECTED RESULT
:SET ERROR FLAG

JSR

PC,CNTCLR

:60 CLEAR CONTROLLER

BIC

RMDCI .R

RMER2] ,R2
BIC
:BRANCH IF EACH BIT IS ZERO
108
BEQ
:ONE OR MORE BIT POSITIONS ARE NOT ZERO

1§ 010522

108:

010476 omo; 001400
§ 010502 00140

208 010504 010237 83114
00114
209 010510 005037
210 010514 104005
}1 10516 052702 000001
i 010522 004737 055156

:PRESET SELECTED REGISTERS TO ZEROS

RMER2 WERE CLEARED BY INIT)

*(ASSUME RMCS1, RMER1,

1
7
012760
%
99979
1u
012760
10556
gsi4 10550
10594. 12760 017

;WRITE ONES IN SELECTED REGISTERS

&uwa

012760 000000
17 010526
012760 000000 00003
13 gws
50 10542 012760 000000 0000

105
81
10606
010614

12760 017
127
1
177777
012760
012760 176250

MOV
MoV
MOV

MOV
MOV
MOV

14
2

010622 016037 000000 001336

MOV
MOV
MOV
MOV

.RMDA (RO)
“RMOF (RO)
"RMDC (RO)

:LOAD RMCS1
sl ni RMC hno) :LOAD RMDA
c-"i.mémg)
:LOAD RMOF
#*CXNUOF , RMOF (RO}

:LOAD RMOF AGAIN TO SET SSEI
, RMOF (R0)
#*CXNUOF
rgxuuoc RMDC (RO)
*LOAD RMDC
#-1,RMERT (RO) '50” RMER1
:LOAD RMER2
#*CXNUER2, RMER2 (R0)

sREAD ALL REGISTERS
MoV

;LOAD RMDA
*LOAD RMOF
:LOAD RMDC

RMCS1(RO) ,RMCS1]

;STORE RMCS1 IN INPUT BUFFER

-4

SEQ 0099

c;m RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-4

2
N

LS
~N—=

oD~

:CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ
BIC

137
14

b
b
ed

g8 I8

d o
D
d
o
—

052702

005702

001130
012702

25%:

R2
RMCS11,R2

, RMER21
#XNUERZ

BIS

I
RMDALR

8IS
BIS
CMP

memi.n%
RMER2I .R
#-1.R

;ACCUMULATE ONES IN R2
:ACCUMULATE ALL ONE BITS

I .R
RMOF
RMDCI .R

208

;SEE IF EACH BIT POSITION WAS ONE

*BRANCH IF NONE STUCK

R2,$BDDAT

:SAVE RESULT FOR TYPE
*EXPECTED RESULT

gg\vf

z—i.scoon

BIS

#8IT1,R2

:SET ERROR FLAG

BNE
MOV

308
#1.R2

:ANY ERRORS DETECTED 2?

JSR

PC,CNTCLR

:6G0 CLEAR CONTROLLER

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

;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS

S33232
gNONON

b amd

MOV
MOV
MOV
MOV
MOV
MOV

R2,RMDA (R0)
R2.RMOF (RO)
R2 .RMOF (R0)
R2.RMDC (RO)
RO.RMER1(RO)
R2.RMER2(R0)

<gg R
on

:READ BACK THE REGISTERS
RMDA(RO) ,RMDAI
v

MOV
MOV
MOV
MOV

SERRIRS

CLR
BIS

MOV

001140

— cd o

b =
—

e omd cmd

[=]=leleleTlx]

b =2 o
b

00000

—=d

, RMOF |
#XNUOF
#XNUDC SRMDCI

:ONE OR MORE BIT POSITIONS ARE NOT ONE

104006

e
R
A
e e
]
o
e
) B el ekt
o
e mad md ol kb

OO0OO00O00O0

:CLEAR ALL BITS NOT WRITTEN

#CILF76,RMCS1]

IC
BIC

BIC

NN
=2000000

RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
(RO) RMOF] :STORE RMOF IN INPUT BUFFER
RMOF
RMDC (RO) RMDCI :STORE RMDC IN INPUT BUFFER
:STORE RMER1 IN INPUT BUFFER
RMER1 (ngi.mm
*STORE RMER2 IN INPUT BUFFER
(RO) .RMER2]
RMER2

177777
001344

:STORE RMDA IN INPUT aurrga

RMOF (RO) CRMOF1 :STORE RMOF IN INPUT BUFFER
RMDC (RO) CRMDCI :STORE RMDC IN INPUT BUFFER
:STORE RMER1 IN INPUT BUFFER
OS
, MER11
RMER1(R
*STORE RMER2 IN INPUT BUFFER
RMER2 (RO) .RMER2]

;CHECK REGISTER cgmems FOR CORRES? PATTERNTED ONE BIT
CLR

MOV
MOV
BIS

COM

001370

:LOAD RMDA
:LOAD RMOF
:LOAD RMOF AGAIN TO SET SSEI
:LOAD RMDC
:LOAD RMER1
:LOAD RMER2

BIC

MOV

#-1,R4
anoii.as
RS.R

RS,R4

RMOF I ,RS

:R3=ACCUMULA

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

:GET GOOD BITS FROM RMOF

‘

SSNNI
NNNN

—_—

SRAFIAARSRRRR
A

137
135
14

BEQ

MOV
MoV
MOV
MOV
MOV

1344
137

BIS
BIS

010;;7
012737

OO00O00O0O0O0

R R
B

L
ma
w

—3

-4

dgm
W
NN
NNNNY

—

00000
&H
o

S
NS S e S e e

OgX
NN

nannunInININNIN
3
33o32
R SRS B3=JAN
NNONINONN

SEQ 0100

00 14=JAN-82 16:33:00 PAGE 13-5

-l

RNBAO RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-6
TRISTATE TRANSFER TEST
#XNUOF ,RS
BIC
160577
11124
e
g
fes
3
RS
COM
18
88 0111
89

0111

114

1 011142

m
; 11152

01115¢

5 omgs

0111

160577

BIC

#XNUOF ,RS

013705 ogm

MOV

05 so;

BIC

BIS

RMDCI RS
RS
#XNUDC

BIC

#XNUDC RS

RMER11,RS

705
5

BIC

705 16005

00510

705

504

COM

176000

BIC

8‘"9"

; 705 001352

MOV

011172

005105

COM

m g

011174

1 omrg
011202
011
8" 1
5 01121
011216
7 011220
011222
011224

10 011
11 0N

1; 011
13 011234
314 011236
315 011242
316 011246
g}; 011250

0503

013705 001400
042705 001527
50503
5105
8705 001527
504
010205
005105

MOV
BIC
8IS
COM
BIC
BIC
MOV
CoM

040204
050403

BIC
BIS

324 011262

BIC

040503

020302
oouog
otogs 001140
010337 001142
104007
04

CMP
BEQ
MOV
MOV
EMT

SEQ 0101

RS,R%

:GET GOOD BITS FROM RMDC

RS.R3

RS, R4

;GET GOOD BITS FROM RMER1

RS.R3

RS, R4

RMER2I RS
#XNUER2 ,RS
RS,
RS
#XNUER2,RS
RS,
ag.ns
R

;RESET ALL ONES IN R3 EXCEPT
*FOR THE TEST BIT

R2.R%
R&.R3

;RESET TEST BIT IN Ré
:COMBINE ACCUMULATED 1°S + 0'S

RS.R3

R3.R2
26$
R2,$GDDAT
R3.$BDDAT
7
30s

:GET GOOD BITS FROM RMER2

:1S PATTERN 0K??
SYES!!
;SAVE TEST PATTERN
*SAVE RESULT
:SKIP TO NEXT

-ADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST

268:

011252
§%1 on%sz 006302

323 011256

BIC

o:.gso&

gon 5¢

BIS

001402

137 011006

332

ASL

JMP

258

BEQ
30$:

308

:SHIFT THE BIT
SEXIT IF DONE

;:tttttttttttttttfitttt""tttttttttttilttlttttttttttt.l.tttttttt'

SATEST 6

;*NOTE: REGISTER SELECT 16 IS TESTED BY THE “ILR'* TEST

onzag
011262
011264
onzeg
01157
011 73
— 011302
3%
35

:'ttttttttttttttttttttt'tt.t'Qtttttt.tt.ttt.tt.ttlttt'tttt.t.tttt

000004
ooo;l.o
01
013700
01 7g1
012737

Ts16:

001100
001276
001466
000006

SCOPE
:SCOPE CALL
NOP
MOV
#STACK 39
:LOAD THE STACK POINTER
MOV
$BASE ,R
‘RO = UNIBUS ADDRESS
MOV
TSTQUE ,R1
*R1 = POINTER TO DEVICE
001226
MOV
#6,S$TESTN
$:SET TEST NUMBER IN APT MAIL BOX
:THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR
*EACH DEVICE REGISTER

cgl
T

€z RNBAO RM80 DSKLS PT1 MACRO V04.00
16
REGISTER SELECT TEST

SEQ 0102

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

iz
38

SEL
REG
(16.8,64,2,1)

NAME

RMEC2

00000
00001
80010
0011
00100
00101
00110
00111
01000
01001
01010
01011
01100
01101
01110

RMCS1
RMDS
RMER1
RMMR1
RMAS
RMDA
RMDT
RMLA
RMSN
RMOF
RMDC
RMHR
RMMR?2
RMER?
RMEC1

4
5
£
347
348
349
350
351
352
353
354

:
:
:
:
:
:
:
:
:
:
:
:
E
:
:

57
58

:EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE,
*STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1.

363

*THE ALL ONES WORD WILL BE WRITTEN

0
1

ggz

*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 RMERT,
LINE 1 AND
IS RMER1
S-A-0,
IN

59
360
361
362

*WILL NOT BE O WHEN READ BACK.

3"‘2?

366 011310

369

370 011316 004737 055156

371 011322
372 011326
%73 011332
74 011336
375 011342
376 011350
377 011356

CLR

005002

ssg; 011312 012703 177777
010260 000014
010260 000034
010360 oooogz
o1osog 0000
016037 000014 oovsss
016037 ooogy. 00137
020337 001352

MOV

11200

JSR

1140 804737 55156
7 omog 10260
388 011412 010260 00003
3
8"“3 010

i
010
1ese
§38
ooooss
91 gmis 810360

PC,CNTCLR

:R2= ZEROS SOURCE

*R3= ONES SOURCE
:60 CLEAR CONTROLLER

MOV
MOV
MOV
MOV
MOV
MOV
CMP

:LOAD RMER1
R2.RMERT(RO)
:LOAD RMDC
R2.RMDC (RO)
:LOAD RMMR1
R3.RMMR1(RO)
:LOAD RMHR
(RO)
R3.RMHR
:STORE RMER1 IN INPUT BUFFER
RMER1 (RO) ,RMER1]
IN INPUT BUFFER
RMDC
:STORE
,RMDCI
RMDC (RO)
R3,RMER1]

EMT

BNE
BIS
CMP
BNE

104010

S 811405

#-1,R3

:TEST REG SEL 1 FOR S=A=0

78 011362 001
79 011364 8527 7 moog 001372
011372 020337 00137
1811376 001001
2

01111

10
#XNUDC ,RMDCI
R3,RMDCI
186

-TEST REG SEL 1 FOR S=-A-1

fos:

JSR
MOV
MOV
MOV

PC,CNTCLR
R2.RMDA (RO)
R2.RMOF (RO)
R2 .RMOF (RO)

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

MOV

R3_RMSN(RO)

:LOAD RMSN

SEQ 0103

-4

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

11436
11442
11450
011456
011464
0114
011472
0115
011506
811506
11514
011520
011522

N
T N N N
P

ooogl‘.
001344
160577

001370

001527

001400

001370
001400

011612
011614
011622
oneig
011630
011638
011642
11644

011652
omsg
011662
011670
011674
omos
011710
011716

EMT

104011

001015
160577
020337 001370
oo1og7
052737 001527
020337 001400
001001

052737

011742

208:

JSR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP

BNE
BIS
CMP
BNE
BIS
CMP
BNE

001370

001400

EMT

104012

PC,CNTCLR

;G0 CLEAR CONTROLLER

*LOAD RMDA
R2.RMDA (RO)
*LOAD RMOF
R2.RMOF (R0)
*LOAD RMOF AGAIN TO SET SSEI
R2.RMOF (R0)
:LOAD RMER2
R2.RMER2(R0)
:LOAD RMLA
R3.RMLA(RO)
:LOAD RMHR
R3.RMHR (RO)
:LOAD RMEC2
R3.RMEC2(R0)
RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
RMOF (RO) RMOFI :STORE RMOF IN INPUT BUFFER
:STORE RMER2 IN INPUT BUFFER
RMER2 (ROJ , RMER21
R3,RMDAI
30§
R3,RMOF
308
#XNUER2 ,RMER2I
R3,RMERS]
30$

#XNUOF , RMOFI

TEST REG SEL 2 FOR S=A=-1

004737

010260
010260
012760
gwsgo
016037
o1so§7
052737
020337
052737

50s:

055156

JSR

PC,CNTCLR

;G0 CLEAR CONTROLLER

000014
000034
000076 000000
880030
000014 001352
099 34 00137
177701 00135
001352

MOV
MOV
MOV
MOV
MOV
MOV
BIS
CMP

:LOAD RMER1
R2.RMERT(RO)
RMDC
:LOAD
R2.RMDC (RO)
:LOAD RMCS1
o‘;,um.mcsuno)
L
R3,RMSN(RO)
-STORE RMER1 IN INPUT BUFFER
RMER1 (RO) ,RMER1I
IN INPUT BUFFER
RMDC
:STORE
,RMDCI
RO)
(
RMOC
.RMER1]
#°CILF76
R3,RMER1{

176000

BIS

#XNUDC ,RMDCI

g
011740 fhagr
104013 oore
011742

:LOAD RMMR2
R3,RMMR2(R0O)
RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
RMOF (RO) CRMOFI :STORE RMOF IN INPUT BUFFER
:STORE RMER2 IN INPUT BUFFER
RMER2 (ROS , RMER21
R3,RMDA]
20
#XNUOF ,RMOFI
R3,RMOF
208
#XNUER2 ,RMER2]
R3,RMERZ]
20§

-TEST REG SEL 2 FOR S=A=0

811722 001007
11724

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

124.4
1370
1400

010260 0000
011530
011534 010260 88883
3
011540 o1oseo
011544 010260 W
0
011550 010360
0000
010360
011554
011560 010369 000046
001344
011564 01603
001370
000032
016037
011572
001400
0
mog?
011600
011606 020337 001344

011646

~a
N
VIS W) =

011524

011646

010
0160
016037
016037
020337
191;
052 g
3503 7
001007
052737
020337
001001

onsgg 004737 0551°%

&
L
T LT

VONOWVSWN=

s~ &~ BB
N-T eTo eY YT
YN9
oD e d
b
o
oo

W
W 28ESLRERES
3 BIKAR

BNE

001372

gF
EMT

g
13

:TEST REG SEL 4 FOR S=A=0

004737

055156

408:

JSR

PC,CNTCLR

:60 CLEAR CONTROLLER

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE
16
REGISTE R SELECT TEST

R et

AT YN
RSOg¥RE Rt

8IS
CMP

SXNSRESNIRS N

p v
N&NN

RMER1 (RO) ,RMER1]

;LOAD RMER1
sLOAD RMOF
sLOAD RMOF AGAIN TO SET SSEI
sLOAD RMDC
sLOAD RMDT
LOAD RHER%
LOAD RMEC

:STORE RMER1 IN_INPUT BUFFER
;STORE RMOF IN INPUT BUFFER

:STORE RMDC IN INPUT BUFFER

RSRERENRSRENS

D
b
b
D
b
D
b
—d

D e

b D

OO0 O0OO0O0O0O0O000

puurQur
hur Py

[=1-1-1-]

MoV

R2,RMER1(RO)
R2 ,RMOF (RO)
R2 .RMOF (RO)
R2.RMDC(RO)
R3,RMDT (RO)
R .RHER%(RO)
R3,RMEC1(RO)

SEQ 0104

BNE
EMT

#XNUDC ,RMDCI
g&fl”fl

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

=1~

NN N

o
[~lelelolelelelelelelelelele]
-

— e

D e

NN NN

D D e e

e o

D D

D e

) e i

0000000000000
O0O0000

VIV

vogw-ao

SNBB

N N N

sasssssas g8st
0
g8
8E88 RER &8353555 5555585552588852
SERLRORGN2S

MOV
MOV
MoV
MOV
MOV
MOV
MoV

13-9

004737

055156

010260 000006
010260
010360 00001
010360 00003
00003
010
016037 000006 001344
016037 000042 001400
020337 001344

oo1ogr
052737 001527
020337 001400
001001

001400

JSR

MOV
MOV
MOV
MOV
MOV
MoV
MOV
CMP

BNE
BIS
CMP
BNE
EMT

104015

PC,CNTCLR

:60 CLEAR CONTROLLER

*LOAD RMDA
R2.RMDA (RO)
:LOAD RMER2
R2.RMER2(R0)
RMDS
:LOAD
R3.RMDS (RO)
RMOF
:LOAD
R3.RMOF (RO)
*LOAD RMOF AGAIN TO SET SSEI
R3.RMOF (RO)
RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
:STORE RMER2 IN INPUT BUFFER
RMER2 (ROJ ,RMER2I
R3,RMDAI
60$
R3,RMER2]
608

#XNUER2 ,RMER2]

éggsr REG SEL 8 FOR S-A-0

004737

055156

010260 000014
010260 000006
34
010
:2.
010
1
8160
160;7
020337
01
1
0337 001344
1001
104016

1352
1344

JSR

PC,CNTCLR

BNE
EMT

70§
16

MOV
MOV
MOV
MOV
MOV
MOV
CMP
BNE
CMP

;60 CLEAR CONTROLLER

:LOAD RMERT
R2.RMERT(RO)
:LOAD RMDA
R2.RMDA (RO)
*LOAD RMDC
R3.RMDC (RO)
:LOAD RMER2
R meas(no)
-STORE RMER1 IN INPUT BUFFER
RMER1 (RO) ,RMER11
RMDA(RO) ,RMDAI :STORE RMDA IN INPUT BUFFER
R3,RMER1{
72!
R3,RMDAI

%gsr REG SEL 8 FOR S=A=1

737

10560
10260

05515

3
3

JSR

MOV
MOV

PC,CNTCLR

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

:G0 CLEAR CONTROLLER

:LOAD RMOF
:LOAD RMOF AGAIN TO SET SSEI

PON) =

b b

b b e

b o

S OVONOWNSWN=O

SRILGRES

VIV
IA
AW

ques
s
18
01225
10
01
01
01227

010
160

oo
01;
14
0

OSgg 7 160?#;
01231 00191;

012322
012324
012332
012336
01%340
012346
012352
012354
012356

it
001372

052737
020337

001527
001400

001400

001001
104017

R2.RMDC (RO)

sLOAD RMDC

MOV
MoV
MOV

R3.RMDS (RO)
R3.RMER1(RO)
R3,RMDA (RO)

:LOAD RMDS
:LOAD RMER1
sLOAD RMDA

MOV
MOV
MoV
BIS
BNE
CMP
g}:

00137

176000
001372

001007

MoV

052 37
020337

SEQ 0105

16:33:00 PAGE 13-10
;LOAD RMER2

F :STORE RMOF IN INPUT BUFFER
(RO) ,RMOFI
RMO
RMDC(RO) [RMDCI _ ;STORE RMDC IN INPUT BUFFER
;STORE RMER2 IN INPUT BUFFER
RMER2(RO§ ,RMER2]
, RMOF I
#XNUO
'
8 08
#XNUDC ,RMDCI
R3,RMDCI

BIS

#XNUER2 ,RMER2I

EMT

CMP
BNE
80$:

R2.,RMER2 (RO)

R3,RMER21
agi

:;ttttt*tttttittttttt'it'tt"Qtttt*tt'ttltfitttitttttlttttttt'ttt.

DRIVE TYPE TEST

s*TEST 7

;;t;tttttttttttttttttt.tttttttttttttttttttttttttttttttttttttttttt

m&m&mwm\ammmmnm
SVHRRURZETINER

012356
012356
012360

1877:

012362
012366
012372
012376

000240
012706
013700
013701
012737

012404
015412
012620
0124%2

MoV
MoV

001100
001276
00146
000007

001226

016037
022737
001414
022737

000026
020026

012432
012436
012444
012446
012452

012430

aggPE

:SCOPE CALL

#STACK,SP
$BASE ,RO

;LOAD THE STACK POINTER

;;RO = UNIBUS ADDRESS

001142
001142

MOV
MOV
MOV
grgg

*R1 = POINTER TO DEVICE
TSTQUE ,R1
$:SET TEST NUMBER IN APT MAIL BOX
#7,$TESTN
RMDT (RO) ,$BDDAT ;STORE RMDT AT $BDDAT
#SNGPRT , $BDDAT ;3"«.;:75 PORT RM80??

024026

001142

CMP

#DULPRT,$BDDAT

010037
062737
104057

001136
000026

001136

ADD

#RMDT ,$BDADR

000137

054046

001410

BEQ
MoV
EMT

108:

JMP

108

108
RO, $BDADR

sYES!!

;DUAL PORT RM80??

;YES!!
sYES!!
:LOAD BAD ADDRESS

$EOSP

;G0 TO NEXT DEVICE

3222232232232 2322223 3322222232332 23332322233 it ii it iiddidddy

S*TEST 10
st

1 455
12452

000004

} 22‘ 1 ;40

i eil

£53

e
fitiss S

AN RRRRRRAAARAARAANRRRRRRRARARARRAARNAAAAAARARAAARAAAAACARRRORAAL

tsr10:

1100

DEVICE AVAILABLE TEST

;SCOPE CALL

's‘ggps

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

001226

MOV
MOV
MOV
MOV

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

001142

JSR
MoV

26O CLEAR CONTROLLER
PC.CNTC%R
RMCS1(RO) ,$BDDAT
;STORE RMCS1 AT $BDDAT

ssSET TEST NUMBER IN APT MAIL BOX

—d TM

CZRNBAO RMB0 DSKLS PT1 MACRC V04.00 14=JAN-82
16
REGISTER SELECT TEST

S LS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-11

SEQ 0106

AVAILABLE TEST

173777

&%%fi

BIC
BN E

001142

MOV
MOV

001140
108:

EMT

#-CDVA,SBDDAT
108

»VA $GDDAT
60,$8DADR

;CLEAR ALL BUT DVA

:BRAN

;SETUP REG ADDRESS

ttttttttttttttt!tttttttttttt.ttttt.t.tttt.tttttttt't.tt.tfittt.t

RTEST 11

HOLDING REGISTER TRANSFER TEST

g888
R

=
‘d\rfl‘fig
NASN NS
8&s

Sfiifi;;;
R
NS2E
NWwn

OWUC)g: [- ,NT6 5 NORS

d
d
b

§T11:

001226

055156
.36
000236

MOV
MOV
MOV
MOV

wsncx 39
ER
tsroué R1TN
#1,$TES

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

JSR

PC.CNTCLR

;GO _CLEAR CMTROI.LER

ADD

#RMHR, $BDA

CLR
MoV

001136

:SCOPE CALL

aggpe

R3
RO, $BDADR

:CLEAR ERROR FLAGS
:SETUP RESlSTER ADDRESS

;WRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS.
:NOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN
—_—

b
ek
e

588
§2
S35 5

PR
NN
NN

f md

OOO0O0O000O

Comnoonaoo

604
2612
620

(=l=1=]

ORDER TO WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS
MOV
MoV

177777
000000
000033
00114

001140

MoV
COM
BEQ
Eh?

000001

8IS

ONINLNINLNONY
NNNNNNYNY

FSENNSS

SNNON S

IIISFAEHR

b
b =D
b
b
e
b o
—d cmd

ey
R
P

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

sLOAD RMDA
:LOAD RMDA

RMR(RO) ,SBDDAT ;STORE RMHR AT $BDDAT
;ANY EROR??
:NO!!
108
:LOAD EXPECTED
S?DDAT

$SBDDAT
)

#81T0,R3

:SET ERROR FLAGS

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

i0s

646
)

coo0000

0000

ViV

Vi
&
NN
\h\fl\h\h\fl\fi\hg\h\fl\fl\h
O
BIRARER SoavJourunNSd0 & FERERg 3 VONOWVSWN=O

D ed

svawna

D e

O00000O

ft;tttitttt.tttttt!ttttttttttttltttlQttt'tttttt.!ttt'ttt't.ttttt

8o
104 g
05270

000002

MOV
MOV
MOV
COM
MOV
CMP
BEQ

#0 ,RMDA (RO)
sLOAD RMDA
sLOAD RMDA
#-1.RMDA(RD)
RMHR (RO) , SBDDAT STORE RMHR AT SBDDAT
RMHR IS COMPLEMENTED WHEN READ
sanoA

21,8
ssoBAtsaoon
20$

serur EXPECTED
Y ERROR??
;no..

8IS

#81T1,R3

sSET ERROR FLAG

6F NO PREVIOUS ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN.
TST
BNE

5703
1025
12702

816280 &%&Q

000006

308:

MoV
MoV

MoV

R3
508

#.R2
~RMDA(RQ)

R2 .,RMDA(RO)

s ANY FI.AGS SET??
S

:R2=DATA PATTERN
sLOAD RMDA

:LOAD RMDA

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

589 01 743
90 0127
91

0127564

§93

0127

ggg

12770

9; 1 723
012766

594

16037
137
702

ug:.

00114
00114

001142

104

00040

SEQ 0107

RMHR (RO) , $BDDAT :STORE RMMR AT $BDDAT
*RMHR IS COMPLEMENTED
$BDDAT

(MP

DDAT ,R2

*ANY ERROR??

MOV

408

R2,SGDDAT

*NO! !

;D0 NOT COLLECT ALL ERRORS

ASL

:SHIFT TO NEXT PATTERN

EMT

MOV
COM

BEQ

10237 001140

$SETUP EXPECTED

§97 012772 ooesog

408:

28? 012776

508:

602

::tt.t.t.ttttt.ttttttt.t'tttt.tltfi.tt.tttttttttttt'.t..t...'ttt"

ggg 012774 00135

SRTEST 12

012776
01

308

:CONTINUE IF NOT DONE

CONTROL STATUS #1 TRANSFER TEST

22 ttt'ttt'!t.t.ttttt'tt't'tt'ttttt.t.".t'tt.tttt'.tt..t'tfi.t..'.

tsTi12:

012776
40

:SCOPE CALL

SCOPE

NOP

:LOAD THE STACK POINTER

012706 001100

MOV
MOV
MOV

MOV

#STACK, SP

$BASE ,RO
TSTWUE ,R1
#12,8TESTN

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

013024 005003
013026 004737 055156

CLR
JSR

R3
PC,CNTCLR

:R3 = ERROR INDICATOR
:60 CLEAR CONTROLLER

013002

ERRRRRARRRRSIIICREI2SIRIRSR

ouoog 013700 001276
013012 013701 0014
- 013016 012737 000012 001226

:WRITE ONES IN RMCS1, BITS 01-05, THEN CLEAR. READ AND

013032

012760 000076

000000

*CHECK FOR S-A=1

737 055156
013040
013044 8260 7 000000 oo1145

013052

042737 177701 00114

013060
013062
013063

001410
005037
10057

013100

104043

o1§or

062737 000000 001136

BITS.

:LOAD RMCS1

MOV

#ILF76,RMCS1(RO)

JSR
MOV

;60 CLEAR CONTROLLER
PC.CNTCLR
:STORE RMCS1 AT $BDDAT
RMCS1(RO) ,SBDDAT

BIC

#°CILF76,$BDDAT

ADD

#RMCS1,S$BDADR

BEQ
CLR
MOV

001140
001136

EMT

54
$GDDAT
RO, SBDADR
43

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

000076
12728
81§1o§
127
3'?'1

ggtA-‘l BITS.

1310

13116.

160;7

013132

141;

013154 042737 177701

813134
13140
31 144
631 1;152

632

BNE

013156

635 013160

5037
1 gr
7
1 osg

052703

001140
001136
000000

MOV
MOV

0000
00114

MOV

0114

BIC

CLR
MOV
ADD
EMT

$GDDAT
RO, SBDADR
#RMCS1,$BDADR
2

BIS

000001

RMCS1(RO) ,SBDDAT

#°CILF76,$BDDAT

BEQ

001136

:LOAD RMCS1
RMCS1(RO) :LOAD RMCS1
zstrre
LRMCS1(RO)

;STORE RMCS1 AT $BDDAT

108

#BITO,R3

:SET ERROR FLAG

WRITE ZEROS IN RMCS1, THEN ONES, READ AND CHECK S=-A-0 BITS.

10s:

(7.2

STATUS #1 TRANSF

#0,RMCS1(RO)
sLOAD RMCS1
#10F76,RMCS1(RO)
sLOAD RMCS1

i
1
1

;
1

RMCS1(RO) , SBDDAT
#°CILF76,$BDDAT
#ILF76,SGDDAT

801140

:STORE RMCS1 AT SBDDAT

sggoAr.ssoour
2
RO, $BDADR
gfifl(Sl.SODADR

go113¢

#81T1,R3

sSET ERROR FLAG

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

208

==%2 288
33
38

308:

TST
BNE
MOV

233

:OMIT IF ANY ERRORS

#2.R2

:R2 = TEST PATTERN

2.R3

#°CILF76.R3

:R3 = EXPECTED RESULT, BITS 15

:;LOAD RMCS1
#0,RMCS1(R0)
R2.RMCS1(RO)
:LOAD RMCS1
;STORE RMCS1 AT SBDDAT
RMCS1(RO) ,SBDDAT

b
-

—

SEQ 0108

«JAN=-82 16:33:00 PAGE 13-13

00O

D e

b ad

S\B\h\h\fl&
OONNOONON
£

QOO0O00O00O

—

RSN
S B

ng
d B D D b D D D oD e B g

00000000000

~§

#°CILF76,$BDDAT
R3,$GDDAT
RO, SBDADR

wvwhoWVMINN

5§ncs1.sevon

R3,$8DDAT
42!

:SHIFT TO NEXT BIT
SCONTINUE IF R2 NOT ZERO

R2
308

40$:

508:

st RRAARRRARARRANRAAARRARR
AR RARRAAARAAAAAARAAAAAAAAAAAAAACRACCROAS

SeTEST 13

33PIERE

17780
it

141
503

001140

#STACK 3’

:LOAD THE STACK POINTER

sCLEAR ERROR FLAG

$BASE R
TSTQUE ,R1
#13,8TESTN

CLR

55156

:SCOPE CALL

SCOPE

001226

177777

ERROR REGISTER #1 TRANSFER TEST

ARAARRRRARRAAARAAAAARRRRERARARAAAAAAARRAAAAAAAANAARARAAAACAARORAY

fsr13:

W&wuv‘u

Puiuur

OOO00O00O

P
P Puur Pur P

ONONON

wvivioawvinawn

NOWVWSWNN=0Y

333

VnHW=O
0

PAIIINS OO

SEIS

-4
=20

SKLS PT1 MACRO V04

IN RMER1

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

CLEAR AND CHECK FOR S=A=1 BITS

#-1,RMERT(RO)

;LOAD RMER]

PC CNTC%R

;G0 CLEAR CONTROLLER

%g”l )63KR11
$BODAT

;STORE RMER1 IN INPUT BUFFER

:8§<PAfi!RnR!lLF!lLR).SBDDAT
$GDDAT

yuassesscseseseseseses 8

RMS0 DSKL S PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-14

ERROR REGISTER #1 TRANSFER TEST

104027

1¢ 001136 e

147.17

00114

88%%;

13 4 89135; oomg

00509 001140
001136

}

4017

1
1

010037
7 000014 001136

1351
13516
81 524
135
0135
81 536

013727 oo1ss; oom%
042737 147777 00114
oomg
88114.0
80503
001136
10037
062737 000014 001136

} 31

13544

passci

o1§54.6
01355¢
onscs
01357
013576
013604
m;gos
01361
013616

SRR 2 NI

013624
01

01
01
omcs
013650
013654
01

1040

104031

015760
012760
016037
32 737
042737
oom;
00503
8},‘2’%7
7
1049
35 g

177777
000000
ooogu.
091 ss
177770
881140
1136
000014

000014
14
001352
oomg
00114
001136

00114

n i

3”"

RO, SBDADR
#RMER1, SBDADR

MOV
BIC
BEQ
CLR
MOV
ADD

RMER11, SBODAT
#~C<OP1'DTE>,$BDDAT
30$
$GDDAT
RO, SBDADR
#RMER1,SBDADR

MoV
MOV
MOV
MOV
BIC
BEQ
CLR
MOV
ADD

001136

EMT
BIS

#-1,RMER1(RO) ;LOAD RMER1
:LOAD RMER1
#0.RMER1(RO)
:STORE RMER1 IN INPUT BUFFER
RMER1 (RO) ,RMER1]
RMER11, $BODAT
ILR>, SBDDAT
ILF 'RMR!
#°C<
408
$GDDAT
RO, SBDADR
#RMER1, SBDADR
32
#8IT0,R3

MOV
BEQ
CLR
MOV
ADD

], SBDDAT
RMER1
50$
$GDDAT
RO, SBDADR
#RMER1, $BDADR

BIC
BEQ
CLAR
MOV
ADD
EMT

#°C<0Pf

BIC

EMT

BIS
MOV

BIS

gss

Py
Qur G

lag<DCK!IAE!AOE!NCRC!HCE!ECH!UCF!FER>.$GDDM

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

104033

052703

SEQ 0109

MOV
ADD

EMT

1 ; oomg 408:
137
00114
oom;
001140
005037
o10937 001136
osi 7 000014 001136

o000

RMER11, $BDDAT

EMT

880221

2737 147777
141;
50
010037
7
1 934

MOV

CLR

042737 074017

01370
01371
81 71
13716
01
81 730

SBDAD
#RMER1,
27

Séfi

RO, $BDADR

MoV

ADD
EMT

.
ggn 052703 000001
013674 o13g7 001;5; ooms

R
g%

VONOWVSWN=O

1136

:SET ERROR FLAG

#~C<DCK ! IAE 'AOE 'HCRC 'HCE 'ECH'!WCF ! FER> , SBDDAT

#BITO,R3
RMER11,SBODAT

:SET ERROR FLAG

'DTE>, $BDDAT

DAT
RO, SBDADR
#RMER1, SBDADR
34

#8IT.R3

w}grt ZEROS THEN ONES IN RMER1,READ AND CHECK FOR S=-A=0 BITS
14

1 48
114

mov
MOV

MOV
MOV

#0 RMER1(RO)
#-1,RMER1(R0)

mgfimm $BDDAT
#-1,3GDDAT

:LOAD RMER1
:LOAD RMER1

:STORE RMER1 AT SBDDAT

CZRNBAO RMSO DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-15
ERROR REGISTER #1 TRANSFER TEST
001142

’§20AT.$BDDAT

i 001136
i
052903 000002

cgfim$BDADR
zfll T1,R3

3737

‘151

;

001140

$BDADR

URIEE A SHIFTING 1 BIT IN RMERT AND CHECK FOR STUCK BITS

509

DONT TEST UNSAFE OR PARITY
TST

80S:

S8
8

&~
3
XN SRERSFr3

SBBS

.$5 %i

001142
001142

’3“

:SKIP THIS PART IF ANY ERRORS

#.R2

:R2 = TEST PATTERN

5,CNTCLR

;60 CLEAR CONTROLLER

903"R2

:DONT TEST PAR = 0

RMERT(RO)

:LOAD RMERT

mémmo»$BDDAT’

001142

ma.ssom

90$:

mg.n

1008:

, SBDDAT
#UNS
R2, SBDDAT

:STORE RMER1 AT $BDDAT

:DONT TEST UNS = 0

1163

,SGDDAT

n *$BDADR

#RMER1, SBDADR

001136

1108:

1208:

80s

:SHIFT TO NEXT BIT

*CONTINUE IF R2 NOT ZERO

tl.'....fit'.t.t'tttt"t'tt"..t.tl..tt.tt..'...tit..itl..t'....

'TEST 14

CLEAR OFFSET STUCK ACTIVE TEST
:SCOPE CALL

NNN\UR

N=
N

PG
Py

0
;

—
e

NNNN=N

RSNORNEBR

i e

SAFREFR

t114:

e
d

OO0V OOOO0O00O0

wd mh cmd) ) emd e
el ) ed =B
ERBEDDDDEDDE

O0O0000O

d ed cmd —d cacd D ncd
BEDSDIN

AR RRRARARARAAANANRCERRARARRARRAARAAAARAARAAAAAAAAARAARACRAES

Syl I

SEQ 0110

#STACK 39
001226

ooo0se ik
S

THE STACK POINTER

$BASE R
TSTQUE ,R1
#14,STESTN

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

PC,CNTCLR

;60 CLEAR CONTROLLER

108
ogro $GDDAT

A ONE
IF OFD ISCH
:BRAN
MESSAGE
ERROR
*SETUP

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

:LOAD RMOF
I.OAD RMOF AGAIN TO ssr SSEI
RMOF (RO) ,SBDDAT :STORE RMOF AT SBDDAT
#°COFD,$BDDA

001140

RO, SBDADR

Wm ,SBDADR

001136
108:

JEND OF TEST

SEQ 01N

RM80 DSKLS PT1 MACRO V04.00e}‘r"""‘"z 16:33:00 PAGE 13-16
CLEAR OFFSET STUCK ACTIVE T
;:...t...t..."t.'..."'."t"'.Q'Q'.tt..'Q'Q.Q...QQ.'.Q.QQ..Q'.'

SeTEST 15

OFFSET REGISTER TRANSFER TEST

ig.;;'tQQQ.'.Q"....Q.""Q"'.t..'fi...i.t'.'t't...".'.QQ.QQQQ.Q

FITS PULDS

~NNN

Qawg 92

001226

[=]
~N NN

00003

3
~

SRS

R —NOW

#STACK 3?
$BASE ,R
TSTQUE ,R1
#15,8TESTN

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

CLR

:RESET ERROR FLAGS

RO, SBDADR
#RMOF ,SBDADR
$GDDAT

*SETUP BAD ADDRESS
:SETUP EXPECTED DATA

MOV

MOV
MOV
MOV

#=1_,RMOF (RO)

:LOAD RMOF

:LOAD RMOF AGAIN TO SET SSEI
#-1RMOF(RO)
RMOF
*LOAD
(RO)
#0,RMOF
RMOF IN INPUT BUFFER
:STORE
F
,RMOF1
(RO)
RMO

:CHECK UNUSED BITS OF RMOF FOR ZERO

MOV
BIC

;GET UNUSED BITS
RMOF] ,$BDDAT
, SBDDAT
#°CXNUOF
} $

:BRANCH IF NO ERROR

8IS

#BITO,R3

:SET ERROR FLAG

g's#

b&bg‘*b
2

i(c,;cgcx USED BITS OF RMOF FOR ZERO

oomg
00114

9
oSN

MoV
BIC

RMOF],$BDDAT
, SBDDAT
#XNUOF

;GET USED BITS

:BRANCH IF NO ERROR

BIS

#8I1TO,R3

:SET ERROR FLAG

ggg

5‘8’}!" ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-0 BITS.

L83

i;‘fl‘i“

83%%

881143

FoRe

NONHNNN
oWO WW
WNWNN

822

mov
MOV
MOV
MOV

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

:LOAD RMOF
:LOAD RMOF
SLOAD RMOF AGAIN TO SET SSEI
:STORE RMOF IN INPUT BUFFER

sCHECK UNUSED BITS OF RMOF FOR 2 ERO.
MO v
BIC

114

BEQ

EMT

8IS

SoonN

SRRER

N =00

333

MOV
MOV
MOV
MOV

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

00003
ooog;
001
oomg
00114

;SCOPE CALL

3829!

MOV
ADD
CLR

001136

Qodsd

b eyl

(==l

W
~N

O =

b
—

SO00ON

BEERE

WWWWNN

D
d
) D
) d

BESES

b
b
—

b ed och o

00000

[=1el)

prurQuur Gy

OO0000
000

T o Y
=e

EISRIDRORRS

(=]

BEOSDSSS

0000000

]
e

[=lel=l)

[=]

R
PR S IR SR
ET
NOWWSUWN=O
V0

)

O oo00 00 00 00 0o 0O
0000

T1S5:

1,$BDDAT
RMOF I,
sGET UNUSED BITS
#*CXNUOF ,SBDDAT

g‘

sBRANCH IF NO ERROR

#81T0,R3

S&@CK USED BITS OF RMOF FOR ONE,

137

114

?20579 88114

mov

BIC

RMOF],$BDDAT
#XNUOf ,SBDDAT

;GET USED BITS

MACRO v04.00 16-JAN-82 16:33:00 PAGE 13-17
lSTER IRANSFER TEST

!Eflgg3

sBRANCH IF NO ERROR

vxoug ERRORS, TEST RMOF WITH SHIFTING ONE BIT PATTERN
Ng;ERROR??

:STARTING DATA PATTERN

508:

sLOAD RMOF
:LOAD RMOF

LOAD RMOF AGAIN TO SET SSEI
:STORE RMOFAT $BDDA
;SETUP EXPECTED RESLI.T
sCLEAR UNUSED BIT

; COMPARE EXPECTED l RECEIVED
:BRANCH IF NO ERR

i
01 270

60$:

sSHIFT TO NEXT BIT

:CONTINUE IF NOT DONE

:TEST RMOF WITH SHIFTING ONE BIT PATTERN IN 16 BIT MODE

708

88
3FRESERRREERREEERES

0000000000000
OCOCO

2 DDAT, S8DDAT
5
#8IT1,R3

o
& 33FERREFRINEZS

%E‘
B oomo

#*CXNUOF ,SGDDAT ;SETUP EXPECTED STATUS

1 14
1 14

D o

D cd e

d D D D e

D e

00000

sEeee prEszeeosacas ©

OO0O0O0O0OO0OO0O0O0O0O00O

000032

sSTARTING DATA PATTERN

80$:

sLOAD RMO

:SET 16 BIT MODE WITH ROTATING PATTERN
:LOAD RMOF
(RO)
:LOAD RMOF AGAIN TO SET SSEI
RMOF (RO) .SBDDAT :STORE RMOF AT $BDDAT
R
;SETUP EXPECTED RESULTS
R scoont
#XNUOF
sCLEAR UNUSED BITS
R3 ssoéAt
ngRECT BITS SET ?
90$

001142

90$:

#FMT16.R2
R

:
1008

sDON'T SHIFT FORMAT BIT

sSHIFT PATT ERN AND
;TEST NEXT BIT

t"....tl'.t...tt'.'tt'i""t.t........t.ttt""...t...ttt'."t

'TEST 16

ERROR REGISTER #2 TRANSFER TEST

té116:

sSCOPE CALL

&»

g55s
3
o

CARRAAARRAARAAARAARRARRARRRANRARARNARAAAANAAAAAAAAAAAAAAAOARACACSE

dfld:d

W=
VO
NO NS

$REEER BR%gSRoaassaeaR
%u: N3
NNN

Lalad

SEQ 0112

#STACK,

$BASE, fi3

THE STACK POINTER

R = UNIBUS ADDRESS

RMS0 DSKLS PT1

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

ERROR REGISTER #2 TRANSFER TEST

MOV

#16,8TESTN

CLR

:RESET ERROR FLAGS

80 ;

MOV
ADD
CLR
MOV

§§§§§§é§§§§§§§§§§%§§§§§§§§§§§§'fi

14714

0147642
014750
014756
014762

001136
001444

012760 177777 000042
004737 055156
1444 oooogs
0137
0014
0160

014770 013737

ooms

00114
176250
062737
014776
015006 001403

MOV
JSR
MOV
MOV

MOV

BIC
BEQ
EMT

8IS

fos:

015054

001403

013737

001

ooms

15060 052703

sgoon
$BDDAT :BRANCH IF NO ERROR
rcxuuén
108
u.

#81T0,R3

:SET ERROR FLAG

RMER21, $BDDAT
PE DDAT
' IVC'LSC>,SB
#°C<O

8IS

#8I1TO,R3

:BRANCH IF NO ERROR

zgs
3

:SET ERROR FLAG

RMER2]1 ,$BDDAT

8IC

#~C<LBC 'DPE>, $BDDAT

EMT

BEQ

000001

BIS

3os

:BRANCH IF NO ERROR

#81T0,R3

;SET ERROR FLAG

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

15094. 0157
15005 81 7

160

177777 00004
00004

0014

015106 013737 oou.og 88"‘5
15126

208:

042737 175767 00114

815056 10404

15114
15122

BITS
FOR
CLEAR AND CHECK S-Aoi

#-1,RMER2(RO) ;LOAD RME
:60 CLEAR CONTROLLER
PC,CNTCLR
RMOFO,RMOF (RO) :LOAD RMOF
:STORE RMER2 IN INPUT BUFFER
RMER2 (RO) ,RMER21’

. TEST *LBC'’, 'DPE'* FOR ZERO-FAILURE ON DS, IF

015040

151

sigsE ro BE SET IN RMER2

MoV
BIC
BEQ
EMT

001403
1g4.ol.s

015034 052703 000001
015046

:SETUP mecm DATA
:SET 16BIT FORMAT MODE TO ALLOW

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

015014

015040

*SETUP BAD ADDRESS

:TEST UNUSED ans ron ZERO-FAILURE ON IF

052703 000001

015014 013737 001400 ooms
o1so§5 042737 143777 00114
015030
015032

RO, SBDADR
, SBDADR
#RMER?2
$GDDAT
#FMT16,RMOFO

:WRITE ONES IN RMER2,

015008 104044

015010

= POINTER TO DEVICE

:R1
TEST NUMBER IN APT MAIL BOX
“:SET

81;3% 813;% 8800 001226
1

SEQ 0113

TSTQUE ,R1

MOV

14716
147
147
1%

042737
14377
140;

114

MOV

#-1,RMER2(RO) :LOAD RMER
#0,RMER2(RO) _ :LOAD RMER

15126 052703 000001

;STORE RMER2 IN INPUT BUFFER

ménz(n ) ,RMER2]

;TEST "OPE'’, *'IVC"

104

°}§}§§ 342737
13737 5729
81514.

mov
MOV

'1.sc" rou zeno-mwas ON CS, IF

MOV

BIC

RMER2] ,$B

BEQ
EMT

l.gs

BIS

#81TO0,R3

m<oré-1vc'|.sc>:BRANCH
$BDDAT IF NO ERROR
:SET ERROR FLAG

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

114
114 0s:

MOV
BIC

RMER2I.$8 b$BDDAT
mqat'w

nNOON

‘d:
v

wvinaw

coo

b
b b

4393888 ReRRgRERESsguge §

-4

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

g's‘g

8IS

000001

8
s

:SET ERROR FLAG

MoV
MOV

:LOAD mn;
#0 RMER2(RO)
#-1 RMER2(RO) _ :LOAD RMER

25?

223

:BRANCH IF NO ERROR

BIS

#81T0,R3

:SET ERROR FLAG

TEST USED BITS FOR ONE-FAILURE ON IF

608

mov
BIC

RMER2] ,SBDDAT
#XNUER2 , SBDDAT

gsg

;gs

:BRANCH IF NO ERROR

#8IT1,R3

:SET ERROR FLAG

MOV
CMP

3¢ 01355¢
329 015260

BIS

958
959

984 015400

#8ITO,R3

:BRANCH IF NO ERROR

;STORE RMER2 IN INPUT BUFFER
RMER2 (RO) ,RMERZi
MOV
;TEST UNUSED BITS FOR ZERO-FAILURE ON IF
RMER21] tgoon
MOV
#°CXNUER2, SBDDAT
BIC

015224
015 ;6
015 s
015264
015246

960 015264
961 015564
96% 015266
963 015270
964 015274
965 015274
966 015
967 015
968 01531
969 01532
970 0153264
971 015326
97§ 0153
973 015340
974 015%45
975 01535
97 815 54
015
977
978 01537
979 015372
980
981 015374
glg 15376

§8§"‘ ZEROS IN RMER2 THEN WRITE ONES AND CHECK FOR S=A-0 BITS.

e
13172 i

013816
013220

SEQ 0114

GISTER #2 TRANSFER TEST

12156

015
815

#*CXNUER2, SGDDAT
$GDDAT, $SBODAT

55; 'NO PREVIOUS ERROR, TEST BIT INTERFERENCE WITH SHIFTING ONE BIT.

B
80$:

000032
001142

001142
001142
7

00114g

90$:
:
1008

00114

;ANY ERRORS?

1208
M .R2

:vss!s
*R2=DATA PATTERN

JSR

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

PC,CNTCLR

:60 CLEAR CONTROLLER

1108

*NO!!

:SHIFT TO NEXT DATA BIT

MOV
MOV
MOV
BIT
BNE
BIC
BIT
BNE
BIC
MOV
BIC
CMP
BEQ
EMT

1108:

BNE
MOV

ASL

BNE

80s

*CONTINUE IF NOT DONE

1208:
:;t.tt"'ttt.tt.ttt.tt'"t"'tttttt..tfittttt"t't.t.'tttttfi".tlt

s*TEST 17

SERIAL NUMBER TEST

;:..lt...t'.t'.ttttt'."t't"t.tt..t't.ttttt.tQ.tfittttt.t.t..ttl'

’g

b e bk
e d d D o e d
0000
O000O00O
g
RXR LRL &
°
&R Sro

NUMBER TEST

1ST17:
1100
} 276

£
8

055156

1136
30
000031

000030

g8388R8]e8e883888832858

-l

SEQ 0115

SKLS PT1 MACRO V04.00 14=~JAN-82 16:33:00 PAGE 13-20
;SCOPE CALL

zggvs

MOV
MOV
MOV
MOV

#STACK 3?
$BASE ,R
TSTQUE ,R1
#7,8TESTN

:LOAD THE STACK POINTER
:RO = UNIBUS ADDRESS

JSR
MoV

PC.CNTCLR
=O.SBDADR

;GO CLEAR CONTROLLER
sSETUP REGISTER ADDRESS FOR TYPEOUT

Mov

#25.,R2

sREAD RMSN 25 TIMES

RMSN, SBDADR

:R1_= POINTER TO DEVICE

ssSET TEST NUMBER IN APT MAIL BOX

sREAD RMSN AND USE THE RESULT AS EXPECTED VALUE
RMSN(RO) ,$GDDAT ;STORE RMSN AT SGDDAT
MoV
isggo RMSN AND COMPARE WITH INITIAL VALUE

000030
001140

mov
CMP

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

EMT

136

BEQ

20$

:BRANCH IF SERIAL NUMBER CONSISTENT

58§gnsnem COUNT AND CONTINUE IF NOT DONE

DEC

108

:END OF TEST

BPL

308:

33 3222223222230 2222222322 2282232333328 3 8333833322223 3dddididiitiddd)

S*TEST 20

CONTROL BUS PARITY DETECTION TEST

oooogg

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

sSETUP FOR FIRST TEST LOOP (NO ERROR)

SIRJNINN

ks i o =D

Q28K o

NN
NN N

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

58:

CLR
MOvB
BIC
MoV
BR
ASL

:'PAR'* SHOULD BE ZERO
$GDDAT
o:SETUP RMCS2 VALUE
(R1) ,RMCS20
#*CUNTMSK ,RMCS2
sINITIALIZE DATA PATTERN
#1,RMHRO
sSKIP _INCREMENT FIRST TIME
63
sSHIFT TO NEXT PATTERN
RMHRO

éggm AND VERIFY THAT 'PAR" IS RESET
nNON

b
—

— LN

(=l
gOO

2.....

NSS

NN
NWVINNNYN

b
b
b
d
— e

:SCOPE CALL

aggpe

MOV
MOV
MOV
MOV

2R=8
W=3
SN

oSO

v
v

O0O00O000O

ST120:

OQOOO00O0O0

NONDNDININOININ)
= cd cd b b o wd wd b d
VS WN = OV NOWVISWNN=O

D cmd md e

= cd D e cd wmd

b e md

b b D

0000000000000
0000

b d cmd D D b d

OO0O0O0O00O

RA200

{:tsatt.ttttttttlttttttttt".tttfi.tfittt..tt.ttt.l't.tttt.filtttttt

MOV

;60 CLEAR CONTROLLER
PC cmchn
:STORE RMER1 AT SBDDAT
(RO) , SBDDAT
RMER1

MoV

RO,$BDADR

MOV
BIC

:STORE RMER2 IN INPUT BUFFER
RMER2 (RO) .RMER21
oagm. DAT .-exo';mk * RESET?
2

sYES!!

sSETUP REGISTER ADDRESS

NSO ;s

i:g:z$FONh gf

on
oon

EE ik\fl\h“

BIT

000010 001400

BNE
EMT
BR

108:

EMT
BR

#RMER1, $BDADR

#DPE ,RMER2]
108
g
0s

SEQ 0116

cg
13

;1S *DPE'* SET??

SYES!!

70
508

(V]

perfet
T Y

sgseppess

5g§1ts TEST PATTERN AND VERIFY ‘PAR'* STATUS

MOV

:LOAD RMCS2
RMCS20,RMCS2(RO)
RMHRO,RMHR(RO) :LOAD RMHR

00114

BIC

#CPAR, SBODAT

000020 001422

BIT

#PAT ,RMCS20

001422 880010
000036
001450
000014

177767

001140

)

MOV

00114

gg:

001142

BNE
EMT
BR

(e
NN IS ~N~NO
PN
&»
NOOONSN SSNGEARE

OO0O0O0O0O0O0OO0O0O0O00O

b d d d

OO0

e
Vi
NNNY

308:

000020 001422
000020
000010

2820AT.SBDDAT
308
71
508

EMT

408:

001450

001422
001140
001450

:STORE RMER1 AT $BDDAT

RMER1(RO) , SBDDAT

508
BR
GO TO NEXT PATTERN

:ggszgnn" CORRECT??

*SHOULD "PAR'* BE SET?
SYES!!

:SKIP TO NEXT

;z;

gguno

:ag.gAtA PATTERN COMPLETE??

BIT

#PAT ,RMCS20

$1S TEST COMPLETE??

BNE

508

SYES!!

:SETUP FOR SECOND TEST LOOP (ERROR)
:TURN ON BAD PARITY
#PAT ,RMCS20
BIS
*EXPECT ERROR
#PAR . $GDDAT
MOV
SINITIALIZE DATA PATTERN
#1,RMHRO
MOV

*START LOOP

:END OF TEST

50%:

ksl

O000

ADD

001136

nNOO

Qe Puur-Pur
Qo
Qo
Qo

00000000

e
o e e e
D D i D o
b
vi

prar Qo

000014

o
=l=l=l=l=]

D o

e o

D e D d D D D d D D d d
OO0O

D D D d e

€3<><: ¢>E3C>C>C>nN
W
PAAAARE
RRRRRRRR
vivauvvnawn
RZ83s ~
N ¢D\fll‘h‘fi)=‘¢’1?8= QS GRU
REE \fl\fl\flafi\fl
VNN SWNN=OVD

-4

2?5

£2

T1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE 13-21
PARITY DETECTION TEST

no9

::ttt'l.ttt'ttttttt.t't'ti"tt.ttttt.tt.t.tt.ttt.tttttt'ttttt.'tt

SeTEST 21

CONTROL BUS PARITY GENERATION TEST

g ARS

C‘\hU“fl!:!:
3

0000000

%g;s;t't.t.tt.tttttttttttttl't.tit.ttt.ltfi.tttt.tt..!ttttt.tfiltlt

00O

222

o000
Sg"

ssdddd-fld

SSEREFER &

—

d e

#STACK, SP

:LOAD THE STACK POINTER

:SETUP FOR TEST (NO ERROR)
#1,RMHRO
MOV

;INITIALIZE DATA PATTERN

MOV

001100

MOV
MOV
MOV

001276
001466
000021 001226
000001

7 001140

001450

:SCOPE CALL

zggpe

CLR

$BASE , RO
TSTQUE ,R1
#21,8TESTN
SGODAT

208

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

*DONT SHIFT FIRST TIME

igggrr DATA PATTERN

001450

ASL

RMHRO

——

SEQ 0117

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

ir4
e
CONTROL BUS PARITY GENERATION TEST

1074
1075
107

016040

813740 831438 000036

Z3ERFBFRRIFIST

ik
i

001374
0114;

JSR

MOV

PC,CNTCLR

(RO)
RMHRO,
RMHR

:60 CLEAR CONTROLLER
sLOAD RMHR

;TRANSFER DATA TO RH, VER IFY NO "MCPE’’ ERROR
RMHR (RO) ,RMHR] sSTORE RMHR IN INPUT BUFFER
MOV

MOV
BIC

114

BEQ
EMT
BR

RMCS1(ROS ,SBDDAT
;STORE RMCS1 AT SBDDAT
SBDDAT :=s§.BAD PARITY DETECTED??
#*CM,CPE
308

GO TO NEXT PATTERN

%0s:

001450

408:

BNE

RMHRO

108

:zgqg ALL PATTERNS??

:ENODF TEST

':tttttQfit.ttlfittt'tt'tttt"'t.tt..ltfitttfi.Qtt..'til'i..tfi'tt".t

S*TEST 22

RMDA,RMDC FAULT TEST

323222222222 222223323 3333233332333 2333333222322 32222223 ddddiittdl

0000000

fsr22:

b e
d
d
b

SRIKGRIR=83233233

838888

25
S
hfl-‘*@\":‘i‘@\éSSQC’C’

:GO CLEAR CONTROLLER

MOV

MOV
MOV
CMP

o0
o0

BEQ
BIS
CMP
BEQ

-0

$BASE ,RO

#0,RMDA (RO)
#0_RMDC (RO)

#-1,RMDA(RO)
#-1.RMDC (RO)
A
(RO) , RMDAI
RMD

RMDC (RO) _RMDCI

-1,RMDA{

108
#XNUDC ,RMDC I
#-1,RMDCI
108

RMDA

RMDC
:LOAD
*STORE RMDA IN INPUT BUFFER
*STORE RMDC IN INPUT BUFFER

:1gs¢gv REGISTER ALL ONES??

*SET UNUSED BITS
sYES!!

108:

o
N
W
N

PC,CNTCLR

MOV
MCV

OO
OO

ee e

b
b

OO
N

R
==
O
OONON PEN

ONONONONON

OO000O0O0000O000

s
g

JSR

,
#STACKSP

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

G
B

::Qtt..t$t'tt'tttt.ttt'.'t'i.'ttt.....ttt.fi.tttti...t.'.tt.tt.t.t

TSTQUE ,R1

MOV

EMT

B L
—t

#22,8TESTN

MOV

16132

MOV

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

MOV

001226

sSCOPE CALL

SCOPE

NOP

:*TEST 23

DISK ADDRESS TRANSFER TEST

S RARARRRRRRRRRRARARRARAAAERRARARARRAARRAAARAAARAARARARAAAAAAAACAOORDY

fsr23:
:

18700

1298

NOP

MOV

sSCOPE CALL
#STACK 3’

,R
$BASE

sLOAD THE STACK POINTER
:RO = UNIBUS ADDRESS

RNBAO RM80 DSKLS PT1 MACRO V04.00 14=~JAN-82 16:33:00 PAGE 13-23

SEQ 0115

g
<&

005

QN NONNY
ONI NN = WWoOr
WONNNNINNOO

288
g222
= NONON)
W

N
~ o~

£X8

O0000O0O000O
- e e e
D e
D D e

d
D

D e

D D D e e e
e o e

b cd ed d

NON
SrOW WN=NWNOO°
W= WNNOO

OO0

228 N = b b
' R N = NN
Wi
N

WVONIWW
WONNN NONNNOO

——

MNW

S9222 283
O-‘&OO
832
s 'QC”UEs
NON
W33
RO NS N
W=OWOOr
ONO

ONONON

D o

0000000000000
o o o d D d d

R W' W
FRRXRRRRRIRRR
&K
VIS
S WWNINN)
==
SN O SRR §§Mfl
RISHSRS NSO

OONONONONONON

O00O0O0O0O0O0O0O0O0
o o o e e e o o e
b d

D
—
)

D
e

D D

D o
e o e e e D o

MOV

CLR

JSR

055156

001140
001136
000006

MOV

BEQ
CLR
MOV
ADD

001136

000006

EMT

io0s

MOV

001140

CMP
BEQ
MOV

001136

ADD

17777

000002

MOV

:R1_= POINTER TO DEVICE
ssSET TEST NUMBER IN APT MAIL BOX

;R3 = ERROR INDICATOR
:GO CLEAR CONTROLLER

PC,CNTCLR

RHDAX?O).SBDDAT :STORE RMDA AT $BDDAT
$8DD
108
$GDDAT
RO, SBDADR
#RMDA
, SBDADR

000001
000006

sLOAD RMDA
#-1,.RMDA(RO)
sLOAD RMDA
RMDA(RO) ,$BDDAT ;STORE RMDA AT $BDDAT
$BDDAT, #=-1
208
#-1,$GDDAT
#0,RMDA (RO)

RO, $BDADR

#RMDA, SBDADR
21
EMT
-:SET ERROR FLAG
#8IT1,R3
8 1S
;WRITE AT§¥IFTIN231 BIT PATTERN IN RMDA, READ, AND CHECK FOR STUCK BITS

20$
000000
000002
00000
001142

TSTQUE ,R1

#8170, R3
8IS
:;SET _ERROR FLAG
:WRITE ZEROS IN RMDA, THEN WRITE ONES, READ BACK AND CHECK FOR S-A-0 BITS

000001

177777
001136
000006

cgs.srésru

;WRITE ONES IN RMDA, THEN WRITE ZEROS, READ BACK AND CHECK FOR S=A=-i BITS
#-1.RMDA(RO)
:LOAD RMDA
MOV
MOV
#0,RMDA (R0)
+LOAD RMDA

177777
000000
0000
00114

308:

001142

BNE
MOV

508
#,R2

MOV
MOV

#0,RMDA (RO)
(RO
R2.RMDA RO)
RHDA(RO%2$BDDAT
$BDDAT
408
R2,$GDDAT
RO, $BDADR
#RMDA
, SBDADR
22
B2
308

MOV

001136
408:

508%:

CMP
BEQ
MOV
MOV
ADD
EMT
ASL
BNE

;OMIT BIT TEST IF ANY ERROR
:R2 = TEST PATTERN
;LOAD RMDA

sLOAD RMDA

:STORE RMDA AT $BDDAT

sSHIFT TO NEXT BIT
sCONTINUE IF R2 NOT ZERO

22 ARRARRRANRRAAARRAAARRAR
AR RRRARAAARAAAAAAARRAAARAAARRRAARAA AR AR

o e o

e e e o

DANANBBRRRRRDR
wvivaunnawn

MOV

16368 B33 B000ss 001226

d d

D e e D d

D& WAN NN WWWSNN
W)
=
V00 NN
NOWVSWN=OVONOWVS
NP NINININD
= b cd e b d W=
d b b

DISK ADDRESS TRANSFER TEST

S*TEST 24

DESIRED CYLINDER TRANSFER TEST

St RRARARRRAARRRANARARAARNARRAAARARANARAAAAAAAARAAARAAAARRANAAAAARRRAAS

t8124:

838

004
40

sSCOPE CALL

SCOPE

NOP

MOV

MOV
MOV

#STACK 3P

$BASE ,R
TSTQUE,R1

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

SEQ 0119

% 2NBAO RMB0 DSKLS PT1 MACRO VO04.00 14=JAN-82 16:33:00 PAGE 13-24
016524

;:SET TEST NUMBER IN APT MAIL BOX

g3 §§S156
1140
11;6
% 000034 001136

CLR
JSR

R3
PC,CNTCLR

:RESET ERROR FLAGS
:G0 CLEAR CONTROLLER

ADD

, SBDADR
#RMDC

81 2 7
1603
2737

v
w

#24,STESTN

177777
000000
000034
176000

000034
oom%
00114

$GDDAT
RO, SBDADR

:LOAD EXPECTED

:LOAD REG ADDRESS

;WRITE ONES IN RMDC AND VERIFY THAT UNUSED BITS ARE ZERO

MOV
MOV
BIC

;LOAD RMDC
#-1,RMDC(RO)
(RO) ,$BDDAT :STORE RMDC AT SBDDAT
RMDC
#*CXNUDC , SBDDAT
;CLEAR ALL USED BITS

BIS

#BITO,R3

BEQ
EMT

000036

000034
ooms
114

58
13

*BRANCH IF NO ERROR

:SET ERROR FLAG

MOV
MOV
MOV

#=1,RMDC(RO)
:LOAD RMDC
:LOAD RMDC
#0,RMDC (RO)
RMDC (RO) ,SBDDAT :STORE RMDC AT S$BDDAT

25?

; $

BIC

BIS

000001

#XNUDC,$BDDAT

:CLEAR UNUSED BITS

#8ITO,R3

:SET ERROR FLAG

*BRANCH IF NO ERROR

iggm ZEROS, THEN ONES IN RMDC, READ AND CHECK FOR S=A=0 BITS
RO =2 N = =2 =2

000000
177777

i=l=]=lelel]

176 o
177999

001140
wWo

Res

N--gsw
v vy
[=T.
¥ 3
NSSONOO

177777
0000;4
001777

CLR
MOV

ggam ONES IN RMDC, THEN WRITE ZEROS, READ AND CHECK FOR S=-A-1 BITS

b
b d

ALLLLEE SR

000024

000001

33378

e
R
P

(~leloleloleleleleTa)

MOV

SNNONSONOO

e Pur Gur Pl

OCOO0O00O00O

001226

012737

000034
000034
ooms
00114
001140
001142

mov
MOV
MOV
BIS
MOV
CMP

;LOAD RMDC
#0 ,RMDC (RO)
:LOAD RMDC
#-1.,RMDC(RO)
RMDC (RO) , SBDDAT :STORE RMDC AT SBDDAT
#XNUDC,$BDDAT :SET UNUSED BITS
#-1,$GODAT
*LOAD EXPECTED RESULT
sgoém.saom :IS RMDC ALL ONES 2?7

BIS

#81T1,R3

BEQ
EMT

000002

208
40

SYES !!

:SET ERROR FLAG

égl;n BIT TEST IF ANY ERRORS

. T

e b

— e d cd o
R - ad o e

PSS eReRSS8eSKEREC2STRIRRRAD SBIIVIANIRNITEo S N

OCO0O000O

A S

e cmd D d D nd e d wd D D D =D D D D ) D =D
b b D e D d D e cnd D D ) D D ) D ) ) D

DESIRED CYLINDER TRANSFER TEST

CTST

BNE
MOV

000001

608
#,R2

:R2 = TEST PATTERN

5555' RMDC WITH SHIFTING ONE BIT

go0o0o
176

000034

00008 001142
001140

mov

MOV
MOV
BIC
MOV
CMP
BEQ
MOV
EMT
BR

LRMDC (RO)

:LOAD RMDC

R2.RMDC (RO)
: gw RMDC
:R3 = EXPECTED RESULT
R2.R3
ANY UNUSED BITS
SCLEAR
,R3
#XNUDC
RMDC (RO) ,$BDDAT :STORE RMDC AT S$BDDAT
$BDDAT RS
5
R3,$GDDAT
)
:SKIP TO NEXT
60s

CZRNBAO RMB0 DSKLS PT1 MACRO Vv04.00 1 4=JAN-82 16:33:00 PAGE 13-25
126
DESIRED CYLINDER TRANSFER T EST
508:

2 617002 801382

ASL
BNE

SEQ 0120

;SHIFT TO NEXT BIT
;CONTINUE IF R2 NOT ZERO

60$:
9232222222322 2222 2222332222233 2333332203022 d

SRTEST 25

ILLEGAL REGISTER TEST

fs12s:

_—

S 0SS

b
)

ey
-l

MOV

#STACK, SP

:LOAD THE STACK POINTER

CLR
MOV

$GDDAT
#0,R2

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

$BASE ,RO
TSTQUE ,R1
#25,$TESTN

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

#~CILR,SBDDAT

MOV
ADD
EMT
BR

RO, $BDADR
#RMER1,SBDADR
64
1408

BEQ
CLR

=gf8szges

0000
017164
000300

RMER1 (RO) , SBDDAT
208
$GDDAT

:G0 CLEAR CONTROLLER

:STORE RMER1 AT SBDDAT

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

:R3=REG ADDRESS

MOV

ERRVEC,=(SP)

::PUSH ERRVEC ON STACK
- :PUSH ERRVEC+2 ON STACK
:SETUP FOR BUS TIMEOUT

MGV
CLR
CMP
BNE

R2.R3

ERRVEC+2,=(SP)

#4608, ERRVEC

+2
#PR6.ERRVEC
Ré
#RMCS2,R2
308

:R4=REGISTER VALUE

MOV
MOV
ggv

*WRITE TEST REGISTER
R&, (R3)
STACK INTO ERRVEC+2
:POP
(SP)+,ERRVEC+2
::POP STACK INTO ERRVEC
g3§)+.eanvec

(R1),.Ré&

:SELECT DRIVE IF RMCS2

MOV
RTI

#458, (SP)

:DUMMY RTI ADDRESS
*RESTORE PRIORITY

000006
000004
000046

MoV

(SP)+,ERRVEC+2

001136

MOV
EMT

ol e

017172

RO.R3

MOV

308:

MOV

000004
000006

000010

&»HO

BIC

MOV

N
~

&RSRRRENSEREHENFRSER

D ) ) =D
b

PC,CNTCLR

ADD

NN PR
flrgird
o

JSR

éggxrs THE REGISTER (INDEX=R2) AND TEST ILR STATUS

b e omd =D =D

EE&S Onon

g2Roohat
S

NNNNNNNNNNNNNNNNNNNNNNNYNY

S 2833

LSSKSE
=

::::§§
DWW

NO
=1
NN

caig
VY

OO0O0O

OO0 O0O000O oo

b b
b
b b b b b =
b b b =
b = e e
b o
e e e
— o

:SCOPE CALL

35»

MOV
MOV
MOV

601226

2R dddiiiddiddl)

isgsAn AND VERIFY THAT “ILR'* STATUS IS ZERO

1704

0000000000000 O0O0O0O000O

=0OVWL
VS WN

il o wmsd e

B e

::ynv“nun VIR

e i b e D ) D b b b e cd
D e oD D wd D D wd b d
TRb o i
NI NN
NN NN NN NN NINNNN
— = —
WNNWWNI NINN N PININD

[EGRERISeEN SRR VMU-‘Etosg\fll\fiJflfiwu-‘CNOC.*G

s I

O000O00O

9333322222222 22222222223 3233333333232 823222222

i diiiiidiiiddl)

408:
-

MOVB

MOV
CMP
BHI

(SP)+.ERRVEC
R2 ,#RMEC2
508
R3,$BDADR
74

::POP STACK INTO ERRVEC+2

;:POP STACK INTO ERRVEC
*WERE ALL REGISTERS READ??
SYES!!

E 10

SEQ 0121

ILLEGAL REGISTER TEST

}igz 017216 000503
1259

017

14 00114
17220 81 7
00114
177775
017
1260
00114
001140
023737
1261 017
1 ”§ 017242 0014
001174
1263 017244 010337
001140
880002
032737
017250
1264
1265 017256 00100
1266 017

1%67 017

10406

1268 017264

702

1273 017272
1274 01727
1275 o17303
1280 017302
1281 017
1282 81731
1283 017320
1296 omgg
1297 017334
1298 017340
1%93 017346
017354
130
1301 017362
1so§ 017364
1303 017370
1304 017376

022702
101231
103437
013746
oung
01373
012737
osgr 7
012702
omsg
ousog
042737
00100
01 72
0126
012637

}% 017406

00061

1305 017400 022702
1306 017404 10141
1309 017410 012716
1310 017414
1311 017416 012637

MOV
BIC
CMP
BEQ
MOV
BIT
BNE

EMT

80s:

000002

000050

000004
ooooog
017410
000
000054
001400
S0
177774
000050
000004

000004
000006
001140
000000
001406
001406

000074

908:
1108:
1208:

017416

1308:

000006

1358:

131; 017422 012637 000004
} }‘ 017426
1 15

EMT

1408:

ADD

8};2 6

0174
0174
01744
17446

:STORE RMER1 AT SBDDAT
RMER1 (RO) ,SBDDAT
e
#“CILR,S$BODAT
SGDDAT.$BDDAT ;IS "ILR'* OK??
SYES!!
80$
:SAVE ADDRESS,
R3,$TMPO
'‘ILRTM* BE SET??
*SHOULD
#1LR,SGDDAT
SYES!!
70$
a5

80s

og R2

: INCREMENT INDEX

(SPS+,ERRVEC+2
(SP)+.ERRVEC
#764 R
1408

:
:
:DONE ALL TESTS
SYES!!

#1358, (SP)

:DUMMY RTI ADDRESS
*RESTORE PRIORITY
:

CMP
BHI
BLO
MOV
MOV
MOV
MOV
BIS
MOV
MOV
MOV
BIC
BNE
MOV
MOV
MOV

STIME TO TRY RH70 ?
#50,R2
*BRANCH IF NOT
108
CHECKED
IF ALREADY
*BRANCHERRVEC
1108
STACK
ON
:;PUSH
ERRVEC,=(SP)
::PUSH ERRVEC+2 ON STACK
ERRVEC+2,=(SP)
TIMEOUT
FOR
:SETUP
#1308, ERRVEC
#PR6, ERRVEC+2
:SET ILR
#I1LR.SGDDAT
START AT INDEX 54 IF RH70/22REG
#56 R2
:SET EXTEND BITS
S1(RD)
#A17'A16,RMC
EXTENDED BITS
THE
:READ
RMBAE]
so(ng)
#177774 ,RMBAE] :CHOP OFF
*BRANCH IF RH70/22-REG
90$
*OTHERWISE NOT A RH70 OR RH70 WITH 32 REG
#50,R2

108

CMP
BLOS
MOV
RTI
MOV

MOV

(SP)+,ERRVEC+2

(SP)+.ERRVEC

SEND OF TEST

;:tttt.t.tttt!tt'.ttt.'.tttt'tttt.tttQttttt.t.'ttltt.ltlttttttt.t

SeTEST 26

RESET GO BY INIT TEST

° 'ttttt.fi.tttttt.tttttt't'tttltttt.ttt.tl.tt‘.tttttttttt.tt't't.lt

fsr26:

017426

ngo
1276
1466
26 001226

1;1? 017454 004737 055156
131

608:

1408

-ADVANCE TO THE NEXT REGISTER ADDRESS

1270

1 75 0172

708:

N 017264 104066
1271 017266

508:

gggpe

MOV
MoV
MOV
MOV

JSR

:SCOPE CALL

#STACK 39
$BASE ,R
TSTQUE ,R1
#26,$TESTN

PC,CNTCLR

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

;G0 CLEAR CONTROLLER

p—y__

cimo RMB0 DSKLS PT1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE 13-26

RESET GO BY INIT TEST

126

MOV

} 113 017460 010037 001136
.

} 1 017464 012760 000001 000000
8174.72

004737

1324 017476 3139 7
1325 017504

7 177776

17512

ooug;

}

8 017520

104137

1327

017514

055156

005037

F10

RO, $SBDADR

SEQ 0122

:SETUP REGISTER ADDRESS FOR MSG

;SET GO, INITIALIZE AND VERIFY THAT GO IS RESET

MOV

#GO,RMCS1(R0)

;LOAD RMCS1

JSR

PC,CNTCLR

:60 CLEAR CONTROLLER

BIC

#°CG0, SBDDAT

CLR

sgow

MOV

38"‘5
00114

BEQ

001140

EMT

RMCS1(RO) ,SBDDAT
108

:STORE RMCS1 AT $BDDAT

:BRANCH IF GO IS RESET

137

;END OF TEST

} X 017522

108:

1332

::.tttttltQtttt.ttltt"'ttt'ttt.ttltttt.tt.l'.tttt.ttttfi...t.tt'.
. 'ttt.ttttt..tt..ttt.tt't.ttttt.tt'Qtt.tttt..ttttttt.tttlt.'t.tt.

tsr27:

owszs

0"55 000004
017524 ooo;l.o
onsig 1; 06
13700
0175
017536 013701
i 017542 012737
1334 017550 010037
1335 017554 062737
}%9 017562 005003

1333
1339 017564 004737

1340 017570 ou%r

001100
001276
oousg
000027 001226
001136
000024 001136
055156

;4. 001142

042737

177776

134 owoog 005037

001140

1341 017576

134; 017604

00140

}g‘ag 017612

104075

}

1351 0176

135
1;54.

17644

17663
1765

13%

5037
1gt.o7g

Pg’% et
1359
1
1361
136;
1;2‘

7 177776

001405

}3” 17654 052703

oogg;c

17712

012737

MOV

RMMR1 (RO) , SBDDAT

BEQ

108

BIC

CLR

114

00114

000001
24
24
1145
00114
000001 001140

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

#*CDMD, SBODAT

sgom

:STORE RMMR1 AT SBDDAT

:BRANCH IF 'DMD'* IS ZERO

iggl’ AND RESET "DMD'* USING REGISTER TRANSFER=VERIFY ‘DMD'’ NOT S-A-1

mov

RMMR1
:LOAD RMMR1
#DMD ,RMMR1(RO) :LOAD

BIC

#°CDMD, SBODAT

MOV
MOV

#0,RMMR1(RO)
RMMR1 (RO) , SBDDAT

<STORE RMMR1 AT $BDDAT

;BRANCH IF DMD NOT S=A=1

BIS

#81TO,R3

:SET ERROR FLAG

mov
MOV
MOV
BIC
BNE
MOV

:LOAD RMMR1
#0,RMMR1(RO)
#DMD .RMMR1(RO) :LOAD RMMR1
:STORE RMMR1 AT SBDDAT
RMMRT (RO) ,SBDDAT
c-gono.selim
30
:BRANCH IF DMD NOT S=A=0

BEQ

001140

017660 81 7
1
17696 127
;4
1;9 4 01
7 177776
1770
1771
1

#STACK, SP
$BASE ,RO
TSTQUE R
#27,STESTN
RO, SBDADR
#RMMR1, SBDADR
R3

EMT

1349
1350 0176

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV
ADD
CLR

RESET CONTROLLER
VERIFY THAT ‘DMD'*:60IS CLEAR
AND PC,CNTCLR
;INITIALIZE
JSR

001142

oooosl.
012760 000001
1348 817614.
000024
000000
81 769
017
1 sg

DIAGNOSTIC MODE TEST

SRTEST 27

LR
MT

GDDAT
6

5355“ AND SET "DMD* USING REGISTER TRANSFER=VERIFY 'DMD'* NOT S=-A-0
T

#DMD, SGDDAT

-d

CSR'GAO RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-27

:1F _NO PREV!OUS ERROR, TEST FOR BIT INTERFERENCE WITH SHIFTING
PATTERN

:ONE BIT

N—=wn
~
o
N~NW

$0s:

E;‘Q‘U‘U'iRS 3

sANY ERRORS DETECTED??

mov

co mu RO)

;LOAD RMMR1

ssow

:DMD SHOULD BE ZERO

BNE
MOV

OO
- OMNN
WWWO

OoON

288
g2228R222
ANORON

555555::E§E§dhd-‘-‘-‘dhd
I3
ISSSIS NI
N~
N~
~

;SET ERROR FLAG

MOV
MOV
BIC
BEQ
MOV
MOV

60$
#B81T1,R2

SYES!!
SINITAILIZE DATA PATTERN

:LOAD RMMR1
RMMR1(RO)
:STORE RMMR1 AT $BDDAT
,SBDDAT
(RO)
mim
c*cono.sefiDAT
:BRANCH IF DMD NOT SET
*SAVE DATA
assmo
$SAVE DATA
$TMPO

—d cmd

&3
e

VoO~NOW

cd D

§3’§’" TO NEXT DATA BIT AND CONTINUE TEST IF NOT DONE

608:

AsL

BNE

408

;END OF TEST

tttt..ttttttttttt.t'.tt't't'tttt.ttttttttt'ttlt'lttt.'tttt'tttt

SATEST 30

MOL TEST

00
001276
0014
7 000030

O
o000

S
SIN SRGR288R SRRREN2
—

(=)

=D ek D =

b b e

b oD B e

D D =D B

N NN NN
BB SEEEBEDWW NN

rs
go
00001

's‘sgps

:SCOPE CALL

MOV
MOV
MOV
MOV

#STACK, SP
$BASE , RO
rsroué R1
#30,$TESTN

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

JSR

PC,CNTCLR

;G0 CLEAR CONTROLLER

CLR

;R3=ERROR FLAG

MOV
ADD

RO, SBDADR
S
, SBDADR
#RMD

:RO=REGISTER ADDRESS

THAT ‘MOL'’ IS ZERO
AND
sSET DIAGNOSTIC MODE VER&FY
LOAD RMMR 1
RMMR
#DMD ,
MOV

MOV

RMDS (RO) saooAr sroae RMDS AT $BDDAT

001140

CLR

%S?DAT

000001

8IS

#81T0,R3

BIC

%gnou..séoo

sSET ERROR FLAG

1357 MAINTENANCE UNIT READY AND VERIFY THAT ‘MOL'' IS ONE

g gy s
16029
12 1142

MOV

(RO)
#DMD mm L

#DMD |

kOAD mm

RMMR1

RMDS (R ) saoon :STORE ahosAT SBDDAT

oo
l’ig
o3 2
oy

0000000000000
O0

032705 000002

77
#8IT1,R3

EMT
BIS

SEQ 0123

gSEdEEREE&&3

[+ ]

d cd wd cnd D e

) b

.‘ii
wn

SKL
ST1

G 10

ist;att..ttt.t.t't.!tt"'t"ttt.i!tlifit.l.tt.t..tt'.ttt.tltt.t..t

ad e

RO V04.00 14=JAN-82 16:33:00 PAGE 13-28

FREEE mo

i
-

SIS

[elelel=l=]

e
e

2737
1

167777

001142

010000

001140

VERIFY VOLUME VALID IS RESET AND

TEST FOR BIT INTERFERENCE

#°CVV,$BODAT

001140
25$:

sYES!!

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

7 e

000024

ERROR DETECTED??
sANY
“YES!!

708

308:

820 54

sBRANCH IF VV RESET

f.R2

sINITIALIZE DATA PATTERN

(R0)
, RMMR1D
#DM
R2 ,RMMR1(RO)

;LOAD RMMR1

c;cnot.séooAt

408:

tcit

;ss
gLDAt
135

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

00114
00114

CMP

sSETUP EXPECTED "MOL'*

R3,$BDDAT
508

2'MOL’" SHOULD
;1S ’?t 0K?2?
SYES!!

#MUR,R2
408
#MOL ,R3

ag.srnro
R3 $GDDAT

sSAVE TEST PATTERN

108

:SHIFT TO NEXT PATTERN

bk o

50s

vy
VR 4 WA= OV TM

60$:

EENRENDS

) md D od
el e
d =D o
e

SEQ 0124

-SGDDAT

205:

)

::z:gdflhhHUC’

ek
ek ok

SSRSSOSSSSSSS
SRR
SYZRR
RO~

OO0O0O00O00 000000000

— e

#8IT1,R3

:IF NO PREVIOUS ERROR

o 3l ol

D ad e cd D e
-

b md
D
b md d

EMT
8IS

ed b e

d md md

#~CMOL
, SBODAT
0$

8IC
BNE
MOV

#DMD ,R2

;DONT SHIFT DMD

:DONT _TRUNCATE TEST

sSHIFT TO NEXT BIT

ASL
BEQ
BIS
BR

sBRANCH IF DONE
sKEEP DMD ON
s CONT INUE
sEND OF TEST

708:

':'tt..t'tttt.ttfit'tt.""t'tt'tt‘.tt't'tt.titt.'t'.tlt..."tl..t

s*TEST 31

WRITE LOCK TEST

3221222323228 222 2222

5131

1456

H 10

BIC
BNE

MOV

000002

:
PN

RS WKIE I3
BESEPEIDNS
SEERG
=
nghfi‘fldfififlsg V00 NO VSN
WR=O o8 WA

) D i
D cd D D cd D ) i

LS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-29

2233232223222 2 22223

:SCOPE CALL
#STACK 39

$BASE ,R

001226

dadiiiiidididdddd)

TSTQUE ,R1
#31,8TESTN

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

ssSET TEST NUMBER IN APT MAIL BOX

-4

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

110

SEQ 0125

Wh=O

b
b e

CLR

114

MOV
ADD
CLR
JSR

001136

055156

RO, $BDADR
#RMDS ,$BD
$GDDAT
PC,CNTCLR

:R3=ERROR FLAG

:SETUP REGISTER ADDRESS
;WRL SHOULD BE ZERO
*G0 CLEAR CONTROLLER

:SET DIAGNOSTIC MODE AND msn "WRL'* IS ZERO

MOV
MOV

#DMD ,RMMR1(RO) ;LOAD RMMR1
RMDS (RO) ,SBDDAT :STORE RMDS AT SBDDAT

ggg

}32

:BRANCH IF WRL IS ZERO

#8ITO0,R3

:SET ERROR FLAG

BIC

8IS

, SBDDAT
#*CWRL

iggg MAINTENANCE WRITE PROTECT AND VERIFY *MRL'' IS ONE

mov
MOV
MOV
BIC

#DMD .RMMR1(RO) :LOAD RMMR!
:LOAD RMMR1
| MUP ,RMMR1 (RD)
#DMD
RMDS (RO) .$BDDAT ;STORE RMDS AT SSDDAT
L
, SBDDAT
#*CWR

gg}f

ml..seom

208

:BRANCH IF WRL IS NOE

BIS

#81T1,R3

:SET ERROR FLAG

BNE

*WRL SHOULD BE SET

55; 'NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE ON ‘MuP'

BNE
MOV

708
M ,R2

:ANY OTHER ERROR??

SYES!!
SINITIALIZE DATA PATTERN

iwwsren DATA TO RMMR1, READ RMDS AND VERIFY WRL

mov

#DMD ,RMMR1(RO)

:LOAD RMMR1

CLR

:GENERATE EXPECTED ‘WRL''

MOV
MOV
BIC

FI3e
SRERSE

BIT

NG&Og

OO00O0O0000

D md
D e
d d
d d o

NSR

RRERRERER

Sk"agt#S& 3

00000

gi 1s ;7

D b

d d d

D =D

Vi
e &

—

OO000O00O000

b b D ) D ) D e

BEDERSSN EEERESDD

D i

[=lelelelele]

283 STBIRARER2EIRIFANGN335352525888
3 SSORERS8889858

D ) ) ) ) ) b

ITE LOCK TEST

BEQ
408:

:LOAD RMMR1
R2,RMMR1(RO)
RMDS AT $SBDDAT
:STORE
T
RMDS(RO),$BDDA
#°CWRL,$BDDAT = :CLEARUP RECEIVED 'WRL'
AP, R2

408

BIS

#WRL ,R3

;WRL SHOULD BE SET

MOV
MOV

R3,$GDDAT
T

*SAVE EXPECTED
*SAVE DATA PATTERN

(WP
BEQ
EMT

R3,SBDDAT
sgi

:IS WRL 0K??
SYES!!

§32‘.’”“E TO NEXT DATA BIT

T
60$:

BIC
BNE
MOV

#DMD ,R2
60$
#DMD ,R2

BIS
B8R

#DMD ,R2
308

ASL
BEQ

as
70$

;DONT SHIFT DMD
:DONT TRUNCATE TEST

SSHIFT DATA BIT
SEXIT IF DONE

*KEEP DIAGNOSTIC MODE ON
*CONTINUE TEST

C ;RNDAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-31
T 1

J 10

SEQ 0126

WRITE LOCK TEST

;END OF TEST

708:

st RAARRRRARRARNARAANAANRCERNRAAAAAAAAAAAARAAAAAAAARAACAAARRAAROAOD

DRIVE FAULT TEST

SeTEST 32

:
o

—

NNNWN

end ol

N=—-

ek ok

2 28§ Soens
uua£§83 33g%

001226

001136
000042
001140

MOV

#STACK, SP

:LOAD THE STACK POINTER

MOV
MOV

rgroué R1
#32,8TESTN

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

JSR
CLR
MOV
ADD
CLR

055156
001136

it ddiididiiiddiddidld)

:SCOPE CALL

MOV

$BASE ,RO

Pg.cnran
R
RO,$8D
#RMER2,$BDADR
$GDDAT

Eang
223
SSI%S

MOV

*RO = UNIBUS ADDRESS

:60 CLEAR CONTROLLER
:INITIALIZE ERROR FLAGS
:SETUP REGISTER ADDRESS
i
:*DVC'* AND ''UNS'* SHOULD BE ZERO

#DMD ,RMMR1(RO)

:LOAD RMMR1

MOV
BIC

:LOAD RMER2
:LOAD RMER1
2
;STORE RMER2 AT $BDDAT
(RO) , SBDDAT
RMER
18govc.saoonr
:sgs:?VC' RESET??

EMT
BIS

107
#8ITO,R3

sSET ERROR FLAG

MOV
MOV

22
o93882
NN
NN

+STUCK=AT=ONE.

#0,RMER2(RO)
#0_RMER1(RO)

#UNS, $GDDAT

MOV

NN
W - NN
=SONNNN SNNN

MOV

¢3iy:
Y
NS

RMER1 (RO) , SBDDAT

#~CUNS , SBDDAT

BEQ
MOV
ADD

308
RO, SBDADR
#RMER1, SBDADR

SYES!!
*SETUP REGISTER ADDRESS

BNE
EMT
BR

20$
110
308

SYES!!

$GDDAT.SBDDAT

SR
S

BIT

208:

:STORE RMER1 AT $BDDAT

BIC

CMP

o
-

iEiECNDCDC$ =lelele] Eg gg

1100
1276
14

asgre

iggaxrv THAT "UNS'* IS SAME AS ‘DVC'’

#UNS, SGDDAT

;IS 'UNS'* 0K??

:SHOULD *'UNS'* BE ON??

111

EMT

Ssgsev AND SET 'MDF'', VERIFY THAT *DVC'* IS NOT S=-A<0.

-anugyuhuu
NNN
W
S3 ~
prd

prur QuurPuururd

R
P

tsr32:

:SET AND RESET MAINTENANCE DRIVE FAULT, VERIFY THAT ‘DVC'* IS NOT

e
ed mmd =
b
ed
e
d o

i e e e

e e i D e o e e

D i e

D e D i De

D e D e

) D

D b =

D b D D e b b

9NYY
vcvova&\n&mv‘umuvnuumuuuuvcmummmu
Ufizgvfiu*zu‘ DATARE £ P
uaw-oogwFRRUKLEEBVIRRUNES Voo~
SEBIRAR WN=OV0~N
000000000
o OCO000O0 = l=l=l=1~]
000
NN
SSS9%0%%8
Y] ~°N°
SS9
SSS
OO
v
OO\
PN
Roons
8: o
W
Ro gth”UJi;;: 3::3?‘

-a-og
3Z35E [elelelelel=T=]
e C?gg?g"

3212222222232 3233222222222

MOV
MOV

MOV
MOV
BIC

BNE
MOV
ADD

#DVC,SGDDAT
#DMD (RMAR1(RO)

:DVC SHOULD BE ON
:LOAD RMMR

408
RO, SBDADR
#RMER2, SBDADR

:BRANCH IF DVC IS SET
*SETUP REGISTER ADDRESS

#DMD ' MDF ,RMMR1 (RD)
RMER2(ROS,S$BDDAT
#~CDVC, SBODAT

:LOAD RMMR1
*STORE RMER2 AT $BDDAT

CLR

001140

508:

020016

137777
001140

000014

e
e
e e
P

60%:

$GDDAT

BEQ
MOV

508
#UNS, SGDDAT

MOV

RMER1 (RO) , SBDDAT

BIC
CMP
BEQ

NS
, SBODAT
#°CU
AT
. SBDDAT
$GDD
70$

ADD

#RMER1, $BDA

EMT

114

MOV

001136

$GDDAT

;SET ERROR FLAG
sUNS SHOULD BE OFF

:VERIFY THAT 'UNS'’ IS SAME AS "DvC"’

408

040000

112
#8IT1,R3

BIT
BNE
EMT
BR

RO, $S8DADR

#UNS, SGDDAT
608
113
708

s CHANGE DVC TO UNS

:STORE RMER1 AT $BDDAT
:BRANCH IF UNS IS OK

*SETUP REGISTER ADDRESS

:SHOULD UNS BE ON??
SYES!!

Y
S NPy

—d
d b

b
b

—t =

WNOOS
WVINN NO NNWwWN

908:

001136

2°N

1208
#1.R2

:BRANCH IF ANY OTHER ERRORS
SINITIALIZE TEST PATTERN

MoV
MOV
MOV

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

;LOAD RMMR1
:LOAD RMER2
:LOAD RMMR1

CLR
BIT
BEQ
BIS
(MP
BEQ
MOV
ADD
MOV

$GDDAT
#MDF ,R2
908
#DVC,SGDDAT
$GDDAT, SBDDAT
1008
RO, SBDADR
, SBDADR
#RMER?
R2,$TMPO

*SETUP EXPECTED
*WAS MDF SET??
*NO'!
*YES=DVC SHOULD BE ON

MOV
BIC

001142
001142

w Eg-aANINEND

- S2SRISISR 0000

000024
000042

EMT

SasEIRs
HowWnnNON

goSNt

&NS

W
e
N

==l

N AN N s

b
b
b
d
b
b
—
e

BNE
MOV

:STORE RMER2 AT $BDDAT
RMER2 (RO) ,SBDDAT
#°CDVC,$BODAT :GET RESULTS

11§

:BRANCH IF DVC IS OK
*SETUP REGISTER ADDRESS
:SAVE TEST PATTERN

-SHIFT TO NEXT BIT POSITION

ddu

e e

)b = e

e e

o
OOOOOOOOOOOE‘OO
=1=] [=l=l=}
+
AN

D ed

708

100s:

1108:

000001
1208:

8IC
BNE
MOV
ASL
BEQ
BIS
BR

#DMD ,R2
1108
zbflb.RZ
s
1208
#DMD ,R2
80%

sDONT SHIFT DMD
sDONT _TRUNCATE TEST
sSHIFT
sEXIT IF DONE
sKEEP DMD ON

sEND OF TEST

-4

S &

oNO

SSRsanaasSssas
SITRIRELENarroSnR

005737

e T

NN N NN NN

0000000000000
00O

i 001160

EMT
8IS

FAULT

SEQ 0127

:;;D;flgne WERE NO PREVIOUS ERRORS, TEST FOR BIT INTERFERENCE ON

o000
000009
R

VNS WN=O

14=JAN-82 16:33:00 PAGE 13-32

o
NN

[
l=1=]

—

-‘wé
SRSRIR2]8S SRYRVREN2 8T8 SR FRARNIBIIIGNAN SITELETFERg

b
D
b
D md e
b and
b b
—
b
b
b

TES?ACRO V04.00
DSKLS _PT

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

L 10

SEQ 0128

DRIVE FAULT TEST

;:tttttttttt.ttttt.t"ttttt'tttt.Qttt'.tttttttttt'ttttttti't.ttt.

1617
1213

S*TEST 33

02133

22 tttttttttttttttfittfit.ttttttttttttt..t.Qttltttt.ttttttttl'tttttt

T57133:

:SCOPE CALL

SCOPE

021332

000004

021
021342

o1§ 06 001100
013700 001276

MOV
MOV

#STACK, SP
$BASE ,RO

:LOAD THE STACK POINTER
*RO = UNIBUS ADDRESS

004737 055156
005003
010037 001136
062737 000042

JSR
CLR
MOV
ADD

Pg.CNTCLR
R
RO, SBDADR
#RMER2, SBDADR

:6G0 CLEAR CONTROLLER
:CLEAR ERROR FLAGS
*SETUP REGISTER ADDRESS

021334

NOP

ooo;ao

MOV
MOV

021343 013701 001466
‘o 021352 012737 000033 001226
1620 021360
1621 021364
1622 021366
}g%z 021372

001136

1625
1626 021400 012760 000001 000024
1627 021406 012760 000000 000042
1628 051414 016037 oooo4; 001142
1629 021422

042737

1632 021436

104116

1630 021430
1631 021432

001405
005037

137777

001142

1636 021444

012760
012760

000001
000000

1641 021474
1642 021502
1643 021504

042737
001005
012737

137777

040000

}gzg 021512 052703 000002
1649 021516

000024
000042

i0s:

001142

005037

001140

1661 021574

os§737

040000

166§ 021602

021610

001403

MOV

RMER2 (RO) , SBDDAT

BIC
BNE

BIS

#BIT1,R3

001140

001142

MoV

000200

001140

:SET ERROR FLAG
:LOAD RMMR1
:LOAD RMER2

#DMD 'MSER , RMMR1 (R0)

#4CSKI1,SBODAT
208

BNE
MOV

000024
1655 021542 010260
1656 021546 01603 ogoo4; oo1145
1657 051554 042737 137777 00114
023737

:BRANCH IF SKI IS RESET
*SKI SHOULD BE ZERO

#5K1,$GDDAT

:LOAD RMMR1

*STORE RMER2 AT $BDDAT

:BRANCH IF SKI IS SET
SCANT SET SKI

:SET ERROR FLAG

:IF NO PREVIOUS ERROR, CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE

000001

1658 021562

116

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

012760

108
$GDDAT

MOV
MOV

“SEEK ERROR.
208:

1654 021534

032705
00140

#8IT0,.R3

MOV

001140

000024
1655 oz1s§2 012760 000001
000000 000042
1659 0 1563
1660 021572

EMT

MOV

001142

005703

1650 0 1550 001051
3221 823?25 012702

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

-SET MAINTENANCE SEEK ERROR AND VERIFY THAT ''SKI'* CAN BE SET

1646

1647
1648 021516

#~CSKI,SBDODAT

BEQ
CLR

1639 021460 012760 000201 000024
1640 021466 016037 000042

BIC

BIS

1635

1637 021444
1638 021452

TSTQUE ,R1
#33,$TESTN

;SET DIAGNOSTIC MODE AND VERIFY THAT *‘SKI'* CAN BE RESET
#DMD ,RMMR1(RO) :LOAD RMMR1
MOV
:LOAD RMER2
#0.RMER2(R0)
MOV
;STORE RMER2 AT SBDDAT
RMER2 (RO) , SBDDAT
MOV

001140

}ggz 021440 052703 000001

1663

SEEK ERROR TEST

40$:

708
M ,R2

:BRANCH IF ANY OTHER ERRORS
SINITIALIZE TEST PATTERN

RMMR1
#DMD ,RMMR1(R0O) :LOAD
:LOAD RMER2

MOV

lO.RHER%(RO)

CLR

$GDDAT

:SETUP EXPECTED RESULT

BIS

#SK1,SGDDAT

:SKI SHOULD BE ON

BEQ

508

:BRANCH IF SKI IS OK

MOV
MOV
BIC
BIT
BEQ

CMP

:LOAD RMMR1
R2.RMMRT(RO)
:STORE RMER2 AT $BDDAT
RMER2 (RO) ,SBDDAT
#°CSKI,SBODAT :GET SKI STATUS
#MSER,R2
408

$GDDAT, SBDDAT

-4 Y

;guaao RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-34

SEQ 0129

SEEK ERROR TEST

1664 021612

010237

1222 021616 104120

MOV

001174

EMT

1668 021620

}2;2 021642 000731

120

;SAVE TEST PATTERN

-ADVANCE TEST PATTERN IN R2

1667

1669 021620 042702
1670 021624 001002
167 0%16%3 012702
ooeso;
167§ 0216
1673 021634 00140
1674 021636 052702

as $TMPO

50s:

000001
000001

608:

000001

BIC
BNE
MOV
ASL
BEQ
BIS

B8R

#DMD ,R2
608
#DMD ,R2
R2
708
#DMD ,R2

308

1678
1679

sDONT TRUNCATE TEST
sSHIFT TO NEXT BIT
sEXIT IF DONE
sKEEP DMD ON
sCONTINUE TEST

;END OF TEST

708:

1677 021644

;DONT SHIFT DMD BIT

3232222222222 2222 2322232323323 3333232323232
::

SRTEST 34

332222222228 32222222 3222230322223 32822

75134:

021644

021646
021650
021654

000240
012706

013700

004737
005003
010037

001100
001276

MOV

MOV
MOV

001136

1687 021712

012760

000001

000024

1689 021726
1690 021734
1691 021742
1692 021744
. 1693 021750

016037
042737
001405
005037
104121

000012
157777

001142
001142

1688 021720 012760 000401 000024

}ggg 021752

052703

sSCOPE CALL

SP
#STACK,
$BASE ,R0

TSTQUE ,R1
#34,STESTN
PC,CNTCLR
R3
RO, $BDADR

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

ssSET TEST NUMBER IN APT MAIL BOX
;G0 CLEAR CONTROLLER
sRESET ERROR _FLAGS
sSETUP REGISTER ADDRESS

#RMDS , SBDADR

MOV

:LOAD RMMR1
OAD RMMR1
AT $BDDAT
RMDS
RMDS (RO) ,$BDDAT ;STORE

BIS

DMD , RMMR1 (RO)

#DMD i MOC , RMMR1 R(RD)

#~CPIP,$SBDDAT
10$
$GDDAT
121

#BITO,R3

sBRANCH IF PIP IS RESET
sSET ERROR FLAG

:RESET MAINTENANCE ON CYLINDER AND VERIFY THAT ‘PIP'' CAN BE SET

o12769

000001

000024

1700 021772
1701 022000
1ro§ 022002
1703 022010

042737
oo1ogg
012737
104122

157777

00114

020000

001140

1699 ogwu. 016037

052703

00 01; 00114

MOV

BIC
BNE
MOV
EMT

BIS

, RMMR1 (RO)
#DMD

:LOAD RMMR1

RMDS (RO) ,SBDDAT :STORE RMDS AT S$SBDDAT
#~CPIP,$BDDAT
208
op$p.scooAt
12

#8IT1,R3

sBRANCH IF PIP IS SET
sSET ERROR FLAG

:IF NO PREVIOUS ERROR, TEST FOR ADJACENT BIT SETTING "MoC*

208

17%9 022015 005703

801 3
012702

i0s

000002

1708 022016
1709 3 2020
1710
022022

i ittt dddddd)

ADD

MOV
BIC
BEQ
CLR
EMT

000001

1698 021756

};83 022012

222

iiidiiitddd)

sSET HAI%SNANCE'M CYLINDER ‘MOC'* AND VERIFY THAT 'PIP'* CAN BE RESET.

001140

1696

1697 051756

JSR
CLR
MOV

055156

}ggg 021706 062737 000012 001136

1686

SCOPE

NOP
MOV

021660 013701 001466
o 021664 012737 000034 001226
1681 021672
1682 021676
1683 021700

PIP TEST

000001

TST
BNE
MOV

R3
708
#1.R2

sBRANCH IF ANY PREVIOUS ERRCR
sINITIALIZE TEST PATTERN

c&m RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-35
T

N 10

SEQ 0130

PIP TEST

1713

-WRITE THE TEST PATTERN, CHECK MOC USING PIP

$0s:

022026

1 000024
1714 022026 012760
1715 022034 01
24
1; 88""
1719 8 040 01
14l
0'52 042737 15777
114
1713 0 50

og g 7

1719 022060 03270

1720 022064 oo1gg
1721 0
05
17 g 022074
1723
022102
1724 055104

023737
001403
010237

};52 022110 104123

8831“

40S:

001142

001174

17;3 022112 042702
1730 0 %116 00100
1731 022120 012702

052124 00630
0 %1 6

BNE
8IS

408
#PIP,S$GDDAT

:PIP SHOULD BE SET

CMP
BEQ
MOV

#MOC ,R2

$GDDAT, SBDDAT
508
as $TMPO

125

:BRANCH IF PIP OK
*SAVE TEST PATTERN

-ADVANCE THE TEST PATTERN

1728 0 211;

1733

*SETUP EXPECTED

EMT

1727

$GDDAT

BIT

020000 001140

001140

CLR

(RO) :LOAD RMMR1
#DMD,RMMRT
R2,RMMR1(RO)
:LOAD RMMR1
.
RMDS (RO) ,SBDDAT :STORE RMDS AT SBDDAT
#°CPIP,$BDDAT :GET PIP STATUS
RESULT

MOV
MOV
MOV
BIC

50s:

000001
000001

608:

00140

BIC
BNE
MOV

#DMD ,R2
60$
#DMD ,R2

;DONT SHIFT DMD
:DONT TRUNCATE TEST

BEQ

70$

*EXIT IF DONE

ASL

708:

1739

::tttttttttltt'tttttttt"tt't't.'.Q.tttttttt'ttttt.tfitttttttttttt

S*TEST 35

022136

Ts7135:

000004

022142
022146
022152
s 022156

ooo;t.o

o1§ 06
013700
013701
012737

1741 022164

005003

};fi 022200

005037

001140

mg
1747 022204

004737

055156

001100
001276
001466
000035 001226

174 022193 o1oo§7 001136
1743 022172
062737 000026 001136
1748 0 5210 01 037 °299§" oom.g
1749 022216 042737 157777 00114
1750 0 gzzl. 001403

1751 02 553 10412%

};gg 022

*KEEP DMD ON
*CONTINUE TEST
;END OF TEST

EBL TEST

. : P 232322233228222333282228223222223%33333333333333
333333333333 33332333;]

022136

022140

#DMD ,R2
308

SSHIFT BIT

1734 022130
052702 000001
};gz 022134 000734
};g; 022136

1754

BIS
B8R

052703 000001

1732
1757 85%2%.‘
022242 012760
012760 8%00”1oastnt
000054

SCOPE

:SCOPE CALL

NOP

MOV
MOV
MOV
MOV

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

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

CLR

;RESET ERROR FLAGS

CLR

$GDDAT

:SETUP EXPECTED RESULT

MOV
ADD

RO, $BDADR
#RMMR1, SBDADR

*SETUP REGISTER ADDRESS

:CLEAR AND VERIFY THAT END OF BLOCK IS RESET
JSR
Pc.cmcbn
:60 CLEAR CONTROLLER

MOV

RMMR1 (RO) ,SBDDAT

EMT

124

BIC
BEQ

_BIS

:STORE RMMR1 AT SBDDAT

#~CEBL, SBODAT
108

:BRANCH IF EBL IS RESET

#BITO,R3

:SET ERROR FLAG

-SET AND RESET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-1.

LU
MOV

e
RS
#DMD | st
DEBL , RMMR1 (R0)
:LOAD RMMR1

NNNNNNM
Ng

N'?)NNNN
@
NN -

50
6

MOV

#DMD , RMMR1 (RO)

BIC

5~gsat.sa6onr

EMT
BIS

125
#81TO,R3

MOV

000001

RMMRT (RO) , SBDDAT

SEQ 0131

:LOAD RMMR1
;STORE RMMR1 AT S$BDDAT

;BRANCH IF EBL IS RESET
sSET ERROR FLAG

:RESET AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S<A-0

000024
157777
020000

000024
000024
00114
00114

208

MOV

MOV
BIC
MOV

001140

BIS

000002

#DMD. RMMR1 (RO)

:LOAD RMMR1

30$
#EBL,SGDDAT
126

;BRANCH IF EBL IS SET

#DMD { DEBL , RMMR1 (R0)
RMMR1 (RO) $BDDAT
#~CEBL,$8 DDAT

#BIT1,R3

:LOAD RMMR1
;STORE RMMR1 AT $BDDAT

sSET ERROR FLAG

-1F NO PREVIOUS ERRORS, TEST FOR ADJACENT BIT INTERFERENCE ON 'DEBL''.
08
TST
BNE
MoV

000001

R3
708
#1.R2

:BRANCH IF ANY ERROR

:INITIALIZE TEST PATTERN

:WRITE, READ AND VERIFY THE TEST PATTERN IN R2

000001

000024

157777

001142
001142

N
~

- et ON) S b N d d

2 OCO—=O JONgON

022360
022360
366

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

OCO0O0000O000

NINNNNN

— e

b d D d

D d D D

D d d

[+ 1+ ]
SISNNSNNNSN NN;JNNNNINNNNNNN
&J& A Ste ~
oSORoRSS3RIRI233 SEIEHESBISIIIFININIIS

000

135

M80 ‘g§§LS PT1

[elel=l=l=l=]

CgRNBAO

408:

MoV
MoV

(R0)
, RMMR1 D
#DM
R2,RMMR1(RO)

BIC

MOV

157777
001142

BIC
CMP

001140
001174

MOV
MOV

R3,$GDDAT
R2.$TMPO

EMT

;LOAD RMMR1
;STORE RMMR1 AT S$BDDAT

SBDDAT’
(RO) , R1
RMM

#~CEBL ,$BDDAT
R2.R3
#*~CEBL ,R3
R3,$BDDAT

BEQ

;LOAD RMMR1

50§

127

sGENERATE EXPECTED RESULT
sBRANCH IF EBL IS OK
sSAVE EXPECTED RESULT
sSAVE TEST PATTERN

ggggrr TO NEXT BIT POSITION

000001

BNE

60$:

000001

MOV
ASL
BEQ
BIS
BR

, R2
#DMD

sDONT SHIFT DMD

#DMD ,R2
408

sDONT _TRUNCATE DMD
sSHIFT TO NEXT BIT
:EXI; IF DONE
+KEEP DMD ON
sCONTINUE TEST

608
#DMD ,R2
Rs
708

;END OF TEST

708:

JiRRAARRRAARAARAAAAAAARAEANE AERRRRRARRRRRRARRRARRRRRRRRRRRARRRERSE

SeTEST 36

LAST SECTOR

LAST TRACK TEST

*«TRANSFER TEST PATTERN TO RMDA THEN VERIFY LAST SECTOR °‘LS'’' AND LAST

*#SECTOR/TRACK "LST'* FOR EAC g'T:agSZE?. THE TABLE BELOW LISTS THE VALUE
::OF RMDA FOR WHICH LS AND L

ngflflko RMB0 DSKLS PT1 MACRO V04,00 14=JAN-82 16:33:00 PAGE 13-37

SEQ 0132

LAST SECTOR, LAST TRACK TEST

§:Ls = Jxnos
I

::LSTS

T MODE

006435

16 BIT MODE

XXXO&b

16 BiT MODE W/ SSEI SET
XXX037

006436

006437

193122222222 222222222322 2323222232233

e
e

JSEdEE

023114
023114

nNO
O
o

d
e

001136

055156
001444
000032
000006
000024
00136
17777
001140
010000

108:

WNSNONO

22882
-lu&H Sy §g§§§§
s9RedE
Wl NN 'Vg;
QR NN
W
ONONNNN

Ppard
P

ADR
ES.SBQ
R”FR .$BDADR

sINITIALIZE TEST PATTERN
sSETUP REGISTER ADDRESS

FSTRR 808
#035,808

sSTART IN 18 BIT MODE
sSETUP LAST TRACK AND
sLAST SECTOR (29.)

PC,CNTCLR

;60 CLEAR CONTROLLER

nnor(fio>6stnp1

:55235 RMOF AT $TMP1

:LOAD NMOF

RMDA
;STORE RMMR1 IN INPUT BUFFER

R2,RMDA (RO)
:LOAD
RMAR1 (RO) ,RMMR1I

RMMR11 , SBODAT
#-CLS, $BDDAT
$GDDAT

;VERIFY 'Ls”

20$

SYES!!

#FMT16,RMOFO
#SSE1,RMOFO

023114

ONO~N

:R1 = _POINTER TO DEVICE

::00 3 ITERATIONS
ssSET TEST NUMBER IN APT MAIL BOX

RMOF0, RMOF (RO)

000032
001176

;LOAD THE STACK POINTER
sRO = UNIBUS ADDRESS

#36,$TESTN

#3,$TIMES

001000

O—O0—
—O0000

$BASE ,RO
TSTQUE ,R1

001206
001226

OO0O00O0

SHSRSASR
b =2 ) = NN WOOOW g

OCOO000O0 00000 o

R
o
N

wvivaviuvawvainaanawi

OO NV
NN =

SISRSR2
=N=NOWNININ

R ERREEE e:u%zdlflflflfllflflfl
choc-u>\na~uuu-acfi33= ~N& \h&:bflv-‘
EEEESERERAERR
SRSS3assssase

D
e
o
e
e
D
o
e
e
e
e o e

:SCOPE CALL

SCOPE
#STACK, SP

~
% WO

z3s838 ¢>¢D¢DC?<’§§
JVLLIS

»H
888

ts136:

023114

208:

023114

25%:

000004
001140

5%
0$.R2
53
0s
gS.RZ
$
0s
gos.ssooAr
5%

sGENERATE EXPECTED 15"’
;16 BIT MODE ?

:;658{] MODE W/ SSEI ?

18 BIT MODE LAST SECTOR ?
INO 1!

;16 BIT MODE LAST SECTOR ?
:NO !!

:;8 9{7 MODE W/ SSEI LAST SECTOR ?

#LS ,SGDDAT

;LS SHOULD BE ON-16 BIT MODE

sBRANCH IF LS _IS CORRECT
sSAVE TEST PATTERN

$GDDAT, $BDDAT

001174

032222220 ddddiiiliidididl)

:SKIP TO NEXT

sVERIFY *LST"

001444

RMMR11, SBDDAT
#-CLST,SBDDAT
$GDDAT
Osgflb.RHOFO

001444

#SSEI ,RMOFO

:16 B1T MODE W/ SSEI ?
JYES !!

00136
17777

00114
00114

10000

1140

40$:

55$

sGENERATE EXPECTED 'LST"'
:

9{7 MODE??

JYES!!

SEQ 0133

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

00101

gl 023114

100
§§g§8§

SE8S
RERN &~

776
776

$.R2
$

és$
$.R2
80
65 $

023114
508:

023114

55%:

801746

60$:
65%:

9{1 MODE LAST TRACK/SECTOR ?
9{7 MODE LAST TRACK/SECTOR ?

0$
0 $.R2
65 $
#LST,SGDDAT
SGDDAT ,SBDDAT
708
‘STHPO

LST STATUS CORRECT ?
IF YES
*SAVE TEST PATTERN

90s

sSKIP TO NEXT

001174

Banda 8> &=

023702

BIT MODE W/ SSEI LAST TRACK/SECTOR ?

T SHOULD BE SET

;ADVANCE TO NEXT TEST PATTERN, CHANGE TO 16 BIT MODE IF ALL
18 BIT TESTS DONE.

708

28R
5
o

760
764

CO0O0CO0O0O0O0O0O0O0O0O

23 2 WMV MB D §EVDD
NINNNNNNNY
§E Dgs
~NOown
A 4 S 3809090000
] Cl‘UO“fiJ\c*UhiC’i’

e LAST SECTOR, LAST TRACK TEST

001444

010000
000036

001444
023114

001444

W
N

112737
000631

75%:

E%Clfllgg
e F R Ry R

001444

: INCREMENT PATTERN
*CONTINUE IF NOT DONE

#SSEI ,RMOFO
908
0ss;1 RMOFO

:gggs.]o BIT FORMAT W/ SSEI SET ?

108

STEST AGAIN

#037,808

023114

023104
023112

R2
108
#FMT16,RMOFO
758
#FMT16,RMOFO
#036 .808
108

023114

80$:

023116

90$:

;egg§'16 BIT TEST ?

D0 16 BIT FORMAT TEST

*STORE LAST SECTOR ADDRESS

*SET SSEI WITH 16 BIT MODE AND
*STORE LAST SECTOR ADDRESS

sHOLDS LAST TRACK/SECTOR ADDRESS

3322222222823 2222223322322 3 2383333320222

S*TEST 37

iiiiidilididd)

RMDA COUNT TEST

NN=O

A
I

VOO

§§£§ g832

ts137:

001226

1136
gy

7
P

OO0O00O

oSS WW
NN
~S
AP
::U«D
N il
NNNNN
NN =3

NV
B
NNININ)
= —
SSRFR
KEKRNSHo

e R

FRINTR

3
it ittt
3233
R d ittt
322222223222 22222 22133323

SCOPE
NOP

:SCOPE CALL

$BASE fi3,R1

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

0,$8DADR

sSETUP REGISTER ADDRESS

#STACK,

TQUE
STIMES
?.STESTN

001136

#RMDA ,SBDAD

its

9..1108

i JSGDDAT

::D0_3_ITERATIONS
2sSET TEST NUMBER IN APT MAIL BOX

sSTART WITH 18 BIT FORMA T
sSETUP LAST SECTOR FOR 18 BIT
sSETUP FIRST COUNT

s INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT
;SECTOR O AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS

%;w\o RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-39

SEQ 0134

b
e e %o Vs e

RMOF0, RMOF (RO) Lw

1444

- NN
p

T AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA.

EBL ,RMMR1 (RO)
! DBEN '
#DMD

'L?AD RMMR1

. LOAD
1 (RO)
! DBEN .RMMR
#DMD
RMDA (RO) ,$BDDAT ;STORE RMDA AT SBDDAT
$BDDAT, SGDDAT

= WO W
ONNININNO

0000

RS N — = =2
-

RMOF (RO) ,$TMPO : STORE RMOF AT $TMPO
RMMR1
2
#DMD
! DBEN, RMMR1 (RO)
:LOAD
#GO,RMCS1(RO)
;LOAD RMCS1

32
040001
000001

(- J=1~]

G 3NN

OCO00O00000

WIN NN NN NN

308
132
508

sBRANCH IF RMDA OK

sOUT OF SYNC-SKIP TO NEXT

NN
NN

$BDDAT, 1108

s INCREMENT EXPECTED SECTOR
:UA§.THE LAST SECTOR JUST COUNTED??

SGDDAT+1
$BDDAT
508
25$

sYES=NEXT SECTOR SHOULD BE ZERO
s INCREMENT TRACK ADDRESS
sHAS A FULL CYCLE BEEN COUNTED??
sYES=DO NEXT
sCONTINUE SECTOR TEST

$SGDDAT

023622

HOW
W=
NN

g8z3z8x8
-

35:

408
$SGDDAT
40$:

.m-o

:INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK.
ST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE.

2239988
R80
W

: COMPLETE

b D =3

CONOAWNES W

ViV

[& v SUNNN=O0

055156

MoV
MOV

1108 .RMDAO
#TA1,$GDDAT

ViV

o~
Lad
E3TZ3

NNNNN

OOO0O0O

.LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS

OO0OO0000O

$2EEBEBREE

START AT TRACK O,

sSTARTING TRACK ADDRESS = 0
sFIRST VALUE AFTER INCREMENT

.CLEAR THE MASSBUS
+SET FORMAT

000

D d D d e d D d e
b e cd b =D e e

00O 0000 VOO

—

.CLEAR THE MASSBUS
+SET _FORMAT
.LOAD SECTOR AND TRACK ADDRESS
-ENABLE DEBUG CLOCK
.SET GO 8IT

sADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NOT

SE58 EERRER

D =D ) b d

W
~

0O O 0000

o e

D e

=83
PRDDRDDA

D e

D o

b e

000000V
O-0Lol Do lelellele]

NS VO ~NOWVS W
OOOOOOOgs

RMDA COUNT TEST

608:

-ENABLE DEBUG CLOCK
.SET GO BIT

PC,CNTCLR

:60 CLEAR CONTROLLER

RMDAO . RMDA(RO)

:LOAD RMDA

RMOFO,RMOF (RO)

m'§m1 R

:LOAD RMOF

-Bw RMMR1

:LOAD RMMR1
| DBEN, RMMR1 (R0)
#DMD
#GO,RMCS1(RO)
:LOAD RMCS1

CZRNBAO RM80 DSKLS PE;MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-40
157

SEQ 0135

RMDA COUNT
T

;CLOCK RMDA USING ousnosnc END OF su.o K

00000000 OO

78 083448©
o893
NN
N
NN E”a&g NN NN NONONON
< 80
00000
I
I
i
NN
NH
vy P 5 333
~
NISAR
PPN
NP
P
&~ NJK

SgeSssEERes $3833388833523SRR828 PSPV
PR N

OO0O0O0O0O0O0O0O0O00O0

CMP
BEQ
EMT
BR

:LOAD RMMR1

;LOAD RMMR1

s ow $8DDA
7
1
1208

;0UT OF SYNC=SKIP TO NEXT

,3510? FOR NEXT INCREMENT OF RMDA TRACK ADDRESS
INCB

001335
001420

001420

001444
023622

0000

001444
023622

3610
3616

012737
000137

000001

001140

000000

MOVE

CoBIT
BNE
MOV
MOV

BR
BIT
BNE
BIS
MOV

1008:

MOV

1108:

.WORD

001444

012737

CLR

808:

001444

32737
1007
12737
12737
12

JMP

SGDDAT+1

ADVANCE _EXPECTED TRACK

$SGDDAT

*YESNEXT TRACK, SECTOR SHOULD BE ZERO

110S,RMDAO

* INCREMENT FROM LAST SECTOR

#EMT16,RMOFO
95
#FMT16,RMOFO
#30.,1108

;DONE BOTH FORMATS??
*YES!
:SET rmr 8IT FOR 16
*SET LAST SECTOR FOR 16 MODE

gggumLsmm

9sggmLRMDAO
608

1008
#SSE1,RMOFO
1208
#SSEI,RMOFO
#31..1108
#1,8GDDAT

10§

WAS THE LAST TRACK JUST COUNTED??

"22A FULL CYCLE BEEN COUNTED??

:DONE 16 BIT MODE W/ SSEI SET ?
SYES!
SSET sssx W/ 16 BIT MODE AND
*SET LAST SECTOR
:SET FIRST COUNT VALUE

*REPEAT TEST

:STORAGE FOR LAST SECTOR VALUE

1208:
ttttt.tl.l'QQ.QQ.Q..tttti"..t't.'..tl'tt.t'tt.'t.t..t.t".'tl'

' DEBL ,RMMR1 (RO)

#DMD! DBEN
(RO)
i DBEN,mi
#DMD

;VERIFY %m Acconomc TO $GDDAT
(RO) saom :STORE RMDA AT $BDDAT

g?nmnvi

LRTEST 40

RMDC COUNT TEST

'gtzafi't.t'tttt.tttt.Qt'ttt'.QQt.tt.tttlttt.'.t't't..tt....tt..lt

é%

NN=-

S
o
SSS

pur

s Gl Qe

2
W

i
i
o

cd o

D e

MOV
MOV

8815

34
001136
1444

's‘c’

MOV
MOV
MOV
MoV

MOV

:SCOPE CALL

csmx 39
i
gr
STINE

l‘b.STEStN

THE sucx POINTER
= UNIBUS ADDRESS
pomen TO DEVICE
..oo"31 RAT IONS

s SET TEST NUMBER IN APT MAIL BOX

sCLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS
sSETUP REGISTER ADDRESS
aoisgonou
:gg
CLR

RMOFO

sSTART WITH 18 BIT FORMAT

RMDC COUNT TES

0013

; gé % W
055156
737
71
1
716 8?‘737 800001
5§ 8 724 015760 000000
76

013737

114

3
%8%8 024

2039 024010
2040 024016
2041 024024
2042 024032
2043 024034
sgzg 024036
2046
7 0246040

8 054040
024044
2050 024052
2051 024054
sgs; 024
53 024064
2054 024096
2055 024070
2056 024070
2057 024076
58 024100
024106
59
1

4114
024116
4116

1
040001
1

015760 0400011
012760
0160%7
023737
001402
104140
000442

34
001140

:LOAD LAST TRACK AND

JSR
MOV
MOV

PC,CNTCLR
#1.$GDDAT
#0.RMDC (RO)

:60 CLEAR CONTROLLER
*LOAD FIRST INCREMENTAL VALUE
*LOAD RMDC

SLAST SECTOR

~NW
&N

:6G0 CLEAR CONTROLLER
PC,CNTCLR
RMOFO,RMOF (RO) :LOAD RMOF
RMOF (RO) ,STMPO :STORE RMOF AT $TMPO
RMDAO,RMDA(RO) :LOAD RMDA
0m,§m1 (RO) 50” RMMR1
:LOAD RMMR1
| DBEN ,RMMR1 (RO)
#DMD
RMCS1
#GO,RMCS1(RO) :LOAD

;CLOCK THE CYLINDER ADDRESS USING DEBL
#DMDL!] DBEN'DEBL ,RMMR1 (RO)
mVv

MOV

! DBEN .RMMR1 (RO)
#DMD

E'E‘g

;23

MOV
CMP
B8R

:LOAD

;LOAD RMMR1

(RO) , $BDDAT :STORE RMDC AT SBDDAT
RMDC
$GDDAT,SBDDAT
608

:BRANCH IF RMDC=RMDC+1

:0UT OF SYNC=SKIP TO END

:ADVANCE EXPECTED RESULT FOR NEXT INCREMENT

$o0s

005237
022737
00100
00503
005737
001401
721

001140
002000

032737
801027
012737
112737

010000

001444

010000
000036

001444
001420

032737

001000

001444

000676

e
g
8 41 115737
4142 000663
024144

00142

LSTRK ,RMDAO

JSR
MOV
MOV
MOV
MOV
MOV
MOV

013760
012760
012760
012760

—

0120 14

2282

31 023744

3% 023752
2033 023760
2034 023766
2035 023774

#29.,RMDAO

.CLEAR THE MASSBUS
.SET OFFSET
.LOAD LAST SECTOR AND TRACK ADDRESS
.ENABLE DEBUG CLOCK
SET GO BIT

“

SB 00 i;i% 804737 55156
53
14644
137%0
0

SEQ 0136

MOVB

MOV

1480 108:

001140

881140
1142

CMP
BNE
CLR
ST
BEQ
BR

#1024.,8GDDAT
408
$GDDAT
$BDDAT
50
208

$GDDAT

;ADVANCE NEXT RESULT

BIT

#FMT16,RMOFO

:DONE 16 BIT FORMAT MODE ?

INC

40$:

508:

55%:

BNE
MOV
MOVE
BR
BIT
BNE
BIS

001444

ogg 001420

MOVEB

60$:
B

:SHOULD NEXT VALUE BE ZER0??
:NO!!
SYES-RMDC SHOULD OVERFLOW
:1S ONE CYCLE COMPLETE??
SYES!!
+ CONTINUE

559
#FMT16,RMOFO
#30..RMDAO
108
#SSEI,RMOFO
608

SYES !!
:SET 16 BIT FORMAT AND

#31..RMDAO

*LAST SECTOR

#SSE1,RMOFO

108

*LAST SECTOR

:DONE 16 BIT MODE W/ SSEI SET ?
SYES !!
*SET SSEI W/ 16 BIT MODE AND

*REPEAT TEST

1322222222222 232222222 2222333333331 113333333 3333333333333 3233%}3]

SRTEST 41

LBT TEST

33 (1222222222222 2222 2333233223823 3 333222222030

ittt iidiiddddd)

p—__

-3y
~

RNBAO RMBO DSKLS PT1 'HACRO V04.00 14=JAN=82 16:33:00 PAGE 13-41

—

CZRNBAO RM80 D §KLS PT1
LBT TEST
T4

MACRO V04.00 14=~JAN-82 16:33:00 PAGE 13-42

024144

TST41:

SEQ 0137

:SCOPE CALL

zggpe

1190

MOV
MOV
MOV
MOV
MOV

#STACK SP
$BASE ,R
rgmué R1
#3, STIMES
#.1,$TESTN

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

0l o Lo
e ooy g
2
35
gg;g 026226 112737

MoV
ADD

RO,$BDADR
#RMDS ,$BDADR

sSETUP REGISTER ADDRESS

CLR
MOV

RMOF O
Lgmx RMDAO

:START WITH 18 BIT MODE
SSET LAST TRACK AND

8 415

024160

013701

%12
6
166g

MOVEB

-d®
e ®a % %0 % 0

2
2081
208%

024 35 004737 055156
5834 024232
2085
%836 056 36

01;760

001060

B
na
el
17577
06%937
44
g Oslo
L GG g oo
024

2097
100

i
12i §§z;
B8t
S

101 02431
102 02431
103 024

12760
12760

108 024356 13939

000001
000000

000024
14

3
1es

000426

032737

010000

oe
gt I
s
118 024424 1157 7 8000

001444
1444
1420

308:

P§68F7CLR

#560.
,RMDC(RO)
RMDAO,RMDA(RO)
(

;60 CLEAR CONTROLLER
;LOAD RMDC
;LOAD RMDA

sLOAD RMOF

MOV

(R0) ,$TMPQ :STORE RMOF AT $TMPO
RMOF
RMDS (RO) ,$BDDAT ;STORE RMDS AT $BDDAT
#~CLBT,SBDDAT

CLR

?fl:bfl

208

:BRANCH IF LBT IS RESET
*LBT SHOULD BE ZERO

ENABLE DEBUG CLOCK
SET GO
FORCE EBL

VERIFY THAT LBT IS SET

MOV
MOV
MOV

R1 :LOAD RMMR1
#DMD,RMM(RO)
:LOAD RMER1
zg.mnm )
RMER2
:LOAD
RMER2(RO)
:
csénggsmm
:LOAD

'L?AD RMMR1

MOV
BIC

RMDS (RO) ,$BDDAT ;STORE RMDS AT SBDDAT
gagm.séom

MoV
EMT
BR

#LBT,SGDDAT
14
40

BIT
BNE

#FMT16,RMOFO
35%

522'5“.16 BIT FORMAT ?

MOVB

#30.,RMDAO

*LAST SECTOR

BNE

11 4§7£ 1299; 002000 001140
11;%4‘8{ 04142
n
4404
114 024406
115 024406

JSR

BIC
BEQ

5885

*LAST SECTOR

VERIFY THAT *LBT'' IS RESET

MoV

001403

#29.,RMDAO

CLEAR THE MASSBUS
SET FORMAT
LOAD LAST TRACK AND SECTOR
LOAD LAST CYLINDER

MoV

LV TR TR TRTR T
o
Bl

4154 0137

MOV

#FMT16,RMOFO

sBRANCH IF LBT IS SET

*SET 16 BIT MODE AND

=00

0000

2737

B8R

000677
001000

l
i
1157 4 80007
000664

CoBIT

408:

D e

D d

VIS
W

—

d D

RNBAO RM80 gg%LS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-43

BNE
BIS
MOVE
B8R

SEQ 0138

108

:TEST AGAIN.

ogssl.mo

:DONE 16 BIT MODE W/ SSEI SET ?

408
#SSE1,RMOFO
#31.,RMDAO
108

SYES !!
SSET SSEI W/ 16 BIT MODE AND
SLAST SECTOR
STEST AGAIN.

::t"t.t..'.t.'.'t..t"Q.Q".t.l.tQQQ'..'...l".."...t""...'..

SeTEST 42

COMPOSITE ERROR TEST

ig'lst.....'tt....tt."".".ttt....'tt".t'."...!'..t.l..'..'.'

T42:

MOV
MOV
MOV
MOV
MOV
ADD

§E
NWNW

Qeges

177777
177777

N =PRONNINN

0000
2S8RNP
'fl§§
ARS

055156
000001
000000

‘\‘NF€=‘F§E§E
DO
RN

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

:USING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE
*ERROR IS RESET.
PC,CNTCLR
JSR

MOV
MOV
MOV
MOV

BIC

BEQ

001140
040000

#STACK, SP
$BASE , RO
TSTQUE ,R1
#42,STESTN
RO, S8DADR
#RMDS
, $8D

108:

CLR
EMT
MOV

;60 CLEAR CONTROLLER

#DMD ,RMMR1 (RO) :LOAD RMMRT
:LOAD RMER1
#0,RMER1(RO)
#0.RMER2(R0)
:LOAD RMER2
RMDS (RO) ,SBDDAT :STORE RMDS AT $SBDDAT
#CERR, SBDDAT
108

$GDDAT
143
#ERR,SGDDAT

:BRANCH IF ERR IS RESET

:SET BOTH ERROR REGISTERS AND VERIFY THAT COMPOSITE ERROR IS SET

MOV
MOV

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

;LOAD RMER1
*LOAD RMER2

BNE

208

:BRANCH IF ERR IS SET

MOV
BIC

159975

EMT

RMDS (RO) ,$BDDAT :STORE RMDS AT SBDDAT
#*CERR, SBDDAT
144

555'."" THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER1
012702

000001

mov

M .R2

;INITIALIZE TEST PATTERN

sgggts THE TEST PATTERN AND VERIFY THAT ERR IS SET
B
)

modh

go 2258

OO0000O0

oo
&g
NN

PR
W

o000

D e
b

b
B d ek
e ad D o
D o
i
d
D e

0000?3

001

s8g3%2
R

ifiaUfigUfifiU‘

o~ SEEEEESSSS
VW
N

OCO0O00O0O0O00O0O

W
ot
AR A S A SRIGGRENIESS SARIKLEY

001
00004

D el

b md ok e ond od

W
~

D e d =B d b ol e

=D nd

801276
663

:SCOPE CALL

's‘gp

aiee

5515?

14
12

JSR
MOV
MOV
MOV
MOV
MOV

:60 CLEAR somouen
PC,CNTCLR
SLOAD RMMR
1(
#DMD ,RMMR
*LOAD RMER1
LRMER1 (R
:LOAD nnsn;
RMER2(R0)
:LOAD RMER
R2.RMERT(RO)
RMDS (RO) , SBDDAT :STORE RMDS AT SBDDAT

=
—

NoO—

—

&»
w~N

001142

BIC

#*CERR,$BDDAT

EMT

145

BNE
MOV
CLR

1174
1176

S8
$

[el=l=}
nNON
S8
NSNS
NN
(- X X =

137777

408
R2,$TMPO
$TMP1

;BRANCH IF COMPOSITE ERROR SET
*SAVE RMER1 TEST PATTERN
*SAVE RMER2 TEST PATTERN

isgvmce THE TEST PATTERN FOR RMER1

NN
WO
~NN

ASL

BNE

308

:CONTINUE IF TEST NOT DONE

001444

MoV

MOV

1 ,R2

#FMT16,RMOFO0

;INITIALIZE TEST PATTERN

:SET 16 BIT FORMAT

mns THE TEST PATTERN AND VERIFY THAT ERR IS SET

QUISSTTEN

$
ggsegece !fi3~e\ru~i

658:

PC,CNTCLR

:60 CLEAR CONTROLLER

#DMD, RMMR1 (RO) :LOAD RMMRT
:LOAD RMER1
#0,RMER1(RO)
:LOAD meas
#0_RMER2(RO)
:LOAD RMER
R2.RMER2(RO)
0,RMOF (RO) :LOAD RMOF
RMDS (RO) ,SBDDAT :STORE RMDS AT SBDDAT
#*CERR, SBDDAT
:SETUP EXPECTED VALUE FOR COMP ERROR
#ERR, SGDDAT

BEQ
CLR

65$
$GDDAT

:BRANCH IF TEST BIT IS A USED BIT
STEST BIT IS NOT USED = ERR SHOULD BE 0

70$

“SAVE RMER1 TEST PATTERN
*SAVE RMER2 TEST PATTERN

(WP

BEQ

CLR
MOV

=
-2\
e
ww~N

JSR

MOV
MOV
MOV
MOV
MOV
MOV
8IC
MOV
BIT

[=lelolelel]

—o

223

C’C’C’g}"flb&:
NN
A

T
R S
T

2737

g\&am THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2

NN
¢D¢>§=CD¢>§3¢’
&H
£553
Vi
&
233
&H
SO

dgddddddddddd-‘ddddflddddddddddddfl

ERROR TEST

—

Py
XIS
23S

z
OO0O000
TM

Sy St ] JNNANIITSIE

£
LSNLS LY LS LS LSS STNTNTNTNT
NN NN TN VTN ]

SEQ 0139

ES PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13~4é

EMT

#XNUER2 ,R2

$GDDAT, SBDDAT

$TMPO
R2,$TMP1
145

:BRANCH IF COMP ERROR IS OK

%\gymcs THE TEST PATTERN FOR RMER2

025060
2204 025060
2205 025062
2206 025064

ASL

BNE

608

;CONTINUE IF TEST NOT DONE

:;tttt..t'tfi.t.t.lttt.tt.'tt.ttttttlltttt'lt'ttttttttttt..tt.ttti

S*TEST 43

WRITE GO TEST

igtz;.ttttttttl.ttttt'tttt"tttt.t.ttttltfitt.tll"tttttttttttittt

Ng
S2 WSSRS
N=
NN

2 el ol e

O000

T43:

0014
00004

001136

001226

:SCOPE CALL

zggpe

MOV
MOV
MOV
MOV

#STACK 39
$BASE ,R
TSTQUE ,R1
#43,8TESTN

:LOAD THE STACK POINTER
‘R0 = UNIBUS ADDRESS
*R1 = POINTER TO DEVICE_
*:SET TEST NUMBER IN APi MAIL BOX

MoV

RO,$BDADR
R2

;COPY RMCS1 ADDRESS
sINITIALIZE FUNCTION CODE

SEQ 0140

is&gAR THE MASSBUS, SET DIAGNOSTIC MODE AND ENABLE DEBUG CLOCK

E”gd’C"DC’
wvivvvinaaing

JSR

MOV
MOV
MOV
MOV

EBCNDCNDCD

BIS
MOV
MOV
BIT
BNE

:60 CLEAR CONTROLLER

#0.RMER2(R0)

:LOAD RMER2

#DAD .RMAR1 (RO) _:LOAD RMMR]
R ;LOAD RMMR1
,RMMR1 (RO)
#DMD i DBEN!MU
#0,RMERT(RO) = ;LOAD RMER1

#G0,R3
:LOAD RMCS?
R3.RAMCS1(RO)
:STORE RMCS1 AT $BDDAT
RMCS1(RO) ,SBDDAT
#G0, SBDDAT
208

:BRANCH IF GO IS SET

sREPORT THE ERROR=CANT SET GO WITH THIS FUNCTION CODE
8IC

#°CFNCMSK
, SBDDAT

EMT

146

MOV
BR

R3,$GDDAT

;SAVE FUNCTION CODE

308

-ADVANCE R2 TO THE NEXT FUNCTION CODE

2236 025222
2237 025222
025226
2239 025232
2
2241 025234

208

GRIS8s

000002
000076

PC,CNTCLR

;TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET
:SETUP FUNCTION CODE
R2,R3
MOV

-flsaiz

PPN

b d
b o
D e
b
eru NNNN
NN
Vb S bt:gfll\“’\fi“Ufl\P‘:giflfli\K’UfiJ‘U‘

NNNINININININININININI
NN NN
NN N

(V]

WRITE GO TEST

ADD
CMP
BHIS

#2,R2
#ILF76.R2
108

;END OF TEST

308:

224
224

323222222232 222223222322 3233223333333 33222323222

SRTEST 44

BRANCH MULTIPLEXOR TEST

idiiidiidl

:;tt'tttktttfi*ttttttit'tt'tiittt.tit.tttttttt.tt.ttl.t..ti.t.ttti

NN Nfi‘&BS&D

o282 2232§

2244
2245 025262
2246 025266
%247 025274
228

TST44:

5259 025334

#STACK, SP
$BASE ,RO

:LOAD THE STACK POINTER
*RO = UNIBUS ADDRESS

RO, $8DADR

:COPY REGISTER ADDRESS

#1008 ,R2

:INITIALIZE TABLE POINTER

TSTQUE ,R1
#44,STESTN
#RMMR?2 , SBDADR

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

:CLEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE

iSS:

JSR

MoV
Mov
MoV
MoV

258

:SCOPE CALL

SCOPE

PC,CNTCLR
#DMD
,RMMR1 (RO)

260 CLEAR CONTROLLER
:LOAD RMMR

zg.anen1(a8)

:LOAD RMER1

#0MD | DBEN'MUR,RMMR1(RO) :LOAD RMMR1
‘RMER2(RO)

:LOAD RMER2

sTHE TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN

001142

s THE COMMAND SEOUENCSR S INITIALIZED.
RMMR (R ) ,SBDDAT
MoV

;STORE RMMR2 AT SBDDAT

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

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

L "

SEQ 0141

BRANCH MULTIPLEXOR TEST

g S§
&
§

032737

010000

001 142

14
167777 001
8459%9 010000
%63 025
00114
% 8 3366 10414

#TST,SBDDAT

BIC
MOV

#ACTST saoont
OT;T,$GDDA

*SETUP FOR ERROR TYPE

408

:SKIP REST OF TEST

EMT

158
1%

;BRANCH IF TEST BIT IS ON

:GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE,

1}?‘" STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE.

000001
177400

=1
W

703
3%0

000001
177700
000000
001174

NN QO
[=1=]
o

O =

a2 = 22X 83
Y

337

760. 141001
041001

g?ga

e
T

737
373;

000040
167777
000002
001140

(a2) gs

:R3=FUNCTION CODE, GO BIT

BIC

MOV

R3
c*cfucnsx O)
R3,RMCS1(R

:LOAD RMCS1

MOVB

1(R2) n3

:GET CLOCK COUNT IN R3

MOV

W
=]
W

s
HW
onN

—2

N
N
00

N
N
V

265 025370
266
67
68
269 02537
2270 02537
2271 0%5374
%2;% 025400
025404
273
2274 0256410
2275

BIT

BNE

BIC
mov
MOV
DEC
BNE

R3.$TMPO

:SAVE R3 FOR ERROR MSG

#°C377,R3
:LOAD RMMR1
#DMD ' DBEN'MUR'DBCK ,RMMR1(R0)
| DBEN {MUR.RMMR1 (RO) ;LOAD RMMR1
#DMD
:DECREMENT CLOCKCOUNT
R3
$ISSUE CLOCKS TILL ZERO
208

:GET THE resr BIT AND COMPARE IT WITH THE TABLE ENTRY

axc
MOV
CMP
BEQ
EMT
BR

RMMR2 (RO),SBDDAT

#°CTST,SBODAT
2(R2) ,$GDDAT
$GDDAT, SBDDAT
308
150
408

:STORE RMMR2 AT $BDDAT

:BRANCH IF TEST BIT OK

:SKIP REST OF TEST

iggye THE TABLE POINTER AND CONTINUE IF NEXT ENTRY POSITIVE
06

062702
105762

000004
000001

ADD
TSTB

#6,R2
1(R2)

BR
BR

10$
200$

BMI

408:

408

:BRANCH IF DONE TEST

*REPEAT TEST
:JUMP OVER TABLE

issggi OF FUNCTION CODES, CLOCK COUNTS, AND TEST BITS

302 025520
2303 025520
2304 025521
2%82 025522

000
001
000000

.g;;g

?op

:MUX ADDRESS=DATA COMMAND

JWORD

;TEST BIT=0

2307 025524
2308 025525
gg?g 025526

000
002
000000

.BYTE
"BYTE
WORD

NOP
2
O

:MUX ADDRESS=UNIT READY

2311 025530
231§ 025531
%g}‘ 025532

010
001
010000

.BYTE

DRVCLR

:MUX ADDRESS=F&

JWORD

TST

;TEST BIT=1

2315 025534
2316 025535

050
001

WCD

:MUX ADDRESS=F&

BYTE

.BYTE

BYTE

;TEST BIT=0

SEQ 0142

BRANCH MULTIPLEXOR TEST

164

000000

JMORD

sTEST BIT=0

320 025541
%gg% 025542

001
010000

.BYTE
BYTE
"WORD

RLEASE
1
TST

;MUX ADDRESS=Fé&

2323 025544
2324 025545
%g%g 025546

052
001
000000

BYTE
BYTE
WORD

WCH
1
0

sMUX ADDRESS=Fé&

2327 025550
2328 025531
2329 025552

020
001
010000

.BYTE
BYTE
"WORD

RIP
1
TST

sMUX ADDRESS=Fé&

2331 025554
2332 025555

060
001

BYTE

;MUX ADDRESS=Fé&

022

.BYTE

%3}; 025536

%319 025540

2330

2334

2335 025560

2336 025561
2337 025562
2338
2339 025564
2340 025565
2%21 025566
2342
2343 025570
2344 025571
2%22 025572

012

BYTE
WORD

BYTE
"WORD

010000

1
O

PAKACK

1
TST

sTEST BIT=1

sTEST BIT=0
sTEST BIT=1

sTEST 8IT=0
sMUX ADDRESS=F&

sTEST BIT=1

062
001
000000

BYTE
BYTE

WH
1

sMUX ADDRESS=F4

sTEST BIT=0

030
001
010000

.BYTE
BYTE
"WORD

SEARCH
1
TST

sMUX ADDRESS=Fé&

2347 025574
2348 025575
%ggg 025576

070
001
000000

.BYTE

sMUX ADDRESS=F&

2351 025600
2352 025601
23§2 025602
23
2355 025604
2356 025605
2%;; 025606

032
001
010000

.BYTE
BYTE
"WORD

ILF32
1
TST

sMUX ADDRESS=Fé&

072
001
000000

.BYTE

sMUX ADDRESS=Fé&

2359 025610
2360 025611
2361 025612
2362 025614
2363
2364

000
377

.BYTE

WORD

BYTE
WORD

BYTE
"WORD

200%:

025614
025616
025620
0256%3
025630

1
O

sTEST BIT=0
sTEST BIT=1

sTEST BIT=0
;END OF TABLE
sEND OF TEST

112222322 22222223 3233323223233 233 3333322332333 322223333ttt idddd]

S*TEST 45
st

025614

BYTE
~WORD

1
O

sTEST BIT=1

000004
000240
012706
013700
013701

TS145:
001100
1276

01466

SET/RESET GO TEST

AR AR
AR ARARAAA
ARRRARAAAARRAAA RN AR AARARRARAARRAAAAAARA

:SCOPE CALL

SCOPE

NOP

MOV
MOV

MOV

SP
#STACK,
$BASE , RO

TSTQUE ,R1

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

:R1

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

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

SET/RESET GO TEST

025634 012737 000045 001226
.
536 025642 012702 = 026256
369
2370 025646
71 025646
025652

004737
012760

055156
000001

010360 000000
016037 000000 001142
032737 000001 001142
001011

23‘ 026040

016037
042737
023737
001409
010037
062737
104152

oooo1;
177577
001140
001136
000012

001140

407

026042

116204

2}; 026106 010337
419

026114

308

001136

oogom

oooogl.
141001
85605% 012760
54.10
1001 000024
127 9
411
.;900 ooms
160
41; 02
osoow% 2737 177700 00114
41
414 026102 1og 7 881136
418 826112

#DMD 'MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#0,RMER1(RO) = :LOAD RMER1
:LOAD RMER2
#O_RMER2(RO)

:LOAD RMCS?
R3,AMCS1(RO)
:STORE RMCS1 AT SBDDAT
RMCS1(RO) ,SBDDAT
$BDDAT
#G0,
:BRANCH IF GO IS SET
208

EMT
BR

151
1008

SBDDAT
, MSK
#*CFNC
:SAVE EXPECTED RESULT
R3,$GDDAT
:COPY REGISTER ADDRESS
RO,$BDADR

CLR

$GDDAT

:EXPECT DRY TO BE OFF

#DRY ,$SGDDAT

:G0 WAS NOT SET, DRY SHOULD BE

*WAS GO SET??
SYES!!

BIT
BNE

#G0,SBDDAT
308

MOV
BIC
CMP
BEQ
MOV
ADD

RMDS (RO) ,SBDDAT ;STORE RMDS AT SBDDAT
#~CDRY, SBDDAT
., $SBDDAT
$GDDAT
408
:BRANCH IF DRY IS OK
:COPY REGISTER ADDRESS
RO, $BDADR
#RMDS , SBDADR

MOV

EMT

152

-STEP THE DEBUG CLOCK AND VERIFY THAT GO REMAINS SET

2283 5281506 042704 177400

:6G0 CLEAR CONTROLLER
__ZLOAD RMMR]

MOV
MOV
BIT
BNE

BIC
MOV
MOV

001142
001142
001142

405

l.og ogmg

PC,CNTCLR
#DAD .RMAR1(RO)

:TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET
:GET FUNCTION CODE
(R2) .R3
MOvVB
*CLEAR UNUSED BITS
#*CILF76,R3
BIC
:SET GO
ugo R3
BIS

1 001142

ggg 852&3 012737 000200

02
2398 026010
399 026016
400 026024
401 026026
zaog 026032

MOV
MOV
MOV

208:

2393 025760 005037 001140

025764 032737
2395 025772 001003

::SET TEST NUMBER IN APT MAIL BOX
;INITIALIZE FUNCTION CODE POINTER

+GET READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO

23591

2392 025760

JSR
MOV

001142

2388 025754 104151
%ggg 025756 000536

SEQ 0143

;CLEAR, THEN SET DIAGNOSTIC MODE, CLEAR COMPOSITE ERROR, SET MEDIUM

000024

377
2378 025702 111203
2379 025704 042703 177701
2380 025710 052703 000001

2385 025736 042737 177700
2386 025744 010337 001140
2387 025750 010037 001136

#45,8TESTN
#2008 ,R2

ON LINE AND ENABLE DEBUG CLOCK
fos:

012760 041001 000024
373 025
2374 ogseu 012760 000000 000014
2;;2 025674 012760 000000 000042

2381 025714
2382 025720
2383 025726
736
2

MoV
MOV

5304

001406

001140

408:

MOVB

BIC

MOV
MOV
MOV
BIC

MOV
MOV

1(R2) .Ré

#4C377.R4

:GET NUMBER OF CLOCK CYCLES

CK ,RMMR1(R0) :LOAD RMMR1
'MUR'DBEN'DB
#DMD
BEN.RMMRT (RO) :LOAD RMMR1
!MUR i
#DMD
:STORE RMCS1 AT SBDDAT
RMCS1 (RO) , SBDDAT
K :CLEAR UNUSED BITS
. SBDDAT
#°CFNCMS
ag.sama
R3.SGDDAT

:SETUP REGISTER ADDRESS
*SAVE EXPECTED RESULT

:DECREMENT CLOCK COUNT AND EXIT LOOP IF ZERO

DEC

BEQ

608

RNBAO RMB0O DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-49

B 12

SEQ 0144

SET/RESET GO TEST

4ogau yny 000001 001142
421
026124
4 § 026126

2 : 026130

135;
10415

032737
1405
042737
104154
40

000001

001142

000001

001140

433

026154

015737

000200

001140

2436 026172
2637 026176
026176
2438 0262
2639 026212
2440 026216

005037

001140

016037

0000

6154

434 026162 032737 000001
435 o%wg 00140
048537
8% g?
737

177577
001136
000012

2441 026224 023737 001140
2445 026232
2364

001401
104152

2645

2446 026236

60$:

708:

001142

062702

2449 026246
2450 026250
%231 0262564

1
000137
000423

2455 026256

002

2458 026260
2223 026261
26

52;9 026257

5461 ozoze;
02626

464 026264

100s

;0UT OF SYNC=SKIP TO NEXT

oo1145

BIT
BEQ
BIC
EMT

#G0,SBDDAT
70$
#G0,SGDDAT
1564
100$

:1S GO RESET??
SYES!!
*SETUP EXPECTED RESULT

MOV

#DRY, SGDDAT

;EXPECT DRIVE READY TO BE SET

CLR

$GDDAT

:G0 IS SET=

BIT
BEQ

:
808

00114

001136

#G0, $BDDAT
80$

MOV

:DID GO RESET??
SYES!!

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

BIC
MOV
ADD

, SBDDAT
#~CDRY
RO, SBDADR
#RMDS ,SBDADR

:COPY REGISTER ADDRESS

BEQ
EMT

908
152

SYES!!

$GDDAT,SBDDAT

CMP

001142

000002

508:

5448 026242 105762 000001

2454 026256

SYES!!

;IS DRIVE READY 0K??

-ADVANCE TO THE NEXT FUNCTION CODE TO BE TESTED-EXIT IF DONE

2647 026236

2455

;18 GO STILL SET??

5
1

GO SHOULD NOW BE RESET AND DRY SHOULD BE SET

45 026132
428 02614
026142
429
430
026150
431 8 615
43;

#GO,SBDDAT

BNE
EMT

000451

425

429 02613

BIT

025646

ADD

#2,R2

:MOVE TABLE POINTER

BMI
JMP
BR

100$
10$
3008

SYES!!
STEST THIS FUNCTION CODE
*GO TO NEXT TEST

1STB

1008:

1(R2)

*END OF TABLE??

TABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

2008 :

BYTE

ILF02

:ILLEGAL FUNCTION CODE #2

004
001

.BYTE
BYTE

SEEK
1

:SEEK COMMAND

001

006

.BYTE

.BYTE RECAL
BYTE

;RECALIBRATE COMMAND

OFFSET

265 ozo%cs
5429 026266

014

001
016

.BYTE

.BYTE 1
.BYTE RTC

;OFFSET COMMAND

BYTE

470 026270

024

BYTE

ILF24

:ILLEGAL FUNCTION CODE #24

gzgg 026267

22;1 056571
473 02627
4 7% 02627§
475

001

001
026
001

BYTE
.BYTE
BYTE

1
ILF26
1

;RETURN TO CENTER LINE COMMAND
:ILLEGAL FUNCTION CODE #26

NBAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-50
SET/RESET GO TEST

9 og5
02627

034
001

4.79 0 6%79

836

.BYTE
BYTE
JBYTE

¢ 1

SEQ 0145

ILF34
1

:ILLEGAL FUNCTION CODE #34

ILF36

;ILLEGAL FUNCTION CODE #36

1
ILF&2

1
042

BYTE
BYTE

ozssog
l.ss

044

BYTE

ILF&4

:ILLEGAL FUNCTION CODE #44

sa 026304
026305

233

001

.BYTE 1ILF46
BYTE

;ILLEGAL FUNCTION CODE #46
;ILLEGAL FUNCTION CODE #54

49 026310

056

.BYTE

ILFS6

;ILLEGAL FUNCTION CODE #56

2497 02631
gzgg 02631
2500 026314

064
001
066

BYTE
BYTE
BYTE

ILF64
1
ILF66

;ILLEGAL FUNCTION CODE #64

2503 026316

074

BYTE

ILF74

:ILLEGAL FUNCTION CODE #74

l.so 026
ag %io
4,83

026301

026306
5491
%235 026307
2232 026311

5?35 026315

BYTE

001

BYTE

001

046

BYTE

001

BYTE

001

001
076
001

2509 02632
gg}g 02632

000
377

BYTE
.BYTE
BYTE
.BYTE
BYTE

1
ILF76
1

;ILLEGAL FUNCTION CODE #42

;ILLEGAL FUNCTION CODE #66

:ILLEGAL FUNCTION CODE #76
:END OF TABLE
:END OF TEST

3008:

%gg 026324

tttt'tttttttltttttttt'tttt*tttttttt.tt.ttttttfittttttttttttttttt

251‘

SRTEST 46

026324

026324
026326
026330
026334
026340
o 026344
519 026352
g;a 026356
gw

ILF54
BYTE
BYTE 1

054
001

2504 026317
06 026320
g
zggz 026321

t.ttttttttttttttt.t"ttt'ttttttttttt.ttlt!ttttt'ttttti!tttti.tt

000004
ooo;l.o
01
013700
721
01012737
01550;
010037

t5T46:
001100
001276
001466
000046 001226
oswo
001136

055156
521 3 6362 004737
012760 000001 000024
522 026366

END 1 RESET GO TEST

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV
MOV

osncx gp
E.R
R1
rsroué
#46,$TESTN
#1008 ,R2
RO, $BDADR

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

i&gm MASSBUS, THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK

JSR

MOV

PC,CNTCLR

:60 CLEAR CONTROLLER

#DMD,RMMR1(RO) :'.0AD RMMRT

SEQ 0146

[=l==]

[elelelelelelelalal=l=]

MOVB

0000

177700

VERIFY GO IS SET

001142

(R2),.R

:GET FUNCTION CODE FROM
:TABLE AND SET GO

BIC

3.5155 6.R3

MOV
MOV
MOV
BIT

:SAVE FUNCTION CODE FOR MSG
R3, $GDDAT
:LOAD RMCS1
R3.RMCS1(RO)
:STORE RMCS1 AT SBDDAT
RMCS1(RO) ,SBDDAT
ggg.saoouf

BNE
8IC
EMT
BR

#DMD 'MUR ! DBEN,RMMR1(R0) :LOAD RMMR1
#0,RMER1(RO) = ;LOAD RMER1
#0.RMER2(RO)
:LOAD RMER2

:TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1,

00114
800000
01 00114

sBRANCH IF GO IS SET

, SBDDAT
#*CFNCMSK
151
;0UT OF SYNC-SKIP
60$

:GET THE NUMBFR OF CLOCK CYCLES FROM THE TABLE, SAVE EXPECTED STATUS

N
=

208

SERdRRIRS 3

—b=

QOO
&

[«

v
Y
VY]
vw

MOVB
BIC

mi) R4
#°C377.R4

;R4=CLOCK COUNT

§3I§P THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES

\¥,]

[=]

026546

RN
o
O\ONOON

MOV
MOV
MOV

000024
80 014
42

177701
000001
085140

60
62
563 026566
564 026570

VWAV

§§1001

MoV

#DMD 'MUR ' DBEN!DBCK ,RMMR1(R0)

Béf

:2cmcnsx.saom

MOV
MOV

=2 NN SN

ViAW VTNV

|h’~
2 x\n'l
SEIERRU
EEEEE GRS
WAV
IV IV LV

v
NN
o uvnmvnuav\mmm\n
FASH
RV S A
S\su\h\fl

ININIAININININIAINININININININININ ANINNRLNIN

1 RESET GO TEST

gFERERSNN

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

BEQ
BIT

BNE
EMT
BR

408

:BRANCH IF GO SHOULD BE OFF

308
153
608

:CONTINUE IF GO IS ON
;0UT OF SYNC=SKIP

#GO, SBDDAT

;',XE'."" THAT GO RESET AT END?
001142

BIT

#GO,$BDDAT

BIC
EMT

ogo.ssoon
154

BEQ

001140

:LOAD RMMR1

#DMD | MUR i DBEN ,RMMRT (RO) ;LOAD RMMR1
SSTORE RMCS1 AT $BDDAT
RMCS1 (RO) , SBDDAT

508

:DID GO RESET??
SYES!!

60$

§8§T THE NEXT FUNCTION CODE FROM THE TABLE

ADD
ST

#2,R2
1(R2)

BR
BR

108
2008

8M]
60$:

60$

:BRANCH IF END OF TABLE

*TEST THIS FUNCTION CODE
:JUMP OVER TABLE

553255 OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST

.BYTE

RLEASE

;RELEASE COMMAND

.BYTE

:SEARCH COMMAND

BYTE

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

END 1 RESET GO TEST
002
ggg 026613
835
”i 6614
g& 6615
585 02661

sag 8 661

BYTE
.BYTE
BYTE
.BYTE

ggg

BYTE

026620

SRTEST 47

000004
000240
001100
01
001276
013700
013701 001466
012737 000047 001226
010037 001136
062737 000024 001136
012702 027116

T$147:

10s:

4 oomg
2604 026720 016037
00114
177677
2608 026726 042737

5211

02674

m;gg

ogoom
052
5703 177700
01 ggg

}s 026764 010 831“1”94”
19
1
116
% 026770
026774 ol.z;gg
1”97”20%

's' 027000 016204 000002
6

SET PULSE TEST

#STACK, SP
$BASE , RO
TSTQUE ,R1
#47,8TESTN
RO, S8DADR
#RMMR1, SBDADR
#1008 ,R2

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

PC,CNTCLR

;60 CLEAR CONTROLLER

#DAD RMMR1 (RO) ~ :LOAD RMMRI
#DMD | DBEN ! MUR ,RMMR1 (RO) ;

#0,RMERT(RO) = ;LOAD RMER1
#O_RMER2(RO)
:LOAD RMER2

sVERIFY THAT CONTINUE, ''CONT'’ IS RESET AFTER CLEAR

MOV
BIC
BEQ
CLR
EMT

104155

09 026744 000463

JSR

MOV
MOV

oou.gc
0267
2606
2607 026736 005037 001140

1% 8 6750
15 026754
19 026760

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV
ADD
MOV
MOV
MOV

4
4

4
2

026704
1 026712

;END OF TABLE

.CLEAR THE MASS BUS, ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS

597 026664 004737 055156

1; 8 6746

:ILLEGAL FUNCTON #32

. 'tttt.'tttttt'tt.tt.t"t"".tl"l."ltt't.tttttt.t..'.tt"..tt'

2596 026664

gggg 026742

2
iusz

SEQ 0147

:END OF TEST
2008 :
::tt.ttttt..ttttt.tt""'tttt!t.t.tttt.tttt.'tttt..t..'ttttt..ttt

§§a 26620
589

026620
026622
0 66%16
026630
026634
e 026640
5591 ozw.g
59§ 026652
02

E 12

RMMR1 (RO) , SBDDAT
#~CCONT, S8DDAT
0$
gom
155

:STORE RMMR1 AT SBDDAT

:BRANCH IF CONT WAS CLEARED
*FOR ERROR MSG

708

-GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO RMCS1

208:

MOVE

BIS
BIC
MOV

(R2),R3

#GO,R3
#~CFNCMSK.R3
ag.msuéo)

:R3=FUNCTION CODE AND GO
:LOAD RMCS1

*SAVE FUNCTION CODE FOR MSG
MOV R3.$TMPO
:GET THE CLOCK COUNT FROM
MOVB 1(R2) ng' THE TABLE
BIC mifi.ns
:GET THE BIT STREAM FOR CONTINUE FROM THE TABLE
MOV sz».m.
:STEP THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS

NN
N~
pr

ury
Qo
P

prt 4]

Siesitia

0000000000000 g

R¢

SE TEST

Sl.
4
ms
00114

308:

000108 oomg
001140

001142

;LOAD RMMR1
R ,RMMR1(R0)
! DBCK
#DMD ' DBEN'MU
1
| DBEN | MUR .RMMR (RO) ; LOAD
#DMD
AT $BDDAT
RMMR1
*STORE
RMMR1 (RO) , SBDDAT
#~CCONT,$BDDAT
;GENERATE EXPECTED CONTINUE
$GDDAT

BEQ

MOV

#CONT ,SGDDAT

BEQ

sgs

:BRANCH IF CONTINUE IS OK

70s

:SKIP

CMP

408:

SEQ 0148

MOV
MOV
MOV
BIC
CLR
BIT

EMT

R4
#B81TO0,
408

$GDDAT, SBDDAT
156

DEC

- 308

BEQ
ASR

608
Ré

:BRANCH IF CLOCK COUNT EXPIRED
*SHIFT TO NEXT CONTINUE BIT

STEST NEXT CLOCK CYCLE

1',3',".’"‘“ TABLE POINTER-EXIT IF DONE

000004
000001

ADD
IST8
8MI
B8R

708:

#4,R2
1(R2)
708
108
2008

SEXIT IF CLOCK COUNT NEGATIVE
:CONTINUE TEST
:JUMP OVER TABLE

553255 OF FUNCTION CODES, CLOCK COUNTS AND CONTIMUE BITS FOR TEST

.BYTE

NOP

:NOP COMMAND

"WORD

“B0000

+ CONT INUE=0000

BYTE

*4 CLOCKS

:ILLEGAL FUNCTION 2

g;;g

LFO2

.WORD

*800

027126
0271;5
0271

.BYTE

SEEK

.WORD

“BOO

§713

713

.BYTE

RECAL

:RECALIBRATE COMMAND

027134

BYTE
"WORD

0271

037138
40

.BYTE

DRVCLR

:DRIVE CLEAR COMMAND

§§716
714

.g;;g

RLEASE

:RELEASE COMMAND

"WORD

*B000

.BYTE

grrsn

LT IRN3 ~j§g§E

BYTE

BYTE
"WORD

0271

141001
1001
4
177677
1140

02712
027124

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

gggcnmm CLOCK COUNT AND SHIFT BIT STREAM

2338
=

XSR

-0

SK LS PT1

0 714
0 714

003

"BYTE

2
“BOO
2
“BO1

:SEEK COMMAND

;OFFSET COMMAND

gz;uaao RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-564

6 12

SEQ 0149

SET PULSE TEST

027150

“800

000000
1

.BYTE
.BYTE
.WORD

RTC

sRETURN TO CENTER COMMAND

RIP

sREAD IN PRESET COMMAND

gang

68
ey
7160

020
16

.BYTE
.BYTE
.WORD

69 0 716§
95 02716
27164

022
004
000016

.BYTE
.BYTE
.WORD

:AKACK

27169

024

.BYTE
.BYTE
-WORD

LF24

2
“800
4

“81110
sPACK ACKNOWLEDGE

“81110

sILLEGAL FUNCTION 24

2716
700 027170

002
000000

S?O%
0%717
717

2704 027174

026
002

000000

.BYTE
.BYTE
.WORD

206 02717
2707 02717
08 027200

030
003
000000

.BYTE
.BYTE
«WORD

gEARCH

710 02720
711 02720

032
003

.BYTE
.BYTE
.WORD

gLFSZ

2714 027206
2715 027207

000000

.BYTE
.BYTE
-WORD

ILF34
2
“800

sILLEGAL FUNCTION 34

%716 027210

034
002

718 02721
719 02721
7§? 027214

036
002
000000

.BYTE
.BYTE
-WORD

ILF36
2
“800

sILLEGAL FUNCTION 36

o
s
oum
027220 000000

.BYTE
.BYTE
«WORD

-1

722

027204

02721

2;%2

027222
3726
757
728

“800
LF26

sILLEGAL FUNCTION 26

“800

sSEARCH COMMAND

“8000

sILLEGAL FUNCTION 32

“8000

;END OF TABLE
sEND OF TEST

2008:

ttt.t.t.tttttttt.fittltttt.ttt...ltl.itttt.tt*ttti.it.t.t'..ttt'

tTEST 50

SET/RESET IVC TEST

3322222222222 222333 3233332333333 323333282233

g 000004
057
§7224
$ o
')?3 001226
02754 3277
5;53 027250 010037 007136
722

+§7150:

ittt

dddd)

:SCOPE CALL

SCOPE
OSTACKfiaP

.§5°2$e§}n

RO,$BDADR

.LOAD THE STACK POINTER
;RO = UNIBUS ADDRESS

:R1 = POINTER TO DEVICE

..SET TEST NUMBER IN APT MAIL BOX
:SETUP REG ADDRESS

RF Ro

ADD
CLR

SEQ 0150

WRMER2,SBDADR

sR2=FUNCTION CODE

'6NITIALIZE AND VERIFY THAT IVC STATUS IS ZERO.

A
AA
-~
ook

—
w

=00

0278

SET IVC TES

00000000

NNV NNNNNNNNSN

SKLS PT1 MA %RO V04.00 14~JAN-82 16:33:00 PAGE 13-55

i0s:

05515?

MOV
MOV
MOV
MOV
MOV
BIC

§%1001

BEQ
CLR
EMT
BR

001140

;60 CLEAR CONTROLLER

(RMMR1(RO) _:LOAD RMMR1
{MUR ' DBEN,RMMR1 (RO) ;LOAD RMMR1
#0,RMER1(RO) = :LOAD RMER1
RMER2
:LOAD
#0.RMER2(RO)
RMER2 (RO) ,SBDDAT
sSTORE RMER2 AT SBDDAT
oangc.sebw
2
SgDDAY
157
40$

sBRANCH IF IVC IS ZERO
:SKIP REST OF TEST

;LOAD THE FUNCTION CODE WITH GO BIT, STEP THE COMMAND SEQUENCER OFF

%767 02744
768 027443

2769 02745
2770 027454
F444.
277% 027456
277
2774

b
med
e
—b

—
b e b O
BB

883838g

;SETUP FUNCTION CODE

mov

R2,R3

MOV
MOV
MOV
MOV
BIC
MOV
BIC
CMP
BEQ
MOV
EMT

:LOAD RMCS1
R3,RMCS1(RO)
:LOAD RMMR1
#DMD ' MUR ! DBEN'!DBCK ,RMMRT(R0)
1
BEN.RMMRT (RO) ;LOAD
| MUR i
#DMD
AT SBDDAT
RMER2
:STORE
RMER2 (RO) , SBDDAT
#°CIVC,$BODAT :SET ACTUAL STATUS
FNCDTB(R2) ,$GDDAT ;SETUP EXPECTED STATUS FROM
;FUNCTION CODE TABLE
#°CIVC,SGDDAT
$GDDAT ,$SBDDAT
:BRANCH IF IVC IS OK
0s
R2,$TMPO
*SAVE FUNCTION CODE FOR MSG
160

BIS

NOONN
S

bt]

§3Sduuuu§§§38

436

:go.as

3egymcs FUNCTION CODE AND REPEAT TEST IF NOT DONE

o =l=1~1
W=ron

Tbg

2763 027440
2764
2765
2766 02744

2288R2R2222S2

232‘.’“555 0 AND VERIFY IVC STATUS.

ApD

az.n;

gko

408

CMP

#ILF76.R2

408:

:BRANCH IF DONE TEST
:END OF TEST

::ttttttt.tt!t.tttt'ttt.tt'ttt..!tttttltttt'..t.'ttltt'.tt't...tt

S*TEST 51

SET LSC TEST

2777 027510

..§E§§

)

5775
776 027504

N28&S

0000

ié;;;ttttt.ttttttt!tttt"'t'ttttfitltttltttl.ttt.tll....tt.tfi'tt..

's‘ggpe
MOV
MOV
MOV
MOV
MOV

ADD

#STACK 3’
$BASE ,R
TSTQUE ,R1
#51,$TESTN
RO, $BDADR

#RMER2, SBDADR

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

ssSET TEST NUMBER IN APT MAIL BOX

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

TM
e
SET LSC TEST

778
779

781

PC,CN TCLR
mb,nmm

:;60 CL EAR g ROLLER
30” RMMR
:LOAD RMMR1
| DBEN, RMMR1 (RO)
#0MD
:LOAD RMER1
#0,RMERT(RO)
:LOAD RMER2
as(nox
#0
;STORE RMER2 AT $BDDAT
DAT
RMER2 (R

800034

0275
783
784
027544
785 027552
786 8 7560

787 §7566
788 027570
789 027574
790
TM1
792 027576
76

SEQ 0151

INITIAUZE AND VERIFY THAT LOSS OF SYSTEM CLOCK "LSC*’, IS RESET

013780

751

rcu.sc.saf»on
108

:BRANCH IF LSC IS ZERO

001140

:WITH DEBUG CLOCK ENABLED, SET GO AND WAIT FOR ONE SHOT TO SET

i0s:

000001
000001
151 7%2
0015

208:

151710

MOV
MOV
JSR

TST
BNE
JSR

#GO,RMCS1(RO)
#1,UATCH

PCf?CLOCK

;LOAD RMCS1
sSET WATCHDOG TIMER VALUE

208

PC,aSTOPCL

:START THE CLOCK

sWAIT FOR WATCH ZERO

:STOP THE CLOCK

;ONE SHOT SHOULD BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET.
MOV

000001

MOV
BIC
BNE
MOV

175975
004000

EMT

. RMMR1 (RO)
#DMD

RMER2 (RO) , SBDDAT
#~CLSC,SBODAT

308
#LSC.SGDDAT

RMMR1

:STORE RMER2 AT SBDDAT
:BRANCH IF LSC SET

162

;END OF TEST

308:

tttttttttt.ttttt.ttt""ttttttt.tttt'.Qttt..t.lt.tlt..t'.'..t.t

L4TEST 52

DECODE TEST

istgstlfiQQtttt't.t.t"'t"'t'.tttttlttt..t.tttt..ttt.tllt.i.t'tt'

ek
D el oh

:SCOPE CALL

's‘ggre

MOV
MOV
MOV
MOV
CLR

#STACK, SP
$BASE , RO
TSTQUE ,R1
osz STESTN
RMER10

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

JSR

PC.1008

;INITIALIZE

001226

B e

;EXECUTE A PACK ACKNOWLEDGE AND CHECK VOLUME VALID

— e

e
O~

NN
~

AINININLNINLNINY

&?Ufl)
300 0000000000000 gs

141001
041001

LOAD RMER1
.I.OAD RMCS1

MOV
MOV
MOV

RMER10,RMER1 (RO)
! GO,RMCS1(RO)
#PACACK
#3,R3

MOV

#DMD ! MUR ! DBEN ! DBCK ,RMMR1 (R0O)

MOV
DEC

BNE

;LOAD RMMR1

:gmwmoaeu.mi (RO) ;LOAD RMMR1
108

sISSUE NEXT CLOCK IF COUNT NOT 0

BIC

RMDS (RO) ,$BDDAT :STORE RMDS AT $BDDAT

001527
8?50 ; w;«.o

BEQ
ST

BEQ
%c

20
RMER10

70$
: ogg;m

:BRANCH IF VV SHOULD BE SET
*SETUP ERROR MESSAGE

104163

EMT

114

1“9%7; 88114.
g%
414
5737

001426

°3§9 7 oooo?g 001136

000522

004737 030276
013760 001426

538SERSANON

SRIEAS
SRER2E

5 33
2
SEeREaEene

012760
012703
012760
83?53‘3’
001370
016037
042737

000014

000021 000000
000003
141001 000024
0
041001

000012 oomg
177677

004737

00114

000014

:BRANCH IF Vv IS ZERO

ADD

#RMDS , $BD
808

163

:SKIP

JSR

PC,1008

;INITIALIZE AND SET DIAGNOSTIC MODE

MOV
MOV
MOV
ggvc:
BNE
MOV

SLOAD RMCS1
#RIP!GO,RMCS1(RO)
COUNT
:R3=CLOCK
#3,R3
:LOAD RMMR1
#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)
cgnomumaeu.RMMRT(RO) :LOAD RMMR1
;ISSUE NEXT CLOCK xr coum NOT ZERO
308
RMDS (RO) , SBDDAT :STORE RMDS AT $BDDA

BEQ
ST
BEQ
CLR
MOV
ADD
EMT
BR

408
RMER10
70$
$GDDAT
RO, SBDADR
, SBDADR
#RMDS
163
808

:BRANCH IF VOLUME VALID NOT SET
:BRANCH IF VOLUME VALID SHOULD BE SET

PC,100$

;INITIALIZE AND SET DIAGNOSTIC MODE

BIC

JSR

030276

013760 001426
012760 0000512
012703
012760 141001
33553? o:. 001
oomg
01603 ;l.

rgw.saém

;EXECUTE A READ IN PRESET AND CHECK VOLUME VALID
LOAD RMER?
RMER10, RMER1 (RO)
MOV

001414
005737 001426
00146
005037 001140
010037 001136
062737 000012 001136
104163
e
000455

042737
001414
005737
001415
005037
owo;r
062737
104164
000410
287
2876 030254

SEQ 0152

MOV

16037

03010

J 12

#4CVV,SBODAT

*SETUP ERROR MESSAGE
:SKIP

;EXECUTE A WRITE cnecx DATA AND CHECK OCCUPIED

000000 .
000024
000024

001142
077777 001142

MOV
MOV
MOV
MOV
ggvc/
BNE
MOV

BIC
BEQ
ST
BEQ
CLR
MOV
ADD
EMT
BR

001426

001140

001136
000026 001136

LOAD RMER1
RMER10,RMER1(RO)
RMCS1
RMCS1(RO):R3=CLOCK.LOAD
mo'cb
COUNT
#2.R3

:LOAD RMMR1
#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)
gmmumoaen.RMMRT(RO) ;LOAD RMMR1
:ISSUE NEXT CLOCK IF COUNT NOT ZERO
508
:STORE RMMR1 AT SBDDAT
RMMR1 (RO), $BDDAT’
#~C0CC,SBODAT
:BRANCH IF OCCUPIED IS RESET
60$
RMER10
7os
;BRANCH IF OCCUPIED SHOULD BE SET
DDAT
*SETUP ERROR MESSAGE
ao $BDADR
#RMMR1, SBDADR
1
808

:VOLUME VALID AND OCCUPIED DID NOT SET-SEE IF COMP ERROR WAS ACTIVE

608:

-4 £

sa%gtm MACRO V04.00 14=JAN=82 16:33:00 PAGE 1357

152

K 12

SEQ 0153

DECODE TEST

877 ogggs:. 005737 001426

BNE

g;g 030260 001005

880

881 030262

808

:BRANCH IF COMP ERROR WAS SET

:COULD NOT SET WV ga OCCUPIED=-SUSPECT DECODE FLOP NOT SETTING
EMT

104165

88
% s,

%sso 030264 012737 040000 001426
zgg 030272 000611
2333 030274

RMER10

:REPEAT TEST WITH COMPOSITE ERROR ACTIVE=-VERIFY THAT DECODE FLOP
5325 NOT SET, AS INDICATED BY VOLUME VALID AND OCCUPIED.
808:

000510

MOV
B8R

#UNS ,RMER10
58

:USE UNSAFE TO SET COMP ERROR

2008

:END OF TEST

891

: 4 Qttttttttttt'tttttttttttt"tt'tttttttt.tttt.tttltttttt.tttttttt

2893

33 ttttttttttt.tttttt.t't'ttt'ttttttttttt.t.ttttQt't.ttlttttt..tt'

2895
2896
2897 030276

:USING DIAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR.
VERIFY THAT VV, ERR, AND OCC ARE ZERO.
100s:

*SUBROUTINE USED DURING TEST

892

2898 030276

2899 030302
2900 030310
2901 030316
zoo; 030324
2903 030332
2904 030336
2905 030342
2906 030350

2907 030356

2908 030364

2909 030

2910 030370
2911 03037
030372
291§ 030400
2913 030406
2914 osoug
2915 030412
2916 030414
030414

004737

012760
012760
012760
012760
005037
010037
062737
016037

042737

oouog

055156

000001
041001
000000
000000
001140
001136
000012
oooo1;
137777

000024
000024
000014
000042
001136
001142

19 030432 010037 001136

"921 030444

062737
104166

000024

001136

g 030446 000420

2924
ggs Sates

00000
29 030450 012760 000024
14 00114

2928 030456

wogr

2737 177776 00114
osor.ga
oomg
31 030474 010037 001136
030472

1108:

1208:

;60 CLEAR CONTROLLER

MOV
MOV
MOV
MOV
CLR
MOV
ADD
MOV
BEQ

1108

:BRANCH IF COMP ERROR ZERO

BEQ

AT
#C0CC,$BOD
1308

:BRANCH IF OCCUPIED ZERO

ADD

#RMMR1, SBDADR

1408

MOV

#ILF24 ,RMCS1(RO)

EMT

10414

000447
016037 000012 001142
042737 177677 001142
oou.og
10413
000436
;4 001142
826037

PC,CNTCLR

#DMD RMMR1(RO) ~_:LOAD RMMRI
1 :LOAD RMMR1
(RO)
#DMD fMUR ' DBEN,RMMR
#0,RMER1(RO) = :LOAD RMER1
:LOAD RMER2
#0_RMER2(R0)
:SETUP FOR ERROR MSG
$GDDAT
RO, $BDADR
, SBDADR
#RMDS
(RO) , SBDDAT ;STORE RMDS AT SBDDAT
RMDS

BIC

001142

001142
7
o°7°99
2737
osol.gg
2917
001407
18 030430
2920 030436

JSR

BR
MOV
BIC
BEQ
EMT
BR
MOV

BIC

MOV
EMT

#~CERR, SBDDAT

143

:SKIP TEST
1408
(RO) ,$BDDAT ;STORE RMDS AT $BDDAT
RMDS
#4CVV,SBODAT
:BRANCH IF VOLUME VALID ZERO
1§os
135
:SKIP TEST
1408
:STORE RMMR1 AT SBDDAT
RMMR1 (RO) , SBDDAT
RO, SBDADR
166

*SETUP ERROR MESSAGE
:SKIP TEST

:TO VERIFY THAT THE DECODE FLOP IS RESET, LOAD AN ILLEGAL FUNCTION
i%g‘RHCSI AND VERIFY THAT ILF DOES NOT SET.

MOV

BIC
BEQ
MOV

RMER1 (RO) , SBDDAT
#~CILF,SBODAT
1508
RO, $BDADR

:LOAD RMCS1

*STORE RMER1 AT $BDDAT

:BRANCH IF ILF IS ZERO

*SETUP ERROR MESSAGE

-l

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

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

L 12

SEQ 0154

DECODE TEST

152

062737

000014

508 ?84167
0030510
012716 030516

030500
030514

ADD

gR;ER1.SBDADR

1408:

EMT
MoV

03008.(39)

;DONT GO BACK TO TEST

1508:

RTS

sRETURN TO TEST OR EXIT TEST

001136

000267

:
2008

38 030516
2939
2940

323132223323 222222222232323 2322322333333 333 8323232322222 2232 ddddiitill

S*TEST 53

SET/RESET VOLUME VALID TEST

N=
NN

) k=
—d
e

-o

g2
wviwn

(=1~

SN2 Q28RS

t5153:

¢:<:cn:§§
JILIN

NONOO

9222223223233 22222222232 2223232333233 3333383233324 222232 ddddddiidl

:SCOPE CALL

asgpe

001100
001276
0014

MOV
MOV
MOV

#STACK, SP
$BASE ,R0
TSTQUE ,R1

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

001136
000012
030762

MOV

RO, $BDADR

;SETUP REGISTER ADDRESS

MOV

#1008 .R2

:R2=TABLE POINTER

000053 001226

MOV
ADD

001136

#53,$TESTN
, SBDADR
#RMDS

::SET TEST NUMBER IN APT MAIL BOX

o
ViINW

o :3

ge3
Sei

OO0O00O

RS
WWO RN
3r‘-“un

NONW

iéngIALIZE AND USE DIAGNOSTIC MODE TO RESET VOLUME VALID
JSR

055156
000001
041001
000000
000000
000012
177677

:G0 CLEAR CONTROLLER

MOV
MOV
MOV

#DHD .RMAR1 (RO) _:LOAD RMMRI
R1 :LOAD RMMR1
#DMD {MUR ! DBEN,RMM(RO)
RMER1
:LOAD
=
O)
#0,RMER1(R

BIC

#-CVV,SBDDAT

CLR
EMT

$GDDAT
135

MOV
MOV

BEQ

001140

PC,CNTCLR

#0_RMER2(R0)
:LOAD RMER2
(RO) , SBDDAT :STORE RMDS AT $BDDAT
RMDS

208

:BRANCH IF VOLUME VALID ZERO

;!cuagg:s

3883
8s8==

R IS8S8I

OWWW

gaggfi

—-00

ayU

& gss
o0

O NS NN

TIIBLL

28822 RKISTAR
ON=2\ANONY NJONDWUES;S
2SS

fisgecurs THE FUNCTION CODE IN THE TABLE

:GET FUNCTION CODE

MOVB
BIC
BIS
MOV
MOVB

(R2),R3
#°CILF76.R3
#GO,R3
R3,RMCST1(RO)
I(Ri) R4

MOV

R ,RMMR1(RO)
! DBCK
#DMD ' DBEN'MU

BNE
MOV

;ISSUE COCKS TIL R4 ZERO
308
RMDS (RO) ,$BDDAT :STORE RMDS AT SBDDAT

BIC

ggg

#°C377 R4

#-CVV,SBODAT

MOV

#VV,SGDDAT

EMT

:LOAD RMMR1

:2nosoeeusnua.nnnni<no> :LOAD RMMR1

BIC

BNE
MOV

:LOAD RMCS1
*GET CLOCK COUNT

408
R3,$TMPO
170
508

;BRANCH IF VOLUME VALID SET
tcavc FUNCTION CODE FOR MSG

cgmmo RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-60
SET/RESET VOLUME VALID TEST
153
2978

82 030750 105762 000001
83 030754 100401
84 030756 000701

88 030762
2989 osom;
2233g 03076
299@ 030764
2993 030765

29925S 030766
030767
29929967

020
003
022
003

030772

2008

.BYTE
BYTE
JBYTE
BYTE

RIP
3
PAKACK
3

.BYTE

377

;EXIT IF COUNT IS NEGATIVE
:JUMP OVER TABLE

:READ IN PRESET COMMAND
;PACK ACKNOWLEDGE COMMAND

:END OF TABLE
:END OF TEST

200$:

;;ttttttttttttttttttttttttttttttttttttttttt.ttttttttttttttttttt't
ILLEGAL FUNCTION TEST
S*TEST 54
2 R 2232322222232 2232322223238223232223223 3333233333333 2832333222202 23 331

T5754:

000004

000240

001466

031004

013701

3002 031016

005002

3004 031020

004737

054732

303°°°o7 031032

012704

000002

A 031010 012737 000054

?82385
3005 031030 000460

MOV
MOV

#STACK,SP
$BASE ,RO

:LOAD THE STACK POINTER
*RO = UNIBUS ADDRESS

MOV

#54,STESTN

::SET TEST NUMBER IN APT MAIL BOX

CLR

:INITIALIZE FUNCTION CODE VALUE

JSR

PC,SETWV

;G0 SET VOLUME VALID

MOV

#2.R4

*R4=CLOCK COUNT

BIS
MOV
Moy

#G0,R3
:LOAD RMCS1
R3,RMCS1(RO)
#DMD 'MUR ' DBEN!DBCK ,RMMR1(R0)

DEC

Ré

MOV

001226
10s:

’
208:

:SCOPE CALL

SCOPE

NOP

030774 o1§706 001100
031000 013700 001276
3003 031020

1(R2)
50$
108

+TABLE OF FUNCTION CODES AND CLOCK COUNTS

100s:

000

3000

030770

TST8
BMI
B8R

508:

000403

2998 030770

030770

SEQ 0155

:ADVANCE THE TABLE POINTER, EXIT IF DONE
408:
#2,R2
ADD

79
80 030744
981 030744 oezrog 000002
85 030760

n12

?fir
BR

TSTQUE .R1

20§
508

:R1 = POINTER TO DEVICE

*BRANCH TO 208 IF NO ERROR
:SKIP TEST IF ERROR

ON CODE AND VERIFY ILF
T FUN' CTI
THE TES#DMD
MUR ' DBEN,RMMR1(R0) :LOAD RMMRi
012760 041001 000024 :EXECUTEMOV
§88108 o;wsa
:SETUP FUNCTION CODE IN R3
R2,R3
MOV
0 '.824. 010;03
11 031046 052703 000001
s,
303 gggggg 010360 000000
T
031056 812760 141001 000024

3014 831064
§g1s

31072

19 031074
3017 031076
18 0311064
19 osms
20 0311
21 031126

12760 041001 000024

005304

oomg
01%
042737
om;gr
ol.g 7
023737

ogogu. 88""5

114
177 73
ogw. 001140
177776 001140
001140 001142

MOV
BNE
MOV
BIC
MOV
BIC
CMP

:LOAD RMMR1

T :LOAD RMMR1
(RO)
#DMD |MUR i DBEN.RMMR

308
:STORE RMER1 AT SBDDAT
ILF STATUS
ACTUAL
;SETUP
#°CILF,SBDDAT
FNCDTB(R2) ,$GDDATTM ;GET EXPECTED ILF STATUS
#~CILF,SGDDAT
. $BDDAT
SGDDAT

RMER1(RO) ,SBDDAT

c;q
1

Y
d

42
S0
56 10617

[

MOV
ADD
MOV

001136
10037
062737 000014 001136
010237 001174

WWN

BEQ

801419

SEQ 0156

EMT

408

RO, SBDADR
#RMER1, SBDADR
n; $TMPO

:BRANCH IF ILF IS OK

:SETUP FOR ERROR MSG

171

232'!"‘“ 7O THE NEXT FUNCTION CODE AND REPEAT TEST

OCOO0O00O
W

OCOO0O00O

-l

N 12

GAL FUNCTION TEST

BBEE8S
SNRUKZETBIETRN '§

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

062702 000002
022702 000076
103401

000713

508:

ADD
CMP
BLO

B8R

#2,R2
#1LF76.R2
508

108

:END OF TEST

:;tttttttttttttttttttttttttttttt.t'.'lttt.ttt.t'ttttttl..'ttttttt

S*TEST 55

OCCUPIED TEST

%gt;;ttttttttQttttti.tt'ttt'tttttttttttttt.ttttttfi.tt.ttt.Qt'.t..

T55:

000

MOV
MOV
MOV
MOV

#STACK, SP
$BASE ,RO
TSTQUE R
#55,$TESTN

005002

CLR

mgroe 001100
013700 001276
013701 001466
012737 000055 001226

004737 054732
6 000402

;SCOPE CALL

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

JSR
BR
EMT

104000

000464

PC,SETWV
20§

;G0 SET VOLUME VALID
*BRANCH TO 208 IF NO ERROR

508

ésrggate DEBUG CLOCK AND LOAD THE FUNCTION CODE

Gt Pl

015760 041001 000024
010203
052703 000001
010360 833330
2
012704

mov
MOV
BIS
MOV
MOV

1 ;LOAD RMMR1
(RO)
#DMD ' MUR ! DBEN,RMMR
*ASSEMBLE FUNCTION CODE AND
R2,R3
GO BIT IN R3
~
#G0,R3
:LOAD RMCS1
R3,RMCS1(RO)
:R4=CLOCK COUNT
#2.R4

53;§P THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE

012760 141001 000024

e R

1%760 041001 oooo%:.
0013%

ag\nvnn\nun
w

NOP

iggy THE DEVICE READY

~
O
-l \Oflrflohfizg WN=O
OCOO000O
(=l=l=1]
OCOO000O0
WWWWWW
Udthda
U“flehflUflfl

8£R358

SCOPE

000240

16037 oooo;l. 80114

35 07%7 N

2 6; 831003 063640
80160
12737

100000

001140

mov

gg\cf
BNE

,RMMR1(R0)

:VERIFY OCCUPIED STATUS

MOV

RMMR1(RO) ,SBDDAT

MOV

#0CC,SGDDAT

?itct
gg

;LOAD RMMR?

#DMD 'MUR ' DBEN'DBCK
mi(ao) :LOAD RMMR1
zzmsmsoaen.
:ISSUE NEXT CLOCK TIL Ré4 ZERO
308

:STORE RMMR1 AT SBDDAT

%&SS&%'““”“
GENERATE OCC FROM AOE
a@os.mcora(az) .
358

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

B 13

SEQ 0157

OCCUPIED TEST

TM5

3067 031336 023737 001140 001142
3 1344 oom;
1174
031 g 0102
9

70 o§1 S2 010037
7
4l 81 56
104173
3875 3
;4 031366 000406

358:

MOV
ADD
EMT
BR

001136
000024 001136

$GDDAT, $BDDAT
408
R2,$TMPO

.amwcu IF 0CC IS OK
*SAVE FUNCTION CODE

*SETUP REGISTER ADDRESS

RO, SBDADR
#RMMR1, SBDADR
173
508

-ADVANCE TO NEXT FUNCTIONCODE, EXIT IF DONE

408:

3076 031370

3077 031370 062702 000002
3078 031374 022702 000076
ggn 031400 103401
303? 031402 000707

ADD
CMP
BLO
BR

"”,a,
#ILF76,.R2
508
108

;EXIT IF DONE

:END OF TEST

508:

3383% 031404

Qtt'ttttttitttttttttttt'tttttttttttltttlttt.ttt.tttttttt.t'ttt.

3084

ATEST 56

031404

031404
031406
031410
031414
031420
wat 031424
3086

3087 031432

3088 031436
3089 031444
3090 031452
3091 031460
0314
S 031474
031502
’ 031510
8

000004
240
012706 001100
013700 001276
001466
013701
012737 000056 001226
004737

012760
012760
012760
012760
015760
012760
012760
012760

055156

000001
041001
000000
000000
177777
177777
177777
177777

t4756:

JSR

PC,CNTCLR

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

#DMD ,RM¥R1(RO) :LOAD RMMR1
{ML. ' DBEN,RMMRT (RO) ;LOAD RMMR1
#DMD
#0,RMER1(RO) = :LOAD RMER1
:LOAD RMER2
#0_RMER2(R0)

:LOAD ALL ONES IN mA. anoc AMD RMOF

MOV
MOV
MOV
MOV

#-1,RMDA(RO)
’-1 nnocmm
#-1.RMOF(RO)
#-1_RMOF(RO)

;LOAD RMDA
*LOAD RMDC
:LOAD RMOF
:LOAD RMOF AGAIN TO SET SSEI

:LOAD READ IN mser CCMMAND AND STEP THE CLOCK TILL SET PULSE

016002

000006

110 031556
00141
owoos
031560
111
112 031564 04270

ogoosl.

109 831554 88 70

#STACK,SP
$BASE ,RO
rsrouéR1
#56,8TESTN

MOV
MOV
MOV
MOV

000024
000024
000014
000042
000006
000034
000032
000032

SCOPE
MOV
MOV
MOV
MOV
NOP

;CLEAR AND ENABLE DEBUG CLOCK = LEAVE VOLUME VALID RESET

000021 000000
wa
000003
141001 000024
041001 000024

108 031550

READ IN PRESET TEST

222333
3333333333332 33333
X 211232222222 22222222222223%32%3%3222213313323

012760
012702
012760
012760
00530
00137

031516
}gg 8%%??6
105 031530
103 031536
104 031544
}32 031546
107

(MP
BEQ
MOV

MOV
MOV
MOV
MOV
DEC
BNE

:LOAD RMCS1
#RIP!GO,RMCS1(RO)
*R2=CLOCK COUNT
#3,R2
#DMD 'MUR ' DBEN!DBCK ,RMMR1(R0)
:LOAD RMMR1
#DMD iMUR i DBEN.RMMRT (RO) ;LOAD RMMR1
R2
:ISSUE 3 CLOCKS
10

:SEE IF RMDA OR RMDC OR RMOF IS ZERO

MOV

RMDA(RO) ,R2

:STORE RMDA AT R2

BEQ
MOV

208
(RO) ,R2
RMDC

BRANCH
AT y RMDA IS ZERO
:STORE afioc

BIC

#XNUDC ,R2

CLEAR UNUSED BITS

VO ~NOWVISW
=O

EMT

#XNUOF ,R2

:BRANCH 5r RMDC IS ZERO

:STORE RMOF AT R

;CLEAR UNUSED BITS
*BRANCH IF RMOF IS ZERO

20$

174

;END OF TEST

208:

3322222222222 2223332323222 2233233333222 30333

S*TEST 57
1$157:

OO0O0O00O

NNN

e e

s —3

b o
3

P2q SSans
92858

0000

NWNWWWWWWNW

OO000O00O

000

W= OOV WA = C’(fi‘ & LRUKIEIRNRUR

D
) e
D
d D D o

BEQ

208
RMOF (RO) ,R2

SEQ 0158

;READ IN PRESET CgHHAND DIDNT CLEAR ANY OF THE 3 REGISTERS

W
~

—

i
BIC

855

) =

PONININ
b b e d cd b

BEQ

3232220228232

VIV
B BB BB

WNWWNN
W N W W

RO V04.00 14=JAN-82 16:33:00 PAGE 13-63

881276
1466
000057 001226
001136
000032

001140
55156

000001 000024
00003

000021
000003

000000

1001

000024

177777

041001

Saris

16057; oo1145
031774

ittt idddd)

:SCOPE CALL

#STACK, SP

:LOAD THE STACK POINTER

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

MOV

RO, $BDADR

:SETUP REGISTER ADDRESS AND

CLR

$GDDAT

:EXPECTED RMOF

#RMOF ,SBDADR

MOV

#DMD RMMR1(RO) ~ :LOAD RMMR

MOV

RMER1
#0,RMER1(RO) = :LOAD
:LOAD RMER2
#0_RMER2(RO)

MOV

#-1_RMOF(RO)

MOV

000032

000024

it it

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

MOV

000014
830000 000045
177777

22222222233

;INITIALIZE AND SET BITS IN RMOF
;60 CLEAR CONTROLLER
PC,CNTCLR
JSR

1001 000024

oooogg

MOV
MOV
MOV

ADD

001136

RIP/RMOF TEST

aggpe

MOV

001100

i idiiiitdl)

(RO) :LOAD RMMR1
#DMD ' MUR ! DBEN,RMMR1
#-1,RMOF(RO)

:LOAD RMOF

:LOAD RMOF AGAIN TO SET SSEI

;EXECUTE A READ IN PRESET IN DIAGNOSTIC MODE TILL SET PULSE
.

C
H:LOAD RMCS1
sR2=CLOCK COUNT

MoV

zglzéGO.RHCS1(R0)

mov

#DMD ' MUR ! DBEN ! DBCK , RMMR1 (RO)
;LOAD RMMR1
#DMD ! MUR | DBEN,RMMRT
(RO) :LOAD RMMR1

MOV

MOV
DEC
BNE

as
108

;ISSUE 3 CLOCKS

:VERIFY ;ger RMOF IS 2 RO

BIC

BEQ
EMT

$BDDAT ;STORE RMOF AT $BDDAT
RHOF(RS), SBDDAT
#XNUOF
ggs
5

sBRANCH IF RMOF IS ZERO
sEND OF TEST

208:

:;tttfiiti'..ttttttttt'."t."Q.tt.l....l'fil'tt.'..'.tt.t".tit.tt

s*TEST 60

RMDA/RMDC/RIP TEST

CARANCRNS
RRARR
AARARAAARAAARRA
RRARA
AR RN RRRRARNRARRAAAA
P RARARRRRAN

031774

TS160:

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

013

SEa 0159

RMDA/RMDC/RIP TEST

:SCOPE CALL

SR8 BRIRNRAN2BIIVFANAN
IS & LRSRARLSSBNFAR

SN—

—

001226

pur PurQhury

aggps

b O

NN
NN
NN
~

$GDDAT

MOV
MOV
MOV
MOV
MOV
MOV

2R
2

v
wn

33T3S ~

CLR

JSR

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

PC,CNTCLR

:60 CLEAR

0000

000024
000024

001142

#RIP!GO,RMCS1(RO)
R2

MoV

#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)

gg\cr

BNE

;ISSUE 3 CLOCKS

153

MOV
ADD

EMT

A ;STORE RMDA AT SBDDAT
(RO) , $BDDAT
RMD
$BDDAT

:BRANCH IF RMDA RESET

208

RO, SBDADR
#RMDA,

He
N

s
iy

55%'."" RMDC IS 2ERO

—

:LOAD RMMR1

zommnzoesu.mimo» :LOAD RMMR1

:VERIFY RMDA IS ZERO

001136

:LOAD RMCS?

MOV
MOV

BEQ

eo g g

CONTROLLER

#DAD RMMR1(RO) _:LOAD RMMR
(RO) ;LOAD RMMR1
#0MD ' MUR ' DBEN,RMMR1
RMER1
:LOAD
zg.mem (RO) =
RMER?
;LOAD
RMER1(RO)
RMDA
:LOAD
#-1.RMDACRO)
RMDC
:LOAD
#-1.RMDC(PD)

:EXECUTE READ IN PRESET TILL SET PULSE

mov
BIC

RMDC (RO) ,$BDDAT ;STORE RMDC AT SBDDAT
DC
, SBDDA
#XNU

MOV
ADD

RO, SBDADR
C
, SBDADR
#RMD

BEQ

001136

EMT

:BRANCH IF RMDC RESET

308
302

;END OF TEST

308:

——

#STACK 39
$BASE ,R
TSTQUE ,R1
#60,STESTN

:CLEAR, ENABLE DEBUG CLOCK, THEN PRESET RMDA AND RMDC

NN WWNWWWNWWW - WWWW
— b e e b e D b d
Do
e g e NN
B 2 2
o

NWNWW

— e
e
e e

7
7
7
7
7
7
7

MOV
MOV
MOV
MOV

::tt.t'tttl'ttt.tt.t.t.'Q"t'........l.ttl'.tlttt.'t"'.'t..'t...

OFFSET COMMAND TEST

igt;;.ttIttllttt.tttttt"'""tl.t.tlt.t.lt.'t.ttt'...tfi'.l't.."
T61:

NN
OO

Sososee
N”UNNNWUNJG

vt
Ag
gh g4

S*TEST 61

:SCOPE CALL

%gPE

001226

MOV
MOV
MOV
MOV

#STACK 3?
,R1
TSTQUE
#61,$TESTN

- $BASE,R

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

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

SEQ 0160

OFFSET COMMAND TEST

161

MOV
ADD
MoV

000034

N
W~
o
N

b =B

60AT

JSR
BR
EMT
BR

3 SETWV

MOV

#0,RMDC (RO)

108

;60 ser VOLUME VAu

*BRANCH TO 108 IF NO ERROR

408

;LOAD RMDC

sENABLE DEBUG CLOE:DANDEXECUTE OFFSET COMMAND
'MUR!DBEN,RMMR1(RC) ;LOAD RMMR1
208:

HOV
Mov

#OFFSET!GO,RMCST1(RO)
#2.R2

:LOAD RMCS1

*R2=CLOCK COUNT

#DMD 'MUR ! DBEN!DBCK ,RMMR1(R0)

:LOAD RMMR1

(RO) :;LOAD RMMR1
D
! MUR i DBEN.RMMR1
#DM

;ISSUE 2 CLOCKS

288

sVERIFY THAT OFFSET MODE IS SET

MOV
BIC
BNE

VOO NOMMNES
NN =

KKK

000024
000024

760

—_—

(=1~

[=1=1=)

000024
000000

108:

RO savoa

408:

EMT

RMDS (RO) , SBDDAT ;STORE RMDS AT $BDDAT
#~COM,SBODAT
:BRANCH IF OM IS SET
408
200
;END OF TEST

tttttt.ttt"ttt'.t't'.'t""tt.tt..'.'.ttfitl'..t.tt.tt'.'.tl.tt

LETEST 62

RETURN TO CENTER TEST

igtzst.QtttQttttt.fitt'tt"'...ttt.t"lt.tttt't.'tt..l'tttttt..tt.

'z:.'z:xg
42835

T62:

MOV
MOV
MOV
MOV
MOV
ADD
JSR
gc"
BR

001226

3220
3221 0324
32%§ 03241

001136

24 032420
032424

0324§8
25 0324
26
27
28 032432
032432

000200

3231 032440

055054

032444
032446

:SCOPE CALL

aggps

#STACK, SP
$BASE , R0
TSTQUE ,R1
#62,8TESTN
RO, $S8DADR
#RMDS,SBDADR
PC,SETW
108
60$

sLOAD THE STACK POINTER
*RO= UNIBUS ADDRESS
*R1 = POINTER TO DEVICE
*:SET TEST NUMBER IN APT MAIL BOX
;60 SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR

iggg OFFSET DIRECTION AND OFFSET MODE
000032

MoV

, RMOF (RO)
#OFD

JSR
2:1

PS SETOM
20§

:60 SET OFFSET MODE
*BRANCH TO 208 IF NO ERROR

SEQ 0161

ésgeBLE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND

JSR

054732

238

Efn

wbabab

OO0

Ps SETWV
308

;60 SET VOLUME VALID

*BRANCH TO 08 IF NO ERROR

mov

#DMD 'MUR ! DBEN ,RMMR1 (RO) ;LOAD RMMR1

mov
gg\cf

#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)

MOV
MOV

BNE

i GO,RMCS1(RO)
#RTC
#2,R2

*LOAD RMCS1

:LOAD RMMR1
;onomuazoaen.mi (RO) ;LOAD RMMR1

:ISSUE 2 CLOCKS

453

:VERIFY THAT OFFSET MODE IS RESET

29 032522
03533
$ia

MOV
BIC

RMDS (RO) ,SBDDAT ;STORE RMDS AT $BDDAT
#°COM, SBODAT

CLR
EMT

$GDDAT
201

BEQ

:BRANCH IF OFFSET MODE RESET

508

§‘6§""' THAT OFFSET DIRECTION IS RESET
O
NNNN OoNN

mov

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

BEQ

60$

BIC

CLR

MOV
egg

322

fUayU
2

308 T

88
—flhhqz NN
3

BREK

KK
KK KRISKOKKS
GRG
SRGS
o8 S588%E
OOaOOOOOOOOO
N
SSIY
$¥58
335

RETURN TO CENTER TEST

KIS
SE SRR
goee

162

#~COFD,SBDDAT

:BRANCH IF OFD IS RESET

$GDDAT

RO, SBDADR
#RMOF , SBDADR
:END OF TEST

60$:

;;ttttt.Q.t.tttQtttttttt'tt"'itt.ttfittt.t..tt.ttt.ttt..'fi..'Qtit

S*TEST 63

RMDC CLEAR OFFSET TEST

igt;;t.ttt't.tttttttt't"'t!t.ltttt'.'ttilt'tttttt.tt.l.'...'ttt.

T63:

001226

001136

MOV
MOV
MOV
MOV
MOV
ADD
JSR

#STACK, SP
$BASE , RO
TSTQUE ,R1
#63,$TESTN
RO, SBDADR
#RMDS
, $8D
ps SETWV

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

BR
JSR
?fir

408
98 SETOM
20§

:SKIP REST OF TEST
:G0 SET orrgsr MODE
*BRANCH TO 208 IF NO ERROR

?fn

055054

:SCOPE CALL

's“c’

10§

:60 SFT VOLUME VALID

*BRANCH TO 108 IF NO ERROR

-4

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

SEQ 0162

RMDC CLEAR OFFSET TEST

;g po

unm THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO

76 0

127

042737 17777

79 03271

80 032712
81 032716

gé 032720

oou.o;

005037
104203

MOV

:LOAD RMDC
RMDS AT SBDDAT
mbs(ng).saow:STORE

CLR
EMT

sgom
203

MOV

s
798 692 31 39 83§§°§ §§C

BIC

BEQ

001140

408:

#~COM, $8D

408

:END OF TEST

tttttttttttttttttttt"tt."ttt'.tt'.!tttt.Qtt.ltttttt..t.'t'..t

TATEST 66

EBL CLEAR OFFSET TEST

tttt..tttt'.tt.ttt.'t"tt"'t.t.t.ttt.t.tttttt'l..ttt'Q..tt.ttt

032720

oszrsg 000004
000240
032722
001100
012706
03 7;3
013700 001276
730

t4764:

SCOPE
MOV
MOV

csmcx SP
E,RO

MOV

RMDAO
gmx

NOP

MOV
MOV

001466
013701
032734
000064 001226
012737
032740
e
87 032746 013737 001334 001420

MOvE
MOV
ADD

112737 000036 001420
oonss
o1oo§7
032762
89
32901 032766 062737 000012 001136
88 032754

JSR
gc"

2 03%7046 004737 054732
?82’685
03

rsroué
m.sttsm

séom
S, $BDADR

#30

PC,SETW
10$

:SCOPE CALL
:LOAD THE STACK POINTER
*RO = UNIBUS ADDRESS

TO DEVICE
*R1
IN APT MAIL BOX
TEST NUMBER
$:SET= POINTER
:SET LAST mcx AND

SLASTSECTOR
REGISTER FOR ERROR MSG
*SETUP

;60 SET VOLUME VALID
*BRANCH TO 108 IF NO ERROR
:SKIP REST OF TEST IF ERROR
:60 SET OFFSET MODE
*BRANCH TO 208 IF NO ERROR

308
.
000440
PC,SETOM
|
R
004737 055054
20§
BR
000401
EMT
ik
104000
#FMT16,RMOF (RO)
mov
T
012760 010000 000032
RMDAO,RMDA(RO) :LOAD RMDA
MOV
013760 001420 000006
:FORCE END OF sn.ocx mo VERIFY rm OFFSET MODE IS CLEARED
m)wm1
5
MOV
041001 000024
012760
)
mcsm
MOV
1
31 7
:LOAD RMMR1
(RO)
mm
M
MOV
1001 0000244
127
RMMR1
;LOAD
RMMRT(RO)
m'
MOV
1001
0127
:STORE RMDS AT SBDDAT
lr
msmsaoo
MOV
ms
12
01
$BODAT
con
BIC
00114
042737 177776
oou.g;
BEQ
:BRANCH IF OFFSET IS ZERO
oosgo‘ 001140
CLR
gggm
104
EMT
:END OF TEST

308:

tt.ttt.lt.tttt'.tt.."Qtl'.ttfit.t'lttttt.lttttttt.t't'tt.'ttttt

LATEST 65

RUN AND GO TEST

::.'.l.tt'."..t..'...'."t".t.tl...."!l'..'...ttQ'.tt.t.t..l't

G 13

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

J9tq Jas%

b e
e
d
d
e

00006

001226

001140

001136
000024

g222

o
Pur Gour ourd
P

055156
000001
§§0001

000001
000;00
146306
000000

o
T

—OW
ONWVININWN

001140

(- ¢ =

o
V.]
V]
(]

(=l=l=}

\nufizg?uvfiz
SRS
&

GERR &
—

MOV
MOV
MOV
MOV

#STACK 3?
$BASE ,R
TSTQUE ,R1
#65,8TESTN

CLR
%3

$GDDAT
g e

ADD

1, $8D
#RMMR

JSR

MOV
MOV
MOV
MOV

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

PC,CNTCLR

;INITIALIZE EXPECTED RESULT
SINTIALIZE FUNCTION CODE

;60 CLEAR CONTROLLER

#DMD ,RMMR1 (RO) :LOAD RMMRT
:LOAD RMMR1
| DBEN, RMMR1 (R0)
#DMD
;LOAD RMER1
#0,RMERT(RO)
#0.RMER2(RO)
:LOAD RMER2

001534
146246
001174

R2,R3
036 R3
#200,WATCH
Pg.acn.ocx
R3.RMCST(RO)

mov
BIC
CMP

RMMR1 (RO) ,SBDDAT
#*CRG, SBDDAT
$GDDAT, SBDDAT

JSR
MOV
EMT
BR
JSR

PC,asSTOPCL
R2 ST
205
408
PC,asSTOPCL

208
mcu

;ASSEMBLE FUNCTION CODE AND GO
:SET WATCHDOG TIMER VALUE
*START THE CLOCK
:LOAD RMCS1
:STORE RMMR1 AT SBDDAT
:BRANCH IF RUN AND GO FLOP OK
SAMPLE IF CLOCK NOT ZERO
ANOTHER
:TAKE

:STOP THE CLOCK
:SAVE FUNCTION CODE FOR MSG
:SKIP REST OF
:STOP THE CLOCK

;ADVNACE TO NEXT FUNCTION CODE = EXIT IF DONE

000002
000076
000050
040000

MOV
BIS
MOV
JSR
MOV

BEQ
Ls‘g

146232

8nzfigunnun

;SCOPE CALL

,5,82"

:LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP

NN
LA
NN
WA
NN NN

SEQ 0163

iskgm THE MASSBUS AND ENABLE DEBUG CLOCK
[=lel-T1o)

SBSRR

b d

e
n

H13

001140

308:

ADD
CMP
BLO
CMP
BLO
MOV
5141

& .a;
'5"' 6.R2
408
as MICD
30$
#RG,SGDDAT
108

:EXIT IF DONE

*CHANGE EXPECTED RESULTI IF
*DATA COMMAND

:REPEAT TEST
:END OF TEST

408:

:;tfitlit.t..t.tttttfi'tttl'ttt.tll'.t.'tlttt.tt.l'tt.tt.t..tt.t"l

S*TEST 66

SET IAE TEST

igizzttltttitttt.t."..'t""itttQ'fitlttlt.tttlfititt"t.t..ttt.tt

033336

T66:

-l

-4 0

M-y
W —
-

5L5¥ XRFRISR 3

TST6S:

WWNN
NN NN
W

000000

[=l=l=1=]

NN NN
W

§-W.._...‘_‘f"'“=~s~_':§
CONO
VS NN = O VB NO NS W

w
21

iE
w

-ty

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

0
06

NOP

0011

mu
1466

000066

001226

033532

108:

054732

#STACK 3’

MOV
MOV

#66,STESTN
#1008 ,R2

JSR

PC,SETWV

EMT

177777
177777
000000

000006
000034
000032

041001

000024

sSCOPE CALL

MOV

MOV
MOV

SEQ 0164

$BASE ,R
TSTQUE ,R1

20§

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

s:SET TEST NUMBER IN APT MAIL BOX
;R2=TABLE POINTER
260 SET VOLUME VALID

sBRANCH TO 208 IF NO ERROR
:SKIP REST OF TEST

508

:LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT TO 18
208
MOV
MOV
MOV

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

;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCSI WITH GO ON
#DMD! MUR ! DBEN ,RMMR1(R0) ;LOAD RMMR1
MoV
MOVB
BIC
8IS
MoV
MOVB

1 7770}

BIC

(R2) ,R
#~CILF76,R3
#GO,R3
R3,RMCS1(RO)
1(R ) R 4

#°C377

sLOAD RMCS1
sGET CLOCK COUNT

§8I§?CK THE COMMAND SEQUENCER

382 033474
3383 033476
3384
3385
386 033500
7 033504

BIC
BNE

308

#~CIAE R4
508

:STORE RMER1 AT Ré

;BRANCH IF IAE SET

sIAE DID NOT SET = TRV ANOTHER FUNCTION CODE
R
ADD
#2,R2

IST8

1(R2)

8M]

408

EMT

206

2008

sBRANCH IF ALL CODES TRIED

B8R
10$
: CANNOT SET IAE WITH ANY COMBINATION OF ADDRESS AND FUNCTION CODE

50$:

DEC

;LOAD RMMR1

RT ;LOAD RMMR1
#DMD ! MUR i DBEN,RMM(RO)

;SEE IF IAE HAS SET
RMER1(RO) ,Ré
MOV

408

&
w

#DMD ! MUR ! DBEN ! DBCK ,RMMR1 (R0O)

BNE

96
397 033526
398 033526

oégu

MoV

MOV

388 033510
3389
§390
391 033512
3392 03351
393 03352
39;- 033524

000024
000024

:JUMP OVER TABLE

°TA2I:E OF FUNCTION CODES AND CLOCK COUNTS FOR TEST

100

.BYTE
.BYTE

SEARCH
2

sSEARCH COMMAND

55 ¢

FRARERRERRERR
PIIIIIIIIIIIIIIN
NOINIANININIRNINININD
=D b cd b b d b e b
(rehet 0"QO“JJ‘UHNF*231°CD\“’\hl‘“fl“-GC>

?Tl MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-70

J 13

SEQ 0165

.BYTE
.BYTE

sSEEK COMMAND

062

.BYTE
.BYTE

;WRITE HEADER COMMAND

052
002

.BYTE
.BYTE

sWRITE CHECK HEADER COMMAND

072
002

.BYTE
.BYTE

sREAD HEADER COMMAND

060
002

.BYTE
.BYTE

sWRITE DATA COMMAND

050
002

.BYTE
.BYTE

sWRITE CHECK DATA COMMAND

070

.BYTE
.BYTE

sREAD DATA COMMAND

.BYTE
.BYTE

;END OF TABLE
;END OF TEST

3322222232322 2 2222222333332 2332333333323 2322ttt

S*TEST 67

SEARCH, SEEK, READ, WRITE TEST

o
L ok Sl

49 033646
50 033650

ittt

iidditdd]

$BASE ,RO
TSTQUE ,R1

#67,$TESTN

SN=

#STACK,
SP

NONONO

e el

:SCOPE CALL

888

000004
000240
012706
013700
013701
012737

NOWVMS
WA =20V

I3
I TSIy
:~8wna=

P IR

QERR

3322222222322 2222233 2233322338333 3238332202223 d

idiiiiddidl)

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

s:SET TEST NUMEZR IN APT MAIL BOX
sINITIALIZE FUNCTION CODE

005002
PC,SETWV

;GO SET VOLUME VALID
sBRANCH TO 208 IF NO ERROR

OAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT
18 BIT MODE
MoV
MOV
MoV

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

;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCS1 WITH GO ON
#DMD ! MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
MOV
MOV

8IS

*ASSEMBLE CODE AND GO

vt
R
NN

175777
063640
175777
001140

000024
000024

001136
000014
001174

001142

S
&

3476 033772
3477 033776

#2,Ré

MOV

#DMD 'MUR ! DBEN!DBCK ,RMMR1(RO)

DEC

:LOAD RMMR1

02no!nuazoaeu.nnnni<ao> :LOAD RMMR1
308

sVERIFY IAE ACCORDING TO FUNCTION CODE TABLE
MOV

001142
001140
001140
001142

RMER1(RO) , SBDDAT

;STORE RMER1 AT $BDDAT

FNCDTB(R2) , SGDDAT

sASSEMBLE EXPECTED IAE

sBRANCH IF IAE OK
sSET UP ERROR MSG

BIC

#*CIAE, SBDDAT

8IC
CMP

#*CIAE ,SGDDAT
SggDAT.SBDDAT

MoV
ADD

RO, $BDADR
#RMER1,$BDADR
R2,$TMPO

MOV

001136

EMT

207
508

:SKIP REST OF TEST

ingANCE TO NEXT FUNCTION CODE = EXIT IF DONE

74 033766

:LOAD RMCS1

MoV

MOV

o (=] N

308

BNE

002016

R3,RMCS1(RO)

000002
000076

3478 034000
3479 034002
3480
3481

508 :

ADD

CMP
BLO
BR

#2,R2

ILF76.R2
508
108

:END OF TEST

3322222222222 222233 3323223223323 232322222233 3 d

S*TEST 70

INVALID TRACK/SECTOR TEST

ittt

idiidl

t
i ittt iddl)
d 3233
233322222 222223233232223232

001420

054732

001334
001421

001226

:SCOPE CALL

zggpe

MOV

#STACK, SP

:LOAD THE STACK POINTER

MOV
MOV

TSTQUE ,R1
#70,$TESTN

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

MOV
INCB

LSTRK , RMDAO
RMDAO*1

JSR
ggr

PC,SETVV
20§

100$

MOV

=l=1=]

RER

001100
001276
001466
000070

$BASE , RO

RO = UNIBUS ADDRESS

:LOAD LAST TRACK ADDRESS
:SETUP FIRST INVALID ADDRESS

;60 SET VOLUME VALID
*BRANCH TO 208 IF NO ERROR
;SKIP REST OF TEST

sCLEAR DESIRED CYLINDER, LOAD INVALID ADDRESS AND SET
=)

REN28TS N

PINIIIIIN
o

gy
2ERER

fsr70:

:18 BIT FORMAT

000000
001420
000000

000034
00000
00003

MOV

MOV
MOV

#0,RMDC (RO)

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

:LOAD RMDC

:LOAD RMDA
:LOAD RMOF

b Pd

SEQ 0166

;CLOCK THE COMMAND SEQUENCER TO SET PULSE

000002
141001
041001

=i=
W

33756
62

MoV

000000

b RRRR

NNNNY

~ ;g

010360
012704

o OO0O0000O0000
W
NN
WW
A
W
WW
\
~

® P33 r RRERERE

338 SHRGR 23 BEIF

Vi
VIS

51 033654

13-71

-4

CZRNBAO RM80 DSK LS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE
167
SEARC H, SEEK, READ, WRITE TEST

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

L13

SEQ 0167

INVALID TRACK/SECTOR TEST

170

FRXFFNRo

000024
000000

RINFRLRRE

001142
001142

FRERERE

mov
ggg

:LOAD RMMR1
#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)
ggno!nuneossu.nnnai<a0) :LOAD RMMR1

BNE

308

#2.R3

;ISSUE 2 CLOCKS

:VERIFY IAE IS SET
RMER1 (RO) , SBDDAT
MOV
BIC

#CIAE,SBODAT

MOV
ADD

RO, SBDADR
#RMER1, SBDADR

001140

BNE
MOV

001136
001174

MOV
EMT
BR

NWNVINN=N
SNN

on
=W

001420
001420

001421
001421

000200

000035

001420
000200

:STORE RMER1 AT SBDDAT
:BRANCH IF IAE IS ON
*SETUP ERROR MESSAGE

408
#1AE,$GDDAT

,
$ TMPO
RMDAO
210
1008

508:

TSTB

BEQ
INCB
CMP8
BLOS
MOV

INC

CMPB
BLOS

RMDAO+1

508
RMDAO+1
RMDAO+1,#128.
108
#29. ,RMDAO

RMDAO

RMDAO,#128.
108

:TESTING INVALID SECTORS ?

SYES !!
* INCREMENT TRACK ADDRESS
:DONE ?
*NO, TEST NEXT TRACK ADDRESS
:%g:gxtssr SECTOR ADDRESS AND

: INCREMENT SECTOR ADDRESS

:DONE ?
*NO, TEST NEXT SECTOR ADDRESS

:
1008

Wi ON
s

001421

W
WONIWN—
QNN
NNN =

&&
SNN
[«
=)

NN
DN
N

#SEARCH!GO,RMCST1(RO)

MOV

:LOAD RMCS1

MOV

zG%VANCE TO NEXT ENTRY IN TABLE = EXIT IF DONE

¥ SRR eFRER

j=l=]=1=]

! MUR ! DBEN ,RMMR1(RO) ;LOAD RMMR1
#DMD

MoV

b e

[=lelelelelel]

sEXECUTE A SEARCH COMMAND TO WHERE ‘'SET PULSE'' IS ACTIVE

0000%6
000024

N-goawo«nau

WWWW

WINWWNWWWWWW

AONIN) = b b b b e b e b d
N=OVONOWVSWNN=O

$gs8ss

N
o WWWNW

3495

33322222223

SRTEST 71

2
il
it
3333
ittt
2232222222 23322223

INVALID CYLINDER TEST

3
ittt iidd)
ii
i 3322
2
SR 2222222223223 22223323

Tsr71:

001226
001446

MoV

#561. ,RMDCO

JSR
BR
EMT
BR

PC,SETWV

MoV

(RO)
RMDCO,RMDC

FRRR

ViV

001100

34300

012737

001061

004737
?00402
04000
000460

054732

013760

001446

sSCOPE CALL

SCOPE

NOP
MOV
MoV
Mov
Mov

000034

108:

208:

#STACK,
SP

$BASE ,RO

TSTQUE ,R1
#71,$TESTN

20§
508

;LOAD THE STACK POINTER

;RO = UNIBUS ADDRESS
:R1 _= POINTER TO DEVICE

ssSET TEST NUMBER IN APT MAIL BOX
sSET FIRST INVALID CYLINDER
26O SET VOLUME VALID
sBRANCH TO 208 IF NO ERROR

:SKIP IF ERROR
:LOAD RMDC

C;R'BAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-73

M 13

SEQ 0168

INVALID CYLINDER TEST

m”m

MoV

gglzo 034326 012760 000000 000006
012760 041001

000024

141001

000024

3552 034374 016037 000014 001142
3553 034402 042737 175777 001142
3554 034410 001015
3555 034412 012737 002000 001140
3556 034420
3557 034424
3558 034432
3559 034440
ggg? 034442

3564 034444 005237 001446
3565 034450 023727 001446 002000
3566 034456

gggg 034460

103713

MOV

#DMD 'MUR ' DBEN'DBCK ,RMMR1(R0)

MOV
BIC
BNE
MOV

MOV
ADD
MOV
EMT
BR

INC
CMP

BLO

:LOAD RMMR1

(RO) ;LOAD RMMR1
D
i MUR | DBEN.RMMRT
#DM
R3
:ISSUE 2 CLOCKS
308

RMER1(RO) , SBDDAT
#~CIAE, SBODAT
408
#1AE ,$GDDAT
RO, SBDADR
#RMER1, SBDADR
RMDCO, $TMPO
211
508

:ADVANCE CYLINDER ADDRESS
408:

508:

:LOAD RMCS1

#SEARCH'GO,RMCS1(RO)
#2.R3

:VERIFY IAE IS SET

010037 001136
062737 000014 001136
013737 001446 001174
104211
000406

35
3563 034444

#DMD 'MUR! DBEN,RMMR1 (R0) ;LOAD RMMR1

nov
MOV
MOV
DEC
BNE

547 034362 012760 041001 000024
548 034370 005303
gggg 034372 001370
3551

:LOAD RMDA

sENABLE DEBUG CLOCK AND EXECUTE SEMCH COMMAND

544 034342 01%760 000031 000000
—
2545 3%4"%22 012703 000002
034354 012760

#0,RMDA(RO)

RMDCO
RMDCO,#1024.
108

;STORE RMER1 AT $BDDAT
:BRANCH IF IAE IS SET
“SETUP ERROR MESSAGE

; INCREMENT CYLINDER ADDRESS
:DONE ?
*NO, TEST AGAIN

tttttttttttttttttttttttttttttttttttttttttttt.tttttttttttttt!ttt

3569

RTEST 72

034460

tttttttttlfitttttttlttttttttttttttttttttttttttt.tttttttttttttttt

034460

000004

034464
034470
034474
034500
e 034506
3571 034514
3572 034520
gg;{s. 034526

012706
013700
013701
012737
012737
005037
013737
112737

034462

000240

t8r172:

001100
001276
001466
000003
000672
001444
001334
000035

001420
001420

582 034554

sLOAD THE STACK POINTER
RO= UNIBUS ADDRESS
R1 = Pomrea TO DEVICE
::D0 3 ITERATIONS
$SSET TEST NUMBER IN APT MAIL BOX
:18 BIT FORMAT MODE
“SET LAST TRACK AND
*LAST SECTOR

1'6’2” COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET
004737

0564732

012760

041001

034540 000402
034542 104000
3579 034544 000517
580 034546

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#3, STIMES
#72,STESTN
RMOFO
LSTRK , RMDAO
#29.,RMDAO

;ENABLE DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS, MEMORY ADDRESS AND

gg;g e

581 034546

MOV
MOV
MOV
MOV
MOV
CLR
MOV
MOVB

001206
001226

:SCOPE CALL

SCOPE

NOP

3575

3578 034534

SET AOE TEST

013760

001444

833 024

032

158:

;60 SET VOLUME VALID

JSR

PC,SETWV

MOV

#DMD 'MUR ' DBEN ,RMMR1 (R0) :LOAD RMMR1

BR
EMT
BR

MoV

15§
408

RMOFO,RMOF (RO5

*BRANCH TO 15S IF NO ERROR
:SKIP TEST IF ERROR
;LOAD RMOF

N 13

c;smo RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-74
SET AOE TEST
T
RMOF (RO) ,$TMPO srone RMOF AT STMPO
MOV
16037 000032 001174
583 0345
0AD RMDC
:seo..mc(nm I.OAD
MOV
34
103
584 0 s% 12760
RMDA
Ag
MOV
0
0014
585 034576 013760
RMWC
#-51 mc(ao) *LOAD
MOV
00000
1 723 177
sag 0
:LOAD RMBA
#BUFFER,RMBA (R0)
MOV
000004
104536
012760
587 034612
LOAD ancs1
#4D !GO, RMCS1 (RO)
MOV
01 ng 000061 000000
588 034
cLocK
az
6.R2°
MOV
589 034626 012702 000014

590
591
359; oy.egg

012760 141001 000024
3593 034632
3594 034640 012760 041001 000024
35905 034646 005302
gggg 034650 001370
3598

599 034652

012760 061001

000024

"s'oooo1 034660 012760 041001 000024
2

3603 034666
034674
3605 034702
3606 034704
3607 034710

3608 034716
3609 034726

016037
042737
001012
010037
062737

012737
1046212

000014 001142
176777 001142
001136
000014 001136
001000

3613 034736
3614 034740
3615 034746
3616 034754
3617 034756
3618 034756
3619 034764
3620 034766
3621 034774
3622 035002
33252 035004

208 :

032737 010000 001444

nov

:LOAD RMMR1
#DMD 'MUR 'DBEN!DBCX .RMMR1(R0)
#DMD !MUR ! DBEN,Mf (RO) :LOAD RMMR1
R2
;ISSUE 2 CLOCKS
20
#DMD | MUR { DBEN ! DEBL RMMR1 (RO)

~_:LOAD RMMR1

#DMD iMUR i DBEN.RMMRT (RO) ;LOAD RMMR1

:VERIFY THAT ADDRESS OVERFLOW ERROR IS SET

MOV
BIC
BNE
MOV
ADD

:STORE RMER1 AT $BDDAT
RMER1 (R0) , SBDDAT
, SBDODAT
#~CAOE
:BRANCH IF AOE IS SET
308
SETUP ERROR MESSAGE
RO,$BDADR
#RMER1, SBDADR

408

MOV
EMT

308:

001007
012737 010000 001444
112737 000036 001420
032737 001000 001444
:
001007
052737 001000 001444
112737 000037 001420

MOV
MOV
DEC
BNE

:FORCE EBI. TO GET TO OVERFLOW ADDRESS

001140

3610 034726 000426
3611 034730
361% 034730

3-04 14=60...
z-os
COUNT
LOCK
PULSE
SET
beneme
TO
-CLOCK THE COMMAND SEQUENCER

358:

408:

BIT

BNE
MOV
MOVB
B8R
BIT
BNE
BIS
MOVB
BR

, SGDDAT
#AOE
212

#FMT16 ,RMOFO

35
#FMT16,RMOFO
#30.,RMDAO
108
#SSEI,RMOFO
408
#SSEI,RMOFO
#31.,RMDAO
108

END OF TEST
ONE 16 BIT FORMAT TEST ?

SYES!
:SET 16 BIT FORMAT MODE AND
:LAST SECTOR
:DONE 16 BIT TEST W/ SSEI SET ?
YE
SET ssu W/ 16 BIT MODE AND
SLAST SECTOR

'ttttttttttttttttfitttttttttttttttt.ttttttltttlttttttltttfitttt!tt

S*TEST 73

ttttttttfittttttttt.ttt'ttttttttttlttttttttttttttttt!ttttttttttt

035004

035004 000004
035006 ooo;l.o
035010 o1§ 06 001100

mgr
035024 St
%9 ety
;2%3 035032
8350

35044

SET RMR TEST

010037

e
(7’3 001226

001136
oog
%7
§§ggu.
001136
12
012702

t173:

SCOPE
MOV
NOP

#STACK, SP

T
473, srésm
MOV
MOV

RO,S$BDADR
ADD
mfism$BDADR
MOV

:SCOPE CALL
:LOAD THE STACK POINTER

$:SET TEST NUMBER IN APT MAIL BOX
;SETUP REGISTER ADDRESS FOR MSG

:INITIALIZE TABLE POINTER

SEQ 0169

C%N
TMm

5515?

0&3043

[«lel=]

— b

WROININ=N NN

X PN sklbh&bsas&’

S
Uflflfiz NN
QOO0
WW
O000O0
vv
OOO0O

i
0 008

000034
000024
000014
000042

000001

000000

JSR
MOV
MOV
MOV

MOV

MoV

:LOAD RMER2

#GO an§s1(n0)

(R2J R

:LOAD RMCS1

:GENERATE REGISTER ADDRESS

RO.R

sWRITE THE REGISTER

#DMD ! MUR ! DBEN, (R3)

sVERIFY RMR ACCORDING TO TABLE
RMER1(RO) , SBDDAT
MOV
BIC

#*CRMR, SBDODAT

BEQ
MOV
BIT
BNE

308
(R2) ,$TMPO
2 (R2)
#RMR
20$

EMT

214

MOV
CMP

001174
000004

000004

RO
o 53 O

3680 035232
3681
3682

#0.RMER2(R0)

EMT
BR

;STORE RMER1 AT $BDDAT

:GET EXPECTED RESULT FROM TABLE

2(R2) ,$GDDAT
$GDDAT, SBDDAT

:BRANCH IF RMR IS OK
“SAVE TEST REGISTER

:BRANCH IF ERROR SHOULD BE ONE

213
308

ifigYANCE TABLE POINTER, EXIT IF DONE

ViV
N) =
oN

78 035230
79

000014
177773
000002
001140

;60 CLEAR CONTROLLER
PC,CNTCLR
pofio,nnna1(a0) LOAD RMMR1
(RO) :LOAD RMMR1
#DMD ' MUR ! DBEN,RMMR1
#0,RMER1(RO) = :;LOAD RMER1

;SET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE

208:

[=lelelelal]
W NN

VON

OISWN=0OVONOWVSWN=O

(V7]

OO0

ONSHOO

W N NN
\fl\fl\.flgw
Vi

ADD
ST

#4 R2
(R2)
?82

:EXIT IF ENTRY NEGATIVE

2008

:JUMP OVER TABLE

ggx
408:

iseggs OF REGISTER ADDRESSES AND RMR VALUES

.WORD

RMAS

;ATTENTION SUMMARY REG

000024
000000

.WORD
WORD

RMMR1
O

:MAINTENANCE REG
RMR = 0

000006
000004

.WORD
"WORD

RMDA
RMR

:DISK ADDRESS REG
:RMR = 1

177777
000000

JNORD

;END OF TABLE

000016
000000

WORD

:RMR = 0

:END OF TEST

2008 :
31211228322 8022222 22

SRTEST 74

PGM STATUS CHECK

i didiii it ddiiiiiiidtdd]

::ttttttt.t.t"ltt.ttitit""'.tt.'tt!tl'.tfit.'t.l'tttttt.lfi.tt'.

-4 €

2:
T I sttt
Gt
geReREEesSRR

3676
3677 035226

SEQ 0170

is&gAR THE DEVICE AND ENABLE DEBUG CLOCK

041001

3669

B 14

?71 MACRO V04.00 14=~JAN-82 16:33:00 PAGE 13-75

PGM STATUS CHECK

MOV
MOV

MOV

12
001466

purd

VINININO NN

=1
=NWNN—
N —
N

MOV

rsrouéR1
#74,STESTN

;LOAD THE STACK POINTER

‘RO= UNIBUS ADDRESS
..ser TEST NUMBER IN APT MAIL BOX

*R1 = POINTER TO DEVICE

001174

Po *STORE RMDT AT STMPO
anbr(RO).stn
S :STORE RMDS AT SBDDAT
- $BDDAT
(RO)
RMD

;OMIT TEST_IF DRQ IS ON = ELSE VERIFY THAT PGM IS OFF
BIT
BNE

BIC

001142

BEQ

001140

NNN

OO~
NN

C":gi
oo
N =2

nov

000026
000012

176777

lSTACK SP

;CLEAR AND READ onxvs tYPE AND DRIVE STATUS
:GO CLEAR CONTROLLER
CNTCL
JSR

055156

004000

;SCOPE CALL

aggpe
MOV

01 g? 000074

G
S

=4
W

01
013701

Qrvh)
NRS

W &~

o
8&s

0000000

NN WWNW W

[=l=1=]

gaggé
~

TST7%:

001134

108:

CLR
MOV
ADD
EMT

#DRQ,STMPO
108
#CPGM, $BDDAT
108
$GDDAT
RO, SBDADR

:BRANCH IF DRQ IS ON
:BRANCH IF PGM IS OFF

, SGDADR
#RMDS

215

;END OF TEST

t'.ittttt.ttttttttt.ttt'tt'ttttt..ltttltt.ttttttttttttt.tQttttt

LRTEST 75

DVA/DPR STATUS CHECK

NN
oN

NNNN=NYN

720

3721 035464
3722

-~ -

—

0354§
g?l
3713 0354

1100
1276
14

00007

855156

MOV

001136

00114

lSTACK 89

E.R

rsroué
#75, srésru

sLOAD THE STACK POINTER

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

:CLEAR AND VERIFY THAT DVA IS SET
JSR
PC,CNTCLR
;G0 CLEAR CONTROLLER

MOV
BIC

RMCS 1 (RO) sa DAT’
#°CDVA, SBODA

MOV

#DVA, SGDDAT

BNE

001140

o1
00114
170375 00114
0004

MOV
MOV

001226

173797 00114

:SCOPE CALL

aggps

888

Seane
S35
R

(=1-T~1=]

>o
N
=N

§709 035422

i?‘-‘ SR
A 22

0354
3706
3707 035410
3708 035416

=00

£%
8rh

SS38

OO0

2SS

?gt;;ttfi'tt..tt.tti..itt"t'lfitttl.tttlifi.tttttl'tttitt.ttt'ttttt

MOV
EMT

108

:STORE RMCS1 AT SBDDAT
:BRANCH IF DVA IS ON

RO, $B8DADR
216

ixggxrv THAT DPR IS SET

001140

MoV

RMDS (RO) saooAr :STORE RMDS AT $BDDAT

BNE
=8¥

208
popgéscooAr

BIC

ADD

001136

EMT

208:

#~CDPR, $8DDA

cafio
,$BDA
217

:END OF TEST

-l

SEQ 0171

%;2N8A0 RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-76

D 14

SEQ 0172

PORT REQUEST TEST,

176

3723

SETEST 76

835464. 000004
35668 ooo;l.o
ogsw 015 06 001100
0354764 013700 001276
1466
035500 813721
76 001226
. 035506 012737

t176:

;%g 035522

729

PORT REQUEST TEST, PART 1

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

10§

*BRANCH TO 108 IF NO ERROR

JSR

004737 054732
3725 035512
035516 000402
035520

LA L L
L AL LA LA LA L LAbbb
bbbinbibbia
b debiuibiotiiobib

ttttfitttttt.ttt!tttt"t'tt"ttt't'ttt.tttttttt'tt"tttttt'ttttt

035464

g?gg

L L L L L L L L L

EMT

104000

PC,SETWV

;G0 SET VOLUME VALID

208

-EXECUTE A RELEASE TO RESET REQUEST FLUP

035524

g;gg 035524 012760 000013 000000

10s:

MOV

#RLEASE !GO,RMCS1(RO)

;LOAD RMCS1

373;

:READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET

§737

:READ RMCS1 TO SET REQUEST FLOP

3733 035532 016002 000
gm 035536 042702 037777
732 035542 001024
7§g 035544 016002 000000
740

7641 035550
42 035554
743 035560
4% 035562
gl.s 035570
746 035576
7 035
748 0356064
749 035612
;gg 035614

016005
032705
001415
016037
042737
omoog
010037
062737
104220

000012
001000
000040 001142
037777 001142
001136
000040 001136

MOV

~;STORE RMMR2 AT R2
RMMR2(R0) R2
#*~C<RQA'RAB>,R2
208
RMCST(RO) ,R2

:STORE RMCS1 AT R2

:VERIFY THAT nsouesr bor ;s SET IF PGM IS SET

20$:

MOV
BIT
BEQ
MOV
BIC
BNE
MOV
ADD
EMT

STORE RMDS AT RS
see IF PGM IS SET
open.n
*DONT TEST REQUEST IF PGM IS ZERO
208
<STORE RMMR2 AT SBDDAT
RMMR2 (RO) , $BDDAT’
BDDAT
#°C<RQA'RQB>,S
:BRANCH IF REQUEST IS SET
208
no $BDADR
RMMR?2, SBDADR
220

tttlttttttttttttttt'ttttttttttttttttttfitt!tttfitttttt.tttt'ttt't

752

LRTEST 77

8532}2
000004
035618 ooo;l.o
?

MOV
BIC
BNE

03562 o1§ 33 001100
1ei6
035624 0137
035630 012737
013701 00146
077 001226
035634

754 035642

054732
35646 004737
00040
104
35650

3755 035652

0004

PORT REQUEST TEST, PART 2

tt't"t'ttttttttttttt'ttt't'tttttttt.'tttIttttttttttttttttttttt

18177 NOP
SCOPE
MOV
MOV
MOV
MOV

osucx SP
E,RO
;roué R1
#77,$TESTN

JSR
BR
EMT

15£SETVV
20

:SCOPE CALL

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

*BRANCH TO 108 IF NO ERROR

-4

C;R’BAO RMB0 DSKLS PT1 MCRO VN 00 14=JN-82 16:33: 00 PAGE 13-77

R'GAO RM80 DSKLS PT1 MACRO V04 00 14=JAN-82 16:33:00 PAGE 13-78
1
PORT REQUEST TEST, PART 2
759
75
758 035654
759 035654
760

000013

766

177777
NO
MY
WW=O
NN

CDE;CHD
PRa=h
NPNSB lU&;-‘
NNN!&;

778 035744
2779 035746
780
3781

=200

3775 03S
3776 035732
gm 035736

purd

768

MoV

000000

8IC

BNE
000016

#*C<ROA'RGB>,R2
208

;WRITE THE ATTENUW SUMMARY REGISTER TO SET REQUEST FLOP
#-1,RMAS (RO)

BIT
BEQ
MOV
BIC

00114

03097 00114

001136
000040

:LOAD RMCS1

sLOAD RMAS

sVERIFY THAT REOUEST FI.OP;S SET IF PGM IS SET
;STORE RMDS AT RS
RMDS (
MOV

000012
001000
03777

#RLEASE !GO,RMCS1(R0O)

sREAD RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET
s STORE RMMR2 AT R2
MOV
RMMR2 (RO) ,R2

037779

%767 035674

774 035;%5

SEQ 0173

SXECUTE A RELEASE TO RESET REQUEST FLOP

7%i 9g33ees

3770 3578§
772 03571
%77% 035714

E 14

MOV
ADD
EMT

001136
208:

SEE IF_PGM IS SET
IPGH.RS
s DONT TES; g'E‘OUEST IF PGM IS ZERO
208
RMMR2 AT $BDDAT
RMMR2 (RO) , $BDDAT
#*C<RQA!RQB> ,$BDDAT
208
RO, $BDADR
2?1'“2.$BDADR

tttltt'.l'fit.ttlttttt"ttt'tttl.tttttttttltttttttttttl.titt.ttt

S4TEST 100

PORT REQUEST TEST, PART 3

igt;aatQtttttttttttttQtttt'ttl..itttt.l.'t.ttttfittttt.ttt.t.tt..'

838

035746

001226

054732

;SCOPE CALL

's‘ggp

MOV
MOV
MOV
MOV

#STACK, SP
$BASE , RO
rsrouéR1
#100,STESTN

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

JSR

PC,SETW

;G0 SET VOLUME VALID

B8R

20s

ggr

108

*BRANCH TO 108 IF NO ERROR

1Bxstscure A RELEASE COMMAMD TO RESET REQUEST FLOP

MoV

000013

039979

016005
032705

000000

80700

sLOAD RMCS1

sREAD MZ AND SKIP TEST IF REQUEST FLOPS MENT RESET
RMMR2 (RO) ,R2
:STORE RMMR2
AT R2

BIC

03777

012760

#RLEASE !GO,RMCS1(RO)

BNE
000006

#~C<ROA'RGB> ,R2
208

sWRITE RMDA TO SET REOUEST FLOP
sLOAD RMDA
#0 ,RMDA (R0)
MoV

sVERIFY THAT REOUEST FLOP;s SET IF PGH lS SET
:STORE RMDS AT R5
sSEE IF PGM IS SET
#PGM,R
8IT

MOV

RMDS ( §

€z
n

RMB0 DSKLS PT1 MACRO V04,00 14=JAN=82 16:33:00 PAGE 13-79
PORT REQUEST TEST, PART 3
4

0
0

8011.1

6 01 g Wg 881145
1142
7
54 8’617 7
1136
0100

0 001136

70 ogzr 7
76

BEQ

106222

MOV
g'x‘g
MOV
ADD
EMT

F 14

208

SEQ 0174
:DONT TEST REQUEST

RMMR2 (RO) , SBDDAT
%g«wnésmaom
RO, SBDADR
#RMMR2 , SBDADR

IF PGM IS ZERO

:STORE RMMR2 AT SBDDAT

222

208:

036100

:;ttttttt'tttt.ttttttt't"tttt.tt.t.ltttttttttttttt..t'¢tt.'t't'.

S*TEST 101

"tt.ttttttttttl.ttt.ttt'tttttttlttt.'t.ttttttttttt.t't'tt.t'tttt

t$1101:

SCOP
MOV
MOV
MOV
MOV
NOP

000240

o1§7oe 001100
013700 001276
013701 001466
012737 000101 001226

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

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

;REQUEST FLOP SHOULD SET WHEN WRITTING RMCS1

036126

004737

036132 000402
036134 104000
036136 000454
036140

JSR

054732

BR
EMT
BR

012760
012760
012702
15760
12760
5305
00137

041001
000013
000002
141001
041001

000024
000000

0
0

c;uso 7
016037

001174
ooms

3
83

%?é; SO0 SovEm
' .
30%99
03273; 040000 001142

PC,SETWV

108
408

:60 SET VOLUME VALID

*BRANCH TO 10$ IF NO ERROR

EXECUTE A RELEASE COMMAND

036140
036146
8332123
3%2160
196
036174
036176

355e s

—

VO~

Lttt

VIS

036100

036100
036102
036104
036110
036114
036120

RELEASE TEST

%%Z B

10s:

e
T
oooosl.
000024

MOV
MOV
MOV
mov
MOV
DEC
BNE

#DMD ' DBEN'MUR ,RMMR1(RO) :LOAD RMMR1
:LOAD RMCS1
#RLEASE 'GO,RMCST1(RO)
¥
|
:LOAD RMMR1
#DMD ' DBEN'MUR!DBCK ,RMMR1(R0)
(RO) :LOAD RMMR1
#DMD | DBEN ! MUR.RMMRT
as
;ISSUE 2 CLOCKS
208

:VERIFY REQUEST FLOPS ARE RESET

MOV
MOV

:STORE RMDT AT STMPO
RMOT(RO) ,$T
:STORE RMMR2 AT $BDDAT
RMMR2 (ROJ , SBDDAT

Sé{
Sfl
BIT

gggo.smo
282"‘”""
$BDDAT
#RQB,

gég

BEQ

001406

282“““‘"‘“"””“
408

:BRANCH IF REQUESTS ARE RESET

.aamcn IF SINGLE PORT DEVICE
IF ROA IS ae.f;er
'samcu
‘
:BRANCH IF RQB IS RESET

’:33%'3555231‘?2ogsaiggeg't‘ FLOP IS ON, OR, DRQ IS ONE AND

0011 001136 Ptk
010037 830023
03823 8627%7
0362

o Soaee
v i SRMMR2
, SBDADR
ADD

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

G 14

SEQ 0175

RELEASE TEST

ig%; 8;2398

104223

40$:

EMT

223

;END OF TEST

t.tt't'.tttlt"'fittt""tttt..ttt.fi.i'ttt.tt..'.t.tt".t.i..'t.

3848

-TEST 102

WRITE ATA TEST

31222222 222222222 2232222321122 32233222222

fsr102:

:SCOPE CALL

sLOAD THE STACK POINTER

#STACK, SP
001226

dddididitddiddldl)

MoV

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

$BASE , RO
TSTQUE ,R1
#102,STESTN

MOVB

MOV
S2

BIC

CLEAR CONTROLLER

RMMR1
:LOAD RMER1
:LOAD RMER2

#0,RMER1(RO)
#0_RMER2(R0)
m'm RMMR1 (RD)
(R1),R2

#°CUNTMSK ,R2
ATNTBL(R2), as

.msmb)
#*CATNMSK,R

;LOAD RMMR1
;ASSEMBLE THE ATA BIT IN R3

:LOAD RMAS

;READ RMDS AND VERIFY nw ATA IS RESET

MOV

RMDS (RO) ,SBDDAT :STORE RMDS AT $BDDAT

BEQ

108

BIC

—p

§ § 2

BIC
MOVB

MOV
ADD
EMT

224

CLR

001136

mArA.séooA

RO, $BDADR
#RMDS ,SBDAD

:BRANCH IF ATA IS RESET

ssom\f
208

isgm RMAS AND VERIFY ATA IS RESET

001142

ncaoox

%usmm,$BDDAT ;STORE RMAS AT SBDDAT

BIC

ag $BDDAT

CLR

$GDDAT

BEQ

MOV
ADD

—t

s
23
&Soos

ggECND 33T5ey

MOV

:WRITE THE ATTENTION SUMMARY REGISTER

0000

—2

SRREo5
geE
2BI3JaNaR

nov
MOV
MOV

000024
0000
00004
000024

[ =1=]

SESLIRRRUS
SERepsEse
&
gres &5
SERRTe
ddg
<
W
£

sCLEAR THEDEVICEé EET DIAGNOSTICGSODE THEN SET UNIT READY

001136

208:

EMT

:BRANCH IF ATA IS RESET

20§

RO, SBDADR
#RMAS,SBDADR
225

:END OF TEST

Qt'ttt.t.tt'llttttttt't't'tittl.tttttlt.ttlt.t"ttlt.t!ttitt.t'

SATEST 103

RESET ATA BY GO TEST

3333
333333333]
3%33233313
3333333333333
X 2223222222323 23322322232222382333

836473 000004

t4r103:

sSCOPE CALL

fil&flm RMB0 DSKLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 13-81

SEQ 0176

NOP

1
1298
01 001226
=0

)

ggm

\'J

\Y,]

83388

N
S323Y

N—--

800014

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

MOV
MOV
MOV
MOV

#STACK 39
$BASE , R
TSTQUE R
#103,$TESTN

MOV
MOV
MOV
MOV

#DMD ,RMMR1(RO) :LOAD RMMR1
:LOAD RMER1
#0,RMER1(RO)
:LOAD RMER2
#0_RMER2(RO)
#DMD ' MUR ! DBEN,RMMR1 (R0) ;LOAD RMMR1

$:SET TEST NUMBER IN APT MAIL BOX
;60 CLEAR CONTROLLER

80116%

MOV
BIC

001136

MOV
ADD

0114

BEQ

CLR

Lad = Lajiad

sWITH Digge CLOCK ENABLED, SET GO AND VElcUFY THAT ATA IS RESET
-~
-~
-~
~—

.a§§ — b b b

SNINSNSNIN

prr
P Purd

[=leT=]

SRS
TS
SrN

ViAWY

bttt
2?” V. ]
SRR

00000

AR
S

FEGON 22

§ o
03
i

RESET ATA BY GO TEST

226

EMT

#GO,RMCS1(RO)

;LOAD RMCS1

RMDS (RO) ,SBDDAT :STORE RMDS AT SBDDAT
|
#~CATA,$BDDAT

:BRANCH IF ATA IS RESET

108

$GDDAT

RO, SBDADR
, SBDADR
#RMDS
226

;END OF TEST

108:

':QQQ".!.Q....Q"QQ*tt""'tl...tQfi.tt.t.tfi.Q.ttt.fi.ttttfi.tt..t.

S2TEST 104

UNIT READY ATA TEST

i:t;az.tt'tt.ttl.t..t.tt'ttt'tt.tt.t.t.tttQ'Qlttttttttttttttti'tt

;SCOPE CALL

's‘ggre

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

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

ssSET TEST NUMBER IN APT MAIL BOX

:SET DIAGNOSTIC MODE AND CLEAR ATA
;G0 CLEAR CONTROLLER
PC,CNTCLR
JSR

§§

w
i

i
o

MOV
MOV
MOV
MOV

0011
0012

MOV
MOV
MOV
MOV

#DMD, RMMR1(RO)
#0,RMER1(RO)
#0_RMER2(R0)
#-1,RMAS(RO)

:LOAD RMMR1
:LOAD RMER1
:LOAD RMER2
:LOAD RMAS

: s

:SET UNIT READY AND VERIFY ATA IS SET

§2828222
ERestes
~u-e~¢~e-‘~u~e2;

—

d ==b

[=1=1a)

-ags
SN

2228 ~

MOV
MOV
BIC
BNE

;LOAD RMMR1
mmg ,RMMR1 (RO)
RMDS (RO) -$BDDAT ;STORE RMDS AT SBDDAT
#~CATA, SBDDAT
:BRANCH IF ATA IS SET
108

ADD
MOV

#RMDS , SBDADR

#ATA, $GDDAT
227

~N
~N
~N
~N
~N

012760

isligm ATA, RESET UNIT READY, AND VERIFY ATA IS SET
~

928 036756

81%
13700

—

ONON

EECDGDC,CS
REEEES
gese
NI
1gaE
SSKSN
O
OO

b e

b cd e

\NU“&U%SU%S
0
8808888 e
N
SESERE

\nfiy“hqgag WVWONOWVSWN=O

036634
036640

000004

0366

036620
036620
03662
0366

000016
000024

MOV
MOV

#-1,RMAS(RO)
:LOAD RMAS
#DMD,RMMR1(RO) :LOAD RMMR1

16037

7
1

85 8

114
114

MOV
BIC

SEQ 0177

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

gagAn,SBDDAT
RO, $8DAD

36
oo140
080018 0011

#RMDS sevon
#ATA, $GDDAT
230

:END OF TEST

2 0s:

)]
~

116

ATA TEST

3
o

oooNg

[elelelelelel]
SE
~J =~

g§
8860809
33‘”0 NN N
SRR

t.t'tttt.tttt.tttttt'."'tt..t.t.t..'tttt.ititt.t.t.tt..'t.tt'.

tTEST 105

ERROR ATA TEST

"t.tttt..ttttt.t.t.ttl"'ttt.ttttt.t'tfitttt.fi.tt.ttttt..t.t.t..t

tsr105:

:SCOPE CALL

SCOP

NOP
MoV
MoV
MoV
MoV

OSTACK SP

;LOAD THE STACK POINTER

#105,STESTN

:2SET TEST NUMBER IN APT MAIL BOX

rsrouén1

$BASE

= UNIBUS ADDRESS
;RO
:R1 = POINTER TO DEVICE

sCLEAR THE DEVICE AND RESET ATTENTION
:G0 CLEAR CONTROLLER
PC,CNTCLR

N
W
NNN=NYN

KK
ERESE

SRR

#DMD ,RMMR1(RO)
#0,RMER1(RO)
#0 RMER2(RO)
#-1,RMAS(RO)

—

-4
b g

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

:LOAD RMMR1
:LOAD RMER1
:LOAD RMER2
:LOAD RMAS

lN ERROR REGISTER 1 AND VERIfY1ATA IS SET
#-1_,RMERT(RO) _ ;LOAD RMER

RMDS (R0) ,$BDDAT ;STORE RMDS AT $BDDAT
#~CATA, SBDDAT
108

001140

#ATA,SGDDAT
RO, $BDA
$BDAD
DR
S.,$BDADR

001136

2957
958 037156
3959

;END OF TEST

1 0s:

Qlt't..tt.ttttttttttt".'.t'.ttttttltfittfit..tt.tltttitt.tt"t't

tTEST 106

A
AAAAARAY
AAANRE
AARARAACAARAAA
RAARNA
ARRANAAAAAANA
R R AR
CARRARRAARAR

037154

3961
96% 037202
96
964
3965 037206

000004
800 40
§ 06
700
13701
012737

012702

f §7106:

:SCOPE CALL

#STACK, SP

$BASE ,RO
TSTQUE ,R1
#106,STESTN

001226
Mov

;LOAD THE STACK POINTER

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

#1008 ,R2

é;?RCE COMPOSITE ERROR AND RESET ATA

:INITIALIZE TABLE ADDRESS

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-83
T106

SEQ 0178

JSR

05515?
7
1
177777

J 14

MOV

0000

PC,CNTCLR

;60 CLEAR CONTROLLER

#-1.RMAS(RO)

:LOAD RMAS

#DMD,RMMR1 (RO)

#-1 finem(am

:LOAD RMMR1

.LOAD RMER1

sWRITE THE TEST REGIST%R AND VERIFY ATA
MOV

ADD
CLR

MOV

2(R2) icooAr

MOV
BIC

CMP

BEQ
MOV

MoV

ADD
EMT

7304

3983 037312
3984

:GENERATE REGISTER ADDRESS

nn05(no> ssooAr ;STORE RMDS AT $BDDAT
#~CATA, SBDDAT

$GDDAT, SBDDAT
s
L$TMPO

:BRANCH IF ATA IS OK

RO.SBDADR

gggDS.SBDADR

irgg\!e TABLE POINTER = EXIT IF DONE

-d:ié-.

CO=NN

gs-n

86 037314
3987 037314
3988 037320
3989 037322
037324
3990
3991 037326

(R2) ,R

RO, RS
(R$)

ADD
ST

#4,R2
(R2)
zos

;EXIT IF ENTRY MINUS

zoos

;:JUMP OVER TABLE

20$:

i(r)eggs OF REGISTER ADDRESSES AND ATA BITS

"
399
3998 037334
3999 037336
4000
4001 037340
4002 037342
4003
4004 037344
4005 037346

.WORD

RMAS

.WORD
"WORD

RMDA
ATA

.WORD

RMCS1

JWORD

-WORD

-WORD
-WORD

4006
4007 037350
4008
4009

;END OF TABLE

;EnD OF TEST

2008 :

itt'tttttttttttttttt.ttt'ittt!ttttt.tlttt'tttttfi.'tfitfi'ttttt'tt

LATEST 107

P SET ATA TEST

fgt;a;..'tt.ttttttltttttt"'ttttltttfitttttttttttt..fittttt.l.tt.ti

037350
037350
037352
0 360
037
037370

4010
4011 037376
4012 037402

000004
000;40
01§ 06
013700
013701
012737

00
001%76

012702

037540

000107

's‘sgpe

MOV
MOV

0sucx SP
E.R

sLOAD THE STACK POINTER
RO= UNIBUS ADDRES S

MOV

#1008 ,R2

sINITIALIZE TABLE POINTER

MOV
MOV

001226

108:

;SCOPE CALL

rsrout
2107, sfssm

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

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-84
107

JSR

004737 054732

BR
EMT
BR

037406 00040
037410 104
28}'5’ 037412 000451
4017

SEQ 0179

P SET ATA TEST

4013 037402

4019

037414

4018 037414

4019 037422
037426
4021 037430
4022 037434
4023 037440
4024 037440
4025 037446
4026 037454
285173 037456
4029

4030 037460
4031 037466
4032 037474
4033 037476
4034037502
4035 037510
4036 037516
"8%; 037522

4040 037524

"822 037536

4047
4048 037540
4049 037540
4050 037542

4051 037544

23?5 037546

012760 041001

01120
052703
010360
012703
012760
012760
005303
001370

016037
042737
001013
010037
062737
012737
011237
104233

000024

208:

000001

000000
000003
141007 000024
041001 000024

oooo1; 001142
077777

308:

MOV
BIS
MOV
MOV
MOV
MOV
DEC
BNE

MOV
BIC
BNE
MOV
ADD
MOV
MOV

001136

000012 001136
0000 001140
001174

EMT -

4057 037600

:onomgmosenLRMMR1(R0O) :LOAD RMMR1

:GET FUNCTION CODE
(R2) .R
;LOAD RMCS?
R3,RMCS1(RO)
3.R3
;LOAD RMMR1
#DMD 'MUR ' DBEN'!DBCK,RMMR1(R0)
RMMR1
;LOAD
! MUR i DBEN.RMMR1 (RO)
#DMD
R3
308

ogo.ns

RMDS (RO) , saooAr :STORE RMDS AT SBDDAT
#*CATA, $BDD
408
RO, SBDADR
#RMDS ,SBDADR
#ATA, $GDDAT
(n;)"$TMPO

:ADVANCE TABLE POINTER-EXIT IF DONE

062702 000002
005712
10040
000722
00040

408:

50$:

ADD
ST
BMI
B8R
BR

#2,R2
(R2)
sos
108

:JUMP OVER TABLE

200$

TABLE OF FUNCTION CODES
100s:
.WORD
"WORD

000014
000016

177777

200$:

JWORD

OFFSET
RTC

:END OF TABLE

ttttttttttttttttttttttt"ttttttttttttQfittttt'tttttttttttttttttt

RTEST 110

037546
037550
037552
037556
037562
s 037566
4056 037574

;G0 SET VOLUME VALID

*BRANCH TO 20$ IF NO ERROR

:VERIFY THAT ATA IS SET

001142

405‘

037546

20§
508

-EXECUTE THE COMMAND FROM THE TABLE

4039

4041 037524
404; 037530
4043 037532
4044 037534

PC,SETWV

SET WLE TEST

X 3222222222322 3323222222222233333%3333331333333333333333332333334%]

00
000240
012706
81 700
013701
012737
012702

t§1110:
001100
001276
001466
000110 001226
037770

108:

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

csmx SP
$BASE , RO
rsrouéR1
#110,STESTN
#1008 ,R2

:SCOPE CALL
sLOAD THE STACK POINTER
*RO= UNIBUS ADDRESS
= POINTER TO DEVICE
m
$:SET TEST NUMBER IN APT MAIL BOX
sINITIALIZE TABLE POINTER

c2l
Lok

04 RNBAO RM80 DSKLS PT1
SET WLE TEST
n 10

054732

4058 0%7600
037604
0%7606
4059 037610

JSR

PC,SETW

508

ggr

20§

SEQ 0180

:60 SET VOLUME VALID

*BRANCH TO 208 IF NO ERROR

25?:A8LE DEBUG CLOCK AND SET WRITE PROTECT ACCORDING TO TABLE

MOV
BIS
MOV

:GET WRITE PROTECT FROM TABLE
2(R2)
:SET OTHER MAINT BITS
R3,RMMR1(RO) = :LOAD RMMRI

mw'nun'oesN.R3

:LOAD AND EXECUTE THE COMMAND FROM THE TABLE
:GET FUNCTION CODE FROM TABLE
(R2) .R&
MOV

[=lelelelela]

30$:

SSan

4060
4061
4062 03761
4063 03761
037616
4064
4065 037622
4066
4067
4068 037626
4069 037630
4070 037634

MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-85

BIS
MOV
MOV
BIS
MOV
BIC

#GO,R4
R&,RMCS1(RO)
#2.RS

*SET GO
RMCS1
LOAD
:R5=CLOCK COUNT

:g.mmm

*LOAD RMMRT

BNE

30s

gg\cl

001142
001142
001142

MOV
BIC
CMP

RMER1(RO),SBDDAT
#*CWLE ,SBODAT
4(R2),$BDDAT

MOV
ADD
MOV
MOV
EMT
BR

RO, SBDADR
#RMER1, SBDADR
(R2) ,$TMPO
2(R2) ,$THP1
234
508

BEQ
MOV

001136

4087 037734
4088 037740
4089 037746
4090 037750

*SET CLOCK
:LOAD RMMR1
*RESET CLOCK

;I1SSUE 2 CLOCKS

;VERIFY THAT WRITE LOCK ERROR xs ACCORDING TO TABLE

001140
4086

#DBCK,R3
R3,RMMRI(RO)
#DBCK ,R3

001176

408
4(R2) ,$GDDAT

:STORE RMER1 AT $BDDAT

:BRANCH IF WLE IS OK
:SAVE DATA FOR ERROR MSG

:$TMPO=FUNCTION CODE
*$TMP1=WRITE PROTECT

5.32"”‘“ TABLE POINTER TO NEXT FUNCTION CODE-EXIT IF DONE

4092

4093 037752
775
4

000006
000002

4097 037764
098
4099 037766

ADD
ST

#6.R2
Z(éz)

1os

:REPEAT TEST

2008

:JUMP OVER TABLE

BMI

50$:

issgge OF FUNCTION CODES, WRITE PROTECT AND WRITE LOCK ERRORS

:WRITE DATA COMMAND
*WRITE PROTECT ON
*WRITE LOCK ERROR ONE

.WORD
"WORD
JWORD

WD
MWP
WLE

000060
000000
000000

NORD
~WORD
-WORD

;WRITE DATA COMMAND
‘MWP OFF
:WLE OFF

000070
000010

LWORD
"WORD

RD
MWP

:READ DATA COMMAND
‘MJP ON

000060
000010
004000

czi

ZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN=82 16:33:00 PAGE 13-86
110

SET WLE TEST

4115 040012

000020

LMORD

4119 040020

.WORD

"WORD

000010

~WORD

2H;umm 000000

RIP

MWP

"WORD =1

2};9 040022 199999

SEQ 0181

;WLE OFF

.WORD

zuzmww 000000
4116 040014

" 1%

:READ IN PRESET COMMAND
‘MWP ON

*WLE OFF

:END OF TABLE

:END OF TEST

4}%§ 040024

2008:

4]2‘

- 2332322323232 2222222223232323233323333132333 3333332333332 232223 23331

SRTEST 111

EXCEPTION TEST

; 2 ttttttttttttttttttt'tttt'tttttttttttttttttttttttttttttttttttttt

040024

040026

000240

040030 012706
040034 013700
040040 013701

e 040044

TST111:

000004

001100
001276
001466

012737 000111

NOP

MOV
MOV
MOV

MOV

001226

:SCOPE CALL

SCOPE

#STACK, SP
$BASE , RO
TSTQUE R

#111,$TESTN

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

*:SET TEST NUMBER IN APT MAIL BOX

4126
2}%;

:WITH OCCUPIED SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN
:EXCEPTION:

4129

PAR, IF RUN AND GO IS SET

4132
4133
4134
4135

;
:
:
:

DCK
HCE
HCRC
FER

RMR. IF RUN AND GO IS SET
ILR. IF RUN AND GO IS SET

:
;

4130
4131

zggg 040052

012702

MOV

040324

4142 040056
4143 040062

004737
016037

4145 040076

001410

4144 040070

4146 040100
4147 060104
4148 040112
4149 040116
4150 040120

4151 040120

042737

040126

055156
000024

167777

010037
062737
005037
104235

001136
000024
001140

004737

054732

040124 000402

2}§§ 040130

10s:
001142
001142

4156 040132
4157 040140

JSR
MOV

:60 CLEAR CONTROLLER
PC,CNTCLR
:STORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBDDAT

BEQ

208

BIC

MOV
ADD
CLR
EMT

001136
208:

104000

JSR

000474

4154

4155 oa0135

;INITIALIZE TABLE POINTER

- INITIALIZE AND VERIFY THAT EXCEPTION IS RESET

4140

4141 040056

#1008 ,R2

EMT

#~CREX,SBODAT

RO, SBDADR
#RMMR1, SBDADR
$GDDAT
235

PC,SETW

308

:BRANCH IF EXCEPTION IS 0
.

;60 SET VOLUME VALID

*BRANCH TO 308 IF NO ERROR

608

-EXECUTE A WRITE DATA COMMAND TO SET OCCUPIED, RUN AND GO

012760
012760

000000
000000

000006
000034

508:

MOV
MOV

#0,RMDA (RO)
#0_RMDC (RO)

:LOAD RMDA
:LOAD RMDC

-4
-t

RNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-87
11

EXCEPTION TEST

1001
4158 040146 0127
061
4159 8201“ 127
2
4160 040162 01270
4161 068166
8'4’ 166 815760 141001
m,g 0176 012760 041001
4163

040202

oossog

000024
000000
000024
000024

z}gg 040204 00137
4169

4167 040206 011260 000014
4168 040212 012737 oooioo 001534
. 84"8552 004777

040224

040232

141312

016037 000024 001142
062737

167777

oo1o§1
005737 001534
001
141264
004777
012737 010000 001140
010037 001136

4179 040300

104236

040266

062737

oooo;l.

4178 040274 011237 001174

4184 040304

004777

2}83 040322

000402

419

408

;ISSUE 2 CLOCKS

MOV

RMMR1 (RO) , SBDDAT

JSR

BIC

BNE
ST
BNE
JSR
MOV
MOV
ADD

MOV

PC,aCLOCK

#~CREX,$SBDDAT

50
WATCH
45$
PC,asSTOPCL
#REX, SGDDAT
RO, SS8DADR

*START THE CLOCK

;STORE RMMR1 AT SBDDAT

:HAS CLOCK EXPIRED 2?
*NO = TAKE ANOTHER SAMPLE
:STOP THE CLOCK

#RMMR1 , SBDADR

(R2) ,$TMPO

236

608

-ADVANCE TABLE POINTER-EXIT IF DONE
:
50s:

141230

608:

JSR

PC,aSTOPCL

;STOP THE CLOCK

2008

:JUMP OVER TABLE

ADD
ST
BEQ
B8R

#2°R2
(R2)
608
10$

:PRESENTLY, THE TABLE HAS ONLY ONE ENTRY,

THE TEST USING RMR. THE
*A HARDWARE CHANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR

*TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF

419

2}39 040324

(R2) ,LRMER1(RO) ;LOAD RMER1
*SET WATCHDOG TIMER VALUE
#200,WATCH

419%
4195 040324

#OMD 'MUR ! DBEN,RMMR1(R0) :LOAD RMMR1
:LOAD RMCS1
m:go.nnm (RO)
#2.R
:LOAD RMMR1
#DMD 'MUR 'DBEN'!DBCK ,PMMR1(RO)
#DMD | MUR i DBEN_RMMRT (R0O) ;LOAD RMMR1

MOV
MOV

EMT

4185 040310 062702 000002
4186 040314 005712
4187 040316 001401
|
4188 040320 000656
4191

SEQ 0182

:LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET

001136

2}80 040302 000407
4182
4183 040304

DEC

001142

4171 040240
4172 040242
4173 040246
4174 040250
4175 0402564
4176 040262
4177

408:

MOV
MOV
MOV
MOV
MOV

N 14

*REGISTER 1 WITH GO SET.
100s:
.WORD

000004

4198 040326 000000

RMR

.WORD

:RMR IS CAUSED BY HARDWARE

;END OF TABLE

*END OF TEST

2133 040330

200$:

‘ 01

:;ttttttttttttttttttttttttttttttt'.tttttttttttttttttt'tttt!tt.ttt

S*TEST 112

040330
040330
040332

04033¢
040340
040344
040350

;

000004
;t.o
01
0137
01 721
012737

1100
1276
14
112 001226

RECALIBRATE TEST

3333
33333343473]
333333133
3333333333333
133332222222 232232322233222223

tsr112:

SCOPE
NOP

MOV
MOV
MOV
MOV

#STACK 3’
$BASE ,R
TSTQUE ,R1
#112,$TESTN

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

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

8 15

SEQ 0183

RECALIBRATE TEST

;VERIFY THAT OPI SETS IF UNIT READY DROPS AFTER DECODE
004737
0004

054732

288228
RRRRRN

RRRR

222

041001
000000
000000
000007
012702

223
4224 0460446
4225 040454
4226 048260

4239
4240 040540
4241
4242
4243 0460546
4244 040546
040552
040554
4245 040556
454

4248 04056§

4250 04057
4251 040576
4252 0460604

000024

141001
041001

i0s:

3308

MoV

MOV
MOV
MOV

000000

*BRANCH TO 108 IF NO ERROR

! MUR ! DBEN,RMMR1 (RO) :LOAD RMMR1
#DMD

#0,RMER1(RO) = ;LOAD RMER1
:LOAD RMER2
#0 RMER2(RO)
;LOAD RMCS1
! GO,RMCS1 (RO)
#RECAL

;STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS)

000002

He
N

-0

JMP

10§

;60 SET VOLUME VALID

:ENABLE PEBUG CLOCK AND LOAD RECALIBRATE COMMAND

FRRRRR

AR RARRRRRAR

PC,SETVV

Efir

041664

JSR

000024
000024

040001
000002

000024

140001
040001

000024
000024

000014
157777

001142
001142

020000
001136
000014

001140

040546

001124

20$:

MoV

MOV

#2,R2
.

#DMD 'MUR ! DBEN!DBCK ,RMMR1 (R0)

:LOAD RMMR1

ggg

:gHD!HUR!DBEN.RHHRi(RO) ;LOAD RMMR1

BNE

208

;DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)
ngv

30$:

MOV

MOV
DEC
BNE

! DBEN!DBCK ,RMMR1 (R0)
#DMD

#DMD ! DBEN,RHHR‘(RO)
R2
308

:VERIFY THAT OPI IS SET

MOV

001136

40$:

:LOAD RMMR1

'BHQZDBEN-RMMR1 (RO)

RMER1 (RO) ,$BDDAT

BIC
BNE
MOV
MOV
ADD
EMT

#~COP1,$BDDAT
408
#OP] ,$GDDAT
RO,$BDADR
#RMER1,$BDADR
241

MOV

#508 ,SLPERR

:LOAD RMMR1

;LOAD RHfiR1

:STORE RMER1 AT SBDDAT

:CHANGE LOOP ON ERROR ADDRESS

ggERIFY THAT RECALIBRATE ABORTS DURING EXECUTION
054732
041664

JSR

PC,SETW

EMT
JMP

3308

60$

;60 SET VOLUME VALID

*BRANCH TO 60$ IF NO ERROR

: ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND
041001
000000
00000
00000

MOV

'MUR ! DBEN,RMMR1 (RO) ;LOAD RMMR1
#DMD

MOV

boA
:LOAD RMCS1
nncs1(k
caécAL'Go

MOV

oo anea1(no>
ER2(R

RMER1
.LOAD

RMER2

CZRNBAO RM80 DSKLS PT1 MACRO VO04.00 14-JAN-82 16:33:00 PAGE 13-89

SEQ 0184

RECALIBRATE TEST

012760

141001
041001

4286 040742
4287 04074
4288 04075
4289 040756
4290 04 0764
4291

393

4293 040772
4534 040776

4295 040776
4296 041
4297 041012
4298 041014
2 99
4301 041016
10;6
430
4303
041032
4304
041034
4305 041040
4306 041046

Mov

#3,R2

MOV

#DMD 'MUR ' DBEN'DBCK ,RMMR1(RO)

DEC
BNE

R2
70$

MOV

041101

000002

:LOAD RMMR1

;STEP 2 CLOCKS AND VERIFY GO IS RESET

MOV

#2.R2

MoV
ggg

:LOAD RMMR1
#DMD ' MUR ! DBEN ! MDF ! DBCK , RMMR1 (RO)
:LOAD RMMR
:gno!nun:oaenznor.annni(RO)

BNE

808

BIC
BEQ
MOV

#~CG0,SBDDAT
90$
RO, $BDADR

EMT

242

MOV

141101
041101

001136
001140
040726

:LOAD RMMR1

1 :LOAD RMMR1
(RO)
#DMD ! MUR i DBEN.RMMR

:SET DRIVE FAULT TO CAUSE ABORT CONDITION
#DMD ' MUR ! DBEN ' MDF ,RMMR1 (RO)
MOV

000000
177776
4274 0460706
4275 040712
4276 040716
4277
4278 040720
4279
4280
4281 040726
4282 040726
040732
040734
4283 040736
4284

708:

—

4267 040650
0650

000003

PGy

6
4266 0460644

012702

;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)

[=1=]

CLR

90$:

MOV

RMCS1(RO) , SBDDAT

;STORE RMCS1 AT S$BDDAT

$GDDAT

#1008,SLPERR

:CHANGE LOOP ON ERROR ADDRESS

igsggrv OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR

054732

041664

D
Efir

PC,SETW
1108

JMP

3308

;G0 SET VOLUME VALID
*BRANCH TO 1108 IF NO ERROR

iggque DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

mov
MOV
MOV

MOV

1 :LOAD RMMR1
(RO)
#DMD ! MUR ! DBEN,RMMR
RMER1
;LOAD
=
O)
#0,RMER1(R
#0 RMER2(RO)
:LOAD RMER2
:LOAD RMCS?
#RECAL ! GO,RMCS1 (RO)

:STEP THE COMMAND geoueucsn

MOV

"5, ,R2

MoV
ggg

;LOAD RMMR1
#DMD 'MUR ' DBEN'!DBCK ,RMMR1(R0)
:DHD!HUR!DBEN.RHHR‘(RO) ;LOAD RMMR1

BNE

1503

:VERIFY THAT OPI IS SET
RMER1 (RO) ,SBDDAT
MOV

BIC
BNE

l‘gOPl.SBfiDAT

MOV

#0PI,SGDDAT

MOV
ADD

1308

RO, $SBDADR
#RMER1,$BDADR

_
:STORE RMER1 AT $BDDAT

SEQ 0185

RECALIBRATE
T

4307 041054

104243

EMT

243

JSR
Efir

PC,SETVV
1608

JMP

3308

:CHANGE LOOP ON ERROR ADDRESS
#1508, SLPERR
2308 041056 012737 041064 001124 1308: MOV
310
igsggrv ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS)
lo§1 ?
4 1§ 041064

041064
041070
041072
4314 041074
4315

4313

6%1 ]

4317 041100
4318 041100
4319 041106
4320 041114
4321 041122
4322
4323
4324 041130
4325 041134
041134
4326 041142
4327 041150
4328 041152
4329
4330
4331 041154
4332 041162
4333
4334

4335 041170
4336 041174
4337 061174
4338 041202
4339 041210
4340 041212
4341
4342
4343 041214
4344 041222
4345 041230
4346 04123
4347 041540
4348 041264
4349 041252
4350
4351 041254
435

0412
4355 041262
041296
4356
4357
4358

1270
041272

004737
000403
104000
000137
:

054732

012760
012760
012760
012760

061401
00000
00000
000007

012702

000015

012760
012760
005302
001370

141401
041401

012760
012760

041664

;60 SET VOLUME VALID
*BRANCH TO 1608 IF NO ERROR

igggaLe DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

MOV

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

MOV

lRfCAL'GO RMCS1(RO)

MOV

000000

38nnea1<no>

RMER2(RO)

;LOAD RMER1

;LOAD RMMR1

:LOAD RMER2

;LOAD RMCS1

:STEP COMMAND SEOU;NCER TO FIRST ON LATCH TEST (13 CLOCKS)
000024
000024

000024
000024

MoV

#3. .R2

MOV

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

BNE

MOV

#DMD ! MUR i DBEN | MOC ,RMMRT (RO)

;08

:LOAD RMMR1

;LOAD RMMR1

:DROP ON CVLINDER TO RESET LATCH, THEN SET ON CYLINDER

HOV

! MUR ! DBEN, RMMR1 (RO)
#DMD

MoV

#3.R2

MOV

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

:LOAD RMMR1

LOAD RMMR1

#DMD i MUR i DBEN | MOC , RMMR1 (hO)

sSTEP COMMAND SEOgENCER TO SET ATTENTION (3 CLOCKS)

012702

012760
012760
005302
001370

000024
000024

016037
042737
001011
015537
010037
062737
104244

001142
001142

012737

001124

1 80$:

MOV

‘MD!WR!DBEN!MC.M‘ (RO)

BNE

1808

:LOAD RMMR1

sVERIFY ATA IS SET
RMDS (RO) SBDDAT :STORE RMDS AT S$BDDAT
MOV

BIC

#°CATA, SBDDAT

MOV
ADD

0, $8DADR
onnos $BDADR

BNE
MOV

001140

001136

EMT

1 90$:

MOV

1908
pArA $GDDAT
244

#2008,SLPERR

;CHANGE LOOP ON ERROR ADDRESS

53553" THAT RECALIBRATE ABORTS AFTER EXECUTION DURING WAIT LOOP
004737
00040
104
000574

Keig

PC,SETW
2108

3308

EMT

;60 SET VOLgHE VALID
*BRANCH TO 2108 IF NO ERROR

sENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

Ak
&

RNBAO RMBO DSKLS PTEMACRO V04.00 14~JAN-82 16:33:00 PAGE 13-90

FoRFN
SEER

ggwwmw

d
b
e
b e
-

041402
4386 041410
4387 041416
4388 041420
4389 041426
4390 061432
4391
439,
4393 041434
041434
4394
4395
4396 041442

041
4399
4400 041
4401 041466
4402 061474
4403 041502
4404 041504
4405 041510
4406 041514
4407
4408 041516
[
4410

0007
803000
812328
760
000
g8 806007 800060
1401

012702

000015

e
005302

141401
041401

0000%4
000024

012760

041001

000024

012702

000007

012760
60

141001
041001

000024
000024

000000
177776

00114
00114

000001
001136

001140

2108:

:LOAD RMMR1

MOV

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

MOV

mécAL'so RMCS1(R

MOV
vong\cf

"
:LOAD RMMR1
#DMD ! MUR ! DBEN 'MOC ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
gonosmnsoasmnoc.mimo»

MOV
MOV

‘ .RHER1(R0)
RMER2(RO)

OAD RMER1
.L

50»
RMER2

;LOAD RMCS1

:STEP commo segt,: uceg TO FIRST ON LATCH TEST (13 CLOCKS)

2208:

BNE

2303

:DROP ON CYLINDER TO RESET LATCH, LEAVE ON cvunosn 0

MOV

#DMD'MUR ! DBEN,RMMRT (R0) ;LOAD RMMR1

;STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)

MOV

#7.R2

mov

#DMD 'MUR ' DBEN!DBCK ,RMMR1(R0)

BNE

zfos

gg\cf

:LOAD RMMR1
RMMR1
gonowmaenJRMMRT(R0O) ;LOAD

:VERIFY THAT GO xs STILL SET

MOV
BIC
BNE
MOV
MOV
EMT

:STORE RMCS1 AT SSDDAT

RMCS1(RO), SBDDAT
#~CGO, $SBDDAT
2408
#GO, SGDDAT
RO ievon
2ut

1,551 SEEK INCOMPLETE ERROR

000024

:LOAD RMMR1
#DMD 'MUR 'DBEN'MSER,RMMR1(R0)
MOV
;:STEP cu:smo 5523‘25‘“ AND VERIFY GO RESETS (3 CLOCKS)
.
2508:
;LOAD RMMR1
#DMD ' MUR ! DBEN ! MSER ! DBCK ,RMMR1 (R0)
MOV
RMMR1
:LOAD
mm
eumsea.m
gmema!oa
gg\cr
2508
BNE
;STORE RMCS1 AT $BDDAT
RMCS1(RO) ,SBDDAT
MOV
46O, $SBDDAT
BIC
2608
BEQ
RO, SBDADR
MOV
CLR

SGODAT

MOV

#3008,SLPERR

EMT
001124

2608:

246

;CHANGE LOOP ON ERROR ADDRESS

55555" THE TAG BUS DURING RECALIBRATE

JSR
BR

PC,SETWV
3108

co SET vm.% VALID
BRANCH TO 3108 IF NO ERROR

am
&

L2§§
SESEOPEREES
3%
RRRRI]R
BRRER

N
BB

4
4

-4
b

ALIBRATE TEST

)

SEQ 0186

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

s:no

EMT

000453

purd

N
we
oo

—bad
b

38 8

S WWW=WNWW
WNNNN=NNN

001165
00114

31 $:

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

:LOAD RMMR1

#0,RMER1 (RO)
#0 _RMER2 (RO)

:LOAD RMER1
'50AD RMER2

#4008 ,R2

:INITIALIZE TABLE POINTER

#RECAL
' GO, RMCS 1(RO)

MOV

RMMR2 (RO) ,SBDDAT

CMP

(R2) ,$BDDAT
3208
(R2) ,$GDDAT
RO, SBDADR
ARMMR?
, SBDADR
247
3308

BIC

BEQ

MOV
MOV
ADD
EMT
BR

001136

:LOAD RMCS1

#ROA'RQB! TST,SBDDAT

:STORE RMMR2 AT S$BDDAT

-0

PR3-S

g;cn:
SN

iéEBS!
s33

-ADVANCE TO NEXT ENTRY IN TAB LE-EXIT IF DONE

$20s:

000002

ADD

#2.R2

BMI

3308

000024
000024

(R2)

;EXIT IF ENTRY NEGATIVE

;STEP TH;OeOHHAND SEQUENCER AND REPEAT VERIFI&ATION
MOV

3308:

! DBCK ,RMMR
#DMD
! DBEN ! MUR 1MOV
#DMD
! DBEN ! MUR iMoC ., RMMR1 (RO)
3158
5008

:LOAD RMMR1

;LOAD RMAR1

;JUMP OVER TABLE

i53§LE OF TAG BUS CONTROL AND BIT VALUES

JMORD
JWORD
.WORD
JWORD
.WORD
JWORD
.WORD
JWORD
.WORD
.WORD

o &HNO
N

MOV

1777
1777
CC!CH'BB06
CC!CH!BBO6
TAG'CC'CH'BBO6
TAG!CCiCHBBO6
TAG!CCiCHIBB
TAG!CCICH!
TAG!CCiCHIBBO6
TAG!CC!CHIBBO6

;BUS BITS AT HIGH IMPEDANCE STATE

;CONTROL BITS ENABLED, BIT 6 ON
;TAG COMES ON

‘YoRD E€iHiBB0e
.WORD 5375

:TAG GOES OFF

sEND OF TABLE

JMORD

N -

mov

MOV

88
N
N

337

RRET

$10

b
b b

FENSIINIEE

—

O0O0000O
o) e

o
oo
NNN

SEEEEEREEEEE

000024
000014
00004
000

-v;nxrv TAG BUS ACCORDING TO TABLE

228R2
IS

Sages

PN-S

\fl\flt:}g\h\fl

b ced
— e

RRRRRR

RRRRRRRRER

RRRR

SRROR 28T=IR ®
2 2 2RRRRRRRRRRRRR
el ) ool
b ) ) = e P e} D B

3308

-gugsts DEBUG CLOCK AND LOAD RECALIBRATE COMMAND

e
cd
e
b e

NIRCOND

NN
W

SRERR

SEQ 0187

ALIBRATE TEST

RERRRERERERER
SEERREREER
-S@owu J~u~au-a23

VONOWVSW

—

-d
=24

'uig

B2 Aanig

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

F 15

sCONTROL BITS DISABLED
;END OF TEST

5008:

s o RARRARARAAAAAAAARAAAEAEONS ARRARRRARARRAAARAAARRANRRARAAAANOARE

SRTEST 113

SEEK TEST

T 1 13

6 15

SEQ 0188

SEEK TEST

NNNNNNY

BRRERER
~ .,.Rf.\m,
NJENKFJNNNU

2332222222 2828232223732 2222323333222 2333302232222

4467
4468
4469
4470

4471 061750
754

Goigss
gigiee

013701
012737

t§1113:

sSCOPE CALL

MOV

osucx 39

sLOAD THE STACK POINTER

MOV

#113,$TES

..SET TEST NUMBER IN APT MAIL BOX

MOV

001226

i ddiiiiididddl)

E.R

tsroué R1 TN

RO UNIBUS ADDRESS

R1 = POINTER TO DEVICE

sVERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION

JSR

004737
0004

EMT

JMP

PC,SETW

108§

;60 SET VOLUME VALID

*BRANCH TO 108 IF NO ERROR

3308

sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
*ADDRESS, AND LOAD S EEK COMMAND

f0s:

4480
042006
4481 042014
4482 042022
4483
4484
4485 042030
4486
34

MOV

! MUR ! DBEN,RMMR1 (R0) :LOAD RMMR1
#DMD

MOV

oséex'so RMCS1 (nb)

MOV
MoV
MOV

MOV

#0,RMDA (RO)
#0,RMDC (RO)
00 RHER1(R0)

(RO
ER2(R0)

:LOAD RMDA
sLOAD RMDC
.LOAD RMER1

:LOAD RMCS1

0AD RMER2

;STEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS)
000024
000024

000024
000024
000024

114
114

20$:

#2,R2

MOV
MOV

;LOAD RMMR1
#DMD ' MUR ! DBEN!DBCK ,RMMR1(R0)
! MUR DBEN,RMMRT (RO) :LOAD RMMR)
#DMD

BNE

258

;DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)
MoV

308:

#DMD ! DBEN,RMMR1(R0)

#2,R2

MoV
gg\cr

:LOAD RMMR1
BCK ,RMMR1 (RO)
! DBEN !
#DMD
:LOAD RMMR1
! DBEN ,RMMRT (RO)
#DMD

353

sVERIFY THAT OPI IS SET

001136

MOV
BIC
BNE
MOV
MOV
ADD

RMER1 (a%ssom
#~COPI
408
#0P1,$GDDAT
RO, S8DADR
#RMER1,$BDADR

MOV

#508, SLPERR

EMT

408:

:LOAD RMMR1

MoV

BNE

001140

001124

MoV

:STORE RMER1 AT $BDDAT

250

:CHANGE LOOP ON ERROR ADDRESS

sVERIFY THAT SEEK ABORTS DURING EXECUTION

-4

¢ 4 RNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-93

- ch ok wed b

806403
104
0001

508:

054732

043400

H SET VOLUHE VALI
0 60$ IF NO ERROR

:S‘SETVV

JSR
BR
EMT
JMP

SEQ 0189

:BRANCH

3308

ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
DRESS,

RRRRRBL
~nN

AN(-INY
~
J=1-]
o

603

#DMD ! MUR ! DBEN, mm (RO) :LOAD RMMR1
0)

RO
R2(R0)
RMER?2

RMDA

oséex'so RMCS1(RO)

Mov

sLOAD RMCS1

:STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)

208

NN
NN

RRR]R

AND LOAD SEEK COMMAND

0
240
46
0422564

MOV

000024
000024

#3,R2

R ,RMMR1 (RO)
! DBEN!DBCK
" #DMD'MU
;LOAD RMMR1
RMMR1
;LOAD
(R0O)
DBEN.RMMRT
i
MUR
|
#DMD

MOV
MOV
DEC

2231 0462256

R2
708

BNE

012760

000024

sSET DRIVE FAULT TO CAUSE ABORT CONDITION
! MDF ,RMMR1 (R0O)
#DMD! MUR! DBEN
MOV

;LOAD RMMR1

sSTEP 2 CLOCKS AND VERIFY GO IS RESET

012702

80$:

MOV

#2,R2

MOV
gg\cr

CLR

:LOAD RMMR1
! DBCK ,RMMR1 (RO)
#DMD ' MUR ! DBEN!MDF
pgm!masossnemr.mi (RO)
:LOAD RMMR1
808
:STORE RMCS1 AT $BDDAT
RMCS1(RO), saooAt
#~CG0,SBDDAT
908
RO, SBDADR
sgfmt

MOV

#1008, SLPERR

BNE
MOV
BIC
BEQ
MOV

251

EMT

001124

:CHANGE LOOP ON ERROR ADDRESS

ixsggrv OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR

JSR

PC,SETW

JMP

3308

Egr

1108

:60 SET VOLUME

VALID

*BRANCH TO 1108 IF NO ERROR

:ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
‘%gness.

A4 Aviviiivitvided
ot A
v
RRERR

000024
14

AND LOAD SEEK COMMAND

MoV
MOV
MOV
MOV

m'nua'oasn RMMR1(RO) :LOAD RMMR1
:LOAD RMDA
,RMDA (RO)
RMDC
(RO)
LOAD
RMDC
:LOAD RMER1
‘RMER1(RO)

2 o8

b e
d e
b
-

H15

%S PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 13-94

rn
m

RRRRR

Vi ViV

oK &
EIBY&RRENNY VO~NOWNSW

N =2

BRBDEDDEDDED
e

&
4530

SRBBENDDS

— g

SEEK TEST

T113

4563 042414 0127

ggg o:.%t.zz 0157

4.569

2?2& & 2&0
4569 042634
4570 042442
4571 06245
4.57; 042452

0004
ooooo”mg 800005

MOV

4575 0462456 016037
4576 062662 0462737
4577 042470 001011

14 301145

1"5070977 0114
4578 042472 010037 001136
001136
579 042476 062737 000014
020000 001140

MOV
MOV
MOV
DEC
BNE

104252

22%{ 042514

012737 042522

001124

4586 042522

4593 042536
4594 042546
4595 042552
4596 042560
4597 042566

004737

054732

4601 042602
042606
4603 ol.sm
4604 062622
%g 042624
4602 042606

4607

012760
012760
012760
015760
012760

041401
000000
000000
000000
000000

000024
000006
000034
000014
000042

012702 000015
012760 141401 000024
012760 041401 000024
005302
001370

4608 0426%2 012760 041001 000024

4609“10 042634

4611

4616 062662

EMT

252

MOV

1308:

;STORE RMER1 AT $BDDAT

savon
miem
#OP],$GDDAT
#1508, SLPERR

;CHANGE LOOP ON ERROR ADDRESS

012760 041401 000024
005302

JSR

PC,SETW

1608
3308

:GO SET VOLUME VALID

*BRANCH TO 1608 IF NO ERROR

:ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
ADDRESS, AND LOAD SEEK COMMAND
160s:

MOV
MOV
MOV
MOV
MOV

MOV

#DMD ! MUR ! DBEN ! MOC ,RMMR1 (R0)
#0,RMDA (RO)
:LOAD RMDA
*LOAD RMDC
#0_RMDC (RO)
.I.OAD RMER1
coRMER1 (RO)
OAD RMER2
RMER2 (RO)

:LOAD RMMR1

oséex'soRMCS1 (ab) :LOAD RMCS1

;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS)
1708:

MOV
MOV
MOV
DEC
BNE

#13. .R2
:LOAD RMMR1
#DMD ' MUR ! DBEN ! DBCK !MOC ,RMMR1 (RO)
;LOAD RMMR1
#DMD ! MUR | DBEN iMOC ,RMMRT (RO)
a;
0s

MOV

0AD RMMR1
5
:LOAD RMMR1
muk)
#DMD i MUR i DBENMOC,

MOV
MOV
MOV

og.nz
:LOAD RMMR1
! DBCK ,RMMR1(RO);LOAD RMMR1
MUR ' DBEN'MOC
#DMD 'iMURIDBENIMO
C .RMMRT(R0O) #DMD

;DROP ON_CYLINDER TO RESET LATCH, msn SET ON CYLINDER

#DMD'MUR ' DBEN ,RMMR1(

;STEP COMMAND SEQUENCER TO SET ATTENTION <3 CLOCKS)

223 “Zfi% 012702 000003
141401 000024
4614 32 646 012760
062656 012760 041401 000024
4615

RMER1 (RO) , SBNDAT
#~COPI,SBODAT
1sos

B8R
EMT
JMP

ggg 042574 012760 000005 000000

4600

MOV
BIC
BNE

MOV
ADD
MOV

150s:

042526 000403
042530 104000
:
:ggg 042532 000137 043400
4590
4591
4592 042536

:LOAD RMMR1
#DMD ' MUR ' DBEN'DBCK ,RMMR1(R0)
RMMR1
;LOAD
(RO)
DBEN.RMMRT
|
| MUR
#DMD
5
1208

-VERIFY ATA SETS IF DRIVE COMPLETES SEEK (ON CYLINDER SETS)

4585

4587 042522

OAD RMER2
;LOAD RMCS1
0sé£x'so nncsml»

#0,RMER2 (RO)

:VERIFY THAT OPI IS SET

580 042504 012737

2;35 042512

SEQ 0190

gsou NCER
;STEP THE COMMAND

e
012702 000017
012760 141001 54.
012760 041001 000024
oosgos
00137

:.s;:.

115

DEC

-4

CZRNBAOD RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-95

RNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-96
SEEK TEST

BNE

g}; 042664 001370

J 15

SEQ 0191

1808

AT SBDDAT
RMDS
;STORE
$BODAT
sfurnsmo)
g
350
—
00114
2
1
016037
04
SBDDAT
#°CATA,
BIC
1 04 292 04.27;7 o°7u7n97; 00114
1908
BNE
042702 001011
042706 012737 1
042712 o1oog7 0011

042716 062737 000012
0462724

104253

042726 012737 042734

4,630
4631 0462734
2 042736

004737

001140

001136
001126

1908:

4638 042750
4639 042756
042764
4641 042772
04

MOV

#2008 ,SLPERR

JSR

054732

041401
000000
000000
000000
000000

, SBDAD
#RMDS
253

:CHANGE LOOP ON ERROR ADDRESS

-VERIFY THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP
2008:

BR
EMT
JMP

:ENABLE

012760
012760
012760
012760
012760

#ATA,SGDDAT
RO, SBDADR

ADD

EMT

042740 000403
042742 104000
4.‘232 042744 000137 043400

4636
4637 042750

MOV
MOV

000024
000006
000034
000014
000042

4643 043006 012760 000005 000000
4647 043020

4648 043020 012760 141401 000024
4649 043026 012760 041401 000024
4650 043036 005302
%1 043036 001370

s§

PC,SETW

2108
3308

;G0 SET VOLUME VALID

*BRANCH TO 2108 IF NO ERROR

DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

“ADDRESS AND LOAD SEEK COMMAND
2108:

MOV
MOV
MOV
MOV
MOV

MOV

#DMD !MUR ! DBEN!MOC , mm (no)
;L0AD RMD
#0,RMDA (RO)
LOAD moc
#0_RMDC (RO)
.LOAD RMER1
oo"RMER1 (RO)
OAD RMER2
RMER2(RO)

:LOAD RMMR1

osésmoRMCS1 cnl» ;LOAD RMCS1

;STEP CW SEOUSNCER TO FIRST ON LATCH TEST (13 CLOCKS)
2208:

MOV
MOV
DEC
BNE

:LOAD RMMR1
! DBCK ,RMMR1 (RO)
#DMD ' MUR ! DBEN'MOC
:LOAD RMMR1
#DMD ! MUR | DBEN | MOC . RMMRT (RO)
5
2208

;DROP ON CYLINDER TO RESET LATCH, LEAVE ON cvunoen 0

#DMD 'MUR ! DBEN,RMMRT (R0) ;LOAD RMMR1
MOV
gsg 043040 012760 041001 000024
:STEP cawwo SEQUENCER THROUGH WAIT LOOP (7 CLOCKS)
4656

4657 043046 012702 000007

4658 ol.sosg

:
2308

466

:VERIFY THAT GO IS sm SET
RMCS1(RO) saooAr
MOV

4659 043052 012760 141001 000024
4660 043060 012760 041001 000024
4661 043066 005302
l.ecg 043070 001370
4664
4665 043072 016037 000000 00114

666? 323100 042737 177776 00114

1 001140
3?37
o:.%}%
“64668
4669
043116
010037
ouoc
1
I
1526
4670 043122 104254

MOV
MOV
DEC
BNE

BIC

| %’65
MOV
EMT

:LOAD RMMR1
#DMD 'MUR ! DBEN!DBCK ,RMMR1(R0)
RMMR1
;LOAD
(RO)
DBEN.RMMRT
i
MUR
#DMD
g
2308

raso,SBDDAT

gc‘;o’ssom
agA$B8DADR

:STORE RMCS1 AT $BDDAT

SEQ 0192 {
:

-ssr SEEK INCOMPLETE ERROR

467%

467 043154.

2408 :

4675

:STEP COMMAND ssogencea AND VERIFY GO RESETS (3 CLOCKS)

ol 043126 012760 041201 000024

4.679 043132
043136
32 136
063146
4678
4679 043152
4,680 ot.gm
4681 0463156
4677

012702
01%760
012760
oossog
00137
o1sog7

000003
141201 000024
041201 000024

2508:

oomg

4,683 043172

104255

4688 043206

012737

043220

%3 043214 012703 000001

4693 063220

001124

004737

054732

043300
4709 043306
4710 043314
4711 043320
4712 043326
4713 043332
471% 043336
4715 043340
4716 043346
2% 043350

012760
012760
010360
012760
012760
012760
012702

041401
000000
000034
000000
000000
000005
043414

MOV

2608

255

#3008, SLPERR

#1,R3

:CHANGE LOOP ON ERROR ADDRESS

SINITIALIZE CYLINDER ADDRESS

JSR

BR
EMT
BR

PC,SETW

3108
3308

-«

ook

;G0 SET VOLUME VALID

*BRANCH TO 3108 IF NO ERROR

016037
042737
ougsr
050337
023737
001407
010037
062737
104256
000413

000040
150000
001140
001140
001140
001136
000040

000024
000006
000014
000042
000000

ADDRESS AND LOAD SEEK COMMAND
$10s:

MOV
MOV
MOV
MOV
MOV
MOV
MOV

:LOAD RMMR1
C (RO)
, RMMR1
#DMD 'MUR ! DBEN!MO
:LOAD RMDA
#0,RMDA (AO)
:LOAD RMDC
R3.RMDC (RO)
:LOAD RMER1
#O_RMER1(RO)
#0_RMER2(RO)
:LOAD
:LOAD RMCS1
#SEEK!GO,RMCS1(RD)
;INITIALIZE TABLE POINTER
#4008 ,R2

-VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3

4719

4720 omsg

RO, $BDADR
SGDDAT

#CG0, SBDDAT

:ENABLE DEBUG CLOCK, LOAP CYLINDER, TRACK AND SECTOR

4707

4708 043300

260$:

5008:

4699 043232
4700 043240
4701 043246
4702 043252
4703 043260
4704 043266
'4';82 043274

BEQ

-VERIFY THE TAG BUS DURING SEEK

000402
043224
043226 104000
ggg 043230 000463

4697
4698 043232

#3.R2
:LOAD SMMR1
#DMD ' MUR ! DBEN 'MSER ! DBCK ,RMMR1 (R0)
;LOAD RMMR1
#DMD ! MUR ! DBENMSER.RMMRT(R0)
R
2508
;STORE RMCS1 AT SBDDAT
RMCS1(RO) , SBDDAT

EMT

4692 043220

MOV
MOV
MOV
DEC
BNE
MOV

MOV
CLR

4684 043174 010037 001136
4685 043200 005037 001140
% 043204

MOV

BIC

062737 1 970% 00114
4,682 043166 001405

;LOAD RMMR1

#DMD 'MUR 'DBEN'MSER,RMMR1(R0)

4721 04335 06270% 000002
472; 043356 00571
4723 043360 100407

001142
001142

515s:

001142
001136

MOV
BIC
MOV
BIS
CMP
BEQ
MOV
ADD
EMT
BR

;STORE RMMR2 AT $BDDAT
RMMR2 (RO) , SBDDAT
#RGA'RQB! TST,SBDDAT
., $GDDAT
(R2)
;:OR CYLINDER ADDRESS IN
R3,$GDDAT
SGDDAT,$BDDAT :COMPARE EXPECTED AND RECEIVED
3208
*BRANCH IF TAG BUS OK
RO, $BDADR
, SBDADR
#RMMR2
56
308
g

-ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE

$20s:

ADD
ST
BMI

#2.R2
m%)
3308

:EXIT IF ENTRY NEGATIVE

b g

DSKLS PT1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE 13-97
RM80
CZRNBAO
SEEK TEST
T113

K15

SEQ 0193

SEEK
T

;STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION
(RO)
#DMD ! DBEN ! MUR ! MOV ! DBCK ,RMMR1
MOV

832

LOAD
:LOAD anfin

RMMR1

o888

igs:EAr TAG BUS TEST FOR EACH PRIME CYLINDER, I.E., 1,2.4....

3408:

BHIS
BR
BR

3408
3008
5008

002000

CMP

R3,41024.

;SHIFT TO NEXT CYLINDER
:EXIT IF WAS DONE
STEST NEXT CYLINDER
:JUMP OVER TABLE

N TN
S

zsegLs OF TAG BUS CONTROL AND BIT VALUES

FEEEEE

4753
4754 043446
4755
4756 043450
4757
4758

3158

B8R

"WORD
.sggg

"WORD

FRRR

KRR
FRERR
NSRS

4731 043400

oono'oeeu'nua'noc.RMMRT (RO)

MOV

NN
SNNY
&
>
o

4724
4725

:CONTROL BITS ENABLED, BIT 6 ON

TAG!CC

;TAG COMES ON

"WORD
"WORD
"WORD
"WORD
"WORD
WORD
"WORD

TAG!CC
TAG!CC
TAG!CC
TAGICC
TAG!CC
CC
CC

1777

;CONTROL BITS DISABLED

JWORD

:END OF TABLE

WORD

177777

:BUS BITS AT HIGH IMPEDANCE STATE

1777
1777
EE

:TAG GOES OFF

:END OF TEST

5008 :

ttttttttttttttttttttttttttlilttttttt.ittttttlttttttti.tttt'tt'!

SRTEST 114

SEARCH TEST

RREJRRR
RRRRRRR
SRELES

?t;;ttttttttt'tttttttt'tttttt.tttttt.ttttttitQ.tttiitttttttttttt

§T114:

sggps
MOV

MOV
MOV
MOV

001226

:SCOPE CALL
#STACK, SP

$BASE ,RO
TSTQUE ,R1
#114,$TESTN

:LOAD THE STACK POINTER

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

sVERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION
JSR
BR
EMT
JMP

PC,SETWV

108

;GO SET VOLUME VALID

:BRANCH TO 108 IF NO ERROR

3308

ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

4768 043512

1os

DRESS,

AND LOAD SEARCH C OMMAND

L15

CZRNBAO RMB0 DggLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-98

SEARCH TEST

4769 043515
4770 0435
4771 043526
4772 043534
4773 043542
g;g 043550

81 760
1 728
012760
012760
012760
012760

041001
000000
000000
000000
000000
000031

MOV
MOV
MOV
MOV
MOV
MOV

000024
oogg
0000
000014
000042
000000

m15

SEQ 0194

! MUR | DBEN, RMMR1 (RO) :LOAD RMMR
#DMD
LOAD RMDA
#0,RMDA (RO)
RMDC
.LOAD
#0.RMDC (RO)
RMER1
.I.OAD
(RO)
#0_RMER1
RMER2
:LOAD
#0 RMER2(RO)
;LOAD RMCS1
CST1(RO)
#SEARCH'GO,RM

4776

:STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS)

4778 0435

208:

4777 043556 012702 000002
043562

012760

141001

000024

779 043570 012760 041001 000024
005302
gg} 043600 001370

4784 043602
4785 043610
4,786 043614
043614
4787 043622
4788 043630
2;33 043632

012760
012702
012760
012760
005302
001370

040007 000024
000002
140001 000024
040001 000024

4791

4792 043634 016037 000014 001142
4793 043642

042737

157777

308:

“°°4.301 043674

012737

043702

001142

004737

054732

4802
4803 043702
4804 043702

001124

4810 043716
4811 omg:.
4812 043732
4813 043740
4814 043746

012760
012760
012760
012760
012760

041001
000000
000000
000000
000000

000024
000006
000034
000014
000042

23}3 %;gg 012702 000003
141001

:LOAD RMMR1
! DBEN, RMMR1 (RO)
#DMD
#2,R2
:LOAD RMMR1
BCK ,RMMR1 (RO)
! DBEN !
#DMD
:LOAD RMMR1
| DBEN .RMMR1 (RO)
#DMD
R2
308

MOV

RMER1 (RO) , saow

BNE
MOV
MOV

ADD

408
#OPI, scom
RO, $BDA
#RMER1, samn

MOV

#50$, SLPERR

BIC

EMT

40$:

JSR.

4817

012760

MOV
MOV
MOV
MOV
DEC
BNE

BR
EMT
JMP

zg}g 043754 012760 000031 000000

4820 043766

:LOAD RMMR1

! MUR i DBEN.RMMRT (RO) ;LOAD RMMR1
#DMD
R2
208

;STORE RMER1 AT $BDDAT

#~COPI,$BODAT

257

:CHANGE LOOP ON ERROR ADDRESS

-VERIFY THAT SEARCH ABORTS DURING EXECUTION
§0s:

043706 000403
043710 104000
23002 043712 000137 0455644

4807
4808
4809 043716

#DMD 'MUR 'DBEN'!DBCK ,RMMR1(R0)

:VERIFY THAT OPI IS SET

4797 043664 062737 000014 001136
2% 043672

MOV

:DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS)

4794 043650 001011
4795 043652 012737 020000 001140
4796 043660 010037 001136
104257

#2.R2

MOV
DEC
BNE

4780 043576

4783

MOV

4821 043774 012760 041001 000024

608
3308

;GO SET VOLUME VALID

*BRANCH TO 60$ IF NO ERROR

:ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
:ADDRESS, AND LOAD SEARCH COMMAND
60$:

MOV

'MUR ' DBEN,RMMR1(R0) :LOAD RMMR1
#DMD
#0,RMDA (RO)
:LOAD RMDA
#0_RMDC (RO)
*LOAD RMDC
*LOAD RMER1
oo nnsm(no)
ER2(RO)
:LOAD RMER2
RMCS1

MOV

#3.R2

MOV

#DMD iMUR i DBEN.RMMRT (RO) ;LOAD RMMR1

MOV
MOV
MOV
MOV
MOV

asémcu'eo RMCST1(RO)

;LOAD

:STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS)

000024

PC,SETW

MOV

#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)

:LOAD RMMR1

—_TOTMMOMDERT R =~ITOMMOMNDERT R =~ITOMMONDE BrRe~=IOT"TMOMDERT NI OMMMOND

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

0033%

012760 041101 000024

4831 044026

012760 141101 000024
012760 041101 000024
00530
042737

177776

104260

#DMD ! MUR ! DBEN ! MDF , RMMR1 (RO)

MOV

:LOAD RMMR1

#2.R2

ane

MOV

MoV
MOV
DEC

:LOAD RMMR1
#DMD ' MUR ! DBEN ' MDF ! DBCK ,RMMR1 (RO)
RMMR1
:LOAD
#DMD ! MUR i DBEN | MDF ,RMMR (R0)
R2

BIC

rgso.saom

MOV

RO, $BDADR

EMT

260

808
O)
, SBDDAT
RMCS1(R

BNE
MOV

00114

BEQ

010037 001136
005037

:SET DRIVE FAULT TO CAUSE ABORT CONDITION

00137
016037 000000 oomg
001405

DEC
R

:STEP 2 CLOCKS AND VERIFY GO IS RESET

012702 000002

020

SEQ 0195

$SGDDAT

CLR

001140

:STORE RMCS1 AT $BDDAT

:(THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE TESTED
;DURING DATA COMMAND TESTS)

012737

044076

001124

#1008 ,SLPERR

MOV

90S:

;CHANGE LOOP ON ERROR ADDRESS

5552!" OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR

004737 054732
000403
104000
000137 045544

;60 SET VOLUME VALID
*BRANCH TO 1108 IF NO ERROR

PC,SETWV
1108

BR
EMT
JMP

3308

:ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
i?goqess.

So
ORSoon

KRERRR

12760
015760
012760
012760
012760

RERRER
Do am——

833$8$§
aSonSSo388ghesE

812760 041001 000024

000000
000000
000000
000000
000031

000006
000034
000014
000042
000000

012760 141001 oooosl.
012760 041001 000024
ooss%
0013

o1go§7 029914 881145

19937
013737

MoV

MOV
MOV
MOV
MOV
MOV

#DMD 'MUR ' DBEN,RMMR1 (RO) :LOAD RMMR1

#0,RMDA (RO)
:LOAD RMDA
:LOAD RMDC
#0_RMDC (RO)
:LOAD RMER1
#O.RMER1(RO)
:LOAD RMER2
#0 RMER2(RO)
;LOAD RMCS1
#SEARCH'GO,RMCS1(RO)
CER

012702 000023

331517 157777

AND LOAD " SEARCH COMMAND

00114

20001e 00113
0000 881143

:STEP THE COMMAND SEQUEN
013..512 ‘
MOV
-

Moy
MOV
DEC
BNE

:LOAD RMMR1
#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)
#DMD iMUR i DBEN.RMMRT (RO) ;LOAD RMMR1
as

1208

:VERIFY THAT OPI IS SET

MOV

RMER1 (RO) ,$8DDAT

o
MOV

ARAERY SBDADR
#OP] ,SGDDAT

BIC

#-COPI,$BODAT

:STORE RMER1 AT $BDDAT

A_A_A_A__A&__A__A_A_8_8
8 8 .B.Bd
Bl od
i

N 15

FREmZIOMMOMNDEZRT
R =~ITOMTMONDEZN

S'T"Egtpn MACRO V04.00 14=JAN=-82 16:33:00 PAGE 13-100

CZR'OAO RM80 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 13-101
T4

104261

'zg;g 044242

012737

4881
t.asg 044250
044250

044250

1308:

001124

004737

041401
000000
000000
000000
000000
000031

012702

000021

044334

012760

141401

4900 044350
288} 044352

005302
001370

4894 044322
4895
4,896
4897 044330

4898 044334

MOV

#1508 ,SLPERR

JSR

054732

012760
012760
012760
01%760
012760
012760

4,889 044 94
4890 044272
1 824
044306
4892
4893 044314

261
;CHANGE LOOP ON ERROR ADDRESS

;VERIFY ATA SETS IF DRIVE COMPLETES SEARCH (ON CYLINDER AND

BR
EMT
JMP

PC,SETVV

1608
3308

;60 SET VOLUME VALID

*BRANCH TO 1608 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

l.sag

488
4888 044264

EMT

CTOR COMPARE SETS)
gE
i

000403
4256 104000
2334; 044260 000137 045544

000024
000006
000034
000014
000042
000000

*ADLRESS, AND LOAD SEARCH COMMAND
160s:

MOV
MOV
MOV
MOV
MOV
MOV

;LOAD RMMR1
#DMD ! MUR ! DBEN 'MOC , m1 mm
;LOAD RMD.
#0,RMDA (RO)
*LOAD ar:nc
#0.RMDC (RO)
.I.OAD RMER1
"0,msmao)
0AD RMER2
#0_RMER2 (RO)
;LOAD RMCS1
#SEARCH'!GO, nncsuao:

:STEP COMMAND SEOU;NCER TC FIRST ON LATCH TEST (17 CLOCKS)

000024

1708:

MoV

M7..R2

Mov

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

DEC
BNE

R2
1708

MoV

4899 U446342 012760 041401 000024

#DMD ! MUR i DBEN MOC ,RMMR (RO)

;LOAD RMMR1

:LOAD RMMR1

;DROP ON CYLINDER TO RESET LATCH,AND RAISE INDEX PULSE

4903

4904

2?’82 044354 012760 041005
4907

4908 044362

4909
4910

4911 044370
4912 044374

4913

SEQ 0196

SEARCH TEST

ll:g;? 044240

4883

B 16

044374

4914 0464402
4915 044410

23}9 044412

012760

051401

012702

000002

012760

151401

000024
000024

Mov

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

;LOAD RMMR1

sRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT
C MSEN,RMMR1 (RO)
!
#DMD !MUR ! DBEN!MO
MoV

;LOAD RMMR1

;STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS)

000024

180$:

012760 051401 000024
00530

MoV

#2,R2

#DMD !MUR ! DBEN ! MOC !MSEN!DBCK .RMMR1(RO)

MoV

#DMD ! MUR i DBEN iMOC i MSEN,RMMR (RO)

BNE

1808

DEC

00137

;LOAD RMMR1

:LOAD RMMR1

FngEESEUOR COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE

4918

4920 044414

012760 05140; 000024

4924
2352 %2226

51 044422 012760 051443

000024

232 064430 012760 051403 000024
012702

000003

0000%6
151401
012760
“%
044
000024
051401
012760
4927 044450
4928 044456

;7O SET FORMAT CHANGE FLOP

005302

MoV

MOV

MoV

ODHD'NR'MC'DBEN'HSEN'HSC'M‘I (RO)

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

sCLOCK SEQUENCER TO SEY ATA (3 CLO KS)
= CLOCK COUNT
#3.R
Mov
1858

MoV
T MOV
DEC

LOAD RMMR1

#DMD 'MUR ! MOC ! DBEN ! MSEN!MSC!MS ,RMMR1 (RO) .I.OAD RMMR1

RMMR1(RO)
EN!HSEN!DBCK
ODHD!NR!HOC!DB
RMMRT (RO)
ngD!WR iMOC i DBEN!MSEN,

:LOAD RMMR1

;LOAD RMMR1

:LOAD RMMR1

SEQ 0197

%?NBAO gflOODSK%? PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 13-102
23%3 044460

4938 04452
4939
4940 044522
4941
4942
4943 044530
4944 044530
044534
044536
4945 044540
4946
4947
4948
4949 044544

4955 044602
4956
4957
4958 044610
4959 044614

BNE

001370

185$

:VERIFY ATA IS SET

RMDS (RO) saooAr ;STORE RMDS AT $BDDAT

879975

00114
00114

100000
00113
00001

001140

MOV

#ATA, SGDDAT

001136

ADD
EMT

onnos.ssvon
262

044530

001124

BIC
MOV

1908:

MOV

O;SATA,SBDDA
1

RO, SS8DADR

#2008,SLPERR

:CHANGE LOOP ON ERROR ADDRESS

‘VE?IFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP

200

054732

JSR

EMT

JMP

0455644

PC,SETWV

2108

;G0 SET VOLUME VALID

*BRANCH TO 2108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR

2?82RESS

MoV

041401
000000
000000
000000
000000
000031
012702

MoV
MoV
MOV
MoV
MoV

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

:LOAD RMMR1

;LOAD RMDA
#0,RMDA(RO)
#0.RMDC (RO)
:LOAD RMDC
:LOAD RMER1
#0.RMER1 (RO)
#0,RMER?2 (i J)
;LOAD RMER2
:LOAD RMCS1
#SEARCH!GO,RMCS1(RO)

2STEP CO:%ANO SE%?;NCE; TO FIRST ON LATCH TEST (17 CLOCKS)

000021
041401

000024
000024

041001

000024

141401

AND LOAD SEARCH C OMMAND

2208 :

MOV

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

BNE

zgos

ggg

:nnosuun!oaeuznoc.nnnni(ao)

;LOAD RMMR1

:LOAD RMMR1

;:DROP ou CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0
#DMD'MUR ! DBEN,RMMRT (R0) ;LOAD RMMR1
;STEP co:sano seogeucen THROUGH WAIT LOOP (7 CLOCKS)

000007
141001
041001

000054
000024

190978

00114
00114

8011)

001140

2308:

MOV

#DMD 'MUR ' DBEN!DBCK ,RMMR1(RO)

BNE

zgos

ggg

;VERIFY THAT GO IS STILL SET
RMCS1(RO) ,SBDDAT
MOV

gag

MOV

:LOAD RMMR1

:onosnuazoaen.nnna1(a0):LOAD RMMR1

l‘fGO.SBDfiAT

24L$
SGDDAT
DSO

;STORE RMCS1 AT $BDDAT

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

SEQ 0198

SEARCH TEST

225; SEEK INCOMPLETE ERROR

#DMD!MUR!DBEN!MSER!DBCK RMMR1(RO)

MOV

MOV
DEC
BNE

:nno!nun;oeeu!nssn.nnnni(RO)
2508

BIC

#4CG0,$BDDAT
2608
RO, $BDADR

BEQ
MOV

cfioAT

CLR

001124

2608:

:LOAD RMMR1

:LOAD RMAR1

;STORE RMCS1 AT SBDDAT

RMCS1(RO) , SBDDAT

MOV

001136
001140
045010

#3.R2

MOV

000024
000024

)

000000
177776

;LOAD RMMR1

:STEP COMMAND SEQgENCER AND VERIFY GO RESETS (3 CLOCKS)

2508

000003
141501
041201

#DMD ! MUR ! DBEN!MSER,RMMR1 (RO)

MoV

000024

s
NN

012702

041201

012760

4984
4935 0447%0
044720

16
n

D16

EMT

264

MoV

#265$,SLPERR

;CHANGE LOOP ON ERROR ADDRESS

ézgggrv THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP
045014
045016
5005 045020
5006
5007
5008
5009 065054
5010 045024
5011 045032
5012 045040
5013 045046
5014 045054
5015 045062
5016
5017
5018 045070
5019 045074
045074
5020 045105
5021 04511
5022 045112
502
5024
5025
5
5028
5029 045122
30

054732

045544

JSR
ggt

PC,SETVV
2708

JMP

3308

;60 SET VOLUME VALID
:BRANCH TO 2708 IF NO ERROR

;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR
'AD%RESS.

000024

270

AND LOAD SEARCH COMMAND

MOV

#DMD ! MUR ! DBEN !MOC ,RMMR1 (RO)
;LOAD RMDA
*LOAD RMDC

MOV
MOV

#0,RMDA (RO)
#0_RMDC (RO)

MoV

ISEARCH'GO RMCS1(RO)

MoV
MOV

#0-RMER1 (RO)
RMER2(R0O)

:LOAD RMMR1

:LOAD RMER1
;LOAD RMER2

:LOAD RMCS1

sSTEP. CO:SAND SEg?;NCEg TO FIRST ON LATCH TEST (17 CLOCKS)
000024
000024

00
00137

2758:

MOV

ggg
BNE

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

‘ono!nun!oaenanoc.nnnnitRO)
z;ss

:LOAD RMMR1

:DROP ON CYLINDER TO aeser LATCH, AND RAISE INDEX PULSE
012760

041005

000024

012760

051401

000024

012702

000002

012760
012760

151401
051401

*TO SET FORMAT CHANGE FLOP

MOV

#DMD 'MUR ! DBEN!MI,RMMR1 (RO)

:LOAD RMMR1

;RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT
C RMMR1 (R0)
' MSEN,
#DMD' MUR! DBEN!MO
MoV

:LOAD RMMR1

;STEP CO:SAND SEOgENCER TO SEARCH ENABLE (2 CLOCKS)
000024
000024

280$:

MOV

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

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

;LOAD RMMR1

:LOAD RMMR1

RNBAO RM80 D S‘#Eg;’" MACRO V04.00 14=JAN=-82 16:33:00 PAGE 13-104
16

E 16

SEQ 0199

0053

3037 843132 0013%
5150

5039
5040 045154

000004
oogo;a
173777
151401
051401

012702
3061 045160
00114
04% 045160 013037
062737
00114
504 0651?6
001411
045174
5044
000024
5045 045176 012760
000024
012760
045204
504?
005302
5047 045212
5048 045214 001361
5049 045%16 000411
5050 045220 012737 004000 001140
5051 045226 010037 001136
5052 045232
5053 045240
5054
5055
5056 045242
045242
5057
5058
5059 045250
5060 045254
045254
5061 045262
5062 045270
5063 045272
5064 045274
5065 045302
5066 045310
5067 045312
5068 045320
5069 045324
5070
5071 045326
045334
5072
5073

5075 045340
045340
045344
045346
5077 045350
5078
5079
5080
5081 045352
045352
5082
5083 045360
5084 065393
5085 0453
5086 045400
5087 045406

062737

104265

000024

DEC
BNE

MOV
mov
BIC
BEQ
MOV
MOV
DEC
BNE
BR
MOV
MOV

;R2 = CLACK COUNT
#6,R
;STORE RMMR?T AT SBDDAT
RMMR1 (RO) , SBDDAT
#*CESRC, $BDDAT
.
BRANCH IF SEARCH NOY ENABLED
2828
#DMD ' MUR 'MOC ! DBEN 'MSEN! DBCK ,RMMRT (RO) ;LOAD RMMR1
*LOAD RMMR1
#DMD ! MUR i MOC | DBEN ! MSEN,RMMR1 (RO)
as
1$
83
#ESRC, SGDDAT
RO, SBDADR

zfos

:VERIFY THAT SEARCH SNABLE IS ON DURING SECTOR COMPARE LOOP

282%:

ADD

001136

EMT

#RMMR1, SBDADR

265

é‘s,g;.omvs FAULT TO CAUSE ABORT CONDITION

012760 051501 000024

mov

#DMD ' MUR ! DBEN'MOC 'MSEN'MDF ,RMMR1(R0)

;STEP 2 CLOCKS AND VERIFY GO IS RESET

012702 000002

012760 151501 000024
012760 051501 000024
005302

MOV

MoV
MOV
DEC

001370

BNE

:R2 = CLOCK COUNT

#2,R2

:LOAD RMMR1
#DMD ' MUR ! DBEN ' MOC ! MSEN ! MDF ! DBCK ,RMMR1 (R0)
RMMR1
:LOAD
.RMMRT(R0)
IMSENMDF
!MOC
DBEN
i
#DMD | MUR
R2

2858

MOV

001406
012737 000000 001140
010037 001136
104260

MOV
MOV

#0,$GDDAT
RO $BDADR

MOV
MoV

#3008, SLPERR
#1,R3

012737
012703

177776

045340
000001

BIC

001142

001124

BEQ

EMT

2908:

:STORE RMCS1 AT $BDDAT

RMCS1(RO) , $BDDAT

016037 000000 001142
042737

;LOAD RMMR1

#~CG0,$BDDAT

2908
60

;CHANGE LOOP ON ERROR ADDRESS
:INITIALIZE CYLINDER ADDRESS

55525" THE TAG BUS DURING SEARCH

004737 054732
000402
104000

000475

JSR
BR
EMT
BR

PC,SETW
3108

;60 SET VOLUME VALID
*BRANCH TO 3108 IF NO ERROR

3308

;ENABLE DEBUG CLOCK,

LOAD CYLINDER, TRACK AND SECTOR

i?ggnsss AND LOAD SEARCHh COMMAND

041401 000024
012760
00 000006
012760
010360 000034
012760 000000 000014
0 000042
012760
031 000000
012760

MOV
MOV
MOV
MOV
MOV
MOV

:LOAD RMMR1
#DMD ! MUR ! DBEN ! MOC ,RMMR1 (R0)
:LOAD RMDA
,RMDA(RO)
*LOAD RMDC
R3.RMDC (RO)
*LOAD RMER)
og.nnemmo»
:LOAD RMER2
#0 RMER2(RO)
;LOAD RMCS1
#SEARCH'GO,RMCST1(RO)

IS on N nr =0335 sosoeos3eese 38488 2
RGRSS BN YEERNRRRUN
REETEw

RM80 DS?E%TP" MACRO V04.00 14=JAN-82 16:33:00 PAGE 13-105

F 16

SEQ 0200

MOV

#4008 ,R2

:INITIALIZE TABLE POINTER

;HARDWARE ECO CHANGE TO THE PLA OF THE
MoV
3128:

ggg

MOV
gsg

F
&
(=]

MOV

:CS BOARD.

SCLOCK THE SEQUENCER THRU THE FIRST
9. COMMAND SEQUENCES TO ALLOW THE PROGRAM
STO RUN WITH OR WITHOUT THE ECO.
:LOAD RMMR1

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

:LOAD RMMR1
#DMD ! DBEN MUR {MOC , RMMR | (RO)
R2
;DONE
9. CLOCKS ?
31%8

#4508 ,R2

JNO !!

sINITIALIZE NEW TABLE POINTER

::Q..t..ttt'.fi.fi..tttQ"..t'.'..tfitt.t.‘.tttt..t.tt.t'..t..'.ttt.

8 88838
g5

;STORE RMMR2 AT SBDDAT

SBDDAT
RQB!
#ROA'ST,

BIS

R3,$GDDAT

;:OR CYLINDER ADDRESS IN

BEQ
MOV
ADD
EMT
BR

3208
RO, $BDADR
, SBDADR
#RMMR?
66
408

*BRANCH IF TAG BUS OK

CMP

001136

RMMR2 (RO) ,SBDDAT

BIC

MOV

NN
= —
SN

SERS

NN
= N =
SCDC"DirD
RIS
WWWWWWW
NNNNN
SENIIW

ERERRERRERR

MOV

. $GDDAT
(R2)

SGDDAT,SBODAT

:COMPARE EXPECTED AND RECEIVED

isngnce TO NEXT ENTRY IN TABLE-EXIT IF DONE
ADD

#2.R2

BMI

3308

000024
000024

&~
N

23
\fi;?fi

22,2

#9..R2

fll;;fl" TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3

(R2)

:EXIT IF ENTRY NEGATIVE

;STEP THSO‘clommo SEQUENCER AND REPEAT VERIFICATION

ggv

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

g?ggsoaensnua:noc.nnnni(RO)

:LOAD RMMR1

igs:sAr TAG BUS TEST FOR EACH PRIME CYLINDER, I.E., 1.2.4....

RRR|VYR

002000

EgU\
NSERRES
O

ASL
CMP

R3
R3,#1024.

:SHIFT TO NEXT CYLINDER

BR
BR

00$
00$

STEST NEXT CYLINDER
:JUMP OVER TABLE

BHIS

3408:

U“hU“hSpflV“fi
w

RRERRRRR

e e =l ek

wvivivivaiviu

::t."tt'tt.'fit'..ttt't'.'Q"t'....t...lt'..t"....t.'........t.t

b D be

b D )

ANONINININ)
b b d b e b d cd cd d

D b ) =D b b b = cd b b b b b

VTV A VI
AIVIVIVE iVTaiaIIAVW
i VIV

3408

;EXIT IF WAS DONE

uf)sgLE OF TAG BUS CONTROL AND BIT VALUES

‘3833

1777

;BUS BITS AT HIGH IMPEDANCE STATE

sCONTROL BITS ENABLED, BIT € ON

.
.WORD
.WORD
.WORD

1777
1777
1777
1777

WORD

+WORD

-l

gnmo RMB0 DSKLS PT1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE 13-106

G 16

SEQ 0201

SEARCH TEST

5145 gzssn 8 4000
4000
14.9 5
147

04560

148 045602
149 825604
150
gm 045610

4508:

024000
024000
024000
0 4099

s}g 045612 1777

2151.

155 045614

004000

.WORD
.WORD

TAG!CC
TAG!CC

LMORD
"WORD
"WORD
"WORD

TAG'CC
TAG!CC
TAG!CC
TAG!CC

:END TABLE HERE FOR HARDWARE ECO CHANGE

.WORD

:TAG GOES OFF

1777
1777
1777
1777

;CONTROL BITS DISABLED

:END OF TABLE

JWORD

001777
001777
001777
001777

"WORD
"WORD
"WORD
"WORD

g}m 045626

177777

WORD

5008 :

LRTEST 115
000004

045634
045640
045644
s 045650

o1§7
013700
013701
012737

000240

5167 045656 004737

045662 00040,
045664 104
g}gg 045666 000550
5170
5171 045670

s1;§ 045670
5173 045676
5174 045704
5175 045712
gm 045720

g}g? %g%
045740
s1a§ 5746
183
045754
}gg 5756
186

SEARCH TIMEOUT TEST

015760
012760
013760
012760
015760

t81115:
001100
001276
oomg
000115 001226
054732

041401
000000
000000
000000
000000

000024
000014
8338"2
34
000006

188 045766 012760 041401

NOP

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

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

JSR

PC,SETVV

;G0 SET VOLUME VALID

000024

108
908

*BRANCH TO 108 IF NO ERROR

emau.e DEBUG CLOCK AND LOAD SEARCH COMMAND
10s:

MOV
MOV
MOV
MOV
MOV

MOV

#DMD ! MUR ! DBEN !MOC ,RMMR1 <no>
#0,RMER1(RO) ~ ;LOAD RMER1
#O_RMER2(R0)
:LOAD RMER2
.LOAD RMDC
m“RMDC (RO)
RMDA (RO)
OAD RMDA

tsémcu-coRMCS1 (no)

:LOAD RMMR1

:LOAD RMCS1

+EXECUTE SEARCH TO TEST FOR ON LATCH RESET (17 CLOCKS)

012702 000021
b
012760 141401 000024
012760 041401 000024
00530
00137

gm 045760 012760 041001 880024

:SCOPE CALL

MOV
MOV
MOV
MOV
B8R
EMT
BR

s}% 045726 012760 000031 000000

5179

;END OF TEST

3333
23233234244373]
33333333
R 2333323222222 22223222333333333313333333332

045630

045632

ttttttttttt.tttttttttttttt*tttttttt'ttttttttttttttttttltttttttt

5165

045630

:START TABLE HERE FOR HARDWARE ECO CHANGE

JWORD

gwg 045616
157 045620
5158 045622
g;gg 045624

21‘2% 045630

:TAG COMES ON

MOV
MoV
MOV
DEC
BNE

M7..R2
:LOAD RMMR1
! DBCK , RMMR1 (RO)
#DMD 'MUR ! DBEN'MOC
:LOAD RMMR1
#DMD ! MUR | DBEN i MOC .RMMR1 (RO)
as
20$
-

;DROP ON CYLINDER TO RESET mcu mss ON CYLINDER

MOV

#DMD!MUR{ DBEN RMAR

:LOAD RMMR1
) RMMR1
i MUR i DBENMOC, mm(k50»
#DMD

i‘fifl

012702
000024
000024

127

oired

MOV
ggvc:

BNE

151401

051401
0000;6
173777

'MSEN,RMMRT (RO)
#DMD ! DBEN ' MUR 'MOC ! DBCK
»noa 1DBEN | MUR | MOC IMSEN,RMMRT (RO)

353

;LOAD RMMR1
:LOAD RMMR1

50$:

000024

STEP

MOV
MOV
MOV
MOV
BIC

#5.R2
#DMD ! DBEN ' MUR 'MOC ! DBCK 'MSEN ,RMMRT (RO) ;LOAD RMMR1
:LOAD RMMR1
#DMD ! DBEN ! MUR ! MOC | MSEN,RMMR1 (RO)
:STORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBDDAT
#*CESRC,$BDDAT

DEC

BEQ

001136

BNE
BR
MOV
MOV
ADD
EMT
BR

508

;BRANCH IF SEARCH NOT ENABLED

408
60$
#ESRC,SGODAT
RO, SBDADR
#RMMR1, SBDADR

;SETUP ERROR MSG

061401
070000
133406

801354

~ JUIJIEI/WN

38'}“’ *MSEN'' TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI TO SET.

014
157777

00114
00114

001534
133360
020000
001136
000014

133330

001140
001136

MOV
MOV
JSR
MOV
BIC
BNE
ST
BNE
JSR
MOV
MOV
ADD
EMT

80S$:

JSR

:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN,RMMR1 (R0)
:SET WATCHDOG TIMER VALUE
#70000,WATCH
*START THE CLOCK
PC,acLOCK
:STORE RMER1 AT $BDDAT
, SBDDAT
RMER1 (RO
#~COP1,SBODAT
80$
WATCH
70$
:STOP THE CLOCK
PC,aSTOPCL
:SETUP ERROR MSG
#0P1,SGDDAT
RO, SBDADR
#RMER1, SBDADR
67

PC,aSTOPCL

90$:

b=t

=33§88823

VY
£5NINIOND
uwgu—uu Joio

8 888

: B35

R=8

SEQ 0202

:THE COMMAND SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP.
*THROUGH THE LOOP AND VERIFY SEARCH IS ENASLED.

000005

ONS SO

NSNSSRVERE S8R

04617,

5227 8262

308:

00137

Ssessiet
sgesgessrs
R

N33
& 3

XK
8 8

NN
'

5
5226

H 16

- STEP COHHOND SEggEgSER TO SECTOR COMPARE LOOP (2 CLOCKS)

\¥, ]

ViV | v

—

-4
sP

00000000g8883X RS 8283 R
.&2
25
SEREREERERES RRERR
2§Eil S38s R i
S

?e§¥o V04.00 14~JAN-82 16:33:00 PAGE 13-107

523
5233

:STOP THE CLOCK
:END OF TEST

33222222 2222222222223 3222223333032 222

S*TEST 116

DATA COMMAND TESTS (1)

i iddididiiiitidds

KRR
ONONON
N"UNJG

b =l k)

~noo

3
i dididiiiidts
2203
it iidii
3 22222222222 223223 23232223

fsr116:
001100

sSCOPE CALL

SCOPE

NOP

MOV

#STACK,SP

sLOAD THE STACK POINTER

CZRNBAO RM8O DSKLS PT1 HACRO V04.00 14=JAN-82 16:33:00 PAGE 13-108
T116

DATA COMMAND TESTS(1)

JSR

004737 054732
5239 046 33
%2 00040

BR
EMT
B8R

104

ggg 046246 000471
gszg Saeet

§242 046250
5243 046256
5244 046264
gzas 046272
g 046300

012760
012760
012760
012760
012760

041401
000000
000000
000000
000000

$BASE RO
,R1
TSTQUE
#116,$TESTN

SEQ 0203

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

:VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY

ggss

046246

MOV
MOV
MOV

81 881 276
1466
1 721
012737 000116 001226

116

000024
000014
000042
000006
000034

PC,SETWV
108§
408

VALID
;60 SET VOLUME
TO 10$ IF NO ERROR
“BRANCH

snme DEBUG CLOCK AND LOAD READ COMMAND

;LOAD RMMR1

MOV
MOV
MOV
MOV
MOV

! MUR ! MOC :DBEN,, RMMR1 (RO)
#DMD
#0,RMER1(RO) " ;LOAD RMER
:LOAD RMER
#0_RMER2(R0)
:LOAD RMDA
20, nm(ao)
:LOAD RMDC
(RO)
#0_RMDC

MOV
- MOV

:LOAD RMMR1
#DMD ! MUR ' MOC ! DBEN! DBCK ,RMMR1 (RO)
:LOAD RMMR1
#DMD ! MUR | MOC { DBEN,RMMR1 (RO)
R2
208

:LOAD RMCS1
#RD !GO, RMCS1(RO)’
MOV
§227 046306 012760 000071 000000
;STEP COMMAND seogencsn TO UNIT READY TEST (3 CLOCKS)
524,
#3.R2
MOV
5250 046314 012702 000003
5251 046320

046320 012760 141401 000024
szsg 046326 012760 041401 000024
005302
5253 046334
§‘3§'s' 046336 001370

208:

DEC

BNE

5256

:DROP UNIT READY

gggg %2%'5‘3
046352
5262 046360
5263 046366
5264 046370
5265 046372
5266 046400
5267 046406
5268 046410
5269 046416
;5
szro

ggg; 046340 012760 040401 000024
012702
012760
012760
005302
00137
016037
042737
001011
012737
010037
2737

000002
140401 000024
040401 000024
000014
157777
020000
001136
000014

MOV

:STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS)

001142
001142
001140
001136

g8264 104270
5 ;% 046432 012737 046440 001124 40S$:
046440
046440
5277
046444
ot.w.s
gg;g 046450
5280

5281 046452

MOV
MOV
MOV
DEC
BNE
MOV
BIC
BNE
MOV
MOV
ADD

EMT
MOV

#2.R2
:LOAD RMMR1
#DMD 'MOC 'DBEN!DBCK ,RMMR1(R0)
#DMD ! MOC i DBEN,mi (RO) ;LOAD RMMR1
R2
308
:STORE RMER1 AT $BDDAT
)
, SBDDAT
RMER1(RO
#~COPI,$BODAT
408
#OP1,$GDDAT
RO, S8DADR
#RMER1, $BDADR

270
#508,SLPERR

:CHANGE LOOP ON ERROR TEST

-VERIFY DATA COMMAND ABORTS AT LOCATION 129

5275

5276

#DMD 'MOC ' DBEN,RMMR1 (R0) ;LOAD RMMR1

004737

00040,
104
000576

054732

50s:

JSR

BR
EMT
B8R

PC,SETW

608
1508

;60 ser voLuneVALID

*BRANCH TO 60$ IF NO ERROR

ésgeBLE DEBUG CLOCK AND LOAD READ COMMAND

C%R'BAO RM80 DSKLS PT1 MACR
e
DATA COMMAND TESTS

NINNNN

bb
b
D
b
-

0
0

60
60
60

SN
SSRZ S

012760

000024

*LOAD RMDC

:LOAD RMCS1

#4 ,R2

#DMD ! MUR | MOC i DBEN, RMMR1 (RO)

R2
708

;LOAD RMMR1
: AD RMMR1
;LO

sSET DEVICE FAULT TO CAUSE ABORT CONDITION
MOV

141501
041501

#DMD !MUR 'MOC ! DBEN!MDF ,RMMR1(R0O) ;LOAD RMMR1

#1,R2

#DMD ! MUR ! MOC ! DBEN ! MDF ! DBCK ,RMMR1 (R0)

000024
000024

;LOAD RMMR1

:gHD!MR!MC!DBEN!HDF.mi(RO) :LOAD RMMR1
80s

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO
sFORCE BngLOCK§1AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
MAXIMUM NUMBER OF BIT CLOCKS

000020

#DMD ! MUR ! MOC ! DBEN ! MDF !MCLK .RMMR1(R0)

045501
041501

RMMR1(RO) , SBDDAT

19097

#~CEBL ,$BDDAT

90$
R2

020000
001136
000024

;LOAD RMMR1

#DMD | MUR i MOC | DBEN MDF ,RMMR1 (R0) ;LOAD RMAR1

85$

#EBL
, SGDDAT
RO,$BDADR
#RMMR1,$BDADR

001140
001136

;STORE RMMR1 AT SBDDAT

sBRANCH IF EBL IS SET

sCONTINUE BIT CLOCKS IF COUNT NOT 0

27
1508

*LOAD RMDA

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

MoV

(S’IEP THE SEQUENCER THROUGH ITS TEST FOR EBL (2 CLOCKS)

£ SR

#2 ,R2

#DMD ! MUR ! MOC ! DBEN ! MDF ! DBCK ,RMMR1 (RO)

000024
000024

§
&

;LOAD RMER2

;STEP THE SEQUENCER THROUGH THE TEST FOR ABORT (1 CLOCK)

012702

#RD!GO,RMCS1(RO)
MoV

000024
000024

012702

RMDC (RO)

:LOAD RMMR1

;STEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS)

012760
012760
00530
00137

012760
012760
005302
001370

*RMDA (RO)

lo
OOOOg
000000

012702

B%§?

ONONON

NS
W

OBICNE WSO

SGRRGR

ViAWY AWAAWIVAVWAWIWV VIVIVAVIWAWVIVIVAVIWVAVAIVA - iAW VIV | Vi
NN
W

JRMER2(RO)

000000
000071

SEQ 0204

#DMD ! MUR ! MOC ! DBEN, RMMR1 (RO)
#0,RMER1(RO)
:;LOAD RMER1

gum

]
0

VIV

§§S§S§SS 8§§23SRS 93 SIEGRSR
ARYSl et
R
RR
KRR
R
RRRR
33 RRRR R 2R
fozs 3 EEzes f5ees
&
\IO\IQU!&

ROROOR NN

i
8 |

?1¥06.00 14=JAN-82 16:33:00 PAGE 13-109 .

;LOAD RMMR1

#DMD | MUR i MOC i DBEN MDF ,RMMR1 (R0) ;LOAD RMMR1

fos

sABORT EBL SHOULD NOW B E INACTIVE - FORCE BIT CLOCK USING THE
000020

sMAINTENANCE REGISTER TO RESET EBL (16 BIT CLOCKS)
MOV

#16..R2

sMAXIMUM NUMBER OF BIT CLOCKS

CZRNBAO RM80 DSKLS PT1 MACRO
e
DATA COMMAND TESTS (

5501
1501

732

FEEEGEGY
WA=
O VM~
W
S ‘d&‘d‘d%fifig&‘f
®

671

1¥04.00 14=JAN-82 16:33:00 PAGE 13-110

80603

046674

BNE

1108

~
o

e
e

———Y

mov
BIC

RMMR1 (RO) , SBDDAT
L
, SBODAT
#~CEB

MOV
ADD
EMT
BR

RO, SBDADR
#RMMR1, SBDADR
273
1508

BEQ
CLR

;ISSUE 16 BIT CLOCKS THEN TEST

1308
$GDDAT

;STORE RMMR1 AT $BDDAT
:BRANCH IF EBL IS RESET

054732

#DMD ! MUR ! MOC ! DBEN ! MDF ! DBCK ,RMMR1 (R0)

DEC

MOV

001124

1508:

1408

RMCS1(RO) , SBDDAT

BIC
BEQ
CLR
MOV

#~CG0,SBDDAT
1508
$GDDAT
RO, $BDADR

MoV

#2008, SLPERR

EMT

;LOAD RMMR1

‘gflD!HUR!HOC!DBEN!HDF.RHHRi(RO) :LOAD RMMR1

:STORE RMCS1 AT SBDDAT

274

;CHANGE LOOP ON ERROR ADDRESS

JSR
ggr

PC,SETWV
2108

BR.

2508

;G0 SET VOLUME VALID
*BRANCH TO 2108 IF NO ERROR

NEITN $

SRRERR 2

:ENABLE DEBUG CLOCK AND LOAD DATA COMMAND
041401
000000
000
000000
000071

000005
141401
041401

RRRSER

MoV

55555" SEQUENCER BRANCHES TO SEEK WHEN RUN AND GO FLOP SETS

b
—

#4,R2

BNE

001140
001136
047054

mov

MoV

000000
177776

1408:

141501
041501

$ EEEEREESE AR
2gee® R BRRRRRERR
=
i
5 v
SRRERR

001136

000004

Q\h\h\fl
&8 3§ EEeEgues

:LOAD RMMR1
F ,RMMR1(RO)
'MCLK
#DMD ' MUR 'MOC ! DBEN'MD
RMMR1
:LOAD
ognosnuasnocsoeenmor.mimo:

i§5§§" GO RESETS WITHIN & CLOCK CYCLES

W VIV

WWWWW

ViV ViV

W
00
W

001140
001136
000024

SEQ 0205

igsggrv EBL IS NOW RESET
o

AWV

gurs
7 18905
04
046674

MOV
MOV
DEC

0467

00137

MoV
MoV
MoV

MoV

#DMD ! MUR ! MOC ! DBEN ,RMMR1 (R0)
:LOAD RMER1
#0,RMER1(RO)
#0,RMER2 (RO)
:LOAD RMER?2
sLOAD RMDA
#0,RMDA(RO)

MOV

#RD!GO,RMCS1(RO)

MoV

#5,R2

MOV

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

BNE

2503

RMDC (RO)

;LOAD RMMR1

:LOAD RMDC

:LOAD RMCS1

}HOVE SEQUENCER TO TEST FOR RUN AND GO AT LOCATION 130 (5 CLOCKS)
2208:

ggg

gDHD!HUR!HOC!DBEN.Rflflflf(RO)

;LOAD RMMR1

:LOAD RMMR1

ZRNBAO RMB0 DSKLS PT1 mcno V04.00 14=JAN=82 16:33:00 PAGE 13-111
116

L 16

SEQ 0206

DATA COMMAND TESTS (1)

5388

s§a9 047156
5390 047164
§391 047172
£ 9§ 047376
5§39 ol.rgoz
5394 047206
sgos 04.7%14.
gsgg 047216

013937
042737
00191;
012737
010037
062737
104275
000435

5399 047220

ms
00114

040000

001140

:VERIFY RUN AND GO IS SET

MOV
BIC
BNE
MOV
MOV
ADD
EMT
B8R

001136
000024 001136

:STORE RMMR1 AT $BDDAT

RMMR1 (RO) , SBDDAT
#*CRG,SBDDAT
2308
#RG,SGDDAT
RO, $BDADR
#RMMR1, $BDADR
75
508

-VERIFY THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE

5308

5400 047220
5401 047224
047224
5402 047232
5403 047240
5404 047242
s:.gg 047244

°§99§"
137777

012702
012760
012760
005302
001370
016037

000001
141401 000024
041401 000024

000040 001142

5407

2308:
2408:

#.R2
:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN ! DBCK ,RMMR1 (RO)
RMMR1
:LOAD
(R0)
1
DBEN,RMMR
!
#DMD ! MUR i MOC
R2
2408
;STORE RMMR2 AT $BDDAT
RMMR2 (RO) , SBDDAT

BIC

B!
TAG, SBDDAT
#ROA!RQ

23 ' 3233233233223 2223222232322323323333333313331 3233333333333 33233 322233

5408
5409

MOV
MOV
MOV
DEC
BNE
MOV

5410
552}5

§413 047252

5414

042737

162000

BIC

001142

5416

5417 047260 012737 004000 001140
5418 047266 023737 001140 001142
5419 047274 001406
5420 047276 010037 001136
5421 047302
gtz‘g 047310

062737
104276

000040

001136

5624 047312

012737

047326

001124

004737

054732

012760
012760
012760
012760
5438 047366 012760

041401
000000
000000
000000
000000

000402
104
000553

“OR WITHOUT THE ECO TO THE CS BOARD.
;HARDWARE ECO CHANGE CAUSES CC AND

SCH TO SET AT THE SAME TIME

#CC,SGDDAT
$GDDAT, SBDDAT
2508
RO, SBDADR

2508:

MOV

#2608,SLPERR

, SBDADR
#RMMR2
276

;CHANGE LOOP ON ERROR ADDRESS

;VERIFY DATA COMMAND ABORTS AT COMMAND SEQUENCER LOCATIONS 144, 145

000024
000014
000042
000006
000034

§2,3.3 047374 012760 000071 000000

5441

MOV
CMP
BEQ
MOV
ADD
EMT

55255 %;552 012702 000144
047330
047332
ssgg 047334
5432
5433 047336
5434 047336
5435 047344
5436 047352
5437 047360

TO ALLOW THE PROGRAM TO RUN WITH

23 tttttttttttt'ttttttitt'ttttttttttttttttttt.tttttttttttt'ttttttt

5(.15

5429 047324

#ROA'RQB'TAG!CH,$BDDAT

:THE FOLLOWING CODE WAS ADDED

MOV

#1464 ,R2

:INITIALIZE TEST LOCATION

JSR

PC,SETVV

;60 SET VOLUME VALID

MOV
MOV

DC (RO)
RMCS1(RO)’*LOAD RMDC:LOAD RMCS1
m’:'co

*BRANCH TO 2708 IF NO ERROR
2708
BR
EMT
3208
BR
-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND
2708:
:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN, mm (no)
MOV
R
;LOAD
#0.RMER1(RO)
MOV
:LOAD anenz
#0_RMER2(R0)
MOV
*LOAD RMDA
aonnomm
MOV
:WAIT FOR RUN AND GO TO SET

16:33:00 PAGE 13-112
14-JAN-82
V04.00
MACRO
PT1
DSKLS
RM80
CZRNBAO
(1)
TESTS
6
DATA COMMAND
5442 047605

5443 047414

012737
004777

001534

013937

00114
00114

17
001037

280%:

N ~N NN
OonNININ

W
=
W

——t
88
-3\

o
N

S ON) =

N N=NON
&H

N
N

-—

~N
~

(=1

R
~ § g3 3
¥

001140

041401

041501

BIC

#*CRG,SBLDAT

WATCH

2808
PC,aSTOPCL
#RG,SGDDAT

EMT
BR

575
208

JSR

;STORE RMMR1 AT $BDDAT

2905

BNE
JSR
MOV

POV

;STOP THE CLOCK

RO, $BDADR
#RMMR1, $BDADR
PC,aSTOPCL

:STOP THE CLOCK

000024
000024

000024

#6.R3

:SETUP CLOCK COUNY

CMP

galg R2

MOV

#7.R3

Mo
EE!

;LOAD RMMR1
#DMD ! MUR 'MOC ! DBEN! DBCK , RMMR1 (RO)
:LOAD RMMR1
ogno'nua'noc'oasu.RMMR1 (RO)

BNE

3008

BEQ

sSET DRIVE FAULT TO FORCE ABORT CONDITION
#DMD !MUR !MOC ! DBEN!MDF,RMMR1 (R0) ;LOAD RMMR1
MoV

;CLOCK SEQUENCER THROUGH TTS TEST FOR ABORT (1 CLOCK)

3058

000001
000024
000024

MOV

#1,R3

MoV

#DMD ! MUR ! MOC ! DBEN ! MDF ! DBCK . RMMR1(R0)

BNE

305%

;LOAD RMMR1

:gHD!HUR!HOC!DBEN!HDF.RHHRI(RO) ;LOAD RMMR1
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
sMAXIMUM NUMBER OF BIT CLOCKS
#16. .R2
MOV

012702
000024

012760

3068:

MOV

#DMD ' MUR ' MOC ! DBEN ! MDF !MCLK RHHR1(R0)

BIC

L
, SBODAT
#~CEB

MOV
MOV

001142

BNE

a
~
N

N2STSIRRRET2E I3
RRRIXRRRR RRRRRR\R

FRRRRRDIRLLLL T

RMMR1 (RO) ,SBDDAT

sSET WATCHDOG TIMER VALUE

;START THE CLOCK

;MOVE COMMAND seoueucen TO ABORT TEST (LOCATION 144 OR 145)

000007

141501
041501

5477

290%:

000006
000144

141401

MOV

MOV
ADD

001136

58 047500
5459 047504
5460 047506
5461 047512
047512
5462 047520
5463 047526
5464 047530
5465
5466
5467 047532
5468
5469
5470 047540

CH
,WA ..
#200
PC,aCLOCX

BNE

0057
001

132044

MOV
JSR

SEQ 0207

DEC

020000
001136
000024
000144

BNE

MOV

001140

MOV
ADD

001136

3108:

EMT
CMP
BNE

:LOAD RMMR1

#DMD i MUR i MOC | DBEN | MDF ,RMMR1 (RO) ;LOAD RMMR1
: STORE annn1 AT $BDDAT
RMMR1 (RO) , SBDDAT
3108

;BRANCH IF EBL IS SET

06$

:CONTINUE BIT CLOCKS IF COUNT NOT 0

#EBL, SGDDAT

RO, SBDADR
#RMMR1, SBDADR
271
#144 ,R2
3208

——

%%?NBAO RMB0 DSKLS PT1 HACR01¥04.00 14=JAN-82 16:33:00 PAGE 13-113

SEQ 0208

DATA COMWMAND TESTS (

5493 047656
5494 047662

012737

000145

0647676 001124 3208:

005002

004737
000402

;CHANGE LOOP ON ERROR ADDRESS

CLR

sINITIALIZE TRACK ADDRESS = 0

JSR

PC,SETW

;GO SET VOLUME VALID
sBRANCH TO 3408 IF NO ERROR

3408

4008

: ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

000024
000014
000042

$40s:

001534
001142
001142

TST

C01534

BNE
JSR
MOV

- 001136

WATCH

3508
PC,aSTOPCL
#RG, SGDDAT

RO, $BDADR
g%vm ,$BDADR

4008

JSR

PC,aSTOPCL

:STOP THE CLOCK

sSTOP THE CLOCK

sSTEP CO:chD SEgg;NCEg TO HEAD SEQUENCE, LOCATION 156 (17 CLOCKS)

000021

141401

041401

000024
000024

41001
41401

000024
000024

4 760

:LOAD RMMR1

sLOAD RMDA
R2,RMDA(RO)
:LOAD RMDC
#0,RMDC (RO)
#RD !GO,RMCS1(RO)
;LOAD RMCS1

MOV
ADD

EMT

:
3608

131476

#DMD ! MUR ! MOC ! DBEN ,RMMR1 (RO)
;LOAD RMER1
#0,RMER1(RO)
#0,RMER2 (RO)
:LOAD RMER?2

sWAIT FOR RUN ATMD GO TO SET
#200. ,WATCH
sSET WATCHDOG TIMER VALUE
MOV
PC,aCLOCK
JSR
sSTART THE CLOCK
3508:
O)
, $SBDDAT
RMMR1(R
MoV
;STORE RMMR1 AT $BDDAT
#*CRG,S$BDDAT
BIC
3608
BNE

001140

012760

MoV
MoV
MoV

MoV
MoV
MOV

000034
000000

N
o

8S
W
PN

#3308 ,SLPERR

=
v

Mov

EMT

104000
000561

7
737

#145,R2
2608

SR RGBS oTM~

NNNININININ)
= b 2

wviun vivh | viivuaiuaiivanaunaiaiaiuniiun

NN
tzu*zuqzv“nv“n 8BBN
WhN=O BERUSH KUK

wVilvaViuva | i

v
&»H SN

330s:

054732

56
5515 047762
047762

MOV
BR

JVERIFY HEAD TAG DURING DATA COMMAND

SWN=O
PR
RR
RRR R2RR

5495
5499 047664
549
5498
5499 047672
5500 047674
5501 067658

012708
00062

3708:

MOV
ggg
BNE

:LOAD RMMR1
#DMD ! MUR 'MOC ! DBEN! DBCK , RMMR1 (RO)
:LOAD RMMR1
ggnoznumoc!oaeu.mmm
3708

:DROP AND RAISE ON CYLINDER TO RESET ON LATCH
! MUR ' DBEN,RMMRT (RO) ;LOAD RMMR1
#DMD
MOV

MOV

#DMD i MUR i MOC ! DBEN, RMMR1 (R0)

:LOAD RMMR1

;;t*ttttttttttttttttttttttittttt!t.ittittttfit.t'ttitt.ltttttttttt

MoV

#4508 ,R3

sINITIALIZE TABLE POINTER

:HARDWARE ECO CHANGE TO THE PLA ON THE
sCS BOARD.

SEQ 0209

DATA COMMAND TESTS (1)

n 16

012703 000004

5544 050102
5545
5546

§547 050106

§548 050106 012760 141401

000024

3728:

5549 050114 012760 041401 000024
005303
00137
012703

§550 050122
5551 050154
5552 050126
SSS

5554

§555

5556 050132

050262

§557 050132 016037 000040 001142
042737
011337

150000
001140

5561 0501564
§§g§ 050156

000304
050437

001140

5560 050152 010204
D

5564
5565 050162
5566 050170

001142

012760

141401

000024

571 050206

062703

000002

5573 050214
gg;g 050216

01
000745

5567 050172

5572 050212 005713
5576

5578 050220
5579 050224

062702
020237

-VERIFY TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2
:STORE RMMR2 AT $BDDAT
RMMR2 (RO) , SBDDAT
MOV
BIC
MOV

#RQA'RQB! TST,$BDDAT
(R3) .$GDDAT

SWAB
BIS

Ré
R4, $GDDAT

R2,R%

:GENERATE EXPECTED TAG BUS

:COMPARE EXPECTED AND RECEIVED TAG BUS DATA
$GDDAT, SBDDAT
CMP
3908
BNE

MOV

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

#DMD ! MUR i MOC | DBEN,RMMRT (RO)

;LOAD RMMR1

TST

BMI
BR

(R3)

3808
5

$80$:

000400
001334

ADD
CMP

BHI
B8R

#TA1,R2
R2,LSTRK

400s
3308

;ADVANCE TRACK ADDRESS
*DONE ALL TRACKS ?

:YES, EXIT

-ERROR ON TAG BUS DURING HEAD SEQUENCE

5585 050234
5586 050240
ggg; 050246

010037
062737
104276

gggg 050250

000440

5591

001136
000040

$90s:
001136

4008:

MOV
ADD
EMT

RO, $BDADR
, SBDADR
#RMMR2
276

5008

:JUMP OVER TABLE

TABLE OF TAG BUS DURING HEAD SEQUENCE

5593 050252
5594 050254
5595 050256
5596 050260

002000
oo%ooo
022000
022000

5598 050262
5599 050264
5600 050266

022000
022090
022000

5597 050262

:DONE 4 CLOCKS ?
*NO !!
SINITIALIZE NEW TABLE POINTER

$75s:

ADD

5583

559§ 05025

R3
372$
#475$ ,R3

:LOAD RMMR1

-SHIFT TO NEXT TRACK ADDRESS=EXIT LOOP IF DONE

5580 050230 101007
ggg; 050232 000620
5584 £50234

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

:ADVANCE TO NEXT TABLE ENTRY

5577 050220

#DMD | DBEN ! MUR ! MOC . RMMR1 (RO)

DEC
BNE
MOV

ssgg 050200 012760 041401 000024
570

MOV

001140

023737
001021

#4 ,R3

33 tttttttttttttttttttttttttttttttttttttttttttttttttttttttt*.tt'tt

5558 050140
5559 050146

sCLOCK THE SEQUENCER THRU THE FIRST
‘4 COMMAND SEQUENCES TO ALLOW THE PROGRAM
“TO RUN WITH OR WITHOUT THE ECO.

MOV

4508 :

475$:

.WORD
.WORD
"WORD
"WORD

CH
CH
CH'TAG
CHITAG

.MORD
"WORD
"WORD

CH!TAG
CHITAG
CHITAG

:START TABLE HERE FOR HARDWARE ECO CHANGE

¥4 RNBAO RM80 DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 13-114

ZRNBAO RM80 DSKLS PT1 HACRO V04 00 14~JAN-82 16:33:00 PAGE 13-115

SEQ 0210

DATA COMMAND TESTS

5601 050270
S60§ 050272
560
5604
5605 050274
0276

344
5629 050346

5628 050350
5629
5630 050352
5631
5632

.WORD

CH!TAG

JWORD

.WORD
.WORD

001777

JWORD
JWORD
.WORD
WORD
JWORD
JWORD
WORD
WORD
JWORD
WORD
.WORD
JWORD
WORD
JWORD
JWORD
JWORD
JWORD
JWORD
JWORD
.WORD
.WORD

CH
CH

177777

JWORD

;END TABLE HERE FOR HARDWARE ECO CHANGE

1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
1777
;END OF TABLE
;END OF TEST

ttfittfittttttt**tttittittttitfi.tttttttt'ttttttttttt.tttt*titttti

SeTEST 117

DATA COMMAND TESTS (2)

tt*ttl.’l’ttti*tttttti"tttttt.tflt.t.t!tfitt.ttttfittttt.tt*tt'tttt

050352

J&S

A ENPY
=

zggps

—

g888

116

;SCOPE CALL

MOV

ASTACK,SP

MOV

#117,$TESTN

MOV

$BASE ,RO

rsroué R1

;LOAD THE STACK POINTER

RO = UNIBUS ADDRESS
*:SET TEST NUMBER IN

*R1 = POINTER TO DEVICE
APT MAIL BOX

OPI SETS IF ON CYLINDER LATCH DOESN'T RESET
JSR

PC,SETW

60%

Ezr

10§

;60 SET VOLUME VALID

*BRANCH TO 108 IF NO ERROR

DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDER SEQUENCE
MoV
MOV

MOV
MOV
MoV

#DMD ! MUR ! MOC ! DBEN, RHHR1(RO)
:LOAD RMER1
#0, RHERI(RO)

#0 ,RMER2 (RO)
#0,RHDA(RO)
#0.RMDC (RO)

:LOAD RMER?2
:LOAD RMDA
sLOAD RMDC

;LOAD RMMR1

SEQ@ 0211

CZRNBAO RMB80 DSKLS PT1 HAgR?2V04.00 14=JAN-82 16:33:00 PAGE 13-116
012760

000071

~NW

310
131046

000024

~
W
~

purd

&
N

56
5657 050526
5658 050552
5659 050540
5660 050542
5661 050544
050544

5046 050450
5647

DATA COMMAND TEST

22§§§§s§ §°
2

MOV

000000

#RD!GO,RMCS1(RO)

:LOAD RMCS1

:WAIT FOR RUN AND GO TO SET

1377;7

001534
131020
040000
001136
000024

308:

130770

MOV
JSR
mov
BIC
BNE
ST
BNE
JSR
MOV
MOV
ADD
EMT
BR

#200. ,WATCH
:SET WATCHDOG TIMER VALUE
*START THE CLOCK
PC,aclock
:STORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBDDAT
#*CRG,SBDDAT
308
WATCH
208
:STOP THE CLOCK
PC,aSTOPCL'
T
#RG,SGDDA
RO, $BDADR
RMMR1, $BDADR
5
608

JSR

PC,aSTOPCL

:STOP THE CLOCK

NNINONONOW

5675 050632
5676 050634

238228838832

:STEP corthrw"‘0 ssgt{snceg AND VERIFY OPI SETS (19 CLOCKS)
000024
000024

408:

001142
001142
001140

001136
001124

508:

MOV
ggg
BNE
MOV
BIC
BNE
MOV
MOV
ADD
EMT

MOV

:LOAD RMMR1
#DMD ' MUR 'MOC ! DBEN ! DBCK ,RMMR1 (RO)
:LOAD RMMR1
:gno'nua'noc'oasn.RMMR1 (RO)
408
:STORE RMER1 AT $BDDAT
RMER1(RO) , SBDDAT
#~COP1,$BODAT
:BRANCH IF OPI SET
508
, $GDDAT
#OPE
RO, SBDADR
#RMER1,$BDADR
277

#60$,SLPERR

;

:CHANGE LOOP ON ERROR ADDRESS

5,55'"" DATA COMMAND ABORTS DURING SEEK WAIT LOOP

gs88

ALIT

PC,SETW
708

1408

;G0 SuT VOLUME VALID
*BRANCH TO 708 IF NO ERROR

"E)P:ABLE DEBUG CLOCK AND LOAD DATA COMMAND

5684 050654
5685 050654
5686 050662
5687 050670
5688 050676
5689 050704
5690 050712
5691

569§ 050720
050:
5694 050752
050732

e
Efir

MOV
MOV
MOV
MOV
MOV
MOV
001534
001142

:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN, RMMR1 (RO)
#0,RMER1(RO)~
;LOAD RMER1
#0_RMER2(R0)
:LOAD RMER2
*LOAD RMDC
#0_RMDC (RO)
RMDA
*LOAD
#0_RMDA (RO)
:LOAD RMCS1
#RD!GO,RMCS1(RO)

:WAIT FOR RUN & GO TO SET

MOV
JSR
mov

:SET WATCHDOG TIMER VALUE
#200. ,WATCH
*START THE CLOCK
PC,aCcLoCK
:STORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBDDAT

DATA COMMAND TESTS (2)

137777

5695 050740
5696 050746
5697 050750

051044
5718
5719 051050
051050
5720 051056
5721 051064
5722 051066
5723
5724
5725 051070
5726 051074
1074

5729 051112
5730
5731
5732 051114
5733
5734

5735 051122
5736 051126
0511%2
5737 0511
5738 051142
5739 051144
5740
5741
574
5743 051146
5744 051152
051152
5745 051160

#RMMR1, SBDADR

MOV
MOV

000021

012760
012760
005302
001370

141401

041401

001140
001136
90$:

BR
JSR

041001

000037

012760

141001
041001

000024
000024

000024

1008 :

000024
000024

141001
041001

00002«
000024

012760

041201

000024

012792

000002

012760

141201
041201

045501
041501

275

1408

PC,aSTOPCL

:STOP THE CLOCK

MOV
gg\cv

;LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO)
RMMR1
:LOAD
ggnomun'noc'ossu.RMMR1 (RO)
1008

MoV

#31..R2

MOV
MOV

:LOAD RMMR1
#DMD ' MUR ' DBEN!DBCK ,RMMR1(R0)
RMMR1
;LOAD
(RO)
D
DBEN.RMMRT
i MUR i
#DM

DEC
BNE

R2
1103

:STEP TH:SUGH SEEK HA%T LOOP (6 CLOCKS) 2 TIMES

012760

012760
012760

:STOP THE CLOCK

;DROP ON CYLINDER TO RFSET LATCH
#DMD!MUR!DBEN,RMMR1 (R0) ;LOAD RMMR1
MoV

1108:

000006

000020

#RG,SGDDAT
RO, $BDADR

;MOVE COMMAND SEQUENCER TO SEEK WAIT LOOP (31 CLOCKS)

012702

:STEP cmm segusnceg TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS)

BNE

012702

00
001370

ADD

130556
040000
001136
000024

012702

572

JSR

SEQ 0212

#*CRG,$BDDAT
90$
WATCH
80$
PC,aSTOPCL

001534

130526

012760

BIC

001142

120$:

MOV
MOV
DEC
BNE

:LOAD RMMR1
#DMD 'MUR ' DBEN!DBCK ,RMMR1(R0)
|MUR i DBEN.RMMR1 (RO) :LOAD RMMR1
#DMD
R2
1208

sSET SEEK INCOMPLETE ERROR TO CAUSE ABORT

MOV

#DMD !MUR ! DBEN!MSER,RMMR1 (RO)

;LOAD RMMR1

sCLOCK THE SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS)
000024

000024

1308:

MoV

#2,R2

MoV

R ,RMMR1 (R0)
! DBCK
#DMD ! MUR ! DBEN!MSE

sgg

BNE

#DMD | MUR i DBENMSER,RMMRT(R0) -

1%03

;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
sMAXIMUM NUMBER OF BIT CLOCKS
16..R2
1358:
000024
000024

MoV

#DMD ! MUR ! MOC ! DBEN ! MDF !MCLK .RMMR1 (R0)

;LOAD RMMR1

#DMD | MUR i MOC i DBEN MDF ,RMMR{ (R0) ;LOAD RMAR1

'ale)

RNBAO RM80 DSKLS PT1 MACRO_V04.00 14~JAN-82 16:33:00 PAGE 13-117

SEQ 0213

%%IIUBAO RM80 DSKLS PT1 MgROZVN.00 14=JAN-82 16:33:00 PAGE “3-118
7

DATA COMMAND TEST

5746 0511

0160;7 oooo; oo114;

MOV

§750 051504

005302

051210

012737

020000

001140

BNE

5755 051230 104300
§;sg 051232 012737

051240

001124

5747
g;zs

051174
§1202

042737
00101

mmn%w11
5752

157777

BIC
BNE

00114

DEC

1408:

MOV

#EBL, SGDDAT

EMT
MOV

300
#1508, SLPERR

MOV
ADD

§75 051213 010037 001136
5754 051222 062737 000026 001136

:STORE RMMR1 AT $BDDAT

RMMR1 (RO) , SBDDAT

#~CEBL,SBODAT
1408

RO, SBDADR
#RMMR1, SBDADR

;CONTINUE BIT CLOCKS IF COUNT NOT 0
:CHANGE LOOP ON ERROR ADDRESS

5758

:VERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LATCH

§760 051240

150s:

*DOESNT RESET

5759

5761 051240

004737

051244 000402
051246

;;gg 051250

054732

EMT

104000

000536

5766 051252

012760

000000

5769 051266

004737

055054

051274

104000

000006

160$:

051272 000402

2208

JSR

PC,SETOM

*BRANCH TO 1708 IF NO ERROR

EMT

041401

000024

5780 051330
s 8?1%23

012737
004777

000310
130174

001534

051342

016037

000024

001142

5784 051360

005737

001534

5786 051366

004777

130146

000000

#0_RMDC (RO)
1708

*LOAD RMDC

:G0 SET OFFSET MODE

2208

-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

012760

:LOAD RMDA

5774 051300
5 051

*BRANCH TO 1608 IF NO ERROR

#0,RMDA (RO)

000523

5772

5773 051300

1608

;G0 SET VOLUME VALID

MOV

g;gg 051260 012760 000000 000034
g;;g 051276

PC,SETWV

-LOAD TRACK, SECTOR AND CYLINDER ADDRESSES

764

5765 051252

JSR

170s:

000014

MOV

#DMD ! MUR ! MOC ! DBEN, nnna1<no)

;LOAD RMMR1

MOV

#0.RMER1(RO)~

RM
;LOAD

MOV
JSR

#200. ,WATCH
PC,acL0CK

:SET WATCHDOG TIMER VALUE
*START THE CLOCK

MOV

RMMR1 (RO) , SBDDAT

nz
#0_RMER2(R0O) :LOAD RM
MOV
5776 051314 012760 000000 000042
;LOAD RMCS1
RMCS1(RO)’
n'co
MOV
000000
000071
012760
g;;g 051322
:WAIT FOR RUN AND GO TO SET
5779
5782 051350
5783 051356

042737
001017

5785 051364 oo1369
5787 051372

137777

5789 051404
5790 051412
5791 051414
5792 051416
e 051416

579%

001142

040000

001140

062737
104275
000454

000024

001136

004777

130116

5795 051422 012702 000021

BIC
BNE
ST

#*CRG,SBDDAT
1908
WATCH

JSR

PC,aSTOPCL

MOV

RO, $GDDAT

BNE

012737

5788 051400 010037 001140

MOV

1908:

ADD
EMT
BR

JSR

1808

#RG,SGDDAT

275
2208

;STORE RMMR1 AT SBDDAT

:STOP THE CLOCK

1,$BDADR

PC,aSTOPCL

:STOP THE CLOCK

:STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS)

MOV

015..n2

CZRNBAO RM80 DSKLS PT1 MACRO_V04.00 14~JAN-82 16:33:00 PAGE 13-119
mvz

051426 013760 141401

5797 051434

5798 051442
gggg 051444

000024

5802

000024

gggg 051456 012760 041401 000024
012702

000047

051466 012760

141401

5807 051462

5808 051466

000024

SEQ 0214

sa1§

005302
001370

5814 051506 016037 000014

001142

020000
001136

001140

5815 051514
5816 051522
5817 051524
5818 051532

042737
001011
012737
010037

5820 051544

104277

157777

MOV

012737

051554

2108:

R2
zoos

1 (RO)
DBEN,RMMR

#DMD | MUR | DBEN | MOC ,RMMR1 (RO)

MOV

#39. ,R2

MoV

! DBCK ,RMMR1(R0O)
#DMD 'MUR ' DBEN'!MOC

DEC
ENE

R2
2108

MOV

#DMD | MUR | DBEN i MOC ,RMMR1 (R0)

:VERIFY OPI IS SET
MOV

BI(
BNE
MOV
MOV

001142

001124

#DMD ! MUR i MOC i

:LOAD RMMR1

:MOVE SEQUENCER TO SET OPI AND EBL (39 CLOCKS)

ADD

5819 051536 062737 000014 001136
ggsg 051546

MOV

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

:DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST
*AT LOCATION 166
D,RMMR1 (RO) ;LOAD RMMR1
'MUR ' DBEN
#DM
MOV

S809 051474 012760 041401 000024

5810 051502
gg}1 0515064

MOV

DEC
BNE

005302
001370

5803 051446 012760 041001
5806

200$:

012760 041401 000024

5801

2208:

EMT

MOV

:LOAD RMMR1

;LOAD RMMR1

:STORE RMER1 AT $BDDAT

RMER1(RO) , SBDDAT

#~COPI,$BDDAT
2208
#OPI, SGDDAT
RO, $BDADR

#RMER1, $BDADR
277

#2308.SLPERR

:;CHANGE LOOP ON ERROR ADDRESS

:VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP

gggz
5825 051554

051554

004737

051560 000403
051562

ggga 051564

104000

000137

2308:

054732

EMT

052174

JMP

012760

000000

5833 051604

004737

055054

051612

104000

000006

051610 000402

*BRANCH TO 2408 IF NO ERROR

3108

:LOAD RMDA

JSR

PC,SETOM

:G0 SET OFFSET MODE

EMT

000567

#0_RMDC (RO}
2458

*LOAD RMDC

*BRANCH TO 2458 IF NO ERROR

3108

-ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

012760

041401

000024

5838 051624 012760 000000 000014
5839 051632 012760 000000 000042

ggzg 051640 012760 000071 000000
051646

:GO SET VOLUME VALID

#0,RMDA (RO)

5836

051616

2408

MOV

§g§3 051576 012760 000000 0CO034

5837 051616

PC,SETVV

55390 SECTOR,TRACK AND CYLINDER ADDRESS

5830 051570

gggg 051614

JSR

B8R

agg o

5843

DATA COMMAND TESTS (2)

5796 051426

584

012737

000310

051654 004777 127656

001534

2458:

MoV

#DMD ' MUR ' MOC ! DBEN, nnna1<no>

MOV

cnfi-co RMCS1(RO)

MOV

#200. ,WATCH

MOV
MOV

wo RMER1(RO)
0.RMER2(RO)

;WAIT FOR RUN AND GO TO SET

JSR

PC,acLOCK

;LOAD RMER1
:LOAD RMER2

:LOAD RMMR1

;LOAD RMCS1

:SET WATCHDOG TIMER VALUE

*START THE CLOCK

~NO

g83%
SN0

NI
PNONOO?NO‘*

-b

2508:

001534
127630
0400%2
0011
000024

b o
-

141401

1744

041401

:
2608

5886

WATCH

:STORE RMMR1 AT $BDDAT

2608

2508
PC,aSTOPCL

#RG,SGDDAT

:STOP THE CLOCK

RO, $BDADR

ADD
EMT
BR

#RMMR1, $BDADR
§7s
108

JSR

PC,aSTOPCL

;STOP THE CLOCK

:STEP SEggSNCER ;0 LOCATION 156 (17 CLOCKS)
000024
000024

586§ 051762
586
5
5866 051764
5867 051772
5868
5869
5870 052000
5871 052004
052004
5872 052012
5873 052020
5874 (52022
5875
5876
5877 052024
5878
5879
5880 052032
5881 052036
052036
5882 052044
5883 052052
5884 052054

MOV

001136

RMMR1 (RO) ,SBDDAT

#*CRG,$BDDAT

BNE
JSR
MOV

001140

000021

5858 051740
5859 051744

BIC

BNE

D e

viviuviuvaiuviuvaiuaiainawng v

(=l=lelelelalelalal] =4

00 1145
00114

127600

7 8095

viun

A Al

SEQ 0215

2708 :

MOV

ggg

agno'nua'noc'ossn.RMMR1 (RO)

BNE

2708

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

:LOAD RMMR1

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST
041001
041401

012702

000024
000024

041401

012760

041001

012702

000007

012760

141001
041001

MOV

000024
000024

000024

2808:

MoV

041101

5890 052064
5891 052070
052070
2892
052076
3 052104
5894 052106

000002
141101
041101

#37..R2

:LOAD RMMR1

174 (37 CLOCKS)

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

gg\cf

pgno'nun'noc'ossn.RMMR1 (RO)

BNE

2808

;LOAD RMMR1

:LOAD RMMR1

;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER RESET

MoV

#DMD! MUR! DBEN,RMMRT (RO ;LOAD RMMR1

;STEP SEggSNCER r;aougn OFFSET WAIT LOOP TWICE (7 CLOCKS)

000024
000024

290$:

ggg
BNE

5887 052056
5888

#DMD | MUR i MOC ! DBEN, RMMR1 (RO)

;MOVE SEQUENCER TO_LOCATION

000045
141401

;AT LOCATION 166
! MUR ! DBEN ,RMMR1 (RO) ;LOAD RMMR1
#DMD
MoV

000024

#DMD 'MUR ' DBEN!DBCK ,RMMR1(R0)

:LOAD RMMR1

ogno'nua'oasu.RMMR(RO) ;LOAD RMMR1
2908

;SET DRIVE FAULT TO CAUSE ABORT CONDITION
! MDF ,RMMR1 (R0)
#DMD! MUR ! DBEN
MoV

;LOAD RMMR1

:STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS)

o
000024
000024

MOV

MOV
DEC
BNE

#2,R2

#DMD ' MUR ! DBEN ' MDF ! DBCK , RMMR1 (R0)

#DMD | MUR i DBEN | MDF _RMMR1 (i<0)
R2
3008

:LOAD RMMR1

CZRNBAO RM80 DSKLS PT1 HACRO v04.00
m17
DATA COMMAND TESTS (2)

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

gg95

SEQ 0216

;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO

3857 05;110

:FORCE BgstLOCKz AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS

5898
5899 052114
05%114
5900 05 1%5
5901 0521
5902 052136
5903 052144
5904
5905 052168
3906 05215
5907 052152
5908 052160
5909 052164

3058:

16..R2

MOV

MOV
MOV
BIC
BNE
DEC

BNE

MOV

001140

MOV

ADD
EMT

001136
001124

3108:

MOV

sMAXIMUM NUMBER OF BIT CLOCKS

#DMD ! MUR ! MOC ! DBEN ! MDF 'MCLK nnnn1<no>

:LOAD RMMR1

1
#DMD | MUR | MOC | DBEN | MDF ,RMMR1 (R0) :
: STORE anna1 AT $BDDAT
RMMR1 (RO , SBDDAT
#~CEBL, SBODAT
3108

3058

OEBL.SGDDAT

:CONTINUE BIT CLOCKS IF COUNT NOT 0

RO, SBDADR

1,$BDADR

#3208,SLPERR

:CHANGE LOOP ON ERROR ADDRESS

sVERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAIT LOOP AT LOCATION 179

5
5916 052202
052202
052206
052210
5915 052212

3208:

054732

JSR

PC,SETWV

JMP

4208

gzr

052640

3308

;60 SET VOLUME VALID

*BRANCH TO 3308 IF NO ERROR

127242

001534

594
594

5944 052354

127164

000021

#0_RMER2(RO)
#0_RMDA (R0)

MOV

o'co RMCS1(RO)°

MOV

JSR
MoV

001140

BIC
BNE
ST
BNE
JSR
MOV

001136

ADD

001534
127214

MOV
MOV

#0,RMER1(RO)~
#0 RMDC (RO)

:WAIT FOR RUN AND GO TO SET

000024
137777

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

MOV

000000

000310

MOV
MOV

b = s
d
b
—

purd

000024

N
~
W
~

[=lelelelela)

5930 052274

5925 052246
5926 052254
5927
5928
5929 852262

3§g:sLe DEBUG CLOCK AND LUAD DATA COMMAND

MOV

3508:

JSR

#200. ,WATCH

;LOAD RMER?

:LOAD RMER2
*LOAD RMDA
*LOAD RMDC

:LOAD RMCS1

:SET WATCHDOG TIMER VALUE

*START THE CLOCK
PC,acLoCK
:STORE RMMR1 AT $BDDAT
RMMR1 (RO) , SBDDAT
#*CRG,$BDDAT
3508
WATCH
40$
PC,asSTOPCL
#RG, SGDDAT

:STOP THE CLOCK

RO, $BDADR

RMMR1, $BDADR

PC,aSTOPCL

:STOP THE CLOCK

sSTEP SEQUENCER ;? LOCQTION 156 (17 CLOCKS)
MoV

:LOAD RMMR1

16:33:00 PAGE 13-122
14~JAN-82
00
HACR02V04.
PT1
DSKLS
RM80
CZRNBAO
mvz
DATA COMMAND TESTS
5945 052
052360
5946 05
5947 052374
5948 052376
5949

2403
5955
5956 05241
052412
5957 052420
5958 052426
5959 052430
5960

360%:

81 760

1 760
005302
001370

:LOAD RMMR1
#DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO)
;LOAD RMMR1
‘gmsnua!noczoasn.mi (RO)
3608

MOV
gg\cf
BNE

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST
012760

041001

012702

000042

012760

141401
041401

000024

;AT LOCATION 166

#DMD !MUR ! DBEN ,RMMR1(R0) ;LOAD RMMR1

MOV

;MOVE SEQUENCER TOQ SECTOR WAIT (34 CLOCKS)
000024
000024

370$:

5962
5963 052432
5964
052436
2436
5965 052444
2452

#34.

gg\c;

#DMD ! MUR i MOC |

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

3;03

BNE

141401

173777

004000
001136
000024

5982 052530
5983 052534

000024
000024
001142
001142

3808 :

599%

;LOAD RMMR1

:LOAD RMMR1

MOV
MOV
MOV
BIC
BEQ
DEC

001140

3908:

BR
MOV
MOV

ADD
EMT
BR

001136

000447

:LOAD RMMR1
#DMD ! MUR ' MOC ! DBEN! DBCK ,RMMR1 (RO)
RMMR1
;LOAD
(R0)
,RMMR1
DBEN
!
MOC
|
MUR
|
#DMD
:STORE RMMR1 AT SBDDAT
, SBDDAT
RMMR1 (RO)
#“CESRC,SBDDAT
3908
R2

3aos

4008
assnc scoon
RO, $BDAD

SRMMR1, savoa
301
4208

zgsz DRIVE FAULT TO CAUSE ABORT CONDITION
012760

041501

012702

000002

005302
001370

5995 052574

DBEN,RMMR1 (RO)

*DURING THE LOOP (6 CLOCKS)

000006

BNE

5981

,R2

MoV

:STEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED

5961

5976 052520
5977
5978
5979 052522
052522

SEQ 0217

141501
041501

000024

#DMD !MUR ! MOC ! DBEN ! MDF ,RMMRT(R0) :LOAD RMMR1

MOV

#2.R2

MOV
ggg
BNE

:LOAD RMMR1
#DMD 'MUR 'MOC ! DBEN MDF ! DBCK ,RMMR1(R0)
RMMR1
:LOAD
ggnoznuasnocsoeeu:nor.mi(am
410$

;STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) =

4108
000024
000024

mov

:ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO
“FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS
:MAXIMUM NUMBER OF BIT CLOCKS
#16..R2
MOV
-

012702

000020

012760
012760

045501
041501

000024
000024

016037

000024

001142

MOV

'MCLK ,RMMR1(R0)
#DMD 'MUR ' MOC ! DBEN'MDF

:VERIFY EBL IS SET

MOV ~

;LOAD RMMR1

#DMD | MUR | MOC | DBEN!MDF .RMMRT (R0) ;LOAD RMMR1

RMMR1(RO),$BDDAT

:STORE RMMR1 AT $BDDAT

CZRNBAO RMB80 DSKLS P11 MCRO v04.00 14=JAN-82 16:33:00 PAGE 13-123
mvz

SEQ 0218

DATA COMMAND TESTS (2)

042737

5999 052612

005302

3552 05%61% 001013

6000 052614

6001 052616
6002 052624

6003 052630

6004 052636

ééé; 052640

001361

012737
010037

157777

020000
001136

001142

4208

DEC

MOV
MOV

, SGDDAT
#EBL
RO, SBDADR

EMT

271

ADD

062737 000024 001136
104271

BNE

001140

4208:

*TEST 120

;CONTINUE BIT CLOCKS IF COUNT NOT 0

#RMMR1, $BDADR

;END OF TEST

DATA COMMAND TESTS (3)

2212232222 22222323222322223332333323333331323333333333333333223222343+3]

052640

000004

052644

012706

052642

4158

tttttttttttttttttttttttttttttttttttt.ttttttttttttttttttttt!tttt

6008

052640

#*CEBL ,$BDDAT

BIC

000240

t41120:

MOV

001100

MOV
MOV
MOV

052650 013700 001276
052654 013701 001466
052660 012737 000120 001226

:SCOPE CALL

SCOPE

NOP

#STACK, SP

$BASE ,RO
TSTOUE R
#120,$TESTN

;LOAD THE STACK POINTER

RO= UNIBUS ADDRESS
R‘l = POINTER TO DEVICE
$:SET TEST NUMBER IN APT MAIL BOX

:VERIFY THE TAG BUS DURING DATA COMMAND

6010

FIRST PART USES OFFSET FORWARD

6013

;LOAD resr PARAHETERS IN REGISTER OUTPUT BUFFER

6014 052666 012737 001060 001446
6015 052674 013737 001334 001420
6016 052702 112737 000035 001420
6017 055710 012737 000200 001444
6018 052716 012737 000071 001412
177400

o
o

N
~

SS8

N
W

6022

MOVB
MOV
MOV
MOV

001414

012737 104536 001416
gggg 052732 012737

6019 052724

nov

052762

MOV

#560. ,RMDCO
LSTRK.RMDAO
#29.,RMDAO
#OFD .RMOFO
#RD ! GO, ancs1o

:LAST CYLINDER
*SET LAST TRACK AND
*LAST SECTOR
*FORWARD OFFSET
READ DATA

:WORD COUNT
.RMWCO
#-256.
ADDRESS
RMBAO ;BUFFER
oeurrefi

sEXECUTE ngPéN?o\‘ERIFY TAG BUS USING SUBROUTINE
sSECOND PART USES OFFSET REVERSE

2855 052744
6030 052752

112737
004737

000000
052762

001444

:LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER
MovBe

#0,RMOFO

sREVERSE OFFSET

;EXECUTE COMMAND ?N?O¥Em" TAG BUS USING SUBROUTINE
JSR

23%1 052756 000137 054046

JMP

3008

tttttttttttttttttttttttttt*t**t*'QQ**Q"'Q'QQQ*Q'Q*tQQQQOQtQQ'Q

603

suaaourxns USED DURING TEST

ttttttttttltt 1333232222228 223233323333232333 3133333333333 333333234%;]

gggg

6037 052762

6038 052762 004737 054732
052766 000403

052770 104000
2823 052772 000137 053664

1os:

JSR

%fir
JMP

PC,SETWV
0$

:1608

;GO SET VOLUME VALID
*BRANCH TO 208 IF NO

efbe ERROR

CZRNBAO RMBQ DSKLS PT1 MACRO_V04.00 14=JAN-82 16:33:00 PAGE 13-124

SEQ 0219

DATA COMMAND TESTS (3)

puery

RMDAO,RMDA(RO)

MOV
MOV

RMDCO.RMDC(RO)
RMOFO.RMOF (RO)

JSR

PC,SETOM

JMP

1608

E:r

30$

;LOAD RMDA

+LOAD RMDC
:LOAD RMOF

:60 SET OFFSET MODE

*BRANCH TO 308 IF NO ERROR

55250 BUFFER ADDRESS AND WORD COUNT

000002
000004
000024

001412

000000

000310
126424

001534

000024
137777

00113

126376
040000
001136
000024

MOV

MOV
MOV

MOV

JSR

;LOAD RMER1
:LOAD RMER2

mMov

#200. ,WATCH

PC,aCLOCK

001140

40$
PC.OSTOPCL
ons

001136

ADD

RHHR1 $BDADR

JSR

PC,aSTOPCL

MOV

EMT
JMP

Mov

:LOAD RMMR1

;LOAD RMCS1

:SET WATCHDOG TIMER VALUE

*START THE CLOCK

;STORE RMMR1 AT SBDDAT

RMMR1 (RO) , SBDDAT

BNE
JSR
MOV

WATCH

iavo

:STOP THE ‘CLOCK

il
o

275
1608

#2008,.R4

;STOP THE CLOCK

:R4 = TABLE POINTER

;STEP SEQUENCER TO_HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS)

001142

=B
—

=k e

001174

SN
ON

ancs1o RMCS1(RO)

#*CRG,$SBDDAT
508

£80021

83
3

;LOAD RMWC
:LOAD RMBA

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

oo RMER1(RO)
RMER2(R0)

BIC
BNE

126344
053666

001142

RMWCO,RMWC (RO)
RMBAO. RMBA(R0)

;WAIT FOR RUN AND GO TO SET

053664

000040

MoV
MOV

;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND

001534

)

-ty

MOV

#17..RS

MoV

RMMR2 (RO) , SBDDAT

= CLOCK COUNT
:RS

:STORE RMMR2 AT $BDDAT

tttttttttttttttt.tttit't'ttttttttttt.fitt.t.ttt'.tttlfitttt.ttt.t

MOV

$BDDAT,.STMPO

BIC

srnpo
c‘c<cc'§n>

CMP
BEQ

ogc'cu

;IF CC AND CH ARE SET AT THE SAME TIME

“THE ECO TO THE CS BOARD IS IMPLEMENTED.
: SAVE cc Ano CH BITS

ARE CC AND CH
*YES, BRANCH to usu LOCATION

:;tttt.ttttt'tt.t.ttt"tt'tttt'tti!.tttttt..t!.tt.'..tttt.tt"ttt

purs

S3S%S
i3 83833
®
EF%

W
~

gede

SN
R RG Rt
S
~
J‘C’Ciz#sJ‘CNNA:&EE;ONDWUhUEEEE

N NN N NN NN W N NN NN NN

wviviuiwvainiuaiaiuiaiauauainaaniuui

[=lolol=lelelololelalalalelalato]

MoV

000034
000032

wvivh | vaaviana

bOAD TRACK, SECTOR AND CYLINDER ADDRESS, LOAD OFFSET

22
NNSN £e8ss
‘Ucfiu $8232222
G Sgesss
“E;" ~N O\ 8
frd sgessesssssss
S
8333
8383
‘:;;'QCB\h &»

- OOV NAVIS
NN =O V00

SRERReR

NS
NN -

1120

001142

BIC
MOV

#ROA'RQB!TST,SBDDAT
(R4)+,$GDDAT

¥4 RNBAO RM80 DSKLS PT1
n 20
DATA COMMAND TES

001140
001142

000024
000024

001136

65%:

SEQ 0220

;:OR CYLINDER ADDRESS

8IS
CMP
BNE

RMDCO,$GDDAT

MoV

#DMD ! MUR !MOC ! DBEN! DBCK ,RMMR1 (R0)

DEC
BNE
BR

608
808

MOV

708:

MoV
ADD

cMT
BR

§8goAf.saooAr

;BRANCH IF TAG BUS WRONG

:gflD!HUR!HOC!DBEN.RHHRf(RO)

; LOAD RMMR1

;LOAD RMMR1

RO, $BDADR
#RMMR2
, $BDADR
276
1608

;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT

bthATION 166

000024
000024

Py
N33

SS9993
FR
(333

WNNON) =

nu»a«::ig

REPRRR

:gia (e N =1

v
W

000040

mov

MOV

1 :LOAD RMMR1
(R0)
#DMD 'MUR ' DBEN,RMMR

#DMD | MUR i MOC ! DBEN,RMMR1 (RC)

:LOAD RMMR1

. +STEP SEQUENCER TO END OF OFFSET AT LOCATION 174 (37 CLOCKS)
e

000045

[=l=l=]

\nnrug;o
.thBthle&fldg#38fi=$yduflfl
N LIS
NOWNMSWN=-OV

Q0000000 SOAAS2RS e D d D B D d
b e e wd e
o ebk
b
o NINONIPNIPININD
VIS WN=0OVONOMWM
S NN=O

oooooooo§gwgm
§s§
SRIKRGARAR28
Sogoogcooe

609% 05 SSO
6093 053256
6094 053 22

04.00 14=JAN=-82 16:33:00 PAGE 13-125 y

001142

001174

171777
006000

0 01174
0 01174

000002

MOV

#37..RS

MoV

RMMR2 (RO) , SBDDAT

;RELOAD CLOCK COUNT

;STORE RMMR2 AT $BDDAT

:;tttttttttttttttttttttttt*tttttttttttttttttttttitttttttttfitttttt

:IF CC AND CH ARE SET AT SAME TIME
“THE ECO TO THE CS BOARD IS IMPLEMENTED.

MOV

$BDDAT,STMPO

BIC
CMP
BNE
SUB

:SAVE CC AND CH BITS
#4C<CC!CH>, $TMPO
CH SET ?
AND
CC
;ARE
#CC!CH.STMPO
!!
SNO
92
*ADJUST THE TABLE ADDRESS
#2 R4

B8R

1158

:TO OTHER LOCATION

;:t;tttttttttfitttttttttttftt'ttttt'ttttttttttttttttttttttttt.tttt
150000

001140
002000

001142

000010
000004

#ROA'RQB!TST,$BDDAT
. $SGDDAT
(R4)
#CH, (R&)

BEQ

100§

BEQ
BIT

004000

000010
000200

BIC
MOV
BIT

110
#CC, (R4)

:BRANCH IF CONTROL/HEADER NOT ON

:BRANCH IF HEADER TAG

;CONTROL TAG SHOULD ge ON-SETUP EXPECTED OFFSET
BIS

#0FD,RMOFO

BIC

#8803,$GDDAT

BEQ
95$:

#8803,8GDDAT

BIT

BIS
BR

953

#8802, $GDDAT
1108

;ASSUME OFD IS NOT SET

:RESET BUS BIT 3 = DIRECTION IS REV

igse?ER TAG SHOULD BE ON - SETUP EXPECTED TRACK ADDRESS
001421
001140

MOVB
8IS

RMDAQ+1,R3
R3,$GDDAT

sGET 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

6148

110s:

6149 053500

6150 osisoo 023737 001140 001142
S
g}? 8? g% 001013

CMP
BNE

6155 osssgl. 062704 000002
6156 053530 005305
6157 053532 001305

MOV
ADD
DEC
BNE

141401 000024
012760
osgsw
e1s§
000024
041401
012760
6154 053516
6158 053534 000407
6159 053536
6160 053542
6161 053550

010037
062737
104276

001136
000040

.
001136

6167 053554

6168 053562

6170
6171 053570
6172 053574

,
012760

041001

MOV
ADD
EMT

000024

:LOAD RMMR1
! MUR ' MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1
#DMD
#DMD ! MUR | MOC | DBEN ,RMMR1 (R0)
#2,.R4
RS
908

:MOVE TABLE POINTER

*DECREMENT CLOCK COUNT

130$

RO, $BDADR
2
, SBDADR
#RMMR
276

1608

:DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT
- SEQUENCER LOCATION 175
130s:
MOV

MOV

012760 041401 000024
012705

g}g:;‘ 053552 000444

6164
6165
6166 053554

1208:

MOV

sgom.seow
1208

#DMD 'MUR ! DBEN,RMMR1 (R0) :LOAD RMMR1

#DMD ! MUR i MOC ! DBEN, RMMR1 (R0)

:LOAD RMMR1

:STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS)
#8. .RS
MOV

000010

e 053574 076037 000040 001142

1408:

MOV

:STORE RMMR2 AT $BDDAT

RMMR2 (RO) , SBDDAT

61 74

3 ;tttttt*ttttttttttttttttttttttttttttttt-ttt.ttttttttttttttttttttt

6176
6177

:THE FOLLOWING CODE WAS ADDED
*TO ALLOW THE PROGRAM TO RUN WITH

BIC

6175

2};3

6180 053602 042737 171777 001142
6181 053610 012737 006000 001140
61%%

6184 053616 023737 001140 001142
~
6185 053624 001011
6186 053626 012760

141401

000024

005305

6189 053644 001353
6190 053646
001136
6191 053650 010037
619§ 053654 062737 000040 001136

1508:

g}g‘ 053662

104276

2}32 053664

000207

1608:

6197

6198 053666

6199 053666

BIC
MOV

:SAVE CC AND CH BITS
#4C<CC'CH>,SBDDAT
DATA
#CC!CH.SGDDAT :GET EXPECTEDttttttttt.tttt
tttttti

CMP
BNE
MOV
MOV
DEC
BNE
BR
MOV
ADD

$GDDAT,$BDDAT
1508

EMT

RTS

;GOOD DATA SAME AS LAST CMP
*BRANCH IF ERROR

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

#DMD ! MUR i MOC i DBEN,RMMRT (RO)
RS

1408
160$
RO, $BDADR
#RMMR2 , SBDADR
276
PC

-TABLE OF TAG BUS CONTROL AND DATA VALUES

001777

2008:

JWORD

1777

"WORD

1777

6200 053670 001777
6201 053672 001777

"WORD
"WORD

001777

"WORD

2502 053674 001777
03 053676

*0OR WITHOUT ECO TO THE CS BOARD.

32 ttttttttttttttttl'tttttttt'ttttttttttttttt

6187 053634 012760 041401 000024
6188 053642

#ROA!RQB!TST,$BDDAT

;LOCATION

1777
1777

*LOCATION 25
*LOCATION 26

1777

*LOCATION 129

*LOCATION 153

:LOAD RMMR1

120

SEQ 0222

DATA COMMAND TESTS (3)

.WORD

6204 053700 001777
05 053702 004000
06 85 704 004000
07 053706 024000
08 053710 024000
09 053712 024000
6210 053714 024000
024000
6211 053716
621§ 053720 024000
6213 053722 004000
6214 053724 004000

sLOCATION 144
sLOCATION 145
sLOCATION 149
sLOCATION 14
sLOCATION 148
sLOCATION 149

1777
1777
1777

;LOCATION 239
sLOCATION 240
241
sLOCAT

.WORD
WORD
+WORD
WORD
.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD

001777
002000
002000
022000
022000
022000
022000
022000
022000
002000
002
001777
00177
001777
001777
001777
001777
001777
001777

6235 053776

001777

WORD
.WORD
.WORD

001777
001777

.WORD
.WORD

6240 054010 001777
6241 054012 001777
6242 054014 001777
6243 054016 001777

.WORD
.WORD
.WORD
.WORD

6245 054022 001777
6246 054026 001777
6247 054026 001777

.WORD
.WORD
.WORD

6249 054032

+WORD

4000

6237 054002
054004

4006

4020

001777
001777

.WORD

001777

.WORD

001777

.WORD

4030

026000

6256 054046

3008 :

CC!TAG
CC!TAG
CC
CC
1777
CH
CH
CH!TAG
CH!TAG
CH!TAG
CH!TAG
CH!TAG
CH!/AG
CH
CH
1777
1777
1777
1777
1777
1777
1777
1777

;LOCATION 150
sLOCATION 151
sLOCATION 15;
;LOCATION 15
sLOCATION 154
sLOCATION 159
sLOCATION 15
;LOCATION 158
;LOCATION 159
;LOCATION 160
sLOCATION 161
;LOCATION 162
:LOCATION 163
sLOCATION 164
;LOCATION 165
sLOCATION 23%
:LOCATION 23
;LOCATION 234
;LOCATION 235
;LOCATION 236
;LOCATION 237
sLOCATION 238
sLOCATION 24

1777
1777

sLOCATION 24
sLOCATION 244

1777
1777
1777
1777

sLOCATION 246
;LOCATION 247
sLOCATION 248
sLOCATION 249

1777

sLOCATION 245

sLOCATION

250

1777
1777
1777

sLOCATION 551
;LOCATION 252
sLOCATION 163

CC!CH

sLOCATION 170

CC!CH!TAG
CC!CH!TA
CC!CH!TAG
CC!CH!TAG

sLOCATION 17;
sLOCATION 17
;LOCATION 174
sLOCATION 175,ETC

.WORD

CC!CH

.WORD

CC!CH!TAG

.WORD
.WORD
.WORD
.WORD

6251 054036 026000
026
625
6253 054042 026000
gggg 054044 026000

;LGCATION 130

CC
CC
CC!TAG
CC!TAG
CC!T
CC!TAG

6215 053726
6216 0537
6217 053732
6218 053734
6219 053736
6220 053740
6221 053742
622§ 053744
6223 053746
6224 053750
6225 053752
6226 053754
6227 053756
6228 053760
6229 053762
6230 053764
6231 053766
32 053770
53772
3776

1777

+WORD
+WORD
.WORD
.WORD
.WORD
.WORD

sLOCATION 16

sLOCATION 171

;END OF TEST

mem

—

ZRNBAO RM80 DSKLS PT1 MACRO_V04.00 14=JAN-82 16:33:00 PAGE 13-127

SEQ 0223

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

END OF SUB-PASS ROUTINE
NO NS 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
TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE, RETURN

$EOSP:

Seoge

e
e

ADD
MOV
EEZ
007006
001470

001466

[ P

gggpe

MOV

2 =8
RS
N8N
WWO =WO
<
NNNVONO i;“

NO VSN = OV

IS MADE TO "READY' ROUTINE.

JMP

TSTQUE,RO

:GET POINTER TO TSTQUE

#2.R0
RO, TSTQUE
(RO)

*ADJUST POINTER TO NEXT DEVICE
*SAVE POINTER TO TSTQUE
Anvlnozs DEVICES FOR TEST ?

READY

*YES,

#TSTQUE+2, TSTQUE

18:

MOV

.SBTTL

END OF PASS ROUTINE

JUMP TO 'READY' ROUTINE

- INITIALIZE POINTER TO FIRST DEVICE IN

;TEST QUE TABLE

tttlt*tttttQtttttt'tt."t.ttfi.tt.it..tlt'tfi'fi't'iit'tfilttfitttt'

R
txncaspeut THE PASS NUMBER (SPASS)
YYYYY
REPORT
LAST
SINCE
TYPE "END PASS OO TOTAL NUMBER OF ERRORS
:#WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
:*IF THERES A MONITOR GO TO IT
:«IF THERE ISN'T JUMP TO READY

$EOP:

001116
001206
001230
100000

CLR
CLR

INC
BIC

001230

DEC

$EOPCT: .WORD

STSTAM
STIMES

..zsao THE TEST NUMBER
::ZERO_THE NUMBER OF ITERATIONS

(PC)+

+:L00P?

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

::YES
;;RESTORE COUNTER

TYPE

6ss

:TYPE ASCIZ STRING

::SAVE SPASS FOR TYPEOUT
S:TYPE PASS NUMBER
2360 TYPE-=DECIMAL ASCII WITH SIGN
3iSEE xr ANY ERRORS THIS PASS
*BR IF NO enaoas TO REPORT

BGT
MO
SENDCT: .WORD

000001
054132
104401
000407

054152

013746

001230

MOV

$PASS,=(SP)

001126

TYPDS
ST
BEQ

SERTTL

$EOPCT

*GET OVER THE ASCIZ
B8R
éigss: LASCIZ <12><15>/euo PAsE’ #/

TYPE

054212

04
054210

3327"

054254
054254

013746

054260
054262

104405
005037

001126

:SINCREMENT THE PASS NUMBER
..oon'r ALLOW A NEG. NUMBER

$GT42P

LASCIZ /

"oV

TYPDS
CLR

..rvps ASCIZ STRI
GET OVER THE ASCIZ
/
TOTAL ERRORS $INCE LAST REPORT

678

SERTTL,=(SP)
SERTTL

;;SAVE SERTIL ron TYPEOUT
*TOTAL NUMBER
OF ERRORS

..GO TYPE--DECIMAL ASCII WITH SIGN
*:CLEAR ERROR TOTAL

CZRNBAO RM80 DSKLS PT1 MACRO VO04.00 14-JAN-B2 16:33:00 PAGE 14-1

SEQ 0224

END OF PASS ROUTINE

054 93

054

054276
054

054302

056

054306
054310
054312

104401

013700

00140
ooogos

$GT42P: TYPE

001217

$GET42: MOV

000042

BEQ
RESET

004710

$ENDAD: JSR

000240
000240

NOP
NOP

NOP

000240

$DOAGN:

054312 000137
054314

054316

007006

377

000

JMP

$SRTNAD: .WORD

SENULL: .BYTE

$CRLF

a2 RO

$DOAGN

PC, (RO)

::TYPE CARRIAGE RETURN, LINE FEED

::GET MONITOR ADDRESS
::BRANCH_IF |." MONITOR
::CLEAR THE| LD
::G0 TO MONIiuR
::SAVE ROOM
::FOR

a(PC)+
READY

=1,-1,0

ssACTN
s sRETURN

2sNULL CHARACTER STRING

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

SEQ 0225

CLOCK SUBROUTINES

.SBTTL

CLOCK SUBROUTINES

;ROUTINE TO SIZE FOR CLOCKS (KW11=L OR KW11-P)
SIZCLK: NOP

MoV
Mov
MoV
MoV

000004
000006
054420
000300

sanvsc.-(sp>

;;PUSH ERRVEC ON_ STACK

01os.ennvec

:LOAD 04 *IRAP VECTORS

ERRVEC+2,=(

#PR6 ,ERRVEC+2

:PUSHERRVEC+2 ON STACK

sSEE IF A KU11-Pa§tOE§RlS PRESENT - GO TO 103 IF NOT PRESENT

12513
0 456
054704
054650
000300
201526
125110

#PCLOCK,CLOCK

P CLOCK
sTEST FOR
;LOAD SUBROUTINE ADDRESS

#PSTOP,STOPCL
:LOAD STOP ADDRESS
0Pcounf£getzxsc :LOAD P CLOCK INTERRUPT VECTOR

asLLVEC
SLLvécoz
ggLLv
EC+d

108:

054426

MOV

;DUMMY RTI ADDRESS

:RESTORE PRIORITY

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

iss

054504
125062

#15$, (SP)

;CLEAR L CLOCK INTERRUPT VECTOR

#208 ,ERRVEC

;CHANGE 04 TRAP VECTOR

;TEST FOR L CLOCK
@SLLCSR
#LCLOCK,CLOCK
:LOAD SUBROUTINE ADDRESS
#LSTOP,STOPCL
:LOAD STOP ADDRESS
zkggugiiaSLLvsc *LOAD L CLOCK INTERRUPT VECTOR

Svaéc+z aSLPVEC:CLEAR P CLOCK INTERRUPT VECTOR
gaLPv
EC+d

208 :

MOV

#25$, (SP)

:DUMMY RTI ADDRESS

*RESTORE PRIORITY

:NO CLOCK AVAILABLE = AUGMENT RETURN ADDRESS

258
001516

001524
000004

308:

CLR
MOV
CLR
MOV
CLR
ADD
MoV
MoV
RTS

CLOCK

CLEAR SUBROUTINE ADDRESS

:SLPgECEZ.sLPVECsCLEAR P CLOCK INTERRUPT VECTOR

ISLLVEUZ SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR
LVE
05 4(59)
:CHANGE RETURN ADDRESS
(SP)+,ERRVEC+2

£§P>+,eanvec

:POP STACK INTO ERRVEC+2

: :POP STAEK INTO ERRVEC

sROUTINES TO START THE CLOCK (KW11-L OR KW11-P)
51 054562
52 054570
53 054576
54
55 054600
56

012777

177777
000135

PCLOCK: MOV
MOV
BR

#~1 3SLPCSB
#135,3SLPCSR

;LOAD COUNT SET BUFFER
sLOAD CONTROL REGISTER

000100

LCLOCK: MoV

#100,3SLLCSR

;LOAD CONTROL REGISTER

PLCLK

;G0 TO COMMON CODE

SEQ 0226

CLOCK SUBROUTINES

57 054
58 05461

054614

og‘osr
400

695

PLCLK:

001532

001530

101005
054632
012746 000240
054640 012746 054646

054636

054644
054646

gg 054646

TIME

MOV
BIC
CMP
BHI
MOV
MOV

$PSW
RS
t‘épn7
#PR6,RS
408
#PRS ,=(SP)
#308.-(SP)

RTS

MOV

59 054616 o1os 7
054622 045705 177437
60
61 os«sgg os 705 000300
63

CLR
TRAP

000002

308:
408:

000207

RTI

(sP)o RS

;CLEAR TIMER COUNT

..PUSH OLD PSW AND PC ON STACK
SAVE THE PSW IN RS

§Avs PRIORITY
MASK

'1‘3PRIORITY TOO HIGH??

..PU'I NEW PS ON STACK
sPUT 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

062737
103003

000021

74 054676

005037

001534

001532

PCOUNT :

LCOUNT: ADD
B8CC

71 054660 012737 177777 001532
72 054666 162737 000021 001534 10S:
73 054674 100002

;2 054702

20$:

MOV
sus
BPL
CLR

#7.,TIME
108

#-1,TIME
#17. ,WATCH
208

WATCH

sADD 17MS TO ELAPSED TIME

:BRANCH IF NO OVERFLOW

;RESTORE MAXIMUM COUNT
:DECREMENT REMAINING TIME
:BRANCH IF POSITIVE
;CLEAR REMAINING TIME

sRTI TO HANDLE DEVICE INTERRUPTS

;g
?.‘9) 054702

IRP:

000002

;RETURN TO USER

RTI

;ROUTINES TO STOP THE CLOCK (KW11=L OR KW11-P)

g}
83 054704
gg 054710

005077
000402

124602

PSTOP:

CLR
BR

aSLPCSR
PLSTP

:STOP P CLOCK
:GO TO COMMON STOP CODE

gg 054712

005077

124604

LSTOP:

CLR

@SLLCSR

sSTOP L CLOCK

013746

001530

88 054716

89 054716

054722 012746
822;%8 000002

90 054730

000207

054730

PLSTP:

108

MoV

$PSW,=(SP)

MOV
RTI

#108,-(SP)

RTS

:sPUT NEW PS ON STACK

ssPUT NEW PC ON STACK
:;POP NEW PC AND PS

(7 Vo

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

SEQ 0227

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 16
SET VOLUME VALID SUBROUTINE

JSBTTL

}

SET VOLUME VALID SUBROUTINE

:THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID
RETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE, THE SUBROUTINE
:RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR IS

SCALL:

:os{Ecreo. IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE

g
8

;
:

13 054732

SETVV:

RETURN HERE IF ERROR
:6G0 CLEAR CONTROLLER
:LOAD RMMRI

000000
000023

000042
000000

MOV
MOV

:LOAD RMER2
#0.RMER2(R0)
;LOAD RMCS1
#PACACK'GO,RMCST1(RO)

042737

177677

001142

BIC

#4CVV,$BODAT

010037
062737
012737
062716

001136
000012
000100
000002

001136
001140

MOV
ADD
MOV
ADD

RO, $8DADR
, SBDADR
#RMDS
#VV,SGDDAT
#2,(SP)

012737
000207

000022

001174

MOV
RTS

, STMPO
#PACACK
PC

18 054760
19 054766

012760
012760

MOV
MOV

16 054744 012760 001001 000024
17 054752 012760 000000 000014

20 054774 013037 000012
001020

MOV

001142

BNE

MOVB

27 055036 112776 000170 000000

28 055044
29 055052

RETURN HERE IF NO ERROR

000024

055156
000001

23 055012
24 055016
25 055024
26 055032

ERROR

JUMP TO SUBROUTINE

PC,CNTCLR
. RMMR1(RO)
#DAD

004737
012760

21 055002

B8R

PC,SETW

JSR
MOV

1% 054732
15 054736

22 055010

JSR

108:

:LOAD RMMR1
#DMD MUR , RMMR1 (RD)
:LOAD RMER1
#0,RMER1(RO)

RMDS (RO) , SBDDAT ;STORE RMDS AT SBDDAT
108

#170,a(SP)

:BRANCH IF VOLUME VALID SET
*SETUP FOR ERROR MSG

:MOVE RETURN ADDRESS TO ERROR

*WRITE ERROR NUMBER
;RETURN

CZRNBAQ 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

§4

VERIFIES THAT OFFSET
COMMAND ANDMODE
AN OFFSET
EXECUTES
:THIS SUBROUTINE
WHEN CALLING THE
DIAGNOSTIC
IN
BE
SHOULD
DRIVE
THE
SETS.

9
10
}1

SCALL: JSR
BR
:
ERROR
:

‘MODE
*SUBROUTINE, WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE
*WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT
*RETURNS TO THE SECOND WORD FOLLOWING THE CALL

5
é
g

15 055054

14 055054
15 055062
16 055070
17 055076
18 055104
19 055112
20 055120
21 055122
22 055130
23 055134
24 055142
52 3??3'5’2

012760
012760
012760
012760
016037
042737
001015
012737
010037
062737
062716
112776

27 055154

000207

001001
000000
000000
000015
000012

177776

000024
000014
000042
000000
001142
001142

000001 001140
001136
000012 001136
000002

SETOM:

000200 000000 "

PC,SETOM
22

JUMP TO SUBROUTINE
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

MOV
MOV
MOV
MOV
MOV
BIC
BNE
MOV
MOV
ADD
ADD
move

:LOAD RMMR1
! MUR , RMMR1 (R0)
#DMD
:LOAD RMER1
#0,RMER1(RO)
:LOAD RMER2
#0_RMER2(R0)
;LOAD RMCS1
#OFFSET!GO,RMCS1(RO)
RMDS (RO) , SBDDAT ;STORE RMDS AT SSDDAT
#~COM,SBODAT
:BRANCH IF OFFSET ON
108
:
#OM,SGDDAT
RO, $BDADR
, SBDADR
#RMDS
:MOVE RETURN ADDRESS TO ERROR
#2,(SP)
*WRITE ERROR NUMBER
#200,a(sP)

RTS

:RETURN TO USER

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

SEQ 0229

.SBTTL

CLEAR CONTROLLER SUBROUTINE

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,

:ANELDRIVES. THEN SELECTS THE DRIVE.

H
156
156

v
v

CONO
VIS W

CLEAR CONTROLLER SUBROUTINE

055160
9 055162
10 055196
11 055174
1§ 055200
13 055204
055206
14 055210

010046
010145

013700
01;760

013701
111160
012601
012600
000207

CNTCLR:

001276
000040
001466
000010

000010

JSR

PC,CNTCLR

;CALL TO ROUTINE

MOV
MoV

RO,=(SP)
R1,=(SP)
$BASE RO

::PUSH RO ON STACK
$3PUSH R1 ON STACK

TSTQUE ,R1

*GET DEVICE UNDER TEST
*SELECT DEVICE
+:POP STACK INTO R1
$:POP STACK INTO RO

MoV
Movse
MoV
Mov

#CLR,RMCS2(RO)
(R1) ,RMCS2(R0)
(SP)+,R1
;EP)O.RO

*RO = UNIBUS BASE ADDRESS

*CLEAR MASSBUS

*RETURN

CZRNBAO 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-RS ROUTINES

ttt'ttttttttttttttttttttttttttttttttttttttttttttfit.t't't.tttttt

tSAVE RO-RS

CALL SAVREG

tUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
.- +2-==(+18)
i +4===R5
.t¢10--R2
s*+12=-==R1
s*+14=---R0

055212

055212
055214

010046
010146

055242

016646

055216
055220
055222
055224
055226
055232
055236
055246

$SAVREG:

RO,=(SP)
R1,=(SP)

000022

MOV

22(SP) ,=(SP)

::PUSH RO ON STACK
:sPUSH R1 ON STACK

R2.=(SP)
R3,-(SP)
R&,.=(SP)
RS,=(SP)
ZZ(SP) -(SP)
22(SP) ,=(SP)
22(SP)-(SP)

:sPUSH R2 ON STACK
:sPUSH R3 ON STACK
..PUSH R4 ON STACK
H R5 ON STACK
..SAVE PS OF MAIN FLOW
:sSAVE PC OF MAIN FLOW
:sSAVE PS OF CALL

MOV
MOV

(SP)+,22(SP)
(SP)+,22(SP)

s;RESTORE PC OF CALL
:sRESTORE #S OF CALL

MOV

(SP)+,22(SP)

MoV
MoV
MOV
MOV
MoV
MoV
MoV

010246
010346
010446
010546
016646 000022
016646 000022
016646 000022
000002

MOV
MOV

RTI

:sSAVE PC OF CALL

-RESTORE RO=-R5

055250

g*CALL:

055250
055254

012666
012666

000022
000022

055264

012666

000022

055260 012666 000022
055270
055272
055274

012605
012604
012603

055276 012602
055300 012601
055302 012600
055304

000002

§RE SREG:

RESREG

MOV

MOV
MOV
MoV

MOV
MOV
MOV
RTI

(SP)+,22(SP)

ssRESTORE PC OF MAIN FLOW
;sRESTORE PS OF MAIN FLOW

(SP)+,R5
(SP)+ R4
(SP)+,R3

::POP STACK INTO RS
..POP STACK INTO R4
sPOP STACK INTO R3

(SP)+,R1

::POP STACK INTO R1

(SP) +,R2
(SP)+.RO

..POP STACK INTO R2
::POP STACK INTO RO

CZRNBAO RM80 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
2222222233 2322822223222 323333223 2320333332222 322232332 2ididl]

3332222222

**THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 16-BIT
s*BINARY=ASCII NUMBER AND TYPE IT.

s«CALL:

055306
055310

010146
016601

055324

006101

000006

055314 000261
055316 112737 000060 055360

055326

055330
055334

104401

055344

012601

055342

055346
055354
055356
055360

1$:

#'0,8BIN

016666
012616
000002
000

000

ROL

ADCB
TYPE

055360

000002

SEC
MOVB
BEQ

CLC

000765
000004

NUMBER,=(SP)

R1,=(SP)
6(SP) ,R1

105537 055360

000241

TYPBN

$TYPBN: MOV
MOV

001406

055340

MOV

2$:
$BIN:

::SAVE R1 ON THE STACK
s:GET .Y.H.E. INPUT NUMBER

:2SET *'C'* SO CAN KEEP TRACK .OF"THE NUMBER OF BITS
:2SET CHARACTER TO AN ASCII ‘0.

::GET THIS BIT

$BIN

::NO==SET THE CHARACTER EQUAL TO THIS BIT
::60 TYP§ .T.HIS BIT
::CLEAR *'C'' SO CAN KEEP TRACK OF BITS

LSBIN

B8R

MOV
MOy
RTI
.BYTE

2(SP) ,4(SP)
(SP)+,(SP)

MOV

2 :NUMBER TO BE TYPED

J3TYPE IT

(SP)+ ,R1

0,0

s sDONE?

2:G0 DO THE NEXT BIT

::POP THE STACK INTO R1
::ADJUST THE STACK

::RETURN TO USER
:2STORAGE FOR ASCII CHAR. AND TERMINATOR

SEQ 0232

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 21
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

SARARRAAAARAAAARAAACACAACAAAAAAAAAAAAARAAAAAARAARAARARAARAAARANAL

'THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 5-DIGIT
'SIGNED DECIMAL (AS ClD 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
'REttACED WITH SPACES.
1
:®

055362
055362 010046
055364 010146
055366 010246
055370 010346
055372 010546
0553764 012746
055400 016605
55404 100004
055406 005405
055410 112766
055416 005
055420 012703
055426 112723
055430 005002
055432 016001
055434 160105
002405
05544
055442
00520
000774
055
055446 060105
055450 005702
055452 001002
055454 105716
055456 100407
055460 106316
055462 103003
055464 116663
055472 852702
055473
52703
05550
110;2
055504 805 59
OSSSOS
209
055512
002746
300%
055514 1050
055518
764
05552
055522 105726
055526 1
555
1
555
10501
535
12605
5554
12603
5554
12602
55544
012601

$TYPDS:

MoV
TYPDS

NUM,=(SP)

:sPUT _THE BINARY NUMBER ON THE STACK
::G0 TO THE ROUTINE

RO,=(SP)

:sPUSH RO ON STACK
..PUSH R1 ON STACK

R1,=(SP)

R2,=(SP)
R3,=(SP)
RS.=(SP)

20(SP) .RS

000001

055576
000040

18:
28:

055566

38:

48:

58:

000001
000060
000040

ON STACK

#20200,-(SP)

020200
000020
000055

:;PUSH R2

177777

68:
7$:

RS
#'=-,1(5P)
RO
#$DBLK ,R3

", (R3)+

R2
$DTBL (RO) .R1
R1.R5
43
R2
3s
R1,R5
R2
5%
(SP)
7$
(SF)
6$
1(‘P) =1(R3)

..ZERO THE CONSTANTS INDEX
sSETUP THE OUTPUT POINTER
..SET THE FIRST CHARACTER TO A BLANK
ssCLEAR THE BCD NUMBER
ssGET THE CONSTANT
..FORH THIS BCD DIGIT
::BR_IF DONE
::INCREASE THE BCD DIGIT BY 1

ssADD BACK THE CONSTANT
..CHECK IF BCD DIGIT=0
sFALL THROUGH IF 0

::STI%% eggflG LEADING 0°'S?
::BR_IF NO

:3YES=-SET THE SIGN

ssMAKE THE BCD DIGIT ASCII
..HAKE IT A SPACE _IF NOT_ALREADY A DIGIT

sPUT THIS CHARACTER IN THE OUTPUT BUFFER
C

000010

TO EXIT
T _THE LSD

.
177777

..GO DO THE NEXT DIGIT
8s:
177776

(SP)+

98:

(SP)+.R

..60 CHANGE TOASCII
..UAS HEOLSD THE FIRST NON-ZERO?

CZR'BAO RM80 DSKLS PT1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE 21-1

SEQ 0233

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

855546 0126
55550

104401

0555584

002208

MOV

TYPE

MOV
MOV

055576

016666 000002 000004
055554
055562 012616

055566
055570
055572
055574

055576

02342
001750
000144
000012

$DTBL:

$DBLK:

RTI

(SP)*.RO

4(SP)
Z(SP)
(SP)+. (SP)

10000.
1000.
100.
10.

.BLKW

..POP STACK INTO RO

;NOW TYPE THE NUMBER
THE STACK
..ADJUST
:2RETURN TO USER

¢4

SEQ 0234

CZRNBAO RMB0 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

1 123222222322 22222233 2272222232233 3333333333323 332222233333 dd2tidldl]

:*THIS ROUTINE IS USED TO CHANGE A 16~BIT BINARY NUMBER TO A 6-DIGIT
s*0CTAL (ASCII) NUMBER AND TYPE IT.

;*$TYPOS===ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:
%2R
%N

MoV
TYPOS

.BYTE

NUM,-(SP)

LA TR TR TR 1]

:sNUMBER TO BE TYPED
ssCALL _FOR TYPEOUT

:sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

::M=1 OR

::1=TYPE LEADING ZEROS
:;0=SUPPRESS LEADING ZEROS

:*$TYPON=-===ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:*$TYPOS OR $STYPOC

::CALL:

i*
;t

MOV

TYPON

NUM, = (SP)

: :NUMBER TO BE TYPED

S5CALL FOR TYPEOUT

::%;lfoc---enrsn HERE FOR TYPEOUT OF A 16 BIT NUMBER

000000
000001
056033
000002

——

e
e

§3§$%§¥2~g °8¥¥§~o

=
AN
O

Begans

\V,]

—OOO———
s
®
28388z
~
WO
gEEESt:::EEEB
Vo
SSoees
O
Nl\lg
N N =2 ) = ek
=~
ATS
O NNON
ONNNN
dMOOOOOg SRARIRRRS o guuwg
RERREIGESEH

—

L\ ¥]

oo
WN
o &~

00
lelelele]

9299999 vl Vv
At
[N
-~
NN

\Y.
wn

o =)

vv
wn v

v
W

056033

056031

TYPOC

$TYPOS: MOV

MovB
Move

ADD

056031
056033
056030

$TYPOC: MOVB
MovB
$TYPON: MOVB
MOV
MOV
MoV

nng
ADD
MovB

000006
056032
055031
000012

056032

MOV

MovBe

1$:

MOV
CLR
ROL

2$:

ROL

3s:

ROL
ROL
MOV

ROL
DECB

BPL

177770

4$:

B8IC
BNE
TST
BEQ
iNC

NUM,=(SP)

: :NUMBER TO BE TYPED

a(SP) ,=(SP)
#2,(SP

;:PICKUP THE MODE
:sLOAD ZERO FILL SWITCH
; sNUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS

#1,S0FILL
#6,S0MODE +1
#5,S0CNT
R3,=(SP)
Ré,=(SP)
R5,=(SP)

ssSET THE ZERO FILL SWITCH
:sSET FOR SIX(6) DIGITS
ssSET _THE ITERATION COUNT
::SAVE R3
::SAVE Ré
::SAVE RS

#6 R4

ssSUBTRACT IT FOR MAX. ALLOWED
ssSAVE IT FOR USE
ssGET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD
::ROTATE MSB INTO ‘‘C**

:2FORM THIS DIGIT

1(SP) ,SOFILL
(SP)*.?OHODE*1

STYPON

=2HODE*1.R4
R4, SOMODE
R4
SOFILL
1§(SP).R5
R
3s

RS
RS
RS5.R3

*SCALL FOR TYPEOUT

:2GET THE NUMBER OF DIGITS TO TYPE

2:G0 DO MSB

R3
$OMODE

::GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?

#177770,R3
43
R4
5§
R4

22GET RID OF JUNK
:2TEST FOR 0
:2SUPPRESS THIS 0?
::BR IF YES
::DON'T SUPPRESS ANYMORE 0°'S

:2:BR IF NO

CZRNBAO RM80 DSKLS PT1 mcao v04 00 14=JAN=82 16:33:00 PAGE 22-1

SEQ 0235

AND T
BINARY TO OCTAL (ASCII)

855752 85 7
0527
55756

800060
20 40

58:

6026
1103 856026
055762 1oa4g1
0557

78:

05577

105347 056030

056002
056004
056006
056010
056012
056014
056022
056024
056026
056027
056030

005204
000744
¢$:
012605
012604
012603
016666 000002 000004
012616
000002
8s:
000
000
$SOCNT:
000

055776 003347
056000 002402

056031
056032

000000

BIS
BIS

MOVB
TYPE

DECB

BGT
BLT

INC
B8R
MOV
MOV
MOV
MOV
MOV
RTI
.BYTE
BYTE
.BYTE

SOFILL: .BYTE
SOMODE: .WORD

80, n
'S

R38 bs
$OCNT
28
6

Ré
28
(SP)+,RS
(SP)+.R&
(SP)+.R3
2(SP).4 (SP)
(SP)+. (SP)
0
0
0
0
0

..ms THIS DIGIT ASCII
S*MAKE ASCII IF NOT ALREADY

$3SAVE FOR TYPING

$3G0 TYPE THIS DIGIT

:3COUNT BY 1

;38R IF MORE TO DO
*BR IF DONE

S ZINSURE LAST DIGIT ISN'T A BLANK
::60 DO THE LAST DIGIT
*RESTORERS
..aesrone Ré&
*RESTORER3
PiSET THE STACK FOR RETURNING
:RETURN

..srome FOR ASCII DIGIT
*TERMINATOR FOR TYPE ROUTINE
$20CTAL DIGIT COUNTER
$32ERO FILL SWITCH
*:NUMBER OF DIGITS TO TYPE

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

SEQ 0236

TYPE ROUTINE

.SBTTL

TYPE ROUTINE

ttfitfittttttittt.ttt"tt"t'i.t.ttitt.t.ttttttttt..t...ttlt".t'

tRDUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
tTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
tNOTE1:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
tNOTE
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.
*NOTE
C LL:

*1) USING A TRAP INSTRUCTION
*OR

105737
100002

056044

000430

001173

056050 017600 000002
056054
56062

122737
001011

056072

001405

$TYPE:

TSTB
B8PL

$TPFLG
18

..IS THERE A TERMINAL?
;BR IF YES

T;sLEAVE

@2(SP) ,RO

..GET ADDRESS OF ASCIZ STRING

1$:

000001

001242

61$:
056106 000000
56106 132737 000040 001243 62%:
056114 001003
056122
0561246
056126
056132
056134

056140

056142
056146
056150

2$:

005726
012600
06271¢ 000002
000002
122716 (000011
001430

122716
001006
005726

60S$:

3s:
4$:

056156

001217

105037

056162 000755

000200

056202 105366 000001
056206 002779
056210 00473 056;22

7$:

056176 013746 001170
105337
000770

MoV
JSR

WORD
BITB
BNE
MOVB
BNE

TST
MOV
ADD
RTI
CMPB
BEQ

SCRLF

056364
5%:
6$:

056214
056220

MPTENV SENV
62%

TYPE

004737 05624
1237;6 00117
001350

056164
056170
056174

CMPB
BNE

CMPB
BNE
TST

056152 104401
056154

RO,=(SP)

BEQ

010037 056104
056074
056100 004737 062606
112046
001005

MOV

BITB

56064 132737 000100 001243

056116
056120

TYPE

HALT

010046

056

:2MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

056042 000000
056046

.MESADR

MESADR

056034
056040

TYPE

..HAI.T HERE IF NO TERMINAL
sSAVE RO

i RUNNING IN APT MODE
2:NO,GO CHECK FOR APT CONSOLE

MPTSPOOL.SENVH SPOOL MESSAGE TO APT

RO,.61$
PC.SATYS

GO CHECK FOR CONSOLE
FOR APT
ADDRESS
MESSAGE
SEflP
APT
TO
SPOOL MESSAGE

(RO) +,-(SP)
43

H CHARACTER TO BE TYPED ONTO STACK
..PUS
*2BR IF IT ISN'T THE TERMINATOR

62%

HESSAGE ADDRESS
O
#APTCSUP,SENVM APT CONSOLE SUPPRESSED
..YES SKIP TYPE OUT
608
(SP)+
(SP)+ RO
#2,(SP)
#HT, (SP)

..IF TERMINATOR POP IT OFF THE STACK
::RESTORERO
..ADJUST RETURN PC
RETURN
::BRANCH IF <HT>

#CRLF, (SP)
5$
(SP)+

:2BRANCH IF NOT <CRLF>

:POP

<CR><LF> EQUIV

..TYPE A CR AND LF

;CLEAR CHARACTER COUNT

CLRB

SCHARCNT

JSR
CMPB
BNE

PC,STYPEC
SFII.I.C {(SP)+
2%

2:G0 TYPE THIS CHARACTER
2:1S IT TIME FOR FILLER CHARS.?
s2IF NO GO GET NEXT CHAR

1(SP)
PC,STYPEC

..DOES A NULL NEED TO BE TYPED?
:BR IF NO=--GO POP THE NULL OFF OF STACK
2360 TYPE A NULL

MOV

$NULL ,=(SP)

BLT

DECB
JSR

638

DECB
BR

SCHARCNT
7$

:.GEI NEXT CHARACTER

:.25; g"gf':’lLLEMMRS. *NEEDED
..DO NOT COUNT AS A COUNT
::LO0OP

SEQ 0237

CZRNBAO RMBC DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 23-1
TYPE ROUTINE

sHORIZONTAL TAB PROCESSOR

& R B e
2

1en

105777

8 6246

8%:

MOVB

JSR
BITB

#177600, (SP)
#SXOFF
, (SP)
1028

1018:

122662

asTKS
1018

105777

122640

056326
056334

116677
122766

000002
000015

056344
856352

00100
105037
000406
122766

108:

122632
000002

056364
000012

000002

1$:

CMPB

: .WORD
$CHARCNT
S$TYPEX: RTS

::CHAR IN KYBD BUFFER?
s:BR IF NOT
2:GET CHAR

::STRIP EXTRANEOUS BITS
::WAS CHAR XOFF

2:BR IF NOT

2:WAIT FOR CHAR
368
2:STRIP IT
J3WAS IT XON?

(SP)+

ssFIX STACK

asTPS
1 0s
2(SP) ,asTPB
QCR. (SP)

ssWAIT UNTIL PRINTER IS READY

1018

102%:

:sREPLACE TAB WITH SPACE
ssTYPE A SPACE
s sBRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
ssGET NEXT CHARACTER

#177600, (SP)
#SXON, (SP)

asTk8, (SP)

122656
177600
000021

#7. SCHARCNT
9s
(SP)+

asTKS
108
asTks =(SP)

122702
177600
000023

056320

,(SP)

PC,$TYPEC
2%

$TYPEC:

122706

IF NOT

::LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
s sBRANCH IF NO
s sYES==CLEAR CHARACTER COUNT
s sEXIT
2:1S CHARACTER A LINE FEED?
s sBRANCH IF YES
:sCOUNT THE CHARACTER
: sCHARACTER COUNT STORAGE

SEQ 0238

CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 24
SCOPE HANDLER ROUTINE

.SBTTL

SCOPE HANDLER ROUTINE

JRARRARAARARRRRAAS AR RN AR AR ARARAAAAAAAARAR AR AN

AAAAA A AR AN

'THIS ROUTINE CONTROLS 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 OPTl{gJS
PROVIDED BY THIS ROUTINE ARE:
0P ON TEST

s *SW14=1

;*SW11=1

: %SW09=1
+%SW08=1
s#CALL
SCOPE
v
056370
056370
056372
056400

104410
032777
001402

$SCOPE:

040000

122554

8;648% 000137 057032
056406 000416

$XTSTR: BR

013746
012737
005737
012637
561
022626
012637
5

000004
056434 000004
177060
000004

056444
056452
056454
056456
056462

032777
001421
005046
117716
001414

000400

000004
122502

58:

#8IT14,3SWR
98

$OVER

MOV
MOV
ST
MOV
B8R
CMP
MOV
B8R

BIT
BEQ
CLR
MOVB
BEQ

122472

cMP
MOV
BLT
DEC

005316

,
= (SP)
@NERRVEC
#5$ FERRVEC
ar177060
(SP)+,@#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP) +.@#ERRVEC
78

#BIT08,aSWR
$
-(SP)
aSWR, (SP)
13

#120, (SP)
8s
(SP) ,$TSTNM
(s )

ASL
ADD
MOV

(SP
ossuoarau. (SP)
a(SP)+,SLPADR

056514
056516
056522

005726
105737
001 so;

001117

ST
TSTB
BEQ

(SP)+
SERFLG
3s

322??2

013737

177766

056512 000547

8s:
28:

022737 177777 057700
001455
omt.g oooog4
mgrs 056556 000004

057700

CMP
BEQ
MOV
MOV
ggv

2000$: MOV
057700
177727
799
01
056556
MOV
056572
012716
056564
0565% 000002

FOR CHANGE IN SOFT-SWR

..I.OOP ON PRESENT TEST?
sNO IF SW14=0
::JW OVER SCOPE ROUTINE

::IF RUNNING ON THE 'XOR!' TESTER CHANGE

;16
056500
056502 062716 057050
056506 013637 001122

056524
056532
056534
056540

sTEST

::THIS INSTRUCTION TO A 'NOP''

(NOP=240)

..SAVE THE CONTENTS OF THE ERROR VECTOR
..SET FOR _TIMEOUT

XOR?
<TIME OU T ON

..Resrone THE ERROR VECTOR
::60_TO THE NEXT TEST
*:CLEAR THZ STACK AFTER A TIME OUT
..Rssrons THE ERROR VECTOR
LOOP ON THE PRESENT TEST

68::ARAMNEND OF CODE FOR THE XOR iesrennn

056464 022716 000120
056470 002411
056472 011637 001116
056476

JMP

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
: :SCOPE= 107

+MMAMASTART OF CODE FOR THE XOR TESTEM’IIJ

056410
056414
056422
056426
056432
056434
056436
056442
056444

18:

CKSWR
BIT
BEQ

INHIBIT ITERATIONS

RTI

soER

#-1,CPSAVE
2003$
ERRVEC,=(SP)
';99““ERRVEC
66 CPSAVE

M CPSAVE

#2001$, (SP)

..LOOPFM SPEC. TEST?
_IF NO
;B8R

sCLEAR A TEMP. LOCATION

..PICKU’ THE DESIRED TEST NUMBER
; BRANCH IF BAD TEST NUMBER IN SWR
..CHECK THE NUMBER IN THE SWR
ssBRANCH IF TEST NUMBER IS OUT OF RANGE
: UPDATE THEGT‘EST NUMBER
: ;BACKUP BY
SCAI.E THE TEST NUMBER AS AN INDEX
:;FORM THE ADDRESS OF TEST POINTER
..SET LOOP ADDRESS TO DESIRED TEST
LOOP ON THE_TEST
GO

..CLEAN THE BAD TEST NUMBER OFF OF THE STACK
HAS AN ERROR OCCURRED?

::BR_IF NO

..SEE IF _TIMEOUT WAS PREVIOUSLY RECORDED
KICK AROUND ROUTINE IF SO
..SAVE CONTENTS OF ERROR VECTOR
sSETUP 'TRAP' RETURN ADDRESS
..HOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
2:SET CPU ERROR REGISTER TIMEOUT INDICATOR
s;SETUP RETURN ADDRESS

CZRNBAG RM80O DSKLS PT1 MACRO VO04.00 14=JAN-82 16:33:00 PAGE 24-1

<FQ 0239

SCOPE HANDLER ROUTINE

2001$:

056572 012637 000004

056576 022737 177777 057700 20028:

056604 ogu. 9

000001
056606 032737
056614 001424
1
056616 042737

056624
056630
0566
056642
056646
056654
056656
8?6“2

013746
01 u.g
0127;
011677
042777
104177
012676
012637

057700
177766

001154
000000
000176 001154
122306
122300
01
000000
001154

123737 001131 001117
osm"“
056674 101015
056676
056704
056706
056714
056716
056722
056726
056730
056736
056740

056744
056746

056752
056760
056762
056770

032777
001404
013737
46
105037
005037
15
032777
001011
005737

001406
005237

001000 122250
001124 001122 7$:
48:

001117

001206
004000 122216 3$:
001230
001120

023737 001206 001120
oozoga
012737 000001 001120 1$:
013737 057046 001206

MOV

(SP)+,ERRVEC

CMP

#-1,CPSAVE

BIT
BEQ
BIC

#BITO0,CPSAVE
2003$
#81T00,177766

;;RESTORE CONTENTS OF ERROR VECTOR
;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

2003s

*SBRANCH IF SO

MOV
MOV
MOV
MOV
BIC
EMT
MOV
MOV

SWR,=($P)
at;fi).-(sn
#176,SWR
(SP) JaSWR
#B1709,aswR
177
(SP)+,3(SP)
(SP)+.SWR

::SAVE SWR ADDRESS
*3SAVE SWR VALUE
*5GET SOFTWARE SWR ADDRESS
*3GET CURRENT SWR VALUE

BHI
BIT
BEQ
MOV
BR
CLRB
CLR
BR
BIT
BNE
ST

3s
#BIT09,asWR
4
SLPERR,SLPADR
SOVER
SERFLG
STIMES
13
#BIT11,aSWR
1$
$PASS

CMP
BGE
MOV
MOV

STIMES,.SICNT
SOVER
#1,SICNT
SMXCNT,STIMES

MOV
MOV
CLR

(SP) , $LPADR
(SP) .SLPERR
SESCAPE

BEQ

(MPB

BEQ
INC

::SEE IF THE POWER MONITOR BIT IS ON
$SBRANCH TO CONTINUE ROUTINE IF CLEAR
::CLEAR THE BIT FOUND TO BE SET

S:DON'T ALLOW LOOP ON ERROR ON THIS ERROR
*:CALL SPECIAL POWER FAIL BIT ERROR CALL
:*RESTORE SWR TO ORIGINAL VALUE
:SRESTORE SWR ADDRESS

ERRORS FOR THIS TEST OCCURRED?
SERMAX,SERFLG :;MAX.
$:BR IF NO

1$
SICNT

STSTNM
STSTNM.STESTN

*:LOOP ON ERROR?
::SET LOOP ADDRESS TO LAST SCOPE

*3BR IF NO

::2ERO THE ERROR FLAG

*:CLEAR THE NUMBER OF ITERATIONS TO MAKE
“SESCAPE TO THE NEXT TEST
:SINHIBIT ITERATIONS?
$3BR IF YES
*3IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
¥
* S INCREMENT ITERATION COUNT

::CHECK THE NUMBER OF ITERATIONS MADE
$:BR IF MORE ITERATION REQUIRED
S:REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
$3COUNT TEST NUMBERS
::SET TEST NUMBER IN APT MAILBOX

105237
113737

001116
001116

001226

$SVLAD: INCB
MOVB

11; 37
013777

000001
001116

001131
122116

MOVB
MOV

SSONLY ALLOW ONE(1) ERROR ON NEXT TEST
#1,SERMAX
Y
STSTNM,aDISPLA ::DISPLAY TEST NUMBER

SLPADR. (SP)

::FUDGE PS
RETURN ADDRESS
SFIXES
R OF ITERATIONS
: MAX,

LWORD
"WORD

TST1+
TST2+

::STARTING ADDRESS OF TEST 1
*:STARTING ADDRESS OF TEST i

057828 010030
7
010160
057062 8" 64

"WORD
"WORD
-WORD

TST4+
TSTS+
rsrgo

057072
057074

"WORD
"WORD

TST12+
TST13+

056776
057002

057010 011637 001122
057014 011637 001124
057020 005037 001210
057024
057032

057040 013716 001122
057044 ooooog
057046 00000
057050
000120
057050 007160
057052 007470
057054

007660

057064
057066
057070

012360
0124564
012540
01
013346

SOVER:

MOV
RTI
SMXCNT: S.
$SWOBTBL:
.REPT $TN-

"WORD

"WORD
"WORD
"WORD

TST3+

TST7+
TST10+
TST11+

::SAVE SCOPE OOP ADDRESS
*:SAVE ERROR LOOP ADDRESS
*:CLEAR THE ESCAPE FROM ERROR ADDRESS

*SSTARTING ADDRESS OF TEST

:SSTARTING ADDRESS OF TEST &
*STARTING ADDRESS OF TEST S
*:STARTING ADDRESS OF TEST 9

*SSTARTING ADDRESS OF TEST
**STARTING ADDRESS OF TEST 10
**STARTING ADDRESS OF TEST 11

:*STARTING ADDRESS OF TEST 1§
*SSTARTING ADDRESS OF TEST 1

TST24+
TST25+
TST26+
TST27+
TST30+
TST31+42
TST32+2

TST33+2
TST34+2
TST35+2
TST36+2
TST37+2
TST40+2
TST41+42
TST42+2
TST43+2
TST44+2
TST45+42
TST4L6+2
TST47+2
TST50+2
TSTS1+2
TSTS2+2
TSTS53+2
TSTS54+2
TST55+2
TST56+2
TSTS57+2
TST60+

:;STARTING ADDRESS OF TEST 14
::STARTING ADDRESS OF TEST 15
s sSTARTING ADDRESS OF TEST 19
s sSTARTING ADDRESS OF TEST 1
s sSTARTING ADDRESS OF TEST 20
::STARTING ADDRESS OF TEST 21
s 2STARTING ADDRESS OF TEST 22
::STARTING ADDRESS OF TEST 23
s sSTARTING ADDRESS OF TEST 24
:sSTARTING ADDRESS OF TEST 25
s sSTARTING ADDRESS OF TEST 26
: sSTARTING ADDRESS OF TEST 27
s sSTARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
s sSTARTING ADDRESS OF TEST
s sSTARTING ADDRESS OF TEST
:sSTARTING ADDRESS OF TEST
TEST
TEST
TEST
TEST
TEST
TEST
OF
SS
ADDRE
s ;STARTING
TEST
OF
S
ADDRES
s sSTARTING
TEST
OF
SS
ADDRE
s sSTARTING
s sSTARTING ADDRESS OF TEST
s sSTARTING ADDRESS OF TEST
s STARTING ADDRESS OF TEST
s ;STARTING ADDRESS OF TEST
s sSTARTING ADDRESS OF TEST
:sSTARTING ADDRESS OF TEST
s sSTARTING ADDRESS OF TEST
s sSTARTING ADDRESS OF TEST
s sSTARTING ADDRESS OF TEST
s ;STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST

s sSTARTING ADDRESS OF
s ;STARTING ADDRESS OF
:sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF

abaa&buwwgu&u
W)=

TST15¢+
TST16+
TST17+
TST20+
TST21+
TST §+

NOWVIS
W= ONONWN S W =ONOWNIS

NENS
NS

057150

TST14+

Vi
S &S

NNNOONOAWVWAWNSS
SN

RININD
— — =b e e

e e e o
D e e
D o
b
o
b o
b e
b
—

=l=lelololelelelelelalelalelalalalal 4

wviviuivuaiuiiuauaiuiauiaiuviuvi Vi e
NNNNNNNNNNNNNYNY NNNN ~

SRASHRREIRNSF R8RS

057076

OO0 000000

SCOPE HANDLER ROUTI

:sSTARTING ADDRESS OF TEST 60
s sSTARTING ADDRESS OF TEST 61

s ;STARTING ADDRESS OF TEST 6
s ;STARTING ADDRESS OF TEST 6
s sSTARTING ADDRESS OF TEST 64

s sSTARTING ADDRESS OF TEST 65
:;STARTING ADDRESS OF TEST 69
s sSTARTING ADDRESS OF TEST

TST104+

036474
036622

s sSTARTING ADDRESS OF
:STARTING ADDRESS OF
:sSTARTING ADDRESS OF
s :STARTING ADDRESS OF
: sSTARTING ADDRESS OF

wnunnm

057254
057256

TEST 7
TEST 7
TEST 74
TEST 75
TEST 79
TEST 7

—_————
mmmmm

TARTING ADDRESS OF
TARTING ADDRESS OF
TARTING ADDRESS OF
TING ADDRESS OF
TING ADDRESS OF
ARTING ADDRESS OF

———
4 —

s sSTARTING ADDRESS OF TEST 70
s sSTARTING ADDRESS OF TEST 71

SEQ 0240

CZRNBAO RMB0 DSKLS =E1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 24=2

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 24-3
SCOPE HANDLER ROUTINE

SEQ 0241

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

SEQ 0242

ERROR HANDLER ROUTINE

.SBTTL

ERROR HANDLER ROUTINE

lttt't.t...ttt.ttt.""'tt't.ttQtt...t.t..t.tt.ti.fitt.t..ttt'.'

'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 OPTmS szOVIDED BY THIS ROUTINE ARE:
ERROR

s %SW15=1

INHIBIT eaaoa TYPEOUTS
BELL ON ERR
LOOP ON enaon

s wSW13=1
+%SW10=1
-gm%

1
057310
057314

$ERROR: CLRB
CKSWR

105037 057702
104410

78:
057316 105237 001117
057322 001775
057324 013777 001116 121624
057332
057340

032777
001402

002000

057342 104401 001212
057345 005237 001126
057352 011637 001132
122737
001454
105737
001047
022737
001445
013746
012737
853Z3€

000177
057702
177777
000004
057452
177766

001130

057452

012737

177777

012716 057466
057460
057464 ooooo;

057700

057466

012637

000004

057472

022737

177777

057700

057372
057400

057402
057410
057412
057416
057420
057426
057430
057434
3?%2?5

7500 001420

105037

057702

057542
057550

032777
001004

020000

057552 004737 057704

:iBELL ON ERROR?
*NO= SKIP

MOV

AVE
:1061:.(sp)

1001$:

MOV
RTI

MOV

(SP)+,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

CMP

b1?fl%

"ueucnmemswumnnsnmwrmmmnw

CLRB

IBSAVE

::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT
BNE

#BIT13,aSWR
208

::SKIP TYPEQUT IF SET
*SKIP TYPEOUTS

1002$:

}8822:
121404

..ser THE ERROR FLAG
SERFLG
*DON'T LET THE FLAG GO TO ZERO
78
STSTNM,aDISPLAY 2iDISPLAY TEST NUMBER AND ERROR FLAG

1000$:

TYPE
INC
MOV

C(MPB
BEQ
TSTB
BNE
CMP
BEQ
MOV
MOV
ggv

000004
057700

3§;§23

;;CLEAR THE ITEM BYTE SAVE LOCATION
*TEST FOR CHANGE IN SOF T=SWR

#2,$ERRPC
@SERRPC.SITEMB

057700

057502 032737
057510 001414
057512 042737
057520 113737
057526 112737
057534 000402

IBSAVE

SUB
MOVB
BIT
BNE

121554

000001 057700
000001 177766
001130 057702
000177 001130

: :ERROR=EMT AND N=ERROR ITEM NUMBER

#8IT10.3SWR
1$

18:
001132
001130

162737
117737
032777
001060

INCB
MOV

BEQ

BIT
BEQ

121614

000002
121542

057356
7364

ERROR

BEQ

$BELL
$ERTTL
(SP) ,$ERRPC

#8IT09,3SWR
1004$

#177,S1TEMB
1004$
IBSAVE
10038
#-1,CPSAVE
1004$
ERRVEC,=(SP)
#10008 .ERRVEC
}55726- CPSAVE

1004

..RING BELL
*COUNT THE NUMBER OF ERRORS
SiGET ADDRESS OF ERROR INSTRUCTION
;:STRIP AND SAVE THE ERROR ITEM CODE
:iSEE IF LOOP ON ERROR IS SET
: :BRANCH AROUND ROUTINE IF SO

..ses IF THIS IS THE POWER FAIL CALL
: *BRANCH AROUND ROUTINE IF IT IS
..see IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
*BRANCH IF SO
..ses IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
: *BRANCH IF SO
..SAVE CONTENTS OF ERROR VECTOR
::SETUP 'TRAP' RETURN ADDRESS
ZMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
;:SET CPU ERROR REGISTER TIMEOUT INDICATOR

*:SETUP RETURN ADDRESS
: *BRANCH IF SO

#81T00, CPSAVE ..sse IF Pouen MONITOR BIT IS SET IN CPU ERR REG
BIT
0
*BRANCH IF
1004$
BEQ
mmmm&.ammmnmmm
BIC
MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL
MOVB SITEMB, IBSAVE
S:SET SITEMB TO SPECIAL POWER FAIL POINTER
#177,S1TEMB
MOvB
BR
1004$
:BRANCH OVER IBSAVE CLEARING

JSR

PC,ERRTYP

..eo TO USER ERROR ROUTINE

SEQ 0243

104401

001217

122737
001027
113737
004737
000
000
000777
105737

000001

001242

001130
062616

057604
21%:

22%:
2$:

057702

001000

121316

057702

105737
001210
000002
000000
000000

057702

3s:

4$:

001210
054302

-SCRLF
#APTENV,SENV

2%
$ITEMB,21$
8C.$ATV4

000042

5%:

6$:

: .WORD
CPSAVE
:
AVE
-WORD
IBS

:;RUNNING IN APT MODE
:iNOSKIP APT ERROR REPORT

SET ITEM NUMEER AS ERROR NUMBER

..nspom FATAL ERROR TO APT

0
22%
§gSAVE

..SEE IF IBSAVE IS LOADED

aSWR

::HALT ON ERROR

001124
001210

208:

121332

v vV

el=l=lolololelelololalalolo)

CZRNBAO RM8O DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 25-1
ERROR HANDLER ROUTINE

sAPT ERROR LOOP

s sBRANCH IF NOT = NO HALT ON PWR MON BIT ERROR

..SKIP IF CUNTINUE

ssHALT ON ERROR!
::TEST FOR CHANGE IN SOFT=-SWR

..LOOP ON ERROR SWITCH SET?

281709.GSUR
$
SLPERR, (SP)
ggSCAPE

..FUDGE RETURN FOR LOOPING

$ESCAPE, (SP)

::FUDGE RETURN ADDRESS FOR ESCAPE

#SENDAD ,a#42
6$

ssACT=11 AUTO-ACCEPT?
NO
..B?ANC IF

IBSAVE
78

2sSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
..g:?figfl BACK TO CALL ORIGINAL ERROR

0
0

:BR IF NO

..g;figg FOREAN ESCAPE ADDRESS

::LOCATION TO SAVE CPU ERROR REG CONTENTS
:;LOCATION TO SAVE ITEM BYTE

SEQ 0244

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

ERROR TYPEOUT ROUTINE

.SBTTL

ERROR TYPEOUT ROUTINE

J*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION

tREGARDING THE DETECTION OF AN ERROR AS FOLLOWS:
LUNIT NUMBER,

DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND

*PROGRAH COUNTER ARE PRINTED ON THE FIRST LINE;

.ERROR MESSAGE IS ASSEHBLED. FORHATTED AND PRINTED ON

'ONE OR MORE SUCCEEDING LINES;

.PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED

1
}

13
14
15
}
1
1

tAFTER THE ERROR MESSAGE.
0577
057706
057714
057716

104414
032777
001402
000137

020000

121240

ERRTYP: SAVREG
BIT

BEQ
JMP

060514

#5W13,aSWR
13
27%

IgHIBIT TYPEOUTS??

YES!!

;TYPE UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER, AND

*PROGRAM COUNTER
,SCRLF
TYPE
is:
.ERTY00
TYPE

001217
060530
001234

MOV

TYPOS

.BYTE
.BYTE

$UNIT,=(SP)

:TYPE "DRVA''

;2SAVE SUNIT FOR TYPEOUT
;s TYPE DRIVE NUMBER
560 TYPE-=OCTAL ASCII

s:TYPE 3 DIGIT(S)

3
0

: sSUPPRESS LEADING ZEROS

;TYPE °*DRIVE TYPE', RMB0 FOR UNIT UNDER TEST
MoV
$BASE
RO
sGETT RM BASE ADDRESS

MOV
BIC
MOV

060000

28:

060565

38:
060520
001226
060535
060520

060520

CMP
BNE

TYPE

:GET DRIVE TYPE REGISTER
:SAVE DRIVE TYPE BITS AND
:GET ASCII DRIVE TYPE
figDEVICE AN RM8O ?
TYPE 0w o e

:TYPE DRIVE TYPE
:DRIVE TYPE MESSAGE IS STORED HERE

ZIYPE TE%{NUHBE?S ERROR NUMBER AND PROGRAM COUNTER
TNMB
sLOAD TEST NUMBER FOR
MOV

TYPE

MOV

BYTE
BYTE

CLR
MOVE
BEQ
TYPE
MoV

060522

060545
060522

TYPOS

060554

#26,RO
4
,ERTYOS

.WORD

TYPOS

06052
00113

RMDT (RO) ,RO
0177740 RO
#SRMB0,
58

58:

.BYTE
BYTE
TYPE

srssrn TSTNMB

Tyof

fsrune.-(SP)

3
0

ERRNMB
SITEMB,ERRNMB
5%
LERTY02
,
- (SP)
ERRNMB

3
0
.ERTYO03

sTYPE "TSTA''

:2SAVE TSTNMB FOR TYPEOUT
:sTYPE TEST NUMBER
::60 TYPE"OCTAL ASCII
s:TYPE 3 DIGIT(S)
: s SUPPRESS LEADING ZEROS
LOAD ERROR NUMBER

sTYP

¥$IP
}FNO ERROR CALLED

: s SAVE ERRNHB FOR_TYPEOUT
..TYPE ERROR NUMBER
;.60 YPE"OCTAL ASCII
(S)
..TYPE 3 DIGIT(S

: SUPPRESS, LEADING ZEROS

:'fVPE 'PC=’

SEQ 0245

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

ERROR TYPEOUT ROUTINE

001132

46 060064

013746

060070
06007
06007

104403
006
001

49 060074
50 060100
21 060102

005737
oo1oo;
000137

5¢ 060112

105037 060526

55 oeo11g
56 060122

105037
013700

060514

58 060132
§9 060136

001003
012700

61 060142
62 060144
63 060146
64 060150
22 060154

006300
006300
006300
062700
011001

g; 060156

001507

060527
ososz;

78:

060572
8s:

001532

9s:

00150
010237

7% 060176
75 060176
;9 060200

112203
001454
122703

78 060206
79 060212
8 060%16
a1 060 gg
82 060222

105037
000770
122703
001765
122703

060527

84 oeos
85 060234

105237
132737

060527
000007

060332

73 060170 005037 060524

86 060242

00137

11$:

000015

128:

000011
060527

138:

CLRB

BOTFLG

cMP8

#177.R0

B8R

TYPE

ASL
ASL
ASL
ADD
MOV

060524

B
1 e
98 06031 013902 0332

mov

BEQ
MOV

CLR

MOVB
BEQ
CMPB
CLRB
BR
(MPB
BEQ
CMPB

BNE

INCB
BITB

BNE

14$:

90
060336 Qot00s
o0 40
91 060260 01 ; ; 0524 '
3 gggz 4 ;5 345 00100 060527 158:
01370;

RRNMB

5
278

BNE

000012

57 060%66
060,
i 5; 7 830527

gg 060274

s TYPE LEADING ZEROS

$CRLF

CHRCNT
ERRNMB , RO

as
#PFECH,RO

B8R
INCB

WAS AN ERROR CALLED?

BR IF YES
:NO==EXIT

sYES=TYPE CRLF

:CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OF
;SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
:BRANCH IF NOT
:MOVE POWER FAIL ERROR CALL TABLE TO RO

RO
RO
RO
#SERRTB=8.
R0
(RO) ,R1

sFOUR _ENTRIES IN ERROR

19s

:BRANCH IF NO ERROR MESSAGE

TYPE THE ERROR MESSAGE

f0s:

71 060162
72 060164

::SAVE SERRPC FOR TYPEOUT
::TYPE PROGRAM COUNTER
::60 TVPE-'OCTAL ASC{l
::TYPE 6 DIG

sne
JMP

BEQ

70 060160 o1z1o§

as%m% 001007

6
1

BNE
MOV

204 00100

TYPOS
BYTE
BYTE

CLRB
MOV

57 06012% 122700 00017

60 060140 000405

SERRPC,=(SP)

ENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0

060522

s§ oeo1og 104401 001217

MOV

(R1)+,R2

198
°
R2,18$

ABLE

?}BPgINTS TO ERROR MESSAGE

sR2=ADDRESS OF MESSAGE STRING
:BRANCH IF END OF MESSAGE

(Rz>+.a3

:LOAD ADDRESS OF STRING
:CLEAR BOT ADDRESS
:Egb'?F STRING??

ccn.as

fisRRIAGE RETURN??

BOTADR

12$

CHRCNT
118
#LF.R3
18
#HT.R3

148

CHRCNT
#7,CHRCNT

sYES!!

YES-CLEAR CHAR COUNT
YES-GET NEXT CHARACTER

.HOA{ZONAL TAB??
:NO!
;ADJUST CHARACTER COUNT

15$
CHRCNT

; INCREMENT CHARACTER COUNT

BNE
MOV
Sflfg

?és""
2.BOTADR
z..cuacNt

FSPACE??

Hov

ag;AonR4

sst ADDRESS OF LAST SPACE

e siur
18$.R2

MOV

ESAVE ADDRESS OF SPACE
: no.o LINE??

:BRA
Ec?
IF SPACE DETECTED

:CLEAR HARACTER COUNT

:SET UP R2 FOR TESTING

=4
-\
VIO W
NNVNOO
NN
O
NN HWO WWO
NNNNNINN=N

b b
OO =

MOVB

#-1,B0TFLG

sREPLACE SPACE

;SET BOT FLAG
:TYPE ERROR MESSAGE STRING
:STRING ADDRESS GOES HERE
HGS STRING TRUNCATED??

.WORD
TSTB
BEQ
TYPE

BOTFLG
10$
S$CRLF

CLRB
MOV
MOV
MOVB

CHRCNT
BOTADR,R2
nz 18$
(R2)

:YES=TYPE CRLF
:CLEAR 30T FLAG
:CLEAR CHARACTER COUNT
;SETUP R2 FOR TESTING
:SETUP 188 FOR TYPING
:RESTORE SPACE

118

;TYPE REST OF STRING

CLRE

TSTB

BOTFLG

(R2$+

:RESTORE R2

: TYPE ERROR HEADER AND ERROR DATA
;R1 POINTS TO ERROR HEADER TABLE
2(R0) ,R1

:BRANCH IF NO HEADER

: (ASSUME _NO _DATA)

:R2 POINTS TO DATA ADDRESS TABLE
:R3 POINTS TO FORMAT TABLE
:PUT HEADER ADDRESS FOR TYPE

208:

001217

060446
0

17%:
18$:

— e

060526

16%:

118
=(R&4)

19s:

LK
RIRR
bguw R RRIRRS
oOONNO

177777

21%:

22%:

WW
W=

NS S Icn
OB I3 o288
3R NRORERN

g gagsess $22322222222
4 A
FRERS FROSNSO

WWWWWW

SEQ 0246

:BRANCH IF END OF HEADERS
: (ASSUHE END OF DATA)

TYPE

24$:

25$:
060562
001217

26$:

27%:

SCRLF

MoV
Mov

208
(R2)+,R4
(R3)+,R5

BMI
BEQ
Mov

243
23$
a(R4) +,-(SP)

25%
a(R4) +,-(SP)

BR
MOV

25%
a(R4)+,-(SP)

TSTB
TYPDS

238:

TYPOC

BEQ
TYPE

(R5)+"

(R4)

268
ERTY04

228

208

TYPE

RESREG
RTS

TSTNMB: WORD
ERRNMG: "WORD
BOTADR: "WORD

BOTFLG: "BYTE
CHRCNT: .BYTE

$CRLF

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

:R4 POINTS TO DATA ADDRESS
:RS POINTS TO FORMAT
:WHAT KIND OF DATA??
:BINARY
:0CTAL

:DECIMAL

HgRE DATA??

:YES=TYPE 2 SPACES
:AND CONT INUE
:TYPE ONC BLANK LINE
:BEFORE NEXT HEADER

0
O
0
8

sTEST NUMBER

:ERROR NUMBER
gSGINNlNG OF TEXT ADDRESS
T

FLAG

:CHARACTER COUNT

CZRNBAQ RM80 DSKLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 26-3
aDRVA3
a9, TESTHA
8, ERR¥3
a8, PC=d
I
a-a

060535
158
159 060545

159
15 8205

ERROR TYPEOUT ROUTINE

54
54

160 060554
161 06056;

}gg 06056

54
040
040

164 060572
165 060602
}23 060606

060602
060608
12

PFECH:

168 060670
}98 060674

060674
103

PFECH2:

171 060706
17% 060710
173 060714
174 060716

060710
057700
060716
00

PFECH3:

+PFECH2 ,PFECH3 ,PFECH4 ;WORDS DEFINING TAELES BELOW

PFECH1:

PFECHG:

P7POWER MONITCR BIT IN CPU ERROR REGISTER FOUND SET?
?CPUERREG?

CPSAVE,O
0.0

SEQ 0247

SEQ 0248

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 27
TTY INPUT ROUTINE

.SBTTL

TTY INPUT ROUTINE

:'fittt.tttt.fit'tlltt'.t't't't.tt..t.fi.ltt..tt.t.'tttt.ttt"t.ttt.

LENABL

LSB

$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLkB

060727

:sNUMBER OF ITEMS IN QUEUE
s INPUT POINTER
s sOUTPUT POINTER
::TTY KEYBOARD QUEUE

0
0
0
1

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:
i
%

060722
060724
000060
000062

JSR
RETURN

$TKINT: CLR

MOV

MOV
ST
MOV
RTS

120162

PC,STKINT

:;CLEAR_COUNT OF ITEMS IN QUEUE

STKCNT

WSTKQSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE

STKQIN,S$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS.
WSTKSRV Q#TKVEC ::INITIALIZE THE KEYBOARD VECTOR
LEVEL &
::
#200,a#TKVEC+2
:3CLEAR DONE FLAG
asTkB

#100,3$TKS
PC

*“ENABLE TTY KEYBOARD INTERRUPT
*SRETURN TO CALLER

;*TK_SERVICE ROUTINE

:#THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:#BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING

:«IT IN THE QUEUE.

$TKSRV: MOVB

120156
177600
000021

BIC

pury

—_\)
=t =

O“‘\PU013

84 g9898833 g

N
~

—

SR
3
—_

8588 BRRBERRRERRRERER
OO
CNDC“QC“DCNDC’
&% g B
RRRANRNS o

:«IF THE CHARACTER IS A "'CONTROL=C'’ (*C) S$TKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE '‘CONTROL=C'* RESTART ADDRESS (SHUT)

000003
062126
060730
062170
000007

18:

000176

001154

000001

060720

001212

asrxg =(SP)
#4C177,(SP)
177

(SP) ,#$XON

::PICKUP THE CHARACTER
$:STRIP THE JUNK

:31S IT A RANDOM XON?

BNE
ST
RTI

308
(SP)+

:2BRANCH IF NO
*SCLEAN RANDOM XON OFF STACK
*SRETURN

CMP
E
TYPE

(SP) .43
%
SCNTLC

::1S IT A CONTROL C?
$SBRANCH IF NO
SSTYPE A CONTROL=C (*C)

$SINIT THE KEYBOARD
::CLEAN UP STACK

JSR
ST

PC.STKINT
(SP)+

SHUT
(SP) 47
28
#SWREG, SWR
63

$3CONTROL C RESTART
$3IS IT A CONTROL G?
:SBRANCH IF NO
*31IS SOFT=SWR SELECTED?
$3G0 TO SWR CHANGE

CMP
BNE
TYPE

#1,$TKCNT
3s

;312 THE QUEUE FULL?
::BRANCH IF NO

JMP
CMP
BNE
CMP
BEQ

,SBELL

*SRING THE TTY BELL

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

SEQ 0249

TTY INPUT ROUTINE

061100 oos7§6
061102

000451

061106 021627 000023
061110 001021
061112 005077 120042
061116 0057;9
120034
061120 105777
061126
0611 g

100375
117745

38:
31$:

120030

061132
061136
061142
061144
061152
061154

042716
022627
001366
012777
oooog;
005237

177600
000021
000100 120006
328:
060720

061166
061172
061174
061200
061204
061210
061216
061220

021627
003002
042716
112677
005237
023727
001003
012737

000175
000040
48:
177516
060722
060722 060727
060726 060722

061160
061164

061226

021627
002405

000002

000140

58:

CMP
BNE
CLR
ST
TSTB
BPL
MOVB

(SP)+

(SP) ,#23
32%
asTKS
(SP)+
asrxs

$3LOOP UNTIL ITS THERE
..GET THE CHARACTER

(SP) ,#140
4

s:IS 1T urrea CASE?
*BRANCH IF YES

#4C1 7 (sp>
(SP)+ 4
318
#100,38TKS
STKCNT

CMP
BGT
BIC
MOVB
INC

(SP) ,M75
113
#40, (SP)
(SPJ+,a$TKQIN
$STKQIN

CMP

BNE

MOV
RTI

EXI

..1s IT A CONTROL=S?
*BRANCH IF NO
..DISABLE TTY KEYBOARD INTERRUPTS
*CLEAN CHAR OFF STACK
..UAxr FOR A CHAR

x; -(SP)

BIC
CMP
BNE
MOV
RTI
INC

CMP
BLT

:;CLEAN CHARACTER OFF OF STACK

MAKE IT 7-BIT ASCII .
..xs IT A CONTROL-O’
*BRANCH IF NO
..REENABLE TTY KEYBOARD INTERRUPTS
*RETURN
..counr THIS CHARACTER

..xs IT A SPECIAL CHAR?
:BRANCH I° YES
*3MAKE IT UPPER CASE
::AND PUT IT IN QUEUE
*:UPDATE THE POINTER
$TKQIN, #$ TKQEND ..eo OFF THE END?
*BRANCH IF NO
5$
THE POINTER
..aeser
QIN
#S$TKQSRT,$TK
s SRETURN

tttt.ttttt.ttttttttttt'ttt'ttttt.tt.tt'ttt.titt'ttttt'.ttttt.tt

tSOFTUARE SWITCH REGISTER CHANGE ROUTINE.
**ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

*«SERVICE THE TEST FOR CHANGE IN sorruARe SWITCH REGISTER TRAP
“«CALL WHEN OPERATING IN TTY INTERRUPTMODE.

061230 022737 000176 001154 $CKSWR: CMP
061236
061240

001124
105777

117714

061244 100121
061246 117746 117710
061252 042716 177600
061256 021627 000007
061262

001300

BNE
TST8

BPL
MOVB
BIC
CMP
BNE

#SWREG, SWR
15
asrxs

x; -(SP)

c*c ?.(SP)
(SP) 47
2

::1S THE SOFT=SWR SELECTED

:;EXIT IF NOT
SIS A CHAR WAITING?

..IF NOT, EXIT
Y
..HAKE IT 7-BIT ASCII
$3IS IT A CONTROL=G?

siIF ug;ltpur IT IN THE TTY QUEUE

ttttttttlttttttttttt't"t'tttttttttttitl.ttt.ttttttttttt.ttttlt

-courROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

**ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL,

AS A RESULT OF A

061264
061272
061274
061%56
061302
061306

123727
001674
005726
004737
005077
112737

“«CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH neexsrefi BEING SELECTED.
001150 000001 &$:
CMPB
SAUTOB,#1
;;ARE WE RUNNING IN AUTO-MODE?
BEQ
2s
:SBRANCH IF YES
*3CLEAR CONTROL=-G OFF STACK
(SP)+
ST
..FLUSH THE TTY INPUT QUEUE
PC,STKINT
JSR
060730
117652
CLR
asfks
*DISABLE TTY KEYBOARD INTERRUPTS
..ser INTERRUPT MODE INDICATOR
#1,SINTAG
MOVB
000001 001151

061314

104401

06214

061330

10440

061320 104401 06214
061324 013743 000176

TYPE

$GTSWR: TYPE
MOV

TYPOC

scanc

.SMSWR
SWREG, = (SP)

::ECHO THE CONTROL=G (*G)

$STYPE CURRENT conreurs
*3SAVE SWREG FOR TYPEOU

2360 TYPE==OCTAL ASCll(ALL DIGITS)

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

TTY INPUT ROUTINE

061 gg
061
061 g
061

104401 062156
005046
oosol.g
105777 117612

198:
78:

061346 100375

061350

061354
061360
061364
061363
061372
061376
061204
061406

117746

042716
021627
00101
1ou.o1
062706
123727
001003
012777

001151

061426 104401 062133

TYPE

(SP).#15

3318 IT A <CR?

PC,S$TYPEC

..ECHO CHAR

061440

021627

000015

108:

CMP

061542
061544
061546

00140
00631
006316

000004
000002 117472
11$:
000006
148:
001217
001151 000001
000100 117450
15$:
168:
056246
000060
000067
000060
000002

061550
316
061552 005266 ogoooz
061556 056616 177776

178:

001216

188:

061562 000667
061594 104401
061570 000720

: SCONTROL=C RESTART

ADD

061436 000737

061533 005766

SHUT

S:MAKE IT 7-en ASCI1I
::1S IT A CONTROL=C?
*BRANCH IF NOT
tIYES, ECHO CONTROL=C (*C)
:3CLEAN UP STACK
..REENABLE TTY KEYBOARD INTERRUPTS?
:;BRANCH IF NO
SSALLOW TTY KEYBOARD INTERRUPTS

::18 IT A CONTROL-U?
:*BRANCH IF NOT

021627
15
042726

::PICK UP CHAR

(SP) ,#25
108
scunu

20$:

@$TKB,=(SP)

$:IF NOT TRY AGAIN

CMP
BNE

JMP

000006

;
021627

PROMPT FOR NEW SWR
*:THE NEW SWR
$:CHAR THERE?

SSCLEAR COUNTER

98:

000001

062706

001022
005766
001403
016677
062706
104401
123727
001003
012777

,SMNEW
-(SP)
asrxs

<(SP)

#°C177,(SP)
(SP) .43
13
,SCNTLC
#6,SP
SINTAG.M
8s
#100,a8TKS

061432

061444
061446
061452
061454
061462
061466
061472
061500
061502
061510
061512
061516
061522
061524
061530
061532

SEQ 0250

BIC
CMP
BNE
TYPE
ADD
(MP8
BNE
MOV

000100 117544
8s:
061414 000137 062170

061420 021627 000025
061424 001005

BPL

MOVB

117606

177600
000003
062126
000006

TYPE
CLR
1ST8

CLR

BNE
ST
BEQ
MOV
ADD
TYPE
(MP8
BNE
MOV
RTI
JSR
CMP
BLT
CMP
BGT
BIC

16$
4(SP)
118
2(sP).asua
#6,SP
SCRLF
$INTAG.M
15$
#100,387KS

BEQ
ASL
ASL

178
(SP)
(SP)

ASL
INC
8IS

BR
TYPE
BR

(SP) ,#60
18$
(SP) ,#67
18$
#60, (SP)¢+

..ves. ECHO CONTROL=U (*U)
PREVIOUS INPUT

:IGNORE
S TRY IT AGAIN
..LET

*BRANCH IF NO
IYES, IS IT THE FIRST CHAR?
: sBRANCH_IF YES
*SAVE NEW SWR
:3CLEAR UP STACK
..ECHO <CR> AND <LF
:SRE-ENABLE TTY xao INTERRUPTS?
*:BRANCH IF NOT
:*RE-ENABLE TTY KBD INTERRUPTS
: SRETURN
*CHAR < 0?
BRANCH F YES
.
:5CHAR >

: sBRANCH ur YES

2(SP)

$:STRIP=OFF ASCII
::1S THIS THE FIRST CHAR

(SP)
=2(SP), (SP)

i __ROOM FOR NEW ONE.
KEEP COUNT OF CHAR
2SET IN NEW CHAR

2(sP)

78
$QUES
208

*BRANCH IF YES
..no. SHIFT PRESENT
'CHAR OVER TO MAKE
25

:3GET_THE NEXT ONE
STYPE 7<CRO<LF>
$SSIMULATE CONTROL=U

-4 ; (1222222222223 2223232333232 3330332330322 3 3233322330

it ddddd])

KLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 27-3

SEQ 0251

tE:{E ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
* %

000004 000002
000004
061616

D cd D d e

oonONOn

gY S

D e

IIIIIEIER

V1V,]

Hd
i
.'

060720

— e

b amd

D o

SRR

oOn

060720
177070 000004
060724
060724 060727
060726 060724

RDCHR
RETURN HERE

$RDCHR: MOV

(SP) ,=-(SP)

:2GET A CHARACTER FROM THE QUEUE
*3CHARACTER IS ON THE STACK
::WITH PARITY BIT STRIPPED OFF
..PUSH DOWN THE PC AND

*THE PS
..GET READY FOR A CHARACTER
2:PUT NEW PS ON STACK
Pu NEW PC ON STACK

648

MOV
CLR
CLR
MOV
RTI

usps 2(sP)
L(SP
-( P)
0668 =(SP)

1$:

%;KCNT

28:

DEC
MOVB
INC
g‘lg
MoV
RTI

:DECREMENT THE COUNTER
STKCNT
9$TKQOUT&4 (SP) ..GET ONE CHARAC ER
:UPDATE THE POINTER
$TKQOUT
SIKOOUTlSTKOENDDIDCITIGOugrr OF THE END?
”TKOSRT.‘TKWJT :RESET THE POINTER
..keruau

..POP NEW PC AND PS

2:WAIT ON A CHARACTER

ttttttttttttttttttttt'ttttttttttttttttttttt.ttttttttlt'tfitttttt

'ER{E ROUTINE WILL INPUT A STRING FROM THE TTY
o

NEPoNaS
P
e Y

o
-n-.-.oge-.
88 2-‘0'\)
222888
N =2\
SRS§fl
&a \nuflb\l NONONS
NS
N
S323%
o
- NS NN = NN
NV NN = O
W
o

S
) b b b

SIS

) cd —d

) e

d D

d oD wd

d D

NNNNNNNNNNY

b wd =D

A AA

=D —d

RDLIN

RETURN HERE

SRDLIN: MOV

062116
062126

18:
2$:

000177

108:

os;n

062114

177777

062116

68:

062114
062714
5%:

000134 062114
062114
000025

7%:

as -(SP)

JINPUT A STRING FROM THE TTY

..ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
:2TERMINATOR WILL BE A BYTE OF ALL 0'S
::SAVE R3

SP)

.CLEAR THE RUBOUT KEY

BLOS
RDCHR
MOVB
CMPB
BNE
TST
BNE
MOVB
TYPE
MOV
DEC

4$
(SP)+,(R3)
#177.(R3)
58
(SP)
6$
#'\.9%
.9
#-1,(SP)
R3

$:BR IF YES
:G0 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
::1S IT A RUBOUT
S:BR IF NO
:2:]1S THIS THE FIRST RUBOUT?
::BR IF NO
:STYPE A BACK SLASH
:SET THE RUBOUT KEY
.:BACKlP BY ONE

BLO

CLR

MOV
CMP

CMP

#STTYIN.R3
”TTV!N*&.RS

R3#STTYIN

..cer ADDRESS
2:BUFFER FULL?

::STACK EMPTY?
*BR IF YES

(R3),9%
93
$

..serupTO TYPEOUT THE DELETED CHAR.
:G0 TYPE
..GO READ ANOTHER CHAR.

MOVB
TYPE

#°\.9%
.98

..rvpe A BACK SLASH

CMPB

#25,(R3)

MOVB
TYPE
BR
TST
BEQ

CLR

(SP)
7%

..RlBOUT KEY SET?
:BR IF NO

(SP)

::CLEAR THE RUBOUT KEY

::BR IF NO

::18 CHARACTER A CTRL V?

SEQ 0252

SRNS

NN
= b =

22222

[« AV PV
L

=2 NN
=2 NN
= N = =3 N = LION

-g2ZIES
-_—

Sy S8

0000

VIS B

NN =

b b =

FEESURFnrR

ZRRERRERRE

ssszsstas82§-.-._.

NEOEWNSNS
OO0~N~N
nNO W=O =00 — -

MACRO V04.00 14=JAN-82 16:33:00 PAGE 27-4
062133

8s:

000022
001217
062116

g;rs

gcanu

C(MPB

#22,(R3)

BNE
CLRB
TYPE
E{PE

3s
(R3)
,SCRLF
grrvxu

001216

48:

;;Ps

igoues

062114

38:

MOVB

(R3),9$

CMPE

#15,(R3)+

114

000015

TYPE

BNE
CLRB
TYPE
ST
MOV
MOV

177777
001220

MOV
=?¥

000004 000002
062116 000004
9%:

103
125
107
012
040

015
015
015
123

116

2
=1(R3)
JSLF
(SP)+
(SP)+ ,R3
(SP) ,=(SP)

4(SP) ,2(SP)
#STTYIN,4(SP)

BYTE
BYTE
STTYIN: .BLKB

0
0
8.

.ASCIZ

SCNTLC:
SCNTLU:
SCNTLG:
$MSWR:
SMNEW:
.EVEN

000042

SHUT:

004652
001300
054104

18:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

TST

BNE
JMP
CLR
JMP

::TYPE A CONTROL ‘V**
:2G0 START OVER
3319 CHMAP% A "“R'?
: :BRANCH 1

::CLEAR THE CHARACTER
::TYPE A “CRTM & "LF

::TYPE THE INPUT STRING

::60 PICKUP ANOTHER CHACTER
::TYPE A

*2°

*:CLEAR THE BUFFER AND LOOP
$:ECHO THE CHARACTER

:2CHECK FOR RETURN
::L00P IF NOT RETURN

:2CLEAR RETURN (THE 15)

::TYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK
::RESTORE R3

::ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
33
s sRETURN
s STORAGE FOR ASCII CHAR. TO TYPE
s s TERMINAT m
LR

. +sRESERVE 8 BYTES FOR TTY INPUT

/7%C/<15><12>
; sCONTROL ‘'C’
/7*U/<15><id>
**CONTROL V"'
/7%6/<15><12>
:2CONTROL ''G"’
<15><12>/SWR = /
NEW = /

1$
START
$DEVM
$EOP

sANY MONITOR PRESENT ?
:BR IF YES
;60 TO START
sFUDGE NO DRIVES IN MAP
;RETURN TO SEOP

CZRNBAO RM8O DSKLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 28

SEQ 0253

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL

::ttttttttt.ttttt.tttt""Ctt'ttttttttttttt.'ttttt't"tt.ttttt.'t

S*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
"Eflf_‘{‘“ IT TO BINARY.

i
i
i

RDOCT
RETURN HERE

062212

011646

$RDOCT: MOV

062230
062232

10441
012600

18:

062236
062240
2642
244

005002
112043
00141
006301
006102
006301
006102
006301
006102
042716

062214 016666 000004 000002
062222 010046
062224 010146
062226 010243

062264
062266
062270
062272
062276
2302
2
2

062310
062312

28:

177770

062601
000764
005726
010166 000012
010237 062312
01%602
012601
012600
000002
00C000

RDLIN
MOV

CLR

06%234 005001
062246
062250
062252
062256
062256
062260

MOV
MOV
MoV
MOV

38:

CLR
MOVEB
BEQ
ASL
ROL
ASL
ROL
ASL
ROL
BIC

ADD
BR
ST
MOV
MOV
MOV
MOV
MOV

RTI
$HIOCT: .WORD

(SP) ,=(SP)

4(SPJ ,2(SP)
RO,=($P)
R1,=(SP)
R2.=(SP)
(SP)+,R0

R2
(RO)+,=(SP)
3s
R1
R2
R1
R2
R1
R2
#4C7,(SP)

(SP)+,R1
2
(SP)+
R1,12(SP)
R2.SHIOCT
(SP)+,R2
(SP)+.R1
(SP)+.RO
O

:sREAD AN OCTAL NUMBER
*:LOW ORDER BITS ARE ON TOP OF THE STACK
*:HIGH ORDER BITS ARE IN SHIOCT

::PROVIDE SPACE FOR THE

+3INPUT NUMBER
::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK

$:READ AN ASCIZ LI
:2GET ADDRESS OF 1ST CHARACTER

::CLEAR DATA WORD

::PICKUP THIS CHARACTER
*3IF ZERO GET OUT
11w
sivh

;:%8
:3STRIP THE ASCII JUNK

SSADD IN THIS DIGIT
+:L00P
*:CLEAN TERMINATOR FROM STACK
:3SAVE THE RESULT
::POP STACK INTO R2
$:POP STACK INTO R1
$:POP STACK INTO RO
: SRETURN
*:HIGH ORDER BITS GO HERE

SEQ 0254

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 29
TRAP DECODER

.SBTTL

TRAP DECODER
L

Dy L

L L

b ibiinaieietiiriedaviinr iyl

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP'' INSTRUCTION
s«AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

;*GO TO THAT ROUTINE.

§§~ =

g g S2282K2

STRAP:
1$:

253”% §-§SP)

MoV

RO,=(SP)

RTI

~
&~

Movse

MoV

$TRPAD (RO) ,RO

ASL

g g

#1$,-(SP)

Z(SP) RO
(RO)
(RO) RO

MoV
TST

prd

MOV
BIC
MoV

RTS

..ASSW THE STATUS OF
:: THE CALLER=-DO NOT ALLOW
s T=BIT _TRAPS

::SET _THE NEW STATUS
..GET TRAP ADDRESS
: sBACKUP BY 2
..GET RIGHT BYTE OF TRAP

::SAVE RO

sPOSITION FOR INDEXING

..INDEX TO TABLE
::G0 TO ROUTINE

;:THIS 1S USE TO HANDLE THE "‘GETPRI'* MACRO
000004

000002

$STRAP2: MOV

MOV
RTI

.SBTTL

(SP) ,=(SP)

4(SP),2(SP)

::MOVE THE PC DOWN

..nove THE PSW DOWN

:SRESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE "‘TRAP'* INSTRUCTION.
:

ROUTINE

$TRPAD: .WORD

STRAP2

;:CALL=TYPE
..CALL TYPOC
::CALL=TYPOS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)

TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

$GTSWR

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

$CKSWR
SRDCHR
SRDLIN
$RDOCT

;. CALL=CKSWR
;;CALL=RDCHR
..CALI.'RDLIN
;;CALL=RDOCT

TRAP+10(104610) TEST FOR CHANGE IN SOF T-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP+1§(‘|0“‘I§) TTY TYPEIN STRING ROUTINE
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY

$TYPE
$TYPOC
STYPOS
STYPON
STYPDS
STYPBN

::CALL=TYPON
::CALL=TYPDS
::CALL=TYPBN

$SAVREG ..CALL'SAVREG
$SRESREG ;;CALL=RESREG

TRAP+14(104414) SAVE RO-R5 ROUTINE

TRAP+15(104415) RESTORE RO-R5 ROUTINE

SEQ 0255

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

POWER DOWN AND UP ROUTINES

.SBTTL

POWER DOWN AND UP ROUTINES

e
— e

062562
000340

000024
000026

POWER DOWN ROUTINE
#si bLUP FPWRVEC :SET FOR FAST UP
$PWRDN: 385
#340,a#PURVEC+2 ;:PRIO:7

MOV
MOV
MOV

::PUSH RO ON STACK
::PUSH R1 ON STACK
: SPUSH :g ON STACK
$:PUSH R3 ON STACK
:2PUSH R4 ON STACK
::PUSH RS ON STACK
::PUSH @SWR ON STACK
aSWR,=(SP)
::SAVE SP
SP,$SAVR6
#SPWRUP ,3#PWRVEC ;;SET UP VECTOR

MOV
MOV
MOV
MOV

$! ¢D<>§E
e

N
~\w
8
WSS
NN OONONONNN

N
N~
W

OO0O0O0O0O0O0O0O0O00

:‘tt..Qi't..lt.i.t'."'t""ttt'ttttfit.tt.ttfi.tttl.tt.'.t'..tlttt

000024

RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,=(SP)

: :HANG UP

062570

NON

000024

:POWER UP ROUTINE

$PWRUP: MOV

MOV

W
~

1$:

062422
00034 0

000024
000026

120

: 2GET SP

ssWAIT LOOP FOR THE TTY
ssWAIT FOR THE INC
::0F WORD
:;POP STACK INTO aSWR
$:POP STACK INTO RS
$:POP STACK INTO Ré&

CLR
INC
BNE
MoV
MOV

MOV
MOV

$:POP STACK INTO R3
$:POP STACK INTO R2
$:POP STACK INTO R1
$3POP STACK INTO RO
(SP)+.RO
#SPWRDN,a#PWRVEC :;SET UP THE POWER DOWN VECTOR

MOV
TYPE
S$PWRMG: ég?RD
SILLUP: HALT
BR

012

#SILLUP,3#PWRVEC ;:SET FOR FAST DOWN
$SAVR6
$SAVR6
1$
(SP)+,aSWR
(SP)+.R5

o
Y]

116430

=O000000000

.a.‘.._ha.a.._thBSflgfafa

VIWVINND

;;tttttttttttttttttttttttttttttttttttttttttt'ttttfit.tttt.tt.ttttt

$SAVR6: 0
$POWER: .Asgg‘z

#340,34PWURVEC+2 ;:PRIO:7
*REPORT THE POWER FAILURE
:;POWER FAIL MESSAGE POINTER
$POWER
=2
<15><12>"'POWER"’

;sTHE POWER UP SEQUENCE WAS STARTED
s 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

000001

063044

$ATY4:

SATY3:

MOVB
MOVB
BR
MOVB

063042
000001

001242

000100

001243

000004
000002
001222

000004

001236

000004
000002
177776
056034

063044

NON

766

163700
006200
0037
2737

2fv
&H

001236

001240
000004

1$:

TST

2%:

TST8

;:70 REPORT FATAL ERROR

#1,$FFLG

;:TO ONLY REPORT FATAL ERROR

fvc

?HSGTYPE

RO, $MSGAD

(RO)+

062754
000004

#2,4(SP)

118:

001222

001224
000004

APTSIZE =200

APTENV = 001
APTSFOOL= 100
APTCSUP = 04V

ssPUT LENGTH IN MAILBOX
:sTELL APT TO TAKE MSG.

::PUSH 199776 ON STACK

$FFLG

..SHOULD REPORT FATAL ERROR?

@4 (SP) ,SFATAL

..RUNNING UNDER APT?
s1F NOT: BR
..;gNISHED LA?; MESSAGE?
::GET ERROR #

12$
SENV
128
??SGTYPE

CLRB

.BYTE
.BYTE
.BYTE

:SUB START OF MESSAGE

..GET MESSAGE LNGTH IN WORDS

177776 ,=(SP)

BUMP RETURN ADDRESS

:3CALL TYPE MACRO

sIF NOT:

BUMP RETURN ADDR.

s TELL Afif TO TAKE ERROR

t%CLEAR FATAL FLAG

F
*SCLEAR LOG
+:CLEAR HESSAGE FLAG

(SP)+.R0

SMFLG:
SLFLG:
$FFLG:

sPUT ADDR IN MAILBOX

..FIND END OF MESSAGE

:;PUT MSG ADDR IN JSR LINKAGE

#2,4(SP)

128:

"f“ué'50NEIH/ LAST XMISSION?

a4 (SP) ,4%

PC,STYPE

TST

::TO TYPE A MESSAGE

RO,=(SP)
..PUSH RO ON STACK
R1,=(SP)
:PUSH R1 ON _STA
SMFLG
..SHOULD TYPE A HESSAGE’
¢IF NOT: BR
5%
#APTENV,SENV
..OPERATING UNDER APT?
sIF NOT: BR
$
gAPTSPOOL.SENVH ..§¥005D SPOOL MESSAGES?
B8R
$
ADDR.
GE
MESSA
@4 (SP) ,RO
::GET
BUMP RETURN ADDR.
#2,4(SP)

001222

%g 001242
000004
00

01 SFFLG
SMFLG

2%
$MSGAD ,RO
RO
RO,SMSGLGT
gg.SHSGTYPE

=
;e

NS o

o
o

8: N NN

NO NS

WIS

O = —b
SuS~e
- ) =2 ) = Y =]

—_O0

NoOor

—

WO WW
NWNN

NN
NN
N
~

i gu—y

§ATy1:

?10037

—

N
&~

062706

o
O
N
~

063044
063042

NSO

2
3
N

062674

062676

APT COMMUNICATIONS ROUTINE

2222222222222 3 3232223232232 2333333323332 3 322222233333 dddiiiiddl)

000001
000001

gé

.SBTTL

0
0
0

*3POP STACK INTO R1
..POPUgTACK INTO RO
:RET

..HESSG. FLAG
:LOG FLAG

::FATAL FLAG

CZRNBAQ RMBO DSKLS PT1 MACRO V04.00 14=-JAN-82 16:33:00 PAGE 32
CONSOLE MESSAGES

21 063512
22 063517
23 063534
24 063551
25 063566
26 063605
27 063616

122
040
040
040
040
040
040

115
116
114
116
116
117
117

070
117
117
117
117
106
116

$RM8O:
NOTRM:
LODEV:
NOTPRS
NOTAVL
UNTOFF
UNTON

28 063626
29 063630

30 063632
31 063633
32 063634
33 063635
34

104
200

116
131

040
040
040
040

122
125

000
000

000

111
116

MSGDRV
SYSTAT

N:
Y:

BLNKS4
BLNKS3
BLNKS?
BLNKS1
.EVEN

a=e
@ALLa<CRLF>
a?a
a9, 9
<CRLF>QTYPE HELP TEXT (L) N? @
<CRLF>3RMCS1=a

@ LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
VEC=
aRMVEC=a

@ LIMITS = LO= 0, HI= 10008<CRLF><LF>
<CRLF>@TYPE ''A’' TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
:Egt;;flkflb TERMINATE INPUT WITH A CARRIAGE RETURN.3
@ ?2ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S) TO BE TESTED/
/NONE/
<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/

/RM80/
/ NOT _AN_RM80/
/ LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
/ ONLINE/
I/N/
N/
//
//
//

CNSLO8
CNSLO9
DRIVES
NONE:
MSDRVS

111
122
116
122

e NG N N NS NS NI N N N NI NI NI NI N N e N e NI NI NN

077
104
117
104

TN B B

114
040
000
131
115
111
126
111
131
116

(alalzlslalslislislislslslslslialslelelsls
iyl alalslalalslelels]
B By g g g g g B B
g g (g B b B
g g By by Bt Gt Gt Bt B B
g g By b

000
114
077
040
124
122
114
115
114
124
101

[

075
101
040
054
200
200
040
122
040
200
200
200
040
200
116
200

EQUALS : JASCIZ
ALL:
LASCIZ
QUES
¢
MSHELP
CNSLO1
CNSLO2
CNSLO3:
CNSLO4:
(CNSLO7:

3 063046
& 063050
5 063055
6 063061
7 063064
8 063115
9 063125
10 063167
11 063176
1% 06323;
13 06331
14 063374
15 063375
16 063416
17 063445
18 063452

19 063466
20 063474

CONSOLE MESSAGES

.SBTTL

SEQ 0257

SEQ 0258

CZRNBAO RM80 DS%EEPTT MACRO V04.00 14~JAN-82 16:33:00 PAGE 33

FUNCTION CODE T
V0NV W= OVONT VIS W SEVEYRRRUR IS WONOWVISWN=O

.SBTTL

FUNCTION CODE TABLE

sTHE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR

:EACH FUNCTION CODE.

BIT USAGE IS AS FOLLOWS:

ATA= BIT 15 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE

NN PON) = =D cd b b b e = e ek

IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED. OTHERWISE,
BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
IT IS NOT EXPECTED AS A RESULT OF THE COMMAND.
WCE = BIT 14 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

OP]1 - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
WLE = BIT 11 IS SET IN THE ENTRY FOR A GIVEN FlNCTl(N CODE

IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF
T

COMMAND .,

:THE WRITE ERRORS WHICH ARE ENABLED ARE "WLETM, ‘WCF'', "DPE" "UPE"".
IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
; COMMAND.

THE ERRORS ENABLED BY THIS BIT ARE '‘TRE'', "DLT"', "NEM",

'HXF" ‘Ler’,

*AOE"".

BIT 08 IS NOT USED.

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
;HEADER ERRORS INCLUDE '‘HCRC'', "MCE'*, 'FER'*, AND ‘BSE''.

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FWCTIW CODE

IF DATA FIELD ERRORS ARE ENABLED DURING, THE EXECUTION OF
;COMMAND. THESE ERRORS INCLUDE 'MDPE’, ‘DCK'’, AND “ECH".

BIT 05 IS NOT USED.
BIT 04 IS NOT USED.

BIT 03 IS NOT USED.
BIT 02 IS NOT USED.
BIT 01 IS NOT USED.

ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.
FNCD18B:

57 063640

020000

.WORD

sFUNCTION CODE TABLE
OP]

:NOP

U‘Ug ;

800

Seoossss582stg8

b
e
—

st 2 2 DO S = OO
b b b b —-—
-t ad OO

NS NOONSN

R RRRRRRRRRR

CODE TAB

WVIVY

2
OINNITEIRERER
2SS

SEQ 0259

RMB0 DSKLS PT1 MACRO V04.00 14=~JAN-82 16:33:00 PAGE 33-1
.WORD
.WORD
.WORD

OPI!ATA!ILF!IVC
ATA!OPI!IVC!IAE
ATA!OPI!IVC
1!1VC

OPIIATA!IVC

OPIiATAIIVC
0PI
0Pl
OPI!ATA!ILF!IVC

ILLEGAL FUNCTION (2)
s SEE

;RECAL IBRATE

DRIVE CLEAR
sRELEASE
;OFFS ET

:RETURN TOEEgTERLINE

:READ IN

:PACK ACKNOULEDGE

;ILLEGAL FUNCTION

sILLEGAL FUNCTION
LLEGAL FUNCTION
LLEGAL FUNCTION
LLEGAL FUNCTION
LLEGAL FUNCTION
LLEGAL FUNCTION
LLEGAL FUNCTION

OPIIATAIILFiIVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
WCE'!OPI!IVC!IAE!AOE!HCE!ECH
WCE!OPI!IVC!IAE'!AOE!HCE!ECH
OPI'ATA'ILF'IVC
OPI!ATA!ILF!IVC
! AOE 'HCE
! TAEiWLE
OPIiIVC
OPI!IVC!WLE!IAE'AOE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

;WRITE CHECK HEADER AND DATA
:ILLEGAL FUNCTION (54)
;ILLEGAL FUNCTION (56)
:WRITE DATA
;WRITE HEADER AND DATA
;ILLEGAL FUNCTION (64)
;ILLEGAL FUNCTION (66)

IECH
HCEAOE
OPIiIVC!IAE'
OPI!ATA!ILF!IVC
OPI'!ATA!ILF!IVC

:READ HEADER AND DATA
:ILLEGAL FUNCTION (74)
:ILLEGAL FUNCTION (76)

OPIi1VCiIAE!AOE 'HCE'ECH

s ILLEGAL FUNCTION

sWRITE CHECK DAT.

:READ DATA

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE 34
ATTENTION (ATA) TABLE

g 063740

4 0637641
5 06374
6 06374
7 063744
8 063745
9 06374
10 06374

001

002
004
010
020
040
100
200

.SBTTL

ATTENTION (ATA) TABLE

.BYTE
ATNTBL: .BYTE

BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

2.
&.
8.
13.
32.
64.
128.

SEQ 0260

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

DATA PATTERN TABLE

.SBTTL

DATA PATTERN TABLE

RGDTPT:

0.
1.
;
:

S 063750 000000
906 752 000001
063754 000003
8 063756 000007

W0
"WORD
WOR
WOR

fetes dae
10
1 oe$7 000177

o
-WORD 1;7.
5.

9 oegr

"WORD

000017

003777
007777
017777

gette Larrr
R wm
177777
5?
58 00u01s Orrrry

01777y
%%26 004038
064022 007777
27 064024

~WORD

"WORD
"WORD
-

R8s
NRD
-WORD 4095.
"

003777

~WORD

"WORD
"WORD
"WORD
"WORD

000077
000037
000017
000007

38 064052 000000

39 064054
40 064056
41 064060
42 064062

000000
000001
000002
000004

47 064074

000200

49 064100

001000

004 58
oooon
'45i:"fi %“‘
064070
000040
46 064072 000100
48 064076 000400

2047.

S5
‘Yo
.WORD 255.

0640346 000177

32 064036
33 064040
3% 064042
35 064044

2047.
4095.
8191.

o &18
sgsi
ONES: .WORD
‘Yory $37¢7:

004030 000rr?
28
30 064032 000377
31

3
511
~WORD
1023.
“

000377
3770
000777
821;772
}tg.15 oe*gm
001777
16 063776
17 064000
18 064002

15.

ZEROS:

.WORD
WORD
JWORD
WORD
"WORD

1§7.

63.
31.
15.
7.

0.
1.
2.
4.

'fig ?'
-WORD
33.
"WORD
66,
"WORD

-WORD

"WORD

128.

gsa.

512.

084107 062000
29
52 064106
010000

‘YoRD 2048
"WORD

4096.

56 064116
57 064120

"WORD
"WORD

32768.
16384.

851 Gl
355 064114
100000

100000
040000

i
-WORD gzm.

)

SEQ 0261

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

DATA PATTERN TABLE

WORD

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

SEQ 0262

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

DATA PATTERN TABLE

WORD
WORD
WORD
WORD
WORD
WORD
WORD

a=z

WORD

Mv
w Ow

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

SEQ 0263

C
3

SEQ 0264

CZRNBAQ RM80 DSKLSEPTI MACRO V04.00 14~JAN-82 16:33:00 PAGE 36

56 0651564
57 065160

102545

~§
purd

b b =d O

SN =N
DN
PORO
SONS—VAN =2 NININ) =2 NININ) =NN =N OWVIN
purd

NOOOOOO0OOO0O0O0O00O

~N
~
o

~
~
o

~
=b

O
N
N
N
N

102545
55 8251“ 077527

07752

snsgoo.em
EMS301.EMS302,EMS303,EMS1,EMS304
EMS511.EMS500,EMS501,EMSS02,EMS503,0

.WORD

EMS511,EMS502,EMS501,EMS503,EMS504

EMT3:
EMT4:
EMTS:
EMT6:

EMT7:

EMT10:
EMT11:

EMTI2:

EMT13:
EMT14:

EMT15:
EMT16:

EMT17:

.WORD
"WORD
.WORD
"WORD
.WORD

EMS301,EMS306,EMS302
EMS511.EMS505,EMS501,EMS502,0
EMS300,EMS s.enss 7.ens§
EMS511.EMS502,EMS501,EMS503,0
EMS301,EMS31 .ensgn

EMS312,
3
.EMS306,EMS311
.WORD EHSgO‘l
EMS511,EMS502,EMS501,EMS503,EMS504,0

.WORD

.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

EMS301,EMS313.E MS302
EMS501 .EHSS?%.EHSSO‘ .EMS503,0

EMS3
EMS
EMS511,EMS501,EMS502,0
EHSS16.EHS¥ EMS31
EMS511,EMS g‘l .EMS502,0
EMS316,EMS320,EMS314
EMS511,EMS501 .EHSSO;.O
EMS316,EMS320,EMS31
EMS511,EMS301,EMS502.0
EMS316,EMS321,EMS314
EMS511,EMS501 .EHSSO; .0
EMS316,EMS321,EMS31
EMS511,EMS501,EMS502,0
EMS316,EMS322,EMS3
EMS511,EMS501,EMS502,0
.EMS3
EMS316.E

EMT20:

EMT21:

EMT26:

EMT27:

o
N
N
N

Sg 0651

102545

.WORD
"WORD
"WORD

EMT2S:

077545
102545
109349

EMT1:
EMT2:

EMT24:

49 065074
50 065110
51 0651

48 065096

ERROR MESSAGE TABLE

EMT23:

102545
07777
07754

.SBTTL

EMT22:

45 065043
49 065052
47 065060

0650%2 7%77%
l.g
44 065040 07754

NN
S388 ~§SRSSVSVIRVSRERS SRSRERET§°
ViV
NI
WA = 3588 NIAINSS *i\fln::v«:\nCflaC:Udg v =ve:Svi-3

077773
077545
102545

o
N
~
b b e b b
NN =2 N =2 \) =2 N\) =2 N\) -N\) b))
— N
NN = 8N =2 I —a ) =2 ) =
V=N

077773
077545
1025435

D D b oD D cod b md md D D D wmd B b b D D - D ed cd b ed d e

5 064756
gb 064764
7 064772
38 064776
39 065004
40 065012

10;545
077545
10;565

O
N
N
N NN
NN
-2 NN
=2 N
- NN
—
— ] b N =D b

3§ 064734
33 064744
gfl 064752

077545
102545
07777
07754
102545
077545
185545
100137
102545
100137
102545
100137
102545
100137
102545
100137
102545
100137
102545
100137
102545
100137

ol bk
cmad =3

10 064474
11 064502
1; 064514
1 0645%0
14 064526
15 064542
16 064550
17 064564
18 064572
19 064605
20 064610
21 064620
22 064626
23 064636
24 064644
25 064654
26 064665
27 064672
28 064700
29 064710
30 064716
31 064726

077545
10;545
077527
102545

9 064432
06444
8 064452
9 064462

10254

ONONONOONO

5 064416

=D\ =d ) b N b b
VIS
= O W

064376 077527
;& 0646404
077564

ONON
ONONONO
-n_.-n-n-o-.-n-ad-.-.-n-n-n_o.-.-ao-oc
=O =
NN
NDONNINNONN
JICSRINSVIVSRSNS
-\
N
N
b
N
ON
=
N = ON
O b
—d O b b e O b b wd © b b b

ERROR MESSAGE TABL

EMT30:

EMT31:

.WORD
.
.WORD

.WORD
.WORD
WORD
WORD

WORD
WORD
WORD
WORD
WORD

-EM

EMS301,EMS324 ,EMS251
311 ,ERS501
EMS312,EMS g.o
EMS301,EMS323,EMS251
EMS511,EMS501
EMS312,EMS325.0

HSgO‘l .EMS313,EMS251

EMS511,EMS301,

,EMS327 ,EMS254
EMS301,EMS306,EMS252 ,EMS253
EHSS}‘I .ENS30 .SHS 01,EMS502
EMS330,ENS314,
EMS
.Ensgsz
EMS511,EMS301,0
EMS W,Elsg 2
EMSS511,EMS501,EMS504,0

WORD Ezssg??flggog.enssos.o

—

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

SEQ 0265

ERROR MESSAGE TABLE

sg 065170
59

065176

077545

9;54

10211

77117 EMT32:

117
1 gr
103%'37
10211
077117
100277
102115 19;21;
117
1 262
10211
077117
100031

EMT33:

77246

EMT37:

74 065332
102545
75 oesgl.o 077545
76 065352 102545
77 065364 077527
78 065370 102545
79 065376 100365
80 065404 10;545
81 065412 077527
sioesm 102545
077527
83 0654626
102545
84 065432
85 065442 077545

077246
102237
100229 077015
10 g
102115
07 sg
oogogo
10211
07 62; 077152
000000
102115
07 15;
10911
102212
07 15;
102237
102115
100277 077152

EMT41:

87 065456

100330

60 065
§1
61
s§
63 065
64 065240
65 065246
69 065256

67 065
68 065270
9 065276

077545
10;?.
0775645
10;?.
077545
19;54.5
077545
102545
07754
07777

102115
1oo§77
18830

EMT34:

EMT35:
EMT36:

.WORD

EMS301,EMS3 a.snszsz

.WORD
"WORD
.WORD
"WORD
.WORD
"WORD
.WORD

EMS301,EMS324,EMS252
EMS511.EMS501.EMS gl..o
EMS301,EMS324,EMS g
EMS 11.ensg 1.EM$503,0
ensgot.zns 3.5m252
EMS 11.sns§ 1.
EMS301,.EMS313,EMS252

"WORD

"WORD
.WORD
"WORD

EMS511

EMS511.EMS501.0
EMS301,EMS324.EMS255
EMS 1¥.£ns g

323.EMS255
EMS301.EMS
.WORD
EMT40:
39%22
gg
1
077545
065
EMSS511.EMSS
"WORD
71 065312 102545 102

;goes 16 077773
065324 077545

100317
100031

86 065450 19;54.5 102115 10221
077773

EMT43:

EMT44:

EMT4S:
EMT46:

EMT47:

077152
10223

EMTSO:

100262
10211

077152

EMTS1:

100031
102115

077152

077545
102545

100277
102115

91 065506
9§ 065514

077545
102545

9% 065506
95 065534

077545
102545

83 065464
89 065472

000000

EMT42:

90 065500 077773 100330 000000

93 065520 077773 100317 000000

EMT52:

96 065542 100365 07 6?.; 077310 EMTS3:
97 065550 19;54.5 10211

"WORD
.WORD
"WORD
.WORD
"WORD

EMS312.EMS325,0
EMS301,EMS 13.snszss
EMS511.EMS504.
EMS301.EMS323.EMS250,EMS327,EMS255
EMS511.EMS504.EMSS01,EMS503.0

~WORD

snssn.enssm.sns 03

.WORD
"WORD
.WORD
"WORD
.WORD
"WORD
.WORD
.WORD
.WORD

"WORD

EMS300.EMS
EMS511.EMS501,0
EMS331,EMS&,EMS253
EMS511.EmMS501.0
EMS300.EMS253
EMS511.EMSS01,EMS503,0
EMS300,EMS253
EMS511,EMS501,EMS504,0
enssm.enssza.snsgss

EMS312.EMS326.

.WORD
"WORD

EMS301,EMS324,EMS253
EMS511.EMS501.EMS

.WORD
"WORD

EMS301,EMS323.EMS253
EMS511.EMS5

-WORD

~WORD

.WORD
"WORD

ens?z.snsg .0

ensgn.ensgz 0

EMS301,.EMS313,EMS253
EMS511.EMS501.0

.WORD
"WORD

EMS331.EMS4,EMS256
EMS511.EmMS501,0

"WORD
.WORD
"WORD
"WORD
.WORD
"WORD
.WORD
"WORD

EMS 1g.ens g.o
EMS g "EMS323.EMS256
EMS511.EMS501
EMS312.EMS g.o
EMS301.EMS31 .snszse
EMS511.EMS501,
snsgs "EMS332
EMSS11 sng 06,EMS501,0

.WORD

EMS301.EMS324.EMS260

EMS256
EMS301.EMS324.
007099108 EMTS4: .WORD
100277
077545
065556
98
EMSS11.EMS501
"WORD
102115
99 065554 102545

100 065570
101 065576
1o§ 065604
103 065610
104 065616
105 oese;«.
106 065632
107 065636

87 773
0775
102545
077773
077545
19;545
0 342
10254

100330
100262
10211
100317
100031
1851"
100415
'852“

ooggog
077310

EMTSS:

EMTS6:

110 065

077545

100277

07737

EMT61:

100262

oogggo
077374

EMT62:

108 065646
109 065652

111 06567
11; 065674

oosros

11% 065710

102115

EMTS7:

072654 100433
EMT60:
102545 10249; 19;115
10;545
077773

07754

102545

102115
100330

10211

.WORD
‘WORD

"WORD
"WORD

.WORD

"WORD

EMS5,EMS3
<ms511,EMS507.EMS501,0
EMSS511.EM
EMS312.EMS

g.o
EMS301.EMS323.EMS260
EMS511.EMS501

ZRNBAO RM8O DSKLS PT1 MACRO V04.00 14=JAN=82 16:33:00 PAGE 36-2

RROR MESSAGE TABLE

LMORD
.WORD
EMT63:
99292
100031
77545

115 065714

077773

100317

118 065
119 06574

19 545
0 slz'
19;5 5

10211
07317
10211

154. 066000
125 066006

077527
102545

072724
102115

077527

07272%

077545
102545
100607
077527
102545
1007

077374
102115
1ooe§§
0732
102215
o73%s

gr
119
1

1
5750
121 065756
1 oos;ga
123 065772
19066010
066016
127
128 066026
1;3 066036
130 066052
13
133 066076

133 066106
134 066116
135 0661%2
136 066136
137 066142
138 066150

073175
19 545
073175
102545

07 779
102545
072724
102545
072724
102545

139 066156 10254

100457
102115
1ooso§
102115

100433
102115
100457
102115
1ooso§
10;11

EMS511.EMS501.
EMS300,EMS1
EMS51 sn§§ 1,0

EMT67:

.WORD
"WORD

EMS300.EMS
EMS511 eng 01

100340

EMT?0:

.WORD

EMS3

077615
1oz14§
100555

EMT?3:

100652

EMT?6:

.WORD
"WORD
.WORD
.WORD
~WORD
.WORD

Ensso1.ens§60.ensso "EMS11
EMSS511.EMS o1.enssog.o
EMS343.EMS344,EMS342.,0
EMS300.EMS13
snss11.5nssos.o
EMS346.EMS13, EMS34S

oggogg

100555
EMT65: .WORD
‘WworRD
oooogg
EMT66: .WORD
100555
000000
‘worRD

1oz§37
100535 EMT71:
1oz14§
100535 EMT72:
1o;1c§

1o§ 1; 000000

EMT?4:
EMT75:

"WORD
"WORD
.WORD
'WORD
.WORD
.WORD

"WORD

.WORD
"WORD
EMT100: .WORD
"WORD

140 066164
141 066172
14§ 066200
14 322512

100521
1o;sas
077545
102545

073253
102212
100031
102515

100652
000000
077205
000000

147 066250
148 066260
149 066272

1o;sas
077545
105545

10221
100031
102215

10;11
077205

"WORD
EMT103: .WORD
"WORD

20 100702 07332 10054g EMT101: .WORD
144
"WORD
145 066230 102545 102212 10211
.WORD
EMT102:
100542
075325
100521
146 066240
150 066276 073322 100415 000000
"WORD
151 066304 1oorog 073526 100542 EMT104: .WORD
1%mm1w4w?zmn
'WORD
15% 066326 100521 073526 100546 EMT105: .WORD
154 066334 10;545 102212 102115
"WORD

155 066344 077545 100031 077205 EMT106: .WORD
156 066356 1o§sas 10221
"WORD

073526
1oorog
10554
073567
1o§sas
073567
102545
100521
102545

10041
073567
102212
100744
185115
100447
105115
073567
1o§§1;

EMS307.EMS31 .snszco

"WORD
.WORD
"WORD

EMT64:

EMT?7:

157 066362
158 066370
159 066400
160 066410
161 0664;4
16; 066432
163 066444
164 066452
165

EMS312,EMS325.0

100546
10211
850633
oog
100737
000000
100546
10211

"WORD
EMT107: .WORD
"WORD
EMT110: .WORD
"WORD
EMT111: .WORD
‘WworRD
EMT112: .WORD
"WORD

EMS12,EMS335,EMS342
EMSS11 sn§ 01,0
EMS12,EMS336,EMS342
EMSS11,Ems501.0
EMS?,EMS333,0
.ensg EMS327 ,EMS7
EMS511 eng 01,ems504,0
Ensg EMS335,EMS340 5ns1o.£n3333.en5342
EMs511,Ems501,EMS502,0
ensg EMS3 EHSSAg MS10,EMS334 ,EMS342
EMSS11,EMSSO1,EMS502,0

EMS511.EMSS0%.0

EMS337,EMS13,EMS345
EMS511.EMS50%.0
EMS301.EMS313.EMS254,EMS347 ,EM313
EMS511.EMS503.0

EMS346,EMS14 énsm EMS1S5
EMS511.EMSS0%,EMSS01,0
EMS337.EMS14, EMS341,EMS1S

EMS511.EMSS0%.EMSS01.0
EMS301.EMS313.EMS254,EMS347 ,EMS15S
EMS511.EMS503

EMS14,EMS332.0
EMS346,EMS17,.EMS341,EMS16
EMS511.EMSS05,EMS501,0
EMS337.EMS17,EMS341,EMS16
EMS511.EMSS0%,EMSS01,0

EMS301.EMS313.EMS254,EMS347
,EMS16
EMS511.EMS503

EMS17.EMS332.0
Enssbé.ensg EMS341,EMS21
EMS511.EMSS0S engso .0
ensgo Ems351,EMS21,EMS350,EMS22,EMS315
EMSS511 eng 01,0
ensgo EMS334
,EMS350,EMS22,EMS333
EMSS511,Ems501.0
ensgsr.ensig EMS341 ,EMS21
EMS511.EMSS0S sngsoi 0

169 32229 105545
100521 073567
100546 EMT113: "WORD
.WORD EMS337.EMS20,EMS341,EMS21,EMS350,EMS22,EMS334
0
EMS511 ‘"§
102115 ooooog
167

066510

168 066516 073567 1oore§
169 oeossg 1o;sas '8551
170 066540

171 066552

077545

102545

100031

102212

73633 EMT114: .WORD
goog
"WwORD
077205

EMT115: .WORD

"WORD

snsgo EMS352, EMs21,EMS350,EMS22,EMS333
EMSS511,EMS501,
EMS301.EMS313.EMS254 ,EMS347,EMS21
EMSS511.EMS503

SEQ 0266

SEQ 0267

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

RROR MESSAGE TABLE

EMS20,EMS332.0
LMORD
0
073567 100415
56
EMS341,EMS24
§.sns§§
EMS
.WORD
EMT116:
42
1
75;
07
0
7
?
§§§§9«
17§
"WORD EMS511.EMS gi engzoi 0
066574 102545 10 ;1; 10211
174

175 066604 100521 073757 1 542 EMT117: .WORD
.WORD
ggu&u m;u 102212 10211

EMT120: .WORD

077545

100031

077205

179 066642
180 06665
181
1a§ 066670
183 066700

073757
100702
102545
100521
10;545

100415
07411%
102212
074114
185512

.WORD
000000
100548 EMT121: .WORD
-WORD
10211
100542 EMT122: .WORD
"WORD
10;11

186 066726
187 066734
188 066744
189 066752
190 066760
191 066764
19§ 066772
193 067002

074114
077527
102545
100365
102545
074315
100521
102545

100415
074251
102212
074251
102212
100111
074251
102212

.WORD
000000
077651 EMT124: .WORD
"WORD
000000
100776 EMT125: .WORD
"WORD
~WORD
000000
100546 EMT126: .WORD
000000
"WORD

195 067022

102545

1ozz1§

"WORD

178 0666

184 066710
185 066722

19 067010

105545

077545
102545

077545

10221§

100031
1ozz1§

100031

196 067026
197 067036
198 067042
199 067052
200 067060
501 067070

074251
074375
102545
074446
102545
101055

100415
1o1o§;
102237
1o1o§2
102237
074526

203 067110

101055

205 067130
206 067136

100365
102545

07, 6§;
102237

209 067162
210 067166

077425
10;545

519 067264

1o123§

202 067102

204 067122

102545

077205

"WORD

EMT123: .WORD
"WORD

EMT127: .WORD

20 067272

EMS511.EMS50

‘"‘5{ EMS sg.o
EMS346,EMS25 . EMS341,EMS26
snssn.snssot.sngso 0
ens337.ens§s Ems341,EMS26
EMS511.EMS o§.enssoi.o

EMS301,EMS313,EMS254,EMS347,EMSZ6
EMS511.EMS503

ensgs EMs332.0
EMS ob.ensgr EMS307,EMS2
EMS511.EMSS05.0
EMS331,EMS27 EMS353
EMS511.EMSSO0S
enssg EMs315.0
EMS337,EMS27 .EMS341,EMS30
EMS511.EMS50%,0

EMS301.EMS313.EMS254,EMS347,EMS30
EMS511.EMS503

EMS27,EMS332,0
EMS31,EMS354,EMS250
EMSS511,EMS504,EMS503,0
EMS32,EMS354,EMS250
en551i.enssg£ EMS503,0
EMS35S.EMS33,EMS250,EMS341,EMS30

074559 077015

EMT133: .WORD

EMS355.EMS34,EMS250,EMS341,EMS30

077246
000000

EMT134: .WORD
"WORD

EMS331.EMS4 , EMS255
0
EMS511 engs

101515
102 1;

000000

EMT136: .WORD
"WORD

ens§61.ens
EMS511.EMS503,0

077712

075006

EMT143: .WORD

102237

102545 10523

077527
102545
101055
102545
100700
102545
100521
102545

074647
102115
074677
102;37
074 39
102237
074730
10; 3

102545

10211

000000

"WORD

077651
000000
077246
100652
00000
100546
oogo

EMT137: .WORD
"WORD
EMT140: .WORD
"WORD
EMT141: .WORD
"WORD
EMT142: .WORD
"WORD
"WORD

221 067300 100521 o7soog 100546 EMT144: .WORD
"WORD
ooooog
222 067314 1o§54s 10211
223 oorsgg 07 oog 101ozg 101253 EMT145: .WORD
224 0673
10;54 10;11 000000
"WorRD
225 067;44 077545
226 067 ss 102545
101301
227 067362
228 067366 102545

EMS301,EMS313,EMS254,EMS347,EMS24

000
"WORD
077015 EMT130: .WORD
‘WORD
102212
077015 EMT131: .WORD
-WORD
102212
077015 EMT132: .WORD

507 067144 074605 101117 101141 EMT135: .WORD
"WORD
208 067154 1o;sas 102115 000000
511 067174
z1§ 067204
51% 067212
214 067224
215 067232
216 067240
517 067246
218 067256

EMS3 7.ensg Ems341,EMS24
mfiuxmo.mqym

077635
1o§115
075054
102212

074647
102212
000000

EMT146: .WORD
"WORD
EMT147: .WORD
"WORD

EMS511.EMS504,0

EMS511.EMS504,

EMS3S,EMS357,EMS360,EMS1S
EMS511,EMS501.0
EMS300.EMS36,EMS307,EMS2
EMS511.EMS501,0
EMS35S.EMS37,EMS255,EMS341,EMS30
EMS511.EMS504,0
EMS346.EMS4L0,EMS345
EMS511.EMSS04.,0
EMS337.EMS40,EMS341,EMS30
EMS511.EMS504.0
EMS363.EMS310,EMS41

EMS511.EMS501

,EMS253
EMS337.EMS41,EMS341,EMS252,EMS327
EMS511 sngso 0
EMS41,EMS354, EMS364,EMS252,EMS365,EMS253
EMSS11,EMS501,0
EMS301.EMS306.EMS36
EMS511.EMS501.EMS503.0
EMS366.EMS&
EMS511.EMS503.0

101326

100776

101274

EMT150:

7210 185525 18?21; 10806
—
90s%3s
109331
3)35 007el8
EMTIS2:
09000)
101022
007485 075138

% Qerdse
S 06744t
3% erdse

102345
101324
102545

10211
100776
102212

0
101274
000000

ENTISS:

B e
i
Emmiss:
099691
098508
095233
067504
239
%0 067314

211 067822
5¢2 067336

102545

101320
102545

102212

100776
102212

000000

101276
000000

EATISe:

Qorass OT037L 903535 Qoogoq T iovs
003
503 0e7see 101324 100776 101274 EMT160:
B B I
248 067613 Qrrse7 Q7sS2s 017es) EMTI6N:
509 067623
590 067630
531 067636
252 06764
067662
532 067670
S 067704

102545
100321
102545
Q7ag0s
102545
075407
102545

1032212
075325
103212
100is7
102115
100457
102115

000000
100776
102115
100521
000000
100521

000000

EMT162:

ETes:
EMT164:

ENTIES:
00340
Jostis
109351
007718
636
101440
538 067736 075006 1006433
530 067736
580 067746
561 067756
262 067770
565 070000
564 070006

565 070012
266 070020
267 070026
568 070034
569 070044
270 070060
070066

070102
070106
374 07011
275 070126
S7% 070136
72

077527
102345
075447
102545
100521
102343

075447
102545
077545
102545
101324
102545
077527

100346
102345
077527
102345
077327

075407
102115
100457
102115
074603
102115

077651
102212
100535
102212

074556
102115
077633
102113
100776
102113
077015

000000
072556
000000
Q7ssi
10223
101376
000000
100340

Q77310
102115
077013

102237
100548
10223
100546

10264
102115

EMT166:

EMT167:
EMT170:

EMT171:
ETIZe:

EMT173:
EMT174:

EmT17s:
EMT176:

'0zes7 000000 ..,
oT% O701as 005360
100521 075565 100546 EMT200:

570 070136
580 070166
281 070174
282 070204
283 070212
284 070222
585 070530

102345 102113 000000
100700 075363 100546
102115 000000
102545
100700 Qrssig 100546
000000
102113
10545
100700 075565 100652

,EMS354 ,EMS3
EMS367 ,EMS35 3,EMS365,EMS42
EMS511,EMS503,0
EMS337 ,EMS
0
EMS511,EM

36
Ems3ERCS54 Ems36
ENS23. ,emsso
d

emss11

omo

067376

. 555558 5555558 5558 5555558

ERROR MESSAGE TABLE

EMS367.EMS353.EMS365,EMS36,EMS370
EMS511,EMS503
EMS367 EMS353.EMS365,EMS36,EMS371
EMS511.EMS503.,0

. EMS44 ,EMS307,EMS2
EMS300
EMS511,EMSS0S,

65
,EMS44 ,EMS354 ,EMS3
EMS367 ,EMS353,EMS3

EMS511,EMS 03.0
-E MS300,EMS4 5,EMS207,EMS2
EMS51 1.EMS ] o§.o

,EMS3
, EMS354 S4S
. EMS353.EMS365,EM
EMS367
EMS511 ,EMS503 EMS501
EMS35

EMs333,0
EMS300, EMS46 . EMS307 ,EMS2
MS511.E

EMS511 EMSS 05,EM550 1,0
EMS3 5 EMs335,EMS337,EMS41,EMS334 ,EMS372
Ems511,ems501.
$201, 0

EMS4L7 , EMS335 ,EMS337 ,EMS41,EMS335,EMS372
EMsS11,EmS501.0
EMS337.EMS35,EMS327 ,EMS47
EMS511 enisoi
EMS41 ,EMS333,EMS372,0
EMS300,EMS47 . EMS307 .EMS2
EMS511,EMS5 of EMS505.0
EMSS50,EMS335 éng§4o sgsss.snssss
Ems511,Ems501,EmsS0S,
EMS337. EMS3S
EMS511.EMS501,0
EMs34 EMS3

LEMsS01,0

$306,EMS31
EMS301,EMS306
EMS511 ,EMS501,EMS504,0

,EMS3
MS47
,EMS354
EMS367 ,EMS353,EMS365,E
EMS511 .EMS501,

EHS300.EH8238.EH$327.EHSZSS.EH5327.5H5256

1,EMS504,0 eoo
ER%%?%'EH%? stsns341Zens
enssooiensgg
.0
. EMS501 .EMS504
EMS511

EMS300. ns§50.5n5341.snseoo
EMS511.EMSS04,

E=§§¥¥'E=§§ {egssat.ensoo1

EMT201:

Efl??? Zgggg {635341.snssoz

ENT202:

EMS346.EMS51,EMS341,EMS602
11,EMS5
0
EMS511
EMS346 ,EMSS5 EMS345,EMS373,EMS25S

EMT203:

.
-

SEQ 0268

als

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

CZRNBAO RM80 DSKLSEPT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 36~5

SEQ 0269

EMS54 EMS354 ,EMS364 ,EMS250
EMs511,EMS504,0
EMS54 EMS354 ,EMS364 ,EMS25S
EMs511,EMS504

EMT210:
EMT211:

EMS337.EMS5S
EMS504 ,0
327
,EMS251
EMsS334 EMS345,EMS373,EMS262,EMS

(N == N = LN =2 N N = S5 NS

WM W MW M AN T MIW AN NI NI

EMT214:

EMS511,EMSS0
EMS5 6,EMS335,0
EMS337,EMS56

EMT215:

EMS57,EMS333,EMS350,EMS60, EMS334

r MS50 100
EMS511.E

Emss511,Ems501.0

EMS363.EMS306.EMSS
EMS511.EMS501.0
EMS363,EMS306,
EMS511 .EMSS 01.0
EMS62,EMS33 3, EMS375,EMS251

EMT216:

EMT217:
EMT220:

EmsS11,Ems501 0
EMS62,EMS333 EMS376,EMS262
EmsS11,ems501.0

EMT221:

EMS62 ,EMS333,EMS376,EMS250

EMT222:

EMsS11,ems501,0
EMS346.EMSH2, EMS341,EMS603
EMSS511.EMSS01.0

EMT223:

EMS346.EMS63 EMS376 ,EMS262
EMS511 EMSSO1,EMS
EMS63 EMS333,EMS3 50,EMS363,EMS310,EMS262

EMT224:

EMT225:

EMSS11,EM§so 0
EMS63 EMS357 ,EMS36,EMS372
Emss11,emss01,0
EMS63, EMS356,EMS360,EMS1S
EMsS11 .Engso .0

EMT226:

EMT230:

ensgs EMS356,EMS361,EMS1S

EMT231:

EMS63, EMS356,EMS41
EmsS11 engsoi 0
enseliéns 77 .EMS342 ,EMS365 ,EMS63,EMS332

EMT234:

—_ e O

OONOOO0O

EMS

EMT232:

b =

S
N=O

EMT227:

EMT233:

EMT235:

EMT236:

D P

EMS501,0
Enssfz'gflsgoa
éngi ‘
éns§54
511 EMS501.0

EMT207:

>33

0,0
EMS337 EMS564, MS374 ,EMS2 50,EMS327 ,EMS255

EMT206:

.WOR

11, emss01

EMS5

sn5367.enssss.gnsgbg.snses.Ensko1

EMS16,EMS37 én§§7§ EMS365,EMS64 ,EMS354 ,EMS3
EMsS11,EMSS0$

EMS511.EMSS

EMS300,EMS6
EMS511 eng

§o7 EMS2

EMS505.0

snssg.éns 77. EMS376,EMS252,EMS372,EMS350
EMS65 ,EMS401

mErErEEEEEEEEEEEEELEL LB

NONONON

OONOOO
NO

EMSS3, EMS354 MS
Emss11,Ems50% EMS502 ,EMS

EMT205:

EMT213:

-‘-‘NON—.Ng'\)

O
=2
e ) md N d A} md N i N o N
i| b
ovB
NN MWW
v NSNS O\ NN WVIN

i e
i
e o
e

be
=
— e o

) b b e

OOONOOO

2
BNV
TN IVAVAVY

NN NN =
O ORI
wWo vivaun TM
- SRDDSN

EMSS511,EMSS04
EMS346,EMS52
EMS511.EMSS 04 ,EMSS0

EMT204:

EMT212:

NOVOOONg
_n§-no-.°-n_n-n°-.
§°
) b ) b ) b N b N=

[

HOHOH

wv 'S
Ng
v 2’0
W

OO =O=O===mO=0O pry O =
~ NO NONOOONON o NO

71000

OO0O0O0O000O

KRR &w\aw W
N=OY SIS v

—_
D b
==l
o
=4

NI NI

N NN = NN

TN NIV W

Ncwog
OOOONOS NN

b =k O

—

d e

b d

WWWWWWWWW

b emd

b o e i ) b wd O e O =

29 07033%
294 07034
295 070350
296 070356
070366
297
298 070374
070404
299

ONO-'ON\J:aNON\hN

— e e ) b e cd e e b e ) ) = b b O =
b i ) i O b b e b
(e l=l=] NOOOOOOONNOOONO
o
ONONOOO
= ROV
NONIWVIND
=2 N) =N =2NONIWIN)
N
N NNINNNONON
NONONNVO
N
iy gy OO
PN O S =2 SN
=2 S =
O b b | LS
AN WIN) N =2 N =2OO
=N NONN

ERROR MESSAGE TABL

SEQ 0270

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 36-6

ERROR MESSAGE TABLE

S01,0

EMS511,EMS502,EMSS03,EMS
LMORD
102212
102142
102545
éngior EMS2
enssoo.ensgs
.WORD
EMT237:
07;651
07656
09;523
4S o711§
"WORD EMS511.EmsSOf en;sgi 0
1o§sas 102115 102212
0711

3 071110

073367
102545
076562
10254

51 071226
52 071230

102545
074647

354 071256
355 071262
356 071272
357 071300
358 071310

102545
076407
102545
074647
102545

360 071330

102545

S0 071212

101631

071236 076560

359 071316

S61 071334
362 071342
363 071352
364 071360
365 071376

366 071406
367 071416
368 071422
071430

101631

074647
076635
102545
076560
102545

101631
102545
074647
076560

10157
102212
100502
102;1

101442 EMT240: .WORD
10211
"WORD
100535 EMT241: .WORD
000000
"WORD

10221
10045

oooogo

"WORD
"WORD

102212
101605
102212
1013764
102212

"WORD
000000
101711 EMT244: .WORD
"WORD
000000
101711 EMT245: .WORD
"WORD
000000

102212

"WORD

102776

100502

102776

100457
102212
100502
102212

100415

103023
102212
100457

1oosog

EMS15,EMS400,EMS372,EMS350,EMS66,EMS401
EMSS11 en§sos sngzoi 0
EMS66,EMS336,EMS340,EMS1S,EMS406,EMS405,EMS604
EMSS11,EMS505.0
21,EMS377

EMT242: .WORD

EMS403.EMS604,EMS402,EMS

100535

EMT243: .WORD

EMS66,EMS336,EMS340,EMS26,EMS404 ,EMS405,EMS604

101622

EMT246: .WORD

101622

"WORD
000000
101711 EMT247: .WORD
"WORD
000000
.WORD
EMT250:
100535
"WORD
000000
000000

100535

EMT251: .WORD
"WORD
"WORD
EMT252: .WORD

101622

EMT255: .WORD

101622

EMSS511.EMSS03
EMS36,EMS335.0

EMSS11,EMS505.0
EMS63,EMS401,EMS40S5,EMS604
EMSS11,EMSS05.0
EMS36,EMS370,EMS40S,EMS604
EMS511,EMS505.0

,EMS377
EMS403,EMS804,EMS402,EMS24
EMSS511.EMS503

EMS36,EMS335.0
EMS67,EMS332,EMS405,EMS604
EMSS11,EMS505.0
405
,EMS605
EMS66,EMS336,EMS340,EMS15,EMS406,EMS
EMSS11,EMS505.0

EMS&03.EMS605,EMS402,EMS21,EMS377
EMSS511.EMSS03
EMS36,EMS335.0
404
,EMS405, EMS605
EMS66.EMS336 EMS340,EMS26,EMS

101631

103023

"WORD EMSS11,EMS505.0
000000
EMS63,EMS401,EMS405,EMS605
101711 EMT253: .WORD
000000
" .WORD EMSS11,EMSS0%.0
101711 EMT254: .WORD EMS36,EMS370,EMS40S,EMS605
000000
"WORD EMSS511,EMSS05,
,EMS377
,EMS24

277 071526
378 07153%
071544
380 071552
381 071570

074647
076635
102545
076560
102545

100457
100415
102212
100502
102212

000000
.WORD
101711 EMT256: .WORD
00000
" 'WoRD
100535 EMT257: .WORD
000000
.WORD

384 071614

074647

100457

000000

386 071640
387 071646
388 071656
380 071666

102545
076407
102545
074647

1ozz1§
101605
1oz§12
101374

"WORD
000000
101711 EMT262: .WORD
000000
"WORD
101711 EMT263: .WORD

103041

101622

370 071446 102545 102212
371 071456 076407 101605
071464 102545 102212
373 071472 074647 101374
374 071502 102545 1ozz1§
375 071510
376 071522

382 071576
383 071610
385 071622

390 071674

391 071702
202

071714

102545

101631
102545

076560

102545

1o1g31

102545

102212

103041
102212
100502

102212
10221;

101622
100535

000000

"WORD

EMS&03.EMS605.EMS402
EMSS11.EMS503

ens}b,énssgs.o
EMS&7.EMS332.EMS40S,EMS605
EMSS11,EMS50%,0
405
,EMS606
EMS66,EMS336,EMS340,EMS15,EMS406,EMS
EMSS511,EMS508,0

EMT260: .WORD
"WORD

EMS403.EMS606.EMS402,EMS21,EMS377
EMS511.EMSSO

EMT261: .WORD

EMSS11,EMS505.0
EMS63,EMS401,EMS405,EMS606
EMSS11 engso 0
EMS36,EMS370,EMS405,EMS606

"WORD

EMT264: .WORD
"WORD

EMS36,EMS gs.o

EMS66,EMS336.EMS340,EMS26,EMS404
,EMS405 ,EMS606

EMS511,EMSS0S,

EMS&03.EMS606.EMS402,EMS24 ,EMS377
EMSS517.EMSSO

§9 071720 074647 100457 000000
"WORD EMS36,EMS335.0
%W@gmu1mwwm1mwhmommnmnmwmm
"WORD EMSS511,7Ms50%,0
102545 102215 ooogoo
395 071736
§96 071744 076635 100415 101711 EMT266: .WORD EMS67,EMS332,EMS405,EMS606
97 071754 102545 10221; 000000
‘WORD EMS511 sn§sos 0
398 071762 076560 101077 101734 EMT267: .WORD EMS66,EMS356 EMS407
399 071770 102545 102212 000000
"WORD EMSS511,EMS50%.0

mmmmmmmmmmm

071142
71156
gza 071166
9 071206

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

ERROR MESSAGE TABL

EMT271: .

§
-

EMT272:

EMT273:

.WOR
W0

.WOR

EMSS517 . EMS503

EMS27 ,EMS336,0
EMS27 . EMS370 . EMS405 ,EMS607
EmsS11 sngs 5.0
ensgr EMS371,EMS405,EMS607
EmsS11,EM5505.0
EMS36, EMS4L04 ,EMS405 ,EMS607
EMs511,EmsS05,0
EMSS53,EMS4L01 ,EMS405 , EMS607

—=HOLRO

EmMs511 en§so3 EMS502,0
EMS607
, 40S5
EMS67 ,EMS332,EMS
S505.0
EMs511,Ems
snsgc EMS336,EMS340,EMS26,EMS404 ,EMS4L05,EMS607
EMS511,EMSS0
’
.0
MS24
EMS403 . EMS607 . EMS402,E,EMS377
EMS70EMS401 .EMS405 ,EMS607

Ems511,Ems505.0°

T T OO

S600
255
. EMS341,EM
EMS300.EMS
EMS511.EMSS504.,0

St St St St Bt St Bt Gt et et Gt et et e T T

EMSS11,EMS503
Ens;7.£ns 36,0

l=l=lele]

LSOO —=O

OO000O0O0O0

NINN=ONIWN

‘

OO OO0
O
=~

N
OOOOOOg OOOOOOOOOS
ONI =N =2 N) =2\ =

e o
o
e o
s o

e i e
o
e
e e
e
e

Ae
o~

421 0722
422 072244
423 072254

ensge enssgs EMS340,EMS15,EMS406, EMS4 IS ,EMS607
EMS 11,EMS ; .0
snsags.ensgg "EMS402,EMS21 ,EMS377

EMT270:

071776
07201

400
401

SEQ 0271

CZRNBAO RM80O DSKLS PT1 MACRO V04.00 14~JAN=-82 16:33:00 PAGE 37

SEQ 0272

ERROR MESSAGE TABLE

L 072276

18 077

00000

EHT1:

.WORD

EM1,

000000

EHT?:

.WORD

EW?

103155
18 1

S 072302 10324

9 07
072312

853365
103
103361 000000

8 07 13 103163 000000
000000
9 07 % 10

10 072326
11 072332
1§ orzsss
13 072
1% 072346
15 072352
16 072356

1035
103651
103747
104045
104162
104260
104355

000
000000
000000
000000
000
000000

000000

EHT2:
EHTS:

.WORD
.WORD

EM2,
EMS,

EHS57.0
EHGS.0
.WORD
EHT6S5:
EH71.0
EHT71: .WORD
EHTS?: .WORD

CAT?74: .WORD
EHT115: .WORD
EHT130:
EHT132:
EHT142:
EHT145:
eur1sg:
EHT213:
EHT220:

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

EM3 g
EM115.0

EH130.0
EH132.0
eu14§.o
EH145.0
EH150.0
EH213.0
EH220.0

i e 2l el el el ) el el = A A DD NNV VLNV
AWY

il il sl s

7
07

e e e e

3 87

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

——

751‘1332

ERROR MESSAGE TABLE

o
5:

SEQ 0273

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

ERROR MESSAGE TABLE

SEQ 0274

SEQ 0275

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

ERROR MESSAGE STRINGS

17 073465
18 073526

19 073567
20 073633
21 073712
22 073757
23 074035
% 0764114
35 074172
26 074251
27 0743515
28 074375

29 074446

30 0745
31 074556

32 074605
33 074647

3 074677
35074730
075
37 075056
0751

39 075207
40 075250
41 075325

42 075407
43 075447
07551

45 o73%es

075
7075667

48 075744

115
127

1064
115
125
123
115
120
115
105
106
114
114

123
126

126
107

103
114
103

103
106

101

120

106
120
104

101
127

105

123

EMS32:

.ASCIZ

114
040

EMS20:
EMS21:
EMS22:
EMS23:
EMS4:
EMS25:
EMS6:
EMS27:
EMS30:
EMS31:

EMS33:
EMS3%:

EMS35:
EMS36:

114 EMS37:
EMS40:
115 EMS4]:

123

126
122

130

@SECTOR ADDRESS BITS OF @
@TRACK ADDRESS BITS OF @

.ASCIZ
.ASCIZ

@LAST SECTOR/TRACK STATUS ‘LST'*

(RMMR1, BIT 01) @

@VOLUME VALID ‘VV'" (RMDS, BIT 06) @
@GO BIT (RMCS1, BIT 00) @

.ASCIZ QCYLINDER ADDRESS BIT OF @
@LAST BLOCK TRANSFERRED, 'LBT'* (RMDS. BIT 10) @
.ASCIZ @COMPOSITE ERROR 'ERRTM (RMDS, BIT 145 @

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

@O0CCUPIED ‘OCC'’ (RMMR1, BIT 15) @
SILLEGAL FUNCTION “’ILF' (RMER1, BIT 0) @
@OFFSET DIRECTION 'OFD'' (RMOF, BIT 07) @

116
126

EMS53:
EMSS4:

.ASCIZ
.ASCIZ

@RUN AND GO 'RG'' (RMMR1, BIT 14) @
Q@INVALID ADDRESS ERROR “IAE'’ (RMER1.

107
115

EMS56:

.ASCII
ASCIZ

SREGISTER MODIFICATION
REFUSED ERROR @
@'RMRTM* (RMER1, BIT 02) @

103
114
106

122
122
122

.ASCIZ
.ASCIZ

EMS47:
EMS50:
EMS51:

103
114
106

105
122

@DEVICE CHECK 'DVC'’ (RMER2, BIT 07) @
@MAINTENANCE DRIVE FAULT "WDF' (RMMR1, BIT 06) @
SUNSAFE STATUS 'UNS'' (RMER1, BIT 14) @
QSEEK INCOMPLETE STATUS “'SKI'’ (RMER2, BIT 14) @
GMAINTENANCE SEEK ERROR 'MSER': (RMMR{, BIT 07) @
@POSITIONING IN PROGRESS 'PIP:: (RMDS. BIT 13) @
SMAINTENANCE ON CYLINDER 'MOC'’ (RMMRi, BIT 08) @
@END OF BLOCK “EBLTM (RMMR], BIT 13) @
@DIAGNOSTIC END OF BLOCK "DEBL* (RMMR1, BIT 13) @
@LAST SECTOR STATUS "LSTM (RMMR], BIT 02) @

@COMMAND SEGUENCER TEST BIT “TST"* (RMMR2, BIT 12) @

111

104

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

122

12
116

BIT 01) @

.ASCIZ @MAINTENANCE WRITE PROTECT ‘MWP'' (RMMR1, BIT
.ASCIZ @WRITE LOCK ‘WRL'' (RMDS, BIT 11) @

EMS42:

106

122
111

(RMER1,

EMS18:
EMS17:

115

117

"‘ILR'’

111
111

103
101

131
101
117

riAgne

101 EMSI3: .ASCIZ @SDIAGNOSTIC MODE,'DMDTM (RMMR1, BIT 00) @
104 EMS14: .ASCIZ @MEDIUM ON LINE ‘MOL'* (RMDS. BIT 12) @
111 EMS15: .ASCIZ GMAINTENANCE UNIT READY 'MUR' (RMMR1, BIT 09) @ @
03)

105
122

117
117

.ASCIZ

QILLEGAL REGISTER ERROR

EMS12:

126
111
123
105
111
123
111
104
101
123

101

@(RMCS1, BIT 13) @

114

105
101
116
105
101
117
101
116
111
101

117

117
111
117

54 076326

57 076517

101
122

117
116
117

122
0k2

55 076407
56 076447

111
105
101

103
111
1164

49 076022
50 07

51 07611
32076201
53 076053

114

.ASCIZ

EMS43:

.ASCIZ

@DRIVE READY STATUS "DRY" (RMDS . BIT 07) @

116 EMS44: .ASCIZ @CONTINUE ''CONT'‘ (RMMR1, BIT 065 a
126 EMS45: .ASCIZ QINVALID COMMAND ERROR “IVC' (RMER2, BIT 12) 3
123 EMS4s: .ASCIZ @LOSS OF SYSTEM CLOCK ERROR ‘LSC" (RMER2, BIT 11) @
106 EMSSe:

104 EMS35:

(ASCIZ SOFFSET WODE TOM" (RMDS. BIT 60) a

BIT 10) @

.ASCIZ @ADDRESS OVERFLOW ERROR “AOE'' (RMER, BIT 09) @

111 EMSS7: .ASCIZ @DRIVE REQUEST REQUIRED STATUS 'DRQ' (RMDT, BIT 11) @
117 EMSE0: .ASCIZ SPROCRAMABLE STATUS 'TGH, (RMOS. BIT 09) &
111 EMS6l: .ASCIZ SDRIVE PRESENT STATUS 'DPR'. (RMDS, BIT 08) @
122
124
111

EMS6e:

EMS63:
EMS64:

103 EMS65:

ASCIZ

.ASCIZ
.ASCIZ

@PORT REQUEST FLOP 'ROA.RGBTM (RMARZ, BITS 13.14) @

SATTENTION “ATATM (RMDS, BIT 13) @
@WRITE LOCK ERROR ‘WLETM (RMER], BIT 11) @

.ASCIZ QEXCEPTION 'REX" (RMMR1, BIT 12) @

104
115
115

111

113

.ASCIZ SPARTIY ERROR 'PAR". (RMERY BIf 03) @
.ASCIZ @DATA PARITY ERROR 'DPE" (RMER2, BIT 03) @
04) @
.ASCIZ @PARITY TEST "PAT'' (RMCS2, BIT
‘MCPE'* @
ERROR
PARITY
BUS
CONTROL
.ASCII @MASSBUS

&N &M 0

1% 073253
15 073322
16 073367

13073175

122 EMSE:
124 EMS7:
122 EMS10:
123 EMSI1:

leg

101
101
101
101

ENSh:
EMSS:

@CONTROLLER
SFUNCTION CODE (RMCSI, BITS 01°=05)"a
SUNUSED BIT POSITIONS oF @
SDEVICE AVAILABLE 'DVA. (RMCS1. BIT 11) @

120
104
120
115

1gy
106

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

1gorsise

gorgrae
9 072770
10 073041
11073106

116 EMS2:
116 EMSI:

125
106

10
106

DEVICE ED'* (RMCS2.BIT05)12)@ @
.ASCIZ SNONEXISTENT CLEAR
"CLRTM (RMCSJ.BIT

ol &

§ 07g62
707265%

117
les
116
10

4 07250
s07g5%6

116 EMSI:

Gl ol ol o

106

ERROR MESSAGE STRINGS

117

£ 07 43

.SBTTL

A AS Al Al Al

ERROR MESSAGE STRINGS

58 o7ssgg

116

159 EMS66:

61 076747

123

105

101 EMS70:

64 07705
65 07711
07715
67 07720

103
105
105
115

2% 077015

077
69 077310
70 077340
71 077374
72 077425
;2 077464

124
114

104

104
117
104
110
123
101

101
11

117
125
12
101
105
103
12

107
116

.ASCIZ @SEARCH ENABLE “ESRC'' (RMMR1, BIT 11) @

(RMDA) @
@DISK ADDRESS REGISTER
123 EMS250: .ASCIZ
#1 (RMCS1) @
REGISTER
STATUS
@CONTROL
.ASCIZ
116
122
122
111

124

123
106
111
114
122
126

117
105

EMS67:

EMS251:
EMS s;:
EMS253:
EMS254:
EMS255:
EMS256:
EMS257:

"ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@ERROR REGISTER #1 (RMER1) @
@ERROR REGISTER #2 (RMER2) @
@MAINTENANCE REGISTER #1 (RMMR1) @
@DESIRED CYLINDER REGISTER (RMDC) @
@OFFSET REGISTER (RMOF) @
@DRIVE TYPE REGISTER (RMDT) @

EMS262: .ASCIZ

SATTENTION SUMMARY REGISTER (RMAS) @

EMS260: .ASCIZ
EMS261: .ASCIZ

@HOLDING REGISTER (RMHR) @
@SERIAL NUMBER REGISTER (RMSN) @

75 077527
76 077545
77 077570
78 077615
79 077626
80 077635

103
103
101
127
105
101

101
101
116
11
122
040

116
116
131
124
122
117

EMS300:
EMS301:
EMS302:
EMS303:
EMS304:
EMS306:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@CANNCT CLEAR @
@CANNOT WRITE/READ 3
@ANY DEVICE REGISTER @
@WITHOUT @
@ERROR @
@A ONE FROM @

82 077712
83 077727
84 077773
85 100031
86 100062
87 100111
88 100137
89 100160

101
105
124
101
101
101
122
061

040
126
110
040
120
120
105
040

132
105
105
123
120
120
107
050

EMS310:
EMS311:
EMS 15:
EMS313:
EMS314:
EMS315:
EMS316:
EMS317:

.ASCIZ
.ASCIZ
"ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@A ZERO FROM @
@EVERY DEVICE REGISTER BIT POSITION @
@THE FOLLOWING BITS ARE STUCK @
@A SHIFTING ONE BIT FROM @
@APPEARS STUCK AT ZERO @
@APPEARS STUCK AT ONE @
@REGISTER SELECT @
@1 (1,2.4.8.16) @

040
040

050
050

EMS321: .ASCIZ
EMS3 i: CASCIZ

@4 (1.2.4.8.16) @
@8 (1.2.4.8.16) @

81 077651

125

123

90 100200

062

040

93 100260

101

114

91 100220
92 100240

064
070

111

EMS307: .ASCIZ

@USING MASSBUS INITIALIZE, 1.E., @

050 EMS320: .ASCIZ @2 (1.2.4.8.16) @
114 EMS323: .ASCIZ @ALL ONES FROM @

9% 100277
95 100317
96 100330
97 100340

101
101
101
054

114
124
124
043

114
040
040
117

EMS324:
EMS325:
EMS3 9:
EMS327:

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ

@ALL ZEROS FROM @
@AT ZERO @
@AT ONE @
@, OR @

99 100355
100 100415
101 100433
1o§ 100447
103 100457
104 100502
105 1oos§1
106 100535
107 100542

103
11
1M
m
123
123
103
1o§
12

101
123
123
123
110
110
101
105
12;

116
040
820
0
117
117
11g
103
111

EMS331:
EMS S:
EMS333:
EMS33%:
EMS335:
EMS336:
EMS337:
EMS340:
EMS341:

.ASCIZ
"ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@CANMOT READ ZEROS FROM @
@IS INCORRECT @
@IS NOT SET
@IS SET @
@SHOULD NOT BE SET @
@SHOULD BE SET
@CANNOT SET @
@BECAUSE @
@USING @

112
1;
131
101
mm
125

105
123
040
116
154
124

EMS
EMS344:
EMS345:
EMS346:
EMS
EMS350:

ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
"ASCIZ
.ASCIZ

XPECTED @
@BUS TIMEOUT (04 TRAP) @
@BY REGISTER TRANSFER @
@CANNOT RESET @
@WITHOUT SETTING @
aBUT @

98 100346

108 10055

109 100607
110 1oos§3
111 100652
11; 100700
1 100719
114 10073

015

104
125
10
10
10
127
102

103 EMS330: .ASCIZ <CR><LF>3CS MBA CLRL @

1 g EMS g "ASCIZ @DURING REGISTER TRANSFER @

PSRN

59 0766
60 076711

.ASCIZ @INVALID COMMAND ERROR *‘IVC'* (RMER2, BIT 12) @
.ASCIZ @TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @
BITS 10,11,13) @
ASCIZ @LINES (RMMR2,

SEQ 0276

BRRAANAANRNAANAANAAANNPAAPARAPARANPAAARYS

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

~
o

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

ERROR MESSAGE STRINGS

32 o 2 SHg S AW HOLT @

l-.O[tm

p(xuv&VEA)Jd w[ut.rr

[- A v %4

)

—b

b e

RN
WHWOWO

e o

) e

e o

e e

e e o

) b

EH115:
EH130:
EH132:

EH145:

EH150:

EH213:

EH220:

.EVEN

TN bt N B N Bt N Bt N Bt N B N Bt N Bt N N Bt N

EH142:

>eerrE>»>»

EW71:

e N e

(7. 17 17, nmunnnhnnn wmumumuvmunnmnm
(alalalalalalalslalalalelelyly]

3{ >>»

OCO=OWVIO=O=0O=0O0=0O0 WOWON==O

EH6S:

N e N b N Bt

b e o e

D b

ANNLONLNNONIONIONIONINONINININOON

D D b b b b D b b D D b

= NN N =2 LAIND NN NNg}",ON\flOUVO
wouougow
NSO

b b b D e o

2-.—.

V= OWWN

b b emd md b cmd D D D e cd D D ) ) D D e

VIO S ONOSHOSHOS

—

OONOOONONONONO

—

now VJMWU‘W\”NWWWWU‘?NW

OOOWOW
VIO WO

NONONIO

—

QOHNNO

e i e s e o o o
e o s e e e e e e o
0000 [elel=lelelelelelelelelelellsl

EH7:
EHS7:
@EXPCTD
@STATUS

@ BASE@<CRLF>
SS8
STUCK@<CRLF>

@RESULT
@ACTUAL
@RESULT

RECEVD
STATUS

REGADR®

RECEVD
STATUS
RECEVD

ADRESS

RRRRPR PRR
B
B s
W
33
iy
N3 ww
=88 NO =W eSS
\I'OSNN

— e

ERROR MESSAGE STRINGS

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

e el ¢ B Sl

S
e R

PRI OO NO VNN = O 000NV S W=

—
——————
ey

SEQ 0278

REGSTRa<CRLF>
ADRESS®

BIT(S)a
RECEVD®

DRVTYP@<CRLF>

OFFSET@<CRLF>

TESTa<CRLF>
REGSTR®
TESTa<CRLF>
PATTRN®
TESTa<CRLF>
PATTRN®
OFFSET@<CRLF>
TEST
PATTRN REGSTRa

REGSTRa

OFFSET@<CRLF>
REGSTR®
RMER23<CRLF>
RMEK1
PATTRN PATTRN®

REGSTR FUNCTION@<CRLF>
CODE®
TESTa<CRLF>
REGSTRa
REGSTRa<CRLF>
ADRESS®

2] o =1

Sed

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

ERROR MESSAGE STRINGS

. OO o~ o

3oo .8 : L o
.

ERROR MESSAGE STRINGS

BUFFER:

1 1045

BUFONE: .BLKW
BUFTWO: .BLKW

g 1045
‘wfia

9 104536

ssg.
258.

.=BUFFER

104536

HELP:

JASCII
"ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

@
am
ar
ar
aT4&
aTS
arTé
ar17
aT10

8 104539
9 10453

%oo
00

11 104556
1; 104574
13 104615
1% 104632
15 104665
16 104720
17 104752
18 1osoo§
19 10502

055
154
124
1%4
124
124
124
124
124

055
061
oeg
06
064
065
066
067
061

22 105166
23 105232
24 105275
25 105337

124
124
124
124

061
061
061
061

ERROR REGISTER #1 TRANSFER TEST@<CRLF>
063 .ASCII ari
aT14 CLEAR OFFSET STUCK ACTIVETEST@<CRLF>
064 .ASCII
TEST@<CRLF>
I OFFSET REGISTER TRANSFER
aT15
065 .ASCI
TEST@<CRLF>
TRANSFER
#2
aT16 ERROR REGISTER
066 .ASCII

28 105500

124

062

aT21 CONTROL BUS PARITY GENERATION TESTa<CRLF>
061 .ASCII

35 106017
36 106034
37 106060
38 106105

124
124
124
124

063
063
063
063

060 .ASCII
061 _ASCII
062 .ASCII
063 .ASCII

10 104540

20 105057
21 105122

26 105403
27 105432

29 105547
30 1osego
31 105637
32 105702
33 105734
3% 105766

39 106131

40 106146
41 106163

ag 106224

43 106250
4 106;74
45 106311
46 106342
47 106364
48 106420
49 106446

50 106476

51 106521
sg 106550
53 106571
54 106611
55 106651
56 106703
57 106725

114

124
124

124
124
124
124
124
124

123 .ASCII @LIST OF TESTS@<CRLF>

061
061

061
06%

061
062

062
062
062
062
062
062

124

063

124

063

124
124

124
1%4
124
124
124
124
124

124

124
124
124
124
124
124
124

055
011
011
011
011
011
011
011
060

.ASCIT
.ASCII

@aT11
3T1§

a<CRLF>
TRANSFER TEST@<CRLF>
CTOD TEST@<CRLF>
MASSBUS INITIALIZE TEST@<CRLF>
CLEAR STUCK ACTIVE TEST@<CRLF>
TRISTATE TRANSFER TEST@<CRLF>
REGISTER SELECT TEST@<CRLF>
DRIVE TYPE TEST@<CRLF>
DEVICE AVAILABLE TEST@<CRLF>

HOLDING REGISTER TRANSFER TEST@<CRLF>
CONTROL STATUS #1 TRANSFER TESTa<CRLF>

067
060

.ASCII
.ASCII

@avT17
ar20

SERIAL NUMBER TEST@<CRLF>
CONTROL BUS PARITY DETECTION TEST@<CRLF>

062
063
064
065
066
067

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

ar2
arT2
@T24
@725
@T26
@aT27

RMDA,RMDC FAULT TEST@<CRLF>
DISK ADDRESS TRANSFER TEST@<CRLF>
DESIRED CYLINDER TRANSFER TEST@<CRLF>
ILLEGAL REGISTER TEST@<CRLF>
RESET GO BY INIT TESTa<CRLF>
DIAGNOSTIC MODE TEST@<CRLF>

ar30
@aT31
aT3
ar3

MOL TEST@<CRLF>
WRITE LOCK TEST@<CRLF>
DRIVE FAULT TEST@<CRLF>
SEEK ERROR TEST@<CRLF>

064 .ASCII @aT3%

PIP TEST@<CRLF>

063
063

065
066

.ASCII
.ASCII

@ar35
@736

EBL TEST@<CRLF>
LAST SECTOR, LAST TRACK TEST@<CRLF>

064
064
064
064
064
064
064

060
061
oag
063
064
065
066

_ASCII
.ASCII
JASCII
.ASCII
.ASCI]
.ASCII
.ASCII

@aT40
@aT41
aTé
aTé4
@Tés
@aT45
aTé

RMDC COUNT TEST@<CRLF>
LBT TEST@<CRLF>
COMPOSITE ERROR TEST@<CRLF>
WRITE GO TEST@<CRLF>
BRANCH MULTIPLEXOR TEST@<CRLF>
SET/RESET GO TEST @<CRLF>
END 1 RESET GO TEST@<CRLF>

060
061
062
063
064
065
066

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

@750
@aT51
arsg
aT5
@754
@155
@756

SET/RESET IVC TEST@<CRLF>
SET LSC TEST@<CRLF>
DECODE TEST@<CRLF>
SET/RESET VOLUME VALID TEST@<CRLF>
ILLEGAL FUNCTION TEST@<CRLF>
OCCUPIED TEST@<CRLF>
READ IN PRESET TEST@<CRLF>

064
065
065
065
065
065
065
065

067 .ASCII aT37

067 .ASCII @aTé4

RMDA COUNT TEST@<CRLF>

SET PULSE TEST@<CRLF>

SEQ 0280

P EE LRI
IP ¢ AANAAAAARARAARARAANRAN

CZRNBAOD RMB0 DSKLS PT1 MACRO V04.00 14=JAN=-82 16:33:00 PAGE 43

. "RNBAO RMB0 DSKLS PT1 MACRO VO04.00 14~JAN-82 16:33:00 PAGE 43-1

SEQ 0281

INVALID TRACK/SECTOR TESTa<CRLF>

ar7o0

ar71
arz
arz
aT74
ar75
ar76

INVALID CYLINDER TEST@<CRLF>
SET AOE TEST@<CRLF>
SET RMR _TEST@<CRLF>
PGM STATUS CHECK@<CRLF>
DVA/DPR STATUS CHECK@<CRLF>

@7101
ar10
ar10
aT104
@87105
8T106
aT107
aT110
aT111
87112
aT113
@T114
aT11S
aT116
87117
2{;52)

RELEASE_TEST@<CRLF>
WRITE ATA TEST@<CRLF>
RESET ATA BY GO _TESTa<CRLF>
UNIT READY ATA TEST@<CRLF>
ERROR ATA TEST@<CRLF>
REGISTER TRANSFER ATA TESTa<CRLF>
P SET ATA TESTa<CRLF>
SET WLE TEST@<CRLF>
EXCEPTION TEST@<CRLF>
RECALIBRATE TEST@<CRLF>
SEEK TEST@<CRLF>
SEARCH TEST@<CRLF>
SEARCH TIMEOUT TESTa<CRLF>
DATA COMMAND TESTS (1)@<CRLF>
DATA COMMAND TESTS (2)a<CRLF>
DATA COMMAND TESTS (3)a<CRLF>

arzz7
@7100

PORT REQUEST TEST, PART 1&<CRLF>
PORT REQUEST TEST, PART 2a<CRLF>
PORT REQUEST TEST, PART 3@<CRLF>

SOPERATIONAL SWITCH SETTINGS@<CRLF>
@<CRLF>
o
F>
USE@<CRL
aSWITCH
@<CRLF>
e
HALT ON ERROR®<CRLF>
8 15
LOOP ON TEST@<CRLF>
8 14
INHIBIT ERROR TYPEOUTS@<CRLF>
a 13
@<CRLF>
8 12
INHIBIT ITERATIONS@<CRLF>
a N
BELL ON ERROR@<CRLF>
8 10
LOOP ON ERROR®<CRLF>
9
a

&
oy
@
a
0
a
e
o
o

200

;

6
5
4
3
2
1
0

LOOP ON TEST IN SWR<7:0>@<CRLF>
TN1283<CRLF>
TN64@<CRLF>
TN328<CRLF>
TN168<CRLF>
TN8a<CRLF>
TN4a<CRLF>
TN23<CRLF>
TN13<CRLF>

22222222
> DD

RIP/RMOF TEST@<CRLF>
RMDA/RMDC/RIP TEST@<CRLF>
OFFSET COMMAND TEST@<CRLF>
RETURN TO CENTER TEST@<CRLF>
RMDC CLEAR OFFSET TEST@<CRLF>
EBL CLEAR OFFSET TESTa<CRLF>
RUN AND GO TEST@<CRLF>
SET IAE TESTa<CRLF>
SEARCH, SEEK, READ, WRITE TEST@<CRLF>

157
aT60
arTél
alé
aré
aT6é
arés
376?

MmmmmmmmMmm
S
S

ey bt By Bt

Nt B

et by Bt et B

By D

g (e g ot

B B

oy B fmy fmng oy e B

bt Gt

bty by Bt Doy ot B

g B S St B By By Bt Bt St By By g Bt bt St By B

By By o

g Bt Bt Bt oy

17 w
7
w
wmunnnnm
S
>
17
wnunn
(alalalalalalalalalslslslslslslele
lele Ly alalalalalalalalalalalalsl s lalalalalalalalalalalalalalalalalalalalalsl
S

€

>>>

BB wvumumumunmnumnommn
BBBHB>
)>>>»
[7.17,]
m

000200

OO0OO0O0O0O0O0OOO==t=micici
i\ N=d

NN NN NN
NN = O NINN NN N NINININI NI NN

OOOOOVIWWVINOS
S SEERERREDISESESTTESssers

e e O O
—

i i

i i e e

114

—
OCOO0O
o OO
O \n—
99 9.9RRRRRRBRSRR
4 9 o9 9 9

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
1
0
1
05
04
04
04
04
04
040
040
040
040
040
040
040
040
040
040
040

1
1
1

LSSt
T S 33

73107515
7% 107553
75 107611
76 107650
77 107672
78 107716
79 107750
80 110001
81 110025
82 110065
170111
8 110133
8s 110157
86 110205
87 110226
88 110245
89 110276
90 110332
91 110366
92 110622
93 110423
9% 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 111155

70 107416
71102437
72 107486

124

124
124
1
1
1
1
1

067
060

=il

63 107143
64 107175
65 107221
66 107262
67 107305
68 107343
69 107375

62 10711

flfi

[=lelelelelelelelelala
elOOOVINWVIO

124
1%
194
124

o
RAR RRRRRRRRRRRINGN SRI&R

58 106755
52 10677
60 107026
61 10703

g Pt Bt g Bt B b et g B Bt oo 4 Bt Bomg Bt Bt e bt B b
g Bemg B (g oy Dot B et o B o Bt g Bt s oot Bt B
g Bt B S

|TkROR MESSAGE STRINGS

DPOE®

NNN&NNNNNNN
'S
ONON & &
GLELI
NNOWNN KOSSRSe

~AmmMmMAMMMOMIODODOOODOOOOmmmmmmDd

OCOONNOOOOOON=N

ANWNNININOININ)
&S = wd b

e e

r
88888888?888?
w-woamgaou-

i e e wd &
— e

PR SN =

NO
NNNN
N NN N

NSCONSONSS
N OO SHTNNOOOO

VIS
SN &H
NS
& 5 5N BN
WAN)
=N NS NN =N
AOORININ
= NINDN — =N

———

bbb b b b
= = b S OO OO OOCOOOOO S

NSNS0 NNNNNNNNNNNOO00000
NONONDNNONNO SN

D O O O OO O OO OO OOOOO
e e e e e e e ek ek ik
et e

Log
2
oW

TTTMTITITITTITITTITTITITTITTITTITTITITMOOODOODO000O

&
o (=]
o
NN
W

[

= (=]
~Ny

~
o
(7]

(7] w
-=

CNTCLR 055156
063061
¢
CONT = 000100
CPSAVE 05770
= 00001
R
CRLF = 000200
CYLMSK= 001777
DBCK = 100000
DBEN = 040000
= 002000
DBL
= 100000
DCK__
DDISP = 177570
DEBL = 020000
DISPLA 001156
DISPRE 000174
= 100000
DLT
= 000001
DMD
DPE
= 000010
DPEHI = 040000
DPELO = 020000
DPR _ = 000400
DRIVES 063416
= 004000
DRQ
DRVCLR= 000010
DRY
= 000200
DSWR = 177570
= 010000
DTE
DULPRT= 024026
DVA
= 004000
= 000200
DVC
= 020000
EBL
= 000100
ECH
= 004000
ECI
ECRC = 001000
072362
EDTT
EDT115 072400
EDT130 072402
EDT132 072404
072364
EDT2
EDT220 (072406
EDIS.
072366
072370
EDIS7
EDT6S
072372
072374
EDI71
072376
EDT74

mmmmmmmmmmmmmmmmmmmmmmmmm

= 000020
BITO5 = 000040
BIT06 = 000100
BIT07 = 000200
BITO8 = 000400
B8IT09 = 001000
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
Bng = 000004
= 000010
BIT3
BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BLNKS1 063635
063634
BLNKS2

(=)

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

8801
8802
8803
8804
8805
BB06
8807
8808
8809
IT0

0
CHRCNT
CKSWR = 104

0213;6

AVECT1= 120254
AVECT2= 000000
A16
= 000400
A17
= 00100
BADTMO 00456
= 00001
BAI
8800 = 000001

AUTSIZ

ABASE = 176700

W WO
NN = = —d d VO NV SN
NWNONN)
= =2 S N—=
N
SN NWVIVINOONON

SYMBOL TABLE

SEQ 0282

oOooOOoOoOoO®

CZRNEAO RMB0 DSKLS PT1 MACRG V04.00 14~JAN-82 16:33:00 PAGE 43-2

SEQ 0283

074526
100 6
100
100413
10043
100447
100457
100502
100521
074556

EMS343
EMS344
EMS345
EMS346
EMS347
EMS3S
EMS350
EMS351
EMS352
EMS353
EMS354
EMS355
EMS356
EMS357
EMS36
EMS360
EMS361
EMS362
EMS363
EMS364
EMS365
EMS366
EMS367
EMS37
EMS370
EMS371
EMS372

100607
100623
100652
100700
100716
074605
100737
100744
100762
100776
101022
101055
101077
101117
074647
101141
101167
101215
101236
101253
101274
101301
101324
074677
101374
101411
101440

EMS40
EMS400
EMS401
ENS402
EMS403
EMS404
EMS405
ENS406
EMS407
EMS41
EMS42

074730
101570
101605
101622
101631
101672
101711
101721
1017
075006
075054

EMS340 100535

EMS341 10054
EMS342 10055

EMS373
101472
EMS374 101476
EMS375 101527
EMS376 101543
EMs377 101557
EMSL
072623

EMS43
ENses
ENS4S

ENses

0751
Q7as0y
075250

07332

075407
ENS47
072654
ENSS
EMSS0 075447
EMSS00 101754
EMS501 102115
EMSS02 102142
EMSS03 102212

EMS506 102237
EMSS05 102272

EMSS06 102345
EMSS07 102402
075516
EMSS1
ENS510 102472
EMSS11 10254
EMSS2 075565
EMSS3 075626
075667
EMS54
075744
EMSSS
EMSS6 076022
EMSS7 076115
072724
EMS6
076201
EMS60
EMS600 102644
EMS601 102674
EMS602 102714
EMS603 1027
EMS604 102776
EMS605 103023
EMS606 103041
EMS607 103061
076253
EMS61
Ehsee Oresss
076407
EMS63
EMS64
076447
076517
EMS6S
EMS66 07656
EMS67 07663
072770
EMS7
EMS70 076747
EMTVEC= 000030
EMT1
064376
EMTI0 064564
EMT100 066200
EMT101
066220
ENT102 66240
ENTIOS 065260
EMTI06 066304
EMT105 066324
EMT106 066344
066370
EMT107
EMT11
06460
EMT110 06641
EMT111 066432

EMT112 06645
06647
EMT113
EMT114 066516

EMT11S

066540

ENTITE
EMT117
EMT12
EMT120
EMT121
ENTIZ2
EMT123

066564
066604
064620
066624
066650
066670
066710

EMT126
EMT127
EMT13
EMT130
EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
EMTI37
EMT14
EMT140
EMT141
EMT142
EMT143
EMT14%
EMT145
EMT146
EMT147
EMTIS
EMT150
EMTI5T
ENTIS2
EMT153
EMT154
EMT15S
ENTIS6
EMTI57
EMT16_
EMT160
EMT161
ENTI6
EMT163
EMT164
EMT165
ENTIE
EATI&T
EMT1Z
EMT170
EMT171
EMT172
EMT173
EMT174

066772
067010
064636
067034
067052
067070
067110
067130
067144
067162
067174
064654
067212
067232
067246
067264
067300
067322
067344
067362
064672
067374
067416
067430
067444
067464
067504
067522
067544
064710
06756
06761
06763
067646
067670
067712
Q67736
067756
064726
07000
07001
07002
07004
070066

EMT124 066734
EMT125 066752

EMT125 070116
070136
ENTIZG
EMT177 070154

EMT2

064404

EnTZe1 07162

070312
07034

EMT270 071776
EMT271 072022

ENTZ0
EMT200
EMT201
ENT202
EMT203
EMT204
EMT205

064744
070156
070174
070212
070230
070252
070272

MT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT215
ENTZ16
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
ENTZ3T
ENTZ32
Enigls
EMT23%
EMT235
EMT236
EATZ37
EMT24
EMT240
EMT241
EMT242
ET243
EMT244
EMT245
ENT246
ENT247
ENTZS
EnTgs0
EMT251
ENT25e
EMT253
EMT254
EMT255
EMT256

064764
070356
070374
07041
070424
070454
070466
070306
07052
065004
070536
070554
070572
070610
070626
070670
070706
065020
070724
070742
070756
071000
07102
071050
071070
071122
06504
071142
071166
071212
071238
071262
071300
071316
07134
063060
0713
071404
071430
071454
071472
071510
071534

ENT206
EMT207

EMT257 071552
063074
ENTZ6
ENT260 071576
EMT262
EMT263
ENT264
EMT265
EMT266
EMT267
EMT27

071646
071664
071702
071726
071744
071762
065126

ENTZ72
EMT273
EMT274
EMT27S
EMT276
EMT277
EMTS
EMT30
EMT300
EMT301
EMT302
EMT31
EMT32
EMT3
EMT34
EMT35
EMT36
EMT37
EMT4
EMT40
EMT41
EMT42
EMT43
EMT44
EMT4S
EMT46
EMT47
EMTS
EMTS0
EMTS1
EMTS2
EMTSS
EMTS4
EMTSS
ENTSE
EMTS7
ENTE
ERTE0
ENTE]
ENTG2
EATE3
EMT
EMT6S
EMT66

07204
072
072102
072120
072140
072156
064432
065140
072202
072226
072244
065154
065170
065222
0
065254
065270
064452
065304
065324
065340
065
065376
065412
0654
065442
0644
065464
065506
065526
065542
065556
065576
06561
06563
064520
065646
063662
065702
Q6372
65736
065750
065764

EMS33
ENS330
EMS331
Ens33e
EMS333
EMS334
EMS33S
ENSS36
EMS337
EMS34

SYMBOL TABLE

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

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

SEQ 0284

SYMBOL
T

= 00062
ILF64
ILF?? = 000
=

= 000074
ILF74
ILF76 = 00007
ILR _ = 0000
0000
ILRG30=
ILRG52= 00005
ILRG54= 000054

OOOgOOQ-‘-‘
SN
OO0

00
14
01
10
00
00

PUYBUF
it
PURVECS

e lelelelelelelelelo]

b=
o
S

“

nnwnnun

ILRG56= 000056

ILRG60= 00006
ILRG62= 000062
ILRG64= 000
= 0000
%LR

— b b e e

b et b Y b U S S O

onN

ONOO&

ONNON

- P

S
D De

SRR
SS

SN—
N

9 % 4% Y
ON b bDV Pt
o0 NSO OO
SSINRSS
R EWNNSOON
.au: SRNONNOONOO
~

b e

22222223232323222%

SO NSNNSNWO

o
~§d“-‘

NNNNNNNNUI—DU!UI-!U!\hg
N
N =2\ =2 =2 OO

28888383838838388 ooS388
SES03S
NN
= D b b

2388887888
R
PO ENRAR
—
VIR SS WSS
-NOOO
==
~
o
WU W
N =2 NN
oY O =O N NWNWWVNO
OO
S~

X
O HHFONOOO
~
EXTENSNSOOOONONON Qi

= = =
OPINNIN = N b = =t © b = NN N = NN WP N N N NN N N NN
N=\NWaHnN
= —b b =
WNNENR
S =N DW= W= B NO N S = DO = S UNNININ)
NONSNOR ST NOORANOWOON VO NO
p
AN S ONONINNO=NO\NISWNONON

Vi
SEXSIXIKXSK3S
N =2 = S PONIN) =2 ) = = ~NOON

BN ARV
—D

) e

NN
BN OOWVIN=O
wiwn
&S NN
~ NNOON
NV v SO
=
£~
N
~N N =2 (NWVINDWNND
oo

b b O =D—

elelelelelelelelele)

—

BPANIN
=
bt b S b OO OO OO

OO0
OODOCOOOOOOODOOOOOOD
(===l
OO0 00000 OVIOOONON
OO0 OOWN=4 OO OVIVIVMIVINIO
(=l=1=13
e
d
cmd
md
e
b
e ) d = NN
N
s SN IS B b b I8 IS SN B b o e e e e e e
b b amd

= 004
TBI1TVE= 000014
001532
TIME
TKVEC
= 000060

001540

SWR

STOPCL

STKLMT=

00464

START

SSF
=
020000
1190
STACK =
STANDA 006074

—

—_—

START1
START2

§§85858-e
289.§§

CZRNBAO RM80 DSKLS PT1 MACRO V04.00 14=JAN-82 16:33:00 PAGE 43-5
SEQ 0285

SYMBOL TABLE

CZF BAO RMB0 DSKLS PT1 MACRO V04.00 14~JAN-82 16:33:00 PAGE 43-6

SEQ 0286

SYF 'OL TABLE

}
$RDSZ =
SRESRE
1
$7M80
4314
TNAD
$SAVRE 055212
r4
VR6
6 g
$SCOPE
1;
$SETUP=

$SWRMK=
$SWO8T
1226
STESTN
1
$TIMES
1
$7k8
07
STKCNT
S$TKINT 0687
$ 'KQEN= 82 7

SSWREG

$TKSRV

0722
$TKQIN
$TKQOU 0607264
$TKQSR 060726
001160
$TKS

$STUP = 177777
$SVLAD 056776
$SVPC = 000210
$SWR_ = 167400
. ABS.

001244

111166

000000

ERRORS DETECTED:

061000

001

VIRTUAL MEMORY USED:

62208 WORDS

DYNAMIC MEMORY AVAILABLE FOR

71 PA

((55543 PAGES)

+A:CZRNBA/C=A:CZRNBA.DOC,CZRNBA,SYSMAC/M

1174
$TMPO
117
$TMP1
1
$TMP
1
$TMP
81 4
$TMPS
$TN = 000121
1 1%
$TPB
1"
$TPFLG

001164
$TPS
STRAP_ 062314
S$TRAP2 062354
$TRP = 000016

2382
$TRPAD
1
$TSTM
1116
S$STSTNM
3116
STTYIN
g
TY
$TYPDS 055 g
56034
$TYPE
$TYPEC 856 46

STYPEX 056
$TYPOC 0556
STYPON 055646
$TYPOS 055606

1234
SUNIT
1110
SUNITM
1 43
SUSWR
127
SVECT]
1274
SVECT2
3
$XOFF =
1
$XON =
S$XTSTR 0564

$$GET4= 000000
$$5W08= 000121
SOFILL 056031
.$X = 001100

ong rn SE S ILASLSELSNBS

—-

R * NN=NONIN O T IO UM IM O =R NM= U

wy
w

*®

My oM

Z=3 3%0g E Ecos gazda

[ L TVIV TV TV VW VW TV VW YW VNIVV]VE]VY]

SEQ 0289

CZRNBAO RMBO DSKLS PT1 MACRO 824 .00 14=JAN=-82 16:33:00 PAGE S-3
CROSS REFERENCE TABLE (CREF V04.00 )

o L J RS WA LA RAS RS

—MRM 59Nna —

———

11111111

R « ¥ Lal LtAt)

-3¢3 =Mos

E
&

o-&w
bti

(=] a
w

OO KANARAARARAAR &

0M = -3-

w
Y4

ROk

Y § ghigiIsTT T ohax

0 N NOOW—O ~

“&
«&
«&

&%&« .
-“4
-

(-4

«&®
=&«

0 0 ~ O~

«&

-—

LTIRT LY
T Po7 W T PTYTET

£2 CEXEEEEEMEE E DEESE

—

TTT0

SRS EEE

SEQ 0293

00)14-JAN-82 16:33:00 PAGE S-7

Voo,00

11=46*
7=1
9=1
9-1
3—1

-4
-04
134

6-08
6~04
-0#
-1

-1#
-1

§5-13

4~9448

4=9434
4-9954
6-0
6-0
6-0
6-0

s4=1
7=1
31-1

11-63

10=46

10-56

23-1
23-1

24=1

23-1#

27=1

10-63

10=-64*

13-73
13-3324

13-734
13-524
13-6704
1
1 -<16
13=->55#

24=1+

3%-1
=134
1 -<98

13-<98
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
6-0
6-0
6-0
6-0

69
1300

13-332
13-602#
13-086#

13-A39#
13-114#
13-M40

3-£28
13-114#
13-M40#

13-14
13-332¢
13-670
13-986#

13-A300
13-£284
13-189
13-MaO#

1 3-N

13-734

13-524#
13-774

13-106
13-5

375

O~NUMN
O ==.9.CFK
OM
157...

13-1
13-159%
13-602#

6~0
6-0
6-0
6-0
6-0
6-0

24=1+

25-1

DA ) WA A M) WA WA A A A LA A A A B A ) L A ) L) G A W D ) W W Wl G Sl el el el Wl e Sy el el M S S S S S S Sy e S

29-14

CZRNBAO RM80 DSKLS PT1 MACRO
CROSS REFERENCE TABLE (CREF

TaAMmmmmMmMm

£S5

-U81
-W0 o
-Y24N
-d33

=8¢

oMTM

4
aN
Wo

13-U234
1
1

-P19

—_—m

= R

1
1
1

NN
NN NN N

04.00 14=JAN=-82 16:33:00 PAGE S-8
e R

CZRNBAO RM80 DSKLS PT1 MACRO
CROSS REFERENCE TABLE (CREF

13-717

13-N64

13-104

13-108

33-77

33-78

;3-951

33-80

13-w53
33
33-83

13-\56

13-\57

33-81

33-82

33-85

33-86

13-x31

13-x35
33-69

13-m39
13-\51

13-\52

13-\53

13-\54

13-\55

13-\58

13-\59

33-70

PPN

ATESTN
ATNMSK

33-68
33-88

13-[44

13-688

SEQ 0295

CZRNBAO RMBO DSKLS PT1 MACRO V04 680)14-JAN-82 16:33:00 PAGE S-9
CROSS REFERENCE TABLE (C REF V04

-N N-N
£

*«¥

—— I

EEEEEIEEEEE = 2xx

oMM

"o w w

i ediicatispaiite- i N

o Or=N. = WO—FNANNONOOITO
MO
== OANONOMON
ONMANO TM OVNONINON

PES Pty

RN RNAR AN,

LPR LTy 1 PR T TS PAIEy

aw M9 MtOihb SN MAMAM IMIMMIM MMM CIfnlR=]E WRE-R NS

w -o

S
¥

'e 0

e OCOW W iWWWWWwWWwWwww

@
"

Lo 0 0 e 0

[

WW
W W WW
W WWWWWW

00 e b e

C ZRNBAO RM80 DSKLS PT1 MACRO

00 14=JAN-82 16:33:00 PAGE $-13

CROSS REFERENCE TABLE (CREF VxQ0450 )

SEQ 0299

- 3
—OnNNOMINITOWN

A AA ) )W A W W W W W W W W WW W WW WWW WW

~N
-

W A L A ) W) M W W W W W W W W W W W W W W)

14869o01“

NONOMN

CZRNBAO RMB0 DSKLS PT1 MACRO xg‘ 00 14=JAN-82 16:33:00 PAGE S-14
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0300
36-400

4O-16#

151

36-327

40-174

36-329

36-346

36-348

36-364

36-380

-8
158

-243
6-163

36-248
6-16

36-259
6=172

38-339
40-194

36=344

40-4N

E:% g

}92

40=21#

36-382

36402

40-204

EHS%SO
EMS251
EMS25

33
1
=49

6=197
6-313
6-58

40-64¥

36-276
36-221

;6-177

40-66#

36-296
36-341

=17

36-223

36-291
36-223

6-271

56=274

40-694

36-271

36-285

36-291

36-298

36-422

40-684

36-369

36-385

36-415

40254

36-404
36269

36-405
36-289

36-407
36-292

36-419
36294

40-264
36-337

40-54

36-124
36422
36-44

36-127
40-75#4
36-47

E:ggg

EMS25

EMS254

EMS255

EMS256

EMS260

EMS261

EMS2

EMS
EMS

6-85

=49

6-205

36-68

106

180

36-110

=11

§89

40-724

36-18
36-77

-189
32-229

36-

;

6=17

36375 36-391

}zo

EMS257

EMS26

6-16

158

=315

36=116

36-133

4C-714

36-321

36-323

40-734

36-192
=241

36-1
36-245

36-287
36265

36-199
6-60
6-88

6=213

-35

36-366

36-417 40-23#
36-201
36-62

36-203
36-64

36271
§6-66

-184

36-194

60-3 4

=91

6-94

6-221

36=271
36-15

6-274
36-33

36-%76
36-36

36-339
36-39

6-118
36-344
36-41

36-267
36-243

36-309
36-248

36-311
36-259

40-80#
36-339

36-344

40-B1#

36-46

36-69

36-72

36-87

36-90

36-73

36-94

36-104

36=-116

36-142

6-25

6=27

36-29

36-31

40-88#

36-75
6-6

6-91

6-101
6

6-113
6-88

36-112

40-9

36-70
28-;;3

6-9?

6-256

6=73
6-148

6-100

36-271

6-81

36-75
36-155

\¥,|

EMS21

EMS
EM

[* ]

151

EMST

o
§
o
oo

EMS]

]

144

EMS15

6-271

36-85
36=170

36-291

36-136

36-49

36-317
40-654

40-63#

36-187

36~-211

-58

36-60

36-94
36194

36-98
36-225

36-101
36-267

36-104
40-764

36-93

36-100

36-103

36-112

36-115

36-148

36-155

36-170

36-177

36-184

40-93#
36-98

36-110

40-94#

36-292

36-302

40-97#

36-88
36-177

36-91
36-184

SEQ 0301

CZRNBAO RMBO DSKLS PT1 MACR0 824.00 14=JAN-82 16:33:00 PAGE $-15
CROSS REFERENCE TABLE (CRE

O
0 0

Beb & b &

AUt

S0l 233180

SR AN SRR R A

oM =

00 000 000

egD

PTILbEEE £30n D3p0b bEE hE

oM~N
n

SEQ 0302

(%]

s (W]

222
268

36-336

36-310
36-338

36-30

36-32

a -1

FINDINON
CMOIOTON ~FONO
iend
TLRILIi
1P 3ETiiiiy

109

36-32
36-78
%Efll

178
_

36-403

36-141
36-181

fififlg

36-374
36-406

36-128
36-288

=0\

]VV] (S

Sws

NSW)

=
2w 33

G
EMSS

-311
-313
gl
7

36=-274
40—1g »
-2
40-=164#

36-276

36-422

40-1614

4L0-53#
g15
-323
4LO0-56#

3k
-378

-127

EMS7

22-126

EMT10
EMTI00

8-25
8-193

EMT106
EMT107
EMT11
EMTI10
EMTI11
EHT11§
EMT11
EMT114
EMT11S

8-211
8-214
8-28
8-217
8-220
8-223
8-%26
8-229
8-232
§-235
8-%38
8-31
8-241

gg-lSSl
-158#
36=-194
36-160#
-162#
-164#
-166#
-168#4
-170#
36-173#
1754
214
3-1774

4550
riss
EMT125 8-556

6ieis
-189#

30
174

-1424

ol 156 36uds
36k
208
oS
36=-153#
-2
EMT105

EMT116
EMT117
EMT12
EATI20

frise 4258
gk
i
-265
EMT130

EMT131
EMT13
EMT13
EMT134
EMT135

-268
3-271
=274
g- 77
-280

iaon
e
-1974#

-1994
-201#
-2034
-205#
-2074#

40-163#

40-1654

:353

32-389
=409

40-1674

6-391
36-411

3630

—" G— —%" p—"" —"gp—" pp_— -\

40-84

—

EMSH1
EM
EMS6
EMS64

36=-131

36-417

36420

40-168#

= o

36-129

40=494

40-544

(ol

81
19

36-341

36-329

36-331

36-333

36-355

36-371

36-387

40-554

36-364

36-369

36-380

36-398

36-400

36415

40-58#

40-59

36-305

SR W W

EMS600
EMS601
EMS60
EMS60

36~
40=-51#

;

EMS
EMSS

)

SEQ 0303

CROSS REFERENCE TABLE (CREF V04.00

14-JAN-82 16:33:00 PAGE S-17

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00

— —

YOS —~g—-y_—= -

SEQ 0304

-~ G~~~y O

[

EMT215
EMT216

RIS
B 4 A4

-2114
254

8-283

S-18

CZRNBAO RMB0 DSKLS PT1 MACRO 826680)14-JAN°82 16:33:00 PAGE
CROSS REFERENCE TABLE (CREF V

8<%

-3114

-439

3174

EMT

-4k

-304
-3134
-3154

-319#

-3214
-3234
-3254
-3274
%1

EMT224
EMT205
EMT206
EMT207
EMT

B8-44
B-448
B8-451
8-454
-58

EMT233
EMT23%
EMT23S

8-467
B8-47
8-47

EMT237

B=479

8-482

EMT241
EMT24
EMT24
EMT244
EMT245
EMT246
EMT247
EMT25
EMT250
EMT251
EMT25
EMT25
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT2
EMT26
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270
EMT271

8-485
88
8-49
8-49
8-498
8-501
=506
-64
-5
8-511
8-515
8-518
8-521
8-524
8-527
8-530
8-67
8-533
8-537
8-54
8-54
B-546
8-549
8-552
8-555
8-72
-558
=561

gg-SkGl
-350#
26-3530
6=-3554
%g-SS?‘
-3594
36-362#
~47H
-3644
6-3664
-3694
36-371#
-3734
-3754
-3784
6-380#
4
-3824
-3854
-3874
-3894
-3914
-3944
-3964
-3984
=524
-4
=402#

EMT27
EMT274

3-567
=57

-4074
32-4090
-4114
-4134
-4154
-6#

emg
EMT §1
EMT2

[
EMT236

EMT27.

EMT275
EMT27
EMT27
EMT

-457
~460
8-464
8-476

=564

=57,
=576
-580
8-

-ggwf
-3314
-3334

-3354
-3374
-3304

-341 #

32-4050

-5
~433
B8-4

EMT
EMT
EMT221

EMT §

Rl
v afor

EMT217

SEQ 0305

WEEFTFEEFET

CZRNBAO RMSO osxnfs PT1 MACRO &oa 00 14=JAN-82 16:33:00 PAGE $=19
CROSS REFERENCE TABLE (CREF v04.00 )

1 8

36-344H

)

Sdhosas

CROSS REFERENCE TABLE (CREF v04.00

SEQ 0306

CZRNBAO RMB0 DSKLS PT1 MACRO 82‘680 14=JAN-82 16:33:00 PAGE $-20

9-23+

47004
13-<80

9-2
13-<81

13-E44
26-44

13-E50
26-49

13-E66
26-56

13-E91
26~152#

13-E92

13-M07

9-23+
13-<82+

9-23+
13-<83*

9-25%
13-=03+

9-26*
13-=04*

13-<37
13-=11+

13-<38
13-=12 t

13=<39%
15-6

13-<40r
15-7

13-<4b6r
8

13-<47¢

13=-<51*

13-<S52=
1545+

LAl

~ H

) B B

nvl

SEQ 0307

“v

IDXMSK
IE
ILF

P 0000 000 F 0Ll B

- w
IBSAVE

25-1

4=9334
4=9468

4=97N

13-709
33-79
-J62
-J98
13-k02

13-M29

33-80

13-mM27

13-€17

29-1
29-1
13-H20
13-L58
13-544
13-290
13-68
13-b87
16-19

13-508

13-510

13-853-

25-1

25-14

25=1+

25-1%

13-N18

13-N20
33-84

33-58
33-87

33-67
33-88

33-68

33-83

13-855

33-59-

33-69

33-77

33-78

33-70

33-71

33-72

33-73

33-74

*Ce .-t =

S8
a

4 [

[N "0 £

1 P00 [] [

- et & S e
w

w
i

CZRNBAO RMB0 DSKLS PT1 MACRO 824.00 14=JAN-82 16:33:00 PAGE S-23
CROSS REFERENCE TABL E (CREF V

MSDRVS

MSE
MSEN

MSER

MSGDRV

13=>11

13=>13

13=>32

13->36

10-72
13-b46
4&-827¢
13-137
11-62

13-478

13-a39

13-a85

13-b29

13-b34

13-b35

13-b45

13-a89

13-a90

13-i32

13-i36

13-147
13-M00
13-040
13-070
13-594
13-X64
13-295

13-148
13-M50
13-041
13-080
13-599
13-v58
13-296
13-L93

MY Ld)

= [72]b
o w -l Q.

SEQ 0309

.00)

13->00
MRD
MS
MSC

(N-]ONFOMON

4-8304
4=798#
4-9534
4=9544

13-> 74

13->95

13-v04

13-v12

13-Y16

13-9

13-25

13-30

13-44

32-28#
9-88

IL“ef.-Mro}igRAQeSBAYCMT ARNSERIESeIR

SEQ 0310

CZRNBAO RM80 DSKLS PT1 MACRO x‘oa 00 ’16-JAN-82 16:33:00 PAGE S-24

CROSS REFERENCE TABLE (CREF v04.00
l.-;m 13-779 13-781 13-P29
OFD
13-P0S
13-J82
&= 7;;»13-H66
OFFSET
13-097 13-P14 13-P48
47774
oM
35214
ONES
4~895# 13-903 13-924% 13=h?7.
OPE
OPI
-79
1-6
13-726 13-23
1:6

3 7;

49584

-78

13-d24

§339

13-d66
23-66
3-80
16-28
13-J94

1_-22

1;
-Xé
15-P78

13=117
17=17
13-006

13-m37
17-19

17-21

13-235
13-d68
33-6
33-81

13-(02
1§-h70
33-68
33-82

g
1
33~ 9
33-83

§-301

13-M92
13=:24

13-:40

13-:56

3=70
3-84

13-103
33-5
33-71
33-85

4=726#4
4=725#

13=L16
4=726

16=19
13-G35

PAT
PCLOCK
PCOUNT

4~961#
15-13
15-15

13-:43
15514
15

13-:52

13-759
13-:55

PFECH
PFECH1

26-59
26-164

26=164#
26-1654

PGM
PHA

47738 13-T92
4-84LN

13-Ué2

13-U71

13-v00

13-A00

13-A02

13-A17

13-A21

13-<40

13-<83

15-9

15-16

15-30

15-61

9-23%*

9=23+

30-1«

30=-1*

30-1*

30-1+

30=-1+

30-1+

2-;000 9-23
1'3'71'%13' 13-G47

9-23#
13-R25

13-¥11

13-d47

13-d87

13-e79

13-f39

13-g11

10-90

27-1

29=-14

PDA

PFECH
PFECH3
PFECHG

4-843#

6-164
26-164
26-164
4~955#

PIP
PIRQ
PIRQVE
PLCLK

4-769#
4~700#
4=700#
15-53

PRG

4=700#

PLFS
PLSTP
PRO
PR1
PR2
PR3
PRS

PR6

PR7
PS
PSEL
PSTOP
PSW
PUTBUF
PWRVEC
QUES

gg
RD

13-757

13-héé

13-h90

13-i77

13-j40

26-1
26-171#4
-173#

13-390

15-57#

4-841#
15-88#
15-84
4-700# 11-49
4=700#
4-7004
4=7004
4-700#

5-9

4-7
4=700
4=94 28
15-14
4-700#
7-04
4=700#
32-5#

15-60
4=700#

4=700#

15-63

15-83#

RDCHR
ROLIN
RDOCT

10-12
28-1
10-35

10-73
9-1#
0-49

29-14

READY

11=37#

14=16

14=20

RDY

23-74
3-88

§§:a?’

13-_93

47934 13-680

33-80

[ F

PAR

13-180
33-59
33-73
33-87

r vr

PACACK
PAKACK

13-176
33-58
33-72
33-86

4-945#

11-464

9-23+
13-k26

&=719%
148

22:7000

13-H61
29-1#

13-J70

13-214

13-252

13-290

4=992#
7=0#
7=04
7=0#
7=04
4=912#
13-609+
13-664
13-H12
13~N99+

13-U30+
13-[21+
13=_74+
13-e58

13-587+

13-U38
13-[63+
13="15+
13-e79%

9-90
13-617
13-<98+
13-133
13-067*
13-U59+
13-(85
13-"34
13-f39+
13-93«

13-[21

13-[63

13-\20

13-f49

13-g16

13-g21

13-h51

13-h56

13-h95

13-i00

13-C68*
13-K92¢
13-Q31+
1 3-X01
13-12 3Ix

13=165+
13-636*
13-D35*
13-L16*
13-Q74*
13=X21*
13-J4
13-a%9
13-{40.
13- 89+

13=172*
13-637«
13-E05*
13=L37*
13-R51*
13=X70*
13=164*
13=b15+
13-k26*
13-193«

13-180
13-638
13=F 24+
13-L58+
13-R98+
13-Y59+
13-]98+
13-b64
13=L59*
13-199

13-222«
1 . =644
13-F25
13=-M27+
13544+
13-214%
13- A43%

13-433 *
13-657 ¥
13-G81 *
13-N12 *
13-T40 L
1313-81
13-d47+

13-230*

13-230
13-656*
13-F73«
13-M64*
13-588+
13-752+
13-%65
13=c77%
17=17+
13-238+

13-15

13-25

13-29

13-36

13-44

13-56

13-272
13-587+
13- :4;*
13~07
1 3-]60*
13-e77¢

13-387+
13-588+
13- :43
13-079
13-194*

13-393
1 -:95¢

13-U88+
13-\01
13-'59+
13- ?11t
13~ 19+

13=V21*
13-\20*

13-002+
13-v95«

13="94*
13=-h46*
13=-124*
11=54+

9-86+
18-12+

11=55+

13-8

7=04

13-'55+
13-;30'
13-95
13-491+
13-C65
13-P88+
13-585

13-87
13-488+
13-:84

13P01+

13-P76+

v 13-194+ 13-200
§1e

13-C87*
13-P98
13-T15¢

13=176+
13-50513=-<00+
13-Q66*

13=-:99«
13-C89+
13-R83+
13-T21«

13-;01

13-D16+

13-R84*
13-115+

13-231¢

13-244

-e

13-b87+
16-19+

13-£37+

13-243

1
13

13-439+
13-g09+

13=:37+

13-00s

13-R44+

NaNwn MM
NN M
NRO -"
2N 2

1
1 3='11*
13-i66+
13- ®
13-476
13-C54~
13-P87+
13-S73+
13-60

265+
572«
s41r
06 3
-J19«
-d85%

42l] BLa

13-415
13-:99
13-C06
13=-R43+
13-570.
13- 89+
7=04
13=-474*
7
13-E;4*
13-§72%

13-i82

13-153+

NN M

RECAL
RESREG
RESVEC
REX

SEQ 03N

04.00 14~JAN-82 16:33:00 PAGE $-25

CROSS REFERENCE TABLE (CREF VX‘.OO )
CZRNBAO RMB0 DSKLS PT1 MACRO

)[Naum &«

<Ed

-e

w ~

3 v 13=436
7%
+ 1
: 74

-064 v
13-195+«

1 ~-084
1 =240t

. —
1

- w caw & « - " EEEEn

G TIRgYI poa RESUENEIN

- RN ' ¥

e OF OONOO
£5 LD
w

To ee 0

- -

&AM MM Oh OMNOReNE SN @

P ARR

~e = - Lot g e-

- -

P 8T FEERR

H H| H H. o

C
»

13-m
7=0#

13-F59
13-\30
13-m92

ORI

13-F46
2, 13-392+
13-\
13-Véé
15030
13-m5
14
13-m60

13-F85
13-_08

Lalalalalalalgl

RMOF1

MLalMal

—FONO =M

RMMR21
RMMR20
RMOF

—

yyyyyyy»}mn

RMMR11
RMMR10
RMMR2

k91'
13-n68t

3
13od
13- L
1313-k92*

Smath
5ot S S SRR IS EESEEEESALSSN

SEQ 0313

680)16-JAN-82 16:33:00 PAGE S-27

&&«

CZRNBAO RMB0 DSKL S_PT1 MACRO
CROSS REFERENCE TABLE (CREF V

‘

SEQ 0314

CZRNBAO RMB0 DSKLS P T1 MACRO 824.00 14=JAN-82 16:33:00 PAGE $-28
CROSS REFERENCE TABL E (CREF v04.00 )
13-152+

SCTMSK
SEARCH

13-877
13-a79
13-L08
13-R81
13-W60
4-8144
&~729%
13-¢77

13-G43

13-179

13-k06

N Mm

*aN®.lu

13-R04

13-R98

TMM MMmm

333

N Mm

e~ OG0 ~N
—@=NNNNNNN

- >D -

13-g58

[L*=]

—= -

13-g58

13-a55

13-b15

13-b87

MmN

13-586+

13-52

O N NN

7
&-988¢

13-844

13-_74

13-"15

13-'59

13-'94

(V9] "0

[-e]Lal%2‘36

Lal M aOlalalaX2l<
~N -0

o~7.*sxaMML()¢OMNLalOaMlwOgal~MN

OWwN= T=MMTMN Lalaglal]alalal LalaMLlalal]alyl LalaLMlalalyl PO@oN~T 73L)4o-2“~ P10Nw0“2-7 [<T)a-]la¥
Lgal~alalMaa 0-©D N5—ONWNO —O5M) NTbON
—<ON=-J .I%(i.3R PrINXyEPT -wMo"m0ix
VWO

LA M MO

®»

3-U54
3-153
9

13-720
.

3-71
3-K2
%-0

13-hé1

SEQ 0315

CZRNBAO RMB0 DSKLS PT1 MACRO V04.00 14-JAN-82 16:33:00 PAGE S-29
CROSS REFERENCE TABLE (CREF v04.00 )

13-i05

13-i86

13-i92

9-23
2%=1*
9-28

9-23+

27-1

13-C55

13-g78

13-j49

13-j55

13-k35

13-ké1

13-168

13-174

24=1
26-14

24=1
27-1

15=14+

15-28+

26-14

13-399

13-223

264-1
30-1

24=1+
301+

13-_49
7
1
13-n52

13-_09

13-¢c07

&»

24~-1
27=1%

T
Lad

9-28
25-1

9-23
24=1%

15=71+

13-F63

TST102

13-F86

13-613

13-621

13-629

13-637

13-G45

13-653

13-\25

04 680)14-JAN~82 16:33:00 PAGE S-30
CZRNBAO RM80 DSKLS PT1 MACRO x‘
(CREF
V
CROSS REFERENCE TABLE

SEQ 0316

85
2- NI\l
838
R
.

04.00 14-JAN-82 16:33:00 PAGE S-31

CROSS REFERENCE TABLE (CREF VX‘-.OO )

CZRNBAO RMB0 DSKLS PT1 MACRO

SEQ 0317

b eb

MMNONLalalalalalgl

e b b eb e e b b b b b b e e b e b e

TTTWU&WWWW UWM “UUUU
(=

«&

CZRNBAO RMBO DSKLS PT1 MCRO&0‘680 14=JAN-82 16:33:00 PAGE S$-32
CROSS REFERENCE

TABLE (CREF

13-717

} :310

13-588

13-Y03

13-Y07

13-x81

1 -vgs

33-81

3 -as

-798

13376
} :5g1

13=> g
} :525

13->93
13-240

} -1%% } -ggi 13-227 13=241

ZEROS

—d

} -G ;
1 ->96
} -2

SEQ 0318

;

13-R1

)

4-79g

13-G

13-Y59

13->97
13-292

13<295

13=379

13=440

13-462

13=512

13=;03

13-;65

13-;75

13-289

13-398

13-420

13-459

13-510

13=302 13-305

13401

13=423 13-478 13=515

13-81
}o: 9

1381
}o:?f

1;—99
13-830

13=190
13-831

13-224
13-849

13-224
13-867

1;-239
13-015

13-286
13-047

9=33¢

936+

9-37

9-39*

9=44

9-55

9115

9-117

13-895

13-944

13-952

.
|

SEQ 0319

CZRNBAQ RMB0 DSKLS P T1 MACRO x‘o& 680)16-.!"4-82 16:33:00 PAGE M-1
CROSS REFERENCE TABL E (CREF v

6-0

29-1

4=-690#
4-6904
4-6908
4-6914
4-689F
4=-6914
4-6914

28-1
27-1
19-1
24-1
29-1

29-14

SEQ 0320

CZRNBAO RM80 DSKLS P T1 MACRO xg‘ 680)14-JAN-82 16:33:00 PAGE M-2
CROSS REFERENCE TABL E (CREF V

-Q05
1 =420

4-2104

GETMR1

4=1944

4=2504

33'38333333333333}333333‘

4-138#4
4-2824
4=1224

T TM= 0NO
N OOTOMNNOOOMNINOOOVOMN

4=2748

4=1464
4-186#

GETHR
GETLA

SR A
D8 8NIRRO T

GETCS1

ESCAPE
GETAS
GETBA
GE TBAE

13-541
13-

13-625
13-\01

13-638
13-342

13-658
13-%65

13-:78
13-481

13-=24
13-"34

13-F25
13-a77

13-G82
13-a93

13-415

13-474

13-491

13-:99

13-;18

13-;29

13-;43

13-C33

13-376

13-436

13-456

13-508

13-;00

13-,;64

13-;74

13-;84

13-<04

13-=76

13-A48

13-A59

13-A69

13-A86

13-833

13-J04

13-J30

13-L64

UL U LU

[w4

-](.18%

13-V76
13-180
13-U04

13-85
13-133

13-230
13-u38
13-272

13-393

13-87
13-011

13-526

13-149

13-240

13-=50

13-=61

CZRNBAO RMB0 DSKLS PT1 MACRO xg‘
CROSS REFERENCE TABLE (CREF V

4&-700#
13-877
13-a79
13-L08
13-R81
13-w60

PUTAS

4=700#
31-1
4=4704
4=3294

680)

SEQ 0321

14=JAN=-82 16:33:00 PAGE M-3

13-1
13-986
13-A39

13-<37
31-1
13-390
13-587

13-<38

13-<80

13-<81

15-6

15-7

18-8

13-U67
13-153

13-v62

13-w13

13-w27

13-W4é

13-w69

19-1

21-1

28-1

30-1

31-1

30-1

31-1

CZRNBAO RMBO DSKLS PT1 MACRO V04 .00 14=JAN-82 16:33:00 PAGE M=-4
CROSS REFERENCE TABLE (CRE F V04

Pt b A e s Sl 4 A Pt AAR AN N A S e A e

M MM

SEQ 0322

13-795
13-D88

SEQ 0323

CZRNBAO RMBO DSKLS P T1 MACRO 824 680)14-JAN-82 16:33:00 PAGE M-5
CROSS REFERENCE TABL E (CREF V

SETLFS
SETOM
SETPRI
SETTRA
SETUP
SETW

SWRSU