Digital PDFs

AH-F130C-MC

July 1982

104 pages

Original

4.8MB

view download

OCR Version

4.2MB

view download

Document:	CZRLLC0 RL01,RL02 RL01-02 DRIVE COMPAT JUL 1982 bw
Order Number:	AH-F130C-MC
Revision:	000
Pages:	104
Original Filename:	CZRLLC0__RL01,RL02__RL01-02_DRIVE_COMPAT__AH-F130C-MC__JUL_1982_bw.pdf

OCR Text

RSGH,

dif- BIEIREN

SEQ@ 0001

.REM a

IDENTIFICATION

PRODUCT CODE:

AC-F131C-MC

PRODUCT NAME:

CZRLLCO RLO1/02 DRIVE COMPATABILITY

DATE CREATED:

5-JAN-79

REVISED:

4~FEB-82

MAINTAINER:

DIAGNOSTIC ENGINEERING - COLORADC

AUTHORS:

D. DEKNIS, C. CAMPBELL

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 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 NOTICE) ONLY FOR
gefolé?TEgCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?c?gk{ABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
COPYRIGHT (C) 1979, 1982 DIGITAL EQUIPMENT CORPORATION

—

1
PAGE 2

GENERAL INFORMATION

PROGRAM ABSTRACT

b ) b =

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS
SOF TWARE_REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES

ASSUMPT IONS

L] [ ]
——
L]

2
N
N) =2

CCAMAND SYNTA

EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS
ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

~N -

* .
WW
. L]

[

[pS 1,8 ]

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION
SAMPLE RUN-THROUGH
CHAIN MODE OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABIE OF COHHAND VALIDITY

DEVICF INFORMATION TABLES

[

]

HI-O

WWO

NS
NINI WM
—

[

NGO

bbb

[]

TABLE OF CONTENTS

TEST SUMMARIES

SEQ 0002

SEQ 0003

PAGE 3

1.0

GENERAL INFORMATION

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH XXDP+ AND ACT. IT (AN BE
RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+, ACT AND
APT IN ACT MODE (SEE 2.2 °‘CHAIN MODE GPERATION'' FOR DETAILS OF CHAIT IS A SINGLE PROGRAM FROM THE STANDPOINT OF
INING PROCEDURE).
AT RUN TIME IS APPENDED TO A COMMON
WHICH
THE DIAGNOSTIC USER,
FRONT-END PIECE OF SUPERVISOR SOF TWARE THROUGH WHICH THE DIAGNOSTIC
PROGRAM INTERFACES TO THE ENVIRONMENT AS IT EXECUTES.

WHEN THIS DIAGNOSTIC IS STARTED, CONTROL GOES FIRST TO THE SUPERVISOR PORTION. WHICH WILL ASK CERTAIN "HARD CORE'® QUESTIONS ABOUT THE
ENVIRONMENT. THEN IT WILL ENTER COMMAND MODE, INDICATED BY A
PROMPT CHARACTER (DR>). AT COMMAND MODE, THE OPERATOR MAY ENTER ANY
OF SEVERAI COMMANDS AS DESCRIBED IN 2.0 '‘OPERATING INSTRUCTIONS''.

THE
THE DIAGNOSTIC PROGRAM IS LOADED IN THE LOWE)R 8K OF MEMORY.
OF
PART
UPPER
THE
OF
6.25K
OCCCUPIES
CODING
SUPERVISOR
DIAGNOSTIC
MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES IN THE UPPERMOST
1.5K OF MEMORY SPACE.

1.1.2

DIAGNOSTIC INFORMATION

THE RLO1 DRIVE COMPATABILITY TEST IS A PDP-11 (LSI=11) BASED PROGRAM THAT WILL TEST INTERCHANGEABILITY OF CARTRIDGES BETWEEN
DRIVES. THE TEST PERFORMS WRITES, READS, GVERWRITES, ADJACENT CYLINDER WRITES TO PROVE COMPATABILITY. SINCE THE PROGRAM RELIES ON
MANUAL INTERVENTION, A TOTAL TEST TIME IS NOT APPLICABLE. HOWEVER,
TO TEST TWO DRIVES REQUIRES A MINIMUM OF THREE PASS. EACH PASS REQUIRES APPROXIMATELY 70 SECONDS.

1.2

SYSTEM REQUIREMENTS

1.2.1

HARCWARE REQUIREMENTS

* PDP-11/LS1-11 PROCESSOR WITH 16Kk OR MORE OF MEMORY

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

PAGE &

* 1 OR 2 RL11/RLV11 CONTROLLER(S) WITH:

1-8 RLg%C$g£VE§Lg{TH RLOTK CARTRIDGES CONTAINING

'BAD

1 - 8 RLO2 DPRIVES WITH RLO2K CARTRIDGES CONTAINING

‘BAD

SECTOR FILE'

* LINE PRINTER (OPTIONAL)
1.2.2

SOF TWARE REQUIREMENTS

CZRLLCO RLO1/02 DRIVE COMPATABILITY
(FORMERLY CZRLFB)

1.3

RELATED DOCUMENTS AND STANDARDS

RLO1 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
CZRLGCO
CZRLHCO
CZRLIDO
CZRLJBO
CZRLKBO
CZRLNAO
1.5

RUN

THE

FOLLOWING

RLV11 RLO1/02 DISKLESS TEST (RLV11 ONLY)
RL11/RiLV11 RL0O1/02 CONTROLLER TEST (PART 1)
RL11/RLVi1 RLO1/02 CONTROLLER TEST (PART 2)
RL0O1/02 DRIVE TEST (PART 1)
RL0O1/02 DRIVE TEST (PART 2)
RL11/RLV11 RLO1/02 PERFORMANCE EXERCISER
RLO1/02 DRIVE TEST (PART 3)

ASSUMPTIONS

THE HARDWARE OTHER THAN THE RL01/02 SUBSYSTEM IS ASSUMED TO WORK
PROPERLY.
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., DO
NOT FUNCTION PROPERLY.

2.0

OPERATING INSTRUCTIONS

SEQ 0004

1
PAGE 5

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

THIS DIAGNOSTIC PROGRAM SHOULD BE LOADED AND STARTED USING NORMAL
START THE EXECUTION_OF THE XXDP+ MONITOR BY
XXDP+ PROCEDURES.
USING THE APPROPRIATE BOOTSTRAP PROGRAM. THE MONITOR WILL PRINT A
MESSAGE IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
gg;%?gg. AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR THE XXDP+
CHMDKAO XXDP+ MONITOR
BOOTED VIA UNIT O
ENTER DATE (DD-MMM-YY):

HAS BEEN ACCEPTED BY THE MONITOR THE RESTART ADDRESS
AFTER THE D’
REKEgHE MON!TOR IS PRINTED. THEN THE FOLLOWING TWO QUESTIONS ARE
50 HZ ? N
N

LS ?

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 5 STEPS WILL OCCUR:
EARRRARARS

v STEP 1 «

12234822224

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 XxXDP+. WE WILL REFER TO THE PRESENCE OF THIS PROMPT AS
BEING IN DIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+ COMMAND MODE.

AT THIS POINT YOU WILL ENTER A ‘'START'' COMMAND. THIS IS NOT [HE
SAME AS THE XXDP+ °‘‘START'' COMMAND, WHICH YOU ALREADY ISSUED IN RES<
PONSE TO THE XXDF+ DOT PROMPT. THIS ''START'' COMMAND CAN TAKE A
NUM3ER OF SWITCHES AND_ FLAGS (ALL OPTIONAL) AND THE DETAILS OF
°'DETAILS OF COMMANDS AND SYNTAX''.
THESE ARE SET FORTH IN 2.3
ALL YOU NEED TO SAY IS SOMEPROGRAM,
THE
USE
TO
¥3¥SzEEiKEI¥H?BDER
3:

STA/PASS:1/FLAGS
:HOE

SEQ 0005

PAGE 6

THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND

THE ‘PASS’' SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL
ONE
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY).

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

PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE 'FLAGS'® SWITCH MAY SPECIFY ANY OF A NUMBER

BUT THE MAIN USEFUL ONES ARE:

PNT
LOE
HOE

IER

FLAGS,

PRINT NUMBER OF TEST BEING EXECUTED
LOOP ON ERROR

HALT ON ERROR

INHIBIT SRROR PRINTOUT

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL

WHY SHORTLY).

SEE

123223224221

* STEP 2 «

12234222221

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

A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET
DEVICE OF THE DJIAGNOSTIC. FOR EXAMPLE, IF THE DJAGNOSTIC IS DIRECTED AT A DiSK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE
NUMBER OF DRIVES TO BE TESTED, WHEREAS IF THE DIAGNOSTIC WAS DI~
RECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD BE
THE NUMBER OF CONTROLLERS. THE TARGET DEVICE OF A DIAGNOSTIC CAN
ALWAYS BE DETERMINED BY INSPECTING THE 'HEADER'' STATEMENT NEAR THE

BEGINNING OF THE SOURCE CODE.

ONE OF THE OPERANDS OF THIS °‘‘HEADER'

STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.
ARRRNANEAR

* STEP 3 «

12824824221

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED, THE DIAGNOSTIC WILL ASK YOU THE °‘'HARDWARE QUESTIONS''. THE ANSWERS TO THESE
QUESTIONS ARE YSED TO BUILD TABLES IN CORE, CALLED ‘‘HARDWARE
?EI?EBES .
ONE HARDWARE P-TABLE WILL 3E BUILT FOR EACH UNIT TO BE
THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL

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

SEQ 0006

PAGE 7

ENGINEERING.
THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC
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.
L22248444l

* STEP 4 +

1322324224

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

* STEP 5 »

1242223 4884

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIUNS, THE DIAGNOSTIC WILL
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERAL THINGS
THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START
COMMAND.

CONSIDER THE POSSIBILITIES:

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

IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS

HAP-

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

AND

PENS, DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS.

LOE SET:

CONSOLE

THE DIAGNOSTIC WILL LOOP ENDLESSLY ON THE

OF CODE THAT DETEC/ED THE ERROR.

BLOCK

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

SE@ 0007

1
PAGE 8

SAMPLE RUN=-THROUGH

2.1.2

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

;gElsgaggLE

IF NO ERRO~S

IF AN ERROR IS ENCOUNTERED, THE ERROR

PROMPT

ARE

REISSUED

WIiL!.

REPORTED

(BECAUSE THE HOE FLAG IS SET).

THE

AND

AT THIS

WILL

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

ISSUE A 'RESTART'' COMMAND (SAME AS START COMMAND
CEPT THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

EX-

RESUME

E%ATL THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
A

ENCOUNTERED,

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

PRCGRAM

ISSUE A '‘CONTINUE'' COMMAND (EXECUTION WILL

GOING

THE BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST
DIAGNOSTICS CONSIST OF A NUMBER OF THESE) ThAT IT WAS
IN WHEN THE ERROR MALT OCCURRED. NO QUESTIONS ASKED.

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

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

TURN ON THE IER (INHIBIT ERROR PRINTOUT) FLAG

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT

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

SEQ@ 0008

PAGE 9

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

START

RESTART

CONTINUE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
RUNLING 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 TO THE
NEXT ERROR OR TO END OF PASS.

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC
TWO CHOICES:

START

RESTART

AGAIN,

YOU

HAVE

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

SEQ 0009

PAGE 10

MIGHT

THE FULL PRINT-QUT FROM THE ABOVE DJALOGUE
(O=OPERATOR, D=DIAGNOSTIC):

LOOK

)
WHOM

ENTERED

R CZRLLC
DRS LOADED

0
D

(ZRLL VERIFIES INTERCHANGEABILITY OF

b
0

DIAG. RUN-TIME SERVICES REV. C APR-79
CZRLL-B-0
CARTRIDGES BETWEEN DRIVES

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

D
0.0

CHANGE HW (L) ? Y

D.O

# UNITS (D) ? 2

0,0

UNIT 0
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
= RLOT (L) ¥ ?
DRIVE TYPE

D
0.0
D,0
0,0
0.0

UNIT 1
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160?
DRIVE (0) 0 ? 1

D
0.0
0.0
0.0

D.0

= RLO1 (L) ? N
DRIVE TYPE

(N=RLO2)

CZRLL HRD ERR 00904 TST 003 SuB 002 PC:004130

ERR HLT

0.0

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

d2R22022dt]
3233
2222322230202
2223
3283821422323
2222

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYT'iING. YOU CAN SCOPE
THE ERROR UNTIL YOU HAVE LUCATED 1T, THEN “C OUT.
N

“C

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

0.0

THIS

SEQ 0010

]

SEQ 0011

PAGE 11

CZRLL EOP 1

DR>RESTART/PASS:1

D.O

CHAIN MODE OPERATION

NOT THIS PROGRAM IS NOT CHAINABLE. CHAIN MODE OPERATION CONSISTS
OF THE SEQUENTIAL EXECUTION OF PROGRAMS WITHOUT OPERATOR INTERVENTION. ONLY PROGRAMS THAT HAVE BELN 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 8Y USE OF THE XTECO TEXT EDITOR.
THIS FILE MUST HAVE A CCC EXTENSION. THE CHAIN FILE MAY CONTAIN
THE COMMANDS
ANY OF THE COMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THEY ARE ENWHICH
IN
ORDER
THE
IN
EXECUTED
égUN}ESEDASCII FILE ARE
TO EXECUTE A CHAIN FILE THE USER TYPES:
C FILNAM <CR> OR
C FILNAM/QV <(CR>

IN THE rIRST 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 PASS COUNT IS NOT USED
AND EACH PROGRAM 1S EXECUTED ONLY ONCE. THE /Qv SWITCH PROVIDES A
SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.

WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE SOFTWARE SWITCH REGISTER
SHOULD BE SET TO 000000. THE XXDP+ MONITOR PRINTS EACH COMMAND
TAKEN FROM THE CHAIN FILE AND THEN EXECUTES THE COMMAND. WHEN THE
LAST COMMAND OTHER THAN ANOTHER C COMMAND HAS BEEN EXECUTED THE
XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT (.). IT IS
READY TO ACCEPT ANOTHER COMMAND FROM THE CONSOLE. IF THE LAST (OMMAND IS ANOTHER C COMMAND, THE CHAIN MODE WILL CONTINUE AND THE
CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED.

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

’

PAGE 12

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

LEGAL COMMANDS

START
PRINT
DISPLAY

OPERATOR ENTERED 'RUN DIAG'

FLAGS

LFLAGS
EXIT

LIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY
FLAGS
ZFLAGS
EXIT

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART
CONT INUE
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONTINUE

PROCEED
PRINT

SEQ@ 0012

PAGE 13

2.3.2

COMMAND SYNTAX

222322022320 22222 2

T2 322222

iRt

add i

i ddiiidddidds)

ASS
OP:EOP=INCR
'ST/P
GS :FLAG-LIST/E
EST=L
:PASS=CNT/FLA
STA(RT)/TESTS:T
TERA R RN RN RN RN R NR RN R RN NN AR

A AN RRARRAANRNANNNRARAAANAARECRAANRARNS

THE DIAGNCSTIC IN CORC 1S EXECUTED IN ACCORDANCE WITH THE SWITCHES
THE MESSAGE ''# UNITS?TM IS PRINTED. THE START COMMAND
SPECIFIEL.
WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE
ISSUED
BE
MAY
A) OPERATOR TYPED ‘RUN DIAGNOSTICTM* B) DIAGNOSTIC
FOLLOWING:
OF THE
FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET D)
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 T'4€ ANSWERS, IF GIVEN,
BECOME THE NEW DEFAULTS. THEREFORE IT IS NE"cSSARY TO RELOAD THE
PROGRAM IN ORDER TO RETURN 10 THE LOAD DEFALLTS.
THE SWITCH ARGUMENTS ARE AS FOLLOWS:

“TEST-LIST'* IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES
OF DELIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXTHE NUMBERS RANGE
ECUTED. THE NUMBERS ARE SEPARATED BY COLONS.
FROM 1 TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE
SPECIFIED IN ANY ORDER. TESTS WILL BE EXECUTED IN NUMERICAL ORDER
REGARDLESS NF THE ORDER OF SPECIFICATION. THE DEFAULT IS5 TO EXECUTE ALL TESTS.

*PASS=CNT'* IS A DECIMAL NUMBER INDICATING THE ODESIRED NUMBER OF
PASSES.
A PASS IS DEFINEND 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 ERROP, CAUSING THE DIAGNOSTIC TC LOOP

WHEN

CONTINUOUSLY

WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, SUSTEST, OR TEST) CONTAINING THE ERROR

JIER INHIBIT ERROR REPORTING

IBE INHIBIT BASIC ERROR REPORTS

IXE INHIBIT EXTENDED ERKOR REPORTS
PRI DIRECT ALL MESSAGES TO A LINE PRINTER
PNT PRINT NUMBER OF TEST BEING EXECUTED

SEQ 0013

2
PAGE 14

BOE BELL ON ERROR

UAM RUN IN UNATTENDED MODe, BYPASSING MANUAL INTERVENTION TESTS
ISR INKIBIT STATISTICAL REPORTS

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

LOT LOOP ON TEST
EVL EVALUATE
THE FLAGS NAMED OR EQUATED TO 1

CLEARED.

ARE

SET,

THOSE

A FLAG NOT SPECIFIED IS CLEARED.

NOT GIVEN ALL FLAGS ARE CLEARED.

EQUATED

‘EOP=INCR'’ IS A DECIMAL NUMBER INDICATING HOW OFTEN

(IN

TERMS

PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED.
DEFAULT IS AT THE END OF EVERY PASS.
LA

RRA

ARE

IF THE FLAGS SWITCH IS

THE

AR atdddddadddaddsad
i
dadsdsdliadsisdiiidsaddiililstssyss

35?;;A5§;4TE?;;TEST'LIST/PASS:PASS-CNT/FLAGS:FLAG-LIST/EOP:EOP’INCR/

AR AR AR R AR AR AR RARARRRARRRRARR AR RN ARRRR AT ERRRNRRA RS
THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE
SWITCHES
SPECIFIED.
HOWEVFR,
NEW °‘P-TABLES'' ARE NOT BUILT.
INSTEAD, THE
ONES IN CORE ARE USED.

THE QUESTION '‘CHANGE SW?'’ 1S ASKED AND THE ANSWERS GIVEN BECOME THE

NEW

DEFAULTS.

Egfi;ggEICVIA

THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN

DIAGNOSTIC

FINISHED

HALT

ERROR

()

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

'UNIT-LIST'' IS A

RANGING FROM 1

SEQUENCE

LOGICAL

UNIT

NUMBERS

THRU N (N = NUMBER OF UNITS BEING TEST-

ED) SPECIFYING WHICH UNITS ARE TO BE TESTED.

THE LOG-

JCAL
UNIT NUMBER DESIGNATES
THE
POSITION OF
THE
P-TABLE IN CORE, ACCORDING TO THE ORDER IN WHICH
THEY
WERE
BUILT.
THE
UNITS SPECIFIED MUST NOT HAVE BEEN
DROrPED BY THE OPERATOR DROP COMMAND.
THE
UNIT-LIST
DEFAULTS
TQ “ALL THAT HAVE NOT BEEN DROPPED BY OPERATOR COMMAND
THE EFFECT OF THE UNIT=LIST LASTS UNTIL
THE NEXT
START
(WHERE
IT IS AUTOMATICALLY RESET TO
ALL') OR THE NEXT RESTART,

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

SEQ 0014

2
PAGE 15

ARR

AR0RRdR

ARt

dd22

SEQ 0015

2222

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

L A2 A2 a2

R daddldsilaliididdiifgiiisdsiitdsss

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

PLACE.

OR_

CONTROL/C

SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.

PARAMETERS MAY NOT BE

CHANGED.

TOOK

HARDWARE

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

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

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

FROM

L3288222d2ddRdd2adtisississsd

PRO(CEED)
/FLAGS : <FLAG=LIST>
LA EARSRRREA
AR
d R0 220 2] 2

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

THE

EF-

FECT OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING
IE;ESESOR CALL.
NEITHER HARDWARE NOR SOFTWARE
PARAMETERS
MAY
BE
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:

1.
L 4

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

2 44

EXIT

4 44

RETURN TO XXDP+ PROMPT MODE.
LA

AR dddddddsdldds)

DRO(P)/UNITS:UNIT=LIST
KRR AARA R

AR RANAAAAARER

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
gecg ngcggglL A START COMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED

—

THERE IS ALSO A ‘DROP’* MACRO
INTERNAL
TO
THE
DJAGNOSTIC,
WHICH
GIVES
THE
FACILITY
GF
AUTO-DROPPING.
THE DURATION OF A PROGRAM
DROP, HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.

2
PAGE 16

2 244422}
1334232223222

ADD/UNITS:UNIT=LIST
1221281322222 324302

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN PREVIOUSLY
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE. AN ADD CANNOT

BE FOLLOWED BY A PROCEED.
KEARARN

PRI (NT)
12324441

ALL STATISTICS TABLES ACCUMULATED BY THE

DIAGNOSTIC

ARE

THE ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

PRINTED.

1322222232223 3222220222402 2 3¢

DISC(PLAY)/UNITS:<UNIT=-LIST>

1322323232322 3232323223323 2022284%%22)]

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

FLA(GS)

24
* (L4282

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
144228224

ZFL(AGS)

124222444

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

B8Y

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
gt;:gtg FB:EATHARDUARE PARAMETER QUESTIONS AND THE SLOTS IN THE

SEQ 0016

2
PAGE 17

IN GIVING A STRING OF VALUES,

COMMAS WITHOUT INTERVENING VALUES MAY

BE JUSED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.

IF
A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
TRANRANGE
SAMPLE
THIS
DATA,
NUMERICAL
PURE
REPRESENT
VALUES
THE
SLATES TO THE STRING 6,7.8,9,10 (AN INCREMENT OF 1). IF THE VALUES

?SEReagzgsgssé)THE SAMPLE RANGE TRANSLATES TO THE STRING 6,8,10 (AN

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

FOLLOWING IS THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM. THIS SYS=TEM HAS TWO (2) RLT11 TYPE CONTROLLERS ALL TO BE SET AT 'BR LEVEL

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

(ON THE SECOND CONTROLLER):

RL02'S

UNITS (D) ? 8
UNIT 0
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOT (L) Y ?
UNIT &

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ?_164
DRIVE (0) 0 ? 0-3
DRIVE TYFE = RLOT (L) Y ? N

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE DEFAULT VALUES ARE
USED FOR THE CSR ADDRESS OF THE CONTROLLER (QUESTION #1), THE CONTROLLER VECTOR ASSIGNMENT (QUESTION #2), AND THE DRIVE TYPE (QUES-

TION

#4).

THE

ACTUAL UNIT NUMBERS OF THE RLO1°'S IOR QUESTION #3

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

THE SECOND TIME THRU THE P-TABLE QUESTIONS THE FIRST QUESTION WAS
ANSWERED TO REFLECT THE CHANGE IN CSR ADDRESS FOR THE RLO2 CONTROLLER (175400). THE SECOND CONTROLLER'S VECTOR WAS ALSO CHANGED
TO 164 IN _QUESTION #2. THE RLO2 TEST UNIT NUMBERS WERE ASSIGNED

VALUES O TO 3 IN QUESTION #3 AND THE DRIVE TYPE WAS SET FOR
FOR THE REMAINING & UNITS IN QUESTION #4.

RL0O2'S

SEQ 0017

2
PAGE 18

2.5

HARDWARE PARAMETERS

THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.
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

(L) ?

ANSWER NO (N) IF DRIVE IS AN RLOZ2
2.6

SOF TWARE PARAMETERS

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART,
THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEOR CONTINUE.
HAVES. THE SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE
WAY IT RUNS. THE PARAMETERS CAN BE MODIFIED ON A START, RESTART,
OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:
*'CHANGE S.W.

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE PARAMETER QUESTIONS,
WITH THE PRESEMT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
(THE LAST ANSWER GIVCN IS THE DEFAULT) THE DEFAULT IS TAKEN
MARK.
g¥AsT<$sE.TEg?~TROL Z (“7) WILL DEFAULT ALL REMAINING QUESTIONS AND

THERE ARE NO SOF TWARE PARAMETERS.
ERROR INFORMATION

ERROR INFORMATION IS COMPLETE IN GIVING ALL INFORMATION NECESSARY.
ALL REGISTERS ARE GIVEN AS WELL AT TRACK, SECTOR AND DRIVES INVOLVED IN ERROR.

SEQ 0018

2
PAGE 19

3.1

ERROR REPORTING

ALL ERROR INFORMATION 1S PRINTED ON THE CONSOLE DEVICE. ERROR REPORTS ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT IS:

PC:

RRRRRR

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR

ALONG

DZRLL

XXX

ERR

YYYYY

TST

227

SUB

PPP

WHERE:

IS PROGRAM LETTER
IS SFT = SOFT ERROR
HRD = HARD ERROR
DV FAT - DEVICE FATAL ERROR
SYS FAT - SYSTEM FATAL ERROR
IS THE ERROR NUMBER
YYYYY
1S THE TEST NUMBER
222
IS THE SUBTEST NUMBER
PPP
RRRRRR IS THE PROGRAM LISTING LOCATION
?
XXX

WITH A ONE LINE DESCRIPTION AND RELEVENT DATA.
EXAMPLE:

ONE LINE DESCRIPTION
(OPTIONAL SECOND LINE)
(OPTIONAL THIRD LINE)
BEFORE CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX
AFTER CS:XXXXXX BA: XXXXXX DA:XXXXXX MP:XXXXXX

OTHER PERTINENT INFORMATION IS GIVEN AT THIS TIME.

“ERROR READING SECTOR'’

ERROR WAS ENCOUNTERED WHILE TRYING TO READ VERIFY THE SECTOR
IT WAS WRITTEN BY THE SAME DRIVE.

"MINIMUM OF TWO DRIVES REQUIRED''

AFTER

SEQ 0019

2
PAGE 20

THE PROGRAM REQUIRES AT LEAST TWO DRIVES TO PROVE COMFATABILITY.
"MAXIMUM OF FOUR DRIVES ALLOWED''
THE PROGRAM ONLY ALLOWS A MAXIMUM OF FOUR DRIVES.

"'CAN'T FIND FIVE ADJACENT TRACKS''
THE PROGRAM REQUIRES TEN SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS ACROSS THE PACK. IT WAS UNABLE TO FIND FIVE COMPLETELY
GOOD ADJACENT TRACKS IN THE LIMITS GIVEN.

“ERROR WRITING SECTOR"’

AN ERROR WAS ENCOUNTERED WHILE TRYING TO WRITE THE GIVEN SECTOR.
"OVERWRITE ERROR'’

AN ERROR WAS ENCOUNTERED WHILE TRYING TO READ DATA
OVERWRITE BY ONE DRIVE. BOTH DRIVES INVOLVED ARE GIVEN.

AFTER

"READ RECOVERY ERROR'’

SgTERROR WAS ENCOUNTERED WHILE TRYING

RECOVER

ANOTHER

DRIVES

“ADJACENT TRACK TEST"

AN ERROR WAS ENCOUNTERED WHILE IN THE ADJACENT TEST PART, A FURTHER
DESCRIPTION IS GIVEN.

3.2

ERROR HALTS

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

THERE ARE NO OTHER HALTS.

4.0

PERFORMANCE AND PROGRESS REPORTS

4.1

PERFORMANCE REPORTS

THE

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

SECTION

SEQ@ 0020

2
PAGE 21

4.2

PROGRESS REPORTS

THIS PROGRAM WILL NGT GIVE ANY PROGRESS REPORTS.
DEVICE INFORNATION 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)
~
NN NNOO

]

—

- DATA LATE (WITH BIT 10 CLEAR)
- HEADER CRC (WITH BIT 10 SET)
- DATA CRC (WITH BIT 10 CLEAR)
BIT 10 - OPERATION INCOMPLETE
9/6 - DRIVE SELECT (0-3)
BIT

BIT 11

CONTROLLER READY
INTERRUPT ENABLE

EXTENDED BUS ADDRESS (BIT 17)
EXTENDED BUS ADDRESS (BIT 16)

3 1 = FUNCTION CODE
NOP (PDP-11) MAINT (LSI-11)
NOWNMB
NN =O

5.0

BIT

WRITE CHECK

GET DRIVE STATUS
SEEK
READ HEADER
WRITE DATA
READ DAT

READ UITHOUT HEADER COMPARE

0 - DRIVE READY

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

REGISTERS

FOR

SEQ 0021

2
PAGE 22

FOR READ/WRITE FUNCTIONS
BIY 15-7 = CYLINDER ADDRESS FOR TRANSFER

BIT 6 = SURFACE FOR TRANSFER

BIT 5-0 - SECTOR FOR TRANSFER (1-40.)
FOR SEEK FUNCTION
BIT 15-7 - DIFFERENCE TO NEW CYLINDER

BIT 6-5 - MUST BE ZERO (0)
BIT & - SURFACE (0=UPPER, 1=LOWER)
g{; 3 - MUST BE ZERO (0)
SEEK DIRECTION( 1=IN / 0=0UT )
BIT 1 - MUST BE ZERO (0)
BIT O - MUST BE ONE (1)
FOR GET STATUS FUNCTION

BIT 1 5-4 - IGNORED SHOULD BE ZERO (0)
BIT 3 - DRIVE RESET

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

RLMP - MULTIPURPOSE REGISTE
FOR READ/WRITE FUNCTION

BIT 15 = 0 - WORD COUNT (TWO'S COMPLIMENT)

FOR READ HEADER FUNCTION
elr 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

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)

SEQ@ 0022

PAGE 23

BIT
BIT
BIT

BIT

9 - VOLUME CHECK (V()
8 - DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE IS RLO2 IF SET
6 - SURFACE (0=UPPPER, 1=LOWER)

BIT 5 -~ COVER OPEN
BIT & - HEADS HOME
BIT _3 - BRUSHES HOME
BIT 2-0 =STATE BITS
0 - LOAD STATE

6.0

- BRUSH CYCLE
= LOAD HEADS
SEEK = TRACK COUNTINC
- SEEK = LINEAR MODE
= UNLOAD HEADS
J

~NONN SN

1 = SPIN UP

= SPIN DOWN

TEST SUMMARIES

THE FOLLOWING IS A BRIEF DESCRIPTION OF THE WAY THE PROGRAM EXETHE PROGRAM WILL CHECK COMPATIBILITY BETWEEN 2 - & DRIVES
CUTES.
THE PROUSING THE SAME RLOTK CARTRIDGE OR SAME RLO2K CARTRIDGE.
GRAM WILL ASK THE OPERATOR TO SEQUENCE THE PACK BETWEEN THE DRIVES
GIVEN IN THE FOLLOWING MANNER.

PLACE PACK IN DRIVE N ON CONTROLLER X AND LOAD

UNLOAD DRIVE N ON CONTROLLER X
PLACE PACK IN DRIVE N+1 ON CONTROLLER X AND LOAD

UNLOAD DRIVE N+1 ON CONTROLLER X
ETC......

THE PROGRAM WILL SEQUENCE IN

HARDWARE QUESTIONS.

1I.E.

THE

ORDER

THAT

WAS

DRIVE ? 0,1,2.3
PROGRAM WILL SEQUENCE 0,1,2,3.2.1.0
DRIVE ? 1,0,3.2
PROGRAM WILL SEQUENCE 1,0,3,2.3.0.1

GIVEN

THE

SEQ 0023

2
PAGE 24

WHEN THE FIRST DRIVE IS LOADED THE PROGRAM WILL ATTEMPT TO FIND TEN
SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS THAT CO'TATN NO
BAD SECTORS USING THE BAD SECTOR FILE. THE 10 SPOTS AFE: ON BOTH
SURFACES, INNER, OUTER, MIDDLE, ONE QUARTER AND THREE QUARTERS.
AFTER THIS IS DONE THE OVERWRITE TEST IS PREPARED(FIRST DRIVE CAN'T
OVERWRITE) AS WELL AS THE ADJACENT TEST. AS THE PACK IS CYCLED
BETWEEN DRIVES THE FOLLOWING CHECKS ARE MADE:

EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE
EACH DRIVE CAN RECOVER EACH OTHERS DATA
EACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER
DRIVE WITHOUT DISTURBING THE OTHER'S DATA.
READS AND WRITES TAKE PLACE AFTER SEEKS FROM
BOTH DIRECTIONS.

ADJACENT WRITES TAKE PLACE TO BOTH SIDES OF EACH WRITE
TESTS ARE PERFORMED Al ALL TEN SPOTS ACROSS THE PACK.

SEQ 0024

CZRLLCO RLO1/02 DRIVE COMPAT

TABLE OF CONTENTS

MACRO V04.00

22=
355=

8
36
2
1
35

MACRO DEFINITIONS
GLOBAL EQUATES SECTION
GLOBAL DATA SECTION
GLOBAL iEXT SZCTION
GLOBAL ERROR REPORT SECTION

27-

CONTROL ROUTINE

79-

1
1

INITIALIZATION SECTION
GLOBAL SUBROUTINES SECTION

16-FEB-82 13:32:06

SEQ 0025

CZRLLCO RLO1/02 DRIVE COMPAT MACRO Vv04.00 16~FEB-82 13:32:06 PAGE 1
1

SEQ 0026

JTITLE

CZRLLCO RLO1/02 DRIVE COMPAT

«MCALL

SV(C

.SBTTL

MACRC DEFINITIONS

10
11

MACRO

WAITUS
MoV

ARG
ARG XDELAY

sMACRO MICRO-SECOND WAIT
sSAVE ARGUMENT

WAITMS
MoV
JSR

ARG
ARG, YDELAY
PC_XTIME

sMACRO MILLI-SECOND WAIT
s SAVE ARGUMENT
sCALL TIMING ROUTINE

2
3 000000

.ENABLE AMA
.ENABLE ABS
002000

12
}2

.=2000

.ENDM

15
16
17
}g

.MACRO

.NLIST

-ENDM

22 002000
23
%g

000000
000000

0020472
00204<
002045
002050
002071
002052

PC,TIME

CND,MD,ME

Sv(
SVCINS=0
SVCTAG=0

%9 002000
28 002000
29 002000
002000
002001
002002
002003
002004
002005
002006
€02007
002010
0,201
002012
002014
002016
002020
002022
002024
002026
002030
002032
002634
002036
002040

JSR

POINTER NONE
BGNMOD
103
132
122
114
114
000
000
000
103
060
000000
000000
033652
000000
022450
000000
034014
000000
000000
000001
000000
022464

000000
000000
000000
003
003
000009

MDHEDR
HEADER
-ASCII
.ASCII
+ASCII
JASCII
CASCII
.BYTE
BYTIE
.BYTE
CASCII
.ASCII
.WORD
WORD
-WORD
WORD
.WORD
.WORD
.WORD
WORD
WORD
Wond
WD
.WORD

WORD
WORD
LWORL
.BYTE
.BYTE
WORD

(CZRLL,C,0,0.1
/C/
71/
/R/
/L/
/L/
0
0
0
/C/
/0/
0
0
LSHARD
0
LS$HW
0
LSLAST
0
0
1
0
LSDISPATH

0
0
0
CSREVISION
(CSEDIT
0

sCALL TIMING ROUTING

CZRLLCO RLO1/02 DRIVE COMPAT MACRO VO04.00 16-FEB-82 13:32:06 PAGE 1-1

SEQ 0027

35
36
37
38
39
40 002234

054
060

114

.ASCIZ

LSDESC
SSLOAD

LSINIT
LSCLEAN
LSAUTO
L$PROT

IE S INTERCHANWFABIL
/CZRLL VERI IE S INTERCHANGEABIL

<CZRLL VER 1

bna ey

DESCRIPT

$OVTYP

.EVEN
O—=O

122
061
114
00

W= OWNWNIN S SWNES=2N=NONWOWNIESN

33
34 002222
002222
002225
002230
002233

b D h ad b o e

103
114
126
m
105
m
105
110
107
102
11
040
040
122
11
105
102
127
116
122
105

b e e

32 002122
002122
002125
002130
002133
002136
002141
002144
002147
002152
002155
002160
002163
002166
002171
002174
002177
002202
002205
002210
002213
002216

024316
024312
022440
000000
000000
000000

—d e h () b b b b e e e

002106
002110
002112
002114
002116
002120
%? 002122

.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
+WORD
+WORD
.WORD
.WORD
EMT
.WORD
.WORD
+WORD
-WORD
.WORD
.WORD
-WORD
.WORD
ENDMOD

000000

=W
N =SJBOONIONO=NI=20O0N=NOO

002054

[=]lelalelelelglel]

MACRO DEF INITIONS

DEVTYP

.ASCIZ

<RLO1,RLO2>
/RLO1,RLO2/

.EVEN

.SBTTL GLOBAL EQUATES SECTION

sDEFINITIONS
BGNMCD

GLBEQAT

Y OF CARTRIDGES BETWEEN DRIVES>

Y OF CARTRIDGES BETWEEN DRIVES/

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 1-2

SEQ 0028

GLOBAL EQUATES SECTION
41
42 002234

EQUALS

¢ BIT DIFINITIONS
100000

000001

001000
000400
000200

81T15==
B174==
BIT13==
8IT12==
BIT11==
BIT10==
81709==
8IT08==
8IT07==
BIT06==
B81T05==
BIT04==
BIT03==
BIT02==
BIT01==
BIT00==

20000
10000
4000
2000
1000
400
200
100
40
20
10
&
2
1

BIT9==
BIT8==
BIT7==
BIT6==
BIT5==
BIT4==

BIT09
BIT08
BIT07
BIT06
BITO05
BIT04

BIT1==
BITO-=

B8IT01
BIT00

BIT3==
BIT2==
000001

100000
40000

BIT03
BIT02

EVENT FLAG_DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000040

000034

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

32.
31.
30.
29.
28.

: PRIORITY LEVEL DEFINITIONS
000340

000000

PRI07==
PR106==
PRI0S==
PRI04==
PRI03==
PRI02==
PRI01==
PRI00==

340
300
240
200
140
100
40
0

*OPERATOR FLAG BITS
000004

Evi==

: START COMMAND WAS ISSUED
: RESTART COMMAND WAS ISSUED
; CONTINUE COMMAND WAS [SSUED
; A NEW PASS HAS BEEN STARTED
; A POWER-FAIL/POWER-!P OCCURRED

D_3

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 1-3

44
45
46
47
48

000000
000002
000004
000006

51
52
53
54
55

000000
000002
000004
000006

000001

49
50

58
59
60
61
62
63
€4
65
66
67
68
69
70

[4)

72
73
74
75
76
77
78
79
80
81
82
83
84

85
86

(=2
2
QOO0
OOOOOVOOONN—
[elelalelelelelelalel
oY o
[elolalelelelalalalalelala)

MMDMM=—MITOCDO
OO"‘I@XI’ZO;
o

e
) VD C
0t e 0=
T

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

GLOBAL EQUATES SECTION

;CONTROL AND STATUS OFFSET
;BUSS ADDRESS OFF SET
:DISK ADDRESS OFFSET
;MULTI PURPOSE OFFSET

;CONSTANT OFFSETS FOR INDIVIDUAL DRIVE BUFFERS

000100
100000
040000
020000
010000
004000
004000
010000
002000
000200
000040
000020
000002

000004

000006
000010
000012
000014
000013
000003
000001
000004
000020
000100

CSR=0
VEC=2
DSB=4

sCONTOLLER ADDRESS
:VECTOR OF CONTROLLER
:DRIVE SELECT

DRDY=BITO
INTEN=BIT6
ERR=BIT15
DERR-BIT14

:DRIVE READY

:PATTERN UNIQUE TO DRIVE

PAT=6

s INTERRUPT ENABLE
:COMPOSITE ERROR
:DRIVE ERROR

sNON-EXISTANT MEMORY ERROR

;DATA LATE

:DATA CRC _ERROR
sHEADER CRC ERROR
:HEADER NOT FOUND ERROR

;OPERATION INCOMPLETE ERROR
: CONTROLLER READY
;EXTENDED BUS ADDRESS BIT 17

;EXTENDED BUS ADDRESS BIT 16
GSTAT=BIT2
SEEK=BIT1!BIT2
RDHDR=BIT3

WRITE=BIT3!8IT1

READ=BIT3!BIT2
DRST=B173!BIT*!BITO
GSB1T=BIT1!BITO
MK=BITO
SIGN=BIT2
SKHS=BITé4
HEAD=BITé

:CONTROLLER RESET FUNCTTON CODE
:GET DRIVE STATJS FUNCTION CODE
;SEEK FUNCTION CODE
;READ HEADER FUNCTION CODE

;WRITE FUNCTION CODE
:READ_FUNCTION CODE

:DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
:GET STATUS COMMAND CODE FOR DRIVECOMMAND WORD
:MARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET STA1US)

;DIRECTION FOR SEEK(0=AWAY FROM SPINDLES
;HEAD SELECT FOR SEEK

;HEAD SELECT FOR READ,WRITE,GET STATUS

sOFFSET FOR HARDWARE P-TABLE
000000
000002

CSR=
VECT=

0
¢

:BUS_ADDRESS
:VECTOR ADDRESS

SEQ 0029

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 1-4

GLOBAL EQUATES SECTION

87
88
gg
3; 002234
93
94

000004
(00006
000010

PRIOR=
TYPDR=
DRBT=

4
6
10
ENDMOD

:PRIORITY (BREAK LEVEL)
:DRIVE TYFE
sORIVE SELECT

SEQ@ 0030

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 2

SEQ 0031

GLOBAL EQUATES SECTION
1

.SBTTL GLOBAL DATA SECTION

g 002234

BGNMOD

9 002234

000000

12 002240
13 002242
14 002244
15 002246
16 002250
17 002252
18 002254
19 002256
20 002260

000000
000000
000000
000000
000000
000000
000000
000000
000000

22 002264
23 002266
24 002270
25 002272

000000
000000
060000
000000

21 002262

26 002274

27 002276
28 002300
29 002302
30 002304
31 002306
32 002310
33 002312
34 002314
35 002316
36 002320
37 002322
38 002324
39 002326
40 002330
41 002332
42 002334
43 002336

44 002340
45 002342

46 002344

47 002346
48 002350
49 002352
50 002354

51 002356
52 002360
53 002362
54 002364
55 002366
56 002370
57 00<372

HDRFND: .WORD

:1=HEADER IN BAD SECTOR LIST

SHERE IS THE LIST OF TRACKS TO USE FOR ThHIS TEST
;TRACKS ARE ENTERED BY 'FNDTRK' ROUTINE & °'FIXTRK®' ROUTINE

8
18
11 002236

GLBDAT

000000

000000
000000
00000y
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000

000000
000000
000000
002000

000700
000000
000000
000000
000000
000000
000000

0UT10:

0UT20:
0UT30:
0UT40:
ouT50:
OUT11:
0UT21:
OUT31:
OUT41:
0UTS51:

0QU10:

0QuU20:
o0uU30:
0QU40:
0Qu50:

0QUil:

0Qu21:
oQu3t:
0QU41:
0QuU51:
MID10:
MID20:
MID30:
MID40:
MID50:
MID11:
MID21:
MID31:
MID41:
MID51:
TQU10:
TQU20:
TQU30:

TQU4O:
TQUS0:

TQU1T:

TQU21:
TQU31:
TQU41:
TQUS1

INN10:
INN20:
INN30:
INNGO:
INN50:
INN11:
INN21:

.WORD

.WORD
.WORD
.WORL
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
,WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD

0
0
0
0
0
0
0
0
O

;OUTER TRK HEAD 0

sOUTER TRK HEAD 1
.

:1ST QUARTER TRK HEAD 0

;1ST QUARTER TRK HEAD 1

0
O
0
0

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

O
0

sMIDDLE TRK HEAD 0

sMIDDLE TRK HEAD 1

:3RM QUARTER TRK HEAD 0

:3RD QUARTER TRK HEAD 1

0O
0
0
O
0
0
O

:INNER TRK HEAD 0

O
O
0
0

s INNER TRK HEAD 1

CZRLLCO RLO1/02 DRIVE LwarAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 2-1

GLOBAL DATA SECTION

58 002374
59 002376
60 002400

000000
000000
0. 7000

INN31:
INN41:
INNS1:
.EVEN

.WORD
_WORD
_WORD

0
O
O

sSECTOR LIST FOR LAST DRIVE WRITTEN

gg 002402

SECLST: .BLKW

;BUFFER TABLE FOR 24 X 5 MATRIX USED FOR ADJACENT CYLINDER TESTING.

;? 002442

SECBUF: .BLKW

sLIST OF TRACKS USED TO OVERWRITE TEST.

sMAP OF 16 SECTOR DRIVE BITS

73
;g

526,

:FIRST FIVE ARE CYLINDER ADDRESSES OF TOP SURFACE.
:LAST FIVE ARE CYLINDER ADDRESSES OF BOTTOM SURFACE.

76 003022
77 003024
78 003026
79 003030
80 003032
81 003034
82 003036
83 003040
86 003042
gg 003044

002242
002266
002312
002336
002362
002254
002300
002324
002350
002374

OVWTRK: 0UT30
0QuU30
MID30
TQU30
INN30
ouT3!
0Qu31
MID31
TQU31
INN31

87 003046
88 003050
89 003052

152525
133333
066666

PATLST: .WORD
.WORD
.WORD

g? 003054

16.

155555

-WORD

152525
133333
?ggggg

SEQ 0032

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 3

SEQ 0033

GLOBAL DATA SECTION
1

2 003056
3 003060
4 003062
S 003064
6 003066
7 003070

000000
0000CO
000000
000000
000000
000000

.WORD
TEM:
T.DRIVE: .WORD
.WORD
FOWR:
.WORD
FADJ:
.WORD
TEMP:
LSTCLR: .WORD

0
0
O
O
0
O

;LAST CONTROLLER

9 003074
10 003076

000000
000000

ERFLG:
STFLG:

.WORD
.WORD

O
0

:ERROR FLAG
:PROGRAM START UP FLAG

13 003104

000000

REASON: .WORD

8 003072 000000

11 003100
12 003102

14 003106
15 003110
16 003112

17 003114
18 003116
19 003120
20 003122
21 003124
22 003126
23 003130
24 003132
25 003134
26 003136
27 003140
28 003142
29 003144

000000
000000

000000
000000
000000

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

30 003146 000000

31 003150
32 003152

000000
000000

33 003154 000000
34 003156
35 003160
36 003162
37 003164
38 003166
39 003170

000000
000000
000000
000000
000000
000000

43 003200
44 003202
45 003204
46 003206
47 003210

000000
000000
000000
000000
000000

40 003172
41 003174
42 003176

48 003212

000000
000000
000000

000000

ADJLOC: .WORD
ADJFLG: .WORD
ADJDIR: WORD

DRSTAT: .WORD
HSFLG: .WORD
OSECT: .WORD

O
0
O

LSTTRK: .WORD
FRTTRK: .WORD

0
0

SURFACE: .WORD
TRKEND: .WORD
TRKCNT: .WORD
.WORD
E.CS:
.WORD
E-BA:
.WORD
E-DA:

0
0
0
O
O
O

PRSTRK: .WORD

E.MP:
E.MPi:
E.MP2:

BCS:
BBA:
BDA:
BMP:
SERNM1:

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
_WORD

SERNM2: .WORD

:ADJACENT SEEK DIRECTION

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

OFFSET: .WORD

TRACK_INDEX FOR ADJ. CYL TEST
:FLAG FOR ADJ. STORE OR RETRIEVE

0
O

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

HEADO1:
DIRC:
SURF:
CYL:
REVSK:
FORSK:
WT:
SECT:
LSTDRV:
GDATA:
BDATA:
WCOUNT:
SECWRD:

:DRIVE ERROR REASON

0
0

O
O
O

0
0
O
0
0

;SURFACE FLAG
:DIRECTION OF SEEK

- .

;REVERSE SEEK
:FORWARD SEEK
SUNIT UNDER TEST
:SECTOR
:LAST DRIVE
;600D DATA
:BAD DATA
:WORD COUNT
:SECTOR WORD

: INCREMENT

LAST TRACK OF SEARCH
:FIRST TRACK OF SEARCH

:PRESENT TRACK

: SURFACE
:TRACK FOUND
:TRACK COUNT
:IMAGE OF CSF:
:IMAGE OF BUS ADDRESS
:IMAGE OF DISK ADDRESS

:IMAGE OF MULTI-PURPOSE WORD 1
"2
e
o e
"3
e
e e
P
: COMMAND LOADED
:BUS ADDRESS LOADED
:DISK ADDRESS LOADED
:WORD COUNT LOADED
:SERIAL NUMBER OF CATRIDGE

49 003214 000000
50 003216 000000
51 003220 000000

ADJTRK: WORD
ADJUUT: _WORD
ADJLC2: .WORD

0
O

: INSIDE/OUTSIDE FLAG
:UJT FOR “ADJCYL'
:TEMP LOC FOR “'ADJCYL"

000000
000000

ADJLC4: LWORD
STSEC1: .WORD

0
0

oo
:
:SECTORS TQ WRITE “ADJCYL"

52 003222

53 003224
54 003226
55 003230

56 003232
57 017232

000000

ADJLC3: (WORD
STSEC:

BUF: ~

.WORD

.BLKW

XDELAY: [WORD

3072.

:BUFFER FOR 24 SECTOR READS

:DELAY FOR WAIT MICRO-SECOND MACRO

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 3-1

SEQ 0034

GLOBAL DATA SECTION

58 017234
59 017236
60

000000
000000

YDELAY: .WORD
.WORD
OBUFF:

000004

17240

000000

.REPT

sDELAY FOR WAIT MILLI-SECOND MACRO

;RESPONSE BUFFER

:DRIVE INFCRMATION BUFFERS

:
DRBUF

62 017240
63
67
9?

4.
CONTROLLER ADDRESS
; VECTOR

:DRIVE SELECT BITS

:PATTERN UNIQUE TO DRIVE

17246

000006

017250
017252
017254
017256

000000
000002
000004
00006

0S8
PAT

017260
017262
017264
017266

000000
000002
000004
000006

CSR
VE(C
DSB
PAT

17270
17272
17274
17276

000000
000002
000004
000006

CSR
VEC

80 017300
81 017302

000000

0
0

sg?TROLLER ADDRESS

:DRIVE SELECT BITS

:PATTERN UNIQUE TO DRIVE

CONTROLLER ADDRESS

:VECTOR

:DRIVE SELECT BITS

:PATTERN UNIQUE TO DRIVE
;CONTROLLER ADDRESS

T0
:VECTOR

:DRIVE SELECT BITS
;PATTERN UNIQUE TO DRIVE

DS8
PAT

ENDBUF:

.WORD

ENDMOD

;END OF DRIVE BUFFERS

CZRLLCO RLO1/02 DRIVE COMPAT MACRC V04 .00 16-FEB-82 13:32:06 PAGE &

SEQ 0035

.SBTTL GLOBAL TEXT SECTION
GLBTXT

BGNMOD

017302

45 020276
46 820276

020310

gB
g Gt et e B Bl
g
g B
g
g
Bmmg
g B

@
o
o
o
o
e

NN NN NN NN N NN NN NN NN NN

Dot By Bomcg

WRIT1:
READ1:
ADJTXT:
.EVEN

FWD:
REV:

wvunnunnunmunnnm
EIIIIIIICICIOICIOICICIOIIOIOHIOO

RECER:
FUNERR:
SKER:

ERRFND:
OVWER:

>33 EEEEEBEEBBI»
wmnunnnn

OVMES:

RECMS:

FEW:
MANY:
:
NONE

O
O
PININI OV NN =2 NN =2 =2 (NO OO

b v
i

b
b
b e
b

b e

b and
e sod

w2 AONININININI
O O =2 NNNI N = NN =2 = -2

D
e
e
o
) e
b ad nd e
b end ad nd
b cmd
b cnd

=2\ NN O NI

b
b

43 020274
020274
020274

DCKER:

/CONTINUE TEST?/
/ABOVE CONDITIONS MET/
/CONTROLLER TIMED OU7/

/ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE /

/ERROR ON READ/

/MINIMUM OF TWO DRIVES REQUIRED/
/MAXIMUM OF FOUR DRIVES ALLOWED/
/TEST ABORTED = CAN'T FIND ANY GOOD SPOTS/
/TRYING TO OVERWRITE DRIVE /
/TRYING TO READ DATA WRITTEN BY DRIVE /
/CAN'T FIND FIVE ADJACENT TRACKS/
/OVERWRITE ERROR/
/READ RECOVERY ERROR/
/ERROR IN SEEK OPERATION/
/M]S SEEK ERROR/
/FORWARD/
/REVERSE/

/ERROR WRITING SECTOR/
/ERROR READING SECTOR/
/ADJACENT CYLINDER TEST/

.SBTTL GLOBAL ERROR REPORT SECTION

O=0OH
N
o\sooonononor

OO =b ad ccd o b d
NS ONINI NN
NSO NNNNN

020270

b e

b cvnd

OPR0OO1:
OPR002:
CNTTOT:
INITWR:

ENDMOD

O=OO0OO000

ONINCO = = NIONIONINIOO
—=NIN) = O =
SNV WVIN=NOVON
= NN
= = PON NN N

e
b cd e amad e

\V,|

(=1

30 020210
31
32
33 020240
34
35
36
37 020240
38
39 020240
40
41 020240
0

b e

b
D

b b e

ind

NINNNO
—

D
d
b
b e wrd
b
b e
b

NN S 8 SN
N

OOONO=ON=ONNN=—=O0000

~ SNNNNNNNNN
NS
S NN
o
WNWNMINSN
~J

[elelolelelolelelelele
la)

:GLOBAL TEXT

VIS

N = O 000N

NS W

PONININININ)
b b b b d b ed emd b b

= OO0 NS WIN) =

GLOBAL TEXT SECTION

BGNMOD

GLBERR

BGNMSG

ERR1
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

003156
003150
003152
021545
000004

000012

L10000:

104423

BGNMSG

6
g

000005
000000
021246

#FRM10,FRTTRK,LSTTRK,SURFACE

SURFACE,=(SP)
LSTTRK,=(SP)

;3ETWEEN _ _ HEAD _

FRTTRK,=(SP)
#FRM10,~(SP)

ENDMSG
TRAP

ERR?2

PRINTB

MOV

C$MSG

#iRH‘.CSR(R4).<B.DSB*1(R4)>
=(SP)
(SP)
DSB+1(R&),
CSR(R4) ,=(SP)
#FRM& ,=(SP)

;CONTROLLER _ DRIVE _

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB~82 13:32:06 PAGE &4-1

SEQ 0036

GLOBAL ERROR REPORT SECTION

020314

012746

020320 010600

020322
020324
47 020330
48 020334
020334
© 020334

104414
062706
004737

000003

MOV

#3,=(SP)

000010
026522

TRAP
ADD
JSR
ENDMSG

CSPNTB
#10,SP
PC ,REGDMP

TRAP

($MSG

MOV
L10001:

104423

BGNMSG

50 020336

51 020336

020336
020340
020344
020350
020354
020360
020362
020364
52 020370

005046
156416
016446
012746
012746
010600
104414
062706
004737

020414
020420
020422
5 020424

012746
010600
104414
062706

53 020374
020374 013746 003132
020400 013746 003122
020404 01374¢ 003120
020410 012746 021307

55 020430
020430

005046

020452
020454
6 020456

010600
104414
062706

020432
020436
020442
020446

57 020462
020462

8 020462

156316
016346
012746
012746

020464
020466
020472

012746
010600
104414
062706
9004737

000010
L10002:

000003

PRINTB

=(SP)
(SP)
DSB+1(R4),
CSR(R4) ,=(SP)
&
, = (SP)
#FRM
#3,-(5P)
SP.R0
CSPNTB
#10,SP
PC ,REGDMP

#6,~(SP)
SP.R0
CSPNTB
#12,SP

PRINTB

#FRM16,CSR(R3) ,<B,DSB+1(R3)>

8,58
MOV
MOV
MOV

DSB+1(R3),(SP)
CSR(R3),=(SP)
#FRM16,=(SP)
#3,-(SP)

-(SP)

sREGISTER DUMP ROUTINE

;CONTROLLER _ DRIVE _

;REGISTER DUMP ROUTINE
_
_ SECTOR
_ CYLINDER
:HEAD

;ADJACENT WRITTEN BY CONTROLLER
:- DRIVE _

SP.R0
CSPNTB
#10,SP

ENDMSG

TRAP

C$MSG

ERR&

PRINTB

#FRM&,CSR(R4),<B,DSB+1(R4)>

MOV

, - (SP)
#FRMG

CLR
BIS8
MOV

000005
000000

000010
026522

#FRMS,<SURF>,<CYL>,SECT
SECT,=(SP)
CYL,~(SP)
SURF ,~(SP)
#FRMS = (SP)

MOV
TRAP
ADD

020476 012746 021246

020502
020506
020510
020512
62 020516
63 020522

PRINTB
MOV
MOV
MOV
MOV

CLR

000005
000000
022076
000003

BGNMSG
005046
156416
016446

#FRM&,CSR(R4G),<B,DSB+1(R4)>

MOV
MOV
TRAP
ADD

000012

gg 020464

61 020464

000004

104423

PRINTB

CLR
BISB
MOV
MOV
MOV
MOV
TRAP
ADD
JSR

000005
000000
021246
000003
000010
026522

ERR3

SP.R0

-(SP)
osa+1<a4> (SP)
CSR(R4) ,=(SP)

#3,-(5P)
MOV
SP.RO
MOV
(CSPNTB
TRAP
#10,SP
ADD
¢C ,REGDMP
JSR
#FRMS,<SURF>,<CYL>,SECT

:CONTROLLER _ DRIVE _

;REGISTEP DUMP ROUT'NE
_
_ SECTOR
_ CYLINDER
;HEAD

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE &-2

SEQ@ 0037

GLOBAL ERROR REPORT SECTION

67 020642
020642

68 020642

70 020644
020644

&»H
o

020636

003134

2706

000014

3746
2746
2746

003116
021377
000002

62706

000006

~NNNNN
NN
e X-N-X¥

#FRMS - (SP)
#6,-(SP)

SP.RO

ornno REASON,LSTDRV,LSTCLR,LSTDRY

LSTDRV,=(SP)

LSTCLR.=(SP)

LSTDRV.=(SP)
REASON.=(SP)
#FRMG, = (SP)

#5,-(5P)

000005

;SFEK DIRECTION

ADD

L10003:

104423

BGNMSG

005046

156416
016446
012746
012746

000005
000000
021246
000003

020672
1 020676

062706
004737

000010
026522
L10004:

104423

ENDMSG
TRAP

ERRS

PRINT8B
CLR
BISB
MOV
MOV
MoV
Mov
TRAP
ADD
JSR

ENDMSG

020704
020706
020712
020716

005046
156416
016446
012746

012746

000005
000000
021246
000003

020732
76 020736
77 020742

062706
004737

000010
026522

CSMSG
>
#iRH?.CSR(R4) ,<B,DSB+1(R4)
SP

DSB+1(R&), (SP)
CSR(R4) ,=(SP)

NFRMG
, = (SP)
#3,-(SP)

SP,RO
C$PNTB

#10,SP
PC,REGDMP

CSMSG

BGNMSG

020722

SECT,=(SP)
CYL,=-(SP)
SURF ,~(SP)

0600

020646
020652
020656
020662

020702
3 020702

Mov
MOV
MOV
MoV
MOV
MOV
TRAP
ADD
PRINTB
MoV
MOV

[=1=1=]
P<t=1=]
W
O—O
W
NSO

3746

OO =d bbb
md b
&
PORO NN

O—-000000O0

000012

Ottt

65 020616

2706

O=0000

(=]

puiy

o
N
(=]

64 020556

003132

013746
O=0000
OO~ b

&H
N

020522

0;Rg§.CSR(R4).<B.DSB*1(R4)>
S

(SP)
DSB+1(R&),
CSR(R4) ,-(SP)
#FRM4.-§S°)

JSR
PRINTB

PC,REGDOMP

#FRM17,R1,E.MP

;CONTROLLER _ DRIVE _

MACRO V04.00 16-FEB-82 13:32:06 PAGE 03
COMPAT
DRIVE
RL01/92
CZRLLCO
SECTION
REPORT
GLOBAL ERROR
020742
020746
020750
0207564
020760
020762
020764

78 020770
020770
20 020770

013746
010146
012746
012746
010600
104414
062706

003172
022163
000003
000010
L10005:

104423

E.MP,=(SP)
R1,=(SP)
#FRM17, (SP)
#3,-(SP’
SP,RO
CSPNTR
#0.,S°

TRAP

CSMS 5

ENDMSG

:FORMAT STATMENTS

MoV
MoV
MoV
MoV
Mov
TRAP
ADD

.ASCIZ
.ASCIZ

/XNXAUNLOAD DRIVE XO1XA ON CONTROLLER X06XA AND REMOVE PACKIN/
/INIAPLACE PACK IN DRIVE X01XZA ON CONTROLLER X062A AND LOAD ITIN/

.ASCIZ

/INXACAN'T FIND BAD SECTOR FILE/

88 020772
89 021067

045
045

116
116

045
045

FRM1:
FRM2:

93 021356
94 021377
95 021437
96 021503
97 021545
98 021611
99 021646
100 021725
101 022010

045
045
045
045
045
045
045
045
045

124
101
101
104
101
116
101
116
116

045
122

127
063
102
045
102
045
045

FRM6:
FRM?:
FRM8:
FRM9:
FRM10:
FRM11:
FRM12
FRM13:
FRM14:

_ASCIZ
.ASCIZ
,AS"IZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
_ASCIZ

101

FRM16

ASCIZ

90 021167
91 021246
92 021307

102 022037

103 022076

104 022163
105 022217
106 022303
107 022341
}83 022412

045
045
045

045

045
045
045
045
045

116
101
101

116

101
116
116
116
116

045
103
110

045

105
045
045
045
045

FRM3:
FRM4:
FRMS:

FRM1S5:

FRM17:
FRM18:
FRM19:
FRM20:
ENDPAS:

113

.EVEN

115 022440

ENDMOD

114

116

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

!INXAWRONG PACK # IS X05X05XA # S/B Z05Z05ZNAN!
/XACONTROLLER: X06XA DRIVE: X01XN/
/XAHEAD: X01XA CYL T23%A SECTOR: XZ2XN/
/XTX01XA ON XO06IN/
/XASEEK DIRECTION: XTINXADATA:IN/
!XAWORD: X23%A S/B: X06XA WAS: X06IN!
/XD3XA WORDS BAD OUT OF 128 READIN/
/XABETWEEN XZ3XA - XZ3XA HEAD: X01IN/
/INXAPWR FAIL NOT SUPPORTEDIN/
/XABEFORE CS: XO6%A BA: X06XA DA: X06XA MP: X06/
/INZAAFTER (S: X06%A BA: X06XA DA: X06XA MP: X06XN/
/INXA DRIVE STATUS: %06/

/XAADJACENT WRITTEN BY CONTROLLER %06XA DRIVE: XO01IN/

/3AEXP'D: X06XA REC'D: Z06IN/
/INYAUNLOAD AND WRITE ENABLE ALL DRIVES TO BE USEDIN/
/!NXADRIVE TYPE IS DIFFERNI .AN/
/INTADRIVE NUMBER PREVIOUSLY SPECIFIED.IN/
/INZIA END OF TESTININ/

SEQ 0038

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 i6-FEB-82 13:32:06 PAGE 5

$£Q 0039

a N
Nededad cised b
emdod
cod d
-t
OWVWOONOWV
SHAN=2000NONS
W=

GLOBAL ERROR REPORT SECTION

;LOAD PROTECTION TABLE
0
022440
022442
022444

BGNPROT

000000
177777
000006

.WORD
LWORD
-WORD

ENDPROT

0
0
022446
022450
022452
022454
022456
022460

BGNMOD
BGNHW

000005
174400
000160
000240
000001
000000

22 022462
24
25 022462
26
27 022462
022462
28 022464

29 0224¢€6
30
31

ENDHW
L10007:

0
-1
6

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

L10007-LSHW/2
174400
160
240
1
0

sBASE ADDRESS DEFAULT
cVECTOR DEFAULT
¢PRIORITY DEFAULT
sRLO1 OR R'.02 (RLO1=1)
;DRIVE NUMBER DEFAULLT

HPTCODE

.WORD
WORD
WORD
.WORD
WORD
WORD

ENDMOD
BGNMOD

000001
032706

DISPATCH

€ NDMOD

DSPCODE
WORD
WORD

1
1
T1

SEQ@ 0040

CZRLLCO RLO1/02 DRIVE COMPAT MACRO VO04.00 16-FEB-82 13:32:06 PAGE 6

.SBTTL INITIALIZATION SECTION
o

23
H&

n
n

o
o

n
no
~

000

(ol

O000OO
OO0

012700
104441

000340

023727
002006

002012

SETPRI

MOV
TRAP

000002

104454

000137

024266

023727
003406

002012

000004

104454
000024
017532
000000
000137

024266

013737

002012

003130

017240
003046
003130

91s:

18:

C$SPRI

LSUNIT,#2

sMCRE THAN TWO

ERRSF

19. ,FEW

:MININUM OFF TWO DRIVE REQUIRED

.WORD
-WORD
<WORD
JMP

19
SEH

CMPENA

:CLEAN CODE WHEN < 2 DRIVES

CMP
BLE

LSUNIT, #4

:MORE THAN FOUR

ERRSF
TRAP
.WORD
«WORD
.WORD
JMP

20. ,MANY

;MAXIMUM OF FOUR DRIVES ALLOWED

90$

CSERSF

918

CSERSF

;NO, OKAY

CMPENA

:CLEAN CODE WHEN > & DRIVES

LSUNIT,UUT

:GET NUMBER OF UNITS

R1
#DRBUF R4
#PATLST R2

JINIT P-TABLE
:SET UP DRIVE BUFFER
JGET LIST OF PATTERNS

uuTt
END
R1.R0

P-TABLES LEFT?
JANY
:NO,GO TO END
:GET A P-TABLE

(RO)+,CSR(R&G)
(R0O)+,VEC(R4)
(RO)+,PRIOR(RS)
(RO)+,T.DRIVE

:GET CSR
;GET VECTOR
:GET BREAK LEVEL
:RLO1/2 TYPE ... RLOI=1

(RO) ,DSB(R4)
(R2) ,PAT(R4)
(R2)+

000006

;1ES, OKAY

BANY

R1.10
CSGHHRD

000000

:GET DRIVE

;TEST FOR DRIVES OF SAME TYPE AND NO REPEATED DRIVE NUMBERS

38 022630
zg 022636

002012

000000
2

90$:

#340
#340,R0

cCMP
BGE
TRAP

19 022540
20
21 022544

INITCODE

BGNINIT

22466

cd cnd
b

BGNMOD

22466

O~
W

N —=O000

W) —

INITIALIZATION SECTION

022646

003130

ngNlT.UUT

;SKIP TEST FOR FIRST DRIVE

#0,R5

;BASE ADDRESS OF FIRST P TABLE

#0,R0
CSGPHRD

RO,R5

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16~FEB-82 13:32:06 PAGE 6-1

SEQ 0041

INITIALIZATION SECTION

43 022650
44 022656

023765
001423

003060

012746
012746
010600
104417
062706

022303
000001

CMP

000006

T.DRIVE,TYPDR(RS)

BEQ
PRINTF
MoV
MoV
MoV
TRAP
ADD

4s
#FRM19
#FRM19,-(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP

47 022700

GMANIL

OPROO1,0BUFF,1,YES

022712

000001

BR
.WORD
.WORD
.WORD
.WORD

10000$
OBUFF
T$CODE
OPROO1

48 022714
49 022720

005737
001002

017226

TST

OBUFF

000137

024266

52 022726
53 022734

026465
001023

000004

022736
022742
022746
022750
55 022752

012746
012746
010600
104417
062706

022341
000001

45 022660

022660
022664
022670
022672
46 022674

50 022722

TRAP

56 022756
022756

104443

8%2770

000001

57 022772
58 022776
53 023000

005737
001002
000137

61 023004

005201

0C0004

BNE
JMP
000010

4$:

DSB(R4) ,DRBT(R5)
63
#FRM20
#FRM20,=(SP)
#1,-(SP)
SP,RO

ADD

#4,SP

GMANIL

OPR0O1,0BUFF,1,YES

.WORD
JWORD

OPROO1
1

TRAP
BR
.WORD
.WORD

10001$:

017236

TST

6$:

003130
000010
003130

END:

c$
100018
OBUFF
TSCODE

JRETURN TO SUPERVISOR
;CHECK DRIVE NUMBER

;PROMPT - DRIVE NUMBER ...

;PROMPT - CONTINUE TEST

OBUFF

sRETURN TO SUPERVISOR

INC
DEC

R1
uut

sNEXT P TABLE
¢NEXT DRIVE

CLR
CLR
READEF

FADJ
FOWR
#EF.PWR

ADD
BR
MOV
MOV

#PAT+2
R4
1%
LSUNIT,UUT
#DRBUF ,R&

003062

012700
104447

000034

MOV

021611

SETUP
BNCOMPLETE
SETUP
BCC
PRINTF #FRM11
#FRM11,-(SP)
MoV

012746

;PROMPT - CONTINUE TEST

CSPNTF

005037

103010

;PROMPT - DRIVE TYPE DIFFERNT ...

6$
CMPENA

BNE
JMP

024266

43
CMPENA

CMP
BNE
PRINTF
MoV
MoV
MOV
TRAP

000004

002012

023046
70 023050
023050
71 023052
023052

:
100008

CSGMAN

sCHECK DRIVE TYPE

TRAP

;GET BEGINNING OF BUFFER
sCLEAR ADJ. TEST FLAG
;CLEAR OVERWRITE FLAG

#EF .PWR,RO
CSREFG

;PROMPT - PWR FAIL NOT SUPPORTED

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16~FEB-82 13:32:06 PAGE 6 2

SEQ 0042

INITIALIZATION SECTION

023056
023062
023064
22 023066

012746
010600
104417
062706

MoV
MoV
TRAP
ADD

000001
000004

#1,=(SP)
SP,R0
CSPNTF
#4,SP

sINITIALIZE ROUTINE

:WE ATTEMPT TO LOCATE S PERFECT ADJACENT TRACKS AT 5 SPOTS

:ACROSS THE
P

THE 5 SPOTS ARE (EACH SURFACE)

OUTER = TRACK 0 - 16_(BOTH RLO1 & RLO2)

80
81
82
gz

sINNER = TRALK 238 - 254 (RLO1) OR 494 = 510 (RLO2)
:MIDDLE ~ TRACK 120 - 136 (RLO1) OR 248 = 264 (RL02)
sONE QUARTER = TRACK 56 = 72 (RLO1) OR 120 =_136 (RLO2)
THREE QUARTER = TRACK 184 = 200 (RLO1) OR 376 - 392 (RLO2)

,IF WE FIND ANY BAD SPCTS, WE WILL REPORT SO............

88 023072

89 023076

005237

012737

00307¢

177777

003210

90 023104 012737 177777 003212
91 023112

023112
023116
023122
023126
023126

012746
012746
010600
104417
062706

023132

104443

92 023132

022217
000001

SETUP:
18:

000004

INC

STFLG

#-1,SERNM]

PRINTF

#FRM18

;PROMPT - UNLOAD DRIVES TO BE USED

OPR00Z2,0BUFF,1, NO

;PROMPT « ABOVE CONDITIONS MET

MoV

Mov
MoV
MoV
TRAP
ADD

GMANIL
TRAP

B8R

#-1,SERNM2
#FRM18,-(SP)
#1,-(SP)
SP,R0
CSPNTF
#4,SP
CSGMAN

10002%

023134

000404

93 023146
gg 023152

005737
001757

017236

96 023154
97 023160
98 023164

004537
004537
004537

032300
031526
031002

100 023174

012700

000062

102 023204
}82 023206

005300
001374

105 023210
106 023214
}85 023216

004537
000001
000000

031230

JSR
1
0

R5,FNDTRK

109 023220
}}? 023224

000000
000000

000020
000020

.WORD
.WORD

0,16.
0,16.

112 023230

005737

003160

TST

TRKFND

023136
023140
023142
023144
023146

017236
000120
017321
000001

99 023170 012701

002236

101 023200 012721 177777

10002$:

3s:

sINDICATE A START COMMAND

MoV

.WORD
.WORD
.WORD
WORD

OBUFF
TSCODE
OPR00Z2
1

TST
BEQ

OBUFF
18

sNO = ASK AGAIN

JSR
JSR
JSR

R5,LOAD
RS, SERNUM
R5.MERGE

sTELL OPERATOR TO LOAD
sGET SERIAL NUMSER
:MERGE BAD SECTOR FILES

MoV

#177777.(R1)+

MOV

MoV
DEC
BNE

#0UT10 R1
#50.

sINITIALIZE ALL TRACKS

RO
3s

sTRY TO FIND FIVE TRACKS
¢ INWARD SEARCH
:TOP SURFACE

:WAS SEARCH SUCCESSFUL?2??

RLO1/02 DRI¥E~COHPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 6-3

SEQ 0043

§
IZATION

N
W

104456
000012
017743
020240
0C 0404

WA NN
NINININ) b b = b
= OV~
Voo~ O VSN

001005

0 023306

NOWNSWN
OV ~NON

TRAP

10. ,ERRFND,ERR1
gsERHRD

SCAN'T FIND 5 ADJACENT TRACKS

-WORD
. WORD
BR

ERRFND
ERR1
78

5$:

MOV

JSR

#0UT10,RO
RS, FIXCYL

sSTORE AWAY TRACKS FOUND

004537
000001
000001
000000
000000

031230

78:

JSR

RS ,FNDTRK

;TRY TO FIND FIVE TRACKS

005737
001005

003160

000020
000020

ERRHRD
TRAP

104456
000012
017743
020240
000404

005737
001005

1
1
.WORD
.WORD

TST
BNE

002250
031472
031230

9$:

108:

0.16.
0.16.

10. ,ERRFND,ERR1
CSERHRD

sCAN'T FIND 5 ADJACENT TRACKS

10
ERRFND

MOV

#0UT11,RO

ERR1
108

RS, FIXCYL
R5,FNDTRK

;STORE TRACKS AWAY
sFIND NEXT 5 TRACK
;OUTWARD SEARCH

:TOP SURFACE

000356
000756

2564.,238.
510.,494.

003160

TST

TRKFND

:UAg SEARCH SUCCESSFUL?

ERRHRD

10. ,ERRFND,ERR1
CSEP 7D

sCAN'T FIND 5 ADJACENT TRACKS

BNE

TRAP

128

-WORD
+WORD
.WORD
BR

10
ERRFND

ERR1
148

002356
031472

12$:

MOV

#INN10,RO
RS, FIXCYL

004537
177777

031230

14$:

JSR
-1
1
.WORD
.WORD

RS ,FNDTRK

005737
001005

SUCCESSFUL??2?

sWAS
SYES

012,00
004537

000776

TRKFND

-WORD
.WORD
. WORD
BR

JSR
J?R

s INWARD SEARCH
;BOTTOM SURFACE

0
.WORD
.WORD

000404

b
b

d e

WVIVAWVWIWNWAWNWE
SN

ERRHRD
.WORD

104456

—

;YES

002236
031472

000776

023370
023374

012700
004537

012700
004537
004537
177777

023350
023354

BNE

000356
000756

003160

JSR

IS8T
BNE

s TRACK RANGE

:SKIP

;STORE AWAY TRACKS FOUND
sNEXT SET

:OUTWARD SEARCH
:BOTTOM SURFACE

:SEQRCH SUCCESSFUL?
[

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 6-4

SEQ 0044

INITIALIZATION SECTION
158
159 023426

TRAP

10.,ERRFND ,ERR1
ggERHRD

ERRFND
ERR1
188

ERRHRD

104456

.WORD
-WORD
.WORD

sCAN'T FIND 5 ADJACENT TRACKS

023440
023444

012700
004537

002370
031472

16$:

MOV

#INN11,RO
RS ,FIXCYL

;STORE AWAY TRACKS FOUND

023450

004537

031230

18$:

JSR
1

RS ,FNDTRK

JNEXT SET

) nd wnd =D d o =D
b nd D od D b e =D D e
b ed and e

W
oS
o
o

000404

mmmwwwwwwwwwwooogooooo
NS LaN) —
N = OV
NN
WNI—-O 000N

160 023436

000376

JSR

0
-WORD
.WORD

000270
000410

:TRACK RANGE

005737
001020

003160

TST
BNE

TRKFND

:DID WE FIND A SET

023476

004537
177777
000000
000202
000402
005737
001005

031230

JSR
-1

R5 ,FNDIRK

sNEXT SET (OTHER SIDE)

130.,120.
258.,

s TRACK RANGE

208

;

023522

023524

00
0o 0o

000170
000370
003160

.WORD
TST
BNE

000376

002306
031472
031230
000210
000410

20$:
22%:

10. ,ERRFND,ERR1
%3ERHRD

sCAN'T FIND 5 ADJACENT TRACKS

ERRFND
ERR1
22%

MOV

JSR
JSR
1
1
-WORD
.WORD

023574

004537

031230

280 023610

000402

000170
000370

JSR
-1
1
.WORD
-WORD

202 023614
203 023620
204
205 023622
023622

005737
001005

OO0

IST
BNE

104456

;OUTWARD SEARCH
s TOP SURFACE

TRAP

003160

;YES

:DID WE FIND A SET

.WORD
+WORD
.WORD

017743
020240
000404

20$

TRKFND

ERRHRD

104456
000012

012700
004537
004537
000001

0000

0
.WORD

005737
001020

:TOP SURFACE

023470
02347«

3 023534

126.,136.
254.,264.

: INWARD SEARCH

ST
BNE

ERRHRD
TRAP

#MID10,RO
RS, FIXCYL
RS ,FNDTRK

126.,136.
254.,264.

YES

;STORE AWAY

sNEXT SET
s INWARD SEARCH
:B0TTOM SURFACE
s RANGE

TRKFND

s SUCCESS?

RS ,FNDTRK

sLOOK THE OTHER SIDE

248

130.,120.
258.,248.

;YES

- OUTWARD
;BOTTOM SURFACE

TRKF
D

s SUCCESS?

10. ,ERRFND,ERR1
CSERHRD

sCAN'T FIND 5 ADJACENT TRACKS

248

;YES

CZRLLCO RLO1/02 gEIYSNCOHPAT MACRO V04.00 16-FEB=-82 13:32:06 PAGE 6-5

SEQ 0045

S
INITIALIZATION

o
o
o

N
W

WN—-O

NV
=2 OV
CO~NOMN W

DS LS SN NTSISINLS
S, STNT N1, 81,81,V 1,V ]

PIPDIPOINININON)
b b ed b d e —d —ad b b

023624
023626
023630
206 023632
207
208 023634
209 023640

023672

-WORD
.WORD

000012
017743
020249
000404

.WORD
BR

10
ERRFND
ERR1

26$

012700
004537

002320
031472

24%:

MoV

#MID11,R0
RS, FIXCYL

;STORE AWAY THE TRACKS FOUND

004537

031230

26$:

RS5.,FNDTRK

000176

000110
000210

JSR
1
0
.WORD
.WORD

62..72,
126.,136.

SNEXT SET
s INWARD
:TOP SURFACE
: RANGE

005737
001020

003160

TST

TRKFND

004537
177777

031230

023706

000202

023712
227 023716

005737
001005

JSR

BNE

28%

JSR
=1

R5,FNDTRK

.WORD
.WORD

66..56.
130.,1¢0.

TST
BNE

28¢

000070
000170
003160

ERRHRD

104456

TRAP

+WORD

sCAN'T FIND 5 ADJACENT TRACKS

#0QU10,RO
RS, FIXCYL
R5,FNDTRK

sSTORE AWAY NEXT SET

.WORD
.WORD
B8R

002262
031472
031230

%gB 023756

012700
00457
004537
000001
000001
000076
000176

000110
000210

.WORD
+WORD

.72,
126..136

240 023762
241 023766

005737
001020

003160

TST
BNE

328

243 023770
244 023774
245 023776
246 024000
24; 024004
26
249 024010
250 024014
231
252 024016

004537
177777

031230

JSR
-1
1
-WORD
.WORD

024022

:TOP SURFACE
ANGE

10. ,ERRFND,ERR1
gSERHRD

232 023732

005737
001005

;LOOK OTHER SIDE

: OUTWARD

s SUCCESS?

000404

n00202

YES

TRKFND

230 023730

242

+SUCCESS?

28$:
:
308

MOV
JSR

JSR
1

000070
000170
003160

TST
BNE

ERRHRD
TRAP

.WORD
.WORD

:LOOK FOR NEXT SET
s INWARD
;B0 TOM
s RANGE

TRKFND

sSUCCESS?

R5,FNDTRK

66..56.

;LOOK FOR ANOTHER SET
:OUTWARD
:BOTTOM
s RANGE

TRKFND

+SUCCESS?

10. ,ERRFND,ERR1
CSERHRD
10
ERRFND

sCAN'T FIND 5 ADJACENT TRACKS

130..120.

328

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 6-6

SEQ 0046

VIVIWVLAWIVAWA

BNV
N

INITIAL!ZATION SECT ION
0240264
0 24026

020240
000404

024030
024034

012700
004537

002274
031472

024040

004537

031230

9 024044

260 024046
000310
261 024050
000410
262 024054
263
264 024060 005737 003160
265 024064 001020
266
267 024066 004537 031230
268 024072 177777
269 024074
000270
270 024076
271 024102 000602 000570
272
273 024106 005737 003160
274 026112 001005
275
276 024114
024114 106456
024116 000012
024120 017743
024122 020240
277 0246124 000404
278
279 024126 012700 002332
280 024132 004537 031472
281 024136 004537 031230
282 024142
283 024144
000310
284 024146
%85 024152 000576 000619
86
287 024156 005737 003160
288 024162 061020
289
290 024164 004537 031230
291 024170
292 024172
000270
293 024174
000570
Zgg 024200
2
296 024204 005737 003160
287 024210 001005
298
299 024212
104456
024220
300 024222

000404

. WORD
BR

ERR1
348

328:

MOV

#00QU11,R0

:STORE AWAY TRACKS

348:

JSR

RS ,FNDTRK

0
.WORD
«WORD

382..392.

190.,200.

sNEXT SET OF TRACKS
; INUARD
rop SURFACE
ANGE

TST
BNE

TRKFND

s SUCCESS?

JSR
=1

RS ,FNDTRK

;LOOK OTHER SIDE
;OUTWARD SEARCH

JSR
3

0
.WORD
-WORD
IST
BNE

ERRHRD
TRAP

-WORD
.WORD
.WORD
BR

36%:
38$:

MOV

JSR
JSR
1
1
-WORD
.WORD

RS, FIXCYL

36%

194.,184.
386.,376.

; TOP

TRKFND

s SUCCESS

10. ,ERRFND,ERR1
CSERHRD
10
ERRFND

sCAN'T FIND 5 ADJACENT TRACKS

#TQU10,R0

;STORE TRACKS AWAY

368

ERR1
38%

RS, FIXCYL
RS ,FNDTRK
190.,200.

382..392.

SNEXT SET

: INWARD
;B0OTTOM SURFACE
s RANGE

TST
BNE

TRKFND
408

s SUCCESS?

JSR
-1
1
.WORD
-WORD

R5,FNDTRK

sOTHER SET

TST
BNE

ERRHRD
TRAP

-WORD
.WORD
. WORD
BR

194..184

386.,376

;OUTWARD

:BOTTOM SURFACE
ANGE

TRKFND

sSUCCESS

10. ,ERRFND,ERR1
CSERHRD
10
ERRFND
ERR1
423

2CIN'T FIND 5 ADJACENT TRACKS

403

I_4

CZRLLCO RLO1/02 DRIVE COHPAT MACRO V04.00 16-FEB=-82 13:32:06 PAGE 6-7

SEQ 0047

INITIALIZATION SECTION
301
302 024224

ggz 024230

012700
004537

002344
031472

408

305 024234

012700

002236

428:

307 024244

022720

177777

448:

104454
000003
017571
000000
005001
013700

002012

306 024240 012701 000062

308 024250
309 024252
310 024254
311 024256
024256
024260
024262
024264
312 024266
313 24270

314 024274

001017
005301
001373

024274
024276
315 024300
316 024302
317 024304

010100
104451
005201
005300
001373

319 024306

104444

318 024306

321 024310
024310
024310

322 024312
323

104411

MoV

48$:

sSTORE SET AWAY

#0UT10,RO

;DID WE FIND ANY AT ALL

#50. .R1

#-1,(RO)+

DODU

MoV
TRAP
INC
DEC
BNE

DOCLN

TRAP

L10010:

#TQU11,RO
R5,FIXCYL

CMP

BNE
DEC
BNE
ERRSF
TRAP
WORD
.WORD
WORD
CMPENA: CLR
MoV

EXIT:

320 024310

Mov
JSR

EXIT
R1
448
3. ,NONE
CSERSF
3
NONE
0
R1
LSUNIT,RO

R1,R0
C$DODU
R1
RO
4<8%

CSDCLN

ENDINIT

TRAP

ENDMOD

CSINIT

;D0 DROP UNIT

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 7

SEQ 0048

INITIALIZATION SECTION

;AUTO DROP SECTION

BGNMOD AUTOCODE
BGNAUTO

G
i
I
P

oS
W —O000

104461

ENDAUTO
L10011:
ENDMOD
BGNMOD

L10012:

BGNMOD

000240

23 024326
24
25
26

104453

TRAP

C$SAUTO

CLNCODE
BGNCLN
NOP

060240

104412

;D0 NOTHING

NOP

000240

L10013:

ENDCLN

TRAP
ENDMOD

CSCLEAN

DRPCODE
BGNDU
NOP
ENDDU

TRAP
ENDMOD

c$bu

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 8

SEQ 0049

024326

.SBTTL

GLOBAL SUBROUTINES SECTION

BGNMOD

GLBSUB

:TIMING ROUTINES

b el ad

VIS WN =2 O 000NNV
W) =

GLOBAL SUBROUTINES SECTION

—d

) e

012737
005437

000160
017232

002116

TIME:

104407
0
17 024344

103420
012727

18:

000001

012727

000001

002116

30 024470
31 024474
024474
32 024476
024476
33 024500
34 024506
024514

002116

104407

012727
000000
013727

000150
000020
002116

DELAY

MOV
.WORD
MoV
.WORD
DEC
BNE
DEC

002116

M ,(PCI+

#160,LSDLY

005437

103023
012737

TRAP
CSRDBU
BCOMPLETE
2%
BCS

MOV

017232
000207

#160,LSDLY

XDELAY
NEG
READBUS

XTIME:

28:
3s:

177758

29 024464

MOV

INC

177772

012737

PC.XTIME

BLT

0021 6

23 024442
24 024446
25 024450
26
27 024452
28 024460

JSR

BNE

017232
000150

sCALL 2:

4$:

177756

000422
012737

PC,TIME

LWORD
MOV
LWORD
DEC
BNE
DEC
BNE
INC
BLT
RTS

17777¢

20 024402
21 024404
22 024412
024412

JSR

LSDLY,(PC)+
O
=6(PC)
=4
=22(PC)
.=20
XDELAY
18
43
#150,L8DLY
1
#1,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
=4
-22(PC)
.=20
XDELAY
38
PC

002116

18 024374
19 026400

sCALL 1:

2$:

MOV
DELAY
MoV

YDELAY
ASL
ASL
YDELAY
YDELAY
NEG
READBUS

TRAP
CSRDBU
1%
BNCOHPLETE
1$
8c(
#150,L8DLY
MOV
20
DELAY
#20,(PC)+
MOV
LWORD
O
LSDLY,(PC)+
MoV

sGET OUTER DELAY LOOP

GE;UQEGATIVE OF MULTIPLY FACTOR
:BRANCH - IF YES
JWALT

sWAIT FACTOR EXPIRED?
:BRANCH - IF NO
SEXIT
:GET _OUTER DELAY LOOP
;WAIT WITH RESPECT TO FONZ BUS

sWAIT FACTOR EXPIRED?
sBRANCH = IF NO
sRETURN

;GET OUTER DELAY LOOP
MULTIPLY FACTOR BY 4

:GET NEGATIVE OF RESULT
:0-BUS?

sBRANCH = IF NO
;GET OUTER DELAY LOOP
:WAIT WITH RESPECT TO FONZ BUS

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB~82 13:32:06 PAGE 8-1

SE@ 0050

GLOBAL SUBROUTINES SECTION
000000

0
=6(PC)

177772

=22(PC)
.=20

177756

002761
000417

012727

39 024576
40 024602

41 024604
42
43

YDELAY

017234

000050

18:

002116

5$DLY.(PC)+

177772

=6(PC)

177756

=22(PC)
.=20

017234
000207

2%
38
50
650.(PC)+

3s:

:WAIT FACTOR EXPIRED?
JBRANCH = IF NO
JEXIT

JWAIT

YDELAY

sWAIT FACTOR EXPIRED?

sRETURN

sBRANCH = IF NO

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 9

SEQ 0051

:ROUTINE gg PERFgRM OVERWRITE

b bdb

VOO OO

003126
003124
003022

021227

177777

— b

24636

5,0VWPER
SECTORS T0 WRITE FORWARD
SECTORS TO WRITE REVERSE

OVWPER: MOV

i b O

024606

OO00O0O0O00

s CALL:

1$:

003122
003120
000005

PPN

N =2 OO 00 NNV

bk b md b d e oond b

(AN = OO0 NN NS NN =

GLOBAL SUBROUTINES SECTION

RO,=(SP)

:SAVE RO, R1, R2, R3

;RO _HAS COUNT IF RO<S.

(R5) +,REVSK

ggEEBOTTOH SURFACE, IF RO>1

MOV
MOV
MOV
CLR
MOV
MOV

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

MOV
MOV
CMP
BEQ

#OVWTRK ,R1
(R1) R
(R2) ,#-1
3$

:GET START OF LIST OF TRACKS
:GET POINTER TO TRACK
;LEGIT TRACK?2222?
:NO, EXIT

gflkF

sCLEAR CYLINDER/HEAD FOR SEEK

RO, #5

:TOP/EOTTOM

SURF
?3SKCYL

:BOTTOM SURFACE
sSEEK TO CYLINDER

(R5)+,FORSK

28’

003120

2s:

(R2),CYL

020116

45 02501)
46
47 025014

003116

:TOP, BRANCH

RS, SKCYL
FORSK ,R:3

;SEEK TO PROPER CYLINDER
;SECTORS TO WRITE

#FWD ,DIRC
R5,VEROW
R5,VEROD

:SET FORWARD DIRECTION
sVERIFY QVERWRITE
;VERIFY OTHER DRIVES DATA

ggWRSEC

025070

:USE TOP_SURFACE, IF RO>S,

:G0 WRITE SECTORS

000001

003060

CYL
#1,T.DRIVE

000377

003122

g%;?.CYL

:SET TO GO TO MAX (YL

000777

003122

#777,CYL
§3£SKCYL

sMAX CYL FOR RLO2
;SEEK TO MAX CYLINDER ON DRIVE

508

518:

SURF
(R2),CYL

R601’

004537

026254

R5,SKCYL

;D0 ANOTHER SEEK

013703

003124
025070

REVSK ,R3
gg.URSEC

sSECTORS TO WRITE
;WRITE THEM

084537
004537

020126
027200
027564

RS, VEROW

R5.VEROD

3s:

005721
001267

#REV,DIRC

003116

000012

(R1)+

RO,#10.
18

2SET DIRECTION

:VERIFY OVERWRITE

:VERIFY OTHER DRIVES DATA
s INCREMENT TO NEXT TRACK

:ACCOUNT FOR IT
:DONE?
:NO, GO BACK

CZRLLCO RLO1/702 DRIVE COMPAT MACRO V04.00 16~FEB-82 13:32:06 PAGE 9-1

SEQ@ 0052

GLOBAL SUBROUTINES SECTION

58
59 025056
60 025060
61 (25062
62 025064
,63 025066

012603
012602
012601
012600
000205

MoV
MoV
MOV
Mov
RTS

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO
R5

sRESTORE REG.

JEXIT

CZRLLCO RLO1/02 DRIVE COMPAT MACRU V04.00 16-FEB-82 13:32:06 PAGE 10

SEQ 0053

GLOBAL SUBROUTINES SECTION
NS Wy~

sROUTINE TO WRITE SECTORS
sUSED IN OXERURITE TSST:ADJACENT CYLINDER TEST
RS ,WRSEC
JS
;CALL
:

:R3 HAS BITMAP OF SECTORS TO WRI

igTARTING SECTOR

o md

8 6421

N
~
W
~

012701

053702

003232
000200
000006

100000

000007

003122

005737

003120

052702

000100

(=]
N

003056

005337

b b b e
b b e
b d e
b b e
b e vo
= = =00
oo NS S WNWUNN
OO OHNONSONONSNIONN

WRSEC:

0
0
0
8

PONINININININININ)
= —d b b b ed d o b b

NS AN = O 000 NN NN = OV 00N

;R4 HAS DRIVE BUFFER POINTER

005037

003110

020227

000047

36 025220

162737

000050

39 025240

004537

032404

41 025246

005737

003074

005737

003110

43 025254

44 025260

2s:
003056

1208:

001007

38:
48:

005237
000760
104456

025306

020276
)

RO,=(SP)
R1.=(SP)
R2,=(SP)
#BUF ,R1
#128. .R2

DEC
BNE
MOV
MOV
BIS
ASL
DEC
BNE

R2
2
#100000,R1
#7,TEM
CYL,R2
R2

MOV

003206

003204
003202

BEQ
BIS
8IS
BIT
BEQ
CLR

6$:

118:

, (R1)+
PAT(RS

3s
WHEAD ,R2
(R5)+.R2
R1,R3
58
HSFLG

BIC

#177700,R2

WRITF
TST

R2,8DA
R2,TEMP

R2.439.
6$
#40. ,BDA
#8UF ,BBA
TEMP.R2
RS,LDFUNC
ERFLG

BEQ
ST
BNE

58
HSFLG
10$

TRAP
.WORD
"WORD
.WORD
INC
BR

CSERSOFT
100
WRIT1
ERR2
HSFLG
118

TRAP

CSERHRD

ERRSOFT 100.,WRIT1,ERR2

003110

108:

ERRHRD
LWORD
"WORD
.WORD

sWRITE PATTERN INTO
sMEMORY THAT WE

sWILL WRITE ONTO
:PACK FOR THIS
sDRIVE
sMASK FOR BIT MAP

1208

SURF

MOV

CMP
BLE
Su8
MOV
MOV
JSR

:SAVE RO
:SAVE R1
:SAVE R2

TeM

#-128. ,BMP

MOV
MOV

104457

46 025272
47 025276

MOV
Mov
Mov
Mov
MOV

001452

34 025212

.WRD

110.,WRIT1,ERR2

110
WRIT1
ERR2

:0, SKIP
;SET BOTTOM HEAD

;START AT SECTOR 28.
::SITE THIS SECTOR?

;LOAD WORD COUNT
;LOAD DISK ADDRESS
:SAVE DISK ADDRESS

;LOAD BUS ADDRESS

sRESTORE DISK ADDRESS

;G0 WRITE

:ERROR IN WRITING

;NO,OKAY

c.5

SEQ 0054

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 10-1

GLOBAL SUBROUTINES SECTION

50 025310
51 025312
52 025314
53 025316
54 025320
55 025322
56 025324
57 025326

005202
000241
006001
103320
012602
012601
012600
000205

5$:

INC
cLC
ROR
BCC
Mov
MoV
MoV
RTS

R2
R1
48
(SP)+,R2
(SP) +,R1
(SP)+,RO
RS

sNEXT SECTOR
:CLEAR CARRY BIT
sDONE?
sNO GO BACK
sRESTORE REGISTERS AND EXIT

)

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 11

SEQ@ 0055

NO NN NWNNN
= NN

b et =2 OO

5037

—b wdd sd ed = OO

=li=l-lelelalelelalelel=]

NN PININ) = b ed b b d b ed ed d
W
onesw N =2 OV NOAWVESWN=OVONONWNS

GLOBAL SUBROUTINES SECTION

6
003100

18:

003220

000020

003230

28:

3s:

27 025452
28 025456

021227
001002

177777

30 025460
31

000137

026126

32 025464 *005037

003120
003122

s
W

N
n
sy
o~
~N

o
~N

025450

000042
000050

003230
003230

000050

003230

33 025470

005037

gg 025500

005737
001403

003114

38 025502
39
2? 025510

052737

000001

004537

026254

22 025514

011237

003122

44 025520
025524
46 025532
47 025536
48 025540
49

004537

026254
020116
003101

£H
Wi

34
35 025474

50 025544
51 025552
5
5 025554
5 025562
5
5 025570
5 025 574
SN

2 1$:
2 0s:

003104

005722
062737
022737
003386
162737
000762

NOV

003216

ADJCYL: CLR
CLR

042703

000377

022737
002003

000047

162737
013737

000050
003230

004537
000000

025070

MOV
MOV

MOV
BNE
CLR

RTS
MoV
MOV
MOV

ADJTRK

HEADO1
#1,ADJUUT
#0UT10,R1
(gS)*.ADJLOC
1

ADJDIR
R5

5%:

*START OF TRACK LIST

*PICK UP TRACK OFFSET

1S THERE ONE?
+NO EXIT

"YES. GET REST OF INFC

MOV

(R5)+,ADJLC?
(R5)+,ADJLC3
(R5)+,ADJLCS
ADJLOC,RO
#16.,STSEC

MoV

R1,R2

:GET START INTO R2

DEC

RO
43

;DOWN COUNT OFFSET
sFOUND IT?

(R2)+
#34. ,STSEC
#40. ,STSEC
3s

s INDEX (R2)
sNO, NEXT SECTOR

:BACK FOR NEXT

(R2) ,#-1
5%

sLEGAL TRACK?
;YES, CONTINUE

13%

:NO PICK UP NEXT SET

SURF

sSET UP FOR OUTER TRACK

HEADO1
6$

sWHICH HEAD?

MOVB

#40.,STSEC

48:

;INSIDE/OUTSIDE TRACK FLAG
TINIT TO TOP SURFACE

CMP

CLR

cvL

:GET OFFSET
*STARTING SECTOR IS 16

;TOP, SKIP

#1,SURF ;LOWER HEAD, SET IT!

003120
6$:

JSR

R5,SKCYL

sSEEK TO OUTER TRACK

MOV

(R2),CYL

sGET DESIRED TRACK

JSR

R5,SKCYL

8IC

#377 ,R3

sSEEK 10 IT
sSEEK DIRECTION
;GET SECTORS TO WRITE
sALIGN IT
sCLEAR OUT HIGH BYTE

003230

CMP
BGE

#39.,STSEC
78

;OVER FORTY?
:NO, CONTINUE

003230
025574

Sus

#40. ,STSEC

:YES BACK IT uP
:STARTING SECTOR

JSR

RS ,WRSEC
0

;WRITE SECTORS

003116

MOV
MovB
SWAB

78:

8s:

MOV

.WORD

#FWD,DIRC

QDJLOC+1.R3

STSEC,8%

—_

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16~FEB-82 13:32:06 PAGE 11-1

SEQ 0056

GLOBAL SUBROUTINES SECTION

58 025576
59 025604
60 025610
61 025612
62 025620
63 025626
64 025626
65 025634
66 025642
gg 025650

013737
004537
000000
013737
004537
000000
013737
062737
022737
002003

025574
030112

025610

025610
030356

025624

003230
000010
000047

003226
003226
003226

93 025652

162737

000050

003226

;} 025660

013703

003220

;z 025664

013737

003226

75 025672
76 025676
77 025700
78 025706
79 025712
80 025714

004537
000000
013737
004537
000000
013737

025070

82 025726
83 025730

000000
022737

84 025736 001004
85 025740 012737
gg 025746 000403

025676
025712

025712

025726

000001

003060

000377

003122

108:
110$:

2108:

8$,108$
RS .VAJWR
0
108$,208$
RS.BSVWR
O
STSEC,STSECT
#8,,STSECT
#39.,STSECI
93

su8

#40.,STSEC1

;YES BACK IT UP

MOV

ADJLC2.R3

:GET SECTORS TO WRITE

MoV

STSEC1,108

;STARTING SECTORS

JSR
LWORD
MOV
JSR
.WORD
MOV

RS ,WRSEC
0
10$,1108
RS, VAJWR
0
110$,2108

;WRITE SECTORS

.WORD
CMP

O
#1,T.DRIVE

JSR

BNE

RS.B8SVWR

:VERIFY THIS WRITE

;GET OTHER SECTORS TO WRITE
:8 SECTORS GONc BY
*GONE PAST 40?
:NO, OKAY

;VERIFY THIS WRITE

;VERIFY ADJ CYL + 1

778

MOV

#377.CYL

778:

MOV

777.CYL

888:

JSR

RS,SKCYL

MOV

(R2),CYL

;SEEK BACK TO PROPER TRACK

003116

JSR
MOV

MOVB

RS, SKCYL
#REV,DIRC
ADJLC3+1.R3

:SEEK TO PROPER CYLINDER
*SEEK DIRECTION
*GET SECTORS TO WRITE

026024

SWAB
BIC
MOV

R3
#377.R3
STSEC,11$

:ALIGN IT
*CLEAR OUT HIGH BYTE

JSR
.WORD

RS,WRSEC
O

:WRITE PROPER SECTOR

MOV
JSR
.WORD
MOV
JSR
.WORD
MOV

11$,111$
RS, VAJWR

:VERIFY THIS WRITE

MOV

ADJLC4.R3
STSEC1.12$

:GET SECTORS
*GET SECTORS TO WRITE

JSR

RS, WRSEC

:WRITE PROPER SECTORS

gg 025750

012737

000777

3? 025756

004537

026254

3§ 025762

011237

003122

94 025766
95 025772
39 026000

004537
012737
113703

026254
020126
003223

98 026004
99 026006
}8? 026012

000303
042703
013737

000377
003230

102 026020
}82 026024

004537
000000

025070

105 026026
106 026034
107 026040
108 026042
109 026050
110 026054
111 026056

013737
004537
000000
013737
004537
000000
013703

026024
030112

026040

026040
030356

026054

013737

003224
003226

026074

114 026070

004537

025070

}}g 026062

2088:

9% :

025676
030112

81 025722 004537 030356

1088:

MOV
JSR
.WORD
MOV
JSR
.WORD
MOV
ADD
CMP
BGE

B8R

11$:

1118:
2118:

88$

0
1118,211%
RS,BSVWR
O

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PA"F 11-2

SEQ 0057

GLOBAL SUBROUTINES SECTION

}}2 026074
117

118 026076

119 026104

}gg 026119
122

123 026112

124 026120

}gg 026124
127

128 026126

129 026132
130 026136

013737

004537
000000

013737

03112
026110

030356

005737

003114

000000
001003
005237

003114
000012
002400

000137

025402

1128:

144 026200
145 026204
146 026206
147 026212
1¢5 026216
149 026222
150 026226
151 026234
152 026236
153 026242
154 026244

155 026246
156 026252

JSR

.WORD

MOV

026124
2128:

138:
14$:
998:

O
12$.112$

RS, VAJWR
O

1128,212%

;VERIFY THIS WRITE

JSR

RS,BSVWR

:VERIFY ADJ CYLINDERS + 1

T1ST

HEADO1

:WHICH HEAD WERE WE DOING?

B8R

998

.WORD

BNE
INC

CLR
ADD
CMP

BGE

JMP

148
HEADO1

HEADO1
#10. .R1
R1,#INNS1

;NEXT SET OF TRACKS
*NEXT SET OF TRACKS
‘END OF LIST

*NO GO BACK

18$

‘END OF TRACK LIST

;AT END OF TRACK LIST NEXT GROUP OF WRITES

}gg
140 026164
141 026170
142 026172
143 026176

.WORD
MOV

026110

003114

705037
062701
020127

135 026156 002002

}gg 026160

026074

004537

131 026140 000402
132 026142
133 026146
134 026152

128:

000000

005737
001403
005037
000421

005737
001004
005237
000137
005037
005237
023737

001402

000137
005725
001376

005037
000205

188:

003064

003214

15¢:

003214
025346
003214
003216
003216

168:

025346
003104

003130
178:

TST
BEQ
CLR
BR

TST
BNE
INC
JMP
CLR
INC
CMP
Bt 2
JAP
TIST
BNE
CLR
RTS

FADJ
158
FADJ
17$

;FIRST SET?
*NO, CONTINUE
*YES, CLEAR FIRST
CEXIT

17$

‘YES, FOR EXIT

ADJTRK
168
ADJTRK
218
ADJTRK
ADJUUT
ADJUUT,UUT
218
(RS) ¢
178

ADJDIR
RS

‘DONE BOTH INSIDE OUTSIDE
:TRACKS, YES 16$
‘N0, SET INSIDE FLAG
160 DO INSIDE TRACK
‘BACK TO OUTSIDE TRACK
*DONE WITH ANOTHER
‘DONE TABLE FOR ALL WUT?
*NO, GO BACK FOR NEXT
‘BUMP EXIT TC END OF
*TABLE FOR PRUPER RETURN
SEXIT

COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 13
DRIVE
RLO1/02
CZRLLCO
SECTION
S
SUBROUTINE
GLOBAL

SEQ 0058

ROUTINE 10 SEEKR;0 A DESIRED CYLINDER

sCALL:

JSR

SkCYL:

MOV

R1,=-(SP)
RS5,LDFUNC

sSAVE R1
sGET PRESENT POSITION

TST
BNE

ERFLG
$

:ERRJDR FLAG SET

SKCYL

ROUTINE HAS DESIRED CYLINDER IN LOC ‘‘CYL'’

010146
004537
000010

005737
001104
005001
012737
053701
006301

90$:

032404

003074

000007
003122

000177
003172

JYES, SKIP

CLR

003056

MOV

;GET THE SELECTED CYLINDER NUMBER

BIS

1208:

003056

JSR
RDHDR

ASL

003172

sCALCULATE DIFFERENCE WORD
sIF POSITIVE SET DIRECTION

:NEGATE

:SKIP SETTING DIRECTION
:SET FOR FORWARD SEEK
;SET MARKER BIT

000004
000001
003120

000020
003204
032404

RS, LDFUNC

sTOP
;BOTTOM
sLOAD DIFFERENCE WORD
SEXECUTE SEEK

%2 026370
3
34 026372
%2 026376

000006

005737
001041

003074

ERFLG
5%

;YES, SKIP

37 026400

004537

032404

RS .,LDFUNC

;VERIFY POSITION?

003074

ERFLG
$
#77 E.MP

sVERIFY POSITION

000077

603172

000007
003122

003056

2208:

ASL

g% 026464
54 026466

026472

001414

104455
000014
020077

003172

#7 TEM
cyi R
R1
TEM

2208

003120
000100

s ERROR?

4$:

CMP

SURF
48
#HEAD ,R1
R1,E.MP
63

12.,SKER,ERR6
CSERDF
12
SKER

;MIS SEEK ERROR

OMPAT MACRO V04.00 16~-FEB-82 13:32:06 PAGE 12-1

CZRLLCO RLO1/02

-y

GLOBAL SUBROUTIN

026474
95 026476
56
57

58 026512
59 026516
60 026520

5%:

000205

SEQ 0059

ION

026256

6$:

.WORD
N2

ERR6
90s

ERRDF

13. ,FUNERR,ERRS5 ;ERROR [N SEEK OPERATION
CSERDF

TRAP

.WORD
+WORD
.WORD

FUNERR

MOV
RTS

(SP)+,R1
RS

JMP

ERRS
908

sCANT GET THERE
JEXIT

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 1&
GLOBAL SUBROUTINES SECTION

SEQ 0060

:ROUTINE TO PERFORM REGISTER PRINTOUT DUMP
PC,REGDMP
‘CALL: JSR

1
2

{ 026522
026522
026526
026532
026536
026542
026546
026552
026554
026556

5
6 026562

026562
026566
026572
026576

013746
013746
013746
013746
012746
012746
010600
104414
062706
013746
013746
013746
013746

REGDMP: PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

003206
003204
003202
003200
021646
000005
000014

PRINTB

;PROMPT - BEFORE CS: _ BA: _ DA: _ MP: _

#FRM12,B(S.BBA,BDA,BMP
,~(SP)
BDA,~(SP)
88A,~(SP)
BCS,=~(SP)
#FRM12,-(SP)
#5,=-(SP)
SP,RO
CSPNTB
#14,SP

:PROMPT =~ AFTER CS: _ BA: _ DA: _ MP: _
#FRM13,E.CS,.E.BA.E.DA,E.MP
E.MP,=(SP)
E.DA,=-(SP)
E.BA,~(SP)
E.CS.=(SP)

003172
003170
003166
003164

MOV
MOV
MOV
MOV

#5,-(SP)
SP.RO

MOV

026602 012746 021725

#FRM13,=(SP)

026606
026612

012746
010600

0000085

MOV
MOV

126616
7 0.9622
8 026630
9 026632
10 026636
11 026644
12 026652
13 026660

062706
032737
001437
016403
012763
012737
056437
013763

000014
040000

003164

000000
000013

000004

003200

000000

ADD
BIT
8EQ
MOV
MOV
MOV
BIS
MOV

#14,SP
#81714,E.CS
18
CSR(R4) ,R3
#13,DA(R3)
#4,8CS
DSB(R4) ,BCS
BCS,CS(R3)

003106

BEQ
MOV

2
MP(R3) ,DRSTAT

MOV
MOV
MOV
MOV
TRAP
ADD
RTS

DRSTAT.=(SP)
.= (SP)
#FRM14
#2,-(SP)
SP.RO
CSPNTB
#6.SP
PC

126614

104414

000004
0000046

TRAP

003200
003200

14 026666 032763 000200 000000 2%:

15 026674
16 026676

001774
016337

026704
026710
026714
026720
026722
026724

013746
012746
012746
010600
104414
062706
000207

17 026704

}g 026730

000006

PRINTB

003106
022010
000002
000006

BIT

18:

CSPNTB

#200.CS(R3)

#FRM14.DRSTAT

:PROMPT = DRIVE STATUS

SEQ 0061

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 14

GLOBAL SUBROUTINES SECTION

:ROUTINE T0 S TORE OR RETRIEVE ADJACENT CYLINDER SECTOR DRIVE

:CALL 1:

INFORHATION SRQH THE 264X5 ''SECLST'® BUFFER.
SECTOR REQUEST
ENTER WITH R
EXIT WITH RO = ADJACENT CYLINDER DRIVE INFORMATION FOR SECTOR
EXIT WITH RO = 0 IF SECTOR REQUESTED IS NOT IN BUFFER MAP

2
3
4
b)

:CALL 2:

g
10 026732
11 026734
12 026736
13 026740
14 026744
15 026750
16 026754
17 026760
18 026764
19 026770

20 026772
21 026774
22 027000
23 027004
24 027010

25 027012
26 027016
27 027020
28 0270246
29 027026
30 027030
31 227032
32 027034
33 027040
34 027042
35 027046
36 027050
37 027052
38 027054
39 027056
40 027062
41 027064
42 027066
43 027070
44 027072
45 027074
46 027076

JSR RS RSADJS
WORD
0
JSR RS ,RSADJS

010146
010246
010346
042700
012537
012701
012702
012703
123701
001413

005201
062702
062703
020327
002765

162703
000762
012701
020003
001413
005722
005203
020327
003402
162793
005301
001365
005000
000405
005737
001401
010412
011200
012603
012602
012601
000205

177700
003102
000001
002442
000020
003100

RSADJS: MOV
MOV
MOV
8IC
MOV
MOV
MOV
MOV
CMPB
1$:
BEQ

INC
ADD
ADD
CMP
BLT

000060
000042
000050
000050

000030

2$:
3s:

000047
000050

003102

48:

5%:
6$:
7%:

sus
B8R
MOV
CMP
BEQ
TST
INC
CMP
BLE
sus
DEC
BNE
CLR
BR
TST
BEQ
MOV
MOV
MOV
MOV
MOV
RTS

WORD

R1,~-(SP)

JRETRIEVE SECTOR INFO.
:STORE SECTOR INFO.

R2.=(SP)

R3,~(SP)

#177700,R0

:SAVE SECTOR BITS

#1,R1

‘START WITH TRACK (N=2)

(RS)+,ADJFLG

#SECBUF ,R2

#16. ,R3
égJLOC.R1
R1
#48. ,R2

#34. R3

ns #40.

:SAVE RETRIEVE/STORE FLAG
‘START OF 24X5 BUFFER

*SECTOR 16 START FOR (N=2) TRACK
cuecx TRACK INDEX
1~oex TRACK REFERENCE
*UPDATE BUFFER TO NEXT TRACK REF.

‘UPDATE SECTOR START FOR NEXT TRACK

:40.,R3

#24. R1

ser COUNTER FOR 24 SECTORS

58
(R2)+

LYES,STORE OR RETRIEVE SECTOR INFO.
“INDEX SECLST BUFFER IN WORD FORMAT

22.#39.

*COMPARE SECTOR COUNT FOR <40

RC,.RS
R3

#40. ,R3
R1
3$
RO
78
gngLc

R, (R2)

(R2) ,RO

(SP)+,R3
(SP)+ ,R2
(SP)+.R1
RS

‘COMPARE SECTOR TO SECTOR TABLE
*INDEX SECTOR COUNT

:KEEP SECTOR COUNT<40
*PASSED 24 SECTORS?
COMPARE NEXT SECTOR
SSETUP RO FOR EXIT
“EXIT ROUTINE,.SECTOR NOT FOUND
‘FLAG=0 FOR RETRIEVE

:STORE DRIVE INFO. INTO BUFFER

*SAVE DRIVE INFO. INTO RO FOR EXIT
SEXIT

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 15

SEQ 0062

GLOBAL SUBROUTINES SECTION
1

ROUTINE TO SET DRIVE IN SECTOR LIST

onxvs GOTTEN FROM Ré

PCALL:

g 027100

010146

7 027102
8 027106
9 027110
10 027114
11 027120
12 027122
13 027124
14 027126

162700
100002
062700
012701
005700
001403
005300
005721

15 027130
16 027132
17 027134

}g 027136

SETLST: MOV
000034

000050
002402

000773
010411
012601

38:
1s:

2s:

000205

su8
BPL
ADD
MOV
ST
BEQ
DEC
TST

BR
MOV
MOV
RTS

R5,SETLST

RO HAS SECTOR

R1,=(SP)

;SAVE R1

#28..R0
3$
#40. RO
#SECLST,R1
RO
2$
RO
(R1)+

;START LIST AT 0

18
R, (R1)
(SP)+,R1
RS

;BEGINNING OF SECTOR LIST

sFOUND SECTOR?
:BRANCH IF YES

:DECREMENT SECTOR

:NEXT ENTRY IN LIST
;G0 BACK

:STORE DRIVE BITS IN LIST
sRESTORE R1

;ROUTINE TO LOCATE DRIVE THAT WROTE SECTOR LAST
sRO-CONTAINS SECTOR
RS ,FNDDRV
SCALL: JSR

20
%}
23

JSR

sON EXIT RO-DRIVE

24 027140

010146

FNDDRV: MOV

26 027146
27 027150
28 027154
29 027160
30 027162
31 027164
32 027166
33 027170
34 027172
35 027174
36 027176

100002
062700
012701
005700
001403
005300
005721
000773
011100
012601
000205

8PL
ADD
MOV
ST
BEQ
DEC
ST
BR
MOV
MOV
RTS

25 027142 162700 000034
000050
002402

SUB

38:
1$:

28:

R1,-(SP)

xzé..no

3s
#40. ,RO
#SECLST,R1
RO
2
RO
(R1)+
18
(R1) ,RO
(SP)+,R1
RS

R
;SAVE

:START LIST AT 0
;START OF LIST
:FOUND SECTOR?
:YES, GET DRIVE #, EXIT
*NO, ‘DOWN COUNT SECTOR
INEXT ENTRY IN LIST
: GO _BACK

:GET DRIVE BU-FER POINTER
:RESTORE
R1
SEXIT

SEQ 0063

CZRLLCO RLO1/02 DRIVE COMPAT MACRO VO04. 00 16-FEB-82 13:32:06 PAGE 16

GLOBAL SUBROUTINES SECTION
1

ROUTINE TO VERIFY THAT THE OVERWRITE D.D ACTUALLY OVERWRITE THE
PREVIOUS DATA ON THE PACK.

2
3
&

.CALL

S
6

JSR

R5,VEROW

USES R3 AS BIT MAP OF SECTORS TO
R3 IS LOADED PRIOR TO
CHcCK.
WRITING SECTORS.

000034
100000
000006

003132

012737
012737
042737
053737

177600
003232
000077
003132

003206
003202
003204
003204

(=]
N
~
N

16 027226
17 027234
18 027242
58 027250

VEROW:

012737
012701
016437

O
-

12 027206
13 027214
}g 027220

010046
010146
010246

o0
=1V}
-

9 027200
10 027202
11 027206

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

#28. SECT
#100000,R1

003136

PAT(R4) ,GDATA

1$:

2s:

#8UF ,BBA

#77 ,BDA
secr 8DA

1.RS

5
R5,LDFUNC

;SAVE REGISTER CONTENTS

;START VERIFY AT SECTOR 28
FOR VERIFICATION
MASK
;BIT
FOR THIS DRIVE
PATTERN
;GET
:SET UP READ-ONE SECTOR
:BUS ADDRESS
sCLEAR OUT SECTOR BITS
;SET SECTOR
;D0 WE READ THIS ONE?
:NO, BRANCH

:READ

22 027262
22 027266

004537
000014

032404

25 027270
26 027274

005737
100107

003164

E.CS
43

sERROR

28 027276

005737

003062

FOWR

INITIAL WRITE

30 027306

012737

017373

000000
000005

003070
003134

34 027330

012737

017642

003072

37 027346
38 027354

016037
116037

000000
000005

003070
003134

N27362

104455

40 027372
41 027376
42 027402
43 027406
44 027412
45 027414

005037
005037
012702
023712
001417
005237

027420
027422
027426
027432
027436
027442
027444

011246
013746
013746
012746
012746
010600
104417

31 027312
32 027320

46 027420

016437
016437

003142
003144
003232
003136
003142

003136
003144
021437
000004

218

003072

:NO CONTINUE

SETUP INITIAL WRITE OF SECTOR
CSR(R&4) ,LSTCLR
DSB+1(R4) ,LSTDRY
228
sSET MESSAGE FOR OVERWRITE
#OVMES ,REASON
;FIND DRIVE THAT LAST WROTE
cT, RO
:SECTOR
RS ,FNDDRV

#INITWR ,REASON

218:

22$:

3s:

CSR(RO) ,LSTCLR ;GET IT'S CSR
psB+1(RO),LSTORV' :GET THE DRIVE
13.,0VWER.ERRS ;PRINT ERROR
CSERDF
13
OVWER
ERR4
WCOUNT

;CLEAR BAD WORD COUNT W/IN SECTOR
:CLEAR WORD IN SECTOR
:GET BUFFER START
:1S DATA CORRECT?
GDATA, (R2)
:YES CHECK NEXT
31
:NO ACCOUNT FOR IT
WCOUN
#FRH8 SECWRD,GDATA, (R2)
(R2), -(SP)
GDATA, = (SP)
SECWRD, = (SP)

#FRM8, = (SP)
#4,-(SP)
SP.RO
CSPNTF

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 16-1

SEQ 0064

GLOBAL SUBROUTINES SECTION

027446

47
48 027452

062706
005722

#12,5P

000012
003144
003144

31s:

64 027552
65
66 027554
67 027556
68 027560
69 027562

JNEXT

#FRM9 ,WCOUNT
WCOUNT ,=(SP)

;PRINT SUMMARY

SECT,RO
R5,SETLST

sSET SECTOR IN LIST TO THE
sCREDIT OF THIS DRIVE

SECT

sNEXT SECTOR

R1
18

:CLEAR CARRY
sNEXT BIT
:IF CLEAR NEXT

SECWRD ,#128.
3s

000200

003142
021503
000002

54
55 027514
Sg 027520
)
58 027524

+
(R2)
SECWRD

sNEXT
sDONE WITH SECTOR?
:NO GO BACK

000006
A ¥

013700
004537

003132
027100

005237

003132
003132

000050

003132

103225
012602
012601
012600

000205

SECT,#40.
6$
#40.,SECT

(SP)+,R2
(SP) +,R1
(SP)+,R0
RS

;RESTORE R2-RO, EXIT

joleleleleiolelalelolele]
WS 2=
OO0
b b i —d
Ol
=2NNINO OO

PCALL:

29 027700
3? 027704
3
32 027706
33 027712
34 027714
35 027722
027722
027724
027726
027730
36
37 027732
38 027736
39 027742

40 027746
41 027752
42
43 027754
44 027760

016037

JSR

R5,VEROD

:
VEROD

100000

000034
003062

003132

177600
003232
000077
003132

003206
003202
003204
003204

001103

26 027664
%g 027672

sBIT MASK FOR SECTORS
sSTART WITH SECTOR 28
sCHECK FOR FIRST OVERWRITE
#-128. .BMP

2$:

4BUF ,B8A

#77 .BDA
SECT.BDA

R1.RS
1

003132
027140
000000
000005
000006

003070
003134
003136

SECT.RO
RS, FNDDRV
CSR(RO) ,LSTCLR

sSET UP READ (ONE SECTOR)
sBUS ADDRESS
sCLEAR SECTOR BITS
¢SET IN SECTOR BITS
sCHECK THIS SECTOR?
BRANCH
:NO
cFIND DRIVE THAT WROTE

¢SECTOR LAST

DsB8+1(RO) ,LSTDRY

PAT (RO)
, GDATA

¢GET _CSR OF DRIVE
:GET DRIVE
¢GET PATTERN

004537
000014

032404

R5,LDFUNC

sREAD

005737

003164

E.CS

012737

017675

sERROR?
¢NO, NEXT SECTOR
¢SET READ RECOVERY MESSAGE
sREPORT ERROR

100060

104455
000016
020023
020464

005037

003072

#RECMS ,REASON
14. ,RECER,ERR4

CSERDF
14

RECER

ERR4

003142
003144
003232
003136

003142

WCOUNT
SECWRD

#BUF ,R2
GDATA, (R2)
48

sCLEAR BAD WORD COUNT

*CLEAR WORD w/] SECTOR

*START OF BUFFER

:DATA COMPARE
SYES, CHECK NEXT

WCOUNT
; ACCOUNT FOR ERROR
#FRM8, SECWRD, GDA TA.(R2)
;PRINT ERROR
(R2) ,=(SP)
GDATA, ~(SP)

SECWRD ,~(SP)

#6,~(SP)
030006

USES R3 AS BIT MAP OF SECTORS TO
CHECK.
R3 IS LOAD BY WRSEC (WE
USE R3 COMPLIMENTED.

:SAVE RO-R?

#FRM8, = (SP)

SEQ@ 0065

sROUTINE TO VERIFY THAT A DRIVE CAN RECOVER ANOTHER DRIVE'S DATA.

NN NQNNNNN
o
S
R

WA= OV 00NV

POPNIPIN)
= b
b ed ) e d cad d

NN =2 O 000 N

N SN —

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 17
GLOBAL SUBROUTINES SECTION

SP.R0
CSANTF

#12,SP

A ¥

<
MM

ONOO
=W\

OMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 19-1

OANNN
OB

OO0

)

SEQ 0066

o TION

—_ed b ed
OMNNW

46 030012

GLOBAL SUBROUTIN

WNOUON
SN

CZRLLCO RLO1/02 D I

000200

TST
INC
CMP
BNE
PRINTF
Mov
MoV
MOV

000002

(R2)+
SECWRD
§§CURD.#128.

JNEXT

#FRM9 ,WCOUNT
WCOUNT ,=(SP)
#FRM9,=(SP)

;PRINT SUMMARY

:NEXT WORD IN SECTOR
;DONE?
JNO

000006
003132
003132

003132
58 030100

103244

60 030102
61 030104
62 030106
63 030110

012602

000205

SECT

SECT,#40.

000050
7%:

6$:

sNEXT SECTOR

78
SECT
R1
18

sNEXT BIT MAP

(SP)+ ,R2
(SP)+,R1
(SP)+,RO
RS

;RESTORE R2-RO, EXIT

SEQ 0067

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 18

GLOBAL SUBROUTINES SECTION

:IF WRITE WAS GOOD,SSCTOR WILL BE STORED IN MAP
sUSING RSADJS/.WORD 1

0
0
%701

b b e

NN =2 OV~

VIS WD~

;ROUTINE TO VERIFY THE ADJ, CYL. WRITE IS GOOD

sUSES R3 AND WORD FOLLOWING CALL

3
3
3
§0144

VAJWR:

100000

003056

005737

003120

30160

052700

000100

26 030172
25 030200
26 030204
27 030210
%g 030214

012737
010037
010037
042700
020027

177600
003204
003066
177700
000047

003206

30 030222
31 030230
32 030236
33 030244
34 030250
35 030254
36 030260
37 030262

162737
162737
012737
005037
013700
004537
000014
005737

000050
000050
003232
003110
003066
032404

003204
003066
003202

39 030270
40 030274

005737
001007

003110

= OV

b b e

003056

3 0152
3

38 030266

41 030276

030276

42 030306
43 030312
44 030314
030314

001416

Mov

2$:

ASL

3$:
4$:

8IS
BIT

005237
000760

49 030336

005200

004537

#100000,R1
(RS)+,R2
RO
CYL,RO
#7,TEM

sSAVE REGISTERS

;BIT MASK FOR CYLINDER
sSTARTING SECTOR

5¢

#177700,R0
RO.439.
6$
#40. ,BDA

6$:

MOV

108:

JSR

003074

#40.
. TEMP
#8UF ,BBA
HSFLG

TEMP,RO
R5,LDFUNC

sREAD FUNCTION

ERFLG
78
HSFLG
118

120, ,READ1,ERR2

CSERSOFT
120
READ1

ERR2

003110

104456

010046

RO,=(SP)
R1,=(SP)
R2.=(SP)

RO,BDA
RO, TEMP

104457

45 030326

46 030326

CLR
8IS

005337

MOV

MOV
MOV
Mov
MOV

026732

HSFLG

118:

ERRHRD

78:

MOV

5%:

INC

108

130, ,READ1,ERR2

CSERHRD
130
READ1

ERR2

RO,=(SP)
?5.RSADJS

(SP)+,RO
RO

;STORE ADJ. CYL. SECTOR INFO.
sRESTORE RO

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 18-1

SEQ 0068

GLOBAL SUBROUTINES SECTION

50 030340

51 030342
52 030344
53 030346
54 030350
55 030352
gg 030354

000241

006001
103310
012602
012601
012600
000205

cLC

ROR
BCC
Mov
MOV
MOV
RTS

R1
43
(SP)+,R2
(SP)+,R1
(SP)+,R0
RS

;RESTORE REGISTERS AND EXIT

SEQ 0069

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 19

GLOBAL SUBROUTINES SECTION

;ROUTINE TO VERIFY THAT WRITE DID NOT DISTURB ADJACENT TRA(CKS

:WRITTEN BY OTHER DRIVES.

2
3

:CALL
;

010046
010146
010246

14 030374
15 030376
16 030404
17 030406
18 030412
19 030414

012546
123727
001455
162716
100002
062716

22 030430

013746
013746

BSVWR:

003122
003120
003100

MOV

MoV
MOV
MOV
Mov

123727

105337

003100

(RS)+,=(SP)

ADJLOC ,#3
BSEXIT
#364.,(SP)
18

000003

000042
000050
003100

RO,=(SP)
R1,-(SP)
R2,=(SP)
cyL,-(sP)
SURF ,=(SP)

#40.,(SP)
ADJLOC,#1

000001

INAWR:

ADD

L
ADJLOC

#68.
., (SP)

%SP)M40,

28 030460

021627

000050

30 030466
31 030472

162716
021627

000050
000050

#40.,(SP)
(gP)LR

33 030500

162716

000050

#40.,(SP)
ADJLOC ,#5
BSEXIT

34 030504
35 030512

36 030514
37 030520
38 030524
39 030530
40 030534
41 030540
42 030542
63 030546
45 030554

46 030556
47 030560
23 030564

sSTARTING SECTOR

:USES R3 FOR SECTOR MAP, USES MAP AT "'SECBUF'’ FOR INFO

9 030356
10 030360
11 030362

20 030420

-WORD

$USES “'ADJLOC'’ TO GET +1/-1 CYLINDER OFFSET

6
g

12 030364
13 030370

JSR RS,BSVWR

007141
105237
005237

004537
105337
005337

005726
012637
012637

003100

003100
003122
(30566
003100
003122
003120
003122

012601

012600
004537
000205

026254

sSAVE REGISTERS

sGET STARTING SECTOR
sON MIDDLE TRACK???
JYES, THEN NO CHECK
:SETUP SECTOR START FOR OUTSIDE
g; POSITIVE OKAY ELSE FIX
X I7

:ON OUTER LIMIT22?
:YES,SKIP CHECK
:OUTER ADJ TRACK

;G0 CHECK ADJ SECTORS
sFIX BACK

:INNER SECTOR START

:WITHIN LIMITS?2?

sYES, OKAY
JFIX SECTOR

000005

ADJLOC
cyL

RS, CHECK

BSEXIT: TST
NCHECK: MOV

ADJLOC
CYL
(SP)+

(SP)+,SURF
(SP)+,CYL

s INNER LIMIT??
SYES,SKIP CHECK
sFIX FOR INNER

160 CHECK ADJ SECTORS

‘FIX BACK

“THROW OFF SECTOR

(SP)+.R2

(SP)+,R1

(SP)+,RO

R5,SKCYL
RS

s SEEK BA(CK
:RETURN

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE <0

SEQ 0070

GLOBAL SUBROUTINES SECTION

: CALL

030600
030604

053702
012737

003122
000007

030614

005337

003056

030622

005737

003120

)

(=]

030634

100000
026254

~N
~

012701
004537

(V.]

030566
030572

056602

000050
000050
026732

o0
\=d=4
Vo
~NO
N—
NS

NN
NN
oo

[elels]

010237
012737
004537

003204
177600
032404

39 030740

042737

177700

0
030750

104456
000214

47 031000

003056

CYL.R2

2$:

:CREATE ADDRESS

#7.TEM
R2
TEM

SURF

3s:
4$:

:NO

2(SP) .R2
R1,R3

sSET IN SECTOR
STHIS SECTOR IN LIST???

#197700,R0

SONLY SECTOR LEFT

#HEAD ,R?2

s
R2,.RO

*NO, NEXT
*COPY SECTOR

RO.#40. :SECTOR OKAY???
:YES
6$
#40. R0

6$:

#40. .R2

;FIX SECTOR

RO
5

sWAS 1722
*NO

#-128..8MP
RS, LDFUNC

*LOAD
W
*LOAD

8S.RSADJS

R2,BDA

003206

‘FIND IF SECTOR PREVIOUSLY WRITTEN

*LOAD oxsx ADDRESS
:WAS READ GOOD

0177700 SECT

003132

140. ,ADJTXT.ERR3
CSERHRD
140

ADJTXT

snns
(SP)+,R3

110..READ1 ERR2

CSER
110
READ1

104456
000156

000205

:SECTOR MASK

‘GET TO DESIRED CYLINDER

012603

005202

RS, SKCYL

R3,-(SP)
R2 SECT
R3

003132

030766
43 030770

#100000,R1

ggrLc

010237

42 039760
030760
8%8762

RS, CHECK

003074

37 030732

03
41 030756

JSR

~
W
W

162700
162702
004537
b=
(=

030660
030664
030670
=
o

177700
000050

o
W
o

042700
020027

030702
030706
030714

CHECK:

000100
000002

030646
030652

QO
NN

NN W)
VS NN -~ OV

ANOPI AV NI PININ

NN = O O 0O NNV

b md b b b wed b b =d b

NN = O 0 00 N

NS W) =

;ROUTINE TO VERIFY AN ADJACENT SECTOR
;CALLED FROM BSVWR

5$:

ER22
R2
R1
X|
RS

:NEXT SECTOR
sSHIFT MASK

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 21

SEQ 0071

GLOBAL SUBROUTINES SECTION

5
.
;ROUTINE TO MERGE BAD SECTOR FILES
SENTRY INTO THIS ROUTINE WILL OCCUR AFTER THE ‘'SERNUM'' QOUTINE

2
3

SIS PERFORMED. THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN
:FIRST 400(8) 'LOCATIONS.

STHIS ROUTINE WILL STORE THE IELD BAD SECTOKS INTO THE NEXT
3400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE

6
7
8
9

:WITH THE FIELD BAD FILE.

:FACTORY BAD AT BUF

:FIELD BAD AT BUF + 512,

12 031002
13 0310064
14 031006

010146
010246
010346

16 031016
17 031024
18 031026
19 031034

022737
001004
012737
000403

:
MERGE

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

#8UF +400,88A

003632
000001

003202
003060

077724

003204

012737

177724

003204

55%:

55
#77724 ,BDA
663
#177724 ,BDA

22 031044
23 031052

012737
004537

177400
032406

003206

66%:
97%:

#-256. ,BMP
R5,LDFUNC

25 031060
26 031064
27 031066
28 031074
29 031102
30 0311064
g; 031112

005737
001431
062737
022737
001004
022737
001357

003074

33 031114
34 031122
35 031124
031124
031130
03113¢
031136
031140
36 031144
031146
37 031146
38 031150
39 031154
40 031169

15 031010

%? 031036

24 031056

41 031162
42 031164
43 031166
44 031170
45 031172
46 031174

47 031176
48 031202
49 031206
50 031210
51 031212

012737

000014

000004
000001

003204
003060

077750

003204

022737
001353

177750

003204

012746
012746
010600
104417
062706

022037
000001

104422
000776
012701
012702
005721
100404
005721
005302
001373
000401
005741
012703
012702
012221
100403
012221

000004

003242
000176

01‘T.DRIVE

ERFLG
98$
¥4 ,BDA
#1.T.DRIVE

sSAVE R1, R2, R3
sBUFFER START FOR FIELD BAD

sLOAD READ FUNCTION
sTEST ERROR FLAG

sYES;MERGE BAD SECTOR FILES
sTRY NEXT FIELD BAD SECTOR FILE

4008

#77750,8DA
97%
4008:

999%:

#177750,BDA
97%
#FRM15
#FRH15.;(SP)

C$8RK
999%

;NO,DO NEXT FIELD BAD SECTOR

98S$:

#8UF+10,R1

;GET PAST ID ETC.

1$:

§R1)+

*SECTOR OR END
*END, GO GET FIELD

#126. ,R2

;
= 12 126
TMAX

:REST OF SECTOR

000176
003642

23:
38:
4$:

=RV
#126. .R3

#8UF +410,R2
(R2)+, (Ri)+
5%
(R2)+,(R1)+

*MAX REACHED
*NO, KEEP GOING
*YES, SKIP BACK UP
*BACK UP PAST TERMINATOR
“SET 126 MAX
:GET FIELD SECTORS
IMERGE AT END OF FACTORY

sDONE?
:NO, MERGE RE.T OF SECTOR

CZRLLCO RLO1/02 DRIVE COMP AT MACRO V04.00 16-FEB-82 13:32:06 PAGE 21-1

SEQ@ 0072

GLOBAL SUBROUTINES SECTION

52 031214
53 031216

005303
001373

54 031220 012603
55 031222
56 031224
57 031226

012602
012601
000205

5%:

DEC
BNE

R3
43

s DONE
iNO, GO BACK

Mov
MoV
RTS

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

JEXIT

Mov

(SP)+,R3

:RESTORE R3, R2, R1

SEQ 0073

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 22
2 031234
3 031240
& 031246
5 031250
6 031252
7 031254

S 031260
9 031264
10 031270
11 031274
12 031302
13 031302
14 031306
15 031312
16
17
18
19

O == NOQON)
= -

1 031230

(eleolelelololelols]e]

GLOBAL SUBROUTINES SECTION

26 031356
27 031360
28 031366
29 031370
30 031372
gg 031400

003060

FNDTRK: MOV
MOV
CMP
BNE
BR
CMP
80$:
MOV
90$:
MOV

003154

18:

000005

003160
000001

003060

062705

000004

000205
023737

003154

001001

000740

003146

2%:
3s:

#1,T.ORIVE

;GET INCREMENT/DECREMENT
;GET HEAD (SURFACE)

80$

90%
(RS)+,(RS)+
(RS5)+,FRTTRK
(R5)+,LSTTRK

MOV

;CLEAR OUT FLAG FOUND
sCLEAR OUT TRACK COUNT
:GET FIRST TRACK

JSR

RS ,FNDBSC

;1S TRACK IN BAD SECTOR FILE

INC

2%
TRKCNT
3%

TST
BNE

003162
003162

(RS)+,0FFSET
(R5)+,SURFACE

TRKFND
TRKCNT
FRTTRK,PRSTRK

CLR
CLR

003162

031314
031320
031322
031326

20 031334
21 031336
22 031342
23 031350
gg 031352

003146
003156
000001

HDRFND

TRKCNT

TRKCNT
45

43
TRKFND
#1,T.DRIVE

;WAS IT?

1YES, CLEAR TRKCNT

N0, INDICATE GOOD TRACK
s CONT INUE
:START COUNT OVER
sFIND 5 TRACKS YET?

:NO, CONTINUE

;YES, EXIT WITH GOOD rLAG

81§

#4 RS

003150

003154

PRSTRK ,LSTTRK

5¢
R5

?;FSET.PRSTRK

sARE WE DONE?
sNO, KEEP LOOKING

JEXIT WITH NOT FOUND
sNEXT TRACK

CZRLLCO RLO1/02 ORIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 23

SEQ 0074

;ROUTINE TO FIND BAD TRACK IN FILE

&S ¥ BB
== 200
&0 W NN
oo O oo oONNIOONN

g WWW NWWNWWWN NN NN e N NN NN

037

002234

)

003242

RS,FNDBSC

FNDBSC: CLR
MOV

HDRFND
R1,=-(SP)

JINITIALIZE FLAG
:SAVE R1, R2

MOV

#BUF+10,R1

:SETUP FOR BEGINNING OF FILE

8MI
CMP
BNE
TST8

28
PRSTRK, (R1)+
3$
(R4)+

:IF MINUS AT END, EXIT
:CYLINDER CORRECT?
JNO, NEXT
;UPPER HALF OF WORD

TST8
BR
INC
BR

=(R4)

MOV

1%:

b ed

003154

000403
005237
000405

}452

005721

1456

020227

002234

28 031472
29 031476
30 031502
31 031504
32 031510
33 031514
34 031516
35 031520
36 031522
37 031524

013701
005737
100402
162701
012702
010120
005201
005302
001374
000205

48:

3s:

2s:
003154
003146
000004
000005

(R1)

SURFACE, (R1)
43

JEND?

:CORRECT SURFACT

:SET FOUND

TST
INC

(R1)+
R2

JNEXT WORD
JACCOUNT FOR IT

BNE

MOV

MOV
RTS

FIXCYL: MOV
TST
B8M]
SuB

18
23

R2,-(SP)

33
HDRFND

CMP

000374

012602
000205

TST

CMPB
B8EQ

003156

o
o

P
s

NS
£0O0
o

P=t=1

1442
1444
1450

o
o
»

3711

25 031466
29 031470
2

JSR

;CALL
o ololel-BNololeleleleloleloldelolalels]

PONINININ)
b b b b b od e cnd e d

= OV NO VS W=
NN
= OV NOVSWN

GLOBAL SUBROUTINES SECTION

MOV
MOV
INC

DEC
BNE
RTS

R2,#4252.
(SP)+,R1

(SP)+,R2

:DONE?

:NO, KEEP CHECKING

:RESTORE R2, R1, EXIT

PRSTRK ,R1
OFFSET
13
#6 R’

#5,R?
R1,(RO)+
R1

R2
23
RS

:GET TRACK WHICH IS GOOD
:WHICH WAY WERE WE LOOKING
:IN WORD, BRANCH
:BACK IT UP BY FOUR

:GOING STORE AWAY 5 TRA(CKS
:STORE THEM 1 WD/PER

—

SEQ 0075

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 24
;ROUTINE TO GET SERIAL NUMBER
JSR

RS, SERNUM

SERNUM: MOV

#13,BDA
RS, LDFUNC

sGET STATUS

R5,LDFUNC

;READ HEADER

O NN
8NN
OHrhoNOSO

000013
032404

003204

032404
003172
00007+
000001

w3060

NN
SO

23$:

177700

000100
000001

31604

012701

031632
031634
031640
031646
031652

160001

39 031710

103321

022700

42 031730

000403

45 031732

012737

32$:

177600

33s:

000453

RO,R1
R1.BDA

RS, LDFUNC

sSET UP DIF WORD
;SEEK IN, HEAD 1
s SEEK

032404

RS, LDFUNC

sVERIFY POSITION

003172
000001

#1,T.DRIVE

E.MP,RO

;GET HEADER

003204

003060

42$:

177700
000001

003060

077700

003204

177700

003204
003202
003206

003074

57 032016

33
#177600,R1

#25.8DA

003204
000025
032404

032404

5
56 032014

:CLEAR HEAD

#77600,R1

077700

37 031704

2
RO,477700
2%
Rg.#177700
2
#100,R0
#1,T.DRIVE

003060

077600
031626

;GET THE HEADER
;CLEAR SECTOR BITS

1$:

077700

b cd
b
e
i
o

wvun (W LV IV TV, TV LV AV 19 L)

b e
b

b v

W NN

012737
004537

[oad
o

AN N NN NN W

s CALL
ololelolelelololalelololele]

WW%WWU‘WNNNNNNNNNN&—!—D
O NN = O 0 00 NN VBN NN = OO 00 NN

b ced e

S AN = O 0 00 N ON N S iy =

GLOBAL SUBROUTINES SECTION

000004
000001

003204
003060

077724

003204

438:

2$:

4 23
#77700,R0
438
#177700,RO

1%
#1,T.DRIVE

528

#77700,8DA
97%

52%:
97%:

#1777C0,BDA
#BUF ,BBA

#-256. ,8MP
R5,LDFUNC
ERFLG
98%
#4 ,BDA
21 T.DRIVE
#77724 ,8DA
97%
99s

sREAD

sTEST ERROR FLAG

:YES,COMPARE SERIAL NUMBERS
:NO,SETUP FOR NEXT FACTORY BAD SECTOR

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB=-82 13:32:06 PAGE 24-1

SEQ 0076

GLOBAL SUBROUTINES SECTION

S8 032020
59 032026
60 032030
61 032032
62 032036
63 032042
032044

022737
001344
000446
012701
005737
100005
011137

177724

003204

98%:

003232
003210
003210

65 032050 016137 000002 003212

65 032056
67 032062
68 032064
69 032072
70 032074

021137
001004
026137
001437

003210

000002

032074 013746 003210

032100
032104

913746
011146

628:

38:

003212
48:

003212

73 032142
74 032146

032146

032152
032156
032160
032162
75 032166
032166
76 032170
77 032172

012746
012746
010600
104417
062706
004537
004537

021167
000005

000137

000014
032174
032300
031526

012746

022037

012746
010600
104417
062706

104422
000776
000205

998 :

000001

000004

#177724 ,BDA
97%
998
#BUF ,R1
SERNM1
3s
(R1) , SERNM1

CMP
BNE
CMP
BEQ
PRINTF

(R1), SERNM1
43

sYES, EXIT
5§
M1
SERN2
#FRM3,2(R1), (R1) .SER,NM

MOV
MOV

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

MOV
MOV
MOV
TRAP
ADD
JSR
JSR

,
- (SP)
NFRM3
#5,~(SP)
SP.RO
CSPNTF
#14,SP
RS, UNLOAD
RS.LOAD

MOV

#FRM15,=(SP)

MOV

032106 016146 000002

032112
032116
032122
032126
032126
71 032132
72 032136

CMP
BNE
BR
MOV
ST
BPL
MOV

9998:

5%:

JMP
PRINTF

MOV
MOV
TRAP
ADD
BREAK
TRAP
BR
RTS

2(R15, SERNM2
2(R1) ,SERNM2

;GET NEXT FACTORY BAD SECTOR
sREPORT ERROR

;COMPARE SERIAL NUMBERS

sHAVE WE GOT ONE TO COMPARE

sYES, BRANCH
sNO, CALL THIS ONE IT
s SERNUM OKAY

sNO, PRINT ERROR

;OTHER HALF OKAY

1
, - (SP)
SERNM

2(R15,~(SP)

SERNUM
W#FRM1S

#1,-(SP)
SP.RO
CSPNTF
#4,SP

C$BRK
999%
RS

sLET OPERATOR CHANGE
s PACK
:GO CHECK IT AGAIN.
sMESSAGE

[}

SEQ 0077

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 25

GLOBAL SUBROUTINES SECTION

:ROUTINE UNLOAD

UNLOAD: PRINTF #FRM1,<B, osa+1(na>> CSR(R4)
CSR(RG) ,=(SP)
MOV

SCALL

6 032226

7 032232
8 032236

005046
156416
012746
012746
010600
104417
062706

012701

012700
056400

000010

CLR
BISB
MOV
MOV
MOV
“AP
ADD

000200
000004

MOV
BIS

000005
020772
000003

12 032256
13 032270

14 032272

MOV

000074

9 032242 010074 000000
10 032246 032774 000001
11 032254 001410

000000

2$:

005301
001365

BNE
38:

000205

B8R

RTS

:ROUTINE LOAD

SCALL

22 032300

032300
032304
032306
032312
032316
032322
032324
32326

016446
005046
156416
012746
012746
010600
104417
062706

000000

25 032342
26 032346
27 032352
28 032360
29 032362
30 032374
31 032376

056400
010074
032774
001010

000004
000000
000001

LOAD:

000005
021067
000003
000010

32 032400

005301
001365
000737

34 032402

000205

JSR

000000

;SETUP 60 SECOND TIMER

RO,aCSR(R4)
#DARDY,@CSR(R4)
3s

*PACK UNLOADED

*NO, RETEST DRDY, CONTINUE WAIT

#10.
R1

UNLOAD
RS

:CHECK DRDY FOR ZERO
‘WAIT1 SECOND
*HAS 60 SEC PASSED?

ves REPEAT MESSAGE CONTINUE WAIT
‘RETURN WITH PACK UNLOADED

RS,LOAD

PRINTF #FRM2,<B,DSB+1(R%)>,(SR(R4)

MOV
CLR
BISB
MOV
MOV
MOV
TRAP
ADD

CSR(R4) ,=(SP)
-(SP)
,
(SP)
DSB+1(R4)
- (SP)
NFRM2,
#3,-(SP)
SP.RO
CSPNTF
#10,SP

BIS
MOV
BIT
BNE
WAITMS
DEC
BNE

DSB(R4) ,RO
RO.aCSR(R4)
#DRDY ,aCSR(R4)
3s
#10.
R1
P13

3s:

;AND REMOVE PACK

:PLACE PACK IN DRIVE _ ON CONTROLLER _ AND

MOV
MOV

23 032332 012701 000170
24 032336 012700 000200

MOV
8IT
BEQ

-(SP)
DSB+1(R4), (SP)
#FRM1 ,=(SP)
#3,-(SP)
SP.RO
CSPNTF
#10,SP
#60. ,R1
#200.R0
DSB(R4) RO

WAITMS
DEC

15 032274 000737

}9 032276

RS.UNLOAD
_
:PROMPT - UNLOAD DRIVE _ ON CONTROLLER

S 032174
032174 016446 000000
032200
032202
032206
032212
032216
032220
032222

JSR

RTS

#120. .R1
#200, R0

LOAD

;LOADTMIT

:SETUP 120 SEC TIMER
:SETUP CONTROLLER READY BIT
*SELECT DRIVE

———

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 26

SEQ 0078

GLOBAL SUBROUTINES SECTION

—d ad \ Y b \ S} b and md o cmd ) b b ccd

MOv

003074
000006
000004
000002

000200

003200
000000
003200
000000
000000

18:

005301
001365

016337

000000

003164

016337

000006

003176

000425
016337

000000

003164

39 032654

016337

000006

003176

41 032662
42 032666
43 032670
44 032674
45 032676
46 032700
47 032702
48 032704
49

005737

003164

50 032706
51

003074

000205

2s:

48:

38:

R5,LDFUNC
RO,=(SP)

R3.=~(SP)

sCLEAR ERROR FLAG
;GET CSR
:LOAD MUL T IPURPOSE

MOV
MOV
MOV
MOV

CSR(R4) ,R3
BMP,MP
(R3)
BDA.DA(R3)
BBA BA(R3)

BIS
MOV
BIS
MOV
MOV
BIC
8IT
NE
WAITUS
EC
BNE

DSB(R4),BCS
#25. R
#200.8CS
BCS.CS(R3)
CS(R3) ,BCS
#200,CS(R3)
#200,CS(R3)
p13
#100
1
1$

MoV
MOV
MOV
MOV
MOV
MOV

CS(R3) ,E.CS
BA(R3) .E.BA
DA(R3) JE.CA
MP(R3) E.MP
_E .MP1
MP (R3)
MP(R3) . npz

TRAP

.WORD
"WORD
-WORD
BR

CSERDF
21
CNTTOT
ERRS
(s

MOV
MOV
MOV
MOV
MOV
MOV

CS(R3) E.CS
BA(R3) .E.BA
DA(R3) _E.DA
MP(R3) .E.MP
.E .MP1
MP(R3)
MP(R3) JE.MP2

sREAD ALL REGISTERS

E.CS

sANY ERRORS?

INC

ERFLG

MCV

éSP)*.RO

MOV

003200

104455

JSR

LDFUNC: MOV

2
22 032534
23 032536
26
25 032540

(elelolelelelelalelelelelelad

W
o

wwwwwuu}cwwuuwuw

;CALL

imleololelalolelaleleolelelelealalalele]

= OV

PON) b b ed b ek d md S —d

NO NS NN = OV

NN =

;ROUTINE LDFUNC

BPL

TST

(RSS,8CS

:LOAD DISK ADDRESS

:LOAD BUS ADDRESS
¢GET FUNCTION TO LOAD
;SELECT BITS

;SET WATCHDOG TO 250MS

sLOAD FUNCTION
READY?
ngLR

(WAIT 10 MILLISECONDS
;READ ALL REGISTERS

:YES, GC SERVICE

(RS)+

.SBTTL CONTROL ROUT INE

COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 29
DRIVE
ROUTINE

SEQ 0079

CZRLLCO RLO1/02
CONTROL

b b b b cd emd d cad ond b

O VO NN INN = O V00 NOM NS AN =

1 032706
032706

BGNTST

BGNMOD

HRDWTST

:CONTROL SECTION COMPATIBILITY PROGRAM

*PRINT UNLOAD AND LOAD DRIVE MESSAGES
‘PERFORM SERIAL CHECK ROUTINE
*PERFORM READ/WRITE CHECKS ON DRIVES

012701

COMPAT: MOV

002442

012700 000170
005021
005300

48:

MOV
CLR
DEC

#SECBUF ,R1

:ADJ. CYLINDER BUFFER

ADJ CYLINDER BUFFER COUNT
‘BUFFER CLEARED?

#120..R6
(R1)+
RO

*CLEAR ADJ. CYL. BUFFER AT STARTUP

48
FOWR
RS ,OVWPER

:CLEAR NEXT BUFFER WORD
SET FIRST OVERWRITE FLAG
PERFORH OVERWRITE ON FIRST DRIVE

003062
024606

BNE
INC
JSR

005037
005237
005237

003062
003064
003104

CLR
INC
INC

FOWR
FADJ
ADJDIR

;CLEAR FIRST OVERWRITE
;SET FIRST ADJ. FLAG
UP = 1

003
170000
003
007777

377

.BYTE
"WORD
‘BYTE
"WORD

3,577
170000
3,0
7777

:TRACK AND SECTORS FOR
S INWARD SEEK
*TRACK AND SECTORS FOR
‘OUTWARD SEEK
*UNLOAD PACK FROM DRIVE UNIT

001375
005237
004537

177400

000377

004537

000000

177400

JSR

025330

000

.WORD

RS, ADJCYL

004537

032174

JSR

RS, UNLOAD

004537

024606

JSR

RS .OVWPER

ADD
JSR
JSR

062704 000010
004537 032300
004537 031526
000360
000017
005237
004537

002

000000

003104
025330

002

017

004

360

000000
000000
004
000000
000000

032174
003130

004537
004537
004537

032300
031526
024606

033504

062704 000010
006014
001403
005237
004537

002

003104
075330

000

ADJDIR
RS, ADJCYL

"WORD

108:

‘PERFORM R/W OVERWRITE

:IN 1/0 OUTSIDE

BYTE

2,17

;0UT 170 OUTSIDE

‘BYTE

4.360

;IN 170 INSIDE

"WORD
BYTE
‘WORD
"WORD

000002

UPDATE POINTER FOR NEXT DRIVE
‘LOAD INTO SECOND DRIVE UNIT
:CHECK PACK SERIAL NUMBER

2,560

"WORD

017

004537
023727
001002
000137

360
17
INC
JSR

.BYTE

360

#PAT+2 R4
RS, LOAD
RS SERNUM

JTERMINATOR

JSR
CMP
BNE
JMP

ADD

JSR
JSR
JSR

6014
1403
INC
JSR

.BYTE

0
4.17
O
O

;0UT 170 INSIDE

RS, UNLOAD
uuT . #2
108
28

:UNLOAD PACK FROM DRIVE UNIT
1CHECK FOR > 2 DRIVES
*YES.GO TO NEXT DRIVE
160 70 FIRST DRIVE

RS,LOAD
RS ,SERNUM
RS. OVWPER

‘LOAD PACK FOR ruxno DRIVE
:CHECK SERIAL NUMBERS
*PERFORM R/W OVERWRITE ON THIRD DRIVE

#PAT+2 R4

ADJDIR
RS,ADJCYL

2.0

*UPDATE DRIVE BUFFER FOR THIRD DRIVE

;IN 270 OUTSIDE

CZRLLCO RLO1/02 DRIVE COMPAT MACRO v04.00 16-FEB-82 13:32:06 PAGE 27-1

SEQ 0080

CONTROL ROUTINE

58 033132
59 033134

170000
002

60 033136 007400
004
62 033142 170000
004
63 033144
64 033146 007400
61 033140

65 033150

66 033152

67 033154

100

005

200

005
000000
000000
004537
023727

100

70 033162

000000

71 033164
72 033166
73 033170
74 033172
75 033176

76 033204

000

001

02000

001500

032174
003130

77 033206 062704 000010
78 033212
79 033216

004537
004537

81 033226
82 033230
83 033232
84 033236

001042
0006421
005237
004537

86 033244

000360

032300
031526

80 033222 004537 024606
85 033242

87 033246

002

90 033254

91 033256

JSR
CMP
BEQ

RS ,UNLOAD
ut, 43
is

JSR
JSR

RS,LOAD
RS . SERNUM

1042
421
INC
JSR

ADJDIR
RS,ADJCYL

JSR

.BYTE

"WORD

#PAT+2 ,RG

R5,0VWPER

: TERMINATOR
UNLOAD PACK ON THIRD DRIVE
*CHECK FOR > 3 DRIVES

*NO, GO TO 2ND DRIVE

‘UPDATE DRIVE BUFFER FOR 4TH DRIVE
*LOAD PACK ON 4TH DRIVE
*CHECK PACK ON FOURTH DRIVE

PERFORH R/W OVERWRITE

2.0

:IN 3/0 OUTSIDE

2,0

;0UT 3/0 OUTSIDE

360

4.0

;IN 3/0 INSIDE

004

BYTE

4,0

;0UT 3/0 INSIDE

001

040

1,40

:IN 3/1 OUTSIDE

001

020

1.20

:0UT 3/1 OUTSIDE

005

040

5.40

:IN 3/1 INSIDE

005

020

.BYTE

5.20

;0UT 3/1 INSIDE

001

000

.BYTE

1,0

;IN 3/2 OUTSIDE

98 033274

000000

100 033300

000000

102 033304
104 033310
105 033312
106 033314
107 033316
108 033320
109 033322
110 033324
111 033330
112 033334
113 033340
114 033344

100000
001
040000
005
100000
005
040000
000000
004537
162704
004537
004537
004537

103 073306

;0UT 2/1 INSIDE

BYTE

000000

101 033302

5,100
0
0

000

96 033270

99 033276

;IN 2/1 INSIDE

004

000360
000000

97 033272

5,200

"WORD

.BYTE

94 033264

95 033266

00C

:0UT 2/1 OUTSIDE

ADD

;0UT 270 INSIDE

1,100

"WORD

.BYTE
WORD
WORD

;IN 270 INSIDE
:IN 2/1 OUTSIDE

‘BYTE

;0UT 2/0 OUTSIDE

1,200

"WORD

"BYTE

000003

7400
4,0
170000
4,0
7400

000

92 033260 000017

93 033262

003104
025330

"BYTE

170000
2,0

002

88 033250 000017

89 033252

"WORD
BYTE
"WORD
‘BYTE
"WORD

000
200

68 033156

69 033100

000

001

000000

.MORD
.BYTE

000
006
000

032174
000010
032300
031526
024606

"WORD
"WORD

WORD
BYTE

360

"WORD

"worRD
BYTE
-word
.BYTE
-WwoRD
BYTE
"WwordD
WORD
JSR
su8
JSR
JSR
JSR

100000
1,9
40000
5.0
100000
5.0
40000
0
RS ,UNLOAD
#PAT+2 R4
RS, LNAD
RS. SERNUM
RS. OVWPER

BYTE

;0UT 3/2 OUTSIDE
;IN 372 INSIDE
:0UT 3/2 INSIDE
:TERMINATOR

*UNLOAD PACK FROM &TH DRIVE
*SET DRIVE BUFFER FOR 3RD DRIVE
*LOAD PACK ON 3RD DRIVE
*CHECK FOR PACK SERIAL NUMBER
*PERFORM R/W OVERWRITE ON 3RD DRIVE

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 27-2

SEQ (081

CONTROL ROUTINE

115 033350
116 033352
117 033354

118 033360
119 033362
120 033364
121 033366
122 033370
123 033372
124 033374
125 033376
126 033400

127 033402
128 033406

129 033412
130 033416
131 033422

132 033426
133 033430

020000
010000
004537

001
000200
001
000100
005
000200
005
000100
000000

004537
162704

004537
004537
004537

004040
002020

20000
10000
JSR

025330

.BYTE
"WworRD
BYTE
-WworRD
"BYTE
"worD
BYTE
"WworRD

000
000
000
000

032174
000010

032300
031526
024606

WORD

18:

151 033476

020000
001
010000
005
020000
005
010000
001
000040
001
000020
005
0060040
005
000020
000000

152 033500 004537
153 033504 162704
154 033510 004537

JSR
BYTE

155 033514
156 033520

004537
004537

160 033534

001

157 033524
158 033526
159 033530

001042
000421
004537

161 033536

000000

163 033542

000000

165 033546

000000

167 033552

000000

162 033540

164 033544

166 033550

168 033554

000
000
000

031526
024606
025330

010

WORD

28:

1.0
200
1,0
100
5,0
200
5,0
100

;IN 2/3 OUTSIDE

RS, UNLOAD
#PAT+2 Rl

*UNLOAD PACK FROM 3RD DRIVE
*SET DRIVE BUFFER FOR 2ND URIVE

*LOAD PACK ON THIRD DRIVE
1CHECK PACK SERIAL NUMBER
*PERFORM R/W OVERWRITE ON 2ND DRIVE

RS, ADJCYL
1.0 °

:IN 172 OUTSIDE

20000
1,0
10000
5.0
20000
5,0
10000
1,0
40
1,0
20
5.0
&0
5,0
20

5,10

:IN 0/1 INSIDE

5.4

:0UT 0/1 INSIDE

1,0

;IN 0/2 OUTSIDE

-WorRD
.WorRD

400
1,0
2000

001

000

BYTE

000

BYTE

*UNLOAD PACK FROM 2ND DRIVE
*SET DRIVE BUFFER FOR 1ST DRIVE
*LOAD PACK INTO FIRST DRIVE UNIT

;0UT 0/1 OUTSIDE

"WORD

BYTE

;0UT 1/3 INSIDE

1.4

004

;IN 1/3 INSIDE

:IN 071 OUTSIDE

"WORD

005

:0UT 1/3 OUTSIDE

1,10

BYTE

;IN 1/3 OUTSIDE

:CMECK SERIAL NUMBER
*PERFORM R/W OVERWRITE

WORD

010

;0UT 1/2 INSIDE

RS SERNUM
RS.OVWPER

005

SIN 1/2 INSIDE

: TERMINATOR

"WORD

AYTE

:0UT 1/2 OUTSIDE

RS,ADJCYL

004

;0UT 2/3 INSIDE

RS, LOAD
RS . SERNUM
RS . OVWPER

1042
421
JSR

.BYTE

:IN 2/3 INSIDE
: TERMINATOR

RS .UNLOAD
#PAT+2 R4
RS,LOAD

JSR
JSR

;0UT 2/3 OUTSIDE

JSR
SUB
JSR

001

169 033556 004000
001
171 033562 002000

170 033560

"WORD
‘BYTE
"WworRD
BYTE
-WworRD
BYTE
"WworRD
BYTE
"WORD
.BYTE
WoRD
BYTE
"WORD
.BYTE
worD

000

032174
000010
032300

JSR
JSR
JSR

4040
2020

134 033432 004537 025330
000
001
135 033436
136 033440
137 033442
128 033444
139 033446
140 033450
141 033452
142 033454
143 033456
144 033460
145 033462
146 033464
147 033466
148 033470
149 033472
150 033474

JSR
SUB

RS ,ADJCYL

;0UT 0/2 OUTSIDE

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 25-3

SEQ 0082~|

CONTROL ROUTINE

172 033564

005

173 033566 004000
005
175 033572 002000
001
176 033574
177 033576 000010

174 033570

178 033600

179 033602

180 033604

183 033612

184 033614
185 033616
186 033622
033622

000
000

005

000

005

000

181 033606 000010

182 033610

000

001

000004
000004

.BYTE

000

000000
004537

032174

012746

022412

‘WworRD
BYTE
‘worD
BYTE
WorRD

4000
5,0
2000
1,0
10

"WORD

:IN 0/3 INSIDE

5.0

;0UT 0/3 INSIDE

WORD
JSR
PRINTF
MOV

O
RS, UNLOAD
#ENDPAS
#ENDPAS , = (SP)

: TERMINATOR
SUNLOAD PACK
‘END OF PASS

SP.R0
CSPNTF
#4,SP

‘WworRD
BYTE

"WORD

MOV

#1,-(SP}

000004

MOV
TRAP
ADD

}gg 033642

000137

024266

JMP

CMPENA

TRAP

CSETST

033646
}gg 033650
194 033650
195 033650

19 033650

197 033652

033652
033654
033656
108 033660

199 033662

033662
033664
033656
200 033670

201 033672

033672
033674
033676
033700
202 033702

203 033704
033704

033706
204 033710

104401

ENDTST
L10014:

ENDMOD

BGNMOD

000025
000031
033724
160000
177776
001031
033762
000000
000776
004032
033771
003400
000000
000007

003130
033740
000001

:IN 0/3 OUTSIDE

5,0

.BYTE

010600
104417
062706

190

;0UT 0/2 INSIDE

:0UT 0/3 OUTSIDE

033632
033636
187 033636

191 033646
033646

;IN 0/2 INSIDE

1.0

BYTE

033626 012746 00001

5.0

;RETURN TO SUPERVISOR

HRDPRM
BGNHRD

.WORD L10015-LSHARD/2

GPRMA

CSRMSG,CSR,0,160000,177776,YES

GPRMA

VECMSG,VECT,0,0,776,YES

GPRMD

DRMSG,DRBT,0.03400,0.7,YES

.WORD
"WORD
"WORD
"WORD

.WORD
"WORD
"WORD
"WORD
.WORD
"WORD
WTMRD
“We’D
WORD

GPRML
.WORD

"WORD
JWORD

TS$CODE
CSRMSG
TSLOLIM
TSHILIM

TSCODE
VECMSG
TSLOLIM
TSHILIM
TSCODE
DRMSG

03400
TSLOLIM
TSHILIM

DRTYPE,TYPDR,1,YES
T$CODE
DRTYPE
1

CZRLLCO RLO1/02 ORIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 27-4

CONTROL ROUTINE

205 033712

033712
033714
033716
033720
206 033722

GPRMD

.WORD
.WORD
WORD
.WORD
WORD

00%032
033777
000340
000000
000007
L10015:

208 033724

125

104

122

DORTYPE: .ASCIZ

/DRIVE TYPE = RLO1/

103

VECMSG: .ASCIZ

/VECTOR/

111

DRMSG:

.ASCIZ

/DRIVE/

040

BRMSG:

.ASCIZ

/BR LEVEL/

040
120
075
114
000

124

117

122

126

000

033774

126

034002
034005

111

105
131
040
122
061

033270

213 033777

/BUS ADDRESS/

126
124
105
040
060

033765

212 033771

CSRMSG: .ASCIZ

104
105
000

033743
033746
033751
033754
033757

105

104

122

102

122

114
105

105

105
114

000

126
000

215

.EVEN

S}g 034010

ENDMOD

219 034010

LASTAD

216

034010
034012
220

221

034014

000000
000000
000001

.EVEN

123

101
122
123

040
104
123

211 033762

214

102

033727
033732
033735

210 033740

TSCODE
BRMSG
340
TSLOLIM
TSHILIM

ENDHRD

207 033724

209 033724

BRMSG,PRIOR,0,340,0,7,YES

LSLAST::
.END

.EVEN

JWORD
WORD

0
0

SEQ 0083

C.RLLCO RLO1/J2 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 29-5

SEQ 0084

SYMBOL TABLE

ADJCYL 025330
ADJDIR 003104
ADJFLG 003102
ADJLC2 003220
ADJLCS 003222
ADJLCGL 003224
ADJLOC 003100
ADJTRK 003214
ADJTXT 020210
ADJWT 003216
ADR = 000020 G
010
ASSEMB=
AUTOCO 026312
=
BA
B8A16 = 000020
BA17 = 000040
003202
BBA
003200
BCS
0032
BDA
BDATA 003140
BITO = 00000% G
BIT00 = 000001 G
BITO1 = 000002 G
BIT02 = 000004 G
BIT03 = 000010 G
BIT04 = 000020 G
BITOS = 000040 G
BIT06 = 000100 G
BITO? = 000200 G
BITO8 = 000400 G

BIT09 = 001000 G
BIT1 = 000002 G
B8IT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
8IT15 = 100000 G
BIT2 = 000004 G
BIT3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
8178 = 000400 G
BIT9 = 001000 6
003206
BMP
= 000400 G
BOE
BRMSG 033777
BSEXIT 030540
030356
BSVWR
003232
BUF
030566
CHECK
CLNCOD 024316 G
CMPENA 024266
CNTTOT 017346
COMPAT 032706

CRDY = 000200
CRSET = 000002
= 000000
¢S
CSR = 000000
CSRMSG 033724
003122
cyL
CSAU_ = 000052
CSAUTO= 000061
C$8RK = 000022
C$8SEG= 000004
cs8suB= 000002
CSCEFG= 000045
CSCLCK= 000062
CSCLEA= 000012
C$CLOS= 000032
CSCLP1= 000006
C$CVEC= 000036
CSDCLN= 000044
£$D0DU= 000051
CSDRPT= 000024
C$OU = 000053
CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010
CSESEG= 000005
CSESUB= 000003

CSETST= 000001
CSEXIT= 000032
CSGETB= 000026
CSGETW= 000027
CSGMAN= 000043
CS$GPHR= 000042
C$GPLO= 000030
CSGPRI= 000040
CSINIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015
€$Q10 = 000377
CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041

C$SVEC= 000037
CSTPRI= 000013
= 000004
DA
DCKER 017455
DCRC = 004000
DERR = 040000
DIAGMC= 000000
003116
DIRC
DLT = 010000
DRBT = 000010
017240
DRBUF
DRDY = 000001
DRMSG 033771
DRPCOD 024322 G
DRST = 000013
DRSTAT 003106
DRTYPE 033740
DSB8 = 000004
DSPCOD 022462 G
EF .CON= 000036 G
EF .NEW= 000035 G
EF.PWR= 000034 G
EF.RES= 000037 G
EF.STA= 000040 G
023020
END
ENDBUF 017300
ENDPAS 022412
ERFLG 003074
= 100000
ERR
ERRFND 017743

020240 G
ERR1
020276 G
ERR2
020336 6
ERR3
020464 G
ERR4
020644 G
ERRS
020704 G
ERR6
= 000004 G
EVL_
024310
EXIT
ESEND = 002100
ESLOAD= 000035
003166
E.BA
003164
E.CS
003170
E.DA
003172
E.MP
003174
E.MP1
003176
E.MP2
003064
FADJ
017473
FEW
FIXCYL 031472
FNDBSC 031402
FNDDRV 027140
FNDTRK 031230
003126
FORSK
003062
FOWR
020772
FRM1
021545
FRM10
C21611
FRM11

FRM12 021646
FRM13 021725
FRM14 022010
FRM1S 022037
FRM16 022076
FRM17 022163
FRM18 022217
FRM19 022303
021067
FRM2
FRM20 022341
021167
RM3
021246
FRM4
021307
FRMS
021356
FRM6
021377
FRM?
021437
FRM8
021503
FRM9
FRTTRK 003152
FUNERR 020047
020116
FWD
FSAU_ = 000015
FSAUTO= $00020
FSBGN = 000040
FSCLEA= 000007
FS$DU = 000016
FSEND = 000041
FSHARD= 000004
FSHW = 000013
FSINIT= 000006
FSJMP = 000050
F$MOD = 000000
F$MSG = 000011
FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG_= 000003
F$SOFT= 000005

FSSRY = 000010
F$SUB = 000002
F$SW = 000014
FSTEST= 000001
003136
GDATA
GLBDAT 002234 G
GLBEQA 002234 G
GLBERR 020240 G
GLBSUB 024326 6
GLBTXT 017302 6
GSBIT = 000003
GSTAT = 000004
GSCNTO= 000200
GSDELM= 000372
GSDISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO_ = 000000
GSOFFS= 000400

GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 00000C
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HCRC = 004000
HDRFND 002234
HEAD = 000100
HEADO1 003114
= 010000
HNF
= 100000 G
HOE
HPTCOD 022446 G
HRDPRM 033650 G
HRDWTS 032706 G
HSFLG 003110
= 010000 G
IBE
IDU = 000040 G
IER = 020000 G
INAWR 030454
INITCO 022466 6
INITWR 017373
02356
INN10
002370
INN11
INN20 002360

002372
INN21
002362
INN30
002374
INN31
INNGO 002364
002376
INNG1
INNS0 002366
002400
INN51
INTEN = 000100
= 000100 6
ISR
= 004000 G
IXE
ISAU_ = 000041
I$AUTO= 000041
ISCLN = 000041
I1$OU = 000041
ISHRD = 000041
ISINIT= 000041
ISMOD = 000041
I$MSG_= 000041
ISPROT= 000040
ISPTAB= 000041
$PWR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
I$SRV = 000041
1$SUB = 000041
ISTST = 000041

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE 27-6

SEQ 0085

SYMBOL TABLE

LSSPC
LSSPCP
LSSPTP
LSSTA
LSTEST
LSTIML
LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005
L10007
L10010
L10011
L1001
L10013
L10014
L10015
MANY
MDHEDR
MERGE
MIDI0
MID11

JSJMP = 000167
LDFUNC 032404
032300
LOAD
= 040000 G
LOE
LOT = 000010 G
LSTCLR 003070
LSTDRV 003134
LSTTRK 003150
LSACP 002110 G
LSAPT 002036 G
LSAUT 002070 G
LSAUTO 024312 G
LSCCP 002106 G
LSCLEA 024316 G
002032 G
L$CO
LSDEPO 002011 G
LSDESC 002122 G
LSDESP 002076 G
LSDEVP 002060 G
LSOISP 022464 G
LSOLY 002116 G
LSOTP 002040 G
LSDTYP 002034 G
024322 G
L$OU
002072 G
LSOUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXP1

002222 G
002052 6
002044 G
002102 G
002046 G

LSMREV
LSNAME
LSPRIO
LSPROT
LSPRT
LSREPP

002050 G
002000 G
00204" G
02244L G
002112 G
002062 G

LSEXP4
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP_
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN

LSREV

MID20
MIDZ1
MID30
MID31
MID4O

002310
002322
002312
002324
002314

002326
MID41
MIDS0 002316
002320
MID51
= 000001
MK
= 000006
MP
NCHECK 030552
01757
NONE
NXM = 020000
017234
OBUFF
OFFSET 003146
= 002000
0PR001 017302
0PR002 017321

002064 G
002066 G
033652 G
002120 G
002016 G
002022 G
022450 G
002104 G
022466 G
002026 G
034014 G
002100 G
002074 G

0Qu10
0QuUl1l
00U20
0aU21
00U30
o0Qu31

002010 G

034014
000000
ERRORS DETECTED:

002056 G
002020 G
002024 G
002030 G
002114 G
002014 G
002012 6
020274
020334
020462
020642
020702
020770
022462
024310
026314
024320
024324
033646
033724
017532
002000 G
031002
0023
002320

. ABS.

02262
002274
002264
002279
0022¢%
00230¢C

000
001

VIRTUAL MEMORY USED:

28672 WORDS é5;12 PAGES)

P
DYNAMIC MEMORY AVAILABLE FOR 71
+A:CIRLLC/C=SVC33.SRC/P:1,A
CZRLLC

)

0QU40 002270
002302
0QU41
00U50 002272
002304
0QUS1
OSECT 003112
ouT10 002236
002250
ouT11
0UT20 002240
00225?
0uT21
oUT30 002242
002254
0UT31
0UT40 002244
002256
0UT41
0UT50 002246
002260
oUTS1
017642
OVMES
OVWER 020003
OVWPER 024606
OVWTRK 003022
0$APTS= 000000
0SAU = 000000
0$BGNR= 000000
0$8GNS= 000000
0ospu = 000000
O$ERRT= 000000

020126
REV
REVSK 003124
RSADJS 026732
SECBUF 002442
SECLST 002402
003132
SECT
SECWRD 003144
SEEK = 000006
SERNM1 003210
SERNM2 003212
SERNUM 031526
SETLST 027100
SETUP 023072
SIGN = 000004
026254
SKCYL
020077
SKER
SkHS = 000020
003076
SIFLG
003230
STSEC_
STSECT 003226
003120
SURF
SURFAC 003156
svcGaL= 000000
SVCINS= 000000
svcsus= 177777

PNT = 001000 G
= 002000 G
PRI
PRIOR = 000004
PRI00 = 000000 G
PRI01 = 000040 G
PRI02 = 000100 G
PRIO3 = 000140 G
PRI04 = 000200 G
PRIOS = 000240 G
PRI06 = 000300 G
PRI07 = 000340 6
PRSTRK 003154
RDHDR = 000010
READ = 000014

TIME
TQU10
TQU11
TQU20
TQU21
TQU30
TQU31
TQU4O
TQU41
TQUSO
TQUSY1
TRKCNT
TRKEND

0SGNSW= 000000
0$POIN= 000001
0$SETU= 000000
PAT = 000006
PATLST 003046

020163
READ1
REASON 003072
RECER 020023
017675
RECMS
REGDMP 026522

SVCTAG= 000000
SVCTST= 177777
SSLSYM= 010000
003056
TEM
003066
TEMP

024326
002332
002344
002334
002346
002336
002350
002340
002352
002342
002354
003162
003160

TYPDR = 000006
TSARGC= 000001
TSCODE= 002032
TSERRN= 000322
TSEXCP= 000000
TSGMAN= 000000

TSHILI= 000007
TSLAST= 000001
T$LOLI= 000000
TSLSYM= 010000
TSLTNO= 000001
TSNEST= 177
T$SNSO = 000000
TSNS1 = 000004
T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000000
TSTAGL= 177777
TSTAGN= 010016
TSTEMP= 000000
TSTEST= 000001
TSTSTM= 177777
T$7STS= 000001
T$SAUT= 010011
T$SCLE= 010012
T$$DU = 010013
T$$SHAR= 010015
T$SHW = 010007
T$SINI= 010010
T$$MSG= 010005

T$$PRO= 010006
TSSTES= 010014
T.DRIV 003060
032706 G
T
UMM = 000200 G
UNLOAD 032174
003130
wT
VAJWR 030112
= 000002
VEC
VECMSG 033762
VECT = 000002
VEROD 027564
VEROW 027200
WCOUNT 003142
WRITE = 000012
020136
WRIT1
025070
WRSEC
XDELAY 017232
0264452
XTIME
X$SALWA= 000000
XSFALS= 000040
X$OFFS= 000400
X$TRUE= 000020
YDELAY 017234

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE S-1

SEQ 0086

]

-— o

[}

-4

L2l

-— O

[}

4 &~

d
- O 2] OL
[}

-«

21-18+
1-78

[ pN

—WON

oLad[-] o[a¥]
rd

-«

['}

- ~
)

M ~
)

-«

-] [

N®

1-77

Pb A
-

5 &

1-76

1=77

LN.a) o

1-76

21-20+

g L
20
[

o
~
o
N
o
[
)
N
«
v
i
\
o
M
L0]

La)

-&«

[N&

[
ol

O3- w

WOO=

CROSS REFERENCE TABLE (CREF V 04 .00)

e~ 3

J_7

SEQ 0087

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE S-2
CROSS REFERENCE TABLE (CRCF v04.00 )

(SBSEG
CSBSUB
CSCEFG
CSCLCK
CSCLEA
CSCLOS
CSCLP1
CSCVEC
CSOCLN
CSDODU
CSORPT
CSOU
CSEDIT

1-22#4
1-224
1-22#
1-224
1-22#
1-22#
1-22#4
1-22#
1-22#4
1-22#
1-22#
1-224
1-22#

CSERHR

1-22#

CSERDF

16-39

1-22#
1-22#

6-12
10-45

6-18
18-41

6-311

1-22#
1-224
1-22#
1-224

2/-191

1-22#4
1-22#4
1-22#
1-22#
1-22#
1-22#
1=224

6-27

6-56

6-92

CSESCA
(SESEG
CSESUB

1-22#
1-22#
1-22#

CSGMAN

CSGPHR
CSGPLC
CSGPRI
CSINIT
CSINLP
CSMANI
CSMEM

CSMSG

CSOPEN

CSPNTB

CSPNTF
CSPNTS
CSPNTX
csQlo
CSRDBU
CSREFG
CSRESE
CSREVI
CSRFLA
CSRPT
CSSEFG
CSSPRI
CSSVEC
CSTPRI

CHECK

CLNCOD

CMPENA

7-22
1-29

12=-57

20-42
1-22#4

CSETST
CSEXIT
CSGETB
CSGETW

6-318
6-314

12-54

1-22#

CSERRO

CSERSF
CSERSO

7-16

1-22#

6-115

6-47

6-130

6=41

6-144

17-35
6-159

26-31
6-182

6-205

6-229

6-252

6=276

6-299

10-48

18-44

20-40

6-321

1=224

4-43

4-48

4-57

4-67

4-72

4-78

1-22#4

4-41

4=46

4-51

4-53

4=55

4-61

4-63

4-64

4=65

4=70

4=75

4~77

13-4

6-45

6-54

6-71

6-91

16-46

16-53

17-44

17-50

21-35

24-70

26-74

25-5

25-22

8-15
6-69
1-22#
1-29

8-31

6-59

6-312»

27-188

1-22#4

13-6

1-22#

27-186
1-22#4
1-22#
1-224

1-22#
1-224
1-22#
1=22#
1-22#4
1-22#
1-22#
1-22#4
1-22#4
1-22#4
19-24
7-114

6-13

13-17

6-7

19-38

20-64

6-19

6-50

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE S-3

SEQ 0088

CROSS REFERENCE TABLE (CREF v04.00 )

CNTTOT
COMPAT
CRDY
CRSET
¢S
CSR

4-134
27~94
1-674

1=-70#

26=31

13-13»

CSRMSG

cvL

DA
DCKER
DCRC
DERR
DIAGMC
DIRC
OLT
DRBT
DRBUF
DRDY
DRMSG
DRPCOD
DRST

26-29+
26-30+

4-70

6-28+
27-197

13-9

9-26+
12-44
26-36

9-38+
19-23+

9-40+
19-25+

9=42*
19=-37+

944+
19-40%

11-33¢
20-9

11-42+

4-61

4-70

4=75

6-52

13-12

24-32

26~28+

26=37+

11-95»

26=-26%
13-7
26=27+%
12-20+
26=38+«
26-39+

6-65#

27-186
10-41

ERR4

ERRFND
EVL
EXIT
FSAU

27-197

4-61

6-69

ERR2
ERR3

ERRS
ERR6

26-8

3-75
17-26

E.BA
E.CS
E.DA

END
ENDBUF
ENDPAS
ERFLG
ERR
ERK

25=27

13-17

DSPCOD
ESEND
ESLOAD

EF .RES
EF.STA

26-34

27-201

DRTYPE
0S8

EF.CON
EF .NEW
EF .PWR

26-25
4=51
25-26*

11-45«

DRSTAT

E.MP1
E.MP2

26-17
3-75
25-9+

12-

6-115

6-320#

12-10

12-34

12-39

18-37

20-34

21-25

24-50

26=7+

26-43+

6-130
10-48

6-144
18-41

18-44

6-159

6-182
20-42

6-205

6-229

6-252

6-276

6-299

6-144

6-159

6-182

6-205

6-229

6-252

6-276

6-299

17-35
26-31

6-130

6-32+

CZRLLCC RLO1/02 DRIVE COMPAT HAC88 YO‘.OO 16-FEB-82 13:32:06 PAGE S-4

SEQ 0089

CROSS REFERENCE TABLE (CREF Vv 0¢

4-115
26-50

FEW
FIXCYL

FNDBSC

FNDDRV
FNDTRK

4-164

6-119
22-13
15-244
6-105

23-44
16-36
6-121
6-290
9-12+
6-68+

6-148
17-24

6-135
22-14
9-29
16-28

4~48

4-50

4=57

4-59

4~67

4-69

4-72

6-163

¢-186

6-209

6-233

6-256

6-280

6-303

23-28#

6-150

6-165

6-174

6-187

6-196

6-211

6-220

6-234

17-13

27-142

27-18«

4-70

4=75

4=914

1-22
4-48
7=7

1-22
4~43
7-2
27=2

27-19N1

5-22
27-192

5-25
27-194

4=74

4-78

6-243

6-258

["aY —

6-267

CZRLLCO RLO1/02 DRIVE COMPAT MACRQ V04.00 16-FEB-82 13:32:06 PAGE § =5

SEQ 0090

CROSS REFERENCE TABLE (CREF v04.00 )

MNP

N TPN

OB NNe—O

2%N 20[l
<+s’ a

......-............................-.-...-........-....

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE S-6

SEQ 0091

(ROSS REFERENCE TABLE (CREF V04.00 )
ISPWR
ISRPT
I$SEG
ISSETU
ISSRV

INAWR
INITCO
INITWR

INN10
INN11
INN20
INN21
INN30

27-2

272
27=2

19-21

6-3#
=144
2

27=24

27-191

27=1914

27-1914

8-17

8-21+

8-22

8-27+

19-274

16-30
6-147
6-162

1-344

27-195

27-1954

5-14

S-14#

8-33+

8-34

8-38

8_8

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE §-7

SEQ 0092

CROSS REFERENCE TABLE (CREF V064.00 )

L$ICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT

1-29#
1-29
1-294
1-29
1-29#
1=-294
1-29#
1-20#
1-29#
1-29

LSREPP
LSREV
LSSPC
LSSPCP
LSSPTP
LSSTA
LSTEST
LSTIML

1-29#
1-294
1-294
1-29#
1-29#
1-294
1-29%
1-294

L10000
L10001

4434
4-48#

L10005S
L10007
L10010
L10011

&4-7
5-14
6~
7-7#4

LSUNIT

1-29#

6=5#

27-2194

S=4H

6-9

6-15

6-21

6-38

6-65

6-313

12-31

12-37

16-22

17-29

18-35

20-32

21-23

24=6

27-50

27-78

27-112

27-129

27-154

26~-37

26-38

26-39

5-204

6-96

24-72

25-224

25-32

27-29

LSTDRV ~ 3-25#

4=64

4-64

5§-3;*

16=-37*

17-25*

LOAD

16-38+*

17-26«

26=29

26-30

M1D30
MID31

2-334
2-384

1-47#

2-78
2-83

12-26

1316

26-9¢

26-28

24-8

2428

24-30

24-48

CZRLLCO RLO1/72 DRIVE COMPATM MACRO V04.00 16-FEB-82 13:32:06 PAGE S-8

SEQ 0093

CROSS REFERENCE TABLE (CREF V04.00 )

NCHECK

19-444¥

NXM

1-614

OSAPTS
0SAU
OSBGNR
O$BGNS
0osbU
OSERRT
OSGNSW
OSPOIN
OS$SETU

OBUFF

OFFSET

1-224
1-224
1-22#
1-22#
1=224
1-22#
1-22#
1-22#
1-22#

3-59#

3-304

0Qué1

2=24

oQus1

2-304

0QuU50

1-29
1-29
1-29
1-29
1-29
1-29
1-29
1-26#
1-29

1-29
27-219

22-1+

22-30

23-29

6-56

6=57

6-993

6-118

6-305

11-4

1=264
1-26#
1-264
1-264
1-264
1=264
1-26#
1-26
1-264

6=47

6-48

6-92

6-93

2=25#

ouT10

2=-11#4

ouT50
oUT51
OVMES

2=15#4
2=20#
4=-194

OVWPER

9-7#4

27-15

27-31

27-52

27-80

27-116

27-131

27-156

1-544

3-75

6-33

6-63

10-13

27-205

OVWER

OVWTRK

PAT

PATLST
PNT
PRI
PR100
PRIO1
PRI02
PRIO3
PRI04

PRI105
PRIO6

PRIO7

PRIOR

4=22¢

2=764

27-128
2-87#
1-424
1=424
1=424
1=424
1=424
1=424
1=424

16-34
16-39

9-15

27-153

1=424
1=424

1=424

1-87#

6=-30+

16-14

1727

27-28

27-49

27-77

27-1

CO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE S-9
CZnL!

SEQ 0094

CROSS REFERENCE TABLE (CREF V 04 .00)

4=76

13-44

4-784
6-3214

4=674

6-92

9-45

11-40

S=-20#
7=74

6-47

7-164

6-47
7=224

6-47
27=-1914

6=47A
27-207#

6-56

16-58¢

16-59

16-61+

17-12+

17-19

17-23

17=52+

20-7

18-18

19-13

19-42+

17-38+

17-44

17=47+

17-48

2779

27-113

27-130

27-155

11-44

11-90

11-94

12-64

19-47

11-64

11-100

11-38+

12-27

11-32«

-28
=29
-29
=29
-29
=29
=29
=29
=29
4

12-48

CZRLLCO RLO1/702 DRIVE COMPAT HACS% ¥04.00 16-FEB~82 13:32:06 PAGE S-10
CROSS REFERENCE TABLE (CREF V 04

Iilfl‘lfiIQ44[444‘4“Ifl666666666666666888888023336667788014‘5567

14“‘4‘44“‘4‘466666666666666678888802333666777801445567

ONWTN2ION

SEQ 0095

CZRLLCO RLO1/702 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE $-11

SEQ 0096

CROSS REFERENCE TABLE (CREF v04.00 )

27-201
27-219

7-22

TSHILI

27-197
1-224
27-197
1-22
27-207
27-219#4
1-224

TSGMAN

TELAST
TSLOLI
TSLSYM

TSLINO

TSNEST

1-224

1-914
4~334
4-48
4=67
4-78

=744

4=72

=694

4-78

6-12
6-205
10-48
20-40
271978

27-1974
27-2194
27-1974
1-224

-0No—y oVglI] —Nre—CON
27-205

6-124
6-2054
10-48#
20-404
27-199

22-%35#

27-205#

6-229

27-2054
6-115

—Ne—r—r—-0NON

12-54

20-42
27-1994

27-201

27-199

27-19%#¢

27-201

27-2014

27-205

27-2054

27-199

27-199#4
4-648

27- 201
4~57

27-2014
4-67

27-205

27-2054
4-78

4-43

-O0 —Nre=0ONONE

4-72

5-20

6-321

7-7

~ Lo *ood

27-205

27-197

4~67

4=594

4-57

=504

27191

[
]

TSEXCP

4-48

NN N—e e—CIrNe

|&]

4=45H

NO —NNe—0NONON

TSSTES

27-207
5-20

®R R

T$SINI
TSSMSG
T$SPRO

5-14
6-54
4=-394
S=4N
27-24

27-1954
S-144
6-321

27-201
27-205
27-219

7-16

7-22

27-191

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE $-12

SEQ 0097

4=394

4-57
7-16

4=504
7=124

4=374

7=-19#

4-115
7-23

S=4A
8-3#

=594
7=204

4-67
7-22

L=-64
27=24

4-72
27-191

27-1954

—WOWOANORNO

4=744

4-78

27-207

5-22
27-192

5=144

5-20

alay

N
U
K
U
D
1
8
0
0
0
*®
b
3
"goualaldVYa
R
M
W
O
N
I
M
O
N
O
X%

1-22#
4~70

4-41

9-36

11-83

21-16

21-28

22-3

22-22

24-12

24-19

12-46+

18-13#

1816+

20-10+

20-12+

6-179

6-193

6-202

6-217

6-226

[aV1o¥]

V][a¥]
o

|N,

V[V
] [a

'¥

V[a¥]a
] g VT

¥}[aVIaV

o¥] V]V (g

[VVIaN]

aVIaNToV]V] [

V][aV]a¥]

TSTSTM

Xa3d

TSTEST

-—

~_gB

—ROIN

4-33
7-17

QY O

R NO—\

27-217
4-43
6-321

5-10
26-50

4=24
7-114

27-1944

1-30
5-29

26-50
27-192
27-217

AONNOONORNDORNND

TSNSO

MNe=ANONINOO

[g¥IaN)

8-34
27-1914
27-207#

alalalpuda¥)1 ala [

ONO OoNAN

CROSS REFERENCE TABLE (CREF v04.00 )

2433

24-40

24-53

6-240

6-249

6-264

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE $-13

SEQ 0098

8-35+

8-39x

25-12¢

25-29+

U —h ["al’a)

tJd

NO0L-]

A-L[o5Yl]

LU NO

o
-—y

CROSS REFERENCE TABLE (CREF V04.00 )

~ -— L7al
)

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16~FEB~82 13:32:06 PAGE M-1

SEQ 0099

CROSS REFERENCE TABLE (CREF V 04 00 )

BCOMPL
BGNAUT

8-16

BGNHRD

27-195
5-14
6-5
1-28
4-39
5-4
27-2

BGNCLN
BGNDY

PGNPRO

BONTST

ENDDU

ENDHRD

ENDPRO

1-30
4-43
5-10

27-191

LASTAD

6-115
6-12
10-45
6=47
6-27
27-197
27-201
6-47
1-29
27-219

MSBYTE
MSCNTO

M$COUN

24
4-50

27-207
5-20
6-321

END /ST

EQUALS
ERRDF
ERRHRD
ERRSF
ERRSOF
GMANIL
GPHARD
GPRMA
GPRMD
GPRML
HEADER

1-40
4=45

1-42
12-54

1=2%

6-47
27-205
4-41
4-55

1-29
6-474
27-2054
4-41
4-55

1=29
6-56

7-1

7-19

8-3

27-1

27-194

5-29

6-322

7-8

7-17

7-23

26-50

27-192

27-217

6~229

6-2° 2

6-276

6-299

10-48

18-44

20-40

20-42

27-1978

27-199

27-1994

27-201

27-2014

27-203

27-2034

6=564

6-92

6-Go4

27-2u3

1-294
6-564

6-92

6=924

27-197

1-29

324

1-29#
1-30#

1-91

1-91#

3-81

3-81#

4-33

4-334

4~43

4-430

4-48

(=484

4-57

4=57#

CZRLLCO RLO1/02 DRIVE COMPAT HACS% ¥04.00 16- FEB=-82 13:32:06 PAGE M-2

SEQ@ 0100

CROSS REFERENCE TABLE (CREF V 04

5=-104
-84

27-1924
271994
4=674
7-234

20-42

4-784

27=-1914

6-144K
6-2994
17=35#

=20¥
164

522
7-17

27-207
27-201

27-2074
27-2014

27-217
27-203

4=-1154

5-204
27-2074
6=1594
6=-3114
18-414

5=-224
27-2174
6-182
10-45

27~ 1920
6-159
6-31
18-41

5-294

18-44

- Ry

20-40

26-314

6-1304
6-2764
16-3954

4=728
26-504
6-144
6-299
17-35

5-20
7-16

-—
®x

/N - b 3-3-3- 3 333

'®

CZRLLCO RLO1/02 DRIVE COMPAT MACRO V04.00 16-FEB-82 13:32:06 PAGE M-3
CROSS REFERENCE TABLE (CREF v04.00 )

W= wg

(N-e=vN

[ L)

.IPMC=—

R N LU eeeeee

[OXNT2mT

YO T YT eI oL TNy eY T eYTTYY W ey

w 666666666666668888027J33666778801445577776‘671114‘4

-.3

SEQ 0101

CZRLLCO RLO1/02 DRIVE COMPAT MACRQ V04.00 16-FEB-82 13:32:06 PAGE M=-4

SE@ 0102

CROSS REFERENCE TABLE (CREF V 0¢ .00 )

6=5
6-564
6-2294

6=274

6-41

6=414

6-69

24=704
27-1864

24=74M
27- 1914

24=754
27-194

6-654

6-314

6=-3144

4-334
4=-1154
=74
27-1914

4=43
5-10
7-8
27-192
4=55
4-77
13-17
24=74

4=43N
5=10#
7-84

4=534
4=754
13-64

24704

27-1924
4=554
4=774
13-17#

24=74N

7=204
16-464

=74
7=224
16=-534

27-1944

25=54

25=224
27-195

4=48
5-20
7-16

4=484
5=204
=164

27-207
4-61

6-45

16-46

25-5

27=2078
4614

6=454

16-464

25-54

6-54
6-564
6-252#
7-1

8-3

17-354
26-314

27-195

4-57
5-22
7=17

6-54
6-694

6-2764

7=11#
8-34
17-444
27="
27-195#4

N
e RN OO TN
O —MMANe MR —eMeMNnN

27-217
4-63
6-54
16-53
25-22

27=2174
4~634
6=544

5y-4sl

4=4L50
5-14#

16-53#
25-22#

4-24
L=74N

4-37
5-4

4=374
S~-4#

4-39
5-13

4=394
5-13#

CZRLLCO RLO1/02 DRIVE COMPAT nAcgg ¥04.00 16-FEB-82 13:32:06 PAGE M-5

SEQ 0103

CROSS REFERENCE TABL € (CREF V04

NOY RO BTN e

[aV1oV

[)}~o

[}

L 0 ~y 0
[}

AEZEXZTN I

i[FE]VY]In P

£U3 LBeE

WnNWAON

[9V]

&= Smpa
V]

0 o-

- 0 wy
[}

-— ~ ~y ~5
U

L ~N wn (=]
U

o)
(V] - TMM[T
]

o ~3 [0S (=]
!

N 4 ~~
!

[a) ["a)
[}

[a¥] [7al o o
]

(Y]

T R RO RR—

ma sX @z
[

AN T T OOONMANY OO0 T OVOOVOONNOOLINOOVOOVONNON

]

~ -—
U