Digital PDFs

AH-F126B-MC

May 1979

159 pages

Original

7.8MB

view download

OCR Version

6.5MB

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

OCR Text

RLll:RLVll

RLO1/02 PERF EXER
CZRLKBO

AH-F126B MC
EICHE

-1

“0OF

SEQ 0001

.REM @

IDENTIFICATION

PRODUCT CODE:

AC-F*27B-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.JLITAL
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

FOR
USE
IN
SUCH
WRITING BY DIGITAL.

SYSTEM,

NOTICE)

EXCEPT AS MAY OTHERWISE BE

ONLY

PTJOVIDED

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
%G?Ek{ABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

(C)

1979, DIGITAL EQUIPMENT CORPORATION

—————
i -

TABLE OF

CONTENTS

GENERAL INFORMATION

2.0
2.

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 COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS

PROGRAM ABSTRACT

RELATED DOCUMENTS AND

STANDARDS

RLO1 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
CZRLIBO
CZRLJBO
CZRLNAO
1.5

RUN

THE

FOL LOWING

RLV11 RLOT DISKLESS TZST (RLV 11 ONLY)
RL11/RLV11 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 JONS

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

T0
WORK
ET C.. DO

SEQ 0004

Fo
PAGE 5

2.1 .1

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
gg;%?gg.
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR
THE
XXDP+

CHMDKAOQ ‘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
Og E‘;HE
MONITOR
IS PRINTED.
THEN THE FOLLOWING TWO QUESTIONS ARE
ASKED:

50 HZ
LSI 2

? N
N

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:
RAAAK
AR ANAAY

* STEP 1

AAARAANRRY

THE DIAGNOSTIC WILL ISSUE THE PROMPT 'DR>''.
THE
TIME
WHEN
YOU
RESTART
XXDP+,
YOU
DIAGNOSTIC, NOT XXDP+.
WE WILL
REFER
TO

PROMPT
AS
BEING
COMMAND MODE
.

DIAGNOSTIC

THE

XXDP+

°‘'START''

THE

COMMAND MODE,

AT THIS POINT YOU WILL ENTER A "'START''

SAME

FROM THIS POINT
UNTIL
WILL
BE TALKING TO THE

COMMAND,

PRESENCE

THIS

NOT

THE

AS OPPOSED

TO XXDP+

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
¢Z.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

(OMMAND

SEQ 0005

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

PASS

CONSISTS

UNITS BEING TESTED
PASS

1S SPECIFIED

RUNNING

(THIS WILL BE EXPLAINED

IN THE ABOVE

PNT

PRINT NUMBER OF

HOE

HALT ON ERROR

HOE

FLAG

NUMBER

ONE

FLAGS,

TEST BEING EXECUTED

LOOP ON ERROR

INHIBIT ERROR PRINTOUT

IS SPECIFIED

SHORTLY).

EXAMPLE.

THE MAIN USEFUL ONES ARE:

IER

THE FULL DIAGNOSTIC AGAINST ALL

THE "FLAGS'' SWITCH MAY SPECIFY ANY OF A

BUT

LOE

THE

PAGE 6

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

RAKARRAAA
K

STEP 2 =

KRNI
AR ARANAR

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

THE

NUMBER OF

DEVICES

YOU WISH

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

CONTROLLERS.

THE

TARGET

DEVICE OF

A DIAGNOSTIC

CAN

THE

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.

ARAAARNRKL

* STEP 3 «
L2248 4224841

wHEN YOU HAVE TYPED IN THE
DIAGNOSTIC

WILL

THESE QUESTIONS ARE USED

’;Eg%ES
THERE ARE

UNITS

TO BUILD

TABLES

IN CORE,

TESTED,

THE ANSWERS T0

CALLED

‘HARDWARE

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

SEVERAL

POSED N TIMES,
THIS

NUMBER

ASK YOU THE 'HARDWARE QUESTIONS''.

HARDWARE

WHERE N IS

REPRESENTS

NEW

QUESTIONS AND

THE NUMBER OF

THE ENTIRE

UNITS.

PHILOSOPHY

DEVICE.

DIAGNOSTIC

SERIES WILL

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

TEST

(220288224

THE

SEQ 0006

1
PAGE 7

* STEP 4 =
ARNANAANNRY

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS
(SEC
2.5)
FOR
ALL
THE
UNITS,
YOU WILL BE ASKED '‘CHANGE SW?'' IF YOU WANT TO BE
ASKED THE
PROGRAM,

SOF TWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF
THIS
TYPE
‘'YY''.,
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE

QUESTIONS, TYPE 'W''.
IF
YOU
TYPE
'Y
YOU
WILL
BE
ASKED
THE
SOF TWARE
QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOf TWARE P-TABLE
ASKED JUST ONCE,

[N THE PROGRAM.
THE SERIES OF QUESTIONS
WILL
REGARDLESS OF THE NUMBER OF UNITS TO BE TESTED.

AT
A AN RAN

* STEP 5 «
L2288
0 2808

AFTER

BEGIN
THAT

YOU HAVE

ANSWERED

TO EXECUTE

CAN HAPPEN NEXT,

ENCOUNTERED

AND

NO ERROR

START

COMMAND.

THE

SOF TWARE

THE HARDWARE

DEPENDING ON

ALSO

CONSIDER

THE

QUESTIONS,

TEST CODE.

WHAT

WHETHER

THE

THERE ARE
A

DIAGNOSTIC

SEVERAL

HARDWARE

WILL

THINGS

ERROR

SWITCH VALUES YOU SELECTED ON THE

POSSIBILITIES:

IS ENCOUNTERED,

THEN THE

DIAGNOSTIC WILL

SIMPLY

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

AN ERROR

ENCOUNTERED,

?AingS.
L
.

DEPENDING

HOE

THE

SET:

THE

ERROR WILL BE

THEN

ONE

SETTINGS

REPORTED ON THE

DIAGNOSTIC WILL RETURN TO COMMAND MODE.

THREF

THINGS

THE HOE

AND LOE

CONSOLE

AND

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
BQ?SSEEDAND NORMAL EXECUTION WILL RESUME AS IF NO ERROR HAD
u

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

;?ElsglggLE

THE

DIAGNOSTIC.

NO ERRORS

ARE

~1SSUED.

IF AN ERROR IS ENCOUNTERED,

THE ERROR

WIL.

REPORTED

PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS
28}7; THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE

2.
3.

ENCOUNTERED,

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

ISSUE ANOTHER '‘START'' COMMAND

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

(THUS GOING THRU ALL OF

THE HARDWARE

QUESTIONS ARE

START

NOT ASKED)

ISSUE A '‘CONTINUE'' COMMAND (EXECUTION WILL

BEGINNING OF THE PARTICULAR HARDWARE TEST
CONSIST OF A NUMBER OF THESE) THAT IT WAS
HALT OCCURRED.
NO QUESTIONS ASKED.

THE

STEPS

ISSUE A 'RESTART'' (OMMAND (SAME

THAT

AND

SET).
AT THIS
PROGRAM
GOING

(COMMAND
RESUME

EXCEPT
AT

THE

(MOST DIAGNOSTICS
IN WHEN THE ERROR

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.

PROBABLY

ISSUE

THE

YOU WOULD WANT

PROCEED,

BUT WITH

TO SAY:

PRO/FL
: 1ER:LOE
AGS
:HOE-O
THIS WILL

DO THE

FOLLOWING:

TURN ON THE

lER

(INHIBIT ERROR PRINTOUT)

TURN ON THE LOE FLAG

TURN OFF

4..

RESUME

FLAG

THE HOE FLAG
INSTRUCTION AFTER ERROR REPORT

)

»>

EXECUTION AT

STUDY THE ERROR OR SCOPE

1T OR WHATEVER.

DETECTED AND
THUS YOU CAN

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

CHOICES:

START

RESTART

CONTINUE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT
RUNNING THE

DIAGNOSTIC.

YOU WOULD

TYPE

TO FINISH

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

EXECUTION
THE
THE

TWO

RESTORE

THE

FLAGS

TO THEIR

BEGINNING OF

ORIGINAL

THE HARDWARE

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

AT END OF
CHOICES:

PASS YOU WANT

START

RESTART

AND

RESUME

IN.

FLOW RIGHT ON THRU

TO RUN THE DIAGNOSTIC

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

VALUES

TEST YOU WERE

AGAIN,

YOU WANTED

YOU

TO ANSWER

HAVE

THE

THE DJAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR.

SEQ 0009

PAGE 9

THE FULL PRINT-OUT FROM THE
(O=0OPERATOR, D-DIAGNOSTIC):

ABOVE

DIALOGUE

MIGHT

LOOK

BY
WHOM
ENTERED

& czrukB

DR LOADED

DIAG. RUN-TIME SERVICES REV.
CZRLK-B-0

D APR-79

CZRLK RANDOMLY PERFORMS DRIVE
AND WRITE FUNCTIONS

UNIT

0
D

SEEK,

READ,

IS RLOY, RLOZ

DR>STA/PASS:1/FLAGS :HOE

D.C

CHANGE HW

D.0

# UNITS

(D)

UNIT O
RL1T

(L)

? Y

? 2

D.O

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (O) O ?
DRIVE TYPE
= RLO1 (L) Y ?
BR LEVEL (0) 5 ?
UNIT 1
RL1T

(L)

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

D.O

BUS ADDRESS (0Q) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLOT1 (L) ? N
BR LEVEL (0) 5 ?
CHANGE SW

(L)

)

D.O

D.O
D.O
D.O
D.0 (N=RLOZ2)
0.0

? N

D.0

CZRLK HRD ERR 00004 TST 003 SuB 002 PC:004130

ERR HLT

DR>PRO/F1 AGS: IER: LOE :HOE=0
L8880

dRddRR

20t

D.O

00t

002082823023

20332

3R]

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE
ERROR WITHOUT PRINTING ANYTHING.
YOU CAN SCOPE
THE ERROR UNTIL YOU HAVE LOCATED IT, THEN “C OUT.
LA AR

“C

SRRt

sRdd

208222283

2F]

PAGE 10

THIS

SEQ 0010

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

D.0

CHANGE SW (L)

D.O

2 N

CZRLK EOP 1

DR>RESTART/PASS: 1

D.0

CHANGE

0.0

SW (L)

? N

PAGE

2.2
CHAIN MODE

PROGRAMS

OPERATION

WITHOUT

(CONSISTS

CHAIN

MODE

OPERATOR

BEEN MODIFIED TO RUN IN
PROGRAMS ARE

IDENTIFIED

TO RUN CHAIN MODE,

THE

INTERVENTION.

SEQUENTIAL

CAN

EXECUTION

ONLY PROGRAMS

CHAINED.

IN THE DIRECTORY BY A BIC

XXDP+ MONITOR USES AN ASCII

THAT

HAVE

CHAINABLE

EXTENSION.
FILE

(KNOWN AS A

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

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
<CR>
C FILNAM/QV
IN THE FIRST CASE THE PASS COUNT SPECIFIED IN
THE
CHAIN
FILE
IS
USED
BY
THE
XXDP+
MONITOR
TO DETERMINE THE NUMBER OF PASSES TO
EXFCUTE 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

TAKEN FROM THE

LAST

COMMAND

000000.

OTHER

THAN

CHAIN FILE AND

THE

SOFTWARE

SWITCH

THE XXDP+ MONITOR PRINTS EACH COMMAND
THEN EXECUTES

THE

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
CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED.

THE

SEQ 0011

M1
PAGE 12
IF

THE USER WISHES

TERMINATION

MAY

TERMINATE
SO

C(HAIN

MODE

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

2.3

DFTAILS OF

BEFORE

TYPING A CONTROL/C.

ITS

NORMAL

HOWEVER,

THE

MODE,

AND

RECEIVES

PROGRAM

COMMANDS AND SYNTAX

2.3.
THERE

ARE

DIFFERENT

FOUR

WAYS

SUBSETS OF

THE

ENTERING

HOW ENTERED

OPERATOR ENTERED

DIAGNOSTIC

COMMAND

DIAG COMMAND SET ARE AVAILABLE WITH EACH:
LEGAL

'RUN DIAG'

COMMANDS

START
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT
2.

DIAGNOSTIC HAS FiINISHED ALL
ITS REQUESTED PASSES

START
RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT
OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART

CONTINUE

DISPLAY
FLAGS

ZFLAGS
EXIT
4.

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONT INUE

PROCEED
PRINT

DISPLAY
FLAGS
ZFLAGS
EXIT

SEQ 0012

2.3.2

T
PAGE 13

COMMAND SYNTAX

(2323282222822

2282228220222

020222320328 30223002222

2222222422223 2%22%23]

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

AR Raddsddliiaddddidsdiiliadisiidisislidadiadisdiddddssdidl]]

THE DIAGNOSTIC

SPECIFIED.

MAY BE

IN CORE

THE

IS EXECUTED IN ACCORDANCE WITH THE

MESSAGE ''# UNITS?'' IS PRINTED.

SWITCHES

THE START COMMAND

ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THE FOLLOWING:

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

FINISHED EXECUTING C)

ERROR WAS ENCOUNTERED WITH HOE

FLAG

SET

OPERATOR
ENTERED
CONTROL/C.
AFTER
THE
OPERATOR RESPONDS TO ‘%
UNITS?"', THE HARDWARE DIALOGUE IS INITIATED.
WHEN IT IS COMPLETED,
THE
C JESTIONS
''CHANGE
SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,

BECOME

THE NEW DEFAULTS.

THEREFORE

PROGRAM IN ORDR TO RETURN TO THE
THE

SWITCH ARGUMENTS ARE

IT IS NECESSARY TO

LOAD DEFAULTS.

RELOAD

THE

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.

REGARDLESS

THE

EXECUTE ALL TESTS.

TESTS WILL BE EXECUTED IN NUMERICAL

ORDER

SPECIFICATION.

THE

DEFAULT

ORDER
IS

"PASS=CNT'' IS A DECIMAL NUMBER INDICATING
THE
DESIRED
NUMBER
OF
PASSES.
A PASS ]S 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
C(COLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:
HOE HALT ON ERROR, CAUSING COMMAND MODE
ERROR IS ENCOUNTERED

LOE LOOP ON ERROR,
WITHIN

THE

TO BE ENTERED

CAUSING THE DIAGNOSTIC

SMALLEST

SUBTEST, OR TEST)

DEFINED

BLOCK

CONTAINING THE ERROR

IER INHIBIT ERROR REPORTING
IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

PRI

DIRECT ALL MESSAGES

~ PNT PRINT NUMBER OF

TO A LINE

PRINTER

TESI BEING EXECUTED

TO LOOP
OF

WHEN

CONTINUOUSLY

CODING

(SEGMENT,

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
EQUATE.
TO
O
ARE
%$A2§35~ AfiLF%CEng;REPEEé;}REgIS CLEARED.
IF THE FLAGS SWITCH IS

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

(IN

TERMS

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

0220220

RdRddddd

THE

it sdsdsdidtiidssisddsdsisdissids)]

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

R0dd 22t

THE DIAGNOSTIC

SPECIFIED.

dRdsadd

IN CORE

HOWEVER,

ONES IN CORE ARE USED.

it sdtadtiiadistiidsddtiitistiissistsssy

IS EXECUTED

NEW

IN ACCORDANCE WITH THE

'P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD,

THE

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

NEW
DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
Eggg&?/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

OPERATOR

COMMAND''.

UNTIL THE NEXT START

THE EFFECT OF THE UNIT-LIST LASTS

(WHERE IT IS

"ALL'') OR THE NEXT RESTART.

AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

RESET

SEQ 0014

PAGE 15

AEARARARANNRRAARRAARANRNANRRARRRNN?
AN RAARAANY

CONCTINUE) /PASS : <PASS=CNT/FLAGS : <FLAG-LIST>
LA2222023203020
d83 2228232220223 32238202 22231%43;

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:

L8280

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

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

2230c820d80d8d22

FROM

THE

2282242

PRO(CEED) /FLAGS : <FLAG=LIST>
AARAARARA AR

AN AN

RARAA

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A
HALT
ON
ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO
BEGIN
EXECUTION
AT THE LOCATION

%Lg\gI:LGTESEDERROR CALL.
THE

SWITCH ARGUMENTS ARE

NEITHER HARDWARE NOR SOF TWARE PARAMETERS

THE

SAME AS THE START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

AhAN

EXIT
L2
8 4 1

RETURN TO XXDP+ PROMPT MODE.

1282020800 dddaddtdisld

DRO(P) /UNITS:UNIT-LIST
L 884222828
dd0 20 ddddda]

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
SJY\CE ngcgggu A START COMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED

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

SEQ 0015

PAGE

L2220 022232023R02
022

ADD/UNITS:UNIT-LIST
L3882 02000280282¢224
2

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.

L2224
4

PRI (NT)
L22882
2

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

PRINTED.

L02204228322200
dd2 20 A3 s

DIS(PLAY)/UNITS:<UNIT-LIST>
L8208

2d0dR30

00800

2Rd

22|

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED
OUT
IN
THE FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED

BY THE OPERATOR 'DROP’'' COMMAND ARE SO DESIGNATED.
LA 2 88441

FLA(GS)
12422421

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
AN
RR

ZFL (AGS)

NN
AN

ALL

FLAGS ARE

2.4

CLEARED.

EXTENDED P-TABLE DIALOGUE
THE

FULL

CAPABILITY OF

THE HARDWARE DIALOGUE

REVEALED

THE

FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

AS SOON AS THE QUESTION '# UNITS?'' 1S ANSWERED
SPACE
IN
CORE IS ALLOCATED FOR 'N'' P-TABLES.
ARE OF

THE

SAME FORMAT,

gE}AUgEfEi FTHE T!-l/\IR'DMARE

AND

THERE

PARAMETER

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

ONE-TO-ONE

QUESTIONS

AND

CORRESPONDENCE

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 AS A RANGE
THE

VALUES

REPRESENT

PURE

NUMERICAL

(6~10 FOR EXAMPLE..

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
A
SET
OF
P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE

ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE
5 HARDWARE QUESTIONS IN THE DIALOGUE).

P-TABLE,

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

LEVEL'® S.

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

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

UNIT O
RL1T1

(L)

(D)

ARE

? 8

BUS ADDDRESS (0) 174400 ?
VECTOR (O) 160 ?
DRIVE (0) O ? 0-3
DRIVE TYPE
= RLO1 (L) Y ?
BR LEVEL (0) 5°7?
UNIT &
RL1T (L)

¥ ?

BR LEVEL

(0)

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (Q) 0 ? 0-3
DRIVE TYPE = RLO1 (L) Y ? N
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),
(QUESTION
#3),
THE
DRIVE

THE
TYPE

CONTROLLER
VECTOR
ASSIGNMENT
(QUESTION #5), AND THE 'BR LEVEL''
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR
QUESTION

(QUESTION #6).
#46 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 RLOZ2 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 RLOZ2'S FOR THE REMAINING & UNITS

QUESTION

#5.

THE LAST QUESTION WAS DEFAULTED USING THE ‘BR LEVEL"’

FROM THE FIRST PASS.

SEQ 0017

2.5

PAGE

HARDWARE PARAMETERS
THE

FOLLOWING QUESTIONS WILL BE

VALUE LOCATED TO THE LEFT OF
THAT WILL BE

RLT1T

(L)

ASKED

TAKEN ON A CARRIAGE

(0)

CONTROLLER,

THE

INTERRUPT VECTOR OF

THE

NO(N)

YOU HAVE

CONTROLLER.

THE

CONTROLL.ER.

ANSWER WITH THE DRIVE(S)
TYPE

ANSWER NO

= RLOT
(N)

€¢0)

(L)
DRIVE

CONNECTED TO THE

CONTROLLER

?
IS AN RLOZ2

ANSWER WITH THE

2.6

(OMMAND.

THE DEFAULT VALUE

160?

ANSWER WITH THE

BR LEVEL

174400?

ANSWER wiTH THE BUS ADDRLSS OF

DRIVE

START

¥?

BUS ADDRESS (0)

DRIVE

RETURN RESPONSE.

ANSWER YES(Y) IF YOU HAVE AN RL11
RLV11 CONTROLLER.

VECTOR

THE QUESTION MARK

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
IT
RUNS.
THE
PARAMETERS
CAN
BE MODIFIED ON A START,
RESTART, OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:

"'CHANGE S.W.

7?7

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

START THE TEST.

"RETRY LMT
THIS

(D)

?*'

THE NUMBER OF

TIMES

THE

PROGRAM

WILL

ATTEMPT

(OMMAND

BEFORE
IT
QUITS
AND
REPORTS
A
HARD
ERROR.
IF
THE RETRY [S
iU%gE?SEghogEFORE THE RETRY LIMIT IS EXCEEDED IT WILL PRINT AND LOG

LIMITS O - 65,535

SEQ 0018

"'SEEK RETRY LMT

(D)

PAGE

?*'

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 2"

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

WITH WHAT WAS EXPECTED.

IF ONE OF

BUFFER

THE

THAT WERE

1ST TWO WORDS IS BAD

1S DUMPED.

LIMITS
"% OF

ERR DUMPED

THIS

THE

SECTOR

(D)

NUMBER OF

BAD

ARE

(USED TO KEY)

PRINTED

THE FNTIRE

Y OR N
128

?*'

MISCOMPARES

THAT

WILL

PRINTED.

LIMITS O - 128
"‘TIME BETW REPORTS
THIS

THE

g?ivgg EIF
LOGUE .

(MIN)

INTERVAL

CLOCK

(D)

240 ?*'

BETWEEN AUTOMATIC

STATISTICAL

IS PRESENT AND WAS ANSWERED

LIMITS 1

REPORTS

THE

ALL

INITIAL

- 65,535

"DROP DR ON ERR LMTS REACHED

(L)

?*'

GIVES THE ABILITY TO AUTOMATICALLY STOP TESTING ON A DRIVE ONCE ONE
OF
THE
ERROR LIMITS HAVE BEEN EXCZEDED (SEEK, DRIVE, HARD, SOFT).
IF THE ANSWER IS YES THEN THE
FOLLOWING
FOUR_
QUESTIONS
WILL
BE
ASKED,

THEN

THE

QUESTION WILL

2.3.13.11.

LIMITS

Y OR N

SEQ 0019

"HRD ERR LMT
THIS

IS THE

HARD

ERROR

(D)

PAGE 20

3 ?*'

LIMIT OF
[S ONE

HARD ERRORS

ON WHICH

THE

THAT A DRIVE

RETRY

WILL BE

DROPPED

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.
? EO;ETERROTM}§ AN ERROR ON AN OPERATION THAT WAS SUCCESSFUL WITHIN
H

LIMITS 1 - 65,535
"DATA MISCOMPARE LIMIT
THIS IS THE
DROPPED ON.

LIMIT OF

(D)

10 2

IN CORE

MISCOMPARES

THAT

THE

DRIVE

WILL

LIMITS 1 - 65,535
"'SK ERR LMT

(D)

THIS

LIMIT

THE

3 ?*'
OF

MIS-SEEK

AND

TRACKING

ERRORS

THAT

DRIVE

WILL

Bt DROPPED.

LIMITS 1
"DR ERR LMT

(D)

THIS

LIMIT

THE

- 65,535

3 ?2*'
OF

DRIVE

ERRORS

THAT

DRIVE

WILL

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
THEN THE NEXT

TWO QUESTIONS WILL BIZ ASKED.

LIMITS Y OR N

"DATA XFER LMT

(+10(10))

(D) 25000 ?*'

SEQ 0020

THIS IS THE LIMIT OF

THE

DRIVE

WILL BE

COMBINED BITS READ/WRITTEN

DROPPED.

PAGE 21

(*10(10))

WHICH

THE

DRIVE

LIMITS 1 - 65,535
"'SK LMT

(+10(3))

(D)

10000 ?**

THIS IS THE LIMIT OF
WILL BE DROPPED.

SEEK OPERATIONS

THE NORMAL

OPERATION

R/W PARAMETERS

(=10(3))

LIMITS 1 - 65,535
"DO YOU WANT TO CHANGE SEEK,

(*10(3))

SEEK

AND

(L)

N ?''

TRANSFER

THE

ENTIRE

CARTRIDGE,
CYLINDERS O - 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
¢szg?g;éGUOUS SECTION OF THE CARTRIDGE AND CONTROL THE SIZE OF THE
A YES ANSWER WILL ASK

THE NEXT

"STIPULATE R/W XFER SIZE

13 QUESTIONS.

(L) N 7"

THE PROGRAM WILL NORMALLY MAXIMIZE

MEMORY

RESTRICT

(<28K)

THE BUFFER

AVAILABLE.
TO THOSE

QUESTION IS 2.3.13.19.

THE

TRANSFER SIZE BY

VALUES GIVEN

TWO

LIMITS Y OR N
"MAX XFER

(D)

REPRESENTS

THE MAXIMUM AMGUNT OF

2560 ?*'
WORDS

TO READ OR WRITE

WORDS

TO READ OR WRITE

LIMITS 3 - 5120
"MIN XFER
REPRESENTS

(D)

3 ?*'

THE MINIMUM AMOUNT OF

LIMITS 3 - 5120

USING

ALL

THIS QUESTION IF ANSWERED WES WILL
QUESTIONS.

SEQ 0021

"RD ONLY

PAGE 22

(L) N 2

GIVES THE ABILITY TO INHIBIT WRITING THE PACK
WHILE
INITIAL WRITE OF THE PA(~ FROM THE START COMMAND WILL

TESTING,
THE
STILL OCCUR.

LIMITS Y OR N
"RAN PAT

(L)

Y ?"'

NORMAL OPERATION SHOULD BE YES, BUT THIS PARAMETER WILL
ALLOW
THE
WRITING OF ONLY ONE PATTERN OF EIGHT NORMAL PATTERNS.
THE PATTERNS

IN NEXT QUESTION.
LIMITS Y OR N
"WHICH ONE

(0)

?"'

IT IS NOW POSSIBLE TO CONTAIN THE
THE FOLLOWING EIGHT PATTERNS:

EXERCISER

IN WRITING ONLY ONE

0 -

ALL 0'S

177777 ,177777 ,177777,52525,52525,52525
177777,177777,52525,52525,177777,52525
177252,177252,172765,172765

2 -

0.0.0,177777,177777 ,177777

0.0,177777,177777,0.177777,0,177777

0,177777
3 -

4 -

5 -

25252.52525.52525,125252,125252.125252

52525.52525.125252,125252,52525.125252
5§2525.125252,52525.125252

WORST CASE DATA

155555.133333,66666,155555,133333,66666
155555,133333,66666,155555,133333,66666
155555,133333,66666,155555
121105,150442,64221,132110,550644,26422
13211,105504,42642,21321,110550,44264

22132,11055,104426,42213

6 -

ALL 1°'S

7 -

45513,122645,151322,64551,132264,55132

26455,113226,45513,122645,151322,64551
132264,55132,26455,113226

LIMITS 0 - 7
"WORDS PER SECTOR COMPARED ON READ

(D)

16 '

SEQ 0022

NORMAL

TRANSFERS

PARAMETER

WILL

THROUGHPUT

THE

ARE

RANDOM

ALLOW

YOU

BETWEEN

SPECIFY

AND

HOW

1280

WORDS,

MANY WORDS

PAGE 23

THIS

SHOULD BE

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

LIMITS O -

"% OF

128

DATA ERR RPT'D PER BUF

THIS PARAMETER

WILL

PRINTED.

THE

PROGRAM

-AFTER ALL

WORDS

HAVE.

LIMJT

(D)

THE

WILL

NUMBER

CONTINUE

SPECIFIED BUT WILL

INHIBIT

X WORDS BAD OUT OF

128 WORDS READ

ARE

?*'
OF

THE PRINTOUT ONCE

CHECKED A

SUMMARY

C(GRE

TO COMPARE

WILL

THIS LIMIT
PRINTED:

LIMITS O = 126
"MAX HD

(D)

REPRESENTS MAXIMUM HEAD

TO USE

IN SEEK OPERATIONS.

LIMITS O - 1
"MIN HD

(D)

O ?"'

REPRESENTS MINIMUM HEAD TO USE IN SEEK OPERATIONS
LIMITS 0 - 1
"'CHANGE

VALUES OF MXCYL & MINCYL

(L)

?*'

IF NO THEN THE NEXT TWO QUESTIONS WILL BE
"MAX CYL

(D)

MAXIMUM

INNER

511

SKIPPED

?*'

CYLINDER

TO BE

USED

LIMITS O = 255.

IN SEEK OPERATIONS.

(RLO1) OR 511.

MISCOMPARES

AS MANY WORDS AS

(RLO2)

IS REACHED.

SEQ 0023

"MIN CYL

(D)

O ?*'

MINIMUM OUTER CYLINDER

TO BE

USED

LIMITS O - 255.
"MAX SEC

PAGE 24

IN SEEK OPERATIONS.

(RLO1) OR 511.

(RLO2)

(D) O ?'

MAXIMUM SECTOR TO START

TRANSFER ON

LIMITS O - 39
"MIN SEC

(D)

O ?''

MINIMUM SECTOR

TO START

TRANSFER ON

LIMITS O - 39
?LEE?EQ?§:E?ING THE

3.0

LAST

SOF TWARE PARAMETER THE PROGRAM WILL

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

ERRORS

ERROR

INCLUDES

INCLUDE REGISTERS

ERROR REPORTING
THE FOLLOWING ARE
RUNNING.
A BRIEF

ERROR HEADINGS
THAT
DESCRIPTION IS GIVEN.

MAY

ENCOUNTERED

WHILE

"SFT ERROR''
AN ERROR WAS DISCOVERED,

BUT ON RETRY

INFO GIVEN IS ERROR, RLCS,

THE

RLBA, AND RLDA

ERROR

DID

NOT

PERSIST.

"EXH'D RETRY ON SEEK''
THE NUMBER OF

RETRIES

GIVEN HAVE

FAILED

TO POSITION

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

DRIVE

THE

LAST POSITION,PRESENT

SEQ 0024

2
PAGE 25

"VOL CHK WILL NOT RESET"'
A DRIVE RESET WILL NOY RESET VOLUME

CHECK BIT

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

"DATA DMP -~ DATA (HECK/GARBBLED DATA''
THE

PROGRAM ENCOUNTERED A DATA (HECK ERROR BUT WAS UNABLE

SENSE

OUT

THEREFORE

2.3.13.21)

ALL

THE

WORDS

"LIMITS EXCEEDED!
ANSWER GIVEN

MAKE

FIRST TWO WORDS, WHICH ARE USED TO KE' OFF OF.
OF

SECTOR

ARE

DUMPED.(REFER

SECTION

THAN TWO

HIGH - X LOW - Y’

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 [N HARDWARE
CONTROLLERS)

SECTION THAT ARE NOT LEGAL

(I.E.,

"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 1S UNABLE

TO READ ANY OF

THE

FIELD FILES

"MORE THAN 16 BAD SECTORS''
gzgggag LIMITS EXERCISING CARTRIDGES

TO THOSE WITH LESS THAN 16 BAD

SEQ 0025

PAGE 26

"NO DRIVES ENTERED''
EITHER NO DRIVES WERE ENTERED OR ALL DRIVES THAT WERE ENTERED
DROPPED
FOR
ONE
REASON
OR ANOTHER.
S?éggézg THE ERROR,
WAITING
FOR
“C.

WERE

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

"DRV NOT RDY W/0 DRV ERR''
ON COMPLETION OF A COMMAND,
TRACKING DRIFT PROBLEM.

DRIVE READY
THERE

IS CHECKED FOR

IS NO DRIVE READY A GET

POSSIBLE

STATUS

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
LAST
SEEK,
THE
PRESENT
POSITION
AND THE
EXPECTED POSITION.

"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
BIT IS SET OR THE STATE IS WRONG

INCORRECT.

EITHER A

ERROR

"HRD ERR''
THE NUMBER OF

Egég;OUT

RETRIES WERE EXHAUSTED WITH

CONSISTS

OUT

ALL REGISTERS BEFORE

SUCCESS

THE

COMMAND AND AT

ERROR

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

SEQ 002¢

3.2

PAGE 27

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

THERE

4.0

PERFORMANCE AND PROGRESS REPORTS

6.1

PERFORMANCE REPORTS

PERFORMANCE

REPORTS

PARAMETERS),
WHEN
A
(PRINT) THE FORMAT IS:

ARE

DRIVE

sxx RLOT

GIVEN

TOTAL SEEKS:

ERRORS

DRV-ER: N

HARD :
DCK:
DLT:

N
N

THE

SECTION

(PER

SOF TWARE

AUTOMATICALLY

DROPPED,

AT OPERATOR REQUEST

PERFORMANCE REPORT xx«

TIME: HH:MM:SS
RLCS: XXXXXX
*xx RUNNING "R DROPPED DH:DM
PACK SERIAL _#: DDDDDDDDDD
WORDS READ:
WORDS WRITTEN:

ARE NO OTHER HALTS.

DRIVE:

DRIVE

TYPE = RLOX

11111

NNNNNNRNN]
KKKKKKKKK

SEEK:

TRACK:

DATA:

HCRC:
OPl:

N
N

NXM:

HNF: N

SOFT:

:
WHERE

IS HOURS SINCE

SS
XXXXXX
Y

IS
IS
IS
IS

START/RESTART

IS MINUTES SINCE START/RESTART
SECONDS SINCE START/RESTART
ADDRESS OF CONTROLLER
DRIVE NUMBER

HOUR AT WHICH DRIVE WAS DROPPED

IS MINUTE AT WHICH DRIVE WAS DROPPED

DDODDDDDDD - IS 10 DIGIT OCTAL SERJAL NUMBER OF PACK
1111
IS TOTAL NUMBER OF SEEKS SINCE START TIME 0:00:00
JJJJ

KKKK
N

IS TOTAL NUMBER OF WORDS READ SINCE START TIME 0:00:00

IS TOTAL NUMBER OF WORDS WRITTEN SINCE START TIME 0:00:00
IS NUMBER OF THAT TYPE ERROR SINCE START TIME 0:00:00

SEQ 0027

' Ym]

4.2

PROGRESS REPORTS
THE ONLY PROGRESS REPORT

5.0

PAGE 28

IS THE AUTOMATIC PERFORMANCE REPORT.

DEVICE INFORMATION TABLES
————

’

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

BIT
BIT
BIT
BIT
BIT

BIT
BIT
BIT

15
14
13
12

-~
=
11 =
10 9/8
7 ~

(XXXXXO0)

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

6 - INTERRUPT ENABLE
5 - EXTENDED BUS ADDRESS
4 - EXTENDED BUS ADDRESS

(BIT 17)
(BIT 16)

BIT 3-1 - FUNCTION CODE
0 - NOP (PDP-11) MAINT (LSI-11)
1

= WRITE CHECK

2 = GET DRIVE STATUS
3 - SEEK

4 - READ HEADER

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

BIT

0 - DRIVE READY

RLBA - BUS ADDRESS REGISTER

(XXXXX2)

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

(XXXXX&)

FOR READ/WRITE FUNCTIONS

BIT 1 5~7 - CYLINDER ADDRESS FOR TRANSFER
BIT 6 - SURFACE FOR TRANSFER

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

REGISTERS

FOR

SEQ 0028

'Y)

FOR SEEK FUNCTION

BIT 15 =7 -*DIFFERENCE TO NEW CYLINDER
BIT 6- 5 = MUST BE ZERO (0)
BIT 4 = SURFACE (0=UPPER, 1=LOWER)
8IT 3 - MUST BE ZERO (0)
BIT 2 - SEEK DJRECTION( 1=IN / 0=0UT )
BIT 1 - MUST BE ZERO (0)
BIT 0 - MUST BE ONE (1)
FOR GET

STATUS FUNCTION

BIT 15-4 - IGNORED SHOULD BE ZERO (0)
BIT % -~ DRIVE RESET
8IT 2 ~ MUST BE ZERO (0)
8IT 1 - MUST BE ONE (1)
8IT 0 - MUST BE ONE (1)
RLMP
- MULTIPURPOSE

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
e
b o

BIT 15
BIT
BIT
BIT
BIT
8IT
BIT
BIT
BIT
BIT

§ WSO N00O0O =PI

- WRITE DATA ERROR
CURRENT HEAD ERROR
WRITE LOCK STATUS

(CHE)

(WL)

SEEK TIME OUT (SKTO)

SPIN ERROR (SPE)
WRITE GATE ERROR (WGE)
VOLUME CHECK (V()
DRIVE SELECT ERROR (DSE)
DRIVE TYPE IS RLOZ IF SET

SURFACE (0=UPPPER,
COVER OPEN
BIT
HEADS HOME
8IT
8IT
BRUSHES HOME
BIT 2 0 -STATE BITS
0 - LOAD STATE
1

- SPIN UP

2 = BRUSH CYCLE
f

1=LOWER)

PAGE 29

SEQ 0029| -

’

PAGE 30

3 - LOAD HEADS

4 - SEEK = TRACK COUNTING

S = 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

RANDOM OPERATIONS OF

WITH

RANDOM

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

THE

FOLLOWING STEPS

RANDOMLY SELECT A DRIVE

CHECK CONTROLLER OF SELECTED DRIVE IS NOT BUSY:

THEN STEP 3;

RANDOMLY SELECT FUNCTION FOR DRIVE

IF
IF
IF
IF
GO

ELSE STEP 1

SEEK/WRITE/WRITE CHECK = THEN GO TO STEP S
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

GET A RANDOM CYLINDER ADDRESS

SEEK TO THE SELECTED CYLINDER AND WAIT TILL

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

(NOT THE BAD SECTOR FILE)

GET A RANDOM DATA PATTERN TO WRITE ON THE

ISSUE

THEN

COMPLETED
SURE

TRACK POINTED TO

THE WRITE FUNCTION AND WAIT TILL COMPLETED

10.

ISSUE A WRITE CHECK FUNCTION ON THE SAME
DISK
ADDRESS
TO
COMPARE THE DATA JUST WRITTEN BY THE WRITE FUNCTION THEN GO
T0 STEP #1

11.

GET A RANDOM CYLINDER # FOR THE SEEK

12.

SEEK TO THE SELECTED CYLINDER AND WAIT TILL

13.
‘

GET A RANDOM WORD COUNT FOR THE READ FUNCTION IT WILL NOT OVERFLOW THE SELECTED TRA(K

COMPLETED
MAKE

SURE

SEQ 0030

14.

PAGE 31

ISSUE THE READ FUNCTION AND
WAIT
TILL
COMPLETED
...THE
INTERRUPT
SERVICE WILL INITIATE A DATA COMPARE ON THE DATA

READ

15.

(IF

THE

FUNCTION IS ENABLED)

THEN GO TO STEP #1

GET A RANDOM CYLINDER FOR THE SEEK

16. " SEEK AND WAIT TILL COMPLETED
17.

GEY A RANDOM WORD COUNT FOR THE READ COMMAND

18.

ISSUE A READ COMMAND AND WAIT TILL COMPLETED

19.

GET ANOTHER RANDOM' WORD COUNT FOR SAME TRACK SELECTED

20.

ISSUE A SECOND READ FUNCTION AND WAIT TILL
GOTO STEP M1

21.

ISSUE A SEEK TO A RANDOM CYLINDER AND WAIT TILL

22.

ISSUE A READ HEADER FUNCTIGN AND WAIT

23.

ISSUE A READ DATA WITH NO HEADER COMPARE
READ) AND WAIT TILL COMPLETED

24.

ISSUE A GET STATUS FUNCTION THEN GO TO STEP #1

THE

PROGRAM WILL

STAY WITHIN

START

EXECUTION.

?g:gEgLL REGISTERS OF

IF NO ERROR SET;

THE

CHECK FUNCTION WHICH CAUSED

COMPLETED

SECTOR

INTERRUPTED

INTERRUPTED AND

ELSE STEP 14

INTERRUPT

IF WRITE CHECK;
THEN STEP 3A
IF GET STATUS.
THEN STEP S
IF SEEK;
THEN STEP 4A,
IF
READ HEADER;
THEN STEP 7
IF READ;
THEN STEP 9
IF WRITE;
THEN STEP 3B

CLEAR WRITE (HECK NEEDED FLAG,

THEN STEP 4

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

EXIT
(HECK

TO MAIN PROGRAM
STATUS FCR.

NO ERRORS
COVER CLOSED
BRUSHES HOME
HEADS OUT

B8E

OUT

INTERRUPT SERVICE ROUTINE

(ONTROLLER THAT

THEN STEP 3;

THEN

COMPLETED

THAT MAIN LOOP UNTIL

BY A FUNCTION FINISHING AT WHICH TIME
WILL

TILL

COMPLETED.

SAVE

SEQ 0031

REPORT

ELSE STEP €

STATUS ERROR;

GO TO STEP 4A

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

PRESENT
STEP 8

SET NEw POSITION;

IF DATA TO BE COMPARED;
g?ggK1¥ALIDITY OF

TWO WORDS;

ELSE STEP &
THEN STEP 12;

REPORT

12.

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

13.

REPORT DATA £RROR, GO TO STEP 4

14.

IF DRIVE ERROR;

15.

IF NXM;

THEN STEP 18;

ELSE STEP 16

16.

IF OPI;

THEN STEP 18:

ELSE STEP 17

17.

THEN STEP 18;

ELSE STEP 20

18.

IF RETRY"< LIMIT

19.

REPORT

20.

IF HCRC;

21.

22.

IF WNF.

23.

YOU SHOULD NEVER GET HERE

264.

§§5g0526 READ/WRITE

25.

(HECK

26.

READ 40 HEADERS,

27.

REPORT

28.

QéGURE OUT BAD HEADER 1f IN FILE THEN STEP 4A;

ELSE

29.

CHECK

STEP 18

GARBLED DATA;

DCRC.

THEN STEP 4A,

THEN STEP 24;

SOFT

ELSE

GO TO STEP 4A

STEP 22

THEN STEP 25

DOING READ HEADER

THEN STEP 4A;

ELSE

ALL GOOD THEN STEP 27;

HEADER CRC;

DA=1

STEP

ELSE STEP 23

IS BAD SECTOR

ELSE

ELSE STEP 21

THEN STEP 29;

ELSE STEP 15

CLEAR FLAGS:

THEN STEP 30;

ELSE

GO TO STEP &

THEN STEP 33;

HARD ERROR;

WITH

TO STEP 4

THEN STEP 10;

FIRST

POSITION

DLT;

SEQ 0032

IN FILE

THEN
LA od

THEN STEP 4;

SEEK LINEAR/TRACKING

»
[F

PAGE

STEP 18.

ELSE STEP 28

GO TO 4A

THEN STEP 4A;

ELSE

STEP'

30.

ggw HEADER.

IF ON CORRECT TRACK THEN STEP 31;

31.

CHECK

IF DA IS

32.

REPORT

TRACKING;

33,

ACT UPON:
.

34.

GO TO STEP &

IN FILE

VC
SKT0
SPE.
WGE
WDE
CHE

THEN STEP LA,

FIX POSITION,

ELSE

ELSE STEP 18

TO STEP 4

PAGE

STEP

SEQ 0033

(ZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
29

176

222
330

449

635
652
701
725
733
964

1097

1161
1189
1461
1571
1576
1597
1614
1630
1€55
1787

2014
2046
2057
2076
2110
2135
2160
219N
2292
2349
2360
2373
2529
2574
2660
2682
2730
2927
2949
3026
3158
3376

MACY11

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

11:31

BIT AND OFFSET DEFINITIONS
MACRO DEF INITIONS
GLOBAL DATA AND CONSTANTS
GLOBAL MESSAGES
ERROR MESSAGES
DEFAULT HARDWARE P-TABLE PARAMETERS
DEFAULT SOF TWARE P-TABLE PARAMETERS
STATISTICAL CODE
LOAD PROTECTION TABLE
INITIALIZATION CODE
AUTO DROP SECTION
GLOBAL SUBROUTINES

REPORT ROUTINE
PROGRAM MAIN LOOP
ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK
ROUTINE TO LOAD READ HEADER AND ISSUE IT
RONTINE TO LOAD WRITE DATA COMMAND
ROUTINE TO LOAD READ DATA COMMAND

SETUP CONTROLLER AND DRIVE
ROUTINE TO LOAD FUNCTION

INFO FOR

INTERRUPT PROCESSING

INTERRUPT SERVICE ROUTINES
CONTROLLER ERROR CHECK ROUTINE
COMMAND SERVICE ROUTINES
SEEK INTERRUPT SERVICE

READ INTERRUPT SERVICE
READ HEADER INTERRUPT SERVICE

GET STATUS INTERRUPT SERVICE
WRITE INTERRUPT SERVICE

EXIT FOR INTERRUPT SERVICE

DRIVE ERROR INTERRUPT SERVICE
BUFFER GENERATION ROUTINE FOR
RETRY LIMIT ROUTINE

THE

LIST OF FUNCTION ROUTINES
BAD SECTOR FILE ROUTINE
ROUTINE
ROUTINE
ROUTINE

TO DROP DRIVE
TO CHECK DATA
TO WAIT FOR CONTROLLER READY

GET STATUS/DRIVE RESET ROUTINE

ROUTINE TO WRITE PACKS INITIALLY
HEADS HOME ROUTINE
RANDOM W(C AND DA ROUT INE
ROUTINE TO DUMP BUFFER ON D(K
ROUTINE TO CHECK FOR BAD SECTOR

DRIVE

‘WRITE'

INFORMATION BUFFERS

FUNCTION

SEQ 0034

30A(1052)

17-DEC~79

11:31

PAGE 1

CZRLKBO RLO1/02 PERF EXER

_.ENABLE ABS

.=2000
MCALL
SVC

SVCINS=0
SVCTAG=0

002000

00
002070
002072
002074

“MDHEDR

CZRLK,B.0,0,1
LASCII /C/
LASCII 1/
LASCII /R/
LASCI1 /L/
LASCII /K/
.BYTE
0
.BYTE
0
.BYTE
0
/B/
LASCII
.ASCI1
/0/
.WORD
0
.WORD
0
.WORD
LSHARD
T
.WORD
LSSOF

HEADER

LSHW
LSSW
LSLAST

—

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

(=]

BGNMOD

Y
>

002000

POINTER BGNRPT ,BGNSW,BGNSF
T ,BGNAU,BGNDU

[%)

000000
000000

—

002000

SVC

OOOMNMNMOOO mo-=00
ad
\=4

002000

4 N

OO NN

MACY11

TITLE
(ENABLE AMA

Y R S

QU WY

WA= OV00 NN

NN —

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

$REVISION
SEDIT

LSDVTYP
6$RPT

C
L $AU
L$DU
0

SEQ 0035

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

MACY11 30A(1052)

17-DEC-79

11:31

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

002076
002100
002102
002104
002106
002110
002112

002122
104035
000000
011046
013150
012676
011040

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

LS$DESC
ESLOAD
O
LSINIT
LSCLEAN
LSAUTO
LS$PROT

(4)
(36

002116
002120

000000
000000

.WORD
.WORD

0
0

(4)

002114

002122

24
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)

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

25
26
27

(3)
(3)
<§g

000000

.WORD

002230
002236

055103
042520
051515
047504
051105
051516
042507
052101
042523
042522
047101
052111

046122
043122
051040
020115
052101
047440
020124
051525
045505
042101
020104
000105

020113
051117
047101
050117
047511
020106
052123
020054
020054
020054
051127

046122
030114

030460
000062

051054

DEVTYP
JASCIZ

:DEFINITIONS

002242

BGNMOD

(??

002242

EQUALS

g};

<RLOT,RLO2>

/RLO1.RLO2/

.EVEN

(1)
1)
(1)
(1)
M
1)
1)
(1)
1

SEQ 0036

.EVEN

.SBTTL

(1)

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

3
PAGE 1-1

ENDMOD

002230

BIT AND OFFSET DEFINITIONS

GLBEQAT

* BIT DIFINITIONS
100000

040000
020000
010000
004000
002000
001000
000400
000200
000100

8IT15== 100000

81T14== 40000
81T13== 20000

8IT12==
81T11==
BIT10==
81T09==
BIT08==
BIT07==
BIT06==

10000
4000
2000
1000
400
200
100

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
1)
1)
)
QP
(@)
1)
1)

(1)
1)
&P

)
1y
1)
)
1)
1)
ap
1)

4
P
D)

)

D)
5};

000040
000020
000010
000004

000002
000001

001000

000400
000200
000100

000040

000020
000010
000004
000002
000001

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

BIT0S5==
BIT04==
BIT03==
BIT02==

40
20
10
4

BIT9==

BITO9

PAGE 1-2

SEQ 0037

BITO1== 2
B1T00== 1

BIT8==
BIT7==
BIT6==

BIT08
BIT07
BIT06

8IT5== BITOS
BIT4==
BIT3==
8IT2==
8IT1==
BIT0==

BIT04
BITO03
BIT02
BITO1
BITO0

. " EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000040
000037

EF .START==
EF _RESTART==

3.
3.

;
;.

START COMMAND WAS [SSUED
RESTART COMMAND WAS [SSUED

000035
000034

cF .NEW==
EF .PWR==

29.
28.

;
;

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

000036

EF .CONTINUE==

:
;

000340

000300
000240
000200
000140
000100
000040
000000

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

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

* EVENT FLAG DEF INITIONS

1)
g};

§D)

MACY11

PRIORITY LEVEL

30.

DEFINITIONS

PRI0O7== 340

PR106==
PRIOS==
PRI04==
PRI03==
PRI02==
PRIO1==
PRI00==

300
240
200
140
100
40
0

;OPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

EVL==
LOT==
ADR==
IDU==
ISR==
==
BOE==
PNT==
PR]==
IXE==
IBE==
IER==
LOE==
HOE==

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

;

CONTINUE COMMAND WAS ISSUED

51
52
53

54
55
56
57
58
59
60
61

62
63

64
65
66
67
68

000006

;DISK ADDRESS OFFSET
sMULTI PURPOSE OFFSET
ONSTANT OFFSETS FOR INDIVIDUAL DRIVE BUFFERS

ngggng_v_.posmm THAT

000000
000002
000004
000006
000010

000012
000014
000016

000020
000022
000024
000026
000030
000032
000034
000036

000040
000042

000044
000046
000050
000052
000054

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
HNFERR=32
NXMCNT=34
RETRY=36
BDA=40
BMP=42

FUNC=44
BCSADR=46

LSTHDR=50

RTYPE=S2

SKCNT1=54

69
70
71
72

000056
000060
000062
000064

PRFLGS=56
RXFR3=60
WXFR3=62

74
75
76

000070
000071
000072

DPHOUR=70
DPMIN=71

79
80

000100
000102

8%
85
86
87
88

000112
000114
000116
000120
000122

77
78

81
82
83

89
90
9
92
93

000074
000076

000104
000106
000110

000124

000001
000001
000100

SEQ 0038

sCONTROL AND STATUS OFFSET
sBUSADDRESS OFFSET

oSO

41
42
43
44
45
46
47
48
49
50

000000
000002
000004

M3
PAGE 1-3

3280
I unn

38
39
40

07-DEC-79 09:46

CZRLKB.MAC

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

MACY11 30A(1052)

-4

CZRLKBO RLO1/02 _PERF EXER

LSTDA=64

DIFWD=66
TRERR=7?2

DATCER=74
DOWCK=76
SERNM1=100
SERNM2=102
DCS=104
DRSEL=106
BBA=110
BSECPT=112
RSEEK=114

ITMUS

IS CRITICAL

IS THAT OF

(MUST) BE THE LAST ENTRY OF
s SEEK OPERATION COUNT
READ OPERATION COUNT

(BITS)

URITE OPERATION COUNT

(BITS)

LOW ORDER

HIGH ORDER

LOW ORDER
HIGH ORDER

.ERROR COUNT - HARD
;ERROR COUNT = SOFT
s SEEK ERROR COUNT
;DRIVE ERROR COUNT
sDATA CRC ERROR COUNT
sHEADER CRC _ERROR COUNT
;DATA LATE ERROR COUNT
;OPERATION 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
:THIRD ORDER WRITE COUNT
:DISK ADDRESS AT SOFT ERROR
;LAST DIFFERENCE WORD OF SEEK
sHOUR OF DRIVE DROPPED
sMINUTE OF DRIVE DROPPED
: TRACKING ERRORS COUNT
;DATA CMP ERRORS
sPERFORM WRITE CHECK
:SERIAL NUMBER OF CARTRIDGE
;SERJAL NUMBER OF CARTRIDGE
:CSR ADDRESS
;DRIVE SELECT BITS(8,9,10)
;PRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE
s SEEK IN PROCESS OF RECOVERY
:CSR OF SOFT ERROR

SOFTCS=116
TDR=120
WRIPG=122

sWRITE

SKDON=BITO
DRDY=BIT0O
INTEN=BIT6

;DRIVE READY
s INTERRUPT ENABLE

PRP0OS=124

THE BUFFER

IN PROGRESS FLAG

;PRESENT POSITION ON DISK

CZRLKBO RLO1/02_PERF EXER

CZRLKB .MAC
94
95

96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
1M1
12
13
114
115
116
17
118
119
120
121
122
123
gg

07-DEC-79 09:46
100000
040000

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

;CONTROLLER READY
;EXTENDED BUS ADDRESS BIT 17
JEXTENDED BUS ADDRESS BIT 16
:WRITE CHECK FUNCTION CODE
;GET DRIVE STATUS FUNCTION CODE
;SEEK FUNCTION CODE
:READ HEADER FUNCTION CODE
;WRITE FUNCTION CODE
;READ FUNCTION CODE
;DRIVE RESET COMMAND CODE FOR DRIVE COMMAND WORD
;GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD
;MARKER BIT FOR DRIVE COMMAND WORD (SEEK,GET STATUS)
;DIRECTION FOR SEEK(0=AWAY FROM SPINDLE)
;HEAD SELECT FOR SEEK
;HEAD SELECT FOR READ,WRITE,GET STATUS

:OFFSET FOR SOFTWARE P-TABLE

142
143
144

000012
000014
000016

TYT=12
RDT=14
DDT=16

146

000022

149

CSR=0
VECT=2
PR]IOR=4
TYPDR=6
DRBT=10
CNT=12
RLT=0
ELT=2
SET=4

000006
000010

DAT=6
SKT=10

000020

000024
000026

000030

CHFLG=20

MXB=2?2
-

MXH=24
MNH=26

Mx (=30

3
PAGE 1-4

:WRITE DATA ERROR
;HEAD CURRENT ERROR
;WRITE LOCK
:SEEK TIMEOUT ERROR
:SPINDLE TIMEOUT/UNDER/OVEK SPEED
;WRITE GATE ERROR
: VOLUME CHECK
;DRIVE SELECT ERROR
:NON-EXISTENT MEMORY ERROR
:DATA LATE
;DATA CRC ERROR
;HEADER CRC ERROR
;HEADER NOT FOUND ERROR
;OPERATION INCOMPLETE ERROR

;OFFSET FOR HARDWARE P-TABLE

000000
000002
000004

147
148

;COMPOSITE ERROR
;DRIVE ERROR

CRDY=8IT?7
BA17=BITS
BA16=BIT4
WRCHK=BIT1
GSTAT=BIT?2
SEEK=BIT1!BIT2
RDHDR=BIT3
WRITE=BIT3'BIT1
READ=BIT3'BIT?
DRST=BIT3'BIT1!BITO
GSBIT=BIT1!BITO
MK=BITO
SIGN=BIT?
SKHS=BIT4
HEAD=B]T6

137
138
139

145

11:31

BIT AND OFFSET DEFINITIONS

WDE=BIT15
HCE=BIT14
WwL=BIT13
SKT0=BIT12
SPE=BIT11
WGE=BIT10
vC=BIT9
DSE=B]T8
NXM=BIT13
DLT=BIT12
DCRC=BIT1
HCRC=BIT11
HNF=BIT12
OPI=BIT10

}%2

140
141

17-DEC-79

ERR=BIT1S
DERR=BIT14

}gg

128
129
130
13
132
};3

MACY11 30A(1052)

SEQ 0039

CZRLKBO RLO1/02 PERF EXER

CZRLKB.MAC
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168

169
170
171
172

07-DEC-79 09:46

30A(1052)

17-DEC=79

11:31

BIT AND OFFSET DEFINITIONS

000032
000034
000036
000040
000042
000044
000046
000050
000052

MNC=32
MXS=34
MNS=36
DCKFG=40
DRFLG=62
MNB=44
SEL=46
OPFLG=50
DET=52

000062
000064
000066
000070
000072
000074
000076

SRLT=62
CLMT=64
AUT0=66
STIP=70
WCK=72
DCD=74
ANS=76

000054
000056
000060

002242

MACY11

ROF =54
RAN=56
PAT=60

;

ENDMOD

4
PAGE 1-5

SEQ 0040

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

PAGE 1-6

SEQ 0041

MACRO DEFINITIONS

’l.)&LAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MILLISECOND TIME COUNTS
CRO
WAITMS
ARG,?WAIT
MOV
#ARG DL YCNT
SINITIALIZE DELAY COUNTER
WAIT:
.ENDM

ASL
ASL

DELAY
DEC

BNE

DLYCNT
DLYCNT

#250.
DLYCNT

WAIT

IMULTIPLY ARGUMENT BY 2
JMULTIPLY ARGUMENT BY 2 AGAIN
s IMPLEMENT 25-MS TIME DELAY
;DECREMENT DELAY COUNT
sBRANCH IF TIME DELAY NOT EXPIRED

;DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS
.MACRO

WAITUS
DELAY

ARG
#ARG

;/THE NUMBER OF

D=t

.ENDM

s IMPLEMENT 100-US TIME DELAY, ARGUMENT SPECIFIES

JACTIVATE THE CLOCK TO INITIATE
.MACRO
CLKON
JSR
PC,CLKINI

Db =D p =D

.SBTTL

DD DD

SELIRRRAC2EBEIRRRAT2B
I

175
176
177

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

;DEACTIVATE THE CLOCK TO HALT THE GENERATION

201

.ENDM
.MACRO

JSR

CLKOFF

CLR

33
—

d ad

) —d

O~NOWNEHWN=O

PONNNININNNIN)

12%:

CLKSON

cMP

#1,CLKTYP

CLR
CMP

a#172540
#2,CLKTYP

CLR

a#177546

BNE
11%:

PC.,CLKST

BNE

118

12%

100-US TIME COUNTS

THE GENERATION OF CLOCK INTERRUPTS

JACTIVATE CLOCK WITH 1-SEC INCREMENTS
sINITIALIZE CLOCK
:START CLOCK
OF CLOCK INTERRUPTS

;INDICATE '‘CLOCK OFF*’
:P=-CLOCK?
sBRANCH TO CHECK FOR L-CLOCK
;CLEAR P=-CLOCK
;L=CLOCK?
sBRANCH FOR NO CLOCK

;CLEAR L-CLOCK

.ENDM

JREQUEST ELAPSED TIME IN SECONDS OCCURRING BETWEEN -UPERVISOR INITIATION
JAND THE GENERATION OF THE REQUEST
.MACRO
.ENDM

REQTIM

MOV

ARG

CLKACC,ARG

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 00472

.SBTTL

GLOBAL DATA AND CONSTANTS

BGNMOD

GLBDAT

RECNT:
RWCNT:

.WORD
.WORD

O
O

JREAD ERROR COUNT
JR/W ERROR COUNT

TSTDRV:
DRUT :

.WORD
BYIE

0
O

. COPY OF SELECTED DRIVE FOR TESTING
sDRIVES UNDER TEST

WHY :

WORD

DRPRS:

.BYTE

LONUM:
CYLMSK:
SECMSK:
CMSK:
SMSK:

_WORD
.WORD
.WORD
.WORD
.WORD

SUR:

WORD

REASON FOR DROPPING DRIVE
;DRIVES PRESENT

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

O
O
176543

WRINIT:
WRPOS:
CyL:

O
0
0

JWRITE INIT FLAG
JWRITE UNIT FLAG
sCYLINDER #

sSECTOR #

SEC:

REGEN:
KILLDC:

CLKFRQ:
CLKTYP:
CLKADR:

.WORD
.WORD
WORD

WORD

.WORD
.WORD

.WORD
.WORD
.WORD

123456
100177
100077
000177
000077

0
0
0

;TYPE OF DRIVE FROM P-TABLE
;MASK FOR 0-7 DRIVES
;PRIME FOR RANDOM

sNUMBER GENERATOR
sMASK FOR CYLINDER ONLY
sMASK OUT SECTOR BITS

;SURFACE #

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

:THE FOLLOWING LOCATICNS ARE CLEARED AS A GROUP (DOWN TO 'STFLG')
;THEREFORE DON'T INSERT ANY CONSTANTS

CNTLR1: .WORD

CNTLR2:
LSTDR1:
LSTDR2:
BCSR:
BVEC:
BPRIOR:
BDRSEL:

.
"%

0
0
0
0
O
0
0

.WORD

HDRFND:
CHKSEC:
DECNT:
TEMPQ:
TEMP1:

.WORD
.WORD
.WORD
.WORD
.WORD

TEMP3:

_WORD

TEMP2:

TEMP4:
TEMPS:
TEMPG:

TEMP7:

TEMP8:
TEMP9:

174400

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

_WORD
.WORD
.WORD

_WORD

.WORD
.WORD

0
0
0
0
0

;CSR 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
JVECTOR '*
'
:PRIORITY "
'
;DRIVE
''
'

JFLAG TO INDICATE HDR IN BAD LIST
;SECTOR OF ERROR =~ USED BY BAD SECTOR LOCATION
;DATA ERROR COUNT
;TEMP LOCATION
;TEMP LOCATION

;TEMP LOCATION

0
0
O

e
;"
P

"
'
,

O
0

D
;"

'
'

276

277
278
279
280
281

002372

MACY11

000160

VECT1:

VECTZ2:

PRIOR1:

PRIORZ2:
GDDAT:

284
285
286
287
288
289
290

TICK:
SECOND:
MINUTE:
HOUR :

29N
292
293
294

3
b
b ad —D
b
b
b
d
d

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

C.HDR:

.WORD

BUF1:
BUF2:

296
297
298
299
300
301
302
303
304

NN
AN NININ NN

.WORD

E.CS:
E.BA:
E.DA:
E.MP:
E.MP1:

E.MP2:

295

319

.WORD

.WORD
.WORD
RNTEMP: .WORD
INTERVAL: .WORD

282
283

305
306
307

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

MAXWC:
WT:
PWRFLG:
TRPFLG:

STFLG:

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

160

lelelolelololololelololelolelololeleoBeololololols]

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

4
PAGE 1-8

SEQ 0043

sVECTOR OF FIRST CONTROLLER
JVECTOR '* 2ND

cKEEPS TRACK OF TIME BETWEEN STATISTICAL REPORTS
;/(MINUTES RUNNING TIME)

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

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

JEND OF MASS CLEAR
CNTFLG:

FASCII:
FASPNT:
DWCNT:

DWCNT1:
ERRVEC:
ST1:
ST2:

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

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

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

ENDMOD

;CONTINUE FLAG
sASCI] MESSAGE OF FUNCTION
;POINTER
;ERROR COUNT
sERROR COUNT
;JERROR VECTOR
sSTATES ALLOWED
:STATES ALLOWED

;DELAY COUNTER FOR WAITMS TIMING MACRO
sFLAG INDICATING PRESENCE OF A SYSTEM CLOCK

:"'CLOCK ON'’ INDICATOR

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

;/1S "TICKING''

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

MACYTT

002516

30A(1052)

17-DEC-79
11:31
GLOBAL DATA AND CONSTANTS
LSBTTL

GLOBAL MESSAGES

BGNMOD

GLBTXT

4
PAGE 1-9

SEQ 0044

;GLOBAL TEXT

044524
040
040
076
040
040
040

104
040520
047516
051104

042515
046122
051050
020076
051050
051050

051050

020072
051503
041514
052506
041114
042114
046514

043111
045503

053440
051440
041440 042122
053111
020105
< 052117
053440
052103

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

LASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ

DIFMSG:
CART:
NOCRDY:
DNRDY:
NORDY:

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCiZ

DRVER:
MDERS:
MDSER:
MVCER:
WGEST:
MRDER:
MDCER:
MHDER:
DMPDCK:
TRACK:
ERLMTM:
SERLMT:
SFEMSG:
DCDMSG:
DERMSG:
OVER:

.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ2
,ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
ASCIZ

SEXHAU:
UNLOAD:
NOLOAD:
SOPLMT:
NOREV:
MBDMSC:

.ASCIZ
.ASCIZ
.ASCI1Z
,ASCIZ
.ASCIZ
.ASCIZ

SWSEC:

.ASCIZ

PRGER:
NWRTS:
SMSG:
EXHAUS:
UDERR:
MSKER:
MSFER:

REQ:

HWSEC:

046111

040524
020114

046102
026520

MPT :

ILLEG:

ASCI2
.ASCIZ
_ASCIZ

.ASCI2
LASCIZ

LASCIZ

ASCI2

.ASCIZ

_ASCI2

“TIME: "'
">> FUNCTION:

" (RLDA):
** (RLMP):

*'
'

/DIF WD: /
/PACK SERIAL #: /
/NO CRDY/
/DRIVE NOT READY/

XDR NOT RDY W/0 DR ERRX

/BUG/
/INIT WR OF SEC BAD/
/ SECTOR: /
/NO GOOD HDR/
/UNDJAGNOSABLE 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 [T/
/MORE THAN 16 BAD SECTORS/
'
/NO FACTORY FILE/
/NO FIELD FILE/
/P-TABLE: /
/ILL P-TABLE/

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

388
389
390
3N
392
393
394
395

397
398

399

400
«N
402
403
404
405
406
407
408
409
410
N
412
413
414
415
416

004004
004016
004030
004041
004054
0040586
004101
004132
004150
004161
004177
004214
004231
004254
004265
004276
004314

053040
047516
042040
040
054105
051040

041505

104

052101
042522
040
123
051440
040
042440
040
051104
044040
040
040

w17

418
419
420
421
622
423
424
425
426
w27
428

429
430
431

432
433
434
435
436
437
438

439
440
441
442
443

051531

MACY11

30A(1052)

047524
044522
042526
020124
047520
050040
044504
051525
051531
047522
052524
046125
051124
042047
023503
020105
000
041522
000113

MVEC:

000
000111
000
000126
047111
047111
047040
047105
046505
051117
047516
047503
042524

17-DEC=79

GLOBAL MESSAGES

NODRIV:
DRNM:
LPS:
EPS:
RPS:
NOPWR:
BUSAD:
MRT:
ERT:
MST:
MST1:
RT1:

11:31

&
PAGE 1-10

.ASCIZ

/ VECTOR:

LASCIZ
.ASCIZ
.ASCIZ

/STATUS WAS: /
/ SHOULD BE: /
/ RETRIES ATTEMPTED/

.ASCIZ
/NO DRIVES/
.ASCIZ
/ DRIVE: /
LASCIZ
/ LST POS: /
.ASCIZ
/EXP POS: /
LASCIZ
/ REC POS: /
_ASCIZ
/DR DID REC'R FROM PWR UP/
_ASCIZ
/AT BUS ADDR: /
.ASCIZ /RETRYS: /
.ASCIZ
/ ERROR TYPE: /

EXP:
RCD:
DROP :

JASCIZ
.ASCIZ
.ASCIZ

/7 EXP'D:
/ REC'D:

ERRHDR:

.ASCIZ

/CURRENT POSITION (HDR)

MTHNF:
MTHCRC:
MTDCRC:
MTDLT:
MTOPI:
MTNXM:
MTDRV:
MSTART:
MSWRPK:
NORDDC:

NOCLK:
NOREPT:
NOTRDY:
NOCTLR:

INSMEM:

SEQ 0045

/
/

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

/DRIVE DROPPED/
/ HNF/
/ HCRC/
/ DCK/
/ DLT/
/ OPl/
/ NxM/
/ DRvV/
/TESTING STARTED/
/WRITING PACK /
/PACK NOT FULLY INIT'D...DATA COMPARE

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/SYSTEM CLOCK IS NOT AVAILABLE/
/PERFORMANCE REPORTS WILL NOT BE PRINTED/
/DID NOT RESPOND WITH 'READY''/
/NO CONTROLLER/

_ASCIZ

= /

INHIBITTED/

/SYSTEM FATAL ERROR - INSUFFICIENT MEMORY BUFFER SPACE/

sTHIS LIST OF ASCI1 TEXT IS USED AS A TABLE FOR PRINTING
JFUNCTIONS IN ERROR MESSAGES
TABLE IS 'MTCR - MTRD'
:THE ORDER IS IMPORTANT AS WELL AS THE LENGTH OF EACH

:ASTIZ STRING. EACH STRING IS SEVEN(10) BYTES PLUS ZERO
JFILL BYTE

(TOTAL B(EIGHT)

BYTES)

LONG.

USED

IN LINE1

SSUBROUTINE . v e e eeeeeseenaanneeneenenasnesnneanann
040
040
040

040
040

051127
052107
042523

042122
051127
042522
042122

044103
052123

045505
042110
052111
042101
047Q55

MT(CR:

LASCIZ

MTRD :

.ASCIZ

MTGS:
MTSK:
MTRH:
MTWR :

MTRNH:

/ WR(CHK /

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

/
/
/
/

GISTAT/
SEEK
/
RDHDR /
WRITE /

_ASCIZ

/ RD=NHD/

/ READ

-----------------------------------------------------

.NLIST

CND,MD,ME

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

645

446

6«7
448
449
450
N
452
453
454
455
456
457
(3
(3)

458
459

460
461
462
463
15)
14)
13)
(12)
11)
ao
(9
(8)
(7)
(6)
(3)
(4)
(4)
464

(3
(3
465

MACY11

005070

17-DEC~79
GLOBAL MESSAGES

30A(1052)

005070

(4)
(4)

470
7N

4
PAGE 1-11
,

.SBTTL

ERROR MESSAGES

BGNMOD

GLBERR

:GENERAL ERROR REPORT

‘
005070
005070
005074
005074
005074

SEQ 0046

ENDMOD

005070

004737

BGNMSG

006330

L10000:

104423

ERR1

JSR

PC.LINE3

TRAP

C$MSG

ENDMSG

.MIS-SEEK ERROR REPORT

005076
005076
005102
005102
005104

004737
010146
012746
016446

012746
016446
012746
016446
012746
012746
012746

010600
104414
062706

v 260
0VUs160

005162
468
005162
469 005166
13) 005166
(12) 005172
11 005176
(10)
(9
(8)
(7)
(6)
(3)

.EVEN

BGANMSG

006330

MOV

0046066
000124
004054
000050
004041
000066

002623

007104
000011

000024
L10001:

104423

004737

006014

016446
012746
017446
012746
016446
012746
012746
012746
010600

000064
002577
000110

062706
016437
004537

000020
000064
006510

104414

ERRZ2
JSR

PRINTB

466

467

11:31

BGNMSG

002565
000116
002535
006735
000007

AFMT4 ADIFMSG,DIFWD(R4)
,ALPS,LSTHDR(R4) ,#EPS ,PRPOS (R4) ,#RPS ,R1

R1,-(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
TRAP
ADD
ENDMSG

#RPS,=(SP)
PRPOS
(R4) ,~(SP)
#EPS ,-(SP)
LSTHDR(R4) ,-(SP)
WLPS,~(SP)
DIFWD(R4) ,-(SP)
HDIFMSG,~(SP)
#FMT4 ,~(SP)
#11,-(SP)
SP.RO
C$PNTB
#24 ,SP

TRAP

CIMSG

ERR3

:SOFT "ERROR RECOVERABLE ERROR REPQRT

JSR
PRINTB
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV

PC,LINET
#FMT2A #CRLCS,SOFTCS(R4) ,#CRLBA,3BBA(R4) ,#CRLDA,LSTDA(RS)
LSTDA(R4) ,-(SP)
#CRLDA,-(SP)
aBBA(R4) ,-(SP)
#CRLBA,-(SP)
SOFTCS(R4) ,-(SP)
#CRLCS,=-(SP)
HFMT2A,-(SP)
#7,-(SP)
SP,RO

ADD
MOV
JSR

#20,SP
LSTDA(R4) ,TEMPO ;GET THE ADDRESS TO PRINT
RS,TELCYL
:CONVERT FOR PRINTING

TRAP

002346

PC,LINE3

C$PNTB

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MA(
07-DEC-79 09:46
472

005250

(11) 005250
(10 005254
(9)
(8)
7
6)
3

4)
4)
473

(3)
(3

474
475,
476
477
478
479
12)
an
10)
(9)
(8)
7)
(6)
3
4)
4)
4«80

00531

(7)
6)
3)

%)
(4)
489
3

(3)
490
49
492
493
494
9)

000052
004161
000036
004150

062706

000014

104414

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

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

007" 37
000005

L10002:

104423

ENDMSG
TRAP

11:31

4
PAGE 1-12

SEQ 0047

#FMTS,MMRT RETRY(R4) ,#ERT ,RTYPE (R4)
RTYPE
(R4) ,~(SP)
#ERT,-(SP)
RETRY
(R&) ,~(SP)
#MRT = (SP)

#FMTS
- (SP)

#5,-(SP)

SP.RO
CSPNTB

#14,SP

CEMSG

;JGET STATUS ERROR REPORT
005312
005312
005316
005316
005322
005326
005332
005336

004737

006330

013746
013746
012746
013746
012746
012746
012746
010600

002472
002470
004214
002426
004177
007153
000006

062706

000016

104414

3
3

481
482
483
484
485
486
4,87
488
(9)
(8)

016446
012746
016446
012746
012746
012746
010600

MACY11

ERRS
JSR

BGNMSG

L10003:

104423

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

PC,LINE3

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

ST2,-(SP)
ST1,-(SP)
A#MST1,-(SP)
E.MP,-(SP)

#MST ,=(SP)
HFMTG,
- (SP)
#6,-(SP)

SP,RO
CSPNTB

#16,SP

C8MSG

;DATA ERROR SUMMARY
004737
016400

005402
005406
005412
005414
005416
005422
005422
005422

010046
013746

012746
012746
010600
104414
062706

006220
000042

ERR6

BGNMSG

002344
007263
000003
000010

PC,LINE?2
BMP(R4) ,RO

TRAP

CIMSG

* ENDMSG

L10004:

104423

JSR
MOV
PRINTB
MOV
MOov
MOV
MOV
MoV
TRAP
ADD

H#FMT9A ,DECNT RO
RO,-(SP)
DECNT,-(SP)
HFMTOA,-(SP)
#3,-(SP)

SP.RO
CSPNTB

#10,SP

;NON-RECOVERABLE ERROR REPORT

005424
005424
005424

BGNMSG

012746

004231
-~

ERR7

PRINTB
017

HFMTB RETRY(R4)
,ART1
H#RT1,-(SP)

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
(8)
(7)
(6)
(3)
(&)
(4)
495
696
(3)
(3)
497

005430
005434
005440
005444
005446
005450
005454
005460
005460
005460

500
501
502

005462
005462
005466

498
499

016446
012746
012746
010600
104414
062706
004737

MACY11

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

000036
007215
000003

000010
006330
L10005:

104423

11:31

4
PAGE 1-13

MOV
MOV
MOV
MOV
TRAP
ADD

RETRY(R4) ,~(SP)
HFMT8,-(SP)
#3,-(SP)

TRAP

($MSG

JSR
ENDMSG

SEQ 0048

SP,RO
CSPNTB

#10,SP
PC.LINE3

;BAD DATA (COMPARE ERROR REPORT

004737
016437
004537
011246

012746
013746
012746
016446

012746
017446
012746
012746
012746
010600
104414
062706

010246
012746
012746
010600
104414
06270¢

006220
000040
006510

BGNMSG

002346

JSR

000024
007444
000002

000006

L10006:

BGNMSG

004737

006330

016446
012746
010146
012746
012746
012746
010600
104414
062706

000050
004041

JSR

MOV

004265
002402
004254
000040
002577
000110
002565
007373
000011

104423

ERRS

PC,LINE?

BDA(R4) ,TEMPO
RS,TELCYL

;REPORT THE CYL # & SECTOR/HEAD
#FMT10A,#CRLBA,aBBA(R4)
,#CRLDA,BDA(R4) ,#EXP,GDDAT ,#RCD, (R2)

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

#24 ,SP
#FMT108,R2
R2,-(SP)
#FMT10B,~(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP

TRAP

C8MSG

ENDMSG

(R2) ,=(SP)

#RCD,-(SP)

GDDAT ,-(SP)

REXP,~-(SP)

BDA(R4) ,~-(SP)
#CRLDA,-(SP)

BRA(RS) ,-(SP)

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

SP,RO

C$PNTB

;DRIVE ERROR

ERR9
JSR

004177
007502
000005

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV

000014

TRAP
ADD

PC,LINE3
HFMT13,MMST
,R1 ,4#LPS LSTHDR(R4)

LSTHDR(R4) ,-(SP)

#LPS,~(SP)

R1,=(SP)
A#MST,=(SP)
#FMT13,-(SP)
#5.~(SP)
SP,R0
C$PNTB
#14,SP

005644
005644
005644

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

005670
005674
005700
005704
005706
005710
005714
005714
05714

523

005716

525

005716

527

005722

MACY11

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

L10007:

104423

11:31

&
PAGE 1-14

SEQ 0049

ENDMSG
TRAP

CSMSG

sINVALID ENTRY IN P-TABLE REPORT

s N

e ta e taiV2iV, IV 1V, 1V, IV, PN ~N
O——dd
b cd b o (N —2
O =NWNOV00
RN~ ~ AN

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

BGNMSG
013746
012746
013746
012746
010146
012746
012746
012746
010600
104414
062706

002332
004004
002330
002525

003756
007452

000007

MOV

000020

L10010:

104423

BGNMSG

004737

(3)
(3)

005722
005722

529
530
531
532
533
(7)
(6)
(3)
(4)
(4)
53
(9)
(8)
(7)
(6)
(3)

535
(3)
(3)

005724
005724 -004737
005730 016403
005734 016337
005742
005742
012746
005746
012746
005752 010600
005754
104414
005756 062706
005762
005762
013746
005766 012746
005772 012746
005776 012746
006002 010600
006004
104414
006006 062706
006012
006012
006012
104423

537

006014

006330

104423

016437

MOV
© TRAP
ADD
ENDMSG
TRAP

BGNMSG

002426

BVEC,-(SP)

A#MVEC,~(SP)

BCSR,=(SP)

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

#MPT
= (SP)

#FMT11,-(SP)
#7,~(SP)

SP,RO
CSPNTB

#20,SP

C$MSG

PC,.LINE3

ENDMSG
TRAP

ERR13

MOV

007562
000001

CSMSG
PC,LINE3
DCS(R4) ,R3
MP(R3) ,E.MP
H#FMT14C
HFMT14C,-(SP)

;GET HEADER
:CRLF

#1,-(SP)

SP,RO
CSPNTB

000004

#4,SP
H#FMT12 ,#ERRHDR,C.HDR

002434
004476
007472
000003

C.HDR,=-(SP)
#ERRHDR,~(SP)
HFMT12,-(SP)
#3,-(SP)
SP,RQ

;PRINT

THE HEADER MESSAGE

CSPNTB

000010

410012:
000044

NFMT11 ,#MPT ,R1,#MRLCS,BCSR,#MVEC
,BVEC

ERR12
JSR

L10011:

006330
000104
000006

ERR10

PRINTB
MoV
MOV
MOV
MOV
MOV
MOV
MOV

002460

LINE1:

ENDMSG
TRAP

CEMSG

MOV

FUNC (R4) ,FASPNT

JGET

FUNCTION

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

012737

MACY11

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

004777
000100
00460
002460

002456
002460

MOV

000010

002456

1%:

2%:

012746
012746
012746
010600
104414

000107
004030
000104
002525
002412
002414
002416
002516
007337
000011

BI(
ASR
DEC
BEQ

11:31

#MTCR,FASCII
#INTEN,FASPNT
FASPNT
FASPNT

PRINTB

#igg}O.#TIME.HOUR.MINUTE.SECOND,#MRLCS,DCS(R4) #DRNM, <B,DRSEL+1(R4)>

MoV
MoV
MoV
MOV
MOV
MOV
MOV
MOV

#DRNM, ~(SP)

CLR
BISB

DCS(R4) ,-(SP)

SECOND,-(SP)

MINUTE ,-(SP)
HOUR,=(SP)
HTIME -(SP)
#FMT10,-(SP)
#11,-(SP)

SP,RO

000120
010164
000002

TDR(R4) ,~(SP)
HFMTDT,~(SP)
#2,-(SP)

062706

000006

013746
012746
012746
012746
010600

002456
002547
006705
000003

062706
000207

000010

HFMTDT ,TDR(R4)

SP,RO
C$PNTB
#6,SP

RFMT1A ,#MFUNC,FASCI ]
FASCII,~(SP)
#MFUNC
, - (SP)
#FMT1A,-(SP)
MoV

LINEZ:

#3,-(SP)
SP,RO
C$PNTB

ADD
RTS

#10,SP
PC

PRINTB

#ig;}O,#TIME,HOUR,MINUTE,SECOND,#MRLCS,DCS(R4),#DRNM,(B.DRSEL*1(R4)>

CLR
B1S8

DRSEL+1(R4)
, (SP)

#DRNM,
- (SP)

DCS(R4) ,-(SP)

012746
013746
013746
013746
012746
012746
012746
010600
062706

#MRLCS,~(SP)

SECOND,=(SP)

MINUTE ,-(SP)
HOUR,
- (SP)
#TIME ,~(SP)

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

000024

;LOOP

#MRLCS,-(SP)

016446
012746
012746
010600

104414

JFOUND? .
sNO NEXT ONE

DRSEL+1(R4)
, (SP)

CSPNTB
#24 ,SP

005046
156416
012746
016446

JFIRST FUNCTION ASCIZ
;CLEAR INTERRUPT ENABLE
JALIGN = NOW = 1 T0 7
;DOWN COUNT FUNCTION

2%
#8. ,FASCII
1%

000024

104414

Sca 0050

ADD

062706

104414

PAGE 1-15

ADD
PRINTB

SP.RO
CSPNTB
#24 . SP

H#FMIDT,TDR(R4&)

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC

(8)
(7)
(6)

07-DEC-79 09:46
016446
012746

012746
010600

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

000120
010164
000002

MoV
MOV
MOV
MOV
TRAP
ADD
RTS

000006
LINE3:

006014

#CRLDA,=(SP)

aBBA(R4) ,-(SP)

#CRLBA,~(SP)

BCSADR(R4) ,-(SP)
#CRLCS,-(SP)

H#FMT2 ,~(SP)
#11,-(SP)

CSPNTB
#24,SP
HFMT3 #CRLCS,E.CS,#CRLBA,E.BA,#CRLDA,E.DA
#CRLMP E .MP
E.MP,-(SP)

000024
002426
002611
002424
002577
002422
002565
002420
002535
006757
000011

#CRLMP,
-~ (SP)

E.DA,=(SP)

#CRLDA,-(SP)

E.BA,=(SP)

#CRLBA,~(SP)

E.CS,=(SP)

#CRLCS,=(SP)

HFMT3,-(SP)
#11,-(SP)

SP,RO

C$PNTB

002346

177700

002302
000100
002302
177776

E.DA,TEMPO
R5,TELCYL

;GET ADDRESS TO PRINT
SPRINT IT

TEMPO, CYL
zli?,CYL

sGET THE ADDRESS
sSAVE ONLY CYLINDER BITS

002300
002300

TELCYL:

002300
002300
002346

#2,-(SP)

#CRLMP
=~ (SP)

002535
006714
000011

002346
000177
002300

HEMTDT ,-(SP)

BDA(R4) ,~(SP)

000046

013737
042737
000337

TDR(R4) ,-(SP)

SEQ 0051

BMP(R4) ,~(SP)

002577
000110
002565

000024
002424
006510

M4
PAGE 1-16

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

000042
002611
000040

013746
012746
013746
012746
013746
012746

11:31

002304
002304

1%:

002424
002302

2%:

MOV
BIC
SWAB
cLC
ROL
BC(C

INC

MOV
BIC
CLR
81T
BEQ

INC
8lC

PRINTB

JEXIT

cYL

cyL

TEMPO, SEC

;GET SECTOR #

SUR
glOO.E.DA

YINIT TO HEAD O
*HEAD 17

#177700, SEC

SUR

“SAVE ONLY THE SECTOR BITS

SYUP

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

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
(11)
(10)
(9)
(8)
(7)
(6)

(3)
(6)
(4)

g;g

006606
006612
006616
006622
006626
006632

006636

006640
006642

006646

013746
013746
013746
012746
012746
012746

010600
104414
062706

000205

MACY11

002304
002302
002300
003061
007020
000005

MOV
MoV
MOV
MOV
MOV
MOV

MOV

TRAP
ADD

000014

RTS

579

006650
006672
006705
006714
006735
006757
007020
007104
007137
007153
007201
007215
007225
007263
007337
007373
007444
007452
007472
007502

052045
052045
045
040445
045
045
047045
047045
045
045
045
045
045
045
045
045
047445
05c045
052045
052045

055045
047445
022524
042502
022526
040501
052045
052045
022524
022526
022526
033104
0225264
033104
022524
022524
0226466
047445
047445
047445

022462
022466
022524
047506
033117
020124
040445
047445
033117
033117
020101
052045
031132
040445
031132
033117
000116
022462
022466
022466

606
607
608
609

007544
007553
007562
007565

047045
045
047045
045

052045
033117
000
053501

047045
040445

611
612
613
614
615
616
617
618
619
620
621
622
623
624

007705
007747
007754
010013
010076
010116
01015
010164
010215
010304
010341
010450
010505
010600

045
045
047045
045
040445
040445
045
040445
045
040445
.
065
040445
045
040445

022516
022516
040445
022516
025052
025052
022526
042040
052101
047527
022516
040510
042101
046104

610

11:31

4
PAGE 1-17

SEQ 0052

SEC,=(SP)
SUR,=(SP)
CYL,=(SP)
#DRVER,-(SP)
NFMT3A,-(SP)
#5,~(SP)
SP,RO
CSPNTB
#14,SP

;FORMAT STATEMENTS

580
584
585
586
587
588
589
590
391
592
593
594
595
596
597
598
599
600
601
602
603
604
605

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

007517

007627

045

022526

062501

032132

051117
051122
047101
000124
043130
022516
020052
020052

032517
044522
052117
042122
042501
042122
045503
035124

FMT1:
FMT17:
FMTI1A:
FMT2:
FMT2A:
FMT3:
FMT3A:FMT4:
FMTS5:
FMT6:
FMY7:
FMT8:
FMTI9:
FMT9A:
FMT10:
FMI10A:
FMT108:
FMT11:
FMT12:
FMT13:

.ASCIZ
_ASCIZ
_ASCIZ
ASCII
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

/XTX22%A:%22%A:%22/
/%TX06XT%01/
/XTXTIN/
/XABEFORE ERRYTX06/
/XTX06XTX06%TX06IN/
/XAAT ERR
XTX06XTX06XTX06XTX06/
/INXTXA ADDR
= CYL: ¥Z3XA. SUR: XO1%A SECT: XZ2%A.IN/
/INXTX06XTYO6INXTIO06XTY06IN/
/XTXO6XTXTIN/
/XTX06XTX06XA OR YO6IN/
/XTXA - XTIN/
/XDO6XTIN/
/XTXZ2XA:X22%A:XZ2XTX06XTX01IN/
/XDG6XA. WORDS BAD OUT OF ID6XA. WORDS READIN/
/XTXZ2XA:XZ2XA:XZ2XTX06%T%01/
/XTX06XTXO6XINYTX06XTX06%A AT BUS ADDRESS /
/X06IN/
/%TX02%T%06XT7203/
/XTXO6XIN/
/XTX06XTXO6IN/

FMT14:
FMT14A:
FMT14C:
FMT148:

_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

/INXTIN/
/X06%A /
/IN/
?XAWORD ID3XA. S/B X06XA WAS X06IN?

FMT13D:

FMT15:

.ASCIZ

_ASCIZ

FRMT16: .ASCIZ
FMT18:
_ASCIZ
FMTXS:
.ASCIZ
FMIST:
.ASCIZ
FMTSIA: .ASCIZ
FMTSIB: .ASCIZ
FMTS2:
.ASCIZ
FMTDT:
.ASCIZ
FMTS2A: .ASCIZ
FMTS2B: .ASCIZ
FMTS3:
.ASCIZ
FMTS3A: .ASCIZ
FMTS4:
.ASCIZ
FMTSS5:
_ASCIZ

/XTXZ4XA NOW IS XZ4IN/

/XAERROR(S) SET:XTINYARECOVERY BEING ATTEMPTED/

/INZANOT TESTING (S=X06XA DR=X01IN/
/INXT/
/INXAXFER SIZE = XZ6XA. WORDSIN/
/ININXST10XAx«* RLOT-RLO2 PERFORMANCE REPORT #*xXNXN/
/XAxwx RUNNINGIN/
/XAxxx DROPPED
XZ2%A:XZ2IN/
/XTX0SX0SIN/
/%A DRIVE TYPE = RLOYO1IN/
/XATOTAL SEEKS:
XD6XZ3INXAWORDS READ:
ADOXZLXTZ4LAN/
/YAWORDS WRITTEN: ¥D6XZ4X24IN/
/INXAERRORSAINXADRV-ER:XD6XA
SEEK: XD6XA
TRACK: ¥D6XA
DATA:
/XAHARD:
XD6XA
SOFT: XD6IN/
/XADCK:
XD6XA
HCRC: XID6XA
NXM:
XD6XA
HNF:
XDGIN/
/XADLT:
XD6XA
OPI:
XDOININ/

XDO6IN/

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

010640

11:31

SEQ 0053

PAGE 1-18

.EVEN

010640

ENDMOD
.SBTTL

DEFAULT HARDWARE P-~TABLE PARAMETERS

BGNMOD

HPTCODE

BGNHW

L10013-L$HW/2

174400
000160
000240

174400
160

240
]

000001

;DRIVE CSR

sDRIVE VECTOR

;DRIVE PRIORITY
;DRIVE TYPE
;DRIVE NUMBER
;CONTROLLER TYPE

ENDHW

L10013:
ENDMOD
.S8TTL

DEFAULT SOF TWARE P~TABLE PARAMETERS

BGNMOD

SPTCODE

BGNSW

L10014-L8SW/2
1

3
3
<5000.

10000.

240,
16.
3

T.mMX8
MXH:

~
o
(=
o

—

[]

XCHFLG: .

(=T
-]
o

CMRD:
DELMT:

-nowosu»--ooo ~ O—=—
onN

LIMIT:
ERLMT:
SELMT:
DALMT:
SKLMT:
TYINT:

[]

630
631
632
633
634
635
636
637

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

sRETRY LIMIT
sERROR LIMIT
:SEEK ERROR LIMIT
;DATA XFER LIMIT (+(10+3)) (BITS)
sSEEK LIMIT
sTIME 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
cMAXIMUM START SECTOR
sMINIMUM START SECTOR
;DATA DUMP ON DATA CHECK ERROR
;DROP ON LIMIT REACHED
sMINIMUM BUFFER TRANSFER SIZE
;SOFT ERROR LIMIT
;DROP DRIVE ON PERFORMANCE REACHED
cDRIVE ERROR LIMIT
sREAD ONLY FLAG
sRANDOM SELECT OF PATTERNS

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

010740
010742
010744
010746
010750
010752
010754

000004
000001
000200
000000
000001
000012
000001

MACY11 30A(1052)

17-DEC-79

_WORD
.WORD

T.CLT:
T.STIP:
T.WCK:
T.DCD:
T.ANS:

.WORD
,WORD
.WORD
.WORD
.WORD

BGNMOD

014534

RN
= — =
R WNROR)
NONNONSO

b =h

d
b cnd
b

and

012746
012746
010600
104416
062706

b end

.WORD
WORD

1
1
T

STATISTICAL CODE

BGNMOD RPTCODE
BGNRPT

ENDMOD

010762

—d ed

128.
O
1
10.
1

JONLY ONE PATTERN 4 = WORST CASE
sSEEK RETRY LIMIT
sNUMBER OF ERRORS ON DCK DUMP
JRESTRICT BUFFER SIZE
;DO WRITE CHECK

DSPCODE

DISPATCH

000001

.SBTTL

—d e

4
1

ENDMOD

010762

elelelolelelelels]

SEQ 0054

L10014

010756

011036

5
PAGE 1-19

END SW

010756

010756
010756
010760

DEFAULT SOF TWARE P-TABLE PARAMETERS
T.PAT:
T.SLT:

010756
010756

11:31

000004

PRINTS
MOV
MOV
MOV
TRAP
ADD

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

030432
000104

MOV
MOV
TST

R4 ,-(SP)
#DRBUF
, R4
DCS(R&)

JSR

PC ,REPORT

010013
000001

014024
000126
031712

1%:

2%:

ENDRPT

L10015:

BEQ
ADD

CMP
BNE
MOV
TRAP

ENDMOD

#PRPOS
+2 R4
Ré4 , #ENDBUF
18
(SP)+ R4
CSRPT

;PRINT STATISTICAL HEADER

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

sNEXT DRIVE

;AT THE END?

;NO, TRY NEXT
JRESTORE R4

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

726

727
728

729
730
73
732
733
734
735
736
737
738
739
(3)
(3)
740
7641
(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
(2)
759

011040

011040
011042

011044
011046

MACY11

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

000000
177777
000010

.SBTTL

INITIALIZATION CODE

BGNMOD

INITCODE

011046

012700
104441

000340

104433

011056
011062
011066
011072

005037
005037
005037
005037

000050
002476
002452
002454

011076
011102
011102

005037

002502

012700
104462
010037

000120

011174
011200
011202

SEQ 0055

PAGE 1-20

;P-TABLE OFFSET OF CSR
INOT A MASS-BUS DRIVE
:P-TABLE OFFSET OF DRIVE

;START OF

INITIALIZE CODE

BGNINIT

011054
011054

011106
011110
011114
011114
011116
011124
011130
011132
011132
011136
011140
011144
011144
011146
011150
011150
011152
011152
011154
011160
011160
011164
011170

_SBTTL
LOAD PROTECTION TABLE
BGNPROT
JWORD
0
JWORD
-1
y
.WORD
10
ENDPROT

011046

011046
011046
011052

11:31

103006

000001
002502

012700
104462
010037

000114
002316

103401
000467

103057

BRESET
TRAP

CSRESET

CLR
CLR
CLR
CLR

OPFLG
INCALL
STFLG
CNTFLG

($SPRI

002514

012746
012746
012746
012744
104437
062706

000340
017110
000100
000003

000010

;FOR LSI-11

;CHECK FOR PRESENCE OF A SYSTEM CLOCK
.

002314

CLR
SYSCLK
CLOCK
P, CLKADR
MOV
#P_RO
TRAP
(SCLCK
MOV
RO, CLKADR
BNCOMPLETE
LCLKCH
BCC
LCLKCH

MOV

INC
BR
LCLKCH: CLOCK
MOV
TRAP

#1,CLKTYP

SYSCLK
PWRCH
L,CLKADR
#°L RO

CPU'S

BR
NILCLK
READBUS
TRAP
CS$RDBU

CLR

SETVEC

MOV
MOV
MOV
MOV
TRAP
ADD

;CLEAR CONT

:CLEAR SYSTEM CLOCK FLAG
:P=CLOCK?

,
;BRANCH IF NG P-CLOCK

; IDENTIFY P-CLOCK TYPE

:INDICATE PRESENCE OF A SYSTEM CLOCK
:BRANCH TO CHECK POWER
:L-CLOCK?

($CLCK

MOV
RO, CLKADR
gggnPLErgs
1

g?EGMPLEEE

005037

:PRIORITY TO 7 TO INHIBIT INTERRUPTS

;CLEAR OPERATION FLAGS

1$:

104407

#340
#340,RO

TRAP

002316

012737
005237
000522

SETPRI
MOV

;BRANCH IF L-CLOCK
;ELSE, INDICATE CLOCK
:CHECK TYPE OF BUS

CLKFLD

;BRANCH IF NOT Q-BUS
:CLEAR CLOCK FIELD FOR STORING ‘TICKS'’

#100,#CLKTIK,#340
#340,~(SP)
#CLKTIK,=(SP)
#100,-(SP)
#3,-(SP)
($SVEC
#10,SP

IS NOT PRESENT

;SET UP L-CLOCK INTERRUPT VECTOR TO CHECK

NNV NN NN NN NN NIND
~ NOVNWNIES
S
(NN—
=

d
)
d D
b e
D
d
d d e mad e
d i e el rd

763
(3)

—
—t

(3)

(elelolelelololololelelelele]

761
762
(3)

D d d md
D e —md

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

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

000240

TRAP

£§SPRI

012727
000000
013727
000000
005367
001375
005367
001367

000372

MOV

g#?SO..(PC)*

002116

MOV

6SDLY.(PC)+

177772

DEC
BNE

-6(PC)
.=4

106441

177756

012700

000340

012700

000100

BNE

SETPRI
MOV

002314

2%:
NILCLK:

004530
007544
000002

012700

104447

103121
005237
012704
012702
130237
001471
016400
052700
010074

012701
032774
001037

004566
007544
000002

MOV
INC
BR

#240
#240,R0

CLOCK IS ''TICKING''

;SET PRIORITY TO 5 TO ALLOW CLOCK INTERRUPTS

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

sPAUSE TO ALLOW CLOCK INTERRUPTS

JRESTORE PRIORITY TO 7 TO INHIBIT INTERRUPTS

JL=CLOCK '‘TICKS'"TM

NILCLK

#2,CLKTYP
SYSCLK
PWRCH

PRINTF AFMT14 ,ANOCLK
MOV
ANOCLK,=(SP)

#6,SP
#FMT14 ,#NOREPT
#NOREPT
- (SP)

000034

TRAP
ADD

SP,RO
CSPNTF
#6,SP

READEF #EF .PWR
MOV
#EF .PWR,RO
TRAP
CSREFG

BNCOMPLETE
8CC
33

002446
030432
000001
002252

INC
MOV
11%:

MOV
BITB

MOV

DRSEL (R&4) ,RO

BIS

000104

12%:

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

BEQ

MOV
MOV
BIT

BNE
WAITMS

JREPORT ''SYSTEM CLOCK IS NOT AVAILABLE''

;PRINT 'PERFORMANCE REPORTS WILL NOT BE PRINTED''

HFMT14 ,-(SP)
#2,~(SP)

;POWER FAIL SEQUENCE

PWRCH:

JBRANCH IF NO '‘TICKS''

cIDENTIFY L-CLOCK TYPE
;INDICATE PRESENCE OF A SYSTEM CLOCK
;BRANCH TO CHECK POWER

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

ADD
PRINTF
MOV

MOV
MOV
MOV

000006

000106
000200
000104
000170
000001

BEQ

MOV
MOV
MOV
TRAP

000006
012746
012746
012746
010600
104417
062706

SEQ 0056

;CLEAR L~CLOCK INTERRUPT VECTOR

002514
000002
002502

012746

DEC

PAGE 1-21
;/IF

012700

104436

011376
011376

SETPRI
MOV

104441

011372

11:31

;POWER FAILURE?

;BRANCH [F NO POWER FAILURE
JINDICATE POWER FAIL
JINITIALIZE POINTER TO DRIVE PARAMETER BUFFERS

13$

#200,R0

RO,3DCS (R4)
#120. ,R1

JINITIALIZE WAIT COUNT

158
#10.

JIMPLEMENT 1 SECOND TIME DELAY

#;,aocsmz.)

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
788
789
790
791

011476
011502
011506
011510
011512
011516
011520
011524
011534
011536
011540
011546

012727
000000
013727
000000
005367
001375
005367
001367
005301
001344
012737
004537

796
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809

011556
011562
011566
011572
011576
011602
011606
011612
011616
011620
011622
011626
011630
011640
011644

004537
004537
005064
005064
005064
005064
005064
062704
106302
103300
005737
001406

024446
025670
000056
000036
000076
000052
000114
000126

000137

012674

(3)
(3)
811
é?é

011650
011654
011656
011656

012700
104447

000036

813

011660

005237

002454

816

011670

004537

027174

818
819
820
821
ggg

011702
011710
011714
011716
011722

012737
012700
005020
020027
001374

123456
002320

012704
012702
013703
010337
005001
005703
001524

030432
027364
002012
002444

;3;

810

g;g

817

824
825
826
827
828
829
830
831
(3)

011552

011650

011664

0116764

011724
011730
011734
011740
011744
011746
011750
011752
011752

000137

MACY11

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

000372
002116

177772

177756

004101
023520

002246

011612

13$:

012737

33:

010100

002454

JSR
JSR
CLR
CLR
CLR
CLR
CLR
ADD
ASLB

RS,ISDRST
RS, HDHOME
PRFLGS (R4)
RETRY (R4)
DOWCK (R4)
RTYPE (R4)
RSEEK(R4)
#PRPOS+2
R4
A2
118
SYSCLK
4

READEF

002260
002262

1%:

SEQ 0057

'DR DID REC'R FROM PWR UP''

#EF.CONTINUE

;SYSTEM CLOCK AVAILASLE?
JACTIVATE CLOCK WITH 1-SECOND INCREMENTS
JREQUEST ELAPSED SUPERVISOR TIME

;CONTINUE FROM (CONSOLE?
;NO, CONTINUE W/ INIT CODE

END

CNTFLG

cYES SET CONT FLAG, GO TO END OF

JSR

RS,CLEAR

;CLEAR ALL DRIVE BUFFERS

#123456.LONUM
#CNTLR1.RO
(RO)+
RO,A#STFLG+2
CLRDAT

;o
"
'
YINITIALIZE POINTER TO GLOBAL DATA AREA
.MASS CLEAR OF GLOBAL DATA AREA
;AT END OF GLOBAL DATA AREA?
:

#DRBUF ,R4
#8SECO.R2
LSUNIT.R3
R3,WUT
R1
R3
END
R1,R0O

;SET UP DRIVE INFORMATION BUFFER POINTER
:SET UP BAD SECTOR POINTER
SGET NUMBER OF UNITS
SSAVE LSUNIT
JINITIALIZE P-TABLE FOR LOGICAL UNIT
SANY
P-TABLES LEFT?
*NO,GO TO END
JREQUEST A P-TABLE FOR DRIVE

MOV

MOV
2%:
MOV
CLRDAT: CLR
cMP
BNE

1%:

;MSG.

13§

MOV
#EF . CONTINUE
,RO
TRAP
(SREFG
BNCOMPLETE
1%
BCC
K3

INC

012222

176543

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

5
PAGE 1-22

8CC
TST
BEQ
CLKON
REQTIM RO
48:
JMP
INIEND
-*'CONTINUE'* COMMAND SEQUENCE

002502

103004
000137

MOV
WORD
MOV
.WORD
DEC
BNE
DEC
BNE
DEC
BNE
MOV
JSR

JMP

15%:-

11:31

MOV
MOV
MOV
MOV
CLR
ST
BEQ
GPHARD

MOV

#176563, HINUM

R1.R0

INIT

:PRIME RANDOM GENERATOR

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

011754
011756
011756

011760
011764
011770
011774

012000
012004
012010

012012
012020

INITIALIZATION CODE
TRAP

sMOVE P-TABLE

012037
012037
012037
012037
011037
005737
001011

002330
002332
002334
002256
002336
002320

013737
013737
013737
023737
001012
023737
001050
012737
004537

002334
002330
002332
002330

002376
002320
002372
002320

002332

002372

002436

002350

005737
001015
023737
001433
013737
013737
013737
023737
001016
02373%7
001012
023737
001406
012737
004537

002322

104455
000240
003770
005646
005064
005201
005303
062702
000652

17-DEC-79

11:31

C$GPHRD

BNCOMPLETE
BCC
12$

103112

000406

013474

MOV
MOV
MoV
MOV
MOV
TST

2%:

5%:

TST

BNE
MW

CNTLR?Z

LWORD

160

002374

002372

002440
013474

002350

MOV
ERRDF
TRAP

.WORD

000042

BCSR,CNTLR1
5%
BVEC,VECT]
108
#BUF 1, TEMP]
RS, FILINF
118

JSR
BR

002332

MOV
MOV
MOV
(MP
BNE
cMP
BNE
WP

12%
11$

CNTLR1

63
VECT1,BCSR
108
BCSR,CNTLRZ2
BVEC,VECT?
BPRIOR,PRIOR?2
BCSR,CNTLRZ
108
BVEC,VECT?
108
VECT2,VECT1
108
#BUF2, TEMP1
RS, FILINF
118

002322
002374
002400
002322

000104

TO LOCAL

(RO)+,BCSR
(RO)+,BVEC
(RQ) +,BPRIOR
(RO)+,T.DRIVE
(RO) ,BDRSEL

BPRIOR,PRIOR1
BCSR, CNTLR1
BVEC,VECT]

cMP
BNE
Mp
BNE
MOV
JSR
BR

.WORD

160. ,ILLEG,ERR1O
CSERDF

STORAGE

JGET
;GET
;GET
sGET
;GET

CSR
VECTOR
PRIORITY
DRIVE TYPE
DRIVE NUMBER

;DO WE HAVE

CSR 1

;YES,THEN SEE IF

YET?

IT THIS DRIVE

s /ASSOCIATED WITH C.4TLR1

;NO,GO CHECK AGAINST #2
;1S VECTOR PROPER?
;NO, REPORT ERROR
;FIRST CONTROLLER/FIRST BUFFER
JFILL BUFFER
;GO GET NEXT P-TABLE

JHAVE WE GOT CSR #2 YET?
JYES,

CHECK THIS ONE AGAINST

JMAKE

THIS ONE CSR 2

MOV

#177770,SYSMSK

BGT
8IS

23
#4, SYSMSK

R3
#34. .R2
1%

177770

002444

002256
000004

000004

002256

(MP

UUT , #4

;SETUP SECOND VECTOR

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

;DOES IT HAVE PROPER VECTOR
:NO, GO REPORT ERROR

;IS VECTOR OF FIRST EQUAL TO

JVECTOR OF SECOND, YES REPORT ERROR
;OTHER CNTLR/OTHER BUFFER
;LOAD BUFFER
SNEXT
;BAD P-TABLE

;POINT

TO NEXT

;DOWN COUNT
JNEXT BAD SECTOR FILE
;DO WHILE

END:

012737
023727
003012
052737

;IS THIS VECTOR SAME AS CNTLR1
sIF SO, DON'T ALLOW IT

ILLEG

DCS(R&)
R1

;NO_MAKE THIS ONE CSR 1
JMAKE THIS VECTOR VECT1
;1S THIS CSR CNTLR1?

ERR10

(LR
INC

DEC
ADD
BR

SEQ 0058

12%

MOV
MOV
MOV

002330
002332
002334
002330

10%:

5
PAGE 1-23

002330

6%:

CONTENTS

BNE

002372

012222

012222
012230
012236
012240

30A(1052)

104442

000450

012220

MACY11

JSETUP FOR EIGHT DRIVES

;MORE

THAN FOUR

JYES, THEN MASK [S OkAY
JSETUP FOR FOUR DRIVES

MACY11

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

002444

000002

002256

MP
BGT
BIS

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

882
883
884
885
886
887
(3)
(3)

012246
012254
012256
012264
012264
012270
012272
012272
012274
012300
012304

012310
012310
012314
012316
012322

012324
012330
012334
012340
012340
012344
012350
012354
012356
012360

023727
003003
052737

012700
104447

103006

00245°
002274
002310

005737
001047
005737
001420
005037
005237
005037

002454

012746
012746
012746
010600
104417
062706

PAGE 1-24

wT 42
2%
#2,SYSMSK

:''START'' COMMAND SEQUENCE
2%:
READEF
#EF .START
MOV
WEF .START
,RO

000040

005237
005037
005037

11:31

TRAP

CSREFG

BNCOMPLETE
RESTART
RESTART
BCC
INC
STFLG
WRINIT
CLR
CLR
KILLDC
RESTART:

TST

BNE

002274

TST

BEQ
CLR
INC

002274

002310
010674

CLR
PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

004416
007747
000002
000006

SEQ 0059

;MORE THAN TWO

JYES, IT'S OKAY
SET FOR ONE OR TwO
;START COMMAND
sJNO, CHK RESTART

sSET START INDICATOR
JCLEAR THE WRITE INIT FLAG ON START
;CLEAR DATA (OMP FLAG ON START ONLY

.
CNTFLG

s CONTINUING

WRINIT

;IN PROCESS OF

11$%
WRINIT
KILLDC

CMRD
#FMT18,#NORDD(
#NORDDC ,~(SP)
HFMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

JYES GO TO 3%
.NO

INITTING THE PACK?

JYES = CLEAR THE FLAG
;INHIBIT DATA COMPARES'
JAND SET DAT COMPARE TO O WORDS
;TELL OPR PACK NOT INITTED YET

;LET'S CREATE INTERNAL BITMAP
012364
012370
012374
012400
012404
012406
012412
012414
012420
012424

012701
105037

012426

113737

000001
002253
030432
000104

11%:
1%:

002253

2%:

000126
031712

002253

012434

MOV

CLRB
MOV
TST
BEQ
B1S8
ASL
ADD

(MP
BNE

002252

#1,R1
DRPRS
#DRBUF
R4

DCS(R4)

R1.DRPRS
R1
#PRPOS
+2 R4
ngDBUF.Ré

JBIT MASK
;CLEAR OUT DRIVES PRESENT
;START OF DRIVE BUFFERS
;ANY (CSR?
sNO, NO DRIVE THEN
;INDICATE DRIVE IN BITMAP

;NEXT POSITION

;NEXT DR]IVE BUFFER
. DONE

;NO

MOvB

DRPRS ,DRUT

;SET UP DRIVES UNDER TEST

SETVEC
MOV

PRIOR1,=(SP)

VECT1,#INTR1,PRIOR1

;SET CONTROLLER 1°'S VE(TOR

3%:

012434
012434
012440
012444
012450
012454
012456

013746
012746
013746
012746
104437
062706

000010

VECT1,-(SP)
#3,~(SP)
C$SVEC
#10,SP

012462

005737

002322

CNTLR?2

002376
017116
002372
000003

#INTR1,-(SP)

JRUNNING

TWO CONTROLLERS?

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
923
924
925
(7)
(6)
(5)
(4)
(3)

012466

012470
012470

012474
012500
012504
012510
012512

013746
012746
013746
012746
104437
062706

002400
017126
002374
000003

002454

012524
012530

005737

002502

001461

104431
010002

F INDBF
:

022712
003413

002400

012746
012746
012746
010600

004711
007544
000002

062706

000006

000000
010237
005737
001410
042712
013737

012737

012664

012674
012674
012674
012674
012676

1-25

SEQ 0060

SETVEC
MoV

PRIORZ,~(SP)

VECT2 ,#INTR2,PRIOR?

;YES SEJ CONTROLLER 2'S VECTOR

#INTR2
.- (SP)

VECT2.<(SP)

TRAP
ADD

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

TST
BEQ

F INDBF

CNTFLG

;CONTINUE?

BEQ

SYSCLK
INIEND

;DO WE HAVE SYSTEM (CLOCK?
;NO

CLKON
REQTIM
BR

RO
INIEND

<REQUEST ELAPSED SUPERVISOR TIME
;GO TO END

:NO,

GO PAST RESTART OF

(CLOCK

JACTIVATE SYSTEM CLOCK

sREQUEST MEMORY BUFFER SPACE TO PERFORM READ/WRITE OPERATIONS

104417

012654
012656

PAGE

.NO

TST

000452

MOV

A
¥

11:31

8EQ

MOV
MoV

000010

005737
001412

012550
012550
012552
012554
012560
012562
012562
012566

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

001413

012516
012522

012532
012542
012546

MACY11

cMP
BLE
PRINTF
MOV

MOV

MOV
TRAP
ADD

002436
002322

000001
002436
002440

1%:

002440

002442
002442

012000

002442

2%:

3s:
INIEND:
104411

MEMORY
TRAP
MOV

L10017:
ENDMOD

HALT
MoV
TST
BEQ
BIC
MOV
ADD
ASR
MOV
cMP
BLE
MOV

RZ
CSMEM
RO,R2
#1280.,(R2)

1%
#FMT14 ,#INSMEM
#INSMEM,
- (SP)
H#FMT14,-(SP)

#2,-(SP)
SP,R0
CSPNTF
#6,SP

;D0 WE HAVE A MINIMUM OF 1280 WORDS?
JYES = BRANCH
;NO - PRINT MSG. ''SYSTEM FATAL ERROR -

;/INSUFFICIENT MEMORY BUFFER SPACE"’

R2,BUF1

;GET ADDRESS OF

JNO = ASSIGN ALL BUFFER TO SINGLE CONTROLLER

CNTLRZ2

#1,(R2)

FREE MEMORY

;TWO CONTROLLERS?
;MAKE LENGTH OF

FREE MEMORY EVEN

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

;SET UP FOR BUFFER 2
;ADD HALF OF BUFFER
:DIVIDE BUFFER SPACE BY 2

MAXWC,#5120.
3%
#5120. ,MAXWC

;IS WORD COUNT LESS THAN OR EQUAL TO 5120?
;BRANCH IF TRUE
JNO - INITIALIZE VALUE TO 5120 WORDS

(R2) ,MAXW(C

CLKON

SINITIALIZE MAXIMUM WORD COUNT

JACTIVATE SYSTEM CLOCK TO INITIATE GENERATION

;/0F

ENDINIT
TRAP

JREQUEST MEMORY BUFFER SPACE

CSINIT

TIMING

INTERVALS

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC

07-DEC-79 09:46

MACY11

30A(1052)
17-DEC=79
INITIALIZATION CODE
.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

: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

JAFTER THE READY STATUS OF ALL DRIVES HAVE BEEN CHECKED.

972
973

012676
012676

BGNAUTO

010346
010446
013703
012704
005037

002012
030432
002450

012746
012746
013746
012746

000340
014016
002466
000003

062706

000010

005774
005737
001425

000104
002450

974
975
976
977
978
(7)
(6)
(5)
(4)
(3)
(2)

012700
012702
012706
012712
012716
012716
012722
012726
012732
012736
012740

980
981
982
983
(9)
(9)
(8)
(7)
(6)
(3)
(4)
(4)

012744
012750
012754
012756
012756
012760
012764
012770
012774
013000
013002
013004

005046
156416
016446
012746
012746
010600
104417
062706

985

013010

012737

004673

987
988
989
990
991
992
993
994
(9)
(9)
(8)

013016
013022
013026
013030
013036
013044
013052
013054
013054
013056
013062

004537
005064
000436
056474
052774
032774
001024

023520
000104

013066
013072

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

013076
013100
013102

996

013106

104437

CLR
SETVEC

000010

000106
000200
000001

000107
000104
007705
000003

062706

000010

012737

004636

002246

000104
000104
000104

2%:

LSUNIT,R3

;INITIALIZE NUMBER OF DRIVES UNDER TEST

#DRBUF _R&4
TRPFLG

“INITIALIZE START OF
"CLEAR TRAP FLAG

Egzgsc(g;§PHA~#3460

DRIVE BUFFERS

:SET UP TIME-OUT VECTOR TO DETECT

TST

aDCS(R4)

sACCESS CONTROLLER

;BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR

CLR
B1SB
MOV
MOV

#TRPHAN
- (SP)

TRPFLG

s /NON-EXISTENT CONTROLLER

;DID

TRAP OCCUR?

#igg;16,DCS(R4),QB,DRSEL+1(R4)> ;PRINT CONTROL STATUS AND DRIVE
DRSEL+1(R&),
(SP)
DCS(R&) ,~(SP)

MOV
MOV
TRAP
ADD

RFRMT16,~(SP)
#3,-(SP)
SP,RO
CSPNTF
#10,SP

MoV

#NOCTLR, WHY

JSR
CLR
B8R

RS ,DRDRV
;DO DROP UNIT ON DRIVE FROM TEST CYCLE
DCS(R4)
:TAKE DRIVE OUT OF BUFFER
38
;BRANCH TO GET NEXT DRIVE
DRSEL (R4) ,aDCS(R4)
:GET SELECTED DRIVE NUMBER

8IS
8IS
8IT
BNE

#200,aDCS(R4)
#1,aDCS(R4)

;/NUMBER INFORMATION
;PROVIDE REASON FOR DROPPING DRIVE -

;/'NO CONTROLLER''

;SET CONTROLLER READY
;1S DRIVE READY?

:BRANCH TO CHECK NEXT DRIVE IF READY

PRINTF

#igg}16,DCS(R4) ,<B,DRSEL+1(R4)> ;PRINT CONTROL

MOV

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

CLR
B8ISB

MOV
MOV
MOV

002246

:SAVE REGISTERS

ERRVE(C,=(SP)
#3,-(SP)
CSSVEC
#10,SP

TST
BEQ

000107
0001C4
007705
000003

22"§§§§

MOV
MOV
MOV
MOV
TRAP
ADD

PRINTF

005046
156416
016446
012746
012746
010600

104417

1$:

MOV
MOV
MOV
MoV

STATUS AND DRIVE

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

SP,RO
CSPNTF

TRAP
ADD

#10,SP

MOV

#NOTRDY ,WHY

; /NUMBER [NFORMATION
;PROVIDE REASON FOR DROPPING DRIVE -

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

013114
013120
013124
013124
013130
013132
013136
013140
013142
013144
013146
013146

013146

004537 023520
005064 000104
013700

104436
062704
005303
001264
012604
012603
104461

002466

MACY11

30A(1052)

17-DEC=-79

AUTO DROP SECTION

3%:

000126

ENDAUTO

L100¢0:

JSR
CLR
CLRVEC

MoV
TRAP
ADD

11:31

RS ,DRDRV
DCS(R4)
ERRVEC

ERRVEC ,RO
C$CVEC

#PRPOS+2
R4

DEC
BNE
MOV
0}

R3
1%
+ R4
(SP)
(SP)+ ,R3

TRAP

C$AUTO

PAGE 127

;/'DID NOT RESPOND WITH 'READY''

;DO DROP UNIT ON DRIVE FRCM TEST CYCLE
;TAKE DRIVE OUT OF BUFFER
JRELEASE THE ERROR VECTOR
;UPDATE POINTER TO ACCESS DRIVE BUFFER

s/FOR NEXT DRIVE

;DECREMENT DRIVE COUNT
sBRANCH TO GET NEXT DRIVE IF MORE
JRESTORE REGISTERS

SEQ 0062

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

MACY11

013150

30A(1052)

AUTO DROP SECTION

BGNMOD

013150
013150
013150
013154

17-DEC-79

012746
012746
013746

SETVEC

012746
062706

000010

012700

000000

MOV

013204
013212
013214
013222
013222
013226

032777
001774
042777

000200

167106

000100

167076

013700
104436

013230
013234

013236
013244

013260

013262

PAGE 1-28

SEQ 0063

BGNCLN

MOV
MOV
TRAP
ADD

013246
013254
013254

CLNCODE

000340
014016
002466
000003

013160
013164
013170
013172
013176
013176
013202

11:31

104437

MOV
MOV

ERRVEC,#TRPHAN,#340
#340,~(SP)

#TRPHAN,
- (SP)

ERRVE(C,=(SP)
#3,~(SP)
C$SVEC
#10,SP

#PR100
#PR100,RO

;PRIORITY

#CRDY ,aCNTLR1
1%
#INTEN,@CNTLR1

;WAIT FOR CONTROLLER TO FINISH

002372

BIT
BEQ
BIC
CLRVEC

MOV
TRAP

VECT?
VECT1,RO
C$CVEC

005737
001412

002322

TST
BEQ

CNTLRZ2
3s

:TWO CONTROLLERS
sNO

032777
001774
042777

000200

167056

BIT

#CRDY ,aCNTLRZ

;WAIT FOR OTHER CONTROLLER TO FINISH

000100

167046

#INTEN,aCNTLRZ

"CLEAR OUT INTERRUPT ENABLE

013700
104436

002374

104441

005037
005037

TRAP

1%:

2%:

002466

0u5737
001416

002502

L10021:

104412

CLR

CLR
CLRVEC
MOV
TRAP
TST

4%:

104433

8EQ
8IC
CLRVEC

MOV
TRAP

3s:

013700
104436

SETPRI

BEQ
CLKOFF
BRESET
TRAP
ENDCLN
TRAP

TO ZERO

C$SPRI

VECT?
VECT2,RO

*CLEAR INTERRUPT IF PENDING

"RELEASE VECTOR OF FIRST CONTROLLER

*YES, WELL RELEASE ITS VECTOR

CSCVEC

INCALL
OPCALL
ERRVEC

ERRVEC ,RO

C$CVEC
SYSCLK
48

CSRESET

;DEACTIVATE SYSTEM CLOCK
;TAKE CARE OF LSI-1

C$CLEAN

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
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
(3)
(3)
(3)
1061

1062
1063
1064
1065
1066
1067
1068
1069

013352
013356
013360
013362
013364
013370
013372
013374
013376
013402
013402
0134064
013406
013410

013414
013420
013422
013424
013426
013430

012701
010002
005700
001405
062704
006301
005300
000771
150137

MACY11

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

000001
1%:

000126

(02252

2%:

010200
104442
010001
011164

012700
006200
005024
005300
001375

000104
000100
4%:
5%:

(3)
16;6

013430
013430
013430

}8;}

013432

ENDMOD

}8;2

013432

BGNMOD

}8;2

013432

BGNDU

1077
1078
1079
1080
1081
1082
1083
}832

013432
013436
013440
013444
013446
013450
013452
013456

005737
(01015
012704
005700
001404
005300
062704
000772

1086
1087
1088

013460
013466
013472

012737
004537

1091
(3)
163%

013472
013472
013472

1093
1094

013474

1089
1090

ENDAU
L10022:

104452

104453

002476
030432

2%:

000126

003510
023514

002246

1%:
3$:

ENDDU
L10023:
ENDMOD

MOV
MOV
TST
BEQ
ADD
ASL
DEC
BR
BlSB
GPHARD
Mov
TRAP
MoV
MoV

11:31

M5
PAGE 1-29

#1.R1
.
RO,R2
RO
2$
#PRPOS+2 ,R4
R1
RO
18
R1,DRUT
RZ2,R1
R2,RO
CS$GPHRD
RO,R1
(R1) ,DCS(R4)

MoV
ASR
CLR
DEC
BNE

#SERNM1,RO
RO
(R4)+
RO
48

TRAP

C$AU

DROPCODE

TST
BNE
MoV
TST
BEQ
DEC
ADD
BR

INZALL
3%
ADRBUF ,R4
RO
1$
RO
#PRPOS+2
,R4
23

Mov
JSR

HREQ,WHY
R5,0DRDRV

TRAP

C$DbU

SEQ 0064
JMASK
sSAVE
sTHIS
JYES
sNEXT
JNEXT

TO FIND DRIVE
WHICH TO FIND
ONE
MASK

s INSERT IN DRIVE UNDER TEST

;SETUP TO CLEAR STATUS

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

MACY1T

22000000000

SR2oIBIRGREC=S

d wd

d cnd o

333

1096

013474

30A(1052)

17-DEC-79

AUTO DROP SECTION

11:31

.SBTTL

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

5
PAGE 1-30

SEQ 0065

:ROUTINE TO FILL DRIVE PARAMETER BUFFERS WITH INFORMATION
013474
013502
013510
013512
013520
013526
013534
013542
013546
013552

002336
000001

000106
002254

000002
002254

002254
000120
000104
000110

002330
002350

000112
000126

FILINF:

MOV

FILTD:

MOV

CMP
BEQ
MOV

BDRSEL ,DRSEL (R4)

#1,T.DRIVE
FILTD
#2,T.DRIVE

T.DRIVE,TDR(R4)

;SET DRIVE SELECT BITS

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

MoV
MOV

BCSR,DCS(R4)
TEMP1 ,BBA(R4)

;SET CSR
;SET R/W BUFFER

egg

zgRPOS+2.R4

;UPDATE POINTER

MOV

R2 ,BSECPT(R4)

;SETUP BAD SECTOR POINTER

CZRLKBO RLO1/02_PERF

CZRLKB.MAC

EXER

07-DEC~79 09:46

MACY11 30A(1052)

GLOBAL SUBROUTINES

1}}2
1117
1118
1119
1120

013554
013556
013564
013566

010346
022737
001014

013610

062706

013566
013572
013576
013602
013606

1121
1122
1123
112¢

013614
013616
013626
013626

013626

013632
013636
013642
013646
013650

013654
013660

012746
012746
012746
012746
104437

000417
022737
001036

012746

012746
012746
012746
104437
062706

002314

000340
016706
000104
000003

000010

wviviwviunawnmuawnminawn

6
PAGE 1-31

000002

002314

LCLK:

000340

#340.~(SP)
NUPDATE
, = (SP)
#106,-(SP)
.
#3,~(SP)
CSSVEC

BR
CMP
BNE
SETVEC

FRACHK
#2,CLKTYP
ENDINI
#100, lUPDATE #340

MOV

016706
000100
000003

MOV
MOV
MOV
TRAP
ADD

000010

000006

FROCHK: MOV
cTMP

012737

000074

002506

013676
013704
013706

012737
000406
012737

000001

002312

000062

002506

FRQS0:

0137164
013722
013724

012737
012603
000207

000002

002312

MOV
ENDINI: MOV
RTS

013666

001007

R3,=(SP)
#1,CLKTYP
LCLK
#104,#UPDATE,#340

MOV
MOV
MOV
MOV
TRAP

ADD

SEQ 0066

#10,SP

#3460~

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

;SAVE R3
:P=CLOCK?
*BRANCH IF NOT P-CLOCK
*SET P=CLOCK INTERRUPT VECTOR

;BRANCH FOR SYSTEM FREQUENCY CHECK
sL-CLOCK?
*BRANCH IF NO CLOCCK
*SET L-CLOCK INTERRUPT VECTOR

CLKADR,R3
#60. ,6(R3)

:GET BASE ADDRESS OF THE SUPERVISOR CLOCK TABLE
+60 HZ?

MOV

#60. , CLKCNT

:52%;12%%650CL0CK COUNT FOR 60 TICKS

MOV
BR
MOV

#1,CLKFRQ
ENDINI
#50., CLKCNT

SIDENTIFY CLOCK FREQUENCY IS 60 HZ
:RETURN
:}gé;lg%ééfiDCLOCK COUNT FOR SO TICKS

#2,CLKFRQ
(SP)+,R3
PC

SIDENTIFY CLOCK FREQUENCY IS 50 HZ
*RESTORE R3

BNE

FRQ50

*BRANCH FOR SO HZ

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

b ah
b
d
b
e
d ed
b ed
e
b e e
b
b
b et b

CLKINI: MOV
CMP
BNE
SETVEC

002316
000074

013670

013703
022763

000001

D b

)

VAN AN ANN DTS n Fe B I 1o 28 2 2 O o o o U gl L

d e

4 i g R TR0 T

d =

(7)

(6)
(5)
(&)
(3)
(2)

11:31

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

(7)
(6)
(S)
(&)
(3)

(2)

17-DEC-79

013726
013732
013740
0137642
013750
013754
013756

005037
022737
001006
012737
005237
000414
022737

002512
000002

013766

CLR
P
BNE
MOV
INC
BR
cme

CLKACC
#2,CLKTYP
13
#100,a#177546
CLKSON
23
#1,CLKTYP

sCLEAR 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?

172540

MOV

MoV

#1,aN172542

sSET UP P-CLOCK FOR 1

002510

2%:
3s:

INC
MOV
RTS

CLKSON
CLKCNT,CLKBFR
PC

TRPHAN:

INC

TRPFLG

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:

1s:

BNE

3g’

#15,a#172540

sBRANCH IF NO CLOCK

INTERRUPT PER TICK

: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

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

30A(1052)

17-DEC-79

»SBTTL

REPORT ROUTINE

« REPORT ROUTINE

11:31

6
PAGE 1-33

SEQ 0068

sROUTINE TO PRINT STATISTICAL REPORT OF DRIVE(S)

N
o
o
N
N
o
N

)

b wad

)

PN SN NN NN e, e

QO =NWH
NN

MACY11

014024
014024
014026
014032
014036
0146042
0146046
014052
014056
0146062

REPORT: PRINTS
CLR
BISB

MOV

MOV
MOV

MOV

#FMT10,#TIME,HOUR,MINUTE,SECOND
,#MRLCS,DCS(R4) ,#DRNM, <B,DRSEL +1(R4)>
-(SP)
DRSEL+1(R4),
(SP)

#DRNM,
- (SP)

DCS(RG) ,=(SP)
#MRLCS,=(SP)
SECOND
. ~(SP)

MOV
MOV
MOV

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

MOV
MOV

#11,~-($P)
SP.RO

MOV

#FMT10,
= (SP)

MOV
MOV
MOV
MOV
TRAP
ADD

TDR(R4) ,~(SP)
H#FMTDT ,~(SP)
#2,-(SP)
SP,RO
CSPNTS
#6,SP

BEQ

TST

DPHOUR (R4)

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

014170
014174
014176

014212
014216
014216
014222
014226
014232
014236
014242

PRINTS

005046
156416 000071
005046
156416 000070
012746 010116
. 000003
012746
010600
104416
062706 000010
000410

012746
012746
010600
104416

062706
016446

016446
012746
012746
012746
010600

010076
000001

CLR
BIS8
CLR
B1SB
MOV
MOV
MOV

000004

2$:

=(SP)
DPMIN(R4)
, (SP)
-(SP)
DPHOUR(R4)
, (SP)
N#FMTS1B,~(SP)
#3,-(SP)

SP,RO

TRAP
ADD

CSPNTS
#10,SP
2%

PRINTS
MOV
MOV
MOV
TRAP
ADD

WFMTS1A
H#FMTS1A,-(SP)

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

PRINTS

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

BR
1$:

#FMTS1B,<B,DPHOUR(R4)>,<B,DPMIN(R4)>

MOV

SERNM1
(RG) , - (SP)

SERNM2 (R4) .= (SP)

MOV
MOV

#CART , - (SP$
#FMTS2
, - (SP)

MOV

SP.RO

MOV

#4,~(SP)

JPRINT

‘xxx RUNNING'

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
(4)
(4)
177
(12)
an
(10)
(9
(8)
(7)
(6)
(3)
(4)
(4)
1178
10)
(9
(8)
(7)
(6)
(3)
(4)
(4)
1179
an
10
(9
(8)
(7)
(6)
(3)
(4)

014244
0146246
014252
014252
0

(4)
1182
(9

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

016446
016446
016446
016446
016446
012746

012746
010600
104416

062706
016446
016446
016446
012746
012746
010600
104416

062706
016446
016446
016446
016446
012746
012746
010600

104416
062706

(4)
1180
162

(8)
(7)
(6)
(3)
(4)
(4)
1181
an
a0
(9)
(8)
(7)
(6)
(3)
(4)

104416

062706

016446
016446
012746
012746
010600
104416
062706

016446
016446
016446
016446
012746
012746
010600
104416

062706

016446
016446
012746
012746
010600

000012

MACY11

30A(1052)

17-DEC-79

REPORT ROUTINE

11:31

6
PAGE 1-34

CSPNTS

#12,5P
#FMTS2A, SKCNT (R4) , SKCNTT(R4) ,RXFR3(R4) ,RXFR2 (R4) ,RXFRT(R4)
RXFR1(R4) ,~(SP)
RXFR2(R6) ,~(SP)

RXFR3(R&)
.= (3P)
SKCNT1 (R4, ~(SP)
SKCNT
(R4) , = (SP)

#EMTS2A,
= (SP)
#6,~(SP)

SP.RO
CSANTS

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

WXFR3(RG)
= (SP)

#FMTS2B, ~(SP)
#4,~(SP)

SP.,RO
CSANTS

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

CSANTS

#14,SP

#FMTS3A ERRCNT (R4) , SFTCNT (RG)
SFTCNT(RG) ,~(SP)
ERRCNT
(R6) ,~(SP)
#FMTS3A
= (S5P)
#3,-(SP)
SP,RO
C$ANTS
#10,SP
#FMTS4 DCRCER(R4) ,HCRCER(R4) ,NXMCNT (R4) ,HNFERR(R4)
HNFERR(R4)
, = (SP)
NXMCNT
(RG) ;= (SP)
HCRCER(R4)
;= (SP)
)
;= (SP)
DCRCER(RS
#EMTS4
= (SP)
X5,~(SP)

SP.RO
CSANTS

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

OPICNT{R4) ,~(SP)
(R4) ,=(SP)
DLTCNT
NEMTSS
= (SP)
#3,-(SP)

SP.RO

SEQ 0069

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MA(
07-DEC-79 09:46
(4)
(4)

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

6
PAGE 1-35

SEQ 0070

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

MACY11

SEBIRIREET2

Juer A4

b ——d
b wd
b ad and
—d emd

ONOWVNSBWN=O

D and

d
d
e

17-DEC-79

PROGRAM MAIN LOOP

.SBTTL
BGNTST
STARS

11:3

PAGE 1-36

SEQ 0071

PROGRAM MAIN LOOP

RARAR AR AN AR

A AR RANR AN AR

AN AANIAANARN RN A AR

sPROGRAM WILL RANDOMLY PICK ONE O+ THE DRIVES TO
WE WILL ALWAYS PICK ONE OF FOUR
;PERFORM AN OPERATION.
;OR EIGHT DRIVES (ONE OR TWO CONTROLLERS) 'DRUT'' WILL BE
ONCE DRIVE IS PICKED
;CHECKED TO SEE IF DRIVE IS ON SYSTEM.

D d D ed ad d

ed eded e
e
—
b
b amd
b
d e
b
b

aS1aNIAN
LN 1,10 1,N1,87,8)

-t

N AR
(= n

1189
1190

30A(1052)

sTHEN A FUNCTION WILL BE SELECTED RANDOMLY FOR THAT
FUNCTIONS OF CONTROLLER RESET, GET STATUS, SEEK,
;DRIVE.

sWILL BE SELECTED, EACH FUNCTION WILL HAVE ITS OWN ROUTINE
;7O GET PARAMETERS FOR THE DRIVE.

014534

READ,

WRITE

STARS

::t*tfiitfittiififiittfittttiittttttittttttttttttflfitttttttfittt!ttttttt

014534
014534
014540

012700

014542
014546
014550
014554
014560
014564
014566
014572
014576
014602

005737
001407
013704
013701
005237
000410
012704
012701
010437
010137

014606
014612

104441

MTEST:

000240

002274

SETPRI

MOV
TRAP

TST

BEQ

002274
002276
002452

MOV
MoV

INC
B8R
MOV
MOV
MOV
MOV

#240
#240,RO

C$SPRI

WRINIT
161$
WRINIT
R4
WRPOS ,R1

STFLG
16$

;PRIORITY

;/AND

TO 5

TO ALLOW CLOCK

INHIBIT

DRIVE

INTERRUPTS

JHERE AFTER PWR FAIL DURING WRITE
;NO

JYES - RESET Ré4
JAND R1 POINTERS

;FAKE OUT

THE

START FLAG

JAND CONTINUE WRITE INIT CODE
;GET DRIVE BUFFERS

030432
000001
002274
002276

161%:

130137
001442

002252

16%:

014614
014622
014630
014634
014636
014640
014646

Q12774
056474
012700

000200
000106
000000

000104
000104

032774
001006

000001

000104

#DRDY ,aDCS(R4)

148

;WAIT FOR DRIVE TO BECOME 'READY’
JAFTER THE HEADS HOME COMMAND

014650
014656
014662

012737
004537
000416

002664
023520

002246

#DNRDY ,WHY

;MSG. "DRIVE NOT READY''

005300
001376

022654

014664
014670
014674
014700
014704
014706
014712

001402

014714

004537

13%:

s MASK

;COPY THE R4 AND

;POINTERS

R1,DRUT
158

;DRIVE UNDER TEST

#200,aDCS (R4)
DRSEL
(R4) ,8DCS(R4)

;CHECK IF DRIVE THERE

13%

R5,DRDRV

JSTALL

158

14%:

002452
024622

#DRBUF ,R4
#1.R1
R4 ,WRINIT
R1,wRPOS

99%:

BEQ

R5,RDBDSC
PRFLGS (R4)
RSEEK(R4)
WRIPG(R4)
99%
STFLG
15%

JSR

RS ,WRPACK

;GO GET BAD SECTORS
JSEE IF WRITE IN PROGRESS FLAG SET
JJUMP IF SET

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
(8)
(7)
(6)
(3)
(4)
(4)
1251
(3)
(3)
1252
1253
1254
1255
1256
1257
1258
1259
1260

1261

1262

1263
1264
1265
1266
4)
(5

(5
(5)
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
(3)
1283

014720
014724
014730
014734
014736

062704
010437
006337
106301
103323

MACY11

30A(1052)

PROGRAM MAIN LOOP

158:

000126
002274
002276

17-DEC=-79

ADD
MOV

#PRPOS+2 R4
R4, WRINIT

BCC

163

ASL
ASLB

;HERE WHEN ALL

014740
014744
014744
014750
014754
014760
014762
014764
014770
014770
014774
014776
015002
015006
015012
015016
015020
015022
015024
015026
015030
015034

11:31

6
PAGE

WRPOS
RI

FINISHED WITH

CAND SHIFT COPY OF
: DONE?
THE WRITE

012746
012746
012746
010600

004360
007544
000002

062706

000006

CLR
WRINIT
PRINTF A#FMT14 ,#MSTART
MOV
-#MSTART,-(SP)
MOV
#EMT14,=(SP)
MOV
#2.-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#6,SP

012700

000000

MOV

104441

SETPRI
TRAP

004537 024524
013702 002262
043702 1002256
012701
000001

MAIN:
PEROTH:

1$:

002252

2%:

015036
015036
015040
015042
015044

015052
015056
015060

130137
001747
010137

002252

5$:

002250

;PRIORITY TO 0 TO ALLOW BOTH

;/CLOCK AND DRIVE INTERRUPTS
(LUN)
:MASK TO DRIVES ON SYSTEM
:LET'S SEE IF DRIVE IS THERE
:HAVE WE GOT PROPER MASK YET

ASL

:NO, ‘SHIFT FOR NEXT DRIVE

DEC
BR
TSTB
BNE

.WORD

030424

($SPRI

;CLEAR THE WRITE INIT FLAG
:MSG. '‘TESTING STARTED''

SYSMSK,R2
#1.R1
R2

BEQ

R2
1$
DRUT
5$
170. ,NODRIV
(SERSF

NODRIV
0

JMP

ENDOF PROGRAM

BEQ
MOV

;GET A DRIVE?(LUN)
:GET THE SELECTED DRIVE

:YES, GO TO 2%

:DECREMENT DRIVE NUMBER
:GO CHECK NEW DRIVE NUMBER
:ANY DRIVES ON LINE
SYES, CHECK
:NO DRIVES

170

.WORD
.WORD

BITB

R1,DRUT

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
;IS FREE BEFORE WE GO ANY FURTHER

023737
002403

005037

104424

002406
002406

010672

CMP
BLT
CLR
DORPT
TRAP

POINTER

CODE

RS , RAND
LONUM,R2

TRAP

000137

#0,R0

INIT

JSR
MOV
BIC
MOV
TST

ERRSF

015046

*NO GO FOR NEXT ONE

002274

104417

SEQ 0072
;NEXT DRIVE
:SAVE CURRENT R4 POINTER

005037

128:

1-37

égTERVAL.TYINT

INTERVAL

C$DRPT

[TS CONTROLLER

:TIME FOR STATISTICAL REPORT?
:NO, PERFORM FUNCTION

sCLEAR INTERVAL TO INITIALIZE TIME INTERVAL
;/BEFORE THE NEXT STATISTICAL REPORT
JPRINT STATISTICAL REPORT

ONONOONOONNVONN

i
P
G
i S
S
S

s Gor Qs Suur
er S
P

Suer Guurd
nr G

eolelelololololololelals)

1326

012704

013702
043702
005702
001404
062704

MACY11

030432

30A(1052)

PROGRAM MAIN LOOP

6$:

002262
002256

17-DEC~79

MOV
MOV

BIC

3%:

TST

8EQ

000126

ADD

000200

000104

000100

000104

4%:

DEC
BR
BIT
BEQ
BIT
BNE

11:31

6
PAGE 1-38

#DRBUF ,R4

LONUM,R2
SYSMSK ,R2

43
#PRPOS
+2 R4

R2
3%
A#BIT/,aDCS(R&)
MAIN
1
#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
sNO, UPDATE FOR NEXT BUFFER
;DOWN COUNT DRIVE NUMBER (LUN)
;GO BACK AND CHECK FOR FOUND
:ESQ;ROLLER ASSOCIATED WITH DRIVE

s INTERRUPT BEEN SERVICED?
;JNO - WAIT FOR THE INTERRUPT

JWE CAN NOW PROCEED IN GETTING A FUNCTION AND RELATED DATA
R4 HAS DRIVE BUFFER POINTER
;sFOR THE DRIVE RANDOMLY.
TAGX:

b med wud

010722°

—d

2EERIReLESY FIBTRIR

b
d
ad
d e
d
b e
d e
d
4

d e
b
e
b e
b

NN
Pt St Qo sl Py
ALY (.81, ¢, S P puit P D
VNN =00V
NOWVNEWN=O

d
b
e
e
b e
b
d md
- e

NN AN NN N AN AN N NN NN

b —D

1291

(S LV LV, IV, IV, LV, VLV, ]V, [V, 1V, IV, }

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

000012

010662

003322

002246

000014

010726

003365

002246

000074

010752

003407

002246

000016

015256
015264
015266
015274
015276
015304
015310

003344

002246

000020

010732

012737

003432

002246

004537

023520
014776

000137

MOV

9%:

B8R
cMP
8LO

MOV

10%:

110%:

070664

TST
BEQ
CMP
BLO

7%:

11%:

T.DRP

GETFNC
SgRCNT(R4),ERLM'

:DSOP ON ERROR LIMITS REACHED?
;N

cHARD REACHED?

HERLMTM,WHY

118
SFTCNT(R&) ,SFLMT
108

;SOFT REACHED?

#SFEMSG,WHY

11%
DATCER(R4) ,T.D(D
1108
f?gDMSG.UHY

(R4) ,R1
SKECNT

TRERR(R4)
,R1
R1,SELMT
7$
q?gRLMT.UHY

(R4) ,DRLMT
DERCNT

;DRIVE ERROR REACHED?

RS,DRDRV

:DROP THIS DRIVE..'

GETFNC
H#DERMSG,WHY
MAIN

JNO - TIME

TO DO SOMETHING

:GO GET ANOTHER

CZRLKBO RLO1/02 PERF EXER

CZRLKB.MAC

07-DEC-79 09:46

MACY11

}ggg
1330

015314

015316

005737

010730

1334

015322

026437

000000

020037

000060
000062
010666

1335
1336
1337

1338

17-DEC~79

PROGRAM MAIN LOOP

11:31

015320

015330
015332
015336

015342

1339
1340
1341
}%2%

015346
015350
015356
015362

1364
1345
1346

1348

001422

103416
016400
066400
103407
012737
004537
000137

003611
023520
014776

015366

004537

024524

015372

013702

002262

015402

001001

8$:

010670

TST

BEQ

6
PAGE 2

C(MP

SEQ 0074

98%:

SKCNT(R4),SKLMT ;PAST THE SEEK LIMIT??
;NO, THEN GO TEST
;GET READ COUNT
;ADD IN WRITE COUNT

BLO
MOV
JSR
JMP

98$
#SOPLMT ,WHY
RS,DRDRV
MAIN

;NO,

JSR

RS, RAND

RO, DALMT

;IF 0, MAKE 1

1356

015424

STARS

1357
1358
1359
1360
1361

015424

;SKWRT == ISSUE:
;
SEEK TO A CYLINDER
:
"
WRITE DATA
;
WRITE CHECK
STARS

1362
1363

015424

004537

015766

1365
1366
1367
1368
1369

015434
0156440
015444
015450
015454

004537
Q04537
004537
004537
000137

016430
015540
015724
015540
014776

1364 '015430

022636

6$:

5%:

;DROP THE DRIVE
;GO FOR ANOTHER DRIVE

015404
015406
015412
015414
015416
0156420

000007

REACHED??

THEM GO TEST

LONUM, R2

BIC

#177770,R2

INC
(MP
BNE
DEC
ASL
JMP

R2
#7 ,R2
5%
R2
R2
ALIST(R2}

BNE

;LIMIT

;GET A RANDOM FUNCTION INDEX NUMBER
;0 & 7 ARE NOT LEGIT
SGET IT

1349
1350
1351
1352
1353
}ggg

005202
022702
001001
005302
006302
000172

:NO

98$
RXFR3(R4)
,RO
WXFR3(R4),RO

MOV

177770

;D0 WE WISH TO DROP ON OPR LIMITS

BLO
MOV
ADD

cMP

002246

T.STA

98$

015376

(2)

042702

GETFNC:

1347

(2)

;HERE TO GET A °'STRING' FUNCTION =~ LIST OF COMMANDS TO ISSUE

1331

;ggg

30A(1052)

:MASK TO 0-7

JIS IT 72
;IF 7, MAKE 6

SSHIFT LEFT (X2)
;GO TO FUNCTION ROUTINE

;.-tt*tttt*ttttttttt*ttt*ttitttt*t*tttkt*tttttttttttttttt*tttttttt

;;ttt*t*tttt*tttttttttttttttttttitttttitttttttttttttttitt*tttfittt

004537

015540

SKWRT:

JSR

RS, SKFNC

JSR
JSR
JSR
JSR
JMP

RS,WRTFNC
RS, OPROK
RS,WRTCKF
RS, OPROK
MAIN

JSR

RS, OPROK

;RANDOM SEEK [ OAD

;WAIT TILL DONE

;WRITE DATA LOAD

;WRITE CHECK LOAD
;GET NEXT COMMAND

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

1371
(2

015460

MACY11

30A(1052)

17-DEC~79

PROGRAM MAIN LOOP

200

RRRdtSR

“SKRD ==~ ISSUE: .
;
;

015460

004537
004537
004537
004537
000137

015766
015540

SKRD:

AR AN R AN

JSR

JSR
JSR
JSR

016500
015540
014776

015504

SRR

RANDOM SEEK
READ DATA

STARS
AR

015500

JMP

R 2222222223822
2222 T 2]

NP R R AR R RN A RN RN RN RN AR RN AR RARRRRAN RN R AN

RS, SKFNC(

RS5,0PROK
RS ,RDDFNC
RS,0PROK

MAIN

AR RN A AR R RRA R AR AR AR AR NN AR

:
:
;

015504

STARS
AN

015534

SEQ 0075

TO A CYLINDER

AR AN R

;SKRDRD =~ ROUTINE

015530

6
PAGE 2-1

:LOAD SEEK
;LOAD READ DATA (CMD
cGET THE NEXT COMMAND

STARS
e

015504
015510
015514
015520
015524

STARS
MR

015460
015464
015470
015474

11:31

015766

015540

016500
015540
016500
015540
014776

SKRDRD:

AN AR AR AN AR

N AN

RRAANY

TO DO:

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

RN AR

RN AR R R AR A AN R AR AR

RN AR RN

JSR
JSR
JSR
JSR
JSR

RS, SKFNC
RS, 0PROK
RS ,RDDFNC
RS ,0PROK
RS,RDDFNC

;LOAD READ

JMP

MAIN

JEXIT

JSR

RS,0PROK

;LOAD SEEK

;LOAD READ

NRNRARRANNRARA AR NN

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC=79 09:46
1398
(2)
1399
1400
1401

(2)
1402
1403
1404
1405
1606
1407
1408

1609
1410
1411
1412
1413
1414
1415
1416
1417
1418

MACY11

015540

PROGRAM MAIN LOOP

ARAARER

015610
015614
015616

PAGE 2-¢

SEQ 0076

2202

R 2220000002

302

222822222 2222322232322282202
2]

STARS
SRR

015606

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

015540

015566
015572
015574
015600
015602

11:31

STARS
M

015562

17-DEC=79

30A(1052)

004537
004537
133737
001003
005726
000137

016574
024340
002250

005764
001403
004537
000757
005764
001403
004537
000751
000205

000036

1%:

016542

2%:

000114

3s:

AR A A AN KR AN A AR A RN AR

OPROK:

002252

014776

015766
A ¥

JSR
JSR
BITB
BNE
TST
JMp
TST
BEQ

JSR
B8R
TST
BEQ
JSR
BR
RTS

R5,LDFUNC
RS ,WTRDY

AR RN AAAR N AR AN RA AN RN AR AN AN AR AN A AR

;ISSUE THE FUNCTION

SWAIT

TILL READY

+
(SP)
MAIN

;DRIVE STILL AVAILABLE?
;YUP - CONTINUE
:NO - FIX THE STACK
¢BACK TO THE MAIN LOOP - FORCED EXIT FROM

RETRY (R4)

JNEED TO RETRY FUNCTION?

{gTDRV.DRUT

38
RS, 1SSUE
OPROK

RSEEK(R4)
48
RS5,SKFNC

OPROK
RS

sTHE STRING FUNCTION
:NO

JYES = ISSUE THE FUNCTION AGAIN
JAND 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
1420

MACY11 30A(1052)
17-DEC-79
PROGRAM MAIN LOOP

11:31

M6
PAGE 2-3

015620

STARS

1621
1422
1423
1424
1425
1426

015620

:SKRH == ISSUE:
;
RANDOM SEEK
;
READ HEADERS
:
READ DATA W/NO HDR CMP
:
GET STATUS
Si1ARS

1427
1428

015620

004537

015766

16430
1431
1432
1433
16434
1435
1436
1437
1438
1439
}22?

015630
015634
015640
015644
015650
015654
015660
015664
015670
015674
015700

004537
004537
004537
004537
004537
004537
004537
004537
004537
004537
000137

024340
016416
016574
024340
015704
016574
024340
015746
016574
024340
014776

16442

015704

STARS

1443
1444

015704

.READ DATA W/NO HDR COMPARE
STARS

16429

1445
1446
1447

015624

004537

SKRH:

016574

AR AR

AR AN R AR

RN AR RN AR RN

RN AR AR AN AR R

RN AR N

JSR

RS, SKFNC

JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JMP

RS.,WTRDY
RS ,RDHFNC
R5,LDFUNC
RS.WIRDY
RS ,RDNHC
RS.,LDFUNC
R5,WTRDY
R5,GSTFNC
R5,LDFUNC
R5,WTRDY
MAIN

JSR

RRNRRRRANENANRN

AR RRNEA RN AR

AR RAN

;LOAD SEEK

s ISSUE

;LOAD READ HDRS
: ISSUE
;LOAD READ W/NO HDRS
s ISSUE
;LOAD GET STATUS
s ISSUE

JGET THE NEXT COMMAND

P IRERRRERRAR AR KA KRR AR AR AR ARRER RN AR RRR AN RRNRARNAA RN RRRRRRRS A

012764
012764
000137

177600
000016

RAR AR AR AR KRR AR IR R AR

RDNHC:

MOV
MOV
JMP

1450

015724

STARS

1451
1452

015724

SWRTCKF ~ WRITE CHECK FUNCTION
STARS

1453
1454
1455
}Zgg

015724
015730
015732

005737
001401
000205

010734

1458
1459

015734
015742

012764
000137

000002
016542

016542

000042
000044

}228

)

AR A RRRNERRR R

RS5,LDFUNC

015704
015712
015720

SEQ 0077

000044

RAR AR

R AR AR RRRRRR AN AR RN IARARRERRAASE

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

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

AR E R AR AR AR

R AAR AN

A RN RARNRR AR RANRRRER AR

RN AR AR AR AR RN R AR AR

RARRRRR AR RN RRARRAARRARRIARERA
AR

WRTCKF:

TST
BEQ
RTS

T.ROF
18
RS

JREAD ONLY SET?
sNO - DO THE WRITE-CHECK FUNCTION
JYES = EXIT NOW

1$:

MOV
JMP

#WRCHK ,FUNC(R4)
ISSUE

;SAVE (MD
;PROCESS IT

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC~79 09:46
1462
(2)
1463

1464

(2)

1465
1466
1467
1468
1469
1470

2)
1471
1472
(2)
1473
1474
1475
1476
1477
1478
1479
1480
1481

é§2;£L

015746

012764
012764
000137

AR AR AR

GSTFNC: MOV
MOV
JMP
RN

A RN AR

AR AR

H#GSTAT ,FUNC(R4)
#GSBIT,BDA(R4)
ISSUE
AR AR R RA AR AR AR AR R RN

RA R AN AR RARARRAARNAAA AN RAA AR

AARWN

;LOAD GET STATUS
;SET GSBIT IN COMMAND WORD
2GO ISSUE FUNCTION
AR R AR

RRAR

AR AR RRARRRARRARRAS

SSEEg FUNCTION

015766

R AAR R AR R AR

AR AR

AR AR RN AR AR ARAN

AN R AAA AR AAAAR

A AN RN

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

SKFNC:

000036

1484
1485
1486
1487
1488
1489
1490
16491
1492
1493
1494
1495
1496
1497
1498
1499

1507
1508

000044
000040

RRRA

STARS

1483

1504
1505
1506

000004
000003
016542

015766

16482

1500
1501
1502
1503

S?E;SSTATUS FUNCTION

015746

015746
015754
015762

SEQ 0078

ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK

TST

000050
000124
000100

10%:

024524
002262
002272
000124

8% :

000100

000001

000120

9808%:

100000

077700

177700

042702

000100

010237

002342
027274
002340

TST
BNE

981%:

982%:

96$%:

BEQ
MOV
MOV
BIC
BIC

RSEEK(R4)
108
RETRY(R4)
98%
LSTHDR(R4) ,R1
PRPOS (R4) ,R2

;TRYING TO RECOVER
JYES - DO IT
RECOVERY FROM A *'DRIVE® ERROR?
NO NORMAL SEEK REQUIRED
JYES SET UP FOR RESEEK
:TO CYLINDER

B8R

#100,R1
#100,R2
48

:HEAD SET IN LATER
H
+SKIP RANDOM PART

MOV

BIC
M
BEQ

LM.RZ

SMSK ,R2
R2, PRPOS(R4)
98$

;GET THE RANDOM NUMBER

CMP

#1,TDR(R4)

;THIS DRIVE AN RLO1?

JSR

BNE
BIC
CMP
BNE
BR
CMP
BNE
NOP
BIC

RS ,RAND

;LEAVE CYL AND HEAD
;ON THAT TRACK ALREADY
JYES ~ RESELECT

#HEAD ,R2

MOV

R2,CHKSEC

;SAVE THE ADDRESS FOR THE BAD SEC FILE CHECK

TST

HDRFND

UAS

JSR

BNE

981%
#31T15,R2
#077700,R2
96%
982%
#177700,R2
96%

;GET A RANDOM NUMBER

NO MUST BE AN RLO?
;KILL UPPER BIT OF CYL ADDRESS
JPOINTING TO THE BAD SEC FILE?
*NO ~ PROCEED
sYUP - CORRECT THE POSITION
JRLO2 BAD SECTOR FILE?
:NO - PROCEED
;TRAP
JPOINT TO HEAD O LAST TRACK

hetY

1461

N 6
17-DEC-79
11:31
PAGE 2-4
ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK

MACY11 30A(1052)

RS,CKBDTK

98%

;SEE IF THIS ADDR IN BAD SECTOR FILE
I7?

JYES - RESELECT THE ADDRESS

—

Wng\Om\lO‘\hJ\WN

NN
&»H

D oY

) o —

ok
b

) il
d

b
d
b

d e
—

d e
b
d e
b

(L IV, IV, [V, IV, LV, JV LV, IV, (V, [V, [V, ]V, ] (%)

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

016124
016126
016130
016134
016142
016144
016150
016156
016160
016164

005003
010200
042700
023737
001011
013702
022764

MACY11 30A(1052)

177677
010710

010712

010710
000001

000120

100000

95:

948

000012
000200

918:

~10712

93%:

000012

1551

0
016332

R3
R2,RO
#197677.,R0
T.MXC,T.MNC
958
T.MXC,R2
#1,TDR(R4)
92§

:COPY ADDRESS =~ NO SECTOR YET
sLEAVE ONLY HEAD
:MIN AND M ¥ CYLINDERS THE SAME
:NO, BRANCH AND STAY IN LIMITS
*MAKE CYLINDER MAX/MIN
:DRIVE = RLO1?
*NO

B8R

928

:GO CALCULATE DIFF AND SEEK

92%:

000120
000050

25%:

010706

000100

000124

000100

000124

97%:

#IT15,R2

BIC

#HEAD ,R2

BHIS

93s

cTMP

T.MXC.R2

*FORCE CYL TO PROPER LIMIT

:STRIP OUT H.S. BIT

21S ADDRESS LESS/EQUAL THAN MAX
SYES, CHECK LOW END

INC
cTMP
BEQ

R3
R3,410.
98§

:BUMP A TALLY COUNTER
:IF CAN'T FIND ADDRESS IN 10 TIMES THEN RESELECT
*RESELECT

ADD
B8R
P

#MIT7.R2
95%
T.MNC.R2

<JUST TO MAKE NON ZERO
:GO BACK AND CHECK AGAIN
*IS MIN GREATER/EQUAL THAN ADDRESS

(TMP

R3,410.

:TIME TO RESELECT?

B8R
MOV

91s
PRPOS (R&4) ,R1

*GO CHECK MAX/MIN AGAIN
*GET PRESENT DISK POSITION

cMP
BNE

#1,TDR(R4)
258

:RLO1=1
:BRANCH.
. .MUST BE RLO2

ASR

?kgs
BEQ
ASL

010704
1

CLR
MOV
BIC
cTMP
BNE
MOV
cMP
BNE
BIC

000100
010710

100000
000124
000124
000124
010704

11:31

PAGE 4
ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK

908 :

000124
000177
000001

17-DEC-79

BIC

g%s

98$
R2

2177 .R1

SHALF IT AND CHECK AGAIN

SYES., CALCULATE DIFF AND SEEK
SYUP - DO IT NOW
:NO, DOUBLE IT

BIC
MOV

MIT15,R2
:CLEAR THE HIGH BIT FOR RLO2 CYL #
PRPOS (R4) ,LSTHDR(R4)

BIS

#HEAD ,PRPOS (R4)

MOV
BIS
cMP
BNE
ST
BNE
g}?c

R2,PRPOS (R4)
:NEW HEADER AFTER SEEK
RO .PRPOS (R4 )
SSET IN RANDOM HEAD GOTTEN
T.MXH, T.MNH
SMIN AND MAX HEAD SELECT THE SAME
48
*NO, THEN WE CAN USE BOTH SURFACES
T.MXH
*WHICH IS OUR SURFACE FOR USE
97%
STOP SURFACE BRANCH
z;lEAD,PRPOS(RI.) *LOWER SURFACE ONLY
;TOP SURFACE ONLY

SEQ 0079

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

[oa}
O

VAN AN

— d cd wd e e b d ) D oD ned D d

-—h -

SXERRER &g O O0O~NON~
N &H

A AN N

AN v

1553
(2)

17-DEC-79

MACY11 30A(1052)

ROUTINES TO SETUP AND

016340

11:31

PAGE 4-1

ISSUE GET STATUS §

SEQ 0080

SEEK

STARS
AR

AN AR

AR A AN AR R AN R AN

S%ALgULATE

016340

R RN RN R AR RN AN

THE DIFFERENCE WORD AND STORE

RNRAR AR AANRNRENAR

IT IN BDA

SAREARAANRRARRAARNRA
AN AN AR AANRAANRNARANANRAAANNRANAANRARAAANRAANRR

160102
103002

005402
000402
052702
052702
032764
001402
052702

010264
010264
012764
000137

(8:

000004

000001
000100

000020
000040
000066
000006
016542

000124

000044

SuB
BCC
NEG
BR

BIS
BIS
BIT

BEQ
BIS
MOV
MOV
MOV
JMP

1$
R2

s SUBTRACT PRESENT FROM NEXT
;1F POSITIVE RESULT GO TO 1$
sNEG RESULT, NEGATE IT
cGO SET DIRECTION OUT

#SIGN_R2
cDIRECTION OUT, MARKER
R
MK
:MARKER BIT
ggEAD.PRPOS(R4)sWHICH SURFACE SELECTED?
;TOP, THEN 3%
#SKHS ,R2
:BOTTOM SET HEAD BIT
R2,BDA(R4)
;MOVE DIFFERENCE WORD TO DA
R2,DIFWD(R4)
sLOAD DIFFERENCE WORD
#SEEK ,FUNC(R4)
;LOAD SEEK
ISSUE

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591

MACY11

30A(1052)

000010
016542

000044

RDHFNC:

.SBTTL

005737

010734

11:31

PAGE 4-2

ROUTINE TO LOAD READ HEADER AND ISSUE

.SBTTL

012764
000137

17-DEC-79

WRTFNC:

025764
010674

ROUTINE TO LOAD READ HEADER AND [SSUE IT
MOV

JMR

#RDHDR ,FUNC(R4)

_
ISSUE

;LOAD READ HEADER

ROUTINE TO LOAD WRITE DATA COMMAND
TST

BNE
JSR
TST

BEQ
INC

002306

T.ROF
RDDFNC

sREAD ONLY
JYES

CMRD
1%
REGEN

; COMPARE DATA ON A READ?
JNO - SO DON'T GEN A WRITE BUFFER
JYES ~ SET THE GENERATE DATA FLAG

RS5,GWCDA

;GET WORD COUNT,DA

:WE NOW HAVE SECTOR AND WORD COUNT, LET'S WRITE BUFFER IN MEMORY

;TO WRITE OUT
:
;FORMAT

016454
016460
016466
016474

004537
012764
012764
000137

022370
000012
000001
016542

000044
000122

1%:

.SBTTL

JSR
MOV
MOV
JMP

TO DISK

WORD 1 - # OF WORDS IN SECTOR
WORD 2 - ADDRESS OF PATTERN WRITTEN ON SECTOR
WORD 3 - 127 DATA PATTERN
RS, WRBUF

JWRITE BUFFER INTO MEMORY

MIRITE ,FUNC(R4)
#1 ,WRIPG(R4)

;LOAD WRITE
sSET THE WRITE

IN PROGRESS FLAG
;GO ISSUE FUNCTION

ISSUE

ROUTINE TO LOAD READ DATA COMMAND

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

016500
016504
016510
016512
016516
016522
016524
016526
016530
016536

004537
005737
001407
016402
017401
005021
005202
001375
012764
000137

025764
010674

RDDFNC:

000042
000110

000014
016542

1%:

000044

2%:

JSR
TST

BEQ
MOV
MOV
CLR
INC
BNE
MOV
JMP

RS,GWCDA

;GET WORD COUNT, DA

2%
BMP(R4) ,R2

sNO = SO SKIP THE CLEAR BUFFER (CODE
:CLEAR OUT BUFFER AREA

CMRD

:GOING TO COMPARE DATA AFTER READING?

aBBA(R4) R
(R1)+

R2
1$

#READ ,FUNC(R4)
1SSUE

;SO WE KNOW READ

;WORKED
!!

LOAD READ

SEQ 0081

CZRLKBO RLO1/02 PERF EXER
-

07-DEC-79 09:46

30A(1052)

17-DEC-79

11:31

SETUP CONTROLLER AND DRIVE
.SBTTL

— OV~ P

CZRLKB.MAC

MACY11

7
PAGE 4-3

INFO FOR INTERRUPT PROCESSING

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

;CONTROLLER WE ARE WORKING WITH AND STORE OFF THE DRIVE BUFFER

;POINTER IN ITS 'LSTDR"
016542
016550
016552
016556

026437

000104

002320

ISSUE:

000044

28:

002324

016560
016564
016572

002326
000100

1$:

.SBTTL
STARS

016574

(MP
BNE
MOV
BR

DCS(R4).CNTLRT
18
R4,LSTDRI
28

;DRIVE ON CONTROLLER 17
:NO, ASSUME ON CONTROLLER 2
:PUT BUFFER POINTER IN
:SKIP OVER NEXT INSTRUCTION

BIS

AINTEN.FUNC(R4)

:ALLOW INTERRUPTS

MOV

RIS

R4,LSTDR2

:PUT BUFFER POINTER

IN 2

ZEXIT

ROUTINE TO LOAD FUNCTION

WA AR ARAR A AR RA A AR R AR AR AR A ARAAN

AN ARARAAANNRAARNRARANRARRARRARRNN

;CALL
JSR
RS ,LDFUNC
, ;ALL INFORMATION MUST BE SET UP IN DRIVE BUFFER
;R4 HAS POINTER TO BUFFER
STARS

016574

016574
016600
016604
016606
016606
016610
016612
016614
016616

016403
032713
001004

000104
000200

AR AR AR R AR AR AN AR A AN AR

LDFUNC: MOV
BIT
BNE

ERRSF

104454
000310

TRAP

.WORD
.WORD
.WORD

002732
000000

017463

1%:

00004
000200

MOV

AR A AN A ARRARARRARAAR

DCS(R4) ,R3
#8177, (R3)
1$

RN ARRA AR AR RARRNAN

:GET CSR FOR DRIVE
;CAN WE ISSUE COMMAND?
;YES, GO ISSUE COMMAND

200. ,PRGER

;THIS ERROR SHOULD NEVER PRINT

CSERSF

200
PRGER
O

@BBA(R4) ,BA(R3)

;LOAD BUS ADDRESS REGISTER

MOV
MOV
MOV
BIS
BIS

BDA(R4) ,DA(R3)
;LOAD DISK ADDRESS REGISTER
BMP(R4) ,MP(R3)
;LOAD MULTI-PURPOSE REGISTER
FUNC (R4) ,BCSADR(R4)
sGET FUNCTION
DRSEL (R4) ,BCSADR(R4)
sSET DRIVE SELECT BITS
#CRDY !DRDY,BCSADR(R4)
-SET CRDY:DRDY IN IMAGE

MOV

BCSADR(R4)

RTS

BIC

000000

BIC

#OP] ,BCSADR(R4)

,CS(R3)

#CRDY,CS(R%)

SEXIT

*WE'RE CLEAR BIT 10 FOR DRIVE 7-4 (OKAY?)
*LOAD CSR

*ISSUE FUNCTION

SEQ 0082

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

MACY11

30A(1052)

17-DEC=79

11:31

INTERRUPT SERVICE ROUTINES
.SBTTL

PAGE 4-4

INTERRUPT SERVICE ROUTINES

:CLOCK INTERRUPT HANDLER

;UPDATES TIME EVERY 1/60 SECOND (60 HZ) OR EVERY 1/50 SECOND (50 H2)

016706
016706

010446

016710
016716
016720

022737
001004
042737

016726
016730
016736
016742
016744
016752
016754

000403
042737
012704

BGNSRV

000001

002314

000100

172540

000100
002410

177546

002312

000002

000074

18:

2$:

3%
4$:

000074

017010

017014
0172016
017020
017022

002406

BIC

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

CMP
BNE

(R4) ,#60.
EXIT2

CLR
TST
INC
cMP

003005
005237
013737

022737
001004
52737
03
052737
012604
000002

EXIT2:

002512
002506

002510

000001

002314

000100

172540

000100

177546

(R4)
(R4)
+
(R4)
(R4)
, #60.

EXIT2

CLR

(R4)

INC
CMP
BNE
CLR

(R4)
(R4) ,#60.
EXIT2
(R4)
.

INC
DEC
BGT
INC

(R4)
CLKBFR
13
CLKACC
CLKCNT.CLKBFR

8IS
BR
BIS
MOV

#100, 34172540
78
#100,34#177546
(SP) +,Ré

TST

002510

BNE
INC

000074

#100,a#177546

MOV
INC
CMP
BNE
CMP
BNE
CLR

TST

021427
001003
005014
005724
005214
005337

R4 ,-(SP)

;SAVE Ré&

;CLEAR CLOCK INTERRUPT ENABLE TO INHIBIT CLOCK INTERRUPTS DURING UPDATING
:OF TIME FIELDS
#1,CLKTYP
WP
;P=CLOCK?
BNE
1s
¢BRANCH IF NOT P-CLOCK
BIC
#100,34172540
;DISABLE P-CLOCK INTERRUPT FACILILIY
;UPDATE TIME FIELDS

000062

016760
016762
016764
016766
016772
016774
016776

UPDATE
MOV

INTERVAL
(R4 )+

(R4)
+

;DISABLE L- CLOCK INTERRUPT FACILITY
JINITIALIZE TICK ADDRESS
JINCREMENT TICK TIME FIELD

;50 HZ CLOCK?
;NO=--BRANCH FOR SERVICING 60 HZ CLOCK
;((R4))=50?
;IF NOT,UPDATING IS COMPLETE

JELSE, ({(R4))=0 (RESET COUNT)
JBRANCH TO UPDATE ''SECOND'" TIME FIELD
; ((R4))=60?

;1F NOT ,UPDATING IS COMPLETE

JELSE,((R4))=0 (RESET COUNT)
;(R4)=(R4)+2 (GO TO NEXT TIME FIELD)
; INCREMENT °‘SECOND'' TIME FIELD
; ((R4))=60?
;IF NOT,UPDATING IS CUMPLETE
s INCREMENT INTERVAL TIME FIELD (STORES
;/RUNNING TIME BETWEEN STATISTICAL REPORTS)
JELSE, ((R4))=0 (RESET COUNT)
sACCESS *MINUTE'' TIME FIELD
s INCREMENT "MINUTE'® TIME FIELD
; ((R4))=60?
;IF NOT ,UPDATING IS COMPLETE
JELSE,((R4))=0 (RESET COUNT)
JACCESS 'HOUR'' TIME FIELD
s INCREMENT ‘HOUR'‘ TIME FIELD
sCOUNT CLOCK TICKS
s TIME NOT EXPIRED

;BUMP ELAPSED TIME
JRE-INITIALIZE TIME INCREMENT
MOV
-RE~ENABLE CLOCK INTERRUPT FACILITY
§s:
CMP
#1,CLKTYP
:P=CLOCK?
BNE
63
:BRANCH IF NOT P=-CLOCK
6$:
78 :
ENDSRV

L10025:

RT]

;SET P-CLOCK INTERRUPT ENABLE BIT
JEXIT

:SET L-CLOCK INTERRUPT ENABLE BIT
JRESTORE R4

SEQ 0C83

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

—d

NNN

-t
b
D

—

olele)

P
oy

3&
2OV NN~~~
NN = O
AN
oo NOWNSB

BGNSRV

005237

4
4

017116

PAGE 4-5

SEQ 0084

002514

CLKTIK

INC

CLKFLD

;INCREMENT CLOCK FIELD TO INDICATE

;/CLOCK IS "TICKING''

ENDSRV

000002

L10026:

BGNSRV

RT1

INTR1
a

ON INTERRUPT WE CHECK FOR ERRORS FIRST, IF NO ERRORS WE
CHECK FUNCTION PERFORMED. WE ACT ACCORDING IF FUNCTION IS:

;1=
: 2=
M
4=~
567-

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

JALL SUCCESSFUL EXITS FROM INTERRUPT ROUTINE TEST RETRY
cLIMIT IF RETRY IS LESS THEN LIMIT THEN LOG SOFT ERROR, CLEAR RETRY
'IF RETRY = 0,

THEN NOTHING

ON ERRORS =~ IF
DO:

DRIVE ERROR
= UNDER NON-INTERRUPT
GET STATUS - INVESTIGATE ERROR TYPE

TR
YR
W

DRIVE RESET - IF ERROR OCCURS AGAIN - FATAL ERROR
IF NO ERROR, EXIT
DRIVE ERROR IS LOGGED UNDER ALL CIRCUMSTANCES

YR SR

DO:

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

Y
LIPS

;
1751
1752

WRITE - UPDATE XFER COUNT, EXIT
READ - COMPARE DATA IF REQUESTED, UPDATE XFER COUNT, EXIT
READ W/NO HDR COMPARE - UPDATE XFER COUNT, EXIT

TR T

— e

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

017110
017110

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

d cd

d ad

d e

)

D —d

S I

NNNNNNSNNNNNNNNAANY NNV ~
N PONOAINDIAINDNIN)
= = d 2
)(WY P
g

—

170

MACY11

IF OPI_NXM INCREMENT RETRY CHECK RETRY LIMIT

IF RETRY EXCEEDED LOG HARD ERROR EXIT
IF

RETRY NOT EXCEEDED RETRY FUNCTION

IN LIST

THAT

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763

1764
1765
1766
1767
1768
1769
1770
1771
1772
1773

1774
1775
1776
1777
1778
1779
1780
1781

1782
1783
1784
1785

017116
017120
017124
017126
017130
017134
017140
017144
017150
017154
017160
017164
017170
017174
017200
017204
017210
017214
017216
017220
017222
017224
017230
017234
017242
017250
017256
017264

017272
017300
017304
017306

010446
013704
000403
010446
013704
013746
013746
013746
013746
013746
013746
013746
013746
013746
013746
013746
013746
010346
010246
010146
010046
005064
016403
016337
016337
016337
016337
016337
016337
005737
100402

000137

MACY11

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

INTR1

002324

INTR2:

002326
002420
002422
002424
002426

:
SAVE

MOV

PAGE 4-6

R4 ,-(SP)

;SAVE PRESENT R4 VALUE

SAVE
R4,-(SP)

;GO SAVE RO-R3
sSAVE PRESENT R4 VALUE

LSTDR1,R4
LSTDRZ,R4

E.CS,-(SP)
E.BA,=(SP)
E.DA,-(SP)
E.MP,~(SP)

;GET THE DRIVE BUFFER OF

SEQ 0085

INTERRUPTING DRIVE

sGET THE DRIVE BUFFER OF _INTERRUPTING DRIVE

E.MP1,-(SP)
E.MP2,-(SP)

CHKSEC,~(SP)

HDRFND ,=(SP)

002476

000122
002420
002422
002424
002426
002430

002420
020432

002432

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

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

MP(R3) ,E.MP
MP(R3) ,E.MP1
MP(R3) ,E.MP2
E.CS
1$
CHKFNC

;SAVE R3
:R2

‘R

;RO

;CLEAR THE WRITE IN PROGRESS FLAG
;GET CSR FOR INTERRUPT
.SAVE ALL REGISTERS NOW!'!

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

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

MACY1

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

SEQ 0086

.SBTTL

1789
1790

;¥$ TQVE SOME SORT OF ERROR LET'S FIND OUT WHICH ONE

OV NN
WA =

b
et cad
b
)
D
md
crd
—

[0 ] 00 0o 00 0o 0o 00 0o 00 OO
N o= wd md ed ek D e d ek

CEERFERARE

1787

017312
017320
017326
017330
017334
017342
017344
017350
017354
017360

013764
032737

017362
017366
017366
017370
017372
017374

005264

001750
002704
005602

017376

000137

021254

017402
017410
017412
017420
017424

032737
001407
012764
005264
000137

020000

002420

004346
000034
020036

000052

017430
017436

032737
001020

014000

002420

017440
017446

032737
001006

002000

002420

002424
040000

021420
000001

000064
002420

002420

1$:

2%:

024432

000100
000034

000776

017464
017472
017476

012764
005264
000557

MOV

R1,#%4

SALLOW ONLY SEEK TRACKING STATE

ERRCNT (R4)

;INDICATE HARD ERROR

4%:

CSERDF

1000

.WORD

NORDY

JMP

EXITI

BIT
BEQ

ANXM_E.CS
3$

sNON-EXISTENT MEMORY?
:NO, KEEP CHECKING

INC
JMP

NXMCNT (R4)
1118

sLOG ERROR
;CHECK RETRY, EXIT BACK

BIT
BNE

#81T12!BIT11,E.CS
;QUALIFING BITS SET”
5%
;YES, CAN'T BE OP1 ALONE

BIT
BNE

#OPI E.CS
4%

;OP] SET?
SYES, CONTINUE

10.,UDERR,ERR1

;WE HAVE AN UNDIAGNOSABLE CONDITION, ONLY COMPQOSITE SET

.WORD
.WORD
.WORD

BREAK
TRAP

ERR9

MMTNXM,RTYPE(R4)

(SERSF

002000

002420

5%:

;ERROR MESSAGE

10
UDERR
ERR1
C$8RK

33%

MoV

#MTOP] ,RTYPE (R4) ;SET UP FOR "OPI'' PRINT

INC
BR

OPICNT(R4)
1118

;CHECK FOR EACH

032737
001060

*WAS 34 SKIP ERROR

1000. ,NORDY,ERR9

;JWE KNOW IT'S NOW EITHER DLT,

017500
017506

SYES., CONTINUE CHECKING
*NO,GET DRIVE STATUS
SGET RID OF HEAD

238

ERRSF

000052

GO CHECK DRIVE ERROR

:DRIVE READY THERE

238
RS,GETDST
#100,R1

U IRAP

004341
000030

*YES,

cMP

BNE
JSR
BIZ

MOV

33s:

:DRIVE ERROR?

#DRDY ,E.CS

.WORD

104422

DA FOR SOFT ERROR PRINT

BIT

.WORD

104454

*NO, CONTINUE

CKDERR

TRAP

3%:

JMP

ERRDF

23%:

;SAVE

#DERR,E.CS

BEQ

INC

000012

E.DA,LSTDA(R4)

BIT

BEQ

104455

017450
017450
017452
017454
017456
017460
017460
017462

CONTROLLER ERROR CHECK ROUTINE

BIT
BNE

#OP] ,E.CS
7%

.LOG ERROR
;CHECK RETRY EXIT BACK

DCRC,HNF, OR HCRC

;OPI QUALIFIER SET?
JYES, THEN IT'S HCRC OR HNF

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

1834
1835
1836
1837
1838
1839
1840
1841
1842

1843
1844
1845

1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857

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

MACY1T

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

SEQ 0087

JIT'S NOW DOWN TO DLT OR DCRC
032737
001406
012764
005264
000541

010000

002420

004334
000026

000052

017534
017542
017546
017552
017556
017562
017564
017570
017576
017604
017606

013737

002424
000064
002342
027216
002340

002342

017610
017614
017616
017616

005737
001510

010720

017622
017626
017632
017634
017636
017642

012746
012746
012746
010600
104417
062706
004537

003265
007544
000002

017646

000473

017510

017516
017520
017526
017532

000022
004327
000102

BIT
BEQ
MOV
INC
BR
6%:

MOV
DEC

#DLT.E.CS
6$

*NO, MUST BE DATA CRC

#MTDLT ,RTYPE(R4) :SET UP FOR 'DLT' PRINT

DLTCNT (R4)
1118

:LOG ERROR
:CHECK RETRY, EXIT

E.DA, CHKSEC
LSTDA(R4)
CHKSEC
RS, CKBDSC

;SET UP SECTOR TO LOOK FOR
:DOWN COUNT FOR PRINT OUT
:DOWN COUNT FOR LOOP UP
$CHECK BAD SECTOR LIST

HDRFND

000052
000044

;DATA LATE?

*WAS HEADER THERE?

1108
*IGNORE ERROR, RETURN
DCRCER(R4)
“ACCOUNT FOR ERROR
AMTDCRC ,RTYPE (R4) ;SET UP FOR 'DCRC'' PRINT

117%:

H#INTEN!WRCHK
,FUNC (R4)

118%
118

118%:

T.DCK

111%
H#FMT
14, #DMPD (K

;DUMP BUFFER?

;NO, EXIT

#DMPDCK
, - (SP)
HFMT14,-(SP)
#2,-(SP)

000006

026272

SP,RO
CSPNTF

ADD

#6,SP

RS, DMPBUF

:DUMP BUFFER

111¢

JEXIT

JSR

JIT'S NOW EITHER HNF OR HCRC.

;IF HCRC AND RDHDR, DETERMINE IF BAD SECTOR BY DOING 40 RDHDRS
;1F 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
JAND PRESENT POSITION UPDATE.
017650
017656
017660
017664
017670
017674
017700
017704
017710
017714
017716
017720
017724

032737

010000
000051
024446
000106
000010

000104
000000
024340
000000

002420

7%:

8%:

BIT
BEQ
MoV
JSR
MOV

BIS

MOV
MOV

JSR
DEC
BEQ
TST
8MI

#HNF ,E.CS

;HEADER NOT

#41. R

*ALLOW FORTY READ HEADERS TO,

1128

FOUND SET?

*NO IT MUST BE HCRC

RS, ISDRST
DRSEL (R4),R2
#RDHDR , R2

;FIND CYLINDER
*READ HEADER

R2,CS(RS)

; ISSUE READ- HEADER

CS(R3)

*1S ERROR SET?

DCS(R4) ,R3

RS _WIRDY
R1
9%

‘WAIT
‘DONE 40 OF THESE?
*YES, GIVE UP WE DON'T HAVE ALL DAY.

*YES, GO DO IT AGAIN

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
000006
002434
002272
000124

MOV
MOV
BIC
CMP
BEQ

017750
017754
017754
017756
017760

005264

000072

INC
ERRHRD

104456
000024

TRAP
.WORD
.WORD
.WORD

003305

017762

005076

017764

000137

020750

017770
017770
017772
017774
017776

000036
002773
005070

020000

000410

020002
020010

002424
027274

020022

013737
004537
005737
001401
000577

020024
020030
020036

005264
012764
000573

000032
004314

020014
020020

9%:

104456

002342

10%:

002340
110%:

000052

11%:
111%:

SEQ 0088

R1,C.HDR

sGET HEADER
sSAVE FOR ERROR REPORTING

R1,PRPOS (R4)
108

;1S CYLINDER HEAD CORRECT?
sYES, GO CHECK BAD SECTOR LIST

MP(R3) ,R1
SMSK ,R1

TRERR(R4)

20.,TRACK ,ERR2
CSERHRD
20

sMASK OUT SECTOR BITS

:TRACKING DRIFT ERROR

TRACK

ERRZ

JMP

SKRETRY

sFIX TRACKING ERROR

ERRHRD

30. ,EXHAUS ,ERR1
CSERHRD
30

;WE CAN'T FIND GOOD HEADER ON THIS TRA(CK

TRAP

.WORD
.WORD
.WORD

EXHAUS

1108

MOV

E.DA,CHKSEC
R5,CKBDTK

;GO CHECK BAD SECTOR FILE

GOERRX

;YES IGNORE ERROR

JSR
TST
BEQ
BR

INC
MOV
BR

ERR1

HDRFND
118

;WAS [T THERE
;NO, LOG IT EXIT

HNFERR (R4)
;LOG IT
#MTHNF ,RTYPE(R4) ;SET UP FOR "HNF'' PRINT
GOF IN
JEXIT

;1T WAS A HEADER CRC ERROR, FIGURE GUT IF IT WAS
;ON A READ HEADER OR READ/WRITE

NA NN NN = O

S
e 00 NN VNV IS (N
N

016301
010137
043701
020164
001415

1931

7
K
PAGE 4-9
11:3
CONTROLLER ERROR CHECK ROUTINE
17-DEC-79

30A(1052)

017726
017732
017736
017742
017746

RooN008008 N

b el v
—
—

h
)
)
d
b e
e
e
ed
d
D e
=
b e
——
) e
d
)
) e
d

OO0
O

—d

0O\ 000000000

QAN A~V

amd

~ ~~ ~

e araNIosaER88888 é&s;nunn:~(h05p0}?0nnunn R332 2ER3

1884

MACY11

020106

022764
001417

000110

013737
004537
005737
001401
000554

002424
027216
002340

005264
012764
000550

000024
004321

017401

000110

000044

1128:

002342

(MP

BEQ

MOV

12%:

13%:

13%

E.DA, CHKSEC

;READ HEADER?

;YES, GO FIND OUT MORE ABOUT

SNO, 1T MUST BE R/W

JSR

RS, CKBDSC

;:BAD SECTOR SEARCH

BEQ

B8R

12$

GOERRX

:NO, MUST BE LEGIT ERROR

INC

HCRCER(R4)

-L0G ERROR

B8R

GOF IN

TST

000052

#INTEN'RDHDR,FUNC(R4)

MOV
MOV

HDRFND

:WAS OUR DA THERE?

:YES, IGNORE ERROR

#MTHCRC ,RTYPE (R4S
aBBA(R4) ,R1

;USE

IT'S BUFFER TO STORE HDRS

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

020112
020120

012737
012702
056402
016403

0000?8

MACY11

002350

SEQ 0089

MOV
MOV
BIS
MOV

#40.
, TEMP
#RDHDR,
R2

;40 CONSECUTIVE HEADERS
;READ HEADER
[4

JSR

DCS(R4) RS
R2.CS(RS)
RS . WTRDY

CS(R3),(R1)+

*READ ALL REGISTERS

TEMP]
148

‘DONE 40 YET?

MOV

MOV
MOV
MOV
MOV
DEC

000006
000006
002350

020170

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

BNE

DRSEL (R&4) ,R2

. (R1)+
MP(R3)
MP(R3)
. (R1)+
MP(R3)
. (R1)+

“WAIT FOR READY

*NO, GO BACK

;WE HAVE 40 HEADERS NOW LETS SEE IF WE CAN VERIFY WHETHER
;OR NOT A BAD SECTOR CAUSED THE ERROR.
(HECK FIRST TO SEE
;IF WE HAVE ANY BAD SECTORS ON THIS TRA(CK.
020172
020176

017402
012701

000110
000050
002000

99%:

15%:

004000
000010

16%:

000110

17%:

020226

020230
020234

020274

001046

MOV
MoV

aBBA(R4)
,R2

DEC
BNE
BR

#40. ,R1
#0P1, (R2)
16%
#HCRC, (R2)
17%
#10,R2
R1
15%
12%

tMP
BNE

R2,aBBA(R4)
21%

BIT

BEQ
BIT
BNE
ADD

;GET BUFFER START
;FORTY HEADERS

;IS OP] SET IN CS
JNO, WELL CAN'T BE HCRC

s INSURE HCR(C W/0PI
sFOUND GO SEE IF IT COMPARES
JNEXT (S

;DONE 40

IMAGE

;1S HEADER F]RST ONE?
;NO, READ PREVIOUS HEADER

JYES, WE'LL HAVE TO GO THRU

< ;AND CHECK OTHERS BEFORE WE
;CAN SAFELY CALCULATE
020236
020242
020246
020252
020256
020260
020264
020266
020270
020274

017401
012703
062701
032711
001416
032711

020276
020304
020310

012737
004537
000137

020314
020316
020322
020324
020326

005012

000110
000001
000010
002000

MOV

18¢%:

BEQ
BIT

004000

BEQ
INC

000017

062701
011102
010201
042702

003667
023520
021254

000002
177700

ADD
BIT

BNE

002246

MOV
JSR
JMP

19%:

,R1
aBBA(R4)
#1,R3
#10.R1
#0PI1, (R1)
19%

#HCRC, (R1)

19%
R3
#15.,R3
18%

AMBDMSC
, WHY

RS ,DRDRV

EXIT1

BIC

;DROP DRIVE DUE TO

;MORE THAN 16 BAD SECTORS

;CLEAR THIS (S

CLR

ADD
MOV
MOV

;' 'SUPPOSED'* BAD SECTOR

R2,R]

#177700,R2

JGET IT'S HEADER ADDRESS
sGET HEADER
s SAVE HEADER

JMASK

ONLY SECTOR

CZRLKBO RLO1/02_PERF EXER

- O

e CEEEERERE
$8832

CZRLKB.MAC

2012

020332

07-DEC-79 09:46
160301
100402
160302
000421
160302

020350

062702
000415

020352

005012
162702

M7
17-DEC-79
11:31
PAGE 4-11
CONTROLLER ERROR CHECK ROUTINE

MACY11 30A(1052)

R3.R1

:BACK UP TO SECTOR WHICH IS BAD
JIF MINUS DO MAGIC

;NO THEN SUBTRACT IS LEGAL
;BRANCH TO CHECK FILE

20%:

000050

;THIS SUB PRODUCES WRONG ANSWER
JEIX IT UP

;60 CHECK FILE

21%:

000006

(R,

R1,R2

#177700.R1

177700

000050

#40. R

228

000050
002342
027216

22%:

020422

021260

GOERRX:

99%
ERREX

020426

021362

GOF IN:

F INERR

002340

R2., CHKSEC
RS, CKBDS(
HDRFND

;CLEAR THIS CS OUT
;GET PREVIOUS HEADER

SEQ 2090

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC~79 09:46

MACY11

30A(1052)

17-DEC-79

11:31

COMMAND SERVICE ROUTINES

7
PAGE 4-12

%8}‘50

.SBTTL

2016
2017
2018

s THERE WAS NO ERROR SO.....000000.
sNOW WE WILL FIND OUT WHICH FUNCTION WE DID TO CAUSE
s INTERRUPT AND ACT ACCORDINGLY.

5020

2021
2022
2023
20264
2025
%859

020432
020436
020440
020444
020446
020450

016401
006201
042701
005301
001002
000137

2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
%82(1)

020454
020456
020460
020462
020464
020466
020470
020472
020474
020500
020502
020504
020506

005301
001565
005301
001421
005301
001500
005301
001002
000137
005301
001432
005301
001440

2042

020510

(4)
(5)
(5)
(5)
2043
2044

020510
020512
020514
020516
020520
020522

104454
000322
002732
000000
000000
000137

000040

020610

021136

COMMAND SERVICE ROUTINES

000044

CHKFNC: MOV
ASR
BIC
DEC
BNE
JMP

FUNC(R4) ,R1
R1
#40,R1
R1
2%
AFWRCK

:GET FUNCTION OF DRIVE
sALIGN THE FUNCTION CODE
SWIPE OUT INT. ENAB (SHIHTED)
JWRITE CHECK??
;NO, BRAN(CH
JFUNCTION #

2%:

R1
AGSTAT
R1
ASEEK
R1
ARDHDR
R1
13
AWRITE
R1
AFREAD
R1
AFWR(K

;GET STATUS?
sBRANCH [F SO...FUNCTION
¢ SEEK?
JBRANCH IF SO...FUNCTION
sRDHDR?
sBRANCH IF SO...FUNCTION
JWRITE?
;NO, BRANCH
SFUNCTION #5
;READ?
;BRANCH IF SO...FUNCTION
JREAD W/NO HDR COMPARE?
;YES = TREAT AS IF WRITE

18:

DEC
BEQ
DEC
BEQ
DEC
BEQ
DEC
BNE
JMP
DEC
BEQ
DEC
BEQ

ERRSF

021222

SEQ 0091

XEXIT:

TRAP
.WORD
.WORD
WORD
HALT
JUMP

210. ,PRGER
CSERSF
210
PRGER
O
EXIT

;SHOULD NEVER GET HERE!'!!

#2
#3

#6
CHECK

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

000001
000114
000054
000054

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

000056

ASEEK:

BIS
CLR
INC

#SKDON, PRFLGS (R4)
;SET SEEK VERIFY NEEDED
RSEEK (R4)
;CLEAR THE RETRY FLAG
SKCNT1(R4)
: INCREMENT COUNT

BLT
INC
CLR

99%
SKCNT (R4)
SKCNT1(R4)

cMP

99%:

000555

AFREAD: BIC

023742

JSR

000042

AFWRCK: MOV

TRAP

000002
023420

000002

000004
023420
023420

000002
000004

000060
023420

000004

020706
020714

032764
001407

000001

020716
020722
020722
020724
020726
020730
020732

005264

000016

104456
000067
003305
005076

10(3) REACHED

:NO,

SYES, BU‘P THOUSANDS

EXIT

#SKDON
, PRFLGS (R4)

;CLEAR THE SEEK VERIFY FLAG

#340
#340,R0
C$SPRI

RS, CKDATA

;CHECK DATA

NEG
ADD

BMP(R4) ,R1
R1
R1,RXFR1(R4)

:BUMP UP XFER COUNT
*MAKE POSITIVE

BHI
INC

2s
RXFR2(R4)

euip 10(10)

cMP

ADD THE BITS

#10000. erR1(R4$ 10(8% REACHED YET

SUB

#10000. ,RXFR1 (R4}

2s:

B8R

EXIT

SBTTL

READ HEADER INTERRUPT SERVICE

TM
BHI
INC
SUB

ARDHDR: MOV

000056

SEXIT

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

BIC
P
BEQ

E.MP.R1
SMSK.R1
PRPOS (R4) ,R1
18

BIT
BEQ

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

.WORD

.WORD
BR
2%:

SSTART 10(8) AT 0

#10000. .RXFR2 (R4)
.1g }0) REACHED YET
2s
:NO
RXFR3(R4)
SYES BUMP 65Kk 10(10)
010000 LRXFR2 (R4}
.MAKE 10(10) 0

INC
SKECNT (R4)
ERRHRD 50. .MSKER,ERR2
TRAP
CSERHRD
.WORD
50

104456
000062
003031
005076
000406
000072

SKCNT1(R4)
, #1000,

READ INTERRUPT SERVICE

000340

002426
002272
000124

005264

JMP

SETPRI
MOV

013701
043701
026401
001442

020734
020740
020740
020742
020744
020746

000056

SEQ 0092

SEEK INTERRUPT SERVICE

.SBTTL

000001

8
PAGE 4-13

.SBTTL

001750

000000
000054
021222

MSKER

ERR?
3s

INC
TRERR (R4)
ERRHRD 55., TRACK,ERR2
TRAP

.WORD

sACCOUNT FOR SEEK ERROR

CS$ERHRD

TRACK

ERR?

;BRANCH AROUND TRACKING ERROR REPORT
sACCOUNT FOR TRACKING ERROR
s TRACKING ERROR

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

2093

020750

5335333

CZRLKBO
CZRLKB

WO
VO NN

b
b wmd
i

ok e e
e

b ed

) md e

—d ad wed amd

nd ed sncd

VIV

PN PN P

"
N

ESTASTS T ST N TS TSTNT S 1,0 ] 81,8

2109

(5)

020750
020754
020762

MACY11 30A(1052)

021032

021054
021060

010742

38:

000056
000056

48:

1$:

010164

000474

ERRHRD

333.,SEXHAU,ERR2

.WORD

333

.WORD
BR

ERR2
18

104456
000106
003116
005312

000432

000012

EXIT

RSEEK (R4)
R1,PRPOS (R4)

:MAKE THIS HEADER PRESENT POSITION

BIC

#SKDON,PRFLGS(R4)

:SET VERIFICATION DONE

B8R

EXIT

CLR
MOV

CEXIT

MOV

E.MP.R1

;GET STATUS

TST

T.ROF

*READ ONLY

28:

BIC

#100.R1

BEQ
BIC

2s
ML R

BEQ

BIT

INC

1$:

:CLEAR OUT HEAD SELECT

#177400,R1

;ANY BITS WRONG

ERRCNT (R4)

;STATUS BITS WRONG

ERRHRD 60. .MDSER,ERR4

003116
005312

005264

EXIT

;ALLOW SEEK

.WORD

000035

;SET UP RETRY

#SKDON.PRFLGS(R4)

TRAP

000034

R1,LSTHDR(R4)

BIC

AGSTAT:

000012

177700

SEXHAU

GET STATUS INTERRUPT SERVICE

010734
020000
177400

MOV

CSERFRD

.SBTTL

104456
000074

010102
042702
022702
001444
022702
001441

SEQ 0093

RSEEK(R4)
;SET RETRY IN PROGRESS
RSEEK(R&),T.SLT ;RETRY EXHAUSTED??77?
4$
:NO, THEN RETRY

.WORD

005264

8
PAGE 4-14

INC
cMP
BLOS
TRAP

032701
001406

SKRETRY=.

005264
026437
101405

013701
042701
005737
001402
042701

11:31

READ HEADER INTERRUPT SERVICE

020764
020764
020766
020770
020772
020774
020776
021002
021010
021012
021020
021024
021030

17-DEC-79

*NO,

CONTINUE

C$ERHRD

.WORD
.WORD

MDSER
ERR&

MOV

R1,R2

;COPY STATUS WORD

#34 ,R2

*COVER CLSD, HEADS OUT, BRUSHES HOME, SEEK TRACK COUNTIN

CMP

#35,R2

*COVER CLSD, HEADS OUT, BRUSHES HOME, SEEK LINEAR MODE

INC

ERRCNT (R4)

BIC

BEQ

#177700,R2
EXIT

EXIT

ERRHRD 70. ,MDSER,ERR4
TRAP

WORD

(SERHRD

.WORD
.WORD

MDSER
ERR&

EXIT

SGET STATE BITS

SYES,

EXIT

SYES,

EXIT

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

21 35
21 36
2137
2 138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
(4)
(5)

(5)
(5)
2157
2158

MACY11 30A(1052)
WRITE

.SBTTL

042764
016401

000001
000042

000056

000006
023420

000006

000010
023420
023420

000006
000010

000062
023420

000010

000036
000052

021240

11:31

INTERRUPT SERVICE

8
PAGE 4-15

WRITE INTERRUPT SERVICE

AWRITE: BIC

MOV
NEGADD
PP
BHI
INC

#SKDON,PRFLGS(R4)

EXIT:

004353

000014

;GET WORD COUNT
:MAKE PQSITIVE
.ADD THE BITS

EXIT
WXFR2 (R&)

:NO = EXIT
YES BUMP 10(10)

#10000. ,WXFR1 (R4S

:10(5) YET?

#10000. ,WXFR1(R4)

:10(5) GOES TO ZERO

TST

BEQ
MP
BEQ
INC

RETRY(R4)
s IN PROCESS OF RETRYING?
ERREX
:NO
RTYP
(R4) ,AMTDRY
E

EXITY
SFTCNT(R4)

ERRSOFT 80. ,MSFER,ERR3
TRAP
CSERSOFT
.WORD
80

" 000036

;CLEAR SEEK VERIFY FLAG

8MP (R4 ) LR
R]
R1,WXFR1(R4)

#10000. .WXFR2(R4)
:10¢10) YET?
EXIT
NO - EXIT
WXFR3(R4)
INC 65K (10) (10D
#10000. ,WXFR2(R4)
;MAKE 10(10)

021244
021244
021246
021250
021252

021254

17-DEC-79

EXITT:

.WORD
.WORD

MSFER

CLR

RETRY (R4)

;YES, LOG SOFT ERROR
;REPORT SOFT ERROR

ERR3

:CLEAR RETRY

SEQ 0094

MACY11 30A(1052)

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

11:31
17-DEC-79
EXIT FOR INTERRUPT SERVICE

2160

042774
012600
012601
012602
012603
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012604

000104

000100

002476
002474
002246
002350
002340
002342
002432
002430
002426
002424
002422
002420

004537

021402

000405
013764
000137
005264

021406
021406
021410
021412
021414
021416

104456
000132
003252
005724
000716

EXIT FOR INTERRUPT SERVICE

ERREX:

BIC
MOV

MOV
MOV

MOV
MOV
MOV
MOV

MOV
MOV
MoV
MOV
MOV

L10027:
022616

002420
021260
000012

PAGE 4=16

.SBTTL

MOV
MOV
MOV
MOV
MOV

000002

FINERR:

000116
1%:

ENDSRV

SEQ 0095

#INTEN,aDCS(R4)

(SP)+,R0
(SP)+ ,R1

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

(SP)+, INCALL
(SP)+,0PCALL
(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
+ ,R4
(SP)

RTI

“

JSR
BR
MoV
JMP

RS ,RCNT
19
E.CS,SOFTCS(R4)
ERREX

ERRCNT (R4)

JINDICATE ERROR

ERRHRD
TRAP
.WORD
.WORD
.WORD
B8R

90. ,MHDER ,ERR13
CSERHRD
90

; NON-RECOVERABLE ERROR

INC

MHDER

ERR13
EXITI

;CHECK TO SEE IF WE HAVE EXCEEDED
SJRETRY LIMIT, IF SO 1% AND REPORT HARD
sNOT EXCEEDED EXIT

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

MACY11

21N
2192
2193

30A(1052)

17-DEC=79

11:31

8
PAGE 4-17

SEQ 0096

DRIVE ERROR INTERRUPT SERVICE

.SBTTL

DRIVE ERROR INTERRUPT SERVICE

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

02146430
021430
021432
021434
021436

005264
004537

CKDERR:

INC
DERCNT (R4)
sACCOUNT FOR ERROR
JSR
RS,GETDST
;GET DRIVE STATUS
;REPORT DRIVE ERROR
ERRHRD 224.,DRVER,ERR9 ;DRIVE ERROR

000020

024432

104456

TRAP

CSERHRD

.WORD

224

.WORD

ERR9

.WORD

)

DRVER

;ACT ACCORDINGLY TO DRIVE ERROR

021440
021444
021446
021452
021454
021460

032701
001027
032701
001070
032701
001153

001000
010000
144000

002000

024446
024432
002000

021512
021514
021522
021524
021530
021534
021540
021542

003157

001407
012737

208:

002246

024446
024432
001000

003132

9s:

002246

021550
021554
021560
021566

004537
000137
032763

023520
021254
000001

000000

021570
021576

012737

002664

002246

012746
012746
012746
010600
104414
062706
004537
000137
012702

003212
007544
000002

001004
000764

000006
022316
021362
000004

#VC.R1
9%
#SKTO,R1
128
#WDE 'HCE ! SPE ,R1

;VOLUME CHECK?
YES, GO ISSUE RESET
SEEK TIME OUT?
YES, ISSUE RESET
:WRITE DATA, CURRENT HEAD,

BIT
BNE
JSR
BR
JSR
JSR
BIT

BEQ
MOV
BR

#JGE ,R1
208
RS, ISDRST
10§
RS, ISDRST
RS,GETDST
#GE R

108
HUGEST , WHY
91

:WRITE GATE ERROR
:YES, ISSUE
RESET
:ISSUE RESET
:GO CHECK DRIVE READY
:ISSUE RESET
:RESET WORK?
WGE CLEAR

JSR
JSR
BIT
BEQ
MOV

RS, ISDRST
RS, GETDST
#vC.R1

; ISSUE RESET
RESET WORK
:VOL CHK CLEAR

JSR
JMP
BIT
BNE

RS, DRDRV
EXiT1
#DRDY,CS(R3)
1018

:DRIVE READY POSTED?
:YES, PRINT RECOVERED

MOV
BR

HDNRDY , WHY
91%

:NO,

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
JSR

#FMT14_,#MRDER
AMRDER,
- (SP)
HFMT14 ,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP
R5,GHDR

:PRINT DRIVE RECOVERED

MOV

¥4 ,R2

SEEK TIME OUT

BNE

024446
021502
021506

BIT
BNE
BIT
BNE
BIT

91%:

10$:

101%:

128:

JMP

108
#MVCER , WHY

FINERR

SPINDLE?

:GO WAIT FOR HEADS TO UNLOAD

YES GO CHECK DRIVE READY
:REPORT WGE DIDN'T CLR
:DROP DRIVE

:YES, CHECK DRIVE READY
:DROP THE DRIVE

DROP DRIVE

;GET THE CURRENT DISK POSiTION - HEADER

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

2237
2238
2239
(3)

021640

021644

(3
(3)
(3)
(3)

004537
012727
000000
013727

000000

MACY11

13%:

024446

000372

JSR

RS, ISDRST

WAITMS

AR
g#?SO.,(PC)*

Mov

. WORD
MoV
.WORD
DEC
BNE
DEC
BNE

002116

021710
021720
021726
021730
021732

032763
001006
005302
001342

000001

021734
021742

012737
000702

003070

002246

021744
021752
021754
021754
021760
021764
021770
021772

032763
001370

040000

000000

012746
012746

003212
007544
000002

NF
14,
MT
MMRDE
MMRDER
.- (SP)
#FMT14 ,-(SP)
#2,-(SP)

000006
022316
021222

#6,SP
R5,GHDR
EXIT

022000
022004

022010
022014
022020
022024

000000

SEQ 0097

;ISSUE DRIVE RESET

;FOUR

TIMES BEFORE

;DROPPING DRIVE

bSDLY,(PC)*

005367 177772
001375
005367 177756
001367-

.021774

PAGE 4-18
30A(1052)
17-DEC-79
11:31
DRIVE ERROR INTERRUPT SERVICE

-6(PC)
o~

-22(PC)
.=20

BIT
BNE
DEC
BNE

#DRDY,CS(R3)
14%
R2

:DRIVE READY YET?
JYES,

CHECK

141%:

MOV

#MDERS ,WHY

;YES,

DROP DRIVE

14%:

BIT
BNE

#DERR, CS(R3)
1418
.

sDRIVE ERROR SET STILL

B8R

138

91%

ERROR CLEARED

:vgi HAVE WE DONE IT FOUR TIMES

;YES,

DROP DRIVE

;WAIT

FOR HEADS

JYES,

(ONTINUE W/ RECOVERY

SP,RO
CSPNTB

012702
004537
032701
001434

000004
024432
000020

012727
000000
013727
000000

000372

”15.
6#250..(PC)*

002116

ESDLY,(PC)*

177772

=6(PC)

15%:

#4 ,R2

RS.GETDST

#BIT4 R

178

;GET STATUS
JUNLOAD STATE

TO UNLOAD

JWAIT A WHILE

177756

022114
022116
022122
022140
022144
022146
022152

012737
000615

003547

004537

024446

012727
000000

000372

013727
000000

002116

16%
AUNLOAD ,WHY
91%

002246
17%:

RS,ISDRST

6#250..(PC)*
6$DLY,(PC)¢

;WAIT LONG ENOUGH
:NO, GO BA(K
;DROP DRIVE

s ISSUE RESET

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

(3
(3)
(3)
(3)
2267
2268
2269
2270
(3)
(3)

022154

005367
001375
005367
001367
032763
001253
012702
012727

(3)
(3)
(3)
(3)
(3)
(3)
2271

2272
2273
2274
(3)
2275
2276
2277
2278

MACY11

30A(1052)

INTERRUPT

DEC
BNE
DEC
BNE
BIT
BNE

=6(P()
l“

177756
000000

000075

18%:

000372

MoV
.WORD
DEC

177772

BNE
DEC
BNE
BIT
BNE
DEC

177756
000000

005302

022312

022316

104422
001343
012737

000137
012763
056463
042763
004537
016301
043701
010164
012764
000205

WAITMS

MOV

. WORD

002116

000001

MoV

003573
021550

002246

000210
000106
000200
024340
000006
002272
000124
004353

000000
000000
000000

000052

BREAK
TRAP
BNE
MOV
JMP
GHDR:

MOV
BIS

BIC
JSR

MOV
BIC
MoV
MOV
RTS

11:31

DRIVE ERROR

177772

040000

17-DEC-79

8
PAGE 4-19

SEQ 0098

SERVICE

=22(P()
.=20

#DERR,CS(R3)
1418
#61.,R2
#10.
g#?SO.,(PC)+

sDRIVE ERROR CLEAR?
:NO, DROP DRIVE
JYES, WAIT 60 SECONDS
;FOR DRIVE READY TO

bSDLY,TPC)*

=6(PC)
.=4

=22(PC)
.~2 0

#DRDY,CS(R3)

14%
R2

; COME BACK

;

;INITIATE PROGRAM CALL

C$8RK
18%

g?gLOAD.UHY

;NO READY DROP DRIVE

#CRDY .RDHDR,CS(R3)

DRSEL(R4)

,CS(R3)

#200,CS(RS)

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

#?TDRV,RTYPE(R4)
R

;SETUP DRIVE ERROR

TO SUPERVISOR

CZRLKBO RLO1/702 PERF EXER
CZRLKB.MA(
Q07-DEC~79 09:46

2292
2293
(2)

MACY11

LSBTTL
STARS

022370

005737
001507
010346
010246
010146
010046
016402
005402

010740

2324
2325

022506
022512

004537
013703

024524
002262

2327
2328
2329
2330
2331
2332
2333

022522
022524
022530
022532
022536
022540
022544

006303
062703
011303
010337
010321
005337
013703

2335
2336
2337
2338
2339
2340
2341
2342
2343
2364
2345

022556
022560
022564
022566
022572
022574
022576
022602
022604
022606
022610

012321
005337
001404
(005337
001371
000763
162702
003306
012600
012601
012602

233,

022516

022550

000406
042703

012737

WRBUF:

000042

020227
002015
020227
002005
062702
162764
010221
005302
010237
05
012737
012721
005737
001003
013703

2326

0176401

002306

022414
022420
022424
022426
022432
022434
022440
022446
022450
022452
022456
022460
0226466
022472
022476
022500

022504

'WRITE'

FUNCTION

.'.'ttttt!tt‘ttttttQttttttQtt'Qtt.t.ttt.tfit.'Qtt"tttttt't.'ttitttt

2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322

2323

BUFFER GENERATION ROUTINE FORP THE

SEQ 0099

FUNCTION

:WRBUF -~ ROUTINE TO WRITE A BUFFER INTO MEMORY.
USES WORD COUNT AND BUS
:
ADDRESS FROM DRIVE BUFFER (R4).
WILL WRITE RANDOM FROM ONE OF
:
8 PATTERNS.
USED BY WRITE FUNCTION AND WRPA(CK ROUTINE.
STARS

(2)

022370
022374
022376
022400
022402
022404
022406
0226412

: 124232232233 232322323232322323282232323222222222 2282223223223 XSRS R 222 R0,

2294
2295 .
2296
2297 022370
2298
2299
2300
2301
2302
2303
2304
2305
2306

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

000110
000200

2%:

000003
000003
000003

000042

002362
000177
000200
010736

002362

4$:
<g:

558

177770

56%:

030004
002364

002362
002364

000020
002362

002366

6%:

002366

000200

8$:

TST
BEQ
MOV
MOV
MOV
MOV
MOV
NEG

MOV
cTMP
BGE
CMP
BGE
ADD
SUB
MOV
DEC
MOV
BR
MOV
MOV
TST
BNE
MOV

REGEN
98
R3.-(SP)
R2.-(SP)
R1.-(SP)
RO, ~(SP)
BMP(R4) ,R2
R2

;REBUILD THE DATA BUFFER?
‘NO —-EXIT
*SAVE REGISTERS
.

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

aRRA (R4) LR
R2.4128.
X
R2.#3
3$
#3.R2
#3_BMP (R4)
R2,(R1)+
R2
R2, TEMP6
5¢
#127. . TEMP6
#128..(R1)+
[ .RAN
55¢
T.PAT ,R3

;RANDOM SELECT OF PATTFRNS
YEA
NO GET.PATTERN OPERATOR

JSR
MOV

RS, RAND
LONUM,R3

“GET RANDOM # FOR PATTERN
*GET RANDOM PATTERN

ASL
ADD
MOV
MOV
MOV
DEC
MOV

R3
#PATLST ,R3
(R3).R3
R3, TEMP?
R3. (R1)+
TEMP6
TEMP?7 ,R3

*WORD OFFSET
;GET PATTERN LIST
*GET LIST ADDRESS
:STOR FOR RECALL
:LOAD IT
*ACCOUNT FOR IT
:PATTERN START

MOV
DEC
BEQ
DEC
BNE
BR
SUB
8GT
MOV
MOV
MOV

(R3)+,(R1)+
TEMP6
8$
TEMPS
7%
6$
#128. ,R2
2$
(SP)+,RO
(SP)
+ R
(SP)+ .R2

-STORE PATTERN
*DOWN COUNT
*DONE?
;DONE WITH PATTERN
*NO, GO BACK
*RESTART PATTERN
*ANOTHER SECTOR TO USE
*YES GO BACK
*RESTORE REGISTERS

B8R

BIC

MOV

568

#177770.R3

#16.,TEMPS8

JWHERE BUFFER IS

*MORE THAN 128 WORDS
.
*YES, BRANCH
*GREATER THAN THREE WORDS
$YES, BRANCH
ZADD 3
:WC UP BY 3
;STORE W(C
*ACCOUNT FOR WC
*LOAD DOWN COUNTER

;LOAD DOWN COUNTER

*WANTS TO USE
0,7

116 ENTRIES

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

236
257

022612
022614

MACY11
)

012603
000208

J
8
30A(1052)
17-DEC-79
11:31
PAGE 4-21
BUFFER GENERATION ROUTINE FOR THE 'WRITE'

MOV
RTS

FUNCTION

(SP)+.R3
RS

2349

_SBTTL RETRY LIMIT ROUTINE

2351

RETRY BUMP, TWO RETURNS = CALL +2 - RETRY EXCEEDED

S%?%

535,
5355
2356
2357

;
022616
022624
022626
022632

026437
001403
005264
005725;

000036

010660

RCNT:

000036

CALL +4 - CONTINUE RETRY

C(MP
BEQ
INC
TST

S§2?

JSBTTL

2362

JWE GO THRU THIS LJIST WHEN CALLED IN ''GETFNC''

5365
2366
2367
2368
2369
2370

2371

:LIMIT REACHED?
"YES TAKE FIRST RETURN
JACCOUNT FOR RETRY
JNEXT RETURN

2358 02263 000205

233

RTS

RETRY(RG).LIMIT
18
RETRY (R4)
(RS)+

“RE TURN

LIST OF FUNCTION ROUTINES

“UIST IS IN NUMERICAL ORDER 1-6
022636
022¢40
022642
022644
022646
022650

022652

000000
015424
015460
015620
015424
015460

(015504

LIST:

‘

.WORD
SKWRT
SKRD
SKRH
SKWRT
SKRD
SKRDRD

;SEEK
;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
READ DATA - READ DATA

SEQ 0100

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

2373
2374
(2)
2375
2376
2377

MACY11

30A(1052)
17-DEC-79
11:31
BAD SECTOR FILE ROUTINE
é?g;gL

022654

8
PAGE 4-22

SEQ 0101

BAD SECTOR FILE ROUTINE

tttttfitttttti*t*tfi*t*'tifit*t*tt*tttt*ttttitfittttttttttttttttttt

:RDBDSC -~ ROUTINE TO RECOVER BAD SECTOR FILE AND SAVE IT FOR
; COMPARISON UPON ERROR ON READS/WRITES & FOR THE SEEK FUNCTION.

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

ICALL

JSR

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.

R5,RDBDSC

R4 WILL

CONTAIN

;GET THE BAD SECT FILE ENTRYS

:THE BAD SECTOR FILE (BOTH FACTORY AND FIELD) LOOKS LIKE THIS:
SERIAL NUMBER LOW 5 DIGITS (OCTAL SERIAL NUMBER)
SERIAL NUMBER HIGH 5 DIGITS

0'S

ENTRY - CYLINDER # FROM O TO 1777 MAX (RLO2) OR 777 (RLOT)

STARS

022654

0'sS

ENTRY - HEAD & SECTOR NUMBER

ENTRY = CYL

ENTRY - HEAD & SECTOR
=1
=1

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

;:tt*ttitttttttfi**tttttt'itttt*tttttttttttttttttitti*ttt*ti***ti*

022654

022702
022706
022712
022720
022722
022726
022732
022734
022740
022744
022746
022752
022760
022766
022772

010046
010146
010246
010346
004537
012764
004537

004537

RDBDSC: MOV

MOV

024446
000010
016574
024340

000006
000001

000044

21%:

002270
177600
000040

004537

024340

23%:
25%:
000040
000044

:SAVE REGISTERS

R2,=(SP)
R3,-(SP)
R5,1SDRST
#RDHDR ,FUNC
R5,LDFUNC

MOV
cMP

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

:GET _HEADER AND CALCULATE
;RLO2 TYPE DRIVE?

BIC
MOV
BR

CYLMSK ,RO
#77600,R1
25%

JHERE FOR RLO1

MOV

#177600,.R1

MOV
BIS
MOV
JSR
JSR

R1,BDA(R4)
#SKHS ! SIGN!MK ,BDA(R4)
#SEEK ,FUNC (R4)
RS, LDFUNC
;SEEK TO THE BAD SECTOR FILE AREA
R5.WTRDY
JWAIT FOR DRIVE READY

BNE

002264
077600

R1.-(SP)

MoV
MOV
JSR
MOV
JSR

JSR

000120

RO,=-(SP)

BIC

SuB

R5,WTRDY

23%

CMSK .RO

RO,R1

¢ISSUE A DRIVE RESET

(R4);READ HEADER TO FIND POSITION

;ON

DISK

;JUMP IF RLOZ

JHERE FOR RLOZ

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

24627
2428
2429
2430
2471
2432
2433

022776

012764

2434

077700

2438
2439
24640
2441
2442

2443

2445
2446
2447
2448
2449
2450

2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2671
2472
2473
2474

023102
023106
023114
023120
023124
023130
023132

023134
023140
023144
023150
023154

012764

000014

005037
012737
016402
012700
012722

002354
003720
000112
000021
177777

016402
016422

000112
000040
000020
016574
024340

005300
001374

11:31

MOV

JSR
JSR

MOV

8
PAGE 4-23

H#RDHDR
, FUNC (R4)
R5,LDFUNC

RS ,WIRDY
MP(R3) ,RO

000120

#77 ,RO
#1,TDR(R4)

000040

#77700,RO
21%
#77700,BDA(R4)

3008

300%:
000040
000042
000044

555%:

002246

5558

#17.,R0
#=1,(R2)+
RO
118

#16. RO

RS5,LDFUNC
R5,WTRDY

000104

023166
023172
023200

024446
000004
002354

000040

#4 ,BDA(R4)

003740
000001

002246
000120

#SWSEC ,WHY
#1,TDR(R4)

077750

000040

aDCS(R4)

023266
023270

000500

2482

023272
023276

017401
012164

177750

000040

:
4008

000040

177724

000110
060100

55%:

3%:

sNO - MUST BE AN RLOZ

;YES - ON BSF AREA?
:NO - SEEK AGAIN
;SAVE THIS HEADER FOR READ COMMAND
NO - SEEK AGAIN
1YES - SAVE FOR THE READ

COMMAND

;SETUP FOR A 2 SECTOR READ IN BSF
1GET THE READ FUNCTION #

sGET POINTER TO LIST TO STORE BSF ENTRYS
;SAVE 1ST ENTRY AS BSF POINTER
;SIXTEEN ENTRIES
sREAD THE BSF SECTOR PAIR
JWAIT FOR DRIVE READY
sWAS THE READ GOOD?

;YES

R5,ISDRST

sNO - ISSUE A DRIVE RESET
;POINT TO NEXT SECTOR

;MANUFACTURING OR FIELD BAD

:MANUFACTURING = 0
;FIELD BAD

;DRIVE = RLO1?

400%
#77750,BDA(R4)
4%

:NO = CONTINUE

BDA(R4) ,#77724
55%

;AT END OF MANUFACTURING BAD
;SEE_IF DONE

6$
BDA(R4) ,#177724
48
6%

;DROP THE DRIVE AND EXIT

5%:

;DRIVE = RLO1?

TEMP3
5%

077724

;GET THE HEADER WORD READ
;CLEAR SECTOR NUMBER READ

sMANUFACTURING/FIELD FILE SWITCH
s START WITH MANUFACTURING BAD
sINITIALIZE LIST TO ALL 1°'S
sSIXTEEN ENTRIES + 1 FOR BSF POINTER
sINIT STORAGE TO -1'S
;DONE?
¢:NO - DO THE NEXT ONE

)
,R2
BSECPT(R4
, (R2)+
BDA(R4)

000040

;WAIT FOR DRIVE READY

TEMP3

#READ ,FUNC (R4)

BSECPT(R4)
,R2

4%:

JREAD A HEADER ON THE BSF

RLOZ BSF AREA?

#HWSEC ,WHY

11$%:

SEQ 0102

#177700,RO
21%
#177700,BDA(R4)
#-256. ,BMP(R4)

023160
023164

2475
2476
2477
2478
2479

2480
2481

000044

177700
177700
177400

17-DEC=79

BAD SECTOR FILE ROUTINE

077700

2435
2436
2437

244k

000010
016574
024340
000006
000077
000001

MACY11 30A(1052)

#177750,BDA(R4)
4%

INO
- MUST BE RLO2
;YES = AT END OF FIELD FILE?

:DROP DRIVE AND EXIT

;AT END OF FIELD BAD FOR RLOZ
:NO GO BACK FOR NEXT
;AT END OF MANUFACTURING BAD?
:BR IF NOT DONE
:YES - REPORT ERROR AND EXIT

,R1
aBBA(R4)
;START OF BSF ENTRY LIST
(R1) +,SERNM1
(R4)
;GET LOW PART OF SERIAL #

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

2483
24684
2485

023302
023306
023310
023314
023316

012164

MACY11

30A(1052)

1%:

002352
002350
002350

002350

1118:

092350

002352
003667

023470

28:

000001

000120

077724

000040

177724
000001

000040

002354

3508:

36%:

JHERE

023472

004537

023520

6% :

SEQ 0103

cLC
ROR
BCC

TEMP1
1118

TEMP1

sPUT CYLINDER

BIS

#8IT15, TEMPI

MOV

TEMP?2 . TEMP1

MOV

BIS
ASR
ASR
BIC
BIS
DEC
BNE
MOV
BR

002246

PAGE 4-24

(R1)+,SERNM2
(R4)
;GET HIGH PART OF SERIAL #
(R1)+.,(R1)+
:SKIP PAST JUNK
(R1)+. TEMP1
.
sGET CYLINDER
28
;END OF THE ENTRYS?
(R1)+,TEMP?2
sNO - GET HEAD (0 OR 1) & SECTOR NUMBER

BIC

002352

002354

MOV
CMP
MOV
BMI
MoV

SWAB

002350

11:31

BAD SECTOR FILE ROUTINE

000102

002350

17-DEC=79

TEMP1, (R2)

#177700, TEMP1
TEMP1, (R2)
TEMP2
TEMP2

#177677,TEMP2
TEMP2, (R2) +
RO
1%
#MBDMSC
, WHY
63

IN HIGH BYTE

;STORE THE CYLINDER PART

;GET SECTOR
sLEAVE ONLY SECTOR
;SET IN SECTOR BITS

;POSITION THE HEAD SELECT BIT
;CLEAR ALL OTHER BITS
;SET IN HEAD
;COUNT THIS ENTRY FROM BSF
cALLOW MORE ENTRYS?
¢MORE THAN 16 BAD SECTORS
;DROP THE DRIVE & ERROR EXIT

TST
BNE
CMP
BNE
MOV

TEMP3
78
#1,TDR(R4)
350s
#77724 ,BDA(RS)

JSWITCH TO FIELD BAD OR QUIT

MOV

#177724 ,8DA(RS)

;POINT TO 1ST SECT

B8R

;PROCESS THE FIELD BSF

MOV

368

#1,TEMPS

TO DROP THE DRIVE

JSR

IF MORE

RS5,DRDRV

JQUIT, 78
;DRIVE = RLO1?
:NO - MUST BE AN RLOZ
JYES ~ POINT TO FIELD BSF 1ST SECTOR

THAN 16.

ENTRYS OR IF

:DROP THE DRIVE

JHERE TO PUT HEADS 'HOME' AND TO EXIT
023476
023502
023504
023506
023510
023512

004537
012603
012602
012601

012600
000205

025670

7$:

JSR

R5,HDHOME

MOV
MOV
MOV
RTS

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

MOV

(SP)+,R3

IN FIELD FILE FOR RLOZ2

;INDICATE NOW DOING FIELD BSF

;BRINGS HEADS HOME

CAN'T FIND A BSF

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

2529
2530

MACY11 30A(1052)

17-DEC~79

ROUTINE TO DROP DRIVE
é§2;£L

023514

11:
3

8
PAGE 4-25

SEQ 0104

ROUTINE TO DROP DRIVE

ttt**ttttit**t*tt**tittttttttttfi.*tttttt**tt'ittttt'tttttittttt

:DRDRV =~ ROUTINE TO DROP A DRIVE FROM RUNNING
:
R4 HAS BUFFER POINTER OF DRIVE TO DROP

;

023514

STARS
s

023514
023520
023522
023524

002474

e RA AR

WE CLEAR BIT IN 'DRUT'’, NOT 'DRPRS'’

R A AR A AR A AR

ODRDRV: INC
DRDRV:
MOV
MOV

MOV

002476

INC

CLR

030432
000001

1%:

MOV
MOV
CMP
BEQ

023562

140137

002474

2$:

002476
002474
002416
002414

6%:

000071
002252

TST

OPCALL

;CALLED VIA OPERATOR?
;YES - SKIP CODE
sNO - CALLED BY DIAGNOSTIC

HOUR,DPHOUR
(R4)

;TIME AT WHICH IT WAS DROPPED
s HOUR/MINUTE

sNO SHIFT MASK
sNEXT BUFFER
:6GC BACK

MINUTE ,DPMIN(R4)
3$
DPMIN(R&)

;IF MINUTE O,
sMAKE 1.

PRINTF

AFMT14C

;PRINT A <CR> & <LF>

BNE
INCB
BI(B

R1,DRUT

000004
006220

ADD
JSR
PRINTF
MOV
MoV
MOV
MOV
MOV

#4 ,SP
PC,LINE?
AKFMT7 ,ADROP,WHY
WHY,~(SP)
#DROP,~(SP)
#FMT7 ,-(SP)
#3,-(SP)
SP,RO

000019

ADD

#10,SP

104417

*IS THIS THE DRIVE?

*YES GO DROP IT

mMovs

062706
004737

010013
000001

:START OF DRIVE BUFFERS
s MASK

6$
R3
R3,RO
C$DODU
INCALL
OPCALL

MOV
MOV
MOV:

012746
012746
010600

;SAVE REGISTERS

INCALL

007562
000001

013746

RN RANNRARAARARR

BNE
DODU
MOV
TRAP
CLR
CLR

MovB

3s:

R3,-(SP)

012746
012746
010600
104417

023720

000070
000071

OPCALL
R1,-(SP)
RZ2,~(SP)

RN RN AAN

INC

023560

AR RN RN

#DRBUF ,R?
#1,R1
R4 ,R2
2%
R3
R1
#PRPOS+
,R2
2
1%

ASL
ADD

000126

AT AR A AN

TRAP

PRINTF

MOV
MOV
MOV

TRAP

H#FMT14C,-(SP)
#1,-(SP)
SP,RO
CSPNTF

CSPNTF

#FMTST

N#FMTS1,-(SP)
#1,-(SP)
SP,RO
CSPNTF

;CLEAR THE DRIVE FROM BIT MAP

ROUTINE

17-DEC-79

TO DROP DRIVE

11:31

023722

062706

000004

ADD

#4,5P

023726

004737

014024

JSR

PC.REPORT

023732

012603
012602
012601

MOV
MOV
MOV

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

023740

000205

RTS

(SP)+,R3

PAGE 4-26

SEQ 0105

MACY11 30A(1052)

r—~

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

JRESTORE REGISTERS

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

2574
2575
2576
2577
2578
2579
2580

MACY11 30A(1052)

17-DEC~79

ROUTINE TO CHECK DATA

.SBTTL

11:3

PAGE 4-27

SEQ 0106

ROUTINE TO CHECK DATA

;ROUTINE TO CHECK DATA ON READ
023742
023746
023752
023754

002306
010674

CKDATA:

002310

108:

97%:

CLR
TST

BNE
RTS
TST
8EQ
RTS

108
RS
KILLDC
97%
RS

SETPRI
MOV

#4340
#340,R0

MOV
MOv
NEG
MOV

aBBA(R4)
,R2
BMP(R4)
, TEMPT
TEMP1
DELMT, TEMP?

MOV

CMRD
, TEMP3

TRAP

002350
002352

002354
002346

024052

CLR

96$:

MOV
MOV
DEC
BEQ
DEC

012237

REGEN
CMRD

MOV

C$SPRI

DECNT

#126. ,TEMPO
(R2) +,R1
TEMP1
CEND
R1
(R2)+,TEMP4

sCLEAR THE REGENERATE DATA FLAG
;DO WE WANT TO CHECK ANY?

JYES - SEE

cNO = EXIT NOW

FORCED EXIT

s INHIBIT FLAG SET?
sNOPE - OK TO PROCEED
:NO, EXIT

:BUFFER START

;WORDS READ IN

sMAKE POSITIVE

;# ERRORS TO BE PRINTED

JINIT ERROR COUNT
:# WORDS TO BE COMPARED

2126 WORDS

sNON=-ZERO WORDS

;PATTERN ADDRESS

;MAKE SURE PATTERN ADDRESS IS LEGAL

024056
024062
024066
024072
024074
024076

012700
012703
022037

024100
024104
024106
024106
024110
026112
024114
024116
024122

005237
024242

024124

98$ :

002306

104456

#PATLST
RO
#8. ,R3

BEQ
DEC
BNE

99%
R3
98s

INC
e
ERRHRD

REGEN
=(R2) ,=(R2)

cMP

002356
002350

002354

99%:

.WORD

NOREV

DEC

002360

1%:

TST
BEQ
TST
BEQ
TST

TEMP
CEND
TEMP3
CEND
R1

MOV
DEC
MoV

sGET LIST OF PATTERNS
sONLY EIGHT
SFOUND IT YET
;YES, CONTINUE
:NO, EXHAUST LIST YET
;NO, GO BACK

:SET THE DATA REGENERATE FLAG

180. ,NOREV,ERR12 .

CS$ERHRD

.WORD
JSR
RTS

027006

(RO) +,TEMP4

TRAP

.WORD

002350
024152
024156
024160

MOV
MOV

180

ERR1?2
R5,STDMP
RS
TEMP4 ,R3
TEMP1
#16., TEMPS

sACCOUNT FOR PATTERN ADDRESS
:GET ADDRESS
sACCOUNT ONCE AGAIN

216 ENTRIES TO PATTERN

sANY WORDS READIN LEFT?
¢NO, GO TO END
JHAVE WE EXHAUSTED COMPARE LIMIT?
;YES GO TO END
;WE CHECKING PATTERN OR ZERO FILL?

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

0264162
024164

MACY11

17-DEC-79
11:31
ROUTINE TO CHECK DATA

30A(1052)

BEQ

002356
000020 —002366002402
002360
3s:

002306
002344
024252

002352

024270

002350

024314
024320
024322
024326
024326
024330
024332
024334
024336

cMP
BEQ

GDDAT, (R2)
5%

CLR

BEQ

ERRHRD

002354
002344

CEND:

000042

MDCER

DEC
BEQ
TST

ERR8
TEMP?

TEMP]
CEND
(R2)
+

TEMPO
96$
TEMP3
1%

TST

DECNT

ERRHRD
TRAP

.WORD

JWITHIN PATTERN
;YES SKIP
;NO, START OVER
;16ENJIRIES
;GET PATTERN
;DOWN COUNT

JZERO FILL
;CORRECT DATA
JYES YES NEXT
sNO = SET REGENERATE FLAG FOR WRT OPERATION
;COUNT THF DATA ERROR
JCOUNT ERROR FOR THIS DRIVE
;DO WE WANT TO PRINT IT
;JNO,SKIP

185

DEC
BEQ
DEC
BR
BEQ

;ZERO FILL SKIP

;PATTERN

185. ,MDCER,ERR8

.WORD

NEG

1%:

REGEN
DECNT
DATCER(R4)
TEMP2

CSERHRD

.WORD
DEC

5%:

GDDAT

TRAP

.WORD

002346

024312

B8R

INC
INC
INC
TST

000074
002352

024254
024254 024256
024260
024262
024264

PAGE 4-28

R1
DEC
TST
TEMPS
BNE
2%
MO
TCMP4 ,R3
MOV———
#16. , TEMPSMOV
(R3)
+ ,GDDAT
DEC
TEMPS5

002360

002402
002402

JACCOUNT FOR PRINT

;WORDS READ IN
sNEXT WORD

;WORDS TO CHECK

;DO WE WANT TO PRINT SUMMARY
JNOLEXIT
BMP (R4)
JMAKE POSITIVE WORD COUNT
190. ,MDCER,ERR6 ;DATA ERROR SUMMARY 1%

C$ERHRD

190

.WORD
.WORD

MDCER
ERR6

RTS

SEQ 0107

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

ggg?

.SBTTL

2662
2663
2664

;
JROUTINE TO WAIT FOR CONTROLLER READY UNDER FLAG
;MODE.
WUSED IN INITIALIZE PORTION OF PROGRAM, l.E.,

Sggg
0264340
024342

2670

024350

2669

010046
010146

WTRDY:

0264344

012701

001750

(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
2671
2672

024350
024354
024356
026362
026364
024370
024372
024376
024400
024406

012727
000000
013727
000000
005367
001375
005367
001367
032774
001006

000002

2676
(4)
(5)
(5)

2678
2679
2680

2673
Sg;g

zé;;

MOV
MOV

RO,-(SP)
R1,-(SP)

;SAVE REGISTERS

MOV

#1000. ,R1

005301
001356

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
BIT
BNE

DEC
B8NE

MAR2.,(PC)+
0
LSDLY, (PC)+
O
-6(PC)
.4
=22 (PC)
.=20
#CRDY,aDCS(R4)
23

024414
024414
024416
024420

104455
001752
002654

ERRDF
TRAP
. WORD
.WORD

1002. ,NOCRDY ,ERR1?2
CSERDF
1002
NOCRDY

024424
024426
024430

012601
012600
000205

MOV
MOV
RTS

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

024410
0264412

0264422

1%:

002116
177772

177756
000200

000104

005716

WAITUS

.WORD

2%:

SEQ 0108

ROUTINE TO WAIT FOR CONTROLLER READY

JGETTING BAD SECTOR FILE, WRITING PACK INITIALLY.

\2667
2668

#2.

R1
18

JWAIT A WHILE

:READY SET?
JYES, EXIT
;TIMED OUT?
+NO GO BACK

ERR12

JRESTORE REGISTERS

‘

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
G7-DEC-79 09:46
2682
2683
2684
2685
2686
2687
2688
2689
2690

MACY11

30A(1052)

17-DEC-79

11:31

PAGE 4-30

SEQ 0109

GET STATUS/DRIVE RESET ROUTINE

.SBTTL

GET STATUS/DRIVE RESET ROUTINE

:ROUTINE

TO ISSUE DRIVE RESET

JALSO GET STATUS, R1 HAS STATUS IF GS

;USES R3, DOES NOT SAVE IT
024432
024436
024444
024446
024452
024460
024466
024474
024502
024506
024514
024516
024522

016403
012763
000405
016403

000004

000200
024340
000013
000006

024524

000004
000000
000000
000000
000004

GETDST: MOV
MOV

DCS(R4) ,R3
#GSBIT ,DA(R3)

ISDRST: MOV

DCS(R4) ,R3

MOV
CSTUFF: MOV
BIS
BIC
JSR
CMP
8EQ
MOV
1%:

RTS

CSTUFF

#DRST ,DA(R3)
#CRDY !GSTAT,CS(R3)
DRSEL
(R4) ,CS(R3)
#CRDY,CS(R3)
R5,WTRDY
#DRST ,DA(R3)
19
MP(R3) ,R1
R5

STARS
SRR AR R

AN A AN R AN AN A AN AR R A AR A AN AARRRRRANARRRRRANIRAARN
RN
AARA NS

JRAND ~=

024524

STARS

ROUTINE TO GENERATE A RANDOM NUMBER

;;tt*ttt**ttttt*ttttttt*tttttttttttttttfi*tfifit*ffitttttti'ttttttttt

024524
024526
024530

010146
010246
010346

024532
024536
024542
024546
024550
024552
024554
024556
024562

013703
013701

RAND:

002262
002260
177771

002262
002260
001057

047401
002260
002262

024620

MOV

R1.-(SP)

MoV

R3.~(SP)

MOV
MOV
MoV

LONUM _R3
HINUM,R1
#-7.R2

MOV

ASL
ROL

INC
BNE
ADD
ADC
ADD
ADD
ADD
MoV
MOV
MOV
MOV
MOV
RTS

R2,-(SP)

R3
R1

R2
1%
LONUM,R3
R1
HINUM,
R1
#1057 ,R3
R1
#47401 ,R1
R3,HINUM
R1,LONUM

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

(SP) +,R1
RS

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

2730
2731
(2)

WACY11

024622

2743
2764
2745
2766
2747
2748
2749
2750
2751
(8)
(7)

2767
2770
2771
2772
2773
2774
2775
2776
2777

ROUTINE

PAGE 4-31

SEQ 0110

INITIALLY

TO WRITE PACKS INITIALLY

PR Y
Y
T
N
I
I

TO WRITE

PACK WITH PATTERN,

ALL

WRITTEN (EXCEPT BAD SECTOR TRA(CK)
FORMAT

IS # OF

WORDS

(WORD

PATTERN (WORDS 3 - 128)

1),

TRA(CKS WILL

PATTERN ADDRESS

(WORD 2)

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.

WE DO WRITES,

024622
024624
024626
024630
024632
024636

STARS

010046
010146
010246
010346
016446
005764
001016

012746
012746
012746
010600
104417

(4)

2768
2769

é?g;gL

CALL:

JSR

RS, WRPA(CK

JWRITE THE PACK SELECTED

:;*fi*tt**tttttfitttfifitt'itttttttttt'ttttt*'tttttttt'.it'tfit't.t*ii

(3)
©)

2766

TO WRITE PACKS

024622

(6)

2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765

11:31

ROUTINE

URPACK == ROUTINE

2736
2737

17-DEC~79

CCARNAAAAARARAARANAARARARRAANN
AN RANANRAAANR NN N RN ARANANARANNRANAAR AN

2732
2733
2734
2735

2738
2739
2740
2741
2762

30A(1052)

WRPACK:

MOV
MOV

000110

000122

MOV
TST

BBA(R4) ,-(SP)
WRIPG(R4)

MOV

MMSWRPK
, =~ (SP)

BNE
PRINTF

004400
007747
000002

MOV
MOV
MoV
TRAP

000006

006220
025670

1$:

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

1%
#FMT18,#MSWRPK

;SEE

IF WRITE

IN PROGRESS

;JUMP [F DON'T WANT MESSAGE ON RECOVERY
;MSG. "WRITING PACK''

HFMT18,-(SP)
#2,-(SP)
SP,RO
CSPNTF

ADD
NOP
NOP

#6,SP

JSR

RS ,HDHOME

JSR

;SAVE REGISTERS

PC.LINEZ

;PRINT TIME-RCLS & DRIVE
;HEADS HOME

;¥2:c2CTUALLY WRITE DATA OUT ON PACK, WI'L NOT WRITE LAST
024704
024710
024712
024720
024722
024726
024730
024734
024736
024740
024744
024746
024752
024754
024760
024764

002350

000001

000120

CONWR:

077600
002350
177600

65%:

002350

012603

025670
000110

ENDWR:

(LR
CLR
(MP
BNE
cMP
BNE
TST
BEQ

BR
MP

BNE

TST
BEQ

JSR

MoV
MOV

TEMP1
Rl
#1,TDR(R4)

; TEMP1=HEAD
JR1=CYL

459
#077600,R1

STWRT
TEMP]
STWRT
ENDWR
#177600,R1
STWRT
TEMP1
STWRT
RS, HDHOME
(SP)
+ ,BBA(R4)
(SP)+ ,R3

JNO GO WRITE

TRACK

JYES, CHECK IF HEAD =
;HEAD = 0 GO WRITE

JHEADS HOME

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

2778
2779
2780
2781
2782

024766
024770
024772
024774

MACY1T

30A€1052)
ROUTINE

012602
012601
012600
000205

17-DEC-79

11:31

TO WRITE PACKS
MOV

MOV

MOV
RTS

PAGE 4-32

SEQ 0111

INITIALLY

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

sTHIS PORTION WILL WRITE

JEND EXIT
THE PACK USING MULTIPLE

SECTORS

;ERROR OCCURS WE WILL GO TO 2% AND INDIVIDUAL SECTORS.

024776

002436
175400

002306
022370
000040
002350
000122

025024
025030
025036
02504¢
025044
025052
025054
025060
025064
025072
025100
025104
025110

000124
025464
000040
002436
000012
016574
024340
000104

025114
025116
025122

000110
000042

000040

012764
004537
004537
005774
100763

000002
016574
024340
000104

025150
025154
025160
025162

062702
022702
001321
000137

000012
000050

CLR
MOV

MOV

INC

JSR

201$:

MOV

762%:

BIS

000040

000110
000044

024446

025124
025132
025136
025142
025146

STWRT:

000044

205%:

JSR

203%:

MOV

R2
#8UF1,BBA(R4)

JINITIAL SECTOR O
;BUFFER START

aDCS(R&4)
203%

s ERROR

#-1280.,.BMP(R4) ;10 SECTORS
REGEN
sSET THE GENERATE BUFFER FLAG
RS, WRBUF
JWRITE BUFFER INTO MEMORY
R1,8DA(R4)
;SET UP SECTOR
TEMP1 ,BDA(RG)
WRIPG(R4)
JWRITE IN PROGRESS?
762%
:NO - JUMP OVER
PRPOS
(R4) ,BDA(R4) ;YUP - ON CYLINDER NOW?
762%
JYUP = WRITE THIS AREA
952%
;NO - LOOK AT NEXT AREA ON DRIVE
R2,BDA(R4)
#BUF 1 ,BBA(R4)
JSET UP TO WRITE
MWRITE ,FUNC(R4) WRITE
R5,LDFUNC
R5,WIRDY
;WAIT FOR READY
R5,ISDRST

AWRCHK
, FUNC (R4)

R5,LDFUNC
RS ,WTRDY
aDCS(R4)

:ERROR

#10. ,R2
#40. ,R2

JNEXT GROUP
;DONE?

205%

201%
952%

025464

JYES GO DO SECTORS INDIVIDUALLY

;NO, GO BA(CK
;YES NEXT TRACK

;1F AN ERROR OCCURS THEN WE COME HERE AND DO THE TRACK SECTOR
.BY SECTOR.
025166

2%:

025170
025176
025202
025210

000040
002350
000040

025214
025222
025226
025232

002436
022370
002244
002344

177600

005037

000042
000040

3%:

000110
91%:
98%:

CLR

JRZ2 = SECTOR

MOV

#-128. ,BMP(R4)
R1,BDA(R4)
TEMP1 ,BDA(R4)

;LOAD WORD COUNT
;SETUP DISK ADDRESS

MOV
BIS
8IS

MOV
JSR
(LR
CLR

RZ ,BDA(R4)

1 ,BBA (R4)
#BUF
RS, WRBUF
RWCNT

DECNT

JWRITE A BUFFER

;CLEAR RETRYS OUT

(ZRLKBO RLO1/02 PERF EXER
C(ZRLKB <MAC
07-DEC-79 09:46
2834
2835
2836

025236
025264
025250

012764
004537
004537

000012
016574
024340

025254
025260

005774

000104

100021

025262
025270
025274
025300

000040
027216
002340

025302

002344
002344

025324
025330
025336
025342

002242
000002
016574
024340

025346
025352

000104

025354
025362
025366
025372

000040
027216
002340

025374

002242
002242

025400
025406
025410
025414

11:31
17-DEC-79
PAGE 4-33
TO WRITE PACKS INITIALLY

000044

96S$:

MOV
JSR
JSR

MJRITE ,FUNC(R4)
RS.LDFUNC
RS,wWTRDY

JWRITE FUNCTION

TST
8PL

aDCS(RL)

;ERROR ON WRITE?
;NO, GO READ

MOV
JSR
TST
BNE

BDA(R4) ,CHKSEC
R5,CKkBDSC

802%

JYES, CHECK IF SECTOR [S IN
;BAD SECTOR FILE
JIF SET, IT WAS
JYES GO TO NEXT SECTOR

INC
cMP
8EQ
JSR
8R

DECNT

sNO, GIVE IT 3 TRYS TOTAL

801%
R5,ISDRST
96$

:TRY RECOVERY AGAIN

CLR
MOV
JSR
JSR

RECNT
#WRCHK
, FUNC (R4)

;READ/VERIFY

TST
B8pPL

aDCS(R&)
95%

MOV

BDA(R4) ,CHKSEC
R5,CkBDSC

ROUTINE

002342

000003

000044

85%:
80%:

002342

JSR
TST
BNE

000020

85%

HDRFND

DECNT ,#3.

R5,LDFUNC
RS ,WTRDY

R5, INBAD
R5,ISDRST

025426
025432
025436
025440
025444
025444
025446
025452
025456
025460
025464

000012
000047

95%:

#10. ,R2

025176

025464
025470

005737
001420

025472

005037

002350

R2.439.
951s
33

#40. ,R2

952%:

sCLEAR RETRY COUNT
THE

SECTOR WRITTEN

;ISSUE A WRITE-CHECK FUNCTION
;WAIT FOR DRIVE READY

;ERROR ON READ?

;BR IF OK ... GET THE NEXT SECIOR
;CHECK IF SECTOR IS

;A KNOWN BAD SECTOR

;GIVE IT ANOTHER CHANCE
;16 RE-READS BEFORE HARD ERROR

801%:
802%:

000050
000012

;1T MAY HAVE BEEN NOISE.
;BR IF AT RETRY LIMIT - BAD SECTOR
JRESET THE DRIVE & TRY AGAIN

RECNT
RECNT ,#16.

025550
024446

951%:

JWAIT FOR WRITE TO FINISH

;1T WAS THEN
;GO TO NEXT SECTOR

025416

025176

SEQ 0112

802%

HDRFND

801$
RS, ISDRST
80%

024446

025422

30A(1052)

024446

025322

MACY11

R2,#10.
952%
3%

:REPORT ERROR

JRESET

IF AT RETRY LIMIT

THE DRIVE

;AND RETRY AGAIN

;REPORT

THE BAD SECTOR

cRESET THE DRIVE FOR THE NEXT OPERATION

JNEXT SECTOR (OFFSET BY 10)

:DONE WITH TRACK?
;YES NEXT

TRACK

;NO GO BACK FOR NEXT SECTOR

sNEXT SECTOR
;DONE WITH TRACK?

YES

;NO

TEMP1
5%

;WHICH SURFACE?

TEMP1

;BOTTOM,

;TOP (0), BRANCH

SWITCH TO TOP WITH

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

025476
025502
025510
025516
025522

062701
012764
012764
004537
004537

000200
000205
000006
016574
024340

025526

000137

024712

025532
025540
025546

012737
012764
000760

000100
000021

025550
025552

010146

010137
104456
000307
002736
005716
005264
005737
001413
026437
103407

012737
004537
012705
012601
000205

000104
000000
000002
000004

MACY11

000040
000044

002350
000040

30A(1052)
ROUTINE

17-DEC-79

TO WRITE PACKS
ADD

:
4%

11:31

MOV

PAGE 4-34

SEQ 0113

INITIALLY

#200,R1
#205 ,BDA(R4)

;SEEK, GO IN ALSO

MoV
JSR
JSR

#SEEK,FUNC(R4)

JMP

CONWR

5%:

MOV
MOV
BR

#HEAD , TEMP1
zi1.BDA(R4)

JWAS

INBAD:

MOV
MOV

R1,-(SP)

s SAVE R1

RS,GETDST
R1.E.MP

;GET THE CURRENT DRIVE STATUS
“SAVE IT AS ''(RLMP)'’ DATA

002420
002422
002424

MOV

024432
002426

R5,LDFUNC
RS ,WIRDY

DCS(R4) ,R3
CS(R3) ,E.CS
BA(R3) ,E.BA
DA(R3) ,E.DA

199. .NWRTS ,ERR12

;GO SEEK

TOP, MAKE BOTTOM.

;GET THE (SR ADDRESS
;GET THE ERROR INFO FROM (SR

CSERHRD
199

NWRTS

ERR12

000012
010722
000012

010662

003322
02352C
024754

002246

ERRCNT (R4)
T.DRP
P 3

sARE WE

:NO

;NO
;N

ERRCNT
(R4) ,ERLMT;PAST

#ERLMTM,
WHY

COUNTING ERRORS

RS ,DRDRV
#ENDWR ,RS

(SP)+ ,R1
RS

JRESET R1

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

2927
2928

(2)
2929
2930
(2)
2931
2932
2933
2934
2935

MACY1

30A(1052)

HEADS HOME ROUTINE

.SBTTL

025670

17-DEC-79

ARS

11:31

9
PAGE 4-35

SEQ 0114

HEADS HOME ROUTINE

t'ifitttfitt*ttt'fitfittt"ttttttttttfiitt't!ttttfititttttifi*ttttti'i

HDHOME == ROUTINE
STARS

025670

TU BRING HEADS OVER TRACK 0

IR E AR A AR A AR AR AN AR RN R RN

025670
025672
025700
025704

000010
016574

024340

025710
025714
025720
025724
025730
025736

025744
025750
025754
025760
025762

000044

000006
000177
000050
000040
000001
000006
016574
024340
000124

000205

HDHOME :

RS ,LDFUNC
R5,WTRDY

;GO DO IT.

MOV

MP(R3) ,RO

MoV
MOV

BIS

Mov
JSR

JSR
CLR

MoV
RTS

AN AAANANANNRNRARR AR RA NN

;SAVE RO

#RDHDR ,FUNC (R4)

JSR
JSR

AN AANN

RO,=(SP)

MOV
MOV

BIC

000040
000044

A A AN A AR

#177 ,R0
RO,LSTHDR(R4)
RO,BDA(R4)

#MK ,BDA (R4)
#SEEK,FUNC(R4)

RS,LDFUNC
R5,WTRDY
PRPOS (R4)

(SP)+,RO
RS

+READ HEADER

.GET HEADER
JONLY CYLINDER
;SAVE

THIS CYL # AS

THE LAST POSITION

cMOVE IT TO BUFFERED DA
;SET MARKER FOR SEEK TO 000
;LOAD SEEK
. SEEK!
JWAIT,

JSET BUFFER TO HOME CYLINDER (000)

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

MACY11

30A(1052)
17-DEC-79
11:31
RANDOM WC AND DA ROUTINE

9
PAGE 4-36

025764

.SBTTL
STARS

2951
2952
2953
2954
2955
2956
2957
2958

025764

GNCDA -~ ROUTINE TO GET RANDOM SECTOR AND WORD COUNT FOR R/W TRANSFER.
M
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
STARS

2959
2960
2961
2962
2963

025764
025772
025774
026000

(2)

2964

2965
2966
2967
2968
2969
2970
2971
2972
2973
2974

2975

2976
2977

026002

026006
026012
026016
026022
026024
026026
026030
026032
026036
026040

026042

tttttttt*tttttttttttttttttt*ttttttttttttttttttttttttttttt*ttttt

";tttttt*tttttttttttttttttt*ttttt*t*ttttttttttttttttttt*tt*tttttt

023737
001003
013702
000421

004537

013702
042702
023702
103003
006202
005202
000770
020237
103002
006102

010714

010716

024526

99$

002262
177700
010714

1$:

010716

3$:

000763

(MP
BNE
MOV
BR

T.MXS,T.MNS
99s
T.MXS,R2
5§

MOV
BIC
CMP
BHIS
ASR
INC
BR
CMP
BHIS
ROL

LONUM,
R2
#177700,R2
T.MXS,R2
3%
R2
R2
1%
R2.T.MNS
5%
R2

JSR

RS .RAND

B8R

;MIN MAX SECTORS EQUAL
*NO, CALCULATE ONE
:LOAD SECTOR
:GO GET WC

~GET RANDOM # FOR SECTOR
:0-77 ONLY
*R2 LOWER THAN MAX
:BRANCH IF YES
CHALF IT
*INC SO NOT 0

;MIN OKAY

:NOW GET WORD COUNT

2980
2981
2982
2983
gggg

026044 . 005737
026050 001003
026052 013737
026060 023737
026066
103021

2986

026070

(7)

026106

(10) 026070
(9)
026074
(8)
026100

010746

002442
002442

5¢:

010702
010702

MOV
MOV
MOV

000004

MOV
MOV
TRAP
ADD

012746

007517

MOV

012746
010600
104417
062706

013737

002442

010702

2989
2990
ggg}

026132
026140
026142

023737
003006
013737

010702

010724

010702

010724

2993

026150

013703

010702

026154

000421

000012

T.STIP
95$
MAXWC,T.MXB
MAXWC
, T.MXB
97%

PRINTF

002442
010702
003453

026110
026114
026116
026120

026124

95%:

ST
BNE
MOV
cMP
BHIS

013746
013746
012746

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

2994

GWCDA:

010714

223;3

gggg

RANDOM WC AND DA ROUTINE

97%:

;RESTRICT THE XFER SIZE?
:BR IF YES
\
JNO - MAKE MAXWC = BIGEST XFER SIZE AVAIL.

#FMT13D,#0VER,
T.MXB A MAXW(

MAXWC
, ~(SP)
T.MXB.~(SP)
#OVER .- (SP)

WFMT13D,-(SP)

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

MOV

MAXWC, T.MXB

CMP
8GT
MOV

T.MXB,T.MN8
6%
T.MX8,T.MNB

:MIN MAX EQUAL

T.MXB,R3

SYES SET WC

MOV

B8R

SEQ 0115

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC

2995

026156
026162
026166
026172
026176
026200
026202
026204
026206
026212
026214
026216

07-DEC-79 09:46

004537

MACY11 30A(1052)

17-DEC-79

11:31

RANDOM WC AND DA ROUTINE

6%:

024524
002262

160000

JSR

7%:

010702

BHIS

8%:

010724

ASR
INC
BR

cMP
BHIS
ROL
BR

M9
PAGE 4-37

RS ,RAND

:GET RANDOM WORD COUNT

#160000,R3

SMAX !t

LONUM,R3

T.MXB,R%

8$
R3
R3
7
R3,T.MNB
9%
R3
78

JNOW WE HAVE SECTOR AND WORD COUNT, CHECK THAT WORD COUNT WILL FIT ON SECTOR
:IF NOT LOWER SECTOR START
026220
026224

012701
005403
010364
005301
062703
100774
020201

000050

000042

11%:

000200

026256
026264
026270

000124
000077
000040

#40. ,R1
R3
R3.BMP(R4)
R1
#128. ,R3
118

101401

010102
016464
042764
050264
000205

MOV
NEG
MOV

000040 ¢ 128:
000040

;SETUP FOR FOURTY SECTORS
sMAKE WORD COUNT NEGATIVE
sLOAD WORD COUNT
;DOWN COUNT MINIMUM START SECT NEEDED
;JONE SECTOR'S WORTH
sSTILL NEED ANOTHER SECTOR

R2,R1
;DID RANDOM SECTOR SUFFICE
12%
;BRANCH IF SUFFICED
R1,R2
:NO, THEN MAKE IT FIT
PRPOS
(R4) ,BDA(R4)
#77 ,BDA(R4)
R2 ,BDA(R4)
RS

SEQ 0116

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

3026
3027
(2)

MACY11

.SBTTL
STARS

026272

ROUTINE TO DUMP BUFFER ON DCK

*OMPBUF ~- ROUTINE TO DUMP BUFFER ON DCK ERROR, TWO DUMPS ARE POSSIBLE

3029
3030
3031

026272

3032
gggz

026272

:
:
STARS

ONE WHERE WE CAN COMPARE WHAT [T SHOULD BE AND THE OTHER
WHEN WE CAN'T.

.':ttttttttt*it.ttttttttt*ttttttttttitittttttttttttttttttit*tttttt

004737

006330

DMPBUF: JSR

gggg
026276 012737
026304 016400

000200
000040

3040

026310

013701

002424

MOV

3042
3043
3044
2045
3046
3047
3048
3049
3050
2051

026320
026324
026326
026330
026332
026334
026340
026342
026344
026350

177700

3055
3056

026352
026354
026356

BIC
MOV
MOV
suB
CLR
ADD
DEC
BNE
MOV
NEG
cMP
BGT
MOV

2057
3058
3059
3060
3061
3062

026362
026366

042701
010002
010103
160203
005002
062702
005303
001374
016403
005403
020203
003005
013702

026370
026372
026376
026400
026404
026406

160302
012700
160200
010037
006300
013702

3064

026414

3052
3053
3054

3063

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

3065
3066
3067
3068
3069
3070

PC.LINE3

:CALCULATE THE STARTING BUS ADDRESS FOR THE COMPARE

3037
gggg

3041

SEQ 0117

tttttttkttttfitittttttttttttttttttttttttttttttttttttttttitttit't

3028
(2)

N9
30A(1052)
17-DEC=79
11:31
PAGE 4-38
ROUTINE TO DUMP BUFFER ON DCK

026314

026412

026414
026420
026424
026426
026432
026436
026442
026444
026446

026452
026456
026462
026466
026470
026472

042700

162702
000412

160002

013746
012766
010246
012746
012746
012746
010600
104414
062706

012700
012701
022062
001415
005301
001373

002464

MOV
MOV

177700

8IC

000200

938:

000042

002422

000400

94%:

000200
002464
002422
002342
002577

968:

004132
007502
000005
000014

030004
000010
000002

18:

SUB
BR
SWB
MOV
SUB
MOV
ASL
MOV

SUB

PRINTB

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

MOV
MOV
CMP
BEQ
DEC
BNE

#128. ,DWCNT1
BDA(RS) ,RO
E.DA.R1

#177%00.R0

:GET STARTING BUS ADDRESS
;GET PRESENT DISK ADDRESS

*SAVE SECTOR BITS

#177700 R
RO,R2
R1.R3
R2.R3
R2
#128. ,R2
R3
93s
8MP(R4) ,R3
R3
R2,R3
948
E.BA,R2

:
‘SAVE A COPY
*SAVE ANOTHER
;GET DIFF OF SECTORS
*CALCULATE WORD COUNT
"ONE SECTORS WORTH
oons

R3,R2
#128. RO
R2,R0
RO DWCNT1
RO
£.BA,R?

*GET SECTOR DIFF

#400.R2
96$

GET WORD COUNT
‘MAKE IT POSITIVE

*WORKING WITH FULL SECTOR
JNO, GO CALC PARTIAL SECTOR
*PRESENT BUS ADDRESS
*START OF COMPARE
1GO COMPARE BUFFER

RO,R2

#FMT13,#B8USAD,R2,#CRLDA,
CHKSEC

CHKSEC.=(SP)
#CRLDA.-(SP)
R2,~(SP)
#8USAD,
- (SP)
¢ #FMT13.-(SP)
#5.-(SP)
SP.RO
CSPNTB
#4,SP

#PATLST,RO
#8. R
(ROJ+.2(R2)
28
R1
18

:CHECK PATTERN LIST
]

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

3071
3072

026474

(&)

026512

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

026476
026500
026504
026510

012746
012746
012746
010600

003631
007544
000002

026514

062706

000006

3075

026522

021227

000200

3077

026530

005037

002344

(4)

104414

338;2 026520 000532
3076 026526

101362

MACY11

8 10

30A(1052)
17-DEC=79
11:31
PAGE 4=39
ROUTINE TO DUMP BUFFER ON DCK

38:

TRAP

ADD

BR
2s:

3090

026552
026556
026562
026570
026576
026602
026610
026614

026616

005437
012237
162737
012737
013703
012737
005737
001417
005337

002462
002350
000002 002346
000002 002352
002350
000020 002360
002346

MOV
MOV
MOV

4$:

002346

3096

026636 013703 002350
026642 012337 002402
026646

005337

002360

026660
026664

005237
021237

002462
002602

3097 026652 000402
3098 026654 005037 002402
3099
3100

g}&%

026670 001422

105

026676

026700

(4)

026730

104414

3109
3110

026736
026742

005237
005722

ST
BNE
MOV

TEMPS
13
216. ,TEWPS

DEC

INC
P

INC

831

;NONZERO WORD COUNT

;WORD
‘PATTERN ADDRESS
216 ENTRIES
*7ERO OR PATTERN
:7ERO BRANCH

Temei R3
(R3)+.GDDAT
TEMPS

DWCNT
(R2) ,GDDAT

DECNT

MOV
MOV
MOV
MOV
MOV

GODAT,~(SP)
TEMP2,
- (SP)
SFMT148,~(SP)
#4,-(SPS
SP.RO

ADD

#12,5pP

INC
ST

TEMP2
(R2)+

TRAP

8s:

cmP
BLE

SWITHIN LIST

DEC
R1
PRINTB #FMT14B,TEMPZ2,GDDAT,
(R2)
MOV
(R2) ,~(SP)

023737 002352 002464
003716

TEMPO

B8EQ

78:

31«& 026732 062706 000012

3111 026744
3112 026752

T.CLT.R
(R2)+, TEMPO
TEMPO
. DWCNT

DWCNT
(R2)+, TEMP1
#2. TERPO
82.TEMP?
TEMP1,R3
016, , TEMPS
TemPd
6$

BEQ

002352

DECNT

68:

001416

012746

(R2) ,#128.

7$
GDDAT

706 013746 002402
026712 013746 002352
026716 012746 007565

026726

STOMP

B8R
CLR

005701

026722

CSANTB

26,5P

MOV
MOV

3106 026702 005301
3107 026704
(10) 026704 011246
(9)
(8)
(7)
(6)
(3)

ONOREV
. = (SP)
SFMTI4 =(SP)
#2,-(SP)
SP.RO

3103 026672 005237 002344
106

#FMT14, #NOREV

NEG
MOV
SUB
MOV
MOV
MOV
ST
BEQ
DEC

3091 026622 005737 002360
3092 026626 001005
3093 026630 012737 000020 002360
3096
3095

BHI

CLR

338§ 026534 013701 010744
3080 026540 012237 002346
3081 026544 013737 002346 002462
3082
3083
3084
3085
3086
3087
3088
3089

PRINTEB

MOV
MOV
MOV
MOV

SEQ 0118

($SANTB

TEMP2,DWCNT
48

CZRLKBO RLO1/02 PERF EXER

CZRLKB.MAC
3113

026754

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

026754
026760
026764
026770

(4)
(4)

3115

07-DEC-79 09:46
013746
013746
012746
012746

002352
002344
007263
000003

026776
027000

104414
062706

000010

027004

000205

010600

MACY11

c10

30A(1052)
17-DEC=79
11:31
PAGE 4=-40
ROUTINE TO DUMP BLFFER ON DCK
PRINTB

#FMTOA DECNT, TEMP2

MOV
TRAP
ADD

SP.RO
’
CSPNTB
#10,SP

RTS

MOV
MOV
MOV
MOV

SEQ 0119

TEMP2,~(SP)
DECNT ,~(SP)
SFMTOA = (SP)
#3,-(SP)

JROUTINE TO DUMP THE CONTENTS OF THE READ BUFFER ON ERROR DETECTED
sWILL ALSO TELL HOW MANY WORDS WERE IN THE XFER
20
3121
3122

027006
027014
027020

016437
005437
012737

000042
002346
000200

(8)
(7)
(6)

027026
027032
027036

013746
012746
012746

002346
007754
000002

31264
3125

02
027052
027056

013701
012703

000006
010744
000012

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

027062
027064
027070
027074
027076

011246
012746
012746
010600
104414

002346

STDMP:

0024664

MOV

NEG
MOV

PRINTB

007553
000002

ADD
MOV
MOV

96,5P
T.CLT.R1
#10. R3

MOV
MOV
MOV
MOV

(R2) ,-($P)
SFMTI4LA - (SP)
A
#2,-(SPS
SP,RO

ADD

#6 SP

PRINTE

DEC

BNE
(7)
(6)

3131
3132

027112
027116

027132
027136

012746
012746

010600
062706
012703
005337

PRINTB

MOV
MOV

007562
000001

000004
000012
002464

38
(7)
(6)

027152
027156

(4)
(4)

027164
027166

3138

027172

012746
012746
010600
104414
062706
000205

007562
000001
000004

48:

#FMTi4A, (R2)

(RQ)+

#FMT14(

#EMT14C,-(SP)
#1,-(SP)

ADD
MOV
DEC

84, SP
#0. ,R3
DWCNT1

B8R

BNE

DEC

THE # POSITIVE

;GET THE PRINT LIMIT
sSETUP LINE LIMIT
;PRINT A DATA WORD

(SANTB

SP RO

BNE

JMAKE

(SPNTB

MOV

TRAP

#FMTX
. TEMPO
S

sSET THE SIZE OF SECTOR
cTELL TRANSFER SIZE

TEMPO,
- (SP)
SEMTXS
, = (SP)
#2.-(SP)
SP,RO

TRAP

062706

sGET NEGATIVE WORD COUNT

TEMPO
#128. ,DWCNT1

MoV
MOV
MOV
MOV

TRAP

1%:

8P (RG)
, TEMNPO

;POINT TO THE NEXT DATA WORD
;DONE WITH THE LINE?
;BR IF NO
JYES = PRINT <(CR>

($SPNTB

SRESET THE LINE LIMIT
JEND OF SECTOR?
;BR IF NO
JYES - EXIT

;AT PRINT LIMIT?

PRINTB

#FMT14(

JPRINT <CR>

MOV

SP RO

ADD
RTS

2, SP
RS

MOV
MOV

TRAP

#FMT14C,~(SP)
#1,-(sP§

;BR IF NO

($PNTB

JEXIT

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

MACY1Y

0D 10

30A(1052)
17-DEC-79
11:31
PAGE 4-41
ROUTINE TO DUMP BUFFER ON D(K

SEQ 0120

3140

3141

3142

3146
3147
3148
3149
3150
3151
3152
3153
3154
3155

TCALL —ISR—RS5,(LEAR
:

3143
3144
3145

3156

JROUTINE TO CLEAR ALL DRIVE INFO, USED ON START OR
JRESTART IF CALLED.
(AN BE USED TO CLEAR IND]IVIDUAL DRIVE
JINFO BY BITMAP FOLLUWING CALL

027174
027176
027202

027204
027210
027212
027214

010446
0127064
005024

020427
001374
012604
000205

(LEAR:

030432

031712

2%:
'

A ¥

MOV
MOV
CLR
(q,
aNE
MOV
RTS

R4 ,=(SP)
#DRBUF R4
(RG)»
R4 , #ENDBUF
2%
(SP)e+ RG
RS

; SAVE R4
:GET BUFFER STARTS
;CLEAR

;AT END OF BUFFERS

JNO, GO TO 2%
JRESTORE CURRENT BUFFER POINTER
JEXIT

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC
3158
3159
(2)

07-DEC~79 09:46

(2)

3163

11:31

E 10

PAGE 4-42

SEQ 0121

ROUTINE TO CHECK FOR BAD SECTOR

2222222322222 22222222222222 2222222222222 2223222222 R ]

cxaosc ~~ ROUTINE TO MATCH BAD SECTOR..... BDA(RG) IS SECTOR WE ARE LOOKING
027216

$TARS
A

027216
027222
0272264
027226

005037
010046
010246
012700

3170

027242

001411

3173
3174

027252
027254

005722
005300

3171
3172

17-DEC-79

ROUTINE TO CHECK FOR BAD SECTOR
e

3164
3165
3166
3167

3168
3169

30A(1052)

LSBTTL
STARS

027216

3160
3161
3162

MACY11

027232
027236

027264
027250

016402
022712

023712
001404

000021

000112
177777

R AL L AL A

AL AL A A A

CKBDSC: CLR
MOV
MOV
MOV

1%:
’%:

002342

MO/
o,

BEO

P
8EQ
ST
DEC

R A A AR A

A A

edigdleiltddsdsy

HORF ND
RO, =(SP)
RS =(SP)
217, RO

:CLEAR FLAG
*SAVE RO
SSAVE
R2
:16 ENTRIES + BSF POINTER

:BRANCH [F END

BSECPHRL) JR2
#-1,(R2)

CHKSEC, (R2)
38

(R2)*
RO

SHAVE WE GOT A MATCH
STHEN GO SET INDICATOR, ELSE

3182

027274

STARS

3183
3184

027274

S(KBDTK ~ WERE
STARS

TO CHECK IF CYLINDER & HEAD SELECTED IS IN THE BAD SECTOR FILE

(KBDTK: (LR
MOV
MOV
MOV
MOV
18:
MOV

HORF ND
RO,-(SP)
R1.=-(SP)
R2. -(sm
n’.,
asecmmu,az

(2)

3185

027272

000205

005037
010046
010146
010246
012700
016402

3193

027322

001414

3194

027326

3198
3199

027340
027342

3195
3196
3197

3200
3201
3202
3203
3204

027326
027332
027336

027344
027346
027350
027354
027356

'-.-Q't.'.t...Qt.t'.....""'....Q..'.'.t.t.t.'tttttttttttttttttttt

027274
027300
027302
027304
027306
027312

027316

RTS

;SET FLAG FOUND

. "...Q'..t.'Q"Qt..Q"Q...Q't.t..'."..'.t.t't'tttttt'ttttttttt

3186
2187
3188
3189
3190
3191
3192

38
4$:

28
.8
HORF ND
(SP)+ ,R2
(SP)+.RO

JGET WHERE WE'RE LOOKING
CEND OF ENTRY LIST?

027256
027260
027262
027266
027270

002340

BNE
BR
INC
MOV
MOV

3175
3176
3177
3178
3179
g}g?

001367
000402
005237
012602
012600

002340

FOR IN LIST POINTED TO BY BSECPT(RSG)...... HDRFND IS SET JF WE FIND ]T.

022712

002340
000021
000112
177777

2s:

011201

MoV

043701 002272
023701°* 002342
001404
005722
005300

001364
000402
005237
012602
012601

002340

BEQ

(R2) .R1

BIC
P
8E0

SMSK ,R1
(HKSEC R
33

BNE
B8R
INC
MOV
MOV

28
‘8
HDRF ND
(SP)+ R2
(SP)+.R1

3
DEC

38
($:

#-1,(R2)

(R2)*
RO

:CLEAR FLAG
*SAVE RO
:SAVE R1
SSAVE R2
16 ENTRIES + BSF POINTER
:GET WHERE WE'RE LOOKING
SEND OF LIST?

:BRANCH [F END

;GET THE ENTRY FROM BAD SECT FILE

:LEAVE ONLY CYL # € HEAD
*HAVE WE GOT A MATCH
:THEN GO SET INDICATOR, ELSE

;SET FLAG FOUND

CZRLKBO RLO1/02 PERF EXER

CZRLKB.MAC

07-DEC=79 09:46

MACY11

30A(1052)

027364

STARS

3209

027364

STARS

(2)

027364
027426
027470
027532
027574
027636
027700
027742
030004

3221

030004

000021
000021
000021
000021
000021
000021
000021
000021

LN N NN

NN NN

RN E TN

PN AN AN NN TN NN NN NI NA AR AN INRARATNRNR

BSECO:
BSEC):
BSEC2:
BSEC3:
BSE(4:
B8SECS:
BSEC6H:
BSE(7:
STARS

.BLkw
.BLkw
.BLkw
.BLtkw
.Blkw
.Blkw
.BLkw
.8BLkw

17,
17,
17,
17,
17,
17,
.17,
17.

".-...Q..Qt'.Oi......Q"Q.'"........Q.t..t'tt.t..."t"tfittt".tt

STARS

.'.-..'Q.'......'....Q.."""......t'..Q'.'.t..t.t.tt.tt..t"tttfit

3222
%Ssz

JLIST OF PATTERNS USED IN WRITING

3225
3226
3227
3228
3229
3230
3231
%S%%

030004
030006
030010
030012
030014
030016
030020
030022

030024
030064
030124
030104
030224
030264
030324
030364

PAT._ST: PATO
PATY
PAT?
PAT3
PATG
PATS
PATG
PAT?7

3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
%ggg

030024
030026
030030
030032
030034
030036
030040
030042
030044
(030046
030050
030052
030054
030056
(030060
030062

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

PATG:

3251
3252
3253
3254
3255
3256

030064
030066
030070
030072
030074
030076

177777
177777
177777
052525
052525
052525

PATT:

3257
3258
3259

10
PAGE 4-43

JBUFFER TO STORE BAD SECTOR LISTS

3212
3213
3214
3215
3216
3217
3218
3219
3220
(2)

.'.'Q.".Q..Qt'.....lt'..'.'0.....'...'!.t.tt.'...t'.ttttttt'tt'ttt

%‘5’}?

(2)

11:31

ROUTINE TO (HECK FOR BAD SECTOR

3208
(2)

17-DEC=79

030100

030102
030104

177777
177777
052525

LMORD
.WORD
WORD
.WORD
.WORD
.MWORD
MWORD
LMWORD
.WORD
L.WORD
.MWORD
.WORD
.MORD
.WORD
LWORD
MWORD
. WORD
MWORD
.WORD
.WORD
.WORD
.WORD

LWORD
.WORD
.WORD

JALL 0°S
;=1°S TO ALT B]TS
:0°S TO ALT 8ITS
JSHIFTING ALT BITS
;WORST CASE DATA
:STRANGE DATA
JALL 1°S
;JSTRANGE DATA
0
0
O
O
O
O
0
O
O
O
H
O

O
0
O

177777
177777
177777
052525
052525
052525
177777
177777
052525

SEQ 0122

3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274

030106
030110
030112
030114
030116
030120
030122

052525
177777
052525
177252
177252
172765
172765

030124
030126
030130
030132
030134
030136
030140

000000
000000
000000
177777
177777
177777
000000
000000

177777
000000
177777
000000
177777

3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300

030164
030166
030170
030172
030174
030176
030200
030202
030204
030206
030210
030212
030214
030216
030220
030222

025252
052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
052525
125252

3302

030224

3304
3305
3306

030230
030232

155555
066666
133333
155555

030150
030152
030154
030156
030160
030162

3278
3279
3280
3281
3282
gggz

3310

030244

3314
3315

030254
030256

133333
155555
066666

133333
155555

133333

155555
06666
’

MACY11

G 10
17-DEC=79
PAGE 4=44
11:3
30A(1052)
ROUT INE TO CHECK FOR BAD SECTOR

052525

1772777

052525

177252
177252
172765

172765

OO 42000

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

77777
77777
77777

1727777
1772777

127777
177777

\RES a4

25252
52525
52525

125252

125252
125252

52525

SEQ 0123

030260
030262

.WORD
.WORD
PATS:

DATE:

177777
177777
177777
1727777

177777
1727777
177777
177777

045513
122645

PA?7:

172777
V272777

172727277
17277727
1272277

177727
1277727
17727277
127777
1727777
1272777
1727777
1777277
177777
1727777
177777

o
N\h'\)%d
o
nOw

177777
177777
177777
1727777
1727777
1772777
1727777
1727777

H 10

1:31
PAGE 4=45
AD SECTOR

«RS

ROUTINE

17-DEC~
TO CHECK

PNOANANIND
VN

3316
3317

07-DEC-79 09:46

30A(1052)

: : 8 : : : : : : : : : : : : § §3883555RR000EES

CZRLKB.MAC

MACY11

AV IV TRV TVVR

CZRLKBO RLO1/02 PERF EXER

SEQ 0124

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MA(C
07-DEC=7y 09:46

3372
3373
(3)
(3)

3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3429
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)

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

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

030424
030426

030426
030426

030430

030432
030432
030434
030436
030440
030442
030444
030446
030450
030452
030454
030456
030460

00024C
104401

MACY1Y

30A(1052)

ROUTINE

ENDOF PROGRAM:
ENDTST
L1002¢4:

030530
030532
030534
030536
030540
030542
030544
030546
030550
030552

SEQ 0125

NOP

TRAP
ALY

00C000
.SBTTL

DRIVE

ORIVE

INFORMATION BUFFER

LIST

INFORMAT
ION BUFFERS

:
DRELF

SK(NT

RXFRY

RXFR2
wXFR?
wiFR?2

ERR(NT

SFTCNT

SKE(NT
DER(N!
DCRCER

HCRCER

DLTIN!
< OPJ(NT

030462
030464

030466
030470
030472
030476
030476
030500
030502
030504
030506
030510
030512
030514
030516
030520
030522
030524
030526

110

17-DEC~79
PAGE 4=46
:
TO CHECK FOR BAD SECTCR

NF ERR
NIMCNT
RE TRY

8DA

P
FUNC
B( SADR

LSTHOR

RTvPE

SK{NT?

PRF _GS

nxrRS

wXFR3
LSTDA
DifwD
DPHOUR
TRERR

DAT(ER
DOW(K
SERNMI

SSEEK OPERATION COUNT

READ OPERATION (OUNT

(BITS)

LOW ORDER

)

HIGH ORDER

URIYE OPERATION COUNT

(BITS) LOW ORDER

.ERROR COUNT
- HARD
SERROR COUNT = SOFT
sSEEK ERROR COUNT
;DRIVE ERROR COUNT
;DATA CRC ERROR COUNT
JHEADER CRC ERROR COUNT

;DATA LATE ERROR COUNT

;OPERATION INCOMPLETE ERROR COUNT
SHEADER NOT FOUND ERROR COUNT
JNON EXISTANT MEMORY ERROR COUNT
PRESENT RETRY NUMBER

DISK ADDRESS CONTENTS

:PRESENT MULTIPURPOSE

SLAST FUNCTION LOADED

CONTENTS

:CSR_IMAGE OF LAST COMMAND
SLAST POSITION ON DISK
;ERROR ON WHICH RECOVERY IS IN PROGRESS
sSEEK COUNT LOW ORDER
sPROGRAM [NTERNAL FLAGS
sREAD COUNT THIRD
JWRITE COUNT THIRD
;DISK ADDRESS OF SOFT ERROR
;LAST DIFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED
;TRACKING ERROR COUNT

DCS
DRSEL
88A
8SEZPY

JWRITE CHECK NECESARY
;SERIAL NUMBER OF CARTRIDGE
;SERJAL NUMBER OF CARTRIDGE
;CSR ADDRESS
;DRIVE SELECT BITS(8,9,10)
sPRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE

SOFT(S
TDR

;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOT =1)

SERNM?

RSEEK

CZRLKBO RLO1/02 PERF

N O

T N

d i

PN PN PN P

¥ Nt i

e e
e

PN P

Nt ot
N

d
D
D

NP o N

d
d

Nt N

d e
)
D

Nt Nt N
Nl N
N

b ——d
D

N
N

b e

N
N

D
D

N
N

D
d

N
N

d
d

DLTINT
OPI(NT

Nt N

)
D

H(R(ER

HINF ERR
NMCNT
RE TRY

8DA

amp
FUNC
8( SADR
LSTHDR
RYYPE

Sk {NT
PRF LGS

RXFR3

READ OPERATION COUNT

sDATA CRC ERROR COUNT

JHEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT

;OPERATION INCOMPLETE ERROR COUNT
JHEADER NOT FOUND ERROR COUNT
JNON EXJSTANT MEMORY ERROR COUNT

PRESENY RETRY NUMBER

‘’

DISK ADDRESS CONTENTS

PRESENT MUL 7 JPURPOSE

JLAST FUNCTION LOADED

CONTENTS

:CSR_IMAGE OF LAST COMMAND
sLAST POSITION ON DISK
;JERROR ON WHICH RECOVERY IS IN PROGRESS
sSEEK COUNT LOW ORDER
;PROGRAM INTERNAL FLAGS
JREAD COUNT THIRD

TRERR

s TRACKING ERROR COUNT

D"CEP

LOW ORDER

"
HIGH ORDER
(BITS) LOW ORDER
"'
HIGH ORDER

.ERRG? COUNT = HARD
SERROR COUNT = SOFT
;SEEK _ERROR COUNT
;DRIVE ERROR COUNT

JWRITE COUNT THIRD

DIFuD
DPHOLR

(BITS)

\RITE OPERATION COUNT

wiXFRS
LSTDA

Nl N

DER(NT

DCR(ER

SFICNT
SKE(NT

NP N

i ed
d

ERR{NT

Nl Nl N

RXFR?
wXFR?
wXfR?

;DISK ADDRESS OF SOFT ERROR
sLAST DIFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED

JWRITE CHECK NECESARY
;SERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER OF CARTRIDGE
;CSR ADDRESS
sDRIVE SELECT BITS(8.9,10)
sPRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE
;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOT1 =1)
SWRITE IN PROGRESS FLAG
;PRESENT POSITION ON DISK

< SEEK OPERATION COUNT

SK(NY

RXFR?

Nl Nt N

b ad e

SEQ 0126

4=47

JWRITE IN PROGRESS FLAG
JPRESENT POSITION ON DISK

sSEEK OPERATION COUNT
READ OPERATION COUNT

PAGE

wR PG

(BITS) LOW ORDER
"'
HIGH ORDER
ERITE OPERATION COUNT (BITS) LOW ORDER
"*
HIGH ORDER

i e
)

000000
000002
000004
000006
000010
000012

J 10

PRPCS

Nt N

000122
000124

30A(1052)
17-DE(=79
11:
%1
DRivE INFORMATION BUFFERS

d e

030570
030572

07-DEC-79 09:46

MACY1T

Nt Nl N

d —d
b

030554
030556
030562
030564

N P
N PN PN PN
N PN PN
N PN PPN PN PN TN
N PN PN
TN
N PN PN
N PN
N TN PN
NN TN PN PN
N PN TN PN
NN
NN
NN
PN TN TN TN TN

CZRLKB.MAC

EXER

DERCNT

.ERRG? COUNT - HARD
;ERROR COUNT - SOFT
;SEEK ERROR COUNT
;DRIVE ERROR COUNT

~a
b

CZRLKBO RLO1/02 PERF

CZRLKB.MAC
(1)
(1)
(1)

030730
030732
030734

(1)

030744

(1)
(1)
(1)

EXER

07~DEC=79 09:46

MACY11

30A(1052)

17-DEC=79

DRIVE INFORMAT]ON BUFFERS

000022
000024
000026

030746
030750
030752
030754
030756
030760

000040
000042
000044
000046
000050
000052

BDA
8P
FUNC
B( SADR
LSTHOR
RTYPE

(1)

030764

000056

PRF GS

030772

000064

. STDA

(1)
(1)

030766
030770

(1)
(1)

030774
030776

(1)

(1)
(1)

KNI

000060
000062

000066
000070

031000
031002

000072
000074

031012

000104

031020
031022

000112
000114

RXFR3
WxFR3

SEQ 0127

;PRESENT RETRY NUMBER

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

000054

4=-48

RE TRY

0P (NT
HNF ERR
NXMCNT

030762

PAGE

:DATA CRC ERROR COUNT
:HEADER CRC ERROR COUNT
:DATA LATE ERROR COUNT

000030
000032
000034

000036

K 10

DCRCER
MCRCER
DL TCNT

030736
030740
030742

(1)

11:31

:OPERATION INCOMPLETE ERROR COUNT
:HEADER NOT FOUND ERROR (OUNT
INON EXISTANT MEMORY ERROR COUNT

.,
;
'

"
DISK ADDRESS CONTENTS
:PRESENT MULTIPURPOSE CONTENTS
SLAST FUNCTION 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
:WRITE COUNT THIRD
:DISK ADDRESS OF

SOFT ERROR

D1FwD
DPHOLR

LAST DIFFERENCE WORD CF SEEK
:TIME DRIVE WAS DROPPED

IRERR
DATCER

: TRACKING ERROR COUNT

(1)
(1)
(1)

031004 000076
031006 000100
031010 . 000102

DOWCK
SERNM1
SERNM?

;WRITE CHECK JECESARY
ISERIAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE

(1)
(1)

031014
031016

000106
000110

DRSEL
BBA

:DRIVE SELECT BITS(8,9,10)
:PRESENT BUS ADDRESS CONTENTS

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

031024
031026
031030
031032

000116
000120
000122
000124

SOFTCS
TOR
oR1PG
PRPOS

:CSR AT TIME OF SOFT ERROR
:DRIVE TYPE FLAG (RLOT =1)
SWRITE [N PROGRESS FLAG

(1)

031034

000000

SK (N7

:SEEK OPERATION COUNT

000012

ERRCNT

“ERROR COUNT = HARD

000016

SKE (NT

:SEEK_ERROR COUNT

000030
000032
000034

OPI(NT
HVF ERR
NXMCNT

03107¢ 000040
031076 000042
031100 - 000044
031102 000046

BDA
8P
FUNC
B( SADR

(1)

(1)
(1)

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

(1)

031036
031040
031042
031044

031046

000002
000004
000006
000010

(1)

031050

000014

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

031054
031056
031060
031062

000020
000022
000024
000026

(1)

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

()
(1)
(1)
(1)

031052

031064
031066
031070

031072

031104

000036

000050

DCS

BSE(P?
RSEEK

RXFRT
RXF RQ
WXFR]
WXFR2

SF T(N?

:CSR ADDRESS

:POINTER TO BAD SECTOR FILE

:PRESENT POSITION ON DISK
;READ OPERATION COUNT

(BITS) LOW ORDER
""
HIGH ORDER
ums OPERATION COUNT (BITS) LOW ORDER
**
""HIGH ORDER

:ERROR COUNT - SOFT

DERCNT
DCRCER
MCRCER
DL TCNT

:DRIVE ERROR COUNT
:DATA (RC ERROR CC'INT
:HEADER CRC_ERROR COUNT
DATA LATE ERROR COUNT

RETRY

:PRESENT RETRY NUMBER

LSTHDR

:OPERATION INCOMPLETE ERROR COUNT
HEADER NOT FOUND ERROR COUNT
:NON EXISTANT MEMORY ERROR COUNT

"
DISK ADDRESS CONTENTS
:PRESENT MULTIPURPOSE CONTENTS
LAST FINCTION LOADED
:CSR_IMAGE OF LAST (OMMAND
sLAST POSITION ON DISK

CZRLKBO RLO1/02 PERF

CZRLKB.MAC
(1)
(1
(1)
(1)
(1)
(1)

031106
031110
031112
031114
031116
031120

(1)

031124

(1)

031122

031126

EXER

07-DEC~79 09:46

MACY11

30A(1052)

DRIVE

000052
000054
000056
000060
000062
000064

000066
000070

000072

17-DE(=79

11:31

INFORMATION BUFFERS

L 10

PAGE 4=-49

RYYPE
SK{NTI
PRE LGS
RXFRY
WXFR3
LSTDA

JERROR ON WH]ICH RECOVERY IS IN PROGRESS
JSEEXK COUNT LOW ORDER
;PROGRAM [NTERNAL FLAGS
JREAD COUNT THIRD
JWRITE COUNT THIRD
sDISK ADDRESS OF SOFT ERROR

DPHOUR

;TIME DRIVE WAS DROPPED

DIFWD

SEQ 0128

JLAST DIFFERENCE WORD

TRERR

SEEK

;TRACKING ERROR COUNT

(1)
(1)

031130
031132

000074
000076

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

031136
031140
031142
031144
031146
031150
031152

000102
000104
000106
000110
000112
000114
000116

(1)

031156

000122

000124

PRPOS

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

031162
031164
031166
031170
031172

000000
000002
000010

SK{NTY
RXFRY
RXFR2
WXFR1
wXfR2

JSEEK OPERATION COUNT
JREAD OPERATION COUNT (BITS) LOW ORDER
.
°
o
‘*
HIGH ORDER
JWRITE OPERATION COUNT (BITS) LOW ORDER
P
.
o
**
HIGH ORDER

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

031176
031200
031202
031206
031206
031210
031212
031214
031216
031220
031222
0312246
031226

000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044

SFT(NY
SKECNT
DERCNT
DCRCER
MCRCER
DLT(NT
OPI(NY
HNF ERR
NMCNT
RE TRY
8DA
aw
FUNC

;ERROR COUNT - SOFT
sSEEK ERROR COUNT
:DRIVE ERROR COUNT
;DATA CRC ERROR COUNT
JHEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
JOPERATION INCOMPLETE ERROR COUNT
JHEADER NOT FOUND ERROR COUNT
SNON EX]STANT MEMORY ERROR COUNT
JPRESENT RETRY NUMBER
:
!
DISK ADDRESS CONTENTS
JPRESENT MULTIPURPOSE CONTENTS
JLAST FUNCTION LOADED

(1)

031232

000050

LSTHDR

;LAST POSITION ON DISK

(1)

fl;

(1)

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

031134

031154

031160

031174

000100

120

000012

312

0000466

031234
031236
031240
031242
031244
031246
031250
031252
031254
031256
031260
031262

000052
000054
000056
000062
000064

000070
000072
000074
000076
000100

)

DAT(ER
DOW(K

JWRITE CHECK NECESARY

SERNM

;SERJAL NUMBER OF CARTRIDGE

SERNM?
D(5
DRSEL
BBA
QSE(PY
RSEEX
SOFT(S

JSERJAL NUMBER OF CARTRIDGE
;CSR ADDRESS
:DRIVE SELECT BITS(8,9,10)
JPRESENT BUS ADDRESS CONTENTS
JPOINTER TO BAD SECTOR FILE
JCSR AT TIME OF

R]IPG

WRITE

IN PROGRESS FLAG

JPRESENT POSITION ON DISK

ERRCNT

JERROR COUNT = HARD

BC(SADR
RTYPE
SKCNT1
PRFLGS
RXFR3
WXFR3
LSTDA
DIFWD
DPHOUR
TRERR
DATCER
DOw(K
SERNM?

SOFT ERROR

:DRIVE TYPE FLAG (RLO1 =1)

JCSR IMAGE OF LAST COMMAND
_

JERROR ON WHICH RECOVERY IS IN PROGRESS
JSEEK COUNT LOW ORDER
;PROGRAM INTERNAL FLAGS
JREAD COUNT THIRD
JWRITE COUNT THIRD
.DISK ADDRESS OF SOFT ERROR
JLAST DIFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED
JTRACKING ERROR COUNT
.
JWRITE CHECK NECESARY
JSERIAL NUMBER OF CARTRIDGE

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC~79 09:46

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(V)
(1)
fl;

031264
031266
031270
031272
031276
031276
031300
031302
031304
031306

000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

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

031310
031312
031314
031316
031320
031322
031324
031326
031330
031332
031336
031336
031340
031342
031344
031346
031350
031352

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

031356
031360
031362
031364
031366
031370
031372
031374
031376
031400
031402
031404
031406
031410
031412
031414
031416
031420
031422
031424
031426
031430
031432

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114

(1)

031354

MACY1Y

30A(1092)
17-DEC~-79
11:%1
DRIVE INFORMATION BUFFERS

SERNM?

D(S
DRSEL
BBA
BSE(PT
RSEEK

m10

SEQ 0129

PAGE 4-50

;SERIAL NUMBER Of CARTRIDGE
¢ CSR ADDRESS

;DRIVE SELECT B8]75(8,9,10)
;PRESENT BUS ADDRESS CONTENTS
sPOINTER TO BAD SECTOR FILE

TDR

(SR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOT =1)

PRPOS

cPRESENT POSITION ON DISK

SOFT(S

WR PG

SKCNT

RXFRY

RXFR?
wXFRY
wXFR?2
ERR(NT

SFTICNY

SKECNT
DER(CNT
D{R(ER
H{R(CER
DLTCNT
OPJ(NTY

NF ERR
NCNT
RE TRY

8DA

JWRITE

IN PROGRESS FLAG

:SEEK OPERATION COUNT
:READ OPERATION COUNT

(BITS)

"""

LOW ORDER

HIGH ORDER

:WRITE OPERATION COUNT (BITS) LOW ORDER
:
"
HIGH ORDER
JERROR COUNT = HARD
JERROR COUNT - SOFT
:SEEK ERROR COUNT
sDRIVE ERROR COUNT
;DATA (CRC ERROR COUNT
JHEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR COUNT
JHEADER NOT FOUND ERROR COUNT
SNON EXISTANT MEMORY ERROR COUNT
PRESENY RETRY NUMBER

DISK ADDRESS CONTENTS

:PRESENT MULTIPURPOSE CONTENTS

B(SADR
LSTHOR

:CSR_IMAGE OF LAST COMMAND
;LAST POSITION ON D]SK
;ERROR ON WHICH RECOVERY IS IN PROGRESS
;SEEK COUNT LOW ORDER
sPROGRAM INTERNAL FLAGS
sREAD COUNT THIRD
JWRITE COUNT THIRD
:DISK ADDRESS OF SOFT ERROR
sLAST DIFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED
s TRACKING ERROR COUNT

f UNC

RTYPE

SKCNTY

PRFLGS
RXFR3

WXFR3
LSTDA

DIFD
DPHOUR
TRERR

DATCER

JLAST FUNCTION LOADED

JWRITE CHECK NECESARY

:SERJAL NUMBER OF CARTRIDGE
sSERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS
¢DRIVE SELECT BI7S(8.9,10)
sPRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE

031434

000116
000120
000122
000124

sCSR AT TIME OF SOFT ERROR
¢DRIVE TYPE FLAG (RLO1 =1)
SWRITE IN PROGRESS FLAG
JPRESENT POSITION ON DISK

031436

000000

JSEEK OPERATION COUNT

CZRLKBO RLO1/02 PERF EXER
s
it
o
Nt Nt
s
A

07-DEC=~79 09:46

031440
031442
031444
031446
031450
031452
031454
031456

000002
000004
000006
000010
000012
000014
000016
000020

RXFR!

RXFR?2
wXFR1
wXFR2

ERR(NT
SFT(INY
SKE (NY

DERCNT
DCRCER
DLT(NY
OPI(NT

P Nut N

MNF ERR

NO(NT

b N

RE TRY
8DA

) Nt

T N

aw
F UNC
B8( SADR
LSTHOR

P
N

-d

SEQ 0130

PAGE 4-51
READ OPERATION COUNT

(BITS)

LOW ORDER

‘"
HIGH ORDER
(BITS) LOW ORDER
"*
HIGH ORDER

\R”E OPERATION COUNT

.EW 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
HEADER NOT FOUND ERROR COUNT
JNON EXISTANT MEMORY ERROR COUNT
PRESENY RETRY NUMBER

DISK ADDRESS CONTENTS

PRESENY MULTIPURPOSE CONTENTS

JLAST FUXTION LOADED

SCSR_IMAGE OF LAST COMMAND
sLAST POSITION ON DISK

SERROR ON WHICH RECOVERY IS IN PROGRESS

PRF LGS

:PROGRAM INTERNAL FLAGS

WXFRS
LSTDA
DIFWD

:DISK ADDRESS OF SOFT ERROR

RXFR3

N 10

RYYPE

SK(NTY

Nt NP N
P Nl N
P
P
ol
P
P
ot N
P Nl
ot Nt
Nl N
N
N
N
Nt N
N
N
N
N
N
Nt Nt N

30A(1052)
17-DE(~
DRIVE INFORMATION

MCRCER

)

B
N
e e
R
N
—t e
e

N
md

e
i e

Yt ta e tate et te el tala e tea e ta e la
wd b e mad = o) d d
D el —d d d d e
D e

et
d e

e ta
Sed e

e e Lt e
e e ta t et ta ta e X W
D d e
d D D d D e ced i
D s

W
)

o W o N
i i il

L
i

T
D

T ”~~
—d —

CZRLKB.MAC

MACYTY

DPHOUR

TRERR

DATCER

K
DOW(
t
S

SERN?

DCS
DRSEL
88A

B8SECPT
RSEEK

SOFT(S

TDR
R PG
PRPOS

SK(NT

RXFR1
RXFR?2

wXFR
wWXFR2
ERR(NT
SFTCNT
SKECNT
DER(NT
DCRCER

HCRCER
DL TCNT

OP](NT

;SEEXK COUNT LOW ORDER

SREAD COUNT THIRD

SWRITE COUNT THIRD

cLAST DIFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED
:TRACKING ERROR COUNT

SWRITE CHECK NECESARY

;SERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER OF CARTRIDGE
(SR ADDRESS

:DRIVE SELECT BITS(8.9,10)

:PRESENT BUS ADDRESS CONTENTS

:POINTER TO BAD SECTOR FILE
;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOT1 =1)
JWRITE IN PROGRESS FLAG
JPRESENT POSITION ON DISK
sSEEXK OPERATION COUNT

READ OPERATION COUNT

;
HHTE OPERATION COUNT

(BITS)

LOW ORDER

**
HIGH ORDER
(BITS) LOW ORDER
HIGH ORDER

.ERflCR COUNT - HARD
SERROR COUNT = SOFT
s SEEK ERROR COUNT
;DRIVE ERROR COUNT
:DATA CRC ERROR COUNT
;HEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
JOPERATION INCOMPLETE ERROR COUNT

) od

P Nt N
N

i e
D

N
N

D
o

Nt N

d
)

N
Nt N

D wd
d

N
N

ed ed wed

Nl Nl N
N

B8DA

aMP
FUNC
BCSADR

'
DISK ADDRESS CONTENTS
PRESENT MULTIPURPOSE CONTENTS
sLAST FUNCTION LOADED
:CSR_IMAGE OF LAST COMMAND

RTYPE

;ERROR ON WHICH RECOVERY IS

PRESENT RETRY NUMBER

cLAST POSITION ON DISK

s SEEK COUNT LOW ORDER

+PROGRAM INTERNAL FLAGS

DIFWD
DPHOUR

sLAST DIFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED

sREAD COUNT THIRD
sWRITE COUNT THIRD
;DISK ADDRESS OF SOFT ERROR
s TRACKING ERROR COUNT

DOWCK

SERNM1
SERNMZ2

DCS
DRSEL

sWRITE CHECK NECESARY

sSERIAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS
;DRIVE SELECT BIT7S(8,9,10)

BBA

;PRESENT BUS ADDRESS CONTEN1S

gggng

sPOINTER TO BAD SECTOR FILE

SOFTCS

:CSR AT TIME OF SOFT ERROR

NLIST

PRPOS
ME

<PRESENT POSITION ON DISK

ENDBUF:

.WORD

TDR
WRIPG

031712

;DRIVE TYPE FLAG (RLO1 =1)
JWRITE IN PROGRESS FLAG

JQUESTIONS TO GET PARAMETERS FOR HARDWARE P-TABLE
BGNMOD

000030
005130
031776
000001

000031
032003
160000
177776

031740
031742

001031
032052
000000
000776

IN PROGRESS

PRFLGS

TRERR
DATCER

D e

cHEADER NOT FOUND ERROR COUNT
sNON EXISTANT MEMORY ERROR COUNT

RXFR3
WXFR3
LSTDA

031702
031704
031706
031710

SEQ 0131

HNFERR
NXMCNT

SKCNT1

d
ad

8 11
PAGE 4-52

LSTHDR

Nl N

11:31

RETRY

17-DEC-79

INFORMATION BUFFERS

b crd

DRIVE

Nt N

ed
b
e

N
N

—

MACY11 30A(1052)

031616

Nl N

xfiAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

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

HRDPRM
BGNHRD

.WORD L10030-L$HARD/2

GPRML

CNTYPE ,CNT,1,YES

.WORD
WORD

CNTYPE
1

.WORD

CSRMSG

.WORD

GPRMA
.WORD
.WORD
LWORD
GPRMA
.WORD
.WORD
.WORD
.WORD

TSCODE

(SRMSG,CSR,0,160000,177776,YES
TSCODE

TSLOLIM
TSHILIM
VE(CMSG,VECT,0,0,776,YES
TS$CODE
VECMSG
TSLOLIM
TSHILIM

CZRLKBO RLO1/02_PERF EXER
CZR_KB.M-C
07-DEC-79 09:46

3444
(4)
(4)
(4)
(4)
(4)

3445
(4)
(4)
(4)

3446
(4)
(4)
(4)
(4)

031744
031744
031746
031750
031752
0377>4
031756
031756
031760
031762
031764
031764
031766
031770
031772
031774

MACY11

30A(1052)
DRIVE

17-DEC~79

11:31

INFORMATION BUFFERS

004032
032061
01,400
" WO
00000

GPRMD
.WORD

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

.WORD
WORD
LWORD

03400
TSLOLIM
TSHILIM

.WORD

GPRML
.WORD
.WORD
.WORD
GPRMD
.WORD

003130
032030
000001
002032
032017
000340

.WORD

WORD

000000
000007

.WORD

031776

cNn
PAGE 4-53

DRMSG

DRTYPE,TYPDR,1,YES
TSCODE
DRTYPE
1
BRMSG,PRIOR,0,340,0,7,YES
TSCODE

BRMSG

340

TSLOLIM

TSHILIM

ENDHRD

031776

L10030:

031776

030461
051525
020122
053111
052103
044522

032070

000
040440
042514
020105
051117
042526

CNTYPE:
CSRMSG:
BRMSG:
DRTYPE:
VECMSG:
DRMSG:

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

/RL11/
/BUS ADDRESS/
/BR LEVEL/
/DRIVE TYPE = RL0O1/
/VECTOR/
/DRIVE/

.EVEN

032070

ENDMOD

JQUESTIONS TO GET PARAMETERS FOR SOF TWARE P-TABLE
032070

032070
032070

032072
032072
032074
032076
032100
032102
032104
032104
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
.WORD

RTMSG,RLT,D,177777,0,177777
,YES
TS$CODE

WORD

177777

.WORD

WORD

GPRMD
.WORD
.WORD

.WORD

.WORD
.WORD
GPRML

RTMSG

TSHILIM

SRTMSG,SRLT,D.177777.0,177777.YES
TSCODE
SRTMSG

177777

TSLOLIM
TSHILIM
FDCHK,DCKFG,1,YES

SEQ 0132

CZRLKBO RLO1/02_PERF EXER
€2 RLKB.MAC
07-DEC-79 09:46

032116
032120

MACY11

30A(1052)
17-DEC~79
11:31
DRIVE INFORMATION BUFFERS

020130
033307
000001

;DCHK

(5)

006044

T$CODE

(4)

032052

(4)
(4)
(4)

3480

3481

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

D 11

PAGE 4-54

T$CODE

CHKLMT ,CLMT,D,177777,0,128.
,YES
r$CODE
CHKLMT

177777

3482

5%:

(&)

(4)
(4)
(4)
(4)
3483
(4)
(&)
(4)

000001
177777

021130
033370
000001

3484
(5)
3485
(4)
(4)
(4)
(4)
(4)

032044

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

023052
032721
177777
000000

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

036052
033424

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

002052
033003
177777
000000
177777

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

025052
033016
177777
000000
177777

(4)
(4)

024130
033333

T$CODE

ERMSG,ELT,D,177777,0,177777
,YES
T$CODE
ERMSG
177777
TSLOLIM
TSHILIM

SFTMSG,SEL,D,177777,0,1/7777
,YES

T$CODE
SFTMSG

177777

TSLOLIM
TSHILIM

177777

3487

DERPMS ,DCD,D,177777,0,177777
,YES

T$CODE
DERPMS

177777

177777
TSLOLIM
TSHILIM

000000
177777

3488

3489

3490
032246

INMSG,TYT,D0,177777,1,177777
,YES

T$CODE
INMSG
177777
TSLOLIM
TSHILIM
DRPMS ,DRFLG,1,YES
T$CODE

?RPMS

001052
032705
177777
000000
177777

3486

TSLOLIM
TSHILIM

SEMSG,SET,D,177777,0,177777
,YES

T$CODE
SEMSG
177777
TSLOLIM
TSHILIM

DREMSG,DET,D,177777,0,177777
,YES

3%:

T$CODE
DREMSG
177777
TSLOLIM
TSHILIM
STLMT,OPFLG,1,YES
T$CODE
STLMT

SEQ 0133

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

3UN
(5)
349¢
(4)

)
(&)

032250
032252
032252
032254
032254
032256

%)
4)

3493

DRIVE

003052
033031
177777
000001
177776
004052

010130
03313
000001

(5)

107044

4)
4)
%)
3497
(S)
3498
Y
4)
4)
(4)
4)
3499
4)
4)
4)
4)
(4)

034130
032564
000001

011052
033165
177777
000003
012000

%)
(4)
(4)

026130
032653
000001

(4)
4)
(%)

027130
032663
000001

(5)

006024

%)
%)
4)
(4)
(4)

030032
032673

177776

3495

3496

17-DEC~79

2%:

.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
. WORD

GPRML

.WORD
.WORD
. WORD
XFERF

3500

3501

3502
3503

032374

E N
PAGE 4-55

T$CODE

DAMSG,DAT,D,177777,1,177776,YES

T$CODE
DAMSG
177777
TSLOLIM
TSHILIM
SKMSG,SKT,D,177777,1,177776,YES
T$CODE
SKMSG
177777
TSLOLIM
TSHILIM
CHANGE
, CHFLG,1,YES
T$CODE
gHANGE

1%
T$CODE
STIPMS,STIP,1,YES
T$CODE
?TIPMS

63
T$CODE
MXBUF ,MxB,D,177777,3,5120.,YES
TSCODE

013044

022052
033176
177777
000003
012000

11:31

INFORMATION BUFFERS

. WORD
XFERF
. WORD
GPRMD
.WORD
.WORD

013044

\)
)
%)
4)
%)
3494
4)
(%)
4)

3504

30A(1052)

000001

MACY11

MXBUF

1727777
TSLOLIM
TSHILIM
MINBUF ,MNB,D,177777,3.,5120.,YES
T$CODE
MINBUF

177777

6%:

GPRML

TSLOLIM
TSHILIM
RDONLY
,ROF ,1,YES
T$CODE
?DONLY
RANPAT ,RAN,1,YES
T$CODE
?ANPAT

7$
T$CODE

ONLONE ,PAT,0,17,0,7,YES

T$CODE
ONLONE

GPRMD

17
TSLOLIM
TSHIL
IM
CMMSG,RDT,D,177777,0,128.
,YES

SEQ 0134

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

3507

(4)
(4)
(4)
(4)
(4)
3508
(4)
(4)
(4)
3509

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

(4)
(4)

351

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

3512
(4)
(4)
(4)
(4)
(4)

3513
(4)
(4)
(4)
(4)
(4)

3514
3515
3516

032374
032376
032400
032402
032404
032406
032406
032410
032412
032414
032416
032420
032420
032422
032424
032426
032430
032432
032432
032434
032436
032440
032442
032444
032444
032446
032450
032452
032452
032454
032454
032456
032460
032462
032464
032466
032466
032470
032472
032474
032476
032500
032500
032502
032504
032506
032510
032512
032512
032514
032516
032520
032522
032524

MACY11

30A(1052)
17-DEC~79
11:31
DRIVE INFORMATION BUFFERS

006052
033452
177777

.WORD
.WORD
.WORD
.WORD
. WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
. WORD
GPRMD
.WORD
-WORD
.WORD
.WORD
. WORD
GPRMD
.WORD
.WORD
.WORD
.WORD

000000
000200

007052
032735

177777
000000
000175
012052

033207
000100
000000
000001

013052
033216
000100
000000
000001

.WORD
GPRML
.WORD
.WORD
. WORD
XF ERF

037130
032524
000001

013044

. WORD
GPRMD
.WORD
.WORD

014052
033225

177600
000000
000777

015052

033235

016052

PAGE 4-56

T$CODE
CMMSG

177777
TSLOLIM

TSHILIM

DEMSG,DDT,D,177777,0,175,YES
T$CODE
DEMSG

177777
TSLOLIM
TSHILIM

MXHD ,MXxH,D,100,0,1,YES
T$CODE
MXHD
100
TSLOLIM
TSHILIM
MINHD ,MNH,D,100,0,1,YES
T$CODE
MINHD
100
TSLOL IM
TSHILIM
ASK ,ANS,1,YES
T$CODE
ASK
1

15%
T$CODE
MXCyL ,MxC,D,177600,0,511.,YES
T$CODE
MXCYL

177600
TSLOLIM
TSHILIM
MINCYL ,MNC,D,177600,0,511.,YES
T$CODE

MINCYL

177600
000000

000777

F 11

177600
TSLOLIM

15%:

TSHILIM

MXSEC ,MXS,D,77,0,39.,YES

033245

T$CODE
MXSEC

017052
033266
000077
000000
000047

TSLOLIM TSHILIM
MINSEC ,MNS,D,77,0,39.,YES
T$CODE
MINSEC
77
TSLOLIM
TSHILIM

000077
000000
000047

SEQ 0135

30A(1052)
17-DEC~79
11:31
DRIVE INFORMATION BUFFERS

.ASCI
.
.ASCI

—

STIPMS:
SRTMSG:
CHKLMT:

LASCI
RDONLY: .ASCI
RANPAT: .ASCI
ONLONE: .ASCI
ERMSG:
.ASC]
SFTMSG: .ASCI
DEMSG:
.ASC!
RTMSG:
.ASCI
SEMSG:
.ASCI
DREMSG: LASCI
DAMSG::
.ASCI
SKMSG:
LASCI
INMSG:
: LASCI
CHANGE
:
MXBUF
LASCI
MINBUF: .ASCI
:
MXHD
LASCI
MINHD:
LASCI
MXCYL:
LASCI
MINCYL: .ASCI
MXSEC:
.ASCI
MINSEC: .ASCI
FDCHK:
LASCI
STLMT:
LASCI
DRPMS:
.ASCI
DERPMS: .ASCI
CMMSG:
.ASCI

PN RNNANNNNNANRNNN
N NN NN NN NN NN NN NN NN

R RRNN
= D=L
2 OO
F VIV
IVIV IV
v I

S}
e \S =
b e
d
b
N —b

044524
020101
020120
042040
046440
020123

ASK:

—

b —d
—

(¥,

b e
b

D ed

(=
o
o

|,
[\ ]

oo
Hon
o—

047527

052105
020113
042440
052101
020113
046511
040510
054101
020116
054101
020116
054101
047111
040524
051101
052101
047522
050117
040524
042122

042507
046125
051040
020106
047117
050040
044103
042440
0426440
020106
054522
051105
051122
020101
046514
020105
043516
054040
043130
044040
042110
041440
041440
052122

(%]

047101
050111

2—\—.—5—.—52

OMNIN
NI =rPONIN)
S NN WNO NN

042523

3 Po£H

032564
032614
032633
032653
032663
032673
032705
032721
032735
032771
033003
033016
033031
033061
033101
033131
033165

032524

[gn]

L10031:

032524

.EVEN

033514

ENDMOD

033514
033514
033516
033520

LASTAD

000000
000000

000001

LSLAST::
.END

G 11

PAGE 4-57

ENDSFT
.EVEN

032524

MACY11

(]

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

.EVEN
.WORD
.WORD

/CHANGE VALUES OF MXCYL & MINCYL/

ASTIPULATE R/W XFER SIZEX

/SEEK RETRY LMT/
/# OF ERR DUMPED/
/RD ONLY/
/RAN PAT/
/WHICH ONE/
/HRD ERR LMT/
/SFT ERR LMT/
/# OF DATA ERR RPT'D PER BUF/
/RETRY LMT/
/SK ERR LMT/
/DR ERR LMT/
/DATA XFER LMT (*10(10))/
/SK LMT (*10(3))/
/TIME BETW REPORTS (MIN)/

XCHANGE SEEK, R/W PARAMETERSY

/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
ADDCOD
ADR
=
AFREAD
AFWRCK
AGSTAT
ANS
=
ARDHDR
ASEEK
ASK

013346 G
000020 G
020570
020610
021032
000076
020670
020526
032524

AUTO
=
AWRITE
BA
=
BA16
=
BA17
=
BBA
=

000066
021136
000002
000020
000040
000110

MACY11

H1
11:31
17-DEC=79
30A(1052)
PAGE §
CROSS REFERENCE TABLE -~ USER SYMBOLS

SEQ 0137

20634

. ASSEMB= 000010

1778

121

120

2138

—

1446%

1645

2063

319N

3429

W
v

2492

836+
34564

842

858

2446

2452

120

2791+
3021%

-—
——
N
NN
N==
ds
OO
N =d O
Q&
NOooOoowW

— b b —d =

)= =2 O OVOOO0O—=
WNWVONNNS
N0 W

—

NN
NS

SV
~ WO WSO

2512«
2941«

1541

3014

1110«

1566

2510«
2940+

117

107

1649%

1467«

2825+«

32124

2422%

856

'—\-‘)—a

b
d
—
bl
——h
—
b

000400
002334
032017
000112
027364

1644

854

1103
92

BOE
=
BPRIOR
BRMSG
BSECPT=
BSECO

3429

845

1648+

2474
2891~

H —

002336
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000042

1650

834>

BDRSEL
BITO =
BITOO =
BITO1 =
BIT02 =
BITO3 =
BIT04 =
BITO5 =
BIT06 =
BITO07 =
BITO8 =
BITO9 =
BIT1
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT15 =
BITZ2
=
BIT3 =
BIT4
=
BITS
=
BIT6é =
BIT7 =
BIT8 =
BIT9 =
BMP
=

1931

3429

—

= 000040

(alalalalalalalalalalalalalalalalalalalalalalalalaYa)

BDA

1643

2830*

1646+

002330

BCSR

1607

2799+

3050

859

2792«
3022«

1960

1966

2307

2481

2423+

2795
3023~

2436+
2798«
3038

2440+
2826+
3429

2453
2827+

2462+
2828+

2305

2313+

2641+

2588

2655+

1949

1108

SHee

BCSADR= 000046

1109+

504
2776%

3429

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

CLKCNT
CLKFLD
CLKFRQ
CLKINI
CLKSON
CLKST
CLKTIK
CLKTYP
=
CLMT
* CLNCOD
CLRDAT
CMMSG
CMRD
CMSK
=
CNT
CNTFLG
CNTLR?
CNTLRZ
CNTYPE
CONWR
=
CRDY
CRLBA
CRLCS
CRLDA
CRLMP
= 000000
CS

= 000000
(SR
CSRMSG
032003

2830

835+

844

847

857

861

2622

2646

26534

1843+

1845«

1902+

1921+

2005

2172+

2841+

2842

2861

31644

1143

1148

1663

1699

2860+

3064

2249

2267

227

2061

1039

1696+

NW\I—l;ll*\JV\N
L ER

027216
027274
023742
021420
027174
002512
002316
002510
002506

14SH
1785
3481
264H
3196
1846
1506

2799

020432
032633
002342

2787

—d

000020

948
949«

024314
033131

3504
2596
3494

944
948+

(kBDSC
CKBDTK
CKDATA
CKDERR
CLEAR
CLKACC
CLKADR
CLKBFR

PRCH

849
865

CEND
CHANGE
CHFLG =
CHKFNC
CHKLMT
CHKSEC

32174
3218#
32194
2954
2964
3954

BSEC6
BSEC?7
BUF1
BUF
2
BUSAD
BVEC
CART

3216

BSECS

SEQ 0138

3213
32144
32154

—

BSECS

027426
027470
027532
027574
027636

I 1

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

— b b O8N N = ON b
S Ny=unons

BSEC]

BSEC?
BSEC3

MACY11

1697

1118

1122

2579

2592

927
922

1021
945

1023+
1026

1622
1029

1031«

1651

2280

2671

2693

2695

557

306%
1936+
2905

1938

2227

1377+

2694«

1881

2695+«

2241

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

C3AU_ =
C$AUTO=
C$BRK =
($8SEG=

($85UB=
C$CEFG=
C$CLCK=
CSCLEA=
C$CLOS=
C$CLP1=
CS$CVEC=
C$DCLN=
C$DODU=
CS$DRPT=
C$DU
=
C$EDIT=
=
CSERDF
CSERHR=

CSERRO=
CSERSF=
C$ERSO=
CSESCA=
C$ESEG=
C$ESUB=

CSETST=

CSEXIT=
C$GETB=
CSGE Tw=
CSGMAN=
CSGPHR=
CSGPLO=
C$GPRI=
C$INIT=
CSINLP=
CSMANI
=
CSMEM =
CEMSG =
CSOPEN=
C$PNTB=

CSPNTF=
CSPNTS=
CEPNTX=
($QI0 =
CS$RDBU=
CSREFG=
C$RESE=
CSREVI=
CSRFLA=
CSRPT =

024460

2690
242N
2364
104
104
104
104
104
104
10#
104
104

104
104

104
104
104
104

MACY11

30A(1052)

26934
562«
2416

563

1069
1007
1821

J 1

17-DEC-79
11:31
PAGE 5-2
CROSS REFERENCE TABLE == USER SYMBOLS
564+

566+

568+

SEQ 0139

576

2274

749
1041

754

765

1000

1024

1032

1036

1282
1091
19
868
1892

1804
1898

2676
2087

2091

2099

2121

2131

2188

2198

2611

2642

12€6

1641

1820

2042

464

473

480

489

496

506

513

520

527

535

472
551
3130
901

479
552
3137
941

488
556

494

557

504
576

505
2233

2251

519

3123
771

469
548
3126
772

3064

533
3072

534
3107

983

994

1250

1857

2561

2563

2564

2751

706

1164

1165

1174

1176

1177

1178

1179

1180

1181

1182

2553

2156

2656

3373

831

1060

959
938
457

463

757
774
741
19
718

887

512

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037

C$TPRI=
C.HDR
DA
=
DALMT
DAMSG
DAT
=
DATCER=
DCD
=
DCOMSG
DCKFG =
DCRC_
=
DCRCER=
DCS
=

ODT

= 000016

DECNT
DELMT
DEMSG
DERCNT=
DERMSG
DERPMS
DERR
=
DET
=
DIAGMC=
DIFMSG
DIFWD =
OLT
=
DLTCNT=
DLYCNT
DMPBUF
DMPDCK
DNRDY
DOWCK =
DPHOUR=
DPMIN =
DRBT
=
DRBUF
DRDRV
DRDY
=
DREMSG
DRFLG =
DRLMT
DRMSG

DRNM
DROP
DROPCO
DRPMS
DRPRS

000013
002434
000004
010666
033031
000006
000074
000074
003407
000040
004000
000022
000104

002344
010676
032735
000020
003432
033424
040000
000052
000000
002623
000066
010000
000026
002500
026272
003265
002664
000076
000070
000071
000010
030432
023520
000001
033016
000042
010732
032061

004030
004276
013432
033370
002253

DRSEL = 000106

DRST

= 000013

30A(1052)

739
760

762
920

764
925.

1019
978

1202
1018

534

1885+
1779

2689+

2692+

2697

770
1674
3744
1534

131

2638+

3429

554
81
991«
1637
2904

1849+

994
1876

3429
551
999«
1935

711
1061«

2162+

2458

2654

2591+

2637+

2653

1321

2195+

3429

2249

2267

1567+

3429

1840«

787

3429
2239+

2230
3429
1171
2557+

2556«
2559+

3429

907

976
1325
2227

104
104
104
104

2944

“On
6614
3492
1404

1064

1440

6664

3505
S4#
3754
3487
954
1584
10
3494
734
1054
SN
315#
1858
3694
3524
784
74H
754
1324
710
791
924

3489

17-DEC-79

CROSS REFERENCE

824
1648

1228
1796

551

1164

910+

916
81

11:31

K1
PAGE 5-3

MACY11

SEQ 0140

TABLE =-- USER SYMBOLS

2259+

783«
1108+

2060

2586

869+

908
1220+

1124

785
1164

980
1224

983

2671

1219+
2688

2691

2803

2811

2833«

2846+

2847

3077

3103«

3113

2266%

2270+

2542
25374

2919

1220

1647

1079
1979

2271

988«

1292

3151

1294

2838

990+

1622

2857

33834

1544

680#
3444
3904
4034
10734
3483

231a
82#
2281
1194

551

3429
2697

983

990

994

1103«

1164

1874

1934

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

ENDWR
EPS
ERLMT
ERLMTM

ERMSG
ERR
=
ERRCNT=
ERREX
ERRHDR
ERRVEC
ERR1

FASCII
FASPNT

(2]
(alnlnalnYa)

012222
031712
013722
030424

002456
002460

3094
364

779
576

2198

916+

1059+

1216

1263

3081«
303,«

3082+
3060+

3099+
mm

3122«

3132«

810

SEQ 0141

1270

1405

2560+

2186+

2913«

2916

2142

774

887
3485
830

364324

33724
27754

463
1303
1305
35314

032705
1

002424
002426
002430
002432

1034
AOCy
308#

36574

LN
30A(1052)
17-DEC~79
11:3
PAGE 5-4
CROSS REFERENCE TABLE == USER SYMBOLS

913
1131

024754
004054
010662
003322

000012
021260
004476
002466
005070
ERR10
005646
ERR12
005716
ERR13
005724
ERR2
005076
ERR3
005162
ERRG
005312
ERR6
005364
ERR7
005424
ERR8
005462
ERR9
005602
ERT
004161
EVL
= 000004
EXHAUS
002773
EXIT
021222
021254
EXIT1
EXIT2
017036
004254
EXP
ESEND = 002100
ESLOAD= 000035
E-BA
002422
E.CS
002420

E.DA
E.MP
E-MP1
E.MP2

3445
2304
3614

1180

1803«
2" 85

2120

2130+,

978
1820

1018

1036

2151
534
IalalalalalalalnlAala)

END
ENDBUF
ENDINI
ENDOFP

032030
002252
003061
000400
010756
002462
002464
000036
000035
000034
000037
000040
000002

DRTYPE
DRUT
DRVER
DSE
=
DSPCOD
DWCNT
DWCNT1
EF .CON=
EF -NEW=
EF .PWR=
EF .RES=
EF .STA=
ELT
=

MACY11

868
2611
2188

3429

2912
2091

1892
2156

2099

2121
2656
2642
1804
472

2108
2189

2126
2226

2128

2133

2177«

2906+
1793

3054
1796

3062

1808

1814

532«

1761
1762

1779+
1780+

2078

1792

1843
2112

2175«

543+
539«

541«

16944

1783

1764
538+
537

1781«
1782+

1902

2146

21500

2253

1817

1832

1837

1870

1921

2176+

2907+

3040

2911+

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

MACY11

3479
850

35494

b
b
b
—ad —d

AIOOCO
00 NN NNV ~
WA=
O 000 ~NON— o~

b od d od d —d
b

6174
6194
6204
6214

706

cod cd e

6144
6154
6164

006705
007337
007373
007444
007452
007472
007502
007517
007544
007553
007565
007562
007627
006672
007747
006714
006735
006757
007020
007104
007137
007153
007201
007215
007225
007263
007705
013654
013706
000044

FMT1

2012
547

FMT1A
FMT10
FMT10A
FMT10B
FMT11
FMT12
FMT13
FMT13D
FM.14
FMT14A
FMT14B
FMT14C
FMT15
FMT17
FMT18
FMT2
FMT2A
FMT3
FMT3A
FMT4
FMT5
FMT6
FmT7
FMT8
FMT9
FMT9A
FRMT16
FRACHK
FRQ50
FUNC
=

1105
928

—

033307
013474
013520
012550
021362
010164
010013
010076
010116
010151
010215
010304
010341
010450
010505
010600
007754

FOCHK
FILINF
FILTD
FINDGF
FINFRR
FMTDT
FMTS1T
FMIS'A
FMTSIB
FMTS2
FMTS2A
FMTS2B
FMTS3
FMTS3A
FMTS4
FMTSS
FMTXS

M1
17-DEC-79
PAGE 5-5
11:3
CROSS REFERENCE TABLE -- USER SYMBOLS

30A(1052)

SEQ 0142

11034

2235
6184
2564

1165

1164

006650

FSAU = 000015
FSAUTO= 000020
FSBGN = 000040

3064
772

941

1250

2561

3130

3137

1458+
2427

2442+

1857

2233

2251

3072

2751

34
500
705
1073
3473

1466+

1573«

2808+

1593

2834+

1646

2933«

1851

2942+
461
1016
1718

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
FSCLEA= 000007
F$DU
= 000016
FSEND = 000041

F$HARD=
FSHW
=
FSINIT=
FS$JMP =
FEMOD =

104
104
104

480
695
1069
3448

000004
000013
000006
000050
000000

104
104
104
104
104

654

FEMSG = 000011

GDDAT
GETDST
GETFNC
GHOR
GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GOERRX
GOFIN
GSBIT =

002402
024432
015314
022316
002242
002242
005070
013474
002516
020422
020426
000003

GSTFNC
GWCDA
GSCNTO=
GSDELM=
G$0ISP=
GSEXCP=
GSHILI=
GSLOL
I=
GSNO
=
GS$OFFS=

015746
025764
000200
000372
000003
000400
000002
000001
000000
000400

GSTAT =

G$OFSI= 000376
G$PRMA= 000001
G$PRMD= 000002

489
699
1071
3467

3439
639
737
18

693

1041
1091
21

496
703
1073
3473

3448
648
959
21

695

506
718

1091

3517

3480

699

171

224

1093

1099

3484

513
720

1190

3491

3495

3497

3502

3509

171

224

325

720

1073

473

477

480

485

489

493

496

3517

513

518

520

523

2804
1798
1302
2234
2244
34n
4514
10994
3324
1906
1910
1204
1144

1437
1580
104
10#
104
104
104
104
104
104
3485
3501
104
3485
3501
104
104
3493

718

3475
1659

3480
1705

656

650

1071

509

705

637

3438

1046

506

730

632

3373

693
1046

1043

500

726

451

2180

654
1043

473

1013

3561

467

447

1714

650
1041

464

960

3473

464

332

1705

457

735

3467

461

451

1186

3438

457

447

637
1013

1186

455

332

632
1007

703

527
959

SEQ 0143

535
960

3561

520
735

325

1099

104
104
104
104
104
104
104
104
104

G
G
G
G
G

1016
1075
18

N1
30A(1052)
17-DEC-79
11:31
PAGE 5-6
CROSS REFERENCE TABLE == USER SYMBOLS

1093

104

F$PROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOF
T= 000005
F$SRV = 000010
FeSUB = 000002
F$SW
= 000014
F$TEST= 000001

MACY11

527

529

3484
1709

3491
1714

3495
1718

3497
2180

3502

3509

2633«
2220

2634
2256

3095«
26884

3098«
2910

3100

3107

535

691

1190
504

3373
2630%

1925
1929
1467

20094
20124
2689

164664
1603

29604

763

787

2239

2259

2266

2270

2670

3441
3486
3503
3441
3486
3503
3442
3444
3498

3442
3487
35C4
3442
3487
3504
3443
3446
3499

3443
3488
3505
3443
3488
3505

3444
3489
3506
3444
3489
3506

3445
36490
3507
3445
3490
3507

3446
3492
3508
3446
3492
3508

3477
3493
3510
3477
3493
3510

3478
3494
351
3478
3494
3N

3479
3496
3512
3479
3496
3512

3481
3498
3513
3481
3498
3513

3482
3499

3483
3500

3482
3499

3483
3500

3477
3503

3478
3504

3481
3505

3482
3506

3485
3507

3486
3510

3487
351

3488
3512

3489
3513

3492

2196
1322
2252

1466

2213
13304
22804

2693

CZRLKBO RLO1/02_PERF EXER

CZRLKB.MAC

07-DEC~79 09:46

GSPRML= 000000

104

GSRADA= 000140
GSRADB= 000000
GSRADD= 000040

104
104
104

3499
104
104
10#
100
3485
3501

GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HCE
= 040000
HCRC
= 004000
HCRCER= 000024

HOHOME
HORFND

o7a
1074
S

025670
002340

795
3%8?50

8 12
PAGE 5-7
CROSS REFERENCE TABLE -- USER SYMBOLS

MACY11

30A(1052)

344)

3445

3479

3483

3477

3478

3481

3482

3504
3441
3442
3480
3441
3486
3503

2206
1953
1181
2522
1507

3505
3445
3443
3484
3442
3487
3504
1971
1927+«

2755
1766

17-DEC-79

3506
3479
3444
3491
3443
3488
3505
3429

2775
1847

11:31

SEQ 0144

3490

3494

3496

3500

3501

3508

3485

3486

3487

3488

3489

3492

3501

3508

3507
3483
3446
3495
3444
3489
3506

3510
3490
3503
3497
3445
3490
3507

29324
1904
1551

3511
3494

3512
3496

3513
3500

3493

3498

3502
3446
3492
3508

3509
3477
3493
3510

3478
3494
3511

3479
3496
3512

3481
3498
3513

3482
3499

3483
3500

1923

2007

2171~

2843

2862

3164

3177+«

3186+

1563

2898

26914

2805

2849

2868

HEAD

= 000100

HINUM

002260

HNF
= 010000
HNFERR= 000032
HOE
= 100000 G

HOUR

002416

HRDPRM
HWSEC
IBE
=
IDU
=
IER
=

031714
003720
010000
000040
020000

HPTCOD

ILLEG
INBAD
INCALL
INIEND

INITCO

INSMEM

004711

INTEN = 000100
INTERV
INTR1
INTR2
ISDRST
ISR

002406
017116 G
017126
024446

= 000100 G

ISSUE
016542
IXE
= 004000 G
ISAU_ = 000041
ISAUTO= 000041
ISCLN = 000041
ISOU = 000041
ISHRD = 000041

ISINIT= 000041
I1S$MOD = 000041

I1SMSG = 000041

1870
1181

34384
3844
364
3o
364

G
G
G

033101

1084
So%
34

6374

011046 G

INMSG

1502

2874

010640 G

003770
025550
002476
012674

1244

234N

)

817«

546

2903#
744
931

4194

941

934

2824
920
925
25%
3#

1412
3on
104
104
104
104
34304

1549

2719

2723+

1908«

3429

551

1164

2556

1034+
935

1077
9584

1770

2167«

2540%

2554%

2445

3874
2871
3144
808
7354

3482

1521

271

35394
1277
17184
17574
1873

539

1023

1031

1627

1851

1918

2162

2210

2212

2219

2237

2265

2408

2461

1448

1459

1468

1569

1574

1595

1612

16224

10484

10694

bI%4

1714

224N

3254

1279%
17544

1684~

9724
10164
10754
34484
7374
184

10074
10414
10914

10934

10994

11864

34384

34674

34734

35614

5004

5064

5094

5134

5184

5204

5234

104
104
6544
104

6934

4554

9594
214
6954
4574

69N

4614

7034

464N

7204

L4674

3324

LL7n

4510

6324

6374

6504

7354

9604

10134

10434

10464

10714

10734

4734

4804

4854

934

496#

5274

5294

5354

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
ISPROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
ISSEG = 000041
ISSETU= 000041
ISSFT = 000041
ISSRV = 000041
ISSUB = 000041
ISTST = 000041
JSJMP = 000167
KILLDC
002310
LCLK
013616
LCLKCH 011132
LDFUNC 016574

LIMIT
010660
LINE1
006014
LINE2
006220
LINE3
006330
LIST
022636
LOE _ = 040000 G
LONUM
002262
LOT
= 000010 G
LPS
004041
LSTDA = 000064
LSTDR1
002324
LSTDR2 002326
LSTHOR= 000050
LSACP
002110 G
LSAPT
002036 G
LSAU
013346 G
LSAUT
002070 G
LSAUTO 012676 G
LSCCP
002106 G
LSCLEA 013150 G
LSCO
002032 G
LSDEPO 002011 G
LSDESC
002122 G
LSDESP 002076 G
LSDEVP 002060 G
LSDISP
010760 G
LSDLY
002116 G
LSDTP
002040 G
LSDTYP 002034 G
LSOU_
013432 6
LSDUT
002072 G
LSDVTY 002230 G

LSEF
LSENVI
LSETP
LSEXP1
LSEXP4
LSEXPS
LSHARD
LSHIME

002052
002044
002102
002046
002064
002066
031716
002120

G
G
G
G
G
G
G
G

100
100
104
100
104
104
36754
104
00
100
104
2468
1119
750
1403
2856
658#
468
486
456
1354
36#
235
364
3914
7M
2574
2584
OOF
194
194
19
194
19
194
19
194
194
19
19#
194
19
194

194
194
19
19%
19
194
194
19%
19%
194
194

19
19%

MACY11

c 12

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

SEQ 0145

7264
7054
1190

35174
16594
1190
11904
891
11224
754
1429
2893
2354
5374
501
462
23654

7184

17054

17094

17144

17184

21804

33734
B9

2582

1432
293¢

1435
2943

1438

16374

2410

555
5514
478

2562
495

2754
511

525

530

818«

1255

1285

1346

1488

2325

2710

463
469
1624
1626%
463

512
470
1755
1758
512

1792«

1844r

3429

1482

1562«

2102%

2939

3429

2425

5554

10484

10164

244

787

2239

2259

2266

2270

2670

10754
274

34394

2455

2801

2809

272+

2965

2996

3033
2717

97ox

697#
763

2428

2835

SEQ 0146

R
B
L3 X 3 ““g Pt

D 12

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

SN —
N
U

OVO0

xRy Xy

G
S
U
U
S
U
G
G
S
G
G

WO N0 YO O YO YO O OO OO OOV OOV
RN

6394
7374

35634

7264

7054

34754

6564
826

975

LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
L$PRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPT
T
LSSOF
LS$SPC
LS$SPCP
LSSPTP
LSSTA
LSSW
LSTEST
LSTIML
LSUNIT
L10000
L10001
L10002
L10003

(alalalalalalalalalalalalalalalalalalalalalalalaTAY
A

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

6484
6914

34484

35174
1271
951
1978

3624

2642
2246

1293
952

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
MHDER
MINBUF
MINCYL
MINHO
MINSEC

MINUTE
MK
=
MB
=
MNC
=
MNH
=
MNS
=
L o
=

MPT
MRDER
MRLCS
MRT
MSFER
MSKER
MST
MSTART
MST1
MSWRPK
MTCR
MTDCRC
MIDLT
MTORV
MTEST

002000 G
003116
002547
003252
033176
033235
033216
033266
002414
000001
000044
000032
000026
000036
000006

3634
3440
3684
3499
3sn
3507
3513
2864

MACY11 30A(1052)

2121
548
2188
35424
35464
3544H
35484

MXS

566
1562
3499

551
2423

1164
2941

2557

1645«

1780

1781

551

1164

'2251

546

512

2287

005007
004321

033245
011326
004530
002654
004673
004016

E 12
PAGE 5-10

SEQ 0147

2131

004314
004346
004341
005047
005027
005057
005017
005037
MVCER
003132
MVEC
004004
Mx8
= 00002
MXBUF
033165
MxC
= 000030
MXCYL
033225
MXH
=
24
MXHD
033207

MXSEC
NILCLK
NOCLK
NOCRDY
NOCTLR
NODRIV

11:31

CROSS REFERENCE TABLE =-- USER SYMBOLS

003756
003212
002525
004150
003042
003031
004177
004360
004214
004400
004777
004327
004334
004353
014534

MTGS
MTHCRC
MTHNF
MINXM
MTOPI
MTRD
MTRH
MTRNH
MTSK
MTWR

17-DEC-79

767
44

2676

985
1266

7714

1782

1884

1939

1940

1941

2284

2413

2430

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

003573

MACY11

3804

2276

L4134

901

NOPWR

004101

NORDY
NOREPT
NOREV
NOTRDY
NWRTS
NXM
=
NXMCNT=
ODRDRV
ONLONE
OPCALL
OPFLG =
oPl
=

002704
004566
003631
004636
002736
020000
000034
023514
032673
002474
000050
002000

3503
313#
1574
1094

1804
772
2611
996
2912
1808
1181
25364
35304
1035«
743«
1649

015540
003453
000000
000001
000001
000001
000001
000000
000001
000001
000000

1364
3764
104
104
104
104
104
104
104
104
104

1366
2986
19
154
154
154
154
1
15#
154
19

NORDDC

004416

OPICNT= 000030

OPROK
OVER
O%APTS=
0$AU =
O$BGNR=
O$BGNS=
osOU =
O$ERRT=
O$GNSW=
O$POIN=
O$SETU=
PAT
=
PATLST
PATO
PAT1

PATZ2
PAT3
PAT4

PATS
PAT6
PAT7
PEROTH

3944

3534
4164
3824

78
3554
1044
60
1087

58¢

{00060
030004
030024
030064

1614
2328
3225
3226

030164

3228

030124
030224

3229

1182

3503
2602
3234
32514

796%
1641

PRIORT
PRIOR2
PRIOO =
PRIO1 =
PRIOZ2 =
PRIO3 =
PRIO4 PRIOS =

2784
2794
364
364
364
364
36#
364

002376
002400
000000
000040
000100
000140
000200
000240

G
G
G
G
G
G
PRIO6 = 000300 G
PRIO7 = 000340 G
PRPOS = 000124

1304

36n
36#

8o
1537
2945+

3429

1769
3490
1817

2168+

2536+

1832

1951

1969

1368

1378

1380

1391

1826

3429

2551

2555+

1393

1395

164034

1413

1417

19
19
19
19
19
19
3563
3065

4
32254

33024

64
3544
34

PRIOR = 000004

1811

32854

PRFLGS= 000056
PRGER
002732
PRI
= 002000 G

364

3072

32684

33194
3336m
33534

= 001000 G

SEQ 0148

790

3230
3231
3232
12564

PNT

030264
030324
030364
015006

3227

F 12
30A(1052)
17-DEC-~79 11:31
PAGE 5-11
CROSS REFERENCE TABLE == USER SYMBOLS

3446

1232+«
2042

842+
858+
1019

920
925

463
1542
3021

714
1543«
3429

2048+

2059+«

2083

2103«

2105+«

2137«

3429

801
1544+

912
1549+

1001
1551«

1055
1563

1083
1887

111
2080

1241
; 2107+

1289
2286+

1483
2548

1490
2795

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
PWRCH
PWRFLG
RAN
=
RAND
RANPAT
RCD
RCNT
ROBDSC
RODFNC
RDHDR =
RDHFNC
RONHC
RDONLY

RDTY

011376
002446
000056
024524
032663
004265
022616
022654
016500
000010
016416
015704
032653

= 000014

READ
= 000014
RECNT
002242

REGEN
REPORT
REQ
RESTAR

RETRY =
RLT
=
RNTEMP
ROF
=
RPS
RPTCOD
RSEEK =
RTMSG
RTYPE =
RT1
RWCNT
RXFRY =
RXFR2 =
RXFR3 =

SAVE
SEC
SECMSK
SECOND
SEEK
=
SEL
=
SELMT
SEMSG
SERLMT
SERNM1=
SERNM2=
SET
=
SEXHAU
SFEMSG
SFLMT
SFTCNT=
SFTMSG

SFTPRM

S5IGN
=
SKCNT =

002306
014024
003510
012310

000036
000000
002404
000054
004066
010762
000114
032771
000052
004231
002244
000002
000004
000060

017134
002304
002266
002412
000006
000046
010664
033003
003344
000100
000102
000004
003523
003365
010726
000014
032721

(032070

SKCNT1= 000054
SKDON = 000001

753
29
1604
12564
3501

MACY11
770

776+

3501

1344

35294
504

G 12

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

SEQ 0149

774m
1487

2324

27064

2964

2995

16034
1933

2280

2409

2866
2578+

2609+

2636+

2789+

797+«

1410

1480'

2354a
24L04m
1392
1573
15734
14464

2427

2933

2150

2158~

2354

2356+

35284
3504
1611

2852+
1583«

11644
1086

893#

472

3477

3429

3500
463

1233«

1414

1478

2049+

2095«

2096

2106+

3429

799+

1810+

1825+

1839+

1850+

1909+

1928+

2152

2065+
2068+
1336

2066
2070
2072«

2069+
2073
3429

3429
3429

570+

576

551
2424

2892

2942

2682+
3429

3429

1176

2483+

1307

2423

1334
2050+
2059

1164

3429

3429
2054
2103

3429
2105

2137

2287+

3429

CZRLKBO RLO1/02_PERF EXER
CZRLKB.MAC
07-DEC-79 09:46
SKECNT=
SKFNC
SKHS
=
SKLMT
SKMSG
SKRD
SKRDRD
SKRETR=
SKRH
SKT
=

000016
015766
000020
010670
033061
015460
015504
020750
015620
000010

SKWRT
SMSG
SMSK
SOFTCS=
SOPLMT
SPE
=
SPTCOD
SRLT
=
SRTMSG
STOMP

015424
002761
002272
000116
003611
004000
010656 6
000062
032614
027006

STIP
=
STIPMS
STLMT
STWRT
ST1
ST2
SUR
SvCGBL-

000070
032564
033333
024776
002470
002472
002302
000000

SKTO

STFLG

= 010000

002452

SVCINS- 000000

53
1363
1234
6624
3493
13778

13904
1895
14284

1315
1390
2423

2369

1489
469
1340
2206

1886
2184

1654
3496
3490
2767
314
3124
2434
10#
485
703
1659
104
488
534

3496
35254
35504
2769
479
479
571«
18
493
705
1709
114
489
535

3014

888

2204

3478
35264
3073

7465%

71
765

901

1024
1174
1641

2086
1416

3429
1428
_

14784

2079
3429

2285

3195

889+

1209+

1236

31204

821

2772

2774

574+

575«

1718

3438

546

547

19
500
726

19
494

739
771

920

1032
1176
1705

24
509
735

24
496
741
772

925

1036
1177
1714

2091
2270
2912
3442
3483
3496
3509
104
104

2099
2274
2986
3443
3484
3497
3510

2121
2553
3064
3444
3485
3498
3511

2131
2561
3072
3445
3486
3499
3512

124

457

464

1375
1470

1383
1472

1388
1553

1398
1555

648

2530
3162

691

2534
3182

_ SEQ 0150

2370

2366

1019
17
1282

SVCSuB= 177777

1179
1377
1565
1334
35384
2367
2371
20934
2368
3493

1614
994
13634
3564
2394
864
3814
1004
6544
1624
3478
2612

706
764

SVCTAG= 000000

MACY11

H 12
30A(1052)
17-DEC~79
11:31
PAGE 5-13
CROSS REFERENCE TABLE -- USER SYMBOLS

718

2702
3184

959

2704
3208

27864

576

27
518
737
3439
27
504
548
749
774

938

1040
1178
1804

2156
2563
3107
3446
3487
3500
3513
673

1007

1401
1631

2731
3209

34
523
972
3473
457
505
551
750
775

941

1041
1179
18¢°

2180
2564
3113
3448
3488
3501
3517
480

1041

1420
1635

2762
3220

224
529
1013

3475

463
506

552

754
787

959

1060
1180
1821

2188
2586
3123
3475
3489
3502
3563

489

1069

1426
1705

2928
3221

332
637
1016
35634
464
512
356

451
639
1046

455
654
1048

461
656
1073

467
695
1075

477
697
1099

469
513

472
519

473
520

479
527

480
533

755
810

757
811

758
831

760
832

762
868

763
887

1069
1181
1857

1091
1182
1892

1120
1202
1898

978

2198
2611
3126
3477
3490
3503
696

1091

1442
1714

2930
3373

557

983

2233
2642
3130
3478
349
3504
506

1191

1444
2180

2950
3448

576

994

2239
2656
3137
3479
3492
3505
513

1200

1450
2293

2958
3517

639
1000

1124
1259
2042

2251
2670
3373
3480
3493
3506
520

656

1007

1164
1251
2060

2259
2676
3439
3481
3494
3507
527

697

1018

1165
1266
2087

2266
2751
3441
3482
3495
3508
535

1356

1361

137

2297

2374

2402

1452

3027

1462

3031

1464

3159

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

177777
003740
002502
002256

TAGX

015152

104
3854
316
233

S$LSYM= 010000
TDR

104
6914

13004

112

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

1190
2465
748+
878~

752+
881«

L4574
718#

SEQ 0151

“738
10074

804
1256

930
1286

1037

L64N
9594

769
884r

4894
10694

Lo6n
10914

S06#
17054

5134
17144

S20#
21804

527
33734

5354
34484

648#
35174

4804
10414

= 000120

343;‘

547

552

1107+«

1165

1493

1517

1539

2414

2432

2466

2508

2764

006510
002346

67
3%38#

503
3?5?'

559
3?25'

5624
558+

562

569

2593~

2648+«

3080+

3081

3084+

3088

3090«

1942+«

2170+

2485+

2488+

2762+

2768

2490+

2492+

2773

2792

2639

2643+

3085+

3107

3109

S124

5194

TELCYL
TEMPO

TEMPT

002350

TEMP2

002352

TEMP3
T°MPL
TEMPS
TEMPG
TEMP?
TEMPS
TEMPS
TICK
TIME
TRACK
TRERR =

002354
002356
002360
002362
002364
002366
002370
002410
002516
003305
000072

TRPHAN
TSTDRV
TYINT
TYPDR =
TYT
=
TSARGC=

014016
002250
010672
000006
000012
000001

TRPFLG

MACY11

2674

2494
2827

002450

TSGMAN= 000000
TSHILI= 000047
TSLAST= 000001
T$LOLI- 000000
T$LSYM= 010000
T$L TNO- 000001

BTe

205L

2694
o704
2714
o724
2734
276M
2754
284
3410
3704
764

244he
O 98B«
~18e
23160
2330«
2334e

978
2294
6634
1314
%20
198

1669
546
1892
1179
977+
1018
1272«
1277
3445
3482
4634

36414

34420

34974
35104

34984
35114

34844

T$ERRN= 000307
T$EXCP= 000000

O8N

S464
9834
12504
31234

104

1109

1767

1932«

2497+

2589+
3083«

2498

2595«
3086
2499+

2500

2590+

2463
2604
2626
2318+
2333
2338

2506
2616
2629+
2332«

2513«
2628
2631+
233w

2592«

2611

2650w

3087

3091

3093«

3096+

551
2091
1316
981
1158
1405
*

1164
1891«
1158

2090%

3429

472

L79F

494K

SO4E

S0S4

L6OF

2588+
2898+

2617+
3094

2619

2645%

4BBA

S334

5474
9944
18574
31264

5484
11644
2233
31304

5514
11654
22514
31374

5524
11714
25614

S564
11744
2563k

SS574
11764
25644

S764
11774
27518

7064
1178%
29864

7714
11794
30644

7724
11804
30724

9014
11814
31074

3485

34864

3L44LN
34874

3L45K

34468

3477

3478

34794

34804

34814

34824

35004
3513«

3488

35014

35024

35034

35044

35054

35064

35074

35084

8684

34438

36994
35124

12664

16414

18044

34894
18204

34904

18924

34914

18984

36924

34864

34874

34884

26564

26764

34924

364934

34984

34994

35034

35044

35054

35064

35074

3477

3478k

34BIN

34824

21214

34854

206428

29124

35104

35114

34834

34964

20994

26114

5344

9414
11824
3113~

34954

20914

21984
34464

34944

20874

21884
3L44M

34934

20424

21564

34434

2493

21314

34420

865+«

2496
2889«

3004

T$CODE= 017052

849+

2495+
2886

35094

34894

35124

3513«

104
34420

3443

3LL4N

34464

34774

3478k

34B1A

34824

34BSH

3486H

34874

3488

35634
34434

35124

34894

104
34420

35114

3444N-

34468

34774

34782

34814

34824

34854

3486w

- 34874

34884

34894

464

473

480

489

496

506

513

520

527

535

648

34924

364924
104

691

35634

34934

34934
457

718

34984

34984
959

34994

34994
1007

35034

35034
1041

35044

35044
1069

35054

35054
1091

35064

35064
1705

35074

35074
1714

35104

2180

35114
3373

35124

3448

35134

3513«
3517

CZRLKBO RLO1/02 PERF EXER
CZRLKB.MA(
TSNEST=

07-DEC-79 09:46

177777

104

LOLN

5184
6914
9604

10914

T$NSO

TENST

177777

11864

7034
10164
11904

5274
699#4
10134

5294

224M

L854

5354

3324

18#
693

21
6954
1071
457
5094

344
699

171
7034
1093
464
5184
959
34394

224N

325

718

17184

10734
4614
513
7374

2180

7264

3448

104

6564
34754
214
S2e7H
9604
13714

TSTEMP= 000000

6324

7184
10434
17054
3484

34754
720
10994
467K
520
10164

3254
4894

7054
10414

34734

3517
104
104
104
104
104

010032

10074
10994

1714
4804

34674

506

000000
177777
177777
000000

9724
10934

34n

L7774

34484

7054
1714

TSPTNU=
TSSAVL=
TSSEGL=
TSSUBN=
TSTAGL=
TSTAGN=

3204
6934

21a
L4734
5234
6954

34304

10464
4554

000005

184
4674

J 12

30A(1052)
17-DEC=79
11:3
PAGE 5-15
CROSS REFERENCE TABLE =-- USER SYMBQY
S

16594
3480

25614

000000

MACY11

SEQ 0152
3324
4934

T
496N

7204
10464
17094
3491

7264
10484
17144
3495

7304
10694
17184
3497

447

4514

632

(6374

634

4514
5004
6484

4574

6544

5134
6564
9594

33734
3509

34384
35174

650
10134
3561

1043

7374
10734

960
34384
4854
535
10754
34N

9724
3467
489
6394
1091
3495

4934
10484

5004
10754

5094
11904

5184
165%%

6354
3435

4734
6934
10914
164204

4804
6974
10934
14264

4894
6994
11864
14428

4964
7184
11914
1444N

5204
95
13614
16624

994
1120
1202
2060

2561
3107

010016

464

5184

L67H
520

473
5234

6544

7354
3373
480
5294
1067
3484

6564
1705
3502 «

“774

527

1000
1124
1250
2087

1007
1164
1251
2091

1018
1165
1266
2099

480

4854

489

2563
3113

5294

2564
3123

535

5004
691

17094

3509

23744
30314
34440
34874
35044
496
547
757
920
1032
1176

010021
010023
010030
010013
010017
010012

10754

730
11904
4774
527
10484
3480

T$TEST= 000001
TS$TSTM= 177777

T$TSTS= 0000"1
T$SAU = 010022
T$SAUT= 010020

461#

2156
2656
3373

2586
3126

493

5004

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

T$SRPT= 010015

T$$SOF=
T$$SRV=
T$SSW =
T$STES=
T.ANS
T.CLT
T.0CD
T.DCK

010031
010027
010014
010024
010754
010744
010752
010720

T.DRP
T.MNB
T.MNC
T.MNH
T.MNS
T.Mx8
T.MxC
T.MXH
T.MxS
T.PAT
T.RAN
T.ROF
T.SLT
T.STA
T.STIP
T.WwCK
T

010722
010724
010712
010706
010716
010702
010710
010704
010714
010740
010736
010734
010742
010730
010746
010750
014534

T.DRIV

UAM
=
UDERR
UNLOAD
UPDATE
wT
vC

002254

000200
003007
003547
016706

002444
= 001000

7054

34754
16594

656N

11904
6894
685#
688#
6754
2324
6764
677H
6724

670#4.
6744
6684

6714
6654
6734
6834
6824
6814
6844
6794
6864
6874
697
364
3584
3794

002246

= 020000

WRBUF
WRCHK =
WRINIT
WRIPG =
WRITE =
WRPACK
WRPOS
WRTCKF

WRTFNC
WTIRDY
WXFR1

022370
000002
002274
000122
000012
(024622
002276
015724

016430
024340

= 000006

718

3517
1705
691

17094

3078
1311
1855
837+

3124

1714

17184

1106*

1107

2180

3373

1301

2989
1514

1545
2960
2982+
1514
1545
2960
2322
2320
1454
2096
1331
2980

3003

2986
1522

2987«

2989

2991

920
1032

1024

2993

2998

1309«
2276+

2445+

1242+

1249+

2283
2944

2411

2967
2114

11904

102#

wck
= 000072
WwDE
= 100000
WGF
= 002000
003157
WGEST
WHY

SEQ 0153

2984

3443

002374

K 12

17-DEC-79
PAGE 5-16
11:31
CROSS REFERENCE TABLE -~ USER SYMBOLS

30A(1052)

1120

VECMSG 032052
VECT
= 000002
VECTI
002372

VECTZ2

MACY11

1294
2764
2774

3654

1227
2246%

1207

2793

1305~

2262*

1313«

1319«

1323«

2465+

2503~

2563

1340+

1768
2918+

2426

2429

2456

26674

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
X$OFF
S= 000400
X$TRUE= 000020

= 033520

SO#
7in

6674
2044

104
104
104
104
S#

32144
3509

MACY11

L 12

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

1178
1178

43 ~
1337

2145
2147+

2148+
3429

3429

3480
3480
3502

3484
3484

36N
3491

3495
3495

3497
3497

3509
3502

6304

763
32174

78/
32184

2093
32194

2239

L45n
32154

32164

34654

SEQ 0154

3509

2259
3480

2266
3484

2270
3491

2670
3495

32124
3497

32134
3502

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

BGNTST

BNCOMP
BREAK
BRESET
CLKOFF
CLKON
CLOCK
CLRVEC
DELAY

DESCRI
DEVTYP
DISPAT

DODU
DORPT
ENDAU
ENDAUT
ENDCLN
ENDDU
ENDHRD
ENDHW
ENDINI
ENDMOD

ENDMSG

1016

1075

3439
639
737
18
3473
455
726

705
3475
1659
656
1190

750
1821
741
2014
1954
749
765
763
24
27
697
2553
1282
1069
1007
1041
1091

. 224

332

451

637

654

695

703

735

1013

461

467

477

485

493

500

509

518

523

529

1709

1718

758
2274
1040
1039
806
754
1000
787

775

811

832

888

933

956

1024
2239

2259

2266

2270

2670

171

325

447

632

650

693

699

720

960

1043

464

473

480

489

496

506

513

520

527

535

1714

2180

1804
1898
1641

2676
2087
1820

2099

2121

213

2188

2198

2611

1060
3443
3446
3
3445

3477

3488

1032

1036

1046

1073

1099

3438

1071

1093

1186

3467

2642

2656

2912

3489

3492

3493

3498

3499

3448

648
959
1
3561
457

ENDPRO
ENDRPT
ENDSFT
ENDSRV
ENDSW
ENDTST
EQUALS
ERRDF
ERRHRD
ERRSF
ERRSOF
GPHARD
GPRMA
GPRMD

730
718
3517
1705
691
3373
36
868
1892
1266
2156
831
3442
3444

GPRML

3441

3479

O —00
ON—\n

BGNMSG
BGNPRO
BGNRPT
BGNSFT
BGNSRV
BGNSW

755

WWNWN
£Honds

BGNHRD
BGNHW
BGNINI
BGNMOD

SEQ 0155

1048
972

O —=Qo
HoOon

BGNCLN

B8GNDU

30A(1052)

NN
S

B8COMPL

BGNAU
BGNAUT

m12
17-DEC-79
11:31
PAGE 6
CROSS REFERENCE TABLE ==~ MACRO NAMES

MACY11

3508

CZRLKBO RLO1/02 _PERF EXER
(ZRLKB.MAC
07-DEC-79 09:46
HEADER
LASTAD
MEMORY
MSBYTE
MBCNTD
MSCOUN

MSDATA

MS$DECR

MSDEFA

MSENDE
MSERR]

19
3563
938
194
36414

34884
35074
463N

34428

34894
35084
L6

34430

34904
35104
L72M

MACY11

3444N

N 12
30A(1052)
17-DEC-79
11:31
PAGE 6-1
CROSS REFERENCE TABLE -~ MACRO NAMES

36454

34468

34924
35114

36934
35124

3496k
3513#

L794

LB8#

LO4N

34778

34784

34964

34984

5044

S0S#

34794

34994

5124

SEQ 0156

34814

35004

S19#

551#
11744
27514

5524
11764
29B6a

5564
11774
30644

557#
11784
30724

5764
11794
31074

7064
11804
31134

7714
11814
31234

7724
11824
31264

9014
12504
31304

pal

1714

3254

Q47N

4574

LO4LN

4734

4804

4894

33734
34784

34484
34794

34674
3481A

4894

4964

194

6324

10714
34414

34884
35074

rali

6324
10914
8684

2198%

24N

6484

10914
34428

3689
35084

1714

6484
10934

12664

26114

27N

6504

10934
34438

34904
35104

3254

6504
11864

16414

26424

6914

11864
3444N

34924
35114

INAL

6914
17054

18044

26564

MSEXCP

34424

34434

3444

34460

MSGEN

184

194

24N

MSGETS

rql

1714

MSGETT

34804

MSGNIN

6934

17054
34L5H

6994

17144
3446

3493
3512#

3494
3513«

6934
17144

6994
21804

26764

29124

4574

18204

464LM

18924

7184

21804
34774

3696N

4734

7184
33734

7204

34984

4804

7204
34484

7304

34994

9594
34674

9414
18574
31374

Lo6H

9594

35004

9604
35174

34824

35014

5334

9834
22338

5064

9608

35178
34828

35014

SOo#

10074
35614

34838

35034

S34#

904
22518

S13

10074

3561#
34830

35034

5134

34854

35044

S46n

11644
25614

34860

35054

5474

1165¢
25638

5278

34874

35064
548#

11714
25648

535¢

10414

10430

1065¢

3UBSH

UBGF

UB7N

35044

5204

35054

Se74

35064

S354

10414

10434

1065¢

1071#

18984

20424

20874

20914

20994

21214

21314

21564

2188#

3477

34784

34814

34824

34854

34864

34874

34884

34894

34924

349%

27K

344

2244

3324

4514

4554

4574

4614

LO4N

L4674

4734

K774

3254

447N

4574

L4644

4734

4804

4894

Lo6n

5064

5134

5204

5274

5354

3484w

34914

34954

34974

35024

35094

194

24N

4574

4634

LO4H

46N

4734

474

4804

4884

4894

494N

MSGNTA

4574

464N

L4730

4804

4894

496N

5064

S134

5204

5274

5354

6484

7184

9594

MSGNTE

1190#

N=O

B 13

17-DEC~79 11:31
PAGE 6-2
MACY11 30A(1052)
CROSS REFERENCE TABLE =-- MACRO NAMES

45
4894
527A
6544
7604
9414
1040#

Y IV, 1V, ¥ 8

MSHAPT
MSHNAP
MSINCR

Y §5w~§
“\g 3

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

SEQ 0157

4574
Loun

5334
6954
7644

MSLDRO
MSMCHI
MSMCLO

MSPRIN

5274
4634

S47a
11654

25634
M$PUSH

MSPUT

5184
10164
4634

5474

9784
11814

3123+
M$PUTI

4634

5474
9784
11814

31234
35054
MSRNRO
M$SETS

744

M$SvC

4574

10754

868

10244

11774
18574

MSTLAB

4574

22744
31074
464N
5194

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

S764

7184

7394

7614

76494

7544

8104
10184

8314
10194

8684
10244

8874
10324

9014
10364

9204
10404

9254
10414

18204
22334
30644
4574
5124
5764
8104

18214
22514
30724
LO3N
5134
7064
8314

18574
2274
31074
LOLN
S194
7184
8684

18924
25534
31134
4O
5204
7394
8874

18984
2561
31234
L4724
S27h
7414
901#

20424
25634
31264
4734
5334
7494
9204

20604
25644
31304
474
5344
7544
9254

11764

MSTSTL

7064

.
c13
MACY11 30A(1052)
17-DEC=79
11:31
P7GE 6-3
CROSS REFERENCE TABLE == MACRKu NAMES

10184
11764
18204

11764

10194
11764
18214

11774

10244
11774
18574

11784

10324
11784
18924

11794

10364
11794
18984

11804

10404
11804
20424

10414
11814
20604

22334
306644

22514
30724

2274M
31074

25534
31134

25614
314

21564
34784
34934

21884
3479
3696K

21984
3LB0#
3L95H

26114
34814
34964

26424
34824
3L97K

206564
34834
34984

26764
34844
34994

g%?;%g

34?9#

34844

3494

34954

34974

35024

35094

PRINTB

463
551
771
706
757
774
2144
739

469
552
772
1164

472
556
901
1165

479
557
941
"7

488
576
983
1174

494
2233
994

810
807
762
920
1200

887
934
764

1019
978
1361

1202
1018
1371

1251
1120
1375

MSWORD

PRINTF

PRINTS

READBU
READEF
REQTIM
SETPRI
SETVEC
STARS

SvC

WAITMS
WAITUS
XFERF

194

760
119N

1794
1894
3480

XFERT

3502

. ABS.

033520

ERRORS DETECTED:

763
2670

925
1356

787

12664

2239

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)

16414

2259

25634
31264

11814

18044

1176

25644
31304
18204

7574

7604

SEQ 0158

7624

9384
10604

9% 14
10694

954
10914

20874
25BGH
31374
4804
5354
7574
9334

20914
2611M
33734
4884
S46n
7604
9% 14

11824

10604
11824
20874

25BGH
31374

7654

9834
11244

20994
26428

21214
26568

489#
5474

494N
5484

12504

7624
9594
10914

12514

7644
9784
11204

7714

7724

7744

9944
11644

10004
11654

10074
11714

21314
26768

21564
2751@

21884
29124

21984
29864

Lo6H
5514

5044
5524

5054
5564

S06#
S57#4

12664

7654
9834
11244

12824

7714
9944
11644

16414

7724
10004
11654

1804#

7744
10074
11714

10694
12024
20914

12504
20994

12514
21214

12664
21314

12824
21564

16414
21884

1804#
21984

2611M
33734

26428

26564

26764

27514

2912

29864

29128
34854
35004

344N
3LBON
35014

18984

20424

20874

20914

20994

21214

21314

504
2251
1250

505
3064
1857

512
3072
2561

519
3107
2563

533
3113
2564

534
3123
2751

546
3126
2986

547
3130

548
3137

1383
1555

1388
1631

1398
1635

1401
2293
3031

1420
2297
3159

1426
2374
3162

1442
2402
3182

14644
2530
3184

1450
2534
3208

1177

1553
2930

2950

2266

2270

18924

12024

7644

o784
11204

1178

2958

1179

3027

344K
34874
35024

1180

3443H
3488
35034

1181

BLLLN
3489
35044

1182

3L4SH
34904
35054

344ER
349N
35064

34774
34924
35074