Digital PDFs

AH-F122B-MC

March 1980

141 pages

Original

6.8MB

view download

OCR Version

5.8MB

view download

Document:	CZRLJB0 RL11,RLV11 RL01-02 DRIVE TEST 2 MAR 1980 bw
Order Number:	AH-F122B-MC
Revision:	000
Pages:	141
Original Filename:	CZRLJB0__RL11,RLV11__RL01-02_DRIVE_TEST_2__AH-F122B-MC__MAR_1980_bw.pdf

OCR Text

RL1LRLVLI

RLO1/02 DRIVE TEST 2

CZRL JBO

ok 017 HAELD
AH-F122B-MC

! 50

.REM g

SEQ 0001

IDENTIF JCATION

THE

PRODUCT CODE:

A(C=F123B-M(

PRODUCT NAME:

(ZRLJBO RLO1/02 DRIVE TEST 2

DATE CREATED:

5-JAN-79

REVISED:

7-DEC=79

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

D. DEKNIS, C. CAMPBELL

INFORMATION IN THIS

DOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE
AND
SHOULD NOT BE
CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT
CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 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
JOTICE)
ONLY

FOR
USE
IN
SUCH
WRITING BY DIGITAL.

SYSTEM,

EXCEPT AS MAY OTHERWISE BE PROVIDED IN

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
8TG?$kKABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
COPYRIGHT

(C)

1977,

1979 DIGITAL EQUIPMENT (ORPORATION

-—

[]

L)
.

n—

.
.

GENERAL INFORMATION
PROGRAM ABSTRACT

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT IONS

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC

.
.

PONIAN—

.
.

[AS1pS
1 V]

4.0

3.0

OV MNIONONNIN)
= =

2.0

STV

—

— —

—t

1.0

VY NVVITEN. YN
oo o
N.—' N —

TABLE OF CONTENTS

THE FIVE STEPS OF EXECUTION
SAMPLE RUN-THROUGH
CHAIN MODE OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS

ERROR INFORMATION
ERROR nEPORTING

SPECIFIC RESULT MESSAGES
OTHER MESSAGES
ERROR HALTS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

5.0

DEVICE INFORMATION TABLES

6.0

TEST SUMMARIES

Page 2

SEQ 0002

GENERAL

INFORMATION

- -

Page 3

1.1

1.1 .

STRUCTURE OF PROGRAM
-G

THIS DIAGNOSTIC COMPATIBLE WITH BOTH XXDP+ AND ACT.

STANDALONE

IT CAN BE

RUN

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

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

PROCEDURE) .
IT
IS A SINGLE
PROGRAM FROM THE STANDPOINT OF THE
DIAGNOSTIC USER,
WHICH AT RUN TIME
IS APPENDED
TO A
COMMON
FRONT-END
PIECE
OF
SUPERVISOR
SOFTWARE
THROUGH WHICH
THE
DIAGNOSTICS PROGRAM INTERFACES TO THE ENVIRONMENT AS IT EXECUTES.
WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES_

FIRST

CJESTIONS ABOUT THE ENVIRONMENT.

MODE,

THE

SUPERVISOR

INDICATED

PORTION,

PROMPT

WHICH

WILL

(HARACTER

(DR>).

OPERATOR MAY ENTER ANY OF SEVERAL
"OPERATING INSTRUCTIONS''.

ASK CERTAIN 'HARD CORE'

THEN IT WILL ENTER COMMAND

COMMANDS

COMMAND

DESCRIBED

MODE THE

2.0

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

1.1.2

DIAGNOSTIC

INFORMATION

THIS PROGRAM TESTS AND EXERCISES RLO1/02 DISK
DRIVES RL11/RLVI
CONTROLLERS
(4
DRIVES PER CONTROLLER).
THE ENTIRE PROGRAM IS RUN
ON THE FIRST DRIVE BEFORE STARTING ON THE
SECOND.
THE
PROGRAM
STARTS BY
TESTING THE
SIMPLEST
FUNCTIONS FIRST USING THE LOGIC
TESTED IN EARLIER TESTS TO TEST MORE COMPLEX FUNCTIONS.

THIS
PROGRAM
TESTS
THE
RLO1/02
OUTER AND
INNER
GUARD
BAND
DETECTION.
SEEK OPERATIONS UNDERGO A BROAD RANGE OF TESTING USING
SINGLE DIFFERENCES, PROCEEDING TO SEEKS OF GREATER DIFFERENCES.
1.2

SYSTEM REQUIREMENTS

SEQ 0003

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

HARDWARE REQUIREMENTS

CONSOLE DEVICE (LA30,LA36,VT50,ETC.)

1.2

1 OR 2 RL11/RLV11

CONTROLLER(S) WITH:

" - B8 RLOY DRIVES WITH RLOIK CARTRIDGES CONTAINING

SECTOR FILE'
7 ~ 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING
SECTOR FILE'

Page 4

'BAD

LINE PRINTER (OPTIONAL)
SOF TWARE REQUIREMENTS

CZRLJBO RLO1/02 DRIVE TEST PART 2 (FORMERLY CZRLDBO)
1.3

RELATED DOCUMENTS AND STANDARDS

RLO1/702 DISK SUBSYSTEM USER'S GUIDE (EK-RLO1-UG-002)
XXDP+/SUPERVISOR USER'S MANUAL

1.4

DIAGNOSTIC HIERARCHY PREREQUISITES
THE RLO1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS:

CVRLABO
CZRLGBO
CZRLHBO
CZRLIBO
1.5

THE

FOLLOWING

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

ASSUMPTIONS

THE HARDWARE OTHER THAN THE RLO1/02 SUBSYSTEM IS

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

2.0

RUN

OPERATING INSTRUCTIONS

ASSUMED

THE PROCESSOR,

WORK

ETC., DO

SEQ 0004

Page 5

HOW TO RUN THIS DIAGNOSTIC

2.1.1

mime

- -

THE FIVE STEPS OF EXECUTION

THIS DIAGNOSTIC PROGRAM SHOULD BE LOADED AND STARTED

USING

NORMAL

XXDP+ PROCEDURES.
START THE EXECUTION OF THE XXDP+ MONITOR BY
THE MONITOR WILL PRINT A
BOOTSTRAP PROGRAM.
APPROPRIATE
THE
USING
MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
ENT??(E)%.
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR THE XXDP+
CHMDKAO XXDP+ DK MONITOR NNK

BOOTED VIA UNIT O
ENTER DATE (DD-MMM-YY):

AFTER THE DATE HAS BEEN ACCEPTED B8Y THE MONITOR THE RESTART ADDRESS
Og El;HE MONITOR IS PRINTED.
THEN THE FOLLOWING TWO QUESTIONS ARE
ASKED:

50 HZ ? N

LSI

THE DEFAULTS ARE BOTH NO'".
THE PROGRAM.

TYPE 'R'* AND THE PROGRAM NAME

DO NOT TYPE THE EXTENSION.

RUN

WHEN THIS DIAGNOSTIC IS STARTED THE FOLLOWING STEPS WILL OCCUR:
Le 82

222

* STEP1 »

L2 22 488842

THE DIAGNOSTIC WILL ISSUE THE PROMPT 'DR>''.
FROM THIS POINT UNTIL
THE
TIME
WHEN YOU RESTART
XXDP+,
YOU WILL BE TALKING TO THE
DIAGNOSTIC, NOT XXDP+.
WE WILL REFER TO THE PRESENCE OF
THIS
FCDRU'PTD p[S)DEBEING

CIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+

AT THIS POINT YOU WILL ENTER A ‘'START'' COMMAND.
THIS
IS NOT THE
SAME AS
THE XXDP+ °‘START'' COMMAND, WHICH YOU ALRFADY ISSUED IN
RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ‘'START'® COMMAND CAN TAKE A
NUMBER OF
SWITCHES AND_FLAGS
(ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH
HOWEVER,
IN ORDER
SOMETHING L IKE THIS:

IN
TO

2.3
USE

STA/PASS:1/FLAGS :HOE

°'DETAILS
OF
COMMANLS
AND
SYNTAX''
THE
PROGRAM,
AL/ YOU NEED TO SAY IS

SEQ 0005

THINGS

TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY

COMMAND

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

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

PASS

CONSISTS

RUNNING THE FULL DIAGNOSTIC AGAINST ALL

UNITS BEING TESTED (THIS WILL BE EXPLAINED
PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

Page 6

THE ‘FLAGS'® SWITCH MAY SPECIFY ANY OF
SJUT THE MAIN USEFUL ONES ARE:
PNT
LOE
HOE
IER

SHORTLY).

NUMBER

ONE

FLAGS,

PRINT NUMBER OF TEST BEING EXECUTED
LOOP ON ERROR
HALT ON ERROR
INHIBIT ERROR PRINTOUT

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE

(WE'LL

SEE

WHEN YOU HAVE TYPED IN A '‘START'' COMMAND, THE DIAGNOSTIC WILL

COME

WHY SHORTLY).

12224 88244

* STEP 2 *

b2828423444

BACK

WITH

THE

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

TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.

A WORD OF WARNING HERE:

DEVICE OF
DIRECTED AT
NUMBER OF
DIRECTED AT
THE

NUMBER

THE NUMBER OF UNITS DEPENDS ON THE

TARGET

THE DIAGNOSTIC.
FOR EXAMPLE,
IF
THE DIAGNOSTIC IS
A DISK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE
DRIVES TO BE TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD BE
OF CONTROLLERS.

THE TARGET DEVICE OF A DIAGNOSTIC CAN

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

* STEP 3 «
Ak ARN AR N &

WHEN YOU HAVE TYPED IN THE

NUMBER

UNITS

BE_TESTED,

THE

DIAGNOSTIC WILL ASK YOU THE 'HARDWARE QUESTIONS''.
THE ANSWERS TO
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED ''HARDWARE
FT’Eng\?BES“.
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 LNITS.

SEQ 0006

THIS

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC

Page 7

ENGINEERING.

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

INFORMATION THEY NEED TO TEST THE DEVICE.
KA AAN AR

% STEP 4 «
122232032324

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 SOF TWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF
THIS

PROGRAM,
TYPE
°'Y''.
[IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
QUESTIONS, TYPE 'N''.
IF
YOU TYPE 'Y'' YOU WILL BE ASKED THE
SOF TWARE QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P-TABLE IN THE PROGRAM.
THE SERIES OF QUESTIONS WILL BE
ASKED JUST ONCE, REGARDLESS OF THE NUMBER OF UNITS TO BE TESTED.

L222220222

* STEP 5 =

L2222
8 88 84

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS, THE DIAGNOSTIC WILL

BEGIN

TO EXECUTE THE HARDWARE TEST CODE.

THAT CAN HAPPEN NEXT, DEFENDING ON

WHETHER

THERE ARE SEVERAL THINGS
A

HARDWARE

ERROR

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

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

IF AN ERROR

?fiiggNS.

ENCOUNTERED,

DEPENDING

THE

THEN

ONE

SETTINGS

THREE

THINGS

THE HOE AND LOE

HOE SET:
THE ERROR WILL BE REPORTED ON THE CONSOLE AND THE
DIAGNOSTIC WILL RETURN TO COMMAND MODE.
LOE S:T:

THE DIAGNOSTIC WILL LOOP ENDLESSLY ON

OF CODE THAT DETECTED THE ERROR.

NEITHER HOE NOR LOE SET:

THE

BLOCK

THE ERROR WILL BE REPORTED ON THE

gg?angDAND NORMAL EXECUTION WILL RESUME AS IF NO ERROR HAD

St@ 0007

Page 8

SAMPLE RUN-THROUGH

2.1.2

LET'S SEE HOW AL. 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.

;?ElsgbggLE

IF NO _ERRORS

ARE

ENCOUNTERED,

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

IF AN ERROR 1S ENCOUNTERED, THE ERROR WILL BE REPORTED AND THE
PROMPT WILL BE REISSUED
(BECAUSE THE HOE FLAG IS SET).
AT THIS
zgi?L THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE

2.
3.

GOING

ISSUE ANOTHER ''START'' COMMAND (THUS GOING THRU ALL OF STEPS

1. 2, 3. 4, AND 5 AGAIN)

ISSUE A "RESTART'' COMMAND (SAME

START

THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

COMMAND

EXCEPT

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

PROGRAM

NO QUESTIONS ASKED.

ISSUE A 'PROCEED'' COMMAND:

EXECUTION WILL

RESUME

THE

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

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH
PROBABLY YOU WOULD WANT TO SAY:
DIFFERENT FLAG SETTINGS.
PRO/FLAGS
: 1ER : LOE : HOE=0
THIS WILL DO THE FOLLOWING:

TURN ON THE IER (INRIBIT ERROR PRINTOUT) FLAG

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR.
THUS YOU (AN
STUDY THE ERROR OR SCOPE IT OR WHATEVER.

SEQ 0008

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.

THIS WILL TAKE YOU

?U;EEOZHOI?ESLOOP AND PUT YOU BACK INTC COMMAND MODE.
H

START

RESTART

CONTINUE

Page 9

YOU NOW HAVE

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

YOU WOULD TYPE

IER=0:LOE=0
: HOE :LAGS
CON/F
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

THE NEXT ERROR OR TO END OF PASS.

[F AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC
TWO CHOICES:
1.

START

RESTART

AGAIN,

YOU

HAVE

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE
HARDWARE QUESTIONS AGAIN.

JEQ 0009

THE FULL PRINT~QUT FROM THE ABOVE DIALOGUE

MIGHT

OO0

O
a8
%
%

a8
%
®T

INPUT ERROR LIMIT (D) 20 ?
DATA CMP ERR LMT (D) 10 ?

USE ALL CYL (L) N ?
USE ALL SECT (L) N ?
LOW SEEK LIMIT (L) N ?
UPPER SEEK LIMIT (L) N ?
USE ONLY ONE SURF (L) N ?

? Y

CHANGE SW (L)

(L) ? N

DRIVE (0) 0 ? 1
DRIVE TYPE = RLOT
BR LEVEL (0) 5 ?

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

UNIT 1
RL1T (L) Y ?

(L) Y ?

DRIVE (0) 0 ?
DRIVE TYPE = RLOT
BR LEVEL (0) 5 ?

jolelololele]

Y ?

(L)

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

OO0O0O000

RL1T

? 2

OODUDODUD

UNIT O

(D)

# UNITS

VOUOUDOU0U

CZRLJ-B-0
CZRLY TESTS QUTER & INNER GUARD
BAND DETECTION AND SEEK OPERATIONS
UNIT IS RLOT, RLO2
DR>STA/PASS
: 1/FLAGS :HOE

ODUOUDODD

DIAG. RUN-TIME SERVICES REV. D APR-79

O0O00000

.R CZRLJB
DRS LOADED

CZRLJ HRD ERR 00004 TST 003 sSuB 002 PC:004130

ERR HLT

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

LOOK

UOoOUCO0

(O=0PERATOR, D=DIAGNOSTIC):

D.O

(N=RLO2)

1
Page 10

THIS

SE@ 0010

Page 11

(2222322222323
2SR 2222222222220 ottt sl d)

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.

YOU_CAN SCOPE

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

22222

2.2

R2ST22T22S2SR22 222222202ttt

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

D.0

CHANGE SW (L) ? N

D.O

‘C%RLJ EOP 1

DR>RESTART/PASS:1

D.O

CHANGE SW (L) ? N

0.0

CHAIN MODE OPERATION

CHAIN MODE OPERATION CONSISTS OF
THE SEQUENTIAL EXECUTION OF
PROGRAMS WITHOUT OPERATOR
INTERVENTION.
ONLY PROGRAMS THAT HAVE
BEEN MODIFIED TO RUN IN CHAIN MODE CAN BE CHAINED.
CHAINABLE
PROGRAMS ARE IDENTIFIED IN THE DIRECTORY BY A BIC EXTENSION.
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 COMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THE COMMANDS
ézcangRé\gCIl
FILE ARE EXECUTED
IN THE ORDER IN WHICH THEY ARE
TO EXECUTE A CHAIN FILE THE USER TYPES:

C FILNAM <CR> OR
C FILNAM/QV <(CR>

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

EQ 00M

M
Page 12

WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE SOFTWARE SWITCH REGISTER
SHOULD BE
SET
TO 000000.
THE XXDP+ MONITOR PRINTS EACH COMMAND
TAKEN FROM THE (HAIN 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

ANOTHER

COMMAND

FROM THE CONSOLE.

IF THE LAST

COMMAND IS ANOTHER C COMMAND, THE CHAIN MODE WILL CONTINUE AND
CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED.

THE

IF THE USER WISHES TO TERMINATE CHAIN MCDE BEFORE ITS NORMAL
TERMINATION HE MAY DO SO BY TYPING A CONTROL/C.
HOWEVER, THE
MONITOR WILL NOT ABORT THE CHAIN MODE UNTIL
IT RECEIVES PROGRAM
CONTROL FROM THE PROGRAM 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 ‘RUN DIAG'

LEGAL COMMANDS

START

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START
RESTART

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

OPERATOR INTERRUPTED THE

START

DISPLAY
FLAGS

ZFLAGS
EXIT

SEQ 0012

Page 13
4.

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART
CONT INUE
PROCEED
PRINT

DISPLAY

FLAGS

ZFLAGS
EXIT

2.3.2

COMMAND SYNTAX

(222 222222223222 220222223 2N 222822232

222830 ddds

Rttt tsddddds

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

Y2222

2232232232238 2328232223223 2

d2dt sttt

istasiisdstdss

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE
SWITCHES
SPECIFIED.
THE MESSAGE ‘# UNITS?'' IS PRINTED.
THE START COMMAND
MAY BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THE FOLLOWING:

A) OPERATOR TYPED ‘RUN DIAGNOSTIC'' B) DIAGNOSTIC

FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE

FLAG

SET

AFTER THE OPERATOR RESPONDS TO °'#
OPERATOR ENTERED CONTROL/C.
UNITS?'’, THE HARDWARE DIALOGUE IS 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 A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR_ RANGES
OF DECIMAL NUMBERS
(1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE

EXECUTED.
FROM

THE NUMBERS ARE SEPARATED BY COLONS.

THE NUMBERS

RANGE

TESTS WILL BE EXECUTED IN NUMERICAL

ORDER

TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.

SPECIFIED IN ANY ORDER.

REGARDLESS OF
THE
EXECUTE ALL TESTS.

ORDER

SPECIFICATION.

THE

THEY MAY BE

DEFAULT IS TO

"PASS-CNT'* IS A DECIMAL NUMBER INDICATING
THE
DESIRED NUMBER OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE DEFAULT
IS

NON-ENDING TEST EXECUTION. °‘FLAG-LIST'' IS A SEQUENCE OF ELEMENTS
OF THE FORM <FLAG>, <FLAG=1>, OR <FLAG=0>,
SEPARATED BY COLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:

HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED
ERROR IS ENCOUNTERED

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
WITHIN
THE
SMALLEST
DEFINED BLOCK OF
SUBTEST, OR TEST) CONTAINING THE ERROR

IER INHIBIT ERROR REPORTING

WHEN

CONTINUOUSLY

CODING (SEGMENT,

SEQ 0013

IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

Page 14

PRI DIRECT ALL MESSAGES TO A LINE PRINTER

PNT PRINT NUMBER Of

TEST BEING EXECUTED

BOE BELL ON ERROR

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS
ISR INHIBIT STATISTICAL REPORTS

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC(
ADR EYECUTE AUTODROP (CODE

LOT LOOP ON TEST
EVL EVALUATE

THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE
EQUATED TO O ARE
%%AGESEN ACLF%CEGEOLREPEEéZII?Eg.IS CLEARED.
IF THE FLAGS SWITCH IS

"EOP~INCR'' 1S A DECIMAL NUMBER INDICATING HOW OFTEN
PASSES)
DEFAULT

(IN

TERMS

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

(2222232822322 28883233238 22023d0

8800282002

8022008

THE

asitioddiidddldd)

RES(TART)/TEST:TEST=LIST/PASS :PASS=CNT/FLAGS :FLAG=-LIST/EOP:EOP=INCR/UNITS :UNIT~L]ST
(2223232223222 23232322 833022003000 ddd22dd

22200

tit

Rttt dididllsddd]

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.

HOWEVER,

ONES IN CORE ARE USED.

NEW

°'P-TABLES''
ARE NOT BUILT.

SWITCHES

INSTEAD, THE

THE QUESTION ‘'CHANGE SW?'‘ IS ASKED AND THE ANSWERS GIVEN BECOME THE

NEW DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
E&ESSE/CVM A)
DIAGNOSTIC IS FINISHED B) HALT ON ERROR ()
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:
1.

"UNIT-LIST'' IS A SEQUENCE OF LOGICAL UNIT
NUMBERS RANGING
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYINS
WHICH UNITS ARE TO BE
TESTED.
THE
LOGICAL
UNIT
NUMBER

DESIGNATES

THE

POSITION OF THE P-TABLE IN CORE, ACCORDING

HAVE

BEEN CRCPPED BY THE OPERATOR DROP COMMAND.

TO THE ORDER IN WHICH THEY WERE BUILT.

MUST

NOT

THE UNIT-LIST DEFAULTS TO 'ALL

THE UNITS SPECIFIED

THAT HAVE NOT

BEEN

DROPPED

BY OPERATOR (OMMAND''.
THE EFFECT OF THE UNIT-LIST LASTS
UNTIL THE NEXT START (WHERE IT IS AUTOMATICALLY RESET
TO
"ALL"') OR THE NEXT RESTART.

SEQ 0014

Page 15

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

(22 RZX2Z2222RX22R 222222222220 2222222ddRdd

)

CORI(TINUE) /PASS : <PASS=CNT/FLAGS : <FLAG-L IST>

L E22 2222222323 22223222232283282
R 2R Aadddl s

COMMAND MOOE 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_CONTRCL/C
TOOK
PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE CHANGED.

THE SWITCH ARGUMENTS ARE AS IN THE STAXT COMMAND EXCEPT:

DEFAULT FOR PASS=CNT IS THE UNSATISFIED PASS-CNT

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

PREVIOUS START OR RFSTART

FROM

THE

L2332 22 2322322222200
2220200 0284

PRO(CEED)
/FLAGS : <FLAG-LIST>
ARRRNARARR
RN AR AR A AR AN AL E

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE
EFFECT OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT THE LOCATION
FOu LgfiEJINGngEDERROR CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
MAY
AL
.
THE SWITCH ARGUMENTS ARE THE SAME AS THE START (COMMAND EXCEPT:
1.

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

LA
S 44

EXIT
L4
& & 4

RETURN TO XxXDP+ PROMPT MODE.

L2523

222082 00820822t
R

DRO(P) /UNITS:UNIT-LIST
\AAAA2

222020

d2ddgadsdd

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY

gAC§ ngcgggll. A START COMMAND IS GIVEN.
Y

ARE

ADDED

DIAGNOSTIC,

WHICH

A DROP CANNOT BE FOLLOWED

THERE IS ALSO A "DROP'' MACRO

INTERNAL

THE

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

SE@ 0015

Page 16

(AR
SRR RS 2]

ADD/UNITS:UNIT~L
{57
\AAAASR

RSS2

RNd

THE UNITS SPECIFIED ARE ACDEi

DROPPED

B8Y

BACK (THEY MUST HAVE BEEN

THE DROP (OMMAND) TO THE TEST SEQUENCE.

BE FOLLOWED BY A PROCEED.

PREVIOUSLY

AN ADD CANNOT

(AR R824

PRI(NT)
L222223

ALL STATISTICS TABLES ACCUMULATED BY THE
THE

ISR (INHIBIT STATISTICA.

(2222232324020

REPORTING)

DIAGNOSTIC

ARE

FLAG IS CLEARED.

PRINTED.

2d3d2200dd2Rd2sdd

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

dddddRdddlddd

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT
IN
THE FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED
BY THE OPERATOR 'DROP'' COMMAND ARE SO DESIGNATED.
LA28444

FLA(GS)
FRENTRR

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
AhA
kA AOY

ZFi (AGS)
Rk hhkhw

ALL FLAGS ARE CLEARED.

2.4

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

REVEALED

THE

AS SOON AS THE QUESTION "% UNITS?'' IS ANSWERED (WITH THE NUMBER N),
SPACE
IN CORE IS ALLOCATED FOR ‘N'' P-TABLES. ALL OF THE P-TABLES
ARE OF THE SAME FORMAT, AND THERE IS A ONE-TO-ONE_
CORRESPONDENCE
gE;:gEg FégsATHARDHARE PARAMETER QUESTIONS AND THE SLOTS IN THE
-TABL

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

SEQ 0016

Page 17

A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
THE
VALUES
REPRESENT
PURE
NUMERICAL
DATA,
THIS
TRANSLATES TO THE STRING 6,7,8,9.10 (AN INCREMENT OF

VALUES ARE ADDRESSES,
THE
6.8.10 (AN INCREMENT OF 2).

SAMPLE
RANGE
1).
IF_THE

SAMPLE RANGE TRANSLATES TO THE STRING

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A
SET OF P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE
ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE P-TABLE,
S HARDWARE QUESTIONS IN THE DIALOGUE).

FOLLOWING IS THE DIALOGUE

SYSTEM

HAS

LEVEL'' S.

TWO

(2)

RL11

_R_THIS

TYPE

RLOX

DRIVE

SYSTEM.

CONTROLLERS ALL TO BE SEV AT

THIS

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

RLO2'S (ON THE SECOND CONTROLLER):
# UNITS

(D)

UNIT O

RL1T

(L)

'BR

ARE

? 8

¥ ?

BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE

(0) 0 ? 0-3

DRIVE TYPE = RLOT
BR LEVEL (0) 5 ?
UNIT 4
RL1T

(L)

(L) Y ?

Y ?

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

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE

USED

FOR

THE

CONTROLLER

TYPE

DEFAULT

VALUES

ARE

(QUESTION #1), CSR ADDRESS OF THE

CONTROLLER
(QUESTION #2),
THE
CONTROLLER
VECTOR
ASSIGNMENT
(QUESTION #3),
THE DRIVE
TYPE (QUESTION #5), AND THE 'BR LEVEL''
(QUESTION #6).
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR QUESTION

#4 WAS ASSIGNED O THRU 3 FOR THE FIRST & P-TABLE SLOTS.

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

THE SECOND QUESTION WAS ANSWERED TO

REFLECT

THE

CHANGE IN (SR ADDRESS FOR THE RLO2 CONTROLLER (175400). THE SECOND
CONTROLLER®S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION #3.
THE

RLO2

TEST

"UNIT NUMBERS WERE ASSIGNED VALUES 0 TO 3 IN QUESTION #4

AND THE DRIVE TYPE WAS SET FOR RLO2'S FOR THE REMAINING & UNITS

QUESTION
FROM THE

45,

THE LAST QUESTION WAS DEFAULTED USING THE

FIRST PASS.

*BR LEVEL

SEQ 0017

Page 18

2.5

HARDWARE PARAME TERS

THE FOLLOWING QUESTIONS WILL BE ASKED

START

COMMAND.

THE

IF YOU HAVE

VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE
THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONSE.

RL1T

(L)

¥?

ANSWER YES(Y)
RLV11

If YOU HAVE AN RL11 CONTROLLER, NO(N)

CONTROLLER.

BUS ADDRESS (0) 174400?
ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER.
VECTOR (0)

160?

ANSWER WITH THE

INTERRUPT VECTOR OF THE CONTROLLER.

DRIVE (0) 0?
ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER
DRIVE TYPE = RLO1

ANSWER NO (N)
BR LEVEL

(L)

IF DRIVE IS AN RLOZ

(0) 5?

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER.
2.6

SOF TWARE PARAMETERS

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART,
OR
C(ONTINUE.
THEY ALLOW FLEXIBILITY
IN THE WAY THE PROGRAM
BEHAVES.
THE SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY
IN
THE
WAY
IT RUNS.
THE
PARAMETERS
CAN BE MODIFIED ON A START,
RESTART, OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:
CHANGE S.W.

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE

PARAMETER

QUESTIONS,

WITH THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
g?A£T<$zg.rEg?NTROL Z

("7)

WILL DEFAULT ALL REMAINING QUESTIONS AND

USE ALL CYLINDERS (N)?

IF "'YES'', THOSE TESTS THAT NORMALLY

USE

SELECTED

CYLINDERS WILL TEST EVERY (YLINDER ON THE CARTRIDGE.

SET

SEQ 0018

USE ALL SECTORS

Page 19

(N)?

IF "*VES'', THOSE TESTS THAT NORMALLY USE A SINGLE SECTOR TO TEST A
GIVEN OPLCRATION (SUCH AS SEEK DESTINATION) WILL READ AND VERIFY
EVERY SECTOR HEADER.

LOWER SEEK LIMIT (N)?

If "YES'', THE NEXT PARAMETER IS REQUESTED.

ENTER VALUE (DECIMAL)

(0)?

THIS LIMIT IS IMPOSED ON AlL SEEK OPERATIONS SUCH THAT TES!ING

IS NOT DONE BELOW THAT LIMIT.
IN ADDITION, SETTING THIS LIMIT (OR
THE
UPPER LIMIT,
SEE BELOW)
CAUSES
THE
FORWORD AND REVERSE
OSCILLATING
SEEK
TESTS
TO
PERFORM
DIFFERENTLY
(SEE
TEST
DESCRIPTION).
TESTS THAT REQUIRE ACCESS TO A SPECIFIC
CYLINDER
THAT
FALLS BELOW THE
SPECIFIED LIMIT WILL IGNORE THE LIMIT (SEE

WRITE/READ TEST PART 1).

UPPER SEEK LIMIT

(N)?

IF "'YES'', AN UPPER CYLINDER LIMIT
IS
[IMPOSED
IN THE
SAME
MANNER AS THE LOWER SEEK LIMIT.
A 'YES'' RESPONSE WILL CAUSE THE
FOLLOWING PARAMETER REQUEST.

ENTER VALUE (DECIMAL)

(255)?

USE ONLY ONE SURFACE (N)?

IF ''YES'', THE NEXT PARAMETER IS REQUESTED.
SPECIFY SURFACE (0 OR 1)

(DEZIMAL)

(0)?

WHICHEVER SURFACE IS SPECIFIED IS THE ONLY SURFACE
TESTED
IN
THE
ENTIRE
PROGRAM.
ANY TEST THAT IS DESIGNED TO TEST THE OTHER
SURFACE IS AUTOMATICALLY BYPASSED.
THE PROGRAM DOES NOT PRINT ANY
INDICATION THAT A TEST IS BYPASSED IN THIS CASE.

SPECIFY ERROR LIMIT (DECIMAL)
THIS

(20)?

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

LIMIT IS EXCEEDED, THE DRIVE IS DROPPED FROM FURTHUR TESTING.
DATA COMPARE ERROR LIMIT (DECIMAL)

(20)?

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

(OMPARE
ERRORS
AFTER THE LIMIT

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

SEQ 0019

K2
Page 20

3.C

ERROR [NFORMATION

ALL ERRORS ARE PRINTED VIA

ERROR

CONSOLE

DEVICE.

NUMBER, TYPE AND PROGRAM LOCATION.

BEFORE AND AT ERROR WITH RELEVENT DATA,
3.1

THE

ERROR

INCLUDES

ERRORS INCLUDE REGISTERS

ERROR REPORTING
THE OPERATION MESSAGE

BASED

(LINE 4)

1S GENERATED

DYNAMIC

MANNER

THE SUBSYSTEM FUNCTION BEING EXECUTED AT THE TIME OF THE

ERROR AND THE STATE OF THE FLAGS IN THE LOCATION TAGGED

'‘OPFLAGS''.

THE POSSIBLE OPERATION MESSAGES ARE GIVEN BELOW.

SEEK ~ FROM

CYL NUM) DIFF (CYL DIFF) SGN (O OR 1) HD (0O 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 ACTUAL HEAD POSITION IN
THIS ERROR SITUATION IS GIVEN IN THE RESULT LINE, LINE 5.)
WAS

READ DATA - IS A READ DATA OPERATION WHERE SOME FORM OF
ERROR
DETECTED
IN THE ACTUAL READ OPERATION.
THIS ERROR COULD BE

ETC.,

OR A SOFTWARE DETECTED ERROR SUCH AS DRIVE READY RESET AFTER

HARDWARE DETECTED SUCH AS DATA CRC, HEADER (RC, HEADER

NOT

FOUND,

A READ DATA COMPLETED.

READ DATA WITH DATA COMPARE - IS AN ERROR THAT WAS DETECTED AS
BAD DATA IN THE BUFFER AFTER

A READ DATA OPERATION.
WHEN THIS OPERATION IS REPORTED
IT
INDICATES THE ACTUAL READ DATA OPERATION COMPLETED WITH NO DETECTED

ERRORS BUT THE DATA WAS WRONG.

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

HEADERS WITH HEADER COMPARE - HAVE THE SAME GENERAL MEANING AS THE
READ DATA AND READ DATA WITH DATA COMPARE.
MESSAGES HAVING THE

OPERATION

READ

HEADER

READ HEADER FOR 40 HEADERS ARE THE

RESULT OF ERRORS DETECTED IN THE ACTUAL OPERATION WHILE
THE
READ
HEADER FOR 40 HEADERS WITH HEADER COMPARE INDICATES NO ERROR IN THE
ACTUAL OPERATION BUT THE HEADER DATA ITSELF WAS IN ERROR.

WRITE DATA - RESET - GET STATUS - GET STATUS WITH RESET - ARE
ALL BASIC OPERATIONS.
AS BEFORE, THE ERROR DETECTION CAN BE EITHER
HARDWARE OR SOFTWARE.
THE RESULT LINE (LINE
5)
WILL DEFINE
THE
REASON FOR THE REPORT.

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

THE REPORT WHEN THE DRIVE LOAD AND UNLOAD SEQUENCE IS BEING TESTED.

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

SEQ@ 0020

Page 21

QUALIF IER

OPERATION
READ DATA WITH DATA COMPARE
READ DATA
WRITE DATA
READ HEADER

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

CYL WRITTEN AFTER REV SK

SK FWD, WRT=SK REV, OVERWRT
SK REV, WRT=SK FWD, OVERWRT

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY
OF
THE
QUALIFIERS.
THE
QUALIFIERS
IN
THESE
TESTS ARE AN ATTEMPT TO MAKE THE REPORT

MORE MEANINGFUL BY PROVIDING

ABOUT

THE

SEQUENCE

THE QUALIFIERS 'FOL O TO CC SEEK'' AND 'FOL

255

OPERATIONS BEING DONE.

INFORMATION

(CC

SEEK''

INDICATE THAT THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A GIVEN
DIRECTION TO THE CYLINDER WHERE THE TEST IS BEING PERFORMED.

THE "FOL WRITE (NO SEEK)'' QUALIFIER MEANS THAT
THE
OPERATION
g?fio DONE AFTER A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND

THE QUALIFIER "'ADJ CYL WRITTEN AFTER

FWD

SK''

AND

‘‘ADJ

CYL

WRITTEN AFTER REV SKk'' WILL BE
REPORTED ONLY
IN THE ADJACENT
CYLINDER INTERFERENCE TEST.
THESE QUALIFIERS ARE USED WHEN THE
ERROR OCCURS ON THE CYLINDER UNDER TEST AND DEFINE THE DIRECTION
THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER WAS WRITTEN.

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

WRITE

HEAD

MOTION

BEFORE

THE

THE QUALIFIER '‘'UN BAD SEC FILES'' WILL BE REPORTED WITH THE
DATA COMMAND IF THE PROGRAM ABORTS THAT COMMAND BECAUSE THE

WRITE WOULD BE ON THE BAD SECTOR FILES.

3.1 .2

SPECIFIC RESULT MESSAGES

THE RESULT MESSAGE

EXPECTED

RESULT

(LINE 5)

IS GENERATED DYNAMICALLY BASED

THE OPERATION BEING TESTED.

ARE MONITORED DURING EXECUTION THE RESULT

ERROR

DETECTED

LEE ExgEgF

MESSAGE

ON_THE

SINCE OPERATIONS
MAY

REPORT

DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT

THE OPERATION.

ONLY THE FIRST ERROR SEEN IS REPORTED IN

THE GENERAL FORMAT FOR THE RESULT LINE

IS:

SEQ 0021

RESULT: (VAR 1)

WHERE VARIABLE

IS (VAR 2) SB (VAR 3)

CAN BE ONE OF

Page 22

(OPTIONAL QUALIFIER)

THE FOLLOWING:

(ONT ERR
DRV ERR
NON-EXSTNT MEM
HOR CRC

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

HDR NOT FND

(HEADER NOT FOUND)

HDR NOT FND/HDR CRC/OPI
DRV _RDY

(ALL 3 BITS SET)
(DRIVE READY)

VOL CHK

(VOLUME CHECK)

BRUSH HME
WRT LCK

(BRUCH HOME)
(WRITE LOCK)

HDS OUT

(HEADER QUT)

SPIN TIMEQUT
WRT GAT ERR
SEEK TIMEOQUT
CUR HEAD ERR
WRT DAT ERR
OP INCOMPLETE

(SPINDLE TIMEOUT SPD ERROR)
(WRITE GATE ERROR)
(SKTO ERROR)
(CURRENT IN HEAD ERROR)

DATA CRC

DATA LATE

SELECTED HEAD
COVER OPEN

DRV SEL ERR
DRV STATE

(DRIVE SELECT ERROR)
(DRIVE STATE)

(WRITE DATA ERROR)
(OPI ERROR)
(HDR CRC OR DATA CRC ERROR
BIT 11 OF CS REGISTER)
(HDR NOT FOUND OR DATA LATE
ERROR BIT 12 OF CS REGISTER)
(CYLINDER WHEN REPORTING A
SEEK ERROR)

HDR/DAT ERR

HDR NOT FND/DAT LATE

cyL

VARIABLE 2 WILL BE A VALUE THAT DEFINES WHAT
THE RESULT
ACTUALLY
IS.
THIS CAN BE A 1 OR O TO INDICATE A SET OF RESULT CONDITIONS, A

NUMBER O TO 7 TO INDICATE THE DRIVE STATE, OR A NUMBER 0
(OCTAL)

TO IDENTIFY A CYLINDER NUMBER.

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE

10 377

SHOULD

BE.

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

BRUSH HME IS | SB O IN STATE 2
HEADS OUT IS Q SB 1 IN STATE 3
DRV RDY
IS 0 SB_ 1 IN DATA XFER
SELECTED HEAD IS 1 SB 0 IN CYCLE UP
DRV RDY
IS O SB 1 IN STATE 5
DRV RDY
DRV RDY

DRV RDY
DRV RDY

IS 1 SB O IN SEEK W/0 MOTION
IS 0 SB 1 IN 10MS

IS O SB 1 IN 500MS
IS 0 SB 1 IN 5SECONDS

SEQ (022

THESE RESULTS, WHEN SEEN WITH THE OPERATION MESSAGE, WILL
EXPLANATORY.

Page 23

SELF

OTHER RESULT MESSAGES THAT CAN BE PART OF AN ERROR REPORT ARE:
“'INTERRUPT TOO LATE''

WHICH INDICATES THAT THE OPERATION BEING PERFORMED DID NOT COMPLETE

THE

EXPECTED AMOUNT OF TIME.,

THIS RESULT CAN BE CAUSED BY THE

DRIVE LOOSING READY BEFORE STARTING A READ HEADER AND THEREFORE NOT
COMPLETING THE READ HEADER IN 1MS.
"FAIL TO RELOAD HEADS AFTER ERR CLEAR''
THIS

IS REPORTED WHEN AN ERROR CAUSES HEADS TO UNLOAD AND AFTER THE

ERROR IS CLEARED THE HEADS DO NOT RELOAD.

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

THE DRIVE

STATE

'WRITE ABORTED''
THIS IS REPORTED WHEN THE PROGRAM ABORTS A WRITE TO PROTECT THE BAD
SECTOR FILES.

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

THE

GET

STATUS

COMMAND

DOES

NOT

COMPLETE

SUCCESSFULLY WHEN THE STATUS IS REQUIRED TO REPORT AN ERROR.
"OP] SET-NO DRIVE RESPONSE''

THIS IS REPORTED AS THE RESULT WHEN THE GET STATUS COMMAND IS TIMED

OUT

(OPI

SETS) WHEN THAT COMMAND IS BEING USED IN THE EARLY TESTS

TO CHECK THE DRIVE

INTERFACE.

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

COMPLETES

BUT

THE

CLEAR

THE

"ERR DID NOT CLEAR"
THIS IS

REPORTED

CONTROLLER

ERRORS.

WHEN

THE

THIS

SEEN IN THE DRIVE

RESET

COMMAND

DOES

NOT

CONTROLER RELATED PROBLEM BUT IS

TEST PROGRAMS.

SEQ 00”3

Page 2

"DRV ERR IS NOT CLEARED"
THIS IS REPORTED WHEN THE GET STATUS W/RESET COMMAND DOES NOT CLEAR

ALL DRIVE ERRORS.

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

BITS ARE

SET.

ERROR

"BAD SEC FILE FMT ERR"
THIS IS REPORTED If THE CONTENTS OF THE FILES DO NO CORRESPOND TO
THE EXPECTED FORMAT.
(REFER
TO DEC
STANDARD
144
FOR FORMAT
SPECIFICS.)

3.1.3

OTHER MESSAGES

(A)F?E‘ER INFORMATION IS REPORTED UNDER VARIOUS

"BAD SEC FILES NOT STRD.

CIRCUMSTANCES.

THESE

ALL SEC ASSUMED GOOD.''

THIS MESSAGE IS PRINTED WHEN A PARTICULAR

TEST

REQUIRES

THE

BAD

THAN

THE

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

"ERROR LIMIT EXCEEDED-UNIT DROPPED''
THIS IS

gzggIFIED

REPORTED

(WITH

THE

UNIT

NUMBER)

WHEN

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

MOST ERROR REPORTS HAVE THE FOLLOWING FORMAT.

(1)
(2)

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

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

(ADDRESS)
TEST DESCRIPTION
OPERATION:
RESULT:

ADDRESS OF UNIT UNDER TEST

ERR PC

SEQ 0024

(7)

(8)
(9)
«ao

1)
(12)

RLCS

RLDA

OP INIT
CP DONE
DRIVE STATUS

RLBA

RLMP

Page 25

CyYL

WORD NUM IS (XXXXXX) SB (YYYYYY)
TOTAL COMPARE ERRS: (ZZZ) OF (128)

THE ONLY EXCEPTION TO THE ABOVE FORMAT IS PURE DATA COMPARE

(NOT DETECTED BY READ
LINES 5 THROUGH 10.

ERROR).

ERRORS

THEN THE FORMAT DOES NOT INCLUDE

LINE 1 IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR.
PROGRAM

THE

IDENTIFIED BY NAME WITH THE NUMBER OF TEST AND SUBTEST

PRESENTLY BEING EXECUTED.

THE SUBTEST NUMBER IS UNIQUE

IN THIS PROGRAM IN THAT

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 A INCREMENTAL SEEKS, READ ALL HEADERS FROM BOTH
SURFACES,
ETC.)
THE SUBTEST WILL BE DESCRIPTIVE OF WHERE IN THE
TEST

THE ERROP OCCURRED.

THE ERROR P...
IS THE PHYSICAL MEMORY LOCATION WHERE
THE
ERROR
REPORT
WAS
INITIATED.
SINCE MANY FUNCTIONS ARE SUBROUTINED, AND

ERRORS ARE REPORTED FROM SUBROUTINES,
SUFFICIENTM
TO IDENTIFY THE LOCATION
ROUTINE “RACE SEQUENCE IS PROVIDED.

THE ERROR P.C.
IS NOT
OF
THE ERROR CALL AND THE

LINE 2 IS THE ROUTINE TRACE SEQUENCE.
IF THE ERROR CALL IS
INITIATED FROM WITHIN THE TEST (AS OPPOSED TO WITHIN A ROUTINE),

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

BE CALLED BY

ANOTHER

ROUTINE,

ETC.

ROUTINE
TRACE
SEQUENCE PROVIDES A
WITHIN THE TEST THAT CALLED THE FIRST

SEVERAL

LEVELS

DEEP)

THE

TRAIL TO THE ACTUAL LOCATION
ROUTINE.
THE
FIRST ENTRY

LISTED IS THE LOCATION WHERE THE FIRST ROUTINE WAS CALLED.

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

THE TEST BEING PERFORMED.

LINE & IDENTIFIES

THE

ACTUAL

HARDWARE

FUNCTION

THAT

BEINC

PERFORMED.
ADDITIONAL
INFORMATION ON THIS LINE IS DESCRIPTIVE OF
SPECIFIC USE OF THE FUNCTION.
FOR EXAMPLE, THE OPERATION LINE WILL
?sal: A. ?Efi%KHEADERS FOR 40 HEADERS'' WHEN ALL HEADERS ARE BEING READ

LINE 5 _IDENTIFIES THE ERROR THAT HAS BEEN DETECTED.
THE CONTENT OF
LINE
5
IDENTIFIES WHAT WAS BENG TESTED
(SUCH AS DRIVE READY,
CONTROLLER ERROR, DRIVE STATE, ETC.), WHAT IT IS AND WHAT IT SHOULD
?EJ.ERRIC-JIIQNE
5 MAY BE REPEATED IF MORE THAN ONE TESTED ITEM IS FOUND

SEQ@ 0025

Page 26

IN ADDITION LINE S WILL REPORT ANY HARDWARE DETECTED ERRORS SUCH AS
OPERATION INCOMPLETE, HEADER CRC, ETC.
IN THIS CASE THE FIRST LINE
PRINTED AS RESULT WILL BE DETERMINED BY THE THREE ERROR BITS OPI,
HNF/DLT,
AND HCRC/DCRC.
THE
LINE
WILL BE DETERMINED AS IN THE
FOLLOWING TRUTH TABLE:

DCRC/HCRC

Yo ")

ANF/DLT

1
1

0
1

e e

OPI

ME SSAGE

HDR NOT FND/HDR CRC/0PI ERROR
HDR CRC ERROR

HDR NOT FND ERROR
DATA CRC _ERROR

DATA LATE ERROR

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS

UNDER

TEST.

LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND HEAD

WHERE

THIS RADDRESS

UNIBUS

ADDRESS

THE

UNIT

OF THE CONTROLLER AND DRIVE

THESE ARE APPLICABLE IN THE REPORT)

TO BE REPORTED.

LINE 8 PROVIDES THE CONTENTES

CONTROLLER

OPERATION WAS INITIATED.

REGISTERS

WHEN

THE

LINE 9 PROVIDES THE CONTENTS OF THE CONTROLLER REGISTERS WHEN THE
ERROR
BEING REPORTED WAS DETECTED.
FREQUENTLY
THE
REGISTER
CONTENTS OF OP INIT AND OP DONE WILL BE DIFFERENT.
0P
INIT MaY
INDICATE A SEEK WAS BEING PERFLPMED BUT OP DONE MAY INDICATE THE
ERROR WAS DETECTED BY A READ HEADER.
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 STATUS.

THIS LINE IS

ONLY

REPORTED

RLMP REGISTER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS.

THE

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS A
COMPARE OPERATION,
EITHER DATA OR HEADERS.
IN ADDITION, GOOD AND

BAD DATA IS REPORTED FOR ALL READ ERRORS.

3.2

ERROR HALTS

ERROR HALTS ARE SUPPORTED PER DESCRIBED
WITH /FLAG:HOE.

4.0

THERE ARE NO OTHER HALTS.

THE

PERFORMANCE AND PROGRESS REPORTS

PERFORMANCE REPORTS

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

SECTION

SEQ 0026

6.2

3
Page 27

PROGRESS REPORTS

THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

5.0

DEVICE

INFORMATION TABLES

THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.

RLCS = CONTROL AND STATUS REGISTER (XXXXX0)
BIT 15 - COMPOSITE ERROR

BIT 14 - DRIVE ERROR

BIT 13 - NON EXISTANT MEMORY ERROR
BIT 12 ~ HEADER NOT FOUND (WITH BIT 10 SET)
- DATA LATE (WITH BIT 10 CLEAR)
BIT 11 - HEADER CRC (WITH BIT 10 SET)
- DATA CRC (WITH BIT 10 (LEAR)
BIT 10 - OPERATION INCOMPLETE
BIT 9/8 - DRIVE SELECT (0-3)
BIT
BIT

BIT

7 = CONTROLLER READY
6 - INTERRUPT ENABLE

5 - EXTENDED BUS ADDRESS (BIT 17)

BIT & - EXTENDED BUS ADDRESS (BIT 16)
BIT 3-1 - FUNCTION CODE
0 -~ NOP (PDP-11) MAINT (LSI-11)
7

= WRITE CHECK

2 = GET DRIVE STATUS
3 - SEEK

4 - READ HEADER

S = WRITE DATA
6 - READ DATA
7 = READ WITHOUT HEADER COMPARE

BIT

0 - DRIVE READY

RLBA - BUS ADDRESS REGISTER (XXXXX2)

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

REGISTERS

FOR

SEQ 0027

READ/WRITE

FUNCTIONS

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

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

BIT
BIT
BIT
BIT
BIT
BIT
BIT

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

FOR GET STATUS FUNCTION

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

BIT
BIT
BIT
BIT

3
2
1
O

- DRIVE RESET
-~ MUST BE ZERO (0)
- MUST BE ONE (1)
- MUST BE ONE (1)

RLMP - MULTIPURPOSE REGISTER
FOR READ/WRITE

FUNCTION

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

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ)
= ZERO WORD (SECOND READ)
= HEADER CRC (THIRD READ)
FOR GET STATUS FUNCTION
HAS DRIVE STATUS

BIT
BIT
BIT
BIT
BIT
BIT
BIT

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(C)

Page 28

SEQ 0028

Page 29

DRIVE SELECT ERROR (DSE)

DRIVE TYPE IS RLOZ2 IF SET
SURFACE (O=UPPPER, 1=LOWER)

6
5

COVER OPEN
HEADS HOME

3 -~ BRUSHES HOME

-0

~STATE BITS
0 - LOAD STATE
1 - SPIN UP

2 = BRUSH CYCLE
3 - LOAD HEADS
lso = SEEK = TRALK COUNTING
SEEK = LINEAR MODE
6 UNLOAD HEADS
7

6.0

TEST

SPIN DOWN

SUMMARIES

OUTER GUARD BAND DETECTION TEST

LA A A28

DO READ HEADER, WAIT FOR INTERRUPT.
CHECK IF AT CYLINDER O
IFf NOT, SEEK REVERSE 1 CYLINDER AT A TIME UNTIL CYLINDER O I
?EIIKEEIED
IF ANY REVERSE SEEK FAILS TO MOVE THE HEADS
IN 1 0
¢

DETECTION OF GUARD BAND PREMATURE.

WHEN AT CYLINDER O, DO SEEK DIFFERENCE OF 1, SIGN O,
WAIT
FOR
INTERRUPT,
IF NOT:
20MS>T>15MS.

WAIT

FOR

READY.

HEAD

CYLINDER

READY SHOULD SET IN

FAILED TO DETECT GUARD BAND

?(F) :5?0 HEADER.

WAIT FOR INTERRUPT.

CHECK

FOR

FAILED TO SEEK BACK TO ZERO

DO SEEK WITH DIFFERENCE OF 1, SIGN O, HEAD 1.
AS

ABOVE

WITH

SAME

TESTS

THE

TESTING

REGARD TO READY VS TIME AND CYLINDER FOUND IN

HEADER.

NOTE:

(HOOSING A SINGLE SURFACE WILL LIMIT
THAT SURFACE.

SEC 0029

TEST 2

Page 30

INCREMENTAL FORWARD SEEK HEAD O TEST

L822444

POSITION HEADS AT CYLINDER
DIFFERENCE OF ONE, HEAD O.

'LOLIMIT''

USING

SEEKS

WITH

DO SEEK WITH DIFFERENCE OF
1,
SIGN 1,
HEAD 0.
~WAIT
FOR
%?TESIT?UPT, WAIT FOR DRIVE READY.
C(HECK READY IS SET IN 15 MS,
POSITIONING PROBLEM AT A SPECIFIC CYLINDER
MECHANICAL OBSTRUCTION

CHECK THAT THIS

CYLINDER IS OLD CYLINDER + 1.

[IF NOT:

DIFFERENLE REGISTER OR COUNT LOGIC FAILURE
TRACK CROSSING DETECTION FAILURE

REPEAT SEEKS AND READS UNTIL CYLINDER READ IS "HILIMIT'.
NOTE 1:

IF THE "USE ALL SECTORS'' PARAMETER
IS
SPECIFIED AS
"'*,
THE
TEST WILL
READ
AND
TEST
ALL 40 HEADERS
(CARTRIDGE VERIFY).

NOTE 2: TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER
LIMITS.
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING
TO THAT
SURFACE.
THIS
TEST
WwILL
BE
BYPASSED
IF
SURFACE 1 IS CHOSEN.
TEST 3
Nk

INCREMENTAL REVERSE SEEK HEAD O TEST

POSITION

HEADS

CYLINDER

DIFFERENCE OF 1, HEAD 0.

‘HILIMIT'®

USING

SEEKS

WITH

DO SEEK WITH DIFFERENCE OF
1,
SIGN 0, HEAD 0.
WAIT FOR
INTERRUPT, WAIT FOR DRIVE READY.
CHECK READY SET IN 15 MS:
POSITIONING PROBLEM AT A SPECIFIC CYLINDER

DO READ HEADER, WAIT FOR INTERRUPT. CHECK THAT THIS CYLINDER
IS OLD CYLINDER = 1. IF NOT:
DIFFERENCE REGISTER OR COUNT LOGIC FAILURE
TRACK CROSSING DETECTION FAILURE

REPEAT SEEK AND CHECKS UNTIL CYLINDER IS 'LOLIMIT".
NOTE:

IF THE "USE ALL SECTORS''

"Y',
THE
TEST WILL
(CARTRIDGE VERIFY).

PARAMETER

READ

AND

TEST

SPECIFIED

ALL 40 HEADERS

SEQ 0030

NOTE:

TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER
LIMITS,
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING
TO THAT

SURFACE 1
TEST 4

Page 31

SURFACE.

IS CHOSEN.

THIS

TEST

INCREMENTAL FORWARD SEEK hEAD 1

WILL

BYPASSED

TEST

YRNRARY

POSITION

HEADS

(YLINDER

DIFFERENCE OF ONE, HEAD 0.

DO SEEK WITH DIFFERENCE OF

‘MHILIMIT'®

USING

SIGN

HEAD

1?T58$UPT. WAIT FOR DRIVE READY.
:

SEEKS
1,

WITH

WAIT

FOR

CHECK READY IS SET IN 15 Ms,

POSITIONING PROBLEM AT A SPECIFIC CYLINDER

DO READ HEADER, WAIT FOR INTERRUPT.
[IF NOT:
IS OLD CYLINDER + 1.

(HECK THAT THIS

CYLINDER

DIFFERENCE REGISTER OR COUNT LOGIC FAILURE
TRACK CROSSING DETECTION FAILURE

REPEAT SEEKS AND READS UNTIL CYLINDER READ IS "HILIMIT'.

NOTE 1: IF THE 'USE ALL SECTORS''
*Y'',
THE
TEST WILL
(CARTRIDGE VERIFY).

PARAMETER

READ

AND

SPECIFIED

TEST

ALL 40 HEADERS

NOTE 2: TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER
LIMITS.
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING
TO THAT
SURFACE.
THIS
SURFACE 0 IS CHOSEN.

TEST 5

TEST

WILL

BYPASSED

INNER GUARD BAND DETECTION TEST

L2A2
44

POSITION HEADS AT CYLINDER 'HILIMIT'® USING SEEK WITH DIFFERENCE
OF 1, HEAD 0.

WHEN AT MAX CYLINDER, DO SEEK WITH DIFFERENCE OF
HEAD

WAIT

FOR

INTERRUPT,

SHOULD SET IN 20MS>T>15MS.

SIGN

WAIT FOR DRIVE READY.

IF NOT:

READY

FAILED TO DETECT GUARD BAND

?9 56?0 HEADER. WAIT FOR INTERRUPT.

CHECK FOR MAX.

CYLINDER

FAILED TO SEEK BACK TO MAX CYLINDER

DO SEEK WITH DIFFERENCE OF 1, SIGN 1, HEAD 1.

SAME

NOTE:

THE

TESTING

AS ABOVE.

(HOOSING A SINGLE SURFACE WILL LIMIT

TESTS

SEQ 0031

Page 32
THAT SURFACE.

TEST 6

INCREMENTAL REVERSE SEEK HEAD 1

TEST

LA
A &2

POSITION

HEADS

CYLINDER

DIFFERENCE OF 1, HEAD O.

'HILIMIT'®

USING

SEEKS

WITH

DD SEEK WITH DIFFERENCE OF

1,
SIGw 0, HEAD 1.
WAIT FOR
INTERRUPT, WAIT FOR DRIVE READY. C(HECK READY SET IN 15 MS:
POSITIONING PROBLEM AT A SPECIFIC CYLINDER

DO READ HEADER, WAIT FOR INTERRUPT.
IF NOT:
IS OLD CYLINDER = 1.

CHECK THAT THIS

(YLINDER

DIFFERENCE REGISTER OR COUNT LOGIC FAILURE
TRACK CROSSING DETECTION FAILURE

REPEAT SEEK AND CHECKS UNTIL CYLINDER IS 'LOLIMIT'.

NOTE 1: IF PROGRAM MODE 2 IS USED AND THE

ALL

SECTORS''

TESTING WILL BE DONE BETWEEN UPPER AND LOWER

CYLINDER

PARAMETER

'USE_

IS SPECIFIED AS 'Y'', THE TEST WILL READ AND

TEST ALL 40 HEADERS (CARTRIDGE VERIFY).

NOTE 2:

LIMITS.

CHOOSING A SINGLE SURFACE WILL LIMIT TESTING

TO THAT
SURFACE.
TH]
SURFACE O IS CHOSEN.

TEST 7

TEST

WILL

BYPASSED

SEEK TESTS

L228
8 44

POSITION

HEADS

CYLINDER

DIFFERENCE OF 1, HEAD 0.

'LOLIMIT''

DO READ HEADER, RECORD POSITION.

USING

SEEKS

WITH

DO SEEK WITH DIFFERENCE OF 2

(MAX DISTANCE AT 3 IPS),
SIGN 1, HEAD 0.
DO READ HEADER,
CHECK NEW CYLINDER IS OLD CYLINDER + DISTANCE.
IF NOT:
TRACK CROSSING DETECTION FAILURE
DIFFERENCE COUNTER FAILURE
COUNT PULSE GENERATION FAILUPE
VELOCITY ROM FAILURE

SE&EAT ABOVE UNTIL OLD CYLINDER + DISTANCE > MAX,

DO READ HEADER, RECORD POSITION.

POSITION AT

DO SEEK WITH DIFFERENCE OF 2

(MAX
DISTANCE
AT
3
IPS),
SIGN O, HEAD O.
DO READ HEADER,
CHECK NEW CYLINDER IS OLD CYLINDER - DISTANCE.
[F NOT:
TRACK CROSSING DETECTION FAILURE

SEQ 0032

REPEAT UNTIL O.D CYLINDER - DISTANCE < 0.
ABOVE USING HEAD 1,

REPEAT ALL

REPEAT ALL OF THE ABOVE TESTS USING

FOLLOWING

. 12,17, 22, 27, 34, 41,

THE

DISTANCES:

128, 256 FOR RLO1 OR &4, 12, 18,

24, 34 44, 54, 68, 82,7256, 518 FOR'RLO2. THESE DISTANCES ARE
SPECIFIED BECAUSE THEY REPRESENT THE MAXIMUM DISTANCE FOR EACH

VELOCITY LEVEL USED IN THE DRIVE.

NOTE:

TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER
LIMITS.
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING
TO THAT SURFACE.

TEST 8 FORWARD OSCILLATING SEEK TEST
AENRAN

POSITION HEADS AT CYLINCER 0.

DO OSCILLATING SEEK USING HEAD O (SEEK FROM 0 TO 1 70 0, 0 TO
2 10 0, 0 703700, ...0 TO MAX CYL TO 0).
AFTER EACH SEEK
READ HEADER AND VERIFY POSITION.

REPEAT TEST USING HEAD 1.

NOTE:

IF EITHER CYLINDER LIMIT IS SPECIFIED, THE TEST WILL
SEEK BETWEEN UPPER AND LOWER LIMITS FOR EACH SURFACE.
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING TO THAT
SURFACE.
NOTE
THAT LOOPING ON TEST THEN PROVIDES A
FIXED DISTANCE SEEK LOOP.

TEST 9 REVERSE OSCILLATING SEEK TEST
Ahekhd

POSITION HEADS AT MAX CYLINDER.

255,....255 T0O 0 TO 255.) AFTER

EACH

OSCILLATING

SEEK

_USING

HEADER

AND

HEAD 0. (IF RLO1 SEEK FROM 255 TO 254 TO 255, 255 10
VERIFY POSITION.

SEEK

READ

253

71O

REPEAT TEST USING HEAD 1.

NOTE:

IF EITHER CYLINDER LIMIT IS SPECIFIED, THE
TEST WILL
SEEK BETWEEN UPPER AND LOWER LIMITS FOR EACH SURFACE.
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING TO THAT
SURFACE.
NOTE
THAT LOOPING ON TEST THEN PROVIDES A
FIXED DISTANCE SEEK LOOP.

OB-FER-B0
MAIN,
MACY11 30A(1052)
CZRLJB.MAC
07-DEC=-79 09:06
18

88
222

643
874

1210
1343
1383
1413

2664
2717
<765
2812
2864
2912

2961
3025

3084
3147

14:49
TABLE OF CONTENTS

MACRO DEF INITIONS
GLOBAL DATA SECTION
GLOBAL DATA SECTION
GLOBAL MESSAGES
ERROR MESSAGES
INJTIALIZATION SECTION
AUTO DROP SECTION
CLEANUP CODE SECTION
GLOBAL SUBROUT INES
*TEST 1
**QUTER GUARD BAND DETECTION

=TEST 2
*TEST 3
*TEST 4

*TEST
~TEST
*TEST
~TEST
*TEST

5
6
7
8
9

PARAMETER CODING

*« INCREMENTAL FORWARD SEEK HEAD 0
=« INCREMENTAL REVERSE SEEK HEAD 0
«**INCREMENTAL FORWARD SEEK HEAD 1

«« INNER GUARD BAND DETECTION
+« INCREMENTAL REVERSE SEEK HEAD 1
«*SEEK TESTS
+«f ORWARD OSCILLATING SEEK
*+«REVERSE OSCILLATING SEEK

SEQ 0034

CZRLJB.MAC

000001

NN
ek

= OO0 NONNE

ek
d e

D
—t

07-DEC-79 09:06

002000
002000

00¢001
000001
000001
000000
000000

MACY11 30A(1052)

PART2==

08-FEB-80

.ENABLE ABS
.ENABLE AMA

.=2000
MCALL
Sv(

SVCTST

SvCSuB
SVCBGL
SVCINS
SVCTAG

SVC
OO
= ——

CZRLJBO RLO1/02 DRIVE TEST 2

14:’9

PAGE

SEQ 0035

CZRLJBO RLO1/02 DRIVE_TEST 2
CZRLJB.MAC
07-DEC-79 09:06
17
18

MACY11

30A(1052)

08-FEB~80

14:49

.SBTTL

MACRO DEF INITIONS

.MACRO

WAITUS
MOV

.ENDM
.MACRO
.ENDM

.MACRO

.ENDM

-MACRO
.ENDM

.MACRO

JSR

WAITMS

MOV
JSR

ARG

ARG, XDEI.AY
PC,TIME
ARG

ARG, YDELAY
PC,XTIME

XDELAY
, TEMPO

MOV
CLR
CLR

YDELAY ,TEMP
XDELAY
YDELAY

GETTIM
MOV
CLR

ARG
a#CLKCTR,ARG
a#CLKCSR

STCLK

CLR
CLR

a#CLKCSB
a#CLKCTR

PAGE 1-1

ABORTWAIT

MOV

MOV
.ENDM

#23,3#CLKCSR

sMACRO MICRO-SEC WAIT
s SAVE ARGUMENT

sCALL TIMING ROUTINE

sJMACRO MILLI=-SEC WAIT
s SAVE ARGUMENT

sCALL TIMING ROUTINE

JMACRO CLEAR UNELAPSED TIME
sSAVE MICRO-SEC RUN TIME
;SAVE MILLI-SEC RUN TIME

;ABORT MICRO-SEC WAIT

JABORT MILLI-SEC WAIT

sMACRO GET ELAPSED TIME
sSTORE CLOCK COUNTER CONTENTS
SEVENT FINISHED, STOP (LOCK
;sMACRO START P=-CLOCK

sCLEAR CLOCK COUNT SET BUFFER
sCLEAR CLOCK COUNTER
JINITIALIZE CLOCK FOR COUNT-UP MODE,
:/10 KHZ RATE, AND START (CLOCK

SEQ 0036

CZRLJBC RLO1/02_DRIVE _TEST 2

(ZRLJB -MAC

52
53
54
55
56
57
58

(4)
(4)
(%)
(4)
(&)
6)
(6)
&)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)

(4)
(4)
(4)
(4)

(4)
(3)
(4)
(5)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(&)

07-DEC-79 09:06

MACY11 30A(1052)

MACRO DEF INITIONS
NLIST

002000
002001
002002
002003
002004

BGANMOD
HEADER

3
PAGE 1-2

CND ,MD ,ME

MDHEDR

CZRLJ,B,0,30000,0
LASCII
.ASCII1
LASCII
LASCIL
JASCII

BYTE
BYTE
.BYTE

002005

002007
002010
002011
002012
002014
002016
002020
002022
002024
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050
002051
002052
002054
002056

LASCII

002062

002064

002070
002072
002074
002076
002100
002102
002104
002106
002110
002112
002114
002116
002120
002122

14:46

POINTER BGNSW,BGNSFT,BGNDU

002000

O08-FEB-80

O
O
O

/B/

LASCII
WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
WORD
WORD
.WORD
.BYTE
.BYTE
WORD
LWORD
WORD
.WORD
WORD
WORD
.WORD
MWORD
.WORD
WORD
.WORD

/0/
O
30000
LSHARD
LSSOFT
LS$HW
LSSW
LSLAST
0
0
0
O
LSDISPATCH
0
0
0
CSREVISION
CSEDIY
0
0
O
LSDVTYP
O
0
0
0
L$DU
0
LS$DESC

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

O
LSINIT
LSCLEAN
LSAUTO
L$PROT
C
O

EMT

ENDMOD

7¢C/
72/
/R/
/L/
7J/

.WORD

ESLOAD

SEQ 0037

MACY11 30A(1052)
O8-FEB-80
MACRO DEF INITIONS

030460

PAGE 1-3

051516
.EVEN

002226
002226
002234

14:49

DEVIYP
.ASCIZ

051054

<RLO1,RLOZ>
/RLO1,RLO2/

.EVEN

JON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
sTHE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS

sTHIS SOFTWARE

IS FURNISHED UNDER LICENSE FOR USE ONLY

;SOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED
;OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT
sFOR _USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE
JLICENSE TERMS. TITLE TO OWNERSHIP OF THE SOFTWARE SHALL
;AT ALL TIMES REMAIN IN DEC.

73
74
75
76

;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

GLOBAL DATA SECTION

002240

BGNMOD

GLBEQAT

002240

EQUALS

: BIT DIFINITIONS

.SBTTL

A
A

b md =
b

A
A
A
A

b
e
b

A
A
AR VA NA

b
e
o

et et

b e

ettt
e te ta ta)

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

100000

020000
010000

002000
001000

000200
000100

SEQ 0038

DESCRIPT <CZRLJ TESTS OUTER & INNER GUARD BAND DETECTION AND SEEK OPERATIOMS>
LASCIZ
/CZRLJ TESTS OUTER & INNER GUARD BAND DETECTION AND SEEK OPERATIONS/

O=O =N VAN
= OMRIANND

=2 N =
d A A

NO = NNON

055103

=
SN DOOO NN
=2 NO NN
N = 8NN

002122
002122
002130
002136
002144
002152
002160
002166
002174
002202
002210
002216
002224

=3 8

66
(3)
(3
(3
(3)
(3
(3)
(3
(3)
(3)
(3)
(3)
(3)
2)
67
3
(2)
2)
68

elelelalele)
RIZRIARARRIR

CZRLJBO RLO1/02 DRIVE _TEST 2
CZRLJB.MAC
07-DEC-79 09:06

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BIT08==
BIT07==
BIT06==

100000
40000
20000
10000
4000
2000
1000
400
200
100

CZRLJBO RLO1/02_DRIVE_TEST 2
CZRLUB.MAC
07-DEC-79 09:06

Nt
o Nt N
N Nl N
P Nt N N N Nl N N Nt Nt i N N
i N Nt N Nt Nt Nt N Nt Nt
N N
N

B81T05==
BIT04==
BIT03==
BIT02==
BIT01==
81700==

40
20

001000
000400
000200
000100
000040
C00020
000010
000004
000002
000001

BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

BIT09
B8IT08
BIT07
BIT06
BITOS
BITO04
BIT03
BIT02
BITO1
BITO00

PAGE 1-4

SFO 0029

10
4
2
1

' EVENT FLAG DEF INITIONS

* " EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000040
000037
000036

000035
000034

EF .START==
EF .RESTART==
EF.CONTINUE==

32.
31.
30.

EF .NEW==
EF . PWR==

29.
28.

[
-

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

PRI07==
PRI06==
PRIQ5==
PRI04==
PRIQ3==
PR102==
PRIO1==
PRI00==

340
300
240
200
140
100
40
0

N Nl N

000040
000020
000010
000004
000002
000001

14:49

;OPERATOR FLAG BITS

N
N N
N
N N
N N
N
N
v N
o W
AN N

e teatete

o—l—l—l—.-—l—l—l—l—l—‘—l—l—l—l—l—i—l—l-—l—l—l—l-‘-—l—dd—l-fi_‘_‘_‘d_fi—I_‘—l—l—l—b—l—i_fl—l-—ld—l—b—)—l—d_‘_‘—i—d

e taleateateateatateatatateateatateataleatatetatelalea
Y
o V.Y W g
W N Y
e late tatetete
et e
Ve Ve Yo a0y

MACY11 30A(1052)
Q8-FEB-80
GLOBAL DATA SECTION

000004

000010
000020

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

EVL==

LOT==
ADR==

IDU==
ISR==
==
BOE==
PNT==
PRI==
IXE==
IBE==
IER==
LOE==
HOE==

10
20

40
100
200
400
1000
2000
4000
10000
20000
40000

100000

OFFSETS FOR HARDWARE P-TABLE

: START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
* CONTINUE COMMAND WAS ISSUED

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

(ZRLJBO RLO1/0” DRIVE TEST 2
CZRLJB.MAC
u?7=-DEC~7 " 09:06

MACY11

08-FEB-80
GLOBAL DATA SECTION

30A(1052)
CSR
VECT

PRIOR
TYPDR=6

)

b e

SEQ 0040

;PRIORITY

0
2

;DRIVE SELECT BIT
;CONTROLLER TYPE

FSET FOR SOF TWARE P-TABLE

=
=

=10
=12

;SOF TWARE PARAMETERS SWITCHES
sCYLINDER LOWER LIMIT
sCYLINDER HIGH LIMIT
sSELECTED HEAD FOR RUNNING TESTS
;ERROR LIMIT
;DATA COMPARE ERROR LIMIT

BIT ASSIGNMENT FOR SOF TWARE P-TABLE SWITCHES

Saruo&RR

e wnd wsnd

)

A VNMNNINNNIN = Db bk b b b

D wd —d

ALLCYL
=8IT100
ALLSEC =8I101
DRSELT
=BI102
HDAL IGN =8I703
HEADLM =8I112
HICYL
=8IT13
LOCYL
=BIT14
MITEST
=BIT15

SR2282S

b md wd wd
b
D

b wd

N N NN

d el med wmd
—b rd e —ond

weh il ancd wmd b

SN BN BN BB B B B I ANNN

149

0
=2

PAGE 1-5
;BUS ADDRESS
:VECTOR ADDRESS

106

=0
2

DR38B
CNT

MISw]
LOLIM
HILIM
HEAD
ERLIM
DCLIM

14:49

003760

CKDATA
GTSTAT
SEEK
RDHEAD

WTDATA
RDDATA
RDNOHR
NOOP

coMPOP

HDRCMP

SUBSYSTEM FUNCTIONS
=102

JWRITE CHECK

=106

s SEEK

=104

=110

=112

=114
=116

=100

OPERATION FLAGS
=7777

=8170

DATACMP =BIT00
CYLUP
=81102
ULOAD
81703
INOUTS =BIT04
OUTINS =BIT05
FOLWRY
=BIT06
REVSKS =BIT107
FWDSKS
81708
REVSKO
FWDSKO

BADADD
SEEKOP

RORWOP
RELDWT

HLR40O

MQUALS

sUSE ALL CYLINDERS
SUSE ALL SECTORS
JEXECUTE DRIVE SELECT TEST
JEXECUTE HEAD ALIGNMENT TEST
JHEAD LIMIT SPECIFIED FLAG
JHI LIMIT SPECIFIED FLAG
sLO LIMIT SPECIFIED
SEXECUTE MANUAL INTERVENTION TESTS

=B81109
=BIT10
=BIT1
=8IT712
=BIT113
=BIT14
=8IT15

;GET STATUS

;READ HEADER

JWRITE DATA
sREAD DATA
;READ DATA,

IGNORE HEADERS

:NO OPERATION

;COMPOSITE OPERATION FLAGS

sHEADER COMPARE OPERATION
;DATA COMPARE OPERATION
sCYCLE UP OPERATION
JUNLOAD OPERATION

; IN-OUT SEEK OPERATION
;OUT-IN SEEK OPERATION
;FOLLOWING WRITE OPERATION
JREV SEEK SEQ (ADJ INTERFERENCE)

JFWD SEEK SEQ (ADJ INTERFERENCE)

;REV SEEK SEQ (OVERWRITE)
;FWD SEEK SEQ (OVERWRITE)
;BAD DISK ADDRESS
;SEEK OPERATION
;READ OR WRITE OPERATION
cRELOAD WAIT
;40 HEADER OPERATION

=OUTINS! INOUTS !FOLWRT !REVSKS ! FWDSKS ! REVSKO! F WDSKO

sMESSAGE QUALIFIER BITS

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DEC~-79 09:06
150

151
152
153

000001
000002
000004

MACY11 30A(1052)
OB-FEB-80
GLOBAL DATA SECTION

14:49

PAGE 1-6

ERROR FLAGS FROM SUBROUTINES

=BIT03

TOSLOW
NOIRPT
CONHNG

=BIT00
=8]1T01
=BITO?2

;OPERATION TOOK TOO LONG
;NO INTERRUPT FROM OPERATION
;CONTROLLER HUNG
;CONTROL AND STATUS REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER

}gg

000010

NOCLR

154
157
158

000000
000002
000004

RI €S
RLBA
RLDA

=0
=2
=4

000000
100000
040000
020000
010000
010000
004000
004000
002000
001400
000200
000100
000060

RLCSR
ANYERR
DRVERR
NXMERR
DLTERR
HNFERR
DCKERR
HCRCERR
OPIERR
DSMSK
CRDYMSK
INTEBL
BAMSK

000077
000100

SAMSK
HSMSK

182

000001

MBSETO

186
187
;gg

000003
000010

:
REGISTER BIT DEFINITIONS - DISK ADDRESS FOR GET STATUS
GETSTAT =3
JGET STATUS SETUP
DRSET
=10
:DRIVE RESET MASK

191

017777

WCMSK

194
195

000077

N
HDSEC

‘:23

161

162
163
164
165
166
167
168
169
170
171
172
173
174

};2

177

178
}gg

181

183
}glso

190
‘1'8:2s

}gg

198

199

200
201
202
203
204
205

000006

000001

000004
000020

160000

RLMP

=0
=100000
=40000
=20000
=10000
=10000
=4000
=4000
=2000
=1400
=200
=100
=60

DRDYMSK =1

sMULTI-PURPOSE REGISTER

. CONTROL AND STATUS REGISTER
SANY ERROR BIT
:DRIVE ERROR BIT
;NON-EXISTANT MEMORY ERROR
;DATA LATE ERROR
JHEADER NOT FOUND ERROR
;DATA (CHECK ERROR
sHEADER CHECK ERROR
;OPERATION INCOMPLETE ERROR
:DRIVE SELECT MASK
;CONTROLLER READY MASK
: INTERRUPT ENABLE MASK
;BUS ADDRESS UPPER MASK

:DRIVE READY MASK

;

DIRBIT
HDSEL

=4
=20

=77
=100
=1

sSECTOR ADDRESS MASK
;HEAD SELECT MASK
msr BE SET, BIT O

DIRECTION BiT
'HEAD SELECT BIT

WCRNG

=160000

000100

HDHSEL

000007

STAMSK

000010
000020
000040
000100
000400
001000

;BAD CONTROLLER CLEAR

=17777

=100
=7

BHSTAT =10
HOSTAT =20
COSTAT =40
HSSTAT =100
DSESTAT =400
VCSTAT =1000

:WORD COUNT MASK

;WORD COUNT RANGE MASK

JHEAD SELECT MASK
:STATE MASK

;BRUSH HOME STATUS
JHEADS QUT STATUS
;COVER OPEN_STATUS
JHEAD SELECT STATUS
sDRIVE SELECT ERROR STATUS
;VOLUME CHECK STATUS

SE4 0041

CZRLJBO RLO1/02_DRIVE TEST 2

CZRLJUB.MAC

206
207
208

002000
004000
010000

NN S LSSV
N1 ST, VT,NT,8 1,8
NN —d d e csrd d v D i d b
W
=0 NNONONE
W =O

07-DEC~79 09:06

MACY11 30A(1052)

GLOBAL DATA SECTION

14:49

WGESTAT =2000
SPDSTAT =4000
STOSTAT =10000

PAGE 1-7

SEQ 0042

JWRITE GATE ERROR STATUS
;SPIN ERROR STATUS
;SEEK TIMEOUT ERROR STATUS

WLSTAT
=20000
HCESTAT =40000
WDESTAT =100000

CLKCSR
CLKCSB
CLKCTR
002240

OB8-FEB-B0

JWRITE LOCK STATLUIS
JHEAD CURRENT ERROR STATUS
JWRITE DATA ERROR STATUS

P=-CLOCK REGISTERS

=172540
=172542
=172544

;CLOCK CONTROL AND STATUS REG.STER
;CLOCK COUNT SET BUFFER
;CLOCK COUNTER

ENDMOD

000000
005405
005430
005360
005375
005416

.SBTTL

GLOBAL DATA SECTION

BGNMOD

GLBDATY

TABLE OF OPERATION MESSAGES

OPMSGS:

.WORD
WORD
.WORD
.WORD

0
MWR(CHK
MSEEK

sFILLER
JMESSAGE FOR WRITE CHECK
:
GET STATUS
;
SEEK

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

MUWRITE
MREAD
MMWRSET
MDAT(P
MHDR(P
MCYLUP
MULOAD
MINOUT
MOUTIN
MFOLWRT
MREVSK
MFWDSK
MRESKO
MFWSKO
MBADAD

s
;
:
;
:
:
:
:
:
;
N
:
;
.
;

. WORD

005513
005442
005461
005560
005547
005607
005570
005630
005650
005701

T.DRIVE:

JJJ:

.WORD

HLMTW:

_WORD

GBND :

.WORD

CLRBYT:
NXTHL:
CAMSK:
DIRMSK:
HDCYL:

007771
010102

.WORD

RESTBL:

,WORD
.WORD

.WORD
.WORD
L.WORD

MGTSTA

MREADH

M4LOHDR
0

READ HEADER

40 HEADER OPERATION

WRITE DATA
READ DATA
WITH RESET
WITH DATA COMPARE
WITH HEADER COMPARE
LOAD HEADS
UNLOAD HEADS
IN-OUT SEQ
OUT-IN SEQ
FOLLOWING WRITE
REV SEEK
FWD SEEK
REV SEEK
FWD SEEK
BAD DISK ADD FOR WRITE

O
0

0
0

O
O
O

TABLE OF RESULT NAME MESSAGE ADDRESSES
.WORD

.WORD

M(ERR

MDRERR

JCONTROLLER ERROR

:DRIVE ERROR

(ZRLJBO RLOY/02_DRIVE_TEST 2
CZRLJB.MAC
07-DEC~79 09:06

262
263
264
265
266
267
268
269
270
2N
272
273
274
275
276

277
278
279
280
281
282
283
284
285
286
287
288
289
290
291

292
293

NOWNES
NN —=O

AN NN NN LN NN

SRR
e

294
295
296
297
298
299
300
301
302
303

MACY11

30A(1052)
08-FEB~B80
GLOBAL DATA SECTION

010320
010272
010255

010245
010352
000000
010230
010212
000000
010176
010143

PATTBL:

14:49

PAGE

1-8

.WORD
.WORD
.WORD
.WORD
3828

MNEERR
MFLERR
MHDERR
MOPERR
SNDRST

LNON-EXISTANT MEMORY ERROR
JHEADER NOT FOUND-DATA LATE
JHEADER OR DATA ERROR
;OPERATION INCOMPLETE
JNO DRIVE STATUS AVAILABLE

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

MWDERR
MHCERR
O
MSTERR
MSPERR
MWGERR
O
MPSCZRR

WRITE DATA ERROR
;HEAD CURRENT ERROR
;SEEK TIMEOUT ERROR
;SPINDLE ERROR
JWRITE GATE ERROR
;DRIVE SELECT ERROR

PATTERN TABLE
.WORD

.WORD
.WORD
.WORD

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

PAT]

PAT?
PAT3
PAT4

PATS5
PAT6
PAT?7
PATS8
PAT9
PAT10

SUBROUTINE CALLING STACK
:
SUBSTK: .WORD
O
;STACK IS 12 WORDS LONG
0
LWORD
.WORD
WORD
LWORD
MWORD
WORD
.WORD
.WORD
.WORD

0
O
0O
O
O
O
0
O

cRLO1 TABLE OF CYLINDERS
T25TBL:

.WORD

WORD

.WORD
.WORD
.WORD
.WORD
.WORD

27.
34.

WORD
WORD
LWORD
LWORD

9.
12.
17.
22.

41,
128.
255.

;RLO2 TABLE OF CYLINDERS
125T82:

.WORD

LWORD

12,

;TABLE OF DIFFERENCES

SEQ 0043

30A(105¢2)
08-FEB-B0
GLOBAL DATA SECTION

TABLE

002520
002560

.BLKW
.BLKW

CYLTBL:

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

T8T:

002
016

024
033

393

041
046

nd wmd vl
d e
e
—
b
=0
NOWNESDNWN)
= =
[P ¥ Yo T IVYF V. T e - N

002620
002621
002622
002623
002624
002625
002626
002627
002630
002631
002632
002633
002634
002635
002636
002637
002640
002641
002642
002643
002644
002645
002646
002647
002650
002651
002652
002653
002654
002655
002656
002657
002660
002661
002662
002663
002664
002665
002666
002667

T3378L:

14:49

PAGE 1-9

SEQ 0044

18.

26.
34.

44,
56.

68.
82.
256.
511.

TO BE USED TO BUILD AND STORE

THE CYLINDERS

16.
16.

SWWNN—‘VN

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

002476
002500
002502
002504
002506
002510
002512
002514
002516

—t

318
319
320
321
322
323
324
325
326
327
328
329
330
AN
332
333
334
335
336
337
338
339

07-DEC-79 09:06

MACY11

%NN—-‘QOOQ@\IVO‘MM AN NN

( (RLUB.MAC

_TEST 2

NUNONONININININD
b cwd o e cod oo e o b eod md ok od cad — 0000 NNOMWAWY
&Ha
co~N-~ SNALAVODNINODINNO
&
e
o
&
o
%
*
@
- e
N= S NO TM NNOWNO
S NO SN0
NOW®ros
L) (] L[] [ .

ZRUJBO RLOV/02_DRIVE

;TABLE OF DEFAULT CYLINDERS

CZRLJBO RLO1/02_DRIVE TEST 2
CZRLJB.MAC
07-DEC~79 09: 06

374

375
376
377
378

379
380
381
382

002670
002671
02672
002674
002676
002700

375
000
000401
000406
000415
000423

002704
002706
002710
002712
002714
002716
002720
002722
002724
002726
002730
002732

000445
000454

002702

002734
002736

MACY11 30A(1052)

08-FEB-80

GLOBAL DATA SECTION
.BYTE

BYTE

.WORD
LWORD
.WORD
JWORD
.WORD
.WORD

000432

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
WORD
LWORD
WORD
LWORD
LWORD
LWORD
.WORD
LWORD
LWORD
.WORD
.WORD
LWORD
-WORD
.WORD
.WORD

000463
000471
000500
000507
000514
000523
000532
000540
000545
000553

002740
002742
002744
002746
002750
002752
002754
002756
002760

002762
002764
002766
002770
002772
002774
002776

14:49

253.

257.
262.
269.
275.
282.
293.
300.

307.
313,
320.
327.
332.
339.
346.
352.
357.
363.
368.
375,
382.
389.
394,
401.
4C7.
412.
419,
425,
432,
439,
444,
450.
457,
462.
469.
475,
482.
489,
496.
50¢.
508.
508.

WORD
.WORD

OPERATIONAL FLAGS

DONE :

.WORD

O
O
0

HADONE:

.WORD

BSFLAG:

.WORD

ERHEAD:
MORECE:
ERRSWI:
WRTSWI:
TBLSTR:

.WORD
.WORD
.WORD
.WORD
.WORD

&
PAGE 1-10

SSINDX:
OPFLAG:

0
0
0
0
O

sSUBROUTINE STACK INDEX POINTER

;OPERATION FLAGS
;OPERATION COMPLETE FLAG
JHEAD ALIGNMENT DONE FLAG
;ADDRESS OF ERROR HEADER
;MORE THAN 1 COMPARE ERROR

sERROR RETURN SWITCH
;BAD SECTOR FLAGS

JWRITE SWITCH
;TABLE STORAGE

SEQ 0045

(ZRLJBO RLO1/02_DRIVE TEST 2
(ZRLJB .MAC
07-DEC-79 09: 06
430
43
432
433

MACY11 30A(1052)

08-FEB-80

GLOBAL DATA SECTION

14:49

PAGE 1-11

SEQ 0046

003042
003044
003046

RLBAS:
RLVEC:
RLDRV:

.WORD
.WORD
.WORD

0
0
0

;RL11 BASE ADDRESS
;RLTT VECTOR ADDRESS
;DRIVE NUMBER UNDER TEST

003050
003052
003054
003056

L.CS:

MWMORD

;CONTROLLER REGISTER STORAGE

L.DA:

LMWORD

L.BA:

.WORD

L.MP:

LMWORD

.WORD
.WORD
LMWORD

0
0
O

;CONTROLLER REGISTER STORAGE
.
AFTER OPFRATION

HDWRD1:
HDWRDZ:
HDWRD3:

.WORD
.WORD
WORD

0
0
O

:HEADER WORD STORAGE

T.STAT:

.WORD

:DRIVE STATE S5STORAGE

.WORD

;PARAM BLOCK FOR REASON RCLPORT

DRVCNT:
DIFAUG:
OLDCYL:
NEWCYL:
CURCYL:

.WORD
.WORD
.WORD
.WORD
.WORD

0
O
O
O
O

:DRIVE COUNT FOR DRIVES UNDER TEST
:DIFFERENCE AUGMENT FOR SEEK
;OLD CYLINDER
NEW CYLINDER
;CURRENT CYLINDER

DESSGN:

.WORD

sOESIRED SIGN

T.CS:
T.BA:
}'%

RESPARM:

DESDIF:

LWORD
MORD
WORD
.WORD

WORD

DESHD:
DESSEC:

.WORD
.WORD

TEMPE:
TEMP7:

.WORD
.WORD

TEMPO:
TEMP1:
TEMP2:
TEMP3:
TEMP4:
TEMPS:

.WORD
.WORD
.WORD
.WORD
LWORD
WORD

;BEFORE OPERATION

O
0
O
O

O
0
O

O
O
O
O
O
O

0
O

;DESIRED DIFFERENCE
:DESIRED HEAD
;DESIRED SECTOR
: TEMPORARY
: TEMPORARY
:TEMPORARY
: TEMPORARY
; TEMPORARY
:TEMPORARY

STORAGE
STARAGE
STORAGE
STORAGE
STORAGE
STORAGE

;s TEMPORARY STORAGE
: TEMPORARY STORAGE

TEMP8:
:

.WORD
O
TIMER STORAGE

OFINU:
OFMID:
OFMIDU:
OFOUT:
OFOUTU:

.WORD
.WORD
.WORD
.WORD
,WORD

0
O
O
O
O

:
UPPER
:ONE CYLINDER FORWARD MIDDLE
UPPER
:
:ONE CYLINDER FORWARD OUTER
UPPER
:

.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O

UPPER
;
JONE CYLINDER REVERSE MIDDLE
UPPER
;
;ONE CYLINDER REVERSE QUTER
UPPER
;

OF IN:

ORIN:

ORINU:
ORMID:
ORMIDU:
OROUT:
OROUTU:

.WORD

MWORD

: TEMPORARY STORAGE

;ONE CYLINDER FORWARD INNER

:ONE CYLINDER REVERSE INNER

—

HF IN:
HFINU:
HFOUT:
HFOUTU:
HRIN:

000226

EXOCYL:
EXHCYL:
EXACYL.:
EXROT:
ERRVEC:

b
b

VIVIVIAIVIVWIAN

NOWVSWNNN=O

001046
001750
000372
000004

003502

003506

HRINU:
HROUT:
HROUTU:
AFMID:
AFMIDU:
ARMID:
ARMIDU:

.wORD
.WORD
.WORD
.WORD
.WORD

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

.WORD
.WORD
.WORD
.WORD
.WORD

'-12

PAGE

OOO0O0OOOOOOO0O0O

495

496
497
498

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
C00000
000000

14:49

SEQ 0047

;128 CYLINDER FORWARD INNER

;

UPPER

;

UPPER

;128 CYLINDER FORWARD OUTER
;128 CYLINDER REVERSE INNER
,128 CYLINDER REVERSE OUTER

UPPER
;
256 CYLINDER FORWARD
UPPER

256 CYLINDER REVERSE

UPPER

50
50.

JEXPECTED TIME ONE CYLINDER
JEXPECTED TIME 128 CYLINDER

50.

SEXPECTED ROTATION TIME

S22

490
N
492
493
W94

003204
003206
003210
003212
003214
003216
003220
003222
003224

30A(1052)
08-FEB-80
GLOBAL DATA SECTION

000.

MISCELLANEOUS COUNTERS

JEXPECTED TIME 256 CYLINDER

sERROR VECTOR

;PASS COUNTER

(LOCAL

TO A TEST)

000000
000000
000000
000100
000000
000000
000
000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

PASCNT:

CLKADR:

.WORD
.WORD
.WORD
.WORD
.WORD

000000

BSFVAL:

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

000076
000076

SBSFIL:

.BLKW

76
76

;SOFTWARE 3AD SECTOR FILE
;FACTORY BAD SECTOR FILE

000200
000200

IBUFF:
OBUFF:

.BLXW
.BLKW

200
200

: INPUT BUFFER
;OUTPUT BUFFER

000000
177772
177777
177777
052525
052525

PAT1:
PAT?:

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

0
177772

;PATTERN 1

.WORD

.WORD
COUNT:
: .WORD
ERRPOINT
ERRCNT: .BLKU
PASNUM:
PSETNM:

LOCERR:
NOERCT:
TRPFLG:
PWRFLG:

XDELAY:
YDELAY:
MININC:

TEMP:

TIM.US:
TAG:
MAJINC:
CLKFLG:

FRSFIL:

.WORD
.WORD

.BYTE
.BYTE

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

487

488
489

MACY11

[elelelelolelelalelelelelalalals
Jolole)

CZRLJBO RLO1/02 _DRIVE TES T 2
C7RLJB. MA(
07-DEC-79 O 9:06

127777
177777
052525
052525

;A COUNTER (LOCAL TO A TEST)
;ERROR POINTER
;ERROR COUNTER FOR PROGRAM
:PASS NUMBER rOR PROGRAM
;COUNTER FOR PARAMETER SET NUMBER IN USE
;LOCAL ERROR COUNTER
;INHIBITM ERROR COUNTING FLAG
;HARDWARE

TRAP GCCURANCE

;POWER FAILURE OCCURANCE

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

(ALL ZEROS)

CZRLJBO RLO1/02 DRIVE_TEST 2
CZRLJB .MAC
07-DEC-79 09:06

P4l
592

593

052525

172777

052525
177252

177252
172765
172765

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

052525

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

000003
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000

177777
177777

052525
052525
177777
052525
177252
177252
172765
172765

005144
005146
005150
005152
005154
005156
005160
005162
005164
005166
005170
005172
005174
005176
005200
005202

000003
000000
000000
1727777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
000000
177777

PAT3:

005204
00<206
005210
005212
005214
005216
005220
005222

025252

PATS:

DINDWNNWNIND
LAAN N AWV
N WY
NN WNRNWNNND
VNN N
WA

588
589
590

1772777
177777
052525

155555
133333
066666

PATS:

WUV
OMAW

576
577
578
S79
580
581
582
583
584
585
586
587

052525

121105
150442

PAT6:

NSOV

574
575

GLOBAL DATA SECTION

14:49

A
AO RO
A OO
m OOO
ownownihswatons
N
WTY

552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573

08-FEB-80

bt
W

546
547
548
549
550
551

005116
005120
005122
005124
005126
005130
005132
005134
005136
005140
005142

30A(1052)

OO=O——
NN

544
545

MACY11

052525
052525

125252

125252
125252
052525
052525
125252
125252
052525
125252

052525
125252

052525

125252

064221
132110
055044
026442

177777
000000
1772777
000000
177777

PAGE 1-13

SEQ 0048

CZRLJBO RLN1/02_DRIVE TEST 2
CZRLUB.MAC
07-DEC-79 09:06

600
601
602
603
604
605
606
607

005266
005270
005272
005274
005276
005300
005302
005304

013211
105504
042642
021321
110550
044264
022132
011055

611

005312

177777

613
614
615
616
617
618
619
620

005314
005316
005320
005322
005324
005326
005330
005332

622
623
624
625
626
627
628

005334

045513
122645
151322
064551
132264
055132
026455
113226

005336
005340
005342
005344
005346
005350
005352

045513

630

005354

125252

632

005356

155555

634

005360

608
609

621

005306
005310

o045

005360

647
648
649
650
651
652
653
654
655
656

005360
005364
005375
005405
005416
005430
005442
005461
005477
005513

657
658

005527
005536

O08-FEB-80
MACY11 30A(1052)
GLOBAL DATA SECTION

14:49

.WORD
LWORD
JWORD
WORD
LWORD
.WORD
.WORD
.WORD

013211
105504
042642
021321
110550
044264
022132
011055

PAT7:

.WORD

177777

PAT8:

.WORD
WORD
.WORD

045513
122645
151322

LWORD
WORD

104426
042213

PAGE 1-14

104426
042213

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

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

PAT9:

_WORD

125252

PAT10:

.WORD

155555

122645
151322
064551
132264
055132
026455
113226

ENDMOD

045523
042122
122
127
051127
042507
044527
127
106
127

117
042522

000040
042040
020104
052122
020124
020124
044124
052111
051117
052111

042520
052523

052101

042110
041440
040504
052123
042040
020110
032040
02011G
035122
052114

.SBTTL

GLOBAL MESSAGES

BGNMOD

GLBTXT

MSEEK:
MREAD:

.ASCIZ
.ASCIZ

MREADH:
MWRCHK:
MWRITE:
MGTSTA:
MDATCP:
MHDRCP:
M4LOHDR:
MWRSET:
MOPER:
MRSLT:

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

/SK /
/RD DATA /

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

SEQ 0049

659
660

661

6b¢
663
664
665
666
667
668
669
670
671
672
673

005547
005560
005570
005607
005630
005650
005701
005732

MACY11
020104
053122
020060
031040
051127
054503
041440
042127
053105
042107
052047
051440
047101
040440
000
051104
044504
000
000101
000
000120
044516
047504
000040
052120
053122
052116

125
042114
047506
106
04750¢
042101
101

045523
045523
047117
103

674
675

676
€77
678
679
680
681
682

683
685

YO
e ek e
AN =

ek
D ek
d
d
—b

= wd d b edd eed

051440

on NION)
NN

=3\
NN

\Y,)

MOUTIN:
MINOUT:
MFOLWRT:
MREVSK: LASCIZ
MFWDSK: .ASCIZ
MFWSKO: .ASCIZ
MRE SKO: .ASCIZ
MBADAD: .ASCIZ
MBADSF: .ASCIZ
MFMTER: .
MTMBS:

BASADD: .
DRVNAM:
DRVNAV:
NOPWR:
CSNAM:
BANAM:
DANAM:
MPNAM:

.,
.

LAB1:
LABZ:

MWORD
:
MTOSLOW:
MDRRES :
MNCINT:
MCONHNG:
MNOCLR: .

TSTLAB:

051127

iy
N
AN =t md ed O od d o b b b b QNN
=2 O [AS1aS1a8)
NW == =2 OWNNN
= NNW

LASCIZ
LASCIZ
.ASCIZ
LASCIZ

VCNRST:
UNXERR:

053506

MULOAD:

MCYLUP:

042524

051517
047440
046511
042122
042122
042116
042122
046040
041440
053522
044524
042116
030440
047522
051105
046104
000122

P2T03E:
P2TO4LE:
P2TOSE:
P2TOGE:
P2TO7E:
P2TO8E:
P2TO9E:
P2T10E:
P2T11E:

P2T12E:

P2T13E:
P2T14E:
P2T15€:
P2T16E:
P2T17E:
P2T1BE:
P2TI19E:
SKTMES:
SRTMES:
VALDES:
MAPROX:
LABIN:
LABMID: .
LABOUT:

14:49

/UNLD DRV/
/LD DRV /
/FOL Q 1O CC

PAGE 1-15

SK/

/FOL 255 1O CC Sk/
/FOL WRT (NO SK)/
LASCIZ

/ADJ CYL WRTTN AFT REV SK/
/ADJ CYL WRTTN AFT FWD SK/
/SK FWD,WRT = SK REV,OVERWRT/
/SK REV,WRT = SK FWD,OVERWRT/
/ON BAD SEC FILES/
/CAN'T GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/
/TO MANY BAD SEC /
/BUS ADD=/

/DRV=/

/NO DRV FOR TST/

/DRV DID NOT REC'R FROM PWR FAIL/
/RLCS/

/RLBA/
/RLDA/
/RLMP/
/0P INIT = /
/0P DONE = /
/WORD /
/INTRPT TOO LATE/
/NO DRV RSPNSE/
/NO_INTRPT ON CMND COMPLETE/
/CNTLR HUNG /
/ERR DID NOT CLR/
/VOL CHK NOT RSET/
fn

CZRLJBO RLO1/02_DRIVE TEST 2
CZRLJB.MAC
07-DEC~79 09:06

30A(1052)
08-FEB-80
GLOBAL MESSAGES

/UNXPCTED ERR/

/ TEST/
/0UT GRD BAND /

/INC SK FWD HD Q/
/INC SK REV HD 0/
ZINC SK FWD HD 1/
/INN GRD BAND /
/INC SK REV HD 1/

/SK/
/FWD 0SC SK/
/REV OSC SK/
/SK TIMING/
/8SC RD DATA/

EWRT/RD DATA (P1)8

/SPINDLE ROT TIMING/

SWRT/RD DATA (P2)%

/WRT LCK ERR _AND DATA PROT/
/ADJ CYL INTERFNCE/
/OVERWRT/
/SK TIMES /
/SPINDLE ROT TIME /
/(IN 100°S OF U-SEC)/
/APPROX /
/INNER/
/MIDDLE/
/OUTER/

SEQ 0050

CZRLJBO RLO1/02 DRIVE TEST 2

CZIRLJB.MAC
732

733
734
735

07-DEC-79 09:06

007206

007217
00723]
007243

04051?

061
061
115

30A.1052)

044524

LABEXP:

041440

LABHCR:

041440

LABACR:

041440
041440
042111

046131
046131
041440

041440

007357
007376
007402
007412
007425
007442
007450
007455
007461
007466
007473
007501
007514
007537
007550
007624
007645

122
047117
047117
047125
123
044504
043523
110
123
054503
106
040
047522
104
040502
047524
104

051505
000040
042040
042504
052105
043106
020116
020104
041505
020114
047522
054502
052125
053122
020104
040524
044522

052105

053122
020122
053440
000040
000
000
000040
000
020115
040520
047111
051440
042523
020114
042526

OPR1Z:
OPR1A:
OPRIB:
UNDTST:
OPROO4:
DIFWD:
SGMNWD:
HOWD:
SECWD:
CYLWD:
FRMWD:
BYPSNM:
SEQMES:
STAMES:
BSNSTR:
TCERR:
NOCTLR:

779
780
781

007760
007771
010003

051104
103
110

020126
047117
051104

042122
020124
041440

MDRDY:
MCERR:
MHCRC:

783
784
785
786
795
796
797
798
799
800
801
802

010024
010040
010052
010102
010113
010130
010143
010161
010176
010212
010230
010245

042110
040504
042110
051104
104
051104
123
127
045523
042510
051127
117

020122
040524
020122
020126
053122
020126
044520
052122
052040
042101
020124
051120

047516
046040
047516
051105
051440
052123
020116
043440
046511
041440
040504
044455

MHNF:
MDLT:
MHFCRC:
MDRERR:
MDSERR:
MDRvVST:
MSPERR:
MWGERR:
MSTERR:
MHCERR:
MWDERR:
MOPERR:

77;2

110

051504

007703

104

054101

044522

043040

042526

778

782

803
804
805
806
807
808
809
810
811
812

813

010013

010255
010272
010320
010345
010352
010375
010442
010501
010513
010550

010555

106

110
2110

047516
103
040503
125
040506
127
040
042440

207

052101

051106
020122
026516
046131
023516
045516
046111
052122
053117
051122

177777

020101

042057
047516
054105
000040
020124
020116
052040
040440
020122
000

000

/MID CYL REV/

.ASCIZ

758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774

007323

115

HDMOVF:

.ASCIZ

,ASCIZ

.ASCIZ
.ASClZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

NOTRDY: .ASCIZ

/1 CYL FWD/
/1 CYL REV/
/MID CYL FWD/

/MAX (YL FWD/

/MAX CYL REV/

/HDS FAILED TO Mv IN 10 TRYS/

/RESET WRT L(K /
/0N /
/ON DRV /
/UNDER TEST/
/SET WRT L(K /
/DIFF /
/SGN /
/HD /
/SEC /
/CYL /
/FROM /
/ BYPASSED /
/ROUTINE TRACE SEQ:/
/DRV STAT/
/BAD SEC FILES NOT STRD. ALL SEC ASSUMED OK./
/TOTAL CMP ERRS: /
/DRIVE DROPPED = NO CONTROLLER/

/DRIVE DROPPED - DID NOT RESPOND WITH 'READY'Y/

RESULT NAMES

MDCRC:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

/DRV RDY /
/CONT ERR /
/HDR CRC/

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

/HDR NOT FND/
/DATA LATE/
&HDR NOT FND/HDR CR(/OPI&
/DRV ERR /
/DRV SEL ERR /
/DRV STATE /
/SPIN TIMEOUT /
/WRT GAT ERR /
/SK TIMEOUT /
/HEAD CUR ERR /
/WRT DAT ERR /
/OPR-INC/

MHDERR: .ASCIZ
MFLERR: .ASCIZ
MNEERR:
MCYLOC:
MNDRST:
MUNDEF:
MRLFAL:
MWRTAB:
MEXERS:
MERRS:

BELL:

PAGE 1-16

.ASCiZ

LABACF:

007307

054101

/MAX TIME/

.ASCIZ
.ASCIZ
.ASCIZ

738

7640

042111

115

14:49

.ASCIZ

LABOCF:
LABOCR:
LABHCF:

007257

007273

O08-FEB-B0

GLOBAL MESSAGES

736

737

115

020130

MACY11

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

.ASCIZ

/DATA CRC/

8&HDR/DAT ERR &
&HDR NOT FND/DAT LATE &
/NON-EXISTENT MEMORY /
/CYL /
/CAN'T GET DRV STAT/
/UNKN DRV STATE-NO RDY,NO ERR,HDS OUT/
/FAIL TO RELD HDS AFTER ERR (LR/
/WRT ABRTD/
/ OVR ERR LIMIT =
UNIT DRPPD /
/ _ERR/

<207><377><377>

CZRLJBO RLO1/02 DRIVE TEST 2
07-DEC-79 09:06

CZRLUB.MAC

RESE3:
RESES:

RESULT SETTINGS
/1S /
LASCIZ
/ S8 /
LASCIZ

010572
010577

044440
040

000
000040

RESES:

RESULT CONDITIONS
/ IN/
.ASCI2

010624
010634
010645
010653
010662
010673
045

01102

011673
011712
011723

RIR

KRJ

NN NN

B R R R R R R R R R R AR ER A

RRRRR ® R RR

010701
010730

022516
052045
052045
022524
052045
000124
000
022516
052045
051445
052045
052045
052045

022524
022524
022516
022516
022516
022516
030061
051445
051445
022524
022524
051445
052045
052045

022516
022516
022516

052045

022524
047445
047445
000124
052045

022524
047445
030461
047445
047445
000
030517
031517
030523
022524
030523
032523
052045
032461
022464
031123
030523
030461
052045
000
031104
030523
022524
052045

RESEG:

STATEZ2:
STATE3:
STATES:
C10MS:
C500Ms:

CCYLUP:
CAFDT:

C5SEC:

FMTOP1:
FMTOP2:
FMTOP3:
FMT:
FMT. :
FMT2:

FMT3:
FMT4:
FMTS:

FMT6:
FMT7:
FMT8:

FMT9:
FMT11:

FMT12:

FMT13:

FMT14:
FMT15:
FMT16:
FMT17:
FMT18:
FMT19:
FMT20:
FMT21:
FMT22:
FMT23:
FMT24:
FMT2S:
FMT26:
FMT27:
FMT28:
ENDMOD

.ASCI2Z
.ASCIZ
.ASCI1Z
LASCIZ
.ASCIZ
LASCIZ
.ASC1Z
.ASC1Z
LASCIZ

LASCIZ
.ASC1Z
LASCIZ
LASCIZ

JASCI2

.ASCIZ
LASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASC]
.ASCI
.ASCI
.ASCI
.ASCI
.ASC!
.ASCI
.ASC!
.ASCI
LASCI
LASCI
LASCI
JASCI
.ASCI
LASCI
LASCI
.ASCI
.ASCl

N N N NI N NN RN RN N NN N N NN

020105
020105
020105
020063
051515
052440
054040
041505

052123

LASCI
LASC]

PPN

010604
010614

o
&

834
835
836
837
838
839
840
841
842

040

000
000040

831
832
833

14:49

"23
824
828
829
830

30A(1052)
OB-FEB-80
GLOBAL MESSAGES

010561
010565

NINININY
= —
NN
=2 —
oo
WWNIN

814
815
816
817
818
819
820
821
822

MACY11

/ OF

PAGE 1-17

/STATE 2/

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

/CYC UP/
/DATA XFR/

/5 SEC/

/AINXTANXTXTXO6XSXTX01
AN/
/AINXTX0T1XS1XTX01
XN/
/ANXTXO1XSTXTRXTAN/
/XTXT/
/AINXTRT/
/XT/
/¥N/
/INXTXTIN/
/INXTX06%S1X7201/
/ANXS1IXTXSAXTASEXTASAXTASEXTAS2XT/

/ANXTR06XS2%06%S2206%52%06%S3%03%XS2%01
AN/
/INZTX06XS2%06%S2%06X52%06/
/ANXT/
/XT%01/
/XTX03/
/ANXST1XTX03XS1XTX03XS1XTX01%S1%7%01/
/XNXTXTXD3XS1XTX06XS1XTX06/
/ANZS11XTXD3XS1XTXO6XST1XTX06/
/XINTS5%06/
/%XST10XTINXS11206IN/
/AINXST1SXTXSSATXSAXTXSSXTAN/
/XTAS4LADOXSLADEXSELXDOXSLADOAN/
/XTXS2XDEXS14XDEXS4XDOIN/
/XTXS12XD6XST14XDEAN/
/INXST11XTX03XS1XTX01%S1X7202/
/XTXTATXOTAN/
/ANXT/
/XNXD2%T/
/ANZSTXTRDAXTXTAD3AN/
/INXTXD3XTXD3AN/
/XINKTXTRT/

SEQ 0052

(ZRtL JBO RLO1/02 DRIVE _TEST 2
CZRLJB.MAC
07-DEC~79 09:06

30A(1052)
08-FEB-B0
ERRUR MESSAGES

.SBTTL

011724

BGNMCD

14:49

5
PAGE

1-18

SEQ 0053

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

ERR?

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

ERR3

R3 POINTS TO RESULT NAME

ERR4

R3 POINTS TO RESULT NAME

ERRS

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS
RESULT: (R3) IS O SB 1 (R&)

ERR6

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

RESULT:

(R3)

IS 0 SB 1

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

RESULT: "ERROR'' IS 1 SB 0

ERR?7

DRIVE STATE ERROR REPORT

R3 CONTAINS EXPECTED STATE
T.STAT CONTAINS BAD STATE

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

ERR8

HEAD POSITIONING ERROR REPORT
NEWCYL CONTAINS EXPECTED CYLINDER

HDWRD1 CONTAINS BAD CYL INDER

RESULT:

011724
011724
011730
011732
011736
011740
011744
011750
011752
011756

105737
001002
005277
010146
004737
012721
010321
004737
004737

003461

171314
024514
000001

025302
025510

BGNMSG

1%:

CYLINDER IS (HDWRD1)

SB (NEWCYL)

ERRY

UTILITY RESULT REPORT
R3 POINTS TO RESULT NAME
R4 POINTS TO VALUE 1
RS POINTS TO VALUE 2
RESULT: (R3-NAME) IS (R4-VALUE 1) SB (RS5-VALUE 2)

ERR10

COMPARE ERROR REPORT
R3 CONTAINS THE BAD WORD NUMBER

Sse.ng 0,

874
875
876
877
878
879
880
881

MACYT11

R4 POINTS TO BAD WORD
RS POINTS TO GOQD WORD

RESULT: WORD (R3) [S (R4) SB (R5)
ERR1

1518
BNE
INC
MOV
JSR
MOV
MOV
JSR

JSR

NOERCT
18

JTEST IF ERROR COUNTING INHIBITED

JYES - SK]P

oERRPOINT
R1.,-(SP)

JELSE BUMP ERROR COUNT
;STORE R1

R3,(R1)+

:INSERT MESSAGE ADDRESS POINTER

PC ,RPTOP
#1,(R1)+

PC,RPTRES
PC,RPTREM

JREPORT OPERAT]ON
;SET PARAM NUMBER
:REPORT RESULTS
JREPORT REMAINDER

CZRLJBO RLO1/02_DRIVE_TEST 2
CZRLJB.MAC
07-DEC~79 09:06

011762
011764
011770
011770
011770

011772
011772
011776
012000
012004
012010
012012
012016
012020
012024
012030
012032
012036
012036
012036

012040
012040
012044

012601
004737

005277
010146
004737
012721
010321
012721
005021
004737

004737
012601
004737

005277
010146
004737
012721
010321
005021
012721

b =D
b o
b oD o

004737
012721
010321
012721

b od

SIS

ok o ad e

005021
010411
004737

004737
012601
004737

106423

ENDMSG

BGNMSG

026514
000003

015664

171206

ENDMSG
L10001:
BGNMSG

000001
025302
025510
ENDMSG

L10002:

171140

BGNMSG

024514
000V04
000001

025302
025510
015664

TRAP

CIMSG

ERR?
INC
MOV
JSR

oERRPOINT
R1,=-(SP)

CLR

024514
000003

015664

(SP)+ R
PC,CKERLM

MOV

027202
025510

ENDMSG

L 10003:
BGNMSG

14:49

MOV
JSR

MOV
MOV

000001

=D purd

(elelelelelelaleleloaleloleleleleBNe (=]

171254

104423

005277
010146

30A(1052)
08-FEB-80
ERROR ME SSAGES

L10000:

104423

012601
004737

015664

104423

004737
004737

930
931
932
(3)
(3)
933
934
935

MACY11

PC,RPTOP

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

#,(R1)+

(R1)+

JSR
JSR
MOV
JSR

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

TRAP

{$MSG

ERR3

INC
MOV
JSR
MOV
MOV
CLR
MOV
JSR
JSR
MOV
JSR

SERRPOINT
R1,-(SP)
PC,RPTOP

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

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

TRAP

CSMSG

ERR4
INC
MOV
JSR
MOV
MOV
MOV
CLR
MOV
JSR
JSR
MOV

IERRPOINT
Rt,~(SP)
PC ,RPTIOP
#e,(R1)+
R3,(R1)+
#,(R1)+
(R1)+
R4, (R
PC.RPIRES
PC.RPTREM
(SP)+ ,R1

TRAP

(SMSG

JSR

ERRS

PC,CKERLM

PAGE 1-19
sRESTORE R1

;GO CHECK [F ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
:STORE R1
<REPORT OPERATION
;SET PARAM NUMBER
s INSERT NAME ADD POINTER
:7FT IS VALUE
;SeT SB VALUE
JREPORT RESULTS
;REPORT REMAINDER

;RESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
:STORE R1

;REPORT OPERATION

:SET_PARAM NUMBER
s INSERT NAME ADD POINTER
sSET IS VALUE
JSET SB VALUE

;REPORT RESULTS

;REPORT REMAINDER

JRESTORE R1
;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
*REPORT RESULTS

*REPORT REMAINDER

:RESTORE R1
GO CHECK IF ERROR COUNT EXCEEDED

SEQ 0054

p
b o

012721
010321
005021

012721

30A(1052)
08-FEB-80
ERROR MESSAGES

171070

026514
000004
NOCO01

025302

025510

b od

NONININIAININININD!
nn

005277
010146
004737

MACY11

015664

ENDMSG

L10004:

AT
=S VOO
NS WN=O g

b
e
e
b cah
o
b e

i Ginr-Gonr Qar- Gour Gunr- Gouy

b
e
b
b

s Prur P4

ololelelalelelolelalele
o]

1008

1023

105737
001002

005277
010146
010346
010446
010546
004737
012721
012761
005037
013703
042703

BGNMSG

003461
171012

17%:

024514

000002

022703
001434

9%:

000006
003140
003141

:
108

003067

1%:

177442

003060
001777
002000

010000
004000

13%:
2%:

5
PAGE

1-20

SEQ 0055

:BUMP ERROR COUNT
*STORE R?

R3 (R1)+

“INSERT NAME ADD POINTER

TRAP

CSMSG

ERRG
TST8

BNE
INC
MOV
MOV
MOV
MOV
JSR
MOV
MOV
CLR
MOV
8IC
MP

MOV
MOV
8IS
MOV
WAITUS

032762

SERRPOINT
R1,-(SP)

8EQ

000004

012762
012703
053703
010362

14:49

INC
MOV
JSR
MOV
MOV
CLR
MOV
MOV
JSR
JSR
MOV
JSR

—

$88388838 8a& $8REREER
LSS

978
979

|elelolalololalolalels]

(ZRLJBO RLOY/02 _DRIVE _TEST 2
CZRLJB.MAC
07-DEC-79 09:06

8IT
BNE

MOV

B8R
MOV

MOV
Mov8
BR
MOVB

BIC
MoV
BIC
BIS
BIT
BEQ
BIT
BNE
BIT
BNE

PC _RPTOP
2, (R1)+

(RY)+

#1, R+

R4 (R1)
PC.RPTRES

PC_RPTREM

(SP)+ R1

PC.CKERLM

*REPORT OPERATION
*SET PARAM NUMBER

“SET 1S VALUE

*SET SB VALUE

*INSERT ADD OF CONDITION POINTER
‘REPORT RESULTS
*REPORT REMAINDER

*RESTORE R1

*GO CHECK IF

ERROR COUNT EXCEEDED

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

;TEST IF ERROR COUNTING INHIBITED
‘YES - SKIP
*ELSE BUMP ERROR COUNT
*STORE RI
*STORE R3
*STORE R&
*STORE RS

TEMP3
T.CS,R3

*CLEAR FOR STATUS STORAGE
SGET T.CS

#4,R3
1$

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

PC.RPTOP
#3.(R1)+
#1.2(R1)

#177761.R3

*REPORT OPERATION
*SET PARAM NUMBER
*INSERT IS VALUE

:AND CLEAR ALL BUT FUNCTION

:gE;gTAT.RLDA(RZS :ELSE DO GET STATUS

RLDRV,.R3
R3,RLCS(R2)

#10.
-WAIT FOR CONTROLLER READY
#CRDYMSK ,RLCS (R2}
STEST IF READY
108

#MBI1T9,R3

28
RLMP (R2) ,R3
R3, TEMP3
{§§P3*1.R3

:YES ~ SKIP

SELSE SET NO DRIVE STATUS BIT
*IN MESSAGE WORD AND SKIP
;STORE STATUS FOR REPORT

:GET ERROR BITS IN PROPER POSITION

T.MP+1,R3

;GET ERROR BITS FROM MP REG

T.CS,R4

‘GET ERROR BITS FROM CS REG

#177442 ,R3
#1777 R4
R4 ,R3

#OPIERR.R3

1158
#HNFERR,R3
107%
#HCRCERR,R3
105%

*CLEAR UNUSED BITS
*CLEAR UNUSED BITS

*MAKE ONE WORD OF POSSIBLE ERRORS

STEST IF OPI SET

‘NO -~ SKIP
“TEST IF HDR NOT FOUND ERROR
1YES - SKIP
JTEST IF HDR CRC ERR
;YES - SKIP

(ZRLJBO RLO1/02_DRIVE _TEST 2
CZRLJB.MAC
07-DEC=79 09:06

1032

1033
ao
(9
(8)
(7)
(6)
(3)
(4)

(4)
1034
1035

1036

"037

1038

1039

1040

1041

1042

1043
1044
1045

1046

1047
1048
1049
1050
1051
1052

0124446
012450

012450
012454
012456
012462
012466
012472
012474
012476
012502
012504
012510
012512
012516
012520
012526
012526
012532
012534
012540
012542
012546
012550

012704

010245

012746

010550

010446
012746
012746
012746
010600
104414

062706
000430
012704
000757
032703
001003
012704
000751
012704
000746
032703
001403
012704
000740
032703
001403
012704

MACY11

1008:

000004

(4)
(6)

1067
1068
1069
1070
1071
1072

MOV

PRINTB

MOV
MOV
MOV
MOV
MOV
MOV

TRAP
ADD

000012

010003

105%:

004000

107%:

010024

010052

109%:

004000

115%:

010013

BR
MOV
BR

BIT
BNE
MOV
BR
MOV
B8R
BIT
BEQ
MOV

14:49

5
PAGE 1-21

#MOPERR R4

NFMT28,-(SP)
#6,-(SP)

SP,RO

CSPNTB
#2,SP

1208

qgggRC.RL

#HCRCERR,R3

109%

MN1003F,R4
#MHF CRC R4

1008

120$:

3s:

RS5,R3

6%
(R4)+

JHNF AND HCRC MESSAGE

JNO - SKIP
;SKIP

;TEST IF DATA LATE ERROR
JNO -~ SKIP

sSET MESSAGE DATA LATE

JSKIP
JSET BIT POINTER FOR TEST
;CLEAR R4 FOR TABLE COUNT

JTEST IF BIT 1S SET

:YES = SKIP TO RFPORT
JELSE BUMP TABLE POINTER

;CLEAR CARRY

JSHIFT BIT POINTER TO NEXT BIT

:LOOP IF NOT O

;ELSE REPORT REMAINDER

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

002334
025302

025510
003140

7%:

TST

PRINTB
MoV
MOV
MOV

003140
007537
0113726
000003

MOV
MOV

000010
004000

003060

002000

003060

003030
000200

JMESSAGE HEADER NOT FOUND

;SET MESSAGE DATA (CHECK

118$%

032737
001453
032737
001047
005037
012701

;TEST IF HCRC WITH HDR NOT FND

JYES - SK]IP

MOCRC R4

013746
012746
012746
012746
010600
104414
062706

JHDR CRC MESSAGE

SK1P
JTEST IF DATA CHECK SET, NOT OPI]

100%
#MIT15,RS

43:

;SKIP

1008
#DCKERR,R3

MDLT R4

100000

ALONE MESSAGE

MRSLT,~-(SP)

1208

010040

sSET OP1

SEQ 0056

NFMT28,
¥MRSLT RS, AMERRS ;REPORT ERROR
#MERRS ,~(SP)
R4 ,-(SP)

#DLTERR,R3

118%:

010000

1053

1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
(9)
(8)
(7)
(6)
(3

304(1052)
08-FEB-80
ERROR MESSAGES

15%:

PC.RPTRES
43
PC ,RPTREM

TEMP3
;TEST IF ANY NEW STATUS
15%
:NO - SKIP
#FMT17 #STAMES , TEMP3
TEMP3,-(SP)

#STAMES ,=(SP)
N#FMT17,-(SP)
#3,-(SP)

SP,RO
CSPNTB

TRAP
ADD

#10,SP

BIT
BNE
CLR
MOV

#128. ,R1

BIT
BEQ

;REPORT RESULTS
;GET NEXT BIT
;REPORT REMAINDER

#DCKERR,T.CS
25%
#OPIERR,T.CS
25%
MORECE

:TEST IF DATA (CHECKN ERROR
;NO - SKIP
JTEST IF OP] SET
JYES - SK]IP
;CLEAR COMPARE ERROR COUNT
JSET COMPARE LENGTH

CZRLJBO RL01/02_DRIVE
1073

012714
012720
012724
012730
012732
012734
012742
012744
012744
012746
012752
012754
012760
012762
012766
012772
012776
013000
013002
013006
013012
013014
013016
013020
013022
013026
013030
013034
013034
013036

013042
013046
013052

012703
012705
012704
021514
001427
023727
003021

011546
012746
011446
012746
010346
012746
012746
012746
010600
104414

062706
005237
022524
005203
005301
001343
005737
001421
012701
010146
012746
013746
012746
012746
012746
010600
104414

— — b

REYKDNaRSS K&&
NANNIN)
=t 2 b =

—d b d d wad cd wmd ad —d w=b

WNN
NN N NN NN

el le]
—d
b and
elelelelelelelele]e
b e end awd b
v—d wd b b

D
e

b ——b
d wmd cnd

el
e

d e

—d

) e

NN~
KIRIT28 3333Ga

013102

TEST ¢

N7-DEC-79 09:06

CZRLJB.MAC

062706
012605
012604
012603
012601
004737

MACY11

000001
004502
004102

003030

30A(1052)
OB-FEB-80
ERROR ME SSAGES

18%:

000012

010565
010561

006310
011331
000007
000020
003030

003030

20%:
19%:

25%:

MOV
MOV
MOV
(MP

8EQ
cMP
BGT

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

INC

cMP
INC
DEC

14:49

sSET WORD COUNT
:SET GOOD WORD POINTER

(RS), (R&)
19%

s CHECK WORD
;GO0D ~ SKIP

#1BUFF R4

MORECE ,#10.
20%

;YES = SKIP

#MUORD
, = (SP)

#FMT15
< (SP)
#7,-(SP)

SP.RO
C$PNTB

#20,SP
MORE CE
(RS)+, (RG)+
R3

;BUMP ERROR COUNTER
‘BUMP POINTERS
:BUMP COUNTER

188
MORE CE

*LOOP IF NOT DONE
STEST IF ANY COMPARE ERRORS

27%

*DEC LENGTH COUNT

‘N0 - SKIP

*SET COMPARE LENGTH

NFMT27 #TCERR ,MORECE , #RESF6,R1
E
.~ (SP)
MOREC

003030

007624
011673
000005

ATCERR
.- (SP)

NEMTZ7.-(SP)
#5.-(SP)
SP_RO
C$PNTB

27%:

ENDMSG

L10005:

025302
025510

sTEST IF COMPARE LIMIT REACHED

(RG) ,=(SP)
#RESE3,-(SP)
R3,=(SP)

R1,-(SP)
#RESEG,
- (SP)

024514
000003
010130
003074

TEST WORD POINTER

#RESEL,
- (SP)

010577

170136

;SET

#EMT1S, #MWORD ,R3 . #RESE3, (R4) ,#RESE4, (RS)
(R5) ,~(SP)

#128. ,R1

015664

SEQ 0057

#1,R3
#0BUFF RS

000200

000014

PAGE 1-22

BGNMSG

#14,5P

(SP}+,RS

:RESTORE R5, 4, 3, 1

(SP)+ RS
(SPY+-R1
PC.CKERLM

;GO CHECK IF ERROR COUNT EXCEEDED

(SP) +.R&

CSMSG

@ERRPOINT
R1,-(SP)

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

;BUMP ERROR COUNT
;STORE R1

;REPORT OPERATION
;SET _PARAM NUMBER
;INSERT NAME ADD POINTER
; INSERT IS VALUE

R3,(R1) ;INSERT SB VALUE
PC,RPTRES
PC,RPTREM

JREPORT RESULTS
sREPORT REMAINDER

CZRLJBO RLO1/02_DRIVE_TEST 2
CZRLJB.MAC
07-DEC~79 09:06
1107

1108

1109

(3)

013150

013152

013156

012601

004737

015664

013156

104423

1111
1112

01340
01316V

005277

170066

1115

013170

004737

024514

003066
000007

013164
013166

010146
010346

1116
1117

013174
013200

1119

013210

013711
012703

1121
1122

013216
013220

006011
005303

1124

013224

005721

1126
1127

013232
013236

004737
004737

1130

013246

1118

1120

1123
1125

1128
1129

013204

013214

013222

013226

013242
013244

1121
(3)

013252
013252

1133

013254

11(%5
1134
1135
1136
1137
1138
1139
1140
1141
1142

1143
1144

1145

(3)
(3)
1146
1147
1148
1149

1150
1151
1152

013252

012721
012721

000241

013711

012603
012601

004737

013312

004737

013316
013316
013320
013320
013322
013326

013330
013334
013340

(11) 013340

(11) 013342
(10) 013346
(9 013352

BGNMSG

015664

012601

167772
024514
000003

025302
025510
015664

005046

153716
012746
013746

ENDMSG

L10010:

104423
010146
005737
001051
005277
004737

dERRPOINT

;BUMP ERROR COUNT

PC.RPTOP

;REPORT OPERATION

MOV
MOV
CLC

ROR
DEC

BGAMSG

003030

167716
024514
003047
006152
003042

R1,-(SP)
R3,=(SP)

#3,(R1)+
MCYLOC, (R1)+

HDWRD1, (R1)

;STORE R1
;STORE R3

:SET_PARAM NUMBER
;INSERT NAME ADD POINTER

:GET HEADER WORD
;SET SHIFT COUNT

(R1)
R3

sALIGN CHAR FOR PRINTING
;
AS IS VALUE

(R1)+

;BUMP PARAM POINTER

PC,RPTRES
PC ,RPTREM

;REPORT RESULTS
sREPORT REMAINDER

NEWCYL, (R1)

MOV
MOV

(SP)+,R3
(SP) +,R1

JSR

PC,CKERLM

TRAP

CSMSG

ERR9

;GO CHECK IF ERROR COUNT EXCEEDED

#7,R3

MOV
JSR
JSR

BGNMSG

;RESTORE R1

ERR8
INC

TST

ENDMSG
L10007:

(SP)+ R1

C$MSG

BNE
025302
025510

PAGE 1-23

TRAP

JSR

003116

PC,CKERLM

MOV
Mov
38:

14:49

JSR

MOV
MOV

000003
010345

104423
005277
010146
004737
012721
010321
010421
010521
004737
004737

013316

ENDMSG

001374

013254
013260
013262
013266
013272
013274
013276
013300
013304

013310

MOV
£10006:

”(:1'%
1113
1114

MACYT1 30A(1052)
OB-FEB-80
ERROR MESSAGES

: INSERT SB VALUE
;RESTORE R3
sRESTORE R1

;GO CHECK IF ERROR COUNT EXCEECED

INC
MOV
JSR
MOV
MOV
MOV
MOV
JSR
JSR
MOV

®ERRPOINT
R1,=-(SP)
PC .RPTOP
#3.(R1)+
R3,(R1)+
R4, (R1)+
R5,(R1)+
PC.RPTRES
PC,RPTREM

;BUMP ERROR COUNT
s STORE R1
sREPORT OPERATION
:SET_PARAM NUMBER
s INSERT NAME ADD POINTER
sSET IS VALUE
;SET SB VALUE
sREPORT RESULTS
sREPORT REMAINDER

JSR

PC,CKERLM

;GO CHECK IF ERROR COUNT EXCEEDED

TRAP

CSMSG

ERR10

(SP)+,R1

sRESTORE R1

MOV
R1,=(SP)
;STORE R1
1ST
MORECE
;TEST IF 2ND BAD LINE
BNE
3s
;YES - SKIP
INC
@ERRPOINT
:BUMP ERROR COUNT
JSR
PC,RPTOP
;REPORT OPERATION
PRINTB ANFMTS,#BASADD,RLBAS ,#DRVNAM,<B ,RLDRV+1> ;REPORT ID
CLR

B81S8
MOV
MOV

=(SP)

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

SEQ 0058

CZRLJBO RLO1/02_DRIVE_TEST 2

CZRLJB.MAC

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

07-DEC-79 09:06

MACY11 30A(1052)
O08-FEB-B0
ERROR MESSAGES

14:49

5
PAGE 1-24

013356
013362
013366
013372

012746
012746
012746
010600

006141
011026
000005

MOV
MOV
MOV
MOV

#BASADD,
= (SP)
NFMTS,=(SP)
#5,-(SP)
SP,RO

(4)
1153
(14)
(13)
(12)
(11)
(10)
(9)
(8)
(7)
(6)

013376
013402
013402
013404
013410
013412
013416
013420
013424
013430
013434

062706

000014

ADD
PRINTB
MoV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV

#14,SP
WFMT14,#MRSLT ,#MWORD,R3,#RESE3, (R4) ,ARESE4, (RS)
(RS) ,~(SP)
NRESE4,=(SP)
(R&) ,=(SP)
#RESE3,~(SP)
R3,=(SP)
#MWORD
, - (SP)
#MRSLT,-(SP)
N#FMT14,~(SP)
#10,-(SP)

(4)
(4)
1154
1155
(13)
(12)
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
1156

013442
0134446
013450
013452
013452
013456
013460
013462
013466
013470
013474
013500
013504
013506
013510
012514

TRAP
ADD
BR
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC

CSPNTB
#22,SP
4$
A#FMT15,#MWORD,R3,#RESE3,
(R4) ,#RESES, (RS) ;REPORT DATA
(R5) ,=(SP)
#RESE4,~(SP)
(R4) ,=(SP)
WRESE3,~(SP)
R3,=(SP)
#MWJORD
, -~ (SP)

1158
1159
(3)

013522
013526
013526

(4)

(3)

1157

(3)
”g?
1162

1163

1164

1165
1166
1167
1168
1169
1170
1171
1172

(3)

1173
11764
1175
1176

013374

013440

013520

013526
013530
013530

013530

013532
013534
013536

104414

011546
012746
011446
012746
010346
012746
012746
012746
012746
010600

104414
062706
000421
011546
012746
011446
012746
010346
012746

012746
012746
010600
104414
062706
005237
012601

004737

104423

TRAP

010565
010561
006310
005536

011277
000010

MOV

000022
38:

010565
010561
006310

011331
000007
000020
003030
015664

48:
ENDMSG

L10011:

ENDMOD

CSPNTB

SP,RO

MOV

NFMT15,~(SP)
#7,~(SP)
SP,RO
CSPNTB
#20,5P
MORECE
(SP)+ ,R1

TRAP

CSMSG

JSR

PC,CKERLM

: INC_COMPARE ERROR COUNT

cRESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

;LOAD PROTECTION TABLE

000000
177777
000010

BGNPROT

ENDPROT

.WORD

.WORD
LWORD

-1
10

;OFFSET OF CSR IN P~TABLE

sNOT A MASS-BUS DRIVE
;OFFSET OF DRIVE IN P-TABLE

.EVEN

013536
013536

013536

013540
013542
013544
013546

000006

174400
000160
000240
000001

BGNMOD
BONHW

HPTCODE

.WORD

.WORD
.WORD
.WORD
.WORD

L10013-L$HW/2
174400
160
240
1

;CSR BASE ADDRESS DEFAULT
sVECTOR DEFAULT
;PRIORITY DEFAULT
;TYPE OF DRIVE

SFQ NNS
.

CZRLJBO RLO1/02_URIVE TEST 2
CZRLJB.MAC
07-DEC-79 09:06

PAGE

1-25

SEN DDA

;DRIVE NUMBER DEFAULT
;RL11 CONTROLLER

000000
000001

b
b
—

AENO

lelelels]

013572
013572
013572
013574
013576
013600
013602
013604
013606

000000
000377
000024
000012

L10014:
ENDMOD

000011
025774
026216

026426
026636
027062
027270
027516
030026
030324

USE ALL CYLINDERS
USE ALL SECTORS
EXECUTE DRIVE SELECT TEST
EXECUTE HEAD AL IGNMENT
HEAD SELECT SUPPLIED fLAG
HILIMIT SFECIFIED FLAG

LO LIMIT SPECIFIED FLAG

SJERROR LIMIT
s COMPARE ERROR LIMIT

.
.

BGNMOD
DSPCODE
DISPATCH
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
ENDMOD

ek
NN
O
NN
Hnonn
nnn

XY
L

013560
013562
013564
013566
013570
013572
013572
013572

LOLIMW:
HILIMW:
HEADW:
ERLIMW:
DCLIMW:
ENDSW

g Py By Prong

610014-L$SU/2

MISWIW:

e Bung

000006

)

013554
013554
013454
013556

—~ o
—

013554
013554

pr Quarfour
ooy

N
N

14:49

D 0D DD 0D

o»agi BRLLRIRE
8 BRIRRRLTRI2S
amd

b ed

d b e

—

d d D P

b nd

D
d

d cnd
)
D ed ed
b
b

D e ad el

el
e

PN e
b wd
. TM P~

(6)
(6)
(6)
(6)
(6)
~

—d
emd ed

013550
013552
013554

30A(1052)
08-FEB-80
ERROR MESSAGES

D e

1177
1178
1179

MACY11

9
71

16
17
18
19

CZRLJBO RLO1/02_ORIVE_TEST 2
CZRLJB.MAC
07-DEC-79 09:06

MACY11 30A(1052)
OB8-FEB-B0 14:49
INITIALIZATION SECTION

115}?
1212

013616

1215
1216
1217

013616
013622

1512

(3)
(3)
(3)
1218

(2)
1219
1220

(3)
(3)
1221
(3)
1222

1223
12264
1225

(3)
(3)

013616

013622
013626
013630
013634
013634
013636
013642

013642
013646
013650
013650
013652
013660
013664

013664
013670

1226
(2)

013672
013672

1229

013706

1227
1228

(3)
(3)
1230
15%%

003504

012700
104462
010037

000120

103002
005237

012700
104441

100014

005037

003016

012700
104447

000034

103005

18:

000340

013737
000137

002012
0146314

013706
013712
013714
013714

012700
104447

000040

013556

013716
013724
013730

013737
005037
012700

1239
1240

013740
013742

005020
005301

013744
013746
013754

12645
12646
1247
1248

013770
013776
014000
014004

1264

1249

1250
(3)

013762

014006

014006
014006

014012

012701

001375
012737
012737

002012
003454
003254

CLR
READEF

MOV
TRAP

48:

003110

000100

032737
001002
005037
000432

040000

013556

012700

000037

104447

177777

013560

003024

#340,R0
CSSPRI

MOV
JMP

READEF

JBRANCH IF NO P-CLOCK
;INDICATE PRESENCE OF A P-CLOCK

sSET PRIORITY TO 7 TO INHIBIT ALL INTERRUPTS

JFOR LSI-11 CPU'S
CSRESET
AMITEST!DRSELT!HDALIGN
MISWIW ;CLEAR ALL MANUAL
SSINDX
#EF .PWR

HEF .PWR RO
CSREFG
4%

LSUNIT PWRFLG
PWCON

#EF .START

: INTERVENTION FLAGS
;CLEAR SUBROUTINE STACK INDEX
;POWER FAJLURE

:NO, GO CHECK NEW PASS

;SET POWER FAIL FLAG
;GO _SERVICE POWER FAIL
;CHECK IF START

MOV
#EF ,START RO
TRAP
CSREFG
BNCOMPLETE
RESTART ;NO ~ SKIP
8cC
RESTART

:
:

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

RSTRT:

MOV
CLR
MOV

LSlNIT DRVCNT
PASNUM
#ERRCNT RO

.SET UP UNIT COUNT
:CLEAR PASS NUMBER

CLR
DEC

(RO) +
R1

;CLEAR AN ERROR COUNTER STORAGE AREA

1%:

003252
003456

1%
CLKFLG
#4340

BNCOMPLETE
8CC
43

003464

003252
177777

012737

8CC
INC
SETPRI

MOV
TRAP
BRESET
TRAP
BIC

103034

1235
1236
1237

1241
1262
1243

INITCODE

MOV
#°'P,RO
TRAP
C$CLCK
MOV
RO, CLKADR
BNCOMPLETE
1%

003504

013674
013702

013734

BGNMOD

;CHECK FOk PRESENCE OF A P-CLOCK
CLR
CLKFLG
;CLEAR CLOCK FLAG
CLOCK
P,CLKADR
;P=CLOCK?

1232
;lggz

1238

INITIALIZATION SECTION

003506

104433
042737

5
PAGE 1-26

.SBTTL

BGNINIT
005037

MOV
BNE
MOV
MOV

LAB:
5%:

RESTART:

MOV

BIT
BNE
CLR
B8R

READEF
MOV

TRAP

#64. R1

;GET A COUNT

1%
;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

#EF .RESTART
#EF .RESTART
RO

JCHECK IF RESTART

#LOCYL MISWIW
5%
LOL IMW
SETDON

CSREFG

TEST IF LO LIMIT SET
;YES - SXIP
;ELSE (LEAR LO LIM;T

SEQ 0061

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJE .MAC
07-DEC~79 09:06
1251
(2)
1252
1253
(3)

(3)

1254

(2)
1255
1256
(3)

(3)

1257

(2)

1258
1259
1260
1261

014014
014014
014016
014016
014016
014022
014024
014024

014026
014026
014032
014034
014034
014036
014036
014042
014044
014050
014056
014064
014072
014076
014102
014110
014114
014120
014120
014122
014124
014124
014126
014132
014134
014140
014142
0146144
014146

BCOMPLETE

8(Cs

103743

012700
104447

104447

000035

003454
003252
002012
177777

005337
062737
013700
012702

003456
003042

005237

103406

014242
014250
014256
014264
014272

012737
012737
012737
012737
012737

000377

PASNEW:

SETDON:

003252

CONTINUE

MOV

#EF .NEW,RO

8(s

PASNEW

TST

DRVCNT

INC
MOV
MOV

PASNUM
;ELSE BUMP PASS COUNT
#ERRCNT-2,ERRPOINT :INIT ERROR POINTER
LSUNIT,DRVCNT
;GET ALL DRIVES

BNE

MOV
INC
DEC
ADD
MOV
MOV
GPHARD
TRAP
MOV

BCS
TST

003464
7$:

000001

002312

000776
000777

002322

:NO - SKIP

#-1,PSETNM
PSETNM
DRVCNT
#2 ,ERRPOINT
PSETNM,RO
#RLBAS ,R2
RO,R1
C$GPHRD
RO,R1

sSET PARAM SELECT TO INITIAL
NEXT SET OF PARAMETERS
;DOWN COUNT DRIVE TOTAL
sUPDATE THE ERROR POINTER
;SET UP TO GET PARAMETERS

PWRFLG

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

;NO

NXTPAS
(R1)+

MOV
MOV
(P

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

MOV
MOV
MOV

#510. ,NXTHL
. HLMTW
#511.
#512. °GBND

MOV
MOV
MOV

#177600.0 IRMSK
#177600.ADCYL
#177000° CLRBYT

MOV
MOV

#255. HLMTW
#256. - GBND

MOV
MOV

#77600.DIRMSK
#77600.HDC
YL

MOV
002332

MOV
MOV

B8R

MOV

65%:

;TEST IF ALL UNITS CHECKED

SETDON

NXTPAS
PWRFLG

BEQ

177600
177600
177600
177000

PASNEW

BEQ
DEC

TST

002312

077600
077600
077600

;NO -~ SKIP

CSREFG

BCOMPLETE

014224
014232
014240

014216

003252
003110
003456

104442
010001

003464

014164
014166
014174
014202
014210

NXTPAS:

003110

003456
003110

RSTRT

SEQ 0067

TRAP

TRAP
CSREFG
BCOMPLETE

103403

005737
001013
005237
012737
013737
012737

5
PAGE 1-27

BCOMPLETE
PWCON
BCS
PWCON
ON CONTINUE PICK UP UNIT LAST UNDER TEST
READEF
#EF .NEW
;CHECK IF STARTING NEW PASS

103533

012700

RSTRT

:
CONTINUE
READEF #EF .CONTINUE
sTEST IF
MOV
NEF . CONTINUE
,RO

000036

005737
001741
005337
000736
012122
012122
005721
012137
012122
022737
001426
012737
012737
012737
012737
012737
012737
012737
000425

014150
014154
014156

14:49
08-FEB-80
MACY11 30A(1052)
INITIALIZATION SECTION

65$

#327480, CAMSK
PWCON

#77600, CAMSK

;SKIP IF GOOD PARAM
sRECENT POWER FAILURE

sACCOUNT FOR DRIVE

:STORE PARAMETERS CSR
:
VECTOR

;BUMP PAST PRIORITY

BIT

NHICYL MISWIW
1%
HLMTW
HIL IMW

002322
002320

014314
014322
0146324
014332
014332
014336
014342
014346
014352
014354
014360
014360
014364
014366

032737
001003
013737

020000

013556

002316

013562

012746
012746
013746
012746

000340
015604
003044
000003

062706

000010

012700

000000

013702

003042

014372
014376

005737
001472

003464

TST
8EQ

014400

013705
052705
010562
0312701
032762
001056

003046
000200
000000
000170
000001

MOV
8IS
MOV
MOV

014404

014410

014414
014420
014426

014630

104437

104441

005301

014452
014456
014462

012746
012746
012746
010600

006176
011632
000002

062706

000006

005046
153716
012746
013746
012746
012746
012746
010600

003047
006152
003042
006141
011026
000005

062706

000014

012746
012746
010600
104417
062706

011012
000001

014464
014466

014472
014472
014474
014500
014504

14510
4514
4520
—b

RREXR

b cmd
vl e

LW W
P

14540

14544

14546
14550

MOV

SETVEC

ADD
SETPRI
MOV
TRAP
MOV

000000

9s:

BIT
BNE

001365

104417

000004

SEQ 006¢

#177400,CLRBYT

RLVEC,# :NTHLR ,#240
#340,-(SP)
#INTHLR,=(SP)
RLVEC,=(SP)
#3,~(SP)

JSET UP VECTOR

C$SVEC

#10,SP
#0
#0,R0
CS$SPR,

:SET PRIORITY

RLBAS ,R2
;SET RL11 BASE ADDRESS POINTER
;CHECK IF POMER FAILURE WAIT 1S NEEDED

WAITMS

014442

014444
014446
014446

1%:

5
PAGE 1-28

#254. NXTHL

000376
177400

PWCON:

MOV
MOV

012737
012737

—

08-FEB-80 14:49
MACY11 30A(1052)
INITIALIZATION SECTION

014300
01430¢

elelelelelelelelolelele

o&awm-&oomwomvv

b
)
d
D and —d —d
wd
b e
cmd
— e

NN
N

b e it et
STB

CZRLJBO RLO1/02_DRIVE TEST 2
C2ZRLJB.MAC
07-DEC-79 09:06

PWRFLG

sNEEDED??2?
:NO, SKIP

#CRDYMSK
,RS
RS RLCS (R2)

RLDRV,RS

;DRIVE SELECT
:SET _CRDY
sSELECT DRIVE

JYES START TEST

#10.
R1
9%
NFMT24
, #NOPWR
#NOPWR
, ~(SP)
NFMT24 ,-(SP)
#2,-(SP)

sWAIT A SECOND
:SIXTY GONE BY
:NO

#120. .R1
¢INITIALIZE WAIT COUNT
#DRDYMSK ,RLCS (R2)
:DRIVE UP YET?

CSPNTF
‘6.5 p
#FMT5 ,#BASADD ,RLBAS ,#DRVNAM, <B,RLDRV+1>
~(SP)
RLDRV+1, (SP)
- (SP)
#DRV,NAM

RLBAS,~(SP)
- (SP)
#BAS,ADD
#FMTS
- (SP)
#5,-(SP)

SP.RO
CSPNTF

PRINTF
MOV
MOV
MOV
TRAP
ADD

#14,SP

PTOES

NEMT3,~(SP)
#1,-(SP)

SP.R0
CSPNTF

#4,SP

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DF(C~79 09:06
13346

(3)
(3)

1335
(3)
1336
1337
1338
(3)
(3)

};28

014554

014554
014560

014562
014562
014564

013700
104451
104444

014564

014564
014564

014566

MACY11 30A(1052) 0B-FEB-8C 14:49
INITIALIZATION SECTION

003456

DODU

PSE TNM

DOCLN
TRAP

CSDCLN

MOV
TRAP
8%:

PSETNM_RO
C$DODU

ENDINIT

104411

L10015:

ENDMOD

TRAP

(SINIT

PAGE 1-25
;DROP DRIVE

SEQ 0064

AARRRRRRRR

RV
RN NCY N

(ZRLJBC RLO1/02_DRIVE TEST 2
C(ZRLJB.MAC
07-DEC-79 09:06

MACY11 30A(1052)
OQ8-FEB-80 14:49
INITIALIZATION SECTION
.SBTTL

PAGE 1-30

SEQ 0065

AUTO DROP SECTION

;1HE 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 TO DETERMINE IF IT IS READY TC RECEIVE A COMMAND.
;IF THE DRIVE 1S NOT READY IT IS DROPPED FROM THE TEST CYCLE AND THE NEXT
sDRIVE IS ACCESSED.

IF THE DRIVE IS READY THE HARDWARE TESTS ARE PERFORMED

SJAFTER WHICH THE NEXT DRIVE

014566
014566
014572
014572
014576
014602
014606
014612
014614

005037

003462

012746
012746
013746
012746

000340
015576
003244
000003

062706

00001C

013702
005762
005737
001447

003042
000000
003462

012746
012746
012746
010600

107645
V11632
LN0002

014656
014662
014662

062706

000006

014670
014674
014700
014704
014710
014714
0147i6
014720

012746
013746
012746
012746

014620
014624
014630
014634

014636
014636

014642
014646
014652
034654

014664

014724
014724
014730
014734
014736
014740
014744
014744
014750
014752
014754
014760

104437

104417

005046
153716

012746

v . w600
104417
062706

BGNAUTO

CLR
SETVEC
MOV
Mov
MOV
MOV
TRAP
ADD
MOV
1ST
TST
BEQ
PRINTF
MOV
MOV
MOV
MOV
TRAP

ADD

PRINTF

CLR
81s8
MoV
MOV
MOV

003047
006152
003042
006141
011026

MOV

000005

MOV
MOV
TRAP
ADD

000014

PRINTF
MOV
MOV
MOV

012746
012746
010600

011012
000001

062706

000004

TRAP
ADD

013700

003456

DODU
MOV

013705
052705

003046
000200

104417

104451
000460

TRAP

1%:

B8R
MOV
BIS

IS ACCESSED.

TRPFLG

:CLEAR TRAP FLAG

sgzgfciggspHAN,#340

;SET UP TRAP VECTOR TO DETECT

#TRPHAN,=(SP)

ERRVEC ,=(SP)

#3,-(SP)
CSSVEC
#10,SP

RLBAS,R2
RLCS(R2)
TRPFLG
1%

:/NON-EXISTENT CONTROLLER

JGET RL11 BASE ADDRESS
;ACCESS DRIVE CONTROLLER ADDRESS
;DID TRAP OCCUR?

sBRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR

#FMT24 #NOCTLR
JELSE, PRINT MSG. ‘DRIVE DROPPED - NO CONTROLLER'
MNOCTLR,-(SP)
NFMT24 ,=(SP)
#2,~(SP)
SP,RO
CSPNTF
#6,SP
NFMTS5 ,#BASADD ,RLBAS ,#DRVNAM, <B,RLDRV+1>
=(SP)
RLDRV+1, (SP)
= (SP)
#DRVNAM,
RLBAS ,~(SP)
- (SP)
#BASADD,
HFMT5,=(SP)
#5,-(SP)

CSPNTF
#14,SP
#FMT3
KFMT3,-(SP)

;PRINT DRIVE INFORMATION

#1,~(SP)

SP,RO
CSPNTF

#4,SP

PSETNM

;DO DROP UNIT ON DRIVE

A#CRDYMSK
RS

sBRANCH TO EXIT
JELSE, GET DRIVE NUMBER
;SET CONTROLLER READY

PSETNM,RO
C$DODU
2%
RLDRV,R5

(ZRLJBO RLOY/C2 DRIVE

07-DEC-79 09:06

CZRLJB.MAT

015024
015024
015026
015032
015036
015042
015046
015052
015056
015060
015062

b
e o
b
e
e

NNNO‘*“N&

015066
015066
015072
015076

—

(3)

(4)

NINININ)
=2 =2 =

[V LV LV, LV, LV LV AV 1V, ]

1372
(8)
(7)

jeolalolelalalele

1371

014764
014770
014776
015000
015000
015004
015010
015014
015016
015020

pur Qoner Qhuarouer Gy Pour Puuransd

1369

1370

TEST 2

010562
032762
001046

000000
000001

012746
012746
012746
010~00
1046 7

007703
011632
000002

062706
005046
153716
012746
013746
0i27/5
012.%0

MACY11 30A(1052)

08-FEB-80

AUTO DROP SECTION
MOV

(00000

BIT
BNE

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

000006

PRINTF

CLR
B1S8

14:49

-LOAD N THE DRIVE NUMBER

VE
:BRANCH YO PERFORM TESTS IF DRIVE

#DRDYMSK ,RLCS (R2)
#FMT24L ,MNOTRDY

#NOTRDY ,=(SP)

:/WITH 'READY'"’

lig;?.’BASADD.RLBAS.IDRVNAM.<B.RLDRV41>

#4,SP

012746
012746

011012
000001

N#FMT3
NFMT3,=(SP)
#1,-(SP)

062706

000004

w6 ,SP

013700

003456

010600
1044617

104451

013700
104436
104461

003244

SP,RO

CSPNTF

;PRINT DRIVE INFURMATION

SP,RO
CSPNTF

DODU

2%:
ENDAUTO

L10016:

PSETNM
PSE TNM,RO

TRAP

C$DODY
ERRVEC
ERRVEC RO
CSCVEC

TRAP

($AUTO

CLRVEC

READY

;PRINT MSG. "DRIVE DROPPED - DID NOT RESPOND

CSFNTF

000014

L 400
104417
062706

011026

-1S DRIVE READY?

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

00005

012746

003042
006141

SEQ 004

RS,RLCS(R2)

RLDRV+1, (SP)
- (SP)
#DRVNAM,
RLBAS,=(SP)
#BASADD,~ (SP)
#:t MT5,~(SP)
#5,-(SP)

003047
006152

PAGE 1-31

;DO DROP UNIT ON DRIVE

JRELEASE ERROR VECTOR

CZRLJBO RLO1/02 DRIVE

07-DEC-79 09:06

8 WWR

16405

SEBRI SRERBRR RN

wmd md
d e
i
e
e

015246
015250
015250
015250

000007

032762
001407
053762
032762
001005

000200

000000

003046
00001

000000
000000

013700

003044

005737
001402
005337

003464

013700
104436

003244

104441

003464

104412

CLEANUP CODE SECTION

BGNMOD

CLNCODE

MOV
MOV
MOV
MOV
TRAP
ADD

2%:

SETPR]
MOV
TRAP
BIT
BEQ
BIS

8IT

3%:
5%:

104433

104453

015256

—

012700

015254

1410

—

000010

000240

015254

16411

062706

015252
015252
015254

kel
X

16407

000340
015576
003244
000003

14:49

.SBTTL

SETVEC

012746
012746
013746
012746
104437

08-FEB-80

AUTO DROP SECTION

D
d
b ood
b and

b
=D
d
D
D
D
b

A
TAWVIWAIVVWAWVY.

OO
OOOOOOD

wd
o
md e
— e

VIV

OOOOQOOOO

S
N
"t N
N

S Baogs
R8sy N2 KRR

—

— b
—d

~e~

1403

MACY11 30A(1052)

BGNCLN

104436

SN NN A o~ NN AN N NN~ o~
WO

NN,

NWS NN

EEgs
g
2

CZRLJB.MAC

1402

TEST 2

ENDCLN
L100177:
BGNDU
ENDDY

L10020:

ENDMOD

BNE
WAITMS
CLRVEC
MOV
TRAP
TST
BEQ
DEC
CLRVEC
MOV
TRAP
BRESET

SEQ 0067

ERRVEC ,#TRPHAN,#340

#340,-(SP)

#TRPHAN,
= (SP)

ERRVEC,=(SP)
#3,-(SP)
C$SVEC
#10,SP

4?7

#7.RO

:SET PRIORITY TO 7

C$SPRI
#CRDYMSK ,RLCS(R2)
sTEST 1F CONTROLLER READY
3$
;NO LOOP UNTIL READY
RLDRV,RLCS(R2)
:SET DRIVE NUMBER

#DRDYMSK ,RLCS (R2)

;TEST IF DRIVE BUSY

5%
n3
RLVEC
RLVEC RO
CSCVEC

:NO - SKIP
‘WAIT 300 Ms
*RELEASE VEC

:NO

PWRFLG

;PWR FAIL

SET

ERRVEC

ERRVEC ,RO
CSCVEC

TRAP

CSRESET

TRAP

CSCLEAN

NOP
TRAP

PAGE 1-32

($DU

;TAKE CARE OF LSI-11

CZRLJBO RLO1/02 DRIVE _TEST 2
CZRLJB JMAC
07-DEC-79 09:06

08-FEB-80
MACY11 30A(1052)
GLOBAL SUBROUTINES

1413
1414
1415
1416

1617

b
ek ——d
e
d

(2)
(2)
(2)
(2)
(2)
(2)

(3)

1423
(2)
1424

012737
005237
013737
005437

—

1418
1419
1420
1621
1422

(2)

1444

1445
(2)
(2)
2)

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

TIME:

MOV

003472

103420

012727
000000
013727
000000
005367
001375

1%:

000001
002116
177772

000065

002116

2%:
3.

177772

015420

015422
015430
015434
015442
015446
015452
015456
015456
015460
015460
015462
015470
015470

015474
015476

005237
002761
063737
000207

003466

003472

003132

'A ¥

012737
005037
013737
006337
006337
005437

000160
003476
003470
003470
003470
003470

00116

XTIME:

005502

103023

TIM,US
XDELAY ,MININC
XDELAY

CSRDBU

000150

INC

XDELAY

;WAIT FACTOR EXPIRED?

MOV
.WORD

mi., (PC)+
0

LWORD
DEC

O
-6(PC)

INC

XDELAY

MOV
DELAY

#65,L8DLY
#1,

.=4
=~22(PC)
.=20

3s
MININC, TEMPO

MOV
CLR

#160,L90LY
TIM.US

RTS

012727
000000
013727

000020
002116

2%:

YDELAY
,MAJ INC
YDELAY

ASL
NEG

YDELAY
YDELAY

TRAP

CSRDBU

8cC
MOV
DELAY

1%
#150,L80LY
#20

.WORD
MOV

0
LSDLY, (PC)+

MOV

;BRANCH -~ If NO
;GET TIME
;GET OUTER DELAY LOOP
;JWAIT WITH RESPECT TO FONZ BUS

LSDLY, (PC)+

BLY
ADD

READBUS

002116

;BRANCH - IF YES

=22(PC)
.=20

BNCOMPLETE

012737

;GET OUTER DELAY LOOP
JUS=WAIT ROUTINE INDICATOR
;SAVE ORIGINAL US-WAIT
sGET NEGATIVE OF FACTOR
;Q - BUS?

JWALT

ASL

104407

#160,L8DLY

SEQ 0068

#1,
A1, (POY+
O
LSDLY,(PC)+
O
-6(PC)
<4

BNE
DEC
BNE

177756

PAGE 1-33

DELAY
MOV
.WORD
MOV
.WORD
DEC
BNE

MOV

002116

BCOMPLETE 2%
BCS
2%

BLT

000001

001367

INC
MOV
NEG
READBUS
TRAP

DEC
BNE

177756

003466

1425
1426

(3)
1643
(2)

003466

002116

.SBTTL

104407

(2)

427
1428
1429
(2)
(2)
(2)
(2)
(2)
(2)
2)
(2)
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
14640
1441
1442

000160
003476

14:49

JWAIT FACTOR EXPIRED?
;BRANCH - IF NO
sGET TIME EXPIRED
sRETURN

;GET OUTER DELAY LOOP

sMS. WAIT INDICATOR
:SAVE ORIGINAL WAIT MS
SMULTIPLY BY FACTOR 4

;GET NEGATIVE OF RESULT
;@ - BUS?

an20,(PC)+

;BRANCH - IF NO

;GET OUTER DELAY LOOP

SMWAIT WITH RESPECT TO FONZ BUS

EREER RS o

000000
005367
001375
005367
001367
005237
002761
000417

012727

1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
(3)

1%:

000010

VWAL

003502

003474

3$:

015576

14:49

.WORD
DE(
BNE
DEC
BNE
INC
BLT
BR

0
=6(PC)
.4
=22(PC)
.=20
YDELAY
2%
3%

MoV

Ar10,(PC)+

DELAY

.WORD
MoV
.WORD
DEC
BNE
DEC
BNE
INC
BLT
ADD
RTS

6
PAGE 1-34

‘FQ

;WAIT FACTOR EXPIRED

;BRANCH = IF NO
JGET TIME

#10

SWAIT

0
LSDLY, (PC)+

O
=6(PC)
.<b
=22(PC)
.=20
YDELAY
1%
MAJINC, TEMP
PC

JWAIT FACTOR EXPIRED?
;BRANCH = IF NO
;GET EXPIRED TIME
sRETURN

BGNSRY
; TRAP HANDLER.

005237

003462

TRPHAN:

015602

015604

1480

003470

015576

1465

(3
(2)

177756

015574

(2)

1467
1468
1469
1470
1471
1472
1473
1474
1475
1676
1477
1478
1479

177772

003470

015602
015602

1466

30A(1052)
OB~FEB-B0
GLOBAL SUBROUTINES

177772

1450

1451
1452
1453

MACY11

002116

oo~ N

prd b
b ek —d

)
()
(2)
(2)
()
()
2)
(2)

- b

14648
1449

1447

— cd

1446

VLY,
V] AN WMAIWAIWWN N
VY

(2)
(2)
(2)
(2)
(2)

lololole (ololololelolels) o

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DEC-79 09:06

ENDSRYV
L10021:

000002

INC

INDICATES OCCURRENCE OF

A TRAP.

TRPFLG

RT1

BGNSRV

: INTERRUPT HANDLER. ABORTS WAIT TIMER AND STORES RL11 REGISTERS.
INTHLR:

015604

015604
015610
015614
015620
015624

003060
003062
003064
003066
177777
003042

MOV
MOV
MOV
MOV
MOV
MOV

003022

(R2)+,T.CS
(R)+.T.BA
(R2)+.T.DA
(RD),T.MP
#-1,DONE

RLBAS ,R2

ABORTWAIT

ENDSRV

L10022:

RT1

:STORE RL REGISTERS

;SET DONE FLAG
;RESTORE RZ

NNAQ

CZRLJBO RLO1/02_DRIVE_TEST 2
CZRLIJB.MAC
07-DEC=79 09:06

MACY11 30A(1052)
O08-FEB-80
GLOBAL SUBROUT INES

1482

1483

}22@
1486

1487
1488
1489

(3)

.
015664
015672
015674

015674

104420

015676
015700

103451

1490 015676

(2)
1491

(9)
(8)
(7)
(6)
(3)
(&)
(4)

027737
002453

01570C
015704
015710
015714
015720
015722
015724

012746
013746
012746
012746
010600
104417
062706

(11) 015730

005046

(10) 015736
(9) 015742
(8) 015746
(7) 015752
(6) 015756
(3) 015762

012746
013746
012746
012746
012746
010600

(4)
1493
(7)
(6)
(3)
(%)
(4)
1496
(3)
(3)
1495

062706
012746
012746
010600
1046417
062706
013700

1492

015730

(11) 015732

(%)

(3)
}239

015764

015766
015772
015772
015776
016002
016004
016006
016012
016012
016016
016020

153716

104417

104451

016020
016022

104444
000207

1499

016024

016237

1505
1506

016056

011646

1498

150C
1501
1502
}ggz

016032
016040
016046
016054

1507 016060
1508 016064
1509
1510

016072
016074

165362

013566

TRAP

001420
004737

@ERRPOINT ERL IMW
;TEST IF ERROR LIMIT EXCEEDED
1$
:NO - SKiP
;CHECK ]F IN ERROR LOOP

CSINLP

PRINTF

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

BISB

MMEXERS,
- (SP)
ERL IMW,
= (SP)
#FMT2S5
.= (SP)
#3,-(SP)
SP.RO
CSPNTF
#10,5P
-(SP)

RLDRV+1,(SP)

006152
003042
006141
011026
000005

MOV
MOV
MOV
MOV
MOV
MOV

000014
011012
000001

ADD
#164,5P
PRINTF #FMi3
MOV
#FMTZ, ~(SP)
MOV
”1,-(5P)
MOV
SP.RO
TRAP
CSPNTF
ADD
#4,SP
DODU
PSETNM
MOV
PSETNM,
RO
TRAP
(C$DODU
DOCLN

TRAP

000004
003456

000000

003060

000002
000200
016024

;YES - SKIP

is
#FMT25,ERL
IMW, #MEXERS

CLR

003047

BCS
PRINTF

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

000010

PAGE 1-35

DROPS DRIVE IF ERROR LIMIT EXCEEDED

C(CKERLM: CMP
BLT
INLOOP

010513
013566
011637
000003

ERROR LIMIT CHECKING ROUTINE

BCOMPLETE

016237 000002 003062
016237 000004 003064
016237 000006 003066
000207
005066
032762

14:49

#DRVNAM.
= (SP)
RLBAS ,-(SP)
#BASADD
, - (SP)
NFEMTS,=(SP)
#5,-(SP)
SP.RO
CSPNTF

;GO TO CLEAN UP

1$:

TRAP
RTS

READ AND STORE ALL RL11 REGISTERS

READRL: MOV

MOV
MOV
MOV
RTS

CSDCLN
PC

:DROP DRIVE

RLCSR(R2).T.CS

RUBA(R2) ,T.BA
RLDA(R2).T.DA
RLMP(RZ2).T.MP
PC

:GET CS REG

:GET BUS ADDRESS REG
:GET DISK ADDRESS
-GET MULTI-PURPOSE REG
SRETURN

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

000000

CLR
BIT

BEQ
JSR

2(SP}
CLEAR FOR POINTER
#CRDYMSK ,RLCSR(RS)
STEST IF CONTROLLER READY
48
PC,READRL

:NO - SKIP TO WAIT
‘READ ALL RL REGS

SEQ 0070

CZRLJBO RLO1/02_DRIVE_TEST 2
CZRLJB <MAC
07-DEC~79 09:06

ele RNTe NV

R R R LR RRRRY &m&m&mmm&mmmw
RURLEo&EIETRARES \ngg\hr&w—-ggmw
FELEREE AT AT

o VB W=

d—d-l-—l-—l-l—i—l—l-.l—...A-_l—a—l—l._b-—l—l—l—l-—l-—l—l—l—l—l_-l—l—l—‘-—l—l_i—-l—l—l—l-l—l—l_l—d.-.-‘—l_-l—-l—l..‘—d-d—‘—-‘-—‘ i vivivavivivivivionawn
NNV
~N

005737
001435
012766
032737
001403
012766
000207

016212

032762
001006
004737
012766
000760
005737
001343
004737
012766
000747

016214
016220
016224
016230

005037

016232
016236
016244
016246
016252
016260

013746
012737
000412
013746

016262
016266
016272

016274
016300
016302
016310
016316
016322
016324

016326

016334

105037

005037
000207

012737

000404
013746
005037
010346
013703
005723
016663
162763
010337
010046
010146
012737

MACY11 30A(1052)

08-FEB-80
GLOBAL SUBROUTINES
TST

003022

006316
002000

000002
003060

006336

000002

000200

000000

016024
006407

000002

006354

000002

003142

003142
003142
003016
000004
000004
003016

002420
002420

000002
000010

003032
003142

032737
001010
032737

:EEIPMESSAGE FOR CONTROLLER HUNG

TST

DONE

sELSE CHECK IF

B8R

;GO TO RETURN

BNE
JSR
MOV

000020

003066

144000

003066

PC ,READRL

1%
PC,READRL
#MNOINT,2(SP)

;READ RL REGS

INTERRUPT OCCURRED

;YES = SKIP TO SET TOO SLOW
;READ RL REGS
;ELSE SET NO INTERRUPT FLAG

OPERATION AND TEST INITIALIZE ROUTINE
CLR
OPFLAG
:CLEAR OPERATION FLAGS
CLRB
NOERCT
SRESET INHIBIT ERROR COUNTING
g%g
g?RECE
JRESET MORE COMPARE ERRORS

MOV
B8R
GSTATC: MOV
MOV
B8R
MOV
GSTAT:
CLR
GSTATG: MOV
MOV
1ST
MOV
SuB
MOV
MOV
MOV
MOV
8IT
BEQ

50%:

003060

sTEST IF READY NOW SET

GET STATUS AND GET STATUS WITH RESET ROUTINE
TEMP4 ,-(SP)
:STORE TEMP4

:
498

000001

:WAIT 300 MS FOR TIMEOUT

#CRDYMSK ,RLCS (R2S

gQCONHNG,Z(SP)

JSR

8IT
8EQ

000062
016262

sRETURN

ggv

2: MOV
GSTAT

000003

INTERRUPT OCCURRED

;YES - SKIP

003142
000013

003142

sNO = GO _SET NO INTERRUPT ERR FLAG
;ELSE SET TOO SLOW ERROR PCINTER
JTEST IF OPI SET
:NO - SKIP
;SET MESSAGE FOR NO DRIVE RESPONSE

TSTINT:

003142

;TEST

BIT

SEQ 0071 |

DONE

WAITMS

RTS

PAGE 1-36

5%
#MTOSLOW,2(SP)
#OPIERR,T.CS
2%
#MDRRES,2(SP)

BNE

5%:

BEQ
MOV
BIT
8EQ
MOV

003020
003461
003030

040000

012701
004737
017062
032737
001054

2%:

4%:

3%:

003022
016024

1%:

14:49

WAITMS
MOV
JSR

33
BIT
BNE
BIT
BNE
BIT

NGETSTAT!DRSET, TEMP4

;SET FOR RESET

GSTATG
TEMP4 - (SP)
#GETSTAT,TEMP4
GSTATG

;STORE TEMP4
;SET FOR NO RESET

TEMP4
R3,-(SP)

¢SET FOR _SAVE L. AND T. REGS
sSTORE R3

TEMPSL ,~(SP)

SSINDX ,R3

;STORE TEMP4

sGET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY
4(SP) ,SUBSTK (R3) . INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
JSTORE 1T BACK
R3.SSINDX
RO,-(SP)
:STORE RO
;STORE R1
R1,-(SP)
#2 ,ERRSWI

;SET FOR NO ERROR RETURN

11%

:NQO - SKIP

#DRSET,TEMP4

JTEST IF DRIVE RESET

#DRVERR ,RLCS(R2) ;TEST IF DRIVE ERROR SET
;NO - SKIP
498
#3
;WAIT FOR 300 MS FOR DRIVE TO SETTLE
#50. ,R1
JINITIALIZE WAIT COUNT
PC,.GSTAT
;GET DRIVE STATUS
#DRDYMSK,T.CS

5%
HHOSTAT,T.MP
51%

TEST IF DRIVE READY

;YES = GO DO CLEAR
;ELSE TEST IF HEADS OUT
:YES = BYPASS RELOAD WAIT FLAG SETTING

#SPDSTAT
!HCESTAT !WDESTAT,T.MP TEST IF DRIVE HAS ERROR

T ESY 2

CZRLJBO RLO1/02_DRIVE
CZRLUR U‘c
07-DEC-79 09:06

NB NN —O
T

m~A~OOONONONON

[V TV_ P , Puif puiroul pull put put'y

3R ERoRoRe88L8L3

(¥, ]

|9, ]

BB BEEBREERE

1567
1568
1569
1570
1571

MACY11 30A(1052)

O0B-FEB-80

GLOBAL SUBROUTINES

14:49

PAGE 1-37

SEQ 007¢
: THAT CAUSED HEADS T0

016426
016430
016436
016440
016446
016450
016462
016464
016466
016472
016472
016474
016476
016500
016502
016504
016510
016512
016516
016522
016524

016526
016530
016536
016540
016546
016546
016552

016560
016566
016574

016602
016610
016622
016626
016630
016636
016644
016652
016654
116662
016664
016670
016676
016700

016712
016714
016716
016722
016724
016730
016730
016732
016734

001444
052737
000440

040000

032737
001034
005301
001342
012703

003020
003060

51%:

BEQ
BIS
BR

BIT

BNE
WA TMS
DEC

010375

104456

023421
000000
011724
000565
005737
00101
012701
012703
014346
005301
001375
012737
000403
013737

003142

11%:

000004
003060

003142

003054

005037
013737
042737
052737
013762
013762

003022
003046
002000
000104
003054
003050

003050
003050
003050
000004
000000

005737

003022

005301
001365
004737
017062
012703
104456

023423
000000

003066
177770
000010

003074
003074
003054

040000

003020

001130
000001

016262
010442

;SKIP TO CLEAR

#RELDWT ,OPFLAG

#DRVERR,T.CS
5%
iy
R1

508
AMUNDEF ,R3
10001.
, JERR?
CSERHRD
10001
0
ERR1
14$
TEMP4

b} 3

#L.MP+2 .R3
-(R3),~(SP)
R1
8s
#GETSTAT,L.DA
63
TEMP4,L.DA

8%:

003054

032737
001503
032737
001427
012701
032762
001021

INO - SKIP

#4,R1

000003

001504
013737
042737

5%:
6%:

DONE
RLDRV,L.CS

#BI710.0.CS

#GTSTAT.L.CS

L.DA,RLDA(R2)

WAITUS
TST

4%:

L.CS.RLCSR(R2)

ELSE ScT WAIT FLAG

;TEST IF DRIVE ERROR NOW
JYES =~ SKIP TO CLEAR
‘WAIT FOR DRIVE TO GET ERROR, KDY, OR HEADS OUT
‘DEC WAIT COUNTER

*If NOT DONE, LOOP
*MESSAGE FOR UNDEFINED STATE

JEXIT
‘TEST IF SAVE REGISTERS

:NO SK]IP

*SET SAVE COUNT

*SET ADDRESS OF FIRST SAVE
*PUT REG ON STACK
*DEC COUNT
*LOOP UNTIL ALL SAVED
:SET FOR GET STATUS
;SKIP
*INSERT PRESET FOR STATUS
;CLEAR INTERRUPT FLAG
*SET UP TO GET STATUS

*CLEAR FOR DRIVE 4 - 7 SPEC'D
:LOAD RL REGS

:LOAD CS REG

#
‘WAIT 100 US FOR INTERRUPT
DONE
1CHECK IF INTERRUPT GCCURRED
1$
‘NC - SKIP
T.MP,T.STAT
:STORE MP REGISTER
#*C<STAMSK>,T.STAT ;CLEAR ALL BUT STATE
#DRSET,L.DA
STEST IF RESET WAS SPECIFIED

33
fggLDUT,OPFLAG
138:

JUNLOAD

#600. ,R1

:NO - SKIP TO EXIT
;5ST IF RELOAD WAIT FLAG SET
:NO_ = SKIP

:SET WAIT COUNT FOR 60 SECONDS

#DRDYMSK ,RLCS(R2) ; TEST IF DRIVE NOW READY

WAI TMS
DEC

12%
#1
R1

;YES - SKIP
sCALL WAIT
sDEC COUNT

JSR

PC,GSTAT

;GET DRIVE STATUS

BNE

33
MOV
ERRHRD
TRAP

.WORD
.WORD

13$

#MRLFAL ,R3

10003., ,ERR1

C$ERHRD

60003

;LOOP IF NOT O

;ERROR RETURN

JSET RESULT MESSAGE POINTER

b ad

—

b nd

PR NNN AN ARA 2RI R L2%
CERURZBEICS ~®NOKS WA = O V00O

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJS -MAC
07-DEC~79 U9:06

016736
016740
016742
016754
016760
016762
016770
016772
017000
017002
017006
017010
017016
017020
017020
017022
017024
017026
017030
017032
017036
017040
017044
017046
017046
017050
017052
017054
017056
017062
017066
017070
017074
017100
017102
017104
017106

MACY11 30A(1052)

GLOBAL SUBROUTINES

011724
000446

004737
017062
032737
001434
032737
001403
012703
000417
032737
001405

12%:

016262
100000

003060

001000

003066

006443
040000

003060

7%:

aud —d

CO6464

9%:

016056

1%:

2%:

003032
003142

14%:
3s:

003050
000004

000002

20%:

003616

228:

NEREBRS

b cnd aud

NYIINN

—t ol amd

000000

ocoO~NOWN S

99%:

177777

003134

003016

003134

14:49

PAGE 1-38

ERR1
148
#10.

SFO 0073

;GO TO EXIT

;WAIT FOR 1MS

%gR

PC,GSTAT

;GET DRIVE STATUS

BIT

#ANYERR,T.CS

JTEST IF ANY ERROR
:NO - SKIP

e
BIT
BEQ
MOV
B8R
BIT
BEQ
ERRHRD

33
#VCSTAT ,T.MP
’$
#VCNRST ,R3
2%
#DRVERR,T.CS
9%
10004., .ERR6
10004
O
ERR6
14%
,R3
#UNXERR
2%
PC,WAITIN
(SP)
+ ,R3
10002..,ERR1

.WORD
.WORD
.WORD

10002
0
ERR1

BNE
MOV

MOV
MOV

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

BEQ

99%

TRAP

CLR
TST

MOV
MOV
DEC
BNE
sus
MoV
MOV

cCHECK ]F VOLUME (CHECK RESET

:YES SKIP
;SET REASON POINTER
JEXIT
JCHECK IF DRIVE ERROR
.NO - SKIP

CSERHRD

.WORD
WORD
.WORD
BR
MOV
BR
JSR
MOV
ERRHRD

IST

003032

88 o \h\hg\n\.fl

b o

) =D ad ad e

OO ONONON

b md

.WORD
BR
WAITUS

TRAP

104456

023424
000000
012226

003142
003032

—

08-FEB-80

JEXIT
;SET REASON POINTER
JEXIT
JWAIT FOR INTERRUPT

;STORE REASON POINTER FOR RETURN

CSERHRD

ERRSWI
TEMPS

ERRSW!

;CLEAR FOR ERROR RETURN
;TEST IF REGISTERS WERE SAVED
:NQ - SKIP
;SET POINTER TO RESTORE
JSET REGISTER COUNT
JRESTORE REG
sDEC COUNT
;LOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUT STACK
JRESTORE R1

JRESTORE RO

;RESTORE R3

JRESTORE TEMP4

:TEST

IF ERROR RETURN

ADD

ERRSWI, (SP)

JYES - SKIP
:ADD IN ERROR RETURN

MOV

a(SP),(SP)

;SET ERROR RETURN ADDRESS

RTS
RTS

SEEK ROUTINE

KSEEKT: MoV

BR
:
XSEEK
CLR
XSEEKT: MOV
Mov
TST

#-1,TEMP1
XSEEK1
TEMP1
R3,~(SP)
SSINDX ,R3
(R3)+

JSET SPECIAL TIMING SEEK FLAG
;CLEAR SPECIAL SEEK FOR TIMING FLAG
:STORE R3

JGET SUBROUTINE INDEX
JBUMP IT FOR NEXT ENTRY

CZRLJBO RLOV/02_DRIVE TEST 2
CZRLJB.MAC
07-DEC-79 09:06

1663
1664
1665
1666

017174 016663 000002 002420
017202 162763 000004 002420
017210 010337 003016
017214 010046

1667

017216

010146

1669

017222

012737

000002

017234
017240

004737
017672

022340

017250
017256

023737
003427

003116

017310

001424

017336

005737

003116

017356

005037

003116

1668 017220 010546
1670
1671
1672
1673

MACY11 30A(1052)
O08-FEB-80
GLOBAL SUBROUTINES

017230

005037

003112

RS.~(SP)

;STORE REG

DIFAUG

CLR

P
BLE

NEWCYL.HLMTW
3$

CURCYL,OLDCYL

:MOVE CURRENT TO OLD CYLINDER
-ELSE SUBTRACT 255.
-STORE DIFFERENCE AS AUGMENT
-SET NEWCYL AS 255.

BEQ

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

017260 163737 002316 003116
017266 013737 003116 003112
017276 013737 002316 003116
017302 022737 000001 002312

suB
MOV
MOV
CTMMP

0172312 162737 000001
017320 012737 000001
017326 012737 000001
017334 000451

SuB
MOV
MOV
BR

1686

1687 017342 100007
1688 017344 005437 003116
1689 017350 013737 003116 003112
1690

1691
1692
1693
1694
1695
1696
1697

1698

017362
017366
017372
017374
017402
017404
017406
017412

013705
163705
100005
012737
005405
000402
005037
010537

003120
003116
000001

1701

1702
1703
1704
1705
1706

1707
1708

017424

023737

003116

017442 022737 000001
017450 001003
063737

1711

017470

053715

1713

017500

005025

003112

1709 017660 012705 003050
1710 017464 012715 000106
17212

01726474

042725

017514

005300

1718 017516 001375

138:
148:

002316

003124
002312
003122

TST

17$:
188
:

SAND SET NEWCYL TO O

TST
BEQ

D1FAUG
18%

R5,DESDIF

NEWCYL HLMTW

cTMMP
BNE

#1,T.DRIVE
18%

MOV
MOV

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

BIC

#IT10,(RS)+

ADD

CLR

218:

NEWCYL

CURCYL .RS
NEWCYL .RS
138
#1 ,DESSGN
RS
14
DESSGN

MOV

17%
#1,DESSGN

‘N0 = SKIP
SELSE MAKE IT POSITIVE
-AND STORE IT AS AUGMENT

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

*1S THERE A DIFFERENCE AUGMEMT
*NO
- SKIP
:CHECK IF NEW CYL IS 255.

‘N0 - SKIP
*ELSE FORCE SIGN FOR FORWARD
*CINNER GUARD BAND)

DIFAUG,DESDIF

RLDRV , (R5)
(R5) +

MOV
MOV
ASL

DESDIF , (RS)
#7 RO
(RE)

BNE

218

DEC

-TEST IF NEW IS GREATER THAN 255
‘NO - SKIP

;TEST IF NEWCYL HAS NEGATIVE VALUE

MOV
SuB
8PL
MOV
NEG
BR
CLR

CLR

(FOR SEEKING

NEWCYL

63
NEWCYL
NEWCYL,DIFAUG

BIS

002000

#1,NEWCYL
#1.DESSGN
#1.DESDIF
18§

BPL
NEG
MOV

BNE
MOV

003046

1714 €i7502 013715 003122
1715 017506 012700 000007
1716 017512 006315
1717

003124

003122

017432 001007
017434 012737 000001
017452
017460

68 :

003126

1699 017416 005737 003112
1700 017422 001416

3%:

JSET FOR NO ERROR RETURN

PC.GETPOS

1677
1678
1679
1680

003116
003124
003122

#2 ,ERRSW]

JSR
65$

MOV

1682
1683
1684
1685

R1,=-(SP)

*CLEAR DIFFERENCE AUGMENT
> " PAST GUARD BAND)
“GET PRESENT POSITION

017242 013737 003120 003114

1681

SEQ 0074

MOV

002315

PAGE 1-39

2(SP) ,SUBSTK(R3) :INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3.SSINDX
*STORE IT BACK
RO, =(SP)

1674

1675
1676

MOV
suB
MOV
MOV
MOV

003032

14:49

:GET L REG ADDRESS
*SET FOR SEEK

- INSERT DRIVE NUMBER

:CLEAR IF DRIVE 4 - 7 SPEC'D

SCLEAR BUS ADDRESS

*LOAD DIFFERENCE
“SET TO SHIFT DIFFERENCE

;LOOP UNTIL ALIGNED

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLUB .MAC
07-DEC~79 09:06

017520
017524
017526
017532
017536
017540
017544
017550
017554
017556
017562
017566
017570
017574

017600

017604
017616
017622
017624
017630
017632
017632
017634
017636
017640
017642
017646
017650
017654
017656

017656
017660
017662
017664

005737
001402
052715
005737
001402
052715
052725

MACY11 30A(1052)
0B8-FEB-80
GLOBAL SUBROUTINES

003124
000004
003126

23%:

000020
000001
020276

25%:

014562
014562

005737
001012
004737
012603

000004
000002
000000
003022

100006

104456
023426
000000
012226
005037
162737
012605
012601
012600
012603

005737
001403
063716
000207
017616
000207

TST

#DIRBIT,
DESHD

8EQ
8IS
8IS
JSR

BNE
JSR
MOV
ERRHRD

016056

104456

005037
000411
005737

DESSGN

TST
BNE
MOV
MOV
MOV
WAITUS
TST

TRAP

023425

000000
011724

TST

BEQ
BIS

65%
(LR

003022
003134

003032
328:

003060

14:49

23$

PAGE 1-40

SEQ 0075

JTEST SIGN

(RS)

258

#HDSEL , (RS)

MBSETO, (RS)+
PC,RDYCHK

JSKIP IF O
JELSE INSERT SIGN

;TEST IF HEAD O

JYES = SKIP
cELSE SET HEAD BIT
¢ INSERT MARKER BIT
sCHECK IF DRIVE READY

DONE
TEMP1

;CLEAR INTERRUPT FLAG

=(R5) ,RLDA(R?2)
=(R5) ,RLBA(R2)
-(RS) ,RLCS(R2)
#10.
DONE

:LOAD RL REGISTERS

65%

32%

PC,WAITIN

(SP)+ ,R3
10005., ,ERR1
CSERHRD
10005
0
ERR1
ERRSWI
65$%
T.CS

65%

10006.
, ,ERR6

JCHECK IF SPECIAL SEEK FLAG SFTY
¢YES = SKIP, DO NOT START SEEK

sTEST

INTERRUPT DONE

;YES - SKIP
;GO WAIT FOR INTERRUPT
;GET RESULT MESSAGE POINTER

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

CSERHRD
60006
003032
000002

003016

ERR6S
ERRSWI
#2,SSINDX
{SP)+ RS
(SP)+,R1

65%:

003032
003032

sCLEAR FOR ERROR RETURN
JREMOVE ENTRY FROM SUBROUT STACK

sRESTORE REGISTERS

(SP)+,R0O
(SP)+ R3
ERRSWI
99%
SRRSHI,(SP)

JYES - SKIP
;ADD IN ERROR RETURN

a(SP), (SP)

:SET ERROR RETURN ADDRESS

;TEST IF ERROR RETURN

POSITION HEADS ROUTINE. POSITIONS HEADS USING 1 CYLINDER SEEKS
010346
013703

003016

162763
010337

000002
000004
003016

005723
016663

TO CYLINDER SPECIFIED IN RS BY THE CALLING ROUTINE
R3,-(SP)
sSAVE REGS
MOV
SSINDX ,R3
;GET SUBROUTINE INDEX
TST
(R3)+
;BUMP IT FOR NEXT ENTRY

POSHDS: MOV
002420
002420

MOV
SuB
MOV

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

#4,SUBSTK (R3)
R3,SSINDX

JADJUST IT TO CALLING LOCATION

sSTORE IT BACK

CZRLJBO RLOY702 DRIVE _TEST 2
C2RLJB MA(
07-DEC=-79 09:06
1824
1825
1826
1827
1828

1829
1830

(3)

1831

1832
(2)
1833

1834
1835
18%
1837
1838
1839
1840
1841

017762
017764
017766
017774
020000
020002
020006
020006
020010

020010
02002
020012
020014
020020
020022
020030

1842

1843
1844
1845
1846

010346
010446

012737
004737
020240
012704

000002
022340

MACY11

003032

000012

1%:

104420

004737
020236
023737
001017
004737
000414
013737
023705
001471
003003
005237
000402
005337
004737
020236
012701
004737
020236

005737

10000/

003120
0CTM120

003114

7%:
8%:

003116
017160
005670
022054

~ e O

SORERRERRERE
~
—~ o~

(10,
P o)

020210
020212

104456

023431
000000

TRAP

($BSEG

INLOOP
TRAP

JSR
BR
MOV
cMP
BEQ
BGT
INC
8R

022340

10%:

003116

000012

14%:

003124

15%:

003116
16%:

007323

JNO - SKIP

PC.GETPOS

;ELSE GET POSITION

CURCYL ,NEWCYL

sCHECK IF AT INTENDED POSITION
sNO - SKIP
:gz@z OLDCYL AND NEWCYL

PC ,ONSWAP
8$
CURCYL,OLDCYL

CURCYL RS
60%
7$
NEWCYL
8$

SKi

;IN NOT LOOPING, STORE CURCYL AS OLDCYL
sCHECK 1F HDS AT FINAL POSITION
:YES - GO TO EXIT
sIF CURCYL > FINAL POSITIiON - SKIP
:gk?g BUMP NEWCYL (MOVE HDS IN)

;SET WAIT COUNT 300 Ms

18T

T.CS

;TEST IF ANY ERROR
;NO - SKIP

TRAP

CSERHRD

8PL
ERRHRD

003032

;CHECK IF IN ERROR LOOP

#3000. ,R1

60%
MOV

.WORD
WORD

003120

CSINLP

JGET CURRENT POSITION

sDEC NEWCYL (MOVE HDS OUT)
;DO SEEK

60%

003060

003120

PC,GETPOS

NEWCYL
PC,XSEEK

DEC
JSR

JSR

104456

023430
000000
012226
005037
000441
004737
020236
023737
001003
012704
000714
005737
001017
023737
003366
005304
001333
012703

;SET RETRY COUNT

cMP

003116

SEQ 0076

#10. R4

BNE
5%:

1-41

MOV

60%

020636

6
PAGE

sSET FOR NO ERROR RETURN

JSR

003116

R3,-(SP)
R4 ,=(SP)
#2 ,ERRSWI

BNCOMPLETE
5%
8CC

022340
003120

14:49

MOV
MOV
MoV

JSR
PH65$

BGNSEG

104404

103012

30A(1052)
08-fER-80
GLOBAL SUBROUTINES

.WORD
CLR
BR
JSR
60%
P

BNE
BR

IST

BNE

PC,RDYWAIT

108
10008.,,ERR6
10008
0

ERR6
ERRSWI

;CLEAR FOR ERROR ERROR RETURN

PC.GETPOS

sGET POSITION

CURCYL ,NEWCYL

;CHECK IF ARRIVED AT DESIRED PLACE
;NO ~ SKIP
cELSE INIT RETRY COUNT
2GO DO NEXT SEEK

608

15%
1%

DESSGN

17%

MP
CURCYL ,NEWCYL
14%
8GT
DEC
R4
BNE
8$
#HDMOVF ,R3
MOV
ERRHRD 10009., .ERR1
TRAP

C$ERHRD

WORD

.WORD

;WAIT FOR DRIVE READY

10009

sTEST

IF GOING IN

;YES ~ SKIP
;CHE(K IF HEADS DID NOT MOVE IN
JYES = SKIP
;DEC RETRY COUNT
;DO ANOTHER SEEK IF NOT O
JELSE SET RESULT MESSAGE POINTER

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB .MA(
07-DEC~-79 09:06
(5)

1870
1871
1872

1873
1874
1875

1876
1877

(3
(3)

1878
1879
1880
1881
1882

020214
020216
020222
020224
020232
020234
020236
020236
020236
020236
020236
020240
020246
020250
020252
020254
020260
020262
020266

020270
020274

b cmd amd

b VNN
= 2

OVONOIRVMB
W
e wN=0

—t

b mad md

OOV O OVOVOO~
A~ A ~OOO

SEEEERE R

1899

020276
020300
020304
020306
020314
020322
020326
020330
020332
020334
020342
020346
020352
020354

011724
005037
000405
023737
002747
000760

104405
162737

012604
012600
012603
005737
001403
063716
000207
017616
000207

010346
013703
005723
016663
162763
010337
010046
010146
010446
012737
012701
004737
020506
032737
001053

005301
001362
012703
012704
104456
023432
000000
012156
012701
004737
020506
032737

001007
005301

MACY11

30A(1052)
08-FEB-80
GLOBAL SUBROUTINES

003032
003120

003116

17%:

208:
60%:

ENDSEG
10000%:

000002

003016

PH65S:

003032
003032

99%:

000000

RDYCHK:

003016

000002
000004
003016

002420
002420

000002
011610
016262

003032

000001

003060

. WORD
CLR
ER
CMP
BLT
BR

TRAP

suB
MOV
MOV
MoV
TST
BEQ
ADD
RTS
MOV
RTS

M6
PAGE

ERR1
ERRSWI
60%
CURCYL ,NEWCYL
148

16%

CSESEG

1-42

SEQ 0077

;CLEAR FOR ERROR ERROR RETURN
JHDS SHOULD MOVE OUT,

JYES - SKIP
sELSE GO DEC AND RETRY

(HK THEY DID

#2,SSINDX
(SP)+ R4
(SP)+,RO

JREMOVE ENTRY FROM SUBROUT

ERRSWI
99%
ERRSWI, (SP)

sTEST

a(SP),(SP)

sSET ERROR RETURN ADDRESS

(SP)+,R3

JRESTORE REGISTERS
IF

STA(K

ERROR RETURN

;YES ~ SKIP
JADD IN ERROR RETURN

DRIVE READY TEST ROUTINE. CHECKS DRIVE IS READY.
500MS FOR_READY 1O SET.
R3,~(SP)
MOV
;STORE REGS
MOV
SSINDX,R3
:GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
TST
MOV
sus
MOV
MOV
MOV
MOV

18:

14:49

IF NOT, WAIT

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

#4 ,SUBSTK (R3)
R3,SSINDX
RO,-(SP)
R1,-(SP)
R4 ,=(SP)
#2 ERRSWI

sADJUST IT TO CALLING LOCATION
;STORE IT BACK

PC.GSTAT

;GET DRIVE STATUS

#DRDYMSK,T.CS

;TEST IF DRIVE READY

#5000. ,R1
5%
#1
R1
1$

;9B FOR NO ERROR RETURN
*SET WAIT COUNT

JYES - EXIT

sDEC WAIT COUNI

;LOOP IF NOT O

007760
010645

#MDRDY ,R3
S
, R4
#CS500M
10010,
, .ERRS
CSERHRD
10010
0

JSET RESULT MESSAGE POINTER

000062
016262

#50. R1

;SET WAIT COUNT FOR S SECONDS

#DRDYMSK,T.CS

JTEST IF DRIVE READY

;WAIT FOR 100MS
:DEC WAIT COUNTER

000001

ERRS

2%:

003060

PC,GSTAT

;SET CONDITJON MESSAGE POINTER

;GET DRIVE STATUS
JYES - SKIP

CZRLJBO RLO1/02 DRIVE

CZRL.JB.MAC
1920
1921

1922
1923

(4)
(5)
(5)
(5)
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943

}gzg

07-DEC-79 09:06

020460
020462

001362
032737

020472
020474
020476
020500
020502
020506
020512
020520
020522
020524
020526
020530
020534
020536
020542
020544
020550

104456
023433
000000
012226
005337
005037
162737
(012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

020470
020472

_TEST 2

001406

100000

MACY11

30A(1052)
08-FEB-80
GLOBAL SUBROUTINES

003660

3$%:

003016

5%:

sLOOP UNTIL TIME DONE

BEQ
ERRHRD

43
10011., ,ERR6

JNO - SKIP
JREPORT ALL ERRORS

.WORD
DEC
(LR
SuB
MOV
MOV
MoV
MoV

1001
0
ERR6
ERRCNT
ERRSWI
#2,SSINDX
(SP)+,R4
(SP)+,R1
(SP)+,RO
(SP)+,R3

;REDUCE ERROR COUNT FOR DUAL ERRORS
sCLEAR FOR ERROR RETURN
JREMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGS

BEQ
322

99%

E?RSUI.(SP)

JYES = SKIP

g?g

géSP).(SP)

¢SET ERROR RETURN ADDRESS

TST

003032

003032
99%-

000000

PAGE 1-43

8IT

.WORD
.WORD

4%:

BNE

TRAP

003254
003032
000002

14:49

WANYERR,T.(CS
CSERHRD

ERRSWI

JTEST IF ANYERR SET

JTEST IF ERROR RETURN
;ADD IN ERROR RETURN

CHOOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS
020552
020556
020564
020566

020574

005037
032737
001403
013737

000207

SELECTED BY SOF TWARE PARAMETER.

003126
010000

013556

013564

003126

CHOSHD: CLR
18:

8IT
BEQ
g?g

DESHD
#HEADLM MISWIW
18
gEADU,DESHD

;CLEAR 70 HEAD C
.TEST IF HEAD SPECIFIED
:NO - SKIP
s INSERT SPECIFIED HEAD

SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1

020636
020640
020644
020652
020656
020660

032737
001011
005737
001006
012737
062716
000207
017616
000207
010046
013700
013737
010037
012600
000207

010000

000001
000002

N—=OO

5737

1051

SWAPHD:

TST

003126
2%:
3%:

000000

BNE
MOV
ADD
RTS
MOV
RTS

DESHD

2%
#1 ,DESHD
#2,(SP)
PC
a(SP), (SP)
PC

sTEST IF HEAD ONE USED

;YES -~ TAKE ABORT EXIT
sELSE SET FOR HEAD ONE
;BUMP PAST ABORT RETURN
JRETURN
;GET ABORT DESTINATION

SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE.

003114
003116
003116

cmd
b e
—d mad

020662
0
020670

013556

003126

d ed

N $8%8 FERE2E

wmd

1959

020575
020604
020606
020612
020614
020622
020626
020630
020634

003510

ONSWAP: MOV
003114

MOV
MOV
MOV

RO,~(SP)
oLDCYL,RO
NEWCYL,OLDCYL
RO, NEWCYL

RTS

MOV
e s, N,

1948
1949
1950
1951
1952
1953
1954
1955
1956

UNLESS HEAD O SPECIFICALLY SELECTED BY SOF TWARE PARAMETER.
8IT
MHEADLM MISWIW TEST IF HEAD SPECIFIED
BNE
2%
;YES = TAKE ABORT EXIT

(SP)+,RO

;STORE RO
:MOVE OLD TO RO
:MOVE NEW TO OLD
sPUT OLD IN NEW

:RESTORE RO

BAD SECTOR FILES VALID CHECK ROUTINE. CHECKS IF BAD SECTOR

FILES HAVE BEEN READ AND STORED. IF NOT, REPORT AND FORCE
FILES TO LOOK LIKE ALL SECTORS OK.
BSFVAL
JTEST IF BAD SECTORS STORED
KBSVD: TST

BNE

PRINTF #FMT9 #BSNSTR

JYES = EXIT
;REPORT

SEQ 0078

2Rt JBO RLOV/02 DRIVE TEST ’
"ZRL
JB . MA(
07-DEC=79 09:06
(8)

‘7)

(6)
(%)
(4)
(4)
1973
an
an
10)
(9
(8)
(7)
%)

020670

020674

020700
020704
020766
020710
020774
020714
020716
020722
UeQ726
020732

020736

020742
020746
020750
020752
020756
020756
020762

020766
020770

020772

020776

027004

¢21012

021014
021022

021024

—A——l—l—a—d—.’:fl’-—.—l—h—.-fl—l

021066

s &

PROONA

383 358833283

1981

0127646

012746
012746
010600
104417
062706

005046
153716

MACYT1

MOV
MOV
MOV
MOV
TRAP
ADD
PRINTF
CLR

907550

011212
000002
000006
003047

81S8
MOV

012746
013746
012746
012746
012746
010600

006152
003042
006141
011026
000005

062706

000014

012746
012746
010600

011017
000001

062706
012737
012737
000207

000004
177777
177777

003706

012737
000402
005037
010346
013703
005723
016663
162763
010337
010046
010146
010446
012737
005737
001007
012703
012701
014346
005301

000001

003142

104417

001375
004737
021374
005037
012701
013711
042711
052721
005021

30A(1052)
08-FEB-80
GLOBAL SUBROUT INES

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTF
MOV
MOV
MOV
TRAP

003532

003142
003016
000002
000004
003016

002420
002420

000002
003142

003032

003060
000004

020276

003022
003050
003046
002000
000110

14:49

SP,RO
CSPNTF

n6,SP
#Egg?.'BASADD.RLBAS.lDRVNAM.<B.RLDRV‘1>

RLDRV+1, (SP)

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

= (SP)
#BASADD,
#FMTS,=(SP)
#5,-(SP)
SP,RO
CSPNTF
#14,SP

#FMT3
#FMT3,=(SP)
#1,-(SP)

SP,RO
CSPNTF

#6,SP
#-1,5SB8SFIL

READ HEADERS ROUTINE.

8R
XRDHD:
CLR
XRDHDG: MOV
MOV
TST
MOV
suB
MoV
MOV
MOV
MOV

MoV
TST
BNE
MOV

2%:

;FORCE FILES TO NO ENTRIES

XRDHDC: MOV

1%:

1-44

#3SNSTR,~(SP)
#FMT9,-(SP)
#2,-(SP)

#-1,FBSFIL

5%:

PAGE

#1,TEMP4

;SET FLAG TO BYPASS REG STORAGE

SSINDX ,R3

;GET SUBROUTINE INDEX

XRDHDG
TEMPS
R3,-(SP)

(R3)+

;GO DO IT
JSET FLAG TO SAVE T. AMD L. REGS
:STORE REGISTERS

;BUMP IT FOR NEXT ENTRY

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

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

:ADJUST IT TO CALLING LOCATION
ISTORE IT BACK

‘N0 - SKIP

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

;CLEAR INTERRUPT FLAG _
*GET ADDRESS OF LOAD RZGS
*LOAD DRIVE NUMBER

TEMPS

#L.MP+2 R3
#4.R1
-(R3) ,=(SP)
R1
18
PC,RDYCHK

#1710 (R1)

#RDHEAD, (R1)+
(R1)+

:SET FOR NO ERROR RETURN
STEST IF REGISTERS TO BE SAVED
*SET POINTER FOR REGS
*SET COUNT
*SAVE REGISTER
‘DEC COUNT
*LOOP UNTIL ALL ARE SAVED
*CHECK DRIVE READY

*CLEAR FOR DRIVE & = 7 SPEC'D

: INSERT COMMAND
*CLEAR BA

SFO 0079

2009
2010
2011
2012
2013
2014
2015
2016

2017

2018
2019
2020
(&)
(5)
(5)
(5)

2021
2022
2023
2024
2025

2926
2027
2028
2029

V21154
021156
021162
021166
021172
021204
021210
021212
021220
021222
021226
021232

021232
021234

021236

021240
021242
021246
021252
021254
021262
021264
021270
021272
021274
021276
021302
021302
021304
021306
021310

021312
021314
021320
021322
021322
021324
021326
021330
021332
021334
021340
021344
021350
021352
021356

005021
014162
014162
014162

005737
001460
032737
001035
012703
012704

MACY1T

000004
000002
000000

3s:

003022
000001

30A(1052)
v8-f EB-80
GLOBAL SUBROUTINES

003060

5%:

007760
010662

104456

023441
000000
012156
012701
004737
021370
032737
001403
005037
000411
005301
001364
012704

000062
016262

000001

003040

003032
11%:

010673

104456

023436
000000
012156
000426
005737
100005

004737
012603

BEQ
CLR
BR
DEC
BNE
MOV
ERRHRD

. WORD
.WORD
.WORD

003060

108:

TST

003070
000006
000006

12%:

016056

14%:

(R1)+
=(R1) ,RLDA(R2)

=(R1) ,RLBA(R2)

=(R1) ,RLCSR(R2)

#10,
DONE
148
#DRDYMSK, T.CS

108
#MDRDY ,R3

003050
000004

60%:
65%:

1-45

“EQ 0080

JCLEAR DA
;LOAD RL1! REGS
JWAIT
JTEST

1MS FOR INTERRUPT
IN INTERRUPT FLAG SET

INO - SKIP

sTEST |F DRIVE READY
IYES - SKIP

N#CAFDT R4

:SET NO READY MESSAGE
;CONDITION OF AFTER DATA XFER

CSERHRD
10017
0
ERRS
#50. ,R1

;SET WAIT COUNT FOR 5 SECONDS

10017., ,ERRS

PC,GSTAY

#DRDYMSK,T.CS

118

ERRSWI

108
R1
43
#CSSEC,RG
10014,
., ,ERRS
CS$ERHRD
10014
0

ERRS
608

T.CS

12%

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

65%

PC,WALTIN

(SP)+,R3

, ,ERR1
10015.
CSERMRD
10015
0

003032
003142

PAGE

10016., ,ERR6
CSERHRD
10016
0
ERR6

104456

023437
000000
011724
005037
005737
001007
012703
012701

60%
BIT

TRAP

104456

023440
000000
012226
000416
012701
016221
016221
000411

(LR
MOV
MOV
MOV
WAL TUS
TST
BEQ
BIT
BNE
MOV
MOV
ERRHRD
TRAP
.WORD
.WORD
. WORD
MOV
JSR

14:49

ERR1

ERRSWI
TEMPS

22%

#4 ,R1

;GET STATUS

;TEST IF DRIVE HAS (OME READY
:NO - SKIP
;CLEAR ERROR SWITCH
:SKIP

:DEC WAIT COUNT
cLOOP UNTIL TIME DONE

JSET CONDITION AFTER 5 SECONDS

JEXIT

;CHECK FOR ANY ERRORS
:NO - SKIP
<REPORT ALL

ERRORS

;GET POINTER
:STORE LAST TWO HEADER WORDS
SEXIT
JWAIT FOR INTERRUPTY
JGET RESULTS
JREPORT

FOR ERROR ERROR RETURN

3.5

(ZRLJBO RLO1/02 DRIVE TEST 2
(ZRLUB.MAC
07-DE‘ =79 09:06

;lgEGISTERS WERE SAVED

INTER TG RESTORE REGS
COUNT

CZRLJBO RLO1/02 DRIVE TEST ¢
CZRLJUB.MAC
07-DEC-79 09:06

2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059

2061

021432
021434
021436
021442
021444
021450
021452
021456

021460
021462
021466
021470
021476
021504
021510
021512
021514
021516
021520
021526
021534

02540

02154
021550
021552
021554
021556
021562
021566
021570
021572
021574
021600
021602
021602
021604
021606
021610
021612
021616
021620
021624

021630
021634
021636
02164¢
021646

12623
005301
001375
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

010346
013703
005723
016663
162763

010337
010046
010146
010446
010546
012737
052737
005037
012704
012705
005003
0114615
011401

C+2701
012700
006201
005300
001375
020137
001407

MACYT1

30A(1052)
08~F EB-80
GLOBAL SUBROUTINES
20%:

000002

003016

272%:

00303°

99%:

000000

VERHDR:

003016

003030
004102
003132

000177
000007

023442
G00000
013320
005037
000456
012701
042715
005737
001402
052715
005065
021524

MOV

CLR

000100
003126

000100
000002

COMPARES 40 HEADFRS FOR CONTENT AND

sSTORE REGS
;GET SUBROUTINE INDEX

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

RO,=(SP)
R1.-(SP)
R4 .~ (SP)
RS.=(SP)
#2 . ERRSWI
#HDRCMP ,OPFLAG
MORE CE

sSET FOR NO ERROR RETURN
;SET HEADER COMPARE FLAG
;CLEAR MORE ERRORS FLAG

R
RO

#7.R0
s

CMP
BEQ

R1,NEWCYL
43

TRAP

CSERHRD

CLR

MOV
BIC
ST

BEQ
5%:
6%:

ERROR RETURN

ASR
DEC

MOV

.WORD
WORD
JWORD

4%:

SSINDX,R3

;YES = SKIP
;ADD IN ERROR RETURN

8IC

ERRHRD

n00050

sRESTORE REGS

#1BUFF R4
;SET POINTER TO HEADERS
#TEMPO.RS
:SET POINTER TO WORK AREA
R3
;CLEAR FOR WORD COUNTER
, (RS)
(R4)
sMOVE HDR WORD TO WORK AREA
(R&) JR1
;PUT WORD IN REG 1
#177 ,R1 ;CLEAR ALL BUT CYLINDER

BNE

003032

99
, (SP)
ERRSWI

VERIFY HEADERS ROUTINE.
SEQUENCE.
R3,-(SP)
MOV

MOV
MOV
CLR
MOV
MOV

104456

(SP)+.R3

<DEC _COUNT
;LOOP UNTIL ALL ARE RESTORED
JREMOVE ENTRY FROM SUBROUT STACK

:CET ERROR RETURN ADDRESS

MOV
MOV
BIS

003116

(SP)+.R
(SP)+ R
(SP) +-RO

JRESTORE REGISTER

PC
a(SP), (SP)
PC

SUB
MOV
MOV

3%:

20s
#2,5SINDX

SEQ 00381

RTS
MOV
RTS

MOV

003032
003020

(SP)+,(R3)+
R1

1-46

sTEST

MOV
MOV

000002

PAGE

ERRSW]

002420
002420

BEQ
ADD

003032

000002
000004
003016

MOV
DEC
BNE
SUB
MOV
MOV
MOV
MOV

14:49

8IS

CLR
cMP

10018.
, ,ERR10

10018
0
ERR10

sSET SHIFT COUNT
sSHIFT
;DEC

;LOOP

sCHECK IF CYLINDER PART GOOD
JYES -~ SKIP
cREPORT ERROR

ERRSWI

;CLEAR FOR ERROR ERROR RETURN

#40. .R1
, (RS)
#HDHSEL

;SET HEADER COUNT
;CLEAR HEAD SELECT AND O BIT

;YES = SK]P
; INSERT _HEAD BIT

65%

DESHD

(R5)
, EL
AHDHS
2(RS)
(R5), (R&)+

;ARE WE USING HD 0?

;CLEAR 2ND WORD OF WORK AREA
JTEST FIRST WORD OK

2150

022016
022022
022024
022030
022032
022036
022042
022044
022046
022050
022052

TST

-(R4)

104456

TRAP

CSERHRD

8%:

023442
000000
013320
005037
024524
005724
005203
005215

.WORD
.WORD
.WORD

10018
0

INC

;BUMP WORD COUNTER

12%
(R5)+,~(R4)
10018., ,ERR10

;YES = SKIP

ERRSWI]
(R4)+

TST

(R4)+

TRAP

003032

177700
000050

000077

00000<

15%:

003016

65$%:

003032

10018
O
ERR10

cMP

=(R5) ,(R4)+

TST

MOV
MOV
MOV
MOV

(SP)+ R4
(SP)+ ,R1
(SP)+,RO
(SP) +,R3

suB
MOV

63
#2,SSINDX
(SP)+,R5

TST

ERRSWI

RTS

000000

99%:

003066

POSHWI : MoV

003066

POSHSB:

177677

000006

(R4)+

R3
(RS)
(R5) ,RO
#“CHDSEC
RO
#40. RO
15%
#HDSEC, (R5)
R3
R1

ADD

MOV
RTS

;CLEAR FOR ERROR RETURN
JRESET POINTER

JTEST 2ND WORD 1S 0
;ADJUST POINTERS FOR REPORT
JREPORT

ERRSW!

INC
INC
MOV
81(
cMP
BNE
8I(
INC
DEC
BNE

BEQ

003032

C$ERHRD

.WORD
.WORD
.WORD

CLR
12%:

ERR10

(LR
TST

BEQ
M
ERRHRD

104456

JELSE SET POINTER FOR ERROR
:REPORT

998

ERR3WI, (SP)

)
. (SP)
a(SP
PC

EAR FOR ERROR RETURN
SET POINTERS
PAST ECC WOKD

333

003032

10018.,.ERR10

JYES = SKIP

pIm)

023442
000000
013320
005037
005724
005203
005724
001410
022544

ERRHRD

1-47

021712
021716
021720
021722
021724
021726
021730
021734
021740
021742
021746
021750
021752
021754
021762
021764
021766
021770
021772
021774
022000
022002
022006
022010
022014

BEQ

PAGE

WORD COUNTER
SECTOR OF EXPECTED HEADER
VE EXPECTED HDR TO RO
EAR ALL BUT SECTOR

FPELE

2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2139
2140
2141
2142
2143
2144
2145
21646
2147
2148
2149

021664
021670
021672
021674
021676
021700
021702
021702
021704
021706
021710

001410
005744

LYY

2105
2106
2107
2108
2109
2110
2111
(&)
(5)
(5)
(5)

021654
021656
021660
021662

14:49

]

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

021650
021652
021654

30A(1052)
08-FEB-80
GLOBAL SUBROUTINES

(YR

2102
2103
2104

MACY11

(ZRLJBO RLO1/02 DRIVE _TEST 2
(ZRLJIB.MAC
07-DEC=79 09:06

ST IF AT SECTOR 40
- SKJP

JCLEAR SECTOR TO O
;BUMP HDR WORD COUNTER
;DEC_HEADER COUNT
;LOOP IF NOT YET DONE

cREMOVE ENTRY FROM SUBROUT STACK

sRESTORE REGISTERS

;TEST IF ERROR RETURN
;YES = SKIP

;ADD IN ERROR RETURN

sSET ERROR RETURN ADDRESS

POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
HDWRD1,R5
:START FOR POSITION HD BIT IN WD 1
; SKIP
BR
POSHDO

MOV

POSHDO: MOV
8IC
MOV
1%:
ASR
DEC
BNE
MoV
RTS

T.MP.RS ;START FOR POSITION HD BIT IN MP

R1,-(SP)
#~CHSSTAT,RS
#6,R1
RS
R1
1%
(SP)+,R1
PC

;STORE R1
;CLEAR ALL BUT HEAD SEL BIT
:SET SHIFT COUNT
sSHIFT FOR RIGHT JUSTIFY

;RESTORE R1
sRETURN

SEQ 0082

CZRLJBO RLO1/02 DRIVE_TEST 2
CZRLJB.MAC
07-DEC-79 09:06

MACY11 30A(1052)
O0B-FEB-80
GLOBAL SUBROUTINES

2151
2152

2153

2154

2155

2156
2157
2158
2159
2160
2161
2162
2163
2164

2165
2166

2167
2168
2169

2170

022056

010346

022062
022064
022072
022100
022104
022106
022110
022112
022120

005723
016663
162763
010337
010046
010146
010446
012737
004737

022056

022124
022126

022134
022136
022140
022142

2171

022154

2173
(&)

022162
022162

2172
(5)
(5)
(5)

2174
2175

2176
2177
2178
2179
2180

2181
2182
2183
(4)
(5)
(5)

(5)

022156

022164
022166
022170

022172
022176
022202
022204
022212
022214
022226

022230
022232
022236

001061
005301
001406
000761

012703
023 4
000000
012040

012701
004737
022274
032737
001016

001362
012704

012156

2188

022270

003016
000002
000004
003016

002620
002420

000002

003032

000001

003060

016262

5%:

7%:

000062
016262
000001

.} H
003060

022260
022262
022264
022266

104456
023446
000000
012226

022274
022300
022306
022310
022312
022314

005037
162737
012604
012601
012600
012603

005337

TST
MOV
suB
MOV
MOV
MOV
MOV
MOV
JSR
10%
BIT

003060

003254

003032
000002

8$:

118:

003016

1C$:
9%:

MoV

R3,-(SP)

; STORE R3

SSINDX ,R3

;GET SUBROUTINE INDEX

#DRDYMSK,T.CS

;CHECK IF READY

(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK (R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE IT BACK
RO,-(SP)
R1,-(SP)
R4 ,~(SP)
#2 ,ERRSWI
JSET FOR NC ERROR RETURN
PC,GSTAT
;GET DRIVE STATUS
9%
R1
73
M

JYES -~ SKIP
;DEC WAIT COUNT
;SKIP IF O

#MDRDY ,R3

.WORD
LWORD
.WORD

10020
0
ERR3

108
BIT
BNE
WAITMS
DEC

#50. ,R1
PC,GSTAT

;SET WAIT COUNT FOR 5 SECONDS
;GET DRIVE STATUS

#DRDYMSK,T.CS
8%
#1
R1

;TEST IF DRIVE READY
;YES - SKIP
SWAIT 100 MS
;DEC WAIT COUNT

ERRHRD
TRAP

MOV
JSR

10020., ,ERR3
CSERHRD

6$
#C5SEC R4
10021.,,ERRS

:SET NAME MESSAGE PTR
;REPORT READY ERROR

;LOOP UNTIL TIME DONE
sSET CONDITION AFTER 5 SECDS

CSERHRD
10021

LWORD

BR
BI7
BEQ
ERRHRD

118
#ANYERR,T.CS
10%
10022.,.ERR6

SEXIT
;JTEST IF ANY ERROR SET
;NO = SKIP
;REPORT ALL ERRORS

ERRCNT

;DEC FOR DOUBLE ERROR REPORT

WORD

100000

SEQ 0083

MOV

TRAP
.WORD

000000

000410
032737
001406

MOV

BNE
MOV
ERRHRD

010673

PAGE 1-48

FROM THE CALLING ROUTINE IN R1.

WAITUS

007760

WAIT FOR READY ROUTINE. DURATION OF WAIT PASSED TO THE ROUTINE

BNE
DEC
BEQ

005301

022264

022242

PDYWAIT:

104456

104456
023445

022246
022250
022256
022260

2189
2190
2191
2192
2193
2194

022274
032737

022236
022240

2184
2185
2186
2187
(4)
(5)
(5)
(5)

013703

14:49

TRAP
LWORD
WORD
.WORD

DEC

CLR
SuB
MOV
MOV
MOV
MOV

ERRS

CSERHRD
10022
O
ERR6

ERRSWI]
#2,SSINDX
(SP)+ R4
(SP)+,R1
(SP)+,RQ
(SP)+,R3

;CLEAR FOR ERROR ERROR RETURN
SJREMOVE ENTRY FROM SUBROUT STACK
JRESTORE REGISTERS

JRESTORE R3

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLUB -MAC
07-DEC~79 09:06

022316
022322
022324
022330
022332
022336

005737
001403
063716
000207
017616
000207

TST

003032

BEQ

003032
99%:

000000

ADD
RTS
MOV
RTS

14:49

I4
PAGE 1-49

ERRSWI
99%
ERRSWI, (SP)

;TEST IF ERROR RETURN
JYES = SKIP

a(SP), (SP)

sSET ERROR RETURN ADDRESS

;ADD IN ERROR RETURN

GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYL INDER
(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
NUMBER IN_CURCYL.
R3,-(SP)
;STORE REGISTERS
ETPOS MoV
SSINDX R3
MOV
:GET SUBROUTINE INDEX
TST
(R3,+
:BUMP IT FOR NEXT ENTRY
MOv
2(5P),SUBSTK (R3)’ : INSERT THIS CALL
#4,SUBSTK (R3)
;ADJUST IT TO CALLING LOCATION
suB
R3,SSINDX
MOV
:STORE IT BACK
RO,=(SP)
MOV
R5,=(SP)
MOV
PC,XRDHD
;DO READ HEADER
JSR
65%
HDWRD1,R3
MOV
;GET HEADER WORD
#7 RS
MOV
JSET SHIFT COUNT
R3
ASR
'A ¥
sSHIFT TO RIGHT JUSTIFY
R5
DEC
43
BNE
#177000,R3
8IC
R3.CURCYL
MOV
:STORE AS CURRENT CYLINDER
#2,SSINDX
65$%:
suB
;REMOVE ENTRY FROM SUBROUT STACK
(SP)
+ RS
MOV
JRESTORE REGISTERS
(SP)+,R0O
MOV
(SP)+,R3
MOV
;TEST IF ERROR RETURN
TST
ERRSWI
99%
8EQ
JYES = SKIP
ADD
ERRSWI, (SP)
;ADD IN ERROR RETURN
[~ L TR T

2195
2196
2197
2198
2199
2200
2201

08-fF£B-80
MACY11 30A(1052)
GLOBAL SUBROUTINES

003016

000002
000004
003016

002420
002420

021024
003066
000007

177000
003120
000002

003016

003032

RTS
MOV
RTS

000000

003016

022512

010337

022516
022524
022530
022532
022540
022542
022542
022544
022546

012737

004737

022556
023737
001406
104456

023446
000000

000002
000004
003016

002420

000002
022340

003032

003116

003120

a(SP) ,(SP)

:SET ERROR RETURN ADDRESS

VERIFY POSITION ROUTINE. READS A HEADER (USING GETPOS) AND
CHECKS HEADS ARE POSITIONED AT NEW CYLINDER (CURCYL = NEWCYL).
VERPOS: MOV
R3,~(SP)
;STORE R3
;GET SUBROUTINE INDEX
MOV
SSINDX R3
TST
(R3)+
:BUMP IT FOR NEXT ENTRY
MOV
2(SP) ,SUBSTK(R3) 2 INSERT THIS CALL
#4,SUBSTK (R3)
suB
;ADJUST IT TO CALLING LOCATION
MOV
R3,SSINDX
$STORE IT BACK
MOV
JSR

#2 ERRSWI

;SET FOR NO ERROR RETURN
JGET POSITION

MP
BEQ
ERRHRD

NEWCYL, CURCYL
1%
10022., ,ERR8

;CHECK IF CURRENT CYL IS NEW (YL
;YES - SKIP

65%

TRAP

. WORD
.WORD

PC,GETPOS

C$ERHRD
80022

SEQ 0084

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DEC-79 09:06

(S)

2249
2250
2251
2252
2253
2256
2255
2256
2257
2258
2259
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277

022550
022552
022556
022556
022564
022566
022572
022574
022600
022602
022606

013160
005037

003032

162737

000002

012603
005737
001403
063716
000207
017616
000207

MACY11 30A(1052)

OB-FEB-80

GLOBAL SUBROUTINES

003016

1%:

65%:

99%:

000000

PAGE 1-50

SEQ 0085

ERRS
ERRSW]

:CLEAR FOR ERROR ERROR RETURN

SuB
MOV

#2,SSINDX
(5P)+,R3

;REMOVE ENTRY FROM SUBROUT STACK
*RESTORE R3

BEQ

998

JYES - SKIP

MOV

a(SP), (SP)

s?g

003032

.WORD
CLR

TST

003032

14:49

RTS

ERRSWI

E§st1.<sp>
PC

*TEST

ERROR RETURN

*ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

?5A?BG%% HEADERS ROUTINE. 40 HEADERS ARE READ AND STORED
022610
022612
022676
022620
022626

022634

022640
022642
022644
022646
022654
022660
022666
022672
022676
022702

022710
022716
022724
022730
022734
022740
022742
022750
022756
022764
022772
022774
023000
023002
023010
023014

010346
013703
005723
016663
162763
010337
010046
010146
010446
012737
012701

052737
012703
013704
062704
012737
053737
042737
005037
005037
005737
001403
052737
013762
013762
032762
001003
004737
023116
013762
012700
032762

012603
104456

023451
000000

RDALHD: MOV

MOV

003016
000002
000004
003016

002420
002420

000002
000050

003032

100000

004102
003042
000006
000010
003046
002000
003052
003054
003126
000020
003054
003052
000200

020276
003050
077777
000200

016024
016056

TST

000004

;BUMP IT FOR NEXT ENTRY

*GET SUBROUTINE INDEX

MOV

#60. R

MOV
ADD

MOV
BIS

8IC

CLR
CLR
TST

3$:

(R3)+

2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
sSTORE IT BACK

BIS
MOV

003050
003050
003050

;STORE REGISTERS

SSINDX,R3

MOV
sue
MOV

MOV
MOV
MOV
MOV

003020

R3,-(SP)

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

#HDRGO,OPFLAG
#1BUFF .R3

;SET FOR NO ERROR RETURN

+SET HEADER COUNT

#10,L.CS
RLDRV,L.CS

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

L.BA
L.DA
DESHD

;CLEAR BA
sCLEAR DA
;TEST IF HEAD O

RLBAS ,Ré4
#RLMP R4

#81T10,L.Cs

;CLEAR FOR DRIVE 4 - 7 SPEC'D

8EQ
8IS
MOV
MOV

3s
#HDSEL ,L .DA
L.DA,RLDA(R2)
L.BA.RLBA(R2)

BNE
ggg

6$
PC.RDYCHK

;YES - SKIP
‘ELSE CHECK READY

MOV

L.CS,RLCS(R2)

;LOAD RLCS REG

BNE
DEC

8$
RO

;YES < SKIP
*DEC COUNT

BIT

MOV
BIT
BNE
JSR
JSR
MOV
ERRHRD
TRAP

.WORD
.WORD

;YES - SKIP
sELSE INSERT HEAD 0
;LOAD RLDA REG
:LOAD RLBRA

#CRDYMSK ,RLCS (R2)

STEST IF CONTROLLER READY

“SET COUNT FCo WAIT
#77777 R0
#CRDYMSK ,RLCS(R2Y ; CHECK THAT OPERATION COMPLETED
78
PC,READRL
PC.WAITIN
(SP)+,R3
10025.,,ERR1
CSERHRD

10025
0

*SKIP IF NOT YET 0
*ELSE GET ALL REGISTERS
*ELSE WAIT FOR TIMEOUT
;GET RESULT MESSAGE POINTER

CZRLJBO RLO1/02 DRIVE_TEST 2
CZRL.B -MAC
07-DEC-79 09:06

307

023050
023052
023056
023060
023004
023066
023066
023070
023072
023074
023076
023102
023104
023106
023110
023112
023114
023116
023124
023126
023130
023132
023134
023140
023142
023146
023150
023154

011724
005037
000417
005737
100007

MACY11 30A(1052)
08-FEB-80
GLOBAL SUBROUTINES
.WORD

003032
8$:

003060

003032
12%:

000002

003016

65%:

003032

000000

99%:

7
PAGE 1-51

ERR1

SEQ

gggsux

;CLEAR FOR ERROR RETURN

8PL
ERRHRD

T.CS

128
10026.
, ,ERRG
CSERHRD
10026
0
ERRG

;TEST

gggsux

;CLEAR FOR ERROR RETURN

(R&4), (R3) +

;STORE HEADER WORDS

;DEC HEADER COUNT

#2,SSINDX
(SP)+ R4
(SP) +,R1
(SP)+,R0
(SP)+,R3
ERRSW!
99%
ERRSUI.(SP)

;REMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

géSP).(SP)

;SET ERROR RETURN ADDRESS

TST

.WORD
.WORD
. WORD
CLR
BR
MOV
MOV
MOV
DEC

BNE
sus
MOV
MOV
MOV
MOV
TST

003032

CLR
B8R

TRAP

104456

023452
000000
012226
005037
000405
011423
011423
011423
005301
001332
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

14:49

BEQ
ADD
RTS
MOV
RTS

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

FOR ANY ERRORS

sNO - SKIP

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

GENERATE DATA ROUTINE. PATTERN 10 BE GENERATED IS GIVEN
{z THE gORD FOLLOWING THE CALL. 128 WORDS ARE GENERATED
023156
023160
023162
023164
023170
023172
023174
023200
023202
023204
023210
023212
023216
023220

023224
023226
023230
023232
023234
02324C
023244
023246
023252

010146
010346
010446
012701
012504
006304
016403
011321
001421
021327
001416
020427
001403
020427
002413
005723
012321
01321

012704

012703
000406
012703
000401

DATGEN: MOV
MOV
MoV
MoV
MOV
ASL
MOV
MOV

004502

002374

8EQ
cMP

177777
000010
000020

3%
000015
004502

004502

BEQ
P
BEQ
P
BLT
TST

R1,-(SP)
R3,~(SP)
R4 ,~(SP)
#OBUFF ,R1
(R5) +,R4
Ré

:SET POINTER TO OBUFF
;GET DATA PATTERN SELECTOR
sADJUST IT FOR INDEXING

PATTBL(R4)
,R3
(R3),(R1)+
5%
(R3) ,#-1

;GET ADDRESS OF PATTERN
sMOVE FIRST PATTERN WORD
sSKIP IF PATTERN IS O
JCHECK IF PATTERN IS ALL 1°'S

Ré #8.
33
R4, #16.
6%
(R3)+
(R3)+,(R1)+
(R3)+,(R1)+
#13. R4

;TEST IF PATTERN 5
;YES - SKIP
JCHECK IF PATTERN 9 OR 10
:NO = SKIP
;BUMP SOURCE POINTER
;MOVE TWO MORE WORDS FORM SOURCE
JSET _COUNT

#O0BUFF ,R3

JELSE SET OBUFF AS PATTERN SOURCE

ggBUFF.R3

5%:

:STORE REGISTERS

:YES - SKIP

JRESET POINTER
;GO TO FILL

NORA

(7RLJBO RLO1/02_DRIVE_TEST 2
CZRLJUB.MAC
07-DEC~79 09:06

2354
2355
2356

023254
023256
023262
023264
023266
023270
023274

005723
012704
012321
005304
001375
012703

MACY11

30A(1052)
08-FEB=-80
GLOBAL SUBROUTINES

68:

7%:
8$:

000017

004502
000160

108:

023306
023310
023312
023314

003016
000002 002420
000004 002420
003016
000001

003030
004502
004102
000001
000200

012701

010146

023512

003020

5$:

003032
000200

003020

9%:

012746

010577
003030
007624
011473
000005

062706

000014
000002 003016 15%:

013746
012746
012746
012746
010600
104414

2400

#15. R4
(R3)+,(R1)+
R4
8s
#OBUFF ,R3
#112. R4

BNE
MOV
MOV
MOV

108
(SP)+,Ré&
(SP) +.R3
(SP) +.R1

F[;I(E)\é

162737
012605
012604
012601
012603

é;zs».(mn

PAGE

1-52

SEQ 0087

;RUMP SOURCE POINTER

‘SET MOVE COUNT
"MOVE 15 WORDS INTO BUFFER

:SET SOURCE TO TOP OF OBUFF
*SET COUNT FOR REST OF BUFFER
"REPEAT PATTERN IN BUFFER

;RESTORE REGISTERS
:RETURN

DATA COMPARE ROUTINE. COMPARES THE CONTENTS OF

IBUFF AND OBUFF.

:
ERROR REPORTING IS LIMITED BY SOF TWARE PARAMETER.
DATCOM: MOV
R3,=(SP)
;STORE R3

78:
000001

(R3) +

MOV
MOV
DEC
BNE
MOV
MOV

RTS

;

023316
023320
023324
023326
023334
023342
023346
023350
023352
023354
023362
023366
023372
023376
023402
023406
023410
023412
023414
023416
023420
023426
023432

14:49

MOV
ST
MOV
SUB
MOV
MOV
MOV
MOV
BIS
CLR
MOV
MOV
MOV
MOV
TM
BNE
INC
DEC

BNE
BIC
ST
BNE
MOV
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
SUB
MOV
MOV
MOV
MOV

SSINDX,R3
*GET SUBROUTINE STACK INDEX
(R3)+
‘BUMP INDEX TO NEXT ENTRY
2(SP) ,SUBSTK(R3) " ; INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3.SSINDX
*STORE 1T BACK
R1.=(SP)
*STORE OTHER REGISTFRS
R4 .=(SP)
RS,=(SP)
#DATACMP ,OPFLAG ;SET DATA COMPARE FLAG
MORE CE
*CLEAR MORE ERROR FLAG
#OBUFF ,RS
*SET POINTERS TO DATA FOR COMPARE
#IBUFF ‘R&
#1_R3
;SET WORD COUNTER
#128. .R1
*SET COMPARE COUNT
(R4)+. (RS) ¢
*COMPARE DATA
108
*ERROR - SKIP TO REPORT
R3
]1

*BUMP WORD COUNT
*DEC COMPARE COUNT

58
*LOOP IF NOT 0
ERRSWI
STEST IF ANY COMPARE ERRORS
NO - SKIP
158
#128. ,R1
*SET REPORT VALUE
#FMT27,#TCERR,MORECE ,#RESEG,R1
R1,-(SP)
#RESEG,
= (SP)
MORECE
. ~(SP)
#TCERR.~(SP)
NEMT27.-(SP)
#5,-(SP)
SP.RO
C$PNTB
#14,SP
#2.,SSINDX
:REMOVE ENTRY FROM SUBROUT STACK
(SP)+,RS
"RESTORE REGS
(SP)+ R4
(SP)+.R1
(SP)+.R3
NUATACMP,OPFLAG :CLEAR DATA COMPARE FLAG

C(ZRLJBO RLO1/02 DRIVE TEST 2
CZRLUB.MAC
07-DEC-79 09:06

2401
2602
2403

2604

2405
2606
2407

023514

023520

023522
023526

023530
023534
023536

023544
023546
023550
023550
023552
023554
023556
023560
023564
023566
023570
023574

005737
001403
063716
00207
017616
000207
023737
002011
0264445

MACY11

30A(1052)
OB-FEB-80
GLOBAL SUBROUTINES

003032

TST
8EQ
ADD

003032
000000

003030

013570

PA GE 1-53

SEQ 0088

ERRSWI
99%
ERRSWI, (SP)

;TEST IF ERROR RETURN
JYES = SKIP

;ADD

IN ERROR RETURN

MOV

aéSP).(SP)

sSET ERROR RETURN ADDRESS

10%:

cMP
BGE
cMp
ERRHRD

MORECE ,DCL IMW
138
=(R4) ,=(R5)
10035., ,ERR10
L$ERHRD

JTEST IF COMPARE ERRORS LIMIT EXCEEDED
JYES - SKIP

RTS

TRAP

.WORD
.WORD
. WORD

CLR

003032

003030

99%:

104456

023463
000000
013320
005037
022425
000711
005237
000706

RTS

14:49

13%:

(MP
B8R
INC
BR

;SET PTRS BACK TO ERROR WORDS
;REPORT ERROR

60035

ERR10

ERRSWI
(R4)+,(R5)+
73
MORE CE
7%

;CLEAR ERROR SWIT(H

:BUMP PTRS PAST ERROR WORDS
;DO NEXT COMPARE
;BUMP _ERROR COUNTER
;DO NEXT COMPARE

(ZRLJBO RLO1/02 DRIVE TEST 2
(ZRLJB .MAC
07-DEC=79 09:06

2417
2418
2619
2420
2421
24622
2423
2424
2425
2426
24627

2428

2429
2430

2431
2632
2433
2634
2435
2436
2437
2438
2439
2440
2641
2642
2643
264ks
2645
2446
2647
2448
2449
2650
2651
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2664

2465

2666

2667
2468
3)

(5)

MACY1Y

30A(°052)
O0B-FEB-80
GLObAL SUBROUTINES

023576
023604
023606
023612
023620
023626

023630

023634
023636
023644
023646
023654
023656
023662
023664
023672
023700
23704
023706
023710
023712
023716
023720
023724
023730
923734
023740
023744
023746
023752
023754
023760
023764
023770
023772
023774
023776
024002
024004
024010
024014
024020
024024
024026
024032
024040
024042
024050
024054
024054
024056
024060
024062

012737
0004602
005037
012737
023737
001006
005737
001403
052737
000403
012737
010346
013703
005723
016663
162763
010337
010046
010146
010446
004737
024304
012703
013713
053713
042713
032723
001403
012723
000402
012723
013713
012704
006313
005304
001375
005737
001402
052713
053723
012713
005737
001402
012713
032737
001414
042737

012703
104456

023460
000000
011724

177777

003134

XWRITT: MOV
gp

020276

003050
003150
003046
002000
000004

00410

003150
003120

003126
004000

003020

000114

003150

003016

000002
000004
003016

002420
002420

3s:

000007

5%:

603126
000100
003130

7%:

177600

003134

177777
004000

173777
010501

003020
003020

8%:

SEQ 0089

#-1,TEMPY
XWRITT
TEMP1

MWTDATA, TEMP7
HLMTW, CURCYL

JSET SPECIAL WRITE FOR TIMING FLAG
;CLEAR SPECIAL WRITE FLAG

:SET FOR WRITE
JTEST IF CYLINDER 255 (BAD SEC)
JNO - SKIP
JTEST

#BADADD,OPFLAG
XREADG
#RDDATA, TEMP?7
R3,-(SP)

IF HEAD 1

:NO - SKIP

(BAD SECTOR FILES)

;SET BAD ADDRESS FLAG
JSKIP TO EXECUTE
;SET FOR READ

;STORE R3

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

#4,SUBSTK (R3)

R3,SSINDX

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

;ADJUST TO POINT TO CALL
:STORE IT BACK

;STORE OTHER REGISTERS

;CHECK IF DRIVE READY

MOV
MOV
BIS
BIC
BIT

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

;GET ADDRESS OF LOAD REGS

MOV
BR
MOV
MOV
MOV
ASL

¥IBUFF, (R3)+
4

BEQ

A ¥

PAGE 2

PC,RDYCHK

65%

004502
003120

WRITE AND READ DATA ROUTINE.

XWRITE: CLR
XWRITT: MOV
cMP
BNE
TST
BEQ
BIS
1%:
BR
MOV
XREAD:
XREADG: MOV
MoV
1ST
Mov
sSuB
MOV
MOV
MOV
MOV
JSR

003134
000112
002316

14:49

DEC
BNE

TST
BEQ
8IS
BIS
MoV
18T
BEQ
MOV
8IT
8EQ
8IC
MOV
ERRHRD
TRAP
.WORD
.WORD
.WORD

lglr?.(R3)+
3

+
F
, (R3)
#OBUF

(R3)
, YL
CURC

#7 R4

(RS)

sSET COMMAND

: INSERT DRIVE NUMBER

;CLEAR FOR DRIVE 4 ~ 7 SPEC'D
sTEST IF WRITC DATA
;YES - SKIP
cELSE SET BA FOR READ
;SET BA FOR WRITE

sGET CURRENT CYLINDER
;ALIGN IT IN DA

STEST IF HEAD 0
;YES = SKIP
AHSMSK
, (R3)
;SET FOR HEAD 1
DESSEC . (R3)+
; INSERT DESIRED SECTOR
#177600. (R3)
; INSERT WORD COUNT
TEMP1
+CHECK IF SPECIAL WRITE FOR TIMING
8s
:NO - SKIP
177777, (R3)
;ELSE SET FOR 1 WORD TRANSFER
sgADADD,OPFLAG ;TEST IF BAD ADDRESS FLAG SET
:NO - SKIP
#*CBADADD ,OPFLAG
:CLEAR ALL BUT THIS FLAG
SMIRTAB,RS
sSET RESULT MESSAGE POINTER
2.
. .ERR1
1003
C$ERHRD

(1)0032
ERR1

CZRLJBO RLO1/02_DRIVE_TEST 2

CZRLJB.MAC

2469
2470
2471
2472
2473
2474
2475
2476
477
2478
2479
2480
2481
24,82
2483
(4)

(5)
(5)
(5)

2484
2485

2486

2487

2488

2489
(&)

(5)
(5)
(5)
2490

2491
2492
2493
249,
2495

2496
2497

2498

(4)
(5)
(5)
(5)
2499
2500

07-DEC~79 09:06

024064
024070
024072
024076
024102
024104
024110
024114
024120
024124
024136
024142
024144
024150
024152
024152
024154
024156
024160
024162
024164
024172
024174
024200
024204
024204
024206
024210
024212
024214

003020

CLR

2s:

003022
003134

014362

005737
001010
004737
012603

000006
000004
000002
000000

012704
104456
023460
000000
012156

024220

104456
023457
000000
012226
005037
162737

012603

DONE

~(R3J ,RLDA(R2)
~(R3).RLBA(R2)
-(R3) .RLCS(R2)
#3000,
14%
PC,WAITIN
(SP)+,R3

- . CSERHRD

-WORD 10032 MWORD. O
-WORD - ERRS

003060

JSR.GAS

BIT-

:CHECKTM IF INTERRUPT

¢GET RESULT MESSAGE

TEST IF DRIVE READY
= SKIP
[4 YES
[

[

s SET RESULT MESSAGE
CONDITION AFTER DATA XFER

[

MOV- - #50..R1

;SET WAIT COUNT FOR 5 SECDS

. PC,GSTAT

:GET DRIVE STATUS

.#DRDYMSK T.CS.

‘:TEST IF DRIVE READY NOW

.- 208"
.BNE

. DEC s R1 . 178 BNE -

. MOV~ -’#CSSEC.R4 -~ ERRHRD. 10033...ERR5

¢YES = SKIP
sDEC WAIT COUNT

sLOOP IF NOT TIME DONE
sSET CONDITION 5 SECONDS

: -CSERHRD
TRAP

+WORD 10033
SWORD- 0

)

. UORD "ERRS

20%:

S CLR

IST.

WORD

003016

64%:

65%:

ERRSUI

-T.CS

. BPL: TM ‘65
- ERRHRD 10031...ERR6
~
TRAP
-CSERHRD

".WORD

000002

208

MoV
#CAFDT,R&
ERRHRD 10032.
. ,ERRS

,178:-

sWAIT 300MS FOR INTERRUPT

#MDRDY, R3

MOV

000062
016262

003032

#DRDYMSK, T.CS

BNE

TRAP

:LOAD RL REGS

sWAIT FOR INTERRUPT

64%

8IT

007760
010662

$CHECK IF SPECIAL WRITE FLAG SET
$YES = DO NOT START WRITE

10030
O
ERR1

B8R

14$:

sCLEAR INTERRUPT FLAG

CSER

+WORD
WORD
+WORD-

003060

sCLEAR ALL FLAGS

¢YES - SKIP

10030.6.ERR1

TRAP

000001

PAGE 2-1

OPFLAG

ERRHRD

104456
023456

648
DONE
TEMP1
658
(R3) ,RLMP(R2)

BNE
JSR
MOV

016056

14:49

BR
CLR
ST
BNE
MOV

MOV
MoV
MOV
WAITUS

10$:

003022

024224 024226
000001
024234
024236
024240
024242 012704 010673
024246
024246 104456
024250 023461
024252 000000
024254 012156
024256 005037 003032
005737 003060
100006

024320

MACY11 30A(1052) 08-FEB-80
GLOBAL SUBROUTINES

SUB

MOV .
MOV
MoV
MCV

*CHECK IF ANY ERROR

NO = SKIP

10031

.WORD - ERR6

" CLR

+CLEAR ERROR SWITCH

.ERRSWI

- #2,SSINDX

“(SP)+,R4
(SP)+.R1
(5P)+,RO
(SP)+.R3

sCLEAR ERROR SWITCH
sREMOVE ENTRY FROM SUBROUT STACK

;RESTORE REGISTERS

SEQ 0050

CZRLJBO RLO1/02 DRIVE_TEST 2
CZRLJB.MAC
0/=DEC-79 09:06
2509

024322

005737

2510
2511

024326
024330

001403
063716

2513
gg;g

024336
024342

017616
000207

2512

2516
2517
2518
2519

024334

000207

2520
2521
2522
2523
2524
2525

024344
024346
024350
024352
024356
024362
024366
024370

010046
010146
010346
005037
012703
022713
001005
012703

2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538

024400
024402
024406
024412
024414
024416
024420
024424
024426
024432
024436
024440

001431
013700
012701
006300
005301
001375
005737
001402
052700
053700
022300
001402

2526 024374 022713

2539 024442 101005
2540 024444 000774
2541 024446 012737
2542 024454 000403

003032

000000

003116
000007

003706

2552

024506

017616

000000

Sggz

024504

024512

000207
000207

2560
2561
2562
2563
(8)
(7)

024514

024516
024522
024524
024530
024530
024534

010446

7%:
8$:

003034

12%:

158:
208:

003034

000002

2556
2557
2558
2559

5%:

005737
001433
012704

003016

012746
012746

007514
011212

000002

a(SP), (SP)
PC

;TEST IF ERROR RETURN

SYES - SKIP
JFLSE ADD IN ERROR RETURN

BAD SECTOR CHECK ROUTINE. CHECKS IF SECTOR SPECIFIED IN CURCYL,
DESHD, AND DESSEC 1S LISTED AS BAD IN THE BAD SECTOR FILFS.
MOV
RO,=(SP)
:STORE REGISTERS
MOV
R1.=(SP)

48:

000100
003130

020327
003342
012603
012601
012600
005737
001003
062716

998
ERRSWI, (SP)

:
;
BSCHK:

003126

024456
024462
024464
024466
024470
024472
024476
024500

RTS

PAGE 2-2

MOV
RTS

28:

177777

000001

ERRSWI

99%:

003036
003706
177777

003512

14:49

BEQ
ADD

003032

2543
2544
2545
2546
2547
2548
2549
2550
2551

MACY11 30A(1052)
08-FEB-80
GLOBAL SUBROUTINES

MOV
CLR
MOV
cMP
BNE
MOV

R3.~(SP)
BSFLAG
#FBSFIL ,R3
#-1, (R3)
4
#SBSF
IL ,R3

BEC
MOV
MOV
ASL
DEC
BNE
TST
BEQ
BIS
8IS
cTMP
BEQ

208
NEWCYL ,RO
#7,R1
RO
R1
5%
DESHD
7¢
#8176.R0
DESSEC,RO
(R3)+,R0
12%

cTMP

B8HI
B8R
MOV
B8R

CMP
BGT
MOV
MOV
MOV
TST
BNE
ADD
RTS

#=1, (R3)

15%
8$
#1 ,BSFLAG
208

R3,#FBSFIL
2$
(SP)+,R3
(SP)+.R1
(SP) +.RO
BSFLAG
99%
#2.(SP)
PC

;CLEAR FLAG
*GET POINTER TO FACTORY FILE
“CHECK IF ALL ONES
*NO SKIP TO TEST
“ELSE SET POINTER TO SOFTWARE FILE

SCHECK IF ALL ONES

‘YES - EXIT
‘BUILD HEADER OF ADDRESS IN QUESTION
*POSITION CYLINDER

;CHECK iF HEAD 0
SYES - SKIP
* INSERT HEAD 1
*INSERT SECTOR
*CHECK THIS WORD IN FILE
*YES ~ EXIT.ERROR

*EXIT~ NO ERROR

;SET ERROR FLAG

26O TO EXIT

*DONE BOTH FILES?
*NO GO DO SOF TWARE FILE
*ELSE RESTORE REGISTERS
;CHECK IF ERROR
SYES - SKIP
"ELSE BUMP ERROR RETURN

99%:

MOV

;
:

REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCE AND
OPERATION BEING PERFORMED PORTION OF ALL

;
RPTOP:

RTS

(SP), (SP)

;ADJUST FOR ERROR RETURN

ERROR MESSAGES.
MOV
R&,=(SP)

TST
BEQ
MOV
PRINTB
MOV
MOV

SSINDX
1%
#2 R
#FMTO,#SEQMES
#SEQMES,
- (SP)
HFMT9,=(SP)

:SET FOR ERROR RETURN

:TEST SUBROUTINE INDEX 0
‘SKIP IF 0
SET INDEXER TO FIRST ENTRY
-PRINT ''SUBROUTINE CALL SEQ

SEC 0091

(ZRLJBO RLO1/02 ORIVE TEST 2
(ZRLUB .MA(C
07-DEC-79 09:0¢
(6)

(3)

(&)
(&)

2564
(8)

(7)

(6)

%)
(4)

2565

024540
024544
024546
024550
024554
024554
024560
024564
024570
024572
024574
024600
0246604
024610

026612
024612
024616
024622
024626
024632
0246634
0246636
024642
024650
024654
0246660
024664
024666
024674
024700
024702
024710
024714
024716
024724
024724
024730
u24734
024740
024744
024746
024750
024754
024760
024762
024770
024772
024776
025000
025006
025010
025014
025020

025024
025026
025030

012746
010600

00000¢

062706

000006

104414

016446
012746
012746
010600

002420
011365
000002

062706
062704
020437
003761

000006
000002
003216

012746
013746
012746
012746
010600

006591
003026
011015
000003

062706
042737
013701
042701
022701
001003
052737
022701
001003
052737
022701
001003
052737

000010
030000
003050

016146
012746
012746
012746
010600
104414
062706
020127
001007
032737
001403
012701

002240
005527
010773
000003

104414

106414

0004 36
032737
001424
013704
012701
032704

MAT Y11

08-FeB-80
C OBAL SUBROUTINFS

1%:

003020

177741

000006

003020

020000
000014

003020

020000

003020

2%:

20%:
2°%:

S0
000010

003054

003020
000020
000001

003020

8
PAGE 2-3

‘5 ‘6SP)

ADD
PRINT8
MOV
MOV
MO
MOV
TRAP
ADD
ADD
(MP
BLE
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
8IC
MOV
BIC
(MP
BNE
BIS
M

#6,SP
#FMT16, SUBSTK (R&G)

BNE
BIS
(Mp
BNE
81S

PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

48:

,~(SP)
STK
(RC)
SUB

JPRINT CALLING LOCATION

#FEMT16,-(SP)

#2,-(SP)

SP,RO
(SPNTB

#6,SP
#2 R4
R4, SSINDX

;BUMP INDEX
sCHECK TF ALL PRINTED

:LOOP IF NOT ALL PRINTED YET

WFMT4 ERHEAD ,#TSTLAB

#TSTLAB,-(SP)

;PRINT ERROR HEADER

ERHEAD,~(SP)
#FMTS ,-(SP)
#3,-(5P)

SP.RO

CSANTB
#10,5P
#SEEKOP 'RORWOP,OPFLAG
:CLEAR SK & RD OR WRT FLAG
L.CS,R1
;GET COMMAND EXECUTED

2177741 .R1

SSTRIP ALL BUT FUNCTION (ODE

#SEEKOP,OPFLAG
#12.R1

:ELSE SET SEEK rl AG
STEST IF WRITE

#RORWOP,OPFLAG
214 ,R1

:SET RD OR WRT FLAG
STEST IF READ

#6.R1
2$

“:TEST IF SEEK OPERATION
:NO - SKIP

208
228

‘N0 - SKIP

*NO - SKIP

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

0PMSGS(R1) ,~(SP)

MMOPER ,~(SP)
#FMTY,-(SP)
#3,-(SP)

SP,RQ
CSPNTB

#10,SP
R1.44

JCHECK IF GET STATUS
‘NO - SKIP

43
gl6,R1

'NO - SKIP
:SET 1O PRINT WITH RESET

#COMPOP ,OPFLAG
8

TEST IF ANY OTHER OPERATION
JNO -~ SKIP

#20,R]

;PRESET THE POINTER

OPFLAG,R4

5%:

SEQ 0052

C3ANTB

#DRSET,L.DA

000016

007777

MOV
MoV

TRAP

010000
000012

14:49

3(. €1052)

#MIT00,R4
6%
él}“*

JTEST IF RESET

INCLUDED

;SET UP TO DETERMINE WHICH ONE

JCHECK THE BIT
:IF SET - SKIP
;BUMP POINTER

CZRLJBO RLO1/02_DRIVE _TEST 2
CZRLJB.MAC
07-DEC~79 09:06
2596
2597
(8)
(7)

(6)

(3)
(4)
(4)

2598
2599
2600
2601
(8)
(7

025032
0¢5034
025034
025040
025044
025050
025052
025054

mMACY11

000772
016146
012746
012746
010600
104414

30A(1052)
08-FER-80
GLOBAL SUBROUTINES
6%:

002240

011007
000002

062706
032737
001415
012701

000006
100000

016146
012746
012746

002240
011007
000002

003020

8%:
9%

003126
007455
003124
007450
003122
007442
003114
007473
011233
000011

062706
032737
001424

000024
020000

013746
012746
013746
01274¢
013746
012746
012746
012746
010600

003130
007461
003126
007455
003120
007466
011562

062706
004737
012604
000207

000020
025744

104414

2612
2613
2614

2615

#6,SP

MOV
PRINTB
MOV

JELSE PRINT |7
#50,R1
#FMT2,0PMSGS(R1)
OPMSGS(R1) ,~(SP)

8IT
BEQ

B8R

BIT
BEQ
PRINTB
MOV

MOV
MOV

(S$PNTB
#6,SP

15$

;SKIP

#SEEKOP,COFLAG -TEST IF SEEK
15$
‘N0 = SKIP
#FMT13, #FRMJO ,OLDCYL , #DIFWD DESDIF ,#SGNWD , DE SSGN, #HDWD , DE SHD
DESHD,~(SP)

, - (SP)
#HOWD

DESSGN,=(SP)

, = (SP)
NFRNO
#FMT13,-(SP)
#11,-(SP)

DESDIF ,~(SP)
#DIFWD,~(SP)
OLDCYL ,=(SP)

SP,RO

($PNTB

ADD

#264,SP

BEQ
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

:NO ~ SKIP
17%
#FMT22 ,#CYLWD,CURCYL
,#HDWD ,DESHD ,#SECWD ,DESSEC
DESSEC,=(SP)
#SECWD ,=(SP)
DESHD,
= (SP)
#HDWD
, - (SP)
CURCYL ,~(SP)
#CYLWD,~(SP)
#EMT22,=(SP)
#7,-(SP)
SP,RO

8IT

TRAP

17%:

;TEST IF 40 HEADER OPERATION
:NO - SKIP

NEMT2,~(SP)
#2,-(SP)
SP.RO

MOV
MOV
MOV
TRAP

000007

#HDR4LO,OPFLAG
108

#SGNWD
, ~(SP)

MOV

15%:

CSPNTB

MOV

MOV
MOV
MOV

003020

#FMT?2 OPMSGS(R1)

ADD

TRAP
ADD

108:

8
PAG. 2-4

OPMSSS(R1) ,-(SP)
NEMT2,-(SP)
#2,-(SP)
SP,.RO

MOV

003020

MOV
MOV
MOV
MOV

MOV
MOV

000006

013746
012746
013746
012746
013746
012746
013746
012746
012746
012746
010600

PRINTB

TRAP

000050

010000

B8R

14:49

ADD
JSR
z?g

#RORWOP ,OPFLAG

TEST IF READ OR WRITE SET

C$PNTB

#20,SP
PC,CLRPARM
égP)*,Rk

;CLEAR PARAM TABLE
JRESTORE R4

REPORT REASON ROUTINE

010146

PRINTS REASON PORTION FOR ALL ERROR REPORTS.

RPTRES: MOV

R1,-(SP)

:STORE R1

SEQ 0093

MACY11

(27LJB0O RLO1/02 DRIVE _TEST 2
CZRLJB.MAC
07-DEC~79 99:06

MOV

011000
000003

025336

J25340
025344
025350
025352
025356

MOV
MOV

TRAP

&N =2

225

000010

010565

012146
012746
012746
012746
010600
104414

#3,-(SP)
SP,RO
CSPNTB

;PRISET FOR FORMAT 11

BNE
MOV
DEC
BEQ

3$
NFMT12,R6
R3
6%

(R1)+ #MCYLOC

R&4,#RESE3,(R1)+
(Ri)+.~(5P)

Ré,=(SP)
#3.-(SP)
SP.RO
CSANTB
#10,SP
R&,#RESE4,(R1)+
(R)+,=~(sP)

MOV
MOV

R4, ~(SP)
#3.-(SP)

(R1)+.~(SP)

MOV

.DEC _PARAM COUNT
IF 0 ~ EXIT

A#FMT1,#RESES,(R1}+

;REPORT CONDITION

#RESES,~(SP)

NEMTT ,=(SP)
#3,-(SP)
SP.RO
(S$ANTB
#10,SP

(SP}+,R4

MOV

(SP)+,R3

RTS

MOV

;REPORT SB VALUE

CSPNTB

#10,5P
#2,R3

MOV

TRAP
ADD

~:REPORT IS VALUE

SP,RO

MOV
MOV
MOV

;CHECK IF REPORTING CYLINDER LOC

;NO = SKIP
JELSE CHANGE TO FORMAT 12
;DEC _PARAM COUNT
JIF 0 = EXIT

#RESEL
- (SP)

BEQ

MOV

sYES = SKIP REST OF REPORT

#RESES.-(SP)

MOV
MOV
MOV
TRAP
ADD
PRINTB
MOV

ADD
SuB

6%:

#EMT1.1,-(SP)

#FMT11,R4

PRINTB

000010

SPRINT NAME

(R1) ,=(SP)
MASLT,=(SP)

MOV

TRAP

010572
010773
000003

:GET NUMBER OF PARAM

#FMT1.1,#MRSLT,
(R1)

;TEST IF MESSAGE IS NO DRV STATUS

MOV

000010
000002

(R1)+,R3

*STORE R&4
“GET START OF PARAM

(R15.#MNORST

MoV

000003

t 0 DOJL

;STORE R3

MOV

000003

8
PAGE 2-5

R4, -(SP)
#RESPARM,R1

8EQ

PRINTB
MOV

010561

R3,-(SP)

#10,5P

14:49

ADD

cmP

wviny

—-—
O

2621
2622
2623

MOV
MOV

005536

(4)
(4)

MOV

PRINTB

(3)

003076

—t b
O-

(8)

(7.
(6)

MOV
MOV

O OO O%

(9)

MOV

025304
025306
025310
025314
025316
025316
025320
025324
025330
025334

-—
-

2616
2617
2618
2619
2620

08-FEB~-80
30A(1052)
CLOBAL SUBROUTINES

(SP)+,R1

:RESTORE REGS
JRETURN

REPORT PHYSICAL ADDRESS OF DEVICE UNDER TEST

AND ALL REGISTER CONTENTS.

RPTREM: ?EANTB
003047

8Jss

';g;?.lBASADD.RLBAS.#DRVNAM.<B,RLDRV+1>
RLDRV+1,(SP)

CZRLJBO RLO1/02 _DRIVE TEST
CZRLJB.MAC
07-DEC~7° 09:

aom 025516
9)
025522
(8)
025526

025532
025536
025542
025544
025546

025552
025552
025556
025562
025566
025572
025576
025602
025606
025612
025614
025616
025622
025622
025626
025632
025636
025642
025646
025652
025656
025660
025662
025666
025666

025672
025676
025702
025706
025712
025716
025722
025726
025732
025734
025736
025742

025744
025746
025752
025756
025760
025762
025764
025770

MACY11

30A(1052)
08-FEB-80
GLOBAL SUBRCUTINES

MOV
MOV
MOV
MOV
MOV
MOV

012746
013746
012746
012746
012746
010600
104414

062706

000014

012746
012746
012746
012746
012746
012746
012746
012746
010600
104414
062706

007455
007466
006255
006243
006250
006236
011046
000007

013746
013746
013746
013746
012746
012746
012746
010600
104414
062706

003056
003052
003054
003050
006262
011160

TRAP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

- (SP)
#DRVNAM,
RLBAS ,~(SP)
(SP)
, = DD
#BASA
#EMTS
. =(SP)
#5,-($P)
SP.RO
(SPNTB

ADD
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ADD

#22,5P

TRAP

104414

062706
0006207

RTS

003076

8
PAGE 2-6

#HDWD
.- (SP)
#CYLWD,=(SP)
M
. = (SP)
AMPNA
. - (SP)
#BANAM
.
- (SP)
#DANAM
.
= (SP)
#CSNAM
= (SP)
#FMTE,
#7.-(5P)
SP.RO
CSPNTB
#20,SP
A#FMTB.#LAB1,L.CS.L.DA,L.BA,L.MP
L.MP.=(SP)
L.BA.~(SP)
L.DA.=(SP)
L.CS.=(SP)
#LAB1 ,~(SP)
NFMTS.
- (SP)
#6,-(SP)
SP.RO
($PNTB
#16,SP
#FMT7.#LAB2,T.CS.T.DA,T.BA,T.MP,CURCYL
,DESHD
DESHD ,=(SP)
.- (SP)
CURCYL
i.MP,~{SP)
T.BA,=(SP)
T7.DA,=(SP)
1.CS.=(SP)
- (SP)
#LABS
(SP)
.NFMT7
#10,-(SP)
SP,R0

ADD
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000020

003076
000005

#14,SP
ADD
REPORT RL11 REGISTERS
PRINTB #FMT6, #CSNAM, ADANAM, #BANAM , AMPNAM , #C YL WD , #HDWD

013746
013746
013746
013746
013746
013746
012746
012746
012746
010600

010546
012701
012705
005021
005305
001375
012701
012605

14:49

CLRPARM:
2%:

($PNTB

CLEAR PARAMETER BLOCK FOR REPORTING

MOV
MOV

:STORE RS
RS,~(SP)
MOV
OF BLOCK
ADDRESS
:GET
#RE SPARM,R1
COUNT
*SET
#5 RS

DEC

CLR

BNE
MOV
MOV

(R1)+

:CLEAR WORD

28
#RESPARM,R1
(SP)+,RS

*LOOP UNTIL O
‘RESET POINTER
*RESTORE RS

:DEC COUNT

SEQ 0095

CZRLJBO RLO1/02_CRIVE _TEST 2
CZRLJB.MAC
07-DEC~79 09:06
2657

2658
2659

025772

025774

MACY11 30A(1052)

OB-FEB-80

GLOBAL SUBROUTINES

000207

RTS

ENDMOD

14:49

PAGE 2-7

SE@ 0096

CZRLJBO RLO1/02 DRIVE TE ST 2
CZRLJUB.MAC
07-DEC-79 09:06

2661
2662
2663
2664
2665
2666
2667
(3)

2668
2669
2670
2671
2672

2673
2674
2675

2676

025774
025774
025774
025774
026002
026006
026012
026014
026020
026022
026026
026030
026030
026030
026032
026040
026044
026046
026052
026060
026062
026066
026070
026074
026100
026100
026102
026104
026106
026110
026112
026114
026116
026130
026132
026136
026142

2703

026144
026150
026152
026156
026160
026160
026162
026164
026166
026170

2705

026176

2702
(4)

(5)
(5)
(5)

MACY11

026170

30A(1052)
(08-FEB~-80
GLOBAL SUBROUTINES

104402
012737
004737
026170
012701

032762
001414
004737
026170
012703
012704

006507
016214
016232

.SBYTL

«TEST 1

BGNMOD

HRDWTST

MOV
JSR

T1978:

017732

BGNSUB

177777
017160

JSR
T1965%
JSR
CLR
JSR
T1965%
TRAP

003116

000002
000001
016262

PC,CHOSHD
RS
PC,POSHDS

;GO CHOSE HEAD
JCLEAR FOR POSITION TO O
;POSITION HEADS

€$8suB

T1.1:

:INITIALIZE WAIT COUNT

BEQ

:NO~SKIP

MOV

#MDRDY ,R3

;SET NAME MESSAGE PTR

ERRHRD

301.,,ERR4

;JREPORT READY ERROR

.WORD
WORD

001406

PC,GSTATR

;SET ERROR HEADER
JINITIALIZE TEST
;CLEAR DRIVE

#2 R

TRAP

9%:

#P2TO3E ,ERHEAD
PC,TSTINT

MOV

104456

Ti::

;SET FOR GUARD BAND SEEK

ggg

007760
010634

JTEST 1

#=-1 NEWCYL

8IT

B8R

PC ,XSEEK

;DO SEEK

#DRDYHSK.RLCS(RZS JTEST IF DRIVE READY
PC,GSTAT

#CTOMS R4
CSERHRD

;GET DRIVE STATUS

JSET CONDITION MESSAGE PTR

301

ERR4

60%

JEXIT TEST

129
#10.
8s
#150. ,R1
PC,RDYWAIT

JSKIP IF O
IWAIT IMS
;LOOP
;SET WAJT COUNT FOR 15 M3
:WAIT FOR READY & REPORT IF NOT READY

DEC

BEQ
WAITUS
B8R
MOV
ggg

SEQ 0097

*s0OUTER GUARD BAND DETECTION

MOV

ggg

8%:

000455
000000
012106
000427
005301

PAGE 3

CZRLJBO RLO1/02 DRIVE TEST 2

003026

020552

LTITLE

BGNTST
012737
004737
004737
026214
004737
005005
004737
026214

14:49

;DEC WAIT COUNT

000750
012701
004737
02617¢C

000226
022054

004737

022340

égg

PC,GETPOS

JGET POSITION

003120

ST
8EQ
ERRHRD

CURCYL
15%
302..,ERR8

;CHECK IF HEADS STILL AT O
;YES-SKIP
JELSE REPORT CYLINDER ERROR

026170
005737
001404

12%:

TRAP

104456

.WORD

000456
000000
013160

012737

158
000002

003032

608 :

ENDSUB

CSERHRD

302

.WORD

MOV

#2 ,ERRSWI

.WORD

ERRS8
JINIT ERROR SWITCH

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DEC-79 09:06
(3)
(3)
2706
(3)

026176
026176
026200
026200

(3)
2707
2708

026202
026204
026210

2710
2711

026214
026214

2709

2712
2713
(3)
(3)
2714

026212

026214
026214
026214

MACY11

30A(1052)
*TEST 1
L10024:

104403
104410

000012
004737
026214

000702

104401

TRAP
ESCAPE
TRAP

020576
17%:
T1965%:
ENDTST
L10023:

O8-FEB~B80 14:49 PAGE 3-1
*+«0UTER GUARD BAND DETECTION
CSESUB
TST
CSESCAPE

.WORD
JSR
178

L10023-.
PC,SWAPHD

1197%

TRAP

CSETST

JEXIT TEST IF ERROR

;GO SWAP TO HEAD 1 OR END TEST
;ABORT RE TURN

JREDO TEST

SEQ 0098

CZRLJBC RLO1/02_DRIVE TEST 2
CZRLJIB.MAC
07-DEC-79 09:06

2716
2717
2718
(3)

2719
2720
o721
2722
2723
2724
2725
2726
(3)
(3)
2727
2728
2729
2730
(3)
(3)
2731
2732

2733
(3)
2734
(2)
2735
2736
2737
2738
2739
2740
2761
2762
2743
2764
2745
2746
2767
2748
2769
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
(3)
(3)

2762

026216
026216
026216
026224
026230
026234
026236
026242
026246
026250
026250
026252
026254
026260
026264
026266
026266
026266
026270

026274

026276
026276
026300
026300
026302

MACY11 30A(1052)
«TEST

LSBTTL
BGNTST
012737
004737
004737

006525
016214
016232

003026

08-FEB-80

«TEST 2

BGNSUB

104402

004737
026414

022340

T206%:

;SET ERROR HEADER
JINITIALIZE TEST
JCLEAR DRIVE

JSR

PC,CHOSHD

;GO CHOSE HEAD

BEQ

pd 3

JYES - SKIP

TRAP

CSEXIT

103007

DESHD

L10025-.
LOLIMW,RS
PC,POSHDS

TRAP
égg

($8s5LUB
PC,GETPOS

JSR
120658

THIS IS HEAD O

;CLEAR TO POSITION HEADS TO LOLIMIT
;POSITION HEADS

12.1:

;GET POSITION

JCHECK IF

IN ERROR LOOP

TRAP

CSINLP

0, o
BNE
JSR

CURCYL ,NEWCYL
5%
PC ,ONSWAP

;CHECK IF POSITIONED AT DESIRED LOC
JNO ~ SKIP
JELSE SWAP NEW AND OLD CYLINDERS

INC

NEWCYL

;BUMP FOR ONE CYLINDER SEEK

g?EOMPLEgg
003116

JTEST IF

JELSE EXIT TEST

TST

.WORD
MOV

INLOOP

104420

:NO - SKIP

026310
026312
026316
026320
026326
026332
026332
026336
026340
026344
026350

023737
001003
004737
000405
013737
005237

003120

004737
026414
012701
004737
026414

017160

égg

PC,XSEEK

;DO SEEK

000226
022054

MOV

#150. .R1

JSET WAIT TIME 15 MS

026352
026356

004737
026414

022466

+SR
60%

PC,VERPOS

;G0 VERIFY POSITON

026360
026366
026370
026374
026376

032737
001406
004737
026414
004737
026414

000002

B8IT

HALLSEC ,MISWIW

023737

013562

003116

012737

000002

003032

103726

104403

020636

003120
003116

003116

5¢%:
-

B8R
MOV

JSR
608

013556

021460

11¢
60%:

ENDSUB

L10026:
12065%:

7%
CURCYL NEWCYL

PC,RDYWAIT

;SKIP
;FLACE CURRENT INTO NEW

:WAJT FOR READY

TEST IF CHECK ALL SECTORS

égg

118

PC ,RDALHKD

NO-SKIP

JSR

PC,VERHDR

:GO VERIFY HEADER

o)
BLO
MoV

HIL IMW,NEWCYL
1206%
#2 ,ERRSWI

JCHECK IF MHILIMIT REACHED
;NO-LOOP
JINIT ERROR SWITCH

TRAP

CSESUB

BEN

022610

CEQ D0QQ

«+[NCREMENTAL FOPWARD SEEK HEAD O
JTEST 2
12
#P2TOLE ,ERHEAD
PC,TSTINT
PC.GSTATR

EXIT

2%:

8
PAGE 3-2

MOV
JSR
JSR
TST

013560
017732

«*OUTER GUARD BAND DETECTION

T2065%

020552
003126

14:49

;GO READ ALL HEADERS

(ZRLJBO RLO1/02_DRIVE TEST 2
CZRLJB.MA(
07-DEC~79 09:06

2763
(3)
3)

026424
026424

026424

104401

MACY11 30A(1052)
*TEST 2
ENDTST
L10025:

O08-FEB-B0 14:49 PAGE 3-3
*«INCREMENTAL FORWARD SEEK HEAD O

TRAP

CSETST

SEQ 0100

CZRLJBO RLO1/02_DRIVE TEST 2
CZRLJB.MAC
07-DEC~79 09:06

2765
2766
(3)

2767
2768
2769
2770
2771

2772
2773
2774
(3)

(3)
2775
2776
2777
2778
(3)
(3)
2779
2780
2781
(3)
2782
(2)
2783
2784

2785
2786
2787
2788
2789
2790
2791

MACY11 30A(1052)
«TEST 3

.SBTTL
BGNTST

026426

026452
026456

012737
004737
004737
026634
004737
005737
001402

026460

104432

026426
026434
026440
026444
026446
026460

026462
026464
026470
026474
026476
026476
026476
026500
026504
026506
026506
02€510
026510
026512
026520

000152
013705
004737
026634
104402

004737
026624

006545
016214
016232

TST

8EQ

EXIT
TRAP

2%:

013562
017732

BGNSUB
T216%:

022340

PAGE 3-4

SEQ 0101

«+ INCREMENTAL REVERSE SEEK HEAD O

;TEST 3

#P<T0OSE ,ERHEAD

;SET ERROR HEADER
JINITIALJZE TEST
JCLEAR DRIVE

PC,CHOSHD

;GO CHOSE HEAD
;TEST IF HEAD O SELECTED
;YES - SKIP
JELSE EXIT TEST

PC,TSTINT
PC.GSTATR
DESHD

TST
CSEX]T

LWORD
MOV

L10027-.
HILIMW,RS

TRAP
JSR
608
INLOOP
TRAP

c$8suUB
PC,GETPOS

CURCYL ,NEWCYL

JSR
T2165%

PC,POSHDS

CSINLP

BNCOMPLETE
5%
8CC

;SET TO POSITION HDS TO HILIMIT
;POSITION HEADS

T3.1:

;GET POSITION
;CHECK IF

T3::

IN ERROR LOOP

:NO - SKIP

b}
PC,ONSWAP

sCHECK IF POSITIONED AT DES LOC
;NO - SKIP
:§k§g SWAP OLD AND NEW CYLINDERS

MOV
DEC
JSR
608

CURCYL ,NEWCYL
NEWCYL
PC,XSEEK

sPUT CURRENT INTO NEW
;DEC FOR ONE CYLINDER REVERSE SEEK
JSEEK TO IT

MOV

#150. ,.R1

;SET WAIT FOR 15 MS

JSR

PC.,VERPOS

SVERIFY POSITION

022610

8IT
BEQ
JSR

#ALLSEC ,OPFLAG
118
PC.,RDALHD

sNO=SK]P
JELSE READ ALL THE HDRS

021460

JSR

PC.,VERHDR

;VERIFY THE HEADERS

(MP

LOL 1MW,NEWCYL

sCHECK IF REACHED LOLIMIT
JNO - LOOP
JINIT ERROR SWITCH

TRAP

CSESUB

003120

026522
026526
026530
026536
026542
026546
026550
026554
026560

026562
026566

004737
026624

022466

026570
026576

032737
001406
004737
026624
004737
026624

000002

023737

013560

003116

000002

003032

104403

BNE
JSR

023737
001003
004737
000405
013737
005337
004737
026624
012701
004737
026624

103726
012737

«TEST 3

JSR
JSR
T2165%
JSR

020552
003126

14:49

*«INCREMENTAL REVERSE SEEK HEAD 0

MOV

003026

104420

103007

O0B-FEB-80

003116

020636
003120
003116
017160

003116

5%:
7%:

000226
022054

B8R

JSR
608

60%
003020

60%

11%:

60$:

ENDSUB

L10030:
T12165%:
ENDTST

L10027:

60s

8LO
MOV

PC.RDYWAIT

T216%
#2 ,ERRSW]

;WAIT FOR READY

s+EST IF USE ALL SECTORS

(3)

026634

104401

MACY11

30
*

CZRL.BO RLO1/02 DRIVE TEST 2
CZRL JB.MA(
07-DEC-79 09:06

L 8
08-FER-80 14:49 PAGE 3-5
+«INCREMENTAL REVERSE SEEK HEAD 0
TRAP

CSETST

»FQ 010/

CZRLJBO RLO1/02 _DRIVE

CZRLJB.MAC

07-DEC~79 09:06

2812
2813

026636

2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827

026636
026644
026650
026654
026656
026662
026666
026672
026674
026702
026710
026712
026716
026720

012737
004737
004737
027060
005037
013705
004737
027060
012737
032737
001405
005737
001002

(3)
2828
2829
(3)
(3)

026722
026724
026724
026724
026724

000136

2831
(3)

026732
026732

(3)

2830

026636

026720

026726

2832

026734

2833
2834
2835
2836
2837
2838
2839
2840
2841

026736
026744
026746
026752
026754
026762
026766
026766
026772

(2)

2842
2843
2844
2845
gg:g

2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
(3)
(3)

026734

026774
027000
027004
027006
027012
027014
027022
027024
027030
027032
027036
027040
027040
027046
027050
027056
027056
027056

_TEST 2

MACY11 30A(1052)
*TEST ¢

LSBTTL
BGNTST

006565
016214
016232

003026

003126
013560
017732
000001
010000

003126
013556

013564

104432

«TEST 4

*+INCREMENTAL FORWARD SEEK HEAD 1
JTEST &

022340

T227%:

104420

103007

023737
001003
004737
000405
013737
005237

003120

004737
027050

017160

003116

020636

003120
003116

003116

78:

012701
004737
027050
004737
027050

000226
022054

032737
0L1406
00<737
027050
004737
027050

000002

023737
101327
012737

013562

003116

000002

003032

104403

5$:

022466
013556

022610
021460
9%:

60%:
ENDSUB
L10032:

T4::

#P2TOGE ,ERHEAD
PC,TSTINY
PC,GSTATR

;SET ERROR HEADER
JINITIALIZE TEST
:CLEAR DRIVE

DESHD
LOL IMW,R5
PC,POSHDS

;SET HEAD 10 0
JCLEAR FUR POSITION HDS TO LOLIMIT
;POSITION HDS

#1,DESHD
#HEADLM MISWIW
2%
HEADW
2%
18T

sSET _TO HEAD 1
TEST IF HEAD SPECIFIED
:NO - SKIP
JTEST IF IT IS HEAD O
;NO = SKIP
JELSE EXIT TEST

.WCRD

L10031-.

TRAP
JSR
INLOOP

($85UB
PC,GETPOS

CSEXIT

BGNSUB

104402
004737

SFQ NINT

MOV
JSR
JSR
12265%
CLR
MOV
JSR
72265%
MOV
BIT
BEQ
IST
BNE
EXIT
TRAP

2%:

O08-FEB-80Q 14:49 PAGE 3-6
*~INCREMENTAL FORWARD SEEK HEAD 1

TRAP

CSINLP

BCC

16.1:

;GET CURRENT POSITION

;CHECK if IN ERROR LOOP

BNCOMPLETE S$

:NO - SKIP

P
BNE
JSR
BR
MOV
INC

CURCYL NEWCYL
5%
PC,ONSWAP
’$
CURCYL ,NEWCYL
NEWCYL

;CHECK IF AT DESIRED LOCATION
;NO -~ SKIP
;SWAP OLD AND NEW CYLINDER
:SKIP
;MOVE CURRENT INTO NEW
sBUMP NEWCYL FOR ONE CYL FWRD SEEK

JSR
60%

PC,XSEEK

;DO SEEK

MOV
JSR
60%
JSR
60%

#150. ,R1
PC.RDYWALTY

;SET WAIT COUNT 15 MS
;WAIT FOR READY

PC,VERPOS

;VERIFY POSITION IS CORRECT

8IT
BEQ
JSR
60%
JSR
60%

#ALLSEC MISWIW
9%
PC ,RDALHD

CHECK IF USE ALL SECTORS
:NO-SKIP
;ELSE READ ALL HEADERS

PC.VERHDR

sVERIFY HEADERS

cMP
BHI
MOV

dJLIMW NEWCYL
1227%
#2 ,ERRSWI

;CHECK IF DONE
sNO - LOOP
JINIT ERROR SWITCH

TRAP

($ESUB

CZRLJBO RLO1/02 DRIVE TEST 2

CZRLJB.MAC

2859
2860
(3)

(3)

2861

027060
027060
027060

027060

07-DEC-79 09:06

104401

MACY11 30A(1052)
=TEST 4
12265$%:
ENDTST
L10031:

O8-FEB~-80

14:49

PAGE 3-7

*~ INCREMENTAL FORWARD SEEK HEAD 1

TRAP

C$ETST

SEQ 0104

(ZRL JBO RLOY/Q. DF IVE TEST 2
CZRLUB MAC
07-DE(-79 09:06

2863
2864
2865
2866
(3)
286/
2868
2869
2870
2871
2872
2873
2874
2875
2876
(3
(3)
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886

MACYT?

30A(1052)
«TEST

.SBTT.

027112
027116
027120

027120
027120
027122
027130
02713
027136
027142

027150
027152
027156
027160
027164
927170
027170
027172
027174

027176
027200
027202
027204
027206
027220
027222
027226
027232
027234
027240
027242
027250
027250
027250

027252
027252
027254
027256

027262
027264
027266
027266

14:49

PAGE 3-8

SEQ 01N~

*«INCREMENTA. FORWARD SEEK HEAD !

«TEST 5

*+ INNER GUARD BAND DETECTION

RGNTST

027062
027062
027062
027070
027074
027100
027102
027106

08-FER~-B0

012737
004737
004737
027266
004737
013705
004737
027266
104402

013737
004,37
027242
012701
032762
001414
004737
027242
012703
012704

006605
016214
016232

00302¢

020552
002316

7233%:

017732

BGNSUB

002324
017160
000001
000001

003116

000060

7%:

;SET ERROR HEADER
JINITIALIZE TEST
;CLEAR DRI]VE

PC, CHOSHL

;G0 (HOSE HFan

PC,POSHDS

;POSITION HEADS

TRAP
MOV

(38s5UB
GBND NEWCYL

sSET FOR INNER GUARD BAND SEEK

MOV

", R

s INITIALIZE WAIT

;NO-SKIP

#MMORDY .R3

:SET NAME MESSAGE PTR

701., ,ERRS

*REPORT READY CRROR

JSR
T2365%

BIT
BEQ
JSR

HLMTW,RS

PC,XSEEK

sSET FOR POSi.ION TO 255.

15.1:
D0 IT

#DRDYMSK ,RLCS(R2) ;CHECK IF READY
PC.GSTAT

#C10MS ,RG

CSERMRD

COUNT

“GET DRIVE STATUS

“SET CONDITION MESSAGE PTR

701

9%:

001406

000226
022054

11%:

022466
000002

104403

003G32

60%:
ENDSUB
L10034:

104410

000012
004737
027266
000710

#02707€ .ERHEAD
PC,ISTINT
PC,GSTAIR

60%

007760
010634

104456

004737
027242
012737

MOV
JSR
JSR
12365%
JSR
MOV

JSR
60%

016262

001275
200000
012106
000420
005301

000750
012701
004737
027242

15::

0
ERRS
608

SEXIT TEST

118
#10.

‘SKIP IF 0
TWAIT 1ms

#150. .R1

PC.RDYWAIT

15%:
T2365%:

LOOP

*SET WAIT COUNT 15 MS
*GO WAIT FOR READY

PC, VERPOS

;GO VERIFY POSITION IS 255

#2 ,ERRSW]

ZINIT ERROR SWITCH

CSESUB
T<T
CSESCAPE

SEXIT TEST IF ERROR

PC, SWAPHD

:GO SWAP TO HEAD 1 OR END TEST

L10033-,

020576

SDEC WAIT COUNT

1233s

SABORT RETURN
‘REPEAT THE

TESTS

CZRLJBO RLO1/02 DRIVE TEST 2

(ZRLJB.MAC

2908

(3)

(3)
2909

07-DEC-79 09:06

027266

30A(1052)
«TEST S

O08-FERB-B0

14:49

104401

L10033:

PAGE 3-9

*«INNER GUARD BAND DETF(TION

ENDTSTY

027266

MACY11

TRAP

LSETST

SEQ 0106

CZRLJBO RLOV/02 DRIVE TEST 2
CZRL.B -MAC
07-DEC-79 09:06

027270
027270
027270
027276
027302
027306
027310
027314
027320
027324
027326
027334
027342
027344
027350
027352
027352
027354
027356
027356
027356
027356
027360
027364
027366
027366
027370
027370
027372
027400
027402
027406
027410
027416
027422
027426
027430
027434
027440
027442
027446
027450
027456
027460
0274664
027466
027472
027474
027474
027502
027504
027512
027512
027512

MACY11 30A(1052)
«TEST S

LSBTTL
BGNTST

012737
004737
004737
027514
005037
013705
004737
027514
01273/
032737
001405
005737
001002

006623
016214
016232

003126
013556

104402

004737
027504

2%:
BGNSUB
1247%:

022340

104420

103007
023737
001003
004737
000405
013737
005337
004737
027504
02701
004757
027504
004737
027504
032737
001406
004737
027504
004737
027504

003120

003120
003116
017160

003116

7%:

000226
022054

000002

013556

022610
021460

013560

003116

012737

000002

003032

104403

;SET TO HEAD O
;SET TO POSITION HDS AT HILIMIT
;POSITION HDS

JSR
124659

PC,POSHDS

HIL IMW,RS

MOV
8IT
BEQ

#1,DESHD
MHEADLM M]ISWIW
23

BNE
EXIT

2%
TST

.WORD

:
9%

:
608

ENDSUB

L10036:

16::

DESHD

MOV

HEADW

CSEX]T

JSET TO SELECT WD 1
;TEST

HEAD SPECIFIED

:NO = SKIP
;TEST IF HEAD SPECIFIED IS O
:NO - SKIP
SESLE EXIT TEST

L10035-.
16.1:

TRAP
JSR
608
INLOOP
TRAP

($8SUB
PC.GETPOS

cMP

CURCYL ,NEWCYL

JSR

PC ., ONSWAP

JCHECK IF POSITIONED AT DESIRED LOC
sNO - SKIP
;gk?g SWAP OLD AND NEW CYLINDER

MOV
DEC
JSR

CURCYL ,NEWCYL
NEWCYL
PC ,XSEEK

:MOV CUR TC NEW
sDEC NEWCYL FOR 1 CYL REV SEEK
;DO SEEK

B8R

608
MOV

CSINLP

;GET CURRENT POSITION
;CHECK IF IN ERROR LOOFP

5¢

I43

#150. ,R1

;NO - SKIP

;SET WAIT FOR 15 MS

PC,RDYWAIT

;WAIT FOR READY

PC,VERPOS

;JVERIFY POSITION

#ALLSEC MISWIW
93
PC ,RDALHD

;TEST IF ALL SECTORS
sNO-EXIT
;READ ALL HEADERS

PC,VERHDR

;VERIFY HEADER

CMP

LOL IMW, NEWCYL

MOV

#2 ,ERRSWI

;CHECK IF AT LOLIMiT
sNO - LOOP
JINIT ERROR SWITCH

TRAP

C$ESUB

JSR
603
JSR
608
BIT
BEQ
JSR
608
JSR

022466

023737
103726

5%:

SEQ 0107

;SET ERROR HEADER
JINITIALIZE TEST
JGET STATUS & CLLAR

PC,TSTINT
PC,GSTATR

B8NE

020636

3-10

#P2T08E ,ERHEAD

BNCOMPLETE
5%
B(C(

003116

PAGE

JTEST 6

JSR
JSR
T2465%
(LR

TRAP

104432

000140

*+ INCREMENTAL REVERSE SEEK WFAD 1

«TEST 6

TST

013564

164:49

*«]NNER GUARD BAND DETECTION

MOV

003026

003126
013562
017732
000001
010000

08-FEB~-80

60%

BLO

1247%

CZRLJBO RLO1/02 DRIVE TEST 2
(ZRL JB.MAC
07-DEC-79 09:06

2958
2959

027514
027514

027514

(3)

027514

MACY11

30A(1052)
*TEST 6

E 9
14:49 PAGE 3-11
08-FEB-80
*~[NCREMENTAL REVERSE SEEK HEAD 1

12465%:

ENDTST

106407

1 10035:

TRAP

CSETST

SEQ 0108

CZRLJBO RLO1/02_DRIVE TEST 2
CZRLJB.MAC
07-DEC-79 09-06

2961
2962
(3)
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972

2973

2974
2975
2976
2977

027516
027516
027516
027524
027530
027534
027536
027542
027546
027552
027554
027560
027562
027570
027574
027602
027604
027610
027612
027616
027622
027624
027626
027632
027640
027642
027650
027652
027660
027662
027670
027670
27670
027670
027672
027672
027674
027674
027676
027702
027704
027712
027714
027720
027724

027726
027732

027736
027740
027744
027746
027754

027754
027754

MACY11 30A(1052)
«TEST

.SBTTL
BGNTST

012737
004737
004737
030024
004737
013705
004737
030024
004737
030024
013737
012704
022737
001402
012704
012405
013701

163701
021401

101073

060537
023737
002004
013737
000407
023737
003403
013737

006643
016214
016232

«TEST 7

MOV

003026

002312

7258$%:

002472

;GO CHOSE HEAD
*SET TO POSTION HEADS TO LOLIMIT

%ggess

PC.GETPOS

;GET CURRENT POSITION

CURCYL
. NEWCYL

;PUT CURRENT INTO NEW

12588$

*BRANCH IF RLO1

013560

003116

013562

003116

1257%:

MOV

#T25182 R4

BEQ

P
BHI

(R4)+,RS

%?gIMU.NEUCYL

NEWCYL,HILIMY
1%
HILIMW,NEWCYL

($BSUB

104420

TRAP

(SINLP

éfi?

PC.GETPOS

cMP

CURCYL ,NEWCYL

104403

003120

BNCOMPLETE
138
8CC
003116

*POINT TO THE RLO2 TABLE OF CYLINDERS
;PUT FIRST IN RS

*SUBTRACT LOLIMIT

*ADD TG PRESENT POSITION
:CHECK IF AT OR PAST LOLIMIT

‘NO - SKIP

“ELSE SET TO LOLIMIT

;CHECK IF AT HILIMIT OR GREATER
INO ~ SKIP
-ELSE SET FOR HILIMIT
T17.1:

TRAP

022340

*SET POINTER TO TABLE OF SEEK DIFF FOR RLO1
“CHECK TYPE OF DRIVE

*CHECK IF NEW DIFFERENCE IS IN BOUNDS
‘NO - SKIP TEST

104402

103011
004737
027746
023737
001002
004737
004737
027746
012701
004737
027746
004737
027746
012737

TO LOWLIMIT

(R4) ,R1
T25178$

LOL IMW.R1

ggv

INLOOP

SPOSITION HCS

SGET HILIMIT

RS, NEWC YL
NEWCYL ,LOLIMW

P
BLE
MOV

YINITIALIZE TEST
*CLEAR DRIVE

HILIMJ,R1

ADD
cMP

BGE

11$%:
BGNSUB

PC.POSHDS

#T2518L R4
#1_T.DRIVE

SuB

003116
003116

PC,TSTINT
PC.GSTATR

MOV
cMP

725888%: MOV
MOV

013562
013560

PC, CHOSHD
LOL IMW,RS

MOV

003116

«+SEEK TESTS

JSR
MOV

%3265$

T256%:

;TEST 7

SEQ 0109

;SET ERROR HEADER

12565%

022340

#P2TO9E ,ERHEAD

JSR
JSR

020552
013560
017732

003120
002444
000001

08-FEB-80
14:49 PAGE 3-12
**SEEK TESTS

:CHECK IF

138

IN ERROR LOOP

:NO - SKIP
:GET CURRENT POSITION

;CHECK IF HEADS AT DESIRED POSITION

BNE
JSR

13$
PC.ONSWAP

*NO ~ SKIP
SELSE SWAP CURRENT AND NEW CYLINDERS

005670
022054

MOV

#3000. ,R1

sSET WAIT COUNT

022466

382

PC.,VERPOS

;VERIFY POSITION

MOV

#2 ,ERRSWI

;INITIALIZE ERROR SWITCH

TRAP

(SESUB

020636
017160

000002

13¢:

é3§

ggg

003032

60%:

ENDSUB
L10040:

PC.XSEEK

PC,RDYWAJT

‘D0 SEEK

*WAIT FOR READY

CZRLJBO RLO1/02 DRIVE TEST 2
CZIRLJB.MAC
07-DEC=79 09:06
3010
(3)
(3)
3011

027756
027756
027760
027762

3012
3013

027770
027772

3015
3016
3017

027776
030006
030006

030014
030020

104410
000044
023737

013562

003116

023737
001310
021437

013560

003116

004737
030024
000654

020576

001002
005405

3014 027776 000714

3018 030012 001276
030024

0300246

S’

(3)

n
&H

030024

104401

G 9
OB-FEB-80 14:49 PAGE 3-13
««SEEK TESTS

MACY11 30A(1052)
«TEST 7

ESCAPE
TRAP
LWORD
cMP

158:

002316

SEXIT TEST IF ERROR
;CHECK IF SEEK WAS TO HILIMIT

BNE
NEG

15%
R5

(MP
BNE
CMP

LOLIMW,NEWCYL
1257%
(R&) HLMTW

;TEST IF LAST SEEK WAS TO LOLIMIT
*NO - GO DO SEEK TEST
‘CHECK IF ALL TABLE DIFF USED

PC, SWAFHD

*GO SWAP TO HEAD 1 OR END TEST
“ABORT RETURN
*REPEAT TEST HEAD 1

B8R

BNE

T2517%: JSR
125658
BR
72565$:

ENDTST
L10037:

TST
(SESCAPE
L10037-,
HILIMW,NEWCYL

TRAP

1257%

12588%
12568

CSETST

'NO - SKIP
‘ELSE SET RS TO REPEAT DIFF IN REVERSE

‘NO - SKIP

SEQ 0110

CZRLJBO RLO1/0Z_DRIVE TEST 2
CZRLJB JMAC
07-DEC-79 09:06
3025
3026
(3)
3027
3028

030026
030026
030026
030034
030040

030044

MACY11

30A(1052)
*TEST 8

.SBTTL
BONTST

012737
004737
004737

030322
004737
012705
032737
001402
013705
005037
032737
001403
013737
004737
030322
012701
004737
030322
004737
030322
010537

006646

016214
016232

020552
000001
020000

013562
003116
040000

013560
017160

013556
003116

T12668%:

2s:

5%:

005670
022054
T267%:

022340
003116

BGNSUB

104402
104420

103011

004737
030256
023737
001002
004737
004737
030256

012701

004737

022340

104410

JSR
JSR
T2665$
JSR

MOV
BIT
8EQ
MOV

CLR
BIT
BEQ
MOV
JSR
12665%

003120

003116

020636
017160

18%:

JTEST 8

#P2T10E ,ERHEAD

PC,TSTINY
PC,GSTATR

:SET ERROR HEADER
JINITIALIZE TEST
;CLEAR DRIVE

PC, CHOSHD

:GO CHOSE HEAD

#1,R5
MHICYL MISWIW
2%
RS
HILIMJ
NEWCYL
#LOCYL ,MISWIW
5%
LOL IMW,NEWCYL
PC,XSEEK

000002

003032

;LOAD RS FOR FIRST SEEK
JTEST

IF HI

CYLINDER SPECED

;NO = SKIP
:ELSE SET UPPER LIMIT

JSET TO SEEK TO CYL O
JCHECK IF LO CYL SPEC'D
:NO - SKIP
JELSE SET LOWER LIMIT
;D0 SEEK

;sGET HEAD POSITION

RS, NEWCYL

;LOAD NEW CYLINDER INTO NEWCYL

TRAP
INLOOP
TRAP

cs8s5uB

8CC

18%

608
P
BNE
JSR
JSR
608

TST

003116

18::

PC.GETPOS

T2665%

8eQ

013560

«*FORWARD OSCILLATING SEEK

JSR
12665%
MOV

60%

013556

SEQ 01N

sSET WAIT COUNT FOR 120 MS
;WAIT FOR READY

JSR
60%
JSR

003116
040000

PAGE 3-14

#3000. ,R1
PC.RDYWAIT

MOV

005670
022054

MOV
JSR

JSR

003124

104403

*TEST 8

CSINLP

BNCOMPLETE

022466

012737

14:49

«+FORWARD OSCILLATING SEEK

MOV

003026

013556

O08-FEB-80

CLR
BIT
BEQ
MOV

B8R

60%:
MOV
ENDSUB
1L10042:

TRAP
ESCAPE
TRAP

18.1:

;JCHECK IF IN ERROR LOOP
18%

;NO - SKIP

PC,GETPOS

;GET POSITION

CURCYL ,NEWCYL

18%
PC,ONSWAP
PC,XSEEK

;CHECK IF HEADS AT DESIRED LOC
;NO - SKIP
JSWAP OLD AND NEW
;DO SEEK

#3000. ,R1

;SET WAIT COUNT 120 MS

PC,VERPOS

;VERIFY HEAD POSITION

DESSGN

;TEST IF JUST SEEK REV
JYES - SKIP
JELSE SET TO SEEK T0 O

PC,RDYWAIT

60%

NEWCYL
#LOCYL ,MISWIW
18%
LOL IMW,NEWCYL

18%
#2 ,ERRSWI
C$ESUB
TST
C$ESCAPE

JWAIT FOR READY

JCHECK IF LO LIMIT SPEC'D

;NO - SKIP
JELSE SET LOW LIMIT FOR SEEK

JINIT ERROR SWITCH

SEXIT TEST IF ERROR

CZRL.JBN RLO1/02_DRIVE TEST 2
CZRLJB Mac
07-DEC-79 09:06
(3)
3073
3074
3075
3076
3077

3078
3079
3080
3081

3082
(3)
3

030270
030272
030300
030302
030304
030310
030312
C30316
030320
030322
030322
030322
030322

000032
032737

001004
005205
020537
001311
004737
030322
000654

104407

020000

MACY11 30A(1052)
~TEST 8

(113556

002324
020576

08-FEB~-80

20%:
12665%:
ENDTST

L10041:

14:49

9
PAGE 3-15

*+«FORWARD OSCILLATING

.WORD
8IT
BNE
INC
P
BNE
JSR

T2665%

L10041~.

MHICYL

208

MISWIW

[ TEST

SEQ 0112

SEEK

UPPER LIMIT SPEC'D

JYES - SKIP
;BUMP RS

R5,GBND ;ALL CYLINDERS DONE

T267%

PC, SWAPHD

T266$

TRAP

CSETST

sNO = GO DO NEXT CYLINDZR
;GO SWAP TO HEAD 1

;ABORT RETURN
;GO DO TESTS

OR END TEST

CZRLJBO RLO1/02_DRIVE TEST 2
CZRLJB MAC
07-DEC-79 09:06
3084
3085
(3)

030324
030324
030324
030332

MACY11 30A(1052)
«TEST 9

.SBTTL
BGNTST

012737
004737
004737
030620
004737
013737
032737
001403
013737
013705
032737
001402
013705
004737
030620
012701
004737
030620
004737
030620
010537

006661

016214
016232
020552
002316
020000
013562
002322
040000

003116
013556

003116

013556

013560
017160

1275%:

5%:

005670
022054
1276%:

022340
003116

BGNSUB

NN
NOWVS W= OVONRPNDBNWN=O

103011
004737
030560
023737
001002
004737
004737
030560
012701
004737
030560
004737
030560
005737
001013
013737
032737
001753
013737
000747
012737

N-a—a—a—;—n-n—a-a—n—nf\)s
—d
N

PSP

iy b d ok b b

b ok b e} cmd

b cud cnad e cd

NN NN
W NN NN AN NN IN N NN

b card

b g

wmd

(3)

106403
104410

PC,GSTATR

JSR
MOV
BIT

PC, CHOSHD
HLMTW,NEWCYL
#HICYL ,MISWIW

:GO_CHOSE HEAD

MoV

HIL IMW, NEWCYL

020636
017160

PC,XSEEK

INO = SKIP
SET LOWER LIMIT
:D0 SEEK

MoV

#3000. ,R1

;SET WAIT TO 120 MS

PC.GETPOS

:GET POSITION

RS ,NEWCYL

:SET FOR NEXT SEEK

JSR
T2765%
JSR
12765%
MOV

005670
022054
022466

003124
003116
013556

013562

003116

000002

003032

60%:
ENDSUB
L10044:

;WAIT FOR DRIVE READY

19.1:

cs8sus

JSR

PC.GETPOS

JELSE GET POSITION

cMP

CURCYL ,NEWCYL

;CHECK IF AT DESIRED CYL

JSR
JSR
60%
MV
JSR
60%
JSR
60$

PC,ONSWAP
PC,XSEEK

#3000. .R1
PC,RDYwAIY

sSET WAIT FOR 120 MS
;WAIT FOR READY

PC,VERPOS

;VERIFY POSITION

BNE
MOV
BIT
BEQ
MOV
BR
MOV

608
HLMTW, NEWCYL
AHICYL MISWIW
18%
HIL IMW, NEWCYL
18%
#2 ,ERRSWI

DESSGN

;CHECK IF JUST SEEK FWD
;YES - SKIP

TRAP

CSESUB

TST

002316
020000

CHECK IF _LO LIMIT SPEC'D

TRAP
INLOOP
TRAP

BNE
18%:

ELSE SET UPPER LIMIT

*SET R5 FOR FIRST SEEKS

60%

003116

*SEEK OUT TO 255.
:TEST IF UPPER LIMIT SPEC'D
INO = SKIP

NXTHL ,RS
ALOCYL ,MISWIW
5%
LOLIMW,RS

PC,RDYWAIT

19::

JINITIALIZE TEST
:CLEAR DRIVE

MOV
BIT
BEQ
MOV

CSINLP

BNCOMPLETE
18%
8cC

022340

003120

;TEST 9

JSR

JSR
12765%

seQ 0112 |

«*REVERSE OSCILLATING SEEK

;SET ERRQR HEADER

BEQ
2%:

#PZT11E ,ERHEAD
PC,TSTINY

T2765%

104402
104420

*TEST 9

MOV
JSR

003026

14:49
PAGE 3-16
*+REVERSE OSCILLATING SEEK

08-FEB-80

ESCAPE
TRAP

sCHECK [F IN ERROR LOUP
139

18%

TST
CS$ESCAPE

;NO - SKIP

;NO - SKIP
JELSE SWAP OLD AND NEW CYL

;D0 SEEK

;ELSE SEEK TO TO 255
STEST IF HILIMIT SPEC'D

sNO - SKIP
;SET TO UPPER LIMIT
JINIT ERROR SWITCH

JEXIT TEST IF ERROR

[
CZRLUBO RLO1/02 _DRIVE TEST 2
(ZRLJB.MAC
07-DEC~79 09:06
(3)
3132
3133
3134
3135
3136
3137
3138
3139
3140
(3)
(3)
3141
3142
3143
3144
3145

030572
030574
030602
030604
030606
030610
030614
030616
030620
030620
030620
030620

030622

000026

030620
000654

104401

040000

020576

013556

20%:
12765%:
ENDTST

L10043:
ENDMOD

O08-FEB-B0

14:49

PAGE 3-17

*«REVERSE OSCILLATING SEEK

. WORD
8lT
BNE
DEC
8PL
JSR
T2765%
BR

TRAP

L1004 3~.

#LOCYL MISWIW

208
R5
1276%

PC, SWAPHD

1275%

CSETST

sTEST IF LOLIMIT SPEC'D
;YES - SKIP

sDEC CYLINDER COUNT
JIF STILL POSITIVE, DO _SEEKS AGAIN
:GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN
;LOOP AGAIN

SEQ 0114

CZRLJBO RLO1/02_DRIVE TEST 2

CZRLJUB.MAC
3147
3148
3149

(3)
3150
(4)
(4)
(4)

030622
030622

030622
030624

07-DEC-79 09:06

005130
030770
000001

030632
030634

000031
030704

030642
030644
030646
03065C

001031
030720
000000
000776

(4)
(4)
(4)
(4)
(4)
3154
(4)
(4)
(4)

030652
030654
030656
030660
030662
030664
030664
030666
030670

004032
030762
003400
000000
000007

(4)
(4)
(4)
(4)

030672
030674
030676
030700

002032
030727
000340
000000

030632

(4)
(4)

3152

030636
030640
030642

3153

030652

(4)
(4)

(4)
(4)
(4)
(4)

3155

7%?;
<

3157
(2)
(3)
3158
3159

030672

030702

160000
177776

3162
3163
3164
3165

030740
030746
030754
030762
030770
030775

3168
3169
(3)

030776
030776
030776

030734

PARAMETER CODING
HRDPRM

(SRMSG,CSR,0,160000,177776,YES

GPRMA

.WORD
TSLOLIM
.WORD
TSHILIM
VE(CMSG,VECT,0,0,776,YES

GPRMD

DRMSG,DRSB,0,3400,0,7,YES

GPRMD

000007

.WORD
.WORD
.WORD

TSCODE
CNTYPE
1

.WORD
.WORD

TSCODE
CSRMSG

.WORD
.WORD
WORD
.WORD

T$CODE
VECMSG
TSLOLIM
TSHILIM

.WORD
TS$CODE
.WORD
DRMSG
.WORD
3400
.WORD
TSLOLIM
.WORD
TSHILIM
DRTYPE,TYPDR,1,YES
.WORD
T$CODE
.WORD
DRTYPE
LWORD
1

BRMSG,PRIOR,0,340,0,7,YES
.WORD
JWORD
.WORD
LWORD

LWORD

L10045:

030727

PAGE 3-18

GPRMA

030704

3161

LWORD L10045~-L$HARD/2
CNTYPE,CNT,1,YES

GPRML

003130
030740
000001

14:49

GPRML

ENDHRD

3160

%}gg

.SBTTL
BGNMOD
BGNHRD

(10704

030704
030712
030720

O0B-FEB-80

PARAMETER CODING

000030

030624
030626
030630

3151

MACY11 30A(1052)

TS$CODE
BRMSG

340
TSLOLIM
TSHILIM

.EVEN

052502
051104
042388

020123
051505
052103

042101
000123
051117

CSRMSG:

.ASCIZ

/BUS ADDRESS/

VECMSG:

.ASCIZ

/VECTOR/

102

020122

042514

BRMSG:

.ASCIZ

/BR LEVEL/

051104
054524
051040
051104
046122

053111
042520
030114
053111
030461

020105
036440
000061
000105
000

DRTYPE: .ASCIZ

/DRIVE TYPE = RLO1/

DRMSG:
.ASCIZ
CNTYPE: .ASCIZ
ENDMOD

/DRIVE/
/RL11/

042526

030776

000053

000114

.EVEN

BGNMOD
BGNSFT

SFTPRM
.WORD L10046-L$SOFT/2

CZRLJBO RLO1/02 DRIVE TEST 2
(ZRLJB.MAC
07-DEC-79 09:06
3170
3172

031000

(4)

031002

3173

031006

(4)

(4)
(4)

031000

000130

031004

000001

031006

000130

031012

000002

031010

3181

031014

(4)
3182
(5)

031020
031022
031022

040000

(4)
(4)

031024
031026

001052
031176

031032

000000

(4)
(4)

3183
(4)
(4)

031014
031016

031024

031030

000130
031157

(4)
3185
(5)

031042
031044
031044

(4)
(4)
(4)
(4)
(4)

031046
031050
031052
031054
031056

002052
031176
000377
000000
000377

031060
031062
031064

00130
031225
010000

3186

3187
(4)
(4)
(4)

3188
(5)
3189
(4)
(4)

(4)
(4)
(4)

3191

(4)
(4)

(4)

(4)
(4)

3193
(6)
(6)
(4)

031046

031060

031066
031066
031070

031070
031072

000130
031204
020000

031102
031104

004052
031272

0331110
031112

000000
000377

031106

031114

031114
031116
031120

000377

005052
031314
000377

.WORD

T$CODE

SECQ

GPRMD

LIMVAL,LOLIM,D,255.,0,253.,YES

40000
1%
T$CODE

T$CODE
LIMVAL

255.

TSLOLIM

.WORD
GPRML
.WORD

TSHILIM
HILIMQ,MISWI,20000,YES

.WORD
XFERF

.WORD

20000
2%
TSCODE

.WORD
.WORD
LWORD
.WORD
.WORD

TS$CODE
LIMVAL
255.
TSLOLIM
TSHILIM

.WORD

GPRMD

GPRML

.WORD
.WORD
LWORD

XFERF
.WORD
GPRMD

3%:

TSCODE
LOLIMQ

.WORD

2%:

T$CODE

CYLQ

.WORD
.WORD

JWORD
1%:

PAGE 3-19

LOLIMQ,M]SWI,40000,YES

.WORD
.WORD

0U5044

031074
031076
031100

WORD

.WORD
XFERF
.WORD

006044

003052
031247
000017
000000
000001

031102

GPRML

SECQ MISWI,2,YES
.WORD

000377
000375

.WORD

006044

031034
031036
031036
031040

GPRML

14:49

CYLQ MISWI,1,YES
.WORD

031142

)
3184
(4)
(4)

GPRML

031126

(4)

31(%

MACY11 30A(1052)
O0B-FEB~B0
PARAMETER CODING

T$CODE
HILIMQ

LIMVAL,HILIM,D,255.,0,255.,YES

HEADQ,MISW1,10000,YES
TS$CODE
HEADQ
10000

3%
T$CODE
HEADV,HEAD.D,17,0,1,YES

.WORD
.WORD
LWORD
.WORD
WORD

T$SCODE
HEADV

.WORD
.WORD

TSCODE
ERLIMQ

17
TSLOLIM
TSHILIM

GPRMD

ERLIMQ,ERLIM,D,377,0,377,YES

.WORD

377

.WORD
.WORD

GPRMD

.WORD
.WORD
.WORD

TSLOLIM
TSHILIM

DCLIMQ,DCLIM,D,377,1,377,YES
TS$CODE
DCLIMQ
377

Fo N4

CZRLJBO RLO1/02_DRIVE TEST 2
CZRLJUB.MAC
07-DEC~79 09:06
(4)
(4)

031122
031124
031126

(3)
3196
3198

031126

3195
(2)

000377

3206
3207
3208

3209

3212
324

3216
3217
3218
3219
2
4)
4)
(3)

3220
3221

031246
031247
031254
031262
031270
031272
031300
031306
031314

031322
031330

031336

046040

031336

000000
000000

000001

O08-FEB-B0

PARAMETER CODING

ENDSFT

14:49

PAGE 3-20

.WORD
.WORD

.EVEN

020105
054503
020105
042523

046101
000114
046101
052103

cyLQ:

.ASCIZ

/USE ALL CYL/

SECQ:

LASCIZ

/USE ALL SECT/

053517
020113
000124
052514
042520
045505
052111
042523
020131
052523

051440
044514

LOLIMQ:

LASCIZ

/LOW SEEK LIMIT/

HILIMQ:

LIMVAL:

LASCIZ
LASCIZ

/VALUE/
/UPPER SEEK LIMIT/

HEADQ:

LASCIZ

/USE ONLY ONE SURF/

040510
043122
051117

020124
024040
030440

HEADV:

.ASCIZ

/WHAT SURF

052520
047522
044515
040524
042440
052115

020124
020122
000124
041440
051122
000

ERLIMQ:

LASCIZ

/INPUT ERROR LIMIT/

DCLIMG:

LASCIZ

/DATA (CMP ERR LMT/

000105
020122
046040
000
047440
047117
043122

ENDMOD

LASTAD

031336

031336
031340
031342

30A(1052)

L10046:

3199

3210

MACY 11

LSLAST::
.END

.EVEN

.EVEN
.WORD
.WORD

0
0

(0 OR 1)/

SEQ 0117

003230
003232
000010
(004000
000060

1361

1374

1492

1973

(V. IV, [V 1V, ]

RV
T V]

2592

1712

2006

2280

2445

b
d e

ruww
W=

(015664

—b b o ek

CKFRLM

115¢

NN ~O

000010 G
000020 G
000040 G
000100 G
000200 G
000400 G
Q001000 G
000002 G
002000 G
204000 G
MOOOO G
02000V G
040000 G
100000 G
00004 G
000010 G
000020 G
000040 G
000100 G
000200 G
000400 G
001000 G
000400 G
030727
024344
003034
003510
007550
007501
010662
00232%
Q10652
020552

003506

1332

2643

2641

G
G
G
G

6770
6724
813
2004
28
920
ok
2N
924
o
2N
92N
o
92N
92N
928
2N
92N
9o
N
9N
o2
928
oOoN
924
2N
92N
928
928

b ) d nd e o el ad o camd

01CSSS

81703 =
81104 =
BIT0S =
BI1T06 =
817107 =
8I1T08 =
B'109 =
BITY
=
B8I1T10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT1S =
BIT2 =
8113 =
8IT4
=
BITS
=
8116
8117 =
8IT8 BIT9 =
BOE
BRMSG
BSCHK
BSFLAG
BSFVAL
BSNSTR
8YPSNM
CAFDT
(AMSK
CCYLuP
(HOSHD

CLKADR

2666

2428

OV®NO

1420
1744

006141

(xkBSVD (020662
(xDATA= 000102

2464

2947

L98#

006243
000010
Q00001
000001
000002
000004

1921

1620

—

112

1634
497

b wad b

BELL

BHSTAT=
BITO
=
BIT00 =
BITGY =
81102 =

2798

1104

Dbt

BASADD

2751

LO68

&S b ad

BANAM

003226
200001
000002
100000

O NV
=

AFMIDU
ALLCYL=
Al L ~EC=
ANYERR=
ARMID
AMIOL
ASSEMB=
8ADADD=
gAaMsk -

SEQ 0118

9
L95H

= D00G20 G
003224

304(1052)

1593

143
144
145

146

1051

2521+«

2541

2548

2019

1286+

2488
1294+

1960w
19704

2673

2723

ern

2872

2967

3031

3090

931
5264

945
1217+

959

974

989

1094

1108

1130

N
9N
3155
2518#
L270

5304

7724
7694

831»
2554
830«
120#

ADR
AFMID

8 10
14:49 PAGE &
08-FER-80
CROSS REFERENCE TABLE =-- USER SYMBOLS

MACY11

“IRL .BO RLCY/02 DRIVE TEST 2
(IR JB.MAM
07-DEC=-79 09:06

2535
1015

31614
1970
1972

1144

1158

14874

8'\)

rZRLJBO RLO'/02 DRIVE TEST
07-DEC~79 09:

(LxCSB= 172542
CLKCSR= 172560
CLKCTR= 172544
CLKFLG
003504
CLNCOD
015124 G
CLRBYT
002320
CLRPAR
025744
CNT
000012
CNTYPE
030770
COMPOP
007777
CONHNG
000004
CONTIN
0146016
COSTAT=
COUNT
CRDYMS=
CSNAM
=
(SR
C SRMSG
030704
CURCYL
003120

(SCLEA=
C$CLOS=
CS$CLP1=
CSCVEC=
CSOCLN=
C$D0DU=

CSDRPT=
(U =
CSED]T=
CSERDF
=
RMR
CSE

(S$ERRO=
(SERSF
CSERSO=
CSESCA=
CSESEG( $€ SUB=
C$ETST=
CSEX]T=
($GE 18-

C$GE Tw=
{ SGMAN 000043

j=]
oo

_n_aoo-a—ago
Ve REWRNV,
IV J
genounbwe-auux

NINN)
— NN =

N
[*3

2035
2483

1368

1691

1235

1391

1839

1508

1840

1872

1858

2735

2739

2783

2787

2730

2778

2829

2876

2929

1397
1495

1401

2700

2294

1519

2221+

2837

2934

3048

3107

2246
2938

2424

2973

2451
2998

2643

1379
1830

2677

2993

1217
1404

1378
1335
1334

1365

1377

1694

1408

1578

1615

1628

1634

1739

2043
2489

2092
2498

2104
2502

21
2688

2173
2702

2706

2901

3010

3072

2705
2713
2726

2761
2763

2808
2810

2858
2860

2900
2908

1877

2774

2827

2927

1744

1869

1912

2183
2887

2248

2301

2957
2959

3071
3082

HWN
[ela]

($CLCK=

1322

—

($85UB=
($CEFG=

1298+

CTLTTTTTLTTTITRLRNE®

031126
002620
000004
007466
000052
000061
000022

1219e

TETTTTTERER

cviLQ
CyLTBL
CYLUP =
CYLWD
(AU
=
=
(SAUTD
($BRK =
($BSEG=

SFQ 0M19

CZRLUB.MAC

¢ 10
PAGE 4-1
14:49
(B8-FEB-80
30A(1052)
MACYTY
CROSS REFERENCE TABLE -- USER SYMBOLS

1923

203

2468

010634
010673
010645
006259
000001
023316
023156
004000
000012
031314
013570
003122
003126

DESSEC 003130
DESSGN 003124
DIAGMC= 000000
DIFAUG 003112
DIFWD
007442
DIRBIT= CD0004
DIRMSK 002330
DL TERR= 010000
003022
DONE
ORDYMS= 000001

DRMSG
030762
DRSB = 000010
T= 000004
DRSEL
DRSET = 000010
DRTIYPE 030740

8
8«
8
8
8»
8»
8
8
.74
8
8#
8

828#
832#
8294
6784
1324
2371#
2331
1684
1074
3193
11954
460
LE2N
2645
4634
L61N
8
L56H
7634
1834
2564
1664
4228
1754
2493

3153
o8«
1124
1884
3154

1338
1489

1831

2733

2781

932

946

960

975

1033

1066

133
1973

1974

2601

2605

1080

3049

3108

1095

1nN

1145

1159

1153

2395
2641

2563
2643

2564
2644

2568

2581

169

1492

1493

2533

2605

2608

2177

2485

2630

2620

2629

1253

1256

1714
1950

2605

2097
2922+

2283

2426

2456

1862

2605

3063

3122

2003+
2016

2014
2024

1442
1229
1402

1250

1220
1303

1304
1354

1390
1388

2687

2886
2182

2497

2380

1152

2932

2608
1333

1422
1225
1221
63

m9m

1089

2831

1360

1361

1374

1363

1376

239N
1067

1698+
1940+

1707+
1943

2772

2818+

2822+

1952+
2918w

1694+

1697+

1703+

1719

1678+

1689+

1699

1707

151
137¢

1524
1394

1591+
1562

1598

1554

1602

2584

1295«

2881

1607

c1oms
CSSEC
CSCuMms
DANAM
ODATACM=
DATCOM
DATGEN
DCXKERR=
DCLIM =
DCLIMG
DCLIMw
DESDIF
DESHD

000016
000015
000377
000007
000047
000033
000003
000021
000025
000046
000041
000037
000013

1270

——

CSPNTSCSPNTX($Q10 (3RDBU=
CSREFG=
(SRESE=
(SREVI=
¢ FLACSRPT =
CS$SEFG=
($SPRI=
C$SVEC=
CS$TPRI=

1972
84

SEQ 0120

CSPNTF- 000017

8
8
8
8
8
8
8
8
Y4
8
2597
8#

CSGPHR= 000042
C$GPLO= 000030
(SGPR]= 000040
CSINIT= 000011
CSINLP= 000020
CSMANI
= 00N0S0
(STMMEM = 000037
(MSG = 000023
CSOPEN= 000034
C$PNTB= 000014

07-DEC~79 09:06

CZRL JB.MAC

010
08-FEB-80 14:49 PAGE 4-2
MACY1T 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

{ZRLJBO RLO1/02 DRIVE TEST 2

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DEC- 79 09:06
455#%
164%

DRVCNT 003110
DRVERR= 040000
DRVNAM 006152
DRVNAV 006157
DSESTA= 000400
DSMSK = 001400
DSPCOD 013572 G

€734
74N
204%

1714
11994
924
924
Q2%
924
924
L244
1064
319
1194#
5114
5104

EF.CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G
EF .STA= 000040 G
ERHEAD 003026
ERLIM = 000010
ERLIMQ 031272
ERLIMW 013566
ERRCNT 003254
ERRPOI 003252

ERRSWI

ERRVEC
ERR1
ERR1I0
ERR2

ERR3

003032

012040 G

ESLOAD= 000035

FMT12
FMT13
FMT14
FMTI5
FMT16
FMT17
FMT18

Lo6#
1882

003244
011724 G
013320 G
011772 G

ERR4
012106 G
ERRS
012156 G
012226 G
ERR6
013110 G
ERR7
ERR8
013160 G
ERR9
013254 G
EVL
= 000004 G
EXACYL 003240
EXHCYL 003236
EXOCYL 003234
EXROT
003242
ESEND = 002100
FBSFIL
FMTOP1
FMTOP2
FMTOP3
FMT1
FMT1.1
FMT11

1267+

003706
010701
010730
010752
010773
011000
011217

011225
011233
011277
011331
011365
011376
011420

2105+
2255
2511
5054
9204
11464
9344
9484
9624
9774

9924
10974
11114
11334
24
5024
501#
5004

E 10
MACY11 30A(1052) 08-FEB-80 14:49 PAGE 4-3
CROSS REFERENCE TABLE =~ USER SYMBOLS
1235«
1556

1152

1259
1572

1263+
1626

1266+

1361

1374

1492

1973

2641

2669+

2719«

2767+

2814

2868+

2914x

2963+

3027«

3086+

1491
1242
935

1262
949«

1924+
963+«

2188+
978+

995+

1098«

1112«

1134»

1150«

1648
1925«
2133 °
2307«
2807«

1650
1931
2163+
2319
2857«

1669+
1933
2189+

2392
2956+

1745+
2026+
2197
2401
3008+

1751

2321
2899+

1740+
1993+
2195

2044
2226
2403
3070«

1753
2057
2228
2411+
3129+«

2059
2243
2499+

1634
2111~

1739
2410

1869 .

2043

2301

2458

2483

2183

2489

2498
2187

2306

2502

1332

1253

1256
1225
1250

1229

2568

3191
32124
1487
1237
923«
1487
1553«
1884

1635+

1901~

2131
2112«
2302«
2272+
2760+
2704*
1354
1378
1578
. 1615

. 2092

2104

2173
2688
1912

. 2887

1628

2020
1744

2248

2702 -

| 63
1976

2522

2581

2633

1080

.1155

1388

- 2031
1853

5034
8#
84

5334
8344
8354
8364
837#
8384
8474
8484
8494
- 8504
851#
8524
8534
8544

SEQ 0121

2543

1401|

1923

2035-

1826+

1242«

1262+

1854+

1870+
2093+
2253
2509

2077+
2249+
2503«

CZRLJIBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DEC~79 09:06

2608

011012
011015
011026

1360

1089
1033
1333

2395
1363

1376

1493

1974

1152

1332

1361

1374

1492

2568

2643
2645

FWOSKO= 002000

167
147

FWDSKS=
FSAU
=
FSAUTO=
FSBGN =

2644

1972
147

007473

1973

2641

2563

2605

000400
000015
000020
000040

1352

224

1133
1352

1097
1213

2667
2808
2927
3082

2705
2813
2957
3107

634

1146

1385

2827
2959
3130

875
1171
1410

et aS A e IV T

FRMID

1372

1331
1671

011046
011110
011160
011212
000100

FMT6
FMT?
FMT8
FMT9
FOLWRT=

2601

FMT3
FMT4
FMTS

2597

011507
011537
011562
011616
011632
011637
011647
011673
011712

2726

[V]

FMT20
FMT21
FMY22
FMT23
FMT26
FMT2S
FMT26
FMT27
FMT28

011452

011007

SEQ 0122

W§N'\)—'—‘
Bgze

FMTI9

FMT?2

F10

08-FEB-80 164:49 PAGE 4=¢
MACY11 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOL>

3142

920
1180
1415

2730

3010

934

1182

1457

2761
2876

3148

3149

932
1182
1463

946
1197
1479

FSCLEA- 000007

FSOU
= 000016
FSEND = 000041

FSMOD = 000000
FSMSG - 000011

FSPROT= 000021
FSPWR = 000017

FSRPT = 000012
F$SEG = 000003
F$SOF
T= 000005

3071
3195

rrere Setteeree

FSHW = 000013
FSINIT= 000006
FSJMP = 000050

1145
1385

1109
1339

2774

F SHARD= 000004

224

2677
2810
2929
3085

2706
2827
2959
3130

3182

3188

2827

634

1159
1404

866

117
1410

875

1180
1415

2730

2713
2829

2726
2860

3142

3010
3148

1206

1339

1385

624

866
1415

875
2659

934
113

948
1145

1146

960

975

977

224

3185

3188

3195

2761
2876
3157

2763
2900
3026
3165

1160

11N

2666

3142
992

948
1197
1465

2763
3026
3165

—

CIRLJBO RLOY/02 DRIVE _TEST
(ZRLIB.MAC
07-DEC~79 09:
t$SRY = 000010

FS$SUB = 000002
F8SWw

= 000014

GBND
GETPOS

002324
022340

T$TEST= 000001

8'\)

8¢

2993

8»

MACY11
1457

2677

3009
1183

G 10
14:49 PAGE &-OB-FEB-80
30A(1052)
CROSS REFERENCE TABLE =-- USER SYMBOLS
1463

2705

3048
1196

1465

1476

SEQ 0123
2957

2730

2761

2778

2808

2829

2858

2876

2763
3085
3076

2766
3140

2810

2813

2860

2866

2908

2913

2959

2244

2698

2731

2779

2830

2930

297

2996

2684

2883

3071

3107

3130

8¢
2960
2544

2667
3023
1085+

2713
3026
1293«

2718
3082
2877

3045

3051

3106

3110

1541

1587

156434

1560

1612

1618

1903

1914

2022

2164

2175

249N

016272

1539

GTSTAT= 000104

1214

1542
2671

1545#
2721

2769

2816

2870

2916

2965

3029

3088

B¢

1426

1429

1445

1449

3151
3191
3151
3191
3152
3155
3154

3152
3193
3152
3193

3153

3154

3155

3173

3181

3183

3184

3186

3153

3154

3155

3173

3181

3183

3184

3186

8
8

3150
3189
3150
3189
3151
3153
3150

3183
3172

3186
3173

3189
3181

3191
3184

84
&

3183
3150

3186
3154

3189
317

3191
3173

3193
3181

3184

3182

3185

3188

3153

3154

3155

3173

3181

3183

3184

3186

GETSTA= 000003

GLBDAT
GLBEQA

GLBERR
GLBSUB
GLBTXT

GSTAT

GSTATC

GSTATG

GSTATR

002240 G
002240
G

011724 G
015256 G
005360 G

016262

016246

016232

GSCNTO= 000200

GSDELM= 000372
GSDISP=
GSEXCP=
GSHILI=
GSLOLI=
GSNO =

000003
000400
000002
000001
000000

GSOr FS= 000400
GSOFSI= 000376

GSPRMA= (000001
GSPRMD= 000002
GSPRML= 000000

GSRADA= 000140
GSRADB= 000000

GSRADD= 000040
GSRADL- 000120

GSRADO= 000020

GSXFER= 000004

GSYES - 000010
HADONE
HCESTA=
HCRCER=
HOAL :G=
HDCYL

003024
040000
004000
000010
002332

HORCMP=
HOR4O =
HDSEC =
HDSEL =
HDWD
HOWRD1
HOWRDZ

000002
100000
000077
000020
007455
003066
003070

HOMSEL= 000100
HOMOVF 007323

1672

187

224
hY

8754
1415#4
6454
15404

15378

8
8
Y
Y
Y

3187
8
3187

8
Y

3187
LO3N
2100

169¢
1130

2578
1964
7400
1314
1460
195¢
1840
7654
43¢
L4y

1827
1008

1594

3151

3150

3189
1244
1566
1030
1222

1288+
209
1868
2078
2274
2118
1724
2605
1118
2037

1833

1538

3152
3151

3191

1856

3158
3152

3193

1037

1296+
2099
2598
2121
2285
2608
2140

2643
2215

22054

3155

CZRLJBO RLO1/02_DRIVE TEST 2
CZRLJB.MAC
07-DEC-~79 09:06
LL5H
1054
1144

HOWRD3
003072
HEAD
= 000006
HEADIM= 010000

003216
003220
003222
000100
000100

= 010000
1IBE
IBUFF
004102
= 000040
U
= 020000
IER
INITCO 013616
INOUTS= 000020
INTESL= 000100
INTHLR 015604
ISR
= 000100
IXE
= 0046000
18AU = 000041
1$AUTO= 000041
ISCLN = 000041
180U = 000041
I$HRD = 000041
I$INIT= 000041
IMOD = 000041

1$MSG = 000041

1$PROT= 000040
13PTAB= 000041
ISPWR = 000041
ISRPT = 000041
I1$SEG = 000041
I1$SETU= 000041
I1$SFT = 000041

2825

2925

1300
3186

3033

3073

3092

3125

1302+
1284
1028

2758

2775

2855

2919

2080

2275

2383

2448

1154
1044
3184

251a
1674

9N
201#

11714

32084

1292+

1302

1675

1677

2980

1679

2989
1701

3011
2873

3035
3017

3094
3091

8664

299

2424

3127
3124

1564

31484
26664

il
492N
4934
L4
1794

2034
924
5354
924
92N

2458
2144
1075

13794
14044
14084

13384
11994

o0#
12064

12124

13394

13854

14108

14154

8754
26594

HRINU
HROUT
HROUTU
HSMSK =
HSSTAT=

100000
000020
013536
030622
025774
003214

2823

32094
32104
1943

11924

HOE
=
HOSTATHPTCOD
HROPRM
HRDWTS
HRIN

003210
003212
020000
000004
031204
013562
002316
010000

aone

HFOUT
HFOUTU
HICYL =
HILIM =
HILIMQ
HILIMW
ALMTW
HWNFERR=

2923

1948

1941

3187
3189

11934
4874
4884
L84
490N

003204
003206

HF [N
HFINU

031247

013564

Qoo

HEADYV

HEADW

031225

3189

SEQ 0124

[a]n]

HEADQ

H 10

14:49
PAGE 4-6
08-FEB=-80
MACY11 30A(1052)
(ROSS REFERENCE TABLE =-- USER SYMBOLS

31424

9324
11114

9344
1314

9464
11334

9484
11454

9604
11464

9624
11594

9754

9774

9904

992#

18774

2667
2993

2677
3026

2718
3048

2730
3085

2766
3107

2778

2813

2829

2866

32174

2962

218#

2244

6344

6454

11714

11800

31484

2876

CZRLJBO RLO1/02 DRIVE _TEST 2
CZRLJB.MAC
07-DEC=-79 09:06

110
08-FEB-80 164:49 PAGE 4-7
MACY11 30A(1052)
CROSS REFERENCE TABLE =-- USER SYMBOLS

I$SRV = 000041
1$SUB = 000041

2667

12454
7374
7584

LABMID
LABOCF
LABOCR
LABOUT
LAB1

007171
007217
007231
007200
006262

7304
7334
7344
7314
6804

LIMVAL

031176

3183

040000
040000 G
000002
031157
013560

1164
924
1034
3181
11914
3098
N
634
634

LOCERR

LocvL =
LOE
=
LOLIM =
LoLIMa
LOLIMW

006275

003460

= 000010 G
LOT
LSACP
002110 G
LSAPT
002036 G

LS4
T
LSAUTO
LSCCP
LSCLEA
L$CO
L$DEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSOLY
LSOTP
LSOTYP
L$OU
LSOUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXPT
LSEXP4
LSEXPS5
LSHARD

002070 G
014566 G
002106 G
015124 G
002032 G
002011 G
002122 G
002076 G
002060 G
013574 G
002116 G
002040 G
002034 G
015252 G
002072 G
002226 G
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
030624 G

14654

16794

2900#

27054
2913

2718
29294

27304

27614
2962

2766
29934

27784
30094

28084
3026

2813
30484

28294
30714

28584
3085

2677
2829
30234

2706
28604
30264

27134
28664
3048

27184
2876
3072

2726
2901
30824

2730
29084
30854

27634
29134
3107

27668
2927
33

2774
2929
31404

2778
29594

28104
29624

2987

3015

3039

3068

29574

7324
7354
7364
7294

6814
5144

634
63
o3n
63
634
634
63
634
634
63
63n
634
63¥
63
634
63
63
63n
634
63n
634
63n
63

2644
2645
3186

32074

1245

3037

3066

3096

3132

2727

2805

2819

2954

2968

2981

2985

1424

1428+

1429

16436

1444+

1445

1449

3183
1247+

13524
13864

LAB?2

007206
007243
007257
007163

=%
*X

LABEXP
LABHCF
LABHCR
LABIN

14634

26774

013770
007273
007307

LAB
LABACF
LABACR

28764
31304
26674
2827
3010

JJJ
002314
JSJMP = 000167

14574

—t

I$TST = 000041

8
s
2806
31074
8#
28134
2993
2504

SEQ 0125

14064

31494

CZRLJBO RLO1/02 DRIVE TEST 2
07-DEC=79 09:06

CZRLJB.MAC

LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP

12134

32194

L$LJAD
LSLUN
LSMREV

L SNAME
L$PRIO
LSPROT
LBPRT
LSREPP
LSREV
T
L$SOF
L$SPC
L$SPCP

11634

31694

LSSPTP
LSSTA
LSSW
LSTEST
LSTIML
LSUNIT

11834

L.BA

2287

2570

2644

1587«

1583

L 10000
L 10001

%_.

O
L3

454
—

1%,

954

=S ONOWNIN—=ON

:
gg33338888

RN
[« SV ¥
Y]

b w—d —— — —
b

i anl ol el oo —
nd ol el el sl

b wd md cond —ad cedd
d
el
b el e

e
st okt

lelelolelelolelele]

L10005

L 10006

prur G
GGG
P G Ganr Ganrd

L10002
L10003
L10004

1235

1227
2281+

1592«

32
Q3

L.
L.

SEQ 0126

11724

LSLASTY

J 10
08-FEB-80 14:49 PAGE 4-8
MACY11 30A(1052)
CROSS REFERENCE TABLE =-- USER SYMBOLS

27134
27634

28104

28604

1593«

1589«
1996

1263
2644

1594«

1596

1638

1709

2004

2047

2278+

1595
2644

1602

2282+

2285+

2286

2584

2644

2279+

2280+

2292

(ZRLJBO RLO1/02 DRIVE _TEST 2

MACY11 30A(1052)

L10032
L10033

027056
027266

28584
2901

2908#

L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L1004S
L10046
MAJINC

027514
027512
030024
027754
030322
030264
030620
030566
030704
031126
003502

2927
29574

3010
30094
3072
30714
1N
31304
3149
3169
524k

006043
MBADSF
MBSET0= 000001

6694
1824

MCYLOC
MCYLUP
MDATCO
MOCRC
MDHEDR
MDLT

010345
005560
005442
010013
002000 G
010040

8064
238
236
7824
584
7844

MDRERR
MORRES
MDRVST

010102
006336
010130

261
6844
7964

010272
006073

263
6704

CZRLJIB . .MAC

L10034

MAPROX
MBADAD

MCERR
MCONHN

MORDY

027250

007153
006022

007771
006407

007760

MDSERR
MERRS
MEXERS

010113
010550
010513

MFOLWR

005630

MFLERR
MFMTER
MFWDSK
MFWSKO

MGTSTA

005701
005732

005430

MHCERR
MHCRC
MHDERR
MHDRCP
MHFCRC
MHNF
MININC
MINOUT

010212
010003
010255
005461
010052
010024
003472
005607

MISwIWw

013556

MISWI = 000000

MITEST= 100000

MNDRST

010352

MOPER

005527

MNEERR
MNOCLR
MNOINT

07-DEC-79 09:06

010320
006423
006354

29004

7284
247

260
6864

275
8124
8114

K 10

PAGE 4-9

30234
30824
31404
31574
31954+
1438+

1452

6684

1725

7804
1522
1117
6604
6534
1045

1049

1910

7864
1516
1102

2624

2018

2172

2487

2686

8044

6524

6654
6664

269
7814
264
237
7854
7834
5204
240

8004
1035
8034
6544
1041
1039
1420+
6624

11844

1222«

1432

3172

3173

3181

3184

3187

3066

3073

3092

3096

3125

3132

266

8074

262
6874
6854

6574

2885

7954
1033
149N

230

1174

SEQ 0127

29594

6634

102#

14:49

CROSS REFERENCE TABLE ~~ USER SYMBOLS

242
244
246

0B-FEB-80

1222

8054

1527
2581

1245

2621

1300

1941

1948

2751

2823

2848

2923

2947

3033

3037

CZRLJBO RLO1/02 DRIVE_TEST 2

CZRLJB.MAC

MOPERR
MDRECE

010245
003030

MOUTIN
MPNAM
MQUAL
S=
MREAD
MREADH
MRESKO
MREVSK
MRLFAL

005570
006255
003760
005364
005375
005766
005650
010442

MRSLT
MSEEK

MSPERR
MSTERR
MIMBS
MTOSLO

MULOAD

MWOERR
MWGERR
MWORD
MJRCHK
MWRITE
MWRSET
MWRTAB
MLOHDR
NEWCYL

010230
010161
006310
005405
005416
005513
010501
005477
003116

NOCLR NOCTLR
NOERCT
NOIRPT=
NOOP =
NOPWR

NOTRDY

265

4254

2414

OF IN
OF INU
OFMID
OFMIDU
OFOUT
OFOUTU
oLDCYL

ONSWAP
OPFLAG

OPROO4

1033

647N

1153

2620

1153

1155

1675
1845«

1677«
1858

1086

1089

1148

1156+

1679+

1682+
1961

1086
1962+

1533«

2079+

2381«

2395

2407

7974
7994

1513
6594
1577
801»
7984
1080

6504
6514
6564
2467
655#
1125
1843«
2740*
2939+
3047

000010
007645
003461
000002
000100
006176

1360
921

2758
2954
3053

2783
2973«
3065«

993

1532»

1297+
1275

3095

1678
1864

2787+
2984+

1872
2788+

3068+

2985
3091=

2805
2987+
3094«

2833
2989

2352

2359

2382

2450

1961

2605

2078
2590

2274+
2598

3000
2380«
2603

3055
2391
2606

3106~

1688+

2090
2837«
2991+
3112

1689

1690+

1692

1701

2246
2838+
2998
3124+

2528
2855
3011

2678+
2877+
3015

2735

2464

2466+

2469+

2569+

3127*

3036+

1331
1372

007703

1283+
1273

004502

1074

003154
003156
003160
003162
003164
003166
003114

1674%
19594
1531

020636
003020

007425

1081«

1614

010375

OPIERR= 002000
0PMSGS 002240

1032
1078

6484
644
6674
664N

NXMERR= 020000
NXTHL
002322
NXTPAS 014036

OBUFF

8024

1071+

SEQ 0128

2643

005536
005360

010143
010176
006120
006316
005547

MUNDEF

07-DEC-79 09:06

L 10
14:49
PAGE 4-10
)
08-F
EB-80
30A(1052
MACY11
CROSS REFERENCE TABLE -- USER SYMBOLS

2350

1960

2785

2577«

1604
2588

2581

2601

1026

7624

2334

1514

2835

3114

2428
2798

CZRLJBO RLOV/02 DRIVE

003246
014044

PAT.SL
PAT1
PATI0

002374
005102
005356

PASNUM

PAT?2

1306
1966

1758
2064

2874

2920

2969

1268

1334

1365

1377

1318

1398

1400+

787
707

2728

2776

2820

1264*
1290
1272

1265+
13004
1274«

741
473
3213

3175
2233

1261«

003454

005104

rAT3
PAT4
PATS
PAT6

005144
005204
005244
005252

PAT8
PAT9
PH65%
PNT
=
POSHDS
POSHDO
POSHSB
POSHW1
PRI
=
PRIOR =
PRIOO =
PRIOT1 =
PRIOZ2 =
PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PSETNM
PWCON
PWRFLG
P2TO3E

005314
005354
020240
001000
017732
022030
022024
022016
002000
000004
000000
000040
000100
000140
000200
000240
000300
000340
003456
014314
003464

PAT?7

3219

PASCNT
PASNEW

2'\)

PART2 = 000001

SEC 0129

—

tansnn

PAGE 4-11

7594
7604
7584

M 10

CROSS REFERENCE TABLE =- USER SYMBOLS

o
(=18

PART1

007375
007402
007357
003170
003172
003174
003176
003200
003202
000040
000000
000000
000000
000001
000001
000000
000001
000001
000000

14:49

O0B-FEB~80

005312

(alalaInTalalala RN ol

OPRIA
OPRIB
OPR12
ORIN
ORINU
ORMID
ORMIDU
OROUT
OROQUTU
OUTINS=
0%APTS=
0%AU =
0$8GNR=
O$BGNS=
osOU
=
OSERRT=
O$GNSw=
O$POIN=
O$SE Tu=

07-DEC-79 09:06

MACY11 30A(1052)

CZRL JB.MAC

_TEST 2

1243+
1254
1227+
2669

1494

3201
2327

31N

3180

3192

CZRLJBO RLO1/02 DRIVE _TEST 2

SETDON

2629

2395
2650

2655

3043

3059

1492
1393+

1973
1394

1492

1592

1151
206414
26154

25594

2630

2604

2012+

2038

2039

2577

2580

2606

957
956

972
971

987
986

2525

2574
12654

2603

LYY

1731«
1332

1596+
1595+«
1321

2287+
1332
1325
2294

1508
1501
1152
2444
1502
1397

2011+
1305
1323«
2292+

1732
1269
1013

b
b
b

1404
1384
1574
4314
1564
1607

RORWOP=
RPTOP
RPTREM
RPTRES
RSTRT
SAMSK =
SBSFIL
SECQ
SECWD
=
SFEK
SEEKOP=
SEQMES

1155
1155

O\~

RLVEC

1454
8164
8174
8204
8214
4L
1230

1526

—

RLMP

1153
1153

1521
1604

NONY
~»

RLCSR
RLDA
RLDRV

2440
2792
2298

b
b md

= 000002

2290
2745

RLBAS
RLCS

2001
2695

1234

126#
1726
1849
164994

RLBA

2949

—

RESE4
RESES
RESES
RESPAR
RESTAR
RESTBL
REVSKO=
REVSKS=

2850

QOO
wViono

RESE3

2800

—

RDYWA]
READRL
RELDWT=

1254

RDYCHK

22634

RDNOHR=

7204
721#
7224
7234
724N

RDALHD
RDODATA=
RDHEAD=

2719
2767
2814
2868
2914
2963
3027
3086

$835R8%
\I\OO?
N=—=N

P2TO&E
P2TO7E
P2TO8E
P2TO9E
P2T10E
P2TI1E
P2T12E
P2T13E
P2T14E
P2T15E
P2T16E
P2T17E
P2T18E
P2T19E

7094
7104
7114
7124
7134
7144
7154
7164
7174
7184
7194

006525

_— Ny

P2TOLE
P2TOSE

07-DEC~79 09:06

CZRLJB.MAC

N 10
08-FEB~80 164:49 PAGE 4-12
CROSS REFFRENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

gNN
SWAPHO
S$LSYM=

geee

SvCT1ST= 00000

o 2

SVCTAG=

W
—
- QD ~2

Sv(SuB=

TAG

TBLSTR
18er
TCERR

TEMP
TEMPO

2395

1477+
1477+

2081

»>

£33
0O

rony
—
W00

[o 3V, 10

NNy
—»
W=

AWV, 1V, ]

* 8
N

N X
[ )

S
S
O
S
S
o Y

gmf\)fl‘\
= NGO N NANNAN
O NO WO
S-

2564

1822+

N =2 O N S NN — O & -

1821«

2240+

[ L],

PIND =

b =d od —b

b e

000000

1664+

8&8

——

Sv(BGL
- 000001
000000
SvCGBL

SVCINS

2239+

o] Y s LN RNV NIV, TV
W NI D N0
NN

8224
823
8o4m

1823+

2190+

2432

1878+

2206
2436+

1066
1601

—

1994

1643+
2068
2268+

i i e —d o w—d

7714

2251+

1550«
2052+
2264

OB D WAN)
= O S =

2506

2241

1546
1989+

—

1926
237

12264+
1985

[a®] e

7264

IRy
—

1566

\N-

STOSTA= 010009
SUBS TK
002420

207#

11824

ONVWN&O&WO
SR SONNONWN

010604
010614
010624

2605

7254

S BNNNI—=

STATE?
STATE3
STATES

7648

STAMES
007537
=
SK
0097
STAM

31684

030776 G
007450
007073
SPDSTA= 004000
SPTCOD
013554 G
SRTMES
007105
35S INDX
003016
SETPRM
SGNWD
SKTMES

8 1
14:49
PAGE «-13
30A(1052)
08-FEB-80
(ROSS REFERENCE TABLE =-- USER SYMBOLS

O—ONMONI NONIWN
) N —= O W
- N—

C7-DEC=-79 0906

MACYT1

LS \h—‘gbl\wuf\)—' &= B

L{RLJB.MAC

TEST 2

[+ . ¥

“(R_J0 RLOY,J2 DRIVE

1988+«
2634

1893

2210+
2506+

1897+

2222+
2560

(ZR.JBO RLO1/02 DR!VE TEST 2
CZRLJB.MAC
07-DEC-79 09:06
TEMP1

TEMPZ2

TEMP3
TEMPL

003134

4654

1657+«

1659+

1729

2620+

2422+

1003+

1018+

1019

1064

1066

1983«

1994

2045

2623+

2430+

2643

003136

LON

003142

“684

003140

MACY11 30A(1052)
OB-FEB-B0 14:49 PAGE 4-14
CROSS REFERENCE TABLE =-- USER SYMBOLS

1538+

1540

2461

2472

1543

1544~

1554

1580

1589

1636

1734

1907

2013

2170

2478

2692

2891

15641«

TEMPS
TEMP6

003144
003146

TIME
TIM.US

015256
003476

1012
5228

1418¢
1619+

1597
1437+

1617

TRPFLG

003462

5164

1353«

1358

1461+

TSTINT

016214

1531

2670

2720

2768

2815

2869

2915

2964

3028

3087

634

10334

10664

10804

10894

11524

11534

11554

13314

13324

TEMP?
TEMPB

003150
003152

TOSLOW= 000001

TRPHAN

015576

TSTLAB
006501
TYPDR = 000006

T$ARG(C= 000010

"$C0DE= 005052
TSERRN= 001275
T$EXCP= 000000
T$FLAG= 000040
T$SGMAN= 000000

LOoH
4704

1537

SEQ 0132

G710
“720
1514

1354

6904
97

1388

2568
3154

14614

13334

1647+

13604

1981«

13614

13630
%(5%62:

13724
25814

1374
25974

13764
26014

14914
26054

14924
26084

14934
26204

19724
2629%

19734
26304

1974k
26334

23954
26414

25634
26438

25644
20644N

31504
31864
8¢
20354
24830

31514
31874
15784
20434
24894

31524
31884
16154
20924
24984

31534
318%%
16284
21044
25024

31544
31914
16344
21114
26884

31554
31934
17394
21734
27024

31724

31734

31814

31824

31834

31844

31854

1744k
2183
28874

1BS34
21874

18694
22484

19124
23014

19234
23064

20204

20314

31894
30104

31914
30724

31934
3134

31514
27064
s

31524
27268

31534
2774m

31554
2827A

31834
2901x

31864
29274

24104

24684

T$HILI= 000377

31514

31524

31534

31554

3183¢

31864

31894

31914

3193«

THLOL
1= 000001
TSLSYM= 010000

3151
8¥
1338
2860

3152¢
932
1379
2900

31534
946
1404
2908

31554
960
1408
2957

31834
975
1463
2959

31864
990
1479
3009

31894
1095
2705
3023

31914
1109
2713
3071

31934
1131
2761
3082

1145
2763
3130

1159
2808
3140

1179
2810
3157

1196
2858
3195

8¥
946N

S84
9484

654
604

batod
9624

2184
o754

2244
Q774

634n
9904

6454
9924

8664
10954

8754
10974

9204
1109

9324
11114

9344
11314

27664
29294
31304
32174
866
13524

TSLAST= 000001

T$LTNO= 000011

TSNEST= 177777

3219#

11334
11964
14064

TSNSO = 000000

TSNS1 = 000005

T$NS2 = 000002
T$PTNU= 000000

26774
28584
30230
31654
584
1180
26664
9204
1109
13864
2763
30854
26774
3009
8#

32194

11454
11974
1408#¢

27054
2B60#
30264
3168¢
65
11824
3142
932
1M
1404
27664
3140
2705
30484

11464
11994
14104

27134
2865
30484
31694
90#
1197
31484
934
1135
14064
2810
31494
27304
3071

11594
12064
14154

27184
28764
30714
3182
218
1199¢
3165
946
11334
1408
28134
3157
2761
31074

11604
12124
146574

27304
29004
30824
3185
224#
1206
31684
9484
1145
16574
2860
31694
27784
3130

1163¢
1213¢
14634

2761
29084
30854
3188
634
12124
3217
960
11464
1463
2866¢
3182
2808

11674
13384
14654

27634
29134
31074
31954
6454
1339

9624

1159
1E5H
2908
2185
28294

11714
13394
14794

975

11724
1479
29134
3188
2858

11724
13524
18304

27784
295784
31404

11794
13794
18774

28084
29594
31424

11804
13854
26594

11824
13864
26668

1183«
14044
26674

8754
1379

1160
13854

11634
1410

1167
164154

11714
2659

1095

10974

9774

1179
18304
2959
3195
28764

990

28104
29624
31484

9924

28134
29934
31494

28294
30094
31574

1183#
1877
2962»

1196
26674
3023

12134
2713
30264

1338
2718+
3082

2900

29294

2957

29934

MACY11

C(ZRLJBO RLO1/02 DRIVE _TEST ¢
CZRLJB.MAC
07-DEC~79 09:06

TSTAGL= 177777
TSTAGN= 010047

TSTEMP= 000000

TSTEST= 000011
T$TSTM=

T$TSTS=
TSSAUT=
T$SCLE=
TSEOU =
TSSHAR=

177777

000001
010016
010017
010020
010045

SEQ 0133

18774
®¥

T$SAVL
= 177777
TSSEGL
= 177777
T$SEKO= 010000
TSSUBN= 000001

0 1

14:49
PAGE 4-15
08-FEB-80
(ROSS REFERENCE TABLE == USER SYMBOLS

30A(1052)

26774

27184
30484

27304
30854

27664
31074

27784

9344

9484
13864

9624
14064

9774
16574

9924
14654

30264

13524

28664

28764

29134

29294

29624

6344

8664
11794
14794

9324
11804
18774

946N
11964
26594

9604
11974
27054

27664
3107
990

2778
3219
1033

2498
2633
2733
2876
3010

1333
1378
1492
1869
21
2502
2641
2761
2887
3023

1334
1379
1493
1877
2173
2563

27664

28134

946

11674
14634

28274
30724
31654

28584
30824
31724

28604
31304
3173

2677
30264

2718#
3048
960

2730
3085#

946
1153
1304
137¢
1442
1830
2043

2483
2629
2726
2858
2994
3140
27184

1155
1331
1376
1489
1831
2092

2489
2630
2730
2860
3009

975
1159
1332
1377
1491
1853
2104

29004
31314
31814

1217

29014
31404
31834

1220

28134

2BOON

10974

11334

20674
29534

27184
30484

9754

1095#
1338#

12044
27064
29084
31424
31844

27264
29574
3151»
3187#

28134

28664

1066
1221
1335
1388
1494
1912

1089
1229
1354
1397
1578
1972

2643
2763
2900
3048

2183
2564
2644
2774
2901
3049

2248
2581
2677
2781
2927
3072

28664

29134

29624

3085+

9624
1159

975

TSSHW = 010013

TS$PRO= 010012
T$$SEG=
T$$SOF
= 010046
T$$SRV= 010022
T$$5UB= 010044

TS$SW = 010074
T$STES= 010043

9774

9924

1095

r
Ve

T$$IN]= 010015
TSSMSG= 010011

960
11464

27304
3071

2761
31074

27784
3130

2808

28294

28764

2900

29294

2957

2713
29134

27184
2927

2726
2959

2763
2962#

27664
3010

2810
30264

2813«
3072

2827
3082

2860
3085#

1069
2016

1471«

1499«

1562

9344
113

14654

11334

1479

T.8A
T.CS

003062
003060

1500«
1023
1916

2645
1067

Y.DA

003064

1501+

2645

1921

2024

2033

2177

1572

2185

1620

2304

1626

2485

10974

1742
2693

(ZRLJBO RLO1/02 CRIVE_TEST 2

(ZRL JB.MAC

1.1

026214
026020
026216
026266
026270

12163
121658
12265%
12278
12338
123658
12465%

026500
026634
027060
026726
027106
027266
027514

1257BL
125182
125178

002444
002472
030014

“247%

12568

12565%

\ ¥4

027516

17.1
78
78.1
19
19.1

UM
=
ULOAD =
UNDTST
UNXERR
VALDES

027062
027356

027670
030026
030146
030324
030446

000200
000010
007412
006464
007127

VCNRST 006443
VCSTAT= 001000
VECMSG

030720

20674

2676
2709
2718#

2806
2777
2821
2856
2904
2875
2921
2955
2974
2977
30194
3021
2970
3014

030024

027120
027270

1103

2759

027554

15.1
16

1279+

1021

2729

027360

027626
027574
(27610
030052
(030322
030134
030350
030434
030620
026426
026476
002520
026636
026724

16.1

26774
2672

(026426

12578
T258%
125888
12668
12665%
1267%
12758
1276%
12765%
T3
13.1
T331BL
T4
141

L0
LL7n
1204

026030

119658
11978
12
12.1
12063

T2065%

002312
003066
003074
025774

29794
3080
3041
3077
3138
3135
3100
27664
OO
O
O 6
o
o

T.DRIV
1.MP
T.STAT
A

07-DEC-79 09:06

EN
MACY1T 30A(1052)
08-FEB-80 14:49 PAGE 4-16
CROSS REFERENCE TABLE == USER SYMBOLS

28134
28664

29134
29624

30264

30854

1630
1624
1622

31604

2975

1680
1502«
1601+

1705
1564

3020

30224

3044

3046

3079

30814

3103

3105

3137

3139

1281

14674
1600+

1566

2711

27624
28094
2859«#
29064
29584

2972
3016
3018

1600

SEQ 0134
162¢

2142

2645

(ZRLJBO RLO1/02 DRIVE TEST 2
(ZRLJB.MAC
07-DEC-79 09:06

VECT
= 000002
VERHDR
021460
022466
VERPQS

954
20674
22364

3152
2755
2748
632

WGESTA= 002000
WLSTAT= 020000

2114
2064
2094

1566

WAITIN
WCMSK = 017777
WCRNG = 160000
WOESTA = 100000

WRTSW]

WIDATA = 000112
XDELAY
XRDHD
XRDHDC
XRDHDG
XREAD
XREADG
ASEEK
XSEEXT

XSEEK1

X1IME
XWRITE
XWRITT
XWRIT1

XSAL WA=
X$FALS=
XSOF FS=

X$TRUE =
YDELAY

021024
021014
021030
023646
023654
017160
017150
017164
015422
023606
023576
023612
000000
000040
000400
000020
003470

- 031342

15064
1914
1924

4284
1244
5184

2478~

19834
19814
1982

24304
2429

16594
16574
1658
1328

24224
24204
2421

08-F EB-80 14:49 PAGE 4-17
MACY11 30A(1052)
CROSS REFERENCE TABLE =-- USER SYMBOLS

2802
2795
1737

2423

1012+

2692~
2213

SEQ 0135

2852
2845
2041

2951
2897
2299

2945
2481

3006

3061

3120

1421+

1425+

1430%

1477«

1597«

1617«

1734+

1907«

3040

3056

2013¢

2170+

19844

24314
1846

2679

2742

2789

2840

2878

2940

3001

16604
1396

14364

1518

1558

1574

1609

1918

2179

3182
3182

3185
3185

3188
3188

1328«
1918+

1396+

1438

1439+

16440+

1441«

14646%

1450«

1477+

1518+

1558«

1574+

3304
2726

331
2776

S1Ie
2827

5324
2901

5334
2927

5354
3010

5364
3072

86
313

1424

1429
3182

1445
3185

3115

24234

2706
32164

2179+

31664

ESCAPE
EXIT
GETTIM
GPHARD
GPRMA
GPRMD
GPRML
HEADER
INLOOP
LASTAD

2730

2778

2829

2876

2929

2993

3048

3107

2718

2766
1230

2813

2866

2913
2734

2962
2782

3026
2832

3085
2933

1397
1429

1401

2808

2858

2763

2810

2860

1615
2111
2887

1628

1634

- U

~NnN

2957

3130

2908

2959

3140

1739

1744

1912
24610

2173

2183

2187

2901
2774

3010
2827

3072

2927

313N

3152
3155
3154

3183
3172

3186
3173

3189
3181

3191
3184

3193
3187

1831

2733

2781

2831

2932

2994

2248

3049

3108

3148

3168

2995

3050

2761

1415

s
Y =—b

1479

—

1160

218

1494

1377

1449

—t

1445

SIIBRIRAR

—

N = = BN SN INWNIWND

1443

1226
1402

1832

nn
992

wno

875
977

——

962

948

1490

—

1423

1465

CLOCK

LRVEC
DELAY
DESCRI
DEVIYP
DISPAT
DOCLN
DODU
ENDAUT
ENDCLN
ENDDU
ENDHRD
ENDHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDSEG
ENDSFT
ENDSRV
ENDSUB
ENDSW
ENDTST
S
EQUAL
ERRHRD

1271

1257

224

BGNSW
BGNTST
BNCOMP
BRESET

SEQ 0136

—

1477
1254

ABOR T
BCOMPL
BGNAUT
BGNCLN
BGNOU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNSEG
T
BGNSF
BGNSRV
BGNSUB

6 1
MACY11 30A(1052)
08-FEB-80 14:49 PAGE 5
CROSS REFERENCE TABLE == MACRO NAMES

2659

3165

3217

1923

2020
2483

2035
2498

2043

—t

(ZRLJBO RLO1/02 DRIVE TEST 2
CZRL JB.MA(
07--DEC~79 09:06

2468

2502

CZRLJBO RLO1/02 DRIVE TEST 2
CZRLJB.MAC
07-DEC-79 09:06

H 11

08-FEB-80 14:49 PAGE 5-1
MACY11 30A(1052)
CROSS REFERENCE TABLE =-- MACRO NAMES

MSBYTE
MSCHEC
MSCNTO

2774M

28274
31524

MSCOUN

10664

MSDATA
MSOECR

26204
664
2184

10804
14924

26294
Y4
6344

26334

MSOEF
A

27054
30824
3151

27134
31304
31524

9324
11974

27634
3144
31544

MSENDE

2184

6344

9324
12064
28084
31574
17394

If$ERRI

MSESCA
MSESCS
MSEXCP
MSEXIT
MSE XSE

MSEXTJ
MSGEN

MBGETS

MSGETT
MSGNGB
MEGNIN

3151

14914

11794

1180#

27134
31304
1615#
2111
28874
29014
29014
31524
2774
27740
2774
634
9774
11794

14084
27634
29574
31494
2184
11794
27054
30824
27060
634
11334
14754
664
11524
12504
13384
12014

11804

11564

27614
31404
16284

21734
30104
3C104
31534
28274
28274

28274

664
9904
1182#
16154
27664

2954
31574
6344
1180#

27134
31304
27744
664

114€4

14504

14574
674
11534
12514
13544
14024
14914

30824
31694

21834
25814
27024
28104
29334
31074
372k

18534
21738
25684
26884
28084
2934

18694

29274
3153«

31544

31554

31724

31734

11524
19724

11534
19734

26414

11554
19744

26434

23954

9464
12064
28084
31574
9464

31554
13384
28104
31654

2644N

26454

9604
13384
28104
31654
31724

Q754
13394
28584
31954
31734

9904
13794
28604
32174
31814

10954
14044
29004

11094
14084

11454

29084

31834

31844

3187#

9604
13394

754
13794
28604
32174
18694
23064

9904
14044
29004

10954
14084

29084

11094
16104

29574

11454
14794

19124
24104

19234
24684

20204
24834

20354
24984

31914

31934

31894

14634
28084
29934
31694
9324
11974
27634
31424
29014
04
11714

26664

9464
1159
12544
13614
14084
14934
19124
220484
26014
27064
28294
2954
31094
31814

26054

13634
25974

31864

2244

310%#

13604
25684

31314
31314
31834

10974
11994
14654

3187#

13334

22484

904

31844

25644

21874

10954
11964

13324

3183

25634

28584
31954
18534
23014

17440

31817

SEQ 0137

13314

8754

9204

1M
12124
18774

11314
12134
26664

9754
13394
28584
3182¢
3072
8754
11834
368
9904
12044
12704
13724
14244
15784
19734
23954
26204
27304
28584
29954
31404

9904
13794
28604
31854
31314
9204
11994
31694
10334
12174
12714
13740
14294
16154
19744
24104
26294
27334
28604
30094
31494

28294
30264

9344

11454
13524

28584
30484
11314

32174
12134
10854
12214

13314
14454

9778
1352#

13744

(ZRLJBO RI 01/02 DRIVE TEST 2

CZRLJB.MAC
MSGNLS
MEGNSU

MEGNTA

07-DEC-79 09:06

31954
18774
26774

MEGNTE

9324
14084
3009
26674

MSHNAP

63n

MSHAPT

MSINCR

634

MSLDRO

584
992#
11554
12504
13614
14020
15784
19764
26104
2920
2718¢
28314
29624
31304
12174

MSMCH]
MSMCLO

&
¥

M$POP

MSPRIN
MSPUSH

MePUT
MSPUTT

MSRADI
MSRNRO

MSSETS

mMS$SvC

MACY11 30A(1052)

0B-FEB-80

28294

29294

14:49

PAGE 5-¢
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0138

32194

27304

946N
14634
3023«
2718r

27784

9604
14794
30714
27664

9754
27054
30824
28134

2B76

9904
27134
31304
28664

10954
27614
31404
29134

29934

30484

31074

11094
27634
31574
2962#

11314
2B0B#
31954
30264

11454
28104

11594
28584

11794
28604

11964
29004

13384
29084

13794
29574

14044
29594

30854

904
10334
11594
12534
13634
14044
16154
20204
2668¢
26304
27264
28584
29934
31314
12204

2244
10664
1163¢
12564
13654
14064
16284
20314
2483
26330
27304
28604
2994w
31404
12254

6454
10804
117214
12704
1372%¢
164084
1634w
20354
24894
26414
27334
2BGON
30094
31484
1229#

8754
10894
11724
13034
13744
14154
17394
20434
24984
206434
276
N
28764
30104
31494
12504

9204
10954
1182¢
13044
13764
14224
1744#
20924
25024
2644
27634
28874
30234
31684
12534

9324
1097#
11834
13314
13774
146424
18304
21044
25634
2645K
27664
29004
30264
31694
12564

934n
11094
11994
13324
1378
4
1457
18314
21114
25644
26664
27744
29014
30484

46H
11114
12124
13334
13794
14654
18534
21734
25684
26674
27784
29084
30494

9484
11314
12134
1334¢
13854
1489
18694
2183
25814
2677K
27814
29134
30714

960#
11334
12174
13354
13864
14914
18774
21874
25974
26884
28084
29274
30724

9624
11454
12204
13384
13c84
14924
19124
22484
26014
27024
28104
29294
LuB2#

9754
11464
12214
13524
13904
14934
19234
23014
26054
27054
28134
29324
30854

9774
11524
12254
13544
13974
14948
19724
23064
26084
27064
28274
29574
31074

9904
1153«
12294
13604
14014
14954
19734
23954
26204
27134
28294
29594
31084

12704

13044

1334x

13654

13774

1378¢

13904

13974

654
11674
26594
30714
10334
13764
26084
584
1163
18304
29934

2184
11794
27054
3082¢
10664
146914
26204
904
11714
26668
30264

634M
11804
27134
31304
10804
14924
2629%
2244
11724
26674
3048¢

8664
1196#
27614
31404
10894
14934
26304
6454
11824
26774
30854

9324
1197#
27634
31624
11524
19724
26334
8754
11834
27184
31074

946N
12064
28084
31574
1153#
19734
26414
9204
11994
27304
31484

2604
13384
28104
31654
11554
19744
26438
9344
12124
27664
31494

9754
13394
28584
31954
13314
23954
644N
9484
12134
27784
31684

9904
13794
2B6O#
32174
13324
25634
26454
9624
13524
28138
31694

10954
14044

29004

11094
14084

29084

11314
14104
29574

11454
14634

29594

11594
14794

30094

11604
18774

30234

13334
25644

13604
25684

13614
25814

13634
25974

13724
26014

13744
26054

9774
13854
28294

9924
13864
2B6GH

10974
14064
28764

11114
14154
29134

11334
14574
29294

11464
146654
29624

13724
25974
10334
13724
25974

137644
26014
10664
137644
26014

13764
26054
10804
13764
26054

13884
26084
10894
13884
26084

14914
26204
11524
14914
26204

1492¢
26294
11534
14924
26294

1493¢
26304
11554
14938
26304

19724
26334
13034
19724
26334

19734
2641
13314
19734
26414

19744
26438
13324
19744
26434

23954
2644K
13334
23958
2644K

25634
2645M
13544
25634
2645H

25644

25684

25814

13604
2564k

13614
25684

13634
25814

31864

31874

318

31914

12174

12704

2244
11724
26678
30484

6454
11824
26774
30854

8754
1183%
27184
31074

9204
1199%
27304
31484

9344
12124
5766#
1494

94
12134
27784
31684

#
13524
281
31694

9774
13854
28294

9924
13864
2B6OH

1097&4
14064
2B764

11114
16154
29134

11334
14574
2929

11464
14654
29624

13604
14044

15614
14%8‘

1
14§ (4

1 290
1253
13654
144§l

10954
12564

11314
13034

11454
13044

11524
13314

11534
13324

185

13724
14894

1109#
12704

1869

18774

1912

1923

1972

1973#

1033#

31504

584
11634
18304

2993¢

9324
11554
13334
13884
1578

10664

31514

0x
11714
26664
30264

946N
1159%
13344
13904
1615

10804

3152#¢

9604
12174
13354
13974
1628

10894

31534

9754
12204
13384
14014
1634

1152#

31544

9904
12214
13544
14024
1739

11534

31554

10334
12254
1744

11554

31724

10664
12294
18

13034

3173¢

1
1

183514

13314

31814

13324

31834

13334

31844

13744
14914

13544

13764
14928

13604

137784
14938

13614

1378¢
14944

13634

1379«
14954

CZRLJBO RLO1/02_DRIVE_TEST 2
CZRLJUB.MAC
07-DEC~79 09:06

MACY11

203]
2483

2035
2489
206414
2774
29274
31074
9754

20204
24684
26308
7618
29014
30724
46N
11590
13360
13004
1615#
20204

MSTSTL

MSXFER
POINTE
PRINTB

2483
26334
27634
B
30824

2092#
26888
31814
31854

2104#
27024
31824
31884

1066

1080

2620
1332
1442
1229
13064
135,

PRINTF

READBU
READEF
SETPR]
SETVEC
STCLK
Sv(C
WAITMS
WA TUS
XFER
XFERF

3182

8
1328
1012
2774n
3185

. ABS.

031342

000

ERRORS DETECTED:

12174
1335
13974
16284
20314

24688
26304
27618
29014
30724
1204#

MSWORD

20314
24334
26334
27634
2908#
30824

15784

12204
13384
16014

16344
20354
2484
20414

27744
29274
31074

9754
12204
13384
164014
16344
20354
248%
26414

27744
29274
31074
16154
21114
27264
31834
1089

20643
2498
26434
27784
29294
31084
9904

12214
13544
14024
17394

20434
24984
26434
27784
29294
31084
9904

12214

13544
14024
17394

23954
26204
2730n
2887
30494

10954

11314
13034
13764

11454
13044
13774
14934
19234

11534
13324
13794
14954
19734

14084
18304
2104¥

14424
18534
2173#%
25684
26884

29324

29574

29934

25814
27024
28294
29944

1066#
12209#
13614
1408
1830#

10894

10954

25024
2644k
27814
31304

10334
12254
13604
14048
17668

12294
13614

25634
264K
80BN
31314

10804

2173
2568#
2688
28274

29934
10894
12534
13654

28274

12534

13654
14424
18534

2994H

12564
13724
14894
18694
21834

21834
2827
31854

21874
2887H
31864

23014
31504
3188#

23064

1152

1153
2641
1363

1155
2643
1372

2563
2645

1576
1907

1609
2013

1256

139%
1597
28274
3188

1261

16364

1739

14924
19124

220484
26014
27064
28584
30104
11314
13034
13764
14924
19124

12564
13724
14894
18694

21734
27744
31844

16284

1253

CZRLJB,CZRLJB/CRF=SV(33/ML, CZRLJB.MAC
RUN-TIME: 84 89 10 SECNDS

2301
26054
27134
2860#
30234

14068
17448
20928

12250
13600

2
25644
26774
28104
29594
31404

21734

1250
1390
1388

2248
206014
27064
28584
30104

2104
25634
2645H
2808#
29574
31314
10664

21044
25634
264N
80BN
29574
31314

2632

1360

2183
25814
2702
28294

2092
2502
2644
57814
29328
31300
1033¢

20924
25004
2644k
27814
29324
31304

2630

1333

SEQ 0139

20434
24984
26434
27784
29294
31084

2629

b =

24104
262
27334
29004

12174
13354
13974
16284

13334
13884
15784
19744

11590
13360
13004
1615¢

26334
27634
29084
30824
S60#

o lo 3V,

11554

26309
27614
29014
30728
46N

M$TLAB

2610
26294
27334
29004
30714
9324

2020
2468

M) =b =2

19744

J 1
14:49
PAGE 5-3
30A(1052)
08~FEB~80
CROSS REFERENCE TABLE == MACRO NAMES

29934

21834
25814
27024
28294
29944

18534

18694

22484
26014
27064
28584
30104

23014
26054
2713¢
28604
30234

23954
26204
27304
28874
30494

11454
13044
13774
14934
19234
23014

11534
13324
13794
14954
19734
23954
26204

26054
27134
28604
30234

27304
28874
30454

19234
24684

31894

31534
31934

20204
24834
31544
3219

20354
24984
31724

2564

2581

2597

2605

1376

1491

1493

1972

1974

2179
2478

2692

31514

2891

CZRLJBO RLO1/02 DRIVE _TEST 2
CZRLJB.MAC
07-DEC=79 09:06
RUN-TIME RATIO: 485/184=2.6
(31 PAGES)
16k
CORE USED:

K 11

MACY11 30A(1052) OB-FEB-80 14:49 PAGE 5-4
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0140