Digital PDFs

AH-F130B-MC

March 1980

96 pages

Original

47MB

view download

OCR Version

70MB

view download

Document:	CZRLLB0 RL11,RLV11 RL01-02 DRIVE COMPAT MAR 1980 bw
Order Number:	AH-F130B-MC
Revision:	000
Pages:	96
Original Filename:	CZRLLB0__RL11,RLV11__RL01-02_DRIVE_COMPAT__AH-F130B-MC__MAR_1980_gray.pdf

OCR Text

RL1LRLVI

RL 0l/
CZRLL

AH-F130B-MC
FICHE 1 OF 1

MAR

———————

198C

COPYRIGH TE

MADE

SEQ 0001

.REM 3

IDENTIFICATION

PRODUCT CODE:

AC-F131B-M(

PRODUCT NAME:

CZRLLBO RLO1/02 DRIVE COMPATABILITY

DATE CREATED:

5-JAN-79
L]

REVISED:

7-DEC~79

MAINTAINER:

DIAGNOSTIC ENGINEERING

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_
USE
IN
SUCH
WRITING BY DIGITAL.

SYSTEM,

EXCEPT AS MAY OTHERWISE BE PROVIDED IN

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
gG?gk'{ABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

}

=
e
.

e
Y W

—

B AU NN AU —

——a

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

N -

PO
O

DEVICE

N—d

WWO

ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

TEST SUMMARIES

n N —

HARDWARE PARAME TERS

DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
.
EXTENDED P-TABLE DIALOGUE

HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION
SAMPLE RUN-THROUGH
CHAIN MODE OPERATION

(o SR

PROGRAM ABSTRACT

ASSUMPT IONS

CONTENTS

GENERAL INFORMATION

)

-0

TABLE OF

SOF TWARE PARAME TERS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
)
PROGRESS REPORTS

INFORMATION TABLES

PAGE 2

SEQ 0002

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF

1
PAGE 3

PROGRAM

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

(AN
BE
ACT AND

APT IN ACT MODE (SEE 2.2 ''CHAIN MODE
OPERATION'' FOR DETAILS
OF
CHAINING PROCEDURE).
IT IS A SINGLE PROGRAM FROM THE STANDPOINT OF

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

THIS

SUPERVISOR

DIAGNOSTIC

PORTION,

WHICH

STARTED,

CONTROL

GOES

FIRST

THE

WILL ASK CERTAIN ‘HARD CORE'' QUESTIONS

ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
INDICATED
BY
A
PROMPT
(HARACTER
(DR>).
AT COMMAND MODE THE OPERATOR MAY

Ezgggufl}mog“ SEVERAL

COMMANDS

DESCRIBED

2.0

'OPERATING

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

DIAGNOSTIC INFORMATION

THE RLOT DRIVE

PROGRAM
DRIVES.

COMPATABILITY

TEST

PDP-11

CYLINDER WRITES TO PROVE COMPATABILITY.

Vol

SYSTEM REQUIREMENTS

(LSI-11)

BASED

THAT
WILL
TEST
INTERCHANGEABILITY OF CARTRIDGES BETWEEN
THE TEST
PERFORMS
WRITES,
READS,
OVERWRITES,
ADJACENT

HARDWARE REQUIREMENTS

* PDP=-11/LSI-11

* CONSOLE DEVICE

PROCESSOR WITH 16K OR MORE OF MEMORY

(LA30,LA36,VT50,ETC.)

SEQ 0003

PAGE 4

* 1

OR 2 RL11/RLV11

CONTROLLER(S) WITH:

1-8 RL01 DRIVES ’éllTH RLOTK CARTRIDGES CONTAINING
FIL
1=-8 RLO? DRIVES WITH RLOZK CARTRIDGES CONTAINING
SECTOR FILE®

'BAD

‘'BAD

* LINE PRINTER (OPTIONAL)
1.2 .2

SOF TWARE REQUIREMENTS

CZRLLAO RLO1/02 DRIVE COMPATABILITY
(FORMERLY CZRLFB)

RELATED DOCUMENTS AND STANDARDS

RLO1 DISK SUBSYSTEM USER'S GUIDE
XXDP+/SUPERVISOR USER'S MANUAL
1.4

DIAGNOSTIC HIERARCHY PREREQUISITES
THE RLO1/02 SUBSYSTEM SHOULD HAVE

PROGRAMS
:

SUCCESSFULLY

THE

FOLLOWING

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

CZRLKBO
CZRLNAD

RI 11/RLV11 RLO1/02 PERFORMANCE EXERCISER
RLO1/02 DRIVE TEST (PART 3)

RLO1/02 DRIVE TEST (PART 1)
RLO1/02 DRIVE TEST (PART 2)

ASSUMPT IONS

THE HARDWARE OTHER THAN THE RL01/02 SUBSYSTEM IS

PROPERLY.

FALSE

ERRORS MAY BE REPORTED

NOT FUNCTION PROPERLY.

2.0

RUN

CVRLABO
CZRLGBO
CZRLHBO

CZRLIBO
CZRLJBO

1.5

(EK-RLO1-UG=002)

OPERATING INSTRUCTIONS

THE

ASSUMED

PROCESSOR,

WORK

ETC.,

SEQ 0004

PAGE 5

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

THIS DIAGNOSTIC PROGRAM SHOULD BE

XXDP+

PROCEDURES.

START

THE

LOADED AND STARTED

EXECUTION

USING

NORMAL

THE XXDP+ MCNITOR BY

USING THE APPROPRIATE BOOTSTRAP PROGRAM.
THE MONITOR WILL PRINT
A
MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
%g?g
AN EXAMPLE OF THIS MESSAGE IS GIVEM BELOW FOR
THE
XXDP+

CHMDKAO XXDP+ MONITOR
BOOTED VIA UNIT O
ENTER DATE (DD-MMM-YY):
AFTER THE DATE HAS BEEN ACCEPTED BY THE MONITOR THE RESTART ADDRESS
CA”;KE(];HE
MONITOR
IS PRINTED.
THEN THE FOLLOWING TWO QUESTIONS ARE

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

DO NOT

WHEN THIS DIAGNOSTIC

TYPE

THE

TYPE 'R'' AND THE PROGRAM NAME
EXTENSION.

RUN

IS STARTED THE FOLLOWING 5 STEPS WILL OCCUR:

AARA
A A
AR

*« STEP1 «
L2 22223

2224

THE DIAGNOSTIC WILL ISSUE THE PROMPT 'DR>''.
FROM THIS POINT
UNTIL
THE
TIME
WHEN
YOU
RESTART
XXDP+,
YOU
WILL
BE TALKING TO THE
DIAGNOSTIC, NOT XXDP+.
WE WILL
REFER
TO
THE
PRESENCE
OF
THIS
E’RUPT
:lS)DEBEING
IN
DIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+
AT THIS POINT YOU WILL ENTER A ''START'' COMMAND.

SAME

THE

HOWEVER,

XXDP+

°‘'START''

THIS

NOT

THE

COMMAND, WHICH YOU ALREADY ISSUED IN

RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ''START'' COMMAND CAN TAKE
A
NUMBER
OF
SWITCHES
AND
FLAGS
(ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH
IN
2.3
‘DETAILS
OF
COMMANDS
AND
SYNTAX''.
SOMETHING LIKE

ORDER

THIS:

USE

STA/PASS:1/FLAGS :HOE

THE

PROGRAM,

ALL

YOU NEED TO SAY

SEQ 0005

PAGE 6

THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF

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

"DR>"" LEVEL NEED TO BE TYPED.

THIS OR ANY COMMAND

THE

A PASS

CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL UNITS BEING
TESTED

(THIS WILL BE EXPLAINED SHORTLY).

ONE PASS

IN THE ABOVE EXAMPLE.

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

THE MAIN USEFUL ONES ARE:

PNT

PRINT NUMBER OF TEST BEING EXECUTED

HOE

HALT ON ERROR

LOE

IS SPECIFIED

FLAGS,

BUT

LOOP ON ERROR

IER

INHIBIT ERROR PRINTOUT

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE
SHORTLY).

(WE'LL

SEE

WHY

KA A AR AR A AR

* STEP 2 «
Thhkhkkkhkhhk

WHEN YOU HAVE TYPED IN A "'START'' COMMAND, THE DIAGNOSTIC WILL
COME
BACK WITH
THE
QUESTION "# UNITS?'' TO WHICH YOU SHOULD RESPOND BY
TYPING

IN THE NUMBER OF

A WORD OF WARNING HERE:

DEVICE
OF
DIRECTED AT
NUMBER
OF
DIRECTED AT

DEVICES YOU WISH TO TEST.

THE NUMBER OF UNITS DEPENDS ON THE

TARGET

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

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.

Ak hkkkhhhd

* STEP 3 »
L2222
2 2 2 831

WHEN YOU HAVE

DIAGNOSTIC

TYPED

WILL

IN THE

THESE QUESTIONS ARE USED

F;Egl??IISES".
THERE ARE

NUMBER

UNITS

ASK YOU THE 'HARDWARE QUESTIONS''.
TO BUILD

TABLES

IN CORE,

TESTED,

THE

THE ANSWERS TO

CALLED

'HARDWARE

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

SEVERAL

HARDWARE QUESTIONS AND

THE

ENTIRE

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

SERIES WILL

SEQ 0006

THIS

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC

1
PAGE 7

ENGINEERING.

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

INFORMATION THEY NEED TO TEST THE DEVICE.

AR AAhhhhhw

* STEP 4 »
L2222

22l

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
'*''.
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

ASKED JUST ONCE,

IN THE PROGRAM.

REGARDLESS OF

THE SERIES OF QUFSTIONS

THE NUMBER OF

UNITS

TO BE

WILL

TESTED.

Ahkhkhhhhhhk

x STEP § =
L222222222

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

IF NO ERROR IS ENCOUNTERED, THEN
THE
DIAGNOSTIC
WILL
SIMPLY
%;s%g lgl"‘lE)DESlRED NUMBER OF PASSES AND RETURN TO COMMAND MODE

IF AN ERROR IS ENCOUNTERED,

DEPENDING ON THE SETTINGS OF
HOE SET:

THEN ONE OF

THREE

THINGS

THE

CONSOLE

THE HOE AND LOE FLAGS.

THE ERROR WILL BE REPORTED ON

DIAGNOSTIC WILL RETURN TO COMMAND MODE.

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

THE

HAPPENS,
AND

THE

BLOCK

NEITHER HOE NOR LOE SET:
THE ERROR WILL
BE
REPORTED
ON
THE
S(C)C‘szgkgo AND
NORMAL
EXECUTION
WILL RESUME AS IF NO ERROR HAD

SEQ 0007

PAGE 8

SAMPLE RUN=-THROUGH

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.

ENTERED

THE

TYPICAL WAY TO RUN THE DIAGNOSTIC.

;?EISELIJE'SLE

RECALL
THAT WE
THIS WwOULD BE A VERY

COMMAND ‘'STA/PASS:1/FLAGS:HOE''.

IF NO ERRORS

ARE

ENCOUNTERED,

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

IF AN ERROR IS ENCOUNTERED,

THE ERROR

WILL

REPORTED

AND

THE

PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS SET).
AT THIS
:8}?; THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
PROGRAM
GOING

2.
3.

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

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

ISSUE A "RESTART'' COMMAND (SAME

START

THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

ISSUE A "'CONTINUE'' COMMAND

BEGINNING OF

(EXECUTION WILL

THE PARTICULAR HARDWARE TEST

(OMMAND
RESUME

EXCEPT
AT

THE

(MOST DIAGNOSTICS

CONSIST OF A NUMBER OF THESE) THAT ITBWAS IN WHEN THE ERROR

HALT OCCURRED.

NO QUESTIONS ASKED.

ISSUE A 'PROCEED'' COMMAND:
EXECUTION WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE ERROR REPORT (THIS IS A SPECIAL

COMMAND AND CAN BE
THE MOST

TYPICAL

THING

ISSUED ONLY AT A HALT ON ERROR).

TO DO HFRE

DIFFERENT FLAG SETTINGS.

ISSUE

THE

PROBABLY YOU WOULD WANT

PROCEED,

TO SAY:

BUT WITH

PRO/FLAGS: IER:LOE : HOE=0
TH'S WILL DO THE

FOLLOWING:

TURN ON THE

IER

(INHIBIT ERROR PRINTOUT)

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

FLAC

THAT DETECTED AND

REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR.
STUDY THE ERROR OR SCOPE IT OR WHATEVER.

THUS YOU CAN

SEQ 0008

PAGE 9

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WILi TAKE YOU
?fl;EEOEHO}?ESLOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
1.

START

RESTART

CONTINUE

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

YOU WOULD

TYPE

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

EXECUTION

THE

FLAGS TO THEIR

BEGINNING OF

ORIGINAL

THE HARDWARE

VALUES

AND

TEST YOU WERE

RESUME

IN.

THE ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU
THE NEXT ERROR OR TO END OF PASS.

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

START

RESTART

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

AGAIN,

YOU WANTED

YOU

TO ANSWER

HAVE

THE

SEQ 0009

THE FULL PRINT=0QUT FROM THE ABOVE
(D=0PERATOR, D=DIAGNOSTIC):

DIALOGUE

MIGHT

LOOK

WHOM

ENTERED

.R CZRLLB

DIAG. RUN-TIME SERVICES REV. C APR-79
CZRLL-B-0
CZRLL VERIFIES INTERCHANGEABILITY OF
CARTRIDGES BETWEEN DRIVES
UNIT IS RLO1, RLOZ2

D
D
D

DRS LOADED

DR>STA/PASS : 1/F LAGS : HOE
CHANGE HW (L)

# UNITS

(D)

? Y

0.0

D.O

D
D.O
D.0
D.O
D.O

174400 ?

VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLOT

(L)

Y ?

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

D.O

? 2

UNIT O
BUS ADDRESS (0)

TYPE = RLO1

(L)

D
D.O
D.0
D.O

? N

D.0

(N=RLO2)

CZRLL HRD ERR 00004 TST 003 SuB 002 PC:004130

ERR HLT

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

D.O

AR AR AR AR A AR AR AR AR AR AR AR AR AR ARk

THIS POINT

THE DIAGNOSTIC

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
THE ERROR UNTIL

AR AR AR AR

YOU HAVE LOCATED

AR R

YOU CAN SCOPE

IT,

THEN “C OUT.

AR AR AR AR AR RRRRRRRRARRRRA
AR A AN

5 *

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

0.0

PAGE 10

THIS

SEQ 0010

EERLL EOP 1

DR>RESTART/PASS:1

0.0

2.2

PAGE

EXECUTION

CHAIN MODE OPERATION
CHAIN MODE

PROGRAMS

OPERATION

WITHOUT

CONSISTS

OPERATOR

BEEN MODIFIED 7O RUN IN
PROGRAMS ARE

IDENTIFIED

TO RUN CHAIN MODE,

THE

INTERVENTION.

CHAIN

IN THE

MODE

SEQUENTIAL

ONLY PROGRAMS THAT HAVE

CAN

CHAINED.

CHAINABLE

DIRECTORY BY A BIC EXTENSION.

THE XXDP+ MONITOR USES AN ASCII

FILE

(KNOWN AS A

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

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

ézC(lT;\l‘EER?[S)C”

FILE

ARE

TO EXECUTE A CHAIN FILE

EXECUTED

IN THE ORDER IN WHICH THEY ARE

THE USER TYPES:

C FILNAM <CR> OR
<CR>
C FILNAM/QV
IN THE FIRST CASE THE PASS COUNT SPECIFIED IN
THE
CHAIN
FILE
IS
USED
BY
THE
XXDP+
MONITOR
TO DETERMINE THE NUMBER OF PASSES TO
EXECUTE EACH PROGRAM.
IN THE SECOND CASE THE
PASS
COUNT
IS
NOT
USED
AND
EACH
PROGRAM
IS
EXECUTED
ONLY
ONCE.
THE /QV SWITCH
PROVIDES A SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.
WHEN PROGRAMS ARE RUN IN CHAIN MODE,

SHOULD

SET

000000.

THE SOFTWARE

SWITCH

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
READY
TO
ACCEPT
ANOTHER
COMMAND
FROM THE CONSOLE.

(.).
IT
IS
IF THE LAST

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

THE USER WISHES

TERMINATE

CHAIN

MODE

BEFORE

ITS

THE

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.

SEQ 0011

PAGE 12

2.3

DETAILS OF COMMANDS AND SYNTAX

TABLE OF COMMAND VALIDITY

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

HOW ENTERED

OPERATOR ENTERED

LEGAL COMMANDS

°‘RUN DIAG'

START
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL

START
RESTART
PRINT

ITS REQUESTED PASSES

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
CONT INUE
PROCEED
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT

SEQ 0012

2.3.2

1
PAGE 13

SEQ 0013

CUMYAND SYNTAX

(2322222222230t

dii

ittt

iiiit

ittt

assdddd sy

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

A2t

ds ittt

THE DIAGNOSTIC

SPECIFIED.

MAY BE

ittt ittt
ittt sl

IN CORE

THE

IS EXECUTED IN ACCORDANCE WITH THE

MESSAGE '# UNITS?'' IS PRINTED.

SWITCHES

THE START COMMAND

ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THE FOLLOWING:

A) OPERATOR TYPED "RUN DIAGNOSTIC'* B) DIAGNOSTIC

FINISHED EXECUTING C)

ERROR WAS ENCOUNTERED WITH HOE

FLAG

SET

OPERATOR ENTERED
CONTROL/C.
AFTER
THE
OPERATOR RESPONDS TO '%
UNITS?"', THE HARDWARE DIALCGUE IS INITIATED.
WHEN IT IS COMPLETED,
THE
QUESTIONS
°‘'CHANGE
SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
BECOME THE NEW DEFAULTS.
THEREFORE IT IS NECESSARY TO
RELOAD
THE
PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.
THE SWITCH ARGUMENTS ARE AS FOLLOWS:

"TEST=-LIST'' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR RANGES
OF
DECIMAL
NUMBERS
(1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE
EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS
RANGE

FROM
1
TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER
REGARDLESS
OF
THE
ORDER
OF
SPECIFICATION.
THE
DEFAULT IS TO
EXECUTE ALL TESTS.
"PASS=CNT'' IS A DECIMAL NUMBER INDICATING
THE
DESIRED
NUMBER
OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE ' DEFAULT
IS

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

THE FOL'.OWING VALUES:

HOE HALT ON ERROR, CAUSING COMMAND MODE
ERROR IS ENCOUNTERED

TO BE ENTERED

WHEN

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

IER INHIBIT ERROR REPORTING
IBE INHIBIT BASIC ERROR REPORTS
IXE

INHIBIT EXTENDED ERROR REPORTS

PRI

DIRECT ALL MESSAGES

TEST BEING EXECUTED
-

PNT PRINT NUMBER OF

TO A LINE PRINTER

PAGE 14

BOE BELL ON ERROR

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

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

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

THOSE

%;Ag?{)’e" AtLF%tfiGhSnIREPEEé:}QEgIS 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 THc END OF EVERY PASS.
LR

A2 d

ittt

it ittt

ittt

isdisii

ARE

THE FLAGS SWITCH IS

THE

it adiisiiisiasssississtsssy

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

ddd

THE DIAGNOSTIC

sttt

IN CORE

ittt

it ssiisissiissiiaditisssssss]

IS EXECUTED

SPECIFIED.
HOWEVER,
NEW
ONES IN CORE ARE USED.

IN ACCORDANCE WITH THE

‘P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD, THE

THE QUESTION ''CHANGE SW?'' IS ASKED AND THE ANSWERS GIVEN BECOME THE
NEW DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
E&;’;&?/CVIA A)
DIAGNOSTIC
IS
FINISHED B)
HALT
ON
ERROR
()
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

"UNIT-LIST'' IS A SEQUENCE OF LOGICAL UNIT

OPERATOR

COMMAND''.

UNTIL THE NEXT START

RANGING

THE EFFECT OF THE UNIT-LIST LASTS

(WHERE

"ALL'") OR THE NEXT RESTART.

NUMBERS

FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE TO BE TESTED.
THE
LOGICAL
UNIT
NUMBER
DESIGNATES
THE
POSITION OF THE P-TABLE IN CORE, ACCORDING
TO THE ORDER IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED
MUST NOT HAVE
BEEN DROPPED BY THE OPERATOR DROP COMMAND.
THE UNIT-LIST DEFAULTS TO "ALL THAT HAVE NOT
BEEN
DROPPED
IT IS

AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

RESET

SEQ 0014

22222

a2t

didi

ittt

PAGE 15

ididdddd

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

222222222ttt

ddiiiidiistisdisdsdd)

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON ERROR OR A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF

THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE CHANGED.
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:
1.

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

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

FROM

THE

AARAAAR
AR A AR AR A AR A ARk

PRO(CEED) /FLAGS : <FLAG-LIST>
KA

AT AR AR

AR A AR ARk

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A
HALT
ON
ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO BEGIN
EXECUTION
AT THE LOCATION
%nglchnggoERRm CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE SWITCH ARGUMENTS ARE

THE SAME AS THE START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

whh®

EXIT
2 3
L2

RETURN TO XXDP+ PROMPT MODE.

AAAR AR AR AR A A AR ARk

DRO(P) /UNITS:UNIT=LIST
LA S

s dsisddsdd]

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
gcC: ngcle"e‘g“' A START COMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED

THERE IS ALSO A 'DROP'' MACRO

INTERNAL

THE

DIAGNOSTIC,

WHICH

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

SEQ 0015

PAGE 16

AEARR
AR AR AR AR AR AN

ADD/UNITS:UNIT=LIST
AR AR

AR AR

THE UNITS SPECIFIED ARE ADDED BACK

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

(THEY MUST HAVE BEEN

TO THE TEST SEQUENCE.

PREVIOUSLY

AN ADD CANNOT

PRI(NT)
La 2

2 4

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

PRINTED.

AR AR AR A AR AR AR AR

DIS(PLAY) /UNITS:<UNIT-LIST>
AAERAAAAARA
A A AR AR A AR A AR AR

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

FLA(GS)
KAk hkhhk

THE CURRENT SETTINGS OF

ALL

FLAGS ARE PRINTED.

ZFL (AGS)
Ahhk

ALL FLAGS ARE

2.4

CLEARED.

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

AS SOON AS THE QUESTION "% UNITS?'' IS ANSWERED
SPACE
IN
CORE IS ALLOCATED FOR ‘N'' P-TABLES.

ARE OF THE SAME FORMAT,
EE;:EBE'EJ FTHE THARDUARE

REVEALED

THE

(WITH THE NUMBER N),
ALL OF THE P-TABLES

AND THERE IS
A
ONE-TO-ONE
CORRESPONDENCE
PARAMETER
QUESTIONS
AND
THE SLOTS IN THE

SEQ 0016

PAGE 17

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

A STRING OF VALUES MAY BE GIVEN AS A RANGE
THE

VALUES

REPRESENT

PURE

NUMERICAL

(6=10 FOR EXAMPLE).

DATA,

THIS

SAMPLE

RANGE

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

6.8,10 (AN INCREMENT OF 2).

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

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

THIS

RLOX

DRIVE

P-TABLE,

SYSTEM.

THIS

SYSTEM HAS
TWO
(2)
RL11_
TYPE
CONTROLLERS ALL TO BE SET AT 'BR
LEVEL'® 5.
THE FIRST 4 DRIVES ARE RLO1'S AND THE LAST 4 DRIVES ARE
RLO2'S

# UNITS

(ON THE SECOND CONTROLLER):
(D)

? 8

UNIT O
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 4
DRIVE (0) 0 ? 0-3
DRIVE TYPE
= RLO1 (L) Y ?
UNIT 4
BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ?_164
DRIVE (0) 0 ? 0-3
DRIVE TYPE
= RLOT (L) Y ? N

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE
DEFAULT
VALUES
ARE
USED
FOR
THE
CSR
ADDRESS
OF
THE CONTROL'.ER (QUESTION #1), THE
CONTROLLER VECTOR ASSIGNMENT (QUESTION #2),
AND
THE
DRIVE
TYPE
(QUESTION
#4).
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR QUESTION
#3 WAS ASSIGNED O THRU 3 FOR THE FIRST 4 P-TABLE SLOTS.
THE SECOND TIME THRU THE P-TABLE QUESTIONS THE FIRST
ANSWERED
TO
REFLECT
THE
CHANGE
IN
CSR
ADDRESS

QUESTION
WAS
FOR
THE RLOZ2

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 RLO2'S FOR THE REMAINING 4 UWITS IN QUESTION #4.

SEQ 0017

2.5

PAGE 18

HARDWARE PARAMETERS

THAT WILL BE

TAKEN ON A CARRIAGE RETURN RESPONCE.

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

VECTOR (0)

160?

ANSWER WITH THE

DRIVE

INTERRUPT VECTOR OF

TYPE = RLOT

ANSWER NU (N)

2.6

THE CONTROLLER.

(0) 0?

ANSWER WITH THE DRIVE(S)
DRIVE

THE CONTROLLER.

(L)

CONNECTED TO THE CONTROLLER

IF DRIVE

IS AN RLOZ2

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

"'CHANGE S.w.

7?''

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE
PARAMETER
QUESTIONS,
WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
ON A <CR>.
CONTROL Z (*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND
START THE TEST.
THERE ARE NO SOF TWARE PARAMETERS.

3.0

ERROR INFORMATION
ERROR INFORMATION IS COMPLETE
ALL

REGISTERS

ARE

INVOLVED IN ERROR.

GIVEN

IN GIVING ALL
WELL

INFORMATION

TRACK,

NECESSARY.

SECTOR AND DRIVES

SEQ 0018

PAGE

ERROR REP 2TING

3.1

ALL ERROR INFORMATION IS PRINTED
ON
THE
CONSOLE
DEVICE.
ERROR
?EPORTS
ARE
AIMED
AT BEING SELF EXPLANATORY.
THE GENERAL FORMAT
DZRLL

XXX

ERR

YYYYY

TST

72ZZ

SUB

PPP

P(C:

RRRRRR

THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR

ALONG

:
WHERE

?
XXX

YYYYY

244

PPP
RRRRRR

ERRORS GIVE

WITH A ONE

LINE

IS PROGRAM LETTER
IS SFT = SOFT ERROR

HRD = HARD ERROR

DV FAT - DEVICE FATAL ERROR
SYS FAT = SYSTEM FATAL ERROR
IS THE ERROR NUMBER

IS THE TEST NUMBER
IS
IS

THE SUBTEST NUMBER
THE PROGRAM LISTING LOCATION

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.
REGISTER DESCRIPTIONS

CAN BE

FOUND

IN SECTION 5.0.

ERROR DESCRIPTIONS:

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

"MINIMUM OF

TWO DRIVES REQUIRED''

SECTOR

AFTER

SEQ 0019

THE

PROGRAM REQUIRES AT

“MAXIMUM OF

LEAST

TWO DRIVES

TO PROVE

PAGE 20

COMPATABILITY.

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
PREDETERMINED
SPOTS
ACROSS
THE PACK.
IT WAS UNABLE

COMPLETELY GOOD ADJACENT TRACKS

IN THE LIMITS GIVEN.

TRACKS
AT
TO FIND FIVE

“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 B8Y ONE DRIVE.
BOTH DRIVES INVOLVED ARE GIVEN.

AFTER

"READ RECOVERY ERROR''
S:TERROR WAS ENCOUNTERED WHILE

TRYING

RECOVER

ANOTHER

DRIVES

"'ADJACENT TRACK TEST"'
AN ERROR WAS ENCOUNTERED WHILE
DESCRIPTION IS GIVEN.

3.2

IN THE ADJACENT

A FURTHER

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

4.0

TEST PART,

THE

PERFORMANCE AND PROGRESS REPORTS

PERFORMANCE

REPORTS

THIS PROGRAM WILL NOT GIVE

ANY PERFORMANCE REPORTS.

SECTION

SEQ@ 0020

4.2

PAGE 21

PROGRESS REPORTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

5.0

DEVICE

INFORMATION TABLES

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

RLCS = CONTROL AND STATUS REGISTER

(XXXXX0)

BIT 15 - COMPOSITE ERROR

BIT 14 - DRIVE ERROR

BIT 13 =
BIT 12 =
BIT 11 BIT 10 BIT
9/8
BIT
7 =
BIT

NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT 10 SET)
DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET)
DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE
- DRIVE SELECT (0-3)
CONTROLLER READY

6 = INTERRUPT ENABLE

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

= WRITE CHECK

2 = GET DRIVE STATUS
3 - SEEK

4 - READ HEADER

5 = WRITE DATA
6 = READ DATA

7 = READ WITHOUT HEADER COMPARE

BIT

0 = DRIVE READY

RLBA = BUS ADDRESS REGISTER

(XXXXX2)

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

(XXXXX4)

REGISTERS

FOR

SEQ 0021

FOR READ/WRITE

FUNCTIONS

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

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

BIT
BIT
BIT
BIT
BIT
BIT

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

FOR GET

STATUS FUNCTION

BIT 15-4 - IGNORED SHOULD BE ZERO (0)
BIT 3 - DRIVE RESET
BIT 2 = MUST BE ZERO (0)
BIT 1 = MUST BE ONE (1)
BIT 0 - MUST BE ONE (1)
RLMP = MULTIPURPOSE REGISTER
FOR READ/WRITE

FUNCTION

BIT 15 = 0 - WORD COUNT

(TWO'S COMPL IMENT)

FOR READ HEADER FUNCTION

BIT 15-0

- DISK HEADER OF SECTOR (FIRST READ)
= ZERO WORD

(SECOND READ)

DRIVE STATUS

WRITE LOCK STATUS (WL)
SEEK TIME OUT (SKTO)

O—=NOWH

15 = WRITE DATA ERROR
CURRENT HEAD ERROR (CHE)
—d ad

e
e b
e

- ——
— —

GET STATUS FUNCTION

eedvedoofosfoefeo)

(THIRD READ)

= HEADER CRC

SPIN ERROR (SPE)

WRITE GATE ERROR

(WGE)

PAGE 22

SEQ 0022

;

K_2

PAGE 23

BIT
9 = VOLUME CHECK (VC)
BIT
8 - DRIVE SELECT ERROR (DSE)
BIT
7 - DRIVE TYPE IS RLO2 IF SET
BIT
6 = SURFACE (O=UPPPER, 1=LOWER)
BIT
5 = COVER OPEN
BIT
& - HEADS HOME
BIT
3 - BRUSHES HOME
BIT 2-0 -STATE BITS
0 - LOAD STATE
1

- SPIN UP

2 = BRUSH CYCLE
3 = LOAD HEADS

4 = SEEK = TRACK COUNTING

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

6.0

TEST SUMMARIES
THE FOLLOWING IS

BRIEF

DESCRIPTION

THE

WAY

THE

PROGRAM

EXECUTES.
THE
PROGRAM WILL
CHECK
COMPATIBILITY
BETWEEN 2 - 4
DRIVES USING THE SAME RLO1K CARTRIDGE OR SAME RLOZ2K CARTRIDGE.
THE
PROGRAM

WILL

ASK

THE

OPERATOR

TO SEQUENCE

DRIVES GIVEN IN THE FOLLOWING MANNER.
PLACE PACK

THE PACK BETWEEN THE

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

THE PROGRAM WILL SEQUENCE
HARDWARE QUESTIONS.
1I.E.

THE

ORDER

THAT

DRIVE ? 0,1,2.3
PROGRAM WILL

DRIVE

SEQUENCE

0,1,2,3.,2.1.0

? 1,0,3,2

PROGRAM WILL

SEQUENCE

1,0,3,2.3.0.1

WAS

GIVEN

THE

SEQ 0023

WHEN THE FIRST DRIVE

PAGE 24

IS LOADED THE PROGRAM WILL ATTEMPT TO FIND TEN

SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS THAT CONTAIN NO
BAD SECTORS USING THE BAD SECTOR FILE.
THE 10 SPOTS ARE:
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

BOTH DIRECTIONS.
ADJACENT WRITES
TESTS ARE

TAKE PLACE AFTER SEEKS FROM

TAKE PLACE

TO BOTH SIDES OF

EACH WRITE

PERFORMED AT ALL

TEN SPOTS ACROSS

THE

PACK.

SEQ 0024

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC=79 10:40
8
36

268
300

411

734

MACY11 30A(1052)
17<DEC-79
TABLE OF CONTENTS

MACRO DEF INITIONS
GLOBAL EQUATES SECTION
GLOBAL DATA SECTION

GLOBAL TEXT SECTION
GLOBAL ERROR REPORT SECTION
INITIALIZATION SECTION

GLOBAL SUBROUTINES SECTION

11:21

SEQ 0025

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40

MACY11

30A(1052)

17-DEC-79

11:21

2
PAGE 1

LTITLE

CZRLLBO RLO1/02 DRIVE COMPAT

«MCALL

SVC

.SBTTL

MACRO DEFINITIONS

10
1
12

.MACRO

WAITUS
MoV
JSR

ARG
ARG ,XDELAY
PC,TIME

sMACRO MICRO-SECOND WAIT
s SAVE ARGUMENT
;CALL TIMING ROUTING

15
16
17

.MACRO

.ENDM

WAITMS
MOV
JSR

ARG
ARG, YDELAY
PC,XTIME

sMACRO MILLI-SECOND WAIT
s SAVE ARGUMENT
;CALL TIMING ROUTINE

.NLIST

2
3

.ENABLE AMA
.ENABLE ABS

002000

.=2000

22
23
gg

002000

28
29
(4)

002000
002000
002000

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

002001
002002
002003
002004
002005
002006
002007
002010
002011
002012
002014
002016
002020
002022
002024
002026
002030

(4)

002034

(4)

(4)
(4>
(4)
(4)
(4)
(4)
(3)

002032

002036
002040
002042
002044
002046
002050
002051

CND,MD,ME

SvC
SVCINS=0
SVCTAG=0

000000
000000

POINTER NONE
BGNMOD
103
132
122
114
114
000
000
000
102
060
000000
000000
033250

000000
022252
000000
033370
000000
000000
000001
000000
022264
000000
000000
003
003

;
.
:

MDHEDR
HEADER
(ZRLL.B,0,0.,1
LASCII /7C/
LASCII 72/
.ASCII /R/
LASCII /L/
LASCII /L/
.BYTE
O
.BYTE
0
JVTE
W
LASCII
/B/
LASCIT
70/
.WORD
0
.WORD
0
.WORD
L$HARD
.WORD
O
«WORD
L$HW
.WORD
0
.WORD
LSLAST
WORD
0

.WORD

WORD
WORD
WORD
WORD
.WORD
.BYTE
.BYTE

O
LSDISPATCH
0
0
0
CSREVISION
(SEDIT

WORD

SEQ 0026

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40
(4)
(5)
(4)

MACY11 30A(1052)

MACRO DEF INITIONS

002052

.WORD
WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
WORD
.WORD
.WORD
EMT
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

002054

(4)
(4)

022242

.WORD
.WORD
ENDMOD

002

30
31
32
(3)

S
8
3 BN NSarno&

(4)

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

17-DEC-79

055103
042526
051505
051105
042507
052111
041440
042111
042502
020116
051505
002222
046122
030114

DESCRIPT

A SCIZ

11:21

3
PAGE 1-1

0
O
0
LSDVTYP
0
0
0
0
0
O
LSDESC
ESLOAD
O
LSINIT
LSCLEAN
LSAUTO
LSPROT
0
0
O

<CZRLL VERIFIES INTERCHANGEABILITY OF CARTRIDGES BETWEEN DRIVES>
/CZRLL VERIFIES INTERCHANGEABILITY OF CARTRIDGES BETWEEN DRIVES/

053111
.EVEN

051054

DEVTYP

LASCIZ

<RLO1,RLO2>
/RLO1.RLO2/

.SBTTL GLOBAL EQUATES SECTION

:DEFINITIONS

)

* BIT DIFINITIONS

N
N

GLBEQAT

EQUALS

100000

BIT15== 100000

010000
004000

BIT13== 20000
BIT12== 10000
BIT11== 4000

BGNMOD

002234

N
N

e
D
)

PN PN PN PN

_—

002234

BIT14== 40000

SEQ 0027

CZRLLBO RLO1/02 DRIVE _COMPAT

CZRLLB.MAC

07-DEC-79 10:40

MACY11 30A(1052)

17-DEC=79

002000
001000
000400
000200
000100

B8I1T10== 2000
B1709== 1000
BI1T08== 400
BIT07== 200
BIT06== 100

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

000020
000010
000004
000002
000001

BIT04==
BIT03==
BIT02==
BIT01==
BITO00==

20
10
4
2
1

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

001000
00040C
000200
000100
000040
000020
000010
000004
000002
000001

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

BIT09
BITO08
BITO07
BITO06
BITO0S5
BIT04
BITO03
BIT02
BITO1
BITO00

(1)

fl;
(1
1)
1)

1)
fl;

000035
000034

?l;
(1)
1
(1)
(1
(1)
(1)
1)

fl;

000000

fl;
1)
(1)
(1)
(1)
(1)
(1)
(1
(1)
(1)
m

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

EF .NEW==
EF .PWR==

32.
51
30.

29.
’8.

; PRIORITY LEVEL DEFINITIONS

PRI07==
PRIO6==
PRIOS==
PRING==
PRIO3==
PRI02==
PRIO1==

340
300
240
200
140
100
40

PRIOO== 0

;OPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000

SEQ 0028

EVENT FLAG DEFINITIONS

000340
000300
000240
000200
000140
000100
000040

3
PAGE 1-2

BIT05== 40

000040
000037
000036

GLOBAL EQUATES SECTION

1)
1)
1)
(1)
(1)
1)

11:21

EVL==
LOT==
ADR==
IDU==
ISR==
==
BOE==
PNT==
PR]==
IXE==

4
10
20
40
100
200
400
1000
2000
4000

; START COMMAND WAS ISSUED
. RESTART COMMAND WAS ISSUED
s CONTINUE COMMAND WAS ISSUED

; A NEW PASS HAS BEEN STARTED
; A POWER-FAIL/POWER-UUP OCCURRED

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40

MACY11 30A(1052)
17-DEC=79 11:21
GLOBAL EQUATES SECTION

1)
9P
(M

010000
020000
040000
100000

HOE==

44
L)
46
2g

000000
000002
000004
000006

€S=0
BA=?2
DA=4
MP=6

(2:)',

IBE==
IER==
LOE==

‘ég
52
53
gg

)

100000

;CONTROL AND STATUS OFFSET
;BUSS ADDRESS OFFSET
;DISK ADDRESS OFFSET
sMULTI PURPUSE OFFSET

000002
000004
000006

CSR=0
VEC=2
DSB=¢4
PAT=6

; CONTROLLER ADDRESS

;VECTOR OF CONTROLLER
;DRIVE SELECT
sPATTERN UNIQUE TO DRIVE

000001
000100
100000
040000
020000
010000
004000
004000
010000
002000
000200
000040
000020
000002
000004
000006
000010
000012
000014
000013
000003
000001
000004
000020
000100

DRDY=BITO
INTEN=BIT6
ERR=BIT15
DERR=BIT14
NXM=BIT13
DLT=BIT12
DCRC=BIT11
HCRC=BIT1
HNF=BIT12
OPI=BIT10
CRDY=BIT7
BA17=BITS
BA16=BIT4
CRSET=BIT1
GSTAT=BIT?2
SEEK=BIT1!BIT2
RDHDR=BIT3
WRITE=BIT3!BIT1
READ=BIT3!BIT2
DRST=BIT3!BIT1!BITO
GSBIT=BIT1!BITO
MK=BITO
SIGN=BIT2
SKHS=BIT4
HEAD=BIT6

:DRIVE READY
: INTERRUPT ENABLE
;COMPOSITE ERROR
;DRIVE ERROR
sNON-EXISTANT MEMORY ERROR
;DATA LATE
:DATA CRC ERROR
sHEADER CRC ERROR
sHEADER NOT FOUND ERROR
;OPERATION INCOMPLETE ERROR
;CONTROLLER READY
;EXTENDED BUS ADDRESS BIT 17
;EXTENDED BUS ADDRESS BIT 16
;CONTROLLER RESET FUNCTION CODE
:GET DRIVE STATUS FUNCTION CODE
sSEEK 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 DRIVE COMMAND WORD
sMARKER BIT FOR DRIVE COMMAND WORD (SEEK,GET STATUS)
;DIRECTION FOR SEEK(O=AWAY FROM SPINDLE)
;HEAD SELECT FOR SEEK
sHEAD SELECT FOR READ,WRITE,GET STATUS

;OFFSET FOR HARDWARE P-TABLE

85
86
87
gg

10000
20000
40000

000000

3(1)

3
PAGE 1-3

;CONSTANT OFFSETS FOR INDIVIDUAL DRIVE BUFFERS

57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
g}

000000
000002
000004
000006
002234

;

CSR=
VECT=
TYPDR=
DRBT=

0
2
4
6
ENDMOD

SEQ 0029

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC~79 10:40

e
e
e
R
R
B
e
e
S
e
e R
e
I
S
S
e
o

SR&

e I

Yy e

S BB

NANNNWNWNWW

NNV S D da D DD Dol

e Je

Y —

95
96
97
98
99
100
101
102

150

MACY11

30A(1052)
17-DEC=79
11:21
GLOBAL EQUATES SECTION

PAGE 1-4

.SBTTL GLOBAL DATA SECTION

000000

BGNMOD

GLBDAT

HDRFND:

.WORD

. 1=HEADER IN BAD SECTOR LIST

JHERE IS THE LIST OF TRACKS TO USE FOR THIS TEST
;TRACKS ARE ENTERED BY 'FNDTRK' ROUTINE £ °'FIXTRK' ROUTINE
OUT10:
ouT20:
oUT30:
OUT40:
oUTS0:
OUT11:
ouUT21:
oUT31:

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

0
0
0
0
O
0
0
O

0QU20:

.WORD

OUT41:
oUTS1:
0Qu10:
0Qu30:
0QU40:
0QUS0O:
0QU11:
0QU21:
0QU31:
0QU41:
0oQU5S1:

MID10:
MID20:

MID30:
MID40:
MIDS0:
MID11:
MID21:
MID31:
MID41:

MIDS1:
TQU10:
TQU20:
TQU30:
TQU4O:
TQUSO:
TQU11:
TQU21:
TQU31:
TQU41:
TQUS1:
INN10:
INN2O:
INN30:
INN4Q:
INNSO:

INN11:

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

J
0
0
0
0
0
0
0
0
0
O

0
0

0
0
0
0
0
O

;OUTER TRK HEAD 0

;OUTER TRK HEAD 1
.

:1ST QUARTER TRK HEAD 0

;1ST QUARTER TRK HEAD 1

:MIDDLE TRK HEAD 0

;MIDDLE TRK HEAD 1

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

:3RD QUARTER TRK HEAD 0

:3RD QUARTER TRK HEAD 1

:INNER TRK HEAD 0

:INNER TRK HEAD 1

SEQ 0030

002372
002374
002376
002400

000000
000000
000000
000000

D —

m?gum~03m\co~mbum—ooogwgmgww—-gomwo\nbwm—-

NNYT
N NN

CZRLLBO RLO1/02 _DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40

D
i
D

000170

INN21:
INN31:

.WORD
.WORD

O .
O

INNS1:

.WORD

INNG1:
.EVEN

.WORD

11:21

3
PAGE 1-5

SEQ 0031

SECLST:

.BLKW

16.

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

)

D i

000020

SECBUF: .BLKW

5%24.

;LIST OF TRACKS USED TO OVERWRITE TEST.
;FIRST FIVE ARE CYLINDER ADDRESSES OF TOP SURFACE.
;LAST FIVE ARE CYLINDER ADDRESSES OF BOTTOM SURFACE.

)
d
d

OVWTRK: OUT30
0QuU30
MID30
TQuU30
INN30
ouT31
0Qu31

)

-l —d —d —
—

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

;SECTOR LIST FOR LAST DRIVE WRITTEN
;MAP OF 16 SECTOR DRIVE BITS

0000000 NN NN NNNNYNvNoOoOO

MACY11

MID31
TQu31

002374
152525
133333
066666
155555

INN31

PATLST:

.WORD

.WORD
.WORD
.WORD

152525

133333
066666
155555

BRBILBRAC2E

—

187
188
189

200

MACY11

17-DEC=79
30A(1052)
GLOBAL DATA SECTION
TEM:
.WORD
T.DRIVE: .WORD

FOWR:

.WORD

LSTCLR:

.WORD

TEMP:

REASON:

ERFLG:
STFLG:

ADJLOC:
ADJFLG:
ADJDIR:

DRSOTAT:

HSFLG:

OSECT:
HEADC1:
DIRC:

SURF :
LYL:

coNONWVNES
W

) ax

b ca

cutd

LSLSISTNT,N
1,8}

212

219

.WORD

FADJ:

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD

REVSK:
FORSK:

.WORD
.WORD

PRSTRK:

.WORD

E.BA:

.WORD

E.MP:
E.MP1:
E.MP2:

.WORD
.WORD

BBA:

.WORD

BMP:

.WORD

WUT: SECT:
LSTDRV:
GDATA:
BDATA:
WCOUNT:
SECWRD:
OFFSET:
LSTTRK:
FRTTRK:

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

SURFACE: .WORD
TRKFND: .WORD
TRKCNT: .WORD
E.LS:
.WORD
E.DA:

B(S:
BDA:

SERNM1:
SERNMZ2:

.WORD

.WORD
.WORD

ADJTRK:
ADJUUT:
ADJLC2:
ADJLCS:

.WORD
.WORD
.WORD
.WORD

STSEC1:

.WORD

ADJLC4:
STSEC:

BUF :

.WORD
.WORD

.BLKW

Paielelelelelelelelelelelelelolelolololololelolelalelolololololololololololololelololalolololololelslslolels]

CZRLLBO RLO1/02 DRIVE C OMPAT
CZRLLB.MAC
07-DEC-79 10:4 0

072.

11:21

SEQ 0032

PAGE 1-6

;LAST CONTROLLER
;DRIVE ERROR REASON
;ERROR FLAG

;PROGRAM START UP FLAG

;TRACK INDEX FOR ADJ. CYL TEST
:FLAG FOR ADJ.

STORE OR RETRIEVE

;ADJACENT SEEK DIRECTION

:SURFACE FLAG
;DIRECTION OF SEEK

JREVERSE SEEK
;FORWARD SEEK
JUNIT UNDER TEST
;SECTOR
;LAST DRIVE
;GOOD DATA
;BAD DATA
sWORD COUNT
;SECTOR WORD
s INCREMENT
;LAST TRACK OF SEARCH
;FIRST TRACK OF SEARCH
;PRESENT TRACK
s SURFACE
s TRACK FOUND
s TRACK COUNT
:IMAGE OF CSR
. IMAGE OF BUS ADDRESS
;IMAGE OF DISK ADDRESS
: IMAGE OF MULTI-PURPOSE WORD ;
L

: COMMAND LOADED
:BUS ADDRESS LOADED
:DISK ADDRESS LOADED
:WORD COUNT LOADED
:SERIAL NUMBER OF CATRIDGE

*INSIDE/OUTSIDE FLAG
-

JUUT FOR "‘ADJCYL''

:TEMP LOC FOR “ADJCYL""

:SECTORS TO WRITE "ADJCYL'®

*BUFFER FOR 24 SECTOR READS

247

017236

D
)

017236
017240
017242
017244

000000
000002
000004
000006

017246
017250
017252
017254

000000
000002
000004
000006

017256
017260
017262
017264

N
N

000000
000000

MACY11

30A(1052)
17<CEC=79
GLOBAL DATA SECTION
XDELAY:
YDELAY:

.WORD
.WORD

0
0

:
DRBUF

11:21

3
PAGE 1-7

SEQ 0033

;DELAY FOR WAIT MICRO-SECOND MACRO

;DELAY FOR WAIT MILLI-SECOND MACRO
;DRIVE INFORMATION BUFFERS

CSR
VEC

;CONTROLLER ADDRESS

PAT

;PATTERN UNIQUE

CSR
VEC

;CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS

;VECTOR

sDRIVE SELECT BITS

TO DRIVE

;PATTERN UNIQUE

000000
000002
000004
000006

CSR
VEC
DSB

s CONTROLLER ADDRESS
;VECTOR
sDRIVE SELECT BITS

017266
017270
017272
017274

000000
000002
000004
000006

CSR
VEC
DSB

;CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS

017276
017300

000000

TO DRIVE

;sPATTERN UNIQUE

TO DRIVE

PAT

N
N
N
N

N
= oN

gooz

PAT

s N

i
D e
e

N PN

d e

N PN

d
D
d
D

NN PN TN PN
N

d e
)

N PN

e
—

017232
017234

N PN PN PN

243
244

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40

PAT

:
ENDBUF

.WORD
ENDMOD

;PATTERN UNIQUE

TO DRIVE

;END OF DRIVE BUFFERS

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC=79 10:40

MACY1T

17-DEC=79
30A(1052)
GLOBAL TEXT SECTION

11:21

PAGE

1-8

.SBTTL GLOBAL TEXT SECTION
GLBTXT
BGNMOD

017300

= ON=0MNN

— e ()

b ek =2 )

;GLOBAL TEXT

020115
020142

020172

CNTTOT:
INITWR:
DCKER:

.ASCIZ
.ASCIZ
.ASCIZ

/CONTROLLER TIMED OUT/
/ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE /
/ERROR ON READ/

MANY :
NONE :

.ASCIZ
.ASCIZ

/MAXIMUM OF FOUR DRIVES ALLOWED/
/TEST ABORTED = CAN'T FIND ANY GOOD SPOTS/

FEW:

020172

/MINIMUM OF

TWO DRIVES REQUIRED/

OVMES:
RECMS:
ERRFND:
OVWER:

.ASCIZ
.ASCIZ

/TRYING TO OVERWRITE DRIVE /
/TRYING TO READ DATA WRITTEN BY DRIVE /
/CAN'T FIND FIVE ADJACENT TRACKS/
/OVERWRITE ERROR/

WRIT1:
READ1:

L.ASCIZ
.ASCIZ

/ERROR WRITING SECTOR/
/ERROR READING SECTOR/

RECER:
FUNERR:
SKER:
FWD :
REV:

040512

.ASCIZ

ADJTXT:

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

/READ RECOVERY ERROR/
/ERROR IN SEEK OPERATION/
/MIS SEEK ERROR/
/FORWARD/
/REVERSE/
/ADJACENT CYLINDER TEST/

ENDMOD

.SBTTL GLOBAL ERROR REPORT SECTION

020172

BGNMOD

GLBERR

020172

BGNMSG

ERR1

020172
020172
020176

013746
013746
013746
012746
012746

020222

003156
003150
003152
021477
000004

#4,-(SP)
SP,RO

TRAP

L10000:

020230

BGNMSG

020246

MOV
MOV
ADD

020226
020226
020226

000005
000000
021200
000003

#FRM10,FRTTRK,LSTTRK,SURFACE
SURFACE ,=(SP)
LSTTRK,=(5r)
FRTTRK,=(SP)

MOV

000012

005046
156416
016446
012746
012746

PRINTB
MOV
MOV
MOV

#FRM10,-(SP)
CSPNTB

#12,SP

ENDMSG

TRAP

ERR?2

PRINTB

CLR
BISB
MOV
MOV

MOV

C$MSG
#FRM4,CSR(R4) ,<B,DSB+1(R4)>

=(SP)
DSB+1(R4)
, (SP)
CSR(R4) ,-(SP)

#FRM4
, - (SP)

#3,-(SP)

SEQ 0034

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
(3)

020252

104414

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

317
318

020270
020272
020276
020302
020306
020312
020314
020316

020322
020326

MOV
TRAP
ADD
JSR

000010
026120

L10001:

104423

020270
020270

J 3
17-DEC=79
11:21
~PAGE 1-9
30A(1052)
GLOBAL FRROR REPORT SECTION

010600
062706
004737

315
316

MACY11

ENDMSG

012746
012746

#10,SP

PC ,REGDMP

JREGISTER DUMP ROUTINE

C$MSG

BGNMSG

005046
156416
016446

SP,RO
CSPNTB

fiigfl?.CSR(R4) ,<B,DSB+1(R4)>

000005
000000
021200
000003

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

#FRMG
, - (SP)

#3,-(SP)

SP.RO
CSPNTB

000010
026120

#10,SP

PC ,REGDMP

:REGISTER DUMP ROUTINE

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

013746
013746
013746
012746
012746
010600

003132
003122
003120
021241
000004

062706

000012

005046
156316
016346
012746
012746

#12,SP
xigggs,csn<n3),<s,ose+1<R3>>

000005
000000
022030
000003

,
(SP)
DSB+1(R3)
CSR(R3),-(SP)

104414

#FRMS, - (SP)

#4,-(SP)

SP.RO
CSPNTB

#FRM16,
= (SP)

000010

ADD

L10002:
BGNMSG

SP,R0
CSPNTB
#10,SP

ENDMSG
TRAP

C$MSG

ERR4
PRINTB

000005

#;gg?.CSR(Rk),<B,DSB+1(R4)>
DSB+1(R4)
, (SP)
CSR(R4) ,-(SP)

#FRM4
, - (SP)
#3,-(SP)

327

(10) 020454

000010
026120
013746

003132

SP,RO
C$PNTB

PRINTB

JSR

#10,SP

PC ,REGDMP
#FRMS ,<SURF>,<CYL>,SECT
MOV
SECT,~(SP)

;JREGISTER DUMP ROUT INE

SEQ 0035

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC=79 10:40
(9
(8)
(7)

MACY11

K 3
17-DEC=79
11:21
PAGE 1-10
30A(1052)
GLOBAL ERROR REPORT SECTION

013746

MOV
MOV

CYL,=(SP)
SURF , = (SP)

#FRMS
= (SP)

(6)

#4,-(SP)

(4)
(4)

#12,5P

(3)

SP RO
CSPNTB

328

013746
013746
013746
013746
012746
012746
010600

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

(3)

104414

(4)
(4)

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

330
331
(3)
(3)
332
333
334
(9)
(9)

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

020566
020570
020574
020574
020574

#FRM& ,REASON, LSTDRV,LSTCLR,LSTDRV

LSTDRV,=(SP)
LSTCLR.=(SP)
LSTDRV.=(SP)

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

021310
000005

062706

000014

013746
012746
012746

003116
021331
000002

062706

000006

#5,-(5P)

SP RO

CSPNTB
#14,SP
#FRM7 ,DIRC
DIRC,=(SP)

#FRM7
= (SP)
#2,-(SP)

SP.RO
C$PNTB

#6,SP

L10003:

104423

020576

BGNMSG

005046
156416
016446

012746

000010
026120

L10004:
BGNMSG

000010
026120

TRAP

ERRS

PRINTB

CLR
BISB
MOV
MOV
MOV
MOV

000005
000000
021200
000003

000005

ENDMSG

C$MSG
#igg?.CSR(Ré),<B.DSB*1(R4)>

)
, (SP)
DSB+1(R4
CSR(R4) ,-(SP)

#FRM4
- (SP)

#3,-(SP)

SP,RO
CSPNTB

TRAP
ADD

#10,SP

TRAP

C$MSG

JSR
ENDMSG

ERR6

PRINTB

CLR
BISB
MOV
MOV
MOV
MoV

PC ,REGDMP

#igg?,CSR(R4),<B.DSB*1(R4)>

)
, (SP)
DSB+1(R4
,-(SP)
CSR(R4)

#FRM& ,=(SP)

TRAP
ADD

#3,-(SP)
SP,RO
CSPNTB
#10,SP

PRINTB

#FRM17 ,R1,E.MP

JSR

PC ,REGDMP

SEQ 0036

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC~79 10:40

013746

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

PAGE 1-11
MACY11 30A(1052) 17-DEC=79 11:21
GLOBAL ERROR REPORT SECTION

003172

E.MP,=(SP)

022115
000003

(4)
(4)

000010

L10005:

020722

020724

02214

2 R R %
38
%
2.3 FrErfreRReRRReRs

;FORMAT STATMENTS

022242
022242

047125
050101
053501

FRM1:
FRM2:
FRM3:
FRM4 :
FRMS:
FRM6 :
FRM7:
FRM8:
FRM9:
FRM10:
FRM11
FRM12:

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
L.ASCIZ
LASCIZ
ASCIZ

FRM14

LASCIZ

FRM13:

FRM1S

FRM16

022516
040445

FRM17:

042440

FRM18:
ENDPAS:

EVEN
ENDMOD

_ASCIZ

LASCIZ
LASCIZ

LASCIZ

_ASCIZ
.ASCIZ

/XNXAUNLOAD DRIVE X01%A ON CONTROLLER Z06%A AND REMOVE PACKXN/
/ANXAPLACE PACK IN DRIVE Z01%A ON CONTROLLER X06%A AND LOAD [TZN/

'INXAWRONG PACK

# IS XOSZ0S5%A # S/B %05%0SANZN!

/%ACONTROLLER: X06XA DRIVE: Z01%XN/
/XAHEAD: ZO1XA CYL: X¥Z3%A SECTOR: %Z2%N/
/XTX01%A ON Z06XN/
/XASEEK DIRECTION: XTZNXADATA:2IN/

'ZAWORD: XZ3%A S/B: Z06%A WAS: XO06XN!
/XD3%A WORDS BAD OUT OF 128 READAN/
/XABETWEEN XZ3X%A - XZ3%A HEAD: XO01%N/
/INXAPWR FAIL NOT SUPPORTEDZIN/
/XABEFORE CS: X06%A BA: XO6%A DA: Z06%A MP: %06/
/ANXAAFTER
C(S: X06%A BA: X06%A DA: Z06%A MP: XO06%N/
/XNXA DRIVE STATUS: 206/
/XNXACAN'T FIND BAD SECTOR FILE/
/XAADJACENT WRITTEN BY CONTROLLER: X06%A DRIVE: ZO1IN/
/XAEXP'D: %06%A REC'D: ZO06XN/
/XNXAUNLOAD ALL DRIVES TO BE USEDXN/
/%N%A END OF PASSZNZN/

SEQ 0037

CZRLLBO RLO1/02 _DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40

MACY11 30A(1052)

17-DEC=79

11:21

GLOBAL ERROR REPORT SECTION

3
PAGE 1-12

SEQ 0038

;LOAD PROTECTION TABLE
BGNPROT

022242

022242
022244
022246

.WORD
WORD

177777

.WORD

022250

ENDPROT

022250
022250
022250
022252
022254
022256
022260
022262
022262

BGNMOD
BGNHW

000004

174400

000160
00000
000000

ENDHW

ENDMOD

022262

BGNMOD

022266

000001
032304

DISPATCH

ENDMOD

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

HPTCODE

.WORD
.WORD
.WORD
.WORD
.WORD

L10007-L$HW/2
174400
;CSR
160
;VECTOR
1
;RLOT OR RLOZ2 (RLO1=1)
O
;DRIVE NUMBER

L10007:

022262

022262
022262
022264

0
-1
6

DSPCODE

.WORD
.WORD

|
1
T1

IN P=TABLE

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
3N
412

413
414
415
416
417

(3)
(3)

418
419
420

421

422
(&)
(5)

MACY11 30A(1052)
17-DEC=79 11:21
INITIALIZATION SECTION

3
PAGE 1-13

SEQ 0039

.SBTTL INITIALIZATION SECTION

022266

BGNMOD

022266

022272

022274
022302

022304

INITCODE
BGNINIT

012700

000340

023727
002006

002012

104441

022314

104454
000023
017425
000000
000137

022320
022326

023727
003406

013737
005001
012704
012702
005737
001423

000002

023664
002012

000004

90%:

LSUNIT,#2

002012

017236
003046
003130

003130

91s:

1%:

002012
017236
003064
003062

000034

JYES,

OKAY

19.,FEW

gngSF

.WORD

BEU

JMP

CMPENA

;CLEAN CODE WHEN < 2 DRIVES

CMP
BLE

#4
LSUNIT,
91%

;MORE THAN FOUR
;NO, OKAY

20. ,MANY
SgERSF

.WORD

gANY

JMP

CMPENA

;CLEAN CODE WHEN > 4 DRIVES

MOV

k?UNIT.UUT

MOV
MOV

#DRBUF ,R4
#PATLST ,R2

;GET NUMBER OF UNITS
;INIT P-TABLE
sSET UP DRIVE BUFFER
sGET LIST OF PATTERNS

BEQ

END

TST

uuT

R1,R0O
R1,RO

MOV
MOV
MOV
MOV
MOV

(RO)+,CSR(R4)
(RO)+,VEC(R4)
(RO)+,T.DRIVE
(RO) ,DSB(R4)
(R2) ,PAT(R4)

TST
INC
DEC

ADD
BR
MOV

MOV
CLR
CLR
READEF
MOV
TRAP

s ANY

P-TABLES LEFT?

:NO,GO TO END
;GET A P-TABLE

GPHARD
MOV
TRAP

003130 END:

;MORE THAN TWO

TRAP

023664

C$SPRI

90%

ERRSF

003130
000010

104447

CMP

ERRSF

000000
009002
003062

012700

#340
#340,RO

TRAP

104454
000024
017464

000000
000137

SETPRI
MOV

C$GPHRD

(R2)+
R1
uuT

]

;GET CSR
;GET VECTOR

;RLO1/2 TYPE ... RLO1=1
:GET DRIVE
;NEXT P TABLE

H#PAT+2
R4
1%

LSUNIT,UUT
#DRBUF ,R4
FADJ
FOWR
#EF .PWR
#EF .PWR,RO
CSREFG

sNEXT DRIVE

:GET BEGINNING OF BUFFER
*CLEAR ADJ. TEST FLAG
*CLEAR OVERWRITE FLAG
~

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC~79 10:40
453
(2)
454
(7)
(6)
(3)
(&)
22%

456
457
458
459

229

022470
022470
022472
022472
022476
022502
022506
022506

MACY11 30A(1052)
17-DEC=79 11:21
INITIALIZATION SECTION

PAGE 1-14

SEQ 0040

BNCOMPLETE
SETUP
BCC
SETUP
PRINTF
#FRM11
MOV
#FRM11,=(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#4,SP

103010
012746
012746
010600
104417
062706

021543
000001
000004

:INITIALIZE ROUTINE
:WE ATTEMPT TO LOCATE S PERFECT ADJACENT TRACKS AT § SPOTS
:ACROSS THE PACK.

‘

:THE S SPOTS ARE:

(EACH SURFACE)

462
463
464
465

*OUTER = TRACK 0 = 16 (BOTH RLO1 & RLO2)
SINNER = TRACK 238 = 254 (RLOT) OR 494 - 510 (RLO2)
:MIDDLE = TRACK 120 = 136 (RLO1) OR 248 - 264 (RLO2)
:ONE QUARTER = TRACK 56 = 72 (RLO1) OR 120 = 136 (RL0O2)

223

:IF WE FIND ANY BAD SPOTS, WE WILL REPORT SO.......cee..

zgg

:THREE QUARTER = TRACK 184 = 200 (RLO1) OR 376 = 392 (RLO2)

470
471
472
473
474
(7)
(6)
(3)
(&)
(4)
475
476

022512
022516
022524
022532
022532
022536
022542
022544
022546
022552
022556

005237
012737
012737

003076
177777
177777

922151
000001

480

022562
022566
022572

022576

012746
012746
010600
104417
062706
004537
004537
004537
012701
012700

022602
022604

012721

005300
001374

484
485

022606
022612

004537
000001

030626

488

022616

000000

000020
000020

491

022626

005737

003160

494
(4)

022634
022634

(5)

022640

477
478
479

481
235

239

238
235

022614

022622

022632

000004
031676
031124
030400
002236
000062

177777

000000

001005

104456
000012
017675

003210
003212

SETUP:

1$:

INC
MOV
MOV
PRINTF
MOV
MOV
MOV
TRAP
ADD
JSR
JSR
JSR
MOV
MOV

STFLG
#-1,SERNMI
#-1,SERNM2
#FRM18
#FRM18,~(SP)
#1,-(SP)
SP,R0
CSPNTF
#4,SP
RS,LOAD
RS . SERNUM
RS .MERGE
#0UT10,R1
#50. R

DEC
BNE

RO
18

MOV

RS, FNDTRK

.WORD

0,16.

TST

:TRY TO FIND FIVE TRACKS
*INWARD SEARCH

*TOP SURFACE
0,16.
TRKFND

BNE

ERRHRD
TRAP

10.,ERRFND,ERR1
CSERHRD
10
ERRFND

.WORD

:TELL OPERATOR TO LOAD
*GET SERIAL NUMBER
*MERGE BAD SECTOR FILES
SINITIALIZE ALL TRACKS

#177077.(R1)+

JSR
1

.WORD

JINDICATE A START COMMAND

;WAS SEARCH SUCCESSFUL????

SYES
;NO TRACKS

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC~79 10:40

022642
022644

020172
000404

022646
022652

012700
004537

PAGE 1-15

2%:

#0UT10,RO
RS,FIXCYL

022656

030626

3s:

R5,FNDTRK

022666
022672

000020
000020

022676
022702

003160

0.16.
0.16.
TRKFND

022704
022704
022706
022710
022712
022714

10. ,ERRFND ,ERR1
CSERHRD
10
ERRFND
ERR1
5%

022716

002250
031070
030626

4%:

022746
022752

003160

— e

sTRY TO FIND FIVE

; INWARD SEARCH

:vgg

SUCCESSFUL????

;NO TRACKS

254.,238.
510.,496.

: TRACK RANGE

TRKFND

10. ,ERRFND ,ERRT
CSERHRD
10

TRACKS

;BOTTOM SURFACE

:STORE TRACKS AWAY

022754
022754
022756
022760
022762
022764

;STORE AWAY TRACKS FOUND

#0UT11,RO
RS,FIXCYL
RS,FNDTRK

5%:

000356
000756

022742

SEQ 0041

ERR1
3s

002236
031070

d e e

d \J)

ONO
VS WN=20O v~

wviviwuaunni
I
A o~

(5)
495
496
497

17-DEC=79
11:21
MACY11 30A(1052)
INITIALIZATION SECTION

;FIND NEXT 5 TRACK
;OUTWARD SEARCH
:TOP SURFACE

;WAS SEARCH SUCCESSFUL?
JYES
;NO TRACKS

ERRFND

ERR1
7$

:SKIP

022766
022772

002356
031070

6%:

#INN10,RO

;STORE AWAY TRACKS FOUND

022776
023002
023004
023006
023012

030626

7%:

RS ,FNDTRK

000356
000756

254, ,238.
510.,494.

sNEXT SET
;OUTWARD SEARCH
;BOTTOM SURFACE

023016
023022

003160

TRKFND

104456
000012
017675

RS, FIXCYL

10. ,ERRFND ,ERRT
CSERHRD
10

ERRFND

s SEARCH SUCCESSFUL?
; YES

;NO TRACKS

CZRLLBO RLO1/02 _DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40

17-DEC=79
11:21
MACY11 30A(1052)
INITIALIZATION SECTION

4
PAGE 1-16

SEQ 0042

023032
023034

020172
000404

023036
023042

012700
004537

002370
031070

8%:.

MOV
JSR

#INN11,RO

;STORE AWAY TRACKS FOUND

023046
023052
023054
023056
023062

004537
000001
000000
000176
000376

030626

:
9%

JSR

R5,FNDTRK

JNEXT SET
s INWARD SEARCH
;TOP SURFACE

023066
023072

023120

. WORD
BR

ERR1

RS, FIXCYL

000210
000410

254.,264.

126.,136.

; TRACK RANGE

005737
001020

003160

TRKFND

108

;DID WE FIND A SET
s YES

004537
177777
000000
000202
000402
005737
001005

030626

RS ,FNDTRK

sNEXT SET (OTHER SIDE)

000170
000370
003160

130..,120.
258.,248.

023122
023122
023124
023126
023130
023132

000012
017675
020172
000404

023134
023140

012700
004537

TRKFND

108

10. ,ERRFND ,ERR1
CSERHRD

104456

;OUTWARD SEARCH

:TOP SURFACE
: TRACK RANGE

;DID WE FIND A SET

2YES

;NO TRACKS

10
ERRFND

ERR1
11%

002306
031070

10%:

A#MID10,RO

RS,FIXCYL

;STORE AWAY

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC~79 10:40

MACY11

17-DEC=79
11:21
30A(1052)
INITIALIZATION SECTION

023144
023150
023152
023154
023160

030626
000210
000410

. WORD
- WORD

023164

003160

023172
023176
023200
023202
023206

030626

023212
023216

023170

4
PAGE 1-17
SNEXT SET

126.,136.

*RANGE

TST
BNF.

TRKFND

:SUCCESS?

JSR
-1

RS,FNDTRK

:LOOK THE OTHER SIDE
;OUTWARD

000170
000370

.WORD
.WORD

130.,120.

003160

TST
BNE

TRKFND

ERRHRD

10. ,ERRFND,ERRT
CSERHRD
10
ERRFND
ERR1
13$

JSR

)

254. ,264.
12%

;

TRAP

.WORD
.WORD
. WORD
BR

12%

002320
031070

12%:

MOV
JSR

#MID11.RO

023242
023246
023250
023252
023256

030626

13%:

JSR

RS ,FNDTRK

023262
023265

023270

]

000110
000210

:BOTTOM SURFACE

YES

*BOTTOM SURFACE

RS,FIXCYL

:SUCCESS?

JYES
:NO TRACKS

:STORE AWAY THE TRACKS FOUND
:NEXT SET

2 INWARD

*TOP SURFACE

.WORD
.WORD

62..72.
126.,136.

003160

TST
BNE

TRKFND
14%

:SUCCESS?
sYES

030626

JSR
-1

RS ,FNDTRK

:LOOK OTHER SIDE

000070
000170

.WORD
.WORD

003160

TST

BNE

023316
023316
023320
023322
023324
023326

ERRHRD
TRAP

012700
004537

*INWARD SEARCH

258.,248.

023232
023236

023310
023314

SEQ 0043

RS ,FNDTRK

11%:

023220
023220
023222
023224
023226
023230

023330
023334

002262
031070

14%:

66. ,56.

130.,120.

TRKFND
14$

10. ,ERRFND,ERR1

CSERHRD
10

. WORD
.WORD
. WORD
BR

ERRFND
ERR1
15%

MOV
JSR

RS, FIXCYL

#0QU10,R0O

*RANGE

* OUTWARD

*TOP SURFACE

*RANGE

:SUCCESS?
:YES

;NO TRACKS

:STORE AWAY NEXT SET

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40
615
616
617
618
g;g

023340
023344
023346
023350
023354

004537
000001
000001
000076
000176

030626

621
25%

023360
023364

005737
001020

624
625
626
627
g%g

023366
023372
023374
023376
023402

630
g%;

023406
023412

633
(4)
(5)
(5)

023414
023414
023416
023420

g%g

023424

104456
000012
017675
020172
000404

636
2%;

023426
023432

012700
004537

002274
031070

639
640
641
642
222

023436
023442
023444
023446
023452

004537
000001
000000
000276
000576

030626

645

023456

005737

003160

648
649
650
651
gg%

023464
023470
023472
023474
023500

004537
177777
000000
000302
000602

030626

654
ggg

023504
023510

005737
001005

003160

657

023512

(5)

229

023422

023462

MACY11 30A(1052)
17-DEC-79 11:21
INITIALIZATION SECTION

PAGE 1-18

SEQ 0044

JSR
1
1
.WORD
.WORD

R5,FNDTRK

003160

TST
BNE

TRKFND
16%

2 SUCCESS?
;YES

004537
177777
000001
000102
000202

030626

JSR
-1
1.
.WORD
.WORD

RS ,FNDTRK

;LOOK FOR ANOTHER SET
s OUTWARD
;BOTTOM
s RANGE

005737
001005

003160

TST
BNE

TRKFND
16%

ERRHRD
TRAP
.WORD
.WORD
BR

10.,ERRFND,ERR1
C$ERHRD
10
ERRFND
ERR1
17%

16%:

MoV
JSR

#0QU11,RO
RS,FIXCYL

;STORE AWAY TRACKS

17%:

JSR
1
0
.WORD
.WORD

R5,FNDTRK

sNEXT SET OF TRACKS
; INWARD
:TOP SURFACE
s RANGE

TST

TRKFND

s SUCCESS?

JSR
=1
0
.WORD
.WORD

R5.FNDTRK

;LOOK OTHER SIDE
;OUTWARD SEARCH
;TOP

TST
BNE

TRKFND
18%

001020

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

023512
023514
023516
023520
023522

104456
000012
017675
020172
000404

660
661

023524
023530

012700
004537

000110
000210

15%:

000070
000170

.WORD

000310
000610

000270
000570

BNE

ERRHRD

002332
031070

18%:

62..,72.
126.,136.

66.,56.
130.,120.

190.,200.
382.,392.

18%

194.,184.
386.,376.

10.,ERRFND,ERR1

TRAP
.WORD
.WORD
.WORD
BR

C$ERHRD
10
ERRFND
ERR1
19%

MOV
JSR

#TQU10,RO
RS, FIXCYL

;LOOK FOR NEXT SET
; INWARD
;BOTTOM
s RANGE

s SUCCESS?
sYES
;NO TRACKS

;VES

s SUCCESS
JYES
;NO TRACKS

;STORE TRACKS AWAY

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40
663

17-DEC=79
11:21
MACY11 30A(1052)
INITIALIZATION SECTION

023534
023540
023542
023544
023550

004537
000001
000001
000276
000576

030626
000310
000610

.WORD
.WORD

382.,392.

023554
023560

005737
001020

003160

TST
BNE

20%

023562
023566
023570
023572
023576

004537
177777
000001
000302
000602

030626

023602
023606

005737
001005

003160

023610
023610
023612

104456

;

RS5,FNDTRK
190.,200.

JNEXT SET
> INWARD
;BOTTOM SURFACE
; RANGE

TRKFND

s SUCCESS?

JSR
-1

RS ,FNDTRK

.WORD
.WORD

194.,184.
386.,376.

;OTHER SET
;OUTWARD
;BOTTOM SURFACE

;RANGE

TRKFND

s SUCCESS

000270
000570

SEQ 0045

TST

BNE

20%

ERRHRD

10. ,ERRFND ,ERRT

TRAP

.WORD
.WORD
. WORD

C$ERHRD

; YES

;NO TRACKS

10
ERRFND
ERR1
21%

012700
004537

002344
031070

20%:

#TQU11,RO

;STORE SET AWAY

012700
012701
022720
001017
005301
001373

002236
000062

21%:

#0UT10,R0

;DID WE FIND ANY AT ALL

010100
104451
005201
005300
001373

023706
023706
023706
023706
023710

JSR

4
PAGE 1-19

000012
017675
020172
000404

104454
000003
017523
000000
005001
013700

023704

19%:

177777

002012

RS,FIXCYL
#50. ,R1
#-1,(R0O)+
EXIT
R1

22%:

CMPENA:

LSUNIT,RO

24%:

R1
R1,RO
C$DODU
R1
RO

24%

104444

C$DCLN
EXIT:

104411

L10010:

ENDINIT
TRAP

ENDMOD

CSINIT

;DO DROP UNIT

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC~79 10:40
023710
023710
023710
023712
023712
023712
023714

AUTOCODE
BGNMOD
BGNAUTO

000240

104461

023714
C23714
023714

023716
023716
023716
023720
023720
023720
023720
023722
023722
023722
023724

17-DEC=79
11:21
MACY11 30A(1052)
INITIALIZATION SECTION

ENDMOD
BGNMOD

000240

104412

L10012:

($AUTO

CLNCODE
BGNCLN

000240

L10013:

ENDCLN
TRAP
ENDMOD

CSCLEAN

DRPCODE
BGNDU
NOP
ENDDU
TRAP

ENDMOD

1-20

;DO NOTHING

NOP

BGNMOD

104453

TRAP

&4
PAGE

;AUTO DROP SECTION

NOP

ENDAUTO
L10011:

($DU

SEQ 0046

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC~79 10:40

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

023724
023724
023732
023736
023736
023740
023740
023742
023742
023746
023750
023754
023756
023762

012737
005437

000160
017232

002116

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

GLBSUB

TIME:

MUY
#160,L8DLY
XDELAY
NEG
READBUS
TRAP
C$RDBU

;GET OUTER DELAY .LOOP
;GET NEGATIVE OF MULTIPLY FACTOR
. Q-BUS?

DELAY

JWAIT

012727
000000
013727
000000
005367

024046

024050

012737

XTIME:

MOV

#160,L$DLY

2%:
3%:

002116
177772

103023

017232

000160
017234
017234
017234

012737

000150

012727
000000
013727
000000
005367
001375
005367
001367
005237
024140 002761

000020

002116
177772
177756

017234

002116

48:

017232

177756

002761
000207

#8171, (PC)+
0
LSDLY, (PC)+
O
-6(PC)
.~4
=22(PC)
.=20
XDELAY
1%
4%
#150,L8DLY
#1
#R1, (PC)+
0
LSDLY, (PC)+
O
-6(PC)
b
=22(PC)
.=20
XDELAY
3%
PC

177756

000001

BCOMPLETE
2%
BCS

MoV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
INC
BLT
BR
MOV
DELAY
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
INC
BLT
RTS

177772

002116

ASL
ASL
NEG

YDELAY
YDELAY
YDELAY

READBUS
TRAP
CS$RDBU

002116

SEQ 0047

BGNMOD

002116

000150

1-21

GLOBAL SUBROUTINES SECTION

1$:

000001

PAGE

.SBTTL

104407

103420

2%:

BNCOMPLETE
1%
BCC
1%
MOV
#150,L$DLY

DELAY
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC

#20
##20, (PC)+
0
LSDLY, (PC)+
0

;WAIT FACTOR EXPIRED?
;BRANCH = IF NO
JEXIT
;GET OUTER DELAY LOOP
;WAIT WITH RESPECT

;WAIT

TO FONZ BUS

FACTOR EXPIRED?

;BRANCH = IF NO

;RETURN

;GET OUTER DELAY LOOP
;MULTIPLY FACTOR BY 4

*GET NEGATIVE OF RESULT
1Q-BUS?

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

=6(PC)
.=4

BNE

=22(P(C)
.=20

BLT

INC

sBRANCH - IF YES

YDELAY

;WAIT

FACTOR EXPIRED?

sBRANCH = IF NO

CZRLLBO RLO1702 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40
762
763

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

764
765
766
767
768

024142
024144

024144
024150
024152
024156
024160
024164
024166
024172
024174
024200
024202

000417
012727
000000
013727
000000

000050

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION
1%:

002116
177772
177756

017234
3%:

BR
DELAY
MOV
MOV
. WORD
DEC
BNE
DEC
BNE
INC
BLT
RTS

&4
PAGE 1-22

SEQ 0048

#50
gfiSO.(PC)+

bsDLY.(PC)O
-6(PC)
<4

=22(PC)
YDELAY
1%

JWAIT FACTOR EXPIRED?
JBRANCH = IF NO

JRETURN

CZRLLBO RLO1702 DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40

770
771
772
773
774
775
776
777
778
779
780
781
782
783
7084
785
786
787
788
789

MACY11 30A(1052)

17-DEC=79

11:21

GLOBAL SUBROUTINES SECTION
sROUTINE

sCALL:
:
;

TO PERFORM OVERWRITE

OVWPER: MOV

RO,=(SP)

010046
010146
010246
010346
005000

012537
012537

003126
00372¢

MOV
MOV

R1.=(SP)
R2.=(SP)
R3,-(SP)
RO
(R5)+,FORSK
(R5)+ ,REVSK

024226
024232
024234
024240

012701
011102
021227
001500

003022

MOV
MOV
CMP
BEQ

HOVWTRK ,R1
(R1) ,R2
(R2) ,#=1
3$

024242
024246
024252
024256

005037
005037

003122
003120
000005

CLR
CLR

cyL
SURF

MOV
MOV
MOV

1$:

003120
025652

2%:

024466

024412
024416
024422
024424
024432
024436

013703
004537
000034
012737
004537
004537

024442
024444
024446

005721
005200
020027

;CLEAR CYLINDER/HEAD FOR SEEK

:SEEK TO CYLINDER

BIS
JSR
MoV
JSR

(R2) ,CYL
R5,SKCYL
FORSK ,R3
Sg.URSEC

MOV

#FWD,DIRC

000377

003122

BIS

000777
025652
003122
003120
003122
025652

003122

000012

:NO, EXIT

?3[SKCYL

CMP

SURF

RS, VEROW
RS . VEROD
CyL

#1,T.DRIVE
508

:BOTTOM SURFACE

;SEEK TO PROPER CYLINDER
sSECTORS TO WRITE
;GO WRITE SECTORS

;SET FORWARD DIRECTION
*VERIFY OVERWRITE

*VERIFY OTHER DRIVES DATA
;RLO1?
sNO

g?;?.CYL

JSET TO GO TO MAX CYL

BIS
JSR
CLR
CLR
BIS
JSR

#777,CYL
R5,SKCYL
cyL
SURF
(R2) ,CYL
R5,SKCYL

sMAX CYL FCR RLO2
sSEEK TO MAX CYLINDER ON DRIVE

MOV
JSR
.WORD

REVSK ,R3
R5 ,WRSEC
28.

;SECTORS TO WRITE
;WRITE THEM

JSR
JSR

RS, VEROW
RS5,VEROD

:VERIFY OVERWRITE

MOV

3%:

:DONE.
:GET START OF LIST OF TRACKS
*GET POINTER TO TRACK
.LEGIT TRACK??77277

JSR

JSR
JSR

003116

;USE TOP SURFACE, IF RO>5.
;USE BOTTOM SURFACE, IF RO>1

: TOP/BOTTOM
:TOP, BRANCH

003060

020060
026576
027162

;RO _HAS COUNT IF RO<S.

RO, 45
2%

003116

003124
024466

;SAVE RO, R1, R2, R3

CMP
BLT
INC

020050
026576
027162
003122
000001

50%:
51%:

&
PAGE 1-23

R5,0VWPER
JSR
SECTORS TO WRITE FORWARD
SECTORS TO WRITE REVERSE

024204
024206
024210
024212
024214
024216
024222

177777

TST
MP

#REV,DIRC

(R1)+
RO
RO, #10.

;DO ANOTHER SEEK

sSET DIRECTION

;VERIFY OTHER DRIVES DATA
s INCREMENT TO NEXT TRACK
sACCOUNT FOR IT
;DONE?

SEQ 0049

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40

MACY11

11:21
17-DEC=79
30A(1052)
GLOBAL SUBROUTINES SECTION

PAGE

1-24

024452

001267

BNE

;NO, GO BACK

024454
024456
024460
024462
024464

012603
012602
012601
012600
000205

MOV
MOV
MOV

(SP)+,R3
(SP) +,R2

;RESTORE REG.

MOV
RTS

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

JEXIT

SEQ 0050

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC~79 10:40

17-DEC=79 11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

PAGE 1-25

;ROUTINE TO WRITE SECTORS

;USED IN OVERWRITE TEST;ADJACENT CYLINDER TEST
RS ,WRSEC
JSR

s CALL

WRD

*R3 HAS BITMAP OF SECTORS TO WRI

%ETARTING SECTOR

;R4 HAS DRIVE BUFFER POINTER

WRSEC:

003232
000200
000006
100000

000007
003122

PAT(R4) ,(R1)+

R2
2%
#100000,R1
#7,TEM

003056
120%:

003056

000100

3%:

4%:

024560

003110
177600
003204
003066
177700
000047
000050
003232
003066
032002

6%:
11%:

003110

R2,439.
6$
#40. ,BDA

;DRIVE
JMASK FOR BIT MAP

:0, SKIP
;SET BOTTOM HEAD
;START AT SECTOR 28.
:ngTE THIS SECTOR?

;LOAD WORD COUNT

;LOAD DISK ADDRESS

:SAVE DISK ADDRESS

;LOAD BUS ADDRESS

ERFLG
5%

JERROR IN WRITING
:NO,0KAY

108
100. ,WRIT1,ERR2
CSERSOFT
100
WRIT1

ERR2

HSFLG

10%:

JWILL WRITE ONTO
;PACK FOR THIS

#BUF ,BBA
TEMP ,R2
RS5,LDFUNC

HSFLG

003110

]

(R5)+,R2
R1.,R3
5%

R2,BDA
R2.TEMP

003074

000
020070
020230

#HEAD ,R2

#177700,R2
003204
003202

:WRITE PATTERN INTO
+MEMORY THAT WE

TEM

HSFLG

003206

;SAVE RO

;SAVE R1
;SAVE R2

1208
SURF
3%

003120

024562

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

11%
110. ,WRIT1 ,ERR2
CSERHRD
110
WRIT1
ERR2

RESTORE DISK ADDRESS
;GO WRITE

SEQ 0051

CZRLLBO RLO1/702 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
024706
024710
024712
024714
024716
024720
024722
024724

005202
000241
006001
103320
012602
012601
012600
000205

;

MACY11 30A(1052)
17-DEC=79 11:21
GLOBAL SUBROUTINES SECTION
5%:

INC

CLC
ROR

MOV
MOV
RTS

(SP) +,R1
(SP)+,R0O
RS

BCC
MOV

4%
(SP)+ ,R2

PAGE 1-26

JNEXT SECTOR
;CLEAR CARRY BIT
;DONE?
;NO GO BACK

;REGISTERS AND EXIT

SEQ 0052

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC~ 79 10:40

003214
003114
000001
002236
003100

893

010102

025014
025016

005300
001414

025020
025022

005722

025046

000762

062737
022737
003366

003216

003230

012737
025012

17-DEC=79 11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

003230
003230

162737

000050

003230

025050
025054

021227
001002

177777

025056

000137

025524

025062
025066

005037
005037

003120
003122

025072
025076

005737
001403

003114

025100

052737

000001

025106

004537

025652

025112

011237

003122

025652
020050
003101

#1,ADJUUT

;START OF

#OUT10,R1
(R5)+,ADJLOC

1%:

MOV

2%:

MOVB

(R5)+,ADJLC2
(R5)+ ,ADJLC3
(R5)¢,ADJLCS
ADJLOC,RO

1%
agJDIR

#16. ,STSEC

5%:

cMP

CLR

003120

JSR

003116

022737
002003

000047

003230

025152
025160

013737

1627357

000050
003230

003230
025172

025166

004537

024466

7%:

MOV

;1S THERE ONE?

JNQ EXIT

JYES, GET REST OF INFO
;GET OFFSET

;STARTING SECTOR IS 16

;DOWN COUNT OFFSET
sFOUND IT?

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

; INDEX (R2)
;NO, NEXT SECTOR

;BACK FOR NEXT

(R2) ,#-1
5%

;LEGAL TRACK?
sYES, CONTINUE

13%

:NO PICK UP NEXT SET

SURF
CyL

;SET UP FOR OUTER TRACK

HEADC1
6%

JWHICH HEAD?
;TOP, SKIP
;LOWER HEAD,

SET IT!

RS,SKCYL

;SEEK TO OUTER TRACK

(R2) ,CYL

;GET DESIRED TRACK

RS,SKCYL

JSEEK TO IT

ADJLOC+1,R3
R3

JGET SECTORS TO WRITE
JALIGN IT

#39. ,STSEC
7%

;OVER FORTY?
sNO, CONTINUE

#40. ,STSEC

JYES BACK IT UP

R5,WRSEC

;WRITE SECTORS

#377 .R3

025142
025150

:
sPICK UP TRACK OFFSET

RO
48

#FWD ,DIRC

000377

TRACK LIST

;GET START INTO R2

#1,SURF

6$%:

sINIT TO TOP SURFACE

R1.R2

#40. ,STSEC

A ¥

SEQ 0053

s INSIDE/OUTSIDE TRACK FLAG

HEADO1

MOV
MOV

DEC

PAGE 1-27

ADJTRK

218:
208:

3$:

000042
000050

025116
025122
025130
025134
025136

ADJCYL: CLR
CLR

STSEC,8%

;SEEK DIRECTION

;CLEAR OUT HIGH BYTE

;STARTING SECTOR

CZRLLBO RLO1/02_DRIVE CO?BAZ
CZRLLB.MAC
07-DEC-79
0
9%8
949
950
951
952
953
954
955
956
957
323

025172
025174
025202
025206
025210
025216
025222
025224
025232
025240
025246

000000
013737
004537
000000
013737
004537
000000
013737
062737
022737
002003

gg?

025250

3g§

MACY11 30A(1052)
17-DEC-79 11:21
GLOBAL SUBROUTINES SECTION

025172
027510

025206

025206
027754

025222

003230
000010
000047

003226
003226
003226

162737

000050

003226

025256

013703

003220

ggg

025262

013737

003226

966

025270

004537

024466

968
9%9

025276
025304

013737
004537

025274
027510

025310

971
972
973
974

025312
025320
025324
025326

013737
004537
000000
022737

025310
027754

025324

000001

003060

976

025336

012737

000377

003122

g;z

025346

012737

000777

003122

gg}

025354

004537

025652

332

025360

011237

003122

985
986
ggg

025364
025370
025376

004537
012737
113703

025652
020060
003223

989
990

025402
025404

000303
042703

000377

993
33?

025416
025422

004537
000000

024466

996
997
998
999
1000
1001
1002
1003

025424
025432
025436
025440
025446
025452
025454
025460

013737
004537
000000
013737
004537
000000
013703
013737

025422
027510

025436

025436
027754

025452

9%7 025274
970

975

g;g

gg;

025310

025334

025344

025410

000000

001004

000403

013737

003230

003224
003226

8s:

5
PAGE 1-28

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

0
8%,108%
RS.VAJWR
O
108$,208$
RS,BSVWR
O
STSEC,STSEC1
#8..STSECT
#39.,STSECT
9

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

suB

#40.,STSECT

;YES BACK IT UP

MOV

ADJLC2,R3

:GET SECTORS TO WRITE

MOV

STSEC1,10$

;STARTING SECTORS

JSR

RS, WRSEC

:WRITE SECTORS

MOV
JSR

10$.110%
RS, VAJWR

:VERIFY THIS WRITE

MOV
JSR
.WORD
cMP

110$,2108
RS ,BSVWR
O
#1,T.DRIVE

MOV

#377.CYL

77%:

MOV

#777.CYL

88$:

JSR

RS, SKCYL

MOV

(R2),CYL

;SEEK BACK TO PROPER TRACK

JSR
MOV
MOVB

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

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

SWAB
BIC

R3
#377.R3

STSEC,11$

;ALIGN IT
*CLEAR OUT HIGH BYTE

JSR
L.WORD

RS, WRSEC
0

:WRITE PROPER SECTOR

MOV
JSR
.WORD
MOV
JSR
.WORD
MOV
MOV

11,1118
RS, VAJWR
0
111%,211%
RS,BSVWR
0
ADJLC4,R3
STSEC1,12%

1088:

2088:

98 :
025274

108 :
110$:

2108:

L.WORD
.WORD

BNE
BR

003116

025422

MOV
118:

111$:
211$:

025472

:VERIFY THIS WRITE

0
O

;VERIFY ADJ CYL + 1

77%

88$

:VERIFY THIS WRITE

:GET SECTORS
;GET SECTORS TO WRITE

SEQ 0054

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40

025466
025472

004537
000000

024466

025474
025502
025506

013737
004537
000000

025472
027510

025506

025510
025516
025522

013737
004537
000000

025506
027754

025522

PAGE 1-29

12%:

JSR
.WORD

RS .,WRSEC
0

;WRITE PROPER SECTORS

112%:

MOV
JSR
.WORD

12$,112%
R5,VAJWR
0

sVERIFY THIS WRITE

MOV
JSR

112%,212%
R5 .BSVWR
O

;VERIFY ADJ CYLINDERS + 1

TST
BNE
INC
BR
CLR
ADD
CMP
BGE
JMP

HEADO1
14$
HEADO1

212%:

.WORD

b ot

b il

VONOWVES WO

i
i

nlh cnlh

b ol clh

il i cnld

1004
1005
1006

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

025524

003114

13%:

003114
14%:
99%:

025556

;AT END OF

025562
025566

003064

003064
003214

15%:

003214
024744
003214
003216
003216

16%:

024744
025644
025650

18%:

003104

003130

FADJ

CLR

FADJ

TST

ADJTRK

BEQ
BR

15%
17%

BNE
INC
JMP
CLR
INC

16$
ADJTRK
21%
ADJTRK
ADJUUT

BEQ
JMP

17%
21%

TST

BNE

CLR
RTS

sNEXT SET OF TRACKS
sNEXT SET OF TRACKS
sEND OF LIST
cEND OF TRACK LIST
:NO GO BACK .

TRACK LIST NEXT GROUP OF WRITES

TST

CMP

17%:

99%
HEADO1
#10. ,R1
R1,#INNST
18%
2%

sWHICH HEAD WERE WE DOING?

ADJUUT ,LUT

(R5)
+

17%

ADJDIR
RS

;FIRST SET?

sNO, CONTINUE
Efi? CLEAR FIRST
:DONE BOTH INSIDE OUTSIDE
:TRACKS, YES 16%
:NO, SET INSIDE FLAG
;GO DO" INSIDE TRACK

:BACK TO OUTSIDE TRACK

:DONE WITH ANOTHER
;DONE TABLE FOR ALL WT?
sYES, FOR EXIT
sNO, GO BACK FOR NEXT
;BUMP EXIT TO END OF
:EQ?#E FOR PROPER RETURN

SEQ 0055

CZRLLBO RLO1/02 DRIVE C OMPA (
CZRLLB.MAC
07-DEC=79 10:40

MACY11 30A(1052)

17-DEC=79

11:21

GLOBAL SUBROUTINES SECTION

S5
PAGE 1-30

1049

:ROUTINE TO SEEK TO A DESIRED CYLINDER

}825

*ROUTINE HAS ossxaeo CYLINDER IN LOC ‘‘CYL'

1050

1053

‘CALL:

1054
1055

02565¢
025654

010146
004537

1058
}323

025662
025666

005737
001104

1061
1062

025670
025672

005001
012737

1065
1066
1067
1068
1069
1070

025704
025706
025712
025714
025722
025726

006301
005337
001374
042737
163701
103002

}839

11822

025660

025700

000010

053701

032002

003074

000007

003122

4
:
003056

003172

LSKCYL

MOV
JSR

R1,=(SP)
RS,LDFUNC

;SAVE R1
;GET PRESENT POSITION

TST
BNE

ERFLG
5%

JERROR FLAG SET
*YES, SKIP

CLR
MOV

R1
#7.TEM

ASL
DEC
BNE
BIC
SUB
BCC

R1
TEM
1208
#177 ,E.MP
E.MP,R1
1%

RDHDR

BIS
1208:

003056
000177
003172

SKCYL:
90%:

JSR

CYL,R

JGET THE SELECTED CYLINDER NUMBER

;CALCULATE DIFFERENCE WORD

;IF POSITIVE SET DIRECTION

SEQ 0056

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40

025730
025732
025734
025740
025744
025750
025752
025756
025762
025766

005401
000402
052701
052701
005737
001402
052701
010137
004537
000006

025770
025774

005737
001041

003074

025776

004537
000010
005737
001033
042737
005001
012737
053701
006301
005337
001374
005737
001402
052701
020137
001414

032002

s NN

EERE
TR EEEEL

1072
1073
1074

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

000004
000001
003120

1%:

2%:

000020
003204
032002

3%:

000077

003172

000007
003122

003056
220%:

003120
000100
003172

BIS

TST
BEQ

#SIGN,R1

#MK ,R1
SURF

JNEGATE
;SKIP SETTING DIRECTION
;SET FOR FORWARD SEEK
;SET MARKER BIT
;TOP

R1.BDA
R5.,LDFUNC

;BOTTOM
sLOAD DIFFERENCE WORD
JEXECUTE SEEK

TST
BNE

ERFLG
5%

;ERROR?
;YES, SKIP

JSR

R5.,LDFUNC

;VERIFY POSITION?

ERFLG
5%
#77 ,E.MP

sVERIFY POSITION

BNE
BIC
CLR
MOV
BIS

ASL

DEC
BNE

BEQ
BIS

CMP
BEQ

104455

R1
#7,TEM
CYL.R1
R1
TEM

220%
SURF

#HEAD ,R1

R1,E.MP

N N S

C$ERDF
12

;SEEK ERROR

SKER

ERR6
908

025654

VO
N~ v
o

— =2

#SKHS ,R1

TST

A ¥

5
PAGE 2

BIS
MOV
JSR
SEEK

RDHDR
TST

003074

003056

NEG
BR

5%:

ERRDF

13. ,FUNERR ,ERRS sFUNCTION ERROR IN SEEK
CSERDF
13

FUNERR

025654
026116

ERRS
6%:

MOV

90%

(SP)+ ,R1
RS

;CANT GET THERE
JEXIT

SEQ 0057

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40

MACY11 30A(1052)

17-DEC=79
11:21
GLOBAL SUBROUTINES SECTION
ROUTINE

[ B S

026120
026120
026124
026130
026134
026140
026144
026150

N
N

== =
N
S WONNNDD PONONININDN)
N N
N N N VA WN =000
NN~

b
b
b

b cub cub asb
b

wd wd
b

b
b

b
i
b

and i cub

d
-

TO PERFORM REGISTER PRINTOUT DUMP
PC ,REGDMP
IFRH12 BCS BBA ,BDA ,BMP

BMP,~ (SP)

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

104414
062706
032737
001437
016403
012763
012737
056437
013763
032763
001774
016337

ADD
PRINTB

MOV

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

003164
000004
003200
003200
000000
000000

BIT
BEQ
MOV
MOV
MOV
BIS

2%:

BIT

003106

SP,RO
CSPNTB

#14,SP
#FRM13 ,E.CS,E.BA,E.DAE.MP

E.MP,-(SP)
E.DA,-(SP)

E.CS,=(SP)
#FRM13,-(SP)
#5,-(SP)

CSPNTB

#14,SP

#MITI14,E.CS
1%

CSR(R4) ,R3
#13,DA(R3)

#4 ,BCS

DSB(R4) ,BCS

BCS,CS(R3)
ggOO.CS(RS)

MP(R3) ,DRSTAT
#FRM14 ,DRSTAT

013746
012746

026322
026326

PAGE 2-1

BDA,=(SP)
BBA,-(SP)
B(CS,=-(SP)

013746
013746
013746
013746
012746
012746
010600

N~ b
NN

1126

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

1%:

RTS

#6,SP

SEQ 0058

(RLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40

MACY11

30A(1052)
17-DEC-79
11:21
GLOBAL SUBROUTINES SECTION

PAGE 2-2

1128
1129

JROUTINE TO STORE OR RETRIEVE ADJACENT CYLIMNDER SECTOR DRIVE
; INFORMATION FROM THE 24X5 "'SECLST'' BUFFER.

1132
1133
1134
1135

INFORMATION FOR SECTOR
SEXIT WITH RO = O IF SECTOR REQUESTED IS NOT IN BUFFER MAP
sCALL 1:
JSR R5,RSADJS
;
.WORD
0
JRETRIEVE SECTOR INFO.
sCALL 2:
JSR RS ,RSADJS

1130
131

1136
1137
1138
1139

1140

1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173

JENTER WITH RO = SECTOR REQUEST
JEXIT WITH RO = ADJACENT CYLINDER DRIVE

026330
026332
026334

010146
010246
010346

026342
026346
026352
026356
026362
026366
026370
026372
1726376
026402
026406
026410
026414
026416
026422
026424
026426
026430
026432
026436
026440
026444
026446
026450
026452
026454
026460
026462
026464
026466
026470
026472
026474

012537
012701
012702
012703
123701
001413
005201
062702
062703
020327
002765
162703
000762
012701
020003
001413
005722
005203
020327
003402
162703
005301
001365
005000
05
005737
001401
010412
011200
012603
012602
012601
000205

026336

042700

177700

003102
000001
002442
000020
003100

:
RSADJS: MOV
MOV
MOV

BIC

000060
000042
000050
000050

000030

000047
'
000050

003102

2%:
3%:

4%:

5%:

6%:
7%:

MOV
MOV
MOV
MOV
(MPB
BEQ
INC
ADD
ADD
CMP
BLT
SuB
BR
MOV
(MP
BEQ
TST
INC
(MP
BLE
SUB
DEC
BNE
CLR
BR
TST
BEQ
MOV
MOV
MOV
MOV
MOV
RTS
*

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

#177700,R0

(R5)+,ADJFLG
#1,R1
#SECBUF ,R2
#16. ,R3
ADJLOC ,R1
2%
R1
#48. R2
#34. ,R3
R3,440.
1%
#40. ,R3
1%
#24. ,R1
RO.R3
5%
(R2) +
k3
R3,439
3
#40. ,R3
R1
3$
RO
7$
ADJFLG
$
R4, (R2)
(R2) ,RO
(SP)+ ,R3
(SP)+ ,R2
(SP)+ R
RS

;STORE SECTOR INFO.

;SAVE SECTOR BITS

;SAVE RETRIEVE/STORE FLAG
sSTART WITH TRACK (N-2)
;START OF 24X5 BUFFER
;SECTOR 16 START IOR (N-2) TRACK
;CHECK TRACK INDEX
:
s INDEX TRACK REFERENCE
;UPDATE BUFFER TO NEXT TRACK REF.
JUPDATE SECTOR START FOR NEXT TRACK

:
;SET COUNTER FOR 24 SECTORS
;COMPARE SECTOR TO SECTOR TABLE
;YES,STORE OR RETRIEVE SECTOR INFO.
s INDEX SECLST BUFFER IN WORD FORMAT
s INDEX SECTOR COUNT
;COMPARE SECTOR COUNT FOR <40
;KEEP SECTOR COUNT<40
;PASSED 24 SECTORS?
; COMPARE NEXT SECTOR
;SETUP RO FOR EXIT

JEXIT ROUTINE,SECTOR NOT FOUND
;FLAG=0 FOR RETRIEVE

;STORE DRIVE INFO. INTO BUFFER
;SAVE DRIVE INFO. INTO RO FOR EXIT

JEXIT

SEQ 0059

CZRLLBO RLO1/702 DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40
-b

~
DD 200000000
D 3200030000 00000030~ I ~ o
N -

nd b
il
b
i
i
s
D
i) i
D
s
ol
i
b
)
oD
i
D
)
sl
i
) ol
-l i

17-DEC=79
30A(1052)
11:21
GLOBAL SUBROUTINES SECTION

SEQ 0060

PAGE 3

sROUTINE TO SET DRIVE IN SECTOR LIST
;RO HAS SECTOR
RS,SETLST
SCALL: JSR
‘DRIVE GOTTEN FROM Ré4

1175

1203

MACY11

026476

010146

026500

162700
100002

062700

SETLST: MOV

R1,=(SP)

:SAVE R1

SUB
BPL
ADD
MOV

#28. ,RO
38

:START LIST AT 0

#40. ,RO
#SECLST,R1

BEQ

L
:BEGINNING OF SE.TOR LIST

*FOUND SECTOR?

*BRANCH IF YES

000034

000050
002402

3%:

1%:

28:

:RCGUTINE

026536
026540
026544
026546
026552

010146
162700
100002

062700
012701
005700
001403

000034

000050
002402

DEC

MOV
MOV
RTS

R4, (R1)
(SP) +,R1
RS

ST
BR

TO LOCATE DRIVE

SCALL:

JSR

FNDDRV:

MOV

1%:

2%:

THAT WROTE SECTOR LAST

#40. RO
#SECLST,R1

BEQ
DEC

28
RO

*ON EXIT RO-DRIVE
:SAVE R1

*START LIST AT 0

(R1)+

MOV
RTS

(SP) +,R1
RS

MOV

;RO-CONTAINS SECTOR

R1,=(SP)

ADD
MOV
TST

(R1) ,RO

IN LIST

*STORE DRIVE BITS IN LIST
*RESTORE R1

#28. ,RO

026570
026572
026574

RS, FNDDRV

*NEXT ENTRY
*GO BACK

SUB

BPL
3% -

*DECREMENT SECTOR

(R1)+
1$

:START OF LIST

*FOUND SECTOR?

*YES, GET DRIVE #, EXIT
*NO, DOWN COUNT SECTOR
*NEXT ENTRY

*GO BACK

IN LIST

*GET DRIVE BUFFER POINTER

*RESTORE R1
CEXIT

CZRLLBO RLO1/02_DRIVE_COMPAT

NN D
a2 b

WN =20V~
WN

D e

b —

CZRLLB.MAC

07-DEC-79 10:490

MACY11

17-DEC=79
11:21
30A(1052)
GLOBAL SUBROUTINES SECTION

PAGE 3-1

SEQ 0061

:ROUTINE TO VERIFY THAT THE OVERWRITE DID ACTUALLY OVERWRITE THE
;PREVIOUS DATA ON THE PACK.

CALL:

JSR

R5,VEROW

USES R3 AS BIT MAP OF

CHECK.

SECTORS TO

R3 IS LOADED PRIOR TO

WRITING SECTORS.

026576
026600
026602
026604
026612
026616

010046
010146
010246

012737
012701
016437

VEROW:

000034

100000
000006
177600

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

R2,=(SP)

003132

#28.

003136

SECT

:SAVE REGISTER CONTENTS
:START VERIFY AT SECTOR 28

#100000,R1

;BIT MASK FOR VERIFICATION

#-128. ,BMP
#BUF ,BBA
#77 .BDA
SECT,BDA

:SET UP READ-ONE SECTOR
*BUS ADDRESS
*CLEAR OUT SECTOR BITS
*SET SECTOR

5%
RS, LDFUNC

;NO, BRANCH
*READ

PAT(R4) .GDATA

-GET PATTERN FOR THIS DRIVE

012737
012737
042737
053737
030103
001521
004537

032002

005737

003164

E.CS
48

:ERROR
*NO CONTINUE

005737
001412

003062

FOWR
218

;INITIAL WRITE
*NO

000014

100107

016037
116037

003232
000077
003132

003206
003202
003204
003204

017325
000000
000005

003072
003070
003134

017574
003132
026536
000000
000005

003072

104455
000015

017735
020416
005037
005037
012702
023712
001417
005237

003142
003144
003232
003136

011246
- 013746
013746
012746
012746
010600

003136
003144
021371
000004

003142

003070
003134

1%:

2%:

R1.R3

#INITWR,REASON

CSR(R&) .LSTCLR

DO WE READ THIS ONE?

-SETUP INITIAL WRITE OF

SECTOR

g§2+1(R4).LSTDRV

21%:

22%:

#OVMES ,REASON

;SET MESSAGE FOR OVERWRITE

WCOUNT

;CLEAR BAD WORD COUNT W/IN SECTOR

#BUF ,R2
GPATA, (R2)
318

;GET BUFFER START
;IS DATA CORRECT?
;YES CHECK NEXT

SECT,R0
*FIND DRIVE THAT LAST WROTE
RS, FNDDRV
*SECTOR
CSR(RO) ,LSTCLR
;GET IT'S CSR
DSB+1(RO) ,LSTDRV
;GET THE DRIVE
13. ,0VWER,ERR4
;PRINT ERROR
CSERDF
13
OVWER
ERR4
SECWRD

3%:

;CLEAR WORD IN SECTOR

WCOUNT
:NO ACCOUNT FOR IT
#FRM8,SECWRD ,GDATA, (R2)
(R2) ,-(SP)
GDATA,-(SP)
SECWRD,=(SP)
#FRM8,-(SP)
#4,-(SP)

SP.RO

CZRLLBO RLO1/02 _DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40
(4)
(4)
1258
1259

1260
1261
1262
1263
1264
(8)
(7)
(6)
(3)
(4)
(4)

1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280

104417

027042
027044

062706

000012

027050
027052
027056
027064

005722
005237
023727
001347

003144
003144

027066
027066
027072
027076
027102
027104
027106

MACY11

TRAP

31%:

000200

#12,SP

TST
INC

+
(R2)
SECWRD

CMP
BNE

003142
021435
000002

062706

000006

027112
027116

013700
004537

003132

027122
027126
027134
027136
027144
027146
027150

005237
023727
001003
162737
000241
006001
103225

003132
003132

000050

003132

027152
027154
027156
027160

012602
012601
012600
000205

TRAP
ADD

A ¥

026476

6%:

PAGE 3=2

SEQ 0062

CSPNTF

ADD

PRINTF
MOV
MOV
MOV
MOV

013746
012746
012746
010600
104417

30A(1052)
17<DEC=79
11:21
GLOBAL SUBROUTINES SECTION

SECWRD ,#128.
3%

SNEXT
SNEXT

;DONE WITH SECTOR?

;NO GO BACK

#FRMY ,WCOUNT
WCOUNT ,=(SP)
#FRM9 ,~(SP)
#2,-(SP)

sPRINT

SECT,RO
R5,SETLST

sSET SECTOR IN LIST TO THE
;CREDIT OF THIS DRIVE

SECT

sNEAT SECTOR

R1
1%

:CLEAR CARRY
sNEXT BIT
;IF CLEAR NEXT

SUMMARY

SP,RO
CSPNTF
#6,SP

SECT,#40.
6%
#40.,SECT

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

;RESTORE R2-RO, EXIT

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC-79 10:40

MACY11

17-DEC=79
30A(1052)
11:21
GLOBAL SUBROUTINES SECTION
;ROUTINE

b —_——

A~
s ASS S NN WWWWWWA
A A AWWWWWWW
S WO =N N NN VTNt
aaa
e
OIS WN - OV
Nvw
OB WN=2O

R
A1

vV W

1292

(4)

027162
027164
027166
027170
027174
027202
027206

010046
010146
010246
012701

012737
005737
001134

000034
003062

003132

027210
027216
027224
027232
027240
027242

012737
012737
042737
053737
030103
001103

177600

003206
003202
003204
003204

100000

027244
027250
027254
027262
027270

016037

027276
027302

004537
000014

027304
027310
027312
027320
027320
027322
027324
027326

005737

003164

012737

017627

027330

027350
027352
027356

100060

JSR

RS, VEROD

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

VEROD:

MOV
MOV
MOV

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

;SAVE RO=-R2

MOV

#28. ,SECT

MOV

;BIT MASK FOR SECTORS-

BNE

FOWR

sCHECK FOR FIRST OVERWRITE

1%:

MOV
MOV

#-128. ,BMP
#BUF ,BBA

;SET UP READ (ONE SECTOR)
:
;BUS ADDRESS
BITS
sCLEAR SECTOR
sSET IN SECTOR BITS
;CHECK THIS SECTOR?
sNO BRANCH

BIC

BIS

MOV
JSR
MOV
MOvB
MOV

SECT,RO
R5,FNDDRV

JSR

R5.,LDFUNC

sREAD

TST

£.(S

MOV

#RECMS ,REASON
14. ,RECER,ERRS
ngRDF

;ERROR?
:NO, NEXT SECTOR
;SET READ RECOVERY MESSAGE
;REPORT ERROR

.WORD

003136
003144
021371
000004
000012

3%:

SECT,BDA

§1'R3

BPL

003072

#77 ,BDA

;START WITH SECTOR 28

BIT

TRAP

003142

011246

#100000,R1

TST

104455
000016
017755
020416

005237

SEQ 0063

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

READ

003142
003144
003232
003136

PAGE 3-3

SCALL:

003070
003134
003136

005037
005037
012702
023712
001417

;FIND DRIVE THAT WROTE
;SECTOR LAST
CSR(RO) ,LSTCLR
:GET CSR OF DRIVE
DSB+1(R0O) ,LSTDRV
:GET DRIVE
PAT(RO) ,GDATA
;GET PATTERN

RECER

.WORD

ERR4

CLR
CLR
MOV

WCOUNT
SECWRD
#BUF ,R2

INC
PRINTF

MOV
MOV

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

ADD

#12,SP

CMP
BEQ

MOV

MOV
MOV

MOV

TRAP

GDATA, (R2)
4%

CSPNTF

;CLEAR BAD WORD COUNT
:CLEAR WORD W/I SECTOR
;START OF BUFFER
:DATA COMPARE
;YES, CHECK NEXT

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40
027410
027412

005722
005237
023727
001347

17-DEC=79
1 1:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION
(%:

000200

SEIE
S NNV-=0O0

i
il cnslh s
i ahs cnld
i

RRRRR wwau

wnll

1335

PAGE 3-4

(R2) +
SECWRD
§§CURD,'128.

JNEXT
;NEXT WORD IN SECTOR
;DONE?
;sNO
JPRINT SUMMARY

#FRMS ,WCOUNT
WCOUNT ,=(SP)
#FRM9 ,~-(SP)
#2,-(SP)

013746
012746
012746
010600
104417

7ST

027446

062706

000006

027452
027456
027464
027466
027472
027474
027476

005237
023727
001002
005037
000241
006001

003132
003132

027500
027502
027504
027506

012602
012601
012600
000205

003132

SP,RO
CSPNTF
#6,SP

SECT
§§C7.040.

000050
7%:

103244

6%:

sNEXT SECTOR

SECT
R1
1%

;NEXT BIT MAP

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

;RESTORE R2-RO, EXIT

SEQ 0064

CZRLLBO RLO1/02 DRIVE_COMPAT

CZRLLB.MAC

07-DEC=79 10:40

MACY11 30A(1052)

027510

010046

1354
1355

027516
027522

012701
012502

027512
027514
027524
027526

010146
010246
005000
053700

VAJWR:

100000

1360
1361
1362
1363
1364
1365
1366
1367
1368
1369

027540
027542
027546
027550
027554
027556
027562
027564
027566
027570

006300
005337
001374
005737
001402
052700
050200
030103
001462
012737

1372

027606

042700

027576
027602

027612
027616
027620
027626
027634
027642

1379 027646
1380
1381
1382
1383
1384

027652
027656
027660
027664
027666

1386
(4)
(5)
(5)

027674
027674
027676
027700

1385

(5)

027672

027702

1387

027704

1389
(4)
(5)
(5)
(5)
1390
1391
1392
1393

027712
027712
027714
027716
027720
027722
027724
027730
027732

1388

027710

003120
000100

177600

010037
010037

003204
003066

020027
003406
162737
162737
012737
005037

000047

013700

004537
000014
005737
001416
005737

001007

28:

003056

3$:
4$:
003206

000050
000050
003232
003110

003066
032002

6$:
108:

003074
003110

005237

000760
104456
000202
020115
020230
010046
004537
000001
012600

;SAVE REGISTERS

MOV
MOV

#100000,R1
(RS)+,R2

:BIT MASK FOR CYLINDER
*STARTING SECTOR

MOV

#7.7TEM

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

ASL
DEC
BNE
ST
BEQ
BIS
BIS
BIT
BEQ
MOV

RO
TEM
28
SURF
3s
#HEAD ,RO
R2.RO
R1.R3
58
#-128. ,BMP

BIC

SEQ 0065

#177700,R0O

RO,BDA
RO, TEMP

CMP
BLE
SUB
SUB
MOV
CLR

RO,4#39.
6$
#40. ,BDA
#40.
. TEMP
#BUF .BBA
HSFLG

JSR
READ
TST
BEQ
ST

RS, LDFUNC

MOV

BNE

TEMP,RO

:READ FUNCTION

ERFLG
7$
HSFLG

ERRSOFT 120.,READ1,ERR2
TRAP
sssasorr
.WORD
120
.WORD
READ1

104457
000170
020115

020230

RO,=(SP)

MOV
MOV

177700

'
003204
003066
003202

MOV

CLR
BIS

003122

}ggg 027532 012737 000007 003056

1373
1374
1375
1376
1377
1378

5
PAGE 4

*USING RSADJS/.WORD 1

1351

1370
1371

;ROUTINE TO VERIFY THE ADJ. CYL. WRITE IS GOOD
*USES R3 AND WORD FOLLOWING CALL
“IF WRITE WAS GOOD,SECTOR WILL BE STORED IN MAP

}ggg

1356
1357

11:21

GLOBAL SUBROUTINES SECTION

1346
1347
1348

1352
1353

17-DEC=79

.WORD

003110
11$:

026330

7%:

ERR2

INC

HSFLG

ERRHRD
TRAP
.WORD
.WORD
.WORD
MOV
JSR
LWORD
MOV

130.,READ1,ERR2
CSERHRD
130
READ1
ERR2
RO, ~(SP)
RS.RSADJS
;STORE ADJ. CYL. SECTOR INFO.
1
;
(SP)+,R0
;RESTORE RO

B8R

’

108

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
13%
1395
1396
1397

1398
1399
1400
1401

027734
027736
027740
027742
027744
027746
027750
027752

005200
000241
006001

MACY11 30A(1052)

17-DEC=79
11:21
GLOBAL SUBROUTINES SECTION
5%:

INC
CLC

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

PAGE 4-1

SEQ 0066

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40

17-DEC=79 11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

1403
1404
1405

;CALL

JSR R5,BSVWR
.WORD

;STARTING SECTOR

*USES "'ADJLOC'' TO GET +1/-1 CYLINDER OFFSET

*USES R3 FOR SECTOR MAP, USES MAP AT '‘SECBUF'' FOR INFO

=8Lo lo RNTo AV PV [N} -t &

b cxld and cd

b -b

i —_

027754
027756

BSVWR:

000003

oF o o P oF o o

i cd anb an

and

PP ol o

PAGE 4-2

;ROUTINE TO VERIFY THAT WRITE DID NOT DISTURB ADJACENT TRACKS
;WRITTEN BY OTHER DRIVES.

1406
1407
1408
1409

and

000001

RO,=(SP)
R1,=(SP)
R2,=(SP)
CYL,=(SP)
SURF ,=(SP)
(R5)+,-(SP)
ADJLOC ,#3
BSEXIT
#34.,(SP)
18
#40., (SP)
ADJLOC ,#1
INAWR
ADJLOC

;SAVE REGISTERS

;GET STARTING SECTOR
;ON MIDDLE TRACK???
;YES, THEN NO CHECK
;SETUP SECTOR START FOR OUTSIDE
:IF POSITIVE OKAY ELSE FIX
SFIXIT
sON OUTER LIMIT??2?
s YES,SKIP CHECK
;OUTER ADJ TRACK
;GO CHECK ADJ SECTORS
sFIX BACK

INAWR:

s INNER SECTOR START
sWITHIN LIMITS?2?
sYES, OKAY
sFIX SECTOR

000005

sINNER LIMIT??
;YES,SKIP CHECK
sFIX FOR INNER

*GO CHECK ADJ SECTORS
‘FIX BACK
BSEXIT:
NCHECK:

025652

+
(SP)
(SP) +,SURF
(SP)+,CYL
(SP)+,R2
(SP)+,R1
(SP)+,R0O
RS.,SKCYL
RS

“THROW OFF SECTOR

: SEEK BACK
;RETURN

SEQ 0067

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC~79 10:40
1652
1453
1454
1455
1456
1457

11:21
17-DEC=79
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION
sROUTINE

6
PAGE 4=3

SEQ 0068

TO VERIFY AN ADJACENT SECTOR

;CALLED FROM BSVWR
012701
004537
005002
053702

012737
006302
005337
001374
005737
001402
052702
056602
030103
001452

100000

CHECK:

025652

003122
000007

003056

2%:

003120

000100
000002

3%:

(%:

177700

000050
000050
000050
026330

003204
177600
032002

6%:

003206

ASL

DEC
BNE
TST
BEQ
BIS
BIS

BIT

BEQ
MOV
BIC
CMP
BLT
suB
su8
JSR
. WORD
TST
BEQ
MOV
MOV
JSR
READ

003074
003132
177700

MOV
JSR
CLR
BIS
MOV

003132

#100000,R1

R;,SKCYL

CYL.R2
#7,TEM
R2
TEM

;SECTOR MASK
sGET TO DLESIRED CYLINDER
;CREATE ADDRESS

SURF

:NO

2(SP) ,R2

;SET IN SECTOR

#HEAD ,R2

R1.R3
5%
R2,RO

;THIS SECTOR IN LIST??2?
JNO, NEXT

#177700,R0O
2?,#40.

;COPY SECTOR
JONLY SECTOR LEFT

;SECTOR OKAY?2?2?

#40. RO
#40. ,R2

SS.RSADJS

;YES

sFIX SECTOR
FIND IF SECTOR PREVIOUSLY WRITTEN
JWAS IT??
:NO
;LOAD DISK ADDRESS
:LOAD W(C
;LOAD

ERFLG
5%
R3,-(SP)

;WAS READ GOOD

RO.R3

#177700,SECT

140. ,ADJTXT,ERR3
CSERHRD

(SP) +,R3
110. ,READ1,ERR2

C$ERHRD

110
READ1

ERR2

sNEXT

R1
48
RS

JSHIFT MASK

SECTOR

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC~-79 10:40

MACY11

1499

30A(1052)
17-DEC=79 11:21
GLOBAL SUBROUTINES -SECTION

6
PAGE 4=4

SEQ 0089

:ROUTINE TO MERGE BAD SECTOR FILES

1500

JENTRY INTO THIS ROUTINE WILL OCCUR AFTER THE ‘'SERNUM'' ROUTINE

1503

:THIS ROUTINE WILL STORE THE FIELD BAD SECTORS INTO THE NEXT

1501
1502

;1S PERFORMED. THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN
:FIRST 400(8) LOCATIONS.

1504

;400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE

}282

:WITH THE FIELD BAD FILE.

1507

:FACTORY BAD AT BUF

}283

1510

1511
1512
1513
1514
1515
1516
1517

}g}g

:FIELD BAD AT BUF + 512.

030400

030402
030404
030406
030414
030422
030424
030432

030434

010146

010246
010346
012737
022737
001004
012737
000403

003632
000001

003202
003060

077724

003204

012737

177724

003204

55%:

177400
032002

003206

66%:
97%:

1520
1521
1522
1523
1524
1525
1526
1527
1528
}ggg

030442
030450
030454
030456
030462
030464
030472
030500
030502
030510

012737
004537
000014
005737
001431
062737
022737
001004
022737
001357

1531
1532

030512
030520

(6)
(3)
(4)
(4)
1534
(3)

030526
030532
030534
030536
030542
030542

1533
(7)

030522
030522

003204

077750

003204

022737
001353

177750

003204
s

012746
012746
010600
104417
062706

021771
000001

104422

030544

000776

1537

030552

012702

1538

1539
1540
1541
1542
1543
1544
1545
1546

1547
1548

030546

030556

030560
030562
030564
030566
030570
030572
030574
030600
030604
030606

003074
000004

1535

1536

MERGE:

012701

005721

100404
005721
005302
001373
000401
005741
012703
012702

012221
100403

000001

000004
.

003242

000176

000176
003642

003060

400$:

999%:
98%:

1%:

2%:
3%:
4%:

MOV

MOV
MOV
MOV
CMP
BNE
MOV
BR

MOV

R1,=-(SP)

R2,=(SP)
R3,-(SP)
#BUF +400,BBA
#1,T.DRIVE
55%
#77724 ,BDA
66%

:SAVE R1, R2, R3
:BUFFER START FOR FIELD BAD

#177724 ,BDA

MOV
JSR
READ
TST
BEQ
ADD
CMP
BNE
CMP
BNE

#-256. ,BMP
RS, LDFUNC

:LOAD READ FUNCTION

ERFLG

;TEST ERROR FLAG

#4 ,BDA

;TRY NEXT FIELD BAD SECTOR FILE

CMP
BNE
PRINTF
MoV
MOV
MOV
TRAP
ADD
BREAK
TRAP

#177750,BDA
97%

98%

#1,T.DRIVE
4008

#77750,BDA
97%

#FRM15
#FRM15,-(SP)

C$8BRK

999%

MOV

l126..Ré

TST

BMI]
TST
DEC
BNE
BR
TST
MOV
MOV

MOV
BM]

;NO,DO NEXT FIELD BAD SECTOR

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

MoV

:YES;MERGE BAD SECTOR FILES

#8UF +10,R1

:GET PAST

(R1)+

;SECTOR OR END

2%
(R1)+
R2
1%
3s
-(R1)
#126. ,R3
#BUF +410,R2
(R2)+,(R1)+
5%

JMAX = 126

ID ETC.

JEND, GO GET FIELD
:REST OF SECTOR
;MAX REACHED
:NO, KEEP GOINC
:YES, SKIP BACK UP
:BACK UP PAST TERMINATOR
JSET 126 MAX
;GET FIELD SECTORS :MERGE AT END OF
;DONE?

FACTORY

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40
1549

030610

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

012221
5%:

(R2)+,(R1)+
R3
4%
(SP)+,R3
(SP) +,R2
(SP)+,R1
RS

PAGE 4-5

SEQ 0070

;NO, MERGE REST OF SECTOR
; DONE

*NO, GO BACK

‘RESTORE R3, R2, R1
JEXIT

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC~79 10:40

1557
1558

012537

1559

005037
013737

004537

003146
003156
000001

003152
003150
003160
003162
003152

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION
FNDTRK:

003060

CMP
BNE

80%:

90%:

003154

031000
002234

1%:

030754
030756
030764
030766
030770
030776

#1,T.DRIVE

000005

003160
000001

003060

2%:
3%:

003154

003150

003146

003154

;GET INCREMENT/DECREMENT
;GET HEAD (SURFACE)

80%

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

TRKFND
TRKCNT
FRTTRK ,PRSTRK

;CLEAR OUT FLAG FOUND
;CLEAR OUT TRACK COUNT

RS ,FNDBSC

;IS TRACK IN BAD SECTOR FILE
;WAS IT?
;YES, CLEAR TRKCNT
sNO, INDICATE GOOD TRACK
- CONT INUE
;START COUNT OVER

TRKCNT

TRKCNT
TRKCNT
, #5
43
TRKFND

#1,T.DRIVE

;GET FIRST TRACK

;FIND 5 TRACKS YET?

;NO, CONTINUE
;YES, EXIT WITH GOOD FLAG

81%
#4 RS

000004

000740

(RS)+ ,OFFSET
(R5)+,SURFACE

003162
003162

PAGE 5

HDRFND

003162

030750

MOV
MOV

81%:

4%:
5%:

PRSTRK ,LSTTRK

?;FSET,PRSTRK

;ARE WE DONE?

:NO, KEEP LOOKING
SEXIT WITH NOT FOUND
NEXT TRACK

SEQ 0071

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC-79 10:40

MACY11

30A(1052)
17<-DEC=79
11:21
GLOBAL SUBROUTINES SECTION

PAGE 5-1

;ROUTINE TO FIND BAD TRACK IN FILE
002234

VIS WN=O 8\1 2582988 EBLR
v

1%:

TST

002234

005721
005202
020227
001355
012601
012602
000205
031070
031074
031100
031102
031106
031112
031114
031116
031120
031122

013701
005737
100402
162701

012702
010120
005201
005302
001374
000205

JINITIALIZE FLAG
;SAVE R1, R2

#BUF +10,R1

;SETUP FOR BEGINNING OF FILE

;IF MINUS AT END, EXIT
;CYLINDER CORRECT?

(R1)

(R§)+
SURFACE, (R1)
4%
-(R4)

;END?

sNO, NEXT

sUPPER HALF OF WORD
;CORRECT SURFACT

4%:

INC

HDRFND

;SET FOUND

3%:

TST

JNEXT WORD

2%:

MOV

(R1)+
R2
R2,#252.
1%
(SP) +,R1
(SP)+ ,R2
R5

FIXCYL:

MOV

PRSTRK ,R1
OFFSET
1%
#4 ,R1
#5,R2
R1,(RO)+

JGET TRACK WHICH IS GOOD

000374

003154
003146

HDRFND

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

PRSTRK, (R1) +

003156

1617

CLR

003154

b b

i anld
o anls
i
sl
i
)
il
o
b wal
b
b
)
il
b
- -

003242

FNDBSC:

000004
000005
INC
RTS

JACCOUNT FOR IT
;DONE?
:NO, KEEP CHECKING

JRESTORE RZ2, R1, EXIT

;WHICH WAY WERE WE LOOKING

. IN WORD, BRANCH
;BACK IT UP BY FOUR
;GOING STORE AWAY 5 TRACKS
;STORE THEM 1 WD/PER

SEQ 0072

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

PAGE 5<2

sROUTINE TO GET SERIAL NUMBER

1626
1627
1628
1629
1630
1631
1632

s CALL

012737
004537
000004
004537
000010

000013
032002

003204

SERNUM: MOV

032002
003172
000077
000001

003060

1%:

000100
000001

23%:

031230
031232
- 031236
031244
031250

012701
160001

010137
052737
004537
000006
004537
000010
013700
022737

003060

000402

022700

031320
031326

031330

031412

103321
022737
001004
012737
000403

012737
012737
012737
004537
000014
005737

00100
022737
001351

;GET STATUS

R5,LDFUNC

;READ HEADER

E.MP.RO

;GET THE HEADER
;CLEAR SECTOR BITS

#77 ,RO

#1,T.DRIVE

RO,#77700
2%
RO, #177700

;CLEAR HEAD

32%

#177600,R1

33%:

RO,R1
R1.BDA

003204

003060

000001

003060

077700

003204

177700
003232
177400
032002

003204
003202
003206

003074

#25.8BDA

RS,
[ DFUNC

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

RS, LDFUNC

;VERIFY POSITION

E.MP.RO

;GET HEADER

42%:

#1,T.DRIVE
42%
#77700,R0
43%
#177700,R0

43%:
2%:

#1,T.DRIVE

077700
177700

33%

32%:

032002
003172
000001

R5,LDFUNC

#77600,R1

177600

003204
000025
032002

#13,BDA

#100,R0
#1,T.DRIVE

077600

031224

R5,SERNUM

23%

077700
177700

JSR

52%

#77700,BDA

97%

52%:
97%:

#177700,BDA
#BUF ,BBA
#-256. ,BMP

R5.,LuFUNC

;READ

ERFLG
98%

;TEST ERROR FLAG
:YES,COMPARE SERIAL NUMBERS
;NO,SETUP FOR NEXT FACTORY BAD SECTOR

000004
000001

003204
003060

#4 ,BDA
#1,T.DRIVE

077724

003204

#77724 ,BDA
97%

62%

SEQ 0073

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40

031414
031416
031424
031426
031430
031434
031440
031442
031446
031454
031460
031462

000453
022737
001344
000446
012701
005737
100005

011137
016137
021137
001004
026137
001437
013746
013746

011146

177724

003212

000002

003212

003210
003212

062706

000004

104422

3%:

4%:

BR
CMP
BNE
BR
MOV
TST
BPL

99%
#177724 ,BDA
97%
99%
#BUF ,R1
SERNM1

(R1) ,SERNM1

2(R1) ,SERNM2

2:1).SERNH1

2(R1) ,SERNMZ2
5%

PAGE 5-3

JGET NEXT FACTORY BAD SECTOR

:REPORT ERROR

;COMPARE SERIAL NUMBERS
JHAVE WE GOT ONE TO COMPARE
;YES, BRANCH
sNO, CALL THIS ONE IT

*SERNUM OKAY
:NO, PRINT ERROR

:OTHER g?%F OKAY

sYES,

#FRM3,2(R7),(R1), SERNMZ SERNM1

SERNM1, = (SP)
(SP)
, =M2
SERN

R1) ,-(5P)
2(TM?) ,=(SP)
#FHM3,
- (SP)
#5,-(SP)
SP,RO
CSPNTF

000002
021121
000005

021771
000001

000776
000205

62%:
98%:

003210
000002
003210

012746
012746
010600
104417

003204

003232
003210

000014
031572
031676
031124

031556
031560
031564
031564
031566
031570

17=DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

#14,SP

09%:

R5,UNLOAD
R5,LOAD
SERNUM
.
#FRM15
#FRM15,-(SP)
#1,-(SP)

SP.RO
CSPNTF

999%:

5%:

#4 ,SP

C$BRK
999%
RS

;LET OPERATOR CHANGE
;PACK
;GO CHECK IT AGAIN.
:MESSAGE

SEQ 0074

CZRLLBO RLO1/02 _DRIVE_COMPAT
CZRLLB.MAC
07=DeC=79 10:40
1704
1705
1706
1707

MACY11

17-DEC=79
30A(7052)
11:21
GLOBAL SUBROUTINES SECTION

s CALL
031572
031572

CLR
BISB

000000

2%:

3%:

3
]

031674

SEQ 0075

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
BIS
MOV
BIT
BEQ
WAITMS
DEC
BNE
BR
RTS

RS, UNLOAD
#FRM1,<B,DSB+1(R4)>,(SR(R4)

CSR(R4) ,=(SP)

-(SP)

, (SP)
DSB+1(R4)

#FRM1 ,-(SP)

#3,-(SP)

#60. ,R1

RO,aCSR(R4)

#DRDY ,@CSR(R4)

#10.
R1
2%
UNLOAD
RS

;SETUP 60 SECOND TIMER

;CHECK DRDY FOR ZERO

sPACK UNLOADED

JWAIT 1 SECOND
JHAS 60 SEC PASSED?
sNO, RETEST DRDY, CONTINUE WAIT
;YES, REPEAT MESSAGE CONTINUE WAIT
JRETURN WITH PACK UNLOADED

sROUTINE LOAD

N e e e

e o T

= OVRNOVESWN=O

R
R
R
W
W
W
W
Y
i

JSR

UNLOAD: PRINTF
MOV

000000

000010
00007¢
000200
00000
000000
000001

(4)

NN NNNNNNNNNNNY

6
PAGE 6

sROUTINE UNLOAD

000005
020724
000003

031676
031676

000000

000005
021021
000003
000010
000170
000200
000004
000000
000001

031774
031776
032000

s CALL

JSR

R5.,LOAD

LOAD:

PRINTF
MOV

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

CSR(R&) ,~(SP)

-(SP)
)
, (SP)
DSB+1(R4
#FRM2
, - (SP)
#3,-(SP)
SP.RO
CSPNTF
#10,SP

#120. ,R1
000000

#200,R0
DSB(R4) ,RO
RO,3CSR(R&)

#DRDY ,@CSR (R4)

LOAD

:SETUP 120 SEC TIMER

;SETUP CONTROLLER READY BIT
*SELECT DRIVE

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07<DEC=79 10:40
1739
1740
1741
1742
1743
1744

MACY11

30A(1052)
17-DEC=79 11:21
GLOBAL SUBROUTINES SECTION

PAGE 7

SEQ 0076

sROUTINE LgFUNC
R5,LDFUNC
JS
sCALL
LDFUNC: MOV

003074
000000
003206
003204
003202
003200
000004
000031
000200
003200
000000
000200
000200

MOV
MOV

CSR(R4) ,R3
BMP ,MP(R3)
BDA,DA(R3)
BBA,BA(R3)
(R5) ,BCS
DSB(R4) ,BCS

000006
000004
000002
003200

#25. R

#200,BCS
BCS,CS(R3)
CS(R3) ,BCS

003200

000000

RO,=(SP)
R3,=(SP)
R1,=(SP)
ERFLG

1$:

BIT

#200,CS(R3)

ggOO,CS(R3)

#100.
R1
1%

016337
016337
016337
016337
016337
016337

000000

000002

000006

003164
003166
003170
003172
003174
003176

CS(R3) ,E.CS

BA(R3) ,E.BA
DA(R3) ,E.DA
MP(R3) ,E.MP
MP(R3) ,E.MP1
MP(R3) ,E.MP2

;CLEAR ERROR FLAG
;GET CSR
sLOAD MULTIPURPOSE
;LOAD DISK ADDRESS
;LOAD BUS ADDRESS
;GET FUNCTION TO LOAD
sSELECT BITS
;SET WATCHDOG TO 250MS
;LOAD FUNCTION

;CNTLR READY?

;YES,

JWAIT 10 MILLISECONDS

JREAD ALL REGISTERS

210. ,CNTTOT, ERRS;CNTLR TIMEOUT
CSERDF
210
CNTTOT

ERRS

032212
032214

016337
016337
016337
016337
016337
016337

000000
000002
000004
000006
000006
000006

005737
100002
005237
005725
012601
012603

003164

003074

003164
003166
003170
003172
003174
003176

2%:

MOV

CS(R3) ,E.
BA(R3) ,E.BA
DA(R3)
,E
MP(R3) ,E.

JREAD ALL REGISTERS

MP(R3) ,E.MP1
MP(R3)
E
E.CS
(%:

3%:

INC

TST

ERFLG
(RS)
+
(SP)+ ,R1
(SP)+,R3
(SP)+,R0O
RS

sANY ERRORS?

;YES,

GO SERVICE

b
b ab ad
b
b ab
b

-t

-t b

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

032304

M6
PAGE 7-1

BGNTST

;CONTROL SECTION COMPATIBILITY PROGRAM
sPRINT UNLOAD AND LOAD DRIVE MESSAGES
;PERFORM SERIAL CHECK ROUTINE
;PERFORM READ/WRITE CHECKS ON DRIVES
012701

COMPAT: MOV
MOV
A ¥
CLR
DEC
BNE
INC

#SECBUF
,R1

#120. ,R0O
(R1)+
RO
A3
FOWR

RS5,OVWPER
FOWR
FADJ
ADJDIR

RS ,ADJCYL

3,377

0 CONOWVISWN=O

[* ] 00 00 00 00 0o 0o 00 0o 00

ZRIRAREI22YIL 3P

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40

;70000

000

1820

031572
000010
031676
031124
024204

R5,UNLOAD
H#PAT+2
R4
R5,LOAD
R5,S”.NUM
R5,0VWPER

003104
024726
360

ADJDIR
R53ADJCYL

;SET FIRST OVERWRITE FLAG
;PERFORM OVERWRITE ON FIRST DRIVE

;CLEAR FIRST OVERWRITE
:SST F%RST ADJ. FLAG
s TRACK AND SECTORS FOR

; INWARD SEEK

s TRACK AND SECTORS FOR

;OUTWARD SEEK
: TERMINATOR
sUNLOAD PACK FROM DRIVE UNIT
;UPDATE POINTER FOR NEXT DRIVE
sLOAD INTO SECOND DRIVE UNIT
sCHECK PACK SERIAL NUMBER
;PERFORM R/W OVERWRITE

:IN.1/0 OUTSIDE

017

;0UT 1/0 OUTSIDE

360

:IN 170 INSIDE

017

;0UT 1/0 INSIDE

031572
003130

033102
000010
031676
031124
024204

032526

0
6777

sADJ. CYLINDER BUFFER
sADJ. CYLINDER BUFFER COUNT
;CLEAR ADJ. CYL. BUFFER AT STARTUP
;BUFFER CLEARED?
;CLEAR NEXT BUFFER WORD

003104
024726
000

sUNLOAD PACK FROM DRIVE UNIT

000002

sCHECK FOR > 2 DRIVES
;YES,GO TO NEXT DRIVE
;GO TO FIRST DRIVE
;UPDATE DRIVE BUFFER FOR THIRD DRIVE

:
108

:LOAD PACK FOR THIRD DRIVE
sCHECK SERIAL NUMBERS
;PERFORM R/W OVERWRITE ON THIRD DRIVE

ADJDIR
R5,ADJCYL

2.0

2IN 270 OUTSIDE

SEQ 0077

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC ) 07-DEC=79 10:40

.WORD

000

FERERERS
KRGS ISEBTRBRER : BIIITIIINISNE
BQVOWJ\WN—‘OO

b
b
b
b
b
b cnd
b cd
ad
i
-

6
:
PAGE 7-2

;0UT 2/0 OUTSIDE

200

;IN 2/1 OUTSIDE

;OUT 2/1 INSIDE

;0UT 2/1 OUTSIDE

100

031572
003130

8 8

;0UT 2/0 INSIDE

000

—_—

;IN 270 INSIDE

200

;—n;—n
0o 0o 00

000

100

1860

170000

cownowno-=o-

170000
002
007400
004
170000
004
007400
001

MACY11 30A(1052)
17-DEC=79 11:21
GLOBAL SUBROUTINES SECTION

000003

000010
031676
031124
024204

1%
#PAT+2 ,R4
R5,LOAD
R5, SERNUM
R5,0VWPER

022706

ADJDIR
R5,ADJCYL

000

;IN 2/1 INSIDE

; TERMINATOR
sUNLOAD PACK ON THIRD DRIVE

sCHECK FOR > 3 DRIVES
:NO, GO TO 2ND DRIVE
;UPDATE DRIVE BUFFER FOR 4TH DRIVE
;LOAD PACK ON 4TH DRIVE
sCHECK PACK ON FOURTH DRIVE
;PERFORM R/W OVERWRITE

;IN 3/0 OUTSIDE

000

;0UT 3/0 OUTSIDE

000

;IN 3/0 INSIDE

000

;OUT 3/0 INSIDE

040

;IN 3/1 OUTSIDE

020

;0UT 3/1 OUTSIDE

040

;IN 3/1 INSIDE

020

;OUT 3/1 INSIDE

000
000

;IN 3/2 OUTSIDE

;0UT 3/2 OUTSIDE

000

;IN 3/2 INSIDE

000

;0UT 3/2 INSIDE

031572
000010
031676
031124

RS ,UNLOAD
#PAT+2
R4
RS.LOAD
RS, SERNUM

; TERMINATOR
sUNLOAD PACK FROM 4TH DRIVE

;SET DRIVE BUFFER FOR 3RD DRIVE
:LOAD PACK ON 3RD DRIVE
sCHECK FOR PACK SERIAL NUMBER

SEQ 0078

024726
000

o
B
B

1%:

024726
000

§°8°8°

000

;0UT 1/3 INSIDE

; TERMINATOR

R5,ADJCYL
.10

000

o
S

004

&oH

FERISERLREE
NOw»n

5,0

024726
010

010

;0UT 1/2 INSIDE

;IN 1/3 INSIDE

031124
024204

004

;IN 1/2 INSIDE

;0UT 1/3 OUTSIDE

RS ,UNLOAD
#PAT+2
R4
RS,LOAD
RS, SERNUM
R5,OVWPER

031678

;0UT 1/2 OUTSIDE

;IN 1/3 OUTSIDE

2%:

;IN 1/2 OUTSIDE

On
o

000

;UNLOAD PACK FROM 3RD DRIVE
;SET DRIVE BUFFER FOR 2ND DRIVE
;LOAD PACK ON THIRD DRIVE
sCHECK PACK SERIAL NUMBER
;PERFORM R/W OVERWRITE ON 2ND DRIVE

000

; TERMINATOR

O©

bmg—lb—n—ammm_.
On

000

033154

#PAT+2
R4
R5,LOAD
R5, SERNUM
R5,0VWPER

gbooo

000

031572

;0UT 2/3 INSIDE

?56ADJCYL

000

;IN 2/3 OUTSIDE

;IN 2/3 INSIDE

5 ,UNLOAD

1923

;PERFORM R/W OVERWRITE ON 3RD DRIVE

;0UT 2/3 OUTSIDE

e P

N
N —

—

d e

037572
000010
031676
031124
024204

D e

000

H=20VNOWNO—=O—

000

ADJCYL

RS ,OVWPER

000

N0 0 0OV VOV OOV OVVOO

e e

024204

So =~

D e

=3 VONOWVNSWN-=O ZRIRAR

004537

B 7
MACY11 30A(1052)
17<DEC-79 11:21
PAGE 7-3
GLOBAL SUBROUTINES SECTION

DO =NV
=) =D

CZRLLBO RLO1/02 DRIVE _COMPA
CZRLLB.MAC
07-DEC-79 10:40

;UNLOAD PACK FROM 2ND DRIVE
;SET DRIVE BUFFER FOR 1ST DRIVE
:LOAD PACK INTO FIRST DRIVE UNIT
;CHECK SERIAL NUMBER
;PERFORM R/W OVERWRITE

:IN 0/1 OUTSIDE
;0UT 0/1 OUTSIDE

sIN 0/1 INSIDE
;0UT 0/1 INSIDE

:IN 0/2 OUTSIDE

SEQ 0079

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC-79 10:40

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

:0UT 0/2 OUTSIDE

5.0

;IN 0/2 INSIDE

5.0

;0UT 072 INSIDE

}60

:IN 0/3 OUTSIDE

000

z.o

:0UT 0/3 OUTSIDE

000

?60

:IN 0/3 INSIDE

000

2.0

;0UT 0/3 INSIDE

0
RS ,UNLOAD

: TERMINATOR
JUNLOAD PACK

ERHERELEE

.BYTE

000

2000

000

000000
004537

031572

#ENDPAS
#ENDPAS
, - (SP)
#1,-(SP)

012746
012746
010600
104417

062706
033242

033244
033244
033244
033246
033246
033246

033250

104422
000776

000004

2000
4000

000

1969

PAGE 7-4

1,0

000

1959

sEND OF PASS

SP.RO
CSPNTF

#4 ,SP

3%:

C$8RK
3s

ENDTST
104401

L10014:

BGNMOD

000020

000031
033310

160000
177776

001031
033346
000000
000776

003032
033355
003400
000000
000007
002130
033324
000001

TRAP

CSETST

HRDPRM
BGNHRD

.WORD L10015-L$HARD/2
CSRMSG,CSR,0,160000,177776,YES

T$CODE
CSRMSG
TSLOLIM
TSHILIM

VECMSG,VECT,0,0,776,YES

T$CODE
VECMSG
TSLOLIM
TSHILIM

DRMSG,DRBT,0,03400,0,7,YES

gSCODE

I
DRTYPE ,TYPDR,1,YES
T$CODE

?RTYPE

SEQ 0080

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40

033310

L10015:

033310
033310
033316
033324
033332
033340
033346
033354
033355
033362

052502
051104
051104
054524
051040
042526
000
104

000

033364

020123

.ASCIZ

/BUS ADDRESS/

DRTYPE:

LASCIZ

/DRIVE

051117

VECMSG:

.ASCIZ

/VECTOR/

044522

042526

DRMSG:

LASCIZ

/DRIVE/

.EVEN

033364

LASTAD

033370

000001

TYPE = RLO1/

052103

ENDMOD

LSLAST::
.END

PAGE 7-5

CSRMSG:

033364

000000
000000

ENDHRD
.EVEN

.EVEN
.WORD
.WORD

ole]

1989

17-DEC=79
11:21
MACY11 30A(1052)
GLOBAL SUBROUTINES SECTION

SEQ 0081

=
=
=
=
=
=
=

000010
000020
000040
000100
000200
000400
001000

BIT1
=
2
BIT10 = 002000
BIT11 = 004000

BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4
= 000020
BITS = 000040
BIT6

= 000100

BOE

BIT7
BIT8
BIT9
BMP
BSEXIT
BSWR
BUF
CHECK
CLNCOD
CMPENA

= 000200
= 000400
= 001000
003206
030136
027754
003232
030164
023714
023664

1422

1424%

1428+

1298+
1121
1113
1630%

1377«
1750+
1229*
1651«

1671+
1753«
1299+
1667%

1749
1754
1300+
1670%

1040+

7084
45H

1764

1518+
2134
424
428
¥
4 M
4 M
428
428
428
428
420
428
420
420
4 M
428
4o
4 oM
428
4on
420
420
42N
4 oM
420
40
42N

2324
40
1418
953
242on
1686
1426
7178
423

1436

1755%

1370~

1677

75
75

79
76

1113

1227«

1297«

1369«

1481+

1520+

1672+

1747

972

844

14434
1000
870

14114
1253

1298

1320

1377

1513

1536

1440

14564

429

694n

1438+

1441+

1375+
1680

1480+

1683

1516+
1748

1546

1594

1671

64
65
1115

72
74
80
81

863+

1437

BITO3
BITO4
BITO5
BITO6
BITO7
BITO8
BITO9

003140
000001
000001
000002
000004

1417

BDATA
BITO =
BITOO =
BITO1 =
BIT02 =

1145
1039+

903

1035

2304
2294
2314

003204

1947

o
N —
cown

BDA

1922
1871+

2354
295#
2364

69N
684

= 000040
003202
003200

1905
1843+

1002

Lon
22

[aEalalalalalalalalalalalalalalalalalalalalnlalnlalala]

BA17
BBA
BCS

SEQ 0082

962
987

1974

= 000002
= 000020

1872
1822«

1844
1808+

023710

2374
238#
2394

ASSEMB= 000010

BA
BA16

1823

1046+
1166

1994
198#

AUTOCO

8924

00
— —
NN
— —

024726
003104
003102
003220
003222
003224
003100
003214
020142
003216
000020

-t

ADJCYL
ADJDIR
ADJFLG
ADJLCZ2
ADJLC3
ADJLC4
ADJLOC
ADJTRK
ADJTXT
ADJWT
ADR
=

PAGE 8
11:21
17-DEC=79
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

00O OW

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC-79 10:40
CNTTOT
COMPAT
CRDY
CRSET
€S
CSR

017300
032304
000200
000002
000000
000000

CSRMSG

033310
003122

cyL

($A) =
CS$AUTO=
C$BRK =

2784
17974
674

F
7
17-DEC=79
11:21
PAGE 8-1
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0083

1769

1121+

1122

1754+

1755

1708
19914
318
976+

1712+

1713

979+

327

789%
983

1700

1975

1106
509

1250
523

428
1386

693

313
3N

854

713
1534

1757

1763

1772

1725

1756+
319
1729+

1730

1746

1985

795+
1063

796%
1093

804
1357

1414

807

809+
1425+

1316

1769
561

585

609

321

336

342

316

318

319

325

1257

1264

1325

133

311

438+

1117

1242

1248

1427+

811«

813«
1439+

1442+

851

924+
1445+

633

657

681

881

1389

327

328

329

334

339

341

1533

Y1695

1699

1708

1725

1974

722

437
703

308

306

1114

454

($QI0 = 000377

1125
474

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40

22N
22N
el4
228
228
224
224
224
22K
224

1774

634
604
22
2044
624
884
24LT7H

329

801~

819+

936+

S7#
1987
7254

1713
19944

200#

1124%
19924

003064

171

[(alalalalalala)

Lon
436
2654
3704
1954

986+

449
1730

1125

311
1725

1728

1058

1083

509

881

325

334

339

1088

1382

1484

523

538

561

1386

1389

1492

441>

1120

1243

1523

1675

1745«

1781+

585
585

609
609

633
633

657
657

681
681

1657

1766+

1775+

1313

1763+

1772«

1779

1090+

1100.

1114

1635

1033«

1807+

1773«
1236
1774
1069

b wald

1316
1769

) el

FADJ

1987

017675
020172
020230
020270
020416
020576
020636
000004
023706
002100
000035
003166
003164
003170
003172
003174
003176

(alalalalala]

ERRFND
ERR1
ERR2
ERR3
ERR4
ERRS
ERR6
EVL
=
EXIT
ESEND =
ESLOAD=
E.BA
E.CS
E.DA
E.MP
E.MP1
E.MP2

100000

417
1765

534

SEQ 0084

1748«

1708
4034
42N
Lon
Lon
LN

756

1118+

1988

022262
000036
000035
000034
000037
000040
022440
017276
022214
003074

740
452

LoH

280#

764

DSPCOD
.
EF .NEW=
EF .PWR=
EF .RES=
EF .STA=
END
ENDBUF
ENDPAS
ERFLG

PAGE 8-2
17-DE\
y
120
30A(1052)
CROSS REFERENCE +ABLE == USER SYMBOLS

ONNON—=N
WNNONON—=
O
— OO0 v

CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
000013
000004

MACY11

1249

1307

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40
FEW
FIXCYL

FNDBSC
FNDDRV

FNDTRK

FORSK
FOWR
FRM1
FRM10
FRM11
FRM12
FRM13
FRM14
FRM1S
FRM16
FRM17
FRM18
FRM2
FRM3

F RM&

FRMS
FRM6
FRM7
FRM8
FRM9
FRTTRK
FUNERR
FWD
F $AU
FSAUTO=
F$BGN =

H 7
PAGE 8-3
17-DEC=79
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

017425
031070

031000
026536
030626

003126
003062
020724
021477
021543
021600
021657
021742
021771
022030
022115
022151
021021
021121

F$CLEA=
000007
F$DU
000016
FSEND = 000041

542

565

589

613

637

685

16154

529

544

553

567

576

600

615

624

639

1294

1802+

1806+

334

339

3554

266

269

302

304

315

723

725

726

729

1788

1790

310
704
1980

1982

15574

1699

021200

021241
021310
021331
021371
021435
003152
020001
020050
000015
000020
000040

SEG 0085

1563«

1567

936
713

30
338
717
722
728

30
342
722

377

718

383

377
723

392
725

98
400
728

266

269

302

308

313

321

729

736

1790

1980

1982

1989

F$HARD=
000004
F $HW
000013
FSINIT=
000006
F$JMP = 000050
F $MOD

1989

30
613

40
704

90
708

98
714

266

717

269
723

729

736

1788

392

400
1982

F$MSG = 000011
FSPROT= 000021
F$SPWR = 000017
F$RPT = 000012
F$SEG = 000003
F$SOF
T= 000005
F$SRV = 000010
F$SUB = 000002

308
389

310

313

315

321

323

333

336

338

342

398
703

302

377

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40
FS$SW
= 000014
FSTEST= 000001

GDATA
003136
GLBDAT 002234
GLBEQA 002234
GLBERR 020172
GLBSUB 023724
GLBTXT 017300
GSBIT = 000003
GSTAT = 000004
GSCNTO= 000200
GSDELM= 000372
GSDISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000

2.
208

G
G
G
G
G

210
984
40N
3024
7364
2654
778
714
220
oM
oon
ook
ook
oo
2ok

1308+

759

763

208
oo8
208
2o
oo
oo
oon
oo
208
2o#
24
2%

1985
1985
1985
1987
1988

1986
1986
1586

1987
1987

1988
1988

1988
1985

1986

1987

1985

198

1987

1988

1570
857
893

1591%
1099
926

1604*
1365
1019

1466
1021*

1023=

862«

876

879

1378+

1384

HDRFND
HEAD
=
HEADO1
HNF
=
HOE
=

002234
000100
003114
010000
100000 G

100#
81#
203#
" 654
42K

HRDPRM
HSFLG
IBE
=
IDU
=

033246 G
003110
010000 G
000040 G

19824
2014
42K
4K

INAWR

030052

1423

HPTCOD

IER

022250 G

= 020000 G

INITCO
INITWR
INN10
INN1T
INN20
INN21
INN30
INN31T
INNGO
INNGT
INNSO
INNST
INTEN =
ISR
=

022266 G
017325
002356
002370
002360
002372
002362
002374
002364
002376
002366
002400
000100
000100 G

64kt

1225«

1980

1257

000400
000376
000001
000002
000000
000140
000000
000040
0001,
00uv...0
000004
000010

= 004000

1790

30A(1052)
17-DEC=79
11:21
PAGE 8-4
CROSS REFERENCE TABLE == USER SYMBOLS

1254

GSOFFS=
GSOFSI=
GSPRMA=
GSPRMD=
GSPRML=
GSRADA=
GSRADB=
GSRADD=
GSRADL=
GSRADO=
GSXFER=
GSYES =
HCRC

MACY11

1321

1325

1632

3904

4on

4134
2798
145#
1504
1464
1514
%78
1504
14,84
1534
1494
154#
584
Lon

1429
1241
526
541
174
179

1025

1387«

SEQ 0086

CZRLLBO RLO1/02 DRIVE_COMPAT
CZRLLB.MAC
07-DEC=79 10:40

-?:“ n
Z
-0
Z

22N
22N
22N
224

—~

19834

—

224
228

LSENVI
LSETP
LSEXP1
LSEXP4
LSEXPS
LS$HIME
L$HPCP

(alalalalalalalalalnlalnlalalalalalalnlalalalalalalalal

(219

22oH
22N
22N
228
22K
22N
224
22K
228
224
22#

L.SDUT
LSDVTY

SEQ 0087

7134
7228
728#%

7034

4034
19984

L$DESC
LSDESP
LSDEVP
LSDISP
LSDLY
LSDTP
LSDTYP

PAGE 8-5
11:21
17-DEC=79
30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

(=)

—

MACY11

4134

Lon
7044

7084

90#

98#
7144

2664

2694

298#

302#
7294

7364

17884

3924

400#
1982#

3084

3104

3134

3154

3214

3234

3314

3334

3364

3384

3424

7174

7234

7254

3774

1790

1790
17904

15804

1055
17424
1697

1080

1086

1310

1380

1482

1521

1631

17254

1735

1838

1866

1900

1917

1942

328

1242+
1243~
1564+

1248+
1249%
1583

742

746%

752%

758+

759

763

306

7094
7184

34
4054
738«

34n

19834

747

1633

1653

1655

(7RLLBO RLO1/02_DRIVE COMPAT

CZRLLB.MAC

07-DEC=79 10:40

LSHPTP 002022 G
LSHW
022252 G
LSICP : 002104 G
LSINIT 022266 G
LSLADP 002026 G
LSLAST 033370 G
LSLOAD 002100 G

MACY11

K 7
11:21
30A(1052)
17-DEC-79
PAGE 8-6
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0088

2934
L4154

20004

3834

419

425

431

448

695

5
1124

1747«

1766

1767

1768

1557«

1586

1616

3984

19894
428

15104

588

MID30
MID31
MID40
MID41

002312
002324
002314
002326

612

1775

1776

1777

OVWPER
OWTRK
O0$APTS=
0$AU =
O0$8GNR=
0$8GNS=
0$DU =
OSERRT=
OSGNSW=
O$POIN=
O$SETU=
PAT
=
PATLST
PNT

024204
003022
000000
000000
000000
000000
000000
000000
000000
000001
000000
000006
003046

= 001000

PRI
=
PRIOO =
PRIO1 =
PRIO2 =
PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PRSTRK
RDHDR =
READ =
READ1

002000
000000
000040
000100
000140
000200
000240
000
000340
003154
000010
000014
020115

REGDMP
REV
REVSK
RSADJS

026120
020060
003124
026330

REASON
RECER
RECMS

003072
017755
017627

17-DEC=79
11:21
PAGE 8-7
30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0089

636

176

497

687

895

1840

1868

1902

1919

1944

846

1225

1308

1816

1597
1656
1483

1615

B
e
LD OO
=D -

A YT

002274
002264
002276
002266
002300
002270
002302
002272
r4
003112
0022
002250
002240
002252
002242
002254
002244
002256
002246
002260
017574
017735

MACY11

2000

446

[alalalalalalalalala]

0QU11
0QU20
0QU21
0QU30
0Qu31
0QuU40
0Qu41
0QU50
0Qu51
OSECT
oUT10
oUT11
0uUT20
oUT21
OUT30
oUT31
OUT40
oUT41
QUTSC
OUT51
OVMES
OWER

*RNEERN. gh &Q&gQQ ;‘hgg

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40

1522

1315+

340

11134

1674

1837

1865

1899

1916

1941

CZRLLBO RLO1/02 DRIVE € OMPAT
CZRLLB.MAC

SECBUF
SECLST
SECT

07-DEC=79 1 0:40

M7
MACY11 30A(1052)
17-DEC=79 11:21
PAGE 8-8
CROSS REFERENCE TABLE == USER SYMBOLS

002442
002402
003132

SECWRD 003144
SEEK = 000006
SERNM1
003210
SERNM2 003212
SERNUM 031124
SETLST 026476
SETUP
022512
SIGN

SKCYL
SKER
SKHS =
STFLG
STSEC
STSEC1
SURF

025652
020031
000020
003076
003230
003226
003120

SEQ 0090

1223+
1487
1260%

1230
1489+
1261

1246

1266

1269+

1270

1319+

1325

1328+

1329

1693
1818

1689«

1691
1695
1839

1695

1867

1901

1918

1943

814

931

935

981

985

10544

944>
1003
855

945

SURFAC
003156
SVCGBL= 000000
SVCINS= 000000

1293«

1449

1457

1300

1304

923«

1363

1415

98
405

269
413

717

315

323

308
336

3n
339

405

417
741
1125
1695
1983

474
700

319

561

494
703

718

321

585

1386
1975

1389
1980

740
1114
1534
1987

336

342

722

728

728%

19804

878

SvCsuB= 177777
SVCTAG= 000000

1272+

881

SVCTST= 177777
SSLSYM= 010000

3134

3214

3314

3364

3424

3984

TEM

003056

853«

1066+
1376+

1092*
1379

1358«

023724
002332
002344
002334
002346
002336
002350
2340
002352
002342
002354
003162
003160

1062+
1371%

1095+«

TIME
TQUI0
TQU11
TQU20
TQU21
TQU30
TQU31
TQU40
TQU41
TQUSO
TQUST
TRKCNT
TRKFND

871

1572%

1574«

669

678

1575
535
1565+

550
1577

558

573

582

597

606

621

630

3114

3164

3184

3194

3254

3274

328#

3294

3344

3394

3414

TEMP

TYPDR = 000004
T$ARGC= 000001

CZRLLBO RLO1/702 DRIVE COMPAT
CZRLLB.MAC
07-DEC=79 10:40

4544
T$CODE= 002130
TSERRN= 000322
TSEXCP= 000000
TSGMAN= 000000

TSHILI= 000007
TSLAST= 000001
TSLOLI=

T3SV 070000
T$SLTNO= 000001

TSNEST= 177777

TSNSO = 000000
TSNST

000004

T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000000
T$TAGL= 177777
TSTAGN= 010016

PAGE 8-9
17<DEC=79 11:21
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0091

1699#

1708#

6574

6814

11134

11#

1125#

1257»

12644

13254

13314

15334

44
8784
19864

19874
4284
8814
19874

1988#
LO4n
1103#

SO9#
11064

5234
1250#

5384
13164

S614
13864

S85#4
13894

14904

19864

19874

19864

19874
313

321

331

336

342

398

703

713

4004
7224
19984
40n
407
19824

A
3234
4034
7234

90#
3314
407#
7254

984
3334
4134
7264

2668
3364

2694
3384

2984
3424
7044
7364

3024
3774

7084
17884

90
4134
1998

984
704

266
7084

2694

298

3024

377

703

313

7094

3154

321

3238

331

3154

3234

3334

3384

3834

7184

7264

2984

308#

3894

3984
19804

L74M
19744
19864

20004
308

304
3214

3104

T$TEMP= 000000

713

L154
7288

7034
729#

714

7184

7174

722

7264

723

3334

728

6094

16954

6334

14924

17654

1980

3104
3924

7144
1982#

392¢

7254

1788

336

3934

19834

7034
19884

7044
1989#

7134
1998#

3134

3214
7148

3314
7228

17884

311

313

316

318
417

319
422

454

328

329
474

728
1316
1725

740
1325
1769

756
1331
1974

1386
1975

1389
1980

1114
1534

1125
1695.

310#

313

3154

321

323

331

003060

805

974

1514

1526

1559

1578

1637

1644

UAM
= 000200
UNLOAD 031572
wrT
003130
VAJWR
027510

1718
435
997

1815
445%
1010

1833
448«
13514

1862
1041

1834

1915

1940

1973

TSTEST= 000001
T$TSTM= 177777

339
538

T$TSTS= 000001

0006
TS$STES= 010014

T.DRIV
T

032304

341
561

342
585

609
878

1898
»

633
881

1863

3334

336

3384
1658

342
1665

1678

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC-79 10:40

VEC
= 000002
VECMSG 033346
VECT = 000002
VEROD
027162
VEROW
026576
WCOUNT 003142

WRITE = 000012
WRIT1
020070
WRSEC
024466

XDELAY
XTIME

017232
024050

X$TRUE= 000020

YDELAY
017234
.
= 033370

52N

1986

17-DEC=79
11:21
PAGE 8-10
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

439

864
803
802
2144

1264

1318+

1324+

1331

2934
799
2434

947
748

966
1759«

993

1005

760+

764%
2964

1715+
3754

74M

7524

224
220
228
22K
244N
S#

SEQ 0092

755«

1644

242N

1732+
742

747

759

763

19964

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40

BCOMPL
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNTST
BNCOMP
BREAK
DELAY
DESCRI
DEVTYP
DISPAT

741
709
718
726
1983
393
415
28
304
383
1790
453
1534
742
32
34
405

ENDAUT
ENDCLN
ENDDU
ENDHRD
ENDHW
ENDINI

713
722
728
1989
398
703

ENDPRO
ENDTST
EQUALS
ERRDF
ERRHRD
ERRSF
ERRSOF
GPHARD
GPRMA

389
1980
42
1103
494
422
878
437
1985

DOCLN
DODU

ENDMOD
ENDMSG

GPRMD

GPRML
HEADER
LASTAD
MSBYTE
MSCNTO
M$COUN

MSDATA
MSDECR
MSDEFA
MSENDE

MSERRI

MSEXCP
MSGEN

c 8
PAGE 9
17-DEC=79
11:21
MACY11 30A(1052)
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0093

302
333

392
338

403

413

708

717

725

736

1982

298
33

377
336

400
342

407

704

714

723

729

1788

1998

1316

538

1769
561

585

609

633

657

681

881

1389

1490

1492

19884
3184
12644

3194
13254

3274
15334

16954

3284

3294
16994

17084

3344

3394
17254

3414
19744

4544

4740

11134

3084

3214
7284

3314
729

3364
17884

3424
19804

19894

3774

3894
19984

3984

4004

407#

3314

3364

3424
19894

3774
19984

3984

4004

4074

7034

6574

6814

6934

8784

881#

3084
4034
17904

4054
19804

3104

3134

3154

3214
34

3234

40
310

315

757
1700
747

1975
759

763

90
313

266
321

1106

1250

428
1386

693

700
696

30
308

1987

1988
29
2000
2
1985#
3064
11144
2
304
7034
19854
304

7044
4220

1986

2984
7144

7224

3214
7294
5614

11034

14904

17884
5854
14924

7094

2694
3924
7264

3024
3934
7284

19854
284
3314

6334

19824

4154
19834

19854

20004

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC=79 10:40

MSRAD |

MS$RNRO

MSSETS
»
M$SVC

MSTLAB

MSTSTL

M$WORD

316w
4LOSH
60
755K
13254
19754

757k
13314
19804

3274
4524
6964
8814
14924
19874

2000#

308#
17904
2N
2N
284

3134

Lyal

3364

324

3984

7034

7134

19854

3214
3924
5384

3044
3208
L7H
6574
7368
13314

3064
334
W2k
681
7408
13864

3084
3334
428K
6934
756#
13894

7184
12504
17084
L74

3138

3204

3258
13314
304#

3074
1533¢
3104

984
3254

4034

5854

22N
228
304
7034

738

11144
28#

L4134
064
11144

7188

3254

4374

3304
5854
881#

14924

339#
585#
8814

14924
2o

3
4174

19804

7288

7254

3074

13314

1533#

304#

3104

318
428

354
13314

11144
1985#

28#
4134
3064
3394
585
8561
1492
3064

3084

19754

\) = ) = b ) -2 N

MSPUT1

3130
393
5854
747H
13164
19748

34H

4054

STRLIIETEIFENLY

MSPUT

3114
328
5614
7628
1264#
17698

7144

D— ) b
~N

M$PUSH

17004

3084
3414
S38#4
76414
12574
17254

324

403#

MSPRIN

L94n
7224
11144
16994

34m
3364
S09#
7284
11254

324
« 3344

33
L74H

7134

—

M$LDRO
MSMCHI
MSMCLO
M$POP

334
72
304
709

3924

7134
11134
1695#

MSGNTA
MSGNTE
MSHAPT
MSHNAP
MSINCR

3214
7o8%
2694
7084

2984

2664

MSGNIN

4134

3138
7238
9BF
4154

0¥
7044
2%
3934

—_—

MEGNGB

7224
4On

304
7034
284

=AW=

MSGETS

D 8
PAGE 9-1
17-DEC=79 11:21
MACY11 30A(1052)
CROSS REFERENCE TABLE == MACRO NAMES

3274
1533¢

17884

3044
7174

3424
19804

3984

3104

3334
7364

7184

3184
4174

6334

1988#

3154
3394
L74H

3164
3414
494n

11064
15344

11134
16954

11144
16994

774
11254
17004

3314

3984

4004

4074

- 3284
16954
315K

L4544

L4744

11134

3924

3934

4034

3284

454

4744

11134

3284
16954

4544

L74H

11134

19824

706

16954

7094

3184
3424
5094
7134

3194
5234

3154

4034

31k
437K

3214
45N

3364
561

11254
17004

1250
17084

12574
17254

L84

4L37M

3364
5614

11254
17004

12508
1708%

12574
17254

14904

L84

437

4S5

3364
5614

11254
17004

12500
1708¢

12574
17254

14904

7184

693

318¢

6934
3184

6934
S09#

725

6964
319

6964
5234

7264

7004

321
7004
3214

7004
5384

1490

6934

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.V""
07-DEC-79 10:40

8784
POINTE

PRINTB
PRINTF
READBU
READEF

SETPRI

SvC

306
454
740
452

MACY11

8814

11034

11064

12504

n
474
756

316
1257

318
1264

1325

1715
1759

1732

417

WA TMS
WAITUS

15#
10#

. ABS.

033370

ERRORS DETECTED:

000
O

LCZRLLB.LST/CRF=Sv(33/M ,(ZRLLB.MAC

RUN-TIME: 60 49 5 SECONDS
RUN-TIME RATIO: 276/115=2.3
CORE USED:
15K
(29 PAGES)

30A(1052)
17-DEC=79
11:21
PAGE 9-2
CROSS REFERENCE TABLE == MACRO NAMES

319

13164

325

1331

13864

327

1533

13894

328

1695

14904

329

1699

SEQ 0095
14924

334

1708

17694

339

1725

19854

19864

19874

19884

341

1113

1114

1125

1974