Digital PDFs

AH-F130B-MC

March 1980

96 pages

Original

4.1MB

view download

OCR Version

3.4MB

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

OCR Text

RL1LRLVI

RL 0l/
CZRLL

AH-F130B-MC
FICHE 1 OF 1

MAR

———————

198C

COPYRIGH TE

MADE

SEQ 00C1

.REM 3

TDENTIFICATION

THE

PRODUCT CODE:

AC-F1318-M(

PRODUCT NAME:

CZRLLBO RLO1/02 DRIVE

DATE CREATED:

5~JAN-79

REVISED:

7-DEC-79

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

INFORMATION IN Th.S

COMPATABILITY

DEKNIS,

CAMPBELL

DOCUMENT

SUBJECT

DOCUMENT

CHANGE

WITHOUT

NOTICE
AND
SHOULD
NOT
BE
CONSTRUED
AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT
(ORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOF TWARE

DESCRIBED

THIS

FURNISHED

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

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?GT$kIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
L.

(C)

1979,

DIGITAL EQUIPMENT CORPONATION

HARDWARE PARAME TERS

SOF TWARE PARAME TERS

ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

N—

N ESAN =D

=
nN

b
—

DEVICE
TEST

N —

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

ny —

[]

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

WWO

OPERATING INSTRUCTIONS

AWV EPNOMNIWNNININ)

b wd
.
.

NGO

[]

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

~»H

INFORMATION

PROGRAM ABSTRACT

[o SRV]

CONTENTS

ASSUMPT IONS

—

b b b

—

b P\

GENERAL

N;\)

-0
.

—

TABLE OF

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
)
PROGRESS REPORTS

INFORMATION TABLES

SUMMARIES

PAGE 2

SEQ 0002

1.0

GENERAL

PAGE 3

INFORMAT]ON

1.1

STRUCTURE OF

PROGRAM

THIS DIAGNNSTIC 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

DIAGNOSTIC

STARTED,

CONTROL

GOES

FIRST

THE

SUPERVISOR
PORTION,
WHICH
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
Ezgggufiyagg“SEVERAL
COMMANDS
AS
DESCRIBED
IN
2.0
'OPERATING
THE DIAGNOSTIC PROGRAM IS LOADED

IN THE

LOWER 8K

DIAGNOSTIC
SUPERVISOR
CODING OCCCUPIES 6.25K OF
MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES
1.5K OF MEMORY SPACE.
1.1 .2

DIAGNOSTIC

MEMORY.

THE

THE UPPER PART OF
IN THE
UPPERMOST

INFORMATION

THE RLO1
PROGRAM
DRIVES.

CRIVE
COMPATABILITY
TEST
IS
A
PDP-11
(LSI-11)
BASED
THAT
WILL
TEST
INTERCHANGEABILITY OF CARTRIDGES BETWEEN
THE TEST
PERFORMS
WRITES,
READS,
OVERWRITES,
ADJACENT
CYLINDER WRITES TO PROVE COMPATABILITY.

1.2

SYSTEM REQUIREMENTS

1.2. 1

HARDWARE REQUIREMENTS

* PDP-11/LSI-11

» CONSOLE DEVICE

PROCESSOR WITH

16K OR MORE

(LA30,LA36,VT50.ETC.)

OF MEMORY

SEQ 0003

* 1 OR 2 RL11/RLV1T

PAGE

(ONTROLLER(S) WITH:

i-8 RngcbgéVE§Lg!TH RLOTIK CARTRIDGES CONTAINING

'BAD

1 - 8 RLOZ 6RIVES WITH RLOZK CARTRIDGES CONTAINING A

‘BAp

SECIOR FILE'

(OPTIONAL)

* LINE PRINTER
1.2. 2

SOf TWARE REQUIREMENTS

CZRLLAO RLO1/02 DRIVE COMPATABILITY
(FORMERLY

1.3

CZRLFB)

RELATED DOCUMENTS AND STANDARDS

RLO1

DISK SUBSYSTEM USER'S GUIDE

XXDP+/SUPERVISOR USER'S MANUAL

(EK-RLO1-UG-002)

1.4

THE RLO1/02 SUBSYSTEM SHOULD HAVZ

SUCCESSFULLY

RUN

THE

FOLLOWING

PROGRAMS
:

CVRLABO
CZRLGBO
CZRLHBO
CZRL 1BO
CZRLJBO
CZRLKBO
CZRLNAO
1.5

RLV11 RLO1/02 DISKLESS TEST (RLV11 ONLY)
RLT11/RLV11 RLO1/02 CONTROLLER TEST (PART 1)
RL11/RLV1T RLO1/02 CONTROLLER TEST (PART 2)
RLO1/02 DRIVE TEST (PART 1)
RLO1/02 DRIVE TEST (PART 2)
RI11/RLY11 RLO1/02 PERFORMANCE EXERCISER
RLO1/02 DRIVE TEST (PART 3)

ASSUMPT JONS

THE HARDWARE OTHER

PROPERLY.

NOT

2.0

THAN THE

RL0O1/02 SUBSYSTEM

FALSE ERRORS MAY BE REPORTED

FUNCTION PROPERLY.

OPERATING

INSTRUCTIONS

e
e
e

ASSUMED

WORK

THE PROCESSOR, ETC.,

SEQ 0004

PAGE 5

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1

THE FIVE STEPS OF

EXECUTION

-—cem

GEooe

@wm@me

moEGod

WmE

THIS DIAGNOSTIC PROGRAM SHOULD BE LOADED AND STARTED
USING
NORMAL
XXDP+
PROCEDURES.
START
THE
EXECUTION
OF THE XXDP+ MCNITOR BY

USING THt APPROPRIATE BOOTSTRAP PROGRAM,

MESSAGE

58;??52.

IDENTIFYING

ITSELF

AN EXAMPLE OF

AND REQUESTING

THIS MESSAGE

THE MONITOR WILL PRINT
THAT

IS GIVE*

THE

CURRENT

BELOW FOR

THE

DATE BE

XXDP+

CHMDKAO XXDP+ MONITOR
BOOTED VIA UNIT O
ENTER DATE (DD-MMM-YY):
AFTER THE DATE HAS BEEN ACCEPTED BY
22 EgHE
MONITOR
IS PRINTED.
THEN

THE
THE

MONITOR THE RESTART ADDRESS
FOLLOWING TWO QUESTIONS ARE

KED:

50 HZ ? N

LslI
THE

THE

DEFAULTS ARE BOTH 'NO''.
PROGRAM.

DO NOT

WHEN THIS DIAGNOSTIC

TYPE

THE

TYPE

'R''

AND

EXTENSION.

IS STARTED

THE

THE PROGRAM NAME

FOLLOWING S5

RWN

STEPS WILL OCCUR:

AANXRARNNAR

* STEP 1

(282288222

THE DIAGNOSTIC WILL ISSUE THE PROMPT ‘DR>''.
THE
TIME
WHEN
YOU
RESTART
XXDP+,
YOU

DIAGNOSTIC, NOT XXDP+.
PROMPT
AS
BEING
COMMAND MODE
.

THIS POINT

WE WILL

DIAGNOSTIC

REFER

FROM THIS POINT
UNTIL
WILL
BE TALKING TO THE

THE

COMMAND MODE,

YOU WILL ENTER A ‘'START'' COMMAND.

PRESENCE

THIS

NOT

THE

AS OPPOSED

TO XXDP+

SAME
AS
THE
XXDP+
‘''START'' C(OMMAND, WHICH YOU ALREADY [SSUED IN
RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ''START'' COMMAND CAN TAKE
A

NUMBER
OF
SWITCHES
THESE ARE SET FORTH
HOWEVER,

SOMETHING LIKE

ORDER

THIS:

AND
FLAGS
(ALL OPTIONAL) AND THE DETAILS OF
IN
2.3
°'DETAILS
OF
C(OMMANDS
AND
SYNTAX'',

USE

STA/PASS:1/FLAGS
:HOE

THE

PROGRAM,

ALL

YOU NEED

TO SAY

SEQ 0005

THINGS

TO NOTE
THE

HCRE:

ONLY

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

"DR>'

FIRST

THREE

(HARA(CTERS OF

THIS OR ANY

_EVEL NEED TO BE TYPED.

(COMMAND

THE

A PASS

CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL UNITS BEING
TESTED

(THIS WILL BE

IN THE ABOVE EXAMPLE.

PAGE 6

EXPLAINED SHORTLY).

ONE PASS

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

MAIN USEFUL

PNT
LOE
HOE

IER

ONES ARE:

PRINT NUMBER OF
LOOP ON ERROR
HALT ON ERROR

IS SPECIFIED

FLAGS,

BUT

TEST BEING EXECUTED

INHIBIT ERROR PRINTOUT

THE HOE FLAG
SHORTLY)
.

IS SPECIFIED

IN THE ABOVE

EXAMPLE

(WE'LL

SEE

WHY

ARXARARRAAT
R

x STEP 2 »
AARKRA
RN AR

WHEN YOU HAVE

BACK

TYPING

WITH

TYPED

THE

IN A ''START'' COMMAND,

IN THE NUMBER OF

A WORD OF

THE DIAGNOSTIC WILL

C(OME

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

WARNING HERE:

YOU WISH TO TEST.

THE NUMBER OF

UNITS

OEVICE
OF
THE
ODIAGNOSTIC.
FOR
EXAMPLE,
DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF

DEPENDS

THE

TARGET

[IF
THE DIAGNOSTIC IS
UNITS
WOULD
BE
THE

NUMBER
OF
DRIVES
TO
BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
DIRECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD
BE
THE
NUMBER
OF CONTROLLERS.
THE TARGET DEVICE OF A DIAGNOSTIC CAN
ALWAYS BE DETERMINED BY INSPECTING THE 'HEADER'®' STATEMENT NEAR
THE

BEGINNING OF
STATEMENT

THE SOURCE

SHOULD BE

CODE.

THE

DEVICE

ONE OF

TYPE OF

THE OPERANDS OF

THE DIAGNOSTIC.

THIS ‘HEADER'

KRR AN R

* STEP 3 »
L2228

WHEN YOU HAVE

DIAGNOSTIC

TYPED

WILL

THE

NUMBER

UNITS

ASK YOU THE ‘HARDWARE QUESTIONS''.

THESE QUESTIONS ARE

F;Egl??leS".

288

USED

TO BUILD

TABLES

IN CORE.

TESTED,

THE

THE ANSWERS TO

CALLED

'HARDWARE

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

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE
POSED N TIMES, WHERE N I5 THE NUMBER OF UNITS.

SERIES WILL

SEQ 0006

THIS

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC

TO TEST

DEVICE.

1
PAGE

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

L 382228

THE

222

x STEP 4 =
RANRRRANAN

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS
(SEC
2.5)
FOR
ALL
THE
UNITS,
YOU
WILL BE ASKED ''CHANGE SW?'' IF YOU WANT TO BE
ASKED THE SOF TWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF
THIS
PROGRAM,
TYPE
°Y''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
QUESTIONS, TYPE 'N''.
IF
YOU
TYPE
'Y'' YOU
WILL
BE
ASKED
THE
SOF TWARE
QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P-TABLE IN THE PROGRAM.
THE SERIES OF QUESTIONS
WILL
BE
ASKED JUST ONCE, REGARDLESS OF THE NUMBER OF UNITS TO BE TESTFD.

RN AR AAN

* STEP 5 «
A22222232

AFTER

BEGIN
THAT

YOU HAVE

ANSWERED

TO EXECUTE

THE

SOF TWARE

THE HARDWARE

CAN HAPPEN NEXT,

QUESTIONS,

TEST CODE.

DEPENDING ON

WHETHER

THE

THERE ARE
A

DIAGNOSTIC WILL

SEVERAL

HARDWARE

THINGS

ERROR

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

IF NO ERROR IS ENCOUNTERED, THEN
THE
DIAGNOSTIC
WILL
SIMPLY
%;583;? g:E)DESIRED NUMBER OF PASSES AND RETURN TO COMMAND MODE
>).

IF AN ERROR IS ENCOUNTERED,

DEPENDING ON THE

SETTINGS OF

THEN ONE OF
THE

THREE

wOE AND LOE

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

THE

THINGS

FLAGS.

(ONSOLE

LOE SET:
THE DIAGNOSTIC WILL LOOP ENDLESSLY ON
CODE THAT DETECTED THE ERROR.
NEITHLR HOE NOR LOE SET:
THE FPROR WILL
BE
gg?sgkgo AND
NORMAL
EXECUTIC*
WILL RESUME
U

THE

HAPPENS,
AND

THE

BLOCK

REPORTED
ON
THE
AS IF NO ERROR HAD

SEQ 0007

PAGE 8

2.1.2

SAMPLE RUN-THROUGH

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

égtlsglggLE
-1SSUED.

IF AN ERROR

TO RUN

THE

DIAGNOSTIC.

NO ERRORS

ARE

ENCOUNTERED,

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

IS ENCOUUNTERED,

THE ERROR

WiLL

REPORTED

AND

THE

PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS SET).
AT THIS
PgATT THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
PROGRAM
GOING
N:
A

2.
3.

ISSUE ANOTHER ''START'' COMMAND

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

ISSUE A "RESTART'' COMMAND

THAT

(THUS GOING THRU ALL OF

(SAME

THE HARDWARE QUESTIONS ARE

ISSUE A ''CONTINUE'' COMMAND

BEGINNING OF

START

NOT ASKED)

(EXECUTION WILL

THE PARTICULAx HARDWARE

TEST

(OMMAND
RESUME

STEPS

FXCEPT
AT

THE

(MOST DIAGNOSTICS

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

HALT OCCURRED.

MOST

DIFFERENT

TYPICAL

CAN BE

THING

ISSUED ONLY AT A HALT ON ERROR).

TO DO HFRE

FLAG SETTINGS.

PROBABLY

PRO/FLAGS: IER:LOE :HOE

THE

(INHIBIT

TURN ON

THE

LOE

FLAG

IER

RESUME

ISSUE

THt

YOU WOULD WANT

PROCEED,

TO SAY:

BUT

WITH

FOLLOWING.

THE

TURN OFF

TURN ON

—

WILL
.

TH'S

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

COMMAND AND

THE

NO QUESTIONS ASKED.

THE

HOE

ERROR PRINTOUT)

FLAC

FLAG

EXECUTION AT

INSTRUCTION AFTER ERROUN REPORT

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

SEQ 0008

PAGE 9

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT (CONTROL/C.
THIS wWlLe TAKE YOU
?U;EEOFHOI?ESLOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
H

START

RESTART

CONTINUE

~ET'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-O
THIS WILL

EXECUTION

RESTORE

THE

FLAGS

THEIR

BEGINNING OF

ORIGINAL

THE HARDWARE

THE ERROR DOES NOT RECUR, THE EXECUTION WILL
THE NEXT ERROR OR TO END OF PASS.

TWO

AT END OF

CHOICES:

VALUES

TEST

FLOW RIGHTM ON

PASS YOU WANT TO RUN THE DIAGNOSTIC

START

RESTART

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

AND

YOU WERE

AGAIN,

YOU WANTED

RESUME

IN.

THRU

YOU

TO ANSWER

HAVE

THE

SEQ 0009

THE FULL PRINT-0UT FROM THE
(0=0PERATOR, D=DIAGNOSTIC):

ABOVE

DJALOGUE

.R CZRLLB
DRS LOADED
DIAG. RUN-TIME

SERVICES REV. ( APR-79
CZRLL-B-0
CZRLL VERIFIES INTERCHANGEABILITY OF
CARTRIDGES BETWEEN DRIVES

MIGHT

0
D
D
D
D

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

D
)

CHANGE HW

# UNITS

(L)

(D)

? 2

UNIT O
BUS ADDRES> (D) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE
= RLOT1 (L) v ?

D
D
g
D

UNIT 1

BUS ADDRESS (0) 174400 ?
v¢CTOR (0) 160 ?
DRIVE (0) 0 ?
ODRIVE

TYPE
= RL01

(L)

D
D
D
D

? N

(N=RLO2)

1
CZKRLL HRD ERR 00004 TST 003 SuB 002 PC:004130

ERR HLT

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

D.O

142282020 22dddiadissiisstislissssfsssiziissssgasay]

THIS POINT

THE DIAGNOSTIC

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
THE ERROR UNTIL

AR R AR

AR RN

LOOK

YOU HAVE

R R

LOCATED

YOU CAN SCOPE

IT,

THEN “C OUT.

R AR A RRNANRNRR RN AR R AR AANNANN AR RS

“C

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

0.0

PAGE

THIS

SEQ 0070

EERLL EOP 1

DR>RESTART/PASS:1

0.0

PAGE

EXECUTION

2.2
CHAIN MODE
PROGRAMS

OPERATION

WITHOUT

BEEN MODIFIED
PROGRAMS ARE

CONSISTS

OPERATOR

10 RUN IN

CHAIN

IDENTIFIED

TO RUN CHAIN MODE,

THt

THE

INTERVENTION.

THE

MODE

CAN

SEQUENTIAL

ONLY PROGRAMS

CHAINED.

DIRECTORY BY A BIC

THAT HAVE

CHAINABLE

EXTENSION.

XXDP+ MONITOR USES AN ASCI]

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 THF XXDP+ MONITOR.
THE
COMMANDS

IN
THE
ASCII
ENCOUNTERED.

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 "HE FIRST CASE THE PASS COUNT SPECIFIED IN
THE
C(HAIN
FILE
IS
USED
B8y
THE
XXDP+
MONITOR
TO DETERMINE THE NUMBER OF PASSES 10
EXECUTE EACH PRCGRAM.
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

WHEN PROGRAMS ARE RUN

SHOULD

SET

OPERATION OF

IN CHAIN MODE,

000000.

THE

QUICK VERIFY.

SOFTWARE

SWITCH

THE XXDF+ MONITOR PRINTS EACH COMMAND

TAKEN FROM THE CHAIN FILE AND THEN EXECUTES THE COMMAND.
WHEN
THE
LAST
COMMAND
OTHER
THAN
ANOTHER C COMMAND HAS BEEN EXECUTED THE
XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT (.).
IT
IS
READY
TO
ACCEPT
ANOTHER
COMMAND
FROM THE CONSOLE.
IF THE LAST
COMMAND S ANOTHER C COMMAND, THE CHAIN MODE WILL CONTINUE AND
THE
CHAIN FILE SPECIFIED By THIS NEW C COMMAND WILL BE USED.

THE USER WISHES

TERMINATE

(HAIN

MODE

BEFORE

NORMAL

TERMINATION
HE
MAY
DO
SO
BY
TYPING A C(ONTROL/C.
HOWEVER, THE
MONITOR WILL NOT ABORT THE CHAIN MODE
UNTIL
IT
RE‘tIVES
PROGRAM
CONTROL FROM THE PROGRAM CURRENTLY RUNNING.

SEQ 0011

PAGE 12

2.3

DETAILS OF

2.3.1

TABLE OF

THERE

ARE

FOUR

COMMANDS AND SYNTAX

COMMAND VALIDITY
WAYS

DIFFERENT SUBSETS OF

THE

ENTERING

HOW ENTERED

OPERATOR ENTERED

DIAGNOSTIC

COMMAND

LEGAL

‘RUN DIAG'

COMMANDS

START
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START
RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

RESTART

CONT INUE

DISPLAY
FLAGS

ZFLAGS
EXIT
4.

MODE,

AND

DIAG COMMAND SET ARE AVAILABLE WITH EACH:

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONT INUE

PROCEED
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT

SEQ 0012

N1
PAGE 13

2.3.2

CUMYAND SYNTAX

L 2222023040882

23d80232002222200

2002

2200

00003t

R0ditfdiRadlisa

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

THE

4000202

DIAGNOSTIC

SPECIFIED.

MAY BE

02022

dRRRRRdddR

IN CORE

THE

IS EXECUTED

ENTERED

dddsddd

IN ACCORDANCE WITH THE

]

SWITCHES

THE START COMMAND

COMMAND MODE HAS BEEN ENTERED VIA ONE

A) OPERATOR TYPED 'RUN DIAG..ISTIC'® B) DIAGNOSTI(

FINISHED EXECUTING C)

OPERATOR

ittt

MESSAGE '# UNITS?'' IS PRINTED.

ISSUED WHEN DIAGNOSTIC

THE FOLLOWING:

ittt

ERROR WAS ENCOUNTERED WITH HOE

CONTROL/C.

AFTER

THE

UNITS?'', THE HARDWARE DIALCGUE IS INITIATED.

FLAG

SET

OPERATOR RESPONDS TO ''#

WHEN [T IS COMPLETED,

THE
QUESTIONS
‘''CHANGE
BECOME THE NEW DEFAULTS.

SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
THEREFORE IT IS NECESSARY TO
RELOAD
THE

THE

AS FOLLOWS:

PROGRAM

IN ORDER

TO RETURN

SWITCH ARGUMENTS ARE

TO THE

LOAD DEFAULTS.

"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
NUYBER
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.
‘'¥LAG-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 1S ENCOUNTERED

TO BE

ENTERED

UHEN

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

PNT

PRINT NUMBER OF

ALL MESSAGES

TO A LINE

PRINTER

TEST BEING EXECUTED

SEQ 0013

PAGE 14

BOE BELL ON FRROR

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL
ISR

INTERVENTION TESTS

INHIBIT STATISTICAL REPORTS

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

LOT LOOP ON TEST
EVL EVALUATE
THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE
EQUATED
TO
0
ARE
%$A2§BE~ ACLF%CEGFSJO;REPE&;AELSIS CLEARED.
IF THE FLAGS SWITCH IS

"EOP-INCR'’ IS A DECIMAL NUMBER INDICATING HOW OFTEN
PASSES)
DEFAULT
AR

IT IS DESIRED THAT THE END OF
IS AT Thc END OF EVERY PASS.

AN R A AR

AR AN

ANRAN AN

(IN

TERMS

PASS MESSAGE BE PRINTED.

THE

AN NN AARAAAARARARARARARAANR
AN AN AR AR AN

RESCTART) /TEST:TEST~LIST/PASS :PASS~CNT/FLAGS :FLAG-LIST/EOP:EOP~INCR/UNITS:UNIT-LIST
L2820

ddd

THE DIAGNOSTIC

tiisidfitt

IN CORE

it itadiisiissdlisddsiiddsissssissstsgs
)

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
EI&T?SSE/CVIA
A)
DIAGNOSTIC
I>
FINISHED
B)
HALT
ON
ERROR
()
THE

SWITCH ARGUMENTS ARE AS

IN THE

START

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

NUMBERS

RANGING

FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE TO BE
TESTED.
THE
LOGICAL
UNIT
NUMBER
DESIGNATES
THE
POSITION OF THE P-TABLE IN CORE, ACCORDING
TO THE JRDER 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

OPERATOR

COMMAND''.

UNTIL THE NEXT START

THE EFFECT OF THE UNIT-LIST LASTS

(WHERE

"ALL'") OR THE NEXT RESTART.

COMMAND EXCEPT:

AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

RESET

SEQ 0014

PAGE

LA RSAARRRRRSRRRRRRRRRRRRRRt
Rt RRRRRRRRsdd )

CONCTINUE) /PASS : <PASS=CNT/FLAGS
2202000080000

: <FLAG=LIST>

R0R000R2R2R

222202

REE

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 3t RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE C(HANGED.
THE

SWITCH ARGUMENTS ARE AS

IN THE

START

COMMAND EXCEPT:

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

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

FROM

THE

L8322 22222202022228882
ddR )

PROCCEED)
/FLAGS : <FLAG=LIST>
L8222 0202020¢0208002

88382828243

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A
HALT
ON
ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO
BEGIN
EXECUTICN
AT THE LOCATION
%ngI:GngEDERROR CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
L

THE

SWITCH ARGUMENTS ARE

THE

SAME AS

THE

START

COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

8 3 1
L2

EXIT
LA
2 3

RETURN TO XXDP+ PROMPT MODE.

L 8822248808802
R S]]

DRO(P)/UNITS:UNIT~-LIST
AR?

YRAARAAARA
AR
RN Y

THE UNITS

SPECIFIED ARE

DROPPED

glytcz ngclE}EngL A START COMMAND

FROM

TESTING UNTIL

IS GIVEN.

THEY

ARE

A DROP CANNOT BE

ADDED

FOLLOWED

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

SEQ 0015

PAGE

1022882020022
2R2d80d 23|

ADD/UNITS:UNIT~LIST
(8380222022230
2 2224

THE UNITS SPECIFIED ARE ADDED BACK

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

(THEY MUST HAVE BEEN

TO THE

TEST SEQUENCE.

PREVIOUSLY

AN ADD CANNOT

LA 222
¢

PRI (NT)
ARXNNRE
R

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

PRINTED.

AAARRANNARNRNARRNRARANANAANRAANY

DISCPLAY) /UNITS:<UNIT~LIST>
1482222802200
C0200280 8802020282822}

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.
AR
Y

FLA(GS)
LA R 4224

THE

CURRENT

SETTINGS OF

ALL

FLAGS ARE

PRINTED.

A AN &R
A

ZFL (AGS)
AR

ALL

FLAGS ARE

2.4

CLEARED.

EXTENDED P-TABLE DIALOGUE
THE

FULL

CAPABILITY OF

THE

HARDWARF

DIALOGUE

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,
BETWEEN
THE
HARDWARE
P-TABLE FORMAT.

AND THERE
PARAMETER

REVEALED

THE

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

IS
A
ONE-TO-ONE
CORRESPONDENCE
QUESTIONS
AND
THE SLOTS IN THF

SEQ 0016

PAGF

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 >TRING 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 PARAMEERS [CR EACH
5 HARDWARE QUESTIONS IN THE DIALOGUE).

(5 SLOTS IN THE

P-TABLE,

FOLLOWING IS THE DIALOGUE FOR
THIS
8
RLOX
DRIVE
SYSTEM,
THIS
SYSTEM
HAS
TWO
(2)
RL11
TYPE
(CONTROLLERS ALL TO BE SET AT 'BR

LEVEL'® 5.
RLOZ2'S

# UNITS

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

(ON THE
(D)

SECOND CONTROLLER):

ARE

? 8

UNIT O
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLO1 (L) Y ?
UNIT 4
BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) O ? 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
C(HANGE
IN
(SR
ADDRESS

CONTROLLER (175400).
CHANGED
TO
164
IN

QUESTION
WAS
FOR
THE RLOZ

THE
SECOND
CONTROLLER'S
VECTOR WAS
ALSO
QUESTION #2.
THE RLOZ2 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 UWNITS IN QUESTION #4.

SEQ 0017

2.5

PAGE

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

BUS ADDRESS

(0)

1744002

ANSWER W]TH THE BUS ADDRESS OF

VECTOR (0)

(0)

2.6

THE

CONTROLLER.

TYPE

ANSWER Nu

CONTROLLER.

INTERRUPTM VECTOR OF

ANSWER WITH THE
DRIVE

THE

160?

ANSWER WITH THE

DRIVE

THE
VALUE

DRIVE(S)

- RLO1
(N)

(L)

CONNECTEv

TO THE

CONTROLLER

DRIVE

IS AN RLOZ2

SOF TWARE PARAMETERS
THE
OR

FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART,
CONTINUE.
THEY
ALLOW
FLEXABILITY
IN
THE
WAY
THE PROGRAM

BEHAVES.

THE SOF TWARE PARAMETERS GIVE

THE
WAY
RESTART,

IT
RUNS.
OR CONTIWUE

THE PROGRAM

THE
PARAMETERS
(AN
BY ANSWERING (Y)ES TO

"'CHANGE S.w.

BE
THE

FLEXIBILITY

MODIFIFD ON A START,
FOLLOWING QUESTION:

?"'

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE
PARAMETER
QUESTIONS,
WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
g?A:T<$zE.TEg$NTROL

THERE

ARE

3.0

NO SOF TWARE

ERROR
ERROR
ALL

(®2)

WILL

INVOLVED

ALL

REMAINING QUESTIONS AND

PARAMETERS.

INFORMATION

INFORMATION IS COMPLETE

REGISTERS

DEFAULT

ARE

IN ERROR.

GIVEN

IN GIVING ALL
WELL

INFORMATION

TRACK,

SECIOR

NECESSARY,
AND

DRIVES

SEQ 0018

3.1

ERROR REP

2TING

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

DZRLL

PAGE

XXX

ERR

YYYYY

TST

772

SUB

PPP

PC:

ERROR
FORMAT

RRRRRR

:
WHERE

XXX

YYYYY

122

PPP
RRRRRR

ERRORS GIVE

WITH A ONE

1S PROGRAM LETTER

IS SFT - SOFT ERROR
HRD - HARD ERROR
DV FAT - DEVICE FATAL

ERROR
SYS FAT - SYSTEM FATAL ERROR
IS

THE

ERROR NUMBER

1S
IS

THE
THE

SUBTEST NUMBER
PROGRAM LISTING LOCATION

IS THE

TEST NUMBER

THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR

LINE

DESCRIPTION AND

RELEVENT

DATA.

ALONG

:
EXAMPLE

ONE LINE

(OPTIONAL
(OPTIONAL

BEFORE

DESCRIPTION

SECOND LINE)
THIRD LINE)

CS:XXXXXX BA ::XXXXXX DA :XXXXXX MP: XXXXXX

AFTER
CS:XXXXXX BA:XXXXXX DA XXXXXX MP: XXXXXX
OTHER PERTINENT [NFORMATION IS GIVEN AT THIS TIME.
REGISTEF

DESCRIPTIONS

CAN BE

FOUND

[N SECTION

5.0.

ERROR DESCRIPTIONS:

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

"MINIMUM OF

TWO DRIVES REQUIRED''

THE

SECTOR

AFTER

SEQ 0019

THE

PROGRAM REQUIRES AT

'MAXIMUM OF

LEAST

TWO DRIVES

TO PROVE

PAGE

COMPATABILITY,

FOUR DRIVES ALLOWED''

THE PROGRAM ONLY ALLOWS A MAXIMUM OF FOUR DRIVES.
“CAN'T FIND FIVE ADJACENT TRACKS''
THE
PROGRAM
REQUIRES
TEN
PREDETERMINED
SPOTS
ACROSS

FOMPLETELY GOOD ADJACENT

SETS
OF
FIVE
ADJACENT
THE PACK.
IT WAS UNABLE
TRACKS IN THE LIMITS GIVEN.

TRACKS
TO FIND

AT
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 8Y ONE DRIVE.
BOTH DRIVES INVOLVED ARE GIVEN.

AFTER

"READ RECOVERY ERROR''
SQTERROR WAS

"'ADJACENT

ENCOUNTERED WHILE

TRACK

RECOVER

ANOTHER

DRIVES

IN THE

ADJACENT

TEST

PART,

A FURTHER

ERROR HALTS
ERROR HALTS ARE
WITH /FLAG:HOE.

4.0

TEST''

AN ERROR WAS ENCOUNTERED WHILE
DESCRIPTION IS GIVEN.

3.2

TRYING

SUPPORTED PER DESCRIBED
THERE

PERFORMANCE

THIS PROGRAM WIiLL

ARE

AND PROGRESS

NOT

GIVE

NO OTHER HALTS.

THE

REPORTS

ANY PERFORMANCE

REPORTS.

SECTION

SEG 0020

4.2

PROGRESS REPORTS

THIS PROGRAM WILL NOT

GIVE

ANY PROGRESS REPORTS.

DEVICE

INFORMATION TABLES

THE RL11/RLV11
CONTROL OF THE

CONTROLLER HAS THE
SUBSYSTEM.

FOLLOWING FOUR(4)

1t
1008

BIT

HEADER NOT FOUND (WITH BIT 10 SET)
DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET)
DATA CRC (WITH B8I1 10 CLEAR)

OPERATION INCOMPLETE

- DRIVE SELECT (0-3)
CONTROLLER READY

INTERRUPT ENABLE

(XXXXX0)

COMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERROR

EXTENDED BUS ADDRESS
EXTENDED BUS ADDRESS

NOWNESBWN—=O

BIT

8IT
BIT
BIT

—

BIT
BIT

@©

BIT 1

HSVNVOANVO

1
1
1
BIT 1

—

BIT
BIT
BIT

Nweswnm

RLCS - CONTROL AND STATUS REGISTER

—

5.0

PAGE 21

FUNCTION CODE

(BIT 17)
(BIT 16)

= NOP (PDP-11) MAINT
- WRITE CHECK
GET DRIVE STATUS
- SEEK

(LSI-11)

READ HEADER
WRITE DATA
READ DATA
READ WITHOUT HEADER COMPARE

O - DRIVE READY

RLBA - BUS ADDRESS REGISTER

(XXXXX2)

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

(XXXXX&)

REGISTERS

FOR

SEQ 0021

READ/WRITE

FUNCTIONS

15-7 = CYLINDER ADDRESS FOR TRANSFER
6 = SURFACE FOR TRANSFER
5-0 - SECTOR FOR TRANSFER (1-40.)
SEEK FUNCTION
~7 - DIFFERENCE TO NEW CYLINDER
5 = MUST BE ZERO (0)

-~
-~
=
-

SURFACE (0=UPPER, 1=LOWER)
MUST BE ZERO (O)
SEEK DIRECTION( 1=IN / 0-0UT )
MUST BE ZERO (0)
MUST BE ONE (1)

GET STATUS FUNCTION
15-4 - IGNORED SHOULD BE

3 - DRIVE RESET
2 - MUST BE ZERO (0)
1

- "WST BE

ONE

0 - MUST BE ONE
RLMP - MULTIPURPOSE

ZERO

(0)

(1)

15 = 0 - WORD COUNT

(TWO'S

COMPL IMENT)

READ HEADER FUNCTION

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

(RC

(THIRD READ)

GET STATUS FUNCTION
DRIVE

STATUS

|
I
I
LI

b
b
b
—

BIT

Q2NN

15 - WRITE DATA ERROR
CURRENT HEAD ERROR

((CHE)

WRITE LOCK STATUS (WL)
SEEK TIME OUT (SKT0)
SPIN ERROR (SPE)
WRITE GATE ERROR (WGE)

PAGE 22

SEQ 0022

RV To R NTs V6]

Pt Bt gy
G

ODTODODD

HEADS HOME

]

TEST

THE

PAGE 23

3 - BRUSHES HOME
2-0 -STATE BITS
0 - LUAD STATE

NOVWN

6.0

VOLUME (HECK (V()
DRIVE SELECT ERROR (DSE)
DRIVE TYPE IS RLOZ IF SET
SURFACE (0=UPPPER, 1=LOWER)
COVER OPEN

ot P

ettt
—f

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

SUMMARIES

FOLLOWING

BRIEF

DESCRIPTION

THE

WAY

THE

PROGRAM

EXECUTES.
THE
PROGRAM
WILL
CHECK
COMPATIBILITY
BETWEEN 2 - 4
DRIVES USING THE SAME RLOTK CARTRIDGE OR SAME RLOZK CARTRIDGE.
THE
PROGRAM
WILL
ASK
DRIVES GIVEN IN THE
PLACE

PACK

THE
OPERATOR
TO SEQUENCE
FOLLOWING MANNER.
IN DRIVE

THE

N ON CONTROLLER X AND

PACK BETWEEN

THE

LOAD

UNLOAD DRIVE N ON CONTROLLER X
PLACE

PACK

IN DRIVE

UNLOAD DRIVE N+1

THE PROGRAM WILL SEQUENCE
HARDWARE QUESTIONS.
.E.

DRIVE

ON CONTROLLER X AND LOAD

ON CONTROLLER X

THE

ORDER

THAT

? 0,1,2.3

PROGRAM WILL

DRIVE

N+1

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

SETS OF

FIRST

DRIVE

IS LOADED

THE

PAGE 24

PROGRAM WILL ATTEMPT TO FIND

TEN

FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS THAT CONTAIN NO

BAD SECTORS USING THE BAD SECTOR FILE.

THE 10 SPOTS ARE:

BOTH

SURFACES,
INNER,
OUTER,
MIDDLE,
ONE QUARTER AND THREE QUARTERS.
AFTER THIS IS DONE THE OVERWRITE TEST IS PREPARED(FIRST DRIVE CAN'T
OVERWRITE)
AS
WELL
AS
THE ADJACENT TEST.
AS THE PACK IS CYCLED
BETWEEN DRIVES THE FOLLOWING CHECKS ARE MADE:

EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE
EACH DRIVE

CAN RECOVER EACH OTHERS DATA

EACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER
DRIVE WITHOUT DISTURBING THE OTHER'S DATA.
READS AND WRITES

TAKE

PLACE

AFTER

SEEKS

FROM

BOTH DIRECTIONS.
ADJACENT WRITES
TESTS

ARE

TAKE

PLACE

PERFORMED AT

ALL

TO BOTH SIDES OF

EACH WRITE

TEN

THE

SPOTS

ACROSS

PACK.

SEQ 0024

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

268
300

611

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

7
g

.SBTTL

MACRO DEFINITIONS

.MACRO

12
}2

.ENDM

l
3

.ENABLE AMA
.ENABLE ABS

002000

.=2000

15
16
17
;g

.MACRO

.NLIST

.ENDM

22
23
gg

002000

28
29
(4)

002000
002000
002000

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

002006
002007
002010
002011
002012
002014
002016
002020
002022
0020246
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050

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

(3)

SEQ 002¢

002001
002002
002003
002004
002005

002051

WA]TUS

ARG

JMACRO

JSR

PC,TIME

;CALL

ARG
ARG, YDELAY
PC,XTIME

JMACRO MILLI-SFCOND WAIT
s SAVE ARGUMENT
;CALL TIMING ROUTINE

MOV

WAITMS
MOV
JSR

ARG, XDELAY

CND,MD,ME

Sv(
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
000000
003

003

MDHEDR
HEADER
(CZRLL.B,0,0.,1
LASCII /C/
LASCIT
LASCII
LASCII
LASCII
BYTE

.BYTE
BYTE
ASCI1
LASCIY
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.BYTE

BYTE

72/
/R/
/L/
/L/
O

0
0
/B/
/0/
0
O
LSHARD
0
LSHW
O
LSLAST
0
O
1
0
LS$DISPAICH
0
0
0
CSREVISION

CSEDIT

MICRO-SECOND WAIT

s SAVE ARGUMENT

TIMING ROUTING

(4)
(4)

(4)

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

30A(1052)

17-DEC-79

MACRO DEF INITIONS

002052
002054
002056
002060
002062
002064
06

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

ENNTE

(4)
(5)
(4)

MACY11

.WORD
.WORD
ENDMOD

055103
042526
051505
051105
042507
0521

041440
042111
042502
020116
051505
002222
046122
030114

046122
044522
044440
044103
041101
020131

051101
042507
053524
051104
000

030460
000062

020114
044506
052116
047101
046111
043117

DESCRIPT

ASCIZ

11:21

O
O

<CZRLL VERIFIES
INTERCHANGEABILITY OF
IE
/CZRLL VERIFIES

.EVEN

DEVTYP

.ASCIZ

<RLO1,RLOZ>
/RLO1,RLO2/

.EVEN
.SBTTL GLOBAL EQUATES SECTION

BGNMOD

GLBEQAT

002234

EQUALS

; BIT DIFINITIONS

v Nt

N PN

md cond ——d

N
o

b el

N TN

N
N

:DEF INITIONS
002234

100000

040000
020000
010000
004000

BIT15== 100000

= 10000
= 4000

SEQ 0027

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

051124
020123
042505
053111

051054

PAGE 1-1

-mTn

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

INTERCHANGEABILITY OF

CARTRIDGES BETWEEN DRIVES>
CARTRIDGES BETWEEN DRIVES/

CZRLLBO RLO1/02_DRIVE COMPAT
CZRLLB.MAC
07-CEC-79 10:40

MACY11

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

)
)
)
)

002000
001000
000400
000200

B8IT10==
81709==
B81T08==
B8I1T07==

2000
1000
400
200

@D
)
)
@D

000040
000020
000010
000004

BIT0S5==
BIT04==
8I1T03==
BIT02==

40
20
10
4

QD)

000100

000002
000001

BITO1== 2
8IT00== 1

QP
@D

001000
00040C

BIT9==
BIT8==

BIT09
BITO8

)
D)
4P

000040
000020
000010

BIT5==
BIT4==
BIT3==

BIT0S
BIT04
BIT03

QP
1
E};

000200
000100

000004
000002
000001

QD)

32.
31.

.
;

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED

000035

EF .NEW==

29.

;

A NEW PASS HAS BEEN STARTED

000034

(1)
g};

EF.CONTINUE==
EF .PWR==
:
:

000340
000300
000240
000200
000140
000100
000040

000000

g};

30.

’8.

PRIORITY LEVEL DEFINITIONS

PRIO7==
PR106==
PR1I05==
PRING==
PRI03==
PRI0O2==
PRIO1==

340
300
240
200
140
100
40

PRI00== 0

;OPERATOR FLAG BITS

)
1
1)
QP

000004
000010
000020
000040

EVl==
LOT-=
ADR==
IDU==

1)
1)
(1)
(1)
(n

000200
000400
001000
002000
004000

==
B0E==
PNT==
PR]==
IXE==

BIT0?2
BITOI
BITO0

EF .START==
EF .RESTART=-

E};

BIT2==
BIT1==
BITO==

BIT07
BIT06

000040
000037

000036

D)
1)
1)
)
&P
(1
1)

6IT7==
BIT6==

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

4D
o))

SEQ 0028

; EVENT FLAG DEFINITIONS

((:B
)
1)

3
PAGE 1-2

B81T06== 100

Qp)
fl;

@D)
[@D)

000100

I1SR==

4
10
20
40

100

200
400
1000
2000
4000

; CONTINUC COMMAND WAS ISSUED

; A POWER-FAIL/POWER-JP OCCURRED

CZRLLBO RLO1/02 DRIVE_COMPAT

CZRLLB.MAC

07-DEC~79 10:40

MACY11

30A(1052)

010000
020000
040000
100000

LOE==
HOE==

46
45
46
zg

000000
000002
000004
000006

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

‘ég
000000

gé

000006

52
53

3
PAGE 1-3

10000
20000

40000
100000

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

CSR=0

. CONTROLLER ADDRESS

PAT=6

;PATTERN UNIQUE TO DRIVE

VEC=2
DSB=4

;VECTOR OF CONTROLLER
;DRIVE SELECT

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=B1T13
DLT=BIT12
DCRC=BIT
HCRC=BIT11
HNF=BIT12
oPI=8IT10
CRDY=BIT7
BA17=BITS
BA16=8BI1T4
CRSET=8IT1
GSTAT=BIT?2
SEEK=B]T1!8B1T2
RDHDR=B]T3
WRITE=BIT3!BIT1
READ=BIT3!BIT2
DRST=BIT3!BIT1!BIT0
GSBIT=8BIT1!BITO
MK=BITO
SIGN=BIT?
SKHS=BIT4
HEAD=BIT6

;DRIVE READY
s INTERRUPT ENABLE
;COMPOSITE ERROR
;DRIVE ERROR
sNON-EXISTANT MEMORY ERROR
;DATA LATE
;DATA CRC ERROR
;HEADER CRC ERROR
sHEADER NOT FOUND ERROR
;OPERATION INCOMPLETE ERROR
s CONTROLLER READY
;EXTENDED BUS ADDRESS BIT 17
;EXTENDED BUS ADDRESS BIT 16
sCONTROLLER RESET FUNCTION CODE
:GET DRIVE STATUS FUNCTION CODE
;SEEK FUNCTION CODE
;READ HEADER FUNCTION CODE
;WRITE FUNCTION CODE
;READ FUNCTION CODE
:DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
:GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD
;MARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET STATUS)
;DIRECTION FOR SEEK(O=AWAY FROM SPINDLE)
sHEAD SELECT FOR SEEK
;HEAD SELECT FOR READ ,WRITE,GET STATUS

;OFFSET FOR HARDWARE P-TABLE

85
86
87
gg

IBE==
1ER=~

000002
000004

8(1)

;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}

11:21

GLOBAL EQUATES SECTION

1)
(

1)
(l%

17-DEC=79

000000
000002
000004
000006
002234

CSRVECT=
TYPDRDRBT=

0
2
4
6
ENDMOD

SEQ 0029

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

0288

)

WA =2O VO NOAWVNEBWN 2OV

NONES W

=000~

(V2]

)
d
D e
)
D
D
d aed
d
D
D
d
ed
et e
h ed e
b
D
d
b o
b
b
e
d
d
i

~NOv\wn

D
md
b
i e

SN
O

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

PAGE 1-4

SFQ@ 0030

.SBTTL GLOBAL DATA SECTION

97
98

141

MACY11

000000

BGNMOD

GLBDAT

HDRFND:

.WORD

. 1=HEADER IN BAD SFCTOR LIST

JHERE IS THE LIST OF TRACKS TO USE FOR THIS TEST
; TRACKS ARE ENTERED BY

°'FNDTPK'

OuUT10:
oUT20:
ouUT30:
OUT40:
OUTS0:
OUT11:
ouUT21:
OUT31:
OUT41:
OUTS1:
0QU10:
0QU20:
0oQuU30:
0QU40:
0QuUS0:
0QuU11:
0QU21:
0QU31:
0QU4T:
oQus1:
MID10:

;OUER TRK HEAD 0

MID20:
MID30:
MID40O:
MIDSO:
MID11:
MIDZ21:
MID31:
MID41:
MIDST1:
TQU10:
TQU20:
TQU30:
TQU4O:
TQUS0:
TQU11:
TQU2T:
TQU31:
TQU4T:
TQUST:

INN10:
INN2O:
INN30:
INN4O:
INNSO:
INNT1:

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

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

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD

0
0
0
0
0
0
0
0
J
0
0
0
0
O
O
0
0
0
0
O
0

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

0
0
O
0
0
0

ROUTINE £

°'FIXTRK'

:OUTER TRK HEAL 1

:1ST QUARTER TRK HEAD 0

;1ST QUARTER TRK HEAD 1

;MIDDLE TRK HEAD O

;MIDDLE

TRK HEAD 1

:3RD QUARTER TRK HEAD 0

:3RD QUARTER TRK HEAD 1

;INNER TRK HEAD O

:INNER TRK HEAD 1

ROUTINE

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

R NA o%)owrunuwnu“g
= OVONOWNEWNI=O
Vo ~NON
NN
CO~NO

S
I S
S
S
S
N
T
SN
G
S
[

NNNNNNNN NO

151
152
153
154

179
180
181
182
183
184
185

002372
002374
002376
002400

000000
000000
000000
000000

MACY11

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

INN21:
INN31:

.WORD
.WORD

O
O

INNS1:

.WORD

INNGT:
.EVEN

.WORD

11:21

3
PAGE

1-5

SEQ 0031

“

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

000020

SECLST:

.BLKW

16.

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

000170

SECBUF:

.BLKW

5%24.

JLIST OF TRACKS USED TO OVERWRITE TEST.
JFIRST FIVE ARE

CYLINDER ADDRESSES OF

TOP SURFACE.

;LAST FIVE ARE CYLINDCER ADDRESSES OF BOTTOM SURFACE.
003022
003024

003042
003044

002242
002266
002312
002336
002362
002254
002300
002324
002350
002374

OVWTRK: 0OUT30
0Qu30
MID30
TQU30
INN30
ouT31
0Qu31
MID31

003046
003050
003052
003054

152525
133333
066666
155555

PATLST:

003026
003030
003032
003034
003036
003040

TQU31

INN3T
.WORD

.WORD
.WORD
.WORD

152525

133333
066666
155555

CZRLLBO RLO1/02_DRIVE _COMPAT
CZRLLB.MAC
187
188
189
190
191
192
193
194
195
196
197
198
199

200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230

231
232
233
234
235
236
237
238
239
240
241
242

9003056
003060
003062
003064
003066
003070
003072
003074
003076
003100
003102
003104

003106
003110
003112
003114
003116
003120
003122
003124
003126
003130
003132
003134
003136
003140
003142
003144
003146
003150
003152
003154
003156
003160
003162
003164
003166
003170
003172
003174
003176
003200
003202

003204
003206
003210
003212
003214
003216
003220
003222
003224
003226
003230
003232

07-DEC-79 10:40
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000G00
000000
000000
000000
000000
(000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
006000

MACY11

30A(1052)

17-DEC-79

GLOBAL DATA SECTION

TEM:
.WORD
T.DRIVE: .WORD
FOWR:
WORD
FADJ:
.WORD
TEMP:
.WORD
LSTCLR: .WORD
REASON: .WORD
ERFLG:
.WORD
STFLG:
.WORD
AD.LOC: .WORD
ADJFLG: .WORD
ADJDIR: .WORD

DRSTAT: .WORD
HSFLG:
.WORD
OSECT:
.WORD
HEADC1: .WORD
DIRC:
.WORD
SURF:
.WORD
CYL:
WORD
REVSK:
.WORD
FORSK:
.WORD
UUT :
.WORD
SECT:
.WORD
LSTDRV: .WORD
GDATA:
.WORD
BDATA:
.WORD
WCOUNT: .WORD
SECWRD: .WORD
OFFSET: .WORD
LSTTRK: .WORD
FRTTRK: .WORD
PRSTRK: .WORD
SURFACE: .WORD
TRKFND: .WORD
TRKCNT: .WORD
E.CS:
.WORD
E.BA:
.WORD
E.DA:
.WORD
E.MP:
.WORD
E.-MP1:
WORD
E.MP2:
.WORD
BCS:
WORD
BBA:
WORD

BDA:
BMP:
SERNM1:
SERNM2:
ADJTRK:
ADJUWUT:
ADJLC2:
ADJLC3:
ADJLC4:
STSEC1:
STSEC:
BUF :

.WORD
WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BLkW

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

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

0
0
0
0
O
O
O
O
0
3072.

11:21

3
PAGE 1-6

SEQ 0032

;LAST CONTROLLER
;DRIVE ERROR REASON
JERROR FLAG
;PROGRAM START UP FLAG
;TRACK INDEX FOR ADJ. CYL TEST
;FLAG FOR ADJ. STORE OR RETRIEVE
;ADJACENT SEEK DIRECTION

)

s SURFACE FLAG
;DIRECTION OF SEEK

;REVERSE SEEK
;FORWARD SEEK
JUNIT UNDER TEST
;SECTOR
;LAST DRIVE
;GOOD DATA
;BAD DATA
;WORD COUNT
:SECTOR WORD
s INCREMENT
;LAST TRACK OF SEARCH
JFIRST TRACK OF SEARCH
;PRESENT TRACK
s SURFACE
s TRACK FOUND
s TRACK COUNT
;IMAGE OF CSR
; IMAGE OF B8US ADDRESS
s IMAGE OF DISK ADDRESS
; IMAGE OF MULTI-PURPOSE WORD 1
;o
'
'
2
.
I
"
'
3
; COMMAND LOADED
;BUS ADDRESS LOADED
;DISK ADDRESS LOADED
;WORD COUNT LOADED

;SERIAL NUMBER OF CATRIDGE
L
'
'
"
s INSIDE/OUTSIDE FLAG
JUUT FOR “'ADJCYL''
;TEMP LOC FOR "‘ADJCYL"'
.
"
"
"
s
N
'
"
JSECTORS TO WRITE "ADJCYL''
st
N
N
N
JBUFFER FOR 24 SECTOR READS

(ZRLLBO RLO1/02_DRIVE (OMPAT
CZRLLB MAC
07-DEC-79 10:40

017232
017234
017236

17-CEC-79

GLOBAL DATA SECTION
XDELAY:

YDELAY:

.WORD

:
DRBUF

11:21

PAGE

SEQ 0033

1-7

JDELAY FOR WAIT MICRO-SECOND MACRO
JDELAY FOR WAIT MILLI-SECOND MACRO

;DRIVE INFORMATION BUFFERS

017236

000000
000002
000004
000006

CSR
VEC
DSB
PAT

JPATTERN UNIQUE

017246
017250
017252
017254

000000
000002
000004
000006

CSR
VE(
DSB

; CONTROLLER ADDRESS
;VECTOR
;DRIve SELECT BITS

017256
017260
017262
017264

017240
017242
017244

;CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS

TO DRIVE

N
N
N
s

PAT

JPATTERN UNIQUE

000000
000002
000004
000006

CSR
VEC(
0SB
PAT

;CONTROLLER ADDRESS
JVECTOR
;DRIVE SELECT BITS

JPATTERN UNIQUE

017266
017270
017272

000000
000002
000004
000006

CSR
VE(
DSB

;CONTROLLER ADDRESS
JVECTOR

017276
017300

000000

TO DRIVE

Nl N

WD Y

Ve tal e N
etV

TO DRIVE

Nl N
N
N
N

N
Nt
—

NI~ Y

ey et

e o, 000 P S L

el e

e J

WS W

S
S

000000
000000

30A(1052)

o
N
N
W

e Y
W

W
R

NP NN

) o

243
264
245
246
247
248
252

MACY11

266

017274

;DRIVE SELECT BITS
JPATTERN UNIQUE TO DRIVE

PAT

ENDBUF:

.WORD
ENDMOD

;JEND OF DRIVE BUFFERS

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

MACYTT

30A(1052)
GLOBAL

17-DEC~79

TEXT

SECTION

11:21

3
PAGE 1-8

SEQ 0034

.SBTTL GLOBAL TEXT SECTION
GLBTXT

017300

BGNMOD

,GLOBAL TEXT

017300
017325
017407
017425
017464
017523
017574
017627
017675
017735
017755
020001
020031
020050
020060
020070
020115
020142

047503

CNTTOT:
INITWR:
DCKER:

105
105
115

FEW:
:
MANY

040515
124

:
NONE
OVMES:
RECMS:

ERRFND:
OVWER:

RECER:
FUNERR:
SKER:

FWD:
REV:

020172

040512

020172

042503

WRIT1:
READ1:

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

ADJTXT: . ASCIZ
.EVEN

/CONTROLLER TIMED OuT/
/ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE
/ERROR ON READ/
/MINIMUM OF TWO DRIVES REQUIRED/
/MAXIMUM OF FOUR DRIVES ALLOWED/

/TEST ABORTED - CAN'T FIND ANY GOOD SPOTS/
/TRYING TO OVERWRITE DRIVE /
/TRYING TO READ DATA WRITTEN BY DRIVE
/CAN'T FIND FIVE ADJACENT TRACKS/
/OVERWRITE ERROR/
/READ RECOVERY ERROR/
/ERROR IN SEEK OPERATION/
/M1S SEEK ERROR/
/FORWARD/
/REVERSE/
/ERROR WRITING SECTOR/
/ERROR READING SECTOR/
/ADJACENT CYLINDER TEST/

ENDMOD

.SBTTL GLOBAL ERROR REPORT

020172

BGNMOD

GLBERR

020172

BGNMSG

ERR1

020172
020172
020176
020202
020206
020212
020216
020220
020222
020226
020226
020226

013746
013746
013746
012746
012746
010600

003156
003150
003152
021477
000004

062706

000012

104414

MOV

MOV
MOV
MOV
MOV
TRAP
ADD

L10000:

104423

020230

BGNMSG

005046

156416
016446

020246

PRINTB
MOV

012746
012746

000005
000000
021200
000003

SECTION

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

#4,-(SP)
SP.RO
(SPNTB
#12,SP

ENDMSG
TRAP

ERR?

($MSG

PRINTB

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

MOV

HFRM4
, - (SP)

CLR
BISB
MOV
MOV

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

#3,-(SP)

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

(4)
(4)

020252
020254
020256
020262
020266
020266
020266

104414

062706
004737

L10001:
BGNMSG

156416

016446
012746
012746
010600
104414

000010
026120

013746
013746
013746
012746
012746
010600

003132
003122
003120
021241
000004

062706

000012

005046

156316
016346

012746
012746
010600
104414

062706

(3
(3

322
323
324
325
(9
(9

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

326
327

020414
020414
020414

020416
020416
020420
020424

020430
0204 34
020440
020442
020444
020450

020454
10) 020454

ERR3

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
TRAP

ADD
PRINTB

CLR
B1SB

MOV
MOV
MOV
MOV
TRAP
ADD

L10002:
BGNMSG

005046

CIMSG

JSR

000010

020416

TRAP

PRINTS

TRAP

000010
026120

013746

003132

MOV
MOV
%
MOV
TRAP
ADD
PRINTB

JREGISTER

DUMP RGUTINE

lFRM?.CSR(RA),<B,DSB+1(R4)>
-(SP

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

HERMG
, - (SP)

#3,-(SP)

SP RO
C$PNTB

#10,SP

PC .REGDMP

;REGISTER DUMP ROUTINE

HFRMS ., <SURF>,<CYL>,SECT
SECT,=~(SP)
CYL,=(SP)
SURF .~ (SP)

#FRMS
- (SP)

#4,~(SP)

SP.RO
C$PNTB

#12,SP
#;gm;6,CSR(R3),<B.DSB+1(R3)>
-(SP

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

#ERM16,=(SP)

#3,-(SP)

SP.RO

C$SPNTB
#10,5P

CIMSG

ERR4

CLR
BISB

000005
000000
021200
000003

SEQ 0035

ENDMSG

PRINTB

156416
016446
012746
012746
010600
104414
062706
004737

1-9

#10,SP

PC,REGDMP

ENDMSG

MOV
MOV
MOV
MOV
TRAP
ADD

000005
000000
022030
000003

104423

SP,RO
CSPNTB

JSR

CLR
B1SB

000005
000000
021200
000003

062706
004737

104414

320
321

MOV
TRAP
ADD

000010
026120

104423

005046

(4)

17-DEC-79
11:21
PAGE
30A(105¢)
GLOBAL ERROR REPORT SECTION

010600

020270

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

MACY11

#i?g?,CSR(Ré),<B,DSB+1(R4)>

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

H#FRM4
, - (SP)

#3,-(SP)

SP,RO
CSPNTB

#10,SP
PC ,REGDMP
JSR
#FRMS5 , <SURF>,<CYL>,SECT

MOV

SECT,=(SP)

JREGISTER DUMP ROUT INE

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

(8)
(?)

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

an
10)
(9
(8)
(7)
(6)
(3)
(4)
020542
(4)
020544

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

330
33
(3)
(3
332
333
334
(9
(9
(8)
(7)
(6)
(3)
(4)
(4)

335
336

003122
003120
021241
000004

062706

000012

013746
013746
013746
013746
012746
012746
010600

003134
003070
003134
003072

062706

000014

013746
012746
012746
010600

003116
021331
000007

062706

000006

104414

328

329
(8)
(7)

013746
013746
012746
012746
010600

020550
020550
020554
020560
020564
020566
020570
020574
020574
020574

020576
020576
020576
020600
020604
020610
020614
020620
020622

104414

MACY11

MOV

#FrmS
- (SP)
C$PNTB

#FRM& ,REASON,LSTDRV,LSTCLR,LSTDRY

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

REASON. ~(SP)
#FRMG,
=~ (SP)
#5,-(SP)

000005

SP,RO
CSANTB

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

#FRM?,-(SP)

#2,-(SP)
ADD

L10003:
BGONMSG

005046
156416
016446

012746
012746
010600
104414
062706
004737

000010
026120

L10004:
BGNMSG

005046
156416
016446
012746
012746
010600

000005
000000
021200
000003

062706
004737

000010
026120

104414

SPRO
C$PNTB

#6.,SP

ENDMSG
TRAP

ERRS

PRINTB

CLR
8158
MOV
MOV
MOvY
MoV

000005
000000
021200
000003

104423

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

¥4, ~(SP)
SP RO

021310

104423

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

C$MSG

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

H#FRM4
, - (SP)

#3,-(SP)

SP,RO
CSPNTB

TRAP
ADD

#10,SP

TRAP

(MSG

JSR
ENDMSG

ERR6

PRINTB

CLR
81S8
MOV
MOV
MoV
MoV
TRAP
ADD

JSR

PRINTR

PC,REGDMP

HERMG,CSR(RG)
, <B,DSBHT (R4)>
(SP
-

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

HERMG
, = (SP)

#3,-(5P)

SP.RO
CSPNTB

#10,SP

PC,REGDMP
#FRM17 R1,E .MP

SEQ 0036

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40
()
(8)
(7)
(6)
(3)
(4)
(4)

020674
020700
020702
020706
020712
020714
020716
020722
020722
020722

013746
010146
012746
012746
010600

003172

062706

000010

104414

MACY11

022115
000003

L10005:

104423

17-DEC=79
11:21
PAGE 1-11
30A(1052)
GLOBAL ERROR REPORT SECTION
MOV
MOV
MOV
MoV
MOV
TRAP
ADD

E.MP,=(SP)
R1,=(SP)
HFRM17 ,~(SP)
#3,~(SP)
SP,RO
CSPNTB

TRAP

($MSG

ENDMSG

;FORMAT STATMENTS
020724
021021
021121
021200
021241
021310
021331
021371
021435
021477
021543
021600
021657
021742
021771
027030
0c <115
0c 2151
0c 2214

047045

040445

047045

02224<
022242

04044,
022516
022516
047503
044101
047445
051501
053501
031504
041101
022516
042502
022516

022516
042101
042501
022516
040445

047125
050101
053501
052116
040505
022461
042505
051117
040445
052105
050101
047506
040501
042040
041501
040512
050130
052501
042440

FRM1:
FRMZ2:
FRM3:
FRML:
FRMS:
FRM6:
FRM7:
FRMS8:
FRM9:
FRM10FRM11:

FRM12:
FRM13:
FRM14:
FRM15:

LASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
LASCIZ
.ASCIZ
z

FRM16:

FRM17:

FRM18:

ENDPAS: .
.EVEN

ENDMOD

4
4
4
4
4

/XNXAUNLOAD DRIVE XO1XA ON CONTROLLER X06%A AND REMOVE PACKIN/
/¥NXAPLACE PACK IN DRIVE X01X%A ON CONTROLLER XO6%A AND LOAD [TXN/

'INXAWRONG PACK

# IS XOS5%0S5XA # S/B %05%0SXNIN.

/XACONTROLLER: XO6XA DRIVE: X01IN/
/XAHEAD: XO1XA CYL: XZ3%A SECTOR: %Z2%N/
/XTX01XA ON XO6IN/
/XASEEK DIRECTION: XTXNXADATA:IN/

'ZAWORD: XZ3XA S/B: Z06%A WAS: XO6XAN!

/¥D3XA WORDS BAD QUT OF 128 READIN/
/XABETWEEN X23XA - XZ3XA HEAD: XO1IN/
/INXAPWR FAIL NOT SUPPORTEDIN/
/XABEFORE (S: X06XA BA: X06XA DA: Z06XA MP: 206/
/AINXAAFTER
(S: X06%A BA: XZ06X%A DA: Z06X%A MP: Z%06%N/
/XNXA DRIVE STATUS: 206/
/¥NXACAN'T FIND BAD SECTOR FILE/
/XAADJACENT WRITTEN BY CONTROLLER: XO06%A DRIVE: XZ01IN/
/XAEXP'D: XO6XA REC'D: XYO6XN/
/XINXAUNLOAD ALL DRIVES TO BE USEDIN/
/AINXA END OF PASSININ/

SEQ 0037

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

30A(1052)

17-DEC=79

11:21

GLOBAL ERROR REPORT SECTION

PAGE

1-12

SEQ 0038

JLOAD PROTEL.TION TABLE
022242
000000

.WORD
.WORD
.WORD

1772777

000006

022250

ENDPROT

022250
022250
022250
022252
022254
022256
022260
022262
022262

BGNMOD

000004

BGNHW

174400

000160
000001
000000

ENDAHW

ENDMOD

022262

BGNMOD

022266

000001
032304

DISPATCH

ENDMOD

;OFFSET OF

CSR

.WORD
.WORD
.WORD
.WORD
.WORD

;JOFFSET OF DRIVE

L 10007~L$HW/?2
76400
;CSR
1

] 60

s VECTOR

;DRIVE NUMBER

DSPCODE
.WORD
.WORD

IN P-TABLE

sNOT A MASS-BUS DRIVE

HPTCODE

L10007:

022262

022262
022262
022264

ON==O

022242
022244
022246

BGNPROT

[
NN

380
381
382
383

MACY11

;RLOT OR RLOZ2 (RLO1=1)

IN P-TABLE

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

413

414
415
416
417

022266

BGNMOD

000340

419

022274
022302

023727
002006

002012

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

022304

423
424
425

426
427
428
(4)
(5
(5)
(S

429

430
431
432
433
434
435

436
437
(3)
(3)
438
439

440
4461
442
443
444
445
446
447

448
449
450
451
452
(3)
(3

PAGE

SEQ 0039

1-13

104441

SETPRI

MOV
TRAP

000002

104454

000023
017425
022314

023664

022320
002326

023727
003406

022330
022330
022332
022334
022336
022340

104454
000024
017464
000000

022344

INITCODE

BGNINIT

022266
01270C

420
621

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

.SBTTL INITIALIZATION SECTION

022266
022266
022272

(3)
(3)
418

MACYT

002012

90%:

CMP
BGE

LSUNIT,
#2
90%

;MORE THAN TWO
JYES, OKAY

ERRSF
TRAP
.WORD
.WORD
.WORD
JMP

CSERSF
19
FEW
0
CMPENA

;CLEAN CODE WHEN < 2 DRIVES

CMP
BLE

#4
LSUNIT,
91$

sMORE THAN FOUR
;NO, OKAY

CSERSF
20

SANY

023664

013737
005001
012704
012702
005737
001423

002012

003130

017236
003046
003130

91%:

MOV

TST

000000
002002
003060
0000Q¢4
000006

003130
000010

012704
005037
005037

002012
017236
003064
003062

012700

000034

104447

C$SPR1

20. ,MANY

000137

010100
1046442
012064
012064

000004

#340
#340,R0

003130

END:

MOV

CMPENA

;CLEAN CODE WHEN > 4 DRIVES

LSUNIT,uUT

;GET NUMBER OF UNITS
;INIT P-TABLE
;SET UP DRIVE BUFFER
JGET LIST OF PATTERNS

R1
#DRBUF ,R4
HPATLST ,R2

uuT
END
R1.RO
R1,RO
C$GPHRD
(RO) +,CSR(R4)
(RO)+,VEC(R4)
(RO)+,T.DRIVE
(RO) ,DSB(R4)
(R2) ,PAT(R4)
+
(R2)

;ANY

P-TABLES LEFT?

sNO,GO TO END
:GET A P-TABLE

;GET CSR
;GET VECTOR

JRLO1/2 TYPE ... RLOT=1
;GET DRIVE

R1
uuT
HPAT+2
R4

JNEXT P TABLE

#DRBUF ,R4
FADJ
FOWR
HEF .PWR
#EF .PWR,RO

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

1%
LSUNIT, UUT

CSREFG

sNEXT DRIVE

CZRLLBO RLO1/02 DRIVE _COMPAT
CZRLLB.MAC
07-DEC-79 10:40
453
(2)
454
(7)
(6)
(3)

022470
022470
022472

BNCOMPLETE
SETUP
8CC

103010

012746
012746
010600

104417
062706

(4)
(4)
455
456

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

PRINTF

021543
000001

457

TRAP
ADD

CSPNTF
#4 ,SP

#1,-(SP)
SP,RO

(EACH SURFACE)

JOUTER = TRACK 0 - 16 _(BOTH RLO1 & RLOZ2)
. INNER = TRACK 238 - 254 (RLO1) OR 494 - 510 (RLO2)
;MIDDLE = TRACK 120 - 136 (RLI1) OR 248 - 264 (RL0O2)
;ONE QUARTER = TRACK 56 = 72 (RLO1) OR 120 - 136 (RLOZ2)
;THREE QUARTER -~ TRACK 184 - 200 (RLO1) OR 376 - 392 (RLO2)

465
466
467
468

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

469

(4)
4)
475
476

#FRM11

#FRM11,-(SP)

;THE 5 SPOTS ARE:

464

473
474
(7)
(6)
(3)

SEQ 0040

sJINITIALIZE ROUTINE
;WE ATTEMPT TO LOCATE 5 PERFECT ADJACENT TRACKS AT 5 SPOTS
;ACROSS THE PACK.

458
459
460
461
462
463

470
4«
472

4
PAGE 1-14

SETUP

MOV

MOV
MOV

000004

005237
012737
012737

003076
177777

012746
012746
010600
104417
062706
004537
004537
004537
012701
012700
012721
005300
001374

122151
000001

022606
022612

030626

022614

004537
000001
000000

022616
022622

000000
000000

000020
000020

022626
022632

005737
001005

003160

022634
022634
022636
022640

104456
000012

022512
022516
022524
022532
022532

022536

022542
022544
022546
022552

477

022604

017675

177777

000062
177777

003210
003212

SETUP:

1¢:

INC
MOV
MOV
PRINTF
MOV
MOV
MOV

STFLG
#-1,SERNM1
#-1. SERNM2
#FRM18
NFRM18,~(SP)
#1,-(SP)
SP.RO

;INDICATE A START COMMAND

RS,LOAD
RS . SERNUM
RS, MERGE
#0UT10,R1
#50. R0

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

TRAP
ADD

CSPNTF
#4,SP

MOV

#177777.(R1)+

JSR
JSR
JSR
MOV
MOV
DEC
BNE

JSR
1

RO
1%

RS.FNDTRK

<
.WORD
ST

BNE

ERRHRD

: INWARD SEARCH

TRACKS

:TOP SURFACE
0,16.
TRKFND

10.,ERRFND,ERR1

TRAP

CSERHRD

.WORD

ERRFND

.WORD

;TRY TO FIND FIVE

;WAS SEARCH SUCCESSFUL??7?

:YES
;NO TRACKS

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB MAC

(5)
495
496
497
498
499
500
501
502
503

07-DEC-79 10:40

022642
022644

020172
000404

022646
022652

012700
004537

A}
b

d =D —d

WONONEWN=O

30A(1052)
17-DEC-79
11:21
SECTION
INITIALIZATION
.WORD
BR

ERR1
33

&
PAGE 1-15

SEQ 0041

002236
031070

2$:

MOV

#0UT10,RO

;STORE AWAY TRACKS FOUND

022656

030626

3%:

JSR

RS,FNDTRK

JTRY TO FIND FIVE

022672

000020
000020

1
.WORD
.WORD

0.16.
0'160

TST
BNE

022676
022702

NN
VTN VYWV
A~

MACY11

003160

022704
022704
022706
022710
022712
022714

JSR
]

ERRHRD
TRAP

.WORD
.WORD
.WORD
BR

022716
022722
022726
022732
022734
022736
022742

002250
031070
030626

022746
022752

003160

5%:

MOV

JSR
JSR

-1

000356
000756

-WORD
-WORD

TST

022754
022754
022756
022760
022762
022764

RS,FIXCYL

TRKFND

10. ,ERRFND_,ERR?
CSERHRD
10

SUCCESSFUL????

;NO TRACKS

#0UT11,RO
RS,FIXCYL
RS,FNDTRK

;STORE TRACKS AWAY

254.,238.
510.,4964.

; TRACK RANGE

TRKFND

ERRHRD
TRAP
.WORD
.WORD
. WORD
BR

10. ,ERRFND,ERR1T
CSERHRD
10

JFIND NEXT S5 TRACK
;OUTWARD SEARCH
. TOP SURFACE

;WAS

:YES

SEARCH SUCCESSFUL?

;NO TRACKS

ERRFND

ERR1
7%

;SKIP

#INN10,RO

JSTORE AWAY TRACKS FOUND

RS ,FNDTRK

SNEXT SET
;OUTWARD SEARCH
;BOTTOM SURFACE

002356
031070

6%:

022776
023002
023004
023006
023012

030626

7%:

000356
000756

254, ,238.
510..,494.

023016
023022

003160

TRKFND

017675

JYES

ERR1

022766
022772

023024
023024
023026
023030

s WAS

TRA(CKS

ERRFND

BNE

MOV
JSR

; INWARD SEARCH
;BOTTOM SURFACE

RS,FIXCYL

10.,ERRFND,ERR1
CSERHRD
10

ERRFND

;SEARCH SUCCESSFUL?

;YES
;NO TRACKS

CZRLLBO RLO1/02 _DRIVE COMPAT
CZRLLB MAC
07-DEC~79 10:40
(5)
539
540

023032
023034

020172
000404

541
542

023036
023042

012700
004537

002370
031070

004537
000001
000000
000176
000376

030626

546

023046
023052
023054
023056
023062
023066
023072

005737
00102¢C

023074
023100
023102
023104
023110
023114
023120

004537
177777
000000
000202
000402
005737
001005

543
544
545

547
548
549
550

023122
023122
023124
023126
023130
023132

000012
017675
020172
000404

023134
023140

012700
004537

MACY11

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

&
PAGE 1-16

SEQ 0047

. WORD
BR

ERR1
9

8%:

MOV
JSR

#INN11,RO

;STORE AWAY TRACKS FOUND

:
9%

JSR

R5,FNDTRK

0
. WORD

JNEXT SET
: INWARD SEAR(CH

126.,136.

000210
000410

]

RS,FIXCYL

.WORD

256.,264.

003160

TST
BNE

108

030A26
000170
000370

003160

104456

002306
031070

10%:

s TOP SURFACE
: TRACK RANGE

TRKFND

;DID WE FIND A SET
JYES

JSR
-1
0
.WORD
- WORD
TST
BNE

R5,FNDTRK

JNEXT SET (OTHER SIDE)
;OUTWARD SEARCH
;TOP SURFACE
s TRACK RANGE

ERRHRD

10. ,ERRFND,ERR1
CSERHRD
10
ERRFND
ERR1
118

130.,120.

258.,248.
TRKFND

108

AMID10,RO
RS,FIXCYL

;DID WE
. YES

FIND A SET

;NO TRACKS

;STORE AWAY

(ZRLLBO RLO1/02 _DRIVE_COMPAT
CZRLLB <MAC
07-DEC-79 10:40
567

023144
023150
023152
023154
023160

030626

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

#SR

4
PAGE 1-17

RS ,FNDTRK

000210
000410

023164
023170

005737
00102C

003160

023172
023176
023200
023202
023206

004537

030626

023212
023216

ons737

023220
023220
023222
023224
023226
023230

MACY11

177777
000001
000202
000402
001005

126.,136.
254.,264.

. RANGE

TST

TRKFND

s SUCCESS?

J?R

12%

RS5,FNDTRK

G03160

.WORD
.WORD

130.,120.
258.,248.

TST

TRKFND

BNE

ERRHRD

104456
000012

TRAP

017675
020172
000404

12%

10.,ERRFND,ERRT

CSERHRD

.WORD
.WORD
.WORD
BR

10
ERRFND
ERRI1

012700
0V4537

002320
031070

12%:

MOV

#MID11 RO

023242
023246
023250
023252
023256

004537
000001
000000
000076
000176

030626

13%:

{SR

RS,FNDTRK

0
.WORD
.WORD

62.,72.
126.,136.

023262
023265

005737
001020

003160

023270
023274
023276
023300
023304

004537
177777
000000
000102
000202

023310
023314

095737
001005

003160

023316
023316
023320

104456

023322
023324
023326

000012
017675
020172
000404

023330
023334

012700
004537

JSR

TST

;

YES

sLOOK THE OTHER SIDE
;OUTWARD
;BOTTOM SURFACE

. SUCCESS?
. YES

;NO TRA(KS

138

023232
023236

000110
000210

JNEXT SET
: INWARD SEAR(H
.BOTTOM SURFACE

WORD
.WORD
BNF

000170
000370

SEQ 0043

R5,FIXCYL

TRKFND

;STORE AWAY THE TRACKS FOUND
JNEXT SET

. INWARD

. TOP SURFACE

:RANGE

s SUCCESS?

BNE

14%

JYES

030626

J?R

R5,FNDTRK

000070
000170

0
.WORD
.WORD

66..56.
130.,120.

;LOOK OTHER SIDE
s OUTWARD
:TOP SURFACE
s RANGE

TST

TRKFND

BNE

ERRHRD

CSERHRD

.WORD

ERRFND

MoV
JSR

#0QU10,R0
RS,FIXCYL

.WORD
BR

031070

14%:

10.,ERRFND,ERR1

TRAP

.WORD

002262

14%

;SUCCESS?

;YES

;NO TRACKS

ERR1
15%

;STORE AWAY NEXT SET

CZRLLBO RLO1/02_DRIVE COMPAT
CZRLLB <MAC
07-DEC-79 10:40
615

MACY1T

30A(1052)

17-DEC-79
11:21
INITIALIZATION SECTION

JSR

RS5,FNDTRK

1
.WORD
.WORD

62.,72.

o4
PAGE

SEQ 0044

1-18

;LOOK FOR NEXT SET
; INWARD
;BOTTOM
;RANGE

023340
023344
023346
023350
023354

004537

023360
023364

005737
001020

003160

TST
BNE

TRKFND

16%

;YES

023366
023372
023374
023376
023402

004537

030626

JSR
-1

RS ,FNDTRK

;LOOK FOR ANOTHER SET

000070
000170

.WORD
.WORD

66.,56.
130.,120.

023406
023412

005737
001005

003160

TST
BNE

TRKFND

ERRHRD

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

000001
000001
000076
000176

177777
000001
000102
000202

030626

15%:

000110
000210

]

126.,136.

16%

s SUCCESS?

:OUTWARD
;BOTTOM
;RANGE

;SUCCESS?

;YES

023414
023414
023416
023420
023422
023424

017675
020172
000404

023426
023432

012700
004537

002274
031070

16%:

MoV
JSR

#0QU11,R0

;STORE

023436
023442
023444
023446
023452

004537
000001
000090
000276
000576

030626

17%:

JSR

R5,FNDTRK

JNEXT SET OF

023456
023462

005737
001020

023464
023470
023472
023474
023500

004537

023504
023510

005737
001005

104456
000012

177777
000000
000302
000602

023512
023512
023514
023516
023520
023522

000012
017675
020172
000404

023524
023530

012700
004537

TRAP

.WORD
.WORD
.WORD
B8R

]

000310
000610

RS,FIXCYL

;NO TRACKS

AWAY

. INWARD

TRACKS

TRA(CKS

;TOP SURFACE

.WORD
.WORD

190.,200.
382..39¢2.

003160

TST
BNE

TRKFND

;JSUCCESS?

030626

JSR
=1
0
.WORD
.WORD

RS.FNDTRK

:LOOK OTHER SIDE

TST
BNE

TRKFND

ERRHRD
.WORD
.WORD
.WORD
BR

10. ,ERRFND,ERR1
CS$ERHRD
10
ERRFND
ERR1
19%

MOV

#TQU10,RO

000270
000570
003160

104456

TRAP

002332
031070

18%:

JSR

18%

194..184.
386.,376.
18%

RS,FIXCYL

;RANGE

JYES

;OUTWARD SEARCH
. TOP

:;SUCCESS

JYES
;NO TRACKS

;STORE

TRACKS AWAY

CZRLLBO RLO1/0 2 _DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40

663
664
665
666
667

023534
023540
023542
023544
023550

004537

669
670

023554
023560

672
6:3
674
675
676

000001
000001
000276
000576

030626

MACY11

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

JSR
]

4
PAGE

1-19

SEQ 0045

RS,FNDTRK

JNEXT SET

190.,200.

;RANGE

; INWARD

;BOTTOM SURFACE

000310
000610

.WORD
.WORD

382.,392.

005737
001020

003160

TST
BNE

20%

TRKFND

s SUCCESS?
JYES

023562
023566
023570
023572
023576

004537

030626

JSR
=1

R5,FNDTRK

;OTHER SET

000302
000602

000270
000570

.WORD
-WORD

194.,184.
386.,376.

678
679

023602
023606

005737
001005

003160

TST
BNE

20%

681

023610

177777
000001

ERRHRD

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

023610
023612
023614
023616

023620

000012
017675
020172
000404

684
685

023622
023626

012700
004537

002344
031070

012700
012701
022720
001017
005301
001373

002236
000062
177777

682

104456

1046454
G00003
017523
000000
005001
013700

697
698
699

023676
023700
023702

700
(3)

023704
023704

702
703
(3)
(3)
704

023706
023706
023706
023706
023710

010100
104451
005201
005300
001373

TRAP

JYES

;NO TRAC(CKS

10
ERRFND
ERR1
218

20%:

MOV

#TQU11,RO

;STORE

’1%:

MOV
MOV

#0UT10,RO

;DID WE FIND ANY AT ALL

22%:

JSR

(MP
BNE
DEC
BNE
ERRSF

.WORD
.WORD
. WORD
CMPENA: CLR

24%:

MoV
DODU
MOV
TRAP

INC
DEC
BNE
DOCLN

104444

TRAP

EXIT:
1064411

10. ,ERRFND,ERR1

CSERHRD

s SUCCESS

.WORD
.WORD
.WORD
BR

TRAP

002012

TRKFND

s OUTWARD
;BOTTOM SURFACE
s RANGE

L10010:

RS,FIXCYL

#=-1,(RO)+
EXIT
R1

22%
3. .NONE
gSERSF

NONE

LSUNIT,RO

R1
R1,RO
C$DODUY
R1
RO

24%

CSDCLN

ENDINIT
TRAP

ENDMOD

SET AWAY

CS$INIT

;DO DROP UNIT

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

708

709
710
71
[4 Y713
(3)
(3)
714

715
716

717
718
719

023710
023710
023710

023714

722
(3)

023716
023716
023716
023720

725
726
727
728
(3

023720
023720
023720
023722
023722
023722
023724

721

(3)
723
724

(3)

729
730
731
732

000240

104461

023714
C23714

720

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

ENDMOD
BGNMOD

000240

104412

($AUTO

CLNCODE
BGNCLN

NOP

L10012:

BGNMOD

000240
104453

TRAP

L10013:

ENDCLN
TRAP
ENDMOD

C$CLEAN

DRPCODE
sGNDU
NOP

ENDDU

TRAP
ENDMOD

PAGE

1-20

;DO NOTHING

NOP

ENDAUTO
L10011:

;AUTO DROP SECTION

BGNMOD
AJTOCODE
BGNAUTO

023712

023712
023712
023714

MACY11

($DU

SEQ 0046

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

737

738
739

740

(3)

741

(2)

742

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
743
744
745

746

747
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
748

MACY11

023724

023724
025732
023736
023736
023740
023740
023742
023742
023746
023750

023754
023756
023762
023764
023770
023772
023776
024000
024002
024010
024010
024014
024016
024022
024024

024030
024032
024036
024040

012737
005437

000160
017232

002116

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

012727

GLBSUB

TIME:

M/
#160,L80LY
XDELAY
NEG
READBUS
TRAP
CSRDBU

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

DELAY
MOV
.WORD
MOV

JWAIT

177772

177756

017232

012727

000001

000150

002116

2%:
3%:

002116

024050
024056

012737
006337
006337
005437

017232

INC

4%:

000160
017234
017234
017234

002116

XTIME:

104407

103023

012737

000150

012727
000000
013727
000009
005367
001375
005367
001367
1005237
024140 002761

000020

002116
177772
177756

017234

.WORD
DEC
BNE
DEC
BNE
INC
BLT
8R
MOV
DELAY
MoV
.WORD
DEC
BNE
DEC
BNE

177756

002761
000207

BCOMPLETE
8CS
2%

e 01Y
.WORD

177772

024044
024046

002116

SEQ 0047

BGNMOD

002116

005237
002761
000422
012737

1-21

GLOBAL SUBROUTINES SECTION

1%:

000001

PAGE

.SBTTL

104407
103420

2%:

BLT

it3

#1
A1, (PC)+

0
LSDLY, (PC)+
0
-6(PC)
.~4
=22(P(C)
.=20
XDELAY
1%
43
#150,L8DLY
#1
#47,(PC)+
0

JBRANCH = IF YES

;WAIT

FACTOR EXPIRED?

JBRANCH -

JEXIT

IF NO

;GET OUTER DELAY LOOP
JWAIT WITH RESPECT

TO FONZ BUS

LSDLY, (PC)+
0

-6(PC)
.~4
=22(PC)
.=20
XDELAY
3%

JWAIT

FACTOR EXPIRED?

;BRANCH = [F NO

RTS

JRETURN

MOV

#160,L8DLY

;GET OUTER DELAY LOOP

YDELAY
ASL
ASL
YDELAY
NEG
YDELAY
READBUS
TRAP
CSRDBU
BNCOMPLETE

BCC
MOV
DELAY
Mov
.WORD
MOV

. wORD

DEC
BNE

DEC
BNE
INC

BLT

*GET NEGATIVE OF RESULT
1 Q-8US?
1%

1%
#150,L8DLY
#20

#H20,(PC)+
0
LEDLY, (PC)+

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

-6(P(C)
.~4

=22(P(C)
.=20
YDELAY

JWAIT

FACTOR EXPIRED?

;BRANCH =~ If NO

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

(2)

(2)
(2)
(2)
(2)
(23

(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
005367
001375
005367
001367
005237
002761
000207

000050

MACY11

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

BR
DELAY
MOV
MoV

bSDLY,(PC)*

177772
177756

017234
3%:

.WORD
DEC
BNE
DEC
BNE
INC
BLT
RTS

4
PAGE 1-22

SEQ 0048

#50
6#50,(PC)+

. WORD

002116

-6 (PC)
.=

=22(P()
.=20
YDELAY
1%
PC

JWAIT FACTOR EXPIRED?
;BRANCH = [F NO
JRETURN

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

MACY11

770

771

772
773
776
775
776

777

778
779

780
781
782
783
784
785
786
787
788
789

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

;CALL:
;
026204
024206
024210
024212
024214
024216
024222

010046
010146
010246
010346
005000
012537
012537

024226
024232
024234
024240

012701
011102
021227
001500

003022

024242
024246
024252
024256
024260
024264
024270
024274
024300
024304
024310
024314
024316
024324
024330
024334
024340
024346
024350
024356

005037
005037
020027
002402
005237
004537
005037
051237
004537

003122
003120
000005

005037
051237
004537

024412
024416
024422
024424
024432
024436

013703
004537
000034
012737
004537
004537

024442
024444
024446

005721
005200
020027

1%:

177777

2$:

020050
026576
027162
003122
000001

003060

000377

003122

000777
025652
003122
003120
003122
025652

003122

003116

51s:

003124
024466
020060
026576
027162

003116

RO,-(SP)
R1,-(SP)
RZ,=(SP)
R3,-(SP)
RO
(RS) +,FORSK
(R5) +,REVSK

;SAVE RC, R1,

RZ, R3

;RO HAS COUNT IF RO<S.

JUSE TOP SURFACE, IF RO>S.
IF RO>1

;USE BOTTOM SURFACE,
;DONE.

;GET START OF LIST OF TRACKS
;GET POINTER TO TRACK

MOV
MOV
CMP

#OVWTRK
,R1
(R1) ,R2
(R2) ,#-1

;NO, EXIT

CLR
CLR

vyt
SURF

sCLEAR CYLINDER/HEAD FOR SEEK

CMP
BL1
INC

RO,#5
2%

CLR

cyL

SURF

JSR

RS,SKCYL

8IS
JSR
MOV
JSR
.WORD

(R2),CYL
R5,SKCYL
FORSK ,R3
R5,WRSEC
28.

Mov

#FWD ,DIRC

CLR
cMP

cyL
#1,T.DRIVE

BNE
BIS
BR
BIS

JSR

CLR
CLR

RS,VEROW
RS5,VEROD

50%
#377,CYL
51%
#777,CYL

R5,SKCYL
cyL
SURF

BIS
JSR

(R2),CYL
R5,SKCYL

MOV
JSR
.WORD

REVSK ,R2
RS ,WRSEC
28

: TOP/BOTTOM
;TOP, BRANCH

;BOTTOM SURFACE
;SEEK TO CYLINDER

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

;SET FORWARD DIRECTION
;VERIFY OVERWRITE
;VERIFY OTHER DRIVES DATA

;JRLO1?

:NO

JSET TO GO TO MAX CYL

JMAX CYL FCR RLO?

;SEEK TO MAX CYLINDER ON DRIVE

;DO ANOTHER SEEK

;SECTORS TO WRITE
;WRITE

THEM

MOV

#REV,DIRC
RS . VEROW
RS.VEROD

JSET DIRECTION
JVERIFY OVERWRITE
JVERIFY OTHER DRIVES DATA

ST
INC
(MP

(R1)+
RO
RO, #10.

s INCREMENT TO NEXT TRACK
JACCOUNT FOR IT
;DONE?

JSR
JSR

000012

SECTORS TO WRITE REVERSE

JSR
JSR

50%:

SEQ 0049

TO PERFORM OVERWRITE

BEQ

003120
025652
003122
003122
025652
003126
024466

4
PAGE 1-23

RS,OVWPER
JSR
SECTORS TO WRITE FORWARD

OVWPER: MOV
MOV
MOV
MOV
CLR
MOV
Mov

003126
003724

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

026454
026456

012603
012602
012601
012600
000205

MOV
MOV
MOV
MOV
RTS

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

JRESTORE REG.

JEXIT

026460
026462
026464

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

SEQ 0050

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

MACY11

30A(1052)

17-DEC-79

11:21

GLOBAL SUBROUTINES SECTION

SEQ 0051

PAGE 1-25

JROUTINE TO WRITE SECTORS
JUSED IN OVERWRITE

TEST,ADJACENT CYLINDER TEST

;
.WRD
;R3 HAS BITMAP OF

:STARTING SECTOR
SECTORS TO WRITE

;CALL

JSR

RS ,WRSEC

;R4 HAS DRIVE BUFFER POINTER

024466
024470
024472

024474
024500

024504
024510
024512
024514
024520
024526
024532
024534
024540
024542
024546
024550
024554
024556
024560

024562
024566
024574
024600
024604
024610
024614
024616
024624
024632
024636
024642
024644
024650

010046
010146
010246
012701
012702
016421
005302
001374
012701
012737
053702
006302

005337
001374
005737

001402
052702
052502
030103
001452

005037
012737
010237
010237
042702
020227
003403
162737
012737
013702
004537
000012

005737
001416
005737
001007
104457
000144
020070
020230
005237
000760
104456

024702
024704

000156
020070
020230

WRSEC:

003232
000200
000006
100000

000007
003122

2%:

120%:

000100

3%:

4%:

003110

#128. R2
PAT(R4) ,(R1)+
R2
2%

8IS
ASL
DEC

CYL.R2
R2
TEM

TST

SURF

BNE

003120

177600
003204
003066
177700
000047

003206

000050
003232
003066
032002

003204
003202

003074

BEQ

;NO

BIT

R1,R3

JWRITE

THIS SECTOR?

CLR
MOV

HSFLG
#-128. ,BMP

;LOAD WORD COUNT

MOV

R2,TEMP

;SAVE DISK ADDRESS

R2,.8BDA

#177700,R2

;LOAD DISK ADDRESS

CMP
BLE

R2 ., #39.
6%

MOV
MOV
JSR

#BUF ,BBA
TEMP,RZ
RS ,LDFUNC

;LOAD BUS ADDRESS
JRESTORE DISK ADDRESS
;GO WRITE

ERFLG

;ERROR

SuB

WRITE
TST

#40. ,8DA

TST

HSFLG

TRAP

CSERSOFT

.WORD
.WORD
.WORD

108:

;MASK FOR BIT MAP

1208

BNE
ERRSOFT 100. ,WRIT1,ERRZ

003110

;PACK FOR THIS
;DRIVE

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

B8FQ

003110

JWRITE PATTERN INTO
;MEMORY THAT WE
JWILL WRITE ONTO

3s
#HEAD ,R2
(R5)+,R2

BIC

11%:

#100000,R1
#7,TEM

;SAVE RO
;SAVE R1
;SAVE R2

BEQ
BIS
BIS

MOV

6%:

RO,-(SP)
R1,-(SP)
R2,=(SP)
#8UF ,R1

MOV
MOV
DEC
BNE

MOV
MOV

003056

MOV
MOV
MOV
MOV

INC
BR
ERRHRD

100
WRIT1
ERRZ2
HSFLG
118
110.,WRIT1,ERR?

.WORD
.WORD
.WORD

110
WRIT1
ERR2

TRAP

CSERHRD

IN WRITING

sNO,0OKAY

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

024706
024710
024712
024714
024716
024720
024722
024724

005202
000241
006001
103320
012602
012601
012600
000205

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

INC
cLC

ROR

BCC

MoV
MOV
MOV
RTS

RZ
R1
4%

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

(SP)+,RO
RS

&
PAGE

1-26

SNEXT SECTOR
;CLEAR CARRY BIT
;DONE?
;NO GO BA(CK
;REGISTERS AND EXIT

SEQ 0052

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

024726
024732
024736
024744
024750
024754

0050%7
005037
012737
012701
012537

003214
003114
000001
002236
003100

MACY11

003216

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

CLR

218:
208:

MOV
MOV

CLR

00310¢

113700

012737
025012

010102

025014
025016

005300
001414

025020
025022
025030
025036
025040
025046

005722
062737
022737
003366

203220
(03222
003224
003100
000020

003230

MOV

MOVB

3s:

DEC

SEQ 0053

s INSIDE/OUTSIDE TRACK FLAG
JINIT TO TOP SURFACE

#OUT10,R1

;

#1,ADJUUT

(RS) +,ADJLOC
1%

ADJDIR

1%:

PAGE 1-27

ADJTRK
HEADO1

¢START OF

TRACK LIST

;PI1CK UP TRACK OFFSET
;1S THERE ONE?

NC EXIT

(RS)+,ADJLC2

:YES, GET REST OF INFO

#16.,STSEC

;GET OFFSET
;STARTING SECTOR IS 16

R1,R2

;GET START INTO RZ

RO
48

;DOWN COUNT OFFSFT
sFOUND IT?

(R2)+
#34. ,STSEC

s INDEX (R2)
;NO, NEXT SECTOR

(R5) +.ADJLC3
(R5)
¢ ,ADJLCG
ADJLOC,RO

000042
000050

003230
003230

#40. ,STSEC

162737

000050

003230

#40. ,STSEC

025050
025054

021227
001002

177777

025056

000137

025524

025062
025066

005037
00503/

003120
003122

025072
025076

005737
001403

003114

025100

052737

000001

025106

004737

025652

025112

011237

003122

025116
025122
025130
025134
025136

004537
012737
113703
000303
042703

025652
020050
003101

025142

025150

022737
002003

000047

003230

025152
025160

013737

162737

000050
003230

003230
025172

025166

004537

024466

000762

4% :

5%:

o,
o

CLR

;BACK FOR NEXT

(R2) ,#-1
5%

;LEGAL TRA(K?
JYES, CONTINUE

13%

;NO PICK UP NEXT SET

SURF
cvL

;SET UP FOR OUTER TRACK

HEADC1

;WHICH HEAD?

6%
003120

#1,SURF

6%:

JSR

003116

;TOP, SKIP
;LOWER HEAD,

;SEEK TO OUTER TRACK

(R2),CYL

;GET DESIRED TRACK

RS,SKCYL

;SEEK TO IT

ADJLOC+1,R3
R3

;GET SECTORS TO WRITE
SJALIGN IT

#39. ,STSEC
’$

;OVER FORTY?
;NO, CONTINUE

#40. ,STSEC

JYES BACK IT UP

R5,WRSEC

;WRITE

#377.,R3

7$:

MOV

IT!

RS, SKCYL

#FWD,DIRC

000377

SET

STSEC,8%

sSEEK DIRECTION

;CLEAR OUT HIGH BYTE

;STARTING SECTOR
SECTORS

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

025172
025174
025202
025206
025210
025216
025222
025224
025232

000000

013737
004537
000000
013737
004537
000000

025240

025246

MACY11

025172
027510

025206

025206
027754

025222

003230
000010
000047

003226
003226
003226
003226

025250

162737

000050

025256

013703

003220

025262

013737

003226

025270
025274

024466

025344

004537
000000
013737
004537
000000
013737
004537
000000
022737
001004
012737
000403

025346

025310
027754

025324

000001

003060

000377

003122

012737

000777

003122

025354

004537

025652

025360

011237

003122

025364
025370
025376

004537
012737
113703

025652
020060
003223

025402
025404
025410

000303
042703
013737

000377
003230

0c5416
025422

004537
000000

024466

025424

013737
004537
000000
013737
004537
000000
013703
013737

025422
027510

025436

025436
027754

025452

003224
003226

MOV

108%:

208%:

025274

025310

025432
025436
025440
025446
025452
025454
025460

8%:

9%:

025274
027510

025336

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

10%:

110$:

PAGE

1-28

JVERIFY THIS WRITE

R5,BSVWR
0
STSEC,STSECT
#8.,STSECT
#39.,STSECT
9s

;JGET OTHER SECTORS TO WRITE

#40.,STSECT

;YES BACK [T uP

ADJLCZ2,R3

JGET SECTORS TO WRITE

STSEC1,10%

;STARTING SECTORS

RS ,WRSEC
0
108,110%
SS,VAJUR

;WRITE SECTORS

1108,210%

SS,BSVUR

210%:

;8 SECTORS GONE BY
;GONE PAST 40?
;NO, OKAY

JVERIFY THIS WRITE

JVERIFY ADJ CYL + 1

#1,T.DRIVE
778
#377,CYL

88%

77%:

#777.CYL

88%:

RS.,SKCYL

JSR

003116

(R2).,CYL

s SEEK BACK TO PROPER TRA(CK

RS.,SKCYL

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

AREV,DIRC

ADJLC3+1,R3

025422
11%:

R3
#377.R3
STSEC,11%

;ALIGN IT
;CLEAR OUT HIGH BYTE

RS ,WRSEC

;WRITE PROPER SECTOR

118,1118

1118:

211s:

025472

0
8%,108%
R5.VAJWR
0
108$,208%

RS,VAJWR
0
111%,211%
SS,BSVUR

SJVERIFY THIS WRITE

ADJLC4 ,R3

;GET SECTORS
JGET SECTORS TO WRITE

STSEC1,12%

SEQ 0054

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

025466
025472

004537

024466

025474
025502
025506

013737
004537
000000

025472
027510

025506

025510
025516
025522

013737
004537

025506
027754

025522

000000

30A(1052)
GLOBAL

17-DEC-79

SUBROUTINES SECTION

JSR

12%:

11:21

PAGE

SEQ 0055

1-29

.WORD

RS ,WRSEC

JWRITE

MOV
JSR

12%,112%
R5,VAJWR

JVERIFY

PROPER SECTORS

112%:

212%:

.WORD

MOV
JSR

112%,212%
RS ,BSVWR
0

TST
BNE
INC
BR
CLR
ADD
cMP
8GE
JMP

HEADO1
143
HEADO1
99%

.WORD

THIS WRITE

;VERIFY ADJ CYLINDERS + 1

—

)

) e

b md

o [oleloleloleleolololels)
==l
b D 2
o VOOV
W20

) ek =D

888

1005
1006

MACY11

025524
025530
025532
025536
025540
025544
025550
025554
025556

003114

138:

003114

164%:

003114
000012
002400

99% :

025000
;AT

025562
025566

025570
025574
025576
025602

003064

003064
003214

15%:

003214

024744
003214
003216
003216
024744

025650

18%:

003104

16%:

003130
17%:

END OF

HEADO1

#10. ,R1
R1,#INNS1
18%
2%
TRACK LIST NEXT

TST
BEQ
CLR

FADJ
15%
FADJ

TST
BNE
INC
JMP
CLR
INC
CMP

ADJTRK
16%
ADJTRK
21%
ADJTRK
ADJUUT
ADJUUT ,WUT

TST
BNE

(R5)
+
17%

B8R

BEQ
JMP
CLR

RTS

17$

17%
218

ADJDIR

;sWHICH HEAD WERE WE DOING?

JNEXT SET OF TRACKS
JNEXT SET OF TRACKS
JEND OF LIST
JEND OF TRACK LIST
:NO GO BACK
GROUP OF

WRITES

sFIRST SET?
;NO, CONTINUE
;YES, CLEAR FIRST
JEXIT
;DONE BOTH INSIDE OUTSIDE
;TRACKS, YES 16%
JNO, SET INSIDE FLAG
;GO DO INSIDE TRACK
;BACK TO OQUTSIDE TRACK
;DONE WITH ANOTHER
;DONE TABLE FOR ALL WUT?
JYES, FOR EXIT
;NO, GO BACK FOR NEXT

;BUMP EXIT TO END OF

:EA?%E FOR PROPER RETURN
JEX

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

MACY11

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

TO SEEK

PAGE

1-30

SEQ 0056

TO A DESIRED CYLINDER

RS, SKCYL
JCALL: JSR
JROUTINE HAS DESIRED CYLINDER IN LOC ‘'‘CyL"'
010146
004537
000010

1058
1059

025662
025666

005737
301104

1061
1062

025670
025672

005001
012737

025704

006301
005337
001374
042737
163701

02565¢
025654
025660

RIS

1054
1055
1056

025712
025714
025722

025726

053701

103002

SKCYL:

032002

908 :

003074

000007

003122

R1,-(SP)

;SAVE R1

ERFLG

:ERROR FLAG

CLR

8IS

CYL R

JSR

RDHDR

BNE

MOV

003056
1208:

003056
000177
003172

MOV

003172

RS . LDFUNC

#7.TEM

ASL
DEC

R1
TEM

SU8
BCC

E.MP,R1
1%

BNE
BIC

120%
#177.E.MP

“GET PRESENT POSITION

cYES, SKIP

SET

;GET THE SELECTED CY(L INDER NUMBER

s CALCULATE DIFFERENCE WORD
;IF POSITIVE SET DIRECTION

CZRLLBO RLO1/02_DRIVE_COMPAT
CZRLLB.MAC
07-DEC-79 10:40
1072
1073
1074
1075
1076
1077
1078
1079
1080

1081
1082
1083
1084

N1RN

e T
R

e Y e Y e Ya Y

)

}

38S00CE83RITBESS3ES

1085

MACY11

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

5
PAGE 2

SEQ 0057

025730
025732
025734
025740
025744
025750
025752
025756
025762
025766

005401
000402
052701
052701
005737
001402
052701
010137
004537

025770

005737
001041

003074

TST
BNE

ERFLG
5%

s ERROR?
;YES, SKIP

025776
026002
026004
026010
026012
026020
026022
026030
026034
026036
026042
026044
026050
026052
026056
026062

004537

032002

JSR

RS,LDFUNC

JVERIFY POSITION?

005737

003074

042737

000077

003172

012737
053701

000007
003122

003056

005337

003056

005737

003120

052701
020137

000100
003172

025774

026064
026064
026066
026070
026072
026074

026100
026100
026102
026104
026106
026110
026114
026116

000006

000004
000001
003120

1%:

000020
003204
032002

3%:

RDHDR
TST

220%:

. TOP

SURF

#SKHS ,R1
R1,BDA
R5,LDFUNC

;BOTTOM

;LOAD DIFFERENCE WORD

SJEXECUTE SEEK

ERFLG

JVERIFY POSITION

ASL
DEC

TST

4%:

BEQ
BIS

#HEAD ,R1
R1,E.MP

12. ,SKER ,ERR6
CSERDF

;SEEK ERROR

12
SKER

ERRG
90%

025654
5%:

104455
000015

020001
020576
000137
012601
000205

BNE
8IC
CLR
MOV
8IS

#SIGN,R1
MK R

;NEGATE
sSKIP SETTING DIRECTION
;SET FOR FORWARD SEEK
:SET MARKER BIT

BNE

104455

000014
020031
020636
000137

NEG
BR
BIS
BIS
TST
BEQ
BIS
MOV
JSR
SEEK

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

FUNERR

025654

ERRS

6%:

90%
(SP)+ R
RS

;CANT GET
JEXIT

THERE

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

.
MACY11

1mMm

1112
1113
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
Ti14
711)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)

1115
1116
1117
1118
1119
1120
1121

1122
1123
1126
1125
(8)
(7)
(6)
(3)
(4>
(4)
1126

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

5
PAGE 2-1

;ROUTINE TO PERFORM REGISTER PRINTOUT DUMP

026120

026120
026124
026130
026134
026140
026144
026150
026152
026154
026160
026160
026164
026170
026174
026200
026204
026210
026212
026214
026220
026226
026230
026234
0c 242
026250
026256

026264
026272
026274
026302
026302
026306
026312
026316
026320
026322

026326

013746
013746
013746
013746
012746
012746
010600
104414
062706

003206
003204
003202
003200
021600
000005

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

003172
003170
003166
003164
021657
000005

013746
012746
012746
010600
104414
062706

003106
021742
000002

000207

;CALL:
REGDMP:

000014
040000

003164

000600
000013
000004
000004
003200
000200

000004
003200
003200
000000
000000

000006

003106

2%:

1%:

PC ,REGDMP
#FRM12,B(S,BBA,BDA,RMP

MOV
MOV

BMP,~(SP)
8DA,~(SP)

ADD
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MoV
TRAP
ADD
BIT
BEQ
MOV
MOV
MOV
BIS
MOV
BIT
BEQ
MOV

#14,SP
#FRM13,E.(S,E.BAE.DAE.MP
E.MP, -(SP)
E.DA,-(SP)
E.BA, ~-(5P)
E.CS,=(SP)
#FRM13,-(SP)
#5,-(SP)
SP,RO
CSPNTB
#14,SP
#MIT146,E.CS
1%
CSR(R4) ,R3
#13,DA(R3)
#4 ,BCS
DSB(R4) ,BCS
BCS,CS(R3)
#200,CS(R3)
2%
MP(R3) ,DRSTAT

MOV
MOV
MOV
MOv
MOV
TRAP

000014

000006

JSR
PRINTB

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

BBA,
- (SP)
B(S,=\SP)
N#FRM12,~(SP)
#5,-(SP)
SP,RO
CSPNTB

AWFRM14 ,DRSTAT
DRSTAT ,-(SP)
N#FRM14 ,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP
PC

SEQ 0058

(RLLBO RLO1/02_DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
OO VNVNNNNWVANANWNNSG
BNEDNNN
NN NINNN NN
0T VA SV A
VAP A F v Qv AP AT S
ST NS NI V1. Rt
Svad
vt et 30

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

S
PAGE 2-2

SEQ 0059

JROUTINE TO STORE OR RETRIEVE ADJACENT (YLI'DER SECTOR DRIVE

;INFORMATION FROM THE 24X5 ''SECLST'' BUFFER.
JENTER WITH RO = SECTOR REQUEST

SEXIT WITH RO
JEXIT WITH RO
JCALL 1:

ECALL l:
026330
026332
026334
026336
026342

RSAD.S:
177700
003102
000001
002442
000020
003100

MOV
MOV
MOV
817
MOV
MOV
MOV
(MPB
BEQ
INC
ADD

O IF

2%:
3%:

000050

INFORMATION FOR

IS NOT

SECTOR

IN BUFFER MAP

. WORD

JRETRIEVE SECTOR INFO.

1
. WOR D
R1,-(SP)

;STORE SECTOR INFO.

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

#177700,R0

(RS5)+,ADJFLG

”R

#SE CBUF ,R2
#16. ,R3
ADJLOC ,R1

;SAVE SECTOR BITS
;SAVE RETRIEVE/STORE FLAG
JSTART WITH TRACK (N-2)
;START OF

24XS BUFFER

JSECTOR 16 START "OR (N-2) TRACK
;CHECK TRACK INDEX

*INDEX TRACK REFERENCE

"UPDATE BUFFER TO NEXT TRACK REF.
"UPDATE SECTOR START FOR NEXT TRACK

cMP
BLT
SuB
BR
MOV
(MP
BEQ

JSET COUNTER FOR 24 SECTORS
; COMPARE SECTOR TO SECTOR TABLE
JYES,STORE OR RETRIEVE SECTOR INFO.
JINDEX SECLST BUFFER IN WORD FORMAT
;INDEX SECTOR COUNT
;COMPARE SECTOR COUNT FOR <40

TS7

INC

000047

CY_INDER DRIVE

SECTOR REQUESTED

JSR RS,RgADJS

ADD

000050

0C¢0030

ADJACENT

JSR RS ,RSADJS

MOV

000060
000042
000050

;KEEP SECTOR COUNT<40

;PASSED 24 SECTORS?

; COMPARE NEXT SECTOR

JSETUP RO FOR EXIT

OO
NNNNO

b —-—

D —
D
D
b

)

D
i

D
D

)
)
D e
)

D
)
D

D
d

d
e

D
d

) e
)

)

)
D

D
e

d
d

d e
D

e ed
D
d

ek
d

d e
—

— erd md

)

D e

D oD

D e

D rd e

d e

d ad

D wod

d =D

1128

MACY11

003102

JEXIT ROUTINE ,SECTOR NOT FOUND

5%:

;FLAG=0 FOR RETRIEVE

:
6%

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

7%:

026474

RTS

JEXIT

SEBIRIRRN28BE FRERARZEB IR

D e
d
D
D
D

eP P
P R
R
R
WS U ) —
~
00000000~V
N~

d
D e

010146

02€500

162700
100002

062700
012701
005700

Lo T Yo P

D e
med

026476

puerd

PAGE 3

SEQ 0060

SETLST: MOV

R1,-(SP)

;SAVE R1

SUB
8PL
ADD
MOV

#28. .R0O
3%

JSTART LIST AT O

#40. RO
#SECLST,R1

BEQ
DEC

2%
RO

000034
000050
002402

3%:

1%:

TST

i
d
d
d
D
d
d
d

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

026532
026534

2%:

000205
JRCUTINE

B8R

MOV
MOV
RTS

(R1)+

;CALL:

JSR

FNDDRY:

MOV

3%:

ADD
MOV

DRIVE

RS ,FNDDRV

026536
026540
026544
026546
026552
026556
026560
026562
026564
026566
026570
026572
026574

010146

162700
100002

062700
012701
005700
001403
005300
005721
000773
071100
012601
000205

000034

000050
002402

1%:

SuR
BPL

THAT WROTE

SECTOR LAST

;RO-CONTAINS SECTOR
JON EXIT RO-DRIVE

;SAVE R1
;START LIST AT O

TST

#40.,R0
#SECLST,R1
RO

;START OF LIST
JFOUND SECTOR?

DEC

JNO, DOWN COUNT SECTOR

B8R

MOV
RTS

(SP)
+ ,R1
RS

BEQ
TST

2%:

R1,-(SP)

#28. R0
3%

IN LIST

;GO BACK
;STORE DRIVE BITS IN LISTY
JRESTORE R1

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

TO LOCATE

;BEGINNING OF St.fOR LIST
;FOUND SECTOR?
;BRANCH IF YES
;DECREMENT SECTOR
JNEXT ENTRY

I
R

D
d

A
(=]

—d

MACY11

JROUTINE TO SET DRIVE ENTSECTOR IST
JRO HAS SECTOR
R5,SETLS
JCALL: JSR
;DRIVE GOTTEN FROM R4

nd e —

CZRLLBO RLO1/02_DRIVE COMPAT
CIRLLB.MAC
07-DEC-79 10:40

MOV

(R1)+

(R1).,R0

JYES,

GET DRIVE #,

JNEXT ENTRY

;G0 BACK

EXIT

IN LIST

;GET DRIVE BUFFER POINTER
JRESTORE R1
SEXIT

MACY11

b —
)
D
d ek
d
D
ed ok
—

ny INSTASIASIANI
NI 1oV [ S 1,¥ 1oV ~n
n OO = D ey
W N =200V
~NON W ~n

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

1224

1251

(7)

(6)
(3

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

PAGE

3-1

SEQ 0061

IROUTINE TO VERIFY THAT THE OVERWRITE DID ACTUALLY OVERWRITE THE
;PREVIOUS DATA ON

‘CALL:

JSR

THE

PACK.

RS,VEROW

USES R3 AS BIT MAP OF

CHECK.

SECTORS

R3 IS LOADED PRIOR TO

WRITING SECTORS.

026576

026600

026616

010046
010146
010246
012737
012701
016437

VEROW:

000034

003132

000006

003136

177600
003232

003206
003202
003204
003204

100000

026624
026632
026640
026646
026654
026656
026660
026664

012737
012737
042737
053737
030103
001521
004577

032002

026666
026672

005737

003164

026674
026700
026702
026710
026716
026724
026726
026734
026740
026744
026752
026760
026760
026762
026764
026766
026770
026774
027000
027004
027010
027012
027016
027016
027020
027024

005737
001412
012737
016437
016437
000415
012737
013700
004537
016037
116037

003062

027030
027034
027040

000014

100107

104455
000015
017735

020416
005037
005037
012702
023712
001417
005237
011246

013746
013746
012746
012746
010600

000077
003132

MOv

1%:

2%:

003072
003070
003134

017574
003132
026536
000000
000005

003072
003070
003134

21%:

003136
003142

003136
003144
021371
000004

BIC

BIS
BIT
BEQ
JSR

22%:

:SAVE REGISTER CONTENTS

PAT(R4) .GDATA

-GET PATTERN FOR

:START VERIFY AT SECTOR 28

#100000.R1

;BIT MASK FOR VERIFICATION

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

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

R1.RS
5%

*NO, BRANCH

TST
BPL

E.CS
48

:ERROR
*NO CONTINUE

TST
BEQ
MOV

218

FOWR

#INITWR REASON

MOV
Mov

-SR(R4) ,LSTCLR
DSB+1(R4) ,LSTDRV

MOV

#OVMES ,REASON

MOV

MCV
MOVB

ERRDF
TRAP

MOV

CMP

BEQ
INC

PRINTF
MOV
MOV
MOV
MOV
MOV
MOV

22%

SECT,RO
RS ,FNDDRV

THIS DRIVE

‘DO WE READ THIS ONE?
*READ

.WORD
.WORD
.WORD
CLR
CLR

3%:

RO,=(SP)
R1.=-(SP)
R2.-(SP)
#28. SECT

RS, LDFUNC

JSR

003142
003144
003232

MOV
MOV

READ

017325

000000
000005

MOV

MOV
MOV
MOV
MOV

;INITIAL

:N
*NO

;SETUP

WRITE

INITIAL

;SET MESSAGE

;FIND DRIVE
;SECTOR

WRITE

SECTOR

FOR OVERWRITE

THAT LAST WROTE

CSR(RO) ,LSTCLR
;GET IT'S CSR
DSB+1(RO) ,LSTDRV
;GET THE DRIVE
13. ,0VWER,ERR4
;PRINT ERROR
CSERDF

13
OVWER

ERR4

WCOUNT

SECWRD
#BUF ,R2
GDATA, (R2)
318

;CLEAR BAD WORD COUNT W/IN SECTOR

;CLEAR WORD IN SECTOP
;JGET BUFFER START
;IS DATA CORRECT?
JYES CHECK NEXT

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

SP.RO

CZRLLBO RLO1/02_DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
(@)
(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

027042
027044
027050
027052
027056
027064
027066
027066
027072
027076
027102
027104
027106

104417

062706

000012

005722
005237
023727

003144
003144

001347

MACY11

TRAP
ADD

31¢%:

003142
021435
000002

062706

000006

027112
027116

0713700
004537

003132
026476

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

TST

PAGE

3-2

SEQ 0062

CSPNTF

#12,SP

(R2)+

JNEXT
JNEXT
sDONE WITH SECTOR?
;NO GO BACK

INC
(MP
BNE

SECWRD

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

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

JPRINT

A ¥

MOV

SECT,RO
RS,SETLST

JSET SECTOR IN LIST TO THE
;CREDIT OF THIS DRIVE

5%:

INC
CMP
BNE
suB
CLC

SECT

JNEAT SECTOR

000200

013746
012746
012746
010600

104417

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

6%:

JSR

SECWRD ,#128.
3s

SP,R0
CSPNTF
#6,SP

SECT,#40.
6%

#40.,SECT

ROR

R1
1%

MOV
MOV
MOV

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

BCC

RTS

SUMMARY

;CLEAR CARRY
JNEXT BIT
;IF CLEAR NEXT

JRESTORE R2-RO, EXIT

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

MACY11

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

PAGE 3-3

}Sg%

JROUTINE

1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
12€%
}533

JCALL:
.
:
;

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)
RZ,=(SP)

;SAVE RO=-R?2

#100000,R1
#28.,SECT
FOWR
6%

:BIT MASK FOR SECTORS
:START WITH SECTOR 28
JCHECK FOR FIRST OVERWRITE

MOV

#-128. ,8BMP

;SET UP READ (ONE SECTOR)

BNE

:NO BRANCH

1297

1298
1299
1300
1301

027162
027164
027166

027170
0271746
027202
027206

027210

027216
027224
027232
027240

010046
010146
010246

012701
012737
005737
001134

012737

100000
000034
003062

003132

177600

003206

012737
042737
053737
Q30103

003232
000077
003132

1%8%

027242

1304
1305
1306
1307

027244
027250
027254
027262

013700
004537
016037
116037

003132
026536
000000
000005

1310

027276

004537

032002

1313
1314
1315
1316
(&)
(5)
(5)
1;?;

027304
027310
027312
027320
027320
027322
027324
027326

005737
100060
012737

003164

1318
1319
1320
1321

027330
027334
027340
027344

005037
005037
012702
023712

003142
003144
003232
003136

1326
1325
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)

027352
(027356
027356
027360
027364
027370
027374
027400
027402
027404

005237

003142

}%83

}%};

}gsg

027270

027302

027350

003202
003204
003204

MOV
MOV
TST
BNE

1%:
2%:

001103

016037

000014

000006

017627

003070
003134

003136

(011246
013746
013746
012746
012746
010600
104417
062706

(023136
003144
021371
000004
000012

MOV
BIC
BIS
8IT

003072

3%:

#8UF ,BBA
#77 ,8DA
SECT,BDA
R1.R3

;BUS ADDRESS
;CLEAR SECTOR BITS
JSET IN SECTOR BITS
;CHECK THIS SECTOR?

MOV
JSR
MOV
MOVB

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

MOV

PAT(RO) ,GDATA

;GET PATTERN

JSR

RS,LDFUNC

;READ

TST
BPL
MOV
ERRDF
TRAP
.WORD
.WORD
.WORD

E.CS
5%
#RECMS ,REASON
14. ,RECER,ERR4
CSERDF
14
RECER
ERR4

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

CLR
CLR
MOV
(MP

WCOUNT
SECWRD
#BUF ,R2
GDATA, (R2)

;CLEAR BAD WORD COUNT
.CLEAR WORD W/] SECTOR
;START OF BUFFER
:DATA COMPARE

INC
PRINTF

WCOUNT
:ACCOUNT FOR ERROR
#FRM8,SECWRD,GDATA,
(R2)
;PRINT ERROR
(R2) ,-(SP)
GDATA,~(SP)
SECWRD,=(SP)
H#FRM8,
- (SP)
#4 ,-(SP)
SP,R0
CSPNTF
#12,SP

READ

104455
000016
017755
020416

001417

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

BEQ

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

;FIND DRIVE THAT WROTE
JSECTOR LAST
;GET CSR OF DRIVE
DSB+1(R0O) ,LSTDRY
;GET DRIVE

JYES, C(HECK NEXT

SEQ 0063

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

027410
027412
027416
027424
027426

027426

027432
027436
027442
027444
027446
027452
027456
027464
027466
027472
027474
027476
027500
027502
027504
027506

005722
005237
023727
001347

003144
003144

013746
012746
012746
010600

003142
021435
000002

062706

000006

005237
023727

003132
003132

005037
000241
006001

003132

104417

001002

MACY11

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

4%:

000200

INC

M+

BNE

PRINTF
0V
MOV

PAGE

3-4

SEQ 0064

(R2)+
SECWRD
ggCWRD.l128.

JNEXT
JNEXT WORD IN SECTOR
;DONE?

#FRM9 ,WCOUNT

JPRINT SUMMARY

WCOUNT ,-(SP)
#FRM9,-(SP)
#2,-(SP)

;JNO

SP.RO
CSPNTF

#6,SP

SECT
;ECT.#AO.

000050
7%:

103244

012602
012601
012600
000205

7ST

6%:

JNEXT SECTOR

SECT
R1
1%

JNEXT BIT MAP

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

;RESTORE R2-RO,

EXIT

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

MACY11

1346
1347
1348

1352
1353
1354
1355
1356
1357

}ggg

027510

027512
027514
027516
027522
027524
027526

027532

010046

010146
010246
012701
012502
005000
053700

012737

027540
027542
027546

006300
005337
001374

1366
1367
1368
1369
1370

027562
027564
027566
027570
027576

(50200
030103
001462
012737
010037

1371

1372

1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
(4)
(5)
(5)

(5)

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

S
PAGE 4

SEQ 0065

;USING RSADJS/.WORD 1

1360
1361
1362

1363
1364
1365

JROUTINE TO VERIFY THE ADJ. CYL. WRITE IS GOOD
JUSES R3 AND WORD FOLLOWING CALL
JIF WRITE WAS GOOD,SECTOR WILL BE STORED IN MAP

}%gg
1351

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

027550
027554
027556

027602

027606

005737
001402
052700

010037

042700

027612
027616
027620
027626
027634
027642
0270646
027652
027656
027660
027664
027666
027672
027674
027674
027676
027700

020027
003406
162737
162737
012737
005037
013700
004537
000014
005737
001416
005737
001007

027704
027710
027712
027712
027714
027716
027720
027722
027724
027730
027732

005237
000760

027702

VAJWR:

100000
003122

000007

003056

003120
000100

177600
003204
003066

38:
4%:

003206

003204
003066
003202

6$:
108:

003074

10445¢
000202
020115
020230
010046
004537
000001
012600

003110

TST
BEQ
BIS
BIS
BIT
BEQ
MoV
MOV

CMP
BLE
suB
SuB
MOV
CLR
MoV
JSR
READ
TST
BEQ
TST

.WORD

003110
118:

026330

RO
TEM
2%

;SAVE REGISTERS

;BIT MASK FOR CYLINDER
;STARTING SECTOR

K7 ,TEM

SURF
3%
#HEAD ,RO

RZ.RO
R1,R3
5%
#-128. ,BMP
RO.BDA

RO,TEMP

#177700,R0
RO,#39.
6%
#40. ,BDA
A60.
, TEMP
HBUF ,BBA
HSFLG
TEMP RO
R5,LDFUNC

JREAD FUNCTION

ERFLG
7%
HSFLG
BNE
11%
ERRSOFT 120.,READ1,ERR?
TRAP
sSERSOFT
.WORD
20
.WORD
READ1

104457
000170
020115

020230

ASL
DEC
BNE

BIC

000047
000050
000050
003232
003110
003066
032002

R1,=(SP)
RZ,=(SP)
#100000,R1
(RS)+,R?
RO
CYL,RO

MOV

177700

RO,=(SP)

MOV
Mov
MOV
MOV
CLR
BIS

mMov
2%:

003056

MOV

7%:

ERRZ2

INC
HSFLG
BR
108
ERRHRD 130. ,READ1,ERR?
TRAP
C$ERHRD
.WORD
130
.WORD
READ1
.WORD
ERRZ
MOV
RO,=-(SP)
JSR
R5,RSADJS
;STORE ADus. CYL.
.WORD
1
MOV
(SP)+ RO
JRESTORE RO

SECTOR

INFO.

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

1397
1398
1399
1400
1401

027744
027746
027750
027752

005200
000241
006001
103310
012602
012601
012600
000205

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

5%:

INC
CLC

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

6
PAGE 4-1

SEQ 0066

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

MACY11 30A(1052)

17-DEC=79
11:21
GLOBAL SUBROUTINES SECTION

6
PAGE 4-2

SEQ 0067

JROUTINE TO VERIFY THAT WRITE DID NOT DISTURB ADJACENT TRA(KS
;JWRITTEN BY OTHER DRIVES.

;CALL

JSR RS.BSVWR
.WORD

sSTARTING SECTOR

N
i
R

¥
S

F
R

V¥ ¥

ONOWVNEBWNI—=O

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

*USES R3 FOR SECTOR MAP, USES MAP AT '‘SECBUF'* FOR INFO
027754
027756
027760
027762
027766
027772
027774
030002
030004
030010

010046
017146

BSVWR:

000001

003100
003122
030164
003122
003100
000104
000050

1%:

INAWR:

000050
000050
000050
003100
003100

MOV
MOV

CyL,=-(SP)
SURF ,~(SP)

(R5)+,-(SP)
ADJLOC ,#3

;GET STARTING SeECTOR
;ON MIDDLE TRACK???
JYES, THEN NO CHECK
:SETUP SECTOR START FOR OUTSIDE
:g;xP?§ITIVE OKAY ELSE FIX

BPL
ADD

1%
#40.,(SP)

JSR

R5,CHECK

;GO CHECK ADJ SECTORS

#68. ., (SP)

;INNER SECTOR START

SuB

#40.,(SP)

JFIX SECTOR

suB

#40.,(SP)

CMP8
BEQ
DE(B
DEC

INC
INCB

ADD

cMP
BLT

#34.,(SP)
ADJLOC, M
INAWR
ADJLOC
cyL

;ON OUTER LIMIT???
;YES,SKIP CHECK
;OUTER ADJ TRA(CK

cyL
ADJLOC

JFIX BACK

(SP) ,#40.
19
(SP) ,#40.
18

cWITHIN LIMITS???
;YES, OKAY

CMP8
BEQ
INCB
INC

ADJLOC,#5
BSEXIT
ADJLOC
cyL

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

DECB
DEC
BSEXIT: TST
MOV
MOV
NCHECK: MOV
MOV
MOV

ADJLOC
cYL
(SP) +
(SP)
+, SURF
(SP)+,CYL
(SP)+,R2
(SP)
+ ,R1
(SP)+,RO

JFIX BACK
:
;THROW OFF

JRETURN

JSR

025652

R2,~(SP)

BSEXIT

cMP
BLT

000005

s SAVE REGISTERS

BEQ

SuB

000042

000050
003100

R1,-(SP)

MOV
(MPS

000003

RO,~(SP)

MOV

003122
003120
003100

MOV

JSR

RTS

RS, CHECK

RS.,SKCYL

;GO CHECK ADJ SECTORS

s SEEK BA(CK

SECTOR

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

MACY11

1452
1453

1e3s

030164

012701

1460

030202

012737

030170
030174
030176

1461
1462

030210
030212

1464
16465
1466
1767
1468
1469

030220
030224
030226
030232
030236
030240

1471

030244

1463

1470

1472
1473

030216

030242

030250
030254

1474
1475

030256
030262

1478

030274

1480
1481

030300
030304

1476
1477

1479

1482

1483
1484
1485

1486
1487
1488

1489
1490
(4)
(5)
(5)
(5)

1491

1492
(4)
(5)
(5)
(5)
1493
1496
1495
1496
1497

6
PAGE 4-3

SEQ 0068

:ROUTINE TO VERIFY AN ADJACENT SECTOR
“CALLED FROM BSVWR

1456

1457
1458
1459

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

004537
005002
053702

006302
005337

001374

000050

162700
162702

000050
000050

001433

030326
030330
030334

030336

030344
030344
030346
030350
030352

030354

030356
030356
030360
030362
030364
030366
030370
030372
030374
030376

000100
000002

020027

030276

003056

177700

004537
000000

030316
030320
030324

000007

0462700

030266
030272

030312

003122

003120

002404

CHECK:

025652

005737
001402
052702
056602
030103
001452

010200

100000

2s:

3%
4$:

004537

000014
005737
001420

010346
010237
010003
042737

032002

6%:

BNE

003206

BIC

#157700.R0

SONLY SECTOR LEFT

RO,#40. :SECTOR OKAY???
63

;YES

SWAS IT??

MOV
MOV

R2,BDA
#-128. .8MP

*LOAD DISK ADDRESS
*LOAD WC

READ
TST
BEQ

ERFLG
S$

;WAS READ GOOD

MOY

c§.

*COPY SECTOR

ERRHRD
TRAP
.WORD
.WORD
.WORD

012603

R2,R0

;SET IN SECTOR
“THIS SECTOR IN LIST???
*NO, NEXT

JSR
LWORD

ERRHRD
TRAP
JWORD
'WORD
.WORD
INC
L
ROR
BCC
RTS

:NO

#40. RO
#40. .R2

BIC

020142
020270

SGET TO DESIRED CYLINDER
*CREATE ADDRESS

SUB
suB

MOV
MOV
MOV

003132

:SECTOR MASK

R2
TEM

SURF
3s
FHEAD ,R2
2(SP) .R2
R1,R3
58

JSR

003132

RS, SKCYL
R2
CYL.R2

TST
BEQ
BIS
8IS
8IT
BEQ

BEQ

104456
000214

104456
000156
020115
020230
005202
000241
006001
103320
000205

#7.TEM

ASL
DEC

BLT

003074

177700

MOV

CMP

026330

003204
177600

#100000,R1

JSR
CLR
BIS

MOV

005700

010237
012737

MOV

RS ,RSADJS
0
5%

RS, LDF UNC

;FIX SECTOR
JFIND

SECTOR PREVIOUSLY WRITTEN

*NO

*LOAD

R3,-(SP)
R2.SECT
RO.R3

#177700,SECT

140.,ADJTXT ,ERR3
CS$ERHRD
140

ADJTXT
ERR3

(SP)
+ ,R3

110. ,READ1,ERR2
CSERHRD
110
READ1
ERR2
R2
SNEXT SECTOR

R
4
RS

;SHIFT MASK

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

MACY11

JFIRST 400(8) LOCATIONS.
;THIS ROUTINE WILL

PAGE

SEQ 0r&9

STORE

THE

FIELD BAD SECTORS

INTO

;400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE

JWITH THE

1533

sROUTINE TO MERGE BAD SECTOR FILES
SENTRY INTO THIS ROUTINE WILL OCCUR AFTER THE '‘SERNUM"' ROUTINE
s 1S PERFORMED. THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN

35S

WWSNNNNNN

d —
) ——d
D —d
d
d i
d nd
D cnd
b
b nd
D
d
d
d
it
—
b —d —

VWAL ViV
T
N
n PNONON) = = b eed ecd b D cd D =D
WO
N=O0V00~NOWN
S W NN=O VOO NN

1499
1500
1501
1502
1503
1504
1505
1506

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

THE NEXT

FIELD BAD FILE.

;FACTORY BAD AT BUF

JFIELD BAD AT BUF + 512.
010146
010246
010346
012737
022737
001004
012737
000403
012737

012737
004537
000014
005737
001431

030544
030546
030552
030556
030560

003202
003060

077724

003204

MOV

177724

003204

55%:

B8R
0]

S
#77724 ,BDA
66%
#177724 ,BDA

177400
032002

003206

66%:
97%:

MOV
JSR

RS5,LDFUNC

;LOAD READ FUNCTION

ERFLG
98%

sTEST ERROR FLAG
;YES;MERGE BAD SECTOR FILFS

003204

022737
001353

177750

003204

012746
012746
010600

021771
000001

062706

000004

003242

000176

000176
003642

#BUF +400,B88A
g;.T.DRIVE

#-256. ,BMP

#4 ,BDA
#1,T.DRIVE

JBUFFER START FOR FIELD BAD

sTRY NEXT

FIELD BAD

SECTOR FILE

4008
#77750,BDA
97%
400%:

CMP

104422

100403

BNE

003074

077750

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

;SAVE R1, RZ2, R3

003632
000001

003204
003060

104417

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

MOV
MoV
MOV
MOV
CMP

000004
000001

001357
030512
030520
030522
030522
030526
030532
030534
030536
030542
030542

MERGE:

#177750,8DA
97%
#FRM15
H#FRM15,-(SP)
#1,-(SP)

;NO.DO NEXT FIELD BAD SECTOR

SP,RO
CSPNTF

#6,SP

999%G8%:

MOV

1%:

TST

2%:
3%:

TST
MOV

4%:

MOV

($8RK
999%

#BUF+10,R1

#126. ,R2
(R1)+

:GET PAST ID ETC.
JMAX = 126

.SECTOR OR END
JEND, GO GET FIELD
JREST OF SECTOR
;MAX REACHED
JNO, KEEP GOINC

JYES,

#126. ,R3

#BUF +410,R2
ég?)*,(R1)+

SKIP BACKk UP

;BACK UP PAST TERMINATOR

JSET 125 MAX

JGET FIELD SECTORS
;MERGE AT END OF

;DONE?

FACTORY

CZRLLBO RLO1/02_DRIVE COMPAT
CZRLLB.MAC
07-DEC~-79 10:40
1549
1550
1551
1552
1553
1554
1555

030610
030612
030614
030616
030620
030622
030624

012221
005303
001373
012603
012602
012601
000205

MACY11

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

5%:

DEC
BNE

MOV
MOV
MOV
RTS

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

6
PAGE 4-5

SEQ 0070

sNO, MERGE REST OF SECTOR
s DONE
;NO, GO BA(K
JRESTORE R3,
JEXIT

R2, R1

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

1557
1558
1559
1560
1561

030626

1562

1563
1564

1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585

1586

1587

030700
030704
030710
030712
030716
030720
030724
030732
030734
030740
030746
030750

012537
012537
022737
001001
0006401
022525
012537
012537
005037
005037
013737

003146
003156

004537

031000
002234

030776

003152
003150
003160
003162
003152

003060

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

80%:

G90%:

003154

003162
003162

000005

003160
000001

003000

000740

003150

003146

003154

MOV
MOV
(LR

MOV

2%:
3%:

000004
003154

(MP
BNE
8R
[0

CLR

003162

030754
030756
030764
030766

030770

000001

MACY11

8§1%:

JSR
TST
BNE
INC
BR
CLR
(Mp
BNE
INC
MP
BNE
ADD
RTMS

.%:

CMP
BNE

5%:

ADD
BR

RTS

PAGE

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

#1,T.DRIVF

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

TRKFND
TRKCNT
FRTTRK,PRSTRK

R5,FNDBSC

SEQ 0071

;GET INCREMENT/DECREMENT
;GET HEAD (SURFACE)

;CLEAR QUT FLAG FOUND
s CLEAR OUT TRACK COUNT
;GET FIRST TRACK
;1S TRACK IN BAD SECTOR FILE

HDRFND

JWAS

TRKCNT

;START COUNT OVER
JFIND 5 TRACKS YET?
JNO, CONTINUE

TRKCNT ,#5
43

TRKFND
#1,T.DRIVE

IT?

JYES, CLEAR TRKCNT
;NO, INDICATE GOOD TRA(CK
. CONT INUE

JYES,

EXIT WITH GOOD FLAG

81%
44 ,R5

RS
PRSTRK ,LSTTRK

RS
?;FSET,PRSTRK

JARE WE DONE?
;NO, KEEP LOOKING
JEXIT WITH NOT FOUND
SNEXT TRACK

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606

1607
1608
1609
1610
1611

1612
1613

1614
1615
1616
1617
1618
1619
1620
1621
1622

1623
1624

MACY11

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

002234
003242

FNDRSC:

1%:

00315¢4

031050
031052
031054
031060
031062
031064
031066

005721
005202
020227
001355
012601
012602
000205

031070
031074

013701
005737
100402
162701
012702
010120
005201
005302
001374
000205

5-1

SEQ 0072

R2,=-(SP)
#BUF +10,R1
(R1)

JINITIALIZE FLAG
JSAVE R1, R2

;SETUP FOR BEGINNING OF FILE
.

ND‘)
JEND?

;1F MINUS AT END, EXIT
sCYLINDER CORRECT?
;NO, NEXT

(RG)+
SURFACE,(RT)
4%
-(R4)

JUPPER HALF

4%:

HDRFND

;SET FOUND

3%:

(R1)+
R?2
R2.#252.
1%
(SP)+ R1
(SP)+ ,R?
RS

;NEXT WORD
JACCOUNT FOR

JRESTORE RZ2,

R1,

PRSTRK ,R1
OFFSET
1%
#6 R
#5,R2
R1.,(RO)+
R1

JGET TRACK WHICH IS GOOD

2%:

000004
000005

PAGE

IN FILE

HDRF ND
R1,-(SP)

000374

003154
003146

CLR

MOV

TRACK

PRSTRK, (R1) +

003156

002234

TO FIND BAD

FIXCYL:

R2
2%
R5

WORD

sCORRECT SURFACT

;DONE?
JNO, KEEP CHECKING

EXIT

JWHICH WAY WERE WE

;IN WORD, BRANCH

LOOKING

;BACK !T UP BY FOUR
;GOING STORE AWAY S5 TRA(CKS
;STORE THEM 1 WD/PER

C(ZRLLBO RLO1/02_DRIVE _COMPAT
CZRLLB.MA(
07-DEC-79 10:40
1626
1627
1628
1629
1630
1631
1632

MACY11

30A(1052)
GLOBAL

17-DEC=79
11:21
SUBROUTINES SECTION

JROUTINE

. CALL

031124
031132
031136
031140
031144
031146
031152
031156
031164
031166
031172
031174
031200
031202
031206
031214
031216
031222
031224
031230
031232
031236
031244
031250

012737
004537

003172
000077
000001

SERNUM

003060

1%:

23%:

177700

000100
000001

000402
012701
160001

031306
031310
031316
031320
031326

103321
022737
001004
012737
000403

031330
031336

012737
012737
012737
004537
000014
005737
001421
062737
022737
001005
022737
001351

003060

JGET STATUS

R5,LDFUNC

JREAD HEADER

E.MP RO

;GET THE HEADER
;CLEAR SECTOR BITS

#77 RO

#1,T.DRIVE

RO,#77700
2%
RO,#177700
2%

;CLEAR HEAD

#177600,R1

33%:

FO.R1
R1,BDA
#25,BDA
RS5,LDFUNC

;SET UP DIF WORD
;SEEK IN, HEAD 1

R5.LDFUNC

JVERIFY POSITION

E.MP RO

.GET HEADER

003204

003060

177700

000001

003060

077700

003204

177700

003204
003202
003206

003074

33%

32%:

42%:

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

:
(3%
2%:

#1,T.DRIVE

077700

1774600
032002

#13,8DA
RS ,LDFUNC

32%

032002

003232

RS5,SERNUM

#77600,R1

177600

003172
000001

SEQ 0073

SERIAL NUMBER

#100,R0
#1,T.DRIVE

077600

003204
000025
032002

JSR

PAGE

23%

077700

031256
031260
031264
031272
031274
031300
031302

031412

003204

032002

010137
052737
004537
000006
004537
000010
013700
022737
001003
022700
000402
022700

031252

000013

032002

TO GET

s SEEK

52%

#77700,BDA

97%

52%:
97%:

#177700,BDA
#BUF ,BBA
#-25A. ,BMP
RS,LuFUNC

ERFLG
98%

000004
000001

003204
003060

#4 ,BDA
#15T.DRIVE

077724

003204

477724 ,BDA
97%

;READ

sTEST ERROR FLAG
;YES,COMPARE

SERJAL NUMBERS

sNO,SETUP FOR NEXT FACTORY BAD SECTOR

—_—

CZRLLBO RLO1/02_DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1)
10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
1696
1697
1698
1699
(7)
(6)

(3)

(4)
(4)
1700
(3
1701

1702

031414
031416
031424
031426
031430
031434
031440
031442
031446
031454
031460
031462
031470
031472
031472
031476
031502
031504
037510
031514
031520
031522
031524
031530
031534
031540
031544
031544
031550
031554
031556
031560
031564
031564
031566
031570

000453
022737
001344
000446
012701
005737

177724

MACY11

17-DEC=79
11:21
30A(1052)
G! OBAL SUBROUTINES SECTION

003204

62%:

003232
003210

98%

003210
000002
003210

003212

026137
001437

000002

003212

013746
013746

003210
003212

011146
016146
012746
012746
010600
104417
062706
004°37
004537
000137

000014
031572
031676
031124
021771
000001

062706

000004

104422
000776
000205

MOV
MOV

PAGE

5-3

99%

#177724 ,BDA

97%
99%
#BUF ,R1
SERNM1
3%

(R1) ,SERNM1

2(R1) ,SERNM?
(;1),SEPNM1

GET NEXT FACTORY BAD SECTOR
;REPORT ERROR
;COMPARE SERIAL NUMBERS
JHAVE WE GOT ONE TO COMPARL
JYES, BRANCH

sNO, CALL THIS ONE IT

*SERNUM OKAY

;NO, PRINT ERROR

2(R1) ,SERNM?
;OTHER HALF OKAY
5%
JYES, EXIT
H#FRM3,2(R7),(R1),SERNMZ,
SERNM1

4%:

SERNM1,-.SP)
Z,
- (SP)
SERNM
1) ,-(5P)

2(~*),=(SP)

000002
021121
000005

012746
012746
010600
104417

BR
¢
BNE
BR
MOV
TST
BPL

H#FRM3
- (SP)
#5,<(SP)
SP,RO
CSPNTF

#14,SP

JSR

999%:

5%:

PRINTF
MOV
MOV
MOV

ADD
BREAK
TRAP
BR
RTS

RS ,UNLOAD

R5,LOAD

SERNUM
.
HFRM1S5
#FRM15,-(SP)
#1,-(SP)

SP,RO
(SPNTF

#4,SP

C$8RK

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

MACY11

1704

= OVONOIWVNLEWNI—=0OO

NN D DD
b Db
O

d
D
D md
d
D
b e
e
D
D e
b

NN NNNNNNNNNNNY

1705
1706
1707
1708
(9
(8)

30A(°052)
17-DEC<79
11:21
GLOBAL SUBROUTINES SECTION

6
PAGE 6

SEQ 0075

sROUTINE UNLOAD
;CALL
031572
031572
031576
031600
031604
031610
031614
031616
031620
031624
031630
031634
031640
031644
031652
031654
031666
031670
031672
031674

016446
005046
156416
012746

001410

UNLOAD: PRINTF
MOV
CLR
8158
MOV

000000

000005
020724
000003
000010
00007¢
000200
000004
000000
000001

JSR

MOV
MOV
TRAP
ADD

MOV
MOV
BIS

000000

005301
001365
000737
000205

2%:

3s.

MOV

BIT

RTS

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

CSR(R&) ,=(SP)

-(SP)

(SP)
DSB+1(,R4)

#FRM1 ,-(SP)

#3,~(SP)
SP,RO
CSPNTF
#60. ,R1

;SETUP 60 SECOND

#DRDY ,aCSR(R4)

;(CHECK DRDY

#10.
R1
2%
UNLOAD
RS

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

#200,R0
DSB(R4)
RO
RO,aCSR(R4)

TIMER

FOR ZERO

sPACK UNLOADED

JROUTINE LOAD

1723

;CALL

031676

031676
031702
031704
031710
031714
031720
031722
031724
031730
031734
031740
031744

031750
031756
031760
031772
031774
031776

032000

016446
005046
156416

012746
012746
010600
104417

062706
012701

001010

LOAD:

000000

PRINTF

HFRM? ,<B,DSB+1(R4)>,CSR(R4)
LSR(R4) ,~(SP)
-(SP)
,
(SP)
DSB+1(R4)

MOV

MoV
MOV
MoV
TRAP
ADD
MOV
MOV

BIS

000000

2%:

005301
001365
000737
000205

R5,L0AD

CLR
BI1SB

000005
021021
000003

000010
000170
000200
000004
000000
000001

JSR

MOV

BIT

BNE
WA]TMS
DEC
BNE
BR
RTS

H#FRM2,-(SP)
#3,-(SP)

SP,RO
CSPNTF

#10,SP
#120. ,R1
#200,RO

DSB(R4) ,RO
RO,aCSR(R4)

#DRDY ,aCSR (R4)

SSETUP 120 SEC TIMER
;SETUP CONTROLLER READY BIT
sSELECT DRIVE

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

(4)

(5)
(%
(5)
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788

30A(1052)

17-DEC=79

JCALL
010046
010346
010146
005037
016403
013763
013763
013763
011537
056437
012701
052737
013763
016337
042763
032763
001036

MOV

MOV
CLR
MOV
MOV
MOV
MOV
MOV
BIS
MOV
BIS
MOV

000006
000004
000002

003200
003200
000000
003200
000000
000000

MOV

1$:

005301
001365
032136
032144
032152
032160
032166
032174
032202
032202
032204
032206
032210
032212

016337
016337
016337
016337
016337

032214
032222

016337
016337
016337
016337
016337
016337

000000
000002
000004
000006
000006
000006

032260
032264
032266
032272
032274
032276
032300
032302

005737

003164

032230
032236
032244
032252

032304

016337

000000

000002
000004
000006
000006
000006

003164
003166
003170
003172
003174

BIC
8IT
BNE
WAITUS
DEC
BNE
MOV
MOV
MOV

MOV

MOV
MOV

003176

ERRDF

104455
000322

TRAP

.WORD
.WORD
.WORD
BR

017300
020576
000425

100002
005237
005725
012601
012603
012600
000205

JSR

LDFUNC: MOV

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

003074

003164
003166
003170
003172
003174
003176

11:21

GLOBAL SUBROUTINES SECTION
;ROUTINE LDFUNC

1742
1743

1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

MACYN

2%:

A ¥

3%:

PAGE

SEQ 0076

RS5.,LDFUNC
RO, =-(SP)

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

ERFLG

CSR(R4) ,R3
BMP _MP(R3)
BDA,DA(R3)
BBA ,RA(R3)

(R5) ,BCS
DSB(R4) ,BCS
#25. ,R1
#200,8CS

;CLEAR ERROR FLAG
;GET CSR
;LOAD MULTIPURPOSE
;LOAD DISK ADDRESS
;LOAD BUS ADDRESS
JGET FUNCTION TO LOAD
JSELECT BITS

;SET WATCHDOG TO 250MS

BCS,CS(R3)
CS(R3) ,BCS

sLOAD FUNCTION

;YES,

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

#100.
R1
1%

;CNTLR READY?
GO

JWAIT 10 MILLISECONDS

CS(R3) ,E.CS
;READ ALL REGISTERS
BA(R3) ,E.BA
DA(R3) ,E.DA
MP(R3) ,E.MP
MP (R3) ,E.MP1
MP(R3) ,E.MP2
210. ,CNTTOT,ERRS,;
CNTLR TIMEOUT
CSERDF
210
CNTTOT

ERRS

MOV

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

;JREAD ALL REGISTERS

TST
BPL
INC

E.CS

;ANY ERRORS?
JYES, GO SERVICE

MOV
MOV
MOV
MOV
MOV

TST

MOV
MOV
MOV
RTS

ENDMOD

ERFLG
+
(R5)
+ ,R1
(SP)
(SP)+,R3
(SP}+,RO
R5

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

PAGE

SEQ 0077

7-1

;PRINT UNLOAD AND LOAD DRIVE MESSAGES

;PERFORM SERJAL CHECK ROUTINE
;PERFORM READ/WRITE CHECKS ON DRIVES

177400
377

003062
003064
003104
024726
377

CLR
INC
INC
JSR
.BYTE
.WORD
.BYTE
.WORD

000

.WORD
JSR
ADD
JSR
JSR
JSR

031572
000010
031676
031124
024204

360
17

003104
024726
360
017

360

017

033102
000010
031676
031124
024204

032526

003104
024726
000

000002
10%:

INC
JSR
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.WORD
JSR
CMP
BNE
JMP
ADD
JSR
JSR
JSR

6014

1403
INC
JSR
.BYTE

#SE CBUF ,R1
#120. R0
(R1)+

RO
48

FOWR

RS,0OVWPER

sADJ. CYLINDER BUFFER
;ADJ. CYLINDER BUFFER COUNT
;CLEAR ADJ. CYL. BUFFER AT STARTUP
JBUFFER CLEARED?
;CLEAR NEXT BUFFER WORD
;SET FIRST OVERWRITE FLAG
;PERFORM OVERWRITE ON FIRST DRIVE

FOWR
FADJ
ADJDIR

;CLEAR FIRST OVERWRITE
JSET F%RST ADJ. FLAG

3,377

sTRACK AND SECTORS FOR

3.0

;TRACK AND

R5,ADJCYL

170000

7777
0.
RS5,UNLOAD

HPAT+2
R4

R5,L0AD
R5,S
" (NUM
R5,0VWPER

ADJDIR
R5,ADJCYL

2,360
7

O
o

BNE
INC
JSR

003062
024204

031572
003130

MOV
CLR
DEC

MOV

COMPAT:

177400

000377
005037
005237
005237

002442
000170

012701
012700
005021
005300
001375
005237
004537

OQOHhOoOsroOoNO

U |

17-DEC=79
11:21
GLOBAL SUBROUTINES SECTION

;CONTROL SECTION COMPATIBILITY PROGRAM

VOO NO VNS NN =O

st Pur

I G
G
U
O
O

Pt utr Gty Gutr-Gut Pt S

00 00 0o 00 00 0o 00 00 0o 00

30A(1052)
BGNTST

032304

1790
17N
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808

MACY11

#PAT+2
R4
RS .LOAD
RS5,SERNUM

RS,OVWPER

s INWARD SEEK

SECTORS

;OUTWARD SEEK
; TERMINATOR

JUNLOAD PACK FROM DRIVE UNIT

sJUPDATE POINTER FOR NEXT DRIVE
sLOAD INTO SECOND DRIVE UNIT
sCHECK PACK SERIAL NUMBER

;PERFORM R/W OVERWRITE

;IN 1/0 OUTSIDE

:OU{ 170 OUTSIDF
;IN 1/0 INSIDE
;OUT 1/0 INSIDE
JUNLOAD PACK FROM DRIVE UNIT
JCHECK FOR > 2 DRIVES
sYES,GO TO NEXT DRIVE
;GO TO FIRST DRIVE
;UPDATE DRIVE BUFFER FOR THIRD DRIVE
sLOAD PACK FOR THIRD DRIVE
s CHECKTM SERJAL NUMBERS
;PERFORM R/W OVERWRITE

ADJDIR

RS ,ADJCYL
4

FOR

2IN 2/0 OUTSIDE

ON THIRD DRIVE

000

040

020
040

020
000
000
000

000

004537

031572
000010
031676
031124

JSR
JSR
1042

621

INC
JSR
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD

.BYTE

.WORD
.BYTE
.WORD

.BYTE
.WORD
.BYTE
.WORD
LYTE
.WORD
.WORD
JSR
SuB
JSR
JSR

o
S

N
(]
S

INSIDE

Q
o

;0UT 2/1 OUTSIDE

JIN 271

c0UT 2/1 INSIDE

RS ,UNLOAD
UuT, 43
1%
H#PAT+2
R4
R5,LOAD
RS, SERNUM
R5,0VWPER
ADJDIR
RS5,ADJCYL
OO0

003104
024726
000

ADD
JSR

;IN 2/1 OUTSIDE

s TERMINATOR
JUNLOAD PACK ON THIRD DRIVE

;JCHECK FOR > 3 DRIVES
:NO, GO TO 2ND DR]IVE
;UPDATE DRIVE BUFFER FOR 4TH DRIVE
;LOAD PACK ON &4TH DRIVE
;CHECK PACK ON FOURTH DRIVE

;PERFORM R/W OVERWRITE

.IN 3/0 OUTSIDE

;0UT 3/0 OUTSIDE
:IN 3/0 INSIDE
;OUT 3/0 INSIDE

NS
O
O

000010
031676
031124
024204

000003

.200

;IN 3/1 OUTSIDE

&
O

003130

.WORD
JSR
CMP
BEQ

;OUT 2/0 INSIDE

;IN 3/1

N
o

031572

.WORD

;0UT 2/0 OUTSIDE

;0UT 3/1 INSIDE

QOO0
o
o
o
O
O
o
O
o
o
()

100

SEQ 0078

7~2

4.0
7400

ocoviowno—=o-=

200

PAGE

;IN 2/0 INSIDE

170000

100

000

032736

.WORD
.BYIE
.WORD
.BYTE
.WORD

4,0

200

2.0
7400

LT}

000

170000

000

1901

.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD

000

170000

1121
17-DEC-79
30A(1052)
GLOBAL SUBROUTINES SECTION

1846 032530
1847 032532
1848 032534
1849 032536
1850
032540
1851
032542
1852
032544
1853 032546
1854
032550
1855
032552
1856
032554
1857 032556
1858 032560
1859 032562
1860
032564
1861 032566
1862
032570
1863 032574
1864
032602
1865
032604
1866 032610
1867
032614
1868
032620
1869 032624
1870
032626
1871
032630
1872
032634
1873 032640
1874
032642
1875
032644

MACY11

Og\h—l\hl\—*—*—'o\hcmo—'o—‘—'l\wb—-'\)
O~
O
O
N
OTM

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

;IN 3/2 OUTSIDE

R5,UNLOAD
HPAT+2
R4
R5.LOAD
RS, SERNUM

;0UT 3/1 OUTSIDE
INSIDE

;0UT 3/2 OUTSIDE
JIN 372 INSIDE

;0UT 3/2 INSIDE
. TERMINATOR

JUNLOAD PACK FROM 4TH DRIVE
;SET DRIVE BUFFER FOR 3RD DRIVE
;LOAD PACK ON 3RD DRIVE
;CHECK FOR PACK SERIAL NUMBER

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

3 VOO NO NN
= O 3235

024204

JSR

R5,OVWPER

024726
000

JSR
.BYTE

RS ,ADJCYL

20000
10000

000

D e

G
S

1%:

;IN 2/3 OUTSIDE
;OUT 2/3 OUTSIDE

;IN 2/3 INSIDE

;OUT 2/3 INSIDE

JIN 1/2 OUTSIDE

1,0

;OUT 1/2 OUTSIDE

5.0

:IN 1/2 INSIDE

goooo

000

;PERFORM R/W OVERWRITE ON 3RD DRIVE

RS,ADJCYL
1.0

10000

000

PAGE 7-3

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

20000

000

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

024726
000

;OUT 1/2 INSIDE

000

;IN 1/3 OUTSIDE

000

;0UT 1/3 OUTSIDE

000

;IN 1/3 INSIDE

000

;OUT 1/3 INSIDE

031572

031676
031124
024204

024726
010

004
010

004

033154

200
160
160

e
et e
) o
—

G
G
T

03°572
000010
031676
031124
024204

1.0

5.0

000

G
S

004537
020300

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

000

032742
0327646
032750
032752

0 0 O 00000000

P G

1902
1903

MACY11

000

2%:

R5 ,UNLOAD
W#PAT
+2 R4
R5.,LOAD
RS, SERNUM
RS,OVWPER
R 5,ADJCYL
)

.10

1.4

0
5,10
0
5,4

4000

; TERMINATOR

JUNLOAD 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
;OUT 0/1 OUTSIDE

JIN 071 INSIDE

;0UT 0/1 INSIDE

;IN 0/2 OUTSIDE

SEQ 0079

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

1959
1960
1961

033156

MACY11

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

;0UT 0/2 OUTSIDE

5.0

JIN 072 INSIDE

5,0

;0UT 0/2 INSIDE

}60

;IN 0/3 OUTSIDE

000

2.0

;0UT 0/3 OUTSIDE

000

géo

;IN 0/3 INSIDE

000

2.0

;OUT 0/3 INSIDE

;TERMINATOR

.BYTE
.WORD
.BYTE
.WORD
.BYTE

000

000
000

031572

062706

033240
033242

033244
033244
033244
1983

1985

1987

(4)

033246
033246
033246
033250
033250
033252
033254
033256

104422

2000
4000

2000

RS ,UNLOAD
#ENDPAS

012746
012746
010600

104417

PAGE 7-4

1.0

000

004537

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

000004

JUNLOAD PACK
SEND OF PASS

SP.,RO
CSPNTF

#4 ,SP

3s:

C$BRK
3$

000776

ENDTST

104401

L10014:
BGNMOD

000020

000031
033310

160000
177776

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

001037
033346
000000
000776

T$CODE
VECMSG
TSLOLIM
TSHILIM

003032
033355
003400
000000
000007

T$CODE
DRMSG

03400

002130
033324
000001

?RTYPE

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

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

SEQ 0080

1989

(2)
(3)

1990
199

MACY11

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

033310

L10015:

033310
033310
033316
033324
033332
033340
033346
033354
033355
033362

052502
051104
051104
054524
051040
042526
000
104
000

033364

020123
051505
053111
042520
030114
052103

042101
000123
020105
036440
000061
051117

044522

042526

.ASCIZ

/BUS ADDRESS/

DRTYPE:

LASCIZ

/DRIVE

VECMSG:

LASCIZ

/VECTOR/

DRMSG:

JASLIZ

/DRIVE/

.EVEN
ENDMOD

033364

LASTAD

000000
000000

000001

PAGE

CSRMSG:

033364

033364
033366
033370

LSLAST::
.END

7-5

ENDHRD
.EVEN

.EVEN
.WORD
.WORD

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

TYPE

= RLO1/

SEQ 0081

BDATA
8ITO
8IT00
BITC1
BIT02
BIT03
BIT04
BITOS
81106

=
=
=
=
=
=
=
=

003204

003140
000001
000001
000002
000004
000010
000020
000040
000100

BIT0? = 000200
BIT08 = 000400
BITO9 = 001000

BIT1
= 000002
BIT10 = 002000
BIT11 = 004000

237
238#
239
1974

2354
295#
2364

CHECK
CLNCOD
CMPENA

030164
023714 G
023664

[aEN

010000
020000
04000V
100000
000004
000010
000020
000040
000100
000200
000400
001000
003206
000400
030136
027754
003232

SEQ 0082

1844
1808+

1872
1822+«

1905
1843+

1922
1871«

1947

937
1037«

1145
1039+

1417

1422

16264%

1428+

1377+
1750
1229+

1671+
1753
1299+
1667+

1749
1754
1300+
1670«

1436

1438+

1441+

1375+
1680

1480~
1683

1546

1594

1671

1041

W2on

7084
IAY4
69N
684

2304
2294
2314

1518«

BIT12 =
BIT13 =
B8IT14 =
BIT1S =
BITZ2 =
BIT3 =
BIT4
=
BITS
=
BIT6
=
BIT7 =
BIT8 BIT9 =
BMP
BOE
=
8SEXIT
BSWR
BUF

1823
1046+

199#
1984

2134
4N
42N
Lon
4N
LN
LN
Lon

1749«

1773

870~
1113
Bbax
1525«

1228«
1120
1079«

1298«
1121
1113

75
75

79
76

1227«

1297«

1015

164114

15351

1630+

1651«

1755+

1370«

1677«

oo O~

B8DA

(000010
023710 G
000002
000020
000040
003202
003200

892#

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

~N W
&N —

ASSEMB=
AUTO(O
BA
=
BA16
BA17
=
BBA
BCS

024726
003104
003102
003220
003222
003224
003100
003214
020142
003216
000020 G

Aol
lalalalaIalalalalalalalalalalalalalalalalalalal

ADJCYL
ADJDIR
ADJFLG
ADJLC2
ADJLC3
ADJLCSG
ADJLOC
ADJTRK
ADJTXT
ADJWT
ADR
=

MACY11

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

LN
LoN
Lon
LoNn
Lo
LoNn
Lon
LoN
4N
42N
LN
LN
LN
4N
42N

W20
W2oN
LN
2324
Lon

1418
953

242N

1686
1426
7174
423

64
65
1115

72
74

80
81

1228

1253

1369+

1481+

1520+

1672+

1747

1298

1320

1377

1513

1536

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

017300
032304
000200
000002
000000
000000

CSRMSG

033310
003122

cyL

C$AU
=
C$AUTO=
C$BRK =
C$BSEG=
C$8SUB=
CSCFFG=
C8CLCK=
C$CLEA=
C$CLOS=
C$CLP1=
CSCVEC=
CSDCLN=
C$D0DU=
CSDRPT=
C$OU
=
CSEDIT=
=
CSERDF
CSERHR=

000052
000061
000022

2784

17974

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

SEQ 0083

1769

67N
1121+

1122

1754«

1755

1756

1757

1763

1772

1708
19914
318
976+

1712«

1713

1725

1729+

1730

1746

1985

979«

327

789«
983«

795+
1063

796+
1093

804x
1357

1414

807%

1700

1975

1103
494
1492

1106

1250

1316

1769
561

585

422
878

428
1386

693

308

313

321

336

342

306

3N
1125
474

316

318

319

1257

1264

1325

85#

713
1534

438+

1117

1242

1248

809+
1425+

811«
1427

813«
1439+

1442

851

924+
1445+

609

633

657

681

881

1389

325

327

328

329

334

339

361

1331

1533

1695

1699

1708

1725

1974

722
000006
700
696

728

CSERRO=
=
CSERSF
CSERSO=
C$ESCA=
CSESEG=
($ESUB=
C$ETST=
CSEXIT=
CSGETB=
CSGE TW=
CSGMAN=
CSGPHR=
C$GPLO=
($GPRI=
CSINIT=
C$INLP=
CSMAN]
=
CSMEM =
CMSG =
CSOPEN=

509

523

1980

437
703

34
= 000014

000017
000016
900015
000377

1114
454

1914

936+

1987

986+

449

1713
19944

1730

1124+
19924

1125

171

1725

311

316
1728

1058

1083

509
509
881

523

325

334

339

1088

1382

1484

538
538
1389

561
1492

1313
1090+

441

1120

1243

1523

1675

1745+«

1781«

585
585

609
609

633
633

657
657

681
681

1763+

1772«

1779

1100

1114

1635

1657

1766+

1775+

452
4484

1974
874
494
494

1490
1250
1106
1103

1386

1316
1769

1773+
1236
1774+
1069

7024

2284

819«

223
2254
2264
2274

801»

b ek

224w

329

b e

224
22N

1774

—

L2on
42N
LN
LN
43¢
2654
3704
1954
594
2864
3044
3104
3154
3234
3334
3384
LN
690

1765

ONNON—=N
WNNOON—=
OTM
—NONCO
NN S

003064

[alalalnYalal

022262
000036
000035
000034
000037
000040
022440
017276
022214
003074
100000
017675
020172
020230
020270
020416
020576
020636
000004
023706
002100
000035
003166
003164
003170
003172
003174
003176

1748~

534

1708
4034
42N

1118+

2004

1988

417

1987
7254
764

SEQ 0084

756

VOO
OOCO~N—=H

033355
023720
000013
003106
033324

= 000004

DSPCOD
EF .CON=
EF .NEW=
EF .PWR=
EF .RES=
EF .STA=
END
ENDBUF
ENDPAS
ERFLG
ERR
=
ERRFND
ERR1
ERRZ
ERR3
ERR&
ERRS
ERR6
EVL
=
EXIT
ESEND =
ESLOAD=
E.BA
E.CS
E.DA
E.MP
E.MP1
E.MP2
FADJ

Lon

2804
63
60
22
204N
62N
88#
2L7a
S7#

[alalalalalalal

0SB

000004
017407
004000
040000
000000
003116
010000
000006
017236
000001

DRMSG
DRPCOD
DRST
=
DRSTAT
DRTYPE

22N
224
22N
228
220
22N

PAGE 8-2
17-DE:
12
30A(1052)
CROSS REFERENCE +ABLE == USER SYMBOLS

740
452

DA
=
DCKER
DCRC
=
DERR
=
DIAGMC=
DIRC
DLT
=
DRBT
=
DRBUF
=
DRDY

22N
22N
¥y

000007
000047
000033
000003
000021
000025
000046
000041
000037
000013

—

C$RDBU=
CSREFG=
CBRESE=
C$REVI=
CSRFLA=
CSRPT =
C$SEFG=
C$SPRI=
($SVEC=
C$TPRI=

MACY11

NN W———

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

1033«

1807+

1249

1307

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC
07-DEC-79 10:40
FEW
FIxCvL
FNDBSC
FNODRV
FNDTRK

017425
031070
031000
(26536
030626

FORSK

003126

FOWR
FRM1

FRM10
FRM11
FRM12
FRM13
FRM14
FRM1S

021477
021543
021600
021657
021742
021771

022030
022115
022151
021021
021121
021200
021241
021310
021331

FRM9
FRTTRK
FUNERR

021435
003152
020001

FWD

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

021371

020050

FSAU
= 000015
F$AUTO= 000020
F$BGN - 000040

325
3564
1325
1331
1563«

FSINIT= 000006
FSJMP = 000050
FSMOD - 000000
000011
FSMSG
FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOF
T= 000005
F$SRV = 000010
F$SUB
000002

589

613

637

661

685

16154

529

544

553

567

576

591

600

615

624

1294

1802+

1806+

334

339

3554

98
392
725

266

269

298

726

729

736

304
415
1790

310
704

1980

266

269
407

308

313

1980

1982

639

1567

936
713

30
338

722
728

30
342

377
718

383
723

315

708
1982

377

392
725

98
400
728

30
613

40
704

90
708

714

269
723

298
725

729

302

377
736

1788

392

400
1982

308
389

310

313

315

323

331

333

336

338

342

722
F$HARD= 000004
FSHW
- 000013

565

1699

717

FSCLEA= 000007
FDU
= 000016
FSEND = 000041

SEQ 0085

562

15574

003062
020724

FRM16
FRM17
FRM18
FRM2
FRM3
FRMS
FRMS
F RM6
FRM7

FRMS8

MACY11

723

403
729

736

321

713
1989

1989

398

703

GDATA
GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GSBIT =
GSTAT =
GSCNTO=
GSDELM=
G$DISP=
GSEXCP=
GSHILI=

000014
000001
003136
002234
002234
020172
023724
017300
000003
000004
000200
000372
000003

QOO0

(ZRLLBO RLO1/02_DRIVE COMPAT
CZRLLB.MAC
07-DEC~79 10:40

MACY11

1980
1254

1257

1308+

742

747

759

763

1985
1985
1985
1987
1988

1986
1986
1686

1987
1987

1988
1988

1988
1985

1986

1987

1985

1986

1987

1570

857
893«

1591«
1099
926

1604+
1365
1019

862+

876

879x

1790
1225+

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

1321

1325

1632

INN10
INNT1
INN2O
INN21
INN30
INN31
INN4O
INNGT
INNS0
INNS1

INTEN =
ISR
000100

IBE
IDU
IER
INAWR
INITCO
INITWR

nnan

HPTCOD
HRDPRM
HSFLG

InTaNaTANA

GSLCLI

14294
1241

526
561
174
179

1025

1023«

1378«

1384

1387«

SEQ 0086

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

= 004000 G

000041
000041
000041
000041
000041
000041
000041

002066
033250
002120
002016

SEQ 0087

22N

709#
718#4
7264
19854

7134
7224
728#

28#

LN4

4154

7034

4074

4134

40N
7044

708#

90#

984
7144

2664

7178

2694
7234

298#
7254

7294

7364

3774

3924
17884

400n
19824

3044
3834

3084

3104

3134

3154

3214

3234

3314

3334

3364

3384

3420

1790
17904

[aTa)

031676
040000
000010
003070
003134
003150
002110
002036
002070
023710
002106
023714
002032
002011

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

302#

1790

[alalalalalalalalalolalalalalalalalalalalalalalalalalal

000041
= 000040
= 000041
000041
000041
000041
000041
000041
000041
000041
000167
032002

MACY11

15804

1055
17424
1697

1080

1086

1233

1310

1380

1482

1521

1631

17254

1735

1817

1838

1866

1900

1917

1942

328

1242*
1243+
1564
»

1248+
1249+

1306+
1307+

742

746%

747

752«

758w

759

763

306

1583

7094
7184

34
4054
738«

19834

1633

1653

1655

“"RLLBO RLO1/02_DRIVE

LSHPTP
LSHW
LSICP
LSINIT
LS$LADP
LSLAST
LSLOAD
LSLUN
LSMREV
L SNAME

002022
022252
002104
022266
002026
033370

LSPR]IO

LSPROT
LSPRT
LSREPP
LSREV
L$SPC
L$SPCP
LS$SPTP
LSSTA
LSTEST
LSTIML
LSUNIT
L 10000
L10001
L10002

L10003
L 10004
L 10005
L10007
L10010
L10011
L10012
L10013
L10014
L10015

2o
29
2
2%
2%
29
9%
29
9%
294
2on
294
o4
294
2on
294
294
2N
308#
3134
3214

7134
7224
7284
19804
1983

282#
284

477
1254
1304
1264
1314
1274
1324
1284
1334

MID10
MID11
MID20
MID21
MID30
MID31
MID4O
MID41

MIDS0
MID51

MACY11

7
K
11:21
PAGE 8-6
30A(10S52)
17-DE(C-79
CROSS REFERENCE TABLE == USER SYMBOLS

L1548

20004

3834

419

425

448

695

1747«

1766

1767

1768

1586

1616

3984

19894
428

15104

588
172
177

693
1557«
002262

SEQ 0088

1934

1075
1124

MK
MP

0Qu10

2o
29
o
29

3314
3364
3424
393
7034

MANY
MDHEDR
MERGE

NCHE CK
NONE
NXM
OFFSET
oPl
-

07-DEC-79 10:40
[alalalalalalalnlalalalalalalalalalalalalalal

CZRLLB.MAC

(OMPAT

612

1775

1776

1777

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

PAT
=
PATLST
PNT
=
PRI
=
PRIOO =
PRIO1 =
PRIOZ2 =

PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PRSTRK
RDHDR =
READ
READ1
REASON
RECER
RECMS
REGDMP
REV
REVSK
RSADJS

002274
002264
002276
002266
002300
002270
002302
002272
002304
003112
002236
002250
002240
002252
002242
002254
002244
002256
002246
002260
017574
017735
024204
003022
000000
000000
000000
000000
000000
000000
000000
000001
000000

000006
003046
001000
002000
000000
000040
000100

000140
000200
000240
000300
000340
003154
000010
000014
020115
003072

017755
017627
026120
020060
003124
026330

1204

1164

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

SEQ 0089

636

1214

1174

122#

1234
1194

1244

202#

687

895

1840

1868

1902

1919

1944

846

1225

1308

1816

42N
LoN
42N
42N
42N
Lon
LN
W20
2194
734
754

1597
1656
1483

1615

1944

1315+

1054
1104
1064
1114
1074
1124
108#
1134
1094
1144

2844
2874
7764
1704

697

22K
22K
224
22N
bl4

bl4
22H
22H
22N
S4LHu

[aIalalalalalalaTaTa)

0QuU11
0QU20
0Qu21
0QuU30
0Qu31
0QU4O
0QuU41
0QuU50
0QUST
OSECT
oUT10
ouT11
0uUT20
ouT21
0UT30
ouT31
0uUT40
OUT41
0UTSC
oUT51
OVMES
OWER
OVWPER
OWTRK
O0%APTS=
0%AU
=
O$8GNR=
O0$8GNS=
osoU
=
O$ERRT=
OSGNSW=
O$POIN=
O$SETU=

MACY11

1814
42N
L2on

2944
2884
2854
312
292N
2074

11374

2000
446

340

1522

11134

1674

1837

1865

1899

1916

1941

CZRLLBO RLO1/02 DRIVE COMPAT
CZRLLB.MAC

SECBUF
SECLST
SECT

SECWRD
SEEK

SERNM1
SERNM2
SERNUM
SFTLST
SETUP

002442
002402
003132

003144

= 000006

SIGN
=
SKCYL
SKER
SKHS
=
STFLG
STSEC
STSECT
SURF

003210
003212
031124
026476
022512
000004
025652
020031
000020
003076
003230
003226
003120

SURFAC
003156
SVCGBL= 000000
SVCINS= 000000

SVCSUB= 177777
SVCTAG= 000000

SVCTST= 177777
S$LSYM= 010000
TEM
TEMP
TIME
TQU10
TQUIT
TQU20
TQU2T
TOU30
TQU31
TQU4O
TQU41
TQUSO0
TQUST
TRKCNT
TRKFND

07-DEC-79 10:40
1644
1604

2104
1333«

2154
724

2334

MACY11
1143
1184

318
1334
1252+
1081
472«
473«
16304
1267

Nal
1074
797
1103
1078
471
904 *
955

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

327
1336
1257
1654
1687
1690~
1698

1223+
1487+
1260+

1246

1266

1269+

1270

1319«

1325

1328+

1329

1689«
1693
1818

1695
1901

1918

1943

810

814

981

985

10544

944

945

955

855

923+

929+

98
405

269
413

415

709

308
336

31
339

313
341
509

318

912+
56+
327

306
28
338

1558«
29
383

234
327
428
633

29
-328
437
657

146+

726

SEQ 0090

1867

1003

736

474
700

494
703

1272+

1293«

1449

1457

1097

310

302

538

1300

1304

1363

1415

315

717

319

323

718

321

405

417
741
1125
1695
1983

561

585

747
1257
1700
2000

756
1264
1708

1386
1975

1389
1980

713
1103
1490
1983

24LM

308

336

342

398

713

722

728

308#

3134

3214

3314

3364

3424

3984

7034

7224

728%

19804

850+
865+
1759
660
684

853«
871

1062+
1371«

1066+
1376«

1092+
1379

1095«

1358«

1361+

16462

1989
1790

878

881

728
1113

1986

740
1114
1534
1987

1533

003056
003066
023724
002332
002344
002334
002346
002336
002350
002340
002352
002342
002354
003162
003160

1566«
49

1572~
506

1574+

1575

1565+

1577

558

573

582

597

606

621

630

1988
3064

678

550

TYPDR = 000004
T$ARGC= 000001

669

3114

3164

3184

3194

3254

3274

3284

3294

3344

3304

LAY

173

178

654

535

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

T$CODE= 002130
TSERRN= 000322

454N
17254
1985#

TSEXCP=
TSGMAN=
TSHILI=
TSLAST=

MACY11
L74n
19744
19864

4220
8784

T$NSO

TENST

TSPTNU=
T$SAVL
=
T$SEGL
=
T$SUBN=
TSTAGL=
TSTAGN=

398

703

713

722

728

2064
3364

2694
3384
7034
7294

2784
3424
7044
7564

3024
3774

7084
17884

3044
3834

7094
17904

19804

2694

298
7174

3024
723

377
7254

3834
729

7364

3234

33
7264

728

3334

336
19834

1989

3384

342

3934

4154

7184

7264

17884

3894

3984
19804

328
454

474

1114
1534

1125
1695

336

40m
3234
Q03¢
7238

0¥
3314
407@
7254

984
3334
4134
7264

90
L1340
1998
313
7004

98%
706

266
7084

3154

321

7184

722

3234

333

3384

3104
703

3154

TSTEST= 000001
TSTSTM- 177777

713

12644

4154
7284

714

7034
10884

704w
19894

713
19984

3134

3214
714K

3424
7284

311
339
538

313
341
561

316
342
585

318
817
609

325

298¢

969

342

339

19824

950

176954

321

313

TSTEMP= 000000

T
=
UMM
UNLOAD
wT
VAJWR
027510

14924

523
1250%

304

T.DRIV

6094
14904

SO94
11064

3214
400#
7224
19984
404
607

T$TSTS=
T$SAUT=
T$SCLE=
TSSOV =
T$SHAR=
TSSHW =
T$SINI=
TSEMSG=
T$$PRO=
T$STES=

5854
1389#

19884
L94H
1103#

19874

000000
177777
177777
000000
177777
010016

5614
13864

1987#
428#

19864
308

= 000004

16954

1257#

19874

000000

15334

11254

19864

T$L TNO= 000001
TSNEST= 177777

13314

11164

19864

SEQ 0091
13254

11134

8814
19874

20004

TSLOL
=
TSLSYM=

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

3084

681
1106
1492

728
1316
1725

740
1325
1769

756
1331
1974

1386
1975

3104

313

3154

321

3234

805

974

1514

1526

1559

1637

1644

1718
435
997

1815

1833

1862

1898
1834

1940

1973

445+
1010

44Bv
1351#

1041

6334

3334

336

3384
1658

1695

1708#

6574

6814

3084
389#

389

1980

3104
3924
7144
19824

3924

1788

329

342
1665

1678

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

000002
033346
000002
027162
026576
WCOUNT
003142
WRITE = 000012
WRITY
020070
WRSEC
024466
XDELAY
017232
XTIME
024050
XSALWA= 000000
X$FALS= 000040
VEC
=
VECMSG
=
VECT
VERQD
VEROW

X$OF
F S= 000400

X$TRUE
= 000020
YDELAY

017234
033370

1986

864
803
802
2140
74H
2934
799
2434

MACY11

260

SEQ 0092

439«
12894
12204
1256

881
841a

7524

743
1732

244N
Sk

754+
1604

224
oo
2o
o8

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

1264

1318+

1324+

1331

947
748%

966
1759+

993

1005

760+

764+
2964

1715+
3754

755«

1644

242H

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
DOCLN
DODU
ENDAUT
ENDCLN
ENDDU
ENDHRD
ENDHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDTST
EQUALS
ERRDF
ERRHRD
ERRSF
ERRSOF
GPHARD
GPRMA

761
709
718
726
1983
393
415
28
304
383
1790
453
1534
742
32
3
405
700
696
713
722
728
1989
398
703
30
308
389
1980
42
1103
494
422
878
437
1985

LASTAD
MSBYTE
MSCNTO
MSCOUN

2000
2%
19854
3064

GPRMD
GPRML
HEADER

MSDATA
M$DECR
MSDEFA
MSENDE
MSERR]
MSEXCP
MSGEN

1987
1988
29

11144
2N
30#
7034
19854
30#

7044
Loon
1103#
19854
284
3314
709#

310
757
1700
747

MACY11

98
315

1975

c
8
PAGE 9
17-DEC=79
1":2
30A(1052)
CROSS REFERENCE TABLE == MACRO NAMES

302
333

392
338

403

613

708

717

725

736

1982

400
342

407

704

714

723

729

1788

1998

561

585

609

633

657

681

881

1389

1490

1492

3194
13254

3254
13314

15334

16994

3294

3344
17084

3394
17254

3410
19740

4544

L7468

LRRE

3084

3134

7234

3214
7284

3364
17884

3420
19804

19894

1998#

4<00#

4078

3364

3424
19894

19984

3774

3984

4<00#

4«07

7034

13864

13894

3214
7294
5614
14904

6574

6814

6934

878#

as1»

LOn
3424
7224

984
3834

3104

3134
4134

3154

3214

3234

759

763

90
313

266

321

298
33

377
336

1106
509
428
1386

1250

1316

1769

523
693

SEQ 0093

1986

19874
12574

340

7134
19874
714
4o4n
12504
19874

324

774

19884
3184
12644

2984
7144
19884
2984
7224
3094
13164

34n
3384
7184

7224

3084
7234
5234

7254

3274

2694
3924
7264

6334
3084

4034
17904

3774

4054
19804

3894

19824

L15#
19834

19854

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

0¥
7044
2
3934

MEGNGB

2664

2984

324

7134

4034

MSINCR

3064

3084
3414
5384
7614

3114
3424

3134
3934
7474
13164
19744

3164
4054
6094
7564
13254
19754

7564
13894
169824

3134

3214

3254
1331#
3044

3274
15334
3104

M$WORD

3414
609#

11034
15334

3614
6094

11034
15334
4054

3314

7294

3284
16954
3154
7264

7574
13314

3364
17884
3294
16994

3234

€934

474K
708#
11064
15344

3384

1988+

407

3834

19834

3294

4544
7034
11064
1534#
19894

11134
16954

3184
3424
SO
7134
11144
16994

3984

400#

4074

4544

L4740

3924

3934

403

454

4744

4544

4744

LARE

7094

13314

1533«

3274
1533«

3044

3104

3234

403»

3184
428
693
11254
17004

3194
4374
696#
1250
1708#

4540
7034
12644
1769

3254

3364
561

11254
17004

1250#
1708#

3254

3254
13314

7184

—t

1103
15334

6934

6334

4004

7364
3294
16994
3294
16994

718#

METSTL

3164
3414
Lo4N

7404
13864
19804

—a

M$TLAB

3154
3394

7364
13314
19754

3414

3284
4534
7004
11034
15334

3104
3344
4374
6964
8784
14904
19834

4284

(A4
LI154
3084

3254
4374

3184
G174

3084
337y

3064
331k
4224

31ia
11254
3114
11254
19864

19824

19894

3044
3294

4154

7364

19804

3024
3284

728#

3334

7134

4On

7234

3234

726H4

7034

398%#

6814

3984

19984

16904
19864

3424

6574

3894

17884
3044
7174

19804

3364

4174

3364

SEQ 0094

3274
4524
6964
8814
14924
19874

3134

MeSVC

7094

12574
17254

3114

5854

3024

7424
12644
17694

SO
NWO=2OB WO
NV
N2
O =N
O —v

MSRAD |
MERNRO
MSSETS

S61#4

7294

i
7224
11144
16994

11254

MSPUT

3314

4134

7044

M$PUT

321

405#

7224
12574
17254
L3374

M$PUSH

3134

728#
2694
7084

3934
5614

MSPRIN

3084

7234
98#
4154

3234

M$LDRO
MSMCHI
MS$MCLO

D 8
PAGE 9-1
17=-DEC=79
11:
30A(1052)
2
CROSS REFERENCE TABLE =-- MACRO NAMES
7224
“On

714H

3o
- 3344

MSGNIN

MEGNTA
MSGNTE
MSHAPT

MACY11

318#
L84
6934

3184
4284
6934
11254
17004
509#

7254

3274

7254

3194
4374
6964

3194
L3740
6964
1250#
1708#
5234

7364

3254
4544
7034
12644
17694
3254
4540
7034
12644
17694
5614

1490

3364
5614
14904

6934

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

READBU
READEF

SETPR]

Sv(

30A(1052)

17-DEC-79

CROSS REFERENCE

8814

11034

11064

12504

13164

306
454

m
674
756

316
1257

318
1264

319
1325

1715
1759

1732

740
452

417

WAL TMS
WAITUS

154
104

. ABS.

033370

ERRORS DETECTED:

000
O

LCZRILB.LST/CRF=SV(33/M ,(ZRLLB.MA(
RUN-TIME: 60 49 5 SECONDS
RUN-TIME RATIO: 276/115-2.3
CORE USED:
15K
(29 PAGES)

8784
2000

NN
wro

POINTE

PRINTB
PRINTF

MACY11

11:21

8
PAGE 9-2

SEQ 0095

TABLE -- MACRO NAMES
13864

327

1533

13894

328

1695

14904

329

1699

16924

334

1708

17694

339

1725

19854

19864

19874

19884

341

1113

1114

1125

1974