Digital PDFs

AH-F118D-MC

January 1983

175 pages

Original

74MB

view download

OCR Version

91MB

view download

Document:	CZRLID0 RL11,RLV11,RL01,RL02 DRIVE TEST 1 JAN 1983 bw
Order Number:	AH-F118D-MC
Revision:	000
Pages:	175
Original Filename:	CZRLID0__RL11,RLV11,RL01,RL02__DRIVE_TEST_1__AH-F118D-MC__JAN_1983_gray.pdf

OCR Text

eZRiIGG’ -

Prone
i or s e HIEONET

SEQ 0001

.REM 3

IDENTIFICATION

PRODUCT CODE:

AC=F119D=-MC

PRODUCT NAME:

CZRLIDO RLO1/02 DRIVE

DATE CREATED:

5-JAN-79

REVISED:

6-NOV-81

MAINTAINER:

DIAGNOSTIC ENGINEERING = COLORARO

AUTHORS :

D. CLAFLIN

TEST 1

THE INFORMATION IN THIS DOCUMENT IS SUBJECT 7O CHAMGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-

SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED

THE

PUR-

CHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN
BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY
FOR
gefolé?Tigtfl SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?G?gk{AfllLlTV OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

1
PAGE 2

-0

W=
=

I
L

i ) = e e

WIS N =

N —
N -

_—

0
.

WwWo !\)NN

N:\)
NG
O\nl‘:\JNWNNN—l

.
E
.

SOFTWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS
OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION
SAMPLE RUN-THROUGH
CHAIN MODS OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX

ERROR INFORMATION
ERROR REPORTING
SPECIFIC OPERATION MESSAGES
SPECIFIC RESULT MESSAGES
OTHER MESSAGES
ERROR HALTS
PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

DEVICE INFORMATION TABLES
TEST SUMMARIES

—

HARDWARE REQUIREMENTS

EXTENDED P-TABLE DIALOGUE

[PYT

PO
=

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
DIAGNOSTIC HISTORY
SYSTEM REQUIREMENTS

N =

PROGRAM ABSTRACT

HARDWARE PARAMETERS
SOF TWARE PARAMETERS

»H

CONTENTS

GENERAL INFORMATION

TABLE OF

SEQ 0002

1
PAGE 3

1.0

GENERAL

INFORMATION

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH XXDP+ AND ACT.
IT
CAN BE
RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+, ACT AND

APT IN ACT MODE (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, CONTROL GOES FIRST TO THE SUPERVI-

SOR PORTION, WHICH WILL ASK CERTAIN “HARD CORE''
QUESTIONS ABOUT THE
ENVIRONMENT.
THEN IT WILL_
ENTER
COMMAND MODE,
INDICATED BY A

PROMPT CHARACTER (DR>).

AT COMMAND MODE THE OPERATOR MAY ENTER ANY

OF SEVERAL COMMANDS AS DESCRIBED IN 2.0

"OPERATING INSTRUCTIONS''.

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

RL01/02

DISK

DRIVES

RL11/RLVI

CONTROLLERS
(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 TESTS THE RLO1/02 INTERFACE

GET

STATUS

WITH

AND

BASIC

DRIVE

LOGIC.

RESET, GET STATUS, SEEK, AND READ HEADER ARE THE

ONLY COMMANDS EXECUTED IN THE PROGRAM.
ONLY SEEKS WITH
ENCE ARE USED SO NO HEAD MOVEMENT IS REQUIRED.

DIFFER-

A SIGNIFICANT PORTION OF THE PROGRAM REQUIRES MANUAL
INTERVENTION.
THESE
TESTS
TEST THE COVER OPEN AND WRITE LOCK STATUS.
THE DRIVE

MUST BE LOADED AND UNLOADED TO TEST ALL
THE CONDITIONS OF HEADS
OUT, BRUSH HOME, AND DRIVE STATES.
THE PROGRAM CAN BE RUN IN AUTOMATIC MODE IN WHICH CASE ALL TESTS

REQUIRING

MANUAL

INTERVENTION

SEQ 0003

E 1
PAGE &

ARE
BYPASSED.
WITHOUT MANUAL INTERVENTION, THE TEST REQUIRES AP~
PROXIMATELY 135 SECONDS TO RUN.

1.1. 3

DIAGNOSTIC HISTORY

REVISION C:
MODIFY THE DIAGNOSTIC TO RUN USING THE DRS.
REVISION D:
THE RL DRIVES hAD THE BRUSH DRIVE REMOVED.
THE
DIANOSTIC
CORRECTLY TESTS BOTH DRIVES WITH AND WITHOUT A BRUSH DRIVE.

IT ALSO WILL WORK ON A SYSTEM THAT DOES NOT HAVE A KW11P.
WERE INSERTED TO FACILITATE QUICKER RESFONSE TO A C.
1.2

SYSTEM REQUIREMENTS

1.2. 1

HARDWARE REQUIREMENTS

BREAKS

* PDP=11/LSI=11 PROCESSOR WITH 16K OR MORE OF MEMORY

* CONSOLE DEVICE (LA30,LA36,VT50,ETC.)
* 1 OR 2 RLT1/RLV11 CONTROLLER(S) WITH:
1 = 8 RLOT DRIVES WITH RLOTK CARTRIDGES CONTAINING

'BAD

1 - 8 RLO2 DRIVES WITH RLOZK CARTRIDGES CONTAINING
SECTOR FILE'®

‘BAD

SECTOR FILE'

* KW11P CLOCK (P CLOCK) OR KW11L (L cLOCK)
* LINE PRINTER (OPTIONAL)
1.2.2

SOF TWARE REQUIREMENTS

CZRLIDO RLO1/02 DRIVE TEST 1
1.3

RELATED DOCUMENTS AND STANDARDS

RLO1/02 DISK SUBSYSTEM USER'S GUIDE (EK-RL012-UG-002)
XXDP+/USER'S MANUAL
1.4

DIAGNOSTIC HIERARCHY PREREQUISITES
THE RLO1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS:

RUN

THE

FOLLOWING

SEQ 0004

PAGE 5

CVRLA
CZRLG
CZRLH
1.5

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

ASSUMPTIONS

THE HARDWARE OTHER THAN THE RL01/02 SUBSYSTEM IS

PROPERLY.
FALSE ERRORS MAY BE REPORTED IF
NOT FUNCTION PROPERLY.

2.0

OPERATING INSTRUCTIONS

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

ASSUMED

WORK

THE PROCESSOR, ETC., DO

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
Sg;g?gg.
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR
THE
XXDP+

CHMDKAO XXDP+ DK MONITOR NNK
BOOTED VIA UNIT 0
ENTER DATE (DD-MMM-YY):
AFTER THE DATE HAS BEEN ACCEPTED BY THE MONITOR THE RESTART ADDRESS
ggKE;HE
MONITOR
IS PRINTED.
THEN THE FOLLOWING TWO QUESTIONS ARE

50 HZ ? N

LSI ?

THE DEFAULTS ARE BOTH 'NO''.
TYPE 'R'' AND THE PROGRAM NAME
THE PROGRAM.
DO NOT TYPE THE EXTENSION.

WHEN THIS DIAGNOSTIC IS STARTED THE FOLLOWING STEPS WILL OCCUR:

L2232

2222

* STEP 1 »

(A2222
ddd ]

RUN

SEQ@ 0005

PAGE 6

THE DIAGNOSTIC WILL
THE
TIME
WHEN YOU
NOSTIC, NOT XXDP+.
BEING IN DIAGNOSTIC

ISSUE THE PROMPT ‘DR>''.
FROM THIS POINT
UNTIL
RESTART XXDP+, YOU WILL BE TALKING TO THE DIAG-

WE WILL REFER TO THE PRESENCE OF THIS PROMPT AS
COMMAND MODE, AS OPPOSED TO XXDP+ COMMAND MODE.

AT THIS POINT YOU WILL ENTER A ''START'' COMMAND.
THIS
IS NOT THE
SAME AS THE XXDP+ “'START'' 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
COMMANDS AND SYNTAX''.
?%\éEEiKEUYJH%DER TO USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMESTA/PASS : 1/FLAGS : HOE
THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND

THE "'PASS'* SWITCH SPECIFIES HOW MANY

AT THE "DR>'* LEVEL NEED TO BE TYPED.

SHORTLY).

PASSES

YOU

DE-

SIRE.
A PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC
AGAINST ALL UNITS BEING TESTED (THIS WILL BE EXPLAINED

ONE PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE "FLAGS'' SWITCH MAY SPECIFY

ANY

FLAGS, BUT THE MAIN USEFUL ONES ARE:

NUMBER

PNT

PRINT NUMBER OF TEST BEING EXECUTED

HOE

HALT ON ERROR

LOE

IER

LOOP ON ERROR

INHIBIT ERROR PRINTOUT

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE

SEE WHY SHORTLY).

(WE'LL

124424434
d4

* STEP 2 «

1243234334
1%]

WHEN YOU HAVE TYPED IN A ‘‘START'' COMMAND, THE DIAGNOSTIC WILL
COME
BACK WITH THE QUESTION *'# UNITS?'' TO WHICH YOU SHOULD RESPOND BY
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.

A WORD OF WARNING HERE:

DEVICE

THE

THE NUMBER OF UNITS DEPENDS ON THE

DIAGNOSTIC.

RECTED AT A DISK DRIVE,

TARGET

FOR EXAMPLE, IF THE DIAGNOSTIC IS DI~

THEN THE

NUMBER

UNITS

WOULD

THE

SEQ@ 0006

PAGE 7

NUMBER OF
DRIVES TO BE TESTED.
WHEREAS IF THE DIAGNOSTIC WAS DI~
RECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF
UNITS
WOULD BE
THE

NUMBER

OF CONTROLLERS.

THE TARGET DEVICE OF A DIAGNOSTIC CAN

ALWAYS BE DETERMINED BY INSPECTING THE '‘HEADER'' STATEMENT NEAR THE
BEGINNING OF THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS “'HEADER
STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.
LA A2l 2

]

* STEP 3 «
(A2 i32dddd]

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED,

NOSTIC WILL ASK YOU THE '‘HARDWARE QUESTIONS''.

QUESTIONS ARE USED

?E;?gtES".

BUILD

TABLES

THE

DIAG-

THE ANSUERS.TO THESE

CORE,

CALLED

‘'HARDWARE

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

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL

POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.

THIS
REPRESENTS
A
NEW
PHILOSOPHY
IN
DIAGNOSTIC
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 TO TEST THE DEVICE.
LA A

ddd ]

« STEP 4 +

(A2 i

il ddsd]

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS

ALL

THE

UNITS,

YOU

WILL BE ASKED

"CHANGE SW?'*

ASKED THE SOFTWARE QUESTIONS THAT DETERMINE THE

(SEC

2.5)

FOR

THIS

IF YOU WANT T0 BE

BEWAVIOR

PROGRAM,
TYPE
'Y''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
QUESTIONS, TYPE *N'.
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.
La

i dddd]

* STEP 5 «
1222422331

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS,

BEGIN

TC EXECUTE THE HARDWARE TEST CODE.

THE DIAGNOSTIC WILL

THERE ARE SEVERAL THINGS

THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS

EN-

COUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START
COMMAND.
CONSIDER THE POSSIBILITIES:

SEQ 0007

PAGE 8

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 IS ENCOUNTERED, THEN ONE OF
THREE
THINGS
PC:EENS.
DEPENDING ON THE SETTINGS OF THE HOE AND LOE
HOE SET:
THE ERROR WILL BE REPORTED
ON
THE
CONSOLE
AND THE DIAGNOSTIC WILL RETURN TO COMMAND MODE.

LOE SET:
THE DIAGNOSTIC WILL LOOP ENDLESSLY
BLOCK OF CODE THAT DETECTED THE ERROR.

THE

NEITHER HOE NOR LOE SET:
THE ERROR WILL
BE
REPORTED
ON THE CONSOLE AND NORMAL EXECUTION WILL RESUME AS IF
NO ERROR HAD OCCURRED.

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 TO RUN THE DIAGNOSTIC.
IF NO ERRORS
ARE
ENCOUNTERED,
THE
SINGLE REQUESTED PASS WILL BE EXECUTED AND THE
PROMPT WILL BE RE-ISSUED.

IF AN ERROR IS ENCOUNTERED, THE ERROR WILL BE REPORTED AND

PROMPT WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET).
zgmé I’(;E?s ARE FOUR DIFFERENT WAYS YOU CAN GET
THE

2.
3.

ISSUE ANOTHER °'START'' COMMAND (THUS GOING THRU ALL
STEPS 1, 2, 3, 4, AND 5 AGAIN).

ISSUE A 'RESTART'' COMMAND (SAME AS START

COMMAND

EX-

RESUME

CEPT THAT THE HARDWARE QUESTIONS ARE NOT ASKED).

ISSUE A ''CONTINUE'' COMMAND (EXECUTION WILL

THE
BEGINNING OF
THE PARTICULAR HARDWARE TEST (MOST
DIAGNOSTICS CONSIST OF A NUMBER OF THESE) THAT IT WAS

IN WHEN THE ERROR HALT OCCURED.

THE

AT THIS
PROGRAM

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

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH

DIFFERENT FLAG SETTINGS.

PROBABLY YOU WOULD WANT TO SAY:

SEQ 0008

PAGE 9

PRO/FLAGS: IER:LOE : HOE=0
THIS WILL DO THE FOLLOWING:

TURN ON THE

IER

(INHIBIT ERROR PRINTOUT)

FLAG

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT 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 THE ERROR OR SCOPE IT OR WHATEVER.

WHEN YOU'VE SEEN

ENOUGH,

YOU MAY HIT CONTROL/C.
THIS WILL TAKE YOU OUT OF THE LOOP AND PUT
YOU BACK INTO COMMAND MODE.
YOU NOW HAVE THREE CHOICES:
1.

START

RESTART

CONTINUE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
RUNNING THE DIAGNOSTIC.

YOU WOULD TYPE

CON/FLAGS
:HOE : IER=0:LOE=0
THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME EX-

ECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
IF THE
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO
THE
NEXT ERROR OR TO END OF PASS.
IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC
TWO CHOICES:

START

RESTART

AGAIN,

YOU

HAVE

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE
HARDWARE QUESTIONS AGAIN.
THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE
(0O=0OPERATOR, D=DIAGNOSTIC):

MIGHT

LOOK

THIS

SEQ 0009

1
PAGE 10

BY
WHOM

ENTERED:

DIAG. RUN-TIME SERVICES REV. D APR-79
CZRLI-D=0
CZRLI TESTS THE RLO1-02 INTERFACE

AND BASIC DRIVE LOGIC

UNIT 0
RL1T

(L)

? 2

©O

(D)

? Y

O0O0D0O0D0D0

# UNITS

Y ?

RL1T

(L)

Y ?

UNIT 1

.0
.0
.0
.0
.0

O0O0DOUODU0

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLOT (L) Y ?
BR LEVEL (0) 5 ?

VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLO1
BR LEVEL (0) 5 ?

BUS ADDRESS (0) 174400 ?

©O

EXECUTE DRIVE SELECT TESTS (L) N ?
EXECUTE HEAD AL IGNMENT SUPPORT (L) N ?
DO MANUAL INTERVENTION TESTS (L) N ? Y

OO0

8
&
.

INPUT ERROR LIMIT (D) 20 ?

CHANGE SW (L) ? N

0000

(L) ? N

000000

CHANGE HW (L)

UNIT IS RLO1, RLOZ2
DR>STA/PASS:1/FLAGS :HOE

OO0

.R CZRLID
DRS LOADED

{N=RLO2)

CZRLI HRD ERR 00004 TST 003 suB 002 PC:004130
ERR HLT
DR>PRO/FLAGS : IER:LOE :HOE=0
LAAAA AR AR

0.0

i ddiiiidaiitisasiiiissiisssss]

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.

YOU CAN SCOPE

SEQ 0010

1
PAGE 11

THE ERROR UNTIL YOU HAVE LOCATED IT, THEN “C OUT
(2222222

2.2

R 22222 2222222222222

2330020000000t dd]]

“C

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

0.0

CHANGE SW (L) ? N

0.0

E%RLI EOP 1

DR>RESTART/PASS:1

0.0

CHANGE SW (L)

0.0

? N

CHAIN MODE OPERATION

CHAIN MODE OPERATION CONSISTS OF THE SEQUENTIAL EXECUTION OF
PROGRAMS WITHOUT OPERATOR INTERVENTION.
ONLY PROGRAMS THAT HAVE BEEN
MODIFIED TO RUN IN CHAIN MODE CAN BE CHAINED.
CHAINABLE
PROGRAMS
ARE
IDENTIFIED IN THE DIRECTORY BY A BIC EXTENSION.
THE BIC FILES
ARE CREATED BY USING THE SETUP UTILITY PROGRAM WHICH
IS USED
TO
PARAMETERIZE
THE DIAGNOSTIC PRIOR TO ITS EXECUTION.
SETUP PROMPTS
THE OPERATOR WITH THE HARDWARE AND SOFTWARE
QUESTIONS.
THE
RES-

PONSE
TO THESE QUESTIONS ARE USED TO BUILD P-TABLES.

THE RESULT OF

THE St TUP_PROCESS IS A FILE WHICH INCLUDES THE DIAGNOSTIC WITH APPENDED P-TABLES.
REFER TO THE XXDP+/SUPERVISOR USER'S MANUAL FOR A

COMPLETE DESCRIPTION OF THE SETUP UTILITY.

TO RUN CHAIN MODE, THE XXDP+ MONITOR USES AN ASCI1I 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
MTMMUST
HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN

ANY OF THE
JMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THE
COMMANDS
égUN;gsEDASCII FILE ARE EXECUTED IN THE ORDER IN WHICH THEY ARE ENTO EXECUTE A CHAIN FILE

C FILNAM <CR> CR

THE USER TYPES:

SEQ 0011

PAGE 12

C FILNAM/QV

<(R>

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN THE
CHAIN FILE
IS
USED BY THE XXDP+ MONITOR TO DETERMINE THE NUMBER OF PASSES TO EXE~CUTE EACH PROGRAM.
IN THE SECOND CASE THE PROGRAM COUNT
IS NOT
USEC AND EACH PROGRAM IS EXECUTED ONLY ONCE.
THE /QV SWITCH PROVIDES A SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.
WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE
HARDWARE/SOF TWARE
SWITCH
REGISTERS SHOULD BE SET TO 000000.
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 EXECUT=ED 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.

IF THE USER WISHES TO TERMINATE CHAIN MODE BEFORE ITS NORMAL TERMINATION HE MAY DO SO BY TYPING A CONTROL/C.
HOWEVER, THE MONITOR
WILL NOT ABORT THE CHAIN MODE UNTIL
IT RECEIVES
PROGRAM CONTROL
FROM THE PROGRAM CURREWTLY RUNNING.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3. 1

TABLE OF

COMMAND VALIDITY

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE,

FERENT SUBSETS OF

HOW ENTERED

LEGAL COMMANDS

START
PRINT
DISPLAY

OPERATOR ENTERED "RUN DIAG'

FLAGS

ZFLAGS
EXIT

AND

THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:

D IAGNOSTIC HAS FINISHED ALL
I TS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT

DIF-

1
PAGE 13

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

RESTART

CONT INUE

PROCEED
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT
2.3.2
LA AR

COMMAND SYNTAX
AR

ddd

it itiddiidiiiiidiliiliiiiiiditd]]

STA(RT)/TESTS:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=LIST/EOP:EOP=-INCR
LAA AR

ARl

AR AR

THE DIAGNOSTIC

iRttt iidiiddiidiiiatiiiliitiiiid]

IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SWITCHES

THE _MESSAGE ‘# UNITS?"' IS PRINTED.
THE START COMMAND
SPECIFIED.
MAY BE ISSUEC WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE
A) OPERATOR TYPED 'RUN DIAGNOSTIC ' B) DIAGNOSTIC
OF THE FOLLOWING:
FINISHED EXECUTING C) ERROR WAS ENCOUNTERED W!Th HOE

FLAG

SET

AFTER THE OPERATOR RESPONDS TO ‘'#
UNITS?"', THE HARDWARE DIALOGUE IS INITIATED. WHEN IT IS COMPLETED,
THE
QUESTIONS
"'CHANGE
SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
THEREFORE IT IS NECESSARY TO RELOAD
THE
BECOME THE NEW DEFAULTS.
OPERATOR

ENTERED

CONTROL/C.

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

RANGES

OF DECIMAL NU%BERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EX-

THE NUMBERS ARE SEPARATED BY COLONS.
THE
NUMBERS
RANGE
TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.
THEY MAY BE
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER
SPECIFIED IN ANY ORDER.
REGARDLESS
CF
THE ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXE-

ECUTED.

FROM

CUTE ALL TESTS.

"PASS=(NT** [S A DECIMAL NUMBER INDICATING

PASSE"S.

THE

A PASS IS DEFINED AS THE EXECUTION OF

DESIRED

NUMBER

THE FULL DIAGNOSTIC

SEQ 0013

B 2
PAGE

(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.

THE

DEFAULT

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

WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:

HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED

ERROR IS ENCOUNTERED

WHEN

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY
WITHIN
THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, SuBTEST, OR TEST) CONTAINING THE ERROR
IER INHIBIT ERROR REPORTING
IBE

INHIBIT BASIC ERROR REPORTS

IXE INHIBIT EXTENDED ERROR REPORTS
PRI

DIRECT ALL MESSAGES TO A LINC PRINTER

PNT PRINT NUMBER OF TEST BEING EXECUTED

BOE BELL ON ERROR
UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION 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
EQUATED
TO
0
ARE
fifigAzfeéu AtLF%tgagOIangfézgsg.lS CLEARED.
IF THE FLAGS SWITCH IS

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

PASSES)

(IN

TERMS

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

DEFAULT IS AT THE END OF EVERY PASS.
L

THE

T Tttt

s£§§;AfizifTE?g§TEST-LISTIPASS:PASS'CNT/FLAGS:FLAG'LIST/EOP:EOP'INCR/
LA AR AR A

eItz

3222)

SEQ 0014

2
PAGE 15

THE DIAGNOSTIC

IN CORE

IS EXECUTED

SPECIFIED.
HOWEVER, NEW
ONES IN CORE ARE USED.

IN ACCCRDANCE WITH THE

‘'P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD, THE

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&T;:{E{,cvu A)
DIAGNCSTIC
IS
FINISHED B)
HALT
ON ERROR
()
THE

SWITCH ARGUMENTS ARE AS IN THE 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 LOG-

ICAL

UNIT

P-TABLE

NUMBER

DESIGNATES

THE

POSITION

IN CORE, ACCORDING TO THE ORDER IN WHICH

THE

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-LIST LASTS UNTIL
THE NEXT

START

(WHERE

IT IS AUTOMATICALLY RESET TO

"ALL'") OR THE NEXT RESTART.
2.
LAAAAA AR S

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

AR AR

ddddd

il iiiiiisls]

CON(TINUE) /PASS : <PASS=CNT/FLAGS : <FLAG=LIST>
LAAAAAA

diiiii ittt

]]

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON_ ERROR OR
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO
THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C

PLACE.

SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.

PARAMETERS MAY NOT BE CHANGED.

HARDWARE

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:
1.

DEFAULT FOR PASS=CNT IS THE UNSATISFIED PASS~CNT
THE PREVIOUS START OR RESTART

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

LAAAA AL AR

FROM

ddddd])

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

A2 2222l
ddd ]

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.

THE

EFf-

Se@ 0015

2
PAGE 16

FECT OF

THE

COMMAND

xr;tsggm CALL.
THE

TO BEGIN EXECUTION AT

SWITCH ARGUMENTS ARE
1.

THE

NEITHER HARDWARE NOR SOFTWARE
THE

SAME AS THE

LOCATION FOLLOWING

PARAMETERS

MAY

START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

S A
LA

EXIT
LA
A 2

RETURN TO XXDP+ PROMPT MODE.
AAAAAA AR

Rddd] ]

DRO(P) /UNITS:UNIT=LIST
LASA AR AL AR

dddddd ]

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL

gc(: Pé"OC‘E’E‘;lL A START COMMAND IS GIVEN.
THERE IS ALSO A "DROP'* MACRO

INTERNAL

THEY

ARE

ADDED

DIAGNOSTIC,

WHICH

A DROP CANNOT BE FOLLOWED

THE

GIVES
THE
FACILITY OF
AUTO-DROPPING.
THE DURATION OF A PROGRAM
DROP, HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.
LAAA ARl

dddddddd

ADD/UNITS:UNIT=-LIST
(A2

AR R2

222 RddRddd]

THE UNITS SPECIFIED ARE ADDED BACK

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

(THEY MUST HAVE BEEN

TO THE TEST SEQUENCE.

PREVIOUSLY

AN ADD CANNOT

LA22232

PRI(NT)
LA LS A2 2

ALL STATISTICS TABLES ACCUMULATED BY THE

DIAGNOSTIC

ARE

THE ISR C(INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

PRINTED.

LA 22322222220 222222322232223 2]

DIS(PLAY)/UNITS:<UNIT=LIST>
LAAAA AR

dddi

it iiddd]

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.

5eQ@ 0016

2
PAGE 17

AAA
AR 2] ]

FLA(GS)
LA Al 2

THE

]

CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

AAA
A2 22

ZFL (AGS)
LA

AR242

ALL FLAGS ARE CLEARED.

2.4

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE

FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

REVEALETM

THE

AS SOON AS THE QUESTION ''# UNITS?'" IS ANSWERED (WITH THE NUMBER N)

SPACE

CORE IS ALLOCATED FOR 'N'*

P-TABLES.

ALL OF THE P-TABLES

ARE OF THE SAME FORMAT, AND THSRE 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
IN-

musfi“vuws

MAY BE USED TO INDICATE A RE

A STRING OF VALUES MAY BE GIVEN AS A RANGE
THE
VALUES
REPRESENT PURE NUMER

SLATES TO THE STRING 6,7,8.9,10 (

AK= ADDRESSES,

THE SAMPLE

INCREMENT OF 2).

(6-10
S

RANGE TRANSLATES TO THE STRING

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

ARE FIVE (5) HARDWARE PARAMETERS FOR EACM (5 SLOTS IN THE
5 HARDWARE QUESTIONS IN THE DIALOGUE).

P-TABLE,

FOLLOWING IS THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM.
THIS
SvYSTEM HAS
WO (2) RL11 TYPE CONTROLLERS ALL TO BE SET AT "BR LEVEL"

THE FIRST & DRIVES ARE RLO1'S AND THE LAST & DRIVES ARE

(ON THE SECOND CONTROLLER):

UNITS (D) ? 8

UNIT 0

RLIT

(L) ¥ ?

BUS ADDDRESS (0) 174400 ?

RLO2'S

SEQ 0017

PAGE 18

VECTOR (0) 160 ?

DRIVE (0) 0 ? 0-3

DRIVE TYPE = RLOT
BR LEVEL (0) 5 ?

(L)

¥ ?

UNIT 4
RL1T (L) Y ?

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ?_164
DRIVE (0) 0 ? 0-3

DRIVE TYPE = RLOT

BR LEVEL (0) 5 ?

(L)

Y ? N

THE FIRST TIME THRU THE P~TABLE QUESTIONS THE

USED FOR THE CONTROLLER TYPE (QUESTION #1),

TROLLER (QUESTION #2), THE CONTROLLER VECTOR

#3),
#6).

DEFAULT

VALUES

ARE

CSR ADDRESS OF THE CON-

ASSIGNMENT, ' (QUESTION

THE
DRIVE
TYPE
(QUESTION #5), AND THE "BR LEVEL'' (QUESTION
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR QUESTION #4 WAS AS-

SIGNED 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 T

REFLECT

ThE

CHANGE IN_CSR ADDRESS FOR THE RLOZ CONTROLLER (175400). “THE SECOND

CONTROLLER'S VECTOR WAS ALSO CHANGED T01

QUESTION

THE

RLO2
TEST "UNIT NUMBERS WERE ASSIGNED VALUES 0 10 3 I usnou ’
AND THE DRIVE TYPE WAS SET FOR RL02'S FOR THE REMAINING & UNITS
IN
QUESTION #5.
THE LAST QUESTION WAS DEFAULTED USING THE 'BR LEVEL
FROM THE FIRST PASS.

2.5

HARDWARE PARAMETERS
THE FOLLOWING QUESTIONS WILL BE ASKED
ON A
START
COMMAND.
THE
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE
THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.

RLTT

(L) ¥?

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

BUS ADDRESS (0) 174400?
ANSWER WITH THE BUS ADDRESS OF

VECTOR (0) 160?

THE CONTROLLER.

IF YOU WAVE

SEQ 0018

2
PAGE 19

ANSWER WITH THE

INTERRUPT VECTOR OF

THE CONTROLLER.

DRIVE (0) 0?
ANSWER WITH THE DRIVE(S)

DRIVE TYPE = RLO1
ANSWER NO (N)

CONNECTED 7O THE CONTROLLER

(L) ?

IF DRIVE IS AN RLO2

BR LEVEL (0) 5?
ANSWER WITH THE

2.6

INTERRUPT PRIORITY OF

THE CONTROLLER.

SOF TWARE PARAMETERS
THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START,

CONTINUE.

THEY

ALLOW

RESTART,

FLEXIBILITY IN THE WAY THE PROGRAM BE-

HAVES.
THE SOFTWARE 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 SOFTWARE
PARAMETER
QUESTIONS,
WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULY I
ON A <CR>.
CONTROL Z (*Z) WILL DEFAULT ALL REMAINING QUEST
START THE TEST.

EXECUTE DRIVE SELECT TESTS (N)?

IF "'YES'' TESTS 5 AND 6 ARE EXECUTED iN THE FIRST PASS OF

GRAM.

THESE

TESTS

THE

PRO-

REQUIRE MANUAL INTERVENTION TO CNANGS ADDRESS

PLUGS AND REQUIRE A FULL COMPLEMENT OF ADDRESS PLUGS

(0 -

3).

EXECUTE HEAD ALIGNMENT SUPPORT (N)?

IF "'YES'', TEST 11 IS EXECUTED iN THE FIRST PASS.
EXECUTE MANUAL INTERVENTION TESTS (N)?

IF "'YES'', TESTS 1, 2, 3, AND & ARE EXECUTED TO TEST BASIC

ESRflcg

OPERATIONS,

HEAD

LOADINC,

_IN-

HEAD UNLOADING, AND ALL STATE

SPECIFY ERROR LIMIT (DECIMAL)

(20)?

SEQ 0019

2
PAGE 20

THIS

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

LIMIT S EXCEEDED, THE DRIVE IS DROPPED FROM FURTHER TESTING.

3.0

ERROR INFORMATION

!ALL_ERRORS ARE PRINTED

VIA

(CONSOLE

INUMBER,
TYPE AND PROGRAM LOCATION.
|ERROR WITH RELEVANT DATA.

DEVICE.

THE

ERROR

INCLUDES

ERROR

ERRORS INCLUDE REGISTERS BEFORE AND AT

ERROR REPORTING

MOST ERROR REPORTS HAVE THE FOLLOWING FORMAT.

PROG NAME
ERR NUM
TEST NUM_
SUBTEST NUM
ROUTINE TRACE SEQ (IN SEQ CALLED)
(ADDRESS)
(ADDRESS)

TEST DESCRIPTION

(1)
(2)

OPERATION:

RESULT:
ADDRESS OF UNIT UNDER TEST
RLCS
RLDA
OP INIT
OP DONE

5)
6)
7)
8)
)
)

RLBA

RLMP

cvL

DRIVE STATUS
WORD NUM IS (XXXXXX) SB (YYYYYY)

)

TOTAL COMPARE ERRS:

(ZZZ) OF

THE ONLY EXCEPTION TO THE ABOVE FORMAT

;5050

ERR PC

(ADDRESS)

N TN

’

READ

ERROR).

(128)

IS PURE DATA COMPARE ERRORS (NOT DE-

THEN THE FORMAT DOES NOT INCLUDE LINES 5 THROUGH

LINE 1 IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR.
égmxfiggnnso BY NAME WITH THE NUMBER OF

THE

PROGRAM

TEST AND SUB TEST PRESENTLY BEING

THE SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM IN THAT IT DOES NOT REFER TO A
PHYSICAL
SUBTEST
WITHIN A
GIVEN TEST.
RATHER IT REFLECTS THE NUMBER OF
TIMES A SUBTEST HAS BEEN EXECUTED WITHIN A TEST.
CONSEQUENTLY,
ON A
TEST

THAT TESTS AN INCREMENTAL TYPE OF OPERATION (SUCH AS INCREMENTAL SEEKS
READ ALL HEADERS FROM BOTH SURFACES, ETC.) THE SUBTEST WILL BE DESCRIPTIVE
OF WHERE IN THE TEST THE ERROR OCCURRED.
THE ERROR P.C.

IS THE PHYSICAL MEMORY LOCATION WHERE THE tRROR REPORY

WAS

SEQ V020

2
PAGE 21

ITIATED.
SINCE
MANY FUNCTIONS ARE SUBROUT 1 NED AN D ERROR S ARE REPORTED
THE
LOCASWU"S THE ERROR P.C.
IS NOT SUFFI C 1ENT 10 1 DENTI F Y
OF THE ERROR CALL AND THE ROUTINE TRACE § E QUENC E IS PROV | DED.

2 IS THE ROUTINE TRACE SEQUENCE.

IF THE E RROR ¢ CALL L I S I N ITIATED FROM
T THIS THIS POR | ON OF THE REi PORT IS OMITTED.
IF THE CALL IS INITIATED FROM
OUT Tl INE
WHICH HAV BE
CALLED BY
ANOTHER RWH'E“ WHICH MAY BE CALLED BY ANOYHE: R
TRA :
SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE PROVIDES A
TUAL
LOCATION WITHIN
THE
TEST THAT CALLED THE FIRST ROUTIN
I E
ENTRY LISTED IS THE LOCATION WHERE THE FIRST ROUTINE WAS CALLE 0
‘
|

THIN

THE

TEST

(AS OPPOSED TO WITHIN A ROUTINE),
INE),

THE

ST BEING PERFORMED.

i?"= :

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

% 2

. 5 IDENTIFIES THE ERROR THAT HAS BEE N DETECTED.
THE CONTENT OF LINE 5
I F IES WHAT
WAS BENG TESTED (SUCH g DRIVE_READY, CONTROLLER ERROR,
) TATE, ETC.), WHAT IT IS AND WHAT IT HOULD BE.
LINE 5 MAY BE REPE1 F MORE THAN ONE TESTED ITEM IS FOUND IN ERROR.
I TION LINE 5 WILL REPORT ANY HARDWAREDETECTED ems SUCH AS OPERAHEADER CRC, ETC.
IN THIS CASE THE FIRST LINE PRINTED AS
I NCOMPLETE,
T WILL BE DETERMINED BY
THE
THREE ERROR DITS OPI,
lfl /DLY,
AND

THE LINE WILL BE DETERMINED AS IN THE FOLLOWING TRUTH TABLE:

0
1

OPI
)

DCRC/HCRC
1

HNF/DLT
1

[« T T

/DCRC.

QO
—

229

ER=-—

>»
O e

c &

4 IDENTIFIES THE ACTUAL HARDWARE FUNC TION
THAT
IS
BEING
PERFORMED.
IONAL
INFORMATION ON THIS LINE IS D ESCRIPTIVE OF SPECIFIC USE OF THE
ION.
FOR EXAMPLE, THE OPERATION LINE
W
ILL READ “READ HEADERS FOR 40
RS'' WHEN ALL HEADERS ARE BEING READ F ROM
A TRACK.

ME SSAGE
HDR NOT FND/HDR CRC/OPI ERROR

HDR CRC ERROR

HDR NCT FND ERROR

DATA CRC_ERROR
DATA LATE ERROR

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER

TEST.

RESS IS BY UNIBUS ADDRESS OF THE CONTROLLER AND DRIVE NUMBER.

LINE

7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND

Akf APPLICABLE IN THE REPORT)

TO BE REPORTED.

HEAD

THIS

WHERE

AD-

THESE

%'x‘vfil:':govwss THE CONTENTS OF CONTROLLER REGISTERS WHEN THE OPERATION WAS

gf‘

INE 9 PROVIDES THE CONTENTS OF THE CONTROLLER
ING

REPORTED

WAS DETECTED.

REGISTERS

WHEN

THE

ERROR

FREQUENTLY THE REGISTER CONTENTS OF OP INIT

SEQ 0021

2
PAGE 22

AND OP DONE WILL BE DIFFERENT.
OP INIT MAY INDICATE A SEEK WAS BEING
PERFORMED
BUT
OP
DONE MAY INDiCATE THE ERRCR WAS DETECTED BY A READ WEADER,
'THE REASON IS THAT A SEEK WAS EXECUTED AND DID NOT PROPERLY POSITION
WEADS
(AND WHEN THE READ HEADER WAS DONE THE WEADS WERE ON THE WRONG CYLINDER.

'LINE 10 IS THE DRIVE STATUS.

THIS LINE IS ONLY REPORTED IF THE RLMP REGIS-

'TER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS.

'LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS A COMPARE OP-

(ERATION, EITHER DATA OR HEADERS.
'ED FOR ALL READ ERRORS.

IN ADDITION, GOOD AND BAD DATA IS REPORT-

3.1.1

SPECIFIC OPERATION MESSAGES

THE OPERATION MESSAGE (LINE 4) IS GENERATED IN A DYNAMIC
MANNER
BASED
ON
THE
SUBSYSTEM
FUNCTION
BEING
EXECUTED
AT THE TIME OF THE ERROR AND THE

POSSIBLE

RESULT LINE, LINE 5.)

sfll

»x

m
m

(CYL DIFF)
SGN (0 OR 1
ARE
GIVEN
IN OCTAL.
THIS MESSAGE I S TH
WAS VERIFIED BY A READ HEADER AND THE HEAD
ERROR.
(THE
ACTUAL HEAD POSITION IN THI

SEEK -

FROM (CYL NUM) DIFF

THE

M-

TION MESSAGES ARE GIVEN BELOW.

(T
2D ~4

STATE OF THE FLAGS IN THE LOCATION TAGGED 'OPFLAGS''.

OPERA-

VALUES

ATION THAT
EK
IS
IN
VEN IN THE

READ DATA IS 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 COMPARE -

IS AN ERROR THAT WAS DETECTED AS BAD DATA IN THE BUFFER AFTER A Ri:AD DATA
OPERATION.
WHEN THIS OPERATION IS REPORTED IT INDICATES THE AC.UAL READ
DATA OPERATION COMPLETED WITH NO DETECTED ERRORS BUT THE DATA WAS WRONG.

READ HEADER READ HEADER FOR 40 HEADERS -

READ HEADER FOR 40 HEADERS WITH HEADER COMPARE -

HAVE THE SAME GENERAL MEANING AS THE READ DATA AND READ DATA WITH DATA (OMPARE.
MESSAGES
HAVING THE OPERATION OF READ HEADER OR READ WEADER 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.

_ SR,

—

R et

SEQ@ 0022

2
PAGE 23

'WRITE DATA RESET \GET STATUS -

/GET STATUS WITH RESET 'ARE ALL BASIC OPERATIONS.

!NARDUME

OR SOFTWARE.

THE REPORT.

AS BEFORE,

THE ERROR

DETECTION

CAN

EITHER

THE RESULT LINE (LINE 5) WILL DEFINE THE REASON FOR

LD DRV UNLD DRV ARE OPERATION MESSAGES THAT WILL APPEAR IN THE REPORT WHEN THE
AND UNLOAD SEQUENCE IS BEING TESTED.

DRIVE

LOAD

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

QUALIFIER

READ DATA WITH DATA COMPARE

FOL 0 TO CC SEEK

WRITE DATA
READ HEADER

FOL WRITE (NO SEEK)
ADJ. CYL WRITTEN AFTER FWD SK

READ DATA

FOL 255 TO CC SEEK

ADJ. CYL WRITTEN AFTER REV SK
SK FWD, WRT=-SK REV, OVERWRT
SK REV, 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 REFORT MORE MEANINGFUL
BY PROVIDING INFORMATICN ABOUT THE SEQUENCE OF OPERATIONS BEING DONE.

THE QUALIFIERS ''FOL O TO CC SEEK'' AND °"FOL 255 TO CC

SEEK''

INUICATE

THAT

THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A GIVEN DIRECTION TO THE CvL-

INDER WHERE THE TEST IS BEING PERFORMED.

THE "FOL WRITE (NO SEEK)'' QUALIFIER MEANS THAT THE OPERATION WAS DONE AFTER

A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND READ.

THE QUALIFIER "'ADJ CYL WRITTEN AFTER FWD SK'' AND '‘ADJ CYL 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
m 535”5
THE
DIRECTION THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER

THE QUALIFIERS ''SK FWD, WRT-SK REV,

OVERWRT''

AND

‘'SK_REV,

THE

INITIAL

OVERWRT'' WILL BE REPORTED ONLY IN THE OVERWRITE TEST.
FINE THE DIRECTION

HEAD

MOTION

BEFORE

WRT=SK

FuWD,

THESE QUALIFIERS DEWRITE

AND

THE

SEQ 0023

2
PAGE 24

'OVERWRITE.

'THE QUALIFIER ''ON BAD SEC FILES'' WILL BE REPORTED WITH THE WRITE DATA

| MAND

(OM=

THE PROGRAM ABORTS THAT COMMAND BECAUSE THE WRITE WOULD BE ON THE

ier SECTOR FILES.
I
|
|
|
|

3.1.2

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

ERROR

DETECTED

THE END OF

ALL CASES.

THE OPERATION.

ONLY THE

MAY

REPORT

FIRST ERROR SEEN IS REPORTED

THE GENERAL FORMAT FOR THE RESULT LINE

RESULT:(VAR 1) IS (VAR 2) SB (VAR 3)
WHERE VARIABLE 1

MESSAGE

DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT

IS:

(OPTIONAL QUALIFIER)

CAN BE ONE OF THE FOLLOWING:

CONT ERR
DRV ERR
NON-EXSTNT MEM
HDR CRC

DATA CRC

HDR NOT FND

DATA LATE
HDR NOT FND/HDR CRC/OPI
DRV _RDY
SELECTED HEAD
VOL CHK
COVER OPEN
BRUSH HME
WRT LCK
HDS OUT
DRV SEL ERR
DRV STATE
SPIN TIMEOUT
WRT GAT ERR
SEEK TIMEOUT
CUR HEAD ERR
WRT DAT ERR
OP INCOMPLETE
HDR/DAT ERR

(CONTROLLER ERROR)
(DRIVE ERROR)
(NON=EXISTENT MEMORY)
(HEADER CRC ERROR)

(HEADER NOT FOUND)

(ALL 3 BITS SET)
(DRIVE READY)

(VOLUME ChECK)

(BRUSH HOME)

(WRITE LOCK)
(HEADS 0UT)
(DRIVE SELECT ERROR)
(DRIVE STATE)
(SPINDLE TIMEOUT SPD ERROR)
(WRITE GATE ERROR)

(SKTO ERROR)
(CURRENT IN HEAD ERROR)
(WRITE DATA ERROR)

(OPI ERROR)

(HDR CRC OR DATA CRC ERROR

BIT 11 OF CS REGISTER)

HDR NOT FND/DAT LATE

(HDR NOT FOUND OR DATA LATE

cvL

(CYLINDER WHEN REPORTING A

ERROR BIT 12 OF (S REGISTER)
SEEK ERROR)

SEQ 0024

M2
PAGE 25

¥2RIABLE 2 WILL BE A VALUE THAT DEFINES WHAT
THIS CAN BE A 1

NUMBER

(OCTAL)

OR O TO INDICATE A

SET

THE

RESULT

CONDITIONS,

TO INDICATE THE DRIVE STATE, OR A NUMBER 0 TO 377

TO IDENTIFY A CYLINDER NUMBER.

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE
THE

ACTUALLY

OPTIONAL

QUALIFIER

IS PROVIDED WHEN IT

IS USEFUL

THE ERROR WAS DETECTED IN
THE
OPERATION
BEING
QUALIFIER IS USED TO REPORT RESULTS SUCH AS:

SHOULD

BE.

TO KNOW WHEN

PERFORMED.

THIS

BRUSH HME IS 1 SB 0 IN STATE 2
HEADS OUT IS O SB 1 IN STATE 3
DRV RDY

IS 0 SB 1

IN DATA XFER

SELECTED HEAD IS 1 SB 0 IN CYCLE UP
DRV RDY
IS O SB 1 IN STATE 5
DRV RDY
IS 1 SB 0 IN SEEK W/0 MOTION
DRV RDY
IS 0 SB 1 IN 10MS
DRV RDY
IS 0 SB 1 IN 500MS
DRV RDY
IS 0 SB 1 IN 5SECONDS
THESE RESULTS, WHEN SEEN WITH THE OPERATION MESSAGE, WILL

EXPLANATORY.

SELF

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 CAN BE CAUSED BY THE
DRIVE LOSING READY BEFORE STARTING A READ HEADER AND THEREFORE NOT
COMPLETING THE READ HEADER IN 1MS.
"FAIL TO RELOAD HEADS AFTER ERR CLEAR"
THIS IS REPORTED WHEN AN ERROR CAUSES HEADS 10 UNLOAD AND AFTER THE
ERROR IS CLEARED THE HEADS DO NOT RELOAD.

"UNKN DRV STATE-NO RDY, NO ERR, HDS OUT"'
THIS IS REPORTED WHEN THE PROGRAM CANNOT DETERMINE THE DRIVE
OR STATUS.

STATE

"WRITE ABORTED'
THIS

IS REPORTED WHEN THE PROGRAM ABORTS A WRITE

TO PROTECT

THE BAD

SEQ 0025

2
PAGE 26

SECTOR FILES.

"'COULD NOT RETRIEVE DRIVE STATUS'
THIS IS5 REPORTED IF

THE GET STATUS COMMAND DOES NOT

COMPLETE

CESSFULLY WHEN THE STATUS IS REQUIRED TO REPORT AN ERROR.

SUC-

"OP1 SET-NO DRIVE RESPONSE"'
THIS IS REPORTED AS THE RESULT WHEN THE GET STATUS COMMAND I S TIMED
(OPI
SETS) WHEN THAT COMMAND IS BEING USED IN THE EARL Y TESTS
TO CHECK THE DRIVE INTERFACE.

OUT

"NO INTERRUPT ON CMND COMPLETE''
THIS IS REPORTED WHEN THE COMMAND SUCCESSFULLY

CONTROLLER HAS NOT GENERATED AN INTERRUPT.

COMPLETES

BUT

THE

"ERR DID NOT CLEAR"
THIS IS REPORTED WHEN THE RESET COMMAND DOES
NOT
CLEAR
TROLLER ERRORS.
THIS IS A CONTROLER RELATED PROBLEM BUT

ED IF SEEN IN THE DRIVE TEST PROGRAMS.

THE
CONIS REPORT-

‘DRV ERR IS NOT CLEARED''
THIS

IS REPORTED WHEN THE GET STATUS W/RESET COMMAND DOES NOT CLEAR

ALL DRIVE ERRORS.

"UNEXPECTED ERR'’
THIS IS REPORTED WHEN THE CONTROLLER SENSES AN ERROR BUT

BITS ARE SET.

ERROR

"BAD SEC FILE FMT ERR"
THIS IS REPORTED IF THE CONTENTS OF THE FILES DO NO
CORRESPOND
TO
}25 §XPECTED FORMAT.
(REFER TO DEC STANDARD 144 FOR FORMAT SPECIF-

3.1.3

OTHER MESSAGES

2;?5R INFORMATION IS REPORTED UNDER VARIOUS

CIRCUMSTANCES.

THESE

SEQ 0026

3
PAGE 27

"BAD SEC FILES NOT STRD.
THIS MESSAGE

ALL SEC ASSUMED GOOD.'

IS PRINTED WHEN A PARTICULAR

TEST

REQUIRES

THE

BAD

SECTOR
FILES BUT
THEY HAVE NOT BEEN STORED.
THIS SITUATION WILL
OCCUR IF THIS 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

SPECI-

FIED NUMBER OF ERRORS (DEFAULT 20) HAVE OCCURED IN ANY SINGLE PASS.

3.2

ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED
IN
WITH /FLAG:HOE.
THERE ARE NO OTHER HALTS.

4.0

PERFORMANCE AND PROGRESS REPORTS

6.1

PERFORMANCE REPORTS

THE

SECTION

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

4.2

PROGRESS REPORTS
THIS PROGRAM WI.L NOT GIVE ANY PROGRESS REPORTS.

DEVICE INFORMATION TABLES
THE RL11/RLV11 CON'ROLLER HAS THE FOLLOWING FOUR(4)

CONTROL OF THE SUBSYSTEM.

COMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT 1 0 SET)
= DATA LATE (WITH BIT 10 CLEAR )
= HEADER CRC (WITH BIT 10 SET)

—

ey b
g

moEm®

oy
-

RLCS = CONTRC!. AND STATUS REGISTER (XXXXX0)

-y

s.o

REGISTERS

FOR

SEQ@ 0027

3
PAGE 28

=
BIT 10 BIT 9/8
BIT
7 -

BIT

DATA CRC (WITH BIT 10 CLEAR)
OPERATICN lNCW&ETE
- DRIVE SELECT (0-3)
CONTROLLER READY

6 = INTERRUPT ENABLE

5 - EXTENDED BUS ADDRESS (BIT 17)

BIT 4 - EXTENDED BUS ADDRESS (BIT 16)
BIT 3-1 - FUNCTION CODE
0 - NOP (PDP=11) MAINT (LSI-11)
1 = WRITE CHECK

2 = GET DRIVE STATUS
3 - SEEK

4 = READ HEADER

5 = WRITE DATA
6 = READ DATA

7 = READ WITHOUT HEMDER COMPARE

BIT

0 - DRIVE READY

RLBA - BUS ADDRESS REGISTER (XXXXX2)

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT 0 SHOULD BE 0
RLDA - DISK ADDRESS REGISTER (XXXXX&)

@omomm

——
—

FOR READ/WRITE FUNCTIONS

15-7 = CYLINDER ADDRESS FOR TRANSFER

6 - SURFACE FOR TRANSFER
5=0 = SECTOR FOR TRANSFER (1-40.)

SEEK FUNCTION

]
— o

o B

Doy P

o o O (O O

15-7 - DIFFERENCE TO NEW CYLINDER

6-5 = MUST BE ZERO (0)

& = SURFACE (O=UPPER, 1=LOWER)

3 = MUST BE ZERO (0)
2 = SEEK DIRECTION( 1=IN / 0=0UT )
1 = MUST BE ZERO (0)

0 - MUST BE ONE (1)

GET STATUS FUNCTION

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

SEQ 0028

3
PAGE 29

RLMP - MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION

BIT 15 = 0 - WORD COUNT (TWO'S COMPLEMENT)
FOR READ HEADER FUNCTION

BIT 15-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

15 = WRITE DATA ERROR
14 - CURRENT HEAD ERROR (CHE)
13 - WRITE LOCK STATUS (WL)
12 - SEEK TIME OUT (SKTO)

BIT 11 - SPIN ERROR (SPE)

BIT 10 - WRITE GATE ERROR (WGE)
BIT 9 - VOLUME CHECK (VC)
BIT 8 - DRIVE SELECT ERROR (DSE)
BIT
7 - DRIVE TYPE IS RLO2 IF SET
BIT 6 - SURFACE (0=UPPPER, 1=LOWER)
BIT 5 - COVER OPEN

BIT

& - HEADS HOME

_3 - BRUSHES HOME

BIT 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

SEQ 0029

TEST 1

BASIC

INTERFACE TEST

PAGE 30

(PART 1)

LOAD IN DRIVE NUMBER.
DO GET STATUS WITH RESET.
|IF OPI SETS:
DRIVE INTERFACE IS DEAD
DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
MARKER DETEC/ION FAILED
DRIVE IS NOT SELECTING OR AC LOW IS SET

SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.
IF INTERRUPT WITH NO OPI, CHECK STATUS RECEIVED.

AND BRUSH HOME SHOULD BE SET.

BAD COVER sun

NOT:

T
TC

BAD STATUS DATALINE

COVER

OPEN

:
CHECK WRITE LOCK STATUS BIT SET.
IF
BAD SWITCH OR WRITE LOCK
L
OGIC
DRIVE COMMAND SHIFT REGIST

CHECK STATE FOR 0.
IF NOT:
BAD STATE ROM
DRIVE COMMAND SHIFT REGISTER
C(HECK VOLUME CHECK RESET.
IF NOT:
BAD RESET DETECTION
BAD VGLUME CHECK LOGIC

DRIVE COMMAND SHIFT REGISTER

CHECK DRIVE ERROR RESET.

IF NOT:

BAD DRIVE ERROR INTERFACE
SOME OTHER ERROR STUCK ON. REPORT WHICH ERROR.
NOTE:

TEST 2

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

BASIC INTERFACE TEST (PART 2)

REQUEST OPERATOR TO CLOSE COVER AND RESET WRITE LOCK.

DO GET STATUS LOOP
RESETS.
WAIT
15

CHECKING
IF
COVER OPEN OR WRITE LOCK
SECONDS FOR BOTH TO CHANGE.
IF NO CHANGE,

ASK OPERATOR TO TYPE CR IF PROCEDURF WAS FOLLOWED.

3
PAGE 31

IF ONE CHANGED BUT NOT THE OTHER, REPORT WHICH FAILURE:
WRITE LOCK SWITCH OR LOGIC
(CR) COVER OPEN SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER
IF NEITHER CHANGED, REPORT BOTH FAILURES.
NOTE:

TEST 3

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

HEAD LOADING TEST

REQUEST OPERATOR TO PRESS LOAD SWITCH.
DO GET STATUS LOOP CHECKING FOR STATE TO GO
TO
1.
WAIT
30
SECONDS
FOR
CHANGE.
IF
NO CHANGE, ASK OPERATOR TO CONFIRM
ACTION BY TYPING CR.

IF LOAD WAS PRESSED:

BAD STATE ROM
BAD LOAD SWITCH OR LOGIC

CHECK THAT STATE 1 REMAINS FOR LESS THAN 30 SECONDS.

IF NOT:

SPINDLE NOT TURNING OR TOO SLOW (AC SERVO)
SECTOR PULSE DETECTION OR LOGIC BAD
BAD CLOCK SHIFT REGISTER IN SPEED CONTROL
BAD DISK ON SPEED LOGIC
BAD STATE ROM
AND CHECK IF SPINUP TIMEOUT ERPOR SET.

IF NOT:

BAD STATE ROM
BAD TIMEOUT DETECTION LOGIC

CHECK THAT STATE GOES TO 2 OR 3 (WHICH STATE DEPENDS ON WHETHER
THE DRIVE HAS A BRUSH).

IF NOT:

BAD STATE ROM
IF THE DRIVE HAS A BRUSH, CHECK THAT
SECONDS OR LESS AFTER
STATE IS

HOME IS RESET 5
IF NOT:

BAD BRUSH HOME SWITCH OR LOGIC
BAD BRUSH MOTOR (AC SERVO)

SEQ 0031

3
PAGE 32

WAIT 30 SECONDS FOR BRUSH HOME TO SET.

IF NOT:

BAD AC SERVO
BAD SWITCH OR LATCH

CHECK THAT STATE HAS CHANGED TO 3.

IF NOT:

BAD STATE ROM
AFTER STATE IS 3, CHECK HEADS OUT IS SET.

BAD
BAD
BAD
BAD

IF NOT:

SWITCH
SEEK CONTROL ROM
VELOCITY ROM
DC SERVO

CHECK IF DRIVE ERROR IS SET.

IF NOT:

BAD DRIVE ERROR LOGIC OR INTERFACE
WAIT 360 MS FOR STATE TO CHANGE TO 4.

IF IT DOESN'T CHAWNGE:

STATE ROM BAD
SEEK _ROM
VEL ROM

GUARD BAND DETECTION

WAIT 15 MS FOR STATE TO CHANGE TO 5.
CHECK VOLUME CHECK IS SET.

IF NOT:

BAD VOLUME CHECK LOGIC

8 MS AFTER STATE GOES TO 5, DRIVE READY SHOULD SET.

IF NOT:

INTEGRATOR OR NULL DETECTION FAILURE
READY ONE SHOT BAD
ENABLE TIMEOUT H NOT SETTING OR COUNT LOGIC BAD
NOTE:

TEST &

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

HEAD UNLOADING TEST

CHECK DRIVE IS READY.
DRIVE READY.

IF NOT KEPORT AND ASK OPERATOR TO

REQUEST OPERATOR TO UNLOAD DRIVE.

MAKE

SEQ 0032

3
PAGE 33

LOOP ON GET STATUS WAITING FOR STATE TO CHANGE TO
:
CHANGE

AFTER STATE IS 7, WAIT 30 SEC FOR STATE TO CHANGE TO STATE
:
IF NO CHANGE

BAD STATE ROM
BAD SWITCH
WAIT 300 MS FOR STATE TO CHANGE TO 7.

[IF NO CHANGE:

BAD STATE ROM

NO BRAKING

BAD AC SERVO
RREOAgSST OPERATOR TO LOAD
NOTE:

DRIVE.

WAIT

UNTIL

DRIVE

BECOMES

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2

IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,

AND IS RUN IN FIRST PASS ONLY.

TEST 5

DRIVE SELECT TEST

INSTRUCT THE OPERATOR TO REMOVE DRIVE ADDRESS PLUGS FROM ALL
DRIVES EXCEPT THE DRIVE UNDER TEST.
ASK THAT CARRIAGE RET URN
BE TYPED WHEN DONE.
DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST.
CHECK
THAT NO
ERRORS ARE REPORTED.
DO GET STATUS TO ALL OTHER ADDRESSES AND
CHECK THAT OPI SETS FOR ALL OTHER ADDRESSES.
DO GET STATUS TO ADDRESS OF NEXT
THAT

ERRORS

ARE

REPORTED.

SEQUENTIAL

ADDRESSES AND CHECK THAT OPI SETS.
REPEAT FOR ALL DRIVE ADDRESSES
AFTER 3).
NOTE:

TEST 6

ADDRESS.

CHECK

GET STATUS TO ALL OTHER

(0,1,2,3

SEQUENTIAL

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS
RUN IN FIRST PASS ONLY.

DRIVE SELECT ERROR TEST

REQUEST OPERATOR INSERT IDENTICAL ADDRESS PLUGS IN TWO

DRIVES

SEG 0033

3
PAGE 34

(MUST

BE_IDENTICAL

NUMBER

SPECIFIED EARLIER).

REQUEST

OPERATOR TYPE CARRIAGE RETURN WHEN READY.
PROCEDURE WILL BE

TO GET STATUS AND

CHECK

FOR

DRIVE

SELEC

ERROR.
THEN RESET
THAT
DRIVE AND VERIFY THAT DRIVE SELEC
ERROR IS NOT REPORTED AGAIN.
WAIT 1 SECOND, THEN CHANGE DRIV
SELECT
TO A DIFFERENT NUMBER AND BACK AGAIN.
DRIVE SELEC
ERROR SHOULD SET AGAIN.
OPERATOR SHOULD SEE THE FAULT LIGHT ON
INDICATOR IS NOT SEEN ON A DRIVE:

BOTH

DRIVES.

DRIVE SELECT ERROR DETECTION IS BAD IN THAT DRIVE.
NOTE:

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
1S SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS

RUN IN FIRST PASS ONLY.
TEST 7

INITIAL STATE TEST

INSTRUCT OPERATOR TO GO THROUGH A LOAD HEADS CYCLE TO
INITIALIZE
THE TEST.

DO GET STATUS, WAIT FOR INTERRUPT.

IF OP1 OCCURS:
DRIVE INTERFACE IS DEAD
DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
DRIVE IS NOT SELECTING OR AC LOw IS SET
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.

IF INTERRUPT OCCURS WITHOUT OPI, CHECK DRIVE READY.
INDICATES
HEADS
ARE
LOADED AND ARE
TRACKING
WORKING).
IF MANUAL INTERVENTION TESTS WERE RUN, CHECK THAT
SELECTED.
IF NOT:

READY SET
(POSITION
HEAD

DRIVE CYCLE UP DID NOT SELECT HEAD 0

IF DRIVE READY IS SET, CHECK STATUS fiSSAGE
OUT AND BRUSH HOME MUST BE SET.
IF NOT:

RECEIVED.

HEADS

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
HEADS OUT OR BRUSH HOME SWITCH OR ASSOCIATED

P—————————————

CIRCUITRY BAD

SEQ 0034

3
PAGE 35

STATUS DATA BAD
IF MANUAL INTERVENTION TESTS WERE RUN AND THIS

THE

PASS CHECK THAT VOLUME CHECK AND DRIVE ERROR ARE SET.

FIRST

CHECK ALL ERROR BITS ARE 0.

CHECK STATE IS 5.

1IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
NOTE:

THIS TEST IS EXECUTED IF PROGRAM MODE 2 IS SELECTED,

MANUAL INTERVENTION TESTING IS REQUESTED, AND [S RUN

IN FIRST PASS ONLY.

TEST 8

INITIAL RESET STATE TEST

DO GET STATUS HEAD SELECT = 0, WAIT FOR INTERRUPT.
DO GET STATUS WITH RESET,
WAIT
FOR
INTERRUPT.
BOTH
ERROR AND VOLUME CHECK SHOULD NOW BE RESET.
IF NOT:

DRIVE

RESET DETECTION, RESET ERROR, OR VOLUME CHECK FLOP

BAD

DPRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECTED BIT SHOULD STILL BE ZERO.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECT SHIFT REGISTER NOT LOADING

NOTE:

THIS TEST IS EXECUTED IF PROGRAM MODE 2 IS SELECTED,

MANUAL INTERVENTION TESTING IS REQUESTED, AND IS RUN

IN FIRST PASS ONLY.

TEST 9

DRIVE READY TEST

DO SEEK
WITH O DIFFERENCE,
SIGN 0,
HEAD 0.
INTERRUPT.
GET STATUS.
CHECK STATE IS 5.
[IF NOT:

WAIT

FOR

DIFFERENCE COUNTER PICKING UP BITS
COUNTER CIRCUITRY IS NOT INDICATING O DIFFERENCE
CHECK DRIVE READY IS RESET.

IF NOT:

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD
WAIT APPROX 8 MS FOR READY TO SET.
DOESN'T SET AT ALL:

TAKES

LONGER

SEQ 0035

3
PAGE 36

HEADS MAY HAVE MOVED

READY ONE SHOT FAILED

CHECK DRIVE ERROR DID NOT SET.

REPORT WHICH ERROR.

(INTEGRATOR OR NULL DETECTION)

IT SET, DO GET

STATUS

AND

VERIFY HEAD SELECT IS ZERO.
TEST 10 SEEK SIGN SWITCH TEST

INTERRUPT. GET STATUS AND CHfCK STATE IS 5. IF NOT:

SEEK

WITH

DIFFERENCE

SIGN

HEAD

WAIT

FOR

COUNT ROM
DIFFERENCE COUNTER PICKING UP BITS
COUNTER CIRCUITRY IS NOT INDICATING O DIFFERENCE
VERIFY DRIVE IS NOT READY

WAIT APPROX 8 MS FOR READY TO SET.
DOESN'T SET AT ALL:

TAKES

LONGER

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED

COUNT ROM

VERIFY DRIVE ERROR DID NOT SET
VERIFY HEAD SELECT IS ZERO.

DO SEEK WITH O DIFFERENCE,
ABOVE TESTS.

OPPOSITE

SIGN,

HEAD

REPEAT

TEST 11 HEAD ALIGNMENT SUPPORT ROUTINE
THIS TEST IS EXECUTED WHEN HEAD ALIGNMENT SUPPORT IS REQUESTED,

AND IN THE FIRST PASS ONLY.
AR RRARERAAAAARAAACAAAANEAARAAAAAAAAAAARANAARATRAANERCROERROIORTROEONORY

NOTE:

LAAAAA AL AR A

THE NULL DETECTOR AND SEEK TIMEOUT SHOULD BE

GROUNDED ON THOSE DRIVES WHICH LACK THE HEAD
SELECT TEST POINTS. THE TEST WILL NOT SWITCH
HEADS IF THERE IS A DRIVE FAULT.

AR ARt

ittt

222 0]

THIS TEST SELECTS THE DRIVE UNDER TEST
AND
LOOPS
ON A
GET
STATUS WITH RESET.
THE WRITE LOCK BIT IS MONITORED AND WHEN

SEQ 0036

3
PAGE 37

WRITE LOCK IS RESET HEAD O IS SELECTED AND WHEN WRITE LOCK
IS
SET
HEAD
1
IS
SELECTED.
THIS WILL PERMIT THE HEADS TO BE
ALIGNED IN KEEPING WITH THE PRESENT HEAD ALIGNMENT
PROCEDURE
WITHOUT RETURNING TO THE CONSOLE.
TYPING A CARRIAGE RETURN ON THE

CONSOLE

WILL

ERHINATE

THIS

TEST
ON
THE
DRIVE UNDER TEST.
BEFORE TERMINATING, THE TEST
WILL CHECK THAT WRITE LOCK IS RESET.
IF
NOT,
THE
OPERATOR
WILL BE REQUESTED TO RESET WRITE LOCK.
TEST 12 HEAD SWITCHING TEST

DO_SEEK WITH O DIFFERENCE,
SIGN 0,
HEAD
1.
WAIT
INTERRUPT.
GET STATUS AND CHECK STATE IS 5.
IF NOT:

FOR

DIFFERENCE COUNTER IS PICKING UP BITS
ASSOCIATED CIRCUITRY IS BAD

VERIFY DRIVE READY RESET.

IF NOT:

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD

WAIT APPROX 8 MS FOR READY TO SET.

DOESN'T SET AT ALL:

IT TAKES LONGERA OR

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED
DRIVE CANNOT TRACK WITH THIS HEAD
VERIFY DRIVE ERROR DID NOT SET.

DO GET STATUS, CHECK HEAD SELECT IS CORRECT.

IF NOT:

HEAD SELECT REGISTER BAD
DRIVE COMMAND SHIFT REGISTER BAD

ggs§§fk WITH O DIFFERENCE,

SIGN

HEAD

REPEAT

ABOVE

TEST 13 READ HEADER TEST (PART 1)
DO SEEK WITH DIFFERENCE O, HEAD 0O, SIGN 0.
AND WAIT FOR DRIVE READY.

DO READ HEADER, WAIT FOR INTERRUPT,
CHECK IF HEADER CRC ERROR SET.

[IF SET:

WAIT FOR INTERRUPT

n3
PAGE 38

READ/WRITE BOARD BAD
READ DATA LINE BAD

E?E£SYl' BIT 6 OF WORD 1 IS SAME AS HEAD SELECT BIT IN STATUS.
HEADS ARE SWITCHED (CABLE)
HEAD SELECT LOGIC

IF MANUAL INTERVENTION TESTS WERE RUN AND HEAD AL IGNMENT TESTS
WERE
NOT RUN,
CHECK
THAT HEADER WORD O INDICATES HEADS ARE
POSITIONED OVER CYLINDER O.
STORE HEADER WORD 1.
REPEAT TESTS USING HEAD 1.

CHECK THAT CYLINDER PORTION OF STORED HEADER WORD
SAME AS HEADER WORD 1 OF THIS HEADER.
IF NOT:

THE

WAIT

FOR

HEADS ARE MISALIGNED
TEST 14 READ HEADER TEST

(PART 2)

DO_SEEK WITH DIFFERENCE 0,
INTERRUPT.
WAIT FOR READY.

SIGN

HEAD

ggAgO CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH
CHECK ALL HEADERS FOR SEQUENCE AND CONTENT (WORD 2

ALL

ZERO,

REPEAT ABOVE

TEST

BIT 15 WORD 1 AND 3 IS O, HS BIT WORD 1 IS 0).

IF NOT:

BAD READ/WRITE BOARD
BAD PACK

DO SEEK WiTH DIFFERENCE O, SIGN O, HEAD 1.
FOR HEAD 1.
TEST 15

DIFFERENCE OF 1 SEEK TEST (PART 1)

DO READ HEADER, WAIT FOR INTERRUPT.
STORE WORD 1 OF HEADER.
DO SEEK WITH DIFFERENCE OF 1, HEAD 0.
IF CYLINDER OF
STORED
HEADER WORD IS NOT 255 THEN SIGN BIT 1, ELSE SIGN BIT 0.
WAIT
FOR INTERRUPT.
DO GET STATUS, WAIT FOR INTERRUPT.
CHECK STATE IS 4.
[IF NOT:

r——————

DRIVE COMMAND SHIFT REGISTER BAD
DIFFERENCE REGISTER DROPPED BIT
STATE ROM FAILED

SEQ@ 0038

3
PAGE 39

WAIT APPROX 20 MS.

STATE IS 5.

IF NOT:

DO GET STATUS, WAIT FOR

INTERRUPT.

(CHECK

DIFFERENCE REGISTER NOT COUNTING
COUNT PULSE NOT GENERATED (COUNT LOGIC)
SEEK ROM FAILED

FAILURE

IN DC SERVO

NO TACH FEEDBACK
WAIT APPROX 5 MS LONGER.

TEST DRIVE READY.

IF SET:

FAILURE IN READY LATCH OR INTEGRATOR

WAIT APPROX 5 MS LONGER.
FAILURE

TEST READY.

IF RESET:

IN INTEGRATOR

UNEXPECTED GUARD BAND DETECTED
DO SEEK WITH DIFFERENCE 1, OPPOSITE SIGN, HEAD 0.

REPEAT

TESTS AS ABOVE.

ALL

REPEAT TEST USING HEAD 1.

NOTE:

THIS TEST IS PERFORMED AT THE CYLINDER POSITION

THE

DRIVE

WHEN

THE

TEST

EXECUTES.

FOUND

CHOOSING A

SINGLE SURFACE WILL LIMIT TESTING TC THAT SURFACE.

TEST 16

DIFFERENCE OF 1

SEEK TEST (PART 2)

DO READ HEADER, WAIT FOR INTERRUPT.

STORE WORD 1 OF HEADER.

DO SEEK WITH DIFFERENCE OF 1, HEAD 0.
IF CYLINDER OF
STORED
HEADER WORD IS NOT “HILIMIT'® THEN SIGN BIT 1, ELSE SIGN BIT 0.
WAIT FOR INTERRUPT, WAIT FOR DRIVE READY.

DO READ HEADER, WAIT FOR INTERRUPT.
?EARS?

WITH

COMPARE CYLINDER OF

THIS

CYLINDER OF STORED HEADER FOR DIFFERENCE OF ONE.

COUNT LOGIC BAD
INTEGRATOR FAILED
figgCK THAT HEADS MOVED FORWARD OR

.
REVERSE

EXPECTED.

SEEK ROM FAILED
DO SEEK WITH DIFFERENCE OF 1, OPPOSITE SIGN, HEAD
ALL TESTS AS ABOVE.

REPEAT

SEQ 0039

4
PAGE 40

REPEAT TEST USING HEAD 1.

NOTE:

THIS TEST IS PERFORMED AT THE CYLINDER POSITION FOUND
IN THE DRIVE WHEN
THE
TEST EXECUTES.
CHOOSING A
SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE.

SEG 0040

C
CZRLIDO RLO1/02 DRIVE TEST 1

1
2 000000
3

000001

002000

.’

.
|
z

8 002000

10
1
12
13

}‘i 002000
16 002000
17 002000

002000
002001
002002
002003
002004
002005
00
002007
002010
002011
002012
002014

040376
040552
014310
014326

2030
002032
34
36
002040
002042
002044

000000
000000
000000
000000
014344
000000
000000

002026 040764

002052
002054

000000
003
003

.=2000

JMCALL

SVC

SVCTST=1

SVCSUB=1
SVCBGL=1
SVCINS=0
SVCTAG=0

POINTER BGNSW,BGNSFT,BGNDU
BGNMOD
HEADER

MDHEDR
CZRLI,D.0.1.0

ASCIT 7¢7
JASCIT 727
JASCII 7R/
JASCII 7L/
JASCIT 717
BYTE 0
BYTE 0
BYTE 0
LASCII /b7
LASCIT 70/
.WORD
0
JWORD 1
.WORD
.WORD
.WORD
.WORD

-WORD

-WORD
LWORD
JWORD
JWORD
LWORD
-WORD
-WORD

-WORD
.BYTE
.BYTE

LSHARD
LSSOFT
LSHW
LSSV

ksusr

O
O
O
LSDISPATCH

CSREVISION
CSEDIT

JWORD
JWORD

O
O

000000

JWORD

JWORD
.WORD
EMT

0
LSDESC
sswno

003030
000000
002072
016%‘0
764 000000
002076
002100
002102

MD,ME,CND,TOC

000000
000000

883360“ 88?‘2"1”2’

CNLIST

000001
000001
000000
000000

103
132
122
114
M
000
000
000
104
060
1

002122
104035
000000

SEQ 0041

4=AUG=-82 10:30:59 PAGE 1

PART1==1
.ENABLE ABS
LIST
MC

000001

002016
002020
2
002024

002050
51

MACRO V04.00

'gg osovrvp

‘Womb
-WORD
.WORD

LSDU

D
CZRLIDO RLO1/702 DRIVE TEST 1 MACRO V04.00 4-AUG=-82 10:30:59 PAGE 1-1

002104
002106
002110

014412
016174
015636

LWORD
.WORD
.WORD

002112 0144064
oosm 000000
002116 000000
002150 000000
;g 002122
20 00212

002125

002125
002130
002133
002136
002141
002144
002147
002152
002155
002160
002163
002166
002171
002174
002177
002202
-

002205
002210

22 002212

002212

002215
002220
002223

103

114
124
124
124
040
060
060
m
105
101
040
104
101
103
122
105
117
103

122

061
114
000

ENDMOD

132

111
105
123
110
122
061
062
116
122
103
101
040
123
040
11
040
107
000

114

054
060

122

040
123
040
105
114
055
040
124
106
105
116
102
5k
104
126
114

DESCRIPT

-WORD
-WORD
JWORD
JWORD

SEQ 0042

LS$INIT
LSCLEAN
LSAUTO

5mor
0

0
<CZRLI TESTS THE RLO1-02

INTERFACE AND

RIV

.EVEN

060
122
062

DEVIYP

<RLO1,RLO2>

LASCIZ mot.uoS/

.EVEN

24
25
26
27
28

:COPYRIGHT (C) 1979
:THIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY
“ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WiTH
;THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
:SOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED

:FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE

29
31

:OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT

:LICENSE TERMS. TITLE TO OWNERSHIP OF THE SOF TWARE SHALL
*AT ALL TIMES REMAIN IN DEC.

:THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

339

;BY DIGITAL EQUIPMENT CORPORATION.

38
39

LASCIZ /CZRL! TESTS THE RL01-OS INTERFACE AND gngff 3n§v§ 'igccffiz

;WITHOUT NOTICE AND SHWALL NOT

BE CONSTRUED AS A COMMITMENT

*DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
*OF ITS SOF TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

canl
DO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG=82 10:30:59 PAGE 2

SEQ 0043

BITAND OFFSET DEF INITIONS

LSBTTL

BIT AND OFFSET DEFINITIONS

3 002224

BGNMOD

GLBEQAT

s 002224

EOUALS

;: BIT DIFINITIONS

100000

axr;s=s 100000

020000
010000
000
002000
001000

BIT13==
BIT12==
BIT11==
8IT10==
BIT09==

20
10000
4000
2000

000200
000100
000040
000020
000010
000004
000002
000001

81T07==
BIT06==
BIT0S==
BIT04==
BIT03==
BiT02==
BITO1==
BITO0==

200
100
40
20
10
4
2
1

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

8179==
BIT8==
BIT?==
axrg::
BITS5==
BITé==
BIT3==
8IT2==
BIT1==
BITO==

BITO9
OIYO,
BIT
BIT
Bltg‘
BIT
BIT03
BIT02
"'33
BIT

040000

|
,

000400

BITid== 40000

1880

BIT08== &

; EVENT FLAG DEFINITIONS
:
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000040

000037
000036
000035
000034

£F.START==

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

: START COMMAND WAS ISSUED

1.
:
»
8.

:
:
:
:

: PRIORITY LEVEL DEFINITIONS

000340

PRI06== 300
PRIOS== 240
PRI104== 20
PRI03== 14

000040

PRIOT== 40

000100
000000

——

PRIO7== 340

000300
000240
000200
000140

—

PRI02== 100
PRI00== 0

———

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

DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 2-1
EF INITIONS

SEQ 0044

WA
NN NN NIND = b cd b e ed ced e e ek
SISRRUZ
= OVNOWVSWN = OVRNOWVSWN=O
VRN

:OPERATOR FLAG BITS

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

EvL==
LOT==
ADR==
1DU==
ISR==
UAM==
BOE==
PNT==
PRI==
IXE==
IBE==
IER==
LOE==
HOE==

4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000

000000
000002
000004
000006
000010
000012

SR
VECT
PRIOR
TYPDR
DRSB
CNT

OFFSETS FOR HARDWARE P-TABLE

000000
000002
000004
000006
000010
000012

MISWl
LOLIM
HILIM
HEAD
ERLIM
DCLIM

OFFSETS FOR SOF TWARE P-TABLE

000001
000002
000004
000010
010000
020000
040000
100000

ALLCYL =BIT
ALLSEC =BITO1
DREELT amsg
HDALIGN =BIT
HEADLM -emg
HICYL =BITI
LOCYL =BIT14
MITEST =BIT1S

BIT

000102
000104
000106
000110
000112
000114
000116
000100

CKDATA
GTSTAT
SEEK
RDHEAD
WIDATA
RDDATA
RDNOHR
NOOP

007777

tomPoP =7777

000002
000001

=0
=
=4
=6
=10
=12

:BUS ADDRESS
*VECTOR ADDRESS
*PRIORITY
‘DRIVE TYPE
:DRIVE SELECT
*CONTROLLER TYPE

=0
=2
=4
=6
=1
=1

:SOF TWARE PARAMETERS SWITCHES
:CYLINDER LOWER LIMIT
*CYLINDER HIGH LIMIT
*SELECTED HEAD FOR RUNNING TESTS
:ERROR LIMIT
:DATA COMPARE ERROR LIMIT

ASSIGNMENTS FOR SOF TWARE P-TABLE SWITCHES

SUBSYSTEM FUNCTIONS

=102
=104
=106
=110
=112
=114
=1‘1,3
=1

RATION FLAGS

HDRCMP =BITO1
DATACMP =BIT00

;USE ALL CYLINDERS
:USE ALL SECTORS
:EXECUTE DRIVE SELECT TEST
SEXECUTE HEAD ALIGNMENT TEST
:HEAD LIMIT SPECIFIED FLAG
*HI LIMIT SPECIFIED FLAG
‘L0 LIMIT SPECIFIED
:EXECUTE MANUAL INTERVENTION TESTS

;WRITE CHECK
*GET STATUS
+SEEK
:READ HEADER
‘WRITE DATA
:READ DATA
*READ DATA, IGNORE HEADERS
*NO OPERATION

;COMPOSITE OPERATION FLAGS
*HEADER COMPARE OPERATION
:DATA COMPARE OPERATION

TOSLOW
NOIRPT
CONHNG
NOCLR

RLCS
RLBA
RLDA
RLMP
RLCSR
ANYERR

DRVERR
NXMERR
DLTERR
HNFERR
DCKERR
HCPCERR
OPIERR
DSMSK
CRDYMSK

SEQ 0045

] —
) ]
) o)

)
)

R
T

]

)

]

RORWOP
RELDWT
HDR40
MQUALS

11
1§
1
14

)

BADADD
SEEKOP

0
08
09
10

]

REVSKO
FWDSKO

pe—- D

FWDSKS

.8'. &b tb &b &b &b G &b b &b &b & D

FOLWRT
REVSKS

0
0
04
05

CYLUP
ULOAD
INOUTS
OUTINS

&2
VIS WN—=O VN

VIV
LS S S

-4 0
—
-]

—~

(E»S‘; 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 2’3

{REV'SE

sFWD SE

:REV SE

Q (OVERWR

sFWD SEEK SEQ (OVERWRI

:BAD DISK ADDRESS

sSEEK OPERATION

sREAD OR WRITE OPERATION
JRELOAD WAIT

:40 HEADER OPERATION

I NS!INOUTS!FOLWRT
!REVSKS ! FWDSKS 'REVSKO'F WDSKO
sMESSAGE QUALIFIER BITS

ERROR FLAGS FROM SUBROUTINES
=BIT00
sOPERATION TOOK TOO L ONG
=BIT01
:NO INTERRUPT FROM OPERATION
=BIT0
sCONTROLLER HUNG

=BITO

:BAD CONTROLLLR CLEAR

=0
=2

sCONTROL AND STATUS REGISTER
;BUS ADDRESS REGISTER

=4
=6

;DISK ADDRESS REGISTER
sMULTI-PURPOSE REGISTER

=0
=100000

s CONTROL AND STATUS REGISTER
:ANY ERROR BIT

=20000

;NON-EXISTENT MEMORY ERROR

=40000
=1

=1
b
=4

32088
=14

=200

INTEBL =100
BAMSK
=60
DRDYMSK =1

;DRIVE ERROR BIT

sDATA LATE ERROR

sHEADER NOT FOUND ERROR
sDATA CHECK ERROR
sHEADER CHECK ERROR

sOPERATION INCOMPLETE ERROR
sDRIVE SELECT MASK

sCONTROLLER READY MASK

s INTERRUPT ENABLE MASK

:BUS ADDRESS UPPER MASK
;DRIVE READY MASK

——

pT
o
o

SAMSK

SEQ 0046

NN N N N W W N N NN N POPININI
N = = b e e o e wd d =

000020

;SECTOR ADDRESS MASK

=100

DIRBIT
HDSEL

86
=20

RSGISYER BIT DEFINITIONS = DISK ADDRESS FOR GET STATUS

JHEAD SELECT MASK

sMUST BE SET, BIT 0

:DIRECTION BiT
HEAD SELECT BIT

000003
000010

GETSTAT =
DRSET
=10

017777

WCMSK

WCRNG

8160000

000077
000100

:
HDSEC
HDHSEL

R GISTER BIT DEFINITIONS = MP FOR GET STATUS

160000

000007
000010
000020
000040
000100
000400
001000
002000
004000
010000
020000
040000
100000

002224

R;?lSYER BIT DEFINITIONS = DISK ADDRESS FOR DATA XFER

HSMSK

MBSETO

NN
N

-t 20

—

[+ « Fau}

EST 1 MACRO v04.00 4-AUG~-82 10:30:59 PAGE 3

ONS

STAMSK
BHSTAT

HOSTAT
COSTAT

HSSTAT

17777

3100

:10

=20
=40

=100

sGET STATUS SETUP
;DRIVE RESET MASK

sWORD COUNT MASK

;WORD COUNT RANGE MASK

MEAD SELECT MASK

sSTATE MASK
:BRUSH HOME STATUS

:HEADS OUT STATUS
;COVER OPEN STATUS

:HEAD SELECT STATUS

DSESTAT =4
VCSTAT =

DRIVE SELECT ERROR STATUS
sVOLUME CHECK STATUS

HCESTAT =40000
WDESTAT =100000

sHEAD CURRENT ERROR STATUS
;WRITE DATA ERROR STATUS

WGESTAT =2000
SPDSTAT =4000
STOSTAT =10000
WLSTAT =20000

ENDMOD

WRITE GATE ERROR STATUS
:SPIN ERROR STATUS
sSEEK_TIMEOUT ERROR STATUS
;WRITE LOCK STATUS

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4~AUG=-82 10:30:59 PAGE &

SEQ 0047

BIT AND OFFSET DEF INITIONS
1

.SBTTL

:DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF

5
8

100-MILLISECOND TIME COUNTS.

:THIS TIMING IS PERFORMED BY SOF TWARE USING CPU TIMING AND IS HIGHLY MACHINE
DEPENDENT.

:DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS.

:DEPENDENT .

25
26

r——————————

MACRO DEF INITIONS

:THIS TIMING IS PERFORMED BY SOF TWARE USING CPU TIMING AND IS WIGHLY MACHINE

:DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 700-MICROSECOND TIME COUNTS
:USING A kW11-P PROGRAMMABLE CLOCK OR A LINE CLOCK. THE TIME DELAY IS INVALID

:IF TOO LARGE AN ARGUMENT IS USED WITH THE LINE CLOCK.

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 5

SEQ 0048

MACRC DEFINITIONS
1

.SBTTL

GLOBAL DATA AND CONSTANTS

fso 002224

BGNMOD

GLBDAT

:
OPMSGS:

TABLE OF OPERATION MESSAGES
.WORD
O
JFILLER

6
7 002224

8 002¢26

9 002%
10 002232
11 002234

000000

005271

+WORD

MWRCHK

sMESSAGE FOR WRITE CHECK

MWRITE

;

005315
005242
005261

«WORD
«WORD
.WORD

MGTSTA
MSEEK
MREADH

13 002240
14 002242
15 002244
16 002246
17 002250
18 002252
19 002254

005250
005400
005327
005346
005445
005434
005476

«WORD
«WORD
«WORD
«WORD
«WORD
«WORD
.WORD

MREAD
MWRSET
MDATCP
MHDRCP
MCYLUP
MULOAD
MINOUT

22 002

005543

29 002

000000

34 002312
35 002314
}6, 002316

000000
000000
000000

12 002236

20 002256
21 002260

23 002264
24 002266
25 002270
26 002272
27 002274
28 002276

30 002302
31 002304
32 002306
33 002310

005303

+WORD

005455
005521

.WORD
«WORD

005576
005665
005631
005721
005364
000000

.WORD
.WORD
.WORD
«WORD
«WORD
T.DRIVE: .WORD

.WORD

JJJ:

.WORD

MOUTIN
MFOLWRT

MREVSK

MFWDSK
MRESKO
MFWSKO
MBADAD
M4GOHDR
8

;
:
:

GET STATUS
SEEK
READ HEADER

;
:
:
H
H
H
;

READ DATA
WITH RESET
WITH DATA COMPARE
WITH HEADER COMPARE
LOAD HEADS
UNLOAD HEADS
IN-OU'T SEQ

;
H

;
:
:
:
:

WRITE DATA

OUT-IN SEQ
FOLLOWING WRITE

REV SEEK

FWD SEEK
REV SEEK
FWD SEEK
BAD DISK ADD FOR WRITE
40 HEADER OPERATION

000000
000000
000000
000000

HLMTW:
CLRBYT:
NXTHL:
GBND:

.WORD
.WORD
.WORD
.WORD

39 002320

010415

RESTBL: .WORD

TABLE OF RESULT NAME MESSAGE ADDRESSES
MCERR

:CONTROLLER ERROR

41 002%54

011041

.WORD

MNEERR

sNON-EXISTENT MEMORY ERROR

40 002322

42
43
44
45

010526

002326
002330
002332
002334

011013
010776
010766
011057

47 002340
48 002342
49 002344

010751
010733
000000

46 002336

50 002346
51 002350
52 002352
53 002354
54 002356

000000

010715
010662
010700
000000
010632

CAMSK:
.WORD
DIRMSK: .WORD
HDCYL:
.WORD

.WORD

.WORD
«WORD
.WORD
.WORD

WORD

.WORD
.WORD
WORD

«WORD
.WORD
.WORD
.WORD
.WORD

O
O
8

O
8

MDRERR

sDRIVE ERROR

MFLERR
MHDERR
MOPERR
MNDRST

sHEADER NOT FOUND-DATA LATE
sHEADER OR DATA ERROR
sOPERATION INCOMPLETE
sNO DRIVE STATUS AVAILABLE

MWDERR
MHCERR
O

sWRITE DATA ERROR
sHEAD CURRENT ERROR

MSTERR
MSPERR
MWGERR
0
MDSERR

sSEEK TIMEOUT ERROR
s SPINDLE ERROR
;WRITE GATE ERROR
;DRIVE SELECT ERROR

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 6

SEQ 0049

GLOBAL DATA AND CONSTANTS
‘

002360

L 002362

S 002364

;

004764

PATTBL:

004766

005026

005126

10 002376
11 002400

005176
075236

.WORD
.WORD

}2 002404 000000

17 002406
18 002410
19 002412

20 002414
21 002416
22 002420
23 002422
24 002424
gg 002426

PAT

.WORD

"WORD

0.5240

PAT

PATé

005134

g 002402

PATI

‘WORD

8 002372

9 oozgn 005174

.WORD

"WORD

.WORD

6 oozga» 005066
7 002370

PATTERN TABLE

PATS

PAT

PAT8
PAT9

PAT10

$uBsTK s”ug:gunge RGN - STACK IS 12 WORDS LONG

000000
000000
000000

LWORD
.WORD
WORD

000000
000000
000000
000000
000000
000000

.WORD
JWORD
.WORD
.WORD
LWORD
WORD

O
0
0

0
O
0
0
O
O

55 002430 000002

f’z"i?hmbgag' c;unoeas

33 002442 000026
34 002444 000033
35 002446 000042

.WORD
-WORD
-WORD

29 002432
30 002434
31 002436
32 002440

000006
000011
000014
000021

36 002450

000051

gg 002454

000377

37 002452 000200

LWORD
LWORD
JWORD
LWORD

6
9,
12.
17.

JWORD

41,

.WORD

255.

-WORD

000004

725T82: .WORD

44 002464
45 002466

000030
000042

.WORD
LWORD

46 002470
47 002472

000014
000022

LWORD
.WORD

000054
000066

48 002474 000104
49 002476 000122
50 002500 000400
21 002502

152

JWORD
.WORD

.WORD

511.

-WORD
-WORD
-WORD

000777

]

55 002504

T337TBL: .BLKW

sg 002544

187:

—

——

12.
18.
24.
34.
&4,
54.

§,.

——————

;
4
4

:RLO2 TABLE OF CYLINDERS

41 002456

42 002460
43 002462

TABLE OF DIFFERENCES

”
.
6.

TABLE TO BE USED TO BUILD AND STORE THE CYLINDERS

.BLKW

16.

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 6-%

SEQ 0050

GLOBAL DATA AND CONSTANTS

59 002604
60 002605
61 002606
62 002607
63 002610
64 002611
65 00261;
66 00261
67 002614
002615
69 002616
70 002617

00;
00
016
0%6
033
041
046
055
064
072
101
110

80 002631
81 002632
82 002633
83 002634
84 002635
85 0026
86 002637
87 002640
88 002641
89 002642
90 002643
91 002644
92 002645
93 002646
94 002647
95 002650
96 002651
97 002652
98 002653
99 002654
100 002655
101 002656
102 002660
103 002662
104 002664
105 V02666
106 002670
107 002672
108 002674
109 002676
110 002700
111 002702
11% 002704
113
002706
114 002710

206
213
222
230
235
244
252
261
270
275
303
312
317
326
334
343
352
361
367
375
000
000401
000406
000415
000423
000432
000445
000454
000463
000471
000500
000507
000514
000523
000532

71 002620
72 002621
73 00262
74 00262
75 002624
76 002625
77 002626
78 002627
79 002630

115
124
133
141
146
154
161
170
177

CYLTBL:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

p
14.
0.
e
3.
38.
45.
52.
58.
65.
7;.

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
WORD
.WORD
WORD

134.
139.
146.
15;.
157.
194.
170.
177,
184.
189.
195.
202.
207.
214,
ZSO.
227.
34.
41.
47.
53.
0
257.
262.
569.
75.
lg.
93.
00.
307.
13.
29.
g .
2.
39.
46.

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

;

77.
84.
91.
97,
102.
108.
113,
120.
127.

;TABLE OF DEFAULT CYLINDERS

L
CZRLIDO RL01/0§ DRIVE
'T‘ggl 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 6-2
v
GLOBAL DATA AND
CONSTA

115 002712
116 002714

000540

.WORD

000545

S;.

.WORD

57.

117 002716
118 00 753
119 0027
120 0027%4
121 002726
12% 002730

000553
000560
000567
000576
000605
000612

.WORD
.WORD
.WORD
.WORD
WORD
.WORD

124 002734
125 002736
126 002740

000627
000634
000643

.WORD
LWORD
LWORD

407.
412.
419,

128 002744
129 002746
130 002750
131 002752
132 002754
133 002756
1346 002760
135 002762

000660
000667
000674
000702
000711
000716
000725
000733

WORD
WORD
WORD
LWORD
WORD
LWORD
.WORD
.WORD

432.
439,
444.
450.
457.
462.
469.
47S.

137
138
139
140
141

002766
002770
002772
002774
002776

000751
000760
000766
000774
000774

.WORD
WORD
WORD
.WORD
WORD

489.
496.
502.
508.
508.

}2‘ 003002

000000

SSINDX: .WORD

123

002732

127 002742

136 002764

14% 003000
145

146 003004
147 003006
148 003010
149 003012
150 003014
151 003016
152 003020

000621

.WORD

000651

WORD

000742

000000

WORD

.WORD

153 003022
}gg 003024

000000
000000
000000
000000
000000
000000
000000

000000
000000

OPFLAG:
DONE :
HADONE:
ERHEAD:
MORECE:
ERPSWI:
BSFLAG:

156 003026

000000

}gg 003032

000000

157 003030

(000000

63.
68.
75.
g?.
9.
9.

401.

4;5.

82.

OPERATIONAL FLAGS

O
O
O
O
O
O
O

;OPERATION FLAGS
JOPERATION COMPLETE FLAG
sHEAD ALIGNMENT DONE FLAG
sADDRESS OF ERROR HEADER
:MORE THAN 1 COMPARE ERROR
JERROR RETURN SWITCH
:BAD SECTOR FLAGS

RLBAS:

.WORD

sRL11 BASE ADDRESS

RLDRV:

.WORD

;DRIVE NUMBER UNDER TEST

;CONTROLLER REGISTER STORAGE

(O
O
O
O

;CONTROLLER REGISTER STORAGE
3
AFTER OPERATION

JHEADER WORD STORAGE

WRTSWI: .WORD
TBLSTR: .WORD
RLVEC:

.WORD

O
O
O

000000

L.LS:

.WORD

163 003042
164 003044
155 003046
166 003050

000000
000000
000000
000000

L.MP:
1.E9"
T.BA:
T.DA:

_WORD
WORD
WORD
.WORD

168 003052

000000

HDWRD1: .WORD

;;(1) 003056

000000

HDWRD3:

167 003052
169 003054

000000
000000

(000000

;SUBROUTINE STACK INDEX POINTER

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

160 003034

161 003036
162 003040

SEQ 0051

L.BA:
L.DA:

T.MP:

HDWRD2:

WORD
.WORD

.WORD

O
O

JWRITE SWITCH
;TABLE STORAGE

JRL11 VECTOR ADDRESS

;BEFORE OPERATION

N
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 6-3
GLOBAL DATA AND CONSTANTS

SEQ 0052

};% 003060

000000

T.STAT:

.WORD

;DRIVE STATE STORAGE

174
175
176
177

003062
003064
003066
003070

000000
000000
000000
000000

RESPARM:

.WORD
.WORD
.WORD
.WORD

0
O
0
0

;PARAM BLOCK FOR REASON REPORT

180
181
182
183
184
185
186
187

003074
003076
003100
003102
003104
003106
003110
003112

000000
000000
000000
000000
000000
000000
000000
000000

DRVCNT:
DIFAUG:
OLDCYL:
NEWCYL:
CURCYL:
DESDIF:
DESSGN:
DESHD:

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

0
0
O
0
0
0
0
0

;DRIVE COUNT FOR DRIVES UNDER TEST
;DIFFERENCE ARGUMENT FOR SEEK
sOLD CYLINDER
sNEW CYLINDER
sCURRENT CYLINDER
sDESIRED DIFFERENCE
;DESIRED SIGN
;DESIRED HEAD

000000

TEMP1:

.WORD

: TEMPORARY STARAGE

};g 003072

000000

188 003114
189 003116

000000
000000

191
192
193
194

003122
003124
003126
003130

000000
000000
000000
000000

230 003140
231 003142
232 003144
233 003146
%gg 003150

000004
000000
000000
000000
000000

190 003120

195 003132
196 003134
197 003136

000000
000000
000000

LWORD

DESSEC:
TEMPO:

.WORD
.WORD

TEMP2:
TEMP3:
TEMP4:
TEMP5S:

.WORD
.WORD
.WORD
.WORD

ERRVEC:
DLYCNT:
CLKFLG:
CLKADR:
LBASE:

.WORD
.WORD
.WORD
.WORD
.WORD

TEMP6:
TEMP7:
TEMP8:

.WORD
.WORD
.WORD

0
0
0
0
O
0

0
0
O

4
O
0
O
O

:DESIRED SECTOR
: TEMPORARY STORAGE
s TEMPORARY
: TEMPORARY
: TEMPORARY
: TEMPORARY

STORAGE
STORAGE
STGRAGE
STORAGE

s TEMPORARY STORAGE
s TEMPORARY STORAGE
: TEMPORARY STORAGE

;ERROR VECTOR
sDELAY COUNTER USED IN TIMING MACROS
-FLAG _INDICATING PRESENCE OF A L OR P CLOCK
sPOINTER TO DIAGNOSTIC MONITOR CLOCK TABLE
;L CLOCK ITERATION NUMBER TO FAKE P CLOCK

236
237 003152
238 003154
239 003156
240 003160
241 003360
242 003362
243 003364
244 003365
245 003366
529 003370

000000
000000
000
000
000000
000000

H
MISCELLANEOUS COUNTERS
PASCNT: .WORD
0
COUNT:
.WORD
0
ERRPOINT: .WORD 0
ERPCNT: .BLKW
64.
PASNUM: .WORD
O
PSETNM: .WORD
0
LOCERR: .BYTE
0
NOERCT: .BYTE
0
TRPFLG: .WORD
0
PWRFLG: .WORD
0

248
ggg 003372

000000

:
BAD SECTOR TABLES AND POINTERS
BSFVAL: .WORD
0
sBAD SECTORS FILES VALID FLAG

000000
000000
000000

sPASS COUNTER (LOCAL TO A TEST)
sA COUNTER (LOCAL TO A TEST)
sERROR POINTER
sERROR COUNTER FOR PROGRAM
sPASS NUMBER FOR PROGRAM
sCOUNTER FOR PARAMETER SET NUMBER IN USE
sLOCAL ERROR COUNTER
sINHIBIT ERROR COUNTING FLAG
sHARDWARE TRAP FLAG
;POWER FAILURE FLAG

251 003374
gg% 003570

SBSFIL: .ELKW
FBSFIL: .8LKW

76
76

:SOFTWARE BAD SECTOR FILE
sFACTORY BAD SECTCR FILE

254 003764
ggg 004364

IBUFF:
OBUFF:

.BLKW
.BLKW

200
200

: INPUT BUFFER
;OUTPUT BLFFER

PAT1:
PAT2:

,WORD
.WORD
.WORD
LWORD

O
177772
177777
177777

sPATTERN 1

257 004764
258 004766
259 004770
260 004772

000000
177772
177777
177777

(ALL ZEROS)

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 6-4
GLOBAL DATA AND CONSTANTS

261 004774
262
004776
263 005000

052525
85 525
052525
177777
177777
052525
052525
177777
05;5;5
177252
17725
17276
172765

275 005026
276 005030
277 005032
278 005034
279 005036
80 005040
281 005042

000003
000000
000000
177777
177777
177777

283 005046
284 005050
285 005052
286 005054
287 005056

177777
177777

264 005002
265 005004
266 005006
267 005010
268 005C12
269 005014
270 005016
271 005020
272 005022
%;2 005024

PAT3:

177777

: 00

177777

% 005066
293 005070
294 005072
295 005074
296 005076
297 005100
298 005102
ggg 005104
005106
301 005130
30% 005112
303 005114
304 005116
305 005120

025252
052525
052525
125252

89 005

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

000003
000000

WORD
.WORD
.WORD
.WORD
.WORD

1
177777
009999
17
009909

LWORD

177777
177777
177777
000000

17777

.WORD

177777

.WORD
.WORD
WORD
MORD

0;525;
O
052525
1

.WORD

052525

125252
125252
055525

.WORD
WORD
WORD

125252
125252
052525
125252

LWORD
WORD
WORD
.WORD

1
1
O
lg

-WORD
WORD
WORD

1;5;52
O g §5
125252

052525

309 005122
307 005126

125%52
052525
125252

310 0051
3}1 005132

133333
066666

314 005136
315 005140
316 005142

150442
221
132110

.WORD

ggg 0051;8 155555

PAT5:

g‘li 005134 121105

PAT6:

217 005144

177777
177777
052525
(52525
177777
05;5;5
17
S
17725
172765
172765

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

.WORD
PAT4:

85 525
52525
052525

055044

12525
12525
O

05252

2
g
g

.WORD 155555

.WORD
.WORD

133333
066666

LWORD
.WORD
.WORD

150442
4221
132110

.WORD 121105
.WORD

055044

SEG 0053

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 6-%

SEQ 0054

GLOBAL DATA AND CONSTANTS

318 005146
319 005150
320 005152
321 005156
3% 00515
323 005160
324 005162
335 005164
326 005166
|
327 005170

026442
013211
105504
042642
021321
110550
044264
022132
011055
104426

WORD
WoRD
“WORD
WORD
-VORD
.WORD
WORD
.WORD
.WORD
WORD

026442
013211
105504
042642
021321
110550
044264
022132
011055
104426

38 005172

042213

330 00517

177777

PAT7:

.WORD

177777

332 005176
333 005200
334 005202
335 005204
336 005206
337 005210
338 005212

045513
122645
151322
064551
132264
055132
026455

PAT8:

.WORD
WORD
WORD
WORD
WORD
-VORD
WORD

045513
122645
151322
064351
132264
035732
02643

339 005214
340 005216
341 005220

.WORD

342 005222
343 005224
344 005226
345 005230
346 005232
347 005234

113226
045513
122645
151322
064551
132264
055132
026455
113226

39 005236

125252

PAT9:

.WORD

125252

331 005240

155555

PAT10:

.WORD

155555

353 005242
354
355
361 005242
362 005242

363 005250
364 005261
365 005271
366 005303
367 005315
368 005327
369 005346
370 005364
371 005400
372 005414
33005623
374 0054
375 005445
376 005455
377 005476

—

WORD
WORD
WORD
VORD
WORD
.WORD
WORD
-WORD
WORD

113226
04551
122643
151322
064351
1322
033132
113226

ENDMOD

.SBTTL GLOBAL MESSAGES

339

04221

123

122
122
127
127
107
127
127
106
127
117
122
125
114
106
106

105

104
104
122
122
105
111
111
117
111
120
105
116
104
117
117

105

040
040
126
124
124
124
124
122
124
105
123
114
040
114
114

BGNMOD
MSEEK:

GLBTXT
.ASCIZ

MREAD:
MREADH:
MWRCHK:
MWRITE:
MGTSTA:
MDATCP:
MHDRCP:
M4OHDR:
MJRSET:
MOPER:
WRSLI:
MULOAD:
MCYLUP:
MOUTIN:
MINOUT:

——————————————————

/SEEK /

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
(ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

——

———

/RD DATA /
/RD MOR /
/WRT CHECK/
/WRT DATA /
/GET STAT /
/WITH DATA CMP /
/WITH HDR CHP /
/FOR 40 HDRS/
/WITH RESET /
/OPER: /
/RESULT:
/
/UNLD DRV/
/LD DRV /
/FOL 0 10 CC SEEK/
/FOL 255 10 CC SEEK/

—.

——

—

———"

. S

—

CZRLIDO RLO1/02 DRIVE
GLOBAL MESSAGES

378 005521

106

D
TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 6-6

117

116

MFOLWRT: .ASCIZ /FOL WRT (NO SEEK)/

104

112

MFWDSK: .ASCIZ

79 005543

101

104

381 005631

123

113

383 005721

117

005576

382 00':635
384 0057‘0§
385 00577
386 006020

387 00604%
388 00605
389 006060

101

MREVSK:

.ASCIZ

/ADJ CYL WRTTN AFTER REV SK/

040

MFWSKO:

.ASCIZ

/SK FWD,WRT = SK REV,OVERWRT/

116

040

MBADAD:

.ASCIZ

/ON BAD SEC FILES/

101
117

1064
117

MFMTER: .ASCIZ
MTMBS:
.ASCIZ

123

113

103

101

102
124

102
104
104

125
122
122

112

040
116

123
156
126

MRESKO: .ASCIZ
MBADSF: .ASCIZ

BASADD: .ASCIZ
DRVNAM: _ASCIZ
NOPWR:
.ASCIZ

/ADJ CYL WRTTN AFTER FWD SK/

/SK REV,WRT = SK FWD,OVERWRT/
/CANNOT GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/
/TOO MANY BAD SEC /

/BUS ADD=/
/DRv=/
/DRV DID NOT REC'R FROM PWR FAIL/

390 006120
391 006125
392 006132
393 006137
394 006144
395 006157
396 006172
397
398 006222
399 006240

122
122
122
122
117
117
127
m
116
116

114
114
114
114
120
120
117
116
117
117

103
102
106
115
040
040
122
124
040
040

(CSNAM:
_ASCIZ
BANAM:
.ASCIZ
DANAM:
_ASCIZ
MPNAM:
_ASCIZ
LAB1:
.ASCIZ
LAB2:
.ASCIZ
MWORD:
.ASCIZ_
MTOSLOW: .ASCIZ
MDRRES: .ASCIZ
MNOINT: .ASCIZ_

/RLCS/
/RLBA/
/RLDA/
/RLMP/
/OP INIT = /
/OP DONE = /
/WORD /
/INTRPT TOO LATE/
/NO DRV RESPONSE/
/NO_INTRPT ON CMND COMPLETE/

401 006307
402 006327
403 006350

105
126
125

122
117
116

122
114
130

MNOCLR:
VCNRST:
UNXERR:

/ERR DID NOT CLR/
/VOL CHK NOT RSET/
/UNXPCTED ERR/

115
123
123

101
124
120

116
101
116

MISTST: .ASCIZ_ /MAN éNTEIVENT STAT/
NSTACHG: .ASCIZ /STATE
CHG/
SPDERR: .ASCIZ /SPNDL TIMEOUT FAILED TO SET/

116

111

INITST:

.ASCIZ

TI10ERR:

.ASCIZ

TI6ERR:

.ASCIZ

400

404 006365

406
006373
407 006416
408 006430

409 006464

103

040

116

124

106

101

411 006530
412 006543

104
104

122
122

414 006573
415 006605
416 006621

110
122
122

410 006515

413 006553

417 006635
418 006645

123

127

105

104
104
104
122

154

105

/ TEST/

GSTER1: .ASCIZ

/FAIL FORCING DRV SEL ERR/

126
126

TOSERR: .ASCIZ
TO9ERR: .ASCIZ

/DRV SELECT/
/DRV RDY/

040
040
040

Tlgfllfl: LASCIZ
TIZERR: .ASCIZ
TI4ERR: .ASCIZ

111

105

1264

104

106

422 007003

104

122

126

124
104

105
122

.ASCIZ
.ASCIZ
.ASCIZ

TSTLAB: .ASCIZ

419 006645
420 006664
421 006754

MCONHNG: .ASCIZ /CNTLR HUNG /

123
126

PSTNE:

P2TO2E: .ASCIZ
NOTST:
NOCTLR:

NOTRDY:

LASCIZ
.ASCIZ

.ASCIZ

/INIT STATE/

/SEEK SGN SWITCH/

/HD SWITCHW/
/RD HDR (P1)/
/RD HDR (P2)/
/WRT LCK/

/DIFF OF 1 SEEK/

/TEST CANNOT BE PERFORMED...NO P CLOCK OR SOF TWARE CLOCK/
/DRV DROPPED = NO CNTLR/

/DRV DROPPED - NOT RDY/

SEQ 0055

q[.TY.*]IfQTYlM)ATmCs*.sIsT..ItTvR"nSRWLRIR-.E'N”[DC»4W[l+ae.-S“Oe—“=NMeSNweiVROM-weo~D-—NIT€NV—MLVeIAmQO.NaVt—NLIWV)NeWM&3mDO\P6sM7NesIWC‘-M-eWl\NI-wOi“O—s—WLnNOmsoUeOuo.S=sva=QMv—“sI—w

S.OI”“WsVDs.RL&sPVUSsTFS.VsEaRnIsA.RT”.TEstRR.s<Iss<-SOsVsm”AJMrO-wol-4XsDOEN<nNWOLEAOWN>ES»VN.S.lL“.r/“[&~Na>A"JL@wNxR3AEVWTVVNZR“NaJIEN[TOVM’WOEVWI&VWSW[ooEKaFMYOw-TWWRQuWlT.w>.<xaWmIwO<“vWQw«a”>
L
U
U
L
L
U
L
U
L
L
U
L
U
L
U
U
L
U
L
U
L
U
L
D
L
U
L
U
L
L
U
L
L
L
L
U
L
L
L
L
U
L
L
O
L
L
Ngo.SIEODN)RsSe.tcNIOdP“Sv2RNtJNAOnS)E&_NSMw0NWwXSwohMoBENvSOwE-B SN-XE=0N&so PI«NwEN-o@>xe we o WL[e IS ar-as —

M
I
T
W
N
N
U
M
V
M
I
W
N
O
N
D
O
O
O
W
O
~
eNEPTPTkte—l=eieesTeePePeeTTeeeDT

~ NS

~~~ x

—————

-~4ey

ey DW= VI

. -

IO2ISCVTOT3RR0eS3ONAS¥0=NTNAORT0RIfAV=NROGA30eROSTA03yOIITR03OBT0IvO3S2e38OE3gO8SSO2IT8E=OSTSN,SeeNSUMANA -I N~NAMOMONOOA AT OM
NNey~sNTON-O OerNOMEORSNNNEOOPi—Nc~=sO3rN=NRN7E=NcIWNeNNTr~OO £-N.3S25gmgNouoomSS ome=2 m(8omo2mo0omOPmWomNIoOAmRomO2omOGwNOmGoNu0E7e0O0o=E0OES=EoRSS
eeSVNoCTyLOBNyOQEYgNWOCeNSVYeNWISCUegNLSINCS8UgSNE0Lg%CN0NL4g8C"LSsN8L8RNEB>C8gNLgeNC8eNbLL8eCIDo5NL)L8C0oLI&iTNyI8OgONI®€NBAI SNSNySNSNSSNPNSSNSBNSNSNSNSANSNSBNSNSNSNBNSASNNBNSGNyNSNBNSNSNeNSGgNNgNSNSg
(2 RLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4~AUG-82 10:30:59 PAGE 7
GL
AL
SSAGES

RESULT NAMES

-E‘xWoUa<Exa rN=)

WwV=XT1AOIvNFaIwVOYCNdIXOVmULA S*DIA-€OdC—VEDT1/wWJB53-FatOl"1 wO>a=DvwrN-nT=-E.IOWQ "OMP~.T/“D/NeLWw!tSRN[Ra<~S“}<WO)-Nw “w»4
[- [[4 [ ~ 8 od

SEQ 0056

mv[=4y -w~

W(=o|Y“=d

—>

h» z

ePTolNe-Ploe.PbNo)=vblN=B-Aslb.V—IBElemoBset.lbsoeeoeBseseesuLvoBt.B'[lBt.NbluB-bP—RoBPRmewbeBPL—VX)=\”Fus->d<BOwNNWwU~<b-=Om—bWwU=nbrN-Onwgnamen-Owu2nvuN»mvvmV.@wJxEMQEmMWAX~A=WE~-EODd—EoNOJw>ENa0lQcXmIoN~*lX
B]2Le0IeLTL=LPReReDMeRe3LB]LDeDeRLDeRNL-DelReDReDNLDLoDLoDRDbiIBLmNdan]LoR.LbIo.LeL.LoLo.LoL.lgy.g)OS.M~ByOS.y<SODSO~}MING—OS)R.S~BS.g

YNPSO5bE3eSPN=-2eEeRUl8—MrNnTI“5eDtvbvACIasOIENBMS(CvezbeP'Me5PfSO0RblElEOm~o2aORbR‘F=.dSoON=52Sml0vGv8L=EaPTRSBpRV04AeSM5S4N1NGEO“xFvMer3So0ewbSmeWNr“m(\r56=(MbTL2E3Uw'x1r-bS5oMMb0nI4eR=M>1Soe0E=05o6evGS=sOSebN~TVNPN-5GsESGROUrINv[SVFbSeONSe0ESKrn“»N5e"sEPeVWeIaNzsPey-eNN»T6YsWnXSvUGNeGMrNIseeRp-@wEoN=bt=nF~r*eewE»suROo=NenInlKrNW~rNe—ueMmEVUeag~/n[—LMC-mOeE~WE-AO~N/.OaQnWuMSwRmVsuNn/gEqNSwyo0RuU/mV.o>0OtWL.N.UIt‘U/NS.WLGwlYOsVoWiLlD/sW'OtlYLOLe=”]/\m[0[“NBMMY.\eEv”=g3.eX)/V/Oo(WNT‘vEC/«SA-MM]O*E“EL.2wE-Oaow@‘)@OEX_WV“—/—dSI-0usoNwUr @<~mOX&WaVJNM4XNO"2@/ZaJdTwT6wrMIEW/<Ben-WX3Ow«/o4IAI1%TCWV‘4Ta-O/w<xxMW.6-SVXO4oW—U2NW4DN-(aO7Vw[
-

-— e

eCN)eeRgCfeeG—CTegRegCA-CSGe0PeENegCySeeCe0gNRooTL-eVeCNNE-egCU-OeYPNe§L0gACeTYNLNAPvTCeeYTLoCPOLTP1eNCV1TeILeNCL(eleLeVTNTCAePeNNSTe1<Vee1YLWMe]1aLoAI¥CIL=1)NC"TLIARMNCeOCNIDMC.2el8OaLMsilTCLiAealCbdOaRl|]R(W-—A0UMC]C(7C-L7NeA0Oo—CN“OV.AC0O=A0MOevC1M—.eOAvC1Ne=A2NSC0AOF2NOsCU2N]R2C
WNygUWeNUyLNOyUgLV2g8W0LIUgLDNLDFgEURgWER)=~gUEWgULNUIDNIA4o—DNVVgO)—ONNVNLONVNLNNUVNNVORULWVWIULULOUIWLVWWUUY =DUNVVPNION-LRUNILRr=UNaL3~eRNILNVALNL—LANLUNY
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 7-1
GLOBAL MESSAGES

w[TIwoEQ—ep=~-v¥zw)mn>8SAP.=W«‘lX

SEQ 0057

2.2

DRIVE TEST 1 MACRO v04.00 4~AUG-82 10:30:59 PAGE 7-3

d —
b
D
d e
D

LASCIZ
LASCIZ
.ASCIZ
ASCIZ

.SBTTL

ERROR MESSAGES

BGNMOD

GLBERR
ERR1

S
o

FMT28:
ENDMOD

R3 POINTS TO RESULT MESSAGE
RESULT: (R3)

ERR2

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

ERR3

R3 POINTS TO RESULT NAME
RESULT:
(R3) IS O sB 1

ERRG

R3 POINTS TO RESULT NAME

R4 POINTS TO RESULT CONLITIONS

AT ARRAR2S

) e —d —

ERRS

R3 POINTS TO RESULT NAME

ERR6

RESULT ROUTINE DETERMINES WHICH ERROR(S) ARE SET AND
REPORTS ALL

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

RESULT: "ERROR" IS 1 SB 0

i el

ERR7

DRIVE STATE ERROR REPORT
R3 CONTAINS EXPECTED STATE

D e

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

D wd

ERRS

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

D e

RESULT: CYLINDER IS (HDWRD1) SB (NEWCYL)

ERR9

UTILITY RESULT REPORT
R3 POINTS TO RESULT NAME

d e o

R4 POINTS TO VALUE 1
R3S POINTS TO VALUE 2
RESULT: (R3-NAME) IS (R4=VALUE 1) SB (RS=VALUE 2)

d ek

I ARAR 2SIV

/JAINXTRTRT/

RESULT: (R3) IS 1 SB 0 (R4)

ERR10

d e e
D d e wd
e ed

/ INXD2XT/
/ INXSTETXDAXTXTIDIAN/
/ ;uztxosztxosxu/

FMT2S:
FMT 9:
FMT27:

VWAL ~
VRNV
WN=O 0

e
d
e

116

045
045
045
045

VIV

—

012464

116
116
116

NLIST

MD,ME

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

SEQ 0058

RLIDO RLO1/02 DRIVE
ROR MESSAGES
189 012464
190 G1 494
191 012470

105767
oo1oo;

195 012472
192 012476
194 012500

005277
010146
004767

196 012510

010321

195 012504

o127$1

TEST

1 MACRO V04.00 4-AUG=82 10:30:59 PAGE

170675

170460

011212

004767
004767

011766
012170

200 otzs§3

004767

003714

201 0125
012530
a 012530

012601

104423

203 012532
204 012532

005277

170420

206 012540

004767

011152

209 012552

012721

000001

004767
004767
012601

011720
012122

205 012536 010146
207 012544
208 012550
210 012556

211 012560
212 012564
213 012570

214 015572

215 012576
012576
i 012576

012721
010321
005021

004767

220 012606

003646

004767

170352

011104

ERR1
ISTB
BNE

NOERCT
1%

MOV

#1.(R1)+

INC
MOV
JSR

MOV
JSR
JSR

MOV
ENDMSG
L10000:

BGNMSG

‘ELSE eunp ERROR COUNT
*STORE R
*REPORT orenarxon

R3.(R1)+

:INSERT MESSAGE ADDRESS POINTER

PC.RPTRES
PC _RPTREM

(SP)+,R1

SERRPOINT

aunr ERROR COUNT

JSR

PC.RPTOP

nerout OPERAT ION

#1.(R1)+

:SET IS VALUE

R1,=(SP)

MOV
MOV

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

CLR

(R1)+

JSR
JSR
MOV

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

TRAP

(SMSG

JSR

BGNMSG ERR3
INC
MOV
JSR

PC.CKERLM

#1,(R1)+

012601
004767

003600

MOV
JSR

(SP)+ R
PC,CKERLM

227 012636
228 012640
229 012644
012644
2 012644

104423

231 012646
zsg 012646
233 012652

005277
010146

235 012660

012721

234 012654

239 012664
53 °’5°°3
38 012672
239 012674

170304

004767

011036

o1osg1
012721
005021

000001

010411

000004

JSR
JSR

ENDMSG
L10002:
BGNMSG

:SET SB VALUE

*REPORT RESULTS
*REPORT REMAINDER
*RESTORE R1

:GO CHECK IF ERROR COUNT EXCEEDED

*REPORT opeaarxou

MOV

011652
012054

*SET PARAM NUMBER
:INSERT NAME ADD POINTER

"RPTOP

000001

CLR

ORE R1

:BUMP sanon COUNT

m ,=(SP)

012721

MOV

:G0 CHECK IF ERROR COUNT EXCEEDED

SERRPOINT

224 012622

004767
004767

*RESTORE R1

ERR2
INC

MOV

225 012626
226 012632

*REPORT RESULTS
*REPORT REMAINDER

CSMSG

000003

223 012620 005021

*SET PARAM NUMBER

TRAP

012721

010321

;TEST IF saaon COUNTING INMIBITED
SYES = SKIP

AERRPOINT
R1,=(SP)
PC_RPTOP

221 012612

222 012616

SEQ 0059

pc CKERLM

MOV

ENDMSG
L10001:

JSR

MOV

000003

104423

217 012600
218 012600 005277
219 012606 010146

18:

000001

197 012512
198 012516

199 012522

BGNMSG

7-3

J(R1)*

“(R1)+

(ai)o

PC.RPTRES
PC _RPTREM

:STORE
R

*SET PARAM NUMBER

:INSERT NAME ADD POINTER

:SET IS VALUE
:SET SB VALUE

*REPORT RESULTS
*REPORT REMAINDER

*RESTORE R1
:GO CHECK IF ERROR COUNT EXCEEDED

TRAP

CSMSG

ERR&
INC
MOV

SERRPOINT
R1,=(SP)

:BUMP saaon COUNT
:STORE
R

MOV

#6.(R1)+

*SET PARAM NUMBER

R&, (R1)

:INSERT ADD OF CONDITION POINTER

JSR

MOV
MOV
CLR
MOV

PC.RPTOP
R3.(R1)+
2R+
(R1)+

*REPORT oosanrxon

*INSERT NAME ADD POINTER
*SET IS VALUE
:SET SB VALUE

21/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 7-2

SEQ 0060

GES

0O
s

004767
004767
012901
004767

11802
12004

003530

ENDMS

L100C3:

104423

005277
010146
004767

A
A NN
SRR W —=O &8
Oo

YNNI SN

FEEENSg § PRRSFNEISERERNGS -a-a-.-ng

SNNSNNY

BGNMSG

170234

010766
000004

000001

011532
011734

ENDMSG

L10004:

D o

»HO

Sgg&%35=

170156

178:

010702

ERRS

INC
MOV
JSR
MOV
MoV
CLR
MOV
MOV
JSR

SERRPOINT
R1,=(SP)

PC.RPTOP
#4.(R1)+

R3,(R1)+

(R{)o

000002

JRESTORE R1

;BUMP ERROR COUNT
;STORE R1
sREPORT OPERATION
;SET PARAM NUMBER
s INSERT NAME ADD POINTER
ET IS
ET SB
NSERT
EPORT
EPORV

#1,(R1)+

R4, (R1)

PC.RPTRES
PC.RPTREM

(SP)+,R1

MOV
JSR

PC,CKERLM

TRAP

CSMSG
NOERCT
17%

JERRPOINT
R1,-(SP)
R3,~(SP)
R&,=(SP)
R5,=(SP)

PC ,RPTOP
#3,(R1)+

#1,2(R1)
TEMP3

viFae3
4483

VALUE
VALUE
ADD OF CONDITION POINTER
RESULTS

sTEST IF ERROR COUNTING INHIBITED
;YES - SKIP
;ELSE BUMP ERROR COUNT
:STORE R1

:STORE R3

:STORE Ré
.
;STORE RS
sREPORT OPERATION
sSET_PARAM NUMBER
s INSERT IS VALUE
sCLEAR FOR STATUS STORAGE
sGET T1.CS
sAND CLEAR ALL BUT FUNCTION
sCHECK IF IT WAS GET STATUS

:YES = STATUS IS IN T.MP, SKIP

ccsr§rat.aLoA(azS ;ELSE DO GET STATUS

000004

#%,R

BGNMSG

170373

&8 ~
W
N SRNSRRUERE o

o
o
e

CSMSG

RLCS(R2)

816..(pc>o

e ok e

TRAP

167012

5SDL7.(PC)¢

e
e e

;G0 CHECK IF ERROR COUNT EXCEEDED

(SP)+ R

177772

~6(PC)

b o

PC,CKERLM

000012

177756

<22(PC)
0

NN N AN NN N NN

JREPORT RESULTS
sREPORT REMAINDER

:5?'""3

NN
n

Co
2“
S

PC,RPTRES
PC RPTREM

JSR

003460

E8E888

mlelelelelelolelelelelelelelelolelolale
etCOOO00O

NONW»

FER &

SRR
¥
27

JSR
JSR
MOV
JSR

00100
012703

000200
001000

sWAIT FOR CONTROLLER READY

#CRDYMSK,RLCS
(R2)

000000
9%:

108

#B179,R3

sTEST IF READY
P
SKI
=
;YES
;ELSE SET NO DRIVE STATUS BIT

LIDO RL

OééOZ DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 7-g

SEQ 006!

S23
g 2000
WROWW

oroco

011265

1008
:

:IN MESSAGE WORD AND SKIP

R3,
TEMP3’
7§HP +1,R3

;GET ERROR BITS IN PROPER POSITION

RLMP(R2) ,R3

T.MP+1,.R3

0177442 R3

:STORE STATUS FOR REPORT

sGET ERROR BITS FROM MP REG
;CLEAR UNUSED BITS
;GET ERROR BITS FROM (S REG

;CLEAR UNUSED BITS
sMAKE ONE WORD OF POSSIBLE ERRORS
:TEST IF OP] SET
.“o - SKIP
#HNFERR,R3
.TEST | ;K?DR NOT FOUND ERROR
;YES
107
#HCRCERR,R3
S TEST I F HDR CRC ERR
105%
:YES
SKIP
#MOPERR, R4
:SET 0PI ALONE MESSAGE
#FMTIB, #MRSLT,RG, # RRS ;REPORT ERROR
#MERRS , = (SP)

na -(SP)
s.~ (SP)

005423
012453
000004

OFHT 8 -(SP)

csfiuta

S‘SP

000012

:SKIP

010427

105$:

%RC R&

:HDR CRC MESSAGE

004000

107$:

#HCRCERR
,R3
109%

Yggf I§K7CRC WITH HDR NOT FND

010450
010476

109%:

004000

115%:

010437
010000

100000

#MHNF , RS

:MESSAGE HEADER NOT FOUND

#MHFCRC,
R4

OSO‘CFAND HCRC MESSAGE

1008

100%
ODSKEII.IS
118%

#MDCRC,
R4

118%:

010464

LSST gFlDATA CHECK SET, NOT OPI
:SET HESSAGE DATA CHECK

100%

:SKIP
LSSY gFlDATA LATE ERROR

#OLT,RG

:SET MESSAGE DATA LATE

0051ERR.R!
1208
1008

1208:

#BITIS.RS

3s:

R5,R3

4$:

Ré

:SKIP
:SET BIT POINTER FOR TEST

;CLEAR R4 FOR TABLE COUNT

:TEST IF BIT IS SET
:YES = SKIP TO REPORT

:ELSE BUMP TABLE POINTER

'CLEAR CARRY
sSHIFT BIT POINTER TO NEXT BIT

- N

7%:

=& &3

6$:

\-I:U‘

:LOOP IF NOT 0

01
01
01
01

13&:

N—-

W)
=

ens

9 01

R8SNEERE

8 01

NN N AN W NN NN N W
oAN
W

306 013270
307 013274
308 013276
309 013302
310 013304
311 013310
312 013312
313 013316
314 013320
315 013324
316 013326
317 0133
318 013334
319 013340
320 013342
321 013346
322 013350
323 013352
324 013354
325 013356
326 01

108:

o= 28

304 013562
305 013566

8828 23229 —-0—00
—t
i
ey
NN
o
N-AN-ovug
~
NN
~

285 01;136
286 013140
287 013144
288 013150
289 013154
290 013156
291 013162
29§ 01%166
293 013172
294 013176
295 013200
296 013204
297 013206
298 013212
299 013214
300 013220
301 013222
302 013226
013226
013232
013234
013240
013244
013250
013252
013254

o
WM
WN W

OR MESSAGES

:ELSE _REPORT REMAINDER

RESTBL (R4), (R1) s INSERT NAME ADDRESS

PC,RPTRES
4%
PC ,RPTREM

TEMP3

:REPORT RESULTS

:GET NEXT BIT

;REPORT REMAINDER
sTEST IF ANY NEW STATUS

K
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 7-6
ERROR MESSAGES

334 013410

001414

013412
013413
013422
013426
013432
013432
013436
336 013442
337 013450
338 013452

016746
012746
012746
012746
010600
104414
062706
032767
001453
032767

340 013462
341 013466
342 013472

005067
012701
012703

167326
000200
000001

344 013502

012704

003764

335 01;:1%

339 013460 001047

BEQ

PRINTB

167506
010276
012137
000003
000010
004000

167374

002000

167364

158:

BNE

CLR
MOV
MOV

343 013476 012705 004364
345 013506

346 013510
347 013512

021514

001427
026727

348 013520 003021

349 013522
013522

011546

013530

011446

o135§3

167276

012746

011304

013532
013536

012746
010346

011300

013544

012746

013540

013550

013554

013556

012746

006172

012746

000007

010600
104414

013560

062706

351 013570
352 013572
353 013574
354 013576
355 013600
356 013604
357 013606

022524
005203
005301
001343
005767
001421
012701

350 013564 005267

358 013612
013612

010146

MOV
188:
000012

MOV

013640

010600

012604
012603
012601

363 013660

01%605

004767

CSPNTB

INC

MORE CE

PRINTB
MOV

#FMT2?,#TCERR,MORECE ,#RESEG,R1
R1,=(SP)

MOV

360 013652
361 013654
362 013656

¥7,-(5P)

#20,SP

013634

359 013650

#FAT15.-(SP)

ADD

MOV

062706

#MUORD,
= (SP)

#FMT27,-(SP)

012434
000005

000014

002560

MOV

TRAP

27%:

SYES = SKIP

(R&) ,=(SP)

SP RO

TRAP

*CHECK WORD

#RESE3,~(SP)
R3,=(5P)

MOV

012746

:SET GOOD WORD POINTER

#RESEL,=(SP)

MOV

013624 012746 010363

013644

208

#RESES,
= (SP)
MORE
CE , = (SP)

013630

SYES = SKIP

#FMT15,#MWORD,R3,#RESE3,
(R4) ,#RESES, (RS)
(RS) ,=(SP)

(RS), (R&)

MOV
MOV

011316
167170

104414

#OBUFF ,RS

000200

012746
016746

013642

*CLEAR COMPARE ERROR COUNT
:SET COMPARE LENGTH
*SET WORD COUNT

25$%

(WP
INC
DEC
BNE
TST
BEC
MOV

013614
013620

012746

MORE CE
#128. ,R1
#1,R3

PRINTB
MOV

MOV

258:

;TEST IF DATA CHECK ERROR
‘NO - SKIP
:TEST IF OPI SET

$GOGD =~ SKIP
STEST IF COMPARE LIMIT REACHED

MOV

167210

TEMP3,=(SP)
#STAMES , - (SP)
#FEMT17,=(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,sP
#DCKERR,T.CS
25$
#OPIERR,T.CS

198
MORECE , #10.

CMP

MOV
MOV

198:

:NO = SKIP

BEQ
CMP

MOV

20$:

158

#FMT17,#STAMES,
TEMP3

*SET TEST WORD POINTER

MOV

167224

SEQ 0062

#1BUFF ‘R4

B8GT

012072

000020

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
BIT
BEQ
BIT

(RS)+, (RG)+
R3
Rl
18s
ng:scs
2
#128. .R1

#5,-(5P)

SP.RO

CSPNTB

#iq,SP

MOV
MOV
MOV

(SP)+.R&
(SP)+.R3
(SP)+.R1

JSR

*BUMP POINTERS
*BUMP COUNTER
:DEC LENGTH COUNT
:LOOP IF NOT DONE
*TEST IF ANY COMPARE ERRORS
‘NO = SKIP
SET COMPARE LENGTH

#TCERR.=(SP)

ADD

MOV

:BUMP ERROR COUNTER

(SP§+,RS

;RESTORE RS, 4, 3. 1

PC,CKERLM

;GO CHECK IF ERROR COUNT EXCEEDED

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 7-9

SEQ 0063

ERROR MESSAGES

G-

338858 ’

—y

lelelelelele] Og

SS%588 &%

364 013664

TRAP

ERR7

CSMSG
AERRPOINT
R1,=(SP)
PC.RPTOP

#3.(R1)+

#MDRVST, (R1)+
T.STAT,(R1)+

R3, (R1)

PC.RPTRES
PC .RPTREM

ENDMSG

JSR

L10006:
0

SAAAI IS

g NN

WWWWWWW

NN NOWNS

—_— 2 e
e

(=lelelelelelele
o)

gy gt

BGNMSG

@ERRPOINT
R1,=(SP)

R3,~(SP)

007744
000003
011052
167064

200007

389 013772
390 013774
391 013776

PC,RPTOP
#3,(R1)+

#MCYLOC, (R1)+
Hgflflgl.(fll)

#7 R

3s:

(R1)+

NEWCYL, (R1)

010470
010672

L10007:

sRESTORE R3
sRESTORE R1
:GO CHECK IF ERROR COUNT EXCEEDED

CSMSG

ERR9
INC

b d ke N

BGNMSG

010422
010624

JSR
JSR
MOV
JSR

ENDMSG

(SP)+.R1

TRAP

JSR
MOV
Mov
Mov

002350

(SP)+,R

PC,CKERLM

007652
000003

N =

D
D
b
—
purt

167120

;BUMP PARAM POINTER
: INSERT SB VALUE

sREPORT RESULTS

JSR

N N

NON NN
[« =T Mo NNTNTNT,NT.N

005277
010146

nee oocog
NN

401
402 014032
403 014032

:STORE R
;STORE R3
sREPORT OPERATION
;SET _PARAM NUMBER
s INSERT NAME ADD POINTER
;GET HEADER WORD
sSET SHIFT COUNT

PC,RPTRES

PC .RPTREM

ENDMSG

;BUMP ERROR CCUNT

sALIGN CHAR FOR PRINTING
; AS IS VALUE

167072

002414

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

CSMSG

W
~

167214

(SP)+,R1
PC,CKERLM

;BUMP ERROR COUNT

SERRPOINT
R1,=(SP)
PC.RPTOP

#3,(R1)+
R3.(R1)+
R4, (R1)+
RS, (R1)+

PC.RPTRES
PC.RPTREM

(SP)+,R1
PC,CKERLM

sREPORT REMAINDER

;BUMP ERROR COUNT
;STORE R1
sREPORT OPERATION

sSET _PARAM NUMBER

s INSERT NAME ADD POINTER
sSET IS VALUE
sSET SB VALUE
sREPORT RESULTS
sREPORT REMAINDER
sRESTORE R1
;G0 CHECK IF ERROR COUNT EXCEEDED

005046
156716
012746
016746
012746
012746

-2
)
D

—=OOO0O0OVOO0O0O %

—

) ol —

S5%

R1,=(SP)
MORECE

;STORE R1

007600

MOV
TST
BNE
INC
JSR

dERRPOINT

;BUMP ERROR COUNT

166707

CLR
BISB

166710

167044

006053
166672

00606;
01156
000005

;TEST IF 2ND BAD LINE
;YES - SKIP

PC,RPTOP

:REPORT OPERATION

PRINTB

l;g;;.OBASADD.RLéAS,lDRVNAH.(B.RLDRV01> ;REPORT D

MOV
Mov

#DRVNAM.
= (SP)

RLDRV+1, (SP)

RLBAS,=(SP)
- (SP)
#BASADD,
#FMTS,
- (SP)
#5,-(§P)
SP.RO
CSPNTB
#14,5P
#FMT14, #MRSLT, #MWORD ,R3, #RESE3, (R4) ,#RESES, (RS)
(RS) ,=(SP)

#RESEL,
- (SP)
(R4) ,=(SP)

011300

#RESE3,=(SP)

006172
005423
012040
000010

#MUORD
, = (SP)
#MRSLT
.= (SP)

R3,=(5P)

#FMT14 .= (SP)

g;oi5(§v)

CSPNTB

000022

#22,5P
48
#FMT1S,#MJORD
,R3, #RESE3S, (R4) ,#RESE4, (RS) :REPORT DATA
(R5) ,~(SP)

3s:

#RESEL,
- (SP)

011304

(R&) ,=(SP)

011300

#RESES,
= (SP)
R3,~(5P)

006172
012072
000007
000020
166516

002140

SEQ 0064

CSMSG

ERR10

011304

#MUORD
, - (SP)

#FEAT15 .= (SP)

#7,-(5P)
SP,RO
CSPNTB

#20,5P

MORE
CE

4%:

ENDMSG
L10011:
ENDMOD

000006

TRAP

BGNMSG

000014

—000000
&
2-;-.-‘-0-1-.-.-.-.
R NN
IR
~
SN
~
&=8 o

FREERNSrnER
NIFRSS VSR ERYNN-A-._A-‘-._‘O

010146
005767
001051
005;77
004767

)

—h

) —d =) — — —— — —d —d —d - w—d - — —d — —d — —

L10010:

104423

BB BB L I PP
I e LYY
S
PONINIPOPONI NI NOININD = e o ad e e o o cd cd e o e s wnd v
NN
OIS S
—
s
-~

(mlelelalelelelelelelelelelelelele] (=lelelelelolelelelelelelaTe] (elelelelelelelelelele)

622

B
e eb

0 RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 7-8
MESSAGES

BGNMOD
BGNHW

(SP)+,R1

PC,CKERLM
TRAP

CSMSG

.EVEN
HPTCODE

.WORD

L10012-L$HW/2

s INC_COMPARE ERROR COUNT

sRESTORE R1
:GO CHECK IF ERROR COUNT EXCEEDED

»n

laal

»O

£
WW
N NINININ)
= — it
&~ sEnoorNNo

—_

o OCO00O0OC

gy o8
oo

—

»
>~

S
He
N -

1/02 DRIVE

443 014324
444 014324

014324

445 014326
446
447
448
449
450
451
452
453 014330

N
TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 7-9

174400

000160
000240
000001
000000
000001

WORD
.WORD
.WORD
.WORD
LWORD
ENDHW

WORD

174400
160
240
1
O
1

SEG 0065

;CSR _BASE ADDRESS DEFAULT
sVECTOR DEFAULT
sPRIORITY DEFAULT
;TYPE OF DRIVE, RLO1=1, RLO2=2
;DRIVE NUMBER DEFAULT
sRL1T CONTROLLER

L10012:
ENDMOD

000006
000000

0
000377

000024
000012

BGNMOD
BGNSW

SPTCODE

MISWIW:

WORD

.WORD

L10013-L$SW/2
0

LOLIMW:

.WORD

ERLIMW:

WORD
.WORD

0
20.

HILIMW:
HEADW:

DCLIMW:
ENDSW

.WORD

;BIT 0 = USE ALL CYLINDERS

;BIT 1 = USE ALL SECTORS
:BIT ; = EXECUTE DRIVE SELECT TEST
;BIT 3 = EXECUTE HEAD AL IGNMENT
:BIT 1§ = HEAD SELECT SUPPLIED FLAG
;BIT 13 = HILIMIT SPECIFIED FLAG
sBIT 14 = LO LIMIT SPECIFIED FLAG
;BIT 15 = DO MANUAL INTERVENTION

255.
10.

;ERROR LIMIT

;COMPARE ERROR LIMIT

L10013:

ENDMOD

BGNMOD
000020
025176
025456

468
469
470
471
472
473
474
475

014402
014404
014404
014404
014406
014410
014412

030344
031532
032136
033410
034302
034370
035024
035502
036260
036732
037152
037432
040100

DISPATCH

DSPCODE

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

.WORD
.WORD
.WORD
ENDMOD

.WORD
WORD

16
T1
T2
T3
T4
TS
T6
T7
T8
T9
T10
TN

T12
T13
T14

T15
T16

;LOAD PR OTECTION TABLE

000000

177777

000010

BGNPROT
. WORD
-WORD
.WORD
ENDPROT

-1
10

sP=TABLE OFFSET OF CSR

sNOT A MASS-BUSS DRIVE
;P=-TABLE OFFSET OF DRIVE

8
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 7-10
.

SEQ 0066

ERROR MESSAGES
476

6«77

478

.SBTTL

479
480 014412
481 014412
48%
483 014412
484
485 014416
486 014422
487 014424

490 014440
49N
492 014442
493 014450
494
495 014454
496
497 014462
498
499 014470

380 014472
1

502 014474
503 014476
504
505 014504
506 014510

BGNMOD
INITCODE
BGNINIT
: CHECK FOR PRESE NCE OF A CLOCK
PCLK:
CLR
CLKFLG

166526

000120

MoV
TRAP
MoV

166516

488 014430
489 014432

INITIALIZATION CODE

8CC
MOV
BR

002001

166504

012737
005737

014556
177546

000004

NOPCLK: MoV
TST

012767

000011

166462

012737

014514

000100

010146
010246
005002
012737

000100

177546

sCLEAR CLCCK FLAG

#'P,RO

CSCLCK
RO,CLKADR
NOPCLK
#1,CLKFLG
TCLK

;INDICATE PRESENCE OF A P-CLOCK
;P CLOCK EXISTS, DO NOT USE L CLOCK.

#TSTCLK a4

sTEST FOR L CLOCK.

MOV

#11,CLKFLG

;INDICATE THE PRESENCE OF AN L CLOCK.

MOV

#LCLK,a#100

;L CLOCK VECTGR POINTS TO LCLK.

MOV
MOV

R1,=(SP)
R2,-(SP)

sSAVE

CLR
MoV

R2
#100,3#177546

sSTART THE L CLOCK.

ADD
NOP
BR

”,R2

;BUILD SOFTWARE LOOP. USE ADD TO SET FLAGS.

177546

IF NO CLOCK =~ SKIP.

R1 ANS R2 ON THE STACK.

062702
000240
000774

000001

509 014514
510 014520
511 014522

012716
000002
005037

014522

LCLK:

#LCLKT,ASP

sMODIFY THE STACK TO RETURN TO LCLK1.

177546

LCLKT:

MNN77546

;STOP THE L CLOCK.

513 014526
514
515 014532
516 014536
517 014542
518 014544
519 014546
Sso
521 014550
522 014552
523 014554
524
525 014556
526 014562
$27 014564
5¢2 014570
Sig 014572
01457
530
531 01460
532 014606

012701

000246

#166. .R1

sTHIS IS THE DIVISOR TO GET 100 uS.

005067

166412
166406

LBASE
LBASE
R1,R2
2%
1%

;LBASE IS THE APPROXIMATE NUMBER OF ITERATIONS
sNEEDED TO GIVE 100 us.

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

sRESTORE R1 AND R2.

TCLK

sSKIP RTI HANDLER

507 014512
508

512

012601
000403

18:

1$:

INC

2%:

MoV

014564

TSTCLK:

#TCLK, (SP)

sADJUST STACK FOR RTI

166354

TCLK:

CLKFLG
1%

sIF THERE IS NO P OR L CLOCK, DO NOT DO THE
sTEST. PRINT A MESSAGE SAYING WHY THE TEST IS
sABORTED.

011753
000002

#NOTST ,~(SP)

#FMT9,-(SP)
#2,-(SP)

SP.RO

104417

014634

541 014636
542
543 014644
544 014650
545 014656
014656
546 014660
547 014666

01
0757111

000006
000200

012700

000340

000

104441

103403
042767

100014

005067

166132

012700

000034

104447

103005

016767
000167

v
d

VRNV

gSETREREE
2888 23228222223222233323
g

WN—-

Vi
WAWA W
Vi
A
AN

1046447

165126
000406

28:

#340

TRAP

CS$SPRI

165104

166444

177777
177777

040000
177340

READEF

#EF.PWR

TRAP

CSREFG

166164

:
H
RSTRT:
1$:

READEF

104447

103533

#EF .PWR,RO

sNO, GO CHECK NEW PASS

PWCON

;SET POWER FAIL FLAG
;GO SERVICE PCWER FAIL

#EF .START

sCHECK IF START

MoV

LSUNIT,DRVCNT ~ ;SET UP UNIT COUNT

MOV
MoV

#ERRCNT,RO
#64. ,R1

(LR

s%g

PASNUM

:CLEAR PASS NUMBER

;¥0)0

;GET A COUNT
sCLEAR ERROR COUNTER STORAGE AREA

LOOP TILL ALL CLEARED

#-1,PSETNA

;SET PARAM SELECT TO INITIAL VALUE

:YES - SKIP

Mov

#ERRCNT=-2, ERRPOINI :INIT ERROR POINTER

MOV
8IT

#-1,HADONE
#LOCYL MISWIW

CLR

LOL IMW

READEF

#EF .RESTART

TRAP

CSREFG

MOV

58:

;POWER FAILURE?

ON START INITIALIZE TO START AT FIRST DRIVE, CLEAR INTERNAL
PASS COUNT, AND ERROR COUNT.

BNE

LAB:

INTERVENTION FLAGS

sCLEAR SUBROUTINE STACK INDEX

MoV
#EF .START,RO
TRAP
CSREFG
BNCOMPLETE
RESTART ;NO - SKIP
8CC
RESTART

BNE
BR

MoV

:PRESET HEAD ALIGN DONE FLAG
CTEST IF LO LIMIT SET
sELSE CLEAR LO LIMIT

SETDON

#EF .RESTART,RO
RSTRT

sCHECK IF RESTART

;NO - >KIP

;"'CONTINUE"' COMMAND SEQUENCE

CONTINUE:

012700

S$SINDX

BCOMPLETE
BCS
RSTRT

103743

sCHECK IF MANUAL INTERVENTION ALLOWED

CSMANI

'START" COHHANO SEQUENCE

is:

RESTART:

000037

;SET PRIORITY TO 7 TO INHIBIT INTERRUPTS

#340,R0

BNCOMPLETE 4$
BCC
4
nov
LSUNIT,PWRFLG

166502

003160
000100

003156

CLR

MOV

000040

NS
w

SETPRI

BCOMPLETE
28
JYES - SKIP
BCS
2
#MITEST!DRSELT!HDAMISWIW
BIC
LIGN ;CLEAR ALL MANUAL

177462

103034

016767
005067
012700
012701
005020
005301
001375
012767
012767

ar1

MOV

SEQ 0067

360.&1

JMP

MANUAL
TRAP

18:

104450

012700

MOV

SO0

540 014634

C
6
TEST 1 MACRO v04.00 4=-AUG-82 10:30:59 PAGE 7-11

R
3822
§-‘
37

—-O

—

N = e

HBEDPE

~ND
»r

LSRR =28

.—

Dl IV IV TV IV ]

539

/02 DRIVE
ON CODE

000036

READEF #EF .CONTINUE
sTEST IF CONTINUE
#EF .CONTINUE
RO
TRAP
CSREFG
PWCON
BCOMPLETE
PWCON
8Cs

MOV

D_ 6
CZRL I 20 RLO1/02 DRIVE TEST 1 MACRO V04 .00 4-AUG-82 10:30:59 PAGE 7-12

SEQ 0068

INI TIALIZATION CODE

574
575 01501%
015012
015016
576 0150%8
0150
577 015022
578 0156022
579 015026
580 0150
581 015034
582 015042
583 015050
584 015056
585 015062
586 015066
587 015074
588 015100
589 015104
015106
015106
590 015110
015110
591 015112
592 015116
593 015120
ggg 015124

103406
005767
001741
005367
000736

596 0151%8
597 0151
598 015132
599 015134
600 015140
601 015142
gg% 015150

012122
012122
005721
(12167
012122
022767
001426

604 015152
605 015160
606 015166
607 015174

012767
012767
012767
012767

:
012700
104447

000035

103403
005767
001013
005267
012767
016767
012767
005267
005367
062767
016700
012702

NXTPAS:

166046

166324

PASNEW:

003156

00000
166262
003026

012767
012767
012767
012767
012767
012767
012767

621 015300
622 015
623 015310
624 015316

032767
001003
016767

sCHECK IF STARTING NEW PASS

TST

DRVCNT

;TEST IF ALL UNITS CHECKED

INC

PASNUM

‘ELSE BUMP PASS COUNT

BNE

SETDON

#ERRCNT=2,ERRPOINT ; INIT ERROR POINTER

MOV

#-1,PSETNM

;SET PARAM SELECT TO INITIAL

DEC

DRVCNT

:DOWN COUNT DRIVE TOTAL

LSUNIT,DRVCNT ~ ;GET ALL DRIVES

PSETNM

:NEXT SET OF PARAMETERS

ADD

#2 ERRPOINT

MOV
GPHARD
TRAP
MOV

#RLBAS ,R2
RC,R1
CSGPHRD
RO,R1

PWRFLG

;RECENT POWER FAILURE

MOV

(R1)+,(R2)+

:STCRE CSR

MOV

(R1)+,T.DRIVE

:STORE DRIVE TYPE

PSETNM,RO

SEE"’LE'§;

166252

:NO = SKIP

MOV

;UPDATE THE ERROR POINTER

:SET UP TO GET PARAMETERS

;GET POINTER TO RL11 BASE ADDRESS

:SKIP IF GOOD PARAM

BEQ
NXTPAS
;NO
DEC
PWRFLG
;ACCOUNT FOR DRIVE
BR
NXTPAS
:MOVE P-TABLE CONTENTS TO LOCAL STORAGE

166244

7s:
165136

MOV
TST

MOV

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

(R1)+.(R2)+

CMP
BEQ

#1,T.0RIVE
658

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#510. ,NXTHL
#511. CHLATY
051;.
ND
#177600,
CAMSK
#177600.DIRMSK
#177600.HDCYL
#177000,CLRBYT

:STORE VECTOR
BUMP PAST PRIORITY

;INITIALIZE RLO2 PARAMETERS

B8R

LNT-N-N

613 0152;2
614 0152
615 015242
616 015250
617 015256
618 015294
253 015272

#EF .NEW

SETDON: INC

SoRy333

012767
012767
012767
000425

READEF

MoV
#EF .NEW,RO
TRAP
CSREFG
BCOMPLETE
PASNEW
PASNEW
8Cs

MOV

164744
177277
166300

104442
010003

608 015202
609 015210
610 015216
g}} 015224

ON CONTINUE PICK UP UNIT LAST UNDER TEST

PWCON

;INITIALIZE RLOT PARAMETERS
658:
MOV
#255.
, HLATW
MOV
#256. .GBND

MOV

#77600, CAMSK

MOV

#177400, CLRBYT

MOV
MOV
MOV

#77600.D IRMSK
#77600
., HDC YL
#254. NXTHL

PWCON:

BIT

121CYL.HISHIU

1$:

MOV
SETVEC

HLMTW
HIL MW
RLVEC,#INTHLR,#340

sSET UP INTERRUPT VECTOR FOR DRIVE

SN 2 o

O
e=

FRY
W

nNO

~ND
d
— D

ViVt

iei=l=lelelelelelel)

v VIV
WNNNW

r—

E 6
TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 7-13

012746
012746
016746
012746

00C340
Olg 70

MOV

#340,=(SP)

00000

MOV

#3,-(5P)

062706

000010

012700

000000

016702

165450

104437

104441

MOV
MOV

16547

TRAP
ADD
SETPRI
MOV
TRAP
MOV

MANUAL
TRAP

104450

005767
001001
000521

165772

BNE

B8R

SEQ 0069

#INTHLR, =(SP)
agvec -(sP)

CSSVEC
#10,5P
#0
#0,R0
C$SPRI
RLBAS,R2

CSMANI

BNCOMPLETE
BCC
48

103004

;SET PRIORITY TO O TO ALLOW INTERRUP:3
;SET RL11 BASE ADDRESS POINTER

;MANUAL INTERVENTION ALLOWED?

;NO

PASNUM

;YES, CHECK PASS NUMRER

.13

:FIRST PASS, PROGRAM WILL INSTRUCT USER

:NOT FIRST PASS, NEED DRIVE UP

;CHECK IF POWER FAILURE WAIT IS NEEDED
005767
001516

48:

016705
052705
010562
012701
032762
001102
012727
000000
016727
0000

s
D =h
b ed o
b e —d
b
b

655

Viviuiivivaiaiaiviaivaiavivaiaiwn

65
65
654

P
P
i
HO FERERNGINSR
S

015474

einlelelalelelalalelalalaTe]

-0

/ 2cggéVE

BEQ
MoV

000000
000372
164436
177772

177756

9%:

PWRFLG

:NEEDED?

RLDRV, RS

;DRIVE SELECT

:NO, SKIP

BIS
MOV
MOV

#CRDYMSK , RS
RS,RLCS (R2)
#120. ,R1

WAITMS
MOV
LWORD
MOV
.WORD
DEC
BNE
DEC
BNE

10.
#250.,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
=4
=22(PC)
=20

;WAIT A SECOND

DEC

;SIXTY GONE BY

PRINTF

#FMT24,#NOPWR

REPORT

MOV

#FMT24 .= (SP)

BIT
BNE

TRAP

BNE

MOV
MOV
MOV

TRAP

ADD
Efé""

BISB
MOV

*SET CRDY
*SELECT DRIVE
-INITIALIZE WAIT COUNT

#DRDYMSK ,RLCS (R2)
:DRIVE UP YET
8s
:YES START TEST

C$SBRK

#NOPWR
, = (SP)

:NO

;

"RV DID NOT REC'R FROM PWR FAIL"

#2,-(SP)
SP.RO

CSPNTF

#6,SP
0;2;;.lBASADD,RLBAS.lDRVNAH.(B.RLDRV*I> :REPORT DRIVE UNIBUS

RLDRV+1, (SP)
#DRVNAM.
= (SP)

SEQ 0070

16225

RLBAS,=(SP)

00604
01156
000005

600
015600

015604
015610
015612
015614

012746
012746
010600
104417
062706

015620
015624

016700
1044517

015626

104444

661 015630

005067

#FMTS, = (SP)

#5,-(5P)
SP RO

CSPNTF

000014

#14,5P

011553
000001

#EMT3
#FMT3,
= (SP)
#1,-(5P)

000004

CSPNTF
#4,SP

165536

PSETNM,RO

sNEW LINE

;/ADDRESS AND DRIVE NUMBER

SP.RO

PSETNM
C$DODU

CSDCLN
165304

664

665 015634
015634
015634

= (SP)
#BASADD,

ERRVEC

;D0 DROP UNIT ON DRIVE

s INVOKE CLEAN-UP CODE TO RESTORE DRIVE
:/T0O STATIC STATE

;CLEAR ERROR VECTOR

ENDINIT

L10015:

104411

667 015636

TRAP

CSINIT

ENDMOD

.SBTTL

AUTO DROP SECTION

sTHE AUTO DROP SECTION IS INVOKED BY THE DIAGNOSTIC SUPERVISOR WHENEVER THE
s"ADR' FLAG IS SET BY THE OPERATOR. IT IS EXECUTED AFTER THE INITIALIZATION
sCODE AND CHECKS THE DRIVE TO DETERMINE IF IT IS READY TO RECEIVE A COMMAND.
cIF THE DRIVE IS NOT READY IT IS DROPPED FROM THE TEST CYCLE AND THE NEXT
sDRIVE 1S ACCESSED. IF THE DRIVE IS READY THE HARDWARE TESTS ARE PERFORMED
SAFTER WHICH THE NEXT DRIVE IS ACCESSED.
1

15636

005067

165524

15642
015646

012746
012746

000340
016436
165262
000003

015652

016746

BGNAUTO

CLR
SE;VEC

#340,

;SET UP TRAP VECTOR TO DETECT

ERRVEC = (SP)

#3,-(SP)
CSSVEC

000210

#10,SP

165132
000000

RLBAS,R2
RLCS(R2)

006754

:CLEAR TRAP FLAG

#TRPHAN,
= (SP)

165462

012746

TRPFLG

Eanvscigggpuuu.ckéo

PRINTF

TRPFLG
1$

#FMT24 ,#NOCTLR

#NOCILR,=(SP)

:/NON-EXISTENT CONTROLLER UNIBUS
- /ADDRESS

:GET RL11 BASE ADDRESS

*ACCESS DRIVE CONTROLLER UNIBUS ADDRESS
‘DID TRAP OCCUR?
:BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR
*ELSE, PRINT MSG. 'DRV DROPPED = NO CNTLR'

CZRLIDO RLOI/O%

SEQ 0071

AUTO DROP S

#EMT24 ,=(SP)

#2,-(SP)
SP RO

CSPNTF

#6,SP
PRINTF

o
Vi~
VINNOMNNW

MOV

MoV
MoV
MOV
MoV
MOV

—y

CLR
BISB

740
Pt

D o o e ed d

B e eP

01373
000002

691

TRAP
ADD
PRINTF
MoV
MV
Mov
TRAP
ADD

012746
012746
010600
104417

692 016014
016014
016020
693 01602%

062706

DODU
Mov
TRAP

016700
104451

000460
016705
052705
010562
032762
001046

165002
000200
000000

000001

012746
012746
012746
010600

007003

012373

000002

104417

062706

701 016074

PPN
e St

d wd oed e
d

——t

&
~N

d o

= D

D med e

CO0000000000os

016074
016076
102

000006

1$%:

000000

:PRINT DRIVE

INFORMATION

0:2;?.08ASADD.RL§AS.IDRVNAH,<B.RLDRVO1>
RLDRV+1, (SP)
#DRVNAM,
= (SP)
RLBAS,=(SP)
#BASADD
, = (SP)
#EMTS,=(SP)

#5,-(5P)
SP RO

CSPNTF

#14,SP

WFMT3

PSETNM,RO

C$DODU
2%

;D0 DROP UNIT ON DRIVE

#CRDYMSK ,RS

:BRANCH TO EXIT
*ELSE, GET DRIVE NUMBER
*SET CONTROLLER READY

:BRANCH TO PERFORM TESTS IF DRIVE IS READY

RLDRV,RS

RS,RLCS(R2)
:LOAD IN THE DRIVE NUMBER
#DRDYMSK ,RLCS (R2)
:1S DRIVE READY?
#FMT24 ,#NOTRDY
#NOTRDY,
= (SP)

:PRINT MSG. 'DRV DROPPED - NOT RDY"

#EMT24,~(SP)

CSPNTF

#6,5P

sPRINT DRIVE INFORMATION

l:g;?.‘BASADD.RLBAS.lDRVNAH.(B.RLDRV*1>

005046
156716
012746
016746

16473
64731
00605 3

164714
006042

012746
012746

011567
000005

000014

011553
000001

000004

RLDRV+1, (SP)

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

#5,-(5P)
SP.RO
CSPNTF

#14,5P

#Fnt

#FATS,
= (SP)
#,-(5P)

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 7-16 y
H

SEQ@ 0072

AUTO DROP SECTION

703 016156
oo
O

164750

NNVN&

—b e

2%:
ENDAUTO

L10016:

~NSNSN

AR R
)
b b o
NN
NW
&sNNN
NN
NSO
—
8&& oHe

~N NN

3333833

—

705

b e e

b e e d e

[=l=lelolelele]

704

DODU
MOV

165200

016153

ooor

713

BGNMOD
BGNCLN

TRAP

C$AUTO

#340,=-(SP)

#TRPHAN,
= (SP)
ERRVEC,=(SP)

#3,-(SP)
CSSVEC

000007

(14
#7,R0

032762

000200

NNNON

—=NION—
ONNS

VOO

OCON)
NON

NNV

NON

nNON

JRELEASE THE ERROR VECTOR

ERRVEC ,#TRPHAN,#340

012700
104441

;00 DROP UNIT ON DRIVE

CLNCODE

#10,5P

SENBN

§F SERERRSEXERY

SNONSO

WWWWW
PON)
= b b

e
o
e
o
e o
e
—

727

e o

722

SU8

oo OONOOONONONONONOONONOOO
O\

——

-llelelelelclelelelelelelelelelelele
e

016274

TRAP

C$DODU
ERRVEC
ERRVEC,RO
CSCVEC

TRAP

000010

282 8338
22 88832 2
33
$8 gRAE8 N RIS

6240

CLRVEC
MOV

SETVEC

000340
016436
164730
000003

PSETNM
PSETNM
RO
,

000000

2s:

CSSPRI

sSET PRIORITY TO 7

#CRDYMSK ,RLCS(R2)

RLDRV,RLCS
(R2)
:SET DRIVE NUMBER
ggRDVlSK.RLCS(R 2)
:TEST IF DRIVE

000372

3s:

3
8250..(PC)0

163610

5SDLY.(PC)6

177772

—6£PC)

177756

<22(PC)

JNO - SKIP
sWAIT 300 mS

5%:

CSBRK

RLVEC

sRELEASE DRIVE VECTOR

165022

PWRFLG

;PWR FAIL SET

165014

PWRFLG

164470

164560

RLVEC,RO
CSCVEC

ERRVEC
ERRVEC,RO
CSCVEC

CSCLEAN

R READY

IF CONTROLLE
- LOOP sTEST
UNTIL READY
sNO

BUSY

I_6

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 7-17

SEQ 0073

AUTO DROP SECTION

41 8}2366

ENDD

L10020:

016368 1046453
73%

733 016370
734
735
736
737
738
739 016370
740
741 016370
742 016374
743 016400
744 016404
745 016410
746 016414
747 016422
748 016426

TRAP

c$ou

ENDMOD

.SBTTL

BGNSRV
INTHLR
s INTERRUPT HANDLER FOR DRIVE ABORTS WAIT TIMER AND STORES ALL RL11 REGISTERS
CLR
DLYCNT
;CLEAR UNELAPSED DELAY COUNT
MOV
(R2)+,T7.CS
:STORE RL REGISTERS
MOV
(R2)+.T.BA
MOV
(R2)+.T.DA

164546
164444
164442
164440

i77777
164400

MOV
MOV

164364

ENDSRY

L10021:

016426
016426

INTERRUPT SERVICE RCUTINES

MOV

(R2),T.MP
#-1,D0NE

RLBAS,R?2

;SET DONE FLAG

*RESTORE R2

RTI

s INTERRUPT SERVICE ROUTINE FOR P=CLOCK DECREMENTS DELAY COUNTER AT 100-MICROSECOND

TIHE INTERVALS

005367

164506

BGNSRV

ENDSRY

L10022:

000002

CLKINT

DEC

DLYCNT

sDECREMENT CLOCK DELAY COUNTER

RTI

{?zggggSY SERVICE ROUTINE SETS TRAP FLAG WHEN A NON-EXISTENT UNIBUS ADDRESS IS

005267
000002

164724

BGNSRV
ENDSRYV

L10023:

TRPHAN
INC
RTI

TRPFLG

sINDICATE THAT TRAP OCCURRED

PARRRRRRRRRRRR
VIVWZWAWIWD
S
(=1=] RR8NIRZS oSS

164506

175664

.SBTTL

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

;

ERROR L

CKERLM: CMP

puf

SEQ 0074

:NO = SKIP

;CHECK IF IN ERROR LOOP

103451

012746
016746
012746

INE
T EXCEEDED
;TEST IF ERROR LIMIT EXCEEDED

104420

;YES = SKIP
MW, #MEXERS ;PRINT MSG. ‘'OVER ERROR LIMIT = UNIT DROPPED'’

011225

175646
012400
000003

000010

#10,5P

164315

-(SP
RLDRV+ 1,(SP)

sEMT ;.OOASADD.RLBAS.ODRVNAH.<B.RLDRV01> sPRINT DRIVE INFORMATION

006053
164

e o

i md -

oo ooV OO

[sleleleleleleleleleleleleleleleleleleloT] o0

027767
002453

2200299990000

[
perp—
—

016444

N = OV
W) —

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 8
GLOBAL SUBROUTINES

h o

00604
011567
000005

o
oh e e
b

A —
oo

22222

(=lelelele]

WAININININININININON) OV NOWVSAWN—=OOV

3332928g

d o

000014

012746
012746
010600

000001

062706

000004

016700
104451

164564

1046417

011553

;DROP DRIVE

104444
000207

18:

32
26
22
16

RTS

CSDCLN

READ AND STORE ALL RL11
RLCSR( R2),T7.CS
RLBA(R 2),T.BA
RLDA(R
( 2),T.DA
RLMP (R 2),T.MP
RTS
PC

READRL: MOV
MOV
MoV
MOV

;GO TO CLEAN uP

REGISTERS

;GET CS REG

;GET BUS ADDRESS REG
;GET DISK ADDRESS
;GET MULTI-PURPOSE REG
sRETURN

K
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 8-1
'GLOBAL SUBROUTINES

31
3;
33 016636

011646

35 016644

032732

34 016640

36 016652
37 016656
38 016660
39 016666

40 016666
41 016676
42 016702
43 016706
44 016712
45 016714
46 016722
47 016726
48 016732
49 016736
50 016740

005066

001420
004767
005767
001453

012766
032767
001403

000002

000200

000002
164142

006220

000002

000001
1646214
164210
000012

164220

000200

58 016772

004767

1776

57 016770

59 016776

001906

177756

005767
001325
004767
012766

163774

177564
006240

005067
105067
005067

163750
164325
163750

77
78 017046

036746

164054

80 017060
81 017062

000412
016746

85 017102
86 017106
87 017110

005067
010346
016703

gg 017026 000731

28:
4$:

177772

006273

61 017006
62 017012
63 017014
64 017020

1$:

163152

012766

60 017004 000742

CLR

000000

006200
002000

51 016744
52 016746
53 016752
5, 016754
55 016760
56 016762

SEQ 0075

:
WAIT FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE
WAITIN: MOV
(SP) ,=(SP)
:MAKE ROOM FOR ERROR POINTER

177724
164122

012766
000207
012767
006367
006367
012727
000000
016727
000000
005367
001375
005367
001367
032762

000000

000002

5%:

4
PC,READRL
DONE
5%

:NO =
*READ
STEST
‘NO =

MOV
BIT
BEQ
MOY
RTS
MOV
ASL
ASL
MOV
LWORD
MOV

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

BEQ
JSR
TST
BEQ

sTEST IF CONTROLLER READY

SKIP TO WAIT
ALL RL REGS
IF INTERRUPT OCCURRED
GO SET NO INTERRUPT ERR FLAG

:ELSE SET TOO SLOW ERROR POINTER
:TEST IF OPI SET
‘NO - SKIP

.WORD
DEC
BNE
DEC
BNE
BIT

#MDRRES,2(SP)
:SET MESSAGE FOR NO DRIVE RESPONSE
PC
*RETURN
#1,DLYCNT
*INITIALIZE DELAY COUNT
DLYCNT
‘MULTIPLY BY 2
DLYCNT
SMULTIPLY BY 2 AGAIN
#10.,(PC)+
: IMPLEMENT TIME DELAY LOOP
0
LSDLY, (PC)+
O
-6(PC)
.~
<22(PC)
=20
#CRDYMSK ,RLCS(R2) ;TEST IF READY NOW SET

JSR

PC,READRL

B8R

MOV

3s:

.CLEAR FOR POINTER

#CRDYMSK ,RLCSR(R2)

BNE

000002

2(sP)

BIT

ST
BNE
JSR
MOV

;YES = SKIP

#MCONHNG,2(SP)

>SET MESSAGE FOR CONTROLLER HUNG

DONE
18
PC ,READRL
#MNOINT,2(SP)

B8R

*READ RL REGS

iSKIP

*ELSE CHECK IF INTERRUPT OCCURRED
:YES = SKIP TO SET TOO SLOW
*READ RL REGS
:ELSE SET NO INTERRUPT FLAG

*GO TO RETURN

70 017030
71 017034
72 017040

;2 017044

000207

RTS

79 017052

012767

000013
164040

164020

163666

164046

164032

OPFLAG
NOERCT
MORE CE

:CLEAR OPERATION FLAGS
*RESET INHIBIT ERROR COUNTING
*RESET MORE COMPARE ERRORS

;
GET STATUS AND GET STATUS WITH RESET ROUTINE
GSTATR: MOV
TEMP4, = (SP)
:STORE TEMP4

MOV

#GETSTAT'DRSET,TEMPG

BR
GSTATC: MOV

MOV
B8R
GSTAT: MOV

;SET FOR RESET

GSTATG
TEMP4 , - (SP)

;STORE TEMP4

TEMP4
R3,=(SP)
SSINDX,R3

*SET FOR SAVE L. AND T. REGS
*STORE R3
*GET SUBROUTINE INDEX

#GETSTAT,TEMP4 :SET FOR NO RESET
GSTATG
TEMP4 , = (SP)
;STORE TEMP4

CLR
GSTATG: MOV
MOV

azmmy 012767 000003
83 017074 000404
84 017076 016749 164024

OPERATION AND TEST INITIALIZE ROUTINE

TSTINT: CLR
CLRB
CLR

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 8-5

SEQ 0076

GLOBAL SUBROUTINES

88 017114

(005723

TST

(R3)+

BUHP IT FOR NEXT ENTRY

#4,SUBSTK(R3)

;ADJUST IT TO CALLING LOCATION

89 017116 016663 00000 002404

MOV

A(SP),SUBSYK(RS) :INSERT THIS CALL

91
92
93
9%
95

R3.SSINDX
RO.=(SP)
R1.=(SP)
#2.ERRSWI
WDRSET,TEMP4

20 01712

017132
01713%
017140
017142
017150

010367
010046
010146
012767
032767

162763

000004

002404

000002
000010

163646
163750

MOV
MOV
MOV
MOV
BIT

032762

040000

000000

BIT

#DRVERR,RLCS(R2)';TEST IF DRIVE ERROR SET

012727
000000
016727

000372

005367
001375
005367
001367
104422

177772

#250.,(PC)+
0
LSDLY,(PC)+
0
=6(PC)
=4
=22(PC)
.=20
(SBRK

012701
004767
020110
032767
001077
032767
001010
032767

000062
177620

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
TRAP
ME

% 017156

001525

98 017166
99 017170
017206
017212
017214

001427

97 017160

017229
017222
017226
017230
017234
017236

100
101 017246
102 017252
103 017256
104 017260
105 017266
106 017270
107 017276
108 017300
109
110
111 017306

112
113
114
115
116

017310
017316
017320
017326
017330

017346
017352
017354

017360
017362
017366
017370
017374
017376

117 017406
118 017410
119 017412

120 017416

017416
017420
017422
017424

121 017426

122 017432

001467
052767
000463
032767
001057

012727
000000
016727

000000
005367
001375
005367
001367
104422
005301
001320
012703

104456
023421
000000
012464
000167

005767

163644

SUB

BEQ

BEQ
WAITMS

162676

177756
NLIST
i98:
508:

000001

163556

000020

163554

144000

163544

040000

163466

040000

163516

S1$:

000372
162536
177772

177756

163470

BEQ
BIS
BR
BIT
BNE
WAITMS

18:

498
3

:NO = SKIP
WAIT FOR DRIVE TO SETTLE

;INITIALIZE WAIT COUNTER
:GET DRIVE STATUS
)
WDRDYMSK,T.CS
:TEST IF DRIVE READY
58
:YES - GO DO CLEAR
WHOSTAT,T.MP
:ELSE TEST IF HEADS OUT
518
YES
= BYPASS RELOAD WAIT FLAG SETTING
W#SPDSTAT!HCESTAT'WDESTAT,T.MP ;TEST IF DRIVE HAS ERROR
:THAT CAUSED HEADS TO
:UNLOAD
5%
:NO = SKIP

WRELDWT,OPFLAG
5%
#DRVERR,T.CS
5%
1

:ELSE SET WAIT FLAG
:SKIP TO CLEAR
:TEST IF DRIVE ERROR NOW
YES = SKIP TO CLEAR
:WAIT FOR DRIVE TO GET ERROR, READY, OR HEADS OUT

RI
508

:DEC WAIT CGUNTER
:IF NOT DONE, LOOP
:MESSAGE FOR UNDEF INED STATE

#250.,(PC)+
0
LSDLY,(PC)+
0
=6(PC)
b
=22(PC)
.=20
C$SBRK

ERRHRD

10001.
, .ERR1

NDEF ,R3

TRAP
.WORD
WORD
.WORD

CSERHWRD
10001
0
ERR1

TIST

TEMP4

IND
= SKIP

#50.,R1
PC,GSTAT

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
TRAP

DEC
BNE
MOV

011103

000452

MOV
JSR
33
BIT
BNE
BIT
BNE
BIT

118

:STORE IT BACK
:STORE RO
STORE R1
:SET FOR NO ERROR RETURN
:TEST IF DRIVE RESET

148

SEXIT

TEST IF SAVE REGISTERS

RLID0 RLO1/02 DRIVE
OBAL SUBROUTINES

123 017436
154 017440

125
126
127
153
129

017444
017450
017452
017454
017456

130 017464

001013
015701
012703
014346

005301
001375
012767
000403

TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 8-3
BNE
MOV

000004
003044

000003

163354

}g; 8};2 $

016767

163434

163344

133 017474
134 017500

005067
016767

163306
163326

163326

136
137
138
139

052767
016762
016762

000104
163312
163300

163312
000004
000000

135 017506
0175164
017522
017530
017536

017536
017542
017544
017550
017552
017556
017560
017564

042767

012727
000000
016727
000000
005367
001375
005367
001367

002000

032767
001534
032767
001451

000010

032762

0000017

148 017630 012701
149 017634

150 017642
151 017644

017662
017666
017670

001043
012727
000000
016727

017674
017676
017702

000000
005367
001375

017710
017712

001367
104422

017704

152 017722

153 017724
154 017726
155 017732
156 017734
157 017740
017740

017742
017744
017746

158 017750

005367

193;52

104456
023423
000000
012464

000455

163256

163250

040000

163156

001130
000372

162222
177772
177756

DEC
BNE
MOV
BR

163222

000000

011150

s INSERT PRESET FOR STATUS

DONE
RLDRV,L.CS

;CLEAR INTERRUPT FLAG
:SET UP TO GET STATUS

BIS
MOV
MOV
WAITUS

#GTSTAT,L.CS
L.DA,RLDA(R2)
L.CS.RLCSR(R2)
1

:LOAD RL REGS
:LOAD CS REG
JWAIT FOR INTERRUPT

BEQ
MoV

1$
T.MP,T.STAT

;CHECY IF INTERRUPT OCCURRED
iNO - SKIP
:STORE MP REGISTER

#DRSET,L.DA
3$
#RELOWT,OPFLAG
12$

;TEST
*NO =
:TEST
M0 ~

OBlTlé.L.CS

#1,(PC)+
0
LSDLY,(PC)+
O
~6(PC)
=4
<22(PC)
.=20
DONE

JCLEAR FOR DRIVE 4 = 7 SPEC'D

BIC

0‘C<§TANSK>.T.STAY sCLEAR ALL BUT STATE

MOV

#600. ,R1

BIT

BNE

WAITMS

MOV
.WORD
MOV

LWORD
DEC
BNE
DEC
BNE
TRAP
DEC

177144

TEMP4,L.DA

;SET ADDRESS OF FIRST SAVE
sPUT REG ON STACK

CLR
MOV

BIT
BEQ
BIT
BEQ

13%:

JNO SKIP
*SET SAVE COUNT

BIC

4%:

5%
¥ ,R1
#L.MP+2,R3
=(R3),=(SP)
R1
8s
#GETSTAT,L.DA

*DEC COUNT
:LOOP UNTIL ALL SAVED
sSET FOR GET STATUS
JSKIP

MOV
.WORD
MoV
LWORD
DEC
BNE
DEC
BNE
TST

177770

005301

001343
004767
020110
012703

163320

177756

144
145
146
147

017610
017616
017620
017626

MOV

177772

163214

042767

2::

162346

005767
001535
016767

017602

MOV
MOV

000001

140 017566
141 017572
14% 017574

143

8%:

SEQ 0077

BNE
JSR
33
MOV
ERRHRD
TRAP

.WORD
.WORD
-WORD

B8R

IF RESET WAS SPECIFIED
SKIP TO EXIT
IF RELOAD WAIT FLAG SET
SKIP

:1ITIALIZE WAIT COUNTER

ODRDYHSK.RLCS(RZS :TeSTV iF DRIVE NOW READY

128
1

#250.,(PC)+
0
LSDLY, (PC)+

:YES = SKIP
JCALL WAIT

O
~6(PC)
o

<22(PC)

=20
C$BRK

138
PC,GSTAT
#MRLFAL ,R3
10003.
, .ERR1

CSERHRD
10003
0
ERR1

14$

:DEC COUNT

*LOOP IF NOT 0
*GET DRIVE STATUS
*ERROR RETURN
*SET RESULT MESSAGE POINTER

;G0 TO EXIT

N
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4~AUG-82 10:30:59 PAGE 8-4
GLOBAL SUBROUTINES
159 017752

017752
017756
017760
017764
017766
017772
017774
020000

160 020002
161 020006
162 020010
163 020016
164 020020
165 020026
166 020030
167 020034
168 020036
169 020044
170 020046

171
172
173
174

020046
020050
020052
020054
020056
020060
020064
02

175 020072

020074
020076
020100
020102
177 020104

178 020110
179 020114
180 020116
181 020122
182 020126
183 020130
184 020132
185 020134
186 020142
187 020144
188 020146
189 020150

190 020154
191 020160
192 020162
193 020166

194 020170
195 020172
196 020176

;gg 020200
199

012727
000000
016727
000000
005367
001375
005367
001367

004767
020110
032767
001434
032767
001403
012703
000417
032767
0C1405

12%:

000012
162132

177772
177756
177070
100000

163026

001000

163024

006327

040000

163000

7%:

104456
023424
000000
012766
000412
012703
000403
004767

012603

104456
023422
000000
012464

005067
005767
001007
012703
012701
012623
005301
001375
162767
012601
012600
012603
012667
005767
001404
066716
000240
000207
017616
000240

000207

WAITUS

MoV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

9%:

176544

1%:

162706
163012

14$:
38:

003034
000004

000002

208:
162640

22%:

162752

162636
162630
000000

99%:

SEQ 0078

10.

JWALT

#10.,(PC)+
0
LSDLY,(PC)+
0
=6(PC)
o=k
=22(PC)
.=20

JSR
33
BIT
BEQ
BIT
BEQ
MOV
BR
BIT
BEQ
ERRHRD

PC,GSTAT

;sGET DRIVE STATUS

#ANYERR,T.CS
3%
#VCSTAT,T.MP
7%
#VCNRST,R3
2%
#DRVERR,T.CS
9%
10004.,,ERRG

;TEST IF ANY ERROR
sNO - SKIP
sCHECK IF VOLUME CHECK RESET
;YES SKIP
sSET REASON POINTER
SEXIT
sCHECK IF DRIVE ERROR
sNO = SKIP

BR
MOV
BR
JSR

14%
#UNXERR,R3
28
PC UAIY%N

JEXIT
sSET REASON POINTER
SEXIT
sWAIT FOR INTERRUPT

TRAP
WORD
.WORD
.WORD
CLR

CSERHRD
10002
O
ERR1
ERRSWI

TRAP
.WORD
WORD
.WORD

006350

MOV

TST
BNE
MOV
MOV
MOV
DEC
BNE
SuB
MOV
MOV
MOV
MoV

TST
BEQ
ADD
NOP
RTS
MOV
NOP

RTS

CSERHRD
10004
0
ERRé6

(Sfi)’.fl

sSTORE REASON POINTER FOR RETURN

ERRSWI
99%
ERRSWI, (SP)

sCLEAR FOR ERROR RETURN
sTEST IF REGISTERS WERE SAVED
:NO - SKIP
sSET POINTER TO RESTORE
sSET REGISTER COUNT
sRESTORE REG
sDEC COUNT
sLOOP UNTIL ALL ARE RESTORED
sREMOVE ENTRY FROM SUBROUTINE STACK
sRESTORE R1
sJRESTORE RO
sRESTORE R3
sRESTORE TEMP4
sTEST IF ERROR RETURN
sYES = SKIP
sADD IN FOR NO ERROR RETURN

PC
a(SP), (SP)

;SET ERROR RETURN ADDRESS

TEMP4
22%
#L.CS,R3
#4,R1
(SP)+,(R3)+
R1
208
#2,SSINDX
(SP) +,R1
(SP)+,R0
(SP)+,R3
(SP)+,TEMP4

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE B-g

SEQ 0079

GLOBAL SUBROUTINES

02 020202
203 0 o 04

010346
012701

205 0 14

014346

204 020210

012703

206 020216 005307
mromy 001375

GET DRIVE STATE ROUTINE

1%:

MOV

GDRSTA: MOV
MOV

02004

003044

DEC
BNE

583 020222

012767

000003

210 ogozso

005067

016767 162572

162552

162572

MOV

213 020242

042767

002000

%}9 020256

oL MP+2.R3

-(RS) -(SP)

R1
18

: SAVE R3
sINITIALIZE REGISTER SAVE COUNT
sINITIALIZE ADDRESS OF FIRST SAVE
+SAVE REGISTER ON STACK
;DECREMENT REGISTER SAVE COUNT

sLOOP UNTIL ALL 4 REGISTERS ARE SAVED
SET UP DISK ADDRESS REGISTER FOR GET STATUS
/ COMMAND
:CLEAR INTERRUPT FLAG
:SET UP CONTROL STATUS REGISTER WITH

MOV

#GETSTAT,L.DA

CLR

DONE

000104

162564

162556

BIC

#BIT10,L.CS

016762

162556

000004

MOV

L.DA,RLDA(R2)

g}g 020264

016762

162544

000000

MOV

L.CS,RLCSR(R2)

220 020272
221 020276
222 020300
223 020304
224 020306
225 020314
226 020322

105762
001775
005767
001416
016767
042767
012703

000000

TSTB
BEQ
ST
BEQ
MOV
BIC
MOV

RLCS(R2)
;WAIT FOR CONTROLLER READY INDICATING
5¢
;/RECEIPT OF GET STATUS COMMAND
DONE
s INTERRUPT OCCURRED?
3s
sBRANCH IF NOT
T.MP,T.STAT
:GET CONTENTS OF MULTI-PURPOSE REGISTER
#AC<STAMSK>,T.ST AT ;CLEAR ALL BUT STATE DR.VE BITS
#L.CS.R3
:INITIALIZE POINTER TO RESTORE RL REGISTERS

8 020

012623

MOV

(sfi)o (R3)+

%}; 020234

%}é 020250

557 ogog;g

052767

012701

229 0203%«
230 020536
231 020340
232 020342

005301
001375
000402
004767

5;3 020350

000207

233 020346

012603

162610

MOV

R3,-(SP)
#4 R

5¢:

162502
162540
177770
003034

162544
162536

000004

2s:

176270

3s:

48:

23
237

238

239 020352

012767

177777

241 020362
262 020366

005067
010346

162532

244 020374

005723

240 020360

243 020370

245 020376
246 020406

000402

016703

162406

016663
162763

000002
000004

247 020412 010367 162364

248 020416
249 020420

50 020422
51 020424
2s§ 020432

254 020436
255 020442
256 020444

162540

004767
02111
016767

000002
162440

002404
002404

162364

162426

#GTSTAT,L.CS

26 R1

DEC
BNE
BR
JSR

pc WAITIN

RTS

MOV

(SP)+,R3

sesx ROUT INE
aa

MOV

002560
162434

XSEEKT:

MOV

XSEEK: CLR
XSEEK1: MOV

010046
(10146

010546
012767
005067

BIS

RLDRV,L.CS

TST

:/DRIVE NUMBER

sCLEAR FOR DRIVES 4~7 SPECIFIED
SINITIALIZE CONTROL STATUS REGISTER FOR
:/GET STATUS COMMAND
sINITIALIZE DISK ADDRESS REGISTER FOR
s/GET STATUS COMMAND
;LOAD CONTROL STATUS REGISTER TO EXECUTE
;/GET STATUS COMMAND

:INITIALIZE REGISTER SAVE COUNT

:RESTORE REGISTERS

sDECREMENT REGISTER SAVE COUNT
:LOOP UNTIL ALL 4 REGISTERS ARE RESTORED
sWAIT FOR INTERRUPT
:RESTORE R3

;RETURN

#-1, TEMP1

sSET SPECIAL TIMING SEEK FLAG

TEMP1
R3,~(SP)

sCLEAR SPECIAL TIMING SEEK FLAG

(R3)+

:BUMP IT FOR NEXT ENTRY

R3.SSINDX

:STORE IT BACK

as -(SP)
#2 ERRSWI
DIFAUG

;STORE REG
sSET FOR NO ERROR RETURN

XSEEKT

SSINDX,R3

:STORE

:GET SUBROUTINE INDEX

MOV
SUB

2(5P),SUBSTK(R3)" s INSERT THIS CALL
#4,SUBSTK(R3)
:ADJUST IT TO CALLING LOCATION

MOV
MOV

RO.=-(SP)
R1.~(SP)

MGV
MOV
MOV
CLR
JSR
65$
MOV

PC,GETPOS
CURCYL,OLDCYL

sCLEAR DIFFERENCE ARGUMENT (FOR SEEKING

___PAST GUARD BAND)

:GET PRESENT POSITION

+MOVE CURRENT TO OLD CYLINDER

CZRLIDO RLO1/0¢ DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 8-6
GLOBAL SUBROUTINES
257 020452

022237

260 020470
261 020476
262 020504
263 020512
264 ososra

016767
016767
022767
001424
162767

258 020460
259 020462

003427
166767

265 020522
266 020530

012767
012767

268 020540
269 020544
270 020546
271 020552
272 020560

005767
100007
005467
016767
005067

267 020536

000451

16426

161622

161614
162406
161600
000001

162412
162400
162376
161564

000001
000001
000001

162360
162360
162350

162336

162330
162324
162316
162314
162306

273 020564
274 020570
275 020574
276 020576
277 020604
278 020606
279 020610

016705
166705
100005
012767
005405
000402
005067

000001

281 020620

005767

162252

280 020614

282 020624
283 020626

0 oofi

385 020636

&
287 020644

010567
001416
026767

162244

022767

000001

161424
162224

162216

292 020666
293 020672

012705
012715
056715

003034
000106
162134

295 020702
296 0587
297 020710

005025
016715
012700

042725
006315

299 020716

005

331 020722

005767

300 020720 001375
2 020726
303 020730
304 020734
305 020740
sog 020742

001402
052715
005767
001402
052715

308 020752
309 020756
310 020760
311 020764

004767
021112
005067
005767

307

020746

§1§ 020770
13
020772

138:
148:

000001

1007

066767

298 020714

162304

012767

001003

294 020670

68:

161446

288 020652

289 020654
290 020662
291 020662

162316

162250

052725

001050
014562

17%:
188:

000020

000001

000504
162022
162130
000004

NEWCYL ,DIFAUG
HLMTW,NEWCYL
#1,7T.0RIVE
63
#1,NEWCYL

TST
BPL
NEG
MOV
CLR

MOV
SUB
BPL
MOV
NEG
BR
CLR

218:

258:

JTEST IF NEW IS GREATER THAN 255

‘NO = SKIP
-ELSE SUBTRACT 255.

;STORE DIFFERtugi AS ARGUMENT
:SET NEWCYL AS
255.

#1.DESSGN
#1.DESDIF

18§

NEWCYL
6$
NEWCYL
NEWCYL,DIFAUG
NEWCYL

JTEST IF NEWCYL HAS NEGATIVE VALUE
‘NO = SKIP
:ELSE MAKE IT POSITIVE
:AND STORE IT AS ARGUMENT
*AND SET NEWCYL TO

MOV

BEQ
CMP

188
NEWCYL.NLMTW

MOV

#1,DESSGN

cMP

#1,T.DRIVE

ADD

DIFAUG,DESDIF

MOV
MOV
BIS

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

;GET RL REG ADDRESS
*SET FOR SEEK
*INSERT DRIVE NUMBER

(RS)+
o;soxr.(aS)
#7,.R0

*CLEAR BUS ADDRESS
*LOAD DIFFERENCE
SSET TO SHIFT DIFFERENCE

BNE

CLR
MOV
MOV

ASL

D1FAUG

17$

:COMPUTE DIFFERENCE AND NEW CYLINDER
*SUB NEWCYL FROM CURCYL
:1F DIFF IS POSITIVE - SKIP(REV SEEK)
*ELSE SET SIGN FOR FORWARD
*MAKE DIFFERENCE POSITIVE
iSKIP
*SET SIGN FOR REVERSE
*STORE DIFFERENCE

:1S THERE A DIFFERENCE ARGUMENT
INO = SKIP
:CHECK IF NEW CYL IS 255.

INO - SKIP

*ELSE FORCE SIGN FOR FORWARD

: CINNER GUARD BAND)

18§

#81710,(RS)+
(rRS)

:CLEAR IF DRIVE 4 - 7 SPEC'D

DEC

DESSGN

BIS

#MBSETO, (RS)+ :INSERT MARKER BIT

BNE
238:

3
HLMTW,NEWCYL

SEQ 0080

CURCYL RS
nsuch.as
138
#1,DESSGN
RS
148
DESSGN
RS ,DESDIF

BIC

162162

000004
162152

MOV
MOV
CMP
BEQ
SuB

BNE

002000

162176
000007

NiUCVL.NLHYU

MOV
MOV
3%:

162274
162266

CMP

BLE
SuB

BEQ
BIS
TST
BEQ
8IS
JSR
65$
CLR
ST

BNE
MOV

218

:LOOP UNTIL ALIGNED

238
#DIRBIT,(RS)
DE SHD
F11
3
#HDSEL , (RS)

SSKIP IF 0
:ELSE INSERT SIGN
STEST IF HEAD 0
SYES = SKIP
*ELSE SET HEAD BIT

PC,RDYCHK

*CHECK IF DRIVE READY

DONE
TEMP1
65%

;CLEAR INTERRUPT FLAG
*CHECK IF SPECIAL SEEK FLAG SET
:YES = SKIP, DO NOT START SEEK

-(RS) ,RLDA(R2)

STEST SIGN

:LOAD RL REGISTERS

CZRLIDO RLO1/702 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE B-g

SEQ 0081

GLOBAL SUBROUTINES

314 020776

315 021002
316 021006
021006
021012
021014
021020
021622
021026
021030
021034
317 021036
318 021042
319 021044

320 021050

321 021052
021052
021054
021056
1060
322 021062
323 021066
324 021070
325 021074
326 021076

021076

014562

014562
N
012727
000000
016727
000000
005367
001375
005367
001367
005767
001012
004767

012603

104456
023425
000000
012464
005067
000411
005767
100006

012766
005067
162767

330 021122
331 021124
332 021126

012601
012600
012603

333 021130

MOV

000000

30%:

000001

161076
177772
177756

161744
175566

161730
161750

328:

012605

161704
000002

005767

161662

000207
017616
000207

000000

161662

658:

339

343 021152
344 021154
345 021160
346 021162
347 021170

010346
016703
005723
016663
162763

349 051202
350 021204
351 021206
ssg 051214
353 021220
354 021522
355 021226

010046
010446
012767
004767
021424
012704
012714

348 021176 010367

ERRHRD
TRAP
.WORD
-WORD
.WORD
CLR
BR
TST
BPL
ERRHRD

10005, ,ERR1
CSERHRD
10005

ERRSWI
658
T.CS
658
10006. , ,ERR6

.WORD
"WORD
.WORD
CLR
SUB

10006
O
ERR6
ERRSWI
#2,SSINDX

;CLEAR FOR ERROR RETURN
*REMOVE ENTRY FROM SUBROUTINE STACK

MOV
MOV
MOV

(SP)+.R1
(SP)+.RO
(SP)+.R3

;RESTORE R3

99
ERRSWI , (SP)

SYES = SKIP
*ADD IN ERROR RETURN

BEQ
ADD
998:

161622
000002
000004

161600

000002
000242

003034
000106

MOV
ST

334 021136 001403
335 021136 066716 161654

336 021142
337 021144
338 021150

<(R5),RLCS(R2)
1
#,(PC)+
(
LSDLY, (PC)+
0
-6(PC)
=
<22(PC)
.=20
DONE
328
PC,WAITIN

TRAP

023426

002404
002404

161602

-(RS).RLBA(RS)

MOV
WAITUS
MOV
WORD
MOV
LWORD
DEC
BNE
DEC
BNE
ST
BNE
JSR

MOV

104456

021100
021102
021104
327 021106
328 021112

329 021120

00202

RTS
MOV
RTS

SIMSEK: MOV
MOV
ST
MOV
;)

MOV

MOV
MOV
MOV
JSR
65$
MOV
MOV

(SP)+,R3

ERR1

;PERFORM SEEK OPERATION
sALLOW TIME FOR RECEIPT OF SEEK COMMAND

;TEST IF INTERRUPT DONE
‘YES = SKIP
‘GO WAIT FOR INTERRUPT

*GET RESULT MESSAGE POINTER

;:CLEAR FOR ERROR RETURN
;TEST IF ANY ERROR
‘NO = SKIP

CSERMRD

(SP)+.RS

ERRSWI

PC
a(sP), (SP)
PC

*RESTORE REGISTER

STEST IF ERROR RETURN

:SET ERROR RETURN ADDRESS

R3,=(SP)
:STORE REGISTERS
ssgnox.ns
: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.=(SF)
R, =(SP)
#2.ERRSWI
PC.RDYCHK

:SET FOR NO ERROR RETURN
*CHECK IF DRIVE READY

#L.CS.RG
#SEEK . (R4)

:GET POINTER TO L REGS
SSET FOP SEEK

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 8-5

SEQ 0087

GLOBAL SUBROUTINES

3¢ 021232
37 02123
58 021242

gzg 021244
021250
31 02125
362 021256
363 021260
|
ek 021262
|
365 021266
Jee ga1ar0
367 021276

368 021300

369 021302
370 021306
371 021312
372 021316
373 021322
374 021326
375 021332

376 021336

0se71
Q427
005024

016714
012703
006314
005303
001375
005767
001402
052714
005767

001402

052714
052724
005067
012701
014462
014462
014462

005767

161574

RLDRV, (R&)

;INSERT DRIVE NUMBER

(R4) +
D;SD;F.(RA)

:CLEAR BUS ADDRESS
*LOAD DIFFERENCE

#BIT10,(R&)+

002000
161636

000007

#7.R

égl)

3s:

;TEST IF SIGN SET

000004
161612

S$:

#DIRBIT,(R4)

:INSERT SIGN

000020
000001

7%:

#HDSEL , (R4)

*INSERT WEAD BIT

161470
000012
000004
000002
000900
161444

DE SHD
78

#MBSETO, (RG)+
DONE
#10. ,R1

108:

104456
023433
000000
012464
005067

160534

bSDLY.(PC)o

177772

-6(PC)
o=b

162767
012604
012600

=22(PC)
=20
108

PC.HA!!%M
(SP)+,R

e
10011

161372

000002

161350

0
ERR1
ERRSWI

658:

#2,SSINDX

161344

000000

99%:

RTS
MoV
RTS

SYES = SKIP

:DEC WAIT COUNT

IF 0 = SKIP

;G0 CHECK DONE

$GO WAIT FOR TIMEOUT
:GET RESULT MESSAGE POINTER

;CLEAR FOR ERROR RETURN
;REMOVE ENTRY FROM SUBROUT STACK

(SP)+,R4
(SP)+.RO

*RESTORE REGS

ERRSWI

;TEST IF ERROR RETURN

gésp).(sp)

;SET ERROR RETURN ADDRESS

(SP)+.R3

161352

*CLEAR INTERRUPT FLAG
;SET WAIT COUNT FOR 800US

;CHECK IF INTERRUPTED

51.(?()0

13%:

:INSERT MARKER BIT

DONE

000001

175230

STEST IF HEAD 0
:YES = SKIP

:LOAD RL REGISTERS

658

177756

JNO - SKIP

-(nai.aLoA(ns)
-(R&) .RLBA(R?)
-(R&) ,RLCS(R2)

998
sgasux.<sp)

SYES = SKIP
*ADD IN ERROR RETURN

DRIVE READY TEST ROUTINE. CHECKS DRIVE

TO ALIGN

:ALIGN DIFFERENCE IN DA

DESSGN

}ss

000756
004767
012603

*SET COUNT FOR SHIFT

161622

381 021400
382 021402
383 021406
384 021410
021410
021412
021414
021416
385 021420
386 021424
387 021424
388 021432
389 021434

:CLCAR FOR DRIVE 4 = 7 SPEC'D

IS READY.

IF NOT, WAIT

NUNWWNWON

—

oo
322
§°°°°°°
VIionO
-2° (=1
OO
NNN
S - g32 NOR
N=NOOO

&He

(=1
X =]

Q-G
G
fhuerd

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 8-9
GLOBAL SUBROUTINES

493 02155

S500MS FOR_READY TO SET.
R3,-(SP)
;STORE REGS

RDYCHK: MOV

MOV

161312

000002
000004

161270

002404
002404

000002
011610
175340

161270

000001

161276

—
NSH £ NN
NNW
=1
o
R RW

010404
011404

PC,GSTAT

BIT

#DRDYMSK,T.CS

sTEST IF DRIVE READY

WAITUS
MOV
LWORD
MOV
.WORD
DEC
BNE
DEC

1
#1,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
=
<22(PC)

ROV

ARDRDY,A3

ERRHRD

10010., .ERRS

MOV

TRAP

000030
175242
000001

28:
161200

160220

177772
177756

161106

3s:

JYES = EXIT

.=20
R1

#CS00MS,
R

SET RESULT MESSAGE POINTER
TCe

TION MESSAGE POINTER

CSERHRD

10010
O
ERRS
#24. R
PC,GSTAT

sINITIALIZE WAIT COUNT
sGET DRIVE STATUS

BIT

#DRDYMSK ,T.CS

sTEST IF DRIVE READY

WAITMS

JWAIT FOR 100MS

MOV
LWORD
MOV
LWORD
DEC
BNE
DEC
BNE

#250.,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
=4
222(PC)
.=20

DEC
BNE
BIT
BEQ
ERRHRD

R1
2
#ANYERR,T.CS
4
10011., ,ERR6

.WORD
"WORD

10011
O

TRAP

100000

.WORD
WORD
.WORD
MOV
ign

BNE

000372

R1.=(SP)
R4.=(SP)

sSET FOR_NO ERROR RETURN
sSET WAIT COUNT
sGET DRIVE STATUS

BNE
DEC

-2

R 228

iga

(R3)+

#5000. ,R1

MOV
BNE

177756

- ON

o; ERRSWI

MOV
MOV

177772

coo-

MOV

SUB

000001

Ss
838338388
P Bt il
wy SIEENETIS

MOV
MOV

MOV

18:

ss;uox.as

sGET SUBROUTINE INDEX
;BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK (R3) : INSERT THIS CALL
#4,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION
R3.SSINDX
sSTORE IT BACK
RO.=(SP)

TST

160334

503 021644
504 021646
021664
021670
021672
021676
021700
021704
021706
021712
021714
505 021724
506 021726
507 0217
508 021736
509 021740
021740
021742
021744

SEQ 0083

TRAP

($BRK

CSERHRD

sYES - SKIP

:DEC WAIT COUNTER
;LOOP UNTIL TIME DONE
JTEST IF ANYERR SET
sNO - SKIP
sREPORT ALL ERRORS

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 8-10
GLOBAL SUBROUTINES

021746
510 021750
§11 021754
s1§ 021760

012766
005367
005067

514 021770
515 021772
516 021774
517 021776
518 022002

012601
012600
012603
005767
001403

551 022012
gzg 022016

017616
000207

513

021766

519 022006
520 022010

165767

012604

066716
000207

161204
161036
000002

161014

525
526 022020
5§27 022024
528 022032
529 022034
ggg 022042

005067
032767
001403
016767
000207

161066
010000

172274

161050

233

534
535
536 022044
537 022052
538 022054
539 022060
540 022062
541 022070
542 022074
543 022076
gzg 022102

032767
001011
005767
001006
012767
062716
000207
017616
000207

548
549 022104
550 022106
551 022112
§52 022120
553 022124

010046
016700
016767
010067
012600

160766
160764
160756

573 022130

012767

000001

5§75 022140
576 022144

005067
010346

160762

578 022152
579 022154

005723
016663

ggg 022126

ERR6
ERRCNT
ERRSWI
#2,SSINDX

;REDUCE ERROR COUNT FOR DUAL ERRORS
:CLEAR FOR ERROR RETURN
*REMOVE ENTRY FROM SUBROUT STACK

MOV
MOV
MOV
ST
BEQ

(SP)+.R1
(SP)+.RO
(SP)+.R3
ERRSWI
998

;TEST IF ERROR RETURN
SYES = SKIP

998:

MOV
RTS

a(sP), (sP)
PC

CHOOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS

4$:
58%:

161006

524,

010000

172254

161032
000001
000002

161022

000000

160760

000207

SEQ 008«

.WORD
DEC
CLR
SUB

161014

000000

MOV

ADD
RTS

(SP)+,Ré4

:RESTORE REGS

ERRSWI, (SP)
PC

:ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

:
SELECTED BY SOFTWARE PARAMETER.
CHOSHD: CLR
DESHD
;CLEAR TO HEAD 0
BIT
#HEADLM,MISWIW :TEST IF HEAD SPECIFIED
BEO
1$
‘NO - SKIP
MOV
HEADW, DE SHD
+INSERT SPECIFIED HEAD
1$:
RTS
PC

:
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
2
:YES = TAKE ABORT EXIT
ST
DE SHD
STEST IF HEAD ONE USED
BNE
2
:YES - TAKE ABORT EXIT
MOV
#1,DESHD
*ELSE SET FOR HEAD ONE
ADD
#2,(SP)
:BUMP PAST ABORT RETURN
RTS
PC
*RETURN
28:
MOV
a(SP), (SP)
*GET ABORT DESTINATION
3s:
RTS
PC

:
SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE.
ONSWAP: MOV
RO,=(SP)
:STORE RO
MOV
oLDCYL RO
*MOVE OLD TO RO
MOV
NEWCYL.OLDCYL
:MOVE NEW TO OLD
MOV
RO, NEWC YL
:PUT OLD IN NEW
MOV
(SP)+,R0
*RESTORE RO

RTS

570

571

5§72

574 022136 000402
577 022146

—————

016703

160770

160630
000002

READ HEADERS ROUTINE.

XRDHDC: MOV

#1,1EMP4

;SET FLAG TO BYPASS REG STORAGE

XRDHD:
CLR
XRDHDG: MOV

TEMPS
R3,=(SP)

*SET FLAG TO SAVE T. AND L. REGS
:STORE REGISTERS

B8R

MOV

002404

ST
MOV

XRDHDG

*GO DO IT

ssiuox.ns

*GET SUBROUTINE INDEX

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

———

—

000204

000002

160606

002404

#4 ,SUBSTK(R3)

R3,SSINDX

RO,=(SP)
R1,=(SP)
R4 ,=(SP)
#2 ERRSWI
TEMP4

—

AT
T £
LI IARITTES

582 022174
583 82

e e ek ON
o

—

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 8-11
GLOBAL SUBROUTINES

160712

160606

003044
000004

#L.MP+2,R3

1$%:

2%:

177222
160540

24 R

=(R3),=(SP)

1%
PC,RDYCHK

DONE

#L.CS,R1
RLDRV (R1)

#81110, (R1)
#RDHEAD, (R1)+
602 022272
603 022276
3s:

000012

516..(?¢)o

157576

680LY.(PC)0

177772

-6£PC)

177756

1226rc>

160444

DONE

000001

610 022354
611 022360
612 022364
022364
022366

(R1)+
(R1)+
-(Rl).RLDA(RS)
=(R1) .RLBA(R2)
=(R1) ,RLCSR(R2)
10

160472

5%:

010404
011423

108
#MDRDY ,R3

10017.
. ,ERRS
CSERHRD

10017
0
ERRS

174472

4%:
160430

#24. ,R1

PC,GSTAT

#DRDYMSK,T.CS
11%

160374
11$%:

011434

#DRDYMSK,T.CS

#CAFDT .RG

000030
000001

14$

ERRSWI
108

R1
43

#CS5SEC, R4
10014., ,ERRS
CSERHRD

SEQ 0085

sADJUST IT TO CALLING LOCATION
;STORE IT BACK

JSET FOR NO ERROR RETURN

JTEST IF REGISTERS TO BE SAVED

sNO - SKIP
sSET POINTER FOR REGS

sSET COUNT
sSAVE REGISTER
sDEC COUNT
;LOOP UNTIL ALL ARE SAVED
JCHECK DRIVE READY
sCLEAR INTERRUPT FLAG
;GET ADDRESS OF LOAD REGS
;LOAD DRIVE NUMBER
sCLEAR FOR DRIVE 4 - 7 SPEC'D
s INSERT COMMAND

sCLEAR BA
sCLEAR DA
sLOAD RL11 REGS

;WAIT 1 MS FOR INTERRUPT

JTEST IF INTERRUPT FLAG SET
JNO - SKIP

:TEST IF DRIVE READY

JYES - SKIP

sSET NO READY MESSAGE
:CONDITION OF AFTER DATA XFER

sINITIALIZE WAIT COUNT
sGET STATUS

JTEST IF DRIVE HAS COME READY

sNO - SKIP
JCLEAR ERROR SWITCH

JSKIP

sDEC WAIT COUNT

sLOOP UNTIL TIME DONE
JSET CONDITION AFTER S SECONDS

1.7

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 8-12
GLOBAL SUBROUTINES

022436
og 440
022442

023436
000000
012716

624 022444 000426
625 022446
626 022452

005767
100005

022454

104456

627 022454

160372

003054

631 022476

016221

000006

633 022506

004767

174126

128:

022472 016221 000006

634 022510

635 022512
022512
022514
022516
022520
636 022522
637 022526

012603

104456
023437
000000
012464
005067
005767

148:

160270
160374

608:
658:

638 022532 001007
012703 003034
640 oggsl.o 012701 000004
639 02253

641 022544

012623

643 022550

001375

642 022546
644 022552
645 022560

208:

005301

162767
012604

TST
8PL

T.CS
128

B8R

TRAP

023440
000000
012766
000416
012701

632 022502 000411

10014
0
ERRS

ERRHRL

022456
022460
022462
628 022464
629
022466

108:

.WORD
WORD
"WORD

000002

160222

22%:

JSR

PC,WAITIN

ERRHRD
TRAP
.WORD
WORD
.WORD
CLR
TST

10015.,,ERR1
CSERHRD
10015
O
ERR1
ERRSWI
TSHPA

MOV

DEC

SUB
MOV

#2.SSINDX
(c")+,R4

BNE

MOV

650 0225764
651 022576
652 022602
653 022604
654 022610
655

001403
066716
000207
017616
000207

160214

000000

998:

(SP)+,R3

#L.CS.R3

MOV

BEQ
ADD
RTS
MOV
RTS

*CHECK FOR ANY ERRORS
‘NO = SKIP

;GET POINTER

RLMP(R 5.(R1)0 ;STORE LAST TWO HEADER WORDS

BNE
MOV
MOV

648 022566

649 022570 005767 160222

:REPORT ALL ERRORS

aknp(n Y.(R1)+

MOV

012603

10016.,.ERR6

CSERHRD

MOV

B8R

MOV

012600

(EXIT

10016
O
ERR6
608
#HDWRD

646 022562 012601

647 022564

608

WORD
JWORD
WORD
BR
MOV

MoV

SEQ 008¢

228
26 R

(SP)+,(R3)+

208

(LP)+.R1

(SP)+.ag
(SP)+

snusui

99
ERRSWI , (SP)
PC
a(sP), (SP)
PC

SEXIT

‘WAIT FOR INTERRUPT

*GET RESULTS
;REPORT

;CLEAR FOR ERROR RETURN
:TEST IF REGISTERS WERE SAVED

‘N0
= SKIP
sst POINTER TO RESTORE REGS
ogu
aesvoa
*DEC
C

asexsrsu

LOOP UNTIL ALL ARE RESTORED

*REMOVE ENTRY FROM SUBROUT STACK
‘RESTORE REGS

;TEST IF ERROR RETURN

SYES -~ SKIP
*ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

733
73% 022612

016705

160234

:
POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
POSHWT: MOV
HDWRD1,RS
;START FOR POSITION HD BIT IN WD 1

736 022620
737 022624

016705
010146

160226
=

POSHSB: MOV
POSHDO: MOV

735 022616 000402

738 022626
739 022632

042705
012701

741 022640

005301

740 022636

742 022642
743 022644
744 022646

006205

001375

012601
000207

177677
000006

18:

B8R

POSHDO

‘SKIP

BIC
MOV

#*CHSSTAT,RS
#6.R1

CLEAR ALL BUT HEAD SEL BIT
SSET SHIFT COUNT

ASR

T.MP,RS
Ri,=-(SP)
RS

DEC

MOV
RTS

(SP)+,R1
PC

BNE

SSTART FOR POSITION HD BIT IN MP
:STORE R1

SSHIFT FOR RIGHT JUSTIFY
;RESTORE R1
*RETURN

CZRLIDO RLO1/702 DRIVE TEST 1 MACROC Vv04.00 4-AUG-82 10:30:59 PAGE 8-13
GLOBAL SUBROUTINES

SEQ 0087

745

763

748
749

750 022650

010346

752 022656
753 022660

005723
016663

755 022674
756 022700
757 022702
758 022704

010367
010046
010146
010446

751 022652

754 022666

;23 022706
761 022714

022714

762 022716
763 022722
764 022724
765 022732
766 022734
767 022736
768 022740

022740
022744
022746
022752
022754
022760
022762
022766

016703

162763

012767
104422

004767
023156
032767
001113
005301
001415

023012

777 023022
778 023030

779 023032

023050
023056
023056
023062
23094
023070
023072
023076

000002

160102

174154
000001

104422

004767
023156

160112

177756
78:

68:

174056
000001

012727
000000
016727
000C00
005367
001375
005367
001367

000372
157034
177772
177756

160014

:STORE R3

SUB

#4,SUBSTK(R3)

;ADJUST IT TO CALLING LOCATION

MOV

#2.ERRSWI

;SET FOR NO ERROR RETURN

BREAK

TRAP

MOV
ERRHRD

TRAP
.WORD
.WORD
.WORD
MOV

000030

R3,=(SP)

;GET SUBROUTINE INDEX

MOV
WORD
MOV
.WORD
DEC
BNE
DEC
BNE

177772

MOV

SSINDX,R3

JSR
108
BIT
BNE
DEC
BEQ
WAITUS

157144

032767
001040

MOV

MOV
MOV
MOV
MOV
58:

010404

104456
023444
000000
012600
012701

775 023014
776 023020

002404

160102

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

002404

000004

012703

022776
023000
023002
023004
;;g 023006
774 023012

000002

000001

000751

ROYWAIT:

160124

012727
000000
016727
000000
005367
001375
005367
001367

769 022770

770 022772
771 022776

:
.

BREAK

TRAP

JSR
108

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

R3,SSINDX
RO, ~(SP)
R1,=(SP)
R4, =(SP)

($BRK

:STORE 1T BACK

;ALLOW A °C

PC,GSTAT

;GET DRIVE STATUS

#DRDYMSK,T.CS
9
R1
78
1

;CHECK IF READY
:YES = SKIP
*DEC WAIT COUNT
SSKIP IF 0

#1,(PC)+
0
bSDLV,(PC)0
-6(PC)
b
=22(PC)
.~20
5%

#MDRDY ,R3
10020.,,ERR3

;SET NAME MESSAGE PTR
:REPORT READY ERROR

ERR3
#24. ,R1

;INITIALIZE WAIT COUNT

CSERHRD
10020

(S$BRK

:ALLOW A “C

PC,GSTAT

;GET DRIVE STATUS

BIT
BNE

#DRDYMSK,T.CS
8¢

;TEST IF DRIVE READY
:YES = SKIP

MOV
LWORD
MOV
.WORD
DEC
BNE
DEC
BNE

#250.,(PC)+
O
5SDLY.(PC)0

WAITMS

=6(PC)
i
=22(PC)
.=20

SWAIT 100 ms

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 8-14
GLOBAL SUBROUTINES
780
781
782
783

023100

023110
023112
023114
023120

0231%0
023122
0231264

104422

005301
001337
012704

104456

000410

023142
023144
023146
023150

104456
023446
000000
012766

788 023152
789 023156
790 023162
791 023170

792 023172

032767
001406

005367
005067
162767
012604

012600
012603

796 023204

001403

799 023214
38(1) 023220

017616
000207

797 023206
798 023212

100000

160002
157634
000002

157704

157612

005767

157612

066716
000207

157604

807 023222

010346

809 023230

005723

810 023232

811 023240

812 023246
813 023252
814 023254
815 023256
816 023262
817 023264
818 023270
819 023274
820 023276
821 023300
82% 023302

823 023306
824 023312

825 023320

826 023322
827 023324

016663

000002

010367
010046
010546
004767
023312
016703
012705
006%83
005305
001375
042703

157530

012605

012600
012603

#ANYERR,T.CS
10%
10022 . ERRG

DEC
CLR
SuB
MoV

ERRCNT
ERRSWI
#2,SSINDX
(SP)+,R4

TRAP
.WORD
WORD
.WORD

000004

(SP)+, I
(SP)+,R

sTEST IF ANY ERROR SET
;NO = SKIP
sREPORT ALL ERRORS

;DECREMENT FOR DOUBLE ERROR REPORT
;CLEAR FOR ERROR ERRCR RETURN
sREMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

sRESTORE R3

ERRSWI

sTEST IF ERROR RETURN

ADD
RTS

ERRSU! (SP)

sADD IN ERROR RETURN

99%

GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER

MOV

002404

SuB

4$:

658:

sSET ERROR RETURN ADDRESS

(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
NUMBER IN_CURCYL.
TST

002404

O(SP) (SP)
PC

;YES - SKIP

MOV

157462

(SP)+.R1

JEXIT

MOV
RTS

176656

177000
157572
000002

CSERHRD
10
O
ERR6

sDEC WAIT COUNT
;LOOP UNTIL TIME DONE
sSET CONDITION AFTER 5 SECDS

TST

GETPOS: MOV

157562
000007

ERRS
118

SEQ 0088

99s:

:
:

157552

010367
162767

BIT
BEQ
ERRHRD

.WORD
BR

BEQ

000000

016703

162763

CSERH D
10021
0

MoV

808 023224

118:
108:
9s:

($BRK

R1
$
#CSSEC,R
10021, ..ERRS

TRAP
.WORD
.WORD

MOV
MOV

804

805
806

8S$:

012601

793 023174
794 023176

795 023200

011434

023445
000000
012716

0231%8
784 0231

785 023132
786 023140
787 023142

TRAP

DEC
BNE
MOV
ERRHRD

R3,=(SP)

sSTORE REGISTERS

(R3)

:BUMP IT FOR NEXT ENTRY

SS&W!.IS

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

#4,SUBSTK(R3) ~ ;ADJUST IT TO CALLING LOCATION

MOV
MOV
MOV
JSR
65%
MoV
MOV
ASR
DEC
BNE
BIC

RS
4%
#177000,R3

MoV

(SP)+,RS

MoV
SuB
Mov
MoV

:GET SUBROUTINE INDEX

R3,SSINDX
RO,-(SP)
R3,=(SP)
PC,XRDHD

:STORE IT BACK

ugunoms
#7,R5

;GET HEADER WORD
sSET SHIFT COUNT
sSHIFT TO RIGHT JUSTIFY

R3,CURCYL
#2,SSINDX
(SP)+,R
(SP)+,R

;D0 READ HEADER

sSTORE AS CURRENT CYLINDER
sREMOVE ENTRY FROM SUBROUT STACK

;RESTORE REGISTERS

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG=82 10:30:59 PAGE 8-15

SEQ 0089

GLOBAL SUBROUTINES

828 023326

829 023332

005767

001403

157464

830 02333¢ 066716 157456
831 023340
832 023342
833 023346
834

000207
017616
000207

000000

ggz
867 023350
868 023352
869 023356

010346
016703
005723

,
157424

871 023366
872 023374

162763
010367

000004
157402

TST

SRRSUI

sTEST IF ERROR RETURN

ADD

ERRSWI, (SP)

*ADD IN ERROR RETURN

BEQ

870 023360 016663 000002 002404

99%:

RTS
MOV
RTS

?zA?BG%% HEADERS ROUTINE. 40 WEADERS ARE READ AND STORED

RDALHD: MOV
MOV
ST

MOV

R3,=(SP)
SSINDX,R3
(R3)+

JSET ERROR RETURN ADDRESS

;STORE REGISTERS
:GET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY

2(3P) SUBSTK (R3) " ; INSERT THIS CALL

SUB
MOV

#4,SUBSTK(R3) ~ ;ADJUST IT TO CALLING LOCATION
R3.SSINDX
*STORE IT BACK

876 023406 012767 000002 157402

MOV

onmw
#40.

MOV
MOV

ouoaio OPFLAG

*SET HEADER CGUNT

#1BUFF.R3
RLBAS, R4

#RLMP R4
#10,L.CS
RLDRV.L.CS

:SET POINTER TO STORE HDRS
:GET BASE ADDRESS

:MAKE IT POINT TO MP REG
:LOAD FOR READ HEADER, NO INTERRUPT
+INSERT DRIVE NUMBER

873 023400
874 023402
875 023404

010046
010146
010446

877 023414

012701

000050

879 023426
880 023432

012703
016704

003764
157370

002404

PC
a(SP), (SP)
PC

SYES = SKIP

MOV
MOV
MOV

MOV

878 023420 052767 100000 157356
881 02
882 023442
883 023450

062704
012767
056767

000006
000010
157356

885 023464
886 023470

005067
005067

157346
157344

888 023500
889 023502

001403
052767

884 023456

887 023474

042767

005767

002000

016762
016762
032762

157324
157314
000200

89 023534

004767

175722

897 023550
898 023554
899 023562

012700
032762
001016

077777
000200

895 023540
896 023542

001003

023656
016762

900 023564
901 023566
902 023570
903 023574

005300
001372
004767
004767

023602
02

104456
023451

023610
906 023612
907 023616
908 023620

012464
005067
000417
005767

904 02
905 023602

023606

012603

ADD
MOV
BIS

157364
157356

157266

157330

BEQ
BIS

3s
#HDSEL ,L

BNE

;YES = SKIP

L.CS,RLCS(R2)

;LOAD RLCS REG

JSR
JSR

RO
78
PC,READRL
PC.WAITIN

:DEC COUNT
*SKIP IF NOT YET 0
*ELSE GET ALL REGISTERS
SELSE WAIT FOR TIMEOUT

TRAP
.WORD

(CSERHRD
10025

000004
000002
000000

3$:

MOV
MOV
BIT
JSR

000000

6$:

000000

7$:

65%
MOV

MOV
BIT
BNE

DEC
BNE

173010
173036

MOV
ERRHRD

.WORD

157200
157220

:SET 40 HDR OP FLAG

BIC

CLR
CLR

8s:

.WORD
CLR
BR
ST

#81710,0.Cs

;SET FOR NO ERROR RETURN

157350

157412

890 023510
891 023516
892 023524
893 023532

BIS

RO.=(SP)
R1.=(SP)
Ré.=(SP)

L.aA
L.DA

DE SHD

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

STEST IF HEAD 0

SYES = SKIP
:ELSE INSERT HEAD 0

L.DA, RLDA(RZ)
*LOAD RLDA REG
L.BA.RLBA(R2)
:LOAD RLBA
#CRDYMSK,RLCS (R2)
:TEST IF CONTROLLER READY
PC,RDYCHK

*ELSE CHECK READY

#777%7.R0
SET COUNT FOR WAIT
#CRDYMSK,RLCS (R2) ; CHECK ruAr OPERATION COMPLETED
13
;YES = SKIP

(SP)+,R3
10025
., .ERR1

:GET RESULT MESSAGE POINTER

ERR1
ERRSWI
65%
1.CS

;CLEAR FOR ERROR RETURN
;TEST FOR ANY ERRORS

M7
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 8-16
GLOBAL SUBROUTINES

909 023624

910 8%36;:

IS
osrNNOoONS

000002

157116

;CLEAR FOR ERROR RETURN
;STORE HEADER WORDS

65%:

157110

000000

928 023714
929

RO RO RN N
R ST

CLR
BR
MoV
MOV

;DEC HEADER COUNT

—

D e

D md

OOV
NS NN -

12%:

157116

[
——

;NO = SKIP

BPL
ERRHRD
TRAP
.WORD
«WORD
.WORD

157154

SEQ 0090

010446
005767
001433
012704

000002

012746
012746
012746

010253
011753
000002

157056

99%:

PTOP:

99
ERRSWI, (SP)

sTEST IF ERROR RETURM
;YES = SKIP
;ADD IN ERROR RETURN

a(SP), (SP)

;SET ERROR RETURN ADDRESS

REPORT OPERATION R OUT INE . PRINTS SUBROUTINE TRACE SEQUENCE AND
OPERATION BEING PERFORME D PORTION OF ALL
ERROR MESSAGES.
R4 ,~(SP)
MOV
TST
SSINDX
:TEST SUBROUTINE INDEX 0
18
BEQ
:SKIP IF 0
#2,R4
MOV
:SET INDEXER TO FIRST ENTRY
PRINTB #FMT9, #SEQMES
:PRINT "‘SUBROUTINE CALL SEQ"

#SEQMES
, ~(SP)

#FEMT9,-(SP)

#2,-(SP)
SP

3s:

016446
012746

sREMOVE ENTRY FROM SUBROUT STACK

sRESTORE REGISTERS

#6,5P

#FMT16,SUBSTK
(R4)
,=(SP)
STK
(R4)
SUB

sPRINT CALLING LCCATION

#FEMT16,-(SP)

#2,-(SP)
SP,RO
CSPNTB
#6,SP

020467
003761

156770

012746
016746
012746
012746
010600

006365

156766

011556
000003

#2 R4
R4 ,SSINDX
1%:

#FMT4 ERHEAD

#TSTLAB,=(SP}
ERHEAD ,-(SP)
#FMTSL ,=-(SP)

#3,-(5P)
SP-RO

sBUMP INDEX
sCHECK IF ALL PRINTED

:LOOP IF NOT ALL PRINTED YET

#1STLAB

sPRINT ERROR HEADER

N_7

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 8-17
GLOBAL SUBROUTINES

016701

TRAP

156732

177741

e e
d
d
—

010000
000012

156706

020000
000014

156672

020000

156656

SERIRRRAC2SBRIXZ

e
D
e
e

22%:

156646

156574

156566
000020
000001

&~
N

007777

#SEE
! RORWOP,OPFL
KOP
AG
L.CS,R1

#177%41,R1
#6,R1

002224
011550
000002

062706
032767
0014175
012701

000006

104414

024262
024270
024272
024276

024316
1205 024322
1206 024324
1207 024332

01614¢
012746
012746
010600

100000

#SEEKOP,OPFLAG

;NO = SKIP

:ELSE SET SEEK FLAG

#12,R1

STEST IF WRITE

#RORWOP,OPFLAG

:SET RD OR WRT FLAG

22%

:NO = SKIP

208

#14,R1

‘NO = SKIP

:TEST IF READ

#RORWOP,OPFLAG
:SET RD OR WRT FLAG
#FMT1,#MOPER ,OPMSGS(R1) ;PRINT OPERATION

OPMSGS(R1) ,~(SP)

#10,SP
R1,#4
4%

sCHECK IF GET STATUS
:NO = SKIP

4s
316.R1

:NO - SKIP
;SET TO PRINT WITH RESET

#DRSET,L.DA

;TEST IF RESET INCLUDED

4%:

#COMPOP ,OPFLAG

;TEST IF ANY OTHER OPERATION

5%:

#BIT00,R4

sCHECK THE BIT

6$%:

8$
OPFLAG,R4
#20,R1

:NO - SKIP
sSET UP TO DETERMINE WHICH ONE
sPRESET THE POINTER
sIF SET = SKIP
;BUMP POINTER

5%
#FMT2,0PMSGS
(R1)
OPMSGS (R1) ,~(SP)

#EMT2,-(SP)

#2,-(SP)

SP.RO

156514

000050

8%:
9%:

002224

CSPNTB
#6,SP
#HDR40,OPFLAG
108
#50,R1

#FMT2,0PMSGS
(R1)

sTEST IF 40 HEADER OPERATION

:NO - SKIP
sELSE PRINT IT

OPMSGS (R1) ,=(SP)

#FMT2,~(SP)

011550
000002

#2,-(SP)

SP.RO
CSPNTB

200006

010000

:STRIP ALL BUT FUNCTION CODE

“:TEST IF SEEK OPERATION

(R1)+
R4

016146
012746
012746
010600

;CLEAR SK & RD Ok WRT FLAG

;GET COMMAND EXECUTED

SP,RO
CSPNTB

000016

o
N

b e

d e e

d e

b d e e

000010

d cd cd d e

d e

20%:

CMP
BNE
BIS
CMP

CSPNTB

#10,5P

#MOPER ,~(SP)
#EMT1,=(SP)
#3,-(SP)

P =

2%:

000010
000C04

d d

e wd

002224
005414
011534
000003

1201
1202
1203
1204

ADD
BIC
MoV
BIC

000006

e e

NNNNNNN

04%729

000010
030000
156756

SEQ 0091

#6,5P

156452

108:

15§

;SKIP

15$

:NO = SKIP

#SEEKOP,OPFLAG

JTEST 1 F SEEK

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES
1208 0243

TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 8-18

024334
024340
024344
024350
026354
024360
024
024370
024376
024400

016746
012746
016746
012746
016746
012746
016746
012746
012746
012746

024406
024410

104414
062706

1210 024422

001424

024424
024430
024434
0c4440
024444
024450

016746
012746
016746
012746
016746
012746

156464
010220
156452
010214
156434
010225

024460

012746

000007

024466

104414

0244064

1209

024414

1211 024424

010600

032767

#FMT13,#FRMWD,OLDCYL ,#DIFWD,DESDIF ,#SGNWD ,DESS
#HDWD
GN,
, DE SHD

156552
o1o§14
156540
o1o§or
156526
o1o§o1
156510
010232
011774
000011

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

DESHD,=(SP)
#HDWD
, = (SP)
DESSGN,
= (SP)
#SGNWD
.= (SP)
DESDIF
.= (SP)
#DIFWD,=(SP)
OLDCYL ,=(SP)
#FRMWD
.= (SP)
#FMT13.=(SP)
#11,-($P)

000024

TRAP
ADD

CSPNTB
#24,5P

BEQ

17%

020000

MOV
156362

158:

BIT

SEQ 0092

SP,RO

#RORWOP,OPFLAG

:TEST IF READ OR WRITE SET
‘NO - SKIP

PRINTB

#FMT22,#CYLWD,CURCYL
,#HDWD, DESHD , #SECWD, DESSEC

024454 012746 012323

MOV

#FMT22.=(SP)

024464

MOV

SP.RO

024470

1212 024476

010600

062706

004767

1213 024500 012604

1214 024502
1215
1216
1217
1218
1219
1220 024504
1221 024506
122§ 024510

1223

PRINTB

024512

1224 024516
1225 024520

010146
010346
010446

012701

012103

011146

024526
024532

012746
012746

012746

024536

010600

024542

oozrog

024540
1226 024543
1227 024552
1228 024554
1229
024560
1230
024564

1531 024566
1232 024572
1233 024574

000446

MOV

TRAP

178:

000207

024520

024522

000020

MOV
MOV
MOV
MOV
MOV
MOV

104414

021127

001453
012704
022127
001002

012704
005303
001442

#7,-(SP)
CSPNTB

ADD

#20,5P

MOV

(SP)+,Ré4

JSR

RTS

003062

DESSEC,=(SP)
#SECWD ,=(SP)
DESHD,
= (SP)
#HDWD
, = (SP)
CURCYL ,=(SP)
#CYLWD,~(SP)

PC,CLRPARM
PC

*RESTORE R4

:
REPORT REASON ROUTINE
:
PRINTS REASON PORTION FOR ALL ERROR REPORTS.
RPTRES: MOV
R1,~(SP)
;STORE R1
MOV
R3.-(SP)
*STORE R3
MOV
Ré . ~(SP)
*STORE R&

MOV

MOV
PRINTB

MOV

005423

011541
000003

#RESPARM, R1

(R1) ,=(§P)

MOV

#MRSLT,=(SP)

MOV

SP RO

MOV
MOV

TRAP

#ERT1.1,-(SP)
#3,-(SP)
CSPNTB

ADD

#10,5P

011760
011052

BEQ
MOV
CMP
BNE

6$
#FMT11,RG
(R1)+,#MCYLOC
3s

011057

CMP

3s:

MOV
DEC
BEQ

*GET START OF PARAM

(R1)+,R3
*GET NUMBER OF PARAM
#FMT1.1,#MRSLT, (R1)
sPRINT NAME

000010

011766

:CLEAR PARAM TABLE

(R15,#MNDRST

;TEST IF MESSAGE IS NO DRV STATUS

#FMT12,R4
R3
6%

*ELSE CHANGE TO FORMAT 12
:DEC_PARAM COUNT
SIF 0 = EXIT

*YES = SKIP REST OF REPORT
*PRESET FOR FORMAT 11
:CHECK IF REPORTING CYLINDER LOC
*NO = SKIP

1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 8-19

PRINTB

MOV
MOV

011300
000003

011304
000003

12
1237 024652

10 §p

MOV

(R1)+.=(SP)

MOV

6$:

b LY

NCY
NN
N

b
b
—

SENS—

gz22NS
SE8N
850
co0O—

#2.R

~
[N

;DEC PARAM COUNT

RPTREM:

:REPORT CONDITIOM

#FMTT,~(SP)

CSPNTB

#10,5P

MOV
MOV

(SP)+.R3S
(3P)+.R1

MOV

R15+

#RESES,
= (SP)

ADD

(SP)+,Ré4

sRESTORE REGS

sRETURN

REPORT PHYSICAL ADDRESS OF DEVICE UNDER TEST
AND ALL REGISTER CONTENTS.
PRINTB #FMTS5,#BASADD,RLBAS
,#DRVNAM, <B ,RLDRV+1>
CLR
-(SP)

BISB
MOV

RLDRV+1,(SP)
#DRVNAN.
- (SP)

MOV

#BASADD
, - (SP)

MOV

#5,~(5P)

MOV
MOV

MOV

RLBAS,~(SP)

#FMTS, - (SP)
SP,RO

TRAP
ADD

CSPNTB
#14,5P

PRINTB
MOV

#FMT6,#CSNAM,
#DANAM, #BANAM, #MPNAM, #CYLWD , #HDWD
#HDWD . = (SP)

MOV
MOV
MOV
MOV
MOV

#MPNAM,
- (SP)
#BANAM,
- (SP)
#DANAM
. = (SP)
#CSNAM,
= (SP)
#FAT6, = (SP)

MOV

e e o wh
b e

02
025010
025014

;REPORT SB VALUE

CSPNTB

REPORT RL11 REGISTERS

1249
1250 024754

b ek

024740
024744
024746
024750

(elelelelelelelel]

024734

(R1)+

ADD

TRAP

005046

R4, #RESE4,

#3.=(SP)
SP.RO

RTS

2
248 024712
024712
024714
024720
024724
024730

;REPORT IS VALUE

CSPNTB

MOV
MOV

MOV

b
—

MOV
MOV

(R1)+,=(SP)
#RESEL , = (SP)
R&,=(SP)

SUB

—t

(=1

#10,5P

SEQ 0093

BEQ
e%
“IF 0 = EXIT
PRINTB #FMT1,#RESES,(

1238 024654

024654
024656
024662
024666
024672
024674
024676
39 024702

ADD

TRAP

000010
000002

(R1)+,=(5P)
#RESES, - (sP)
R&,=(5P)

#3.=(SP)
SP RO

PRINTB

R4, #RESE3,(R1)+

MOV
MOV

TRAP

000010

&»

1235 0246%%

R
32822

1234 024576

gzocses
g85558
RNE SoBNENS
#:8558%

CZRLIDO RLO1/02 DRIVE TEST
GLOBAL SUBROUTINES

MOV
MOV

#CYLWD,=(SP)

#7,-(5P)
SP.RO

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 8-30 8

SEQ COS<

GLOBAL SUBROUTINES

025016

104414

TRAP

CSPNTB

gmo 062706 000020

ADD

oo?

025026
025030

016746
016746

156012
156002

MOV
MOV

L.MP,=(SP)
L.BA,=(SP)

025040

016746

155770

MOV

1251 025024
025034

025C44

016746

006144

012746

000006

012746

025060

010600

025062

156000

012746

025050

025054

104414

PRINTB

MOV

011721

#FMT8,#LAB1,L.CS,L.DA,L.BA,L.MP
L.DA,=(SP)
L.CS.=(SP)

MOV

#LABT,=(SP)

MOV

#6,-($P)

MOV
MOV

TRAP

#FMT8 .- (SP)
SP.RO

CSPNTB

025064

062706

000016

ADD

6 ;p

025070
025074
025100
025104
025110
025114
025120
025126
025130

016746
016746
016746
016746
016746
016746
012746
012746
012746

156016
156004
155746
155736
155734
155724
006157
011651
000010

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

DESHD,=(SP)
CURCYL ,=(SP)
T.MP,=(SP)
T.BA,=(SP)
T.DA,=(SP)
T.CS.=(SP)
#LAB2,~(SP)
#FMT7.=(SP)
#10,-(SP)

025140
1253 025144

062706
000207

000022

ADD
RTS

#22,5P
PC

1252 025070

025134
025136

1554
1255

}329

010600
104414

1258 025146

010546

1260 025154

012705

1262 025162

005305

1259 025150 012701
1261 025160

005021

1263 025164

001375

}ggg 025174

000207

1264 025166
1265 025172

1268 025176
1269
1270
1271

;5;%

1274
1275
1276

012701
012605

003062
000005

PRINTB

MOV
TRAP

#FMT7,#LAB2,7.CS,T.DA,T.BA,T.MP,CURCYL
,DESHD

SP, RO
CSPNTB

CLEAR PARAMETER
BLOCK FOR;STORE
REPORTING
RS,=(SP)
RS

CLRPARM: MOV

28:

MOV

#RESPARM,R1

CLR

(R1)+

MOV

:GET ADDRESS OF BLOCK
*SET COUNT

:CLEAR WORD

DEC

*DEC COUNT

MOV
MOV

#RESPARM,R1
(SP)+,RS

*RESET POINTER
*RESTORE RS

BNE

003062

#5,RS

RTS

:LOOP UNTIL 0

ENDMOD

LTITLE

CZRLIDO RLO1/02 DRIVE TEST 1

}5;;

;DISK STATE FUNCTIONS

1279

:BITS 0-2 OF THE MULTIPURPOSE REGISTER DURING GET STATUS COMMAND DEF INE THE

1282
1283

:
:

}ggg

*STATE OF THE DRIVE
STATE
STATE

0
1

LOAD STATE
SPIN UP

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 3-51 8

SEQ 0095

LR T TR PR

1284

STAIE
STATE
STATE
STATE
STATE

STATE

NOMWN
S wWNY

GLOBAL SUBROUTINES

BRUSH CYCLE
LOAD HEADS
SEEK
LOCK ON

UNLOAD HEADS

SPIN DOWN

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4~-AUG=-82 10:30:59 PAGE 9
GLOBAL SUBROUTINES

5 025176

2
7 025176

8
9

10 025176
11 025202
12 025206
13 025210
14 025212
15
16

005767
001124
005767
100121
012767

025220
025222
025226
025232

005046
156716
012746
014746

025242
025246

012746
012746

025236

012746

025252
025256

012746
012746

025264

104417

025262

HRDWTST

JSBTTL

TEST 1

156156

167116
006373

155572

2%:

PASNUM
658
MISWIW
65$
#MISTST ERHEAD

PRINTF

#FMTOP1 .OOPM,00§R1A.OBASADD.RLBAS.lDRVNM,(B,RLDRV*I)

010135
007540

MOV
MOV

#OPR1A,~(SP)
#OPR1,~(SP)

MOV

SP RO

MOV

011442
7

MOV
MOV
TRAP

:CHECK IF FIRST PASS
SEXIT IF NO
:CHECK IF MANUAL INTERVENTION
INO = EXIT TEST
:LOAD ERR HEADER
;PROMPT CHK DRV IS UNLDED, COVR OPN, AND
‘WRTE LCKED

#BASADD,
- (SP)

#EMTOP1, = (SP)
#7,-(SP)
CSPNTF

- 025266

062706

000020

ADD

#20,5P

19 025272
20 025276

005067

157066

025276

104443

CLR
GMANIL

OBUFF
:CLEAR FOR RESPONSE
OPRO02,0BUFF,1,ND

025302
025304
025306
025310
025312
21 025312
22 025316
23 025320

004364
000120
007470
000001

.WORD
.WORD
.WORD
JWORD

OBUFF
T$SCOD
OPROO
1

TST
BEQ
JSR

0BUFF
28
PC,TSTINT

;TEST RESPONSE YES
SYES = SKIP
SINITIALIZE TEST

7%
#MCOSTA,R3

SYES = SKIP
SSET NAME POINTER

27 025340
28 025342

29 025346
025346

025350
025352
025354
30 025356
31 025364
32 025366
33 025372

ST
BNE
ST
BPL
MOV

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

TRAP

005767
001735
004767

B8R
100008:

157046
171504

24 025326 004767 171516
25 025330 025454
26 025332 032767 000040 155512

T::
;TEST THAT UNLOAD, COVER OPEN AND WRITE PROTECT START
*IN THE PROPER STATE.

155605
006053
155570

025300 000404

,-...__._,,-

;TESTO1

CLR
BISB
MOV
MOV

SEQ 0096

BASIC INTERFACE (PART 1)

BGNTST

025176

17 025220

BGNMOD

001006
012703

1$:

000145
000000
012600
032767
001006
012703

000010
010575

155466

PC.GSTATR
‘GO GET STATUS WITH RESET
#COSTAT,T.MP ;CHECK IF COVER OPEN SET

ERRHRD
TRAP

101., ,ERR3
CSERHRD

BNE
MOV

104456

7$:

103303

JSR
BIT

658

010562

CSGMAN

.WORD
JWORD
.WORD
BIT
BNE
MOV
ERRHRD

101
O
ERR3
#BHSTAT,T.MP
98
OHSHSTA.R
102., ,ERR

;TEST IF BRUSHES HOME
TYES = SKIP
*SET POINTER FOR BRUSH HOME ERROR

CZRLIDO RLO1/02
*TEST

025372

DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-?

104456
000146

012600
032767
001006
012703

TRAP
LWORD
"WORD

020000

155442

9%:

010610

000147
012600
005767
001405
005003

155426

118:

025454

171374

158:

65%:

ERR3
#WLSTAT,T.MP
1%
#MULSTA,R3

103.,,ERR

CSERHRD

WORD
-WORD
TST
BEQ

0
ERR3
T.STAT
158

CLR
ERRHRD
TRAP
WORD
WORD
.WORD
JSR
658

;TEST IF WRITE LOCK SET
SYES = SKIP
:SET NAME POINTER

103

R3
104., ,ERR7
CSERHRD
104
O
ERR7
PC,GSTATR

;TEST IF STATE ZERO
‘YES - SKIP
*SET STATE EXPECTED

:DO DRIVE RESET

ENDTST

L10024:

104401

.SBTTL

51 025456
025456
52
53 025456
54 025462
55 025464
56 025470
gg 025472

cssnuao
10
O

TRAP

.WORD

104456
000150

013666
004767
025454

.WORD
BIT
BNE
MOV

ERRHRD

104456

42 025446
43 025452
44 025454
45 025454

SEC 0097

BASIC INTERFACE (PART 1)

TRAP

CSETST

*TEST 2

BASIC INTERFACE (PART 2)

BGNTST

005767
001077
005767

166636

012767

006373

100074

155676

155312

104417

062706

005067
104443

011442
000007
000020

156606

;SET ERROR HEADER
:PROMPT CLOSE COVER AND RESET WRITE LOCK.

#FMTOP1,#0PR2,#0PR1A,#BASADD
,RLBAS , #/DRVNAM, <B,RLDRV+1>

MOV
MOV

#DRVNAM,
= (SP)
RLBAS,~(SP)

MOV
MOV

#OPR1A,=(SP)
#OPR2, = (SP)

MOV

SP. RO

MOV

010135
007616

‘N0 - SKIP

PRINTF

006042

012746
012746
010600

#MISTST ERHEAD

CLR
BISB

006053
155310

012746
012746

MOV

155325

016746

012746

PASNUM
658
MISWIW

65%

;VERIFY THAT COVER OPEN AND WRITE PROTECT WORK.
sTEST IF PASS 0
‘NO - SKIP
sTEST IF MANUAL INTERVENTION

ST
BNE
ST

B8PL
2s:

005046
156716
012746

sTEST 2

MOV
MOV
TRAP

-(SP)
RLDRV#1,(SP)

#BASADD,
= (SP)
#FEMTOPY,=(SP)
#7,-(SP)
CSPNTF

ADD

#20,5P

GMANIL

OPR002,GBUFF,1,NO

CLR

TRAP

0BUF

CSGMAN

:CLEAR FOR RESPONSE

NYITLABHRE
S9S888 $988

1 MACRO V04,00 4-AUG-82 10:30:59 PAGE 9-2
(IR LIDO RLO1/702 DRIVE TEST
*TE ST 2
BASIC INTERFACE (PART 2)

000404
004
000120
007470
000001

005767
01740

156566

004767

171224
171236

000040

:
100008

BR
.WORD
.WORD
.WORD
.WORD

10000$
0BUFF
7$C0D

TST

0BUF F

sTEST IFf nsswouse YES

JSR

PC,TSTINT

;INITIALIZE TEST

#COSTAT,T.MP

TEST

oncosreégs

"SET

NAME nessAce POINTER

BEQ
1%:

SEQ 0096

155232

010562

0PROO

iNO
= SKIP

PC,GSTATR

Sseaufio

SGET STATUS WITH RESET
covea OPEN RESET

snnz
020000

155206

9%:

155470

CSETST

*TEST 3

TST

BNE

166430

1$:

2%:

155136

3s:
155101

:SET NAME MESSAGE POINTER

JYES - SKIP

202
0
ERR2

W
W

.SBTTL
BGNTST

025724
025726

AMULSTA,R3

202., ,ERR2
cseau&o

658:
ENDTST
L10025:

171120
171132

;TEST IF WRITC LOCK RESET

65%

010610

104401

MULSTAT,T.MP

18T
BMI
EXIT

TRAP
.WORD
JSR

HEAD LOADING

;TESTO3

PASNUM
1%
MISWIW

:SPIN UP THE DRIVE. VERIFY THAT THE DRIVE GOES FROM
SSTATE O TO STATE 5 PROPERLY.

GExiT
0026~
£1PC,TSTINT

;TEST IF PASS 0
:NO = SKIP
;TEST IF MANUAL INTERVENTION

:YES = SKIP

PC,GSTATR

sINITIALIZE TEST
*GET STATUS

BEQ

TST

T.STAT
4

;TEST IF STATE 0
SYES = SKIP

PRINTF

c:g;gp1.cuuxeaa,#OPR1A,#BASADD ,RLBAS
, #DRVNAM, <B,RLDRV+1>

JSR
7365%

CLR
8Is8

RLDRV+1, (SP)

*PRINT UNEXPECTED ERROR AND EXIT TEST

TEST
HEAD LOADI

RLO1/02 DRIVE

025732
0257
02574
025746
025752
025756
025762
025766
025770
025772
99 025776

012746
016746
012746

MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-;
NNOWN SN

«TEST

CZRLIDO

#DRVNAM,
= (SP)

RLBAS,=(SP)

#BASADD,
= (SP)
#OPR1A,~(SP)

#UNXERR,
= (SP)
#FMTOPT .= (SP)

#7,-(SP)
SP.RO

CSPNTF

#20,SP

CSETST

100
101 026000
102 026000

A H

OO NN 8O
~N
o 29
6064
ad

-t

-d

NN
o

154720
170760

e
—

: PROMPT OPERATOR TO 'PRESS LOAD'’

0:2;9P1.00PRS.00§R1A.08ASADD.RLBAS.’DRVNAH.(B.RLDRV*1>
RLDRV+1, (SP)

#DRVNAM,
= (SP)
RLBAS,=(SP)

= (SP)
#BASADD,
,
= (SP)
#OPR1A
#OPR3, = (SP)

#EMTOP1, = (SP)

gg.;gspi
CSPNTF

#20,SP
OsYLgP.OPFLAG
#1.R

;SET CYCLE UP FLAG
*SET EXPECTED STATE VALUE

#NSTACHG,ERHEAD :SET ERROR HEADER

#300. .R1

6$:

154750

026112
826114

*WAIT COUNT R1+TIMDLY= 30 SECONDS.

PC,GSTATC

*GET STATUS

T.STAT

sTEST IF STATE IS STILL 0

108

:NO = SKIP

1000.
6$

BUC NN

oocoooo

e
e e

[«

o
o
v
) e v

— b ol o o o e e

PRINTF
CLR
8I1SB
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MoV
TRAP
ADD

154724

(=]
O BB IR AR

026000
026002

26072

SEQ 0099

156114

7$:

OBUFF

;CLEAR FOR RESPONSE

OPR003,0BUFF ,1,NO

CSGMAN
10000$
O0BUF
T$COD

OPROO
156074

177426
154556

100008:

108:
11$%:

0BUFF
;1:

;TEST IF RESPONSE YES
*YES = REPORT

R3,T.STAT

;CHECK IF NOW STATE 1

13§

ERRHRD

301.,,ERR?7

.WORD

TRAP

SERHRD

:YES = SKIP

J
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4~AUG-82 10:30:59 PAGE 9-4
*TEST

SEQ 0100

HEAD LOADING

026310
026312

000000
013666

026314
026316

104432
002024

125 026314

WORD
-WORD

O
ERR?

TRAP
.WORD

cssxxr
L10026=,

EXIT

TST

126 026320

012701

000454

138:

MOV

#300. ,R1

;INITIALIZE WAIT COUNT FOR 30 SECONDS

128 026330
129 026334
130 026336

004767
030342
020367

170526

148:

JSR
73658
CMP

PC,GSTATC

(GET STATUS

132 026344

002002

127 026326

131 026342

133 026
134 026352

135 026354

136 026356
137 026502
138 026504

026504

026506
026510
026512

012703

001503
000167
005301

026540
026542
026544

000460
000000
012600

026546
e 026550

104432
001572

146 026552

012701

148 026702

005301

147 026556

001000

004000

154330

006430
010662

154260

151 026706
152 026712
153 026714

004767
030342
022767

000003

;gz 026724

000167

000422

157 026730

012767

006373

159 026742
160 026746
161 026754
162 026756

012703
032767
001006

010575
000010

003002

158 026736 0127064

163 026766

104456
000461
000000
012716

ERRHRD

TRAP

18%

303.,,ERR7

303
O
ERR7

BIT
BNE
MOV
MOV
ERRHRD

#SPDSTAT,T.MP
19
#SPDERR,ERHEAD
#MSPERR . R3
304.,,ERR3

.WORD
WORD
.WORD

304
O
ERR3

CSEXIT
L10026~.

208:

MOV

#5.R1

DEC

JSR
1365$
CMP

PC,GSTATC
#3,1.STAT

JMP

328

154136

BGT
22%:

MOV

1000.

;CHECK FOR STATE CHANGE

;TEST IF SPINDLE TIMEOUT
‘YES = SKIP
:SET ERROR HEADER
*SET NAME MESSAGE POINTER

;WAIT .5 SECONDS

;

218
;CHECK TO SEE IF STATE 3, IF YES GO TO STATE 3

22%

#MISTST,ERHEAD

;SET ERROR HEADER

#MBHSTA.R3
OgHSTAT.T.nP
23
305.,,ERRS

*SET NAME MESSAGE POINTER
STEST IF BRUSH HOME STILL SET
‘YES - SKIP

#STATE2. R4

TRAP
.WORD
WORD
.WORD

gsznuao
305
0
ERRS

EXIT

SSKIP IF 0

TST

MOV

MOV
BIT
BNE
ERRHRD

:GO TO STATE 3,
:DEC WAIT COUNT

Ssenuio

TRAP
.WORD

TimpLy

:YES
= GO TO STATE 2

CSERHRD

EXIT

170150

154076

SCHECK IF NO CHANGE CONTINUE WAIT

198:

21%:

154054

17$

1000.
148

BNE

011323

;CHECK IF STATE 2

208

TIMDLY
BR

BEQ

:SET EXPECTED STATE VALUE

R3,T.STAT

32¢
R1

TRAP

000005

#2,R3

JMP
DEC

.WORD
WORD
.WORD

104456

001324

026756
026760
026762
026764

17$:

188:

;gg 026704

154 026722

BGE

104456

000457
000000
013666

MOV

BEQ

000712

032767
001011
012767
012703

144 026546

154516

001453

139 026514
140 026522
141 026524
142 026532
143 026536

ogesse

000002

TST

*SET CONDITION
MESSAGE POINTER

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.
«TEST

HEAD LOADING

026766
026770

164 026772
165 026776
166 027002
167 027006
168 027012
169 027G14
170 027016
171 027020
172 027144
173 027146

104432
001352

012701
004767
030342
032767
001463
005301
001453

104456
000462
000000
012646

027156
027160

104432
001162

176 027166

004767

175 027162
177 027172
178 027174
179 027202
180 027204
181 027206
182 027210
183 027334
184 027336

027336

027340
027342

000010

238:
24$:
154040

000714

027146
027150
027152
0271564

174 027156

000062
170060

012701

030342
032767
001063
005301
001453

K
4-AUG-82 10:30:59 PAGE 9-5

268:

027346

027350

000454

167670

000010

30$:

1365$
BIT
BNE
DEC
BEQ
TIMDLY
BR
ERRHRD

153650

104456

189 027370
190 027372

030342
020367

188 027364

191 027376

192 027400

027400

004767
001406

000464
000000
013666

027410
027412

104432
000730

193 027410

006416
000003

153432

167472
153462

199 027440

032767

000020

153404

200 027446

030342
001006

;LOOP

CSERHRD
306
0
ERR4
TST

CSEXIT
L10026~.

#300. ,R1

;INITIALIZE WAIT COUNT FOR 30 SECONDS

cgusrut.r.np
328

sTEST IF BRUSH HOME SET AGAIN
:YES
= SKIP
*ELSE DEC WAIT COUNT
SSKIP IF 0

PC,GSTATC

sos
;3;

*GET STATUS

TM eaas

.WORD

L10026~.

cssx 1

MOV
MOV

ONSTACNG ERHEAD ;SET ERROR HEADER
#3,R3
*SET EXPECTED STATE VALUE

1365$
CMP

PC.GSTATC

*GET STATUS

R3,T.STAT

;CHECK IF STATE 3

368

308.,,ERR7

308
O
ERR7

TRAP
.WORD

CSEXIT
L10026~.

MOV
MOV
MOV
JSR

1365$

BIT

BNE

:YES = SKIP

CSERWRD

.WORD
WORD
.WORD

EXIT

36%:

;TEST IF BRUSH HOME RESET
SYES = SKIP
:DEC WAIT COUNT
‘SKIP IF ZERO

sans
TST

TRAP

153370

ogusrat,t.np
27%
R1
26%
1000.
gas
306.,.ERR&4

-WORD

ERRHRD

006373
011333
010621
167424

;SET WAIT COUNT FOR 5 SECONDS
SGET STATU

EXIT

BEQ

012767
012704
012703
004767

SEQ 0101

#50. ,R1
PC,GSTATC

§o§'"

JSR

194 027414
195 027422
196 027426
197 027432

198 027436

32§:

CSEXIT
L10026~.

TRAP

104456

027402
027404
027406

JSR

.WORD
-WORD

104432

012767
012703

TRAP
.WORD

MOV

000463
000000

186 027352
187 027360

TRAP
.MORD
WORD
.WORD

278:

288:

000714

000772

MOV
JSR
1365$
BIT
BEQ
DEC
BEQ
TIMDLY
BR
ERRHRD

EXIT

027344 012716

185 027346

TRAP
.WORD

TST

#MISTST,ERHEAD
#STATE3.RG
#MHOSTA . R3
PC,GSTATC

#HOSTAT,T.MP

38%

;SET
:SET
:SET
1GET

ERROR MEADER
CONDITION MESSAGE POINTER
NAME MESSAGE POINTER
STATUS

;TEST IF HEADS OUT SET

SYES = SKIP

CZ:%ID% RLO1/02 DRIVE TEST
1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 9-6

SEQ 0102

HEAD LOADING

201 027450

027450

ERRHRD

10445

027452
027454
027456
202 027460
027460
027462

00046
000000
012716

204 027470

012767

104432
60

TRAP

203 027464 012701

005670

205 027476

012703

000004

207 027506
208 027510

030342
020367

153344

210 027516
211 027520
212 027522

005301
001453

206 027502

209 027514

004767

001463

006416

153314

167354

438:

027650

104456

027652
027654
027656
215 027660
027660

000470
000000
013666

218 027674

004767

104432

216
85;662 05273? 000454
217 027670 012703 000005
219 027700
220 027702

030342
020367

222 027710
223 027712
224 027714

005301
001453

221 027706

001463

498

167162

50$:

153152

030042

000471

227 030052
030052
030054
228 030056
229 030064
230 030066

104432
000266
032767
001010
012703

030072

104456

030046
030050

231 030072
030074

030076
030100
232 030102
030102
030106
233 030106

528:

1365$
CMP

001000

152766

53%:

010551

040000

152730

S4$:

R3,T.STAT

;CHECK IF STATE 4

R1
478
1

‘DEC WAIT COUNT
SSKIP IF 0

49%

§s RHRD

:YES = SKIP

312.,.ERR7

MORD
WORD
.WORD
EXIT
TRAP

31
O
ERR7
TST
CSEXIT

JSR

PC.GSTATC

i33“°
5'88263i
MOV
og RS

SET WAIT COUNT FOR 30 MS
*SET EXPECTED STATE VALUE

13658
CMP

R3,T.STAT

;CHECK IF STATE §

R1
528
1

:DEC WAIT COUNT
*ELSE SKIP

B8R

ERRMRD

53$

*GET STATUS

:YES = SKIP

gos

313.,.ERR7

TRAP

gsgnui

JWORD
.WORD

O
ERR7

EXIT
TRAP
.WORD
BIT
BNE
MOV

TST
CSEXIT
L10026-.
#VCSTAT,T.MP
548
#MVOLCK ,R3

TRAP

CSERHRD

JWORD
.WORD
EXIT
TRAP
.WORD
BIT

0
ERRS
TST
CSEXIT
L10026-.
#DRVERR.T.CS

.WORD

000000
012716

iGET STATUS

TRAP

ERRHRD

000466

SET EXPECTED STATE VALUE

PC.GSTATC

438

ERRHRD

:SET WAIT COUNT FOR 300 MS

ausrAcuc ERHEAD ;SET ERROR HEADER

B8R

LWORD

000000
013666

104432
000276
032767

#4,R3

JSR

DEC
BEQ
TIMDLY

104456

030044

MOV

BEQ

225 030040 000715
226 030042

#3000. ,

MOV

DEC
BEQ
TIMDLY

478:

309
O
ERRS
TST
CSEXIT
L10026-

MOV

BEQ

213 027646 000715

214 027650

388:

.WORD
WORD
-WORD
EXIT
TRAP
.WORD

309.,,ERRS

gssnufio

310.,,ERRS

;VOLUMECHECK SHOULD BE SET FOR
SSTATE 5, IF NOT GIVE ERROR.
:SET NAME MESSAGE POINTER

310

;TEST IF DRIVE ERROR SET

b —d
b D D b —2

2888
ooooaooo
B
8888838 8888 W
o 888885
WWW
=
n»—-ni:
onNo
RERSERE RRER RN~

WO
ownes

RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-7
HEAD LOADING

b
b
-

(=1}

N
W

b o

(od=lelelele]=]

PPN
WWW

237

NN non n
S oS »
NN VY] N

mX
wrr

L Xl

249 030324
250 030330

001010
012703

BNE

010526

MOV

ERRHRD

10445

TRAP

00047
000000
012716
104432

000206
012701
004767
030342
032767
001071
005301
001453

000714
012767
012704
012703

000120

57%:
56%:

166714

000001

152666

006373
011343
010404

152472

58%:

1365%

BIT
BNE
DEC
BEQ
TIMDLY
BR

104401

.SBTTL
BGNTST

005767
001003
005767
100403

31
0
ERRS
ST

CSEXIT

L10026~.

#80. ,R1

;SET WAIT FOR 8 MS

#DRDYMSK,T.CS

;CHECK IF DRIVE READY

PC,GSTATC

172%
R1
gss

56$

.WORD
-WORD
. WORD
BR

SEXIT TEST

TRAP

CSETST

«TEST &

s TESTO4

PASNUM

163750

TST

MISWIW
TST4
ST

BMI
EXIT

TRAP
.WORD

:SET CONDITION MESSAGE POINTER
:SET NAME MESZAGE POINTER

HEAD UNLOADING

TST

8%:

‘YES = SKIP
:DEC COUNT
SSKIP IF 0

316, ,ERRS
CSERNRD
316
0
ERRS
172%

#STATES.RG
#MDRDY ,R3

153010

104432
001146

‘GET STATUS

;SET ERROR HEADER

TRAP

T365%:
ENDTST
L10026:

315., ,ERRS
csgauio

JYES = SKIP
:SET NAME MESSAGE POINTER

#MISTST,ERHEAD

MOV
MoV
MoV

ERRHRD

172%:

259 030344
030344
260
261
262 030344
263 030350
264 030352
265 030356
266 030360
030360
030362
7
26
268 830364

.WORD
.WORD
.WORD
EXIT
TRAP
. WORD
Mov
JSR

57%
#MDRERR,R3

SEQ 0103

;SPIN DOWN AND UNLOAD HEADS. VERIFY THAT THE DRIVE
:GOES FROM STATE S5 TO STATE 7 PROPERLY.

;TEST IF FIRST PASS

*NO - SKIP

TEST IF MANUAL INTERVENTION
YES - SKIP

CSEXIT
L10027~.

BGNSUB

104402

012767
004767
004767
031420
032767

006416

166430
166442

000001

152416

152430

TST4:

TRAP
MoV

JSR
JSR
T465%
BIT

i6d.1:

C$SBSUB

#NSTACHG,ERHEAD ;SET ERROR HEADER

PC,TSTINT

SINITIALIZE TEST

PC.GSTATR

SGET STATUS

HDBDYMSK, T.CS

sCHECK IF DRIVE READY

CZE%IDO RLO1/02 DRIVE TEST
1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-8

SEQ 0104

HEAD UNLOADING

276 030414
275
276 030416
030416
030420

001040

005046
156716

1%:

012746
016746
012746
012746
012746
012746
012746
010600

0
1
0

062706
005067

000020
153670

104417

BNE

PRINTF
CLR

0;2T?P1.#OPRG, #OPR1A, #BASADD ,RLBAS,/DRVNAM, <B ,RLDRV+1>

MoV
MoV
MOV
MOV
MoV
MoV

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

279 030510
280 030514
281
282 030516
283
284 030524
030524

#OPR6, = (SP)
#EMTOP1, = (SP)
#7,=(SP)

SP.RO

285
286 030576

287 030602

005767
001740

153650

052767

000010

156716

012746
016746
012746
012746
012746
012746
012746
010600
104417
062706

012703

288 030606
289 030612

290 030616

#20. 5P
OBUF F
:CLEAR FOR RESPONSE
OPRO02,0BUFF ,1,NO

298 030644
299 030646

100008$:

152260

BIS

#ULOAD ,OPFLAG

4%:

PRINTF
CLR
BISB
MOV

';g;?P1.#OPR3,#0PR1A, #BASADD ,RLBAS,#DRVNAM, <B,RLDRV+1>

;SET UNLOAD OPERATION
:PROMPT PRESS LOAD

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

, = (SP)
#BASADD
#OPR1A,-(SP)

#OPR3, - (SP)
OFHTOP1 -(SP)

7.-(sP)
sv‘RO
CSPNTF

000020

#20,5P

000006
000144
001274
166244

#6,R3

;SET EXPECTED STATE VALUE

#700. .R1

*SET WAIT COUNT FOR 30 SECONDS

#100. R4
5%:

000144

*SET SECOND LEVEL COUNT

PC,GSTATC

R3,T.STAT

11§

152224

8%:

704

:NO - SKIP

3s:

152301

000005

s TST RESPONSE YES

152234

293 030626
294 030634
295 030636

CSPNTE

000404
004364
000120
007470
000001

005046

:PROMPT PRESS LD AND WAIT FOR RDY

RLDRV+1, (SP)

BIsB

104443

;YES = SKIP

Mov

#5,7.5TAT
9%
R4
6%
R1

#100.,R4

‘GET STATUS

;WATCH FOR STATE CHANGE FROM 5 TO 6

IYES = SKIP
-

TEST IF STATE S.
NO - REPORT WRONG STATE
;DEC 2ND LEVEL COUNT
+SKIP IF NOT 0
;ELSE DEC

1ST LEVEL COUNT

sIF 0 = SKIP_TO QUESTION
;ELSE RESET 2ND LEVEL

MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-3

CZRLIDO RLO1/02 DRIVE TEST
1
*TEST
HEAD UNLOADING

6%:

381 030976 000705
005067 153360
308
004364

OBUFF

: CLEAR FOR RESPONSE

O0BUFF

T$C0D

OPROO
1

10001$:

153340

OBUFF
4
401., ,ERR7

9%:

CSERHRD

;TEST IF RESPONSE YES
iNO = SKIP

:ELSE REPORT STATE CHANGE WRONG

b —- —
b bb

401
0
ERR7
SUB
CSEXIT
000007
005670

118:

D e

166004

#3000. ,R1

12%:

PC.GSTATC

R3,T.STAT

18§

151774

168
1

128

16%:

402..‘EII7

sSET EXPECTED STATE VALUE
:SET COUNT FOR 300MS
sGET STATUS
sCHECK IF STATE 7
;YES - SKIP
sDEC WAIT COUNT
sTIME OUT GIVE ERROR MESSAGE

sREPORT WRONG STATE CHANGE

i wd

0
ERR7

suB
CSEXIT

L;OO

18$:

013560

208:

165614

151604

o
e

#6000. .R1

14658
TST
BEQ

PC,GSTATC
T.STAT

24$
31

190.
BR
ERRHRD 403.. ERR7
RH
TRAP

TIMDLY

W W

22%:

e e
ok e o

NN NN

SWAIT 190 uS

3
13381
:

i =lelelelel=le] (=]

OPROO3,0BUFF,1,ND

= leTe] =1=] OOO0O 0O

8
b e e e e

d ek

ONOWVSWN—=O

w
W

LKRS
Rwv‘
NS
e

NN
WWNW

TIMDLY

104443
000404

§3%

(=l=lelele]
53833
W WW
°°°°°°°°°°°8 0000
WNWW 5553353352
WWWWWW
uu\_agu gguwuuwwwwuw
bl e o e e i e s wed
&8 B NONNNNNNNNNNN
N
TLeszee
ARN'_\.JO
gOOO 33538 NN
b el d b
COONMNOO SREFFBEREWRIEEY "o SSan SBEEFRET
ST
N S88 FREERR [=1=T.
¥ N ST

300 030652

SEQ 0105

.WORD

012767

000002

151370

24$%:

T465$:

.WORD

0
ERR7

MoV

#2 ,ERRSWI

sSET EXPECTED STATE VALUE
sSET WAIT COUNT FOR 60 SECONDS
sGET STATUS

sCHECK IF STATE 0
;YES - SKIP

sDEC WAIT COUNT

sSKIP IF 0

sREPORT WRONG STATE CHANGE

sINIT ERROR SWITCH

¢
CZRLIDO RLO1/702 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-10
*TEST 4

SEQ@ 0106

HEAD UNLOADING

334 031426
104403

= (SP)
#BASADD,

—
=D
OO

#DRVNAM
. = (SP)
RLBAS,=(SP)

#OPR1A,
= (SP)
6
, = (SP)
#OPR

#EMTOP1,=(SP)

e
CSPNTF

337
338 031502
339 031506

N
o

- ON b

: dgmgm

RLDRV+1, (SP)

Y NIV
IV 1N )

=3 =-t
w
22
W §V|N
purd

156716

012746
016746
012746
012746
012746
012746
012746

#20,SP

152656

OBUFF

P8coo
e
?PR

OOZ

152636

&»

Snis
NIREFRKS £

D —d o
) =D el
) o
) o

PORY
= =
nNO SO

) ol
— ol el ol

NN NN W NN N NN N NN NWWIN NN

=) —d w—d

104401

;CLEAR FOR RESPONSE

OPR0O02 ,0BUFF,1,NO
CSGMAN
100008

0315

W
v

:PROMPT PRESS LD AND WAIT FOR RDY

o;g;gp1,oopao,oofia1n,asASAoo.aLaAs.convuAn.<a,nLDRVo1>

005046

CSESUB

gOUFF
6%

sTEST IF RESPONSE YES
sNO - SKIP

CSETST

DRIVE SELECT

sTESTOS

151256

#2 ,ERRSWI

sSET FOR NO ERROR RETURN

EXTO

:NO - SKIP

PAS

162552

#DRSELT MISWIW
1%:

EXTOS

TS::

sTEST IF FIRST PASS

sTEST IF SELECT TESTS
2 NO = SKI P

l;g;??l,lOPR?.lOfiR!A.lBASADD.RLBAS.lDRVNAH.<8.RLDRv01>
RLDRV+1, (SP)
- (SP)
#DRVNAM,
RLBAS,~(SP)

#OPR1A,
= (SP)

#OPR7,~(SP)

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

CSPNTF

CZRLIDO RLO1/02 DRIVE TEST
1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-11

«TEST S

062706

00€220

005067

152530

#20,5P

;REQUEST ''REMOVE ADD PLGS EXCPT **
OBUFF
:CLEAR FOR RESPCNSE
OPR002,0BUFF,1,ND
C$88 N
10000$
0BUF
T$COD

104443

0004

oon§°

OPROO

100008
:

151126

—

005767

O0BUFF

1%
#TOSERR,ERHEAD

3s:

151212

INO = SKIP
-SET ERROR HEADER MESSAGE

SINITIALIZE TEST

RLDRV, TEMPO
RLDRV.R1
04 Ré

; STORE ORXGINAL DRIVE NUMBER
SPUT IT IN
R
*SET COUNT ron NUMBER OF PLUGS

:DO SELECT AND GET STATUS

#4060, R1
02006 R1

:BUMP TO NEXT DRIVE
*CHECK IF TO LARGE

*ELSE CLEAR TO DRIVE 0

010167

151076

012746
012746
005046

010151
010141

00;“18.-(5’)

151061

RLDRV+1, (SP)

156716
012746

;TEST RESPONSE YES

PC,TSTINT

PC.GSTATC

374

SEQ 0107

DRIVE SELECT

k1,RLDRV

INO = SKIP

*PUT IT BACK IN RLDRV

#FATOP3, 00PR8.<B RLDRV+1> ,#0PR1B,#UNDTST
#UNDTST,~(SP)

7747
OO
011513

000014
152362

OBUF F

s INSERT PLUG REQUEST
:CLEAR FOR RESPONSE

OPR0O02 ,0BUFF,1,NO

10001

OBUFF

T$CODE
?PROOZ

10001$:

152342

OBUFF
5%

BGNSUB
TRAP

165030

000002

150754

60%

Mov

($BSUB

;TEST RESPONSE YES
INO
= SKIP
15.1:

PC,GSTATC

sGET STATUS = REPORT ANY ERROR

#2 ,ERRSWI

JINIT ERROR SWITCH

E.9

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-12
+TEST §

DRIVE

032042

385 032044

386 032046
387 032050
388 032056
389 032056

032823
032

032066

032072
032076
032100

032102

390 032106

391 032112
032112
032114
032116
032120
032122
032124
032126
392 032126

393 032132

294 032134
395 032134
032134

396

032134

104403

TRAP

005304

001322
016767

151042

012746
015746

007766
007747

012746
010600
104417

000003

012746

062706

005067

150754

001751

100008:

152232

EXTOS:
ENDTST
L10031:

.SBITL

400 835332

405 032154
0321564
406
40

032156

032160
032163

408 032172

BGNTST

001002
104432
001230

012767
004767

410 032264

101517

41 oggzoo
41% 032210

005203
020367

414 032216
415 032220

005003

413

032214

101401

032220
035222

010300
104442

417 osg50

103370
010004

416 03 224

418 032230

151216

000004

021467

162154
18:

006464
164636

016703 151164

409 ogne 026727

#FMT4,#0PR8,#0PRY

MOV
MOV

ADD

152252

404 032152

PRINTF

BNE
MOV

000010

104401

005767
001004
032767

Ré&

MOV

399

401 032136
402 032142
403 032144

15048
($:

150624

68:

147610 000001

147576

2s:

150572

LPTOS
TEMPO,RLDRYV

;DEC COUNT

;LO0P IF NOT ZERO
JELSE RESTORE RLDRV

OOPR9 -(SP)
OOPRB =(SP)
#FEMTL. =(SP)

MOV
MOV
TRAP

#3,-(5P)
SP.RO
CSPNTF

CLR

#10,5P

GMANIL
TRAP
BR
.WORD
.WORD
.WORD
JWORD

0BUF F

OPR002,0BUFF,1,ND
CSGMAN
10000
OBUFF
TSCODE
OPR002
1

;CLEAR FOR RE“SONSE

OBUFF

:TEST IF RESPONSE YES

TRAP

CSETST

BEQ

111

+TEST 6

iNO - SKIP

DRIVE SELECT ERROR TEST
:TEST06

ST
BNE
BIT

PASNUM
1$
#DRSELT,MISWIW

;CHECK IF FIRST PASS
:NO
= SKIP
:CHECK IF TEST DRIVE SELECT

EXIT
TRAP

TST
‘58&

BNE

.WORD

L10033-.

*YES = SKIP

MOV
JSR

OGSTER1.ERHEAD
STINT

:SET ERROR HEADER
sINITIALIZE TEST

CMP

Lsuun n

:TEST IF MORE THAN1 !INIT

INC
cMP

“§
R3,LSUNIT

:BUMP PARAMETER SET NUMBER
JCHECK IF PAST VALID PARAMETER TABLE

CLR
GPHARD

R3
R3,RO

MOV

BLOS
BLOS

3s:

(SESUB

DEC

011556

104443
000404
004364
000120
007470
000001
005767

SEQ 0108

SELECT

MOV
TRAP

Psétuu R3
5%
38

R3,R0
CSGPHRD

BNCOMPLETE
BCC
28
MOV
RO, R4

CMP

+GET PARAM SET nunaea

*NO
- SKIP
‘NO
= SKIP

*ELSE CLEAR TO POINT TO ENTRY 0

(R4) ,RLBAS

;SKIP IF NOT AVAILABLE
:PUT POINTER INTO R4

:CHECK IF SAME CONTROLLER

F_9
RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 9-13
6
DRIVE SELECT ERROR TEST

—

m>D
wrr

)

419 032234
430 032236
421 032242
422 032250
423 032256
42 03206¢
45 032072
426 032
437 0324g4
428 032430
429
032432
430

032440

431 032442
432 032444

001364
005067
012767
056467
012767
016762
016762
005767
001
032767
001415
000661

032444
032450
032454
032460
032462
032464

012746
012746
012746
010600
104417
062706

43 03247

016467

433 032470
436 032502
437 032506
438 032512
439 032516
440 032522
441 032526
442 032530
443 032532
444 032536
445 032540
446 032542

447 032546
449 032552

032552
032554
032560
032564
032566
032572
032576
032602
032606
032610
032612

450 032616
451 032622

032622
032624
032626
032630
032632
32634
032636

000167
016700
016705
042700
(42705
020527
00100
005005
062705
020500
001770
052705

010562
005046
156716
012146
005046
156716
012746
012746
012746
010600
104417

062706

005067

104443
000404
00436
000120
007470
000001

150344
000104
000010

000013
150550
150536

BNE
CLR
MOV
BIS
MOV
MOV
MOV
TIMDLY
1ST
BEQ
BIT

150564
150556
150854
000004
000000

150356
100000

150404

5$:

010003
011753
000002
000006
000712
000010

BEQ

150416

BR
PRINTF

MOV
MOV
MOV
MOV
TRAP
ADD
JMP

DONE

#GTSTAT,L.CS

SEQ@ 0109

:NO = SKIP

*CLEAR DONE FLAG

:LOAD GET STATUS

10(R4) ,L.CS
*INSERT DRIVE
#GETSTATIDRSET,L.DA
;SET UP TO CLEAR DRIVE

L.DA.RLDA(RS)

:LOAD DA’ REG

%.CS.RLCS(R )

:LOAD

INO = SKIP

0.
DONE

#ANYERR,T.CS

#FMTO #OPR10

#0PR10,=(SP)

‘WAIT
STEST

CS REG

3°MsS
“IF INTERRUPT

:TEST IF ANY ERROR SET

INO = GO TEST

*ELSE CHECK NEXT DRIVE

:REPORT CAN'T FIND 2ND DRIVE

#FMTY,
= (SP)

#2,=(SP)
SP.RO

CSANTF

#6,SP

LCLEXT
10(R4),TEMP1

;STORE NEW ADCRESS

RLDRV, RO
TEMP1 RS

:GET DRIVE UNDER TEST
:GET NEW ADDRESS

RS, #1400
218

;TEST IF DRIVE NUMBER 3
:NO = SKIP

78:

MOV

98:

MOV
MOV
BIC
BIC
CMP
BNE
CLR
ADD
CMP
BEQ
BIS

#CRDYMSK , RS

PRINTF

l:g;??Z.lOPl8.<B.RLDRVOI>,OOPR18.<B.TEHP101>

150324
150406
002000
002000
001400

208:

000400

218:

000200

000000

MOV

CLR
BISB
MOV
CLR
BISB
MOV
MOV
MOV
MOV
TRAP
ADD

150341
010141
150241
007747
011471
000005

000014

151542

100008:

CLR
GMANIL
TRAP
BR
-WORD
-WORD
-WORD
-WORD

: 883’:2

:ASK FOR PLUG CHANGE

:CLEAR FOR ADDRESS 0 TO 3

:ELSE SET TO DRIVE NUMBER 0

RS, RO
208

:THIS EQUAL TO NEW ADDRESS?
‘YES = SKIP

RS,RLCS(R2)

:AND LOAD €S REG

#400,RS

*BUMP TO MEXT ADDRESS

*ELSE SET CONTROLLER READY BIT

*PROMPT INSRT ADR PLG AN DRV

RLDRV+1, (SP)
#OPRS, - (SP)

#FMTOP2,~(SP)

CSPNTF

#14,SP

0BUF F

:CLEAR FOR RESPONSE

OPR002,0BUFF ,1,ND
CSGMAN
10000%
OBUFF
T$CODE

?PROOZ

CZRLIDO RLO1/02 DRIVE TEST 1 MAC RO v04.00 4~AUG-82 10:30:59 PAGE 9-14
«TEST 6
DRIVE SELECT ERROR TEST
452
453

032636
032642

454 032644

455 032650

005767
001717

012704

032650
032650

104402

032660

016762

456 032652 016767
457

458 032666
459 033012

460 033020
461
46

052767

012767

153322

000012

150154

BGNSUB

150154

150150

000000

000104

150014

000013

88$:

150012

ST
BEQ

ggun

MOV

#10. R4

TRAP

(SBSUB

SEQ@ 0110
;TEST IF RESPONSE YES
INO = SKIP

*SET COUNT

16.1:

MOV

RLDRV,L.CS

;SET UP TO SELECT MULTIPLE DRIVES

TiMoLy
BIS

100,
#GTSTAT,L.CS

;SET GET STATUS

MOV
MOV

L.CS,RLCSR(R2)

:DO IT

#GETSTATDRSET,L.DA

22‘

;SET RESCT BIT 3 IN THE DA REG FOR THE
:/DRIVE TO CLEAR ITS ERROR REGISTER
;/BEFORE SENDING A STATUS WORD TO TnE

;/MP REG DURING GET STATUS COMMAND

465 033026 016762

150006 000004

MOV

L.DA,RLDA(R2)

467 033040 016762

147770 000000

MOV

L.CS,RLCSR(R2)

466 033036

005067

468 033046

147746

CLR

WAITUS

DONE
1

033046 012727 000001

MOV

#1,(PC)+

033054 016727

MOV

LSDLY, (PC)+

033052

000000

033060
033062

000000
005367

177772

033070

005367

177756

469 ogwg
470 033102

005767
001012

147704

472 033110
473 033112

012603
001406

033066 001375

033074 001367

471 033104

474 033114

033114
033116
033120
033122

475 033124

004767

LWORD

147036

LWORD
DEC

BNE

476 0331

477 033256

004767

479 033266
480 033270

001010
012703

478 033260

481 033274
033274

032767

164722

000400

128:
147564

033276 001132

033300
033302
482 ossg&

000000
012600

484 033314
485 033316

005304
001402

ogs
104432
0 sgoe 000C24
483 ogs 10 010562 000000
486 033320

000167

;CHECK IF INTERRUPTED
‘YES = SKIP

MOV
BEQ

(SP)+,R3
25:

*GET ERROR POINTER
iSKIP IF 0

177326

PC,WAITIN

601, ,GSTER1,ERR1

EXIT

SUB

csgw
51
-

JSR

PC,GDRSTA

BNE
MOV

16$
#MDSERR u;

.WORD

802

TimpLy

20.

;WAIT FOR DSE TO SET

#DSESTAT,T.MP

:TEST IF DRIVE SELECT ERROR SET

602.,,ERR
CSERHRD

$GET STATUS

SYES = SKIP
:SET NAME MESSAGE POINTER

ERR3
SUB

TRAP
LWORD
MOV

cssw
L10034~-.
RS,RLCS(R2)

JMP

DEC
BEQ

*WAIT FOR TIMEOUT

CSERHRD
601
GSTER1
ERR1

TRAP
.WORD

-WORD
.WORD
EXIT

168:

=20

ERRHRD

ERRHRD
TRAP

104456

o=b

BONE
12$

BIT

010632

O
-6(PC)

ST
BNE

TRAP
.WORD
.WORD
.WORD

033124 104432
°”'§3 0002

<22(PC)

JSR

104456
001131
006464
012464

‘WAIT FOR INTERRUPT

DEC

BNE

163526

;DO GET STATUS

R4
608

;LOAD IN DIFFERENT ADDRESS
*DEC COUNT
SLOOP IF NOT ZERO

H 9
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-15
*TEST 6

DRIVE

487 osgsga
488 033332

012767

033332
osssgz

104403

osgssa

012746

489 0333

033340

033344

012746

ossgso
033352
0333546

010600
104417
062706

033364
033366
033370
033372
033374
033376

104443
000404
004364
000120
007470
000001

492 033400
493 0334064
494 033406
495 033406

005767
001753

490 033360
491 033364

033400

496
497
498
499

033406
033406

S00 033410
033410
501 033410
502 033414
503 033416
504 033422
505 033424

033424
033426
506 033430
507 033436
508 033442

005067

147464

608:
ENDSUB

MOV

15%:

PRINTF

L10034:

010051

011753

104432
000652
012767
004767
004767
034300
032767
001432

514 033604
515

052767

033612
033614
033620
osscga
033630
033634
033640

005046
156716
012746
016746
012746
012746
012746

151000

100008:

150760

LCLEXT:
ENDTST

L10033:

147354

163254

000001

147242

000010

147172

_#0PR11

#OPR11,-(SP)

;REQUEST PLUG CHANGE

#FMTY, = (SP)

CLR
GMANIL

0BUF F
:CLEAR FOR RESPONSE
OPR002,0BUFF,1,NO

SP,RO
CSPNTF
#6,SP

TRAP
BR
.WORD
.WORD
-WORD
JWORD

CSGMAN
10000$
OBUFF
TSCODE
OPR002
1

ST
BEQ

OBUFF
158

TRAP

CSETST

1$:

ST
BNE
ST
BMI
EXIT

3$:

csssge

#FMT9

;INIT ERROR SWITCH

#2,-(5P)

+TEST 7

160704

#2,ERRSWI

MOV

LSBTTL

147744

147213
006053
147176
006042
010135
007651

MOV

MOV
TRAP
ADD

000006

006515
163366

TRAP

MOV

000002

BGNTST

509 033566
510 033572
511 033574
g}g 033602

516 033612

000002

104401

005767
001003
005767
100402

SEQ 0111

SELECT ERROR TEST

TRAP
.WORD
MOV
JSR
TIMDLY

;TEST IF RESPONSE YES
iNO = SKIP

INITIAL STATE

;TEST 07
PASNUM
1$
MISwIv
3$
TST

T7::
;CHECK IF FIRST PASS
:NO = EXIT TEST
:CHECK IF MANUAL INTERVENTION
:PERFORM TEST IF MANUAL INTERVENTION

JSR
100$
BIT
BEQ

CSEXIT
L10035-.
#INITST,ERHEAD
PC,TSTINT
10.
PC.GSTATR

;SET ERROR HEADER
;INITIALIZE TEST
SWAIT 1 MS
:GET STATUS WITH RESET

#DRDYMSK,T.CS
208

;CHECK IF DRIVE IS READY
:BRANCH IF DRIVE IS NOT READY

BIS

#ULOAD ,OPFLAG

PRINTF

;SET UNLOAD OPERATION
.
:PROMPT OPERATOR TO 'PRESS LOAD'’

#FMTOP1,#0PR3,#OPR1A,#BASADD
,RLBAS , #DRVNAM, <B,RLDRV+1>

CLR
BISB
MOV
MOV
MOV
MOV
MOV

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

gEEoeE

i
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-16
*TEST 7
INITIAL STATE

33700
33706

012746
012746
010600

017442
000007

0637
01270

000020
000000

004767
034300

163166

104417

104422

022767

0071370

000000

#7,-(5P)

TRAP

CSPNTF

147152

SP RO

ADD

#20 gp

#0.R

;SET "'LOAD CARTRIDGE'* STATE VALUE 0

JSR
1008
BREAK
TRAP

PC,GSTATC

;GET STATUS

MOV
20%:

#FMTOP1,=(SP)

MOV
MOV

SEQ 0112

CMP

BNE

C$BRK

#0,T.STAT

20§

sMAKE A SUPERVISOR CALL
sTEST IF

STATE 0

sWAIT FOR STATE 0
;PROMPT OPERATOR TO ‘PRESS LOAD &

Nrhowviang

£& — ) b O b

purd

OO0

=+S838%

NO~N

21%:

PRINTF

CLR
BISB
MOV
MOV
MOV
MOV
MOV

MOV
MOV

MOV
Y

528 033762
529 033766

°§
IR

TRAP

HsOONNO

AR
RR

FRRRPERY

022767
001370

QOO0

SENE KRUKZS

RRRRRR &m\n\n &vwwwum
——

163046

104422

546 034056
547 034062
e

004767
034300

016701
032701
001003
12703
01270
05
03270
1010
00101
012703

gZ 1

000005

22%:

147032

218

JSR
1008
BREAK
TRAP

PC,GSTATC

010575

9%:

BNE
MOV
BR
BIT
BNE

C$BRK

sTEST IF RESPONSE IS YES
:BRANCH IF NOT READY

sGET STATUS

sMAKE A SUPERVISOR CALL

#5,T.STAT

sCHECK IF STATE 5
JWAIT FOR STATE 5

T.MP,R1

:GET MP REG
:CHECK HEADS OUT
;YES-SKIP
sSET _NAME MESSAGE PTR
:GO_REPORT
sCHECK BRUSH HOME SET
;YES=SKIP
sSET NAME MESSAGE PTR

22%

#HOSTAT,R1

7%
#MHOSTA,R3
9s
FRHSTAT,R1
s

ERRHRD ;8g...eéa§

MOV

:PROMPT OPERATOR FOR RESPONSE

10000%

MOV

; CLEAR FOR_RESPONSE

OBUFF
T$COD

OPROO.
1

CMP

7%:

OBUFF

.WORD
JWORD

BIT
000010

CSPNTF

g:zggs.osurr.1. NO

BNE

010621

SP.RO

g::ng

CLR

100008:

#EMTOP1,=(SP)
#7,-(SP)
#20,SP

.WORD
.WORD

150356

-(SP)
RLDRV+1, (SP)
#DRVNAM,
= (SP)
RLBAS,=(SP)
#BASADD,
= (SP)
#OPR1A,
= (SP)
#OPR6, ~(SP)

ADD

005767
001740

:/WAIT FOR READY'’

#EMTOP1,#0PR6,
#OPR1A, #BASADD ,RLBAS , #/DRVNAM, <B ,RLDRV+1>

HSTA,R

;REPORT ERROR

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~-AUG-82 10:30:59 PAGE 9-17
«TEST 7

SEQ@ 0113

INITIAL STATE

034062
034064
034066
034070

104456
001276
000000
012600

034072
034074
549 034G76
550 034102
§51 034106
552 034110
§53 034112
554 034116

104432
000204
005767
100035
005767
001032
032701
001412

548 03407

034130

034132
034134
034136
558 034140
034140
034142

160224

108:

147250

000100

559 034144

560 034150
561 034152
562 034156
563 034160
564 034166
565 034170
566 034174
567 034176

001277
000000
012646

032701

001000

001003
012703 010551
000741
032767 040000
001003
012703 010526
000732
032701

138:

146656

020000

568 034202 001406
569 0342064 012703 010610
570 034210

034210

034212
034214
034216
571 034220

572 034224
5§73 034232
574 034236
575 034240
576 034242
577 034244
578 034246
579 034250

034250

158:

168:

021177

104456

001300

580 034260
034260
034262
581 034264

104432
000016
016701

178:

998:
188:

042701

146554

141777

198:

TST

MOV
MOV

#MHSTA,R3
#CCYLUP,RG

TRAP

;ssnufio

.WORD
WORD
.WORD
EXIT
TRAP
.WORD
BIT

703., ,ERR4

703
O
ERR&
TST
CSEXIT
L10035-.

705.
., ,ERR2

JEXIT

SYES=SKIP
:ELSE SET NAME MESSAGE PTR
*GO REPORT
:TEST DRIVE ERROR SET
SYES=SKIP
*ELSE SET NAME MESSAGE PTR
:GO REPORT

iSKIP IF RESET
*ELSE SET NAME MESSAGE PTR

ssguuéo

70
O
ERR2
#21177.R1

CMP
BEQ
CMP
BEQ
B8R
TST
BEQ

T.DRIVE,
1
998
#200,R1
198
18$
R1
198

TRAP

Ssenufio

704.,,ERR6

;CLEAR STAUS EXCEPT FOR ERROR BITS

:NO=SKIP

*ELSE REPORT ALL ERRORS

704

WORD
.WORD

0
ERR6

BIC

14197701

EXIT
TRAP
LWORD
MOV

*REPORT ERRGR

:CHECK WRITE LOCK STATUS

17
#MULSTA,R3

ERRHRD

*SET NAME MESSAGE PTR
*SET CONDITION POINTER

owksw.m

BEQ
MOV

LWORD
WORD
.WORD
BIC

;TEST IF MANUAL INTERVENTION RUN
‘NO=SKIP
SCHECK IF FIRST PASS
‘NO=SKIP
*ELSE CHECK WD O SELECTED
SYES=SKIP

;CHECK VOL CHECK SET

158
#MVOLCK,R3
9%
#DRVERR,T.CS
168
#MDRERR,R3
98

BIT

SEXIT

#VCSTAT.R1

BNE
MOV
B8R
BIT
BNE
MOV
BR

.WORD

034554. 000000
034
012766

582 034270

TST
8PL
ST
BNE
BIT
BEQ

TRAP

026727 146046 000001
001404
022701 000200
001411
000402
005701
001406

034252

CSEXIT
L10035-.
MISWIW
168
PASNUM
168
#HSSTAT,R1
138

ERRHRD

104456

001301
000000
012532
042701

TRAP
LWORD

ERRHRD

104456

104432
000136

;SSRNRD
70
0
ERR3

EXIT

555 034120 012703 010537
556 034124 012704 011412
557 034130

TRAP
.WORD
WORD
.WORD

TST
“55 T
L10035-.
T.CS,R1

SEXIT

:GET CS REG

*CLEAR ALL BUT ERROR BITS

CZRLIDO RLO1/02 0 IVE TEgT 1EHA(R0 V04.00 4-AUG-82 10:30:59 PAGE 9-18
«TESTY 7
I ITIA

0 5701
1364

583 034274
584 034276

25%:

TRAP

CSETST

BNE

SEQ 0114

;TEST IF ANY ERROR SET
;YES=SKIP TO REPORT

18%

1008:
ENDTST

L10035:

104401

.SBTTL
BGNTST
006515

PC,TSTINT

sINITIALIZE TEST

162526

ggg

PC,GSTATR

;GET STATUS WITH RESET

160000

ST
8PL
ST
BNE
BIT
BEQ
MOV

MISWIW
4$
PASNUM
48
#HSSTAT,T.MP
4$
#MHSTA,R3

sCHECK IF MAN INTERVENTION WAS RUN

ERRHRD

801., ena4

000100

JSR

146506

010537

011412

MOV

TRAP

RRER
3333333

034356

A ¥

.WORD
-WORD
-WORD

#CCYLUP, RS

ss;au

:NO=-SKIP
sCHECK IF 1ST PASS
:NO=SKIP
CHECK HD SELECT STILL O
;YES=SKIP
:SET NAME MESSAGE PTR
:SET CONDITION POINTER

:REPORT ERROR

snaa

65%:

ENDTST

L10036:

104401

TRAP

CSETST

.SBTTL
BGNTST

006543
003102

— e

R oo

d o

o VWRONOW

b o

SWN—=O

18::

#INITST,ERHEAD

147024

NONONONON

INITIAL RESET STATE
;TEST 8

MOV

162514

146502

+TEST 8

162412
162424
166170

146414

+TEST 9

MoV
MoV
CLR
CLR
CLR
CLR
JSR

DRIVE READY
;TEST 9

#TO9ERR,ERHEAD
#NEWCYL
. R1
(R1)+
(R1)+
(R1)+

(R1)

{88’

PC,TSTINT
PC,GSTATR

JSR

PC,POSHSB

146456

MoV

4383

PC,SIMSEK

010404
011353

MoV
Mov

#MDRDY,R3
#CDRDY,
R4

164512

R3,DESHD

sSET ERROR HEADER

79::

sGET POINTER TO DESIRED LOC
sCLEAR NEW CYL

CLEAR CURRENT CYL

DIFFERENCE
SIGN

TIALIZE TEST

TATUS WITH RESET

SITION HEQD SELECTED BIT
IRED HEAD
MPLE SEEK
S AGE PTR
ION POINTER

DO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 9-%9
4

SEQ@ 0115

DRIVE READY

630 034452
631 034456
63§ 034460
633 034466
634 034470

004767
035022
032767
001406

034472
034474
034476
635 034500
034500
034502

001605
000000
012646

034470

104432
000320

012701

638 034514
639 034516

035022

pors 034516

162420
000001

146356

104456

636 034504

637 034510

004767

000121

48:

162362

58:

104422

643 034530
644 034532

001406

034534

001606

034532

000000
013666

034544

000256

647 034552

032767

649 034562

005301

034542

651 034566

000676

034714

104456

653 034714

034716
034720
034722
654 034724
034724
- 034726

001607
000000
012716

656 034730
657 034734
658 034736

005767
100006

034740
034742
034744
659 034746
034746
034750
660 034752

001610
000000
012766

034736

661 034756

000001

146264

78:

901
0
ERR4
TST
CSEXIT
L10037-.

SEXIT

MOV
JSR

1008
BREAK

98:

146110

128:

165636

158:

#81. .R1

PC,GSTAT

($BRK

MOV
CMP

#5,R3
T.STAT,R3

.WORD

7%
902.,,ERR7

CSERHRD

“GET STATUS

;ALLOW FOR A “C

;SET EXPECTED STATE VALUE
SCHECK STATE IS S
SYES=SKIP
+ELSE REPORT

0
ERR?
TST

“55 T

L10037-.

#MDRDY ,R3

BNE

128

BIT

sSET WAIT COUNT

902

MOV

#DRDYMSK,T.CS

;CHECK READY SET

DEC

*ELSE DEC WAIT COUNT

TIMDLY

9
13

ERRHRD

903., ,ERRS

.WORD
LWORD
.WORD
EXIT
TRAP
.WORD

90
O
ERRS
TST
CSEXIT
L10037~.

TST
BPL
ERRHRD

T.CS
158
904., ,ERR6

.WORD
JWORD
.WORD
EXIT
TRAP
LWORD
MOV

. 904
0
ERR6
TST
CSEXIT
L10037-.
#MHSTA,R3

TRAP

010537

smufio

TRAP

BEQ

104456

004767

.WORD
JWORD
.WORD
EXIT
TRAP
.WORD

TRAP

104432
000074

104432
000052
012703

;TEST READY SET
*NO-SKIP
*REPORT READY ERROR

.WORD
.WORD
EXIT

0014.3

652 034712

#DRDYMSK,T.CS
4
901.,,ERR4

.WORD

646 034546 012703 010404
650 034564

:GET STATUS

TRAP

104432

648 034560 001063

PC,GSTAT

BEQ
ERRHRD

104456

034536
034540
645 034542

JSR
1008
BIT
BEQ
ERRHRD

TRAP

641 034520 012703 000005
642 034524 026703 146330

[

JSR

csgnuéo

SYES=SKIP

SSKIP IF 0

;REPORT READY ERROR

:TEST IF ANY ERROR
*NO=SKIP

CSERHRD

PC,POSHSB

;SET NAME MESSAGE PTR

;POSITION HEAD SELECT BIT FOR TEST

02056 7
00141 5
00576 7
001406
LV,

Y o

uuww

~
~

j=lelelelel] oOC OO

L
DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 9-20
DRIVE READY

CMP

146124
146116

000000
012600

20%:

671 035022
035022
035022
672
673
674
675
676 035024
035024
677 035024
678 035032
679 035036
680 035040
681 035042
682 035044
683 035050
684 035054
685 035056
686 035056

:ELSE TEST IF 1 DESIRED
:NO-REPORT $B 0

905.,,ERR3

CSERHRD

.WORD
WORD
.WORD
EXIT

9os
0
ERR3
TST

.WORD
ERRHRD

L10037-.
906.,,ERR2

.WORD
JWORD
.WORD

906
0
ERR2

TRAP

CSETST

:ELSE REPORT $B 1

CSEXIT

TRAP

CSERHRD

1008:
ENDTST

L10037:

104401

.SBTTL

BGNTST

006553
003102

145760

164054

010404
011353

MOV
CLR
CLR
CLR

145720

SEEK _SIGN SWITCH

sTEST 10

#T10ERR
, ERHEAD
ANEWCYL .R1
(R1)+
(R1)+
(R1)+

sSET ERROR HEADER

T10::

sCLEAR NEW CYL

sCLEAR CURRENT CYLINDER
sCLEAR DIFFERENCE
sSET FOR SIGN OF 1
sGET SELECTED HEAD
sSET AS DESIRED HEAD

BIS
JSR
MOV

#BITO, (R1)+
Pg.Posusa
(R1)+

TRAP
JSR
JSR

($BSUB
PC,TSTINT
PC.GSTATR

sINITIALIZE TEST
sGET STATUS

710.1:

608
JSR
608
MOV

PC,SIMSEK

;D0 SEEK

#MDRDY,R3

JSR

PC,GSTAT

sSET NAME MESSAGE PTR
sSET CONDITION MESSAGE PTR
:GET STATUS

MOV

161762

000001

«TEST 10

MOV

T104$:
BGNSUB
161744
161756

694 03

o;suo

BEQ
ERRHRD

TRAP

17%:

ngCgK}F CORRECT HEAD SELECTED

208

TRAP

104456
001611

RS, DESHD

BEQ
ST

SEQ 0116

608
BIT
BEQ

ERRHRD

TRAP
.WORD
.WORD
.WORD
EXIT

#CDRDY. R4

#DRDYMSK, T.CS
4$
1001.,,ERR4
CSERHRD
1001
0
ERR4
SUB
*

sCHECK READY RESET

JYES=-SKIP

JREPORT READY ERROR

JEXIT SUBTEST

N 9
CZRLIDO RLO1/02 DRIVE TEST
1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 9-21
«TEST 10
SEEK SIGN SWITCH

035364

722 035366
723 035372
724 035374

035374
035376
035400

035402

725 035404
035404

035406
726
727 035410

145452

12%:

104456

001754
000000
012766

-WORD

EXIT

TRAP

.WORD

010537
165200
145466
145460

15%:

MoV
JSR

CMP
BEQ
TST

R3,T.STAT
78
1002.,

,ERR7

CSERHRD

;SET EXPECTED STATE
sCHECK STATE IS 5
;YES=SKIP
;REPORT STATE ERROR

aooz

ERR7
sus
CSEXIT
L10041~,

#MDRDY,R3

#DRDYMSK,T.CS

12$
R1
9%

JEXIT

sSET NAME MESCAGE PTR
;CHECK READY SET
;YES-SKIP
;DO WAIT COUNT
;SKIP IF 0

ERRS

ERRHRD
TRAP
.WORD
«WORD
.WORD
EXIT
TRAP
-WORD
TST
BPL
ERRHRD
TRAP

sALLOW FOR A “C

.WORD
.WORD
.WORD
EXIT
TRAP
. WORD
MoV
BIT
BNE
DEC
BEQ
TIMDLY
BR

.WORD

104432
000052

104456
001755

722 035434

7%:

001753
000000
012716

035434
035436

729 035420
730 035424
731 035426

145626

9%:

104456

732 035432

728 035414

010404
000001

000676

012703
004767
020567
001415
005767
001406

#5,R3

TRAP

104432

104432
000074
005767
100006

MoV

sSET WAIT COUNT
;GET STATUS

;REPORT READY ERROR

EXIT
sTEST IF ANY OTHER ERROR
:NO-SKIP
sREPORT ALL ERRORS

3
&H

035352
035354
035356
035360
721 035362
035362

C$BRK

N -

717 035224
718 035350
719
720 035352

TRAP

CMP
BEQ
ERRHRD

104456
001752
000000
013666

000256
012703
032767
001063
005301
001453

#81. ,R1
PC,GSTAT

JSR
60%
BREAK

= (TM) =
O
OoOmo
WDOW
e

035170
035172
035174
035176
711 035200
035200
035202
712 035204
713 035210
714 035216
715 035220
716 035222

000005
145672

—d

709 035166
710 035170

MOV

VNN
D
D

5%:

000
161

104422

012703
020367
001406

CSEXI
L10041=-.

.WORD

012701
004767
035460

TRAP

O wd TM) b

104432

000320

SEQ 0117

ERR6
suB
CSEXIT
L10041~-.

#MHSTA
R3
PC,POSHSB

JEXIT

sSET NAME MESSAGE PTR

sGET SELECTED HEAD BIT
sCHECK IF CORRECT
;YES = SKIP

sWAS IT SET
sNO-SKIP

;REPORT SB 1

CZRLIDQC RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-22
«TEST 10
SEEK SIGN SWITCH

035440
035442

000000
012600

035444

104432

736 035444

EXIT

TRAP

°§’“§8 000012

735 0354

035450

035452
035454
736 035456

17%:

104456

001756
000000
012532

035460

743

035474

744 035500

746
747
748

035506

104403

005767
001404
005067

000167

L10041:
145422

145414

177356

258:

L10040:

104401

LSBTTL

750 3§§§8§

BGNTST
032767

000010

752 035510
753 035512
754 035516
755 035520

001411
005767
001006
026767

757 035530

000167 000422

756 osssgg 001004

758 035534
035534
035536

104432
000520

759 035540 0156767

760

761 035546

035546
035550

035554
035560
335564.
35570
035574
035600
035602
035604

76%
763 035610

CSERHRD

1006.,.ERR2

;REPORT SB 0

1006
O
ERR2

.
TRAP

CSESUB

3
BEQ
CLR

DESSGN
25%
DESSGN

TRAP

CSETST

JMP

;CHECK IF BOTH SIGN USED
JYES~SKIP
;SET FOR SIGN OF 0

71048

‘DO TEST AGAIN

ENDTST

749

751 035502

TRAP

ENDSUB

745 035500

025500

CSEXIT

208:
608
:

739 035460

740 035462
7641 035466
7642 035470

suR

L10041~-.

ERRHRD

SEQ 0118

0
ERA3

LWORD

.WORD
WORD
.WORD

737 035460
738 035460

035460

WORD
.WORD

005046
156716

012746
016746
012746
012746
012746
010600
104417
062706

156616

145266
145257

006053
145242
006042
011567
000005
000014

035610 012746 007154
035614 012746 011753

145262
18:

145242

2%:

HEAD Agixmur SUPPORT

STEST

BIT

#HDALIGN, MISWIW ;CHECK IF RUN HEAD ALIGNMENT

BNE

BEQ
ST
BNE
CMP

145642

145306

*TEST 11

JMP

18
PASNUM
1$
RLDRV,HADONE

*NO=-EXIT
STEST IF PASS 0
*NO=-EXIT
:TEST IF HEAD ALIGN DONE THIS DRIVE

T1158

160 CHECK WRITE LOCK

‘NO = SKIP

EXIT
TRAP
.WORD

TST
CSEXIT
L10042-.

PRINTF

#FMTS,#BASADD,RLBAS,
#DRVNAM, <B,RLDRV+1>

MOV

CLR
BISB

RLDRV,HADONE

:TELL DRV AND CNTRL HD ALIGN TO BE DONE ON

-(SP)
RLDRV+1,(SP)

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

#DRVNAM,
= (SP)
RLBAS,=(SP)
#BASADD , - (SP)
#EMTS,
- (SP)
#5,-(5P)
SP RO
CSPNTF
#14,5P

PRINTF

#FMT9,#HAMES?

MOV
MOV

;SET HEAD ALIGN DONE FLAG

#HAMES
T, = (SP)
#FMTY,-(SP)

;HD ALIGN. RSETWRT LCK TO SEL WD O, SET WD 1

ST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-53

SEQ 0119

GNMENT SUPPORT

00€J02
L00006

—-O0000

g2s=e

007237
011753
000002

#2,-(SP)

PRINTF

#FMTY, FHAMES2
#HAMES2,
= (SP)

MOV

SP,RO

CSPNTF

#6,5P

#EMTS,

;*C TO RET TO SUPVR (MD MODE

= (SP)

#2,-(5P)
SP.RO

CSPNTF

000006

#6,5P

007343
011753
000002

#FMTO, #HAMES3
#HAMES3,~(SP)
#FMT9,=(SP)
#2,-($P)

000006

768
769

MOV
MoV
TRAP
ADD

;IF WD SEL TP

(21, 22) DO NOT EXIST

SP.RO

CSPNTF

#6,5SP

#FMTO, #HAME
S4

:JUMPER DRV RDY AND SEEK INCOMPLETE ON DRV
*LOGIC MOD

#HAMESG
, = (SP)

007406
011753
000002

#2,-(5P)

000006

#6,5P

#FMTS,
- (SP)

SP.RO

CSPNTF
:SET WRITE LOCK

0:2;9?1.00PRI2A.00PR1A.JBA$ADD.RLBAS.ODRVNAH.<B.RLDRv01>

145075

006053

145060
006042

RLDRV+1, (SP)
#DRVNAM. = (SP)

RLBAS
, - (SP)

- (SP)
#BASADD,
#OPR1A,=(SP)
#OPR12A,~(SP)

#EMTOPY .- (SP)

CSPNTF

gbbo

s‘i
St 8
B
P o

—

NN
NN

S S

OO0

5S> ol oo
4

#20,SP

C$BSUB

PC,TSiINT

JINITIALIZE TEST

RLDRY,L.CS
#GTSTAT,L.CS

:SET UP FOR GET STATUS

L.DA.RLDA;?% )
L.CS,RLCSR(R2)

;D0 GET STATUS

DONE

sCLEAR DONE

#GETSTATIDRSET,L.DA

MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-34

C22§1001RL01/02 DRIVE TEST
1
HEAD ALIGNMENT SUPPORT
785
786 036052

144730

SRERSE 33332 Seg33

;87 036056

789 036060

005767
001775
000716

144746

020000

144750

000020
144714
000106

144726
144714

144706
144674

144706
000004
000000

144636

208:

228:

L10043:
T115$:
BGNSUB
160644
160656

020000

012746
012746
012746

010102
011753
000002

ogus
138

CLR
%X

DONE
#HDSEL 'MBSETO, L «DA;LOAD FOR HEAD 1

BIT

#ULSTAT,T.MP

BIC
MOV

#HDSEL
,L .DA
RLDRV,
[ .CS

BIS
MOV
MOV

BREAK
TRAP

598:
ENDSUB

144652

188:

228

#SEEK.L.CS
L.DA,RLDA(R2)
L.CS.RLCSR(R2)
C$BRK

ST
BEQ

DONE
308

TRAP

CSESUB

TRAP
JSR
g‘s’g

($SBSUB
PC,TSTINT
PC.GSTATR

BIT

MULSTAT,T.MP

118

BEQ
198
PRINTF
#FMTO,#OPR12
MOV
#OPR12,~(SP)
MOV
#EMTO, ~(SP)
'ngs

TRAP

.WORD
-WORD

CHECK IF WRITE LOCK SET

sYES=SKIP

:ELSE CLEAR TO HEAD 0

:LOAD IN DRIVE NUMBER
;SET FOR SEEK
;LOAD & EXECUTE SEEK
sALLOW OPERATOR TO INTERRUPT PROGRAM TO GET
;/BACK TO SUPERVISOR COMMAND MODE

;LOOP

TMM.2:

sINITIALIZE TEST
sCLEAR DRIVE
sCHECK WRITE LOCK RESET

sYES~SKIP

:REQUEST WRITE LOCK RESET

oz -(§n

cdhn

100008:

198:

OBUFF
TSCODE

.WORD
JWORD

OPRO02
1

OBUFf

TRAP

(SESUB

BEQ

188

608:

ENDSUB

104403

sCHECK IF DONE
:NO=GO CLR CONTROLLER

#6,5P
ADD
CLR
0BUFf
;CLEAR FOR_RESPONSE
GMANIL onooz LOBUFF,1,ND
sGET RESPONSE
TRAP
CSGMAN
BR
10000$

000006
146132

146112

SEQ@ 0120

1ST
BEQ

BNE

308:

104403

TRER REES RRSH RN[ =T N N1

000021

104422

—2 e

N = =

OOO0O00O et
g =lelelelelelel-]

821

016762
016762

REI372
8 ggaa&&

SRS 888SE8 SESGens &

o
FERFR FRRNER ARREBRR N

[=lelelelelele] o lolele]

SEEERERREREEBRR£ER°°°°§
RERES

WN=O
O

£2

COO0000O ]lelelele] 0O (=]l=T=Ta)

144722

36064

138:

L10044:

208:

sWAS ANSWER YES
sNO-REPEAT REQUEST

CZRLIDO RLO1/702 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9°55
«TEST

036256

" TRAP

104401

CSETST

RSV IFELLITATor PESRTFSERERRST

012767
012701
005021

603102

012721

000001

104402

004767
004767
036710

REERXRVISn&

SRR
3333IIIIIN SRS SRS
FRR

&RERRSSS

i=l=l=Te]

OCOO0O0O0O00CO0O00O

0o 0o
RRRRRRRRR Qo
RNy
N
232y

FRRU

Qo 0o 00 0o

«TEST 12

SEQ 0121

HEAD AL IGNMENT SUPPORT

822 036256
036 56

PRIN Fames

573

144524

T1248$:
BGNSUB

MOV
MOV
CLR
CLR
CLR
CLR
MoV

HEAD SWITCHING

;TEST 12

#T12ERR,ERHEAD
#NEWCYL .R1
(R1)+
(R1)+
(R1)+
(R1)+
#1,(R1)+

T12.1:

C$BSUB

PC,TSTINT
PC.GSTATR

;INITIALIZE TEST
:GET STATUS WiTH RESET

162624

PC,SIMSEK

;D0 SEEK

010404
011353
160532

#MDRDY,R3

;SET NAME MESSAGE PTR

PC,GSTAT

SGET STATUS

#CDRDY R
144470

#DRDYMSK,T.CS

5%
1201., .ERRS

CSERNRD

1201
0
ERR4
suB

CSEXIT
L10046~.
5%:
6$:

#81. .R1

PC.GSTAT
CSBRK

20367
001406

12703

#5,R3
R3.T.STAT
7%

104456

CSERHRD

104432

000256

1202.,

,ERR7

1202

0
ERR7

SUB
CSEXIT

*SET CONDITION POINTER
;CHECK IF READY

sNO=-SKIP
*REPORT READY ERROR

JEXIT

;SET WAIT COUNT

SGET STATUS

;ALLOW FOR A “C

104422

002262
000000
013666

;SET ERROR HEADER
:GET POINTER TO DESIRED LOCATIOM
:CLEAR NEW CYLINDER
:CLEAR CURRENT CYL.
*CLEAR DIFFERENCE
*CLEAR SIGN
$SET FOR MEAD 1

160514
160526

000001

L10046~.

;SET EXPECTED STATE VALUE
*CHECK IF STATE IS S
JYES=SKIP =

*REPORT STATE ERROR

10
CZRLIDO _RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-26

*TEST

861

ae; ogg:y 015703 010404
863 036440 032767 000001
864 036446 001063
865 036450

000676

870 036602
036602
036604
036606

104456
002263
000000

036610

873 036616

874 036622

875 036624
036624
036626
036630
036632
876 036634

879 036650
880 036654
881 036656
882 036662
883 036664

036664

036666
036670
036672
884 036674
036674
036676
885 036700
036700
036702
036704
036706

8'39 036710

012716

100006

#MDRDY ,R3
#DRDYMSK,T.CS
128

;SET NAME MESSAGE PTR
:CHECK DRIVE READY
SYES=SKIP

BEQ
TIMDLY
BR

98
1
6

‘SKIP IF 0

ERRHRD
TRAP
.WORD
JWORD

1203.,.ERRS
CSERHRD
1203
O

;REPORT READY ERROR

144222

128:

104456

002264
000000
012766

*DEC WAIT COUNT

.WORD

ERRS

SUB
CSEXIT
L10046~.

SEXIT

1ST

T.CS

;TEST IF ANY ERROR

ERRHRD
TRAP
.WORD
WORD
.WORD
EXIT

1204., ,ERR6
CSERHRD
1204
0
ERR6
SUB

*REPORT ALL ERRORS

JSR

PC,POSHSB

EXIT
TRAP
.WORD

104432
000074
005767

MOV
BIT
BNE
DEC

9% :

BPL

158

*NO=SKIP

TRORD #MHSTA,R3
{10046
MOV

;SET NAME MESSAGE PTR

026705 144236
001415
005767 144230
001406

cMP
BEQ
ST
BEQ

DE$HD,RS
208
DE SHD
17

:CHECK IF CORRECT HEAD SELECTED
SYES=SKIP
*WAS HEAD 0 SELECTED
SYES-SKIP

104456

TRAP

CSERHRD

004767

163750

158:

ERRHRD

002265
000000
012600
104432
000012

178:

104456
002266
000000
012532

208:

888 036710
889 036710

036710

78:

001453

000635 019537
877 036536
032223 81“2”905
878 036644

144376

005301

866 036452
867 036454
ggg 036600

871 036612
036612
- 036614

SEQ 0122

HEAD SWITCHING

1205., .ERR3

.WORD
JWORD
.WORD
EXIT
TRAP
.WORD
ERRHRD
TRAP
WORD
WORD
-WORD

1205
O
ERR3
SuB
CSEXIT
L10046-.
1206.,,ERR2
CSERHRD
0
ERR2

TRAP
ST

(CSESUB
DE SHD

CLR

DE SHD

:POSITION HEAD SELECT BIT

*REPORT HEAD SB 1

SEXIT
;ELSE REPORT HEAD SB 0

1206

608:
ENDSUB

L10046:

036710
890 036712

104403
005767

144174

89§ 036720

005067

144166

891 036718 001404

893 036724 000167 177356

BEQ

JMP

:CHECK IF HD O WAS DONE

258

SYES=SKIP

11248

*REDO TEST

*ELSE SET TO HEAD 0

MACRO v04.00 4~AUG-82 10:30:59 PAGE 9-37

CZRLIDO RLO1/02 DRIVE TEST
1
*TEST 12
HEAD SWITCHING

894 036730
895 036730
36730
036730

" TRAP

104401

104402
004767

912 036770
913 036772
914 036776

915 037000

037010

910
919 037012
920 037016

006605
003102

144052

T1348:
BGNSUB

MoV
MoV
CLR
CLR
CLR
CLR
CLR

SEQ@ 0123

CSETST

«TEST 13

012767
012701
005021
005021
005021
005021
005021

READ HE;DER (PART 1)
sTEST

#T13ERR,ERHEAD
#NEWCYL R

sCLEAR CURRENT CYL
sCLEAR DIFF

;CLEAR SIGN
;CLEAR HEAD

C$BSUB

T13.1:

160044
160056

PC,TSTINT
PC,GSTATR

sINITIALIZE TCST
sGET STATUS W/RESET

162154

PC,SIMSEK

;00 SEEK

000121
163640

PC.RDYWALT

sSET WAIT COUNT
sWAIT FOR READY

163112

PC,XRDHDC

;D0 READ HEADER

010537

#MHSTA,R3
PC,POSHW1

sSET NAME MESSAGE PTR
sPOSITION HS BIT IN HD WRD 1
sCHECK IF HEAD CORRECT
sYES-SKIP
sREPORT SB 1

163562
144056

RS . DESHD

.“i6ERR3

Zizfiaiaf'“z

17%:

;REPORT SB 0

ERRZ

93§
037070

7T13::

sSET ERROR HEADER
JGET ADDRESS OF DESIRED LOCATIONS
JCLEAR NEW CYL

144022

" IRAP
ST
BNE

CSES
UB

DE SHD

208

sTEST IF HEAD 1 DONE

sYES=SKIP

934 037072
935 037100
936 037106
937 037110
938 037116
939 037124
940 037132
941 037134
942 037140

037140
037142

037144

037146
943 037150
944 037150
037150
037150

012767
016767
000723
042767

042767
026767

001406
012703

104456

0001
143746

144012
144010

000177

144000

177
143766

143726
143720

007070

037174
037174

958 037176

BEQ
MOV

SVLPER R3

BIC
CMP

#177. HDWRD1
rsnrb HDWRD1

TRAP

002432
000000
012464

22%:

cssnufio

WORD
JWORD
.WORD

1306
0
ERR1

TRAP

CSETST

ERR1

SEQ 0124

;ELSE SET TO HEAD 1
;STORE HDR WORD 1

;D0 TEST AGAIN
JCLEAR ALL BUT CYLINDER IN 1ST HEADER

:CLEAR ALL BY CYL IN
sCOMPARE IF EQUAL

2ND HEADER

JYES-SKIP

sSET NAME MESSAGE PTR
sREPORT HEAD ALIGNMENT PROBLEM

ENDTST

L10047:

104401

.SBTTL
BGNTST

012767
012701
005021
005021
005021
005021

104402

004767
004767

006621
003104

143632

T153%:
BGNSUB

157626
157640

037406
012701
004767
037406
004767

037406

005067
83%535

012704

012705

003764

003116

TRAP

($BSUB

PC,TSTINT
PC.GSTATR

T14.1:

sINITIALIZE TEST
sCLEAR DRIVE

#200. ,R1
PC,RDYWALT

sSET WAIT COUNT FOR 20 MS
sWAIT FOR READY

PC,RDALHD

;D0 READ HEADER ALL HEADERS

CLR
g{g

MORECE
:goacnvLOPFLAG

MOV

#1BUFF, n4

MOV

(R4), (RS)

sCLEAR MORE COMPARE ERRORS FOR REPORT
sSET HDR COMPARE FLAG
sCLEAR FOR HDR COUNT
sGET POINTER FOR HDR TO BE CHECKED
sGET POINTER TO TEST AREA
sSET HDR COUNT
:GET FIRST HEADER WORD

MOV

#TEMPO
R

MOV

042715
005767

000100
143612

BIC
ST

#HDHSEL
, (RS)
DE SHD

005065

000002

CLR

2(RS)

093315 000100

;SET ERROR HEADER
sGET ADDRESS OF DESIRED VALUE
+sCLEAR CURRENT CYL
sCLEAR DESIRED DIFF
sCLEAR SIGN
sCLEAR DESIRED HEAD

;D0 SEEK

012701 000050
011415

T14::

PC,SIMSEK

60%
143534

READ HEADER (PART 2)

#T14ERR,ERHEAD
#CURCYL .R1
(R1)+
(R1)+
(R1)+
(R1)+

60$
MOV
JSR
60$
JSR

164114

sTEST 14

MOV
MOV
CLR
CLR
CLR
CLR

32:

000310
163422

143552
000002

+TEST 14

JSR
JSR

332?29 161736

975
976 037270
977 037274
978 037300

#1,DESHD
HDWRD1, TEMPO
71348
#177,TEMPO

ERRHRD

949 037152

037152
950 037152
951 037160
952 037164
953 037166
954 037170
955 037172
956 037174
957 037174

208:

MOV
MOV
BR
BIC

sSswan,

CIRLlDOBRLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 928
1
READ HEADER (PART 1)
TEST

BIS

240, .ai

AMDWSEL, (RS)

;TEST IF HD O DESIRED

;YES=SKIP
;ELSE SET HEAD BIT
sCLEAR 2ND WORD OF TEST AREA

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO_V04.00 4-AUG-82 10:30:59 PAGE 9-59
«TEST

021524

108:

001406
005744

104456

86
987 037332
988 037334
989 037336

383828

cssanfié

BEQ
CMP

104456

TRAP

CSERHRD

042715
005301

138:

ERRHRD

158:

177700
000050
17$:

1501..,ERR10

.WORD
WORD
.WORD
CMP
TST
INC
INC
MOV
BIC
CMP

1501
O
ERR10
=(R5),(R&)+
(R4)+
R3
(RS)
(R5) ,RO
#*CHDSEC,RO
#40. ,R0

BIC
DEC

#HDSEC, (RS)
R1

BNE

000077

001342

BNE

;COMPARE HEADER WORD
JSKIP IF OK

;ELSE POSITION R4 TO BAD WORD
sREPORT ERROR

;BUMP R4 TO NEXT WORD

:BUMP WORD COUNT

;TEST 2ND WORD IS 0
;YES = SKIP
sPOSITION PTRS FOR REPORT
sREPORT ERROR

108

60$:

ENDSUB

(=]

r
s

~
3
—

—-o

005767
001005
012767

L10052:
143476

000001

000167 177544

TRAP

ST
BNE
MOV

143466

208:

CSESUB

DEShD
2os
gssuo

JMP

115

TRAP

CSETST

sCHECK IF HD 1 TESVED
sYES-SKIP

sELSE SET TO HEAD 1

;REDO TEST

ENDTST

L10051:

104401

LSBTTL

BGNTST

WIN WG

CO0000OD

.WORD
JWORD
.WORD
isT
INC
ST

001406
022544

001002

SSSS8ssse s3s33
mbwm-gou-.' oS W

e
e o e
b

(RS), (R4)+

13%
-(R4)
1501.,,ERR10
1501
0
ERR10
(R&4)+
R3
(R4)+
15
(RS)+,=(R&)

104403

e e

CMP

BEQ
ST
ERRMRD

TRAP

002735
000000
014076
005724
005203
005724

002735
000000
014076
024524
005724
005203
005215
011500
042700
022700

b md b b md e b 4

SE@ 0125

READ HEADER (PART 2)

012767

006645

004767

157356

012767

004767

040076
022767
001404
012767

000004

143352

143450

157370

+TEST 15

142610

177776

143424

sTEST

MoV

opzro1s ERHEAD

JSR

pc rsrlut

11765$
CMP
BEQ
MOV

#1,T.ORIVE
2$
#=2,TEMP2

MOV
JSR

000001

DIFF saegCE OF 1 SEEK (PART 1)

TEMPO

PC.GSTATR

T1S::

ERROR HEADER

PASS COUNT
TIALIZE TEST

STATUS

RL01 OR_RLO2?
:BRANCH TO SET UP DIFF ARGUMENT FOR RLO1

:ELSE, SET =2 INTO DIFF ARGUMENT FOR RLO2

MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-%0

LIDO RLO1/02 DRIVE TEST 1
ST 15
DIFFERENCE OF 1 SEEK (PART 1)
1026

1027 037476

000403

1028 037500

01%767

1030 037512
1031 037516
1032 037522

012705
004767

1029 037506

012704

177777

003104

143414

003102
162276

1034 037526
1035 037530
1036 037532

e 037532
1038 037534

104402

004767
040032

163472

104420

037536

103005

1040 037540
1041 037542

021415
001005

1043 037550
1044 037552
1045 037556
1046 037560
1047 037564
1043 037596
1049 037574
1050 037576

000441
005467
011415
026714
001014
022767
001404
012767

1051 037604

000421

3s:
is:

142516
000001

142502

177776

143316
143306

022767

000001

142446

012767
000403
012767

000002

143262

000001

143252

001404

1061 037650

066715

143246

004767
040032

004767

160312

1068 037670
1093 037674

012703
020367

000004
143160

}829 037664

1070

037700

1071 037702

037702

037704
037706
037710

1072 037712

001405

104456

000145
000000
013666

000442

68:

BC(

160500

BR
NEG
MOV
CMP
BNE
CMP
BEQ
MOV

B8R

(R4), (RS)
48

PC,ONSWAP

98
TEMP2
(R4), (RS)
HLMTW, (R4)
78
#1,T.DRIVE
63
#-2,TEMP2

CMP

#1,T.DRIVE

118:

MOV
BR
MOV

l%.tEHPZ
8
#1,TEMP2

9%:

BREAK

BEQ

8s:

ADD

TRAP

;GET POSITION

;CHECK IF

#=1,TEMP2
8s
(R&)

BNE

11§

TEMP2, (RS)

CSBRK

IN ERROR LOOP

:NO = SKIP
;CHECK IF CURRENT = NEW
iNO = SKIP

:ELSE SWAP OLL AND NEW

$SKIP TO SEEK
:CHANGE DIFF ARGUMENT FOR OPPOSITE DIR
:MOVE CURRENT INTO OLD
:CHECK IF CURRENT AT 255
:NO = SKIP
:RLOT OR RLO2?
*BRANCH IF RLO1
:ELSE, SET UP DIFF ARGUMENT FOR RLO2
;AT MAX CYL, MAKE NEXT SEEK REV
$SKIP
:TEST IF CURRENT AT 0
‘N0 - SKIP
*RLOT OR RLO2?

:BRANCH IF RLO1

:ELSE, SET UP DIFF ARGUMENT FOR RLO2
;AT CYL 0, MAKE NEXT SEEK FWRD

*ADD DIFF TO NEW CYL (+1 OR -1 FOR RLO1.
:/+2 OR =2 FOR RLO2)
*ALLOW A *C

JSR
608

PC,XSEEK

;D0 SEEK

JSR

PC,GDRSTA

:GET DRIVE STATE

MOV
CMP

#4,R3
R3.T.STAT

;SET EXPECTED STATE
*CHECK DRIVE STATE

ERRHRD

101.,,ERR7

*REPORT STATE ERROR

BEQ

TRAP

.WORD
WORD
-WORD

B8R

10§

CSERHRD

101
O
ERR7

168

SEEK

;ALLOW FOR A C

C$BRK

MOV
BR
ST

78:

1062
1063 037654
037654
1064 037656
1065 037662

104422

PC,GETPOS

CSINLP

INTO DIFF ARGUMENT FOR =1

*SET POINTERS

115.1:

C$BSUB

TRAP

JSR

1056 037622

1057 037630

;60 CHOOSE HEAD

CMP
BNE

177777

1058 037632
1059 037640
1060 037642

#NEWCYL
. RS
PC, CHOSHD

#CURCYL , R4

BNCOMPLE TE

012767
000415
005714

001013

MOV
JSR

INLOOP

1052 037606
1053 037614
1054 037616

1055 037620

sSET =1

TRAP

143344

;/(RLO2 HAS DOUBLE THE TRACK DENSITY OF RLO1)

#-1,TEMP2

MOV

JSR
608
BREAK

1062 037544 004767 162334

SEQ 0126

MOV

TRAP

104422

037534

1039 037536

5%:

T172s:
BGNSUB

1033 037522

037522
037522

2%:

B8R

SYES=SKIP

SEXIT TEST

CZRLIDO RLO1/02 DRIVE

«TEST

K 10

TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-31

DIFFERENCE OF

1073 037714

012703

00CJ05

037736
037742
0377644
037750
037752
037756
037760
037764
037766

012727
000000
016727
000000
005367
001375
005367
001367
104422

000372

1074 037720

1075 037776
1076 040002

004767
020367

1077 040006

001404

040010
040012
040014
040016

104456
000146
000000
013666

1078 040010

1079 040020
1080 040024
- 1081 040030
1082 040032

1083 040040

040040

012701
004767
040032
012767

040040
1084 040042

104403

040044

000032

SEEK

108:

142146
177772
177756
160200
143052

168:

142756

60%:

ENDSUB

L10054:

040042 104410

}(% 040052

001411

143044

1088 040054

032767

000001

1090 040064
1091 040070
1092 040072
1093 040076
1094 040076
1095 040076

004767
040076
000167

1617564

040076

104401

040076

1096
1097
1098

143034

#250.,(PC)+
O
LSDLY, (PC)+
0
-6(PC)
=4
222(PC)
=20
C$BRK

177424

238:

248:
T17658:
ENDTST

L10053:

1101 040100 012767 006645
1102 040106 012767 000004

156710
156722

161666

1107 040132
012767 177777
1108 040140 012703 003102
1109 040144 012704 003104

‘WAIT 20 MS FOR DRIVE STATE CHANGE FROM 4 TO §

JSR
CMP

PC,GDRSTA
R3.T.STAT

:GET DRIVE STATE
:1S STATE 57

ERRHRD

102.,,ERR?

*REPORT STATE ERROR

16$

TRAP
.WORD
WORD
.WORD

CSERWRD
102
O
ERR7

MOV
JSR
608
MOV

SYES=SKIP

#50. ,R1
PC,RDYWAIT

;INITIALIZE WAIT COUNT
‘GO WAIT FOR DRIVE READY

#2,ERRSWI

;INIT ERROR SWITCH

TRAP
ESCAPE

CSESUB
TST

;"XIT TEST IF ERROR

.WORD

L10053-.

BEQ

248

*SKIP IF O~DONE

BIT

ogno.renpo

;TEST IF PASS=2

JSR
248
JMP

PC, SWAPHD

:GO SWAP TO HEAD 1 OR END TEST
*ABORT RETURN

“532”‘
TEMPO

BNE

.SBTTL
BGNTST
004767
004767
040372
004767

MOV
LWORD
MOV
LWORD
DEC
BNE
DEC
BNE
TRAP

;SET EXPECTED STATE

20:

DEC

1099
1100 %8}88
1103 040114
1104 040120
1105 040124
1109 o«ngg

#5.R3

WAITMS

TRAP

1085 040046 005367
1089 040062 001003

MOV

BEQ

000062
162620

000002

SEQ 0127

(PART 1)

:DEC PASS COUNT

238

T172%

TRAP

*NO-SKIP

CSETST

+TEST 16

DIFFERENCE OF 1 SEEK (PART 2)
STEST 16

142704
143002

MOV
MOV

#P2T02E ,LERHEAD
#4, TEMPD

;SET ERROR HEADER
*SET PASS COUNT

142762

MOV
MOV
MOV

#-1,TEMP2
#NEWCYL ,R3
#CURCYL
. Ré

PC, CHOSHD

;60 CHOOSE HEAD

JSR
JSR
718658
JSR

PC.TSTINT
PC.GSTATR

SINITIALIZE TEST
*GET STATUS, CLEAR DRIVE

*SET DIFF ARGUMENT TO =1 (REVERSE)
*GET ADDRESSES

L1
ST

DO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-&2
16

DIFFERENCE OF

1110 040150
1111 040154
1112 040154

040154
040154

012705

104402

1113 040156

004767

- 040164

104422

1114 040162
1115 040164
1117 0460166

040166

1118 040170

040170

040330

1121
1122
1123
1124
1125
1126
1127

004767
000421
005467
011413
026714
001004
012767

040176
040202
040204
040210
040212
040216
040220

1128 040226
1129 040230

1130 040232

1131 040234
1135 040242

1133

040246

001005

000405
005714

001003

012767
066713

004767

1134 040252
1135 040254
1136 040260
1137 040264
1138 040266
1139 040272
1140 040274
1141 040276

040330
012701
004767
040330
004767
040330
011501
161401

1143 040304
1144 040306
1145 040310

001402
011401
161501

1142 040300

1146
1147

040312
040316

1148 040320

040320
040322
040324
040326

1949 0403
1150 040330
1151 040336

005367

($BSUB

161702

142712
142064
177777

38:
48:
142674

78:

000001
142654

142660

160110

8s:

98:

000226
162364
162730

108:

PC.,GETPOS

TRAP

($BRK

TRAP

CSINLP

BCC

BNE

142460

128:
60$:
ENDSUB

L10056:

;ALLOW FOR A “C
;CHECK IF

IN ERROR LOOP

:NO = SKIP
;CHECK IF CURRENT = NEW

JSR
BR
NEG
MOV
CMP
BNE
MOV

PC,ONSWAP
98
TEMP2
(R4), (R3)
HLMTW, (R4)
7$
#=1,TEMP2

BNE

8s
(R4)

:ELSE SWAP OLD AND NEW
iSKIP TO SEEK
:CHANGE DIFF ARGUMENT FOR OPPOSITE DIR
:MOV CURRENT INTO NEW
:CHECK IF CURRENT AT 255
‘NO = SKIP
;AT MAX CYL, MAKE NEXT SEEK REV
SSKIP
sTEST IF CURRENT AT 0

#1,TEMP2
TEMP2,
(R3)

;AT CYL 0, MAKE NEXT SEEK FWRD
*ADD DIFF TO NEW CYL (+1 OR -1)

BR
ST

MOV
ADD

JSR

608
MOV
JSR
608
JSR
608
MOV
SUB

PC,XSEEK

‘D0 SEEK

PC,GETPOS

;STORE POSITION

(R5) ,R1
(R&) JR1

;GET OLD POSITION
*SUBTRACT FROM NEW POINTER (FORWARD)

108
(R&) ,R1
(RS) R1

:YES=SKIP, ELSE SUB FOR SEEK REVERSE
*GET NEW CYLINDER
*SUBTRACT FROM OLD CYL

(MP
BEQ

#1.ri
12§

TRAP
.WORD
WORD
.WORD

CSERHRD
201
O
ERR8

201.,,ERRS

MOV

#2 ,ERRSWI

TRAP

CSESUB

TRAP
.WORD

CSESCAPE
L10055-.

DEC

iNO = SKIP

:SET WAIT COUNT FOR 15 MS
:WAIT FOR READY

DESSGN

BEQ
MOV
SUB

‘NO = SKIP

#150. ,R1
PC.RDYWAIT

TST

ESCAPE
142546

;GET CURRENT POSITION

(R4), (R3)

ERRHRD

000002

116.1:

JSR

608
BREAK

104456
000311
000000
013736

104410
000030

TRAP

CMP

000001

040340
040342

#OLDCYL,RS

BNCOMPLE TE

022701
001404

012767

MOV

INLOOP

142604

104403

1153 040344

11878:
BGNSUB

163040

005767

040336
040336

1152 040340

002100

103005.

021413

SEQ 0128

SEEK (PART 2)

104420

1119 040172

1120 040174

*CHECK IF SIGN FORWARD

*CHECK IF RESULT IS DIFFERENCE OF 1
SYES=SKIP
*ELSE REPORT ERROR

;INIT ERROR SWITCH

TST

;EXIT TEST IF ERROR

TEMPO

:DEC PASS COUNT

M_10
DO RLO1/702 DRIVE TEST 1 MACRO V04.00 4-AuG-82 10:30:59 PAGE 9-33
DIFFERENCE OF 1 SEEK (PART 2)

RRRR
X

0350

001410

032767
001003
004767
040372
000671

142536

161456

308

BIT
BNE

OSITO.TEHPO
208

0s
BR

T187%

20%:
308:

PC,SWAPHD

JEXIT IF DONE
sTEST IF PASS 1 OR 3

;YES=SKIP
;GO SWAP TO HEAD 1

:tgggf RETURN

T1865$:
ENDTST
104401

000030

040376

000001

BEQ

005130
040542
000001

000031
040456

L10055:
ENDMOD

004032
040534
003400
000000
000007
003130
040512
000001

002032
040501
000340
000000
000007

CSETST

.SBTTL
BGNMOD
BGNHRD

PARAMETER CODING
HRDPRM

GPRML

CNTYPE,CNT,1,YES
.WORD
TSCODE
.WORD
CNTYPE
.WORD
1

GPRMA

CSRMSG,CSR,0,160000,177776,YES
+WORD
TSCODE

.WORD L10057-LSHARD/2

.WORD
.WORD
.WORD

160000
177776

001031
040472
000000
000776

TRAP

GPRMA

VECMSG,VECT,0,0,776,YES

.WORD ~ TSCODE

.WORD
.WORD
WORD
GPPMD

.WORD

DRMSG

.WORD
.WORD

TSLOLIM
TSHILIM

BRMSG,PRIOR,0,340,0,7,YES
.WORD"
.WORD

TSCODE
BRMSG

LWORD

TSHILIM

.WORD
.WORD
ENDHRD

3400

DRTYPE,TYPDR,1,YES
.WORD
TSCODE
.WORD
DRTYPE

WORD

GPRMD

VECMSG
TSLOLIM
TSHILIM

DRMSG,DRSB,0,3400,0,7,YES
.WORD " T$CODE
.WORD

GPRML

CSRMSG
TSLOLIM
TSHILIM

.EVEN

340
TSLOLIM

OR END TEST

N 10
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AuG-82 10:30:59 PAGE 9-34

PARAMETER CODING

1183

040456

L10057:

}}gg

.EVEN

1186 040456

102

125

123

000

105

040461
040464

040
104

1188 040472

126

- 040°

000

1190 040501

1187 0460467
040475

124

10
122

117

040504
1191 040507

102

114
105

122

1192 040512

104

122

105
114

040515
040520
040523
040526
1193 040531

126
124
105
040
060

105
131
040
122
061

1194 040534

104

122

1195 040537
1196 040542

1197 040545

126

122

061

1198 040547
1199

000016

1205 040552
040552
040554
1206 040556

000130
040606
000004

040560
040562
1208 040564
1209 040566

040566

040570
1210 040572
1211 040574
040574

040576
040500

(SRMSG:

.ASCIZ

/BUS ADDRESS/

103

VECMSG:

.ASCIZ

/VECTOR/

040

BRMSG:

.ASCIZ

/BR LEVEL/

111

DRTYPE:

.ASCIZ

/DRIVE TYPE = RLO1/

104
105

122

126
000
040
120
075
114
000

105

000

111

DRMSG:

.ASCIZ

/DRIVE/

114

061

CNTYPE:

.ASCIZ

/RL11/

000

ENDMOD

1200
1201
1202 040550
1203 040550
1204 040550

1207 040560

123

.EVEN

000130
040641
000010
000130

BGNMOD
BGNSFT

SFTPRM

GPRML

SELQ,MISWI,4,YES
.WORD
T$CODE
-WORD
SELQ
“WORD
&

GPRML

ALGNQ,MISWI,10,YES

GPRML.

MANQ,MISWI,100000,YES

040700
100000
004052
040735
000377

3%:

-WORD L1C060-L$SOFT/2

.WORD
.WORD
.WORD

TSCODE
ALGNQ
10

.WORD

.WORD
.WORD

TSCODE
MANQ
100000

GPRMD
.WORD

ERLIMQ,ERLIM,D,377,0,377,YES
T$CODE

.WORD

377

.WORD

ERLIMQ

SEQ 0730

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-35

PARAMETER CODING

040602

.WORD

121, 040604 000397
1515 040606
1214

ENDSFT

040606

L10060:

1218

WORD

TSLOLIM

TSHILIM

.EVEN

1217 040606

105

130

040614

105

040

040611

103

125

105

122
105

11i
040

126
123

040630
040633
1yg 4063

103
126
12

12¢
105
123

040
123
000

1219 040641

105

130

105

040646
040647
040652
040655
040660
040663

105

114

/EXECUTE DRIVE SELECT TESTS/

105

0d0671
Ocoere
1220 040677

103
105
105
040
111
115

125
137
000

125
040
101
101
107
105

124
110
104
114
116
116

1221 040700

1064

130
13

.ASCIZ

106

040617
040622
040625

SELQ:

,
ALGNQ:

.ASCIZ

/EXECUTE WEAD ALIGNMENT SUPPORT/

130
154

040703
040706
040711
040714
040717
040722
040725
040730
1a0p 040733

115
125
040
126
126
126
116
105
123

117

101
101
111
105
105
111
040
123
000

040

MANQ:

.ASCIZ

/DO MANUAL INTERVENTION TESTS/

1223 040735
040740

111
125

116
124

120
040
122
040
115
000

ERLIMA:

.ASCIZ

/INPUT ERROR LIMIT/

WORD

1opq

040743
040746
040751
040756

105
117
114
11T

1225
1226

122
122
111
126

116
114
116
122
116
117
124
12

.EVEN

1227 040760

ENDMOD

1229 040760

Lstad

040760

040762

000000

JWORD

SEQ 0131

100 RLO

1I?SGDRIVE TEST 1 MACRO v04.00 4-AUG-82 70:30:59 PAGE 9-5‘ n

]

b
d
d e
e

norRONNON

AMETER COD

040764

LSLAST::
.EVEN

040764

LSLAST::

002001

.END

SEQ 0132

CZRLIDO RLO1/02 DRIVE TEST ' MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-%7

SEG 0133

SYMBOL TABLE
ADR

= 000020 G

CNT

= 000012

CSPNTX= 000015

ERR1

012696 6

FSHW

CONTIN

015002

CSRESE= 000033

ERR4

01 966 G

FSMSG = 000011

COUNT

003154

CSRMSG

040456

CNTYPE
04054
COMPOP= 00777
CONHNG= 000004

ASSEMB= 000010

COSTAT= 000040

|BAMSK =
'BANAM
006125
BASADD 006042

CRDYMS= 000200
CSNAM
006120
CSR__
= 000000

CSRPT = 000025
CSSEFG= 000046
C$SPRI= 000041

{BHSTAT= 000010
/B8ITO = 000001 G
BIT00 = 000001 G
BIT01 = 000002 G
'B1T02 = 000004 G
BITO3 = 000010 G
BIT04 = 000020 G
BITO5 = 000040 G
BIT06 = 000100 G
BIT07 = 000200 G
BIT08 = 000400 G
BIT09 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 000004 G

CURCYL 003104
CYLPER 007070
CYLTBL 002604
CYLUP = 000004
CYLWD
010225
CSAU_ = 000052
CSAUTO= 000061
CSBRK = 000022
C$BSEG= 000004
($8suB= 000002
CSCEFG= 000045
CSCLCK= 000062
CSCLEA= 000012
C$CLOS= 000035
CSCLP1= 000006
CSCVEC= 000036
CSDCLN= 000044
C$D0DU= 000051
CSDRPT= 000024
CSDU = 000053

C$TPRI= 000013
cC10Ms
011373
C5SEC
011434
C500Ms 011404
DANAM
006132
DATACM= 000001
DCKERR= 004000
DCLIM = 000012
DCLIMW 014340
DESDIF
003106
DESHD
003112
DESSEC 003114
DESSGN 003110
DIAGMC= 00?800
DIFAUG 003076
DIFWD
010201
DIRBIT=
DIRMSK
o
DLTER%= 01
DLYCNT 003142

EXTO5
ESEND =
ESLOAD=
FBSFIL
FMTOP1
FMTOPZ2
FMTOPS
FMT1
FMT1.1
FMTI1
FMT1
FMT1
FMT14
FMT15
FMT16
FMT17
FMT1
FMT1
FMT2
FMT20

032134
0021g0
0002 5
003570
011442
011471
011513
011534
011541
011760
011796
011774
012040
012072
015126
012137
815161
12213
011550
012;38

F$SUB = 000002
FS$SW = 000014
FSTEST= 000001
GBND
002310
GDRSTA 020202
GETPOS 023222
GETSTA= 000003
GLBDAT 002224 G
GLBEGA 002224 G
GLBERR 012464 6
GLBSUB 016444 G
GLBTXT 005242 G
GSTAT
017076
GSTATC 017062
GSTATG 017106
GSTATR 017046
GSTER1
006464
GTSTAT= 000104
GSCNTO= 000200
GSDELM= 000372

BIT4
BIT5
BIT6
BIT7
BIT8
BIT9
BOE
BRMSG

CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010
(SESEG= 000005
CSESUB= 000003

DRD'MS=
DRMSG
DRSB =
DRSELT=
DRSET =
DRTYPE
DRVCNT
DRVERR=

FMT g
FMT2
FMT24
FMT25
FMT26
FMT27
FHTgB
FMT

012323
012357
012373
012400
012410
012434
012453
011553

GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
G
= 000000
GSOFFS= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002

C$GPLO= 000030
CSGPRI= 000040

EF .PUR=
G
EF .RES= 000037 6

ANYERR= 100000

' BADADD= 004000

BELL

011274

BIT3

= 000010 G

BSFLAG
BSFVAL
BSNSTR
BYPSNM
CAFDT
CAMSK
CCYLUP
CORDY

= 000020 G
= 000040 G
= 000100 G
= 000200 G
= 000400 G
= 001000 G
= 000400 G
040501

003020
003372
010307
010240
011423
002312

011412
011353
CHOSHD 022020
CKDATA= 000102
CKERLM 016444
CLKADR 003146
CLKFLG 003144
CLKINT 016430 G
CLNCOD 016174 G
|CLRB" 00%30‘
| CLRPAR 025146

C$EDIT= 000003

CSETST= 000001
CSEXIT= 000032
CSGETB= 000026
CSGETW= 000027
CSGMAN= 000043
CSGPHR= 000042
CSINIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016

($QI10 =
000377
CSRDBU= 000007
CSREFG= 000047
CSREVI= 000003

CSRFLA= 000021

CSSVEC= 000037

DONi

0000?1
0405
10

000010
040512
82 74

ERR10
ERR;
ERR

014076 G
012532 6
012600 6

= 000013

ALGNQ
040641
ALLCYL= 000001
ALLSEC= 000002

ER%S

ERR

ERR
ERR8
ERR9

EVL

FHTSI

16 6

12766 6

01 9?6 6
013 g G
014032 G

= OgOOgL G

012

FSINIT= 8%828
FSJMP =
F$MOD = 000000
FSPROT= 000021

FSPWR = 000017

FSRPT = 000012
F$SEG = 000003
F$SOF T= 000005

FS$SRV = 000010

GSDISP= 000003

DRVNAM 8882
DSESTA=
00
DSMSK = 001400
DSPCOD 014342 6
EF.CON= 000036 G
EF .NEW=
gz G

FMT4
FMTS
FMT
FMT
FMT8
FMT9

011556
011567
011607
011651
011721
011753

GSPRML= 000000
GSRADA= 000140
GSRADR= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020

EF.STA= 000040 G
ERHEAD 003012
ERLIM = 000010
ERLIMG 040735
ERLIMYW 014336
ERRCNT 003160
ERRPOI 003156
ERRSWI
003016
ERRVEC 003140

FWDSKO=
002000
FWDSKS= 800600
F$AU_ = 000015
FSAUTO= 000020
F$BGN = 000040
F$CLEA= 000007
FSDU = 000016
FSEND = 000041
F$SHARD= 000004

HADONE 003010
HAMEST 007154
HAMES?2
007237
HAMESS
007343
HAMES4 007406
HCESTA= 040000
HCRCER= 004000
HDAL I1G= 000010
HDCYL
002316

FOLWRT= 000100
FRMWD
850232

GSXFER= 000004
GSYES = 000010

t}8835

336300

L10040
L10041
L1004§
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055
L10056

035500
035460
036256
036154
036254
036730
036710
037150
037022
037430
037406
040076
040040
040372
040336

L100§9 0 Sggg

MFLERR
MFMTER
MFOLWR
MFWDSK
MFWSKO

MGTSTA
MHCERR
MHCRC
MHDERR

MHDRCP
MHF CRC

MHNF
MHOSTA
MHSTA
MINOUT
MISTST
MISWI =
MISWIV
MITEST=
MNDRST

MNEERR

MNOCLR
MNOINT
MOPER
MOPERR
MORECE
MOUTIN
MPNAM
MQUALS=
MREAD
MREADH
MRESKO
MREVSK
MRLFAL

—

o P-]

MWLSTA

W
=
VN
N &
—
V= O
ey
VS ON

o
o

MVOL CK

NOOP

23 g3282822 83
&V
3 8333 SSS=RRE
S2IUTRE

MTMBS
MTOSLO
MULOAD

NNO:QW&WN-‘OV‘*NOOW

80524
1096
01071

MSPERR
MSTERR

MDRVST
MDSERR
MERRS
MEXERS

MRSLT
MSEEK

00000
= 000100

MBSET0=

MCERR
MCONHN
MCOSTA
MCYLOC
MCYLUP
MDATCP
MDCRC
MDHEDR
MDLT
MDRDY
MDRERR
MDRRES

flawuoog

g
s
L10031 gg 1%4
s 8
L10034 Og 393

MANQ
MBADAD
MBADSF
MBHSTA

& -t PO WY Ns

(=1- X Xol=]
N

gyu_._ng

perd

002056

016442
025454
053662
030342

L10057
L10060

LSEXP1
LSEXP4
LSEXP5
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
L SNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSSOFT
L$SPC

L10023
L10026
L10025
L10026

g ot

G
G
G
G
6
G
G

ames

LSETP

002020
00%0 4
002030
014326
002114
002014
002012
003036
003034
003040
003042
012530
012576
012644
012714
01%764
013664
013734
014030
014074
014304
016;26
014342
015634
016172
016362
0}6366

SEQ 0134

8288

""N”fi

—

[
3

- AVnnn

O
-

szwmmg $3343=88
E

E§§ hn
88
REREEEE

B
Bg B
G
B
Bt Bt By Bt B
B
B
g Bg B

PARANN

Bt B

LSENVI

LSSPCP
LSSPTP
LSSTA
LSSW
LSTEST
LSTIML
LSUNIT
L.BA
L.CS
L.DA
L.MP
L10000
L10001
L1000§
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L1001§
L10013
L10015
L10016
L10017
t}OOZ?

(elelelelelele]
COO=O
(=111
o md
e el
R
e
—-O00000O
et et
Pt et et
Y
- ANAAVHANO
VN O
OO ONOWNN—=OOOOWMNOOO
OWVIVIVIVIW
=
= O
=2 NN
N = SN O
WO WSV
NN
SO S WSO WVIR SO WM NI~ O &
NN
MWV NONNON
VIS OON\VNOMN
N =
~NNWNOWV
SN
NN W= N NN N =IO
OWWN =0 O NNV
O NNWVMINONIWWN
= VN 2O ONON
PON=NYOO
WOAN
= OO NN NN
=2 Oh = NNV
NO O

014412
006515

L$CCP

LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSDLY
LSDTP
LSDTYP
LS$DU
LSDUT
LSDVTY
LSEF

oo OOOOOHOOOOOOOOOOOOOOOOOOOOOOOOOOE

020000

[212T]

IER
INITCO
INITST

000020
014306
040374
HRDWTS
025176
HSMSK = 000100
HSSTAT= 000100
IBE
= 010000
IBUFF
003764

100000

LPTOS
LSACP

LSAPT
LSAUT
LSAUTO

.00 4-AUG-82 10:30:59 PAGE 9°§8

»
W

100000

LAE]
LAB2
LBASE
LCLEXT
LCLK
LCLKY
LOCERR
LOCYL
LOE
LOLIM
LOL IMw
LoT

007031
000002

HDMOVF
‘HDRCMP=
HDR4O
'HDSEC
| HDSEL
HDWD
| HDWRD1

1 MACRO V04

HDHSEL= 000100

TEST

CZRLIDO RLO1/702 DRIVE
SYMBOL TABLE

OPR1A
OPR1B
OPR10
OPR11
OPR12
OPR12A
OPR2

010121
007616
007651
OPR3
OPR6
007665
OPR?
007720
007747
OPR8
OPR9
007766
OUTINS= 000040
0$APTS= 000000
0$AU = 000000

F 1
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-39

SEQ 0135

SYMBOL TABLE

0$BGNR=
0$BGNS=
080U
=
OSERRT=
| O$GNSW=
'O$POIN=
0$SETu=

000000
000001
000001
000000
000001
000001
000000

| PASCNT
| PASNEW
'PASNUM
'PATTBL

003152
015030
003360
002360

|PART1

= 000C01

PAT1

'PAT10

RELOWT=
RESE3
RESE4G
RESES
RESES
RESPAR
RESTAR

001000
000200
000002
003026

TEMPO
TEMP1
TEMP2
TEMP3

RLCSR = 000000

TEMPS

REVSKO=
REVSKS=
RLBA
=
RLBAS

004764

004766

|PAT3
|PATG

TCERR

RESTBL

005240

| PAT2

040
011300
011304
01131
01131
(03
0147

005026
005066

002320

RLCS

= 000000

RLDA

= 000004

RLDRV
003032
RLMP = 000006

SVCTAG=
SVCTST=
SWAPHD
SSLSYM=
TBLSTR
187

000000
000001
022044
010000
003024
002544

TCLK

014564

TEMP4

TEMPS6

010363

003116
003120
003122
003124

003130

003134
003136

TRPFLG

014556

005126

RLVEC

003030

TOSLOW= oogoo1

IPATZ

005174

RPTOP

023716

TRPHAN

[PAT9

005236

RPTRES

005134

| PATS
PCLK

PNT

POSHDO
POSKhSE

RORWOP= 020000

005176

RPTREM

024712

TSTCLK

014412

RSTRT

014710

TSTLAB

022624
022620

SBSFIL
SECWD

003374
010220

SEQMES
SETDON
SFTPRM
SGNWD
SIMSEK
SPDERR
SPDSTA=
SPTCOD
SSINDX
STAMES
STAMSk=

010253
015056
040550 G
010207
021152
006430
004000
014324 G
003002
010276
000007

TSLAST=
TSLOLI=
TSLSYM=
TSLTNO=
TSNEST=
TSNSO =
TSNS1 =
TSNS2 =

STATE3

011333

= 001000 G

SAMSK = 000077

PRl 005000 G
PRIOR = 880004

SEEKOP= 010000
SELQ 040606

PRIOO = 000000 G
PRIOT = 000040 G
PRIO2 = 000100 G

PRIO3 = 000140 G
PRIO4 = 000200 G
PRIOS = oooggg 6
PRIO6 = 000300
G
PRIO? = 000340 G
PSETNM 003362
PWCON
015300
PWRFLG 003370

P2TO1E

006645

STATE2

RDALHD
RDDATA=
RDHEAD=
RONOHR=
ROYCHK
ROYWAI
READRL

023350
000114
000110
000116
021462
022650
016604

STATES
STOSTA=
SUBSTK
SVCBGL=
SVCGBL=
SVCINS=
SvCsuB=

P2TO2E

040764
000000
ERRORS DETECTED:

024504

. ABS.

011323

011343
010000
002404
000001
000000
000000
000001

000
001

VIRTUAL MEMORY USED:
30464 WORDS
( 119 PAGES)
| DYNAMIC MEMORY AVAILABLE FOR 71 PAGES

. ,CZRLID/C=SVC33.SRC/P:1,CZRLID.P11

TSTINT

016436

177777
000001
010016
010017
010020
010057

040154
037522
oaog 6
040372
0154
25456 G
002430

T$SINI= 01001

125182

002456

T$$SUB= o1oosg

T4.1

010011
010014
010040
010023

T$$SW = 01001

003132

TEMP?
TEMP8

TSSHW = 010015

716.1
T1728
11765%
713953
T187%
12
T25TBL

T$SMSG=
T$$PRO=
T$$S0F=
T$$SRV=

oos1§o

| PATS

|PAT6

T$TSTM=
T$TSTS=
T$SAUT=
T$SCLE=
T$$0U =
T$SHAR=

02
G
ogg 04
030342
030344 G

030364

14658

031450

T$STES= 010055

031532 G

T.0A

003050

003052

16.1

032136 G

T.MP

002276
003060

033410 G

034302 G

T.BA
T.CS

T
T3318L
73658
T4

T.DRIV
T.STAT

017030

TOSERR

006365

TO9ERR

TYiuR =
TSARGC= 00000

110
T10ERR

TSFLAG= 000040
TSGMAN= 000000
TSHILI= 000377

003046
003044

N06S g

15.1
15048

032024
032056

032650

034370 G

V0654

UAM

035024 G
553

UNDTST
UNXERR

036002
0;2156
036156
036260 G
73
036306
036306
036732 G
006605
036756
036756

VECT = 000002
WAITIN 016636
WCMSK = 017777

01
oogg 0
177777
000000
000005
2

T11.1
111.2
11158
112
T12ERR
112.1
71248
m
T13ERR
7T13.1
T1348

WCRNG = 160000
WDESTA= 100000
WGESTA= 002000
WLSTAT= 020000
WRTSWI
003022
WIDATA= 000112
XRDHD
022140
XRDHDC 022130

T$SAVL= 177777

T14ERR

006621

XSEEK

TSTL

03036+

TSERRNS 00031)
TSEXCP= 888300

T$SPTNU=

T$SEGL=
T$SUBN=
TSTAGL=
TSTAGN=
TSTEMP=
T$TEST=

388885

177777
000001
177777
010061
000000
000020

o§s176 G

110i$ 033036
TM
825203 6

114

14.1
115
115.1
T1538
116
T16ERR

037152 G
037174
037432 6
037522
037174
040100 6
006635

= 000200 G

ULOAD = 000010

010151
006350

VESTAT= 001000
VECMSG 040472

XRDHDG

XSEEKT
XSEEK1
X$ALWA=
X$FALS=
XSOFFS=
XSTRUE=

022144

020362

020352
020366
000000
000040
00400
000020

o a0
~ w(+[]-s«[]- WOnN@DoNNOaN«Y0 a~0N
9-379

9-455
9-686
9-774

o o

o S

o o~ ~©

9-284

9-336

-3

8-504
8-761
8-774
8-779
9-521
9-535
9-639
9-705

9-807
9-836
9-909
9-957
9-:33
12

o 0

3
~N

~ SO = e 3

Lo'Ual o v. NU -Y¢
-> b~

— o

> MNONO~5NRRE aO3B@e~2-NNe 9o~O s

lX08~ollN5Oele3"ele0eelIQOoleR3lMelSlOIe8YlReLlellOORe5lplLxrwlOl8oeNla3lc,f-lan¢ YWTNTO —Pa0 oYT
(NfONOI <0M-N ]Li[ )D[ OONITWVNWBNNOTN]WO~nIMMOSDHL OVNNvi[OO}yNYY @oooH)[0
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE S-1
CROSS REFERENCE TABLE (CREF v04.00 )

61N

SEQ 0136

H 1
CZRLIDO RLO1/02
0/
DRI vE IEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE $-2
CROSS REFERENCE T
(CREF v04.00 )
LE

7-703

SEQ 0137

8-17

8-623

9-124
9-318

9-668

9-927

8-627

9-158

8-635

9-330
9-698
9-942

9-143
9-474
9-710
9-985

9-:52

7-215

7-549

9-739
9-254

9-805
9-344

oo N

9-889
9-495

9-931
9-587

9-609

9-671

9-745

9-822

9-895

9-118

9-278

9-303

9-339

9-358

9-376

9-391

9-451

9-491

9-529

9-815

7-229

7-244

7=259

7-364

7-378

7-400

7=414

7-428

8-:84

8-<00

8-<04

9-245

9-300

9-316

7-568

7-572

9=-05

9-:83

9-:51

7-575

9-171
9-867

9-182

9-212

9-224

CZRLIDC RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE S-&
CROSS REFERENCE TABLE

CS00MS
CSSEC

SEQ 0136

(CREF v04.00 )

7-96#
7-994

8-497
8-622

8-782

|CKDATA

S=344
7-97#
7-93#
8-526#
;-3‘0

7=-607+«
9-556
9-629
5-:31

7-615+
9-605
9-693
9-:06

CLKADR
ICLKFLG
‘
CLKINT
,
{CLNCOD
|CLRBYT
CLRPAR

6-2
6-232#
9-316
7=752¢#
9-476
7=710#
S5-31#
8-<12

7=214

7=487+
7-483+
9-328
9-114
9-508

7-228

7=243

7-258

7-363

7=377

7-399

7=413

7=427

8=10#

7-489+
9=426
9-136
9-651

7-495+«
9-458
9=147
9-717

7-527
9=476
9-171
9-867

9-114
9-508
9-182

9-136
9-651
9-212

9=147
9=717
9-224

9-171
9-867
9=245

9-182

9-212

9-224

9=245

9-300

9-316

9-328

9=426

9-458

7=610%
8-<58#

9-:70

9-:;70

COSTAT

3-26#

9-26

9-69

CRDYMS

2-86#

7-282

7-645

7-695

7-716

8-35

- 8-56

8-892

8-898

9-446

CSR

2-8#

3-572

9-:72

9-;72

8-273

8-823+

8-<1

8-<52

9-951

9-:29

9-:09

9-625+
9-:08+

9-662

9-664

B8-45+
B-151+

8-46+
B-504+

8-47+
B8-504+

CAFDT

CAMSK
CCYLUP

'CDRDY
CHOSHD

| CKERLM

CNT

7=-98#

-Zgg‘

2=13#

8-611

9-843

7=619+

9-:70

CYLWD

7=-374

8-<11

8-<50

DATACM
DCKERR
DCLIM

2-46#
2-82#
=214

7-312

7-336

DESDIF
DESHD

6-185#
6-187#
9-729

8-266+
8-304
9-731

8-280+
8-367
9-879

8-289+
8-526*
9-881

8-296
8-529+
9-890

8-359
B8-538
9-892«

g—<08
=540+
9-92

8-887
9-932

8-<08
9-934+

8-<11
9-977

8-<52
9-:06

DESSGN

6-186#

8-265+

B8-276+

8-279+

B8-285+

B8-301

8-364

8-<08

9-740

9-742¢

9-;42

DIFAUG

6-181#

8-252+

8-260+

8-271+

8-281

DIRBIT
DIRMSK
DLTERR
DLYCNT

3-7#
5-35#
2-80#
6-2314
8-99+

8-303
7-§O v
7-316
7-651+
8-99+

8-366
7-616+
7-651+
8-99+

7-651+
8-116+

7=721%
8-116*

7=721%
8-151+

7=741*
8-151+

7-753%
B8-151+

8-504+
9=147+«
9-245+
9-458
9-717+

8-504*
9-171
9-245+«
9-458+
9-867

7-651+
8-99+

8-779+
9-171+
9-300
9-458+
9=-867+

8-779+
9-171+
9-300«
9-476
9-867%

8-779+
9-182
9-300+
9-476%
9=:74v

8-289

7=721%
8-116*
B-779+
9-182+«
9-316
9-476+
9=:74v

9-114
9-182+
9-316+
9-508
9-:74r

9114
9-212
9-316+
9-508+
9=:74e

9-114+
9-212¢
9-328
9-508+

9-136
9-212+
9-328+
9-651

9-136*
9-224
9-328+
9-651+

9-136+
9-224+
9-426
9651+

9-147
9-224+
9-426
9-717

9=147+
9-245
9-426+
9=717+

J 1
CZRLIDO RLG1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE S-4
CROSS NEFERENCE TABLE
DONE

6=1474

'DRDYMS

2-89#4

DRMSG
|
/DRSB

DRSELT
DRSET
DRTYPE
DRVCNT
DRVERR
DRVNAM

DSESTA
DSMSK
DSPCOD

ESEND
ESLOAD

2-12#
9-:78

8-79
9-:924

8-95

8-144

8-97

8-114

8-168

9-511

9-:76

2=26#
3-12#

6-180#
2-78#
6-388#
9-355
3-28#
2-85#

7=4614
1-8#
1-8#

2=5#
2=5#4
2=5#4

2=-5#4

2=54

7-541

7-55%-

7-421
9-516

9-478

3-38

9-466*
7-697

9-647

9-469
7-719
9-696

9-:7

9-:76

9-35?

7-578

9-403

7-582+

7-690
9-761

7-655
9-527

8=371«

8-.87
7=585+

9-233
7=-701
9-772

9-423
9-563

8-15

9-460

9-780

8-<48

9-17

9-60

9-98

9-102

8-376

8-595+

8-606

8-777

9-241

9-273

9-276

9-284

9-336

1-17
7-572
7-575

7=544
7-568
7=549

WCaxwraYxiMawTxiO= aawxnawNTw~YeYW<og
vSNMooOO8oNOLOl=N]y09Ri& OLTNPl%E[9OAA\8INswO@v@~4mT9Oyo oo-NT\&ou1t[OahhY*
WOoo1V00I1M0N0ON g] @W~VF ~o-L] e[
O o @ oo
oYO%9o[] oMoP Noooo ] o.3oooltfl

4@~TO.n]P0f%Nwl50iOEf”1(N)]l“7m0“40N«9N][]}1y&N5[£D12S~)5wB[iA%e0A3lt%L'f]5.Ql:it0b

EF.CON
EF .NEW
EF .PWR
EF .RES
EF.STA

8-61

7=746"
9-427
7-648
9-632
9-.94#
9-:76

9420+

SEQ 0139

(CREF v04.00 )

OMWw-eoOv— M@O0

m-7€3829~o%n

7-366#

ERRS
ERR9
ERRCNT
ERRPOI

7-402#

6-240#
6-239

7=-555
7-192+

7-560
7-204+

7-581
7-218+

8-510+
7-232+

8-788+

7=247+

7-264+

7-367+

—

hN-el ]“N

7-381+

7-403+

7-419+

o M~

oMOwmnOow0 wMo o~
Ooo oa>w. ovo-

X -

o=282

7-560+

7-581+

MN~

7-586+

K1
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PA GE §-5
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0140

1-8
7=141

7-443
7=760

9-237
9=-344
9-455
9-580
9-659

9-739
9-820
9-889
9-949
9-:83
9-:63

FS$PROT
FSPWR
FSRPT
F$SEG
FSSOFT
F$SRV
F$SUB
FSSW
FSTEST
FBSFIL

FMT1

FMT1.1
FMT11

FMT12
FMT13
FMT14

FMT15

1-8#
7-378
1-84
1-8#
1 -84
1 -84
1 -84
1-8#

7-189
7-380
7=471

7-201
7=400
7=475

9-<13

1-8#4
9-587
9-:11

9-<03
7-739
9-268
9-909
7=444
9-7
9-592
9-:16

9-334
9-931
7-458
9=45
9-609
9-:95

7=104#
7-105#
7=114#4
7=115#

8-<25
8-<28
8-<31

;84

8-<38

1-8#
9-889
1-8#

6-252#

7-116#4
7=-117#4
7-118#

7-748

8-<08

7=422
7=-349

7=424

7-203
7-402

7-229
7-428

7-231

7244

7-246

1-8
7=201
7-459

8-4

1-8
7=215

7=461
8-<68

9=254
9-349
9=455
9-587
9-667
9-739
9-820
9-889
9-949
9-:83

9-254

9-237
9-659

9-266
9-667

9-;64

9-349
9=475
9-587
9-671
9=745
9-822
9-895
9-949
9-:84

9-;67

7-259

7-261

7-364

7-36%

9-805

9-807

9-820

9-836

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AuUG-82 10:30:59 PAGE S°k

CROSS REFERENCE TABLE
FMT16
FMT17

FMT18
[FMT19
IFMT2

[FMT20

[FMT21
FMT2
FMT2
FMT24
FMT2S
FMT26
FMT27
FMT28
FMT3
FMT4

FMTS
FMT6
FMT7
FMT8
FMT9
FMTOP1
FMTOP2
FMTOP3

FOLWRT
FRMWD
FWDSKO
FWDSKS

GSCNTO
GSDELM

7-119#
7=120#
7-121#

SEQ 0141

(CREF v04.00 )

8-:67

7-335

8-<00

8-<04

7-1%50
7-126#4
7=-127#
7-128#
7=-129#
7-130#
7-131#
7=-107#
7-108#
7=-109#
7=110#
7-111»
7-112#
7-113#
7-101#
7=-102#
7-103#

8-<11
7-654

8-14

7-358
7-302

it
7-421

8-<50
8-<52
8-<51
7=-530

7-688

7-699

7-691

7-702

8-16

7-655

7-690

7=701

8-15

8-<48

9-761

8-.66
9-60

9-432
9-98

9-489
9-102

9-763
9-276

9-765
9-284

9-767
9-336

9-770
9-352

9-813
9-516

9-527

9-772

8-99

8-116

8-139

8-151

8-159

8-316

8-380

8-493

8-504

8-605

9-339
9-339
9-<05
9-339
9-<05

9-376
9-376
9-<09
9-376
9-<09

9-391
9-391
9-<11
9-391
9-<11

9-451
9-451

9-491
9-491

9-529
9-529

9-815
9-815

9-451

9-491

9-529

9-815

9-339

9-376

9-391

9-451

9-491

9-529

9-815

9-491

9-529

9-815

9-389

GSDISP
GSEXCP
GSHILI
GSLOLI
GSNO
GSOFFS
GSOFSI

GSPRMA

GSPRMD

GSPRML

GSRADA
GSRADB
GSRADD
GSRADL

9-303

9-339

9-358

9-376

9-391

9-451

GSRADO
GSXFER
GSYES

9-:78

9-.80

9-<05

9-<07

9-<09

9-<11

8-208

9-423

9-460

9-780

GBND
GDRSTA
GE TPOS
GETSTA

——

mn
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE S~7
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0142

GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
'GSTAT

5-4#
2-3#
7-141#
8-4#
8-3610
9—%%5

8-102

8-154

8-160

8-489

8-500

8-614

8-762

8-775

9-630

9-637

9-694

9-703

9-844

|GSTATC
e

8-81#
8303

9-108
-3

9-123
=353

9-151
o533

9-165

9-176

9-188

9-197

9~ 206

9-21
218

9-239

9-289

9-310

9-322

icsrurn

8-80
3-731

3-234

864
9-42

9-67

9-93

9=271

9-509

9-596

9-622

9-688

9-809

9-838

9-911

9-959

(GSTER1

6-409#

9-406

HADONE
HAMEST
HAMES?
HAMESS
HAMESG
HCESTA
HCRCER
HDALIG

6-148#
7-11#
7-1284
7-138
7-14#
3-34#
2-83#
2-27#

7-562¢
9-763
9-765
9-767
9-770
8-108
7-299
7-541

9-421

9-459

9-779

9-:00
8-369

8-889

9-790

9-794

8-734

8-817

9-935

9-938«

9-939

7-623

8-257

8-259

8261

8-283

9-:46

9-:25

2-3

- 34
7-429%

3-37
7-432

3-37»
7=-4328

5=4
7-441

S=4#
7=6418

6-353
7-443

6-353¢
7=4438

6-361
7-459

IGTSTAT

HDCYL
HDHSEL
HOMOVF
HDR4O
HDRCMP
HDSEC
HDSEL
HDWD
HDWRD1
HDWRD2
HDWRD3
HEAD
HEADLM

HEADW
HICYL
HILIM

2-35#

5-36#
3-20#
7-8#
2-60#
2-45#
3-190
-84
7-354

6-168#
6-169#
6-170#
2-19#
2-28#
7-455#
2-29%
2-18#

9-474

8-136

8-214

7-609+
9-976

7-306
9-751
7-617+
9-979

8-878
9-969
9-997
8-306
8-<08

7-387
8-629
8-527
8-529
7-621

9-755

8-<01

8-<11

7-613¢

HOSTAT
HPTCOD

8-<50

8-536

WBTY. 5-308° 7-co3e
-

9=759+

HNFERR
HOE

2-81#

7-297

8-106

9-199

9-540

HRDPRM

3-25#
7-432#

9-:67#

HSMSK
HSSTAT
1$AU
SAUTO
SCLN

3-3#
3-27#
1-8#4
1-8#
1-8#

8-738

9-553

9-602

7-679%
7-7118

7-7054
7-7274

9-1#

1-8#4

7-729%

9-:684

9-:82#

1-84

1-16

HRDWTS

6=3614

7-731#4

7-4818

7-6654

7-132

71328

1-16#

1-1

7-141

7-1414

7-429

CZRLIDO RLO1/02 DRIVE

'CROSS REFERENCE

(CREF

v04.00

SEQ 0143

)

7=459%
8-4#

7-461
8-<68

7=-4614
8-<68¢

7-468
9-1

7-4684
9-14

7-480
9-:64

7=-480¥
9=.640

7-667
9-;67

7-6674
9-:674#

7-710
9-;98

7=710#
9-;98¢

7-733
9-<02

7-7334
9-<02#

B8-4
9-<27

ISMSG
|
ISPROT
(ISPTAB
ISPWR
iSRPT
ISSEG

1-8#4
7-3784
1-8#¢
1-8#
1-8#
1-84
1-8#

7-189#
7-380#
7-471#

7-2014
7-4004

7-2034
7-4028

7-215K
7-414k

7-2174
7-4154

7-2294
7-428#

7-2318

7=244H

7<2468

7=2594

7-261M

7-364#

7-366#

9-7

951

9-84

9259

9-268

9-349

9-379

9-400

9-455

9-500

9-592

9-614

9-676

ISSFT
ISSRV
IsSUB

9-<03#
1-8#
1-8¢
9-3794
9-614
9-774#
9-871
9-957
9-:51

9-<13#
7-730#
97
9-384
9-676
9-805
9-876
9-957#
9-:51¢

7-748%
9-51 ~
9-384w
9-686
9-805#
9-884
9-:05
9-:51#

7-752#
9-84
9-384w
9-686
9-8054
9-889
9-:054#

7-754K
9-259
9-400
9-699
9-807
9-8894
9-:05#

7-7584
9-268
9-455
9-711
9-8074
9-889#
9-:16

7-7604
9-268#
9-455H
9-721
9-820
9-900
9-:33

9-307
9-475
9725
9-820#
9-909
9-:33#

9-319
9-482
9-734
9-8204
9-909#
9-:83

9-334
9-4BB
9-739
9-827
9-906
9-:83¢

9-334#
9-4B84
9-7394
9-836
9-931
9-:83¢¥

9-334#
94884
9-739#
9-536#
9-9314
9-;00

9-349
9-500
9-750
9-B49
9-9314
9-;12

9-379
9-592
9-774
9-860
9-949
9-;12#

9-4SH

9=454

9=51

9-514

9-79

9794

9-794

9-84

9-B4#

9-91

8-116

8-139

8-151

8-159

8-316

8-380

8-493

8-504

I1$TST

IBE

IBUFF
DU
1ER
INITCO
INITST

INOUTS
INTEBL
INTHLR
ISR
IXE
JSJMP
JJJ
LSACP
LSAPT
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP

LSDISP
LSDLY

Sog86

1-8¢

9-125
3-259
9-400#
9-587#
9-6714
9-8224
9-949
9-;004

2-5#

6-254#
2-5#
2-54
7-480#

6-410#

2-49#
2-87#
7-624
2=5#
2=5#
1-8#
5=29#4
1=-17#
1-17#4
1=17#4
1-17
1-17#
1-17
1=17#
1-17#
1-17
1-17#
1-17#

1-17
1=-17#

9=750

9-774

9-807

9-7

9-7K ~

9=45

7-344

8-879

9-971

9-144
9-250M
9-405
9-592
9-671#
9-82oK
9-949%
9-:12

9-163
9-266
9-455
9-592#
9-676
9-827
9-957
9=:52

9-174
9-268
9-495
G-609
9-676#
9-B274
9-:11
9-;63

9-B27

9-185
9-344
9-4954
9-609
9-686
9-836
9-:114
9-;634

9-836

9-900

'9-193
9=344#
9-495¢
9-609#
9-745
9-895
9-:11#
9-;63#

9-202
9-344k
9-500
9-614
9=745#
9-895#
9-:16

9-909

9-215
9-349
9-500#4
9-814#
9~745#
9-8954
9-:16#

9-949

9227
9-349#
9-505
9-§35
9-750
9-900
9-:33

9-957

9-232
9-379
9-548
9-845
9-750#
9-900#
9-:84

9-:16

9-:33

9-237
9-395
9-558
9-654
9-758
9-909
9-:95

9-254
9-3954
9-580
9-659
9-774
9-944
9-:954

9-:00

9-254W
9-395#¢
9-587
9-667
9-B07
9-944N
9-:95¢

9-;12

9-254k
9-400
9-S87#
9-671
9-822
9-94kLe
9-;00

\
9-506

2=61

9-593

sseTy

g——

TABLE

N1
TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE S-8

7-739%

7=-679%

7=7114
1-20#

7=4634
7-281

7-651

7-721

8-50

8-99

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE S-s

SEQ 0144

jCROSS REFERENCE TABLE (CREF v04.00 )

8-768

LSDTP

LSDTYP
L$DU
L$DUT
LSDVTY
LSEF

3-779

9-468

9=:74

7=729#

1=22#

LSENVI

e e e b
i e i e e e
LN
A

174

7-433

7-433#

b
b o
b
—

9=-<32#4

e o

9-<03#

e o

9-<03

b d wd od b e

e o o

7=471#

%¢

ONON =
—o

88 Ngmgw-flg

e
ee-

9-.,68#

9=-<29#

6-162#

b=
3

[

9-,68

7-481#

o o

LECTP
LSE P
LSEXP4
LSEXPS
L SHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
L SNAME

9-460 *
9-163‘
-201#
7=215#

74004
7=4140
7-428#

9-409

9-412

8-138
2-896

8-1
-

8-211+
-<51

8-144
g-zg?t

8-208«
9=794+

B8-216
9=797

9-796+

798

9-425

8-218

8-226
9-456+

8-291
9-457

8-354

8-596

8-890

8-.87

8-<51

9-423+

9-424

9459+

9-467

€12

CZRL IDO RLO1/02 DRIVE TEST 1 MACRC V04.C0 4-AUG-82 10:30:59 PAGE $-10
CROSS REFERENCE TABLE (CREF v04.00 )

'L10012
L10013
L1001S
L10016
L10017
L10020
L10021
L1002
L1002
L10024

L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10034

7-433
7-444
7-665#
7-705#
7-727#
7-731#
7=748#
7=7544
7=760#
9-45#
9-79#
9-91
9-266
9-307
9-395#
9-384#
9-405
9-475

L10037

t}ggiz
L10040
L10041
L10042
L10043
L10044

L10045
L10046
L10047
L100S0
L10051
L10052

L10053

10054
L10055
10056
L10057
L10060
LAB
LAB1

LAB2
LBASE

LCLEXT
LCLK
LCLK1
LOCERR
LOCYL
LOE

LOLIM
LOL IMW
LoT7
LPTOS

MLOHDR
MANQ
MBADAD

7=-440#
7-458#

9-125
9=344
9-319

9-334#

9-505

9-495#
9-482

9-548

9-4L88#

9-635

9-745#
9-699
9-758
9-805#
9-820#

9-895#
9-849
9-944#
9-926
9-:11#
9-:05#
9-:84
9-:83#
9-;52
9-:51#
9-;68
9-<03
7=563#
6-394#
6-395#
6=2348
9=426
9-433
7-497
7-509
6=243#
2=5#

=174
-45384
2=5#
5-27
9=<L9
5-26

SEQ 0145

9-144

9-163

9-174

9-185

9-558

9-580C

9-587#

9-645

9-654

9-659

9-667

9-671#

9-711
9-822#

9-721

9-725

9-734

9-739#

9-860

9-871

9-876

9-884

9-889#

7=516

9-114

9-136

9=147

9-193

9-202

9-215

9-227

9-232

9-237

9=254#

9-171

9-182

=212

9-224

9-245

9-300

9-316

9-931#

9-:95#
9-;63#

9-,82#
9-<i3#
8-<51
8-<52
7-515+
9-458
9-4944
7=-509#
7-511#
7-563

7-565+
9-386
6=370#
9=<21#
6-383#

9-476

9-508

9-651

9-717

9-867

9-328

D1
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 %-AUG~82 10:30:59 PAGE S-11
CROSS REFERENCE TABLE (CREF v04.00 )

MBADSF
MBHSTA

6-384#
7-58#

9-32

/MCONHN
'MCOSTA

6~400#
7=57#

8-59
9-§g

[MCYLUP
|MDATCP

5-17
5-15

6=-375#4
6-368#

MBSETO
'MCERR

'MCYLOC

3-6#
5-39

7=-73#

'MDCRC

7=49#

'MDLT
MDRDY
MDRERR

7-51¢
7=4L6#

|MDHEDR

1-16#

5-40

8-307
7=474

7-386

7-318
8-496
7=53#

6-398#
7-63#
5-54

8-43
7=-371
7=624

MEXERS

7-78#

8-14

MFLERR

7=79#
5-42

7-302

6-385#

MFWSKO
MGTSTA

5-25
5-9

6-381#
6-367#

7=48#

7-304

5-21
5-23

MHCERR

5-48

MHDERR
MHDRCP
MHFCRC

5-43
5-16
7-52#

MHCRC

MHNF
MHOSTA
MHSTA

7=-50#
7-60#
7=-55#

MISTST
MISWI
MISWIW

3-4060
-16#
7=445#

MITEST
MNDRST
MNEERR

2-31#
5-45
5-41

MOPERR

5-44

MINOUT

MORECE

MQUAL
S

MREAD

5-19

9-71

8-6 0
9
5

8-770
9-565

9-249

9-628

9-646

9-692

9-712

9-842

9-862

9-<09

9-353

9-480

7-714

MFMTER

MFOLWR
MFWDSK

9=-54

9-79

7-314

MDRRES
MDRVST
MDSERR

MERRS

9-159

8-370

SEQ 0146

6-378#
6-380#
7-67#

7=-704
6-369#
7-310

7-308
9-196
9-555

9-542
9-604

9-660

9-727

9-877

9-921

9-14
9-<05
7-541«

9-57
9-<05
7-563

9-157
9-<05
7-621

9-194
9-<07
8-527

9-247
9=-<07
8-536

9-<07
9-12

9-<09
9-55

9-89

9-<09
9-264

7=-541
7=744
7=724

8-<26

7-&9’

7-301

7-347

7-350

7-355

7-358

7-617

7=425

B-72+

9-968+

7-422

8-<25

6=377#

=-1504

7-340+

-13

6-3634

MREADH

5-11

6-364#

MRSLT

6-373# 9-302

9-403

9-503

9-549

s§N-RNEaseh3&3L2la0234(-— ~NNN
mogmn4IP~ow“x][-«m.4.nRl3SmN&‘]~3n-eL4[+fl.1oo“a4AW3n3l9[a90'.a]\-Mi4Lnoa‘}«lm%i~3fdlvTslesc7eJATugRe43e&%S2oOo7weNM~0o§[ yN$3o0oRWo398a5¥3“872”W33T
3

| —

oo W

fomsW~eMdyasni4dwMeya1wnW.DMP&H3woU]Omm1TrBIW%wTdD®S3BmdTRnRA OI35RmuB2IywMnA5T~sm&U00OIAw*ewO%Nemn[®8®VT#sMTO mfV3-nliR8SA -0 T1 -3 u]2I4mnDR2mS.uaTwAmV«IwmuN9~=nwTn®3m8&©°o9Ioo3XaS[m}°w3Lunm5Tt>feeiMR0m33+ PRS-W0bl5@=L3~mmtwb"5TAS0A.-©L*LnUo>GeoCSwmDwemR%r.bJRwRdi~ooq1 iew~~OmlsQedufxllwibmx®Asad5N xnin~<fis4Em[-y~- xloo
])oo] '¢ oNo E3d O~oeo[O0y*0t o-wr20o»%)0*
oNSb~-)7y -@o ®o »g Aoo Oo . s0p—OoM0ok)SW~tpoOo0tM4- o®@5o©&<-~-A—~'
@ 0 0 ©"
IVE TEST 1 MACRO v04.00 4-AUG=-82 10:30:59 PAGE sz
12

(CREF v04.00 )

SEQ 0147

8-551

~E3

9-279
9-391

8-<09

F 12
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE S-13
CROSS REFERENCE TABLE (CREF v04.00 )
OPRIA
‘OPR1B

7-29#
7-30#

9-17
9-373

9-60
9-449

9-98

9-102

9-284

9-516

7-214
7-228
7=¢

9-35
9-373
9-389

9-389

9-449

P2TOTE
P2T02E

6-418#
6-419#

9-:18
9-:01

PART2
PASCNT
PASNEW
PASNUM
PAT1
PATIO
PAT2

6=198
6=237#
7-576
6-241#
6~
6-12
6-4

|OPR2

7-18¢

9-60

'OPRé

7-20#

9’§72

'OPR3

|OPR7
'OPR8
OPR9

TINS

PART1

7-19#

2-504

1-1#

PAT3

6-5

PalS
PATE

6-7
6-8

PAT8
PAT9
PATTBL
PCLK

6-10
6-11
6~3#
7-483#

PAT4

PAT?7

PNT
POSHDO
POSHSB
POSHW1

PRI

PRI0O
PRIOT
PRIO
PRIO
PRI04
PRIOS

6-9

2=54
8-735
8-736#
8-734#
2=54

9-336

9-102

9=276

SEQ 0148

9-284

9=336

9-355

9-516

9-527

9-772

9=501

9-551

9-527

2-61

6-405

7-465

8-399

8-556

8-656

8-835

7-629

8-340

7-580+«

7-634

9-10

9-53

9-87

9-262

9351

9<401

8-737#
9-624
9-922

9-661

9-683

9-728

9-878

7-703

8-17

9-408

6=424

7-580#
7-554%
6=257#
6-3514
6-258#
5=2754
6-2924
6-309#
6-313#

7-9

7-54

7-92

7-462

8-931

6-3304
6-3324
6-349#

2-5#
2-5#
2=54
2=5#
2=5#
2=5#

PR106
PRIO7

2=5#
2=54

PSETNM

6~ 4;0

7-561e

7-683+

7-584s

7-587

7-658

7-692

PURFLG

6-24

7=-546%

7-591

7593«

7-641

7723

7-725¢

9-600

9-753

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~-AUG-82 10:30:59 PAGE S-?k .
1

CROSS REFEREN CE TABLE

SEQ 0149

(CREF v04.00 )

OV~NNO
OMvV MO N N~U.
U]
NNOOOO
N
N
N
AFTR NS “Rex

8-<48

o[—MTe=MOVN NMvoununNnOTe—oMONWnI

9-60

8-97

8-149

NN NN
O NO O NN
Ld dade il
NO O NO AN
3am=-23 233

QRChRls R
YMOONWVINO ROrD=o®e=

-%—.OW%)UmnLNeUO

-. -%0U].L0 Ls0U8 Ls80U80

9-17

Gey %L]UTON I91VIYLs oRBw .42'347

STAMES
STAMSK

STATE;

STATE
STATES
STOSTA

SUBSTK

SV(BGL

—

8-<11
8-292
8-:72

9-<05
7=400
7-566
9-<02#
7=344

8-<08

6-408#

9=-141

8-3434

9=-<17#

8-:66

7-579

8-355
8-;77

9-690

3-31#

8-108

9-139

6-143#
8-577

7=543«

8-87
8-644+

3-234
7-89#

8-143
9-158
9-195
9-248

8-225

7=41#

;-g?z

3-32#

9-4888
9=-7454
9-:83¢

7-458#4
9-62
9-303
9-376
9-491
9-805#
9-:95¢

7-6654
9-62
9-303
9-376
9-491
9-815
9-:51#

9-796
8-<06

7-584#

9-626

7=4430

NRBun

+a]l"alL MM
SEEKOP
SELQ
SEQMES
SETDON
SFTPRM
SGNWD
SIMSEK
SPDERR
SPDSTA
SPTCOD
SSINDX

2-36#
2=57#

9-840

9-913

8-91+
8-751

8-246+

9-961

8-243
8-790+

8-247+
88

8-328+
8-812+

8-344
8-824+

8-348+
8-868

8-387+
8-872+

8-479
8-918+

8-483+
8-;63

8-512+
8-:69

8-346¢

8=347+

8-481¢

8-482¢

8-579+

8-580+

8~753e

8=754+

8-810+

1N3O;¢)4O§4)Q£No‘M4fl3)*%5t“&i5f“it4z%b65tz)1a5c%o:6h1;6k<=6)l¥67lnflWNO1AV1AV¢eeveeveoe=V=eTMMTT—SNTONMTNO~N=—==e=e=e=e—
S=OS“Nl=m5oS=]ON-seS0\N2SoON.s?2NS1NDO3U52NS“O0D6V”NSW7IAOS6AFNW74VSWNo=B&SZRvAI7MG%SW?N~NYTNW75ISNFO6O2fOO8Ni~S6MV0“N05MS73O%“17N5mNS“%N27SoH=N%7”27NSG0mOO7N26WINOA670NNO3N067‘=%Y‘“N375e6N,871.22N5’“M0522O573N52“5A67NmN8NA7OM—”O=9NAOR=0”N5NOmO-M8AVNoONAMAeNOAAN—NMr—AmrNmOArNNeMrAOmNSPrAS-NTrOmOANeN
ONNANNNANNNNN

YN—NeeRNLUAeeNRNeSTUNOeASeNoNUAoSRneNN0LeASONn.NeS4N=wewS0U iiN4SNnPN4NeS~SNNP4SSv=P4NTFAe~SF4NNeAOOUSNSGAPo04STNeA3%LNMaMPl.STAlAeUNa4MMlyNSNTealRN~eNTYFSS4NTY((eSNSy2~SNAYT00PNvRNYe=vS.NAeSvv04NA0PNAN0P4NA=NeOYTSAAP4NNeANN=AAe=4NNAAORP%eyt14ee1.14T1.1414BTNOOYD4NMMTN%OOONOAMA4NNNA=%OMNOCIANMODN40NNODN6GO.—4\—.eeTeJe—Te—4—eA%—TeBIe-Be~%B00%e—L&0Ur
RN0—A8\0SN=ON0r0S0BOOSNOeON=AFOSNSMIUUNrmSONSRUNOS=F RrOSRUUSmNRMU(NUISNISSOSrNTSO[NSNB"4NOeNeS'N\SeAeSeNDOSONAoNSArDNLNeNSRNASeNADNNAolDBoRlNBBBU oABBlBBelBoNROlOBeAOe—SUDUoSUNLSTU—UNSOIOSADUU0AORLoRNoBlNBBNoOlBIolRolBUkIoOlLBI(LBoUk
NR~TRNeN0==o=FWOIRONTMRMYOIST=NOGOO= eNB=N”1N2seeee
NUBOIe)N FE(1UDRIeON

H 12
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PA GE $-15
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0150

;

NND0O=N-ONNGONMOVOOO

muMEMEcL:>4omuv1Lxh”umu”nwuwuflwuamewnv1:1!:uflflmn-onanhnuumwmuman|)mfiazuflk;n::nnnr)srsrnuta
1oOF<2A<“3NN5<Vv“A‘5\«MA47<51ON(2<58S<V5M79M<0m”<90“<w1O¢52S|37S1“§7wLnm85s”Rw“317568“N7”“1Q9W3M50D109“l.711D21S!“—.ON312OO36D‘41VDO543T65Mo9=539O5A1T542MO35A7VN50%O5*9Oo761OO203-“BN9T9NT“M=N0—-S0NN2NS3OO
0OVVoN~1eeO2VVl~INOv4WSWe\VV5DROtVDIt~D7VGVdOAe”GWe01GOOV2NVTGO3NI€V05=NGVOVPGLNO5tG0O7ItVG0OVD1tGAOZVRGOMUs1GONe-2GO9eS3OA5GTONMGSOWNR5N7SO07OGO2174vO2aGOG“ODr-78G7O7OWGW1ONS9GO8ONUGS1NONTG91OWGRM“9ONO0SGPVH1OOM2GRN&1O3MGOW1O“GONM1O7VG01O7OGe0O1M8GO1RO1%eOGHO3R1G2vO36OG“O373GR03M”GO“4GOO50A5GO06WGOeNO6AfTGD%NiG065Ge0E7A5(r\N7ABe7Ir7\L0~—aN]O7A9©A~
uOO7b7D0BNOyYD~OYVy77OODDOT=o7WbO=7MD7\O88A\ADADVDG300v’R8VATG0OO2V0NWRA88SBOAN00RYMoGD81A0OO0oD8’8RDGV1G0.OOOG3GAAA8O008R8=76GDSgOONAWGGNAdR\ON0Va88DGMrRX2TOv0=MC8ATAGGO088018RAGD0O[GR8G0OO8A8A€G0OO33AG6G00O88vMGGIAO0SRWSOG00NO88NVCGG0OOYIOGG00ORMN88MGSG0NOO&GAO00NO183=TDGS0AMO1~8~SDGR0OAO6TVGYAMMO0MW88WGGFUNOOTOANGOS~RNOOM88ASNGOOD8G~WGUOFN8LMGGOO08BOBGMO087SGLO0O8V~GG©R0O8NOGGTMO0TA3OIGMGOO83~ORGGOONO0M8’OGVGOIO8—GNG==OOR8NNGGVOO8IOGVG0OO8OGSDOO8~OGGON8GGO08IGG0O8CG€Q0OO8G€Gb0D08D6G00N8M0e4GI0\0Ri-8’\L\A00-~-a99Ol=0A0eIal\~0AaM0l909A-aMAO~'
~oYrvYyTYb~Y—NNRIyyNLYATOyyWAUNANOERyDy0EOr0AyyA=UNsVAyRoWA=YRvYyA=yaTeNONRMNTMNTSVWWONIRPPA8NMIkNeMW P"M ooAIA
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRO V04
(CREF v04.00 )

.00 4-AUG-82 10:30:59 PAGE S-*b
12
SEQ 0151

[

N‘%Z‘s6913No”5.l7.12(8u's9t0.0“1s23s“.7)?8”o“’)7“

[

vO=M=W

=OV-

mg0mSwuC%oN«RewOBARRRSRSRRRER,R0DNLRIRTNLYTAAYNSNLRSTSoeo-3GOVGOvOOvOOMN~FOOMNN0V=NOMOTMON000~N
SO7mW-0eGy.0OnN020m7-MONT8I.8NNO.e0=0NSMe“-OOS5N.QC“0D-R”~AF“.ONNLWMIWNNAR.fANI.lNDG&—IO“N0.M”.&I0O“aP%.,00“-fM.iO2”-N“.L-h2.nNO0S~u20w.0m%M~0w.ONIfN0S.IiPNWmT“%MENS~OMMmN%AOfDiONSf.SINiN-NOr%NTfkrT2Sib—79N0-RfM.0lIbTOSMhNT.oOOfISNglTNu.fNl-OfeC.OlgN”ef.TiMS7n
dO30B03ON3O43OMN3~FNO3GOM33OO3M©380O308d3d0IE©ONLINS4WSOEI4dSE=EMLE0L~EO87LAeNOLNELILIILT

3FTO35eI0s7yOS07VTY3O03TO932=5NI5M04OTO310yO.SNIN3OO6M3ONs3eSRI=OAeN8AtSOO3NNOrRE0A8oNeyVON,Ae8LIMCoeMRN8MNOoMDR-t3eMJ2M8iO20e2M40Met8SO,dNMAMONUdMTL00OOP1dyOON.0N,0I0dLDBN1NETL(=LSTVENNLRGTo=TEY=NI7o1N=0LFLvI0y=VISBe=OE=SOO1I0MPv0NLrO=0ERSO=d00vAIrOQ=eTySvO0dIBOsldINoTMIOTIOLNoIOTN
IoO3S0CeO0OsI8Oe1OICgO3]YoCOAPSEOeeCITDOLCoODEOROOoOOASRR ROYSPOYYNOMoOMYOVSOoFCyOMOMOOTOsoeOytcTaVpTTTrTRTge TPSI
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~-AUG-82 10:30:59 PAGE $-17
CROSS REFERENCE TABLE (CREF v04.00 )

J_12
SEC 0152

I3334333333838EdELdITLEIELE4LELLaLILITLIL LI33E343E3333IA3I8d8dLId3dLIdd IiEd383dd3333E3d8Lddd

DOODN0-8O0807<8V<3ORvPIMSWP12O“O”INMBMIONR=D=DUNQOWBODNMOATTOIVOOeNDO
mV%1sAW7PaPVn"8s0saur)nsP”81dteant9NrsaarT0dZntPca1e<S%atVce3aRtyat2M"YPlaal6s2sPteT40‘sPd56e)s4Py'087#97PA&d=00P8P70ANvT\“3%v.41P6AooV“1di-”-M.35M3tWP~”o5oS.6%Te9dm31.eno0ASP3roDDwP10E2.m0dTMA20D2%.NDR34N85S&.3dN“N6nAaT.)AL6%N2nlNA76.d1N7%RfN”N.Wl1m”7nNAd1.A“N1%bN-nN4o.o”N5“N~5~0d”“.6o1]%e7Rl8.%”OA7i2%8”dUM.L233“M2ORAM.4G“O%[”9wO R(fA"Ra.n3l"SlUa1a73"(fs).nA7lT&8Aa.41NR“vn65e.S7OOYo%0N.o28PW7N=G0YOO.PG0¥Wt0
ogIMOPCOo~sYTnrosOOOqGeMoN1YOynp1eIOtCe0aPe3tNs0OaynaR1PCr2anO-p r3BP~My0nC.0PMn<O03Mot7OPo5.<30+3CvPoO=o6+0.Av5R17P+0ONVSPO3nNP.NOFOnG\NRPOOsMNONIPOAIORIW0P0NOAOI)0IIN60A0.006Pr0vC“=00TPO0~N96.AND00OI06D0OG0OGGr.00DePOIAPMrAM0O00DIMWTIOB0P0AY0DPNeOONPCIO+TeSPTIPr—vONe©-OOe©N--MO-ie—AAePIMP=A0eeiNMe=IAPOPNNMNO=PPePC0MTOP2PN4NPMSeeONITeFO7AO02PeTCNOIy—DOOsiGTyNONMYRO0OPNO0AN—0MCNDOPI0OO=NR7OOMO~NAC<T-D~F&eID1LLe OOFFO2OalTiaNNlRN0’aOlN¥PAsWlONN1AlOOClODANNROOTENN=DDLT0GONOlO=A=NTTN0OODLTNMDYLO~A Ni
VLSAPN
PNTA©NOOIMPUOAOTAONR-IA.OD—=ePAT0-NN20TNT-vSOSIIGRO0-DTGe0vOOeSN7-=IPe~TTSN\-RFRI-AtYeOIR0IA0oeNOyIeGOLII eee oD0l—t0
rAAeyYv2Ry-PPBOrPYNyReVrNPy-yVPN2CYPi3yMeAPY-27oVgPO<Nv<sP-7PeCysA-<8PeOT=T-8VyOPP0vSIePMOeAsAYAPF-IMAPBTIMRCPUAVRATPLI-OATPAPNTRIA=NPRNPDT-SATIPOR-GTTOPPNAeOT-N-PIRTPOT-AMOPINOITPMAT
VPYO~On1TrOeOc0aNc~FarOaNcIa0EVwVNBes ~¥0+oF=AWoNAOO4WDANANoM7WM00O0A06NA0ON62A0GUOGD00IO0UO0AMDIMAIA©©OANAARMNY==Ae==NMMAUUAINPhO-hOPNOO0OSOON VNA T¥¥
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE S -18
(CREF v04.00 )

K 12

SEQ 0153

bTSAPiINGeotDRhe 8ITLerA¢)a!0y1rasrrY PVIRNP

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

L 12

TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PA GE S-19
(CREF v04.00 )

9-84

T$SSW
TSSTES

T$ARGC

9-909#
7=444
9-7#
9-227
9-548

9-745
Qw52
1-

1=-17#
7-335
7=349#
7=-358#
7=422
7=4L224
7=4L24N
7-655
7-690
7-699
7=701#

8-15
8~-:66
8=:71#
8-<04
8-<08#

9-<03#
7=-748
9-307
9-734
9-926
7=4L44H
9=45
9-232
9-558
9-750#
9-.63
1=-17
1=-17#
7-335
7-349%
7-358#
7-422
7=422#
7=424#
7=-655#
7-690
7-699
7=701#

8-15
8-,66#
8-:84
8-<04
8-<08#

9-<13
7=752#4
9-319
9-739
9-931
7-458
9-51#4
9-237
9-580
9-758

1-17
1-174
7-335#4
7=-3494
7-358#
7-422
7=4224
7=4244
7-655#
7-690
7-699
7-702

9-259

9-349

StQ 0154

9-400

9-500

9-592

9-614

9-676

9-750

9-827

7=2464

7-259

7-2614

7-364

7-366#

7-378

7-754
9-334
9=7744
9-957#

7=-758#
9-379#
9-805
9-:05

7=-760
9-384
9-807#
9-:33#

9-455#
9-850

9-:83

9-475
9-8364
9-:12#

9-482
9-849
9-:51

9-488
9-860

9-686#
9-871

9-699
9-876

9-711
9-884

9-721
9-889

9-79
9-254
9-587
9-822

9-84#
9=259#4
9-592#
9-827#4

G-91
9-266
9-609
9-895

9-125
9-344
9-614#
9-900#

9-144

9-163
9-395
9-645
9-949#

9-174
9-400#
9-654
9-:11

9-185
9-405
9-659
9-:16#

9-193
9-495
9-667
9-:84

9-202
9-500#
9-671
9-:95

9-215
9-505
9-676#
9-;00#

1-17
7-302
7=3354
7=349#4
7-421
7-422
7-424
7=4244
7=6554
7-690

1-17
7-302
7-3354
7=349%
7=421
7-422

9-349#
9-635
9-944

TUPTEYTS.%3424%444.34flfi:wTNTYTYYYV
DSTMDNAN0BO0N0ON0O0l.'.“u.“l.ws.y2.9“.71.72y.'3.81.90.4w.l.1.7,.m:.nu.w%u.o.z.N.O..~.—.N
N7VOUi“B—N3INS62NbOT40W7BVVO2P7O|NWV1=NOBI3NtNVaVIr0mNflo'3N“Ooe“59=v21Mo58uIb59Nne41OW”3Nb5ie1.4R685U.3(0O5N1T407%N12058BR39'0IW827“8=370W5R7—"oNUi8“nNRO4”NI10BN2”ON62V”BO7‘VSOV0vw72rV36N\47VbOe69TiE51Os3E7¥SN9A—Ne0R6—NJ7OLWI1kME5”O27RM~393—
S&F2O»~BZ..T“»g-~OMN0oON0O..8O6B¥7t%IND5BTFW.7N5&BO.FIOOg8B%.nB6BN.OTMNaM5-BO.OIvN%4®RYd.5=B.u7A.1RN5T-.o35.S.5]9LL.M1.3e=-58iR1MO..3a7N-=VA0.4eA3“5O-IN0.B.7ok®5N3»S8-7V.A3.0W*B®A5A8BIN-.B70uTM.-3R7e'O=2.48“2NNS1.3OV.2526T7N.vA—=.I8o-ON74s=.N.W1o1NoYyB22S=O-T3.76A.MNR%5S3B-o.97OaN..VOoD.72n..MI7R.730Om.R.079oN.1“=d.71..27NR—M.1-TI.20~O.W.01IV.17WA.N-71OBWe%.I6”—SN..47NE.29RRkO3
M0OOaNVNOOoONoO0SNO~3=OVeSeOaNONI0McOINeOIOSNVA=tOOnNOMOVNONEODOoDONVo—FfnVOvOoNOIoVMMOOAIEROVMNORNOYVOS_OeNSOEoROSoe0=3INoOoNoIa—reMy—oAMRoDEO
| T$CODE

TSERRN

TSEXCP
T$FLAG

[

9-:

T»YNBYIBeBen®B YTPVT-YTEPTBNSV_RToeTeNeeIeIVeYTTeTYYYY

o = Ry R
o Ry

k=3 L

0=2O14OGvON7BO8ebBL
PN.68t30a1P\=Ny497d6BW%086‘8Wov06ON80P053d3BOO8.o5~1V—=9Iy0UI889¥MO.S9-7““MO6A99T30‘5=P7=2RO9IN(8N4y11oS9ro=0”TN%mbSi9»yEW7ooO819TTR0oM28”%rGNTON0S‘935m8NbOO8A9O0weN8IToN979Nm8oOOY%“DM3"cDO9I1O4T88dbD9e5~VSO1%9iNNI9Io2RV08OT%WN9Dn6T5SMONZ"‘VYIOV9O7e0u96mION"SE5O9sVoMLT0B9lO=OU'79oWo9iTlNl%3c9RMROO“.m76I~OI9V"90O97T“ONNV1RO3S9”I=7I98yTPNOVA°iEN”NMN8092a3bmOIM39S%,.oNRA%ER59)lO—uB9N0R“%V9OT&N0Oos893“9~N0”SN2IuOV—oVVM.9“9sBLOOM)R5MuRMOOOWV%”mM9“MTA5U7o.tII3N5ldO%N)2O30t9I”vGC0L"ONT8.7U~NS.tAVUO99oNl——TN9AA173M”OSR0NM28NoN.IsM7OITSNINTlR199IFNNE3R%——IY0OJ0.%I»N23WN9AR9W-2MO0NWOA3IOLNV0.OWEM59&UONBVA~2ON%NVG—2S59NS9kNNe
NF0OT»»(0ONMIOO~MOONTBB0NNO2OVIWPOBBTNOIN8OODTNN0OOOB|NNIOON\TO0TMB2oSON0==Os0No2DOvrN§oOoeURO=SMOOoMNOTyMNODOO,OoNV==M=NNOyID0SONO=V=e»=NOc=OoVO@Asor=NOsIaVOOeN|—NONOMVOUwMeIONNMVASNOONEyZw0AVOeoONEON3® TwOOVo=NNOoNeVO—Vm-OoOE(RNTIONooOOOMoOONoM0OMcN—OAoMoN0MOcc@NaSoOoOeOoVec—InMEoIMooMANNroNcMoINnrSoN
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

]

M2
TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PA GE $-20
(CREF v04.00 )

SEQ 0155

=F"ONU”.8“1~40645“17N32“"3”064.718'59082“37 .0VWOeEMoeR=NfIN=MVUtNOMI,ESMYCAVM0ANGYE m1Re"a”-2lo3WNO54NlMSOa~5M7ON08"07“

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

| TSGMAN
[ TSHILL
TSLAST
i TSLOLI
l
TSLSYM

TSLTNO
TSNEST

9-871
9-9264

992

3-832
1-8

7-665
9-488
9-:05
9-<29#
1-8#

3-37#

N 12

TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE S-21
(CREF v04.00 )

9-871
9-926#

-8714
9-:84

9-871#

9=-:84#

9-876
9-:840

9-876
9-:52

9-8764
9=:52#

9=;72#

9-:74

Q=744

9=:76

9=;76#

9-;80

9=:74

9= 74H

9=:76

9=:764

9-:80

7=727
9-587

7-731
9-609
9-:95

7-748
9-671
9=;51

7-754
9-739
9-:63

1-16
5=4
7=141
7-215
7=244
7-364
7-400
7-428
7-440
7-458
7=471
7-665
7-710
7-731
7-752
8-4
9-45
9-254
9-344

1=-16#

2
1-8#

7=705
9495
9-:11
1-16

54
7-141

7-201

9-:83

9-395
9-495
9-609

TSNSO

TSNS

TSNS2
TSPTNU
T$SAVL
T$SEGL

7-215

S=4#
7=1414
7=215#
7=2444
7=364#
7=4004
7-428#
7=4404
7-4584
7=4714
7=-665#
7=710#
7=7314
7=7524
8-4#
9=45#
9-254#
9=344K
9-395#
9=495#
9-609#
9-739
9-805
9-822#
9-895#
9=944#
9-:11#
9-:95#
9-,63#4
9-.82#
9-<13#
3-37
7=475
8-<68
7=215
7=414

7-229

1-18

6-353

7-189
7-217
7-246

7-366

7402
7-429
7441
7-459
7475
7-667
7-711
7-733
7-75

8-<68

9-51
9-259
9-349
9-400

9-500
9-614

9-739
9-805
9-827

9-900
9-949
9-:16
9-:00
9-:64
9-:98
9-<27

7-244

1-18

6=353

7-189
7-217
7-246

7-366

7-402
7-429
7-441
7-459
7-475
7-667
7-711
7-733
7754

8-<68

9-51
9-259
9-349
9-400

9-500
9-614

9-739
9-805
9-827

9-900
9-949
9-:16
9-:00
9-:64
9-:98
9-<27

54kt

6=-353

7=217%

7-229

7-480#
9-14

7-415#
9-51#
9-614#
9-:00#
9-4L554

9-:33%

7-667
9-: 64

7-428
9-79
9-671
9-:63
9-488

9-:83

7-259

SEQ 0156
9-884#

7=414

9-334
9-889

2=34
6-361#

9-884#

9-926

7=440
9-384
9-931

7=458
9-395
9-944

3-37

7-132
7-203
7=231
7-261
7-380
7=415
7-433
7=444
7-468
7-481
7=705
7=729
7-748
7-760
9-7
9-84
9-334
9-384
9-488
9-592
9-676
9-750
9-820
9-889
9-931
9-:05
9-:83
9-:51
9-:68
9-<03

7-132
7=203#
7=231#
7=261#
7=
7=415#
7=433%%
7=444n
7-468
7=481#
7-705
7=729%4
7-748
7-760
9=-7#
9-84#4
9-334#
9-384#
9-488#
9-592#
9-676#
9-750#
9-820#
9-889«#
9-931#!
9-:05#
9-:83#
9-:51#
9-.68#
9-<03#

7=4438
7=752#

7-459
7-754

7-366#
7-711%
9-400#
9-500#

7-378
7-727
9-495
9-944

9-836#

9-889

MsysJ:Ne\o.OoaN%tnq~.Po—slnOqa%W3.Nl\0T.av;O4ns9BmYsiFesIanmnr"EnedsTanSiVVes¢e+nIMtso?Ro-r“GbDnEOaDo.eat63eamw24ywn4ia4me35n%4ivena'r%iVnm4VIfPe6i4d2Bei3mStI4R!I0SS.93P.4SR5ei23N9s4nM37&Ie5N35RM2S75N3”.0G7
T(0AR00e0sB1n0ReIm1noT8g0b1,TRG0SsS%aT.roULtV.nRI.asi-s.esoB-gi.60eomgbavlseivHwIeNAsREDdyAnRASiRRRsenUVRaIAVenR
AoVORsO—mUOnINRmWOiNonvNF*_0OsAssoBNlwMNvOIzlSRN&Os3VS*SN YenToNteDetSrRenaYn»tNRVxaeTVIcR*W¢RiSO0ooe0ezUVgNb0NyGnO8aN600so3 S0oS»USTMnOVMDeWeYVy0OUlNY=VWeO=V*RYTdOeOFPTOKW3eANUNAgTRNB=eT~FARATNRIRTOnEARRiFM3ENOMFKRNtE&O*«uo3NO+Sn¥¢NiC0¥¢Oc0R&AN§0s3NARRbONANEo®RPg=2e eRNIhONS-sN
NTnPasIeNEIwgNRNle-T0aoDL0n0$3n0OCN8Oo5NTrONe8ddONAFOTiI=OgNFt0d&IIONRVyLIOITRoNAIORSIITNOELGOIeTGLSIOmLOeGIOOLeIIAtLLELeAERNLY¥3¥¥L3RiAeIo:3OTAR3TT AA1d2T3 L~
TXN38d$88IILETILELEdS LGSILI LITINRIRAdS

]oTgFoPPUIrh2sBnULRcsga®BT»nePvP,PoR[|SsYI®-BYL»A].=A%-iLNSL3%R»INNonL]b.kMocHee-RB.-LRe%Ra.N4%.no.b*n»ea.1x%G¥IaTRbRLA.ARUNg-2NN.do-nEe—ne.Bs.RrNnr-.¥.(oEde3.P-.=Sn.P]I.PU»o%,,.Ail-&
CZRLIDO RLO1/702 DRIVE T2ST 1 MACRO VO04.00 4-AUG-82 10:30:59 PAGE S-SZ

CROSS REFERENCE

TSSUBN

TSTAGL
TSTAGN

TSTEMP

TSTEST

TSTSTM

1-8#4
9-455
9-807
9~:16#
1-8#4

TABLE

9=-74
9=455#
9-807#
9-:33

3%y %%

=514
9-500#
9-844
9-592#

9-259#
9 144
9-836
9=-;00#
9-268
9-6764
9-836#
9-:12
9-268
9-686
9-900#
9-:12

(CREF v04.00 )

SEQ 0157

9-2380
9-6
9-90
9-;124

e
9-309
9-379
9=7504
9-909#
9-379
9-774
9-949#
9-3794
9=774
9-957
9=-400#
9=7744
9-957

Ao(23S~sngszad-nSue2awtdrlndl:. TLA3IXAI8T3LIdLE3LILdIaS8IdLEoLredsSmg3esiyge%srncuvelsdrSelngr rGO—vMe&NV=iUerO=—MO0T XT$AIRITNA28NEIaIAsELEdLTILIELEISLELLoXYpeSegFAuaSnrdRhyi.lAxsenNiItdSeTe

o3=ve eA1T9R&YI1R%S

9-455
9-807
9-957#

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PA
CROSS REFERENCE TABLE (CREF v04.00 )

GE S-SS

T$TSTS

8-<52
7-336
8-616
9-632
8-<52
8-262
827+
9-160

8-143~

9-312

9-908¢

6-415¢

7-463
9-957#
6—612’
7-46
9-:33#

9-936

9-901

9-949#

9-950
9~-:16#

7-338

8-625

9-647

7=742+

8-764
9-656

8-24+

8-777
9-696

SEQ 0158

9-500#

9-592#

9=6144

9-6764

9-7504

9-827#

9-900#

8-41
8-78
9-71

8-104
8-908

114
<52

9-2%3

8-168

8-324
9-273

8-491
9-429

8-<52
9-602
9-130

9-26
9-792
9-153
9-:76

9-30
9-811
9-190

9-34

9-72¢

9-863

9-:69

9-241
9-873

9-208

~ -~ 3r
P
go"u" =g o

N~
D~

IDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4~AUG-82 10:30:59 PAGE S’S‘

) et ) e ol g ef e e g h -

VU IVNTVNT
NT NT NP —

S REFERENCE TABLE

-t —

1 T465%

"
15048
16
16.1
17
T8
19
TBLSTR
18T
TCERR
TCLK
TEMPO
TEMP1
TEMP.
TEMP
TEMP4

SEQ 0159

(CREF Vv04.00 )

9-:92
9=-:94#
9~-.62#4
9-:60

9-51#

G-84#
9-109
9-2594

9-129

9-152

9-166

9-290
9-349#4

9-311

9-323

9-332#4

7=-525

7=527#
9-935+

9-177

9-189

9-198

9-207

9-219

9-240

9-253#

9-972
9-449
9=:58+

9=:19+

9=:85+

9-:88

9-:02+

9=;53«

9-:56

9=:60+

9-:61

9=:07+

9=;23+

9=;27+

9-:31«

6-:32

8-85+

8-95

8-122

8-131

8-178

8-189+

8-573+

8-575«

9-594

9-621

9-687

9-775

9-808

9-837

9-388#

9-400#
9-500#
9-592#
9-6144

7-358
7-523
9-365+

8-239+

7-3920

8:261'

7387
:

28+

8-79+

8-81

7-686
7=-758#

7=759+

9-66
9-:20

9-92
9-;03

9-.;78

9-:78

TEMPS

TEMP6

TEMP7
TEMPS
TOSLOW
TRPFLG
TRPHAN

TST4
TSTCLK
TSTINT

TSTLAB
TYPDR

UAM
ULOAD
UNDTST
UNXERR
VCNRST
VCSTAT

VECMSG
VECT
WAITIN
WCMSK
WCRNG
WDESTA

9-270

9-362

9-407

9-507

8-382

8-633

8-903

9-471

9-514
9-98
9-228

9-559

9-:74

8-232

8-%19

ZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG~82 10:30:59 PAGE S-SS

C
CROSS REFERENCE TABLE
IWGESTA

WLSTAT

{WRTSWI

|WTDATA
XSALWA
XSFALS
XSOFFS
X$TRUE
XRDHD
XRDHDC

XRDHDG
XSEEK
XSEEK1
XSEEKT

———

9-34

(CREF v04.00 )

9-74

9-567

9-792

9-811

SEQ 0160

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE M-1
CROSS REFERENCE TABLE (CREF v04.00 )

DESCRI
DEVTYP
DISPAT
DOCLN
DODU
ENDAUT
ENDCLN

7=231

7=-141
7=246

7-432
7-261

7=443
7=-366

7=461
7-380

7-480
7=402

7=7

7-752
9-379

9-686

9=774

9-807

9-836

9-909

9-957

9-:33

9-;12

9-259

9-349

9-400

9-500

9-592

9-614

9-676

9-750

9=416
8-116
9=:74

9-:39
8-151
9-:15

9-:18

8-504

8-761

8-774

8-779

9-521

8-99

8-116

8-139

8-151

8-159

8-316

8-380

9-51
9-:00

7-550

7=-721
9-:
7=72
7=-651
9-468

8-18

7-692

3-37

7-215

7=-754

CLRVEC
DELAY

6-361

7-203

9-:63

RIN

BNCOMP
BREAK

2-3

7-573

7-71

? Y

BGNTST

8-13

Lreperee? L

BGNSUB
BGNSW

7-590

s BNONNE
= w0 Y
~ =N
ONIVI NN
&~ Vi
=AWV
OWN

BGNSFT

/BGNSRV

7-576

7-569

'BGNDU
'BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO

7-679

'BGNCLN

7-540

BCOMPL
'BGNAUT

SEQ 0161

7-703

9=:67

9-<02

9-827

9-900

9-949

9-535

9-639

9-705

9-799

8-493

8-504

8-605

8-768

7=41

8-17

7-429
7-259

7-667
7=414

8-<68

9-805

9-:51

9-395

9-822

8-321

8-623

9-214
9-606
9-859

9-124
9-318
9-668
9-927

9-174
9-505
9-758
9-303

9-232
9-654
9-926
9-491

9-<27

9-895

8-627

9-138
9-330

9-942

9-944

8-635

9-143
9-474
9-710
9-985

9-659

9-237

9-266
9-667

9-529

9-815

9-:11

8-77

9-162
9-720

9-991

9-307
9-699

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4 -AUG=82 10:30:59 PAGE MCROSS REFERENCE

'GPRMD
GPRML

'MEADER
' INLOOP

'LASTAD
MSBYTE

MSCHEC

| MSCNTO
|

MSCOUN

9-.

TABLE

(CREF

9-:80

9=3764#
9-<07

8-12
9-<29
1=-17

9-:38

9-:17

1=-17
9-914
9-%020
G~ 194
9-580#
9=-711#
9-871#
9-20#

1=17
9-125
9-215

76
9-<05
1-17

9-91
9-202

9-319
9-580
9-711
9-871
9-20
9-376
9-;72
9-<09
7-302
7-358
7=422
7-655
7-6914

8-15
8-:84
8-<
8-<35
8-<50
8-<52

go:

9=376#4
9=;724

9-<09#
7-302
7-358
7422
7-855
7-699

8-15
8-:84n
8-<11
8-<35
8-<50
8-<52

9-405

9-635
9-721
9-876
9-62
9-391
9-:74
9-<11
7-302
7-358
7=422
7-655
7-6994
8-15
8-<00
8-<11

8-<35#
8-<50
8-<52
9-284
9-355
9=449
9-527
9-767

MSDECR

MSDEFA

MSENDE

1-22#
1-18
7=-244
7-429
7
5
7-7
9-344
9-671
9-895
9..
51

s
9-;72

9-<09
1-18#
7=46294

1-18#
7=244H
7=429#
7-665#4
7=754#

9=344#
9-671#
9-895#
9=-:51#

9-204

9-376#
Q=728
9-<09#

3-37#

7=440#

SEQ 0162

v04.00 )

=<1
9-?2
9-391
9-<09

Q-

S 13

3-37

7=259
7=-440
7-667
7=-760
9-384

9-739
9-931
9-:;63
9-62
9-391
9=-:74
9-<11
6=3534

7=4418

9-g20
9-391#

1=-17#
9=125#
9=215#
9-405#
9-635#
G=7214
9-876#
9-624
9-391#
Q=744
9=<11#
7=-302#
7-358

7=422#
7=-655#
7=-701

8-15#
8-<00#
8-<11
8-<38
8-<50#
8-<52#
9-284#
9-355#
9-449
9-527
9=-767#

9-118
9=451

9-118
18#
9=451#
1

9=-144

9=144¥
9-2

9-227
9=475
9-645
9=725
9-884
9-118
9=451
9-:76
7-335
7=-358#
7=424
7-657
7=-701
8-16

8-<04
8-<11
8-<38
s-§;1

9-98
9-%76

3373
9-

9=449#
9-5;7
9=770

9-278
9-491

9-278#
9-4914

9-3g3
9-529

9-303#
9=529#

b
9-is5e oua%3
9-482

32320

33538 o-ses
9-%050 9-548

8-5360

9=174
9-;37
9-505
9-659
9-758

9=4914
9=;78#

9=529
9-.80

7=349
7=421
7=4 4
78
7- 014

7=349
7=421
7=424

9-645#
9=725#
9-884#
9-118#
9=451#
9= 764

9-654
9-734
9-9;8
9-2
9-491
9-:78

7-335
7-4% 1
7=4 4
7-6574

7-335¢#
7=421
7=424
7-688
7=701

1’

8-16#
8-<04#
8-<11
8-<38#

857"

9-98
9= 76

9-§89
7

99-

9-5 ;7
9-7 0

3-37#

53 91

9=:740
9-<11#

7-1328

7-458K

8-:66
8-<

7=705#

9-395
9-745
9-944
9-: 64

9-118

9-451
9=:76

7-2014

7-459%

8-<

it
458

9-293‘ 9-303
?:

7-690
7=702

8-<11

8-<48

s-<51

9-98
9-§96
7
9-

9-489¢4
9-5;7‘
9-772

7=-1

7=-2594
7=44L00

9-384#
9=-7394
9-9314
9= 634
20

9-482#
9=-654#

7338
7-4

7=7
9-4
9-4

8-<51

-17
9-98
9- §76

9-772

7-201

7=458#
7-7;70
9=454

7=459
7-731
9-79

7=%49
7=6214

7=349
7=422
7=424H
7-690
8-14

7=349
7=422
7-654
7-690

7-349
7=422
7-6544
7-690#

7-349#
7=4622
7-655
7=-69
8-15

7=424

7-690

7=702#4

8=:67#
8-«
8-<25
8-<48
8-<51#

;:£010

7-628:

7-7312
9-794
9-4954
9-820#

8-:7
8-<08
8-<25#
8-<48¢
8-<52
9-17#

7=215#
7=4L14#
7-468#
7-733#
9=-254#
9-587#
9-822#
9-:83¢

7-229
7-428
7=475
7-748
9-334
9-609
9-889
9-:95

9-33%#
9-815#
9=-<05#

9-358

9-:70
9-<07

9-334#
9-609#
9-889¢
9-:95#
9-<27#
9-358#
9-.70#
9-<07#

74008

7-4148

7-2294

7-244N

7<259M

7-364N

7-378B8

7-665¢

7-6678

7-;053

7-73;0

8-:84
8-<08
8-<34#
8-<50
§-<52

7=215
7=414
7-468
7-733

7-215#

T7-468BF

8-<50
8-<52

8-<08
8-<34

9-761#
9=-772

9-529¢
9-.80#

9_3023

8-<50
8-<52
9-60

8-<34

8=;71#

9-761
9-772

9398 ood

8-14#

9-284
9-355
9-389%
9-516

9-%760
9368
9-389
9-516

9-:80

o-ifss 9-37

9-:11

8-14
8-:7
8-<08

9-60
9-102
9-284
9-355
9-432
9-516
9-763
9-772#8

9-98#

9-699
9-860

9-358#4
9-;70#
9-<07#

9-491#
9-.78#

9-8494

9-193#
9-307#
9-558#
9-6994
9-860#

9-358
9-:;70
9-<07

9-491
9-;78

9-9440

9-193

9-339#
9-815#
9=-<05#

9-4514
9=;76#4

92660 9-307
9-523: 9-558
96674

9-339
9-815
9=-<05

9-254
9-587
9-822
9-:83
9-<13
9-339
9-815
9-<05

9-358#
9-:78

9-:70

9-303#
9=529#
9-;80#4

7-37%0 7-4

9-358

9=-667
9-849

-— — LU P—
7-132¢

9-330#
9-815#

9-659#
9-7584

9-516
9-761
9-772

9-791

9-185

9-17
9-98
9-276
9-336
9-389
9-516
9-761
9-772

9-§167 9-37%
9=

9-339
9-815

7-7314

9-102

9-<138¢

7-7338

9-<27

7-74B#

9-60

9-102

9-284
9-355
9-432#

9=-516#
9-763#
9-813

7-229¢
7=428#
7=475#
7-748#

7-7%2:

Awasersansne:ZAXARcoEAnCReIoAZ.wJeIaotRNI"A‘Lm9Y70]3253'23L%23
‘
S
Z
“
?
“
e
O
oS3iLo0¥lo,MX0ioXrlOARdrO®iNNd0MlSOP9NiORAdNSlD0B9dRYu0Bnd9A%T0dR94PTNd9TO1dS1ORROdNL1oDESdTO1iCRHE6TiR7Ol0T70B607Im0Ad0T90ydB0AA90Td L)*—5o2MO1.I71N‘O0.7N9N102O75“%V"7=”@2M‘

6Y~vsNRoWc34TaN2Ioe4aRVnTTOoAnINBIRS7FsTed2TN4RRanF+VDnI*SFAcQAeaT04IRs63oNbdAsTo43YAe4SsNnb5TV4eAe9g4%SbITaAVevb4TISYt4n-LRDTH=4P4KMA%4d.y72P2Agb-I.@4a7eMxAb4UN2RnmCDRmObm4saRtST%RoQ4I4ATNRStLsdRNES4vT2.=RaeKA«5JM=33nRq2TN.Nv2asRZT3OMoG=zMsmNfMvaNR25iR.vOfn3A72RvDl-E3Nd02¥Zo9BSNIO0wHy80%NXea3I-f2¥Z0B.Z=3mlUI.0%H3.NaF%8v3‘dOe 0c.a)“3(nvt)”6l)%¥:7&l>:”n””nvw78l?!Lm01¢)m“77wz“Na1f740i!”5zi)%oO1a5”nwL“"N7E:”V“N)
3cOO32rT&35rdmNa3de22rddngL3ldaurda]iLrA3tmelei23lrLTXed3o.eLrARdodRoABdyLRodtsSeTd]oerdtAdtS3hd~0dOt=aahad3nd~0Ok3
2e—FRo1Vy OBRiM =N3ATNMGAP xeeee RNByNBt OVo000
0
FA
OIPNPN
NIMVOO oBIM—O . ~
O.mwYwOmtwnuso mSOWnuO7TLIsOrnunOuTI"mmuNN“n:lumfleaeWhun”mmwmOnMwI1OrUnwm” NOO0ONMNO ~N @MM

M O N M I M N M Mwnflx

aojeemdummqdp1+gmd]0aqYdcudPSRqtde4dbn3d4gTd4NmRiwyO«tnTdT%uoW 7st4TnTnmTil32T4Tilm8TrTiu3£-X26I-3jT3f2RB6l9ET4m3RDNs7R O87TT¥0‘99§¢i31R88PO‘N(89A9%NR%PPN99V9y9%99%%
MSERRI

MSESCA
MSESCS
MSEXCP

MSEXIT

MSEXSE

MSEXTJ

MSGEN

MSGENB

9-:84#
9-;72
9-<11#

9-319
9-580
9-711

9=;52#
9-:72

Q=724
9=:74

9=-:74

9= 744

9=;76

9-:76

9-914
9-202#
9-319#
9-580#
9=-7114#

9-125
9-215
9=405
9-635
9-721

9=215#
9-405#
9-635#4
9=721#

9-125#

9-144
9-227
9=475
9-645
9-725

9=144#
9=2 ;70
9-4 S#
9-9450
9-7254

9-1 3
9-2

32530 9-174
37
TR 05
59
730 o7 58

)OOo
..0
. b0003 ORwuyJwqW
..oRNo.l.s...q?c.l

%NN

9-654
9-734

OMON N =M <

KO P

(
[
B
(
"
R
0
w
o
o
o
~
o
—
O
N
M
I
O
0
M
N
O
U
M
N
V
M
~
—
A
N
O
F
E
T
N
~
N
3SNs3323
ONAV—oGN

ONIOOTDNOOOVCUDMMeO=NMO-NW nO"~“
OOSMO
a(t ’;n”flfln&iél.o Mfln

9=;764

9-.80

9-;80

9-.80#

9-<11

Q=174

9-185
9-266
9-548
7
9-849

9-185#
9-266#
9-5484
9-667#4
9-845#

9-193
9-307
5-558
9-699
9-860

9-193#
9-307#
9-558#
9-699#
9-860#

955

59#
o3584

ON NMeT s O

%N-

L35

CZRLIDO RLO1/02 DRI VE
RO
CROSS
REFEREN CE T
LE

H13
TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE M-3
(CREF v04.00 )

SEQ 0163

A23I2BRS

0\NOM-W-NONO=MINONNNNNN=—

STMMO-NNM4ANBODRRMO"BN0NSb'NDSYONM1RWA86OA1M3NRONOPIA'NTPNON9PRNININNTIM5l3UcOSoO”“o‘Pr“Y7DO1N7NOO?9NB5DTMw5*OII8OA“2=bI5SM”0AAOR5INl2RDAN“yGVONIT‘ONoPATIN5uaTJOIN”w0T
Y9TNeTEY1IN1Y1A6yTTT7 7T%INNToaNe eN« -ItSToTSLaRlast
uANOO
C
O
N
O
I
T
O
—
M
I
T
N
n
I
N
RNOO]YEEE
YEJNMMN33N==ANn=e=vNv eVNsRDo0EErTsNoRrN=VVMMNAINNODNOMMMRIINN
SR-NNMLAD‘NON1I“=MI4NS» RN9ORAeRNIORNvMRNORTvBO5DNNT“ONY9SRRONNI”LvTO4N=MO1T5NV“DRAO5TNDW4OTVO
;nuxn

' MSGNGB

Ruw

MSGETS

unSRy
R

NNANNO OO OO OO NN

37525”“089567778”41 2VI3“O7-'“5eBRb23N01 —WM[IO=WNP0~O 39A2NAM1AN9O2OW“VTM~O OT"NSnA~®a_m 7799%99111'77%

NNAANNOO
e OO

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRO v04.00 4~AUG-82 10:30:59 FAGE M- 4
(CREF v04.00 )

I 13
SEQ 0164

233

ShRan

]StMR-ty-Staht8%167&N-NWNWMHNW‘Sb”MMflS?WHZM”W
—OoSYVTyODM4YVONf%l5YV:V5NYV«7AoyTV«&3Ve«S7‘eR“«N'4YM”«DSw4YVuR«-bAYVt«YY«¢AWV$-'Y1e1N-VOalM.t-=v3Ot“6GvR0A73ySH0fJRel7.mV?AWnl7=6SY3R8091AT8MNR.Oy1R(NNJO1W“—N'ST1OMUOM1BTN“NRIA&!IN.%aO‘T5S3Wb4N”5VBMNIW6f4Ii6NY57mA77RmPP9O
OVe¥I=PENGBOSN-&INOMMe“SVrt-wrt.VhlectVgfV”iAamTfVoi4VDmwVp-u.a~ltVwzWVwVs1Na3st7e0-6P”7371N.m.-7sMWW7w6A-TsyN71y%1sm7117W1BO31NON!MoO1H~MOH13O%9Y3“13S‘Bb15”5M16”w36Nf2%Sl137S1‘,735173m7-1%97
xOOTWm—MANN-=MR—IBaOAOnN.INAN2NSMb%RAI,yROMSNReNe—F"BTONo13TErDRrM0=NU0OP7eR1M3N”nM“2Tvl7“3=1G"O8=O01NJ0D3W8O6»sN7T~M—“OgeIdv7MND7lk3.Se3WBNGI0O”nIh”0RM5%HN—3iBO\%4ON”BOS3NMN7BgIT0OMy~MS2cOOaHNF”nM—O1_Na2(®O3BSIoO52n8NS=a7d—T—NeS1M5INsVIOM2aNNIO”lN3NnKmOI9NN3WoOS—W1CO”ONM3~1—INN2OB&8T3—»TnM~ 1NWBu2IP‘yNRIWNwNm0O,"0TBOBOMOO
Bw R

A =0 R —=OUMNNO =

%OVaY7YeA~?VOP~%O7Vq4y~uO7Y\Vq4O~T,»7eVWqO4AYf0V8G7lO04Y8G8qOVY8G6O04Y.SGV0f88Ge0O4lYG6EeO0fY8rETGAO0l4Y3=r80Df-=08Gl4AOTGYq0IA8SGOM04RTqGS.O8jdyGOpe.AuBl40)a8GtnTO4G%OeI 8B®GO»%NG4O8TG%OW6OA10868406GO0N8P4AG0O%G8nO08mTB¢G0OyBNnGOuRf83eSMGROl8MGz0OfM3R_ G«¢lOlLJ8yGM«0G«0OV8G«O2B G«0O8~G«€0«TG083«O= G08«=G0«T6@0D=«860«T00«8=B-OA3l«W-O«N94OAd\%Nu31M0n9L43LN63A>94R=3N%A1
OOOOVOINLYY0Nb0~~—OVOOeVOeO=OOOVIOIOWWMVO»O¥WWSA~DDOVWAWYNRD0DuAAVVnIDAGGAOD0DNAAV0V0EAGCGGO00OMGG0VG0ONGGG0ODVAGe8SI0D0IGGAG0V00OVN8-4GG800OD0MGG8AOOD0GGGGD$0OO»» GGS4OO0OsG4G0O1Os‘Oa6¢&O€0f09-¢02NS0A4G€AG8O0.52x0O0G4AAL0O0D0S0GAG0vO0ONMO&GGG40OOyDmNGGG8SN0OOOSAGG80OOOGGG4OOO0NvOGG4OOOAOISG4GONOGGUNO0O0O33SG€G4AOOOSNGGOO00OLOSGGG6OO0MGGNGOO0N2SGGGO0OOML—G0GGOO0O=SGGGNO0ONGDGG0OOOGGGe0DO0NGGG00OO0AGGG0OO0~0GO©GS000WGG6G000ODG00G(0N—SGCG000DNM0G00GD0NIN0\\M\-NNA0N0ANI0eRrAONAN00RNA00rO00ANrANSA0eON0Ar
CO3haGhdCOhCh=hWCOODOGOrBDv\Br0N0006006000L60o86—068080601o=6=06WW0VO8O0MN6N5086D0850-60N680N580650806P5860860860650N5ONY605WO6Y506ootootoLootooee
-CROSS REFERENCE TABLE

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE H-g
13

(CREF v04.00 )

SEQ 0165

1N27”N“”N3.l”h4‘(5;”’“”f5oi“:a&7a?0«a9zu7’1”‘0;?a" RBb0eNlb Rb0c(P11*Ne14(O3(3(NO-4(s5a(TA%"v4;Nes%M7&éN7

s»sueasx*su&T2xeeW-fiwlw3=ax_W8®u.nsaaen»_=aw%enw=
-2AwndamnuI3nPgn=A2eoaRsxaunzannssWRWr0wm=tarWosnInssnSe2clwlWIWmfwnw.i_WtBo==»paew-Rw.satn3%3¥xnwe-neSN2
66m11N5M2%“H7WW438954NS71”7M23”4Nf4Wl6511462”37”647e2f89i159M704fy6lm18“9f&1l"80B”&m2WM”S%1oWy8fl0ei”fkMle”N%3fRBlH““eW"kfu”iNM%HW“”?4M“2”W1N”2fO“il3MZ0MN?2“Af7l”b‘RWWW6O8?POR=MtRW~O%GmYmwB.0a:M6v.—kW4OM.”e4e8v-—WOw.-“4m7.”u90.S4n5iv-kO”.W4O3s?.nym-4hN9w.49v.4%N”O-9g6y.4W2Mf49O[.al4-1T".a”)%8=&4-“].7Qe”D[m41“."o-]fLQ1l.80-4LS].2M4[T{%2..749%.;m08B-{%4-..&“wS.%iN3s.d7O.-%BR2“.RS1¥.%”.S-ws-Ik5yO..iOR&z%k2..Zo4y:..B“m2O-%®"4T..MW8-%SO”%4..‘O“W%63%..Ma74o%2D.-yWB-4..&=S8%.6N=
TEST 1 MACRO V04 .00 4-AUG-82 10:30:59 PAGE M-6
(CREF v04.00 )

K13

®=

“w 0 03 A 00 .

annnw =

CCh8O1OOeOOM6FCOIT=hNYW7OSRIONM75I7SO09NoNTMoFOR7IC9PCo=OFN1RNNPIoTOFP1COIMNToFIAMNPWTFCN31NMPoIOOIFNPMoOF1INPIoANTCIM1NDnNN1lMwO.nNOIMMM1COOWWPIMNNNO1RC=IIPN1|NAMOFcDNN.C2MOl.2N|--C80v0oCoR=y2\\IvVCvCR2yPCOORONePC-2Tyt0OTNrSNP—2=ICONTvMCNCOPWONNPV2PPO-vO»aS-nPP2INwC0I3(eNnPI\CJOMO.MUe3COLRMeOPRTvM03ttOLvnO~vaCeTCOMWe.C3OTO0LORC0N=nRCr0%e3OOONONTO-3NCCNCnT2TT3T03AO—(rNTY3NM—0(IRN-‘CNUMOI=MF4MTMO“CIFe0‘TvA~)T4TTMMM"T-O‘CO0Dt4eOO“0N48MODNNL‘-ON0DYNV5GO
O
C
O
O
OPS0B0TY&TWPAIYL
bOOSMNAoNPMbOTONRPI“bA0STWOPIbOAONPNSAhb-STFPFTbSPb0GNRO5P”PbATSeTbPP?G3SOSORT[«ONIORPPBbDSPNWbAP=GA"eYPrMVPZOOPPR&MPVATVWGVVGO“IVOMAPMVSYTOAPAMMY?NsM?VeTMRBYMPNYMNYST0OOYMsMNP YeM-OYMNsYNOONTBeIeMONeCIeRTeTAeOAeT"~ RoeNMOeeRCeOOeReOOReCRNeBNe0DveD.eOe.RNOe&ISetN-aR0Ae ALe-O2R20OTbONRelD
ooVV=1"alw"a)om][IoRR03aoniSodadtIeBoR3N0SR0
wwyPnPRoPSwWeBIPoR~VPNSP
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

SEQ 0160

PV¥RP VPLYAPV 3AISn0IeB2at0rnD3d23eN5R

N~w92%8”6715701123667"1“5“7“55“1222457M
6-"N.42“.WB71ln92.18B"2.2S3o“.‘SI556.R47.”36S17.A34RB857.1“eT.”5SMu.86R0).79“S.N1N(5.?u2Sm5Oo.fn1—id3.RM?A56B7O.E%B26TaS§7.”o5A!gT%:78inl.19So?7n1.40A457P.“ywm87¢Mi.0A)n2B85Y3.7OI1240S.1tR5““.91o5R38A5.B7458“.09783I4.~70I.7NRN89w.B08T021N.06NI2R.74—
.®o9»ORN-.F7O.F8~"V6]BO-y.OM“R7I.OS0u"MNO0.-CTn9”OO~.MO"|reC.n.M5t8O&-C—V39RTO.O86.sCnN6sO4=®n»O.8-wAssO1.B01--0O”eR..7“MC2#.eO.“BO¥.-4”D4JRTx-.XO95kAOe9-”7[O1-.+"8B3%O.05-”3Om]Bo71.54.".Oxo2%5810O5-TN.141.7o6”-315o5.sN-L8o901%¥¢.412*xR-[c78»y.et0.237-o5o50.bROo”3.”23OS5M-943-¥oOoR6N7y%o.O7lM0AOo2-l6M5uA%O.1lN”eM-“l7O97Me.%1O5N-.o-0M16>O|4.e1.NB7VO-3LN-o1OWo8T.“.e“-3O6Ba4"4%7l.r.8ey07Lo29-78'L.oo87.38e0a-82l.a630l1.23r0a54l.a9Tl38.ra.l91ra.3l0r-+.a9O7lb.1.C4~7abl
CROSS REFERENCE

MSGNLS

MSGNSU

MSGNTA

TABLE

hed x ® 3 -3 o

& = R axB ¥¥

er=OPVs3;0—OON9\ANMN3o\VnNyOe2MeO9mOTNsN9UOF£CN~LO--FTYvM—NeN9se0OOY1N0Noyt9.OlV1NeO=0NoNs29AtNeMos1~nyOsFn7o90s80vO0Ne9Bo.LON2NoN=e1ON4MMo9=T.N+SvM9NCRNRGG0OR9XCNMNOIIaCOtNOYISo9NOBTsOORO8BNCGO0OOXT9nNA0eDOOR\NYONo9O0BG=oNMl0eOeOI90®DR(OeNV0To19oOB—v1N0oOBO©L1=9¥-INNeR\OVNAN9BOToNONNeNOOV9ONT2AeONTAsONNN9uROUOnNCEA3MOAI9ROMRMNOCbMOyNoooAO3N9=T=ONNo-=ON9O1D0ONTNbONO09CONOP¥]NSRIR9NO'LOATVBI9lDOOyN%OMM9-3NO3Oe¥N9IO¥NITI9gxVN9u=ono7==
ov«O6oRP0F\1O*a"ONP
T6rON9"VFSeq"OrTmM"9WCVS“Or"2eM7oylVCr4yO2e904Mmoe"BC0r1emO4s03nCeRB2s“0nOv1yos“V”+O0By”+Mrot+Oe“aCe“ONOsa"OBNAT”1ONOC“.NYgWO\P5"G6gNO0O“1G8CO0.”OGg0O”“CGOO0.8CG80Ol10=833O055O00B062O02aBCNI\OTA3I\3ROR5NA5T3AC8O9N97NOT70WANO05A5”OBN35NAO5eNAO750ON47OB17O0ur“1Or1N8Or81O58oOW85Oo08BN400o6N70ND9o9I8'NA91oI36AN92oI44N
r»@r?rYRTyYynTe1 TeReaB® EkNDXR T ToTT T TR DT
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE H-s
13

(CREF v04.00 )

SEQ 0167

_OTshRnune®beRREauSneaWnDRVU=VnPAnRAPBARaAnaRnANunRT3
v»Ve)—N.NF#]U|]wOOL-nI[|[M1“OrsReTNoy4O-DaocsON59=ea.Ov0¢Ml¢0WDE+PYNO90DEM.YPYNE%6=EOIOYNBY”TEO.EPYODo%V"nENYTPWE0Eu”%YOOYND.EPDOenYR"MVYE-EhYND29NOONTEY.NNVDnT“”YIEDVYNNIO6"OEOEP.TeD”OMaDYYNS0EWOuENSPTD.O4“IuDTAYOWPY-”nN"OENN.“OTNA”5"SOGOYOM.%mOOOMRNN70YONI.N“4O=NOIMWe5M—NO”.“MaOMMNw0N3I-0=NnS&l%eO“?M2TM0NO0M-5WrrNyRI8S.SO0oerrmuI2-=-S0ARTuGM8R.MNTOOINGn‘OnNOO9R1N.aMSIueNAMe-WN=SMR7eNMm.NON®OE2AIPNRT6O3NsD0DP-TY01&aP0.SM‘9It00PN-OR“nRoN00P~.NMN01s00Ito13WMcO0I.SO=O8r0OI2o8n1dNOI3OnO~NB0NNMoO2NIMONoSWO-NNeWOo8O?SSNOTTe3kIWA-NNe0?C0BMM-ZSTNSNUONyOOsSU[
u n - wuw Aute

%TVoNYFO-V0.N00IJ4TMIODQDg6EODJo-TY1E2M%MErO3RTO=afERD8YCl=Oo+EhTAJ2DTSBDYS~8ERDqYN1PDMCHf3SARNlBIlRT‘dO8—fAA~0lRITAOON~é4IOFiNI0IGUCOO%NO2PNChAR0DN%OGN7C=ONA2NfOT=iCNNR5ISFTMA%0DIOSVO#CM3(qYUI7e»aN%GSII0nfOCOM5MibLVSVMOYq9euO«2nsTe4I9SnVPC6OT3TVTIA4P7NYFI0OV1A4RYbD5s=VTTNCeE47FION1GRMO6NT3sOL4NPO8naEPC20Mu4nIaPN5nNnOAe4T3VnPLNY0%9IBe0Tt1a0%~ysI4M0RNa‘On045V@0.0e.T0TfrOM nl0—w0iO=frONt—lNO0fA=a—GltuMaONfsIwOMAlOnnOAIN«0uoOa0n0NSReOT%CP[
sNnaunnOORI
aIw%TtnaAT2aR*wrNnmuOuWRWmNDRNBROeOu%IeOTnNOeaWNNKRROMkTDCOeNOR.RO2kVNkSOOaNNAVOOeITeTSnO(hnMrIsONYRUnMSOeMtunNnIWRuN=EteeTNOV_AMTIa'.haRuO%FnwTNeMTTaOMnuRONRNauONwnRNOkITw®NaIA-n»NURItMChTIT0 BW0»B 0aOMnOuAC~nTeN
»naRwhn. 1(Smnuvn1-.nu.BEBSeoRueShnnRwnZSnOnuNOn5SOuSnFsRneneto®qtQunaiInm_Aaaen»ynwLToyYTnw¥h_TanRwaTNnUaMPanTRwk%TTYRnPTIAN B8ITS®TYRTyE
CZRLIDO RLO \ /02 DRIVE
CROSS REFERENCE TABLE
~

MSGNTE

MSHAPT
MSHNAP
MSINCR

MSLDRO

TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE M-8
(CREF v04.00 )

SEQ 0168

WTNVIMO~OOI—IeMN~ONVAOTI—NMeM—GO OMP0e-l f9l1yN2lORDW9m2A81”80W5OyZR9MNwW71M4>AoPYRt

Ve—=ONMMNVOV34%%71wyownAN
“uO0.oN4OVW1~2M.4MO6.NM0%~BY“.=5.e9O.N.“O—MF=byr.Mo=-dI.J\T.lFS‘N\O(&.»ONIU(ZL4”O%y3”2'%16Wn9®2N»7OI1N5A.W7TNy“5wR.ORNy0S9N“.TNW1%50N.24AROP.75—-%yNR=.1(0-]
o&OCWNOINISNTNOM-TNkO=3I0NWN-9M”O5O-8N2~4=5I8Ng9O3~‘=1N4M1‘W8N0I2NN'-TOM-) \TOb\FM=

-DC—0O=NOA/OeRNNBIOMONMUINIMONOWINIyOTS0NN0MTIWMNONM.NNM=OOV—AIN—NN=TNN—ONOeOINMOO~NONOV0OTOeON-VN—YOoOVVI~ONyW~VVe—OMyOIM3NVI-TVWNOV0V~OoNsoo0ODVO0ROOVMTOMOIOO-ONNIN-NOOVFbNONINOTMAITNMTWOANMTWIOTNNNONAMONITOATTNOOOMNAWNIO-NOVMNOONNRANOOTA=II0MTNN0NNTMMA—=NOO0NNNeMMA==OD0OM=TNSNOO0TNO NON
CROSS REFERENCE

TABLE

(CREF

7=7264

3-17

8-17#4

_ *

XNN0NoON—oNMNeNNOeoTBB NMovNoNONAOoNeTIeTNeTWoTNoTeORewN1OToN-RVSAO9SSNBBSMSNR)IeNe e e eORBSYo~L
[O0NLN
xAV0OONNNO3Av0NoNONoOo-Jm=OoMNOOO= NOMONANININONN ONV0 0 =0A0 ON0
O
eyOONONNANOIO0ONNNVMONMNMO=OO0MOMTNCTNOCMT=NV0WNoNVOA'VTN’8VNCVONoGVNEOND—CMO=NEIANNGNWAICRIO7ONT6IOO3NE=O9ONIUOCN”OVA2MO4NIONAM”MONSINAONIO0NOMN0AWNONO0NN0eM~OENO

NOO0bRyIIONOOINNIIMSMTNOMMNNY=NVVtVOOOJ0VVVOYVVMVNVVVVVT'o2sVb—T0OMOWLIVONONONTNITMTTMMIRWTNMNOOPVNUMMI==OMMMIBITIEONBIN=VUUBOIRU0UINBNUNTTROUOM

PNMOO0Ae2—00NIONT60OOON'RIMNOMi04—NMOAa6OvN0Nv0==MOWN=OT6°De500~P0NOOTN~0”VYVY—ON.=eTMVINNVVY—OI0YDNVVVOY0VV.M0GCeVY0VOICoT0DVtOeD0ODMMMMLTLOTTNNOVTOTPNONA=NNNRTINNNN~OeN WNNOOR¥ ANNOMOOICINNO0RMNTTA0NNN0/AIN0MON0N§TNAOb3M
OO—W[V=00T.RN
IpMNO0ONMOINNMONNTIOWONeNTMOODMAOVOOVGVWVCOVODoTVNMIOCM0A NNONNTINNOOTyVO.MO—NO‘IsNNVAOOTN—OMNONNONMTONANT
N13

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE M-9
v04.00 )

9-415

9-415#

o
x
N
R
=GT0—N|OWVIMMAWN~NVBNIMNN
-

SEQ,0169
4

=660evew'uWenVAeRi=RseITbRAKRRV»ATAisyAbRAB»sv463k3
Sibndieunibdsind-dtSneX%aesnrSa3&t8-iRosee®ra,deineSeSaecmnenteitBngdBosrnsy»pkeRa3sSnofdon
.O)MbSB%4rbN6VO%YvN-wM.Wa%NwUwV-u%vSNu.RvOev.VMI-bV.vNVMR.sMsoNADARRNANRNAONRDROA=ROVTOyRTWSNIO2ARA5RA0.RA2R1.6AR7.R60-“B%“.2P2-v2.A1vR5s.V5e5-mS
gTiey TTLTassaLTTLILLL Let TI e 11TRags

AEeIb1HE)A66TVGEIRVCTSVeIWUITUSIVUTLREUD®IVNLLIEoAVdiTUUPIdRRYUPdNPbPRSAdR6S3sRNDPPAAALRRRDZeb LAAARRAIRRadAS¥LISSSAGERIIoINTNAERRITRFyLAISRULNIRIRTIIAdRVdPSRRYLUoR NN6D%V8I83S4848

aO6SSN3o=o2R)4P1N¥SO8d-=bbBSI3r38e8dnRAOGSEkbVProbMRvWS¥l-MMDgetTOUvsrOVedLIRNNiOkVB.odoneWIbORRnMoB®ByOVoieBt¥vBIVnNN»@aVPodbRtS3b®ScbI(obRoMEOPVvnRSrVeoosOSrOACVoAaDB\PsE=e-&R&WD2NN-]ODSeDbN*VN®cR"RCAI,OB3AAL0RuAVACDDROd,*AeG8®0heASAV¢2iOdRNGAR00AtR,6R0VoENW€h0aAW20R3NITsLNaB'0R35tO€I0=RN00EoeRkNSASt\eN8(SAARyNSNRac3ERBeaAAlSAe®n“NNeRsAueN»ARBRA2A%AT6tNIM3NTAURAR%NNB&ALRN*-GoUSPboNlNtRMy»OUTPPSoK8RN1LR0NS00eA2eTS20zN6OV1R3A00NB8EGR23nT01~80CO§i
B 14
CZRLIDO RLO1/702 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PA GE M-10
CROSS REFERENCE TABLE (CREF v04.00 )

MSPUT1

SEQ 0170

'6‘371-4v.M“No<5<<IT<<17Mf6yl\vl\%,1712 W®-Ne&I3 veiVbBRASa604sobruv
9-355#
9-3738
9-4268

9-489%¢

9-373#
9-4L26#
9-449
9-458#
9-4B9#
9-516

9-147#
9-182#
9-224
9-276
& ~N 3
9-284#
9-316
9-336
9-336#
9-355#

ingLbOSv%oungs-goRE-VO.dsVNoiOTSseW-SVRA.oOrNgnM8OedO3Odn-RV2o©USB3snNINn-2ond2.mOAn3NBsdven”.dnOee0-o5n.tNH-RiS0V.oR4SsV3-aS2$I.05RLR09N.S,eIROR.GIRW-VNav.I~_eOsRSMS.RNALINR-SWInA.NTYLOBR.Nr%I,rOaS.se%Aa3WSA.8gR-OR7ye%2
RboObmaANSTTeP0npL-aOw0DwoSOOHJWaRobTEOs\IeIYmOuVSUUEengVVnnS9ToySSTmD1RB(eVo0NPOoDn2IWZVgLNS-nOIb’PU.tVVadI3eNRPRTveQ.WRO‘Sv®B»eAIe4o.UVeIAToP*VN5%RP=0SRSIApVSVNI%R60SRs3S%nAF0_oIIV3LRYs3IKVRAA%IL0NR.YReRI—NA=A0I.TMUPNAIRSORRNeAIMNNBILAODAA3IORReRNIBTORaeULHB0rOTTNRR2OUtNFSsTbS.ZMeN$AOKAA33BNIU,32NRR33NRMUSN3
AoONOBNONSONOaNtBOO®egSRSyRSKx0i0TR0R00NA\NNCANSNNONI0ARNVNo S»M??M"S
n hd b
!

'MSRADI

| MSRNRO

(MSSETS

MSSVC

9-376
9-:72
9-<09
7-589

9-204

9-376#

9=, 724
9-<09#
7-589#

9-:74
9-<11
9=415

9-351

a00000NN P00WA

9-20

9-62#
9-391#
9=:748

9=415#

9=<11#

9-118
9=451
9-,76

9-118#
9=451#
9=;764

bAT Ooororo ooooP010 WINANANNO—N P000 RN AWNANO—I23RS

9-2

9-491
9-:78

=N N ON

%' 330 8v 930 3

9-4914
9-;78#

=
»
B
¥
N
P
t
ATv3VI|=OW—NVMOGNTOWNDNVN eTBS32Rnd3or0do3Bi27n32T8ind PebFSB3RtN5
ki N

O11000 oo(L]

—99%999OOO N99—N
OoPPy
o
WONOWNNON N—W
NONOWoo
(WNON OPPNNN—
OONNoo
PPy
OO—Ooo0NNNW0ONNVNON0NWVVN—O

oeYW-4bPWpRDrSiUOThbSsTRSORNVNBS¥eiWUUWVvUSPSbRVTBVYA¥1YPVRPVTYNYF®TLA¥RNAoIRITTBRATRPAITARTITRRuaRF8¢bRSARA0ETRKORRPI =OON =
N
N
O
=
O80N&PDO8RaO00ONN®OON.OVOOO000DO5o8OWO8oNNoONIoMMBNo==oNe=8OV3DV@PU0NMRNNINONU-M—=OODORANuUwNO
Yb4PVNDUSVIAPbSWRHOWDSPUUVYRVRASR3RISNIRSORIIAPBSR
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~-AUG-82 10:30:59 PA GE M-11
CROSS REFERENCE TABLE (CREF v04.00 )

€ 14
SEQ@ 0171

9-529
9-;80

9-3 30
9=529#4
9-;80#

9-339
9-815
9-<05

9-339#
9-815#
9=-<05#

9-358
9-:70
9-<07

9-358#
9=;70#
9-<07#

BONPRN©

.IbR.WA-UR%.aRAO%-R%V.SBIV.S-DR.kSN.GeS'0eAURARIRTRNeRb¥s4S8bvvaRvyssTe(PSPRN
sge0oRmeISpgtSNnocuNns,IONTSINTIRAnocSaSRS
A3ToOolGNSuoIgTCInSMTARMINo=T=oRv~VIMTRe,ANsVWVag,1SS24L3I*B7RS,IseSg*?ArSSIAe2N-I3NI0NAPWNRONA3SUN3MRIIN=ISNsVMAWL=RNABIONE3LoNSorRO
B'bR»SbsWVb0R~o=0neDvOayyswVNwA80WIBnOIOS0OVWR»oVSYIeR'R0VvERWBOPAPVS"3sDPV8RSbSAuNNsVHABRnVe=SsoVIT=«1e®eRI¢%3nSFVReNT7I*L1®VS0AJI2R‘oB0A3nIVmWI5sBeD“Pr2nA.a6reSi0‘m*ISIRn07VeNT3RAa¢,oI¥apRRFB¥"PEIRAon=ZOI&s2DAoo¥be¥RSN20SW¥¥U68NvUSB-LA0O0z90N§DtWRNDBVUybRWePIMe'AyMyUFUARu=yu=I®RNE»6VrUw=wVWRdIASEn3BRw"yeM=I=xsINRAVR"ONWRI-IFo“4EE+eRFoWoRF(Ho»PEoRdROS&FL
BV&5FiVRNRByvEHURoDPRN7RAN]DPISNTNRIASTNASRAR(YReKAARLPTeINTORINTLIEBgSP¥0oe0e0PbSTV8Me0YON0LYAE0N¥HYRTUDRW»YUVEWYSuyIPnNAWVRANIREPRRAKNPRRNL&R
bO0NN»R&eO%vOrP3eReaOPnVeAAVnMDIRMnMSFMiNDE@NANRENoMINormNoMON=- poONRNOR0st¥ObO8OWaNVwOyRDOVORNBRS OFOERV ROO
CZRL IDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE M- 12
(RO SS REFERENCE TABLE (CREF v04.00 )

D_14

MSTLAB

SEQ 0172

60FAVURTaOWbsgeKIvoPVyRDIwSR R-&®uan

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4~AUG-82 10:30:59 PAGE H-§3
CROSS REFERENCE TABLE

9-6%50
9-521#

9-644n
9-6590

9-64
9-666
9-698#
9=-720#

§-785

9-767
9-813
9-8494

9=-7704
9-815#
9-859

' MSWORD

9-765#
9-807#
9-849
9-871
9-885#
9-927#
9-9914
9=:71
9=:12
9-:63#

1-17

SEQ 0173

(CREF v04.00 )

9-488
9-5;1
9-557#

9-606

9=557#
9=

9-735#

9-871#
9-889

9-931
9-991#
9=:714
9=-:12#

9-491
9-529
9-570
9-6094
9-6514
9-667

9-724
9-7394

9-4914
9=-529¢
9=-570#
9-634

9-653

9-667#
9=-705#

9-516
9-5484
9-587
9-644
9-658¢
9
9-7174
9-734
9-7634
9-805#
9-8484
9-870#
9-885
9-927
9-9854¢
9-:63
9-:95

9-;52#
7-463

9-516#
9-557
9-587#
9-644#
9-659
9-698
9-720
9-734#
9-765
9-807
9-B4LE#
9-870#
9-885#
9-927#4
9-991
9-:63#
9-:95#

9-;63

7-463

8-157
8-326
8-509
8-635
8-787
9-29

8-157#
8-326
8-509#
8-635
8-787#
9-29

9-231
9-278
9-318
9-358¢
9-474
9-505#
9-558#
9-634
9-654#
9-720#
9-735
9-859
9-883
9-927
9-991#
9-:708
9-<07#

9-231#
9-278#
9-318#
9-376
9-474
9-529
9-570
9-634
9-658
9-698
9-721#
9-735#
9-859#
9-883
9-927
9-:71
9-:72
9-<09

PRINTB

8-<04

8-<08

PRINTF

9-17
9-527

9-60
9-761

9-41
9-91#
9-143
9-1744
9-201#

9-41#
9-118
9-143
9-184
9-202#

MANUAL

POINTE

F 14
CZRLIDO RLO1/02 DRIVE TE T 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE M-14
CROSS REFERENCE TABLE (C EF v04.00 )
READEF
SETPR]

SETVEC
sv(C

9-763
7=544

9-765
7=549
7-625
7-681
9-458
1-8

' TIMDLY

9-114

WALTMS

7-651
7-281
9=125#
9=405#

[uAlvus
XFER

9-508

9-721#

=767
7=5
7-71
7-71
9-476
9-136
9-651
7-7%1
8-139
9=-144n
9=475#
9-725#4

SEQ 0174

9-77
7=-57

9-77
7-57

9-813

9-114
9-508

9-136
9-651

9-147
9-7i7

9-182

9-212

9-224

9-245

9-300

9-316

9-328

9-182

9-224

9-245

9-300

9-316

9-328

9=426

9-458

9-468
9=2274
9=-6454
9-884#

9=232#
9=654#
9-926#

9-237#
9-659#

9=2664#
9=-6674

9-307#
9-699#

9-147
G717

8-99
8-1c9

9-165#
9-482#
9-734n

3-779

=605
9-202#

9-580#
9-871#

9=:74

8-768

9=215#
9-635#4
9-876#