Digital PDFs

AH-F118D-MC

January 1983

175 pages

Original

8.7MB

view download

OCR Version

7.7MB

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

OCR Text

eZRiIGG’ -

Prone
i or s e HIEONET

3EQ 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 - COLORADO

AUTHORS :

D. CLAFLIN

TEST

ThHE INFORMATION IN THIS DOCUMENT IS SUBJECT 'O CHAMGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL EQUIPMENT CORPORATION.
ODIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIG MANUAL.

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED
TO
THE
PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN
BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY
FOR
g?EDIé?TEECH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?g?;k{ABILITY OF

(C)>

I1TS SOFTWARE ON EQUIPMENT THAT

IS NOT SUPPLIED BY

1977,1980,1982 DIGITAL EQUIPMENT CORPORATION

PAGE 2

)

TABLE OF

NN
N —

)

NN
L] [ ]
N -

HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION

SAMPLE RUN-THROUGH
CHAIN MOD< OPERATION
DETAILS Of COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX

EXTENDED P-TABLE DIALOGUE

ERROR INFORMATION
ERROR REPORTING
SPECIFIC OPERATION MESSAGES

SPECIFJC RESULT MESSAGES
OTHER MESSAGES
ERROR HALTS

TEST SUMMARIES

DEVICE INFORMATION TABLES

N) =

HO
W

(AN)
—

[]

HARDWARE PARAMETERS
SOF TWARE PARAMETERS

—b
b
b

SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

NN
=

HARDWARE REQUIREMENTS

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
DIAGNOSTIC HISTORY
SYSTEM REQUIREMENTS

PROGRAM ABSTRACT

OPERATING INSTRUCTIONS

NN
nn
[ ] L]
. L]
.
NN NINIWNNINN)
—
[ ] ()
. []

N.CD

- b b

L] L]
=

—b

)

CYDISIIN

.
[ ] []
ANESAN
= =) =D b =d b

GENERAL INFORMATION

CONTENTS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

5EQ 0002

PAGE 3

1.0

GENERAL

INFORMATION

1.1 A

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC

IS COMPATIBLE WITH BOTH XXDP+ AND ACT.

RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+,

CAN

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
T0
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 1S LOADED IN THE LOWER 8K

MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES
1.5k OF MEMORY SPACE.

IN THE

DIAGNOSTIC

1.1 .2

SUPERVISOR

CODING

OCCUPIES 6.25K OF

MEMORY.

THE

THE UPPER PART OF

UPPERMOST

DIAGNOGSTIC INFORMATION

THIS PROGRAM TESTS AND EXERCISES

PL01/02

DISK

DRIVES

RL11/RLV11

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

AND

BASIC

DRIVE

LOGIC.

GET
STATUS WITH RESET, GET STATUS, SEEK, AND READ HEADER ARE THE
ONLY COMMANDS EXECUTED IN THE PROGRAM.
ONLY SEEKS WITH
O
DIFFERENCE ARE USED SO NO HEAD MOVEMENT IS REQUIRED.
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 0005

PAGE 4

ARE
BYPASSED.
WITHOUT MANUAL
PROXIMATELY 135 SECONDS TO RUN.
1.1, 3
DIAGNOSTIC HISTORY

INTERVENTION,

THE

TEST REQUIRES AP~

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 BRUGH DRIVE.

IT ALSO WILL WORK ON A SYSTEM THAT DOES NOT HAVE A

WERE

INSERTED TO FACILITATE QUICKER RESFCNSE

1.2

SYSTEM REQUIREMENTS

1.2. 1

HARDWARE REQUIREMENTS

* PDP=11/LSI-11

* CONSOLE DEVICE
* 1

TO A C.

KW11P,

BREAKS

PROCESSOR WITH 16K OR MORE OF MEMORY

(LA30,LA36,VT50,ETC.)

OR 2 RL11/RLV11

CONTROLLER(S) WITH:

- 8 RLOT

DRIVES WITH RLOTK CARTRIDGES CONTAINING

°'BAD

- 8 RLO2 DRIVES WITH RLO2K CARTRIDGET CONTAINING
SECTOR FILE®

‘'BAD

SECTOR FILE'®

* KW11P CLOCK (P CLOCK) OR kWI1L

(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
XXDP+/USER'S MANUAL

1.4

(EK=-RL012-UG~002)

DIAGNOSTIC HIERARCHY PREREQUISITES

THE RLO1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

:
PROGRAMS

RUN

THE

FOLLOWING

SEQ 0004

PAGE 5

CVRLA
CZRLG
CZRLH
1.5

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

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

2.0

OPERATING INSTRUCTIONS

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

TD
WORK
ETC., DO

THIS DIAGNOSTIC PROGRAM SHOULD BE LOADED AND STARTED
USING
NORMAL
XXDP+
PROCEDURES.
START
THE
EXECUTION
OF THE XxXDP+ MONITOR BY
USING THE APPROPRIATE BOOTSTRAP PROGRAM.
THE MONITOR WILL PRINT
A
MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
53;;?53.
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
REKEEHE
MONITOR
IS PRINTED.
THEN THE FOLLOWING TWO QUESTIONS ARE

50 HZ ? N
LSI 2
N
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:

L2232222221

* STEP 1

1282222884

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 DIAGWE 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 RES-

PONSE TO THE XXDP+ DOT PROMPT,
THIS ''START''
(COMMAND
CAN
TAKE
A
NUMBER
OF
SWITCHES
AND
FLAGS
(ALL OPTICNAL) AND THE DETAILS OF
THESE ARE SET FORTH
IN
‘2.3
DETAILS
OF
COMMANDS
AND
SYNTAX''.
HOWEVER,
IN ORDER TO USE
THING LIKE THIS:

THE PROGRAM,

ALL

YOU NEED TO SAY

IS SOME-

STA/PASS:1/FLAGS
:HOE
THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND
AT THE 'DR>'' LEVEL NEED TO BE TYPED.

THE ''PASS'' SWITCH SPECIFIES HOW MANY

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:

PNT
LOE
HOE

PRINT NUMBER OF
LOOP ON ERROR
HALT ON ERROR

IER

THE HOE

NUMBER

TEST BEING EXECUTED

INHIBIT ERROR PRINTOUT

FLAG

IS SPECIFIED

SEE WHY SHORTLY).

IN THE ABOVE EXAMPLE

(WE'LL

1444242222

* STEP 2 +

L 24222

dddd

WHEN YOU HAVE TYPED IN A "'START'' COMMAND,

BACK

WITH

THE

THE DIAGNOSTIC WILL

COME

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

TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.

A WORD OF WARNING HERE:

THE NUMBER OF UNITS DEPENDS ON THE

TARGET

DEVICE
OF
THE
DIAGNOSTIC.
FOR EXAMPLE, IF THE DIAGNOSTIC IS DI~
RECTED AT A DISK DRIVE, THEN THE
NUMBER
OF
UNITS
WOULD
BE
THE

SEQ 0006

PAGE

NUMBER
OF
DRIVES TO BE TESTED.
WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF
UNITS
WwOULD
BE
THE
NUMBER
OF CONTROLLERS.
~THE TARGET DEVICE OF A DIAGNOSTIC CAN

ALWAYS BE DETERMINED BY INSPECTING THE 'HEADERTM STATEMENT NEAR
THE
BEGINNING OF THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS
"HEADER
STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.
L2222022244

* STEP 3 «
LA

282

8044/

WHEN YOU HAVE TYPED

IN THE NUMBER OF

QUESTIONS ARE USED

UNITS TO BE

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

?Eg?gtES".

BUILD

TABLES

TESTED,

THE

DIAG-

THE ANSWERS 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.
Rk ARRAACEY

« STEP 4 =

142442243234

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS

(SEC

2.5)

FOR

ALL
THE
UNITS,
YOU WILL BE ASKED ‘'‘CHANGE SW?'' IF YOU WANT TO BE
ASKED THE SOFTWARE QUESTIONS THAT CETERMINE THE
BEMAVIOR
OF
THIS
PROGRAM,
TYPE
'*Y''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
QUESTIONS, TYPE 'W''.
IF
YOU
TYPE
'Y'' YOU WILL
BE
ASKED
THE
SOFTWARE
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 TVESTED.

1224222432}

* STEP 5 «
| 452432021

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS,

BEGIN

TC EXECUTE THE HARDWARE TEST CODE.

THAT CAN HAPPEN NEXT,

THE DIAGNOSTIC WILL

THERE ARE SEVERAL THINGS

DEPENDING ON WHETHER A HARDWARE ERROR

EN-

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

5€E0 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
?tngNS.
DEPENDING ON THE SETTINGS OF THE HOE AND LOE
HOE SET:
THE ERROR WILL BE REPORTED
ON
THE
CONSOLE
AND THE OIAGNOSTIC 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).,
zgfzé xgg?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 MOST

THE

AT THIS
PROGRAM

ISSUE A 'PROCEED'' COMMAND:

NO QUESTIONS ASKED.

EXECUTION WILL

RESUME

THE
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A
SPECIAL COMMAND AND CAN BE ISSUED ONLY AT A HALT

TYPICAL

THING TO DO HERE

DIFFERENT FLAG SETTINGS.

IS TO ISSUE

THE PROCEED, BUT WITH

PROBABLY YOU WOULD WANT TO SAY:

»EQ 0008

PAGE 9

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

DO THE

FOLLOWING:

TURN ON THE

IER

C(INHIBIT ERROR PRINTOUT)

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT

FLAG

INSTRUCTION AFTER ERROR REPORT

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

STUDY 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 EXECUTION
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-QUT FROM THE ABOVE
(0=0PERATOR, D=DIAGNOSTIC):

DIALOGUE

MIGHT

LOOK

THIS

3EQ 0009

1
PAGE

8Y
WHOM

OOUOO0OOUDOUO

O0O00000
000000

%
&
&
%

? N

CHANGE SW (L)

(L)

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

Y ?

BUS ADDRESS (0) 174400 ?

UNIT 1
RL1T (L)

EXECUTE DRIVE SELECT TESTS (L) N ?
EXECUTE HEAD AL IGNMENT SUPPORT (L) N ?
DO MANUAL INTERVENTION TESTS (L) N ? ¥
INPUT ERROR LIMIT (D) 20 ?

Y ?

(L)

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

VOUUUUVU

? 2

UNIT 0

RL1T

COVY

(D)

0000

# UNITS

(L)

.«

CHANGE HW

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

AND BASIC DRIVE LOGIC

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

.R CZRL!D
DRS LOADED

o000

ENTERED:

{N=RLO2)

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

0.0
I

\A AR

THIS POINT

ddidRd

THE DIAGNOSTIC

222222223282

2882

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.

YOU CAN SCOPE

SEQ 0010

1
PAGE

THE ERROR UNTIL

YOU HAVE LOCATED IT,

THEN “C OUT

1222223222202 22282222232222232222222222222022220R222"

“C

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

0.0

CHANGE SW (L)

0.0

? N

E%RLI EOP 1

DR>RESTART/PASS:1

0.0

CHANGE SW (L)

0,0

? N

2.2
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
RESPONSE TO THESE QUESTIONS ARE USED TO BUILD P-TABLES.
THE RESULT OF
THE St fUP PROCESS 1S A FILE WHICH INCLUDES THE DIAGNOSTIC WITH
AP-

PENDED 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 ASCII

FILE

(KNOWN AS A

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

A CHAIN FILE MAY BE GENERATED BY USE
OF
THE
XTECO
TEXT
EDITOR.
THIS
FILE
MUST
HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN
ANY OF THE
JMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THE
COMMANDS
égUN}gEEDASCII FILE ARE EXECUTED IN THE ORDER IN WHICH THEY ARE ENTO EXECUTE

A CHAIN FILE

C FILNAM <CR> CR

THE

USER

TYPES:

SEQ 00N

M
PAGE

C FILNAM/QV

<CR>

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN THE
CHAIN FILE
IS
USED BY THE XXDP+ MONITOR TO DETERMINE THE NUMBER OF PASSES TO EXECUTE EACH PROGRAM.
IN THE SECOND CASE THE
PROGRAM COUNT
IS NOT
USEC AND EACH PROGRAM 1S 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/SOFTWARE
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 EXECUTED THE XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT
(.).
IT
IS
READY
TO ACCEPT ANOTHER COMMAND FROM THE CONSOLE.
IF THE
LAST COMMAND [S ANOTHER C COMMAND, THE CHAIN MODE WILL CONTINUE AND
THE

CHAIN FILE

SPECIFIED BY

THIS NEW C

COMMAND WILL BE USED.

THE USER WISHES TO TERMINATE CHAIN MODE BEFORE

I1TS NORMAL TERM]-

NATION
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 CURRENTLY RUNNING.

2.3

DETAILS Of COMMANDS AND SYNTAX

2.3. 1

TABLE OF

COMMAND VALIDITY

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

HOW ENTERED

OPERATOR ENTERED

LEGAL COMMANDS

°‘RUN DIAG'

STARTY
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT
2.

D IAGNOSTIC HAS FINISHED ALL
I TS REQUESTED PASSES

START

RESTART

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

SEQ 0012

N1
PAGE

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART
CONTINUE

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

AN ERRUR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART
CONTINUE
PROCEED
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

2.3.2

COMMAND SYNTAX

L3222 NEARRRRRRRRdRR2RR0
s
230
00202 Rd2 2220022 2]

STA(RT)/TESTS:TEST=LIST/PASS :PASS=CNT/FLAGS:FLAG=LIST/EQOP:EOP~INCR
(222222000l aldsdadliddiddidislidiiddiiidlilisdlisddiiiailiiiliild]]

THE DIAGNOSTIC

SPECIFIED.

IN CORE

THE

IS EXECUTED IN ACCORDANCE WITH THE

MESSAGE ''# UNITS?'' IS PRINTED.

SWITCHES

THE START COMMAND

MAY BE ISSULD WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THE FOLI.OWING:

A) OPERATOR TYPED

‘RUN DIAGNOSTIC'' B) DIAGNOSTI(

FINISHED EXECUTING C) ERROR WAS ENCOUNTERED W!Th HOE

FLAG

SET

OPERATOR ENTERED
CONTROL/C.
AFTER
THE
OPERATOR RESPONDS TO °'#
UNITS?', THE HARDWARE DIALOGUE 1S INITIATED.,
WHEN IT IS COMPLETED,
THE
QUESTIONS
‘‘CHANGE
SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
BECOME THE NEW DEFAULTS.
THEREFORE IT IS NECESSARY TO RELOAD
THE
PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS,
THE

SWITCH ARGUMENTS ARE AS FOLLOWS:

“TEST-LIST'* IS 4 SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)

RANGES

OF DECIMAL NUZBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED,
THE NUMBERS KRE SEPARATED BY COLONS.
THE
NUMBERS RANGE
FROM

Ty THE LARGEST

SPECIFIED IN ANY ORDER.

REGARDLESS

CUTE ALL

GCF

TESTS.

THE

TEST NUMBER IN THE DIAGNOSTIC.

ORDER OF

SPECIFICATION.

"PASS=(NT'' [S A DECIMAL NUMBER INDICATING
PASSES.

A PASS

THEY MAY BE

TESTS WILL BE EXECUTED IN NUMERICAL

IS DEFINED AS

THE

THE DEFAULT

THE

EXECUTION OF

DESIRED
THE

FULL

ORDER

IS 7O EXE-

NUMBER

DIAGNOSTIC

SEQ 0013

2
PAGE

(ALL

SELECTED

NON-ENDING

TESTS)

TEST

AGAINST

ALL UNITS

EXECUTION.

SUBMITTED.

‘FLAG~LIST''

THE

DEFAULT

IS A SEQUENCE OF

OF THE FORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:

HOE HALT ON ERROR,

CAUSING COMMAND MODE

LOE LOOP ON ERROR,

CAUSING THE DIAGNOSTIC

ERROR IS ENCOUNTERED

TO BE

ENTERED

TO LOOP

ELEMENTS
(OLONS,

WHEN

CONTINUOUSLY

TEST. ‘OR'TEST)CONTAINING
THE ERROR o= (oorn SU8"

IER

INHIBIT ERROR REPORTING

IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

PRI

DIRECT

ALL

MESSAGES

PNT PRINT NUMBER OF

TO A LINI

PRINTER

TEST BEING EXECUTED

BOE BELL ON ERROR

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL
ISR

INTERVENTION TESTS

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
fib;AEESEN AtLF%tEGQOIREPEEéiggg.IS CLEARED.
[IF

EQUATED
TO
0
ARE
THF FLAGS SWITCH IS

"EOP=INCR’’ IS A DECIMAL NUMBER INDICATING HOW OFTEN
PASSES)
DEFAULT
A

(IN

TERMS

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

ALt

THE

RES(TART)/TEST:TEST=LIST/PASS:PASS=CNT/FLAGS :FLAG-LIST/EOP:EOP=INCR/

UNITS:UNIT=LIST
LAAAAAAAAARR

ARt

ldld s

stttz

itiz

RIS

S€0 0014

2
PAGE

THE

DIAGNOSTIC

CORE

SPECIFIED.,
HOWEVER,
Ntw
ONES IN CORE ARE USED.

EXECUTED

IN ACCCRDANCE

WITH

'P-TABLES'' ARE NOT BUILT.

THE

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
Eng:gE/CVIA
A)
DIAGNGSTIC
IS
FINISHED
B)
HALT
ON
LtRROR
()
THE

SWITCH ARGUMENTS

ARE

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 LOGICAL
UNIT
NUMBER
DESIGNATES
THE
POSITION
OF
THE
P~TABLE

IN CORE,

ACCORDING

THE

ORDER

IN WHICH

THEY

WERE
B!'ILT.
THE
UNITS SPECIFIED MUST NOT HAVE BEEN
DROPPED BY THE OPERATOR DROP COMMAND.
THE
UNIT-L]ST

DEFAULTS

TO “‘ALL THAT HAVE NOT BEEN DROPPED BY OPERA~

TOR COMMAND®'.
THE

THE EFFECT OF

START

(WHERE

“ALL'") OR THE NEXT RESTART.

ALl

THE UNIT=LIST LASTS UNTIL
IS AUTOMAYICALLY

RESET

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

L AAASARLAAARARRARR2daddRdiddi
il
2]

CON(TINUE) /PASS : <PASS=CNT/FLAGS :<FLAG=LIST>
LARAAAAAARSAARRRRRRR22R80223022203d30
323220 §

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON
ERROR
OR
A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF
THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
PLACC.
SOF TWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE

PARAMETERS MAY NOT BE
THE

CHANGED.

SWITCH ARGUMENTS ARE

IN THE

START COMMAND EXCEPT:

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

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

A8 AAAAAARAR22d

FROM

8202222220

PRO(CEED)
/FLAGS :<FLAG-=LIST>
tetagetT
R ROARORARRRRORRROANY

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

THE

EFf-

SEQ@ 0015

2
PAGE

FECT

THE

COMMAND

YHEEEESOR CALL.

AL .

THE

SWITCH ARGUMENTS

TO BEGIN EXECUTION AT

THE

NEITHER HARDWARE NOR SOFTWARE
ARE

THE

SAME

UNSPECIFIED FLAG

THE

START

SETTINGS ARE

LOCATICN

PARAMETERS

FOLLOWING

MAY

(OMMAND EXCEPT:

UNCHANGED

L A 24

EXIT
L2 22 J

RETURN TO XXDP+ PROMPT MODE.
\AAAA A2
Rd2]2 D]

DRO(P) /UNITS:UNI(=LIST
LA

RS20

022022

d ]

THE UNITS SPECIFIED ARE

DROPPED FROM TESTING UNTIL

gec: ngcggglL A START COMMAND IS GIVEN.

THEY

ARE

ADDED

A DROP CANNOT BE FOLLOWED

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

ADD/UNITS:UNIT-LIST
LAAAAA222222RR2R22
S

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST MAVE BEEN
PREVIOUSLY
DROPPED
BY
THE DROP COMMAND) TO THE TEST SEQUENCE.
AN ADD CANNOT
BE FOLLOWED BY A PROCEED.

(A2 4223 ]

PRI(NY)
1228224

ALL

THE

STATISTICS TABLES ACCUMULATED BY
ISR

C(INHIBIT

STATISTICAL

THE

REPORTING)

DIAGNOSTIC
FLAG

ARE

PRINTED.

IS CLEARED.

(AR AASR4dRR22020020020RZR
]

DIS(PLAY)/UNITS:<UNIT-LIST>
IRAAA
SRR R2AdsR2d
ASA
2 dddd

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

BY THE OPERATOR '‘DROP'' COMMAND APE SO DESIGNATED.

OUT
IN
DROPPED

SEa@ 0016

2
PAGE 17

seesee
Y

FLA(GS)
sreeNeY

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
L AA A4

ZFL (AGS)

(A2
R 212

ALL FLAGS ARE

2.4

CLEARED.

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE
IS
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

REVEALEN

THE

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

BETWEEN

THE

SAME FORMAT,

THE

HARDWARE

AND

THSRE

PARAMETER

ONE-TO-ONE

QUESTIONS

AND

CORRESPONDENCE

THE

SLOTS IN THE

P-TABLE FORMAT.
IN GIVING A STRING OF VALUES, COMMAS
WITHOUT
INYE::ENI:G EVALUES
MAY BE USED TO INDICATE A REPETITION OF THE LAST
NA
VALUE.
A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
IFf
fHE
VALUES
REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRAN-

SLATES TO THE STRING 6,7.8,9,10 (AN INCREMENT OF

AR~

ADDRESSES,

THE

INCREMENT OF 2).

SAMPLE

RANGE

TRANSLATES

TO THE

1).

IF THE VALUES

STRING 6.8,10

(AN

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 EACH (5 SLOTS IN THE
5 HARDWARE QUESTIONS IN THE DIALOGUE).
FOLLOWING
TEM
HAS

IS THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM.
THIS
SYS(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

UNITS

UNIT 0
RL1T

(L)

P-TABLE,

SECOND CONTROLLER):

(D)
v

? 8
?

BUS ADDDRESS (0)

174400 ?

RLO2'S

SeQ 0017

2
PAGE 18

VECTOR (0)

160 ?

DRIVE (0) 0 ? 0-3
DRIVE

TYPE = RLOT

BR LEVEL

(0) 5 ?

UNIT &
RLIT (L)

v ?

(L)

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

TYPE

BR LEVEL
THE

= RLOY

(0)

FIRST

5 ?

TIME

(L)

¥ ? N

THRU THE

P-TABLE

QUECTIONS

THE

DEFAULT

VALUES

ARE

USED FOR THE CONTROLLER TYPE (QUESTION #1), (SR ADDRESS OF THE CONTROLLER (QUESTION #2), THE CONTROLLER VECTOR
ASSIGNMENT
(QUESTION
#3),
#6).

THE
ORIVE
T/(PE
(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 & P~TABLE SLOTS.
THE

TYPE

SECOND TIME

THE

SECOND CONTROLLER),

CONTROLLER.

CHANGE

THRU THE P-TABLE QUESTIONS
THE

(FOR THE RLO2 ASSIGNMENT

THE FIRST QUESTION DEFAULTED TO ‘RL11"

SECOND QUESTION WAS ANSWERED

IN CSR ADDRESS FOR THE RLO2 CONTROLLER

(175400).

REFLECT

THE

SECOND

CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION #3.
THE
RLOZ
TEST
UNIT NUMBERS WERE ASSIGNED VALUES O TO 3 IN GUESTION #¢

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.
HARDWARE PARAMETERS
THE

FOLLOWING QUESTIONS WILL BE ASKED

START

JALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS
THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.

RLTY

(L)

(OMMAND.

THE

THE DEFAULT VALUE

¥?

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

BUS ADDRESS (0)
ANSWER WITH

VECTOR (0)

174400?

THE BUS ADDRESS OF

160?

CONTROLLER, NO(N)

THE

CONTROLLER.

YOU HAVE

SEQ 0018

2
PAGE 19

ANSWER WITH THE

DRIVE

INTERRUPT VECTOR OF

CONTROLLER.

(0) 0?

ANSWER WITH THE DRIVE(S)
DRIVE

THE

TYPE

= RLOV

ANSWER NO (N)

BR LEVEL

(0)

IF DRIVE

CONTROLLER

IS AN RLOZ2

ANSWER WITH THE

2.6

(L)

CONNECTED TO THE

INTERRUPT PRIORITY OF

THE

CONTROLLER.

SOF TWARE PARAMETERS
THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART,
OR
CONTINUE.
THEY
ALLOW
FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.
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 DEFAULT IS
TAKEN
ON A <CR>.
(ONTROL Z (*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND
START THE TEST.

EXECUTE DRIVE SELECT

TESTS (N)?

IF "'YES'' TESTS 5 AND 6 ARE EXECU'ED IN THE FIRST PASS OF

GRAM.

THESE

TESTS

REQUIRE MANUAL

PLUGS AND REQUIRE A FULL

COMPLEMENT OF

ADDRESS PLUGS

EXECUTE HEAD ALIGNMENT SUPPORT

IF "'YES'',

TEST 11

THE

(0 -~ 3).

(N)?

IS EXECUTED [N THE FIRST PASS.

EXECUTE MANUAL

INTERVENTION TE5TS

(N)?

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

gs:;egg

OPERATIONS,

PRO-

INTERVENTION TO CHANGE ADDRESS

HEAD

LOADIWC,

SPECIFY ERROR LIMIT

HEAD UNLOADING,

(DECIMAL)

(20)?

[N~

AND ALL STATE

Sta 0019

2
PAGE

THIS

LIMIT

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

.S EXCEEDED,

3.0
ALL

THE DRIVE

IS DROPPED FROM FURTHER TESTING.

ERROR INFORMATION

ERRORS ARE

PRINTED

VIA

(ONSOLE

NUMBER,
TYPE AND PROGRAM LOCATION.
ERROR WITH RELEVANTM DATA,

DEVICE.

ERRORS

THE

ERROR

INCLUDES

ERROR

INCLUDE REGISTERS BEFORE AND AT

ERFOR REPORTING

MOST ERROR REPORTS HAVE

THE

FOLLOWING FORMAT,

(i)
(2)

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

(3)

TEST DESCRIPTION

ERR PC

(ADDRESS)

(4)
(5)
(6)
(7)
(8)
(9)

OPERATION:
RESULT:
ADDRESS OF UNJT UNDER TEST
RLCS
RLDA

RLBA
RLMP
cyL
OP INIT
OP DONE
DRIVE STATUS
WORD NUM IS (XXXXXX) SB (YYYYYY)
TOTAL COMPARE ERRS: (212Z) OF (128)

(10)
(11)
(12)

THE ONLY EXCEPTION TO THE ABOVE FORMAT

READ

ERROR).

IS PURE DATA (OMPARE ERRORS

{SCIED

B8Y

LINE 1

IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR.

(NOT DE-

THEN THE FORMAT DOES NOT INCLUDE LINES 5 THROUGH

éiECb?EgTI‘IED 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

’0! WHERE IN THE TEST THE ERROR OCCURRED.
"THE ERROR P.C.

THE PHYSICAL MEMORY LOCATION WHERE

DESCRIPTIVE

THE ERROR REPORYT

WAS

6@ vucu

PAGE 21

INITIATED.,

~ SINCE

FROM SUBROUTINES,
TION OF THE ERROR

MANY FUNCTIONS ARE

SUBROUTINED,

LINE 2 IS THE ROUTINE TRACE SEQUENCE.

[IF

TUAL

CALLED

WITHIN
PORT IS
CALLED
SEVERAL

AND ERRORS ARE REPORTED

THE ERROR P.C.
IS NOT SUFFICIENT TO IDENTIFY
THE
CALL AND THE ROUTINE TRACE SEQUENCE 1S PROVIDED.

LOCA-

THE ERROR CALL IS INITIATED

FROM

THE
TEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION OF THE RE-~
OMITTED.
IF THE CALL IS INITIATED FROM A
ROUTINE
(WHICH
MAY
BE
BY
ANOTHER
ROUTINE,
WHICH MAY BE CALLED BY ANOTHER ROUTINE, ET(.
LEVELS DEEP) THE ROUTINE TRACE SEQUENCE PROVIDES A TR,.!L TO iHE AC-

(OCATION

ENTRY LISTED

W!THIN

THE

TEST

IS THE LOCATION WHERE

THAT

THE

FIRST ROUTINE.

THE

THE FIRST ROUTINE WAS CALLED.

FIRSY

LINE 3 IS THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE NAME OF
TLST BEING PERFORMED.

LINE &

IDENTIFIES THE ACTUAL HARDWARE

FUNCTION

THAT

BEING

THE

PERFORMED.

ADDITIONAL
INFORMATION
ON THIS LINE IS DESCRIPTIVE OF SPECIFIC USE OF THE
FUNCTION.
FOR EXAMPLE, THE OPERATION LINE WILL RFAD ‘READ HEADERS
FOR
40
HEADERS'® WHEN ALL HEADERS ARE BEING READ FROM A TRACK.

LINE S IDENTIFIES THE ERROR THAT HAS BEEN DETECTED.
THE CONTENT OF LINE
5§
IDENTIFIES
WHAT
WAS
BENG
TESTED (SUCH AS DRIVE READY, CONTROLLER ERROR,
DRIVE STATE, ET(.), WHAT IT IS AND WHAT IT SHOULD BE.
LINE 5 MAY BE
REPE~
ATED

THAN ONE

TESTED

ITEM IS FOUND

IN ERROR.

IN ADDITION LINE 5 WILL REPORT ANY HARDWARE DETECTED ERRORS SUCH AS

OPERA-

TION
INCOMPLETE,
HEADER CRC, ETC.
IN THIS CASE THE FIRST LINE PRINTED AS
RESULT WILL BE DETERMINED
BY
THE
THREE
ERROR
BITS
OPI,
HNF/DLY,
AND
HCRC/DCRC.
THE LINE WILL BE DETERMINED AS IN THE FOLLOWING TRUTH TABLE:
HNF/DLT
1

DCRC/HCRC
1

OPI
1

ME SSAGE
HDR NOT FND/HDR CRC/OPI ERROR

HOR CRC ERROR

DATA CRC ERROR

HDR NCT FND ERROR
DATA LATE ERROR

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER
TEST.
DRESS IS BY UNIBUS ADDRESS OF THE CONTROLLER AND DRIVE NUMBER.

LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND
ARE

APPLICABLE

IN THE REPORT)

TO SE REPORTED.

HEAD

THIS

WHERE

AD-

THESE

%aTglgt:govxoss THE CONTENTS OF CONTROLLER REGISTERS WHEN THE OPERATION WAS

| INE 9 PROVIDES THE CONTENTS OF THE CONTROLLER REGISTERS WHEN
THE
ERROR
BEING REPORTED WAS DETECTED.
FREQUENTLY THE REGISTER CONTENTS OF OP INIT

SEQ 0021

2
PAGE 22

AND OP DONE wiILL BE DIFFERENT.
OP INIT MAY INDICATE A SEEK WAS BEING
PERFORMED
BUT
OP
DONE MAY INDICATE THE ERRCR WAS DETECTED BY A READ MEADER.
THE REASON IS THAT A SEEK WAS EXECUTED AND DID NOT PROPERLY POSITION
HEADS
AND WHEN THE READ HEADER WAS DONE THE HEADS WERE ON THE WRONG CYLINDER.

LINE

10 IS THE DRIVE

TER DOES NOT

CONTAIN

STATUS.

THE

THIS LINE

ACTUAL

DRIVE

1S ONLY REPORTED IF

THE RLMP REGIS~

STATUS.

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS A (OMPARE OPERATION, EITHER DATA OR HEADERS.
[N ADDITION, GOOD AND BAD DATA [S REPORTED FOR ALL READ ERRORS.

3.1
THE
THE

SPECIFIC OPERATION MESSAGES

OPERATION MESSAGE (LINE 4) IS GENERATED IN A DYNAMIC
SUBSYSTEM
FUNCTION
BEING
EXECUTED
AT THE TIME OF

STATE OF

THE FLAGS IN THE LOCATION TAGGED ‘'OPFLAGS''.

TION MESSAGES ARE

GIVEN BELOW.

THE

MANNER
BASED
THE ERROR AND

POSSIBLE

ON
THE

OPERA-

SEEK -

FROM (CYL NUM) DIFF (CYL DIFF) SGN (0 OR 1) HD (0 OR 1)
WHERE
THE
VALUES
ARE
GIVEN
IN
OCTAL.
THIS MESSAGE IS THE RESULT OF A SEEK OPERATION THAT
WAS VERIFIED BY A READ HEADER AND THE HEAD POSITION
AFTER
A
SEEK
IS
IN

ERROR.

(THE

RESULT LINE,

ACTUAL HEAD POSITION IN THIS ERROR SITUATION IS GIVEN IN THE

LINE

5.)

READ DATA -

IS A READ DATA OPERATION WHERE SOME FORM OF ERROR WAS DETECTED IN THE ACTu-

AL READ OPERATION.
THIS ERROR COULD BE HARDWARE DETECTED SUCH AS DATA (RC,
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 Wi'ONG.
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 HEADER FOR 40
HEADERS ARE THE RESULT OF ERRORS DETECTED IN THE ACTUAL OPERATION WHILE THE

READ
HEADER
FOR
40 HEADERS WITH HEADER COMPARE INDICATES NO ERROR IN THE
ACTUAL OPERATION BUT THE HEADER DATA ITSELF WAS IN ERROR.

SEQ@ 0022

S
PAGE 23

WRITE
RESEY

GET
GET

DATA ~

STATUS STATUS WITH RESET -

ARE ALL BASIC OPERATIONS.
AS BEFORE, THE ERROR
?A?D:QESRTOR SOFTWARE.
THE RESULT LINE (LINE 5)
H

DETECTION
CAN
BE
EITHER
WILL DEFINE THE REASON FOR

LD DRV UNLD DRV ARE OPERATION MESSAGES THAT WILL APPEAR
AND UNLOAD SEQUENCE

IN THE REPORT WHEN THE

DRIVE

LOAD

IS BEING TESTED.

ANGCTHER 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

OPERAT |ON

TEST.

QUALIFIER

READ DATA WITH DATA (OMPARE

FOL 0 TO CC

WRITE DATA
READ HEADER

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

READ DATA

SEEK

FOL 255 7O CC SEEK

ADJ. CYL WRITTEN AFTER REV _SK
SK FWD, WRT=SK REV, OVERWRY
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

B8Y PROVIDING INFORMATIG: ABOUT THE SEQUENCE OF OPERATIONS BEING DONE.
THE QUALIFIERS *FOL O TO CC SEEK'' AND ''FOL 255 TO CC
THE

SEQUENCE OF

OPERATIONS

INCLUDED A SEEK OF

INDER WHERE THE TEST IS BEING PERFORMED.

THE "FOL WRITE

SEEK''

IN{ ICATE

A GIVEN DIRECTION TO THE

THAT

(YL~

(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

THE ADJACENT CYLINDER INTERFERENCE TEST.

THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS ON THE CYLINDER UNDER
TEST
A:g Ug?;%zs
THE
DIRECTION THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER

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

OVERWRT''

AND

'Sk

THE

INITIAL

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

THE DIRECTION

HEAD

MOTION

BEFORE

REV,

WRT=SK

FuD,

THESE QUALIFIERS DEWRITE

AND

THE

SEQ 0023

2
PAGE 24

OVERWRITE.
THE

QUALIFIER 'ON BAD SEC

FILES'' WwILL BE

g:gbssé;ORT?§L2§OGflAH ABORTS

3.1.2

THAT

REPORTED WITH

COMMAND BECAUSE

THE

WRITE

DATA

(OM-

THE WRITE WOULD BE ON THE

SPECIFIC RESULT MESSAGES

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

ARE MONITORED DURING EXECUTION THE RESULT

ERROR

xtE

DETECTED

E:gfgr

THE GENERAL

THE

OPERATION.

ONLY

THE

FIRST

FORMAT FOR THE RESULT LINE

RESULT: (VAR 1)
WHERE VARIABLE

MESSAGE

MAY

REPORT

DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT
ERROR

SEEN

IS REPORTED

IS:

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

CONT ERR
DRV ERR
NON-EXSTNT MEM
HDR CR(
DATA CRC
HDR NOT FND

DATA LATE
HDR NOT FND/HDR CRC/0P]
DRV RDY

SELECTED HEAD
VOL CHK
COVER OPEN
BRUSH HME
WRT LCK
HDS OUT
DRV SEL 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)

DRV STATE
SPIN TIMEOUT
WRT GAT ERR
SEEK TIMEOUV
CUR HEAD ERR
WRT DAT ERR
OP INCOMPLETE
HDR/DAT ERR

(DRIVE STATE)
(SPINDLE TIMEOUY SPD ERROR)
(WRITE GATE ERROR)
(SKTO _ERROR)
(CURRENT IN HEAD ERROR)
(WRITE DATA ERROR)
(OPI ERROR)
(HDR CRC OR DATA CRC ERROR

HDR NOT FND/DAT LATE

(HDR NOT FOUND OR DATA LATE

cve

(CYLINDER WHEN REPORTING A

BIT 11 OF (S REGISTER)

ERROR BIT 12 OF CS REGISTER)
SEEK ERROR)

SEQ 0024

PAGE 25

Y?RIABLE 2 WILL BE A VALUE
THIS CAN BE A 1

NUMBER

(OCTAL)

THAT DEFINES WHAT

OR O TO INDICATE

TO INDICATE

SET

THE DRIVE

TO IDENTIFY A CYLINDER NUMBER.

THE

RESULT

STATE,

CONDITIONS,

OPTIONAL
QUALIFIER IS PROVIDED WHEN
ERROR WAS DETECTED IN
THE
OPERATION

QUALIFIER

OR A NUMBER O TO 377

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE
THE
THE

ACTUALLY

SHOULD

BF.

IT IS USEFUL TO KNOW WHEN
BEING
PERFORMED.
THIS

1S USED TO REPORT RESULTS SUCH AS:

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 O IN CYCLE UP
DRV RDY
IS O SB 1 IN STATE 5
DRV RDY
IS 1 SB O IN SEEK W/0 MOTION
DRV RDY
IS 0 SB 1 IN 10MS
DRV RDY
IS 0 SB 1 IN 500MS
DRV RDY
IS O SB 1 IN SSECONDS
THESE

RESULTS,

EXPLANATORY.

WHEN SEEN WITH

OTHER RESULT MESSAGES

THE OPERPATION MESSAGE,

THAT CAN BE PART OF

WILL

SELF

AN ERROR REPORT ARE:

"INTERRUPT TOO LATE''
WHICH INDICATES

THE

THAT

THE OPERATION BEING PERFORMED DID NOT COMPLETE

EXPECTED AMOUNT OF TIME.

THIS RESULT CAN BE CAUSED BY THE

DRIVE LOSING READY BEFORE STARTING A READ HEADER AND THEREFOR:c

COMPLETING THE READ HEADER IN 1MS.

“FAIL
THIS

NOT

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

ERROR IS CLEARED THE HEADS DO NOT RELOAD.

1U UNLOAD AND AFTER THE

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

THE DRIVE

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 15 REPORTED IF THE GET STATUS COMMAND DOES NOT
COMPLETE
CESSFU _Y WHEN THE STATUS IS REQUIRED TO REPORT AN ERROR.

SUC-

"'OPI SET-NO DRIVE RESPONSE''
THIS

OUT

IS REPORTED AS

(OPI

TO CHECK

SETS)

THE

RESULT WHEN

WHEN THAT

THE DRIVE

COMMAND

INTERFACE.

THE

GET

COMMAND IS TIMED
IN THE EARLY TESTS

STATUS

IS BEING USED

"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
TROLLER ERRORS.
THIS

THE RESET COMMAND DOES
NOT
CLEAR
IS A CONTROLER RELATED PROBLEM BUT

ED IF SEEN IN THE DRIVE

TEST PROGRAMS.

THE
CONIS REPORT-

"DRV ERR IS NOT CLEARED''
THIS 1S REPORTED WHEN THE GET STATUS W/RESET COMMAND DOES NOT CLEAR
ALL DRIVE ERRORS.

"UNEXPECTED ERR'’
THIS

IS REPORTED WHEN THE

BITS ARE SET.

CONTROLLER SENSES AN ERROR BUT

ERROR

"BAD SEC FILE FMT ERR"
THIS IS REPORTED IF THE CONTENTS OF
}gg EXPECTED FORMAT.
(REFER TO DEC

3.1.3

THE FILES DO NO
CORRESPOND
TO
STANDARD 144 FOR FORMAT SPECIF-

OTHER MESSAGES

ggng 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 JUT OF THE NORMAL PROGRAM SEQUENCE OR
[F THE BAD SECTOR FILES COULD NOT BE READ.

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

3.2

EPROR HALTS
cooceme

ERRGR HALTS ARE SUPPORTED PER DESCRIBED
WITH /FLAG:HOE.
4.0

THERE

ARE NO OTHER HALTS.

THE

SECTION

PERFORMANCE AND PROGRESS REPORTS

4.1
THIS PROGRAM WILL

4.2

NOT

GIVE

REPORTS.

PROGRESS REPORTS

THIS PROGRAM WI..L NOT GIVE

DEVICE

ANY PROGRESS REPORTS,

INFORMATION TABLES

THE RL11/RLV1I1 CON'ROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.
AND STATUS REGISTER

(XXXXX0)

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

]

bk
vl b

—b

oO@ED
D
Gang Pumg Pumg Pumg

NS
W

RLCS -~ CONTRC!

5.0

ANY PERFORMANCE

REGISTERS

FOR

SEQ 0027

3
PAGE 28

NOWNSWN 2O

DATA CRC (WITH BIT 10 CLEAR)
BIT 10 ~ OPERATION INCOMPLETE
BIT
9/8 - DRIVE SELECT (0-3)
BIT
7 -~ CONTROLLER READY
BIT
6 = INTERRUPT ENABLE
BIT
S5 - EXTENDED BUS ADDRESS (BIT 17)
BIT
& - EXTENDED BUS ADDRESS (BIT 16)
BIT 3-1 - FUNCTION (ODE
NOP (PDP=11) MAINT (LSI-11)

BIT

WRITE

CHECK

GET DRIVE STATUS
SEEK

READ HEADER
WRITE DATA
READ DATA
READ WITHOUT HEMDER COMPARE

0 - DRIVE READY

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

(XXXXX&)

BIT 15=7 ~ CYLINDER ADDRESS FOR TRANSFEK
BIT 6 - SURFACE FOR TRANSFER

BIT 5-0 ~ SECTOR FOR TRANSFER (1-40.)
FOR SEEK FUNCTION

BIT
BIT
BIT
BIT
BIT
8IT
BIT

15-7 - DIFFERENCE TO NEW CYLINDER
6-5 - MUST BE ZERO (0)
& - SURFACE (0=UPPER, 1=LOWER)
3 - MUST BE ZERO (O)

2 ~ SEEK DIRECTION( 1=IN / 0=0UT )

1 - MUST BE ZERO (0)
0 - MUST BE ONE (1)

FOR GET STATUS FUNCTION

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

SEQ 0028

3
PAGE 29

T 3 - DRIVE

RESET

T 2 -~ MUST BE ZERO (O)

T 1 - MUCT BE ONE
T 0 - MUST BE ONE
RLMP = MULTIPURPOSE

(1)
(1)

BIT 15 - 0 - WORD COUNT

(TW0'S COMPLEMENT)

FOR READ HEADER FUNCTION

BIT 15-0 ~ DISK HEADER OF SECTOR (FIRST READ)
- ZERO WORD (SECOND READ)
=~ HEADER CRC

FOR GET
-

STATUS FUNCTION

HAS DRIVE

6.0

STATUS

15 - WRITE DATA ERROR
14 - CURRENT HEAD ERROR ((CHE)

13 - WRITE LOCK STATUS (WL)
12 - SEEK TIME OUT (SKTO)

11 - SPIN ERROR (SPE)
10 ~ WRITE GATE ERROR (WGE)
9 - VOLUME CHECK (V()
8 - DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE 1S RLO2 IF SET
6 - SURFACE (O=UPPPER, 1=LOWER)
5 - COVER OPEN
4 - HEADS HOME
3 - BRUSHES HOME
2-0 ~STATE BITS

= LOAD STATE
SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK = TRACK COUNTING
SEEK - LINEAR MODE
UNLOAD HEADS
SPIN DOWN

NOWNBWN—=O

BIT
BIT
BIT
B8IT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

(THIRD READ)

TEST SUMMARIES

SEQ 0029

TEST

BASIC

INTERFACE

TEST

LOAD IN DRIVE NUMBER.

(PART

PAGE 30

DO GET STATUS WITH RESET.

IF OPl

SETS:

DRIVE INTERFACE IS DEAD
ORIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING

MARKER DETEC.ION FAILED

DRIVE

1S NOT SELECTING OR AC LOW IS SET

SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.
IF

INTERRUPT WITH NO OPI,

AND BRUSH HOME

SHOULD BE

CHECK STATUS RECEIVED.

SET.

BAD STATUS DATA LINE

NOT:

C(OVER

OPEN

BAD COVER SWITCH OR LOGIC
ORIVE COMMAND SHIFT REGISTER
BAD BRUSH HOME SWITCH OR LOGIC
CHECK WRITE LOCK STATUS BIT SET.
[F NOT:
BAD SWIT(H OR WRITE LOCK LOGIC
DRIVE COMMAND SHIFT REGISTER

CHECK STATE FOR 0.

IF NOT:

BAD STATE ROM
DRIVE COMMAND SHIFT REGISTER

(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

DO GET STATUS LOOP
RESETS.
WAIT
15

COVER AND RESET WRITE LOCK.

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

ASK OPERATOR TO TYPE CR

PROCEDURF WAS FOLLOWED.

SE0 0 0 0930

3
PAGE 31

IF ONE CHANGED BUT NOT THE OTHER, REPORT WHICH FAILURE:
WwhITE LOCK SWITCH OR LOGIC
(CR)

COVER OPEN SWITCH OR LOGIC

DRIVE COMMAND SHIFT REGISTER

IF NEITHER CHANGED, REPORT BOTH FAILURES.
NOTE:

THIS TEST
AND

TEST 3

IS EXECUTED ONLY

IF PROGRAM OPERATION MODE 2

IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
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 CONF[RM
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

SPINUP TIMEOUT ERPOR SET.

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

[Ff NOT:

BAD STATE ROM
IF

THE DRIVE HAS A BRUSH, CHECK THAT BRUSH HOME IS RESET 5
SECONDS OR LESS
AFTER
STATE IS 2.
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,

BAD
BAD
BAD
BAD
CHECK IF

CHECK HEADS OUT

[S SET.

[IF NOT:

SWITCH
SEEK CONTROL ROM
VELOCITY ROM
DC SERVO

DRIVE ERROR IS SET.

[IF NOT:

BAD DRIVE ERROR LOGIC OR INTERFACE

WAIT 3G0 MS FOR STATE TO CHANGE TO 4.

IT DOESN'T CHANGE:

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.

IFf NOT:

INTEGRATCR OR NULL DETECTION FAILURE

READY ONE SHOT BAD

ENABLE
NOTE:

TEST

HEAD

TIMEOUT H NOT SETTING OR COUNT LOGIC BAD

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.
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

LOOP ON GET STATUS WAITING FOR STATE
:
CHANGE

TO CHANGE

IfF

TO STATE

BAD STATE ROM
BAD SWIT(H
WAIT 300 MS FOR STATE TO CHANGE

TO 7.

IF NO CHANGE:

BAD STATE ROM

AFTER STATE IS 7, WAIT 30 SEC FOR STATE TO CHANGE
[F NO (MANGE:
NO BRAKING

BAD AC SERVO
:EggSST OPERATOR TO LOAD
NOTE:

THIS TEST

DRIVE.

WAIT

IS EXECUTED ONLY

UNTIL

ORIVE

BECOMES

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 RETURN
BE TYPED WHEN DONE.
DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST.
C(HECK
THAT
NO
ERRORS ARE REPORTED.
DO GET STATUS TO ALL OTHER ADDRESSES AND
CHECK THAT OP] SETS FOR ALL OTHER ADDRESSES.
DO GET STATUS TO ADDRESS OF NEXT
THAT

ERRORS

ARE

REPORTED.

ADDRESSES AND CHECK THAT OPl

SETS.

REPEAT FOR ALL DRIVE ADDRESSES

AFTER 3).

NOTE:

TEST 6

SEQUENTIAL
DO

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

SEQ 0033

I3
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 7

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

BOTH

DRIVE SELECT ERROR DETECTION IS BAD
NOTE:

TEST

ORIVES.

IN THAT DRIVE.

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

INITIAL STATE

TEST

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

DO GET STATUS, WAIT FOR INTERRUPT.

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

INTERRUPT OCCURS WITHOUT OPI, CHECK DRIVE READY.

bggigzégs

IF MANUAL
SELECTED.

HEADS

ARE

LOADED

AND

INTERVENTION TESTS WERE RUN,
[IF NOT:

ARE

TRACKING

CHECK THAT

READY SET

(POSITION

HEAD

DRIVE CYCLE UP DID NOT SELECT HEAD O
IF DRIVE READY IS SET, CHECK STATUS MESSAGE
OUT AND BRUSH HOME MUST BE SET.
[IFf NOT:

RECEIVED.

HEADS

DRIVE COMMAND SHIFT REGISTER NOT LOADING/ SHIFTING
HEADS OUT OR BRUSH HOME SWITCH OR ASSOCIA TED
CIRCUITRY BAD

SEQ 0034

3
PAGE

STATUS DATA BAD

IF MANUAL

PASS CHECK

INTERVENTION TESTS WERE RUN AND THIS
THAT

VOLUME

CHECK AND DRIVE

ERROR ARE

THE

SET.

FIRST

CHECK ALL ERROR BITS ARE 0.
CHECK STATE

IS 5.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
NOTE:

THIS TEST IS EXECUTED

MANUAL

IF PROGRAM MODE 2

INTERVENTION TESTING

IN FIRST PASS ONLY.

TEST 8

INITIAL RESET

STATE

IS SELECTED,

IS REQUESTED,

AND

[S RUN

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:
RESET DETECTION, RESET ERROR,

BAD

PRIVE
HEAD SELECTED BIT

DRIVE

OR VOLUME CHECK FLOP

COMMAND SHIFT REGISTER BAD
SHOULD STILL BE

ZERO.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECT SHIFT REGISTER NOT LOADING

NOTE:

TEST 9

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

DRIVE READY TEST

SEEK

INTERRUPT.

WITH

DIFFERENCE,

GET STATUS.

SIGN

CHECK STATE IS 5.

HEAD

[IF NOT:

WAIT

FOR

DIFFERENCE COUNTER PICKING UP BITS
COUNTER CIRCUITRY 1S 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
DOESN'T SET AT ALL:

TO SET.

TAKES

LONGER

SEQ 0035

3
PAGE 36

HEADS MAY HAVE MOVED (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED

CHECK DRIVE ERROR DID NOT SET.

REPORT WHICH ERROR.

IT SET, DO GET

STATUS

AND

HEAD
0.
WAIT
5.
[IF NOT:

FOR

VERIFY HEAD SELECT IS Z2ERO.
TEST

10 SEEK SIGN SWITCH TEST

DO
SEEK
WITH
DIFFERENCE
O,
SIGN
1,
INTERRUPT.
GET STATUS AND CHECK STATE IS

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.
TEST 11
THIS

OPPOSITE

SIGN,

HEAD

REPEAT

HEAD ALIGNMENT SUPPORT ROUTINE
TEST

IS EXECUTED WHEN HEAD ALIGNMENT SUPPORT

IS REQUESTED,

AND IN THE FIRST PASS ONLY.
ARERRANAAAEANARANAAAAAERANARACRNAANRNSEANNAAN
RO TR OCCRCEROERONCEUROORY

NOTE:

THE NULL DETECTOR AND SEEK TIMECQUT SHOULD BE

GROUNDED ON THOSE DRIVES WHICH LACK THE HEAD
SELECT TEST POINTS. THE TEST WILL NOT SWITCH
HEADS

IAAAAARARAARR

THIS TEST SELECTS

STATUS

WITH

THERE

IS A DRIVE FAULT.

dddildt

THE DRIVE UNDER TEST

RESET.

izl

AND

ezl

LOOPS

22222200

GET

THE WRITE LOCK BIT IS MONITORED AND WHEN

SEQ 0036

3
PAGE

SEQ 0037

WRIiTE 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
TERMINATE
THIS
TEST
ON
THE
DRIVE UNDER TEST.
BEFORE TERMINATING, THE TEST
WILL CHECK THAY 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

VERIFY DRIVE READY RESET.

ENABLE

[IF

1S BAD

NOT:

TIMEOUT OR READY LATCH/ONE SHOT BAD

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
DRIVE CANNOT TRACK WITH THIS HEAD

VERIFY DRIVE ERROR DID NOT SET.
DO GET STATUS,

CHECK HEAD SELECT

IS CORRECT.

[F NOT:

HEAD SELECT REGISTER BAD

DRIVE COMMAND SHIFT REGISTER BAD

ggs§gfk WITH O DIFFERENCE,

TEST

13 READ HEADER TEST

(PART

SIGN

HEAD

REPEAT

ABOVE

DO SEEK WITH DIFFERENCE O, HEAD 0, 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

READ/WRITE BOARD BAD
READ DATA LINE BAD

E?E£87!F BIT 6 OF WORD 1

IS SAME AS HEAD SELECT BIT

HEADS ARE SWITCHED
HEAD SELECT LOGIC

[N STATUS.

(CABLE)

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 0.
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
O,
INTERRUPT.
WAIT FOR READY.

SIGN

HEAD

ggABO CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH
CHECK ALL

HEADERS FOR SEQUENCE AND CONTENT

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

(WORD 2

IS 0).

ALL

ZERO,

IF NOT:

BAD READ/WRITE BOARD
BAD PACK

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

DIFFERENCE OF

SEEK TEST

REPEAT ABOVE

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.

C(HECK STATE

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

IS 4.

[F NOT:

SEa 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.
FAILURE

IN READY LATCH OR

WAIT APPROX 5 MS LONGER.
FAILURE

TEST DRIVE READY.

[IF

SET:

INTEGRATOR

TEST READY.

RESET:

IN INTEGRATOR

UNEXPECTED GUARD BAND DETECTED
DO SEEK WITH DIFFERENCE 1, OPPOSITE SIGN,
TESTS AS ABOVE.

HEAD 0.

REPEAT

ALL

REPEAT TEST USING HEAD 1.
NOTE:

TEST 16

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.

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 CYLINCER
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.
HEADER

IF NOT:

WITH

CYLINDER OF

COMPARE CYLINDER OF

COUNT LOGIC BAD
INTEGRATOR FAILED
figgcx

THIS

STORED HEADER FOR DIFFERENCE OF ONE.

THAT HEADS MOVED FORWARD OR

REVERSE

EXPECTED.

SEEK ROM FAILED

DO SEEK WITH DIFFERENCE OF
ALL TESTS AS ABOVE.

1, OPPOSITE SIGN, HEAD

REPEAT

SEQ 0039

4
PAGE 4«0

REPEAT

NOTE:

TEST USING HEAD

THIS TEST

IS PERFORMED AT

THE

CYLINDER POSITION

FOUND

IN
THE
ODRIVE
WHEN
THE
TEST
EXECUTES.
CHOOSING A
SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE.

SEQ 0040

.=2000

-MCALL

Sv(
SVCTST
SvV(CSL8

SV(BGL

SVCINS
SVCTAG=

POINTER BGNSW,BGNSFT,BGNDU

000000
000000
000000
003
003
000000
000000
000000
002212
000000
000000
000000
000C00
016364
000000
002122
104035

000000

HEADER

MDHEDR

C2RLI,D,0,1,0
LASCII /C/
CASCII 72/
LASCII /R/
%

BYTE
.BYTE
.BYTE
LASCII
LASCID
.WORD
.WORD
.WORD

.WORD
WORD
.WORD

LWORD

.WORD
WORD

WORD
.WORD
LWORD
.WORD
.WORD
WORD

.BYTE
BYTE
WORD
.WORD
.WORD
.WORD
WORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
EMT
.WORD

0
0
0
/
7/
0
1

LSHARD

LS$SOFT
LSHW
LSSW

LSLAST

0
O

0
O
LSDISPAT(H
0
0
O
(
0
0
0
LSDVTYP
0
0
0
0
c

014344

SV(

ESC

Q=
S NINO
O = S NIMNIN

104

060
000000
000001
040376
040552
014310
014326
040764
000000
000000
000000
000000

.ENABLE ABS
MC
MD ME,(ND,TOC
.NLIST

BGNMOD

000
000

10:30:59 PAGE

PART1==

000001
000001
000001
000000
000000

Q) b b b eed

002060

4-~AUG-B2

0
L
3
0

—o

002000

MACRO v04.00

OO
~b b

000001

000000

TEST

CZRLIDO RLO1/02 DRIVE

0AD

SEQ 004

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

e
R
e
el = 1= T T
Y = LY o P
i IO = O =COON SN0
NN
SO
= OOV
SOV NOWON

060

062

002212
002212
002215
002220
002223

O—

002205
002210

Q= Qb Qad O vd bk e

b d e

d e ok

QON=BNNSOON
SO ONNIANIO —2 (N
ONO=OWNO =ANNON =N O W
=N

ENOMOD
DESCRIPT

ASCIZ

DEVIYP
LASCIZ

Iale

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

014412
016174
015636
014404
000000
000000
000000

D
1-1

Ccrz
QO =M
—“O»
—
P 4

coOorrrr
PANN

TCST

[V P )

vl
0021
0021
0021
0021
0021
0021
0021

PN
= b ed s

CZRLIDO RLO1/02 DRIVE

<(C
/C

ng THE RLO1-02 INTERFACE AND BAS IC DRIVE LOG: >
TS
THE RLO1-02 INTERFACE AND BASIC DRIVE LOGI ¢/

<RLO1,RLOZ>
/RLOY,RLO2/

+EVEN

cTHIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY
cON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY W{TH
sTHE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
sSOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED
sOR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPTY
sFOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE

sLICENSE TERMS. TITLE TO OWNERSHIP OF THE SOF TWARE SHALL
sAT ALL TIMES REMAIN IN DEC.

:THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

sWITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMMITMENT
;BY DIGITAL EQUIPMENT CORPORATION.

:DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

SEQ 0042

TEST

TIONS

MACRO v04.00 «-AUG-82 10:30:59 PAGE 2

.SBTTL

BIT AND OFFSET DEFINITIONS

BGNMOD

GLBEQAT

SEQ 0042

EQUALS

. BIT DIFINITIONS
100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

000020
000010
000004

81715== 100000

BITi4é== 40000

8IT13==
BIT12==
BIT11==
8IT10==
B81109==
8I1708==
81107==
81106==
B8IT05==
BIT04==
81703==
BiT02==

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

000002
000001

B8IT01== 2

001000
000400
000200
000100

8119==
81718==

000040

000020
000010
000004
000002
000001

BIT00== 1

BI17==
B81T6==

B8IT5==

BIT4==
8IT3==
B8I12==
BITi==
8I170==

BIT09
BIT08

BIT07
817106
BIT105
BIT04
B8]IT03
BIT02

BIT0
B8iT00

s EVENT FLAG DEFINITI]
H
000040
000037
000036
000035
000034

EF32:EF17 RESERVE O FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

3
3
3
5

* PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100
000040
000000

PRIO7

: START COMMAND WAS [SSUED
;

RESTART COMMAND WAS

;
;

A NEW PASS HAS BEEN STARTED
A POWER-FAIL /POWER~UP OCCURRED

;

ISSUED

CONTINUE COMMAND WAS [SSUED

-0

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

SEu 004-

DEFINITIONS

000001

toMPOP

HDRCMP
DATACMP

—— O
nNoO

TNTHTH]]

nunuwunno
—a OO

P~TABLE

;SOFTWARE PARAMETERS SWITCHES
;CYLINDER LOWER LIMIT
;CYLINDER HIGH LIMIT
;SELECTED HEAD FOR RUNNING TESTS
cERROR LIM]Y
;DATA COMPARE ERROR LIMIT

AN NN (%4
-‘—‘—‘-‘ocog

SIGNMENTS FOR SOFTWARE P-TABLE SWITCHES

| —§ = =g =§ =
=of orf

€O ot vk it b OO &

RDHEAD
WILATA
RDDATA
RDNOHR
NOOP

SOF TWARE

YSTEM FUNCTIONS

O ORSNVOONBTNIW

CKDATA
GISTAT
SEEK

Y 1 aa ]

LOCYL

MITEST

Ny D
D®O®m—

HICYL

:DRIVE SELECTY
;CONTROLLER TYPE

sUSE ALL CYLINDERS

JUSE ALL SECTORS
cEXECUTE DRIVE SELECT TEST
JEXECUTE HEAD ALIGNMENT TEST
SHEAD LIMIT SPECIFIED FLAG
JHI LIMIT SPECIFIED FLAG
;LO LIMIT SPECIFIED

;EXECUTE MANUAL INTERVENTION TESTS
JWRITE CHECK
JGET STATUS

;SEEK
JREAD HMEADER
JWRITE DATA

JREAD DATA

JREAD DATA,

IGNORE HEADERS

;NO OPERATION

TION FLAGS

= ND
QO~NP>
Q=

007777
000002

DREELT
HDAL 1GN
HEADLM

;DRIVE TYPE

000102
000104
000106
000110
000112
000114
000116
000100

ALLSEC

ALLCYL

el cmdt ——dh

000001
000002
000004
000010
010000
020000
040000
100000

;VECTOR ADDRESS

JPRIORITY

FSETS FOR

)

MISW]
LOLIM
HILIM
HEAD
ERLIM
DCLIM

ol cn

000000
000002
000004
000006
000010
000012

PRIOR
TYPDR

OFFSETS FOR HARDWARE P-TABIE
=0
;BUS ADDRESS

DRSB
CNT

CSR
VECT

rone

000000
000002
000004
000006
000010
000012

100000

T I T

T O T

MMM
M
—M

If‘u—-—-v—-‘b‘vmg—-

DC
D —~r—
T TR TR T T ||

m
e

OOMTXDZO

100000

DO ~NO

PON)

= OOV

b =d

NO NN

b b —ed ocd cd ed d

= O 0O~

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

(7] o

;OPERATOR FLAG BITS

;COMPOSITE OPERATION FLAGS
;HEADER COMPARE OPERATION

;DATA COMPARE OPERATION

000000
000002
000004
000006

RLCS
RLBA
RLDA
RLMP

000000

RLCSR
ANYERR
DRVERR
NXMERR

DLTERR

—t =4
el =~

NN = OO 00 NOMNN
E N

TOSLOW
NOIRPT
CONHNG
NOCLR

S OO OOOO0OO

HDR4O

Dt 2t

e
e

RORWOP
RELDWT

000001
000002
000004
000010

004000
004000
002000
001400
000200
000100
000060
000001

BADADD
SEEKOP

REVSKO
FWDSKO

MQUALS

040000
020000
010000
010000

) o

FWDSKS

003760

100000

g Bt Bt S St vt Bt

FOLWRT
REVSKS

100000

CYLUP
ULOAD
INOUTS
OUTINS

G, St g Pt St Decg Pt B

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

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

SEQ 0045

sCYCLE UP OPERATION
JUNLOAD OPERAT]ION

s IN=OUT SEEK OPERATION
;0UT=IN SEEK OPERATION
;FOLLOWING WRITE OPERATION

;REV SEEK SEQ (ADJ INTERFERENCE)
;FWD SEEK SEQ

(ADJ

INTERFERENCE)

+REV SEEK SEQ (OVERWRITE)
sFWD SEEK SEQ (OVERWRITE)
sBAD DISK ADDRESS
;SEEK OPERATION
sREAD OR WRITE OPERATION
JRELOAD WAIT

;40 HEADER OPERATION

sMESSAGE QUALIFIER BITS

ERROR FLAGS FROM SUBROUTINES
=RIT00
sOPERATION TOOK TOO (ONG

=BIT01
=BIT0?
=BITO3

sNO INTERRUPT FROM OPERATION
sCONTROLLER HUNG
sBAD CONTROLLELR CLEAR

=0
=2

;CONTROL AND STATUS REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER
sMULTI-PURPOSE REGISTER

R EGISTER BIT DEFINITICNS = CONTROL STATUS REGISTER

00000

=20000

=10000

DCKERR

=10000
=4000

OPIERR

=2000

HNF ERR

S!INOUTS!FOLWRT!REVSKS!FWDSKS'REVSKO!FWDSKO

=4
=4
Q
o

C ZRL IDO RLO1/02 DRIVE TEST
B IT AND OFFSET DEFINITIONS

HCPCERR =4000

=1400
DSMSK
CRDYMSK =200
=100
INTEBL

BAMSK
=?0
DRDYMSK

sCONTROL AND STATUS REGISTER
;ANY ERROR BIT
;DRIVE ERROR BIT
sNON-EXISTENT MEMORY ERROR

;DATA LATE ERROR

sHEADER NOT FOUND ERROR
:DATA CHECK ERROR

SHEADER CHECK ERROR
<OPERATION INCOMPLETE SRROR
;DRIVE SELECT MASK
sCONTROLLER READY MASK
s INTERRUPT ENABLE MASK
sBUS ADDRESS UPPER MASK
+DRIVE READY MASK

P44
[={ =)

S NN 200NN
NN 2O 000 OIS NN —

000077
000100

POPINIAIND
= —d b et o
b =3 s —b

- 2

—~

[+ « Xan]

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

=77

=100

000003

GETSTAT =

DIRBIT
HDSEL

SEQ 004¢

sSECTOR ADDRESS MASK

JHEAD SELECT MASK

MBSET0

=20

;MUST BE SET, BIT 0

:DIRECTION BiT

SHEAD SELECT BIT

sGET STATUS SETUP

000010

DRSET

=10

0177277
160000

WCMSK

WCRNG

000077
000100

HDSEC

002000
004000
010000

020000
040000
100000

002224

HSMSK

R;GISTER BIT DEFINITIONS - DISK ADDRESS FOR DATA XFER

000001
000004
000020

000007
000010
000020
000040
000100
000400
001000

SAMSK

HDHSEL

STAMSK
BHSTAT
HOSTAT
COSTAT

ENCMOD

;DRIVE RESET MASK

REG.STER BIT DEFINITIONS = MP FOR GET STATUS
=7
;STATE MASK

=10
=20
=40
=100

HSSTAT
DSESTAT =400

VCSTAT
WGESTAT
SPDSTAT
STOSTAT
WLSTAT
HCESTAT
WDESTAT

STATUS

=1000

=2000
24000

=10000

=20000

=40000
=100000

:BRUSH HOME STATUS
sHEADS OUT STATUS
;COVER OPEN STATUS
;HEAD SELECT STATUS

;DRIVE SELECT ERROR STATUS

;VOLUME (HECK STATUS

;WRITE GATE ERROR STATUS
;SPIN ERROR STATUS

;SEEK TIMEOUT ERROR STATUS

;WRITE LOCK STATUS

¢sHEAD CURRENT ERROR STATUS
JWRITE DATA ERROR STATUS

Z2C
oo

NN —

PONINININY
2 = —
N~ OWVNES OOV
NN

—

— Py

TEST
T1ONS

MACRO v04.00 4-AUG-82

.SBTTL

10:30:59 PAGE

SEG 00«7

MACRO DEFINITIONS

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF
sTHIS

TIMING

;DEPENDENT.

IS PERFORMED BY

SOF TWARE

100-MILLISECOND TIME COUNTS.

USING CPU TIMING AND

IS HIGHLY MACHINE

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF *00-MICROSECOND TIME COUNTS.
sTHIS TIMING IS PERFORMED BY SOF TWARE USING CPU TIMING AND

sDEPENDENT.

IS HIGHLY MACHINE

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF i00-MICROSECOND TIME COUNTS

JUSING A KW11-P PROGRAMMABLE CLOCK OR A LINE CLOCK. TME TIME DELAY IS INVALID
;IF TOO LARGE AN ARGUMENT S USED WITH THE LINE CLOCK.

CZRLIDO RLO1/G2 ORIVE
WA —

MACRC DEFINITIONS

002224

002310
002312
002314
002316

002320
002322
002324
002326
002330
002332
002334
002336
002340
002342
002344
002346
002350
002352
53 002354
56 002356

000000
005271
005315
005242
005261
005303
005250
005400
005327
005346
005445
005434
005476
005455
005521

005543

005576
005665

005631
005721
005364
000000
000000
000000
000000
000000
000000
000000
000000
000000
od=lelelelele
el
Q) b b b b d d b

W= OOV

POPRINIAD)
=b ved b ek ad d d od med b

NO VB WA 2OV

002224
002¢26
002230
002232
002234
002236
002240
002242
002244
002246
002250
002252
002254
002256
002260
002262
002264
24 002266
002270
002272
002274
002276
002300
002302
002304
002306

000C00

010632

TEST

MACRO V04.00 4~AUG~82 10:30:59 PAGE

SEQ 0048

.SBTTL

GLOBAL DATA AND CONSTANTS

BGNMOD

GLBDAT

OPMSGS:

TABLE OF

LWORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
T.DRIVE: .WORD
JJJ:
LWORD
HLMTW:
WORD
CLRBYT: WORD
NXTHL:
.WORD
GBND:
JMORD
:
LWORD
CAMSK
DIRMSK: WORD
HDCYL:
MWORD

RESTBL:

OPERATION MESSAGES

O
MWR(CHK
MGTSTA
MSEEX
MREADH
MWRITE
MREAD
MWRSETY
MDAT(CP
MHDRCP
MCYLUP
MULOAD
MINOUT
MOUTIN
MFOLWRT
MREVSK
MFWDSK
MRESKOD
MFWSKO
MBADAD
M4LOHDR
0

JFILLER
sMESSAGE FOR WRITE CHECK
.
GET STATUS
:
SEEK
:
READ HEADER
:
WRITE DATA
;
READ DATA
;
WITH RESET
;
WITH DATA COMPARE
;
WITH HEADER COMPARE
:
LOAD HEADS
:
UNLOAD HEADS
H
IN-OU'T SEQ
H
OUT~-IN SEQ
H
FOLLOWING WRITE
H
REV SEEK
H
FWD SEEK
:
REV SEEK
:
FWD SEEK
H
BAD DISK ADD FOR WRITE
:
40 HEADER OPERATION

0
0
0

0
0

TABLE OF RESULT NAME MESSAGE

ADDRESSES

.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.3828

MCERR
MDRERR
MNEERR
MFLERR
MMDERR
MOPERR
gNDRST

sCONTROLLER ERROR
:DRIVE ERROR
sNON-EXISTENT MEMORY ERROR
SHEADER NOT FOUND-DATA LATE
;HEADER OR DATA ERROR
sOPERATION INCOMPLETE
:NO DRIVE STATUS AVAILABLE

.WORD
.sggg

MWDERR
GHCERR

;WRITE DATA ERROR
JHEAD CURRENT ERROR

LWORD
.WORD
.WORD
.WORD
.WORD

MSTERR
MSPERR
MWGERR
0
MDSERR

;SEEK TIMEOQUT ERROR
sSPINDLE ERROR
;WRITE GATE ERROR
;ORIVE

SELECT ERROR

MACRO v04.00 4-AUG-82 10:30:59 PAGE 6

002404
002406
002410
002412
002414
002416
002420
002422
002424
002426

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

SUBSTK:

002430
002432
002434
002436

T25TBL:

002442
002444
002446
002450
002452
002454

000002
000006
000011
000014
000021
000026
000033
000042
000051
000200
000377

002456
002460
002462
002464
002466
002470
002472
002474
002476
002500
002502

000004
000014
000022
000030
000042
000054
000066
000104
000122
000400
000777

12578 2:

N02440

.WORD
-WORD

.WORD

.WORD
.WORD
.WORD
-WORD
.WORD

015236
0.5240

SEQ 0049

PAT3
PAT4
PATS
PATé
PAT?
PAT8
PAT9
PAT10

SUBROUTINE CALLING STACK
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

sRLOT TABLE OF C L INDERS
.WORD
.WORD
.WORD

.WORD
-WORD

-WORD

.WORD

.WORD
.WORD

;STACK IS 12 WORDS LONG

sTABLE OF DIFFERENCES

2.
7.

28.
55.

:RLO2 TABLE OF CYLINDERS
.WORD
LWORD
.WORD
LWORD
LWORD
LWORD
.WORD

4
12,
18B.
24.
34,
44,
54,

.WORD
.WORD
.WORD

82.
256.
511,

TABLE

002504
00254¢

PATTERN TABLE
PAT1
.WORD
PAT2
.WORD

OOOOO

005026
005066
005126
005134
005174
005176

004764
004766

OO0

:
PATTBL:

002360
002362
002364
002366
002370
002372
002374
002376
002400
002402

2 2 OO
X

A=A PNNNINY

NN
B8
BN BN AN NN W N NN
W AN N NI AU n
NN NONINI NI A) = =
b 0 e b e
nN=O
S W2 OV
NN
WA= O V00NN
AWNN = OO0 NO NN = O 000 NN N S NN —

CZRLIDO RLO1/02 DRIVE TEST
GLOBAL DATA AND CONSTANTS

T3378L:

18T7:

.BLKW

TO BE USED TO BUILD AND STORE

16.

THE CYLINDERS

002704
002706
002710

o
o
o
o
¢

@
o
8
3
&
¢
®
&
4
*
.

@
a
&
o
a
@
0

-WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.BYTE

¢« »

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

WWNIND 2 OO
O
NOWN):

.BYTE

b b b b ol od aed b b o v b amd e b

.BYTE

002664
V02666
002670
0n2672
0U2674
002676
002700
002702

000

000401
000406
000415
000423
000432
000445
000454
000463
000471
000500
000507
000514
000523
000532

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

002660
002662

.BYTE
.BYTE

002652

98 002653
99 002654
002655
002656

.BYTE

93 002646
002647
002650
002651

94
95
%6
97

.BYTE
.BYTE

SEQ 0050

sTABLE

VIS BN 2O O V0 NN NV
(NSNS NO S NNVIO S NO S NN

002643
002644
92 002645
9N

.BYTE
.BYTE
.BYTE

B WNWNINI
2O
00N
O ONINOWNOWNIWVIONIN

002640

002641
002642

CYLTBL:

NN NN NN AHAIN NI NN N PO O NINS NI NI PININININD

80
81
82
83
84
85
86
87
88
89
90

002623

002624
002625
002626
002627
002630
002631
002632
002633
002634
002635
002636
002637

016

024

PO NI NINON) =b =2 —d cd cd b ek
b b i
~NONON NN =2 =2 O NN
WNINND = O N NON N ES BN NN b =
VN =N WSO NNIWWNO
=N VONWORNO
= SON = WSO

74
75
76
77
78
79

002
007

WNNWNN NN WWNANLANI P NI NN

58
59 002604
60 002605
61 002606
62 002607
63 002610
64 002611
65 002612
66 002613
67 002614
68 002615
69 002616
70 002617
71 002620
72 002621
73 002622

' MACRO v04.00 4-AUG-82 10:30:59 PAGE 6-1

NOMNAN
S NWWNIN —
N
NIVNOONI
NN NO &

CZRLIDO RLO1/02 DRIVE TEST
GLOBAL DATA AND C(ONSTANTS

DEFAJULT

CYLINDERS

171

6-2

SEQ 005

000000
000000

003004
003006
003010
003012
003014
003016
003020
003022
003024

000000
000000
000000
000000
000000
000000
000000
000000
000000

MORECE:
ERPSW]:
BSFLAG:
WRTSW]:
TBLSTR:

OPERATIONAL FLAGS
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
-WORD
.WORD

003026
003030
003032

000000
000000
000000

RLBAS:
RLVEC:
RLDRV:

.WORD
.WORD
.WORD

sRL11 BASE ADDRESS

003034
003036
003040
003042
003044
003046
003050
003052
003052
0030%4
003056

000000
000000

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

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

sCONTROLLER REGISTER STORAGE
;BEFORE OPERATION

.WORD
.WORD
.WORD

JHEADER WORD STORAGE

000725
000733
000742
000751
000760
000766
000774
000774

000000
000000
000000
000000
000000

000000
000000
000000

SSINDX:
OPFLAG:
:
DONE
HADONE:

ERHEAD:

T.CS:
T.BA:
T.DA:
T.MP:

HDWRD1:

HDWRD?2:
HDWRD3:

BB B8 8 BB

50 2
508.
508.
0
0
COOOVOOOOOO

000660
000667
000674
000702
000711
000716

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

V00~ OO VNN
WNWN = = OO 000D
OO NN
O OO NINO S ONVITON N =
OO0 W NN

.WORD
.WORD

Lok BN LB

000540
000545
000553
000560
000567
000576
000605
000612
000621
000627
000634
000643
000651

NN N AN N N NN

002712
002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002740
002742
002744
002746
002750
002752
002754
002756
002760
002762
002764
002766
002770
002772
002774
002776
003000
003002

OO0

170

MACRO v04.00 4-AUG-82 10:30:59 PAGE

OO0OOOOOO0O0

167

168
169

OO0

N
NE WSOV
N=O VRN

b
b
cad —ud
d cvnd e
b
D
e
v

VNN NIAA WYL
O

b e

OCOV®NO
N NNI=O

b ek d md o

d i

b d o

D o

b d

b D

s a

TV IVITVEIVTVS TV WY W1, V1,1, N1, V) PNINIPAININ)
= b b 2

NS WA = OO0 VO

(ZRLIDO RLO1/G2 DRIVE TEST
GLOBAL DATA AND CONSTANTS

;SUBROUTINE STACK INDEX POINTER
;OPERATION FLAGS
;OPERATION COMPLETE F._AG

sHEAD ALIGNMENT DONE FLAG

sADDRESS OF ERROR HEADER
;MORE THAN 1 COMPARE ERROR
cERROR RETURN SWITCH
:BAD SECTOR FLAGS
SWRITE SWITCH
:TABLE STORAGE
sRL11

VECTOR ADDRESS

;DRIVE NUMBER UNDER TEST

;CONTROLLER REGISTER STORAGE

AFTER OPERATION

CZRLIDO RLO1/02 DRIVE TEST
GLOBAL DATA AND CONSTANTS

MACRO v04.00 4-AuG=B2

10:30:59 PAGE

N
6-~3

SEQ 005/

};% 003060

000000

T.STAT:

_WORD

:DRIVE STATE STORAGE

174 003062
175 003064

000000
000000

RESPARM:

_WORD
.WORD

O
O

sPARAM BLOCK FOR REASON REPORT

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

0
0
O
0
0

;DRIVE COUNT FOR DRIVES UNDER
JOIFFERENCE ARGUMENT FOR SEEK
;OLD CYLINDER
sNEW CYLINDER
;CURRENT CYLINDER

.WORD
.WORD
.WORD
.WORD
.WORD

4
0
O
O
0

;ERROR VECTOR
sDELAY COUNTER USED IN TIMING MACROS
JFLAG INDICATING PRESENCE OF A L OR P CLOCK
JPOINTER TO DIAGNOSTIC MONITOR CLOCK TABLE
;L CLOCK ITERATION NUMBER TO FAKE P CLOCK

176 003066

000000

};g 003072

000000

177 003070

180
181
182
183
184

185
186
187
188
189
190
191
192

003074
003076
003100
003102
003104

003106
003110
003112
003114
003116
003120
003122
003124

LWORD

G00000
000000
000000
000000
000000
000000

.WORD
DRVCNT:
DIFAUG:
OLDCYL:
NEWCYL:
CURCYL:

195 003132
196 003134
197 003136

000004
000000
000000
000000
000000

ERRVEC:
DLYCNT:
CLKFLG:
CLKADR:
LBASE:

236
237 003152

000000

:
MISCELLANEOUS COUNTERS
PASCNT: .WORD
0

240
241
242
243
244
245
529

003160
003360
003362
003364
003365
003366
003370

000000
000000
000
000
000000
000000

ERPCNT:
PASNUM:
PSETNM:
LOCERR:
NOERCT:
TRPFLG:
PWRFLG:

248
Ség 003372

000000

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

230
231
232
233
5%2

003140
003142
003144
003146
003150

238 003154
239 003156

000000
000000

TEMP4:
TEMPS:

TEMP6:
TEMP7:
TEMP8:

.WORD
.WORD
.WORD
.WORL
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
.WORD
.WORD
.WORD

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

193 003126
194 003130

DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMP1:
TEMP2:
TEMP3:

0
O
0
0
0
0
0
0
0
0
O
0
0

COUNT:
.WORD
0
ERRPOINT: .WORD 0

.BLKW
.WORD
.UORD
.BYTE
.BYTE
.WORD
.WORD

64.
0
0
§
0
O
O

sDESIRED DIFFERENCE
‘DESIRED SIGN
;DESIRED HEAD
:DESIRED SECTOR
; TEMPORARY STORAGE
:TEMPORARY STARAGE
; TEMPORARY STORAGE
: TEMPORARY STORAGE
; TEMPORARY STCGRAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE

:PASS COUNTER (LOCAL TO A TEST)

;A COUNTER (LOCAL TO A TEST)
:ERROR POINTER

sFRROR COUNTER FOR PROGRAM
JPASS NUMBER FOR PROGRAM
:COUNTER FOR PARAMETER SET NUMBER IN USE
:LOCAL ERROR COUNTER
;INHIBIT ERROR COUNTING FLAG
;HARDWARE TRAP FLAG
;POWER FAILURE FLAG

251 003374
52% 003570

SBSrIL:
FBSFIL:

.ELKW
.BLKW

76
76

;SOFTWARE BAD SECTOR FILE
JFACTORY BAD SECTCR FILE

254 003764
Sgg 004364

IBUFF:
OBUFF:

.BLKW
.BLKW

200
200

JINPUT BUFFER
:OUTPUT BUFFER

PAT1:
PATZ:

WORD
.WORD
WORD
.WORD

0
177772
177777
177777

:PATTERN 1

257
258
259
260

004764
004766
004770
004772

000000
177772
177777
177777

TEST

(ALL ZEROS)

ik e OB IO b it
OO
NN N
SN
SN NLAAWAAWLA
N N NN NN
N NINO MO
SNNVND N NIWIWA N NI
O AN AN NININD
N NN
VIR NN NNV
N N VHWAL

[« %Y
o~
O~
O~
O~
o~

PAT6:

.WORD
.WORD
.WORD
.WORD
.WORD

IO
N NO

WNNWVIRIAWATIWNWVARNIRAIVWAWMPNINOWV
NIWVIN VAN AARNIN VVWAND NNV

VINAVARIVANI
IVNINVAWNMINDNOWN

NN
SO

.WORD
.WORD
.WORD

ROVANIWANIWATONROWVWARNINUNAWAWIND G O

PATS:

o YOV ISTY

.WORD

O
QN
OV

.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
-WORD

Q=N
=2
=200

.WORD
.WORD
-WORD
.WORD
.WORD
. WORD
.WORD

b ek cd OO

PAT4

1772777

WVIHNOMNWARNY .

025252

.WORD

000000
177777
177777
000000

177777

000000
177777

177777
177277
177777
000000

=t OO b =

177777

000000

000003
000000
000000

VAR AARNI N VWA PINIWNAN

000000

.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

172765

177777
172777

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

=Dt

NIV, IV D VE VIV, IV_ 1V )

O =200 =—-«O00
~=

A%, AP IAVAV

PAT3:

10:30:59 PAGE

[V
alaS
X o O =2

-y

ealasl

»
F

P -]

MACRO v04.00 4-AUG-B2

~ NNV
NV
N SN WWVA
~N I P
LAV R oS T N L VE VT NT.NT. ¥
~ PONI NN
N SNWN
o AR SNINVNI SN NINOROAD

[en DY o TV T S

005134
005136
005140
0V5142
005144

000003
000000
000000
177777
177777
172777
000000
000000

-0 & -0 O
O~ W

005126
005130
005132

ST
S

172765

Ot
—b
SOl OO R
OO = i b o
O WwWw
VN
WG AW WMWNINI
VN AN
N N W
O
VAR WVAN) VR WV NRON VVWWAVAND N
O
NI WINDWANOND
[aS1aN ANV LV ]
O
WIRJAWAN WO WVVWARINWNIWNWNNIND
[« JVIIV, IS IV, LIV NIV LS NIV
L ST S N TV

b b b b b b D

MNANNAN
N AN

261 004774
262 004776
263 005000
264 005002
265 005004
266 005006
267 005010
268 005612
269 005014
270 005016
271 005020
272 005022
273 005024
274
275 005026
276 005030
277 005032
278 005034
279 005036
280 005040
281 005042
282 005044
283 005046
284 005050
285 005052
286 005054
287 005056
288 005060
289 005062
290 005064
291
292 005066
293 005070
294 005072
295 005074
296 005076
297 005100
298 005102
299
300
301
302
303

Qe Qe
NO
VRSO
=

CZRLIDO RLO1/02
GLOBAL DATA AND

6-4

SEQ 0053

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

318 005146
319 005150
320 005152
321 005154
322 005156
323 005160
324 005162
325 005166
326 005166
327 005170
328 005172

026442
013211
105504
042642
021321
110550
064264
022132
011055
104426
042213

330 005174

177777

332
333
334
335
336
337
338

“WORD
WORD
"WORD
"WORD

026442
013211
105504
042642
021321
110550
044264
022132
011055
104426
042213

PAT?:

.WORD

177777

PATB:

005214
005216
005220
005222
005224
005226
005230
005232
005234

045513
122645
151322
064551
132264
055132
026455

113226
045513
122645
151322
064551
132264
055132
026455
113226

.WORD
WORD
"WORD
TWORD
WORD
"WORD
WORD

045513
122645
151322
064551
132264
055132
026455

349 005236

125252

351 005240

155555

339
3,0
341
342
343

344
345
346
347

005176
005200
005202
005004
005206
005210
005212

JWORD
"WORD
WORD
WORD
TWORD
WORD
WORD

353 005242
354,
355

113226
045513
122645
151322
064551
132264
055132
026455
113226

PAT9:

.WORD

125252

PAT10:

.WORD

155555

ENDMOD

.SBTTL GLOBAL MESSAGES

325

361 005242
362 005242
363 005250
364 005261
365 005271
366 005303
367 005315
368 005327
369 005346
370 005364
371 005400
372 005414
373 005423
374 005434
375 005445
376 005455
377 005476

'WORD
WORD
WORD
WORD
WORD
"WORD
WORD
CWORD
WORD

123
122
122
127
127
107
127
107
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
124
126
124
124
124
122
124
105
123
114
040
114
114

BGNMOD GLBTXT
MSEEK:
.ASCIZ
MREAD:
.ASCIZ
MREADH: .ASCIZ
MWRCHK: .ASCIZ
MWRITE: .ASCIZ
MGTSTA: .ASCIZ
MDATCP: .ASCIZ
MHDRCP: .ASCIZ
M4OMDR: .ASCIZ
MWRSET: .ASCIZ
MOPER:
.ASCIZ
MRSLT:
.ASCIZ
MULOAD: .ASCIZ
MCYLUP: .ASCIZ
MOUTIN:
ASCIZ
MINOUT:
.ASCIZ

/SEEK /
/RD DATA /
/RD HOR /
/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 TO (C SEEK/
/FOL 255 10 €C SEEK/

SEQ 0054

CZRLIDO RLOV/02 DRIVE
GLOBAL MESSAGES

378 005521
379
380
381
382
383

005543
005576
005631
005665
005721

106

101
101
123
123
117

384 005742
385 005773
386 006020
387 006042
388 006053
389 006060
390 006120
391 006125
392 006132
393 006137
394 006144
395 006157
396 006172
397 006200
398 00€227
399 006240
400 006273
401 006307
402 006327
403 006350
404 006365
406 006373
407 006416
408 006430

103
102
124
102
104
104
122
122
122
122
117
117
127
m
116
116
103
105
126
125
040
115
123
123

410
411
412
413
414
415
416
417
418
419
420
421
422

409 006464

006515
006530
006543
006553
006573
006605
006621
006635
006645
006645
006664
006754
007003

TEST

1 MACRO v0&.00 &4-AUG=-82 10:30:59 PAGE 6-6

11?7

104
104
113
113
116

101
101
117
125
122
122
114
114
114
114
120
120
117
116
117
117

116
104
117
123
126
126
103
102
106
115
0640
040
122
124
040
040

120

124
122
116
130
105
116
101
116

m
104
104
123
110
122
122
127

116
122
122
105
104
104
104
122

111
126
126
105
040
040
040
124

104
124
104
104

m
105
122
122

106
123
126
126

106

116
122
117

116

112
112
0640
040
040

116
124
101
124
101

111

MFOLWRT:

_ASCIZ /FOL WRT (NO SEEK)/

MREVSK:
MFWDSK:
MFWSKO:
MRESKO:
MBADAD:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

GSTER1:

_ASCIZ

/ADJ CYL WRTIN AFTER REV SK/
/ADJ CYL WRTTN AFTER FWD SK/
/SK FWD,WRT - SK REV,OVEPWRT/
/SK REV,WRT = SK FWD,OVERWRT/
/ON BAD SEC FILES/

MBADSF: .ASCIZ
/CANNOT GET BAD SEC FILES/
MFMTER: .ASCIZ
/BAD SEC FILE FMT ERR/
MTMBS:
_ASCIZ
/700 MANY BAD SEC /
BASADD: .AS:1Z
/BUS ADD=/
DRVNAM: _ASCIZ
/DRV=/
NOPWR:
.ASCIZ
/DRV DID NOT REC'R FROM PWR FAIL/
CSNAM:
_ASCIZ
/RLCS/
BANAM:
_ASCIZ
/RLBA/
DANAM:
_ASCIZ
/RLDA/
MPNAM:
_ASCIZ
/RLMP/
LAB1:
_ASCIZ
/0P INIT =/
LAB2:
.ASCIZ
/OP DONE = /
MWORD:
.ASCIZ
/WORD /
MTOSLOW: .ASCIZ /INTRPT TOO LATE/
MDRRES: .ASCIZ
/NO DRV RESPONSE/
MNOINT: ,ASCIZ
/NO INTRPT ON CMND COMPLETE/
MCONHNG: ,ASCIZ /CNTLR HUNG /
MNOCLR: .ASCIZ
/ERR DID NOT CLR/
VCNRST: _ASCIZ
/VOL CHK NOT RSET/
UNXERR: .ASCIZ
/UNXPCTED ERR/
TSTLAB: .ASCIZ
/ TESV/
MISTST: _ASCIZ_/MAN INTERVENT STAT/
NSTACHG: .ASCIZ /STATE CHG/
SPDERR: .ASCIZ
/SPNDL TIMEOUT FAILED TO SET/
INITST:
TOSERR:
TO9ERR:
TI0ERR:
TI12ERR:
TI1ZERR:
TI14ERR:
TI16ERR:
P2TO1E:
P2TO2E:
NOTST:
NOCTLR:
NOTRDY:

/FAIL FORCING DRV SEL ERR/

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/INIT STATE/
/DRV SELECT/
/DRV RDY/
/SEEK SGN SWITCH/
/HD SWITCH/
/RD HOR (P1)/
/RD HOR (P2)/
/uWRT LCK/

.ASCI2
,ASCIZ
.ASCIZ
.ASCIZ

/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

CZRLIDO RLO1/02 DRIVE

GLOBAL MESSAGES

8 007031

110

13
106

120
040

HAMES2:
HAMES3:

120
122
11
m
m
122
122
123
117
17
125
123
104
123
110
123
103
106

122
105
116
116
116
120
105
105
116
116
116
105
111
107
104
105
131
122

105
115
123
0640
123
114
123
126
040
040
106
126
106
116
040
103
1164
117

122

117

125

14
15
16
17
18
19

107
101
127
103
103
120

20 007665
21 007720
22 007747
23 007766
24 010003
25 010051
27 010102
28 010121
29 010135
30 010741
31 210151
32 010164
33 010201
34 010207
35 010214
36 010220
37 010225
38 010232

124
11

39 010240

040

41 010276
42 010307

104
102

104
103
110
104

40 010253

22 010363
45
46
47
4«8
49
50
51
52

010404
010415
010427
010437

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

HDMOVF:

103
110

007406
007470
007515
007540
007616
C07651

123

10 007070
11 007154

12 007237
13 007343

TEST

124

104

131
105

116
102
101
110
114
122

102

010621
010632
010647
010662
010700
010715
010733
010751

127

110
104
104
123
127
123
110
127

SEQMES:

.ASCIZ

:
MOPDY:
MCERR:
MMCRC:
MDCRC:

117

59 010610

/PRESS LOAD & WAIT FOR RDY /
/REMOVE ADR PLGS EXCPT /
/INSRT ADR PLG /
/IN ALL DRVS /
/INSUFFICIENT ORVS FOR DRV SEL ERR TST/
/RPLCE ADR PLGS AS BEFORE/
/RESET WRT L(CK /
/SET WRT LCK/
/ON /
/ON DRV /
/UNDER TEST/
/SET WRT L(K /
/DIFF /
/SGN /
/HD /
/SEC /
/CYL /
/FROM /

126
116
122
126

105
117

1264

122
126
122
126

114
114

126

122

125

104
122
122
120
122
105
105
122

123
126
126
111
124
105
101
124

122

124

/HDS FAILED TO MOVE IN 10 TRIES/

/CYL PORTION OF HDRS DIFFER WHEN READ FROM TRK 0 & 1/
/MEAD ALIGN. RSET WRT LCK TO SEL HD 0, SET FOR KD 1/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

122
117
104
101

SEQ 0056

OPR6:
OPR?:
OPR8:
OPR9:
OPR10:
OPR11:
OPR12:
OPR12A:
OPRIA:
OPR1B:
UNDTST:
OPROO4:
DIFWD:
SGNWD:
HDWD:
SECWD:
CYLWD:
FRMWD:

STAMES:
BSNSTR:

103

60
62
63
64
65
66
67
68

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
,ASCIZ
_ASCIZ

G&TYPE “'CTL/C'' TO GET BACK TO SUPVR CMD MODE AND THEN TYPE ‘' ONT'’
/IF WD SEL TP (21, 22) DO NOT EXIST/

126
104

57 010562

102

HAMESG:
0OPROO2:
OPROO3:
OPR1:
OPR2:
OPR3:

.ASCIZ
_ASCIZ

122
107

104
101
104
122

58 010575

.ASCIZ
_ASCIZ

BYPSNM:

110
104
110
104

123
126

104
117
123
113
117
105

.ASCI2Z

CYLPER:
HAMESY:

131

010450
010464
010476
53 010526

55 010537
56 010551

116
101

TCERR:

_ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ

/GND NULL DET ON DRV LGC MOD DISABLE SEEK TIME OUT/
/ABOVE CONDITIONS MET/
/WAS LOAD DEPRESSED/
/CHK DRV IS UNLDED, COVER OPN, AND WRTE LCKED /
/CLOSE COVER & RST WRT L(K /
/PRESS LOAD /

/ BYPASSED /

/ROUTINE TRACE SEQ:/

/DRvV STAT/
/BAD SEC FILES NOT STRD.

/TOTAL CMP ERRS: /

RESULT NAMES
.ASCIZ
/DRV RDY /
,ASCIZ
/CONT ERR /
.ASCIZ
/HDR CRC/
.ASCIZ
/DATA (RC/
MHNF:
_ASCIZ
/HOR NOT FND/
MDLT:
_ASCIZ
/DATA LATE/
MHFCRC: .ASCIZ
&HDR NOT FND/HDR CRC/OPIR

MDRERR:
MHSTA:
MVOLCK:
MCOSTA:
MBHSTA:
MUWLSTA:
MHOSTA:
MDSERR:
MDRVST:
MSPERR:
MJIGERR:
MSTERR:

MHCERR:
MWDERR:

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

/DRV ERR /
/SEL'D WD /
/VOL CHK /
/COVER OPEN/
/BRUSH HOME/
/WRT LCK /
/MDS OUT /
/DRV SEL ERR /
/DRV STATE /
/SPIN TIMEQUT /
/WRT GAT ERR /
/SEEK TIMEOUT /

/HEAD CUR ERR /
/WRT DAT ERR /

ALL

SEC ASSUMED 0K./

— el vl

)

b =l

)

D wd el

il el

) —ld ol

b wud cud

b —d

OWArw~Nr—c>tnn~u0nntuunr~<><nl~08hnghn N =88

b wed

[=l=le} o

) e

Lol X e ol o

it P\ e NI

b o

b e

FMTT:
FAT1.1:
MY
FMT3:
FAT4:

FMTS:
FMT6:
FMT7:
FMT8:
FMTO:

FMT19:
FMT20:
FMT21:
FMT22:
FM123:
FMT24:

mMrT12:
FMT13:
FMT11:

FMY14:

FMT15:
FMT16:
FMT17:
FMT18:
.

g D) Sung Bmmeg G Dy fomcg ey Pungy Pt $nep Pung Sy s rung Pumg B Prug S

/INXTINXTETZO6XSXTRO1IN/
/INTTIO1XSI1XTTO1IN/
/INZTXO1XST1XTXTIN/
/31XT/
/INRTXT/
/317
/IN/
/INZTXTIN/
/INZTI06ZS1XTX01/
/EINESTIXTESAXTRSAXTISLXTISLRTYS2XT/
/INXTI062S2X06X52206XS2X06XS3203XS2X012IN/
/INXTX06XS2X06X52%( 4X52%06/
/INLT/
/X1%01/
/%7203/
/INZST1XTXO3XS1XTX03XS1XTX01XS1XTX01/
/INXTXTADIAS1XTRO6XS1XTX06/
/ANZS11XTXD3XST1ATI06XS1XTX06/

ey boump rang Gt Srmug Grong Soneg S

NINRNNRNANNANRNRANRN
.

Sy Bonet $ros Bung ot bru St Bt Boet Bumg Sovs P

IOVOIOIIIOIOIYYAOC

D o

b crad

b —

d [o1e]

il o

VT,

d e

3» »

e el

h id e

g Bt Sy
RN NP N RN

St Bmg g ey Bt P Sy et B

[

“n wnoHnunnTnUITMvInetwn

[alalalalalalalalaYeYeYe)

D o

= (O =

NNV
— b b =2
NI
NV
& 2 WO OOV

NO =NO = OWWVOON)
NN
= O
NSO

ANt o ed ad e

(2 XTN NONOO
— 2
NOO NONWWO OO~

NOO —

&S o Dalal =1V LN [ N

NN
=22 O0000 ~N~
SNON = NOWVWNI
By[*Q

b e

e C

wwn

»»

RES

/ZST0XTANZS11Z06IN/
ZINTSTSTTRSSXTESAXTISSATIN/
/3TXS4XDOXSLXDOXS4XDOTSLXDOIN/
/ZTES2XD6XS14XD6XS4XDOAIN/
/2TXS12X06XS14XD6XIN/
/INXST1XTZ03XS1XTX01XS1XTX02/
/XTXTXTRO1IN/
/INRT/

PNRIRRIPIRNIRNININPN
I PR PN NN RN P R
RN RN NI NN

(7,17
Y7, Y7 ][T X7 X7 NV RV X7 27,

wunn (7. X7 .17 .37, ]

on
nNo

—b

08
&~

cnd od

b e

b ed

olelalelelelolaletala) [=]

.
.
.

CIOIOIIICIOIINVNNIANCICICIONICIINICICINMIOY

wnn

FMTOPS:

RES

BBBw >rerre>»

CCYLUP:
CAFDT:
]

C10MmS:
C500Ms:

[]

CDRDY:

>EE>

STATEZ2:
STATE3:
STATES:

FMTOPY:
FMTOP?:

RESES:

»»»

—

-l

[ela]

RESES:

e ) b e ol el e i

NNVOMNVOOOOO
=
WS WO S Nt 2
OO

CSSEC:

S
VIV

[ B R
Y e R T B e
s
S OWORNIONININ)
= O==OWWNH
Y=

RESE6:

[« =)

RESE3:

¥4 Ne Yo

¢ B wud

BELL:

»»

2o W

MRLFAL:
MWRTAB:
MEXERS:
MERRS:

.
.
.
.

nunnnunununnnnunnnn

MUNDEF: .

>332I

)

b ek ) vd [\) e o

Yo Yo Yo Xo Yo Yo

)

d med el e

) enh wnd e wnd) wud

e ok N M) =

&~ N~
“‘“‘“WWKWWWW
S
N
= =
WA S N NN N
WWNO

MOPERR:
MHDERR:
MFLERR:
MNEERR:
MCYLOC:
MNDRST:

)

Lo al¥ Lo Yo Yo Yo W ol e

)

< A

*e*uarv-uow>\n\nunw\nunnc~r~
]I
&ow-—-owwouo-

OW—=NONO
N

TEST

e cad

N NN

pur gy

80
31
a2
83
84
85
86

77
78
79

—d

— e el i wnd asd wd d b b b

) b ) D il ol el ol cml ) el D b D b wd i b e b b b b

73
76

— ek el i

70
71
72

PONURLNLNYPOLNINDAINIA
= b b e d b aeod omd b b b b b 2nd b wmd
WLNANWNNIN) = = = O
~N A
AN = O LN
N

olelelalalelalaislelalelelelelelelalelelaleleleololale BNelalolelolalolotelate)

POPVRUNINOALININ)
= b b b b b bk d = D OO

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

7-1

/INXS5%06/

/0PR=IN(C/

SHOR/DAY ERR £
E£HDR NOT FND/DAT LATE &
/N=X=-MEM /
/CyL /
/CANNOT GET DRV STAT/
/UNKN DRV STATE=NO RDY,NO ERR,HDS OUT/
/FAIL TO RELD HDS AFTER ERR CLEAR/
/WRT ABORTED/
/ OVER ERR LIMIT = UNIT DROPPED /
/ ERROR/

<207><377><377>

SETTINGS
/18 /
/ S8 /

COND] VIONS
/ IN/
/ OF /

/STATE 2/
/STATE 3/

LSEEK W/0 MOTIONE

/STATE 5/

/1ST 3 m§/
/500MS/
/CYCLE UP/
/DATA XFR/

/5 SEC/

SEQ 0057

[V LV, IV, 1V, ]

(elolele]

E
Xk
X o

oo
O

el
b
-

1 MACRO v04.00 4-AUG-82 10:30:59 PAGE
FMT2S:
FMT26:
FMT27:

LASC
.ASC
LASC

]

7-2

SEQ 0058

/INXD2XT/
ZAINXSTETXDAXTXTXDIIN/

/ANZTXD3XTADIIN/
JINXTXTXT/

FMT28:
ENDMOD

_ASC

.SBTTL

ERROR MESSAGES

VBNV
WA =O

b wd
b
b
b o
b
b
b

ALV, AV LV IV IV [V 1V [V, ]V |

045
045
045
045

TEST

—b

NN
Ik ak al af
o VN
W = O
&» WHoo
&»

-k
b b

[eleolelell 38

(=]
» -

/02 DRIVE
GES

B B NN N NN NN
= OVBNA=O
V00

Lol
=

CZRLi
GLOB

160

012464

B8GNMOD

GLBERR

ERR1

R3 POINTS TO RESULT MESSAGE
RESULT: (R3)

ERR2

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

;

ERR3

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

ERR4

R3 POINTS TO RESULT NAME

R4 POINTS TO RESULT CONLITIONS

RESULT:

(R3)

IS 1

S8 0 (R4)

ERRS

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

ERR6

RESULT ROUTINE DETERMINES WHICH ERROR(S)
REPORTS ALL

ARE SET AND

RESULT: "ERROR'' IS 1 SB 0

ERR?

DRIVE STATE ERROR REPORT
R3 CONTAINS EXPECTED STATE

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

ERRS

SB (R3)

HEAD POSITIONING ERROR REPORT

NEWCYL CONTAINS EXPECTED CYLINDER

HOWRD1 CONTAINS BAD CYLINDER
RESULT: CYLINDER IS (HDWRD1) SB (NEWCYL)

ERRY

YRTN T

R4 POINTS TO VALUE 1
R5 POINTS TO VALUE 2
RESULT: (R3I-NAME) IS (R4-VALUE 1) SB (RS5=-VALUE 2)

ERR10

LFE TR

= O00N
W E WA
NO

el td

e el

il wnd

d e

conl)

)

175

UTILLITY RESULT REPORT
R3 POINTS TO RESULT NAME

.NLIST

MD,ME

COMPARE ERROR REPORT
R3 CONTAINS THE BAD WORD NUMRER
R4 POINTS TO BAD WORD
RS POINTS TO GOQD WORD
RESULT: WORD (R3) IS (R4) SB (RS)

(ZRLIDO RLO1/02 DRIVE
ERROR MESSAGES

189 012664

190 G12464

191 012470

192
192
194
195
196
197
198
199

012472
012476
012500
012504
012510
012512
012516
012522

200 012526

201 012530
012530
202 012530
203
204
205
206
207
208
209

TEST

MACRO v04.00 4-AUG-82

105767

170675

005277
010146
004767
012721
010321
004767
004767
012601

170460

001002

004767

INC
MOV
JSR
MOV
MOV
JSR
JSR
MOV

SERRPOINT
R1,=(SP)
PC,RPTOP
#1.(R1)+
R3,(R1)+
PC.RPTRES
PC RPIREM
(SP)+,R1

‘ELSE BUMP ERROR COUNT
*STORE R1
JREPORT OPERATION
*SET PARAM NUMBER
JINSERT MESSAGE ADDRESS POINTER
‘REPORT RESULTS
;REPORT REMAINDER
*QESTORE R1

TRAP

CSMSG

000001

ERR2
INC
MOV
JSR
MOV
MOV
MOV

SERRPOINT
RT,=(SP)
PC.RPTOP
#3.(R1)+
R3.(R1)+
21, (R1)+

:BUMP ERROR COUNT
:STORE R1
*REPORT OPERATION
*SET PARAM NUMBER
:INSERT NAME ADD POINTER
SSET IS VALUE

JSR
JSR

PC,RPTRES
PC.RPTREM

*REPORT RESULTS
*REPORT REMAINDER

JSR

PC.CKERLM

TRAP

CSMSG

ERR3
INC
MOV
JSR
MOV
MOV

SERRPOINT
R1,=(SP)
PC.RPTOP
#3.(R1)+
R3.(R1)+

:BUMP ERROR COUNT
:STORE R1
:REPORT OPERATION
:SET PARAM NUMBER
:INSERT NAME ADD POINTER

MOV
JSR
JSR
MOV

#1,(R1)+
PC.RPTRES
PC .RPTREM
(SP}+ R

SSET SB VALUE
*REPORT RESULTS
*REPORT REMAINDER
"RESTORE R1

TRAP

(CSMSG

ERR4
INC
MOV
JSR
MOV
MOV
MOV

JERRPOINT
R1,~(SP)
PC _RPTOP
26, (R1)+
R3.(R1)+
1. (R1)+

MOV

R4, (R1)

011212
000001

003714

004767
004767

011720
012122

0064767

003646

012601

005277
010146
004767
012721
010321

224
225
226
227

012721
004767
004767
012601

223 012620
012622
012626
012632
012636

228 012640

229 012644
012644
230 012644

005021

004767

005277
010146
004767
012721
010321
012721

239 012674

010411

005021

18:

ENDMSG
L10000:
BGNMSG

011152

000003

170352

MOV

ENDMSG
L10001:
BGNMSG

CLR

000001
011652
012054

003600

170304

011036
000004
000001

JSR

CLR

011104
000003

104423

231 012646
232 012646
233 012652
234 0126564
235 012660
236 012664
237 012666

238 012672

170420

104423

217 012600
218 012600
219 012604
220 012606
221 012612
222 012616

B8NE

011766
012170

211 012560
212 012564

213 012570

SEQ 0059

JTEST

005277
010146
004767
012721
10321
012721

214 012572
215 012576
012576
216 012576

NOERCT

104423

005021

ERR1

H
7-3

1878

012532
012532
012536
012540
012544
012550
012552

210 012556

BGNMSG

10:30:59 PAGE

ENDMSG
£10002:

BGNMSG

JSR

CLR

PC.CKERLM

(R)+

(SP)+,R1

(Ri)+

PC.,CKERLM

(RY)+

ERROR COUNTING

TYES - SKiP

INMIBITED

;G0 CHECK IF ERROR COUNT EXCEEDED

*SET S8 VALUE
*RESTORE R1

:G0 CHECK IF ERROR COUNT EXCEEDED

:SET IS VALUE

:GO CHECK IF ERROR COUNT EXCEEDED

:BUMP ERROR COUNT
*STORE R1
*REPORT OPERATION
*SET PARAM NUMBER
:INSERT NAME ADD POINTER
:SET IS VALUE

:SET SB VALUE

*INSERT ADD OF CONDITION POINTER

CZRLIDO RLO1/02 DRIVE
ERROR MESSAGES

260 012676

004767

262 012706

012601

261 012702

263 012710

264 012714
012714
20 012714
266
267
268
269
250
251

004767

005277
010146
004767
012721
010321

253 012,40
254 012744
255 012746

012721
010411
004767

256
257
258
259

012752
012756
012760
012764
012764
260 012764

MACRO v04.00 4-AUG-82

013502

005021

004767
012601
004767

011532
011734
003460

104423

269
270
271
272
273

013010
013014
013020
013026
013032

004767
012721
012761
005067
016703

010702
000003
000001
170072
170006

275 013042
276 013046

022703
001443

000004

012703
056703
010362

000004
167744
000000

012727
000000
016727
000000
005367
001375
005367
001367
032762
001003
012703

000012

277 013050

013056
013062
013066
013072
013072
013076
01310
013104
013106
013112
013114
013120
282 013122
283 013130
284 013132

ENDMSG
L10004:

010546

0462703
012762

BGNMSG

170156

178:

177761

000003

167012
177772

177756
000200
001000

000000
98 :

;REPORT RESULTS

PC,CKERLM

260 CHECK IF ERROR COUNT EXCEEDED

TRAP

(CSMSG

ERRS
INC
MOV
JSR
MOV
MOV

SERRPOINT
R1,=(SP)
PC.RPTOP
#6.(R1)+
R3(R1)+

;BUMP ERROR COUNT
*STORE R1
*REPORT OPERATION
SSET PARAM NUMBER
*INSERT NAME ADD POINTER

MOV
MOV
JSR

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

:SET S8 VALUE
:INSERT ADD OF CONDITION POINTER
*REPORT RESULTS

TRAP

($MSG

ERR6
TST8
BNE
INC
MV
MOV
MOV

NOERCT
17¢
SERRPOINT
R1,=(SP)
R3.-(SP)
R&,=(SP)

sTEST IF ERROR COUNTING INWIBITED
JYES - SKIP
‘ELSE BUMP ERROR COUNT
:STORE R1
‘STORE R3
*STORE R&

JSR
MOV
MOV
CLR
MOV

PC .RPTOP
#3.(R1)+
#1.2(R1)
TEMP3
T.C5.R3

*REPORT OPERATION
SSET PARAM NUMBER
SINSERT IS VALUE
*CLEAR FOR STATUS STORAGE
‘GET T.CS

#6,R3
1%

SCHECK IF IT WAS GET STATUS
“YES = STATUS IS IN T.MP, SKIP

JSR
MOV
JSR

(SP)+ RI

(Ri)+

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

RS,=-(SP)

‘RESTORE R1

SSET IS VALUE

*REPORT REMAINDER
‘RESTORE R1
:G0 CHECK IF ERROR COUNT EXCEEDED

*STORE RS

BIC

#177%61 .83

MOV

#GETSTAT ,RLDA(R2) ;ELSE DO GET STATUS

CMP
8EQ

000004

SEQ 0060

JSR

MOV

000002

PC,RPTRES

*REPORT REMAINDER

CLR

000001

170373

278
279
280
281

BGNMSG

010766
000004

105767
001002
005277
010146
010346
010446

274 013036

ENDMSG
L100G3:

7-4

PC . RPTRENM

MOV

170234

012766
012766
012772
012774
013000
013002
013004

268 013006

JSR

003530

261
262
263
264
265
266
267

10:30:59 PAGE

JSR

012004

104423

012716
012716
012722
012726
012730
01273¢

252 013736

TEST

MOV
8IS
MOV
wAITuS
MOV
.WORD
MOV
LWORD
DEC
BNE
DEC
BNE
BIT
BNE
MOV

:AND CLEAR ALL BUT FUNCTION

#,R3
RLDRV,R3
R3.RLLS(R2)
10,
;WAIT FOR CONTROLLER READY
#10.,(PC)+
0
LSOLY, (PC)+
0
=6(PC)
=4
<22(PC)
=20
#CRDYMSK ,RLCS(R2)
:TEST IF READY
108
:YES = SKIP
#8119,R3
‘ELSE SET NO DRIVE STATUS BIT

CZRLIDO RLO1/02 DRIVE
ERROR MESSAGES

TEST

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

285 013136
286 013140
287 013146
288 013150
289 013154

000413
016203
010367
116703
000402

000006
1677564
167751

108:

291 013162

116703

167671

016704

177442

18:

292 013166

042703

167652

2s:

296 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
303 013260
304 013262
305 013266
306 013270
307 013274
308 013276
309 013302
310 013304
311 013310
312 013312
313 013316
314 013320
315 013324
316 013326
317 013332
318 013334
319 013340
320 013342
321 013346
322 013350
323 013352
3264 013354
325 013356
326 013360

050403
032703
001442
032703
001026
032703
001020
012704

290 013156

293 013172

327
328
329
330
331
332
333

013362
013364
013366
013372
013376
013400
013404

042704

012746
010446
012746
012746
012746
010600
104414
062706
000430
012704
000757
032703
001003
012704
000751
012704
000746
032703
001403
012704
000740
032703
001403
012704
000732
012705
005004
030503
001005
005724
000241
006005

001372
000405
016411
004767
000766
004767
005767

001777

138:

002000
010000

004000
010766
011265

1008:

005423
012453
000004
000012
010427

1058:

004000

1078:

010450
010476

1098:

004000

1158:

010437
010000

118%:

010464
100000

1208:
3s:
43

002320
011106

6%:

011306
167514

7$:

7-5

SEQ 00¢°

8R
MoV
MoV
MovB
BR

2%
RLMP(R2) ,R3
R3, TEMP3
TEMP3+1,R3
138

: IN MESSAGE WORD AND SKIP
:STORE STATUS FOR REPORT

BIC

#177642,R3

;CLEAR UNUSED BITS

8IC

#1777 ,R4

Mmove

MoV
BIS
BIT
8eQ
8IT
BNE
BIT
BNE
MoV
PRINTB
Mov
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
8R
MOV
8R
BIT
BNE
MOV
B8R
MOV
BR
BIT
BEQ
MoV
B8R
BI7
8EQ
MOV
B8R
MoV
CLR
8Ir
BNE
TST
CLC
ROR

BNE
B8R
Mov
JSR
B8R
JSR
ST

;GET ERROR BITS IN PROPER POSITION

T.MP+1,R3

;GET ERROR BITS FROM MP REG

T.CS R4

:GET ERROR BITS FROM (S REG

sCLEAR UNUSED BITS

R4 ,R3
sMAKE ONE WORD OF POSSIBLE ERRORS
#OPIERR,R3
;TEST IF OP] SET
115%
;NO = SKIP
#HNFERR,R3
sTEST IF HDR NOT FOUND ERROR
1078
;YES = SKIP
#HCRCERR,R3
sTEST IF HDR CRC ERR
105%
;YES « SKIP
#MOPERR R4
sSET OPI ALONE MESSAGE
#FMT2B,#MRSLT,
R4 ,#MERRS ;REPORT ERROR
#MERRS ,=(SP)
R4 ,=(SP)
#MRSLT,=(SP)
NEMT28,~(SP)
#4,-(SP)
SP,RO
(SPNTB
#12,SP
1208
:SKIP
#MHCRC ,RG
sHDR CRC MESSAGE
1008
#HCRCERR,R3
;TEST IF HCRC WITH HDR NOT FND
1098
JYES - SKIP
#MHNF R4
sMESSAGE HEADER NOT FOUND
1008
#MHFCRC R4
sHNF AND HCRC MESSAGE
100%
;SKIP
#DCKERR,R3
cTEST IF DATA CHECK SET, NOT OPI
1188
;NO - SKIP
#MDCRC, RS
sSET MESSAGE DATA CHECK
1008
;SKIP
#OLTERR,R3
;TEST IF DATA LATE ERROR
120%
:NO - SKIP
MOLT,RG
sSET MESSAGE DATA LATE
1008
:SKIP
#BIT15,R5
sSET BIT POINTER FOR TEST
R4
sCLEAR R4 FOR TABLE COUNT
R5,R3
STEST IF BIT IS SEV
63
JYES = SKIP TO REPORT
(R4)+
;ELSE BUMP TABLE POINTER
sCLEAR CARRY
RS
sSHIFT BIT POINTER TO NEXT BIT

3$
7%
RESTBL(R4),
(R1)
PC,RPTRES
4$
PC,RPTREM
TEMP3

;LOOP IF NOT O
sELSE REPORT REMAINDER
;INSERT NAME ADDRESS
sREPORT RESULTS
;GET NEXT BIT
;REPORT REMAINDER
sTEST IF ANY NEW STATUS

CZRLIDO RLO1/02 DRIVE
ERROR MESSAGES

334 013410

001414

013612
013416
013622
0134626
013432
013434
013436
336 013442
337 013450
338 013452
339 013460
3.0 013462
341 013466
342 013472
343 013476
344 013502
345 013506
346 013510
347 013512
348 013520
349 013522
013522
013524
013530
013532
013536
013540
013544
013550
013554
013556
013560
350 013564
351 013570
352 013572
353 013574
354 013576

016746
012746
012746
012746
010600
104414
062706
032767
001453
032767
001047
005067
012701
012703
012705
012704
021514
001427
026727
003021
011546
012746
011446
012746
010346
012746
012746
012746
010600
104414
062706
005267
022524
005203
005301
001343

356 013606
357 013606

001421
012701

335 013412

355 013600
358 013612
013612

013614

005767
010146

012746

013620
013624
013630
013634
013640
013642
013644

016746
012746
012746
012746
010600
104414
062706

360 013652
361 013654
362 013656
363 013660

012604
012603
012601
004767

359 013650

012605

TEST

MACRO v04.00 4-AUG-82 10:30:59 PAGE

BEQ

PRINTB

167506
010276
012137
000003
000010
004000

167374

002000

167364

167326
000200
000001
004364
003764
167276

15%:

188:
000012

011304
011300
006172
012072
000007

000020
167224

167210

208 :
198:

258:

000200

000014

002560

N0 = SKIP

#FMT17,#STAMES,
TEMP3

1)
MOV

278
#128. R1

TSt

MOV

278:

SEQ 0062

TEMP3,=(SP)
#STAMES ,-(SP)
NEMTI7,=(SP)
#3,-(SP)
SP.RO
CSPNTB
#10,SP
#DCKERR,T.CS
:TEST IF DATA CHECK ERROR
258
‘NO = SKIP
#OPIERR,T.CS
;TEST IF OPI SET
258
*YES = SKIP
MORE CE
:CLEAR COMPARE ERROR COUNT
#128..R1
“SET COMPARE LENGTH
#1,R3
*SET WORD COUNT
#OBUFF ,RS
*SET GOOD WORD POINTER
#IBUFF R4
JSET TEST WORD POINTER
(RS, (R&)
*CHECK WORD
198
160G ~ SKIP
MORECE ,#10.
STEST IF COMPARE LIMIT REACHED
208
‘YES ~ SKIP
#FMT1S,#MJORD,R3.#RESE3,
(R4) ,#RESES, (RS)
(RS),=(SP)
#RESESG,
= (SP)
(RG),=(SP)
#RESE3S,~(SP)
R3,~(SP)
#MUORD
, = (SP)
NFMT1S,~(SP)
¥7,-(SP)
SP.RO
CS$PNTB
#20,5P
MORE CE
;BUMP ERROR COUNTER
(RS)+, (R4)+
:BUMP POINTERS
R3
:BUMP COUNTER
R
*DEC LENGTH COUNT
188
:LOOP IF NOT DONE

PRINTB

167170
010363
012434
000005

15%

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
BIT
BEQ
8IT
BNE
CLR
MOV
MOV
MOV
MOV
CMP
BEQ
CMP
86T
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
CMP
INC
DEC
BNE

MoV

011316

7-6

MORE CE

:NO - SKIP
*SET COMPARE LENGTH

#FAT2P #TCERR,MORECE
, #RESE6,RT
R1,~(SP)

#RESES,~(SP)

MOV
MoV
MOV
MOV
MOV
TRAP
ADD

MORE
CE .~ (SP)
#TCERR.=(SP)
NEMT27.~(SP)
#5,-(5P)
SP,RO
CSPNTB
#ia,SP

MOV
MOV
MOV
JSR

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

MOV

STEST IF ANY COMPARE ERRORS

(SPI+,RS

;RESTORE RS, &4, 3, 1
;60 CHECK If ERROR COUNT EXCEEDED

CZRLIDO RLO1/02 DRIVE
ERROR MESSAGES

364 013664
013664
013664
365
366 013666
367 013666
368 013672
369 013674
370 013700
371 013704
372 013710
373 0
374 0
375 0
376 0

377 0

378 013734

379
380 013736
381 013736
382 013742
383 013744
384 013746
385 013752

386 013756
387 013762
388 013766
389 013772
390 013774
391 013776
392 014000
393 014002
394 0164004

e
i

MACRO v04.00 4-AuUG-82 10:30:59 PAGE

" TRAP

104423

005277
010146
004767
012721
012727
016721
010311
004767
004767
012601
004767

167264

010562
010764
002510

BGNMSG

002414

CLC

MOV
Mov

BGNMSG

010422
010624

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

R3,(R1)

SERRPOINT
R1,=(SP)
R3,=(SP)

PC,RPTOP

#3,(R1)+

MMCYLOC, (R1)+

HDWRD1, (R1)
#7 ,R3

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

TRAP

CSMSG

ERR9

INC
MoV
JSR
MOV
MOov
Mov
Mov
JSR
MOV

JSR

sREPORT OPERATION

;REPORT RESULTS

sREPORT REMAINDER
JRESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

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

cALIGN CHAR FOR PRINTING
AS IS VALUE
:

JSR

ENDMSG

;SET _PARAM NUMBER
s INSERT NAME ADD POINTER
s INSERT IS VALUE
: INSERT SB VALUE

PC,RPTOP

ROR
DEC

JSR
JSR

007652
000003

002350

MOV
MOV
MOV
MOV

MoV

L10007:

167120

INC

BNE
IST

ENDMSG

#3,(R1)+

CSMSG

JSR

3s:

;BUMP ERROR COUNT
:STORE R1

TRAP

ERR8

SEQ 00¢:

QAERRPOINT
R1,=(SP)

JSR

MoV
MOV

167072
010470
010672

nd
d
d
b
e

005277
010146
004767
012721
010321
010421
010521
004767
004767
012601
004767

ENDMSG

7-7

C$MSG

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

MOV

007744
000003
011052
167064

700007

INC

JSR
JSR

L10006:

167214

ERR?7
MOV
JSR
MOV
MOV
MOV
MOV

167144

104423

005277
010146
010346
004767
012721
012721
016711
012703
000241
006011
005303
001374
005721
016711
004767
004767
012603
012601
004767

BGNMSG

010016
000003
010647

cmah

104423

rd e

400

397
398
399

396

395 014010

TEST

SERRPOINT
R1,=(SP)
PC,RPTOP

#3,(R1)¢

R3,(R1)+
R4, (R1)+
RS, (R1)¢

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

:BUMP PARAM POINTER
; INSERT SB VALUE

sREPORT RESULTS

sREPORT REMAINDER
sRESTORE R3
sRESTORE R1
;G0 CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
;STORE R1
sREPORT OPERATION
sSET PARAM NUMBER

sINSERT NAME ADD POiNTER
sSET IS VALUE
sSET SB VALUE

sREPORT RESULTS

;REPORT REMAINDER
;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

FERSFFRER

b
d od —dd
D
D
b

oro

LS
B

b i e
b

005046
156716
012746
016746
012746
012746
012746
010600
104414

b ——b —h ed e

010146
005767
001051
005277
004767

160

162
166

062706

011546

429
430
431
432
433

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

L10010:

166710

011546
012746
011446

167044

007600

CLR
81S8
Mov

166707

166672
006042
011567
000005

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTB
MOV
Mov
MoV
MOV
MOV
MOV
mMov
MOV

000014

011304

3s:

011304

011300
006172
012072
000007

004767
104423

000006

002140

MOV

PRINTB

006053

000020
166516

TRAP

ERR10

TST
BNE
INC
JSR

000022

oo
SO0

BGNMSG

006172
005423
012040
000010

NNNNBNNN =4

240

WINNNNI
NN RN NN N

d wmd el ad
—

425
426
627
428

e vl wd wnd i

d i

d cnd =

D —wd

423
624

011300

d el —d

622

TEST

104423

b e

=lelelalalelelalolololelelalelelolalelelelelalolelalalole
oY) oleleleolalelelolelate] elelelelelalel
o)

=0V~

SN
PNIN)
= d e b b

CZRLIDO RLO1/02 DRIVE
ERROR MESSAGES

43:

ENDMSG

L10011:
ENDMOD

BGNMOD
BGNIW

MOV
MOV
TRAP
ADD
B8R
PRINTB
MoV
MoV
MOV
MOV
MOV
MOV
MoV
MoV
MOV
TRAP
ADD
INC
MOV
JSR
TRAP

7-8

SEQ 006«

CSMSG
R1,=(SP)

sSTORE

MORECE

JTEST

SERRPOINT
PC,RPTOP

;BUMP ERROR COUNT
;REPORT OPERATION

2ND BAD LINE

JYES - SKIP

0:2;?,IBASADD,RLBAS,IDRVNAH,<B.RLDRVO1> JREPORT ID
RLDRV+1, (SP)
#DRVNAM,=(SP)
RLBAS,=(SP)
#BASADD
, - (SP)

#EMTS
= (SP)
#5,-(SP)

SP,RO
CSPNTB

#14,$P
#FMT14, #MRSLT, #MWORD ,R3, #RESES, (R4) ,#RESES, (RS)

(RS),=(SP)

#RESE4,=(SP)
(RG) ,=(SP)

#RESEZ, ~(SP)
R3,~(5P)

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

PEMTT4 = (SP)

#10,-($p)
SP,RO
CSPNTB

#22,5P
1
#FMT15,#MJORD ,R3,#RESE3, (R4) ,#RESES, (RS)
(R5),=(SP)
#RESEL ,~(SP)
(R4) ,=(SP)
#RESES,
= (SP)

;REPORT DATA

R3,~(SP)

#MUORD
, - (SP)

#EMT15,-(SP)
#7,-(SP)
SP,RO

(SPNTB

#20,SP

MORECE
(SP)+,R1

PC,CKERLM

CSMSG

.EVEN
HPTCODE

.WORD

L10012-L $HW/2

s INC_COMPARE ERROR COUNT
sRESTORE R1
:GO CHECK

ERROR COUNT EXCEEDED

CZRLIDO RLO1/02 DRIVE
W .8

W
N ~n NININY
b = cd b
O »

il cad
d ed v

D o

AT 2 2F aF oF ¥ 3

+WORD

ENDHW

SEQ 0065

76400

sCSR _BASE ADDRESS DEFAULT

+PRIORITY

.WORD
.WORD
.WORD
.WORD
.WORD

sVECTOR DEFAULT

;TYPE OF

DEFAULT

DRIVE,

RLO1=1,

;DRIVE NUMBER DEFAULT
;RL11 CONTROLLER

RLO2=2

L10012:

ENDMOD

WINW
NN
FaF AW

445
446
447
448
449
450
451
452
453 014330
654 014332
455 014334
456 014336
457 014340
458 014342

000006
000000

000000
000377
000000
000024
000012

461 014342
463 014342

014342
014344
014346
014350
014352
014354
014356
014360
014362
014364
014366
014370
014372
014374
014376
014400
014402
468 014404

BGNMOD
BGNSW
MISWIW:

LOLIMW:

HILIMW:
HEADW:
ERLIMW:
DCLIMW:
ENDSW

SPTCODE
-WORD
.WORD

.WORD
-WORD
.WORD
.WORD
.WORD

610013-LSSU/2

;BIT 0 = USE ALL CYLINDERS
;BIT 1 = USE ALL SECTORS
:BIT 2 = EXECUTE DRIVE SELECT TEST

;BIT
;BIT
;BIT
:BIT

3 = EXECUTE HEAD ALIGNMENT
12 = HEAD SELECT SUPPLIED FLAG
13 = HILIMIT SPECIFIED FLAG
14 = LO LIMIT SPECIFIED FLAG

;BIT 15 = DO MANUAL INTERVENTION

555.

20.
10.

sERROR LIMIT
:COMPARE ERROR LIMIT

L10013:

014342

459 014342
460

469
470
47
472
473
474
475

1 MACRO V04.00 4~-AUG-82 10:30:59 PAGE 7-9

1764400

000160
000240
000001
000000
000001

b
L 2E R

— e

441
442
443
444

440

OO00O0

634
435
436
437
438
439

OCO0OOOOOO

ERROR MESSAGES

TEST

ENDMOD
BGNMOD
000020
025176
025456
025664

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

DISPATCH

ENDMOD

DSPCODE
.WORD
.WORD
. WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD

16
16
n

12
13
T4

15
T6
17

18
19
110
TM
112
713
T14
115
116

;LOAD PROTECTION TABLE

000000
177777
000010

BGNPROT
.WORD
.WORD
.WCRD
ENDPROT

-1
10

sP-TABLE OFFSET OF CSR
sNOT A MASS-BUSS DRIVE

;P-TABLE OFFSET OF DRIVE

CZRLIDO RLO1/02 DRIVE
ERROR MESSAGES
476
477
«78
479
480
481
482
483
484
485
486
487

TEST

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

.SBTTL
014412
014412

014412

005067

166526

014616
014422
014624
488 014430
489 014432
490 014440
491
492 014462
493 014450
494
495 014456

012700
01006
103004
01 »?
000451

496

497 014462
498
499 014470

500 014472
501
502 014474
503 014476

104462

INITIALIZATION CODE

BGNMOD
INITCODE
BONINIT
;CHECK FOR PRESENCE OF A (CLOCK
PCLK:

CLR

CLKFLG

000120

“Mov

#'P,RO

166516

Mov
acc

RO,CLKADR
NOPCLK

TRAP

001

166504

MOV

012737
005737

014556

000004

012767

000011

012737

014514

177546

JCLEAR (CLUCK FLAG

cscLCK

#1,CLKFLG

TCLK

sINDICATE PRESENCE OF A P-CLOCK
:P CLOCK EXISTS, DO NOT USE L CLOCK.

NOPCLK: MOV

NTSTCLK,a%4

sTEST FOR L

166462

MOV

#11,CLKFLG

;INDICATE THE PRESENCE OF AN L CLOCK.

000100

mMov

#LCLK,30100

sL CLOCK VECTGR POINTS TO LCLK.

MOV
MoV

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

sSAVE

CLR
Mov

R2
#100,3#177546

sSTART THE L CLOCK.

ADD
NOP

”n,R2

;BUILD SOFTWARE LOOP. USE ADD TO SET FLAGS.

B8R

TST

010146
010246

005002

SEQ 00¢-

N177546

CLOCK.

IF NO CLOCK - SKIP.

R1 ANS R2 ON THE STACK.

062702
000240
000774

000001

509 014514
014520
014522

012716
000002
005037

014522

LCLK:

:?Y

#LCLKY,aSP

;MODIFY THE STACK TO RETURN TO LCLK1.

177546

LCLK1:

CLR

MN177566

:STOP THE L CLOCK.

014526

012701

000246

MOV

#166. ,R1

sTHIS 1S THE DIVISOR TO GET 100 uS.

014532
014536
014542
014544
014546

005067
005267

166406

—

O O

VOV

WN—=O

AWNANANNU
A VRORINONOIAINOND
< b b = b b b d ek )

N=O ORI NIV

W
v

505 014504
506 014510
507 014512

000100

A AAVNAAWAY AWMAIVIWAVAITWA
VA AVIWNVA VAN L

012737

160102
100401

166412

177546

1$:

000773
012602
012601
000403

012716

2%:

014564

TSTCLK:

166354

TCLK:

206664
011753
000002

CLR

LBASE

INC

LBASE

B8R

Su8
8MI

R1,R2
28

;LBASE IS THE APPROXIMATE NUMBER OF
JNEEDED TO GIVE 100 uS.

[TERATIONS

;RESTORE R1 AND RZ.

Mov
MOV
BR

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

sSKIP RT] HANDLER

:?Y

#TCLK, (SP)

sADJUST STACK FOR RT]

TST

CLKFLG

s1F THERE IS NO P OR L CLOCK, DO NOT DO THE

Mov

#NOTST,-(SP)

sABORTED.

BNE

MOV
MOv
Mov

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

;TEST. PRINT A MESSAGE

SAYING WHY THE TEST

IDO RLO1/02 ORIVE
1ALIZATION CODE

533 014610
53, 014612

104417
062706

g;g 014622

000111

535 014616

538 014624
016626
014630
5§39 014632
014632
540 014634

014634

MA(RD v(4.00 4-AUG-82 10:30:59 PAGE

000006

000200

012700
104441

000340

103403

042767

100014

005067

166132

012700
104447

000034

553 014702
554 014710
§55 014714

016767
005067
012700

012700
104447

165126
000406

012701
005020
005301
001375

000100

563 014756
564 014762
565 014764
566 014770
567 014772
568 014772
014772
0164776
569 015000
015000
570
571 015002

032767
001002
005067
000432

040000

015002

012700

015010

103533

572 015002

015006
573 015010

177462

166502

103034

014720
014724
014726
014730

560 014732
561 014740
562 014746

1%:

000040

165104
166444
003160

012767
012767
012767

012700
104447

003156
177777
177777

177340

000037

103743

104447

000036

TRAP
ADD

CSPNTF
#6,5P

JMP

aRr

MOV

104450

103005
016767
000167

§56
§57
558
559

012791

561 014636
542
543 014644
544 014650
014650
014654
545 014656
014656
566 014660
547 014666
548
549 014672
014672
014676
550 014700
014700
551

5§52

TEST

166164

BIC

177344

SEQ 0067

#200,R1

SETPRI
#340
MOV
#340,R0
TRAP
C$SPRI
MANUAL
TRAP
CSMANI
BCOMPLETE
2

BCS

;SET PRIORITY TO 7 TO INHIBIT INTERRUPTS

;CHECK IF MANUAL INTERVENTION ALLOWED
JYES = SKIP

#MITEST!DRSELT!HDALIGN,MISWIW :CLEAR ALL MANUAL
. INTERVENTION FLAGS
28:
CLR
SSINDX
;CLEAR SUBROUTINE STACK INDEX
READEF
#EF.PWR
*POWER FAILURE?
MOV
#EF .PWR, RO
TRAP
(CSREFG
BNCOMPLETE
4$
:NO, GO CHECK NEW PASS
BCC
113
MOV
LSUNIT,PWRFLG
;SET POWER FAIL FLAG
JMP
PWCON
:GO SERVICE PCWER FAIL
;"'START'* COMMAND SEQUENCE
i
READEF
#EF.START
;CHECK IF START
MOV
#EF .START,RO
TRAP
(CSREFG
BNCOMPLETE
RESTART ;NO - SKIP
BCC
RESTART
;
ON START INITIALIZE TO START AT FIRST DRIVE, CLEAR INTERNAL

RSTRT:
1$:

166216
166414
166034

C
6
7-11

LAB:
5$:
RESTART:

PASS COUNT, AND ERROR COUNT.

MOV
CLR
MOV

MOV
CLR
DEC
BNE

MOV
MoV
MOV
BIT
BNE
CLR
BR

LSUNIT,DRVCNT
;SET UP UNIT COUNT
PASNUM
:CLEAR PASS NUMBER
#ERRCNT,
RO
¥64 . R
:GET A COUNT
(RO) +
:CLEAR ERROR COUNTER STORAGE AREA
R1
18
;LOOP TILL ALL CLEARED
#ERRCNT~2,ERRPOINT ;INIT ERROR POINTER
#-1,PSETNM
:SET PARAM SELECT TO INITIAL VALUE
#-1,HADONE
:PRESET HEAD ALIGN DONE FLAG
#LOCYL MISWIW
:TEST IF LO LIMIT SET
1
SYES ~ SKIP
LOL I
*ELSE CLEAR LO LIMIT
SETDON

READEF
#EF .RESTART
MOV
#EF .RESTART,RO
TRAP
CSREFG
BCOMPLETE
RSTRT
BCS
RSTRT
;"'CONTINUETM COMMAND SEQUENCE
CONTINUE:
READEF
#EF.CONTINUE

MOV

#EF .CONT
INUE .RO

B8CS

PWCON

TRAP
CSREFG
BCOMPLETE

PWCON

:CHECK IF RESTART
;NO ~ >KIP

;TEST IF CONTINUE

C 4 R Ll DO RLO1/02 DRIVE
[ N l TIALIZATION CODE

574
5 75 015012

015012
015016
576 015020
015020

TEST

D_6

1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 7-12

;
012700
104447

000035

103403

577 015022
578 015G22
579 015026
580 015030
581 {15034
582 015042
583 015050
584 015056
585 015062
586 015066
587 015076
588 015100
589 015104
0151064
015106
590 015110
015110
591 015112
592 015116
593 015120
ggg 015124

103406
005767
001741
005367
000736

596 015126
597 015130
598 015132
599 015134
600 015140
601 015142
28% 015150

012122
012122
005721
(12167
012122
022767
001426

604
605
606
607
608
609
610
g};

015152
015160
015166
015174
015202
015210
015216
015224

012767
012767
012767
012767
012767
012767
012767
000425

090776
000777
001000
177600
177600

613
614
615
616
617
618
g;g

015226
015234
015242
015250
015256
015264
015272

012767
012767
012767
012767
012767
012767
012767

000377
000400
077600
077600
077600
000376

621
622
623
624

015300
015306
015310
015316

032767
001003
016767

020000

177020

164766

177014

005767
001013
005267
012767
016767
012767
005267
005367
062767
016700
012702

NXTPAS:

166046
166324

PASNEW:

003156

164744
177277
166300

166006

000002
166262

166062

ON CONTINUE PICK UP UNIT LAST UNDER TEST

READEF
MOV
TRAP

#EF .NEW
#EF .NEW,RO
CSREFG

JCHECK IF

TST

DRVCNT

JTEST

INC

PASNUM

<ELSE BUMP PASS COUNT

BCOMPLETE
PASNEW
8¢S
BNE

MOV
MOV
MOV
SETDON: INC
DEC

ADD

MOV
MOV

003026

GPHARD
TRAP
MOV

104442
01000%

BEQ
DEC
BR

166244

STARTING NEW PASS

PASNEW

SETDON

IF ALL UNITS CHECKED

‘NO = SKIP

#ERRCNT-2,ERRPOINT ;INIT ERROR POINTER
LSUNIT,DRVCNT
;GET ALL DRIVES
#-1,PSETNM
;SET PARAM SELECT TO INITIAL
PSETNM
INEXT SET OF PARAMETERS
DRVCNT
:DOWN COUNT DRIVE TOTAL

#2 ,EKRPOINT
PSETNM,RO
SRLBAS . R2

RO,R1
C$GPHRD
RO,R1

gggansr;‘

166252

SEQ 006¢

PWRFLG

NXTPAS
PWRFLG
NXTPAS

:NO

:UPDATE THE ERROR POINTER

:SET UP TO GET PARAMETERS
:GET POINTER TO RL11 BASE ADDRESS

;SKIP IF GOOD PARAM

;RECENT POWER FAILURE

;ACCOUNT FOR DRIVE

:MOVE P-TABLE CONTENTS TO LOCAL STORAGE

7s:
165136

AV Al 4 1% 1%, 1V, 1V, 1V, )

b
b
o

ONONONO

e
b e
et

177600
177000

(R1)+,(R2)+

;STORE (SR

ST
MOV

(1) ¢
(R1)+,1.0RIVE

:BUMP PAST PRIORITY
;STORE DRIVE TYPE

MOV

MOV
cMP

165126

BEQ

(R1)+,(R2)+

(R1)+,(R2)+
#1,T.0RIVE

:STORE VECTOR

65§

;INITIALIZE RLO2 PARAMETERS
MOV
#510.
, NXTHL
MOV
MOV

#511. HLATY
#512. . GBND

MOV
MOV
MOV

#177600,0IRMSK
#177600,HDCYL
#177000, CLRBYT

MOV

000001

MOV

B8R

#177600, CAMSK

PWUCON

;INITIALIZE RLO1 PARAMETERS

658:

MoV
MOV

#255.
, HLATW
#256. . GBND

MOV
MOV
MOV

#77600.01RMSK
#77600, HDCYL
#254., NXTHL

BIT

AHICYL,MISWIW

MOV
SETVEC

HLMTW,
HIL 1MW
RLVEC,#INTHLR,#340

MOV
MOV

177400

PWCON:

1%:

BNE

#77600, CAMSK

#177400, CLRBYT
1%

:SET UP INTERRUPT VECTOR FOR DRIVE

RLIDO RLO1/02 DRIVE

ITIALIZATION CODE

015316
015322
015326
015332
015336
015340
625 015344
015344
015350
g%g 015352

012746
012746
016746
012746
104437
062706
012700
104441
016702

TEST

MACRO v04.00 4-AUG-82 10:30:59 PAGE

00(340
016370
165476
000003

MoV
MOV
MOV
Mov
TRAP
ADD
SETPRI
MoV
TRAP
MOV

000010
000000

165450

631 015356
015356
632 015360
633 015360

103004

634 015362
635 015366
g%g 015370

005767
001001
000521

#340,-(SP)
#INTHLR,=(SP)
RLVEC,~(SP)
#3,-(SP)
CSSVEC
#10,sP
#0
#0,R0
C$SPRI
RLBAS,R2

MANUAL
TRAP
CSMANI
SNCOMPLETE
BCC
48

104450

165772

TST
BNE
B8R

228

7-13

SEQ 0069

sSET PRIORITY TO O TO ALLOW INTERRUP:S

;SET RL11 BASE ADDRESS POINTER

sMANUAL INTERVENTION ALLOWED?
4%

PASNUM
48
8s

sNO
;YES, CHECK PASS NUMEER
;NOT FIRST PASS, NEED DRIVE UP
;FIRST PASS, PROGRAM WILL INSTRUCT USER

sCHECK IF POWER FAILURE WAIT IS NEEDED

661 015372

005767

165772

644 015600
645 015404

016705
052705

647 015414
648 015420

012701
032762

gz% 015376

646 015410

223 015426

651 015430
015446
015452
015454
015460
015462
015466
015470
015474
015476
652 015506
653 015510
654 015512
015512
015516

015522
015526
015530
015532
655 015536
015536
015540
015544

001516

010562

001102

012727
000000
016727
000000
005367
001375
005367
001367
104422
005301
001343
012746

012746

012746
010600
104417
062706

005046

156716
012746

4$:

TST

PWRFLG
8s

;NO, SKIP

165426
000200

MoV
8Is

RLDRV,R5
#CRDYMSK ,RS

sDRIVE SELECT
:SET _CRDY

000170
000001

Mov
BIT

#180. R
¢ INITIALIZE WAIT COUNT
#DRDYMSK ,RLCS (R2)
:DRIVE UP YET

000000

000372
164436
177772
177756

006060

012373

000002

000006
165267
006053

BEQ

MOV

000000

9s:

BNE

RS RLCS(R2)

WAITMS 10.
MoV
#250.,(PC)+
JWORD
0
MOV
LSDLY, (PC)+
WORD
O
DEC
=6(PC)
BNE
.~
DEC
<22(PC)
BNE
.=20
TRAP
C$BRK
DEC
R1
BNE
9s
PRINTF #FMT24 ,#NOPWR
MoV
#NOPWR,
- (SP)
MoV

SEMT24,~(SP)

sNEEDED?

sSELECT DRIVE

;YES START TEST

SWAIT A SECOND

;SIXTY GONE BY
:NO
;REPORT ‘‘VRV DID NOT REC'R FROM PWR FAL'

MoV
#2,-(SP)
MoV
SP,RO
TRAP
CSPNTF
ADD
#6,SP
PRINTF #FMTS5,#BASADD,RLBAS ,#DRVNAM,<B,RLDRV+1> ;REPORT DRIVE UNIBUS
CLR
=(SP)
81s8
RLDRV+1, (SP)
(017
#DRVNAM,
- (SP)

~ND

LO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 7-14

SEQ 007/

O\O%Oo
83 VHAWA LWL

VAWV

—

ed ok d
d
p

658

50
56

60
64

70
72
74

i e

656

VIV Vi

ATION CODE

659 015626

660
661 015630
662
663 015634
664
665 015634

015634
015634

666
667 015636
668
669
670
671
672
6732
674
675
676
677
678
679 015636
680 015636
681 015642

006042
011567
000005

062706

000014

104417

012746

000004

016700

165536

104451

015670
015674
015700
015704
015706
015706

MOV
Mov
MCV
MOV
MOV
TRAP
ADD
PRINTF
MoV
MOV
MOV

011553
000001

012746
010600
104417
062706

TRAP
ADD
pDobuU
MOV
TRAP

DOCLN
TRAP

104444

005067

165304

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

#EMTS,=(SP)
#5,-(SP)
SP,RO
CSPNTF
#14,SP

#EMT3
#FMT3,-(SP)

sNEW LINE

;/ADDRESS AND DRIVE NUMBER

#1,-(SP)

SP,RO
CSPNTF

#4,SP

PSETNM

;00 DROP UNIT ON DRIVE

PSETNM,RO

C$DODU

; INVOKE CLEAN-UP CODE TO RESTORE DRIVE

CSDCLN

CLR

ERRVEC

TRAP

CSINIT

¢/T0 STATIC STATE

;CLEAR ERROR VECTOR

8s:
NI
END INIT
L100 15.

104411

ENDMOD

.SBTTL

AUTO DROP SECTION

:THE AUTO DROP SECTION IS INVOKED BY THE DIAGNOSTIC SUPERVISOR WHENEVER THE
:"ADR"*

FLAG IS SET BY THE OPERATOR.

IT IS EXECUTED AFTER THE

INITIALIZATION

:CODE AND CHECKS THE DRIVE TG DETERMINE IF IT IS READY TO RECEIVE A COMMAND.
:IF THE DRIVE IS NOT READY IT IS DROPPED FROM THE TEST CYCLE AND THE NEXT
:DRIVE IS ACCESSED. IF THE DRIVE IS READY THE HARDWARE TESTS ARE PERFORMED
:AFTER WHICH THE NEXT DRIVE

005067

165524

012746
012746
016746
012746

000340
016436

000003

062706

000c12

016702
005762
005767
001447

165132
000000

012746

104437

684
685
686
687
688

162252

016746
012746
012746
012746
010600

165262

BGNAUTO

CLR
SETVEC

MOV

MOV
MoV
MoV
TRAP
ADD

IS ACCESSED.

TRPFLG

#340,-(SP)

;SET UP TRAP VECTOR TO DETECT

#TRPHAN,
= (SP)

ERRVEC,=(SP)
#3,-(5P)
CSSVEC
#10,SP

165462

Mov
IS8T
IST

RLBAS,R2
RLCS(R2)

006754

PRINTF
MOV

WEMT24 #NOCTLR

8EQ

+CLEAR TRAP FLAG

ERRVEC
, #TRPHAN, #3540

{gPFLG

#NOCILR,-(SP)

;/NON-EXISTENT CONTROLLER UNIBUS
- /ADDRESS

;GET RL11 BASE ADDRESS

SACCESS DRIVE CONTROLLER UNIBUS ADDRESS
‘DID TRAP OCCUR?

*BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR
SELSE, PRINT MSG. 'DRV DROPPED - NO CNTLR'

CZRLIDO RLO1/02 DRIVE

AUTO DROP SECTION

689

015712
015216
015722
015724
015726

690 015732
015732
015734
015740
015746
015750
015754
015760
015764
015766
015770
691 015774
015774
016000
016004
016006

016010
692 016014
016014
016020

012746
012746
010600
104417
062706
005046
156716
M12746
016746
012746
012746
012746
010600
104417
062706

016700
104451

165342

016705
052705
010562

165002
000200
000000

697 016040

032762

701 016074

001046

012746
012746
012746
010600
104417
062706

016074
016076
016102
016106
016112

005046
156716
012746
016746
012746

016126
016130

010600
104417

016116
016122
016132

702 016136
016136
016142
016146
016150
016152

000014

000004

012746
012746

000001

007003
012373
000002
000006

164731
006053
164714
006042

011567
000005

062706

000014

012746

011553

012746
010600
104417
062706

000001

000004

#EMT24 ,~(SP)
#2,-(SP)
SP.RO
CSPNTF
#6,SP

SEQ 007!

:PRINT DRIVE

INFORMATION

PRINTF #FMTS,#BASADD,RLBAS,#DRVNAM, <B,RLDRV+1>
CLR
-(SP)
BISB
RLDRV+1,(SP)
MOV
#DRVNAM,~-(SP)
MOV
RLBAS,-(SP)
MOV
#BASADD
., = (SP)
MOV
NEMTS,
= (SP)
MOV
#5,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#14,SP
PRINTF
#FMT3
MOV
#EMTS,
< (SP)
MV
#,-(5P)
MOV
SP,RO

165073
006053
165056
006042
011567
000005

062706

104417

MOV
MOV
MOV
TRAP
ADD

000006

011553
000007

000460

698 016046
699 016050
016050
016054
016060
016064
016066
016070
700

01:373
000002

012746
012746
010600

693 016022

694 016026
695 016030
696 016036

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

TRAP

1$:

000000

CSPNTF

ADD
DODU
MOV
TRAP

#6,SP
PSETNM
PSETNM,RO
($DODU

MOV
8IS
MOV

RLDRV,RS
#CROYMSK ,RS
RS,RLCS(R2)

BNE
PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

2
#FMT24,#NOTRDY
ANOTRDY,
= (SP)
FEMT26,-(SP)
#2,-(SP)
SP.RO
CSPNTF
#6,5P

PRINTF

WFMTS,#BASADD,RLBAS
. #DRVNAM, <B,RLDRV+1>

MOV
MOV

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

B8R

8IT

CLR
BISB
MoV
MOV
MOV
MOV
TRAP

ADD

PRINTF

MOV

MOV
MOV
TRAP
ADD

;D0 DROP UNIT ON DRIVE

;BRANCH TO EXIT

‘ELSE. GET DRIVE NUMBER
*SET CONTROLLER READY
:LOAD IN THE DRIVE NUMBER

#DRDYMSK ,RLCS (R2}

-(SP)
RLDRV+1,(SP)
#DRVNAR.
= (SP)
RLBAS,~(SP)
#BASADD
, = (SP)

#FMT3

NENTS -(SP)

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

;1S DRIVE READY?

:BRANCH TO PERFORM TESTS IF DRIVE IS READY
:PRINT MSG. 'DRV DROPPED - NOT RDY''

;PRINT DRIVE INFORMATION

CZRLIDQ RLO1/02 DRIVE

AUTO DROP

MACRO v04.00 4-AuG-82

016156
016162

016700
104451

165200

016164
016170

016700
104436

164750

016172
016172

104461

016164

705 016172

706
707
708
709
710 016174

2%:

ENDAUTO

L10016:

BGNMOD

;}; 016174
713 016174

016176
016200
016204
016210
016214
14 016216
715 016222

716
717
718
719
720
721

10:30:59 PAGE

H
6
7-16

St 0072

SECTION

703 016156
704

TEST

016222
016226

016230
016236
016240
016246
016254
016256

016274
016300
016302
016306

016310
016314
016316
016322
016324
722 016334
016334
016340
723 016342
724 016346

BGNCLN

012746
012746
016746
012746
104437
062706

000340
016436
164730
000003

012700
104441

000007

000010

164566
000001

000000
000000

012727
000000
016727
000000

000372

177756

016354
016360

016700
104436

164560

016362
728 016362

104412

729 016364
730 016364

000240

727 016362

3s:

177772

165022

725 016350
726 016354

2%:

163610

005767
001402
005367

165014

CLRVEC

ERRVEC

;RELEASE

TRAP

($AUTO

MoV
TRAP

PSETNM_
RO
C$D0DU
ERRVE(C RO
CSCVEC

5%:

7$:
ENDCLN

L10017:

BGNDU

THE

ERROR VECTOR

CLNCODE
ERRVEC,#TRPHAN,#340

#340,-(SP)
#TRPHAN,
= (SP)
ERRVEC,~(SP)
#3,-(SP)
CSSVEC
#10,sP

SETPRI #7

000000

164470

;D0 DROP UNIT ON DRIVE

SETVEC

000200

016700
104436

PSETNM

MoV
MOV
MOV
MOV
TRAP
ADD

032762
001407
056762
032762
001027

005367
001375
005367
001367
104422

DOdU

MoV
TRAP

#7,R0
C$SPR]

MOV
LWORD
MOV
WORD

#250.,(PO)+
0
LSDLY, (PO +
O

8IT
BEQ
BIS
8IT
BNE
WAITMS

DEC
BNE
DEC
BNE
TRAP

CLRVEC

MOV
TRAP

#CRDYMSK ,RLCS(R2)
sTEST IF CONTROLLER READY
3$
:NO LOOP UNTIL READY
RLORV,RLCS(R2)
. SET DRIVE NUMBER
#DRDYMSK ,RLCS(R2)
;TEST IF DRIVE BUSY
s$
sNO - SKIP
3
JWAIT 300 MS

=6 (PC)
.4
=22(P(C)
.=20
C$BRX
RLVEC
RLVEC,RO
CSCVEC
PWRFLG
’$

TST
BEQ
DEC
CLRVEC

PWRFLG
ERRVEC

TRAP

CSCLEAN

MOV
TRAP

NOP

;SET PRIORITY TO 7

ERRVEC ,RO
CSCVEC

;RELEASE DRIVE VECTOR
;PWR FAIL SET
+NO

‘

CZRLIDO RLO1/02 DRIVE

AUTO DROP

731

732

SE(CTION

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

7-17

SEQ 0073

16366

016366
016366

733 016370
734
735
736
737
738
739 016370
740
741 016370
742 016374
743 016400
764 016404
745 016410

7646 016414
7647 016422
748 016426

016426
016426

749
750
751
752 016430
753 016430
754 016434

016434

755
756
757
758 016436
759 016436
760 016442

761

TEST

016442
016442

" TRAP

104453

CSDU

ENDMOD

.SBTTL

005067
012267
012267
012267
011267

012767
016702

164546
164444
164442
164440
164436

77777
164400

164364

BGNSRV
INTHLR
s INTERRUPT HANDLER FOR DRIVE ABORTS WAIT TIMER AND STORES ALL RL11 REGISTERS
CLR
DLYCNT
sCLEAR UNELAPSED DELAY COUNT
MOV
(R2)+,T.CS
JSTORE RL REGISTERS
MOV
(R2)+,T.BA
MOV
(R2)+,T.DA
MOV
(R2),T.MP
MOV
#-1,00NE
;SET DONE FLAG
MOV
RLBAS ,RZ
JRESTORE RZ
ENDSRYV

L10021:

000002

INTERRUPT SERVICE RCUTINES

RTI

: INTERRUPT SERVICE ROUTINE FOR P~CLOCK DECREMENTS DELAY COUNTER AT 100-MICROSECOND

sTIME INTERVALS

005367

164506

BGNSRV

ENDSRYV

L10022:

000002

(LKINT
DEC

DLYCNT

;DECREMENT CLOCK DELAY COUNTER

RT!

s INTERRUPT SERVICE ROUTINE SETS TRAP FLAG WHEN A NON-EXISTENT UNIBUS ADDRESS IS
sACCESSED

005267

000002

164724

BGNSRV

ENDSRV

L10023:

TRPHAN
INC

RTI

TRPFLG

;INDICATE

THAT

TRAP OCCURRED

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

TEST

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

;

g 016444

9
10 016446
11 016452
12 016454

0164654

104420

016456

103451

016460
016466
016470
016474
016500
016502
016504

012746
016746
012746
012746
010600
104417
062706

016510
016512
016516
016522

016532

13 016456
14

027767
002453

016460

15 016510

016526

016536

164506

ERROR LIMIT CHECKING ROUTINE

:
CKERLM:

OROPS DRIVE IF ERROR LIMIT EXCEEDED
CMP
SERRPOINT,ERL [MW
sTEST If ERROR LIMIT EXCEEDED
BLT
1$
:NO ~ SkipP
INLOOP
JCHECK IF IN ERROR LOOP

000010

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

MMEXERS
, = (SP)
ERLIMW,=(SP)
#FAT2S
= (SP)
#3,-(SP)
SP.RO
CSPNTF
#10,5P

005046
156716
012746
016746

164315
006053
164300

CLR
BISB
MOV
MOV

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

012746

011567

MOV

WFEATS,-(SP)

MOV

000005

016572
016576

016700
104451

164564

016600
53 016602

104444
000207

23
26
25
26
27
gg

016267
016267
016267
016267
000207

MOV

000014

;PRINT

MSG.

"OVER ERROR LIMIT

MOV
MOV
MOV
TRAP
ADD

#FATS
- (SP)
#1,-(5P)
SP.RO
(SPNTF
#4,5P

MOV
TRAP

PSETNM.RO
($DODU

DOCLN

1$:

164232
164226
164222
164216

TRAP
RTS

DROPPED'’

INFORMATION

#5,-($P)

SP,RO
CSPNTF
#14,5P

DODU

- UNIT

#BASADD,
- (SP)

MOV
TRAP
ADD

PRINTF

000004

000000
000002
000004
000006

;YES = SKIP

PRINTE #FMTS,#BASADD,RLBAS,#DRVNAM, <B,RLDRV+1> :PRINT DRIVE

006042

011553
000007

PRINTF #FMT2S ERLIMW,#MEXERS

011225
175646
012400
000003

012746
012746
010600
104417
062706

016606
016612
016620
016626
016634

;

016552
016556
016562
016564
016566

18 016600

GLBSUB

BCS

012746

SEQ 0074

BGNMOD

CSINLP

012746

GLOBAL SUBROUTINES

TRAP

010600
104417
062706

17 016572

.SBTTL

BCOMPLETE

016542
016544
016546

16 016552

175664

#FMi3

PSETNM

CSDCLN
PC

:DROP DRIVE
250 TO CLEAN UP

;
READ AND STORE ALL RL11 REGISTERS
READRL: MOV
RLCSR(R2),T.CS
:GET CS REG
MOV
RLBA(R2) ,T.BA
;GET BUS ADDRESS REG
MOV
RLDA(R2).T.DA
:GET DISK ADDRESS
MOV
RLMP(R2) .T.MP
:GET MULTI-PURPOSE REG
RTS
PC
*RETURN

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

32
33 016636
34 016640
35 016644
36 016652
37 016654
38 016660
39 016664

40
41
42
43

44
45
46
47
48
49
50
51

016666
016674
016702
016704

016712
016714
016722
016726
016732
016736
016740
016744

011646
005066
032762
001420
004767
005767
001453

012766
032767
001403
012766

000207
012767
006367
006367
012727
000000
016727
000000

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

000002
000200

WAIT FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE
(SP) ,=(SP)
:MAKE ROOM FOR ERROR POINTER
(LR
2(SP)
CLEAR FOR POINTER

WAITIN: MOV
000000

8IT
BEQ
JSR

177724
164122

TST

006200
002000

000002
164142

006220

000002

000001
164214
164210
000012

164220

18:

2s:

8tQ

;3E;U=£SSAGE FOR NO DRIVE RESPONSE

#1,DLYCNT

:INITIALIZE DELAY COUNT

55 016760
56 016762
57 016770
58 016772
59 016776
60 017004
61 017006
62 017012
63 017014
64 017020
65 017026

001367
032762
001006
004767
012766
000742
005767
001325
004767
012766
000731

70
71
72
73
74
75
76
77
78
79

017030
017034
017040
017044

005067
105067
005067
000207

1637
164325
1637

TSTINT:

017046
017052

016746
012767

164054
000013

164046

GSTATR: MOV

164040
000003

164032

80 017060
81 017062
82 017066
83
84
85
86
87

017074
017076
017102
017106
017110

000412
016746
012767
000404
016746
005067
010346
016703

000200
177606
006273

000000

000002

MOV

163774

3s:

177564
C€06240

5$:

164026
164020
163666

000002

sNO = GO SET NO INTERRUPT ERR FLAG

g?oaaes,2<sp)

DEC
BNE
DEC
BNE
BIT
BNE
JSR

177756

;TEST IF CONTROLLER READY

sNO = SKIP TO WAIT
sREAD ALL RL REGS
sTEST IF INTERRUPT OCCURRED

MOV
RTS
MOV
ASL
ASL
Mov

BIT
8eQ

005367
001375
005367

177772

‘s
PC,READRL
DONE

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

. WORD
MOV
.WORD

163152

#CRDYMSK ,RLCSR (RQ)

MOV

52 016746
53 016752

54 016754

SEQ 0075

TST

BNE
JSR
MOV
BR

DLYCNT
DLYCNT
810.,(PC)+

ELSE SET T00 SLOwW ERROR POINTER
JTEST [F OP] SET

:NO - SKIP

:MULTIPLY BY 2
SMULTIPLY BY 2 AGAIN
S IMPLEMENT TIME DELAY LOGP

bSDLY.(PC)+

~6(PC)
A

-ZgéPC)

#CRDYMSK ,RLCS(R2) :TEST IF READY NOW SET
3s

;YES - SKIP

PC,READRL

*READ RL REGS

DONE

SELSE CHECK IF INTERRUPT OCCURRED

;ELSE SET NO INTERRUPT FLAG
;GO TO RETURN

ggconnuc.zcsv»
18
PC,READRL
#MNOINT,2(SP)

:gE}PHESSAGE FOR CONTROLLER HUNG
SYES = SKIP TO SET TOO SLOW
*READ RL REGS

OPERATION AND TEST INITIALIZE ROUTINE
CLR
OPFLAG
sCLEAR OPERATION FLAGS
NOERCT
sRESET INHIBIT ERROR COUNTING
CLRB
CLR
ggRECE
;RESET MORE COMPARE ERRORS

RTS

GET STATUS AND GET STATUS WITH RESET ROUTINE

GSTATC:

GSTAT:

GSTATG:

TEMP4 , - (SP)
;STORE TEMP4
#GETSTAT!DRSET, TEMP4
sSET FOR RESET
GSTATG
TEMP4 ,~(SP)
sSTORE TEMP4
#GETSTAT ,TEMPL
;SET FOR NO RESET

GSTATG

TEMP4 ,-(SP)

;STORE

SSINDX,R3

sGET SUBROUTINE INDEX

TEMP4
R3,=(SP)

TEMP4

sSET FOR_SAVE L. AND T. REGS
;STORE R3

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

88 017114
89 017116

005723
016663

92
93
94
95
96
97
98
99

010046
010146
012767

90 017126
91 017132

100
101
102
103
104
105
106
107

017136
017140
017142
017150
017156
017160
017166
017170
017206

032767
001525
032762
001427

000004
000004
163644

040000

000000

000372

017246
017252
017256
017260
017266
017270
017276

012701
004767
020110
032767
001077
032767
001010

000062
177620

017346

017352

017354
017360
017362
017366
017370
017374
017376
017406
017410
017412
017416

017416
017420
017422
017424

121 017426
122 017432

001467
052767
000463
032767
001057

1//756

000167
005767

Mov
.WORD
MoV

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

.WORD
DEC
BNE
DEC
BNE
TRAP

;STORE RO
;STORE R1
;SET FOR NO ERROR RETURN

#DRSET,TEMP4
JTEST IF DRIVE RESET
1%
:NO - SKIP
#DRVERR,RLLCS(R2} ;TEST IF DRIVE ERROR SET
498
sNO = SKIP
3
;WAIT FOR DRIVE TO SETTLE

O
-6 (PC)
.~4
=22(P()
.20
C$BRK

163556

000020

163554

144000

163544

040000

163466

BEQ
BIS

#DRDYMSK,T.CS
;TEST IF DRIVE READY
58
;YES - GO DO CLEAR
#HOSTAT, T MP
sELSE TEST IF HEADS OUT
51$
;YES = BYPASS RELOAD WAIT FLAG SETTING
#SPDSTAT !HCESTAT!WDESTAT,T.MP ;TEST IfF DRIVE HAS ERROR
s THAT CAUSED HEADS TO
sUNLOAD
5%
sNO - SKIP
#RELDWY,OPFLAG
ELSE SET WAIT FLAG

040000

163516

BIT
BNE
WAITMS

#DRVERR,T.(CS
5%
1

162536

104456
023421
000000
012464

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

;ADJUST IT TO CALLING LOCATION
sSTORE IT BACK

000001

016727
000000
005367
001375
005367
001367
104422
005301
001320
012703

MOV
MOV
MOV

#6,SUBSTK(R3)
R3,SSINDX

ME
MOV
JSR
3s
8IT
BNE
8Ir
BNE
BIT

000372

.NLIST
498
508 :

SEQ 0076

(R3)+
cBUMP IT FOR NEXT ENTRY
4(SP),SUBSTK(R3) ; INSERT THIS CALL

8lr
8EQ
8IT
BEQ
WAITMS

177772

TST
MoV
suB
MoV

162676

012727

000000

002404

163646
163750

012727
000000
016727
000000
005367
001375
005367
001367
104422

032767

002404

000002
000010

017212
017214
017220
017222
017226
017230
017234
017236

108 017300
109
110
111 017306
112 017310
113 017316
114 017320
115 017326
116 017330

117
118
119
120

162763
010367

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

518:

177756

011103

#250.,(PC)+

MOV
WORD
DEC
BNE
DEC
BNE
TRAP

LSDLY, (PO +
O
-6(PC)
.=
~22(P()
.=20
($BRK

JINITIALIZE WAIT COUNTER
;GET DRIVE STATUS

;SKIP TO CLEAR

sTEST IF DRIVE ERROR NOW
sYES = SKIP TO CLEAR
;WAIT FOR DRIVE TO GET ERROR, READY, OR HEADS OUT

)

DEC
BNE
MOV
ERRHRD

R1
508
#MUNDEF ,R3
10001.,,ERR1

sDEC WAIT CUUNTER
:1F NOT DONE, LOOP
sMESSAGE FOR UNDEF INED STATE

JMP
ST

148
TEMP4

SEXIT
sTEST IF

TRAP
.WORD
.WORD
.WORD

118:

MOV

LWORD

177772

000452
163470

B8R

#50. ,R1
PC,GSTAT

CSERHRD
10001
0
ERR1

SAVE REGISTERS

7634

7642
7644
7662
7666
7670

D
b amd el e

SN
~NO

b
el amd el e

)

7674
7676
7702
7704
7710
7712
7722
7724
7726
7732
7734

)
—d end ol

—

7740
7740
7742
7744
17746
158 017750

MACRO v04.00 4-AUG-82 10:30:59 PAGE 8-3

8s:

000003

163354

163434

163344

5%:
6$:

#L_MP+2,R3
-(R3),=(SP)
R1

;SET ADDRESS OF FIRST SAVE
sPUT REG ON STACK
;sDEC COUNT

MOV

#GETSTAT,L.DA

;SET FOR GET STATUS

MOV

TEMP4,L.DA

;INSERT PRESET FOR STATUS

DONE
RLDRV,L.CS

;CLEAR INTERRUPT FLAG
:SET UP TO GET STATUS

DEC
BNE
B8R

163306
163326
002000

012727
000000
016727
000000
005367
001375
005367
001367
005767
001535
016767
042767
032767
001534
032767
001451
012701
032762
001043

000001

MOV
MoV
WAITUS
Mov

162346

MoV

012727
000000
016727
000000
005367
001375
005367
001367

000104

163312
163300

104456

023423
000000
012464
000455

. WORD

[AS1a%
1, ]
(AN AV 1Y,]

163214
177770

040000

163156

001130
000001

000000

000010

000372
162222

177772
177756

104422

005301
001343
004767
020110
012703

BIC
BIS

177756

163252

CLR

MOV

177772

.WORD
DEC
BNE
DEC
BNE
TST
BEQ

MoV
BIC

BIT

BEQ
BIT
8tQ
13%:

<€EQ 0077
;NO SKIP

MOV
MOV
MOV

005067
016767
042767
052767
016762
016762

163326
163320
163312
000004
000000

BNE

000004
003044

b
b

7626
7630

TEST

OTM

D w—d
ol wmd o
b cd oD oD cd =D b o

VR NO NS WA= OOV~
NS W

017436
017440
017444
017450
017452
017454
017456
0174664
017466
017474
017474
017500
017506
017514
017522
017530
017536
017536
017542
017544
017550

jeleleléolelalelolelelelelalelalolelolelelalelelelalalalaletTa)

D —ad —d
b
b
el
D
ol —d cmd
) vnel

IV P2 20 YV W
W
W %
- OV
NO VWO

b od

b e

b d

AN AN N N N W W NN WRNINININOLNOND nN

(ZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

MOV

8IT
BNE
WAITMS
MoV
+WORD
MOV

.wORD
DEC
BNE
DEC
BNE
TRAP

177144

DEC
BNE
JSR

011150

MOV

ERRHRD
TRAP
.WORD
.WORD
. WORD

#6 R

8s
6%

;SET SAVE

COUNT

;LOOP UNTIL ALL SAVED
JSKIP

#8I1T7T10,L.CS

JCLEAR FOR DRIVE 4 = 7 SPEC'D

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

;LOAD RL REGS
;LOAD (S REG

#GTSTAT,L.CS

1
61,(PC)+

JWAIT FOR INTERRUPT

bSDLY,(PC)O

-6(PC)
.~4

-2§6PC)
DONE
1%
T.MP, T STAT

L,CHECY IF INTERRUPY OCCURRED
;NGO - SKID
;STORE MP REGISTER

:NO - SKIP TO EXIT

12$

N0 ~ SKIP

#*C<STAMSK>, T.STAT ;CLEAR ALL BUT STATE
#DRSET,L.DA
sTEST IF RESET WAS SPECIFIED
N#RELDWT,OPFLAG

TEST

RELOAD WAIT FLAG SET

#600. .R1
JIVVITIALIZE WAIT COUNTER
#DRDYMSK ,RLCS(R2) :TkoT F DRIVE NOW READY

12$
1

6250..(PC)0

JYES = SKIP
JCALL WAIT

biDLY.(PC)O

~6(PC)
.=h

=22(PC)
.=20

C$BRK
R1

sDEC COUNT

PC,GSTAT

JGET DRIVE

138

#MRLFAL ,R3
10003., ,ERRT
CSERHRD
10003
0
ERR1
14$

:LOOP IF NOT O

STATUS

JERROR RETURN

JSET RESULT MESSAGE POINTER

;600 T0 EXIT

(ZR. 100 RLO1/02 DRIVE
GLOBAL SUBROUTINES
159 017752

b
d o
e

NNNNNN

O VS
NN =

00 00 0000 00000000~~~
NOWVBWNI—=2O
V0~

b
b
D

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
020046
020050
020052
020054
020056
(20060
020064
020066
020072
020074

020074
020076
020100
020102
020104

020110
020114
020116

020122
020126
020130
020132
020134
220142
020144
188 020146
189 020150
190 020154
191 020160
192 020162
193 020166
194 020170
195 020172
196 020176
197 020200

198
199

012727
000000
016727
000000
005367
001375
005367
001367
004767
020110
032767
001434
032767
001403
012703
000417
032767
0C1405

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

12%:

000012

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

177772
177756
177070
100000

163026

001000

163024

163000

7%:

006350

176544

18:

2s:

162706
163012

14$:

3$:

003034
000004

208:
162640

22%:

162752
162636

BIT
BEQ
BIT
BEQ
MOV
BR
BIT
BEQ
ERRHRD
TRAP
.WORD
.WORD
. WORD

MOV
BR
JSR
MOV
ERRHRD
TRAP
+WORD
.WORD
.WORD

CLR
TST

BNE

MOV
Mov
MOV
DEC

BNE
sus

MOV
Mov
Mov
MOV
1ST

BEQ

162630

000000

5$DLV.(PC)0

006327

000002

Mov

.WORD
DEC
BNE
DEC
BNE
JSR

104456

023424
00¢ 090
012766
000412
012703
000403
004767
012603

10,
#10.,(PC)+

. WORD

162132

040000

WAITUS
MOV

99¢%:

ADD
NOP
RTS
MOV
NOP
RTS

)

SEQ 007%
JWALT

=6(PC)
4

222(PC)
PC,GSTAT

#ANYERR,T.CS

;¥CSTAT,T.HP

#VCNRST,R3

#DRVERR,T.CS

9%
10004., ,ERRE

;GET DRIVE STATUS
JTEST IF ANY ERROR

;NO - SKIP

;CHECK IF VOLUME CHECK RESET
JYES SKIP
;SET REASON POINTER
JEXIT

JCHECK IF DRIVE ERROR
JNO - SKIP

CSERHRD
10004

0
ERR6

149
#UNXERR ,R3

JEXIT
g;} REASON POINTER

PC,WAITIN

:WAIT FOR INTERRUPT
;STORE REASON POINTER FOR RETURN

(SP)+,R3
10002.
, ,ERR?

CSERHRD
60002

ERR1

ERRSWI
TEMP4

22%
#L.CS.R3

#R
(?P)+.(R3)f
R

208

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

(SP)+,R3

(SP)+,TEMPS
ERRSWI
99%
ERRSWI, (SP)
PC

a(SP), (SP)

;CLEAR FOR ERROR RETURN

JTEST IF REGISTERS WERE SAVED

;NO - SKIP
JSET POINTER TG RESTORE
;SET REGISTER COUNT
JRESTORE REG
;DEC COUNT
;LOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUTINE STACK

JRESTORE
SRESTORE
;RESTORE
JRESTORE
sTEST IF

R1
RO
R3
TEMP4
ERROR RETURN

JYES - SKIP

JADD IN FOR NO ERROR RETURN

sSET ERROR RETURN ADDRESS

CZRL 100 RLO1/02 DRIVE
GLOBAL SUBROUTINES

VNPV WO

INSIASIAS
L ST, V1, N NS IS LN NT N1 ST VT,V1,NT,S1,N7,§]
NN
NNPNINY b cd d d e o e s b

200
201
202
203
204
205

020202
020204
020210
020214
020216
020c20
020222

TEST

8
MACRO \06. 00 4-AuG-82 10:30:59 PAGE 8-5

GET ORIVE _STATE ROUTINE
R3,-(sP)

GORSTA: Mov

0L 2004
003044

000C03

1%:

162610

DEC
BNE

R1
18
#GETSTAT,L.DA

:DECREMENT REGISTER SAVE COUNT
:LOOP UNTIL ALL 4 REGISTERS ARE SAVED
;SET UP DISK ADDRESS REGISTER FOR GET STATUS

DONE

=-(R3),=(SP)

162572

CLR
MoV

320242
020250

002000
000104

162564
162556

8IC
BIS

#81T10,L.CS

RLDRV,L.CS
#GTSTAT,L.CS

016762

162556

000004

Mov

L.DA,RLDA(R2)

020264

016762

162544

000000

Mov

L.CS,RLCSR(R2)

020272
020276
025300
020304
020306
020314
020322
020326
228 020332
0203%«
020536
020340
020342
020346
020350

105762
001775

000000

1ST8

RLCS(R2)
5%
DONE
38

NONWN SN = OV

020256

020352
020360
020362
020366
020370
020374
020376
020404
020412
020416
020420
020422
020424
020432
020436
020442
020444

0057¢7
001416

016767
042767
012703
012701
012623
005301
001375
000402
004767
012603
000207

012767
000402
005067
010346
016703
005723

016663
162763

162502

TST

003034
000004

2s:

3s:

176270

177777

162440

RTS

sSET UP CONTROL
;/DRIVE NUMBER

STATUS REGISTER WITH

;CLEAR FOR “RIVES 4~7 SPECIFIED

JINITIALIZE

CONTROL

STATUS REGISTER FOR

:/GET STATUS COMMAND
;INITIALIZE DISK ADDRESS REGISTER FOR

;/GET STATUS COMMAND

;LOAD CONTROL STATUS REGISTER TO EXECUTE
s/GET STATUS COMMAND
;WAIT FOR CONTROLLER READY INDICATING
;/RECEIPT OF GET STATUS COMMAND
s INTERRUPT OCCURRED?
+BRANCH IF NOT

T.MP,T,STAT
:GET CONTENTS OF MULTI-PURPOSE REGISTER
#*C<STAMS
T STAT
K> ;CLEAR ALL BUT STATE DR.VE BITS

#L.CS,R3

sINITIALIZE POINTER TO RESTORE RL REGISTERS

(SP)+, (R3)+

;RESTORE REGISTERS

sLOOP UNTIL ALL 4 REGISTERS ARE RESTORED

#6 ,R1

sINITIALIZE REGISTER SAVE COUNT

;DECREMENT REGISTER SAVE COUNT

PC.WALITIN

;WAIT FOR INTERRUPT

:RETURN

(SP)+,R3

SEEK ROUTINE

;RESTORE R3

:gééI$HP1

sSET SPECIAL TIMING SEEK FLAG

TEMP1

sCLEAR SPECIAL TIMING SEEK FLAG

002404

XSEEK:
XSEEKT: Mov
MoV
1ST
MoV

R3,-(SP)
;STORE R3
SSINDX,R3
sGET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL

162364

Mov
MOV
MoV

002404

002560
162434

DEC
BNE
B8R
JSR
MoV

</ COMMAND
sCLEAR INTERRUPT FLAG

XSEEKT: MOV

162406

000002

MOov
81C
MOV
MOV
MOV

:SAVE REGISTER ON STACK

162540

162532

000002
000004
162364

BEQ
BEQ

179770

:SAVE R3

SINITIALIZE REGISTER SAVE COUNT
JINITIALIZE ADDRESS OF FIRST SAVE

Mov

5¢:

SEQ 0079

#6 ,R1
oL . MP+2,R3

MoV
MOV
MOV

020230
020234

162552

162426

B8R
CLR

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

suB
MOV
MOV

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

R5,=(SP)

:STORE REG

CLR

#2 ERRSWI
DIFAUG

JSR

PC,GETPOS

;
__PAST GUARD BAND)
:GET PRESENT POSITION

MOV

CURCYL,OLDCYL

;MOVE CURRENT TO OLD CYLINDER

65%

;SET FOR NO ERROR RETURN
;CLEAR DIFFERENCE ARGUMENT

(FOR SEEKING

265 020522
266 020530
267 020536

268 020540
269 020544
270 020546
271 020552
272 020560
273 020564
274 020570
275 020574
276 020576
277 020604
278 020606
279 020610
280 020614
281 020620
020624
020626
020634
020636

020644
020652
020654
020662
020662
020666
020672
020670
020702
020704
020710
020714
020716
020720
020722
020726
020730
020734
020740
020742
020746
020752
020756
020760
020764
020770
020772

026767
003427
166767

016767
016767
G22767
001424
162767

012767
012767
000451
005767
100007
005467
016767
005067
016705

MACRO V04.00 4-AUG=-82

16426

CMP
BLE
suB

161614

162406
161600

MOV
MOV

000001
000001
000001

MOV
MOV

CMP
BEQ
sus

000001

1s:

162336
162316

6$:

166705

100005

012767
005405
000402
005067
010567
005767
001416
026767
001007
012767

162304
162274
162265
162252
162250

161446

000001

162244

022767
001003
066767

000001

161424

162216

162224

012705
012715
056715
042725
005025
016715
012700
006315
005300
001375

003034
000106

21%:

MOV
1S7

Mov
ASL
DEC

BNE

TST

23%:

000020
000001
000504

25%:

000004

BR
CLR

MoV
MoV
8IS
8IC
CLR
MOV

162152

162130

sus
8PL
MOV
NEG

ADD

162162

162022

MOV

cmp
BNE

162176

000004

CLR

BEQ
CMP
BNE
MOV

162134
002000

000007

BR
TST
8PL
NEG
MOV

020652
020400
020462
020470
020476
020504
263 020512
264 020514

—

257
258
259
260
261
262

TEST

S W
we

(ZRLIDO RLO1/0¢ DRIVE
GLCBAL SUBROUTINES

BEQ
BiS
TST

BEQ
8IS
8IS
JSR

65%

CLR
1ST
BNE

Mov

¢
10:50:59 PAGE 8-6

SEQ 0080

NEWCYL HLMTW

STEST IF NEW IS GREATER THAN 255

HLMTW, NEWCYL

¢ELSE SUBTRACT 255,
sSTORE DIFFERENCE AS ARGUMENT
sSET NEWCYL AS 255.

NEWCYL ,DIFAUG

HLMTW NEWCYL
g;,T.DRlVE

:NO - SK]P

#1,NEWCYL

#1.DESSGN

#1.DESDIF

18$

NEWCYL

sTEST IF NEWCYL HAS NEGATIVE VALUE

NEWCYL
NEWCYL,DIFAUG
NEWCYL

;ELSE MAKE [T POSITIVE

CURCYL RS
NEWCYL .RS
138

#1.DESSGN

RS
14$
DESSGN
RS ,DESOIF
DIFAUG
18%
?;UCYL.HLHYU
$
#1,DESSGN
#1,T.DRIVE

JNO - SK]IP

JAND STORE IT AS ARGUMENT

JAND SET NEW(CYL TO O
;COMPUTE DIFFERENCE AND NEW CYLINDER
;SUB NEWCYL FROM CURCYL
JIF DIFF IS POSITIVE - SKIP(REV SEEK)
SJELSE SET SIGN FOR FORWARD
:ngs DIFFERENCE POSITIVE
JSET SIGN FOR REVERSE
;STORE DIFFERENCE
1S THERE A DIFFERENCE ARGUMENT
;NO - SKIP
sCHECK IF NEW CYL IS 255.
:NO - SKIP
SELSE FORCE SIGN FOR FORWARD

s CINNER GUARD BAND)

18$

DIFAUG,DESDIF

#L.CS.RS

#SEEK
. (RS)

RLDRV, (R5)

#81710, (RS)+
(RS)+

DESDIF, (RS)

#7 R0

(RS)

;SET TO SHIFT DIFFERENCE

STEST Sng

238

#DIRBIT, (RS)

25$

sCLEAR IF DRIVE & - 7 SPEC'D

sCLEAR BUS ADDRESS
+LOAD DIFFERENCE

;L00P UNTIL ALIGNED

218
DESSGN

DESHD

sGET RL REG ADDRESS
:SET FOR SEEK
s INSERT DRIVE NUMBER

JSKIP IF
;ELSE INSERT SIGN

sTEST IF HEAD O
;YES - SKIP

#MBSETO, (RS)+

;ELSE SET HEAD BIT
JINSERT MARKER BIT

DONE
TEMP1

sCLEAR INTERRUPT FLAG
sCHECK IF SPECIAL SEEK FLAG SET

=(RS5) ,RLDA(R2)

sLOAD RL REGISTERS

#HDSEL

,\RS)

PC.RDYCHK

65%

JCHECK ]F DRIVE READY

;YES = SKIP, DO NOT START SEEK

314 020776
315 021002
316 021006
021006
021012
021014
021020
021622
021026
021030
021034
021036
021042
021044
021050
021052
021052
021054
021056
021060
021062
021066
021070
021074
021076
021076
021100
021102
021104

00€J02
000000

01¢727

000001

000000
016727
000000
005367
001375
005367
001367
005767
001012
004767
012603

30%:

023425
00000C
012464
005067
000411
005767
100006

1727756
161744

175566

005067

012605
012601
012600
012603
005767
001403
066716
000207
017616
000207

016703
005723
016663
162763

010367
010046
010446
012767
004767
021424
012704
012714

MoV

bibLY.(PC)o

MOV

ERRHRD
TRAP

.WORD

161730

32%:

161750

104456

023426
000000
012766

61,(PC)0

.WORD
DEC
BNE
DEC
BNE
TST
BNE
JSR

177772

161704

000002

161662

65$:

161662

99:

000002
000004

002404
002404

000002

161602

003034
000106

sus
MOV
Mov
MoV
MOV
ADD
RTS
Mov
RTS

SIMSEK: MOV

161622

000242

CLR

8EQ

000000

161600

.WORD
. WORD
CLR
B8R
TST
BPL
ERRHRD
TRAP
.WORD
.WORD
. WORD

TST

161654

=(R5) ,RLBA(R2)
=(R5) ,RLCS( R2)

mMov
MOV
WAITUS
MOV

.WORD

161076

104456

010346

00000000
NONNLRININONY

PIINIIIIIIN

VAWM = O V00 NONNES NN = O

]
1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 8-7

014562
014562

162767

NN
N NN
VAV

TEST

IST
Mov
Mov
MOV
MoV
Mov

JSR

659

MoV
MOv

-—

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

SEQ 0081

sPERFORM SEEK OPERATION
SALLOW TIME

FOR RECEIPT OF

SEEK COMMAND

-62PC)

=22(PC)
=20

DONE

32%

PC,WAITIN

(SP)+,R3
10005., ,ERR1
CSERHRD

JTEST IF INTERRUPT DONE
JYES = SKIP

:GO WAIT FOR INTERRUPT
sGET RESULT MESSAGE POINTER

10005

0
ERR1
ERRSWI
6 5%
T .C S

6 S$
1 0006., .ERRG

sCLEAR FOR ERROR RETURN
sTEST IF ANY ERROR
:NO - SKIP

¢ SERMHRD
10006

ERR6
ERRSWI
#2,SSINDX
(SP)+ RS
(SP)+
R
(SP)+ RO
(SP)+,R3
ERRSW!
99¢%
ERRSWI, (SP)

8(SP), (SP)

;CLEAR FOR ERROR RETURN
sREMOVE ENTRY FROM SUBROUTINE STACK
sRESTORE REGISTER
;RESTORE R3
STEST IF ERROR RETURN

JYES - SKIP
;ADD IN ERROR RETURN

:SET ERROR RETURN ADDRESS

R3,-(SP)

sSTORE REGISTERS
;GET SUBROUTINE INDEX
(R3)+
+BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4 ,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION
SSINDX,R3

R3,SSINDX
RO,=(SF)
R4 ,=(SP)
#2 ERRSWI

sSTORE

IT BACK

PC.RDYCHK

;SET FOR NO ERROR RETURN
sCHECK IF DRIVE READY

#SEEK, (R4)

;GET POINTER TO L REGS
;SET FOP SEEK

CZRLIDO RLO1/02 DRIVE

GLOBAL

SUBROUTINES

356 021232
357 021236
358 021242
359 021244
360 021250
361 021254
362 021256
363 021260
364 021262
365 021266
366 021270
367 021274
368 021300
369 021302
370 021306
371 021312
372 021316
373 021322

374 021326
375 021332
376 021336
77 021342
378 021344
379 021346
380 021350
021350
021354
021356
021362
021364

381
382
383
384

385
387
388
389
390
N
392

393
394
395 021454
396 021460
398
474
475

476

056714
062724
005024
016714
012703
006314
005303
001375
005767
001402
052714
005767
001402
052714
052724
005067
012701
014462
014462
014462

005767
001030
005301
001415

012727
000000
016727
000000

005367

001375
005367
001367
000756
004767
012603

TEST

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

161574

RLDRV,

¢
(RG)
DESDIF, (R4)
#7,R3%

161636

000007

3s:

161622

000004
161612

#DIRBIT, (R4)

b1 &

000020
000001
161470
000012
000004
000002
000200

10$:

161444

000001
160534

177772
177756

175230

13%:

=6(PC)

023433
000000
012464
005067

161372

162767

000002

161350

148:

65%:

161352
161344

000000

99%:

TRAP
-WORD
-WORD
.WORD
(LR

sus
MOV
MOV
Mov
TST
8EQ
ADD

RTS
MOov
RTS

:INSERT SIGN

JCLEAR INTERRUPT FLAG
;SET WAIT COUNT FOR 800US
;LOAD RL REGISTERS

DEC
BNE
DEC
BNE
B8R
JSR

ERRHRD

JTEST IF SIGN SET
JNO - SK]IP

DONE
0. ,R1
~(R&),RLDA(R2)
-(R&) .RLBA(R?)
<(R&) .RLCS(R2)
DONE

65$

MOV

s INSERT DRIVE NUMBER
sCLLAR FOR DRIVE &4 = 7 SPEC'D
sCLEAR BUS ADDRESS
sLOAD DIFFERENCE
sSET COUNT FOR SHIFT TO ALIGN
;ALIGN DIFFERENCE IN DA

JTEST

BNE
DEC
BEQ
WAITUS
Mov
. WORD

Mov
.WORD

SEQ 008/

DESHD
7$
#HDSEL , (R&)

#MBSETO, (R4) ¢

78:

104456

012604
012600
012603
005767
001403
066716
000207
017616
000207

(R4)

#81110, (RG)+

002000

}33

HEAD O

JYES - SKIP
JINSERT MEAD BIT

;INSERT MARKER BI7

sCHECK IF INTERRUPTED
;YES = SKIP
;DEC WAIT COUNT

JIF 0 - SKIP

#1,(PC)+

0
5SDLY.(PC)0
=4

=22(PC)
. =20
108

:GO CHECK DONE

(SP)+,R3

;60 WAIT FOR TIMEQUT
;GET RESULT MESSAGE POINTER

ERR1
ERRSWI

sCLEAR FOR ERROR RETURN

PC,WAITIN

10011, ,ERR1
CSERHRD
50011

#2,SSINDX
(SP)+ R4
(SP)+,RO
(SP)¢+,R3
ERRSW]
99%

SRRSHI,(SP)
C

8(SP), (5P)

+REMOVE ENTRY FROM SUBROUT STACK

RESTORE REGS

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

:SET ERROR RETURN ADDRESS

DRIVE READY TEST ROUTINE.

CHECKS DRIVE

IS READY.

IF NOT, WAIT

479 021464

480 021470

481
482
483
484
485
486
487

021472
021500
021506
021512
021514
021516
021520
488 021526

489 021532
490 021536
491 021540
£92 021546
493 021550

494
495
496
497
498

021600
021602
021604
021610
021614

499 021624

501 021634
502 021636
503 021644
504 021646

505 021724
506 021726
507 021730
508 021736
509 021740
021740
021742
021744

- ad e b ON D O b b
(=] OOONO VOO
»~ &H
oo

677
478 021462

=loleleleflelolele]

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

161270

000002
011610

002404
002604

012727
000000
016727
000000
005367
001375
005367
001367
005301

000001

1%:
161276

000001

177772
177756

104456

000000

RO.=(SP)
R1.=(SP)
R4.= (SP)
#2 ERRSWI

R3.SSINDX

:STORE T BACK

#5600. ,R1

48
BIT

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

#DRDYMSK,T.CS

WAITUS
Mov

1
81,(PC)0

JSR

BNE
DEC

PC,GSTAT

sTEST [F DRIVE READY
JYES - EXIT

5$DLY.(PC)0

-62PC)

=22(PC)
.=20

R1
18
#MDRDY ,R3

#CS00MS, R4

10010., .ERRS

104456

023433

MoV
MOV
MOV
MOV
MOV

. WORD
MOV
.WORD
DEC
BNE
DEC

160334

012703
012704

012727
000000
016727
000000
005367
001375
005367
001367
104422
005301
001340
032767
001406

2(SP),SUBSTK (R3)" ¢ INSERT THIS CALL
#4,SUBSTK(R3)
:ADJUST IT TO CALLING LOCATION

BNE

001353

023432
000000
012716
012701
004767
021754
032767
001031

MOV

suB
MOV

161270

175340

001104

S500MS FOR_READY TO SET.
R3,~(SP)
:STORE REGS
MOV
SSIND! R3
sGET SUBRUUTINE INDEX
(R3)+
TST
;BUMP IT FCR NEXT ENTRY

RDYCHK: MOV

161312

000002
000004

SEQ 0083

sDEC WAIT COUNT

;LOOP IF NOT O
sSET RESULT MESSAGE POINTER
:SET CONDITION MESSAGE POINTER

CSERHRD
60010

ERRS

000030

2%:

175242

000001

161200

#24. ,R1

sINITIALIZE WAIT COUNT

#ORDYMSK ,T.(S

sTEST IF DRIVE READY
- SKIP
SYES
SWAIT FOR 100MS

PC,GSTAT

3s
1

000372

8250..(PC)’

160220

6$DLY.(PC)0

177772

-6(PC)
.-4

177756

«22(PC)
.=20
($8RK

R1
100000

sGET DRIVE STATUS

161106

3%:

#ANYERR,T.CS

43
10011., ,ERRS
CSERHRD
10011

;DEC WAIT COUNTER
;LOOP UNTIL TIME DONE
sTEST IF ANYERR SET
:NO = SKIP
sREPORT ALL ERRORS

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES
510
511
512
513
514

515
516
517
518
519
520

021746

021750
021754
021760
021766
021770

021772
021776
021776
022002
022004
022010

521 022012

gg% 022016
524
525
526
527
528
529
g;?

022020
022024
022032
022034
022042

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

548
549 022104
550 022106

551
552
553
222

012766

005367
005067
162767
012604
012601

012600
012603
005767
001403
066716
000207

017616

000207

005067
032767
001403
016767
000207

032767
001011
005767
001006
012767
062716
000207
017616
000207

022112
022120
022126
022126

010046
016700
016767
010067
012600
000207

022130
022136
022140
022144
022146
022152
022154

012767
000402
005067
010346
016703
005723
016663

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

161204
161036
000002

161014

4
5%:

161014

161006

000000

161066
010000

172274

161050

010000

172254

161032
000001
000002

161022

(000000

160766

160764
160756

160760

000001

160770

.WORD

ERR6

MOV
MOV
TS7
BEQ
ADD
RTS

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

RTS

DEC
(LR
suB
Mov
MOV

ERRCNT
ERRSW]
#2,SSINDX
(SP)+,Ré
(SP) +,R1

SEQ 008-

sREDUCE ERROR COUNT FOR DUAL ERRORS
;CLEAR FOR ERROR RETURN
<REMOVE ENTRY FROM SUBROU(! STACK
sRESTORE REGS

sTEST IF ERROR RETURN
JYES - SKIP
sADD IN ERROR RETURN

99%:

MoV

:
:
CHOSHD:

CHOOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS
SELECTED BY SOFTWARE PARAMETER.
CLR
DESHD
;CLEAR TO HEAD 0
8IT
#HEADLM, MISWIW
TEST IF HEAD SPECIF!ED
8EQ
1$
:NO - SKIP
MOV
HEADW,DE SHD
;INSERT SPECIFIED HEAD
RTS
PC

18:

a(SP), (SP)

sSET ERROR RETURN ADDRESS

:
SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1
H
UNLESS HEAD O SPECIFICALLY SELECTED BY SOF TWARE PARAMETER.
SWAPHD: BIT
#HEADLM, MISWIW TEST IF HEAD SPECIFIED
BNE
2$
sYES -~ TAKE ABORT EXIT
TST
DESHD
sTEST IF HEAD ONE USED
BNE
23
:YES - TAKE ABORT EXIT
MOV
#1,0ESHD
sELSE SET FOR HEAD ONE
ADD
#2,(SP)
sBUMP PAST ABORT RETURN
RTS
PC
sRETURN
28:
MOV
a(SF), (SP)
;GET ABORT DESTINATION
3$:
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, NEWCYL
sPUT OLD IN NEW
MOV
(SP)+,RO
sRESTORE RO
RTS
PC

570

57
572
573
574
575
576
577
578
579

160762

160630
000002

002404

;
READ HEADERS ROUTINE.
XRDHDC: MOV
#1,1EMP4
sSET FLAG TO BYPASS REG STORAGE
BR
XRDHDG
;GO 0O IT
XROHD:
(LR
TEMP4
¢SET FLAG TO SAVE T. AND L. REGS
XRDHDG: MOV
R3,-(SP)
+STORE REGISTERS
MoV
SSINDX,R3
sGET SUBROUTINE INDEX
TST
(R3) ¢
;BUMP IT FOR NEXT ENTRY
MoV
2(SP),SUBSTK(R3) ;INSERT THIS CALL

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

580 022162
581 022170
582 022174
583 022176
586 022200
585 022202
586 022210
587 022<14
588 022216
589 022222
590 022226
591 022230
592 022232
593 022234
594 0222640
595 022242
596 022246
597 022252

598 022256

599 022262
600 022266
601 022270
602 022272
603 022276
604 022302

605 022306
022306
022312
022314
022320
022322
022326
022330

022334
606 022336
607 022342
608 022344
609 022352
610 022354
611 022360
612 022364
022364
022366
022370
022372
613 022374
614 022400
615 022404
616 022406
617 022414
618 022416
619 022422
620 022424
621 022626
622 022430
623 022434
0226434

162763
010367
010046
010146
V10446
012767
005767
001007
012703
012701
014346
005301
001375
004767
022526
005067
012701
016711

042711

052721
005021
005021
014162
014162
014162

012727
000000
016727
000000
005367
001375
005367
001367
005767
001460
032767
001035
012703
012704

104456
023441
000000
012716
012701
004767
022522
032767
001403
005067
000411
005301
001364
012704

104456

H
TEST 1 MACRO V04.00 4~AuG-82 10:30:59 PAGE 8-11

000J04
160606

002404

000002
160712

160606

003044
000004

18:

177222

2s:

160540
003034
160554

002000
000110

000004
000002
000000

3s:

000012

157576
177772

177756

160444
000001

160472

58%:

010404
011423

000030
174472
000001

160430

160374
118:

011434

SuB
MoV
MOV
MOV
MOV
MOV
ST
BNE
MoV
MoV
MOV
DEC
BNE
JSR
65%
CLR
Mov
MOV

;ADJUST T TO CALLING LOCATION
;STORE IT BA(CK

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

;CLEAR INTERRUPT FLAG
sGET ADDRESS OF LOAD REGS
;LOAD DRIVE NUMBER

#81710, (R1)

WAITUS
MOV
WORD
MoV
WORD
DEC
BNE
DEC
BNE
TST
BEQ
8IT
BNE
MOV
MOV
ERRHRD
TRAP
JWORD
WORD
.WORD
MoV
JSR
60%
8Iv
8tq
CLR
B8R
DEC
BNE

10.
#10.,(PC)¢
0
LSDLY, (PC)+
0
=-6(PC)
=4
=22(PC)
.~20
DONE
14$
W#DROYMSK,T.CS
108
#MORDY R3
#CAFDT RS
10017.,,ERRS
CSERHRD
10017
0
ERRS
#24. ,R1
PC,GSTAT

MoV
ERRHRD
TRAP

SEQ 008%

#4,SUBSTK(R3)
R3,SSINDX
RO,-(SP)
R1,-(SP)
R4 ,=(SP)
#2 ,ERRSWI
TEMP4
2$
#L.MP+2 ,R3
#6,R1
=(R3),~(SP)
R1
1$
PC,RDYCHK

8IC

8IS
CLR
CLR
MoV
MoV
MOV

;SET FOR NO ERROR RETURN
JTEST iF REGISTERS TO BE SAVED
sNO - SKIP
:SET POINTER FOR REGS
sSET _COUNT
:SAVE REGISTER
sDEC COUNT
;LOOP UNTIL ALL ARE SAVED
;CHECK DRIVE READY

sCLEAR FOR DRIVE &4 - 7 SPEC'D

#RDHEAD, (R1)+
;INSERT COMMAND
(R1)¢
sCLEAR BA
(R1)+
sCLEAR DA
=(R1) ,RLDA(R2)
;LOAD RL11 REGS
-(R1) ,RLBA(R2)
=(R1) ,RLCSR(R2)

#ORDYMSK ,T.CS
11%
ERRSWI
10%
R1
43
#CSSEC,RG
10014., ,ERRS
CSERHRD

sWAIT 1 MS FOR INTERRUPT

sTEST IF INTERRUPT FLAG SET
:NO - SKIP
;TEST IF DRIVE READY
:YES - SKIP
sSET NO READY MESSAGE
sCONDITION OF AFTER DATA XFER

sINITIALIZE WAIT COUNT
sGET STATUS
TEST IF DRIVE HAS COME READY
¢NO - SKIP
;CLEAR ERROR SWIT(CH
:SKIP
sDEC WAIT COUNT
sLOOP UNTIL TIME DONE
sSET CONDITION AFTER S SECONDS

(ZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

022436
022440
022442
624 022444
625 022446
626 022452
627 022454
022456
022656
022460
022462
628 022464
629 022466
630 0226472
631 022476
632 022502
633 022504
634 022510
635 022512
022512
022514
022516
022520
636 022522
637 022526
638 022532
639 022534
640 022540
641 022544
642 022546
643 022550
644 022552
645 022560
646 022562
647 022564
648 022566
649 022570
650 022574
651 022576
652 022602
653 022606
654 022610
655
731
732
733
734 022612
735 022616
736 022620
737 022624
738 022626
739 022632
740 022636
741 022640
742 022642
763 022644
744 22646

TEST

1 MACRO v04.00 4-AuG-82 10:30:59 PAGE

023436
000000

012716
000426
005767
100005

160372

108:

012603

003054
000006
000006

12%:

174126

14%:

162767

012604
012601
012600
012603
005767
001403
066716
000207
017616
000207

.WORD
.WORD
.WORD
8R
MOV
Mov
MOV

B8R
JSR

MOV

ERRHRD

60$:
65%:

160270
160374

003034
000004

000002

20$:
160222

22%:

TRAP
-WORD
.WORD
.WORD

CLR
TST

BNE

MOV
MOV
MOV

DEC
BNE
Sus
MOV

MOV

mov
MOV

160222

157

BEQ

160214

SEQ 008/

JEXLT

;CHECK FOR ANY ERRORS
JNO - SKIP
JREPORT ALL ERRORS

TRAP

104456

023437
000000
012464
005067
005767
001007
012703
012701
012623
005301
001375

.WORD
.WORD
.WORD
8R
TST
8PL

ERRHRL

104456

023440
000000
012766
000416
012701
016221
016221
000411
004767

1.7

8-12

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

65%

PC,WALITIN

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

;GET POINTER
;STORE LAST TWwO HEADER WORDS
JEXIT
sWAIT FOR INTERRUPT
sGET RESULTS
:REPORT

10015

0
ERRT

ERRSWI
TEMP4

(SP)+, (R3)+
R1

208

#2.SSINDX
(" )+ R4
(JLP)+ R

{SP)e,RO
(SP)+.R3

ERRSW]
99¢

sCLEAR FOR ERROR RETURN

sTEST IF REGISTERS WERE SAVED

:NO - SK]P
sSET POINTER TO RESTORE REGS
:SET_COUNT

:RESTORE REGISTER

sDEC COUNT

:LOOP UNTIL ALL ARE RESTORED
sREMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGS

JTEST IF ERROR RETURN
JYES - SKIP

000000

99%:

ADD
RTS
MOV

016705

160234

POSHWI:

:gSIYlON HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
gl?RY FOR POSITION HD BIT IN WD 1
HDWRD1,R

016705
010146
042705
012701
006205
005301
001375
012601
000207

160226

POSHSB: MOV
POSHDO: MOV

000402

177677

000006

1$:

RTS

B8R

8IC
Mov
ASR
DEC

BNE

MOV
RTS

ERRSW], (SP)
PC
8(SP), (SP)
PC

POSHDO

T.MP RS

R1,-(SP)

#*CHSSTAT,RS
#6.R%
RS
R1
1%
(SP)+,R1
PC

:ADD

IN ERROR RETURN

sSET ERROR RETURN ADDRESS

:START FOR
:STORE R1
sCLEAR ALL
:SET SHIFT
sSHIFT FOR

;RESTORE R1
;RETURN

POSITION WD BIT IN MP
BUT HEAD SEL BIT
COUNT
RIGHT JUSTIFY

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

TEST

1 MACRO VvO04. 00 4~AUG-82 10:30:59 PAGE 8-13

7
SEQ 0087

245

746
7467

748
749
750 022650
751 022652
752 022656
753 022660
754 022666
755 022674
756 022700
757 022702
758 022704
759 022706
760
761 022714

000002
000004
160102

002404
002404

000002

160102

022714
022716
022722
022724
022732

762
763
764
765
766 022734
767 022736

001415

022740
022744
022746
022752

012727
000000
016727
000000

022760
022762
022766
769 022770
770 022772

001375
005367
001367
000751
012703

010404

104456
023444
000000
012600
012701

000030

768 022740

022754

022776
022776
023000
023002
023004
772 023006
”

773
774 023012

023012
775 023014
776 023020
777 023022
778 023030
779 023032
023050

023076

RUYWAIT:

160124

174154

000001

005367

104422

004767
023156
032767
001040
012727
000000
016727
000000
005367
001375
005367
001367

160112

WAIT FOR READY ROUTINE. DURATION OF WAIT PASSED TO THE ROUTINE
FROM THE CALLING ROUTINE IN R1.
MOV
TST
MOV
Sus
MOV
MoV
MOV
MOV
MoV

BREAK
TRAP
JSR
108

BIT

BNE
DEC
BEQ
WAITUS

000001

MOV

. WORD

157144

MOV

SSINDX,R3
(R3)+

RO,=(SP)
R1,-(SP)
R4 ,=(SP)

#2 ,ERRSWI

CSBRK

#DRDYMSK,T.CS

sCHECK IF READY

93
R1
7$
1
81.(PC)0

#MORDY ,R3
10020., ,ERR3
CSERHRD
80020

ERR3

#26. /1

CSBRK

PC,GSTAT

160014

sYES = SKIP

;DEC WAIT COUNT
JSKIP IF O

5$DLV,(PC)¢

=22(PC)
.~20
5%

000001

JALLOW A *C

;GET DRIVE STATUS

177756

174056

;SET FOR NO ERROR RETURN

PC,GSTAT

'6£PC)

6$:

;STORE R3

;GET SUBROUTINE [NDEX

JBUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
sADJUST IT TO CALLING LOGTATION
R3,SSINDX
:STORE 1T BACK

177772

78:

R3,-(SP)

#DRDYMSK,T.CS

8s
1

000372

8250.,(PC)0

157034

bSDLY.(PC)o

177772

-6(P(C)

177756

=22(P(C)

=20

;SET NAME MESSAGE PTR
sREPORT READY ERROR

JINITIALIZE WAIT COUNT

SALLOW A “C

;GET DRIVE STATUS
;TEST IF DRIVE READY

JYES - SKIP
JWALIT 100 MS

b —

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

d o e e

DEC

BNE

011434

MOV

ERRHRD
TRAP

001406

0o 0o 0o 0o00 00 0o O 0o O 0o OO Oo OOCo oo
NONLRLRLNY NN —d b el ad b e e el b
NP
WN =2 OO 00 NONN
NN =

023222
023224
023230
810 023232
023240
023246
023252
023254
023256
023262
023264
023270
023274
023276
023300
023302
023306
023312

023320
023322
827 023324

157706

8$:

104456

023446
000000
012766
005367
005067
162767

023220

100000

012604
012601
012600
012603
005767
001403
066716
000207
017616
000207

160002

157634
000002

157604

000000

157552

162763

000002
000004

010367
010046
010546
004767
023312
016703
012705
006203
005305
001375
042703
010367
162767

012605
012600
012603

157612 98:

157612

010346
016703

005723
016663

.WORD
.WORD
. WORD
B8R
8IT
BEQ
ERRHRD
TRAP

99%:

CY®e ve v

b i
b

787

b and ek

784
785
786

783

BN B 85 8 B WNANNINIPNINI
N —d b b (=4
NN ONOONSNOO N NO o

780
781
782

jelolelololelolelolololole] =]
NLaS AN a1 S ,S T NT V1 N1 NT VT V]Y] o
NN N L N AN AN AN AN AN AN AN NN W

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

157530

ETPOS

002404
002404

176656

157562

157462

65%:

63
#CSSEC,RG
10021.
., ,ERRS
CSERHRD
10021
0
ERRS
1%

#ANYERR,T.CS

108

10022.,.ERR6

CSERHRD
10022
0
ERRG
ERRCNT
ERRSWI
#2,SSINDX
(SP)+ R4
(SP)+,R1
(SP)+ RO
(SP)+,R3
ERRSWI
99%
ERRSWI, (SP)
PC

8(sP), (SP)

;DEC WAIT COUNT

;LOOP UNTIL TIME DONE
;SET CONDITION AFTER 5 SECDS

JEXIT

JTEST IF ANY ERROR SET
;NO - SkIP
;REPOR T ALL ERRORS

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

JRESTORE R3
sTEST IF ERROR RETURN
JYES - SKIP
;ADD IN ERROR RETURN
sSET ERRDR RETURN ADDRESS

GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER
(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
NUHBER IN_CURCYL.
HOV
1ST
MOV
sus
MOV
MOV
MOV
JSR

65%

000007

177000
157572
000002

+WORD
+WORD
.WORD
DEC
CLR
SuB
MOV
MOV
MOV
MOV
TST
8EQ
ADD
RTS
MoV
RTS

($BRK

SEQ 008«

MOV
MOV
ASR
DEC
BNE

BIC
MoV
sus

MoV
MOv
MOV

R3,~(SP)
;STORE REGISTERS
SSINDI R3
;GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) s INSERT THIS CALL
#4,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION

R3.SSINDX

sSTORE IT BACK

PC,XRDHD

+D0 READ HEADER

HDWRD1,R3
#7 RS

;GET HEADER WORD
sSET SHIFT COUNT

RS
43
#177000,R3
R3,CURZ VL

sSTORE AS CURRENT CYLINDER

RO,-(SP)
RS,~(SP)

R3’

#2,SSINDX
(SP)' RS
(SP)+,R0O

(SP)+.R3

sSHIFT TO RIGHT JUSTIFY

<REMOVE ENTRY FROM SUBROUT STA(K
sRESTORE REGISTERS

CZRLIDO RLO1/02 ORIVE

GLOBAL

SUBROUTINES

828
829
830
831
832
833
834
863
864
865
866
867 023350
868 023352
869 023356
870 023360
871 023366
872 023374
873 023400
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905

023620

005767
001403
066716
000207
017616
000207

TEST

MACRO V04.00 4~aLG-82 10:30:59 PAGE

157464

TST

BEQ
ADD

157456

99%:

000000

RTS
MOV
RTS

8-15

ERRSWI]
998

SEC 008¢

;TEST IF ERROR RETURN

JYES = SKIP

g?RSUI,(SP)

;ADD

2éSP).(SP)

:SET ERROR RETURN ADDRESS

?SA?BG%% HEADERS ROUTINE.

010346
016703
005723
016663
162763
010367
010046
010146

010446

012767
012701
052767
012703
016704
062704
012767
056767
042767
005067
005067
005767
001403
052767
016762
016762
032762
001003
004767
023656
016762
012700
032762
001016
005300
001372
004767
004767
012603

RDALHD: Mov

157 .24

MOV

000002
000004

002404
002404

000002
000050

157402

100000

003764

TST

MoV

sus

MOV
MOV
MOV
MOV
MoV
MOV

157356

BIS

Mov
MOV

157370
000006
000010
157356
002000
157346
157344
157412

000020
157324
157314
000200

ADD

MOV

8IS
8IC

CLR

157330

000004
000002
000000

3s:

175722
157266

077777
000200

000000

6$:

000000

78:

173010
173036

104456

023451
000C00
012464
005067
000417
005767

CLR
TST
8EQ
8IS
MOV
MOV
BIT
BNE

JSR
65%

MoV
MoV

8IT
BNE
DEC
BNE
JSR
JSR
MoV
ERRHRD
TRAP

157200
157220

8%:

.WORD
.WORD
. WORD
CLR
BR
TST

[N ERROR RETURN

40 HEADERS ARE READ AND STORED

R3,-(SP)

;STORE REGISTERS

(R3)+

;BUMP IT FOR NEXT ENTRY

SSINDX,R3

;GET SUBROUTINE INDEX

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

#4,SUBSTK(R3)
R3.SSINDX
RO.-(SP)
R1.=(S5P)
Ré&,=(SP)
#2 ERRSWI

;ADJUST IT TO CALLING LOCATION
SSTORE IT BACK

#HDR4O,OPFLAG
#1BUFF .R3
RLBAS, R4
#RLMP R4
#10,L.CS
RLDRV .L.CS

:SET 40 HDR OP FLAG
*SET POINTER TO STORE HDRS
:GET BASE ADDRESS
‘MAKE 1T POINT TO MP REG
*LOAD FOR READ HEADER, NO INTERRUPT
*INSERT DRIVE NUMBER

;SET FOR NO ERROR RETURN

#60. R

$SET HEADER CGUNT

#81T16.0.Cs

*CLEAR FOR DRIVE & =~ 7 SPEC'D

L.BA
L.DA
DESHD

#HDSEL ,L .DA

:CLEAR BA
:CLEAR DA
STEST IF HEAD 0

SYES - SKIP

sELSE

INSERT HEAD 0

L.DA,RLDA(R2)
L.BA,RLBA(R2)

;LOAD RLDA REG
:LOAD RLBA

SYES = SKIP

L.CS,RLCS(R2)

;LOAD RLCS REG

#CRDYMSK ,RLCS (R2)
PC,RDYCHK

#777%7.R0

*ELSE CHECK READY

*SET COUNT FOR WAIT

#CRDYMSK,RLCS(R2)

8s
RO
7$

PC,READRL
PCIWAITIN

(SP)+,R3
10025
... ERR1
CSERHRD
10025
0
ERR1
gggsut
1.CS

:TEST IF CONTROLLER READY

;CHECK THAT OPERATION COMPLETED

;YES = SKIP
:DEC COUNT
‘SKIP IF NOT YET 0

*ELSE GET ALL REGISTERS
‘ELSE WAIT FOR TIMEQUT

SGET RESULT MESSAGE POINTER

;CLEAR FOR ERROR RETURN
:TEST

FOR ANY ERRORS

CZRLIDO RLO1/02 DRIVE

GLOBAL SUBROUTINES

909 023624
910 023626

100007

023626
023630
023632
023634

104456
023452
000000
012766

913 023644

011423

911 023636
912 023642

914
915
916
917
918
919
920
921

023646
023650
023652
023654
023656
023664
023666
023670

922 023672
923 023674

924
975
9.5
927
928
929

023700
023702
023706
023710
023714

TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 8-16

005067
000405

011423
011423
005301
001332
162767
012604
012601
012600

012603
005767

001403
066716
000207
017616
000207

BPL
ERRHRD

128:

000002

023716
023720
023724
023726
02373

024002
024006
024012
024014

024014
024020
024026
024030
024034

010446
005767
001433
012704

157056

99%:

010253
011753
000002

(016446
012746
012746
010600
104414
062706

002404
012126
000002

012746
016746
012746
012746
010600

006365
156766
011556
000003

062704
020467
003761

.
:
RPTOP:

000002

012746
012746
012746
010600
104414
062706

000006

:NO = SKIP

CLR
BR

ERRSWI
65%

;CLEAR FCR ERROR RETURN

MoV
MOV
DEC
BNE
sus
MOV
MOV
MOV

(R4),(R3)+
(RG),(R3)+
R1
6$
#2,SSINDX
(SP)+ R4
(SP)+,R1
(SP)+,RO

BEQ
ADD
RTS
MOV
RTS

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

MOV

MoV
TST

023732
023736
023742
023746
023750
023752
1167 023756
023756
023762
023766
023772
023774
023776

1168
1169
1170
1171

658:

157110

1159

1160
1161
1162
1163
1164
1165
1166

157116

000000

128
10026., ,ERR6

TRAP
.WORD
.WORD
.WORD

157154

3s:

000006

000002
156770
1$:

SEQ 009C

CSERHRD
10026
0
ERR6

(RG) ,(R3)+

(SP)+,R3
ERRSWI

;STORE HEADER WORDS
;DEC HEADER COUNT
sREMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

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

;SET ERROR RETURN ADDRESS

REPORT OPERATION ROUTINE.

PRINTS SUBROUTINE

TRACE SEQUENCE AND

OPERATION BEING PERFORMED PORTION OF ALL
ERROR MESSAGES.
MOV
R4,~(SP)
IST
SSINDX
sTEST SUBROUTINE INDEX 0
8EQ
1$
;SKIP IF O
MoV
#2,R4
sSET INDEXER TO FIRST ENTRY
PRINTB
#FMT9, #SEQMES
;PRINT ''SUBROUTINE CALL SEQ'"

MoV
MoV
MOV
MoV
TRAP
ADD
PRINTB
MOV
MoV
MOV
MOV
TRAP
ADD
ADD
CMP
BLE
PRINTB

MOV
MoV
MoV
Mov
Mov

#SEQMES,
- (SP)
#FNT9,-(SP)
#2,~(SP)
SP,RO
CSPNTB
#6,5P
#FMT16,SUBSTK(R4)
SUBSTK(R4) ,=-(SP)
NFMT16,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP

;PRINT CALLING LCCATION

#2,R4
sBUMP INDEX
R4, SSINDX
sCHECK IF ALL PRINTED
3s
:LOOP IF NOT ALL PRINTED YET
#FMT4 ERHEAD ,#TSTLAB
sPRINT ERROR HEADER

#TSTLAB,=(SP)
ERHEAD,=(SP)
#EMTS ,~(SP)
#3,-(SP)
SP,RO

b
b

NN = O DN

;—l—a_a_a_o_l_a—a_a_a.a_a
00000000
N~ NNN~N

b ek

024036
024040
026044
024052

024056
024062
024066
024670
0246076
024102
024104
024112
024116
024120
024126
024126
024132
024136

000010
030000
156756
177761
000006

TRAP

ADD

156732

010000
000012

156706

020000
000014

156672

020000

156656

8IC

MOV

2s:

20$:
22%:

800004
000010

156646

007777

156574

156566
200020
000001

016146

010600
104414

062706
032767
001415
012701

48:

PRINTB
MOV
MOV
MoV
MOV
MoV
TRAP
ADD
CMP
BNE
BIT

MOV
B8R

8IT
8EQ

MOV
MOV

BIT
BNE

TST
ASR

006204
000772

012746
012746

8IC
cmp
BNE
BIS
CMP
BNE
81S
CMP
BNE
BIS

BEQ

000016

NO NS W=

b
D

b
b
d

b b

d e
b

b ad ok

b
b md

b e
e cd

b md el md

7
N_
TEST 1 MACRO v04.0G0 4~AUG-82 10:30:59 PAGE 8-17

002224
005414
011534
000003

024164

024172
024174
024200
024202
024210
024212
024216
024222
0246226
024230
024232
024234
024236
024236
024242
024246
024252
024254
024256
1201 024262
1202 024270
1203 024272
1204 0246276
024276
024302
024306
024312
024314
024316
1205 024322
1206 024324
1207 024332
) =

104414

062706
042767
016701
042701
022701
001003
052767
022701
001003
052767
022701
001003
052767

024142
024146
024150
024152
024156
024162

b e

CZRLIDO RLO1/02 ORIVE
GLOBAL SUBROUTINES

6%:

002224
011550
000002

000006
100000

156514

000050

8s:
9%:

002224
C1i550
00002
IN0006

072000

156452

108
:

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD

8IT
BEQ
MOV

PRINTB
Mov
MOV
MOV
Mov
TRAP
ADD
BR
BIT
8EQ

SEQ 009°

CSPNTB

#10,SP
#SEEKOP 'RORWOP ,OPFLAG
:CLEAR SK & RD Ok WRT FLAG
L.CS,R1
:GET COMMAND EXECUTED

#177041 1
#6,R1

g 3

;TEST

*STRIP ALL BUT FUNCTION CODE
SEEK OPERATION

JNO - SKIP

#SEEKOP,OPFLAG
#12,R1

:ELSE SET SEEK FLAG
:TEST IF WRITE

#RORWOP,OPFLAG
#14,R1

;SET RD OR WRT FLAG
:TEST IF READ

#RORWOP ,OPFLAG

;SET RD OR WRT FLAG

208

22%

‘N0 ~ SKIP

:NO - SKIP

N#FMT1,#MOPER,OPMSGS(R1)
OPMSGS(R1) ,=(SP)

;PRINT OPERATION

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

SP,RO
CSPNTB

#10,SP

R1,#44

sCHECK IF GET STATUS

#DRSET,L.DA

JTEST

43
316,R1

:NO - SKIP

IF RESET

INCLUDED

JNO - SKIP
;SET TO PRINT WITH RESET

#COMPOP,OPFLAG

;TEST IF ANY OTHER OPERATION

OPFLAG,.R4

sSET UP TO DETERMINE WHICH ONE

#20,R1
#BIT00,R4
6%
(R1)+
R4

:NO - SK]P

:PRESET THE POINTER
;CHECK THE BIT
JIF SET - SKIP
:BUMP POINTER

5%
#FMT2 ,0PMSGS(R1)
OPMSGS(R1),=-(SP)
#EMT2,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,5P
#HDR4O,OPFLAG
;TEST IF 40 HEADER OPERATION
1C$
‘N0 - SKIP
#50,R1
‘ELSE PRINT IT
#FMT2,0PMSGS(R1)
OPMSGS
(R1) , - (SP)
#FMT2,
- (SP)

SP.RO
CSPNTB

#6,5P

15§

;SKIP

15§

INO - SKIP

#SEEKOP,OPFLAG

:TEST

SEEK

“ZRLID0 RL0'/02 DRIVE
GLOBAL SUBROUTINES
1208 224334

026356
024360
026366
024370
024376
0264400
024404
026406
024410

016746
012746
0167646
012746
012746
012746
010600
104414
062706
032767
001424

020000

0244624
026430
024434
0064440
02444b
024450
026454
024460

016746
012746
016746
012746
016746
012746
012746
012746

156464
010220
156452
010214
156434
010225
012323
000007

024464
024466
024470
1212 024474
1213 024500

1214 024502
1215
1216

024504
024506
024510

024512
024516
1225 024520
024520
024522
024526

024532

024536
024540
024542

1226 024546

024552
024554
024560
024564
024566
024572
024574

012746

010600
104414
062706
004767
012604

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

016746
012746
016746

1209 024414
1210 024422
1211 024424

1227
1228
1229
1230
1231
1232
1233

0264334
026340
024344

026350

1217
1218
1219
1220
1221
1222
1223
1224

TEST

PRINTB

156552
070274
156540

010207

000024

000020
000446

156362

158:

000207

010146
010346
010446

012701
012103

011146
012746
012746

012746

010600
104414
062706

021127

001453
012704
022127
001002
012704
005303
001442

DESHD,-(SP)
#HDWD
. = (SP)
DESSGN,=-(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

DESDIF .-(SP)
#DIFWD
.= (SP)
OLDCYL ,=(SP)
#FRMWD ,-(SP)
#FMT13, -(SP)
#11,-(5P)
SP,RO
CSPNTB
#24,SP

#RORWOP,OPFLAG
:TEST IF READ OR WRITE SET
17¢
INO - SKIP
#FMT22,#CYLWD,CURCYL
,#HDWD ,DESHD , #SE CWD , DESSEC

MOV
TRAP
ADD
JSR
MOV

SP,RO
CSPNTB
#20,SP
PC.CLRPARM
(SPY+,R4

RTS

003062

#SGNWD
.~ (SP)

BIT
BEQ
PRINTB

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

17%:

SEQ 009¢

#FMT13 #FRMWOD,OLDCYL ,#DIFWD,DESDIF ,#SGNWD ,DESSGN, #HDWD , DE SHD

MOV
MOV
MOV

MOV

156526
010201
156510
010232
0D11774
000011

DESSEC,~(SP)
#SECWD,
= (SP)
DESHD,
= (SP)
#HDWD
, = (SP)
CURCYL ,=(SP)
#CYLWD.
- (SP)
#FMT22,-(SP)
87.-(sP)

;CLEAR PARAM TABLE

SRESTORE R4

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

005423
011561

MOV
MOV
PRINTB
MOV
MOV
MOV

#RESPARM,R1
*GET START OF PARAM
(R1)+,R3
:GET NUMBER OF PARAM
#FMT1.1,#MRSLT,
(R1)
;PRINT NAME
(R1),=(SP)
MMRSLT,-(SP)
#ERTT.1,-(SP)

000010

MOV
TRAP
ADD

SP.RO
CSPNTB
#10,5P

BEQ
MOV
CMP
BNE
MOV
DEC
BEQ

6
SEMT11,RG
(R1)+,#MCYLOC
3s
FEMTI2,R4
R3
68

000003

MoV

011057

011760
011052
011766

3s:

#3,-(SP}

(R15,#MNDRST

;TEST IF MESSAGE IS NO DRV STATUS
*YES - SKIP REST OF REPORT
;PRESET FOR FORMAT 11
:CHECK IF REFQRTING CYLINDER LOC
‘NO = SKIP
SELSE CHANGE TO FORMAT 12
SDEC PARAM COUNT
SIF 0 - EXIT

024630
024632
024636
024640
024642
024646
024652
024654
024654
024656
024662
024666
024672
024674
024676
024702
024704
024706
024710

[N
ors
oo

NS ONOMNN

OO addocd b

010446
012746
010600
104414

062706
162703

001413
012146

012746
012746
012746

PRINT8
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTB
MoV
MOV
MOV
MOV
MOV
TRAP
ADD

011300
000003
000010

011304

000003
000010
000002

Sus
BEQ
PRINTB
MOV

MOV
MOV
MOV

Mov

000010

6%:

RPTREM:
156113
006053
156076
006042
011567
000005

024734
024740

b
b
ol wd bl cnd
d
ol

ONININNINLNLNINY

[olelelelalelele
]

024744
024746
024750

024754
024760
024764
024770
024774
025000
025004
025010
025014

MACRO v04.00 4~AUG-82 10:30:59 PAGE 8-19

146
12746

024712
024712
024714
024720
024724
024730

1249
1250 024754

414
706

[=lele)
[ T )
O =t
QWA
Ow—
NS
—

[V1.3

—t
b

[aS 1AV 1,V ]
W NN

024600
024604
024606
024612
024614
024616
1235 024622
024622
024624

TEST

-—

024576

1236 024576

O—=0000O0

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

000007

TRAP
ADD
MOV
MoV
MOV
RTS

R4,

#RESES, (R1)+

(Ri)+, =(5P)
#RESES,-(sP)

SEQ 0093
;REPORT

IS VALUE

JREPORT

SB VALUE

RG,-(SP)

#3.-(SP)
SP.RO
CSPNTB
#10,SP
RG ,#RESEG, (R1)+
(R1)+,=(SP)
#RESEL,
- (SP)
R&,=(SP)
#3.-(SP)

SP.RO
CSPNTB

#10,SP

#2,.R3

;DEC_PARAM COUNT
IF 0 = EXIT

#FMT1,#RESES,
(R1)+
(R1)+.=(SP)

;REPORT CONDITIOM

#RESES
.- (SP)
#FATT,=(SP)

#3,-($P)
SP.RO
CSPNTB

#10,SP
(SP)+,R4
(SP)+ RS
R}
(3P)+

;RESTORE REGS

;RETURN

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

8ls8
MoV
MOV

RLORV+1, (SP)

#DRVNAN,
- (SP)

RLBAS,=(SP)
- (SP)
#BASADD,
#ENTS,=(SP)
#5,~(SP)
SP,RO
TRAP
CSPNTB
#14,5P
ADD
REPORT RL11 REGISTERS

MOV
MOV
MOV
MOV

PRINTB
MoV
MOV
MOV
MOV
MoV
MoV
MOV
MoV
MOV

#FMTE,#CSNAM,
FDANAM, #BANAM, #MPNAM, #CYLWD , #HOWD
#HDWD
, - (5P)
#CYLWD,
= (SP)
AMPNAN,
- (SP)

(SP)
. = AM
SBAN
#DANAM
. - (SP)
#CSNAM.
= (SP)
#FAT6,=(SP)

#7,-($P)
SP_RO

CZRLIDO RLO1/02 DRIVE
GLOBAL SUBROUTINES

1251

025016
025020
025024

025024
025030
025034
025040

106414

000020

016746

156012
156002
156000
155770
006144

ek
nch
e
b o
b
b ol
e
b
e
—

LA DAY [aSTaS LS LS LN T N1 ST NT. N1, V], V)
COCO0B 00 N NN NNNNYNWVY
WA 2 OO 00 NON N
() —

TRAP

ADD

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTB

01721

025054
025060
025062
025064
1252 025070
025070

1258 025146
1259 025150
1260 025154
1261 025160
1262 025162
1263 025164
1264 025166
1265 025172
1266 025174
1267
1268 025176
1269
1270

D
8
MACRO v04.00 4-AUG-82 10:30:59 PAGE 8-20

062706

025044
025050

000006

000016
156016

MOV
MoV

OOt
b
b b
O = O WVIVIWAWWA
O = O VNI
OON—= NN
- NN
W
O —d &8

025074
025100
025104
025110
025114
025120
025124
025130
025134
025136
025140
025144

TEST 1

6004

746

MOV
MOV
MOV

062706
000207

010546

012701
012705
005021
005305
001375
012701
012605
000207

Mov
MOV
MOV
MOV
MoV
TRAP
ADD
RTS

000022

003062
000005

Sea COS<

C$PNTB
#20,5P
W#FMT8 #LAB1,L.CS,L.DA,L.BA,L.MP
L.MP,~(SP)

L.BA.=(SP)
L.DA.=(SP)
L.CS.=(SP)

#LABY,-(5P)
#FMT8
. - (SP)
#6,-(SP)

CSPNTB

n6,5P

#EMT7 #LAB2,T.CS,T.DA,T.BA,T.MP,CURCYL
,DESHD
D
.~ (SP)
DESH
= (SP)
CURCYL
T.MP,=(SP)
T.8A,~(SP)
T.0A.~(SP)
1.€S.~(SP)

#LABZ,~(SP)
#FMT7,=(SP)
#10,-(SP)
SP,RO
CSPNTB
#22,SP

CLEAR PARAMETER BLOCK FOR REPORTING
RS,~(SP)
:STORE RS
#RESPARM,
R
MOV
:GET ADDRESS OF BLOCK
#5,RS
MOV
sSET COUNT

CLRPARM: MOV
2%:

003062

CLR
DEC
BNE
MOV
MoV
RTS

(RY)+

#RESPARM,R1
(SP)+ RS
PC

;CLEAR WORD

:DEC COUNT
sLOOP UNTIL O

cRESET POINTER
:RESTORE RS

ENDMOD

LTITLE

CZRLIDO RLO1/02 DRIVE TEST 1

sDISK STATE FUNCTIONS

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

0
3

L OA D ST ATE
) Pl N UP

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

GLOBAL

1284
1285
1286

1287

1288
1289

1290
1291
1292

SEQ 0095

SUBROUTINES

:
:
:

STAIE
STATE
STATE

¢
3
4

BRUSH CYCLE
LOAD HEADS
SEEK

;
:

STATE
STATE

6
7

UNLOAD HEADS
SPIN DOWN

STATE

LOCK 0N

CZRLIDO RLO1/02 DRIVE
SUBROUTINES

b
b amd
i
b
ind wad
-

NOWVES
W —=O000

OV
I —

GLOBAL

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

025176

025176
025176
025176
025202
025204
025210
025212

025220
025220
025222

025226
025232
025236
025242
025246
025252
025256
025262
025264

BGNMOD

HRDWTST

.SBTTL

«TEST 1

(PART 1)

;TESTON

BGNTST

T1::

JTEST THAT UNLOAD,

005767
001124
005767

167116

012767

006373

100121

005046
156716
012746
015746
012746
012746
012746
012746
012746
010600
104417

156156

TST

PASNUM

TST
8PL

MISWIW
65%

BNE
155572

2%:

MOV

155605

011442

000007

#MISTST ERHEAD

19 025272

005067

157066

CLR
GMAN]IL
TRAP
BR
.WORD
.WORD
.WORD
+WORD

OBUFF

171504

1%:

000040

155512

010562

104456
000145
000000

012600
032767
001006
012703

BIT
8NE
MOV
ERRHRD

#COSTAY, T MP

:CHECK

.WORD

010575

7%:

T$CODE

?PROOZ

JTEST RESPONSE YES
JYES - SKIP
JINITIALIZE TEST

.WORD

155466

100008
OBUFF

OBUFF
2%
PC,TISTINT

TRAP

000010

;CLEAR FOR RESPONSE

OPRO02,0BUFF, 1,NO
CSGMAN

.WORD
BIT
BNE
MOV

ERRHRD

PC.GSTATR

7$
#MCOSTA,R3

101., ,ERR3

:GO GET STATUS WITH RESET
IF COVER OPEN SET

;YES - SKIP
sSET NAME POINTER

CSERHRD
101
0

ERR3

#BHSTAY, T mP

9%
#MBHSTA,R3

;TEST

AND

,RLBAS,#DRVNAM, <B ,RLDRV+1>

TST
BEQ
JSR
JSR

65%

COVR OPN,

CSPNTF

#20,5P

171516

LOAD ERR HEADER
SS?QPIcggg DRV IS UNLDED.,

SP RO

ADD

100008
:

:CHECK IF MANUAL INTERVENTION
«NO = EXIT TEST

MOV
MOV
MOV
MOV
MOV

TRAP

157046

FIRST PASS

RLDRV+1, (SP)
#ORVNAM,
= (SP)
RLBAS,
= (SP)
#BASADD
, = (SP)
#OPR1A,~(SP)
#OPR1,=(SP)
SEMTOP1,~(SP)
#7,-(SP)

000020

005767
001735
004767
004767
025454
032767
001006
012703

SEXIT IF NO

022;991L#OPR1,#0PR1A, #BASADD

MoV

104443
000404
004364
000120
007470
000001

sCHECK

PRINTF

CLR
8iIs8
MOV
MOV

006053
155570
006042
010135
007540

COVER OPEN AND WRITE PROTECT

JIN THE PROPER STATE,

65%

062706

20 025276
025276
025300
025302
025304
025306
025310
025312
21 025312
22 025316
23 025320
24 025324
25 025330
26 025332
27 025340
28 025342
29 025346

SEQ 0096

BASIC INTERFACE

025266

IF BRUSHES HOME

JYES - SKIP
;SET POINTER FOR BRUSH HOME ERROR

START

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04,00 4-AUG=82 10:30:59 PAGE 9-1
«TEST 1
BASIC INTERFACE (PART 1)

025372
025374
025376
025400
34 025402
35 025410
36 025412
37 025416
025416
025420
025422
025424
38 025426
39 025432
40 025434
41 025436

025436
025440

025442
42
43
44
45

025444

025446
025452
025454
025454

025454
" 025454

104456
000146
000000
012600
032767
001006
012703

104456
000147
000000
012600
005767
001405

020000

155442

9%:

010610

155426

11%:

005003

104456
000150
000000
013666
004767
025454

171374

15%:
658:
ENDTST

L10024:

‘8

.SBTTL

51 025456
025456
52
53 025456
54 025462
55 025464

BGNTST

S6 025470
gg 025472
59 025500
60 025500
025500
025502
025506

025512
025516
025522

025526
025532
025536
025542
025544
025546
61 025552
62 025556
025556

155676
166636

104443

.WORD

JSR
658

PC.GSTATR

TRAP

CSETST

006373

155325
006053
155310
006042
010135
007616
011442
000007
000020
156606

.WORD

155312

SEQ 0097

JTEST IF WRITE LOCK SET
:YES = SKIP
JSET NAME POINTER

JTEST IF STATE 2ERO
JYES =~ SK]P
JSET STATE EXPECTED

CSERHRD
104

ERR7

«TEST 2

;DO DRIVE RESEY

BASIC INTERFACE

(PART 2)

sTEST 2

T2::
JVERITY THAT COVER CPEN AND WRITE PROTECT wWORK.
;TESY IF PASS O
:NO ~ SKIP
JTEST IF MANUAL INTERVENTION

TST
BNE
TST

PASNUM
65%
MISWIW

PRINTF
CLR
BIS8
MOV

sPROMPT CLOSE COVER AND RESET WRITE LOCK.
#FATOP1,#0PR2,#0PR1A,#BASADD
,RLBAS, #DRVNAM,<B ,RLDRV+1>
-(SP)
RLDRV+1, (SP)
#DRVYNAM,
- (SP)

MOV
MOV

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

B8PL
MOV
2$:

005046
156716
012746
016746
012746
012746
012746
012746
012746
010600
104417
062706
005067

CSERHRD
102
0
ERR3
SULSTAY, T .MP
11%
#MWLSTA,R3
103.,.ERR3
CSERHRD
103
O
ERR3
T.STAT
15$
R3
104., ,ERR?

TRAP
.WORD

104401

005767
001077
005767
100074
012767

TRAP
.WORD
.WORD
.WORD
BI7
BNE
MOV
ERRHRD
TRAP
.WORD
WORD
.WORD
TST
BEQ
(LR
ERRHRD

MOV

MOV
MOV
MOV
MOV
TRAP
ADD
CLR
GMANIL
TRAP

659
#MISTST ERHEAD

JNO - SKIP
;SET ERROR HEADER

RLBAS ,~(SP)

#OPR2 ,~(SP)
#EMTOPT,=(SP)
#7,-(SP)
SP,RO
CSPNTF
#20,SP
OBUF F
:CLEAR FOR RESPONSE
OPROOZ2.GBUFF,1,NO
CSGMAN

ONOoONSNO

jolelelolalels)
NN
N
VIWANAWIAWL
el L
IV IV IV IV
NN NN

CZRLIDO RLO1/02 DRIVE
*TEST 2
BASIC

TEST

INTERFACE

005767
C01740

156566

025600
025604
025610
025612

004767
004767
025662
032767
001406
012703

171224
171236

70 025620

71 025622
72 025626

025626

025630

73
74
75
76
77

025636
025644
025646
025652

032767
001406

025654
025656
025660

000312
000000
012532

025662
025662

104401

025700
025702

104432

92 025704

93
94
95
96

025710
025714
025716
025722

97 025724

98 025724
025724
025726

002440
004767
004767
030342
005767
001426

JTEST IF RESPONSE

JSR
JSR

PC,TSTINY
PC,GSTATR

JINITIALIZE TEST
JGET STATUS WITH RESET

8IT
8EQ

#COSTAT, T _MP

JTEST

TRAP
.WORD
.WORD
.WORD

020000

155206

:
9%

010610

BIT
BEQ

MOV

ERRHRD
TRAP

.WORD
.WORD
.WORD

" TRAP
LSBTTL
BGNTST

005767
001003
005767
100402

OBUF F

ERRHRD

104456

87 025664
88 025670
89 025672

TST

MOV

012532

012703

100008
OBUFF
T$CODE
?PROOZ

65%

155232

010562

84 025664
025664

90 025676
91 025700

1$:

155470

1%:

171120
171132

2%:

155136

3s:
155101

BNE
TST
BMI
EXIT

TRAP
.WORD

JSR
JSR
1365%
TST
BEQ
PRINTF

CLR
81s8

:NO - SKIP

9s
#MCOSTA,R3
201,
, ,ERR2
CSERMHRD

YES

COVER OPEN RESET

JYES - SKIP
;SET NAME MESSAGE POINTER

201

0
ERRZ

MILSTAT,T. WP

sTEST IF WRITC LOCK RESET

#BULSTA RS

;SET NAME MESSAGE POINTER

65%

202., ,ERR?2

JYES - SKIP

CSERHRD

202
0
ERRZ

CSETSY

*TEST 3

TST

166430

SEQ 0098

BR
.WORD
.WORD
.WORD
.WORD

BEQ

000311

000000

78 025662
79 025662

:
100008

104456

025632
025634

025652

000040

9-2

(PART 2)

000404
004364
000120
007470
000001

63
64 025576

65
66
67
68
69

MACRO Vv04.0N 4~AUG-82 10:30:59 PAGE

HEAD LOADING

sTESTO3

PASNUM

:SPIN UP THE DRIVE. VERIFY THAT THE DRIVE GOES FROM
sSTATE O TO STATE S PROPERLY.

MISWIW

238

TST

CSEXIT
L10026-.

:TEST IF PASS O

JNO - SKIP
JTEST

IF MANUAL

JYES ~ SKIP

PC,TSTINT
PC,GSTATR

JINITIALIZE TEST
*GET STATUS

T.STAY
43

:VEST IF STATE O
JYES - SKIP

INTERVENTION

JPRINT UNEXPECTED ERROR AND EXIT

TESY

ng;?P1.lUNXERR #OPR1A ,#BASADD ,RLBAS ,#DRVNAM,<B,RLDRV+1>
-(

RLDRV+1,(SP)

(ZRLIDO RLOV/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 9-5
*1EST 3

100
101 026000
102 02¢000

026000
026002
026006
026012
026016
026022
026026
026032
026036
026042
026044
026046

026052
026060
026064

b
i

et
e
D
D

D o
—t

ke
e
d

—r

b e

=D wad ol

026072

026076
026102
026104
926110
026112
026114
026116
026242

=2O=200O000O

00¢J53
OO
= b cd o e

025732
025736
025742
025746
025752
025756
025762
025766
025770
025772
99 025776

NONLNINDNY
—
B W =OO

SEQ 0099

HEAD LOADING

000020

005046
012746
016746
012746
012746
012746
012746
012746
010600
104417

062706

000020

012767
012703
012767
012701
004767
030342
005767
001072
005301
001453

000004
000001
006416
000454
170760

154724

154720
6%:

154750

026272
026276
026302

005767
001005
000167
020367
001406
104456
000455

156074
177426
154556

11%:

#EMTOPY
.= (SP)
#7,-(sP)

SP,RO
CSPNTF

#20,SP

cSEfST

: PROMPT OPERATOR TO ‘PRESS LOAD'’

0FHTOP1,00PR3,00§R1A,'BASADD.RLBAS.ODRVNAH.<B.RLDRV01>
=(SP)

RLDRV+1, (SP)

#1,R
NSTACHG ,ERHEAD
#300. .R1
PC,GSTATC

sSET CYCLE UP FLAG
sSET EXPECTED STATE VALUE
+SET _ERROR HEADER
sWAIT COUNT R1+TIMDLY= 30 SECONDS.
:GET STATUS

T.STAT

sTEST

13658

(LR
GMANIL
TRAP
BR
.WORD
.WORD

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

#OPR3,=(SP)

#FMTOPY,~(SP)

#7,-(SP)

108
R1
78
1000.

IF STATE

IS STILL O

:NO - SK]P
;DEC WAIT COUNT
SEXIT IF WAIT DONE

OBUFF

;CLEAR FOR RESPONSE
OPROO3,0BUFF ,1,NO

CSGMAN
10000%
OBUFf
T$CODE

.WOR

?PR003

IST

JMP
CMP

OBUF
118

JTEST IF RESPONSE YES
;YES = REPORT

R3,T.STAT

ERRHRD

301., ,ERR7

sCHECK IF NOW STATE 1
;YES = SKIP

.WORD

301

.WORD

BNE
10$:

#UNXERR,
= (SP)

OCYLgP.OPFLAG

MoV
MoV
MOV
JSR

TIMDLY

100008
:

#OPR1A, ~ (SP)

MOV

BNE
DEC
BEQ

7%:

#BASADD,
= (SP)

SP.RO
CSPNTF
#20,SP

8R
156114

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

MOV
Mov
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

TST

000715

005067

PRINTF

CLR
81s8

156716

104443
000404
004364
000120
007515
000001

026304
026304
026306

006042
010135
006350
011642
000007

026244
026250
026250
026252
026254
026256
026260
026262

026264
026264
026270

MOV
MOV
MOV
MOV
MOV
MOV
MOV
Mov
TRAP
ADD
TRAP

155064

BEQ

TRAP

13$

CSERHRD

(ZRLIDQ RLO1/02 DRIVE

*TEST 3

2
2

013666

104432

J
MACRO v04.00 4~-AUG-82 10:30:59 PAGE 9-4

000000

002024
012701

s
o

012703

NN
WV —=O VO~V

d i
d
D
d el
e
d el e
—d

HEAD LOADING

125 02
WAN N NN N W WWWNNI N PO N

TEST

004767
030342
020367
001503
002002
000167
005301
001453

000454
000002

13%:

170526

148

154516

026512
026514

026522
026524
026532
143 026536

026536
026540
026542
026544

~OWN
WA =O OV
NO WV
N = OOV

b v

wd wd el

d wd

)

D md wud

)

ONONOM\NAVVVAVAVAWVIVIWVAVAN
S IS N 0

144 026546

026546
026550

001000

17%:

18%:

004767
030342
022767
003002
000167

026730
026736
026742
026746
026754
026756
026756
026760
026762
026764

012767
012704
012703
032767
001006

163 026766

R3,T.STAT

BGE
JMP

178
32¢

sCHECK IF STATE 2
;YES = GO TO STATE 2

DEC

*DEC WAIT COUNT

TIMDLY

1000.

BEQ

14$
303.,,ERR7

.WORD
"WORD
.WORD

BNE

303
0
ERR?
#SPDSTAT,T.mMP
19%

MoV

#MSPERR ,R3

TRAP

ERRHRD
TRAP

:
208
21¢:

000005

170150

000003

156136

006373
011323
010575
000010

154054
154076

22%:

#SPDERR,ERHEAD

304., ,ERR3

.WORD

L10026~.

MoV

25 R1

TIMDLY

DEC

1060

21s

JSR
13658

PC,GSTATC

cmp

#3,7.STAT

JMP

328

MoV
MoV

#MISTST ERKEAD

R4
#STATE2
#MBHSTA,R3

#BHSTAT, T.MP

TRAP

CSERHR

WORD

.WORD

.WORD
EXIT

sCHECK FOR STATE CHANGE

sTEST IF SPINDLE TIMEOUT
sYES - SKIP
:SET ERROR HEADER
sSET NAME MESSAGE POINTER

;WAIT

.5 SECONDS

238
305.. ERRS
305

ERRS
TST

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

22%

8IT

BNE
ERRHRD

TSKIP IF 0

CSEXIT

BNE

MoV

1GO TO STATE 3.

CSERHRD

304
0
ERR3
187

TRAP

:CHECK IF NO CHANGE CONTINUE WAIT

(SERNRD

.WORD
.WORD
LWORD
EXIT

BGT

000422

18%

BR
ERRHRD

MOV

19%:

PC.GSTATC

;INITIALIZE WAIT COUNT FOR 30 SECONDS
;SET EXPECTED STATE VALUE
;GET STATUS

20§

154260

005301
001324

104456
000461
000000
012716

CMP

JSR
1365$

006430
010662

001572

026706
026712
026714
026722
026724

L10026~.
#300. ,R1
#2 R}

8IT

104432

TST

.WORD
MOV
MOV

154330

000460
000000
012600

012701

CSEXIT

004000

104456

026552
026556
026702
026704

TRAP

BEQ

104456

139
140
141
142

O
ERR?7

EXIT

000712
000457
000000
013666
032767
001011
012767
012703

WORD
.WORD

SEQ 0100

sSET ERROR HEADER
sSET CONDITION MESSAGE POINTER
:SET NAME MESSAGE POINTER
STEST IF BRUSH HOME STILL SET
;YES - SKIP

CZRLIDO RLO1/02 DRIVE
*TEST

HEA LOADING

b —d
ek
d
d
b
b
b
b

NNNNOOCOCOONO
WN = OV~
NS

026766

026770

026772
026776
027002
027004
027012
027614
027016
027020
027144
027146
027146
027150

027152

027154
027156
027156
027160
027162
027166
027172
027174
027202
027204
027206
027210
027334
027336
027336

oogmmmm
N = O D00 ~NO

027340
027342
027344
185 027346
027346
027350
027352
027360
027364
027370
027372
027376
027400
027400
027402
027404
027406
027410
027410
027412
027414
027422
027426
027432
027436
027440
00 027446

TEST 1 MACRO vO04.

4~AUG-82

104432

001352
012701
004767
030342
032767
001463
005301
001453

TRAP

23$:
24%:

000062

170060

000010

154040

26%:

104456
000462
000000
012646

104432

000454

27%:
28%:

167670

000010

104456

JSR
1365%
8IT
BEQ
DEC
8EQ

32%:

104432

153432

MOV
JSR

.WORD
.WORD
. WORD
EXIT
TRAP
.WORD
MOV

000000
012716

006416
000003

BR
ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIY
TRAP
. WORD

:
308

000463

167472

TRAP

MOV

JSR
1365%
CMP
BEQ
ERRHRD

153462

104456
000464

TRAP
.WORD
+WORD
. WORD

000000
013666

EXIT

104432

000730
012767
012704
012703
004767
030342
032767
001006

MOV

7365$
BIT
BNE
DEC
8EQ
TIMDLY
BR
ERRHRD

153650

000714

000772
012767
012703
004767
030342
020367
001406

. WORD

TIMDLY

000714

001162
012701
004767
030342
032767
001063
005301
001453

X
10:30:59 PAGE 9-5

TRAP

153370

000020

153404

36$:

. WORD
MOV
Mov
MOV
JSR
7365%
8IT
BNE

SEQ 0101

CSEXIT

L10026-.

#50. R
PC,GSTATC

;SET WAIT COUNT FOR S5 SECONDS
‘GET STATUS

#BHSTAT,T.MP

;TEST

‘DEC WAIT COUNT

278

268
1000.
249
.
, ,ERR4
306
CSERHRD
306
0
ERR4

BRUSH HOME RESET

‘YES - SKIP

‘SKIP IF ZERO

:LOOP

CSEXIT
L10026~.

#300. ,Ri

;INITIALIZE WAIT COUNT FOR 30 SECONDS

#BHSTAT,T.MP

;TEST

PC.GSTATC

328
R1
308
1000.
gss
07...ERRS

‘GET STATUS

IF BRUSH HOME

‘YES ~ SKIP
*ELSE DEC WAIT COUNT
‘SKIP IF 0

SET AGAIN

CSERHRD
307
0
ERRS
ST

CSEXIT
£10026-.

#NSTACHG,ERHEAD ;SET ERROR HEADER

#3,R3

PC.GSTATC

R3,T.STAT

36$

308., ,ERR?
CSERHRD
308
0
ERR7

*SET EXPECTED STATE VALUE

*GET STATUS

;CHECK IF STATE 3

SYES - SKIP

st
CSEXIT

£10026-~.

#MISTST ERHEAD

;SET ERROR HEADER

PC,GSTATC

‘GET STATUS

#STATES. R4
#MHOSTA R3

#HOSTAT,T.MP

388

SSET CONDITION MESSAGE POINTER
*SET NAME MESSAGE POINTER
:TEST

HEADS OUT SET

TYES - SKIP

CZRLIDO RLOT/02 DRIVE
«TEST

HEAD LOADING

201

027450
027450
027452
0276456
027456
202 027460
027460
027462

203 027464

204
205
206
207
208

TEST

104456
000465
000000
012716
104432
000660

012701

027470
027476
027502
027506
027510

012767
012703
004767
030342
020367

210 027516
211 027520
212 027522

005301
001453

209 027514

213 027646

214 027650
027650
027652
027654
027656
215 027660
027660
027662

216 027666

217 027670
218 027674
219 027700
220 027702
221 027706
222 027710
223 027712
224 027714

225 030040

226 030042
030042
030044
030046
030050
227 030052
030052
030054
228 030056
229 030064
230 030066
231 030072
030072
030074
030076
030100

232 030102
030102
030106
233 030106

MACRO V04.00 4~AUG=-82 10:30:59 PAGE 9-6

001463

005670

006416
000004
167354

153314

438 :

153344

012703
004767
030342
020367
001463
005301
001453

478:

000454

498:

000005
167162

508 :

153152

000715

528:

104456
000471
000000
013666
104432
000266
032767
001010
012703

001000

152766

S3%:

010551

104456
000466
000000
012716

1064432
000276
032767

MOV
MOV
JSR
1365%
CP

DEC
BEQ
TIMDLY

104456
000470
000000
013666

012701

MOV

BEQ

000715

104432
000460

388:

ERRHRD
TRAP
.WORD
WORD
.WORD
EXIT
TRAP
MOPD

040000

152730

54%:

309.,,ERRS
(SERWRD
309
0
ERRS
TST
CSEXIT
10026~

#3000. ,R1

;CHECK IF STATE 4

R1
47%
1

:DEC WAIT COUNT
‘SKIP IF 0

49%

MOV

#300. ,R1

B8R

ERRHRD
TRAP
.WORD
JWORD
.WORD
EXIT
TRAP
LWORD
BIT
BNE
MOV
ERRHRD
TRAP
.WORD
WORD
.WORD

EXIT
TRAP
LWORD
BIT

sSET WAIT COUNT FOR 300 MS

R3,T.STAT

438

MOV
JSR
T365%
CMP
BEQ
DEC
BEQ
TIMDLY

SEQ 0102

#NSTACHG,ERHEAD ;SET ERROR HEADER
#4,R3
:SET EXPECTED STATE VALUE
PC.GSTATC
SGET STATUS

B8R

ERRHRD
TRAP
.WORD
WORD
.WORD
EXIT
TRAP
.WORD

312.,,.ERR7
(SERWRD
312
0
ERR7
TST
CSEXIT
L10026-.

PYES - SKIP

:SET WAIT COUNT FOR 30 MS

#5.R3
PC,GSTATC

:SET EXPECTED STATE VALUE
:GET STATUS

R3,T.STAT
53%
R1
528
1

:CHECK IF STATE 5
SYES ~ SKIP
:DEC WAIT COUNT
SELSE SKIP

50$

313.,,ERR?7
CSERHRD
313
O
ERR?
TST
C$EXIT
L10026-.
#VCSTAT,T.MP
548
#MVOLCK,R3
310.,,ERRS
(SERHRD
310
0
ERRS

TST
CSEXIT
L 10026~-.
#DRVERR.T.CS

:VOLUME CHECK SHOULD BE SET FOR
SSTATE 5, IF NOT GIVE ERROR.
*SET NAME MESSAGE POINTER

;TEST IF DRIVE ERROR SET

C(ZRLIDO RLO1/02 DRIVE

TEST

HEAD LUADING

001010
012703

MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-7

BNE

010526

MOV

ERRHRD

104456
000473
000000
012716
1044632
000206
012701

004767
030342
032767
001071
005301
001453

TRAP

.WORD
.WORD
.WORD

EXIT

000120

57%:
56%:

166714

000001

000714
012767
012704
012703

152666

152472

58$:

TRAP
.WORD
Mov
JSR

7365%
BIT
BNE

DEC
8tQ
TIMDLY
B8R

MOV
MOV
MoV

172%-

;YES = SKIP

sSET NAME MESSAGE

POINTER

CSERHRD
315
0
ERRS
TST

CSEXIT
L10026~.

#80. ,R1

JSET WAIT FOR 8 MS

#DRDYMSK,T.CS

;CHECK

PC,GSTATC

172%
R1
?85

569

sGET

STATUS

DRIVE READY

;YES -~ SKIP
sDEC COUNT
sSKIP IF O

#MISTST,ERHEAD

;SET ERROR HEADER

#MDRDY ,R3

sSET NAME MESCAGE POINTER

W#STATES R4

TRAP
.WORD
.WORD
. WORD
BR

316, ,ERRS
CSERHRD
316
0
ERRS
172%

TRAP

CSETST

ERRHRD

104456
000474
000000
012716
000400

57%

#MDRERR,R3
315., ,ERRS

SEQ 0103

sSET CONDITION MESSAGE POINTER

JEXIT TEST

T365$%:

ENDTST

030342

L10026:

104401

.SBTTL
BGNTST

259 030344
030344
262 030344
263 030350
264 030352
265 030356
266 030360
030360
030362
267
268 030364
030364
030364
269 030366
270 030374
271 030400
272 030404
273 030406

«TEST 4

HEAD UNLOADING
sTESTO4

”

;SPIN DOWN AND UNLOAD HEADS. VERIFY THAT THE DRIVE

005767
001003
005767
100403

153010

163750

8%:

104432
001146

IST
BNE
TST
8MI
EXIT

TRAP
.WORD

geSNUH

:GOES FROM STATE 5 TO STATE 7 PROPERLY.

MISWIW

T1ST4
TST

sTEST IF FIRST PASS
JNO - SKIP
JTEST IF MANUAL INTERVENTION

JYES - SKIP

CSEXIT

1L10027~.

BGNSUB

104402

012767
004767
004767
031420
032767

006416

166430
166442

000001

152416

152430

1ST4:

TRAP
MOV
JSR

JSR
T465%
BIT

16.1:

C$BSUB

ANSTACHG,ERHEAD ;SET ERROR HEADER
PC,TSTINY
JINITIALIZE TEST
PC,GSTATR
;GET STATUS

LDBDYMSK,T.CS

;CHECK IF DRIVE READY

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-8
&
*TEST
HEAD UNLOADING

030460
030462

030464
030470
030474
030474
030476
030500
030502
030504
030506
030510
279 030510
280 030514
281
282 030516
283
284 030524
030524
030526
030532

030536
030542
030546
030552
030556

030562
030566
030570

030572

285
286 030576
287 030602
288 030606
289 030612
290 030616
291 020620
292 030624
293 030626
294 030634
295 030636
030640
297 030642
298 030644
299 030646

001040

BNE

1%:

PRINTF

CLR
B8IS8

Mov
MOV
MOV
MOV
MOV
MOV
Mov

MOV

TRAP
ADD

062706
005067

CLR
GMANIL

104443
000404
004364
000120
007470
000001

TRAP

005767
001740

153650

052767

000010

005046

156716
012746
016746
012746
012746
012746
012746
012746
010600
104417
062706

012703
012704
012701
004767
031420
020367
001506
022767

:
100008

152260

BR
.WORD
.WORD
-WORD
.WORD

RLDRV+1, (SP)

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

#OPR6,
= (SP)
#FMTOP1,~(SP)

#7,-(SP)

SP,RO
CSPNTF

OBUFF
18

38:

BIS

#ULOAD ,OPFLAG

4%:

PRINTF
CLR

152301

BISB

152264

MOV
Mov
MOV
MoV

MOV

006042
010135
007651
011442
000007

#20,SP
OBUFF
:CLEAR FOR RESPONSE
OPR00Z2,0BUFF,1,NO
CSGMAN
10000$
OBUFF
T$CODE
?PROOZ

TST

006053

JYES - SKIP

:PROMPT PRESS LD AND WAIT FOR RDY
0?2;?P1.#OPR6, #OPR1A, #BASADD ,RLBAS, #DRVNAM, <B,RLDRV+1>

«TST RESPONSE YES
:NO - SKIP

;SET UNLOAD OPERATION
:PROMPT PRESS LOAD
':2;?P1.#OPR3, #OPR1A,#BASADD ,RLBAS,/DRVNAM, <B,RLDRV+1>

RLDRV+1, (SP)

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

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

#EMTOP1,=(SP)

000020

MOV
MOV
Mov
TRAP
ADD

#20,sP

000006
000144
001274

Mov
MOV

MoV

#6,R3

sSET EXFECTED STATE VALUE

#700. ,R1

sSET WAIT COUNT FOR 30 SECONDS

5%:

166244

152234

000005

152224

8%:

000144

JSR

74658

CMP
BEQ
CMP
BNE
DEC
BNE
DEC
BEQ

Mov

#7,-(SP}
SP,RO

CSPNTF

#100. R4
PC,GSTATC

sSET SECOND LEVEL COUNT
;GET STATUS

R3,T.STAT

;WATCH FOR STATE CHANGE FROM 5 TO 6

#5,T.STAT

;TEST IF

11§

98"
R&
6%

SYES = SKiP

*JEC 2ND LEVEL COUNT
.5&
F
NOT O

*ELSE

#100. R4

SEL

STATE §

NO - REPORT WRONG STATE

VIF

DIO'—

274 030414
275
276 030416
030416
030420
030424
030430
030434
030440
030444
030450
0306454

SEQ 0104

DEC

1ST LEVEL COUNT

IP TO QUESTION
T 2ND LEVEL

CZRLIDO RLO1/02 DRIVE
&

030652
030776
031000
031004

304 031020
305 031024
306 031026

-—h

~
o

-—d

6%:
153360

7%:

104443

005767
001637

100018:

153340

9%:

104456
000621
000000

020367
001463
005301
001453

000007
005670

118:

166004

12%:

151774

16%:

ok o o X 2R 1S 1,81, V1,87,
¥1,87,¥7,.97,87
N1,¥]

013666

Pk adaX

104432
000174

001461

TRAP

. WORD
MOV
MOV
JSR

74658
CMP
BEQ
DEC
BEQ
TIMDLY
BR
ERRHRD
TRAP
.WORD
.WORD
. WORD
EXIT
TRAP

18%:

013560

20%:

165614

151604

005301
001453

. WORD
CLR
MOV
JSR
14658
TST
BEQ
DEC
BEQ

TIMDLY

000715

22%:

104456

000623
000C00

013666

012767

TST

8tQ
ERRHRD

TRAP

1046456
000622
000000

005003
012701
004767
031420
005767

BR
.WORD
.WORD
.WORD
.WORD

.WORD
-WORD
. WORD
EXIT

013666

104432
000366
012703
012701
004767
031420

TIMDLY

B8R
CLR
GMANIL
TRAP

000715

Nm—d—ddgoOummbbwgww
OO
NOO
OO
OONO
O

e
b
b mah

0NV

ek b b
=00
W= oo

o
W

307 031036
NN AN NN N NN W

000705
005067

000404
004364
000120
007515
000001

N AN

300
301
302
303

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

5EQ 0105

HEAD UNLOADING

[=lelelelelele]

*TEST

TEST

000002

151370

248:
T46S$:

BR
ERRHRD
TRAP

;WAIT 190 US

OBUF

;CLEAR FOR RESPONSE

OPROO3,0BUFF,1,ND
CSGMAN
100018

OBUFF
T$CODE
?pnoos

OBUFF
48
401., ,ERR?
CSERHRD
401
0

;TEST If RESPONSE YES
‘NO ~ SKIP
*ELSE REPORT STATE CHANGE WRONG

ERR?
SuB

CSEXIT

L10030~.

#7 R3

;SET EXPECTED STATE VALUE

PC.GSTATC

SGET STATUS

R3,T.STAT

;CHECK IF

R1
}63

*DEC WAIT COUNT
‘TIME OUT GIVE ERROR MESSAGE

#3000. ,R1
18§

128
402. . .ERR7
CSERNRD
402
0

*SET COUNT FOR 300MS
STATE 7

SYES = SKIP

;REPORT WRONG STATE CHANGE

ERR7
SUB

CSEXIT
£10030-.
R3

;SET EXPECTED STATE VALUE

PC,GSTATC

SGET STATUS

T.STAT

:CHECK IF

‘DEC WAIT COUNT

208
403., ERR7
CSERHRD

;REPORT WRONG STATE CHANGE

#6000. . R1
248
22%

.WORD
.WORD
.WORD

403

MoV

#2 ,ERRSWI

SSET WAIT COUNT FOR 60 SECONDS
STATE 0

SYES = SKIP

TSKIP IF 0

0
ERR7
;INIT ERROR SWITCH

CZRLIDO RLO1/02 DRIVE
*TEST 4

TEST

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

<EQ 0706

HEAD UNLOADING

334 031426
031426
031426
338

336 031430

ENDSUB
£10030:

104403

268%:

031430
031432
031436
031442
031446
031452
031456
021462
031466
031472
031474
537 031476

005046
156716
012746
016746
012746
012746
012746
012746
012746
010600
104417
062706

000020

338 031502
339 031506
031506
031510
031512
031514
031516
031520
031522

005067

152656

340 031522

341 031526
gzg 031530
344 031530
031530
031530
345
346

151375
006053
151360
006042
010135
007665
011442
000007

104443
000404
004364
000120
007470
000001

005767
001740

100008:

152636

298 :
ENDTST
L10027:

104401

347
348

LSBITL

349 3%33%5

350 031532
351 031540
352 031544
353 031546

354 031554

355 031556
031556
031560
031564
031570
031576
031600
031004

BGNTST
012767
005767
001173
032767

001567

031610

005046
156716
012746
016746
012746
012746
012746
012746

031620
031622

010600
104417

031614

012746

000002
151614

151256

000004

162552
1%:

151247
006053
151232
006042
010135
007720
011442

000007

TRAP

CSESUB

PRINTF

lFHTOP1,00PR6.00§R1A,08ASADD,RLBAS.IDRVMAH,<B,RLDRVO1>

;PROMPT PRESS LD AND WAIT FOR RDY

CLR
8Is8
MOV
MOV
MOV
Mov
MOV
MOV
MOV
MOV
TRAP
ADD

-(SP)
RLDRV+1,(SP)
#DRVNAM
= (SP)
RLBAS,~-(SP)
#BASADD,-(SP)
#0PR1A,=(SP)
#OPRG,
= (SP)
#FMTIOPY ,=(SP)
#7,=-(SP)
SP,RO
CSPNTF
#20,SP

CLR
GMANIL
TRAP
BR
.WORD
.WORD
.WORD
JWORD

OBUFF
;CLEAR FOR RESPONSE
OPR002,0BUFF,1,NO
CSGMAN
100008
OBUF¢
T$CODE
OPR002
1

1£31

0BUFF

TRAP

CSETST

BEQ

;TEST IF RESPONSE YES

263

<*TEST §

‘N0 - SKIP

DRIVE SELECT

:TESTOS

MoV
Is7
BNE
8IT

#2,ERRSWI
PASNUM
EXTOS
#ORSELT, MISWIW

PRINTF
CLR
BISB
MOV
MOV
MOV
MOV
MOV

#FMTOP1,#0PR7,#0PR1A,#BASADD
,RLBAS , #DRVNAM, <B RLDRV+1>
-(SP)
RLDRV+1,(SP)
#DRVNAM,
- (SP)
RLBAS,-(SP)
#BASADD,
= (SP)
#OPR1A,-(SP)
#OPR7,~(SP)

MOV

#7,-(sP}

BEQ

MOV

MOV
TRAP

EXTO0S

SEMTOPT,~(SP)
SP.RO
CSPNTF

:SET FOR NO ERROR RETURN
;TEST IF FIRST PASS
:NO - SKIP
:TEST IF SELECT TESTS

INO - SKIP

CZRLIDO RLO1/02 DRIVE

*TEST S

ORIVE

031626
356
357 031630
358 031634
031634
031636
031640
031642
031644
031646
031650
359 031650
360 0316564
361 031656
362 0316664
363 031670
364 031674
365 031676
366 031706
367 031710

368 031714
369 031720

370
371
372
373

031724
031726
031730
031734
031734
031740
031744
031746

031752
031756
031762
031766
031770

031772
374
375 031776
376 032002
032002
032004
032006
032010
032012
032014
032016
377 032016
378 032022
379 032024
032024
032024
380 032026
381 032037
gg% 032034
384 032042
032042

TEST

SELECT

MACRO v04.00 4~AUG-82

10:30:59 PAGE

062706

00CJ20

ADD

005067

152530

CLR
GMANIL
TRAP
ER
.WORD
.WORD
.WORD
.WORD

104443
000404
004364
000120
007470
000001
005767
001740
012767
004767
004767
032056
016767
016701
012704

062701
022701

001001
005001
010167

012746
012746
005046
156716

012746
012746
012746
010600
104417

100008:

152510

006530
165140
165166

151126

151130
15112¢
000004

151212

000400
002000

LPT05:

151076

48:
58:

010151
010141
151061

007747
011513
000005

062706

000014

005067

152362

104402
004767
032034
012767

10001$:

152342

BGNSUB
165030
000002

150754

60$:
ENDSUB
L10032:

SEQ 0107

#20,5P

;REQUEST ''REMOVE ADD PLGS EXCPT '
OBUFF
:CLEAR FOR RESPCNSE
OPR0OZ2,0BUFF,1,NO
CSGMAN
100008
OBUFF
TSCODE
OPR0O0Z2
1

TST
BEQ
Mov
JSR
JSR
15048
MOV
MOV
MOV

OBUFF
1%
#TOSERR ,EPHEAD
PC,TSTINT
PC,GSTAT(

;TEST RESPONSE YES
sNO ~ SKIP
;SET ERROR HEADER MESSAGE
JINITIALIZE TEST
;DO SELECT AND GET STATUS

RLORV, TEMPO
RLDRV,R1
¥4 R4

sSTORE ORIGINAL DRIVE NUMBER
cPUT IT IN R1
sSET COUNT FOR NUMBER OF PLUGS

BNE
CLR
MOV

4$
R1
k1,RLDRV

MOV
MOV
MOV
MOV
TRAP

#OPRB,~(SP)
SEMTOPZ,~(SP)
#5,-(SP)
SP.RO
CSPNTF

CLR
GMANIL
TRAP
BR
.WORD
.WORD
.WORD
.WORD

s INSERT PLUG REQUEST
OBUF F
:CLEAR FOR RESPONSE
OPR0OZ2,0BUFF,1,NO
CSGMAN
100018
OBUFF
TS$CODE
OPROO?2
1

TST
8tQ

OBUFF
5%

TRAP
JSR
60%
MOV

C$85UB
PC.GSTATC

sGET STATUS - REPORT ANY ERROR

#2 ERRSWI

sINIT ERROR SWITCH

ADD
cMP

#400,R1
#2000, R1

;BUMP TO NEXT DRIVE
cCHECK IF TO LARGE

:NO = SKIP
sELSE CLEAR TO DRIVE 0
sPUT IT BACK IN RLDRYV
PRINTF #FMTOPS,#0PR8,<B,RLDRV+1> ,#OPR1B,#UNDTST
MOV
#UNDTST,~(SP)
MoV
#0PR1B,-(SP)
CLR
-(SP)
8l1s8
RLDRV+1, (SP)

ADD

104443
000404
004364
000120
007470
000001
005767
001744

3$:

9-11

#4,5P

sTEST RESPONSE YES
sNO = SKIP
15.1:

\Z?leg RLO1/02 DRIVE
DRIVE

385
386
387
388
389

032044
032046
032050
0
032056

290 032106
391 0321

9
E
TEST 1 MACRO v04.00 4-AUG-B2 10:30:59 PAGE 9-12
SELECT

104403

TRAP

151042

150754

007766
007747
011556
000003

032:36
032142
032144
032152
032154
032154
032156
406 032160
407 032166
408 032172

10000$:

152232

EXTOS:

ENDTST
L10031:

+SBTTL
BGNTST

151216

000004

001230
012767
004767
016703
026727

006464
164636
151164
147610

005203
020367

147576

101401

005003
032222

416 032224

032224

417 032226
418 032230

104442

021467

150624

LPTOS

#FMT4,#0PR8,#0PRY

#OPR9. ~(SP)
#OPRB,=-(SP)
NEMTG,~(SP)
#3,-($P)
SP_RO
CSPNTF

ADD

#10,SP

GMANIL

OPR002,0BUFF,1,ND

0BUFF

"WORD

OPR0O2

O0BUFF

TRAP

CSETST

:TEST IF RESPONSE YES

TEST 6

‘NO - SKIP

DRIVE

SELECT ERROR TEST

:TESTO6

PASNUM

;CHECK IF

18:

TRAP

6%:

MOV

#GSTERT,ERHEAD

;SET ERROR HEADER

MOV

PSETNM,R3

*GET PARAM SET NUMBER

000001

2$:

.WORD

JSR

CMP
BLOS
INC
CMP
BLOS
CLR
GPHARD
MOV
TRAP

(10033-.

PC,TSTINY

LSUNIT.#1
5%
R3
R3,LSUNIT
$
R3
R3,R0
R3 RO
CSGPHRD

MOV
CMP

RO, R4
(R4) ,RLBAS

FIRST PASS

1$
#DRSELT,MISWIW
6
TST
CSEXIT

S?EOHPLEEE
150572

;CLEAR FOR RE~OONSE

CSGMAN

100008
OBUFF
T$CODE

BEQ

COUNT

1LOOP IF NOT ZERO

BNE
BIT
BNE
EXIT

162154

3s:

010300
103370
010004

PRINTF

MOV
MOV
MOV
MOV
MOV

104432

101517

YELSE RESTORE RLDRV

"WORD

104401

005767
001004
032767
001002

TEMPO, RLDRV

BR
.WORD

400 032136
401
402
403
404
405

MOV

TRAP

000120
007470
000001

032135

:DEC

CLR

104443
000404

005767
001751

TRAP

000010
152252

004364

392 032126
393 032132
394 032134
395 032134
032134
032134
396
397
398
399

DEC

BNE

1504%:
(8:

CSESUB

CEQ 0108

INO - SKIP
:CHECK IF TEST DRIVE SELECT
TYES - SKIP

SINITIALIZE TEST

STEST IF MORE THAN 1 LINIT
‘N0 - SKIP
SBUMP PARAMETER SET NUMBER
*CHECK IF PAST VALID PARAMETER TABLE
INO = SKIP
*ELSE CLEAR TO POINT TO ENTRY 0

;SKIP IF NOT AVAILABLE
:PUT POINTER INTO R4
*CHECK IF SAME CONTROLLER

L1D0 PLOY1/70c DRIVE
ST 6
DRIVE
419
420
421
422

032234
032236
032242
032250

424 032264
425 032272

001364
005067
012767
056467
012767
016762
016762

427
428
429
430

005767
001666
032767
001415

423 032256

426 032300
032424
032430
032432
032440

431 032442
432 032444

032444

TEST

MACRO vV04.00 4-AUG-82

SELECT ERROR TEST

150544
000104
000010
000013
150550
150536

150564
150556

150554

000661

012746

010003

032450

012746

032460
032462
032464
433 032470

010600
104417
062706
000167
016467

000006
000712
000010

011753

032502
032506
032512
032516
032522

016700
016705
042700
(42705
020527

150324
150406
002000
002000
001400

442 032530
443 032532

005005
062705

000400

446 0325642
447 032546
448

052705
010562

000200
000000

032474

441 032526

444 032536
445 032540

449 032552
032552
032554
032560
032564
032566
032572
032576
032602
032606
032610
032612

450 032616

451 032622

032622
032624
032626
032630
032632
032634
032636

001001

020500
001770

005046
156716
012:46
005046
156716
012746
012746
012746
010600
104417
062706

005067
104443
000404
004364
000120
007470
000001

MOV
MOV

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

PRINTF

#FMT9 #OPR10

;N0 - SKIP
*CLEAR DONE FLAG
-LOAD GET STATUS
“INSERT DRIVE

#0PR10,
= (SP)

;SET UP TO CLEAR DRIVE

~ :LOAD DA’REG
:LOAD €S REG

‘WAIT 3°MS

STEST
“IF INTERRUFT
‘N0 - SKIP
:TEST IF ANY ERROR SET
‘NGO - GO TEST

SELSE CHECK NEXT DRIVE

-REPORT CAN'T FIND 2ND DRIVE

#FATY,
= (SP)

MOV
TRAP
ADD
JMP

SP.RO
CSPNTF
#6,SP
LCLEXT

208:

MOV
MOV
BIC
BIC
(MP

RLDRV,RU
TEMP1 RS
#2000, R0
#2000 RS
RS, #1400

218:

CLR
ADD

RS
#400,RS

‘ELSE SET TO DRIVE NUMBER 0
‘BUMP TO MEXT ADDRESS

8IS
MOV

#CRDYMSK ,RS
RS,RLCS(R2)

‘ELSE SET CONTROLLER READY BIT
SAND LOAD €S REG
‘PROMPT INSRT ADR PLG AN DRV

MOV

150416

30.

DONE
28
#ANYERR,T.CS
78

MOV

>EQ 0109

#GETSTATIDRSET,L DA

ST
BEQ
BIT
BEQ

B8R

MOV

032454 012746 000002

434
435
436
437
438
439
440

28
DONE
#GTSTAT,L.CS
10(R4),L.CS

TIimoLY

150406

9-13

BNE
CLR
MOV
BIS

MOV

000004
000000

150356

100000

10:30:59 PAGE

78:
98 :

MOV

BNE

CMP
BEQ

#2,-($P)

10(R4) ,TEMP1

21é

RS,RO
208

;STORE NEW ADCRESS
SASK FOR PLUG CHANGE
‘GET DRIVE UNDER TEST
*GET NEW ADDRESS
*CLEAR FOR ADDRESS 0 TO 3
;TEST IF DRIVE NUMBER 3

:NO - SKIP

*THIS EQUAL. TO NEW ADDRESS?
SYES - SKIP

PRINTF
#FMTOP2,#0PRB,<B.RLDRV+1>,#0PR1B,<B,
TEMP1+1>
CLR
-(SP)
BISB TEMP1+1, (SP)
MOV
#OPR1B,
= (SP)
CLR
-(SP)
BISB RLDRV+1, (SP)
MOV
#OPRS, ~(SP)
MOV
#FATOP2,=(SP)
MOV
#5,-(SP)
MOV
SP.RO
TRAP
CS$PNTF
ADD
04, 5P

150341
010141
150241
007747
011471
000005
000014

151542

CLR

0BUFF

TRAP
BR
.WORD
-WORD
.WORD
"WORD

CSuMAN
100008
OBUFF
TSCODE
OPR002
1

GMANIL

100008:

;CLEAR FOR RESPONSE

OPR002,0BUFF.1.ND

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 9-14
*TEST 6
DRIVE SELECT ERROR TEST
452
453
454
455

032636
032642
032644
032650

005767
001717
012706

157522
060012

BGNSUB

032650

032650 104402

456 32652
457 032660

016767
016762

150154
150150

150154
000000

459 033012
460 033020

052767
012767

000104
000013

150014
150012

458 032666
461

8%:

ST
BEQ
MOV

QBUFF
98
#10.,R4

TRAP

($BSUB

VES

16.1:

BIS
MOV

WGTSTAT,L.CS
:SET GET STATUS
WGETSTATIDRSET,L.DA
:SET RESCT BIT 3

TiMDLY

100,

;SET UP TO SELECT MULTIPLE
:DO IT

:/DRIVE

TO CLEAR

DRIVES

IN THE DA REG FOR THE
ITS ERROR REGISTER

:/BEFORE SENDING A STATUS WORD TO TnE

s/MP REG DURING GET STATUS COMMAND
033026
033034
033040
033046
033046
033052
033054
033060

033062
033066
033070
033074
033076
033102
033106
033110
033112
033114

016762
005067
016762

150006
147746
147770

012727
000000
016727
000000
005367
001375
005367
001367
005767

000001

001012
004767
012603
001406

033114
033116
033120
033122

104456
001131
006464
012464

033124
033126

104432
000204

475 033124

476
477
478
479
480
481

STEST IF RESPONSE
INO - SKIP
SSET COUNT

RLDRV,L.CS
L.CS,RLCSR(RD)

462

469
470
471
472
473
474

SEQ 0110

MOV
MOV

222
465
466
467
468

033130
033254
033260
033266
033270
033274

004767

032767
001010
012703

033274
033276
033300
033302

104456
001132
000000
012600

033304
033306

104432
000C24

482 033304

4«83 033310
484 033314

4«85 033316

«86 033320

000000

147036

177772

MOV
CLR
MOV
WAITUS
MOV .
.WORD
MOV
WORD

L.DA,RLDA(R2)
DONE
L.CS,RLCSR(R2)
1
#1,(PC)e
0
LSDLY,(PC)e
0

ST
BNE
JSR
MOV
BEQ
ERRHRD

BONE
;CHECK IF INTERRUPTED
128
SYES - SKIP
PC,WAITIN
WAIT FOR TIMEOUT
($P)+,R3
:GET ERROR POINTER
128
SKIP IF 0
601, ,GSTER1,ERR1

EXIT

SUB

DEC
BNE
DEC
BNE

177756
147704
163526

TRAP
.WORD
‘WORD
-WORD

164722

000400

128:
147564

TRAP
.WORD

TIMDLY
JSR

BIT
BNE
MOV

010632

ERRMRD

000000

000167

177326

168:

CSERWRD
601
GSTER1
ERR1

CSEXIT
110034~

20.
PC,GDRSTA
#DSESTAT,T.MP
168
#MDSERR,R3
602, ,EAR3

(SERARD
602
0
ERRS3

TRAP
.WORD

CSEXIT
L 10034-.

RS,RLCS(R2)
Ré

;WATT FOR DSE TO SET
SGET STATUS
(TEST IF DRIVE SELECT ERROR SET
SYES - SKIP
:SET NAME MESSAGE POINTER

SUB

MOV
DEC

BEQ

;DO GET STATUS
JWAIT FOR INTERRUPT

=6(PC)
.-4
=22(P()
.=20

TRAP
.WORD
.WORD
.WORD

EXIT

010562
005304

001402

000004

608

;LOAD IN DIFFERENT ADDRESS
:DEC_COUNT

:LOOP IF NOT ZERO

9
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-15
«TEST 6
DRIVE SELECT ERROR TEST

487 033324

012767

033337
033332

104403

033334

(12746

488 03333

489 033334

033340
033344
033350
033352
033354
490 033360
491 033364

033364

033366

492
493
494
495
496
497
498
499

033370
033372
033374
033376
033400

033400
033404
033406
033406

033406
033406

500 033410
033410

501
502
503
504
505

033410
033414
033416
033422
033424

033424
033426
506 033430
507 033436
508 033442
509 033566
510 033572
511 033574
g}g 033602
5§14 033604
515
516 033612
033612
033614
033620
033624
033630
033636
033640

012746
012746
010600
1064417
062706

005067

00CJ02

147464

60%:

ENDSUB

£10034:
15%:

010051

011753
000002
000006
151000

TRAP

B8R

004364
000120
007470
000001

100008:

150760

LCLEXT:
ENDTST

£10033:

104401

004767
034300
032767
001432

052767

005046
156716
012746
016746
012746
012746
012746

006515
163366

147354

163254
000001

147242

000010

147172

147213
006053
147176
006042
010135
007651

SINIT ERROR SWITCH

;REQUEST PLUG CHANGE

#FMTY,
< (SP)
#2,-($P)
SP.RO
CSPNTF
#6,SP
0BUF F
;CLEAR FOR RESPONSE
OPRO02,0BUFF,1,NO

CSGMAN

10000$

OBUFF
15§

TRAP

(SETST

18:
3$:

20PR11,<(SP)

ST
BEQ

ST
BNE
ST
BM]
EXIT

160704

(SESUB

#FMT9,#0PR11

OBUFF
T$CODE
OPR0O2
1

TEST 7

147744

#2,ERRSWI

.WORD
.WORD
.WORD
CWORD

.SBTTL

BGNTST

104432
000652
012767
004767

MOV

CLR
GMANIL

106443

005767
001003
005767
100402

TRAP

PRINTF

MOV
MOV
MOV
TRAP
ADD

000404

005767
001753

MOV

SEQ 0111

;TEST IF RESPONSE YES
iNO = SKIP

INITIAL STATE

;TEST 07
PASNUM
18
MISwIw
3s
TST

T7::

:CHECK IF FIRST PASS
:NO = EXIT TEST
:CHECK IF MANUAL INTERVENTION
*PERFORM TEST IF MANUAL INTERVENTION

TRAP
.WORD
MOV
JSR
TIMDLY
JSR
1008
BIT
BEQ

CSEXIT
L10035-.
#INITST ERHEAD
PC,TSTINT
10.
PC.GSTATR

;SET ERROR HEADER
SINITIALIZE TEST
SWAIT 1 mMS
*GET STATUS WITH RESET

#DRDYMSK,T.CS
208

;CHECK IF DRIVE 1S READY
:BRANCH IF DRIVE IS NOT READY

BIS

#ULOAD,OPFLAG

;SET UNLOAD OPERATION
*PROMPT OPERATOR TO '‘PRESS LOAD'’
#FMTOP1,#0PR3,#OPR1A,#BASADD
,RLBAS , #DRVNAM, <B,RLDRV+1>

PRINTF
CLR
<(SP)
BISB
RLDRV+1, (SP)
MOV
#DRVNAM
= (SP)
MOV
RLBAS,~(SP)
MOV
#8ASADD,
=~ (SP)
MOV
#OPR1A,=(SP)
MOV
#OPR3,
- (SP)

DRIVE T EST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-16
INITIAL STATE

012746
012746
010600

017442
000007

062706
012703

000020
000000

004767
034300

163166

W
~

o
o

NOWVSWN

WVIWAVAWVIWVIWVY
PONININONIN

Ao
NIA)
= s

2000~

104417

033706

033710
033710
033712

034010
034014
034016
034016
034020
034026
=]

SN
- OO0

WVAVAIVAVLAWAM

AWV

VIS
WA —=O
&I wfiwwww

033716
033722
033726
033732
033736
033742
033746
033752
033754
033756
528 033762
529 033766
033766
033770
033772
033774
033776
034000
034002
034002
034006

104422

022767
001370

005046
156716

012746
016746
012746
012746
012746

012746
012746
010600
104417
062706

005067

20%:

147152

147115

006053
147100
006042
010135
007665

163046

104422

022767
001370

000005

016701
032701
001003
012703
000405

147016
000020

001010
012703

100008:

228:

147032

010621

000010
010575

I4 ¥
9%

SEQ 0112

SP,RO

ADD
MOV

#20,5P
#0,R3

;SET ""LOAD CARTRIDGE'' STATE VALUE 0

JSR
100%

PC,.GSTAT(

JGET STATUS

C$BRK

sMAKE A SUPERVISOR CALL

cMP
BNE

#0,T.STAY
208

PRINTF

;PROMPT OPERATOR TO 'PRESS LOAD ¢
:/WAIT FOR READY*'
#FMTOP1,#0PR6,#OPR1A
#BASADD ,RLBAS ,#DRVNAM,<B,RLDRV+1>

81s8

RLDRV+1,(SP)

CiLR

Mov
MOV
MOV
TRAP
ADD

000020
150376

004767
034300

CSPNTF

MOV
MOV
MOV
Mov
MoV

011442
000007

150356

TRAP

BREAK
TRAP

21s:

005767
001740

#FMTOPY ,=(SP)
#7,-(SP)

MOV

104443
000404
004364
000120
007470
000001

032701
547 034062

000000

MOV
MoV

CLR
GMANIL
TRAP
BR
.WORD
.WORD
.WORD
LORD

JTEST IF STATE 0
JWAIT FOR STATE O

-(SP)

#DRVNAM,
- (SP)
RLBAS,~(SP)
#BASADD,-(SP)
#O0PR1A,=-(SP)
#OPRG,~(SP)

#FMTOPY ,=(SP)
#7,-(SP)
SP,RO
CSPNTF
#20,SP

OBUFF
;CLEAR FOR RESPONSE
OPR0O02.,0BUFF,1,NO
;PROMPT OPERATOR FOR RESPONSE
CSGMAN
100008
OBUFF
TSCODE
OPR0OO?2

TST
BEQ

OBUFF
218

;TEST IF RESPONSE 1S YES
;BRANCH IF NOT READY

JSR
1008
BREAK
TRAP
CMP
BNE

PC,.GSTATC

JGET STATUS

#5,T.STAT
22%

JCHECK IF STATE §
;WAIT FOR STATE §

MOV
8IT
BNE
MOV
BR
BIT
BNE
MOV

T.MP.R1
NHOSTAT,R1
7$
#MHOSTA,R3
9%
FRHSTAT ,R1
e
#MBHSTA,R3

;GET MP REG
sCHECK HEADS out
JYES=-SK]P
:SET NAME MESSAGE PTR
;GO REPORT

ERRHRD

($BRK

702.,.ERR3

JMAKE A SUPERVISOR CALL

;CHECK BRUSH HOME SET

sYES=SKIP
JSET NAME MESSAGE PTR
;REPORT ERROR

CIRLIDO RLO1/02 DRIVE TEST 1 MACRD v04.00 4-AUG-82 10:30:59 PAGE 9-17
«TEST
INITIAL STATE

034062
034064
034066
034070
548 034072
034072
034074
549 034G76
950 034102
551 034104
552 034110
553 034112
554 034116
555 034120
556 034126
557 034130
034130
034132
034134
034134
558 034149
034140
034142
559 034144
560 034150
561 034152
562 034156
034160
564 034166
565 034170
566 034174
567 034176
568 034202
569 034204
570 034210
034210
034212
034214
034216
571 034220
034224
573
574
575
576
577
578
579

104456

TRAP

(SERHRD

000000

WORD

001276

.WORD

012600

-WORD

EXIT

1064432

000204
005767
100035
005767
001032
032701
001412
012703
012704

TRAP

160224

108:

147250
000100
010537
011412

001277
000000
012646
104432
000136
032701
001003

012703

010551

032767
001003
012703

040000

000741

000732

032701
001406
012703

138:

146656

158:

010526
020000

168:

010610

104456

001301
000000
012532
042701
026727
001404
022701
001411

021177
146046

000001

178:

000200

000402

005701
001406

998 :
188:

104456

001300
000000
012766
104432
000016
016701

042701

146554

141777

198:

TST

CSEXIT

TRAP

CSERWRD

EXIT
TRAP

001000

ERR3
L10035MISWIW
168
PASNUM
168
NHSSTAT,R1
13$
#MHSTA,R3
#CCYLUP,
RS

.WORD
WORD
.WORD

.WORD
BIT
BNE
MOV

B8R

703.,,ERRS

703
O
ERR4
TST
CSEXIT
L10035-.
#VCSTAT,RY
15¢

#MVOLCK,R3

BIT
BNE
MOV

#DRVERR,T.CS
168
#MDRERR,R3

BIT
BEQ
MOV
ERRHRD
TRAP
.WORD
LWORD
.WORD
BIC
CMP
BEQ
cMP
BEQ

FULSTAT,RY
17§
#MULSTA
R3
705.
. ,ERR2
CSERMRD
705
O
ERR2
#21177.R1
T.DRIVE,
M
99%
#200,R1
198

ST
BEQ

R1
198

.WORD
WORD
.WORD
EXIT
TRAP
LWORD
MOV

704
0
ERR6
TST
CSEXIT
L10035~.
T.CS.R1

B8R

ERRHRD
TRAP

8IC

SE@ 0113

702

.WORD
ST
8PL
ST
BNE
BIT
BEQ
MOV
MOV

ERRHRD

104456

JEXIT
TEST

IF MANUAL

;NO=-SKIP

INTERVENTION RUN

:CHECK IF FIRST PASS
:NO=SK1P

:ELSE CHECK HD O SELECTED
s YES-SKIP
sSET NAME MESSAGE PTR
;SET CONDITION POINTER
sREPORT ERRGR

JEXIT
sCHECK VOL CHECK SET
sYES-SKIP
sELSE SET NAME MESSAGE PTR
;GO REPORY
:TEST DRIVE ERROR SET
JYES=SKIP
;ELSE SET NAME MESSAGE PTR
;GO _REPORY
;CHECK WRITE LOCK STATUS
sSKIF IF RESEV
;ELSE SET NAME MESSAGE PTR

sCLEAR STAUS EXCEPT FOR ERROR BITS

18%

704..,ERR6
(SERHRD

#141%77,R1

;NO~SK]P

:ELSE REPORT ALL ERRORS

JEXIT

sGET (S REG
sCLEAR ALL BUT ERROR BITS

(ZRLIDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10.30:59 PAGE 9-18
*TEST 7
INITIAL STATE

588
589

034274
034276
034300
034300
034300

034300
034300

005701
001364

~man
—_ZOW
QOO
W
O

583
584
585
586
587

104401

590
591

592 034302
034302
593 034302
594 034310
595

596 034314
597 034320
598 034322

OONMONON

599 034326
600 034330
601 034334
602 034336
603 034344
604 034346
605 034352
606 034356
034356
034360
034362
034364
607 034366
608 034366
609 034366
034366
034366
0

" YRAP

.SBTTL
BGNTST

012767
004767

006515

004767
034366
005767

162526

100017

005767
001014
032767
001410
012703
012704

162514

146502

147024

000100
010537
011412

RESET STATE

18::

JSR

PC,GSTATR

;GET STATUS WITH RESET

TST
8PL
TST

MISWIW
43
PASNUM

sCHECK IF MAN INTERVENTION WAS RUN

TRAP

l ITIA

JTEST

SINITIALIZE TEST

ERRHRD

001441
000000
012646

CSETST

#INITST ,ERHEAD
PC,TSTINT

MOV
MOV

104456

18%

MOV
JSR

BNE
BIT
8EQ

146506

sTEST IF ANY ERROR SET
sYES=SKIP TO REPORT

*TEST 8

65%

160000

SEQ 0114

.WORD
.WORD
-WORD

:NO=-SK]P

zgSSTAY,T.HP

#MHSTA
R3

#CCYLUP,RG

801., ERRé
CSERHRD
801
0

JCHECK [F 1ST PASS
sNO=-SKIP
sCHECK HD SELECT STILL O
;YES=SKIP
sSET NAME MESSAGE PTR
;SET CONDITION POINTER
;REPORT ERROR

ERR&

65%:

ENDTST

L10036:

104401

TRAP

CSETST

2
3
4 034370
034370
5 034370
6 034376
7 034402
8 034404
619 034406
620 034410
621 034412
622 034416
623 034422

.SBTTL
BGNTST

OO
HONON
s =
=y
OO

B R

005021
005011

b b

004767
004767
035022
004767
010567
004767
035022
012703
012704

OO
PO
N
=

629 034446

006543
003102

——
WE
WO
WH

624 034424
625 034430
626 034434
627 034440
628 034442

012767
012701
0059021
005021

ooooor

-tk
oD d

TST
BNE

146414

*TEST 9

DRIVE RE ADY
;TEST 9

MOV
MOV
CLR
(LR
CLR
CLR
JSR
JSR

#TO9ERR ,ERHEAD
#NEWCYL ,R1

JSR
MoV
JSR
100%

PC,POSHSB

1008

MOV
MOV

(R1)+
(R1)¢

(R1)+
(R1)
PC,TSTINT
PC,GSTATIR

R5,DESHD

PC,SIMSEK

#MDRDY ,R3
#CDRDY,R4

;SET ERROR HEADER

19::

JGET POINTER TO DESIRED LoOC
sCLEAR NEWw CYL
CLEAR CURRENT (YL
DIFFERENCE
:
SIGN
AL I2E TEST
TA TUS WITH RESET

10 N H E AD SELECTED BIT
A ) 0 E SIRED HEAD
M
EXECUTE SIMPLE
SEEK

;SET NAME M E S SAGE PTR
0 POINTER
¢SET CONDIT ION

RLO1/02 DRIVE TEST 1
DRIVE READY

036452
034456
034460
034466
034470
034470
034472
034474
034476
034500
034500
034502
636 034504
637 034510
638 034514
639 034516
034516
640
641 034520
642 034524
643 034530
644 034532
034532
034534
034536
034540
645 034542
034542

034544

646 034546

647 034552
648 034560
649 034562
650 034564
651 034566
652 034712
653 034714
034714
034716
034720
034722
654 034724
034724
034726
655
656 034730
657 034734
658 034736
034736
034740
034742

034744

659 034746
034746
034750
660 034752
661 034756

004767
035022
032767
001406

MACRO V04.00 4-AuG-82 10:30:59 PAGE 9-19

16420

000001

JSR
100%
8IT
BEQ
ERRHRD

146356

104456

001605
000000

012646

104432
000320

012701
004767
035022

5§

104422

012703
026703
001406

000005
146330

012703
032767
001063
005301
0014.3

010404

000001

000676

146264

7%:

9s%:

104456

001607
000000
012716
104432
000074

005767
100006

146110

12%:

012766
104432

000052
012703
004767

15%:

sTEST READY SET

901.,,ERR4

;REPORT READY ERROR

CSERHRD
901
0
ERR&

TRAP
. WORD
MOV

8IT

BNE
DEC
BEQ
TIMDLY
BR
ERRHRD
TRAP
.WORD
.WORD
. WORD
EX1T
TRAP
.WORD
TST

BPL

TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
. WORD
MOV
JSR

sNO=-SKIP

TST

JEXIT

#81. ,R1
PC,GSTAT

2SET WAIT COUNT

CSEXIT
L10037~.

C$BRK

902., ,ERR7
CSERHRD
902
0
ERR?

ERRHRD

104456
001610
000000

zgRDYHSK,T.CS

ERRHRD

.WORD
-WORD
.WORD
EXIT

000000
013666

;GET STATUS

#5,R3

TRAP

SEQ@ 0115

PC,GSTAT

MOV

cMP
BEQ

104456
001606

104432
000256

TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
. WORD
MOV
JSR
100$
BREAK
TRAP

T,STAT,R3

JGET STATUS

JALLOW FOR A “C

;SET EXPECTED STATE VALUE
sCHECK STATE IS §
JYES=-SK]IP

JELSE REPORT

CSEXIY

L10037-,

#MDRDY ,R3
#DRDYMSK,T.CS

12%

93
1

903.,,ERRS

CSERHRD
903
0

;CHECK READY SET
JYES-SKIP
JELSE DEC WAIT COUNT
sSKIP IF O
;REPORT READY ERROR

ERRS
TST

CSEXIT
L10037-.
T.CS
158
904., ERR6
CSERHRD

sTEST IF ANY ERROR
:NO-SKIP

- 904

0
ERR6

TST
CSEXIT

L10037~.

#MHSTA,R3
PC,POSHSB

:SET NAME MESSAGE PTR
;POSITION HEAD SELECT BIT FOR TEST

CZRLIDO RLO1/02 DRIVE
*TEST 9

DRIVE

662
663
664
665
666

034762
034766
034770
034774
034776
034776
035000
035602
035004
667 035006
035006
035010
668 035012
035012
035014
035016
035020
669 035022
670 035022
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
035056

b cnd wed aah
——d
) el

b cmd

NN N U AN AN N W
A\ QV IV IV TV IV IV LV, 1V ]

COOOOOO0 o

o
0
O

698

NN
NN NI = —
RO
N

035056
687 035060
688 035064
689 035070
690 035072
691
692
693
694
695
696
697

020567
001415
005767
021406

TEST

READY

MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-20

14€124

104456

17%:

001612
000000
012532

208:
:
1008
ENDTST

L10037:

104401

.SBTTL
BGNTST

004767
004767
035460
004767
035460
012703
012704
004767
035460
032767
001406
104456

001751
000000
012646

DESHD

SELSE

006553
003102

145760

SYES=SKIP

17%
905.,,ERR3
CSERFRD

.WORD
WORD
.WORD
EXIT

905
0
ERR3
TST

.WORD
ERRHRD

L10037-.
906., ,ERR2

.WORD
WORD
.WORD

906
0
ERR2

TRAP

(CSETST

TRAP

104456

104402

;CHECK IF CORRECT HEAD SELECTED

208

TRAP

106432
000012

005021
052721
004767
010521

RS ,DESHD

BEQ
ERRHRD

001611
000000
0126060

012767
012701
005021
005021

CMP

BEQ

146116

SEQ 0116

DESIRED

CSEXIT

TRAP

«TEST

TEST

*NO-REPORT $8 0
‘ELSE REPORT SB 1

CSERHRD

SEEK SIGN SWITCH

STEST 10

MOV
MOV
CLR
(LR
CLR
BIS
JSR

#T10ERR,ERHEAD
SNEWCYL,R1
(R1)+
(R1)+
(R1)+
#8170, (R1)+
PC,POSHSB

161744
161756

TRAP
JSR
532

($BSUB
PC,TSTINT
PC.GSTATR

JINITIALIZE TEST
:GET STATUS

164054

ZSQ

PC.SIMSEK

;D0 SEEK

010404
011353

MOV

#MDRDY ,R3

;SET NAME MESSAGE PTR

ggg

PC,GSTAT

:GET STATUS

000001

165544
T1048:
BGNSUB

MOV

161762

000001

MOV

145720

BIT
8EQ
ERRHRD
TRAP
.WORD
LWORD
.WORD
EXIT

RS, (R1)+

#CDRDY ,Ré

#DRDYMSK,T.CS
(s
1001.. ,ERR4
CSERHRD
1001
0
ERR&
SuB
'Y

;SET ERROR HEADER

T10::

;CLEAR NEW CYL
:CLEAR CURRENT CYLINDER
:CLEAR DIFFERENCE
:SET FOR SIGN OF 1
:GET SELECTED HEAD

SSET AS DESIRED HEAD

110.1:

:SET CONDITION MESSAGE PTR

:CHECK READY RESET
SYES=SKIP
*REPORT READY ERROR

;EXIT SUBTEST

—

oo
W

RLO1/02 DRIVE TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE 9-~21
SEEK SIGN SWITCH

012703
020367
001406

709

710

035350

035352
035352
035354
035356
035360
721 035362
035362
035364

(9,22 3

000005

145672

722 035366
723 035372
724 035374

035374
035376
035400
035402
725 035404
035404
035406

726
727 035410
728 035414
729 035420
730 035424
731 035426
732 035432

035434
035434
035436

145626

7%:

9%:

001753
000000
012716

145452

128:

104456

001754
000000
012766
104432
000052

012703
004767
020567
001415
005767
001406
104456

001755

MOV

#5,R3
R3,T.STAT
’$
1002., ,ERR7
CSERHRD
1002
0

.WORD
.WORD
.WORD
EXIT
TRAP
. WORD

MOV

BIT
BNE
DEC
BEQ

TIMDLY
BR

104456

ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
.WORD
TST
BPL
ERRHRD
TRAP
.WORD
.WORD
-WORD
EXIT
TRAP
.WORD

010537
165200
145466

145460

15%:

PC,GSTAT

C$BRK

TRAP

010404
000001

#81. R

TRAP

CMP
BEQ
ERRHRD

000676

104432
000074
005767
100006

JSR

60%

104432

000256
012703
032767
001063
005301
001453

MOV

BREAK

104456
001752
000000
013666

71
© 1000 N O NS WNNY

.WORD

104422

706

NNNN NNV
n — b ced cod e b aned b

TRAP

000320
012701
004767
035460

705

7222

1044632

.EQ 0117

Mov
JSR
CMP
BEQ
TST

BEQ
ERRHRD
TRAP
.WORD

ERR?
sus
CSEXIT
L10041~.

#MDRDY ,R3

#DRDYMSK,T.CS

12$
R1
9%
1

;SET WAIT COUNT
;GET STATUS
sALLOW FOR A “(

JSET EXPECTED STATE
sCHECK STATE IS 5
sYES=SKIP
;REPORT STATE ERROR

JEXIT

sSET NAME MESCAGE PTR
sCHECK READY SET
sYES=-SKIP
;D0 WAIT COUNT
;SKIP IF O

5%
1003., ,ERRS

CSERHRD

1003
0
ERRS
sus
CSEXIT
L10041-.
1.CS
15%

sREPORT READY ERROR

SEXIT
;TEST IF ANY OTHER ERROR
:NO-SKIP

1004., ,ERRG
CSERHRD
1004
0
ERR6
SuB
CSEXIT
L10041~.

sREPORT ALL ERROPS

#MHSTA,R3

sSET NAME MESSAGE PTR
;GET SELECTED HEAD BIT
sCHECK IF CORRECT

PC.,POSHSB

RS ,DESHD

20§

DESHD
17%
1005., ,ERR3
CSERHRD
1005

JEXIT

JYES ~ SKIP
JWAS IT SET

sNO~SKIP
;REPORT SB 1

8._10
CZRLIDC RLO1/02 DRIVE TEST 1 MACRO v04.70 4-AUG-82 10:30:59 PAGE 9-22
*TEST 10
SEEK SIGN SWIT(H

035440
035442

000000
012600

035444
035646
735 035450
035450
035652
03545¢
236 035456

104432
000012

734 0356444

7640
761
742
743
7644
745

766
767
748
749

035462
035466
035470
035476
035500
035500

035500
035500

178:

104456
001756
000000
012532

104403

005767
001404
005067
000167

L10041:

145422
145414
177356

25%:
ENDTST

L10040:

104407

LSBTTL
BGNTST

032767

000010

753
754
755
756

005767
001006
026767
001004

145642

001411

757 035530

000167

035534
035536

104432
(000520

035546
035550
035554
035560
035564
035570
035574
035600
035602
035604

005046
156716
012746
016746
012746
012746
012746
010600
104417
062706

758 035534

759 035540
760
761 035546

762
763 035610

035610
035614

CSEXIT
L10041-.
1006., ,ERR2
CSERHRD
K06
O
ERRZ2

sue

;REPORT SB 0

ENDSUB

751 035502
035512
035516
035520
035526

TRAP
.WORD
ERRHRD
TRAP
.WORD
.WORD
.WORD

20%:
60$:

750 8%228;
752 035510

0
ERAR3Z

EXITY

737 035460
738 035460
739 035460

035460
055460

.WORD
.WORD

SEQ 0118

015767

012746
012746

145306

156616

145266

145242

CSESUB

DESSGN
25%
DESSGN
T1048

TRAP

CSETST

«TEST 11

sCHECK IF BOTH SIGN USED
JYES-SKIP
;SET FOR SIGN OF
;DO TEST AGAIN

HEAD AL IGNMENT SUPPORT
STEST 1

BIT

#HDALIGN, MISWIW :CHECK IF RUN HEAD ALIGNMENT

TST
BNE
CMP
BNE

PASNUM
1%
RLDkV, HADONE
2%

BEQ

145262

000422

TRAP

TST
BEQ
CLR
JMP

JMP

1$:

EXITY

2%:

MoV

TRAP
.WORD

sNO=EXIT

T115%

;G0 CHECK WRITE LOCK

CSEXIT
L 10042-.

RLDRV, HADONE

JTEST IF PASS 0
sNO-EXIT
;TEST IF HEAD ALIGN DONE THIS DRIVE
:NO - SKIP

sSET HEAD ALIGN DONE FLAG
sTELL DRV AND CNTRL HD ALIGN TO BE DONE ON

PRINTF #FMTS, #BASADD ,RLBAS,#DRVNAM,<B,RLDRV+1>

145257
006053
145242
006042
011567
000005
(000014
007154
011753

CLR
8IsB
Mov
Mov
MOV
MoV
MoV
MOV

=(SP)
RLDRV+1, (SP)
#DRVNAR,
- (SP)
RLBAS,-(SP)
#BASADD,~(SP)
NEMTS ,~(SP)
#5,-(SP)
SP,RO

ADD

n4,SP

TRAP

CSPNTF

PRINTF #FMT9, #HAMES

MOV
mMov

#HAMEST,
- (SP)
#FNT9,-(SP)

cHD ALIGN. RSETWRT LCK TO SEL HD O, SET WD 1

(ZoLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-53
«TEST

HEAD AL IGNMENT

012746
010600

00CJ0¢2

062706

¢00006

104417

764
765

MOV
Mov

TRAP
ADD

PRINT#
MoV

035660
035664
035670

007343
011753
000002

035676
035700

000006

035674

768
769
770 035704

035704
035710
035714
035720
035722
035724

44
772 035730

035730
035732
035736
035742
035746
035752
035756
035762
035766
035772
035774
035776

773
774 036002

036002
036002
775 036004
776 036010
777
778 036014
779 036022
780 036030
781
782 036036
783 036044
784

MOV
MOV
MOV
TRAP
ADD

000006

766
767 035660

007406

000002

005046
156716
012746
016746
012746
012746
012746
012746
012746
010600
104417

062706

000006

145075

145060

006042
010135
010121
011442
000007
000020

SP,RO
CSPNTF
#6,5P

NFMTO, #HAMES2
#HAMES?,
= (SP)
NEMT9,~(SP)
#2,~(SP)

:%C TO RET TO SUPVR (MD MOOE

SP,RO
CSPNTF

#FMT9 #HAMES3
#HAMES3,
- (SP)

PRINTF

#FMTO, FHAME S4
#HAMESS
, = (SP)
NEMT9,=(SP)
#2,-(SP)

PRINTF
CLR
81s8
MOV
MOV
MOV
MoV
mMov
MoV
MoV
MOV
TRAP
ADD

006053

&#2,-(SP)

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

Mov
MOV
MOV
MOV
TRAP
ADD

011753

062706

SEQ 0119

SUPPORT

007237
011753
000002
035652
035654

;IF HD SEL TP

(21, 22) DO NOT EXIST

NEMTY,~(SP)
#2,-(SP)

SP,RO
CSPNTF
#6,5P

;JUMPER DRV RDY AND SEEK INCOMPLETE ON DRV
;LOGIC mMOD

:SET WRITE LOCK

c:g;?P1.lOPR1ZA,00PR1A,#BASADD,RLBAS,lDRVNAfl.<8.RLDRv01>

RLDRV+1, (SP)

#DRVNAM,
= (SP)

RLBAS ,-(SP)
= (SP)
#BASADD,
#OPR1A
= (SP)
#OPR12A,=(SP)
SEMTOPY .- (SP)

#7,-(SP}
SP.RO

CSPNTE

#20,SP

BGNSUB
104402

c$8suUB
PC,TS/INT
DONE

145012
145004
145002

MOV
8IS
Mov

RLORV,L.CS
sSET UP FOR GET STATUS
#GTSTAT,L.CS
#GETSTAT!DRSET,L.DA

000004

MOV
Mov

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

004767
005067

118:

144776
144764

TRAP
JSR
CLR

000000

JINITIALIZE TEST
sCLEAR DONE

;DO GET STATUS

(ZRLIDO RLO1/02 DRIVE
«TEST

785
786

036052

790 036064
791 03607¢
792 036674

036102

036104
036112
036120
797 036126
798 036134
799 036142
036142
800
801 036144
802 036150
803 036152
804 036154
805 036154
036154
036154
036156
036156
036156
036156
036160
036164

036170
036172
036200
036202
036202
036206
036212
036216
036220
036222
036226
036232
036232
036234

005767
001775

005067
012767
000249
032767
001003
042767
016767
052767
016762
016762

D 10

MACRO V04 .00 4~AUG-82 10:30:59 PAGE 9-24

HEAD ALIGNMENT

787 036056
788
789 036060

793
794
795
796

TEST

144730
144722

000021

1464746

020000

144750

000020
1464714
000106

144726
164714
144706

144706

144674

13%:

TST
BEQ

DONE
138

20%:

MoV
NOP

CLR

DONE
#HDSEL !MBSETO, L. DA;LOAD FOR HEAD 1

8IT
BNE
8IC

NWLSTAT,
T .MP

22%:

000004
000000

30$:
59%:
ENDSUB

L10043:

1046403

104402

004767
004767
036254
032767
001425
012746
012746
012746
010600
104417
062706
005067

T115%:
BGNSUB
160644
160656

020000
010102

18$:

011753

000002

BREAK

C$BRK

JALLOW OPERATOR TO INTERRUPT PROGRAM TO GET

DONE

TRAP

CSESUB

TRAP

{$8SU8

146112

19¢:

118

PC,TISTINT

20$:

T11.2:

JINITIALIZE TEST

BIT
8EQ

MILSTAT, Y WP
19%

;CHECK WRITE LOCK RESET
JYES~-SK]P
*REQUEST WRITE LOCK RESET

PRINTF

MoV
MOV
MOV
Mov

#FMT9 FOPR12

#OPR12,~(SP)

#FNT9,~(SP)

#2,-(SP)
SP,RO

CSPNTF
#6,5P
OBUF¢
;CLEAR FOR RESPONSE
OPR00Z2 ,0BUFF,1,NO
sGET RESPONSE

CSGMAN

BR
-WORD
.WORD
.WORD
.WORD

100008
OBUFF
T$CODE
?PROOZ

TST
BEQ

OBUF¢
18%

TRAP

($ESUB

ENDSUB

L10044:

;Lo0P

;CLEAR DRIVE

50%:

104403

;/BACK TO SUPERVISOR COMMAND MODE

PC.GSTAIR

GMANIL

:
100008

308

sLOAD & EXECUTE SEEK

JSR
JSR

TRAP

000404
004364
000120
007470
000001

L.DA,RLDA(R?)
L.CS,RLCSR(RZ)

TST
8EQ
B8R

TRAP
ADD
CLR

000006
146132

104443

005767
001753

81Ss

603

144652

;CHECK IF WRITE LOCK SET
JYES=SKIP

JELSE CLEAR TO HEAD O
sLOAD [N DRIVE NUMBER
JSET FOR SEEK

TRAP

144636

228

sCHECK IF DONE
:NO-GO CLR CONTROLLER

#HDSEL ,L.DA
RLDRV,L .CS
#SEEK,L.CS

MOV

MOV
MOV

104422

005767
001775
000716

SEQ 0120

SUPPORT

sWAS ANSWER YES
sNO-REPEAT REQUEST

CZRLIDO RLO1/0Z DRIVE TEST 1 MACRO V04.00 4-AUG-82
*TEST N
HEAD AL IGNMENT SUPPORT

822 036256
036256
036256
823
824
825
826
827 036<60
036260
828 036260
829 036266
830 036272
831 036274
832 C36276
833 036300
834 036302
835 036306
836 036306
036306
036306
837 036310
838 026314
839 036320
840 036322
841 036326
842 036330
843 036334
844 036340
845 036344

846 036346
847 036354
848 036356
036356
036360
036362
036364
849 036366
036366
036370

SEQ 0121

ENDTST

110042:

104401

+SBTTL
BGNTST

012767
012701
005021
005021
005021
005021
012721

104402

004767
004767
036710
004767
036710
012703
012704
004767
036710
032767
001406

006573
003102

144524

11248:
BGNSUB

160514
160526

010404
011353
160532
144470

012701
004767
036710

856 036406
857 036412
858 036416

012703
020367
001406

036420
036422
036424
036426
860 036430
036430
036432

104456

104432
000256

c$8sUB

.WORD
EXIT

000121

160474

104422

002262
000C00
013666

TRAP

-WORD

000320

000005
144442

5%:
6s:

JTEST 12

MoV

TRAP

104432

HEAD SWITCHING
#T12ERR,ERHEAD
#NEWCYL
,R1T
(R1)+
(R1)+
(R1)+
(R1)+
#1,(R1)+

JSR
JSR
60%
JSR
60%
MOV
MOV
JSR
608
BIT
BEQ
ERRHRD

162624

000001

*TEST 12

CLR
CLR

000001

(SETSY

TRAP

MOV
MOV
CLR
CLR

104456
002261
000000
012646

851 036372
852 036376
853 036402
854 036404
036404

859 036420

E 10

10:30:59 PAGE 9-25

T12::

:SET ERROR HEADER
sGET POINTER TO DESIRED LOCATIOM
;CLEAR NEW CYLINDER
JCLEAR CURRENT (CvYL.

JCLEAR DIFFERENCE
sCLEAR SIGN

JSET FOR HEAD 1

T12.1:

PC,TSTINY
PC.GSTATR

sINITIALIZE TEST
sGET STATUS WITH RESET

PC,SIMSEK

;D0 SEEK

#MDRDY ,R3

sSET NAME MESSAGE PTR
sSET CONDITION POINTER
sGET STATUS

#CORDY,R4
PC,GSTAT

sCHECK ]F READY

gDRDVHSK.T.CS
S
1201., ,ERRS
CSERKHRD
1201

;NO=-SKIP
:REPORT READY ERROR

0
ERR4

TRAP
.WORD

sus

CSEXIT
L10046~.

SEXIT

MOV
JSR

#81, .R1

sSET WAIT COUNT
sGET STATUS

TRAP

C$BRK

MOV
CMP

43,R3
;S.T.STAT
$

TRAP
.WORD

CSERHRD
1202

608
BREAK

BEQ
ERRHRD

PC,GSTAT

1202., ,ERR7

. WORD

0
ERR?

TRAP
.WORD

CSEXIT
L10046~.

.WORD

EXIT

sus

JALLOW FOR A “C
sSET EXPECTED STATE VALUE
JCHECK IF STATE IS S
JYES~SKIP
;REPORY STATc ERROR

t 10
CZRLIDO _RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-26
*TEST 12
HEAD SWITCHING

861
862
863
864
865
866
867
ggg

036436
C36440
036446
036450
036452
036454
036600

870 036602
036602
036604
036606
036610
871 036612
036612
872 036614
873 036616
874 036622
875 036624
036624
036626
036630

036632
876 036634
036634
036636
877 036640
878 036644
879 036650
880 036654
881 036656
882 036662
883 036664
036664
036666
036670
036672
884 036674
036674
036676
885 036700
036700
036702
036704
886 036706
887 036710
888 036710
889 036710
036710
036710
890 036712
891 036716
892 036720
893 036724

012703
032767
001063
005301
001453

010404
000001

144376

78:

MOV
BIT
BNE
DEC
BEQ
TIMDLY
B8R

#MDRDY ,R3
#DRDYMSK,T.CS
12%
R1
9$
1
63

sSET NAME MESSAGE PTR
;CHECK DRIVE READY
sYES-SKIP
sDEC WAIT COUNT
JSKIP IF 0

9¢:

ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
.WORD

1203., ,ERRS
CSERHRD
1203
0
ERRS
sus

sREPORT READY ERROR

TST
BPL
ERRHRD
TRAP
WORD
.WORD
.WORD
EXITY
TRAP
.WORD
Mov
JSR
Cmp
oEQ
¥ST
BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD
EX1T
TRAP
LWORD
ERRHRD
TRAP
.WORD
JWORD
.WORD

T.CS
15$
1204.,,.ERRS
CSERHRD
1204
0

sTEST IF ANY ERROR
sNO=SKIP
SREPORT ALL ERRORS

ERR6
sus
CSEXIT
L10046-.
#MHSTA R3
PC,POSHSB
DESHD,RS
208
DESHD
17¢
1205., ,ERR3
CSERHRD
1205
O
ERR3
suB
CSEXIY
L10046~-.
1206.,,ERR2
CSERHRD
1206
0
ERRZ

TRAP
TST
8tQ
CLR
JMP

(SESUB
DE SHD
25%
DESHD
71248

000676
104456
002263
000000
012716

104432
000074
005767
100006

144222

128:

104456
002264
000000
012766

104432
000052
012703
004767
026705
001415
005767
001406

019537
163750
144236

158:

144230

104456
002265
000000
012600

104432
000012

17$:

104456
002266
(000000
012532

104403
005767
001404
005067
000167

20%:
60$:
ENDSUB
L10046:

144174
144166
177356

SEQ 0122

CSEXIT
L10046~.

JEXIT

sSET NAME MESSAGE PTR
sPOSITION HEAD SELECT BIT
sCHECK IF CORRECT HEAD SELECTED
s YES-SKIP
;WAS HEAD O SELECTED
sYES-SKIP
sREPORT HEAD S8 1

SEXIT
;ELSE REPORT HEAD SB 0

JCHECK [F HD O WAS DONE
s YES=SKIP
SELSE SET TO HEAD 0
;REDO TEST

(ZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AuUG-82 10:30:59 PAGE 9-g7
12

894 036730
895 036730
896
897
898

.tQ@ 0123

HEAD SWITCHING

036730
036730

$:
ENDTST

L 10045:

104401

899

.SBTTL
BGNTST

900 036732

036732
901 036732
902 036740
903 036744
036746
036750
036752
036754
036756
036756
036756
036756
036760
036764
036770
036772
036776
037000
037004
037010

037012

037016
037020
037024
037030
037034
925 037036
037036
037040
037042
037044
926 037046
037046
037050
037052
037052
037054
037056

037060

037062
037062
037062
037062
037062
037064
037070

012767
012701
005021
005021
005021
005021
005021

104402
004767
004767
037062

004767
037062
012701
004767
037062

004767
037062
012703
004767
020567
001412

006605
003102

144052

TRAP

*TEST 13
MOV

160044
160056

162154

PC,SIMSEK

;D0 SEEK

#81. R

sSET WAIT COUNT

PC,RDYWALT

sWAIT FOR READY

JSR

PC,XROHDC

;D0 READ HEADER

MOV

#MHSTA,R3

;SET NAME MESSAGE PTR

cMp

RS . DESHD

:CHECK IF HEAD CORRECT

PC.,POSHWT
15§

1301...ERR3

(SERHRD

.WORD
.WORD
.WORD

1301
0
ERR3

.WORD
ERRKRD

L10050~.
1302.,,ERR2

TRAP

002426
000000
012532

T13.1:

JSR

EXIT
TRAP

104456

sCLEAR HEAD

JINITIALIZE TCST
sGET STATUS W/RESET

TRAP

17%:

sCLEAR SIGN

PC,TSTINT
PC,GSTATR

ERRKRD

000012

(R1)+

.WORD

SYES=SKIP

*REPORT SB 1

;REPORT SB 0

1302

.WORD

TRAP
TST

CSESUB
DE SHD

.WORD

;POSITION HS BIT IN HD WRD 1

SUB
CSEX1T

CSERHRD

ERRZ2

158

60%
END

104403

005767
001007

L10
144022

BNE

208

T13::

JGET ADDRESS OF DESIRED LOCATIONS

JSR
JSR
20s

BEQ

104432

sCLEAR NEW CYL
sCLEAR CURRENT CYL
sCLEAR DIFF

($BSuUB

JSR

104456
002425
000000
012600

(R1)+
(R1)+
(R1)¢

TRAP

60$

163562
144056

;SET ERROR HEADER

(R1)+

CLR

608

010537

#T13ERR,ERHEAD

CLR

JSR

163112

sTEST 13

#NEWCYL R

60%
MOV

000121
163640

READ HEADER (PART 1)

MOV

CLR
CLR
CLR

T1348:
BGNSUB

CSETST

S®

«TEST

sTEST

IF HEAD 1

JYES=SKIP

DONE

CIRLIDO _RLO1/02 DRIVE

«TEST

934
935
936
937
938
939
940
941
942

037072
037100
037106
037110
037116
037124
037132
037134
037140
037140
37142

037144
037146

943 037150
944 037150
037150
037150
945

TEST

READ HEADER

012767
016767
000723
062767
042767
026767
001406
012703

H 10
MACRO v04.00 4-AuG-82 10:30:59 PAGE 9-28

(PART

00¢ 01

143746

SEQ 0124

144012

MOV
MOv

144010

20$:

000177
000177
143766

007070

BR
BIC
81C
CMP
BEQ
MOV

104456

002632
000000
012464

22%:

ERRHRD
TRAP
.WORD
. WORD
-WORD

#1,DESHD

HDWRD1, TEMPO

T134$

#177,TEMPO
#177 'HDWRD1

TEMPO, HDWRD1

22%

#CYLPER,R3

1306., ERR1
CSERHRD
1306
0

SELSE SET TO HEAD 1
sSTORE HDR WORD 1
;DO _TEST AGAIN
sCLEAR ALL BUT CYLINDER IN 1ST HEADER
sCLEAR ALL BY CYL IN 2ND HEADER
sCOMPARE IF EQUAL
JYES-SKIP
¢SET NAME MESSAGE TR
JREPORT HEAD AL IGNMENT PROBLEM

ERR1

ENDTST

L10047:

104401

TRAP

CSETST

946

947
948
949 037152

037174
037174

958 037176
959 037202
960 037206

961
962
963
964
965
966

037210
037214
037216
037222
037226
037230

967 037234
968 037236
969 037242

970 037250

971 037252
972 037256
973 037262
974 037266
975
976 037270
977 037274
978 037300
979 037302
980 037306
981

012767
012701
005021
005021
005021
005021

104402

004767
004767
037406
004767
037406
012701
004767
037406
004767
037406

006621
003104

143632

157626
157640

000100
143612
000100
000002

143534

(PART 2)

T14::

;SET ERROR HEADER
sGET ADDRESS OF DESIRED VALUE

JCLEAR CURRENT CYL

JCLEAR DESIRED DIFF
JCLEAR SIGN
JCLEAR DESIRED HEAD
114.1:

PC,TSTINY
PC,GSTATR

JINITIALIZE TEST
:CLEAR DRIVE

PC,SIMSEK

;D0 SEEK

MOV
JSR

#200. ,R1

PC,RDYWALY

sSET WAIT COUNT FOR 20 MS
sWAIT FOR READY

JSR
60%

PC,RDALHD

;DO READ HEADER ALL HEADERS

MORECE
ggDRCHP.OPFLAG

sCLEAR MORE COMPARE ERRORS FOR REPORT
sSET HDR COMPARE FLAG

60$

164114

003764
003116
000050

C$BSUB

60%

000310
163422

143552
000002

TRAP

JSR
JSR
608
JSR

161736

READ HEADER

CLR
CLR
CLR
CLR

Mov

T1538:
BGNSUB

JTEST 14

#T14ERR,ERHEAD
#CURCYL ,R1
(R1)+
(R1)+
(R1)+
(R1)+

MOV

CLR
8IS
CLR
MOV
MoV
MoV
MoV

8I¢
S
3
)
L

DLNO
—~

037152

037152
037160
037164
037166
037170
037172
037174
037174

*TEST 14

MO
-~

950
951
952
953
9546
955
956
957

.SBTTL
BGNTST

#1BUFF R4

#TEMPO RS

#40,
Ri

. (RS)
(R4

#HDHSEL
, (RS)

DE SHD
108
#HDHSEL
, (RS)

2(RS)

;CLEAR FOR HDR COUNT
¢GET POINTER FOR HDR TO BE CHECKED

;GET POINTER TO TEST AREA
:SET HDR COUNT
;GET FIRST HEADER WORD
;TEST IF HD O DESIRED

JYES=SKIP
;ELSE SET HEAD BIT

;CLEAR 2ND WORD OF TEST AREA

LZRLIDO RLO1/702 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9- 29
*«TEST 14
READ HEADER (PART 2)

021524
001406
005744

108 :

104456
002735
000000
014076

005724

005203
005724
001406
022544

13%:

002735
000000
014076

992
994
995
996

005724
005203
005215
011500

1000
1001
1002

022700
001002
042715
005301
001342

042700

997
998

1003
1004 037406
1005 037406

urfird

-0

—t — cmd o
md b = a—d
lole] OCOO0O0O0O0O0
nono PORNOPVINY b b
(VX
o W= OOV -~,

b b amd b

— D o e
OO0O0O0O0

——

037406
037406
1006 037410
1007 037414
1008 037416
1009 037424
037430
037430
037430
037430

15¢:

177700

000050

000077

178:

057440
037446
037452
037456
037460
037466

037470

;COMPARE HEADER WORD
‘SKIP IF OK
JELSE POSITION R4 TO BAD WwORD

INC
ST
BEQ
CMP

R3
(R4) +
15¢
(RS)+,=(RG)

;BUMP WORD COUNT
STEST 2ND WORD S 0
‘YES - SKIP
JPOSITION PTRS FOR REPORT

TRAP

CSERHRD

TST

(R4G)+

;BUMP R4 TO NEXT WORD

1501.,,ERR10

:REPORT ERROR

1501
O
ERR10

<(R5), (R&)+

8lIc

#°CHDSEC,RO

TST
INC
INC
MOV
CMP
BNE
BIC
DEC
BNE

JREPORT ERROR

(RG)+
R3
(RS)
(R5) ,RO

;REPOSITION POINTER

‘POSITION R4 PAST ECC WORD
‘BUMP WORD COUNT
*BUMP SECTOR COUNT
:CHECK IF SECTOR IS PAST LAST SECTOR

#40.,RO0
17¢
#HDSEC, (RS)
R1
108

;NO~SKIP
*ELSE CLEAR SECTOR 10 0
:DEC HDR COUNT
‘YES-SKIP

TRAP
TST
BNE
MOV

CSESUB
DE SHD
208
#1,DESHD

;CHECK IF HD 1 TESISD
SYES=SKIP
*ELSE SET TO HEAD 1

TRAP

CSETST

608:

ENDSUB

104403
005767
001005
012767

000167

L10052:

143476
000001

177544

143466

208
ENDTST
L10051:

104401

LSBTTL

037432
037432
037432

(RS),(R4)+
138
-(R4)
1501.,.ERR10
CSERHRD
1501
0
ERR10

.WORD
WORD
-WORD

024524

SEQ 0125

CMP
BEQ
TST
ERRHRD
TRAP
.WORD
WORD
.WORD

ERRHRD

104456

BGNTST

012767

006645

004767

157356

012767

004767
040076
022767
001404
012767

000004

143352

143450

157370

JMP

*TEST 15

142610

177776

143624

SREDO TEST

DIFF ensuce OF 1 SEEK (PART 1)
STEST

Moy

0921015 ERHEAD

JSR

pc TSTINT

T1765%
CMP
BEO
MOV

#1,T.DRIVE
28
#-2,TEMP2

MOV
JSR

000001

T143¢

T15::

:SET ERROR HEADER

4. TEMP)

*SET PASS COUNT

PC.GSTATR

SGET STATUS

SINITIALIZE TEST
:RLOT OR RLO2?
:BRANCH TO SET UP DIFF ARGUMENT FOR RLO1
‘ELSE., SET =2 INTO DIFF ARGUMENT FOR RLO2

LIDO RLO1/02 ORIVE TEST 1
ST 15
DIFFERENCE OF
1026
1027 037476
1628 037500
1029 037506
1030 037512
1031 037516
1032 037522
1033 037522

037522
037522

1034 037524
1035 037530
1036 037532

5¢:

1172»:
8GNSUB

MOV

MOV
MOV
JSR

TRAP

163472

JSR
608

#-1,TEMP2

#CURCYL
R4
ANEWCYL
RS
PC, CHOSHD

PC,GETPOS

037536

103005

B8CC

49 037574

50 037576
51 037604
037606
037614
037616
037620
037622
037630
037632
037640

000421
012767

000415

BNCOMPLE TE

162336
143344
142516
000001

142502

177776

143316

177777

143306

005714
001013
022767

000001

012767

037642
037650

012767
066715

037654
037654
037656
037662
037664

104422
004767
040032
004767

037670
037674

012703
020367

70 037700
71 037702

037702
037704
037706
037710

1072 037712

001404

000403

3g:
is:

68:
78:

B8R

8s
#=1,TEMP2

142446

ST
BNE
CMP

(R4)
8s
#1,T.DRIVE

000002

143262

MOV

#2,TEMP2

000001
143246

143252

MOV
ADD

#1,TEMP2
TEMP2, (RS)

11$:
8s:
9%:

B8R

BREAK

sSET =1 INTO DIFF ARGUMENT FOR -1 SEEK
sSET POINTERS
;GO CHOOSE HEAD

;GET POSITION

;CHECK IF [N ERROR LOOP

(R4), (RS)
48
PC.,ONSWAP
98
TEMP2
(R4), (RS)
HLMTW, (R4)
78
#1.T.ORIVE
63
#-2,TEMP2

BEQ

11§

sNO = SKIP
sCHECK IF CURRENT
= NEW
:NO = SKIP

;ELSE SWAP OLL AND NEW
sSKIP 10 SEEK

:CHANGE DIFF ARGUMENT FOR OPPOSITE DIR
sMOVE CURRENT INTO OLD

sCHECK IF CURRENT AT 255
sNO - SKIP

sRLOT OR RLO2?

sBRANCH IF RLO1

;ELSE, SET UP DIFF ARGUMENT FOR RLO?2
:g;lgAX CYL, MAKE NEXT SEEK REV

sTEST IF CURRENT AT 0
sNO - SKIP
;RLOT OR RLOZ2?
:BRANCH IF RLO1
sELSE, SET UP DIFF ARGUMENT FOR RLO?2
sAT CYL O, MAKE NEXT SEEK FWRD
:ADD DIFF

TO NEW CYL

:/+2 OR =2 FOR RLO2)
TALLOW A AC

C$BRK
PC.,XSEEK

160312

TRAP
JSR
608
JSR

PC,GORSTA

:GET DRIVE STATE

000004
143160

MOV
CMP

ca as
LSTAT

104456

ERRHRD
TRAP

101 ean7
CSERH

sSET EXPECTED STATE
;CHECK DRIVE STATE
s YES=SKIP
sREPORT STATE ERROR

000442

B8R

001405

000145
000000
013666

160500

BEQ

.WORD
WORD
.WORD

i
101
O
ERR7

168

TRACK DENSITY OF

sALLOW FOR A “(

CMP
BNE
JSR
BR
NEG
MOV
CMP
BNE
CMP
BEQ
MOV

BR
MOV

THE

115.1:

($BSUB

CSINLP

021415
001005
004767
000441
005467
011415
026714
001014
022767
001404
012767

SEQ 0126
:/(RLO2 HAS DOUBLE

INLOOP
TRAP

048 037566

§§§§§ §§§§3oooooooooo

28%:

B8R

104420

037544
037550
037552
037556
1046 037560
1047 037564

b et b cnd wd ad D —d b — —d

0046767
040032

14344

037534

1042
1043
1044
1045

—d vl ad il e

104402

177777

003104
003102
162276

(PART

C$BRK

1040 037540
1041 037542

— el cd d cod b b b
02O

012704
012705
004767

SEEK

BREAK
TRAP

1039 037536

012767

104422

1037
1038 037534

52
53
54
55
56
57
58
9

000403

MACRO Vv04.00 4-AUG-82 10:30:59 PAGE 9-%0

;00 SEEK

JEXIT TEST

(+1

OR -1

FOR RLO1,

RLO1)

DIFFERENCE OF

1075
1076
1077
1078

1079
1080
1081
1082
1083

037714
0357720
037736
037742
037764
037750
037752
037756
037760
037764
037766

037776
040002
040006
040010

040010
040012
040014
040016

040020
040024
040030
040032
040040

040040
040040

1084 040042

0460042
040044

1085 040046
1086 040052
1087
1088 040054
1089 040062
1090 040064
1091 040070
1092 040072
1093 040076
1094 040076
1095 040076

060076
040076

000372

MOV
WAITMS
MOV

#5.R3
20"
#250.,(PC)+

142146

MOV

LSDLY, (PC)+

012703

00€J05

012727
000000

016727
000000
005367

001375
005367
001367
104422

004767
020367
001404

108:

LWORD

177772

160200
143052

222(PC)
.~20

162620

000002

142756

($BRK
PC,GDRSTA

:GET DRIVE STATE

BEQ

16$

SYES=SKIP

102.,.ERR7

CSERHRD

$1S STATE 52

‘REPORT STATE ERROR

16$%:

102
0
ERR?
#50. ,R1

;INITIALIZE WAIT COUNT

60%:

MOV

#2,ERRSWI

;INIT ERROR SWITCH

TRAP
ESCAPE
TRAP

CSESUB
TST
CSESCAPE

;5XIT TEST

TEMPO

sDEC PASS COUNT

ENDSUB

143044

332

143034

161754

16O WAIT FOR DRIVE

BEQ

248

JSKIP IF 0-DONE

BIT
BNE

#8110,TEMPO
23%

STEST IF PASS=2
sNO-SKIP

24$%

PC,SWAPHD

JMP

T172%

TRAP

CSETST

READY

IF ERROR

L10053-.

JSR

23%:
248:

PC,ROYWALT

.WORD

DEC

177424

R3 T.STAT

LWORD
"WORD
.WORD
MOV

L10054:

000001

.=k

TRAP
JSR

TRAP

104410

032767
001003
004767
040076
000167

DEC
BNE

ERRHRD

104403

000032
005367
00141

0
-6(PC)

cMP

000062

;SET EXPECTED STATE
‘WAIT 20 MS FOR DRIVE STATE CHANGE FROM 4 TO §

LWORD
DEC

BNE

177756

104456
000146

000000
013666
012701
004767
040032
012767

SEQ 0127

SEEK (PART 1)

;GO SWAP TO HEAD 1 OR END TEST

;ABORT RETURN

T1765%:
ENDTST

L10053:

104401

.SBTTL
BGNTST

012767
012767
004767
004767
040372
004767
012767
012703
012704

006645
000004
156710

142704
143002

156722

161666

1772777

003102
003104

142762

«TEST 16

DIFFERENCE OF

:TEST 16

SEEK (PART 2)

MOV
MOV

#P2T02E ,ERHEAD
24, TEMPO

;SET ERROR HEADER
$SET PASS COUNT

f?gcss

PC.GSTATR

:GET STATUS,

JSR

PC TSTINT

#NEWCYL,R3

*GET ADDRESSES

Mov

#CURCYL
R4

MOV

CLEAR DRIVE

;60 CHOOSE HEAD

#-1,TEMP2

SINITIALIZE TEST

PC,CHOSHD

MOV

*SET DIFF ARGUMENT TO -1 (REVERSE)

L_10
RLO1/02 DRIVE TEST 1 MACRO vQ4.00 &-AuG-82 10:30:59 PAGE 9-32
DIFFERENCE OF
SEEK (PART ?2)

—

8 BN BN BN NN N N NN N N W W NI N RO NI NN NI NI N A =

QVOWJ‘WN-‘OOWVO‘WJ\WN—‘OOOVO*U‘*WN—‘BO
— O

VAN

b
e
—

b d

b crd d

D e

b nd o

b e

wd d

b e

e md

—

040150
040154
040154
040154
040154
040156
040162
040164
040164
040166
040166
040170
040170
040172
040174
040176
040202
040204
040210
040212
040216
040220
040226
040230
040232
040234
040242
040246
040252

040254
040260

040264
040266
040272
040274
040276
040300
040304
040306
040310

40312

040316
040320
040320
040322
040324
040326
040330
040330
040336

040336
040336
1152 040340
040340
040342

1153 040344

012705

104402

004767
040330

002100

T187%:
BGNSUB

163040

TRAP
JSR

($85UB
PC,GETPOS

BREAK

104420
103005

011413
026714
001004
012767
000405
005714
001003
012767
066713
004767
040330

#OLDCYL,RS

60%

104422

021413
001005
004767
000421
005467

MOV

161702

38:

142712

48:

142064

17}777

INLOOP
TRAP

CSINLP

BNCOMPLETE
3%
8c(
3s
CMP
(R4), (R3)
BNE
4%
PC,ONSWAP
JSR
BR
98
NEG
TEMP?
MOV
(R4), (R3)
CMP
HLMTW, (R&)
MOV

142660

98:

160110

($BRK

BNE

142674
I ¥

000001
142654

TRAP

142604

608

wovV

SuB

ENDSUB

L10056:

104403
104410

000030
005367

12$:

142546

JSKIP

(R4)

PC,XSEEK

(RS) ,R1

sAT MAX CYL, MAKE NEXT SEEK REV

sTEST

CURRENT AT 0

;NO ~ SKIP

sAT CYL 0, MAKE NEXT SEEK FWRD

+ADD DIFF TO NEW CYL (+1 OR -1)
;DO SEEK

108
(R4) ,R1
(RS) R1

;GET OLD POSITION
sSUBTRACT FROM NEW POINTER (FORWARD)
sCHECK IF SIGN FORWARD
SYES-SKIP, ELSE SUB FOR SEEK REVERSE
sGET NEW CYLINDER
;SUBTRACT FROM OLD CYL

201.,,ERRS

;YES=SKIP
<ELSE REPORT ERROR

(R4) .R1

CMP
BEQ

#1,R1
12%

.WORD

60%:

#-1,TEMP2

DESSGN

TRAP

14246C

;CHANGE DIFF ARGUMENY FOR OPPOSITE DIR
sMOV CURRENT INTO NEW
sCHECK IF CURRENT AT 255
;N0 - SKIP

TST

BEQ
MOV
SUB

ERRHRD

£00002

sSKIP TO SEEK

sSTORE POSITION

005767
001402
011401
161501
022701
001404

012767

;CHECK IF CURRENT = NEW

;NO - SKIP
JELSE SWAP OLD AND NEW

PC.GETPOS

JSR

104456

;NO - SKIP

sSET WAIT COUNT FOR 15 MS
sWAIT FOR READY

162730

000311
000000
013736

IN ERROR LOOP

;CHECK [F

PC.ROYWALT

JSR

:
108

JALLOW FOR A “(

#150. ,R1

JSR

608
MOV

000001

;GET CURRENT POSITION

8$
#1,TEMP2
TEMPZ, (R3)

000226

161401

T16.1:

BNE
MOV
ADD

012701
004767
040330
004767
040330
011501

162364

SEQ 01728

(SERHRD

sCHECK IF RESULT IS DIFFERENCE OF 1

201

.WORD
.WORD

0
ERR8

MoV

#2 ,ERRSWI

JINIT ERROR SWITCH

TRAP
ESCAPE
TRAP
.WORD
DEC

CSESUB
TST
CSESCAPE

;EXIT TEST IF ERROR

L10055-.
TEMPO

;DEC PASS COUNT

DIFFERENCE OF

001410

032767
001003
004767
040372
000671

000001

SEQ 0129

SEEK (PART 2)

142536

161456

208:
30%:

8tQ

308

SEXIT IF DONE

8Ir
BNE
JSR
308
BR

#BIT0,TEMPO
208
PC.,SWAPHD

;TEST JF PASS 1 OR 3
;YES-SKIP
;GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN
;LooP

TRAP

CSETST

T187%

T1865$%:
ENDTST

040374

040374
040374
040374

000030

040376
040376
040406
040402

005130
040542
000001

N —

-——

oo~

0o~
o0
Qo oo

—

—a
—

—

040404
040404
0460406
040410
040412

—

104401

000031
040456

ENDMOD

.SBTTL
B8GNMOD
BGNHRD

PARAMETER CODING
HRDPRM

GPRML

CNTYPE,CNT,1,YES
.WORD
T$CODE
.WORD
CNTYPE
.WORD
1

GPRMA

CSRMSG,CSR,0,160000,177776,YES
.WORD
TS$CODE
.WORD
CSRMSG
.WORD
TSLOLIM
.WORD
TSHILIM

GPRMA

VE(MSG,VECT,0,0,776,YES
.WORD
TSCODE
.WORD
VECMSG
.WORD
TSLOLIM
WORD
TSHILIM

GPPMD

DRMSG,DRSB,0,3400,0,7,
YES
.WORD
TSCODE

160000
177776

0460414
040414
040616
040420
040422

001031
040472
0000600
000776

040424
040424
040426
040430
040432
040434

004032
040534
003400
000000
000007

040436
040436
040440
040442

003130
040512
000001

0404644
040444
040446
040450
040452
040454

002032
040501
000340
000000
000007

040456

L1005S5:

.WORD L10057~L$HARD/2

.WORD

DRMSG

.WORD
.WORD

TSLOLIM
TSHILIM

.WORD

GPRML

DRTYPE ,TYPDR,1,YES

.WORD

.WORD
.WORD
GPRMD

TSCODE

DRTYPE
1

BRMSG,PRIOR,0,340,0,7,YES
.WORD
.WORD

T$CODE
BRMSG

.WORD

TSHILIM

.WORD
.WORD
ENDHRD

3400

.EVEN

340
TSLOLIM

CZRLIDO RLO1/02 DRIVE

PARAMETER

CODING

TEST

N 10
1 MACRO v04.00 4-AuUG-82 10:30:59 PAGE 9-34

L10057:

040456

1183
1184
1185
1186 040456

040461
040464
040467

1187
1188 040472

040475
040£C0

1189
1190 040501

040504
040507

1191
1192 040512
040515

040520
040523
040526
040531

1193
1194 040534

040537

1195
1196 040542
1197

040545

.EVIN
102

125
101
122
123

123
104
105
000

(SRMSG:

.ASCIZ

/BUS ADDRESS/

126

105
nz

103
122

VECMSG:

.ASCIZ

/VECTOR/

102

122
105
114

040
126
000

BRMSG:

.ASCIZ

/BR LEVEL/

104
126

122
105
131

111
040
120

DRTYPE:

.ASCIZ

/DRIVE TYPE = RLO1/

122
061

114
000

040
104
123

1264
000
114
105

124
105
040
060

1204

040550

1205 040552
040552
040554
040556

1206
1207 040560
040560

122
105

111
¢00

DRMSG:

.ASCIZ

/DRIVE/

122

114
000

061

CNTYPE:

.ASCIZ

/RL11/

126

061

-——a

nno

ENDMOD
.EVEN

000016

000130

040562
040564

040566
040570
040572

000130
040700
100000

040574
040574
040576
040560

004052
040735
000377

BGNMOD
BGNSFT

SFTPRM

GPRML

SELQ,MISWI,
4, YES
.WORD
TSCODE
.WORD
SELQ
“WORD
4

GPRML

ALGNQ,MISWI,10,YES

040606
000004

000130
040641
000010

1208
1209 040566

075

104

1198 040547
1199
1200
1201
1202 040550
1203 040550

040

.WORD L1G060~-L$SOFT/2

.WORD

TSCODE

ALGNQ

GPRML

MANQG,MISWI,100000,YES
.WORD
TSCODE
.WORD
MANQ
.WORD
100000

3$:

GPRMD
.WORD

ERLIMQ,ERLIM,D,377,0,377,YES
TS$SCODE

.WORD

377

.WORD

ERLIMQ

SEQ 0730

C/RLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE 9-%5
040602
040604

.WORD
.WORD
ENDSFT

040606

L10060:

TSLOLI
TSHILI!

.EVEN

md h d d d b

OIS ONINONO
OWOWVMWO SN

ALGNQ:

(ASCIZ

/EXECUTE

MANQ:

LASCIZ

/D0 MANUAL

628

ERLIMQ:

.ASCIZ

/INPUT ERROR LIMIT/

.EVEN
.WORD
.WORD

0
0

HEAD ALIGNMENT

SUPPORT/

—b d e ed el e

122
040

115
000

LASTAD

000000
0060000

TESTS/

ENDMOD

1228
1229 040760

SELECT

NN
= 2O =NO
S OWOOS SOV

ed d ek

D) A

/EXECUTE DRIVE

HHENNONOSOO

b ed o
B D) d md e

.ASCIZ

.EVEN

1226
1227 040760

040760
940762

SELQ:

b cd e b e ad e md
PO
b b ) emd e ok A

— b wd e O b O —d —b
NON—=S =N W
WWVnL O
- OU.0O
— e d ) =
OOQOENNW
N==2OWNO

OB =OO=OO—
OWO =WV
amaNy

e () b

1225

D
O
b d e wd wh e

040735
040740
040743
040746
040751
040754

b b b

040700
040703
040706
040711
040714
040717
040722
040725
040730
040733

NN~
=NV

— d el ad wmd D =D wnd b

NINOOONOOO
5
WM VNN
O—=NIN=aOOCO0O
O NV WN=OWNVIWW

040641
040644
040647
040652
040655
040660
040663
040666
040671
040674
040677

040630
040633
040636

QO b b b wd d ) b wmd ek b

040606
040611
040614
040617
040622

NO=NINNIDBN—=O
WWNORSON OIS

.EVEN

== ON—=
=NV
—=

0 0o

——

—

A1,V)

—
-—

000000
000377

040606

040625

1224

SEQ 0131

CODING

—d ) ) b wd b

(V[
V]

~NOMWN
S

ek
—

— b

— o

non

PARAME TER

INTERVENTION TESTS/

(ZR.IDO RLO1/02 DRIVE TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE 9-%‘
—O
SN

nd
ad
e
D
—

AN 1,87,
V1, V]
WINNWWN

PARAMETER

CODING

040764

LSLAST::
.EVEN

040764

LSLAST::

€0%001

.END

SEQ 0132

CZRLIDO RLU1/02 DRIVE
SYMBOL TABLE
ADR
= 000020 G
ALGNQ
040641
ALLCY!= 000001
ALLSEC= 000002
ANYERR= 100000
ASSEMB= 000010
BADADD= 004000

BAMSK =
BANAM
BASADD
BELL
BMSTAT=
BITO
=
B1700 =
BITO1 =
BIT02 =
81703 =
BIT04 =
81705 =
BIT06 =

000C60
006125
006042
011274
000010
000001 G
000001 G
000002 G
000004 G
000010 G
000020 G
000040 G
000100 G

BIT1
81710
BIT11
BIT12
BIT13
BIT14
BIT15

000002
002000
004000
010000
020000
040000
100000

TEST

MACRO v04.00 4-AUG-82 10:30:59 PAGE

(N:
=
(NTYPE
COMPOP=
CONHNG=
CONTIN
COSTAT=
COUNT

(SPNTX=
($QI0 =
($RDBU=
CSREFG=
CSRESE=
CSREVI=
CSRFLA=

000015
000377
000007
000047
000033
000003
000021

000200
006120
000000
040456
003104
007070
002606
000004
010225
000052
000061
000022
000004

CSRPT =
CSSEFG=
C$SPRI=
($SVEC=
C$TPRI=
CIOMS
CSSEC
C500Ms
DANAM
DATACM=
DCKERR=
DCLIM =
DCLIMW

000025
000046
000041
000037
000013
011373
011434
011404
006132
000001
004000
000012
014340

CSCLEA=
C$CLOS=
CSCLP1=
C$CVEC=

000012
000035
000006
000036
CSDCLN= 000044
C$D0ODU= 000051
CS$ORPT= 000024

DESSGN
DIAGMC=
DIFAUG
DIFWD

003110
000000
003076
010201

8IT4
= 000020 G
BITS
= 000040 G
BIT6
= 000100 G
8177 = 000200 6
BIT8 = 000400 G
8119 = 001000 G
BOE
= 000400 G
BRMSG
040501
BSFLAG 003020
BSFVAL 003372
BSNSTR 010307
BYPSNM 010240
CAFDT
011423

C$OU = 000053
($zDIT= 000003

CSERDF=
CSERHR=
CSERRO=
CSERSF=
C$ERSO=
CSESCA=
(SESEG=
C$ESUB=
CSETST=
CSEXIT=
C$GETB=
CSGETW=
CSGMAN=

000055
000056
000060
000054
000057
000010
000005
000003
000001
000032
000026
000027
000043

DLYCNT
DONv

DRD*MS=
DRMSG
DRSB
=
DRSELT=
DRSET =
DRTYPE
DRVCNT
DRVERR=
DRVNAM
DSESTA=
DSMSK =
DSPCOD
EF.CON=

CCYLUP
CORDY
CHOSHD
CKDATA=
CKERLM
CLKADR
CLKFLG

011412
011353
022020
000102
016444
003146
003144

C$GPLO=
C$GPRI=
CS$INIT=
C$INLP=
CSMANI=
CSMEM =
C$MSG =

000030
000040
000011
000020
000050
000031
000023

EF .PWR=
EF .RES=
EF.STA=
ERHEAD
ERLIM =
ERLIMQ
ERLIMW

CLNCOD
CLRBYT
CLRPAR

016174 G
002304
025146

C$SPNTB= 000014
CSPNTF= 000017
C$PNTS= 000016

81707 = 000200 G
81708 = 000400 G
81709 = 001000 G

8112
BIT3

CAMSK

CLKINT

=
=
=
=
=
=
=

G
G
G
G

G
G
G

= 000004 G
= 000010 G

002312

016430 G

CRDYMS=
CSNAM
CSR
=
CSRMSG
CURCYL
CYLPER
CYLTBL
CYLUP =
CYLWD
C$AU_
=
C$AUTO=
C$BRK =
($B8SEG=

000012
060542
007777
000004
015002
000040
003154

($85UB= 000002
CSCEFG= 000045
C$CLCK= 000062

CS$GPHR= 000042

CSOPEN= 000034

DESDIF
DESHD
DESSEC

ERR7
ERR8
ERR9
EVL
=
EXTO5
ESEND =
ESLOAD=
FBSFIL
FMTOP1
FMTOP2
FMTOP3
FMr
FMT1.1

FMT11
FMT12
FMT13

FMT14
FMT15
FMT16
FMT17

DIRBIT= 000004
DIRMSK
002314
DLTER"= 010000

EF .NEW=

ERRCNT
ERRPOI
ERRSWI
ERRVEC

003012

000010
040735
014336
003160
003156
003016
003140

SEG 0133
ERR1
ERRI0
ERR2
ERR3
ERR4
ER"S
ERRG

003106
003112
003114

003142
003006
000001
040534
000010
000004
000010
040512
003074
040000
006053
000400
001400
014342
000036
000035
000034
000037
000040

o.Nn
9-37

FMT18
FMT19
FMT2

FMT20
FM121

6
G
6
G
G
G

012464 6

FSHW

014076 6
012532 G

F$INIT= 000006
FSJMP = 000050

012600
012646
012716
012766

6
6

F$MOD =
F$MSG =
t$PROT=
FSPWR =

000000
000011

014032 6
000004 G
032134
002100
000035
003570
011442
011471
011513
011534
011541
011760
011766
011774
012040
012072
012126
0312137
012161
012213
011550

F$SOFT=
F$SRV =
FS$SuB =
F$SW
=
FSTEST=
GBND
GDRSTA
GETPOS
GETSTA=
GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GSTAT
GSTATC
GSTATG
GSTATR
GSTER1
GISTAT=
GSCNTO=

000005
000010
000002
000014
000001
002310
020202
023222
000003
002224
002224
012464
016444
005242
017076
017062
017106
017046
006464
000104
000200

HAMES]

007154

6
6
013666 6
013736 6

= 000013

000021
000017
FSRPT = 000012
F$SEG = 000003

012250
012300
FMT22
012323
FMT23
012357
FMT24
012373
FMT25
012400
FMT26
012410
FMT27
012434
FMT28
012453
FMT3
011553
FMTS
011556
FMTS
011567
FMT6
011607
FMr7
011651
FMT8
011721
FMT9
011753
FOLWRT= 000100
FRMWD
010232
FWDSKO= 002000

GSDELM= 000372
G$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000
GSOFFS= 000400
GS$OFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADR= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HADONE
003010

FSAU_ =
FSAUTO=
F$BGN =
FSCLEA=
F$DU =
FSEND =
FS$HARD=

HAMES?
HAMES3
HAMES4
HCESTA=
HCRCER=
HDAL IG=
HDCYL

FWDSKS= 000400

000015
000020
000040
000007
000016
000041
000004

007237
007343
007406
040000
004000
000010
002316

G
G
G
G
G

CZRLIDO RLO1/02 DRIVE
SYMBOL TABLE
HDHSEL= 000100
HDMOVF
007031

HOWD
HDWRD1
HDWRDZ
HOWRD3

MACRO v04.00 4-AUG-82

LBASE
LCLEXT

= 000077
= 000020

HEAD
=
HEADLM=
HEADW
HICYL =
HILIM =

LAL]
LAB?

HDRCMP= 000002
HDOR4O = 100000

HDSEC
HDSEL

TEST

LCLX
LCLKT

010214
003CS2
003054
003056

006144
006157

L$SPCP
LSSPTP

003150
033606

0146514
014522

LOCERR
003364
LOCYL = 040000
LOE
= 040000 G
LOLIM = 000002

000006
010000
014334
020000
000004

LO IMy
LOT
=
LPTOS
LSACP

10:30:59 PAGE

LSSTA
L$SW
LSTEST
LSTIML

002030
014326
002114
002014

L.BA
L.CS
L.DA

LSUNIT

LSAPT

014330
000010 G
031714
002110 G
002036 G

L.MP
L10000
L10001
L10002
L10003

SCCP
LSCLEA
L$CO
LSDEPO

002106
016174
002032
002011

G
G
6
G

L10006
L10007
L10010
L10011

HROWTS
025176 G
HSMSK - 000100
HSSTAT= 000100

LSDESP
LSDEVP
LSDISP

002076 G
002060 G
014344 G

L10013
L10015
L10016

IoU

LSDTYP

HILIMe
HLMTW

014332
002302

LSAUT
LSAUTO

HRDPRM

040374 6

LSDESC

HNFERR= 010000
HOE
= 100000 G
HOSTAT= 000020
HPTCOD
014306 G

IBE
IBUFF

= 010000 G
003764

IER

= 020000 G

= 000040 G

INITCO 014412
INITST
006515
INOUTS= 000020
INTEBL= 000100
INTHLR 016370
ISR
= 000100
IXE
= 004000
ISAU
= 000041
I$AUTO= 000041
I$CLN = 00004"
180U = 000041
ISHRD = 000041
ISINIT= 000041
1$M0D = 000041
I$MSG = 000041
I$PROT= 000040
I$PTAB= 000041
I$PWR = 000041
ISRPT = 000041
I$SEG = 000041

G
6
G

002070 G
015636 G

002122 G

LSOLY
LSDTP

002116 G
002040 G

LS$DU

016364 G

002034 G

L10004
L10005

040456
060606

MRSLT
MSEEK

005423
005242

040700
005721
005742
010575

MSPERR
MSTERR
MTMBS
MTOSLO

010662
010715
006020
006200

003036
003034
003040

MCERR
MCONHN
MCOSTA

010415
006273
010562

MUNDEF
MVOLCK
MWDERR

011103
010551
01C751

012714

MDHEDR

002000 6

MURITE

005303

002012

003042
012530
012576
012644

012764
013664

013734
014030
014074
014306

014324

L10017
L10020

016362
016366

L10022

L10057
L10060

MANQ
MBADAD
MBADSF
MBHSTA

L10012

L10021

6
G
G
G

SEQ 0134

014342
015634
016172

016426

016434

MBSETO=

MCYLOC
MCYLUP
MDATCP
MDCRL

000001

011052
005445
005327
010437

MDL Y
MDRDY

010464
010404

MERRS

011265

MDRERR
MDRRES
MDRVST
MDSERR

MEXERS
MFLERR
MFMTER

MFOLWR
MFWDSK

MFWSKO

MGTSTA

010526
006220
010647
010632

011225
011013
005773

005521
005576

005231

005315

MULOAD

005434

MJWGERR
MJULSTA
MWORD
MJRCHK

010700
010610
006172
005271

MWRSET
MWRTAB

MLOHDR
NEWCYL
NOCLR =
NOCTLR

NOERCT

005400
011211

005364
003102
000010
006754

003365

NOIRPT= 000002
NOOP
= 000100
NOPCLK
014442

NOPWR
NOTRDY

NOTST

NSTACH

006060
007003
006664

006416

LSOUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXP4
LSEXP5
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN

002072
002212
002052
002044
002102
002046
002064
002066
040376
002120
002016
002022
014310
002104
0144612
002026
040764
002100
002074

G
G
6
G
G
G
G
G
G
6
G
G
6
G
G
G
G
G
G

L10023
L100246
L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045

016442
025454
025662
030342
031530
031426
032134
032042
033406
033332
034300
034366
035022
035500
035460
036256
036154
036254
036730

MHCERR
MHCRC
MHDERR
MHDRCP
MHFCRC
MHNF
MHOSTA
MHSTA
MINOUT
MISTST
MISwl =
MISWIW
MITEST=
MNDRST
MNEERR
MNOCLR
MNOINT
MOPER
MOPERR

010733
010427
010776
005346
010476
010450
010621
010537
005476
006373
000000
014326
100000
011057
011041
006307
006240
005414
010766

NXMERR= 020000
NXTHL
002306
NXTPAS 015022
OBUFF
004364
oLDCYL
003100
ONSWAP 022104
OPFLAG 003004
OPIERR= 002000
OPMSGS 002224
OPRO02 007470
OPRO03 007515
OPROO& 010164
OPR1
007540
OPR1A
010135
OPR1IB
010141
OPR10
010003
OPR11
010051
OPR12
010102
OPR12A 010121

G
G
G
G
G
6

L10047
L10050
110051
L10052
L10053
L10054

027150
037062
037430
037406
040076
040040

MOUTIN
MPNAM
MQUALS=
MREAD
MREADH
MRESKO

Q05455
006137
003760
005250
005261
005665

OPR3
OPR6
OPR?
OPR8
OPR9
OUTINS=

L10056

040336

MRLFAL

011150

0sAU

LSMREV

002050 G

[$SETU=
I$SFT =
[$SRV =
1$SUB =
I$TST =
JJJ

000041
000041
000041
000041
000041
002309

LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV_

002000
002042
014404
002112
002062
002010

LAB

014754

L$SPC

002056 G

J$JMP = 000167

002020 6
002024 6

9-38

LS$SOFT

040552 6

L10046

L10055

036710

040372

MORECE

MREVSK

003014

005543

OPR?

007616

007651
007665
007720
007747
007766
000040

0$APTS= 000000
= 000000

CZRLIDO RLO1/02 DRIVE

TEST

MACRO VO04.00 4-AUG=82

SYMBOL

TABLE

O$BGNR=
0$BGNS=
0sOU
=
OS$ERRT=
OSGNSW=
O$POIN=
0$SETu=

000000
000001
000001
000000
000001
000001
000000

PASCNT
PASNEW
PASNUM
PATTBL
PATI
PATIO
PAT?
PAT3
PATL
PATS
PAT6
PAY?
PAT8
PAT9
PCLK
PNT
=
POSHDO
POShSE
POSHW1
PRI
=
PRIOR =
PRI100 =
PRIOY =
PRIOZ2 =
PRIO3 =
PRIO& =
PRIOS =
PRIO6 =
PRIO7? =
PSETNM

003152
015030
003360
002360
004764
005240
004766
005026
005066
005126
005134
005174
005176
005236
014412
001000 G
022624
022620
022612
002000 G
000004
(00000 G
000040 G
000100 G
000140 G
000200 G
000240 6
000300 G
000340 G
003362

REVSKO=
REVSKS=
RLBA
=
RLBAS
RLCS
=
RLCSR =
RLOA
=
RLORV
RLMP
=
RLVEC
RORWOP=
RPTOP
RPTREM
RPTRES
RSTRT
SAMSK =
SBSFIL
SECWD
SEEK
=
SEEKOP=
SELQ
SEQMES
SETDON
SFTPRM
SGNWD
SIMSEK
SPDERR
SPDSTA=
SPTCOD
SSINDX

001000
000200
000002
003026
000000
000000
000004
003032
000006
003030
020000
023716
024712
024504
014710
000077
003374
010220
000106
010000
040606
010253
015056
040550 6
010207
021152
006430
004000
014324 6
003002

P2TOTE
P2T02E

006645
006645

STATE2
STATE3

011323
011333

000114
000110
000116
021462
022650
016604

STOSTA=
SUBSTK
sv(BeGL=
sv(GeL=
SVCINS=
Sv(csus=

010000
002404
000001
000000
000000
000001

PARTY

= 000CO1

PWCON
PWRFLG

RDALHD

RDDATA=
ROHEAD=
RONOHR=
ROYCHK
RDYWAI
READRL

RELOWT=
RESE3
RESE4
RESES
RESES
RESPAR
RESTAR

RESTBL

015300
003370
023350

ABS.

040764
000000
ERRORS DETECTED:

040000
011300
011304
(01131
011316
003062
014772

002320

F 1
10:30:59 PAGE 9-39

SVCTAG=
SVCTST=
SWAPHD
SSLSYM=
TBLSTR
187
TCERR

000000
000001
022044
010000
003024
002544
010363

1$71STM=
T$7STS=
T$SAUT=
T$SCLE=
T$$DU =
T$SHAR=
TSSHW =

TCLK

014564

T$SINI= 010015

TEMPO
TEMPT
TEMP2
TEMP3
TEMPL
TEMPS
TEMP6
TEMP7
TEMP8
TOSLOW=
TRPFLG
TRPHAN
TSTCLK
TSTINT
TISTLAB
TSTL
TY. vR =
T$SARGC=
TS$CODE=
TSERRN=
TSEXCP=
TSFLAG=
TSGMAN=
TSHILI=
TSLAST=
T$LOL1=
TSLSYm=
TSLTNO=
TSNEST=
TSNSO =

003116
003120
003122
003124
003126
003130
003132
003134
003136
000001
003366
016436 6
014556
017030
006365
03036+
v00006
000002
004052
000311
000000
000040
000000
000377
000001
000000
010000
000020
177777
000000

STAMES
(010276
STAMSK= 000007

TSNS1 = 000005
TSNS2 = 000002

STATES

TSSEGL= 177777

011343

000
001

VIRTUAL MEMORY USED:
30464 WORDS
( 119 PAGES)
DYNAMI( MEMORY AVAILABLE FOR
71 PAGES
LCZRLID/C=SVC33.SRC/P:1,C2RLID.PIT

SEQ 0135

T$PTNU= 000000
T$SAVL= 177777

TS$SUBN=
TSTAGL=
TSTAGN=
TSTEMP=
T$TEST=

000001
177777
010061
000000
(000020

177777
000001
010016
010017
010020
010057
010012

716.1
11728
117658
118658
71878
T2
T257BL

040154
037522
040076
040372
040154
025456 6
002430

T$$MSG= 010011
T$$PRO= 010014

13
133181

125782

002456

T$$SOF=
T$$SRV=
T$$5UB=
T$$sW =

13658
T4
T4.1
74658

030342
030344 G
030364
031420

031532 G

010047
010023
010056
010013

T$STES= 010055

T.BA
T.CS
T.DA
T.DRIV
T.MP

003046
003044
003050
002276
003052

T.STAT

003060

TOSERR
TO9ERR

N0653C
V06543

110
T10ERR
710.1
110648

035024 6
006553
035056
035056

T11.1
111.2
711158
112
T12ERR
T12.1
71248
113
TI13ERR

025176 G

035502 6

15.1
15048
16
T6.1
17

025664 G
002504

032024
032056

032136 6
032650
033410 6

03430¢ 6

UAM
=
ULOAD =
UNDTST
UNXERR
VCNRST
VCSTAT=
VECMSG
VECT
=
WAITIN
WCMSK =

000200 G
000010
010151
006350
006327
001000
040472
000002
016636
017777

034370 G

036002
036156
036156
036260 6
006573

WCRNG = 160000
WDESTA= 100000

036306
036306

WGESTA= 002000
WLSTAT= 020000

036732 6
006605

WRTSWI
003022
WIDATA= 010112

T14
T14ERR

037152 6
006621

XRDHDG
XSEEK

022144
020362

715
T15.1
11538
116
T16ERR

037432 G
037522
037174
040100 6
006635

XSEEKT
X$ALWA=
X$FALS=
X$OFFS=
X$TRUE=

020366
000000
000040
,00400
000020

113.1
11348
114.1

036756
036756

037174

XROHD
XRDHDC
XSEEKT

022140
022130

020352

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

»un H
L]

3
X

VN
-0
VBB

VO NOWNP NN S D Dt a0

800000
[V
WA ey

)

o
) e <t

P Pumg G

= o

2=5#

6 1"
S-1

SEQ 0136

9-<19#

8-162

8-507

8-785

9-429

8-<50
7=621
9-516

7-655
9-527

7-690
9-761

7-701

8-15

9-30
9-682

9-160
9-:88

9-167
9-.:56
2=46

9-178

9-544

2-65

8-.95

8-294

1-8

2=5#
2=S#
2-5#
2=5#
2=S#
2-5#
2=5#
2=5#
2=5#
2=5#

2=26
2-25
2-26
2=27
2-49
2=50
2=51
2=52
2-53
2~54

2=59S

8-135

8-213

2=57
2-58
2-59
2-60

7-320

2=56
2-28
2=29
2=30
2=31

2=45
2=47

8-<48

9-17

8-357

8-598

8-88¢

9-60

9-98

9-102

9-27¢

9-284

9-336

9-639

9-705

2=48

®©

>0
o

2203
<r-wv

WO
D

Sump Gd G

g o

Pt G

g o

e =

Bme Bt Gt Pt Gt P

asDOO

= bon o

Pt ey Pt P Gt Pon *

®E®aaDD DDDOD

oy Gy Pumg Grong

81100

2-56#4
2~88#
6-291#
6~-387#
9-35$5
;-800

BELL

1-8

LR L

BADADD
BAMSK
BANAM
BASADD

2=24m
2=25#
=774

N AN
VA VWA WU ViR

AL SEC
ANYERR
ASSEMB

2=54

9-<07

]
!
NNNNNNM'})NNNNNNN"
N
USUBLURL
N

ADR
ALGNQ
ALLCYL

TEST 1 MACRO v04.00 4~AuG-82 10:30:59 PAGE
(CREF v04.00 )

BSNSTR
BYPSNM
(SAU
CSAUTO

C$BRK

($8SEG
($85UB
CSCEFG
($CLCK
CSCLEA
C8CLOS
($CLPT

7-284

9-.90#

7-705

7=651
9-854

7=721
9-:36

8-99

8-116

8-151

8=504

8-761

8-774

8-779

9-521

9-535

9-268

9-379

9-455

9-686

9-774

9-807

9-836

9-909

9-957

9-:33

9-:12

7-486

7-727

9-:63

9=:74

9-:1%

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE
(CREF v04.00 )

H 1N
S-2

SEQ 0137

7-703

8-17

9-118

9-278

9-303

9-339

9-358

9-376

9-391

9-451

7-229

7-244

7-259

7-364

7-378

7-400

7=-414

7-428

CSEXIT

7=215

7-568

7-572

9-491

9-529

9-815

8-;84

8-<00

8-<04

9245

9-300

9-316

7-575

9-171

9-182

9-212

9-224

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

CROSS REFERENCE

c500ms
CSSEC

CAFDT
CAMSK

CCYLuP
CDRDY
CHOSHD
CKDATA
CKERLM

TABLE

(CREF

8-497
8-622

8-782

7-97#
7-93#
B-S26#
2=34»
7-200

9-556
9-629
5-:31

9-605
9-693
9-:06

9-843

7-214

7-228

7263

8-611
7-607+

7=615+

SLRTE
KFL

82338

LRIV

CLKINT

7-7528

9-114

9-136
7-619¢
9=:70

=44
2-67#
7=-S71#
3-26#

7-610%
B-<58#
9=:70
9-.96#
8~-:91
9-26

9-69

2-86#
6-3904

7-282
8-<50

7-645

7-695

CLNCOD
CLRBYT
CLRPAR
CNT
ENTYPE

COMPOP
CONHNG
CONTIN
COSTAT

|COUNT

CROYMS
CSNAM

CSR

CSRMSG

CURCYL

9-316
9-476

6-238#

9-508

9-651

7-495e
-

9-458

9-147

9-717

7377

7-399

7-413

=114

9-136

9-147

9-171

9-182

9-171

9-182

9-212

9-224

9-245

9=300

9-446

9-867

9-508

9-651

9-717

9-867

7-716

8-35

8-56

8-892

8-898

6-184#

8-256

8-273

8-823+

B8-<I1

8-<52

9-951

9-:29

9-:09

7-37#

9-941

2=4L7h

9-104
8-<50

DESSEC
Bfiéfi?

6-392¢
2-46#
2~82#
2-21#
7-457#
6-185#
6-187#
9-729
6-188¢
?-gaoc

DIFAUG

6-181#

9 22

=224

9=245

9-300

9-316

9-328

9-426

9-458

9-625¢
9-:08+

9-662

9-664

8-46+
B8-504+
9-147
9-224+

8-47+
8-504+
9-147+
9-245

9-717

9717+

8-<50

7-312

7-336

B8-266%
8-304
9-731
8-<11
?-ges'

8-280¢
8-367
9-879

8-289+
8-526%
9-881

8-296
8-529+
9-890

8-359
B8-538
9-892¢

8-<08
8-540*
9923

8-887
9-932

8-<08
9-934+

8-<11
9977

8-<52
9-:06

8-276%

8-279+

8-285+«

8-301

B-364

B-<08

9-740

9-742¢

9=~:42

8-252+

B8-260%

8-271+

8-281

8-289

7651«
8-99+
B8-779+
9-171+

7-651*
8-99+
8-779+
9-171+

7-651+
8-116*
B8-779+
9-182

7-721%
8-116*
B-779+
9-182+«

7=721%
8-116r
9-114
9-182+«

7=721x
8-116
0-114*
§-212

7=721x
8-151+
9-114+
9-212¢

7<741v
B8-151+
9-136
9-212+

7-753%
B8=151e¢
9-136+
9-224

B-45»
B~151c
9-136+
9-224+

9-458+

9-476

9-476+

9-508

9-508+

9-651

9-651+

9-651«

§~-<08
8-303
7-608t
7-316
7-651+
8-99+
8-504+

9-458

9-458+

9-717«

9-212

8-<11

733
3-7#
5-354
2-804
6-231#
8-99+
8-504+

9-147«
9-245+

8-10#

9370

9-;72

9--86#

7427

7-527

9-476

9-.;72

CYiwdD

DIFWD
DIRBIT
DIRMSK
DLTERR
DLYCNT

7-iBoe

9-426

7363

9-.72

7-10#
6-59#

DANAM
DATACM
DCKERR
OCLIMm
DCLIMI
DESDIF
DESHD

7-258

2-8#

9-:72

CYLPER
CYLTBL

CYLUP

9-328

SEQ 0136

v04.00 )

7-964
7-99¢

7=-98#
S5=344

9-171
9-245+«
9-867

8-366
7-616+

9-300

9-867+

9-300«

9-867%

9-300+

9-:74%

9-316

9=:74r

9-316*

G=:74v

9-316+

9=:74e

9-328

9-328+

9-426

9-426+

NeIWOMNOA~N=ONS0OeMN5-O8N3'5S04k”OX8Nyo"910QX[0o&4=a10[e8
E
T
R
M
RO\ANONOWeNNeOMNROWNWRN=RnOIMAWNM2O—oAANMW0.RONwDQ\Oe0EGR==0 eeV~~ONeOrMOewNe(V=vV] TNTNCMARe
8aOM0OYMON<0YoNNoCONYOIYIVOooOSMO«TNTo~NoeIAO-ONOOM-ol~WOO[e=WN[tw wOOXoaO~~W~0d"]w0MsQaWaowoa0(L0nUeMy0eo[[ L[0400[]}§[[}]
~N NO a0a0
RB

4NNoVIXN«M4XXOLU OOO
=[aLlvQa)V2MEoUXEX-U o”UMMLRNLSl
NMWv—VNNI MM

2~54
2=54
2=-5#4
2-54
2-5#
6-1494
9-506+

1-17
7-572
7-575
7-544
7-568
7-549
8~-:71

9-593+

—ONOMNONNON

TFAN2IVANVOVDVNMNAD

b
d

9-478

9-14t
9-615+

3
o

L&*4

9-57%
9=-677+

G@OMON

O-M ®OL'[ OMN

9-106+
9-828+

M M

7=-7466+
9-427
7-648
9-632

9=141¢
9-901+

RNO~O2Tn~"NOal2NOialSal UK14 2NO[4MNP~N—OUNVMO
«¥

o0[] O~3[o] o]

9=-157+
9-950+

7-264+

[]

9-186%
9-:18+

0O TOFT—NCN

7-367«

-«

o Oo

o o[]

o [o oN

o oN ~ O

o N

o L.al TMMD

9=194+
9-;01¢

9-204t

9-247+

9-269r

9-361¢

9-406+

[
]

~ONMNOM~Ane-O=0

7-381v

&«

[

7-403c

]

oonOn]UW0N []OrM~

7-419x

LNI

7-560¢

. P

7-4614
1-8#
1-84

TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE S-4
(CREF v04.00 )

NN
Ong aM
Oo o
MmO w

3-28#
2-85#

own o

®r

’ESEND
ESLOAD
EF.CON
EF .NEW
EF .PWR
EF .RES
EF.STA
ERHEAD

DSESTA
|DSHSK
DSPCOD

9-511

00 O[~ o]

2-89#

9-420¢

|ONINLT MU-LI R MMLUO
N]] \ —ULLU MUUOKKLN
M-I
O0NOWA~4]]\2NONe—e=NlO4OMOoLkMNUUOLNoSal M0MoWOU00M1aL9y.0 VIO M o
UN0YLVTo¥To<1.eoU[ -g)L1l~

DRDYMS

ULv~yUL NU

6-147#

MO0~ - v
O~MoyOMON@ M8N81eoONOIX0NY—o8~deNMMOoN)1 oY BNMTo[[
0G0
O0—\ ~F N MW
OO—O100~MO0NO ooNAN[ @ow[S
oo o o
o0~ o o

EODNUVN->2D>

LU L
ANewnntN AW
LUOO0 NO100
AMAONO 0

DONE

&v€

YWLTaoYJU-0x-Ya=x-Yo=x-ZaxYaV-x)LaYOx=YW+aOx[~
OW6"'S
OOV a0 60 080'0 NNNOO”5NN

A
y
M
A
W
)
W
4
A
L
A
b
A
L
A
b
r
e
x
r
a
a
x
a
x
a
x
a
&
X
O
@
2
X
O
F
&
Q
2
.
l
N
O
P
N
O
Y
M
o
=
=
e
t
o
t
=
o
=2
(NONeO=NVeANOOOOo] OP -WOSOhNOo2 OOVOOPNUA=MFMOOOe$0=~OF0OOIDNOONWIR(NUPMNOVt cMMOONNMa~ICoFrOOATLNmONROO=GNNOoWcNaNrTA=N\OOTJr—®=~
OWM]|]WMONOMOULUVNMOOINrLUOU—NMYONL O] ARWOULPLN8e0U—o AALNNNMOON NONMSFNWNNONN[UOC -=-)[— OOOOUMSNUUeL ocWeW 4OMo0oInNOEMPN1D
MO O

VIRVIVTVANU LV o2a
X>xB
2.8333
CZRLIDO RLG1/02 DRIVE
CROSS NEFERENCE TABLE
1n

SEQ 0139

8-310+
8-317
B=371»

8-376
8-595+
8-606

8-608

8-616

8-764
8-777
9-241

9-273

[=)]

]

7-581+

[]

o Ho~ Lo >O[][<0. €

7-586¢

TABLE

(CREF

v04.00 )

K 11
S-5

SEQ 0140

OOFOWNWr—0reNeOWOONN—OoMNO\O

CROSS REFERENCE

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

OYo Yo Yo Yo000YoOMNNONeSOOYToOOYo&0Yo Yo eXNN—oMo3~lNANloLOl

CZRLIDO RLO1/02 DRIVE

7-244

9-344
9-822

1-8

6-361
7~432

7748
9-79
9-227
9-334
9-400
9-548

9-645
9-725

9-807

9-876
9-944

9-:33
9-;52

7-246

9-349
9-827

1-8

7-132

7=441
7=754

9=79
9-232
9-344
9-405
9-558
9-654
9-734
9-807
9-884
9=-944
9~:33
9-:63

1-8
7=141
7-443
7-760

9-84
9-237

9-344
9-455
9~580
9-659
9-739
9-820

9-889

9+-949
9-:83
9-:63

1-8
7~201
7-459

1-8
7=215
7-461

8-4
9-84
9-254
9-349
9-455
9-587

9-667
9-739
9-820
9-889
9-949
9-:83
9-.64

8-<68
9-84
9-254
9=349
9-475
9-587
9-671
9-745
9-822
9-895
9-949
9-:84
9-:67

9-227
9-645
9-884
7-429
9-;64

9-232
9-654
9-926
7-432
9-:67

9-237
9-659

9-266
9-667

7=-441
9-:98

7-443
9-<02

7-259

7-261

7-364

7-36%

9-805

9-807

9-820

9-836

9-395
9-895

9-400
9-900

9-495
9-944

9-500
9 -949

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

FMTI27
FMT28
FMY3
FMT4

FMTS

FMT6

FMT?
FMT8
FMT9
FMTOP
FMTOP2
FMTOP3

FOLWRT
FRMWD
FWDSKO
FWDSKS

GSCNTO
GSDELM

GSDISP
GSEXCP
GSHILI
GSLOLI
GSNO
GSOFFS
GSOFSI
GSPRMA
GSPRMD
GSPRML

GSRADA

GSRADB
GSRADD
GSRADL

GSRADO
GSXFER
GSYES
GBND
GDRSTA

| GETPOS

GETSTA

2~51#
7-38#

7-335

8-<00

8-<04

8-<11
7654

8-14

7-358
7-302
7-657

71
8-:
7=421

8-<50
8-<52
8-<51

7-530
9-17
9-449
9-373
2-61
8-<08
2-61
2-61
7-281

8-779

7-688

7-699

7-691
9-389
7-655

7-702

8-16

7-690

7-701

8-15

8-<48

9-761

9-432
9-98

9-489
9-102

9-763
9-276

9-765
9-284

9-767
9-336

9-770
9-35%

7=721
9-:74

8-99

8-116

8-139

8-151

8-159

9-118
9-118
9~.76
9-118
9-:76

9-339
9-339
9-<05
9-339
9-<05

9-358
9-358
9-<07
9-358
9-<07

9-<11
5-118
9-<07

9-339

8-.66

9-60

9-527

9-772

8-316

8-380

8-493

8-504

8-605

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-69N

9-529
9-529

9-815
9-815

9-451

9-4N

9-529

9-815

9-358

9-376

9-391

9-451

9-491

9-529

9-815

9-491

9-529

9-815

FMT26

7=1244

7-125#
7-126#
7=1274
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-:67

—

FMT24
FMT2S

7-119#
7=-1204
7-121#
7=-122#
7=106#
7=123#

SEQ 0141

FMT16
FMT17
FMT18
FMT19
FMT?
FMT20
FMT21
FMT22
FMT23

L
TEST 1 MACRO V04.00 4-AUG-82 10:30:59 FAGE $-6
(CREF v04.00 )

9-118
9-<07
9-:76

9-303

$-339

9-358

9-376

9-391

9-451

9-:74

9-,78

9-,;80

9-<05

9-<07

9-<09

9-<11

9-:75
9-:13
8-82

8-208

9-423

9-460

9-780

CZRLIDO RL01/02 DRIVE
CROSS REFERENCE TABLE

TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE
(CREF v04.00 )

LIRR)
S-7

SEQ 0142

GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GSTAT

S5-4#
2-3#
7-141#
8-4»#
6~361#
g-gg;

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

9-108
9-380
8-83
3-28‘

9-123
9-519
8-86#
9-42

9-151
9-533

9-165

9-176

9-188

9-197

9-206

9-218

9-239

9-289

9-310

9-322

GSTATG
GSTATR

8-81#
9-363
8-80
g-?gq

9-67

9-93

9-271

9-509

9-596

9-622

9-688

9-809

9-838

9-911

9-959

GSTER1
GTSTAT

6-409#
2-35#

9-406
8-136

9-474
8-214

9-421

9-459

9-779

8-889

9-790

9-794

8-817

9-935

9-938+«

9-939

8-257

8-259

8-261

8-283

9-:46

9-.25

2-34

3-37

3 =37»

5-4
7-441

S=4#

7=1410

-3
7-429

6-353#

6-361

HADONE
HAMES1
HAMES2
HAMES3
HAMES4
HCESTA
HCRCER
HDALIG

6-148#
7-114
7-12#
7-13#
7-144
3-34#
2-83#
2-27#

HOCYL
HDHSEL
HOMOVF
HDR4O
HORCMP
HDSEC
HDSEL

5~36#
3-20#
7-8#
2-60#
2-45#
3-19#
3-8#

HOWRD1
HOWRDZ
HDWRD3

6-168¢
6-169#
6~'70#

HOWD

HEAD
HEADLM
HEADW

HICYL
HILIM
HILIMW
HLMTW
HNFERR
HOE
HOSTAT
HPTCOD
HROPRM
HROWTS
HSMSK
HSSTAT

7-35#4

2=19#4
2-28#4
7-455#4
2=29#
2-18#

7-454%
5-30#

2-81#
2-54
3-25#4
7-432#4
9-.67#
9-1#

7-562¢
9-763
9-765
9~767
9-770
8-108
7-299
7-541

7-617¢
9-979

8-878
9-963
9-997
8-306

8-<01

8-<08

7-387
8-629
8-527
8-529
7-621

8-734

8-<50

8-536

7-623

8-106

9-199

9-540

8-738

9-553

9-602

1-8#
9-;68%

7=7294
9-:82#

ISMOD

1-8#
6-3614

=1¢
1-16
7-13%2

1-8#

8-<11

7-613+

7-297

180U
ISHRD

ISINIT

9-:00
8-369

7-623*
7-605+«

I$AU
ISAUTO

1-8#4

9-759+

7-306
9-751

7=609«
9-976

3-34
3-27#
1-8#
1-8#

ISCLN

9-755

7=6794

7-705#

7=7114

7-7274

7-4814

7-665#

7-7314

1-16#4
71324

7-429#

7-432

7 =432 "

7=4414

35 3
3

-4 4

7-4438

7-459

CZRLIDO RLO1/02 DRIVE

CROSS REFERENCE

TABLE

TEST

(CREF

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

)

7-4684
9-14

8-879

7-480
9-.64

NN
$-8

7-4800
9-,640

SEQ 0143
7667
9-;67

7-667#
9674

7-710
9-,98

7=-710#
9-,;98#

7-733
9-<02

7-7334
9=<02#

84
9-<27

7=244N

7=2464

7=259#

7-2614

7-364#

7-3664

8-380

8-493

8-504

9-971

7-651

7-721

8-50

8-116

8-139

8-151

8-159

8-316

CZRLIDO RLO1/02 DRIVE TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE
CROSS REFERENCE TABLE (CREF v04.00 )

LSTEST

LSTIML
LSUNIT
L.BA
L.CS
.

8-768

3-779

9-468

9-:74

7-582

9-409

9-412

8-136+
8-884+

8-138
8-896

8-180
8-:73

SEQ 0144

b D —b b b b b med b e
D
NN NNNNNNNNNNN

1
1
1
1
1

\Q\\;‘NVVNVN
8
%
B

D b ad =D

b wud cd wd

1
1
1
1
1
1
1
1
1
1
1
1
1
1

1
1
1
1
6
6

un
T

b ——d
b
D
b e
b wmd anld cad) b =d

1
1
1
1
1
1
1

) wad o

LSLOAD
LSLUN
LSMREV
LSNAME
L$PRIO
LSPROT
LSPRY
LSREPP
LSREV
LSSOFT
LSSPC
LSSPCP
LESPTP
LSSTA
LSSW

O NISNINN NNNNNNNNNNNNNY
LR
3

LSENVI
LE TP
LiF.P1
LSEXPS
L$EXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
L$ICP_
LSINIT
LSLADP
LSLAST

8-605
1-17#
1
1
}

o md ol e

LSDTP
LSDTYP
LSOV
LSOUT
LSOVTY
LSEF

B 12

S-9

60
8 -639
-

9-460+

L.MP

6-163#

L10005
L10006
L10007
L10010
L10011

7-364#
7-378#
7-400#
7-414#
7-428#

7-7294

1-22#

9-:68

9-,68#

7-433

7-4334

74814

9-<29%

9-<32#4

7=4714

9-<02

9-<03#

=444

7=4L44H

7=546

8-885+«

8-134+
8-882+
-

9-465

8-125

7=553

8-891

8-135+
8-883+
-

9780+

8-204

8-<51

9-782

8-588

Q=790+

8-<51

8
8*

Q=794+

8
9

8-:8

-<51

8-<5

9-423e

9-424

RLO1/02 DRIVE
EFERENCE TABLE
7-433
7~4644
7-6654
7-705#
7=727#

¢ 12

TEST 1 MACRGC V04.CO 4~AUG-82 10:30:59 PAGE S-10
(CREF v04.00 )

SEQ 0145

7=4400
7=458#

7-731#

7-748#

7-7544

9-125
9-344n4
9-319

9-163

9-174

9-334#

9-4954
9-482
9-548

9-488#
9-558

9-58¢C

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#

7516
9-476

9-114
9-508

9-136
9-651

8-¢<51
8-<52

7-515¢

9-458
0=494#

LCLEXT
LCLK
LCLK1
LOCERR
LoCYL

7-563

Lot im
LOL I

7-565+

LPTOS
M4OHDR

6=370#

MBADAD

6-383#

MANQ

9-202

9-215

9-227

9-232

9-237

¥=2544

9-171
9-867

9-182

=212

9-224

9-245

9-300

9-316

9-.63#

LAB1
LAB2

Lot

9-193

9-:95#

9-.82#
9-<i3#

LBASE

9-185

9-931#

L10057
L 10060
LAB

9-144

7=-509#
7-511#

9-386

9-<21#

~N~

VSN
— ONOVIS
NN =O~N

8383288
VAAAA
NN 33
I

et el

e e

—l—‘—.sddd—.—l-fi—l-fl—l—l—l—l-‘—l—.-—l
o

gg8sagsssse

L10032

9-45#
9-79#
9-9
9-266
9-307
9-395#
9-3844
9-405
9-475
9-505
9-609#
9-635
9-745#
9-699
9-758
9-805#
9-820#
9-895#
9-849
9=944#
9-926
9-:11#

- B

10024

7=-760#

9-328

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
MBADSF
MBHSTA

6-384#

MCERR
MCONHN
MCOSTA
MCYLOC
MCYLUP
MOAT(CP

5-39
6-~400#

MDHEDR

MOLT
MORDY
MORERR
MORRES
MORVST
MOSERR
MERRS
MEXERS

MFLERR
MFMTER
MFOLWR

MFWDSK

MF WSKO

MGTSTA

MHCERR
MHCRC
MHDERR
MHDRCP
MHF CRC
MHNF
MHOSTA

3-6#

7=574
7-73#

5-17
5=15

7-694
1-16#4
7-51#
7-46#

5-40
6-398#
7-63#
5-5¢4

a3tk
* LY1,S 1,V

MDCRC

7-58#

mm\am\:\mmm

MBSETO

SEQ 0146

9-546
9-790

7=474

8-59

9-28
7-386

6-375#
6-368#
7-31¢4

7-318

8-770

9-249

9-628

9-646

9-542
9-604

9-660

9-727

9-877

9-921

9-57
9-<05
7-563

9-157
9-<05
7-621

9-194
9-<07

9-247
9=-<07

7-301
7-347

7-350+

7-355

7-422

8-<25

8-496
7-53#

9-565

8-43

9-692

9-712

9-842

9-862

9-353

7-37N
7-62#4
7-302
8-14
7-714

6=-378#
6-380#
6-381»
6-367#

7-67x%
7-304
7=-70#
6-369#

9-14

9-<05

7=541+
9-751
7~541
7=744
7=72#

MITESY
MNDRST
MNEERR

MNOCLR

8-64
8-.84

=2 AN NI

= O

L
VOL V\nvn..nvu\)own

MRSLT
MSEEX

D 12
-AUG~82 10:30:59 PAGE S~11

7-310

MINOUT
MISTST
MISWI
MISWIW

MREADH
MRE SKO
MRE VSK
MRLFAL

9-32
8-307

7-308
9-196
9-555
6=377#

MHSTA

MNOINT
MOPER
MOPERR
MORECE
MOUTIN
MPNAM
MAUAL
S
MREAD

TEST 1 MACRO v04.00
(CREF vU4.00 )

7-694
7-340¢

6-376#
8-<50

6-363#
6-3644
6-3824
6-3794
8-156
7-302

6-362#

8-527

8-536

9-12

9-<07

9-<09
9-55

9-<(9
9-89

9-<09
9-264

7-358

7=417

7-425+

8-72+

9-968+

8-<26

9-403

9-503

9-549

CZRLIDO RLO1/02 DRIVE

oLDCYL
ONSWAP
OPFLAG

OPIERR

OPMSGS
OPR0OO2
OPROO3
OPR0OO4
OPR1
OPR10
OPR11
OPR12
OPR12A

7-394

9-569
7-424

2259«
9-829

7= 88
7-190

8=71+

8-260

9-902

8-261+
9-:30

8=264+

8-268

8-270+

8-271

8-272+

8-274

8-283

8-551

9-62
9-357+

9-117+
9-359
9-529

9-118

9-492

9-63
9-358
9-528+

9-375+
9-530

9-119
9-376
9-814+

9=277+
9-377
9-815

9-278
9-390+
9-816

9-279
9-391

8-<06

8-<09

9-,08

7=4924
7-654

7-699
7-529
9-106

9-204

9-269

=144

1-144

1-17

9-20
9-338+
9-452
8-551+

9-21

9-339
9-490+
8-<08

9=-61+

9-340
9-491
9-;10

8-146
9-969+
8-41
8-<04

8-878+

8-;72¢

8=;77¢

8-.;80+

8-,83+

8-:91

8-;93

8-<01

9-339

9-358

9-376

9-391

9-451

9-491

9-529

9-815

bwb:flbl\fl
L X 3

b
o

b e o

I
I )

be
~

7-604+
7-592
1-17

OSBGNR
OSBGNS
0$0U
OSERRT
OSGNSW
OSPOIN
O$SETU
OBUFf

[

SN N = (N WA
[+ ]

SEO 0147

=142

9616

b b e

NX THL
NXTPAS
OSAPTS
0$AU

8~-119
9-230
7-684
7-65#
9=-36
7-349

b b e cd

NSTACH
NXMERR

v04.00 )

E_12

S$-12

8-40

NOTST

1 MACRO V04.00 4-AUG-82 10:3u:59 PAGE

6=-374#

NOCTLR
NOERCT
NOIRPT
; NOOP
NOPCLK
NOPWR
NOTRDY

(CREF

7-644
7-66#

AN =

"NOCLR

TABLE

6=-365#
6-3664
6-3714

o
&

" WYL

QD AN

MWORD
MWR(HK
MJRITE
MWRSET
MJRTAB

b =

MULOAD
F
MUNDE
MVOL CK
MJOERR
MJGERR
MJLSTA

NN =2 N

MSPERR
MSTERR
MTMBS
MTOSLO

o'}:mo
\l\.h\l!\.ho] ~N\AwN ?NM?OV‘
o

C(ROSS REFERENCE

TEST

9-278

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
OPR1A

7-29#

9-17

OPR2
OPR3
OPR6

7-18#
7-19#
7=20#

OPR1B

7=-30#

F.12
TEST 1 MACRO Vv04.00 4-AUG-82 10:30:59 PAGE S-13
(CREF v04.00 )
9-60

9-98

9-60
9-102
9-276

9-284
9-336

9-516
9-527

9-373

9-389

9-449

9-373

OPR?7

7=21#

9-355

OPR9

7=c3n

9-389

OPRS

OUTINS

P2T01E
P2T02E
PARTI

7=22#4

2=-50#

6-418#
6=419#

9=449

9-102

9=276

SEQ 0148

9-284

9-336

9-355

9-516

9-527

9-77¢

9-501

9-551

2=-61

9-:18
9-.01

7 -92

PART?
PASCNT
PASNEW
PASNUM
PAT1
PAT10
PAT?

1-1#

6-405

6-198
6-237#
7-576
62414
6-3
6-12
6-4

7-9

6=424

7-54

7-465

8-399

8- 556

8-656

8-835

7-629

8-340

7-580#
7-554+
6=257#
6-351#
6-258#

7-580+

7-634

9=10

9-53

9-87

9-262

9-351

9-401

PATS

6~6

6=-292#

9-728

9-878

7-884v

7-587

7-658

7-692

7-703

8-17

9-408

7-591

7-593¢

7-641

7-723

7725

8-593
9-:80

8-89%
9-:36

PAT3

FATS
PAT6
PAT?
PATS
PATO
PATTBL

6=-5

67
6-8
6-9
6-10
6=11
6-3#

6-309#
v-313#
6-330#4
6-332#
6-349#

7-483#
2=54
8-735
8-736#
8-7344

8-737#
9-626
9-922

9-661

9-683

PRIOT
PRID2
PRIOZ

2-5#
2-5#
2-5#
2-5#
2-5#
2-5#
2=S#
2-10#

9-:80

7-547

7-573

7-611

7-6214

PRIOL
PRIOS
PRIO6
PRIO?
PRIOR

2-5#
2-5#

PSETNM

6-2620

PURFLG
RDALHD
RDDATA
ROHEAD
RONOHR

6-2468
8-867#
=394
2-37#
2-40#

READRL

8-24#

RESES
RESEL
RESES

7-838
7-84#
7-87#

PWCON

[ROYCHK
ROYWAI

RELOWT

8-931

3=2754

PCLK
PNT
POSHDO
POSHSB
POSHW!

PR]
PRIOO

7-462

7-561¢

7-546*
9-966

7-583¢

8-599

8-308
8-750#

8-352
9-916

8-478#
9-964

2-59#

8-112

8-146

8-37

7-349
7-349
8-<38

8-58

7-422
7-422

8-63

8-502

7-424
7-424

8-<34
8-<35

9-600

9-753

TEST 1 MACRO V04.00 4-AuG~52
(CREF v04.00 )

8-<59

10:30:59 PAGE

6 12
S-14

SEQ 0149

8-<64

0NWO
L0)~Oa~N0O~OOMNL-UOS~MO—OCaDQOAUDNLOO~\NOGOMUONQO.0
3568686561

OUOAAWV~OMONITOOMONLMNRONNOPVNTMNONL)

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

[INBOADOTMN~OQ=N UOR ON— LI| WONOMN

9-690

9-840

9-913

ALBRI

NN O -

9“9A~

N M OV QA
~2OOMMO
NONONONO NOSNNON
=M AL\ -

&-"=

”*

W3TQNo

9-961

8-347+

B-481+

8-344
8-824+

8-348~
8-868

8-387+
8-872+

8-479
8-918+

8-483¢
8-.63

B8-512¢
8-:69

B-482+

8-579

8-580¢

8-753.

8~754

8-810¢

29R1O72O579787471712870473343725980062514621732646257735‘787%27257921582”538“9459120O2NOP3O6T=ONN3~5DY7A2N3A5N5AM6N8O
I
N
S
M
e
M
e
t
o—N=—OOTMO0O=N~FvTMT0=NSTOMA2MPOMT=(T==00~WO=O\ BNOMe=O—MOMN~

%212=NvOIQGOMMTNI=1vN01ONW1NON4L=4%4&4100itAoada[dPl-~Fstttet

NO=O1VN0~AO0ON.NNDAeO—ANOKeRNey\Oe0AlOANIReON.eR0O.INO\0AP.AeSO0NOSVNVv.lRA0OSeN.OOAONODAINM0ReWeOOAODAA!NN0NeOeRDNSO.TSOO—I=—MNIAAI.0ONMANONDONlINeINIeIRMAAI.AO=ONSOIANNNAvNMMNAOOIN~leOVARnNeNN—MNAD.SOFPANWyOWMI.nMNSANAOAO=ANvIlNT0GA-tNRAeO.BAWOSRPNZMOeNRNOVOPAONNIlACATD.ANWONOTIPNIDOIRNAOM.MOOALNO0DNSN\AAFVORMAkMNlM7OTO3NOASNISN.SMNMYWRNSMONSAOAIPA.TP8SNONGNN?AOTRIOWSANR2TIMIaRTRRP7FNNTRA3AwANWNAfR8MOONLINNNiTNHNRTSNN8WORAIISE2OAAwINMNO7OINAOTTNW3NP.SIN8AOIINIOA~AVRlNN=AWRSNWDIISNI8NOfNINY2O=MONAAAY(vWrDNiAWT8NGNITS8RNWfGANeMNNoATRM0ViYaNRS0NP0OONAlRNS,V7DNNGaNMNNNlA2AO2TTMOA=9a3AODNOTNAGMOONONNAMWeO4MMM.RAOlNNANSIAOlOeE50RGA=RAlOCONNM1NOIGaN6O=GA=AONVNSIRIGN1GaOO2eM¥eA=MDMtNO1.OOOelNo~eeveONNtR12OoeMeel=MNMaMNA7=hAeGACAaMpA2NtoTeAeNfN7=kNNFAs6NeNeeMNIl7NTO=TTeRMSNAEsY6RN7TVleVVOA‘MOeeIINAKOMANN7NONNRNaMTeeT.OFIAAM0DNNT7TNR—AA—AO0-eMANTGNNONDMA=eNNNNMQN7GATWrONA—NDO—PAMNNNINO—SMS0Ry7NrDNAa-=RON—RMNO~NAIS0=AOAM~0O7NpONoNOSAANAN—OMLIOYSDRN0NAA70ONAAoROTeOR9eAAA0A=7N.NAN==BeN9NA0AMtP,AAAN7NAvevT0N~9NNROAM.=NeAe70NRaNIANA=ARo0NT2ANM7RORNMTM=A0N-NtNO7NNe=MIN—0LT’AMeeNAlOlA07GtNScNLONDN—r-oL~k
-](9] 230

USUU

(A,

SVCINS

NeeOMerNOeOsNGeBeINsAeT=enTMWnOWINMMITNTIRN~e=LTI-O~ N.OUGOTRRVROT(ORIT

580345522

O0O\\vOOvO0~0NN0N~~=TNNOWNOMOMDOMOOMRNNUIU=GOU0B0ONWNNNNe=NN=N=OIN LMOUM——O0B~NNMO—N OI IIIIBLU

1NNN912598811U1B 1ANN U2R 2N3I3I B3I4LU ] RN R R
H 12
CZRLIDO RLO1/02 DRIVE TEST 1 MACRO v04.00 4~AUG-82 10:30:59 PAGE S-15
CROSS REFERENCE TABLE (CREF v04.00 )

7-4

O0N~M—IrJTMO2=—vIFMUIMWN

SEQ@ 0150

Loe.0W.SNuOAT.Yl.ltk.l.l.l.lh.«n.h.hfi.hfi.lo.

0\v—r—G0000LA<FAG00+<€<2=OMIAO—DAUM74NATM2OOOO1=OOe—OM
(4o=€B0G0804~FU\=G00<3O~F=POMILAO=UMDA2TMO~OOOvOOOIMe—
VOOshMed.AiIAitARRedriAAetATVRTdTAVFPM(UVMdAUVMMbr-mVdDbGOVtOSVd0B0YVOOdO7000070dee7McBAIlNNdMcIIMOl.OOld1OO9h1OId0G1OOG001d——A1bNA3NMdM3IMAII4NN‘—5OOLOO6N6AN7IINNINN7ISTT9OO
vfOYyOeO)ASonOOOCu~\~hOyOeAVA~RYO~YBNGO(U6B80AN~50eOtIyNyR06AA42eSND0yY6ASRrAA\A8V—O0Bvy0vRNYN—I0N0L0YORDAy6yAAA08YO60C0YDAA086TVTNS<6UAeo0r0P1yYBNM08EAV3AUy0D0096FVyNM0DI0M(00WYAFU68AVMy0T00Oy=MD8FU0N0GAVRA8T0YoMv2rWyV6A0yA=00-M0—nsR5YM88ATv0A1v0M0ARs64GVGYDO40OI00y0oYR+PT60OAO0D00VnAo65OOAD€10Ay00§O7AsYPo60BA2OS003VOOORY0R436GO100N2e0A&==BAK000OO6AAM66M1000~UOOI260NST0—A8=N00OO4N698006NMR0NO0M66G8PA0P00N09O.9ONAP=OA.00P0GAG—eNAUD00NI6D6A08TTFI0M00NMNIOo84G95OIeP00O0VOMN6OD8AGN06I00IM0O863OGROMT000APODN6GG©000NOAO8OOA4L6AI60300MT0FOIOGA6ITD0F0MMM6GeO6A6oNTOG0300AADAO840((GaMBNeN 000MyMODVOG(8&a0640304yO08€Oa9M6D000M088—a—=GVO000OVO~&866=K~AUNN000.VMV88M—A6aB00IIO0N1NO8AN0AGA6T—=00RIIN86O9r0AaOI60N0RI6UNVVVGA6—T0A00MKANOO80966SNRNT00OOOO—68GBa=vIA000t~60686DGO0000a60T9FOOD0UaeG80ATV000.IG6N0a6TN00NN06Fa96T008Oe0SN-T-CAORANT—UN-ONI-WA—R\I~~INUY-Te-RA—ONA~\MRMRAMSI1~NSN O+MI-MAI~~
oUoVveOOOMtYOOGn~OCVO~VtrAOGIWeAn=~ON~N(UO06R~k\00J86ybD6tVvVVBD0—A008bV0rr0O—0—Y0T6IAS0O06V30VVE9AOG8A8A0V00RO9BA00€NYAD0I0NN68VAI8000E2LYAVALA06G6UAT5DA0VAA8G~A6GD0FYMVRA0SP06ASVD003IASe+G66800~—00VVAA8966GD56Y0S0SVT6VG59000AYV786AVG8A0v65Y0ItVG6F5v&©©100TVIs8OBo66=R00RF0II~eEsB=G4A=00D0S2&O6T848R)9004NO8GBW0A0N6OGO440RVNV8DMA8O6XR0I0SNNNSR8OX460A0IPAY0T6N6A9Pv03R0O66G6IN000GAS5886A000NSANOT6480600MSNGO4068I00IANOG0&6©00NPTATLR6G00O0SN886MFT6S00YIVBG6I64o0OMSG6IG4M00ANGMI0G(O00MOM89GN9NMDB0MV8O866R0O0706e=G56OR60O0NV8eAa6460v0EO6€A0o6RNDD0=098Ce—0R0VvOU6G06MO0Dv0Io6e9O0Av006Oa0—601b6AoO06oD00Go60Oo—lR6GooR10b90ToGl00GMb0.AAeRINHR-AOItiAPI~ORIP~
(byGOkrakOaknOsBAIN0VNOD0AAWbNNyOGAK~—=O—DGRAb8ORTDQVSD0OaA0L6YO044B0AADVRS08A0SN2SNY0Pe~0N8TSN0VC8vDR0YP0A8YR0DS+YGRS5YO05TB5+JO2RA oGn8OOBN8GN0Oe80O6BNB0OGLN6T040O—8DOD89G[N'8"VlaR8X6[aT'NaS8O1NXB)aRD86S3VSI8G0bNGO0O860MB36MV6M0—Oe8BOO8060A05MRA80D~O R85R6RoA86DG02ba0bRIa0beooWleNllr
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRO VG4.00 4~AUG-82 10:30:59 PAGE
(CREF v04.90 )
l 12
S~16

[|I]

SEQ@ 0151

v=AItP-S450HWtNT7PL8V)~E8H)- APS=dt1TAo$rNRaP}d-40Pt~vL)PaDtISeRn-h.

]49

28‘6872132512"7250684“068‘69583691562918‘6
OSN2OSUMULMTDQO00ALACALMNMINIWMINMAIF.vTOMOMOBO0S0OMN\OMNIMACINOMNONOIDTOrN—I~MNMOMTNM—ADOMONOMN—MOMO
OOYNTO2NMNI2S—UMM7O0DNIANAACWMMNIWANNWANvOvNOANODOANOONIO~N—IMNWNMONPvOvNODNOANOOMOIM—ONMBAONMOOONO—ENOIMMO
00 8 0 5 S8

90NO8T~S0WBO13EFXY~7oeN.N<V0YNP]e§o~X¥0096VT7SXNYOX0DNo.L7~—S—eYYFTNo.SX~F9<OOYYPXToXSPS(O0YYTOUoD-oO~93STNSYVoe&NN(=SvFYeAo:eV9=—=NOY)FXooGXeOOMON0CeoyOM9XNUOINVNYAoVoPWO¥OLMN,¥INOo9VYGeMMrNNM0Io¥—YNNBolVOAitiG¥oMe9¥AOMVNNoX¥MIRNV¥ao.9OMNON¥XIoVoON0MTVN0oeM9NGOAOIYF0N¥ooNN=MOVTN¥Aoe9TOOTNM¥oM0eNReOM(ONToM9oONOXUMN¥oBMeoIOOH¥NVMQoe9S~~N2NMOVFoFYeGBONNI¥00YGeo9ONDN00ooAeXNPO¥XNIo.9AP2OYNNooM0DA0WM¥YONooN9UL(NX.eoNO=(==M7H¥o9oUYO8T.OYeVo9NTNNeY¥SMo.9~Y¥N9oNU=O=Y¥AI9ol=NeROY¥o9ODFeOVNYI9oOTFeSLYRo9oMeeYO=o9OMeNYo9.=TQOLOAIYMo9.MMO NO—=NYXoN90M.7Nd=Yo9M¥NQ=SRY0J9.oW3TOLTv0Y¥o9.NTQCTMYSo9TNYOTOTYIYN9~oFOTTteYo9YdolOo9eLAYo9lUNTTOeYAOo9aRL lN[geAlo9geaRlNge=lT9goMel=go9OalMO gMfel=s
X1YT¥ RR MNGOO0e0NO2OBe9NOOOOPDyNN=vIOO9e—NLANIDOM°eo27PT2NX9OoITrM—9oONMOO9YIoNNZMeTN9AoMMOeeO9YNoIM-2TIeS9YOWOoOITOLM9YMo=eN==9vMYoNTMTA9PIoP~N0=LOW~N9NF-F02QOGM9vOGoIOIO9O=MTYQo<7Oe9=T20Y~ooAO9NOSO9TAIo=NNdSNN9STPYTooOR9TMO9oNNto9MMooTT9OGYOMo9oOOIRr9OTCPO[o9Nra-rX
~EO7OiQn10~NDFFNWwO07OTN%NF<0,NO01NS7A~~ODFWN9,0D+T—~DvFOSOOSIYTfT8aT9SNDOSTOFFe8OMYNPWOO9UOSoANM=PSO=O—0eM90INOVONI0NOFOEFPBO9MVNIODNOMRFGN9SDOMOWMMOANNOM9OPLTIMMPFNIOOU9INOONINMONNOOC9NAMMGMIN0YO0MG9OMOvIDrMOOMeNM9IPNAOO©0NUeUM92~7FANNYO0eO2G~~TOV0FFe9D00ONANO\0OODeM9N
7OP0bt70PbC~A008$—N0RYOSYVOTNBY=ReORNSIAOeSMS M00RkOMMRNO0eOeOe0eOODNeADe2OUINeTN=LTOLTOAL~oLNMTTNTTTRARBTRB
CZRLIDO RLO1/02 DRIVE
(ROSS REFERENCE TABLE
TEST 1 MACRO V04,00 4~AUG-82 10:30:59 PAGE
(CREF v04.00 )
S~17

SEC 0152

[]

[3]

[

ROORI~0A~QM-TOTNv=OORI0UNMINCO~SMIAINSQRNNTNN2
VO—VYcsOatVOcasrrOnOtceOt+rFaac8Oc0aaVESV00<G"30<eN8.<¢oFFMO)O-—NODAeNWO7IN=DONA°AUBMAOUM-OONUDOAP©OGIOONOAMAOOANVUOONONRMMAIAINRRN==NR0r—NNW—AMNNUUA—AAeNONNGMM0NN8OA0BNNOGOO=03—AOO~FOOTAWNNOONGQDNNIONPINNNVNTOONN

0OO&&ODRVvO8UTRYS.V0©OtA~SLa,u.IUSGPORROe0cRtNOYaOOe(C.(otNNrOnRV-caAAVOMePIraT3\IOWLVSTItRGAOasOM<MV—eG3GVOO0RB8PeMPOO<00V-0<O733<IRNP."I-NFV-ot <Ovvv8OM8AoY1B=SMOC01VIMUOOO(1.0V\=LPAO=VoN<ANMSO(AF8IO~oPMROOMaNF~NIU-OOW-06OAIIOABBANN0-0A3N8RROe.POOe0PN-IaOe.=AA=TRYg-Oe\PNOAMOAo-e1BOLNW0OOOAANNG-LoO2«CSAO<F3TISYoN-AMCNMPevvvIIIRUA.MS1PAvONvI=UNeA.IMFNPSOIONe PIAPUGOG..NOTDNAMOPMOORNR©AYV.II0ONONM——R.IMDNMO0YNIIIS1OWM.AADNNN0V0D0VK.oAAN=\rO.O—O=PAVR02<TOCM8MN7F.1DUNORO(¥TNOCWUIIUOUNTNCNNMIAIMO\SNAOONYV.MPNWNOr—O=oNR-DDY=M-IOOOND=——OGNG-ONINOOOee0BFINDSG¥O———0¥.DMSMTONMVCNOX¥I..OAPAe7OTN¥OI.-INONAOC1N=VOSPNeONFI2-N"N3.OAX¥IOOGBeYOOM.2OVC¥NMMOYO.DD¥ONITONANN¥S.NRIWXOOOPNAYN.oCNINPSN—PT¥4ONNO.-IoOAN(VITINNNXN.N0¥TOAIIAOSYINNX-NTN—NO=iI¥X-0DNO=v=re——RNXN-—OOODVYVGX.O00VMTONlXTNe-O0=GGRgD—NNOYl0G-eO080OOgN0Ytloo\TNyN-o
R43I—VOrSOY]VvCABR0*OherOCBYePiNyORNAOnY0r07IeN2te38OOn10rvCGa0s0yC~ANhFO0RN<3OCv~vRoAFoO0CT—Ny~8CoOAAo7OTvOASANAORTNPMRSINSOOMNNeUAOeBACRCRWOrOeeAVPoNPDORCABONRCNOTI0RNUOOeRMNUMCONGCMDNNASNOTNARROMNBACIOMAAOMINRtRRNMA.NNT=D—TBARMOB=6NAN0MNNMAFBRILSAAAABUNMCOCN—AI0ANPTDOOSBN0OBeOBOCBCIB0eOeSe<A—Oe2~CROOeSe A—FI0e~TTIFOS<MI2GFAR\0INOOOAINROGANONICITI0ROCNOAAITNOAAGORO.M TNIC0OBNIO0OIVBPIOO0[
Y—O+er—YNyJOyNT0OMvr7vN€ry7O=0GNOvyMy<=voN=y=vOTNTWNNTOAIRAFWRONORWAYSOOOGRT0NNWMRNNENOeARee==eMEPUP—TOTOPDD"MDPMooDODRTAA Y
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRO v04.00 4-AUG-82 10:30:59 PAGE
(CREF v04.00 )

K 12
S-18

SEQ 0153

1VPL

A1F-oPISevbGTRO7Nt~ATRP1 0CRCFOOOCTOFOCFOCOFOCOCCCCCCCCRRO PVUR-vlVP

§-19

StQ@ 0154

9-84

9-259

OO O
AN

7-400

TEST 1 MACRO v04.00 4 =AUG=-82 10:30:59 PAGE
(CREF v04.00 )

SNA S & [I=Toediaol n

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

9-349

9-400

9-500

9-592

9-614

9-676

9-750

9-827

7-2314

7-244

7=246#

7-259

7-261#4

7-364

7-366#

7-378

%TMNBAWN=VAB®VNOOMN2OO23R76”4“0OMyaD5NSl”1“”®»5“”2“37”98“3b0717ON2«O”'N30”®—19W0A4&273X14%65557x0N8G0O3~7yL“R
WN~T2MBO%NITNO0xB={|E71%7907632JORB3%bRdONM2NO%INMNMOOBOR=B®Tb-OMINA-ONbQON-SM3L—R
»T&na»Bv8BNaTBID|BoO&Be8¥BB|nNB®B®®NNRTn»BeENTANI]NXRLIePYIBRHTbR3ukhtL&ViyB8Ry3&xSb]»AbIVTe®RrI8NTSEb¥A»&n¥I&RONByTB-®I»NT¥RNYTTISRYRu]SwTNnYeRBAS YV»xn
0aW0—N§OTINBOAOSO—8TU3o4)0UOdNY0XMVIoo2-.%9——NNvNO¥Y.oe-oNWO64OIW=ONYo”Y%MIo-NNG¥N¥8I19N9YXOTIWoeSW-4W”O5WNNNYoe.RMY&B9—2OeDYN-XO0Ao4ODA6OYYNNOV“oo9e-MMOTT%&RO51FNYMoINNe-=X4b=oN4AA(9N9=e3¥NeoRMW»OOO0NoIoerIWWevN”.N®9eANANe8+Y¥.eNyoott0O:Ra¢rF+ONI3YIWoMVMN9N1M0OY§OO‘ND¥GNYMoN-I24OAYIONW3¥YoIWoe-N3NeNTIDeO6VNy¥o‘Oe&MNNNW(OOIo7NAHYMAN5..NNN4&OIMYNV¥3IMoM3XeNYo&OBTS~Y=45eo4NWOXOgOAT%Y037R7o.eN%ONR0-TNAM1I1P05TOO.NM4L=72DNN-S8"I0-OIYVOTN7VLT04A—e¥NeONYOMYNX72CNoeoNJOAaNYe*o8YNFoV7oVoyMNAeN»c—ONoFIYoo9O.*sNVNVco3NVX¥ICN5AeoVNVORR35GOYNXR¥Oo0oN*X¥—Y8ORNVXYN®Vo9NooONONBIO—NXF¥Ae~"oeVooS¥~BONNVN3Me¥Yoo8oOMkM.WT&OeNe ToYVNNNoo=.=VNIRON¥RMeRMEo.oE1NON&RTORNAX¥NOORMAoeo.2NNN¥TMNDNY=YRFY¥oo6E.—MOBMRNT—Y’oXYEAAo7MoOP.O®RRNM~YYxANNOS¥Ooo.OABIMNNNy=NI0oOooNO¥TOMYYNYX1ooo~,NTOSYYN3IM0oo.MON¥ROOMMYY7ooMoOMOWEn»&NN RINYT5Y3WoOPMoMNo.NRMINLY2BWYLNOooNoWGsATOEGS7YZOYoToEDoNeNLTANPYYOoo.NsONOW8ALYRAeooONWIO0DTR0YRYoNoeONOe2YtYANAoNeoO9IReYONYEooeB—t8CNToedOR~LFolTeoSNOTWuA3oEN1eLYLyNNoMoe\NOoylNoBNIO731eR—eIOoeNlLuu2V2l3-5Ro—NIVAlEl0*oLyM‘Ne5Nor00IMLloe~I05OMloMNRasO0NMLoo4seMM2k0M D0llGAEGIN -LLLlS8OOE=—o&——o=yll
NOAoMONeNXVOIWotINYNF0VToBINTIoNSX2STVNOANoN&IOO¥oNWVINRoV~Oe&OUN¥YoWNeSONVMNeoNWAR&yG=Y8FN0oRS¥NA—eoe=2 ®0o.OsNBT0INoNO—OaNVtY=SWoEMOMeTXoeN=TIFoSeYNITOASFXMWNeoVMATOYJNeoOUNTAYF0oMBCAvAToOTRN0MEANTV1ONTOo2XS=1TM1RXNYvOAFToSYOI=SN0ToSNOVIYTMVoAt_TTeNwTORoVMNVJOeo~RNT==XAVoMvSYIyVNoOUMI] YXYEoe0GNIYVoSSZWINTFRoOeSe—YoYNTFo3VONLeFOoNOR=NTeoN¥FNTO—Io0=NUYVANoeN—=\NReRokMB®YNoAR—OPEKIYVoJNIANYOOeoNN RMLINWeoVOANYNMTWoéMe»N ANNUoeOWMYoNOMRVNANoOMCNNYSOoIRXNYAeWo——TYOTMoANeANYMo.AYoWIYTR.-o~1<NM.N1TIN-o.YSReOoTNM.YN[IoRTITYIMN-[SMAo¥X.Ta»v2ye&8&n®8 YYTRP-TATETESaTyTr&rRBTRBeN T T YYYYYY
—¢]a([V3oLIv"N| [[&4-T-V[3] [V[o—Y=}]]
XO
SW1S011 DeODA1ReVSeSAARUOGOTSS T R N VRNeAN AR
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRO V04.00 4-AUG-82 10:30:59 PAGE
(CREF v04.00 )

M1
$~20

SEQ 0155

—=FLIO—RBT\WDNMNWMOIN~MINUONM LoTYN.:..rr12o.on.&n.vQO.Q.Q.99999999999 NlTMlA.fNlMO“N“AcN)O—.)N?ONo.b?O172“'3819040717'840“92[oYJ.X....v.G.bnw,.w,%,n.v9999999999998%.9999ON0gAeMNTM\T6NWCv=VI~VM0WAINA

[

]

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
9-871
9-926#

TSPTNU
T$SAVL
T$SEGL

1-8#

1-8#4
1-8#

TEST 1 MACRO V04.00 4~AUG-82 10:30:59 PAGE
(CREF v04.00 )

9-871
9-926#

I-8714

9-:84

N 12
S-21

SEQ 0156

9-:844

9-8714

9-876
9~:844

9-876

9-,52

9-876#4
9-:52¢4

9-876#
9-,;52#

9-884

9-:74n

9-;76

9=-,76#

9-.80

9-,80#

9=<11

9-<11#

7=-141#
7=710#
9=<02#
7=246#
7=444H
9-259#
9=750#
9-<03#
9=-774#

7-429
7-733

9=<27
7=259
7=458
9-344
9-822
9-<13
9-805

9-8844

9-884#

9-926

7-4324
7739

7=441
7-748

7-4438
7-752#

7-459
7=-754

7=261#
7-4814

9-3494
9-8274

7-364
7-665
9-395
9-895

7-366#
77114
9-400#
9-500#

7-378
7-727
9-495
9-944

9-807#

9-820

9-836#

9-889

Y217%i5+7e&no0e12o6Y6y20aNe63Iw370T9”sVNeETNaEZOTSN
543.37“05“»%8129”9”9MS3W6W?¥1ROT»IODSO=
-TM.O-.IN.INI.TI-=.N.r—-O.-.O-M.NO-O.MM.INS‘G-EO%—-AoNO.STON
VsararaVoNsGO0NONNAMNMN=INSRTLIVLUMM|]B.OVIBV.YOSONNB4NaXRO[|
TS$SUBN

aw aSyasas un an "y

SDO0TO1V]7.&MNBNBeOR7OBNVA;-ROO3OItRh0Oe-t:COaOur0NS¢A-1R0hJ=OOeD\Iu0OeRIOONVRN7SeAIO~ON<NOaROMRN:OeCOPS)EtR-NAAAOON¥TOMAPA)-kMI1ORRANMwnCOO-RLIOMORNkTI-MSQMOA!NOu-BN|R MROROQnIRARReGO,D-NNN=ROOS=I~NSOOORMNNMB—RA.rOIO=DaNwA-RNnNIOtOA0uRMOAPT ROVMNVMRNRAOMNNTSNmMRATFOO WNOg0O~IAO®m N—RI(OONNN=ONNeS=OSWMANVAONOINDW=OOONNWI=OANAOLRAON.O®O=M®O=0UxINA"¥m TSQAO=OW
FC8O0O-H®Rr]ION3hBBOOAWY6e%NOOsN(7~F0XFOX8IAD=hMORIP10aOUG-Oh=ODN~-Tb0O05CeW-MtrP0OAO~NDL7eMGNWO=-h0O95NO-0bA0OSTO-~uMC9ISO-A=Or-eI3ONSIU-OyO0TN0M-DW‘H»»» OeNeOMW”eOGTtRNr5SR=DOOT-M9MSP=O~NARRO O&TOMNMeNO—ARAMtMMhOOw%TA»MOAA2AO IWIVOTONPURMDGOmmATUwuOMTOInOOgAWVNO0=NOsMVMO=Ro®OOIvG|0mwON=YOM"OUODOD=IAN2O®MVWw0MeO%B—=GN&DAO0M%INYMCT=—eM~DO8OIAMWVTMN=®IeNOrru"—M[
B-R-vSRRI
NrASvRrIYRyASyTYIReARTyLeSRGSeNSDeGSCAGuGCWEFjSIGteFIhGeRNN tSThCeITRYTFARaOTTAhFITROYTTO»TORRR&AodASSaPRNcRodNNNANl
dodddaddrdrddoc ARlldddadsAl
CZRLIDO RLO1/02 DRIVE

CROSS REFERENCE

1-84

9-455
9-807
9~:164

8-498

TABLE

T ST
(CREF

G-349
9-614
8-836
: 00

7-201

8-504
7-422
7-651
7-702
8-16

1
Vv04.00

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

9-3494
9-6144
9-900
9~: 004
7-2 15
7-424
7-654
7-703
8-17
8-509

)

9-74
9-379
9-676
9-900
9-:12

7-229

8-18
7-428
7-655
7-704

9-51
9-400
9-676
9-900#
9-<29
7=-244
7-538
7-657
7-705
8~99
9-400
9-676#
9-909

9-51

8 13
S-2 [4
-

9-51#
9-400#
9-686
9-949

SEQ 0157

9-74
9=455#
9-807#
9~:33

[]

s2-awn

9-84
9-455

9-750
9-949

AITON—INEINMMNOYOVNOVOMNIENGC’ 05666217—3W5N98O2A09N5—“2N9O7N8O0M1N lM®dRiddldardrdrdodtoc bsANIBSReTDUVVP

[]

9-84
9-500
9-750
9-9494

9-84#4
9-500
9-750#
9-957

9-259
9-500#
9-774
9-:16

9-259
9-592
9-807
9-:16

9-259¢
9-592
9-827
9-:16#

9-268
9-592#
9-827
9-:33

[Vl0000ONON2UM—OV
I<R0AOO0I
R3N3No—«OGN00MM0INAMOMONONNNMOVNUNMMOWOvNMoO0=NI8eOOG0eD—
0YNoOVvXNoWoMONWNNVooN=NNNOoo—0 NYNooMOYXooNNYNooINYYooNOMYXooMNYONNooYNWooYYNMooAYYoo—AINoeM[=YyoeOOIlo-JN~OoeT[e

9V9N99I9M9I99.O.%'0
%8Y8N8—O99Y
V
P—RN9Rn9MTT9O9WTN9NO99OO9999PT
T
CROSS REFERENCE

]

—[— v - w

TABLE

TEST
(CREF

T8-)O9.MT9-V .NO9.-MD.9IUN.9ONQ .9OFN.=9M.NO9I.D9.W9.ONU9.OM9.NM9.D—.9-9V.O9OW

CZRLIDO RLO1/02 DRIVE
v04.00

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

S-23

SEQ 0158

O[YoTg-eRN)Jet WNO=NINVOFUOINAMNB~C

1
1

8
5
5
7

3
0
8
7

2
?

860
927
9-:74

9-592#

9-614#4

9-122
9-857

8-736
9-539

*®

9-602
9-130
9-:69

8-<52

I S
Y
MS

ST B
VOTRNMITRENR

2
5
3
0

9-26
9-792
9-153
9-:76

9-30
9-811
9-190

L
3

[]

9~-34

9-208

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

1T172%

9-:32#

TEST 1 MACRO V04.00 4~-AUG-82 10:30:59 PAGE
(CREF v04.00 )

9-:22
9-:05
9-:11#

125182

6=4'4

13
T3371BL

7-463
6-55#

G-844

T4
741

7-663
9-268#

9-2594

T25TBL

1365%

7-663

6-28#

9-94

9-:944
9~.:62#
9-:60

9-51#

9-109

9=129

9-152

9-166

9-31

9-323

9-332#

T465%

9-272

9-290

TS
15.1

7-463
9-379#

9-345#

9=-177

9-189

9-198

9-207

9-219

9-240

9-2534

9-972
9-449

9~:19¢

9-:85+

9-:88

9-:02+

9=:53»

9-:56

Q-:58¢

Q-:40+

9~:61

9=;07s

9-:23«

9=;27+

9-;31e

9-: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

75048
16
76.1
17
18
19
TBLSTR

7-463
7-463
6-154#

TCERR
TCLK
TEMPO
TEMP

7=434
7-490
6-1894
6=-190#

9-365+«
8-239+

9-387
B-241+

9-935+«
8-311

9-937«
9=434+

9-.939
9437

6-1924
6-193»

7-272+
8-78

7-287«
8-79+

7-288
8-81

7-333
§-82+

7~335
8-84

113

TEMP?2

TEMP3
TEMP4

TEMPS
TEMP6
TEMP?
TEMP8
TOSLOW
TRPFLG
TRPHAN

TST4
TSTCLK
ISTINT

TSTLAB
TYPDR

9-364
7-463
9-455#
7-463

6-56#4

6=1914
8-586

6-194#
6-195#
6-1964
6-197#
2-654
6-245#
7-681

9-265
7492
8-70#
9-910
6-404#
2=11#

9-388#
9-400#

9-500#4
9-592#
9-614#

7-358
7-523

9=:25%«
8-637

9-66

9-92

8-;71
9-,78

9-:78

9-.78

9-958

WAITIN

8-33¢

8-174

3-152
3-16#
3-35¢

Qu:fbr

7-759+

9-282
9-373
8-172
8-166
8-164
9-:88#

wiMSK
WCRNG
WDESTA

9=:28¢

7=527#

7-686
7758«

2-5#
2-484¢
7-31¢
6-403#
6-402#
3-29#
9-:74

2-%#

7-525

7-680*
7-"13
9-269#
7-525#
9-23

UAM
ULOAD
UNDTST
UNXERR
VCNRST
VCSTAT
VECMSG

VECT

SEQ 0159

9-:92

T1765%
T1865%
T187%

D 13

$-24

9-:74

8-108

9-:20

9-:03

9«:50%

9-:52¢

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

B8-%19

E 13

$-25

SEQ 0160

gzde
L X

[
—.

XSEEK]
XSEEKT

TEST
MACRO V04.00 4~-AUG-82 10:30:59 PAGE
(CREF v04.00 )

[
!
800
LAV 1,8 1,8 [V,] VWA led’d
d
N =0 NN
»
~ ~N -~ LE
2 3
"~ W
o

WGESTA
WLSTAT
WRTSWI
WIDATA
XSALWA
XSFALS
X$OFFS
X$TRUE
XROHD
XROHDC
XRDHDG
XSEEK

mmmmc'nm-o...a..,\, )

CZRLIDD RLO1/02 DRIVE
CROSS REFERENCE TABLE

CZR L100 RLO1/02 DRIVE

TABLE

(CREF

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

SEQ 0161

v04.00 )

)dDTI-ITOOCIOXIITOUN>LOODIENMDIIOCOTYID~OMTOOOIIEDCNOIODOITDTOIES=OCDAAD
O[[]} ~No]UN]aOU[T Mo[(U Oo~!!
oO 0O ]] O-IR N~U
OOO o~~[] z M-N~U0O o2]]
o[ o] "9[

NMNoNOWN0NOCTOOMYO3NoWMNNYoeN—YIoOMOoNEANS[ NONNe-N-y~OFNONOANo
ea—oTA]0ONo[] V3X&eY3.V%G4l0YJ.o01GV0Y-oT‘MPe<[dTY7[eeaT~V[¥] L~]][‘e ~-[y]—

OetyNW3DNO——gV~-0V=YNooTI~DWYToNMYO0NAOow=[M(=YO)fOeNWM¢—NRNeXWAOeNgTW=NVTMNeAAlgON"Ne2DXNo“w N@N2"OS2am)RfMTl2‘[OoY~roVma-N(w2y7OZanR)OWX(!UbMM0oS~a 8Ym—ooN[MVyayY-ZPOMXUeE—LmP.UZnROrRRWX~u“L~wwN~~- HoM~l
O
o
[
~
[
[
}
U
y
U
T
M
N
0
\
w—
\—oNNDaoMooM= -OWO]LaMlalaA¥iN’»O1. LoOO-O~AvoW@oo o-]AN1yw_=L1~on~0az[l a-0—

CROSS REFERENLE

TEST

DESCRI
DEVTYP
DISPAT
DOCLN

[pls]
V)

ENDAUT
ENDCLN
ENDDU

ENDHRD

1-20
1-22

7-463
7-659
7-658
7-705
7=727
7-731
9-~.82
7=6440
7-665
1-18
7=-201
7=475

9-<13
7=-748
9-334
7-458
9-45
9-:95

O v0 N~

7-550

[o)-TNO

(2] ~

7-632
8-99
9-:63
7-726
7=-721
9=-:74

9-416
8-116
9-:74

9-:39
8-151

9-:18

8-504

8-761

8-774

8-779

9-521

9-535

9-639

9-705

9-799

8-99

8-116

8-139

8-151

8-159

8-316

8-380

8-493

8-504

8-605

8-768

7-692

7-703

8-17

3-37

6-353

7-229

7-132
7-244

7-429
7-259

=461
7-364

7-459
7-378

7-468

7=-400

7-667
7414

7-733
7-428

8-<68

9-,64

9-.98

9-<27

7-754

7-760
9-488

9-739

9-805

9-820

9-889

9-931

9-:05

9-:83

9-;51

9-254

9-344

9-395

9-495

9-587

9-609

9-671

9-745

9-822

9-895

9-944

9-:11

7-721
9~:36
7-722
7-651
9-468

8-18

7-215

9-384

9-79
9-;63

9-:1%

NeVrNe=NNOeO8YoOYo0oONeoN WOv]P No=RYo oUelL(a1

o]«[ X ~— 3K Q[ &U -

WPNMyxv2339%o«

ENOHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDSFT
ENDSRV
ENDSUB
ENDSW
ENDTST

8-779

9-:00

ON ~~O 1OaWY]n<N=lVgMt o ~oN

CLRVE(
DELAY

~0MmzO [U] 70o

Oo ~
Oo ~

[} U]

BNCOMP
BREAK

9-:16
7-545
7-651
9-85¢4
7-704
7-281

‘e © ~

N
A
O
N
M
Y
E
BRODU=N

oYB[}yo}Y=—L o||[« DOOLL N OUL
ooOO§ [ w0UM]O
)ON[ O~¢ —3 O]M N UL@
VeV T VET
eyo o WOTTYT
L[a}lala]¥l-,] ] =ON NUL

VoO¢[] OVwWwIaoo

TYPy NMO

9-266

9-307
9-699

5Aev2|II0NI[|NOVNMAM9Y|NMNAO7IyNI5MA*WIPO[NNO“IB2OMAOANMNNMAOoO=NNPDVNM4NDNTV0R”ODNDO5NES0OO3VR2DMN~0ONODDU0OI0NCL6M0OO20EO9OOI0~N®2~oUNOO0"8ADN2¢5OoOO0(M”~DON00MNr0NT—0MN]OIN0NN~0O’O00O8-P§RF.so0ow~oe—4L(]oLNKo]a0~O[l0O

e&OMIPI0TONER—VOVNIEORNRMNSW0VNOePVONOV=ONBJ47aL)o[le

uWmEmATEP[«
oww o

3eeN=Ne~eTS7])BA0INN7m<VIA[|0NN—7—2R7~—VJOVl]LIL~OO1‘2DVOF05VTOWIOWNV19C7beDNAOC87V1UN0NAkOAID1”O0NNCWSIO7AO1POCMDWN0I8O0NSRYSlOO1PM71ACC~O=ON.AI7MYOAR”RNOIW00NYN0OON7SCIT®2V»NRNANARN5N=MT~CNNO20OO1NON5Ne4oOWOOIE95y1(IWNOVTP522MDOGIR858VRoBmINMO19O2=YiNYVO‘IT35IN5ySAO.VkD~OM85”DOIOCRV0NO2P=zFND430OIRORMTANB5N—OPOMRM8TOORNI05ONVTNCRAT4=SNOTR R0IONII&2O1\QINA0OT56N2ORV D—C—H4_k>¥2v8o/ mOO~NN»n>63XX1—WG-vSOoI70LO3O0—®\[3eNROMNOZ5xMO[o70OOx-vNV
0PNN|I0N§|SNPObMMNN0NNOeXO0A—FNoNMAONIoMONAoMNoG~oOITM0oFoI1MN01.DbN1.Ve21OO.No&0V.&BN0S&NOB0~UU PSN0uPN00YoMnYoD8YoNTSN00XoNYo0ZR0YIoO80JNoOy0N0Yo~N$[o o-N NF &[8 ]oaN[o
w

]

TABLE

(CREF

v VTIVTENTVYVTVTP TRYT]UC[]ET e

CROSS REFERENCE

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

v04.00 )

SEQ 0162

O[VONM4O-eNM1I¢VPZTY9«WVINYMAT ~OT=WPNMAMBAWNIVMONOINDOAN 3[]LUI|K MArN—NWD— VYPTMRUBoO%ReYqTER
7-132#

7-378#

7-458#
7=727#
Q=454
9-488#
9-805#
9=-:05#
9-:82¢

94914
9-.78#

9-278#

7-201
7-400
7-459

7=731
9-79
9-495
9-820

9--98

9-:11

9-%03

9-.80

9-529

7-201#
7-400#
7-459#
7=-731#
9-79#

9-495#
9-820#
9-:11#
9--98#

9=529¢
9-.80#

9-303#

[

9-2564
9-587
9-822
9-:83
9-<13
9-339
9-815
9-<05

7=215
7-614
7-468
7-733

[

7=215#
7=4148
7-468#
7-733«#

9-587#
9-822#
9-:83#
9-<13#
9-33Cs
9-815#
9-<05#

9-254#

7-229
7-428
7=475

9-334
9-609
9-889
9-:95
9-<27
9-358
9-:70
9-<07

7=748

]

7=229+
7=428¢#
7=4758
7-7488

9-334#
9-609¢
9-88%¢
9-:95¢
9-<27¢

9-:70#

9-358¢
9-<07¢

manTaaey9POFT0etbTPIANIINSTT7
4NTOOINNNATNITRONM\/NOM~YNIOANTeOANTRMNTQNGNIATRO-5NM¥,RVI.5-N¥,NIA¥T.1N¥.26T]¥,“NOYM.E5TO.¥3.N”OYI-M.RN“N3O¥.”Ne¥LI.“NvT SONA-S,eRTOWNY[OO.NMD¥.ODNO¥yO.CMNWYOR-WOV¥N.ONWD¥N.OWOYN.NICTT YWO.NyC-TINROoA-WN1MVOOOTV@:DNOOIoLLNNDOaWRNKle
XN=NT0ONMOMNNOMPNRK0MNeeOngdAWg=gAsIgNiNeg¥= DogAIMgTIAHroNM—POW3AYo3N0IXboON3oTLYToNATJLoONON3BGoNTDYGoOYNHN~VoTXo=YRPOoONMNoAE[NeSNeTTNS ¥[[N+ RoNNOoBN0MSWG—yNODM0YO—AOOOOO|ORR—OVVMeOMX~NOMoNLWoS3D|

7AF=rDYEYOETOMNrNE—EGNRO=Y0OUNO=89G|DNrTEYMOYNWLrMMRYYQ8)NYOALo=AYILOMNSSONR8=EfyYINNgYS9LWNIOO=PoELYANIgDNVN9ooMIMOYTYgoBWNeNINN9¥¥OIBANANOYoNeA2NNXMOTWMNaoo9NOONoDXo‘NNWXYoo~MO49NNOLOXYYNWooI6A0AXHNooD29N0YXOOooA0AV0YYoo01988IYYNoo02O—8o“e9NOO2D[SYYOoo1$)0eo9SSeOvO3 OLN[AN]o~[o}%Q9OY|OToo90NNOI~N¥Aoo0MROYVYNNoOo9OMMNoNN-Ao%AWNN—Ooo1MOANNYVYooON=UCOOYYNoo1NWOEeeTTeOoON1NOOo.O1—MO10oULAoOo1N51—Vl.OYe.%XL~eKoBWOMN=O ONOA )[oK~¥oVO7Ge~[F[[o

Q5L]32OPALANRMIAA'"aNuu'mI",auNn"m'8u“4"%“w=®E9.“.RASRNeATSR“w3S-yLT3R
MRyTOIIOr—=R=BY—yvSTvieORIeMNIGOnMNRBPNMOTI~rNidTtra s= O TRORIOaTx0OhTNaTM~aNIOTRORe0M~OTMIWgS o7d

gNYA'Ny¥abiRTphiTy-TRTSWTiTY.NY.o>YD.NY.¥.V>RY.¥.DN.N¥.OTY.AN-3XD-SYA
3V¥oTX¥,Y.MYoOeNN¥NM0TN0MYoeYo—TYoeQe0O1oM3@1OelDoglMeL
CZRLIDO RLO1/02 DRIVE
(ROSS REFERENCE TABLE

]

TEST 1 MACRO v04.00 4-AUG «B2 10:30:59 PAGE M-3
(CREF v04.00 )

H 13
SEQ 0163

«ONMAONWAVAMAMOGFMNO TITURTLEVToOPLA3NTOY SNaQ¥»Rny o¥G&SAb¢RT RN©MWOV2oOPlwQOWNOn SMNwQN-MeouW7O39S WTYyAoRhToTBaPNmeTaI®yNWe:oM[gw-oAV"n.-

[

Lot
g / 02 DRIVE
ERENCE TABLE

l 13
TEST 1 MACRO v04.00 4-AUG-82 10:30:59 FAGE M-4
(CREF v04.00 )

SEQ 0164

ONMMPWVWNININANMNOMNO=OO0123678%167.ANWNCINAONNGOONO~=TVNINT
-Oa_VF9=TnN«0eNuVe%9NN30VbaOA0FNTnV61NMWIN"M=N2bxA»VOWN6‘1NMI0N0786RNVTIef1Y90‘N«3bNw—N3bV7O765NOY0916POSV6“93—=UObM1eI1LMN=Nr“M633ROI=MN&405RNLtM89353A2UOv%47bMno¥-0QO9S391OOOI2«552»VO7838joRS~5p95lea-OOuOh8“89NwvJN%h~yNerw9510W=OnMsRON”03N0B¥OMN5“71N1&8B&NO001202Ih0|ON/T37466wk&BMWN871%77ROOONIM4N1NNRU.OO898MNW=NW8MA%0ORN%OON816“IB=SONO58N*&xOo1478II(581»xOMOOuMW05OM%eS“M‘P——+—W005NN®eCOMO18yO0T18Ux¥eRNO220bMO3O1230u®—0I1NO—42AMMN2eNT5AWNNV5|NKT%MX»VSNOMNEeP7O3&R—-R~e=NNPOMyAA9IOXPLR=.NO3OO1.NAO0K3~0k~xNOBbA-3
yYs&YyY®v&yvYyvAy%sTyYavBoytAvmByeaOyveoySuY"B mvyTeyNaegNYonyOYmBYeoByYOeevGReB S%NNMTA&NWNBNOTTN S®L'NyB8 R-TOR LoANPRSeNOO

YIOOVMYy7e-~~NYO.—R~OeYY7O\RAOyNOYS-YYVO7V|I\.AyOON\vYYO~'I6&DxW0y.FMNVW7S9Y0YOI.eMGB6NVX—y0.YN7=G6A¥ynOV0A8VT4G6GNo&syO0P.BS06vGsJIDON.8DeoM8600V.Iya0G®MO08Ve?wR6GAO0M0-ey8Y4Au6IO08D.eEyOGY4GO=0.OYGY6AN08V~OIGYG860I-bSGY1AO038PAse.3&6G0ITOOL&e-4BV32)N8O00.6AGM00vvN16OAV80NxDb.NL 41AGSTk0OT-A8AN800OAAG.800VNRT6AG8O0NPT%AS6.N00t5VNBA86I80D0NFOBRAA.00NG8-OD0OS]&GGR.0NOIGGT8M00yORN»G6(A6e00y.VEG—4IB800CB%BGO8M0N0.yTAG8O00-VMBBGAO00.Ce=0G8G6A0NG86I00-IO8GG60N0.P»6GaGT0N8eAa060.NO096TD0O8|T60GO00T-606TDDM0088NG@A0DN-u.ONIA\ONn8rBRNI—N9NAMr.RANI—R93RR~NNWMTMV9ADT aA.S-N9MR-2uNAe9—IPN.LOkA09NA~
OOObV—TeWN~~—OVvNNONBOOVOevIWObJVMIOvFyNMAeRVNNSeVWIYVNVCAWIYMOVNDAVITNRNVYNW0AVIIVNT0SAB,DYMOIGAVNM0LVNOINSAGI0NMMF08VVIUOMSMA6IY0VIT46A2—RvM0VO8OBAOCIN0TO8GIK0OROV80V4Y0~OIMOD0BI0I(se0I€s1OOI9l«'N2€MUvPAO(OOWAeD0BiLItk0NSrPO00v~OOG—I40BSG81N0MOR~LRAGNNIO0O—VVO8GNNRDBIMNIGAI0rOYMIOSG8SNVODI+NRMSOBsOG-0NOaAIN0ASAOIGAONPS0OOSIMN0MGAOODNIANGDUNMAM—VJ0—Ga0e~0eGOOIADNNS8eAN0MUNAISG4MO0NCG6NIR0VUNDA0UEEAeA—G9N0OT8GON0eICfA0BGENO0aD0A—CO0T96NkN—OCRANAUcINMeFAINNOMvAMBNAUOIOArBNe0B=AOROPOMOIA~eN—O—PA
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

TEST 1 MACRO V04.00 4~AUG =82 10:30:59 PAGE M-§S
(CREF v04.00 )

SEQ 0165

NA0LORFTI(DA=N—UvMIOSA~OANT

O1%WOT5T457YY“T9Y1Y3e4R51-7=MOANONNINMOMNO=NONLOLSTO—NTIMTNVP
wO»&uu‘0BW2nn38R405NB84R[5Aa)L»x6AAdxI3NRR7-J®3(W23LUyoM1-RO‘Fb¥8&v2»BR5ON0=R1y2P“A2NN6W«N=&%1NN«$WnAO6-Mu3I2uny5bMyW6MgBW®3nO=-8NJyR4ebNh%3O‘J0B'0%OB»6u&2Oy8Nn»‘x”‘8W0&M34bMB69n35L"7®23BNM3]¥51v3LybR3vL02B3O9R5LtD“36D2Buy4BOR9N‘u163uRn81J8”M5BBM143]96—L12OA8O¥SNOIBC.
9O‘8oN&O940§1TAN0)YXO2-S2~0vYYF..‘?9b9S1YOOTY.-8T798YNT=NN.5-T&9\bAg2YOOY3Y6.T.RN902kOY¥P3o.%eb1G9bNIO0I8Y7.9¥MbSTNv¥82P1.929SYbIYOW811R3¥0NWbPTS(NVI42UI.9‘p9bYSOM823Ab4¥NbLFO©Y%oe969IBBo]O1=0M¥3e70XWLNN.Fy5o979OYDN¥AM2V8PNMA‘O¥WYS..99MxNBNMl7»N.oVNwMMAM¥.MII.A9196ONMIINoWOD18NUM.NHo929IM7R3%¥G%NNTAA0o.MB5OL~3.99y6NrD3BM=4v~YNb.Vo3fMrT¥NM.o9489OMlMO¥N4a5.O8Rn”V0esB¥B‘M979.T0RMON&E0o7¥NOeNX6NoG989MRNo0¥.TeOY8oo909NWOe¥”e.o0e2NRROI¥‘o919.Oe(HY6Io.Nye0eR| eNM.AXo929vOI%5X¥Mo3.POeT&25YNo99.see&rO3~—NO3oseSXOb—=r”X¥o959.eOO0‘=NYooNDR¥OOeTYYNo979.3RRO=5Ooy¥T==6OOYYo979oNNRW¥2=0YXuNo860OBoyOVY=Yo9.9321SAN=T8YYoo2N~8BOP0D0X=o939ye84]=—OI0TXbLLoN4oMO67303IXX=e9591M&O==0f-OTT0vvMMo9691lRDoOWO0A=Aa78OOl0BDNe98a9OtO0T=%aR¥oOl0Se.99gOONl0N=0NoRBl/e
TAYIaOONRFWe0VoNk61OvNIoO1TOYOI0oR1—OIvVSNo~\N1IOAoT~I8NNF1SIOoRBWV0PSoNTTIAvbNNSDROyN8Io((SOTF%UNIoPeYMAMKTSAoTNWv=DSeeO=OOoNIOTMeOYoeONNALHeoeFAGBCYTIOoUe(NMoMVRNNIIXMeAeBYoyMeIOMIYNoOMVYIoTA&0MNM0To=8OmMT0AoRvTMYMoMO=Yo0OOOMAJoM~©OYFeoO~0FTeoIO~YeoNNB0OTeoAN0YUoNN©OMYeAGoATNoNrXOOeo-MBAY—soN3FTNOoLrONeY—IoNMTIMLTYo=ODYoO¥eYMoOTFeYMoANFOXIoDO=eXNOoNNMeYo22AoNDIGeYoMU=TMLYoMstIoeYXooTOTLYYMIooQNOeOPTILOooTTYYOoo~GoYoXBYg¥oNlNBo-gLteNTNeglee
O)I»IdBa0NS8YR8eIS=R%GB0 eINNeNNeTFINA»NAOeDOeO23MsL~y=NebIOTM8RITSOTNP
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST

(CREF v04.00 )

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

K 13

])

SEQ 0160

[SIAB]

[

NIM(PMOIWP=vNTDAIM~WIADWMOA WQO=NOTNIOU~MNWV0MAVON0NARDNM

[
]

n©hehQMu?R@e"nWB—MNO9M6W—“Rs1BhMTeMn7MSS9xN1n7Ba4n3O5-&R1wO3B7A0B2NO3k5Ne”97T%0MI6NB&—k5O6RA2t5O1n9o4R&N®SMIBNu6Rn29m9N9557A
3esT«ONNP]M~[[«®wYCP6OrYhMIANohAAyyN7NYhMOrON9OEOmBN7YYeEArNCNhnOYSyM0AIONe—Yv0MNOErDAyvL9Dy5==S YO5IMOAvwyMV3IvOCnON8MvMN6ITNDAD8MO4DN8ROOON0ONMRS7RNNM0NRSOOR‘OMYM3eACMANT9AeN1SSe0NNO3TRLE 5e==e75SMC2O—NN5OTOMVNA7OOM5UOAN5TINMM6OA5NWTNANO4S6OMC0NUO&MMRM6N5NOEM3%N5=T=T%TC=M74NOOPN2DNiO.05DAO#Ni3DNO4ON1iDNN‘iNN4I40oP048#OOO0MMJMB3O‘ATA8J0NO0L7IOJ0UYN3OS.0NO8V0ISA1.T8OoL5———4
]

w= mumw» = n&unnm a&w&.&n &ahBk Rtw nS % wamwwm®uw Rx®xw&"
=-ausune an-- wnB»» ngseuhuannwnm wu .w&- n=

][ ][

AN.oRAV62.9m¢ISQOC]-0yO\M|ul3MOMC.OMR179eRNIOO3w\29RNA'-SCC’79VROe2~RNe.5‘OmBYAYOA-C-TM5o9urseAAWDCN.V-7OV®0nO~A.CG,tco69N»POYar80teNn5-O¥et3tenP.9"eRC04o~1O3V‘5n89.uOCNO6®.O--AS M~=5689ASnR.OICRPOuBOB-A69O0waO.NR1C79mT0OT-ON09rOH12.MNnV4CABenAOO-iN39AO0eA23NM.BCn5ANeONA-DO19NR3e6»OeM.A3Io=NCONw-AN59.6SSNwOON-72nA=AaSR.N0967kde=n—ONA-2CMORbOsNNAa5.970Ma&oxACNo1NnRR&R=ONPNO269.kNtOxASceI34C9uNOM.‘6Rn09C-ON&TN-MAD6O-oIC759DOna"NxM.IUF8ON3uanNMDnC859R%uaIMNNO.Ao2-NwnNNOO-W2N-79==NOe.4NN-2C=-=nOO8-5O9oSP&m NO1.1nCwO07N-9SSSNOs7OON.4NPARuw8-uC9NNOuO0en0Fs1w-8.wSPaVOI045N.29uOSOm7R0C.-4MOus-MDaa70R89knnON.NNINL0A-I5H0OO1n-NN:A190VR2DN0.N-N‘M900-N-1OINNS70==O.PN:N99HA50OI-N-79NR10O»=n.=S N%TON.I-57!0——NNC
Oo\e31R—in]inJ,Mn~Mayvv0eVDPYkF-YEO—OFO3YoyCNYEYoONVwoY&seONXyo~OlREMNeYOsoSEOr-NHCNesvacEruONOaoLvnT®MEOVTNOW~vFERovFNTeCY&N=OvENtNyDooe RkT»MYevATTONODoNOsR\AE0NIROTkANoESOOANND0tNeVRRv TYMTIeoWOBVNFoOQANYNNteNOOMoRMOoCTPV<M’X2oOAOTDoCR=MTO=OX’oC=GVAToMEDAToIRVOMDYoMN=OMyTIoMAOPTOo=VAToeOIFoO]OAJMoNVO~OMUaROYMoOaO=NXoNnP=NDOoYVDOOToNONo0OOYVoNOYVoOPYVoOOONoOTO»SNYVoOQNYOOo0NMNIYoWNVYoNIMoNOVNYUoONIYoUO8YSTDoF0XV0~N~=¢[o
C(ZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRO v04.00 4-AUG-82
(CREF v04.00 )
10:30:59 PAGE M-7

L 13

SEQ 0167

B|[NIA [2]

I[]

[

[])

[

U7Z%S41?7c1l6’1M“O‘0579345803710%718683703707‘12751762O0N1A“OM4O1O5M7N
vRsvaaN+*»s+nvI+COOg0]OGNOOTNMARNOLyROAINLOORATANRNSV3N—IROOINPBYINNMMVMMLZ3v=FVOANVov30VNb]\=COLN=3IOM=EN»FWVINONONANNM=O T
[o—N=n5*LOa]MR*3A»5MPO2yAM3NOA3BONLRI:RNOuNnOONINRTOL3Ny2ITOIRONYOIMNVOMNRERT~=NR=OVMR33ON.3~eA4yEkT=LbNRXMROeNMnTOIR3VBTLyON~OlNAMlT
TBBVyBPYBBBeRRePbTRNNbbBvydee®Bbb3LRt3 eRL]tybPyReWbPBRtt
sOs.AO—MYWFT—8s%eaBRoYeW,O3o7Oo0B—OVyYL1ooNU¢NO—MIX3OOeoN0MuNYLeIooONgCeO0YOYDeo0oA05MANYO0Vo1esNOQOAyYIe’oO0o—SAWOoNV8eOeN7RAA¢—LVMIooRA|OOAOYVAMsooNWR3NONAYYbeoo-SNOOONAINAoOoS|FMONYDoMoNNNRN—OO0YYS0ooRBAN¥MEOooNO<2NNATOMoAMoDA<3—NW2NAoNoOSOA¥Z¥AooTBNUOeAN¥Ioo=NMOMONN\IooNRNWICN¥VNMooNOTNROMAYOY0MOoRoVENRMOVNNIooyNITN—O—AYeo~o=NVVMOoeAOOONYNooRIOM—YTMMooTO—3V—Ie1E..10B.3MNMoOoONA=AoLoNO=1O3I3IRNoT-XNO-ovMIVN-RR -CNONMO—MNOR iN5SOO3IANOOYtAN3AR.VNMOIROL0OATAMCoMND33MNNA3AOOAONRoSReOIMINN~V0MoNAONOMSNBTVOUNAINOV~LoDOLNMlTONe[NVoRAlNLNl
yeNONOM3MNFR*YxVNMoeswTOn—T¥IV]yoM?W<ON+NeMM7oROONVONMoNMSAWNVIMOe7oOONNNVoeGNRyAMNOF07oNTNI T0Yo—eO0BNONNe7OoMORWFANWoNUMOOeIN7oeONTNKeN 8EoNOOTIA8OeNoNWYNIoVTNNYVF9MoOIONRXNIoOBSCHN9JAoAONYXONoMNT9YFOeo2I~IYorOXARO9=YrNoeOOTM=IeoeiONM9YVIoOOW=ROyNYBoIMM09vMYOoPA2MIYNDo—9AoeTT=INceNtTO1e.oAWDM9moN1.MO=eNT]-09FIeoOON-RANANN=IWNw9V=IA~NOB—SDOAFYIO0N9TWRNHON=ATyI\DOt9II¥TAT9NBOSMMI9oNVROYIl9VO=A=OBW~T9sOtNoS[NTe9OO aBla
OYAOP“w_BNMCa.fyMVIO~/oiNyWMN-~oOu=MN.o9OSTT/NMoRRIEIE
OA7Neee Mo9N’OoN5A7YOAoW4CNIeOo07ADNYOo7RANe7OI4E¥reN7o8NO&OsRoC6OWY8No3RI
ONVYIo5I8NO—o7NMM9OoPNNoO09TNXoDRGOYVo9R9OOYeA o~1No98NYEo2NcMY9o8rAN0eO9r=YNAYo9TeW"YOMeor N"T9ONANT9NRWON9V“SN9.N9OlWN9“RSARNn9LOATv9EN”WA9N?O9VsTN9oDN9sN9O=lO9n[GN
NO eeaSC-NF-000A0N00.0M0e0RG0e0.0-0-D RAR A A
EEX
AAN
ITX—
<22
Q<o
CZRLIDO RLO"/02 ORIVE

CROSS REFERENCE

TABLE

TEST 1
(CREF

v04.00 )

M 13
MACRO V04.00 4~AUG-82 10:30:59 PAGE M -8

SEQ 0168

MSGNTE

eBRyI1“39561471N70O5¥10NL5=8W3O60N2704I1O3M16O

[

CZRLIDO RLO1/02 ORIVE

» & N% t
AA

e
a0 a0ULA

CROSS REFERENCE

ExXa5238—O
ol

~N 0

TABLE

TEST

(CREF

N 13
MACRO V04.00 4-AUG -82 10:30:59 PAGE M-9

v04.00 )

8-17#

9-415

7-364
7=441
7-705

9-415#

SEQ,0169
1

7=-2294

7=428#

7=4754
7=-748%

9=-334#
9-609#
9-889#
9-:95#
9=<274
7=424n
7-6994

R1O01b68uOV1R5U58t0V12y0BV02P»4R72S5R»MN4WA”R6“5,A3R6‘A9R8»N96MYAG¥OANRPLART(ATRIOGO0NOy—NOuO
Nl2R54a“k7Z1RA2N?5ZL6]‘“BS0“8BML6]65&M369RSB2“k38'6698N89&U6RbWRN3Mt19yNW8DN&1OBu85R”T80A1LT2OIoNDM»R&e=NMNIN—BEORTNTRNSINb3NNxRONL3G~OL3
3C<N—SBS—3h4O<0N8&A5M»&<NS<NhTT5FSW0nN5O.MTM537M1M"N0ULLM8SU&O&MNO“®1O»LU0L|0AM0SI&5R3D—]NA,NM7DO0LIgLA8«NN&M&®LI2Mb7U“evMR‘<F&e3O»“MRerRXNO1eLe3OOODRO500ONVVFOIene8WL53NN0I.82LVOV3V53Y.I4NVVN33YOT75.0AV.V=53Y30uMVMVTLLYW3%V33VF'-LOVWLYOV'RAVNTSIaBVNVA~NOsOVNV1L.3N1s0sANON=GAe~Lr3ONIOO3X"OROIN~NXX&TNLwLAByO22t,ON3O4“BNAVR8LBRWT1”T2ReElNy55IT2LN6%RTO7”IMRR61MBTOtNM00MSI3”BMA“4L55TNAO22N»TOTVNN22INA55CNN&“TT
u N RN

- N

9GXGOA8O0Co&N~0~0OeOA¥~M\Ob9AG7gIv<OUBMeaeG~O9OMtOMAmO—O~IORMW\V9CDOINRNNMYMmAI0O7NOSON.0OOeemi7G~O8220FROOTA7SO((NUNVVIvOT—N-NAT~E7OA=n=TPOMTNMO.0NAO7OS2T8ONVQR0T07BAAP0OTeDP7O—YeNR0TI8NO VF2NAOReNWA2DAYN8AA0BMD0AYVOIDGAFYAN8I—SSYIO—0NM0GY(N8UT38IAOYN0MOF4YvD0R8026GYO04Y6O0AD8Ie0G6V08O0I6a0ABRD8L0GaN7ND00LT37R0R9O=OANe\ONAA9NNGBAROEA0ND9RAOTTSVNNPAI9NAOGINCRTAH9NMTTRAVT=IRN~I9NA3ZON2DON9AOMONAS9MOIEAM9ONSN9NN9NSIOOT9DWOA9VWOANO9WNC
P
NN8&eOOb)BN~0G)-C0DAhdMR~0OFSIM\ONRJBbINVO~oNR(NOMNYUINCNM8hdIMV0nAONTR©NAMVA.ReOBVO8eN0te076O0s~OBsNAdIs30ovO=eNen++0TS=IMMDd~wNARFN3SOTbrUVSQGEmCo0NNGO&O0eTedSBRRFWmAAS»N MoONeINIWA0h——NARIbIdN0NIRASANVmId0TIRod0—NOA0RNAo0ANRMrO20—S—aAB8bOO0—~6VaOd0ADlt26O0IOR6Nh00O4WB0AA830270ROTOv~GOLODAMNRO»GD0~0OBNMTAPANANIAANA’RANINOBO—ARNGTTAN~RN»OAONO—0YA0MONI3O0U0nAOIAA0R0nN—MNUg0MO—IGNOD
aOIoTR3Y%oIo3uv4Ye4%weI%O%Y4iO4fvlOTfNlOM««Y«3T-%\«3Y4Y«N4Y4%YV-%%V4YV%44-Je44T2nn-4«Q«8«4«Iw6«4«8«4««4«16TJTIITTOeNNNR®
a

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
TEST 1 MACRQ V04.00 &-ALG-82 10:30:59 PAGE
(CREF v04.00 )
+

TM-10

SEQ 0170

)

I bodo dtbo wndc d d d d od d dodoad
d d d a ARARARARAIR

NDrO~0ABP3SIWNU—0OSF0MTANO w.u“‘y.R'»NSwL“ky

MOO00NNeN—IBONO»=n=8MSO0T=NMSNNVOSvO~«PON»MOOINWGOW)MRW0IuOMMw2vMOON®M=NVOOmOGWOOM=NTNO—VTNOGONO~T—ONAAWNNIINNrO=IMONO0OO00OO8VMMI0=O0N[

6b"VO]L.01VMXR1LS“B1O0-yNS8M.8U1L®5AU03RWRN.1T9S”o2”[.O1VW3-"PN&0.W0N”47SR2N.‘1O6-kT75&ST.V5%8«®M20nx.ROOR2FN6»“T.wV%Q7'I1&.BR7I6A30Rb5.S53M7L0L4U9.&5W26N7nU.!&0S&"R“MR30.]“47!911."7LT5V)91M.-S5l.Z“:8.nOR2y?."7i7.kS“f'%i7v.%I2.S5R—L.3_370e.3V—2t4.n7o
UIV5A)01NIu2ONNy6CUMOW8NO9RNA5ITNNO1MNNIA0NRINRuOSOP1VI9N=AD5ONMOM1-=3AN0O—bO83MMA4=RN|2OOROMMN0xONMeNON-RNMM3IANLNDARMNNNOANNAVORNNMINNMONBOTNRNONMMNOON~OMONWOMNeIMN—MAAONUR WNWNIO
2OvW0N=SWOeDAO(0YDNVO0NNArORNW—AANN\rAO—OBMAANO0vOe~OPITNOMC0eSOAOOSWIOWOV2NONNWNNONGGWONNNUNOOADUCITNOMNAMOAINNNCCOXMNNLOSONAR0o=VI=NNeA ==I~BSEVVDAAIWNTAN3OPIR2NoAoOWABMO==IONANyMROC—NTA=OOIOWNMNACADRNNMOOTTNOTITNOIOO|OTMRCMNOOOWMOooOYITNOMMO(NNNPFOO(=’0OCDNC=0RONTNASO0NR0NUNI0AON0=ONTOA
YN
EO03A0RNA=BIE00NN
L00b0aM0NTDEa0O6R.AED0NWMONoIVYNAMXMoMIONJTM0R WaENNiOYWDSoANy—DEOYWNYIoOVEWMTEYOoNAgDNOODYoYO<<vY33ONAoTF<<DY88NoYRWMWWLTF3SoACBMOVLN
=O 0NNVIUoNDOOIRIOoONTNMIONIAIMoNMMNTIJIIoMD7MRGMIYAoo==NM~ODAMoMovvX=NoA0F VDTVVvYMOoR2MOAOTo=TNMMeIMOoOn1VVADNVMDOLIC1MMOOA&eNAVarORAMMT=D1AIDOOAOVBVDOOoVOWIDPTCMAOCRMNOAO0BoNlD0VCOR¥WO0-*oNMMTOO8XoMNOC8YPOo0O0YoO==20oOOAVYSP00MOS00RNSOT80L0~N0TMTs
6O30oONAR0800O07028&9O0T8O%N0AAN9OAMBA0oOAOMGNbNRO9OcN3oN-O4OO«OcNN2“oIWOAcOOoNNI2Sc3WoAAOOG'cWOoON6McONJyo2ONIcUMO0MOIoOM8NRR MNO0IOeveT,NI«=ev2NAONWV=T%7ONVFNT5]OMBV6O12VNWVCONOV6AA—IO0NMOPM=eN9IN=NOMAA6RNMNNNOMOO5IRIA8AOLAN@M‘NTO9O’VVDG5Y@VOAMV‘ODMT7DWEIIONOM3WME@I“OOANOORENNB-OMIOOGOIMON0ANMOOON
3]353.3& % 5d& &&& « 2l b Ab
CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE
C 14
TEST 1 MA CRO v04.00 4~AUG-82 10:30:59 PAGE M-11
(CREF v04.00 )

O=2<G0TWVNMOIvOIOINM OWNWOFTAINvMVWPVIMWMDN0O RN ION=-WVTMCIN~A)M—BVrQM 47.1‘G0%<.5M3(O«P%‘1056N12%3

SEQ 0171

:3J,a3(,mMw.1(1.|mwoImwnovca1.1:lSenNuR1-MAflRA351m¢)N)?6:~:A;n1mR2\.N<1T“1e086nSnwD“fluuwumuAflR”.-S“wIocnwuOwuwc)nAvA0yR3
ByNMSNK.X3323S2332320320312330330033AL3
O0NOPNDU»A=o»O43WNN3u3-3JNI3GNk.0N-MO—3IO3uM2M3M0NLNOO&5aIa+¢—Iv%C0G5“0»TRCM3UON6”NANMIOI\MJONNOSN878yM~O2PNAw4M=OTOMk&O"—36XL==FMT0NAl'N~3y5o=~=LFO0n4O53F—v\uVO8MIVANME=07IQMARNvLRO249MNe%B361oO2rIM—oSVNNO454V=ORGM&0N72OEFCO3BUOa851oO®NRUIONMhSN0R4MG7OORDN&ybN”=vOIOAUy“vG=c4M9N7NeAAOI1~ON=C95”Nqi«IcnO472enANNv82NO0W73MA9LAQuONI)O8NA3qN3ILT>R¢5MM7N01OtAOSNF4JR3”WA°LTOl.fyRk-?RaNPuWe%B1vOT+t.ONM7aR90NGNEDSIOO5IO“Wa~RlFNOnMuE92U\Bu0RANONn57=WO2uNvyIPuNwR%4AD|wOW0N947yM1NRJNR~V7OEMOW5D60ANV::SSWI78G)=NNO0PToU.41IN—OVORMA998VRUOPMEOq92bN==AMcPGYW=&e=VON891=N=TOVM2RO~MV—5N92ONP1M=O—N8NSWN9u—+eNA5~Od7RONONN8WMM9uNIN-T4NINO=2ON9uD~4GosT8OO9Mu=3oOIMNO6-NOMf
9OC3OeRASbYe:RO.DT—O2Ca9yM0MOMO1LNU9RMO|NyM/NPN7O—~AIAneMNTN0NUAOS77MA,\NDSNR=cOOU;A8RD=MlOOBN;OS&TDNS)D183eN<RT92O.IW8OVTe=oCv~-~ONOT91VSOeA«COVLS5ONOCO(WTM9OAYAV5CI(OC9o=OMY7FO:V9A-O—=OT0CRTO:*ORMNN)NI9D:OMTRC3IOA;ONOORnG9xN:OIeOaROTIS ~NqGNu9OOPONquNNOVRRO;CAM9qDNeOAuENNOcAD)N7MnOOuIAFTetNNAOl7I=MNWRtANNlO=yuNN7SvRo~RNOANRe NIFNMN*:IN¢N=Ea7VOeOuARMNZwGNSIL0GpDTS8wONKA07IMOID:O3U=NMMeD4I8OSF,ODN<MKDMJIRTOSAW2I/Dn8M(ODPSTAOAGEUMN=NOMOaNI8UnMOMRI=uOaDO.NPRMGAu~IN9V.TNkMC=POIAnI—uCWTMONwC9TFTASARORY1COO3ARBAO2NRyTOO99y+CO1OT=M3—CWR1O9IOTR=PN~CuOWBOORwTWPMNAO9ORBONLNOOHAISN(O—MkNTM9ONIWOO1eNTOoB0—OQRONMO19N&tODO1v1~ONBODO»~8
e&OiVARb»eoyhO,NouViFoONNXeonyV0eSNeaRO¥eWoBNMkeoNoOIIYNloIAVMSo=PXoYNoyTSoOhUsTA.Y%NoRTM.1N.oUMoe3N7oU1NN1.3oTTR.MR.BN0YAOIWy0OI OTSANSTIRTRN.YBNGRSOGRSIRVlouTeoST“"otLYLoRR"YnouNuemYuoTUFnou(XovuYowYon~YoMA?MoDSNm+TWoSYn1.oc1.T:o-o8lYnNvAMvNToovWAoRue1X.(o
S%BRTS&TnRSAAN BHBPYaA0lyVUBksReBN369UT RRIR2
CZR_IDO RLO1/02 DRIVE

CROSS REFERENCE

MSTLAB

MSTSTL

TABLE

TEST
(CREF

D_14
1 MACRO v04 .00 4~AJG-82 10:30:59 PAGE M-12
v04.00

)

SEQ@ 0172

(OB

-.¥mX4§7:%TnwNYnLwsf1isw.sr7:L:6907O:9nvoro:9nvn7nvo7ozvnv 02m92.83l24M1—I7FN=n3O0IzN8O“.3V“N)D74

[

)

TEST 1 MACRQ v04.00 4-AUG-82
(CREF v04.00 )

»F—MONBOM2APsw¢'+¢OOBNANANG2.M1AL3IONNeNe

9T6~ANlu]YyNo”g¥l9Co“7VnONoe,89MYSTo1DO’Y9RIo7N3AM0y097NINY.3“OT92C2OY.O1L”M9MN5"OTN-9O'“NOS98oNTVO1O—9yo7&DO%Io67MRT&oOB4RoNsR 8So59L3 NOo6&e8XN¥3Po80e.J~5oMS=.NBoNI5TSOyNNoQ7%~CRY.o39RyA0RYo1RnOMYoO“5&y,e97ISnLLa1TO1«O&gl,1eSBaOnlO2OeBA.Rt0e”3NvNlbe
XN—OW—BN
Y—TN')ONo4¥YNo.2ONo~¥YY—o}MYTLUN¥ooO1o.M.MeNA4<<1ITOO7.oOO1~B1S.oN75I]7IOM.NUNYeO..I-LSNSODNSSNNT
vBNY~ooOANY~NNPooVOYWNN~oIoNVeYYYTOooRIONYYNOooWAXNNWWoOeoYYNNoVoN=R—IYOOXYooVOYYYooNMWYYVooNYTooREOYLoo—MINYYYoooN&AYMoXXOBYYgoo~lNA[egoloae¥leOoNN¥[a—o[ig~e¥
!YoOOYMOV%o—oNGO1OoONo]IN OMT MNNFIeSIANFONTINVMAOXOeINaNXoYo0

CZRLIDO RLO1/02 DRIVE
CROSS REFERENCE TABLE

£
10:30:59 PAGE M-13

W3.L%NB¥bS34-»3-5LAREu%Ny32L

-=IFOeNVeOMOA¢MODOMDNOMONONMU—AAOONTIMNAeIATMOTPOMINI~NMOe—VONORN EYNIB0|¢8[O2FrMTIeWNOvrON0OAM~eANMNOrDOOAmOINMITVMIATOITWMVNINO MORWVNOFTNONIMOTMIANOED

SEQ 0173

]

[}

[
]

9=-266#
9-318
9-358
9-451#
9-491#
9-557
9-606
9-653
9-668
9-720
9-735
9-859
9-876#
9-9264
9-991
9-;48#%
9-<05#

9-278
9-318
9-358¢
9=-451#

9-491%
9-557#
9-6064
9-653#
9-668
9-720
9-735
9-859
9-883
9-927
9-991
9-:70
9-<07

9-278
9-318
9-358¢
9=474
9-505#
9-558¢
9-634
9-654#
9-668¢
9-7204
9-735
9-859
9-883
9-927
9-991#
9-:70#
9-<07#

9-2782
9-318#
9-376
9474
9-529
9-570
9634
9-658
9-698
9-721#
9-735¢
9-859¢
9-883
9-927
9-:71
9=-:72
9-<09

8-;84

8-<00

8-<04

8-<08

8-16
9-516

9-17
9-527

9-60
9-761

IEST

MACRO v04.00 4-AUG~82 10:30:59 PAGE M=-14

SEQ 0174

(CREF v04.00 )

9000 L3 oM]$08 -WrV—N~OWVOLo3-4 Ov £gVo(VA)IRYN ONMB4

OO0V -

L3&

9-212

9-224

9-245

3ON2WOV8NORV 2N]0 LOoM-NUWA

9-300

9-316

9-328

LMOalO'al <o~3

ODOO[LU

DNe—MY= -

OOOMN O z r

XD -

oKD >v R '“7‘1101

N5] L&r—e ON —~
YANB3ol YL3o eloOUo1 XAN38[(o
OoCrWOOOO
OWMe0e=i—n2N=hNOeWNAoN

-3 rror0r O

NN
~
U
L
N—OwnaonNnNoO

xNNI ON

(g—ANL)Ogr———(m

3MNNNUWN0 OACNNOIeIM—Ne—SEW

9-182

oNO "

(=Y

le 4

-3

)QO