Digital PDFs

AH-F126B-MC

May 1979

159 pages

Original

80MB

view download

OCR Version

115MB

view download

Document:	CZRLKB0 RL11,RLV11 RL01-02 PERF EXER MAY 1979 bw
Order Number:	AH-F126B-MC
Revision:	000
Pages:	159
Original Filename:	CZRLKB0__RL11,RLV11__RL01-02_PERF_EXER__AH-F126B-MC__MAY_1979_gray.pdf

OCR Text

RLll:RLVll

RLO1/02 PERF EXER
CZRLKBO

AH-F126B MC
EICHE

-1

“0OF

SEQ 0001

IDENTIFICATION

PRODUCT CODE:

AC-F127B-MC

PRODUCT NAME:

CZRLKBO RLO1/02 PERFORMANCE EXERCISER

DATE CREATED:

5-JAN-79

REVISED:

7-DEC-79

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

D. DEKNIS, C. CAMPBELL

|
¢

THE

INFORMATION IN THIS

DOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE
AND
SHOULD
NOT
BE
CONSTRUED
AS A COMMITMENT BY D.JITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. THE SOFTWARE
DESCRIBED
IN
THIS
DOCUMENT
IS
FURNISHED
TO
THE
PURCHASER
UNDER
A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND
CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY
FOR_
USE
IN
SUCH
SYSTEM,
EXCEPT AS MAY OTHERWISE BE PTJOVIDED IN
WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g}GIfiRABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

1979, DIGITAL EQUIPMENT CORPORATION

RELATED DOCUMENTS AND STANDARDS

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION
SAMPLE RUN-THROUGH
CHAIN MODE OPERATION
:
DETAILS OF COMMANDS AND SYNTAX
TABLE OF caww VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS

B
.
.

N =

kK
.

DEVICE INFORMATION TABLES

nN =

ERROR HALTS

N —

AWV

—_—

WNINN) =

NDO

:.NWO
&»roO

N
W

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT IONS

TEST SUMMARIES

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPRORTS
PROGRESS REPORTS

SEQ 0002

PROGRAM ABSTRACT

—_

-0
:Ilbu—'—iN—‘—l—'
N.fl, )
N A

GENERAL INFORMATION

ERROR INFORMATION
ERROR REPORTING
{

(o RV |

PAGE 2

TABLE OF CONTENTS

e
i -

1
PAGE 3

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

1.1

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC

IS COMPATIBLE WITH BOTH XXDP+ AND ACT.

CAN

RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+, ACT AND
APT IN ACT MODE (SEE 2.2 ''CHAIN MODE
OPERATION''
FOR DETAILS
OF

CHAINING PROCEDURE).

IT IS A SINGLE PROGRAM FROM THE STANDPOINT OF

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

THIS

SUPERVISOR

DIAGNOSTIC

PORTION,

WHICH

STARTED,

CONTROL

GOES

FIRST

THE

WILL ASK CERTAIN 'HARD CORE'' QUESTIONS

ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
INDICATED
BY
A PROMPT
CHARACTER
(DR>).
AT COMMAND MODE THE OPERATOR MAY
?zggzug}mog" SEVERAL
COMMANDS AS
DESCRIBED
IN 2.0 ‘OPERATING
THE DIAGNOSTIC PROGRAM IS LOADED IN THE LOWER 8K

MEMORY.

THE

DIAGNOSTIC
SUPERVISOR
CODING OCCUPIES 6.25K OF THE UPPER PART OF
MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES IN THE
UPPERMOST
1.5K OF MEMORY SPACE.

.12
THE

DIAGNOSTIC INFORMATION
RL11/RLV11

PROGRAM.

DRIVES.

RLO1/02

WILL

EXERCISER

RANDOMLY

EXERCISE

AFTER AN INITIAL WRITE OF EACH

PDP-11

(LSI-11)

RL01/02,

THE

RANDOMLY PICKED AND GIVEN A RANDOM STRING FUNCTION OF
:

DRIVES

ARE

GET

SEEK, WRITE, WRITE-CHECK

SEEK, READ DATA, DATA COMPARE

. 8

g;i’;osREAD HEADERS, READ 1 SECTOR W/NO HEADER COMPARE,

SEEK, ReAD, READ

1.2

SYSTEM REQUIREMENTS

$.2.1

HARDWARE REQUIREMENTS

BASED

TO 2 CONTROLLERS AND 8

SEQ 0003

PAGE 4

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

* CONSOLE DEVICE (LA30,LA36,VT50,ETC.)
* 1 OR 2 RL11/RLV11

CONTROLLER(S) WITH:

1 = 8 RLO1 DRIVES WITH RLOTK CARTRIDGES CONTAINING

'BAD

1-8 RLOchg?VféLEIITH RLO2K CARTRIDGES CONTAINING A 'BAD
SECTOR FILE®

* KW11=L OR KW11=P CLOCK
* LINE PRINTER (OPTIONAL)
1.2.2

SOF TWARE REQUIREMENTS

CZRLKBO RL11/RLV11 RLO1/RLO2 PERFORMANCE EXERCISER
(FORMERLY CZRLEBO)

1.3

RELATED DOCUMENTS AND STANDARDS
RLOT DISK SUBSYSTEM USER'S GUIDE
XXDP+/SUPERVISOR USER'S MANUAL

1.4

(EK-RLO1-UG-002)

DIAGNOSTIC HIERARCHY PREREQUISITES
THE RLO1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS:

CVRLABO
CZRLGBO
CZRLHBO
CZRL1BO
CZRLJBO

CZRLNAO
1.5

RUN

THE

FOLLOWING

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

RLO1/02 DRIVE TEST (PART 3)

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

2.0

OPERATING INSTRUCTIONS

2.1

HOW TO RUN THIS DIAGNOSTIC

TO
WORK
ETC., DO

SEQ 0004

2.1.1

1
PAGE 5

THE FIVE STEPS OF EXECUTION

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

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

CHMDKAO “XXDP+ DK MONITOR NNK
BOOTED VIA UNIT 0
ENTER DATE

(DD-MMM-YY):

AFTER THE DATE HAS BEEN ACCEPTED BY THE MONITOR THE RESTART ADDRESS
(A)gKE(;HE
MONITOR
IS PRINTED.
THEN THE FOLLOWING TWO QUESTIONS ARE

50 HZ ? N

iSI?

THE DEFAULTS ARE BOTH''NO''.
THE PROGRAM.

DO NOT TYPE

TYPE 'R'' AND THE PROGRAM NAME

THE EXTENSION.

RUN

WHEN THIS DIAGNOSTIC IS STARTED THE FOLLOWING STEPS WILL OCCUR:
Ak kkhhk

* STEP1 «
L222323233

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

THIS

NOT

THE

SAME AS
THE
XXDP+ °‘'START'' COMMAND, WHICH YOU ALREADY ISSUED IN
RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ‘‘START'' COMMAND CAN TAKE
A
NUMBER
OF
SWITCHES
AND FLAGS
(ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH
IN 2.3
°'DETAILS
OF
COMMANDS
AND
SYNTAX''.
HOWEVER,
IN
ORDER
TO
USE
THE
PROGRAM,
ALL YOU NEED TO SAY IS
SOMETHING LIKE THIS:

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

ONLY THE FIRST THREE CHARACTERS OF

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

THIS OR ANY
\

COMMAND

SEQ 0005

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

PASS

CONSISTS

SHORTLY).

PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF

BUT THE MAIN USEFUL ONES ARE:

PNT

LOE
HOE

IER

RUNNING THE FULL DIAGNOSTIC AGAINST ALL

UNITS BEING TESTED (THIS WILL BE EXPLAINED

PAGE 6

NUMBER

ONE

FLAGS,

PRINT NUMBER OF TEST BEING EXECUTED
.

LOOP ON ERROR
HALT ON ERROR

INHIBIT ERROR PRINTOUT

THE HOE FLAG IS SPECIFIED IN
SHORTLY).

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

KRk dhhkhkhhk

* STEP 2 «
Thhkkkhkhhk
-

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

A WORD OF WARNING HERE:
THE NUMBER_OF UNITS DEPENDS ON THE
TARGET
DEVICE
OF
THE
DIAGNOSTIC.
FOR
EXAMPLE,
IF
THE DIAGNOSTIC IS
DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF
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 THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS ‘HEADER''
STATEMENT SHOULD BE THE DEVICE TYPE OF

THE DIAGNOSTIC.

L2233
2 32424

* STEP 3 «

L2828
3 2244

wHEN YOU HAVE TYPED IN THE
DIAGNOSTIC

WILL

NUMBER

UNITS

ASK YOU THE 'HARDWARE QUESTIONS''.

THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE,

lr’gg%ES"

BE_

TESTED,

CALLED

‘'HARDWARE

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

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL

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

THE

THE ANSUERS T0

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC

ENGINEERING.

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

INFORMATION THEY NEED TO TEST

L2222
22 d

THE DEVICE.

SEQ 0006

1
PAGE 7

* STEP 4 »
Ahhkhhhhhw

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS

ALL

THE

UNITS,

YOU

(SEC

2.5)

FOR

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

YOU

TYPE

'Y''

YOU

WILL

ASKED

THE

SOF TWARE
QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P-TABLE IN THE PROGRAM.
THE SERIES OF QUESTIONS
WILL
BE

ASKED JUST ONCE, REGARDLESS OF

THE NUMBER OF UNITS TO BE TESTED.
>

Ak hkhhhk

« STEP § «
LA

]

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS,

BEGIN

TO EXECUTE THE HARDWARE TEST CODE.

THE DIAGNOSTIC WILL

THERE ARE SEVERAL THINGS

THAT CAN HAPPEN NEXT, DEPENDING ON
WHETHER
A
HARDWARE
ERROR
IS
ENCOUNTERED
AND
ALSO
ON
WHAT
SWITCH VALUES YOU SELECTED ON THE
START COMMAND.
CONSIDER THE POSSIBILITIES:

1.
2.

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY

EXECUTE
THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND
MODE (PROMPT DR>).
'
i

IF AN ERROR

mggNS.

ENCOUNTERED,

DEPENDING

THE

THEN

ONE

SETTINGS

THREE

THINGS

THE HOE AND LOE

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

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

THE

BLOCK

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON THE
(C)(c)glsjglégom NORMAL EXECUTION WILL RESUME AS IF NO ERROR HAD

SEQ 0007

2.1.2

PAGE 8

SEQ 0008

SAMPLE RUN=-THROUGH

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

;?EISE&NELE

IF NO ERRORS

ARE

ENCOUNTERED,

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

IF AN ERROR IS ENCOUNTERED, THE ERROR

WILL

REPORTED

AND

THE

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

2.
3.

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

STEPS

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

ISSUE A "RESTART'' COMMAND (SAME

START

COMMAND

THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

ISSUE A '‘CONTINUE'' COMMAND (EXECUTION WILL

RESUME

EXCEPT
AT

THE

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

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

THE MOST TYPICAL

THING TO DO HERE

DIFFERENT FLAG SETTINGS.

ISSUE

THE PROCEED,

PROBABLY YOU WOULD WANT

TO SAY:

BUT WITH

PRO/FLAGS: IER: LOE : HOE=0
THIS WILL DO THE FOLLOWING:

TURN ON THE IER

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

4..

RESUME EXECUTION AT

(INHIBIT ERROR PRINTOUT)

FLAG

»e

INSTRUCTION AFTER ERROR REPORT

PAGE 9

SEQ 0009

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

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WILL TAKE YOU
CT)UH;EEOEHOI?ESLOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
1.

START

RESTART

CONTINUE
Y
y

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

YOU WOULD TYPE

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

EXECUTION

THE

THE FLAGS TO THEIR

BEGINNING OF

ORIGINAL

VALUES

AND

RESUME

THE HARDWARE TEST YOU WERE IN.

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

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

START

RESTART

AGAIN,

Edind

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

YOU

HAVE

TO ANSWER THE

STUDY THE ERROR OR SCOPE IT OR WHATEVER.

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

.& CZRLKB

MIGHT

LOOK

DR3 LOADED

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

CZRLK=-B-0

CZRLK RANDOMLY PERFORMS DRIVE SEEK, READ, D

AND WRITE FUNCTIONS

UNIT IS RLOT, RLOZ

DR>STA/PASS : 1/FLAGS :HOE

D.O

CHANGE HW (L)

D.O

T
L
I

¥ ?

(L)

? N

UNIT 1

RL1T

¥ ?

CHANGE SW (L)

(L)

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

O0O00000

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLOT (L) ? N
BR LEVEL (0) 5 ?
>

RL1T

000000

D.O
wiwlivivivivicielelelelelele)

? 2

i\l

UNIT O

(D)

(N=RLO2)

# UNITS

? Y

CZRLK HRD ERR 00004 TST 003 SUB 002 PC:004130

ERR HLT

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

RRRR AR AR

D.0

AR AR

AT THIS POINT THE DIAGNOSTIC

ERROR WITHOUT PRINTING ANYTHING.
THE ERROR UNTIL

AR RRRRARRARCARR

IS LOOPING ON THE

YOU CAN SCOPE

YOU HAVE LOCATED IT,

THEN “C OuUT.

ARSRRttt
ittt siaiisssssssssy

1
PAGE 10

THIS

SEQ 0010

PAGE 11

DR>CON/F LAGS
: HOE : 1ER: LOE=0

D.0

CHANGE SW (L) ? N

D.O

CZRLK EOP 1

DR>RESTART/PASS: 1

D.0

CHANGE SW (L)

D.0

2.2

2 N

CHAIN MODE OPERATION
CHAIN MODE
PROGRAMS

OPERATION

WITHOUT

CONSISTS

CHAIN

MODE

OPERATOR

BEEN MODIFIED TO RUN IN
PROGRAMS ARE

THE

INTERVENTION.

CAN

SEQUENTIAL

EXECUTION

ONLY PROGRAMS THAT HAVE

CHAINED.

CHAINABLE

IDENTIFIED IN THE DIRECTORY BY A BIC EXTENSION.

TO RUN CHAIN MODE,

THE XXDP+ MONITOR USES AN ASCII

FILE

(KNOWN AS A

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

A CHAIN FILE MAY BE GENERATED BY USE
OF
THE
XTECO
TEXT
EDITOR.
THIS
FILE
MUST
HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN
ANY OF THE COMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THE
COMMANDS
IN
THE
ASCII
FILE
ARE
EXECUTED
IN THE ORDER IN WHICH THEY ARE
ENCOUNTERED.
COMMENTS MAY BE INCLUDED IN THE FILE.
TO EXECUTED A CHAIN FILE

THE USER TYPES:

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

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

WHEN PROGRAMS ARE RUN IN CHAIN MODE,

SHOULD

SET

000000.

OTHER

THAN

THE SOFTWARE

SWITCH

TAKEN FROM THE CHAIN FILE AND THEN EXECUTES THE COMMAND.

LAST

COMMAND

THE XXDP+ MONITOR PRINTS EACH COMMAND
WHEN

THE

ANOTHER C COMMAND HAS BEEN EXECUTED THE

XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT
READY
TO
ACCEPT
ANOTHER
COMMAND
FROM THE CONSOLE.

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

SEQ 0011

M1
PAGE 12
IF THE USER WISHES

TERMINATION

MAY

TERMINATE
SO

CHAIN

MODE

MONITOR WILL NOT ABORT THE CHAIN MODE
UNTIL
CONTROL FROM THE PROGRAM CURRENTLY RUNNING.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3.1

TABLE OF

THERE ARE FOUR

BEFORE

ITS

NORMAL

RECEIVES

PROGRAM

TYPING A CONTROL/C.

HOWEVER,

THE

MODE,

AND

COMMAND VALIDITY
WAYS

DIFFERENT SUBSETS OF

ENTERING

DIAGNOSTIC

COMMAND

THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:

HOW ENTERED

OPERATOR ENTERED

LEGAL COMMANDS
'RUN DIAG'

START
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT
DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY

FLAGS

JFLAGS
EXIT
OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

RESTART

CONT INUE

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT
AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONT INUE

PROCEED
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT

SEQ 0012

€.3.¢

T
PAGE 13

COMMAND SYNTAX

L2222 2

222222322233

322

2222233222223 22222332233d223 233223302232 22322323;

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

222222t

ddiiii

ittt

iidd

iiiastidddissdsy

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE ~SWITCHES

SPECIFIED.

THE

MESSAGE "# UNITS?"'

OF THE FOLLOWING:

A) OPERATOR TYPED

IS PRINTED.

THE START COMMAND

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

‘RUN DIAGNOSTIC''

FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE

B) DIAGNOSTIC
FLAG

SET

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

RELOAD

THE

THE SWITCH ARGUMENTS ARE AS FOLLOWS:

"TEST=LIST'' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR RANGES
OF
DECIMAL NUMBERS
(1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE
EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS
RANGE
FROM
1
TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER
REGARDLESS

THE

EXECUTE ALL TESTS.

ORDER

SPECIFICATION.

THE

DEFAULT IS TO

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

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

WHERE <FLAG> HAS ONE OF

THE FOLLOWING VALUES:

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

WHEN

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

INHIBIT BASIC ERROR REPORTS

IXE INHIBIT EXTENDED ERROR REPORTS
PRI DIRECT ALL MESSAGES TO A LINE PRINTER

+ PNT PRINT NUMBER OF TEST BEING EXECUTED

SEQ 0013

PAGE 14

BOE BELL ON ERROR
UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS
ISR INHIBIT STATISTICAL REPORTS
IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

LOT LOOP ON TEST
EVL EVALUATE
THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE
EQUATEL
TO 0 ARE
%;Azfiséh‘ ACLF%CEG'SP;REPE&:}?EgIS CLEARED.
IF THE FLAGS SWITCH IS

"EOP=INCR'' IS A DECIMAL NUMBER INDICATING HOW OFTEN

(IN

TERMS

istsdidiiilssss

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

ittt

adissi

THE
sy

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

A d

s d

R ddd

i ddsd

didadsdii

i iiditiidiisdisitsiiissiisssssds

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.

HOWEVER,

ONES IN CORE ARE USED.

NEW

‘'P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD, THE

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

"UNIT=LIST'' IS A SEQUENCE OF LOGICAL UNIT 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 ORDER IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED

MUST NOT HAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND.
THE UNIT-LIST DEFAULTS TO 'ALL THAT HAVE NOT BEEN DROPPED
BY OPERATOR COMMAND''.
THE EFFECT OF THE UNIT-LIST LASTS
UNTIL THE NEXT START (WHERE IT IS AUTOMATICALLY RESET
TO

“ALL'") OR THE NEXT RESTART.

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

SEQ 0014

LA A

AR a2

dddd

it iddiiiidi iR

PAGE 15

ddiidddddy]

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

AARRAAAARAA
AR AR A AR AR AR AR
e

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

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

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

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

FROM

THE

ARAAA AR AR A AR A AR AR A A ARk d

PRO(CEED) /FLAGS
: <FLAG-LIST>
AARAAA A AR A AR AR AR

ARk

COMMAND MODE MUST HAVE BEEN ENTERED
VIA A
HALT
ON_ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO BEGIN
EXECUTION AT THE LOCATION
;(AlYngI:GLTEgEDERRm CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:

1.
L2

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

4 24

EXIT
kR

RETURN TO XXDP+ PROMPT MODE.

AR ARA

AR A A

A AR AN

DRO(P) /UNITS:UNIT=LIST
L2

stisddsdsdds

THE UNITS SPECIFIED ARE DROPPED FROM T-ESTING UNTIL THEY ARE ADDED

g?C:

OR telélgll. A START COMMAND IS GIVEN.

A DROP CANNOT BE FOLLOWED

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

SEQ 0015

LA A

PAGE 16

il sl

ADD/UNITS :INIT-LIST
LA

2 222222 dddidddd]

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN PREVIOUSLY
DROPPED BY
THE DROP COMMAND., TO THE TEST SEQUENCE.
AN ADD CANNOT
BE FOLLOWED BY A PROCEED.
LA s 2242

PRI(NT)
ARARRNE

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

PRINTED.

AR AR AR AR

DIS(PLAY) /UNITS:<UNIT=LIST>
L3222 22 dd2diddisdiiiisdsssd

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.
LA 2 4232

FLA(GS)
Ak
hd

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
L2

284

ZFL(AGS)

Ak
w

ALL FLAGS ARE CLEARED.

2.4

EXTENDED P-TABLE DIALOGUE

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

REVEALED BY

THE

AS SOON AS THE QUESTION "% UNITS?'' 1S ANSWERED (WITH THE NUMBER N),
SPACE
IN CORE IS ALLOCATED FOR 'N'‘' P-TABLES.
ALL OF THE P-TABLES

ARE OF THE SAME FORMAT, AND THERE IS
A
ONE-TO-ONE
CORRESPONDENCE
gf'{fig FTME THARDUARE
PARAMETER
QUESTIONS
AND
THE SLOTS IN THE

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

SEQ 0016

A STRING OF VALUES MAY BE GIVEN

THE

VALUES

REPRESENT

PURE

AS A RANGE (6-10 FOR EXAMPLE..

NUMERICAL

DATA,

THIS

PAGE 17

SAMPLE

RANGE

TRANSLATES TO THE STRING 6,7.8,9,10 (AN INCREMENT OF
1).
IF_
THE
VALUES ARE
ADDRESSES,
THE
SAMPLE RANGE TRANSLATES TO THE STRING
6.8.10 (AN INCREMENT OF 2).
'
NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO

CONSTRUCT

SET OF P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE
ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE P-TABLE,
5 HARDWARE QUESTIONS IN THE DIALOGUE).

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.
THE FIRST 4 DRIVES ARE RLO1'S AND THE LAST 4 DRIVES
RLO2'S (ON THE SECOND CONTROLLER):
# UNITS

UNIT O
RL1T

(L)

(D)

? 8

;

Y ?

BUS ADDDRESS (0) 174400 2
VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOT1 (L) Y ?
BR LEVEL (0) 5 ?
UNIT 4
RL1T (L)

ARE

¥ ?

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

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE

DEFAULT

VALUES

ARE

USED
FOR
THE
CONTROLLER
TYPE
(QUESTION #1), CSR ADDRESS OF THE
CONTROLLER
(QUESTION #2),
THE
CONTROLLER
VECTOR
ASSIGNMENT
(QUESTION #3),
THE DRIVE
TYPE (QUESTION #5), AND THE 'BR LEVEL''
(QUESTION #6).
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR QUESTION
#4 WAS ASSIGNED O THRU 3 FOR THE FIRST 4 P-TABLE SLOTS.
THE SECOND TIME THRU THE P-TABLE QUESTIONS (FOR THE RLO2 ASSIGNMENT
ON THE
SECOND CONTROLLER), THE FIRST QUESTION DEFAULTED TO ‘RL11"’
TYPE CONTROLLER.

THE SECOND QUESTION WAS ANSWERED TO

REFLECT

THE

CHANGE IN CSR ADDRESS FOR THE RLO2 CONTROLLER (175400).
THE SECOND
CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION #3.
THE
RLO2 TEST UNIT NUMBERS WERE ASSIGNED VALUES O TO 3 IN QUESTION #4
AND THE DRIVE TYPE WAS SET FOR RLO2'S FOR THE REMAINING 4 UNITS

QUESTION

#5.

THE LAST QUESTION WAS DEFAULTED USING THE 'BR LEVEL''

FROM THE FIRST PASS.

SEQ 0017

2.5

PAGE 18

SEQ 0018

HARDWARE PARAMETERS
THE FOLLOWING QUESTIONS WILL BE ASKED

START

COMMAND.

THE

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

RLTT

(L)

¥?

ANSWER YES(Y)
RLV11

IF YOU HAVE AN RL11

CONTROLLER.

BUS ADDRESS (0)

THE CONTROLLER.

160?

ANSWER WITH THE

DRIVE

YOU HAVE

174400?

ANSWER WiTH THE BUS ADDRESS OF

VECTOR (0)

CONTROLLER, NO(N)

INTERRUPT VECTOR OF

THE CONTROLLER.

(0) 0?

ANSWER WITH THE DRIVE(S)

DRIVE TYPE = RLO1
ANSWER NO (N)

BR LEVEL

€¢0)

IF DRIVE IS AN RLOZ2

ANSWER WITH THE

2.6

(L)

CONNECTED TO THE CONTROLLER

INTERRUPT PRIORITY OF

THE

CONTROLLER.

SOF TWARE PARAMETERS
THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART,

OR
CONTINUE.
THEY
ALLOW
FLEXIBILITY
IN
THE
WAY
THE PROGRAM
BEHAVES.
THE SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY
IN
THE

WAY

RUNS.

THE

PARAMETERS

CAN

BE MODIFIED ON A START,

RESTART, OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:

"CHANGE S.wW.

?''

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

"RETRY LMT (D)

?**

THIS IS THE NUMBER OF

TIMES THE

PROGRAM

WILL

ATTEMPT

COMMAND

BEFORE
IT
QUITS AND REPORTS A HARD
ERROR.
IF
THE RETRY IS
zugcC;;SE%aB?EFCRE THE RETRY LIMIT IS EXCEEDED IT WILL PRINT AND LOG

LIMITS O - 65,535

"'SEEK RETRY LMT (D) 1

PAGE 19

?*'

THIS IS THE NUMBER OF RETRYS THAT WILL BE ATTEMPTED TO
SEEK
TO
A
CYLINDER ON A MIS-SEEK.
AFTER RETRY IS EXHAUSTED, WE WILL NOT TRY
FOR THAT CYLINDER BUT CONTINUE WITH A NEW CYLINDER.

LIMITS O - 65,535
"DATA DMP ON DCK ERR (L) Y ?*'
GIVES THE ABILITY TO SEE THE 1 SECTOR BUFFER THAT HAD
A DATA
(RC
ERROR.
THE RESULTS OF THE PRINTOUT ARE ONE OF TWO POSSIBILTIES.
1.

ONLY THOSE WORDS OF

THE SECTOR THAT WERE

WITH WHAT WAS EXPECTED.

BAD

ARE

IF ONE OF THE 1ST TWO WORDS IS BAD (USED TO KEY)

BUFFER IS DUMPED.

PRINTED

THE ENTIRE

LIMITS Y OR N
‘W OF

ERR DUMPED

THIS

(D)

128 ?*'

THE NUMBER OF MISCOMPARES THAT WILL BE PRINTED.

LIMITS O - 128
"‘TIME BETW REPORTS
THIS

gl}hVES

THE

(MIN)

(D) 240 ?*'

INTERVAL BETWEEN AUTOMATIC

CLOCK

:
STATISTICAL REPORTS

IS PRESENT AND WAS ANSWERED SO IN THE

ALL

INITIAL

LIMITS 1 - 65,535
"DROP DR ON ERR LMTS REACHED (L)

Y ?**

GIVES THE ABILITY TO AUTOMATICALLY STOP TESTING ON A DRIVE ONCE ONE
OF
THE
ERROR LIMITS HAVE BEEN EXCIEDED (SEEK, DRIVE, HARD, SOFT).

THE ANSWER IS YES THEN THE

ASKED,

FOLLOWING

FOUR_QUESTIONS

IF NO THEN THE NEXT QUESTION WILL BE 2.3.13.11,

WILL

“

LIMITS Y OR N

SEQ 0019

"HRD ERR LMT

(D)

PAGE 20

SEQ 0020

3 ?*'

THIS IS THE LIMIT OF HARD ERRORS THAT A DRIVE WILL BE
DROPPED
A HARD ERROR IS ONE ON WHICH THE RETRY HAS BEEN EXHAUSTED.

ON.

LIMITS 1 - 65,535
"'SFT ERR LMT (D)

10 ?*'

THIS IS THE LIMIT OF SOFT ERRORS THAT A DRIVE WILL BE
DROPPED
ON.
?HgongseRE?M{¥ AN ERROR ON AN OPERATION THAT WAS SUCCESSFUL WITHIN

LIMITS 1 - 65,535

THIS

IS THE LIMIT OF

DROPPED ON.

10 ?*

(D)

IN CORE MISCOMPARES THAT

THE

DRIVE

WILL

LIMITS 1 - 65,535
"'SK ERR LMT (D) 3 ?*'

THIS IS THE LIMIT OF MIS-SEEK AND TRACKING ERRORS.THAT A DRIVE WILL

BE DROPPED.

LIMITS 1 - 65,535
‘DR ERR LMT (D)
THIS

3 ?*'

IS THE LIMIT OF

DRIVE ERRORS

THAT A DRIVE WILL BE

DROPPED ON.

LIMITS 1 - 65,535
"DROP DR ON OPER LMTS REACHED (L) N ?''
GIVES THE ABILITY TO STOP TESTING ON A DRIVE
THAT
HAS
EXCEEDED
CERTAIN OPERATION LIMITS (SEEK, BITS TRANSFERRED).
THE DRIVE WILL
BE DROPPED ONLY WHEN BOTH HAVE BEEN EXCEEDED.
IF THE ANSWER IS YES
LIMITS YOR N

"DATA XFER LMT (*10(10))

(D) 25000 ?**

THEN THE NEXT TWO QUESTIONS WILL BE ASKED.

ERL

"DATA MISCOMPARE LIMIT

THIS IS THE LIMIT OF COMBINED BITS READ/WRITTEN
THE DRIVE WILL BE DROPPED.

(%10(10))

PAGE 21

WHICH
;

LIMITS 1 - 65,535
"'SK LMT (*10(3))

(D)

10000 ?**

THIS IS THE LIMIT OF
WILL BE DROPPED.

SEEK OPERATIONS

(*10(3))

WHICH

THE

DRIVE

(*10(3))

LIMITS 1 - 65,535

‘DO YOU WANT TO CHANGE SEEK, R/W PARAMETERS (L) N ?''
THE NORMAL

OPERATION

SEEK

AND

TRANSFER

THE

ENTIRE

CARTRIDGE,
CYLINDERS 0 - 255.
(RLO1) OR 511.
(RLO2), SECTORS 0 39 AND BOTH SURFACES.
THE NORMAL TRANSFER IS RANDOM BETWEEN 3 AND
1280 WORDS.
THE NEXT 8 PARAMETERS WILL ALLOW THE USER TO CONFINE THE TESTING TO
%gggggcuws SECTION OF THE CARTRIDGE AND CONTROL THE SIZE OF THE
A YES ANSWER WILL ASK THE NEXT 13 QUESTIONS.
"'STIPULATE R/W XFER SIZE

(L) N ?*'

THE PROGRAM WILL NORMALLY MAXIMIZE

MEMORY

(<28K)

AVAILABLE.

THE TRANSFER SIZE BY

RESTRICT THE BUFFER TO THOSE VALUES GIVEN IN

QUESTION IS 2.3.13.19.

TWO

LIMITS Y OR N
"MAX XFER (D) 2560 ?*'

REPRESENTS THE MAXIMUM AMOUNT OF WORDS TO READ OR WRITE
LIMITS 3 - 5120
"MIN XFER (D) 3 ?*'
REPRESENTS

THE MINIMUM AMOUNT OF

LIMITS 3 - 5120

USING

ALL

THIS QUESTION IF ANSWERED WES WILL

WORDS TO READ OR WRITE

QUESTIONS.

SEQ 0021

"RD ONLY

PAGE 22

(L) N 2"

GIVES THE ABILITY TO INMIBIT WRITING THE PACK
WHILE
TESTING,
THE
INITIAL WRITE OF THE PACK FROM THE START COMMAND WILL STILL OCCUR.

*
"RAN PAT

(L)

LIMITS YOR N
v 2?2

NORMAL OPERATION SHOULD BE YES, BUT THIS PARAMETER WILL

ALLOW

THE

IT IS NOW POSSIBLE TO CONTAIN THE EXERCISER IN WRITING ONLY ONE
THE FOLLOWING EIGHT PATTERNS:

WRITING OF ONLY ONE PATTERN OF EIGHT NORMAL PATTERNS.

IN NEXT QUESTION.

THE PATTERNS

‘.

LIMITS Y OR N
"WHICH ONE

(0) 4 ?''

ALL 0'S

177777 ,177777 ,177777 ,52525,52525,52525
177777.177777.52525,52525,177777.52525

177252.177252.172765,172765
2 -

3 -

% -

0.0,0,177777,177777.177777

0.0.177777,177777.0.177777.0,177777
0.177777
25252, szszs 52525,125252,125252,125252

52525.52525.125252,125252,52525.125252

52525,125252 52525,125252

WORST CASE DgTA

155555, 133333,66666.155555, 133333, 66666
155555, 133333.66666.155555. 133333, 66666

155555, 133333 66666155555
§ -

121105.150442 64221,132110, 55044 , 26422

13211,105504,

42642,21321,110550,44264

22132.11055, 10442642213
6 -

ALL 1'S

45513,122645,151322,64551,132264,55132

26455.113226.45513,122645.151322.64551
132264 ,55132.26455.113226

0 = 7
LIMITS
"WORDS PER SECTOR COMPARED ON READ (D)

16 ?*'

SEQ 0022

NORMAL

TRANSFERS

PARAMETER

WILL

ARE

ALLOW

RANDOM
YOU

BETWEEN

SPECIFY

AND

HOW

1280

2
PAGE 23

WORDS,

SEQ 0023

THIS

MANY WORDS SHOULD BE

COMPARED PER
SECTOR
IN
CORE
AFTER
EACH READ.
IF
THE
VALUE
SPECIFIED
IS GREATER THAN THAT READ IN ONLY THE NUMBER READ IN ARE
COMPARED.
THE FEWER WORDS COMPARED IN CORE ON EACH READ THE FASTER
THROUGHPUT THE EXERCISER WILL HAVE.

LIMITS O - 128

"W OF DATA ERR RPT'D PER BUF

(D)

THIS PARAMETER

THE

PRINTED.

WILL

THE

LIMJIT

PROGRAM

WILL

3 ?*'
NUMBER

CONTINUE

C(GRE

SPECIFIED BUT WILL INHIBIT THE PRINTOUT ONCE THIS LIMIT

;AFTER ALL WORDS ARE CHECKED A SUMMARY WILL BE PRINTED:

X WORDS BAD OUT OF 128 WORDS READ

LIMITS O = 126
'MAX HD (D)

?"'

REPRESENTS MAXIMUM HEAD TO USE

IN SEEK OPERATIONS.

LIMITS 0 = 1
"MIN HD (D) O 2"

REPRESENTS MINIMUM HEAD TO USE IN SEEK OPERATIONS

LIMITS 0 = 1

"'CHANGE VALUES OF MXCYL & MINCYL (L) vy ?*
IF NO THEN THE NEXT TWO QUESTIONS WILL BE SKIPPED

"MAX CyL

(D) 511

MAXIMUM INNER CYLINDER TO BE USED IN SEEK OPERATIONS.

LIMITS O - 255.

MISCOMPARES

TO COMPARE AS MANY WORDS AS

(RLO1) OR 511.

(RLO2)

IS REACHED.

"MIN CYL

PAGE 24

(D) O 2"

MINIMUM OUTER CYLINDER TO BE USED IN SEEK OPERATIONS.

LIMITS O = 255.
"MAX SEC

(RLO1) OR 511.

(RLO2)

(D) O ?"

MAXIMUM SECTOR TO START TRANSFER ON

LIMITS O - 39
"MIN SEC

(D) 0 ?"

MINIMUM SECTOR TO START TRANSFER ON

LIMITS O - 39
AFTER ANSWERING THE LAST SOF TWARE PARAMETER THE PROGRAM WILL
THE TESTING.

3.0

ERROR INFORMATION
ALL ERRORS ARE PRINTED VIA

CONSOLE

DEVICE.

ERROR NUMBER, TYPE AND PROGRAM LOCATION.
BEFORE AND AT ERROR WITH RELEVENT DATA.

3.1

START

THE

ERROR

INCLUDES

ERRORS INCLUDE REGISTERS

ERROR REPORTING
THE FOLLOWING ARE ERROR HEADINGS
THAT
RUNNING.
A BRIEF DESCRIPTION IS GIVEN.

MAY

ENCOUNTERED

WHILE

"'SFT ERROR"’
AN ERROR WAS DISCOVERED, BUT ON RETRY THE ERROR
INFO GIVEN IS ERROR, RLCS, RLBA, AND RLDA

DID

NOT

PERSIST.

"EXH'D RETRY ON SEEK'’
THE NUMBER OF RETRIES GIVEN HAVE FAILED TO POSITION

DRIVE

THE

GIVEN
TRACK.
INFO GIVEN IS RLCS,RLDA,RLBA, LAST POSITION,PRESENT
POSITION, AND DRIVE STATUS

SEQ 0024

M2
PAGE 25
'VOL CHK WILL NOT RESET''

A DRIVE RESET WILL NOT RESET VOLUME CHECK BIT

'DID NOT REC'R FROM PWR UP''
DRIVE DID NOT COME BACK UP AFTER A POWER FAILURE

"DATA DMP = DATA CHECK/GARBBLED DATA'’
THE PROGRAM ENCOUNTERED A DATA CHECK ERROR BUT WAS UNABLE

THEREFORE

SECTION

SENSE

OUT

2.3.13.21)

ALL

THE

WORDS

'LIMITS EXCEEDED!

MAKE

FIRST TWO WORDS, WHICH ARE USED TO KEY OFF OF.
OF

SECTOR

ARE

DUMPED.(REFER

HIGH = X LOW = Y''

ANSWER GIVEN IS NOT WITHIN LIMITS FOR QUESTION.

‘NO DEFAULT PROVIDED!"'
CANNOT <CR> TO THIS QUESTION

""'ILLEGAL COMMAND''
START, RESTART, CONTINUE, PRINT TYPED IN WRONG FORM

"'ILL ENTRY IN P-TABLE''
ANSWERS IN HARDWARE SECTION THAT ARE NOT LEGAL

CONTROLLERS)

(I.E., MORE THAN TWO

"CAN'T READ FACTORY BAD SECTOR FILE'
PROGRAM IS UNABLE

TO READ ANY OF

THE FACTORY FILES

"'CAN'T READ FIELD BAD SECTOR FILE''
PROGRAM IS UNABLE TO READ ANY OF

THE FIELD FILES

"MORE THAN 16 BAD SECTORS''
m LIMITS EXERCISING CARTRIDGES TO THOSE WITH LESS THAN 16 BAD

SEQ 0025

PAGE 26

SEQ 002¢
Y|

"NO DRIVES ENTERED''
EITHER NO DRIVES WERE ENTERED OR ALL DRIVES THAT WERE ENTERED
DROPPED
FOR
ONE
REASON
OR ANOTHER.
&Régg%yflfi ERROR,
WAITING FOR
“C.

WERE

THE PROGRAM WILL LOOP AFTER
A START
C(COMMAND
IS NOW

"DRV NOT RDY W/0 DRV ERR'’
ON COMPLETION OF A COMMAND, DRIVE READY IS CHECKED FOR
A POSSIBLE
TRACKING DRIFT PROBLEM.
IF THERE IS NO DRIVE READY A GET STATUS IS
DONE TO VERIFY THAT THE DRIVE IS NOT IN PROCESS OF SEEKING.
IF
IT
IS SEEKING THE CONDITION IS LEGAL.
THIS TYPEOUT IMPLIES THERE WERE
NO DRIVE ERRORS WHICH MAY HAVE CAUSED DRIVE READY TO GO AWAY.
"TRCK ERR'’
THIS ERROR MEANS THAT THE DRIVE IS NO LONGER ON THE TRACK SELECTED.
ANY
SUBSEQUENT READ HEADER, READ OR WRITE COMMANDS WILL PRINT THIS
ERROR IF THE TRACK IS NOT
CORRECT.
THIS
ERROR
WILL
PRINT
THE

POSITION BEFORE
THE
EXPECTED POSITION.

LAST

SEEK,

THE

PRESENT

POSITION

AND THE

"MIS-SK ERR'’
AFTER A SEEK WAS DONE, READ HEADER IS DONE TO VERIFY THE SEEK.
ERROR
PRINTOUT
WILL INCLUDE THE LAST POSTION BEFORE THE SEEK,
PRESENT POSITION AND THE EXPECTED POSTION.

THE
THE

'DRV STAT ERR"’
THE RESULT OF A GET STATUS OPERATION IS INCORRECT.

BIT IS SET OR THE STATE IS WRONG

"HRD ERR'’

EITHER A

ERROR

THE NUMBER OF RETRIES WERE EXHAUSTED WITH
OUT
SUCCESS
THE
ERROR
z;}tg(lfl
CONSISTS
OF
ALL REGISTERS BEFORE COMMAND AND AT TIME OF

"INIT WR OF SEC BAD''
WHILE WRITING THE PACK INITIALLY, THE SECTOR INDICATED COULD NOT BE
WRITTEN AND VERIFIED.
THIS SECTOR WAS NOT IN THE BAD SECTOR FILE.
ONE OF THE FOLLOWING STEPS SHOULD BE ISSUED:
A) STOP THE EXERCISER
AND
CHANGE
CARTRIDGE,
B)
STOP
THE
EXERCISER
AND
VERIFY
THE
CARTRIDGE (USE THE BAD SECTOR FILE TOOL = CZRLMA) OR () IGNORE
ALL
ERRORS FROM THAT SECTOR.

3.2

PAGE 27

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

THERE ARE NO OTHER HALTS.

4.0

PERFORMANCE AND PROGRESS REPORTS

4.1

PERFORMANCE REPORTS

THE

SECTION

PERFORMANCE
REPORTS
ARE
GIVEN
AUTOMATICALLY
(PER SOF TWARE
PARAMETERS),
WHEN A
DRIVE
IS
DROPPED,
OR
AT OPERATOR REQUEST
(PRINT) THE FORMAT IS:

w** RLO1T PERFORMANCE REPORT wxw
TIME: HH:MM: SS
RLCS: XXXXXX
**%* RUNNING
OR DROPPED DH:DM
PACK SERIAL _#: DDDDDDDDDD
TOTAL SEEKS:
11111
WORDS READ:
WNNNNNNNN
WORDS WRITTEN:
KKKKKKKKK

ERRORS

DRV=-ER: N
HARD:
N

DCK:
DLT:

N
N

SEEK:
SOFT:

HCRC:
OPI:

N
N

DRIVE:

DRIVE TYPE
= RLOX

TRACK:

DATA: N

NXM

HNF:

:
WHERE

HH
MM

SS
XXXXXX
Y
DH

IS HOURS SINCE START/RESTART
IS MINUTES SINCE START/RESTART
IS
IS
IS
IS

SECONDS SINCE START/RESTART
ADDRESS OF CONTROLLER DRIVE NUMBER
HOUR AT WHICH DRIVE WAS DROPPED

DM
IS MINUTE AT WHICH DRIVE WAS DROPPED
DDDDDDDDDD = IS 10 DIGIT OCTAL SERIAL NUMBER OF PACK
1111
JJJJ

KKKK

IS TOTAL NUMBER OF SEEKS SINCE START TIME 0:00:00
IS TOTAL NUMBER OF WORDS READ SINCE START TIME 0:00:00
}g TOTAL NUMBER OF WORDS WRITTEN SINCE START Tl TIME 0:00:00
NUMBER OF THAT TYPE ERROR SINCE START TIME 0:00:00

SEQ 0027

4.2

PAGE 28

PROGRESS REPORTS
THE ONLY PROGRESS REPORT IS THE AUTOMATIC PERFORMANCE REPORT.

5.0

DEVICE INFORMATION TABLES
THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.
RLCS = CONTROL AND STATUS REGISTER (XXXXX0)

BIT
BIT
BIT
BIT
BIT

BIT
BIT
BIT
BIT

15
14
13
12

- COMPOSITE ERROR
= DRIVE ERROR
= NON EXISTANT MEMORY ERROR
= HEADER NOT FOUND (WITH BIT 10 SET)
= DATA LATE (WITH BIT 10 CLEAR)
11 - HEADER CRC (WITH BIT 10 SET)
= DATA (RC (WITH BIT 10 CLEAR)
10 - OPERATION INCOMPLETE
9/8 = DRIVE SELECT (0-3)
7 = CONTROLLER READY
6 = INTERRUPT ENABLE

BIT 5 - EXTENDED BUS ADDRESS (BIT 17)
BIT & - EXTENDED BUS ADDRESS (BIT 16)
BIT 3-1 - FUNCTION CODE
0 = NOP_(PDP=11) MAINT (LSI-11)
1 = WRITE CHECK

2 = GET DRIVE STATUS
3 - SEEK

4 = READ HEADER

5 = WRITE DATA
6 = READ DATA
7 = READ WITHOUT HEADER COMPARE
BIT

0 - DRIVE READY

RLBA - BUS ADDRESS REGISTER (XXXXX2)

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT 0 SHOULD BE 0
B

RLDA - DISK ADDRESS REGISTER

(XXXXX4)

FOR READ/WRITE FUNCTIONS

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

REGISTERS

FOR

SEQ 0028

FOR SEEK FUNCTION

15=7 =*DIFFERENCE .TO NEW CYLINDER
6=5
= MUST BE ZERO (0)
& - SURFACE (O=UPPER, 1=LOWER)
3 = MUST BE ZERO(0)
2 = SEEK DIRECTION( 1=IN /7 O=0UT )
1 = MUST BE ZERO (0)
0 = MUST BE ONE (1)
GE T STATUS FUNCTION
5=4 - IGNORED SHOULD BE ZERO (0)
DRIVE RESET
MUST BE ZERO (0)
MUST BE ONE (1)
MUST BE ONE (1)

RLMP
= MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION

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

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

FOR GET STATUS FUNCTION

HAS DRIVE STATUS

BIT
BIT
BIT
BIT
BIT
.BIT

15 = WRITE DATA ERROR
14 - CURRENT HEAD ERROR (CHE)
13 - WRITE LOCK STATUS (WL)
12 - SEEK TIME WT (SKT0)
11 - SPIN ERROR (SPE)

10= WRITE GATE ERROR (WGE)

9 - VOLUME CHECK (VC)
BIT 8 - DRIVE SELECT ERROR (DSE)
BIT <7 = DRIVE TYPE IS RLO2 IF SET
BIT g SURFACE (0O=UPPPER, 1=LOWER)
BIT
= COVER OPEN
BIT & - HEADS HOME
BIT _3 - BRUSHES HOME
BIT 2-0 -STATE BiTS
0 - LOAD STATE
1 = SPIN UP

2 = BRUSH CYCLE
|

PAGE 29

SEQ 0029

PAGE 30

3 = LOAD HEADS

&4 = SEEK = TRACK COUNTING

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

6.0 TEST SUMMARIES

PROGRAM DESCRIPTION

THE PROGRAM WILL TRY TO SIMULATE A
SELECTION OF
DRIVES
SEEK, READ AND WRITE.

PERFORMING

USER

ENVIRONMENT

WITH

RANDOM

RANDOM OPERATIONS OF GET STATUS

INITIALLY THE BAD SECTOR FILE IS RECOVERED
FROM EACH DRIVE
AND
STORED,
THEN
EACH
PACK
IS ENTIRELY WRITTEN RANDOMLY WITH ONE OF
EIGHT 'PREDETERMINED PATTERNS.
THE MAIN LOOP IS A CONTINUOUS LOOP OF

*2.
3.

THE FOLLOWING STEPS

RANDOMLY SELECT A DRIVE

CHECK CONTROLLER OF SELECTED DRIVE IS NOT BUSY;
THEN STEP 3;

ELSE STEP 1

4. RANDOMLY SELECT FUNCTION FOR DRIVE

IF
IF
IF
IF
GO

SEEK/WRITE/WRITE CHECK = THEN GO TO STEP 5
SEEK/READ = THEN GO TO STEP 11
SEEK/READ/READ = THEN GO TO STEP 15
SEEK/READ HDRS/READ W/NO HDR COMPARE/GET STATUS
TO STEP 21

THEN

GET A RANDOM CYLINDER ADDRESS (NOT THE BAD SECTOR FILE)

SEEK TO THE SELECTED CYLINDER AND WAIT TILL COMPLETED

GET A RANDOM WORD COUNT FOR THE WRITE FUNCTION
- MAKE
THAT IT WON'T OVERFLOW THE TRACK

GET A RANDOM DATA PATTERN TO WRITE ON THE TRACK POINTED TO

[ISSUE THE WRITE FUNCTION AND WAIT TILL COMPLETED

10.

ISSUE A WRITE CHECK FUNCTION ON THE SAME

DISK

ADDRESS

SURE

COMPARE THE DATA JUST WRITTEN BY THE UUTE FUNCTION THEN GO
TO STEP M

11.

GET A RANDOM CYLINDER # FOR ‘THE SEEK

12.

SEEK TO THE SELECTED CYLINDER AND WAIT TILL COMPLETED

13.
k

GET A RANDOM WORD COUNT FOR THE READ FUNCTION IT WILL NOT OVERFLOW THE SELECTED TRACK

MAKE

SURE

SEQ 0030

PAGE 31

14.

ISSUE THE READ FUNCTION AND WAIT
TILL
COMPLETED
...THE
INTERRUPT
SERVICE WILL INITIATE A DATA COMPARE ON THE DATA
READ (IF THE FUNCTION IS ENABLED) THEN GO TO STEP M

15.

GET A RANDOM CYLINDER FOR THE SEEK

16. " SEEK AND WAIT TILL COMPLETED
17.

GET A RANDOM WORD COUNT FOR THE READ COMMAND

18.

ISSUE A READ COMMAND AND WAIT TILL COMPLETED

15.

GET ANOTHER RANDOM' WORD COUNT FOR SAME TRACK SELECTED

20.

ISSUE A SECOND READ FUNCTION AND WAIT TILL
GOTO STEP #1

21.

ISSUE A SEEK TO A RANDOM CYLINDER AND WAIT TILL COMPLETED

22.

ISSUE A READ HEADER FUNCTION AND WAIT TILL COMPLETED

23.
24.

ISSUE A READ DATA WITH NO HEADER COMPARE (1

READ) AND WAIT TILL COMPLETED

COMPLETED.

SECTOR

THEN

ISSUE A GET STATUS FUNCTION THEN GO TO STEP #1

THE PROGRAM WILL STAY WITHIN THAT MAIN LOOP UNTIL
INTERRUPTED
OUT
BY A FUNCTION FINISHING AT WHICH TIME THE INTERRUPT SERVICE ROUTINE
WILL START EXECUTION.

?g:gEgLL REGISTERS OF CONTROLLER THAT INTERRUPTED AND

IF NO ERROR SET;

THEN STEP 3;

ELSE STEP 14

CHECK FUNCTION WHICH CAUSED INTERRUPT
IF WRITE CHECK;
THEN STEP 3A
IF GET STATUS;
THEN STEP 5
IF SEEK;
THEN STEP 4A,

IF- READ HEADER;
THEN STEP 7
IF
READ;
THEN STEP 9
IF WRITE;
THEN STEP 38

CLEAR WRITE CHECK NEEDED FLAG,

THEN STEP 4

SET WRITE CHECK NEEDED FLAG IF REQUESTED THEN STEP 4
IF RETRY > O THEN REPORT SOFT ERROR, ELSE STEP 4A

EXIT TO MAIN PROGRAM
CHECK STATUS FCR.

|
NO ERRORS
COVER CLOSED

SAVE

SEQ 0031

SEQ 0032

ELSE STEP 6

REPORT STATUS ERROR;

GO TO STEP 4A

SET VERIFICATION DONE FLAG COMPARE
PRESENT
HEADER WORD IF THEN STEP 4A;
ELSE STEP 8
REPORT MIS~-SEEK,

SEEK LINEAR/TRACKING

+
IF THEN STEP &;

PAGE 32

SET NEW POSITION;

IF DATA TO BE COMPARED;
g?ggl(")'lALIDITY OF

POSITION

WITH

GO TO STEP 4

THEN STEP 10;

FIRST TWO WORDS;

ELSE STEP 4
THEN STEP 12;

REPORT GARBLED DATA;

12.

CHECK WORDS READ IN IF OKAY THEN STEF 4A ELSE STEP 13

13.

REPORT DATA ERROR, GO TO STEP 4

IF DRIVE ERROR;

15.

IF NXM;

THEN STEP 18;

ELSE STEP 16

16.

IF OPI;

THEN STEP 18;

ELSE STEP 17

17.

IF DLT;

THEN STEP 18;

ELSE STEP 20

18.

IF RETRY"< LIMIT THEN STEP 4A, ELSE STEP 19

19.

REPORT WARD ERROR:

20.

IF HCRC;

21.

IF DCRC, THEN STEP 29;

ELSE STEP 22

22.

IF HNF, THEN STEP 30;

ELSE STEP 23

23.

YOU SHOULD NEVER GET HERE

g;egong READ/WRITE

25.

CHECK IF DA IS BAD SECTOR THEN STEP 4A;

26.

READ 40 HEADERS, IF ALL GOOD THEN STEP 27;

27.

REPORT SOFT HEADER CRC;

28.

FIGURE OUT BAD HEADER IF IN FILE THEN STEP 4A;

ELSE

GO TO STEP &

THEN STEP 33:

ELSE STEP 15

CLEAR FLAGS:

GO TO STEP 4A

THEN STEP 24; ELSE STEP 21

CHECK IF DA=1

IS IN FILE

DOING READ HEADER

THEN

ELSE STEP 18.

ELSE STEP 28

GO TO 4A

THEN STEP 4A;

ELSE STEP :

ELSE STEP 18

LA o8

THEN STEP 25

_30.

gSAD HEADER.

T3,

CHECK IF DA IS IN FILE IF

32.
«33.

34.

IF ON CORRECT TRACK THEN STEP 31;

REPORT IRACKING;

ACT "UPON:

GO TO STEP 4

ELSE

THEN STEP 4A, ELSE STEP 18

FIX POSITION,

GO TO STEP &

3
PAGE 33
STEP

SEQ 0033

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

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

BIT AND OFFSET DEFINITIONS

222

GLOBAL DATA AND CONSTANTS

176

11:31

GLOBAL MESSAGES

449

ERROR MESSAGES

635
652
701
725
733

DEFAULT HARDWARE P-TABLE PARAMETERS
DEFAULT SOF TWARE P-TABLE PARAMETERS
STATISTICAL CODE
LOAD PROTECTION TABLE
INITIALIZATION CODE

964

AUTO DROP SECTION

1097

GLOBAL SUBROUTINES

1630

ROUTINE TO LOAD FUNCTION

1161
1189
1461
1571
1576
1597
1614

REPORT ROUT INE
PROGRAM MAIN LOOP
ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK
ROUTINE TO LOAD READ HEADER AND ISSUE IT
ROWTINE TO LOAD WRITE DATA COMMAND
ROUTINE TO LOAD READ DATA COMMAND
SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING

1€55
1787

INTERRUPT SERVICE ROUTINES
CONTROLLER ERROR CHECK ROUTINE

2014
2046

COMMAND SERVICE ROUTINES
SEEK INTERRUPT SERVICE

2057

READ INTERRUPT SERVICE

2110
2135

GET STATUS INTERRUPT SERVICE
WRITE INTERRUPT SERVICE

2076

REAP HEADER INTERRUPT SERVICE

2160

EXIT FOR INTERRUPT SERVICE

21N

DRIVE ERROR INTERRUPT SERVICE

2292
2349
2360

BUFFER GENERATION ROUTINE FOR THE 'WRITE' FUNCTION
RETRY LIMIT ROUTINE
LIST OF FUNCTION ROUTINES

2529

ROUTINE TO DROP DRIVE

2373

BAD SECTOR FILE ROUTINE

2574
2660
2927

2949
3026
3158
3376

MACRO DEF INITIONS

330

2682
2730

ROUTINE TO CHECK DATA
ROUTINE TO WAIT FOR CONTROLLER READY
.

GET STATUS/DRIVE RESET ROUTINE
ROUTINE TO WRITE PACKS INITIALLY
HEADS HOME ROUT INE

RANDOM WC AND DA ROUTINE
ROUTINE TO DUMP BUFFER ON DCK

ROUTINE TO CHECK FOR BAD SECTOR
DRIVE INFORMATION BUFFERS

SEQ 0034

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

2
3

.ENABLE AMA
_.ENABLE ABS

002000

17
18
19
(4)
(4)
(4)
(4)
(4)
(6)
(6)
(5)
()
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)

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

(4)

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

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

17-DEC=79
.TITLE

6
7
2
9
10
11
12
13

MACY11 30A(1052)

002036

002040
002042
002044

002050
002051
002052
54

002056
002060
002062
002064
002066
002070
002072

000000
000000

.=2000

«MCALL

SVC

11:31

3
PAGE 1

SEQ 0035

CZRLKBO RLO1/02 PERF EXER

SvC

SVCINS=0
SVCTAG=0
POINTER BGNRPT ,BGNSW,BGNSF
T ,BGNAU,BGNDU

BGNMOD

103
132
122
114
113
000
000
000
102
060
000000
031716
032072
010642
010660
033520
000000
000000
000001

000000

010760
000000
000000
000000

003
003
000000
000000
000000
002230
010762
000000
000000
013346
013432

“MDHEDR
HEADER
LASCII
LASCII
LASCII
LASCII
LASCII

BYTE
.BYTE
.BYTE

LASCII

/E;RLK.B.0.0.1
72/
/R/
7L/
/K/

0
0
0

/B/

70/
LASCIT
WORD
0
LWORD
O
LSHARD
.WORD
.WORD . LSSOFT
LSHW
.WORD
LS$SW
.WORD
.WORD
LSLAST
WORD
O
WORD
O
WORD
1
.WORD
0
.WORD
LSDISPATCH
WORD
O
WORD
0
.WORD
0
.BYTE
CSREVISION
CSEDIT
.BYTE
.WORD
0
LWORD
0
LWORD
0
LSDVTYP
.WORD
LSRPT
.WORD
.WORD
0
.WORD
O
.WORD
LSAU
.WORD
LSDU
WORD
0

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)

(4)

17-DEC=79
.WORD
EMT
.WORD
.WORD
WORD
.WORD
.WORD
WORD
WORD
.WORD

11:31

3
PAGE 1-1

SEQ 0036

LSDESC
ESLOAD
0
LSINIT
LSCLEAN
LSAUTO
LS$PROT
0
O
0

ENDMOD

055103
042520

052111

046122
030114

8%?}%;

DESCRIPT <CZRLK PERFORMS RANDOM OPERATIONS OF GET STATUS, SEEK, READ, AND WRITE>
LASCIZ /CZRLK PERFORMS RANDOM OPERATIONS OF GET STATUS, SEEK, READ, AND WRITE/

047101
050117
047511
020106
052123
020054
020054
020054
051127
.EVEN

DEVTYP
.ASCIZ

051054

.EVEN

G
N

I |

N
R

YRS S
YRS R

Jr
X

NN PN

XV Swhe

.SBTTL

<RLO1,RLO2>
/RLO1,RLO2/

BIT AND OFFSET DEFINITIONS

;DEFINITIONS
002242

BGNMOD

002242

EQUALS

GLBEQAT

* BIT DIFINITIONS

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07=-DEC=79 09:46

M
1)
(1)
M
1
8;

(1)
(1)
(1)
1)
(1)
1)
1)
1
(1)
8;

000040
000020
000010
000004
000002

BIT00== 1
' BIT9== BITO9
BIT8== BITO8
BIT7== BITO7
BITé== BIT06
BITS== BITOS
BITé== BITO04
BIT3== BITO3

000001

B8ITO== BITO0

000004
000002

(1)
(1)

(1
(1)

1
(1)
1
m

1
1
(1)
1)
1)
1)
(1)
1
(1)
(1)
(1)
(1)
1
(;)7

EVENT FLAG DEF INITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

000340
000300

PRIO7== 340
PRIO6== 300

200
000140
000100
000040

PRI04== 200
PRI03== 140
PRI02== 100
PRIOT== 40

SEQ 0037

32,
31.
30.
29.
28.

* PRIORITY LEVEL DEFINITIONS

000240

3
PAGE 1-2

BIT2== BIT02
BIT1== BITO1
*

000040
000037
000036
000035
000034

BITOS== 40
BITO4== 20
81T03== 10
BIT02== 4
BIT01== 2

000001
001000
000400
000200
000100
000040
000020
000010

(1
1)
1)
1
8;

MACY11 30A(1052)
17-DEC=79 11:31
BIT AND OFFSET DEF INITIONS

: START COMMAND WAS ISSUED
* RESTART COMMAND WAS ISSUED
* CONTINUE COMMAND WAS ISSUED
* A NEW PASS HAS BEEN STARTED
* A POWER-FAIL/POWER-UP OCCURRED

PRI0OS== 240

PRI00== 0

*OPERATOR FLAG BITS

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

EvL==
LOT==
ADR==
1DU==
ISR==
UAM==
BOE==
PNT==
PR]==
IXE==
IBE==
IER==
LOE==
HOE==

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

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
000000
000002
000004
000006

17-DEC=79 11:31
BIT AND OFFSET DEFINITIONS

MACY11 30A(1052)

3
PAGE 1-3

sCONTROL AND STATUS OFFSET

€S=0
BA=?
DA=4

MP=6

s CONSTANT OFF

sTHE ONLY POS
ICPRPOSC.I

SKCNT=0
RXFR1=2
RXFR2=4
WXFR1=6
WXFR2=10
ERRCNT=12
SFTCNT=14
SKECNT=16
DERCNT=20
DCRCER=22
HCRCER=24
DLTCNT=26
OPICNT=30
HNF ERR=32
NXMCNT=34
RETRY=36
A=40
BMP=42
FUNC=44
BCSADR=46

LSTHDR=50

RTYPE=52

SKCNT1=54

PRFLGS=56

SEQ 0038

sBUSADDRESS OFFSET
;DISK ADDRESS OFFSET
:MULTI PURPOSE OFFSET

FOR INDIVIDUAL DRIVE BUFFERS
T IS CRITICAL IS THAT OF

(MUST) BE THE LAST ENTRY OF THE BUFFER

s SEEK OPERATION COUNT

READ OPERATION COUNT (BITS) LOW ORDER
URITE OPERATION COUNT

.ERRM COUNT = HARD
sERROR _COUNT = SOFT
s SEEK_ERROR COUNT
;DRIVE ERROR COUNT
:DATA CRC ERROR COUNT
sHEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
sOPERATION INCOMPLETE ERROR COUNT
sHEADER NOT FOUND ERROR COUNT

sNON EXISTENT MEMORY ERROR COUNT
PRESENT RETRY NUMBER

DISK ADDRESS CONTENTS

PRESENT MULTIPURPOSE CONTENTS
sLAST FUNCTION LOADED
:CSR_IMAGE OF LAST COMMAND

;LAST POSITION ON DISK
:ERROR ON WHICH RECOVERY IS BEING TRIED

:LOW SEEK COUNT
s INTERNAL FLAGS
:THIRD ORDER READ COUNT

SO rVORRO

ggg §§§§§§§§§§§

Q028 BEIRRREN2BIIN

: TRACKING ERRORS COUNT

RSEEK=114

SOFTCS=116
TDR=120
WRIPG=122
PRPOS=124
SKDON=BITO
DRDY=BITO
INTEN=BIT6

HIGH ORDER

(BITS) LOW ORDER
HIGH ORDER

sTHIRD ORDER WRITE COUNT
;DISK ADDRESS AT SOFT ERROR
:LAST DIFFERENCE WORD OF SEEK
:HOUR OF DRIVE DROPPED
sMINUTE OF DRIVE DROPPED

BSECPT=112

:DATA CMP ERRORS
sPERFORM WRITE CHECK
:SERIAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
sCSR ADDRESS
;DRIVE SELECT BITS(8,9,10)
sPRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE
sSEEK IN PROCESS OF RECOVERY
:CSR OF SOFT ERROR
;WRITE IN PROGRESS FLAG

sPRESENT POSITION ON DISK
;DRIVE READY
s INTERRUPT ENABLE

So@Irrr
=038 IRIRAR2ISELIR
-

NN N

e I

s S RN RS

94
95

MACY11 30A(1052)
17-DEC=79 11:31
BIT AND OFFSET DEFINITIONS

;COMPOSITE ERROR
sDRIVE ERROR
JWRITE DATA ERROR

WL=BIT13
SKTO=BIT12
SPE=BIT11
WGE=BIT10
vC=BIT9
DSE=BIT8
NXM=BIT13
DLT=BIT1?2

JWRITE LOCK
sSEEK TIMEOUT ERROR
:
sSPINDLE TIMEOUT/UNDER/OVER SPEED
JWRITE GATE ERROR
sVOLUME CHECK
sDRIVE SELECT ERROR
JNON=-EXISTENT MEMORY ERROR
;DATA LATE

HCE=BIT14

DCRC=BIT1
HCRC=BIT1
HNF=BIT12
OPI=BIT10

JHEAD CURRENT ERROR

JDATA CRC ERROR
sHEADER CRC ERROR
JHEADER NOT FOUND ERROR
JOPERATION INCOMPLETE ERROR

CRDY=BIT?
BA17=BITS
BA16=BIT4
WRCHK=BIT1
GSTAT=BIT?
SEEK=BIT1'!BIT2
RDHDR=BIT3
WRITE=BIT3'BIT1
READ=BIT3!BIT?2
DRST=BIT3'BIT1!BITO

sCONTROLLER READY
JEXTENDED BUS ADDRESS BIT 17
JEXTENDED BUS ADDRESS BIT 16

MK=BITO
SIGN=BIT?2
SKHS=BIT4
HEAD=BIT6

JMARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET STATUS)
JDIRECTION FOR SEEK(O=AWAY FROM SPINDLE)
JHEAD SELECT FOR SEEK
sHEAD
- SELECT FOR READ,WRITE,GET STATUS

-GSBIT=BIT1!BITO

sWRITE CHECK FUNCTION CODE
sGET DRIVE STATUS FUNCTION CODE
sSEEK FUNCTION CODE
JREAD HEADER FUNCTION CODE
JWRITE FUNCTION CODE
JREAD FUNCTION CODE

sDRIVE RESET COMMAND CODE FOR DRIVE COMMAND WORD

JGET STATUS COMMAND CODE FOR DRIVE COMMAND WORD

JOFFSET FOR HARDWARE P-~TABLE

PRIOR=4
TYPDR=6

DRBT=10
CNT=12

JOFFSET FOR SOFTWARE P-TABLE
RLT=0

ELT=2
SET=4
DAT=6
SKT=10
TYT=12
RDT=14
DDT=16
CHFLG=20

=22
=24

149

3
PAGE 1-4

ERR=BIT1S
DERR=BIT14
WDE=BIT15

CSR=0
VECT=2

WWWNW

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

SEQ 0039

CZRLKBO RLO1/02_PERF %ER

ANISTEIEIRER

002242

.y
(S (U (.
S
S
s WU QS RS (D Y
. [
e
e
S
S
R
I
T
D

6
000050
000052
000054
000056
000060
000062

MNC=32
MXS=34
MNS=36
DCKFG=40
DRFLG=642
MNB=44
SEL=46
OPFLG=50
DET=52
ROF =54
RAN=56
PAT=60
SRLT=62

000034
000036
000040
000042
000044

11:31

BIT AND OFFSET DEFINITIONS

000032

09:46

150
51
52
53
54
55
56
57
58
59
60
61

07-DEC=79

17-DEC=79

CZRLKB.MAC

MACY11 30A(1052)

ENDMOD

&
PAGE 1-5

SEQ 0040

‘

MACY11 30A(1052)
17-DEC=79 11:31
BIT AND OFFSET DEFINITIONS

&
PAGE 1-6

.SBTTL

MACRO DEFINITIONS

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MILLISECOND TIME COUNTS
.MACRO

WAIT:
. ENDM

WAITMS

ARG,?WAIT

MOV

#ARG,DLYCNT

sINITIALIZE DELAY COUNTER

DELAY
DEC

#250.
DLYCNT

: IMPLEMENT 25-MS TIME DELAY
sDECREMENT DELAY COUNT

ASL
ASL

BNE

DLYCNT
DLYCNT

:MULTIPLY ARGUMENT BY 2
:MULTIPLY AR
NT BY 2 AGAIN

;BRANCH IF TIME DELAY NOT EXPIRED

.'(?‘EIEQCY) Efif\f%gmfiz PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS

DELAY

#ARG

. ENDM

s IMPLEMENT 100-US TIME DELAY, ARGUMENT SPECIFIES
;/THE NUMBER OF 100-US TIME COUNTS

JACTIVATE THE CLOCK TO INITIATE THE GENERATION OF CLOCK INTERRUPTS
.MACRO

CLKON
JSR
JSR

PC,CLKINI
PC,CLKST

sACTIVATE CLOCK WITH 1-SEC INCREMENTS
sINITIALIZE CLOCK
:START CLOCK

;

WAIT

i Y

SRR
28 BEIRARER 2B I

P —3

CZRLKBO RLO1/02_PERF %ER
CZRLKB.MAC
07-DEC-

.ENDM

200
201
202
203
204
205
206
207
208
209

;DEACTIVATE THE CLOCK TO HALT THE GENERATION OF CLOCK INTERRUPTS
.MACRO CLKOFF
CLR
CLKSON
;INDICATE °‘CLOCK OFF''
cMP
#1,CLKTYP
sP=CLOCK?
BNE
118
sBRANCH TO CHECK FOR L-CLOCK
CLR
a#172540
;CLEAR P=CLOCK
118:
cMP
#2,CLKTYP
sL=CLOCK?
BNE
12$
:BRANCH FOR NO CLOCK
CLR
177546
sCLEAR L-CLOCK
128:

212
213
214
215
216
217
218

sREQUEST ELAPSED TIME IN SECONDS OCCURRING BETWEEN SUPERVISOR INITIATION
;AND THE GENERATION OF THE REQUEST
-.MACRO REQTIM ARG
MOV
CLKACC,ARG
.ENDM

SEQ 0041

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC~79 09:46

MACY11 30A(1052)

17<DEC=79

MACRO DEFINITIONS

11:31

4
PAGE 1-7

SEQ 0042

.SBTTL

GLOBAL DATA AND CONSTANTS

BGNMOD

GLBDAT

RECNT:
RWCNT:

.WORD
.WORD

O
0

sREAD ERROR COUNT
sR/W ERROR COUNT

TSTDRV:

.WORD

:COPY OF SELECTED DRIVE FOR TESTING

WHY :

DRUT:
DRPRS:

WORD
.BYTE
.BYTE

T.DRIVE: .WORD
SYSMSK: .WORD
HINUM:
_WORD

LONUM:
_WORD
CYLMSK: .WORD
SECMSK: .WORD
CMSK:
.WORD

0
0
0
O

176543
123456
100177
100077
000177

SMSK:

.WORD

WRPOS:

.WORD

SUR:

WORD

WRINIT:

CYL:

.WORD

LWORD

SEC:
WORD
REGEN:
.WORD
KILLDC: .WORD
CLKFRQ: .WORD
CLKTYP: .WORD
CLKADR: .WORD

;REASON FOR DROPPING DRIVE
:DRIVES UNDER TEST
:DRIVES PRESENT

:TYPE OF DRIVE FROM P-TABLE
:MASK FOR 0-7 DRIVES

:PRIME FOR RANDOM
:NUMBER GENERATOR
sMASK FOR CYLINDER ONLY
sMASK OUT SECTOR BITS

;WRITE INIT FLAG

sCYLINDER #

0
0
0
O
0
0

;SECTOR #
sREGEN FLAG FOR BUFFERS
;INHIBIT DATA COMP FLAG
;CLOCK FREQUENCY FLAG, 1=60 HZ, 2=50 HZ
sCLOCK TYPE FLAG, 1=P-CLOCK, 2=L-CLOCK
;POINTER TO ADDRESS OF SUPERVISOR CLOCK TABLE

JWRITE UNIT FLAG

s SURFACE #

:THE FOLLOWING LOCATIONS ARE CLEARED AS A GROUP (DOWN TO *STFLG')
;THEREFORE DON'T INSERT ANY CONSTANTS
CNTLR1: .WORD

CNTLR2:
LSTDR1:
LSTDR2:
BCSR:
BVEC:
BPRIOR:
BDRSEL:
HDRFND:
CHKSEC:
DECNT:
TEMPQO:
TEMP1:

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

.WORD
.WwORD
.WORD
.WORD
.WORD

176400

0
O
O
O
O
O
0

0
O
O
O
O

sCSR OF CONTROLLER 1 (LUN 0-3)

;CSR OF CONTROLLER 2 (LUN 4-7)
;BUFFER POINTER OF DRIVE
;BUFFER POINTER OF DRIVE
;CSR FROM P°TABLE
vecroa PRICRITY "
oy
DRIVE
-

FLAG TO INDICATE HDR IN BAD LIST
:SECTOR OF ERROR - USED BY BAD SECTOR LOCATION
DATA ERROR COUNT
:TEH’ LOCATION
;TEMP LOCATION

TEMP2:
TEMP3:
TEMP4:
TEMPS:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

.'T'EPP LOCATION
2 **
=
gTM
it
g N
iy

TEMP7:
TEMP8:
TEMP9:

.WORD
.WORD
.WORD

O
O
O

g ¥
- R
§

TEMP6:

.WORD

" B

-~
.

CZRLKBO RLO1/702 PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

17-DEC=79 11: 31
MACY11 30A(1052)
GLOBAL DATA AND CONSTANTS

000160

VECT1:

.WORD

PRIOR1:

.WORD

VECT2:

TICK:

MWORD

MINUTE:

.WORD

E.CS:

WORD

E.DA:

WORD

E.MP1:
E.MP2:
C.HDR:

.WORD
.WORD
.WORD

E.BA:

E.MP:

VOOV

N W NN

d e

WN=O

BRERIROLERYS

BUF1:
BUF2:

GRS

MAXWC:

UUT:

PWRFLG:
TRPFLG:

STFLG:

.WORD

MWORD

WORD

WORD
WORD
.WORD

SEQ 0043

KEEPS TRACK OF TIME BETWEEN STATISTICAL REPORTS
3/ (MINUTES RUNNING TIME)

:STORAGE FOR TICK COUNT
s SECONDS OF SYSTEM CLOCK
sMINUTES OF SYSTEM CLODK
sHOURS OF SYSTEM CLOCK
:IMAGES OF REGISTERS
;ON INTERRUPT

O
O
0

s CURRENT HEADER = FOR ERROR REPORT
;BUFFER FOR FIRST CONTROLLER
;BUFFER FOR SECOND CONTROLLER
sMAX WORD COUNT DETERMINED BY CORE
sNUMBER OF UNITS ON SYSTEM
;POWER FAIL INDICATOR
s INDICATES OCCURRENCE OF A TIME-OUT TRAP
;START FLAG

0
O

MWORD

.WORD

.WORD
.WORD

PAGE 1-8

;VECTOR OF FIRST CONTROLLER
:VECTOR '* 2ND

O
O
O
0

HOUR:

—

160
O

PRIOR2: .WORD
GDDAT:
.WORD
RNTEMP: .WORD
INTERVAL: .WORD
SECOND:

.WORD

0
O

sEND OF MASS CLEAR
CNTFLG:

FASCII:
FASPNT:
DWCNT:

DWCNT1:
ERRVEC:
ST1:

ST2:

OPCALL:
INCALL:
DLYCNT:
SYSCLK:
CLKSON:
CLKCNT:
CLKBFR:

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD
WORD

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

ASE#IE:‘ESSAGE OF FUNCTION

sERROR COUNT
sERROR COUNT

O
4
34

CLKACC:

CLKFLD:

.WORD

“

:ERROR VECTOR
sSTATES ALLOWED
:STATES ALLOWED

O
O
O
0
O
O
0

.WORD
.WORD
.WORD

ENDMOD

;CONTINUE FLAG

0
0
O

:DELAY COUNTER FOR WAITMS TIMING MACRO
:FLAG INDICATING PRESENCE OF A SYSTEM CLOCK
.

:*'CLOCK ON"*

INDICATOR

:CLOCK COUNTER TO STORE TICK VALUE
:CLOCK BUFFER TO STORE CLOCK TICK COUNT
:CLOCK ACCUMULATOR TO STORE ELAPSED TIME IN
:/SECONDS OF SUPERVISOR TIME
:CLOCK FIELD USED TO CHECK IF LSI-11 CLOCK

:/1S “TICKING'

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)

17-DEC=79

11:31

GLOBAL DATA AND CONSTANTS

002516

.SBTTL

GLOBAL MESSAGES

BGNMOD

GLBTXT

PAGE 1-9

sGLOBAL TEXT

020072

« 052117

053440
052103
047507

o
n
o

vW) b o

d e e

e \J) e

d d e

) e e e

RS SRSORNR R RS AR

~N ) d e =k \ S -

R RN R

R
& Ro
v

051104

046111

040524
020114

046102
026520

TIME:
MRLCS:
CRLCS:
MFUNC:
CRLBA:
CRLDA:
CRLMP:

L.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
LASCIZ

‘' (RLCS): '
"> FUNCTION: ‘'
"' (RLBA): "'
'' (RLDA): '
"' (RLMP): "'

DIFMSG:
CART:
NOCRDY:
DNRDY:
NORDY:

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/DIF WD: /
/PACK SERIAL #: /
/NO CRDY/
/DRIVE NOT READY/
X%DR NOT RDY W/0 DR ERRY

SMSG:
EXHAUS:
UDERR:
MSKER:
MSFER:
DRVER:
MDERS:
MDSER:
MVCER:
WGEST:
MRDER:
MDCER:
MHDER:
DMPDCK:
TRACK:
ERLMTM:
SERLMT:
SFEMSG:
DCDMSG:
DERMSG:
OVER:
REQ:
SEXHAU:
UNLOAD:
NOLOAD:
SOPLMT:
NOREV:
MBDMSC:
HWSEC:
SWSEC:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ

SEC BAD/
/ SECTOR: /
/NO GOOD HDR/
/UNDIAGNOSABLE ERR/
/SEEK ERR/
:
/SOFT ERR ENC'D/
/DR ERR/
/DR ERR WILL NOT RESET/
/DR STAT ERR/
/VOL CHK WILL NOT CLR/
/WR GATE ERR WILL NOT RESET/
/DR ERR = RECOVERED/
/DATA CMP ERR/
/HARD ERROR/
/DATA DUMP - DCK/
/TRACKING ERR/
/HRD ERR LMT EXC'D/
/SK ERR LMT EXC'D/
/SFT ERR LMT EXC'D/
/DATA ERR LMT EXC'D/
/DR ERR LMT EXC'D/
/BUFFER CHOSEN TOO BIG - WAS /
/REQ BY OPR/
/EXH'D RETRY ON SEEK/
/HDS NOT UNLD ON ERR/
/DR WLD NOT LD/
/OPER LMTS-EXC'D/
/GARBLED DATA - CAN'T CHECK IT/
/MORE THAN 16 BAD SECTORS/
'
/NO FACTORY FILE/
/NO FIELD FILf/

ILLEG:

.ASCIZ

/ILL P-TABLE/

PRGER:
NWRTS:

MPT:

LASCIZ
L.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ

'TIME: '
‘' RLCS: "'

/BUG/
/INIT WR OF

/P-TABLE:

SEQ 0044

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46

053040
047516
042040
040
054105
051040
04
052101
042522
040
123
051440
040
042440
040
051104
044040
- 040
040
042040
040
047040
040

047524
044522
042526
020124
047520
050040

044504

]

419

004711

123

MACY11 30A(1052)
17-DEC-79
GLOBAL MESSAGES

051525
051531
047522
052524
046125
051124
2047
23503
020105
000
041522
000113

05153

‘000
000111
000
000126
047111
047111
047040
047105
046505
051117
047516
047503
042526

MVEC:
NODRIV:
DRNM:
LPS:
EPS:
RPS:

ASCIZ

:
G &4
11:31
PAGE 1-10

SEQ 0045

/ VECTOR: /

.ASCIZ /NO DRIVES/
_ASCIZ / DRIVE: /
ASCIZ / LST POS: /
ASCIZ /EXP POS: /
.ASCIZ / REC POS: /
NOPWR:
.ASCIZ /DR DID REC'R FROM PWR UP/
BUSAD:
.ASCIZ /AT BUS ADDR: /
MRT:
.ASCIZ /RETRYS: /
ERT:
.ASCIZ / ERROR TYPE: /
MST:
ASCIZ /STATUS WAS: /
MST1:
.ASCIZ / SHOULD BE: /
RT1:
LASCIZ / RETRIES ATTEMPTED/
EXP:
LASCIZ 7/ EXP'D: /
RCD:
.ASCIZ / REC'D: /
DROP:
.ASCIZ /DRIVE DROPPED/
MTHNF:
.ASCIZ / HWNF/
MTHCRC: .ASCIZ / HCRC/
MTDCRC: .ASCIZ 7/ DCK/
MTDLT:
.ASCIZ
/ DLT/
MTOPI:
.ASCIZ / OPl/
MTNXM:
_ASCIZ /7 N/
MTDRV:
.ASCIZ / DRV/
MSTART: .ASCIZ /TESTING STARTED/
MSWRPK: .ASCIZ /WRITING PACK /
NORDDC: .ASCIZ /PACK NOT FULLY INIT'D...DATA COMPARE INMIBITTED/
ERRHDR: .ASCIZ
/CURRENT POSITION (HMDR) = /
NOCLK:
.ASCIZ /SYSTEM CLOCK IS NOT AVAILABLE/
NOREPT: .ASCIZ /PERFORMANCE REPORTS WILL NOT BE PRINTED/
NOTRDY: .ASCIZ /DID NOT RESPOND WITH 'READY''/
NOCTLR: .ASCIZ /NO CONTROLLER/
INSMEM: .ASCIZ
/SYSTEM FATAL ERROR - INSUFFICIENT MEMORY BUFFER SPACE/
sTHIS LIST OF ASCII TEXT IS USED AS A TABLE FOR PRINTING
sFUNCTIONS IN ERROR MESSAGES
TABLE IS "MTCR - MTRD'',
;THE ORDER IS IMPORTANT AS WELL AS THE LENGTH OF EACH
;ASCIZ STRING. EACH STRING IS SEVEN(10) BYTES PLUS ZERO

;FILL BYTE (TOTAL 8(EIGHT) BYTES) LONG.

USED IN LINE1

SOUBRDUTEINE o000 050000000600500000088000080098
0888088089

429 004777

040 051127

044103
052123
045505
042110
052111
042101
047055

MTCR:
MIGS:
MISK:
MTRH:
MTWR:
MTRD:
MTRNH

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
ASCIZ

/
/
/
/
/
/
/

.NLIST

CND,MD,ME

WRCHK /
GTSTAT/
SEEK /
RDHDR /
WRITE /
READ /
RD=NHD/

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
b

445

446

MACY11 30A(1052)

17-DEC-79

GLOBAL MESSAGES

005070

11:31

PAGE 1-11

.EVEN

005070

ENDMOD
.SBTTL

"BGNMOD

005070

ERROR MESSAGES
GLBERR
I

005070
005070
005074
005074
005074

SEQ 0046

004737

BGNMSG

006330

L10000:

104423

ERR1

;GENERAL ERROR REPORT

JSR
ENDMSG

PC.LINE3

TRAP

C$MSG

;MIS-SEEK ERROR REPORT
005076
005076
005102
005102
005104
005110
005114

BGNMSG

004737
010146
012746

3
.
PC,LINE3
gqflf?ég?IFMSG.DIFUD(Ré),#LPS.LSTHDR(Ré),#EPS,PRPOS(R&),#RPS.R1
#RPS ,=(SP)
PRPOS
(R4) ,~(SP)
#EPS ,=(SP)
LSTHDR(R4) ,-(SP)
#LPS,=(SP)
DIFWD(R4) ,~(SP)
#DIFMSG,=(SP)
#FMT4
- (SP)
#11,-(SP)

SP,RO
CSPNTB

#24 ,SP

L10001:

BGNMSG

CSMSG

:SOFT "ERROR RECOVERABLE ERROR REPQRT
PC,LINET
#FMT2A ,#CRLCS,SOF TCS(R4) ,#CRLBA,aBBA(R4) ,#CRLDA,LSTDA(R4)

LSTDA(R4) ,~(SP)

#CRLDA,=(SP)

aBBA(R4) ,-(SP)

#CRLBA,-(SP)

SOFTCS(R4) ,-(SP)

#CRLCS,~=(SP)

#FMT2A,-(SP)
#7,-(SP)

SP,RO
CSPNTB

002346

#20,SP

LSTDA(R4) ,TEMPO ;GET THE ADDRESS TO PRINT
:CONVERT FOR PRINTING

RS, TELCYL

CZRLKBO RLO1702_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
472
an
(10)
{9)

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

016446
0 12746
01 6446
0 2746
01 2746
01 2746
010600

17-DEC=79
MACY11 30A(1052)
ERROR MESSAGES
PRINTB

000052
004161
36

11:31

PAGE 1-12

SEQ 0047

#FMTS5 #MRT ,RETRY(R4)
,#ERT ,RTYPE (R4)

RTYPE
(R4) ,=(SP)
#ERT,=(SP)
RETRY
(R&4) ,=(SP)
#MRT = (SP)

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

SP.RO

104414

062706

L10002:

104423

:GET STATUS ERROR REPORT

'BGNMSG

004737

PC,LINE3

HFMT6 ,AMST E.MP #MST1,ST1,ST2

013746
013746
012746
013746

$T12.-(SP)
ST1,-(SP)
#MST1,-(SP)
E.MP,~(SP)
#MST ,=(SP)
#FMT6,=(SP)
#6,-(SP)

SP,RO
CSPNTB

#16,SP

L10003:

C$MSG

:DATA ERROR SUMMARY

004737
016400
010046

013746
012746
012746
104414

062706

006220
000042

BGNMSG

PC,LINE2
BMP (R4) ,RO
#FMT9A, DECNT RO
RO,=(SP)
DECNT,~(SP)
#EMTOA
- (SP)
#3,=(SP)
SP,RO
CSPNTB

002344
007263
000003
000010

#10,SP

L10004:

104423

CSMSG

sNON-RECOVERABLE ERROR REPORT
BGNMSG

012746

004231

ERR7

PRINTB
MOV

#FMT8,RETRY(R4)
,ART1
#RT1,=(SP)

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
(8)
(7)

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

005430
005434

005440
005444
005446
005450
005454

016446
012746

MACY11

30A(1052)
17-DEC=79
SSAGES
ME
ERROR

000036
007215

11:31

PAGE 1-13

000003

RETRY
(R4) ,-(SP)
#FMT8,-(SP)
#3,-(SP)

000010
006330

#10,SP
PC,LINE3

SEQ 0048

SP,RO
CSPNTB

L10005:

C$MSG

;BAD DATA COMPARE ERROR REPORT
BGNMSG

004737
016437
004537

002346

011246
012746
013746
012746
016446
012746
017446
012746
012746
012746
010600

PC,LINE2
BDA(R4)
, TEMPO
RS, TELCYL
;REPORT THE CYL # & SECTOR/HEAD
?;9}10?§g§RLBA.aBBA(R4),ICRLDA.BDA(RA).OEXP,GDDAT.IRCD,(RZ)
#RCD,-(SP)

GDDAT ,~-(SP)

#EXP,-(SP)

BDA(RS) ,-(SP)
#CRLDA,-(SP)

aBBA(R4) ,-(SP)

#CRLBA,~(SP)
#FMT10A,=(SP)
#11,-(SP)

SP,RO
CSPNTB
#24 ,SP
#FMT10B,R2

104414

062706
010246
012746
012746
010600
104414
062706

L10006:

104423

;:DRIVE ERROR
BGNMSG

) 005606
)

004737

006330

016446
012746

000050
004041

010146
012746
012746
012746
010600
104414
062706

004177
007502
000005
000014

PC.LINE3
#FMT13,#MST,R1,#LPS,LSTHDR(R4)
LSTHDR(R4) ,~(SP)

#LPS,~(SP)
R1,-(SP)

#MST,=(SP)

#FMT13,~(SP)
#5,-(SP)
SP.RO
C$SPNTB

#14,5P

8
w
b’

005644

L10007:

104423

(8)
(7)
(6)

005670
005674
005700

012746
012746
012746

003756
007452
000007

(4)

005710

062706

000020

(3)
(3)

005714
.05714

005656
005662

88388
wi

005646

BGNMSG
002332
004004
002330
002525

N
N N

11:31

&
PAGE 1-14

SEQ 0049

ENDMSG
TRAP

CEMSG

;INVALID ENTRY IN P-TABLE REPORT

013746
012746
013746
012746

521
522
523
524
525

MACY11 30A(1052)
17-DEC-79
ERROR MESSAGES

S
v
by

~As s AN
A~ ~N
b il il i
) b ol D )
W=
O=NWOO
YO VNI~ ~ W

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MOV
MoV
MOV
MOV
_ MoV

* TRAP

L10010:

104423

005716
005716

BGNMSG
004737

006330

005722

104423

530
531
532

005724 -004737
005730 016403
005734 016337

006330
000104
000006

(7)
(6)

005742
005746

(4)
(&)

005754
005756

012746
012746
010600
104414
062706

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

013746
012746
012746
012746
010600
104414
062706

002434
004476
007472
000003

(4)
(4)

005762
005766
005772
005776
006002
006004
006006

(3)

006012

104423

537

006014

016437

#FMT11,#MPT ,R1,#MRLCS ,BCSR,#MVEC,BVEC
BVEC,-(SP)
#MVEC,=(SP)
BCSR,=(SP)
#MRLCS,~(SP)

R1,=(SP)
#MPT ,=(SP)
#FMT11,-(SP)
#7,-(SP)
SP,RO
CSPNTB

ADD

#20,SP

TRAP

C$MSG

ENDMSG

ERR12
JSR

L10011:

(3)

ERR10

PRINTB
MOV
MOV
MOV
MOV

PC,LINE3

ENDMSG

TRAP

C¥MSG

ERR13
JSR
MOV
MOV

PC,LINE3
DCS(R4) ,R3
MP(R3) ,E.MP

007562
000001

MOV
MOV
MOV

#FMT14C,~(SP)
#1,-(SP)
SP.RO

000004

ADD
PRINTB
MOV
MOV

#4 ,SP
#FMT12,#ERRHDR,C.HDR ;PRINT THE HEADER MESSAGE
C.HDR,~-(SP)
#ERRHDR ,~(SP)

TRAP
ADD
ENDMSG

C$PNTB
#10,SP

BGNMSG
002426

PRINTB

TRAP

MOV
MOV
MOV

000010

<1.10012:

000044

002460

LINET:

#FMT14C

;GET HEADER
s CRLF

CSPNTB

#FMT12,-(SP)
#3,-(SP)
SP,RO

TRAP

CIMSG

MOV

FUNC (R4) ,FASPNT

sGET FUNCTION

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC=79 09:46
012737

17-DEC-79
MACY11 30A(1052)
ERROR MESSAGES

002456
002460
18:

002456
2%:

11:3

SEQ 0050

PAGE 1-15

MOV
BIC
ASR
DEC
BEQ
ADD
BR

#MTCR,FASCII
#INTEN,FASPNT
FASPNT
FASPNT
2%

PRINTB

A‘F(Fsl;}O.lTIHE.HOLR.MINUTE,SECWD.MLCS.DCS(RO #DRNM, <B,DRSEL

#8. .FASCII
1%

sFIRST FUNCTION ASCIZ
;CLEAR INTERRUPT ENABLE
ALIGN = NOW = 1 TO 7
sDOWN COUNT FUNCTION
sFOUND? .

sNO NEXT ONE
.LOOP

+1(R4)>

DRSEL+1(R4)
, (SP)

#DRNM,
= (SP)

DCS(R&4) ,~(SP)

AMRLCS,
= (SP)
.~ (SP)
SECOND
MINUTE
.= (SP)
HOUR,
= (SP)
#TIME ,-(SP)

#FMT10,-(SP)

#11,-(SP)

SP,RO
CSPNTB
#24,SP

#FMTDT, TDR(R4)

TDR(R4
) ,=(SP)
#FMTDT,=(SP)
#2,-(SP)

SP.RO
CSPNTB
#6.SP

#FMT1A, #MFUNC .FASCI I
FASCII.=(SP)
AMFUNC
. = (SP)
#FMT1A
= (SP)

013746
012746
012746
012746
010600

#3,-(SP)
SP.RO

LINEZ:

#!;l;;}o,l”'f ~HOUR ,MINUTE , SECOND ,#MRLCS ,DCS(R4) ,#DRNM,<B ,DRSEL

)
, (SP)
DRSEL+1(R4

#DRNM,, - (SP)

DCS(R&) ,-(SP)

#MRLCS,=(SP)

.~ (SP)
SECOND

MINUTE
.= (SP)
HOUR,
= (SP)
#TIME ,~(SP)

#FMT10,
- (SP)
#11,-(5P)

ADD
PRINTB

SP,RO
CSPNTB

#24,SP

#FMTDT, TDR(R4)

+1(R4)>

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC=79 09:46

(8)

006302

016446

000120

(%)
(4)

006320
006322

006326

104414
062706

000207

000006

§55
556

006330
006334

004737

(4)

006406

557

006414

(7)
(6)
(3)

ggz

016446
012746
016446
012746
017446
012746
016446
012746
012746
012746
010600

MOV

MOV
MOV
MOV

006014

LINE3:

000042
002611
000040
002577
000110
002565
000046
002535
006714
000011

104414

(14) 006420

(13) 006424
(12) 006430
(11) 006434
(10) 006440
(9) 006444
(8) 006450
(7) 006454
(6) 006460
(3) 006464

012746

013746
012746
013746
012746
013746
012746
012746
012746
010600

002611

002424
002577
002422
002565
002420
002535
006757
000011

PRINTB

MOV

(2)

006466

559
%

006502
006506

004537
000207

006510

562
563
564
565
566
567
568

006510
006516
006526
006530
006532
006536
006540

013737
042737
000337
000241
006137
103002
005237

002346
000177
002300

570 006552

042737

177700

002304

572 006564 032737 000100
573 006572 001405
574 006574 005237 002302

002424

002346
002300
002300

002300
002300

006560

575
576

006600
006606

005037

002302

042737

177776

002302

BMP(R4)
, - (SP)
#CRLMP, = (SP)
BDA(R4) ,~(SP)
#CRLDA,
= (SP)
aBBA
(R4) ,~(SP)
#CRLBA,
= (SP)
BCSADR(R4) ,=(SP)
#CRLCS,=(SP)
#FMT2,=(SP)
#11,=(SP)
SP,RO
CSPNTB

#24,SP

#FMT3,#CRLCS.E.CS,#CRLBA,E.BA,#CRLDA,E.DA,#CRLMP
E .MP

E.MP,=(SP)

#CRLMP,-(SP)

ADD
MOV

#24 ,SP
E.DA, TEMPO

TELCYL: MOV
BIC
SWAB
cLC
ROL
BCC
INC

MOV

CSPNTB

RS, TELCYL
PC

TEMPO,CYL
#77,CYL
(YL
cYL
18
cYL

*PRINT IT
CEXIT

;GET THE ADDRESS
JSAVE ONLY CYLINDER BITS

:GET SECTOR #

SUR

SINIT TO HEAD 0

#177700, SEC

BIT
BEQ
INC

#100,E.DA
2
SUR

BIC
PRINTB

:GET ADDRESS TO PRINT

TEMPO, SEC

BIC

CLR

2%:

E.DA,~(SP)
#CRLDA,
- (SP)
E.BA,~(SP)
#CRLBA,
- (SP)
E.CS,=(SP)
#CRLCS,=(SP)
#FMT3,=(SP)
#11,=(SP)
SP.RO

JSR
RTS

18:

#FMTDT ,=(SP)
#2,-(SP)
SP.RO

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

TRAP

569 006544 013737 002346 002304
571

MOV

104414

(4) 006470 062706 000024
SS8 006474 013737 002424

TDR(R4) ,=(SP)

SEQ 0051

PC,LINE1
W#FMT2 ,#CRLCS,BCSADR(R4) ,#CRLBA,aBBA(R4) ,#CRLDA,BDA(R4) ,#CRLMP ,BMP(R4)

TRAP

4
PAGE 1-16

JSR
PRINTB

ADD

013746 002426

CSPNTB
#6,SP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

11:31

TRAP
ADD

RTS

006410 062706 000024

(15) 006414

17-DEC=79

ERROR MESSAGES

006306 012746 010164
006312 012746 000002
006316 010600

(15) 006334
(14) 006340
(13) 006344
(12) 006350
(11) 006354
(10) 006360
(9) 006364
(8) 006370
(7) 006374
(6) 006400
(3) 006404
(4)

MACY11 30A(1052)

“SAVE ONLY THE SECTOR BITS
*HEAD 1?
*NO
LYUP

#177776,SUR
#FMT3A,#DRVER,CYL,SUR,SEC

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46

MACYT 30A(1052)
17<DEC=79
ERROR MESSAGES

013746

11:31

&
PAGE 1-17

SEQ 0052

SEC,=(SP)
SUR,=(SP)
CYL,=(SP)
#DRVER, = (SP)
#FMT3A,-(SP)
#5,-(SP)

s FORMAT

022462

051117
051122
047101
000124

STATEMENTS
/XTXI2%A: XZ2XA x22/

FMT1:
FMT17:
FMT1A:
FMT2:
FMT2A:
FMT3:
FMT3A: FMT4:
FMTS:
FMT6:
FMT?7:
FMT8:
FMT9:
FMT9A:
FMT10:
FMT10A:
FMT108:
FMT11:
FMT12:
FMT13:
FMT13D:
FMT14:
FMT14A:
FMT14C:
FMT148:
FMT15:
FRMT16:
FMT18:

/XTX06XT%01/
/XTXTAN/
/XABEFORE ERRYTX06/
/XTX06XTX06XTX06IN/
/XAAT ERR
XTX06XTX06XTX06XT
%06/
/INXTXA ADDR = CYL: XZ3XA. SUR: XO1%A SECT: XZ2%A.2IN/
/INXTX06XTZ06INTTX06XTX06
N/
/XTX06XTXTIN/
/ZT!OblT!OblA OR X062N/
/XTXA
/10611’!"
/XTXZ2%A:
X22XA: XZ2XTX06XTX01IN/
/XD6XA. WORDS BAD OUT OF ZD6XA. WORDS READAN/
/XTXZ2%A: XZ2%A: 322X TX06XTX01/
/X&%ZT“MTX%ZT!%“ AT BUS ADDRESS /
/%
/XT302%T206%T7203/
/XTX06XN/
/XTX06XTX06IN/
/!T!Zw NOW IS XZ42N/
/INXT

/%06%A /
/IN/
2ZAWORD XD3XA. S/B X06XA WAS Z06IN?
/XAERROR(S) SET:XTANZARECOVERY BEING ATTEMPTED/
IMZNWT TESTING CS=X06XA DR=X01ZN/

FMTXS:
FMTS1:

FMTS1A:
FMTS1B:
FMTSZ2:

FMTDT:

FMTS2A:
FMTS2B:

FMTS3:
FMTS3A:

035124

FMTS4:
FMTSS:

‘

/INXAXFER SIZE = XZ6XA. WORDSIN/
ZININZST10XA*#* RLOT-RLO2 PERFORMANCE REPORT #**XNXIN/
/XAx%% RUNNINGEIN/
/XAxxx DROPPED XZ2XA:XZ2IN/
" /XTX05X052IN/
/%A DRIVE TYPE = RLOXZO1ZN/
/XATOTAL SEEKS:
XD6XZ3AINXAWORDS READ:
AD6XZ4XZ4LAN/
/XAWORDS WRITTEN: XD6XZ4X24XN/
/INXAERRORSINIADRV-ER:XD6XA
SEEK: XD6XA
TRACK: XD6XA
DATA:
/XAHARD:
2ZD6XA
SOFT: XD6IN/
XD6XA
4 /XADCK:
HCRC: XZD6XA
NXM:
XD6XA
HNF:
XD6IN/

.ASC1Z

/X%ADLT:

XD6XA

OPI:

ZXD6ANAN/

XD6IN/
-

17-DEC-79

11:31

RROR MESSAGES

SEQ 0053

PAGE 1-18

.EVEN

010640

ENDMOD
.SBTTL

DEFAULT HARDWARE P-TABLE PARAMETERS

BGNMOD

HPTCODE

BGNHW

L10013-L$HW/2
174400
160
240
1

0
1

;DRIVE CSR
;DRIVE VECTOR
;DRIVE PRIORITY
;DRIVE TYPE
;DRIVE NUMBER
s CONTROLLER TYPE

ENDMOD
DEFAULT SOF TWARE P-TABLE PARAMETERS
SPTCODE

L10014~L8SW/2
1

sRETRY LIMIT

3
3

¢5000.
1 0000

240.

)

B5G:
SRE3X

e e e

WORD

010640

MACYT 32A(1052)

—‘OWOSW-—'—‘OOO—'O—‘ —OW
J T
82

CZRLKBO RLO1/02_PERF XER
CZRLKB.MAC
07-DEC~
09:46

sERROR LIMIT
:SEEK ERROR LIMIT
:DATA XFER LIMIT (*(10+3))
:SEEK LIMIT

(BITS)

:TIME INTERVAL IN MINS. BETWEEN STATISTICAL
:/REPORTS (4 HRS. TOTAL)
;WORDS TO COMPARE ON READ
sERRORS TO REPORT ON DATA COMPARE
:CHANGE OTHER PARAMETERS
sMAXIMUM R/W TRANSFER BUFFER
sMAXIMUM HEAD SELECT
sMINIMUM HEAD SELECT
sMAXIMUM CYLINDER
sMINIMUM CYLINDER
sMAXIMUM START SECTOR
sMINIMUM START SECTOR
:DATA DUMP ON DATA CHECK ERROR
sDROP ON LIMIT REACHED
sMINIMUM BUFFER TRANSFER SIZE
sSOFT ERROR LIMIT
:DROP DRIVE ON PERFORMANCE REACHED
sDRIVE ERROR LIMIT
sREAD ONLY FLAG
sRANDOM SELECT OF PATTERNS

CZRLKBO RLO1/02_PERF
CZRLKB.MAC
07-DEC~

% 09:46

010740

€5
.
17-DEC-79_ 11:31
PAGE 1-19
MACY11 30A(1052)
DEFAUL T SOFTWARE P-TABLE PARAMETERS
T.PAT:
T.SLT:
T.CLT:
T.STIP:
T.WCK:
T.0CD:
T.LANS:

010754
010756
010756

_.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

L10014
ENDMOD

010756

BGNMOD

SR IGGYYNNNNY -p JFITTEEIFSR
WN=O

S NV
o A
N =

WORD
WORD

1
1
T

ENDMOD
.SBTTL

(7)

DSPCODE

DISPATCH

000001
014534

010762

STATISTICAL CODE

BGNMOD RPTCODE

010762
010762
010762
010762
010766

;ONLY ONE PATTERN & = WORST CASE
sSEEK RETRY LIMIT
:NUMBER OF ERRORS ON DCK DUMP
sRESTRICT BUFFER SIZE
:D0 WRITE CHECK

ENDSW

010756

010756
010756
010760

&
1
128.
O
1
10.
1

SEQ 0054

BGNRPT

012746
012746
010600
104416
062706

010013
000001
000004

030432
000104

014024
000126
031712

1$:

2%:

ENDRPT

L10015:

PRINTS

#FMTS1

MOV
MOV
MOV
TRAP
ADD

#FMTS1,-(SP)
#1,-(SP)
SP,RO
CSPNTS
#4,SP

MOV
MOV

R4 ,=(SP)
#DRBUF ,R4

BEQ

ADD
cMP
BNE
MOV

#PRPOS+2
,R4
Ré ,#ENDBUF
1$
(SP)+,R4

TRAP

CSRPT

TST

JSR

ENDMOD

DCS(R4)

PC ,REPORT

sPRINT STATISTICAL HEADER

:"RLOT-RLO2 PERFORMANCE REPORT"'
:SAVE PRESENT VALUE OF R4
:START OF DRIVE BUFFER
;1S THERE A DRIVE?
:NO, GET NEXT ONE
:TYPE OUT SUMMARY

:NEXT DRIVE

:AT THE END?
:NO, TRY NEXT

;RESTORE Ré4

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

727
728
729

730
731

732
733
734
735

736
737
738
739
(3)
(3)
740
741

(3)
742

743
744
745
746
747
748
749
(3)

(3)
(3)
750
(2)
751
752
753
754
(3)
(3)
(3)
755
(2)

756
757
(3)
758

011040
011040
011042
011044

011046

11:31

5
PAGE 1-20

.SBTTL
LOAD PROTECTION TABLE
BGNPROT

000000
177777
000010

-1

SEQ 0055

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

INITIALIZATION CODE
011046

INITCODE

011046

BGNINIT

011046
011046
011052

SETPRI
MOV

000340

TRAP

011054

BRESET

011054

011056
011062
011066
011072

000050
002476
002452
002454

011076
011102

002502

011102
011106
011110
011114
011114
011116
011124
011130
011132
011132
011136
011140
011144
011144

011146
011150
011150
011152
011152
011154
011160
011160
011164

011170
011174
0N
on

724
725
726

MACY11 30A(1052)
17-DEC-79
STATISTICAL CODE

000001

012700
104462
010037

000114

002502

002314

103057
005037

012746
012746
012746

000340
017110
000100
000003
000010

CSRESET

CLR
CLR
CLR
CLR

OPFLG
INCALL
STFLG
CNTFLG

TRAP

CSCLCK

BCC

LCLKCH

;FOR LSI-11 CPU'S

MOV
INC
BR

#1,CLKTYP
SYSCLK
PWRCH

MOV

#°L.RO

MOV

RO, CLKADR

B8R

NILCLK

TRAP

L,CLKADR

:BRANCH IF NO P-CLOCK
:IDENTIFY P=-CLOCK TYPE
;INDICATE PRESENCE OF A SYSTEM CLOCK
;BRANCH TO CHECK POWER
;L=CLOCK?

CSCLCK

BCOMPLETE
BCS
18

1%:

002514

TRAP

LCLKCH: CLOCK

103401

104407

C$SPRI

MOV
RO, CLKADR
BNCOMPLETE
LCLKCH

002316

000467

;PRIORITY TO 7 TO INHIBIT INTERRUPTS

;CLEAR CONT
sCHECK FOR PRESENCE OF A SYSTEM CLOCK
CLR
SYSCLK
;CLEAR SYSTEM CLOCK FLAG
CLOCK
P,CLKADR
;P=CLOCK?
MOV
#'P.RO

002316

012737
005237
000522

#340
#340,R0

;CLEAR OPERATION FLAGS

000120

103006

;START OF INITIALIZE CODE

READBUS
TRAP
CSRDBU

:BRANCH IF L-CLOCK
JELSE, INDICATE CLOCK IS NOT PRESENT
;CHECK TYPE OF BUS

BNCOMPLETE
2s
;BRANCH IF NOT Q-BUS
BCC
2
CLR
CLKFLD
-CLEAR CLOCK FIELD FOR STORING 'TICKS'
SETVEC #100,#CLKTIK, 434 0
sSET UP L-CLOCK INTERRUPT VECTOR
MOV
#340.,~(SP)
MOV
#CLKTIK,=(SP)
MOV
#100,~(SP)
MOV
#3,-(SP)
TRAP
CSSVEC

ADD

#10,5SP

TO CHECK

- (elelelelelelelelelelelelelelelololelelelols]
—
)
) ) ) D nd D e ) ) ) ) D D ) D D nd b

771

011326

SNONSO

VIVVES S8

ggSPRI

012727
000000
013727
000000
005367

000372

MoV

g#?SO..(PC)¢

002116

MOV

LSDLY, (PC)+

177772

DEC
BNE

-6(PC)
=4

NN
O
b

011376
011376

000340

SETPRI
MOV

000100

CLRVEC
v

#100
#100,R0

DEC

TRAP

002514

000424

000002
002502

012746
012746
012746
010600

004530
007544
000002

062706

000006

012746
012746
012746
010600
104417
062706

004566
007544
000002

012700

002314

2%:

TRAP
TST
BEQ

MOV

MOV
MOV
MOV
TRAP
ADD

C$SPRI

;CLEAR L=CLOCK INTERRUPT VECTOR

CSCVEC
CLKFLD
NILCLK

;L=CLOCK '‘TICKS'TM

#NOCLK ,=(SP)

HFMT14,-(5P)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

PRINTF #FMT14 ,#NOREPT
MOV
#NOREPT ,-(SP)
MOV
#FMT14 ,-(SP)

MOV
MOV

TRAP
ADD

104447

MOV

TRAP

#EF .PWR,RO
CSREFG

PWRFLG
#DRBUF
, R4
#1,R2
R2.DRUT

MOV

DRSEL (R&4) ,RO
#200,R0
RO,aDCS (R4)

MOV
12%:

INC
MOV
MOV
BITB

BEQ

MOV

BIT
BNE
WAITMS

;REPORT ''SYSTEM CLOCK IS NOT AVAILABLE''

;PRINT 'PERFORMANCE REPORTS WILL NOT BE PRINTED''

CSPNTF
#6,SP

BNCOMPLETE
3$
¢

11%:

;BRANCH IF NO '‘TICKS''
s IDENTIFY L-CLOCK TYPE
s INDICATE PRESENCE OF A SYSTEM CLOCK
sBRANCH TO CHECK POWER

#2,-(SP)
SP,RO

:POWER FAIL SEQUENCE
READEF #EF.PWR

PWRCH:

sPAUSE TO ALLOW CLOCK INTERRUPTS

sRESTORE PRIORITY TO 7 TO INHIBIT INTERRUPTS

MOV
#2,CLKTYP
INC
SYSCLK
PWRCH
BR
NILCLK: PRINTF #FMT14 ,#NOCLK

103121

e
e
b e e

#240
#240,R0

=22(PC)
.=20
#4340
#340,R0

177756

PAGE 1-21

;/IF CLOCK IS "TICKING''
;SET PRIORITY TO 5 TO ALLOW CLOCK INTERRUPTS

TRAP

—

D e
d
d
)

774
(3)

000240

—

011372

11:31

012700
104441

104417

(4)

MACY11 30A(1052)
17-DEC-79
INITIALIZATION CODE

SETPRI
MOV

)

A d

D e

)

D i e

5&E§L~uuggNNNNNNNNNNNN
dr333
QNRAS
gNl‘Ng

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

;POWER FAILURE?
:BRANCH IF NO POWER FAILURE
;INDICATE POWER FAIL
sINITIALIZE POINTER TO DRIVE PARAMETER BUFFERS

13$

#120. .R1

JINITIALIZE WAIT COUNT

#10.

;IMPLEMENT 1 SECOND TIME DELAY

g;iaDCS(RL)

SEQ 0056

CZRLKBO RLO1/02_PERF EXER

07-DEC=79 09:46

CZRLKB.MAC

\n\nuwcnn!ng:gus
SURRG DR
§N 0"08”60\
OO SRRSaNoR

012727
000000

000372

002116
177772
177756

—

R g2

N oo

b
-b

(ol

(e WS YRS QS WS W 3

e
e e
d D D

P S

d o

D oD

s YOS WS WD .

SOOOOOOOO [elelelelelelelelelsle)

011476
011502

17-DEC=79
MACY11 30A(1052)
INITIALIZATION CODE

004101
023520
011612

002246

:
15%:

13%:

002502

#n250.,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
.<22(PC)
.=20
R1
128
ANOPWR , WHY
RS, DRDRV

JSR
JSR
CLR
CLR
CLR
CLR

RS, ISDRST
RS . HDHOME
PRFLGS (R4)
RETRY (R&)
DOWCK (R4)
RTYPE (R4)

4%:

RSEEK (R&)
#PRPOS+2
R4
R2
118

CLKON
REQTIM
JMP

RO
INIEND

2;sch

READEF #EF . CONT INUE

MOV

TRAP

#EF . CONT INUE ,RO
CSREFG

BNCOMPLETE
BCC
18

002454
012222
027174
176543

INC
JMP

002260
002262

JSR

MOV

2%:

MOV

MOV
CLRDAT: CLR
CMP
BNE

MOV

011724

1%:

MOV
MOV
MOV
CLR
ST
BEQ
GPHARD
MOV

SEQ 0057

;
;MSG. ‘DR DID REC'R FROM PWR UP''

;SYSTEM CLOCK AVAILABLE?

;ACTIVATE CLOCK WITH 1-SECOND INCREMENTS
*REQUEST ELAPSED SUPERVISOR TIME

-''CONTI NUE'' COMMAND SEQUENCE

3s:

000036

011670
011674
011702
011710
011714
011716
011722

5
PAGE 1-22

13§

CLR
ADD
ASLB
BCC
gg;

012674

MOV
LWORD
MOV
L,WORD
DEC
BNE
DEC
BNE
DEC
BNE
MOV
JSR

JMP

024446
025670

11:31

;CONTINUE FROM CONSOLE?

:NO, CONTINUE W/ INIT CODE

CNTFLG
END

:YES SET CONT FLAG, GO TO END OF

RS, CLEAR

;CLEAR ALL DRIVE BUFFERS

#123456 L ONUM

#176543 ,HINUM

INIT

*PRIME RANDOM GENERATOR

#CNTLR1.RO
(RO) +
RO, #STFLG+2

*INITIALIZE POINTER TO GLOBAL DATA AREA
:MASS CLEAR OF GLOBAL DATA AREA
AT END OF GLOBAL DATA AREA?

#DRBUF , R4

;SET UP DRIVE INFORMATION BUFFER POINTER

CLRDAT

#BSECO.R2
LSUNIT.R3
R3,UUT
R1
R3
END
R1,RO
R1.RO

*SET UP BAD SECTOR POINTER
*GET NUMBER OF UNITS
*SAVE LSUNIT
*INITIALIZE P-TABLE FOR LOGICAL UNIT
SANY
P-TABLES LEFT?
*NO.GO TO END
*REQUEST A P-TABLE FOR DRIVE

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
(3)
832
(2)

011754
011756
011756

103112

834
835
836
837
838
839
840

011760
011764
011770
011774
012000
012004
012010

012037
012037
012037
012037
011037
005737
001011

842

843

012012

012020

MACY11 30A(1052)
17-DEC=79
INITIALIZATION CODE

104442

11:31

G5
PAGE 1-23

TRAP
C$GPHRD
BNCOMPLETE
12%
BCC
12%

;MOVE P-TABLE CONTENTS TORLOCAL STORAGE
(RO)+,BCS
;GET CSR
(RO)+,BVEC
:GET VECTOR
(RO) +,BPRIOR
:GET PRIORITY

(RO)+,T.DRIVE
(RO) ,BDRSEL
CNTLR1
2%

013737

BPRIOR,PRIOR1
BCSR,CNTLR1
BVEC,VECTT
2gSR.CNTLR1

013737

BVEC,VECT1
108
#BUF1,TEMP1
RS, FILINF
118

5%:

CNTLR2
63
VECT1,BCSR

002330

002374

108
BCSR,CNTLR2
BVEC,VECT?2
BPRIOR,PRIOR2
BCSR,CNTLR2
108
BVEC,VECT2

002372

VECT2,VECT1

002322
002374
002400
002322

6%:

108

108
2, TEMP1
#BUF
RS,FILINF

002350

11$

108:

012220

876

012222

878
879
880
881

012222
012230
012236
012240

000652

160.,ILLEG,ERR10
CSERDF

L1
]

—_—

-2

000104

873

SEQ 0058

;GET DRIVE TYPE
;GET DRIVE NUMBER
;DO WE HAVE CSR 1 YET?
;YES,THEN SEE IF IT THIS DRIVE IS
s /ASSOCIATED WITH CHTLR1

sNO,MAKE THIS ONE CSR 1
MAKE THIS VECTOR VECT1

*1S THIS CSR CNTLR1?

*NO,GO CHECK AGAINST #2
;1S VECTOR PROPER?
:NO, REPORT ERROR

:FIRST CONTROLLER/FIRST BUFFER
sFILL BUFFER

:GO GET NEXT P-TABLE
*HAVE WE GOT CSR #2 YET?
:YES, CHECK THIS ONE AGAINST IT
:1S THIS VECTOR SAME AS CNTLR1
:IF SO, DON'T ALLOW IT

:MAKE THIS ONE CSR 2
:SETUP SECOND VECTOR

DOES IT HAVE PROPER VECTOR
:NO, GO REPORT ERROR

;1S VECTOR OF FIRST EQUAL TO
;VECTOR OF SECOND, YES REPORT ERROR
;OTHER CNTLR/OTHER BUFFER
:LOAD BUFFER
sNEXT
;BAD P-TABLE

;DOWN COUNT
JNEXT BAD SECTOR FILE
;DO WHILE
END:

012737
023727
003012
052737

002444

177770

002256
000004

MOV

000004

002256

BIS

BGT

#177770,SYSMSK

UUT ,#4

;SETUP FOR EIGHT DRIVES
sMORE THAN FOUR

#4,SYSMSK

;SETUP FOR FOUR DRIVES

IS THIS CSR # 2?
WELL WE DON'T ALLOW 3

JPOINT TO NEXT

000042

sYES,

THEN MASK IS OKAY

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
- 07-DEC~ 79 09:46

012246
012254
012256
012264
012264

023727
003003
052737

MACY11 30A(1052)

17-DEC=79
INITIALIZATION CODE

002444

000002

002256

cMP

BGT
BIS

11:31

5
PAGE 1-24

UuT 42

2$
#2,SYSMSK

.*'START'' COMMAND SEQUENCE

012700
104447

2%:

000040

RESTART :

002454

002274

TRAP

CSREFG

#EF.START RO

BCC
INC
CLR
CLR

RESTART
STFLG
WRINIT
KILLDC

CNTFLG

004416
007747
000002

‘38

BEQ
CLR
INC
CLR
PRINTF
MOV

118
WRINIT
KILLDC
CMRD
#FMT18,#NORDDC
#NORDDC
, = (SP)

MOV
MOV

MOV
TRAP

000006

RESTART

BNE

002274
002310
010674

012746
012746
012746
010600
104417
062706

#EF .START

BNCOMPLETE
002452
002274
002310

012310
012310
012314
012316
012322

READEF

MOV

ADD

WRINIT

SEQ 0059

;MORE THAN TWO
sYES, IT'S OKAY
sSET FOR ONE OR TWO
;START COMMAND

;NO, CHK RESTART

sSET START INDICATOR
;CLEAR THE WRITE INIT FLAG ON START
;CLEAR DATA COMP FLAG ON START ONLY
s CONTINUING

:YES GO TO 3%
:ég PROCESS OF INITTING THE PACK?
:YES = CLEAR THE FLAG
sINHIBIT DATA COMPARES!
;AND SET DAT COMPARE TO O WORDS
sTELL OPR PACK NOT INITTED YET

#FMT18,=(SP)
#2,-(SP)
SP.RO

CSPNTF
. #6.SP

;LET'S CREATE INTERNAL BITMAP
000001
002253
030432
000104

11$:
1$:

002253
000126
031712

012420
012424

012426

28:

113737

002253

012434

002252

sBIT MASK
;CLEAR OUT DRIVES PRESENT

MOV
CLRB
MOV

#1.R1
DRPRS
#DRBUF ,R4

BEQ
BISB
ASL
ADD
CMP
BNE

2$
R1,DRPRS
R1
#PRPOS+2
R4
#ENDBUF
, R4
18

MOVB

DRPRS,DRUT

sSET UP DRIVES UNDER TEST

SETVEC
MOV
MOV
MOV

VECT1,#INTR1,PRIOR1
PRIORT,~(SP)
#INTR1 .=(SP)
VECT1,=(SP)

;SET CONTROLLER 1'S VECTOR

DCS(R&4)

;START OF DRIVE BUFFERS
;ANY CSR?
sNO, NO DRIVE THEN
INDICATE DRIVE
*NEXT POSITION

IN BITMAP

:NEXT DRIVE BUFFER
- DONE

3%:

002376
017116
002372
000003

012456

013746
012746
013746
012746
104437
062706

012462

005737

MOV

#3,-(SP)

000010

ADD

#10,SP

002322

CNTLR2

TRAP

CSSVEC

JRUNNING TWO CONTROLLERS?

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
012466

012470
012470

17-DEC-79
MACY11 30A(1052)
INITIALIZATION CODE

001413
013746
012746
013746
012746

BEQ

SETVEC

002400
017126
002374
000003

012512

104437
062706

012516
012522

005737
001412

002454

012524
012530

005737
001461

002502

PAGE 1-25

:NO

VECT2 lINTRZ PRIOR2

;YES SET CONTROLLER 2'S VECTOR

PRIORZ,=(SP)
VECT2,=(SP)

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

000010
4%:

CNTFLG

s CONTINUE?
:NO, GO PAST RESTART OF

SYSCLK
INIEND

:38 WE HAVE SYSTEM CLOCK?

F INDBF

;REQUEST MEMORY ggFFER SPACE
F INDBF
: MEMORY

012550
012550

000000
010237
005737

#1280.
, (R2)

004711
007544
000002

18
#FMT14 ,#INSMEM
#INSMEM,
- (SP)
H#FMT14,-(SP)
#2,-(SP)

000006

#6,SP

R2 ,BUF 1

1%:

CNTLR2
2%

#1,(R2)

002440

002442
002442

012000

002442

BUF 1,BUF2
(R2) .BUF2
(R2)

2%:

012664

3%:

012674
012674
012674
012674
012676

INIEND:

104411

;REQUEST MEMORY BUFFER SPACE
;DO WE HAVE A MINIMUM OF 1280 WORDS?
:YES = BRANCH
:NO - PRINT MSG. ''SYSTEM FATAL ERROR -

SP,RO
CSPNTF

002436
002322
000001
002436
002440

012737

TO PERFORM READ/WRITE OPERATIONS

CSMEM
RO,R2

002400

CLOCK

sACTIVATE SYSTEM CLOCK
sREQUEST ELAPSED SUPERVISOR TIME
;GO TO END

RO
INIEND

012746
012746
012746
010600
104417
062706

SEQ 0060

#INTR2,=(SP)

012532
012542
012546

012656

11:31

L10017:
ENDMOD

(R2) ,MAXWC
MAXWC
, #5120.
3%
#5120. ,MAXWC
CLKON

;GET ADDRESS OF FREE MEMORY

;TWO CONTROLLERS?

sNO = ASSIGN ALL BUFFER TO SINGLE CONTROLLER
sMAKE LENGTH OF FREE MEMORY EVEN
:SET UP FOR BUFFER 2

:ADD HALF OF BUFFER
;DIVIDE BUFFER SPACE BY 2
sINITIALIZE MAXIMUM WORD COUNT
:1S WORD COUNT LESS THAN OR EQUAL TO 5120?
sBRANCH IF TRUE
;NO = INITIALIZE VALUE TO 5120 WORDS

sACTIVATE SYSTEM CLOCK TO INITIATE GENERATION
:/0F TIMING INTERVALS

ENDINIT
TRAP

;/INSUFFICIENT MEMORY BUFFER SPACE''

CSINIT

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC

07-DEC=79 09:46

17-DEC=79
MACY11 30A(1052)
INITIALIZATION CODE

9¢3

.SBTTL

11:31

PAGE 1-26

SEQ 0061

AUTO DROP SECTION

:THE AUTO DROP SECTION IS CONDITIONALLY EXECUTED AFTER THE INITIALIZATION CODE
:WHEN THE OPERATOR “ADR'‘
FLAG IS SET. EACH DRIVE IS CHECKED TO DETERMINE IF IT

:1S READY TO TRANSFER DATA.

IF THE DRIVE DOES NOT RESPOND WITH *READY'' IT IS

:DROPPED FROM THE TEST CYCLE. THE HARDWARE TESTS ARE PERFORMED IMMEDIATELY
:AFTER THE READY STATUS OF ALL DRIVES HAVE BEEN CHECKED.

012676
012676
012700

012740

012744
012750
012754
012756
012756
012760
012764
012770
012774

BGNAUTO

002012
030432
002450

012746
012746
013746
012746
104437
062706
005774
005737
001425
005046

156416
016446
012746

012746
010600

1%:

22.-§§;;

:SAVE REGISTERS

LSUNIT,R3

;INITIALIZE NUMBER OF DRIVES UNDER TEST

#DRBUF ,Ré
TRPFLG

ERRVEC,#TRPHAN, #340

#340,-(SP)

000340
014016
002466
000003

:SET UP TIME-OUT VECTOR TO DETECT

#TRPHAN,
- (SP)

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

000010
000104
002450

:/NON-EXISTENT CONTROLLER

aDCS(R4)

;ACCESS CONTROLLER

:BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR

TRPFLG

:DID TRAP OCCUR?

#iRHT16.DCS(R4) ,<B,DRSEL+1(R4)> ;PRINT CONTROL STATUS AND DRIVE

000107
0001C4
007705
000003

DRSEL+1(R4), (SP)
DCS(R4) ,=(SP)

#FRMT16,~(SP)
#3,-(SP)

062706

000010

SP.RO
CSPNTF
#10,SP

012737

004673

#NOCTLR ,WHY

004537
005064

023520
000104

R5 ,DRDRV
DCS(R4)

104417

SINITIALIZE START OF DRIVE BUFFERS
“CLEAR TRAP FLAG

2%:

000106
000200
000001

:/NUMBER INFORMATION
;PROVIDE REASON FOR DROPPING DRIVE -

:/'NO CONTROLLER''
:DO DROP UNIT ON DRIVE FROM TEST CYCLE
;TAKE DRIVE OUT OF BUFFER

:BRANCH TO GET NEXT DRIVE

#1,3DCS (R4)

;1S DRIVE READY?

DRSEL (R4) ,aDCS (R&)
:GET SELECTED DRIVE NUMBER
#200,aDCS(R4)
;SET CONTROLLER READY

:BRANCH TO CHECK NEXT DRIVE IF READY

ligg}16,DCS(R4) ,<B,DRSEL+1(R4)> ;PRINT CONTROL STATUS AND DRIVE

0600

104417

000107
000104
007705
000003

013102

062706

000010

013106

012737

004636

, (SP)
DRSEL+1(R4)
DCS(R&) ,~(SP)

#FRMT16.,~(SP)

#3,-(SPS

SP.RO
CSPNTF
#10,SP
002246

#NOTRDY ,WHY

'
: /NUMBER INFORMAT ION
;PROVIDE REASON FOR DROPPING DRIVE =

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

004537 023520
005064 . 000104
013700
104436
062704

002466

MACY11 30A(1052)

17-DEC-79

AUTO DROP SECTION

3s:

000126

JSR
CLR
CLRVEC

MOV
TRAP
ADD

11:31

R5 ,DRDRV
DCS(R4)
ERRVEC

ERRVEC,RO
CSCVEC

#PRPOS+2
,R4

R3
1%

012603
104461

+ ,R4
(SP)

ENDAUTO

L100¢0:

(SP)+,R3

C$AUTO

5
PAGE 1-27

:/'DID NOT RESPOND WITH 'READY''

:DO DROP UNIT ON DRIVE FRCM TEST CYCLE
:TAKE DRIVE OUT OF BUFFER
sRELEASE THE ERROR VECTOR
;UPDATE POINTER TO ACCESS DRIVE BUFFER
:/FOR _NEXT DRIVE
sDECREMENT DRIVE COUNT
sBRANCH TO GET NEXT DRIVE IF MORE
sRESTORE REGISTERS

SEQ 0062

mow.—n_a—-_a_a_og
N

MACY11 30A(1052)

BGNMOD

013150
013150
013150
013154
013160
013164

17-DEC-79

AUTO DROP SECTION

013150

11:31

PAGE 1-28

CLNCODE

012746

SETVEC

000340
014016
002466
000003

ERRVEC ,#TRPHAN,#340
#340,<(SP)
#TRPHAN,
- (SP)

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

CSSVEC

000010

;PRIORITY TO ZERO

000000

032777
001774
042777

000200

167106

000100

167076

013700

002372

013230
013234

005737
001412

002322

013236
013244
013246
013254
013254
013260

032777
001774
042777

000200

167056

000100

167046

013700
104436

002374

013226

SEQ 0063

BGNCLN

AAOAAAAAANDODOOOOO

—

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

104436

005037
005037

1%:

BIT

#CRDY ,aCNTLR1

;WAIT FOR CONTROLLER TO FINISH

#INTEN,QCNTLR1

*CLEAR INTERRUPT IF PENDING

CNTLR2
3%

:TWO CONTROLLERS

#CRDY ,@CNTLR2

;WAIT FOR OTHER CONTROLLER TO FINISH

#INTEN,@CNTLR2

*CLEAR OUT INTERRUPT ENABLE

VECT1
VECT1,RO
CSCVEC

2%:

BIT

VECT2
VECTZ2,RO
CSCVEC

3%:

CLR

002466

‘RELEASE VECTOR OF FIRST CONTROLLER

;NO

*YES, WELL RELEASE ITS VECTOR

INCALL
OPCALL
ERRVEC

ERRVEC,RO

002502
4%:

L10021:

BEQ
CLKOFF

C$CVEC
SYSCLK
4$

BRESET
TRAP

CSRESET

TRAP

CS$CLEAN

ENDCLN

;DEACTIVATE SYSTEM CLOCK
;TAKE CARE OF LSI-11

ENDMOD
BGNMOD

ADDCODE

BGNAU

012704

030432

MOV

#DRBUF ,R4

:START OF DRIVE BUFFERS

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

013352
0

012701

MACY11 30A(1052)

AUTO DROP SECTION

000001

MOV
MOV
TST
BEQ
ADD
ASL
DEC

1%:

000126

150137
010200
104442
010001
011164
012700
006200
005024
005300
001375

17-DEC-79

11:31

#1,R1
RO,R2

:PRPOS*Z.R4

2%:

002252

RO,
(R1) ,DCS(R4)

000104
000100

#SERNM1,RO
4%:

5%:

L10022:

104452

ENDMOD
BGNMOD

BGNDU

002476

INCALL

030432

#DRBUF R4

2%:

RO
1%
RO
#PRPOS+2
R4

000126
003510
023514

P 3

002246

1%:

#REQ,WHY

R5,0DRDRV

3s:
ENDDU

104453

L10023:
ENDMOD

SEQ 0064
JMASK TO FIND DRIVE

sSAVE WHICH TO FIND

sTHIS ONE

JYES
JNEXT
JNEXT MASK
s INSERT IN DRIVE UNDER TEST

ENDAU

012737
004537

M5
PAGE 1-29

TRAP

C$DU

;SETUP TO CLEAR STATUS

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)
17-DEC-79
AUTO DROP SECTION

1096

}83;

013474

}}812

1103

1104
1105
1106,
1107
1108
1109
1110
1111
:'I]':Il%

11:31

.SBTTL

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

5
PAGE 1-30

SEQ 0065

sROUTINE TO FILL DRIVE PARAMETER BUFFERS WITH INFORMATION

013474

013502
013510
013512
013520
013526
013534
013542
013546
013552

013764

022737
001403
012737
013764
013764
013764
010264
062704
000205

002336

000106

000002
002254
002330
002350
000112
000126

002254
000120
000104
000110

000001

002254

FILINF: MOV

FILTD:

cMP
BEQ
MOV
MOV
MoV
MOV
MOV
ADD
RTS

BDRSEL ,DRSEL (R4)

#1,T.DRIVE
FILTD
#2,T.DRIVE
T.DRIVE ,TDR(R4)
BCSR,DCS(R4)
TEMP1,BBA(R4)
R2,BSECPT(R4)
#PRPOS+2 R4
RS

;SET DRIVE SELECT BITS

;DRIVE = RLO1?
;YES
;DRIVE IS AN RLO2

;SET CSR
;SET R/W BUFFER
:SETUP BAD SECTOR POINTER
;UPDATE POINTER

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79
09:46

MACY11 30A(1052)
17-DEC=79
GLOBAL SUBROUTINES

mz
1117
1118

1119
1120
(7)
(6)
(5)
(4)

013554
o1§556

013564
013566
013566
013572
013576
013602

013606

1122

013616

1123
1124
(7)
(6)
(5)
(4)

012746
012746
012746
012746
104437

002314

CLKINI: MOV
P

000340
016706
000104
000003

013610 062706 000010
013614 000417
022737

000002

#10,SP
FRACHK

LCLK:

BNE
SETVEC
MOV
MOV
MOV
MOV

END
noo mm #340
#340.~(SP)
mns -(SP)
#100,-(SP)
#3,-(SP)

CMP

(2) 013650
25 013654
013660
013666
013670

062706
013703
022763
001007
012737

000010
ADD
002316
FROCHK: MOV
000074 000006
cMP
BNE
000074 002506
MOV

oo A

D e
d

013646

104437

013676 012737 000001
013704 000406
013706

012737

000062

TRAP

013714 012737 000002 002312
013722 012603
013724

000207

CSSVEC

2, CLKTYP

:BRANCH FOR SYSTEM FREQUENCY CHECK
*L=CLOCK?

*BRANCH IF NO CLOCCK
*SET L=-CLOCK INTERRUPT VECTOR

CSSVEC

#10,SP
CLKADR,R3
#60. ,6(R3)
FRQ50
#60. , CLKCNT

:GET BASE ADDRESS OF THE SUPERVISOR CLOCK TABLE
260 H2?
*BRANCH FOR 50 HZ
}ggxene.&z,ew CLOCK COUNT FOR 60 TICKS

MOV
BR

#1,CLKFRQ
ENDINI

#50. ,CLKCNT

SIDENTIFY CLOCK FREQUENCY IS 60 HZ
*RETURN

1%712%5& CLOCK COUNT FOR 50 TICKS

MOV
ENDINI: MOV

#2.CLKFRQ
(SP)+,R3

SIDENTIFY CLOCK FREQUENCY IS 50 HZ
*RESTORER3

002312
002506

*BRANCH IF NOT P=CLOCK
*SET P=CLOCK INTERRUPT VECTOR

FRQS0:

MOV

RTS

AT N 2 25 B o B 2 28 8 2 4 o N

SEQ 0066
:

:SAVE R3
*P=CLOCK?

ADD
B8R

TRAP

002314

R3,=(SP)
n cmvp

no:. mus #340
#340.mm -(sm
#104,-(SP) " .
#3,-(SP)

000340
016706
000100
000003

D e

6
PAGE 1-31

BNE
SETVEC
MOV
MOV
MOV
MOV

012746
012746
012746
012746

N i P P PO RO

) b
i

001014

000001

001036

e e

D e e

010346
022737

0136264
013626
013626
013632
013636
013642

(3)

;SETS UP CLOCK INTERRUPT VECTOR, CLOCK COUNT, AND IDENTIFIES CLOCK FREQUENCY

(3)

(2)
1121

11:31

—

DYV

d cd

A DN

e o

D cd

D D e

;DETERMINES CLOCK TYPE AND INITIALIZES THE CLOCK FOR OPERATION IN REPEAT
; INTERRUPT MODE AT LINE FREQUENCY

013726
013732
013740
013742
013750
013754
013756

005037
022737
001006
012737
005237
000414
022737

002512
000002

013766

002314

000100
002504

177546

000001

002314

012737

000001

172542

014002
014006
014014

005237
013737
000207

002504
002506

014016

005237

002450

013764
013774

001013

012737

000115

CLKST:

18:

172540
002510

CLR
M
BNE
MOV
INC
BR
e

CLKACC
#2,CLKTYP
18
#100,a#177546
CLKSON
2%
#1,CLKTYP

;CLEAR CLOCK ELAPSED TIME INDICATOR
sL=CLOCK?
:BRANCH FOR P=-CLOCK
;SET INTERRUPT ENABLE BIT TO 1
s INDICATE '‘CLOCK ON''
:BRANCH TO SET UP TIME INCREMENTS
:P-CLOCK?

MOV

#1,a#172542

sSET UP P=CLOCK FOR 1 INTERRUPT PER TICK

INC
MOV
RTS

CLKSON
CLKCNT,CLKBFR
PC

BNE

MOV

28%:
3s:

TRPHAN: INC

#175,a#172540

TRPFLG

sBRANCH IF NO CLOCK

:SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,

:/LINE FREQUENCY RATE,START CLOCK
: INDICATE ''CLOCK ON''
:SET UP TIME INCREMENTS
:RETURN

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
1159

014022

000002

MACY11 30A(1052)
17-DEC=79
GLOBAL SUBROUTINES
RTI

11:31

6
PAGE 1-32

SEQ 0067

MACY11 30A(1052)

17-DEC-79

« REPORT ROUTINE

»SBTTL

11:31

D6
PAGE 1-33

SEQ 0068

REPORT ROUTINE

sROUTINE TO PRINT STATISTICAL REPORT OF DRIVE(S)

014024
014024

REPORT : ?&I‘NTS

005046

BISB

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

S WONNOO
=

NN
O =W SN

FAAY

NN NN o, D i
N PN
PN PN PN PN PN PN

b
b b

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

TRAP

lig;}O.ITIK.H(lR.HIMJTE.SECW.MLCS.DCS(RU,IDRMKB.DRSELH(R4)>
DRSEL+1(R&), (SP)

#DRNM, - (SP)
DCS(R&G) ,~(SP)
AMRLCS,=(SP)
SECOND
.~ (SP)
MINUTE
.= (SP)
HOUR,
= (SP)
#TIME ,-(SP)
#FMT10,
- (SP)
#11,-(5P)
SP,RO
CSPNTS

ADD
#24 ,SP
PRINTS
#FMTDT,TDR(R4)
MOV
TDR(R4) ,=(SP)
MOV
#FMTDT,=(SP)
J
014132

005764

000006
000070

MOV
TRAP
ADD

SP,RO
CSPNTS
6,

BEQ

;DO WE HAVE ANY DROPPED TIME
;NO, THEN PRINT "RUNNING''

;PRINT THE TIME THE DRIVE WAS 'DROPPED FROM TESTING
014140
014140
014142
014146
014150
- 014154

014160
014164

005046
156416
005046
156416
012746

PRINTS

lig;§18.<8.0m(R4)>.<8.DPM1N(R4)>

000071

BIS8

DPMIN(R4)
, (SP)

000070
010116

BIS8
MOV
MOV
MOV
TRAP
ADD
BR

DPHOUR(R4)
, (SP)
#FMTS1B,-(SP)
#3,-(SP)
SP,RO
CSPNTS
#10,SP
2%

PRINTS

#FMTS1A

CLR

012746 000003
010600

014166
014170
014174

104416
062706
000410

014176
014202
014206
014210
12

012746
012746
010600
104416
062706

014216
014222
014226
014232

016446
016446
012746
012746

014242

010600

000010

010076
000001

1$:

000004
000100
000102
002634
010151
000004

2%:

=(SP)

sPRINT

"=xx RUNNING®

MOV
MOV
MOV
TRAP
ADD

#FMTS1A,=(SP)
#1,-(SP)
SP.RO
CSPNTS
#4,SP

PRINTS

#FMTS2,#CART,SERNMZ2
(R4) , SERNM1 (R4)

MOV
MOV
MOV
MOV
MOV
MOV

SERNM1 (R&) , - (SP)
SERNM2 (R4) .~ (SP)
#CART , - (SP}
#FMTS2,~(SP)
M4 ,=(SP)
SP,RO

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

014244
014246

104416
062706

000012
000002
000004
000060
000054
000000
010215
000006
000016.

000006
000010
000062
010304
000004

014352
014356

MACY11 30A(1052)

17-DEC=79

REPORT ROUTINE

11:31

6
PAGE 1-34

TRAP

OFHTSZA SKCNT(R4) ,SKCNT1(R4) ,RXFR3(R4) ,RXFR2(R4) ,RXFR1(R4)
RXFR1(R4) ,=(SP)
RXFR2 (R4) ,=(SP)

RXFR3(R4) ,~(SP)

SKCNT1 (R4S ,=(SP)

SKCNT (R4) ,=(SP)
#FMTS2A = (SP)

#6,-(SP)

#FMTS2B,WXFR3(R4),WXFR2 (R4) ,WXFR1(R4)
WXFR1(R4) ,~(SP)
WXFR2 (R4) .=(SP)

WXFR3(R4).= (SP)
#FMTS2B,=(SP)

#4,-(SP)
SP.RO
CSANTS

-#12,SP
#FMTS3,DERCNT
(R4) , SKECNT (R4) , TRERR(R4) ,DATCER (R4)
DATCER(R&) ,-(SP)
TRERR(R4) ,~(SP)
SKECNT
(R4) ,~(SP)
DERCNT
(R4) .= (SP)
#FMTS3,~(SP)
#5,-(SP)
SP.RO

016446
016446

CSPNTS

#14,SP

#FMTS3A,ERRCNT
(R4 ) , SFTCNT (R&)
SFTCNT(R&G) ,=(SP)
ERRCNT (R4) = (SP)
#FMTS3A,~(SP)

#3,-(SP}
SP.RO

ornrs¢ DCRCER(R4) ,HCRCER
(R4 ) ,NXMCNT (R4) ,HNFERR(R4)

MNFERR(R&), = (SP)
NXMCNT (R4) = (SP)
HCRCER(R4)
.- (SP)
)
.- (SP)
DCRCER(R4
#FMTSG ,=(SP)
#5,-(SP)

014522

010600

SP.RO
CSPNTS

000014

#14,5P

000030

OPICNT(R4) ,~(SP)
DLTCNT (R4) .= (SP)

010600
000003

SEQ 0069

#FMTSS,DLTCNT (R4) ,OPICNT (R4)

#FMTSS,~(SP)

#3,-(SP)
SP,RO

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
(4)
(4)
1183

1184

1185

1186
1187

014524
014526
014532
014534

104416
062706
000207

000070

MACY11 30A(1052)
17-DEC-79
REPORT ROUTINE
TRAP
ADD
RTS
ENDMOD

11:31

CSPNTS
#10,SP
PC

PAGE 1-35

SEQ 0070

CZRLKBO RLO1/702_PERF EXER

CZRLKB.MAC
1189
1190
1191
(2)

07-DEC=79 09:46

014534
01452

MACY11 30A(1052)

17-DEC-79

PROGRAM MAIN LOOP

.SBTTL
BGNTST
STARS

11:31

G_6
PAGE 1-36

PROGRAM MAIN LOOP

;.'*ttt.ttttttttttttitttttttttt.itttttttt.ttttttttttttt".t'.t'ttt

1192
1193

*PROGRAM WILL RANDOMLY PICK ONE OF THE DRIVES TO
:PERFORM AN OPERATION.
WE WILL ALWAYS PICK ONE OF FOUR

1194

*OR EIGHT DRIVES (ONE OR TWO CONTROLLERS) 'DRUT'' WILL BE

1196

:THEN A FUNCTION WILL BE SELECTED RANDOMLY FOR. THAT

1195

*CHECKED TO SEE IF DRIVE IS ON SYSTEM.

1197
1198

1199

1200
(2)

1201

:DRIVE.
FUNCTIONS OF CONTROLLER RESET, GET STATUS, SEEK, READ, WRITE
*WILL BE SELECTED, EACH FUNCTION WILL HAVE ITS OWN ROUTINE

;7O GET PARAMETERS FOR THE DRIVE.

014534
-

STARS

:;tttttttttt'.tttttfittttttttttttttttttttttttttt.tt.ttttt.ttttt'tt

1202

014534

(3)

014540

1205
1206
1207

014542
014546
014550

005737
001407
013704

002274

1209

014560

005237

002452

012704

030432

(3)

}ng

1208

1210
1211

01453%¢

014554
014564

014566

012700
104441

013701

000410

002274

1216

014606

014612

001442

130137

002252

1219

014614

Q12774

000200

1221

014630

012700

000000

1220

1222

1223

014634

056474

161%:

000001
002274

005300

014636

001376

014646

001006

1224

014640

1227
1228

000106

16$:

000104

000001

000104

014650
014656

012737
004537

002664
023520

002246

1231
1232
1233
123

014664
014670
014674
014700

004537
005064
005064
005764

022654
000056
000114
000122

1236
}5%

014706
014712

005737
001402

002452

1239

014714

004537

024622

}5233 014662

1235

014704

000416

001003

TRAP

CS$SPRI

MOV

;

168

99% :

STFLG

JHERE AFTER PWR FAIL DURING WRITE
*NO
JYES - RESET R4

“AND R1 POINTERS
,

*FAKE OUT THE START FLAG

*AND CONTINUE WRITE INIT CODE

MOV

#DRBUF R4

MOV

R1.WRPOS

:POINTERS

BITB

R1,DRUT

:DRIVE UNDER TEST

MOV

#200,aDCS (R4)

:CHECK IF DRIVE THERE

#0. .RO

:STALL

MOV
MOV

BEQ

DEC

BNE

#1,R1
R4 WRINIT

158

DRSEL
(R4) ,a@DCS(R4)

13$

JGET DRIVE BUFFERS

*MASK
;
:COPY THE R4 AND

*NO

BIT

#DRDY ,aDCS (R4)

;WAIT FOR DRIVE TO BECOME

MoV
JSR

#DNRDY ,WHY
RS, DRDRV

;MSG. 'DRIVE NOT READY''

JSR
CLR
CLR
TST

RS ,RDBDSC
PRFLGS (R&)
RSEEK (R4)
WRIPG(R4)

:GO GET BAD SECTORS

;

;/AND TO INHIBIT DRIVE INTERRUPTS

WRINIT
1618
WRINIT,R4

WRPOS ,R1

BNE

148:

;PRIORITY TO S TO ALLOW CLOCK INTERRUPTS

#240,R0

MOV

BIS

138:

032774

}ggg

#240

INC

014602 010137 002276

014622

SETPRI

TST
BEQ
MOV

002276

014572
014576

g}g

012701
010437

MTEST:

000240

1212
1213

%‘s’

ONCE DRIVE IS PICKED

14%

15%

BNE

998

JSR

RS ,WRPACK

ST
BEQ

°'READY'

;AFTER THE HEADS HOME COMMAND

STFLG
15

;SEE IF WRITE

SJUMP IF SET

IN PROGRESS FLAG SET

SEQ 0071

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
(8)
(7)
(6)
(3)
%)

014720
014724
014730
014734
014736

17-DEC-79

MACY11 30A(1052)

PROGRAM MAIN LOOP

000126
002274
002276

15%:

ADD
MOV
ASL
ASLB

BCC

11:31

6
PAGE 1-37

#PRPOS+2
R4

SEQ 0072
sNEXT DRIVE

R4 ,WRINIT
WRPOS
R1
16$

sSAVE CURRENT R4 POINTER
SggESHIFT COPY OF R1 POINTER
:NO GO FOR NEXT ONE

JHERE WHEN ALL FINISHED WITH THE WRITE INIT CODE
014740
014744
014744
014750
014754
014760
014762
014764
014770
014770
014774

005037

002274

012746
012746
012746
010600
104417
062706

004360
007544
000002

012700

000000

104441

014776

12%:

WRINIT
HFMT14 ,AMSTART
-#MSTART ,=(SP)
#FMT14,-(SP)
#2,-(SP)
-

000006

#6,SP

#0
#0,R0O
C$SPRI
MAIN:

JSR
MO
PEROTH: BIC

1$:

002252

2%:

R5 ,RAND

030424

TSTB

015052
015056
015060

130137
001747
010137

002252

JMP

5%:

002250

BITB
BEQ
MoV

:/CLOCK AND DRIVE INTERRUPTS
;GET A DRIVE? (LUN)
sGET THE SELECTED DRIVE (LUN)
sMASK TO DRIVES ON SYSTEM

;LET'S SEE IF DRIVE IS THERE

;YES,

170. ,NODRIV
CSERSF
170
NODRIV
0

000137

;PRIORITY TO O TO ALLOW BOTH

;HAVE WE GOT PROPER MASK YET
;YES, GO TO 2%
sNO, SHIFT FOR NEXT DRIVE
;DECREMENT DRIVE NUMBER
;GO CHECK NEW DRIVE NUMBER
sANY DRIVES ON LINE

TST

015036
015036
015040
015042
015044
015046

;CLEAR THE WRITE INIT FLAG
;MSG. "'TESTING STARTED''

SP,RO
CSPNTF

024524

015034

PRINTF

CHECK

sNO DRIVES

ENDOF PROGRAM

R1,DRUT

N
MA
R1,TSTDRV

;1S THIS DRIVE PRESENT?
:NO, GO BACK TRY AGAIN
:COPY UNIT UNDER TEST FOR LATER CHECK

;WE NOW HAVE A DRIVE, CHECK TO SEE IF ITS CONTROLLER
;1S FREE BEFORE WE GO ANY FURTHER

023737
002403
005037

104424

002406
002406

010672

CMP
BLT
CLR
DORPT
TRAP

égTERVAL.TYINT

INTERVAL

C$DRPT

:TIME FOR STATISTICAL REPORT?
INO, PERFORM FUNCTION

:CLEAR INTERVAL TO INITIALIZE TIME INTERVAL
:/BEFORE THE NEXT STATISTICAL REPORT

;PRINT STATISTICAL REPORT

CZRLKBO RLO1/02_PERF EXER

07-DEC~79 09:46

A RN
S oSS

BREKEINBFRRR

3$:

000104

) o
_—

)

VONOWVEWN=O

TAGX:

010722

) -

wgwuuuuwuwuw SRR

D
D
)

TST
BEQ
ADD

BIT
* BEQ
BIT
BNE

11:31

PAGE 1-38

#DRBUF ,R4
LONUM,R2
SYSMSK ,R2
R2
A 3
#PRPOS+2
R4

#BIT7,aDCS(RS)
MAIN
#BIT6,aDCS(RS)
MAIN

SEC 0073

;GET START OF DRIVE BUFFERS
;GET RANDOM DRIVE BACK (LUN)
sMASK TO SYSTEM SYS

;DO WE HAVE BUFFER FOR THAT DRIVE

;YES, GO CHECK ITS CONTROLLER

UPDATE FOR NEXT BUFFER
:DOWN COUNT DRIVE NUMBER (LUN)
:GO BACK AND CHECK FOR FOUND

gggTROLLER ASSOCIATED WITH DRIVE

s INTERRUPT BEEN SERVICED?
:NO
= WAIT FOR THE INTERRUPT

;WE CAN NOW PROCEED IN GETTING A FUNCTION AND RELATED DATA
;FOR THE DRIVE RANDOMLY.
R4 HAS DRIVE BUFFER POINTER

e
i

4%:

000104

) -

MOV
MOV
BIC

DEC

I
R
e
e
R
T
Rl

6%:

—d

) —d

) —d
—

i e

000012

010662

003322

002246

0000%4

010726

003365

002246

000074

010752

003407

002246

el o

9% :

10%:

1108:

003344

002246

000020

010732
002246

015276

012737

003432

015304
015310

004537
000137

023520
014776

TST
BEQ
CMP

T.DRP
GETFNC
ERRCNT
(R4) ,ERLMT

MOV

HERLMTM,
WHY -

BLO

010664

N
nN —

D
—

1323

17<DEC=79

PROGRAM MAIN LOOP

d e

1291

vivivvwviuavivviavianaun

(=lelelelelelolelelelele]

CZRLKB.MAC

MACY11 30A(1052)

BR
CMP
BLO

11%:

1%
SFTCNT(R4) ,SFLMT
108

MOV

#SFEMSG,WHY

CMP

DATCER(R4) ,T.DCD

MOV

#DCDMSG,WHY

MOV
ADD
CMP

SKECNT
(R4) ,R1
TRERR(R4)
,R1
R1,SELMT

MOV

#SERLMT ,WHY

CMP
BLO
MOV

DERCNT
(R4) ,DRLMT
GETFNC
#DERMSG,WHY

BLO
BR

BLO
7%:

JSR

JMP

:3809 ON ERROR LIMITS REACHED?

*HARD REACHED?
Ld

:SOFT REACHED?

11%

1108
11%

11%

RS.,DRDRV

MAIN

;DRIVE ERROR REACHED?
:NO = TIME TO DO SOMETHING
:DROP THIS DRIVE!!!

;GO GET ANOTHER

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)

PROGRAM MAIN LOOP

SECEERELTEE

bbb
-h

11:31

6
PAGE 2

JHERE TO GET A 'STRING' FUNCTION = LIST OF COMMANDS TO ISSUE
015314
015314
015320

010730

015322

000000

GETFNC:
8%:
TST

003611
023520
014776

024524
015372
015376
015402
015404
015406
015412
015414
015416
015420
015424

042702

C(MP

010670

BLO

MOV
ADD
cMP
BLO

002246

MOV

JSR

98%:

002262
177770

000007

022636

T.STA
98%

BEQ

000060
000062
010666

W
~N

ugwwuwwuw
SHRUKZ &%

1328

WA WWW WWWW
wvihhwviwnawn Vi
W
N
oA WN=O VONONSWNN=0O0

17-DEC-79

RXFR3(R4)
RO

:GET READ COUNT

WXFR3(R4),RO
RO, DALMT
98$

:ADD IN WRITE COUNT
SLIMIT REACHED??
:NO, THEN GO TEST

#SOPLMT ,WHY
MAIN

R5,DRDRV

:DROP THE DRIVE

JSR

R5 .RAND

sGET A RANDOM FUNCTION INDEX NUMBER

MOV

LONUM, R2

SGET IT

BNE
INC
cMP
BNE

DEC
ASL
JMP

5%:

SKCNT(R4),SKLMT ;PAST THE SEEK LIMIT??
:NO, THEN GO TEST

98%

JMP

BIC

6$:

;DO WE WISH TO DROP ON OPR LIMITS
sNO

:GO FOR ANOTHER DRIVE

;0 & 7 ARE NOT LEGIT

#177770,R2
6$
R2
#7.R2
5

R2
R2
aLIST(R2)

“MASK TO 0-7
:

“IF 0, MAKE 1
;IS IT 72
:IF 7, MAKE 6

;SHIFT LEFT (X2)
;GO TO FUNCTION ROUTINE

STARS
;:ttttttttttttttttfit'tttttttfitttttttttt*t*ttfitfittttttttttttttt"t

*SKWRT == ISSUE:
:
SEEK TO A CYLINDER

:
;

015424

STARS

015424

SKWRT:

015430

015434
015440
015444
015450
015454

WRITE DATA
WRITE CHECK

::tttttifitiitttttttttttittttttttitttt.It‘fifittfitl'ttttt'titt'ttttt

JSR
JSR

JSR
JSR
JMP

R5,SKFNC
R5,0PROK

;RANDOM SEEK LOAD
sWAIT TILL DONE

RS ,WRTCKF
R5, 0PROK
MAIN

sWRITE CHECK LOAD

RS ,WRTFNC
R5,0PROK

;WRITE DATA LOAD

sGET NEXT COMMAND

SEQ 0074

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
015460

MACY11 30A(1052)

17-DEC-79

PROGRAM MAIN LOOP

11:31

6
PAGE 2-1

SEQ 0075

STARS
AR AR AR R AR AR AR

A AR AR AR R

AR AR AR AR

AR AR

:SKRD == ISSUE:

015460

STARS

015766
015540
016500
015540
014776

015504

RN AR AR

SKRD:

JSR

AR RRRRAR R AT RN RRRRRARRRERR AR AR

RS, SKFNC

JSR
JSR
JSR

RRARRRRRRARAR AR RN

;LOAD SEEK

R5.,0PROK
R5 ,RDDFNC
R5,0PROK

JMP
AR

;LOAD READ DATA (MD

MAIN

;GET THE NEXT COMMAND

A AR R

A AR

A AR AR AR AR AR A AR AR AR AR AR AR AR AR AR

:SKRDRD == ROUTINE TO DO:

SEEK TO A CYLINDER
READ (AND COMPARE DATA)
READ (AGAIN)

:
:
:

STARS

—IE-NI—. -

-t

STARS

—_——

LS
L #OEEES

1379

015460
015464
015470
015474
015500

RANDOM SEEK TO A CYLINDER
READ DATA

:
:

015766
015540

1393

014776

AR R AR RN RN AR

SKRDRD: JSR

JSR
JSR
JSR
JSR
JSR

JMP

RS, SKFNC

R AR R AR R AR AR RARRRRRRRRRRRRRRRARRARRRR
AR AR

RS, 0PROK
R5 ,RDDFNC
RS5,0PROK
RS ,RDDFNC
R5,0PROK

MAIN

;LOAD SEEK

;LOAD READ
;LOAD READ

JEXIT

CZRLkBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)

17-DEC=79

PROGRAM MAIN LOOP

11:31

PAGE 2-2

SEQ 0076

015540

STARS

015540

OPROK == ROUTINE TO ISSUE THE FUNCTION AND WAIT FOR 'READY'...IF AN
ERROR RETRY 1S NEEDED = THEN ISSUE THE FUNCTION AGAIN.
STARS

015540
015544

016574
024340
002250

:
OPROK

002252

014776

015566

000036

1%:

016542

2%:

000114

3%:

015766
015616

AR AR AR AR

tt*ttt*ttttittttfitfittt"t'ttfitlttttflttfi"Q*ttittttttttttt'titt'

015562
015572

AR A AR AR A AR AR AR AR AR AR A AR R AR A AR A AR AR AR

4%:

JSR
JSR
BITB
BNE
TST
JMP
TST
BEQ
JSR
BR
TST

BEQ

JSR
BR
RTS

R5.,LDFUNC
R5,WTRDY

TSTDRV,DRUT
1%
(SP)+
MAIN
RETRY(R4)

38
R5,1SSUE

OPROK
RSEEK (R4)
4%
R5, SKFNC
OPROK

s ISSUE _THE FUNCTION
sWAIT TILL READY

;DRIVE STILL AVAILABLE?

:YUP = CONTINUE
:NO = FIX THE STACK
sBACK TO THE MAIN LOOP = FORCED EXIT FROM
sTHE STRING FUNCTION

:zSED TO RETRY FUNCTION?

;YES = ISSUE THE FUNCTION AGAIN
sAND DO IT

:SEEK RETRY?

sNO = EXIT NOW
;DO A SEEK AGAIN

éi??f € EXECUTE THE SEEK

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)

17<DEC=79

PROGRAM MAIN LOOP

015620

STARS

IRERRERRERRARR AR

11:31

M6
PAGE 2-3

AR AR

ERRRRRARR AR RRRARRRRRARARRARRRRR
AR AR AR

SEQ 0077

SKRH == ]SSUE:

:
:
;
.

SnARS

RANDOM SEEK
READ HEADERS
READ DATA W/NO HDR CMP
GET STATUS

IRERRRRARRRRARARR AR

SKRH:

AR RRRRRARARARRRRARARAARARANARRRRARRAR

JSR
JSR
JSR
JSR

R5,SKFNC
R5,LDFUNC
RS ,WTRDY
R5 ,RDHFNC

;LOAD READ HDRS

JSR
JSR

R5,WTRDY
RS ,RDNHC

;LOAD READ W/NO HDRS

JSR
JSR

JSR

014776

JMP

R5.,LDFUNC
R5.,LDFUNC
R5,WTRDY
R5,GSTFNC

R5.,LDFUNC
RS ,WTRDY

MAIN

;LOAD SEEK
; ISSUE

s ISSUE
s ISSUE

;LOAD GET STATUS

s ISSUE

;GET THE NEXT COMMAND

STARS
tttt*ttttfi'tt*ttttttttttttt*tttttttttthfittitttitt*iit*filt'*tttt

SREAg DATA W/NO HDR COMPARE

015704

ttttttttfit'titttttttt*ttittttitt.*ttfitttttt*ttttttttttt'tttttti

015704
015712
015720

012764
012764
000137

177600

000016
016542

000042
000044

015724

RDNHC:

MOV
MOV
JMP

#-128. ,BMP(R4)
#16,FUNC(R4)
ISSUE

;SET FOR A 1 SECTOR READ
;LOAD THE COMMAND
:PROCESS IT

STARS

AR AR A A AR A AR AR AR AR AR AR AR AR AR RAR A AR

A AR AR

AR AR AR AR AR

;WRTCKF = WRITE CHECK FUNCTION
STARS

015724
015724
015730
015732

005737
001401
000205

010734

015734
015742

012764
000137

000002
016542

000044

R AR RN

WRTCKF:

1$:

TST

AR RAR AR RRAR

AR RN AR AR

AR RARRRRRR KRR

BEQ
RTS

T.ROF

1%
RS

sREAD ONLY SET?

MOV
JMP

#WRCHK ,FUNC (R4)
ISSUE

;SAVE (MD
;PROCESS IT

:NO - DO THE WRITE-CHECK FUNCTION
;YES = EXIT NOW

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
-07=-DEC=79 09:46

MACY11 30A(1052)

11:31

PAGE 2<4

SEQ 0078

ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK

015746

s%g;gL

ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK

SRR

AR AR A AR AR AN R

AR AR

AR A AR AR

AR A A AR AR AR AR AR A AR AT RA AR

R AR

AR AR AR ARk

;GET STATUS FUNCTION

015746
015746
015754
015762

17-DEC=79

STARS

012764
012764
000137

000004
000003
016542

000044
000040

GSTFNC: MOV

MOV
JMP

015766

STARS

015766

:SEEK FUNCTION
SARS

SRR

AR AR A AR AR AR

#GSTAT ,FUNC(R4) ;LOAD GET STATUS

#GSBIT ,BDA(R4)
ISSUE

AR AR A AR R AR

;SET GSBIT IN COMMAND WORD
:GO ISSUE FUNCTION

AR AR AR AR AR AR AR A AR A AR AR

AR AR AR AR AR A AR AR AR AR RARRAARA AR

AR AR

AR AR AR AR

AN d

A AR AR

;WE WILL CALL "RAND'' FOR A NEW DISK ADDRESS TO SEEK
;TO. ANY TRACK BUT LAST IS LEGAL. WE WILL ALSO INCREMENT
sITS SEEK COUNT
000114

SKFNC:

000036
000050
000124
000100
000100

108:

024524

98$:

TST

RSEEK (R4)

sTRYING TO RECOVER

TST

RETRY (R4)

:RECOVERY FROM A *DRIVE' ERROR?

MOV

LSTHDR(R4)
,R1T

BNE

BEQ

177700

000100

010237
004537
005737
001340

002342
027274
002340

9818:
982%:

96$:

;YES SET UP FOR RESEEK
:TO CYLINDER

BR
JSR
MOV

43
R5 ,RAND
LONUM,R2

:SKIP RANDOM PART
:GET A RANDOM NUMBER
:GET THE RANDOM NUMBER

R2,PRPOS(R4)

:ON THAT TRACK ALREADY

#100,R1
#100,R2

BIC

SMSK ,R2

BEQ

98$

:HEAD SET IN LATER
H
'

SLEAVE CYL AND HEAD
*YES = RESELECT

C(MP

#1,TDR(R4)

:THIS DRIVE AN RLO1?

BNE

968

*NO
- PROCEED

BNE
BIC
cMP

B8R
C(MP
BNE

981s
#BIT15,R2
#077700,R2

*NO - MUST BE AN RLO2
*KILL UPPER BIT OF CYL ADDRESS
*POINTING TO THE BAD SEC FILE?

982%
#177700.R2 .
96$

:YUP - CORRECT THE POSITION
*RLO2 BAD SECTOR FILE?
~o PROCEED

BIC

#HEAD ,R2

:POINT TO HEAD 0 LAST TRACK

MOV
JSR
TST

R2,CHKSEC
R5,CKBDTK
HDRFND

sSAVE THE ADDRESS FOR THE BAD SEC FILE CHECK
:SEE IF THIS ADDR IN BAD SECTOR FILE

NOP

BNE

077700

:NO- NORMAL SEEK REQUIRED

PRPOS (R4) ,R2

9808:

98$

:YES = DO IT

MOV

BIC
BIC

000120

108

98%

: TRAP

WAS IT?

sYES = RESELECT THE ADDRESS

CZRLKB.MAC
1511

016124

1513

0161

810;88

1514
1515
1516
1517
1518
1519
1520
1521
1522

023737
001011
013702
022764
001031
042702
000426
042702
023702

1523

016176

10301C

1526 016200 005203

177677

010710
000001 000120
100000

016202

020327

1527
1528
1529
1530

016210
016212
016216
016220

006202
062702 000200
000763
023702 ~10712

1526 oqezoe 001706

016224
016226

958:
9%4$:

000012

918$:
938:

1533 016230 020327 000012
1534 016234 001673
1535

016236

006302

1537
1538

016242
016246

016401
042701

000124
000177

1542

016266

016464

000124

1544

016300

050064

000124

042764

000100

000124

052764

000100

000124

010264

1545
1546
1547
1548

023737 010704
001012
005737 010704
001004

1549

016304
016312
016314
016320
016322

1550 016330 000403

1551

016332

000124

PAGE 4

R2,R0

:COPY ADDRESS = NO SECTOR YET

CMP
BNE
MOV
CTMP
BNE
BIC
B8R
BIC
(MP

T.MXC, T.MNC
958
T.MXC,R2
#1,TDR(R4)
92§
#BIT15,R2
928
MHEAD ,R2
T.MXC.R2

nm AND M'Y CYLINDERS THE SAME
BRANCH AND STAY IN LIMITS
ms CYLINDER MAX/MIN
*DRIVE = RLO1?
*NO
. sFORCE CYL TO PROPER LIMIT
+GO CALCULATE DIFF AND SEEK
*STRIP OUT H.S. BIT
*1S ADDRESS LESS/EQUAL THAN MAX

INC

*BUMP A TALLY COUNTER

BEQ

98$

*RESELECT

BHIS

928:

000050

258:

010706

93s

R3,4#10.

*YES, CHECK LOW END

:IF CAN'T FIND ADDRESS IN 10 TIMES THEN RESELECT

CMP
BEQ

R3,410.
98$

:TIME TO RESELECT?
SYUP = DO IT NOW

918

*GO CHECK MAX/MIN AGAIN

#1,TDR(R&)
258
#BIT15,R2

:RLO1=1
*BRANCH.
. .MUST BERLO2
:CLEAR THE HIGH BIT FOR RLO2 CYL #

R2.PRPOS(RG)

;NEW HEADER AFTER SEEK

T.MXH, T.MNH
3
T.MXH
97%

mu AND MAX HEAD SELECT THE SAME
THEN WE CAN USE BOTH SURFACES
uucn IS OUR SURFACE FOR USE
*TOP SURFACE BRANCH

BLOS
INC

MOV
BIC

cTMP
BNE
BIC

MOV

92
R3
R2

PRPOS(R4),R1
#177.R1

*HALF IT AND CHECK AGAIN
*JUST TO MAKE NON ZERO
:GO BACK AND CHECK AGAIN
+1S MIN GREATER/EQUAL THAN ADDRESS
*YES, CALCULATE DIFF AND SEEK

*NO, DOUBLE IT

:GET PRESENT DISK POSITION

PRPOS (R4) ,LSTHDR(R4)

BIS

RO.PRPOS(RG)

BIC

#HEAD ,PRPOS (R4) :LOWER SURFACE ONLY

BIS

#HEAD ,PRPOS (R4) ;TOP SURFACE ONLY

‘

:LEAVE ONLY HEAD

R2
#BIT7.R2
958
T.MNC.R2

cMP
BNE
ST
BNE
97%:

#177677 R0

ASR
ADD
B8R
(M

ASL

1539 016252 022764 000001 000120
1540 016260 001002
1541 016262 042702 100000
1543 016274

CLR

101406
005203

1536 016240 000764

11:31

MOV
BIC

010710 010712

000100
010710

17-DEC-79

ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK
908:

1525

1531
1532

MACY11 30A(1052)

005003

1s1§ 0161

016134
016142
016146
016150
016156
016160
016164
016166
016172

;

:SET IN RANDOM HEAD GOTTEN

SEQ 0079

~ o~

CZRLKBO RL01/02 PERF

CZRLKBO RLO1/02 PERF %ER

CZRLKB.MAC

07-DEC~79

09:46

MACY11 30A(1052)

17-DEC=79

11:31

PAGE 4~1

1553

016340

STARS

15
1555

016340

*CALCULATE THE DIFFERENCE WORD AND STORE IT IN BDA
§TAR

(gz

(

)

1557 016340

ttttt..tQtt.tttttttttt'ttttttt.tttttttt..tt..ttttt.ttttfit.t'tt'

tt'tttttttttQtttQitt"t'ttttt.ttttti.tttQtt..'ttttt.t.tt'tt'ttt

16010%
10300

1558

016342

1561

016350

052702

000004

1563

016360

032764

000100

1566

016374

010264

000040

1568

016404

012764

000006

1559 016344 005402
1560 016346 000402
1562

016354

052702

000001

1564 016366 001402
1565 016370 052702 000020
1567 016400 010264

000066

1569 016412 000137 0165642

SEQ 0080

ROUTINES TO SETUP AND ISSUE GET STATUS € SEEK

48:
18:

000124

28:
3$:

000044

SUB

R1.R2

| ;SUBTRACT PRESENT FROM NEXT

NEG
B8R

R2
2

*NEG RESULT, NEGATE
IT
*GO SET DIRECTION OUT

BCC

*IF POSITIVE RESULT GO TO 1$

BIS

#SIGN,R2

BIT

#HEAD, PRPOS (R4) :WHICH SURFACE SELECTED?

MOV

R2.,BDA(R4)

BIS

BEQ
BIS

MOV
MOV

JMP

MK R2

*DIRECTION OUT, MARKER

*MARKER BIT

3s
#SKHS ,R2

:TOP, THEN 3%
*BOTTOM SET HEAD BIT

R2,DIFWD(R4)

:LOAD DIFFERENCE WORD

#SEEK,FUNC(R4)

I1SSUE

JMOVE DIFFERENCE WORD TO DA
:LOAD SEEK

CZRLKB.MAC

MACY11 30A(1052)

07-DEC~79 09:46

.SBTTL
016416
016426

012764 000010 000044
000137 016542
-

}g;g
005737
001021
004537
005737

010734
025764
010674

WRTFNC: TST
BNE
JSR
TST

}ggz

016450

005237

002306

INC

BEQ

1585

.FOWT

1588
1589

8Li 5

T.ROF
RDDFNC
R5,GWCDA
CMRD

sREAD ONLY
;YES
;GET WORD COUNT,DA
: COMPARE DATA ON A READ?

REGEN

;YES = SET THE GENERATE DATA FLAG

)

sNO = SO DON'T GEN A WRITE BUFFER

:
:
016454
016460
016466
016474

004537
012764
012764
000137

;

022370
000012
000001
016542

000044
000122

1$:

WORD 1 - # OF WORDS IN SECTOR

:
:

WORD 2 - ADDRESS OF PATTERN WRITTEN ON SECTOR
WORD 3 = 127 DATA PATTERN

JSR
MOV
MOV
JMP

RS, WRBUF
MIRITE ,FUNC(R4)
#1 ,WRIPG(R4)
ISSUE

;WRITE BUFFER INTO MEMORY
:LOAD WRITE
;SET THE WRITE IN PROGRESS FLAG
:GO ISSUE FUNCTION

}ggg

.SBTTL

1599
1600
}%}

sTHIS ROUTINE WILL FIRST CLEAR OUT THE BUFFER AREA,
sSELECT A RANDOM NUMBER OF WORDS TO READ AND A
sRANDOM SECTOR ON THE PRESENT CYLINDER TO READ FROM

1603
1604
1605
1606
1607
1608
1609
1610
1611
1612

;TO WRITE OUT TO DISK

1587

1391

.UE NOW HAVE SECTOR AND WORD COUNT, LET'S WRITE BUFFER IN MEMORY

1586

1592
1593
1594
;lggg

SEQ 0081

ROUTINE TO LOAD WRITE DATA COMMAND

016430
016434
016436
016442

001404

PAGE 4-2

RDHFNC: MOV
#RDHDR ,FUNC(R4) ;LOAD READ HEADER
—JMP____ISSUE
p——
o
SRS
.SBTTL

016446

ROUTINE TO LOAD READ HEADER AND ISSUE IT

1578
1579
1580
1581
1582

11:31

ROUTINE TO LOAD READ HEADER AND ISSUE IT

}g;}
1573
f‘?g;g

17-DEC-79

016500
016504
016510
016512
016516
016522
016524
016526
016530
016536

004537
005737
001407
016402
017401
005021
005202
001375
012764
000137

025764
010674
000042
000110
A
000014
016542

000044

ROUTINE TO LOAD READ DATA COMMAND

RDDFNC: JSR
TST
BEQ
MOV
MOV
1$:
CLR
INC
BNE
2%:
MOV
JMP

RS ,GWCDA
;GET WORD COUNT, DA
CMRD
:GOING TO COMPARE DATA AFTER READING?
2%
sNO = SO SKIP THE CLEAR BUFFER CODE
BMP(R4) ,R2
sCLEAR OUT BUFFER AREA
aBBA(R4) ,R1
:SO WE KNOW READ
(R1)+
:WORKED! !
R2
3
1%
#READ ,FUNC(R4)
;LOAD READ
ISSUE

CZRLKBO RLO1/02_PERF EXER

CZRLKBO RLO1/02 PERF EXER
0o

d e
d
)
—

.SBTTL

D e

002326
000100

—d

D e

000104

002324

ONORA
o ONONONOn
o OV o
AT
AT AT
A
QETHRERTA S

SEQ 0082

SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING

;WE COME HERE BEFORE ISSUING ANY FUNCTION SO THAT ON INTERRUPT
;WE CAN PROPERLY PROCESS THE INTERRUPT.
WE WILL CHECK WHICH
s CONTROLLER WE ARE WORKING WITH AND STORE OFF THE DRIVE BUFFER
:POINTER IN ITS ‘LSTDR''

D d

FEREBRENLL

d e

(o Yo Yo Yo o

07-DEC~79 09:46

L ols
RNTo
JqV, ] ~

D D—

CZRLKB
. MAC

17-DEC-79 11:31
MACY11 30A(1052)
PAGE 4=3
SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING

016572

002320

ISSUE:

(1)§S (R4) ,CNTLR1
R4 ,LSTDR1

000044

1%:

MoV

2%:

BIS

RTS

.SBTTL
STARS

016574

C(MP

R4 ,LSTDR2

:éNTEN.FLNC (R4)

sDRIVE ON CONTROLLER 1?
:NO, ASSUME ON CONTROLLER 2
:PUT BUFFER POINTER IN 1
:SKIP OVER NEXT INSTRUCTION
:PUT BUFFER POINTER IN 2

.e’L(lI.(TN INTERRUPTS

ROUTINE TO LOAD FUNCTION

AR AR A AR AR AR AR A AR AR AR

AR A AR AR AR AR AR

AR A AR AR A AR AR AR AR AN

R5 ,LDFUNC
_JSR
;CALL
sALL INFORMATION MUST BE SET UP IN DRIVE BUFFER

;R4 HAS POINTER TO BUFFER

016574

STARS
s

016574
016600
016604
016606
016606
016610
016612
016614

000104
000200

AR AR AR AR AR A AR

LDFUNC: MOV
BIT
BNE

A A AR AR AR AR A AR A AR

AR AR AR AR AR AR AR AR AN AR

DCS(R4) ,R3

:GET CSR FOR DRIVE

;YES, GO ISSUE COMMAND

#BIT7,(R3)

200. ,PRGER

CSERSF
200

AR AR

;CAN WE ISSUE COMMAND?

;THIS ERROR SHOULD NEVER PRINT

PRGER

aBBA(R4) ,BA(R3) ;LOAD BUS ADDRESS REGISTER
BDA(R4) ,DA(R3)
;LOAD DISK ADDRESS REGISTER
BMP(R4) ,MP(R3)
;LOAD MULTI-PURPOSE REGISTER
FUNC (R4) ,BCSADR(R4)
DRSEL (R4) ,BCSADR(R4)
#CRDY !DRDY ,BCSADR(R4)
#OP] ,BCSADR(R4)
BCSADR(R4) ,CS (R3)

agnov,CS(R%)

JEXIT

:GET FUNCTION
:SET DRIVE SELECT BITS
;SET CRDY:DRDY IN IMAGE

;WE'RE CLEAR BIT 10 FOR DRIVE 7-4 (OKAY?)

:LOAD CSR
s ISSUE FUNCTION

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46

MACY11

1655
1656

.SBTTL

1657

D
d
d d e
—

PAGE 4=4

SEQ 0C83

INTERRUPT SERVICE ROUTINES

sCLOCK INTERRUPT HANDLER

016706
016706

010446

016710
016716
016720

022737
001004
042737

SRRLERERRRERS

1660

17-DEC=79 11:31
30A(1052)
INTERRUPT SERVICE ROUTINES

016726

;UPDATES TIME EVERY 1/60 SECOND (60 HZ) OR EVERY 1/50 SECOND (50 HZ)
BGNSRV UPDATE
R4 ,=(SP)
: SAVE R4
MoV
:CLEAR CLOCK INTERRUPT ENABLE TO INMIBIT CLOCK INTERRUPTS DURING UPDATING
:OF TIME FIELDS

CMP
BNE

000001

002314

000100

172540

000100
002410

177546 18:

002312

000002

BIC

000062

BIC

- #100,a#177546

MOV

#TICK R4

INC

3$:
4$:

000074
002406

017014
017016
017020
017022

022737
001004

03
800405
37

0527
012604

000002

EXIT2:

002510

002512
002506

002510

000001

002314

000100

172540

000100

177546

7%:

ENDSRV

L10025:

:INCREMENT TICK TIME FIELD

48
(R&) ,#60.
EXIT2

BRANCH TO UPDATE '‘SECOND'' TIME FIELD
+((R&))=60?
:IF NOT,UPDATING IS COMPLETE

CMP
BNE

(R4) ,#60
EXIT2

CLR
TST
INC

(R&)
(R4)+
(R&)

CLR
TST
INC

(R&)

(R&)
(R4)+
(R&)

ELSE ((R4))=0 (RESET COUNT)

*ELSE, ((R4))=0 (RESET COUNT)
: (R4)=(R4)+2 (GO TO NEXT TIME FIELD)

* INCREMENT ‘'SECOND'* TIME FIELD

* ((R&))=60?
*IF NOT,UPDATING IS COMPLETE

INTERVAL

: INCREMENT INTERVAL TIME FIELD (STORES

:/RUNNING TIME BETWEEN STATISTICAL REPORTS)

“ELSE, ((R4))=0 (RESET COUNT)
ACCESS 'MINUTE'* TIME FIELD
: INCREMENT ‘MINUTE'® TIME FIELD

CMP
BNE

(R&) ,#60.
EXIT2

TST

(R&) +

DEC

CLKBFR

*COUNT CLOCK TICKS

INC
MOV

CLKACC
CLKCNT,CLKBFR

*BUMP ELAPSED TIME
:RE-INITIALIZE TIME INCREMENT

INC

BGT

CMP
BNE
g}*s

6$:

*INITIALIZE TICK ADDRESS

BR
cMP
BNE

:RE-ENABLE

§s:

;DISABLE L-CLOCK INTERRUPT FACILITY

:50 HZ CLOCK?
*NO--BRANCH FOR SERVICING 60 HZ CLOCK
*((R&))=50?
*IF NOT,UPDATING IS COMPLETE

CLR

005337
003005
005237
013737

:DISABLE P=CLOCK INTERRUPT FACILIVY

CLKFRQ,#2
3s
(R&) ,#50.
EXIT2

INC

000074

(R&)

:P=CLOCK?
*BRANCH IF NOT P=CLOCK

cMP
BNE
CMP
BNE
CLR

017010

noo 172540

:UPDATE yane nsz
2s:

000074

#1,CLKTYP
18’

BIS

MOV
RTI

(R&)

: ((R4))=60?
+IF NOT,UPDATING IS COMPLETE
:ELSE,({R4))=0 (RESET COUNT)
:ACCESS "HOUR'* TIME FIELD

= INCREMENT 'HOUR'* TIME FIELD

*TIME NOT EXPIRED

CLOCK INTERRUPT FACILITY

#1,CLKTYP
6$

;;00.30172540
#100,a#177546

(SP)+,Ré

:P=CLOCK?
*BRANCH IF NOT P-CLOCK

E)E(}TP-CLOCK INTERRUPT ENABLE BIT
:SET L-CLOCK INTERRUPT ENABLE BIT

*RESTORE R4

MACY11 30A(1052)
17-DEC=79 11:31
.
INTERRUPT SERVICE ROUTINES

NO VI

v M aN=O

NN
YNNG S ININYY

S OV

d
e
D
D
d
)

017110

005237

PAGE 4=5

SEQ 0084

;L=CLOCK "TICK'* CHECK ROUTINE FOR LSI-11

BGNSRV

002514

CLKTIK
INC

CLKFLD

s INCREMENT CLOCK FIELD TO INDICATE THAT
:/CLOCK IS "TICKINGTM

ENDSRV

000002

L10026:

BGNSRV

RTI

INTR1
?

;ON_INTERRUPT WE CHECK FOR ERRORS FIRST, IF NO ERRORS WE
CHECK FUNCTION PERFORMED. WE ACT ACCORDING IF FUNCTION IS:
1=

"3-

b e

017110

NN
N

_— =
D

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC.
07-DEC-79 09:46-

6~
’=

WRITE CHECK = NOTHING IF NO ERROR

GET STATUS = READ AND CHECK DRIVE STATUS
SEEK = NOTHING RTI;

SET RD HDR AS NEXT COMMAND

RDHDR = COMPARE HEADER TO PRESENT POSITION
WRITE = UPDATE XFER COUNT, EXIT
READ - COMPARE DATA IF REQUESTED, UPDATE XFER COUNT, EXIT
READ W/NO HDR COMPARE = UPDATE XFER COUNT, EXIT

ALL SUCCESSFUL EXITS FROM INTERRUPT ROUTINE TEST RETRY
sLIMIT IF RETRY IS LESS THEN LIMIT THEN LOG SOFT ERROR, CLEAR RETRY

'lF RETRY = 0, THEN NOTHING

DO:

GET STATUS = INVESTIGATE ERROR TYPE

:ON ERRORS - IF DRIVE ERROR
- UNDER NON-INTERRUPT

:’

DO:

DRIVE RESET = IF ERROR OCCURS AGAIN - FATAL ERROR

DRIVE ERROR IS LOGGED UNDER ALL CIRCUMSTANCES

IF NO ERROR, EXIT

IF DCRC, HCRC, HNF CHECK BAD SECTOR LIST, IF
IGNORE ERROR EXIT AS NORMAL, IF NOT IN LIST
INCREMENT RETRY; IF RETRY LIMIT EXCEEDED
LOG HARD ERROR, ELSE RETRY FUNCTION
IF OPI_NXM INCREMENT RETRY CHECK RETRY LIMIT
IF RETRY EXCEEDED LOG HARD ERROR EXIT
IF RETRY NOT EXCEEDED RETRY FUNCTION

IN LIST

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC

07-DEC-79 09:46

MACY11 30A(1052)
17=-DEC=79 11:31
INTERRUPT SERVICE ROUTINES

INTR1:

010446
013704
000403

INTRZ:
SAVE:

R4 ,=(SP)
LSTDR1,R4
SAVE
R4, =(SP)

LSTDR2,R4
E.CS,=(SP)
E.BA.=(SP)
E.DA,=(SP)
E.MP.=(SP)

PAGE 4-6

s SAVE PRESENT R4 VALUE

;GET THE DRIVE BUFFER OF INTERRUPTING DRIVE
;GO SAVE RO-R3
:SAVE PRESENT R4 VALUE
;GET THE DRIVE BUFFER OF _INTERRUPTING DRIVE

E.MP1,=(5P)
CHKSEC,=(SP)

HDRFND ,=(SP)

TEMP1,-(SP)

WHY
, = (SP)

002420
020432

002420
002422
002424
002426
002430
002432

OPCALL ,=(SP)
INCALL ,=(SP)
R3,-(SP)
R2,=(SP)
R1,-(SP)
RO,=(SP)
WRIPG (R4)
DCS(R4) ,R3

;SAVE R3

:R2

;R1
;RO

;CLEAR THE WRITE IN PROGRESS FLAG
sGET CSR FOR INTERRUPT
sSAVE ALL REGISTERS NOW!!

;ANY ERRORS?
:
;YES, GO SOLVE ERROR MYSTERY
:NO, GO SEE IF WE HAVE TO DO ANYTHING

SEQ 0085

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC

07-DEC=79 09:46

wOVONOWVHTWN=O

o
i

b
i
i
-

i cd aud

D cd e

b e

OO Lol IR PR RS RR S,

1787
1788
1789

MACY11 30A(1052)
17-DEC=79 11:31
PAGE 4-7
CONTROLLER ERROR CHECK ROUTINE
.SBTTL

SEQ 0086

CONTROLLER ERROR CHECK ROUTINE

;U$ HAVE SOME SORT OF ERROR LET'S FIND OUT WHICH ONE

SIT

017312

002424
040000

000064
002420

1$:

021420
000001

002420

28%:

024432
000100
000034

IS,

MOV
BIT
BEQ

E.DA,LSTDA(R4)
#DERRE.CS
2$

BIT
BNE
JSR

#DRDY ,E.CS
238
RS,GETDST

JMP

CKDERR

BIC
cMP

#100,R1
R1,4%4

BEQ

INC

000012

ERRDF
TRAP

238

.WORD

017374
021254

017402
017410
017412
017420
017424

020000

002420

004346
000034
020036

000052

23$:

032737
001020

014000

002420

017440
017446

032737
001006

002000

002420

017450
017450
017452
017454
017456
017460
017460
017462

3$:

017464
017472
017476

004341
000030

000052

4$:

*WAS 34 SKIP ERROR

:INDICATE HARD ERROR

CSERDF

1000

JMP

EXITI

BIT
BEQ
MOV

#NXM,E.CS
;NON-EXISTENT MEMORY?
3$
*NO, KEEP CHECKING
#MTNXM,RTYPE
(R4)”" ;ERROR MESSAGE

ERR9

INC

NXMCNT (R4)

BIT
BNE

#BIT12!BIT11,E.CS
;QUALIFING BITS SET?
5%
:YES, CAN'T BE OP] ALONE

BIT
BNE

#OPI,E.CS
4$

;0P] SET?
*YES, CONTINUE

0. UDERR,ERRT

;WE HAVE AN UNDIAGNOSABLE CONDITION, ONLY COMPOSITE SET

¢ ERRSF

338:

:GET RID OF HEAD
*ALLOW ONLY SEEK TRACKING STATE

NORDY

JMP

017430
017436

*YES, CONTINUE CHECKING
*NO,GET DRIVE STATUS

"WORD

.WORD

017376

ERRCNT (R&4)

1000. ,NORDY ,ERR9

;SAVE DA FOR SOFT ERROR PRINT
:DRIVE ERROR?
*NO, CONTINUE
*YES, GO CHECK DRIVE ERROR
:DRIVE READY THERE

TRAP
.WORD
.WORD
.WORD

BREAK
TRAP

1118

CSERSF

:LOG ERROR

*CHECK RETRY, EXIT BACK

UDERR
ERR1
($BRK

338

MOV

#MTOPI ,RTYPE (R4) ;SET UP FOR 'OPI'* PRINT

INC
BR

OPICNT(R4)
1118

*LOG ERROR
“CHECK- RETRY EXIT BACK

;WE KNOW IT'S NOW EITHER DLT, DCRC.HNF, OR HCRC

*CHECK FOR EACH
017500
017506

032737
001060

002000

002420

58%:

BIT
BNE

#OP] ,E.CS
7%

;OP] QUALIFIER SET?
sYES, THEN IT'S HCRC OR HNF

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

.
J_
7
MACY11 30A(1052)
17-DEC-79 11:31
PAGE 4-8
CONTROLLER ERROR CHECK ROUTINE

1834

;IT'S NOW DOWN TO DLT OR DCRC
017510

002420

032737

017532
002342

#DLT,E.CS

:DATA LATE?

MOV
DEC

E.DA, CHKSEC
LSTDA(RG)

;SET UP SECTOR TO LOOK FOR
:DOWN COUNT FOR PRINT OUT

JSR

RS, CKBDSC

BNE

1108

BEQ
MOV
INC
BR

000052

017534

BIT

6$:

DEC

000052

1178:

000044

017610
017614
017616
017616
017622
017626

010720
012746
012746
012746

INC

003265
007544
000002

:WAS HEADER THERE?

DCRCER(R4)

:CHECK BAD SECTOR LIST

- IGNORE ERROR, RETURN
:ACCOUNT FOR ERROR

T.DCK

PRINTF
MOV

#FMT14,#DMPDCK
#DMPDCK
, = (SP)

TRAP
ADD

CSPNTF
#6,SP

B8R

2 EREERERE

HDRFND

TST

BEQ

JSR

1860

:DOWN COUNT FOR LOOP UP

#MTDCRC ,RTYPE (R4) : SET UP FOR ‘DCRC'' PRINT

MOV
MOV
MOV

000006
026272

CHKSEC

MOV

CMP
BNE
BR
1188:

6%
*NO, MUST BE DATA CRC
AMTDLT ,RTYPE(R4):SET UP FOR 'DLT' PRINT
DLTCNT(R&)
:LOG ERROR
1118
:CHECK RETRY, EXIT

#INTEN'WRCHK
, FUNC (R4)
1188
1118
1118

:DUMP BUFFER?

*NO, EXIT

#FMT14,~(SP)
#2,-(SP)
SP,RO

. RS.DMPBUF

1118

:DUMP BUFFER

SEXIT

;IT'S NOW EITHER HNF OR HCRC.
:IF HCRC AND RDHDR, DETERMINE IF BAD SECTOR BY DOING 40 RDHDRS
:IF HCRC AND R/W, CHECK IF DA IS IN BAD SECTOR FILE
:IF HNF READ HEADER TO VERIFY IF ON CORRECT CYLINDER
:THEN IF ON CORRECT CYLINDER SEE IF DA IS A BAD SECTOR
:IF NOT ON CORRECT CYLINDER REPORT MISSEEK, LOG MISEEK
:AND PRESENT POSITION UPDATE.
017650
017656
017660
017664
017670

017710
017714
017716
017720
017724

032737

010000

000051

002420

7%:

8s:

BIT
BEQ
MOV
JSR
MOV
BIS
MOV

#HNF E.CS
1128
#41. ,R1
RS,ISDRST
DRSEL(R4),R2
#RDHDR ,R2
DCS(R4) ,R3

JSR
DEC
BEQ
ST
BM]

RS.WTRDY
R1
9%
CS(R3)
8$

MOV

R2,CS(R%)

. :HEADER NOT FOUND SET?
*NO IT MUST BE HCRC
:ALLOW FORTY READ HEADERS TO,
:FIND CYLINDER
*READ HEADER

; ISSUE READ- HEADER

SWAILT
:DONE 40 OF THESE?
*YES, GIVE UP WE DON'T HAVE ALL DAY
*1S ERROR SET?
*YES, GO DO IT AGAIN

SEQ 0087

K 7
MACY11 30A(1052)
17-DEC-79 11:31
PAGE 4-9
CONTROLLER ERROR CHECK ROUTINE

MOV
MOV

017726
017732
017736
017742
017746

SMSK ,R1

BEQ

108

CMP

017750
017754
017754
017756
017760
017762

INC

000036

020000

000410

020002

013737

9%:

104456

CSERHRD
20
TRACK
ERR2

: TRACKING DRIFT ERROR

JMP

SKRETRY

sFIX TRACKING ERROR

002342

10%:

S
O
O

000032
004314

TRAP

118:
1118:

EXHAUS

ERR1

1108

MOV

;WE CAN'T FIND GOOD HEADER ON THIS TRACK

E.DA,CHKSEC

JSR

RS, CKBDTK

;GO CHECK BAD SECTOR FILE

BEQ

11$

:NO, LOG IT EXIT

HDRFND

*WAS IT THERE

GOERRX

INC
MOV

HNF ERR (R4)
:LOG IT
#MTHNF ,RTYPE (R4) :SET UP FOR "HNF'' PRINT

GOF IN

:YES IGNORE ERROR
SEXIT

000052

CSERHRD

.WORD

110$:

ERRHRD 30. ,EXHAUS ,ERR1
.WORD

002424
027274
002340

TRERR(R4)

:GET _HEADER
:SAVE FOR ERROR REPORTING
sMASK OUT SECTOR BITS
:1S CYLINDER HEAD CORRECT?
;YES, GO CHECK BAD SECTOR LIST

TRAP
.WORD
.WORD
.WORD

.WORD

002773
005070

-d

017770
017770
017772
017774
017776

b o

020750

R1,PRPOS (R4)

SEQ 0088

20., TRACK,ERR2

ERRHRD

017764

MP(R3) ,R1
R1,C.HDR -

BIC

~
~ ~ ~ 00 00 0o 00 0o O

e YT

0080000800
00T
AAAAQ%
VIV
SO
oo
v ONONWES
WN N
o N\) = 28EEE
N—DSOQVOU\‘\WN—UO 3233335383 \nunn$;o<ngiyg<>

— —

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

*IT WAS A HEADER CRC ERROR, FIGURE OUT IF IT WAS

e I

:ON A READ HEADER OR READ/WRITE

020040
020046

022764
001417

000110

000044

020050
020056

013737
004537
005737
001401
000554

002424
027216
002340

002342

0
020070
020072
020076
020104

020106

000024
004321

017401

000110

112%:

g?;

ggremnonoa.rmcw.)

MOV
JSR
TST

E.DA, CHKSEC
RS, CKBDSC
HDRFND

GOERRX

:YES, IGNORE ERROR

BEQ

000052

128:

138:

INC

128

:READ HEADER?

:YES, GO FIND OUT MORE ABOUT IT
:NO, IT MUST BE R/W

:BAD SECTOR SEARCH
*WAS OUR DA THERE?

*NO, MUST BE LEGIT ERROR

MOV
B8R

#MTHCRC ,RTYPE (R4S
GOF IN

HCRCER (R4)

:LOG ERROR

MoV

aBBA(R4)
.R1

sUSE IT'S BUFFER TO STORE HDRS

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC

020112
020120

012737

020170

000050
000010
000106
000104
000000
024340
000000
000006
000006
000006
002350

002350

#40.
, TEMP1
#RDHDR ,R2
DRSEL (R4) ,R2

14%:

DCS(R4) RS
R2,CS(RS)

;40 CONSECUTIVE HEADERS
sREAD HEADER
.

RS .WTRDY

‘WAIT FOR READY

TEMPT
148

*DONE 40 YET?

CS(R3),(R1)+
. (R1)+
MP(R3)
MP(R3)
. (R1)+
MP(R3).(R1)+

*READ ALL REGISTERS

*NO, GO BACK

012701

020172
020176

JWE HAVE 40 HEADERS NOW LETS SEE IF WE CAN VERIFY WHETHER
CHECK FIRST TO SEE
;OR NO T A BAD SECTOR CAUSED THE ERROR.
IF WE HAVE ANY BAD SECTORS ON THIS TRACK.

1932
1933
1934

07-DEC=~79 09:46

17-DEC=79 11:31 PAGE 4=10
MACY11 30A(1052)
CONTROLLER ERROR CHECK ROUTINE

020226

020230
020234

020274
001046

000110

17%:

MOV
MOV

BIT
BEQ
BIT
BNE

aBBA(R4)
,R2

;GET BUFFER START

;FORTY HEADERS

;1S OPI SET IN CS

ADD
DEC
BNE
BR

#HCRC, (R2)
17%
#10,R2
R1
158
12%

sNO, WELL CAN'T BE HCRC
s INSURE HCRC W/0PI
;FOUND GO SEE IF IT COMPARES
sNEXT CS IMAGE
;DONE 40

CMP
BNE

R2,aBBA(R4)
218

;1S HEADER FIRST ONE?
;NO, READ PREVIOUS HEADER

;YES, WE'LL HAVE TO GO THRU

« ;AND CHECK OTHERS BEFORE WE
sCAN SAFELY CALCULATE
017401
18%:

aBBA (R4) ,R1
#1.R3

;' 'SUPPOSED’* BAD SECTOR

#10,R1

#OPI, (R1)
198

#HCRC, (R1)

198
R3
#15..R3
18%

020276
020304
020310

020314
020316
020322
020324
020326

003667
023520
021254

000002
177700

002246

#MBDMSC ,WHY

RS ,DRDRV
EXIT1
19%:

;DROP DRIVE DUE TO

;MORE THAN 16 BAD SECTORS

;CLEAR THIS (S

;GET IT'S HEADER ADDRESS
R2,R]

#177700,R2

;GET HEADER
s SAVE HEADER
ONLY SECTOR
JMASK

SEQ 0089

—yel

CELEREL
R RERERERERED

CZRLKBO RLO1/02_PERF
XER
CZRLKB.MAC
07-DEC~ 9 09:46

2012

MACY11 30A(1052)

17-DEC=79_

11:31

CONTROLLER ERROR CHECK ROUTINE

R3.R1

sBACK UP TO SECTOR WHICH IS BAD
:IF MINUS DO MAGIC
:NO THEN SUBTRACT IS LEGAL

:BRANCH TO CHECK FILE
:THIS SUB PRODUCES WRONG ANSWER
SFIX IT UP
;GO CHECK FILE

20%:

000050

21%:

(R2),

x1?7700.n1
#40. ,R1

228

22%:

#40. ,R2
R2, CHKSEC
RS, CKBDSC
HDRFND

021260
021362

M7
PAGE 4-11

GOERRX:

99%
ERREX

GOF IN:

FINERR

;CLEAR THIS CS oOuT
;GET PREVIOUS HEADER

SEQ 0090

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46

2014
2015
1

2020
2021
2022
2023
2024
2025

17-DEC-79

11:31

COMMAND SERVICE ROUTINES

.SBTTL

OO~

SI3S

MACY11 30A(1052)

7
PAGE 4-12

COMMAND SERVICE ROUTINES

s THERE WAS NO ERROR SO..........
INOW WE WILL FIND OUT WHICH FUNCTION WE DID TO CAUSE

s INTERRUPT AND ACT ACCORDINGLY.

000044
000040

CHKFNC: MOV
ASR

BIC
DEC

#40,R1
R1

JMP

AFWRCK

BNE

020610
2%:

DEC

sGET STATUS?
gg?NCH IF SO...FUNCTION #2

BEQ

ASEEK

MCH IF SO...FUNCTION #3

BNE

R1
ARDHDR
R1

BRANCH IF SO...FUNCTION #4

AWRITE
R1
AFREAD

BEQ

AFWRCK

BRANCH IF SO...FUNCTION #6
;READ W/NO HDR COMPARE?
:YES - TREAT AS IF WRITE CHECK

ERRSF

210.,PRGER

sSHOULD NEVER GET HERE!!!

. WORD

SRGER

JMP

EXIT

TRAP

XEXIT:

JMP
DEC
BEQ

DEC

021222

sWIPE OUT INT. ENAB (SHIFTED)
sWRITE CHECK??
:NO, BRANCH
:FUNCTION #1

AGSTAT

DEC
BEQ
DEC

1%:

:GET FUNCTION OF DRIVE
sALIGN THE FUNCTION CODE

BEQ

DEC

021136

FUNC(R4)
,R1
R1

5¥8RSF

SEQ 0091

CZRLKBO RLO1/02_PERF XER
CZRLKB.MAC
07-DEC09:46

000001
000114
000054
000054

MACYTT 30A(1052)
17-DEC=79 11:31
SEEK INTERRUPT SERVICE

000056

SEEK INTERRUPT SERVICE

ASEEK:

BIS

RSEEK (R4)

P
BLT
INC
CLR

SKCNT (R4)
SKCNT1(R&)

JMP

.SBTTL

#SKDON ,PRFLGS (R4 )

CLR
INC

001750 .

000056

8
PAGE 4-13

.SBTTL

000000
000054
021222

000001

SEQ 0092

:SET SEEK VERIFY NEEDED

:CLEAR THE RETRY FLAG

SKCNT1(R4)
* INCREMENT COUNT
%SNH (R4) ,#1000.
;10(3) REACHED
sNO, EXIT

;YES, BUMP THOUSANDS

EXIT

READ INTERRUPT SERVICE

AFREAD : BIC

SETPRI

#SKDON, PRFLGS (R4 )

;CLEAR THE SEEK VERIFY FLAG

#340

000340

MOV

#340,R0

023742

JSR

RS, CKDATA

sCHECK DATA

MOV

BMP(R4)
,R1

:BUMP UP XFER COUNT
*MAKE POSITIVE

cMP
BHI
INC
SuB

#10000. ,RXFR1 (R4 3 :10(8) REACHED YET
2
:NO, EXIT
RXFR2(R4)
‘BUMP 10(10)
#10000. ,RXFR1 (R4 5 :START 10(8) AT 0

2$:

BHI
INC
SUB
BR

2
:NO, EXIT
RXFR3(R4)
YES BUMP 65K 10(10)
#10000. ,RXFR2 (R4 ) xi"rwe 10¢10) 0
EXIT

.SBTTL

READ HEADER INTERRUPT SERVICE

ARDHDR:

MOV

TRAP

000042
000002
023420

000004
023420
023420

AFWRCK:

000002
000002

000060
023420

002426
002272
000124
000001

fbg
TM

000056

#10000. ,RXFR2 (R4 )

E.MP.R1

:10(10) REACHED YET

:GET HEADER
sMASK OUT SECTOR BITS
;1S HEADER CORRECT?
sYES, CONTINUE

BIT

;IS THIS MIS-SEEK OR TRACKING ERROR
#SKDON, PRFLGS (R4 )
2s
;BRANCH IF TRACKING

INC
ERRHRD

SKECNT (R&4)

50.,MSKER,ERR2

sACCOUNT FOR SEEK ERROR

TRAP

CSERHRD

.WORD
.WORD

MSKER
ERR2

sBRANCH AROUND TRACKING ERROR REPORT

INC
ERRHRD

TRERR (R4)
55., TRACK,ERR2

sACCOUNT FOR TRACKING ERROR
:TRACKING ERROR

BR
2$:

:ADD THE BITS

SMSK .R1
PRPOS (R4) ,R1
18

LWORD

000072

3} RXFR1(R4)

BIC
P
BEQ

BEQ

000016

(SSPRI

"TRAP
.WORD
.WORD

.WORD

CSERHRD

TRACK

ERR2

CZRLKBO
CZRLKB.

RLO1/02_PERF EXER
C
07-DEC~79 09:46

2093

020750
005264
026437
101405

MACY11 30A(1052)

17<DEC=79

00011 A
n
000114

010742

3$:

18$:

.SBTTL

002426
000100
010734

INC

RSEEK(R4)

BLOS

ERRHRD

333.,SEXHAU,ERR2

.WORD

ERR2

cTMP

2s:

000012

005264
104456
000106
003116
005312

000432

000012

SEXHAU

B8R

EXIT

;ALLOW SEEK

BIC

#SKDON,PRFLGS
(R4

;SET VERIFICATION DONE

MOV
BR

R1,PRPOS(R4)
EXIT

CLR

RSEEK (R&)

:MAKE THIS HEADER PRESENT POSITION
SEXIT

GET STATUS INTERRUPT SERVICE

E.MP.R1
#100.R1
T.ROF

;GET STATUS
*CLEAR OUT HEAD SELECT
*READ ONLY

BEQ
BIC

2
ML R1

#177400,R1
18

:ANY BITS WRONG
*NO, CONTINUE

INC

ERRCNT (R4)

;STATUS BITS WRONG

BIT
BEQ

.WORD

000035

CSERHRD

#SKDON,PRFLGS(R4)

ERRHRD

18:

:NO, THEN RETRY

:SET UP RETRY

BIC

TRAP

177700
000034

:SET RETRY IN PROGRESS

1s
R1,LSTHDR(R4)

TST

020000
177400

010102
042702
022702
001444
022702
001441

SEQ 0093

RSEEK(R&) ,T.SLT ;RETRY EXHAUSTED??77?

BR
MOV

AGSTAT: MOV
BIC

- i S

48:

021030

NN NN

o
OQNO\AJ\U‘N—!OSgV

000056

2120

8
PAGE 4~14

SKRETRY=,

000056

021032

READ HEADER INTERRUPT SERVICE

TRAP
.WORD
.WORD

11:31

60. ,MDSER,ERR4
CSERHRD

.WORD
.WORD

MDSER
ERR&

MOV
BIC
cMP
BEQ
cTMP
BEQ

R1,R2
#177700,R2
#34 ,R2
EXIT
#35,R2
EXIT

INC
ERRHRD

ERRCNT (R4)

TRAP

.WORD

70. ,MDSER,ERR4
CSERHRD

.WORD
.WORD

MDSER
ERR&

EXIT

:COPY STATUS WORD
*GET STATE BITS
:COVER CLSD, HEADS OUT, BRUSHES HOME, SEEK TRACK COUNTIN
SYES, EXIT
:COVER CLSD, HEADS OUT, BRUSHES HOME, SEEK LINEAR MODE
SYES, EXIT

CZRLKBO RLO1/02_PERF ;gER
CZRLKB.MAC
07-DEC~79
09:46

2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
g}:g

021136
021144
021150
021152
021156
021164
021166
021172
021200
021206
021210
021214

042764 000001
016401
000042
00540%+---—
164 000006
022764 023420
101016
005264 000010
162764 023420
022764 023420
101005
005264 000062
162764 023420

2150
2151
2152

021222
021226
021230

005764
001414
026427

2153
%}gg
2156

(4)
(5)
(5)
2{2;

2158

021236
021240
021244

000056

11:31

AWRITE: BIC

psxoou PRFLGS(R4)

R4S ,R1

__+HHKE POSITIVE
_

000006
000010

#10000. uxrn1(n45
#10000. .WXFR2(R4)

000010

#10000. . WXFR2 (R4 ;MAKE 10(10)

004353

TST

BEQ
cMP
BEQ
INC

021254

005064

000036

EXIT1:

—————

D TH
E BITS

o16000..uxrn1<n45 :10(5) YET?

——————

EXIT
WXFR2(R&)

:NO
= EXIT
YES BUMP 10(10)

EXIT
WXFR3(R4)

-~o - EXIT
INC 65K (10) (10)

25;:v<a4>

1~ PROCESS OF RETRYING?

,1o<s> GOES TO ZERO
:10¢10) YET?

RTYPE (R&4) . AMTDRY"

EXITI
SFTCNT (R4)

T 80. ,MSFER,ERR3
ERRSOF
TRAP
CSERSOFT
. WORD
80

104457
000120
003042
005162

:CLEAR SEEK VERIFY FLAG

000006

EXIT:

SEQ 0094

;GET WORD COUNT

R1 WXFR1(R&)

000014

021244
021246
021250
021252

PAGE 4-15

WRITE INTERRUPT SERVICE

-Rl

000036

000052

17-DEC=79

WRITE INTERRUPT SERVICE

.SBTTL

001406
005264

MACY11 30A(1052)

. WORD
.WORD

MSFER

CLR

RETRY (R4)

;YES, LOG SOFT ERROR

;REPORT SOFT ERROR

ERR3
;CLEAR RETRY

e
. 5.

CZRLKBO RLO1/702_PERF EXER
CIRLKB.MAC
07-DEC=-79 09:46

MACY11 30A(1052)
17-DEC-79 11:31
EXIT FOR INTERRUPT SERVICE

2160

PAGE 4=16

SEQ 0095

.SBTTL EXIT FOR INTERRUPT SERVICE

5162
5163
5164
5165
5166
5167
5168
5169
5170
3171
5172
5178
5174
5175
5176
5177
5178
5179

021260
021266
021370
021372
021576
021276
021302
021306
021312
021316
021322
021326
021352
021336
021342
021346
021352
021336

021360

000002

5182

021362

004537

022616

5184
5185
2186

021370
021376
021402

013764
000137
005264

002420
021260
000012

2188
%)
(5)
(3)
(5)

021406
021406
021410
091412
021414

104456
000132
003252
005724

5180 021360

,2)

042774
012600
012601
012602
01360%
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012604

5183 021366 000405

2189 021416 000716

000100

000104

ERREX:

002476
00474
002246 .
002350
002340
009342
009432
002430
002426
002494
009492
002420
L10027:

BIC
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ENDSRV

1$:

RTI

FINERR: JSR

000116

WINTEN.@DCS(R&)
(SP)+.RO
(SP)+ R
(SP)+.R2
(SP)+ RS
(SP)+. INCALL
(SP)+ OPCALL
(SP)+ WHY
(SP)+.TEMP1
(SP)+ HDRFND
(SP)+ CHKSEC
(SP)+ E.MP2
(SP)+ E.MP]
(SP)+ E.MP
(SP)+ E.DA
(SP)+ E.BA
(SP)+ E.CS
(SP)+.Ré

RS.RCNT

MOV
JMP
INC

E.CS.SOFTCS(R4)
ERREK
:NOT EXCEEDED EXIT
ERRCNT(R&)
“INDICATE ERROR

ERRHRD
TRAP
.WORD
"WORD
.WORD

90. ,MHDER,ERR13 ;NON-RECOVERABLE ERROR
CSERHRD
90
MHDER
ERR13

EXIT]

CHECK TO SEE IF WE HAVE EXCEEDED

RETRY LIMIT. IF SO 18 AND REPORT HARD

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC

07-DEC~79 09:46

F 8
MACY11 30A(1052)
17-DEC=79 11:31
PAGE 4-17
DRIVE ERROR INTERRUPT SERVICE
.SBTTL

DRIVE ERROR INTERRUPT SERVICE

:WE HAVE A DRIVE ERROR, LET'S GET THE STATUS
021420
021424

000020
024432

CKDERR:

sACCOUNT FOR ERROR
;GET DRIVE STATUS

INC
JSR

DERCNT (R4)
R5,GETDST

ERRHRD

224.,DRVER,ERR9 ;DRIVE ERROR

.WORD

224

.WORD

ERR9

;REPORT DRIVE ERROR

TRAP

.WORD

021436

CSERHRD

DRVER

sACT ACCORDINGLY TO DRIVE ERROR
021440

001000

010000
144000

002000

024446
024446
024432
002000

003157

021522

021524

002246

024446
024432
001000

003132

021570
021576

20%:

002246

000000

012737
000764

002664

002246

012746

003212

012702

91%:

108:

918

MWGEST ,WHY

;REPORT WGE DIDN'T CLR
:DROP DRIVE

JSR
JSR
BIT
BEQ

R5,ISDRST
R5,GETDST
#VC,R1

MOV

#MVCER ,WHY

s ISSUE RESET
sRESET WORK
:VOL CHK CLEAR
:YES, CHECK DRIVE READY
;DROP THE DRIVE

JSR
JMP
BIT

R5,DRDRV
EXIT1
#DRDY ,CS(R3)

BNE

MOV

101$:

007544
000002

000006
022316
021362
000004

#VC,R1
;VOLUME CHECK?
9%
;YES, GO ISSUE RESET
#SKTO,R1
;SEEK TIME OUT?
12%
sYES, ISSUE RESET
#WDE ! HCE ! SPE ,R1 ;WRITE DATA, CURRENT HEAD, SPINDLE?
158
;GO WAIT FOR HEADS TO UNLOAD
#WGE ,R1
;WRITE GATE ERROR
208
;YES, ISSUE RESET
R5,ISDRST
:ISSUE RESET
108
;GO CHECK DRIVE READY
R5,ISDRST
s ISSUE RESET
R5,GETDST
sRESET WORK?
#WGE ,R1
;WGE CLEAR
108
;YES GO CHECK DRIVE READY

MOV

9%:

023520
021254
000001

BIT
BNE
BIT
BNE
BIT
BNE
BIT
BNE
JSR
BR
JSR
JSR
BIT
BEQ

12%:

108

101%

#DNRDY ,WHY

;DRIVE READY POSTED?

;YES, PRINT RECOVERED

91%

;NO, DROP DRIVE

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
JSR
JMP
MOV

#FMT14,#MRDER
#MRDER ,-(SP)
#FMT14 ,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP
R5,GHDR
F INERR
#4 ,R2

;PRINT DRIVE RECOVERED

;GET THE CURRENT DISK POSiTION - HEADER

".SEEK TIME OUT

SEQ 0096

;

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC=79 09:46
004537

17-DEC-79 11:31
PAGE 4-18
DRIVE ERROR INTERRUPT SERVICE

021640

2239
(3)
(3)
(3)
(3)
(3)
(3)
(3)
25(3.())

021644
021662
021666
021670
021674
021676
021702
021704
021710

012727
000000
013727
000000
005367
001375
005367

2241
2242
2243
nglso

021720
021726
021730
021732

032763 000001
001006 .
005302
001342

000000

2246
ggzg

021734
021742

012737
000702

003070

002246

2249
2250
2251

021744
021752
021754

032763
001370

040000

000000

012746
012746
012746
010600
104414
062706

003212
007544
000002

001367

024446

2255
2256
2257
2258
2259
(3)
(3)
(3)
(3)

022010
022014
022020
022024
022026
022044
022050
022052
022056

012702
004537
032701
001434

000004
024432
000020
000372

(3)
2260
2261
2262
5522

022072
022102
022104
022106
022114

012727
000000
013727
000000
005367
001375
005367
001367
005302

2265
2266
(3)
(3)

022116
022122
022140
022144

(3)
(3)

022146
022152

s ISSUE DRIVE RESET

WAITMS
MoV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#15,
##250.,(PC)+
0
LSDLY, (PC)+
0
=6(PC)
.=4
=22(PC)
=20

;DROPPING DRIVE

BIT
BNE
DEC
BNE

#DRDY ,CS(R3)
14$
R2
138

;DRIVE READY YET?
;YES, CHECK IF ERROR CLEARED
sNO, HAVE WE DONE IT FOUR TIMES
JYET

1418:

MOV
BR

#MDERS , WHY
91%

;YES, DROP DRIVE

143%:

BIT
BNE
PRINTB

#DERR, CS(R3)
1418
#FMT14,#MRDER

;DRIVE ERROR SET STILL
:YES, DROP DRIVE

177756

004537
000137

022060
022064
022066

R5,ISDRST

177772

022000
022004

(3)
(3)
(3)

JSR

002116

021754
021760
021764
021770
021772
.021774

2252
gggz

138:

000372

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

000006
022316
021222

158:
16%:

177772

004537

024446

012727
000000
013727
000000

000372
002116

#MRDER .= (SP)
#FMT14,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP

MOV
JSR
BIT
BEQ
WAITMS
MOV
.WORD
MOV
.WORD

#4 ,R2
R5,GETDST
#BIT4,R1
17%
#15,
#4250.,(PC)+
0
LSDLY, (PC)+
0

BNE
DEC
BNE
MOV
BR

.=20
R2
16%
#UNLOAD ,WHY
91%

JSR
WAITMS
MOV
.WORD

R5,ISDRST
.
#1.
#4250, ,(PC)+
0

DEC
BNE
DEC

177756

003547

MOV
MOV
MOV
MOV
TRAP
ADD

JSR
JMP

002116

001343
012737
000615

)

MACY11 30A(1052)

2237

2238

002246
17%:

MOV
.WORD

SEQ 0097

;FOUR TIMES BEFORE

R5,GHDR
EXIT

;WAIT FOR HEADS TO UNLOAD
;GET STATUS
sUNLOAD STATE
sYES, CONTINUE W/ RECOVERY
SWAIT A WHILE

=-6(PC)
.~4
=22(PC)

LSDLY, (PC)+
0

;WAIT LONG ENOUGH
:NO, GO BACK
;DROP DRIVE

s ISSUE RESET
:

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)

DEC

012702

000075

012727
000000
013727
000000

000372

-62PC)

#DERR, CS(R3)

000000
18%:

1418
#61. ,R2

5:250..(pc)+
bSDLV.IPC)*

177772

-6(PC)
.~
=22(PC)

177756

#DRDY, CS(R3)

000000

14$

022312
022316

003573
021550

002246

000210
000106
000200
024340
000006

000000
000000
000000

000052

sNO, DROP DRIVE

:FOR DRIVE READY TO

. COME BACK

s INITIATE PROGRAM CALL TO SUPERVISOR

C$BRK
18$

ANOLOAD ,WHY

91%

GHDR:

;DRIVE ERROR CLEAR?

;YES, WAIT 60 SECONDS

002116

000001

8
PAGE 4-19

1226pc)

177756

040000

11:31

DRIVE ERROR INTERRUPT SERVICE

177772

022154
022160

17-DEC=79

:NO READY DROP DRIVE

#CRDY !RDHDR, CS (R3)

DRSEL (R4)

,CS(R3)

#200,CS(R%)

RS, WTRDY
MP(R3) ,R1
SMSK ,R1

R1.PRPOS (R4)

#MTDRV ,RTYPE (R4)

;SETUP DRIVE ERROR

SEQ 0098

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

2292

2293
(2)

2294,
2295 .
229

022370

2298
2299
2300

022370
022374

(2)

2301
2302
2303
2304

2305
2306

022376
022400
022402
022404
022406
022412

.."'t'...l.tt..'t..'t."Q'.t..'t.t'ttt....tt..'...tt..!t'tt..'..

:WRBUF == ROUTINE TO WRITE A BUFFER INTO MEMORY. USES WORD COUNT AND BUS
s
ADDRESS FROM DRIVE BUFFER (R4). WILL WRITE RANDOM FROM ONE OF
:
8 PATTERNS. USED BY WRITE FUNCTION AND WRPACK ROUTINE.

STARS

;.'tttt.tttlfi.t'.t.t't..t"..t.tt'.'.t...t.'..ttt...'.'.t.t.'..'.'

005737
001507

010346
010246
010146
010046

016402
005402

2309

022424

002015

002306

WRBUF:

2311

022432

002005

000042

2312 022434 062702
2313 022440 162764
2314 022446 010221

000003
000003

2316
2317
2318
2319
2320
2321

002362

2322

022452
022456
022
022466
022472
022476

005302

010237
05
012737
012721
005737
001003

000177
000200
010736

022500

013703

010740

2324

022506

004537

024524

2326

022516

042703

177770

2323 022504

2325

2327

2328
2329
2330
2331
2332
2333
233,
2335
2336

2337

022512
022522

022524
022530
022532
022536
022540
022544
022550
022556
022

022

000406
013703

006303

28:

030004

005337

002366

001404

2338

0225

2340

022574

000763

2342

022602

003306

2339 022572

2341

2343
2344
2345

022576
022604
022606
032610

001371

162702

012600
012601
012602

002362

3$:
4$

5$:

568:

002364
002362

002364
000020
002362

000200

002366

68:
7%:

*SAVE REGISTERS

aBBA(R4) ,R1
R2,4128.

*WHERE BUFFER IS
*MORE THAN 128 WORDS

BGE

*YES, BRANCH

MOV
cTMMP

R2. 43
3$

ADD
SUB
MOV

#3.R2
#3.BMP (R4)
R2.(R1)+

MOV
BR
MOV
MOV
TST
BNE

R2, TEMP6
X3
#127. . TEMP6
#128..(R1)+
I .RAN
558

56$

DEC

*GREATER THAN THREE WORDS
*YES, BRANCH

*ADD "3
:WC UP BY 3
*STORE WC

*ACCOUNT FOR WC

*LOAD DOWN COUNTER
;LOAD DOWN COUNTER

;RANDOM SELECT OF PATTERNS
“YEA

T.PAT ,R3

NO GET.PATTERN OPERATOR

JSR

RS, RAND

*GET RANDOM # FOR PATTERN

BIC

#177770.R3

ADD
MOV
MOV
MOV
DEC
MOV
MOV
MOV
DEC

#PATLST,R3
(R3) ,R3
R3, TEMP7
R3. (R1) +
TEMP6
TEMP7 ,R3
#16. . TEMP8
(R3)+, (R1)+
TEMP6

DEC

TEMPS

MOV
ASL

BEQ

BNE

8$:

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

;R2 HAS TOTAL WORDS TO SET UP FOR
*POSITIVE NUMBER

MOV

55$:

REBUILD THE DATA BUFFER?
NO =-EXIT

BMP(R4) ,R2
R2

cMP

000042

REGEN
9

MOV
NEG

BGE

002262

062703
011303
010337
010321
005337
013703
012737
012321
005337

TST
BEQ

MOV
MOV
MOV
MOV

2310 022426 020227 000003

022450

SEQ 0099

STAR

2307 022414 017401 000110
2308 022420 020227 000200

2315

sam BUFFER GENERATION ROUTINE FOR THE "WRITE' FUNCTION

022370

2297

HACYH 30A(1052)
17-DEC-79 11:31
PAGE 4-20
BUFFER GENERATION ROUTINE FOR THE 'WRITE' FUNCTION

LONUM,R3

:0,7

*WORD OFFSET

*GET PATTERN LIST
*GET LIST ADDRESS
*STOR FOR RECALL
*LOAD IT
*ACCOUNT FOR IT
*PATTERN START
*16 ENTRIES
*STORE PATTERN
*DOWN COUNT

*DONE?

DONE WITH PATTERN

*NO, GO BACK

#128. ,R2

*ANOTHER SECTOR TO USE

8GT

MOV
MOV
MOV

*GET RANDOM PATTERN

SUB

*WANTS TO USE

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

RESTART PATTERN

*YES GO BACK

*RESTORE REGISTERS

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

022612
022614

MACY11

012603
000205

30A(1052)

17<DEC=79

9%:

MOV

00526;

000036

010660

RCNT:

'WRITE' FUNCTION

RETRY LIMIT ROUTINE

H
000036

8
PAGE 4-21

(SP)+,R3

RTS

;RETRY BUMP,

02643;

BUFFER GENERATION ROUTINE FOR THE

.SBTTL

022616

11:31

TWO RETURNS = CALL +2 = RETRY EXCEEDED

CALL +4 = CONTINUE RETRY

CMP

RETRY(R&) ,LIMIT ;LIMIT REACHED?

1$:

INC
TST
RTS

RETRY (R4)
(R5)+
RS

.SBTTL

LIST OF FUNCTION ROUTINES

BEQ

;YES TAKE FIRST RETURN

sACCOUNT FOR RETRY
sJNEXT RETURN
+RETURN

;WE GO THRU THIS LIST WHEN CALLED IN "'GETFNC''
;LIST IS IN NUMERICAL ORDER 1-6

022652

000000
015424
015460
015620
015424
015460
015504

LIST:

.WORD

SKWRT
SKRD
SKRH
SKWRT
SKRD

SKRDRD

;SEEK
;SEEK
;SEEK
;SEEK
:SEEK

=
=
=
=
=

WRITE DATA = WRITE CHECK
READ DATA
READ HDR = READ W/NO HDR CMP - GET STATUS
WRITE DATA = WRITE CHECK
READ DATA

;SEEK = READ DATA - READ DATA

"SEQ 0100

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)
17-DEC=79_ 11:31
BAD SECTOR FILE ROUTINE
S%;L

022654

8
PAGE 4-22

SEQ 0101

BAD SECTOR FILE ROUTINE

sRDBDSC == ROUTINE TO RECOVER BAD SECTOR FILE AND SAVE IT FOR
;COMPARISON UPON ERROR ON READS/WRITES & FOR THE SEEK FUNCTION. WE

;WILL ONLY RESERVE SPACE FOR 16 BAD SECTORS PER DRIVE AND 1 ENTRY FOR
:THE BAD SECTOR FILE AREA POINTER = LAST TRACK ON THE CARTRIDGE.
:WE WILL ISSUE A DRIVE RESET FIRST, READ HEADER, POSITION TO THE LAST

:TRACK (CYLINDER 255. OR 511., SURFACE 1) AND READ IN THE FIRST SECTOR

:FOR FACTORY BAD, AND THE 20TH FOR FIELD BAD SECTORS.

THE BUFFER POINTER TO THE DRIVE WE WANT TO READ.
CALL

JSR

R5,RDBDSC

THE BAD SECTOR FILE

R4 WILL CONTAIN

;GET THE BAD SECT FILE ENTRYS

(BOTH FACTORY AND FIELD)

LOOKS LIKE

THIS:

SERIAL NUMBER LOW 5 DIGITS (OCTAL SERIAL NUMBER)
SERIAL NUMBER HIGH 5 DIGITS

0'S
0's
ENTRY = CYLINDER # FROM 0 TO 1777 MAX (RL0O2) OR 777 (RLO1)
ENTRY = HEAD & SECTOR NUMBER
ENTRY = CYL
ENTRY = HEAD & SECTOR

022654

STARS
IR

022654

...END OF ENTRYS
Y
...TO WORD 256. (END OF SECOND SECTOR IN PAIR)
AR

RDBDSC: MOV

024446
000010
016574
024340

000006
000001

000044

218:

000120

002270

238:

i 77600

000040
000025
000006
016574
024340

258:
000040
000044

AR AR AR R

R AR AR AR RRRARRRRRRAARRRRRRRRRRAAARRR
AR R AR

RO.-(SP)

MOV
MOV
MOV
JSR

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

JSR
JSR

RS, LDFUNC
RS .WTRDY

MOV

;SAVE REGISTERS

;ISSUE A DRIVE RESET

#RDHDR,FUNC

(R4):READ HEADER TO FIND POSITION

MOV
CMP

MP(R3) ,RO
#1,TDR(R4)

;GET HEADER AND CALCULATE
*RLO2 TYPE DRIVE?

BIC
MOV
BR
BIC
MOV

CYLMSK ,RO
#77600.R1
258
CMSK , RO
#177600,R1

*HERE FOR RLO1

BNE

002264
077600

022772

=1
=1

SUB

23§

:ON

:JUMP IF RLO2

:HERE FOR RLO2

MOV
BIS

RO,R1
R1.BDA(R&)
#SKHS
' SIGN'MK ,BDA(R&)

JSR

RS, LDFUNC

MOV

JSR

#SEEK.FUNC (R4 )

R5.WIRDY

DISK

;SEEK TO THE BAD SECTOR FILE AREA

*WAIT FOR DRIVE READY

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

022776
023004

000010
016574
024340
000006
000077
000001

17-DEC=79_ 11:31
MACY11 30A(1052)
BAD SECTOR FILE ROUTINE

000044

MOV

000120

177700
177400

300%:

000014

000040
000042
000044

023102
023106
023114
023120
023124
023130
023132

002354
003720
000112
000021
177777

023134
023140
023144
023150
023154

000112
000040
000020
016574
024340

023160
023164

000104

023166

024446
000004
002354

000040

003740
000001

002246
000120

077750

000040

023272
023276

017401
012164

555%:

002246

5558

TEMP3

sMANUFACTURING/FIELD FILE SWITCH
sSTART WITH MANUFACTURING BAD
sINITIALIZE LIST TO ALL 1'S
sSIXTEEN ENTRIES + 1 FOR BSF POINTER
:INIT,STORAGE T0 =1'S

BSECPT(R4)
,R2
#17..R0
#-1,(R2)+
i
RO
118
BSECPT(R4) ,R2
#16.
,RO
RS, LDFUNC
R5.WTRDY

55%:
3%:

:NO = DO THE NEXT ONE

;GET POINTER TO LIST TO STORE BSF ENTRYS
;SAVE 1ST ENTRY AS BSF POINTER
:SIXTEEN ENTRIES

sREAD THE BSF SECTOR PAIR

;WAIT FOR DRIVE READY

RS, ISDRST

sNO - ISSUE A DRIVE RESET

4008
#77750,BDA(R4G)
4$
6$

4008:

sDONE?

;WAS THE READ GOOD?
;YES

#SWSEC
, WHY
#1,TDR(R4)

000040

:SETUP FOR A 2 SECTOR READ IN BSF
:GET THE READ FUNCTION #

TEMP3
58

5%:

sNO - SEEK AGAIN
:YES = SAVE FOR THE READ COMMAND

aDCS(R4)

#4.BDA(R4)

077724

;YES = ON BSF AREA?
:NO = SEEK AGAIN
:SAVE THIS HEADER FOR READ COMMAND

;RLO2 BSF AREA?

BDA(R4G), (R2)+
4%:

sREAD A HEADER ON THE BSF
;WAIT FOR DRIVE READY
;GET THE HEADER WORD READ
;CLEAR SECTOR NUMBER READ
;DRIVE
= RLO1?
:NO
= MUST BE AN RL02

#177700,RO
21%
#177700,BDA(R4)
#-256. ,BMP(R4)
#READ ,FUNC (R4)
#HWSEC ,WHY

11%:

177724

023270

#RDHDR
, FUNC (R4)

R5,LDFUNC
R5,WIRDY
MP(R3) ,RO
#77 ,RO

0
#77700,R0
2 13
#77700,BDA(R4)

000040

177700

PAGE 4-23

#1 IDR(R‘)

077700
077700

sPOINT TO NEXT SECTOR
:MANUFACTURING OR FIELD BAD
:MANUFACTURING = 0
;FIELD BAD

:DRIVE = RLO1?
:NO - MUST BE RLO2
:YES = AT END OF FIELD FILE?
:NO = CONTINUE

;DROP DRIVE AND EXIT

BgA(Rk),#77724 ;AT END OF MANUFACTURING BAD
55%
:SEE_IF DONE
#177750,BDA(R4) AT END OF FIELD BAD FOR RLO2
48
:NO GO BACK FOR NEXT
6%
:DROP THE DRIVE AND EXIT
?2A(R4),#177724;AT END OF MANUFACTURING BAD?
:BR IF NOT DONE

:YES - REPORT ERROR AND EXIT

aBBA(R4) R1

;START OF BSF ENTRY LIST

(R1)+,SERNM1(R4) ;GET LOW PART OF SERIAL #

SEQ 0102

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
012164
022121
012137
00444

17<DEC=79_ 11:31
MACY11 30A(1052)
BAD SECTOR FILE ROUTINE

PAGE 4-24

(R1)+,SERNM2(R4)
;GET HIGH PART OF SERIAL #
(R1)+,(R1)+
:SKIP PAST JUNK
(21)*.TEMP1
sGET CYLINDER

000102

002350

1%:

2
(R1)+,TEMP2
TEMP1

002352
002350

;END OF THE ENTRYS?
sNO = GET HEAD (0 OR 1) & SECTOR NUMBER
sPUT CYLINDER IN HIGH BYTE

002350
002350

#8IT1S, TEMP1

TEMP1, (R2)
TEMP2| TEMP1

;STORE THE CYLINDER PART
;GET SECTOR
sLEAVE ONLY SECTOR
sSET IN SECTOR BITS

002352

TEMP2
#1776
., TEMP2
77

002246

#MBDMSC ,WHY

;POSITION THE HEAD SELECT BIT
;CLEAR ALL OTHER BITS
;SET IN HEAD
sCOUNT THIS ENTRY FROM BSF
sALLOW MORE ENTRYS?
sMORE THAN 16 BAD SECTORS

TEMP3

sSWITCH_TO FIELD BAD OR QUIT

3508

:DRIVE = RL01’
:NO
- MUST BE AN

36$
#177724 ,BDA(R4)

sPOINT TO 1ST SECT IN FIELD FILE FOR RLOZ2

002350
092350

1118:

#177700, TEMP1
TEMP1, (R2)
TEMP2”
;gnpz.(nz)+
1%

6$
2%:

002354
000001

000120

78
#1_,TDR(R4)

077724

000040

#77724 ,BDA(RG)

177724
000001

000040
002354

350%:
36%:

z}TEMPS

;DROP THE DRIVE & ERROR EXIT
;QUIT, 78

RLO2
:YES = POINT TO FIELD BSF 1ST SECTOR
s INDICATE NOW DOING FIELD BSF
:PROCESS THE FIELD BSF

JHERE TO DROP THE DRIVE IF MORE THAN 16. ENTRYS OR IF CAN'T FIND A BSF
023520

6%:

JSR

R5 .DRDRV

:DROP THE DRIVE

JHERE TO PUT HEADS 'HOME' AND TO EXIT
025670

023512

7%:

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

;BRINGS HEADS HOME

SEQ 0103

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

29
2530

MACY11 30A(1052)

17-DEC=79

ROUTINE TO DROP DRIVE

.SBTTL

023514

S TARS
SRR

11:31

PAGE 4-25

SEQ 0104

ROUTINE TO DROP DRIVE
A AR

AR AR AR R AR AR AR R AR AR AR AR AR AR AR AR

R AR RN,

:DRDRV == ROUTINE TO DROP A DRIVE FROM RUNNING
;
R4 HAS BUFFER POINTER OF DRIVE TO DROP

2534

023514

STARS
e

023514
23520

005237

002474

2540

023526

005237

002476

2542
2543

023534
023540

012702
012701

030432
000001

2544

02040

2548

023554

00630
062702

000126

2551

023562

005737

002474

WE CLEAR BIT IN 'DRUT", NOT 'DRPRS"’

AR AR AR A A AR AR AR R AR AR AN R AR AR AR AR AR

ODRDRV: INC
DRDRV:
MOV

MoV
MOV
INC
CLR

1%:

MOV
MOV
CMP
BEQ
INC

ASL

ADD
BR

2$:

TST

BNE

DODU

2554
2555
2556
2557
2559
2560

023574
023600
023604
053612
0
023622
023626
023632

005037
005037
113764
113764

002476
002474
002416
002414

105264
140137

000071
002252

(7)
(6)

023632 012746
023636 012746

(4)

023644

(9)

023646
023652
023656
023656

3662

010600
104417

007562
000001

062706
004737

000004
006220

013746

002246

6%:

000070
000071

:START OF DRIVE BUFFERS

23
R3

s MASK

*1S THIS THE DRIVE?
*YES GO DROP IT

sNO SHIFT MASK
sNEXT BUFFER
:GC BACK

OPCALL

sCALLED VIA OPERATOR?
:YES - SKIP CODE
sNO = CALLED BY DIAGNOSTIC

#PRPOS+2,R2
1

OPCALL

CLR

INCALL

INCB

HOUR ,DPHOUR(R4) sTIME AT WHICH IT WAS DROPPED
MINUTE ,DPMIN(RS)
s HOUR/MINUTE
3s
;IF MINUTE O,
DPMIN(R4)
sMAKE 1.

PRINTF

#FMT14C

BNE

BI(CB

R1,DRUT

MoV
MOV
MOV:
TRAP
ADD

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

MOV
MOV

WHY ,=(SP)
#DROP, = (SP)

JSR
PC,LINE2
PRINTF #FMT7 ,#DROP ,WHY

MOV

TRAP

PRINTF

0600
104417

#DRBUF ,R2
#1,R1
R4 ,R2

lgCALL
R

CLR

ADD

023720

sSAVE REGISTERS

R3.R0
C$DODU

MOV

(4)

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

MOV
TRAP

MOvVB
MOvVB

3s:

OPCALL
R1,-(SP)

AR AR AR AR AR

MOV
MOV
MOV
TRAP

#FMT7 ,=(SP)
#3,-(5P)
SP.RO
CSANTF

#10,SP

#FMTS1

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

;CLEAR THE DRIVE FROM BIT MAP
;PRINT A <CR> & <LF>

CZRLKBO RLO1/02_PERF %ER

CZRLKB.MAC

07-DEC~79

09:46

MACY11 30A(1052)

17-DEC=79

ROUTINE TO DROP DRIVE

11:31

>ég%

023722

062706

000004

ADD

¥4 ,SP

55529

023726

004737

014024

JSR

PC ,REPORT

2568
2569
%g;?

023732
023734
023736

012603
012602
012601

MoV
MOV
MoV

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

2572

023740

000205

RTS

PAGE 4-26

;RESTORE REGISTERS
.

SEQ 0105

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)
17-DEC=79_ 11:31
ROUTINE TO CHECK DATA

.SBTTL

9
PAGE 4-27

ROUTINE TO CHECK DATA

;ROUTINE TO CHECK DATA ON READ

023742

002306
010674

CKDATA: CLR
TST
BNE

002310

108:

RTS

TST

REGEN

;CLEAR THE REGENERATE DATA FLAG

CMRD
108
RS

;DO WE WANT TO CHECK ANY?
:YES - SEE IF FORCED EXIT
:NO
= EXIT NOW

KILLDC

sINHIBIT FLAG SET?

97%

:NOPE- OK TO PROCEED

RS
97%:

SETPRI

sNO, EXIT

#340
#340,R0

C$SPR]

aBBA(R4) ,R2
W(?‘).TEFP1
TEMP

002350

DELMT, TEMP2

002352

002354
002346
0
024050
024052

DECNT
96$:

MOV

005301
012237

;BUFFER START
;WORDS READ IN
sMAKE POSITIVE

:# ERRORS TO BE PRINTED
¢INIT ERROR COUNT

CMRD, TEMP3

:# WORDS TO BE COMPARED

#126.,TEMPO

;126 WORDS

(R2)+,TEMP4

;PATTERN ADDRESS

(R2)+,R1
TEMP1
CEND
R1

:NON-ZERO WORDS

sMAKE SURE PATTERN ADDRESS IS LEGAL
024056
024062
024066
024072
024074
024076

#PATLST,RO

012700
012703
022037

005237
024242

98$:

002306

024124

998
R3
98s

:YES, CONTINUE
:NO, EXHMAUST LIST YET
:NO, GO BACK

(RO)+, TEMP

:FOUND IT YET

;SET THE DATA REGENERATE FLAG

180. ,NOREV,ERR12 .
CSERHRD
180

NOREY

ERR12
RS, STDMP
RS

027006

002356
002350
0000.
002350

N
o

024122

SONLY EIGHT

REGEN
-(R2) ,-(R2)

104456

000264
003631
005716
004537
000205

CMP

;GET LIST OF PATTERNS

#8. R3

002354

";ACCOUNT FOR PATTERN ADDRESS

TEMP1
#16. , TEMPS

:ACCOUNT ONCE AGAIN
:16 ENTRIES TO PATTERN

TEMP4 ,R3

002360

TEMP]
CEND
TEMP3
CEND

:GET ADDRESS

:ANY WORDS READIN LEFT?
:NO, GO TO END
:HAVE WE EXHAUSTED COMPARE LIMIT?
:YES GO TO END

:WE CHECKING PATTERN OR ZERO FILL?

SEQ 0106

CZRLKBO RLO1/02_PERF
CZRLKB.MAC
07-DEC~

%589:46

MACY11 30A(1052)

17-DEC=79

ROUTINE TO CHECK DATA

11:31

PAGE 4-28

SEQ 0107

ZERO FILL SKIP

PATTERN
UI THIN PATTERN
;YES SKIP

:NO, START OVER
;

TEMP

43
GDDAT

GDDAT, (R2)
5%

REGEN
DECNT
DATCER(R4)

TEMP2
5%

024252

024254

IES

:GET PATTERN
:DOWN COUNT

sZERO FILL

s CORRECT DATA

YES YES NEXT
= SET REGENERATE FLAG FOR WRT OPERATION

CMT THE DATA ERROR
:COUNT ERROR FOR THIS DRIVE
:DO WE WANT TO PRINT IT

:NO,SKIP

185. ,MDCER,ERRS
CSERHRD
185

MDCER

ERRS8
TEMP2

002352
002350

5%:

002346

024312

024314

96$
TEMP3

002354
002344

TEMP1
CEND
(R2)+
TEMPO
1%

CEND:

000042

DECNT
1$
BMP(R4)

;WORDS READ IN

sNEXT WORD

;WORDS TO CHECK

;DO WE WANT TO PRINT SUMMARY
sNOEXIT
sMAKE POSITIVE WORD COUNT
190. ,MDCER ,ERR6 ;DATA ERROR SUMMARY CS$ERHRD

190
MDCER

ERR6

1%:

sACCOUNT FOR PRINT

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)

17-DEC=79

11:31

PAGE 4-29

ROUTINE TO WAIT FOR CONTROLLER READY

.SBTTL

ROUTINE TO WAIT FOR CONTROLLER READY

:ROUTINE
-TO WAIT FOR CONTROLLER READY UNDER FLAG

sMODE
.

USED IN INITIALIZE PORTION OF PROGRAM, I.E.,

;GETTING BAD SECTOR FILE, WRITING PACK INITIALLY.

010046
010146
012701

012727
000000

013727
000000

WTRDY:

001750

1%:

000002

177772
177756

:WAIT A WHILE

BR2. , (PC)+

000104

#CRDY ,aDCS(R4)

;READY SET?

R1
1%

;TIMED OUT?
;NO GO BACK

024412

024414
024414
024416
024420
024422

024424
024426
024430

:}600..n1

:SAVE REGISTERS

BSDLY.(PC)*
96(PC)
;ES(PC)

002116

000200

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

JYES, EXIT

1002. ,NOCRDY ,ERR12
CSERDF

1002
NOCRDY

ERR12

2%:

(SP)+,R1
égP)+,R0

sJRESTORE REGISTERS

SEQ 0108

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

F 9
17-DEC-79 11:31
PAGE 4-30
MACY11 30A(1052)
GET STATUS/DRIVE RESET ROUTINE

SEQ 0109

.SBTTL GET STATUS/DRIVE RESET ROUT INE

2682
2683

sROUTINE TO ISSUE DRIVE RESET
:ALSO GET STATUS, R1 HAS STATUS IF GS

:USES R3, DOES NOT SAVE IT

024432

GETDST: MOV
MOV

DCS(R4) ,R3
#GSBIT ,DA(R3)

ISDRST: MOV
MOV
CSTUFF: MOV
BIS
8IC
JSR
CMP
BEQ

DCS(R4) ,R3
#DRST ,DA(R3)
#CRDY
! GSTAT,CS(R3)
DRSEL
(R4) ,CS(R3)
#CRDY,CS(R3)
RS ,WTRDY
12RST.DA(R3)

024516
024522

18:

024524

MOV
RTS

CSTUFF

MP(R3) ,R1
RS

STARS
*ttfi'ttttttttttitttt"ttt*tttIttfi.tfii'ttttfiit't*tttt'fittti'fi'tt

sms --

024524

ROUTINE TO GENERATE A RANDOM NUMBER

:;tfitttttttitt*tttttttti'ttt'*ttt'fittfittttt.ttfiittttfit'tttttttttt

024524
024526
024530

010146
010246
010346

024532

013703
013701
012702
006303
006101

RAND:

002262
002260
177771

MOV

MOV
MOV

MOV
1¢:

MOV
MOV

ASL
ROL

R1,=(SP)

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

LONUM,R3

HINUM, R1
#-7 .R2

R3
R1

INC
BNE
ADD
ADC
ADD
ADD

R2
1%
LONUM,R3
R1
HINUM,R1
01057 R3

ADD

fi47401 R1

MOV
RTS

(SP)+.R1
RS

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~=79 09:46

MACY11 SgA(‘IOSZ)

17-DEC=79

11:31

9
PAGE 4-31

SEQ 0110

OUTINE TO WRITE PACKS INITIALLY

.SBTTL
STARS

024622

SRR

ROUTINE TO WRITE PACKS INITIALLY
AR A AR AR A AR A AR AR

R R AR AR AR AR AR AAARARANA R

R AR

bRPACK == ROUTINE TO WRITE PACK WITH PATTERN, ALL TRACKS WILL BE

WRITTEN (EXCEPT BAD SECTOR TRACK)
FORMAT IS # OF WORDS

(WORD 1), PATTERN ADDRESS

(WORD 2)

PATTERN (WORDS 3 - 128)
WE WILL ATTEMPT TO WRITE MULTIPLE SECTORS AT A TIME
(MINIMUM 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN

WRITE INDIVIDUAL SECTORS FOR THAT TRACK.
READS AND INCORE COMPARISONS TO VERIFY.

STARS

CALL:

JSR

RS ,WRPACK

SRR

WRPACK: MOV

MOV
MOV
MOV
MOV
TST

BNE
PRINTF

012746
012746
012746

006220
025670

1$:

RO,=(SP)

R1,=-(SP)
R2,=(SP)
R3,-(SP)
BBA(R4) ,-(SP)
%‘;IPG(RO

#FMT18,#MSWRPK

#MSWRPK ,~(SP)
#FMT18,-(SP)
#2,-(SP)

TRAP
ADD
NOP
NOP

CSPNTF
#6,SP

JSR

RS.HDHOME

JSR

sWRITE THE PACK SELECTED

A AR AR AR AR AR AR AR AR AR AR AR AR AR

MOV
MOV
MOV

MOV

WE DO WRITES,

;SEE _IF WRITE

IN PROGRESS

;JUMP IF DON'T WANT MESSAGE ON RECOVERY
:MSG. ‘WRITING PACK''

SP,RO

PC,LINE2

000001

(LR
000120

CONWR:

077600

002350
177600

BNE
CMP
BNE
TST
BEQ

65%:

002350
025670
000110

CLR
(MP

ENDWR:

BNE
TST
BEQ
JSR
MOV
MOV

TEMP1

R1
#1,TDR(R4)

:PRINT TIME-RCLS & DRIVE
:HEADS HOME

; TEMP1=HEAD
sR1=CYL

45%

#077600,R1
STWRT
TEMP1
STWRT

ENDWR

#177600,R1

STWRT
TEMP1
STWRT
RS ,HDHOME
(SP)
+ ,BBA(R4)
(SP)+,R3

sSAVE REGISTERS

:‘NgAQc:CTUALLV WRITE DATA OUT ON PACK, WI'.L NOT WRITE LAST
002350

sNO GO WRITE TRACK
sYES, CHECK IF HEAD = 1?
JHEAD = 0 GO WRITE

;HEADS HOME

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46

024766
024770
024772
024774

MACY11 30A(1052)

17-DEC-79

11:31

PAGE 4-32

SEQ 01N

ROUTINE TO WRITE PACKS INITIALLY

012602
012601
012600
000205

MOV

MOV
RTS

(SP)+ ,R2

(SP)+,R1

(SP)+,RO
R5

sTHIS PORTION WILL WRITE

JEND EXIT
THE PACK USING MULTIPLE SECTORS IF A

;ERROR OCCURS WE WILL GO TO 2% AND INDIVIDUAL SECTORS.

024776

002436
175400
002306
022370
000040
002350
000122

000110
000042

000124

000040

025464
000040
002436
000012
016574
024340
000104

025122

000040

000110
000044

024446

025124
025132
025136
025142
025146

000002
016574
024340
000104

025150

000012
000050

025162

025464

STWRT:

201$:

;INITIAL SECTOR 0

INC

REGEN

*SET THE GENERATE BUFFER FLAG

WRIPG(R4)

;sWRITE

762%:

RS, WRBUF
R1.BDA(R4)
TEMP1 ,BDA(R4)

BEQ

762%

*WRITE BUFFER INTO MEMORY
*SET UP SECTOR

PRPOS
(R4) ,BDA(R4)

BIS
MOV
MOV

R2.BDA(R4)
#BUF1,BBA(R4)
MIRITE ,FUNC(R4)

TST

aDCS(R4)

MOV
JSR
JSR

AWRCHK
, FUNC (R4)
R5,LDFUNC
RS ,WTRDY

BPL
JSR
BR

762%
952%

RS ,LDFUNC
RS ,WTRDY
203$
R5,ISDRST
2%

IN PROGRESS?

:NO - JUMP OVER

CMP

BEQ
JMP

JSR
JSR

203%:

#BUF1,BBA(RG)
-BUFFER START
#-1280. .BMP(R4) :10 SECTORS

JSR
MOV
BIS
TST

2058:

000044

CLR

MOV
MOV

;YUP
- ON CYLINDER NOW?

:YUP - WRITE THIS AREA
sNO = LOOK AT NEXT AREA ON DRIVE
;SET UP TO WRITE
;WRITE

;WAIT FOR READY

;ERROR

TST

aDCS(R4)

205%

:YES GO DO SECTORS INDIVIDUALLY

ADD
CMP
BNE
JMP

#10. .R2
#40. R2
2018
952%

sNEXT GROUP
sDONE?
:NO, GO BACK
sYES NEXT TRACK

BMI

;ERROR

:1F AN ERROR OCCURS THEN WE COME HERE AND DO THE TRACK SECTOR
;BY SECTOR.

025166
025170
025176
025202

2%:
177600

025210

000040
002350
000040

025214
025222
025226
025232

002436
022370
002244
002344

000042

000040

38:

000110

91%:

98$:

CLR

;R2 = SECTOR

MOV
MOV
BIS
BIS

#-128. ,BMP(R4)
R1,BDA(R4)
TEMP1 ,BDA(R4)
R2,BDA(R4)

;LOAD WORD COUNT
sSETUP DISK ADDRESS

MOV
JSR

#BUF 1,BBA(R4)
RS, WRBUF

JWRITE A BUFFER

CLR

DECNT

CLR

RWCNT

:CLEAR RETRYS OuT

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

025236
025244
025250

000012
016574
024340

025254
025260

000104
00004 0

027216
002340

002344
002344

MACY11 30A(1052)

002242
000002
016574
024340

025346
025352

000104

025354
025362
025366
025372

000040
027216
002340

025374
025400
025406
025410
025414

002242
002242

025416
025422

025550
024446

025426
025432
025436
025440
025444
025444
025446

000044

96%:

025472

aDCS(R&)

85%

;NO, GO READ

002342

MOV

BDA(R4) ,CHKSEC

;YES, CHECK IF SECTOR IS IN

TST

HDRFND

JSR

BNE

000044

85%:
80%:

!
;WAIT FOR WRITE TO FINISH
;ERROR ON WRITE?

;BAD SECTOR FILE
;IF

SET,

IT WAS

8028

:YES GO TO NEXT SECTOR

INC

DECNT

;NO, GIVE IT 3 TRYS TOTAL

BEQ
JSR
BR

8018
R5,ISDRST
96$

:BR IF AT RETRY LIMIT - BAD SECTOR
SRESET THE DRIVE & TRY AGAIN
: TRY RECOVERY AGAIN

CLR
MOV

RECNT
#WRCHK ,FUNC(R4)

;CLEAR RETRY COUNT
;READ/VERIFY THE 1 SECTOR WRITTEN

JSR

RS.WTRDY

*WAIT FOR DRIVE READY

cMP

000003

R5,CKBDSC

JSR

DECNT ,#3.

RS, LDF UNC

;1T MAY HAVE BEEN NOISE.

“ISSUE A WRITE-CHECK FUNCTION

aDCS(R&)

;:ERROR ON READ?

002342

MOV
JSR
ST
BNE

BDA(R4) ,CHKSEC
RS, CKBDSC
HDRFND
802%

;CHECK IF SECTOR IS
:A KNOWN BAD SECTOR
21T WAS THEN
:GO TO NEXT SECTOR

000020

" CMP

INC

RECNT

:GIVE IT ANOTHER CHANCE

BEQ
JSR

801$
RS,ISDRST

*REPORT ERROR IF AT RETRY LIMIT
:RESET THE DRIVE

BPL

95$

RECNT,#16.
80$

RS, INBAD

000012
000047

95%:

ADD

#10. ,R2

025176

BGT

951s

002350

SEQ@ 0112

TST

BPL

RS ,LDFUNC
RS ,WTRDY

JSR

002350

PAGE 4-33

MIRITE ,FUNC(R4) ;WRITE FUNCTION

8018:

000050
000012

MOV
JSR
JSR

024446

025176
025464
025470

11:31

ROUTINE TO WRITE PACKS INITIALLY

024446

025324
025330
025336
025342

17-DEC-79

8028:

JSR

CMP

JMP

:16 RE-READS BEFORE HARD ERROR
SAND RETRY AGAIN

:REPORT THE BAD SECTOR

*RESET THE DRIVE FOR THE NEXT OPERATION
:NEXT SECTOR (OFFSET BY 10)

R2,439.

*DONE WITH TRACK?

*NO GO BACK FOR NEXT SECTOR

*YES NEXT TRACK

OINC
SUB
CMP

R2
#40. ,R2
R2.#10.

:NEXT SECTOR
*DONE WITH TRACK?
:

JMP

;NO

TEMP1

:WHICH SURFACE?

CLR

TEMP1

;BOTTOM,

BEQ
952%:

RS.ISDRST

‘BR IF OK ... GET THE NEXT SECTOR

BEQ

950%

YES

:TOP (0), BRANCH

SWITCH TO TOP WITH

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79. 09:46

FIYIYY LT
R PR

025476

025522

000200
000205
000006
016574
024340

025526

024712

025532
025540
025546

012737
012764
000760

025550

010146

OV~

2907

000100
000021

000104
000000
000002
000004

MACY11 30A(1052)

17-DEC-79

000040
000044

4s:

ADD
MOV

#200,R1
#205 ,BDA(R4)

JSR
JSR

R5.,LDFUNC
R5,WTRDY

MOV

JMP

002350
000040

SEQ 0113

002246

:
;WAS TOP, MAKE BOTTOM.

INBAD:

MOV
MOV
MOV
MOV
MOV

R1,-(SP)
DCS(R4) ,R3
CS(R3) ,E.CS
BA(R3) ,E.BA
DA(R3) ,E.DA

;SAVE R1

JSR

R5,GETDST

sGET THE CURRENT DRIVE STATUS

ERRHRD

199. .NWRTS,ERR12

CSERHRD

.WORD
.WORD
INC

NWRTS
ERR12
ERRCNT (R4)

BEQ

BLO
MOV

JSR
MOV

2%:

R1.E.MP

TRAP

TST

003322
023520
024754

CONWR

- #HEAD,TEMPI
#21,BDA(R4)
43
|

000012
010722
010662

;SEEK, GO IN ALSO
;GO SEEK

MOV
MOV
BR

002424

000012

#SEEK ,FUNC(R4)

.WORD

012601
000205

PAGE 4=34

ROUTINE TO WRITE PACKS INITIALLY

024432
002426

012705

11:31

MOV
RTS

sGET THE CSR ADDRESS
sGET THE ERROR INFO FROM CSR

;SAVE IT AS ""(RLMP)'' DATA

199

T.DRP

:zgf WE COUNTING ERRORS

ERRCNT
(R4) ,ERLMT “PAST
2%
“NO
#ERLMTM ,WHY
R5,DRDRV
#ENDWR ,R5

(SP)+ ,R1

;RESET R1

CZRLKBO RLO1/02_PERF
XER
CZRLKB.MAC
07-DEC~ 9 09:46

MACY11 30A(1052)

17-DEC-79

HEADS HOME ROUTINE

.SBTTL
STARS

025670

11:31

9
PAGE 4-35

HEADS HOME ROUTINE

:.'t..t.tt.ttttfit'ttt.tt"'t'fi'.tt..fi'lfillt'l’"t.tt..ttt.tt'ittttt

srrcxggae -= ROUTINE TO BRING HEADS OVER TRACK 0

025670
025670
025672
025700
025704

:;itittttt*.ttttttttfiti"t'.tt'tfi.fi!.'lttt.ttttt'.ttttt.'t.ttttlt

000010
016574
024340

000044

HDHOME: MOV

:
000040
000044

MOV
BIC
MOV
MOV
BIS
MOV
JSR

MP(R3) ,RO
#177.R0
RO,LSTHDR(R4)
RO.BDA (R4)
#MK ,BDA (R4)
#SEEK ,FUNC(R4)
RS, LDFUNC

;GET HEADER
“ONLY CYLINDER
:SAVE THIS CYL # AS THE LAST POSITION
*MOVE IT TO BUFFERED DA
*SET MARKER FOR SEEK TO 000
:LOAD SEEK
*SEEK!

CLR
MOV
RTS

PRPOS(R4)
(SP)+,R0
R5

:SET BUFFER TO HOME CYLINDER (000)

JSR

025762

:SAVE RO

#RDHDR,
FUNC (R4) -READ HEADER
RS, LDFUNC
:GO DO IT.

JSR

025710
025714

RO,=(SP)

MOV
JSR

RS.WTRDY

RS .WTRDY

TWAIT.

SEQ 0114

CZRLKBO RLO1702 PERF EXER
CZRLKB.MAC

07-DEC~79 09:46

MACY11 30A(1052)

17-DEC-79

11:31

RANDOM WC AND DA ROUTINE

§§2;;L

025764

9
PAGE 4-36

SEQ 0115

RANDOM WC AND DA ROUTINE

tttt"ttt.tt..t*ittt"'t'tfit't'itt..tfittt*.ttt'.ttfittttt.*'ittt

.GUCDA == ROUTINE TO GET RANDOM SECTOR AND WORD COUNT FOR R/W TRANSFER.
:
SECTOR IS CHOSEN BETWEEN MIN/MAX LIMITS, WORD COUNT IS BETWEEN
:
MIN/MAX WORD COUNT. WORD COUNT WILL BE ADJUSTED NOT TO CAUSE

:
:

TRACK OVERFLOW IF HIGH SECTORS ARE CHOSEN....
R4 HAS BUFFER OF DRIVE WE°'RE WORKING WITH

ON EXIT - BMP(R4) HAS WORD COUNT

- BDA(R4) HAS DISK ADDRESS

$TARS

;;t*tttt*tttt.*tttttttttttti'ttttfifi*ittt'tttttttt*.tiitfilttttttt'

023737

010714

010716

GWCDA:

010714

C(MP

998:

1%:

177700

010714

010716

3$:

:MIN MAX SECTORS EQUAL

T.MXS,R2

*LOAD SECTOR

998

B8R

MOV

024524
002262

T.MXS,T.MNS

BNE

JSR

RS, RAND

BIC

4177760R2

BHIS
ASR
INC
BR
cMP
BHIS

3§
R2
R2
1%
R2,T.MNS
5%

MOV

LONUM,
R

cMP

T.MXS,R2

ROL

*NO, CALCULATE ONE

160 GET WC

*GET RANDOM # FOR SECTOR

:0=77 ONLY-

*R2 LOWER THAN MAX
:BRANCH IF YES
‘HALF IT
*INC SO NOT 0
:MIN OKAY

B8R

sNOW GET WORD COUNT

005737
001003
013737
023737
103021

010746

013746
013746

002442

002442
002442

5%:

010702
010702

95%:

TST
BNE

T.STIP
95%

MOV

MAXWC, T.MXB

g:?s

g?gUC.T.HXB

sRESTRICT THE XFER SIZE?
:BR IF YES
»

PRINTF #FMT13D,#OVER, T.MX8,MAXWC
MOV
MAXWC, = (SP)
MOV
T.MXB.~(SP)
MOV
#OVER - (SP)

MOV
MOV

MOV

026124

06
013737

002042 010702

026132
026140
026142

023737
003006
013737

010702

010724

010702

010724

026150
026154

013703
000421

010702

TRAP

#FMT15D,-(SP)
#4,-(SP)
SP.RO

CSPNTF

ADD

#12,SP

CMP

giMXB.T.HNB

MOV

T.MXB,T.MNB

MOV

;iHXB.R3

MOV

97%:

sNO = MAKE MAXWC = BIGEST XFER SIZE AVAIL.

MAXWC
, T.MXB

sMIN MAX EQUAL

;YES SET WC

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

026156

g
G

2995
2996
2997
2998
2999
3000
3001
3002
3003

004537

11:31

RANDOM WC AND DA ROUTINE

6%:

024524
002262
160000
010702

7%:

010724

8%:

JSR

BIC

MOV

CMP

RS, RAND

#160060R3
LONUM,R

8%
R3
R3

CMP
BHIS -

R3,T.MNB
9%

B8R

ROL

M9
PAGE 4-37
;GET RANDOM WORD COUNT

T.MXB,R$

BHIS
ASR
INC

3007

HAVE SECTOR AND WORD COUNT, CHECK THAT WORD CO(NT WILL FIT ON SECTOR
LOWER SECTOR START

000050

#40. ,R1

000042

11%:

000200

3010
301
3012
3013
3014
3015
3016
3017
3018
3019
20
3021
3022
3023
3024

17-DEC=79

MACY11 30A(1052)

026270

000124
000077
000040

000040 * 12%:
000040

R3
R3.,BMP(R4)
R1
#128. ,R3
11$
R2.R1

;SETUP FOR FOURTY SECTORS
:MAKE WORD COUNT NEGATIVE

sLOAD WORD COUNT

;DOWN COUNT MINIMUM START SECT NEEDED

:ONE SECTOR'S WORTH
sSTILL NEED ANOTHER SECTOR
;DID RANDOM SECTOR SUFFICE

12$
sBRANCH IF SUFFICED
R1, R2
:NO, THEN MAKE IT FIT
PRPOS (R4) ,BDA (R4)
#77 ,BDA(R4)
R2.BDA (R4)
R5

SEQ 0116

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

3026

3027
(2)

3028
3029
3030

026272

3032
33833

026272

SEQ 0117

.SBTTL ROUTINE TO DUMP BUFFER ON DCK

026272

3031

(2)

9
MACY11 30A(1052)
17-DEC=79 11:31
PAGE 4-38
ROUTINE TO DUMP BUFFER ON DCK

STARS

.223323 33333333333 332332332333 3338333333333 33323323333 23333822222222202 1

:DMPBUF ~= ROUTINE TO DUMP BUFFER ON DCK ERROR, TWO DUMPS ARE POSSIBLE
;
ONE WHERE WE CAN COMPARE WHAT IT SHOULD BE AND THE OTHER
:
WHEN WE CAN'T.

sms

fit'tttttt't‘ttttttttttttttttttttttttttt'ttttttttt'.tttt't.tttt'

004737

006330

DMPBUF: JSR~

PC,LINE3

3o§
;CALCULATE THE STARTING BUS ADDRESS FOR THE COMPARE
3837 026276 012737 000200 002464
MOV
#128. ,DWCNT1
338%3 026304 016400 000040

MOV

3040

026310

013701

002424

MOV

3042

026320

042701

177700

BIC

3046
3047
3048

026332
026334
026340

3041

026314

042700

3043 026324 010002
3044 026326 010103
3045 026330 160203
3049
3050
3051
3052

000200

938:

;GET STARTING BUS ADDRESS

E.DA_R1

;GET PRESENT DISK ADDRESS

#177700.R1

R2
#128. .R2
R3

*CALCULATE WORD COUNT
*ONE SECTORS WORTH
*DONE

9%$

*NO, GO CALC PARTIAL SECTOR

BIC

#177700,R0

MOV
MOV
su8

RO,R2
R1.R3
R2.R3

CLR
ADD
DEC

001374
016403 000042
005403
020203

BNE
MOV
NEG
cTMP

93s
BMP(R4) ,R3
R3
R2,.R3

3054 026356 013702 002422
3055 026362 162702 000400
3056 026366 000412

MOV
SUB
B8R

E.BA,R2
#400_R2
968

MOV
su8
MOV

#128. RO
R2,R0"
RO.DWCNT1

MOV
SuB

E.BA,R2
RO.R2

004132

MOV
MOV
MOV
MOV

CHKSEC.=(SP)
#CRLDA.~ (SP)
R2,-(SP)
#BUSAD, - (SP)

026436 012746 000005
026442 010600

MOV
MOV

(4) 026446 062706 000014
3065 026452 012700 030004
3066 026456 012701 000010

ADD
MOV
MOV

#14,SP
mnsr RO
R

BEQ
DEC
BNE

2
R1
8

3053

026342
026344
026350
026352

005002
062702
005303

177700

BDA(R4) ,RO

026354

003005

2057

026370

160302

3061

026404

006300

BGT

3058 026372 012700 000200
3059 026376 160200
026400 010037 002464
026406 013702 002422
3063 026412 160002
3064

026414

(7)

026432

(11) 026414
(10) 026420
(9) 0264264
(8) 026426

(6)
(3)
(4)

026444

013746
012746
010246
012746
012746

002342
002577

026466
026470
026472

968:

PRINTB

MOV

104414

001415
005301
001373

SUB

ASL

007502

3067 026462 022062 000002
3068
3069
3070

9%%:

TRAP

1$:

cMP

R3,R2

*SAVE SECTOR BITS

*SAVE A COPY
*SAVE ANOTHER
*GET DIFF OF SECTORS

*NO
*GET WORD COUNT
SMAKE IT POSITIVE
*WORKING WITH FULL SECTOR

*PRESENT BUS ADDRESS
*START OF COMPARE
:GO COMPARE BUFFER
*GET SECTOR DIFF

#FMT13,#BUSAD,R2,#CRLDA, CHKSEC

¢ WFMT13.-(SP)

#5,-(SP)
SP.RO
CSPNTB

(R05+.2m2>

:CHECK PATTERN LIST
;

CZRLKBO RLO1/702 PERF EXERCZRLKB .MAC
07-DEC=79
09:46

3071
3072

(8)

144!

026474

026476

33:

012746 003631

852500 012746 007544

(6)
(3)

506 012746 000002
026510 010600

(4)

026514 062706 000006

(&)

8 10
MACY11 30A(1052)
17-DEC=79 11:31 PAGE 4-39
ROUTINE TO DUMP BUFFER ON DCK

026512

026530

005037

ggg 026534 013701

002344

MOV

SFMT14 . =(SP)

TRAP

%2 026520 000532
3077

#FMT14, ANOREV

MOV
MOV

104414

3075 026522 021227 000200
3076 026526
101

PRINTE

MOV

28:

010744

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

#6,5P

P
BH]

(R2) ,#128.
38

STOMP

CLR

DECNT

MoV
MOV
NEG

MOV

3080 026540 o1§g7 002346
3081 026544 013737 002346 002462
3082 026552 005437 oozl.gs

#NOREV
, = (SP)

ADD

B8R

T.CLT.RI

105
700 001416
3106 026702 005301

BEQ
DEC

(R2)+,TEMPO
TEMPO
. DWCNT
DWCNT
(R2)+, TEMP1
cg.mvo
82 TEMP,
TEMP1 R
016. TEWPS
TemPd
6$
TEMPO
TEMPS
ss
6. TEWPS
TemP1 R3
(R3)+,GDDAT
TEMPS
7$
GDDAT
DWCNT
(R2) ,GDDAT
8s
DECNT
R1
8s
R1

(10) 026704 on;«s

MOV

(R2) ,~($P)

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

013746 002352
012746 007565
012746
010600

MOV
MOV
MOV
MOV

TEMP2.=(SP)
#FMT148,~(SP)
#6,-(SP§
SP.RO

31‘31’; 026732 062706 000012

ADD

#12,5P

INC
ST

TEMP2
(R2)+

3083
3084
3085
3086
3087

3088
3089
3090
3091
3092
3093
309
3095
3096
3097
3098
3099
3100

026556
026562
026570
026576
026602

026610
026614
026616
026622
026630
026636
026642
026646
026652
0266564
026660
026666

012237 0023
162
002346
O1
002352
013703 0023
012737 000020 002360

005737
001417
005337
005737
001005
012737
013703
012337
005337
ooow;
005037
005237
021237

g;g; 026670 001422
3103

026676

3107

026704

(%)

3109
3110

002402

026706

026712
026716
026722
026726
026730
026736
026742

MOV

MoV
DEC
BR
CLR
INC
P

INC

005701

PRINTB

0137646 002402

MOV

104414

005237
005722

ST
BEQ
DEC
53
BNE
MOV

BEQ

72 005237 002344

(9)

002346
48:
002346
002360
000020 002360
002350
002402
5$:
002360
002402
68:
002462
78:

MOV
SuB
MOV
MOV
MOV

002352

3111 026744 023737 002352 002464
3112 026752 003716

TRAP

8s:

CMP
BLE

SEQ 0118

;NONZERO WORD COUNT
;WORD
*PATTERN ADDRESS
216 ENTRIES
*ZERO OR PATTERN
*ZERO BRANCH
:WITHIN LIST

#FMTI14B,TEMP2,GDDAT,
(R2)

GDDAF,-(SP)

(SPNTB

TEMP2,DWCNT1
48

)
>

CZRLKBO RLO1/02_PERF %ER

CZRLKB.MAC
3113

(9)
(8)
(7)
(6)
(3)
(&)
31(1'1).

gug

07-DEC~79

09:46

026754
026760
026764
026770
026774
026776
027000

013746
013746
012746
0127646
010600
104414
062706

002352
002344
007263
000003

027004

000205

026754

MACY11 30A(1052)

17-DEC=79

€10

11:31

PAGE 4=40

SEQ 0119

ROUTINE TO DUMP BUFFER ON DCK
PRINTE

000010

#FMTOA,DECNT,
TEMP2

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

TEMP2,=(SP)
DECNT,=(SP)
SFMTOA, = (SP)
#3,-(SP)
SP.RO

RTS

(SANTB

#10,5P

3117

;ROUTINE TO DUMP THE CONTENTS OF THE READ BUFFER ON ERROR DETECTED

3120 027006 016437 000042 002346
3121 027016 005437 002346
3122 027020 012737 000200 002464

STDMP:

%}}3

3123
(8)

JWILL ALSO TELL HOW MANY WORDS WERE IN THE XFER

027026
027026

(7)
(6)
(3)

027032
027036
027042

013746
012746
012746
010600

(4)

027046

706

(%)

027044

(7)

027064

012746

(%)

027076

104414

3127

027106

005722

3130

027112

(6)
(3)

(4)

027070 012746
027076 01

18:

007553

#6,5P

MOV

SFMTIGA = (SP)

MOV
MOV

TRAP

(SPNTB

DEC
BNE

R3
23

(7)
(6)
(3)

027112 012746 007562
027116 012766 000001
027122 010600

MOV
MOV
MOV

SFMT14C ,~(SP)
#1,-(SP)
SP.RO

(4)
3131

027126
027132

062706
012703

ADD
MOV

%, SP
n0. R3

3135

027146

005301

3137

027152

(6)
(3)

027156
027162

012746
01

(4)

027166

062706

000004
000012

3132 027136 005337 002464
3133 027142 001001
3134 027144 000402
;

(%)

3138

027172

104414

000205

TRAP

2s:
38:

:POINT TO THE NEXT DATA WORD

*DONE WITH THE LINE?
*BR IF NO

#FMT14(

*YES = PRINT <CR>

($PNTB

DEC
BNE
B8R

DWCNT1
3s
i

BNE

;RESET THE LINE LIMIT
*END OF SECTOR?
*BR IF NO
SYES = EXIT

PRINTB

#FMT14C

*PRINT <CR>

000001

MOV
MOV

#,-(SP}
SP,RO

000004

ADD

48:

DEC

(RO)+

AT PRINT LIMIT?

027152 012746 007562

027164

PRINTB

3136 027150 001344
(7)

:GET THE PRINT LIMIT
SSETUP LINE LIMIT
:PRINT A DATA WORD

#2,-(SP)
SP.RO

3128 027106 005303
3129 027110 001012

104414

000006

*TELL TRANSFER SIZE

MOV
T.CLT.RY
MOV
#10. R3
PRINTB #FMTI4A, (R2)
MOV
(R2) ,~($P)

26 SP

027126

:GET NEGATIVE WORD COUNT
SMAKE THE # POSITIVE
“SET THE SIZE OF SECTOR

(SPNTB

ADD

(4)

027100

TRAP

010744
000012

B8P (R4) , TENPO
TEMPO
#128. ,DWCNT1

PRINTE #FMTXS. TEMPO
MOV
TEMPO, =(
MOV
#FMTXS
, = (SP)
MOV
#2,-(SP)
MOV
SP.RO

002346
007754
000002

104414

3124 027052 013701
3125 027056 012703
3126 027062
(8) 027062 011246

MOV
NEG
MOV

MOV

TRAP

RTS

#FMT14C = (SP)

:BR IF NO

(SANTB

#6,SP
RS

JEXIT

CZRLKBO RLO1/02_PERF %ER

CZRLKB.MAC

07-DEC=79

3140
3141
3142
3143
3144
B8 AL

3146

3147
3148
3149
3150
3151
3152
3153
3154
3155
3156

027174
027176
027202
027204
027210
027212
027214

010446
012704
005024
020427
001374
012604
000205

09:46

MACY11 30A(1052)

031712

TURETIR
RT tLE
:

28:
.

SEQ 0120

:
sROUTINE TO CLEAR ALL DRIVE INFO, USED ON START OR
;RESTART IF CALLED.
CAN BE USED TO CLEAR INDIVIDUAL DRIVE
: INFO BY BITMAP FOLLUWING CALL

(LEAR:

030432

11:31

D 10

PAGE 4=41
ROUTINE TO DUMP BUFFER ON DC(K

17-DEC=79

“3:

MOV
MOV
(LR
(M
B
MOV
RTS

Ré,=(SP)
#DRBUF R4
(R4)e
R&,WENDBUF
28
(SP}+ R4
RS

: SAVE R4
:GET BUFFER STARTS
:CLEAR
;AT END OF BUFFERS
:NO, GO TO 28
sRESTORE CURRENT BUFFER POINTER
SEXIT

O ]

CZRLKBO RLO1/02 PERF
XER
CZRLKB.MAC
07-DEC=79 09:46

E 10

17=-DEC=79
PAGE 4-42
MACY11 30A(1052)
11:
3
ROUTINE TO CHECK FOR BAD SECTOR
.SBTTL

027216

SEQ 0121

ROUTINE TO CHECK FOR BAD SECTOR

SARS

.""...'...'Q"....."""......'.Q'....'..'...'.Q.Q'.'..".'.

CKUSC == ROUTINE TO MATCH BAD SECTOR.....BDA(R4)

027216

SYARS
MAAA LA

027216

002340
000021
000112

177777

AL LA AL ALAAAALAAAAAARA

(kBDSC: CLR
MOY
MOV
MOV
1$:
MOV

2%:

002342

R2 -(SP)

02
027270
027272

3%:

A ¥

INC

MOV

RTS

027274

ddAdd

ittt dddd

n?’.,

.‘ég ENTRIES + BSF POINTER

#-1,(R2)

cEND OF ENTRY LIST?
:BRANCH IF END

BSECPY(M) .R2

)

T WHERE WE'RE LOOKING

CHKSEC, (R2)
33

e
BEQ

AAA

CLEAR FLAG
SAVE RO
'SAVE
R2

RO,=(SP)

o,
_ BEOQ

DEC
BNE
&3]

AR AR

HDRF ND

JHAVE WE GOT A MAT(CH

;THEN GO SET

(R2)+

TST

002340

IS SECTOR WE ARE LOOKING

FOR IN LIST POINTED TO BY BSECPT(R4)......HDRFND IS SET IF WE FIND IT.

INDICATOR, ELSE

RO
2%

6%
HDRF ND
(SP)+ R2
(SP)+ RO
RS

;SET FLAG FOUND

SYARS
MUGAALA LA

LA LA LA AL

:CKBOTK == MERE

SARS

027274

ALl A

Al Al

sidssd)

TO CHECK IF CYLINDER & HEAD SELECTED IS IN THE BAD SECTOR FILE

......O.....'.......'"".......'...Q...".'.'..fi'.."t...t."t

002340

000021
000112
177777

(kBDTK: CLR
MOV
MOV
MOV
MO
18:

2%:

MOV

0,4

BEQ

MOV
8IC
4
e,
BEOQ

002272
002342

TST

DEC

002340

B
B8R
INC

MOV

MOV
MOV
RTS

HORF ND

RO,~(SP)

R1.=(SP)

R2. -(SP)
n’.,

BSECPT (RG) ,R2

#-1,(R2)
&%

(R2) R
SMSK ,R1

R
CHKSEC
3s
(R2)+

RO
2‘

;CLEAR FLAG
: SA VE RO

*SAVE R1

:SA VE R2

;16 ENTRIES + BSF POINTER
;GET WHERE WE'RE LOOKING
sEND OF LIST?
;BRANCH IF END
:GET THE ENTRY FROM BAD SECT FILE
sLEAVE ONLY CYL # € HEAD
sHAVE WE GOT A MAT(H
;THEN GO SET

INDICATOR, ELSE

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

;SET FLAG FOUND

027364

F 10
17-DEC=79
11:31
PAGE 4=43
MACY11 30A(1052)
ROUTINE TO CHECK FOR BAD SECTOR

STARS
A

Al LA

$TARS

027364

ALl A

ARl A

SEQ 0122

222222222

2222323222 3]

;'..'..O.'..........Q.""..'...'........'.....Q..'..'........Qt.

.BLkW

STARS

BSEC7:

BLKW

— e

BSECH

.BLKW
.BLKW
.BLkW
.BLkw
.BLKW
.BiLkw

BSECO:
BSECY:
BSEC2:
BSECS:
BSEC4:
BSECS:

NNNNNNNYN

:BUFFER TO STORE BAD SECTOR LISTS

WN)
W b

':.."'.........t..I.".".'.....I'..........Q..Q.'.Q'.'...Q'.".

STARS
WA

AL AL R

ARl

sLIST OF PATTERNS USED IN WRITING
PATLST: PATO
PAT1
PAT?2

PAT3
PATS

PATT:

052525

;0°S TO ALT BITS
JSHIFTING ALT BITS
JWORST CASE DATA

JSTRANGE DATA

PAT?

;STRANGE

PATG

PAT(:

sALL 0°S

;=1'S TO ALY BITS

PATS

233332333 3333333333353388

VRNCNF WSO

~§a§a§ RRCKRKKIRIRS %8

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

JALL 1°S

DATA

Rl 2232232222222

30A(1052)
ROUT INE

052525
177777

PAT2:

177777
177777

000000

177777

000000
177777
000000
177777

025252
052525
052525
125252

PATY:

125252

PATG:

11:
%1

G 10

PAGE 4=44

TO CHECK FOR BAD SECTOR
.WORD
.WORD
.WORD
. WORD
.WORD

172765

000000
000000
000000
177777
177777
177777
000000
000000

17=DEC=79

052525

177777

OO0 4= -wO00

MACY11

§8555885885500 8800000000000 00000000080548S 8

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46

77777
77777
77777

1772777
177777

177777

172777

SEQ 0123

CZRLKBO RLO1/702 PERF EXER
CZRLKB.MAC
07=DEC=79 09:46

H 10

MACY1Y 30A(1052)
17=DEC=79 11:31 PAGE &=45
ROUTINE TO CHECK FOR BAD SECTOR

3316
gg}g

030260
030262

133333
155555

3319
3320
3321
3322
3323
3324
3325
3326
3327
3328

g%{s’

030322

121105
150442
064221
132110
055044
026422
01321
105504
042642
021321
110550
0442
022132
011055
104426
042213

PATS:

3330
3331
3332

030264
030266
030270
030272
030274
030276
030300
030302
030304
030306
030310
030312
030314
030316

3336

030324

177777

PATE:

3345
3346
3347
3348

030346
030350
030352
030354

177777
177777
177777
177777

3333

3337
3338
3339
3340
3341
3342
3343
3344

3349
3350
gg;

3353
3354
3355
3356
3357
3358
3359
3361
3363

3364

3365
3366
3367
3368
3369
3370

030326
030330
030332
03033
030336
030340
030342
030344

030356
030360
030362

177777
177777
177777
177777
177777
177777
177777
177777

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645
151322

030414
030416
030420
030422

132264
055132
026455
113226

030412

064551

133333
15555S

.WORD
WORD
LWORD
LWORD
LWORD
LMWORD
. WORD
.WORD
CWORD
LWORD
WORD
WORD
LWORD
.JORD
WORD

1;1105
150442
64221
132110
55044
26427
1321
10550¢
42642
21321
110550
44264
22132
11055
104426
42213

.WORD

177777

.WORD
WORD
.WORD
.WORD

177777
177777
177777
177777

WORD

177777
177777
177777

030364
030366
030370
030372
030374
030376
030400
030402
030404
030406
030410

.WORD
WORD

PAT7:

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

WORD

177777
177777
177777

.WORD
WORD
WORD
LMWORD
WORD
.WORD
LWORD
WORD
LWORD
WORD
.WORD

45513
122645
151322
64550
132264
55132
26455
113226
45513
122645
151322

WORD
.WORD
.WORD
.WORD

SEQ 0124

17272777
177777
1727777
177777
177777
177777
177777
1772777

. WORD
WORD

LWORD

64551

132264
55132
26455
113226

CZRLKBO RLO1/02 PERF EXER -

CZRLKB.MAC
3372
3373
(3)

07-DEC=79 09:46
0002¢4C
104401

MACY11

30A(1052)
ROUTINE

17=DE(=79

110

SEQ 0125

PAGE 4=46

TO (HECK FOR BAD SECTOR

ENDOFPROGRAM:
ENDTST
L1002¢4:

NOP

TRAP
HALT

000000
.SBTTL

DRIVE

sORIVE

INFORMATION BUFFER

JAlST

INFORMATION BUFFERS

SKONT

RXFR1

RXFR2
wXFR
waFR?

ERRCNT

SFTCNT

SKECNTY

DERCNY

DCRCER
H(RCER
DLTINT

<OPJONT
-

NF ERR

NXMCNT
RE TRY

B8DA

aMP
FUNC
B( SADR
LSTHDR

READ OPERATION COUNT

(BITS)

lfl”E OPERATION COUNT

.ERRG! COUNT = HARD

LOW (RDER

‘"
HIGH ORDER
(BITS) LOW ORDER
HIGH ORDER

;ERROR COUNT = SOFT
:SEEK_ERROR COUNT
:DRIVE ERROR COUNT
;DATA CRC ERROR COUNT
:HEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT

:OPERATION INCOMPLETE ERROR COUNT
:HEADER NOT FOUND ERROR COUNT
JNON EXISTANT MEMORY ERROR COUNT
PRESENY RETRY NUMBER

DISK ADDRESS CONTENTS

PRESENT MULTIPURPOSE CONTENTS

sLAST FUNCTION LOADED

wXFR3
LSTDA
DIiFwD
DPHOUR

DATCER
DOW(CK
SERNM1
SERNMZ
DCS
DRSEL
BBA
BSELPT

JWRITE CHECK NECESARY
;SERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER OF CARTRIDGE
;CSR ADDRESS
;DRIVE SELECT BITS(8,9,10)
sPRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE

SKCNT?
PRF _GS

RaER3

TRERR

SFRRSER

;SEEK OPERATION COUNT

:CSR_IMAGE OF LAST COMMAND
SLAST POSITION ON DISK
;ERROR ON WHICH RECOVERY IS IN PROGRESS
s SEEK COUNT LOW ORDER
;PROGRAM INTERNAL FLAGS
sREAD COUNT THIRD
JWRITE COUNT THIRD
;DISK ADDRESS OF SOFT ERROR
;LAST DIFFERENCE WORD OF SEEK
:TIME DRIVE WAS DROPPED

RTYPE

SEEEE

— e d d
e d d —d D d d e D D D e D e e
D e e d D d d d d d
e d d D el e e
N N Nt N N N N N N N N N N N N N N N N N N N N N N N NP N N N N N N N N N N Nt N

PNTNONINONONPNINONTNINONONINONONONONNPNPNONONPN
NN
NN NN ONONPN NN PNPN PN

:
DRBLUF

RSEEK
SOFTCS
TDR

;TRACKING ERROR COUNT

;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOT1

=1)

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

MACY11

07-DEC=79 09:46

30A(1052)

17<DEC=79

DRIVE INFORMATION BUFFERS

(1)
(1)
(1)
(1)
(1)
(1)
“(1)
(1)
(1)
(1)
(1)
(1)
(1)

030560
030562
030564
030566
030570
030572
030574
030576
030600
.030602
030604
030606
030610

000000 000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030

(1)

030614

000034

NMCNT

000040
000042
000044
000046
000050

B8DA
[Sea)
FUNC
8(SADR
LSTHDR

000122
000124

—

030554
030556

(1)
(1)

030612
030616

000032

000036

.
'

;WRITE IN PROGRESS FLAG
JPRESENT POSITION ON DISK

SKCNT
RXFR1
RXFR2
wXFRY
wXFR?2
ERRCNT

sSEEK OPERATION COUNT
READ (PERAU(N COWT (BITS) LOW ORDER

HCRCER

DLTCNT
OPICNT

NF ERR

030634
030636
030640
030642
030644

000054
000056
000060
000062
000064

SKINTT
PRF LGS
RXFR3
wXFR3
LSTDA

030650

000070

‘DPHOUR

000074
000076
000100
000102
000104
000106
000110
000112

DATCER
DOw{X
SERNM1
SERNM?
DCS
DRSEL
BRA
BSECPY

(1)
(1)

(1)

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

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

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

030646

030652

030654
030656
030660
030662
030664
030666
030670
030672

000052

000066

000072

030674
030676
030700
030702

000114
000116
000120
000122

030706
030710
030712
030714
030716
030720
030722
030724
030726

000000
000002
000004
000006
000010
000012
000014
000016
000020

030704

000124

HEADER NOT FOUND ERROR COUNT

JNON EXISTANT MEMORY ERROR COUNT

RETRY

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

RTYPE

DIFWD
TRERR

RSEEK
SOFTCS
DR
WwRIPG
PRPOS
SKCNT
RXFR1
RXFR?
WXFR1
WXFR2

ERRCNT
SFTCNT
SKECNT
DERCNT

SEQ 0126

‘'
HIGH ORDER
l-Rl TE (PERAH(N CMT (BITS) LOW ORDER
HIGH ORDER
,ERRm COUNT - HABD
<ERROR COUNT = SOFT
JSEEK ERROR COUNT
;DRIVE ERROR COUNT
:DATA CRC ERROR COUNT
;HEADER CRC ERROR COUNT
sDATA LATE ERROR COUNT
JOPERATION INCOMPLETE ERROR COUNT

SFTCNTY
SKECNT
DERCNTY
DCRCER

030620
030622
0306246
030626
030630

030632

J 10
PAGE 4=47

WRIPG
PRPOS

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

(1)

11:31

PRESENY RETRY NUMBER

o
DISK ADDRESS CONTENTS
PRESENT MUL TIPURPOSE CONTENTS
JLAST FWCT!OJ LOADED
.'CSR IMAGE
OF LAST COMMAND
JLAST POSITION ON DISK

;ERROR ON WHICH RECOVERY IS IN PROGRESS
;SEEK COUNT LOW ORDER
;PROGRAM INTERNAL FLAGS
READ COUNT THIRD
hfiITE COUNT THIRD
:DISK ADDRESS OF SOFT ERRCOR

;LAST DIFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED

;TRACKING ERROR COUNT

JWRITE CHECK NECESARY
sSERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER OF CARTRIDGE
;CSR ADDRESS
;DRIVE SELECT BITS(8.9.10)
JPRESENT BUS ADDRESS CONTENTS
JPOINTER TO BAD SECTOR FILE
;CSR AT TIME OF SOFT ERROR
:DRIVE TYPE FLAG (RLOT1 =
JWRITE IN PROGRESS FLAG

JPRESENT POSITION ON DISK

JSEEK OPERATION COUNT
READ (PERATI(N CM! (BITS) LOW ORDER
**
HIGH ORDER
\-RITE U’ERATI(N CMT (BITS) LOW ORDER
HIGH ORDER
.ERROR COUNT = HARD
JERROR COUNT = SOFT
;SEEK ERROR COUNT
;DRIVE ERROR COUNT

CZRLKBO RLO1/702 PERF EXER

CZRLKB.MAC
(1)
(1)

(1)
(1)
(1)

030730
030732

030734
030736

07=DEC=79 09:46

MACY11-30A(1052)

17-DEC~(=79

DRIVE INFORMATION BUFFERS

000022
000024

000026
000030

HNF ERR

000032

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

030746
030750
030752
030754
030756
030760

000040
000042
000044
000046
000050
000052

8DA
S
FUNC
B8( SADR
LSTHDR
RTYPE

(1)

030764

000056

PRF LGS

030772
030774
030776

000064
000066
000070

LSTDA
- DIFD

(1)

(1)
(1)

(1)
(1)
(1)

030762

030766
030770

RE TRY

000054

000060
000062

(1)
(1)
(1)

031016
031020
031022

000110
000112
000114

A
BSECPT
RSEEK

000124

PROQS

031024
031026
031030

000116
000120
000122

(1)

031034

000000

f};

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

(1)

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

(1)
(1)
q)
(1)
(1)
(1)
(1)

031032

031036
031040
031042
031044

031046

031050
031052
031054
031056
031060
031062
031064
031066

000002
000004
000006
000010

000012

000014
000016
000020
000022
000024
000026
000030
000032

031070 000034
031072 000036
031074 000040
031076 000042
031100 : 000044
031102 000046
031104 000050

DPHOUR

000072
000074
000076

(1)
(1)
(1)

f
;

TRERR
DATCER
DOW( K

SERNM
SERNM?
DCS
DRSEL

SOFT(S

wR PG

DISK ADDRESS CONTENTS
PRESENY MULTIPURPOSE CONTENTS

LASt FUNCTION LOADED
SR IMAGE OF LAST COMMAND
'LASI POSITION ON DISK
JERROR ON WHICH RECOVERY IS IN PROGRESS
SEEK COUNT LOW ORDER

PROGW! INTERNAL FLAGS

RXFR3
WXFR3

031000
031002
031006

031006 000100
031010 . 000102
031012 000104
031014 000106

PRESEM RETRY NUMBER

SK{NT?

(1)
(1)
(1)

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

;DATA LATE ERROR COUNT

NXMONT

000036

;OPERATION INCOMPLETE ERROR COUNT
JHEADER NOT FOUND ERROR COUNT
JNON EXISTANT MEMORY ERROR COUNT

030740
030742
030744

PAGE 4=48
;sDATA CRC ERROR COUNT
JHEADER CRC ERROR COUNT

DLTCNTY
OPJ(NT

000034

K 10

DCRCER
MCRCER

(1)

11:31

*READ COUNT THIRD
*WRITE COUNT THIRD

:DISK ADDRESS OF SOFT ERROR
JLAST DIFFERENCE WORD OF SEEK
:

;TIME DRIVE WAS DROPPED
;TRACKING ERROR COUNT
JWRITE CHECK ECESARY

JSERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER OF CARTRIDGE
;CSR ADDRESS
:DRIVE SELECT BITS(8.9.10)

JPRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE

;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOT1 =1)

JWRITE IN PROGRESS FLAG

JFRESENT POSITION ON DISK

SKCNT

;SEEK OPERATION COUNT

ERRCNT
SFT(NT
SKECNT
DERCNT
DCRCER
MCRCER
DLTCNT
OP]CNT
HINF ERR
NXMCNT
RE TRY
8DA
e
FUNC
B( SADR
LSTHDR

*ERROR COUNT = HARD
*ERROR COUNT = SOF
T
*SEEK ERROR COUNT
;DRIVE ERROR COUNT
:DATA CRC ERROR CO'NT
*HEADER CRC ERROR COUNT
*DATA LATE ERROR COUNT
JOPERATION INCOMPLETE ERROR COUNT
JHEADER NOT FOUND ERROR COUNT
JNON EXISTANT MEMORY ERROR COUNT
PRESENT RETRY NUMBER
DISK ADDRESS CONTENTS
PRESEM MULTIPURPOSE CONTENTS
JLAST FOUNCTION LOADED
:CSR IMAGE OF LAST COMMAND
JLAST POSITION ON DISK

RXFR1
RXFRZ
wXFR1
wXFR2

READ OPERATION COUNT (BITS) LOW ORDER
HIGH ORDER
mltE OPERATION COUNT (BITS) LOW ORDER
**
HIGH ORDER

SEQ 0127

PN NN N

)

2 FNIITIR BFRTB R R SRRARNNSZSZS

OO
WW

30A(1052)
DRIVE

17-DEC=79

11:%1

INFORMATION BUFFERS

L 10

;ERROR ON WHICH RECOVERY IS IN PROGRESS
s SEEK COUNT LOW ORDER
;PROGRAM INTERNAL FLAGS
sREAD COUNT THIRD

RTYPE

SKCNTI
PRF LGS
RXFR3
WXFR3
LSTDA
DIFWD

SWRITE COUNT THIRD
;DISK ADDRESS OF SOFT ERROR

.LASY DIFFERENCE WORD

DPHOUR

TIME DRIVE WAS DROPPED

) e

TRERR

sWRITE CHECK NECESARY
:SERIAL NUMBER OF CARTRIDGE
<SERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS
;DRIVE SELECT BITS(8,9,10)

)

SEEK

:TRACKING ERROR COUNT

DATCER

o
o

031204

SEQ 0128

PAGE 4=49

—

N S
O
——Y -b

000052
000054
000056

MACY11

sPRESENT BUS ADDRESS CONTENTS

;POINTER TO BAD SECTOR FILE
;CSR AT TIME OF SOFT ERROR
:DRIVE TYPE FLAG (RLOT1 =1)
;WRITE IN PROGRESS FLAG
sPRESENT POSITION ON DISK
;SEEK OPERATION COUNT
READ OPERATION COUNT

(BITS)

ifl"E OPERATION COUNT

LOW ORDER
HIGH ORDER

(BITS) LOW ORDER
HIGH ORDER

.Em COUNT = HARD
ERROR COUNT = SOFT
s SEEK_ERROR COUNT
;DRIVE ERROR COUNT
;DATA CRC ERROR COUNT
sHEADER CRC ERROR COUNT
sDATA LATE ERROR COUNT
sOPERATION INCOMPLETE ERROR COUNT
sHEADER NOT FOUND ERROR COUNT

—3

WW W

j=l=]

NN NN NN ONONNONONONNPNONPNNONNONPNONN
PN NN N ONN NN NN N PN PN NN NN NN PN NN PN PN PN PN PN -~
PN
— e e e —d —d
) ——d —d ) D ) —d ) D ) D ) ) D D - —d D D ) —d —d —d —d D d wd ) D D el d d D e e ) D D e ) e D D i )
Nt N Nt N Nt N N N N N N N N NP N N N N N N N N N N N N NP N N N N NP N N N N N N N N N N
N N N N NP N N NP N N N N ~

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

20
000022

sNON EXISTANT MEMORY ERROR COUNT
PRESENT RETRY NUMBER

DISK ADDRESS CONTENTS

PRESENT MUL TIPURPOSE CONTENTS

:CSR |
JLAST POSITION ON DISK

;ERROR ON WHICH RECOVERY IS IN PROGRESS
+SEEK COUNT LOW ORDER

*PROGRAM INTERNAL FLAGS
JREAD COUNT THIRD

SWRITE COUNT THIRD

:DISK ADDRESS OF SOFT ERROR
sLAST DIFFERENCE WORD OF SEEK

;TIME DRIVE WAS DROPPED
sTRACKING ERROR COUNT

031262

000100

;WRITE CHECK NECESARYTM

;SERIAL NUMBER OF CARTRIDGE

CZRLKBO RLO1/702_PERF EXER

CZRLKB.MAC

MACYTT

07-DEC=79 09:46

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

031264
031266
031270
031272
031274
031276
1300
031302
031304

000102

30A(1052)

17-DEC-79

DRIVE INFORMATION BUFFERS

TDR
WwR PG

sCSR AT TIME OF SOFT ERROR
:DRIVE TYPE FLAG (RLO1 =
JWRITE IN PROGRESS FLAG

SKCNT

;SEEK OPERATION COUNT

031306

000124

PRPOS

(1)

031310

000000

(1)

031320
031322
0313246

(1)
(1)
(1)

031312
031314
031316

(1)
(1)
(1)

031326

(1)
(1)
(1)

031332
03133&
031336

(1)

(1)
(1)
(1)

(1)

031354
031356

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

DCRCER
HCRCER
DL TCNTY

;DATA CRC ERROR COUNT
JHEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT

000044
000046

031374

000064

031376
031400

000054

JPRESENT MULTIPURPOSE CONTENTS

(1)

031414

000104

LSTDA

;READ COUNT THIRD
JWRITE COUNT THIRD

;DISK ADDRESS OF SOFT ERROR

*LAST DIFFERENCE WORD OF SEEK
:TIME DRIVE WAS DROPPED

sTRACKING ERROR COUNT

JWRITE CHECK NECESARY

:SERIAL NUMBER OF CARTRIDGE
*SERIAL NUMBER OF CARTRIDGE

DCS

DRSEL
BRA
BSECPT
RSEEK
SOFTCS

(1)

031436

000000

SKCNT

000120
000122
000124

.PROGIM INTERNAL FLAGS

SERMMT
SERNM?

000106
000110
000112
000114
000116

031430
031432
031434

*SEEK COUNT LOW ORDER

TRERR

031416
031420
031422
031424
031426

(1)
(1)
8;

SLAST POSITION ON DISK
JERROR ON WHICH RECOVERY IS IN PROGRESS

DATCER
DOWCK

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

TDR
WwRIPG
PRPOS

DISK ADDRESS CONTENTS

JLAST FUNCTION LOADED
JCSR IMAGE OF LAST COMMAND

PRFLGS

DIFWD
DPHOUR

000100
000102

B8( SADR
LSTHDR
RTYPE
SKCNT

000066
000070

000072
000074
000076

JOPERATION INCOMPLETE ERROR COUNT
JHEADER NOT FOUND ERROR COUNT
JNON EXISTANT MEMORY ERROR COUNT

.msem RETRY NUMBER

RXFR3Z
WXFR3

031402
031404
031406

031410
031412

HIGH ORDER

RE TRY

000060
000062

(1)
(1)
(1)

(1)
(1)

OPJCNTY
HNF ERR
NMCNT

FUNC

:DRIVE ERROR COUNT

B8DA

000042

000056

(1)
(1)

)

000040

031366

031370
031372

DERCNT

000036

000050
000052

(1)
(1)
(1)

000022
000024
000026

031360
031362

031364

WwXFR2
ERRCNT
SFTCNTY

SKECNT

000030
000032
000034

031352

READ WERATICN CMT (BITS) LOW ORDER
**
HIGH ORDER
hfi"E U’ERATIN C&NT (BITS) LOW ORDER

.Em COUNT = HARD
JERROR COUNT = SOFT
;SEEK ERROR COUNT

031340
031342
031344

031346

JPRESENT POSITION ON DISK

RXFR1
RXFR2
wXFR1

000010

000020

031350

*CSR ADDRESS
*DRIVE SELECT BITS(8,9,10)
PRESENT BUS ADDRESS CWTENTS
*POINTER TO BAD SECTOR FILE

000012
000014
000016

031330

(1)
(1)

000002
000004
000006

SEQ 0129

;SERIAL NUMBER OF CARTRIDGE

DCS
DRSEL
BRA
BSECPT
RSEEK
SOFT(S

000120
000122

m10
PAGE 4=50

SERNM?

000104
000106
000110
000112
000114
000116

2};

11:31

;CSR ADDRESS

DRIVE SELECT BI17S(8.9.10)
PRESENT BUS ADDRESS CONTENTS
PO]NTER TO BAD SECTOR FILE

;

JCSR AT TIME OF SOFT ERROR
DRIVE TYPE FLAG (RLOY1
=
WRITE IN PROGRESS FLAG
PRESENT POSITION ON DISK
;SEEK OPERATION COUNT

CZRLKBO RLO‘lIOZ PERF ;QER
CZRLKB.MAC

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

07-DEC~

031440
031442
031444
031446
031450
031452
031454
031456
031460
031462
031464
031466
031470
031472
031476
031476
031500
031502
031504
031506
031510
031512

000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052

MACY1Y 30A(1052)
17-DEC-79 11:
31
DRIVE INFORMATION BUFFERS
RXFR1
RXFR2
WXFRY
wXFR2

N 10

SEQ@ 0130

PAGE 4=51

kEAD OPERATION COUNT

(BITS) L%H(Nbgggn

IR"E OPERATION COUNT (BITS) LOW ORDER
HIGH ORDER

tm COUNT = HARD

SHEADER CRC ERROR COUNT

:DATA LATE ERROR COUNT
:OPERATION INCOMPLETE ERROR COUNT

;HEADER NOT FOUND ERROR COUNT
SNON

EXISTANT MEMORY ERROR COUNT

FR!SENY RETRY NUMBER

DISK ADDRESS CONTENTS

Y MULTIPURPOSE CONTENTS

LOADED

000054

Il gl e
(1>
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
g;

031522
031526
031526
031530
031532
031534
031536
031540
031542
031544
031546
031550
031552
031554
031556
031560
031562

000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

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

031564
031566
031570
031572
031574
031576

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030

031602
031604
031606
031610
031612
031614

LAST DIFFERENCE WORD OF SEEK

;TIME DRIVE WAS DROPPED

:TRACKING ERROR COUNT

SWRITE CHECK NECESARY

;SERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS

:DRIVE SGLECT B8175(8,9,10)

:PRESENT BUS ADDRESS CONTENTS

:POINTER TO BAD SECTOR FILE

;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLO1 =
;WRITE IN PROGRESS FLAG
sPRESENT POSITION ON DISK
sSEEK OPERATION COUNT

READ OPERATION COUNT (BITS) LOW ORDER
'
HIGH ORDER
lfl"f OPERATION COUNT

(BITS) LOW ORDER

HIGH ORDER

.Em COUNT - HARD
;ERROR COUNT = SOFT
:SEEK ERROR COUNT
;DRIVE ERROR COUNT
:DATA CRC ERROR COUNT
sHEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR COUNT

DISK ADDRESS CONTENTS

PRESENT MULTIPURPOSE CONTENTS

FUNC
BCSADR
LSTHDR
RTYPE
SKCNT1
PRFLGS
RXFR3

:LAST FUNCTION LOADED

:CSR_IMAGE OF LAST COMMAND
sLAST POSITION ON DISK
sERROR ON WHICH RECOVERY IS IN PROGRESS
;SEEK COUNT LOW ORDER
:PROGRAM INTERNAL FLAGS
:READ COUNT THIRD

DIFWD
DPHOUR
TRERR

sLAST DIFFERENCE WORD OF SEEK
:TIME DRIVE WAS DROPPED
sTRACKING ERROR COUNT

:WRITE COUNT THIRD
:DISK ADDRESS OF SOFT ERROR

DOWCK

SERNM1
SERNM2

DCS

sWRITE CHECK NECESARY

;SERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS

DRSEL

:DRIVE SELECT BITS(8,9,10)

ggggzr

:POINTER TO BAD SECTOR FILE

BBA

:PRESENT BUS ADDRESS CONTENTS

SOFTCS
TDR

031710

031712

.NLIST

N
N

D
D e
D
D

NP NI NP N
N

D
D
D e

NP N N
N

D
D

NP N

D
D e
D d e

NP NV NP N NP NP N

D e

PRESENT RETRY NUMBER

DATCER

SEQ@ 0131

sHEADER NOT FOUND ERROR COUNT
sNON EXISTANT MEMORY ERROR COUNT

WXFR3
LSTDA

RETRY

BDA

B 11
PAGE 4-52

D d e
d

11:31

HNFERR
NXMCNT

N N

17-DEC-79

DRIVE INFORMATION BUFFERS

N
N

—

%589:46

MACY11 30A(1052)

031616

NN ONNPNPNINTNPNINNONONPNINNONONPNONPNPN
NN PN PN

CZRLKBO RLO1/02_PERF
CZRLKB.MAC
07-DEC~

ENDBUF:

;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLO1 =

WRIPG
PRPOS

sWRITE IN PROGRESS FLAG
;PRESENT POSITION ON DISK

.WORD

JQUESTIONS TO GET PARAMETERS FOR HARDWARE P-TABLE

031714
031714
031714

031716

BGNMOD

000030

005130
031776
000001

000031
032003

160000
177776

031742

001031
032052
000000
000776

HRDPRM
BGNHRD

.WORD L10030-L$HARD/2

GPRML

CNTYPE,CNT,1,YES

.WORD

TSCODE

GPRMA

CSRMSG,CSR,0,160000,177776,YES

GPRMA
.WORD

TSLOLIM
TSHILIM
VECMSG,VECT,0,0,776,YES
TSCODE

.WORD
WORD

TSLOLIM
TSHILIM

.WORD
LWORD

.WORD
.WORD
.WORD
.WORD
.WORD

CNTYPE
1

TSCODE
CSRMSG

VECMSG

CZRLKBO RLO1/02_PERF EXER
CZR'.KB.MAC
07=DEC~=79 09:46
(4)
(4)
(4)
(4)
(4)
3445
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
3447
3448
2)
(3)

3449
3453
3454
3455
3456
3457
3458
3459

3460
3464
3465
3466
3467
3468
3469
3470
3471
3472

3473
3474
3475
(3)
3476
3477
(4)
(4)
(4)
(4)
(4)
3478
(4)
(4)
4)
(4)
(4)
3479

031744

031744
031746
031750
031752
037754
031756
031756
031760
031762
031764
031764
031766
031770
031772
031774

17-DEC=79 11:31
DRIVE INFORMATION BUFFERS

MACY11 30A(1052)

GPRMD
.WORD

004032
032061
013400
225000
'

.WORD

.WORD
WORD
WORD

GPRML

003130
032030
1

.WORD
.WORD
LWORD

GPRMD

002032
032017
000340
000000
000007

.WORD

.WORD
.WORD
WORD

cn
PAGE 4-53

DMSGEDRBT.O.OMOO.O.?.YES
T$COD

DRMSG

03400
TSLOLIM
TSHILIM

DRTYPE,TYPDR,1,YES

TSCODE

DRTYPE
1
BRMSG,PRIOR,0,340,0,7,YES
T$CODE
BRMSG

340
TSLOLIM
TSHILIM

031776
031776

L10030:

031776
032003
032017
032030
032052
032061

046122
102
102
051104
042526
106

032070

030461
051525
020122
053111
052103
044522

CNTYPE:
CSRMSG:
BRMSG:
DRTYPE:
VECMSG:
DRMSG:

ASCIZ
.ASCIZ
.ASCIZ

/RL11/
/BUS ADDRESS/
/BR LEVEL/

.ASCIZ
.ASCIZ

/VECTOR/
/DRIVE/

.ASCIZ

/DRIVE TYPE = RLO1/

.EVEN

032070

ENDMOD

;QUESTIONS TO GET PARAMETERS FOR SOF TWARE P-TABLE
032070
032070
032070
032072
032072
032074
032076
032100
032102
032104
032106
032106
032110
032112
032114
032116

BGNMOD

000215

000052
032771
177777
000000
177777
031052
032614
177777
000000
177777

SFTPRM

BGNSFT
.WORD L10031-L$SOFT/2

GPRMD

RTI'clsogéRLT .0.,177777,0,177777 ,YES

.WORD

RTMSG

.WORD

.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD

WORD
.WORD
.WORD
GPRML

177777
TSLOLIM
TSHILIM
SRTMSG,SRLT,D,177777,0,177777
,YES
TSCODE
SRTMSG
177777
TSLOLIM
TSHILIM
FDCHK,DCKFG,1,YES

SEQ 0132

CZRLKBO RLO1/02_PERF
CZRLKB.MAC
07-DEC~

55589:46

17<DEC=79
11:31
MACY11 30A(1052)
DRIVE INFORMATION BUFFERS

020130
033307
000001

T$CODE
;DCHK

006044

T$CODE

CHKLMT ,CLMT,D,177777,0,128.
,YES
r$CODE
“CHKLMT
177777
5%:

000001
177777

021130
033370
000001

T$CODE

ERHSG ELT,.D,177777,0,177777 ,YES

001052
032705
177777
000000
177777

T$CODE
ERMSG
177777
TSLOLIM
TSHIL IM

SFTMSG,SEL,D,177777,0,177777,YES

023052
032721

TSCODE
SFTMSG
177777
TSLOLIM
TSHILIM
ggnpng.DCD,D,177777,0,177777 ,YES

177777

000000

177777

036052
033424
177777
000000
177777

DERPM

157773

TSLOLIM
TSHILIM

SEMSGLSET,D,177777.0,177777. ES
TSCODE

002052
033003
177777
000000
177777

SEMSG

177777
TSLOLIM
TSHILIM

DREMSG,DET,D,177777,0,177777
,YES
T$CODE

025052

032246

TSLOLIM
TSHILIM
INMSG,TYT,D,177777,1,177777 ,YES
T$CODE
INMSG
177777
TSLOLIM
TSHILIM
DRPMS ,DRFLG,1,YES
T$CODE

?RPMS

032044

024130
033333

SEQ@ 0133

32052

000000
177777

D1
PAGE 4-54

DREMSG

3s:

177777
TSLOLIM
TSHILIM
STLMT ,OPFLG,1,YES
T$CODE
STLMT

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

032250

MACY11 30A(1052)
17-DEC-79 11:31
DRIVE INFORMATION BUFFERS

000001

EN
PAGE 4-55

SEQ 0134

013044

T$CODE

DAMSG,DAT,D,177777,1,177776,YES

003052
033031
17777{
00000
177776

T$CODE.
DAMSG

177777

TSLOLIM
TSHILIM

SKMSG,SKT,D,177777 ,1,177776,YES

T$CODE
SKMSG

000001
177776

010130
033131
000001

177777

2%:

gHANGE

1%
T$CODE
STIPMS,STIP,1,YES
TSCODE

107044

034130
032564
000001

?TIPHS

6$
T$CODE
MXBUF ,MxB,D,177777,3,5120.,YES
T$CODE

013044
011052
033165
177777
000003
012000

022052
033176
177777
000003
012000
026130
032653
000001

MXBUF

177777
TSLOLIM
TSHILIM
MINBUF ,MNB,D,177777 ,3.,5120.,YES
T$CODE
MINSUF

177777

6%:

006024

032374

TSLOLIM
TSHILIM
RDONLY
,ROF ,1,YES
T$CODE
?DONLY
RANPAT ,RAN, 1, YES
TSCODE
RANPAT

027130
032663
000001

030032
032673
000017
000000
000007

TSLOLIM
TSHILIM
CHANGE
, CHFLG,1,YES
T$CODE

7%:

7$
T$CODE
ONLONE ,PAT,0,17,0,7,YES
T$CODE
ONL ONE
17
TSLOLIM
TSHILIM

CMMSG,RDT,D,177777,0,128.
,YES

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
(4)
(4)
(4)
(4)
(4)
3505
(4)
(4)
(4)
(4)
(4)
3506
(4)
(4)
(4)

032374
032376
032400
032402
032404
032406
032406
032410
032412

032424

012052
033207
000100

(4)

032430

000001

(4)
(4)
(4)

032432
032434
032436

(4)

032442

013052
033216
000100
000000
000001

(4)
(4)

032444
032446

037130
032524
000001

(5)

032452

013044

(4)
(4)
(4)

032454
032456
032460

(4)

032464

014052
033225
177600
000000
000777

(4)
(4)
(4)
(4)
(4)
3512
(4)
(4)

(4)
(4)
(4)

032512
032514
032516

(4).

3514

032522

032524

T$CODE
DEMSG
177777
TSLOLIM
TSHILIM
MXHD ,MXH,D,100,0,1,YES
T$CODE
MXHD
100
TSLOL IM
TSHILIM
MINHD ,MNH,D,100,0,1,YES
T$CODE

000000

(4)

017052
033266
000077
000000
000047

F1N
PAGE 4-56

DEMSG,DDT,D,177777,0,175,YES

000175

032466 015052
032470 033235
032472 177600
032474 000000
032476 000777
032500
032500 016052
032502 033245
000077
000000
032510 000047

11:31

T$CODE
CMMSG
177777
TSLOLIM
TSHILIM

007052
032735
177777

000000

17-DEC=79

DRIVE INFORMATION BUFFERS

006052
033452
177777
000000
000200

032414

032416
032420
032420
032422

MACY11 30A(1052)

MINHD

100

TSLOL IM
TSHILIM
ASK,ANS,1,YES
T$CODE
ASK

158
T$CODE
:
MXCYL ,MXC,D,177600,0,511.,
YES
T$CODE

MXCYL

177600

TSLOL IM
TSHILIM
MINCYL ,MNC,D,177600,0,511.,YES
T$CODE
MINCYL

15%:

177600
TSLOLIM
TSHILIM
MXSEC ,MxS.D,77,0,39.,YES
T$CODE
MXSEC

TSLOLIM TSHILIM
MINSEC.MNS,D,77,0,39.,YES
T$CODE

MINSEC

1%:

TSLOLIM
TSHILIM

SEQ@ 0135

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11 30A(1052)
DRIVE

6N
PAGE 4-57

ENDSFT

(ala]

e B

.ASCI
wn

:
RDONLY
:
RANPAT

LASCI
LASCI
.

STIPMS:
SRTMSG:
CHKLMT:

-A_a_n_n_n?m_a—l

=N
NNO
WNIWWO NN WWWWWW

:
ASK

]

alals]

020123

—
bt

(]

alalal

nuwomhn

>>>

bt bg

et bt

(a1l

.ASCI
lalels]

ASCI

bt
b
e

:
DRPMS
DERPMS:
CMMSG:

.ASCI

nuwunon

051104

ASCI

:
MXBUF
:
MINBUF
:
MXHD
:
MINHD
MXCYL:
:
MINCYL
MXSEC:
MINSEC:
FDCHK:
STLMT:

>>
>

Wwwnwnununununng

(]

nunn

ot
bt bt

—

>>>

: .ASCI
ONLONE
.
ERMSG:
SFTMSG: .ASCI
.ASCI
DEMSG:
RTMSG:
SEMSG:
DREMSG:
DAMSG:
ASCI
SKMSG:
.ASCI
INMSG:
: .ASCI
CHANGE

o
R
R
w
H
-n—l—n-n-n-nv.-ns_n_c_a-a_a_:_a_.

044
052
042

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN

L10031:

032524

ASCI
ASCI

.EVEN

033514

ENDMOD

033514
033514
033516
033520

11:31

INFORMATION BUFFERS

032524

17-DEC-79

LASTAD

000000
LSLAST::

000001

.END

.EVEN
.WORD
.WORD

/CHANGE VALUES OF MXCYL & MINCYL/

XSTIPULATE R/W XFER SIZEX
/SEEK RETRY LMT/

/R OF ERR DUMPED/

/RD ONLY/
/RAN PAT/
/WHICH ONE/
/HRD ERR LMT/
/SFT ERR LMT/
/R OF DATA ERR RPT'D PER BUF/
/RETRY LMT/
/SK ERR LMT/
/DR _ERR LMT/
/DATA XFER LMT (*x10(10))/
/SK LMT (+10(3))/
/TIME BETW REPORTS (MIN)/

XCHANGE SEEK, R/W PARAMETERSX

/MAX
/MIN
/MAX
/MIN

XFER/
XFER/
HD/
HD/

/MAX CYL/
/MIN CYL/
/STARTING MAX SEC/
/STARTING MIN SEC/
/DATA DMP ON DCK ERR/
/DROP DR ON OPER LMTS REACHED/
/DROP DR ON ERR LMTS REACHED/

/DATA MISCOMPARE LIMIT/

/WORDS PER SECTOR COMPARED ON READ/

SEQ 0136

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
013346 G

AGSTAT 021032
ANS
= 000076
ARDHDR 020670
ASEEK
020526
ASK
032524

=
BPRIOR
BRMSG
BSECPT=
BSECO

G
G
G
G
G
G
G
G
G
G

000400 G
002334
032017
000112
027364

364

364
364
364
364
36#
364
36u
36u
364
364
634
2788+

36#
2614
3446
844
825

2825+
836+
34564

1110+
32124

040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000042

1607

2830+

1649%

120

121

120

b
-

ahwd

—

2512
2941«

o Y )

1566%

2510+
2940+

coCo

r—\;_n [ G Y
—_—
O N-a-agooooo-a
RS
NV
NN
OW

=
=
=
=
=
=
=
=
=
=
=

1467+

i
W

BIT13 = 020000 G

BIT14
BIT15
BITZ2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9
BMP

1648«

—W

BDRSEL 002336
BITO = 000001 G
BITOO = 000001 G
BITO1 = 000002 G
BITO2 = 000004 G
BITO3 = 000010 G
BITO4 = 000020
G.
BITO5 = 000040 G
BITO6
= 000100 G
BITO7 = 000200 G
BITO8 = 000400 G
BITO9 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G

1109+

2799+

SN0

002330
= 000040

1644
2036
39
1124
1114
834
2587
654
2594
624
2468
2841
2624
364
364
364
364
364
364
364
364
364
36n
364
364
364
364
364

BCSADR= 000046

BCS
BDA

SEQ 0137].

000066
021136
000002
000020
000040
000110

AUTO =
AWRITE
BA
=
BA16 =
BA17 =
BBA
=

11:31

36#
2038
2026
2029
168#
2033
2031
3508

. ASSEMB= 000010

17-DEC=79

10464

~ —2 —2 2
—_— -2
oo
~N NNWO W=

ADDCOD

ADR
= 000020 G
AFREAD 020570
AFWRCK 020610

H1N
PAGE 5
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

1643

1960

1966

1644

2436
2798+
3038

2440+
2826+
3429

2313«

2641+

3429
1650
2791«
3021«

1541

2492

1638
1606

3120

3429

1645

2063

3168

3191

3429

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

027426

BSEC4

BSECS

BSEC6

BSEC7

BUF1
BUF2
BUSAD
BVEC
CART
CEND
CHANGE

CHFLG =
CHKFNC
CHKLMT
CHKSEC

027216
027274

SEQ 0138

32134
32144
32154
32164
32174
944
948+

948
949+

2787

2799

2830

835+

844

847

857

861

2622

2646

26534

1843+

1845+

1902+

1921+

2005+

2842

2861

31644

1143

1148

1021

1023+
1026

1622
1029

1651

2280

2671

2693

557

3064

1377«
2694+

1881
2695+

1936+«

1938

023742

1039

1696+

NW\I—‘—.‘J*\J\IIN
LR

) e

d —d

027174

021420

— e

CKBDSC
CKBDTK
CKDATA
CKDERR
CLEAR
CLKACC
CLKADR
CLKBFR
CLKCNT
CLKFLD
CLKFRQ
CLKINI
CLKSON
CLKST
CLKTIK
CLKTYP
CLMT
" CLNCOD
CLRDAT
CMMSG
CMRD
CMSK
CNT
CNTFLG

I N

11:31
PAGE 5-1
30A(1052)
17<DEC=79
CROSS REFERENCE TABLE == USER SYMBOLS

— ek e ON N =2 ON
SN
-=nO0n

BSEC]

BSEC?
BSEC3

MACY11

1697

1118

1122

2573

2592

927

CNTLR1
CNTLR2

922

CNTYPE
CONWR
CRDY
CRLBA
CRLCS
CRLDA
CRLMP
cS

002611
000000

CSR
CSRMSG

000000
032003

2905

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
024460
002300

SLRRSRITLVTINTIITI/ITIT3__LT_IL_e__RR SEESSST

26934

CSPNTS= 000016
CSPNTX= 000015

CS$RPT
= 000025

563+

564 %

566+%

568

SEQ 0139

576

1000

1024

1032

1036

1804
1898

2676
2087

2091

2099

2121

2131

2188

2198

2611

2642

1641

1820

2042

473

480

489

496

506

513

520

527

535

472
551

479
552

488
556

494

557

504
576

505
2233

2251

512

519
3064

533
3072

534
3107

e JE

754

S NS W
Y

2656

e T JOSE YU Y
e
R

m—l—l P N

C$PNTF= 000017

CSINIT= 000011
CS$INLP= 000020
CSMANI= 000050
CSMEM = 000031
C$MSG
= 000023
CSOPEN= 000034
C$PNTB= 000014

J 1N

2274

—B

n
O

000060
000054
000057
000010
000005
000003
000001
000032
000026

) -

CSERRO=
CSERSF=
CSERSO=
CSESCA=
CSESEG=
C$ESUB=
CSETST=
CSEXIT=
C$GETB=

—_ e

CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056

C$8sSUB= 000002
CSCEFG= 000045
CSCLCK= 000062
CSCLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
CS$CVEC= 000036
CSDCLN= 000044

17-DEC=79

PAGE 5-2
CROSS REFERENCE TABLE == USER SYMBOLS

Y —

CSTUFF
cyL

MACY11 30A(1052)

831

1060

959
938
457
463

3123
771

3130

3137
91

983

994

1250

1857

2561

2563

2564

2751

706

1165

1”7

1174

1176

1177

1178

1179

1180

1181

1182

757
741
19

718

901

887

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=-79 09:46
CSSEFG= 000046
CSSPRI= 000041
CSSVEC= 000037
CSTPRI= 000013
C.HDR
002434
DA
= 000004
DALMT
010666
DAMSG
033031

108
100
104
104
296#
4O
6614
3492

DATCER=
DCD
=
DCOMSG
DCKFG =
DCRC
=
DCRCER=
DCS
=

000074
000074
003407
000040
004000
000022
000104

7o
1674
3740
1538
1064
SS#
81#

DDT
=
DECNT
DELMT
DEMSG
DERCNT=

000016
002344
010676
032735
000020

1444
2654
6664
3505
sS4

DERR =
DET
=
DIAGMC=
DIFMSG

040000
000052
000000
002623

954
1584
10
3494

DAT

DERMSG
DERPMS

= 000006

1408

991«
1637

2904

003432
033424

3754
3487

K11
MACY11 30A(1052)
17<DEC=79 11:31
PAGE 5-3
CROSS REFERENCE TABLE == USER SYMBOLS
739
760

762
920

764
925,

534
1644x
1338
35374

1885+
1779

2689+

1179
3487
1313
3479

1311

2638+

3429

1181
531

1849+
546

3429
551

999«
1935

711

1061«
2162«

1108+
2458

1164
2671

1219«
2688 =

1220
2691

1224
2803

983
1292
2811

2591

2637«

2653

2833«

2846+

2847

3077«

3103«

3113

1321

2195+«

3429

2249

2267

1567%

3429

1840«
787«

3429
2239«

2266%

2270+

2230
3429
1171
2557«

2556%
2559«

3429

824
998
1648

907
1228
1796

976
1325
2227

1050
1341
2241

1079
1979
2271

1211
2225

1284
2518

2542
25374

’
3151
2919

551

1164

910+
551
3429
2697

916
781

983

990

994

1103

1164

1220

1647

3492

992
1776

3429

3505
488
2590
35334
1179

1323
35524
1793
3489

463

DIFWD = 000066
DLT
= 010000
DLTCNT= 000026
DLYCNT 002500
DMPBUF
026272
DMPDCK 003265
DNRDY
002664
DOWCK = 000076
DPHOUR= 000070
DPMIN = 000071
DRBT = 000010
DRBUF
030432
DRDRV
023520
DRDY = 000001
DREMSG 033016
DRFLG ‘= 000042
DRLMT
010732
DRMSG
032061
DRNM
004030

734
1054
S7#
3154
1858
369
3524
784
7648
758
1324
710
1
92%
3489
1544
6804
3444
3904

798+
1166
171
3444
777
987
1224
35364
3483
1321
3459
546

DROPCO 013432 G
DRPMS
033370
DRPRS
002253
DRSEL = 000106

10734
3483
2314
824
2281
119

35514
906+
546
2694
2692

DROP

DRST

004276

= 000013

4034

463

1837
1182
763+
30334
1857
1227

2563

994
1876

1019
978

1202
1018

1251
1120

2692%

2697

2907

SEQ 0140

2259

2060
1124

2586

783«

785

869+

908

980

988+
1294
2838

990«
1622
2857

33834

1874

1934

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

DRTYPE

032030

DRUT
002252
DRVER
003061
DSE
= 000400
DSPCOD 010756 G
DWCNT
002462
DWCNT1
002464
EF .CON= 000036 G
EF .NEW= 000035 G
EF .PWR= 000034 G
EF .RES= 000037 G
EF .STA= 000040 G
ELT
= 000002
END
012222
ENDBUF
031712"
ENDINI
013722
ENDOFP 030424
ENDWR
024754
EPS
004054
ERLMT
010662
ERLMTM 003322
ERMSG
032705
ERR
= 100000
ERRCNT= 000012
ERREX
021260
ERRHDR 004476
ERRVEC
002466
ERR1T
005070 G
ERR1I0
005646 G
ERR12
005716 G
ERR13
005724 G
ERR2
005076 G
ERR3
005162 G
ERRG
005312 G
ERR6
005364 G
ERR7?
005424 G
ERR8
005462 G
ERR9
005602 G
ERT
004161
EVL
= 000004 G
EXHAUS 002773
EXIT
021222
EXITI
021254
EXIT2
017036
EXP
004254
ESEND = 002100
ESLOAD= 000035

£.BA
E.CS

002422
002420

3445
2304
1k
1034
£0%s
3084
3094
364
364
8
364
364
1384
814
715
1123

1268
2770
3008
659#
3714
3485
94
51#
2009
416#
310#¢
455#
518#
5234
5008
4614
4678
4774
4854
4934
5004
5004
78
364
3574
2044
1806
1674
401#
108
104

2894
S8

34574
779
576
3081+«
303/*
810

FASCII
FASPNT

002424
002426
002430
002432
002456
002460

2904
2914
294
293
306#
307#

916+
2198

1059+

1216

1263

1270

3082+«
3060x

3099+
3111

3122+

3132«

1405

887
3485
830
913
1131
33724
2775#
463
1303
1305
35314
1180
2151
534
978
1820
868
1 2611
2188
1892
2156
2121
2656

SEQ 0141

2560+

774

8764
3153 ,
1135%#

34324

2920
2516
2918

1303
21624

1803%*
2785

2120%

2130

1000
1898

1018

1036

2676

2912

2087

2091

2186*

2913*

2916

3429

2099

2131

2642
1804
472

2198

1898
2055
1980
1678
504

2074
2153
1683

2104
2158#
1690

2108
2189
1694#

2126
2226

2128

2133

2142 -

2146

21504

2253

19
557
M7

,
1760 ©
179

1778+
drzre

2177%
1783

2906*
1793

3054
179

3062
1808

1814

1817

1832

1837

1870

572
857
2174
2173

1761
1762

1779+
1780%

1792
2078

1843
2112

1902
2175+

1921
2911«

2176+

2907*

3040

E.DA
E.MP
E-MP1
E.MP2

LN
MACY11 30A(1052)
17-DEC=79 11:31
PAGE 5-4
CROSS REFERENCE TABLE == USER SYMBOLS

557
479
1763
1764

538«
537+

558
532«
1781x
1782x
543+
539«

548
540+

541

NO0C0CO INNNNN
W=
O 000 NON— &~

b e

b o

b cnld al cb ad

2182#

11034

2235
6184
2564

1165

5994

1164

3064
772

941

1250

2561

3130

3137

1857

2233

1568+
2800+

1573«
2808+

2251

3072

2751

007020

007104
007137
007153
007201
007215
007225
007263
007705
013654
013706

= 000044

1458«
2427

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

699
1048
39

34
500
705
1073
3473

- 1611«

2853«

1627

2892+

1646

2933+

FUNC

11074
9384

NOO~

FMT4
FMTS
FMT6
FMT7
FMT8
FMT9
FMT9A
FRMT16
FROCHK
FRQS0

35494
866

SEQ 0142

——

FMT3A

033307

013474
013520
012550
021362
010164
010013
010076
010116
010151
010215
010304
010341
010450
010505
010600
007754
006650
006705
007337
007373
007444
007452
007472
007502
007517
007544
007553
007565
007562
007627
006672
007747
006714
006735
006757

FDCHK

FILINF
FILTD
FINDGF
FINERR
FMTDT
FMTS1
FMTST1A
FMTS1B
FMTS2
FMTS2A
FMTS2B
FMTS3
FMTS3A
FMTS4
FMTS5
FMTXS
FMT1
FMT1A
FMT10
FMT10A
FMT10B
FMT11
FMT12
FMT13
FMT13D
FM{14
FMT14A
FMT14B
FMT14C
FMT15
FMT17
FMT18
FMT2
FMT2A
FMT3

MmN
PAGE 5-5
17-DEC=79 11:3
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC~79 09:46

FSCLEA= 000007
F$DU
= 000016

FSEND = 000041

1016
1075

1041
1091

695
1069
3448
104
104

699
1071
3467
3439
639

703
1073
3473
3448
648

104

FSJMP = 000050

10#

= 000000

10#

18
489

737

21
496

693
1099
455
506

695
1186
457
509

FSRPT = 000012
FS$SEG = 000003

104
104

705

718

3475
1659

3480
1705

F$SW = 000014
FSTEST= 000001

104
104

656
1190

691
3373

FSPROT= 000021
FSPWR = 000017

104
104

F$SOF T= 000005
F$SRV = 000010
F$SUB = 000002

GDDAT
GETDST
GETFNC
GHDR

GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GOERRX
GOFIN
GSBIT =
GSTAT =
GSTFNC

002402
024432
015314
022316

002242
002242
005070
013474
002516
020422
020426
000003
000004
015746

GWCDA
025764
GSCNTO= 000200
LM= 000372
GSDISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO

= 000000
GSOFFS= 000400

GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002

104
104
104

280#

G
G
G
G
G

11:31

NTT
PAGE 5-6

SEQ 0143

726

504

34
506

718
1091
3517
3480

171
513

224
520

325
527

332
535

735
1099

959
1186

"960
1190

1007
1705

1013
1714

3491

3495

3497

3502

3509

730

2630%
2213
13304
22804

171

224

325

332

699
3438
461
513

703
3467
464
518

720
3473
467
520

735
3561
473
523

1046
3438

3484
1709

3491
1714

3495
1718

2633«
2220

2256

26884

2910

2634

3095«

485
535

489

493

496

3497
2180

3502

3509

3517

3098+

3100

3107

3481

3482

3483

3482

3483

3489

3492

2239

2255

2266

2270

2670

3441
3486
3503
3441
3486
3503
3442
3444
3498

3442

3443

3444

3445

3446

3477

3505
3477

3478

3503

3504

3481

3505

650

480
529

787

3490
3507
45
90
3507

637

477
527

763

3489
3506
3444
3489
3506

632

1073

29604

3488
3505
3443

451

1071

1603

3487
3504
3442
3487
35064
3443
3446
3499

447

1046

20094
20124
2689
2693

104
3485
3501
100
3485
3501
104
104
3493

1043
3373

473
693

1043

1925
1929
1467
1466
14664

104

1041
2180

464
654

1013

2244
34n
4514
10994
3324
1906
1910
1204
1144
1437

1580
104
104
104
104
10#
104

457
650

960

2196
1322

2252

451
637

720
1093
3561
3484

1798
1302

2234

447
632

959

654
1093
10#
500

FSMSG = 000011

17-DEC=79

CROSS REFERENCE TABLE == USER SYMBOLS

104
104

104
480

FSHARD= 000004
F$HW = 000013
FSINIT= 000006

MACY11 30A(1052)

3492
3508
3446
3492
3508
3482

3506

3493
3510
3477
3493
3510

3478
3494
351
3478
3494
351

3479

3485

3486

3487

3507

3510

3496
3512
3479
3496
3512

35N

3498
3513
3481
3498
3513
‘
3488
3512

3499

3513

3500

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC-79 09:46

GSPRML= 000000

GSRADA= 000140
GSRADB= 000000

GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010

HDHOME

HORFND

SEQ 0144

3445

3479

3483

3490

3494

3496

3500

3501

3508

108
3499

3477
3504
3441
3442
3480
3441
3486
3503

3478
3505
3445
3443
3484
3442
3487
3504

3481
3506
3479
3444
3491
3443
3488
3505

3482
3507
3483
3446
3495
3444
3489
3506

3485
3510
3490
3503
3497
3445
3490
3507

3486
3511
3494

3487
3512
3496

34
3513
3500

3489

3492

3501

3508

3502
3446
3492
3508

3509
3477
3493
3510

3478
3494
351

3479
3496
3512

1904

1923

2007

2171«

2843

1551

1563

2898

795

002340

8 12
PAGE 5-7

344)

97N
107#
56

025670

11:31

104

104
104
10#
104
85
3501

HCE
= 040000
HCRC
= 004000
HCRCER= 000024

17-DEC=79

CROSS REFERENCE TABLE == USER SYMBOLS

104
104

GSRADD= 000040

MACY11 30A(1052)

3%830

06
1953
1181

2522

1507

1971
1927«

2755

1766

3429

2775

29324

1847

3493
A

3498

3481
3498
3513

3482
3499

3483
3500

2862

3164

3177«

3186+

26914

2805

2849

2868

HEAD

HINUM

= 000100

002260

HNF
= 0710000
HNFERR= 000032
HOE
= 100000 G

HOUR

002416

HPTCOD
HRDPRM
HWSEC
IBE
=
IDU
=

010640
031714
003720
010000
000040

INCALL
INIEND

002476
012674

G
G

G
G
IER_
= 020000 G
ILLEG
003770
INBAD
025550

INITCO

011046 6

INTERV

002406

INMSG
033101
INSMEM 004711
INTEN = 000100
INTR1

INTR2
ISDRST

017116 G

017126
024446

ISR
= 000100 G
ISSUE
016542
IXE
= 004000 G
ISAU = 000041

ISAUTO= 000041
ISCLN = 000041
ISOU = 000041
ISHRD = 000041
ISINIT= 000041
ISMOD = 000041
ISMSG = 000041

1244

1502

108
o
364

1870
1181

234

1521

1549

271

2719

1908+«

3429

551

1164

2556

744%
931

1034%
935

1077
9584

1770

2167«

2540%

2554+

3482
4194
934

3539
941
539

1023

1031

1627

1851

1918

2162

920

17184

17544

2874

6374
34384
384
3on
3o

364
3874
2871

3144
808

7354

282

925
zg%
36w
1412
364
104

104
104
104
34394
104
104
6544
10934
104

500#

817«

546

2723+

2445

29034

1277

1279%

1684~

17574
1873

2210

2212

2219

2237

2265

2408

2461

1448

1459

1468

1569

1574

1595

1612

16224

10484

10694

9724
10164
10754
34484
7374
184
6934
10994
4554

5064

10074
10414
10914
9594
214

6954

11864
4574

5094

344
6994

34384
4614

5134

1714

2244

3254

34674
L4640

34734
L4674

35614
4734

7034

5184

7204

5204

7354

5234

3324
9604

G478
10134

4514
10434

6324
10464

477K

4804

4854

4894

5274

5294

5354

6374
10714
4
4934

6504
10734
496#

SEQ 0145

7264

7054
1190

€12

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

21804

2582
1435

1438

16374

2410

2562
495

2754
51

525

530

1285

1346

1488

2325

2710

1792«

1844
*

3429

1482

1542+

2102+

2939+

3429

2239

2259

2266

2270

2670

SN
—=
own—=

17184

17144

17094

ISPROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
ISSEG = 000041
ISSETU= 000041
ISSFT = 000041
ISSRV = 000041
I$SUB = 000041
ISTST = 000041
JSUMP = 000167
KILLOC 002310
LCLK
013616

ReeseYesesse

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

2943

LIMIT
010660
LINE1
006014
LINE2
006220
LINE3
006330
LIST
022636
LOE
= 04
LONUM
002262
LOT
= 000010 G
LPS
004041
LSTDA =

2425

5554

LSHARD
LSHIME

066 G
031716 G
002120 G

VOOV OVOVOVOVOVOOVOVOOVOVVO0

194

24H

6974
763

10754

274

34394

787

2428

2455

2801

2724

2965

3033
2717.

2809

2835

geogeeecogeeceeeecgog
e

W
W
Y
s JESS W
e
e e
e
e
R

033520
002100

e B

011046
002026

LSLAST
LSLOAD

002016 G
002022 G
010642 G

LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP

CZRLKBO RLO1/02_PERF 55589 “
CZRLKB.MAC
07-DEC~

D 12
17-DEC=79 11:3
PAGE 5-9
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0146

6394
7374

35634

726#4

7054

34754

6564
826

975

34484
35174
1271
951

1293
952

1978

2642
2246

2503

2656

1295
954«

1326
2982

1342
2983

1369
2986

1381

2987

1396

1408

1440

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
MDHEDR
MDSER
MFUNC

002000 G
003116
002547

MHDER
3252
MINBUF
033176
MINCYL 033235
MINHD
033216
MINSEC 033266
MINUTE
002414
MK
= 000001
MB
= 000044
MNC
= 000032
MNH
= 000026
MNS
= 000036
M

= 000006

MPT
MRDER
MRLCS
MRT
MSFER
MSKER
MST
MSTART
MST1
MSWRPK
MTCR
MTDCRC
MIDLT
MTDRV
MTEST
MTGS
MTHCRC
MTHNF
MTNXM
MTOPI
MTRD
MTRH
MTRNH
MTSK
MTWR
MVCER

003756
003212
002525
004150
003042
003031
004177
004
004214
004400
004777
004327
004334
004353
014534
005007
004321
004314
004346
004341
005047
005027
005057
005017
005037
003132

MVEC
MB

MXC

MXH

MXS

MXBUF
MXCYL

MXHD
MXSEC
NILCLK

NOCLK

NOCRDY
NOCTLR
NODRIV

033165
033225

033207
033245
011326

004530
002654
004673
004016

E 12

PAGE 5-10
MACY11 30A(1052)
17-DEC=79 11:31
CROSS REFERENCE TABLE == USER SYMBOLS

2121
548
2188
35424
35464

SEQ 0147

2131

551
2423

2941

1164

2557

1645+

1780

1781

551

1164

'2251

546

512

2287

1782

1884

1939

1940

1941

2284

2413

2430

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
NOLOAD

003573

F 12
MACY11 30A(1052)
17-DEC<79 11:31 PAGE 5-11
CROSS REFERENCE TABLE == USER SYMBOLS

3804

2276

4134
3534

901
1804

3824
4174
3554
1044
60

2611
996
2912
1808
1181

NOPWR

004101

NOREPT

004566

4164

ODRDRV
ONLONE
OPCALL

023514
032673
002474

1087
3503
313#

OPICNT= 000030
OPROK
015540
OVER
003453
O0S$APTS= 000000

584
1364
3764
104

1182
1366
2986
19

104

NORDDC
NORDY

3944

004416
002704

NOREV
003631
NOTRDY 004636
NWRTS
002736
NXM
= 020000
NXMCNT= 000034

OPFLG = 000050
I
= 002000

1574
1094

0$AU = 000001
O$BGNR= 000001
0$8GNS= 000001
osOU = 000001

104
104
104
104

OSERRT=

OSGNSW= 000001
O$POIN= 000001
O$SETU= 000000

10#
104
10#

790
772

25364
35304
1035«
7643«
1649

3226
3227

32514
32684

PAT3
PAT4
PATS
PAT6
PAT7

PEROTH
PNT
=
PRFLGS=
PRGER
PRI
=

030164
030224
030264
030324
030364

015006
001000 G
000056
002732
002000 G

PRIOR = 000004
PRIOR1 002376
PRIOR2
PRIOO =
PRIO1 =
PRIO2 =
PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PRPOS =

002400
000000
000040
000100
000140
000200
000240
000300
000340
000124

G
G
G
G
G
G
G
G

3228
3229
3230
3231
3232

12564
364
6%
3544
364

1304°
2784

274
364
364
364
364
364
364
36n
364
8o#
1537

2945+

1826
1368

19
19
3563

PAT1
PAT2

030124

1769
3490
1817

154
154
19

3503
2602

3225

1811~

19
19
19
19

161#
2328

030024

3072

154
154
154
154

PAT
= 000060
PATLST
030004

PATO

SEQ 0148

32344

3065

3429

2168+

2536%

1832

1951

1969

1380

1391

3429
1378

2551

2555«

1393

1395

14034

32254

796%
1641

1232«
2042

3446
842«

920

463
1542

714
1543«

3021

1417

32854
33024
3319#4
33364
33534

858«
1019

1413

2048«
:

2059+

2083

2103«

2105«

2137«

3429

801
1544+

912
1549+«

1001
1551+

1055
1563

1083
1887

1M
2080

1241
; 2107«

925

3429

1289
2286*

1483
2548

1490
2795

RT1
004231
RWCNT
002244
RXFR1 = 000002
RXFR2 = 000004
RXFR3 = 000060
SAVE
017134

SEC
002304
SECMSK 002266
SECOND 002412
SEEK = 000006
SEL
= 000046
SELMT
010664
SEMSG
033003
SERLMT 003344
SERNM1= 000100
SERNM2= 000102
SET
= 000004
SEXHAU 003523
SFEMSG 003365
SFLMT
010726
SFTCNT= 000014
SFTMSG 032721
SFTPRM 032070 G
SIGN = 000004
SKCNT = 000000
SKCNT1= 000054
SKDON = 000001

2324

27064

-2

1487

2964

2995

RTYPE = 000052

AT T R

032771

RTMSG

RETRY =
=
RLT
RNTEMP 002404
ROF
= 000054
RPS
004066

3501
1344
32290

r NW =N WNN N b = NS S = NN
2 VRRERSIR®IY (337 83

024524
032663
004265
022616
022654
016500
000010
016416
015704
032653
000014
000014
002242
002306
014024
003510
012310

SEQ 0149

7744

16034

1933

2280

2409

2578+

2609+

2636+

2789+

797«

1410

1480

1233«

1416.

1478

799+

1810+

2065+
2068+

2066

1336

2070
2072+

570+

576

2442
2865+
2566

2427

2933

2150

2158~

2354

2356+

2049+

2095+

2096

2106+

3429

1825+

1839+

1850+

1909+

1928+

2152

2069+
2073«
3429

3429
3429

RAND
RANPAT
RCD
RCNT
RDBDSC
RDDFNC
RDHDR =
RDHFNC
RDNHC
RDONLY
RDT
=
READ =
RECNT
REGEN
REPORT
REQ
RESTAR

770
776

—

PWRCH
011376
PWRFLG 002446
RAN
= 000056

G 12
MACY11 30A(1052)
17-DEC=79 11:31
PAGE 5-12
CROSS REFERENCE TABLE == USER SYMBOLS

gvn

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07<DEC=79 09:46

551
2424

1164

2892

2942

2483+

1176

2682+
3429

3429

1307

2154+

3429

5053-

3429
2054+
2103

2423
2050+
2059

2083

3429
2105

2137

3429

2287+

3429

H 12
30A(1052)
17-DEC=79
11:31
PAGE 5-13
CROSS REFERENCE TABLE == USER SYMBOLS

CZRLKBO RLO1/702_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46

MACY11

SKECNT= 000016
SKFNC
015766
SKHS = 000020
SKLMT
010670
SKMSG
033061
SKRD
015460
SKRDRD 015504
SKRETR= 020750
SKRH
015620
SKT
= 000010

53
1363
1234
6624
3493
13778
13904
1895
14284
16414

1179
1377
1565
1334
35384
2367
2371
20934
2368
3493

1315
1390
2423

SKWRT
SMSG
SMSK
SOFTCS=
SOPLMT
SPE
=
SPTCOD
SRLT
=
SRTMSG
STOMP
STFLG
STIP =
STIPMS
STLMT
STWRT
ST1
ST2
SUR
SvCGBL=

13634
3564
239%
864
3814
1004
6544
162#¢
3478
2612
3014
1654
3496
3490
2767
3114
3124
2434
104
485

2366

2369

1489
469
1340
2206

SKTO

= 010000

015424
002761
002272
000116
003611
004000
010656 G
000062
032614
027006
002452
000070
032564
033333
024776
002470
002472
002302
000000

703

SVCINS= 000000

10#

1019
1171
1282

2091
2270
2912
3442
3483
SvCSuB= 177777
SVCTAG= 000000

3509

104
10#

2204

2086+
1416

3429
1428
)

1478#

1886
2184

2079
3429

2285

3195

31204
821

889+

1209«

1236

_ SEQ 0150

2370

3478

35264
3073
745%
3496
35254
35504

2769
479
479
571«
18
493
705

2772

574
19
500

575«
24
509

576
27
518

114

920
1032
1176
1705

901
1024
1174
1641

726

2774

[

27864

737

34
523

972

224
529
1013

457

925
1036
1177
1714

938
1040
1178
1804

941
1041
1179
1820

735

332
637

1016

451
639

1046

455
654
1048

461
656
1073

467
695
1075

477
697
1099

463

464

469

472

473

479

480

959
1060
1180
1821

978
1069
1181
1857

983
1091
1182
1892

994
1120
1202
1898

1000
1124
1250
2042

1007
1164
1251

1018
1165
1266
2087

2099
2274
2986
3443
3484
3497
3510

2121
2553
3064
3444
3485
3498
35N

2131
2561
3072
3445
3486
3499
3512

2156
2563
3107
3446
3487
3500
3513

2180
2564
3113
3448
3488
350
351

2188
2586
3123
3475
3489
3502
3563

2198
2611
3126
3477
3490
3503

2233
2642
3130
3478
3491
3504

2239
2656
3137
3479
3492
3505

124

457

464

473

489

496

506

2251
2670
3373
3480
3493
3506

2259
2676
3439
3481
94
3507

520

527

2266
2751
3441
3495
3508
535

CZRLKBO RLO1/702 _PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

MACY11

SVCIST=
SWSEC
SYSCLK
SYSMSK

177777
003740
002502
002256

104
3854
3164
2334

TAGX

015152

13004

006510
002346

SSLSYM= 010000
TDR

104
6914

= 000120

TELCYL
TEMPO
TEMP1

002350

TEMP2

002352

TEMP3
TEMP,
TEMPS
TEMPS
TEMP?
TEMP8
TEMP9
TICK
TIME
TRACK
TRERR =
TRPFLG
TRPHAN
TSTDRV
TYINT
TYPDR =
TYT
=
TSARGC=

002354
002356
002360
002362
002364
002366
002370
002410
002516
003305
000072
002450
014016
002250
010672
000006
000012
000001

TSEXCP= 000000
TSGMAN= 000000
TSHILI= 000047

T$LAST= 000001
T$LOLI= 000000
T$LSYM= 010000
T$LTNO= 000001

48954
10694

L4964
10914

5064
17054

5134
17144

5204
21804

527k
33734

5354
34484

6484
35174

552

1107«

1165

1493

1517

1539

2414

2432

2466

2508

2764

&7
3%380

503
3?5?'

559
3?3%'

5624
558+

562

569

2593«

2648+«

3080+«

3081

3084

3088

3090+

1942+

2170%

2485+«

2488+

2762+«

2768

2773

2492«

2493

2639

2643+

3085+

3107

3109+

5124

S194

849+

865«

4804
10414

1109

1767

QuBle

2496
2889+
209

2497«

2498

2499+

2500

2590+

269K
2708
2714 .
o728
2734
274m
2754
284l
%18
3704
764
3004
978
2294
6634
1314
142#
198
S46#

244hx
0598+
518+
2316%
2330+
233x

2463
2604
2626
2318+
2333
2333w

2506
2616
2629+
2332+

2513+
2628
2631%
2336

2592+

2621

2650+

3087

3091

3093+

3096+

1669
546
1892 1179
977%
1018
1272«
1277
3445
3482
4638
5478

551
2091
1316
981

1164
2090+

3429

4L6OF

4LTN

479N

4BBA

4O4LE

S04®

SOSH

34414
34848

34420
34BSH

994m
18574
31264

3498#
35114
"B6BF

11584
1405
'

S4BE
1164
22334
31304
343N
34864

34994
3512¢
12668

2588+
2898+

2589+
3083+

1932«

2495+
2886

104

1037

547

21314

930
1286

3435‘

3,974
3510

TSERRN= 000307

804
1256

L7348
1007#

OB3#
12504
31234

TSCODE= 017052
-

769+
884

Lo4n
9594

2674

752+
881+

SEQ 0151

4574
7184

2494
2827

1190
2465
748+
878+

112

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

2595+
3086

2617+
3094 -

2619

2645+«

2490+

2792

1891%
1158+

SS1A
11654
22514
31374
3444H
34874

35004
35134
16414

5334

5344

SSo#
11714
25614

SS6H
11764
25634

SS7TA
11764
2564k

S76m
1177#
27514

7068
11784
29864

771
1179%
3064

7728
11804
30724

9014
11814
31074

O4ia
1182
31134

3445H
348BH

34468
34894

3477H
34904

34TBA
34914

3479K
34924

34804
34934

34814
34944

34824
34954

34834
34964

18984

20424

20874

20914

20994

21214

34828
35064

34854
3507#

34864
35104

34874
35114

34884
35124

3489
35134

35014

18044

35024
18204

35034

18924

35044

35074

35084

35094

34420
34904
104
34420

21884

21984 °

26114

26428

26568

34438

3444N

3446

34778

34784

34814

34824

34864

3487

35634
34438

35064

34854

104
34420

35054

35114

34884
35124

3489
35134

34LLA-

3446

3477H

34784

34814

34824

34854

34864

- 34874

34884

34894

464

473

480

489

496

506

513

520

527

535

34924

34924
104

35634

34934
34934
7

344LM
34984

3498¢
34984

959

3446
34994

3499
3499

1007

3477
35034

35034
35034

1041

34784
35044

35044
35044

1069

34BN
35054

35054

1091

35064

1705

29124

35064

21564

34438
34934

26764

35054

35074
35074

1714

35104
35104

2180

35114

3373

35124

35134

3448

3517

648

e
CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
TSNEST= 177777

10#

LoLn
5184
6914

9604
1091#

TSNSO = 000000
'
TSNS1

= 000005

000000
177777
177777
000000
177777
010032

TSTEST= 000001
T$TSTTMM= 177777

T$TSTS= 0000M
T$$AU = 010022
T$$SAUT= 010020
T$SCLE= 010021
T$$DU = 010023
T$$HAR= 010030
T$$HW = 010013
T$SINI= 010017

T$$MSG= 010012

T$$PRO= 010016

3254

4854
5354
7054

3484

3491

21
6954
1071

344
699
10734

171
7034
1093

2244
720
10994

325
4
332#
7264
730
1186
11904

506

5094

513

5184

520

5234

718
17184

527

-1048#
17144

7054

447
7354
3373

4514
960
34384

632
9724
3467

6374
1007
34734

650
1013#
3561

6544
1043

5294

535

6394

648

6564

691

480

1069
3484

4854

10754
34N

505
551
762

18
2198
2751

11904
1069
1007
1041
1091
3448
648
959

457
5094

489

9724

4854

10164

4934

10484

10754

11904

16594

3254

L47n

4574

L64n

4734

4804

4894

4964

3563
463

506
552
764

2233
2912

5134

6564
9594
10754
34384
35174

3497

G774

11904
457

4614

5094
6544
7374

3495

L4674

104
10#
504

4574

10734
33734

7374

5064
6504
7354

10714
21804

10484
3480

7264

4554

1069#
17184

11904

4554

5004
6484
7304

1041
3475%

6324
10414
13834
14724
2534k
3182¢
3448
34904

4554
506
7264

G774

10464
17094

4514

10164
3448

5354
1007#
13754
14704
25304
31624
34468
34894

104
10484
9724
10164
1075#
34394
63
7374

473

L96#
6394
7264

959
34394

1714

1820
2188
2676

LO7H

10434
17054

7374
2180

218

5274
9604
13714
164644
24024
31594
34450
34884

464

3324

4934
(6374
7204

184
693
1046#

4614

10414
1659#

SEQ 0152

‘

4894
6324
7184

3480

457

10164
11904

224K

34758

4554

10134
11864

1714

4804
5294
7034

34738

34488

548
760

3un

4774
527k
69

34678

34394
35614

6564
¥

214

4734
5234
6954

10074
1099%

104
104
104
104
104
104

TS$TEMP= 000000

184

L4678
5204
6934

9724
10934

7054
%;};
T$PTNU=
T$SAVL=
T$SEGL=
T$SUBN=
TSTAGL=
TSTAGN=

J 12
MACY11 30A(1052)
17-DEC=79 11:31
PAGE 5-15
CROSS REFERENCE TABLE == USER SYMBQYS

5004

5094

109
3495

:
5184

3502

4934

16594
3497

5234

3509

496

1705
3502

5294

17094

17184

S06#

5134

5004

17094
3509

6394

3439#
5204

6484
10434
13884
15534
27024
31844
3467M
34924

650"
1069%#
13984
15554
2704
32084
34778
34934

6914
10714
14014
16314
2731k
32094
34784
34944

6934
10914
14204
16354
27424
32204
34794
34964

6974
10934
142684
17054
2928
32214
34814
34984

694
11864
14428
17144
29304
33734
34824
34994

7184
11914
1444k
21804
29504
3441H
34834
35004

7204
12004
14508
22934
29584
3442
34854
35014

7304
13564
14528
22978
3027#
34L3H
34864
35034

9594
13614
14624
23744
30314
3444M
3487#
35044

464
512

469
513

472
519

473
520

479
527

480
533

488
534

489
535

494
546

496
547

2561
3107

2k
50
87
63
13

556
765

2251
2986

557
771

2274
3064

576
772

2553
3072

706
774

g 810
000

»
831
1007

741
868
1018

2091
2564

1164

3123

1165

749
887
1019

1171

754
901
1024

2099
2586

2121
2611

2131
2642
3137

3126

3130

117

757
920
1032

1176
804
2156
2656
3373
’

4614
513

464
5184

LO7H
520

473
5234

L7748
527

480
5294

4854
535

489

4934

496

5004

K 12

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC

T$SRPT= 010015
T$$SOF= 010031
T$$SRv= 010027
T$SSW = 010014
TSSTES= 010024
T.ANS
010754
T.CLT
010744
T.0CD
010752
T.DCK
010720
T.DRIV 002254
T.DRP
010722
T.MNB
010724
T.MNC
010712
T.MNH
010706
T.MNS
010716
T.Mmx8
010702
T.mxC
010710
T.MxH
010704
T.MxS
010714
T.PAT
010740
T.RAN
010736
T.ROF
010734
T.SLT
010742
T.STA
010730
T.STIP 010746
T.WCK
010750
T
014534

UAM
=
UDERR
UNLOAD
UPDATE
wT

V(C

000200
003007

003547

016706
002444

VECMSG

= 001000
032052

VECT2

002374

WHY

002246

VECT
= 000002
VECT1
002372

WCK
= 000072
WDE
= 100000
WGE
= 002000
WGEST
003157

= 020000

WRBUF
022370
WRCHK =
2
WRINIT 002274

WRIPG = 000122
WRITE = 000012
WRPACK 024622
WRPOS
002276
WRTCKF
015724
WRTFNC 016430
WTRDY
024340
WXFR1 = 000006

07-DEC=79 09:46

MACY11 30A(1052)
17-DEC=79 11:31
PAGE 5-16
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0153

7054

34754
1659
6564
11904
6894
6854
6884
6754
2324
6764
6774
6724
6704
674M
6684
6714
6694
6734
6834
6824
6814
6844
6794
6864
687#
697
364
358#
3794

17054

1714

17184

1106~

1107

2180

3003

2986
1522

2987%

2989

299N

920
1032

1024

2993

2998

2967

2114

863
925

2230%

1086*

2246

1227%

1305+~
2262%

1309+
2276%

2445+

2853
1205
2749

1207
2793

1213«

1242%

1249+

1937

2283
2944

2411

1439

2855
2144+

1878

2894
3429

3429

2935

1313+

2465+

1319«

1323
2503+

2563

2918+

2426

2429

2456

26674

1340+

1768

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
WXFR2 = 000010
WXFR3 = 000062
XCHFLG 010700
XEXIT
020522
XSALWA= 000000
X$FALS= 000040
XSOFFS= 000400
X$TRUE= 000020

= 033520

L 12

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

SEQ 0154

1178
1178

2143«
1337

2145
2147+

2148+
3429

3480
3480

3484
3484

3491
3491

3495
3495

3509
3502

3509

6304

763
32174

787
3218#

2239
34654

2259
3480

3502
L4454
3215#

32164

2266
3484

2270
3491

2670
3495

32124
3497

32134
- 3502

CZRLKBO RLO1/02 _PERF EXER
CZRLKB.MAC
07-DEC=79 09:46

735

1013

467

477

485

493

500

509

518

523

529

775

811

832

888

933

956

1024

2239

1046

1073

1099

3438

27
697
2553
1282
1069
1007
1041
1091
3448
648
959
21
3561
457
730
718
3517
1705
691

3373
36
868
1892
1266
2156 831
3442
3444
3503
3441

171

o
473

1032

1036

1071

1093

1186

3467

3498

3499

2259

2266

2270

2670

447

632

650

693

699

720

960

1043

480

489

496

506

513

520

527

535

2099

2121

2131

2188

2611

2642

2656

2912

3488

3489

3492

3493

\l'l\jb

GPRML

703

So&

ENDPRO
ENDRPT
ENDSFT
ENDSRV
ENDSW
ENDTST
EQUALS
ERRDF
ERRHRD
ERRSF
ERRSOF
GPHARD
GPRMA
GPRMD

695

T NN

ENDMSG

654

—\N

DORPT
ENDAU
ENDAUT
ENDCLN
ENDDU
ENDHRD
ENDHW
ENDINI
ENDMOD

637

NN
&Hunds
- 00

DEVTYP
DISPAT

451

BGNTST
BNCOMP
BREAK
BRESET
CLKOFF
CLKON
CLOCK
CLRVEC
DELAY
DESCRI

332

1718

BGNSW

, 224

705

3475
1659
656
1190
750
1821
741
201#
195#
749
765
763

BGNSRV

18
3473
455
726

RERER 2@@
L8R

BGNMSG
BGNPRO
BGNRPT
BGNSFT

1075
3439
639
737

—

BGNMOD

755

1048
972
1016

BGNDU
BGNHRD
BGNHW
BGNINI

SEQ 0155

BCOMPL

BGNAU
BGNAUT
BGNCLN

M2
17-DEC=79 11:31
MACY11 30A(1052)
PAGE 6
CROSS REFERENCE TABLE == MACRO NAMES

3508

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC
HEADER

07-DEC~79 09:46

3563

MSBYTE
MSCNTO

19#
34414

11:31

SEQ 0156

938

34884

NSOATA

35074
4634
5514
11744
27153:

MSDECR

21»

MSDEFA

34414

MSCOUN

17-DEC=79

LASTAD

MEMORY

N 12
PAGE 6~1
CROSS REFERENCE TABLE == MACRO NAMES

MACY11 30A(1052)

34428
3489
35084
Lo
5524
11764

24N
1714
10914

S4463N

64904

644N

34924

34L4SK

34934

34L6K

34944

3477K

3478

34798

34814

34824

34834

34854

34864

34874

34964

34984

34994

35004

35014

35034

35044

35054

35064

35104
L4724
S56#4
1177#
303;:

35114
L4794
5574
1178%
30724

35124
4,884
S764
1179
31074

35134
494k
7064
11804
31134

5044
714
11814
31234

5054
7728
11824
31264

5124
9014
12504
31304

S19#4
%14
1857#
31374

5334
9834
22334

534n
9944
22514

S46#4
11644
25614

5474
1165#
25634

5484
11714
25644

3254
6504

447n
6914

4574
6934

L64H
69

4734
7184

4804
7204

4894
7304

4964
9594

5064
9604

5134
1007#

5204
10414

5274
10434

5354
10654

344630

3644H

34LSK

3487H

MSENDE

21»

34420
3489
35084
1714

1849%

3254
6504

Q47K

6914

L57H
6934

464N

4734

MSERRI

8684

%g??:

16414

18044

18204

18924

18984

20424

20874

20914

20994

21214

21314

21564

21884

MSEXCP

34424

glzg:

34440

34L6M

3477

3478

34814

34824

34BSH

34864

34874

34884

34894

34924

34934

MSGEN

184

194
4854
63
1007#
17144
1714

24N
4894
6484

27K
4934
6544

34n
4o
6564

2244
5004
6914

3324
5064
6954

4514
5094
6974

4554
5134
7034

4578
5184
7054

4618
5204
7184

4644
5234
7264

4674
5274
7354

4734
524
7374

L77%
5354
9594

MSGETS

34924

34964

10414

10934

11864

17054

8874

8884

21804

764
804#
21884

11774
18204
21984

31370
34814
349684

33734
34824
34974

3430
34834
3498

34804

35094
34844

34778

3494

10164

21»

3446M

34934

10134

10914

MSGETT

364900

10464

7184

3478

34824

34834

35004

35014

35034

35044

34854

34864

35054

35064

4BO#

4894

4964

9604

5064
10074

5134
10414

5204
10434

5274
1069#

5354
10714

7204

10694

17144

21804

9014

9204

9254

11784
18214
22334

11794
18574
22398

11804
18924
22514

11814
18984
22594

3441H
3484w
34994

34420
34854
35004

L34
34864
35014

3444M
34874
35024

694

34814

34994

10484

34798

34984

9594

10734

10754

10914

10994

11904

1659%#

17054

33738

34484

34674

34804

3484k

34914

34954

34978

9384
10604

914

9594

9784

9834

9944

10004

1007#

11824
20424
%g%

12024
20604
22704

12504
20874
22744

12514
20914
2553

3445H
34884
35034

3446w
3489
35044

34904
35054

34914
35064

5274

5354

6484

6914

7184

9594

204

194

5184
M013#

MSGNIN

MSGNTA
-

194

4574

H)gg:

244

505#
S56#4
7584
8684

46Lu

10614

4734

10694

4804

10914

4894

17054

4964

17144

5064

21804

5134

33734

5204

34484

35174

CZRLKBO RLO1/02_PERF %ER

CZRLKB.MAC
MSHAPT
MSHNAP
MSINCR

07-DEC=79

19#
194
184
G79%
S84
SS74
7614
9014

10154
11264
12514

20874

MSLDRO

MSMCHI
MSMCLO
MSPOP
MSPRIN

MSPUSH
MSPUT

MSPUTT

1060¥

104
104
21»

4634

344
LBO#
S15#
76N
7654

224
4BSH

10244
17644
12664

10324
11654
12824

26114

26424

20914

76494

6374
7544
9254

17-DEC=79

11:31

8 13

PAGE 6-2

SEQ 0157

CROSS REFERENCE TABLE == MACRO NAMES

3324
4LBBN
5234
W
7574
1
11714
16414

21214

gggg:
7624

4514
484
5274
654

9%1#

106404
11744
16594

4558
4934

6564
7624
95

10414
117684
17094

457K
494H
5334
6954
7644
9724

10464
1177#
17184

LOIN
Lo
5
7034
7654
9784

10484
11784

463N
5004
354
7054
714
9834
1179%#
18204

0644

072

21564

21884

21984

%233#

7;}:

29124

7724
10694
1
18214

21314 -

26764

LOLN
5044
S464

4LOTN
5054
5474
7184
7744

10734
11814
18574

LOON
5064
5484
7264
B1O#
1007#

472K
5094
514
7354
8314
10134

10754
11824
18924

31264

31304

25634

25644

12514

20604

25534

25864

7654

7744

8104

8314

8874

10004

10194

10244

1032#

10364

1714

3254
6504

YU
6914

L57h
34

L6LM

4734
7184

LBON
72

4898
7304

496N
9594

5064

5134
1007#

5204
10414

5274
10434

5354
10654

4724

4,884

4944

5044

5054

5124

S19#4

30724

31074

31134

31234

31264

1
&774
7264

31374

6374

2244
9N

4934
7374

5004
9724

5094
1013#

1
101e#

Sicn
7724

5194
9014

3324
6544

4514
6564

4554
6954

4O14
7034

4674
7054

4854
7354

5234

1048¢

10734

10754

1099

11904

16594

17094

17184

34384

34398

34734

34754

994n
12504

5344
9S4

Se6n
%14

5474
9784

5484
9834

18574

22334

22514

2561

25638

25644

2751k

29864

30644

30724

31074

31134

31234

31264

4O34
5514

Lo
5524

4724
S56#4

474
S574

4884
5764

494H
7064

S04#
7604

S05#
7714

S12#4
7724

S19#4
9014

5334
9204

5344
9254

5464
9%1#

S47H
9784

5484
9834

4634
5514

L6
5524

4724
S56#4

474
S574

4,884
S764

L9504

5044
7604

5054
714

5334

11204
22334

112644
22514

11644
25614

11654
25634

11714
2564

11744
2751

11764
29864

11774
30644

11784
30724

MSRADI = 34414

3443

3L44N

SL4LSH

3446H

3477K

347BF

34798

34814

34824

35074

35084

35014

35034

8314
2244
634

9384
3324
6544
10994
LEON

10604 .
4514
6564

4554
6954

4O1n
7034

4674
7054

4774
7264

4854
7354

LT2K

L73K

4LBON

4BBE

4LBIN

4934
7374
34734
494N

76414
2014

76494
9204

7540
9254

7578
9384

7
941

7624
959

7644
9784

7454
184
524

457K

7544
344
6374
734
LO3N

S76#
8104

8314

1018
11744

MSTLAB

123#

55610

10184
;?g;‘

MS$SVC

11204
12504
20604

25534

}%gz

MSRNRO
MSSETS

10994
12024
20424

22748

31134

4TTH
5134
S56#4
7394
887#
1018+

10914
11904
18984

251N

3107

L73K
5124
3524
7374
8684
10164

1202¢

27514

5294

09:46

MACY11 30A(1052)

22334
3064#
4578
5124

10194
11764
18214

22514
30724
4L63H
5134

04
35104

LOLN

7184
10244
11774
18574

2274M
31074
LOLN
5194

34924
35114

7394
8874

10324
1178%
1892

534
1134
LON
5204

9
35124

10364
11794
1898

25614
31234
4724
5274

96
35134

34964

10404
11804

10414
11814

256
31264
4734
5334

25644
31304
4794
5344

34984

10604
11824
2087

25864
31374
4804
5354

34994

10694
1202¢
2091

2611
33734
4884
5464

35004

1179#
31074

11804
31134
34854

11814
31234

1182#
31264
34874

35044

35054

35064

5004
9724

5094
10134

5184
10164

5234
10464

4LO6H

5044

505#

S06#

7654
9

7714

7724
10004

7744
1007#

10914
12504
99

11204
1251¢
2121

11244
1
2131

11644
1282¢
2156

1165¢
1641
2188

2912

29864

4894
5474

494N
5484

5514

5044
5524

5054
5564

S06#
5574

2642

2656

2676

2751

11714
1804
2198

'
MACY11 30A(1052)

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC-79 09:46

S764
810#

‘
MSTSTL

10184
11764
18204

22334
. 30644
L4574
5124
S764
810#
1018#
117644
18204

10194
11764
18214

22514
728
5134
7064
8314

10194
11764
18214

11:31

7184
8684

7394
8874

10244
11774
18574

10324
11784
18924

2274M
31074
464N
S1o#
7184

5534
1134
Lo
5204
734
8874

10244
11774
18574

10324
11784
18924

76414
9014

10364
1179%
18984

S614
1234
L4720
5274
76414
9014

10364
11794
1898#4

25644
31304
4
34
7544
9254

25634
31264
18044
26568

2564M
31304
18204
26768

34984

10404
11804
20424

10414
11814

34??#

34848

3494

34954

3497

35024

PRINTB

463
551

469
552

472
556

479
557

941
1M~

488
576

983
1174

494
2233

1019

1202

1251

READBU

READEF
REQTIM
SETPRI
SETVEC
STARS

SvC

WAITMS
WAITUS

XFERF

772
1164

901
1165

774
214#
739
760
119N
1452
2702

810
807
762
920
1200
1462
%ggloo

887
934
764
925
1356
1464
gg }

8¥

1794
189

3480

XFERT

3502

. ABS.

033520

ERRORS DETECTED:

763
2670

3484

3497K

25634
31264
4734
334
7694
9204

g)I(’Fu$2

44
706

3496

10414
11814
20604

34994
3563
35094

PRINTF
PRINTS

25614
31234
16414
26428

10404
11804
20424

75404
9254

4938

2198¢
34804
3L95K

25538
31134
12664
26114

7494
9204

2274
31074

34784

34814

34824

34834

994
1176

7578
9384

10604
1182
20874

2586H
31374
4804
354
7574
9384

10604
11824
20874

10694
12024
0914

6114
337
4
S46a
7604
%14

10694
1202
20914

35004

26114
33734
18984
3441H
34864
35014

504
2251

505
3064

512
3072

2060

2586

3484w

1250
1177

864
31374

7604
%14

18924

29128

34854

1857
1178

7624
9594

7644
9784

7654
9834

SEQ 0158

7714
9944

7724
10004

7744
10074

10914
12504
20994

11204
12514
21214

11244
12664
21314

11644
1282¢
21564

11654
16414
21884

29124

29864

4894
S47H
7624
9594

4944
5484
7644
9784

4
514
7654
9834

5044
5524
7714
9944

5054
S56#4
7724
10004

5
S57#4
7744
10074

26428

26568

26768

2751

11714
1804#
21984

10914
12504
20994

11204
12514
21214

11244
1
21314

11644
12824
21564

11654
16414
2188+

11714
18044
21984

20424

34874

20874
4
34884

20914
34440
34894

20994
34458
34904

21214
3L4L6H
34914

21314
3LTTH
34924

519
3107

533
3113

534
3123

546
3126

547
3130

548
3137

2642
3442N

3502¢

26564

26768

35034

2561
1179

2563
1180

2564
1181

1398

1401

1420

35044

2751
1182

2751

35054

2986

29128

35064

2986

35074

978
1361
1470
2742

1018
1371
1472
2928

1120
1375
1553
2930

787

2239

2259

2266

3491

3495

3497

3509

000
O

,CZRLKB.LST/CRF=SVC33/ML, CZRLKB.MAC

RUN-TIME: 109 107 10 _SECONDS
RUN-TIME RATIO: 657/228=2.8
CORE USED:
16K
(31 PAGES)

C13
PAGE 6-3

CROSS REFERENCE TABLE == MACRuU NAMES

22518
30724
697#
21884
34794
3494

MSWORD

22334
30644
194
21564

7064
831#

17-DEC=79

1124
1383
1555
2950

2270

1388

1631
2958

1635
3027

2293
3031

2297
3159

1426

2374
3162

1442

2402
3182

1444

2530
3184

1450

2534
3208