Digital PDFs

AH-F845A-MC

March 1980

151 pages

Original

8.1MB

view download

OCR Version

6.8MB

view download

Document:	CZRLNA0 RL11,RLV11 RL01-02 DRIVE TEST 3 MAR 1980 bw
Order Number:	AH-F845A-MC
Revision:	000
Pages:	151
Original Filename:	CZRLNA0__RL11,RLV11__RL01-02_DRIVE_TEST_3__AH-F845A-MC__MAR_1980_bw.pdf

OCR Text

RL1L.RLV1L

RLO1/02
CZRLNAO

DRIVE

TEST

AH-FB45A-MC we sso —
RICHESL OF
1
20

======s
BBslad

.REM @

SEQ 0001

IDENTIFICATION

THE

PRODUCT (CODE:

AC-F843A-M(

PRODUCT NAME
:

CZRLNAO RLO1/0? DRIVE

DATE CREATED:

5-JAN-79

REVISED:

7=DEC~79

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

D. DEKNIS., (.

INFORMATION

NOTICE

AND

IN THIS

SHOULD

NOT

DOCUMENT

TEST 3

CAMPBELL

CONSTRUED

SUBJECT

CHANGE

WITHOUT

AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATICN.
DIGITAL EQUIPMENT
CORPORATION
ASSUMES
RESPONSIBILITY . OR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOf TWARE
DESCRIBED
IN
THIS
DOCUMENT
IS
FURNISHED
TO
THE
PURCHASER
UNDER
A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND
CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT
NOTICE)
ONLY
FOR
USE
IN
SUCH
SYSTEM,
EXCEPT AS MAY OTHERWISE BE PROVIDED IN
WRITING BY DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?c?gk{ABILITV OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

(C)

1979, DIGITAL EQUIPMENT CORPORATION

—

[]

n
n—

— —

]

——

[)

[]

O N B RORI

(STSTN)
L}
. L[]

CONTENTS

INFORMATION

PROGRAM ABSTRACT
STRUCTURE OF PROGRAM

DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS

HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT JONS

THE FIVE STEPS OF EXECUTION
SAMPLE RUN~THROUGH
CHAIN MODE OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY

COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE

HARDWARE PARAMETERS
SOF TWARE PARAMETERS

—

[)
NINN
-

3.0

GENERAL

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC

2.0

(ST
NI N
¥
[
.
. []

- b

—

1.0

VY NP
RN
N;\) N'—‘ N~

TABLE

ERROR INFORMATION
ERROR REPORTING
SPECIFIC RESULT MESSAGES
OTHER MESSAGES
ERROR HALTS

4.0

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS-

5.0

DEVICE

6.0

TEST SUMMARIES

INFORMATION TABLES
.

PAGE 2

SEQ 0002

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

1.1

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC COMPA)IBLE WITH BOTH XXDP+ AND ACT.

STANDALONE

IN ACT MODE

1
PAGE 3

IT CAN BE

SEQ 0003

RUN

UNDER XXDP, AND CAN BE CHAINED UNDER XXDP+, ACT AND APT

(SEE 2.2 ''CHAIN MODE OPERATION'' FOR DETAILS OF CHAINING

PROCEDURE).
IT
IS
A
SINGLE
PROGRAM FROM THE STANDPOINT OF THE
DIAGNOSTIC USER,
WHICH
AT
RUN
TIME
IS
APPENDED
TO
A
COMMON
FRONT-END PIECE OF SUPERVISOR SOF TWARE THROUGH WHICH THE DIAGNOSTIC
PROGRAM INTERFACES TO THE ENVIRONMENT AS IT EXECUTES.

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES
FIRST
TO
THE
SUPERVISOR
PORTION,
WHICH
WILL
ASK CERTAIN 'HARD CORE''
QUESTIONS ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND
MODE,

INDICATED

PROMPT

OPERATOR MAY ENTER ANY OF

"OPERATING INSTRUCTIONS''.

(HARACTER
SEVERAL

(DR>).

COMMANDS

(OMMAND

DESCRIBED

MODE THE
IN

2.0

THE DIAGNOSTIC PROGRAM IS LOADED IN THE LOWER 8K
OF
MEMORY.
THE
DIAGNOSTIC
SUPERVISOR
CODING
OCCUPIES 6.25K OF THE UPPER PART OF
MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES IN THE
UPPERMOST

1.5K OF MEMORY SPACE.

1.1.2

DIAGNOSTIC

INFORMATION

THIS PROGRAM TESTS AND EXERCISES

RL0O1/02

DISK

DRIVES

RL11/RLV11

CONTROLLER.,
(4
DRIVES PER CONTROLLER).
THE ENTIRE PROGRAM IS RUN
ON THE FIRST DRIVE BEFORE STARTING
ON
THE
SECOND.
THE
PROGRAM
STARTS
BY
TESTING
THE
SIMPLEST
FUNCTIONS FIRST USING THE LOGIC
TESTED IN EARLIER TESTS TO TEST MORE COMPLEX FUNCTIONS.
THIS PROGRAM FIRST TESTS THE RLO1/02 SEEK TIMING.
DATA
TRANSFERS
ARE
DONE
AFTER
THE SEEK TIMING TEST.
THE FIRST DATA TRANSFER IS
READING OF THE BAD SECTOR FILES WHICH ARE STORED AND USED LATER
TO
PREVENT
TESTING
ON
BAD
SECTORS.
FOLLOWING DATA READ AND WRITE
TESTING, THE PROGKAM TESTS
FOR
OVERWRITE
PROBLEMS
AND
ADJACENT

CYLINDER .NTERFERENCE.
THE

WRITE

LOCK

DATA

PROTECTION

INTERVENTION IS REQUESTED.

1.2

SYSTEM REQUIREMENTS

TEST

PERFORMED

MANUAL

‘

1.2.1

HARDWARE REQUIREMENTS

* PDP=11/LSI-11

PROCESSOR WITH

+ CONSOLE DEVICE
* 1

CONTROLLER(S)

WITH-

* KW11-P CLOCK

(REQUIRED TO PERFORM TESTS

* LINE PRINTER

(OPTIONAL)

TEST PART 2

'BAD

AND &)

(FORMERLY CZRLDBOQ)

(EK=-RLO1-UG~002)

DIAGNOSTIC HIERARCHY PREREQUISITES

THE RLO1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS
:

CVRLARO
CZRLGBO
CZRLHBO
CZRLIBO

RUN

THE

FOLLOWING

RLV11 RLOT DISKLESS TEST (RLV11 ONLY)
RLT11/RLV1T RLO1/02 CONTROLLER TEST (PART 1)
RL11/RLV1T RLO1/02 CONTROLLER TEST (PART 2)
RLO1/02 DRIVE TEST (PART 1)

ASSUMPTIONS
THE HARDWARE OTHER THAN THE RL0O1/02 SUBSYSTEM IS
ASSUMED
PROPERLY.
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR,
NOT FUNCTION PROPERLY.

2.0

'BAD

RELATED DOCUMENTS AMD STANDARDS

XXDP+/SUPERVISOR USER'S MANUAL

1.5

SOF TWARE REQUIREMENTS

RLO1/702 DISK SUBSYSTEM USER'S GUIDE

1.4

MEMORY

-~ 8 RLOY DRIVES WITH RLOYK CARTRIDGES CONTAINING
SECTOR FILE'
- 8 RLO2 DRIVES WITH RLOZK CARTRIDGES CONTAINING
SECTOR FILE'

CZRLJBO RLO1/02 DRIVE
1.3

16K OR MORE OF

(LA30,LA36,VTS0,ETC.)

OR 2 RLT1/RLV1T
1

1.2.2

PAGE 4

OPERATING INSTRUCTIONS

TO
WORK
ETC., DO

SEQ 0004

PAGE

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

THIS DIAGNOSTIC PROGRAM SHOULD BE LOADED AND STARTED
USING
NORMAL
XXDP+
PROCEDURES.
START
THE
EXECUTION
OF THE XXDP+ MONITOR BY

USING THE APPROPRIATE BOOTSTRAP PROGRAM.
THE MONITOR WILL PRINT
A
MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
58;??82.
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR
THE
XXDP+
CHMDKAQO XXDP+ DK MONITOR NNK
BOOTED VIA UNIT O
ENTER DATE (DD-MMM~YY):
AF TER

THE

Og EgHE
ASKED:

DATE

HAS BEEN ACCEPTED BY

MONITOR

IS PRINTED.

THE

MONITOR

THE

RESTART ADDRESS

THEN THE FOLLOWING TWO QUESTIONS ARE

S0 HZ ? N
N
LSI ?
THE DEFAULTS ARE BOTH "NO''.
THE

PROGRAM.

DO NOT

TYPE

WHEN THIS DIAGNOSTIC

THE

TYPE 'R''

AND

EXTENSION.

IS STARTED

THE

THE PROGRAM NAME

RUN

FOLLOWING STEPS WILL OCCUR:

KAAAAAANRY

* STEP 1

142222482
)1

THE DIAGNOSTIC WILL
THE

TIME

WHEN

YOU

ISSUE THE PROMPT 'DR>''.

DIAGNOSTIC, NOT XXDP+.
PROMPT

BEING

RESTART

WE WILL

XXDP+,

DIAGNOSTIC

REFER

YOU

FROM THIS POINT

WILL

THE

COMMAND MODE,

UNTIL

TALKING TO THE

PRESENCE

THIS

NOT

THE

AS OPPOSED

TO XXDP+

COMMAND MODE
.
AT

THIS POINT

SAME

THE

YOU WILL ENTER A °''START''

XXDP+

‘'‘START''

COMMAND.

COMMAND, WHICH YOU ALREADY ISSUED IN

RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ''START'' COMMAND CAN TAKE
A
NUMBER
OF
SWITCHES
AND
FLAGS
(ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH
IN
2.3
°'DETAILS
OF
(OMMANDS
AND
SYNTAX'',
HOWEVER,
IN
ORDER
TO
USE
THE
PROGRAM,
ALL YOU NEED TO SAY IS
SOMETHING LIKE THIS:

STA/PASS:1/FLAGS.HOE

SEQ 0005

THINGS

TO NOTE

HERE:

ONLY THE FIRST THREE CHARACTERS OF
THE 'DR>'" LEVEL NEED TO BE TYPED.

(OMMAND

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE.

PASS

CONSISTS

UNITS BEING TESTED
PASS

PAGE 6

IS SPECIFIED

RUNNING THE

THIS OR ANY

FULL

DIAGNOSTIC

(THIS WILL BE EXPLAINED

IN THE ABOVE EXAMPLE.

THE "FLAGS'' SWITCH MAY SPECIFY ANY OF A
PRINT NUMBER OF

HOE

HALT ON ERROR

LOE

LOOP ON ERROR

IER

SHORTLY).

NUMBER

BUT THE MAIN USEFUL ONES ARE:
PNT

AGAINST AlL

ONE

FLAGS,

1EST BEING EXECUTED

INHIBIT ERROR PRINTOUT

THE HOE FLAG IS SPECIFIED
WHY SHORTLY).

KRRKKRRRAN

IN THE ABOVE

EXAMPLE

(WE'LL

SEE

* STEP 2 =
T
L2 L

WHEN YOU HAVE TYPED IN A ''START"’ COI“N;\ND. THE DIAGNOSTIC WILL
BACK

WITH

THE

TYPING IN THE NUMBER OF

A WORD OF

COME

QUESTION '# UNITS?"' TO WHICH YOU SHOULD RESPOND BY

WARNING HERE:

DEVICES

YOU WISh TO TEST.

THE NUMBER OF

UNITS DEPENDS ON THE

TARGET

DEVICE
OF
THE
ODIAGNOSTIC.
FOR
EXAMPLE,
IF
THE DIAGNOSTIC IS
DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
DRIVES
TO
BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS

DIRECTED AT THE DISK CONTROLLER, THEN THE NUMBER DF UNITS WOULD
THE

NUMBER

CONTROLLERS.

THE

TARGET DEVICE OF A DIAGNOSTIC

ALWAYS BE DETERMINED BY INSPECTING THE 'HEADER'' STATEMENT NEAR

CAN

THE

BEGINNING OF THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS 'HEADER''
STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.

AARARARANE

+ STEP 3 »
1222882282
]

WHEN YOU HAVE

TYPED

IN THE

NUMBER

UNITS

TESTED,

THE

PIAGNOSTIC
WILL
ASK YOU THE °'HARDWARE QUESTIONS''.
THE ANSWERS 10
THESE QUESTIONS ARE LSED TO BUILD TABLES IN CORE, CALLED
'HARDWARE

?Eg??IISES".

ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.

SERIES WILL

SEQ 0006

THIS

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC

TO TEST

CEVICE.

1
PAGE 7

ENGINEERING.

DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME
STANDARD ADDRESSES:
INSTEAD, THEY WILL ASK THE
OPERATOR
FOR
ALL
THE

INFORMATION

THEY NEED

THE

AR A AR A AAAY

STEP 4

AANRAANREN
r'd

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS
(SEC
2.5)
FOR
ALL
THE
UNITS,
YOU WILL BE ASKED ''CHANGE SW?'' IF YOU WANT TO BE
ASKED THE

SOFTWARE QUESTIONS

THAT DETERMINE

THE

BEHAVIOR

THIS

PROGRAM,
TYPE
‘Y''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
QUESTIONS, TYPE 'W''.
IF
YOU
TYPE
'¥Y''
YOU
WILL
BE
ASKED
THE
SOF TWARE
QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P-TABLE IN THE PROGRAM.
THE SERIES OF QUESTIONS
WILL
BE
ASKED JUST ONCE,

REGARDLESS OF

THE NUMBER OF

UNITS

TO BE

TESTED.

AN RRNANNR

* STEP 5 «
AAXRRANRAR

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS, THE DIAGNOSTIC WILL
BEGIN
TO EXECUTE THE HARDWARE TEST CODE.
THERE ARE SEVERAL THINGS
THAT CAN HAPPEN NEXT, DEPENDING ON
WHETHER
A
HARDWARE
ERROR
IS

ENCOUNTERED
AND
ALSO
ON
WHAT
SWITCH VALUES YOU SELECTED ON THE
START COMMAND.
(ONSIDER THE POSSIBILITIES:
1.

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY
EXECUTE
THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND
MODE (PROMPT DR>).

IF AN ERROR

?fifiggNS,

ENCOUNTERED,

DEPENDING

THE

THEN

ONE

SETTINGS

HOE SET:
THE ERROR WILL BE REPORTED ON THE
DIAGNOSTIC WILL RETURN TO COMMAND MODE.

THREE

THE

THINGS

HOE AND LOE

CONSOLE AND THE

LOE CET:
THE DIJAGNOSTIC WILL LOOP ENDLESSLY ON
OF CODE THAT DETECTED THE ERROR.

THE

BLOCK

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON THE
Sg?angDAND NORMAL EXECUTION WILL RESUME AS IF NO ERROR HAD

SEQ 0007

]

PAGE 8

2.1.2

SAMPLE RUN-THROUGH

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL
THAT
WE
ENTERED
THE
COMMAND °'STA/PASS:1/FLAGS:HOE''.
THIS WOULD BE A VERY

TYPICAL WAY
T?Elsgl?gLE
RE-ISSUED.

TO RUN THE DIAGNOSTIC.
REQUESTED PASS WILL BE

[IF NO ERRORS
EXECUTED AND

IF AN ERROR IS ENCOGNTERED. THE ERRCR WILL BE

ARE
ENCOUNTERED,
THE PROMPT WILL BE

REPORTED AND

THE

PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS SET).
AT THIS
POITT THERE ARE FOUR DIFFERENT WAY> YOU CAN GET THE
PROGRAM
GOING
AGAIN:

1.
.

ISSUE ANOTHER '‘START'' (OMMAND
1. 2. 3. 4, AND 5 AGAIN)

ISSUE A "RESTART'' COMMAND

THAT

THE HARDWARE

(THUS GOING THRU ALL OF

(SAME

START

QUESTIONS ARE NOT ASKED)

(OMMAND

STEPS

EXCEPT

ISSUE A ''CONTINUE'' COMMAND (EXECUTION WILL
RESUME
AT
THE
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR

HALT OCCURRED.

NO QUESTIONS ASKED.

ISSUE A "PROCEED'' COMMAND:
EXECUTION WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE ERROR REPORT (THIS IS A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).

THE MOST

TYPICAL

THING

TO DO HERE

DIFFERENT FLAG SETTINGS.

PROBABLY

TO ]SSUE

THt

YOU' WOULD WANi

PROCEED,

TO SAY:

BUT WITH

PRO/FLAGS: IER:LOE : HOE=0

THIS WILL

THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RESUME EXECUTION AT

IER

(INHIBIT ERROR PRINTOUT)

FLAG

THE HOE FLAG
INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR.
THUS YOU CAN

STUDY
I}

THE ERROR OR SCOPE

IT OR WHATEVER.

SEQ 0008

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WIL.
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE.
1.

START

RESTART

CONTINUE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT
RUNNING THL

DIAGNOSTIC.

YOU WGULD

TYPE

PAGE 9

TAKE

YOU

TO FINISH

CON/FLAGS
:HOE : IER=0:LOE=0
THIS WILL

EXECUTION

RESTORE

THE

FLAGS

THEIR

BEGINNING OF

ORIGINAL

THE HARDWARE

THE ERROR DOES NOT RECUR, THE EXECUTION WILL
THE NEXT ERROR OR TO END OF PASS.

AT END OF

TWO CHOICES:

PASS YOU WANT

START

RESTART

TO RUN THE

VALUES

AND

TEST YOU WERE

RESUME

IN.

FLOW RIGHT ON THRU

DIAGNOSTIC

AGAIN,

YOU

HAVE

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER
HARDWARE QUESTIONS AGAIN.

YOU WANTED

TO ANSWER

THE

SEQ 0009

CZRLN HRD ERR 00004
ERR HLT

USE ALL CYL (L) N ?
USE ALL SECT (L) N ?
DO MANUAL INTERVENTION TEST
LOW SEEK LIMIT (L) N ?
UPPER SEEK LIMIT (L) N ?
USE ONLY ONE SURF (L) N ?
INPUT ERROR LIMIT (D) 20 ?
DATA (MP ERR LMT (D) 10 ?

(L)

N ?

Eviv

Y
TR S
L YN T

? Y

CHANGE SW (L)

8
8%
%
S
%N

Y ?

(L)

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLO1 (L) ? N
BR LEVEL (0) 5 ?

RLTIT

Y ?

UNIT 1

(L)

DRIVE (O) 0 ?
DRIVc TYPE = RLOT
BR LEVEL (0> 5 ?

TST 003 SuB 002 P(C:004130

DR>PRO/FLAGS:
IER:LOE :HOE=0

LOOK

lolelolslole]

IRlivivivivlivivielelolvivivivilv

Y ?

BUS ADDRESS (Q) 174400 ?
VECTOR (0) 160 ?

(L)

2 2

NATATATATAAA"AR

UNIT O

RLTYT

(D)

L ST

# UNITS

000000

.R CZRLNA
DRS LOADED
DIAG. RUN~TIME SERVICES REV. D APR-79
CZRLN-A-0
CZRLN TESTS SEEK AND ROTATIGNAL
TIMING € WRITE & READ DATA
UNIT IS RLOT, RLO?
DR>STA/PASS
: 1/F LAGS : HOE

MIGHT

vl lolol o)

DIALOGUE

ABOVE

OCOO0OO0O0000

THE FULL PRINT-OUT FROM THE
(0=0OPERATOR, D-DIAGNOSTIC):

D.0

(N-RLO2)

PAGE

THIS

SEQ 0010

T RN

A RN

AT THIS POINT

R AR RN R RN NN NRARARRRRRRNNNRRAANRRAN

THE DIAGNOSTIC

IS LOOPING ON THE

ERROR WITHOUT PRINTVING ANYTHING.
THE ERROR UNTIL
A

PAGE 11

YOU HAVE

LOCATED

YOU CAN SCOPE

IT,

THEN “C OuT

AN RN AAAAANAARANRRAAARAAA
AR
S

“C

DR>CON/FLAGS :HOE : IER:LOE=0

0.0

CHANGE SW (L)

D.0

? N

EgRLN EOP 1

DR>RESTART/PASS:1

D.O

CHANGE SW (L)

? N

)

D.0

2.2
CHAIN MODE
PROGRAMS

OPERATION

WITHOUT

CONSISTS

OPERATOR

BEEN MODIFIED TO RUN IN
PROGRAMS ARE

IDENTIFIED

TO RUN CHAIN MODE,

THE

INTERVENTION.

CHAIN

IN THE

MODE

CAN

SEQUENTIAL
ONLY

FXECUTION

PROGRAMS

CHAINED.

DIRECTORY BY A BI(C

THAT HAVE

CHAINABLE

E:TENSION.

THE XXDP+ MONITOR USES AN ASCII

FILE

(KNOWN AS A

CHAIN FILE) LISTING THE PROGRAMS TO BE RUN AND THE NUMBER OF PASSES
EACH PROGRAM SHOULD RUN.
THIS FILE MUST BE ON THE SYSTEM DEVICE.

A CHAIN FILE MAY BE GENERATED BY USE
OF
THE
XTECO
TEXT
EDITOR.
THIS
FILE
MUST
HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN
ANY OF THE COMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THE
COMMANDS

ézCC{xEERegC“

FILE

ARE

TO EXECUTE A CHAIN FILE

EXECUTED

IN THE ORDER IN WHICH THEY ARE

THE USER TYPES:

C FILNAM <CR> OR

C FILNAM/QV

<CR>

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN
THE
CHAIN
FILE
IS
USED
BY
THE
XXDP+
MONITOR
TO DETERMINE THE NUMBER OF PASSES T0
EXECUTE EACH PROGRAM.
IN THE SECOND CASE THE PROGRAM COUNT IS
NOT
USED
AND
EACH
PROGRAM
IS
EXECUTED
ONLY
ONCE.
THE /QV SWITCH
PROVIDES A SINGLE EXECUTION MODE

OPERATION OF

QUICK

VERIFY.

SEQ 0011

M1
PAGE 12
WHEN PROGRAMS ARE RUN IN CHAIN MODE,

THE

SOFTWARE

SWITCH

SHOULD
BE
SET
TO
000Q00.
THE XXDP+ MONITOR PRINTS EACH COMMAND
TAKEN FROM THE CHAIN FILE AND THEN EXECUTES THE COMMAND.
WHEN
THE
LAST
COMMAND
OTHER
THAN ANOTHER C COMMAND HAS BEEN EXECUTED THE

XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT (.).
IT
IS
READY
TO
ACCEPT
ANOTHER
COMMAND
FROM THE CONSOLE.
IF THE LAST
COMMAND IS ANOTHER C COMMAND, THE CHAIN MODE WILL CONTINUE AND
THE
CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED.

THE USER WISHES

TERMINATE

CHAIN

MODE

BEFORE

ITS

NORMAL

TERMINATION
HE
MAY
DO
SO
BY
TYPING A CONTROL/C.
HOWEVER, THE
MONITOR WILL MNGT ABORT THE CHAIN MODE
UNTIL
IT
RECEIVES
PROGRAM
CONTROL FROM THE PROGRAM CURRENTLY RUNNING.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3.1

TABLE OF

COMMAND VALIDITY

THERE ARE FOUR
WAYS
OF
ENTERING
DIAGNOSTIC
COMMAND
MODE,
AND
DIFFERENT SUBSETS OF THE DIAG COMMAND SET ~RE AVAILABLE WITH EACH:

HOW ENTERED

OPERATOR ENTERED

LEGAL

'RUN DIAG'

COMMANDS

START
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL

OPERATOR INTERRUPTED THE

ITS REQUESTED PASSES

START

RESTART
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

STARM

DISPLAY
FLAGS
ZFLAGS
EXIT

SEQ 0012

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

1
PAGE

START
RESTART
CONTINUE

PROCEED
PRINT

DISPLAY
FLAGS
ZFLAGS
EXIT

2.3. 2

COMMAND SYNTAX

L8282

020 daRtRdatdtatdd

sad

i assdsdtdsiidissddsdsss
]

STA(RT) /TESTS:TEST~LIST/PASS :PASS~CNT/FLAGS
: FLAG-LIST/EOP: EOP-INCR
KA R AR AN

R AN AR AN AN

THE DIAGNOSTIC

SPECIFIED.

AN RN RARARRARA AN NN ANRRARARARRNRANRARA
AN R RANRAAS

IN CORE

THE

IS EXECUTED

IN ACCORDANCE WITH JHE

MESSAGE '# UNITS?'' IS PRINTED.

SWITCHES

THE START COMMAND

MAY BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE
OF THE FOLLOWING:
A) OPERATOR TYPED 'RUN DIAGNOSTIC'' B) DIAGNOSTIC
FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE
FLAG
SET
D)

OPERATOR

ENTERED

CONTROL/C.

AFTER

THE

UNITS?', THE HARDWARE DIALOGUE IS INITIATED.

THE
QUESTIONS
‘'‘CHANGE
BECOME THE NEW DEFAULTS.

OPERATOR RESPONDS TO '#

WHEN IT IS COMPLETED,

SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
THEREFORE IT IS NECESSARY TO
RELOAD
THE

PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.

THE SWITCH ARGUMENTS ARE AS FOLLOWS:
"TEST=LIST'" IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR
RANGES
OF
DECIMAL
NUMBERS
(1-5:8-10
ETC.) THAT SPECIFY THE TESTS TO BE
EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS
RANGE
FROM
1
TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER
REGARDLESS
OF
THE
ORDER
OF
SPECIFICATION.
THE
ODEFAULT IS 10
EXECUTE ALL TESTS.

"PASS~CNT'* IS A DECIMAL NUMBER INDICATING

THE

DESIRED

NUMBER

PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL D.AGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
ODE/AULT
IS

NON-ENDING
TEST
EXECUTION.
'FLAG-LIST'' IS A SEQUENCE OF ELEMENTS
OF THE “ORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED
BY
COLONS,

.“

WHERE

<rLAG> HAS ONE OF

THE

FOLLOWING VALUES:

SEQ 0013

HOE HALT ON ERROR, CAUSING COMMAND MODE
ERROR IS ENCOUNTERED

LOE LOOP ON ERROR,
WITHIN

THE

TO BE ENTERED

CAUSING THE DIAGNOSTIC TO LOOP

SMALLEST

SUBTEST, OR TEST)

DEFINED

BLOCK

CONTAINING THE ERROR

PAGE 14

WHEN

CONTINUOUSLY

CODING

(SEGMENT,

IER INMIBIT ERROR REPORTING
IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

PRI

DIRECT ALL MESSAGES

PNT PRINT NUMBER OF

TO A LINE

FRINTER

TEST BEING EXECUTED

BOE BELL ON ERROR
UAM RUN IN UNATTENDED MOL

, BYPASSING MANUAL

INTERVENT'ON TESTS

ISR INHIBIT STATISTICAL REPORTS

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

LOT LOOP ON TEST

EVL EVALUATE
THE

FLAGS NAMED OR EQUATED TO 1

ARE

SET,

THOSE

CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
NOT GIVEN ALL FLAGS ARE CLEARED.

EQUATED

"EOP-INCR'' IS A DECIMAL NUMBER INDICATING HOW OFTEN

PASSES)
DEFAULT
AERA

(IN

TERMS

IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED.
IS AT THE END OF EVERY PASS.

AR AR

AN AR AR AR

ARE

THE FLAGS SWITCH IS

THE

AN R R RN AN R AR AN R AN ANN AR AR AN RRRRRANT AN ANRRNAN RN

RES(TART) /TEST:TEST=LIST/PASS :PASS~CNT/FLAGS :FLAG~LIST/EQP:EOP~INCR/UNITS :UNIT-LIST
TRRA AR AN

AN AR RN AR A AN AR RN

A AR AR AT A AR AR AR

AAN R AR

A RN NN RS

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE
SWITCHES
SPECIFIED.
HOWEVER,
NEW
‘'P-TABLES'® ARE NOT BUILT.
INSTEAD, THE
ONES IN CORE ARE USED.

THE QUESTION ‘'CHANGE SW?'‘ IS ASKED AND THE ANSWERS GIVEN BECOME THE
NEW
DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
E&ESSE/CVIA
A)
DIAGNOSTIC
IS
FINISHED
B)
HALT
ON
ERROR
()

SEQ 0014

THE

SWITCH ARGUMENTS ARE AS

IN THE

PAGE 15

START COMMAND EXCEPT:

“UNIT-LIST'' IS A SEQUENCE OF LOGICAL UNIT
NUMBERS
RANGING
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING

WHICH UNITS ARE TO BE
TESTED.
THE
LOGICAL
UNIT
NUMBER
DESIGNATES
THE
POSITION OF THE P-TABLE IN CORE, ACCORDING
TO THE ORDER IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED
MUST
NOT
HAVE
BEEN DROPPED BY THE OPERATOR DROP COMMAND.

THE UNIT-LIST DEFAULTS TO ''ALL THAT HAVE NOT
BEEN DROPPED
BY OPERATOR
COMMAND''.
THE EFFECT OF THE UNIT-L]ST LASTS
UNTIL THE NEXT START (WHERE IT IS
"'ALL'") OR THE NEXT RESTART.

AUTOMATICALLY

RESET

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

202822 ddddaddiassdistisiiliissdlisssdssslsd]

CON(TINUE) /PASS : <PASS-CNT/FLAGS : <FLAG-LIST>
AAAA R AN

RANAN AR AN

RARNARAN AR AANRARAR

COMMAND MODE MUST HAVE BEEN ENTERED DUE

CONTROL/C.

TO A HALT

ERROR

THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF

THE

TEST

THAT WAS BEING EXECUTED WHEN THE HALT

THE

SWITCH ARGUMENTS ARE AS

(CONTROL/C

PLACE.
SOF TWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
PARAMETERS MAY NOT BE CHANGED.

THE

START

TOOK

HARDWARE

COMMAND EXCEPT:

DEFAULT FOR PASS-CNT

IS THE UNSATISFIED PASS-CNT

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

PREVIOUS START OR RESTART

FROM

THE

L8222 22d0dR2dsdddsiddiadlsdd]

PRO(CEED)
/FLAGS : <FLAG=LIST>
AAARRARANARNAAANR
AN
AN AR

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A
HALT
ON
ERROR.
THF
EFFECT
OF
THE
COMMAND
IS
TO
BEGIN
EXECUTION
AT THE LOCATION
:‘I%ngI:LGTEggDERRm CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE

SWITCH ARGUMENTS ARE

THE

START

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

AhkE

EXIT
& & 4
L&

RETURN

SAME AS

TO XXDP+ PROMPT MODE
.

COMMAND EXCEPT:

SEQ 0015

PAGE 16

LAASARRdARRaRdldslddd
)

DRO(P) /UNITS:UNIT-LIST
AAARANA
AN ANANNCAEN AN SN

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
8¢C§ PROSCLEIEngL A START COMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED

THERE IS ALSO A 'DROP'' MACRO
INTERNAL
TO
THE
DIAGNOSTIC,
WHICH
GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OF A PROGRAM
DROP, HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.

L88284400200200
0¢% 23 ¢

ADD/UNITS:UNIT=-L:ST
AAARR
RN AN NNRN

THE UNITS SPECIFIED ARE ADDED BACK

DROPPED
BY
THE DROP COMMAND)
BE FOLLOWED BY A PROCEED.

(THEY MUST HAVE BEEN

TO THE

TEST SEQUENCE.

PREVIOQUSLY

AN ADD CANNOT

RN L

PRI(NT)
AARARNR

ALL STATISTICS TABLES ACCUMULATED BY THE
DIAGNOSTIC
ARE
THE ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

PRINTED.

AREAARNARNAA
AN AN RN RN AR N

DIS(PLAY)/UNITS:<UNIT-LIST>
18324380028t

dddsistdsiddss]y

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED
OUT
IN
THE FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED

BY THE OPERATOR 'DROP'' COMMAND ARE SO DESIGNATED.
AR

FLA(GS)
RN
RN

THE

CURRENT SETTINGS OF

128228321

ZFL (AGS)
L8288
82 8¢

" ALL

FLAGS ARE

CLEARED.

ALL

FLAGS ARE

PRINTED.

SEQ 0016

2.4

PAGE 17

EXTENDED P-TABLE DIAI OGUE
THE FULL CAPABILITY OF THE HARDWARE DIALOGUE
IS
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

REVEALED

THE

AS SOON AS THE QUESTION "W UNITS?'' IS ANSWERED (WITH THE NUMBER N),
SPACE
IN CORE IS ALLOCATED FOR 'N'' P-TABLES.
ALL OF THE P-TABLES

ARE OF THE SAME FORMAT, AND THERE IS
A
ONE-TO-ONE
CORRESPONDENCE
BETWEEN
THE
HARDWARE
PARAMETER
QUESTIONS
AND
THE SLOTS IN THE
P-TABLE

FORMAT.

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY
BE USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.
A STRING OF
THE

VALUES MAY BE GIVEN AS A RANGE

VALUES

REPRESENT

PURE

NUMERICAL

(6-10 FOR EXAMPLE).

DATA,

THIS

SAMPLE

RANGE

TRANSLATES TO THE STRING 6,7,8,9,10 (AN INCREMENT OF
1).
IF
THE
VALUES
ARE
ADDRESSES,
THE
SAMPLE RANGE TRANSLATES TO THE STRING

6.8.10 (AN INCREMENT OF 2).

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO
(ONSTRUCT
A
SET
OF
P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE

ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE
5 HARDWARE QUESTIONS IN THE DIALOGUE).
FOLLOWING IS THE DIALOGUE

FUR

THIS

RLOX

DRIVE

P-TABLE,

SYSTEM.

THIS

SYSTEM
HAS
TWO
£(2)
RL11
TYPE
CONTROLLERS ALL TO BE SET AT 'BR
LEVEL'" 5.
THE FIRST 4 DRIVES ARE RLO1'S AND THE LAST 4 DRIVES
ARE
RLOZ2'S (ON THE SECOND CONTROLLER):
# UNITS

(D)

UNIT O
RL1T (L)

Y ?

? 8

BUS ADDDRESS (0)
VECTOR

DRIVE

(0)

160 ?

(0) O ? 0-3

DRIVE TYPE - RLO1

BR LEVEL
UNIT &
RL11

(L)

(0)

Y ?

5 ?

174400 ?
(L)

v ?

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLO1 (L) Y ? N
BR LEVEL (0) 5 ?

SEQ 0017

THE

FIRST

TIME

THRU THE

P~TABLE

QUESTIONS

THE

DEFAULT

2
PAGE

VALUES

18
ARE

USED
FOR
THE
CONTROLLER
TYPE
(QUESTION #1), CSR ADDRESS OF THE
CONTROLLER
(QUESTION
#2),
THE
CONTROLLER
VECTOR
ASSIGNMENT
(QUESTION
#3),
THE
DRIVE
TrPE (QUESTION #5), AND THE "BR LEVEL'
(QUESTION #6).
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR
QUESTION
#4 WAS ASSIGNED O THRU 3 FOR THE FIRST 4 P-TABLE SLOTS.

THE SECOND TIME THRU THE P-TABLE QUESTIONS (FOR THE RLO2 ASSIGNMENT
ON
THE
SECOND CONTROLLER), THE FIRST QUESTION DEFAULTED TO 'RL11"’
TYPE

CONTROLLER.

THE SECOND QUESTION WAS ANSWERED

REFLECT

THE

CHANGE IN CSR ADDRESS FOR THE RLOZ2 CONTROLLER (175400).
THE SECOND
CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION #3.
THE

RLOZ2
TEST
UNIT NUMBERS WERE ASSIGNED VALUES O TO 3 IN QUESTION #4
AND THE DRIVE TYPE WAS SET FOR RLOZ'S FOR THE REMAINING 4 UNITS
IN
QUESTION
#5.
THE LAST QUESTION WAS DEFAULTED USING THE 'BR LEVEL''
FROM THE

2.5

FIRST PASS.

HARDWARE PARAMETERS

THE FOLLOWING QUESTIONS WILL BE ASKED
ON
A
START
(OMMAND.
THE
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE
THAT WILL Br TAKEN ON A CARRIAGE RETURN RESPONSE.

RLTT

(L)

¥?

ANSWER YES(Y) IF YOU HAVE AN RL11
RLV11 CONTROLLER.

BUS ADDRESS (0)

(00

BR LEVEL

CONTROLLER.

THE

CONTROLLER.

TYPE - RLOT

ANSWER NO

THE

INTERRUPT VECTOR OF

ANSWER WITH THE DRIVE(S)
DRIVE

1607?

ANSWER WITH THE

DRIVE

NO(N)

174400?

ANSWER WITH THE BUS ADDRESS OF

VECTOR (0)

CONTROLLER,

(N)

(0)

ANSWER WITH

THE

(L)
DRIVE

CONNECTED TO THE

CONTROLLER

?
IS AN RLOZ2

INTERRUPT

PRIORITY OF

THE

CONTROLLER.

YOU HAVE

SEQ 0018

2.6

PAGE

SOF TWARE PARAMETERS
THE

FOLLOWING QUESTIONS ARE ASKED

REQUESTED ON A START,

RESTART,

OR
CONTINUE.
THEY
ALLOW
FLEXIBILITY
IN
THE
WAY
THE PROGRAM
BEHAVES.
THE SOF TWARE PARAMETERS GIVE THE PROGRAM
FLEXIBILITY
IN
THE
WAY
IT
RUNS.
THE
PARAMETERS
CAN
BE MODIFIED ON A START,
RESTART, OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:

CHANGE S.W.

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE
PARAMETER
QUESTIONS,
WITH
THE PRECENT DEFAULT VALUE PRINTED YO THE LEFT OF THE QJESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
S¥AST<$RE.TEg?~TROL
H
.

USE ALL

(*2)

CYLINDERS

WILL

DEFAULT ALL

(N)?

IF "'YES'', THOSE TESTS THAT NORMALLY

CYLIPDERS WILL

TEST EVERY

USE ALL

SECTORS

REMAINING QUESTIONS AND

CYLINDER ON THE

USE

SET

SECTOR

(N)?

IF "'YES'', THOSE TESTS THAT NORMALLY USE

TEST
A
GIVEN
OPERATION
(SUCH AS
VERIFY EVERY SECTOR HEADER.

EXECUTE MANUAL

SELECTED

CARTRIDGE.

SINGLE

SEEK DESTINATION)

INTERVENTION TESTS

WILL

READ AND

(N)?

IF "YES'', SEEK TIMING, ROTATIONAL TIMING, AND WRITE LOCK ERROR

AND
DATA
PROTECTION
TESTS
ARE
EXECUTED.
THE
ONLY
TEST THAT
ACTUALLY REQUIRES MANUAL INTERVENTION IS THE WRITE
LOCK
TEST
AND
THAT
TEST
WILL
BYPASS AUTOMATICALLY AFTER WAITING 30 SECONDS FOR
WRITE LOCK TO BE SET.

LOWER SEEK LIMIT

IF "*YES'',

THE NEXT PARAMETER IS REQUESTED.

ENTER VALUE
IS

THE

(DECIMAL)

(0)?

THIS LIMIT IS IMPOSED ON ALL SEEK OPERATIONS SUCH THAT TESTING
NOT DONE SELOW THAT LIMIT.
IN ADDITION, SETTING THIS LIMIT (OR
UPFER

LIMIT,

SEE

BELOW)

BELOW

THE

SPECIFIED LIMIT WILL

OSCILLATING
DESCRIPTION).
THAT

(N)?

FALLS

CAUSES

THE

FORWORD

AND

REVERSE

SEEK
TESTS
TO
PERFORM
DIFFERENTLY
(SEE
TEST
TESTS THAT REQUIRE ACCESS
TO
A
SPECIFIC
CYLINDER

WRITE/READ TEST PART 1).

UPPER SEEK LIMIT

THE

LIMIT

(SEE

THE

SAME

(N)?

IF "YES'', AN UPPER CYLINDER

MANNER
AS
THE
LOWER SECEK LIMIT.
FOLLOWING PARAMETER REQUEST.

ENTER VALUE

IGNORE

(DECIMAL)

LIMIT

(255)?

IMPOSED

A "'YES'' RESPONSE

WILL

CAUSE

THE

SEQ 00719

USE ONLY ONE SURFACE

PAGE

(N)?

[° "'YES'', THE NEXT PARAMETER IS REQUESTED.
SPECIFY SURFACE
WHICHEVER SURFACE

THE

ENTIRE

(0O OR 1)

(DECIMAL)

IS SPECIFIED

PROGRAM.

ANY

TEST

(O)>

IS THE ONLY SURFACE

THAT

IS DESIGNED

TEST

SURFACE IS AUTOMATICALLY BYPASSED.
THE PROGRAM DOES NOT
INDICATION THAT A TEST IS BYPASSED IN THIS CASE.

SPECIFY ERROR LIMIT
THIS

LIMIT

(DECIMAL)

TESTED

ANY

THE

OTHER

(2002

THIS PARAMETER SPECIFIES THE MAXIMUM NJUMBER OF ERRORS ALLOWED.
LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS.
[IF THE ERROR

IS EXCEEDED,

THE DRIVE

IS DROPPED FROM FURTHUR TESTING.

DATA COMPARE ERROR LIMIT

(DECIMAL)

(20)?

THIS PARAMETER SPECIFIES THE NUMBER
OF
DATA
THAT WILL BE LISTED FOR A GIVEN COMPARE OPERATION.

(OMPARE
ERRORS
AFTER THE LIMIT

IS REACHED, THE
DATA
ERRORS
ARE
NOT
PRINTED
BUT
THE
(OMPARE
CONTINUES
UNTIL THE END OF THE DATA FIELD.
A TOTAL IS REPORTED AT
THE

END OF

3.0

THE

ERROR

COMPARE.

INFGRMATION

ALL ERRORS ARE PRINTED VIA
CONSOLE
DEVICE.
THE
ERROR
ERROR
NUMBER, TYPE AND PROGRAM LOCATION.
ERRORS INCLUDE
BEFORE AND AT ERROR WITH RELEVENT DATA.

INCLUDES
REGISTERS

ERROR REPORTING
THE

OPERATION MESSAGE

(LINE

&4)

GENERATED

DYNAMIC

MANNER

BASED
ON
THE SUBSYSTEM FUNCTION BEING EXECUTED AT THE TIME OF THE
ERROR AND THE STATE O° THE FLAGS IN THE LOCATION TAGGED
‘'UOPFLAGS''.
THE POSSIBLE OPERATION MESSAGES ARE

GIVEN BELOW.

SEEK = FROM (CYL NUM) DIFF (CYL DIFF) SGN (0 OR 1) HD (0 OR 1)
WHTMRE THE VALUES ARE GIVEN IN OCTAL.
THIS MESSAGE IS THE RESULT OF
A SEEK OPERATION THAT WAS VERIFIED BY A READ HEADER
AND
THE
HEAD
POSITION
AFTER
A
SEEK IS IN ERROR.
(THE ACTUAL HEAD POSITION IN
THIS ERROR SITUATION IS GIVEN IN THE RESULT LINE, LINE S5.)
READ DATA - [S A READ DATA OPERATION WHERE SOME FORM OF
ERROR
WAS
DETECTED
IN
THE
ACTUAL READ OPERATION.
THIS ERROR COULD BE
HARDWARE DETECTED SUCH AS DATA CRC, HEADER CRC, HEADER
NOT
FOUND,

ETC.,

OR A SOFTWARE DETECTED ERROR SUCH AS DRIVE READY RESET AFTER

A READ DATA COMPLETED.

READ DATA WITH DATA (OMPARE
BAD DATA [N THE BUFFER AFTER

IS AN ERROR

THAT WAS DETECTED AS

SEQ 0020

A READ DATA OPERATION.

WHEN. THIS

OPERATION

PAGE 21

REPORTED

READ HEADER - READ HEADER FOR 40 HEADERS - READ HEADER FOR

INDICATES THE ACTUAL READ DATA OPERATION COMPLETED WITH NO DETECTED
ERRORS BUT THE DATA WAS WRONG.
HEADERS
WITH HEADER COMPARE - HAVE THE SAME GENERAL MEANING AS THE
READ DATA AND READ DATA WITH DATA
COMPARE.
MESSAGES
HAVING
THE

OPERATION

READ

HEADER

READ HEADER FOR 40 HEADERS ARE THE

RESULT OF ERRORS DETECTED IN THE ACTUAL OPERATION
WHILE
THE
READ
HEADER FOR 40 HEADERS WITH HEADER COMPARE INDICATES NO ERROR IN THE
ACTUAL OPERATION BUT THE HEADER DATA ITSELF WAS IN ERROR.
WRITE DATA - RESET - GET STATUS - GET STATUS WITH RESET ARE
ALL BASIC OPERATIONS.
AS BEFORE, THE ERROR DETECTION CAN BE EITHER
HARDWARE OR SOFTWARE.
THE RESULT LINE (LINE
5S)
WILL
DEFINE
THE
REASON FOR THE REPORT.

THE

LD DRV = UNLD DRV - ARE OPERATION MESSAGES THAT WILL APPEAR IN

REPORT

WHEN THE

DRIVE

LOAD AND UNLOAD

SEQUENCE

IS BEING

TESTED.

ANOTHER GROUP OF OPERATION QUALIFIERS
WILL
BE
REPORTED
FOR
OPERATIONS
THAT
FAIL
IN
SPECIFIC
TESTS.
THESE
TESTS ARE THE
WRITE/READ TEST PART 2, OVERWRITE TEST, AND THE
ADJACENT
CYLINDER

INTERFERENCE TEST.
OPERATION

READ DATA WITH DATA
READ DATA
WRITE DATA
READ HEADER

QUALIFIER

(COMPARE

FOL O TN CC SEEK
FOL 255 TO CC SEEK
FOL WRITE (NO SEEK)
ADJ. CYL WRITTEN AFTER FWD SK
ADJ. CYL WRITTEN AFTER REV SK

SK FWD,
SK REV,

WRT-SK REV, OVERWRT
WRT-SK FWD, OVERWRT

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY
OF
THE
QUALIFIERS.
THE
QUALIFIERS
IN
THESE
TESTS ARE AN ATTEMPT TO MAKE THE REPORT
MORE MEANINGFUL BY PRC IDING
INFORMATION
AEQUT
THE
SEQUENCE
OF
OPERATIONS BFING DONE

THE QUALIFIERS ' JL O TO CC SEEK'' AND ‘FOL
255
TO
(C
SEEK''
INDICATE THAT THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A GIVEN
DIRECTION TO THE CYLINDER WHERE THE TEST IS BEING PERFORMED.
THE ‘FOL WRITE (NO SEEK)'' QUALIFIER MEANS THAT
THE
OPERATION
géiD DONE AFTER A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND

THE QUALIFIER "'ADJ CYL WRITTEN AFTER
FWD
SK'* AND
''ADJ
(YL
WRITTEN
AFTER
REV
SK'' WILL
BE
REPORTED
ONLY
IN THE ADJACENT
CYLINDER INTERFERENCE TEST.
THESE QUALIFIERS
ARE
USED
WHEN
THE
ERROR
OCCURS
ON
THE CYLINDER UNDER TEST AND DEFINE THE DIRECTION
THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER WAS WRITTEN.

SEQ 0021

PAGE 22

THE QUALIFIERS ''SK FWD, WRT-SK
REV,
OVERWRT'' AND
‘'SK
REV,
WRT-SK
FWD,
OVERWRT'' WILL BE REPORTED ONLY IN THE OVERWRITE TEST.
THESE

QUALIFIERS DEFINE

THE

DIRECTION OF

INITIAL WRITE AND THF OVERWRITE.

THE QUALIFIER "ON BAD SEC FILES'® WILL

WRITE
DATA
COMMAND IF YHE PROGRAM ABORTS
WRITE WOULD BE ON THE BAD SECTOR FILES.

3.1 .2

HEAD

MOTION

BEFORE

THE

WITH

THE

REPORTED

THAT (OMVAND BECAUSE

THE

SPECIFIC RESULT MESSAGES

THE RESULT MESSAGE (LINE 5) IS GENERATED DYNAMICALLY BASED
ON
THE
EXPECTED
RESULT
OF
THE OPERATION BEING TESTED.
SINCE OPERATIONS

ARE MONITORED DURING EXECUTION THE RESULT
MESSAGE
MAY
REPORT
AN
ERROR
DETECTED
DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT
LHE EggEgF THE OPERATION.
ONLY THE FIRST ERROR SEEN IS REPORTED IN
LL
.
THE GENERAL

FORMAT

RESULT: (VAR 1)
WHERE VARIABLE

FOR

THE

RESULT LINE

IS (VAR 2) SB (VAR 3) (OPTIONAL
1 CAN BE ONE OF THE FOLLOWING:

CONT ERR
DRV ERR
NON~-EXSTNT MEM
HDR

IS:

(CRC(

DATA CRC
HDR NOT END
DATA LATE
HDR NOT FND/HDR CRC/0P]
DRV RDY
SELECTED HEAD
VOL CHK
COVER OPEN
BRUSH HME
WRT LCK

QUALIFIER)

(CONTROLLER ERROR)
(DRIVE ERROR)
(NON=EXISTANT MEMORY)
(HEADER

CRC

ERROR)

(HEADER NOT FOUND)
(ALL 3 BITS SET)
(DRIVE READY)
(VOLUME

CHECK)

(BRUSH HOME)

(WRITE

LOCK)

HDS OUT
DRV SEL ERR

(HEADER 0UT)
(DRIVE SELECT ERROR)

WRT GAT ERR
SEFK TIMEOUT
CUR HEAD ERR
WRT DAT ERR

(WRITE GATE ERROR)
(SKTO ERROR)
(CURRENT 'N HEAD ERROR)
(WRITE DATA ERROR)

DRV STATE
SPIN TIMEOUT

(DRIVE STATE)
(SPINDLE TIMEOUT SPD ERROR)

l
SEQ 0022

HDR/DAT ERR

OP INCOMPLETE

(OP] ERROR)
(HDR CRC OR DATA (R(C ERROR

HDR NOT

(HDR NOT FOUND OR DATA LATE

BIT 11 OF CS REGISTER)

FND/DAT LATE

ERROR BIT 12 OF (S REGISTER)

(CYLINDER WHEN REPORTING A
SEEK ERROR)

cyL

VARIABLE 2 WILL BE A VALUE

IS.

2
PAGE 23

THAT DEFINES WHAT

THE

RESULT

ACTUALLY

THIS CAN BE A 1 OR 0 TO INDICATE A SET OF RESULT CONDITIONS, A

NUMBER O TO 7 TO INDICATE THE DRIVE STATE, OR A
(OCTAL) TO IDENTIFY A CYLINDER NUMBER.

NUMBER

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE

377

SHOULD

BE.

THE
OPTIONAL
QUALIFIER IS PROVIDED WHEN IT IS USEFUL TO KNOW WHEN
THE ERROR WAS DETECTED IN
THE
OPERATION
BEING
PERFORMED.
THIS
QUALIFIER IS USED TO REPORT RESULTS SUCH AS:

BRUSH HME IS 1 SB O IN STATE ¢
HEADS OUT IS Q0 SB 1 IN STATE 3
DRV RDY
1S 0 SB 1 IN DATA XFER
SELECTED HEAD IS 1 SB O IN CYCLE UP
DRV RDY
IS O SB 1 IN STATE 5
DRV RDY
IS 1 SB O IN SEEK W/0 MOTION
DRV RDY
IS O SB 1 IN 10MS
DRV RDY
IS O SB 1 IN 500MS
DRV RDY
IS O SB 1 IN 5SECONDS
THESE

RESULTS,

WHEN SEEN WITH

THE

OPERATION MESSAGE,

WILL

SELF

EXPLANATORY
.
OTHER RESULT MESSAGES

THAT CAN BE PART OF AN ERROR REPORT

ARE:

"'INTERRUPT TOO LATE"'
WHICH INDICATES THAT

THE OPERATION BEING PERFORMED DID NOT

COMPLETE

IN
THE
EXPECTED AMOUNT OF TIME.
THIS RESULT (AN BE CAUSED BY THE
DRIVE LOOSING READY BEFORE STARTING A READ HEADER AND THEREFORE NOT
COMPLETING THE READ HEADER IN 1MS.

"FAIL
THIS

TO RELOAD HEADS AFTER ERR CLEAR''
IS REPORTED WHEN AN ERROR

CAUSES HEADS

ERROR IS CLEARED THE HEADS DO NOT RELOAD.

TO UNLOAD AND AFTER

THE

"UNKN DRV STATE-NO RDY, NO ERR, HDS OuT''
THIS

1S REPORTED WHEN

OR STATUS.

THE

PROGRAM CANNOT

DETERMINE

THE

DRIVE

STATE

SEQ 0023

PAGE 24

"WRITE ABORTED''
THIS IS REPORTED WHEN THE PROGRAM ABORTS A WRITE
SECTOR FILES.

TO PROTECT

THE BAD,

* COULD NOT RETRIEVE DRIVE STATUS''
THIS

IS REPORTED

‘OP]

SET-NO DRIVE RESPONSE'

THIS

IS REPORTED AS

SUCCESSFULLY WHEN THE

THE

GET

STATUS

COMMAND

DOES

NOT

COMPLETE

STATUS IS REQUIRED TO REPORT AN ERROR.

THE

RESULT WHEN

THE

GET

STATUS COMMAND

OUT
(OPI
SETS) WHEN THAT COMMAND IS BEING USED IN THE EARLY
TO CHECK THE DRIVE INTERFACE.

TIMED

TESTS

*NO INTERRUPT ON CMND COMPLETE''
THIS IS REPORTED WHEN THE COMMAND SUCCESSFULLY
CONTROLLER HAS NOT GENERATED AN INTERRUPT.

COMPLETES

BUT

THE

CLEAR

THE

"ERR DID NOT CLEAR''
THIS

REPORTED

WHEN

THE

RESET

COMMAND

GET

STATUS W/RESET

DOES

NOT

CONTROLLER
ERRORS.
THIS
IS
A
CONTROLER RELATED PROBLEM BUT IS
REPORTED IF SEEN IN THE DRIVE TEST PROGRAMS.

"DRV ERR IS NOT CLEARED'
THIS IS REPORTED WHEN THE
ALL DRIVE ERRORS.

COMMAND DOES NOT

CLEAR

'UNEXPECTED ERR'’
THIS IS REPORTED WHEN THE
BITS ARE SET.

CONTROLLER SENSES AN ERROR BUT

ERROR

‘BAD SEC FILE FMT ERR''
THIS IS REPORTED IF THE
THE
EXPECTED
FORMAT.
SPECIFICS.)

CONTENTS OF
(REFER
TO

THE FILES DO NO
CORRESPOND
TO
DEC
STANDARD
144
FOR FORMAT

SEQ 0024

3.1 .3

OTHER MESSAGES

OFT;E*ER
ARE

PAGE 25

INFORMATION IS REPORTED UNDER VARIOUS

"BAD SEC FILES NOT STRD.
THIS MESSAGE

CIRCUMSTANCES.

THESE

ALL SEC ASSUMED GOOD.''

IS PRINTED WHEN A PARTICULAR

TEST

REQUIRES

THE

BAD

SECTOR
FILES
BUT
THEY HAVE NOT BEEN STORED.
THIS SITUATIUN WILL
OCCUR IF THTS TEST IS STARTED OUT OF THE NORMAL PROGRAM SEQUENCE OR
IF THE BAD SECTOR FILES COULD NOT BE READ.

"ERROR LIMIT EXCEEDED-UNIT DROPPED'’
THIS IS
REPORTED
(WITH
THE
UNIT
NUMBER)
WHEN
MORE
THAN
THE
nggIFIED
NUMBER OF ERRORS (DEFAULT 20) HAVE OCCURED IN ANY SINGLE
ASS.

MOST ERROR REPORTS HAVE
(1)

PROG NAME

(2)

THE

FOLLOWING FORMAT.

ERR NUM

ROUTINE TRACE SEQ
(ADDRESS)

TEST NUM

(IN SEQ CALLED)

SUBTEST NUM

ERR PC

(ADDRESS)

(3)

TEST DESCRIPTION

(4)
(5)
(6)
(7)

(8)
(9)

OPERATION:
RESULT:

(10)
an
(12)

ADDRESS OF UNIT UNDER TEST
RLCS
RLDA
RLBA
RLMP
cyL
OP INIT
OP DONE
DRIVE STATUS
WORD NUM IS (XXXXXX) SB (YYYYYY)
TOTAL COMPARE ERRS: (221) OF (128)

THE ONLY EXCEPTION TO THE ABOVE FORMAT IS PURE DATA COMPARE
(NOT
DETECTED
BY
READ
ERROR).
THEN THE FORMAT DOES NOT

LINES 5 THROUGH 10.
LINE 1

IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR.

PROGRAM
IS
IDENTIFIED BY NAME WITH THE NUMBER OF
PRESENTLY BEING EXECUTED.
THE

ERRORS
INCLUDE

SUBTEST NUMBER IS UNIJQUE

THE

TEST AND SUBTEST

IN THIS PROGRAM IN THAT

DOES

NOT

REFER
TO
A
P"HYSICAL
SUBTEST
WITHIN
A
GIVEN
TEST.
RATHER IT
REFLECTS THE NMBER OF TIMES A SUBTEST HAS BEEN EXECUTED
WITHIN
A
TEST. ~ CONSEQUENTLY,
ON
A TEST THAT TESTS AN INCREMENTAL TYPE OF
OPERATION (SUCH A INCREMENTAL SEEKS, READ
ALL
HEADERS
FROM BOTH
SURFACES,
ETC.)
THE
SUBTEST
WILL BE DESCRIPTIVE OF WHERE IN THE
TEST THE ERROR OCCURRED.

SEQ 0025

PAGE 26

THE ERROR P.C.
IS THE PHYSICAL MEMORY
LOCATION
WHERE
THE
ERROR
REPORT
WAS
INITIATED.
SINCE MANY FUNCTIONS ARE SUBROUTINED, AND
ERRORS ARE REPORTED
FROM
SUBROUTINES,
THE
ERROR
P.C.
IS
NOT
SUFFICIENT
TO
IDENTIFY
THE
LOCATION
OF
THE ERROR CALL AND THE
ROUTINE TRACE SEQUENCE IS PROVIDED.

LINE 2 IS THE
INITIATED

FROM

ROUTINE

TRACE

WITHIN

SEQUENCE.

THE TEST

THE

ERROR

CALL

(AS OPPOSED TO WITHIN A ROUTINE),

THIS PORTION OF THE REPORT IS OMITTED.
IF THE
CALL
IS
FROM
A
ROUTINE (WHICH MAY BE CALLED BY ANOTHER ROUTINE,

INITIATED
WHICH MAY

BE CALLED BY
ANOTHER
ROUTINE,
ETC.
SEVERAL
LEVELS
DEEP)
THE
ROUTINE
TRACE
SEQUENCE
PROVIDES
A
TRAIL TO THE ACTUAL LOCATION
WITHIN THE TEST THAT CALLED THE FIRST
ROUTINE.
THE
FIRST
ENTRY
LISTED IS THE LOCATION WHERE THE FIRST ROUTINE WAS CALLED.

LINE 3 IS THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE NAME

THE

LINE &

TEST BEING PERFORMED.

IDENTIFIES

THE

ACTUAL

HARDWARE

FUNCTION

THAT

BEING

PERFORMED.
ADDITIONAL
INFORMATION ON THIS LINE IS DESCRIPTIVE OF
SPECIFIC USE OF THE FUNCTION.
FOR EXAMPLE, THE OPERATION LINE WILL

?Eag A‘?g:%KHEADERS FOR 40 HEADERS'®' WHEN ALL HEADERS ARE BEING READ
LINE 5 IDENTIFIES THE ERROR THAT HAS BEEN DETECTED.
THE CONTENT OF
LINE
5
IDENTIFIES
WHAT
WAS BENG
TESTED
(SUCH AS DRIVE READY,
CONTROLLER ERROR, DRIVE STATE, ETC.), WHAT IT IS AND WHAT IT SHOULD
?S.ERREANE
5 MAY BE REPEATED IF MORE THAN ONE TESTED ITEM IS FOUND
IN ADDITION LINE 5 WILL REPORT ANY HARDWARE DETECTED ERRORS SUCH AS
OPERATION INCOMPLETE, HEADER CRC, ETC.
IN THIS CASE THE FIRST LINE
PRINTED AS RESULT WILL 3E DETERMINED BY THE THREE ERROR
BITS
OPI,

——2

DCRC/HCRC

—_-O—mO—

HNF/DLT

THE

LINE

ORI
QOO —=—=—

HNF/DLT,
AND
HCRC/D.RU.
FOLLOWING TRUTH TABLE:

WILL BE

ME SSAGE
HDR NOT FND/HDR CRC/OPI
HOR CRC ERROR
HDR NOT FND ERROR
DATA CRC ERROR
DATA LATE ERROR

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS
THISERADDRESS

UNIBUS

DETERMINED AS

ADDRESS

OF
OF

THE
THE

UNIT

IN THE

ERROR

UNDER

CONTROLLER AND DRIVE

LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND HEAD
THESE ARE APPLICABLE

IN THE REPORT)

LINE 8 PROVIDES THE CONTENTES

OPERATION WAS INITIATED.

TO BE REPORTED.

C(ONTROLLER

TEST.

REGISTERS

WHEN

WHERE

THE

SEQ 0026

LINE 9 PROVIDES THE CONTENTS OF THE CONTROLLER REGISTERS

ERROR ~ BEING
REPORTED
WAS
DETECTED.
CONTENTS OF OP INIT AND OP DONE WILL BE

INDICATE

FREQUENTLY
DIFFERENT.

THE
OP

PAGE 27

WHEN

THE

SEEK' WAS BEING PERFORMED BUT OP DONE MAY INDICATE THE

ERROR WAS DETECTED BY A READ HEADER.
THE REASON IS THAT A SEEK WAS
EXECUTED
ANC
DID
NOT
PROPERLY
POSITION HEADS AND WHEN THE READ
HEADER WAS DONE THE HEADS WERE ON THE WRONG CYLINDER.

LINE 10 IS THE DRIVE STATUS.

THIS LINE IS

ONLY

REPORTED

RLMP REGISTER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS.

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR

WAS

COMPARE
OPERATION,
EITHER DATA OR HEADERS.
BAD DATA IS REPORTED FOR ALL READ ERRORS.

3.2

GOOD AND

ERROR HALTS
ERROR HALTS ARE

SUPPORTED PER DESCRIBED

WITH /FLAG:HOE.

4.0

DETECTED

[N ADDITION,

THE

THERE ARE NO OTHER HALTS.

PERFORMANCE

THE

PRIVIOUS

SECTION

AND PROGRESS REPORTS

PERFORMANCE REPORTS

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

4.2

PROGRESS REPORTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

5.0

DEVICE

INFORMATION TABLES

THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.
RLCS - CONTROL AND STATUS REGISTER

(XXXXX0)

BIT 15 - COMPOSITE ERROR
B8IT 14 - DRIVE ERROR

BIT 13 - NON EXISTENT MEMORY ERROR
BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET)
=
BIT 11 =
BIT 10 -

BIT

DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET)
DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE

9/8 - DRIVE SELECT (0-3)

REGISTERS

FOR

SEQ 0027

8IT

.
EXTENDED BUS ADDRESS (BIT 17)
EXTENDED BUS ADDRESS (BIT 16)
FUNCTION CODE

- NOP_(PDP=11) MAINT (LSI-11)
WRITE CHECK

]

BIT 3

8IT
BIT

CONTROLLER READY
INTERRUPT ENABLE

NOWVS
BN =0O |

BIT
BITY

1| &S0O0NN

GET DRIVE STATUS
SEEK
READ HEADER

WRITE DATA
READ DATA
READ WITHOUT HEADER COMPARE

O - DRIVE READY

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT O SHOULD BE 0
RLDA =~ DISK ADDRESS REGISTER

(XXXXX&)

FOR READ/WRITE FUNCTIONS

BIT 15-7 -~ CYLINDER ADDRESS FOR TRANSFER
BIT 6 = SURFACE FOR TRANSFER
BIT 5-0 - SECTOR FOR TRANSFER (1-40.)
FOR SEEK FUNCTION

CIT
BIT
BIT
B8IT
BIT

15-7 - DIFFERENCE TO NEW CYLINDER
6-5 - MUST BE ZERO (0)
4 - SURFACE (0O=UPPER, 1=LOWER)
3 - MUST BE ZERO (0)
2 - SEEK DIRECTION( 1=IN / 0=0UT )

BIT 1 - MUST BE ZERO (0

8IT O - MUST BE ONE

(1)

FOR GET STATUS FUNCTION

BIT 15-4 - IGNORED SHOULD Bt ZERO (0)

81T 3 - DRIVE RESET
BIT 2 - MUST BE ZERO (0)
BIT 1 - MUST BE ONE
BIT 0 - MUST BE ONE

(1)
(1)

PAGE 28

SEQ 0028

RLMP - MULTIPURPOSE REGISTER

15 = 0 - WORD COUNT

(TWO'S COMPLIMENT)

READ HEADER FUNCT]ON

12-0 - DISK HEADER OF SECTOR (FIRST READ)
-~ ZERO WORD (SECOND READ)
- HEADER CRC (THIRD READ)
FOR GET

STATUS FUNCTION

HAS DRIVE STATUS

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

15 - WRITE DATA ERROR
14 - CURRENT HEAD ERROR (CHE)
13 - WRITE LOCK STATULS (WL)
12 - SEEK TIME OUT (SKTO)
11 - SPIN ERROR (SPE)
10 - WRITE GATE ERROR (WGE)
9 - VOLUME CHECK (V()
8 - DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE IS RLO2 IF SET
6 - SURFACE (0=UPPPER, 1=LOWER)
5 - COVER OPEN
4 - HEADS HOME
_3 - BRUSHES HOME
2-0 -STATE BITS
0 - LOAD STATE
1

- SPIN UP

2 = BRUSH CYCLE
3 - LOAD HEADS

4 - SEEK = TRACK COUNTING

5 = SEEK = LINEAR MODE
6 = UNLOAD HEADS
7 - SPIN DOWN

6.0

TEST SUMMARIES

TEST 1

SEEK TIMING

L8884
84

(P-CLOCK

IS REQUIRED

POSITION HEADS AT

TO PERFORM

CYLINDER O.

THIS

TEST.)

PAGE 29

SEQ 0029

DO 64 SEEKS FROM O TO 1 AND 1

FOR

EACH

SEEK.

AVERAGE

INDEPENDENTLY) AND REPORT.

THE

TO O, MEASURING
SEEK

TIMES

THE

PAGE 30

SEEK

TIME

(FORWARD AND REVERSE

REPEAT ABOVE SEEKING BETWEEN CYLINDER 127 TO 128

AND

254

255 FOR RLO1 AND 255 TO 256 AND 256 TO 511 FOR RLO2.

REPEAT ABOVE SEEKING BETWEEN CYLINDER O TO 127 AND 128 1O 256
FOR RLO1 AND CYLINDER O TO 256 AND 256 TO 511 FOR RLOZ2.

REPEAT ABOVE SEEKING BETWEEN CYLINDER O AND 255 FOR RLOT AND 0O
TO 511 FOR RLOZ2.
THE SEEK TIMES WILL BE REPORTED
AS
SHOWN
BELOW.
THE
TIME
MEASURED
IS
FROM
START
OF
SEEK COMMAND UNTIL INTERRUPT IS
RECEIVED.

1 CYL FWD
1 CYL REV
MID CYL FWD
MID CYL REV
MAX CYL FWD
MAX CYL REV
THE

INNER
X
X
X
X

OUTER
A
X

MAX

X
X

INDICATES WHERE

TEST 2 BASIC READ DATA
LR

MIDDLE
X
X

TIME WILL

X
X
X
X
X
X

TIME

REPORTED.

TEST

8824

POSITION HEADS AT MAX CYLINDER.

DO READ DATA, HEAD 1.
ERROR.
READ
SECTOR
REFOR1

ALL ERRORS BUT

CHECK FOR ANY ERRORS
THROUGH
19
UNTIL

DO NOT

INCREMENT

ERROR

AND
REPORT.
IF
NO ERROR ON READ.
COUNT.

NONE

CAN BE READ, SUCCESSFULLY, REPORT THAT FACTORY BAD SECTOR FILE
g??¥8; gg READ, INCREMENT ERROR COUNT AND PROCEED WITH REAL OF

ON SECTOR WITH NC CRC ERROR, VERIFY DATA FORMAT (WGRD O AND
1
ARE
NOT O, WORD 2 AND 3 AKE O, LOCATE FIRST WORD Or ALL ONE'S
mATHAT WORD TO WORD 127 ARE ALL
ONE'S.)
STORE
BAD
SECTOR
READ DATA,

HEAD ONE,

SECTOR 20.

CHECK

FOR

ANY

ERRORS

AND

REPORT.
IF ERROR, READ SECIOR 21 THROUGH 39 UNTIL NO ERROR ON
READ.
REPORT ALL ERRORS BUT DO NOT INCREMENT ERROR COUNT.
IF

NONE

FILES

CAN BE READ SUCCESIFULLY,
CANNOT BE READ,

REPORT

INCREMENT ERROR

ON SECTOR WITH NO CRC ERROR,
SECTOR CATA.

THAT SOF TWARE BAD SECTOR

COUNT

AND EXIT

VERIFY DATA AS ABOVE.

TEST.

STORE

BAD

SEQ 0030

NOTE :

PAGE

SURFACE O IS SELECTED THIS TEST wILL BE BYPASSED.

TEST 3 WRITE/READ DATA TEST

(PART

AANYNRN

POSITION HEADS AT CYLINDER O

WRITE PATTERN 1
READ HEAD O,

ON HEAD O,

SECTOR 0.

CHECK FOR CRPC ERROR.

REPEAT FOR OTHER DATA PATTERNS

CHECK IF

DATA.

CYLINDER O,

SECTOR O.
TRACK

NOT,

THAT

NOTE:

TRACK 1,

REPEAT

ARE

DATA.

SECTOR O IS LISTED IN BAD SECTOR
TeST

BAD,

IS GOOD AND DO ABOVE

LIMITS

COMPARE

(2 THROUGH 8).

ABOVE

IT IS LISTED AS

CYLINDER

CHECK FOR ANY ERROR.

AT CYLINDER O,

LOCATE

TESTS.

IGNORED,

FIRST

TESTING

TRACK

SECTOR

DONE

CYLINDER
0.
HOWEVER, CHOOSING A SINGLE SURFACE WILL
LIMIT TESTING TO THAT SURFACE.

TEST 4 ROTATIONAL

TIMING TEST

L288
8 24

(P-CLOCK

IS REQUIRED

TO PERFORM THIS

TEST.)

POSITION HEADS TO CYLINDER O.
DO WRITE DATA TO CYLINDER O,
INTERRUPT
.

HEAD

SECTOR

WAIT

DO WRITE DATA TO CYLINDER O, HEAD O, SECTOR O.
START
WHEN
INTERRLPT
OCCURS,
STOP
TIMING.
RESULT
IS

TIMING.
SPINDLE

ROTATION TIME.

REPEAT
TIME.

TEST 64 TIMES.
REPORT THE AVEFAGE AS SPINDLE
THE TIME REPORTED IS IN 100'S >< MICROSECONDS.

TEST 5 WRITE/READ TEST

FOR

ROTATION

(PART 2)

KRN EN

CC IS CURRENT CYLINDER SELECTED FROM SET.
LET SELECTED CYLINDER SET BE AS DEFINED IN PARAGRAPH 4.3.
SEEK FORWARD TO CC.
WRITE PATTERNS 1
THROUGH
TIMES ON HEAD 0.
READ/COMPARE ALL DATA.

REPEATED

SEEK REVERSE TO 'LOLIMIT''.

SEEK FORWARD TO CC.

READ/COMPARE

SEEK FORWARD TO 'MILIMIT''.

SEEK REVERSE TO (C.

READ/COMPARE

ALL
DATA.
SEEK
FORWARD
TO 'HILIMIT''.
SEEK REVERSE TO CC.
READ/COMPARE ALL DATA.
REWRITE
DATA
PATTERNS
1
THROUGH
8
REPEATED 5 TIMES ON HEAD 0.
READ COMPARE ALL DATA,
ALL

DATA.

SEEK

REVERSE

TO ‘1OLIMIT''.,

SEEK FORWARD

TQ (C.

SEQ 0031

READ/CQOMPARE ALL

TEST

FOR HEAD

REPEAT ABOUVE

TESTS

FOR ALL

1.
CYLINDERS

IN SELECTED

CYLINDER SET.

IF ANY OF THE SECTORS IN THE
SELECTED
CYLINDER
ARE LISTED AS BAD, THAT SECTOR WILL BE BYPASSED.

SET

NOTE 2:

IF THE "USE ALL CYLINDERS'' PARAMETER IS SPECIFIED
AS
"Y'',
THE
TEST
WILL
INCLUDE
ALL
CYLINDERS
IN THE
SELECTED PARAMLTER SET.

NOTE

IN THE
FIRST
PASS
OF
THE
PROGRAM
THIS
TEST
IS
EXECUTED
ON
ONLY
6
OF
THE CYLINDERS LISTED IN THE

"YLINDER SET.
THE
TABLE.

ENTRIES
NOTE 4:

THOSE USED WILL BE EVERY 8TH
ENTRY
N
ON
THE SECOND AND SUBSEQUENT PASSES ALL

IN THE SELECTED CYLINDER SET ARE USED.

TESTING WILL BE DONE BETWEEN UPPER AND
LOWER
LIMITS,
CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS WILL
NOT BE TESTED.
C(HOOSING A SINGLE SURFACE
WILL
LIMIT
TESTING

TEST

DATA.

REPEAT ABOVE

NOTE

PAGE

6 WRITE

LOCK

TO THAT

SURFACE.

ERROR AND DATA PROTECTION

TEST

LA2SS
B

DO WRITE

DATA PATTERN O AT

SECTOR O.

READ DATA AND VERIFY.

ASK OPERATOR TO WRITE LOCK DRIVE.
DO GET
STATUS
LOOP
WRITE LOCK IS SET.
IF NOT SET IN 30 SECONDS, ABORT THE

UNTIL
TEST.

WHEN WRITE LOCK IS SET, DO WRITE DATA PATTERN 1 AT
SECTOR
0.
REPORT
FAILURE
IF
DRIVE
ERROR DOES NOT SET OR IF ANY OTHER
ERROR SETS.
C(LEAR ERROR AND READ CATA
AT
SECTOR
0.
CHECK
THAT DATA HAS NOT BEEN DISTURBED.
REQUEST OPERATOR

?fi;lkngé;? LOCK

TO RESET WRITE

IS RESET.

LOCK.

NOT RESET

GET

STATUS

IN 30 SECONDS,

LOOP

REPEAT

JEST.

NOTE :

THIS

MODE

TEST

REQUESTED,

TEST

IS EXECUTED ONLY

SELECTED,

AND

IS RUN

MANUAL

THE

PROGRAM

OPERATION

INTERVENTION TESTING IS

IN FIRST PASS ONLY.

7 ADJACENT CYLINDER INTERFERENCE

TEST

LAS8R
2

CC IS CURRENT CYLINDER SELECTED FROM SET
LET SELECTED CYLINDER SET BE AS DEFINED [N PARAGRAPH 4.3,
DATA PATTERN IS 155555.

SEEK FORWARD TO CYLINDER (C.
SECTORS.
READ/COMPARE DATA.

WRITE PATTERN ON

TRACK

ALL

SEQ 0032

SEEK FORWARD TO
PATTERN.
SEEk

WRITE PATTERN.

ADJACENT

‘'WILIMIT''.
FPRWARD
TO

PAGE 33

SEEK
REVERSE
TO ((C-1.
WRITE
‘'WHILIMIT''.,
SEEK REVERSE TO (C.

(THIS HAS BRACKETED ORJGINAL WRITE WITH WRITES

CYLINDERS.

NOTE ADJACENT CYLINDERS WERE WRITTEN

AFTER HEADS CAME ON CYLINDER

OPPOSITE OF CENTER CYLINDER.)

REVERSE

DIRECTION

WHICH

SEEK REVERSE TO 'LOLIMIT''.,

SEEK FORWARD TO CC.

READ/COMPARE

SEEK FORWARD TO "HILIMIT''.

SEEK REVERSE TO

WRITE

DATA
FROM
ALL
SECTORS.
ANY
ERRORS
(READ OR COMPARE)
ATTRIBUTED TO ADJACENT CYLINDER INTERFERENCE.

(C.

ARE

DATA

PATTERN.
SEEK
REVERSE
TO "LOLIMIT''.
SEEK FORWARD TO CC-1,
WRITE PATTERN.
SEEK REVERSE TO
‘'LOLIMIT'',
SEEK
FORWARD
TO

CC+1,

TO CC.

WRITE PATTERN.

COMPARE)
REPEAT

NOTE

SEEK FORWARD TO 'HILIMIT'',

READ/COMPARE DATA

IN ALL

SECTORS.

SEEK REVERSE

ANY ERRORS

(READ OR

ARE ATTRIBUTED TO ADJACENT CYLINDER INTERFERENCE.

ABOVE

TESTS ON HEAD

IF ANY SECTOR ON A SELECTED CYLINDER

THAT

SECTOR WILL BE BYPASSED.

LISTED

BAD,

NOTE 2:

IF THE 'USE ALL CYLINDERS'' PARAMETER IS
SPECIFIED
AS
"Y', THE TEST WILL INCLUDE ALL CYLINDERS (EXCEPT O AND
MAX CYL) IN THE SELECTED PARAMETER SET.

NOTE

IN THE
FIRST
PASS
OF
THE
PROGRAM
THIS
TEST
IS
EXFCUTED
ON ONLY
3
OF
THE CYLINDERS LISTED IN THE

CYLINDER
SET.
THOSE
USED
WILL
BE ~ THE
FIRST,
TWENTYFIRST,
AND FORTYFIRST ENTRIES IN THE TABLE.
ON
SECOND AND SUBSEQUENT PASSES EVERY FOURTH CYLINDER SET
ENTRY WILL BE TESTED.
NOTE

&4:

TESTING WILL BE DONE BETWEEN UPPER AND
LOWER
LIMITS.
CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS WILL
NOT BE TESTED.
CHOOSING A SINGLE SURFACE
WILL
LIMIT
TESTING

TEST 8 OVERWRITE

TO THAT

SURFACE.

TEST

LA28884

CC IS CURRENT CYLINDER SELECTED FROM SET
SELECTED CYLINDER SET DEFINED IN PARAGRAPH 4.3,
PATTERN A = 125252
PATTERN 8 = 000000

SEEK FORWARD TO CC.
WRITE DATA OF
HEAD 0.
READ/COMPARE DATA.

SEEK FORWARD TO 'HILIMIT'',
B.
SEEK
REVERSE
1O
READ/COMPARE DATA.

PATTERN A IN

SEEK REVERSE
'LOLIMIT'',

ALL

TO CC.
WRITE
SEEK
FORWARD

SECTORS,

PATTERN
TO
(C(,

SEQ 0033

SEEK FOKWARD TO "HILIMIT'',

SEEK REVERSE

(CC.

PAGE

WRITE

DATA

PATTERN
A.
READ/COMPARE
DATA.
SEEK REVERSE TO 'LOLIMIT',
SECK FORWARD
TO
(C.
WRITE
PATTERN B.
SEEK
FORWARD
TO
"HILIMIT'' SEEK REVERSE TO (CC.
READ/COMPARE DATA,.
ANY FAILURES

(READ OR COMPARE)

REPEAT

TESTS ON HEAD

PROBLEM.

NOTE

ABOVE

ARE

ATTRIBUTED

OVERWRITE

IF ANY SECTOR ON A SELECTED CYLINDER IS LISTED AS BAD,
THAT SECTOR WILL BE BYPASSED.

NOTE 2:

IF tHE 'USE ALL CYL INDERS'' PARAMETER IS
SPECIFIED
AS
YO,
TeE
TEST
WILL
INCLUDE
ALL
CYLINDERS
IN THE
SELECTED PARAMETER SET.
¢

NOTE

IN THE

EXECUTED

CYLINDER

FJRST

PASS

SET.

ONLY

THOSE

THE

PROGRAM

THIS

TEST

THE CYLINDERS LISTED IN THE

USED

WILL

THE

FIRST,

TWENTYFIRST,
AND FORTYFIRST ENTRIES IN THE TABLE.
ON
SECOND AND SUBSEQUENT PASSES EVERY FOURTH CYLINDER SET
ENTRY WILL BE TESTED.

NOTE

&4:

TESTING WILL BE DONE BETWEEN UPPER AND
LOWER
LIMITS.
CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS WILL

NOT BE TESTED.
TESTING TO THAT
»

C(HOOSING A SINGLE
SURFACE.

SURFACE

WILL

LIMIT

SEQ 0034

17-DEC~79
30A(1052)
17-DEC-79 10:22

10:29

TABLE

CONTENTS

MACRO DEF INITIONS

GLOBAL DATA SECTION
GLOBAL DATA SECTION
GLOBAL MESSAGES
ERROR MESSAGES
INITIALIZATION SECTION

AUTO DROP SECTION

CLEANUP CODE SECTION
GLOBAL SUBROUTINES
«TEST
**SEEK TIMING
«TEST
~*BASIC READ DATA (BAD SECTOR FILE)
~TEST
*+«WRITE/READ DATA (PART 1)
*TEST
«*ROTATIONAL TIMING
«TEST
**WRITE/READ DATA (PART 2)
~TEST
**WRITE LOCK ERROR AND DATA PROTECTION
OV

MACY1Y

*TEST
**ADJACENT CYLINDER
*TEST
*«0OVERWRITE
PARAMETER CODING
QO

MAIN.

CZRLNA.MA(C

INTERFERENCE

SEQ 0035

CZRLNAO RLO1/702 DRIVE TEST 3
CZRLNA.MAC
17-DEC=-79 10:22

MACYT1

30A(1052)

17-DEC~79

.ENABLE ABS

5
%
&

002000
8

.ENABLE

002000

.=2000
CMCALL

000001

SVCTST=1

000001

000000

SVC

SVCSuB=1

SVCBGL=1

SVCINS=0

SVCTAG=0

AMA

SVC

10:29

PAGE 1

SEQ 0036

(PMNAD B OV/G Dol
vt

TELT

o't

LG,

e?9

Y429

PAGE

‘e

SEQ 0037

A\l4

TTC

JMALR)

.ENDM

25
26
27

.MACRO

.ENDM

30
39
32
33
34
;2

.MACRO

37
38
39
2?

.MACRO

42
43

.MACRO

&4
45

.ENDM

MACRO DEFINTTIONS
wAlTUS

ARy

JURO MI(RO=SE!

wAl'

. Y
JSR

ARG, ADEL AY
PC,TIME

:SAVE ARGUMEN!
sCALL TIMING ROUTINE

WAITMS
MOV
JSR

ARG
ARG, YDELAY
PC.XTIME

JMACRO MILLI-SEC WAIT
s SAVE ARGUMENT
;CALL TIMING ROUTINE

ABORTWAIT
MOV
XDELAY, TEMPO
MOV
YDELAY,TEMP
CLR
XDELAY
CLR
YDELAY

JMACRO CLEAR UNELAPSED TIME
;SAVE MICRO-SEC RUN TIME
JSAVE MILLI-SEC RUN []IME
;ABORT MICRO-SEC WAIT
JABORT MILLI-SEC WAIT

GETTIM
MOV
CLR

ARG
a#CLKCTR,ARG
@#CLKCSR

JMACRO GET ELAPSED TIME
;STORE CLOCK COUNTER CONTENTS
SEVENT FINJSHED, STOP CLOCK

STCLK
CLR

a#(LKCSB

JMACRO START P=-CLOCK
sCLEAR CLOCK COUNT SET BUFFER

CLR
MOV

S#CLKCTR
#23.MC 0RO

;CLEAR CLOCK COUNTER
NI
LI
ae)

RATE,

TAN!

I
re

CZRLNAO RLO1/02_DRIVE TEST 3
CZRUNA.MAC
17-DEC-79 10:22

52
53

002000

58
63

002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002011
002012

30A(1052)
17-DEC-79
MACRO DEF INITIONS
.NLIST

(4)
(4)
(4)
(4)
(4)
(6)
(6)
(5)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(3)
(4)
(5)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)

MACY11

002014
002016
002020
002022
002024
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050
002051
002052
002054
002056
002060
002062
002064
002066
002070
002072
002074
002076
002100
002102
002104
002106
002110
002112
002114
002116
002120

002122

10:29

3
PAGE 1-2

CND,MD,ME
POINTER BGNSW,BGNSF1,BGNDU

103
132
122
114
116
000
000
000
102
060
000000
030000
036352
036526
013704
013722
037132
000000
000000
000000
000000
013740
000000
000000
000000
0G3
003
000000
000000
000000
002216
000000
000000
000000
000000
015420
000000
002122
104035
000000
013760
015272
014734
013674
000000
000000
000000

BGNMOD
HEADER

MDHEDR
CZRLN,B,0,30000,0
CASCIT 7¢7
CASCIT 71/
"ASCIT /R/
JASCIT 7L/
"ASCIT /N/
BYTE
0
BYTE
0
BYTE
0
.ASCIT
7B/
JASCIT
70/
WORD
0
“WORD
"WORD
WORD
"WORD
WORD
"WORD
WORD
WORD

WORD
WORD

.WORD
WORD
WORD
WORD
.BYTE
.BYTE
JWORD
WORD
WORD
_WORD
"WORD
WORD
WORD
JWORD
"WORD
WORD
.WORD
EMT
WORD
WORD
"WORD
WORD

ENDMOD

.WORD
WORD
WORD
WORD

30000
L$HARD
LSSOFT
LSHW
LSSW
LSLAST
0
0
0
0
LSDISPATCH
0
0
0
CSREVISION
CSEDIT
0
0
0
LSDVTYP
O
0
0
0
L$DU
0
LSDESC
ESLOAD
0
LSINIT
LSCLEAN
L$AUTO
LS$PROT
0
0
0

SEQ 0038

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA . MAC
17-DEC-79 10:22

66
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)

002130
002136
002144
002152
002160
002166
002174
002202
002210

002216

(2)

(3)
(3)

(gg

002122
002122

002216
002224

055103
042524
042523
051040
047511
0445246
040440
044522
051040
040504

002216

046122
030114

046122

052123
045505
052117
040516
044515
042116
042524
040505
040524
030460
000062

MACY11

30A(1052)
17-DEC-79
MACRO DEF INITIONS

10:29

PAGE 1-3

DESCRIPT
<CZRLN TFCTS SEEK & ROTATIONAL TIMING AND WRITE & READ DATA>
.ASCIZ /CZRLN TESTS SEEK & ROTATIONAL TIMING AND WRITE £ READ DATA/

020116

020123
023040
052101
020114
043516
053440
023040
020104
000

.EVEN

DEVTYP

051054

.ASCIZ

<RLO1,RLOZ>
/RLO1,RPLO2/

.EVEN

69
70

;COPYRIGHT (C)
sTHIS SOFTWARE

72
73
74
75

¢THE INC!USION OF THE ABOVE COPYRIGHT NOTICE. THIS
;SOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED
;OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT
;FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE

1979
IS FURNISHED UNDER LICENSE FOR USE ONLY

JON_A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH

sLICENSE TERMS,

TITLE TO OWNERSHIP OF THE SOF TWARE SHALL

;AT ALL TJMES REMAIN IN DEC.

;THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

;8Y DIGITAL EQUIPMENT CORPORATION.

sWITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMMITMENT

;PFC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

LUF

86
87
gg

GLOBAL DATA SECTION
GLBEQAT

002230

BGNMOD

(?g

002230

EQUALS

(1)
gD
(1)
(1)
(1
(1)
gD
(1
(N
(1)
(1)
("

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

.SBTTL

g};

; BIT DIFINITIONS
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020

SEQ 0039

BI1T115==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BIT08==
BIT07==
BIT06==
BIT05==

100000
40000
20000
10000
4000
2000
1000
400
200
100
40

BITO04== 20

CZRLNAO RLO1/02 DRIVE TES T3

CZRULNA .MAC

MACY11

17-DEC-79 10:2 2

000010

30A(1052)

17-DEC~79

GLOBAL DATA SECTION

000004

BI1T02== 4

000001

8I1T00== 1

000002

001000
000400
000200

BI19==
BIT8==
8177==

BJTU9
BITO8
817107

1)
1)
(1)
(1)
1)
E} ;

000040
000020
000010
000004
000002
000001

B8175==
BIT4==
BIT3==
BIT2==
BIT1==
8170==

BITO0S
BIT04
BIT03
BIT02
BITO?
BIT00

000100

BITé6==

;

fl;

)

1)
q)
)
E};

;

000040

EVENT FLAG DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF .PWR==

(4D

;

000340

PRIO7== 340

4P
(1)

000240
000200

PRI0S== 240
PRI04== 200

000300

1)
1)
1)
4]
(1)
)]
1)
1)

9%
95

;

31.
30.
29.
28.

:
;
;
;.

PRI106== 300

000140
000100
000040
000000

PRI03==
PRI02==
PRI01==
PRI0O==

g;
1)
(1)
§)
1)
(1)
(1)

32.

PRIORITY LEVEL DEFINITIONS

(1)

(1)
1)
1
fl;

140
100
40
0

;OPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200

000400
001000
002000
004000
010000
020000
040000
100000
000000
000002

SEQ 0040

BIT06

EF .START==

000037
000036
000035
000034

g};

(1)

PAGE 1-4

BIT01== 2

1)
(1)
)
)

B81703== 10

)

(1)

10:29

EVL==
LOT==
ADR==
1DU==
ISR==
UiAM==

BOE==
PNT==
PR]==
IXE==
IBE==
1ER==
LOE==
HOE==
.

CSR
VECT

4
10
20

40
100
200
400
1000
2000
4000
10000
20000
40000
100000

OFFSETS FOR HARDWARE P-TABLE

=0
=2

;BUS ADDRESS
sVECTOR ADDRESS

START COMMAND WAS ]SSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER~-UP OCCURRED

CZRLNAO RLC1/02_DRIVE TEST 3

CZRLNA.MAC

9%
97

(V7]

d
d
D
d
b
b
b
d
b md e
i}
e o
d
b e
d md e
d
d

PIRNININININONININD
= b
d e e b e b b
o~

D
D
e
b

N NN

md —d
b e

N AN AN

MISwI
LOLIM

DCLIM

el
d ad

PRIOR
TYPDR
DRS8B
CNT

ERLIM

N
N—=O0

-— b

17-DEC-79
GLOBAL DATA SECTION

HILIM
HEAD

b -

100
101
102

17-DEC-79 10: 22

MACY11 30A(1052)

143

10:29

=6
=10
=12

4
PAGE 1-5
sPRIORITY

;DRIVE TYPE
sDRIVE SELECT BIT
s CONTROLLER TYPE

OFFSET FOR SOF TWARE P-TABLE

=0
=
=

-6
=10
=12

s SOFTWARE PARAMETERS SWITCHES
sCYLINDER LOWER LIMIT
sCYLINDER HIGH LIMIT

JSELECTED HEAD FOR RUNNING TESTS
JERROR LIMIT
;DATA COMPARE ERROR LIMIT

BIT ASSIGNMENT FOR SOFTWARE P-TABLE SWITCHES
ALLCYL
=8I1T00
JUSE ALL CYLINDERS
.
ALLSEC
=8IT01
JUSE ALL SECTORS
DRSELT
817102
JEXECUTE DRIVE SELECT TEST
HDAL IGN =8]T703
SEXECUTE HEAD ALIGNMENT TEST
HEADLM
8IT1?2
JHEAD LIMIT SPECIFIED FLAG

HICYL

LOCYL
MITEST

CKDATA
GTSTAT
SEEK
RDHEAD
WTDATA
RDDATA
RDNOHR

=8IT13
=B8IT14
=8IT1S

cHI LIMIT SPECIFIED FLAG
;LO LIMIT SPECIFIED
JEXECUTE MANUAL INTERVENTION TESTS

SUBSYSTEM FUNCTIONS
=102
=104

JWRITE CHECK
:GET STATUS

=110
=112
=114
=116
=100

sREAD HEADER
;WRITE DATA
JREAD DATA
;READ DATA, IGNORE HEADERS
;N0 OPERATION

OPERATION FLAGS
=7777

;COMPOSITE OPFRATION FLAGS

81102
81703
8IT04

JCYCLE UP OPERATION
JUNLOAD OPERATION
JIN=-OUT SEEK OPERATION

=106

=8]T01
8IT00

s SEEK

<HEADER COMPARE OPERATION
;DATA COMPARE OPERATION

=8IT05
=8I1T106
=8]T107
=8]T08
=8]T109
8]IT10

;OUT~IN SEEK OPERATION
JFOLLOWING WRITE OPERATION
JREV SEEK SEQ (ADJ INTERFERENCE)
JFWD SEEK SEQ (ADJ INTERFERENCE)
;REV SEEK SEQ (OVERWRITE)
JFWD SEEK SEQ (OVERWRITE)

=BIT12
=8I713

;SEEK OPERATION
;READ OR WRITE OPERATION

=8IT15

;40 HEADER OPERATION

BITN

=B8IT14

=QUTINS! INOUTS!FOLWRT

;BAD DISK ADDRESS
JRELOAD WAIT

!REVSKS ' FWDSKS !REVSKO! FWDSKO

JMESSAGE QUALIFIER BITS

ERROR FLAGS FROM SUBROUTINES

=BIT00

;OPERATION TOOK TOO LONG

SEQ 0041

CZRUNA.MAC

17-DEC-79 1

152
153

000002
000004
000010

IBVAANANIITHIETXERZLE olo RNTe XV ]

D —
D
D
D e
D
d
D
d
D e
e
e
e
e
D o
D e
d e
D
) e

182

17<DEC~79
30A(1052)
GLOBAL DATA SECTION

10:29

PAGE 1-6

NOIRPT
CONHNG
NOCLR

81101
=B8IT102
81703

JNO INTERRUPT FROM OPERATION
s CONTROLLEP HUNG
;BAD CONTROLLER CLEAR

RLCS
RLBA
RLDA
RLMP

=0
-2

;CONTROL AND STATUS REGISTER
sBUS ADDRESS REGISTER

RLCSR
ANYERR
DRVERR

NXMERR
DLTERR
HNF ERR
DCKERR
HCRCERR
OPIERR
DSMSK
CRDYMSK
INTEBL
BAMSK
DRDYMSK

SAMSK

HSMSK

00
o
=0

— —

(WIV,
IV IV, IV,

154

MACY11

000001
000004
000020

MBSETO

000003
000010

GETSTAT

017777

WCMSK

DIRBIT
HDSEL

DRSET

160000

WCRNG

000077
000100

HDSEC

HDHSEL

000007
000010
000020
000040
000100
000400
001000
002000
004000

STAMSK
BHSTAT
HOSTAT
COSTAT
HSSTAT
DSESTAT
VCSTAT
WGE STAT
SPDSTAT

“6

;DISK ADDRESS REGISTER
:MULTI-PURPOSE REGISTER

RSGISTER BIT DEFINITIONS - CONTROL STATUS REGISTER

=100000

=2000
=1400

=200

=100

;CONTROL AND STATUS REGISTER
:ANY ERROR BIT

:DRIVE ERROR BIT
NON=-EXISTENT MEMORY ERROR
;DATA LATE ERROR
;HEADER NOT FOUND ERROR
;DATA CHECK ERROR
HEADER CHECK ERROR
;OPERATION INCOMPLETE ERROR
sDRIVE SELECT MASK
- CONTROLLER READY MASK
s INTERRUPT ENABLE MASK
;BUS ADDRESS UPPER MASK
;DRIVE READY MASK

=100

;SECTOR ADDRESS MASK
:HEAD SELECT MASK

=20

sMUST BE SET, BIT 0
:DIRECTION BiT

:HEAD SELECT BIT

R%GISTER BIT DEFINITIONS - DISK ADDRESS FOR GET STATUS

=10

JGET STATUS SETUP
;DRIVE RESET MASK

7777
=160000

;WORD COUNT MASK

sWORD COUNT RANGE MASK

CZRLNAO RLO1/702 DRIVE TESTY 3

-100

s SECTOR MASK
JHEAD SELECT MASK

=7
=10
=20

=40

=100
=400
=1000

=2000

=4000

s STATE MASK
;BRUSH HOME STATUS
JHEADS QUT STATUS
;COVER OPEN STATUS
JHEAD SELECT STATUS
JDRIVE SELECT ERROR STATUS
;VOLUME CHECK STATUS
JWRITE GATE ERROR STATUS
:SPIN ERROR STATUS

SEQ 0042

CZRLNAO RLO1/02_DRIVE TEST 3
CZRUNA.MAC
17-DEC~79 10:22

MACY11

30A(1052)

’

17-DEC~79

GLOBAL DATA SECTION

10:29

PAGE 1-7

SEQ 0043

208
209
210

010000
020000
040000

STOSTAT =10000
WLSTAT =20000
HCESTAT =40000

s SEEK TIMEOUT ERROR STATUS
JWRITE LOCK STATUS
JHEAD CURRENT ERROR STATUS

213
214
215

172540
172542

:
CLKCSR
CLKCSB

sCLOCK CONTROL AND STATUS REGISTER
sCLOCK COUNT SET BUFFER

S};

100000

g}g

172544

218
219
220
221

002230

Ssg_

002230

%S%

002230
002232
002234
002236
002240

000000
005375
005420
005350
005365

261
2(2

002262
002264

005560
005620

243
244
2645

P=CLOCK REGISTERS
=172540
=172542
=172544

:CLOCK COUNTER

ENDMOD

BGNMOD

GLBDAT

TABLE OF OPERATION MESSAGES

OPMSGS:

.WORD
.WORD
.WORD
.WORD
.WORD

005406
005354
005503
005432
005451
005550
005537
005577

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

005640
005671
005756

.WORD
.WORD
.WORD

247
248
249
250
251
252
253
254
255
256
ggg

(02266
002270
002272
002274
0027
00230y
002502
002304
002306
002310
002312
002314
002316
002320
002322

006012
005467
000000
000000
000000
000000
000000
000000
000000
000000
000000

.WORD
.WORD
T.DRIVE: .WORD
JJJ:
.WORD
HLMTW:
_.WORD
CLRBYT: .WORD
NXTHL:
.WORD
GBND :
WORD
CAMSK:
.WORD
DIRMSK: .WORD
HDCYL:
.WORD

259
260
261
262
263

002324
002326
002330
002332

010135
010246
010464
010436

246

JWRITE DATA ERROR STATUS

.SBTTL GLOBAL DATA SECTION

228
229
230
231
232

002242
002244
002246
002250
002252
002254
002256
002260

CLKCTR

%567’

233
234
235
236
237
238
239
2640

WDESTAT =100000

005722

.WORD

;
RESTBL:

O
MWR(CHK
MGTSTA
MSEEK
MREADH
MWRITE
MREAD
MWRSET
MDAT(P
MHDRCP
MCYLUP
MULOAD
MINOWT
MOUTIN
MFOLWRT
MREVSK
MFWDSK
MRESKO
MFWSKO
MBADAD
M4LOHDR
0
V¥
0
0
O
0O
O
O
O

SFILLER
IMESSAGE FOR WRITE CHECK
:
GET STATUS
:
SEEK
;
READ HEADER

;
;
;
;
;
;
;
;

:
;
;
;
;
;
;
;

WRITE DATA
READ DATA
WITH RESET
WITH DATA COMPARE
WITH HFADER COMPARE
LOAD HEADS
UNLOAD HEADS
IN-OUT SEQ
OUT-IN SEQ
FOLLOWING WRITE

REV SEEK
FWD SEEK
REV SEEK
FWD SEEK

BAD DISK ADD FOR WRITE
40 HEADER OPERATION

TABLE OF RESULT NAME MESSACE ADDRESSES
.WORD
MCERR
. CONTROLLER ERROR
.WORD
MDRERR
;DRIVE ERROR
.WORD
MNEERR
NON-EXISTANT MEMORY ERROR
.WORD
MFLERR
JHEADER NOT FOUND-DATA LATE

30A(1052)
17-DEC-79
GLOBAL DATA SECTION
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000
010342
010307
010325
000000
010257

. WORD

MSTERR
MSPERR
MWGERR

;SEEK TIMEOUT ERROR
s SPINDLE ERROR

MDSERR

;DRIVE SELECT ERROR

ERROR

PAT6

PAT7

PATS8
PAT9
PAT10

CALLING STACK

;RLO2 TABLE OF ¢
.WORD
.WORD
.WORD
. WORD

s
8

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORC
.WORD
.WORD
.WORD

125782:

GATE

PAT4
PATS

TABLE OF C LINDERS

002462
002464
002466
002470

;WRITE

STATUS AVAILABLE

PAT?
PAT3

;RLO1

T2S5TBL:

;OPERATION INCOMPLETE

JWRITE DATA ERROR
;HEAD CURRENT ERROR

ad
b
b
e
b
b
b
b
b

NoleJRNTo RV, F XV N

N AN N AN AN N AN N AWNAN

308

.WORD

002434
002436
002440
002442
002444
002446
002450
002452
002454
002456
002460

JHEADER OR DATA ERROR

MWDERR
MHCERR

SUBROUTINE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

002432

SEQ 0044

PATTERN TABLE
PAT1
.WORD

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

SUBSTK:

PAGE 1-8

sNO DRIVE

8.
5.
INDERS
0

009000

N
PATTBL:

P(‘)NDRST

00507¢
005074
005134
005174
005234
005242
005302
005304
005344
005346

10: 29

MHDERR
MOPERR

C wOOOOC,ODO

010421
010411
010516
000000
010374
010356

MACY'1

==
20NN
=2 OO0
L e 1o I
Y [N R R N SR N,V T

CZRLNAO RLO1/02_DRIVE TEST 3
17-DEC-79 10: 22
CZRUNA MAC

JSTACK IS 12 WORDS LONG

;TABLE OF

DIFFERENCES

.WORD
.WORD

446,

.WORD
.WORD
.WORD
. WORD

68.
82.
256.
511.

TABLE

372
373
374
375°

002656
002657
002660
002661

.BLKW
.BLKW

16.
16.

CYLTBL:

BYTE
.BYTE
.BYTE
.BYTE
BYTE

2
7.
14.
20.
27.

.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
BYIE
BYTE
LRYTE
BYTE

S8.
65
72
77
84
91
97
102
10
11
12
12
13
13
14
15
15
16
17
17
18
18
195
202
207
214
220
227
234
241,
247.
253,
0

TBT:

33.
38.
45,
S2.

W'Y
i

177

TO BE USED

T337BL:

.BYTE
.BYTE
.BYTE
BYTE

I G

002610
002611
002612
002613
002614
002615
002616
002617
002620
002621
002622
002623
002624
002625
002026
002627
002630
002631

334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351

000020
000020

NN
NN = =
O=rON=
W WNO

002510
002550

330
331

10:29

PAGE

1-9

SEQ U045

34.

002468

000042
000054
000066
000104
000122
000400
000777

002472
002474

17-DEC-79
30A(1052)
GLOBAL DATA SECTION

320
321
322

MACY11

OB NOHNNVONO
S NOWOONIY

CZRLNAO RLO1/02 DRIVE _TEST 3
17-DEC-79 10:22
CZRLNA
. MAC

TO BUILD AND STORE

;TABLE

THE CYLINDERS

DEFAULT

CYLINDERS

CZRLNAQ RLO1/02 DRIVE TEST
CZRLNA
17-DEC-79 1C.
. MAC

MACY11

30A(1052)
17-DEC-79
GLOBAL DATA SECTION

002662
002664
002666

10:29

&
PAGE

1-10

SEQ 0046

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

.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WCRD
.WORD
. WORD
.WORD
.WORD

000716
000725
000733
000742
000751
000760
000766
000774
000774
000000
000000

SSINDX:

.WORD
.WORD

s SUBROUTINE STACK INDEX POINTER

OPERATJONAL
.WORD
:
DONE
.WORD
HADONE
: .WORD
ERHEAD: .WORD
MORECE: .WORD
ERRSWI: .WORD
BSFLAG: .WORD
WRTSWI: .WORD
TBLSTR: .WORD
RLBAS:

.WORD

000001

OCOOOOOO0O0

OPF LLAG:

FLAGS

;NDPERATION FLAGS
;OPERATION COMPLETE FLAG
JHEAD ALIGNMENT DONE FLAG
;ADDRESS OF ERROR HEADER

;MORE THAN 1 COMPARE ERROR
;ERROR RETURN SWITCH
;BAD SECTOR FLAGS
JWRITE

SWITCH

;TABLE STORAGE
;RL11

BASE

ADDRESS

;RL11 VECTOR ADDRESS
;DRIVE NUMBER UNDER TEST

000000
000000
000000
000000
000000
000000
000000

L.CS:
BA:
.DA:
MP:
.CS:
BA:

.WORD
.WORD
.WORD
.WORD
.WORD

s CONTROLLER REGISTER STORAGE
;BEFORE OPERATION

000000
000000
000000

HDWRD1:
HDWRDZ2:
HDWRD3:

.WORD
.WORD
.WORD

;HEADER WORD STORAGE

000000

T.STAT:

.WORD

sDRIVE STATE STORAGE
;PARAM BLOCK FOR REASON REPORT

.DA:
.MP:

.WORD
.WORD

472
474
475

.
.
.
.
.
.
.

467

468
469
470

476
477
478
479
480
481
482
483
484
485
486
487
488

.WORD
.WORD

466

bFIN:

OF INU:
OFMID:

OFMIDU: .

003174
003176

SEQ 0047

1-1 1

RLVEC(C:
RLDRV:

DRVCNT:
DIFAUG:
OoLDCYL:
NEWCYL:
CURCYL:
DESD.F:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMPI:
TEMP?:
TEMP3:
TEMPS:
TEMPS:
TEMPG:
TEMP?:
TEMPS:

461
462
463
464
465

PAGE

000000
000000

RESPARM:

460

OO0 OOO

445
446
447
448
449
450
451
452
453
454
455
456
457
458
459

10:29

olole]

444

17-DEC =79
GLOBAL DATA SECTION

003034
003036

30A(1052)

~N—A——

632
633
434
635
436
437
438
439
440
441
442
443

MACY11

jelolelelelelolololelololelolololalolololololeoleololddoleololeolololeolloleololeoleo

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA.MAC
17-DEC-79 10:22

:
OFOUT
OFOUTU:
ORIN:
ORINU:
ORMID:
ORMIDU:
OROUT:
OROUTU:
HF IN:
HF INU:

.
.

;CONTROLLER REGISTER STORAGE
.

AFTER OPERATION

;DRIVE

COUNT FOR DRIVES UNDER TEST

;DIFFERENCE AUGMENT FOR SEEK
;OLD CYLINDER
;NEW CYLINDER
s CURRENT CYLINDER
;DESIRED DIFFERENCE
;DESIRED SIGN
.DES IRED HEAD
;DESIRED SEZTOR
; TEMPORARY STORAGE
; TEMPORARY STARAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE

; TEMPORARY STORAGE

: TEMPORARY STORAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE

;ONE CYLiINDER F ORWARD INNERP
UPPER

* ONE CYLINDER F ORWARD MIDDLE
UPPER
§0NE CYLINDER F ORWARD OUTER
UPPER
: ONE CYLINDER REVERSE INNER
UPPER
éONE CYLINDER REVERSE MIDDLE
UPPER
‘o CYLINDER REVERSE OUTER
UPPER

2:128 CYLINDER F ORWARD
UPPER

INNER

CZRLNAO RLO1/02 _DRIVE _TEST 3
CZRLNA.MA(
17-DEC-79 10:22
489
490
491
492
493
494
495
496
497

003200
003202
003204
003206
003210
003212
003214
003216
003220

000000
000000
000000
000000
000000
000000
000000
000000
000000

MACY11

30A(1052)

GLOBAL DATA SECTION

HFOUT:
HFOUTU:
HRIN:

4
~PAGE 1-12
;128 CYLINDER FORWARD QUTER
M
UPPER
;128 CYLINDER REVERSE INNER

0
0
0
0

;256 CYLINDER FORWARD
:
UPPER
;256 CYLINDER REVERSE
.
UPPER

EXOCYL:
EXHCYL:
EXACYL:
EXROT:
ERRVEC:

.WORD
.WORD
.WORD
.WORD
.WORD

150.
550.
1000.
250.
4

MISCELLANEOUS COUNTERS

AFMID:
AFMIDU:
ARMID:
ARMIDU:

.WORD
.WORD
.WORD
.WORD

SEQ 0048

0
0
0

.WORD

PASNUM:
PSETNM:

.WORD
.WORD

C
0

NOERCT:
TRPFLG:

.BYTE
.WORD

0
0

.
UPPER
:128 CYLINDER REVERSE QUTER
:
UPPER

JEXPECTED TIME ONE
JEXPECTED TIME 128
JEXPECTED TIME 256
JEXPECTED ROTATION
JERROR VECTOR
;PASS COUNTER

CYLINDER
CYLINDER
CYLINDER
TIME

(LOCAL

TO A

TEST)

COUNT:
.WORD
0
ERRPOINT: .WORD 0
ERRCNT: .BLKW
64.

;A COUNTER (LOCAL TO A TEST)
;ERROR POINTER
JERROR COUNTER FOR PROGRAM

LOCERR:

.LOCAL ERROR COUNTER

XDELAY:
YDELAY:

.WORD
.WORD
.WORD

PWRFLG:

AV, IV, IV, 1V, IV, LV, 1V, ]

.WORD
.WORD
.WORD

10:29

HRINU:
HROUT:
HROUTU:

PASCNT:

17-DEC-79

MININCTEMP:
TIM.US:
TAG:

MAJINC:
CLKFLG:
CLKADR:

.BYTE

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
WORD

.WORD
.WORD
.WORD

0
0

;PASS NUMBER FOR PROGRAM
;COUNTER FOR PARAMETER SET NUMBER

JINHIBIT ERROR COUNTING FLAG
;HARDWARE TRAP OCCURANCE
,POWER FAILURE OCCURANCE

0
0

0
0
0
O
0

0
0

JFLAG INDICATING PRESENCE OF A P-CLOCK
JPOINTER TO DIAGNOSTIC MONITOR CLOCK TABLE

BAD SECTOR TABLES ANC POINTERS
.WORD

;BAD SECTORS FILES VALID FLAG

SBSFIL:

.BLKW

. SOF TWARE BAD SECTOR FILE

000200
000200

IBUFF:
OBUFF:

.BLKW
.BLKW

200
200

JINPUT BUFFER
;OUTPUT BUFFER

000000
177772
177777
177777
052525
052525
052525
177777

PAT1:
PAT2:

. WORD
WORD

530

003500

000000

BSFVAL:

532
533

003502
003676

000076
000076

FBSFIL:

535
536

004072
004472

539
540
5¢1
542
543
564
545

005074
005076
005100
005102
005104
005106
005110

.BLKW

.WORD
.WORD
LWORD
.WORD
.WORD
. WORD

[N USE

177772

177777
177777

052525

052525
052525
177777

.FACTORY BAD SECTOR FILE

JPATTERN 1

(ALL ZEROS)

546

MACY11

30A(1052)
17-DEC-?9
GLOBAL DATA SECTION

177777
052525
052525

547

548
549
550

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

177777

052525

177252
177252
172765
172765

000003
000000
000000

PAT3:

177777
177777
177777

000000
000000
177777
177777
000000
177777
000000
177777
000000
177777

025252
052525
052525

PATS:

125252
125252
125252
052525

052525
125252
125252
052,25

125252

052525

125252

177252
177252
172765
172765

000003
000000
000000

177777
177777
177777

000000
000000

177777
177777

000000

177777

000000
177777
000000
177777

155555
133333
066666

PATS:

Q- —
OV

005242
005244
005246
005250
005252
005254
005256
005260

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

177777

121105

PAT6-

Q= O ——
WONNAN

052525
125252

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

105504

10:29

052525
052525
177777
052525

SO O—=RO==O0
o)L

CZRLNAO RLO1/02_DRIVE TE?T 3
17-DEC-79
CZRUNA
. MAC
0: 22

PAGE 1-13

SEQ 0049

CZRLNAO RLO1/02 _DRIVE TEST 3
CZRLNA . MAC
17-DEC-79 10:22
602
603
604
605
606

005262
005264
005266
005270
005272

042642
021321
110550
044264
022132

608
609

005276
005300

104426
042213

607

005274

MACY11

30A(1052)

17<-DEC~79

GLOBAL DATA SECTION

011055

10:29

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD

042642
021321
110550
044264
022132
011055
104426
042213

611

005302

177777

PAT7:

.WORD

177777

613

005304

045513

PATS8:

627
628

005340
005342

026455
113226

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645
151322
064551
132264
055132
026455
113226

630

005344

125252

PATG:

.WORD

125252

632

005346

155555

PAT10:

.WORD

155555

&
PAGE 1-14

ENDMOD

647
648
649
650
651
652
653
654
655
656
657
658
659
660

005350
005354
005365
005375
005406
005420
005432
005451
005467
005503
005517
005526
005537
005550

045523
042122
122
127
051127
042507
044527
127
106
127
117
042522
125
042114

000040
042040
020104
052122
020124
020124
044124
052111
051117
052111
042520
052523
046116
042040

052101
042110
041440
040504
052123
042040
020110
032040
020110
035122
052114
020104
053122

.SBTTL

GLOBAL MESSAGES

BGNMOD

GLBTXT

MSEEK:

.ASCIZ

MREAD:
MREADH:
MWRCHK:
MWRITE:
MGTSTA:
MDATCP:
MHDRCP:
M4LOHDR:
MWRSET:
MOPER:
MRSLT:
MULOAD:
MCYLUP:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
,ASCIZ
,ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

/SK /

/RD DATA /
/RD HDR /
/WRT CHCK/
/WRT DATA /
/GET STAT /
/WITH DATA (CMP /
/WITH HDR CMP /
/FOR 40 HDRS/
/WITH RESET /
/OPER: /
/RESULT:
/
/UNLD DRV/
/LD DRV /

SEQ (050

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA.MAC
17-DEC~79 10:22
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677

005560
005577
005620
005640
005671
005722
005756

MACY11
020060
031040
051127
054503
041440

051440

051517
047440
046511

050120
047116
042111
042524

020130
041440

046131

30A(7052)
17-DEC-79
GLOBAL MESSAGES
MOUTIN

LASCIZ

MINOUT
.ASCIZ
MFOLWRT: .ASCIZ
MREVSK: .ASCIZ
: LASCIZ
MFWDSK
MFWSKO: .ASCIZ
MRESKO: LASCIZ
: LASCIZ
MBADAD
: .ASCIZ
MBADSF
MFMTER: LASCIZ
.ASCIZ
MTMBS:
BASADD: .ASCIZ
DRVNAM: .ASCIZ
DRVNAV: .ASCIZ
NOPWR:
.ASCI2
CSNAM:
LASCIZ
BANAM:
ASCIZ
DANAM:
LASCIZ
MPNAM:
LASCIZ

10:29

PAGE 1-15

/FOL 0 TO CC SK/
/FOL 255 TO CC Sk/

/FOL WRT (NO SK)/
/ADJ CYL WRTTN AFT REV SK/
/ADJ CYL WRTTN AFT FWD SK/
/SK FWD,WRT = SK REV,OVERWRT/
/SK REV,WRT - SK FWD,OVERWRT/
/ON BAD SEC FILES/
/CAN'T GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/
/TO MANY BAD SEC /
/BUS ADD=/
/DRv=/
/NO DRV FOR TST/
/DRV DID NOT REC'R FROM PWR FAIL/
/RLCS/
/RLBA/
/RLDA/
/RLMP/
/0P INIT
=/
LAB1:
LASCIZ
/0P DONE = /
LABZ2:
ASCIZ
:
/WORD /
MWORD
ASCIZ
MTOSLOW: .ASCI1Z /INTRPT TOO LATE/
MDRRES
LASCIZ
/NO DRV RSPNSE/
MNOINT
/NO _INTRPT ON CMND COMPLETE/
.ASCIZ
MCONHNG: ASCIZ /CNTLR HUNG /
MNOCLR: LASCIZ
/ERR DID NOT CLR/
T:
/VOL CHK NOT RSET/
VCNRS
.ASCIZ
/UNXPCTED ERR/
UNXERR: .ASCIZ
TSTLAB: .ASCIZ
/ TEST/
P2TO3E: ASCIZ
/0UT GRD BAND /
P2TQ4E: ASCIZ
/INC SK FWD HD 0/
P2TOSE: ASCIZ
/INC SK REV HD 0/
P2TO6E: ASCIZ
/INC SK FWD HD 1/
P2TO7E: LASCIZ
/INN GRD BAND /
P2TO8E: .ASCIZ
/INC SK REV HD 1/
P2TO9E: LASCIZ
/SK/
P2T10E: LASCIZ
/FWD 0SC SK/
P2T11E: ASCIZ
/REV _0SC SK/
P2T12E: ASCIZ
/SK TIMING/
P2T13E: ASCIZ
/8SC RD DATA/
P2T14E: LASCIC
SWRT/RD DATA (P1)&
P2T15E: ASCIZ
/SPINDLE ROT TIMING/
P2T16E: LASCIZ
CWRT/RD DATA (P2)&
P2T17E: LASCIZ
/WRT LCK ERR AND DATA PROT/
P2T18E: .ASCIZ
/ADJ CYL INTERFNCE/
P2T19E: LASCIZ
/0OVERWRT/
SKTMES: ASCIZ
/SK TIMES /
SRTMES: .ASCIZ
/SPINDLE ROT TIME /
VALDES: ASCI2Z
/(IN 100'S OF U-SEC)/
MAPROX: LASCIZ
/APPROX /
LABIN:
LASCIZ
/INNER/
LABMID: .ASCIZ
/MIDDLE/
LABOUT: ASCIZ
/OUTER/
LABEXP: LASCIZ
/MAX TIME/
: LASCI2Z
/1 CYL FWD/
LABOCF

SEQ 0051

CZRLNAO RLO1/02 DRIVE_TEST 3
CZRLNA.MAC
17-DEC~79 10:22

007221
007233
007247
007263
007277
007313
007347
007366
007372
007402

007415
007432
007440
007445
007451
007456
007463
007471

041440 0646131
042111
041440
042111
041440
054101
0641440
054101
061440
051504 043040
051505
052105
000040 *
042040 053122
042504 020122

30A(1052)
17-DEC-79
GLOBAL MESSAGES

LABOCR:
LABHCF:
LABHCR:
LABACF:
LABACR:
HOMOVF:
OPR12:
OPR1A:
OPR1B:
UNDTST:

.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

123
044504
043523
110
123
054503
106
040

052105
043106
020116
020104
041505
020114
047522
054502

053440
000040
000
000
000040
000
020115
040520

OPROO4:
OIFWD:
SGNWD:
HDWD:
SECWD:
CyLwD:
FRMWD:
BYPSNM:

.ASCIZ
.ASCIZ
_ASCIZ
,ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

042526

052123

032040

NOTST4:

.ASCIZ

/SET WRT L(K /
/DIFF /
/SGN /
/HD /
/SEC /
/CYL /
/FROM /
/ BYPASSED /

020126
047117
051104
052101
020122
040524
020122
020126
053122
020126
044520
052122
052040
042101
020124
051120
051104
020122
026516

042122
020124
041440
020101
047516
046040
047516
051105
051440
052123
020116
043440
046511
041440
040504
044455
042057
047516
054105

;
RESULT NAMES
MDRDY:
.ASCIZ
/DRV RDY /
MCERR:
.ASCIZ
/CONT ERR /
MHCRC:
.ASCIZ
/HDR CRC/
MDCRC:
.ASCIZ
/DATA CRC/
MHNF:
_ASCIZ
/HDR NOT FND/
MDLT:
_ASCIZ
/DATA LATE/
MHFCRC: .ASCIZ
&HDR NCT FND/HDR ~RC/OPI&
MDRERR: .ASCIZ /DRV ERR /
MDSERR: .ASCIZ /DRV SEL ERR /
MDRVST: .ASCIZ /DRV STATE /
MSPERR: .ASCIZ
/SPIN TIMEOUT /
MWGERR: .ASCIZ
/WRT GAT ERR /
MSTERR: .ASCIZ
/SK TIMEOUT /
MHCERR: .ASCIZ
/HEAD CUR ERR /
MWDERR: .ASCIZ
/WRT DAT ERR /
MOPERR: .ASCIZ
/OPR-INC/
MHDERR: .ASCIZ &HDR/DAT ERR &
MFLERR: .ASCIZ &HDR NOT FND/DAT LATE &
MNEERR: .ASCIZ /NON-EXISTENT MEMORY /

010516
010541
010606
010645
010657
010714
010721

040503
125
040506
7

023516
045516
046111
052122
053117
051122
177777

020124
020116
052040
040440
020122
000
000

MNDRST:
MUNDEF:
MRLFAL:
MWRTAB:
MEXERS:
MERRS:
BELL:

042440
207

000040

MCYLOC:

.ASCIZ
_ASCIZ
.ASCiZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/1 CYL REV/
/MID CYL FWD/
/MID CYL REV/
/MAX CYL FWD/
/MAX CYL REV/
/HDS FAILED TO MV IN 10 TRYS/
/RESET WRT L(K /
/ON /
/ON DRV /
/UNDER TEST/

051104
103
110
106
042110
040504
042110
051104
106
051104
123
127
045523
042510
051127
117
110
042110
047516

046131

SEQMES:
STAMES:
BSNSTR:
TCERR:
NOCTLR:
NOTRDY:
NOTST1:

4
PAGE 1-16

010126
010135
010147
010157
010170
010204
010216
010246
010257
010274
010307
010325
010342
010356
010374
010411
010421
010436
010464

103

047111
051440
042523
020114
042526
042526
030440

047522
104
040502
047524
1046
104
042526

010511

052125
053122
020104
0405246
044522
044522
052123

10:29

007504
007527
007540
007614
007635
007673
007750
010036

8
8
8
8

061
115
115
115
115
110
122
047117
047117
047125

"MACY11

/ROUTINE TRACE SEQ:/
/DRV STAT/
/BAD SEC FILES NOT STRD. ALL SEC ASSUMED OK./
/TOTAL CMP ERRS: /
/DRIVE DROPPED -~ NO CONTROLLER/
/DRIVE DROPPED = DID NOT RESPOND WITH 'READY'‘/
/TEST 1 CANNOT BE PERFORMED...P-CLOCK IS NOT AVAILABLE/
/TEST & CANNOT BE PERFORMED...P-CLOCK

/CYL /

/CAN'T GET DRV STAT/
/UNKN DRV STATE-NO RDY,NO ERR,HDS OUT/
/FAIL TO RELD HDS AFTER ERR CLR/
/WRT ABRTD/
/ OVR ERR LIMIT -~ UNIT DRPPD /
/ ERR/
<207><377><377>

IS NOT AVAILABLE/

SEQ 0052

CZRLNAO RLO1/02_DRIVE
17-DEC- 79
CZRLNA. MAC

MACY11

30A(1052)

010725
010731

1M
040

000
000040

RESE3:

010736
010743

044440
040
052123

052123
052123
051461
065

guwww-n-n-n-a—a—s—h

vW
~~
WVIN W = NN
S (=
~ - NON S NN = ONNSO

amd wud

)

b wd

b —ad e

OOOOOOOOOOOOOOOOE

103
040504
065

045
047045
047045
045
047045
045

17-DEC-79
GLOBAL MESSAGES

RESE&:

STATE2: .

020124
030060
041531
040524
051440
022516

STATES:
C10Ms:

.
.

CS00MS: .
CCYLUP:
CAFDT:

041505

CSSEC:

022524
047445
047445
000124
052045

FMTOPT:

022524

FMTOP?:
FMTOP3:
FMT1:

FMT1.1:
FMT2:

FMT3:

FMT4:
FMTS:
FMT6:
FMT?7:
FMT8:
FMT9:

FMT11:
FMT12:
FMT13:
FMT14:
FMT1S:
FMT16:

FMT17:
FMT18:
FMT19:
FMT20:
FMT21:
FMT22:
FMT23:
FMT24:
FMT?25:

0120.,6

FMT26:
FMT27:
FMT28:

012067

ENDMOD

PAGE 1-17

T SETTINGS
RESUL
/1S /
LASCIZ
/ SB /
LASCIZ

RESES:
RESEG:

STATE3:

10:29

T CONDITIONS
/ IN/
/ OF /
/STATE 2/

/STATE 3/
/STATE 5/
/1ST 3 MS/
/500Ms/

/CYC UP/
/DATA XFR/

/5 SEC/
.

/INXTINXTXTR06XSXTX01IN/
/INXTXO01XS1XTX01
XN/
/INXTXO1XS1XTXTIN/
/XTXT/
/INXTXT/
/XT/
/IN/
/INXTXTIN/
/INXTX06XS1XTX01/

/INTSTIXTXSAXTXSLXTISLXTTS4XTXS2XT/

/INTTX06XS2206XS2206XS2206XS3X03XS2%01XN/
/INXT206XS2%06X52206XS2206/
/INXT/

/X1%01/
/%7203/
/INXST11XTX03XS1XTX03XS1XTX012S1XTX01/
/INXTXTRD3XS1XTX06XS1XTX06/
/INXS11XTAD3XS1XTX06XS1XTX06/
/INXS5%06/
/XST10XTINXS11Z06XN/
/AINTST1SXTXSSXTIS4XTISSITIN/
/XTXS4XDOXSLIDO6XSLXD6XSLXDOIN/
/XTXS2XD6XS14ID6XSLXDE6IN/
/XTXS12XD6XS14XDEIN/
/INZS11XTX03XS1XTX01XS1XTX02/
/XTXTXTRO1IN/
/INXT/
/INXD2XT/
/INISTXTXD4XTXTID3IIN/
/XNXTXD3XTXD3IAIN/
/AINXTRXTXT/

SEQ 0053

CZRLNAO RLO1/02 DRIVE TEST 3

CZRLNA.MAC
876
877
878

17-DEC-79 10:22

MACY11

17-DEC-79
30A(1052)
ERROR MESSAGES
.SBTTL
BGNMOD

012070

10:29

5
PAGE 1-18

SEQ 0054

ERROR MESSAGES
GLBERR
R3 POINTS TO RESULT MESSAGE
ERR1
RESULT: (R3)

ERRZ

" R3 POINTS TO RESULT NAME

ERR3

R3 POINTS TO RESULT NAME
RESULT: (R3) IS 0 SB 1

ERRS

R3 POINTS TO RESULT NAME

RESULT:

(R3)

IS 1

SB 0

R4 POINTS TO RESULT CONDITIONS

RESULT:

(R3)

IS 1

SB 0 (R4)

ERRS

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS
RESULT: (R3) IS 0 SB 1 (R4)

ERRG

RFSULT ROUTINE DETERMINES WHICH ERROR(S)
REPORTS ALL

RESULT: "ERROR'' IS 1

ERR?7

ARE SET AND

SB 0

DRIVE STATE ERROR REPORT

R3 CONTAINS EXPECTED STATE
T.STAT CONTAINS BAD STATE

RESULT: DRIVE STATE IS (T.STAT) SB (R3)
ERR8

HEAD POSITIONING ERROR REPORT
NEWCYL CONTAINS EXPECTED CYLINDER
HDWRD1 CONTAINS BAD CYLINDER
RESULT:

ERR9

CYLINDER IS

(HDWRD1)

(NEWCYL)

UTILITY RESULT REPORT

R3 POINTS TO RESL

R4 POINTS TO VALUE

T NAME
1

N0,

R5 POINTS TO VALUE 2
RESULT: (R3-NAME) IS (R4-VALUE 1)

923

012070

105737

003451

925
926
927
928
929
930
931

012076
012102
012104
012110
012114
012116
012122

005277
010146
004737
012721
010321
004737
004737

171140

026662
000001
025450
025656

BGNMSG

1%:

ERR10

SB (RS5-VALUE 2)

COMPARE ERROR REPORT
R3 CONTAINS THE BAD WORD NUMBER
R4 POINTS TO BAD WORD
R5 POINTS TO GOOD WORD
RESULT: WORD (R3) IS (R4) SB (RS)

NOERCT

;TEST IF ERROR COUNTING INMIBITED

JYES - SKIP

R1,-(SP)

:STORE R1

#1,(R1)+
R3,(R1)+

;SET _PARAM NUMBER
s INSERT MESSAGE ADDRESS POINTER

@ERRPOINT
PC.RPTOP

PC.RPTRES
PC.RPTREM

;ELSE BUMP ERROR COUNT

;REPORT OPERATION

JREPORT RESULTS
;REPORT REMAINDER

—b el ) b
PONONON
— e e o

00O
0000000

b ad cnd D e d b
PNORONVMNMNONIN
—d el el b ced amd b

932
933
934
(3)
(3)
935

ViV
&
(W],
0]
SRBRIER
RERBR

CZRLNAOQ RLO1/02 _DRIVE TEST 3
17-DEC-79 10:22
CZRULNA
. MAC

012162

012601
004737

016032

171100

ENDMSG

BGNMSG

000001

025450
025656
ENDMS(

L1C001:

012202

012252
012252

MOV

024662
000003

016032

012204
012204
012210
012212
012216
012222
012224
012226
012232
012236
012242
012244
012250
012250
012250

17-DEC-79
30A(1052)
MESSAGES
ERROR

L10000:

104423

005277

MACY11

171032

BGNMSG

026662

ENDMSG

L10002:
BGNMSG

024662
000004

012322

CSMSG

ERR?2

INC
MOV
JSR
MOV
MOV
MOV
CLR
JSR
JSR
MOV
JSR

aERRPOINT
R1,-(SP)
PC.RPTOP

#3,.(R1)+
R3,(R1)+
#1,(R1)+

(R1)+

PC,RPTRES
PC,RPTREM

(SP)
+ R

PC,CKERLM

8ERRPOINT
R1,-(SP)

PC ,RPTRES
PC,RPTREM
(SP)
+ ,R1
PC,CKERLM

QdERRPOINT
R1,-(SP)
PC,RPTOP
#6,(R1)+

(SP)+ ,R1

L10003:

BGNMSG

PAGE 1-19

JRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT

;STORc R
sREPORT OPERATION
:SET PARAM NUMBER
s INSERT NAME ADD POINTER
;SET IS VALUE
;SET S8 VALUE
JREPORT RESULTS
;REPORT REMAINDER
JRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
;STURE R1
sREPORT OPERATION
:SET PARAM NUMBER
s INSERT NAME ADD POINTER
sSET IS VALUE
;SET SB VALUE
;REPORT RESULTS
;REPORT REMAINDER
;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

CSMSG

PC.,RPTREM

ENDMSG

C$MSG

#,(R1)+
(R1)+
R4, (R1)
PC ,RPTRES

025450
025656

012320

TRAP

R3,(R1)+

000001

016032

PC.CKERLM

#3,(R1)+
R3,(R1)+
(R1)+
#,(R1)+

000001
025450
025656

170764

(SP) +,R1

JSR

PC,RPTOP

000003

016032

10:29

PC,CKERLM

CIMSG

;BUMP ERROR COUNT
:STORE R1

sREPORT OPERATION
:SET_PARAM NUMBER
s INSERT NAME ADD POINTER
JSET IS VALUE
;SET _SB vALUE
2 INSERT ADD OF CONDITION POINTER
sREPORT RESULTS
;REPORT REMAINDER
JRESTORE R
;GO CHECK IF ERROR COUNT EXCEEDED

SEQ 0055

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRULNA .MAC

012322

005277

MACY11

30A(1052)

170714

INC

MOV

024662
000004

JSR

MOV
MOV

CLR

000001

MOV
MOV
JSR
JSR

025450
025656

MOV

016032

ENDMSG

012370
012370

s Grurd
P
i
Pur Gar hor Pur Gunr i

VONRVEBWN=O

elelelololeleoleolole]

P
U S
S
Y

1009

012372
012372
012376
012400
012404
012406
012410
012412
012414
012420
012424
012432
012636
012442
012446
012452
012454

012462
012466

012472
012476
012510
012516
012520
012524
012526
012532
012536
012542
012544
012550
012554
012560
012564

L 10004:
BGNMSG

003451
170636

024662
000003
000001
003130
003050
177761
000004

17%:

000002

000200

000000

03057
177442
003050
001777
002000
010000
004000

QERRPOINT
R1,=-(SP)

PC ,RPTOP
#6,(R1)+

R3,(R1)+
(R1)+

#1,(R1)+
R4, (R1)
PC,RPTRES
PC ,RPTREM
(SP)
+ ,R1
PC,CKERLM

PAGE 1-20

SEQ 0056

;BUMP ERROR COUNT
:STORE R
;REPORT OPERATION
:SET PARAM NUMBER
s INSERT NAME ADD POINTER
sSET IS VALUE
;SET SB VALUE
- INSERT ADD OF CONDITION POINTER
JREPORT RESULTS

cREPORT REMAINDER
JRESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

CIMSG
NOERCT
17$
SERRPOINT
R1,-(SP)
R3,-(SP)
R&.=(SP)
RS.~(SP)

#3,(R1)+
#1.2(R1)
TEMP3
T.CS,R3

#177%61,R3

000004

000006
003130
003131

JSR

10:29

PC,RPTOP

000003
000004
003036
000000

001000

17-DEC~79

ERROR MESSAGES

STEST IF ERROR ZOUNTING INHIBITED
JYES - SK]IP
;ELSE BUMP ERROR COUNT

;STORE R1

;STORE R3

:STORE R4

;STORE RS
;REPORT OPERATION
;SET PARAM NUMBER
cINSERT IS VALUE

;CLEAR FOR STATUS STORAGE
JGET T.CS

JAND CLEAR ALL BUT FUNCTION

#4 ,R3
JCHECK IF IT WAS GET STATUS
1%
SYES - STATUS IS IN T.MP, SKIP
#GETSTAT ,RLDA(R2) ;ELSE DO GET STATUS

RLDRV,R3
R3,RLCS(R2)
#10.

;WAIT FOR CONTROLLER READY

#CRDYMSK ,RLCS (R2)

:TEST

READY

108
#81T9,R3
2
RLMP (R2) ,R3
R3, TEMP3

:YES - SKIP
*ELSE SET NO DRIVE STATUS BIT
:IN MESSAGE WORD AND SKIP
*STORE STATUS FOR REPORT

{ggP301.R3

:GET ERROR BITS IN PROPER POSITION

T.MP+1,R3

;GET ERROR BITS FROM MP REG

T.CS,R4

*GET ERROR BITS FROM CS REG

#177442 ,R3
#1777 .R4

*CLEAR UNUSED BITS

:CLEAR UNUSED BITS

R4 ,R3
#OPIERR,R3
115%
#HNFERR,R3
107%

*MAKE ONE WORD OF POSSIBLE ERRORS
STEST IF OP] SET
‘NO - SKIP
“TEST IF HDR NOT FOUND ERROR
SYES - SKIP

105%

*YES - SKIP

#HCRCERR,R3

*TEST

HDR CRC ERR

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA
. MAC
1034
1035
(10)
(9)
(8
(7)
(6)
(3)
(%)
(4)
1036
1037
1038

012610
012614
012614
012620
012622
012626
012632
012636
012640
012642
012646

012704

01064M

012746
010446
012746
012746
012746
010600

010714

104414

062706
000430

1039

1040
1041
1042

30A(1052)
17-DEC-79
ERROR MESSAGES
100%:

005526

000012
010147

105%:

004000

107%:

010170

1043
1044
1045

1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
(9)

010216

109%:

004000

115%:

010157
010000

118%:

010204
100000

1208:

3s:
4%:

MOV

PRINTB
MOV
MoV
MOV
MOV
MOV
MOV
TRAP
ADD
BR
MOV
BR
BIT

BNE
MOV

BR
MOV
BR
BIT
BEQ
MOV
BR
BIT
BEQ
MoV
BR
MOV
CLR

BIT
BNE

TST

cLC

ROR
BNE

(8)

(7)
6)
(3)
(&)
(4)
1069
1070
1071
1072
1073
1074

MACY11

013050
013054

002324
025450

6%:

004737
005737
001414

025656
003130

7%:

013746
012746
012746
012746

003130
007527
011542
000003

012701

TST

BEQ

PRINTB

MOV
MOV
MOV
MOV
MOV

000010
004000

003050

002000

003050

003020
000200

BR
MOV
JSR
B8R
JSR

15%:

TRAP
ADD

BIT
8EQ
BIT
BNE
CLR
MOV

10:29

PAGE 1-21

#MOPERR R4

SEQ 0057

;SET OP]

ALONE MESSAGE

NFMT28 ,#MRSLT R4 ,#MERRS ,REPORT ERROR
#MERRS
, = (SP)
R4 ,-(SP)
#MRSLT ,=-(SP)

#FMT28,-(SP)
# ,-(SP)

SP.RO
CSPNTB

#12,SP

1208

:gggRC.RL
#HCRCERR,R3

109%

;SKIP

;HDR CRC MESSAGE
JTEST

IF HCRC WITH HDR NOT FND

JYES - SKIP

188§F.R4

<MESSAGE

#MHF CRC R4

JHNF AND HCRC MESSAGE

HEADER NOT

FOUND

1008
#DCKERR,R3

;SKIP
JTEST IF DATA CHECK SET, NOT OPI

MDCRC,R4

;SET MESSAGE DATA CHECK

#DLTERR,R3

JTEST

118$%
1008

1208

MDLT R4

JNO - SKIP
;SKIP

DATA LATE ERROR

JNO - SKIP

;SET MESSAGE DATA LATE

1008

JSKIP

;CLEAR R4 FOR TABLE

#MIT1S5,RS
RS,R3
6%

(R4) +

RS
3s
7%
RESTBL(R4),(R1)
PC,RPTRES

PC,RPTREM

JSET BIT POINTER FOR TEST
JTEST IF BIT IS SET

ZOUNT

JYFS = SKIP TO REPORT

;ELSE BUMP TABLE POINTER

:CLEAR CARRY

JSHIFT BIT POINTER TO NEXT BIT
;LOOP IF NOT O
;ELSE REPORT REMAINDER

;INSERT NAME ADDRESS
;REPORT RESULTS
;GET NEXT BIT
<REPORT REMAINDER

TEMP3
JTEST IF ANY NEW STATUS
15%
.NO - SKIP
AFMT
, #STAMES17
, TEMP3
TEMP3,~(SP)

ASTAMES ,~-(SP)
NFMT17 ,-(SP)
#3,-(SP)

SP,RO
CSPNTB

#10,SP

#DCKERR,T.CS

JTEST

DATA CHE(K ERROR

JTEST

OP]

25%

:NO - SKIP

25%

JYES - SKIP

#OPIERR,T.CS

MORECE
#128. ,Ri

SET

;CLEAR COMPARE ERROR COUNT
JSET COMPARE LENGTH

CZRLNAO RLO1/02 DRIVE _TEST 3
CZRULNA
. MAC
17-DEC-79 10:22
1075

012703
012705
012704
021514
001427
023727
003021
011546
012746

011446
02746
010346

0.2746
012746
012746
010600

104414
062706
005237
022524
005203
005301
001343
005737
001421
012701

010146
012746
013746
012746
012746
012746
010600

000001
004472
004072
003020

RIRIRICSE 3
o

b
b

b ek =

b
b
b

005277
010146

d e

b md wd

—b e

—

013254
013254
013260

013310

004737
012721
012721
013721
010311
004737
004737

17-DEC=79
ERROR MESSAGES

000012

025450
025656

JSET

TEST WOR[

OINTER

R3,-(SP)

AMJORD
, - (SP)

#FMT15
- (SP)
#7.,~(SP)
SP.RO

CSPNTB

#20,SP

MORE CE

20%:
19%:

25%:

;:BUMP ERROR COUNTER

(R5)+, (R&)+
R3

:BUMP POINTERS
:BUMP COUNTER

188

*LOOP IF NOT DONE

27%

*NO - SKIP

MORE CE

#128.

*DEC LENGTH COUNT

STEST

IF ANY COMPARE ERRORS

*SET COMPARE LENGTH

NFMT27 , #TCERR ,MORE CE ,#RESE6 ,R1

R1,-(SP)
#RESE6,~(SP)
CE .~ (SP)
MORE

010743
003020
007614
012037
000005

026662
000003
010274
003064

;SET WORD COUNT
;SET GOOD WC
POINTER

#RESE4 ,-(SP)
(R4) ,=(SP)
#RESE3,~(SP)

000200

167762

SEQ 0058

(R3), (R&)
¢ CHECK WORD
19%
.6GO0D - SKIP
MORECE ,#10.
sTEST IF COMPARE LIMIT REACHED
20%
JYES - SKIP
#FMT1S , MMJORD ,R3. #RESE3, (R4) ,#RESES, (RS)
(RS) ,=(SP)

003020

PAGE 1-22

#IBUFF ,R4

18%:

006300
011475
000007
000020
003020

10:29

#1,R3
#0BUFF ,RS

010725

016032
104423

30A(1052)

010731

000014

013252

MACY11

ATCERR.~(SP)

NEMT27
.~ (SP)
#5,~(SP)

SP_RO
CSPNTB

#14,SP

27%:

(SP}+,RS

;RESTORE RS, 4,

(SP)+ R4
(SP)+.R3

(SP)
+ .R1

PC.CKERLM

ENDMSG
L10005:

;GO CHECK

ERROR

COUNT

C$MSG

BGNMSG

MOV

dERRPOINT
R1,-(SP)
PC.RPTOP
#3,(R1)+
#MDRVST, (R1)+
T.STAT,(R1)+

;BUMP ERROR COUNT
;STORE R1
;REPORT OPERATION
:SET _PARAM NUMBER
;INSERT NAME ADD POINTER
. INSERT IS VALUE

PC.RPTRES
PC.RPTREM

JREPORT RESULTS
;REPORT REMAINDER

R3,(R1)

JSR

;INSERT SB VALUE

EXCEEDED

(ZRULNAO RLO1/02 DRIVE

CZRLNA . MAC
1109
1110

013314
013316

(3)

013322

1113
1116
1115
1116

013324
013326
013330
013332

1111

1{?%

1117
1118
1119
1120
1121
1122

1123
1124
1125
1126
1127
1128
1129

013322

013334
013340
013344
013350
013354
013360

C13362
013364
013366
013370
013372
013376
013402

1130
1131
1132
1133
(3)
1%;2

013406
013410
013412
013416
013416
013416

1135
1136
1137
1138
1139
1140
1141
1142

013420
013420
013424
013426
013432
013436
013440
013442

1143
1144
1145
1146
1147
(3)
(3)
1148

1149
1150
1151
1152
1153
1154
(11)
(11)
(10)
(9)

013444
013450
013454
013456
013462
013462
013462
013464
013464
013466
013472
013474
013500
013504
013504

013506
013512
013516

TEST 3

17-DEC-79 10:22
012601
004737

MACY17

30A(1052)

17-DEC-79

ERROR MESSAGES

016032

10:29

MOV
JSR

(SP)+ ,R1
PC,CKERLM

TRAP

CIMSG

PAGE

1-23

SEQ 0059

JRESTORE R1
;GO CHECK IF ERROR CUUNT EXCEEDED

ENDMSG

L10006:

104423
005277
010146
010346
004737
012721
012721
013711
012703
000241
006011
005303
001374
005721
013711
004737
004737
012603
012601
004737

BGNMSG

167712

024662
000003
01051
003056
000007

38:

003106
025450
025656
016032

ENDMSG
L10007:

104423
005277
010146
004737
012721
010321
0104621
010521

004737
004737
012601
004737

BGNMSG

167616

024662
000003

025450
025656
ENDMSG
L10010:

104423

B&NMSG

167542
024662

005046
153716
012746
013746

003037
006142
003032

JSR
MoV
MOV
MOV
MOV
cLC
ROR
DEC
BNE
TST
MOV
JSR
JSR
MOV
MoV
JSR

®ERRPOINT
R1,-(SP)
R3,-(SP)
PC.RPTOP
#3,(R1)+
AMCYLOC,(R1)+
HDWRD1, (R1)
#7 ,R3

;BUMP ERROR COUNT
;STORE R1
;STORE R3
JREPORT OPERATION
s SET PARAM NUMBER
;INSERT NAME ADD POINTER
;GET HEADER WORD
JSET SHIFT COUNT

(R1)
R3
3s
(R1)+
NEWCYL, (R1)
PC,RPTRES
PC,RPTREM
(SP)+,R3
(SP) + R1
PC,CKERLM

JALIGN CHAR FOR PRINTING
;
AS IS VALUE

TRAP

C$MSG

ERR9
INC
MOV
JSR
MOV
MOV
MOV
MOV

dERRPOINT
R1,-(SP)
PC,RPTOP
#3,(R1)+
R3,(R1)+
R4, (R1)+
RS, (R1)+

TRAP

C$MSG

JSR
JSR
MOV
JSR

016032

01014¢€
005737
001051
005277
004737

ERRS8
INC
MOV
MoV

003020
'

ERR10
MOV
TST
BNE
INC
JSR
PRINTB
CLR
BISB
MoV
MOV

PC,RPTRES
PC,RPTREM
(SP)+,R1
PC.CKERLM

;BUMP PARAM POINTER
s INSERT SB VALUE
JREPORT RESULTS
;REPORT REMAINDER
JRESTORE R3
JRESTORE R1
GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
;STORE R1
;REPORT OPERATION
:SET PARAM NUMBER
s INSERT NAME ADD POINTER
;SET 1S VALUE
;SET SB VALUE
§

JREPORT RESULTS
JREPORT REMAINDER
JRESTORE R1
;GO CRECK IF ERROR COUNT EXCEEDED

R1,-(SP)
2 STORE R1
MORECE
;TEST IF 2ND BAD LINE
3%
JYES - SKIP
dERRPOINT
;BUMP ERROR COUNT
PC,RPTOP
;REPORT OPERATION
#FMT5 ,#BASADD ,RLBAS ,#DRVNAM, <B,RLDRV+1>
=(SP)

RLDRV+1, (SP)
#DRVNAM
, - (SP)
RLBAS,=(SP)

;REPORT

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA . MA(
17-DEC=79 10:22
(8)
(7)
(6)
(3)
(4)
(4)
1155
(14)
(13)
(12)
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
1156
1157
(13)
(12)
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
1158
1159
1160
1161
(3)

013522
013526
013532
013536
013540
013542
013546
013546
013550
013554
013556
013562
013564
013570
013576
013600
013604
013606
013610
013614
013616
013616
013620
013624
013626
013632
013634
013640
013644
013650
013652
013654
013660
013664
013666
013672
013672

(3)

013672

1164
1165
1166
1167
1168
1169
1170

013674
013674
013676
013700
013702

}}2%

013674

012746
012746
012746
010600
104414
062706

011546
012746
011446
012746
010346
012746
012746
012746
012746
010600
104414
062706
000421
011546
012746
011446
012746
010346
012746
012746
012746
010600
104414
062706
005237
012601
004737
104423

000000
177777
000010

MACY11

30A(1052)
17-DEC-79
ERROR MESSAGES

006131
011172
000005

000014
010731
010725
006300
005526
011443
000010

000022
38:
010731
010725

006300
011475
000007
000020
003020

016032

1176
1177
1178

5
PAGE 1-24

ENDMOD

TRAP

C$MSG

;LOAD PROTECTION TABLE
BGNPROT
.WORD
0
.WORD
-1
.WORD
10
ENDPROT

JOFFSET OF CSR IN P-1ABLE
sNOT A MASS-BUS DRIVE
;OFFSET OF DRIVE IN P-TABLE

.EVEN
013702
013702
013702
013704

013706
013710
013712

000006
174400

000160
000240
000001

BGNMOD
BGNHW

’

MOV
#BASADD,~(SP)
MOV
H#FMTS,-(SP)
MOV
#5,-(SP)
MoV
SP,RO
TRAP
CSPNTB
ADD
#14,SP
PRINTB #FMT14 ,#MRSLT ,#MWORD ,R3,#RESE3, (R4) ,#RESES, (RS)
MOV
(R5) ,~(SP)
MOV
WRESES ,~(SP)
MOV
(R4) ,=(SP)
MOV
#RESE3,-(SP)
MoV
R3,-(SP)
MOV
#MWORD
, -~ (SP)
MOV
#MRSLT,-(SP)
MOV
#FMT14,-(SP)
MoV
#10,-(SP)
MOV
SP,RO
TRAP
CSPNTB
ADD
#22,SP
BR
43
PRINTB
#FMT15,#MWORD ,R3,#RESE3, (R4) ,#RESE4, (RS) ;REPORT DATA
MOV
(RS) ,=(SP)
MOV
HRESEL ,~(SP)
MOV
(RL).-(SQ)
MoV
#RESE3,~1SP)
MOV
R3,-(SP)
MOV
#MWJORD
, = (SP)
MOV
#FMT15,-(SP)
MOV
#7,-(SP)
MoV
SP,RO
TRAP
LSPNTB
ADD
#20,SP
INC
VORECE
;INC COMPARE ERROR COUNT
MoV
(SP)+ R1
JRESTORE R1
JSR
PC.CKERLM
;GO CHECK IF ERROR COUNT EXCEEDED

ENDMSG
L10011:

13Y4

1172
1173
1174
(3)
1175

10:29

HPT(CODE
.WORD
.WORD

L10013-L$HW/?
174400

s CSR BASE ADDRESS DEFAULT

WORD
.WORD
.WORD

iov
240
1

;JVECTOR DEFAULT
JPRIORITY DEFAULT
;TYPE OF DRIVE

SEQ 0060

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC~79 10: 22
CZRLNA
. MA(C

NA — e wd d cd d Gd D d D D e

—

d nd P el b D d N b

SYERIRKIRES
280o
O 8mguooononmwao
~
AN
NN~
2

1179

013714
013716
013720
013720
013720

013720
013720
013720
013722

000000
000001

30A(1052)
17-DEC-79
ERROR MESSAGES
LMWORD
ENDHW

10:29

LWORD

PAGE 1-25

SEQ 0061

;DRIVE NUMBER DEFAULT

JRL11T

CONTROLLER

L10013:
ENDMOD

000006
000000

013724
013726
013730
013732
013734
013736
013736
013736

012736
013736
013736
013740
013742
013744
013746
013750
013752
013754
013756
013760

MACY11

BGNMOD
B8GNSW

SPTCODE

MISWIW:

.WORD

LOLIMW:
HILIMW:

HEADW:

ERLIMW:
DCLIMW:
ENDSW
L10014:

LWORD

L100146-L$SW/2
0

.WORD
.WORD

0
255.

.WORD

.WORD
.WORD

20.
10.

ENDMOD

BGNMOD

000010
026142
030054
030572
031006
031614
032724
033742
035156

DISPAT(CH

DSPCODE

.WORD
- WORD
.WORD
.WORD

WCRD
.WORD
.WORD
ENDMOD

.WORD
.WORD

8
T1
[2
T3
T4
TS
T6

17
18

sBIT O = USE ALL

JBIT
JBIT
;BIT
;JBIT
JBIT
JBIT
;BIT

CYLINDERS

1 = USE ALL SECTORS
2 = EXECUTE DRIVE SELECT TEST
3 = EXECUTE HEAD AL IGNMENT
12 = HEAD SELECT SUPPLIED FLAG
13 = HILIMIT SPECIFIED FLAG
14 = LO LIMIT SPECIFIED FLAG
15 = DO MANUAL [NTERVENTION
‘

JERROR LIMIT
. COMPARE ERROR LIMIT

CZRLNAO RLO1/02 DRIVE TEST 3

17-DEC-79 10:22

30A(1052)
17-DEC-79
10:29
INITIALIZATION SECTION
.SBTTL

013760
013760
013760
013764
013764
013770
013772
013776
013776

005037

003474

012700

000120

010037

003476

103002
005237

003474

012700

000340

104462

103403

MOV
TRAP

100014

005037

003006

012700
104447

000034

103005
013737

000137

002012
014462

012700

000040

CLKFLG
P,CLKADR

#'P,RO
C$CLCK

MOV
RO,CLKADR
S?EOMPLE{E
1%
1%:

INC
SETPRI
MOV
TRAP

BRESET

042737

104447

013722

2%:

CLKFLG
#340
#3460 ,R0

CSMAN]

READEF

W#EF.PWR

003454

JFOR LSI-11

CSRESET

;CHECK

JMP
READEF

m‘\‘\&u'\,—n—a—a

e
—

NORSORONSNO

ek
e
d od ek e

b
b

P
W
W

d
b
d
b md

lelelelelelelelele)

003100

003242

003242
003446
003014
013722

177777
177777

040000
013724

RSTRT:

1%:

LAB:

5%.

IF MANUAL

INTERVENTION ALLOWED

;JNO, GO CHECK NEW PASS

LSUNIT,PWRFLG

;SET POWER FAIL FLAG

;G0 SERVICE POWER FAIL
;JCHECK IF START

MOV
WEF .START
RO
TRAP
CSREFG
BNCOMPLETE
RESTART ;NO - SKIP
8cc
RESTART
PASS COUNT,

002012
003444
003244
000100

CPU'S

;POWER FAILURE

PWCON
#EF.START

ON START INITIALIZE

013737
005037
012700
012701
005020
005301
001375
012737
012737
012737
032737
001002
005037
000432

INTERRUPTS

BCOMPLETE
2%
;JYES - SKIP
BCS
2%
BIC
MMITEST !DRSELT!HDALIGN,MISWIW ;CLEAR ALL MANUAL
: INTERVENTION FLAGS
CLR
SSINDX
cCLEAR SUBROUTINE STACK INDEX

MOV
4%:

NO P-CLOCK

;INDICATE PRESENCE OF A P-CLOCK
JSET PRIORITY TO 7 TO INHIBIT ALL

CS$SPRI

TRAP
MANUAL
TRAP

;CLEAR CLOCK FLAG
JP=-CLOCK?

;JBRANCH IF

MOV
#EF .PWR,RO
TRAP
CSREFG
SQEOMPLEIE
4%

103034

014106

SEQ 0062

INITIALIZATION SECTION

CLR
CLOCK

104450

014036
014040
014040
014042
014050
014054

5
PAGE 1-26

;CHECK FOR PRESENCE OF A P~CLOCK

104433

014026
014032
014032

BGNMOD
INITCODE
BGNINIT

104441

EaR

—
= =D ed e e
WRONOA) PO NNNIN)
W
NN
cd
e OO~
N

up—
s

N~ APINI AN A~ ANININANININAN) n

—

CZRUNA .MAC

MACY11

TO START AT FIRST DRIVE,

AND ERROR COUNT.

CLEAR INTERNAL

MOV

LSUNIT,DRVCNT

;SET UP UNIT COUNT

MOV
MOV
8%?

W#ERRCNT ,RO
#64. R1
é?O)*

JGET A COUNT
;CLEAR AN ERROR COUNTER STORAGE AREA

BNE
MoV
MOV
MOV

1%
;LOOP TILL ALL CLEARED
N#ERRCNT-2 ,ERRPOINT ;INIT ERROR POINTER
#-1,PSETNM
JSET PARAM SELECT TO INITIAL VALUE
#-1,HADONE
sPRESET HEAD ALIGN DONE FLAG

BNE

(LR

BIT

CLR

PASNUM

#LOCYL

LOL IMw

SETDON

MISWIW

;CLEAR PASS NUMBER

;TEST

IF LO LIMIT SET

JELSE

CLEAR LO LIMIT

JYES - SKIP

CZRLNAO RLO1/02 DRIVE_TEST 3
CZRLNA MA(
17-DEC-79 10:22
1254
1255
(3)

(3)

1256

(2)

1257
1258
(3)
(3>
1259

(2)

1260
1261

(3)
(3)

1262

014154
014154
014154
014160
014162
014162
014164
014164
014164
014170
014172
014172

014174

014174
014200
014202
014202
014204
014204
014210
014212
014216
014224
014232
014240
0146244
014250
014256
014262
014266
014266
014270
014272
014272
014274
014300

30A(1052)
17-DEC-79
10:29
INITIALIZATION SECTION

012700
104447

READEF
#EF .RESTART
MOV
WEF .RESTART
RO
TRAP
CSREFG
BCOMPLETE
RSTRT
BCS
RSTRT
CONTINUE:

000037

103743

012700
104447

104447

012702

000035

:
NXTPAS

003100

003444
003242
002012
177777
003446
003100
000002
003446
003032

003242
003100
003446
003242

104442
010001

103406

005737
001741
005337
000736
012122
012122
005721
012137
012122
022737

s CHECK [F RESTART
:NO - SKIP
CONTINUE

B(CS

PWCON

READEF

#EF .NEW

;CHECK

TST

DRVCNT

sTEST

INC

PASNUM

JELSE BUMP PASS COUNT

ON CONTINUE PICK U UNIT LAST UNDER TEST

103403

005737
001013
005237
012737
013737
012737
005237
005337
062737
013700

SEQ 0063

READEF
JTEST IF
#EF.CONTYINUE
MOV
#EF . CONTINUE
,RO
TRAP
CSREFG
BCOMPLETE
PWCON

000036

103533

012700

PAGE 1-27

RESTART:

PASNEW:

MOV
#EF .NEV. ,RO
TRAP
CSREFC
BCOMPLETE
PASNEW
PASNEW
8CS
BNE

MoV
MOV
MOV
SETDON: INC
DEC
ADD
MOV
MOV
GPHARD
TRAP

SETDON

003454

003454
7%:

002302
002302

012737
012737
012737
012737
012737
012737
012737
000425

000776
000777
001000
177600
177600
177600
177000

002312
002306
002314
002316
002320
002322
002310

012737

000377

002306

65%:

ALL UNITS CHECKED

C$GPHRD

PWRFLG
NXTPAS
PWRFLG
NXTPAS

TST
MOV
MOV
P

(R1)+
(R1)+,T.DRIVE

(R1)+,(R2)+
#1,T.DRIVE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
B8R

#510. ,NXTHL
#511. HLMTW
#512. S GBND
#177600
. CAMSK
#177600.D IRMSK
#177600.HDCYL
#177000. CLRBYT
PWCON

MOV

#255. HLMTW

8EQ

STARTING NEW PASS

;:NO ~ SKIP

TST
BEQ
DEC
BR

MOV
MoV

#ERRCNT=2,ERRPOINT ;INIT ERROR POINTER
LSUNIT ,DRVCNT
;GET ALL DRIVES
#-1,PSETNM
;SET PARAM SELECT TO INITIAL
PSETNM
JNEXT SET OF PARAMETERS
DRVCNT
;DOWN COUNT DRIVE TOTAL
#2 ,ERRPOINT
;UPDATE THE ERROR POINTER
PSETNM, RO
sSET UP TO GET PARAMETERS
#RLBAS ,R2
RO,R1

MOV
RO,R1
BCOMPLETE
BCS
7%

000001

001426

014410

MACY11

;NO

(R1)+,(R2)+
(R1)+,(R2)+

65%

;SKIP IF GOOD PARAM

JRECENT POWER FAILURE
sACCOUNT FOR DRIVE

;STORE PARAMETERS (SR
:
VECTOR
;BUMP PAST PRIORITY

CZRLNAO RLO1/02 DRIVE TEST 3
CZRUNA .MAC
17-DEC-79 10:2¢

2583888
gegbisesy

1298

014416

014424
014432

014440

016446
014454
014462

014470
014472
014500

012737

MOV

#256. ,GBND

077600

002320
002322
002312

MOV
MOV
MOV

#77600.D IRMSK
#77600, HDCYL
#2564. ,NXTHL

000376
177400

032737

020000

013722

002306

013726

000340
015752
003034
000003

012700
104441
013702

000000

1323
1324

014540
014544

005737
001472

1326

014546

1328
1329
1330
1331

014556
014562
014566
014574

1333
1334
1335
1336
(8)
(7)
(6)
(3)
(4)
(4)

014576
014610
014612
014614
014616
014620
014626
014630
014632
014634

012746
012746
012746
010600
104417
062706

000006

(11)
(11)
(10)
(9
(8)

014640
014642
014646
014652
014656

005046
153716
012746
013746
012746

003037
006142
003032
006131

o N

N N

(3)
(2)
1309
(3)
(3)
1310

012746
012746
013746
012746
104437
062706

(4)
1338
(7)

014552

014676
014702
014702

002316

012737
012737

001003
013737

013705

052705

010562
012701
032762
001056

L]
PAGE 1-28

002314

077600
077600

012737

30A(1052)
17-DEC-79
10:29
INITIALIZATION SECTION

000400

012737
012737

014500
014504
014510
014514
014520
014522
014526
014526
014532
014534

1327

MACY11

MOV

002310

PWCON:
1%:

MOV

#340,-(SP)

MOV

#3,~(SP)

TRAP
MOV

012746

011156

#INTHLR,~(SP)
RLVEC,=(SP)

CSSVEC

#10,SP
40
#0,R0

;SET PRIORITY
;SET RL11

TST

PWRFLG

sNEEDED???

MOV
BIS

MOV
MOV
8IT
8NE

RLDRV,R5
#CRDYMSK ,RS

sDRIVE SELECT
:SET CRDY

R5,RLCS(R2)
sSELECT DRIVE
#120. ,R1
<INITIALIZE WAIT COUNT
#DRDYMSK ,RLCS (R2)
:DRIVE UP YET?
8s
sYES START TEST

000000

9%:

WAITMS
DEC
BNE
PRINTF
MOV
MOV

#10.
R1
9%
#FMT24
, ANOPWR
#NOPWR
, - (SP)
H#FMT24 ,=-(SP)

JWAIT A SECOND
;SIXTY GONE BY
;NO

BASE ADDRESS POINTER

:NO, SKIP

MOV

#2,-(SP)

TRAP
ADD

CSPNTF
#6,SP
lig;;.#BASADD.RLBAS,#DRVNAM.<B.RLDRV+1>

MOY

?RANTF
L

000014

:SET UP VECTUOR

C$SPRI
RLBAS ,R2

8EQ

003036

062706

RLVEC,#INTHLR
#4340

;CHECK IF POWER FAILURE WAIT IS NEEDED

000200

006166
011776
000002

MHICYL MISWIW
18
HLMTW,
HIL 1M

ADD
SETPRI
MOV

003454

005301
001365

BIT
BNE
MOV

TRAP

003032

000000
000170
000001

#177400,CLRBYT

MOV
MOV

000010

#77600, CAMSK

MOV

SETVEC

SEQ 0064

SP,R0

BIS8

RLDRV+1, (SP)

MOV
MoV
MOV

#FMTS,~(SP)
#5,-(SP)
SP,RO

MoV
MOV
MOV

TRAP

ADD
PRINTF

MOV

#DRVNAM,
- (SP)
RLBAS,-(SP)
#BASADD
, - (SP)

CSPNTF

#14,SP
#FMT3

NFMT3,-(SP)

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC~79 10:22
CZRLNA .MAC
(6)

(3)

(4)
(4)

1339
(3
(3)
1340
(3)
1341
1342
1343
(3)
(3)
1344
1345

014706
014712
014714
014716
014722
014722
014726
014730
014730
014732
014732
014732
014732
014734

012746
010600

104417
062706

013700
104451
104444

104411

MACY11

30A(1052)
17-DEC~79
10:29
INITIALIZATION SECTION

000001
000004
003446

8%:
ENDINIT
L10015:
ENDMOD

PAGE 1-29

#1,-(SP)

MOV
MoV
TRAP
ADD
DODU
MOV
TRAP
DOCLN
TRAP

6 ,SP
PSETNM
PSETNM,RO

TRAP

CSINIT

SP,RO
CSPNTF

C$DODU

CS$DCLN

;DROP DRIVE

SEQ 0065

CZRLNAO RLO1/02 DRIVE TEST 3
CZRUNA .MAC
17-DEC-79 10:22

MACY11 30A(1052)
17-DEC-79 10:29
INITIALIZATION SECTION
.SBTTL

6
PAGE 1-30

AUTO DROP SECTION

:THE AUTO DROP SECTION IS INVOKED BY THE DIAGNOSTIC SUPERVISOR WHENEVER THE

;"'ADR""

FLAG IS SET BY THE OPERATOR. IT IS EXECUTED AFTER THE INITIALIZATION

;CODE AND CHECKS THE DRIVE TC DETERMINE IF IT IS READY TO RECEIVE A COMMAND.
:1F THE DRIVE IS NOT READY IV [S DROPPED FROM THE TEST CYCLE AND THE NEXT

;DRIVE IS ACCESSED. IF THE DRIVE IS READY THE HARDWARE TESTS ARE PERFORMED
;AFTER WHICH THE NEXT DRIVE IS ACCESSED.

1358

014734

005037

003452

(7)
(6)
(5)
(4)
3)
(2)

014740
014744
0164750
014756
014760
0164762

012746
012746
013746
012746
104437
062706

000340
015744
003234
000003

014766

013702

362
363
ggg

014772
014776
015002

005762
005737
001447

(8)
(7)
(6)
(3)
(4)
(4)

015004
015070
015014
015020
015022
015024

012746
012746
012746
010600
104417
062706

(11)
(11)
(10)
(9)
(B)
(7)
(6)

015030
015032
015036
015042
015046
015052
015056

005046
153716
012746
013746
012746
012746
012746

(64)

015066

062706

(3)
(4)

(7)
(6)
(3)
(4)
(4)
1369
1370
(3)
(3)
1371
1372
1373

015062
015064

010600
104417

BGNAUTO

CLR

SETVEC

MOV

#340,-(SP)

MOV

#3,-(SP)

MOV
TST

RLBAS ,R2
RLCS(R2)

MOV
MOV

TRAP
ADD

000010

003032
000000
003452

TRPFLG

TST

CSSVEC
#10,SP

TRPFLG

MOV
MOV
MOV

NFMT24,-(SP)
#2,-~(SP)
SP,RO

ADD

#6,SP

TRAP

EE%NTF

B8l1S8

000014

CSPNTF
#14,SP

#5,-(SP)
SP,RO

PRINTF

NFMT3

MOV
MOV

#1,-(SP)
SP,RO

015072
015076
015102
015106
015106

012746
012746
010600
104417
062706

011156
000001

MOV

000004

ADD

#4 ,SP

015112
015112
015116
015120
015122
015126

013700
104451
000460
013705
052705

003446

MOV

DODU

PSETNM

003036
000200

BR
MOV
BIS

1$:

sBRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR
ELSE, PRINT MSG. "'DRIVE DROPPED ~ NO CONTROLLER'

RLDRV+1, (SP)

TRAP
ADD

TRAP

:DID TRAP OCCUR?

#;g;;.JBASADD.RLBAS.#DRVNAM,<B.RLDRV+1>
#DRVNAM,
- (SP)
RLBAS ,~(SP)
#BASADD
, - (SP)
#FMTS ,~(SP)

TRAP

;/NON=EXISTENT CONTROLLER

;GET RL11 BASE ADDRESS
;ACCESS DRIVE CONTROLLER ADDRESS

CSPNTF

MOV
MOV
MOV
MOV

MOV
MOV

;SET UP TRAP VECTOR TO DETECT

N#TRPHAN
- (SP)
ERRVEC,-(SP)

BEQ
13
PRINTF #FMT24 ,#NOCTLR
MOV
MNOCTLR,~(SP)

007635
011776
000002

CLEAR TRAP FLAG

ERRVEC,#TRPHAN,
#340

;PRINT DRIVE INFORMATION

NFMT3,-(SP)
CSPNTF

PSETNM,
RO
C$boDU

2%
RLDRV ,R5
#CRDYMSK ,R5

;DO DROP UNIT ON DRIVE

;BRANCH TO EXIT
;CLSE, GET DRIVE NUMBER
:5cT CONTROLLER READY

SEQ 0066

CZRLNAO RL01/02 DRIVE TE 3
17-DEC~79 0:22
CZRLNA

010562
032762
001046

000000
000001

012746
012746
012746
010600

007673
011776
000002

MACY11

30A(1052)

17-DEC=79

AUTO DROP SECTION

NFMT
, ANOTRDY
24
#NOTRDY ,-(SP)
#FMT24 ,=(SP)
#2,~(SP)

SEQ 0067

¢LOAD IN THE DRIVE NUMBER
:1S DRIVE READY?
;BRANCH TO PERFORM TESTS IF DRIVE IS READY
:PRINT MSG. "DRIVE DROPPED - DID NOT RESPOND

SP,RO
CSPNTF
#6,SP

:/WITH 'READY''’
WFMT5 ,#BASADD ,RLBAS ,#DRVNAM, <B,RLDRV+1>
-(SP)
RLDRV+1, (SP)
#DRVNAM,
- (SP)

RLBAS,-(SP)
#BASADD ,~(SP)
W#FMTS5,-(SP)
#5,-(SP)
SP,RO

CSPNTF

000014

#14,SP

011156
000001

000004
003446
003234

2%:
ENDAUTO

015270

PAGE 1-31

ggnomsx,RLCS(R2S

062706

012746

RS ,RLCS(R2)

000000

104417

005046
153716
012746
013746
012746
012746
012746
010600
104417
062706

10:29

L10016:

PRINTF
MOV
MOV
MOV
TRAP
ADD
DODU
MOV
TRAP

W#FMT3
#FMTZ,
- (SP)
#1,-(SP)
SP,RO
CSPNTF
#6,SP

MOV
TRAP

ERRVEC ,RO
CSCVEC

PSETNM

CLRVEC

PSETNM,RO
C$SDODU
ERRVEC

TRAP

csauto

;PRINT DRIVE

iNFORMAT
JON

;DO DROP UNIT ON DRIVE
JRELEASE ERROR VECTOR

CZRLNAO RLO1/02 _DRIVE TEST 3
17-DEC-79 10:22
CZRULNA.MAC
1387
1388
1389
1390
1391
1392
1393
(7)
(6)

(5)

015
015
015
015312
015814

015}50
015320
015324
015326

015416
015416
015416
015420
015420
015422
015422
015422

015424

17-DEC-79

AUTO DROP SECTIOM

10:29

CLEANUP CODE SECTION

BGNMOD
BGNCLN

CLNCODE

SETVEC
HCV
MOV

MOV

#3,~(SP)

000010

ADD

#10,SP

012700
104441

000007

TRAP

000200

000000

003036
000001

000000
000000

013700
104436
005737
001402
005337

003034

003454

013700

003234

003454

2%:

38:
5%:

BEQ

NTRPHAN, = (SP)
ERRVEC,=(SP)
CSSVEC

RLDRV,RLCS(R2)

_:SET DRIVE NUMBER

TRAP
TST

CSCVEC
PWRFLG

JPWR FAIL

BIT
BNE
WAITMS
CLRVEC
MOV

DEC
CLRVEC

MOV

. TEST IF DRIVE BUSY
#DRDYMSK ,RLCS (R2)
5%
:NO - SKIP
&3
JWAIT 300 MS
RLVEC
JRELEASE VEC
RLVEC,RO

PWRFLG
ERRVEC
ERRVEC RO
C$CVEC
CSRESET

ENDCLN

104412

000240
104453

L10017:
BGNOU

ENDDU

L10020:
ENDMOD

;NO LOOP UNTIL READY

BIS

TRAP
BRESET
TRAP

104433

SEQ 0068

SETPRI #7
;SET PRIORITY TO 7
MOV
#7 ,RO
TRAP
C$SPRI
BIT
#CRDYMSK ,RLCS (R2)
;TEST IF CONTROLLER READY

BEQ
7%:

6
PAGE 1-32

ERRVEC ,#TRPHAN,#340
#340,-(SP)

000340
015744
003234
000003

03276¢
001407
053762
032762
001005

.SBTTL

012746
012746
013746
012746
104437
062706

104436

015614

MACY11 30A(1052)

TRAP

CSCLEAN

NOP

TRAP

($DU

;NO

;TAKE

SET

CARE OF LSI-11

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC~79 10:22
CZRULNA. MAC
1418
1419
14620
1421
1422
1423
1624
1425
1426
1427
(3)
1428
(2)
1429
(2)
(2>
(2)
(2)
(2)
(2)
(2)
(2)
1430
1431
1432
1433

MACY11

015424
015424
015432
015436
015444
015450
015450
015452
015452
015454

015454
015460
015462
015466
015470

015474

015476

015502
015504
015510
015512
015514
015522

012737

000160
003466
003456
003456

002116

012727
000000
013727
000000

GLBSUB

TIME:

MOV
INC
MOV
NEG
READBUS
TRAP

#160,L$0LY
TIM.US
XDELAY ,MiNINC
XDELAY

DELAY

”.

DE(C

-&(PC)

DEC
BNE

=22(PC)
=20

177772
177756

003456

000001

2%:
3s:

002116
177772

003456

006337
005437

003462

003122

48:

000160
003466
003460
003460
003460
003460

002116

XTIME:

003472

104407

103023
012737

012727
000000
013727

MOV
.WORD
MOV
.WORD

INC
8LT

177756

015570
015576
015602
015610
015614
015620
015624
015624
015626
015626
015630
015636
015636
015642
015644

CS$RDBU
BCOMPLETE 2%
8(s
23

BNE

002116

B8R

MOV
DELAY
Mov
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
INC
BLT

M, (PC)+
0
LSDLY, (PC)+
0

000020
002116

002116

2%:

SEQ 0069

;GET OUTER DELAY LOOP
JUS-WAIT ROUTINE INDICATOR
. SAVE ORIGINAL US-WAIT
;GE/ NEGATIVE OF FACTOR
;@ - BUS?
;BRANCH = IF YES
JWAIT

.~4

XDELAY
13

#65,L8DLY
#1,
a1, ,(PC)+
0
LSDLY, (PC)+
0
-6(PC)
.~4
=22 (P(C)
.~20
XDELAY
3s

;WAIT FACTOR EXPIRED?
;BRANCH = IF NO
JGET TIME
;GET OUTER DELAY LOOP
;JWAIT WITH RESPECT

TO FONZ BUS

JWAIT FACTOR EXPIRED?
;BRANCH =

ADD
RTS

MININC,TEMPO
PC

;GET TIME EXPIRED
JRETURN

MOV
CLR
MoV
ASL
ASL
NEG
READBUS
TRAP

#160,L8DLY
TIM.US
YDELAY ,MAJINC
YDELAY
YDELAY
YDELAY

;GET OUTER DELAY LOOP
;MS. WAIT INDICATOR
;SAVE ORIGINAL WAIT MS
;MULTIPLY BY FACTOR 4

CSRDBU
BNCOMPLETE

000150

6
PAGE 1-33

BGNMOD

002116

000065

GLOBAL SUBROUTINES

1%:

000001

10:29

.SBTTL

003462

103420

012727
000000
013727
000000
005367
001375
005367
001367
005237
002761
000422
012737

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

8CC
MOV
DELAY
MOV
MOV

1%
13
#150,L80LY
#20
#x20,(PC)+
0
LSDLY, (PC)+

*GET NEGATIVE OF RESULT
‘Q - BUS?

sBRANCH = IF NO

;GET OUTER DELAY LOOP

JWAIT WITH RESPECT

TO FONZ BUS

CZRLNAO RLO1/02_DRIVE TEST 3
CZRLNA.MAC
17-DEC~79 10:22

(2)
(2)
(2)
(2)
(2)
1651
1452
1453
1454
(2)
2)
(2)
(2)
(2)
(2)
(2)
(2)
1455
1456
1457
1458

1459
1460
1461
1462
1463
1464
1465
1466

1467

1468
(3)

(2)

1469
1470
1471
1472

1473
1474
1475

1476
1477
1478
1479
1480
1481
1482
1483
1484

(3)
(2)
1485

015650

015652
015656
015660
015664
015666
015672
015674
015676

015676

0715702
015704
015710
015712
015716
015720
015724
015726
015732
015734
015742

000000

005367
001375
005367
001367
005237
002761
000417

012727
000000
013727
000000
005367
001375
005367
001367
005237
002761
063737
000207

MACY1T

30A(1052)
17-DEC=79
GLOBAL SUBROUTINES
.WORD
DEC

177772

6
PAGE

1-34

SEQ 0070

0
=6(PC)
4

003460

;WAIT

1%:

000010

DELAY

FACTOR EXPIRED

JBRANCH JGET TIME

650LY.(PC)+

177772

-6£PC)

177756

222(PC)

003460

YDELAY

JWAIT

sRETURN

003472

003464

3%:

ADD

JWAIT

8#10,(PC)*

002116

1$
MAJINC, TEMP

FACTOR EXPIRED?

JBRANCH = [F NC

;GET EXPIRED TIME

BGNSRV
; TRAP HANDLER

01575V
015750
015750

222(PC)

177756

015744

10:29

005237

003452

TRPHAN:

INC

INDICATES OCCURRENCE

A TRAP,

TRPFLG

ENDSRV

L10021:

000002

015752

RT1

BGNSRV

s INTERRUPT HANDLER. ABORTS WAIT TIMER AND STORES RL11 REGISTERS.
015752

INTHLR:

015752
015756
015762
015766
015772
016000
016004

016030
016030
016030

003050

003032

MOV
(R2)+,T.CS
MOV
(R2)+,T.BA
MOV
{(R2)+,T.DA
MOV
(R2),T.MP
MOV
#-1,DONE
MOV
RLBAS ,R?
ABORTWAIT

003012

ENDSRYV

000002

L10022:

RT]

;STORE RL REGISTERS

;SET DONE FLAG

JRESTORE R2

CZRLNAO RLO1/02 DRiVE TEST 3
CZRLNA MA(C
17-DEC-79 10:22
1487
1488
1489
1490
14N
1492

1493
16494
(3)
1495
(2)

016032

016040
016042

(3)

010657
013732
012003
000003

062706

000010

013732

CKERLM:

10:29

6
PAGE 1-35

SEQ 0071

000014

012746
012746
010600
104417
062706

011156
000001
000004

013700

003446

016242

1%:

000006

011646
005066
032762

000002
000200

004737

016172

001420

dERRPOINT ,ERL IMW

cTEST

:NO - SKIP

ERROR LIMIT EXCEEDED

MOV
MOV
MOV

HFEMT2S5,-(SP)
#3,-(SP)

TRAP
ADD
?fénrr

SP,RO
CSPNTF
#10,SP
#?Q;?.JBASADD,RLBAS,#DRVNAM.<B,RLDRV*1>

BISB

RLDRV+1, (SP)

MOV
MOV
MOV

#DRVNAM,
- (SP)
RLBAS,~(SP)
#BASADD ,-(SP)

MOV
MOV
TRAP
ADD
PRINTF
MNY
MOV
MOV
TRAP
ADD
DODU
MOV
TRAP
DOCLN
TRAP
RTS

#S,-(SP)
SP,RO
CSPNTF
#14,SP
#FMT3
HFMT3
- (SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP
PSETNM
PSETNM,RO
C$DODU

MOV

104444
000207

016237
016237
016237
016237
000207

cMP

BLT

INLOOP
;CHECK IF IN ERROR LOOP
TRAP
CSINLP
TCOMPLETE
1%
JYES - SKIP
BCS
18
PRINTF
#FMT?25
,ERL IMJ,AMEXERS
MOV
#MEXERS ,~-(SP)
MOV
ERLIMW,-(SP)

003037
006142
003032
006131
011172
000005

062706

104451

38<
~

=
b
=
e

VB WN—=O

d ek

012746
013746
012746
012746
010600

005046
153716
012746
013746
012746
012746
012746
010600
104417

(4)
(4)
1499
(3)
(3)
1500

165204

104420

104417

(4)
(4)
1498
(7)
(6)

027737
002453

103451

(3)

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

ERROR LIMIT CHECKING ROUTINE
DROPS DRIVE IF ERROR LIMIT EXCEEDED

16496
(9)
(8)
(7
(6)
(3)
(4)
(4)
1497
an
an
10
(9
(8)
(7)
6)

—t e

MACY11

003050
003052
003054
003056

CSDCLN
PC

READ AND STORE ALL RL11

READRL: MOV
MoV
MOV
MOV
RTS

WAITIN:
000000

HFEMTS ,~(SP)

RLCSR(R2),T.CS
RLBA(R2) ,T.BA
RLDA(R2) ,T.DA
RLMP(R2) ,T.MP

:DROP DRIVE
;GO TO CLEAN uP

REGISTERS

;GET
;GET
;GET
;GET

JRETURN

WAIT FOR CONTROLLER TIMEOUT

MOV
CLR

BIT

BEQ
JSR

CS REG
BUS ADDRESS REG
DISK ADDRESS
MULTI-PURPOSE REG

TO FORCE

INTERRUPT ROUTINE

(SP) ,~(SP)
2(SP)

;MAKE ROOM FOR ERROR POINTFR
;CLEAR FOR POINTER

48
PC,READRL

;NO = SKIP TO WAIT
JREAD ALL RL REGS

#CRDYMSK ,RLCSR(RZ2)

;TEST IF CONTROLLER READY

d cd e

b e

d wed

b ed wecd

NONINIANONININININ)
— —
WN—=O Vo~ o

BEIXHRU
DS NV
=O

ARV AYAAVA LV, AV, AV, LV, 1V, ] wvAVA NN
wviviuiuv VS SN >~
VIS
—(@XVeTe -ENTe 3V, | &~ W

d e

d D o

D e

)

b—

CZRLNAO RLO1/02 DRiVE TEST 3
17-DEC~79 10:22
CZRLNA
. MAC

016246
016252
016254
016262
016270
016272
016300
016302
016314
016322
016324
016330

005737
001435
012766
032737
001403
012766
000207
032762

016336
016340
016344
016346
016352
016360

016362
016366
016372
016376

005037

016400
016404
016412

013746
012737
000412
013746
012737
000404
013746
005037
010346
013703
005723

016414

016420
016426
016430
016434
016440
016442
016446
016450
016456
016464
016470
016472
016474
016502
016510
016512

016520
016522
016534
016540
016544
016546
016554
016556
016564
016566

105037

005037
000207

012701
004737
017230
032737
001054
032737
001010
032737

MACY11

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003012

006306
002000

000002
003050

006326

000002

000200

000000

016172
006377

000002

1%:

4%:

MOV
BIT

#MTOSLOW,2(SP)
#OPIERR,T.CS

<ELSE SET TOO SLOW ERROR POINTER
STEST IF OP1 SET

MOV

#MDRRES , 2 (SP)

RTS

WAITMS

BIT
BNE

JSR

016172
006344

5%:

JSR

BNE

MOV
BR

TSTINT:

003132
000013

003132

GSTATR: MOV

003132
000003

003132

000004
000004
003006

RTS

MOV
BR

MOV
CLR
GSTATG: MOV

MOV

002410
002410

003022
003132

040000

000000

000062
016430
003050

000020

003056

144000

003056

INTERRUPT OCCURRED

-No - SKIP

*RETURN

SET MESSAGE FOR NO DRIVE RESPONSE

WAIT 300 MS FOR TIMEOUT

#CRDYMSK,RLCS (R2}

;TEST IF READY NOW SET

;YES = SKIP

#MCONHNG,2(SP)
2$
DONE

:SET MESSAGE FOR CONTROLLER HUNG
SSKIP
SELSE CHECK IF INTERRUPT OCCURRED

PC,READRL

*READ RL REGS

PC,READRL

AMNOINT,2(SP)
2%

*READ RL REGS

*YES - SKIP TO SET TOO SLOW
:ELSE SET NO INTERRUPT FLAG
*GO TO RETURN

INITIALIZE ROUTINE
;CLEAR OPERATION FLAGS
SRESET INHIBIT ERROR COUNTING
*RESET MORE COMPARE ERRORS

RGETSTAT,TEMP4
GSTATG

TEMP4 ,~(SP)
TEMP4
R3,-(SP)

SSINDX, "3

:SET FOR NO RESET

;STORE TEMP4
:SET FOR SAVE L.
:STORE R3

AND T.

REGS

$GET SUBROUTINE INDEX

1S”
MOV
SUB

(R3) +
‘BUMP IT FOR NEXT ENTRY
4(SP),SUBSTK(R3) ; INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION

MOV

RO,~(SP)

MOV

(9%:
c0%:

000001

:NO = GO SET NO INTERRUPT ERR FLAG

GET STATUS AND GET STATUS WITH RESET ROUTINE
TEMPS ,~(SP)
:STORE TEMP4
MOV
#GETSTAT 'DRSET, TEMP4
SSET FOR RESET
BR
GSTATG
GSTATC: MOV
TEMP4 , - (SP)
;STORE TEMP4

GSTAT:

000002
000010

OPERATION AND TEST
CLR
OPFLAG
CLRB
NOERCT
CLR
MORE CE

003010
003451
003020

003006

SEQ 0072

;TEST

003012

073132
0u3132

%
PAGE 1-36

DONE

MOV
BR
TST

000002

BEQ
BEQ

2%:

10:29

R3.SSINDX

SSTORE IT BACK

R1.=-(SP)

*STORE R1

*STORE RO

MOV
BIT
BEQ
BIT
BEQ
WAITMS
MOV

#2.ERRSWI
:SET FOR NO ERROR RETURN
#DRSET, TEMP
STEST IF DRIVE RESET
11$
‘NO
- SKIP
#DRVERR ,RLCS(R2) ;TEST IF DRIVE ERROR SET
498
:NO
= SKIP
#3
SWAIT FOR 300 MS FOR DRIVE
#50. ,R1
SINITIALIZE WAIT COUNT
PC.GSTAT

SCET DRIVE

BIT

#DRDYMSK,T.CS

:;TEST

§§R

BNE
8T
BNE
BIT

TO SETTLE

STATUS

IF DRIVE READ,

5¢
*YES - GO DO CLEAR
#HOSTAT,T.MP
ELSE TEST IF HEADS QUT
51%
YES - BYPASS RELOAD WAIT FLAG SETTING
lSPDSTAT'HCESTAT'UDESTAT T.MP ;TEST IF DRIVE HAS ERROR

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10-22
CZRLNA
. MAC
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583

1588
1589
1590
1591
1592
1593

016574
016576

38
b —
b
b

WN=O

e
b
b
ok
d

VNN

i
i
G
QU S
G
G

001444

052737
000440
032737
001034
005301
001242
012703

17-DEC=79
GLOBAL SUBROUTINES

040000

003010

040000

003050

51%:

016646
016650

016652

016656
016660
016664
016670
016672
016674
016676
016704
016706
016714
016714
016720
016726
016734
016742

016756
016770
016774
016776
017004
017012
017020
017022
017030
017032
017036
017044
017046
017060
017062
017064
017070
017072
017076
017076
017100
017102

DEC
BNE

010541

10:29

PAGE 1-37

SEQ 0073

ERRHRD
TRAP

11%:

000004
003050

8%:

012737
000403
013737

000003

003044

0C3132

003044

005037
013737
042737
052737
013762
013762

003012
003036
002000
000104
003044
003040

003040
003040
003040
000004
000000

5%:
6%:

003012
003056
177770
000010

003064
003064
003044

040000

003010

001130
000001

104456

023423
000000

TMS

000000

.WORD
.WORD
. WORD
B8R
TST
ONE

MOV
MOV
MoV

;UNLOAD

;NO - SKIP

5%
#DRVERR,T.(CS
5%

:SKIP 1O CLEAR
;TEST IF DRIVE ERROR NOW
cYES = SKIP TO CLEAR

50%

.IF NOT DONE, LOOP

”
R

#MUNDEF ,R3

10001., ,ERR1
C$ERHRD

JWAIT FOR DRIVE TO GET ERROR,
;DEC WAIT COUNTER

14%
TEMP4
5%
#4 R
#L.MP+2 ,R3

JEXIT
cTEST IF SAVE REGISTERS
;NO SKIP
;SET SAVE COUNT
;SET ADDRESS OF FIRST SAVE

#GETSTAT,L.DA

6%
TEMP4,L .DA

cSET

;SKIP
s INSERT PRESET FOR STATUS

CLR
MOV
8iC
8IS
MOV
MOV
WAl TUS
TST
BEQ
MOV
BIC

DONE
RLDRV,L.CS

;CLEAR INTERRUPT FLAG
<SET UP TO GET STATUS

MOV

BIT

BNE
WA TMS
DEC

R1
8%

#8IT10,L.CS

#GTSTAT,L.CS

L.DA,RLDA(R2)
L.CS,RLCSR(R2)

#DRSET ,L.DA

3$
:SEIDUT,OPFLAG

#600. ,R1

13$

010¢06

MoV

#MRLFAL ,R3

TRAP

CSERHRD
80003

.WORD
.WORD

FOR GET

;CLEAR FOR DRIVE 4 - 7 SPEC'D
;LOAD RL REGS
;LOAD CS REG

sTEST

PC.GSTAT

RESET WAS SPECIFIED

:NO = SKIP TO EXIT
sTEST IF RELOAD WAIT FLAG SET

:NO - SKIP

¢SET WAIT COUNT FOR 60 SECONDS

;LOOP IF NOT O

;GET DRIVE STATUS

;ERROR RETURN

STATUS

#DRDYMSK ,RLCS(R2) ;TEST IF DRIVc NOW READY
128
;YES - SKIP
1
:CALL WAIT
R1
sDEC COUNT

BNE
JSR

ERRHRD

;DEC COUNT
;LOOP UNTIL ALL SAVED

n
JWAIT 100 US FOR INTERRUPT
DONE
;CHECK IF INTERRUPT OCCURRED
1%
;NO - SKIP
T.MP, T.STAT
:STORE MP REGISTER
#*C<STAMSK>,T.STAT ,CLEAR ALL BUT STATE

016430

OR HEADS 0OUT

10001

0
ERR1

MOV

BIT

RDY,

JMESSAGE FOR UNDEFINED STATE

JPUT REG ON STACK

BK
MOV

ELSE SET WAIT FLAG

-(R3) ,-(SP)

DEC
BNE

BEQ
BIT
BEQ

13%:

CAUSED HEADS

HRELDWT ,OPFLAG

MOV

003132

012703

BEQ
BlS
BR
BIT
BNE
WA

104456

016750

(o 30 Yo Yo Yo Yo Yo Yo Yo Yo

30A(1052)

; THAT

%)
(5)

(5)
(5)
1584
1585
1586
1587

MACY11

sSET RESULT MESSAGE POINTER

CZRULNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRUNA.MAC
017104
017106
017110
017122
017126
017130
017136
017140
017146
017150
017154
017156
017164

017166
017166
017170
017172
017174
017176
017200
017204
017206
017212
017214
017214
017216
017220
017222

017224
017230
017234
017236
017242
017246
017250
017252
017254
017262

MACY11

012070
000446

004737
017230

0004
032737
001405

30A(1052)

17~DEC-79
GLOBAL SUBROUTINES

12%:

016430
100000

003050

001000

003056

006433
040000

003050

7%:

104456

004737
012603

9%:

016224

1%:

2%:

104456
023422

000000
012070

003022
003132

14%:
3%:

003040
000004

000002

017264
017266
017270
017274
017300

20%:

003006

22%:

003132
003022

99%:

SEQ 0074

.GO TO EXIT
JWAIT FOR 1MS

BIT

HANYERR,T.(CS

sTEST

JSR

PC,GSTAT

BIT
MOV
BIT

ESCSTAT,T.MP
ZSCNRST.R3
EBRVERR,T.CS

ERRHRD

10004., ,ERR6

10004
O
ERR6
148

JSR

PC WAITIN

TRAP

C$ERHRD

MOV

MOV
ERRHRD

HUNXERR ,R3

(SP)+,R3
10002.,,CRR1

.WORD
.WORD
.WORD
CLR

10002
0
ERR1
ERRSWI

BNE
MOV

22%
#L.CS.R3

TST

MOV
MOV
DEC
BNE

sSuB

MOV
MOV
MOV
MOV
ADD
RTS
MOV
RTS

;GET DRIVE STATUS
IF ANY ERROR

;NO - SKIP
;CHECK IF VOLUME CHECK RESET
;YES SKIP
:SET REASON POINTER
JEXIT
;CHECK IF DRIVE ERROR
:NO - SKIP

CSERHRD

.WORD
WORD
.WORD
BR

TST

000000

017314

6
PAGE 1-38

ERR1
14$
#10.

8EQ

003022

.WORD
BR
WAITUS

TRAP

006454

10:29

TEMPS

#6 R1
(SP)+,(R3)+
R1
208

#2,SSINDX

(SP)+ ,R1
(SP) +,R0
(SP)
+ ,R3
(SP) +,TEMP4

ENQ]SwI

99%

ERRSWI, (SP)
PC
a(SP), (SP)
PC

JEXIT
;SET REASON POINTER
JEXIT
;WAIT FOR

INTERRUPT

;STORE REASON POINTER FOR RETURN

sCLEAR FOR ERROR RETURN

JTEST IF REGISTERS WERE SAVED
;NO - SKIP

;SET POINTER TO RESTORE
;SET REGISTER COUNT

;RESTORE REG

;DEC COUNT
;LOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUT STACK

;RESTORE R1
JRESTORE RO
;RESTORE R3
JRESTORE TEMPS4
;TEST IF ERROR RETURN
JYES - SKIP
;ADD IN ERROR RETURN

;SFT ERROR RETURN ADDRESS

017316
017324
017326
017332
017534
017340

177777

0C3724

005723

003006

003124

SEEK ROUTINE
#-1,TEMP]

XSEEKT: MOV
:
XSEEK
XSEEK1:

B8R

LR
MOV
MOV
ST

XSEEK1

TEMP1
R3,-(SP)
SSINDX,R3
(R3)+

sSET SPECIAL TIMING SEEK FLAG

;CLEAR SPECIAL SEEK FOR TIMING HLAG

;STORE R3
;GET SUBROUTINE INDEX
JBUMP

IT FOR NEXT

ENTRY

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA
. MAC
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681

1682
1683
1684
1685
1686
1687

~
=0

WA =000~
NS W

D =2
d —d
b
b
kb
b
e o
b e
ek e
b

NANN NN NN NNNNNNNN
NN
POPNONIN)
= 2 b b b

1688
1689
1690
1691
1692
1693
1694
1695

017342

016663
162763
010337

017376

005037

017402
017406
017410
017416
017424
017426
017434
017442
017450
017456
017460
017466
017474
017502
017504
917510
017512
017516
017524

004737
020040
013737
023737
003427
163737
013737
013737
022737
001424
162737
012737
012737
000451
005737
100007
005437
013737
005037
013705

017530
017534
017540
017542
017550
017552
017554
017560
017564
017570
017572
017600
017602
017610
017616
017620
017626
017626
017632

017636
017642
017646
017650
017654
017660
017662
017664

163705
100005
012737
005405
000402
005037
010537

005737
001416
023737
001007
012737
022737

012705
012715
053715
0427¢5
005025
013715
012700

000002
000004
003006

000002
003102

MACY11

30A(1052)
GLOBAL

002410
002410

SuB

MOV
MOV
MOV

003106
00314
003112
3%:

003102
6%:

003114
13%:
14%:

003106

00230:.

000001

003114

000001

002302

003102

003112

003040
000106
003036
002000

003112
00007

21%:

2(SP) ,SUBSTK(R3)

#4,SUBSTK (R3)
R3,SSINDX
RO,~(SP)
R1,-(SP)

;INSERT THIS CALL
JADJUST IT TO CALLING LOCATION
;STORE IT BACK

CLR

JSR

PC,GETPOS

CURCYL,OLDCYL

sMOVE CURRENT TO OLD CYLINDER

cMP
BLE
SuB
MOV
MOV
CMP
8tQ
SuB
MOV
MOV
BR
TST

8PL
NEG
MOV
CLR
MOV
SUB
BPL
MoV
NEG
8R

gEUCYL.HLMTU

HLMTW NEWCYL
NEWCYL ,DIFAUG
HLMTW NEWCYL
#1,T.DRIVE

18%

NEWCYL

6%
NEWCYL
NEWCYL ,DIFAUG

NEWCYL

CURCYL.RS

NEWCYL
RS
13%
#1,DESSGN

cMP
BNE
ADD

#1,T.DRIVE
18%
DIFAUG,DESDIF

MOV
MOV
BIS
BIC
CLR
MOV
MoV

#L.CS.RS
#SEEK
. (RS)
RLDRV . (RS)

ASL

DEC
BNE

JELSE SUBTRACT 255.
;STORE DIFFERENCE AS AUGMENT
JSET NEWCYL AS 255.

BNE

CLR

MOV
TST
BEQ
CMP

;TEST IF NEW IS GREATER THAN 255

:NO - SKIP

#1 NEWCYL
#1.DESSGN
#1,DESDIF

RS
143
DESSGN
RS ,DESDIF
DIFAUG
18%
NEWCYL ,HLMTW
178

MOV

17%:
18$%:

6
PAGE 1-39

:STORE REG
;SET FOR NO ERROR RETURN
;CLEAR DIFFERENCE AUGMENT (FOR SEEKING
__PAST GUARD BAND)
;
;GET PRESENT POSITION

MOV

003106
003102
003106
002302

RS,~(SP)
#2 ,ERRSWI
DIFAUG

65%

003104
002306

10:29

MoV

MOV

003022

003114
003112
003102

SUBROUTINES
MOV

022506
003110
003106

17-DEC-79

#1,DESSGN

#1710, (RS) +
(RS)+
DESDIF, (RS)

#7 RO

(RS

21%

JTEST IF NEWCYL HAS NEGATIVE VALUE
;NO - SKIP
cELSE MAKE IT POSITIVE
JAND STORE IT AS AUGMENT

JAND SET NEWCYL TO O
;COMPUTE DIFFERENCE AND NEW CYLINDER
;SUB NEWCYL FROM CURCYL
;IF DIFF IS POSITIVE - SKIP(REV SEEK)
JELSE SET SIGN FOR FORWARD
;QQTE DIFFERENCE POSITIVE
;SET SIGN FOR REVERSE
:STORE DIFFERENCE
;1S THERE A DIFFERENCE AUGMENT
:NO - SKIP
;CHECK IF NEW CYL IS 255.
:NO - SKIP
JELSE FORCE SIGN FOR FORWARD
; (INNER GUARD BAND)

;GET L REG ADDRESS
;SET FOR SEEK
s INSERT DRIVE NUMBER
;CLEAR IF DRIVE & - 7 SPEC'D
;CLEAR BUS ADDRESS
;LOAD DIFFERENCE
JSET TO SHIFT DIFFERENCE
;LOOP UNTIL ALIGNED

SEQ 0075

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA MeC
17-DEC=-79 10:22
1724
1725
1726
1727
1728
1729
1730
1731
1732

017666
017672
017674
017700
017704
017706
017712
017716
017722
017724
017730

005737
001402
052715
005737

MACY11

003114
000004
003116

23%:

000020
000001

25%:

020444

005737
001041
014562
014562
014562
005737
001012
004737
012603

17-DEC-79
30A(1052)
GLOBAL SUBROUTINES

100006

000004
000002
000000

MOV

30%:

003012
016224

003022
32%:

003050

MOV
MOV
WAITUS
TST
BNE
JSR
MOV
ERRHRD
TRAP
.WORD
. WORD
.WORD
CLR
B8R
TST
BPL

ERRHRD

023426

063716
000207
017616
000207

BEQ
8IS
8IS
JSR
CLR
TST
BNE

104456

000000
012372
005037
162737
012605
012601
012600
012603
005737
001403

TST

65%

003012
003124

104456

023425
000000
012070
005037
000411
005737

TST
BEQ
8IS

003022
000002

003006

65%:

003022

TRAP
.WORD
.WORD
.WORD
CLR
suB
MOV
MOV
MOV
MOV
TST

BEQ

003022
99%:

000000

ADD
RTS
MoV
RTS

10:29

FAGE

DESSGN

23$

#DIRBIT, (R5)
DESHD

25%

#HDSEL , (RS5)

#MBSETO, (R5) +

PC.RDYCHK

DONE
TEMP1

65%
-(R5) ,RLDA(R2)
~(RS) ,RLBA(RZ2)
=(R5) ,RLCS(R2)

#10.
DONE

328

PC,WAITIN

(SP)
+ ,R3
10005., ,ERR1
CS$ERHRD
10005
0
ERR1
ERRSWI]

65%

T.CS

65%

1-40

SEQ 0076

;TEST SIGN
;SKIP IF O
JELSE INSERT SIGN

JTEST IF HEAD O

JYES - SKIP
JELSE SET HEAD BIT
:INSERT MARKER BIT
;CHECK IF DRIVE READY

sCLEAR INTERRUPT FLAG
sCHECK [F SPECIAL SEEK FLAG SET
;YES = SKIP, DO NOT START SEEK
;LOAD RL REGISTERS

STEST IF INTERRUPT DONE
;YES - SKIP
;GO WAIT FOR INTERRUPT
;sGET RESULT MESSAGE POINTER

;CLEAR FOR ERROR RETURN

;TEST IF ANY ERROR
;NO - SKIP

10006.
, ,ERR6
C$ERHRD
10006
0
ERR6
ERRSWI

;CLEAR FOR ERROR RETURN

(SP)+ RS

JRESTORE REGISTERS

#2,SSINDX
(SP)
+ ,R1
(SP)+,R0

(SP)+,R3

ERRSWI]
99%

ERRSWI, (SP)

a(SP), (SP)
PC

JREMOVE

ENTRY FROM SUBROUT

STACK

;TEST IF ERROR RETURN
JYES -~ SKIP
;ADD [N ERROR RETURN

;SET ERROR RETURN ADDRESS

POSITIONS HEADS USING 1 CYLINDER SEEKS
TO CYLINDER SPECIFIED IN RS BY THE CALLING ROUTINE
MOV
R3,-(SP)
. SAVE REGS
POSITION HEADS ROUTINE.

020124

010346
013703

003006

010337

000002
000004
003006

POSHDS:
002410
002410

SSINDX ,R3
sGET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK (R3)
;JADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE IT BACK

CZRLNAO RLO1/02_DRIVE TEST 3
17-DEC-79 10:22
CZRLNA.MAC
1829
1830
1831
1832
1833
1834
1835
(3)
1836

(3)
1837

020130
020132
020134
020142
020146
020150
020154
020154

010346
010446

012704

000002
022506

NOWNES W

SRRREREE

5%:

NO NS W - OV

003106

wviwrouvaviui 1%,] N

N P
P

003104

003106
017326

7%:
8%:

005670

022222

Ve R AR

;SET FOR NO ERROR RETURN
;GET CURRENT POSITION

#10. R4

;SET RETRY COUNT

($BSEG

JSR
60%

PC.GETPOS

;ELSE GET POSITION

BNE
JSR
BR

8$
PC,ONSWAP
8%

CURCYL ,NEWCYL

;CHECK IF AT INTENDED POSITION
:NO - SKIP
:g:?g OLDCYL AND NEWCYL

cMP
BEQ
BGT
INC
BR

CURCYL ,0LDCYL

CURCYL,R5
608
78
NEWCYL
$

:IN NOT LOOPING, STORE CURCYL AS OLDCYL
;CHECK IF HDS AT FINAL POSITION
;YES - GO TO EXIT
;IF CURCYL > FINAL POSITION - SKIP
.gt?g BUMP NEWCYL (MOVE HDS IN)

60%
MOV

NEWCYL
PC,XSEEK

;DEC NEWCYL (MOVE HDS OUT)
;DO SEEK

#3000. ,R1

JSET WAIT COUNT 300 MS
;WAIT FOR DRIVE READY

T.CS

;TEST IF ANY ERROR
;:NO - SKIP

MOV

DEC
JSR

TST

8PL
ERRHRD
TRAP

.WORD
.WORD
.WORD

NN
=

003022

003366
005304
001333
012703
104456
023431
000000

CSINLP

10%:

003106

;CHECK IF IN ERROR LOOP
5%

PC.RDYWAIT

108
10008., .ERR6

JSR

cMP

CURCYL NEWCYL

60%

000012

14%:

BNE
MOV

003114

15%:

TST

DESSGN

P
BGT
DEC

CURCYL ,NEWCYL
148
R4

TRAP

C$ERHRD

203110

003106
16%:

007313

BNE

BNE
MOV
ERRHRD
.WORD
.WORD

;NO - SKIP

C$ERHRD

10008
0
ERR6
ERRSWI
608
PC,GETPOS

CLR

022506

003110

R4,=(SP)

TRAP
INLOOP
TRAF

60%

003050

ERRRERAITR

h oD
D
ok
d =

PH65$
MOV

PC,GETPOS

JSR

1858

—

#2,ERRSW]

cMP

021004

6
PAGE 1-41

MOV

BNCOMPLETE
8cC
5%
003106

R3,-(SP)

JSR

022506

003110
003110

10:29

MOV

1%:

104420

1842

17-DEC=79
GLOBAL SUBROUTINES

BGNSEG

104404

103012

30A(1052)

003022

000012

003110

00 00 00 0o 00 00 0o

MACY11

15%
#10. R4
13

17%

8s
#HDMOVF ,R3
10009.,.ERR1
1C009
O

;CLEAR FOR ERROR ERROR RFTURN

:GET POSITION

;CHECK IF ARRIVED AT DESIRED PLACE
:NO - SKIP
SELSE INIT RETRY COUNT
;GO DO NEXT SEEK
;TEST IF GOING IN
;YES - SKIP

;CHECK IF HEADS DID NOT MOVE IN
;YES - SKIP
sDEC RETRY COUNT
;DO ANC HER SEEK IF NOT O
SELSE SET RESULT MESSAGE POINTER

SEQ 0077

CZRLNAG RLO1/02 DRIVE TEST 3
CZRLNA
. MAC
17-DEC-79 10:22
(5)
1875
1876
1877
1878
1879
1880

012070
005037
000405
023737
002747
000760

104405
162737

012604

MACYTT1

30A(1052)

GLOBAL SUBROUTINES

003022

003110

003106

17-DEC-79

17%:

. WORD
CLR
BR
cMP
BLT

:
208
60%:
ENDSEG

10000%:

000002

003006

6
PAGE 1-42

ERRY
ERRSWI
60%

CURCYL ,NEWCYL
14%
163

CS$ESEG

PH65S:

#2,SSINDX
(SP)+ R4

012600

012603
005737
001403
063716
000207
017616
000207

10:29

(SP)+,R0
(SP)+,R3
ERRSWI
99%
ERRSWI, (SP)

003022

003022
99%:

000000

RTS

PC
a(SP), (SP)
PC

;CLEAR FOR ERROR ERROR RETURN

;HDS SHOULD MOVE OUT. CHK THEY DID
‘YES = SKIP

*ELSE GO DEC AND RETRY

;REMOVE ENTRY FROM SUBROUT STACK
cRESTORE REGISTERS
;TEST

010346
013703

000002
000004
003006

002410
002410

000002
011610
016430

003022

000001

003050

Mov

MOV

1%:

b o
b
- cad e

P o Yt Yt i i i Y

#4 ,SUBSTK (R3)
R3,SSINDX
RO,-(SP)
R1,-(SP)
R4 ,-(SP)
#2 ,ERRSW]
#5000. ,R1
PC,GSTAT

;SET ERROR RETURN ADDRESS
CHECKS DRIVE

IS READY.

IF NOT, WAIT

:STORE REGS
;GET SUBROUTINE INDEX

;BUMP IT FOR NEXT ENTRY

;ADJUST IT TO CALLING LOCATION
;STORE IT BACK

sSET FOR NO ERROR RETURN
sSET WAIT COUNT
;GET DRIVE STATUS

;TEST IF DRIVE READY

JYES - EXIT

R1
1$
#MDRDY ,R3
#C500MS
R4

;DEC WAIT COUNT

010124
0110Mm

ERROR RETURN

2(SP) ,SUBSTK(R3)
; INSERT THIS CALL

#DRDYMSK,T.CS

NS WN=O

b
d

PelloX
el ol ol o o) e}

1908

RDYCHK:

003006

JYES - SKIP
:ADD IN ERROR RETURN

DRIVE READY TEST ROUTINE.

SOOMS FOR_READY TO SET.
MOV
R3,-(SP)
SSINDX,R3
MOV
TST
(R3)+

SEQ 0078

10010., ,ERRS

;LOOP IF NOT O
sSET RESULT MESSAGE POINTER
sSET CONDITION MFSSAGE POINTER

CSERHRD
10010
0

ERRS5

000062
016430
000001
005301

2%:
003050

’5000R1

SSET WAIT COUNT o+
;GET DRIVE STATU

#DRDYMSK,T.CS

sTEST IF DRIVE RE4(/
;YES - SKIP

PC.GSTAT

JWAIT FOR 100MS

;DEC WAIT COUNTER

INDS

CZRULNAO RLO1/02 DRIVE TEST 3
CZRLNA .MAC
17-DEC-79 10:22

1925
1926

1927
1928
(4)
(5)
(5)
(5)
1929
1930
1931

1932
1933

1934
1935

1936
1937
1938
1939
1940
1132;

1943
1944

1945
1946
1947
1948
:}g‘sog

1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
}gg;

1963

1964

020626
020630

020636
020640
020640
020642
020644
020646
020650
020654
020660

020666
020670

020672
020674
020676
020702
020704
020710
020712
020716

020720
020724
020732
020734
020742

001406

012372

005337
005037
162737
012604
012601
012600

003244
003022
000002

005737
001403
063716
000207
017616
000207

003022

012603

005037
032737
001403
013737
000207

032737
001011
005737
001006
012737
062716
000207
017616
000207

021004

010046

021012

013737

021006

1967
1968
:llggg

021020
021024
021026

100000

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003050

38:

003006

48:
SS:

104456
023433
000000

(020744
020752
020754
020760
020762
020770
020774
020776
021002

1965

1966

001362
032737

MACY11

000000

998 :

;
:

003116
010000

013722

013730

003116

013722

003116
000001
000002

003116

000000

CHOSHD:

18:

003104

010037
012600
000207

003106

MOV
MOV
MOV
TST
BEQ
ADD
RTS
MOV
RTS

PAGE 1-43

23
#ANYERR,T.CS

43
10011., ,ERR6
CSERHRD
10011
0
ERR6
ERRCNTY
ERRSWI
#2,SSINDX

(SP)+ R4
(SP)+.,P1

(SP)+ RO
(SP)+,R3
ERRSWI
99%
ERRSWI, (SP)
PC
a(SP) ,(SP)
PC

SEQ 0079

;LOOP UNTIL TIME DONE
JTEST IF ANYERR SET
:NO
= SKIP
sREPORT ALL ERRORS

JREDUCE ERROR COUNT FOR DUAL ERRORS
;CLEAR FOR ERROR RETURN
;REMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGS

;TEST IF ERROR RETURN
;YES - SKIP
;ADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

CHOOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS
SELECTED BY SOF TWARE PARAMETER.

CLR
BIT
8EQ
MOV

RTS

DESHD
MHEADLM MISWIW
13
HEADW ,DE SHD

;CLEAR TO HEAD 0
TEST IF HEAD SPECIFIED
INO - SKIP
s INSERT SPECIFIED HEAD

:
SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1
;
UNLESS HEAD O SPECIFICALLY SELECTED BY SOF TWARE PARAMETER.
SWAPHD: BIT
#HEADLM MISWIW TEST IF HEAD SPECIFIED
BNE
23
;YES - TAKE ABORT EXIT
TeT
DESHD
sTEST IF HEAD ONE USED
BNE
2%
;YES - TAKE ABORT EXIT
MOV
#1,DESHD
cELSE SET FOR HEAD ONE
ADD
#2,(SP)
;BUMP PAST ABORT RETURN
RTS
PC
RETURN
2%:
MOV
a(SP) , (SP)
;GET ABORT DESTINATION
3s:
RTS
PC

013700

BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD
DEC
CLR
suB

MOV

003022

070000

BNE
8IT

10:29

SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE.

ONSWAP: MOV
003104

RO,-(SP)

;STORE RO

NEWCYL,OLDCYL

:MOVE NEW TO OLD

MOV

oLDCYL RO

MOV
MOV
RTS

RO,NEWCYL
(SP)+,RO
PC

MoV

:MOVE OLD TO RO
sPUT OLD IN NEW
JRESTORE RO

1972

;

BAD SECTOR FILES VALID CHECK ROUTINE.

1974
1975

:
CKBSVD:

FILES TO LOOK LIKE ALL SECTORS OK.
TST
BSF VAL
sTEST IF BAD SECTORS STORED

1973

1976
1977

021030
021034
021036

005737
001051

003500

CHECKS IF BAD SECTOR

FILES HAVE BEEN READ AND STORED. IF NOT, REPORT AND FORCE

BNE
5%
PRINTF #FMT9 ,#BSNSTR

JYES - EXIT
;REPORT

CZRLNAO RLO1/02 DRIVE TEST 3

17-DEC-79 10:22

4 RLNA.MAC

(8)
(7)
(6)
(3)

021036

012746
012746
012746
010600

MACY11

17-DEC~79
30A(1052)
GLOBAL SUBROUTINES

007540
011356
000002

MOV
MOV
MOV
MOV
TRAP
ADD
PRINTF
CLR

104417

(4)
(4)

062706

1978

005046
153716
012746

—

d wd ad

)

(10)
(9
(8)
(7
(6)
(3)

BRREERERRE>RSR

an
a1

BlSB

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTF

013746
012746
012746
012746
010600
104417

062706

000014

012746
012746

011156
000001

012737
000402

005037

003502
003676

000001

003132

000002
000004
003006

002410
002410

000002
003132

003022

ga8
021320

003012
003040
003036
002000
000110

5%:

PAGE 1-44

#BSNSTR,=(SP)
#FMT9,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
#FMTS, #BASADD ,RLBAS,#DRVNAM, <B,RLDRV+1>
-(SP)
RLDRV+1, (SP)
#DRVNAM
. - (SP)
RLBAS ,~(SP)
#BASADD ,-(SP)
NEMTS,=(SP)
#5,<(SP)

CSPNTF

#14,SP
#FMT3
NFMT3,~(SP)
#1,-(SP)

MOV
RTS

#6,SP
#-1,SBSFIL
#-1,FBSF!L

READ HEADERS ROUTINE.
#1,TEMPS
B8R
XRDHDG

1%:

2s:

CLR

sFORCE FILES TO NO ENTRIES

XRDHDC: MOV
:
XRDHD
XRDHDG:

003006

020444

SP,RO
CSPNTF

000004
1727777
1777277

003050
000004

10:29

TEMPS
R3,~(SP)
SSINDX ,R3
(R3)+

:SET FLAG TO BYPASS REG STORAGE
;GO DO IT
sSET FLAG TO SAVE T. AMD L. REGS

;STORE REGISTERS

;GET SUBROUTINE INDEX
:BUMP_IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) - INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
:STORE IT BACK
RO,-(SP)
R1,-(SP)
R4 ,-(SP)
#2 ,ERRSW]
sSET FOR NO ERROR RETURN
TEMPS
;TEST IF REGISTERS TO BE SAVED
:NO - SKIF
;SET POINTER FOR REGS
sSET _COUNT
-§R3).~(SP)
:SAVE REGISTER

PC.RDYCHK

DONE
#L.CS.R1
RLDRV . (R1)

#1710, (R1)

#RDHEAD, (R1)
+
(R1)+

sDEC COUNT
;LOOP UNTIL ALL ARE SAVED
;CHECK DRIVE READY

sCLEAR INTERRUPT FLAG

:GET ADDRESS OF LOAD REGS

;LOAD DRIVE NUMBER

sCLEAR FOR DRIVE &4 - 7 SPEC'D
¢ INSERT COMMAND
;CLEAR BA

SEQ 0080

CZRULNAO RLO1/02_DRIVE TE
ST 3
17-DEC-79 10:22
CZRLNA MAC
2014
2015

021322

005021
014162
014162
014162

000004
000002
000000

005737

003012
000001

MACY11

30A{1052)

17-DEC-79
GLOBAL SUBROUTINES

5%:

11%
ERRSWI
108
R1
43

11s:

011037

sTEST

IN INTERRUPT FLAG SET

;CONDITION OF AFTER DATA XFER

#DRDYMSK, T.CS

003022

JWAIT 1MS FOR INTERRUPT

#CAFDT
R4

PC,GSTAT

003050

;CLEAR DA
;LOAD RL11 REGS

#DRDYMSK, T.CS

108
#MDRDY ,R3

4%:

SEQ 0081

:NO - SKIP
cTEST IF DRIVE READY

10017., .ERRS
CSERHRD
10017

000062
016430

PAGE 1-45

DONE
148

010124
011026

000001

(R1)+
=(R1) ,RLDA(R2)
=(R1) ,RLBA(R?}
=(R1) ,RLCSR(R2)

3%:
003050

10:29

#C5SEC,R4

10014,
, ,ERRS

JYES - SKIP
;SET NQ READY MESSAGE

;SET WAIT COUNT FOR 5 SECONDS
JGET STATUS
sTEST IF DRIVE HAS COME READY
:NO - SKIP

sCLEAR ERROR SWIT(CH
; SKIP

:DEC WAIT COUNT
;LOOP UNTIL TIME DONE

JSET CONCITION AFTER S SECONDS

CSERHRD
10014

003050

JEXIT
;CHECK FOR ANY ERRORS

:
108

10016., .ERR6
CSERHRD
60016

021550
021554

001007
02703
012701

003060
000006
000006

12%:

016224

14%:

003022
003132

:
608
65%:

003040
000004

ERR6
608

#HDWRDZ
,R1
RLMP(R2)
, (R1)+
RLMP(R2)
, (R1)+

:GET POINTER
;STORE LAST TWO HEADER WORDS

PC,WAITIN

JWAIT FOR INTERRUPT

653

SEXIT

(SP)+,R3
10015., ,ERR1
CSERHRD
60015

sGET RESULTS
JREPORT

ERR1
TST

;NO - SKIP
;REPORT ALL ERRORS

ERRSWI
TEMP4

22%

#L.CS.R3
#4 ,R1

;CLEAR FOR ERROR ERROR RETURN
sTEST

IF REGISTERS WERE SAVED

:NO = SKIP
;SET POINTER TO RESTORE REGS

SSET COUNT

CZRLNAO RL01/02 DRIVE TEST 3
CIRUNA.MAC
17-DEC-79 10:22

2054
2055
2056
2057
2058
2059

021560
021562
021564
021566
021574
021576

012623
005301
001375
162737
012604
012601

2062

021604

005737

003022

2064

021612

0637.6

003022

2066
2067

021620
021624

017616
000207

000000

MACY11

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

20$:

000002

003006

22%:

MOV
DEC
BNE
SuB

MOV
MOV
MOV

VERHDR:

021626
021630

010346
013703

003006

2075
2076
2077

021636
021644
021652

016663
162763
010337

000002
000004
003006

002410
002410

2082
2083
2084
2085
2086

021666
021674
021702
021706
021712

012737
052737
005037
012704
012705

000002
000002
003020
004072
003122

003022
003010

2090
209

021724
021730

042701
012700

000177
000007

2095
2096

021742

020137

003106°

3%:

PAGE 1-46

(SP)+,(R3)+
R1
20%
#2,SSINDX

SEQ 0082

;PESTORE REGISTER
sDEC COUNT
;LOOP UNTIL ALL ARE RESTORED
JREMOVE ENTRY FROM SUBROUT STACK

;RESTORE REGS

TST

ERRSWI

ADD
RTS
MOV
RTS

ERRSWI, (SP)
PC
a(SP), (SP)
PC

JTEST IF ERROR RETURN
JYES - SKIP
sADD IN ERROR RETURN

8EQ

2072
2073

(SP) +,R4
(SP) +,R1
(SP) +,R0O

MOV

99%:

10:29

(SP)+,R3

99%

;SET ERROR RETURN ADDRESS

VERIFY HEADERS ROUTINE. COMPARES 40 HEADERS FOR CONTENT AND
SEQUENCE.
MOV
R3,-(SP)
:STORE REGS
MOV
SSINDX,R3
;GET SUBROUTINE INDEX
TST
(R3)+
:BUMP IT FOR NEXT ENTRY
MOV
2(SP) ,SUBSTK(R3) o INSERT THIS CALL

SuB
MOV
MOV
MOV
MOV
MOV
MOV
BIS
CLR
MOV
MOV
CLR
MOV
MOV
BIC
MOV

#4,SUBSTK (R3)

R3.SSINDX
RO,~-(SP)
R1,-(SP)
R4 ,-(SP)
R5,-(SP)
#2 ,ERRSW]

;ADJUST

IT TO CALLING LOCATION

:STORE IT BACK

;SET FOR NO ERROR RETURN
;SET HEADER COMPARE FLAG
MORE CE
sCLEAR MORE ERRORS FLAG
#IBUFF ,R4
;SET POINTER TO HEADERS
#TEMPO,RS
;SET POINTER TO WORK AREA
R3
;CLEAR FOR WORD COUNTER
, (RS)
(R4)
;MOVE HDR WORD TO WORK AREtA
(R4) ,R1
;PUT WORD IN REG 1
#177 ,R1 ;CLEAR ALL BUT CYLINDER
#HDRC
,OPFMP
L AG

#7 RO
R1
RO

R1,NEWCYL
43

10018., ,ERR10
CSERHRD

sSET SHIFT COUNT

sSHIFT
.DEC
:LOOP
sCHECK [F CYLINDER PART GOOD
JYES - SKIP
;REPORT ERROR

10018

2098
2099
2100
2101
2102
2105
2106

021760

005037

003022

021766
021772
021776

012701
042715
005737

000050
000100
003116

022010
022014

052715
005065
021524

000100
000002

0
ERR10
(%

ERRSWI

;CLEAR FOR ERROR ERROR RETURN

#40. ,R1
W#HDHSEL
, (RS)
DESHD

.SET HEADER COUNT

65%

5%:
6%:

#HDHSEL
, (R5)

2(RS)

(RS),(R4)+

;CLEAR HEAD SELECT AND O BIT
JARE WE USING HD 07?
JYES - SKIP

s INSERT HEAD BITY
JCLEAR 2ND WORD OF WORK AREA
:TEST FIRST WORD OK

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA. MAC

022016
022020
022022
022022
022024

N PN
N
=D

BEQ

104456
023442
000000
013464
005037
005724
005203
005724
001410
022544

TRAP

TST

ERRHRD

003022
8%:

177700
000050

000002

022140
022142
022146
022150
022154
022156
022162
022164
022170
022172
022176
022200
022204
022210
022212
022214
022216
022220

15%:

003006

65%:

003022

10018.,,ERR10

CSERHRD

;REPORT

JYES - SKIP
cADJUST POINTERS FOR REPORT
;REPORT

ERRSWI
(R4)+
(R4)+

CSERHRD

.WORD
.WORD
.WORD

10018
0
ERR10

tMP

=(R5),(R4)
+

TST

INC

ERRSWI
(R4)+

INC
MOV
BIC
CMP

(RS)
(RS) ,RO
#“CHDSEC,RO
#40. RO

BIC
INC
DEC
BNE
SUB
MOV
MOV
MOV
MOV
MOV

W#HDSEC, (R5)
R3
R1
63
#2,SSINDX
(SP) +,RS
(SP) +,R4
(SP) +,R1
(SP)+,R0
(SP)+,R3

158

013705

003056

POSHW1:

003056

POSHSB: MOV

RTS

:DEC_HEADER COUNT
;LOOP IF NOT YET DONE
sREMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGISTERS

;SET ERROR RET'IRN ADDRESS

ERRSWI, (SP)
PC

MOV

JTEST IF AT SECTOR 40
:NO - SKIP
;CLEAR SECTOR TO O
:BUMP HDR WORD COUNTER

?(SP)
, (SP)

ADD
RTS

99%:

¢ LLEAR FOR ERROR RETURN
JRESET POINTERS
;BUMP PAST ECC WORD
;BUMP WORD COUNTER
;BUMP SECTOR OF EXPECTED HEADER
sMOVE EXPECTED HDR TO RO
;CLEAR ALL BUT SECTOR

;TEST IF ERROR RETURN
;YES - SKIP
;ADD IN ERROR RETURN

ERRSWI

000000

;TEST 2ND WORD IS O

998

TST

POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER

MOV
BR

POSHDO: MOV
BIC
MOV
1%:
ASR
DEC

BNE
MOV
RTS

SEQ 0083

JYES - SKIP
JELSE SET POINTER FOR ERROR

128
(R5)+,=-(R4)
10018., ,ERR10

017616
000207

177677
000006

~(R4)

8tQ

003022

INC

TST

BNE

000077

7
PAGE 1-47

;CLEAR FOR ERROR RETURN
cRESET POINTER
;BUMP WORD COUNTER

CLR
TST

CLR
12%:

10018
0
ERR10

TRAP

003022

10:29

.WORD
WORD
.WORD

BEQ
tMP
ERRHRD

17-DEC-79
GLOBAL SUBROUTINES

001410
005744

104456
023442
000000
013464
005037
024524
005724

PON) = =2 = NN

N cd od

b b b

b b b = N NN

oIl lllraranIaolllLlg

AINIADAINLNOND
N
) il D i
PN PN N o b

2107
2108

MACY11 30A(1052)

Tu LSB.

HDWRD1,R5S
;START FOR POSITION HD BIT IN WD 1
POSHDO
. SKIP
T.MP, RS ;START FOR POSITION HD BIT IN MP
R1,=(SP)
;STORE R1
#~CHSSTAT RS
;CLEAR ALL BUT HEAD SEL BIT
#6,R1
JSET SHIFT COUNT
RS
:SHIFT FOR RIGHT JUSTIFY
R1
1%
+ ,R1
(SP)
JRESTORE R1

JRETURN

CZRULNAO RLO1/02 DRIVE TEST 3
CZRLNA .MAC
17-DEC=-79 10: 22

2156
2157
2158
2159
2160
2161
2162
2163

010346
013703

2164
2165
2166

2167
2168
2169
2170
217
2172
2173
2174
2175
2176
2177
2178

000761
012703
104456
023444
000000
012204

(4)
(5)
(5)
(5)
2179
2180

2181
2182
2183
2184
2185
2186
2187
2188

MACY11

RDYWAIT:

003006
000002
000004
003006

002410
002410

000002
016430

003022

000001

003050

010124

10:29

TO THE ROUTINE

MOV
R3,-(SP)
:STORE R3
SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY

R3,SSINDX
RO,~(SP)
R1,-(SP)

5%:

R4 ,=(SP)
#2 ,ERRSWI
PC,GSTAT

#DRDYMSK,T.CS

0
ERR3

6%:

003050

;SET FOR NO ERROR RETURN

;GET DRIVE STATUS
;CHECK IF READY
;YES - SKIP
sDEC WAIT COUNT
JSKIP IF O

#50. ,R1

;SET WAJT COUNT FOR 5 SECONDS
;GET DRIVE STATUS

#DRDYMSK, T.CS

;TEST IF DRIVE READY
JYES - SKIP

PC,GSTAT

R1
6%
#C5SEC,RG
10021., ,ERRS
CS$ERHRD

011037

sADJUST IT TO CALLING LOCATION
;STORE IT BACK

;SET NAME MESSAGE PTR
;REPORT READY ERROR

;WAIT 100 MS

;DEC WAIT COUNT
;LOOP UNTIL TIME DONE
;SET CONDITION AFTER S5 SECDS

80021
ERRS
100000

003050

8s:

#ANYERR,T.(CS

10 $
10022., ,ERR6

C$ERHRD
60022

193
amd ——d

SEQ 0084

2(SP) ,SUBSTK(R3)
; INSERT THIS CALL

(5)

b e

1-48

WAIT FOR READY ROUTINE. DURATION OF WAIT PASSED
FROM THE CALLING ROUTINE IN R1.

#4,SUBSTK (R3)

(4)

—d

PAGE

7%:

000062
016430
000001

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

022454
022456
022460
022462

012604
012601
012600
012603

003244
003022
000002

003006

11$:
10%:

9%:

ERR6

ERRCNT
ERRSWI
#2,SSINDX
(SP)+ R4
(SP)+,R1
(SP)+,R0
(SP)+,R3

SEXIT
sTEST IF ANY ERROR SET

;NO - SKIP

;REPORT ALL ERRORS

;DEC FOR DOUBLE ERROR REPORT

;CLEAR FOR ERROR ERROR RETURN
JREMOVE ENTRY FRCM SUBROUT STA(CK
;RESTORE REGISTERS

JRESTORE R3

CZRLNAQ RLO1/02_DRIVE TEST 3
17-DEC-79 10:22
CZRLNA .MA(

2200
2201
2202
2203
2204
2205
2206
2207
2208
2209

022464
022470
022472

005737
001403
063716
000207
017616
000207

MACY11

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003022

TST

ERRSWI

a?g

E?RSHI.(SP)

BEQ

003022
000000

99%:

10:29

g?g

7
PAGE

1-49

SEQ 0085

;TEST

ERROR RETURN

99%

JYES - SKIP

géSP),(SP)

:SET ERROR RETURN ADDRESS

;ADD

IN ERROR RETURN

GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYL INDER
010346
013703

(WHERE IT IS PRESENTLY POSITIONED)
NUMBER IN_CURCYL.

GETPOS: MOV

007006

000002
000004
003006

MOV

002410
002410

021172
003056
000007

022576
022604
022606
022610
022612
022616
022620
022624
022626
022632

022634
022636
022642

022644
022652
022660
022664
022672
022676
022700
022706
022710
022710
022712
022714

00337
162737
012605
012600
012603
005737
001403
063716
000207
017616
000207

010346
013703
005723
016663
162763
010337

012737

104456

023446
000000

177000
003110
000002

4%:

003006

65%:

003022

TST
MOV
SuB
MOV
MoV
MOV
JSR
65%
MOV
MoV
ASR
DEC
BNE
BIC
MoV
suB
MOV
MOV
MOV
TST

BEQ

C03022

322

000000

99%:

MOV
RTS

R3,-(SP)

SSINDX,R3

AND STORES CYLINDER

sSTORE REGISTERS

;GET SUBROUTINE INDEX

(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4 ,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE IT BACK
RO,=(SP)
R5,-(SP)
PC,XRDHD
;DO READ HEADER

HDWRD1,R3

#7 .R5
R3

RS
43
#177000,R3
R3,CURCYL

;GET HEADER WORD

sSET SHIFT COUNT
JSHIFT TC RIGHT JUSTIFY

;STORE AS CURRENT CYLINDER

#2,SSINDX
(SP) + RS
(SP) +,R0
(SP)+ ,R3

;REMOVE ENTRY FROM SUBROUT STA(K
JRESTORE REGISTERS

99%

;YES = SKIP

a(SP), (SP)
PC

;SET ERROR RETURN ADDRECS

ERRSWI

E?RSUI.(SP)

JTEST

;ADD

ERROR RETURN

IN ERROR RETURN

VERIFY POSITION ROUTINE. READS A HEADER (USING GETPOS) AND
CHECKS HEADS ARE POSITIONED AT NEW CYLINDER (CURCYL = NEWCYL).

VERPOS: MoV

003006

MOV

000002
000004
003006

002410
002410

000002
022506
003106

TST
MoV

R3,-(SP)

SSINDX,R3

;STORE R3

;GET SUBROUTINE INDEX

(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL

suB

#4,SUBSTK(R3)

;ADJUST

003022

MOV

#2 ,ERRSWI

;SET FOR NO ERROR RETURN

003110

cMP
BEQ

NEWCYL,CURCYL
1$

;CHECK IF CURRENT CYL
JYES - SKIP

TRAP

CSERHRD

MoV
égg

ERRHRD
.WORD
.WORD

R3,SSINDX

PC,GETPOS

10022., ,ERRS8

10022
0

;STORE

IT TO CALLING LOCATION

IT BACK

;GET POSITION

IS NEW CYL

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA MAC

022716
022720
022724
022724
022732
022734
022740
022742
022746
022750
022754

17-DEC-79 10:22

013324
005037

003022

162737

000C0¢2

012603
005737
001403
063716
000207
017676
000207

MACY11

003006

*7-DEC-79
30A(1052)
GLOBAL SUBROUTINES

1%:

65%:

PAGE 1-50

;CLEAR FOR ERROR ERRUR RETURN

SuB

#2,SSINDX

;REMOVE ENTRY FROM SUBROUT STACK

BEQ

99%

JYES - SK]P

003022

S?g

MOV
RTS

(SP)+ ,R3
ERRSWI

E?RSUI.(SP)
a(SP), (SP)
PC

JRESTORE R3
;TEST IF ERROR RETURN
;ADD

010346
013703
005723
016663
162763
010337
010046
010146
010446
012737
012701
052737
012703

RDALHD: MOV

003006

000002
000004
003006

000002

MOV

1ST
MOV

002410
002410

SUB
MOV

003010

003040
003040
003040

000020
003044
003042
000200

003044
000004
000002
000000

003040
077777
000200

012603

023212
023214

104456

023451
000000

016172
016224

#2 ,ERRSWI
#40. ,R1
#HDR4O,OPFLAG
#1BUFF ,R3
RLBAS R4
#RLMP R4
#10,L.CS
RLDRV,L.CS

CLR
CLR

L.BA
L.DA

;STORE REGISTERS

sGET SUBROUTINE INDEX

R1,-(SP)
R4 ,-(SP)

#817T10,L.CS

sJADJUST IT TO CALLING LOCATION
JSTORE IT BACK

;SET
;SET
;SET
sSET

FOR NO ERROR RETURN
HEADER COUNT
40 HDR OP FLAG
POINTER TO STORE HDRS

:GET BASE ADDRESS
JMAKE IT POINT TO MP REG
cLOAD FOR READ HEADER, NO INTERRUPT
s INSERT DRIVE NUMBER

;CLEAR FOR DRIVE 4 - 7 SPEC'D
;CLEAR BA
: CLEAR DA

TST

DESHD

;TEST

B1S
MOV
MOV

#HDSEL ,L.DA
L.DA,RLDA ?2)
L.BA,RLRA(R2)

JELSE INSERT HEAD O
:LOAD RLDA REG
:LOAD RLBRA

BIT
BNE
ggg

020444

#4,SUBSTK (R3)
R3,SSINDX

MoV
MOV
BiS
MOV
MOV
ADD
MOV
BIS

BEQ

3%:

40 HEADERS ARE READ AND STORED

(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ,INSERT THIS CALL

RO,={SP)

BIC

003116

SSINDX,R3

MOV
MoV
MOV

003022

R3,-(SP)

IN ERROR RETURN

;SET ERROR RETURN ADDRESS

?EA?RG%% HEADERS ROUTINE.

022756

SEQ N086

ERR8
ERRSWI]

003022

:
Q9%

.WORD
CLR
MoV
TST

000000

10:29

HEAD O

;YES - SKIP

#CRDYMSK ,RLCS (R2)
STEST IF CONTROLLER READY
6%
©YES -~ SKIP
PC.RDYCHK

*ELSE

CHECK READY

L.CS,RLCS(R2)

;LOAD RLCS REG

000000

6%:

MOV

000000

7%:

8IT
BNE
DEC
8NE

#CRDYMSK ,RLCS(R2) ;CHECK THAT OPERATION COMPLETED
13
SYES - SK]IP
RO
:DEC COUNT
7%
*SKIP IF NOT YET 0

MOV
ERRHRD

(SP)+,R3
10025.,.ERR1
C3ERHRD

MOV

JSR
JSR

TRAP

.WORD
.WORD

#77777 RO

PC,READRL
PC.WAITIN

10025
0

*SET COUNT FOR WAIT

;ELSE GET ALL REGISTERS
SELSE WAIT FOR TIMEQUT

SGET RESULT MESSAGE POINTER

b asd

NONN

b e

AN~

b \ VNN

CZRLNAQ RLO1/02 DRIVE TEST 3
17-DEC~79 10:22
CZRLNA .MA(

023216
023220
023224
023226
023232
023234
023234
023236
023240
023242
023244
023250
023252
023254

012070
005037

MACY11

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003022
8%:

003050

12%:

ERR1
ERRSWI]
65%

ERRHRD

12%
10026.
., .ERR6

TST
BPL

.WORD
.WORD
.WORD
CLR
BR

MOV

000002

003006

MoV

TST
BEQ
ADD

003022
000000

023322

:
99%

RTS
MOV
RTS

PAGE

T.CS

1-51

;CLEAR FOR ERROR RETURN
;TEST FOR ANY ERRORS
;NO - SKIP

10026

0
ERR6

ERRSWI

;CLEAR FOR ERROR RETURN

(R4)
, (R +
(R4), (R3)+
(R4), (R3)+

;STORE HEADER WORDS

65%

:DEC HEADER COUNT

#2,SSINDX
(SP)+ ,R4
(SP) +,R1
(SP)+,R0
(SP)+ ,R3
ERRSWI
99%
ERRSWI, (SP)

JREMOVE ENTRY FROM SUBROUT STACK
JRESTORE REGISTERS

a(SP), (SP)

GENERATE DATA ROUTINE.

;JTEST IF ERROR RETURN
;YES - SKIP

;ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

PATTERN TO BE GENERATED [S GIVEN

{z égSFgORD FOLLOWING THE

023324
023326
023330
023332
023336
023340

010146
010346
010446
012701
012504
006304
016403
011321
001421
021327
001416
020427
001403

DATGEN: MOV
MOV
MOV
MOV
MOV
ASL
MOV
MOV

004472
002364

BEQ
cMP
BEQ
CMP
BEQ

177777

000010
000020

3%:
000015
004472

004472

5%:

[
BLT
TST
MoV
MoV
MOV
MOV
BR
MOV
BR

SEQ 0087

CS$ERHRD

65%:

003022

.WORD
CLR
BR

TRAP

003022

10:29

R1,-(SP)
R3,-(SP)
R4 .,-(SP)
#0BUFF ,R1
(RS)+,R4
Ré4
PATTBL (R4) ,R3
ggB).(R1)+

(R3) ,#-1
5%

R4
. M16.

6%
(R3)+
(R3)+,(R1)+
(R3)+,(R1)+
#13. R4

CALL.

128 WORDS ARE GENERATED

;STORE REG.STERS

.SET POINTER TO OBUFF
;GET DATA PATTERN SELECTOR
cADJUST IT FOR INDEXING
;GET ADDRESS OF PATTERN
:MOVE FIRST PATTERN WORD
;SKIP IF PATTERN IS O
;CHECK IF PATTERN IS ALL 1°'S
JYES - SKIP
;TEST 1F PATTERN S
JYES - SK]IP
;CHECK IF PATTERN 9 OR 10
;NO - SKIP
;BUMP SOURCE POINTER
JMOVE TWO MORE WORDS FORM SOURCE

#0BUFF ,R3

;SET COUNT
JRESET POINTER

#OBUFF ,R3
7%

JELSE SET OBUFF
;GO TO FILL

AS PATTERN SOURCE

CZRLNAO RL01/02 DRIVE TE
ST 3
17-DEC~79 10:22
CZRLNA. MAC

023422
023424
023430
023432
3434
023436
023442
023446
023450
023452
023454
023456
023460
023462

005723
012704

MACY11

17-DEC=79
30A(1052)
GLOBAL SUBROUTINES

6%:
7%:
8%:

000017

BNE

004472
000160

10%:

DATCOM:

003006

000002
000004
003006

002410
002410

000001
003020

003010

004472
004072

000001
000200

5%:
7%:

001021
012701

010146
012746
013746
012746
012746

. 000901
003022

003010

:
9%

000200

MOV
DEC
BNE

+
(R3)

#15.,R4

(R3)+,(R1)+

#OBUFF ,R3
#112. R4
(R3)+,(R1)+
R4
108
(SP)+ ,R4
(SP)+,R3
(SP)
+ ,R1
RS

PAGE 1-52

;BUMP SOURCE POINTER
;SET MOVE COUNT

JMOVE 15 WORDS INTO BUFFER
sSET SOURCE O TOP OF OBUFF
:SET COUNT FOR REST OF BUFFER
JREPEAT PATTERN IN BUFFER
;RESTORE REGISTERS
JRETURN

DATA COMPARE ROUTINE. COMPARES THE CONTENTS OF IRUFF AND OBUFF.
ERROR REPORTING IS LIMITED BY SOF TWARE PARAMETER.
R3,-(SP)
MOV
;STORE R3
MOV
SSINDX R3
;GET SUBROUTINE STACK INDEX
TST
(R3)+
:BUMP INDEX TO NEXT ENTRY
MoV
2(SP),SUBSTK (R3) o INSERT THIS CALL
#4, SUBSTK (R3)
suB
;ADJUST IT TO CALLING LOCATION
R3.SSINDX
MOV
:STORE 1T BACK
MOV
R1,-(SP)
;STORE OTHER REGISTERS
MOV
R4 ,-(SP)
R5,=(SP)
MOV
#DATACMP
BIS
,OPF LAG ;SET DATA COMPARE FLAG
CLR
MORECE
;CLEAR MORE ERROR FLAG
MOV
WOBUFF ,RS
;SET POINTERS TO DATA FOR COMPARE
#IBUFF ,R4
MOV
#1,R3
MOV
;SET WORD COUNTER
#128. .R1
MOV
:SET COMPARE COUNT(R4)+,(RS5)+
CMP
: COMPARE DATA
108
BNE
JERROR - SKIP TO REPORT
INC
;BUMP WORD COUNT
DEC
DEC COMPARE COUNT
BNE
LOOP IF NOT 0O
#DATACMP ,OPFLAG CLEAR DATA COMPARE FLAG
8IC
ERRSWI
TEST IF ANY COMPARE ERRORS
15%
NO - SKIP
#128. ,R1
: SET REPORT VALUE

#FMT2? #TCERR ,MORE
CE ,#RESE6,R1

R1, -(SP)
#RESE6,-(SP)
MORECE ,~(SP)

010743
003020
007614
012037
000005
000014
000002

012601
012603

MOV
MOV

MOV
MOV
MOV
RTS

012603
012601
000205

010346
013703

TST
MOV
MOV
DEC

10:29

#TCERR,~-(SP)

NEMT27 ,~(SP)
#5,-(SP)

SP,RO
C$PNTB

003006

15%:

#14,SP
#2,SSINDX
(SP)+ RS
(SP)+ R4
(SP)+,R1

(SP)+,R3

JREMOVE ENTRY FROM SUBROUT STACK

JRESTORE REGS

SEQ 0088

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA
. MAC

24606
2407
2408
2409
2410
N
PL3

023662
023666
023670
023674
023676

005737

MACY11

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003022

TST

BEQ

003022
000000
003020

99%:

013734

10%:

024445

023734
023736
023742

003020

=(R4) ,~(R5)

TRAP

CSERHRD

.WORD

CLR
CMP

ERRSWI
(R4)+,(RS)+

.WORD

13%:

ERRSWI

99%

cMp

BGE

INC

B8R

PAGE

ERRSWI, (SP)
PC
a(SP), (SP)
PC
MORECE ,DCL IMwW

.WORD

003022

ADD
RTS
MOV
RTS
cMP

ERRHRD

104456

023463
000000
013464
005037
022425
000711
005237
000706

10:29

138

10035.,,ERR10

1-53

JTEST IF ERROR RETURN
JYES - SKIP
;ADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS
sTEST IF COMPARE EPRORS LIMIT EXCEEDED
;YES - SKIP

;SET PTRS BACK TO ERROR WORDS
sREPORT ERROR

10035

ERR10
7%

MORECE

;CLEAR ERROR SWIT(CH
;BUMP PTRS PAST ERROR WORDS
;DO NEXT COMPARE
;BUMP ERROR COUNTER
;DO NEXT COMPARE

SEQ 0C89

CZRUNAQ RLO1/02 DRIVE TEST 3
CZRLNA MAC
17-DEC-79 10:22

MACY11

30A(1052)

17-DEC-79
GLOBAL SUBROUTINES

2622
26423

10:29

PAGE 2

SEQ 0090

WRITE AND READ DATA ROUTINE.

023744
023752

012737
000402
005037
012737
023737
001006
005737
001403
052737
000403
012737

177777

003124

003124
000112
002306

003140
003110

#-1,TEMPT

sSET SPECIAL WRITE FOR TIMING FLAG

TEMP1
WWTDATA ,TEMP?7

;CLEAR SPECIAL WRITE FLAG
sSET FOR WRITE

DESHD
18
#BADADD
,OPF LAG
XREADG
#RDDATA, TEMP?7

;N0 - SKIP
;T ST IF HEAD 1 (BAD SECTOR FILES:
sNO - SKIP
;SET BAD ADDRESS FLAG
:SKIP TO EXECUTE
:SET FOR_READ

#4,SUBSTK (R3)

;ADJUST TO POINT TO CALL

;STORE OTHER REGISTERS

020444

R1,-(SP)
R4 ,-(SP)

PC,RDYCHK

;CHECK IF DRIVE READY

003040
003140
003036
002000
000004

#L.CS,R3
TEMP7, (R3)
RLDRV, (R3)

;GET ADDRESS OF LOAD REGS
:SET_COMMAND
¢ INSERT DRIVE NUMBER
;CLEAR FOR DRIVE 4 - 7 SPEC'D
STEST IF WRITE DATA
;YES - SKIP

003116
004000

003010

000114

003140

003006
000002
000004
003006

XWRITT: MOV
BR
XWRITE: CLR
XWRITT: MOV
CMP
BNE
TST
BEQ
BIS
1%:
B8R
XREAD:
MOV
XREADG: MOV

002410
002410

XWRIT1

?EMTU.CURCYL

#81710, (R3)
#gITZ.(R3)+
3

3s:

004472
003110
000007

4%:

5%:

#IBUFF,(R3)+
43
#OBUFF
, (R3)+

CURCYL
. (R3)

#7 R4

(R3)

003116
000100
003120
177600
003124
177777

7%:

#HSMSK
, (R3)
DESSEC, (R3)+
#177600, (R3)
TEMP1

004000

003010

173777
010645

003010

CYLINDER 255

(BAD SE()

R3,-(SP)
;STORE R3
SSINDX,R3
< SET SUBROUTINE INDEX
(R3)+
sBUMP TO NEXT STACK ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL

R3,SSINDX
RO,-(SP)

004072

sTEST IF

#177777,(R3)
#BADADD
,OPF LAG

sSTORE

IT BACK

;ELSE SET BA FOR READ

;SET BA FOR WRITE
sGET CURRENT CYLINDER
SALIGN IT IN DA

sTEST IF HEAD O
JYES - SKIP
:SET FOR HEAD 1

s INSERT DESIRED SECTOR

s INSERT WORD COUNT
;CHECK IF SPECIAL WRITE FOR TIMING
:NO - SKIP
;ELSE SET FOR 1 WORD TRANSFER
;TEST IF BAD ADDRESS FLAG SET
NO - SKIP

#~CBADADD ,OPFLAG ;CLEAR ALL BUT THIS FLAG
MMURTAB,
RS
sSET RESULT MESSAGE POINTER
, .ERR1
10032.

CSERHRD
60032

ERR1

CZRLNAO RLO1/02 DRIVE_TEST 3
CZRLNA .MAC
17-DEC-79 10:22

2474
2475
2476
2477
2478
2479
2480
2481

024232
024236
024240
024244
024250

17-DEC=79
30A(1052)
GLOBAL SUBROUTINES

003010
003012
003124

2482

014362

2484
2485
2486
2487
2488

005727
001010
004737

(5
(5
(5)
2489
2490
2491
2492
2493
2494
(4)
(5)
(5)
(5)
2495
2496
2497
2498
2499

023456
000000
012070

2483

MACY11

012603

2%:

000006
000004
000002
000000

10%:

003012

016224

104456

(4)

OPF LAG

;CLEAR ALL FLAGS

BNE
MOV

DONE
TEMP1

65%
(R3) ,RLMP (R2)

;CLEAR INTERRUPT FLAG
sCHECK IF SPECIAL WRITE FLAG SET

TST

643

-(R35 ,RLDA(R2)

-(R3) .RLBA(R2)
~(R3) .RLCS (R2)

#3000.
OONE
148
PC.WAITIN
(SP) +,R3
10030, ,ERR?
CSERHRD

003050

14$:

ERR1
643

#DRDYMSK, T.CS

208

#MDRDY ,R3

000062
016430

#50. ,R1
PC,GSTAT

#CAFDT R4

10032.,.ERRS
CSERHRD
60032

ERRS

17%:
003050

#DRDYMSK, T.CS

208

17%
#C5SEC,RG
10033., ,ERRS
CSERHRD
60033

011037

2504
2505
2506
2507

003022
003050

20%:

(4)
(5)
(9)

(5)
2508
2509

003022
000002

012603

SEQ 0091

CLR
BR
CLR

010124
011026

000001

(4)
(5)
(5)
(5)

PAGE 2-1

sYES = DO NOT START WRITE

;LOAD RL REGS

JWAIT 300MS FOR INTERRUPT

sCHECK IF INTERRUPT
;YES - SKIP
JWAIT FOR INTERRUPT
:GET RESULT MESSAGE

60030

000007

2500
2501
2502
2503

10:29

003006

648
65%:

ERRS
ERRSWI
T.CS

65%

10031., ,ERR6
CSERHRD
10031
0
ERR6
ERRSWI
#2,SSINDX
(SP) +,R4
(SP) +,R1
(SP) +,R0
(SP)+,R3

STEST

DRIVE

READY

;YES - SKIP
;SET RESULT MESSAGE
;CONDITION AFTER DATA XFER

;SET WAIT COUNT FOR 5 SECDS
;GET DRIVE STATUS
;TEST IF DRIVE READY NOW

;YES - SKIP

;DEC WAIT COUNT
;LOOP IF NOT TIME DONE
;SET CONDITION 5 SECONDS

sCLEAR ERROR SWIT(CH
;CHECK IF ANY ERROR
:NO - SKIP

;CLEAR ERROR SWIT(H
;REMOVE ENTRY FROM SUBROUT STACK

JRESTORE

REGISTERS

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA .MAC
17-DEC=79 10:22
2514
2515
2516
2517
2518
gggg

024470
024474
024476
024502
024504
024510

005737
001403
063716
000207
017616
000207

2521
2522
2523
2524
2525
2526
2527

024512
024514
024516
0264520
024524

010046
010146
010346
005037
012703

2529
2530
2531

026534
024536
024542

001005
012703
022713

2508

2532

024530

024546

022713

003022

TST
BEQ

003022

000000

998:

SCHK:
003024
003676

177777

024614

012737

000001

2548
2549
2550
2551
2552
2553
2554

024624
024630
024632
024634
024636
0264640
024644

020327
003342
012603
012601
012600
005737
001003

003676

2556
2557
gggg

024652
024654
024660

000207
017616
000207

2545 024612 000774

000403

2564
2565
2566
2567
2568
(8)
(7)

026662
024664
024670
024672
024676
024676
024702

010446
005737
001433
012704

99% :

PC
a(SP), (SP)
PC

REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCLE AND

RPTOP:

MOV
TST
BEQ
MOV
PRINTB
MOV

003024

012746
012746

000002
007504
011356

BEQ

B8R
B8R

ADD

:
:

003006

SCHECK IF ALL ONES

RTS
MOV
RTS

15%:

BNE
MOV
cTMP

#-1, (R3}

R3,#FBSFIL
2s
(SP)+ ,R3
(SP)+.R1
(SP)+.RO
BSFLAG
993

128:

2555 024646 062716 000002

2562
2563

o, o
BGT
MoV
MOV
MOV
TST
BNE

78:
8s:

208 :

2561

BAD SECTOR CHECK ROUTINE. CHECKS IF SECTOR SPECIFIED IN CURCYL,
DESHD, AND DESSEC IS LISTED AS BAD IN THE BAD SECTOR FILES.
MOV
RO,~(SP)
;STORE REGISTERS
MOV
R1.-(SP)
MOV
R3.-(SP)
CLR
BSFLAG
;CLEAR FLAG
MOV
#FBSFIL ,R3
“GET POINTER TO FACTORY FILE

#1 ,BSFLAG

003116

000000

;ADJUST FOR ERROR RETURN

MOV

5$:

003024

ERRSWI, (SP)
PC
a(SP), (SP)
PC

;TEST IF ERROR RETURN
JYES - SKIP
JELSF ADD IN ERROR RETURN

;BUILD HEADER OF ADDRESS IN QUESTION
*POSITION CYLINDER

A ¥

25646

ERRSWI
99%

NEWCYL RO
#7,R1
RO
R1
58
DESHD
78
#BIT6,RO
DESSEC RO
(R3)+,R0
12%
158

003106
000007

000100
003120

8
PAGE 2-2

MOV
MOV
ASL
DEC
BNE
TST
BEQ
BIS
BIS
cTMP
BEQ
BHI

013700
012701
006300
005301
001375
005737
001402
052700
053700
022300
001402
101005

001431

MOV
RTS

JNO SKIP TO TEST
*ELSE SET POINTER TO SOF TWARE FILF
SCHECK IF ALL ONES

28:

0c4550
024554
024560
024562
024564
024566
024572
024574
024600
024604
026606
024610

ADD
RTS

10:29

A 3
#SBSFIL ,R3
#-1, (R3)

003502
177777

2533
253%
2535
2536
2537
2538
2539
2540
2541
2542
2543
2564

2547 026622

MACY11 30A(1052)
17°-DEC=79
GLOBAL SUBROUTINES

208

#2,(SP)

JYES - EXIT

;CHECK IF HEAD 0
SYES - SKIP
*INSERT HEAD 1
*INSERT SECTOR
*CHECK THIS WORD IN FILE
*YES - EXIT,ERROR
SEXIT= NO ERROR
:SET ERROR FLAG

$GO TO EXIT

:DONE BOTH FILES?
*NO GO DO SOF TWARE FILE
JELSE RESTORE REGISTERS
:CHECK IF ERROR
‘YES - SKIP

*ELSE BUMP ERROR RETURN
;SET FOR CRROR RETURN

OPERATION BEING PERFORMED PORTION OF ALL
ERROR MESSAGES.

MOV

R&,-(SP)
SSINDX
1s
#2 R
#FM 5 #SEQMES
#SEQMES
, = (SP)
#EMT9,=(SP)

;TEST SUBROUTINE INDEX O
‘SKIP IF 0
JSET INDEXER TO FIRST ENTRY
:PRINT '‘SUBROUTINE CALL SEQ''

SEQ 0092

CZRLNAC RLO1/02 DRIVE TEST 3
17-DEC~ 79 10:2
CZRLNA. MAC
6)

(3)
(4)

(6)

2569
(8)
(7)
(6)
(3)
(4)

(4)

024706
024712
024714
024716
024722
024722
024726
024732
024736
024740

2570
2571
2572
2573

012746
010600
104414
062706

000002

016446
012746

002410
01153
000002

000006

3s:

(3
(4)
(4)

003040

1$:

;CHECK IF ALL PRINTED

33
cLOOP IF NOT ALL PRINTED YET
N#FMT4 ERHEAD ,#TSTLAB
;PRINT ERROR HEADER
N#TSTLAB,-(SP)

#SEEKOP'RORWOP,OPFLAG

L.CS,R?

#177741 .R1

#6.R1

003010

052737

020000

003010

016146
012746
012746
012746

002230
005517
011137
000003

2%:

:
208

22%:

;CLEAR SK € RD OR WRT FLAG

:GET COMMAND EXECUTED

*STRIP ALL BUT FUNCTION CODE

:TEST IF SEEK OPERATION

#SEEKOP ,OPF LAG

:NO - SKIP
ELSE

SET SEEK FLAG

#12.R1

STEST IF WRITE

#RORWOP ,OPFLAG

:SET RD OR WRT FLAG

208

2i4,R1

223

*NO - SKIP

*TEST IF READ

‘N0 - SKIP

#RORWOP ,OPFLAG
.SET RD OR WRT FLAG
#FMT1,#MOPER,OPMSGS
(R1) ;PRINT OPERATION

(R1) ,~(SP)
0PMSGS
#MOPER,
- (SP)
N#FMT1 ,~(SP)

#3,-(SP)
SP,RO
CSPNTB
#10,SP

000004

003044

003010

R1,#44

;CHECK IF GET STATUS

#DRSET,L.DA
43

316.R1

;TEST IF RESET INCLUDED
INO
= SKIP
sSET TO PRINT WITH RESET

#COMPOP ,OPFLAG

. TEST

000016

025176

BUMP INDEX

#10,SP

003010

020000
000014

003010
000020
000001

;PRINT CALLING LOCATION

SP,RO
CSANTB

003010

007777

#FMT16,SUBSTK
(R4)
,=(SP)
SUBSTK(R4)
N#FMT16,~(SP)
#2,-(SP)
SP,RO

ERHEAD ,~(SP)

010000
000012

000010

SEQG 0N93

NFMT4
- (SP)
#3,-(5P)

000010

2587
2588
2589
2590
259N

SP,RO
CSPNTB
#6,SP

R4 ,SSINDX

1777461

(4)
(4)

PAGE 2-3

#2 ,Ré4

006471
003016
011161
000003

000010

2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
(9
(8)
7)
(6)
(3)

CSPNTB
#6,SP

000006
000002

012746
013746
012746
012746

10:29

#2,~(SP)

003006

(9)
(8)
(7)
(6)

2592
2593
2594
2595
2596
2597
2598
2599
2600

17-DEC~79
MACY11 30A(1052)
GLOBAL SUBROUTINES

4$:

8$
OPFLAG,R4
#20,R1

#81700,R4
63
é21)*

;NO - SKIP

IF ANY OTHER OPERATION

INO - SKIP
;SET UP TO DETERMINE WHICH ONE
:PRESET THE POINTER
:CHECK THE BIT
;1F SET - SKIP
;BUMP POINTER

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA.MAC

2601
2602
(8)
(7)
(6)

(3)

(4)
(4)

2603
2604
2605
2606
(8)
(7)
(6)
(3)

025200
025202
025202
025206
025212
025216
025220
025222
025226
025234
025236
025242
025242

000772
016146

2607
2608
2609
2610
15)
14)

a3
(12)
11)
a0
(9)
(8)
(7)
(6)
(3)
4)

000050

016146
012746
012746
010600

002230
011153
000002

062706
000434
032737
001430

000006

(4)

2612
2613

(13)
(12)
an
ao
9)
(8)

(7)
(6)
(3)

003116
007445
003114
007440
003112
007432
003104
007463

062706
032737
001424

000024
020000

013746
012746
013746
012746
013746
012746

003120
007451
003116
007445
003110
007456
011726
000007

(4)
(4)

2614
2615
2616
2617
2618
2619
2620

025444
025446

025450

010000

013746
012746
013746
012746
013746
012746
013746
012746
012746
012746
010600
104414

2611

002230
011153
000002

012701

012604
000207

010146

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES
6$:

000006
100000| 003010

104414

(4)
(4)

MACY11

PRINTB

8$:
9s:

108:

MOV

#50,R1

PRINTB

MOV
MOV
MOV
MOV

#FMT2,0PMSGS(R1)

;TEST IF 40 HEADER OPERATION
‘N0 - SKIP

*ELSE PRINT IT

0PMSGS
(R1) ,=(SP)
#FMT2,-(SP)
L #2,-(SP)
SP.RO
CSPNTB

BIT
BEQ
PRINTB

NSEEKOP,OPFLAG
-TEST IF SEEK
158
‘NO
- SKIP
W#FMT13,#FRMWD, OLDCYL HMDIFWD ,DESDIF ,#SGNWD ,DESSGN, #HDWD,DE SHD

MoV

#SGNWD ,-€SP)

MOV

N#FRMID ,=-(SP)

B8R

MOV

TRAP

ADD
BIT
8EQ
PRINTB

MOV
MOV
MOV

15§

DFSDIF.-(SP)
ADIFWD
.~ (SP)
OLDCYL .~(SP)
#FMT13.-(SP)
#11,-(5P)
SP,RO

CSPNTB

#24 ,SP
#RORWOP,OPFLAG
:TEST IF READ OR WRITE SET
17%
;NO - SKIP
W#FMT22.,#CYLWD,CURCYL ,#HDWD ,DESHD ,#SECWD ,DESSEC

MCY
MOV

#7.,-(SP)

MOV
MOV
MOV
TRAP
ADD
JSR
g?g

;SKIP

DESHD, = (5P)
#HDWD
.~ (SP)
DESSGN, -(SP)

DESSEC.~(SP)
#SECWD
.~ (SP)
DESHD,~(SP)
#HDWD ,-(SP)
CURCYL ,~(SP)

MOV

RPTRES

#MHDR4O,0OPFLAG
108

#6,SP

MOV
MOV

178:

CSPNTB

ADD

MOV
MOV
MOV

158:

#6,SP

BIT
BEQ

SEQ 0094

#FMT2,0PMSGS
(R1)

ADD

MOV
MOV
MOV

003010

PAGE 2-4

0PMSGS(R1) ,=(SP)
NEMT2
= (SPS
#2,-(SP)
SP.RO

TRAP®

003010

MOV
MOV
MOV
MOV

TRAP

011377
000011

000020
026112

10:29

#CYLWD,~(SP)
NFMT22 ,-(SP)
SP.,RO
CSPNTB
#20,SP
PC, CLRPARM
égP)*.R4

:CLEAR PARAM TABLE
;RESTORE R4

REPORT REASON ROUTINE
PRINTS REASON PORTION FOR ALL ERROR REPORTS.
MOV
R1,-(SP)
;STORE R1

CZRULNAO RLO1/02 _DRIVE TEST 3
CZRLNA
. MAC
17-DEC~79 10:22

2621
2622
2623
2624
2625
(9)
(8)
(7)
(6)
(3)
(4)
(4)

2626
2627

025452
025454
0256456
025462
025464

025464
025466
025472
025476
025502
025504
025506

010346
010446
012701
012103
011146
012746
012746
012746

MACY11

30A(1052)

17-DEC=79
GLOBAL SUBROUTINES

MOV

MOV
MOV
MOV

003066

PRINTB

005526
011144
000003
000010
010516

025512
025516

011371

012346
012746
010446
012746
010600
104414

062706

012146
012746

010446
012746
010600

3%:

2641
2642

2646

025652
025654

MOV

MRESES,-(SP)

MOV

TRAP

R4, #RESE3, (R1)+
(R1)+,=(SP)

010731

(R1)+,-(SP)
#RESE4 ,-(SP)

000010

sCHECK IF REPORTING CYLINDER LOC
:NO - SKIP

;ELSE CHANGE TO FORMAT 12
;DEC _PARAM COUNT
JIF 0 - EXIT
JREPORT

R4, ARESE4, (R1)+

R4 ,-(SP)

SuUB

#2.R3

PRINTB

#FMT1,#RESES,(R1)+

MOV

#RESES
- (SP)

MOV

MOV
MOV
MOV

TRAP

ADD
MOV
MOV
MOV
RTS

CSPNTB
#10,SP

:DEC PARAM COUNT
IF 0 = EXIT

(R1)+.=(SP)

003037

BISB

;REPORT CONDITION

#EMT1.Z(SP)
#3,-(SP)
SP.RO
CSPNTB

#10,SP
(SP3+,R4
(SP)+.R3
(SP)+
R1

JRESTORE REGS

;RETURN

REPORT PHYSICAL ADDRESS OF
AND ALL REGISTER CONTENTS.

RPTREM: ngNTB

IS VALUE

JREPORT SB VAI.UE

#3,-(SP)
SP,RO

8EQ

6%:

;YES - SKIP REST OF REPORT
JPRISET FOR FORMAT 11

MOV
MOV

TRAP
ADD

010736
011137
000003

;TEST IF MESSAGE IS NO DRV STATUS

CSPNTB

MOV
MOV

MOV

JPRINT NAME

SP,RO

#10,SP

000003

;GET START OF PARAM
:GET NUMBER OF PARAM

~4,~(SP)

ADD

PRINTB

;STORE R3
s STORE R4

#3,-(SP)

000010

025656

(11) 025656
(11) 025660

é§15,cn~onsr

BEQ

DEC

SEQ 0095

#FMT1.1,#MRSLT,
(R1)

3
N#FMT12
R4
R3
68

MOV

000010
000002

012146
012746
012746
012746
010600
104414
062706
012604
012603
012601
000207

R4 ,-(SP)
#RESPARM,R1
(R1)+,R3

#FMT11 R4
(§1)+,IHCYLOC

MOV

000003

R3,-(SP)

MOV
CMP

MOV

PAGE 2-5

(R1) ,=(SP)
#MMRSL
T ,~(SP)
#FMTT.1,-(SP)
#3,-(SP)
SP,RO
(CSPNTB
#10,SP

PRINTB
MOV

010725

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

cMP

011363
010511

10:29

DEVICE UNDER TEST

#iggg.IBASADD,RLBAS,#DRVNAM,<B,RLDRV*1>
RLDRV+1, (SP)

CZRLNAQ RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA .MAC
10) 025664

(9)
£)
(r)

(6)
(3)
(4)
(&)

025670
025674
025700
025704
025710
025712
025714

2647
2648 025720
13 025720
12) 025724
an 025730
a0 025734
(9
025740
(8)
025744
(7)
025750
(6)
025754
(3)
025760
(4)
025762
(4)
025764
2649 025770
12) 025770
11) 025774
10) 026000
(9
(8)
(7)
(6)

(3)

012746
013746
012746
012746

MACY11

17-DEC=79
30A(1052)
GLOBAL SUBROUTINES
MOV
Mov
MOv
MoV
MoV

011172
000005

MOV

012746
012746
012746
012746
012746
010600

007445
007456
006245
006233
006240
006226
011212
000007

MOV

062706

000020

013746
013746
013746
013746
012746
012746
012740

003046
003042
003044
003040
006252

MOV
TRAP
ADD
PRINTB
MOV
MOV
MOV
MOV
MOV

000006

104414

(4)

011324

MOV
MOV

TRAP
ADD

000016

2650

(14)
13)
(12)
11)
10
(9)
(8)
(7)
026070
(6)
026074

013746
013746
013746

026100
026102
026104
026110
026112
026114
026120
026124
026126
026130
026132
026136

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MoV
MOV
MOV
TRAP
ADD

003116
003110
003056
003052
003054
003050
006265
011254
000010
000022

010546
012701
012705
005021
005305
001375
012701
012605

003066
000005

002066

8
PAGE 2-6

#DRVNAM,
- (SP)
RLBAS ,-(SP)
#BASADD ,~(SP)
WFMTS,-(SP)
#5,-(SP)

SP,RO

TRAP
CSPNTB
ADD
#14,SP
REPORT RL11 REGISTERS
PRINTB
#FMT6,#CSNAM,
#DANAM, #BANAM , #MPNAM, #CYLWD , #HDWD
MOV
#HDWD
, = (SP)
MOV
#CYLWD,=-(SP)
MoV
#MPNAM
, - (SP)
MOV
#BANAM
., - (SP)
MOV
#DANAM
- (SP)
MOV
#CSNAM,
- (SP)
MOV
W#FEMTG,-(SP)

000014

012746
0127646
012746

10:29

RTS

#7,-(SP)

SP,RO
CSPNTB
#20,SP
A#FMT8,#LAB1,L.CS.L.DA,L.BA,L.MP
L.MP,~(SP)
L.BA,-(SP)
L.DA,~(SP)
L.CS,-(SP)
#LAB1,~(SP)
#6,-(SP)

NFMT8,-(SP)
SP,RO

CSPNTB
#16,SP
A#FMT7 ,#LAB2,T.CS,T.DA,T.BA,T.MP, CURCYL,DESHD
DESHD,-(SP)
CURCYL,~(SP)
T.MP,-(SP)
T.BA,-(SP)
T.DA,~(SP)
T.CS -(SP)
#LAB?,=(SP)
WFMT7,<(SP)

#10,-(SP)
SP,RO
CSPNTB

#22,SP

CLEAR PARAMETER BLOCK FOR REPORTING
R5,<(SP)
;STORE RS
MOV
#RESPARM,R1
;GET ADDRESS OF BLOCK

CLRPARM: MOV
2%:

MOV
CLR
DEC
BNE

MOV
MOV

#5,R5
(R1)+
RS
2%

#RESPARM ,R1
(SP)+,R5

sSET COUNT
:CLEAR WORD
sDEC COUNT
JLOOP UNTIL O

JRESET POINTER
;RESTORE RS

SEQ 0096

CZRLNAQ RLO1/02 DRIVE _TEST 3
CZRLNA . MAC
17-DEC-79 10:22

2662
2663
2664
2665

026140
026142

MACY11

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

000207

RTS
ENDMOD

10:29

PAGE 2-7

SEQ 0097

CZRLNAO RLO1/02 DRIVE_TEST 3
17-DEC-79 10:22
CZRULNA MAC

MACY11

026142

026142
026142
026142

026150
026154
026156
026156
026162
026166
026172
026174
026176
026202

30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

10:29

006664

005737
001014

003474

012746
012746
012746
010600
104417
062706

000137
004737
004737
030052
012700
012701
005020
005301
001375
005037
005037
004737
030052
012701
004737
030052
004737

CZRLNAO RLO1/02 DRIVE TEST 3

BGNMOD

HRDWTST

.SBTTL

*TEST

004737
030052
013762
013762
010046

005737
001011

SEQ 0098

**SEEK TIMING

;TEST 1

T1::

#P2T12E ,ERHEAD

;SET ERROR HEADER

007750
011356
000002

#FMT9 ANOTST1
ANOTST1,-(SP)
NHFMT9,-(SP)
#2,~(SP)

cELSE, PRINT MSG. "TEST 1 CANNOT BE PERFORMED...

000006

#6,SP

030052

016362

003016

MOV

s CHECK F?R PRESE NCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE
CLKFLC
:P=CLOCK?
33
¢BRANCH TO PERFORM TEST IF P-CLOCK IS PRESENT

SP,R0O
CSPNTF

65%

3%:

016400

003144
000030

PC,TSTINT
PC,GSTATR

#0F IN,RO
#24. R
+
(RO)
R1
4

A X

003236
003106
017326

65%

005670
022222

022634
020720
003154
003156
003170
003172
000001

042737

8
PAGE 2-8

.TITLE

BGNTST

012737

002000
017316

003044
003040
00301¢

;/P=CLOCK

JEXIT TEST

IS NOT AVAILABLF''

JINITIALIZE

:CLEAR DRIVE

TEST

;GET ADDRESS OF 1ST TIME VALUE
;SET COUNT FOR CLEAR
;CLEAR TIMER STORAGE

PASCNT
NEWCYL
PC,XSEEK

;CLEAR PASS COUNTER
;POSITION HEADS AT 0
;DO SEEK

#3000. ,R1

PC,RDYWAIT

;SET WAIT FOR 300 MS
;WAIT FOR READY

PC.,VERPOS

sVERIFY POSITION

PC, CHOSHD

;GO CHOSE HEAD
;SET PTRS FOR 1

#OF OUT ,RO

#OFOUTU,R1

CYL FWD OUTER TIMER

#OROUT ,R3

003106
003240
003142
003142
003142

000004
000000

#OROUTU,
R4

21, NEWCYL

#128.
, COUNT

8%:

:
9%

#RDHE
, TEMP8
AD
RLDRV, TEMPS

#81710, TEMPS

65%

WA]TUS

sSET NEWCYL TO CYL 1
;SET COUNTER FOR SEEK LOOP
;BUILD READ HCADER COMMAND

PC ., XSEEKT

;DO SEEK BUILD BUT DO NOT START

L.DA,RLDA(R2)

sJLOAD RL REGISTERS

L.CS.RLCS(R2)
RO, =-(SP)

#10.

DONE
17%

;STORE RO
;WAIT FOR

;TEST IF

INTERRUPT

JYES - SKIP

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA
. MAC
17-DEC-79 10:22

004737
012603

2716
2717
2718

104456
002261
000000
012070
000137
005737

(4)
(5)

(5)
(5)

2719
2720
2721
2722

100006

2737

2738
2739
2740

27461

2762

2763
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763

30A(1052)

016224

030052
003050

17%:

026516
026530
026540
026542
026550
026554
026556
026562

026564
026566
026570
026572
026574
026576
026602
026604
026610
026612

030052
003012

013762

003142

012600
013737
004737
030052
005737
001403
060510
005511
000402
060513
005514
005337

003142
022634

14%:

000000

PC,WAITIN
(SP)+,R3

WORD
WORD
.WORD
JMP

1201
O
ERR1
65%

ERRHRD

1202 ,,ERR6

TST
BPL

0C3240

16%:

000470
000470
000006

18%:

10%:

003236

000177
000001

003106
002302

000377

003106

SEQ 0099

JWAIT

FOR

INTERRUPT

sGET MESSAGE POINTER

CSERHRD

T.CS
149

;CHECK IF ANY EFRORS
;NO - SKIP

CSERHRD

TEMP8 ,RLCS (R2)

WAITUS
GETTIM
MOV

#2000.
RS
(SP)
+ ,RO

JSR

PC.,VERPOS

TST

DESSGN

DONE

TEMP8,L.CS

;CLEAR INTERRUPT FLAG
sSTART P=CLCCK TO INITIATE MEASUREMENT
;/0F TIME INTERVAL
;LOAD RL11 CONTROL AND STATUS REGISTER
;/TO INITIATE SEEK OPERATION
;WAIT FOR

INTERRUPT

;GET ELAPSED TIME

JRESTORE RO
;SET IF ERROR TO REPORT
;VERIFY POSITION

ADC
BR
ADD

(R1)
16%
RS, (R3)

cCHECK WHICH SEEK DIRECTION
;REVERSE - SKIP
;ADD TO FORWARD TOTAL
;ADD IN OVERFLOW
;SKIP
;ADD TO REVERSE TOTAL

DEC

COUNT

;DEC SEEK COUNT

cELSE SWAP OLD AND NEW CYL
;REDO SEEK LOOP
;SUB CONSTANT FOR READ HEADER TIME

AEC

15%
RS, (RO)

(R4)

BEQ
JSR

18%
PC,ONSWAP

SuB
S8
MoV
CLC

#312..(RO)
#312.,(R3)
#6 ,R5

B8R

ROR
ROR
cLC
ROR

ROR
DEC
BNE

003236
000001

1201., ,ERR1

Mov

CLR
STCLK

8EQ
ADD
15%:

PAGE 2-9

1202
O
ERR6
65%

65%

003114

.WORD
.WORD
.WORD
JMP

mMov

003040

021004

005237
022737
001051
012737
022737
001403
012737

JSR
MOV
ERRHRD

TRAP

005037

10:29

*«SEEK TIMING

TRAP

002262

026510

17-DEC~79

«TEST 1

104456

(4)
(5)
(5)
(5)

2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736

MACY11

INC

CMP
BNE
MOV
CMP
BEQ
MOv

(R1)
(RO)

:ADD

IN OVERFLOW

;SKIP IF O

;SET SHIFT COUNT TO DIVIDE BY 64

;DIVIDE BOTH TOTALS BY 64

(R4)

(R3)
RS
10$

PASCNT

#1,PASCNT
24%
#127. NEWCYL
#1,T.DRIVE
101%
#255. ,NEWCYL

;BUMP
JTEST
;NO JELSE

PASS COUNT
IF PASS 1
SKIP
SET TO POSITION HDS TO 127

;DRIVE = RLO1?

JYUP

JNO - SET FOR A MID POS SEEK RLOQ?

CZRLNAO RLO1/02_DRIVE _TEST 3
17-DEC-79 10:22
CZRLNA
. MAC
2764

2765

2766
27u?
2768

2769
. 2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783

026706
026712
026714
026720
026724
026726
026732

004737

MACY11

017326

30A(1052)
*TEST

101%:

005670
022222

2784

003106

002312
017326

003106

003236

102%:

24$:

003144
003146
003160
003162
002306
026326
000003

0031C/

JSR

PC,VERPOS

JVERIFY POSITION

MOV
MOV
MOV
MOV

#OFMID ,RO
#0FMIDU ,R1
#ORMID ,R3
#ORMIDU
R4

JSET PTRS FOR TIMING 1

MOV
CMP
BEQ
MoV
JMP
cMP
BNE

003236

28%:

003106
002302

000252

003106

000004

003236

000252
000001

003106
002302

sSET FOR RLOZ

;DO SEEK LOOP

JTEST IF PASS 2

:NO - SKIP

JSET UP TO TIME 1 CYL SEEK AT INNER
LImiT
;

PC,VERPOS

;VERIFY POSITION
;SET POINTERS

MOV
MOV

#OF IN,RO
#OF INU R

HORIN,R3
#ORINU,R4

JMP
cMP
BNE

8%
#3,PASCNT
32%

:NO - SK]P

PC.XSEEK

;

MOV

32%:

;RLO1?

JYUP

JSET WAIT COUNT FOR 300 MS

CLR

003200
003202
003210
003202
000125
000001

NXTHL ,NEWCYL
PC.,XSEEK

JSET NEWCYL TO 128

#3000. ,R1
PC.RDYWAIT

JSR
65%
MOV
JSR
65%
JSR
65%
MOV

022634

#128. NEWCYL
#1,T.DRIVE
1028
#256. NEWCYL
8%
#2 ,PASCNT
28$

CYL SK AT 127

MOV
JSR
65%
JSR
65%
MoV

MOV

005670
022222

001403

;SET WAIT COUNT FOR 300 MS
;WAIT FOR READY

MOV

003106
017326

027236

PC.KDYWAIT

65%

022634

SEQ 0100

#3000. ,R1

MoV
JSR

005670
022222

PAGE 2-10

;DO SEEK

65%

000400
026326
000002

PC.XSEEK

JSR

65%
MOV

65%

003106
002302

10:29

*xSEEK TIMING

JSR

022634
003150
003152
003164
003166
000200
00C001

17-DEC-79

MoV
MoV
MOV
cMp
BEQ
MOV
BR
cMP
BNE
MOV
CMP
8EQ

HLMTW NEWCYL

NEWCYL

:WAIT FOR READY

;LOAD NEW CYLINDER

;DO SEEK LOOP

JTEST IF PASS 3
;ELSE SET UP TO TIME 85/170 CYL SEEK
AT OUTER LIMIT

#3000. ,R1
PC.RDYWAIT

;SET WAIT COUNT FOR 300 MS

PC.,VERPQOS

;VERIFY POSITION

#HF OUT RO

;SET POINTERS

#HFOUTU
R

#HROUT ,R3
H#HFOUTU
R4
#85. NEWCYL
#1,T.DRIVE
39%
#170. NEWCYL
398
#4 PASCNT
36$
#170. NEWCYL
#1,T.DRIVE
321%

;WAIT

FOR DRIVE READY

;LOAD NEWCYL FOR 85 CYL SEEK
;RLO1?
JYUP
;NO - SET FOR RLO2
;TEST

PASS 4

;NO - SK]P
JELSE SET UP TO TIME 85 (YL SEEK

JRLO1?
JYES

CZRLNAO RLG1/02 _DRIVE TEST 3
17-DEC-79 10:22
CZRLNA
. MAC

02724C
027246
027252
027254
027260
027264
027266
027272

012737
004737
030052
012701
004737
030052
004737
030052

MACY11 30A(1052)
*TEST 1

8
PAGE 2-11

SEQ 0101

**SEEK TIMING

#3471, NEWCYL
PC,XSEEK

. AT INNER LIMIT

005670
022222

MOV

#3000. ,R1

sSET WAIT COUNT FOR 300 Ms

022634

ggg

PC,VERPOS

:VERIFY POSITION

003174
003176
003204
003206
002306

MoV

#HF IN,RO

;SET POINTERS

003106

MOV
MOV

#HRIN,R3
#HRINU,
R4

000005

003236

BNE
CLR

408
NEWCYL

321%:

égg

ggg

MOV

36$:

003106
017326

MOV
B8R
cMP
ggg

PC.RDYWAIT

#HF INU,R1

sJNO - SET FOR RLOZ

;WAIT FOR READY

HLMTW, NEWCYL
398
#5 PASCNT

JSET NEWCYL TO 255/511 FOR 85/170 CYL SEEK
;DO TIMING LOOP
STEST IF PASS 5

PC.XSEEK

:NO - SKIP
JELSE SET UP TO TIME 256/512 CYL SEEK
OVER ALL SURFACE

005670
022222

MOV

#3000. ,R1

;SET WAIT COUNT FOR 300 MS

022634

égg

PC.VERPOS

;VERIFY POSITION

003214
003216
003220
003222
002306
026326

MOV
MOV
MOV
MOV
MOV
JMP
PRINTF

HAFMID ,RO
;SET POINTERS
#AFMIDU,R1
#ARMID ,R3
#ARMIDU ,R&
HLMTW,NEWCYL
SSET NEWCYL
8%
#FMT1.71,#SKTMES ,#VALDES

MOV
MOV
MoV

AFMT1.1,~(SP)
#3,-(SP)
SP,RO

égg

003106

39%:

40%:

012746
012746
012746
012746

007117
007063
011144
000003

062706

000010

ADD
EEANTF

003037

81S8

005046
153716
012746
013746

10:29

MoV

000525
017326

003106

17-PEC-79

012746
012746
012746
010600
106417
062706

000014

012746
012746
012746
012746
012746
012746

007176
007170
007161
007153 011564
000005

MOV
MOV

TRAP

PC,RDYWAIT

CSPNTF

#10,SP
#ig;;,IBASADD,RLBAS,#DRVNAM.(B.RLDRV*1>

RLDRV+1, (SP)

#DRVNAM,
- (SP)
RLBAS ,=(SP)
#BASADD ,-(SP)

MOV

SP,RO

TRAP
ADD
PRINTF
MOV
MOV

MOV
MOV

FOR DRIVE READY

AVALDES ,~-(SP)
#SKTMES ,-(SP)

MOV
MOV
MOV

MOV
MOV

;WAIT

#FMTS ,-(SP)
#5,-(SP)

CSPNTF
#14,SP
#FMT18,#LABIN,4#LABMID
,#LABOUT ,#LABEXP
#LABEXP,~(SP)
#LABOUT ,-(SP)
#LABMID,-(SP)
#LABIN,-(SP)
HFMT18,-(SP)
#5,-{SP)

CZRLNAO RLO1/02 DRIVE_TEST 3
17-DEC-79 10:22
CZRLNA.MAC

(3)

(4)
(4)

2853

12)
Aan
(10)
(9
(8)
(7)
(6)
(3)

(4)
(4)

2854
12
1)
10)
(9)
(8)
)
(6)
(3)
(4)
(4)

2855

an
10
(9
(8)
(7)
(6)
(3)
(&)
(4)

2856

11)
10
(9
(8)
(7)
(6)
(3)
(4)
(4)

2857
10)
(9)
(8)
(7)
(6)
(3)
(4)

027542
027544
027546

010600

104417

000014

013746
013746
013746
013746
012746
012746
012746

003224
003154
003150
003144
007207

013746
013746
013746
012746
012746
012746
010600

003226
003200
003174
007233
011653
000005

062706

000014

013746
013746
013746
012746
012746

003226
003210
003204
007247
011653
000005

000014

003230

OFMID,=(SP)

OF IN,~(SP)
#LABOCF ,-(SP)

CSPNTF

EXOCYL,~(SP)
OROUT, ~(SP)
ORMID,~(SP)
ORIN,=(SP)

#LABOCR,~(SP)

HFMT19,-(SP)
#6,-(SP)

SP,RO
CSPNTF

HFMT20 , #LABHCF ,HF IN,HF OUT ,EXHCYL
EXHCYL ,=(SP)
HFOUT ,=(SP)

HF IN,~(SP)

#LABHCF ,~(SP)

RFEMT20,-(SP)
#5,-(SP)

SP,RO

CSPNTF

#4,SP
#FMT20 , #LABHCR ,HRIN,HR
,EXHCYL
OUT

EXHCYL ,~(SP)

HROUT ,=(SP)
HRIN,=(SP)
#LABHCR,~(SP)
#FMT20,-(SP)
#5,~(SP)

SP,RO
CSPNTF

#14,SP
#FMT21 ,#LA
,AFMID
BACF
,EXACYL

EXACYL,=(SP)

AFMID,-(SP)

#LABACF ,=(SP)

#FMT21,-(SP)

#4,=(SP)

000012
013746

#14,SP
#FMT19
,OF,#LABO
IN,OFMID,OF OUT ,EXOCYL
CF
EXOCYL,~(SP)
OFOUT ,=(SP)

#16,SP
#FMT19,#LABOCR,ORIN,ORMID,OROU
,EXOCYL
T

000016

(4)

2858
ao

SP,RO
CSPNTF

000016

062706

013746
013746
012746
012746
012746

NFMT19,-(SP)
#6,-(SP)

003224
003170
003164
003160
007221
011616
000006

104417

*TEST

17-DEC-79
10:29 PAGE 2-12
*«SEEK TIMING

011616
000006

013746
013746
013746
015746
012746
012746
012746
010600
104417

30A(1052)

MOV

062706

010600
104417
062706

MACY11

003230

SP,RO
CSPNTF

#12,SP
NFMT21 #LABACR,ARMID
EXACYL
EXACYL ,=(SP)

SEQ 0102

CZRLNAO RLO1/02_DR.VE _TEST 3
17-DEC~79 10:22
CZRLNA.MAC
(9)

(8)
(7)

013746

(6)
(3)
(4)
(4)

2859
2860
(3)
3

MACY11

30A(1052)
*TEST

003220
007277
011703
00000
000012

MOV
MOV

Mov

MOV
MOV

65%:

ARMID ,~(SP)

#LABACR,-(SP)

#FMT21,~(SP)

#6 ,-(SP)

SP,RO
CSPNTF

TRAP
ADD

#12,SP

TRAP

CSETST

ENDTST

104401

L10023:

17<-DEC-79
10:29
PAGE
s«SEEK TIMINC

2-13

SEQ 0103

CZRLNAO RLO1/02 DRIVE _TEST 3

CZRULNA.MAC
2862
2863
(3)
2864
2865
2866
2867
2868
2869
2670
2871
2872
2873

(3)
(3)
2874
2875
2876
2877
2878
2879
2880
2881

2882
2883

2884
2885
2886

2887
2888
2889
2890
2891
2892
2893
28%4
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
291C
2911
2912
2913
2914

030054
030054
030054
030062
030066
030072
030074
030102
030110
030112
030116
030120

030120
030122
030124
030132
030136
030140
030144
030150
030152
030156

030160
030164

030172
030200
030206

030212
030216
030222

030226
03232

17-DEC-79 10:22

012737
004737
004737
030542
012737
032737
001405
005737
001002
104432
000446
013737
004737
030542
012701
004737
030542
004737
030542

005037
012737

012737
112737
105037

005037
013701
013700

012703
012737

004737
030416
005723

030254
030256
030260

100514
005723
001112
005723
001110
021327
001004
012737
000403
005737
001076
012311
012705
006311
005305
001375
032713
001402

030262
030264
030266
030272
030274
030302
030304
030310
030312
030314
030320
030322
030324
030326
030332

30A(1052)

*TEST 2

.SBTTL
BGNTST

030240
030244
030246
030250
030252

MACY11

006676
016362
016400

003016

000001
010000

003116
013722

003106

2%$:

005670
022222
022634

003120
003676

000020
000001
003450
003130
003134
(03136
004072
000002
024014

003134
003136
003451

4%:

003022

100516
005723

7$:

177777
000001

8%:
003130

003130

108 :
118:

000007

12%:

000400

——

10:29

8
PAGE 2-14

SEQ 0104

*«BASIC READ DATA (BAD SECTOR FILE)

+TEST 2
MOV
JSR
JSR
65%
MOV
BIT
BEQ
TST
BNE
EXIT

013730

002306
017326

17-DEC-79

TRAP
.WORD

MOV
JSR
65%
MOV
JSP
653
JSR
65%
CLR
MOV
MOV
MovB
CLRB
CLR
MOV
MOV
MOV
MOV
JSR
39%
TST
BMI
TST
BMI
TST
BNE
TST
BNE
cMP
BNE
MOV
BR
TST
BNE
MoV
MoV
ASL
DEC
BNE
BIT
BEQ

——
-

*+«BASI(C READ CATA (BAD SECTOR FILE)

JTEST 2

#P2T13E ,ERHEAD
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
INITIALIZE TEST
;CLEAR DRIVE

#1,DESHD
AHEADLM MISWIW
2%
HEADW
2%
TST

sSET TO HEAD 1
TEST IF HEAD SPEC'D
:NO - SKIP
sTEST IF HEAD 0O
;NO - SKIP
JELSE EXIT TEST

CSEXIT
L10024-.
HLMTW NEWCYL
PC.XSEEK

T2::

;POSITION HEADS AT 255
;DO SEEK

#3000. ,R1
PC.RDYWAIT

;SET WAIT COUNT FOR 300 MS
;WAIT FOR INTERRUPT

PC,VERPOS

JVERIFY POSITION

DESSEC
W#FBSFIL,TEMPS

;SET FOR SECTOR 0
»
;SET TEMP STORAGE FOR FACTORY BS FILE

TEMP3
TEMPS5,R1
TEMP6,RO

;CLEAR ONES DETECTED FLAG
;INIT POINTERS

#16.,TEMP6
#1 ,NOERCT
LOCERR

sSET MAX SECTOR COUNT
;SET FOR NO ERROR COUNTING
;CLEAR LOCAL ERROR COUNTER

#IBUFF ,R3
#2 ,ERRSWI

;INIT ERROR SWITCH
;DO READ

PC . XREAD
(R3)+
45%
(R3)+

JTEST IF WORD O NOT NEG
;YES, BAD FMT ERROR
SELSE TEST WORD 1 NOT NEG
;YES - BAD FMT ERROR REPORT
sTEST WORD 2 IS O
)
sNO - SKIP TO FMT ERROR RPT
;TEST WORD 3 IS O
;NO - SKIP TO FMT ERRORTMRPT
JTEST IF NEXT WORD IS ALL 1°'S
:NO - SKIP
JELSE SET 1°'S DETECTED FLAG
;SKIP
;TEST IF ONES HAVE BEEN DETECTED
;YES = SKIP TO FMT ERROR RPT
;STORE CYLINDER WORD
JALIGN IT TO LOOK LIKE HEADER

45%
(R3)+
45%

(R3)+
45%
(R3) ,4-1
108
#1,TEMP3
11%
TEMP3
45%
(R3)+,(R1)
#7 RS
(R1)
RS
12%
#8118, (R3)
15%
W

——

;TEST IF HEAD 1
;JNO - SKIP
.

CZRUNAO RLO1/02 DRIVE [EST 3
17-DEC-79 10:22
CZRLNA .MAC

052711

«TEST

000100

177400

15%:

004472

000044

C03136

003502
000044
000024

003134
003136
003120

003450

177777

152504

37%:

398

:
408

104420

103667

003120

00336

41%:

006033
003450

BIS

BIC

BIS

000642
012703

006063

43%:
(5%

104456
002426

012703

006110

48%:

104456

002427
000000

003244

003022

005500

65%:

B8CS

BNE
MOV

438
:
#MBADSF ,R3

DESSEC, TEMP6

LOCERR

1301.,.ERR1

TRAP

CSERHRD

WORD
.WORD
cTMP

O
ERR1
#SBSFIL,TEMPS

ADD

¥4, DESSEC

MOV

#MMEMTER,R3

BEQ
BR

B8R

ERRHRD

LWORD
WORD
.WORD
BR

658
378

1302. . ,ERR1

1302
O
ERR1
39¢

TRAP

CSERHRD

1303.
., .ERR1

.WORD
8R
MOV
MOV

1303
0
ERR1
408
#2 . ERRSWI
#1.BSFVAL

BEQ
INC

668
ERRCNT

TRAP

(SETST

LOCERR

ENDTST

L1002¢4:

sCHECK 1F SOF TWARE BAD READ
;YES - SKIP
ELSE CHANGE POINTERS
MAX SECTOR NUMBER
SECTOR NUMBER START

:DO READ
;BUMP LOCAL ERROR COUNTER
s MOV
1'S INTO FILE STORAGE
sCHECK IF IN ERROR LOOP
;YES - GO DO READ
sCHECK IF ALL SECTORS READ

:NO - SKIP
:SET RESULT MESSAGE POINTER
:BUMP LOCAL ERROR COUNTER

sTEST IF SOFTWARE FILES CHECKED
SYES - EXIT
;ELSE GO CHECK SOFTWARE FILES
;BUMP TO NEXT SECTOR
;GO DO READ
sSET RESULT MESSAGE POINTER

CSERHRD

MMTMBS ,R3

ERRHRD

s INSERT HEAD BIT
sCLEAR ALL BUT SECTOR
s INSERT SECTOR NUMBER
sCHECK IF IBUFF EMPTY
sNO GET NEXT CYLINDER
cELSE TEST IF 1'S DETECTED
:TO MANY ERRORS = REPORT

1301

MOV

TSTB

66$%:

(R3)+, (R1)+

MOV
#-1,3TEMPS
INLOOP
TRAF
CSINLP
BCOMPLETE
43

.WORD
WORD

000002
000001
003450

(R1)

#177400, (R3)

TM
BEQ
MOV
MOV
MOV
BR
INC

TRAP

000000

#BITE,

rsnps
488
#36.
, TEMPG
658
#SBSF
IL , TEMPS
#36.
, TEMP6
#20. ,DESSEC
4
LOCFRR

INC

003120

PAGE 2-15

R3 #1BUFF+256.

ERRHRD

003134

.WORD

003502

10:29

**BASIC READ DATA (BAD SECTOR FILE)

BNE
3
BEQ

003130

012737
000676
005237
012777

17-DEC~79

MACY11 30A(1055)

;GO CHECK FOR LQOP
;SET RESULT MESSAGE PTR

;GO CHECK FOR LOOP
JINIT ERROR SWITCH

;SET BAD SECTOR FILES VALID FLAG
sTEST IF LOCAL ERRORS
:NO - SKIP

;ELSE BUMP ERRIR COUNT

SEQ 0105

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA.MAC
17-DEC~79 10 :22

MACY11

30A(105§)
«TEST

.SBTTL
BGNTST

003016

17-DEC-79
*TEST 3

006712
021030
016362
016400

004737

020720

004737

017326

004737

005670
022222

MOV

004737

022634

005037

030676

JSR
73065%
CLR

MOV
JSR
JSR

JSR
73065%
JSR
CLR
CLR
CLR
JSR
13065%

JSR

13065%

T307%:
BGNSUB

PAGE 2-16

**WRITE/READ DATA

012737
004737
004737
004737

T306$:

10:29

TEST

*«WRITE/READ DATA

#P2T14E ,ERHEAD

SEQ 0106

(PART 1)
(PART

;SET ERROR HEADER

‘GO CHECK IF BAD SECTOR FILES VALID
YINITIALIZE TEST
*CLEAR DRIVE

PC, CHOSHD *
DESSEC
NEWCYL

;GO CHOSE HEAD
:
SECTOR 0
CYLINDER 0

13108

" CLEAR PATTERN SELECT

#3000. ,R1

;SET WAIT COUNT FOR 300 MS

PC,VERPOS

:VERIFY POSITION

77108

;CLEAR PATTERN SELECTOR

PC.XSEEK

*POSITION HEADS

PC.RDYWAIT

‘WAIT FOR READY

T3.1:

C$85UB
RS ,DATGEN
0

;GENERATE DATA
*PATTERN SELECT WORD

023324

004737

024014

PC.XREAD

:DO READ DATA

004737

023464

PC,DATCOM

:COMPARE DATA

#2,ERRSWI

;INIT ERROR SWITCH

030722
012737

023754

000002

003022

60%:

ENDSUB

L10026:

104403

PC,XWRITE

‘DO WRITE

CSESUB
TST

104410

;EXIT

CSESCAPE

L10025-.

022737

000010

005237

030676

004737

020744

005037
004737

030676
024512

11s:

PC.BSCHK

005237

003106

13%:

NEWCYL

030676

10%:

T13065%$:
ENDTST

L10025:

PC, CKBSVD
PC.TSTINT
PC.GSTATR

004537
000000
004737

T310%:

TEST

DATA

ERROR

#8..73108
108

73108
7307%
PC., SWAPHD

:WAS DATA PAT 8 USED?
cYES - SKIP\:
;ELSE BUMP TO NEXT PATTERN
;DO TEST WITH NEW PATTERN
;GO SWAP TO HEAD 1 OR END TEST

73108

sSET PATTERN SELECT TO O

1306%
118

CSETST

;ABORT RETURN

;CHECK IF SECTOR BAD
sYES RETURN ~ SKIP TO 13$

;NO RETURN - DO TEST THIS SECTOR
:BUMP TO NEXT CYLINDER

;CHECK IF

THIS ONE BAD

CZRULNAO RLO1/02 DRIVE TEST 3
CZRUNA .MAC
17-DEC-79 10:22

3004
3005
(3)

3006
3007
3008
3009
3010

031006

012737

006733

031014
031020
031022

005737
001014

003474

012746
012746
012746
010600
104417
062706

010036
011356
000002

3012
(3)
(3)
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042

031046
031046
031050
031052
031054
031056
031062
031066
031070
031074
031076
031102
031106
031114
031120
031122
031126
031132
031134
031140
031142
031146
031152
031156
031160
031164
031170
031174
031200
031212
031216
031220
031224

(4)
(5)
(5)
(5)

031226
031230
031232
031234

3044
3045

3046

LSBTTL
BGNTST

031006

031022
031026
031032
031036
031040
031042

3043

«TEST &

031006

(8)
(7)
(6)
(3)
(4)
(4)

2011

MACY11 30A(1052)

031226

031236
031242

031246

104432
000542
005003
005004
004737
004737
031604
004537
000000
005037
004737
013737
004737
031604
012701
004737
031604
004737
031604
012701
012705
004737
031604
011562
014562
014562
014562

005737
001011
004737

012603
104456
002735
000000
012070

000137
005737
100006

003016

3s:
016362
016400
023324

003106

005670

022222

022634
000100
003046
023744

5%:

000006
000004
000002
000000

003012
016224

**ROTATIONAL

«TEST 4

JTEST 4

9
PAGE 2-17

SEQ 0107

TIMING

*«ROTATIONAL TIMING

MOV
MC/
MOV
MOV
TRAP
ADD

#NOTST4 ,-(SP)
#FMT9,-(SP)
#2,~-(SP)
SP RO
CSPNTF
#6,SP

EXIT
TRAP
LWORD
CLR
CLR
JSR
JSR
608
JSR
0
CLR
JSR
MOV
JSR
603
MOV
JSR
60%
JSR
60%
MOV
MOV
JSR
60%
MOV
MOV
MOV
MOV
WAITUS
TST
BNE
vSR
MOV

TST
CSEXIT
L10027-.
R3
R4
PC,TSTINT
PC,GSTATR

ERRHRD

031604
003050

10:29

T4::

MOV
#P2T15€ ,ERHEA.
;SET ERROR HEADER
sCHECK FOR PRESENCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE
TST
CLKFLG
;P=CLOCK?
BNF
3s
JBRANCH TO PERFORM TEST IF P-CLOCK IS PRESENT
PRINTF
#FMTO ,#NOTST4
JELSE, PRINT MSG. "‘TEST 4 CANNOT BE PERFORMED.
..

000006

003120
020720
013724
017326

17-DEC-79

6% :

TRAP
.WORD
.WORD
.WORD

JMP
TST

8PL

RS.DATGEN

;/P=CLOCK

IS NOT AVAILABLE''

JCLEAR FOR TIMING STORAGE
JINITIALIZE TEST
;CLEAR DRIVE

DESSEC
PC,CHOSHD
LOL IMW NEWCYL
PC.XSEEK

;GENERATE DATA
:PATTERN 0
;CLEAR TO SECTOR O
;GO SELECT HEAD
.SET FOR CYLINDER
;D0 SEEK

#3000. ,R1

;SET WAIT FOR 300 MS

PC.,VERPOS

;VERIFY POSITION

PC.RDYWAIT

:WAIT FOR READY

#64. ,R1 ;SET LOOP COUNTER
#L.MP RS
;SET A POINTER
PC. XWRITY
;DO FIRST WRITE
(RS5) ,RLMP(R2)
=(RS) ,RLDA(R?2)
-(RS) ,RLBA(R?)
-=(RS) ,RLCS(R2)
#3000.
DONE

63
PC,WAITIN

(SP)+ ,R3
1501., ,ERR1

cLOAD RL REGISTERS

JTEST IF

INTERRUPT

JYES - SKIP
;ELSE WAIT FOR TIMEOQUT

cGET MESSAGE POINTER

CSERHRD
1501
O
ERR1

60s
T.CS
48

;TEST IF ANY ERRORS
:NO - SKIP

CZRULNAO RLO1/02 DRIVE _TEST 3
17-DEC-79 10:22
CZRLNA.MAC

35047
(&)

031250
031250
031252
031254
031256
031260
031264
031270
031274
C31312
031316
031322
031326

MACY11

30A(1052)
*TEST 4

031604
003046
003012

005737
012603

000006
000004
000002
000000

104456

002737

Ie ¥

8%:

000006

012746

007117
007075
011144
000003

005046
153716
012746

60s

#L.MP RS
DONE

(SP)+,R3
1503., ,ERR1
CSERHRD
1503
0
ERR1
60$
1.CS

8$
1504., ,ERR6
C$ERHRD
1504
0
ERR6
60%
RO,R3
Ré
R1

:
108

003037
006142

SEQ 0108

TIMING

1502., ,ERR6
CS$ERHRD
1502
0
ERR6

#6,R1

;SET POINTZR TO wL LOAD REGS
;CLEAR INTERRUPT INDICATOR
;START P=-CLOCK TO INITIATE MEASUREMENT

:/0F TIME INTERVAL
;LOAD RL REGISTERS FOR 2ND WRITE

;WAIT FOR INTERRUPT

;GET ELAPSED TIME
sTEST IF INTERRUPT OCCURRED
;VES - SKIP
;GO WAIT FOR

INTERRUPT

;GET MESSAGE POINTER
;REPORT

JTEST

IF ANY ERROR

:NO = SKIP
;REPORT ERRORS

;ADD IN TIME USED
:DOUBLE PRECISION
;DEC LOOP COUNTER
;LOOP UNTIL O

;SET DIVIDE COUNT

gé

;CLEAR CARRY FOR DIVIDE
;DIVIDE SuM BY 100(8)

;DEC DIVIDE

1C$

000010

PAGE 2-18

DONE
79
PC,WAITIN

016224

012701
000241
006004
006003
005301
001373

(R5) ,RLMP(R2)
-(R5) ,RLDA(R2)
=(R5) ,RLBA(R2)
-(R5) ,RLCS(R2)
#3000.
RO

003012

003050

10:29

**ROTATIONAL

ERRHRD

104456
002736
000000

011562
0146562
014562
014562

17-DEC-79

COUNT

.LOOP UNTIL DONE

WNFMT1.1,#SRTMES ,#VALDES
#VALDES ,-(SP)
#SRTMES,-(SP)

H#FMT1.1,-(SP)
#3,-(SP)

SP,RO
CSPNTF

#10,SP

#ig;?,#BASADD.RLBAS,#DRVNAH.<B.RLDRV01>
RLDRV+1, (SP)
#DRVNAM,
- (SP)

CZRLNAO RLO1/02 DRIVE TEST 3

17-DEC-79 10:22

30A(105£)
*TEST

104401

**ROTATIONAL

9
PAGE 2-19
TIMING

000014

#14,SP
H#FMT26 ,#RESE3,R3,
#RESE L, AMAPROX , EXROT
EXROT ,=(SP)

sf,RO

CSPNTF

#MAPROX
, = (SP)

#RESE4L ,-(SP)

R3,-(SP)
#RESE3,-(SP)
H#FMT26,~(SP)

000006
062706
012737

10:29

RLBAS,=(SP)
#BASADD ,~(SP)
#FMTS,-(SP)
#5,~(SP)

010725
012013

031600
031604
031612
031612
031612

17-DEC-79

003032
006131
011172
000005

003232
007143
010731

b ad

od o

b o

(9)

(WL [V [V, LV, JV, 1V, 0V, ]V, |
WNIN)
—

CZRLNA
. MAC

MACYTT

000016
000002

#6,-(SP)

SP,R0
CSPNTF

003022

60$:

ENCTST

L10027:

#16,SP
#2 ,ERRSWI

C$ETST

;INITIALIZE ERROR SWITCH

SEQ 0109

CZRLNAO RLO7/02 DRIVE TEST 3

CZRLNA_.MAC
3086
3087

031614

3088
3089
3090
3091
3092
3093
30946
3095
3096
3097
3098
3099

031614
031622
031626
031632
031636
031640
031644
031650
031654
031656
031664
031666

(3)

3100
3101

031614

031672
031672

3102
3103
3104
3105
3106
3107
3108
3109
1 3110
3111
3112
3113
3114
3115
2116
3117
3118
3119

031676
031704
031710
031714
031716
031724
031732
031740
031744
031752
031754
031760
031762
031766
031774
031776
032002
032004

%}5}

032012

3123
31246
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140

032014
032022
032030
032032
032036
032042
032044
032050
032056
032060
032066
032070
032074
032100
032106
032114
032122
032130

3120

032006

17-DEC=-79 10:22

MACY11

30A(1052)

«TEST S

SRTTL
BGNTST
012737
004737
004737
004737
032722
005037
012705
005737
001006
032737
001002
012705

012701

012737
013721
005337
001373
013737
013737
013737
062705
032737
001031
005737
001002
062705
022737
001404
020527
103013
000403

006756
021030
016362
016400
003236
177776
003444

000001

013722

177760

002510

1$:

000010
013724
002304

002304

013726
013726
013726
000002
000001

002514
002516
002520

013722

003444

000016
0000017

002302

000244

020527

000122

016537
043737
001007
000137
023705
001773
010537
023737
103730
023737
101324
012703
013713
013763
013763
013763
013763
013763

002610
002310

103007

003016

032722
013726

4%:
5¢:

002304
002304

013724

002304

013726

002550
002304
002304
002304
002304
002304
002304

000002
000004
000006
000010
000012

«TEST S

8%:

PAGE 2-20

SEQ 0110

»+WRITE/READ DATA (PART 2)
;TEST S

T5::

#P2T16E ,ERHEAD
PC,CKBSVD
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
;60 CHECK IF BAD SECTCR FILES VALID
JINITIALIZE TEST
;CLEAR DRIVE

PASCNT
#-c RS
PASNUM
1%
NALLCYL MISWIW
1%
#-16..RS

JCLEAR PASS TO O
JSET
;TEST IF FIRST PASS (QUICK VERIFY)
;NO - SKIP
TEST IF USE ALL CYLINDERS
JYES - SKIP
;ELSE SET PEOPLE TO NEG 8

MOV

#T73318L ,R1

;GET ADDRESS OF WORK TABLc

cTMMP

)}

MOV
JSR
JSR
JSR
T3165%
CLR
10}
TST
BNE
BIT
BNE
MOV

MOV
MOV
DEC
BNE
MOV
MOV
MOV
T3100%: AD
BIT
BNE
TST
BNE
ADD
3%:
CMP
BEQ
cMP
BHIS
B8R

69%:

10:29

~*WJRITE/READ DATA (PART 2)

2%:

44%:
002304
002304

17-DEC-79

#10,JJJ
JSET CLEAR COUNT
LOLIMW, (R1) +
;CLEAR LOCATIONS TO LO LIMIT
JJJ
sDEC COUNT
2%
;LOOP UNTIL O
HILIMW, T33TBL+4 ; INSERT HILIMIT
HILIMW,T33TBL+6 ;INTO APPROPRIATE LOCATIONS
HILIMW,T33TBL+10
#2,R5
;BUMP RS BY 2
HALLCYL MISWIW TEST IF USE ALL CYLINDERS
S$
:YES - SKIP
PASNUM
cTEST IF FIRST PASS (QUICK VERIFY)
3s
:NO - SKIP
#16 RS
;ELSE BUMP CYLINDER POINTER BY 7
#1,T.DRIVE
;RLOT OR RLO2?THAT IS THE Q
44%
JANS IS RLO1
RS.,#164.
4%
69%
JTEST PAST TABLE-YES EXIT

RS, 482.

BHIS

;TES PAST THE TABLE

MOV
BIC
BNE
JMP
(MP
BEQ
MOV
CMP
BLO
o, o
BHI
MOV
MOV
MOV
MOV
MOV
MOV
MOV

CYLTBL(RS5),JJJ
CLRBYT,JJJ
8s
13165%
HILIMW,RS
4%
RS5,JJJ
JJJ,LOL IMW
T3100%
JJJ HILIMW
13100%
#TRT,R3
JJJ. (R3)
JJJ,2(R3)
JJJ,4(R3)
JJJ,6(R3)
JJJ.,T10(R3)
JJJ,12(R3)

;GET NEXT TABLE ENTRY
:CLEAR UPPER BYTE
JEXIT TEST
JTEST IF ALL CYLINDERS USED
;YES - EXIT TEST
JUSE RS AS NEXT CYLINDER
;CHECK IF LOWER THAN LOLIMIT
JYES - SKIP
JCHECK [F HIGHER THAN HILIMIT
JYES - SKIP

CZRLNAQ RLO1/02 DRIVE TEST 3
CZRUNA.MAC

3141
3142
3143
3144
3145
(3)
(3)
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159

032136
032142

17-DEC~79 10:22

010337
004737

MACY11

003010

003236

000003

000003
000020

003236
003010
003010
003026

R¥,TBLSTR

PC,CHCSHD

;STORE TABLE ADDRESS
;GO CHOSE HEAD

118
PASCNT
43
108
11$%
#3,PASCNT

#INOUTS ,OPFLAG

12%

#OUT
INS ,OPFLAG
#3,WiTSW]
TBLSIR,R3
#13378L ,R1
#TBT ,R3
DESSEC
(R1)+ NEWCYL

;CLEAR ALL MESSAGE QUALIFIERS
JTEST IF PASS O
JYES - SKIP
;TEST IF PASS 3
;YES - SKIP

;CHECK IF LESS THAN 3, IF YES CLEAR T0 D
JELSE SET 10 3
;SET MESSAGE QUAL
:SKIP
;SET PASS COUNT 1O O
s SET MESSAGE QUAL
;SET READ AND WRITE SWIT(H
;GET STORED TABLE ADDRESS

PC,XSEEK

:CLEAR TO SECTOR 0
;sGET NEXT TABLE ENTRY
;DO SEEK

#3000. ,R1

;SET WAIT COUNT FOR 300 MS

(R?)+ NEWCYL

;WAIT FOR READY

JGET NEXT TABLE ENTRY

005670
022222

#3000. ,R1

;SET WAIT COUNT FOR 300 MS

022634

PC.VERPOS

sVERIFY POSITION

PC.BSCHK

;CHECK FOR BAD SECTOR
:"YES'' RETURN
;SET DATA PATTERN = TO SECTOR NUMBER
;CLEAR ALL BUT LSD
;GO GENERATE DATA

PC.RDYWAIT

16%:

032360
032360
003026

DESSEC,25%

#177770.,25%
25%:

023754
003120
000050

00312C

032737

#MQU
S ,OPFLAG
AL
PASCNT

15.1:

;DO SEEK

000001

3184

($85UB

SEQ 0111

(PART 2)

PC,XSEEK

023324

PAGE 2-21

PC ,RDYWAIT

003106
017326

177770

PASCNT

12%:

005670
022222

003120

BIS

11%:

017326

024512

b avd cmd cmd

10%:

15%:

3172

ed el

TRAP
BIC

MGV

032412
032414
032422
032430
032436
032442
032444

10:29

**WRITE/READ DATA

MOV
JSR

003760
003236

003236

3164
3165
3166
3167
3168
3169
3170
3171

—

17-DEC-79

73101%:
BGNSUB

3163

O O O O O 00 0o Co QO 0O

*TEST 5

(03030
020720

032146
032146
032146

3160
3161
3162

AN UNAN AN N NN N NN

30A(1052)

000002

SS.DATGEN

AB1TO,WRTSWI

:NO - SKIP

DESSEC
#40. ,DESSEC

2INC SECTOR
;TEST IF ALL SECTORS USED

16$

;DO WRITE

;NO - SKIP

#INOUTS 'OUTINS,OPFLAG :CLEAR QUALIFIERS

003010
003026
003010
003026

;JTEST IF WRITE THIS PASS

298

PC,XWRITE

003120

;WAIT FOR READY

#8I1T0, WRTSWI

#FOLWRT ,OPFLAG

29%:

DESSEC’
16$

#BIT1,WRTSWI]

;CLEAR WRITE REQUIRED SWITCH
;SET FOLLOWING WRITE QUALIFIER

sCLEAR TO SECTOR 0
. SKIP
;TEST IF READ THIS PASS

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA MAC
17-DEC-79 10:22

3195
3196
3197
3198
3199
3200
3201

032452
032454
032460
032462
032466
032470
032474

MACY11

024014

023464
003120
000050

005237
042737
023727
001435
023727
001431
012737
023727
001415
023727
001411
000404
052737
000407
052737
000403
052737
000137
012737

003120

104410
000060

012737
023727

003010
000003

003236

000006

000002

003236

003026
000001

003236

000005

003010

37%:

000020

003010

39s:

000040
032250
000002

003010

:
408

003022

17-DEC-79

BEQ

003026
000003

002516

003030

PC,XREAD

33%

;NO - SKIP
JELSE DO READ

JSR

PC.DATCOM

; COMPARE DATA

INC

DESSEC

CLR
CLR
INC
BIC
CMP
BEQ
cMP
8EQ

DESSEC
WRTSWI
PASCNT
#MQUALS ,OPFLAG
4
PASCNT
60%
PASCNT ,#6
o0$

;BUMP SECTOR
;TEST IF ALL SECTORS USED
¢NO - LOOP
;CLEAR DESIRED SECTOR
;CLEAR WRITE/READ SWITCH
;BUMP PASS COUNT
;CLEAR ALL QUALIFIERS

60%
60%

cMP
BNE

cMP
BEQ
(MP
BEQ
BR
BIS

B8R

BIS

BR
BI1S
JMP

36%:
MOV
60%:
ENDSUB
L10031:

002510
000C06
032146

.WORD
MOV
MP
BNE
45%:

003030

48%:

13165%:
ENDTS
L10030:

JSR

TRAP
ESCAPE
TRAP

000003
003236

10:29
PAGE 2-22
*~WRITE/READ DATA (PART 2)

MOV

002000

003236
020744

104401

32%:
33%:

003120
003026
003236
003760
003236

104403

032722

30A(1052)
«TEST 5

MOV
BR
CLR
JSR

#40. ,DESSEC
168

#BIT1,WRTSWI

PASCNT ,#1
40$
PASCNT
, 45
408
39%

#FWDSKO,OPFLAG

36%

#INOLTS ,OPFLAG

36%
#OUT
INS ,OPFLAG
15%

#2 ,ERRSWI
($ESUB
TST
CSESCAPE

JTEST IS PASS 3

JYES - SKIP
;TEST IF PASS 6

JYES - SKIP
;SET READ REQUIRED BIT
JTEST IF PASS 1
JYES - SKIP
;TEST IF PASS &

.YES - SKIP

JSKIP

JSET FWD QUALIFIER
;GO DO NEXT PASS
JSET QUALIFIER
;SKIP
;SET MESSAGE QUALIJFIER

;GO DO NEXT PASS
JINIT ERROR SWIICH

JEXIT TEST IF ERROR

L10030-.
#3,WRTSWI
;SET FOR READ AND WRITE REQ.
PASCNT,#3
JTEST IF PASS 3
459
:NO - SKIP
zg33T8L*6 TBLSTR' ;STORE MID POINT IN TABLE
PASCNT
PC.,SWAPHD

731008
MoV
ADD
JMP

#T3318L,TBLSTR
#6,R3

TRAP

C$ETST

73101%

;GO START PASS 4

;CLEAR TO PASS 0O

:GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN
;STORE START OF TABLE

SEQ (12

CZRLNAO RLO1/02 DRIVE TEST 3
CZRUNA.MAC
17-DEC=-79 10:22

3240
3241
(3)
3242
3243
3264
3245
3266
3247
3248
(3)
(3)

3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273

032724
032724
032724

032730
032732

032736
032740
032744
032744
032744
03744
032746
032754
032760
032764
032766
032772
032776
033002
033006
033010
033014
033020
033022
033026
033030
033036
033040

033044
033046

32764

033052
033054
033060
033062
033066
033070
033070
033072
033076
033102
033106
033112
033116
033122
033126
033132
033134
033136
033142

3276
3277
3278
3279
3280

033160
033164
033166
032174
033176

(13)
(13)
(12)
(11)
(10)
(9)"
(8)
(7>
(6)
(3)
(4)
(4)

3275 033146

MACY11

30A(1052)
*TEST 6
.SBTTL
BGNTST

005737
001003
005737
100402
000137

104402

012737
004737
004737
033606
005037
005037
005037
004737
033606
012701
004737
033606
004737
033606
032737
001116
004537
000007
004737
033606
004737
033606
004737
033606
005046
153716
012746
013746
012746
012746
012746
012746
012746
010600
104417
062706

012701

004737
033606
032737
001037

003444

033740

28:
38

003016

022634

003056

023326
023754
024014
023464

(LR
BISB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

003037
006142
003032
006131
007366
007415
011045
000007
000020
000024

5%.:

016400
003056

PASNUM
28
MISWIW
38
132658

MOV

SEQ 0113

**WRITE LOCK ERROR AND DATA PROTECTION
;TEST 6
16::
TES: IF FIRST PASS
:NO = SKIP
ITEST IF RUN MANUAL INTERVENTION
:YES - SKIP
SEXIT TST

BGNSUB

MOV
JSR
JSR
608
CLR
(LR
CLR
JSR
608
MOV
JSR
60%
JSR
608
BIT
BNE
JSR
7
JSR
608
JSR
60$
JSR
608
PRINTF

013560
022222

020000

BM]
NS

TRAP

003116
003120
003106
017326

020000

+TEST 6
1ST
BNE
1ST

013722

006777
016362
016400

17-DEC-79
10:29 PAGE 2-23
*+*WRITE LOCK ERROR AND DATA PROTECTION

($8SUB

16.1:

#P2T17E ,ERHEAD
PC,TSTINT
PC.GSTATR

;SET ERROR HEADER
(INITIALIZE TEST
:CLEAR DRIVE

DESHD
DESSEC
NEWCYL
PC,XSEEK

;SET TO HEAD 0
:SET TO SECTOR 0
:CLEAR TO CYLINDER 0
DO SEEK

#6000.,R1
PC,RDYWAIT

;INITIALIZE WAIT COUNT
WAIT FOR READY

PC,VERPOS

;VERIFY POSITION

MWLSTAT,T.MP
7$
RS,DATGEN
PCXWRITE

TEST IF WRITE LOCK SET
:YES - SKIP
: GENERATE _DATA
:PATTERN 7
WRITE DATA

PC,XREAD

;READ DATA

PC,DATCOM

;CHECK DATA

#FMTOP1,#OPR00%
, #OPRTA, #BASADD ,RLBAS , #/DRVNAM, <B ,RLDRV+1> ;REQUEST SET WR

=-(SP)
RLDRV+1,(SP)
ADRVNAM.-(SP)
RLBAS,-(SP)
ABASADD,-(SP)
WOPRIA,-(SP)
AOPROO4,-(SP)
WFMTOP1.-(SP)
#7,-(SP)
SP,RO
CSPNTF
#20,SP
#20..R1

WAITMS #50.

JSR
PC,GSTATR
603
BIT
WWLSTAT,T.MP
BNE
7$
PRINTF #FMT?2 ,#BELL

; INITIALIZE WAIT COUNT

CALL WAIT

GET STATUS
;CHECK IF WRITE LOCK SET
YES = SKIP
JRING BELL

CZRLNAO RLO1/02 DRIVE _TEST 3
CZRLNA . MAC
17-DEC-79 10:22
(8)
(7)
(6)
(3)
(&)
(4)
3281
3282
3283
(11)
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(&)
(4)

3284
(3)
(3)
3285
3286
3287

3288

3289
3290
3291
3292
3293
32946
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
(4)
(5)
(5)
(5)
3308
(3)
(3)
3309

3310
3311
3312

033176
033202
033206
033212
033214
033216
033222
033224
(033226
03322¢
033230
033234
033240
033244
033250
033254
033260

033262
033264

033270
033270
033272
033274
033300
033302

033306

033312
033316
033322
033326
033330
033334
033340
033344
033350
033354
033360
033364
033376
033402
033404
033406
033410
033414
033416
033416
033420
033422
033424
033426
033426
033430
033432

033436
033440
033446

012746
012746
012746
010600
104417
062706
005301

MACY11

30A(1052)
*TEST 6

010721
011153
000002

000006

001350

005046
153716
012746
012746
012746
012746
012746
010600
104417
062706

104432
000446
004537
000001
012705

012715

053715
042725
012725
005025
012725
012701
005037
014562
014562
(014562
014562

005737
001013
005301
001366
004737
012603

033606
(032737
001006

003037
007366
00747
006777
011762
000005
002014

023324

7%:

003040

000112

MBELL ,-(SP)
#FMT2,
= (SP)
n2,~(SP)
SP,RO
CSPNTF
#6,SP
R1

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
EXIT
TRAP
LWORD

#OPR1A,-(SP)
#BYPSNM,-(SP)
#P2T17€,~(SP)
NFMT23 ,-(SP)
#5,-(SP)
SP.RO
CSPNTF
#14,SP
TST
CSEXIT
L10032-.

JSR
1
MOV

MOV

9003036
002000
004472
177600
000454
003012
000006
000004
000002
000000

10%:

003012

016224

016430
040000

MOV
MOV
MOV
MOV
TRAP
ADD
DEC

8NE
PRINTF
CLR
8ISB

104456
003245
000000
012070
104432
000164
004737

14%:
003050

17-0EC-79
10:29 PAGE 2-24
**WRITE LOCK EFROR AND DATA PROTECTION

BIS
BIC
MOV
CLR
MOV
MOV
CLR
MOV
MOV
MOV
MOV
WAITUS
TST
BNE
DEC
BNE
JSR
01
ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
.o D
JSR

60%
BIT
BNE

;DEC COUNT
5%
:SKIP IF NOT O
#FMTZ23,#P2T17E
,#8YPSNM, #OPR1A,<B,RLDRV+1> :RPT BYPASSED
~(SP)
RLDRV+1, (SP)

RS ,DATGEN
#L.CS,RS

MJITDATA, (RS)

. GENERATE DATA
JPATTERN 1
;JGET ADDRESS OF L REGS

;LOAD WRITE COMMAND

RLDRV, (RS)
#BIT10,(RS)+
#OBUFF , (RS) +
(R5)+
#177600,(R5)+
#300. .R1
DONE
-(RS) ,RLMP(R2)
=(RS) ,RLDA(R2)
~(RS) ,RLBA(R2)
=(RS5) ,RLCS(R2)
m
DONE
148
R1
108
PC.WAITIN
(SP)+,R3
1701.,.ERR1
CSERHRD
1701
O
ERR1
SuB
CSEXIT
L10033-.
PC,GSTAT

;INSERT DRIVE NUMBER
;CLEAR FOR DRIVE 4 = 7 SPEC'D
;LOAD BUS ADDRESS
;CYyL O, HD O, SECTOR O
;128 WORDS
;SET WAIT COUNT FOR 30 MS
;CLEAR INTERRUPT FLAG
:LOAD RL REGS

:GET STATUS

#DRVERR,T.CS
15%

;TEST IF ANY ERROR SET
JYES = SKIP

;CHECK IF INTERRUPT
:YES - SKIP
;DEC WAIT COUMT
;LOOP IF NOT O
JWAIT FOR INTERRUPT
JGET RESULT MeSSAGE

SEQ 0114

CZRLNAO RLO1/02_DRIVE TEST 3
17-DEC-79 10:22
CZRLNA_MA(

033450

NWN ~es
A~ A~~~
s
NN NN
) — w VNS
b d D 3 \NVNN
S
S~
o0
N N e OO N ON I
o v s

3313
3314

012703

MACY11

010246

WA W N
W

104456
003250
000000
012204
042737
042737
032737
001004
032737
001405

00305¢

15%:

010325

104403

012737
005046
153716
012746

013746
012746
012746
012746
012746
012746
010600

104417

033720

#MDRERR ,R3
1702.,,ERR3

.WORD
WORD
"WORD

8IT
BNE
MOV
ERRHRD

1702
0
ERR3
MJIGESTAT,T.MP
188
MMJGERR ,R3
1704., ,ERR3

.WORD
"WORD
_WORD

1704
0
ER®3

TRAP

040000
002000
157400

003050
003056
003056

036000

003050

18%:

BIC
BIC

BIT
BNE
BIT
BEQ
ERRHRD

104456

003247
000000
012372
000414
004737
033606
004537
000007
004737
033606
004737
033606
012737

MOV
ERRHRD
TRAP

002000

17-DEC~79
10:29 PAGE 2-25
**WRITE LOCK ERROR AND DATA PROTECTION

*TEST 6

104456

003246
000000
012204
032737
001004
012703

30A(1052)

TRAP

(SERHRD

JSET RESULT MESSAGE POINTER
JREPORT ERROR NOT

SEI

sJTEST IF WGE SET
JYES - SKIP
;SET MESSAGE FOR WGE NOT SET

CS$ERHRD

#DRVERR,T.CS
MIGESTA® T.MP

2157400,
T .MP
16$
#36000,T.CS
178
1703...ERR6
CSERHRD

;CLEAR DRIVE ERROR BIT
;CLEAR WGE BIT
;TEST

ANY OTHER ERRORS

:YES - GO REPORT

;TEST ANY ERRORS

;NO - SKIP
;REPORT ERRORS

IN CS REG

.WORD
‘WORD

1703
O

B8R

608

SEXIT TEST
:GET STATUS AND RESET ERROR

023324

608
%SR

PC,GSTATR

RS ,DATGEN

;GO GENERATE DATA

024014

JSR

PC . XREAD

JREAD DATA

023464

JSR
608
MOV

PC.DATCOM

.COMPARE

#2 ,ERRSWI

JINIT ERROR SWIT(H

.WORD

016400

000002

17%:

JSR

608

003022

60%:
ENDSUB

L10033:

000002

00302.

TRAP
732048
: MOV

PRINTF
(LR

003037
006147
003032
006131
007366
007347
011045
000007

062706
012701

000020
001274

004737
033616

016400

BISB
MOV

16%:

ERR6

(SESUB

#2 ,ERRSWI

cINIT ERROR SWIT(CH

-(SP)

MOV

#700. ,R1

T3204%

1\TA

RLDRV-1,(SP)
#DRVNAM
. - (SP)

RLBAS ,~(SP)
#BASADD
, - (SP)

WAITMS
JSR

;PATTERN 7

#fMTOP1,#0PR12,#0PR1A,
#BASADD ,RLBAS ,#DRVNAM, <B ,RLDRV+1> sREQ RESET WRT L

MO
MUV

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

SEQ 0115

#OPR1A
.~ (SP)
#OPR12.
- (SP)
#FMT051 ,-(SP)
#7.,-(SP}
SP RO
CSPNTF
#20,5P

#1
PC,GSTATR

JINITIALIZE WAIT (QUNT
JGET STA{TUS

CZRLNAO RLO1/02 DRIVE_TEST 3
CZRULNA MAC
17-DEC-79 10:22

033722
033730

033740
033740
033740
033740

032737
001403
005301
001362
000727

104401

020000

MACY11

30A(1052)
*TEST 6

003056

13265%:
ENDTST

L10032:

17<DEC=79

10:29

PAGE 2-26

*~WRITE LOCK ERROR AND DATA PROTECTION

BIT
BEQ
DEC
BNE
BR

TRAP

MILSTAT
T .MP

sCHECK IF WRITE LOCK RESET

R1
16$

;DEC WAIT COUNT
;LOOP IF NOT 0
JELSE REPEAT MESSAGE

13265%
T3204%

CSETST

SEQ 0116

CZKLNA.MAC

3352
3353

368
§369‘
370
3371
3372
3373

033742
033742
033742
033750
033754
033760
033764
033766
033772
033776
034002
034004
034012
034014
034020
034022
034026
034032
034040
034044

17-DEC-79 10:22

MACY11

30A(1052)
~TEST 7
.SBTTL
BGNTST

012737

007031
021030
016362
016400

003016

177776
003444
000001

013722

177770
002510

600010

013724
002304

«TEST

023324

013737
062705

013726
013726
013726
013726
000002

002512
002514
002520
002526

032737

000001

013722

;TEST 7

CLR
MOV
TST
BNE
BIT

PASCNT

PC,CKBSVD
PC,TSTINT
PC,GSTATR

?éSNUM
qéLLCYL.MISUIU

#-40. ,R5
9%
#-10,RS
#T1331BL,R1
#10,4JJ

LOLIMW,(R1)+
JJJ

BNE
RS ,DATGEN

:CLEAR DRIVE

;"LEAR PASS T0 0
$5ET RS
JTEST

FIRST PASS

(QUICK VERIFY)

:NO - SKIP
JTEST IF USE ALL CYLINDERS
JYES - SKIP
JELSE SET RS TO NEG 20
:SKIP
JELSE SET FOR NEG 4
;GET ADDRESS OF WORK TABLE
sSET CLEAR COUNT
;CLEAR LOCATIONS TO LOLIMIT
:DEC COUNT

HILIMJ, T33TBL+10

:
733008

HILIMW,T33TBL+16
#2 RS
ggLLCYL,MISUIU
PASNUM

000006

#6.R5

002302

T7::

;SET “RROR HEADER
;GO0 CHECK IF BAD SECTOR FILES VALID
JINITIALIZE TEST

HILIMW,T33TBL+2 ; INSERT HILIMIT
HILIMW, T33TBL+4 s INTO APPROPRIATE LOCATIONS

003444

000044
000001

SEQ 0117

**ADJACENT CYLINDER INTERFERENCE
#P2718E ,ERHEAD

MOV
BR
MOV
MOV
MOV
MOV
DEC

002304

MOV
JSR
JSR
JSR

BNE

177730

10:29
PAGE 2-27
**ADJACENT CYLINDER INTERFERENCE

73365%

003236

17 DEC-79

AN
L

CZRUNAO RLO1/02 DRIVE TE T3

3s:
6%:

000244

#36. ,R5
#1,T.DRIVE
448
R5.,164.
6%

sTEST IF USE ALL CYLINDERS
JYES - SKIP

;TEST IF FIRST PASS (QUICK VERIFY)
:NO -~ SKIP
;ELSE BUMP CYLINDER POINTER BY 3
:SKIP

:BUMP TO NEXT ENTRY

638

020527
103007

000122

016537
043737

002610
002310

032722

001767
010537

000002
002306
002304

002304
002304

44%:

R5,482.
4%

69%:

CYLTBL(RS) ,uJJ

(%:

5%:
I ¥

CLRBYT,JJJ

STEST

IF RS 0

:NO - SKIP

;TEST IF ALL CYLINDERS USED
JYES ~ EXIT TEST

ZUSE RS AS NEXT CYLINDER

CZRUNAO RLO1/02 DRIVE TEST 3
4 RLNA. MAC
17-DEC-79 10:22

~ SomIGAEN=OD &

b RERRERRLRREY Y

3407

023737

002304

MACY11

30A(1052)
*TEST 7

013724

8S$:

013726

8 10

17-DEC~79
10:29 PAGE 2-28
**ADJACENT CYLINDER INTERFERENCE
cMP

JJJ LOLIMW

133060$

JJJ HILIMW

133008

#TBT,R3

sCHECK
JYES sCHECK
;YES -

IF LOWER THAN LOLIMIT
SKIP
IF HIGHER THAN HILIMIT
SKIP

JJJ, (R3)
JJJ,6(R3)
JJJ,10(R3)
JJJ,12(R3)
JJJ,16(R3)

”n,JJJ

JJJ.2(R3)

JJJ.12(R3)

”2,JJ0J
JJJ,6(R3)
JJJ,16(R3)
R3,TBLSTR

3422
02020

T3301$:

PC,CHOSHD

;GO CHOSE HEAD

BGNSUB

003760
003236

003010

003236

000004

000004
000020

003236
003010

003236
000040
000003
002510
002550

003010

003026

cs8suB

#MQU
S ,OPF
AL
LAG
PASCNT

118
PASCNT ,#4

PASCNT
#OUTINS ,OPFLAG
#3 WRTSWI

JYES - SKIP
;TEST IF PASS 4
;YES - SKIP
sCHECK IF LESS THAN &4, IF YES CLEAR TO 0
cELSE SET T0 4
:SET MESSAGE QUAL
: SKIP
sSET PASS COUNT TO O
:SET MESSAGE QUAL
sSET READ AND WRITE SWITCH

#TBT ,R3
DESSEC
(R1)+ ,NEWCYL

;CLEAR TO SECTOR O
;GET NEXT TABLE ENTRY

108
118

10s:
11%:

12%:
15%:

#4 ,PASCNT
15?0UTS.0PFLAG

#153718L ,R1

017326

PC . XSEEK

005670
022222

#3000. ,R1

003106

sCLEAR ALL MESSAGE QUALIFIERS

STEST IF PASS O

;DO SEEK

;SET WAIT COUNT FOR 300 MS

PC,RDYWAIT

;WAIT FOR READY

017326

PC,XSEEK

(R3)
+ NEWCYL

;sGET NEXT TABLE ENTRY
;DO SEEK

005670
022222

#3000. ,R1

PC,RDYWAIT

;SET WAIT COUNT FOR 300 MS
SWAIT FOR READY

022634

PC.VERPOS

;VERIFY POSITION

PC,8SCHK

;CHECK FOR BAD SECTOR
;"'YES'' RETURN
STEST IF WRITE THIS PASS
:NO - SKIP
;DO WRITE

024512

000001
023754

16%:

003026

MBITO,WRTSWI
29%

PC.XWRITE

SEQ 0118

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA
. MAC
17-DEC-79 10:22

003120
000050
000060
000001
000100
003120
000002

INC

003120

003010
003026

:
298

31s:

003120

32%:

000010
J00003

000007
003026
000001
000002

003010
003010

36%:
37%:

003010

:
398

003010
003026

:
408
41%:

003022

60$:

ENDSUB

L10035:

104403

035114
035122

DESSEC

s INC _SECTOR

8I(

#BIT0, WRTSWI

;CLEAR WRITE REQUIRED SWITCH
SSET FOLLOWING WRITE QUALIFIER

8R
8iT
BEQ
JSR

60$
JSR

003010
000004

012737
023727
001004
012737
000410

#40 .DESSEC

8IS
CLR

33s:

104410
000060

BNE
BIC

023464

012737

10:29 PAGE 2- 29
17-DEC-79
**ADJACENT CYLINDER INTERFERENCE

S0%

024014

003120
000050

c10

MACY11 30A(1052)
«TEST 7

000003
003236

003026
000004

002520

003030

608
INC

sTEST IF ALL SECTORS USED
INO
- SKIP
IINOUTS‘OUTINS OPFLAG ;:CLEAR QUALIFIERS

#FOLWRT,OPF
LAG
DESSEC

169
#BIT1 ,WRTSWI
33s
PC.XREAD

PC,DATCOM

: COMPARE DATA

DESSEC

;BUMP SECTOR
sTEST IF ALL SECTORS USED
:NO - LOOP
¢CLEAR DESIRED SECTOR
;CLEAR WRITE/READ SWITCH
;B8UMP PASS COUNT
sCLEAR ALL QUALIFIERS
;1EST IS PASS 4
JYES - SKIP
JTEST IF PASS 8.
JYES - SKIP

#40. ,DESSEC
163

cMP
BEQ
cMP
BEQ
cMP
BEQ
cMP
BEQ
MOV
cMP
8EQ
CMP
BEQ

PASCNT ,#4
608
PASCNT ,48.
608
PASCNT ,#3
39%
47
PASCNT
408
#8170, WRTSWI
PASCNT .1
378
PASCNT
42
37%

BIS

JMP

DESSEC
WRTSWI
PASCNT
#MQUALS ,OPFLAG

#OUT
INS ,OPFLAG

15%

BIS

#INOUTS
,OPF LAG

BIS
BR
BIS
MOV

W#REVSKS ,OPFLAG
418
#FWDSKS
,OPF LAG
#BIT1,WRTSWI

36%

BR
MOV

36%
#2 ,ERRSWI

TRAP
ESCAPE
TRAP

CSESUB
TST
CSESCAPE

.WORD
MOV
CMP
BNE
MOV

sTEST IF READ THIS PASS

:NO = SKIP
;ELSE DO READ

cMP
BNE

CLR
CLR
INC
8IC

;CLEAR TO SECTOR O
s SKIP

L10034-.
#3,WRTSWI

;TEST IF PASS 3
JYES - SKIP

;TEST IF PASS 7

JYES - SKIP

;SET WRITE REQUIRED
;TEST IF PASS 1
;YES - SKIP
sTEST IF PASS 2
;YES = SKIP
sSET MESSAGE QUALIFIER
;GO DO NEXT PASS
;SET MESSAGE QUALIFIER
;SET MESSAGE QUALIFIER
TSET MESSAGE QUALIFIER
;SET READ REQUIRED
sINIT ERROR SWITCH

JEXIT TEST IF ERROR

;SET FOR READ AND WRITE REQ.
PASCNT, #4
JTEST lFIgASS 4
458
:NO
- SK
#T331BL+10, TBLSTR ;STORE MID POINT IN TABLE
48%
;GO START PASS
4

SEQ 0119

CZRLNAO RLC1/02 DRIVE TEST 3
CZRLNA.MA C
17-DEC-79 10:22

3513
3514
3515

035124
035130
035134
035136

035144
035150
035154
035154
035154
035154

MACY11

:
458

003236
020744
012737

002510

062703
000137

000010
034372

104401

30A(1052)
«TEST 7

17-DEC-79

4(8%:

T3365%:
ENDTST

L10034:

D 10
PAGE 2-30

SEQ 0120

+*ADJACENT CYLINDER INTERFERENCE

CLR
JSR

PASCNT
PC,SWAPHD

;CLEAR TO PASS 0
;GO SWAP TO HEAD 1

MOV

#T33TBL,TBLSTR

:STORE START OF

ADD
JMP

#10,R3

TRAP

CSETST

733008

003030

10:29

133018

*ABORT RETURN

OR END

TABLE

TEST

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA MAC
17-DEC~79 10:22

3523

MACY11

30A(1052)
*TEST 8
.SBTTL
BGNTST

035156

012737
004737
004737
004737

007053
021030
016362
016400

003016

JSR
JSR
JSR
13465%
CLR

177776
003444

MOV
TST

BNE
BIT
BNE

013722

177730

MOV
BR
MOV
MOV
MOV
MOV
DEC

177770

002304

013726
013726
013726

000002
000001

002512
002516
002522

013722

3s:
6%:

000244
000122

002610

002310

4448

002304
002304

036346

¥
A
5%:

000002
002306

035462

012703
013713

It ¥

002304
002304

013724

V02304

013726

002550
002304

669%:

8%:

#P2T19E ,ERHEAD
PC,CKBSVD
PC,TSTINT

PC,.GSTATR
PASCNT

;SET ERROR HEADER

GO CHECK IF BAD SECTOR FILES VALID
JINITIALIZE TEST

;CLEAR PRIVE
;JCLEAR PASS

#-2 RS
PASNUM
1%

TO O

JSET RS
sTEST IF FIRST PASS
:NO = SKIP

(QUICK VERIFY)

MALLCYL ,MISWIW

TEST

#-40. RS

JELSE SET RS TO NEG 20

#-10,R>5

USE ALL

JYES - SKIP

CYLINDERS

;SKIP

;SET FOR NEXT ENTRY

#T3378L ,R1

;GET ADDRESS OF WORK TABLE

LOLIMW, (R1)+

;CLEAR LOCATIONS TO LOLIMIT

#10,JJJ
JJJ

;SET CLEAR COUNT
;DEC COUNT

BIT

NALLCYL MISWIW

;TEST

USE

PASNUM

:TEST

FIRST PASS

BNE

002302

*+QVERWRITE
;TEST 8

23
;LOOP UNTIL O
HILIMW, T33TBL+2 ; INSERT HILIMIT
HILIMW,T337BL+6 ;INTO APPROPRIATE LOCATIONS
2%LAQU.T33TBL+12

BNE
TST

000046

SEQ 0121

BNE

MOV
MOV
MOV
13400$: ADD

003444

000006
000001

*TEST 8
MOV

003236

000001

E 10

17-DEC~79
10:29 PAGE 2-31
*~QVERWRITE

ADD
BR
ADD
M
8FQ
M
BHIS
B8R
4

BHIS
MOV
BIC

BNE

JMP
TST
BNE
ADD
P
B8EQ
MOV
WP
BLO
cMP
BHI
MOV
MOV

#38..RS
63
#6.RS

#1.T.DRIVE

:YES - SKIP
JNO - SKIP

ALL

CYLINDERS

(QUICK VERIFY)

:ELSE BUMP CYLINDER POINTER BY 19
;SKIP
:BUMP CYLINDER POINTER BY 3

4448
RS, 4164
48

669%

RS ,#82
X

CYLTBL(RS) ,JJJ
CLRBYT,JJJ

8s
T3465%
RS
7%

#2.RS
#HLMTW RS
48

SEXIT TEST
:TEST IF RS 0
:NO - SKIP

JJJ,LOL 1M

:TEST IF ALL CYLINDERS USED
:YES = EXIT TEST
;USE RS AS NEXT CYLINDER
STEST IF PAST LO LIMIT

JIJ HILIM

STEST

RS,JJJ

134008

#TBT,R3
JJJ. (R3)

SYES ~ SKIP
IF

PAST HILIMIT

SYES - SKIP

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA.MAC
17-DEC~79 10:22

3578
3579
3580
3581
3582
3583
3584
3585
3586

035466
035474

035502
035510

013763
013763
013763
013763
013763
010337
004737

003010

003236

000003

000003
000020

003236
003010

000040

000003
002510
002550
003120
003106
017326

3606
3607
3608

JSR

003010
003026

TRAP

BIC

108:
118

128:
158:

JJJ.2(R3)
JJJ.4(R3)
JJJ.6(R3)
JJJ.10(RD)
JJI.12(R3)
R3,TBLSTR
PC . CHOSHD

SEQ 0122

;GO CHOSE HEAD

#MQUALS,OPFLAG

PASCNT

BEQ
CMP
BEQ
BLT
MOV
BIS

118
PASCNT,#3
108
118
#3,PASCNT
#INOUTS,OPFLAG

CLR

PASCNT

B8R

BIS
MOV

NOUTINS,OPFLAG
#3, WRTSWI

MOV

#TBT,R3

MOV
CLR

MOV

#73718BL
,R1
DESSEC

(R1)+ ,NEWCYL

T8.1:

:CLEAR ALL MESSAGE QUALIFIERS

STEST

PASS 0

SYES - SKIP
“TEST IF PASS 3
SYES - SKIP
sCHECK IF LESS THAN 3,
SELSE SET TO 3
;SET MESSAGE QUAL

SSKIP

:SET MESSAGE QUAL
“SET READ AND WRITE SWITCH

;GET NEXT TABLE ENTRY

‘DO SEEK

005670

MOV

#3000. .R1

:SET WAIT COUNT FOR 300 MS

003106
017326

MOV

ggg

PC.XSEEK

(R3)+ NEWCYL

;GET NEXT TABLE ENTRY

005670
022222

MOV

#3000. ,R1

;SET WAIT COUNT FOR 300 MS

022634

ggg

PC,VERPOS

;VERIFY POSITION

JSR

PC.BSCHK

PASCNT

égg

zgg

168:

003236
000003

023324
000001

023754
003120

:DO SEEK

*WAIT FOR READY

.AECK FOR BAD SECTOR

;"YES'* RETURN

STEST

PASS O

17%:

MOV

#8.,25%

258

LWORD
8IT
BEQ

O
#8170, WRTSWI
29%
PC,XWRITE

‘DO WRITE

INC

DESSEC

o INC SECTOR

gkn

003026

FOR READY

17%
#3,PASCNT
17%

003236

035760

PC.RDYWAIT

*WAIT

BEQ
P
BEQ

035760
000010

328

PC.RDYWAIT

188:

JSR

égg

ggg

RS .DATGEN

YES CLEAR TO 0

*SET PASS COUNT TO 0

PC,XSEEK

024512

001407
022737
001403
005037
000403
012737
004537
000000
032737
001425
004737
036254
005237

($8SUB

ggg

022222

3610
3611
3612
3613

MOV
MOV
MOV
MOV
MOV
MOV
T3401%:

003760
003236

003236

3605

N elo
RNTe
JV, P

000002
000004
000006
000010
000012

020720

F10
17-DEC-79
10:29 PAGE 2-32
**«OVERWRITE

30A(1052)
~TEST 8

BGNSUB

(3)
(3)
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604

3625

002304

MACY11

SYES - SKIP
STEST IF PASS 3
SYES - SKIP

*ELSE CLEAR DATA PATTERN SELECTOR

:SET DATA PATTERN SELECTOR TO 8

*GO GENERATE

DATA

:TEST IF WRITE
‘NO - SKIP

THIS PASS

CZRUNAO RLO1/02 DRIVE TEST 3
CZRUNA . MAC
17-DEC~79 10:22

3632
3633
3634

036004
036012
036014

022737
001340
042737

3636
3637
3638
3639
3640

036030
036036
036042
036044
036052

052737
005037
000724
032737
001414

3643
3¢44
3645

036062
036066
036070

004737
036254
005237

3635

3641
3642

3646
3647
3648
3649
3650
3651
3652

036022

036054
036060

036074
036102
036104
036110
036114
036120
036126

3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
(3)

036134
036136
036144
036146
036154
036156
036164
036166
036174
036202
036204
036212
036216
036224
036226
036234
036236
03€244
036252
036254
036262
036262

3674
(3)
(3)
3675
3676
3677
3678
3679
3680
3681
3682
3683

036264
036264
036266
036270
036276
036304
036306
036314
036316
036322
036326
036330

(3)

036262

042737

004737
036254

022737
001304
005037
005037
005237
042737
023727

001447
023727

001443
023727
001424
023727
001424
012737
023727
001405
052737
000137
052737
000772
052737
000403
052737
012737
000757
012737

MACY11

000050

003120

000060
000001
000100
003120

003010
003026
003010

000002

003026

024014

012737
023727
001004
012737
000410
005037
004737
035310
012737

29%:
31s:

023464
003120
000050

003120

32%:

003120
003026
003236
003760
003236

33%:
002010
000003

003236

000006

003236

000001

003236

000004

000002
003236

003026
000002

001000
035632
002000

003010
003010

36%:
37s%:

000020

003010

39%:

000040
000001

003010
003026

40$:
41$:

000002

003022

60$:
ENDSUB
L10037:

104403

104410
000060

30A(1052)
*TEST 8

000003
003236

003026
000003

002516

003030

003236
020744
002510

45%:
003030

6 10

17-DEC-79
10:29 PAGE 2-33
~*OVERWRITE

cMP
BNE
8IC
BIC
8IS
CLR
BR
BIT
BEQ
JSR
60%
JSR
603
INC
cMP
BNE
CLR
CLR
INC
BIC
cMP
BEQ
cMP
BEQ
cMP
BEQ
CMP
BEQ
MOV
cMP
BEQ
BIS
JMP
BIS
BR
BIS
BR
BIS
MCV
BR
Mov
TRAP

CSESUB

ESCAPE
TRAP
.WORD
MOV
cMP
BNE
MOV
BR
CLR
JSR
134008
MOV

#60. ,DESSEC
;TEST IF ALL SECTORS USED
16$
:NO - SKIP
#INOUTS !OUTINS,OPFLAG ;CLEAR QUALIF IERS
#81T0,WRTSWI

;CLEAR WRITE REQUIRED SWITCH

#FOLWRT ,OPFLAG
DESSEC
16$
#BIT1,WRTSWI
338

SET FOLLOWING WRITE QUALIFIER
;CLEAR TC SECTOR 0
;SKIP
;TEST IF READ THIS PASS
;NO - SKIP

PC,DATCOM

; COMPARE DATA

DESSEC
#40. ,DESSEC
16$
DESSEC
WRTSW]
PASCNT
#MMQUALS ,OPFLAG
PASCNT ,#3
60%
PASCNT ,#6
60%
PASCNT . ”
39%
PASCNT ,#4
40$
#81T1,WRTSWI
PASCNT ,#2
37%
W#REVSKO,OPFLAG
158
#FWDSKO,OPFLAG
363
#INOUTS ,OPFLAG
419
#OUTINS ,OPFLAG
#BITO,WRTSWI
36%
#2 ,ERRSW]

;BUMP SECTOR
;TEST IF ALL SECTORS USED
:NO - LOOP
;CLEAR DESIRED SECTOR
:CLEAR WRITE/READ SWITCH
:BUMP PASS COUNT
;CLEAR ALL QUALIFIERS
;TEST IS PASS 3
JYES - SKIP
;TEST IF PASS 6
;YES - SKIP
;TEST IF PASS °
;YES - SKIP
sTEST IF PASS 4
;YES - SKIP
;SET WRITE REQUIRED BIT
JTEST IF PASS 2
;YES - SKIP
;SET REVERSE QUALIFIER
;GO DO NEXT PASS
SET FWD QUALIFIER
:GO DO NEXT PASS
SET QUALIFIER
;SKIP
;SET MESSAGE QUALIFIER
;SET WRITE REQUIRED BIT
;GO DO NEXT PASS
;INIT ERROR SWITCH

PC . XREAD

TST
CSESCAPE
L10036-+

;ELSE DO READ

JEXIT TEST IF ERROR

#3,WRTSWI]
;SET FOR READ AND WRITE REQ.
PASCNT 43
;TEST IF PASS 3
453
INO
- SKIP
#T33TBL+6,TBLSTR ;STORE MID POINT IN TABLE
48%
:GO START PASS 4
PASCNT
;CLEAR TO PASS 0
PC, SWAPHD
:GO SWAP TO HEAD ONE OR ABORT TEST
;ABORT RETURN
#T33TBL,TBLSTR
;STORE START OF TABLE

SEQ 0123

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA.MAC

3684
3685
3686
3687
(3)
(3)
3688

036336
036342
036346
036346
036346

036346
036350

17-DEC~79 10:22

062703
000137

104401

000006
035534

MACY11 30A(1052)
*TEST 8

48$%:
T3465$:
ENDTST
L10036:
ENDMOD

17-DEC-79

10:29

**0OVERWRITE

ADD
JMP

#6,R3
734018

TRAP

(SETST
.

H 10

PAGE 2-34

SEQ 0124:

CZRULNAO RLO1/02 DRIVE TEST 3
17-DEC=-79 10:22
CZRLNA MA(

3690
3691
3692
(3)
3693

000030

3694
(4)
(4)
(4)
(4)

000031
036432

(4)
(4)
(4)
(4)

001031
036446
000000
000776

(4)
(4)
(4)
(4)

(4)

004032
036510
003400
000000
000007

(4)
(4)
(4)

003130
036466
000001

(4)
(4)

002032
036455
000340
000000
000007

3696

3097

3698
(4)
(4)

(4)

3699
3700
(2)
(3)
3701
3702

052502
051104
042526
000
102

3705
3706

(3)

GPRMD

GPRML

GPRMD

036523

036524
036524
036524

042526
051104
054524
051040
051104
046122

036524

000056

17-DEC=79

CODING

10:29

110

PAGE /=35

PARAMETER CODING
HRDPRM

.WORD L10040-L $HARD/2
CNTYPE ,CNT,1,YES
.WORD
T$CODE
.WORD
CNTYPE
1
.WORD
CSRMSG, CSR,0,160000,177776,YES
.WORD
TSCODE
.WORD
CSRMSG

.WORD
.WORD

TSLOLIM
TSHILIM

.WORD

3400

VECMSG,VE(CT,0,0,776.YES
.WORD
TSCODE
.WORD
VECMSG
TSLOLIM
.WORD
.WORD
TSHILIM
DRMSG,DRSB,0,3400,0,7,YES
.WORD
TSCODE
.WORD
DRMSG

TSLOLIM
.WORD
.WORD
TSHILIM
DRTYPE,TYPDR,1,YES
.WORD
TSCODE

.WORD
DRTYPE
1
.WORD
BRMSG,PRIOR,0,540,0,7,YES

.WORD

.WORD
.WORD
.WORD

L1004GC:

3704

3710
3711
3712

GPRMA

ENDHRD

3703

3709

GPRMA

160000
177776

3695

PARAMETER

GPRML

005130
036516
000001

(4)

30A(1052)
.SBTTL
BGNMOD
BGNHRD

036350

(4)

3707
3708

MACY11

TSCODE

BRMSG

340
TSLOLIM
TSHILIM

.FVEN

020123
051505
052103

042101

000123
051117

CSRMSG:

.ASCIZ

/BUS ADDRESS/

VECMSG:

LASCIZ

/VECTOR/

020122

042514

BRMSG:

.ASCIZ

/BR LEVEL/

DRTYPE:

.ASCIZ

/DRIVE

030461

020105
036440
000061
000105
000

DRMSG:
CNT /PE:
ENDMOD

BGNMOD
BGNSFT

TYPE = RLO1/

.EVEN
SFTPRM

.WORD L10041-L$SOFT/2

SEG 0125

CZRLNAO RLO1/02_DRIVE TES T
3.
17-DEC-79 1 0: ‘e
CZRLNA MAC

3713
3715
(4)
(4)
(4)

000130
036662
000001

(4)
(4)
(4)

000130
036676
000002

(4)
(4)
(4)

000130
036713

{4)
(4)
(4)

000130
036747
040000

3716

3722

3723
3725

3726
(5)
3727

(4)
(4)
(4)

000130
036774
020000

(5)

006044

(4)
(4)
(4)
(4)
(4)

002952
036766

3730

3731

(4)
(4)
(4)

GPRML

3735
(4)
(4)
(4)
(4)
(4)

.WORD

XFERF

.WORD

TSCODE

T$CODE

MANQ
100000

LOLIMQ

40000
1%

TSCODE

GPRMD
.WORD
.WORD

LIMVAL,LOLIM,D,255.,0,253.,YES
TSCODE
LIMVAL

.WORD
.WORD
GPRML
.WORD
.WOD
.WORD
XFERF
.WORD
GPRMD
.WORD

TSLOLIM
TSHILIM
HILIMQ MISWI,h20000,YES
TSCODE
HILIMQ
20000
2%
TS$CODE
LIMVAL,HILIM,D,255.,0,255..
YES
TS$CODE

.WORD

255.

LIMVAL

255.

.WORD
.WORD
GPRML
.WORD
.WORD

TSLOLIM
TSHILIM
HEADQ,MISWI1,10000,
YES
TSCODE
"
HEADQ

.WORD

HEADV

.WORD
XFERF
.WORD
GPRMD
.WORD
.WORD

.WORD

3%:

PAGE 2-36

LOLIMQ M]ISW], 40000, YES
.WORD
TSCODE
.WORD

2%:

J 10

(YLQ
.WORD
1
.WORD
SECQ MISW],2,YES
.WORD
TSCODE
.WORD
SECQ
.WORD
2
MANQ MISW], 100000, YES

.WORD

1%:

10:29

CHLQ MISWI,1,YES

WORD
.WORD

3732
(5)
3733
(4)
(4)
(4)
(4)
(4)

17-DEC-79

PARAMETER CODING

006044
001052
036766
000377
000000
000375

3729

30A(1052)

100000

(4)
(4)
(4)
(4,
(4)

3728

MACY11

.WORD
GPRMD
.WORD
.WORD
.WORD
WORD

10000
3%
TSCODE
HEADV,HEAD,D,17,0,1,YES
TSCODE
17

TSLOLIM

TSHILIM
ERLIMQ,ERLIM,D,377,0,377,YES
T$CODE
ERLIMQ
377
TS(OLIM
TSHILIM

SEQ 0126

CZRLNAD RLO1/02 DRIVE _TEST 3
CZRLNA
17-DEC-79 10:22
. MAC

000377

3739
(2)

ENDSFT

(3)

L10041:

3740
3742

020105

054503
020105
042523

3743
3749

020117
046701
051105
047511
052123
053517

3751

3754

3755

3757

3759
3761
3762

3763

037002
037010
037015

037022
037030
037036
037037

037044
037052
037060
037062
037070
037076
037104
037112
037120

037126

3764

037126

(4)
(4)

037126
037130
037132

(2)

(3)
3765
376¢

PARAME TER

005052
037104
000377
000001

(&)
(4)
(4)
(4)
(4)

3752
3753

30A(1052)

037126

046101
000114
046101

052103
040515
044440
042526
020116
000
051440
044514

000001

CODING

GPRMD
.WORD
. WORD
.WORD
.WORD
.WORD

10:29

K 10

PAGE 2-37

DCLIMQ,DCLIM,D,377,1,377,YES

T$CODE
DCLIMQ

377

TSLOL
IM

TSHILIM

.EVEN

crLa-

.ASCIZ

/USE

ALL

CyL/

SECQ:

LASCIZ

/USE

ALL

SECT/

MANQ:

.ASCIZ

/DO MANUAL

LOLIMQ:

/LOW SEEK LIMIT/

LIMVAL:

/VALUE/
/UPPER SEEK LIMIT/

020131
052523

000105
020122
046040
000
047440
047117
043122

040510
043122
051117

020124
026040
030440

HEADV:

.ASCIZ

/WHAT

052520
047522
044515
040524
042440
052115

020124
020122
000124
041440
051122
000

ERLIMQ:

LASCIZ

/INPUT

DCLIMQ:

LASC1?

/DATA

HILIMQ:

HEADQ:

ENOMOD

LASTAD

000000
000000

17-DEC-79

LSLAST:.:
.EMD

/USE

.EVEN

.EVEN
.WORD
.WORD

(@]

3737

MACY11

INTERVENTION TEST/

ONLY ONE

SURF

SURF/

(0 OR

1)/

ERROR LIMIT/

(MP ERR LMT/

SEQ 0127

3381

3534

3548

1237

1379

1497

1978

2646

2851

3466
2597

349

3627

3635

3670

3503
2011

3639
2285

3660
2450

2707

3290

1132

1146

3110

3363

1926

2190

2433

2469

2471

1154

3280

2648

S WN=NO

2858

2846
2847

6774
6724

1625

SEQ 0128

2857

T O
T O T I T
1 I T
I
I
T O I (O T T
O L

CKDATA=
CKERLM
CLKADR

1424
1744

alalalalalalalalalalalalalalalalalalalalalalalalaYaYa]

BOE
BRMSG
BSCHK
B5SFLAG
BSFVAL
BSNSTR
BYPSNM
CAFDT
CAMSK
ceYLwP
CHOSHD
CKBSVD

LU L T T T L

BITO
BITOO
BITO1
B8ITO2
BITO3
BIT04
BITOS
BITO6
BIT07
81708
BITO9
BIT1
BIT10
BITN
BIT12
BIT13
BIT14
8IT15
BIT?
8IT3
BIT4
BITS
BIT&
8IT17
BITS8
BIT9

T T T

ARMIDU
003222
ASSEMB= 000010
BADADD=
BAMSK =
BANAM
BASADD
BELL
BHSTAT=

2844
2845
3097

ALLSEC= 000002
ANYERR= 100000
ARMID
00320

92n

Lo5H
L6
1104
1114
1634
“o7A
4984

—

= 000020 G

17-DEC=79
10:29
PAGE 3
CROSS REFERENCE TABLE == USER SYMBOLS

‘\-—l—l—l—l—l—lg—l—l—l—b-l—d - ced

ADR

AFMID
003214
AFMIDU
003216
ALLCYL= 0000

L 10

MACY11 50A(1052)

Y = md o md PN N ND SN NN INNIN — =2 = —00
=S NOWVEN)
= £SOV
NN NN — on

CZRLNAO RLO1/02 DRIVE _TEST 3
17-DEC~79 10:22
CZRLNA
. MAC

3211

1598

3080

3273

1160

14924

143

144
145
146

1053

2915

3176
2546+
2949+

3456
2553

3616

2963
3089

3021
3355

3142
3526

3424

3584

961

976

991

1096

1110

2493

1299~

3338

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA
. MAC
CLKCSB=
CLKCSR=
CLKCTR=
CLKFLG
CLNCOD
CLRBYT
CLRPAR
=
(NT
CNTYPE
COMPOP=
CONHNG=
CONTIN
COSTAT=
COUNT
CRDYMS=

172542
172540
172544
003474
015272 G

2154
214n

MACY11

2725+
2725*
2725+

3051~
2730+
2730

1294+

1219+

002310
026112
000012
036516
007777

M0
30A(1052)
17-DEC=79
10:29 PAGE 3-1
CROSS REFERENCE TABLE == USER SYMBOLS

1222+

3051«
3051«
2676

3058+
3058
3008

1303«

3124

3398

3563

1373

1396

1513

1524

2293

2299

1840

1844

1845

1863

1869

1877

2226+

2251

2429

2456

3426

3586

1874

1917

1928

2025
2415
3063

2036
2473
3067

000004
014164

000040
003240
000200
CSNAM
006226
= 000000
(SR
CSRMSG
036432
CURCYL
003110

CRTTTTITTICLTRNELR

3397

2040
2488
3307

TTTTTTTREEL

036¢€°
2
002610
000004
007456
($SAU = 000052
CSAUTO= 000061
C$BRK = 000022
($8SEG=
C$8SUB=
CSCEFG=
CSCLCK=
CSCLEA=
C$CLOS=
CSCLP1=
CSCVEC=
CSDCLN=
C$00DU=
cyLo
CYLTBL
cYLUP =
CYLWD

SEQ 0129

3562

2648

3145

3248

1499

1744

1749

1858

2178
2722

2188
2936

2192

2943

2253
2946

3673
3238

3349

3521

3687

2306
3043

2311
3047

LTI

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA
. MAC

2602
s od
1977

[0 <]
N
~

PR
TR TRETRER

3010

MACY11

N 10
30A(1052)
17-DEC-79
10:29 PAGE 3-2
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0130

1275
13432
1494
1225

1836
948
1068

2610

977

1133

1147

1161

1091

2400
2646

2568

2569
2649

2854

2855

1496
2856

2625

1337
1979
3080

1365

1379

2850
3273

1447
1234
1407

1255

1309
1359

1395
"393

2187

2502

2396
1069
OCL IMW
DESDIF
DESHD
DESSEC

DESSGN
DIAGMC= 000000
D1FAUG
DIFWD
DIRBIT= 000004

2648
1381

2573
2650

2586

2857

2858

1497

1498

1258

1261

3265

3333

3474
3285

3643
3329

3373

3625

1719
1955

2610
1957+«

2102

2288

2431

2461

2538

2610

2613

2882+
3203«
3645+
1708+

2926+
3254
3646

2932
344 1%
3648~
1867

2940+
3462+

2964«
. 3463

3020«
3468+

3161~
3476«

3178
3477

3186+
3479+

2610

2735

1704

1712

1733«

1740

2008+

2019

2476~

2484

2714

1910

1921

2021

2029

2171

2182

2490

1724

1529

DRDYMS=

1399

DRMSG

3059

1596+

3295+
1567

— N

DLTERR=
DONE

DIRMSK

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRULNA
. MAC

DRVNAM
DRVNAV
DSESTA=

DSMSK =
DSPCQOD
EF .CON=
EF .NEW=
EF .PWR=
EF .RES=
EF .STA=
ERHEAD
ERLIM =
ERLIMQ
ERL IMwW
ERRCNT
ERRPOI

000010
000004
000010
036466
003100
040000
006142
006147
000400
001400
013736
36
000035

o84
1124
188#

3697
«S55#
1644
6734

674n
204n

[aIaTalaaTA)

DRS8
DRSELT
DRSET
DRTYPE
DRVCNT
DRVERR=

ERR3
ERRSG

ERRS
ERR6
ERR7
ERRS
ERR9

EVL
EXACYL
EXHCYL
EXOCYL
EXROT

013464

012136
012204
012252
012322
012372
013254
013324
013420
= 000204

ESEND =
ESLOAD=

(aIalafaTalaYaTalAY~A RN )

003234
012070

1227
1543
37054
1240+
" 561
1154

1559

1607

2589
1271«
33i1
1379

3319
1497

1978

2646

2851

3080

3249+

3354

3525+

3273

3338

1247+

1714
1202#

2674%

2864+

3088+~ -

1496
1247

1267

2952+

2136
2307
2948«
1383
1620

951~

1653
1930«
2138
2312+
2985+
1393
1639

3063

2109

3307
2116

3314

3318

2025
1749

.1858

FBSFIL
FMTOP1

2527
3338

FMT1
FMT1.1
FMT11
FMT12
FMT13

2638
2850

FMTOP2
FMTOP3

SEQ 0131

3696

1640+
1906+

ERRVEC
ERR1

ERR10
ERR2

17-DEC-79
10:29 PAGE 3-3
CROSS REFERENCE TABLE =-- USER SYMBOLS

937+

ERRSWI

8 11

MACY11 30A(1052)

3079

1100+

1152+

1745+
1998«

1750+

1831+

2200
2397
3335+

2036

2548

997+«

2494
2040

2883

2031+
2202
3337+

2048

2306

2503
2192

23N

2507

2722

1859+

1267+
1875+

2248+
2504+

2082+
2254+
2508+«

2098+
2258
2514

2718

2936

2943

3047

3067

3325

CZRLNAO RLO1/02 _DRIVE TEST 3
17-DEC~-79 10:22
CZRUNA.MA(
FMT14
FMTIS
FMT16
FMT17
FMT18
FMT19
FMT2FMT20
FMT21
FMT22
FMT23
FMT24
FMT25
FMT26
FMT27
FMT28
FMT3
FMT4
FMTS
FMT6
FMT7
FMT8
FMT9
FOLWRT=
FRMWD
FWDSKO=
FWDSKS=
F$AU
=
FSAUTO=
F$BGN =

011443
011475
011531
011542
011564
011616
011153
011653
011703
011726
011762
011776
012003
012013
012037
012056
011156
011161
011172
011212
011254
011324
011356
000100
007463
002000
000400
000015
000020
000040

8524
8534
8544
8554
8564
8574

cn
17-DEC-79
10:29
PAGE 3-4
MACY11 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0132

1157

2854

3280

1377

1381

1498

1979

1366

1379

1497

2678
3467

3010
3636

1978

2646

2851

3080

1390

634

645
1415

1420

868

877
2664

962
1148

964
1161

977

979

3665

FSCLEA= 000007
FSOU
= 000016
FSEND = 000041

F $HARD=
F$HW
=
FSINIT=
F$JMP =
F$MOD =

000004
000013
000006
000050
000000

F$MSG = 000011
F$PROT= 000021
F$PWR = 000017

D 1
30A(1052)
17-DEC-7Y
10:29 PAGE 3-5
CROSS REFERENCE TABLE -- USER SYMBOLS

GBND
GE TPOS
GETSTA= 000003
GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GSTAT

GSTATC
GSTATG
GSTATR
GTSTAT=
GSCNTO=

3336

3426

3506

3586

3673

2954

2957

3001

3005

3083

3087

3238

22104
1592

2249

3241

3349

1908

1919

2027

2169

2180

2496

3309

1547

15504
2866

2961

3016

3091

3251

3276

3327

3341

3357

3528

1634

1450

1454

3696
3737
3696
3737

3697

3698

3715

3716

3722

7725

3727

3728

3697

3698

3715

3716

3722

3725

3727

3728

3730
3716

3733
3722

3735
3725

3737
3728

3731

3735
3716
3698

3737
3722

3725

3728

3731

3696
3737

3697

3698

371c

3716

3722

3725

3727

3728

2682
1599

3693

1039

2104

HDR4O

HDSEC
HDSEL
HOWD
HDWRD1

3248

1623

GSOF
F S=

HOHSEL
=
HOMOVF
HDRCMP=

3224

1617

1429

HCESTA=
HCRCER=
HDAL 1G=
HOCYL

3739

1565

GSDELM=
GSC1SP=
GSEXCP=
GSHILI=
GSLOLI=
GSNO
=

SEQ 0133

3732
1484

(alalnlaln)

FSRPT
F$SEG
FS$SOF
T
FS$SRV
FSSUB
F$SW
FSTEST

MACY11

Hanwnnun

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10 122
CZRLNA .MAC

2648
2220

CZRLNAO RLO1/02 DRIVE TEST 3
CZRUNA.MAC
17-DEC-79 10:22
HCWRDZ
003060
HOWRD3 003062
HEAD
= 000006

L44n
L4S5n
1054

HEADLM= 010000

1144

HEADQ
HEADV
HEADW
HF IN
HFINU
HFOUT

037015
037037
013730
003174
003176
003200

3731
3733

HILIMQ
HILIMW

036774
013726

3728

HLMTW

002306

HNFERR=
HOE
=
HOSTAT=
HPTCOD
HRDPRM
HRDWTS
HRIN
HRINU
HROUT
HROUTU
HSMSK =
HSSTAT=

010000
100000

11964
4874
488#
4854
4504
1154
1044

HFOUTU
003202
HICYL = 020000
HILIM = 000004

I$MSG = 000041

I1$PROTI$PTAB=
ISPWR =
ISRPT =
I$SEG =

000040
000041
000041
000041
000041

17-DEC=79
10:29 PAGE 3-6
CROSS REFERENCE TABLE -~ USER SYMBOLS

o
Ao

SEQ 0134

2042

3733

1946

37544
37554
1948

3107

3108

3127

3132

3375

3376

3377

3378

3409

3544

1307

1680

1682

1684

1706

2429

2794

2832

2848

2874

2085

2280

2388

2453

2890

2918

3153

3189

3219

3434

3465

3498

3594

3634

3667

12024

904
12094

12154

13444

13904

6344

6454
14154

14204

8684

8774
26644

11624

26654

11734
36884

11824

9344
11134

9364
11334

9484
11354

9504
11474

9624
11484

11614

9644

9774

9794

9924

9944

1097#

18824

2673

2863

2957

2976

3005

3087

3241

3248

3353

1297«

1674
9o
2014
11734

36914
26694
WN
4924
4934
494N
1794

010000
004072
000040
020000
013760
000020
000100
015752
000100
004000
000047
000041
000041
000041
000041
000041
000041

3545
2514
3404

30A(1052)

11954

(a1

IBE
=
IBUFF
IDU
=
IER
=
INITCO
INOUTS
IN/.BL=
INTHLR
ISR
=
IXE
=
ISAU =
ISAUTO=
ISCLN =
ISDU =
ISHRD =
ISINIT=
I$MOD =

000020
01370
036350
026142
003204
003206
003210
003212
000100
000100

MACY11

2034
W
5354
NN
924

12154
1354
1734
1308

2856
2856

13844
14094
164134

13434
654

37624

218#4

2244

3145

36914

CZRULNAO RLO1/702 DRIVE TEST 3
CZRULNA
. MAC
17-DEC-79 10:22
[$SFTU

I$TST

I$SFT
I$SRV
1$SUB

3426
8#
37124
8#
8#
33364
8#
30874
3586
2504
3140
3417~
3577
8#

000041
000041
000041
000041
000041
002304

Jud

000167
014136
007263
007277
007176
007233
007247

JSIMP

LABACF
LABACR
LABEXP
LABHCF
LABHCR
LABIN
LABMID
LABOCF
LABOCR
LABOUT
LAB1

007153
007161

007207
007221
007170

LSCCP

LSCLEA
L$CO
L $DEPO
LSDESC
L$DESP
LSDEVP
LSDISP
LSDLY
LSOTP.
LSDTYP
LSOV
LSDUT
LSDVTY
LSEF
LSENVI
LSETP

[AlalalalalalalalalalalalalalalalalalnlalaYal

LSACP
LSAPT
LSAUT
LSAUTO

F 11
17-DEC-79
10:29 PAGE 3-7
30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0135

3586

3739%

14624

2673
3353
26734
3145
3674

2957

29764

29864

3005
36734
29574
3284

3087

31454

32244

3241

32484

3308

2976
33494

2987
33534

30014
3426

30054
3507

3012
35214

30834
35244

3129+
3406+
3422
3582

3130
3407
3540+

3132
3409
3542«

3135
3412
3562~

3136
3413
3563

3137
3414
3571«

3138
3415

3139
3416
3574

3130

3370

3407

3541

3572

1434

1461

1449+

1450

1454

35064
28634
32384

3524
2873
32414

35864
29544
3248

3123«
3397«
3620%
3580

3124x
3398+
3421
3581

37524
2928+

2935+«

2950

3022

3103

1429

1433~

3102«
3369+
3418
3578

"nwun

LOLIM
LOLIMQ
LOL IMW
LOT

3524

12504
7374
7384
7324
7354
7364
7294
7304
7334
7344
7314
6804
6814

LAB2

LIMVAL
LOCERR
LOCYL

MACY11

664
12074
1423«
164114

674

3572

CZRULNA .MAC
LSEXP1
LSEXP4

17-DEC-79 10:22

002046 G
002064 G

634
634

036352 G
002120 G

63
634
634
634
63
63
63
634
63
634
634

LSEXPS

002066 G

LSHPCP
LSHPTP
LOHW

002016 G
002022 G
013704 G

LSHARD
LSHIME

LSICP

002104 G

LSINIT
LSLADP
LSLAST

013750 G
002026 G
037132 G

LSLUN

002074 G

LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSSOFT
L$SPC
LS$SPCF
LSSPTP
L$STA
LESW
LSTEST
LETIML
LSUNIT
L.BA
L.CS

002042
013674
002112
002062
002010
036526
002056
002020
002024
002030
013722
002114
002014
002012
003042
003040

L.DA
L.MP
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10013
L10014
L10015
L10016

003044
003046
012134
012202
012250
012320
012370
013252
013322
013416
013462
013672
013720
013736
014732
015270

L “LOAD

LSMREV
LSNAME

L10017
L10020
L10021
L10022
L10023
L10024
L10025

_TEST 3

002100 G

002050 G
002000 G

015416
015422
015750
016030
030052
030570
031004

G
G
G
G
G
G
G
G
G
G
G
G
G
G

634

MACY11

30A(1052)

17-DEC~79

10:29

PAGE 3-8

SEQ 0136

CROSS REFERENCE TABLE ~- USER SYMBOLS

36924

11744

12164
37044

634
634

634
63
634
630
634
63
634
634
634
634
63
634
634
634
4364
4354
2447
4378
4384
934n
9484
9624
Q774
992#
10974
11114
11334
11474
11614
1174
1185
13434
13844

16409#
164134
14684
14844
2860#
2873
2987

11654

37124

1185#
1232
2286+
1597«
2575
1592+«
1588

1240
2292
1598«
2649
1594«
2001

1268
2649
1599+
271
1600
2649

1601
2732«
1607
3031

1643
3287
2287«
3049

1714

2009

2052

2283%

22B4x

2290+

2291

2589

2649

2710

2285+

2297

11814
11994

2954
30014

L2]

CZRLNAQ RLO1/02 DRIVE

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA MAC

L10026
L10027
L10030
L10031
L10032
L10033

030730

29864
3012

MACY11

H 11
17-DEC=79
30A(1052)
10:29
PAGE 3-9
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0137

30834
3238#

MAJINC
MANQ
MAPROX
MBADAD
MBADSF

1457

MBSETO=

MCERR
MCONHN
MCYLOC
MCYLUP
MDATCP
MDCRC
MDHEDR
MOLT
MORDY
MDRERR
MORRES
MDRVST
MDSERR
MERRS
MEXERS
MFLERR
MFMTER
MFOLWR
MF WD SK
MFWSKO
MGTSTA
MHCERR
MHCRC
MHDERR
MHDRCP
MHF CRC
MHNF
MININC
MINOUT
MISWI =
MISWIW
013722
MITEST=
MNDRST
MNEERR
MNOCLR
MNOINT
MOPER

100000
010516
010464
006413
005344
0C"517

2629

2177

2492

3722
1305

3725
1946

6654

1174

6874
6854
6574

1425+

1437

1227+

3716
1250

1227
8094

2626

8074

1532
2586

3728
1953

3731
2869

3097

3110

3244

3363

3381

3534

CZRLNAO RLO1/02 DRIVE_TEST 3
CZRLNA.MAC
17-DEC=79 10:22
MOPERR
MORECE

010411
003020

MACY11

265
j4eow

804#
1073+

30A(1052)
17-DEC=79
10:29
PAGE 3-10
CROSS REFERENCE TABLE ==~ USER SYMBOLS
1034
1080

1083+

1088

1091

1150

3206

3427

3482

3587

3651

SEQ 0138

1158«

1538+

2084r

2386+

2400

2412

MOUTIN
MPNAM
MQUALS=
MREAD
MREADH
MRESKO
MREVSK
MRLFAL
MRSLT
MSEEK
MSPERR
MSTERR

MTMBS

MTOSLO
MULOAD
MUNDEF
MJDERR
MWGERR
MWORD
MWRCHK
MWRITE

MJRSET
MWRTAB
MLOHDR

NEWCYL

NOCLR =
MOCTLR
NOERCT
NOITRPT=
NOOP
=
NOPWR
NOTRDY
NOTST1
NOTST4
NXMERR=
NXTHL
NXTPAS
QBUFF

OF IN

OFINU
OFMID
OFMIDU
OFOUT
OFOUTU
OLDCYL
ONSWAP
OPFLAG

005560
006245
003760
005354
005365
005756
005640
010606
005526
005350
010307
010342

006110

006306
005537
010541
010574
01032
006300
005375
005406

005503
010645
005467

003106

241
6794
1474
234
232
245
243
8114
658# ¢
231
272
27

6714

683#
239
810#
268
273
6824
229
233

6614
2648
3146
6484
649
6674
664H
1619
1035
64 7H
794
8014

1155

2625

3317
1155

1157

1127

1680

1682%

1683

1684%

1687+«

1691

2763x
2B74%

2775x
2965%

2778«
2998x

2782%
3022+

2794+
3162+

1365
923

995

1537«

2885~

1302«
1280
2339

2782

2945

1518
6594
1582
803#
8008
1082
6504
6514

235
8120
248

6564
2472
6554

1840

1848+

458

2760«
2848x

000010
007635
003451
000002
000100
006166
007673
007750
010036
020000
002312
014204
004472

1544
7768
5154
1524
1274
6754
7754
7764
7774
1654
2534
12634
S3e#

003146
003150
003152
003154
003156
003104
021004
003010

“7oh
“77n
478%
G799
4804
4574
1842
4214

279
2771
2772
2699
2700
1679+
19644
1536+

3206
3502+«

3217+
3587+

003144

4754

2579+

1850+

1863

1869

1877

1966

1693*

2798+
3168+

1967+

2810%
3255+

2095

2387

2455

32N

2396+

3465+
3663+

1696

1695«

1697

1706

2817x
3448+

2533

2820%
3602+«

2690%

2703«

2433«

2469

2471%

2474%

2574w

3467+
3665+

3482+
3667+

3496%
3669+

3498+

3500

2813+
3442«

2251

2832«
3608+

2836+

1336
1377
2678
3010
1288+«
1278
1076

2684

2582«

2790

2355

2357

2364

1965

1966+

2610

1609

2083+

__79%

2385x

3221x
3597x

3427+«
3634+

3434«
3636«

3437+
3651%«

2853

2853
1844x
2744
1575«

2585+«

3219«
3594x

2593

2595

2603

2608

2611

31646

3153+

3156+

3189+

3191«

CZRLNAO RLO1/02 DRIVE _TEST 3
17-DEC~79 10:22
CZRULNA MA(C

OPIFRR=
OPMSGS
OPROO4
OPR1A
OPR1IB
OPR12
ORIN
ORINU

ORMID
ORMIDU
OROUT
OROUTU

OUT INS=
O$APTS=
0%AU =
0$BGNR=
O$BGNS=
osbU
=
O%ERRT=
OSGNSW=
O$P0IN=
0%SETU=
PART1

1704

002000
002230
007415
007366
007372
007347
003160
003162

2284

7624
7594
7604
758#
(814
L824
«83#
LB4n
4854

003164
003166
003170
003172

000040
000000
000000
000000
000001
00000
000000
000001
000001
000000

00323¢

014212
003444
002364
005072
005346

PAT3
PAT4
PATS
PAT6
PAT7
PAT8
PAT9
PH65%

005134
005174
005234
005242
005302
005304
005344
020406

PAT?2

PNT

005074

= 001000 G

POSHDS
POSHDO
POSHSB
POSHW1
PRI
=
PRIOR =
PRIOO =
PRIOT =
PRIOZ =
PRIO3 =
PRIO4 =
PRIOS

020100
022176
022172
022164
002000
000004
000000
000040
000100
000140
N00200
000240

1071
2602

2606

3283

3338

SEQ 0139

1519

2854

2854
2854
3189

3221

3437

3465

3496

3597

3634

3669

741
473

789
707

1206

827

1203
1820

1311
1971

2069

1763

3718
2238

3745
2332

3714

3724

3736

2780
3214
3492
3654

2796
3227
3494
3656

2815
3231«

3650~

2758
3212
3489
3652

3509
3658

2834
3359+
3513«
3661

3093«
3428
3530~
3676

3147
3430
3588
3680+

3149
3433«
3590

3152~
3436+
3593«

3155+
3481«
3506+

1266

3095

3112

3242

3361

3383

3532,

3550

63
63

wewnnx

PASNEW
PASNUM
PATTBL
PAT1
PAT10

Jn
30A(1052)
17-DEC-79
10:29 PAGE 3-11
CROSS REFERENCE TABLE =-- USER SYMBOLS

3156

PART? = 000001

PASCNT

MACY11

G
G
G
G
G
G

63
63
3764

3758
2757
3209
3487

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA . MAC
17-DEC~79 10:22
PRIO6 =
PRIO7 =
PSETNM
PWCON
PWRFLG
P2TC3E
P2TO4E
P2TOSE
P2TOGE
P2TO7E
P2TOBE
P2TO9E
P2T10E
P2T11E
P2T12E
P2T13E
P2T14E
P2T15E
P2T16E
P2T17€
P2T18E
P2T19E
RDALHD
RDDATA=

000300 G
000340 G
003446
014462
003454
006477
006515
006535
006555
006575
006613
006633
006636
006651
006664
006676
006712
006733
006756
006777
007031
007053
022756
000114

RDHEAD= 000110

92N
924
5134
1233
5174
708#
7094
7104
714
7124
7134
7144
7154
7164
7174
7184
7194
7204
7214
7224
7234
7244
22684
1254
1264
1731
1854

READRL
RELDWT=
RESE3
RESE4
RESES
RESE6
RESPAR
RESTAR
RESTBL
REVSKO=
REVSKS=
RLBA
=
RLBAS

15044
1454

RLCS

= 000000

RLCSR = 000000

RLDA
= 000004
RLDRV
003036
RLMP
=
RLVEC
RORWOP=
RPTOP
RPTREM
RPTRES
RSTRT

000006
003034
020000
024662
025656
025450
014072

1269+
1295
1277

17-DEC=79

1270+
13054
1279«

1273

1339

1370

1323

1403

1405+

2006
2694

2295
2767

2445
2786

2802

2824

1526
1609
1155
1155

1531

2303

1157
1157

2634
2635

3081
3081

2705

3259

3452

3606

157#
4314

1575
1082
1082
2638
1091
2623
12544
1062
147
147
1505
1154

1564
1612

1013+
1738«

1015
2293

1328+
2297«

1010
1012

1506
1154

1600«
1326

8184
8194
8224
8234

4498
1235
2604
1404
1384

2851 .
162#

1584
4334

2010

1594
4324
1444
927
931
930
12614

SEQ 0140

10:29

383

1234

RDNOHR= 000116
RDYCHK
020444
RDYWAI
022222
016172
040000
010725
010731
010736
010743
003066
014154
002324
001000
000200
000002
003032

K 11
PAGE 3-12
CROSS REFERENCE TABLE -- USER SYMBOLS

MACY11 30A(1052)

3080

1504

2284

1019
1308
2574
939
945
%44
1256

3612

2970

3026

3166

3172

2400
2655

2660

3663
3500
1737«
1274

2016
1310

:
2292%
1337

2481+
1361

3036«
1366

3055+
1379

3298+
1481

1497

1978

2281

2646

1330
2299

1362
2482%

1374«
2711x

1375
2727«

1396
3037«

1398+
3056%

1399
3299«

1524

1561

1736
1337

2015+
1366

2291%
1372

2480+
1379

2710+
1398

3035+

3054

3297+

1497

1597

1716

3034~

3053«

3273
1513

2449

1507
1402
2582
953
959
958

3338

1601«

2017+

2646

2706
2044

2282

26479%

2585
967
974
973

2611
982
989
988

1002
1065
1063

1102
1108
1107

2043

2851

3080

3273

1117
1129
1128

3283

3289

3338

1138
1174
1145

1153
26464
26204

25644

3296+

1978

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC-79 10:22
CZRUNA .Ma(
SAMSK =
SBSF IL
SECO
SECWD
=
SEEK
SEEKOP=
SEQMES
SETDON
SF TPRM
SGNWD
SKTMES
SPDSTA=
SPTCOD
SRTME<
SSINDX

000077
003502
036676
007451
000106
010000
007504
014240
036524
007440
007063

1784

53
3716

7664
122#
1434
7704
1273
37114

MACY11

17-DEC=79
10:29 PAGE 3-13
30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

2530

2924

2579

2608

SEQ 0141

2937

12704

004 000

013720
007075
003006

1551

1994»

2256~

1555*

2057«
2269

1648«

2073
2273+

1666

2077«
2319«

1670«

2130«
2377

1751«

2160
2381«

1824

2164+
2401+

1828+
2195«

2437

1883~

2211
2hulx

1898

2215+
2509~

STAMES
007527
STAMSK
= 000007

010750
010760
010770
STOSTA= 010000

SUBSTK

002410

SV(CBGL= 000001
SvCaGBL
000000

SVCINS= 000000

2214x

2244+

2245«

1826+

2075+
2440+

66
1113
1390
66
1133
1225
1276
1370
1413

67
1135
1391
67
1147
1226
1308
1377
1427

— b el b b b
—— b
S BNWNNN
= O
O N NOWWNIN 24~ 0
oo 0000 ONH 200

STATEZ2
STATE3
STATES

950
1202
3712
1068
1207
1258

2097
2494
2635
2854
2976
3083
3318
3692
3726

2109
2503
2638
2855
2986
3145
3325
3693
3727

3145
948
1409

3248
962
1413

1668+

1496
1837

Sv(isuB= 000001
SVCTAG=

SVCTST= 000001
SWAPHD
020744

S$LSYM= 010000

3349
2863
3514

9624
14134

1669+

1497
1858

3506
2957
3681

Gr7H
14684

1395
1454
1639
1979

2311

2722
2931
3283
3521
3712
3735

3698

3732

1133
2954
3739
3524
10974
18354

11114

28604

11334

29544

11474

29864

11614

30014

1902+

2227«
2565

_.CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC=-79 10:22
O
NAMAC
TAG
003470
TBLS.R
003030
187
. 002550
TCERR
007614
TEMP
003464

TEMPO
TEMPY
TEMP?2
TEMP3
TEMPS

003122
003124
003126
003130
003132

TEMPS
TEMP6
TEMP?7
TEMPS8
TIME

003134
003136
003140
003142
015424

TIM.US
TOSLOW=
TRPFLG
TRPHAN
TSTINT
TSTLAB
TYPDR

003466
000001
003452
015744
016362
006471
000006
000007

003247

000010
177777

TSNSO

000000

M1
17-DEC-79
10:29
PAGE 3-14
30A(1052)
CROSS REFERENCE TABLE -=- USER SYMBOLS

SEQ 0142

32384
5234
4294
3314
7734
SN

33364

33454

35064

3521

36734

36874

37004

37394

3141+
3134

3158
3160
2400

3229+
3411

3234«
3440

3423
3576

35174
3600

3516~

3583+

3678

4654

1662+

2086
1734

2425+

2ul7*

2466

2477

1021
1545

1066
1546+

1068
1548

2887+

2904*
1559

2906
1585

2920
1594

1641

1652+

1986+

2924%
2922
2448
2707«
1622

2929+
2925+

2937
2932

2727
1739

2732

2018

2175

2483

2713

2729

3038

3057

13374
19794

13384
24004

LO4N

L4664
L67H
4684
1988+
L4694
4704
YL
L4724
1014

3300
3224

1514
S16#
1359
15364
6904
974

634

13684

25734
= 005052

MACY11

1091
1457+
1437+

1482+
1482«

1664
*

14234

1020*
1543
2C>0
2888
2889
2435+
2706+
1602

1424%

1442+

1358+
1393

1363
14664

1005+«
1542
1999

2883+

2884«
2428~

2705+

2681
2573
3€97
10354
13774
25864

1912

1549«

3683+

1466%

2865

2960

3015

3356

10684
13794

10824
13814
26064

10914
14964
26104

11574

19774
26344

36984

37274

37354

36984
962
1413
3521

37274
977
1468
3673

37354

904

2184

29764
33534
37114
2244
1209

37284

19174

19284

20364
24734
30674

18584
21924
29434

37354
3674n

29574
33494
37084
218
12024

37264

37164

37274
3284M

9774
11624
1215#
14624

37254

26384
28574

28524
32834
36974
37334
1639
21164
27184

9644
11614
12094
14204

28584

28554

28514
32804
36964
37324
16334
21094
25074
33254
36984
32254

13664

25694
26494
30794

30434

23114
30474

1199

2954
3739

3238

6454
9944
11734
13444
14844

9364
11530

30054
35214
3729
868
13574

11854

2673
32380
36384
1173

2664

CZRLNAO RLO1/02 DRIVE TEST 3
17-DEC~79 10:22
CZRLNA MAC
TENST

= 000005

TENS2 =
TSPTNU=
T$SAVL=
T$SEGL
=
T$SEKO=
T$SUBN=

26694
9224

MACY11

3688

N1
30A(1052)
17-DEC=79
10:29 PAGE 3-15
CROSS REFERENCE TABLE -- USER SYMBOLS

36914

3708

000002
000000
177777
177777
010000
000001

372114

3762

SEQ 0143

9794

977
1174
1484
32414

18354
3349

3506

35864

1181

992

994n
1199

26734
;}{1

1097

12164

35244

T$TAGL= 177777
T$TAGN= 010042

29764

32414

164114

28634
37124
9924

11134

TSTEMP= 000000

12094

TSTSTM= 177777

34260

29764

11484

11654
3005#

11114

11334

13444
29874
35214
37154

29544
35064
37004
37394
32414

T$TEST= 000010

33534

1082
1225
1340

1097
1359

14602

1583
1977

2253

2678
2873
3047
3280
3507

3225
3338
T$TSTS=
T$SAUT=
TSSCLE=
T$SOU =
T$SHAR=
TSSHW =
T$SINI=
T$EMSG=

000001
010016
010017
010020
010040
010013
010015
010011

T$$PRO= 010012
T$$SEG= 010000
T$$SOF
= 010041
TS$SRV= 010022
T$$5UB= 010037
T$$SW = 010014
TSSTES= 010036

30054

9364
1133

11354

14704
31454

28634
3284

32414

33534

35244

9644

977

9794

9504
1147

962
11484

161

3224

32484

3308

3336

34264

2873
3349

2954
3353

29574

2987
3521

3001
35244

1484

3507

992

9944

3506

35864

3673

30054
3674

3012

3083

3687

1097

10994

3087~

3225

CZRLNAC RL01/02 DRIVE TEST 3
CZRLNA.MAC
17-DEC-79 10:22
T.BA
T.CS

003052
003050

4LON
434
1856

2505

T.DA
T.DRIV
T.MP

003054
002302
003056

T_STAT
T
T2
T257BL
125782
13
13.1
13068
130658
13078
13108
131008
131018
131658

003064
026142 G
030054 G
002434
002462
030572 G
030670
030636
031004
030670
030676
031740
032146
032722

132048
132658
T33TBL

133008
733018
733658
134008
134018
734658
T4
15
15.1
16
16.1
17
17.1
18
78.1
UM
=
ULOAD =
UNDTST
UNXERR
VALDES
VCNRST
VCSTAT=
VECMSG

4610
24N
o4

3320+

4470
1207
1207
3034
31

1207
29764
29674
2962
29754
2966+
31094
31444
3092
33374
3246
3304

033616
033740
002510

034110
034372
035154
035310
035534
036346
031006
031614
032146
032724
032744
033742
034372
035156
035534
000200
000010
007402
006454
007117
006433
001000
036446

3439

G
G
G
G

G
G

33794
34254
3358
35474
35854
3529
1207
1207
31454
1207
32484
1207
34264
1207
35864
92N
1344
7614
684
7274

VECT = 000002
VERHDR 021626
VERPOS 022634

2054
3695
954
20724
%%gll

WAITIN 016224
WCMSK = 017777
WCRNG = 160000

15114
1914
1924

MACY11 30A(1052)

17-DEC~79

B 12

10:29 PAGE 3-16
CROSS REFERENCE TABLE -- USER SYMBOLS

1477«
1006
1910

2650

1478+
1284
1023
3321
1105

26734
28634

2650
1069

1505+
1025
1921

2720

1926

1071
2021

1685
1507«

3045
2650

1506+
1286
1479=
3343
1605+

2029
3311

2038
3319«

1504+

1577
2190

2309

1625

1631
2490

2498

1710
1569

2761

2776

3115
2650

3388
3263

3555
3278

3315

3065

1476

SFQ 0144

157

1605

1747

1606+

2SL7A
2997
2968
2991
2974%
313
3236
3126
3342
3344
3101
3511
3408
3519
35204
3573
3685
3565
30054
30874

2971

2973

2993

30004

29784
3133

2988
3233

2990 *

2994+

3108 +
3544 *

3159
3545«

3229
3546+

3234
3599

3368
3678

3375«

3376«

3377%

3378+

2769

2788

2804

2826

2842

2880

2972

3028

3174

3261

2046

2304

2486

2716

3041

3061

3305

32374
3347
33484
3106«
3516
3410

3575

3400

3107«
3539
3515

3683

3682

36864

32414
3353

35244

1635
2850
1629
1627
37034
3695

2696
3614
1637

3079

2733
:
1742

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA .MAC
WDESTA=
WOESTA=
WLSTAT=
WRTSWI

100000

002000
020000
003026

WTDATA= 000112
XDELAY

003456

XROHD
XRDHDC
XRDHDG
XREAD
XREADG
XSEEK

021172
021162
021176
0246014
024022
017326

XSEEKT
017316
XSEEK1
017332
XTIME
015570
XWRITE
XWRITT
XWRITT
XSALWA=
X$FALS=
X$OF
F S=
X$TRUE=
YDELAY

037132

17-DEC-79 10:22

211

c 12
10:29 PAGE 3-17
17-DEC-79
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYIMBOLS
1571

3320
3278

SEQ 0145

3194
3627

3204+
3635+

3211+
3639

3226+
3649+

3438«
3660+

3458
3670+

3466+
3675+

3470

3480+

1430+
3057+

1435
3300«

1482+

1602+

1622+

1739+

1912+

2018«

2175+

3269

3331

3472

3641

2783
3609

2799

2821

2837

2875

2967

3023

3163

3169

1679

1614

1923

2184

3275

3340

1445~

1446%

16451+

1455~

1482+

1523«

1563«

1579«

534
3284

5334
3308

5354
3507

5364
3674

8714
37094

1429

1434
3729

1450
3732

1563
3460

1444+
3340+
5114
3225

3629

3726

ENDSFT

ENDSRV
ENDSUB
ENDSW
ENDTST
EQUAL S
ERRHRD

ESCAPE
EXIT
GETTIM
GPHARD
GPRMA
GPRMD
GPRML
HEADER
INLOOP
LASTAD

877

1173
994

1184
1099

3145

3248

3426

3586

2863

2957
1235

3005

3087

3241

3353

3524

1402
1434

1406
1450

1454

1382

1499

634

962

1162
992

3336

3673

3001

3238

1470

1231
1407

964

1448

979

"337

- (N
HO
o

645

950

1420

224

936

—

2931

-t N

1495

2664

2669

3691

371

3688

3708

3762

2040
2503

2048
2507

—

934
1169
1882

1181

—

ENDMSG
ENDPRO
ENDSEG

1428

—

1343
65

ENDHW

1276

SEQ 0146

ENDINI
ENDMOD

1262

1340
1339
1384
1409
1413
3700

66
67
1207

1259

—JN

DOCLN
DODU
ENDAUT
ENOCLN
ENDDU
ENDHRD

DESCRI
DEVTYP
DISPAT

1482
1256

—

304
1226
1357
1391
1411
3692
1174
1216
58
922
1165
1835
3712
1462
2976
1185
2673
1221
1224
1220
1383
1429

17-DEC=79
10:29 PAGE 4
CROSS REFERENCE TABLE == MACRO NAMES

O —

ABORTW
BCOMPL
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNSEG
BGNSFT
BGNSRV
BGNSUB
BGNSW
BGNTST
BNCOMP
BRESET
CLOCK
CLRVEC
DELAY

0D 12

MACY11 30A(1052)

-——

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA _MA(
17-DEC-79 10:22

3739

1468
2986
1199
2860
92
1583
2109
2722
2987
2873
37#
1275
3694
3696
3693
63
1494
3764

1633

1744

3349
1749

2178
2943
3507
3284
3058

2192
3043

2253
3047

3727
3715

3733
3722

3755
3725

2930

1917

2415
3307

3731

1928

2473
3314

2097
2718

CZRLNAO RLO1/702 DRIVE TEST 3
17-DEC-79 10:22
CZRLNA .MAC
MANUAL
MSBYTE
MECHEC
MECNTO

MACY11

E 12

30A(1052)
17-DEC=79
10:29 PAGE 4-1
CROSS REFERENCE TABLE -- MACRO NAMES

SEQ 0147

1225

63
28734
36934
3735#

32844
36954

37154

37164

37304

11574
19794
26484
3080#

13364
24004
26494
30814

26024
28524

9624
13434
32244

13440

32384

11474
164684
36734

3687#

36884

MSDEFA

37154

37164

37304

37314

37334

MSENDE

9624
13440

9774
13844
33364

11474
14844
36874

11614
18824

3688+

11624
26644
37004

18744

20404
25034

20484
25074

20974
27184

MSCOUN

MSDATA
M$DECR

1035#
13814

26134
28554
63
654
11654

10824
16974

32384
M$ERRI
MSESCA
MSESCS
MSEXCP
MSEXIT
MS$E XSE
MSEXTJ

MS$GEN

MS$GETS

MSGETT

MSGNIN

18584

13684

9774

23064
3063#

23114
30674

37334

37354

9224
11334

37314

3733#

26064
28534

13774

13794
26104
28544

11614
14844

11624
18824

CZRLNAO RLO1/02 DRIVE TEST 3
CZRLNA
17-DEC-79 10:22
. MAC

MBGNL
S
MSGNSU
MSGNTA

MACY11

36874
37274

36924
37284

36934
37294

36944
37304

36954
37314

29764

21454
GLBN
14,684

32484

34264

35864

28604
30054

1882+

9344
14134

MSGNTE
MSHAPT
MSHNAP
M$INCR

37004
28634

9624
14844

37394
29574

2244

10684
11654
12>84
13684
14094
16204

20254
24734
26354
28544

M$LDRO
MEMCHI
MSMCLO

Q774

6454

1082#
11734
12614
13704
14114
16334

M$PUT1

MSRAD
I
MBRNRO
M$SETS

18354
36914
10354
13774
26024
28524
10354
13774
26024

28524
37354

12204

584

11654
18354

36914

29544

9924

10974
29864

1111#
30014

11334

30874

32414

3353

35244

8774

9224
1097#

9344
10994

11114

13084

1305#

10914
11744
12754
13774
164134
16394

11844
13794
16204
17444

1185#

30834

37004
37374
11474

32244

37164

37224

37264

11994

13434
35064

36734

33494

9364

9778

12244

13814
164274
17494

14974

164094

9924
1155#
12304
1355
164024
16954
19774

20974
25074
26494
2858«#
30104
3241#
34264

23114
20134
28514
29544
30814
33144
36874

12344

12554

1258%

12614

14024

12004

9344

30014

9484
12094
30834

9624
13434
3224n

11544
19774

11554
19784

1157#
19794

10914
14984

11654

36984
37354

2048%
25034
26484
28574
30054
32384
33534

29864
37624

28554

36974
3733

20404
2494
26464
28564
30014
32254
33454

24L88H
26384
28554
29874
3224M
33384
37124

8684

M$PRIN

36964
3724

SEQ 0148

20364

11994

M$PUSH

F 12
17-DEC~79
10:29
30A(1052)
PAGE 4-2
CROSS REFERENCE TABLE =~- MACRO NAMES

9774

11334

32384

35214

13444

13364

11624
18824
36884
13794
26104
28544

26354
28584
6454

26384
30104
8774

26468
30794

26484
3080#

26494
30814

28634
37124

29574

29764

30054

30874

35864

11544
14964

11554
14974

1157#
1498#

13084
19774

13684
25864
%851'

11844

10914

13934

11854

26254

9224
1202#

9364
12154

9504
12164

26344
28574
11554

26354
28584

26384
30104

26344
28574
36984

26354
28584
37154

26384
30104

9224
12024

9364
12154

14978

29764

1157#
14984

30054

13084
19774

11484
4708

19794
26484

37164

37254

28514
33
37334

9504

9794
13904

1148»
14704

12164

3087#

32414

35864

CZRLNAO RLO1/02 _DRIVE TEST 3

17-DEC-79 10:2¢

CZRLNA .MA(

1157#
13374
13844
15004
1978#
264004
26254
2854w
30014
32484
35074
934#
1157#
13374
1384#
15004

PRINTB

1035

PRINTF

1336

SETPR]
SETVEC
STCLK
SvC

WAITMS
WAITUS

12246#

13,34

16064
1639
2040

1035#
12254
1359#
14074
1744

1068#
12304
13654
146094
1749

9484

G 12

PAGF 4-3

10824
1234k
13664
14134
18354

10914
12554
}368#

11544
13094

13824
14984
1928

2109
25684
26504
29304
30794
3314

26104
28524

32254
34264

10824

11544
13094
13824
164984
19284

12344
13664
14134
18354

11614

13384
13934
15834

19794

24154
2634H
28554
30104
3273
3521#

26104
28524

32254
34264

9482
11614

11544
13094
13824
14984
19284

24154
2634H
2855#
30104
32734
35214

26104
28524
29 e nd
32254
36264

13384
13934
1583#
19794

12074

20364

2097#

24944

33074
37264

2613

2678
3280

1523
1622

1563
1739

—

READBU
READEF

992#

0o &~

MSXFER
POINTE

9774

no—
oo

M$WORD

1978#
24004
26254
2854w
30014
32484
3507#
634
20484
2507~
33144
37284
37264
56

13384
13934
1583
19794
2415
26344
28554
30104
32734
3521#

9624
12204
13354
13954

nONO

MSTSTL

24004
26254
2854a
30014
32484
35074
9344

9484

11614

10:29

CROSS REFERENCE TABLE =-- MACRO MNAMES

—

METLAB

934a

11574
13374
1384#
15004
19784

17-DEC-79

O wn

MeSv(

MACY11 30A(1052)

2400

2573

2606

2856

3010

1497

1978

2184
2483

3340
2729

3081

3038

3057

3300

CZRLNAQ RLO1/02 DRIVE TEST 3
CZRLNA MA(
17-DEC~79 10:22
XFER
XFERF

28734
3726

30124
3729

. ABS.

037132

000

ERRORS DETECTED:

3284w
3732

MACY11
33084

. CZRLNA.LST/CRF=SVC33/ML,CZRLNA
. MA(

RUN-TIME: 109 109 11 SECONDS
RUN-TIME RATIO: 462/231-1.9

CORE USED:

16K

(31

PAGES)

H 12
30A(1052)
17-DEC-79
10:29 PAGE 4-4
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0150