Digital PDFs

AC-9144C-MC

March 1978

282 pages

Original

15MB

view download

OCR Version

12MB

view download

Document:	CZR6PC0 RK611-06 PERFORMANCE EXERCISER AH-9145C-MC MAR 1978 bw
Order Number:	AC-9144C-MC
Revision:	000
Pages:	282
Original Filename:	CZR6PC0__RK611-06__PERFORMANCE_EXERCISER__AH-9145C-MC__MAR_1978_bw.pdf

OCR Text

RK611/06

SrerssTM TMTM

lmerte

FICHE1 0F2

MADE IN USA

'RK611/06

PERFORMANCE EXERCISER
CZR6PCO

AH-9145C-MC

FICHE2OF2

MADE IN USA

BO1
EOFil2ZRELC

MU LW

CZREPC.PLI

gmmmmm»-.—»—»—.—-.—»-._.....
£ W0V~ LW
OO

00210000

780223

CZR6PCO RKb11/06 PERF EXEC

-DEC-77 14:53

DEHDR1CZR6EPCSER
O01-DEC-77
15:04
PAGE 3

POP10 411

MACYll 30(1046)

00010000

.REM 3

IDENTIFICATION

PRODUCT CODE:

AC-9144C-MC

PRODUCT NRME:

CZR6PCO RKBb11/06 PERF EXERCISER

DATE:

FEB 1978

MAINTARINER:

DIAGNOSTIC GROUP

AUTHOR:

ROY SPITZER

E_INFORMARTION IN THIS DOCUMENT IS SUBJECT TO_CHANGE
NO ICE_ AND SHOULD NOT BE CONSTRUED RS
A COMMITMENT B8Y
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
NO RESPONSIBILITY FOR ANY ERRORS THART MAY APPERR
DOCUMENT.

WITHOUT
DIGITAL
ASSUMES
IN THIS

A
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS F gRNISHED UNDER
LICENSE AND MRY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

TERMS OF SUCH LICENSE.

DIGITRL EQUIPMENT CORPORRTION RSSUMES NO RESPONSIBILITY FOR
THE USE E OR OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THART IS
NOT SUPPLIED BY DIGITAL.

1978 BY DIGITAL EQUIPMENT CORPORATION

780223

MRCY11l 30(1046)

O01-DEC-77

15:04

COl

PARGE 4

TABLE OF CONTENTS

1.0

RABSTRACT

2.0

REQSIREME

e.2

3.5
4.0

MG LU0 1D LD ==t 4e pms pe pa
O—W £n

-4 —

OO
p po

-4 -

1] 1]

OPERARTING PROCEDURES
LOARDING PROCEDURES
3.1
3.2
STARTING PROCEDURE
3.3
SYSTEM PRRAMETERS
3.4
SNITCQE
"‘"‘*"—F-'-HOQ \JU‘U"-SUNO—U')
CNLWO—0O

3.0

QUIPMEN

PRELIHINQRY PREREQUISITS

:-BI.:II-IC:J:CIII

<<R6PCO RKBil
06 PERF_EXEC
c<RBPC.P11
01-DEC-77 14:53

RUN TIHE

OPERRTING PROCEDURE
OPERATOR COMMANDS
4.1
4.2
DRIVE PARARMETER
_(PER ERCH DRIVE)
4.3

4.2.1

FORMS FOR PACK AREA EXCLUSIONS

DIAGNOSTIC DUMP

5.0

PROGRAM DESCRIPTION

6.0

PRINT OUTS

6.1

6.2

PERFORMANCE SUMMARY TYPEOUT

ERROR REPORTS

APPENDIX A - DATA WRITTEN ON PACKS

SEQ J002

<ZR6PCO RKE11-06 PERF EXEC
CZREPC.P11
01-DEC-77 14:583

MARCY1l 30(1046)

O01-DEC-77

15:04

DOl

SEQ 3003

PRGE S

ABSTRARCT

1.0

THE RKO6-RKO?7 PERFORMQNCE EXERCISER

PROGRAM

WILL

EXERCISE

OVERLAPPED HRNNE 8 RKO?
RKO7 _DISK DRIVES RTTACHED TO THE SAME

RKJ6-RKO7

DRIVES

ONOMNLWN=OW
NN LWR—OW N0 U LW

LELEL

Pt bt et Bt

s Bt (et Pt P

Pt s Pt P

e e s P Pt B

Dt Pt Bt Pt

it Bt

s Pt Pt et Pt Pt e

s Pt e Pt e

L L L L L LWWWWW WL WWWNRININMAMA RNV NI MY 4= b b p— WH:’*’—:BESE

—O0m NN L£WU—OD DM

105

UNIBUS

CONTROLLER IN R STAND

ALONE MODE.

UNDER TEST SRN BE RADDED TO OR DROPPED FROM THE TESTING SEQUENCE

BY OPERATOR

COMMAN

RT ANY GIVEN POINT IN TIME,

BE_

RANDOM

INITIATED IS

THE NEXT DRIVE ON WHICH AN OPERATION IS TO

CHOSEN RANDOMLY FROM AMONG THE RKOb DRIVES UNDER TEST

NOT H VING ANY ERROR CONDITIONS PRESENT AND NOT
CURRENTLY
UNDERGOING
ERROR
RECOVERY.
THE
COMMAND
IS
THEN CHOSEN RANDOMLY
FROM
THE
FOLLOWING SET OF COMMANDS:
REARD
WRITFE

WRITE FOLLOWED BY WRITE CHECK

THEN THE
CYL%HEER
TRQC

RAN

;ECTOR

WORD COUNT,

AND DRTA QRE

DETERHINED

WRITTEN IS'RANDOMLY SECECTED FROMA SET OF FIXED

DQTQ PRTTERNS
DRTA TRANSFER

TO OPTIMIZ
COMMAND
IS

THE THROUGHPUT ON THE RKO& CONTROLLER EARCH
TRANSLATED TO AN EXPLICIT SEEK COMMAND

FOLLOWED BY THE DRTA TRANSFER COMMAND.

IVE ERRORE ARE QUSHEDHP AS THEY 8&8

ROCESSED ON

WHILE

ERROR

REggVERY

D _RANDOMLY RS DESCRIBED

RABOVE.

EACH

DRIVE ALL OT

EXECUTING ORDERS GE

DRIVES HAVING

NO ERRORS

WILL BE

DRIVE

THIS MEANS THAT A

SED ON R FIRST-IN-FIRST— T BASIS.

gnxes EégORPfiEEE BE R?VSRTER
AND ERRogggECQ SRY c gngTSkSCEgR?fiESEQg
ERROR
ECOVERY IS PROCESSED RS
BEGUN.
DRIVE SPECIFICATION.

REPORTING OF SYSTEM ERRORS
IMMEDIRTE UPON OCCURRENCE,

PROGRAM TERMINATION.

DESCRIBED

DISK

RKO&

THE

SUCH AS CONTROLLER PROBLEMS WILL_ BE
NOT DEFFERRED, PERHAPS CRUSING PREMATURE

PERFORMANCE STRTISTICS ARE KEPT ON ERCH DRIVE.
THESE STATISTICS
INCLUDE BOTH_OPERRTION COUNTS AND ERROR SUMMARY INFORMRTION.
(SEE
SECTION 6.1) THESE STRTISTICS WILL EE INITIARLIZED WHEN TESTING BEGINS
ON
DRIVE.
AT _ANY TIME RFTER T STING BEGINS ON THE DRIVE(S) UNDER
PERFORMQNCE EVALURTION

STATISTICS.

THE

OPERRT

CRN

DEMAND _ THESE

A REAL TIME CLOCK IS AVAILIBLE,

PERFORMANCE

THE OPERATOR HAS THE

OPTION OF HAVING THE PROGRAM GIVE PERIODIC PERFORMANCE SUMMARIES.

ONCE A PARTICULRR DRIVE HRS AN UNRECQVERABLE ERROR_(OTHER THAN A DATA
THAT DRIVE WILL BE RUTOMARTICLY
INCOMPLETE),
AND SEEK
TRANSFER
DEARSSIGNED.

ONCE A

TRANSFER

PARATICULAR
OR

SEEK)

DRIVE

HAS

SPECIFIED

EXCEEDED
FOR

DRIVE,

ERROR_

THART

THRESHOLD
DRIVE

(DRTA

WILL

CZREPCO RKb11-/06 PERF_EXEC
CZRePC.PILI
01-DEC-77 14:53

149

MACY1l 30(10v6)

O1-DEC-77

15:04

EOL

PAGE &

AUTOMATICLY DERSSIGNED UNLESS SWITCH 4 IS SET.

SEQ 0004

it et P

4
7

s ot Pt Pt Pt Bt Bt & 2

:
3
9

g£s
86
gg

01-DEC-77

15:04

FO1

PAGE 7

SEQ@ 000S

ONCE R PRRTICULAR DRIVE HAS EXCEEDED THE MAXIMUM NUMBER OF
PERMITTE D
OPERATIONS FOR THAT DRIVE, THE DRIVE WILL BE RUTOMATICALLY DESELECTE o)
UNLESS SWITCH S IS SET.

2.0

REQUIREMENTS

2.1

EQUIPMENT

PDP-11 WITH AT LEAST 16K OF MEMORY
CONSOLE TERMINAL

DECTAPE,

RKb11l

1 TO 8 RKO6-RKO? DISK DRIVE WITH FORMATTED PACK (16 BIT FORMAT)

REAL TIME CLOCK (KW11-P
PERFORMANCE
REPORTING

PAPER TAPE READER;

2.2

OR DECDISK

CONTROLLER

REPORTS

0OV

;

01-DEC-77 14:53

NCNLWN—OOONT

YWOW NN LW -0

s Pt Pt Pt Pt -t Pt Pt o it Pt Bt Pt Pt ot <0 Pt} @ -+ Pt Pt e Pt P ——
NN
T OO T O
YUHNUIUILN nyn

LZRGPC.PLL

MACY1l 30(1046)

CZREPCO RK611-06 PERF_EXEC

OR KW1ll-L OPTIONAL) FOR__INTERVAL
AND TIME ASSOCIARTIONS WITH ERROR

PRELIMINRRY PROGRAMS

THE RKO&6-RKO? SUBSYSTEH IS ASSUMED TO BE BASICALLY OPERATIONAL AND FREE
HARD FRULTS.
THE FOLLOWING RKO®B PROGRRMS ARE ASSUMED TO BE RUNNING
WITHOUT ERROR BEFORE THIS PROGRAM IS RUN
-

RKb11 DISKLESS CONTROLLER DIRGNOSTICS

gé

RKO&-RKO7 DRIVE DIAGNOSTICS

RK611 FUNCTIONAL CONTROLLER DIAGNOSTIC

RKO6-RKDO7 SUBSYSTEM VERIFICATION

RKOB6-RKD7 PACK FORMATTER (IF PACKS ARE UNFORMATTED)

L) 0t 9t Bt Bt D Pt e Pt Brast B $

99
oo

<ZREPCO RKB11-06 PERF_EXEC
01-DEC~-77 14:53

CZREPC.P11

NPV
RO RPN VDR
U 0= 0 3t s 0t 00 s e = 0~ (DY D
W~ OOMNOUN LW
OOm

207

MACY1l

30(1046)

O01-DEC-77

15:04

3.0

OPERATING PROCEDURE

3.1

LOARDING PROCEDURE

GOl

SEG 3006

PARGE 8

THE PROGRAM CAN BE LOADED FROM PAPER TAPE

FROM ANY MEDIAR SUPPORTED BY XXDP.

3.2

USING

ABSOLUTE

LOARDER

STARTING PROCEDLRES

AFTER THE PROGRAM IS LOADED,
THE FOLLOWING LOCATIONS:

LOCATION

THE OPERATOR STARTS THE PROGRAM AT ONE OF

FUNCTION

INITIALIZE ALL DRIVE STATISTIC TABLES,

NUMBER

SEED,

AND

RANDOM

THE

USE DEFAULT_SYSTEM PARAMETERS.

THE_PROGRAM WILL THEN DO AUTO-SIZING_OF ALL DRIVES

ON THE BUS 8 BEGIN BY FIRST WRITING THOSE DRIVES

& THEN BEGIN PERFORMANCE TESTING.
204

RESTART PROGRAM.

TESTING

DRIVE

IF DRIVE IS UNDER TEST,

PACK 1S BEING NRITTEN

BEGINNING.

THE

214

PROGRAM

WILL THEN TYPE RERDY TO

START PROGRAM AND ALTER SYSTEM PARMETERS.
THE
PROGRAM WILL THEN IDENTIFY ITSELF AND RSK_FOR THE
PARAMETERS AS DESCRIBED

gggc?fig
240

_IF

START WRITING PACK FROM THE

BECIN PERFORMANCE TESTING
24l

CONTINUE

_AND DO NOT DESTROY STATISTICS.

SECTION

3.3.2.

THE

WILL THEN TYPE REARDY TO BEGIN PERFORMANCE

INITIARLIZE RLL DRIVE STATISTIC TABLES,

THE RANDOM

NUMBER SEED, AND USE DEFRULT SYSTEM PARAMETERS.
THE PROGRAM’WILL THEN TYPE READY TO BEGIN

PERFORMANCE TESTING.

NOTE:

IF._

POWER

FAIL

OCCURS

THE _ PROGRAM

AUTOMATICALLY PERFORM THE RESTART FUNCTION.

WILL

MACY11 30(1046)

O01-DEC-77

THE PROGRAM IS NOW
DRIVE TESTING.

15:04

HO1

SEQ 00u7

PAGE 9

IN AN IDLE LOOP WARITING FOR THE

INITIATION OF

THE OPERATOR THEN STARTS PERFORMANCE EVALURTION OF THE

BY
TYPING R
CONTROL-C
<C>
FOLLOWED
SECTION 4.1.
IF THE PACK DOES NOT HAVE

RKO6

RKO&

DRIVE(S)

BY
R TN OR PN AS DESCRIBED IN
THE
PROPER
RANDOMLY CHOSEN

EPCO RKB11 06 PERF_EXEC

6PC.P11

01-DEC-?7 1M4:53

MACY1l 30(1046)

O01-DEC-77

1S:04

I01

/AGE 10

SEQ 3008

265

268

PREDETERIMED

EZ?

SEQUENCE ON THRT DRIVE.

ee9

TEST

PATTERNS,

THE OPERATOR MUST USE THE WN COMMAND RS

DESCRIBED IN SECTION 4.1 BEFORE INITIATING THE PERFORMANCE

EVALUATION

a27e
er3

274
ezs

276

S;g
279

280

281

28e
283

3.3

300

DIRECT MEMORY ALTERATION

AS PART OF

PARMETERS

THE

PROGRAM

START-UP

PROCEDURE,

THE

FOLLOWING

THE OPERATOR MUST PHYSICALLY ALTER THE APPROIATE MEMORY

PRRQNEIER
-

3.3.2

SYSTEM

WILL BE LOADED BY THE OPERATOR OR DEFAULTED BY THE_ PROGRAM.

CHANGE THESE VALUES.

289
290
291
232
293
sgg

sgg

eesce—c—cc—e-----

3.3.1

Sgg
e88

236
9?7

SYSTEM PARAMETERS

KWll-P
KW11-P
KW11-P
KW1l-L
KWil-L
SYSTEM

STRTUS REGISTER RADDRESS
COUNTER BUFFER RDDRESS
VECTOR ADDRESS
STATUS REGISTER ADDRESS
VECTOR RDDRESS
POWER (HERTZ)

LOCATIONS

TRG

DEFAULT VALUE

$LKCSR
SLKCSB
SLPVEC
$LKS
SLLVEC
HZ

172540
172542
104
177506
100
60(DECIMAL)

PROGRAM MODIFIED PARAMETERS

ggé

THE FOLLOWING PARAMETERS ARE MODIFIED BY R 214 PROGRAM START.

303

A <CR> WILL DEFAULT CURRENT PARAMETERS.

305
306
307

RETURN TO FIRST PARAMETER ENTRY REQUEST FOR THIS DRIVE.
A _RUBOUT
CANCELS THE LRST CHARACTER TYPED.
A CONTROL U <tU> CPNCELS LINE BEING
TYPED.
RLL ENTRIES MUST BE TERMINATED WITH CARRIAGE RETURN.

304

DEFRULT

ALL

THE

A CONTROL Z

REST OF THE PARAMETERS.

<t2>

<CR>

WILL

A CONTROL C <tC> <CR> WILL

W W
WL WL L) W
) 00 0=+ p—0 s bt o Pt Pt -0 Pe Q0
OWVoO NN
L WO Veled)

<ZRBPCO RKbE11-06 PERF_EXEC
CZREPL.P11
01-DEC-77 14:53

MACY11l 30(1046)

O01-DEC-77

1S5:04

JO1

PAGE

SEQ 3009

DEFAULT VALUE

PARMETER

CPU IDENTIFIER (OCTAL NUMBER 0-37 7
FOR DURAL ACCESS PORT DISCRIMINATI ON)
OVERLAY OF LOADER BY PROGRAM?
(ALLOWS GREATER EXPANSION

OF MEMORY FOR BUFFER SPACE IF LORDER
-

IS OVERLAYED)
MAXIMUM DRTA

SEE NOTE

BUFFER éSEE NOTE)

3 WORDS

HAS AN IMPLICIT DRTR COMPRRISON RASSOCIATED
WITH IT VERIFYING THAT THE DATA RERD IS
ONE _OF LEGAL RANDOM PATTERNS.

INTERVAL BETWEEN AUTOMARTIC PERFORMANCE

TYPE-OUTS (EVcRY1-255 MINUTES OR
NO
AUTOMATIC PERFORMANCE TYPE-OUTS)
RK611/RK06-RKO? UNIBUS ADDRESS
RKbl1/RKO6-RKO7 VECTOR_ADDRESS
RKb11/RkO6-RKO7 PRIORITY

TYPE-OUTS

177440
EIO

NOTE

THE PRCGRAM WILL SELECT
A MAXIMUM BUFFER
IS DETERMINED BY THE MEMORY
WHICH
SIZE
SIZE
MAXIMUM BUFFER
THE
AVAILABLE.
ASSIGNED
BY
THE
PROGRR" WILL BE 5988
WORDS.
$
ALUE
OF
THIS
PARAMETER NEIGH S THE OPERRTIONSUT?¥QR8$
MAXIMIZING DATA TRANSFERS
PER
TIME.
BY
CHANGING
THIS
PARAMETER TO

1 SECTOR

WILL

(256

WORDS),

WEIGHTED

THE

TbunRos

SEFKS PER UNIT OF TIME

NO_AUTOMATIC
PERFORMANCE

OPERATIONS

MAXIMIZING

CZRBEPCO RKB11-06 PERF _EXEC
CZREPC.PI11

01-DEC-77 14:53

MACY1l 30(1046)

3.4

32.4.1

O0O1-DEC-77

15:04

KO1

PAGE

SEQ Q010

SWITCHES

SWITCH 1S
SW¢15>

HALT ON ERROR

IF THIS SWITCH IS SET

ANOTHER

“COMMAND

THE PROGRAM WILL NOT

_TO ’THE

RKO6

ISSUE

SUBSYSTEH WHEN AN

ERROR OCCURS AND THE
PROGRAM
WILL
HALT
IN
THE
SYSMAC ERROR HANDLER.
IF THE OPERATOR DESIRES TOQ
CONTINUE FROM WHERE
THE
PROGRAM
LEFT
OFF,
THE

OPERATOR SIMPLY PRESSES THE CONTINUE SWITCH ON THE

CONSOLE PANEL AND THE PROGRAM CONTINUES
NEXT RANDOMLY GENERATED COMMAND.

3.4.2

WITH

THE

SWITCH 14
SW<lY>

NORMAL OPERATION

THE OPERATION
THE
PROGRAM
IN REGARD
TO
DRIVE
IS NORMAL
COMMAND GENERATION
AND
SELECTION
NORMAL OPERATION IS TO RANDOMLY
SELECT
A DRIVE

STORE

DRIVE,

OPERATION

PREV IOUS

THE

EXECUTED

A NEW RANDOM OPERATION
AND GENERATE

EXECUYED
INCLUDES

THAT DRIVE.

RANDOMLY

TO_

_THE GENERATED OPERATION

GENERARTED

FOLLOWING PARAMETERS:

ON THA}Y

VALUES

FOR

THE

DRIVE COMMAND
CYL INDER RDODRESS
TRQCK RDDRESS

SECTOR RDORESS
WORD COUNT
DARTA PATTERN

THESE VALUES ARE STORED AS THE PREVIOUS
WHEN A NEW OPERATION IS GENERATED.

IT IS IMPORTANT TO NOT THAT AT ANY POINT

THERE

BOTH

ST.

OPERARTION

TIME

CURRENT OPERATION AND A STORED

ALREARDY BEEN EXECUTED AND A NEW
COMMAND
_HRS
_NOT
EEECS%ES GENERATED OR THE COMMAND IS WRITING TO BE

CZREPCO RKE11/06 PERF_EXEC
01-DEC-77 14:53
CZREPC.P.I

MACY1l 30(1046)

01-DEC-77

SWal

1S:04

LOL

PAGE

SEQ 0011

LOOP ON CURRENT OPERATIONS

(TEST)

DO NOT GENERATE NEW RANDOM OPERATION BUT

408

TO EXECUTE CURRENT OPERRTIONS.

CONTINUE

WHEN SWITCH 14 IS SET
THE
_GENERRTION
OF
A
NEW
OPERATION IS INHIBITED AND THE PROGRRTM OPERRTES AS

FOLLOWS:

1.)
2.)

3.)
4.)

USEARGE

THIS

A DRIVE IS RANDOMLY SELECTED.
R S?EK
IS
EstgTED
ON
THE
DORIVE
CYLINDER
ADDDRESS
STORE.
IN
THRT
PREVIOUS OPERARTICON.

THE

CURRENT

OPERATION

FOR

THAT

EXECUTED.
REPERT THE ENTIRE PROCESS.

SWITCH

CAN

USED

TO_
THE
DRIVE'’S

DRIVE

CONJUNCTION

WITH

TO ENABLE THE REPETITION OF A RANDOMLY
SWITCH 1S
NOULD START
THE 8PERQTOR
GENER RTE oP ERRT ON
WITH
SWYTCH 15 SET AND SWITCH 14 RESET.
WHEN THE

TN eRRoR NICL NOTE FHCE="BePN- MODIFIED WHEN i

PROGRAM HALTS.
THE
_OPERATOR CAN THEN CAUSE ALL
CURRENT
DRIVES TO LOOP ON__THEIR _ INDIVIDUAL
OPERATIONS
BY _ SETTING _ SWITCH 14,
RESETTING
SWITCH 15,

AND HITTING CONTINUE.

TO HELP ISOLATE PROBLEMS,

THE

RKO®

DRIVE(S)

TIME BY USING

SECTION 4.1.

3.4.3

THE

SWITCH 13

INHIBIT ERROR TYPE OUT

NO EFFECT.

THE

OPERATCR

CAN

DROP

FROM THE TEST SEQUENCE AT ANY
COMMAND

DESCRIBED

1IN

<ZR6PCO RKB11-06 PERF EXEC
CZR6PC.P11
D1-DEC-77 14:53

MRCY11l

30(1046)

01-DEC-77

15:04

MO1

PRGE 14

SEQ 0012

455

u8h

3.4.5

SWITCH 11
NO EFFECT.

SW<10>»

3.4.7

RING TELETYPE BELL

IF ERROR

SWITCH 9
NO EFFECT.

NO EFFECT.

INHIBIT AUTOMATIC DESELECT FOR CLERRABLE

UNSAFES,

INHI?IT AUTOMATIC DRIVE DERSSIGNMENT IF
COUNT
THRESHOLD IS EXCEEDED.

OPERATION

SPEED LOSS,

AND AC LOW

PCO RKb11l 06 PERF_EXEC
PC

P11

01-DEC-77

14:83

MRCY11l 30(1046)

O01-DEC-77

15:04

NO1

PAGE 1S

SEJ 0013

3.4.12 SWITCH 4

Suw'y

= 1

INHIBIT

AUTOMATIC

SW¢3>»

DISPLAY ENTIRE SECTOR RERD BEFORE

THRESHOLD EXCEEDED.

DRIVE

DERSSIGNMENT

SEQUENCE

ERROR

STARTING

RETRY

a4
5es

ALL HARDWARE DETECTED DRTA ERRORS WILL BE RETRIED
ON__A_ SECTOR BRSIS.
IF THIS SWITCH 1S SET, THE

527

EEFggE

Seb

SW¢l>

RERD
SET.

S4?

560
Sol
Se2

INHIBIT SOF TWARE DATR COMPARISONS
THE IMPLICIT DATA COMPARISONS RSSOCIATED WI H ERCH

S44

S54

ENTIRELY

NO EFFECT.

L 1)
S46

SS51

_DISPLAYED

3.4.14 SWITCH 2

535S

S4g

THE RETRY SEGQUENCE BEGINS ON THE SECTOR IN

s32

DATA SECTOR IN ERROR WILL

WILL NOT BE
THE ONLY DATA

PERFORMED WHEN THIS SW TCH 1S
CHECKING FERFORMED W LL Bt

HARDWARE DATA CHECKING.

3.4.16 SWITCH O
NO EFFECT.

THIS PROGRAM IS DESIGNED TO RUN FOR AN EXTENDED PERIOD OF TIME.
(ESTIMARTED RUN IME WITH PRESENT DEFAULT PRARAMETERS IS RPPROXIMATELY
250 HOURS PER DRIVE.)
MERNINGFUL INFORMATION CAN STILL BE DERIVED BY

CZR6PCO RKe11-/06 PERF EXEC
CZREPC.PLI

se3
SeY4

01-DEC-77 14:S3

MRCY1l 30(1046)

O0l-DEC-77

15:04

BO&

PAGE 16

RUNNING THIS PROGRAM FOR AN HOUR OR LESS SINCE STATISTICS ARE TAKEN RS
THE PROGRAM IS RUNNING.

SEQ O01M

CZR6PCO RKe11/06 PERF EXEC

CZR&PC.P11

O1-DEC-77 14:53

MACY1l 30(1046)

O1-DEC-77

15:04

coe

PAGE 17

SEQ 001S

288

4.0 OPERARTING PROCEDURE

4.1

576
E;g

AFTER THE PROGRAM IS LOADED AND HAS PRINTED OUT “READY TO BEGIN
ggzgggcflgCEC)TESTING" THE OPERATOR CAN ONLY TYPE AR CONTROL-G <G> OR AR

A CONTROL-G <G> IS USED FOR SOFTWARE SWITCH REGISTER MODIFICATION.

582
SB4

UPON RECEIVING A CONTROL-C <C> THE PROGRAM WILL RESPOND WITH *“PLEASE
CHARACTER COMMANDS FOLLOWED BY
THE F?LEONING TWO
R g ND* .
CRR IARGE RETURN WILL BE
ONLY COMMANDS ACCEPTED:
TN, PN,
DN,
SN,

587
588

THE SECOND CHARACTER N=0,1
COM
REFERENCED BY T

sal
s3e

"1 F

DESIGNATES WHICH DRIVE IS
ALL ADDRESSABLE DORIVES ARE

REFERENCED. THE DESCRIPTION OF EACH OPERQTOR COMMAND FOLLOWS:
- TN

583

INITIARTE TESTING OF DRIVE
N
AND
USE _ PREVIOUS
PRRAMETERS.
(DEFARULT PQRNETERS RRE US D IF PN COMMAND

HAS NOT PREVIOUSLY BEEN ISSUED TO THE DRIVE(S)

Sa4

BEGINNING

535S

THEIR

TESTING ON ALL DRIVES.

596

599

Hmm

589

OPERATOR COMMANDS

TEST

SEQUENCE.)

__THE

IF N=R, INITIARTE
.

- PN

602

THIS COMMAND HRS TWO USES:

603

TESTING ON DRIVE

1.)

__CHANGE

CURRENT

DRIVE

PARRAMETERS

AND

INITIATE

605

2.)

__CHRNGE

CURRENT

DRIVE

PRARAMETERS

AND

CONTINUE

209

%N B?TH Cflgsg THESPROGRRN NébLTHEN
_ASK _FOR PQRNQETERS
A «CR>
SECTION 5.5.
IN

[apdoads aleads
alogleals
ale gl i gl e ol
U s Dt P e Pent Pt o Pt P e
OoOWwoONCNLZWN=-O)

606

TESTING ON DRIVE
N

INDICATES DEFAULT THIS PRRAMETER AND R CONTROL-Z
<(2)
INDICRTES THE THE REST OF THE PARARMETERS FOR THIS DRIVE

ARE TO BE DEFRULTED.

IF N=R,

- DN

PERFORM PN COMMAND ON ALL DRIVES.

DROP DRIVE FROM TESTING SEQUENCE AND PRINT PERFORMANCE
SUMMARY.
IF__N=A,
DROP ALL CURRENTLY BEING TESTED

DRIVES FROM TESTING SEQUENCE

CZR6PCO RK611-/06 PERF EXEC

CZR&PC.PI11

01-DEC-77 14:S3

MACY1l

30(1046)

01-DEC-77

15:04

DO2
PRGE

SEQ 0016

- SN

DEMAND PERFORMANCE SUMMARY ON DRIVE N.

-~ WN

WRITE AND VERIFY THE RKO6 DISK PARCK ON DRIVE N WITH A
RANDOM
SET
OF
LEGRL PQTTERNS
THIS IS USED _PRIOR_TO
THE START OF THE
T Eg
7O
GUARENTEE
THAT
THE
PROPER PREDETERHINED TEST PQT ERNS HRVE BEEN WRITTEN ON
THE PRCK.
(SEE RPPENDIX A FOR DETRILS) AFTER THE
PACK
HARS BEEN COMPLETELY WRITTEN TESTING WILL BEGIN USING
THE PREVIOUS PRRAMETERS AS DESCRIBED IN THE TN COMMRND.

gs§sggHflNCE

SUMMARY

WRITING OF THE PACKS

WITH

MAXIMUM BUFFER

WILL

TAKE LONGER IF THE MAXIMUM

ALL

CURRENTLY

N=R

BEING

DEMAND

TESTED

TAKE 4 TO 5 MINUTES PER

THE WRITING OF

BUFFER

SIZE

PACK

THE PACK MRY

SPECIFIED

PIE EXERCTOE ON-OTHER DRIVES ARE INPROGHESS.~ Clve®
NOTE:

IF AN ERROR OCCURS DURING THE DRIVE RSSIGNMENT S" JUENCE
OR WHILE WRITING THE RANDOM SET OF LEGAL PRTTERNS, THE

ERROR WILL BE REPORTED RAND TESTING WILL NOT START.

EXAMPLES:

COMMAND SEQUENCE

ACTION TAKEN

TA<CR>

INITIARTE TESTING ON ALL DRIVES ON SYSTEM

T1<CR>

INITIARTE TESTING ON DRIVE 1

T3<CR>

4.2

INITIATE TESTING ON DRIVE 3

(TESTING STILL CONTINUES ON DRIVE 1)

SACR>

GRTHER STATISTICS ON ALL DRIVES UNDER TEST.

DACR>

DROP ALL DRIVES UNDER TEST.

DRIVE PRRAMETERS

(PER EACH DRIVE)

T OF THESE PARAMETERS EXISTS FOR EACH DRIVE.
A_
TN
COMMAND
WILL
R_PN
12E THE PREVIOUSLY ESTRBLISHED PRRAMETERS FOR THE DRIVE(S).
QNEWILL ALLOW THE OPERATOR TO ALTER ALL THE PARAMETERS FOR
THE
R> WILL DEFAULT CURRENT PARAMETERS.
A CONTROL Z
<t2>
<CR>
MWILL
ULT_ AL.
THE REET OF THE PRRQNET;RS
A CONTROL C <tC> <«CR> WILL
A RUBOUT
FOR THIS DRIVE.
RN TO FIRST PRRAMETER ENTRY REQUES

CZR6EPCO RKB11-/06 PERF_EXEC

CZR6PC.P11

677
678

01-DEC-77 14:S3

MACY1l 30(1046)

01-DEC-7?7

15:04

EC2

PAGE 19

CANCELS THE LAST CHARACTER TYPED.
A CONTROL U «<tU> CANCELS LINE BEING
TYPED.
ALL ENTRIES MUST BE TERMINRTED WITH CARRIARGE RETURN.

SEQ 0017

CZR6PCO RKb611-/06 PERF_EXEC

CZRePC.P11

01-DEC-77 14:S3

MACY11

30(1046)

01-DEC-77

15:04

FO2

PRGE 20

SEQ 2018

DEFAULT VALUE

PARAMETER

MAXIMUM CYLINDER FOR STRRT OF DRTA TRANSFER

NIN?HUH68$LIN0ER FOR START OF DATA TRANSFER
MRX?HUMS%EQCKSFOR START OF DATA TRANSFER
MINIMUHETRRCK FOR STRART OF DARTA TRANSFER
HQXIMGH SECTOR FOR START OF DATA TRANSFER

nxu?nflniéscron FOR START OF DATA TRANSFER
RATIO OF READ/WRITE

EVERY COMMAND RAMNDOMLY GENERATED BY THE

632/1456
0

e
0

a2s
0

5/3

PROGRRAM WILL BE EITHER A READ OR A WRITE.
FOR EARCH DRIVE ONE CAN WEIGHT THE COMMANDS

TOWARDS READING OR WRITING.
WEIGHTING RARTIO'S RRE:
=
RERD ONLY
=

771

371
573
171
375
173
177

=
=
=
=
=

DO WRITE CHECK AFTER EVERY WRITE COMMAND

WRITE CHECK COMMANDS WILL BE

ISSUED RANDOMLY RFTER WRITE COMMANDS.
o4

connscmal.s Rsno ERROR THRESHOLD
unconm
€
READ ERROR THRESHOLD
HRE SHO!
%
INHIB ERROR CORRECTION
OPERATION COUNT THRESHOLD#65K
DATA TRANSFER THRESHOLD#520K WORDS
SAMPLED COMPRRES

UP TO 5 EXCLUDED PRCK RRERS
(NO DATR TRANSFER WILL BE DONE TO
THESE ARERS.)

—
Z<hr2Z
my: oo

omenuxsz

3’6

W—OWDOoNTTNLZWL-0O

NINNN
NN ININNINNINY
U MUY N 52 0 pe p—s Pt pms s Pt Pt e

709

THE POSSIBLE

. 290% 10%%9
é*lfliila

0_EXCLUDED
PACK ARERS

(RKO6/RK0O7)

CZR6PCO RK611-06 PERF _EXEC
CZRePC.P11
01-DEC-77 14:53

MACY1l 30(1046)

4.2.1

O01-DEC-77

15:04

GO2

PAGE 21

SEQ 3019

FORMRTS FOR PACK AREA EXCLUSION

FORMAT

RCTIO!

CYL<CR>

ALL TRACK ON CYL INDER

SPECIFIED WILL BE EXCLUDED.

CYL, TRK<CR>

THE ENTIRE TRACK WILL

BE EXCLUDED.

CyLl,TRK1,CYL2, TRK2¢<CR>

4.3

ALL TRACKS FROM CYLINDER 1
TRACK 1 TO RND INCLUDING
CYLINDER 2 TRACK &
WILL BE EXCLUDED.

DIAGNOSTIC DUMP

DUE _TO THE COHPLEXITY OF THIS PROGRAM A DUMP OF THE PROGRAM TABLES
DUMP IS PRQVIDED IN_THE
TH&S
E 8R
ACH
RCSOHP
HUST

PROGR

IS ACTIV RTED BY

TQRT

THE

RAM

LOCATION

THIS PROGRAM ASSUMES THAT ONLY THE PATTERNS WRITTEN

THIS

220.

THIS_ DUMP _WILL PRINT H; PROCEgSOR RE?ISTER;
NHEN THE DUMP IS
CRLLE
IT WILL THEN PRINT
OF SOFTWARE
TABES
NECESSARY
10
DETERHINE
WHAT
THE PROBRAM NRS DOING AT
A GIVEN TIME.
APPROXIMATE TIME OF DUMP IS 10-12 MINUTES.

S.0

PROGRRM DESCRIPTION

PROGRAM

WILL BE ON THE PRCK.
TO PRECONDITION THE PACK R WN COMMAND MUST BE
oons.
PACK SERIAL. DRIVE SERIAL NUMBER, THE TIME,
AND DRIVE N UNDER

TEST WILL BE PRINTED AT THE END OF PACK Pnsconoxnomnc.
THE
SYSTEM
REGISTER,
DRIVES MAY BE DROPPED Fnoh TEST BY
PRRRHETERS AND DRIVE PARAMETERS.
IF A DRIVE IS DROPPED FOR ANY RERSON,
OPERATION OF THE PROGRAM IS DEPENDENT ON THE SWITCH

USING THE 'DN

COMMAND.

PERFORMANCE STATISTICS WILL AUTOMARTICALLY BE PRINTED.

5.1

PROGRAM RESTRICTIONS

THIS PROGRAM WILL NOT RUN_IN CHARIN MODE UNDER

INDICATOR

PROVIDED

FOR

ACT.

THE

APT

XXDP.

PROTOCOL

END-OF -PASS

HRAS

NOT BEEN

CZR6PCO RK611-06 PERF EXEC
CZREPC.P1IL
01-DEC-77 14:S3
780

MACY1l 30(1046)

O0Ol1-DEC-?7

DETERMINED YET.

15:04

HO2

PRGE 22

SEQ 0020

CZR6PCO RK611/06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

MACY1l 30(1046)

O01-DEC-77

15:04

102

PRGE 23

6.0

PRINT OUTS

6.1

PERFORMANCE SUMMARY TYPEOUT

THE PERFORMANCE SUMMARY WILL CONTAIN THE FOLLOWING INFORMATION:
DRIVE NUMBER
DRIVE SERIAL NUMBER
TIME OF REPORT (IF REAL TIME CLOCK

IS AVAILIABLE)
NUMBER OF ORDERS PERFORMED BY DRI E
NUMBER OF SELK OPERATIONS PERFORMED
TOTAL NUMBER OF WORDS WRITTEN BY DRIVEX65K
TOTAL NUMBER OF WORDS READ BY DRIVE*ESK
NUHBER 8F EOFT
DATR ERRORS
CORRECTRBLE)
(ECC
(REREAD CORRECTABLE)
(OFFSET CORRECTABLE)
NUMBER OF HARD DATA ERRORS
NUMBER OF SEEK INCOMPLETES

oo0D 00 00 00 €0 0D (D €D 0D 00 €D O o
n TUNY == 6 ot pmt s ot Pt s s e
v -OWwoNCNLEW—~0W

NUMBER OF MISPOSITIONING ERRORS

823

TOTAL NUMBER OF ALL OTHER ERRORS.

6.2

ERROR REPORTS

THE ERROR REPORTS WILL CONTAIN THE FOLLOWING INFORMATION:
DRIVE NUMBER

DRIVE SERIVAL NUMBER
TIME %RROR OCCUEsEgfl(IF RERL TIME CLOCK IS ARVAILIABLE)

SITION

ALL DRIVE STATUS REGISTERS
ALL CONTROLLER REGISTERS

MEMORY ADDRESS,

GOOD DATA ANC BAD DATA (IF DATA ERROR)

OFFSET VALUE (}F APPLICABLE)

.
HEADER _READ (IF MISPOSITIONING ERROR)
ECC PATTERN AND POSITION REGISTER IF DATA CHECKED

SEQ 0021

CZREPCO RKB11-06 PERF_EXEC

CZR6PC.PI11

01-DEC-77 14:S3

MACY1l 30(1046)

834

838

839

O01-DEC-77

15:04

JOe

PRGE 24

SEQ 0022

APPENDIX R

FIGURE A-1 SHOWS THE DATA EXPECTED BY THIS PROGRAM FOR EACH SECTOR
THE RKO® PACK USED BY THIS PROGRAM.

i N+l
N+2 TO
255

8ss

CPU 1D

CPU IDENTIFIER SUPPLED BY THE OPERATOR

857

PAT

PATTERN USED

859
860

PARTC

PATTERN CJOUNT (NUMBERR OF
WORDS OF PATTERN WRITTEN)

863

FIGURE R-1

865

EXPECTED DATA FORMAT

CZREPCO RKE11/06 PERF _EXEC

CZRePC.P11

01-DEC-?7 14:53

MACY1l 30(1046)

O01-DEC-77

15:04

866
867
868

269

K02

PAGE 2€

SEQ 0023

DATR PATTERNS USED

g;g

PATTERN O

PATTERN 1

PARTTERN 2

PATTERN 3

874

165555

026455

007417

052525

87%
876
877
878
879
880
881
882
883
884
885
886
887
888
889
830
891
832
893
834
895
836

133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555

151322
026455
026455
151322
151322
0264
026455
026455
151322
151322
151322
026455
026455
026455
026455
151322
151322
151322
1513¢2
026455
026455
026455

170360
007417
007417
170360
170360
007417
007417
007417
170360
170360
170360
007417
007417
007412
007417
170360
170360
170360
170360
0g7417
007417
007417

838
899
300
901
902

165555
133333
165555
133333
165555

151322
151322
026455
026455
151322

170360
170360
007417
007417
170360

125252
125252
052525
052525
125252

a0s

133333

151322

170360

1252582

837

903
304

133333

133333
165555

151322

1513ce
026455

170360

170360
0Q7417

12525
052525
052525
125252
12525¢
052525
052525
052525
125252
125252
125252
052525

052525

052525
052525
125252
125252
125252
125252

052525
052525
052525

125252

125252
052525

CZREPCO RKbB11-06 PERF_EXEC

CZRePC.P11
306
g7
908

01-DEC-77

14:S3

MACY11 30(1046)

O01-DEC-77

15:04

LO2

PRGE 26

SEQ 0024

g?g

PATTERN 4

PATTERN 5

PATTERN &

PATTERN 7

911
912
913

000000
1042}
2104¢

000000
172777
000000

000001
000003
000007

000001
000002
000004

15555

888827

38085

153310
114631

308583
127777

388777
001777

886588
001000

135673

1777?27

00?7777

004000

9{4

031463

099999

gi;

ggglgg

000000

321

125252

die

318
320
922

923
924
925
326
92?7
928
929
S30
931
932
8933

Be8432

146314
156735
167356
1722777
1772777
167356
156735
146314

00001;

0001;;

177777

003777

000000
000000
0003000
000000
1772777
177777
1777277
177777

017777
037777
077777
177777
177776
177774
177770
177760

1727777

177400

OODOéO

000%00

002000

010000
020000
040000
100000
100000
Q40000
020000
010000

135673
125252
114631

000000
000000
000000

33%

073567

1777277

336
939

9R2
109
31463

890099
199997

170000
1&8088

800020
00001

841

glo4el

000000

100000

Q00002

934
976

940

942

104210

063146

021042

000000

177777

177740
177700
177600

004000
002000
001000

177000

0C0200

176000

140000

000000

000400

001000

000004

000001

CZRBPCO RKEL11-06 PERF EXEC

CZRePC.P11

01-DEC-77 14:53

MACY11l 30(1046)

O01-DEC-?7

15:04

MO2

PAGE 27

SEQ 002%

943

PATTERN 10

PARTTERN 11

PATTERN 12

PARTTERN 13

177776

172666

153333

000000

163333

177777

esg

{23

Rns

333

177757

958

{48495
177577

1555585

{53222

154222

957

176777

172666

1555585

153333

066667

1777277

962
360
961

1737277
1672777
1877727

155555
17§ss
15668

153333

066667
153333
066667

177277

963
=13

0777277
077777

1; 5585
172666

0beRE?
1€2333

17272772
1777727

(kKL

145557
1777277

956
95n
962

965
966
967

353
971

375
74
975

177377

175777
137777

172666

153333

155568
172666

156558

066667
153333
066667

17§?77
177377

{33282
1655585

066667

155558
172666

066667
53333

167277

155875
177237

jgEe8e
1?3&52

177773

155555

177776

155555

177757
177767

378

177775

172666

066667

137777
157777

976

977

132&5&

172666

1777277

1727777

172772
1772727
177727
177777

177777
177277
177777

betees
1?3333

155535
177777

66667

177777

066667

177777

152333

177277
1772772
17772727

CZR6PCO RKb11-06 PERF_EXEC
CZREPC.P11

01-DEC-77 14:53

MARCY1l 30(1C46)

O01-DEC-77

15:04

NO2

PAGE 28

SEQ 002t

980

gga

PATTERN 14

PATTERN 1S

PATTERN 1b

PATTERN 17

98BS
385
987
988
989
990
991
992
993
qqu
935
996
997
998
999
1000
1001
1002
1003
1004
1005
1006

177777
0C0000
002000
0000GS
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

172304
1723045
172304
172304
172304
172304
172304
172304
172204
172704
172304
172304
172304
172304
172304
172304
172304
172304
172304
172304
172304
172304

070627
113431
014561
070627
113431
0l4s6l
070627
113431
014561
070627
113431
014561
070627
113431
014561
070627
113431
glu4sel
07C627
113431
014561
070627

133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467

172304
172304
172304
172304
172304
172304

014561
070627
113431
014561
070627
113431

133467
133467
133467
133467
133487
133467

1007

000000

1008
1009
1010
1011
1012
1013

000000
000000
000000
000000
000000
000000

1015

000000

1014

igi%

000000

172304

172304
172304

172304

113431

014361

070627

113431

133467

133467
133467
67
1334

;

##%

(JLILE

01-DEC-77
REV 00S

15:04

BO3

PRLE 29

SEQ 0027

»&x

CZROPCO RKG11/06 PERF EXEC

; #COPYRIGHT

(C)

1976,1377

:#DIGITAL EQUIPHENT_CORP
mnvmao MASS. 01754

lPROGRflH BY ROY SPITZER
!THIS PROGRAM WRS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
!PQCKRGE (MARINDEC-11-D2QARC-C3), JAN 19, 1977.
¥

1
8
&
&
8

THE RKO6-RKO? PERFORHQNCE EXERCISER WILL EXERCISE 1

RKO6-RKO? DISK DRIVES ATTACHED TO THE SAME RKO6
UNIBUS CONTROLLER IN R DEDICRTED STAND ALONE MODE.

UNDER NORMAL OPERATION SITUATIONS,

TO 8

THE DRIVE IS

CHOSEN RANDOMLY FROM ANY ONE OF THE RKO6 DRIVES UNDER TEST
WHICH IS NOT CURRENTLY UNDERGOING ERROR RECOVERY

TO OPTIMIZE THE THROUGHOUT ON THE RKOB CONTROLLER ERCH
DARTA TRANSFER COMMAND IS TRANSLATED INTO R SEEK FOLLOWED

B8Y THE DARTRA TRANSFER COMMAND.

< 363633 3696 36 36 6 36 36 36 06 36 30 06 3030 36 06 00 00 06 3698 36 30 36 06 36 06 06 30 36 30 06 06 6 36 36 3606 36 30 36 36 3000 06 36 00 30 00 00 0

OPERATIONAL SWITCH SETTINGS

USE

pur}

O
o
c
=z

-O—m
4 m

M-

(o]

LOSS OCCURS
S
TOMATIC DRIVE DERSSIGNMENT WHEN
OR DRIVE IS EXCEEDED
OMATIC DRIVE DERSSIGNMENT WHEN
HOLD EXECEEDED

ZCO2D

= DD

ALT

O M~

ccowrsn

SWITCH

BTTL

-Ww

2
B

< 3363 3 38 36 36 96 36 30 36 38 38 38 36 36 36 36 36 30 3% 36 38 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 3 36 26 36 3 3 3 3 30 38 36 3 3 36 3 36 3 3 3¢ 3% 3¢ 3¢ 3 36 %

TR TE
TR T
LI
A

Y YR

01-DEC-77 14:S3

L R R

Pt Pt Pt Pt Pt Pt Pt P Proct o Pt Pt Pt Pt Pt P

st Pt P

Pt Pt Pt et Pt Pt Pt Pt Pt P

Pt Pt Pt Pt Pt Pt Pt P

et o Pt Pt Pt

s—

00000 000000000000 00000000000 o
LLL
L £ £ W WwWwannn
s [y
onLwn ~ODONOCNLWNN—~OVONTNLWU—~0WV m

CZREPC.PL1

MACY11l 30(1046)

*******l*******w LS

CZR6PCO RKb11.06 PERF_EXEC

SECTOR BEFORE BEGINNING RETRY SEQUENCE

TWARE DATA COMPARISONS

CZR6PCO RK611-06 PERF EXEC

CZR6PC.PI1

01-DEC-77 14:53

MACY1l 30(1046)

O01-DEC-77

BASIC DEFINITIONS

15:04

CO3

PAGE 30

SEQ 0028

1823

.SBTTL

BRSIC DEFINITIONS

1064

-#INITIAL ADDRESS OF THE STACK PUINTER ##x 1100 #x¥

{ogs
iggg

001100

5’88“3
RROR
.Eoufv légo
or:gcogs

iggg

000011

h;nxscsL%nneous DEFINITIONS

iggg

177570

1071
1079
iO;S
187
1078
1081

1082

1083
1084
1085
1086
1087
1088
1089
1090
iggé

060012
177776
1722774
177772
177570

LF=
15
=
177776
'$EU§¥
319
= P;,;gg
77772
DSWR=
177570

000000

RO=

DDISP=

177570

FINITION 8FOF CoOPE
ERROR CALL
CALL
;5832*8 Bsrfuitfgu
HORIZONTAL TAB

558885 FSE L?fié ?EED
Ezpngsesgon STR%USEHOSD
TACK LIMIT
REGISTER
Ezfingfinnn
xnrsgsu5§
Esoussr REGISTER
: ' HARDWARE SWITCH REGISTER
: ' HARDWARE DISPLAY REGISTER

. ¥GENERAL PURPOSE REGISTER DEF nxragns

GISTER

Rl=
Re=
R3=
R4z
RS=
Rb=
R7=
SP=
PC=

1094

000000

PRO=

: ;PRIORITY LEVEL O

1096
1097
1098

000100
00014
00020

PR2=
PR3=
PRY=

100
140
200

;;PR%ORITY LEVEL 2
D PRIORITY LEVEL 3
! !PRIORITY LEVEL o

:'PRIORITY LEVEL 7

1093

1095

1099
1100

iigé
1103

1104

1105
1106
1107
1108
1109
1110
1111

1112
1113
1114
1118
illb
1117

000040

000240
000300
000340

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
060010
000004

%1
%2
%3
%4
%5
%6
%7
%b
%7

; ; GENE

000001
000002
000003
000004
00000S
000006
000007
000006
000007

;;gENERQL REG%STER
;
RAL
REGISTER
; JGENERAL
REGISTER
: GENERAL REGISTER
: s GENERAL ggcxsrsn
; ;GENERAL
REGISTER
}PGENERAL REGISTER
: :STRCK POINTER
: :PROGRAM COUNTER

. #PRIORITY LEVEL DEFINITIONS

PR1=

PRS=
PRE=
PR7=

240
308

s SPRIORITY LEVEL |

:'PRIORITY LEVEL S
“PRISRiTY LEVEL 3

. ¥*SWITCH REGISTERTM SWITCH DEFINITIONS

SWiS="

SWik=
SWi3=
SWi2=
SWll=
SWiD=
SW09=
SWo8=

SW07=
SWob=
SW0S=
SWo4=
SWo3=
SWo2=

100000

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

CZR&PCO RKB11-06 PERF EXEC
CZR6PC.PI1
01-DEC-77 14:53
1118
1119
1120
1121

000002
000001

1122

1131

SWol=s
SWo0=
_EQUIV
.sou*v

2
|
SW09,SW9
W08, SW8

JEQUIV
.EQUIV
CEQUIV
.EQUIV
-EQUIV
"EQUIV
.EQUIV

Su06, SWb
7 15’ SuS
Sw04, SWid
SW03,SW3
SWO2,35uW2
SWOl.SuWl
SWOO0,SW0

8IT1S5=

0100060

g8ITi2=

040000
020000

1136
1137
1138
1139

100000

BIT14=
BIT13=

40000
20000

004000
002000
001000
000400

BITII=
BITi0=
8IT09=
BIT08=

4000
2000
{000
400

1142

008640

efro?: 48

114y
1145
1146
1147
1148
1149
1150
1151
1182

0003010
000004
000002
000001

BIT03=
}T 2=
T 6=
17100=
.EQUIV
EQUIV
.eou%v
.Equiv
EQUIV

10
4
2
|
BIT09,BITY
BITO8,BITS
107,3}77
106,8176

EQUIvV

BIT03,BIT3

1143

000020

11583
1155

EQUIV

1156

EQUIV

iigg

.EQUIv

1160

000004

1162
1163

000014
000014

1165

000020

1161

11649

T0S,BITS

BITOM.BITH

BIT02,BIT2

BITO0I,BITI

BIT00,BITO

. ¥BARSIC "CPU" TRAP VECTOR RDDRESSES

:: TIME OUT AND OTHER ERRORS

TBITVEC=14
TRTVEC=

DIeTRTBIT
;) TRACE TRAP

I0TVEC= 20

;;INPST/OUTPUT TRAP (IOT) %%¥SCOPEX#*

000030

EMTVEC= 30

: 'EMULATOR TRAP (EMT) ¥¥ERROR¥¥

000064
000240

TPVEC=
Y
PIRQVEC=240
APRIOR= PRS
AVECT1= 120210

000010

RESVEC= 10

000014

BPTVEC= 14

000024

1168
1169

000034
000060

i172
1173

000240
120210

1170
1171

10000

ERRVEC= 4

1166

1167

BITO4=

EQUIV

1154

1189

PAGE 31

. #DATA BIT DEFINITIONS (BITOO TO BIT1S)

100000

1133
1134

1135

15:04

-EQUIV §uo7,su7

1123
1124
1125
1126
1127
1128
iigg

1132

MACY1l 30(1046)
O1-DEC-?7
BASIC DEFINITIONS

DO3

PWRVEC= 24

TRAPVEC=34
TKVEC=
60

: 'RESERVED AND ! .LEGAL INSTRUCTIONS

: s BREAKPOINT TRAP (BPT)

' 'POWER FAIL

;S =TRAP" TRAP
;;TTY KEYBORRD VECTOR

;3 TTY PRINTER VECTOR
: : PROGRAM_INTERRUPT REGUEST VECTOR

sRK61] PRIQIRITY
‘RKE11 VECTOR

SEQ 0029

e
© 9t Pt

177440
000114
172100
000001

000000
000002
000004
000006

30(1046)
01-DEC-77
BASIC DEFINITIONS

15:04

.SBTTL

RKO6-PKO7 CONTROLLER REGISTER DEFINITION

RKCS1=

RKWC=
RKBR=
RKDR=
RKCS2=
RKDS=
RKER=

2
4
&
10
12
14

W= —— 0000
= NUTW
= N NN
W »—

0000000000000

Pt Pt Pt Pt Pt Pt Pt Pt Pt ot o Pt

:WORD COUNT REGISTER
:BUS_ ADDRESS REGISTER
IDESIRED TRACK SECTOR REGISTER
:CONTROL _AND STATUS REGISTER 2
iDRIVE STATUS REGISTER
,ERROR REGISTER

;ATTENTION SUMMARY AND OFFSET REGISTER

HQINTENRNCE REGISTER 2
MAINTENANCE REGISTER 3
ECC POSITION INFORMATION
{EC~ POSITION INFORMATION
:EC. PATTERN INFORMATION
{ECC PATTERN INFORMATION

Rl=

RKMR3=

;MAINTENANCE REGISTER 1

DRIVE COMMANDS

SELDRvV= 101

PACK=
103
CLERR= 10S
UNLORD= 107
SRTSPL= 111
RECAL= 113

OFFSET= 115
117
SEEK=
RDDATA= 121
WRDATAR= 123
RDHERD= 125
WRHERD= 127
WRTCHK= 131

;SELECT DRIVE

: PACK _ACKNOWLEDGE
:DRIVE CLEAR
: UNLOAD
:START SPINDLE
RECAL IBRATE
,OFFSET
; SEFK

;READ DATA
iWRITE DATA
:READ_HEADER
{WRITE HEADER AND DATA
{WRITE CHECK

THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER

TO SIMULATE A SPECIFIC DESIRED OPERATION

RELERS= 140

RDSTAT= 141
RDALHD= 164
CONCLR= 176
SUBCLR= 177
300
INTR=
;

000001
00000S

; CONTROL AND STATUS REGISTER !

WMR2=

;

000300

;VECTOR _FOR _MEMORY CHECK ENABLE
!BUS ADDRESS FOR_MEMORY CHECK ENABLE
:MEMORY ENRBLE MEMORY CHECKING

iDESIRED CYLINDER REGISTER
:DESIRED CYLINDER REGISTE
,DQTR BUFFER

;
000140
000141

;RK611 BRSE

RKDC=
20
P NCYL= 20
a4
=

.SBTTL

PRGE 32

177440

MEMVEC= 114
MEMBAS= 172100
PRR.EN= |

RKPQS= 30
RKECPS= 30
RKPRT= 32
RKECPT= 32
00

EO3

ABASE=

KKASOF= 16

=]
[=]

s P Pt Pt Pt ot s Pt Bt Pt P Bt Pt Pt ot Pt Bt s s ot Bt Pt s P P

et Pt Gt Pt Pt Pt Pt Pt P Pt e Pt Pt Pt Pt Pt e P Pt Pt Pt Pt Pa e P P o

ronn) RN MRTUTU N
PR R NN PV RO RS PP PO PUTU U DU U P L) 0t 8 e 5t s pe Bt Bt e s Bt Pt Dt B Pt st e Pt s ot Pt ot P [ ol o]
o PN NN
1= 1= b= e b= = = = = D O OO0 0000 OO0 WODWD OO
WD DD DD 0O
DM @ NNNN NN
SO N LW~ ODONCNLWN—-ODO NN LW —OODONCN LWNH—-ODODNCN
L WO [

CZR6PCO RK611/06 PERF_EXEC
CZR&PC.P11
01-DEC-?7 14:S3

MACY1l

; RELERSE DRIVE

{GET ALL STATUS FROM DRIVE
HERDERS
:READ ALL
:CONTROLLER CLERR (BIT 1S OF CS1)
:SUBSYSTEM CLEAR (BIT 5 OF CS2)
:GENERATE INTERRUPT TO CPU

DRIVER ISSUED SERVICE COMMANDS

DR.SEL= 001

DR.CLR= 00S

;DRIVE SELECT

:DRIVE CLEAR

SEQ 0030

CZREPCO RKb11-06 PERF EXEC

CZRBPC.PI11

01-DEC-77 14:S3

1230

{Sgé

MACY1l 30(1046)

01-DEC-77

DRIVE COMMANDS

15:04

FO3

PAGE 33

SEQ 003!

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

1233

000001

GO=

BITO

;GO _BIT

1236
1237

000400
001000

CDT=
CT0=

BIT8
BITS

BIT10
BITI11

] us
us

1240
1841

002000
004000

BAle=
BRl17=

:CONTROLLER DRIVE TYPE (0=RK06, 1=RKO7)
:CONTROLLER TIMED OUT WRITING FOR

1242
1243

0100C2

020000
040000

CFMT=

;DRIVE
BUS PARITY ERROR DETECTED BY CéNTROLLER
,DRIVE INTERRUPT

100000

CERR=

BITI3
BITIY

ig:g

100000

SPAR=
0I=

BITie

CCLR=

BITI1S

;

THESE BIT DEFINITIONS ARE USED FOR RDCRESS

1234
1235

1238
1239

1244

000100
000200

1247
ig:g

1250

1251
1252

{Sga

;

000001

000002
000004

000020

{Sgg
187

1258
1259
1260
126l
1262
1263
leb4
1265
1266
12¢7
1268
1269
1270
1271
ig;s

000007

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

12727
1278
1279
1280
1281
1e28¢
1283
1284
12685

00c001

000002
0000CcH
000004
000010
000020
000040
000100
000200

BITH
BIT?

BITIS

: INTERRUPT _ENABLE
:CONTROLLER RERDY

B.BAlk= BITO

B.CFMT= BITY

;
DRIVE RESPONSE
;CONTROLLER DRIVE FORMAT (0=22 SECTOR,

1=20 SECTOR)

; CONTROLLER ERROR

:CONTROLLER CLERR

;BUS ADDRESS BIT 16

:BUS_ADDRESS BIT 17
:CONTROLLER DRIVE TYPE (0=RKO&, 1=RKO?7)

:CONTROLLER DRIVE FORMAT (0= 22'SECTOR, 1=20 SECTOR)

CONTROL RAND STATUS REGISTER 2 BITS

DRVMSK= ?

+MASK FOR DRIVE SELECTION CODE __

DESL=
RLS=
BRI=
CLR=
SCLR=
IR=
OR=
UFE=
MDS=
PGE=
NEM=
NED=
UPE=
WCE=
DLT=

BIT3
BIT3
BITY
BITS
BITS
BITH
BIT?
BI118
BITS
BITI1O
BIT11
BITl12
BIT13
BITIY
BITIS

.SBTTL

ERROR REGISTER BIT DEFINITION

ILC=

BITO

-#]LF=
&K=
ILF=
NXF =
DRPAR=
FMTE=
DTYE=
ECH=
BSE=

RESS BIT 16
RESS BIT 17

THE HIGH BYTE OF RKCS1

B.BR17= BIT1
B.COT= B8ITe
.SBTTL

ig;g
1276

IE=
RDY=

BIT0D
BIT1
BIT2
BlTe
BIT3
BITH
BITS
BITGE
BIT?

'DESELECT OR RELEASE DRIVE IN BITS 0-2
!DESELECT OR RELEASE DRIVE IN BITS 0-2
:BUS ADDRESS INCREMENT INHIBIT
:CLEAR CONTROLLER AND ALL DRIVES
{CLERR CONTROLLER AND ALL DRIVES
: INPUT_RERDY
;OUTPUT RERDY
:UNIT FIELC ERR
{MULTIPLE DRIVE SELECT
: PROGRAMMING ERROR
:NON-EXISTENT MEMORY
iNON-EXISTENT DRIVE
{UNIBUS PARITY ERROR
:WRITE CHECK ERROR
:DATA LATE ERROR
; ILLEGRL FUNCTION CODE

s ILLEGARL FUNCTION CODE
:SEEK INCOMPLETE
;ILLEGAL DRIVE FUNCTION
: ILLEGRL DRIVE FUNCTION
‘DRIVE DETECTED DRIVE BUS PRRITY ERROR
:FORMAT_ERROR
DRIVE TYPE ERROR
:ECC HARD
:BAD SECTOR ERROR

CZR6PCO RKE11-06 PERF EXEC
CZREPC.P11L
01-DEC-77 14:53

1286

MARCY1l 30(1046)
01-DEC-77
15:04_ PARGE 34
ERROR REGISTER BIT DEFINITION

000400

HCRC=

004000
010000

WLE=
DTE=

1287
1288
1289

000400
001000
002000

1292
1293
iggg

020000
040000
100000

1290
1291

GO3

isgg

SEQ 0032

BIT8

; HERDER CRC ERRROR

BITI1l
BIT12

i E # ERROR
VE
_TIMING ERROR

HVYRC=
COE=
IDRE=

BIT8
BIT9
BITIO

OFi=
UNS=
DCK=

BIT13
BITIvY
BITiS

:HERDER _VRC ERRROR
:CYLINDER ADDRESS OVERFLOW ERROR
INVRLID DISK RADDRESS ERROR
OPERRTION (SEARCH) INCOMPLETE
;DRIVE UNSAFE
iDATA CHECK

.SBTTL

STATUS REGISTER BIT DEFINITION

1298
1299

000001

DRA=

BITO

1301

1300

000004

OFST=

BIT2

1302
1303
1304
1 3CS
1 306
1 307
1 308

000010

000020
000020
000040
000100
000200
000200
000400
004000
020000
040000
100000

SPDLSS= BITHY
DCLO=
BITY
DROT=
BITS
vv=
BITH
DRY=
BIT?7
DRDY=
BIT7
BIT8
DOT=

SPEED LOSS
:DC_LOW
:DRIVE OFF TRQCK
VOLUHE Vflb
DRIVE ERDY
DRIVE TYPE (0=RK0&, 1=RKO7)

PIP=
DSC=
SVAL=

BIT13
BITI1Y
BITIS

PO ITIONING IN PROGRESS
:DRIVE STATUS CHANGE
:STATUS VALID

.SBTTL

MRINTENANCE REGISTER 1 BIT DEFINITION

)1309
1310
1311
1312
1313
1314
1315

ACLO=_

WRL =

BIT3

BITI1

DRIVE AVAILABLE (CONTROLLER IS SET IF
THIS BIT IS RESET)

DRIVE OFFSET
AC LOW

%5 b
?

igig

000017

MESMSK= 17

; MESSRAGE MRSK

1318

000020

PAT=

; FORCE EVEN PRRITY ON DRIVE BUS MESSAGE LINES

BITH

1319
1320
132l
13e2
1323

000040
000100
000200
000400
001000

DMO=
MSP=
MIND=
MCLK=
MERDB=

BITS
BITH
BIT?
BIT8
BIT9

:DIAGNOSTIC
HQINTENRNEE %ECTOR PULSE
; MAINTENGN
:MRINTENANCE CLOCK
HRINTENRNC
NCODED READ DATA

1325

004000

PCR=

BIT11

: PRECOMPENSATION RDVRNCE

1324

1326
1327
1328
{ggg

002000

010000
020000
040000
100000

iggé

MEWD=

BITI0

PCD=
BITl2
ECCW=_
BITI3
WRTGAT= BITI1Y
RDGATE= BITIS

NCODED WRITE DARTA

! PRECOMPENSATION DELR
{ECC_WORD_1S BEING RERD OR WRITTEN
!WRITE GATE
iREAD GATE

.SBTTL

DEFINITION OF DRIVE STRTUS BYTE 00 MESSHGE R

1333

000040

S.DRR=

BITS

;DRIVE AVAILIABLE

1335
1336
1337
1338
1339
i340

000200
000400
001000
002000
Q04000
010000

S.DRY=
S.TYPE=
S.FORM=
S.OFF=
S.WRL=
S.SPIN=

S%T?
BIT8
BITS
BITID
BITIl
BITle

; DRIV REREY
;ORIVE
TYP
;ORIVE FORMRT
;OFFSET
;NRITE LOCK
; SPINDLE ON

1334

1241

000100

020000

S.vv=

S.PIP=

BITb6

BITI3

: VOLUME VAL ID

:POSITIONING IN PROGRESS

HOJ3

PAGE 35

;DRIVE STATUS CHANGE

S. DSC=

BITI4

.SBTTL

DEFINITION OF DPIVE STATUS BYTE 00 MESSAGE B8

.ICYL= BITS
.ACLO= BITe

000040
000100

Lhis
s

010000
020000
040000

; ILLEGAL CYLINDER ADDRESS
;RC LOW

fgg';ggggngé%aogmvs BUS PARITY ERROR
:NE“S
LSSQPL:ERSR

; SPEE
;0C L oW
,DRIVE OFF TRACK

; DRIVE UNSRFE

DM
0 (OO Moo

4 b4 =1

== bt e b DD NN £
£W—0O

DEFINITION OF DRIVE STRTUS BYTE 01 MESSAGE A

0=t bt Dt P

000020
000040
000100
000200

040000

; TRANSDUCER OK

: HEADS
HOME
: BRUSHES HOME
DOOR INTERLOCKED
;CARTRAGE INTERLOCK
;SPEED OK

FORNQRD

HEQD&NL?RD£
; HEADS UNLORDING

DEFINITION OF DRIVE STRTUS BYTE 01 MESSAGE B
D

=g 0l =t Ot Pt D=4

D=t =g P

00D DI 0

000100

VI
VI
UL

386858

R_ERROR

SE?;E OCK AND NO WRITE GATE

IWRITE GRTE AND NO TRANSISTIONS

HUL?IPLE
HEARD SELECT
ERROR

: INDEX

DIBIT ERROR

:PLO ERROR

; SEEK_AND NO MOTION
;LIMIT DETECT ON SEEK
; SERVO-BRAKE

COMMON MASKS
IXIIIIXIXIIX

N el

(G L)

R e ey ey ey e e
el el el ad

ol e

e ey e e

W W LWL G LW W WL W LW W W

1S5:04

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE AR

]

Y oY Sy S

GGG L) W LG LI W W W
W W W W W W WL W LI WM
D O OO0 DO ODMIDMOOOAEMMMOMINNIN SNNNNNINOOC
OO0 OO
TN
W NE £
NONLW—ODONOCN
LW~ 0D0mNo NL£WN—0W0m
NN £ WL~ OW N0 N L WY O0Mm

Sy WOy Uy WOy Ny WY Sy VoY WY Uy iy Wy Wy WPy Wy Wy WPy iySy
o

1347

0o40CJ0

01-DEC-77_

30 (1046)

A=
=4
= b bt b b OO
UL
Lwh—o

1342
1343

MACY1ll

-, A
et
ot s P pe
b (O
LW
ne—O

CZR6PCO RK611-06 PERF EXEC
01-DEC-77 14:53
CZRePC.P11

ARITY

CYL%N&ER DIFFERENCE/OFFSET

760

{SECTOR_COUN
:HEAD DECODE

77770
=

'DRIVE CODE

BIT1S
3
17760
17760

7000

DEFAULT DRIVE VALUES

:CYLINDER ADDRESS
:DRIVE SERIAL NUMBER

SEQ 3033

CZR6PCO RKE11-06 PERF EXEC
01-DEC-77 14:53
CZREPC.P11

000000
000000
000002

MACY1l 30(1046)
01-DEC-77
15:04
DEFAULT DRIVE VALUES

LWN—OWVM
NN L WU~ OWOD

s Pt

Lt
frrrfLrLfrr

Pt Pt ot Pt Pt Pt Pt Pt Pt Pect et Pt Pt Prth Pt Pt

PAGE 36

SEQ 0034

D.MNCL= O
D.MNTR= O

;MINIMUM CYLINDER
;MINIMUM TRACK

D.MNSC=
D.MXSC=
D.RATE=
D.AWCK=

;MINIMUM SECTOR
; MAXIMUM SECTOR
;RERD/WRITE RATIO
;
TOMA
HRITE CHECK AFTER EVERY WRITE

D.MXTR= 2

O
21.
3
0

D.CERT= 10.

1426

I03

D.UERT= §
D.SKET= §

D.CTRH= 77777

D.CTRL= 177770

; MAXIMUM TRACK

; CORRECTROLE REQD ERROR THRESHOL

i NCORRECTRBLE RERD ERROR THRESHOLD
; SEEK ERROR THRESHOLD

COMMRND COUNT THRESHOLD

MAXIMUM OF COMMANDS ISSUED TO DRIVE)

177770

D.WIHI= 777277
D.WTLO= 177770

HORDS TRANSFERRED THRESHOLC
: éflflgégUM NUMBER OF WORDS RERD OR WRITTEN

000020

T.NER=

; THRESHOLD OF OTHER DRIVE ERRORS

SBTTL

20
OFFSET VALUES

OFFPl2= 060

000060
000040

OFFPB8=

000260

OFFMB= 240
OFFMi2= 260

001000
ooogle

040

;OFFSET +1200 MICRO-INCHES

JOFFSEY +800 MICRO-INCHES

OFFP4=
OFFM4=

020
220

.SBTTL

DEFAULT CONTROLLER THRESHOLD

T.0LT=

1000

T.CONT= 10.

:OFFSET 4400 MICRO-INCHES
; OFFSET -400 MICRO-IfwHES

:OFFSET -800 MICRO-INCHES
:OFFSET -1200 MICRO-INCHES

; THRESHOLD FOR DRTR LATE

: THRESHOLD FOR OTHER CONTROLLER ERRORS

CZR6PCO RKb11-06 PERF_EXEC
01-DEC-77 14:53
CZREPC.PI11

MACY11l

JO3

PRGE 37
15:04
30(1046)
01-DEC-?7
PARAMETER BLOCK ALLOCATION
PARAMETER BLOCK ALLOCATION

W COTUNY
FU MY 0= e s pe
w = NN
W NUNW
= JUNW
-

@S ae

COMMAND
CYLINDER ADDRESS

RN R

i TRACK
'
iBA16-17, FORMAT, DRV TYPE!

RN R

DRIVE NO.

R AR RN

SECTOR
OFFSET

i BUS RDORESS (Lou 16 BITS)
i
i
i
i
i

WORD COUNT (2°S COMPLEMENT)
PROGRAM DRIVE STATUS xuronnnrxon
COMMAND nno STATUS REGISTF
COMMARND AND STATUS REGIS1ER a
WORD COUNT REGIST E

BUS aoon; S REGIST
oesxneg K _AND secron
DESIRED CYLINDER
ATTENTION SUMMARY AND DRIVE OFFSET

i
i
i
i
i
i
i
i
i
i
i
i
i
i
i
i

M M DI

K R I IC i i i I R0 M B e R i M I O i K

!
i

ERROR REGISTER
STATUS REGISTER

MES
LINE A STATUS BYTE
MESSAGE LINE B STATUS BYTE
MESSAGE LINE A STATUS BYTE
MESSAGE LINE B STATUS BYTE
MESSRGE LINE A STATUS BYTE
MESSAGE LINE B STATUS BYTE
MESSAGE LINE R STATUS BYTE
MESSAGE LINE B STQTU? BYTE
ECC POSITION INFORMATION
ECC PATTERN INFORMATION

00
0O
Ol
01
10
10
11
11

R AR

0
2

iy
i
B

i 10

i 12
i1y
i 16
i 20
i 22

i
i
i
i
i
i

24
26
30
3

3y
3p
i 40
iy
o4y
i 4yg
i 50
i 52
i 84
i Sg
i 60
i 62

I*l!lll!llll!li!illllllll!lfi!!lll*lllilill!li*ill

PARAMETERS PRSSED TO THE DRIVER

THE FOLLOWING DEFINITIONS ARE USED TO PASS PRRAMETERS

000014

881VE SUMBER

gYLIN%ER RDDORESS

'uoao COUNT (2

2X-2Z
m

000000

=
YN NLEV—- O
£MNN0O

TO THE RKO6/07 DRIVER

[

17)

NT)
FORMARTION

DRVDSC=

Ol =l 0t el 0

000001
000002
000004
000010
000020
000040

—
N LW—-0

PROGRAM DEVICE STATUS REGISTER DEFINITION
W ODOmm

I&fifi:&&&&l&&.fii&&.E.LJ:.EIIJI-EIIII

£fE£EL £r
NNNNNNOOCOCOC
oo NI VATV
9 < of L£LL
NN LWN—ODVONCNLEWNN—O
DD
LW - 0OWD0m ~No

s [Ty
SN e
s Pt Pt
Pt Pt Pt Pt
s ot Pnt Pt Pt Pt Pt Pt Pt P
s et Pt Pt Pcn Pt Pt
Pt Pt Pt Pt

00 00

WO WML WU
B W W W B
B WO BRSO
RE G W S A

Pt Pt
Pt P
P
L Pt Bt Pt Pt P

L£L£L ¥ opb ool N O o O g
¥ i o
LfLr LWWWWWWww [N
Whyr- OoOwoNoCN LW [

.SBTTL

1444
1445

SEQ 0035

;ORIVE IN USE

:DRIVE POSITIONING
:DRIVE POSITIONED FOR DATRA TRANSFER
SUNEXPECTED ATTENTION
:DRIVE HAS HARD ERROR
‘DRIVE STATUS CHANGE DID NOT CLEAR

CZREPCO RKb11-06 PERF_EXEC
CZR6PC.P11
01-DEC-77 14:53

1485
1486

KO3

MACY1l 30(1046)
01-DEC-77_
15:04 PAGE 38
PROGRAM DEVICE STATUS REGISTER DEFINITION

000100

CMDTO=

1487
1488
1489

000200
000400
001000

W.WCK= BIT?7
NOCHK= BIT8
PBSVAL= BITS9

1492
1493
1494
1495
149¢
i:gé

002000
004000
010000
020000
057000
100000

DRPDRV= BIT10
NODSC= B8IT11
DRVSZD= BITI12
E.UNLD= BITI3
@.INIT= BITIMY
DTBRII= BITiS

1490
1491

BITe

;

NO TERMINATION TO COMMAND FOR AT
LERST 1 SECOND

i
;

(SET WHEN ERROR TERHINRTION OR
RERD STATUS COMMAND)

:WRITE FOR WRITE WRITE CHECK
iNO CHECK, DO NOT SET INTERRUPT ENARBLE
'PARAMETER STATUS WORDS
VAL ID
:DROP DRIVE FROM TEST SEQUENCE
;ATTENTION SET BUT_DCS QND FRULYT RESET
:DRIVE SEIZED BY OTHER PORT
:DRIVE UNLORDED DUE TO ERROR
:PARAMETER BLOCK ENQUEUED IN INITIATION QUEUE
PINHIBIT BUS RDDRESS INCREMENT

iggg

.SBTTL

PARAMETERS PASSED FROM DRIVER TO PROGRAM

1501
{ggg

;
;

THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETURNS
FROM THE DRIVER TO THE CALLING PROGRAM

1504

000016

P.CSl=

1506
1507
1508
1509
1510

000022
00002
000026
000030
000032

1812
15813
1514
1515
1516
1617

000036
000C40
000042
000044
000046
000050

1519

000054

1508

1511

1518

1520
1521
igsg

000020

000034

; COMMAND AND STATUS REGISTER 1

P.WCR=
P.BAR=
P.DTS=
P.DCYL=
P.ASOF=

@22
24
@26
30
32

:¥ ORD COUNT REGISTER
,8US ROOR;SS REGISTER
; DESIRED TRACK SECTOR REGISTER
;DESIRED CYLINDER REGISTER
;ATTENTION SUMMARY/OFFSET REGISTER

P.DS=
P.A00=
P.B00=
P.A0l=
P.B0l=
P.A10=

36
40
42
44
46
SO

P.All=

P.ER=

000052

P.810=

0000S6
000060
0o00ee

P.Bll=
56
P.EPOS= 60
P.EPAT= &2

}ggg
1526

P.CSe=

.SBTTL
000064

:COMMAND AND STATUS REGISTER 2

; ERROR RE%IST;R

; STATUS
;MESSAGE
;MESSAGE
;MESSAGE
;MESSAGE
;MESSGGE

REGIS ;R
R STATUS BYTE 0O
B STATUS BYTE 00
A STATUS BYTE 0Ol
B STATUS BYTE Ol
R STATUS BYTE 10
;MESSAGE B8 STATUS BYTE 10
;MESSAGE R STATUS BYTE 11l
;MESSAGE B _STATUS BYTE 11
;ECC POSITION INFORMATION
;ECC PATTERN INFORMATION

DRIVE SPECIFIC PRRAMETERS

P.GQLNK= b4

:QUEUE LINK

SEQ 0036

01-DEC-77
15:04
3 0(1046 )
DRIVE SP ECIFIC PARAMETERS

LO3

PRGE 39

SEQ 3037

THE FOLLOWING DEFINITIONS ARE USED FOR DRIVE PRRAMETER ACCESS

= bb

NNN

= 70

= 75

= 76

IEO

;MINIMUM CYLINDER

MQXIHUH CYLINDER
é iHUM TRRE

N XIMUM TRACK
iMINIMUM SECTOR

: MAXIMUM

IREAD/WR]

TIO

igs
106

)&S#ERERS ERR
SR(
SSS
UNC
HRX%HU" COHHQNDS &8 U?S TQO DRIVE

116
117
120
121

:SAMPLE COMPARE FLAG
:ECC_COMPARE FLAG
:INHIBIT ERROR CORRECTION
!DATA PATTERN USED

112

; MAXIMUM NUMBER WORDS

TRANSFERRED

THE FOLLOWING DEFINITIONS RRE USED IN STORING
CURRENT RANDOMLY GENERATED COMMAND

; CURRENT RANDOMLY GENERATED DATR PRTTERN

e
st B
e
Tt b

L LLL£ LW
N L£—oon

THE FOLLOWING DEFINITIONS ARE USED
-RST ISSUED
e

VOVUVOVVOUVV

122

123
124
126
127
130
} s

VUV OVOVUVOOD

;AUTORATIC
HRITSRRORORTHRESHOLD
THRESHOLD

000066
000070
00007
00007
000074

LLEELEL L(OW
N Lh— QN

s et e Pt e e Pt Pt Pt Pt fm Pt Pt s Pt Pt Pt Pt Pt Pt ot Pt Pt i Pe s s Bt Pt Pt et Bt e Pt Pt ot e —

iy
v i
nd aiounian iyt o A
oo
oo o
nnnnnin NN
LLLfL Ll L fWWiWWwWwWWww Wy

@M NN LWV~
O DD NN L WN—-O VDNV L WM1-0 OO NN L W~
0O<O

1527
1Se8

MACY1l

:01)'01)'0'01'011"0'0'0’011'0'01! -

CZREPCO RKB11.06 PERF _EXEC
01-DEC-77 14:53
CZRePC.PI11

: CURRENT RANDOMLY GENERATED COMMAND
:CURRENT RANDOMLY GENERATED CYL INDER
: CURRENT RANDOMLY GENERATED SECTOR
: CURRENT RANDOMLY GENERATED TRACK
:CURRENT RANDOMLY GENERATED WORD COUNT
:CURRENT RANDOMLY GENERATER BUS ADDRESS
IN STORING

;LQ?T EYLINOER
LAST

COMMAN

:LAST SECTOR
LQ%T TRACK
; LAST WORD COUNT
;LAJT DATA PATTERN
:BUFFER RLLOCATED

M'flsl ! /m-GEgE7§x§S: S3

THE FOLLOWING

1569
1

B8B1a5

SEG 0038

MACYLL 3BEI0ESLpeRtF
RE
PARaETERS FACE
E RERD: 135

IS USED FOR THE RETRY SEQUENCE

BE¥§¥ ?NHIERTION FOR DATR ERRORS
NOT

IN RETRY SEQUEICE

zgRESD9§ENT§§83 N?CSO INCHES
OFFSET -400 MICRO-I

REREAQ OFfeET oo’ nxcno-xncnss
Ry SO MR e IncHES
OFFEEY
2Bnat NI CROCINGNE 3
OEREED OEPSET 800 MIFRO-INCHES

ReRend 5488+ 280 RYCRS-incees
OrFSET -1200 MICRO-INCH

RERERD OFFSET ~1200 HICRO INCHES

.NODR=
'NRD=
.SRRD=

152
1
1&M
172

-2Ece= 176

‘NeRy= 588

00GCe06

.NOPI= 204
.NER=
206

E
INITIRL DATA

B o TR0 A RRE SR s
SECTOR
RROR PRINTED
REQHEaOEE UED
STQTUS FOR
FOR R
RITING
110 R

%%r“n"%'%

=—
=
At

=t bl b=t Pt —

P00t bt Pt b by

--ewe

THE

0001Sse

TVTVUVOVOVVOLOOUV

Soyeey o
o
T
e ol
ey S
e e
e e

[ealontontealoaloplo oo plo pdo pe ol oo gl o o 4o JIVA TV TV T4}
= — 00 000000 (@ [a VIV N Y]
£ WN— O NN
L Why— Oowuo~N

wrwe

; DRIVE STQTUS INFORHQTION FOR ERROR PROCESSING
OO aEn (D

150

MOODEOD

.DSTT=

000150

?
CRL QTE HAS BEEN ISSUED
1
EK HQS BEEN ISSUED
1
1
FSET HAS BEEN ISSUED
1
D SECTOR PROCESSING FOR WRITE CHECK
1 S ERROR ENGUEUED

FOLLOWING DEFINITIONS ARE USED IN STATISTICAL GATHERING
; NUMBER OF ORDERS

(2 WORDS
)

NUHBE Hgsgg WRITTEN (3 NORDS)
; NUMBER OF W

RERD

(3
W

i'NUMBER
NITBER SOFT
ERRORE (BEP 5 COmESTERLE)
SOFT ERRORS (ECC CORRECTQBLE)
:NUBER 8F SPER SRIOMBLETES

:NUMBER OF OPERATION INCOMPLETES
NUMBER OF ALL OTHER ERRORS

CZR6PCO RKE11-/06 PERF EXEC
CZREPC.PI11
D1-DEC-77 14:53
et P

ONCN L£WN—-ODONTNLLNV—~OVDNTCNLWNN—~0O0OmNN

MACYLL 30(1046)
OCLl-DEC-7?7
15:04
DRIVE SPECIFIC PARAMETERS

0Ccoel10

P.ASSN= 2i0

Pt Pt Pt P

AR
AR

e Bt Pt Pt Pt Pt Pt et Pt Pt it Prnt Pt et Pt Pt Pt Pt Pt P b Pt Bt Pt et ot Pt Pt Pt P

0oge1l2

P.SEEK= 211

o4
64
239

000217
002220
000eee

650
ggé

Pt o Pt

653

654
655

THE FOLLOWING LOCATINN IS USED TO INDICATE ERRORS

P.ERR=

212

P.ERHD= 214

P.ERRD= 217
P.CMLG= 220
P.BFCP= 222
3
;

gocced

000226
000232

DRIVE SERIA. NUMBER
START SPINDLE
PACK ACKNOWLEDGE
READ PACK SERIAL NUMBER
WRITE PACK COMMAND ISSUED
END OF PACK WRITE
RECAL
RECAL AND RETRY READ PACK
SERIAL NUMBER

;SEEK TO PREVIOUS CYLINDER FLAG
;BIT 2
;BIT 3

;BIT
;81T
;BIT
;BIT
;BIT
;
;BIT
;BIT
;

000214

0
1
2
3
4
S
&6
7

SEGQ 0038

;s RSSIGNMENT ConnnNo SEQUENCE
,0
INITIAL STRTE

:PIT
;?1T
;BIT
;BIT
;BIT
;BIT
;BIT
:BIT

0ooe1l

6
&
6
6
3
64
64

PRGE 41

THE FOLLOWING IS USED FOR THE DRIVE ASSIGNMENT SEQUENCE

s O

s Pt Pt

1615

NO3

4
S
&6
7
8

DATR _COMPARISON ERROR

DRIVE ERROR NOT REPORTED

DRIVE SEIZED TfflE out
DRIVE POSITIONING TIME OUT
ERROR WHILE ENQUEUED
ATTENTION WHEN DRIVE NOT IN USE
TIME OUT WHILE WAITING FOR HERDS
T0 LORD AFTER ERROR
10 DRIVE NOT READY AFTER START SPINOLE
11 PACK ACKNOWLEDGE DID NOT SET VOL.IME
VALID

;HERDER RODRESS OF FIRST DATA MISCOMPARE (3 BYTES)

OFFSET COUNT FROM HEADER ADDRESS
'COMPARISON LENGTH
BUFFER COHPQRE LENGTH

THE FOLLOWING LOCATIONS RRE USED FOR DRIVE SERIAL NUMBER,
PACK SERIAL NUMBER, AND TRACK EXCLUSIONS

P.SERL= 224

P.PKSR= 226
P.EXAR= 232

;DRIVE SERIAL NUMBER

CQRTRIQGE SERIAL NUMBER
EXCLUOED AREA INFORMATION

CZRSPCO RK611/06 PERF _EXEC
01-DEC-77 14:53

CZR6PC. P11

MACY1l 30(1046)

TRAP CRATCHER

.SBTTL

01-DEC-77

15:04

BO4

PAGE 42

SEQ 0040

TRAP CATCHER

=0
; #ALL UNUSED LOCATIONS FROM
4 - 776 CONTRIN R . +2,HALTTM

000000

:#SEQUENCE TO CRTCH ILLEGAL TRAPS AND INTERR PTS
000174
000176

000174
030000
000000

000200
000204

000137
000137

ILOCATIOngqCONTQINS 0 TO CATCH IMPROPERLY LORDED VECTORS
DISPREG:
SWREG:
006670
006652
006642
065062

000214
000ees

000240

001000

.SBTTL

.WORD
WORD

O
O

STARTING ADDRESS(ES)

JMP
Jflgxq

a8ST RRT ; ; JUMP TO_STARTING RDDRESS OF PROGRAM
; BRANCH TO RESTARRT
RESTRT

JMP
JMP

PARSRT
. .DUMP

.=e40
JMP
.=1000

START!

..LOW: 700
..HIGH: PATTAB-2

006662

.SBTTL

; 1 SOFTWARE DISPLAY REGISTER
; s SOFTWARE SWITCH REGISTER

;GET SYSTEM PARAMETERS AND START TESTING
}
#u% MEMORY DUMP (DEBUG ONLY)

iSTART OF DUMP
;LAST ADDRESS OF DUMP

APT PARAMETER BLOCK

< 2696 303630 3630 36 06 3030 0600 0036 3690 3030 30 00 06 0030 0006 0 3006 00 06 36 3000 0636 3600 3096 36 30 30 36 3698 3 0600 3 00000 T30 00 00 B 00 0

QET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
000024

000044

001000
000024
000200

001000

ll!!!!lli!!llllllllll!l!lllll!lllll!l!!lill!ll!!!illl!lll!**l*l

. $X=.

. =24

200

; s SAVE CURRENT LOCATION

,,SET POWER FAIL TO POINT TO START OF PROGRAM
AR
;FOR APT START
UP

!POINT TO APT INDIRECT ADDRESS PNTR.
SRPTHDR ,,POINT TO APT HERDER BLOCK
! !RESET LOCATION COUNTER
illlllll!l*llliililll!l!I{Iilllll‘llill*l!l*!li!!ll*l{!l!ll!l!li
’QETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIARGNOSTIC
:INTERFACE SPEC.

000000

000052

SAPTHD:

§SHIBTS:
SMBADR:

“~

O
.WORD
WORD ~ SMAIL

§TSTM: .WORD
§PASTM: .WORD
SUNITM: _WORD
- WORD

,,Tuo HIGH BITS OF 18 BIT MAILBOX ADDR.
;iADDRESS OF APT MAILBOX (BITS D-15)

'RUN TIM OF LONGEST TEST
3000
'RUN TIME IN SECS. OF 15T PASS ON_1 UNIT (QUICK VERIFY)
3000
3000
'ADDITIONAL RUN TIME (SECS) OFA PASS FOR EACH ADDITIONAL UNIT
sETENo-sfith/a . sLENGTH MAILBOX-ETABLE (WORDS)

CZR6PCO RKb11-06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

~N
000
o

ca4

PAGE 43

SEQ 0041

COMMON TRGS

3636 3 36 38 35 36 38 26 3 36 3 3 3 % 3 3 3 3 3 3% ¥ 3 3% %% 2% 3% % % 33600 36 3630 36 00 00 30 00 3006 38 30 00 30 30 36 3030 00 00 36 3 30 36 06 30 20 20

: %US

1703

1705

001100

1707

001102

1708

1S5:04

iTH g Tna#s CONTARINS VARIOUS CO MMON STORRGE LOCATIONS

17 é

1706

30(.046)
O01-DEC-77
COMMON TRGS

.SBTTL

1838

1704

MARCY1l

001100

00:100

000000

001103

000

ROGRAM.

SCMTAG:

100
RD

SERFLG: .BYTE

000

$TSTNM:

.BYTE

: ;START OF COMMON TAGS

; sCONTRINS THE TEST NUMBER

; s CONTAINS ERR

1709
1710
1711

001104
001106
001110

000000
000000
000GO0

ICNT:
SLPADR:
S$LPERR:

.WORD
.WORD
.WORD

O
O
O

,.convn*zg gg
: ; CONTA
CONTRINS
?

};ia

ooiiiu

000

sx;;gg:

g$;e

con.gx

1712

0Q0lli2

000000

SERTTL:

1715 881112 000886
1719 881153 888888
001135

1725

001140

1727
1728

001144
001146

1724

1726

1729
1730
1731
1732
1733
1734
1735

000000

0OCli42

177570

001150
001152
001154
001155
001156
881157

177564
177566
000
002
0ie
000

1160

};:?

i;:g
001170
001170

1747
1748

001174
001176

1749

1750
1751
1762

1783

,,cou il

.BYTE

$TKB
$TPS
§TPB:

000377

NULL:
SFILLS:
SFILLC:
STPFLG:
$BELL:

"WORD

.WORD

177560
177562

177564
177566
.BYT
.BYT
.BYTE
.BYT
.ASCIz

9 ERRORS
§n
CONTROL

TECTED

::88N¥ ffl? Fn L22§SEEEOR fnsrnucrxon
::Sgutnin§ n8838$ 08

"82222523
'NOT‘TO
BE USED
'

:AUTCMATIC

MODE INDICATOR

,,INTERRUP

DSWR

MODE INDICATOR

ngss OF SWITCH REGISTER

DDISP

,,no

OF DISPLAY REGISTER

0
2
63

:ITTY PRINTER STATUS REG. RDDRESS
J:TTY PRINTER 'JFFER REG. nooncss
;;courn{ng NUS? suan
CTER FOR FILLS
;;conrn
ILLER cuaancrsns REQUIRED
i1
FILL CHRRS. AFTER ”L% EED"
;! Se }NQL
vnanaLE" FLAG (BI <07>-o YES)

PTTY KBO STATUS
::TTY KBD BUFFER

,,co

SoRcR: BRI
"°HESI
SLF:
R§S{£< 3>
0 REEn2¥5n~
; ll!ii*llllllll!ll!illll!illllli‘llllllllllill!llll!*llll!ll!li!
"48TTL

APT MAILBOX-ETABLE

,tll*llllllllllilll!iillil!llllll!lllllllillllllllllll!lll!!ili**

1744
1745

1746

JWORD

DISPLAY:

177860
177562

173
Ooilee 000012
aie
1738 001166
1739

SINTAG: .BYTE

177570

177607

SBODAT: - :850
WOR

$AUTOB:

000

001136

zERRPC: WOR 6
gc DAT: .M R8 J

1;13
00}156 888088
000800
1751 8811
1722 001134
000

1723

.WORD

TERQTION COUNT
RODRE
SS
FOR ERRORS

001172

001200
001202
001204
001206

001210

VEN

000000

$MATL :
§MSGTY:

.WORD

AMSGTY

;s APT_MAILBOX
;:MESSRGE TYPE CODE

000000
000000

STESTN:
SPASS:

.WORD
.WORD

ATESTN
PASS

;;TEST NUHBE
COUNT

SUNIT:
§MSGRD:
SMSGLG:

.WORD
.WORD
.WORD

AUNIT
AMSGAD
AMSGLG

;;I/0 UNIT NUMBER
;;MESSAGE ADDRESS
' ;MESSAGE LENGTH

000000
000000

000000
000000
000000

SFATAL: .WORD

SDEVCT: .WORD

$CTRBLE :

AFATAL

ADEVCT

;:FATAL ERROR NUMBER
.,oevxcs COUNT

:JAPT ENVIRONMENT TABLE

CZREPCO RKG11/06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:53

MACY1l 30(1046)
O01-DEC-77
APT MAILBOX-ETRBLE

e sl
g
1766 001212 000000
igsé 88%3%3 888888

v CBOE
$SWREG: .fiogo
igguofiz IuSRB

§;g?

§:

1768

75 g
iggg
teel

g8g

ig%g
{77é 001222 000000

1773
1774
1776
177?
1778
1779
1781
1;82

001224
000
001225
000
091238 99089
001231
0G0
001232 000000
001234
000
001536
001230 0OD9GD
120210

{783
881848 799398
1;95 12% 000000
178%
881528 REE388
1;99
ooiesu
000000
1783 8&%
808580
1735
1793 201569
001266 8900959
000000

1794
1795
1796
1797

001270
001272
001274
001276

030000
000000
000000
000000

1801

001306

000000

N EWVIRSIENT BYIE orvs
gsuasc ,,RPT SWITCH REGISTER
EBUOP étgs 1EYE% §EE?ONS

i:.Qnonx.: +WORD AMADR1
; ;HIGH ngggsggggLnsgoth
o
MADRI " MEM. LA ngofi
.=3 avrss THIS WORD AND LOW OF“TYPETM ABOVE
;

(

§MaMS2: .BYTE
SMTYP2:
.BYTE
SR :EYYE
N D
§nvv33;
$MADR3: .WORD
$MAMSY:
.BYT
SRADRY.
THORD
svscvxg Iuogg

AMAMS2 ;;HIGH ngoaz
AMTYP2 ;;nen.rvpg,atxha
AR 53nén
il
A OOR oS .o BYIE
nnrvgg
TeggRSL
P MEM
nnnns .,chn
Sgsg
E ,BLK#3
BYTE
ARGORY
imem
gvscré L"Inréggfipv
92c§3251
aus PRéO?%$YOl

30BuA: - HORR
SODHa.
(hoRD
SODWS: .WOR

;:gi ggfifii%fi HORDE
iipev Bsggsipron
SR1-TOR LORDSY
;:stig
WORD #5

$UREIS:
-HORR ABR&L éEéE acfls&fi. MG .e
SDEVM: .WORD ~ RDEVM
$cBHA:
-HORR ASBHA
::%WE&EER
B$§§EIFHSN
HORBEA
soo:of
-HORD
200:0
,.ocvxcs
.
Aoom3
RDOWS

$DDW6:
$DDW7:
30DWB:
$00W9:

.WORD
.WORD
.WORD
.WORD

ADOWE
ADDOW?
ADOWS
RADOWS

;;DEVICE DESCRIPTOR WORDSE
;,Egvgcg §§§§§¥9782 WORD
#7
;;DEVIC
PTOR
WORD#8
;;DEVIC
RIPTOR WORD#9

$0DW13:

.WORD

ADDW13

;:DEVICE DESCRIPTOR WORD#13

3ODW14:
$ODW1S:

1807

SEQ 0042

flonst:
BYIE AMTYRL
AOUS| inEM
QSOuascasen
;ETY tUBYTE
TVEENRLRLo OVIE
ron eviE)

1802
1883

1882 001314

PRGE 44

BiT '8=Pf3hr¥fi3598&n9 PROCESSOR

$ODH10:: .WOR
-HORD
SBBNI

000000
000000

DO4

11/94-8é #6603'02 16/20
=03, 11/40=04, 11,/45=05

1739 001304
091309 909009
1800
000000
001310
001312

15:04

SETEND:

.WORD
.WORD

BoBuiY
HORDE1)
n88u1 iiDEVICE
5:82vfcs §§5°S’$¥85
ggnfproa WORD#12
ADDWIW
ADDW1S

::DEVICE DESCRIPTOR WORD®14
;;DEVICE DESCRIPTOR WORD#1S

000000
000000
000000
000000

MACY11

15:04
PAGE Y45
01-DEC-77
UEUE HERD AND TRIL ALLOCRTIONS

.SBTTL

QUEUE HERD AND TAIL ALLOCATIONS

AVARILQ:
BWAITQ:
CINITQ:
ERRPRQ:

. WORD

.SBTTL

SYSTEM PARAMETERS

NUY
000000000000 WOONO
8

.WORD

001412

00c000

.LS2:

. WORD

001414
001416

000000
000000
000000
000000
000000

.HC?:

000000
000000

+ADDRESS OF KWll-L STATUS REGISTER
;KWll-L VECTOR RDDRESS

; RDDRESS OF PRINTER STATUS WORD
PRINTER DATR BUFFER
ADDRESS OF
c

X IMUM BUFFER

PQSS COUNT

)
)

IF SYSTEM IS 60 HZ.
IF SYSTEM IS SO HZ.

OR RERD OR WRITE

INTERVRL BETWEEN PERFORMANCE SUMMARIES
IRESTART AND PARAMETER FLAG
; NUMBER OF SOF TWARE COMPARES

;CPU DESIGNATION FOR PACK WRITING WITH DURL RCCESS
; OVERLAY LORDER

; TIMER HOUR
; TIMER HINUTS
;TIMER SEC

;KWi1-P OR KWll-L PRESENT
LRST SRTéSTIC PRINT OUT

sPERIOU SINCE

;sscon COUNT FOR PRINT OUT

SAV ED SWITCH REGISTER FROM POWER FAIL

s FLRG FOR RELERSE DURING WRITE PACK

CONTROLLER REGISTER STORAGE

.CS1:

;ADDRESS OF KWll-P COUNTER BUFFER
{KW11-P VECTOR ADDRESS

TEHPO?g?ERSIORRGE FOR COMMAND AND STATUS

000000

D
[T
o
W

001410

TEMPORARY

;ADDRESS OF KW1l1-P STATUS REGISTTER

TEHPORg?ERSTORQGE FOR COMMAND AND STRTUS

TEHPOAQRY $0RQGE
FOR WORD COUNT REGISTER
TORAGE FOR BUS RDDORESS REGISTER

00000

0000 NNNNN
oLnnooccnNLnno

.SBTTL

'HEAD AND TAIL OF BUFFER WAIT_QUEUE
‘HERD AND TRIL OF COMMAND INITIATION QUEUE
'HERD AND TARIL OF ERROR PROCESSING QUEUE

TEHPORRRY
TEHPORRRY

O000000

-CJ:-SIQ(JUUU§ RS

nen—-0o

Pt st it et
vt Pt it P
P

6. %23.
72777

000000

;HERD AND TRIL OF AVAILABLE QUEUE

o,0
0,0
g, 0
8.0

172540
172542
10
177546
100
177514
177516

SLKCSR:

000000
000000

SEQ 0043

38(1046)

1863

000000

888888888888888888

['N o ounnnnnnnnNunE
L L
L rrroew W WL WWWrJ
N
v>

Pt et Pt ot Pt Pt Pt Pt P

Bma Pt P et Bt Pt Bt Pt st Pt Pt Pt ot Pt Pt Bt Pt s Pt Bt et Pt Pt ot Pt Pt Pt Pt ik s Pt et s Pt Pt P Pt Pt Pt Pt Pt Pt Pt P Pt Pt P Pt P P Pt P P [
m 00 0D a0 €0 €D €D 00 (D €0 (D 0O (D 4D QD (O € €0 00 00 4D 0D €D 00 0D D10 D 00 DD (0 0o 00 00 D G0 00 G €0 G0 00 0D (0 4 €D €O €D b G0 00 €0 (D
®

Q
mmmmmm.-.-»»»-.—.-.—.-»-g
o.nm\w‘m:wruo—o.om\urm.:mm-—o\nm-w‘m:um»—-o.nmngxwm»—o‘nmwo‘m:umo—o
o®

CZR6PCO RK&11/06 PERF_EXEC
CZREPC.P11
01-DEC-77 14:53

TEHPORQRY TORAGE FOR ERROR REGISTER
: TEMPORARY STORAGE FOR DRIVE STATUS REG
! TEMPORARY STORAGE FOR MAINTENANCE REGI
; TEMPORARY STORAGE FOR MAINTENANCE REGI
: TEMPORARY STORAGE FOR MAINTENANCE NeGI
: TEMPORARY STORAGE FOR ECC POSITION
: TEMPORARY STORAGE FOR ECC PATTERN

TORARGE FOR DISK TRACK AND SECTOR

TORAGE FOR DRIVE CYLINDER
TORRGE FOR ATTENTION SUMMARY

AND OFFSST

CZROPCO RKE11/06 PERF_EXEC
CZREPC.P11
DO1-DEC-77 14:53

1864

001444

FOY4

MACY11 30(1046)
O1-DEC-77
15:04 PAGE 46
TEMPORARY CONTROLLER REGISTER STORAGE

000000

1geg

1868
1869
1820
1871
1872
1873
1874
1875
1876
1877
1678

001446
001450
001452
001464
001456
001460
001462

177440
000210
000240
024222

T.0B:

.WORD

.SBTTL

DRIVER PARAMERTERS

RKBAS:
.WORD
RKVEC:
.WORD
RKPRI:
.WORD
R.NORM: NORMAL

025312
026346
000000

A.ABNL: RBNORM
A.CONT: CONTRL
E.CONT: .WORD

O
177440
210
PRS
O

SEG 0044

: TEMPORARY STORAGE FOR DATA BUFFER REGISTER
; ADDRESS OF RKG11 UNIBUS RDDRESS BLOCK
' ADDRESS OF R611 VECTOR
RKBLL_INTERRUPT PRIOR
ADDRESS OF NORMAL RETURN FROM DRIVER
! ADDRESS OF ABNORMAL RETURN FROM DRIVER
' ADDRESS OF CONTROLLER ERROR RETURN
! CONTROLLER ERROR STATUS
i
THIS LOCATION IS CLEARED WHEN EVERY COMMAND
!
15 INITIRTED.
IF A CONTROLLER ERROR
OCCURS THE FOLLOWING BIT ASSIGNMENT IS
;
USED:

1880
1881
1882
1883

000001
000002
000004
000010

E.CCLR= BITO
E.NOAT= BITI
E.UATT= BIT2
E.UDRT= BIT3

E.CLAT= BITH
E.SCLR= BITS

'ATTENTION CID NOT RESET WITH CLEAR
SUE?YETE?OgLERR DID NOT CLEAR DRIVE

1887
1888
1889
1890
1891

000100
000400
001000
002000
040000

E.ILLD= BITE
E.OLT= BITS
€.CERR= BITS
E.DPAR= BITIO
E.CMTO= BIT1Y

E.MDS=

BITIS

PILLEGFL DRIVER COMMAND
'DATA LATE WHEN UNLORDING HEADER
!CONTROLLER ERROR DURING DRIVER SERVICING
‘DRIVE DETECTED PRRITY ERROR
!CONTROLLER COMMAND TIME OUT (QUEUED ONLY)

001464

000000

0.WAIT:

.WORD

001466
001470

000400
000400

W.MTIM: .WORD
W.MILI: .WORD

1884
1885

000020
000040

1832
1894

1895
1896
{ggg

100000

'CLEAR_CONTROLLER DID NOT CLEAR ERROR
'NOG ATTENTION IN ATTENTION SUMMARY REG
'UNSOLICATED RTTENTION (SEQUENTIAL ONLY)
' UNEXPECTED DATR TYPE ERROR

!MULTIPLE DRIVE SELECT

400
400

:PARAMETER BLOCK OF THE DRIVE

"WAITING FOR _COMMAND COMPLETION
!LOOP COUNTER FOR MILISECOND SCAN OF DRIVE
i 16 MILISECOND TIME FOR PROGRAM

1899

1801

;

19008

1802
1903
1904
1805
1906
1807
1908
1909

1910
1911

;

cPU

VALUE

oo2a

;
;
;
;
,
;
:
:

11,05
100
11710
11/20
11734
11740
11745
400
11/50
11,70
,sscono COUNT COUNT FOR ALL COMMANDS
EXCEPT START SPINDLE

001472

000300

W.SEC:

.WORD

300

1912
1913
1914
18915
1916

001474
001476
001500
001502
001504

003000
030000
000000
000CQ0
000000

W.BSEC:
W.MIN:
OPTFLG:
HDR.AD:
HOR.CT:

.WORD
.WORD
.WORD
.WORD
.WORD

3000
30000
O
O
O

'8 SECOND FOR DRIVE CYCLE DOWN
'MINUTE TIME FOR START SPINDLE
'FLAG = 1 WHILE IN CMND OPTIMIZER
' ADDRESS USED FOR RERD ALL HEADERS
NUREER OF HEADERS LEFT TO READ FOR READ

1818
1813

001506
001507

000
002

I.ISRL: .BYTE
H.HERD: .BYTE

O
2.4,10

! INTERRUPT OR RELERSED COMMAND ISSUED
:HEAD DECODES

004

010

CZR&PCO RK611-/06 PERF EXEC
01-DEC-77 14:53

CZR6PC.P11

1920

iggé

001512

001513

000

377

igga

1925
1926
1927
1328
1829
1930
1931
iggg

001514
001515
001516
001517
001520
001521
001Ssee
0015e3

001
002
004
0l0
0ec0
040
100
200

{ggg

1936

001524

001736

1340
1941
1942

001534
001536
001540

003226
003504
003762

1937
1338
13939
{gza

001526
001530
001532
001542

002214
002472
002750

1948
1949
1950
1951
1352
1953
1954

001S44

001S46
001550
001552
001SS54
001556
001560
(101562

000000

000000
000000
000000
000000
000000
000000
000000

15:04

PRGE 47

W.TIME:

.BYTE

.SBTTL

TRBLE OF INTERRUPT MASKS

INTMSK:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.SBTTL

PARAMETER BLOCK TRARBLE

PBLKT:

PRARMO

0.0YER: .BYTE

-1

1
¢
M
10
20
40
100
200

SEQ 0045

;ORIVES BEING WATCH-DOG TIMED

:OVERLAPPED OPERATIONS
; INTERRUPT FOR DRIVE
; INTERRUPT FOR DRIVE
; INTERRUPT FOR DRIVE
; INTERRUPT FOR DRIVE
; INTERRUPT FOR DRIVE
; INTERRUPT FOR DRIVE
; INTERRUPT FOR DRIVE
; INTERRUPT FOR DRIVE

O
1
2
3
4
S
6
7

; ADDRESS OF DRIVE 0°'S PARAMETER BLOCK

PRRM]
PARME
PrHRM3

:ADDRESS OF DRIVE 1'S PARAMETER BLOCK
'ADDRESS OF DRIVE 2'S PARAMETER BLOCK
:ADDRESS OF DRIVE 3'S PRARAMETER BLOCK

PARM?7

'ADDRESS OF DRIVE 7'S PARAMETER BLOCK

PARMY
PARMS
PARMG

004240

ig:g

1947

MACY1l 30(1046)
O01-DEC-77
DRIVER PRRRMERTERT

GO4

; ADDRESS OF DRIVE 4°S PRRAMETER BLOCK
; ADDRESS OF DRIVE S’S PRARAMETER BLOCK
; ADDRESS OF DRIVE 6°'S PARAMETER BLOCK

.SBTTL

WATCH-DOG TIMER COUNTS

W.DRV:

.WORD

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

O
O
O
O
O
O
O

; WATCH-DOG FOR DRIVE O

:WATCH-DOG FOR DRIVE 1
:WATCH-DOG FOR DRIVE 2
:WATCH-DOG FOR DRIVE 3
:WATCH-DOG FOR DRIVE 4
:WATCH-DOG FOR DRIVE 5
:WATCH-DOG FOR DRIVE b
{WATCH-DOG FOR DRIVE 7

CZR6PCO RKB11-06 PERF EXEC
D1-DEC-77 14:53
CZRe&PC. P11

1955
1956
1957

1428

001564

000000

MACY11

HO4

01-DEC-77
15:04
PRGE 48
PERFORMANCE EXERCISER STRTUS INFORMATION

30(1046)

.SBTTL

PERFORMANCE EXERCISER STRTUS INFORMATION

ERCONT:

.WORD

ERABLE)

BT T s
§ gus n§§REs§ &Nconng

000000
000000
000000
000000
000000

RRPRQ:
MPCNT:
TMPTRK
:
TMPSEC:
PRARCYL
:

8
0.0

.WORD
WORD
.sgso

0.0
0.0
8'8

CWORD
WORD

O
O

0,0

-%‘90

"WOR

s Pt Bt s Pt Bt

WORD

O
O
O

"WORD
WORD

BYTE
Bsssci:

001670

000001

001672

000000
000000

000o0o0oc

000000

J00000

O
O

'53?2 8O
.BYTE

‘HoRB
-HoRD
88“8”8? WeRB

366838

BYTE
BYTE
WORD
BYTE

s Bt Pt ot Pt
Pt Dt

o8
Zfioao

. WOR

886650

s Bt et Bt P

it et Pt

s P

e Pt Pt Pt Pt Pt P

858838888886866888888888888868688
T oUW
oo
0"0‘0‘&0‘0‘0"0‘0"0“0"0" W
oLnoocunLen oocnsLn—oo
W

FReREReN
e

SEQ 0046

8
83

ShiHRERer ' BRkoa BEFIBeh

NCORRECT

SRBAERS,OF EREFHRTER ByProcEssinG envor
nnnoon se? nkng z?IONS
' PARAMETER chxuocn MODIFICATION
Pnnnnsre TRACK MODIFICATION
Pgnfn£T$R
SECTOR MODIFICARTION

E
8 325 ERN
FosntgchonflecrIou
:DATA_LATE

P0THER SONTRO%OsR ERRORS COUNT

%%mmv%%mgmm
E 8Eooat§§

sscron
' TRACK
;CYLINDER

gsn;rnv

:NUMBER OF

SEC

°§ng
FOR

S RETR

T0 ae TRANSFERRED IN RETRY
:: TEMPORARY
COMMAND BEING
RE?RIED
STORARGE FOR FIRST WORD OF HEADER

scono WORD OF HERDER

QRO OF HEADER
bA"ES { xfi“Baé‘&sS?ofi‘ A1 EInG
“°?SS§SFIS
ego NEAD
ss?chégnvxcxnc
885??xo~zné
FRECoY
EBRmARG
R
T
IN
CTOR a§8°¢558
S
SR gi
é?ng

.SBTTL

FREE SPACE BLOCK

FBLKC:

.WORD

:FREE BLOCK COUNT

FBLKT:

.WORD
CWORD
"WORD
JWORD
JWORD
JWORD
JWORD
JWORD
JWORD

0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0

s FREE
*FREE
;FREE
'FREE
:FREE
:FREE
'FREE
'FREE
:FREE

BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK
BLOCK

|
2
3
4

5
b
7

CZREPCO RKE11-/06 PERF EXEC
01-DEC-77 14:53

CZREPC.P11
2008

58?3
2011

2012
2013
2014
2015
2016

MACYil 30(1046)
01-DEC-?7
FREE SPACE BLOCK
.SBTTL

001736

001737
001740
001742
001743
001744

000

PARRMO:

000
000000
000
000
000

15:04

104

PAGE 49

SEQ 0047

PARAMETER BLOCK FOR DRIVE O
.BYTE

BYTE
WORD
BYTE
'BYTE
BYTE

:DRIVE O

O
O
O
O
O

: COMMAND
:CYLINDER ADDRESS
:SECTOR RDDRESS
:TRACK ADDRESS
'OFFSET VALUE

O
O

:PROGRAM DRIVE STATUS INFORMATION
,connnno AND STATUS REGISTER 1

016
Baiz9e 000R0
2019 00170 000000

CWORD

$055
091780 909000
2024 001762 000000

‘HORD
.WORD

ORD
COUNTOREG TS TER CoISTER 2
'BUS RDDRESS REGISTER

2020
2021

001752
001754

"HORG OO

000000
000

CWORD
CWORD

£058 001766 990909
5056 OR1778 899909
2029 0017?24 000000

‘HORD O
‘HORD
OO
CWORD

813
ADORESS (BITS 48 ANR,17)
:WORD COUNT (2'S COMPLEMENT)

i DESIRED THACK
AND SECIOR REGISTER
ATTENTION
SUPHARY/OFFSET REGISTER
:STATUS Rscxsr

2030
2031
2032
2033
2034
2035
2036
2037

001776
002000
002002
0020
002006
002010
002012
002014

000000
000000
000000
0000
000000
00000
000000
00

CWORD
CWORD
CWORD
CWORD
CWORD
WORD
WORD
WORD

O
O
O
O
O
O
O
O

' MESSA
*MESSAGE
:MESSAGE
:MESSAGE
"MESSAGE
"MESSAGE
"MESSAGE
*MESSRGE

2040

002022

000000

WORD

' QUEUE L INK

gg:g

885858

000888

g$§8

310.

;n?§§g3: g;kéQoen (DEFAULT TO RKOB& MAX CYL)

031

002

BYTE

:MAXIMUM TRACK

5039 095028 9090909
2041

2044

2045
2046

002024

000000

O
21.

"MINIMUM SECTOR
‘MAXIMUM SECTOR

002035

000

BYTE

PAUTOMATIC WRITE CHEC

2049

G636

000012

2052

002048

17277720

2058

2055

2058
2059
2060
2061
2062
2063

002060
2061
002062
002064
002065
002066

8858%3

8YTE

WORD

;conascr

READ ERROR THRESHOLD

67??70 177777

177770,1777727

nXIMUM NUMBER OF connnnos TO DRIVE

000

BYTE

:ECC_COMPARE FLAG

000

BYTE
BYTE
WORD
BYTE
BYTE
CWORD

O
O
O
O
O
O

: CURRENT csnsnareo DATAR PATTERN
: CURRENT RANDOMLY GENERATED COMMAND
*CURRENT RANDOMLY GENERATED CYL INDER
: CURRENT RANDOMLY GENERATED SECTOR
:CURRENT RANDOMLY GENERATED TRACK
:CURRENT RANDOMLY GENERATED WORD COUNT

000000
006
000000

1727777

"WORD

10.

;RERD/HR{TE RATIO

‘SQ?E

17?558

177777

0O
0O
01
Ol
10
10
11
11

"MINIMUM CYLINDER

BYTE
BYTE

0063

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

1ECG PATIERN INFORMATION.

000
025

002034

gggg

WORD

A STATUS
B STATUS
A STATUS
8 STATUS
R STATUS
B STATUS
R STATUS
B STATUS

002032
002033

2047

2048

NoRD

L}NE
LINE
LINE
LINE
LINE
LINE
LIME
LINE

gg:gtgncggggsg gfggonos TRANSFERRED TO DRIVE

CZR6PCO RKbl1-/06 PERF EXEC
CZR6PC.PLIL
01-DEC-77 14:S3

2064

002070

2066

002073

2065

2067
2068
2069
2070
20?1
2072
2073
2074
207S
2076

2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088

2089
2030

2091

2092
2093
2094

2095
2096
2097
2098
2099
2100

002072

002074
002076
002077
00210Q
002102
002103
002104
0021058
002106
002110

000000

.WORD

; CURRENT RANDOMLY GENERATED BUS ADDRESS

000

.BYTE

; LAST COMMAND

000

000000
000
000000
000
000
000
000000
000000

002114
002122
2130
002132
002i34
002136
002140
002142
002144
002146
002147
002150

000CO0
000000
000000
00
000000
000000
000000
000000
000000
000
000
000000

002154

co0

002152
002155

002156
00ele0
002162
00ele4
002170
002174
002200
00ce04
00eel0

Ja4

MACY1l 30(1046)
O1-DEC-77
15:04 PRGE S0
PARAMETER BLOCK FOR DRIVE O
.BYTE

000000

000000
00000C

000000

000000
000000
000000
000000
000000
000000

0,0,0
0,0,0
O
O
O
O
O
0
O
O
O
O

BYTE

000000
00C000
000000
000000
000000
000000

O
O
O
O
O
O
O
O
O
0,0

.WOROD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD

WORD

000

000000
000000
007777

000000
000000

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

WORD
WORD
.WORD

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

:LAST CYLINDER
:LAST SECTOR
;LAST TRACK
:LAST WORD COUNT
:LAST DATA PRTTERN USED
:BUFFER ALLOCATED
,RETRY COUNT
; RERERD
STAT
'DRIVE STATUS FLAGS
:NUMB
ORDERS

;NUMBER OF WORDS WRITTEN
; NUMBER OF WORDS RERD
NUMBER OF SOFT ERRORS (REREAD CORRECTABLE)
;NUMBER OF SOFT ERRORS (OFFSET CORRECTARBLE)
;NUMBER OF SOFT EFRORS (ECC CORRECTRBLE)
; NUMBER OF HARD DRTA EORS
; NUMBER OF S?EK éfl? ETES
; NUMBER OF MISPOSI IONING ERRORS
; NUMBER OF ALL OTHER ERRORS
; ASSIGNMENT OHHQNO
NCE
,SEEK TO_PREVIOUS COMMAND FLARG
; ERROR STATUS INFORMATION

'HERDER ADDRESS OF FIRST MISCOMPRRE ERROR

; OFFSET ADDRESS FROH HEADER RDDRESS

O
O
007777
0,0
0,0
0,0
0,0
0,0
0.0

; COMPARISONLENGTH
{BUFFER COMPARISON LENGTH
:DRIVE SERIAL NUMBER
CRRIAGE SERIAL NUMBER
;FIRST EXCLUSION
AREA
; SECOND EXCLUSION ARER
; THIRD EXCLUSION AREA
; FOURTH_EXCLUSION ARER
; FIFTH EXCLUSION RREA

SEQ 0048

PARAMETER BLOCK FOR CRIVE 1

PRRMI:

.BYTE
.BYTE
.WORD

; BUS RDDRESS (BITS 16 AND 17)
;BUS RDDRESS (BITS 0 - 1S)
; WORD COUNT
(2°'S_COMPLEMENT)
; PROGRAM DRIVE STATUS INFORMATION
; COMMAND AND STATUS REGISTER
; COMMAND AND STATUS REGISTER 2

:WORD COUNT REGISTER

17277277

002344

8 STATUS BYTE
A STATUS BYTE
STATUS BYTE
STATUS BYTE
8 STATUS BYTE
INFORMATION
INFORMARTION

;

———
- 0000
—=—00—-—-00

TER
A STATUS BYTE
8 STATUS BYTE
A STATUS BYTE

INDER

IQOER (DEFARULT TC RKOB MRX CrL)
M40 ]
DM
moO
O

—

[9]

, 1772727
, 177777

mMmMOD
<<

]

=4
D

——

X
m

wn
v

XX
mm

wnuv
mny

—-rreeeerr

0 Bt =t Ot et =l 0t 04 Dt D Pt

- D
D
5 555555 AR
—080—40’)(0-0—000
5
mEpCCRRLL, 2 RRRRARRAGS

:BUS RDDRESS REGISTER
"DESIRED TRACK AND SECTOR REGISTER
;DESéRED CYLINDER REGISTER
IATT Nrégg suEnnRv/orrszr REGISTER

—

;ORIVE 1
; COMMAND
; CYLINDER QDDRESS

NN
NN
NN
NN
0o

177777

SEG 0049

D ps]
|ey m
PD
Q (@]

n
n
~N
o

o
(=]

.SBTTL

e 1 1~ O

—

O O O O QO O o

U U R VRV RV N PV VU TV Y n

e1
s b hme e

RV RV N U

3
WLWMNINMNININ NI NN NN
[N

YA MU ML UL TV AV AL FU NV NV MY NUNU U N FVTL TV FL NV TV
PV
MU PV
LU

nnnnunnnNL
L LELL LW

UV NPTV M

MARCY11l

0000000000
—NN—OWNONO L000000000 0000000000000 00000000

CZR6EPCO RKbE11-06 PERF_EXEC
01-DEC-77 14:S3

CZR6PC.PI11

KO4

15:04
PAGE S1
30(1046)
01-DEC-77
PARAMETER BLOCK FOR DRIVE O

CHECK

ERROR THRESHOLD
RAD ERROR THRESHOLD
SHOLD

'MAXIMUM NUMBER OF COMMANDS TO DRIVE

'MAXIMUM NUMBER OF WORDS TRANSFERRED TO DRIVE
' GAMPLE COMPARE FLAG
ARE FLRG

RROR CORRECTION
;
;DARTA PATTERN (/SED
; CURRENT GENERARTED DATR PATTERN
;
RANDOMLY GENERATED COMMAND
; CURRENT RANDOMLY GENERATED CYL INDER
s CURRENT RAMNDOMLY GENERATED SECTOR
; CURRENT RANDOMLY GENERATED TRACK
: CURRENT RANDOMLY GENERATED WORD COUNT

MACY1l 30(1046)

0}-DEC-77

:04

Bn&gnETsR éLBEK FOR bsxvs 1

PAGE 52

SEQ 00SJ

002346

000000

.u$§o

161
162
163
164
165
166

2352
002354
2355
882355
002360
002361
002362

000000
000
000
000000
000
000
000

BYTE
BYTE
WORD
BYTE
BYTE
BYTE

O
O
O
O
©
O

'LAST SECTOR
*LAST TRACK
‘LAST WORD COUNT
:LAST DATA PATTERN USED
:BUFFER ALLOCATED
:RETRY COUNT

CWORD

:zflnggs
UMBER OF
O
OF ugggg 225575"
NUMBER
85 SOFT ERRORS (REREAD CORRECTARLE)
:NUMBER OF SOFT ERRORS (OFFSET CORRECTABLE)

128
160

VMV FU PV VM

U fVUTVrV N

157

167

S% ?

002363

888

IBYT
"WORD

MY NN AU TR UL NV

NV PV

158 ogaasw 088880 000000
f?o 805393 800000 000000 000000
i;é
885382 838888 000000 000000
173 002410 000000
174

002412
002414
002416
002420

00000
000000
000000
000000

{53 885353

175
176
177

178

002422

8
O

'ASSIGNMENT C nnnuo SEQUENCE

WORD
WORD
.WORD

O
O
007777

: COMPARISON LENGT
'BUFFER COMPP 'son LENGTH
"DRIVE SERéflL
JMBER

JWORD

0.0

IFIRST

CWORD

0.0

,THIR? EXCLUSION AREA

002446

000000

191

193

gegg
BYTE

000000

000020

002452

000000

002462

000000

0600000

002456

002466

STRTUS FLAGS

8¥§E
WORD

189

162

DRIVE

000000

000000
000000
007777

190

0,0
8:8,8
0’
O

:REREAD STAT

:NUMBER OF SOFT ERRORS (ECC CORRECTABLE)
*NUMBER OF HARD DATR ERRORS
INUMBER OF SEEK IN OMPLETES
;Nunggs gg
M spos
xogggc gRRons

002436
002440

002442

WORD
:5858
WORD
WORD

;LAST
COMMAND
1LAST CYLINDER

O
O
O
8

185
186
187
188

002434

BYTE

: CURRENT RANDOMLY GENERATED BUS ADDRESS

WORD
WORD
WORD
uggg

}gé 8§§3§8 888883
183 8024%3
880

UM NV RV N UMY P AU

Ny
00

gggo
et/ 6 S §F7 x?&:sa

LO4

000000

000090
000000

000000

-WORD
.WORD

CWORD

WORD

8
O

0,0

0.0

ERRSR7212§5§??3§05°""?N0 FLAG

'HEADER RODRESS OF FIRST MISCOMPARE ERROR
;OFFSET noonsss rnon HERDER RDDRESS

;CRRIAGE g R]IAL NUMBER

EXCLUSION AREA

'SECOND EXCLUSION AREA

:FOURTH EXCLUSION AREA
'FIFTH EXCLUSION ARER

CZR6PCO RKb11.06 PERF EXEC

CZRePC.P1!

01-DEC-77 14:53

gi%g

‘

2197

002472

002

S B

2207

O01-DEC-77

MO4

PARAMETER BLOCK FOR DRIVE 1

PARM2:

PAGE 53

000000

002520
002522
002524
002526
002530
Doagaa

(00000
000000
000000
000000
000000
00000

ZEOR
8O
.BYTE

B 4
‘By?

g
g@ B &
ol
L
002510

.B¥¥E

R
WOR
WORD

80
O

5509
Bos214 890900
2210 002516 000000

‘WoRs
BO
WORD

221?

WORD

2211
22le
2213
2eld
2215
221

15:04

SEQ 00S1

.SBTTL PRRAMETER BLOCK FOR DRIVE 2

Sigg
8853;3 000888
2200 002475
000
R

MACY!1 30(1046)

;DRIVE 2

EYLINBER
ADDRESS
:SECTOR RooREss

FcIniny
DRESS

(BITS 16 AND 17)

e BRTRR LPLSTATUS
B oeehr
INFORHQTION
connRND g:g s;g}us ggg§g'én!

COMmAIg,
BN BTN
:BUS ADDRESS REGISTER

WORD
WORD
WORD
WORD
WORD
WORD

O
O
O
O
O
O

'DESIRED TRACK AND SECTOR REGISTER
'DESIRED CYLINDER REGISTER
PATTENTI
sun1RRY/orrssT REGISTER
"ERROR REGISTER
:STATUS REGISTER
nsssggi isg A STATUS BYTE 00

s518 BBs23B BBARER
2220 ooasus 000000
6e54 BRsaid BBKAER

b
WORD
HRER

8
O
8

nEssngg Liag A grgrug EE 10

essd BRsezq BRRARR
SSSe
8852?3
888682
2229
2564
000

L3R 8
WORD
410
BYTE
O

ESE BRYFEARNT
188
;nnxfnun
SYLiSSER (DEFAULT TO RKOB MAX CYL)
;MIN}nun TRACK

BYTE

21.

;s MAX IMUM ?ECTOR

.WORD

177770,177777

nnxinun NUMBER OF COMMANDS TO DRIVE

sanPLE COMPARE FLAG

002534

000000

2223

992550

000000

2231

002565
002566

002
000

2233
2234
2235
2236
2237

2570
002571
002572
002574
002576

003
000
000012
00000S
000095

0026804

177776

2232

002567

2238

002600

ae:o

002610

ce39

sil
Holl
ea:a goesia

177770

000

o
000
000000

oo48
ce43

o] 8]
000000

0C2620

002621
002622

BYTE
BYTE

025

5545
885215
ce4b
002616
2247

WORD

888

000

177777
177777

BYTE
BYTE
WORD
WORD
-WORD

"WORD

.eer

B
.axgE

.ByT
.WORD

.BYTE

'BYTE
CWORD

2
O

3
O
10.
S
§

177770.177777

O
O

8 s;g;g

aer 0?

NE22Ae tifi B 2TATuR BVTE B
{RESsAE L B efafte BYIE 1Y
u§ tzgfi zp;rn ou

:MAXIMUM TRACK
:MINIMUM SECTOR

:READ/WRITE
RATIO
PAUTOMATIC WRITE CHECK
:CORRECTABLE READ ERROR THRE SHOLD
;UHCORRECTRB#E READ ERROR THRESHOLD
SEEK ERROR THRESHOLD

:MAXIMUM NUMBER OF WORDS TRANSFERRED TO DRIVE

§551
899 2RR ok Banccrron
onrn PRTTERNRUY
D

EEN EERBoflLE GEQEER%B EOMHQND

CURRENT RANDOMLY GENERATED CYL INDER

! CURRENT RANDOMLY GENERARTED SECTOR

*CURRENT RANDGMLY GENERATED TRACK
:CLRRENT RANDOMLY GENERATED WORD CCJUNT

€esld
2251
22c2

2253
ceSY
2255
2256
€257
€258
€259

002624
Gueeeb
002627

0QCe63C
002632
(£02%33
002634
002636
00c637
002640

2260
eebl
226
2263
ceed4
eeeS
2266
e26?

002641
0Oueb4e
002644
002650
0OC2e56
002664
00cb6b
002670

€271
ee?

002700
2702

e2s8
ecb9
¢270

000020
009
ooc

000000
000000
00000C
JO000C
000000
000000
000

e273
€274

002703
002794

000
000000

€276

002710

0000CO
003000
000009

000000

002706

2e7??
2278
ec?9
2280
2281
2282
€e83

002711
002712
002714
u02716
002720
0Ge7e4
002730

000000
000000
007777
000000
000000
000000

cc85
2esb

002740
002744

000003
000000

0Ce?34

.WORD
.BYTE
B¥YTE
WORC
BY1IE
BYTE
BrTe

000
coo

000000
090
000000

2284

.WORD
.BYIJE
.BYTE

000000
00J
0oC
000000

002672
002674
002676

2275

NO4

MACYLl 30(1046)
01-DEC-77
15:04
PRGE 5S4
RAMETER BLOCK FOR DRIVE 2

000000

000000
000000

BYTE
WORC
.WORD
.WOorRD
.WORD
.WORD
WORD
WORD

O
O
O
O
O
O
Q@

O
O
0,0
0,0,0
0,0,0
O
O
O

WORD
WORD
WORD

O
G
O

BYre
WORD

O
O

WORD
BY'Te

; CUPRENT RANDOMLY GEMERRTED BUS ACORESS
; LRST COMMAND

:LAST CYLINDER
:LAST SECTOR
:LAST TRACK
:LAST WORD COU
;LAST DATA PRTTEQN USED
:BUFFER ALLOCATED
SRETRY COUNT

;REPERD
STARTUS
;CRIVE STRTUS FLAGS
; NUMBER OF ORDERS
; NUMBER OF WORDS WRITTEN
; NUMBER OF WORDS RERD
;NUMEER OF SOFT ERRORS (REREQD COKRECTABLE)
;NUHBQR OF SIFT EFRORS (OFFSET CORRECTRBLE)
;NUMBER OF SOFT ERRORS (ECC CORRECTRGLE)

;NUMBER OF HARD DATR ERRCRS
I NUMBER 8;
EKoéCOMPLETES
NUFBFR
MISPOSITIONING ERRORS

O
O

NUMBER OF ALL OTHER ERRORS
QS IGNHENT C?fiHflND SEGQUENCE

WORD

; HERDER RODRESS OF FIRST MISCOMPARE ERROR

BYTE
WORD
WORD
.WORD
.WORD
.WorRD
WORD

O
O
O
Q07777
0,0
0,0
0,0

; OFFSET RODRESS FROM HEARDER GQCDRESS
CCMPRRISON LENGTH
; BUFFER COMPQRISON LENGTH
;BRIVE SERIAL
; CARIARGE SERIAL NUMBER
yFIRST EXCLUSION RARER
; SECOND EXCLUSION APER

.WORD
.WORD

0,0
0.0

i FOURTH EXCLUSION ARER
;FIFTH EXCLUSION ARRER

.BYTE

000300
006000
000000
000000
000000
000000

O
O
0

SEQ 00%2

.WORD

0,0

iSEEK TO PREVIOUS COHFQND FLAG
,tRQOR STRTUS INFORMATION

; THIRD

EXCLUSICN APER

<REPCO FP/611-06 FERF_EXEC
ZR6PC.P11
O1-DEC-77 14:S3

CZREPCO RKb11.-06 PERF EXEC
CZR6PC.P11
01-DEC-?7 14:53
2287

gggg

2290

2291
2232
2293

2294
2295
229%
2297
2298
2299

BOS

MACY1l 30(1046)
O1-DEC-?7
15:04 PAGE S5
PARAMETER BLC"K FOR DRIVE 2
.SBTTL

002750

002751
002752
002754

003

PARM3:

000
000000
000

SEQ 00S3

PARAMETER BLOCK FOR DRIVE 3

.BYTE

BYTE
"WORD
BYTE

onxvs 3

O
O
O

O
O
O
O
O
O

: COMMAND
*CYLINDER RDDRESS
:SECTOR ADDRESS

002755
0027
002757
002760
002762
002764

000
000
000
000000

000000

BYTE
BYTE
BYTE
WORD
WORD
WORD

0n277z2

000000

WORD

:WORD COUNT REGISTER

530 B¢°008 Da9oag
5305
003009 039000
2308
003006 00000

HoRD
oD
WORD

O
BO

OE Rl
K ERCREGICIER
1o ER
R
RN REGISTER
Y ER Y /OFFSET REGISTER
'STATUS

8310
2312 903015
003016 09980
000000
Sh
kRe e
2315 38302q
000000

i
WORD O
o
WORD 3O

i
G3e o
2319 003034 000000

el
WORD
O

HESACE LINE
Enssgggi
Lifl% BB 27AT02
gTRTUS BYIE
BYTE 01
Ol
R
e
B3 SN
e 8
EnEssn
Liflf
37n13§
gvrs
11
'MEGSAGE LINE B STATUS BYTE 11
ECE
EOHHSN,
e e
P QUEUE LINK

;nga;nun $;kéfi°€fi (DEFAULT TO RKO® MAX CYL)

2302

2303

002774

2309

003010

100000

2316

3026

000000

2320

003036

000600

WORD

000

WORD

aggx

ooaozg

ooosgg

gggg

310

3
2325

003044
0C304S

000
025

BYTE
BYTE

O
21.

2327
2328

063047
003050

000
012

BYTE
WORD

2331
Sggg
2

003056
883822
003067

177770
17?658
000

CWORD
gef;g
BYTE

232

35
2336

2337
2338
2339
2340

2341
2342

065843
3046

003070
003071
003072
003073
003074
003076

003077
003100

062

BYTE

003

000
000
000
00
000000

000
000006

BYTE

177777
177777

BYTE
BYTE
BYTE
BYTE
WORD
BYTE

BYTE
JWORD

: TRACK RDORESS
"OFFSET VALUE
:BUS
RESS (BITS 16 AND 17)
:BUS RDDRESS (BITS 0 - 15)
'WORD COUNT (2'S COMPLEMENT)
'PROGRAM DRIVE STATUS INFORMATION
:BUS ADDTESS REGISTER

;nsssngs LINE A STATUS BYTE 0OC

"MINIMUM CYLINDER

Ennxxnhn TRACK
‘MINIMUM
2 MAXTMUM

SECTOR
Ecron

O
10.

TAUTOMAT
CORRECT

uagge CHECK
AP ERROR THRESHOLD

177770,177777
677??0 177777
O

:MAXIMUM NUMBER OF COMMANDS TO DRIVE
gg;&fltfle CONU"HP%ERg gFWORDS TRANSFERRED TO DRIVE
JECC 8
FLAG

O
O
O
O
O
O

O
O

: READ/WR

RATIO

s INHIBIT ;
OR CORRECTION
:DRTA
RN USED

:CURRENT
: CURRENT
' CURRENT
:CURRENT

GENERATED DATA PRTTERN
RANDOMLY GENERATED COMMAND
RANDOMLY GENERATED CYLINDER
RANDOMLY GENERATED SECTO

CURRENT RANDOMLY GENERARTED TRACK
CURRENT RANDOMLY GENERATED WORD COUNT

01-DEC-77 [M4:53

CZR6PLO RKb11/06 PERF EXEC

CZREPC.P11
ggqa

0M
3 PAGE S6
9nann TER O éLSEK Zon éatvs

MACYI1 30(1046)

oooggg

.ge&;g

: CURRENT RANDOMLY GENERATED BUS ADDRESS

§32 883182 o0oofB8

BeEs

UL ]

gggxg

casS

2347

003110

000

235}
353

883115
3116
003117

000
000
060

.
BY

BYTE

BYTE
.BYTE

533
883“5 000888
23s0 003114
000

'55;5
8O
BYTE

gasa

BYTE

§32¢
833153 B8998 oooooo
2356 003126 000000 000003 000000
Sgg;
133 000088
000000 00B000
2359 %guw
00

2360
003146 000088
2361
003150 000000
£365
223128 BR36R3
2364 00315
00
g2
BRAiEY
838
2367 0C-162 000000
L

gggg
23;0

%gigz
%g%-fif

000888
000

gg;g

%g{;q

007777

537

003173 B0 888

000000

2375
003203
-?- 000000
2376
003206
000000
000000
U

£3%6
003516 909009 989999
2379 003522 000000 000000
4

Lhal &OMRDER

uasr SECTOR

tgg;
Lgsgkcou T
'LRST DRTA PATTERN USED

O
O

‘HoR8 8.0
0.0,0
'5838 8’0’0
WORD O
-WORD

WORD
5820
HORD
ugr;o
VE
.WORD

O
O
0
BO
8

.gggg
. %;g

8
8

'5838

8057??

JWORD

0,0
0.0

CWORD

[]

gurrsn nu_?cmeo
:RERERD STATUS

i:NUMBER
ORIVE STATYz
FRAcS
OF WORDS WRITTEN
"U"BER
35 g‘%
RERERD
CORRECTABLE)
NUHEER
FSET CORRECTARBLE)

NUHBERR 8:
EmSQ? (8‘c Eonnscmet.s)
OF HARD
N ESF
fiiifioé"*??"";Emns
zunaen ALL OTHE
RO
eom%"?m
ERROR STATUS INFORMA

:HERDER RDDRESS OF FIRST MISCOMPARE ERROR
8553591283“?
FROM HEADER ADDRESS

.WORD
WORD
.

OMMAN

ORD 00
0.0

:BUFFER commxson LENGTH

,8nxvs SERéS'- NUMBER

,FIRSTGEX&.Ug%N
ARER
'SECOND EXCLUSION ARER
;

'“aas*%fé&*c-t’aé?smzssn
*FIFTH EXCLUSION AREA
’

SEQ J0SY

GERERECSTYSI
/BY BEREH
gasgé

6.0

DOS

TM" SRUARBeOMBER
Fhn 8RICH S7CE 7
.SBTTL PARAMETER BLOCK FOR DRIVE H
PARMY:

S BED oin
000

.BYT

B
.ens
"WOR

seo ooss

SO
:SECTOR ADDRESS

YLINDER RDORESS

Esy
¢
55
2395 REu
003250 B
000000

o 3
WoRS 8
i 8g
Zuoso

Fi iy
3330 88{“,5?5&% §$’JPLERFE_N;AQTION
Corea
R REGISTER
I R
HORD. COUNT

2398
203568
q
3522 290990

'5838
JWORD

é?igw Wfl %?}?,g REGISTER

S
(Rire 00000
24 3 003276 000000

JWORD

TBYT

5539 %35 9 %8888

Zfign o}

g:o’gé 00%62
%0000
003270 00

'5828 8O

(BITS 16 AND 17)

BEEIREW&K &3 gzcron REGISTER
rs‘gggaug‘nigu Esmws
BYTE 00
TATUS BYTE 00

B8
g0
uogo

iz
i R AR g 8]
L{% R srgws ans }8

5313 %gq
%888
16
632

Ib'SR
JWORD

;n'lfi'fguh
CYL INDE
‘MAXIMUM CYLINOER (DEFAULT TO RKO6 MAX CYL)

oas

.gns

S BRI
5311 %33‘1? '88’

o 8
Zuogo 0

2414

S oo
Bé
gx?
g:xg 003323

o
.gvrg

53%? E’E ooo§§§
ggwo i????

-“-

§§§§ 3352

§§8

ngé 8833?5 000888
2433

2434
2435

003354

003355
003356

000
000000

A
MINT TMM ssc on

15858

i%??gii?????

nnx nun NJh-..R 8? uonos"?anusrgafiss TO DRIVE

. BYTE

355

'BYTE
_WORD

O
O

2»81'5;0 .
}77;;;

g
S51.

)

8410

e
HI £ A B
ESE BS?Ifiu INF TI

zgamun ugmo

coageRi&. NGERRgSJJHEESHOLD
onuganscnon

:Sfls 8

_Dg;éTT§

BYTE

'CURRENT RANDOMLY GENERATED SECTOR

E HRR NT 8&'8&

m PARTTERN

TEB Svungga

:CURRENT RANDOMLY GENERATED TRACK
:CURRENT RANDOMLY GENERATED WORD COUNT

CZR&PCO RK611-/06 PERF_EXEC

01-DEC-77 14:53

CZR6PC.P11
e437

2438

2439

2440
c44l
2442

003360
003362

003363

003364

003366
003367
73370

2443
2444
2448
2446
2447
2448

LJ3372
003373
003374
003375
003376
3‘0&

2455

3430

2449
2450
2451
evse
2453
24sYy

MACY11 30(1046)

O0'-DEC-77

; CURRENT RANDOMLY GENERRTED BUS RDORESS

000

.BYTE

; LAST COMMAND

O
O
O

,LRST TRACK
;LAST WORD COUNT

0,0,0
0,0,0
O
O
O

;
NUMBER OF WORDS WRITTEN
; NUMBER OF
S _RERD
;NUMBER OF SOFT ERRORS (RERERD CORRECTRBLE)
;NUMBER OF SOFT ERRORS (OFFSET CORRECTARBLE)
; NUMBER OF SOFT ERRORS (ECC CORRECTABLE)
; NUM
g HARD ?GT&SERORS

.BYTE

000000

WOk

000
000
000000

.BYTJE
BYTE
WORD

00
00Q

0000
000000

00000Q

WORD

O
O
O
O

000

WORD
WORD
BYTE
BYTE

246l

003442

000000

WORD

003445

0000

000000

2464
c46S
e46b

0034456
003450
003452

000
000000
007777

2472

003500

000000

2467
2468
2469
2470
2471

003454
003460
003464
003470
003474

000000
000000
000000
000000
000000

000000
000000

.WORD
.WORD
.WORD
WORD
WORD
WORD

WORD
BYTE

000000
000000
000000
000000
000000

000000

O
O
O
O
O
0,0

000000
000000

e463

000000
000000

BYTE
BYTE
BYTE
BYTE
WORD
.WORD

003432
003434
003436
003437
003444

SEQ 00Se

.WORD

000

2456
2457
2458
2459
2462

PAGE S8

000000

000000
000000
000000
000000
000000
0000

003440

EQS

PARAMETER BLOCK FOR DRIVE 4

0034
003412
003420
003422
003424
%3‘426

2460

15:04

:LAST DATA PATTERN USED
:BUFFER ALLOCATED
IRETRY COUNT
:RERERD STATUS
:DRIVE _STATUS FLAGS
,NU';SER OF ORDERS

; NUMBER

S?EK

ETES

O
O

;

O
O

.WORD
.WORD
.WORD
.WORD
.WORD

0,0
0,0
0,0
0,0
0,0

.WORD

;LAST SECTOR

; NUMBER OF MISPOSITIONING ERRORS
; NUMBER OF
OTHER SE
,RSS GMENT
; SEEK TQ_PREVIOUS COHHQNO FLAG

BYTE

WORD
WORD
.WORD

:LAST CYLINDER

O
O
007777

0,0

;ERROR STAT
DER

éffogflfl

F IRST MISCOMPARE ERROR

OFFSET_ RDDRESS FROH HEADER RADDRESS

OHPQRIEON Rs
BUFFER OoMP. ISON LENGTH
iDRIVE SERIAL NUMBER

;
QCE éERéRL NUMBER
;FIRST EXCLUSION RREA
; SECOND EXCLUSION ARER
,THI D EXCLUSION AREA
; FOURTH_EXCLUSION RRER

;FIFTH EXCLUSION ARER

CZR6EPCO RKb611-06 PERF _EXEC
CZRePC.PIL1L
01-DEC-77 14:53
2473

S:;g

24?7
24?7
2478
2479
2480
c48l
2482
2483
2484
2485
2486
87
468

3504
3505
003506
003510
%351%
351
003513
003514
003516
003520
003522
%

250S

2507
2509

2510
2511
esle

2513

2514
a2s1s
2516
eS1?
2518
2519
2520
esel
e5e2
2523
2524
2525
2526
2527
2528

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

O
O
O
O
O
O
O
O
O

000000
000000

WORD
WORD

O
QO

000000

WORD

000000
000000
000000

003S4e

2439
2497
2498
2499
2500
2501
2502
2503

PARMS:

00s
000
000000
000
000
000
000
000000
000000
000000
000000

002534
003536
003540

2494

2495

PARAMETER BLOCK FOR DRIVE S

%0000
0000

003530
003532

2481
2432
24393

.SBTTL

e489
e490

003544

FOS

MACY1l 30(1046)
01-DEC-77
15:04 PAGE S9
PARAMETER BLOCK FOR DRIVE 4

WORD
WORD

WORD
WORD
WORD

000000

WORD

003S4
003S
003S
003554
35
35
35
003564
003566

0000
0000
000000
000000
000000

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

003574

000632

WORD

003570
003572
003576
0C357?
003600
003601
Qe

003603
003604

003610

003ele
616
003622
003623
0036e4
003625
003626
003627
003630
003632
003633
003634

000n0N
000,00
00¢ 000

000000
000000
0ge

000
025
003

000

0000ie
00000S
000C0S
177770
177770
000
000
000
0ao
000
000000

000
000000

;DRIVE S
; COMMA
; CYLINDER RDDRESS
; SECTOR RDDRESS
;
TRACK RDORESS
;OFFSET VALUE
;BUS ADDRESS (BITS 16 AND 17)
;BUS RODRESS (BITS 0 - 15)
;
COUNT ( 'g COMPLEMENT,
; PROGRAM DRI
JATUS INFORMATION
;
STRTUS REGISTER 1

O
O

;COMMAND AND
; WORD COUNT

O
O
O

;DESéRE CYLINDER
;ATTENTION S
; ERROR
REGISTER

O
O
O
O
O
O
O
O
O

; BUS
; DESI

; STATUS
;MESSAGE

STATUS REGISTER 2
REGISTER

SS REGISTER
RACK AND SECTOR REGISTER

-G,IéTER

LINE

R STATUS BYTE
; MESS
LINE B STATUS BYTE
; MES
Li% A STATUS BYTE
; MES
L
B STATUS BYTE
; MES
LINE A STRTUS BYTE
;HES%Q
L{fi g ETRTUS BYTE
; MES
L
TATUS BYTE
; MES
#Ifi ? STATUS BYTE
;ECC POS* ION INFARMATION
;ECC PRTTERN INFORMATION

0O
01!
0!
10
10
11
11

WORD
WORD

O
O

; QUEUE L INK
;MINIMUM CYLINOER

BYTE
BYTE
.8YTE
.BYTE
.BYTE

O
@
O
21.
3

; MINIMUM TRACK
; MAXIMUM TRACK
;HIN{HLH gECTOR
; MAXIMUM
SECTOR
;RERD/WRITE RATIO

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

10.
S
S
177770,177777
177770,177777
O
O
O
O
0
O
O
O
O
O

; CORRECTRBLE
REARD ERROR THRESHOLD
; UNCORRECTABLE READ ERROR THRESHOLD
; SEEK ERROR THRESHOLD
; MAXIMUM NUMBER OF COMMANDS TO DRIVE
; MAXIMUM NUMBER OF WORDS TRANSFERRED TO DRIVE
; SAMPLE COMPARE FLAG
;ECC SW FLRAG
; INHIBIT ERROR CORRECTION
;DRTRA PATTERN USED
; CURRENT GENERRTED DATR PATTERN
; CURRENT RANDOMLY GENERATED COMMAND
; CURRENT RANDOMLY GENERATED CYLINDER
; CURRENT RANDOMLY GENERATED SECTOR
; CURRENT RANDOMLY GENERATED TRACK
; CURRENT RANDOMLY GENERATED WORD COUNT

.BYTE

1777277
177777

S
O

SEQ 0057

410.

; MAXIMUM ?YLINDER (PEFAULT TO RKO6 MAX CYL)

; AUTOMAT

W&EE CHECK

CZREPCO RKB11/06 PERF _EXEC
CZR6 PC. Pll
01-DEC-77 14:53

MACY1!

000000

e
e

000000
000000

GOS
S

SEQ 00s8

PRGE &0

; CURRENT RANDOMLY GENERATED BUS ADDRESS
; LAST COMMAND

{LAST CYLINDER
:LAST SECTOR
:LAST TRACK
:LAST WORD COUNT
:LAST DATA PATTERN USED
{BUFFER ALLOCATED

8 0

000000
000000
000000

0000000000000 0000000000000 0000000000

000000
0oe
0G0
000000

003756

30(1046)
01-DEC-77
15:04
PARAMETER BLOCY. FOR DRIVE

077?27
0]
0
0
0
0
0

iRETRY COUN
: RERERD ?
DRI;E
S RTUS FLAGS
OF ORD!ERS

NUNBER oF JORDS gRITTEN
J S
; NUM3ER 8;

;

OF RORD

ERD

ERRORS (RERERD CORRECTABLE)
(OFFSET CORRECTARBLE)
RRORS
RROR

(ECC CO RRECTRBLE)

ORS

Rfi:&
R 8: §§§Po§"$xo~xncERRORS
NUMBER OF

RSSI
T
SEQUEE
:SEEK _TQ PREVIOUS COHHQND FLAG
'ERROR STATUS INF
TION
FIRST MISCOMPRRE ERROR
: HERDER RDORESS
; OFF

ggDREES
FROM HEADER ADDRESS

COMPARI
:
:BUFFER COHPQRISON LENGTH
iDRIVE SER]AL MNUMBER
RIAL NUMBER
:CARIA
(FIRST EXCLUSION RREA
:SCCOND _EXCLUSION AREA

:THIRD EXCLUSION AREA
:FOURTH_EXCLUSION RRER
:FIFTH EXCLUSION ARERA

CZR6PCO RKB11-06 PERF EXEC

CZR&PC.P11

01-DEC-77 14:53

gggz
2569

MACY11l 30(1046)

O01-DEC-77

15:04

HOS

PARAMETER BLOCK FOR DRIVE §

PAGE 61

SEQ O0S9

.SBTTL PRRAMETER BLOCK FOR DRIVE &
003762

006

8250
383%83 0ooBB8
gs;g ooa;sg
ogo
o574 diS? 0
80
257 003771

PARMG:

.BYTE

;DRIVE
&

BEEE
8
.ez;s
0
BYT
8O
BYTE

}OMIOND.
apDRESS
:SECTOR RDDRESS
ongET'ERLUE
noonsss (BITS 16 AND 17)

5278
003776 909009
257 §§uo
000
00

HoRD
-WORD
WORD

%‘S‘SBR““"’
Ve BTATUG35&TNE9
RAnaT 10N
onnaflg 8§6V§Téru

884898 88880

WORD

2685
2586

0Ba4014
004016

2576

2580
aggx

2584

2587

2588

003772

4C IR

000000

oo:o_q

000000

012

0060000

004020

004022

000000
0600000

000

000000

WORD

.figgg

WORD

WORD
WORD

WORD
"WORD

B8
O

O
O

as RDDRESS (BITS 0 - 15)

AND STATUS REGISTER 2

;uogo COUNT REGI?;;ER

ggSIREB 523cx ND sscron REGISTER
2??&”?? cvgxnnen REGIS

NTIoN urinnv/orrss
ERROR REGTSTER

;srnrugsnecfié S

s e

'MESSAGE

STATUS BYTE 0O

5291 884853 880 00

WORD

;niés“éi Lffii B grnrus BYTE 01

Sggq 884832
888888
(Q4040 000000

CWORD

-WOR

MESSAGE #}ne B STATUS BYTE 11

410

IMAXIMUM CYLINDER (DEFAJLT TO RKO6 MAX CYL)

‘BYTE
‘BYTE

2
O

; MAXIMOM TRACK
:MINIMUM SECTOR

3YTE

2595

2695

2596
2597

2699
2600
2601
2602
2603

oo:oaa

004042
004044
004046
(004050

000000

000000
000000
000000
000000

004052

000632

004055
004056

002
000

004054

.ugso

CWORD
WORD
CWORD
CWORD

O
O
O
O

BYTE

JWORD

Enéggngf Hfi 3 gmwg BYTE 11

"ECC POSITION INFORMATION
SECC PRTTERN INFORMATION
: QUEUE L INK
'MINIMUM CYLINDER

TMINIMUM TRQS

2604
2605

004057
00O4060

025
003

.BYTE
BYTE

2607
2608

004062
004064

000012
00000S

.WORD
JWORD

10.
S

: CORR
1 UNCO

?513

88:{00

888

.gz;s

snans COMPARE F

2616
2617
2618

004104
004105

000
000
000000

'BYTE
‘BYTE
CWORD

O
O
O

2606

004061

000

21.
3

;gessgcs LINE A s§g}gs a$}e 18

eg?g
611 088430?8
74 ?99995
177778 177277
177777

'5850
?7777
177727
"WOR
177778:1777’7

2614
004185
2615
004103

JBYT
0O
'BYTE

cob

2619
2620
2621

004106
004110
004111
004112

000
000

000
000
000000

BYTE
BYTE
JWORD

O
O
O

: MAX TMUM sccron
REQSH“Rl Té
'AUTOMATIC WRITE

CHECK

RERE SRRSR THRESHOLD
A
ROR THRESHOLD

EEEK
TO DRIV TO DRIVE
inflfl 35nn
NUflbEE 85 COMMANDS
u8Ros Qanngrgnfiss
innxggn
RSOR CSRRECTION
ATA
PATTERN

: CURR NTSsnsgnrso TA PATTERN
: CURREN
RRTED COMMAND

: CURR NT RANDOMLY NE TES
CYLINDER
!CURRENT RANDOMLY GENERAT
: CURRENT RANDOMLY GENERATED TRQCK
CURRENT RANDOMLY GENERATED WORD COUNT

<ZR6PCO RKbLl1-06 PERF_EXEC
CZRePC.P11
01-DEC-77 14:53

2622

2623

2624

004114

004116

004117

000000

000

004120
00Ylee
004123
0041g4
004126
884127
4130
004131
004132
004134
004140

000000
000
000

2637

004154

000000

004164
004166
004170
004172
004173

000000
000000
000000

004146

2638
2639
2b40

004156
004160
004162

2646
c647

004174
004176

2643

004201

cb4l
cb4e
2643
eb4y
2645
2648

004200

000000

000
000
000
000000
000000
000020
000000

2655
2656
2657
2658

004220
004224
004¢30
004234

000000
000000
000000
000000

000000
000000

; CURRENT RANDOMLY GENERRTED BUS RDDRESS

.BYTE

; LRST COMMAND

000000
000000

O
O
O
O
O
O
O
O
O
0,0
0 0,0

.WORD

WORD
WORD
WORD
BYTE
BYTE

O
O
O
O
O

.WORD

NUMBER OF WORDS RERD

NUMBER OF SOFT ERRORS (RERERD CORRECTABLE)

NUHBER OF SOFT ERRORS (OFFSET CORRECTRBLE)
iNUMBER OF SOFT ERROFS (ECC CORRECTABLE)
:NUMBER OF HARD DRTR ERRORS

O
O

:ERROR _STATUS INFORMATION
:HERDER ADDRESS OF FIRST MISCOMPARE ERROR

BYTE

;OFFSET RDDRESS FROM HEADER ADDRESS

.WORD
.WORD

0,0
0,0

; CAR]
SERIAL NUMBER
;FIRST EXCLUSION ARER

BYTE

000000
000000
000000
000000

Q 0,0

;LAST CYLINDER
iLAST SECTOR
;LRST TRACK
; LAST WORD COUN
:LAST DATA PQTTERN USED
iBUFFER ALLOCATED
'RETRY COUNT
;RERCRD STATUS
DRIVE STATUS FLAGS
R OF ORDERS
:NUMEER OF WORDS WRITTEN

O
O
O

WORD
WORD

000000
000000

.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.8YTE
.BYTE
.WORD
.WORD
.WORD
WORG
WORD
WORD

000

000000
00
007777

004210
004214

000000
000000

004202
004204
004206

2653
2654

000000

00
000000
000000

2650
2651
2652

.WORD
.BYTE

000

2625
262k
2627
2628
2629
2630
eb3l
2b3e
2633
2634
2635
2636

I0S

MACY1l 30(1046)
O01-DEC-77
15:04
PAGE b2
PARAMETER BLOCK FOR DRIVE &

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

O
O
007777
0,0
0,0
0,0
0,0

NUMBER OF SEEK INCOMPLETES
; NUMBER OF MI POSITIONING ERRORS
;NUMBER OF ALL OT HER ERRORS
'RSSIGNHENT C
SEQUENCE
SEEK TO PREVIOUS COHHRND FLAG

:COMPARISON LENGTH
;BUFFER_COMPARJ SON LENGTH
iDRIVE SERIA. NUMBER
; SECOND EXCLUSION AREA
; THIRD EXCLUSION ARER
; FOURTH_EXCLUSION ARER
;FIFTH EXCLUSION RRER

SEQ 0060

CZREPCO RK611-06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53
2659

ggg?

JO5

MACYL1 30(1046)
O01-DEC-77
15:04 PAGE 63
PARAMETER BLOCK FOR DRIVE &
.SBTTL

PARAMETER BLOCK FOR DRIVE 7

PARM7 :

.ayrs

;DRIVE

SEG 006!

266

04240

007

2664
2665
o666
2667

004242
004244
DO424S
004246

000000
060
000
000

CWORD
BYTE
BYTE
BYTE

O
O
O
O

:CYL INDER AD. JESS
:SECTOR ADDRESS
: TRARCK RDDRESS
*OFFSET VALUE

2671
2672

004254
004256

000000
(000000

WORD
WORD

O
O

:PROGRAM DRIVE STATUS INFORMATION
: COMMAND ggg STATUS REGISTER 1

266

04241

000

5608
094520 000909
2t 0 004252 000000

'BYTE

NORD
OO
WORG

673
Oduces 890809
2675 004264 000000

HoRD

000000

WORD
WORD

2679
2680 904579
004276 999990
000000
2683
004304 000000
2684 004306 00

HoRB
WORD
WORD
WORD

2691

2676

004266

WORD
WORD
WORD
WORD

O
O
O
O

BT
ENTION
3TRRY/OFFSET REGISTER
:STATUS
Ssc?s%sn
Ensssngf
LiNE A STATUS BYTE Ol
'MESSAGE LINE B STATUS BYTE Ol

006000

WORD

{QUEUE LINK

oooggg

g$§2

310.

‘fl?fi%flfl: $;bé“°€a (DEFAULT TO RKO& MAX CYL)

004310
004312
0043184
004316

000000
00
000009
000000

004324

gggggg

2695

t HORD COUNT aéé?é%’%a““‘s’“ 2

OO
OO

2685
2686
2687
2688

ggga

BUS
ADDRESS (BITS 16 AND 17)
:WORD COUNT (2'S COMPLEMENT)

004270

004326

: COMMAND

1BUS ADDRE S5 ngflg
'DESIRED [RACK
SECTOR REGISTER

2677

2692

000000

WORD

000000

WORD

:DESIRED CYLINDER REGISTER

;nessags
*MESSAGE
'MESSAGE
: MESSAGE

LINE
LINE
LINE
#INE

A grnvus BYTE 10
B8 STATUS BYTE 10
A STATUS BYTE 11
B STATUS BYTE 11

'MINIMUM CYLINDER

333

002

BYTE

;nnx§nun TRACK

2699

004336
004337

003
000

BYTE
BYTE

Rsno/unxr
auronnv ¢ HRITE c

2702
2703
g;gg
2706

004344
004346
ggzggg
004357

000005
177770
177568
000

WORD
.WORD
'S??E
BYTE

§
177770,177777
677770177777
O

sesx ERROR THRE
*MAXIMUM
NUMBER or connnnos T0 DRIVE
ggggfgncggggsg 2ng°R°S TRANSFERRED TO DRIVE
ECC COMPARE FLAG

2709
2710
2711
2712
2713
2714

004362
004363
004364
004366
004367
004370

000

BYTE
BYTE
WORD
BYTE
BYTE
CWORD

O
O
O
O
©
O

cunnsnr csnsnatso DATA PRTTERN
: CURRENT RANDOMLY GENERATED COMMAND
; CURRENT RANCOMLY GENERATED CYL INDER
: CURRENT RANDOMLY GENERATED SECTOR
*CURRENT RANDOMLY GENERATED TRACK
CURRENT RANDOMLY GENERATED WORD COUNT

2697

004334
004335

060
02s

000000
000

000000

BYTE
BYTE

177777
177777

O
21.

s MINIMUM sscron
: MAX IMUM s
T

cznspco RKG11/06 PERF EXEC
~ZREPC.P11
01-DEC-77 IM4:53

KOS

MACY!1 30(1046)
Ol1-DEC-77
15:04 PAGE &4
PARAMETER BLOCK FOR DRIVE 7

SEQ 0082

S?ig

ggzggs

000888

.gggg

: CURRENT RANDOMLY GENERATED BUS ADDRESS

2717
2718
2719

004375
004376
004400

000
000000
000

BYTE
WORD
BYTE

;LAST COMMAND
:LAST CYLINDER
:_AST
SECTOR

2724
2725
2726
2727

004406
004407
004410
004412

000

004416
004424
004432
004434

000000
000000
000000
000000

BYTE
BYTE
WORD
-WORD

O
O
O
0,0

RETRY COUNT
:RERERD STATUS
'DRIVE STATUS FLAGS
:NUMBER OF ORDERS

2734

004442

000000

2737

004450

2720
2721

2728
2729
2730
2731

004401
004402

000
000000

000000
000000

BYTE
"WORD

000000

000000
000000

O
O

;LAST TRACK
LQST WORD COUNT

-WORD
WORD
WORD
WORD

0,0,0
0.0.0
O
O

:NUMBER
'NUMBER
:NUMBER
*NUMBER

WORD

ENUMBER OF SEEK INCO ETES

BYTE

nssxcunsut connnno encs

38
S;:? BanEL
883322 ool
000000

O
ge$g 8

i
R o
2744 004462 000000

WORD

OF
Of
OF
OF

WORDS WRITTEN
WORDS RERD
SOFT ERRORS (REREAD CORRECTABLE)
SOFT ERRGRS (OFFSET CORRECTRBLE)

et
Ll
HERDER
noonssg o?
FIRST MISCOMPARE
ERROR
QEE
ST, SORRERS FRON HERDER sooRess
:BUFFER COMPARISON LENGTH

004464 007777
2746
004466 000000 000000
2747 004472 0006000 000000

.WORD

2748

004476

000000

0077’7
.WORD
0,0
JWORD
0.7

.WORD

0’0

:DRIVE SERJAL NUMBER
cnnxncg
RIAL NUMBER
:FIRST _XCLUSION RREA

2751

004512

000000

CWORD

0.0

FIFTH EXCLUSION AREA

2745

-ECOND EXCLUSION ARER

RBPCO RK&11-06 PERF_EXEC
R6PC.P11
01-DEC-77 14:S3
Szég
4

g;gg

2756

2757
2758
2759
2760
2761
2762
€763
2764
27?65
2766
2767
2768
2769
2770
2771
2772

2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784

0QuYsle

004517
004520
004522
(0Qg4523
004524
004525
004526
004530
004532
"J4534
004536
(QJ454
00454
004544
004546
004550

0C4552
004554
004556
004560
0045
004564
004566
004570
004572
004574
004576
004600

000

ooc
000000
000
000
000
000
000000
000000
000000
000000
000000
880000
000
000000
0000TM
00000y

000
000000
000000
000000
000000
000000
0000
000000
000000
000000
000000
000000

LOS

MACY1l 30(1046)
O01-DEC-77
15:04
PAGE 65
--- RETRY PARAMETER BLOCK --.SBTTL

--- RETRY FARAMETER BLOCK ---

.SBTTL

PARAMETER BLOCK 10 FOR DRIVE

PARM10:

.BYTE

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

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

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

O
O
O
O
O
O
O
O
O
O
O
O

SEQG 0063

; DRIVE NUMBER

; COMMAND
:CYL INDER ADDRESS
:SECTOR ADDRESS
: TRACK_ADDRESS
{OFFSET VALUE
:BUS ADDRESS (BITS 1b AND 17)
BUS ADDRESS (BITS 0 - 15)
D COUNT (2'S_COMPLEMENT)
PROGRQH DRIVE
STRATUS INFORMATION
:COMMAND AND STATUS PEGISTER 1
COMMRNO AND STQ US REGISTER 2
: WORD COHE %GlST;R
:BUS ADDRESS t
R
DES}RED TRRCK RND SECTOR REGISTER
;DESIRED CYLINDER REGISTER
'ATTENTION SUMMHRY/OFFSET REGISTER

; ERROR REGISTER
; STATUS REGISTER
;MESSAGE
LINE R STATUS BYTE
;MESSAGE
LINE B STATUS BYTE
MESSAGE
LINE AR STATUS BYTE
;MESSAGE LINE B STATUS BYTE
,MESSRGE LINE A STATUS BYTE
;MESSAGE LINE B STATUS BYTE
;MESSAGE LINE A STATUS BYTE
;MESSAGE LINE B STATUS BYTE
;ECC POSITION INFORMATION
;ECC PATTERN INFORMARTION

00
00
Ol
0l
10
10
11
11

CZR6PC.P11

01-DEC-?77 14:53

;gg

MACY1l 30(1046)

O01-DEC-77

DATA PATTERNS AND DATR PATTERN TABLE

PRTTRB:

PATO
;g}é

004642
004538

27391
2792
2733
27
2795
ez

004612
004614
004616
004620
004622
)

8052“2
00534e
005442
00SS4e
00564e
005742

PATY
PATS
PATH
PAT?7
PAT10
PATL1

004632

00624e

PAT1Y

88?14

2797
-~ 2798

004626
104630

2800
280l

004634
004636

ce04
¢80S
2806
2807
2808
2809
2u10
eB8ll
2815

004e4e
004s4Y
004646
004650
Q004652
004654
0046
004660
889662

165555
133333
165555
133333
165555
133333
165555
133333
165555

2814
2815
2816
817
2818
2819
2820
egel
822
€823
2824
2825
2826
€827
2828
2829
2830
e831
eg832

004666
004670
004672
4674
004676
004700
004702
8 4704
47
004710
004712
004714
004716
004720
004722
004724
004726
004730
004732

1E5555
133333
165555
1.
73
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
1655855
133333
165555
133333
165555

799

5885

cB8l

004640

SebM

PATI1S
PARTIib

006542

PART17
PATO:

133333

133333
165555
133333

2837

004742

(026455

004744
0047486
004750

PRT12
PAT13

006342
006442

004734
004736
004740

2838
2.39
e840

PART

006042
006142

2833
2034
Sggg

151322
(02&4SS
026455

PRGE b6

.SBTTL
004602
§0:6§§

MOS

DATA PATTERNS AND DATA PATTERN TABLE

2787
8;88

15:04

.WORD
LWORD
WORD
WORD
WORC
.WORD
.WORD
-WORD
. WORD

165555
133333
165555
133333
165555
133333
165555
13333%
15555

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

1B5E5S
133333
165555
133333
165555
133333
1B5555
133333
165555
133333
1BS5SS
133333
165555
133333
165555
133333
1B555S
133333
1Bb5555

.WORD

026455

.WORD

.WORD
.WORD
. WORD

PARTL:

.WORD
.WORD
.WORD

133333

133333
165555
133333
151322
0264SS
26455

SEQ 0064

[ oY o

CZR6PCO RKb11-06 PERF EXEC

CZR6PCO RK611/06 PERF_EXEC
CZREPC.P11
01-DEC-77 14:53
2841
2842
2843
2844
2946
2846
2847
2848

004752
004754
004756
004760
004762
004764
(004766
004770

NOS

MACY11 30(1046)
01-DEC-?77
15:04
PAGE_67
DATA PATTERNS AND DATA PATTERN TABLE

151322
151322
026455
025455
026455
151322
151322
151302

2849
2850
€851
PES3
2853
2854
2655
2856

004772
004778
004776
005000
005002
005064
005006
005010

026455
026455
0oh455
025455
151322
151322
.51322
15)322

£858
2659
2560
2861
2eoe
2663
2864
2665
g
2867
2868

005014
MUS016
0CSG20
00SQ22
005024
00Su2e
005030
005032
005034
005036
005040

(026455
02E455
151322
151322
151333
026455
026465
151322
151382
025455
151322

c870
2371
2872
2873
2374
co?5
2876
€877
2878
2379
2880
2881
2882
2683
P984
2885
2886
2897
2588
2889
2890
2891
2892
2893
2639
2895
2896

005042
005044
005046
005050
005052
005G54
005056
Q5060
005068
005064
005066
005070
005072
065074
0CE076
005100
CO5102
005104
005106
005110
005112
GOSiI4
005116
005120
005122
005124
005136

007417
170350
007417
007417
170360
179360
(007417
00741
O0L7Y17
1,0360
170360
179360
007417
007417
007417
007417
170360
170360
170360
170360
007417
QO7417
00~417
170260
176360
170360
007417

2557 005012 026455

.WORD
JWORD
'WORD
.WORD
[WORD
'WORD
"WORD
.WORD

"WORD
.WORD
WORD
'WORD
JWORD
WORD
'WORD
JWORD

D264SS
026455
026455
026455
151322
151327
1513272
151382

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

026455
026455
151322
151322
151382
D26H4SS
026455
151322
151327
026455
151322

.WORD
'WORD
WORD
WORD
WORD
WORD
“W09D
WORD
WORD
WORD
WORD
KORD
WORD
WORD
WORD
KORD
WORD
WORD
WORD
WORD
'WORD
WORD
WORD
WORD
WORD
'WORD
WORD

007417
170260
0Q74i?
007417
170360
1703€9
007417
007417
OC/41?
170360
170360
170360
007417
Q07417
CN7417
Ou7417
170360
170360
170360
170360
007417
0Q7417
DO7417
170360
170360
170360
007417

'WORD

PAT2:

151322
1513283
026455
026455
026435
151322
181322
151322

026H4SS

SEQ 0065

FRR AT A R

MACY11

BO6

15:04_ PAGE 68
01-DEC-77
DATA PATTERNS AND DRTA PATTERN TARBLE

3051046)

007417
170360
170360
007417
170360

007417

PAT3:

2REezn

[

2838

0GsS21Y

2
¢

2911

tank 2 230 3 R AR

Y VNN

CZR6PCO RK611-/06 PERF EXEC
CZR6P C .P11
01-DEC-77 14:53

005236

125252

PATY:

005302

12772727

000000

SEQ 0066

CZR6PCO RK611/06 PERF EXEC

CZR6PC.P11
2953

2954

01-DEC-77 14:53

00S304

306
1

1
1
16

MACY1l 30(1046)

.WORD

3
1
1
114631

.WOR
.WGRO
.WORD
.WORD
HOR§

104c10
§7§SS7

.WORD
.WORD
. WOR

Q42104
031463
2]04e

. WORD

00000

.WORD

J000CQ

JWORD
5 Sg

17777/
é? ;&7J

.WORD

000000

- WOR
.WORD
.WORD
. uggo

77777
000000
000000

800000

177777

104210
Q7 q7

2963
2964

00S330
005332

042104
1463
o4e

.WORD
. WOR

‘HORE

. WOR

2328

2973
g;‘m

”rg

2977
2978
979

80
81
2982
2383

gl
00S3S2
9N

;

2988

2930

67??77
000

000000

177777

-WOR

177777
1777277

.WORD
"WOR

0055376

7777
0000
000000
000000

177777

"WOR

177777
000000

-WORD
WORD

00S36M

005410
005412

2932
2995
2996
2937
2938

0S4y
00S426
005430
(005932
005y

177777
000000
000000
177777
177277

388?

00S440

3008

Q0S422

_WORD

WORD
WORD
WORD

177777

(054

000000

00S442
00S444
005446
005450
005452
005484

000001
00000
00000
000017
000037
000077

00S456

1777277

000000
000000
177777

3002
3003
3004
3005
3006
30067

.HOSS
. WO

000000

00S414
005416
005420

2999

PARTS:

00S

S g
87

000000

WORD

WORD
WORD
.WORD
CWORD
JWORD

177777

000177

CO6

PAGE 69

DRTR PATTERNS AND DARTA PATTERN TARBLE

156735
14 3;%

005320
e

00S342

15:04

167356

2959
2960

2969

01-DEC-77

1356
12525
114631

pE3dE
10421

7777
0000(

000

177777
77777

177777

77777
00000
000000
000000
1772777
177777
177777
000000
000000

177777
177777

_WORD

000000

.WORD
_WORD
"WORD
"WOSD
WORD
WORD

D0O00O1
000003
000007
000017
000037
000077

.WORD
PAT6:

167356

156735
146314

.WORD

177777

000177

SEQ 0067

77277

- WO

478

077777

s
e
LB
1o
3019
00,04
177774

3020

00506

177770

;
3024

L 2ig
£
005516

fzzed

3035

Bl ek

3038
3039

005550
005552

000010
000020

140000
5000
000000

00000}

546

004

WORD
WORD

WORD
WORD
WORD
PAT7:

.WQO

s
WORD

WORD
WORD

3048
3049
3050
3051

005574
005576
005600
005602

020000
O4
100000
100000

.WORD
.WORD
.WORD
.WORD

s
.WORD

.WORD
.WORD

000400
001000

Sbe
564

3043
3044

8RRRR8

170000
160000

(534
;2%
S40

177770

WOR

‘HeRs
HoRS
-WORD

005530
005532

.WORD

WOR
"WCRD
.WORD

58
go7oo8
177400
30
§§5=3fl
176000
3028
00..26
174000
3029
3030

077777

177600

g
38:9 g
;27 g
100
2
ey
30SS
Sele

%Sb Q
Sbee

004000
002000
001000
000400
000200

3061

00Se6ee6

000040

3064

005634

3056
3057
3058
3059
3060

00S614

3062
3063

S
005632

7777

.WORD

.
HORR
"WORD

3777

001777

2
. WORD

12055F
177774
7776

2774
17770
177600

177000
176080
174000

170000
160000

140000
10G00G
000
001
DOOO0Y4

000010
000020

—0
QL
000

301

30
30
033

003777
07777
7777

-WORD

003777
7777
7277

€51Q

.WORD
- WOR
- WOR

001777

00S466
00S4
Y

BERTZ

3012
3013
R13

=4 o
58888383

)==

e
I
44
11

MACY1l 30(1046)
01-DEC-77
15:04
PAGE 70
DATA PATTERNS AND DATA PATTERN TABLE

8888

CZR6PCO RK611.06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

0004
O

g
10 08

020000
040000
100000
100000

004000
002000
001000
000400
000200

000100

.WORD
WORD
WORD
WORD
WORD

000100

000020
000910

WORD
WORD

000020
000010

000004

WORD

_WORD

000040

000004

SEQ 0068

CZR6PCO RK611/06 PERF_EXEC

CZR6PC.P11

01-DEC-77 14:53

306S
306?

00S636
00Se40

000002
000001

306
306
3070
3071
3072
3073
3074

882642
bMY
00S6Mb
00S650
00SeSe
00SeS4
00S6Se

177776
177775
177773
177767
177757
177737
177677

3086
3087
3088
3089
3090
3091
92
3093
3094
3095

3078
3076
3077
3078
3079
80
81
3082
3083
84
308S

005660
00Sebe
00S6b4
005666
005670
00S672
00S6
76
700
702
704

3097
3098
g?gg

706
210
712
00S714
00S716
005720
005722
0057
00S726
005730
005732
005?34
005736
005740

177577
177377
176777
175777
173777
167777
157777
137777
077777
077777
137777

3101
3102
3103
3104
3105
3106
3107
3108
3109
3110

00S742
0O0S744
005746
00S
005752
005754
0Q0S
005760
005762
00S764

172666
]15555S
172666
155555
172666
155555
172666
155555
172666
155555

005772
005774
00S776
006000
006002

155555
172666
155555
172666
1;5555
172666

3111

3112
3113
3114
3115
3116
3117
3118
3119
3120

006004
006006
006010

MACY1l 30(1046)

155555
172666
155555

15:04

PAGE 71

DATA PATTERNS AND DATA PATTERN TABLE

PAT10:

157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
17777S
177776

172666

01-DEC-77

EOB

PAT1l:

.WORD
.WORD

000002
000001

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

177776
177775
177773
177767
177757
177737
177677

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

177577
177377
176777
175777
173777
167777
157777
137777
077777
077777
137777
157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
- WO
.WOR
.WORD
.WORD

172666
15555%
172666
155555
172666
155555
172666
1;5555
172666
1S555S

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

1;5555
172666
15555S
172666
155555
172666

.WORD

.WORD
.WORD
.WORD

172666

15555S
172666
155555

SEQ 0069

CZREPCO RKB11/06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:S53
3121
3122
3123
3la4
3125

0060i2
006014
00601
006022

FO6

MARCY1l 30(1046)
01-DEC-77
1S5:04
PRGE 72
DATA PATTERNS AND DATA PRTTERN TRBLE

172666
15555S
172666
1;5555
17¢b

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

172666
155555
172666
155555

.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD

153333
066667
153333
066667
153333
066667
153333
066667

3
oo 1Peeec
3128 0060
155555
3129
3130
3131
gigg

006032
006034
005036
006040

17¢6
155555
172666
155555

3134
3135
3136
3137
3138
3139
3140
3141

006042
4
006046
0060SQ
0060Se
006054
006056
006060

153333
06bbb?7
153333
Of <667
1
333
06bbb?
153333
066667

3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154

3155

006064
0060
006070
006072
006074
006076
100
006102
006104
006106
006110
006lle

006114

3156
3157
3158
3159
3160
3161
3162
3163
3164
gigg

00611
0061
006122
006ig24
006126
006130
006132
006134
006136
006140

3167
3168
3169
3170
3171
3172
3173
3174
317S
3176

006142
006144
006l46
006150
006152
0061S4
006lSe
006160
00ele2
0O0eleMd

WORD

PAT12:

172666
155555
172666
155555
172666

173656
155555

153333
066667
153333
066667
153333
6667
153333
67
153333
066667
153333
066667
153333

WORD
WORD
WORD
. WORD
.WORD
.WORD
.WORD
. WCRD
. WOR
.WOR
.WORD
.WORD
.WORD

163333
6667
153333
667
153333
67
153333
066667
153333

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

153333
066667
153333
066667

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

000000
177777
177777
177777
177777
177777
177777
177777
177777
177777

066667

00000Q
177777
177777
177777
177777
177777
17727277
177777
177777
177777

. WORD

PAT13:

153333
066667
153333

153333
066667
153333
6667
623333
153333
066667
153333
6667
S3333
6667
153333
153333

SEQ 0070

CZRBPCO RK611-06 PERF _EXEC
CZR6PC.PILL
01-DEC-77 14:S3
[NINININIRISIN
AN AINIRINININ NIRINIRIN I NININ]
U)o bme $o pos Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt ot P Pt Pt e

3177
~N

B8RBIRR
OV 28 BBIRREOVR D@D

MRCY11

1772777
172777
1777277
1272777

.WORD
- WORD
. WORD

1777272

1772277

1727277
127777
1772777
1727777
177777
177277
17272777
1777?77
000000
000000

GO6

15:04__PAGE 73
01-DEC-?7
ATA PATTERNS AND DRTA PATTERN TRBL:

38(1046)

PRT1Y:

177777
177777
1777727
127777
177777
1272777
177777
1277277
127777
177277
177777
1772777
1727777
1772727
177777
177?277
122777
177777
1772777
1727777
177777
177777

177277

— QWM NN LW~
O

W WWwWWWWWwWWWwWww
n DD

3208

808

000000

gooonao

SEQ 0071

CZR6PCO RKBL1-06 PERF EXEC

CZREPC.P11

01-DEC-77 14:53

B8 BRI
3236
3237

006350
g

172304
172304
17 30:

MACY1l 30(1046)

O01-DEC-77

15:04

PAT1S:

. WORD
. WORD
.flosg

172304
172304
lggggz

‘WORR

178784

108
. WORD

fe
172304

.:020

1;230:

3244
4
4
Y
3248
3249
3250

006370
lpg 72
QU6I7Y
006376
006400
006402
Y

172304
172304
172304
17
4
172304
172304
172304

.WORD
. WOR
.N8R
.
WOR
. WORD
. WORD
.WORD

172304
17
4
172304
17
4
172304
172304
172304

S
3263

41
0064ie

172304
172304

. WORD
. WORD

172304
172304

3254

325

3258
3523
3ebl

006M1Y

Y
4
4e4
S
Y
432

o %'fl
3267
3268

172304

175384

. WOR

175384

.WORD

070627

(070627

0627

327
327

47e
Y
006476

3281
3cee
3283
384
3c8S
3286
3287
3288

470

S02
S04
006506
0065i0
006512
006514
006516

175304

172304
172304
172304
175 oM
172304
172304

H4oH

006466

172304

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

327

. WORD

172304

172304
172304
172304
175384
17
Y
172304

006456
006460
462

.WORD

172304

3272
327
74

. WORD

17230M

113431
01456]1
gs rd
13431
14561
070627
13431

ey
006446
M

;MS 1

113431

014563

070627
113431
(014561
070627
113431
014561
07062
113431
014561
070627
1i3431

PAGE 74

DATA PATTERNS AND DATA PATTERN TABLE

§§8 178384
§§3§
:
17 30:
Ei
Bees
(7o
3243
6366
172304

SSSé

HOG

PARTI6:

. WORD
. WORD
.
WOR
.
WOR
. WOR
. WORD
.WORD

070627
113431

. WORD

070627

. WORD

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

. WORD
. WORD
. WORD
. WORD

113431
014861
070627
13431

14561

014561

113431

014561

070627
113431
014561
070627
113431
014561
070627
113431
014561
070627
113431

SEQ 0072

CZREPCO RK611-06 PERF _EXEC
CZRBPC.P11
01-DEC-77 14:S3
3289
3290
3291
32
3293
3294
3295
329
3297

006520
006522
006524
006526
006530
006532
006534
006536
006540

014561
070627
113431
014561
070627
113431
014561
070627
113431

3299
3300
3301
3302
3303

006542
006S44
006546
006550
006552
006554

133467
133467
133467
133467
133467
133467

3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330

006556
0065
006562
006564
0065
006570
Q86272
Q06574
QU376
0C6600
006602
006604
006606
006610
006612
006614
006616
006620
006be2
006624
006626
006630
006632
006634
006636
00e&40

133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467
133467

133467
133467
133467
133467
133467
133467
133467

106

MACY11l 30(1046)
O01-DEC-77
15:04 PAGE 75 _
DARTA PRATTERNS AND DRTA PATTERN TABLE

PAT17:

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

014561l
070627
113431
014561
070627
113431
014561
070627
113431

.WORD
.WORD
WORD
WORD
WORD
.WORD

133467
133467
133467
133467
133467
133467

.WORD
. WO
.
.WORD
.WORD
LWORD
N
. WOR
. WORD
.WORD
.WORD
.Hggg
W
. WORD
.WORD
.WORD
- WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD

133467
133:27
1
?
133467
133467
133467
133:27
1
7
lggzg?
1
7
I
?
1
?

1
7
133327
I
7
133467
133:27
|
?
13347

133“67
133467
133467
133467
133467
133467
133467

SEQ 0073

CZR&PCO RK&11-06 PERF _EXEC
O1-DEC-77 14:53

CZR6PC. P11

MACY1l 30(1046)

O01-DEC-77

.SBTTL

PROGRAM SETUP

006642
006650

ooo41e

112737

000001

001361

PRRSRT:

MOVB

006652
006660

112737
000406

172777

001361l

RESTR7:

006662
006666

000403

105037

001361

006670

112737

000002

00136l

006676

012737

000340

177776

006704
006710
006712
006716
006720

012706
005026
022706
001374
012706

001100

012737

850340

ONUr—
et b
n
~N
W
~N

oQ-

W
~N

n— W gmmo

006754

007172
007172

00043S
00000S

;SET FLAG FOR PARAMETER ENTRY

FLAG

:START PROGRAM

PRGSRT

MOVB

Rcsar

:SET FLAG FOR RETRY
PROGRAM
:START

FLAG

PRGSRY

FLAG

:SET FOR ENTRY INPUT START

START:

MOvB

s2,FLRG

;SET FOR AUTO SIZE PGM SIZE

PRGSRT:

MOV

CLRB

:START PROGRAM

LOCK OUT ALL INTERRUPTS

.SBTTL INITIRLIZE TAE COMMON TRES

:SCLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
8SCMTAG, Rb
:sFIRST LOCARTION TO BE CLEARED

CLR

cHP

001140

ene

001100

000034

(RE)+

8SWR, R6

:'CLEAR MEMOPY LOCATION

,,oone

: ;LOOP BACK IF NO

::SETUP THE STRCK POINTER

ssTRC
..INITIRLIZE A FEW VE on§

TRRP VECTOR FOR TRAP CALLS

98 TRAPVEC

MOV

8STRAP,

MOV

sSPWRDN, 38PWRVEC ' ; POHER FAILURE VECTOR

MOV

80SWR,S

::SETUP FOR A

CMP
BNE

8-, 3SHR
668

TRY TO REFERENCE HARDWARE SWR
,,annncw IF NO TIMEOUT TRAP OCCURRED
“?
Hnnounns SWR IS NOT = -1
BRQNCH F NO TIMEOUT
,,ssr UP FOR TRRP RETURN

MOV

8340 abTRRPVEC¢2 {éve

MOV
8340 3.9HRVEC*2 (EV
::SIZE FORRHnnounnt ITCH Rcctsrsn xr NOT FOUND OR IT IS
PIEQUAL TO R
TUP FOR A SOF TWARE SWITCH REGISTER
MOV
absnnvsc -(SP) ;;SAVE ERROR EC OR
MOV
864S aoshnvec
.,SET UP ERROR VECTOR

000004

MOV

177570
1777?27

B4 :

BR
29¥

65%
865S, (SP)

000176
000174
000004

65S:

MOV

SSWREG

66S:

MOV

(SP)+,a8tRRVEC

CLR

$PASS

BEQ

678

001176
000200

ool211

o0gizi2

001140

675

BITB

MOV

DWARE SWICH REGISTER

ooost oxsanv ,,ano A HARDMWARE DISPLAY REGISTER

007022

177777

007072
007076

8],

SEQ 0074

PRARGE 76

START1:

054552
000340

006746

1S:04

PROGRAM SETUP

JO6

,,POINT TO SOFTWARE SWR

ooxspnécDISPL

8APTSIZE, SENVM

8SSWREG, SWR

;;RESTORE ERROR VECTOR
CLEAR PASS COUNT

,,TEST USER SIZE UNDER APT
USE NON-APT SWITCH

NOase APT SWITCH REGISTER

TYPE PROGRAM NAME
SBTT
; TYPE T?ECNRHE OFITHE PROGRRM 1IF FIR%T PRSS

BNE

68$

TYPE

007100

..698:
$:

PWRSRT:

.ASCIZ

RESET

698

;

TIME?

: :BRANCH IF _NO

,,TYPE RSCIZ STRING
T OVER THE RSCIZ
;

<(CRLF>"RK611/RKOG-RKO? PERFORMANCE EXERCISER: MAINDEC DZREP-C"<CRLF)>
;RESET SYSTEM

CZR&EPCO RKB11/06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

3387

3388
3389
3390
3391
3392
3333
3394

007174

012737

007202
007210
007214
007220
007224
007232

012737
012703
012704
012723
012737
012737

gggg 007244

o040

3395
3396

007240
007242

3399

007246

3401

007256

3900
3402

00S304
001366

022626

007246

000343
172100
000014
000001
0S2472
000340

012737

000006

007262

004737

0S4Y454

012737
012703
012704

000006

3403
3404
3405

007266
007274
007300

3407
3408
3409

007306
007310
007312

005304
001375
012737

066212

3413
3414

007330
007334

00S037
005037

001462
001564

007354

112737

3406 007304 005023
3410

105037

000001
001672
000022
001644

3411
007324 005037 001566
3412
3415
3416
3417

007390
007344
7

3422
3423
3429

007374
007376
007400

3418

005037
005037
105037

001626
001630
001633

177777

3419 007362 012703 001314
3420 007366 012704 000010
3421 007372
5023
3485
3426

007404
007410

3430

007422

3427
3428
3429

3431

3432

007412
007414
007416

007426

005304
001375
012704

012703
00SO24

043372

013737

0019470

001512

005037

34349
3435
g:gg

007440
007444
007450

105037
105737
100072

001506
001361

3438

007452

013737

0S4S50

3439
3440
3441
3442

007460
007464
007466
007472

105737
001012
105737
001004

000114
000116

168:

MOV
MOV
MOV
MOV
MOV
MOV

DEC
BNE

000004
001670

20$:

22S:

2s:
001672

00146M

001365

000041

PAGE 77

SEQ 0075

:SET VECTOR FOR MEMORY PARITY CHECK

#PR7 ERRVEC+2
SMEMBAS, R3
812. R4
8PAR.EN, (R3)+
#MEMERR MEMVEC
#PR7 ,MEMVEC+2

;LOAD REGISTER TO DTERMIN IF
MEMORY cuscx ENARBLE ABRILIARBLE
Lono COUNT
ENQBLE MEMORY CHECK VECTORY
;LORD MEMORY CHECK VECTOR

228

RESTORE TRRP VECTOR

(SP)+, (SP)+

:ADJUST STACK

RY
168

cuecx IF Fxnxsuso
P NEXT MEMORY PARITY MODULE

8ERRVEC+2, ERRVEC' ;RESTORE TRAP CATCHER

MOV
MOV
MOV

81 FBLKC
#FBLKT,R3
#18. RY

CLR

KO6

8208, ERRVEC

ERRVEC+2

PC,S8SIZE

cna)l

DEC
BNE
MOV

RY
2s
8BUFADD,FBLKT

CLR
CLR

E.CONT
ERCONT

MOVB

cnvtho R3
(R31+

CLR
CLR
CLR8

4g:

15:04

CLR

33:

001674

MOV

CLRB

001513

001466

CMP

STARTS: JSR

001544

007434

3433

MOV

000006

000010

005303
001375
004737

105037

000004

007250

00S037

MACY1l 30(1046)
O01-DEC-?7
TYPE PROGRAM NAME

RTYSCN

ERRPRO

;GET_MAXIMUM MEMORY ARDDRESS

:1 ITIALIZE FREE BLOCK COUNT
*STORE FREE BLOCK TRBLE ADDRESS
'LOAD COUNT FOR FREE BLOCK CLEAR

:CLEAR

FREE BLOCK TABLE

:DECREMENT COUN
; CHECK_IF FINISHED
:LOAD FIRST ENTRY IN FREE BLOCK TRBLE

:CLEAR RETRY

SECTOR COU

6L Pnocsssxnc
nSonss ERROR
OF Pnnnnsren BLOCK
;
CLERR
*CLEAR

LER ERROR FLAGS
5
CONTROLLER ERROR FLAGS

DLTCNT
CNTCNT
srnrrs

iCLEAR DATA LATE CO
:CLEAR QTHER ERROF” c
UNT
.VL§ 05 ng g.nrxsvxcs FLAG

DEC
BNE
MOV

RY
33
#id. DRV, R4

;oscasngnr COUNT
:CHECK IF FINISHED
:LORD ADDRESS OF TIME OUT COUNTS

DEC
BNE
JSR

R3
4s
PC, CHKCLK

:DECREMENT COUNT
SCHECK IF FINISHED
ICHECK IF CLOCK IS PRESENT

MOV

u MILI,W.MTIM

;INITIALIZE MILI-SECOND TIMER

MOV
MOV
CLR

MOV
CLR

CLRB
CLR

0.OVER

#8. R3’
(RG)+

W.tImME

xvs

oa IMPLIED SEEKS

sron:
:LOAD oueus couu
:CLEAR QUEUE HEADS AND TRILS

:L0AD COUNT
:CLEAR DRIVE TIME OUT COUNTS

:CLEAR DRIVES

BEING TIMED

0.WAIT'

,CLEQR PRARAMETER BLOCK FOR DRIVE

CLRB
TSTB
BPL

I.ISRL
FLRG
RESTO

'RESET RELERSE OR CONTROLLER CLEAR ISSUED
:CHECK IF RESTART
INO, CONTINUE

MOV

$LSTAD,FBLKT+2

;LOARD MAX.

1578
BNE
TSTB
BNE

OVLYLD
41
10%

WAITING COMMAND COMPLETION

ADD IF FREE BLOCK TRBLE

:CHECK IF OVERLAY LOADER
:YES, LOAD RKO6 VECTOR ADDRESS
:SEE WHO LOADED THE PROBLEM
:BRANCH IF XXDP

007474
007502

162737
000403

000300

001674

007504

162737
013704
0la724
013714
012703
012704

004004
001450
044266
001452
001524
0oao1l

001674

0%:

¥
3¢

007560

0
005065

00014S
0ogel2
000150
000146

042765

070006

000014

007S7e
007&6J0

000001

000014

007614

03276S
001756
105765
001003
004737
000750

007616
007624
007630

004737
000742

142765

177757
01330

007632

000137

011 2

007636
DO7644

012737
012737

176543
.23456

012701

007726

00s0e0

LO6

PRGE 78

30$
(R3)+,RS
P.BUFF(RS)
P.ERR(RS)

SUBTRACT XXDP LORDER

s?
RE VECTOR ADDRESS
Lono RKO6 VECTOR nooREss
AND INTERRUPT PRIORIT
Lono PARAME TER BLOCK TQBLE ADDRESS
:LORD COUNT
s DECREMENT COUNT AND CHECK

IF DONE

SYES, SET UP TTY INTERRUPT
:GET'PRRAMETER BLOCK RDDRESS
'CLEAR BUFFER ALLOCATED
"CLEAR ERROR FLAGS AND RETRY COUNTS

HE FOLLOWING DRIVER FLAGS
DRIVE POSITIONING

DRIVE POSITIONING FOR DATA TRANSFER
DRIVE SEIZED
DRIVE UNLORDED DUE TO ERROR
PRRAMETER BLOCK ENQUEUED IN INITIARTION QUEUE
#DRVPGS
! DRVPDT 'DRVSZDE. UNLD'Q. INIT,P.PRST(RS)

Ecuéchér DRIVE 1S BEING ASSIGNED

013434

21¢
c2e%:

309%:
055126
055130

LORD VECTOR RDDRESS

gonvuse P. PRST(RS&O °”E$K IF DRIVE IN USE
NEXT PARAMETER BLOCK
S
s ASSN(RS)
:YES
STAR T_ASSIGNMENT SEQUENCE
28
;ISSUE A START SPINDLE IF NECESSARY
PC,TEST1

000210

SEQ 3076

SUBTRQCT ABS LOADER SIZE

$1026.%2. ,FBLKT+2

RKVEC . RY
#1.INtR, (RY)+
RKPRI, (RY)
#PBLK
Y, R3
#9.,RY

P.DSTT(RS)
P.RECT(RS)

007564

007676
007700
007704
007710
007714
007716
007722

15:04

532 %¥2. FBLKT+2

wswswsmswewe

3443
3444
3445
3446
3447

MRCY11l

Ny~

CZRBPCO RK&11-/06 PERF _EXEC
CZREPC.PI11
01-DEC-77 14:S3

0l1-DEC-77
3C(1 o4 6)
TYP £ PROGRAM NARME

RESTO:

#1C<BITY> ,P, RSSN(RS) -KEEP WRITE PACK BIT
Ttnrg gnxvs ASSIGNMENT
PC, TEST

SEQUENCE

cer NEXT

REST2

;SET TTY INTERRUPT

8176543, SHINUM

; INITIARLIZE RANDOM NUMBER GENERATOR

#1234956, SLONUM

INITIALIZE INTERNAL CLOCK

ngg ESRQHETER BLOCK TARBLE ADDRESS

810,

:GET PARAMETER BLOCK ADDRESS
:CLEAR RKD6 PROGRAM DEVICE STATUS REG.
iCLEAR DRIVE ERROR FLAGS
:CLEAR DRIVE ASSIGNMENT CODE
:STORE RO FOR TRACK EXCLUSIONS
:DETERMINE TRACK EXCLUSION BLOCK
:LORD EOUNT FOR CLERRING TRACK EXCLUSION

(RO)+

;CLEQR TRACK EXCLUSION ENTRY

P.
P.ERR(RS)
ASSN(RS)
S,RO

RS\R

*P, EXRR RO

PARAMETER BLOCK

2i$

SECOND
MINUTE
HOUR
IPBLKT R3
4s:

; GET NEXT PRRAMETER BLOCK

BLOCK

CZR6EPCO RKE11,06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

3499

007730

005301

3500
3501
3502
3503
3504
gggg

007732
007734
007736
007740
007746
007750

001375
005304
001357
122737
001402
000137

3508
3509
3510
3515
351
3513
3514
351S
3519
351
3518

007760
007764
007766
7770
07772
007774
007776
010002
gloooq
10006
010012

004037
010014
010032
011102
007754
0103496
004737
010014
012604
022704
101010

3520

010014

010337

3507

3519

3521
gggs

gggg

007754

010014

010020
818852
10089
010030

MACY1l 30(1046)
O1-DEC-77
TYPE PROGRAM NAME

104401

104401
000000
109401
000751

DEC

000001
011102

00136l

057161

108:

020340

0S4146
000400
118:

010022

648

001164

S
10032 005004
§g§2
onoaq
110437 001364

gggg

010040

013737

010056

O1M12e

0S4550

3531
01004 104401 0S57:71
3532 010852 004037 020340
3633

3534
3535

010060
810062

3537
3538
3539
3540
354f
3542
3233

010066
010072
010074
010100
0i0104
010106
010114

3545

Q10116

3548

010126

3550

010132

3536

gg:g
3549
3851

3562
3553

001674

122713
001424
105037
105737
001004
162737
000416

001674

Q10126

010337

010134

0101349

000000

010136
010142

104401
000736

R3, 648

(SP)+,RY
#4900, RY
148
O

$QUES

ios

0O11e4

;s TYPE Epg

:LOARD BUFFER RODRESS

:TYPE Rscerveo INPUT
! BUFFER 9
*TYPE QUESTION nnnx
:TRY RGRIN

CLR

MOVB

R4, CPUID

;CLEAR

15$:

MOV

SLSTAD,FBLKT+2

Lono Lnsr ggoness IN FIRST

168:

006000

104401

: CHECK
DEFRULT PARAME TERS
:COMMA DETECTED
:CARRIAGE RETURN DETECTED
: CONTROL
<¢ > DETECTED
: CONTROL
> DETECTED
:LOAD aurrsn aoonsss ON STACK
:CONVERT TO BINARY
'ERROR RETURN
:STORE NPUT VALUE
:CHECK IF 0-377
:YES, LORD CPU 1D

SYS000

MOV

TYPE
JSR
108

162737

000412

RD, TSTDEF

148:

000131

001674

: DECREMENT COUNT

‘CHECK IF HHOLE BLOCK CLERRED
oecaensnr COUN
STEST I g E
: CHECK xr ARAMETER START
:YES, ASK FOR PARAME TERS
{USE 'DEFAULT VALUES

YSool
ko TSTDEF

168
52%
001365
000041

SEQ 0077

59
RY
4$
81, FLRG
104
SIS

R3,-(SP)
PC.OCTBIN

TYPE
.WORD
TYPE
BR

PAGE 79

JSR
11$
138
S1$
108
MOV
JSR
118
MOV
CMP
BHI

189

000300

010124

TYPE

MO6

13%:

010074
011114

010064 005554

BNE
DEC
BNE
CMPB
BEQ
JMP

15:04

17%:
18%:

65%:

CMPB
BEQ
CLRB
7518
BNE
SuUB
BR
suB

L 0ARD cSCPU_ID
5 (R4)

TYP
3&
R
cusc FOR DEFRULT PQRQHETERS
:COMMA DETECTED

:CARRIAGE RETURN DETECTED
:CONTROL 2 <t2> DE Ecrso
#'Y, (R3)
19%
OVLYLD
41
178
#96.#2. ,FBLKT+2
208

: CONTROL

(fC) DETECTED

:CHECK IF
:YES xnoxcnrs THAT LORDER HAS BEEN OVERLAYED
: INDICATE THAT LOADER HAS NOT BEEN OVERLAYED
'SEE WHO LOADED THE PROGRAM
:BRANCH IF XXOP
;SUBTRACT ABS LOADER SIZE
*ASK FOR MAXIMUM TRANSFER SIZE

#1536, #2. FBLKT+2 -SUBTRACT XXDP LOADER SIZE

203

ASK FOR TRANSFER SIZE

MOV

R3,65%

;LOAD BUFTER ADDRESS

LWORD

BUrFER ADDRESS

TYPE

TYPE
BR

$QUES
iSs

‘

;TYPE RECEIVED INPUT

:TYPE QUESTION MARK
*TRY AGAIN

)

cznspco RK&11-/06 PERF EXEC
CZREPC.P11
01-DEC-77 [4:53

3223
3557

010144
010152

112737
104401

177777

010122
(0101
010166
010172
010174
010176

013746
163716
022716
101402
006216
000402

001674
001672

gggg

010200

012716

013400

3567

010204

012637

001570

378
3579
3580

010210
010214
010220
010224
010230
010232
010234
(10236
010240
gxoeqe
010246
010250
010252

013746
004737
104401
004037
010272
010310
011144
007754
010346
4737

010270
012604
001407

010270

00572F

3588

010272

010337

010300

3590
3591

010300
010302

000000
104401

001164

010310

013737

001570

gggg
3594

010276

010306

3595
369

010316
010324

3599

010334

104401

000721

022737
103003

0'N34C
0105~y
010346
010350
010352
010354
010356
010362
010364
010370
010372

104401

004037
010402
010420
011202
007754
01039
004737
010402
023716
103403
012637

020340

054302
001354

001362

: INDICATE THAT LORDER HAS BEEN OVERLAYED

MOV

#256.%23.,(SP)

;LORD 5868

22%:

MOV

(SP)+. TMPCNT

:SAVE TRANSFER COUNT

23%:

057247

#-1,0VLYLD

218:

001354
248

668

001354

SEQ 0078

; TYPE “MAXIMUM TRANSFER"

MOV
JSR
TYPE
JSR
248
26%
S3§
108
MOV
JSR
238
MOV
BEQ

J0i145%

PARGE 80

SYS002

&6%:

gggg 010326 012737 013400 001354
3600
360,
3602
3603
3604
3505
3606
o007
3608
3609
3610

TYPE

NOG

FBLKT+2,-(SP)
:STORE LAST USABLE MEMORY LOCATION
FBLKT, (5P)
8256. iaa *a , (SPY:CALCULATE
. CHECK IF MEMORY
GRERTERLEFT
THAN OF EQUAL TO 5888
21§
vé USE 5888
(SP)
osrtnnxne
NUMBER OF WORDS
22%
:TYPE VALUE

001570

0134900

MOVB

15:04

MOV
SuB
CMP
BLOS
ASR
BR

054146

3586

3589

208:

001570
052774
057243
020340

010254
010260
010262
010266
010872

19%:

027000

3581
3582
3583
gggg
3587

020437
101004
010437
000422

001365

057211

3558
3589
3560
3561
3562
ggga
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577

MACY11 30(1046)
Ol1-DEC-77
TYPE PROGRAM NAME

R3,-(SP)
PC.OCTBIN

:SAVE TRANSFER _COUNT FOR TYPE OUT
;CONVERT TO OCTAL
;CHECK FOR DEFAULT PARAMETERS
:COMMA DETECTED
:CARRIRGE RETURN DETECTED
:CONTROL 2 <$2> DETECTED
:CONTROL C <#C> DETECTED
;STORE BUFFER ADDRESS ON STACK
: CONVERT TO BINARY

CMP
BHI
MOV
BR

(SP)+,R4
248

R4, TMPCNT
24
RY ,MRXBUF
27¢

:ERROR RETURN
s STORE INPUT
:CHECK IF ZERO

TST

(SP+

s AUJUST STALK

MOV

R3,66%

.WORD
TYPE

TYPE

$QUES

:CHECK IF LEGAL ENTRY
*NO, TRY AGAIN
'LOAD MAXIMUM TRANSFER
IGET
NO. OF SOFT COMPARRES
:LOAD BUFFER RADDRESS

'TYPE RECEIVED INPUT
‘BUFFER RDDRESS
:TYPE QUESTION MARK

B8R

203

MOV

TMPANT MAXBUF ; LOAD nnxxnun TRRNSFER

CMP
BHIS

MOV

27%:

TMPCNY, - (SP)
PC,BINOCT
<5003
RO, TSTOEF

TYPE

JSR
29%
308
S4§
10§
MOV
JSR
239
CMP
BLO
MOV

:TRY AGRIN

8256. 2#23. , MAASUF ;valok IF LESS THAN OR EQIAL TO 23 SECTORS
278
9 USE CQLCULQTED VALUE

8256 #23. , MAXBUF' ust 23 SECTORS
SYSQ04

RO, TSTDEF

R3,-(SP)
PC,DECBIN
MAXBUF , (SP)
28$%
(SP)+,SOFCMP

: TYPE "NO.

OF SOF TWARE COMPARISONS"

:CHECK FOR DEFAULT PARAMETERS
:COMMA DETECTED
:CARRIAGE RETURN DETECTED
SCONTROL 2 <tZ> DETECTED
*CONTROL C <#C> DETECTED
:STORE PARMETER
: CONVERT TO BINARY
'ERROR RETURN
‘CHECK IF LEGAL INPUT
:TYPE VALUE AND RETR
:LORD NUMBER OF SOFTNRRE COMPARES

R AR
AR RZ2222222222%2F K 2272222
PP
D
R
R
FOREN
RS L LR 2E Y
&SR BINGERRENEFEELR ] rRofRRE8

0000000

0G0413
28%:
29%:

00S726

010337
104401
000000
104401
000746

010410

0ol1e4

012737

000003

105737
001434

001374

:DETERMINE RKO6 UNIBUS ADDRESS

TST

(SP)+

:ADJUST STACK

MOV

R3,67S

;LORD BUFFER RDDRESS

30s:

318:

$QUES
278

'TYPE RECEIVEN INPUT
:BUFFER ADDRESS
'TYPE QUESTION MARK
:TRY AGAIN

MOV

#3, SOFCMP

;LORD DEFAULT VALUE

1578
BEQ

CLKFLG
4is

cntcx IF CLOCK ON SYSTEM
ONTINUE

JSR

RO, TSTOEF

TYPE

3498

SYsooq

S5§
108

MOV

JSR
348
MOV
CMP
BLO

001360
348:

010s10

R3,-(SP)

PC,DECBIN

*CHECK FOR DEFAULT PARAMETERS

connn DETECTED

CONTROL Z (+2> DETECTED
CONTROL C «#C> DETECTED

TORE NUMBER ron CONVERSION

(SP)+,RY4
8255. | RY

couvexr TO BINARY
:ILLEGAL NUMBER
:STORE NUMBER
cuecx xr GREATER THAN 255

41¢

; CONTINUE

348

MOVB

R4, PERINV

MOV

R3, 688

TYPE "srnrxsrxc INTERVAL="
ARRIARGE RETURN DETECTED

358

000377

SEQ 0079

31s

67S:

0s4302

PAGE 81

TYPE
LWORD
TYPE
BR

057442
020340

BO7

Y RGAIN

Loho Psnronnnucs INTERVAL

;LORD BUFFER RDDRESS

104401
004037

001362

15:04

001164

68S%:

saues
31s

:TYPE RECEIVED INPUT
:BUFFER ADDRESS
*TYPE QUESTION MARK
:TRY AGRIN

001360

359:

CLRB

PERINV

sSET UP FOR NO INTERVAL STATISTICS

057301
020340

418:

TY?E

e P

o (e

30(1046)
01-DEC-77
TYPE PROGRAM NAME

TYPE
. WORD
TYPE
BR

MRCY11

n
o

e Pt Pt Pt Pt Pt Pt Pt e Pt Pt

s Pt et P

0000000000000

s Dt s Pt Pt

000000

n 5t Pt et i

s B

(v Bt

e Pt et Pt it Pt Pt Pt

0000000000000 00000

3622

010376

Pt Pt Pt Pt
Pt P
S

s Pt

g S@QVU‘U\SUF\»—'

CZR&PCO RKB11/06 PERF EXEC
01-DEC-77 14:53
CZRoPC. P11

JSR
44g
45§

S6%
108
MOV
JSR

054146

49g
MOV

CMP

160000

010624
000340

000004
000006

000000
000006
001446

000006
000004

SYS00S

RO, TSTDEF

R3, -(SP)
PC.OCTBIN

(SP)+_RY

#160000, R4

: TYPE “RKO6& BUS RDD."

:CHECK FOR DEFARULT PARAMETERS
:COMMA
DETECTEN
: CARRI
RETURN DETECTED

:CONTROL Z <#2> DETECTED
;couvnob C <#C> DETECTED
STORE PRRAMETER
:CONVERT 1O BINARY

: ERROR RETUR
STORE {
uecx

F 1/0 PAGE

BHI

MOV

44§

MOV
TST
MOV
MOV

#428 , ERRVEC

Lobo ERRVEC TO NON-EXISTENT MEMORY

MOV

PR? ,ERRVEC+2
;
RIORITY 7
(R4}
:CHECK FOR NON-EXISTENT MEMORY
#CHALT) sanvsc+a ;REINSTATE TRAP CATCHER
SERRVEC+2, ERRV

R4, RKBAS

:LEGAL 1/0 ADDRESS,

Y AGAIN

LORD RKO& BRSE

CZR6PCO RKBE11-/06 PERF EXEC
01-DEC-77 14:53
CZR6PC. P11

MRCY11

000424

’a

012737

000000

104401

057

83
8578 8868347

000006
000004

?EHHOX

001164

012737

177440

8-&“)0“ ‘NOR?g

000000000000

010674

104401
004037
81 74

057324
020340

OO OO0 00

4737

10742
022716

101403

012637
000413

698:

001446

yss:
48s:

49S8:

000210
057466
020340

Mov
TYPE
. WORD
TYPE

SOS:

70$:

001164
001450

SEQ 0080

;GET VECTOR RDDRESS

#<(HALT>

ERRVEC+2

uERRvecla ERRVEC

;REINSTATE TRAP CATCHER

s¢5007

S TYPE “NON-EXISTENT MEMORY*

R3,69%

F
DDRES
1 0$OPR REEEReEOPREC?

s ADJUST STACK

418

soues

OUES?ISNMARK
?vps
:TRY AGRIN

81774940,RKBAS

;LORD DEFAULT BUS RDDRESS

SYS006

; TYPE “RKO® VEC ROD"

RO, TSTDEF

'CHECK FOR DEFRULT PRRAMETERS

£§833?925752¥58N oerscvgo
;ggnrn

¢ 3E> DETECTED

:STORE

congsnr T0 BINARY

(ERR

:CHECK I

TURN

vscron SPACE

4qs
(SP)+,RKVEC
53$

NO TRY AGAIN
LOAD VECTOR RDDRESS
GET PRIORITY

(SP)+

:ADJUST STACK

R3, 70S

-%ono

,3UFFER ADDRESS

$QUES
48g
oalo RKVEC

Ys810

h TSTDEF
R3, -(SP)

0S41%6

PC.OCTBIN

000007

87, (SP)
sst

002004

PRGE 82

yge

#1000, (SP)

001450

012737

TYPE

cov

PC,OCTBIN

001000

010750

15:04

R3, -(SP)

0S4146

010337
104431
000000
104401
000746

005726

R REEoREEE

P Pt Pt et Pt Pt ot Bt Bt st pems Be e B 3 (3OO

QO0OO0O0000O0O000000O000

oy Uy
Uy S
[

O NN LW

WWWwWWww
NN NNNNN

O00O0OD

736

1076
Qliee2
007754
010346

4es:

H4S:

010656

000717

30(1046)
01-DEC-77
TYPE PROGRAM NAME

sst

YPE

UFFER ADDRESS
RECEIVED

INPUT

:TYPE QUESTION MARK
: TRY RGAIN
LORE os T _RKO6_VECTOR

PRIOR=

: CHECK ron DEFRULT PARAME TERS

DETECTED
:
CARRIAGE_RETURN DETECTED
:CONTROL 2 <#2> DETECTED
;CONTROL C <#C> DETECTED

:STORE PARAMETER

CONVERT TO BINARY
'ERROR RETURN
:CHECK IF OCTAL

(SP)

(SP)
(SP)
(SP)
(SP)

;SHIFT S BITS LEFT

CZR6PCO RKB11/06 PERF EXEC

CZR6PC.P11

01-DEC-77 14:53

3753

811844

8683;7

g;gg

0{}825

005726

3729
3730
3731
g;gg

011060
811
011064
011070

104401
083080
104401
000736

001164

3734

811072

012737

000240

737

0111

05037

3739

011114

105037

3;22

]

MACY11l 30(1046)

O01-DEC-??

TYPE PROGRAM NAME

001452

MOV

ggg:

3728 811054 010337 011062

)

DO7

PAGE 83

SEQ 0081

REST!

(SP)+,RKPRI

:LOAD PRIORITY

18T

(SP)+

;ABJUST STACK

MOV

TYPE
. WORD
TYPE
BR

718:

15:04

R3,71$

:LORD RKO& VECTOR AND TTY VECTOR

:LOAD BUFFER ADDRESS

&3¢

soues

:TYPE RECEIVED INPUT
:BUFFER ADDRESS
'TYPE QUESTION MARK
:TRY RGRIN

001452

S7$:

MOV

REST]

8PRS , RKPRI

:LOAD PRIORITY

3739 811185 613937 ggwgso 001674

1364

S1§:

CLRB

528 :

CLRB

SLS%RD FBLKT+2

;

001365

MOV

836.
#2. ,FBLKT+2
T L
R
E
3?
289“Em
é n8§‘°5ur§é£
S1ZE

g;gg

11106

000456

74
111
2737 000300 001674
358
811158
o543
3745

374

g;:e

011136

152737

811149 3

ifigs227

006000

8 1674

001674

02%858

1S:

SUB

S3$:

3;5% 811192 865483
22 Bilige o?ga‘g
1354
18:
g?%& 811%03 812937 Iflcgga 001362 S4S:

3757
011210 105037 001360
SS§:
3768 011214 012737 1727940 001446 S68:
3759
g;%?

Qli222
011230

012737
012737

000210
000240

3762

011236

013704

001450

3763
g;gg

0l1242
oiigws

012724
013714

001450
001452

044266
001452

3766 811225 122737 000013 000041

3767
3768

011260

011262

3753 911555
f

001003
104401

055730

000000

377

811570

0337 7

D43464

3773

011300

00s227

177777

377

11279

104401

$7e Biide 984998 oesooe
3776 011312 004737 053542
3777
3778

011316
011324

012737
005037

001452
177776

000036

Inoxcnrz THAT THE Lonoen IS NOT OVERLAYED

FBLKT+2 :SUBTRACT XXDP Lonoea SIZE

Szgfls nnxxngn

o
MOV

18
;0 LOED,pEnoRY AVIL TaoLe
82 s.iaa.,nnxeur'- RD MA' UM FER S]Z

.eéfiTgégpia (sp}
sw?
(2P)+ MAXBUF
3 CMP

"&"?F

& nvgohxneLs

-Lbao NUMGER oragSrfiungé Eonpnnss
i¢
To TRANSFERRED
0983?"53? '3&5 COMPARES

57%:
358§:

MOV
MOV
MOV

CLRB

h;
#177440,RKBRS

ssr
UP
NTERVQL STATISTICS
:LORD DEFQULT BUS ADDRESS

REST1:

MOV

RKVEC, R4

;STORE_VECTOR ADDRESS

REST2

MOV
MOV

ggs:

057374

#1536.%2.

rngT+a ~tsp)

93
Hov
MOV

ovLyLp’

Essnukoogsg

MOV

EHE

43
oied
ook 013400 001354
75
11164

:LORD RKO® VECTOR AND TTY VECTOR

5§:

TYPE

#210, RKVEC
$PRS RKPRI

8. INIR, (RW)+
RKPRI, (RY)

813,341

99%

. XXDPMG

;LORD DEFAULT VECTOR ADDRESS
‘LORD RKD& PRIORITY

LOAD RKO6 VECTOR ADDRESS
AND INTERRUPT PRIORITY

:LOAD FROM XXDP ?
:BRANCH IF NOT

JSR

PC, CLKINT

xnxranxzs CLOCK VECTOR ADDRESS

INC

k-1

TYPE HELP MESSARGE ON FIRST PASS

#c sr

:SET UP TTY INTERRUPT

TYPE

o
JSR

MOV
CLR

s¥sS008

TYPE “RERDY TO BEGIN TESTING”

RKPRI, Tnnpvec+a SALLOWL AND P CLOCK INTERRUPTS
PS
*ALLOW RKOB INTERRUPTS

znspco RK&11/06 PERF sxsc
ZREPC.P11
01-DEC-77 14:53
3779

3780

3781
732
3783
3784
3785
3786

011330

011336
011340
(011342
011346
011350
011352

122737

001401
000406
012746
010446
010546
000137

000002

011356

012624

MACY1l 30(1046)
01-DEC-?7
TYPE PROGRAM NAME

001361

CMPB

18:

BEQ
BR
MOV
MOV
MOV
JMP

15:04

#2,FLAG

EQ7

1
nnxn
S8MAIN, - (SP)
RY, -(4p)
RS’ -(5P)
WRtEPK+1i0

PAGE 84

SEQ 0082

:SEE IF AUTO SIZE

'BR_IF YES
'ELSE GOTO MAIN
SSETUP STACK TO RETRUN TO MPIN

:SAVE R4

:SAVE RS

-WRITE ALL DRIVES ON BUS & RET TO MAIN

CZR6EPCO RKB11/06 PERF EXEC

CZR&PC.PI11

01-DEC-77 14:53

MACY11 30(1046)

g;gg

3790

3791
3792
3793
3794

011356

022706

Q01100

011362
011364
011366
011372

00 “Qfi"
00
004737 051740
004737 044112

3796

011402

100765

3798
3799
3800

011404

032777

011412

001022

3801
3802
3803
3804

380

011414
011420
011422

glxwaw

105737
001417
00S004

3807
3808
2809

3806

011436

011440
011444
011446

001432

3810

011430

011452

16405

060000

MAIN IDLE LOOP

MRIN:

CMP

001524

167526

BNE

011460
Oll464

000C14

2s:

38:

0DO4037
001314

0S1466

118:

011%58
011470

3818
3819
385?

011500
011502
011506

001403
004737
000723

013004

3822

011510

032777

040000

3825
3826
3827
3828

011520
011524
011530

011534

105065
004737
105765

000211
021160
000211

3830

01iS44

005737

001320

3833
3834
3835
3836

011556
011560
011564
011570

011600
005037
004737
004037

177776
023056
0S1406

011516

001310

167422

3840

3841
3842

3843

011600
011604
011606

011612

004037

001320
005037

000661

0S1406
177776

:YES,

ICHECK IF IN SPECIAL ERROR SEQUENCE
.

DO NOT PRINT INTERVAL STATISTICS OR

ADD DRIVES TO TESTING SEQUENCE

#SWIM'SW13,3SWR ;CHECK IF LOOP ON OPERATION OR
:
INHIBIT PRINT OUT
118
'YES, DO NOT PRINT OUT INTERVAL STATISTICS

STATIS
118
RY

:CHECK FOR
INTERVAL STARTIST
'NO, CONTINUE SCAN
;svhar WITH DRIVE O

PBLKT(RY),RS

GET Pnnnnstsn BLOCK RDDRESS

sDRVUSE, P’'PRST(R&) ;CHECK IF DRIVE IS IN USE

AT NEXT PARAMETER BLOCK

;ce? srnrrsgécs
: INCREMENT
DRIVE INDEX
cuecx IF ALL DRIVES SCANNED

JSR
AVAILQ

RO, Q. POP

:GEY FIRST DRIVE FROM DRIVE
:AVAILABLE QUEUE

0 NEXT DRIVE

MOV
BEQ

(SP)+,RS
MAIN

BEQ
JSR
BR

128
PC DROP
matN

12$:

BIT

#SW1Y4, JSWR
158

vsng?gogorCLEAR SEEK TO PREVIOUS

158:

CLRB
JSR
1578

P.SEEK(RS)
PC csnRY
P.SEEK(RS)

:CLEAR
SEEK TO PREVIOUS CYL INDER
: GENERAT
W COMMAND
;cnecx 1
EK T0 PREIOUS CYLINDER

15T

BWAITS

cnccx IF aurrsn WAIT QUEUE EMPTY

25%
CLR
JSR
JSR

PS
PC,LDDATA
RO, Q. PUSH

BIT

BNE

3832 011552 004037 022440
001324
000667

MAIN

snéour

RFSETFLAG

BNE

011574
011576

PC.WTCH

PC,C.OPT

STATIS

3831

3837
gggg

: CHECK IF STACK PROBLEM

iNO, CONTINUE
; 2k» PROGRAM PROBLEM
:CALL COMMAND OPTIMIZER
;CALL WATCH DOG TIMER

MOV

001013

8STACK, SP

SEQ 0083

PC,STAT
(R4)+
820, RY

3829 011536 013737 001452 177776
011550

PRGE 8S

JSR
TST
cHMP
BH1

012605
001732

001002

BIT

CLRB

3817 011472 032765 002000 000014
ggga

MOV

BEQ

013102
000020

3815
3816

7518
CLR
BEQ

ggié 011484 105037 001633
3813
3814

157

BIT

004737
00S724
022704
10136M

BEQ
HALT
JSR
JSR
BMI

001633

2765 000001

15:04

.SBTTL

18:

3795 011376 005737 001564
3797

O01-DEC-7?7

MRIN IDLE LOOP

FO?7

JSR

CINITQ
BR

258

JSR

BWRITQ
CLR

'STORE PRRAMETER BLOCK ADDRESS
:1F QUEUE EMPTY
WA

$DRPDRV, P. PRST (RS)

RIN

RKPRI PS
ess

RO, BUFFAL
MAIN

RO, Q. PUSH
PS

MARIN

; CHECK "IF DROP onrve

NO ' GENERATE NEW COMMAND
Q Ngfl*
ce
AVAILABLE DRIVE

sCHECK IF LOOP ON OPERATION

GET NEXT RVRILIARBLE DRIVE

Lock OUT RKO& INTERRUPTS

ENQUEUE PARAMETER BLOCK
nLLochE
BUFFER

'NOT ENOUGH ROOM RETURN
TALLOW nxos INTERRUPTS
:LOAD BUFFER
'PUT PARAMETER BLOCK ON COMMAND
;

INITIARTION QUEUE
GET NEXT RAVRILABLE DRIVE

; PUT Pnnnnersn BLOCK ON BUFFER
WAIT QUEUE
QLLON RKO6 INTERRUPTS

"GET NEXT AVAILRBLE DRIVE

CZR&PCO RK61l 06 PERF EXEC

CZR6PC.P11

01-DEC-77 14:53

MARCY1l 30(1046)

O01-DEC-77

15:04

GO7

OPERATOR COMMAND DECODER

PRGE B6

SEQ 0084

gg:g

.SBTTL

3845

,‘l!lliiliililllilllllilIlll!!llllllllllllll!illllllllllll!lilll!

3848

3847

3849
3850

i
i¥

3851

3856

2 ]

3859
3860

P
; #®

3862
3863

b
1

3865
3866
3867

;¥
&
1

3861

3864

3878

3879
3880
3881
3882

011614

010446

DRIVE N

DROP DRIVE FROM TESTING SEQUENCE
DEMAND PERFORMANCE SUMMARY JUN DRIVE N
WRITE RANDOM DRTA PATTERNS ON DRIVE N
AND INITIATE TESTING.

ROUTINE
eee-—e-

TESTDV

PARMDV
DROPDV
STATDOV

OPRCMD:

MOV

056230
000001

0S606S

TYPE
ROLIN
MoV
MOovB

011634

122737

0001GI

0S60ES

CMPB

000060

056065

000067

0S606S

011670
011674

104401
012604

056070

3889

011700

011706

010¢f 5

142777

000373

3892
3833
3894
3835
3896

011714
011716
011722
011724
011730

001427
122714
001512
122714
001553

3898

011736

001002

011662

103006

011676

011732
011740

os:

000207

WRTEPK

000120

000104

122714

000123

000137

012440

0S6065

3%:

4s:

R R R
RY,-(SP)

, OPROO?

(SP)+,RY

I(RH), OPROO!
8’'A,0PRUOI

BEQ
CMPB
BHI
CMPB

Y
%’'0,0PROOL
28
8'7,0PROO1

TYPE
MOV

' OPROG2
lSP)¢ RY

BICB

0370 GPROOl

BHIS

TYPE

RTS

3831 011710 122714 000le4

3898

INITIATE TESTING ON DRIVE
N
CHANGE PARAMETER AND INITIARTE TEST ON

PC, OPRCMD

PH
DN
SN

104401
104403
O0lee04
116437

3885
3886

3897

DNSNWN-

mmm————

011616
0l1622
0llbe4
011626

3884 011664 104401 0S60S0
3890

COMMAND

TNPN-

Ogéqg;
1227
101004
122737

gggg

P ¥

0lle4e
011644
011652
Q011654

3883

JSR
RETURN

gg;g

; #CALL
;&

gggg

3877

;#
I
X
P

3857
3858

3872

THE LEGRL COMMANDS ARE:

38S¢
3853
3854
385S

3873
3874
3875
3876

OPERRTOR COMMAND DECODER

MOV

CMPB

, OPROOO
-lsp

o’f (RH)

BEQ
CMPB
BEQ
cMPB
BEQ

TES?DV
%'P, (RY)
PARMDY
8’0, (RY)
DROPDV

BNE

cMPB
JMpP

R R RN R SRR R RS

;STORE R4 ON STRCK

iTYPE “PLERSE ENTER COMMAND*TM
:READ_LINE FROM
T
; STORE QgggSSEHSF INPUT STRING
:MOVE SE
RACTER TO DRIVE
;

REQUEST STORQGE

E
?C Eg b
o
L R RIVE NUHBER
,NO PRINT ERRO
;CHECK IF 0-7
PROCESS DRIVE connnno

Tvst “DRIVE NUMBERN ILLEGAL""
;RESTORE RY
; RETURN

; CLEAR UNIHPORTQNT BITS

;STORE RS ON STACK

iCHECK IF_TEST DRIVE

8'S, (RY)

YES, GO _TQ TEST DRIVE
CHECK IF_TEST AND CHRNGE PHRAMETERS
iYES, GO _TEST AND CHANGE PRRAMETERS
:CHECK IF DROP DRIVE
:YES, GO_DROP DRIVE
:CHECK IF DEMAND STATISTICS

STATDV

:YES,

GO TO DEMAND STATISTICS

CZR6PCO RKG11-06 PERF EXEC

CZR&PC.P11

01-DEC-77 14:53

338? 011794 122714 oOO127
3902

011750

3905

011756

308

0117

3303

3906
307
3

o1178e

001002

000137

012614

111437

0S6042

011762
Qlizes

104401
Q12602

1177

6207

12604

056011

MACY11 30(1046)

O01-DEC-77

15:04

HO7

OPERATOR COMMAND DECODER

5§:
6S:

CMPB #'W, (RY)

BNE

PAGE 87

SEQ 0085

:CHECK IF WRITE PRCK AND TEST

IMP

WRTEPK

:YES, GO WRITE PACK AND TEST

MOVB

(P4),

:STORE COMMAND FOR PRINT OUT

TYPE
MoV
MOV

RTS

ILLCMD

1cLéor
Egp)+,ns

(8P)+ RY

:TYPE ERROR MESSAGE
;RESTORE Ro

'RESTORE
*RETURN

cznspco RKB11/06 PERF EXEC
CZREPC. P11
01-DEC-77 14:53

MACY1l 30(1046)
O01-DEC-?7?
TEST DRIVE COMMAND

gg{?

.SBTTL

3312
3913

011774
012002

122737
001027

3915
3916

012010
012012

00S004
016405

3913

012024

1004

3914

33917

3913
3920
3921
3922

012004

012016

105037

032765

000101

001632
001524

000001

012026
012032
012036
012040

4737
105237
005724
022704

013360
001632
000020

3926
gggg

012054
012060

104401
000430

0Se407

3929

012062

113704

0Sb0OES

3323

012044

001362

056065

2%:

3924
01204 105737 001632
3925 012052 001033

3330
3931
3332
3333
3939
gggg

012066
012070
012074
012102
(012104
012110

006304
016405
032765
001003
004737
000414

001524
000001

3339
3948

012126
012132
012136
012142
012144
012146

012150

104401
104401
005037
012605
0126049
000207

0S60S0
056116
177776

122737

000101

3949
3950
395]
3952

012156
012160
012162
012166

001020
005004
016405
004737

3954

012200

001002

012206

005724

012214
012216

001362
00041S

0S606S

001524
(016170

3983 Q12172 032765 CI0001 000014
3955

(12202

3957

012210

3956

3358
gggg
3961

3962
3963
3964

012220

012224
012226
012232

004737

013360

022704

000020

113704

0S606S

006304
016405
004737

001524
016170

:CLERR DRIVE COUNT
:GET PARAMETER BLOCK ADDRESS

BNE

:YES,

BNE

7578
BNE

DRVCNT
158

MOVB

BIT

JSR
INCB
1s7
cMP

3965 012236 032765 000001 000014

oavcnv

:CLERR DRIVE couwr

#DRVUSE,P PRST(RS)

;CHECK IF DRIVE IN USE
GO Tg csxr DRIVE

PC, TEST
DRVCNT
(RY) +
820, RY

;GO teST
DRI
: INCREMENT DRIVE COUNT
:ADDRESS NEXT DRIVE (ADD 2)
,cuscx IF FINISHED

OPRO13
iss

S TYPE "RLL onxves CURRENTLY UNDER TEST?"
:RETURN

;

SET UP NEXT DRIVE

Htcx IF nuv DRIVE IN ASSIGNMENT SEQUENCE
vss RETU

OPROO1, R4

RY
TMULTIPLY DRIVE NUMBER BY 2
PBLKT(R4),RS
:GET PRRAMETER RDDRESS
8DRVUSE,P.PRST(RS) ;CHECK IF DRIVE RSSIGNED
118
-YES. PRINT DRIVE ALREADY ASSIGNED
PC, TEST
;GO YEST DRIVE
15¢
: RETURN

; STORE DRIVE NUMBER

11S:

MOV

RKP

;LOCK OUT RKO& INTERRUPTS

, OPRGOO
' OPROOH
pS
(5P)+,RS
(SP)+.RY
PC

'TYPE “DRIVE N ALREADY ASSIGNED?"

158:

TYPE
TYPE
CLR
MOV
MOV
RTS

013360

177776
3938 013118
012120 013737
152737 001452
000060 0S6065

3339
3940
3941
3942
3943
3332

PBLkT(RH) RS

CLR
MOV

ASL
MOV
BIT
BNE
JSR
BR

000014

3937

SEG 0086

sCHECK IF ALL ORIVES ARE TO BE TESTED
iNO, DO SPECIFIC DRIVE

TYPE
BR
108:

PAGE 88

8’ A, OPRCO1
108

CLRB

0000!4

I07

TEST DRIVE COMMAND

TESTOV: CMPB
BNE
18:

15:04

BISB

260 oPnoox

*MAKE NUMBER ASCIZ

;ALLOW RKOG INTERRUPTS
:RESTORE RS
'RESTORE RH
:RETURN

.SBTTL CHANGE PARAMETERS COMMAND

PARMDV: CMPB

18:

2s:

:CHECK IF PARAMETERS FOR ALL DRIVES

108’
RY
PBLKT(RH) RS

:NO, DO SPECIFIC oax VE
:CLEAR DRIVE COUNT
:GET PARAMETER BLOCK ADDRESS
:ASK FOR PQRQHERE S

BNE

(R&4)+

nooness NEXT DRIVE (ADD 2)

BIT

ookvuss P.PRST(RS) ;CHECK IF

xve IN USE

GO TO NEXT DRIVE

JSR

PC, TEST

cHP

#20, RY

13
158

NO SET UP NEXT DRIVE
'RETURN
]

MOVB

OPROO!, R4

; STORE DRIVE NUMBER

15T

BNE
BR
108:

#’A, OPROCI

BNE
CLR
MOV
JSR

RSL
MOV
JSR

BIT

RY
PBLKT(RH) RS

:G0 YESTDRIVE

HECK IF FINISHED

"MULTIPLY DRIVE NUMBER BY 2
:GET PARAMETER ADDRESS
'GET NEW PARAMETERS

ookvuss P.PRST(RS) :CHECK IF DRIVE IN USE

CZR6PCO RKB11/0t PERF EXEC
CZREPC.P11
C DEC-77 14:53

3966

3967
3968
3969
gg;?

012244

(0léa24e
012252
0le254
012256

001002

004737
012605
9012604

MArYi1l 30(1046)
O01-DEC-77
15:04
CHANGE PARAMETERS COMMAND

BNE

013360

158

000207

RTS

gg;g

3974
3975

012260
Q12266

122737
001030

3977
3978

012274
012276

0OSO0M
01405

3980

oxgaxg

001405

Q12324

005724

3976

012270

105037

000101

0S606S

001524

012312
012320

3984

Q0l2326

3983

3985

012332

3987

Q12340

3991

012350

052766
105237

002000
001632

022704

000020

DROPDV:

CMPB
BNE

18:

CLR
MOV

BIT

BEQ

00001Y

2s:

BIS
INCB

157

CMP

:YES,

SEQ 0087

RETURN

GO YEST DRIVE
'RESTORE RS
RESTORE R4
RETURN

#'R,OPROO!
108

sCHECK IF ALL DRIVES ARE TO BE DROPPED
:NO, DO SPECIFIC ORI

RY
PBLKT(RY),RS

:CLERAR DRIVE COUNT
GET PRRAMETER BLOCK ADDRESS

DRVCNT

'CLEAR DRIVE COUNT

8DRVUSE , P’ PRST(RE)

;cnscx IF DRIVE IN USE

NO, GO
T

XT DRIVE

(RY) +

noonsss NEXT onxvs (noo 2)

$DRPDRV, P. PflST(RS) INDICATE DRIVE xs TO BE DROPPED
DRVCNT
NCREMENT DRIVE COU
820, R4

cnecx IF FINISHED

3986 012334 105737 001632

BNE

1578

DRVCNT

,thcx IF ANY DRIVES AVAILIABLE

3988
gggg

TYPE
BR

OPROLM
ics

*TYPE *NO DRIVES IN USE?"
*RETURN

012342
012346

3982
3993
3994
3995
3996
gggg

012354
0le35e
Q12362
Q012370
012372
012400

3333

Q12402

4003
4004
4005

0l1e426
012432
012434

4000
400l
4002

:889

012410
012416
Cled22

012436

001361

158

DROP DRIVE COMMAND

CLRB

PAGE 89

PC TEST
(SP)+,RE
(5P)+ RY

.SBTTL

001632

3979 012302 032765 000001 000014

398.
3502

JSR
MOV
MOV

Ja7

001034

104401
000431

056451

113704

0S606S

006304
016405
032765
001404
052765
000414

001524
000001

002000

013737

001452

005037
012605
012604

177776

152737
104401
104401

000060
056050
O05klde

BNE

108:

177776

056065

4010

012440

4013
4014

012454
Q12456

005004
016405

4016

012470

001404

40ll
4012

4015

0l2446
012450

Q0le4ee

122737

001027
10S037

4018
402l

012476
0l2s02
012504

012510

:STORE DRIVE NUMBER

118:

MOV

RKPRI,PS

:LOCK OUT RK06 xnrenauprs

158:

CLR
MOV
MOV

pS
(5P)+,RS
(SP)+.RY

001524

032765

000061

105237

001632

005724
022704

001362

B1SB
TYPE
TYPE

0Se606S

000020

000014

860, 0PROO1
, OPROOG
’ OPROOS

:MAKE NUMBER RSCII
:TYPE “DRIVE N NOT ARSSIGNED”?"

*RETURN

sALLOW RKO®& INTERRUPTS
*RESTORE RS
'RESTORE RH

.SBTTL

GET DRIVE STATISTICS COMMAND

STATDV:

CMPB

18:

CLR
MOV

RY
PBLKT(R4),RS

BEQ

001632

4017 Ql2d47e 004737 013102
4019
4020

OPROO1, RY

RTS
000101

RETURN

RY
*MULTIPLY DRIVE NUMBER BY 2
PBLKT(RY),RS
:GET PRRAMETER ADDRESS
oonvussP'PRST(RS) cuccx IF DRIVE ASSIGNED
18
NO, 'PRINT DRIVE
N NOT ASSIGNED
coRponv P.PRST(R&)
'; INDICRTE DRIVE IS TO BE OROPPED
158
Rsrfin

000207

:ggg

:YES,

ASL
MOV
BIT
BEQ
BIS
BR

000014
000014

MOVB

15%

SET UP NEXT DRIVE

2s:

BNE
CLRB

BIT

#'A, OPROC!

108
DRVCNT

PC,STAT

157
CMP

(RY) +
820, R4

BNE

i CLEAR DRIVE_COUNT
:GET PRRAMETER BLOCK ADDRESS

#DRVUSE , PRST(RQ)

JSR

INCB

:CHECK IF STATISTICS FOR ALL DRIVES

'NO, DP SPECIFIC DRIVE
‘CLEAR DRIVE COUNT

;CHECK IF DRIVE IN USE
GO TO NEXT DRIVE

cnfncn STATISTICS

DRVYCNT

INCREMENT DRIVE COUNT

'NO,

'ADDRESS NEXT DRIVE (ADD 2)
;cnecx IF FINISHED
SET UP NEXT DRIVE

CZR6PCO RKG11-06 PERF EXEC

CZR6PC.P11

4022

4023
4024

:ggg

4027

012512

0leS16
012520

012524

012526

01-DEC-77 I4:53

105737

001033
104401

000430
113704

056065

006304
016405
032765
001403
004737

001524
000001

4035

012556

013737

001452

4036
4037
4038
4039
4040
404]
3835

012654

012564
012572
012576
012602
012606
012610
0le6le

000414

152737
104401
104401
005037
012605
0le604
000207

108:

000014

013102
000060
056050
056142
177776

012614
Q012622

122737
001032

4049
4050

012630
0liee32

005004
016405

4052

012644

001007

4048

4051

4053
4054

012624

105037

000101

177776

056065

158:

012646
012654

000210

000020
013360

012664
012666
012672

005724
022704
001357

012706

406M

012710

4065
4o0eb
4067

113704

006304
016405
032765

4070
38;5

012740
012744

004737
000414

4073

01274

013737

4068

012730

001006

012754
012762
012766
012772

152737
104401
104401
005037

18:

15¢

PRETURN

MOV

RKPRI,PS

;LCCK OUT RKDG& INTERRUPTS

8ISB
TYPE
TYPE
CLR
MOV
MOV
RTS

CLR
MOV

BIT

108:

000014

177776

860, 0PROO!
, OPROOO
opnoos
PS
(SP)+,RS
(5P)+ R4
PC

:MAKE NUMBER RSCI]
*TYPE “DRIVE N NOT ASSIGNED?"
;ALLOW RKO® INTERRUPTS
'RESTORE RS
'RESTORE RH
*RETURN
:CHECK IF ALL DRIVES RRE TO BE TESTED
*NO,
DO SPECIFIC DRIVE

RY
PBLKT(RY),RS

:CLEAR onxv; COUNT
GET PRRAMETER BLOCK RDDRESS

DRVCNT

:CLEAR DRIVE COUNT

8DRVUSE, P’' PRST (R

sCHECK IF DRIVE IN US

s YE

INCB

DROCNT

: INCREMENT DRIVE COUN

TsT
cMP
BNE

TO NEXT DRIV

8BIT4 . P.ASSN(RS)’ :SEY FLAG FOR WRITE PACK
PC, TEST
,co ASSIGN DRIVE
(RY) +
820, R4
18

;noonzs§ NEXT DRIVE (noo 2)
;cwscx
F FINISHED
SET UP NEXT COMMAND

TST8
TYPE

DRVCNT
158
OPRO13

cutcx IF ANY DRIVES NOT IN USE
RETURN
TYPE “ALL DRIVES CURRENTLY UNDER TEST"

MOVB

OPROO1, RY

s STORE DRIVE NUMBER

BNE

118

ASL
MOV
BIT

MOVB

11§:

#’A, OPROO!
108

BNE

056065

;STORE_DRIVE NUMBER

RY
TMULTIPLY onxve NUMBER BY 2
PBLKT(R4) ,RS
:GET PARAMETER ADDRESS
#DRVUSE ,P.PRST(RG) .CHECK IF DRIVE RSSIGNED
118
PRINT DRIVEN NOT ARSSIGNED
PC,STAT
co GATHER DRIVE STRTISTICS

MOVB
JSR

013360

001452

OPROO1, R4

RETURN

RSL
MOV
BIT
BEQ
JSR

BEQ

056065

000060
0S60S0
056116
177776

MOVB

:YES, RETURN
:TYPE “NO DRIVES IN USE?"

CMPS
BNE

4069 012732 11276S 000020 000210
4074
40?5
4076
4077

ics

: CHECK IF nnv DRIVES AVAILIABLE

WRTEPK:

2s:

000020

001524
000001

SEG 0088

15%
OPRO1Y

WRITE PACK AND TEST COMMAND

000433

012714
012716
0l2722

PAGE 90

.SBTTL

4059 012674 105737 001632
4060
012700
001436
4061 012702 104401 0S6407
:ggg

CLRB

000014

4055 012660 105237 001632

4056
4057
4058

0S606S

012636 032765 000001
112765
004737

118:

001632
001524

DRVCNT

3833
4046
4047

15:04

1578

BNE
TYPE

056451

012532
012634
012540
0)12546
012550

O01-DEC-?7

GET DRIVE STATISTICS COMMAND

001632

4028
4029
4030
4031
4032

:gga

MACY!1 30(1046)

KO7

iss

:RETURN

RY
SMULTIPLY DRIVE NUMBER BY 2
PBLKT(RY),RS
:GET PARAMETER RDDRESS
8DRVUSE, P!PRST(RQ)
;CHECK IF DRIVE ASSIGNED

PRINT DRIVE ALREARDY ASSIGNED

#8IT4, P.ASSN(RS)' ssf FLAG FOR WRITE PACK

JSR
BR

PC,TEST
154

,c ASSIGN DRIVE
:RETURN

MOV

RKPRI,PS

;LOCK OUT RKO®& INTERRUPTS

B1SB
TYPE
TYPE
CLR

#60, OPROO1
, OPRGOO
opnooq
ps

:MAKE NUMBER ASCII
:TYPE "DRIVE N ALREADY RSSIGNED?"
:ALLOW RKO& INTERRUPTS

CZR6PCO RKb611-/06 PERF_EXEC
CZR&PC.P11
01-DEC-?7 14:S3
4078
4079
4080

012776
013000
013002

01260S
Clz2604
000207

LO?

MACY1l 30(1046)
O01-DEC-77_
15:04
PAGE 391
WRITE PRACK AND TEST COMMAND
158:

MoV

MOV
RTS

(SP)+,RS

(SP)+,RY4
PC

;RESTORE RS

RESTORE RY
,RETU

SEQ 0083

CZR6PCO RKB11-06 PERF EXEC

CZR6PC.PL1

01-DEC-77 14:53

MACY!1 30(1046)

O01-DEC-77

15:04

MO7

PAGE 92

SEQ 0090

DROP DRIVE AND GATHER STRTISTICS ROUTINES

:ggg

.SBTTL

DROP DRIVE AND GATHER STRTISTICS ROUTINES

777
wggs 8i38?3 813;3§ 6014%3
1272776

DROP:

MGV

4084

:oes

n8v

KPR§ Sg%

EB? ou?“rrv AND RKO6 INTERRUPTS

013016

00S06S

000014

CLR

P.PRSt(RS)

EtE“R Psocnnanrnus REGISTER

40
4094

130
013062

14
105065

000210

BEQ
CLRB

2
P.ASSN(RS)

QR F NO
:CLERR ASSINGMENT CODE BITS

813072

000210

2s:

CLRB

P.ASSN(RS)

STATOO

: CLERR ASSINGMENT CODE BITS

STAT:

MOV

PS,~(SP)

; STORE PSK

MOVE

P DRVN(RS) oPrRO11 :LOAD onxvs NUMBER FOR PRINT OUT

4BEE 813858 978893 BBBRAR
oseass
013034
152737
000060
056357
4090 013042 104401 0S6340
4091
01304
|
wog ggsxsa
40
81
27
0001 000210

&o0s
BISB
TYPE
TYPE
BITS

4089

4095

3839
4099

4100
4101

(013066

000137

013102

013?46

13076

013106
013114

cgc

013737
10440}

4102 013120 116537

013352

013114

177776

001452
056526

177776

000060
056340
82”5;5

056357

000000 GS6357

4103
4104
4105

013126
013134
813190

152737
104401
Q4?7

4107

013150

104401

0Se&604

4109

013153

062716

000152

4112
4113

013172
81317w

oxosvs
86

000160

4116
4117
4118
:{ég

013210
013212
012216
013222

010S46
062716
004737
104401

000166
0SS174

013232

4737

055132

4106

013144

004737

4108 013154 010546

4110

0131

004737

043670

055174

4111 013166 104401 056626
4114

013200

00473?

055174

4115 013204 104401 0S6653
4121

056675

JMP

IMP

MOV
STATOO: TYPE

FB@BN'?B.&,) opro1 1 f.‘fiafi BB’?VE RBRser
#60,0
opkoxo
TYPE "onxve HAS BEEN DROPPED
RO06
M TEST SEQUENCE”
53170 P.ASSN(RS)’ se;
IF §xzxnc FOR DRIVE

STATO1

RKPR: PS
RvstT

;LOCK OUT TTY AND RKO& INTERRUPTS
: #%DRIVE STATISTICS

BISB
TYPE
JSR

#60, OPRO11
opkoi
pC, PRISER

fvE
PR%NT

MOV

TYPE

RS, -(S

sfroox

TYPE 'ORD RE Ps

JSR

oP noon (SP)

MOV
ADD

sfrooa

;ancghnrs nggniiS FOR annr our

RS, -(SP)
cp NWRT+2, (SP)

:GET PARAME
C“chk“7§

MOV
ADD
JSR
TYPE

RS, -(SP)
8P NRD+2, (SP)
PC 30820’
,StTo04

JSR

ADD

TYPE

JSR

TYPE

PC’'PRITIM

p82b

$0B2D

s?rooa

,nbxe
‘PRINT

PACK SERIAL NUMBERS

YIME IF

LOCK nvnxanaLs

nnE TER LOCK noon

:CONVERT

(TYP ~uonns HRITTEN!SSK”
: CONY

OCK ADDRESS
S FOR PRINT ouT

:TYPE "WORDS Eno 65KTM

GET PRRAMETER BLOCK ADDRESS
ALC knr; 922 ? FOR PRINT ou~
ONV
vpscgsor DATA ERRORS”

013226 865;49 00C176

MOV

P.SECC(RS), -(sp)’ srons ECC ERROR COUNT

3{53
°i3236 864?39
102431 85513
°38§9°
4125
813545
4126 013252 104401 056794

;555
JSR
TYPE

égnn(RS),-(SP)
stE"RS§$
8
RERD
CORRECTABLE
8
c%
?
TO
oE
EflgL
?TGOs
FSETTM

4128

JSR

4122

4127 013256 0i6546 000174
4129

4130
4131
4132

4135
4136
4137

MOV

PC ssaao

IMAL

¢ SOFF(RS), -(sp)’ snvs sorr OFFSET CORRECTABLE

013262

004737

0S5132

013272
013276
013302

0le546
0049737
104401

000200
055132
0S7004

MOV
JSR
TYPE

Hn D(RS),-(SP)’ snve HRR
RTR ERRORS
PC, $SB2D
,con T 70 DECIMAL
stToo8
TYPE ~sesx INCOMPLETES

033312

004737

04513

JSR

PC, 35820

oxgega

104401

4133 813305 0]6546
4134

JSR

(013316
013322
013326

104401
O0lIeS4s
004737

(0S6760

07020

057030
000204
055132

TYPE

MOV

TYPE
MOV
JSR

pc ssaao
2

,to
NVERT TO DECIMAL
E “HARD

DATA

ERRORS"

# NSKI(RS),-(SP)’ :TYP nunasn OF SEEK INCOMPLETES
,CONV T T0 DECIMAL

<7003
TYPE “OPERARTION INCOMPLETES"
ATNOPI(RS),-(SP)’:SAVE NUMBER OF OPERATION INCOMPLETES
PC, $5B820
: LONVERT TO DECIMAL

CZR6PCO RKB11-06 PERF_EXEC
CZRBPC.P11
01-OEC-77 14:53
4138

4139
4140
Y141
Y142

:}:a

013332

013336
013342
013346
013352

013356

104401

016546
004737
104404
012637

000207

057076

000206
055132
00116S
177776

NO7

MACY1l 30(1046)

O01-DEC-77
15:04_ PAGE 93
DROP DRIVE AND GRTHER STATISTICS ROUTINES
TYPE

MoV
JSR
TYPE
STATO!: MOV

RTS

STT010

B NER(RS),-(SP)
PC, 85820
,SCRLF
(SP)+,PS

; TYPE “OTHER ERRQRS"

:SAVE NUMBER OF OTHER ERRORS
:CONVERT TO DECIMAL
:TYPE <CR>CLF>
:RESTORE PSW

:RETURN

SEQ 009!

CZR6EPCO RKB11/06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

BO8

MACY1l 30(1046)
01-DEC-77
15:04 PAGE 94
INITIATE DRIVE RSSIGNMENT SEQUENCE

:izg
4i4?

013360

4149
4150

013366
013370

Y148

3{§é

11654

013364

010446

013372

062703

010
010503

000210

4156

013404

005023

4159
4160
4lel

Q13412
013416
013424

116504
156437
012603

000000
00IS14

013430

112665

000210

105065
005037
[52765

000117
001500
000001

000210

1127656

000141

000001

4162

3123

013406
012410

013426

4165
4166
4167

013434
013440
013444

4169

013460

4168
4170

4171

4172
4173

062704
020304
001375

012604

013452

052765

013466

112765

013474

004037

013502

000207

013500

TEST:

MOVB

P.ASSN(RS), -(SP)

MOV
MOV

R3.-(SP)
RS'R3

001324

MOV

000232

ADD

18:

000001
000141

0S1406

MOV

ADD

010504

4157
4168

INITIATE DRIVE RSSIGNMENT SEQUENCE

000122

013376

013400

.SBTTL

4153

:}gg

SEQ 0092

CLR

RS, R4

8P EXAR, RY

(R3)+

R3, RY
18

MOV

(5P)+.RY4

MOVB
TEST1:

#P . RDPT,R3

CMP
BNE

MOVE
BISB
MOV

001513

RY,-(SP)

CLRB
CLR
BISB

000014

BIS

000123

MOVE

MOVB

:SAVE ASSIGNMENT CODE

;8TORE R4 ON STACK

:STORE R3 ON STACK
:LORD PARAMETER BLOCK ADDRESS INTO R3

;cn%gg%srgflgscxnnxnc OF STATISTICS AND

:LOAD PRRAMETER BLOCK ADDRESS INTO RY

‘CRESEBQTE

OF STRTISTICS AND

:Cl EAR STATISTIC AND ERROR AREA
:CHECK IF FINISHED
*NO, CONTINUE

P.DRVN(RS),R4
:STORE DRIVE NUM3ER
INTMSK(RY) 10.OVER ;SET UP FOR OVERLAPPING SEEKS
(SP)*,R3
:RESTORE R3

:RESTORE RH

(SP)+ P.ASSN(RS) ' ;RESTORE RSSIGNMENT CODE
P.ECMP(RS)
sCLEAR ECC COMPARE _FLAG
OPTFLG
:CLEARR CMND OPTIMIZER FLAG
#BITO,.P.ASSN(RS) ' :SET READ STATUS COMMAND FLAG

$DRVUSE P.PRST(RS) ; SET DRIVE IN USE
#RDSTAT.P.CMND(RS)

#RDSTAT P .RCMD(RS)

:RERD ALL DRIVE STATUS

JSR

RO, Q. PUSH

: ENQUEUE PARAMETER BLOCK IN

*RETURN

CINITQ

'COMMAND INITIATION QUEUE

cznspco RKEG11/06 PERF EXEC

CZR6PC.P11

01-DEC-77 14:53

MACY11 30(1046)

V4
3% BIEN MG

0001

4178
013514
005737 027156
4j?
gxgggg
4l
4181

1
oxasgg

4182
4183
4184
4185
4186

0.35
nggqo
013546
813554
013560

4188

gxgg

4187

4189
4190
419]
4182

4183

:igg

7
000137

{42765
13;565

013564

oos;gs

01
013600
013606

141
116565
112765

882

813&14

112765

013630

000414

013622

152765

027156
013434

000210

000210
000224
000224

000200

000036

000123
000103

000135
000001

000210

000103

1
1
123
35
4139
§13%38
11
§
888111
888601
4138
013646 112766
000111 000123

4199

0.3654

152766

qggg 0136

830207

4204
4205

132765
001419

4e06
4e0?
4208

013672
013700

013702
013710
013716

0000L2

DRIVE RSSIGNMENT SEQUENCE

RSNORM:

BT18
I

1S:

ASN1S:

000210

142765
032765
001330

000002
000200

000210
000036

RASN2S:

ASK4S:

4212
4213

013732
013740

132765
001431

000004

421Ss
4216

013750
013756

032765
001005

000100

000036

0S2765
000137

004000
025312

000212

116565

000123

000113
000113
000100

000135

000001
000123
000210

16S:

132765

000100

000210

18$:

000100

000210

:S}g
35%3

013760
013766

422l

013772

4227

014024

4ye22
4223
4224
3552
4228
4229

014000
014006
Q14014
014022
014032
014034

142765

112765
112765
152765
000717
001457
1427656

000004

15S:

000210

NEWFLG
TEST!

sst
}F TYE ERROR ON ASSIGNING
,ER

;ELSE CLEAR DTYE on RSSIGN FLAG
:8 REPEAT SELECT FOR DRIVE THAT HAD DTYE

#BITO,P.ASSN(RS)' :CLERR RERD STATUS COMMAND ISSUED

P.A11LRS)
P.seaL(hS):STORE SERIAL NUMBER
84C(M_SCRS ,PTSERL(RS) ' ;KEEP senan NUMBER

P.SERL(RS)
P.SERL(RS)

sSHIFT'3 BITS RIGH

sDRDY,P.DS(RS)

;CHECK IF DRIVE RERD

P.SERL(RS)

ASN
'NO, ISSUE START SPINDLE
P.RCMD(RS) ,P.LCMO(RS) ;STORE PREVIOUS COMMAND
8PACK,P.CMAD(RS); 15SUE PACK ACKNOWLEDGE
#PACK, P.RCMD (RS)

#BIT2 P.RSSN(RS)

;SET PACK ACKNOWLEDGE FLAG

MOV

MOV
MOVB

) . P.LCMD(RS)
:STORE
PREV
COMMAND
séR?"g
?
bnnttgg)
ISSUE
Rsnnr
sg
NgL
OSRTSPL - RCMD(RS)

RTS

BITB
BEG

#BIT1,P.ASSN(RS) ;CHECK IF START SPINDLE
15
CHECK
IF PACK RCKNONLEDGE

BIS

025312

NEWFLG
12

:CHECK JF REARQ_STAT
Rt
SR e

ASN3S

BICB
817
BNE

000137

8BITQ,P.ASSN(RS)

SEG 0093

BISB

013726

013742

BEQ
MOVE
MOVB
MOVB

:Sf?

000210

BICB
MOV
BIC
ASR
ASR

BISB

000210

000002

L
IMP

ASR

4209 013720 052765 002000 000212
4214

757

8IT

000123

PRGE 95

.SBTTL

000001
S47
1
000224
0600224
000224

DRIVE RSSIGNMENT ssou NCE

:i;g

01-DEC-77

cO8

oexrx RSSN(RS)

Issuc PACK ACKNOWLEDGE AND WAIT
ET START SPINDLE FLAG

#BIT1,P. ASSN(RS)’ : CLEAR START SPINDLE FLAG
lDRDY P.DS(RS)
cnecx IF DRIVE RERDY
SNis’
sue PACK ACKNOWL EDGE

081710 P.ERR(RS)’ sef DRI NOT READY RFTER START SPINDLE

JMP

RABNORM

BITB
BEQ

#81T2,P.ASSN(RS) ;CHECK IF PACK ACKNOWLEDGE
188
0,
CHECK IF RECAL

BIT
BNE

sVV,P.DS(RS)
168’

BICB

,kE

ERROR

caxra P. RSSN(RS)ctgnnPACK ncxnouLsoce anc
YES

F VOLUME VALID IS SET
cnecx IF PACK IS TO BE WRITTEN

BIS
IMP

ssxrxx P. ERR(RS) ssg xghEE%PgRon NOT SET AFTER PACK
ABNORM
REPORT ERROR

MOVB

P.RCMD(RS),P. LCHD(RS)

MOVB
MOVB
81SB
BR
BITB

BEQ
BIcB

STORE PREVIOUS COMMAND

SRECAL, P cfino<as IssUE
R
#RECAL
'
P.RCMD(RS)
#8176, P. nssn:ns) ,ser RECAL ISSUED
ASN3S’
#8IT6,P.ASSN(RS)

;CHECK

IF RECAL

23§
:NO, CHECK IF READ PACK SERIAL NUMBER
#BIT6,P.ASSN(RS)
' ;RESET RLCAL ISSUED

CZR6PCO RK611-/06 PERF EXEC

CZR6PC.P11

:Sg?

01-DEC-77 14:53

014042

152765

000010

MRCY1l 30(1046)

O01-DEC-77

15:04

D08

DRIVE ASSIGNMENT SEQUENCE

BISB

000210

PRGE 96

SEQ 0094

CODE FOR PACK
8BIT3,P.ASSN(RS) SgERRSSIGNHENT

GRAre: 20$:
Bli%eR
153
H
19084 DiEzee poATES

MOVB

s*aeamguggno;asmvo&ss&mas

%
BT
B
BTE
ooooe
: 3
1:1
1376
7154 888{52

o
MOV

LST°*Lrns?°YLé§Eé

:e:g

014140

001010

BNE

Yo 45
4247

0141 S0

050 7
(004737

453§ 814 05 615?2? ?92555 Iflgéfg
Y

407

89 Bfiim Bibsts BRYE

quq
014142
004037
022440
4245
Q14146
014162
014154

014160
814155
0B1416
014170

000640
80"037
01320
000207

051406

4254

Ql4172

032777

0M0000

4eSe

014202

105765

000211

4255 014200 001542
4257
4258

459

014206
014210

001444
105065

61655

000211
123

013232

8{55&5

oooias

014214
4260 014222

JSR
2e$

177776
023056

:S:g
4250
4281
:Sgg

JSR

164740

28 9 fic Q?

OMMAND FOR PRCK

LOAD Eégéntofiflqefon THE FIRST FOUR WORDS

DATR,P,RCMD(RS)

i RN
SECTOR

8k IS TBCLAOSECTO, oy

RO, BUFFAL

QLLOéRTE
Edgrsn RETUR
Ngug

ASN3s
RO, Q. PUSH
PC

: ISSUE connauo
;PUTPRRQBEUER BLOCK ON BUFFER
RETURN

22%

ENQUFUE PARAMETER BLOCK IN BUFFER

CLR
JSR

228 :

BR
JSR
BWRITQ
RTS

PS
PC, LDDRTR

23$:

BIT

BEQ

43$

BEQ
CLRB

aas
P.SEEK(RS)

NO se vxc
:CLEAR
F

7578

124 000001
000002

P.SEEK(RS)

IN ERRUPTS

cnecx I

PERATION

?x ux?fi 3sgzc~neur PROCE
35

EK T0 PREVIOUS POSITION

INTERRUPT

ooogog

MOV

:83

P.RCHD(RS),P.CHNO(RS)Rsés
P.RCYL(RS)
P.CYLN(RS) ;
E$L &agc
R

426S
014260 601
4266 0142%8 052765 000200 000014

BNE
BIS

25%
925DO gngflsxrggasrons
NOT
NRITE CHECK
TR ucx P.PRST(RS) T WRITE

BNE

228

am s e R BN
:esx

O016C

4267

Ol4e

014274

001332

4270
4271
425

014302
014304
014310

86”63;
S
004737

4268

4269 014276
:S;a
4275
4276

014314
014320

G737

037 022440

000137
004037

4277
4278

014324
014326

4281

014340

014344

1424
010446
016504
012965

014354
014356

805724
005714

4279
4280

4282

814334
014336

001320

015232
132765

25%:

177776
023056
013662

025032
000010

000010

000226

4283 014350 012465 000230

4284
4285

MOVB

nsuxu JSWR

nL ou
'CLERR
B

28$:
000210

Ry DRei
757

S.SEECéRS)pp.s%Srgnsz
OggEPREV ous Tnncx nno SECTOR
]

BWAITQ'

;chg IF ANY

22%
CLR
JSR

PS
PC,LDDATA

:NOT sngugg
RE TURN
TALLOW RKO&
INTERRUPTS
:GO LOAD DATA

608
BITB

:ERROR RETURN
$BIT3,P.ASSN(RS) ' ; CHECK IF READ PACK SERIAL NUMBER

JSR
IMP
TSR

BEQ
MOV

RO, BUFFAL
ASA3S
RO, CHKADD

i YES,

ENQUEUE

unxrxnc ron BUFFER

AMETER BLOCK

:GO hLLochE aurrsn

1GO ISSUE COMMAND
s CHECK
SECTOR, TRACK, CYLINDER,
:” WORD COUNT. AND BUS ADORESS’

MOV

358
:NO Rshsnsz
FER
R4, -(SP)
:STORE R4 ON
STACK
P.BALO(RS),RY
;LOAD R4 TO GET PACK SERIAL NUMBER
(RH)#,P PK8R(RS)' ;GET PRCK SERIAL NUMBER

157
18T

(R4)+
(RY)

MOV

(R4)+ P.PKSR+2(R55

sADJUST RY TQ nobnsss ALLIGNMENT INDICATION
'CHECK IF DRTR
P

CZR6EPCO RKB11-06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53
4286

4287
4288
4289
4290
4291

014360

MACY11l 30(1046)
O0l1-DEC-7?
15:04
DRIVE RSSIGNMENT SEQUENCE

001423

:ggg

014362
014364
014370
81u37w
014400

014404

012604
4737
104401
004737
004737

42949
4295

014406
014414

032765
001406

000200

:ggs
4299

014424
(014430

000137
012604

013662

014494

001402

000207

308:

022642

0Se473
013004
022342

000014

014432

4301 014436
4302
3383

014446

4305

014452

4308

0l4474

4306
4307
:ggg

804737

022642

032765 002000 000014

000137
112765

378:

388

000211

000117

000001

000136
000140

014502

000137

013662

000002
000004

40S:

014506

014514

001002

132765

‘10

000210

43S:

4315
4316
4317

014522

132765

000200

00021C

45S:

014530

001427

4320
4321

014546
014554

016565
01656

000200
7100123

000210
00013S

016565
062765
016565
000137

000130
000002
000126
014064

000142
000126
000004

142765

000010

000210

4312

:gia 014516 000137 015234
4318
4319

014532
014540

4322
4323
4324

3352

014562
014570
014576
014604

4327

014610

4329
4330

014622
014624

4338

014616

4331

014626

4334

1335

4337

014644

142765
116568

004037
015232
010446

Bgolaq
0126

025032

016504

000132

014636

012465

000230

4336

014642

005724

4338
4339
4340
4341

014646
014650
014652
014656

:ggg

014632

012465

000136
000140

ASN3S
(sp)+ RY

cb SSUE COMMAND
Resrons RY
-

408

:NO, SEEK TO PREVIOUS POSITION

#-1 P.SEEK(RS)

;SET FLAG

JSR

BI1

MOVB

000210

IRETURN

cuccx IF WRITE CHECK HAS BEEN ISSUED
GO RELERSE BUFFER

8. WCK, P. PRsr(Rsi ctsnn WRITE BEFORE WRITE CHECK
REL

ELERSE BUFFER

cohpoav P. PRST(RQ) sCHECK IF DROP DRIVE
WV1S

:GO’'DROP DRIVE

P.LAYLTRS),P.CYLANTRS) ;LOAD LAST CYLINDER
P.LSEC(RS)'P.SECT(RS) :LOAD LAST SECTOR AND TRACK

IMP

ASN3S

BITB

8SEEK, P.CMND(RS) ; ISSUE
#BIT3,P.ASSN(RS)

BNE

JMP

WRTVER

BIT8

#BIT7,P.ASSN(RS)

BEQ

4ycg

48$

SEEK

,¢o SEEK TO PREVIOUS POSITION
;CHECK IF READ PACK SERIAL NUMBER

SET UP FOR REARD

cncbx IF WRITE PRCK
.’
:

;CHECK IF RECAL AND RETRY
"READ OF PACK SERIAL NUMBER
s;nvxcs
RD OF PACK SERIAL NUMBER

eICB
ovB

#81T7,P.ASSN(RS) ' :RESET RECAL FOR REREARD OF PRCK SERIAL NO.
P.RCMO(RS),P.LCMDIRS) ;STORE LAST COMMAND

MOV
RDD
MOV
JMP

P.RWC(RS) ,A.LWC(RS) ;SYORE LAST_WORD COUNT
82 P.RSECIRS)
;TRY'NEXT 16-BIT FORMAT SECTOR
P.RSEC(RS),P.SECY(RS) :STORE SECOTOR TO BE RERAD
208
;GO ISSUE RERD OF PACK SERIAL NUMBER

BICB

JSR

P.RCYL(RS) P.LCYL(RS)
P.RSEC(RS) P.LSEC(RS)

#BIT3,P.ASSN(RS)

RO, CHKRDD

:STORE
:ST

LRSY CYLINDER
§
T SECTOR AND TRACK

-gtsnn FLRG

;LHECK IF DATA TRANSFER CORRECT

608
MOV

RY,-(SP)

MOV

(nq)+P.PKSR(RS) ngosks?gl alcgérxcnnr BITS

P.RBAL (RS) ,RY

{ERROR RETURN
'STORE RY

;LORD RY_TO RDDRESS SERIAL NUMBER

MOV

(R4)+,P. PKSR+2(RE) :LORD MOST SIGNIFICANT BITS

TST

(R4)+

157

022642
000020

'RESTORE
R
'RELERSE B
ur ER
STYPE “ALLIGMNMENT PACT IN DRIVETM
:GO DROP DRIVE
:GO GET BUFFER FOR NEXT COMMAND

MOV
MOV

MOV

000226

005714

001245
0126049
004737
132765

JMP
MOV

8IC

MOV
MOV

48S:

convxnue

8ld. WCK, P. PRST(RS)
38¢

MOVB

4311

: YES

BIT
BEQ

JMP

177777

016565
016565

37%

SEQ 3095

(SP)+,RY
PC, BUFREL
OPRO1S
pC, DROP
PC . GETBUF

BEQ

016040

014460
014466

(12765

358:

PRGE 97

MOV
JSR
TYPE
JSR
JSR

RTS

4296 014416 042765 000200 000014
4300

BEQ

EQS

BNE
MOV
JSR
BIT8

(RY)

; br SERIAL NUMBER

;ADJUST RY_TO ADDRESS ALLIGNMENT INDICATION
:CHECK IF ALLIGNMENT PACK

308
:YES, DROP DRIVE
(SP)+,RY
:RESTORE RY
PC, BUFREL
:RELEASE BUFFER
#8174, P_ASSN(RS) ' ;CHECK IF WRITE PACK

CZR6PCO RKb11/06 PERF EXEC

CZR6PC.PI11
4342

4343

4344

014664

0lI4666

01-DEC-77 [4:53
001042

10576S

MACY11 30(1046)

001407

434

314710 6047?4

14704

1044

:ggé

0I14714

014720

004737

000207

022342

4353

Q14722

116537

000000

4355

Q14736

104401

4350
4354
4356

4357
4358
4359

Q14730

014742

152737
104401

014746
014752
014756

004737
004737
104401

014766

001314

6362

000060

0S6340

056357

528:

056103

:ggg

014770

027616
043670
001165

014772

032765

004000

4368
4369

015002
015006

005037
615555

177776
ooxga

437]

015022

01656

126

015000

4370 015014
4372
4373
4374

015030
815035

015094

001341

000130
000131
0200

117

4375
4376

0l
015

05276
88%05

4378

015070

O606

4377

01506M

000131

124
126

000036

066565

000012

5465

000012

015162

4333

015200

00101

015206
015210

015724
O0R3037

439]
4332

015166
015174

013737
005737

4294 015202 004037

4395
4336

4337

015214

003737

001452
001320

0Bce440
177776

023056

P.DRVN(RS),0PRO11

TYPE

,O0PRO10

TYPE "onxvz NUMBER N UNDER TEST"

PC,PRISER
PC PRITIM
SLRLF

;PRINT DRIVE AND PACK SERIAL NUMBERS
SPRINT TIME

BISB

860, 0PRO1 1’
OPR0OO3

JSR

ko,o.Pusu

RTS

;LORD onxve NUMBER

,nhxs 1T ASCI.

:PUT PRRAMETER BLOCK IN DRIVE
.

"AVAILIARBLE QUEUE

'RETURN

BITY
BNE

MOV

MoV
MOVB

SWRL,P.DS(RS)

S0S

;CHECK IF WRITE LOCKED
:YES,

DROP DRIVE

000164

177776

:STORE LAST rnncx nno SECTOR

P.RWC(RS),P.LHC(RS) ;STORE LRET WORD
SWRYCHK , P CHND (RS) ,Lono WRIT

8. WCK, P.PRST(RS) :SET WRITE BEFORE WRITE CHECK
P.CYUNIRS)
;CLEAR CYLINDER RODRESS

CLR

P.SECT(RS)

;CLERR TRACK AND SECTOR

CLRB

P.DPAT(RS)

;LORD RANDOM PATTERN

CLR

57%:

P.RCYL(RS)
. P.LCYL(RS) ;3TORE LAST CYLINDER

BIS
CLR
CLR

015150

4330

MOVB

SWRTCHK ' P. RCMD(RS)

4388

000166

:RETURN

MOVB

0000:2
000152
000156

005565

:GET BUFFER FOR NEXT COMMAND

000123

000400
000002
000012
000160

015156

pc’

*DROP DRIVE FROM TEST SEQUENCE

55$:

000014

000012
000012

4389

PC, GETBUF

WRITE WHOLE PARCK WITH RANDOM DATA

000142
000001

001354
000377

005565

: TYPE “DRIVE WRITE LOCKED"

P.RSEC(RS) P.LSEC(RS)

013765
33275
I
012765
062765
06ES65

015144

OPRO12

JSR

AC, DROP

MC v

015109
oxsxés
0151
015122
015130
015136

4387

TYPE

JSR

:NO, START TESTING

000140

4381
4382
4383
4334
4385
4386

0121

c2$

00013S

0OC- 06

10506

BEQ

PS
'ALLOW RKOB INTERRUPTS
P.RCMD(RS),P.LCMO(RS) ;grons LAST COMMAND

015074

015100

SET UP PATTERN AND ALLOCATE BUFFER

cuetx IF RFAD ONLY MODE

CLR
MOVB

4379

4380

TESTING
cuecx START
IF WRITE
LOCKED

P.RATE(RS)

.SBTTL

016565 8001 4 000136

016565
112765

#W4RL,P.DS(RS)

AVAILQ

3322
4367

52$

JSR
JSR
TYPE

000207

436b

BEQ

TYPE

4360 014762 004037 051406

436l

:YES,

RTS
0S63S57?

SEQG C0%

55§

BIT
50$:

13004

PAGE 98

BNE

7578

14
4345 QI4672
(014674 032765
004000 000036

014702

15:04

DRIVE ASSIGNMENT SEQUENCE

000076

:g:g

0O1-DEC-77

FO8

MOV
BIC
ENE
MOV
ADD
ADD
RDC

P.RCYL (RS)

P.RSEC(RS)

MAXBUF
, P.WC(RS) ;LORD WORD COUNT
8377,P.WC(RS)
;MAKE ¥T AN EVEN NUMBER OF SECTORS
57¢
*IF NOT ZERQ
USE THIS RS WORD COUNT
#256. ,P.WC(RS) :TRANSFER RT LEAST 256 WORDS
82,P.NODR(RS) : INCREMENT NUMBER OF ORDERS
PCUCIRG) P.NWRT(RS) ;ADD NUMBER OF WORDS WRITTEN
P.NWRT+2lRS)

ADD

P.WC(RS),P.NRD(RS)

NEG

P.WC(RS)

:MAKE THE WORD COUNT NEGITIVE

59§

co ALLochE BUFFER

RDC

MOV
75T
BNE

JSR

53§
CLP
JSR

P.NRD+2 (RS)

RKPRI, PS
BuAITd

RO, BUFFAL
PS

PC,LDDATA

;RDD NUMBER OF WORDS RERD

'LOCK RKD6 INTERRUPTS
cnecx IF COMMANDS WARITING FOR BUFFER

ENQUEUE COMMAND IN BUFFER WAIT QUEJE

'NOT ENOUGH ROOM, ENQUEUE IN BUFFER WAIT QUEUE
SALLOW RKO6 INTERRUPTS
:LORD BUFFER

000137

013662

00037
2
0

051406

S9s:

000020

000210

WRTVER:

000200

000014

198:

000200

000014
000001

81%ecs

P P

Wv0s:

108:

OUN
OO0

o0
00
O

8888 88 89

RO, Q.PUSH
pC

;PUT PARAMETER BLOCK
; Ufi&T QUEUE

.gl.q P.ASSN(RS)

IN BUFFER

;CHECK IF WRITE PACK

IN PROGRESS

; YES
1
: }!il Snoéagg PROBLEM
8. WCK,P. PRST(RS’ CHECK IF WRITE CHECK ISSUED

Wvos

CHECK FOR DROP DRIVE

ou WCK, P. PRST(RSS ctznn ISSUE WRITE BEFORE ugxrs CHECK
mm HK,P.CHMND(RS)'
E WRITE CHK
C
GOo 155ut u31?§ CHECK
2
#DRPDRV, P. PRST(RS;

585

cgecx
IF DROP DRIVE

29 ?ERHINETE PACK WRITING

#BITS,P.ASSN(RS) ; CHECK xr END OF PACK

1ss

,ho

co NUE

B
RETURN

MelerSIIEL,
S

I IFaenlS
SRR
AL
F YES ELSE FILL PQRQH BLOCK

-0 repapapeie
nNo LE£ELWW
oL

P.o¥§<5§)19.§587(351',L

88
o
00

.Sggoo 0638

SERRBRREL
S

-0 '

;GO ISSUE COMMAND

s
£ 00:37835
i PSET
nno secron
?Rncx
§ nrgos
fo
):P.LSEC(Rg)
P.RSEC(
g.20PI(R§)PP.LD?;(?S)SfSTORE
PREVIOUS
P.DTS(RS)

P.RSEC(RS)

P.DCYL (R

),P RCYL (RS)

§23§on
AND TRQCK

P. CYL(Rgi,P.CYLN(RS) ;LORD NEW CYLINDER

P.RBAL(RS) | BRLO(Rg) sREINITIALIZE

BUS ADDRE s ron POSSIBLE

R0’ SECTOR RECOVERY ON LAS

at
¥

Ss:

00S046

ASN3S

39%:

042765

SEJ 3097

s-1,1.
;InozcnrtTHnT
AN INTERRUPT HARS BEEN ISSUED
oxu?n,nxcsx(na) SALLOW
;GO scnu
onxvs
TERRUPTS
INT
R

[=)

tototatatatay
3
(@]

&§%
oy

159:

000132

ne-n)
?\Ji\i

oo
it
oo
NUWtWwWN
17y

()
o 1 2 V I OO0
S W 000—-00NN e s,
8‘-0*-‘

LnuunxJuahwynqgwsugw
L
o oo
\)0"8 nNEL
ng RERTRENE
CLEOL£OLNCLO

N L £rg

F55R84

P Pt s Pt ot Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Gt

O0000000000000000000

Bt e Bt Bt Pt Pt Bt
o Bt Bt Bt B
m Bt s bt P

GOS8

01-DEC-77_
_15:04
PRGE 99
3001046)
WRITE WHOLE PRCK WITH RANDOM DATA
JMP

PudPut Pt

000

MARCY1]

:
608

Lod

0O000OLWODD

DONURNA RN

G RS 8 ¥

Y€

0158220

0000000000000
0000

4398

000

CZREPCO RKB11-06 PERF EXEC
01-DEC-77 14:53
CZRBPC.P i1

MMAND

:HRTCHK,P.CHNO(RQ%R I Yésss IF LAST CMO WRS unr cnx
[y
S
SWRTCHK,P.CMND(RS)

5%
8. WCK,P.PRST(RS)

.RELERQ P.CMND(RS)

ASN3

;GO R

;ELSE SET TO DO WRT DATA (W.WCK=1)

RELEQS AFTER WRT CHK

P.SYLN(RS) (SP) STORSLCYLINDER ADDRESS ON STACK
(S

Y CYLINDER BY

~(SP

;MAKE ROOM ON STACK FOR TRACK

000002

P CYLN(RS) (SP)

00000S
000002
000026
054714

P. TRCK(RS) (SP)
(5P), 2(SP)
822. (SP)
PC . SMULT

STORE TRQCK ON STACK
'ADD
T
: STORE ae ON STACK (MULTIPLIER)
:CALCULATE NUMBER OF SECTORS TRANSFERRED

-(SP)

:CLEAR LOCATION FOR SECTOR

(SP)+, (SP)

: THROW AWAY MOST SIGNIFICANT BIT

R6EPCO RKB11/ s PERF
tSR
8PIl
1-DEC-7? EXEC
14:53

HOS8

MACY11 30(1046)

EC-77
unf NHOL gncx
WITH15:04
RANDOMPAGE
DATA100

SEQ 0098

015560
6516
4455 815554
1666 88 004
002
4456 015570 004737 027G7M

MOVB

ngo
JSR

ECT(R ), (SP)
;STOR
?
3
35?
EM?NE T ? OUNT
NUMBER OF SECTORS TRANSFERRED
PC ctrnu
:GET CORRECT LQST CYL NUM

::gg

SuB

2(SP}, (sP)

MOV
MOV

P.RWC(RS),-(SP) :STORE WORD COUNT
(SP),P.WCIRS)

MOVB

1TSP), (SP)

BEQ
CLR

BLO

208

#BITS,P.ASSN(RS)' ;SET END OF PACK TRRNSFER

Y454

4457

(015574

013716

027160

4460
4461

015604
015610

016546
011665

000130
000012

4463

015616

116616

000001

Y462

Y464
Y465
4466

015600
015614

015622
815553
0156

166616

00S416

105066
051555

103413

Y44E?
oxgsgz 001407
4468 0156
005016

4469
4470
447]

015640
015646
015650

116666
005416
011665

4474
4475
4476
4477

015662
(015666
018672
015674

062706
016546
591
062765

4479

015706

:3;5

4478

4480

015654

015702

osxssg

015712

osessg

4481

015716

4483

015726

4482

4484

152765

016722

016734

OO0t~
6

MOV

000002

NEG

000GC0!
000002
000002

0600012
000040
000006
000012
000002

0156

CLRB
CMP

P.NWRT+2(RS)

ADC

P.NRD}2(RS)

#360,P.RDPT(RS) :KEEP q

ADD
ADD

000040

000210

BITB
BNE

015764
015766
Q015774

80101
016565
00S03?

000012
177776

016004

000137

013662

016010

004737

022642

015760

005737

INCB

000lel

MOVB

::ga
4495

44396

016014

4498

(016022

4501

01030

4497

:ggg

016020

016026

004037

001320

022342

105065

000210

4502
4503
4S04

(016034
016040
016044

004737
104401
004737

4507

016052

105065

3282
4508
4S09

016050
016056
O1e0e4

000444

116637
152737

TST

000130

000210

000000
000060

Wvis:
Wves$:

P.RDPT(RS)

: GENERATE NEXT DATA PATTERN TO BE WRITTEN

EAST SIGNIFICANT BITS

P.ROPT{RS),P. BPRY(RS) :STORE DATA PATTERN USED

RKPRI,PS

: LOCK OUTRKO6 INTERRUPTS

BWAITQ

CH (o

lBITS,P.;SSN(RS) cnecx IF WRITE TO END OF PACK
258
2
Us ggr

FER

WAIT QUEUE EMPTY

ASK3S

JSR

PC LDDATA
PC, BUFREL

LOA

anno

ssue connnno

:RELERSE BUFFER FOR OTHER DRIVES

RO, G.PUSH

'PUT PARAMETER BLOCK ON BUFFER WAIT QUEJE

JSR

PC, GETBUF

;cer NEW BUFFER

CLRB

P.ASSN(RS)

;CLEAR RSSIGNMENT CODE

: RETURN

JSR
TYPE
JSK

PC, BUFREL
OPROOS
£C,DROP

*RELERSE BUFFER
‘TYPE “OPERATOR INITIATED DROP DRIVE"
1GO OROP DRIVE

CLRB

P.ASSN(RS)

. CLEAR nssxcnnenr FLAGS

BF
056357
056357

;ARDD NUMBER OF WORDS READ

JMP

RTS
308:

(SP)+ P.NRD(RS)

25%
:NO gksngz FER
P NC(RS) P. RHC(RS)ST
URRENT GENERATED WORD COUNT
ALL OW RK
NTERRUPTS

BWAITG

(B22642
056260
013004

(SP) P.NWRT(RS) ;ADD NUMBER OF WORDS WRITTEN

BNE
MOV
CLR

JSR
25§ :

0S1406

004737

000207

MOV

001320

4492 (016000 004737 023056

NEW WORD counr nesoso

ADC

000152

BICB

4489
4490
4431

s
SUE COMMAND

cntcx
: MAKE ROOH

; ADJUST STACK
:STORE PRESENT WORD COUNT
'MRKE IT POSITIVE
> INCREMENT NUMBER OF ORDERS

4485 015742 013737 001452 177776
4488

COUN

86, SP
P.WC(RS),-(SP)
(5P)
#2,P.NODR(RS)

000122

132765
001014

19%
(SP)

ITIVE

ADD
MOV
NEG
ADD

000360

015750
015756

:CLEAR MOST sxcnxrlcnnr BITS
cuecx xr PACK OVERRUN

CcTOR

208$:

142765

4486
4487

1(5P)
(SP),2(SP)

'KEE

BISB

000164

000122

nnxg és P

198:

000166

116565

(SP)

2(SP), 1(SP)
(SP)
(5P),P.WC(RS)

0160

000122

oe*sanéns Ngnasn o§ sEcrons LEFT ON

MOVB
NEG
MOV

00 °S6S
105365

:STIRE NUMBER OF SECTORS ON STACK

OR NEW WORD COU
‘MOVE IN NUMBER OF sscrons LEFT
!MRKE WORD COUNT Nscnrxvs
:LORD NEW WORD COU

000001

000210

HOLD, (SP)

MOVB
BISB

Wvss

:GO ALLOCATE BUFFER

P.DRVN(RS),0PRO11 ;GET DRIVE NUMBER
860, OPRO11
nhxs 1T nscxr

CZR6PCO RKB11-/06 PERF EXEC
CZRBPC.P11
01-DEC-77 [4:53
4S10
4S11

U16076

016072

104401

0S6340

4513
4514
4S15
4516
4517
4518
4519
4520
4521
4522

015103
Q016112
016116
016120
016122
016124
016130
016132
016136
016140

004737
104401
010346
010446
010503
062703
010504
062704
005023
020304

043670
001165

104401

I08

MACY1l 30(1046)
01-DEC-7?7
15:04 PAGE 101
WRITE WHOLE PACK WITH RANDOM DATA
TYPE

056103

TYPE

4512 016102 004737 027616

4523
4524
4525
4526
4537
4528
4529
4530

0lei4e
016144
016146
016150
016154

001375
012604
012603
004737
Q04037

(16162
016166

004737
000207

016160

001314

JSR

000152
000210

78:

022642
0SI406
022342

WVG$:
Wv3s:

,OPRO10
OPRO03

SEQ 0099

: TYPE “DRIVE NUMBER N UNDER TEST"

#c PRISER

sPRINT DRIVE AND PACK SERIAL NUMBERS

BNE
MOV
MOV
JSR
JSR

78’
(SP)+,RY
(5P)+ R3
PC, BUFREL
RO’ Q.PUSH

:STORE R3 ON STACK
:STORE R4 ON STACK
:LORD PARAMETER BLOCK BASE
:CALCULATE BEGINNING OF STATISTICS
'LORD PARAMETER BLOCK BASE
*CALCULATE END OF STATISTICS
:CLEAR STATISTICS BEFORE STARTING TEST
:CHECK IF FINISMED
INO, CONTINUE
;REQTORE RY
'RESTORE R3
:RELERSE BUFFER
"ENQUEUE PARAMETER BLOCK IN Dh.ve

JSR
RTS

PC, GETBUF
pC

'GET NEW BUFFER
' RETURN

JSR
TYPE
MOV
MOV
MOV
ROD
MOV
ADD
CLR
CMP

AVAILQ

PC PRITIM
SLRLF
R3,-(SP)
R4, -(SP)
RS, R3
8P NODR,R3
RS, RY
%P, nssn RY
(R3)+
R3, RY

"PRINT TIME

AVAILIABLE QUEUE

CZR6PCO RKB1L-06 PERF _EXEC
CZR6PC.P11
01-DEC-77 14:53
4531
4532
4533

454l
4542
4843
4E44
4545
4S46
4547
4546
4543

016170
Q016172
Q016174
016202
016210
016214
016220
iboad
016230
016232
Dleayy
016236
016240
0lbo4e
016246
016250
(016254

010446
010346
116537
152737
104401
004737
104401
037
016346
0iod
g202
016174
010346
004737
016330
012637
004737

4552
4553
4554
4555
4556
4557
4558
4559
4560
yGel
4562
4563
45e4
4565
4566
4Se7
4568

016266
016270
016272
016274
016276
016302
016304
016306
0l63le
016314
016320
016326
016330
016330
016339
016336
016340

103420
010304
106714
001435
122427
001373
010446
004737
016330
012637
023737
103022

0le260

023737

010337
1094401

001602
027074

027154

016346
016354
016356
016360

013737
010304
105724
000751

027154

~576
4577
4578
4579
4580
4581
4582

o1
01
01
01

013737
005037
013765
013765

027154
001604
001602
001604

01
01
0!
01
01
01

104401
004037

057563
020340

4571
4572
4573
4574

4
V1

STORE R4 ON STACK

BISB

cso PARCO1

:MAKE IT ASCII

PAROOD2

*TYPE “CYLINDER
MA

POS:

MOV

MOVB
TYPE

JSR

TYPE

JSR

POS
MOV

001602

3s:

001602

000070
000066

STORE R3 ON STACK

bRVN(RS) pARCO] Lono DRIVE NUMEER FOR PRINT OuLT
PRADCO

#c DTYPE

RO, TSTOEF
R3,-(SP)

TYPE “Pnnnnsrsns FOR DRIVE N”

:INPUT DRIVET E

:CHECK FOR DEFAULT Pnnnnersns

:COMMA DETECTED
:CARRIAGE
RETURN DETECTED
:CONTROL 2 <+2> DETECTED
;CONTROL C_<#C> DETECTED
:STORE BUFFER RDDRESS

PC,OCTBIN

:CONVERT TO BINARY

MOV

JSR
CMP

(SP)+,PARCYL

PC, GEtNUM
LStCyL, PARCYL

:STORE MAX CYLINDER ENTRY

BLO

NO,

'ERROR RETURN

:GET CORRECT LAST CYL NUM
,cuecx IF LESS OR EQUeL TO

MAXIMUM CYLINDER A_DRESS

TRY AGAIN

MOV
1578
BEQ
CMPB
BNE
MOV
JSR

R3,RY
(R%)
7$
(RY)+, 8",
64S
R4, -(SP)
PC.,OCTBIN

MOV
CMP

(SP)+,PARCYL+2 :STORE MIN CYLINDER ENTRY
PRRCYL,PARCYL+2 ;CHECK IF LEGAL ENTRY
8%

:YES,

MOV

R3, 658

:LOAD BUFFER ADDRESS

4§

R3’-(SP)

JSR
4$

0OL116M

000725

4
:

RY, -(sp*

016336

016394

SEQ 0100

MOV

c§
68
P1$

001604

10e

PARM:

000054

001604
001602

PRGE

RLTER DRIVE PRRAMETERS

2s:

0OS4146

JO8

.SBTTL

BYS:

4863

362
370
374
4

057533
057533

30(1046)
01-DEC-?7
15:04
ALTER DRIVE PRRAMETERS

054146

000000
104401

000000
000060
057507
020410
057540
020340

oooooo

4550

oo
oo

4534
4535
4636
4537
4538
4539
4830

MACY11l

BHIS

srbae R3 IN R4 FOR LINE SCAN
:CHECK FOR CARRIAGE RETURN
'YES, E
‘chECK FOR comma
:NO, GO TEST NEXT CHARACTER
'STORE BUFFER nooness
:CONVERT TO BINARY
*ERROR RETURN

LORD MAX AND MIN CYL INDER

658:

TYPE
.WORD
TYPE
BR

SQUES
23

:TYPE RECEIVED INPUT
:BUFFER RDDRESS
rvps QUESTION MARK
Y AGRIN

5§

MOV

LSTCYL,PARCYL

Lono MAX CYLINDER
= 63271456

:GET MINIMUM CYLINDER

MOV

LSTCYL PARCYL

;LORD MAX CYLINDER = £32/1456

MOV

PRRCYL$2,P _MNCL CR&

68:

78:

8s:
108:

MOV

TSTB

CLR

MOV
TYPE

JSR
138
148
P2§
POS

R3, RY

(94)+

PARCYL 2

'STORE R3 IN R4 FOR LINE SCAN

:ADJUST R4

LORD MIN CYLINDER = O

PARCYL , nP XCL<Rs$ LORD MAX CYL INDER
PRROO3

RO, TSTDEF

;LORD MIN CYLINDER

s TYPE “TRACK MAX,MIN’

:CHECK FOR osrnutr Pnnnnsrsns
:COMMA DETECTED
:CARRIAGE RETURN DETECTED
:CONTROL 2 <%2> DETECTED
:CONTROL C <#C> DETECTED

CZR6PCO RKB11-/06 PERF _EXEC
01-DEC-77 14:53
CZR&PC.P11

MOV

001606

QleM4Se

(016454
(016456

656%:

016460
Q0Ole462
016466
Q16470
016472
016476
016500
016504
O0is6Sle

000054

001610
001606

016514
016514

016520
016522
016524

000002

016546
016554
016560
016566

012737
005037

000002
001610
001606
001610

=—

138:

001606

000073
000072

148:

15§:

168:
188

[N
~N

346

PC.OCTBIN

BLO

12%

MOV

TST8
BEQ

CMPB

054146

oolele
0000e2S

0olble

68%:
0000SY
054146

19%:

KO8
PAGE

R3,-(SP)

JSR
129
MOV
CMP

(SP)+,PARTRK
#0.MxtR,PARTRK

R3 RY
(R
158

(RH)+ .,

SEQ 010!

103
:STORE BUFFER ADDRESS

:CONVERT TO BINARY
*ERROR RETURN
'STORE MAX TRACK ENTRY
;CHECK IF LESS OR EQUAL TO
:

nnxxnun TRACK ADDRESS

STbRE YR3AGAIN
IN R4 FOR LINE SCAN
:CHECK FOR CARRIAGE RETURN
SYES, EXIT

cueéx ron comM

BNE
MOV
JSR
129
MOV
CMP
BHIS

668
R4, -(SP)
PC.OCTBIN

MOV
TYPE

R3,67$

TYPE

:NO, GO TEST NEXT CHARACTER
:STORE BUFFER nooness
'CONVERT TO BINA
*ERROR RETURN
(SP)+,PARTRK+2 STORE MIN TRACK ENTRY
PARTRK, PARTRK+2 :CHECK IF LEGAL ENTRY
168
:YES, LORD MRX AND MIN TRACK

$QUES

:TYPE QUESTION MARK
;LOAD MAX TRACK = 2

_WORD

i0s

MOV

co MXTR,PARTRK

MOV

TSTB

B8R

—=——00
RO

001606

057603
020340

WLNVW—O
NOWNNE L

016644
0l16b46
016652
016654
016656
Olebbe

W)
NN
oo
nn

012737
010304
105724
000751

016532
016540
016542
016544

016642

128
67%:

001164

000727

016636
016640

001610

0lese2

016530

016574
016600
016604
Cle606
016610
0l6ble
016614
016616
0lbbee
0lbbe4
016630

118:

054146

o NE£WE
LO—N—N0W
L£NW
NG‘JG‘.IOO‘DO‘G‘JZJ
N NNO

440
4e4]
4Ye4e

001606
000002

O00000D000DTM

4617
4618
4619
4620
4621
4622
4623
4624
462S
4626
462?
Yee8
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639

30(1046)
O1-DEC-7?7
15:04
ALTER DRIVE PARAMETERS

0S4146

000000

4616

016430
016432
016436
815440
16444

—-O-0ON00O—~0

4587
4588
4589
4590
459]
4532
4533
4594
4535
4596
4597
4538
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609
4610
4611
Yele
4613
4614
461S

MACYL1

MOV

CLR
MOVB
MOVB
TYPE

JSR
21s
223
P33
POS
MOV
JSR
208

#0.MXTR, PRRTRK

;LOAD MAX TRACK = 2

PAROOY

; TYPE "SECTOR_MAX MIN“

PARTRK+2
TRACK= O
-LOADMINMAXTRACK
PARTRK , nP xTR(RsiLORD
PRRTRK$2,P.MNTR(RS) ;LOAD MIN TRACK

RO, TSTDEF
R3,~(SP)
PC.OCTBIN

BLO
MOV
TST8
BEQ

208
R3,RY
(R%)
238

20%

*TRY AGAIN

:STORE R3 IN R4 FOR LINE SCAN
JANJUST R4
SGET MINIMUM TRACK

(SP)+, PARSEC
#0.Mx8C,PARSEC

CMPB
MOV
JSR

eurrsn ADDRESS

3.RY
(R4)+
118

MOV
CMP

BNE

Lono BUFFER RDDRESS
TYPE RECEIVED INPUT

(RY)+, 8’
RY, - (SP)
PC,OCTBIN
68%

:CHECK FOR DEFRUL? PRRQMETERS
:COMMA DETECTED
:CRRRIAGE RETURN DETECTED
:CONTROL 2 <$2> DETECTED
:CONTROL C <#C> DETECTED
:STORE BUFFER RDDRESS
;CONVERT T0O BINARY
'ERROR RETURN

:STORE MAX SECTOR ENTRY
:CHECK IF LESS OR EQUAL TO

: " MAXIMUM SECTOR ADDRESS

'NO, TRY RGRIN
'STORE R3 IN R4 FOR LINE SCAN
CHECK FOR CARRIAGE RETURN
S YE
XIT

cnsbx FOR COMMA
GO TEST NEXT CHARACTER
STbRe
BUFFER ADDRESS
:CONVERT TO BINARY
'ERROR RETURN

CZRBEPCO RKH11-06 PERF_EXEC
01-DEC-77 14:53
CZRBPC.P11

4669
4670
4671
d672
4673
4674
4675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685

4686
4687

4688
4689
4630
4691
4632
46393
4694

4695
4636
4697

016776

017000
017002
017006
017010
017012
017016
017020
017020
017024
017026
017030
017034

057624
020340

oolelY4

PRGE 104

(SP)+ PARSEC+2

2ls:

001e1e

00007S
00C074

2cs:
23%:
o4s:
c26%:

04401

;STORE MIN SECTOR ENTRY

MoV
cMP
BHIS

PARSEL, PARSEC+2 ;CHECK IF LEGAL ENTRY
24%
*YES, LORD MAX AND MIN SECTOR

MOV

R3,69%
0

$QUES

ias
polele

SEQ 3102

oo MXSC,PARSEC

:LOAD BUFFER ADDRESS

TYPE RECEIVED INPUT
UFFER ADDRESS
YPE QUESTION MARK

TRY AGAIN

;LOAD MAX SECTOR = 21

3 RY

(R4)+

:STORE R3 IN R4 FOR LINE SCAN

138

:GET MINIMUM SECTOR

#0.MXSC, PRRSEC

LOQD MAX SECTOR

'ADJUST R4

PAROOS

RO, TSTDEF

“REARD/WRITE RATIOQ =*

CHE K FOR DEFAULT PRRAMETERS

COHNQ

, RGE EETL%N DETECTED

000010

27%:

017026

70$8:

001164
000076

017044

112765

000003

057647
020340

R3,70S

:LORD BUFFER RDDRESS

SQUES

UFFER RDDR

YPE QUES xou nnnx

' TRY AGAIN

R4,P.RATE(RS)

299%:

#D.RATE,P.RARTE(RS)

308

PAROOG

RO, TSTDEF

'Y, (R3)

000077

TYPE Rscexvso INPUT

cg8s:

30%:

000131
177777

(SP)+,RY
#10,R%
28s’

268

000076

DETECTED

:CONTROL C <#C> DETECTED
:STCRE BUFFER RDDRESS
:CONVERT BINARY
:ERROR RETURN
:STORE xnpur
:CHECK IF 0-7
'YES, LORD READ/WRITE RATIO

R3,-(SP)
PC,OCTBIN

054146

PRRSEC+§
ong MIN SECTOR = O
PARGEC . B. MXSC (RS
AD nnx
CTOR
PARSEC2,P.MNSC(RS) ;LORD MIN SECTOR

CONTROL Z (2>

110465
000403

017100
017106

699%:

LO8

0236

017036
017042

017052
017056
017062
017064
017066
017070
017072
017076

209%:

4668

016760
016764
816770
16772
016774

000o02s
8 1614

=N LOo
o
o

4662
4663
4664
4665
4666
4667

016732
816740
16744
016752

001614

001164
000025

4660

4661

016716
016724
016726
016730

000?27

30(1046)
01-DEC-77__15:04
ALTER DRIVE PARAMETERS

O—
O

4654
4655
4656
4657
4658
4659

016714

016706

—=—00
=0
—

4651

4652
4653

010337
104401
0800
0

OO
Y= =00

Jesd B1E778

001614
oolele

000000000 O

0{5;04

012637
023737
1030e2

:6:8

016664
016670
016676
81670
1670

-0

4643
Ye44
4645
4p4
46

MACY11

329

#-1,P.AWCK(RS)
3-8

LOAD READ/WRITE RATIO

RSK “WRITE CHECK AFTER WRITE
=
;LOAD DEFRULT RERD/WRITE

; TYPE “WRITE CHECK RFTER WRITE
=

:CHECK FOR DEFQULT PRRAMETERS
: COMMA DE s
: CARRIAG
ETURN DETECTED
:CONTROL 2 <$2> DETECTED
:CO

*CHECK IF YE

'NO,

LORD DEFAULT

SE} WRITE CHECK AFTER WRITE
:GET CORRECTRBLE READ ERROR
;

THRESHOLD

CZREPCO RKG11-06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:53
4699

017110

:;ox

Cigilq

4700

017110

010337

103300

318:

017116

4785 8171§B 08
:;gg

017124

000752

001164

:;0
:;Og

017126
017132

105065
104401

000077
0S770!

4710

8171

goqo;7

020340

:;fé ofgf:q oxgéog

MACY1l 30(1046)
O1-DEC-?7
15:04
ALTER DRIVE PRRAMETERS

-1

)

328:
3u4s:

017152

010346

3;}3

017162

012665

4720

017166

100012

4723

017170

4725
4726
4727
:;gg

017174
017176
017200
017204

104401
000000
104401
000752

001164

4730

017206

012765

0000l2

017214

104401

057744

0°/224

017252

3;55
4724

3;35
:;ga

4735
4736

017170

04737
017170

010337

017226

017270

4739

017232

0l617M

4738

4740
4741
4742

:;33

017230

017234
017236
017242

:CLEAR WRITE CHECK AFTER WRITE
rv:sflgconnscrnaLe REARD ERROR

JSR

RO, TSTDEF

cuscx
Sgn Q;FRULT PRRAME TERS

: CARR]JAGE _RE
TECTED
conrfi
%
g
)
ylog§scrso
CONTROL € <#C> DETECTED
o

R3,-(SP)

STORE

: CONV R
: ERROR

FER ADDRESS

JSR
35

PC.DECBIN

TO BINQRY

MOV

(SP)+,P. CERT(RS) LOQgEgogRECTRBLE READ ERROR

[pL

38%

MOV

R3,72%

xr NOT NEGARTIVE,

GET UNCORRECTRBLE

RERD ERROR THRESHOLD

:LOAD BUFFER ADDRESS

728:

TYPE
. WORD
TYPE
BR

36S:

MOV

ID.CERT,P.CERT(RS) .LOAD DEFAULT CORRECTABLE RERD

38%:

TYPE

, PARROOS

JSR
33

*TYPE RECEIVED INPUT
*BUFFER ADDRESS
TfPE QUESTION MARK
Y RGRIN

soues
34s

. ERROR THRESHOLD
7Y¢§REU388RRE°T“BLE RERD ERROR

RO, TSTDEF

2 CHECK ?on BgFQULT PARAME TERS

;COMMA DETECTED

40$

CARRIAGE r"vunn DETECTED

(SP)+,P.UERT(RS)’ L°“8532888R5°T“9LE READ ERROR

BPL

4as

MOV

R3, 38

017252

4749
4750
4761

(017256
017250
017262

017270

P.RWCK (RS
, PAROO?

MOV

4747

4764

CLRB
TYPE

R3,-(SP)
PC.DECBIN

100012

017266

cg?xSN MARK

rav AGAIN

MOV
JSR
39%

017250
017252

$QUES

010346
004737
017252

'4745

:;gg

000100

:LORD BUFFER ADDRESS

TBFEESECEIVED INPUT

P78

012665

4748

35%:

017176

SEQ 0103

020256

017244

4746

000100

R3,71%

10S

ACs

MOV

054302

Q17220 004037 020340

4737

TYPE

PRGE

PES
POS

4715

817124
17160

ngso

gsg

4713
017138
8202;0
47148
0171
16174
471
471

MOV

MO8

010337

POS

0S4302

000102

104401
000000
104401

001164

012765

00000S

000752

39%:

017260

738:
000102

40S:

CONTPOL <t2> DETECTED
okus <+C>

DETECTED

srone
FER RDDPESS
: CONVERT TO BINARY
;ERROR RETURN
Exr <7 NEGATIVE,

ERROfi THRESHOLD

GET SEEK

:LOAD BUFFER ADDRESS

TYPE
LWORD
TYPE

:TYPE RECEIVED INPUT
:BUFFER RADDRESS
:TYPE QUESTION MARK

38%

8D.UERT,P.UERT(RS)

$GUES

:TRY AGRIN

;LORAD DEFAULT UNCORRECTABLE RERD

c‘nspco RK&'1 06 PERF EXEC
CZREPC.P11
01-DEC-77 {4:53

MACY11 30(1046)
01-DEC-77
15:04
ALTER DRIVE PRRAMETERS

NOS8
PAGE

“;EE
q

4767

4768
4769
4760
476l
4762
4763

017276

(017302
Q17306
017310
017312
0173i4
017316

104401

004037
017334
017352
020264
016174
010346

4769

017334

4771
y772
4773

017340
017342
017344

104401
0060000
104401

:;;9

017352

012765

00000S

:;;g

017360

104401

060040

4780
4781
4782
4785

017364
017370
017372
N17374

004037
017916
017434
(020272

020340

:;;;

4784
4785

017334

017350

017376
(017400

010337

000752

017424

017414

000411

017416
017416

010337

4790
4791

748

0011&4

1777?77

:;gg

438:

017342

(12765

001013

017406

000104

000131

017404

4787

0S4302

016179
122713

4786

4as:

020340

017320
017324
017326
017332

4770

004737
017334
012665
100012

060C11

4764
4765
476b
4767
4768

000104

TYPE

JSR
43g
44§
PEs
PCS
MOV

$QUES

AND RETRY

:LOAD BUFFER ADDRESS

:TYPE RECEIVED INPUT
'BUFFER RODRESS
"TYPE QUESTION MARK

MOV

80.SKET,P.SKET(RS)

468

TYPE

,PARO10

’YSED";E“IB’T ERROR CORREC

JSR
47%
48§
P9s

RO, TSTDEF

:CHECK FOR DEFRULT PARAME TERS
:COMMA DETECTED
:CARRIARGE RETURN DETECTED
'CONTROL 2 (%2> DETECTED

POS
CMPB

000120
47s:

;SET

508

MOV

R3,75%

48s:

4799

Q17440

104401

060105

c0$:

4801
4802
4803

017450
017452
0i7454

017514
017832
020275

JSR

51%
523
PIOS

4805
4806
4807
4808
4809
4810

017460
017462
017466
017470
017474
017476

010346
004737
017514
012665
001407
100406

MOV
JSR
518
MOV
BEQ
BMI

75$:

#-1,P.IERC(RS)

TYPE
LWORD
TYPE
BR

;LORD DEFAULT SEEK ERROR THRESHOLD

'CONTROL C «#C>
:CHECK IF ves

4y8s

MoVB

:TRY RGAIN

#'Y, (R3)

BNE

000120

ION

DETECTED

.hono DEFAU

xunxaxr ERROR CORRECTION

:GET COMMAND COUNT THRESHOLD
;LORD BUFFER ADDRESS

$QUES
468

TYPE RECEIVED INPUT
‘BUFFER ADDRESS
'TYPE QUESTION MARK
! TRY AGRIN

CLRB

P.IERC(RS)

;CLEAR INHIBIT ERROR CORRECTION

TYPE

ho TSTOEF

POS

000110

44S:

105065

054302

:CONTROL 2 <%2> DETECTED
:CONTROL C ¢$C> DETECTED

428

017434

O0I6174

:CHECK FOR DEFRULT PARAMETERS
:COMMA DETECTED
:CARRIARGE RETURN DETECTED

:;gg

017456

; TYPE “SEEK ERROR THRESHOLD ="

R3, 748

104401
000000
104401
000752

4800 017444 004037 020340

THRESHOLD

MOV

TYPE
.WORD
TYPE

R3,-(SP)
PC.DECBIN

ERROR

:STORE BUFFER ADDR SS
CONVERT TO BINARY
:ERROR RETURN
(SP)+,P.SKET(RS)' :LORD SEEK ERROR THRESHOLD
468
.8RECK IF INMIBIT ERRGR COPRECTION

017422
017424
017426
017432

001164

PAROOYS

RO, STDEF

SEQ 0104

JSR
43%
MOV
BPL

4792
4793
4794
:;gg

4804

106

RO1}

R3,-(SP)
PC,DECBIN

; TYPE

“OPERATION COUNT

THRESHOLD¥6SK

:CHECK FOR DEFQULT PARAME TERS

:COMMA DETECTED
'CARRIFSE RETURN DETECTED
;conr o 2 (2> DETECTED
CONTROL

<#C>

DETECTED

*STORE BUFFER ADDRESS
'CONVERT 10 BINRRY
:ERROR RETURN
(SP)+,P.MXCD+2(RS’ ;STORE NUMBER OF 65K BLOCKS
518
SIF"Z5RO, TRY AGAIN
513
:IF MINUS, TRY ARGARIN

CZR6PCO RKB11-06 PERF EXEC
CZRE6PC.P11
01-DEC-77 [4:53
4gll
4812

017500
017504

0CS36S
012765

000110
177777

010337

017522

38%3

017512

4815

01751y

4817
4818
4819

017520
017522
017524

104401
00C0GCO
104401

001164

4822

81753&

g 765

0772777

4825

017546

10440l

060145

4816

:gg?

:gga

017514

017630

17540

000415

000743
012765

4826
4827
4828
4829
4830
483l
4832
4833
484
4835
4836
4837

01°S.2
017556
017560
017562
817554
017566
017570
81;§7w
017876
017602
017604
017606

004u3?7
017654
017672
020312
815174
010346
004737
817554
012665
00144
xooqag
00SO65

4839
4g40

017616
017622

006165
006165

4842
4843
4844

017632
017636
017642

4838
4841

017515

017626

4845

Q017646

4848

017654

4y8sg
485]
4852

017660
017662
017664

:g:g

4849

017652
017654

006165

177770

000106

52%:

54S :

c4§

;GET WORD TRANSFERREC THRESHOLD

MOV

R3,76%

;LOAD BUFFER ADDRESS

TYPE
LWORD
TYPE

SQUES

MOV

#D.CTRH,P.MXCD+ 2(95)

MOV

TYPE

ROL
ROL

PARO12

RO, TSTOEF

200114

ROL

P.MXWT+2(R5)

006165

00G1id

ROL

010337

017662

000415

000112
000114
000112

104401
000000
104401

001164

Q017672

012765

0777?77

4858

(017706

005737

001362

012765
001430
104401
004037
017752
017770
020326
016174
122713

177770

060443
020340

000116

55§
:

77%:
000114

000112

568:
60S:

P.MXWT+2(RS)
P.MXWT(RS)

ROL
ROL
ROL

P.MXWT(RS)
P.MXWT+2(RS)
P.MXKT(RS)

608

; TYPE “WORD TRNSFERRED THRESHOLD#S20K ="

P.MXWT+2(RS)

'SHIFT
4 BITS LEFT

: CHECK FOR SAMPLED COMPARES

MOV

R3,77%

B8R

MOV

#0.WTHI,P.MXWT+2(RS)

157

SOFCMP

TYPE
. WORD
TYPE

MOV
BEQ
TYPE
JSR
618
628
PI2%
POS
CMPB

:LORD DEFRULT CCMMAND THRESHOLD

"CHECK FOR DEFAULT PARAMETERS
:COMMA DETECTED
:CARRIAGE RETURN DETECTED
SCONTROL 2 <#2> DETECTED
*CONTROL C <#C> DETECTED
R3,-(SP)
:STORE BUFFER RODDRESS
PC.DECBIN
: CONVERT TO axnnnv
:ERROR RETU
(SP)+,P.MXWT(RS)' :STORE NUHBER OF S20K BLOCKS
=58
:}f ZERO, TRY AGRIN
55§
:IF NEGRYIVE, TRY ARGRIN
P MXWT+2(RS)
:CLEAR chn ORDER BITS

P.MXWT (RS)

165
006165
006165

:TRY AGRIN

8D.CTRL,P.MXCD(RS

ROL

882155

:TYPE RECEIVED INPUT
BUFFER RODRESS
:TYPE QUESTION MARK

508

000114
000112

000112

: DECREMENT BY 1

000114

000112

48SS

(17712
017714
01772C
017724
017726
017730
017732
017734

000110

054302

000726

4859
4860
4gel
4862
4863
4864
4865
4866

76%:

SEQ 0105

P.MXCD+2(RS)
#-1,P.MXCD(RS)

BR
51§:

PAGE 107

DEC
MOV

JSR
33
568
Pils
POS
MOV
JSR
c5§
MOV
BEQ
BMI
CLR

017670
017700

000106

020340

:823

:ggg

MACY11 30(1046)
01-DEC-7?7
15:04
ALTER DRIVE PARAMETERS

B09

soues

:LJAD BUFFER ADDRESS

*TYPE RECEIVED INPUT
*BUFFER ADDRESS
*TYPE QUESTION MARK

:TRY AGRIN

80.WTLO.P.MXWT(RS)
PREXAR
PARO21
RO, TSTDEF

#'N, (R3)

;LOAD DEFAULT WORD TRANSFER

THRESHOLD

; CHECK %r ANY sorruaRE COMPARES RRE TO BE MADE

*NO, DETERMINE TRACK XCLUSIO
:TYPE “SAMPLED COMPAR
:CHECK FOR DEFRULT Pnnnnersas
:COMMA DETECTED
:CARRIAGE RETURN DETECTED
*CONTROL Z <#2> DETECIED
:CONTROL C ¢tC> DETECTED
:CHECK IF NO

C%RSPCO R¥bl11-/06
PC Pil

4871
48?7
48?7
4874
4875

-bEC-7
001013

Bi%%48 B4BaTT
017752

010337
104401

14:83
177777

017760
001164

000116
060300
06025¢e
020340

788

62%:

LORD BUFFER RDDRESS

LWORD
TYPE

BUFFER RDDRESS

B8R

60s

i TYPE QUESTION MARK
: TRY AGAIN

CLRB

P.SMPL(RS)

; MAKE SAMPLED COMPARES

,PARO19

; TYPE “CHANGE EXCUDED PARCK ARER ="

RO, TSTOEF

CHECK FOR DEFQULT PRRAME TERS

TYPE

JSR

<41

JMP

010337
104401}

020040

2s:
000232
oooole

000024
020506

020506

0e0l62
004037

B4S:

020506

cs:

SEQ Q106

R3, 78S

TVOE

020172

001164

108

MOV

PREXRAR: TYPE

19:

PARGE

;NO,

BRY®
61S:

cOo9

62%

0116

.04

BNE

000137

81840t

0ec0

01-DEC-77

000131

0007s2

98 "BRRRAETEAS
B 4ERC0r1

MACY11l 3J(1046)

POS
CMPB

182301

ODDDODOODOODD(38
FERSERNBRRNEr
ToR 2R

017740

O
ity
I
rogR
o Jroryne”
o
L
L el ey S e e e el
S ST ST SO S
o Yi|
~

4867

)

XEC

-1.P,SMPL(RS)

Brdsha
$QUES

PARO18

BEQ

8'Y, (R3)
2%

MOV

R3, 648

.WORD

PREXAR

MOV

-(SP)
Ré

ADD

sP. Exnn R1

TYPE

MOV

CLR

Sos

$QUES

(R1)$

MOV

#10.

DEC
BNE
SuB

JSR

PARO13

4ss
408

JSR

PARDLY

45§
40$

JSR

PAROLS

4yss
40%

JSR

PAROLG

45§
403

JSR

820.,R1

RO, LOEXAR

MRKE SARMPLED COMPRRES

BB DAL MBS ALGRTERES
TYPE RECEIVED INPUT

MHR DET
0&

T BETEGIED
RE<fC)
DETECTED

CHECK F_YES
iYES, LORD NEW TRACK EXCULSIONS

iNO, 'RETURN

; LOAD BUFFER RDDRESS

TYPE RECEIVED INPUT

UFFERgg?REN MARK

TRY AGARIN

TORE
PRRMETER
PARFETER BBLOCK RDDRESS
210K

EQLCULRTE EXCLUSION RREA
A0 CO
:CLEAR EXCLUSION AREA
: DECREMENT COUNT

REANIT{QL?ZE POINTER

:GET FIRST EXCLUDED ARER
;DEFAULT RETURN

RO, LDEXAR

iCONTROL C <$C> RETURN
'GET SECOND EXCLUDED ARER

RO, LDEXAR

:CONTROL C <tC> RETURN
:GET THIRD EXCLUDED RRER

RO, LDEXAR

:CONTROL C <#C> RETU
{GET FOURTH EXCLUDED QRER

;DEFRULT RETURN

;DEFAULT RETURN

:DEFRULT RETURN

RO, LDEXAR

:CONTROL C <$C> RETURN
:GET FIFTH EXCLUDED ARER

CZR6PCU RK611/06 PERF EXEC
CZRePC.P11
N1-DEC-77 14:53
43923

(020152

4325

020156

4924

:933

060244

020170

1Y ;

020160

000403

4ss

IMP

POS

MOV
oV
MOV

P+,
gp)+
RS
P+ RY

164

020162

137

1?2
1%
1

408
016174

40$:

MOV

:RETURN

(SP)+,R1

:RESTORE Rl

:START AGARIN

SE§¥8§§
!RESTORE RY

MOV

LSTCYL P. XCL(RS) Lono DEFRULT MAXIMUM CYLINDER
= £32/1456

: RETURN

MOV
SSR

MAX IM ch¥EEK =
R,P.nurn(né)ohbo T n NIMUM
nxtRs
30
0, néksj SC Ré)
HINI"U" e TOR

:03
By
CLRS

: cen}.P cen;ggé;
LORD CORRECTRBLE
gego ERR3505H$522853L0
MBELC ST.CLEAR
(HOER INHIBIT
RRTRAIISGE
§
IERC(hs
ERROR CORRECTION

"83

' E;E
nxur§ é?S)

MOV
i
CLRB

MOV

012603
0126049
000207

:DEFAULT RETURN

ICONTROL C <#C> RETURN

(020332
(020334
(020336

SEQ 0107

RTS

CLR

4954
4955
43Sk

PAGE 109

PAROL7?

020154

Y4 gg 858153
4g

MACY1l 30(1046)
O01-DEC-7?
15:04
ALTER DRIVE PARAMETERS

D09

obR

CK (RS)

RnTEcRS)e
0 £
MXSC

(

CHECK

e
AFTER WRITE

O.CTRH P nxco+atR51 LORD COMMAND THRESHOLD

no CTRL, P.MXCD(RS)

:LORD WORD TRANSFERED THRESHOLD

CLRB

snPL(QS)

“MAKE SAMPLED COMPARES

MOV
MOV
RTS

(SP)+,R2
(5P)+ RY
PC

s RESTORE R3
'RESTORE RH
'RETURN

cznspco RKE&11-06 PERF EXEC
CZR6PC.PI11
01-DEC-77 14:53

MACY1l 30(1046)
01-DEC-?7
15:04
PAGE 110
TEST DEFAULT PRRAMETERS ROUTINE

SEQ 0108

:gés

.SBTTL

4969
4960

Hillllllilll!llllllllll!llillll!!Illllllllllllllllllllillllllllli
:

4962

4361

3323

4966

‘43;2
4974

4975
4976
4977
4978
4979

020240

(020342
0c0344
020350
020352
(20354

104403

012603
121327
001415
005720

1412
005720
122713
0G 1406
005720
122713
001402

:ggg

020402

0002060

43930
3335

(020404
020406

011000
000200

43393

020410

4387 020400 005720

(20414
020420

104401

004037
020444

4997
:ggg

(020424
020426

020422

02044

SO00
S001

020430
020434

121327
001406

2883

020442

001412

SO0S

020444

65008

020452

S310

020466

S002 020436

2889
003
€311

€012

IT RETURNS WITH R3 POINTING TO THE ROORESS OF THE BUFFER.

IF PARAMETER OR REST OF PARAMETERS WILL BE DEFAULTED.

‘#CALL

JSR

e
tw
1t
H

CADDRESS OF CARRIAGE RETURN DETECTION RETURN>
CADDRESS OF CONTROL 2 <t2> DETECTION RETURN>

020450
020460
020470

020476

TSTDEF:

0000S4

685713

070456
(020360
020362
020
02037Q
(020372
020376

4936

RO, TSTDEF

(ADDRESS OF CONTRIL C <tC> DETECTION RETURN>

RE TURN

:; Y YY1z 2222322z2z22223322:2x223:X21222222X22 X222

4980
4981
4982
43983
4384
43985
4986

4994
4995

THIS ROUTINE WILL READ A LINE OF ASCII TEXT AND CHECK

‘e

4367
4968
4969
:g;?
4973

; *

4965

TEST DEFAULT PARAMETERS ROUTINE

000032
000003

060466

DTYPE:

020340

000131

0S6042

142765

00000M

:iS2765

012737

BEQ
TST
CHPB
BEQ
TST
CMPB
BEQ

108
(RO)+
832, (Ra)
108
(RQ)+
83 (R3)
108

RTS

(RO)+

SYES
RN
:ADJUST RO
:CHECK IF CONTROL Z (42>
:YES, RETU
sADJUSTRO
:CHECK IF CONTROL C <tC>
*YES, RETURN

no:fisv RO

MOV
RTS

(RO),RO
RO

:STORE RETURN ADDRESS
*RETURN

PARG22

: TYPE “TESTING RKO6?

TYPE

JSR
18

(R3)

RO, TSTDEF

000632

000004

001456

000007

027154

000007

027154

2$:
3%:

:RETURN

IGET INPUT
,conna

(R3),8°Y
2s

; SEE xr RKO6
YES

BEQ

:BR IF YES

TYPE

(R3),%'N
ILLCMD

' SEE xr RKO?
:ELSE ERROR

OTYPE

BICB

#B.CDT,P. csxu<ns:

RTS

MOV

#1486, (STCYL

MOV

BISB

Y OR N*

:CONT 2
:CONT C

cM
BEQ

CHPB
18:

:CHECK IF CARRIAGE RETURN

‘CR

18
18

104401

000207

:STORE BUFFER noonsss
iCHECK IF COMM
:YES, RETURN
-noJosr RO

121327 000116

012737

(SP)+,R3
(R3), b,
10$
(RD)+

TST

108:

s GET RESPONSE

MOV
CMPB
BEQ
TST
1578

02044Y
020444

000757

ROLIN

*TRY AGAIN

8632, LETCYL

#B.CDT,P.CSIH(RS)

:RKOG

*LRST CYLINDER ADDRESS
;s RKO?

*LAST CYL ADDRESS

CZR6PCO RKB11-06 PERF EXEC
CIREPC.PILI
D1-DEC-77 14:53
€013

S04
SQis

0e0sc4

000207

FO9

MACY1l 30.1046)
O0O1-DEC-77
15:04
PAGE 111
TEST DEFAULT PARAMETERS ROUTINE
RTS

SEQ 0109

CZR6PCO RK&11-06 PERF _EXEC
01-DEC-77 14:53
CZRePC.P11

MACY1l

30(1046)
01-DEC-77
15:04
LOAD DISK EXCLUDED RRERS
.SBTTL
@S
BB
B W
B
B
G
RIS
W

SRS

BB WL W BB B

SRR

WI G
G
B
€W

SRS
B

CALL

LB R

eswewsws
o

PRGE

112

SEQ 0110

LORD DISK EXCLUDED RRERS

ERERARRRRARRRRRRRRRER
T RRRRRERRRAA AR LR
EFRRARARBRRRRERBARRRNSD
NS

ER SRR

S016
S01
S0!
S0l

GO9

THIS ROUTIN? HIL% QC??PT TIY

LOAD APPROPIATE

INPUT FOR EXC#UOED QRERE AN

IDENTIFICATION NUMBERS IN

THE EXCLUDED ~RERS OF

THE PARAMETER BLOCK.
THE FOLLOWING THREE FORMATS ARE
ACCEPTED BY THIS ROUTINE:
CcyL

CYL, TRK

cvLl, TRK1,CcvL2,
TRK2
THE FOLLOWING FORMULA

IS USED:

CYLé!SB#TRK1i22+1 = BEGINNING OF EXCLUDED RREA
CYL2%b6+TRK2#22+1 = END OF EXCLUDED RRER

USE

R1
R3
RY
RS

RDDRESS IN EXCLUDED ARER
ADDRESS OF INPUT STRING
ADDRESS IN INPUT STRING
PARAMETER BLOCK RDDRESS

TO PRINT>
RES Rgtnggggc
{gn
<98805535
FOR
cnnn?ncg
REYURN OR CONTROL Z <t2> DETECTION>
¢ADDRESS FOR CONTROL C <$C> DETECTION>

RE TURN

HH YY1 2222222222222 222223:X22222222X2X2X2X22X22 22222222222 2X22 2% 23

020506

012037

0e0s1e

104401
000000
Q4401

4037

021132
021154

020514

060252
020340

LDEXAR:

MOV

1$:

TYPE

2s:

JSR

RO, TSTOEF

TYPE

PARD18B

45§

458
MOV

JSR
0s
MP
BLO

027154

ggt

00lel16

ADD

001616

MOV

64§ :

TSTB

BEG

;LORD NUMBER CF EXCULSION ARER

: TYPE “NTH EXCLUDED AREA ="

.WORD

30%

0OS4146

020570
0e0s7e

(RO)+,2%

:CHECK FOP DEFAULT PARAMETERS

: COMMA osrscvso
:CARRIAGE

R3,-(SP)

PC,OCTBIN
LSTCYL, (SP)
29s

Egg;.sansn
(5P)+, EXAREA

R3, R4

(RY)

108

RETURN DETECTED

1Eggone
CONTROLbUSFER
& <&noBSsés
BETECTED
TO BINARY

:CONVERT
:ERROR RETURN
sCHECK IF
LEGAL CYLINOCER
INO,
TRY RGAIN

:MULTIPLY CYLINDER ADDRESS BY 3

:STORE BEGINNING OF COMMAND STRING

:CHECK FOR CRRRIAGE RETURN

:YES.

EXIT

CZR6PCO RKb11-06 PERF EXEC

CZR6PC.P11

MACY11l

01-DEC-77 14:53

01-DEC-77
15:04
LOAD DISK EXCLUDED RRERS

30(1046)

575 BSRead Agtdns
60 G

g 86473

(RY)
385

cu cx AF

5087

020650

: CONVER

020662

S09S
S09%
5097
5098
5099
S100
S101
5102
S103
S104
2182

020672
020674
0207
0207
020704
020710
020712
02071
0207
020724
020726

5107

020732

5108
5109
5110
S111

07
020736
020742
020744

122427

204973
14

000054

1517
121427
001514
010446
824737
1132
023716
103504
011637
006316
062637

5127

02102

103041

TACK

(sp)+,sxnnsn

'STORE VALUE

(RY)

cugcx F?R CRRRIAGE RETURN

éR:)*’."
(su)
209

(R4), 8",
308
R4, - (SP)

'080
; TIPLICATION

:THROW RWAY MOST SIGNIFICANT BITS

gogXT CHARACTER
cgsééorgg
cutcx IF ?na §QG£ RE TURN
TRY AGARIN

cueéx a COMMA
RAGAIN
‘YE
srohsBUFFER
RDDRESS
10 axnanv

%gICYL,(SP)

cuscx xr LEGRL CYLINLER

00lee20

(gg),sxnasn+a

001820

(SP)+,EXRRER+2

(

66%:
000054

2116
0o07E0 Q04733 0SHIYG
o113 833768
022716
103456
063716
012746
004737
908216
012%37

LEGRL TRACK

027154

&81%86

020766
020772
020774
021000
021004
021010
021012

HECK 1

Eg SRT

5118
5113
120
Si21
Sige
Sle3
éigg

TO ex
NARY

ERROR RF

PC.OCTBIN

Si{g
020;%84 00137; 0000sH4
gllfl 838?
831742

urren ADDRESS

0S4146

014 &
122427
001373
10571M4

TRY RGRIN

TRY:fif% PLIER
PUT HULT PLIE SN TACK(

(SP)

308

0000S4

ISTORE

Eqnnsn 3P
(SP)+
65%:

5082

(SP)

NEXT CHRRACTER

nnxncs RE TURN

CH CK IF C nnn

PC. “CTBIN

Pg$h ULT

001616

TEST

:YES,

01%63?

'NO

30s

RY, - (SP)

SEQ 0111

cuscx ron
go

(RY), 8’

0S4146

113

(RY)+, 8",

82,

PAGE

64S

198 coooss

001547

HOS

000002

001620
000026
054714
00le20

Siek 8518%8 883739 00iele 00lee0

)

(RY)

308

(RY)+, 8",
(RY)

66%

308

(R4), 8’
3

LTIPLY SYLINDER ADDRESS BY 3

CHECK F?R CARRIAGE RETURN

‘YE

CHECK ron COMMA
:NO
2 NEXT CHARACTER
cutcx 1F CARRIAGE RETURN

:YES,

TRY AGAIN

,cug K gr S MMA
AGAIN
TRY
'YES,

S 322905 X ;ETURN
IS
82, (SP)
‘CHECK IF LEGAL TRACK
29

Exnncn+e (SP)
T-(SP)

PCpSfiULT
(S

(SP)+ EXARER+2

:TRY RGRIN

iPUT nULT%PLi R ON STACK
'PUT MULTIPLIER ON STACk

DgDH?LTIPLICflTION
STORE VALUE

(SP
{THR N AWAY M ST EISNIFICQN’ BITS
EXQRER,EXQRER+E;CHECK IF LEGAL RANGE
3098
:NO, TRY AGAIN

021030

021034

013721

30
gé

021040
021044

062700
000200

021046

013746

021064

011621

MAC¥11 30(1046)
O1-DEC-77
15:04
LORD DISK EXCLUDED RRERS

001616

MOV

000004

ADD
RTS

001620

PRGE

114

EXARER, (R1)+

-LORD EXCLUDED AREA

84, RO
RO

;ADJUST RO
*RETURN

EYAREA, - (SP)

;LORD MULTIPLIER

(SP), (R1)+

:STORE EXCLUDED ARER

MOV

EXAREAY2, (R1,)+

MOV

SEQ 0112

Pt Pt Bt

s ot Pt Bt ot st Pt P

Pt Pt

NN
D0
oo

PCO RKB11-06 PERF EXEC
PC.PLL
01-DEC-77 14:53

109

021052
021056
021062
1066

000026
0S4714

062716

000102

021072

0iesel

021076

062700

000004

021074

1102

001616

012746
004737
005216
005726

000200

(021104

013721

001616

4?7

Q21122

062700

000004

S0
§]
62
63
S4

021130
021132
021136
021140
021142

021146

000137

€7

021152

005720

021156

000200

Pt (o Pt

s P

e Bt Pt ot (s s Pt Pt it P

34
35
3%

4s
46

021110
021116
021126

(021154

062737
013721
000200

005726
010337
104401
000000
104401

011000

000026
001616

021140
001164

108:

MOV
JSR
INC

MOV
RDD

MOV
15T

208:

31s:

020512

408§ :

453 :

(SP)4, (R1)+

: THROW AWAY MUST SIGNIFICANTM

RTS

*RETURN

MOV

EXARER, (R1)+

ADD
MOV
ADD

298:
308:

866. , (S5P)

:LOAD MULTICAND
:CALCULATE VALUE
: INCREMENT RESULTS

(5P)+

ADD

001616

822.,-lSP)
PC, SAULT
(SP)

84, RO

#22. ,EXAREA
EXAREA, (RI)+
&4, RO

{ADJUST RO

:STORE EXCLUDEED ARER
sADJUST RO

RTS

'RETURN

TST
MOV
TYPE

(SP)+
R3, 318

.WORD

IMP

SQUES

:RDJUST STACK
:LOAD BUFFER ADDRESS
:TYPE RECEIVED INPUT
:BUFFER ADDRESS
STYPE QUESTION MARK

TST

(RO)+

;ADJUST RO

RTS

: RETURN

TYPE

MOV

(RO),RO

:TRY RGARIN

:STORE SPECIAL RETURN ADORESS

BITS

CZR6PCO RKE11/06 PERF_EXEC
CZRePC.P11
01-DEC-77 14:53

Ja9

MACY11 30(1046)
01-DEC-77
15:04 PAGE 115
GENERRTE NEW RANDOM COMMAND

SEQ 0113

gigg

.SBTTL

glbs

;i!!lllllll 1Y Y 2222222222:12222:3222222222222XX2XX2XX222X22X222222 3

5164

5165

§166
5167
5168
£169
gi;?
5172

USE

Sa
tx

Ri
R3

ZXCLUSION AREA COUNT
EXCLUSION AREA INDEX

s%
it
Sx
; %

5183

‘¥

5184

5185
8186
5187
5188
5189
5190
5191
5192
5193
5194

3
1
tx
1
; #
tx
x
Tx
tx
‘%CALL

gigg

gsgé

021170

005065
005065

00G146
000150

Se03
5204
5205

021174

032777

040000

021202

001454

€207

021210

001020

021234

016565

206

021204

5208
5209
6210

021212
02i220
021226

Sclg

021242

213
gsig

RY
RS

SECTOR POSITION
PARAMETER BLOCK RDDRESS
SECTORS TO BE TRANSFERRED

(SP)

IF SWITCH 14 IS SET,

THIS ROUTINE WILL SEEK TO THE PREVIOUS

DISK POSITION OR REYSSUE THE LAST COMMAND DEPENDENT ON THE
P.SEEK FLAG IN THE PRRAMETER BLOCK.
ROUTINES USED
A
ot
Q. PUSH
SRAND
SMULT

JSR

RETURN

PC,GENERT

: ; 3636 36 36 36 9 38 36 3 36 3 36 36 3 26 3% 36 3¢ 3 3 3 3 3 3 3 3 3 3 38 3 3 36 3 36 36 36 36 3 3 36 3 36 3 36 36 3 % 3% 3 36 3% 3 2 3 26 3 2 3 3 9% 2 % %
021160
021164

211

-—

- %

gigg
199
200

R CHECK 1S MRDE

5177
5178

5182

THIS ROUTINE WILL STORE THE PREVIOUS

ON THE DISK ADDRESS AND THE DISK ADDRESS + THE NUMBER OF
SECTORS TO BE READ OR WRITTEN,
IF THE DATA TRANSFER WILL
CAUSE DATA TO BE READ OR WRITTEN BEYOND THE MAXIMUM PACK
ADDRESS OR LSES ANY PART OF AN EXCLUDED ARER, A NEW DISK
ADDRESS WILL BE RANDOMLY GENERATED.

A
'y

5179

IF SWITCH 14 IS RESET,

COMMAND AND GENERATE A NEW RANOOM COMMAND.

T
T
;¥
Sx
H

5173
8174

5175
5176

GENERATE NEW RANDOM COMMAND

D2lo46
021250

005065

000212

105765

000211

112765
112765
016565

177777
000117
000136

004037

0S1406

001324
000207

GENERT:

000140

CLR
CLR

P.RECT(RS)
P.DSTT(RS)

:CLEAR ERROR FLAGS AND
:
"RETRY COUNTS

BIT

#SW1Y, ISWR
108

;CHECK IF
NEW COMMAND
:”
SHOULD BE GENERATED
‘YES, GENERATE NEW COMMAND

SYES,

CLR

157736

BEQ

000211
000001
000002
000004

P.ERR(RS)

TST8

P.SEEK(RS)

MOVB
MOVB
MOV

#-1,P.SEEK(RS) :INDYCATE SEEK HAS BEEN ISSUED
8SEEK P.CMND(RS) ' :LORD SEEK PARAMETERS
P.LCYL(RS),P.CYLN(RS) ;LOAD PRIOR CYLINDER

JSR

RO, Q. PUSH

BNE

MOV

CINITG
RTS

: CHECK é‘ PREVIOUS CYLINDER ISSUED

P.LSEC(RS) P.SECT(RS)

SET UP DATA TRANSFER

:LOAD PRIOR SECTOR AND TRACK

:PUT PARAMETER BLOCK ON

;"
"COMMAND INITIATION QUEUE
'RETURN

gEn

anspco RK611-06 PERF EXEC
CZRePC.P11
01-DEC-77 14:53

KO9

MACY1l 30(1046)
O01-DEC-77
15:04
PAGE 116
GENERATE NEW RANDOM COMMAND

5216

021252

10S065

000211

218
€219
220
6221
5222
§223
o4

021264
(21272
021300
021306
021310
(02i3le
021324

116565
016565
1227656
001003
062765
016565
016565

000123
000124
000131

000001
000002
000001

000126
000130

000200 000014
000004
000012

2$%:

§227

021334

00S077

157604

108:

S2£9
5230
€231

021342
021344
02134

010346
010146
010046

5217 021256 116565 000122 000121

gggg 021332 000207
§528

021340

010446

5232
€233
€234
€235
€236
€237
§238
239
240
S24l

021350
021356
0213t4
Q021372
021400
021406
021412
021416
021422
021424

c243
Sa44
5245
So46

021432
021436
021440
021444

004737
005726
042716
001002
0127.6
116604

5248

oaxqga

001401

021456

011646

go42

247
249

6250

5251
5252

021430

021450

021454

02146
Q0214

(16565
016565
016565
016565
116565
004737
013746
013746
005216

105716

118:
128:

113746

055126

6266
6257
6258
5259
260

021504
021510
021514
(021516
021522

042716
126526
101462
113796
042716

021526
021532

000004
000001

111655
112665

000001
000154

000152

021566
021564
021570

112765
062665
005565

000123
000156
000160

€271

021574

005565

000162

000123

INDICATE DATA TRANSFER I1SSUED

P.ROPT(RS),P. oPat (RS)

;LORD LAST DATA PATTERN

RTS

RETGRN

CLR

JSTKS

:LOCK OUT TTY INTERRUPTS

MOV
MOV
MOV

R3. -(SP)
R1.-(5P)
RO’ -(SP)

:STORE R3 ON STACK
:STORE R1 ON svncx
: STORE RO ON STACK

MOV

R4, - (SP)

:STORE RM ON STACK

Move
MOV
MOV
MOV
MOVB
JSR
MOV
MOV
INC
JSR

P.RCMD(RS),P.LCMO(RS) ;STORE LAST COMMAND
P-RCYL(RS) P.LCYL(RS) :STORE LAST CYLINDER
P.RSEC(RS)'P.LSEC(RG) :STORE LAST SECTOR AND TRACK
P.RWC(RS) . P.LWC(RS) stone LAST WORD COUNT
P.RDPT(RS),P.LOPT(RS)
' :STORE LAST PATTERN
PC, SRAND
,GENERATE RANDOM NUMBER
SLONUM, - (SP)
:LORD MULTIPLIER
MAXBUF ., - (SP)
:LORD MULTIPLICAND
(SP)
: INCREMENT WORD counr MAX.
PC, SMULT
CQL ULATE WORD COUN

BIC
BNE
MOV
MOVB

s100003 (SP)
118
84, (SP)
1(8P),RY

nnxs IVISIBLE BY4 AND ¢ 32K
:IF NO
RO se uono COUNT
: MAKE
COUN
CRLCULRT nuneen OF SECTORS TO

BEQ

12%

xr Evgu SECTORS DO NOT MODIFY

TST8

(SPY+

(SP)

THROW AWAY LEAST sxcuxrxcnnv BITS

TRANSFERRED

INC

NEG
MOV

(SP)
(5P)+,P.WC(RS)

; GENERATE NEGATIVE NUMBER
:LORD
PRESENT WORD COUNT

SHINUM, - (SP)

s RANDOM NUMBER FOR COMMAND

MOV

(SP),-(SP)

,snvs WORD COUNT

ADD
ADC

81,P.NODR(RS)
P.NODR+2 (RS)

BIC
CMPB
BLOS
MOVB
BIC

8177720, (SP)
'KEEP LOW 3 BITS
P.RATE(RS), (SP)+’ DETERMINE IF READ OR WRITE
15$
; 18SUE RERD
SHINUM+1 - (SP) nqnoon NUflBER FOR PATTERN
8177760, {SP)
'KEEP
LOW 4 BITS

TST8

P’ nuck(RS)

s CHECK IF AUTO WRITE CHECK

BEQ

13§

YES,

BNE
MOVB
BIC

055126
177707

00I412

P.RCMD(RS) 'P.CMNO(RS) :LOAD LAST COMMAND
P.RCYL(RS)'P.CYLN(RS) :LORD LAST CYLINDER ARDORESS
8JRTCHK, P. CHNO(RS) :CHECK IF WRITE CHE
2%
'D0 NOT SET FLAG
#l.
WCK,P.PRST
c
Rsi
:SET
ISSUE WRITE FOR WRITE CHECK
P.RSECIRS),P.SECT(RE) :LORD LAST SECTOR AND TRACK
P RWC(RS),P.WC(RS)
;LOAD LAST WORD COUNT

MOVB
MOVB

001017
113746
042726

021554

6268
€269
€270

MOVB
MOV
CMPB
BNE
BIS
MOV
MOV

055127
177760
000122
000121

021542
021544
021550

5267

P.SEEK(RS)

MOVB

177770
000076

5263 021536 105765 000077
264
265
266

CLRB

15T

100003

000012

062765
005565

261
262

054714

416
12665

(021466
021474
021500

000135
000136
000140
000142
000144

005204

€253
354
255

000123
000124
000126
000130
000122
0S5030
055130
001354

18:

SEJ 0114

MOVB
ADD
ADC
ADC

:INCREMENT NUMBER OF ORDERS

(SP) ,P.RDPT(RS):STORE onrn PATTERN
(5P)$,P.DPAT(RS)'

133
SHINUM, - (SP)
£172770%,(SP)+

YES, ISSUE WRITE CHECK
Rnnbon NUMBER FOR WRITE CHECK
:CHECK IF WRITE COMMAND
ISSUE WRITE CHECK

$IRDATA, P.RCMD(RS)
! 153UE WRITE DATA
(SP)+,P.NWRT(RS) nob NUMBER OF WORDS TO BE WRITTEN
P NWRY+2(RS)
P.NWRT+4(RS)

CZRBPCO RK&11-0e PERF EXEC
01-DEC-77 14:53
CZRBPC. Pil

:ISSUE WRITE CHECK

8 WCK P PRET(RES
:SET NG WRITE FOR WRITE CHECK
81 P.NODR(RS)
INCREHENT NUMBER OF COMMAND ISSUED
P.NODR+2 (RS)
(SP,,P.NWRT(RS)
(SP)+,P.NRD(RS)

;ADD NUMBER OF WORDS TO BE WRITTEN
;ADD NUMBER OF WORDS RERD

P .NRD+4(R5)
18%

000411

bhsies

0o01e3

159

000001

18%:
c0s:

P NRD+4 (R5)

P.RCMD(RS),P.CMND(RS)

:LORD COMMAND

%100, RO

; LORD REGENERATE COUNT

RS, R3

;LOAD INDEX

85, Rl

LOAD BAD TRACK COUNT

sP. exnn R3

*CALCULATE EXCLUDED AREA INDEX

P.MNCL(RS)
) (SP) :,chLCULnTE
DIFFERENCE
KIP MULTIPLY
(SP)

SLONUM, - (SP)

2ls:

,Incntncnv DIFFERENCE

:PUT MULTICAND ON

'CALCULATE CYLINDER ADDRESS

P.MNCL (RS), (SP)

,CRLCULQTE CYL INDER

: THROW AWAY LERSE SIGNIFICANT BITS

(5P, P.RCYL(RS) sroae CYL INDER

P.nx?n(ng),rnp

uann
NINN
L

STACK

PC,SMULT
(SPY+

[y
—

001574

; ISSUE READ DATA

(SP)+,P NRD(RS) ;ADD’NUMBER OF WORDS READ
P NRD+2(R5)

218

0S5130
054714
000066
000124

R onrn,P RCHMD(RS)

PC, SRAND
,csusnnrs RANDOM NUMBER
ORE MAXIMUM CYL INDER
P.MXCL(RS),-(SP)

000066

P.MNTR(R5) TMPTRK+2

srgas nnx*n M TRACK
RE

MINIMUM TRACK

TMPTRK+2, TMPTRK ;CRLCOLRTE PERFERENCE

22%
-(SP
SHINUM+1 (SP)
TMPTRK, -LSP)
(sp)

0ssi27
001572

1($P),THPTRK
TM,

os4714
000001
000004
2es:
—— OO0

s
e e

o
e e

SWRTCHK,P.RCMD(RS)

P.NRD$2(RS)

OO+~ r—=0O
b e OO OV 0 e 9

00000
rrururun
PUNUS
s et

022050
022056
022064
022072
022100
022106
2e
ee
ee

13%:

000131
00200
00001
000154

P.NWRT4+4(RS)

066516

SEQ 0118

188

P NWRT+2(RS)

022044

000

i
WWwwwWwWwlWwwwww
L) 0= ds e Pt Pt Pt oot Pt Prut Pma
OO NCNLWN—-0O

00
R Do
RRRRIRRRRRL
RLRRER RRRRRRD
o
0t do hmt ot Bt e Bt ot Pt Pt
Pt Pt ot st ot Pt
ot o Pt e Pt Pt s Pt P
NNNN
NNNOCCT
O
o' PR EEEGAnNe
Noal
T OO
£
N)r—
o O-&DU‘:OID'BBG‘ m?g}om 8?8 £0
pd.

112765

LOS

PRGE 117
15:04
0i1-DEC-?7
GENERATE NEW RANDOM COMMAND

30(1046)

000441

o000
o000

021600

MACY1l

TMPTRK+2, TMPTRK

,xr-o, SKIP MULTIPLY

: MRKE * ROOM 9« STACK

:PUT IN MULTIPLIER ON STACK
:PUT TRACK NUMBER ON STACK
: INCREMENT DIFFERENCE
:CALCULATE TRACK

:STORE _TRACK

{ADJUST STACK
: CALCULATE TRACK

TMPTRK,P.RTRK(RG) ;STORE TRACK NUMBER
P.MXSCIRS), TMPSEC ;STORE MAXIMUM SECTOR
P.MNSC(RS) TMPSEC+2' ;STORE MINIMUM SECTOR
TMPSEC+2, THPSEC anCOLnTE DIFFERENCE
:IF=0, SKIP MULTIPLY
23$
=(SP)
HQKE ROOM ON STACK
$HINUM, (SP)
{PUT IN MULTIPLIER
TMPSEC, -(SP)
:PUT SECTOR NUMBER ON STACK

CZR6PCO RKb11-06 PERF EXEC

CZR6PC.P11

01-DEC-77 14:53

S
§3§8 BSSqu2 884959
054714
6330
gggg

022130
022136

116637
062706

6333

(022142

063737

662752

000001
00000

001600

001576

MACYL1 30(1046)

022200
8555
(022216

012616
833516
16
061604
004737
023704

gg:g

C22224

005713

S350
§35]
§382

0PzZ226
0z02030
Q0cee3e

6354
§355
6356
gggg

15:04

MO9S

GENERATE NEW RANDOM COMMAND

INC
JSR

001576
001576

000126

MOVB
RDD
238:

ADD

PARGE

118

SEG 0116

(SP
PC
SHULT

: INCREMENT oxrrsnencs
:CALCULATE
SECTOR

TMPSEC+2, TMPSEC

CQLCULQTE SECTOR

1(8P), TMPSEC
84,5P’

:STORE SECTOR
TADJUST STACK

MOVB

THPSEC P!RSEC(RSS §TS

A0P
MOV
JSR

%2%&‘"5&#5”’
A
822.
tsg
-nULTIPL?cano
- 22 SECTORS/TRACK
PC_SMULT

ASL

233
05516d
0e3316 00,552
83
85%190
§2274
0026
53
ee17y
4737
0S4714
340
534
§34
€343
S344
8345

O1-DEC-?7

(SP

IPLY

THROW AWAY MOST SIGNIFICANT BITS
noo SECTOR
*CONSTANT FOR BRD TRACKS
:RDD NUMBER OF SECTORS

40§

:CALCULRTE NEW DISK RDDRESS

TST

(R3)

cngc§sxr BAD TRACK INTERVAL

001407
021623
103407

BEQ
CHP
BLO

308
(SP), (R3)+
268

iNO, ISSUE COMMAND
ICHECK IF IN BAD TRACK INTERVAL
'NO, cwscx NEXT BAD TRACK I

022236
022290
0e2e42
022244

103413
065723
005301
001367

BLO
15T
DEC
BNE

404
(R3)+
Rl
25%

. YES CRLCULRTE NEW DISK ADDRESS
*ADIUST R3
"DECREMENT BRD BLOCK COUNT
:IF NOT 0 GET NEXT BAD BLOCK

6359

[p22246

005726

(SP)+

.ADJUST STACK

8§36]

022256

016565

gg:g

§353

5360

gggg

S364

§365
§366

022210
022212

022222

(022234

022050
022264

022266

103421

027074

027162

258

000416

CMP

26$:

000124

000126

Eggg

022274

000137

021716

370

022300

013737

001452

§37¢

012600

6377
5378

022526
022330
022332
022340

012603
012604

022%02
022312
022316

€376 855354

€379
§380

1 ‘Hg%
0047
005037

000004

060307
013004
177776

177776

12661

012777
00G207

308:

000100

156604

TST

RY,

:CHK IF DATA XFER EXEEDS DISK

(R3)

MOV

P.RCYL (RS),P.CYLN(RS)

45§

; RETURN

MOV

4os:

005300
001402

€37
8372
33;3

000002

162604

02270
022272

5367

BLO

020413

016565

HOCDI, RY

CYLINDER BY 3

(SPY+_(SP)
THPSEC (SP)
(SP)
(SP),RY
PC, GETNUM

001576

MOV
ADD
INC
ADD
JSR
CMP

ECTOR NUMBER

SuB

P.RSEC(RS) P.SECT(RS)

;LOARD CYLiNDER

:LORD TRACK AND SECTOR

DEC
BEQ

RO
418

(SP)+,RY

:GET NUMBER gr SECTOR rnnwsrsnneo

IMP

20%

'GET ANDTHER DISK ADDRESS

41S:

MOV

RKPRI , PS

:LOCK OUT RKO& AND TTY INERRUPTS

45§ :

MOV

(SP)+,RD

MOV
MOV

(SP)+ R3
(SP)+ RY

TYPE
JSR
CLR

MOV

MOV
RTS

'DECREMENTY REGENERATE
C
DROP DRIVE CANNOT csnsnars
RANDOM DISK RDDRESS

PQPOéU
AC, DROP
PS

TYPE “UNRBLE TO GENERATE NEW COMMAND*
:DROP DRIVE
‘ALLOW RKOE INTERRUPTS
ron

(SP)+ RI

TOR

RESTORE 93
'RESTORE R

s1E,a$TKS
PC

*ALLOW TTY INTERRUPTS
'RETURN

MACY11

NO9

PW3E
30(1046)
15:04
01-DEC-77
GET AVRILIBLE BUFFER ROUTINE
.SBTTL

177776
001452
001320

g2234e

17?7776

GETBUF:

19:

022440

Q2c4eH
0224230

001354

0ce43e
022436

012637
000207

oc14s2
001320
177776

MOV

(sp*

RK#RI PS

BWRITQ, RS

108
RO,BUFFQL

10%:

:LOCK ouT RKOB INTERRUPTS
:CHECK IF _COMMAND WRITING FOR BUFFER
RETURN IF QUEUE 15 EMPTY

;ALLOCATE BUFFER
:NOT ENOUGH MEMORY RETURN

:GET NEXT PRRMETER BLOCK FROM
BUFFER HRIT QUEUE

'noJusr
STAC

RO, Q. PUSH

:LOAD BUFFER
:PUT PARAMETER_BLOCK ON

;ALLOW RKOS

INTERRUPTS

COMMAND INITIRTION QUEUE

1§91T6 RS

:LOCK OUT RKOB INTERRUPTS
:CHECK IF COMMAND WAITING FOR BUFFER
:YES, TRY TO ALLOCATE BUFFER

(SP)+,PS
PC

;RESTORE PSW
;RETURN

RKPRI,

177776

; STORE PSW ON STACK

(SP)+

PS
PC,LDDATA

177776

023056
0s1406

SEQ 0117

GET AVAILIBLE BUFFER ROUTINE

RU,Q.POP

0S1466

119

yZPbP'O RK61i-06 PERF EXEC
ZRSPC.PLI
01-DEC-77 14:83

I [ IIoowhhbhmbwnmnnmmg UV
MY 0 e s Be Pt Pt ot Pt Pt e
IJ&ILIILI&CILII&I?J&?

CZREPCO RKB11-06 PERF_EXEC
O1-DEC-77 14:53
CZR6PC.P11

MARCY1l 3g(1046)

wrn omgwgmgumwggmflwazw NhOOWVOMIUNb088V88?U8

15:04

UFFER ALLOCATION ROUTINE

.SBTTL

ununnn W i [¥4) nnuONIININIANN nnInNNINININININININNINININIVHWNIUNIUY
LLrLL4a
&
£
£
&
£
n

01-DEC-77

B10O

PAGE 120

SEQ 0118

BUFFER ALLOCATION ROUTINE

RIS
IS ISIISSSISSS S22 2222223222222 23222222222 222 20

‘i
x

THIS ROUTINE WILL TRY TO ALLOCATE R MAIN nsnonv BUFFER

‘n

IF MEMORY IS AVAILABLE.

(CALLED BY PRIORITY 7;

USE

WORD COUNT ® 2

FREE BLOCK TPBLE INDEX

PARAME TER BLOCK RDDRESS

‘®CALL
o

JSR
RO, BUFF
<ADDRESS Of eurrsn MEMORY NOT RVAILABLE ROUTINE>

FREE BLOCK TRBLE COUNT

RETURN

s Pt Pma
s B

Q00000

BUFFAL :

DONON L

022554

:STORE R3 ON STACK

MOV
MOV

P.WC(RS) ,RI
Ri,P.RHCIRS)

:STORE WORD COUNT
:STORE WORD COUNT

ASL

BHI

HALT

18:

o
o
N ==~
W ON)

LAY
LAY Lo Y

Q01672
000011

MOV

;GET_ACTUAL WO

FBLKC,RY
2s
#FBLKT,R3
£9. RY

:STORE FREE BLOCK TRBLE ADDRESS
" RETURN D;r BLOCKS AVAILRBLE
'LORD AODRESS OF FREE BLOCK TABLE
: HANG xr ns; BLOCK COUNT IS GRERTER
OR EQUAL

TO 9

(R3)+.-(SP)

:STORE BEGINNING OF FPEE BLOCK

158

757

TMULTIPLY WORD COUNT BY 2

BEQ

TSt

:STORE R1 ON STACK

R1, (SP)
c§

BHI

000145

R1.-(5P)

ADD
8CS
cMP

177777

;STORE R4 ON STACK

R3,-(SP)

MOV
BEQ
MOV
CMP

001670

RY,-(SP)

NEG

0001?2
000010

005720
112765

:Cg
MGV

ooocle
000130

858R:R2 8ofRee Rl

00000

(R3), (SP)

169

(R3)+
(SP)+

:ADD WORD COUNT
cuecx IF ADDRESS OVERFLOW
CHECK IF
ENOUGH ROOM
YEJ, ELIMINRTE BLOCK
v©S.

SHORTEN BLOCK

RDJU R3

pa,usr STRCK

2s:

DEC
BNE
MOV
B8R

RY
13
(RO}, RO
25%

: DECREMENT FREE BLOCK coun1
"EXAMINE NEXT FREE BLOC
:LORD RETURN RDDRESS
: RETURN

5§

TST
BR

(SP)+
28

;RDJUST STACK
'RETURN

108:

MOV
MOV
MOV
TST
MOvB

-fR3),P.R0AL(RS) ;LOAD BUS ADDRESS
(R3),P.BALO(RS) ;(ORD BUS RDDRESS

(sP)$, (RI)

(RN 4+’
# ,P.BUFF(RS)

:LORD NEMW anss

:ADJUST RETUR
: INDICATE THRT BUFFER HRS BEEN ASSIGNED

5470
47
4?7

S473
S474
S47s

0eze20

001404

Q22822 818153

022626
02263
0c2e
022634
022636
022640

000145

20s:

25%:

012604
000200

—

—un

Nt P

A'd
+ O
o
DO
rmw

BUFF (RS)

+ 4+

£t G581 88233
S46

127777
001670

; STORE WORD COUNT

DD
Wi

6%;721

MoV
MOV
MoV
TST
787

SEQ 0119

;RETURN

; LORD BUS RDDORESS

;ADJUST STARCK
QDJU%T R

QR&? ATE ;ng BUFFER HRS BEEN RSSIGNED

BESaEREm RERA1R-BL6ck €BinT
-TRQNSFER

TWO WORDS

oecnensnr REMAINDING BLOCKS TO BE RDJUSTED

00D
L

546y

158

121

2ss
wr w(JD

$its Bt Bl 838418
BuEE Beseis

PRGE

BUFFER ALLOCATION ROUTINE

XKe

010301

Cl0

OV+ 4+
.

022564

1S:04

rgre

000423

01-DEC-77

022562

30(1046)

VO Vs £
oununVO
D a:mlnanAu
=0 oWo~

c4sg
8459
S460

MARCY11l

nNOYMNg~~~~
1 D

CZR6PCO RK611/06 PERF EXEC
CZRePC. P11
01-DEC-77 14:53

O, TRANSFER NEXT TWO WORDS
SIF NOT

'RESTORE Rl
*RESTORE R3
*RESTORE R4
*RETURN

CZR6PCO RKE11-06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:S3

MACY1l

30(1046)
01-DEC-77
15:04
BUFFER RELERSE ROUTINE

.SBTTL

480
481

5482
5483

D10
PAGE

l22

SEQ dJ120

BUFFER RELERSE ROUTINE

YT IR I 22 2L

IR LR

IR TSI ILSIS S

ITS 2SS L SIS 222

M BRI

gq g

S a

THIS

5487
Susg

USE

O .

--------

hatmi

5§49]
5492
5493

S %

LAST ADDRESS OF RELERSED BUFFER

FREE BLOCK COUNT

484

486

248

»*

‘¥

494
495

E4%b
S49?7
5498
499
5500

:#CALL
¥

B55eus BiB3de

5506

022652

022646
0o26sQ

010146
010046

105765

BUFREL:

00014S

5510

Qcee70

0OSHOL

5513
5514
581S
SSi6

022700
022702
022706
022712

061601
012703
013704
001424

5518
5519
5520
Ssel

022714
022716
022720
Oz27ee

022301
0QI427
101005
(Oe23le

BEse7S BYE2RL

BEGINNING

PC, BUFREL

68:

TACK

TORE R4 on

Eguscx R? gfir?snRSSIGNED

NEG
RSL

R1
R1

'GET ACTUAL
‘MULTIPLY BY E

RDD

(5P), Rl

3. -(5P)

gss
©F (RS) e
p-BLRES

TORE R3

;go
IEhERERSSEFOE Tgt LOCRTED
HORD_ COUNT

P.RBAL(RS),-(SP) Ebr
$FBLKT,R3
FBLKC, RY

TACK

;cthu#nT

BUFFER noonsss

:LORD FRE
:STORE FREE

FINARL
R

0CK TneL
BLOCK COU

noonsss

:ADD FREE BLOCK

(R3)+,R1

: COMPARE EE
of aurrsn AND FREE BLOCK

BHI
CMP

13
(R3)+, (SP)

:LESS THEN noo FREE BLOCK
;conpnasflgscxnurnc OF BUFFER

BEQ

158

cMP

BEQ

108

DEC
BNE
BR

RY
18
8s

MOV

R4, -(SP)

ASL

389
000004

2X2222X222222X2X2X2222X222XX2222222 2224

P. \UFF (RS)

157

022750
022754

RELERSED BLOCK

1STB

RSL

0
062700
014340

ADDRESS OF

WTM, -(SP)

BEQ
18:

INDEX

MOV

MOV
MOV

001672
001670

BLOCK

PARAME TER Eb°SK noonssg

(5P)

MOV

oooiaz

cs:

SS34
§535

FREE

gfga
MOV

2208 D52680 10S0Le 0OOIYS
14
2208 Sgessw 472267 880133
2214

JSR

aurrsn USED.

NEW END OF FREE BLOCK TABLE

RE TURN

:H Y Y Y 21 2222222212222

2205

5504
5505

ROUTINE W]L

RDD

MOV

‘EQUAL ME

CKS

AND

OF FREE BLOCK

osc HENT FREE BLOCK COUNT
:GO TO NEXT FREE BLOCK
:GO RDD BLOCK
: PUT Renaxuxnc COUNT ON STACK

(SP)

‘MULTIPLY BY
4

-(R3)

: DECREMENT R3 BY 2

(SP)

§§P&5'93
84’ RO

-(R3),-(RO)

:CALCULATE OLD END OF FREE BLOCK TARBLE
:CALCULATE NEW END OF FREE BLOCK TRBLE

'MOVE TRBLE

CZR6PCO RKb11/06 PERF_EXEC
CZR6PC Pll
O1-DEC-77 [4:53
022756
022760
022762

014340
00S304
001374

022764

005237

001670

MRCY11

01-DEC-77
15:04
BUFFER RELERSE ROUTINE

30(1046)

8%:

000423
023000

018643

108:

005726
00S304
001402
021301

15%:

£7a42l

MOV
DEC
BNE

-(R3),-(RD)
RY
X;

INC
MOV

FBLKC
(SP)+.

R1, RY)+
2s$

MOV
BR

(SP)+,-(R3)
25s

TST

023044
023046
023050
023052

023054

NCREMENT FREE BLOCK COUNT

4 ;8RE BEGINNING OF FREE BLOCK
’

0
'

RE END OF FREE BLOCK

RETURN

:LORD BEGINNING OF FREE BLOCK

'RETURN

;ADJUST STACK

20%
R1,-(R3)

vss

R3, RO

010300

209%:

MOV

25%:

;D ECREMENT FREE BLOCK COUNT
i1 F NOT ZERO, "OUNT

:DECREMENT FREE BLOCKS LEFT
'NO MORE FREE BLOCK ACJUST END
cuccx IF RELERSED BLOCK END=

169%:

012600
012601
012603
012604
000e07

SEQ@ 0l21

123

RY
168
(R3),R1

BEQ
MOV

001670

(SP)+

PHGE

DEC
BEQ
CMP

001402
010143
ooo412

S
005337

(R3)+

MOV
BR

TST

157

023040

EL1O

2s¢

-(R3)

(RO)+

ASL
DEC
MOV
DEC
BNE
DEC

RY4
RY
(RO)+, (R3)+
Y
218
FBLKC

MOV

(SP)+,RO

MOV
MOV

MOV
RTS

(5P)+ R1
(5P)+.R3

R
(SP)+
PC

FREE BLOCK BEGINNING

MERGE BLOCKS

:LORD END OF FREE BLOCK
RETURN

;STORE R3 FOR BUFFER MOVEMENT

:ADJUST R3
:RDJUST RO
SMULTIPLY COUNT BY TWOQ
: DECREMENT rnnnsrsn COUNT
:MOVE TABLE ENT
oscnsnsnr cou
11F NOT
0, CONTINUE MOVE
:DECREMENY FREE BLOCK COUNT
; RESTORE RO

!RESTORE F1
{RESTORE R3
RESTORE RY
ETURN

CZREPCO RKE11.06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:53

MACY1l 30(1046)
Gl1-DEC-77
LORD DATA BUFFER

2223

.SBTTL

15:04

F10

PAGE 124

SEQ Q122

LORD DATA BUFFER

gg;&

H ‘!iiillillllll!!llllll!!!lilll!llllllll»lll{ill!!ll!liillliiill!l

Sg;;

THE REGISTERS BE USED RS FOLLOWS:

6579

5582

‘e

5588

s ®

5580
5581

§583
5584
5585
5586
5587

e
i~
e
S
tx

5589
5590

SS9l
£592

:®CALL
Sk
R
1

5§59y

5593

5595

s %

Rt
ET T %

023056

010446

LDDARTA:

023060
3062
023064

010346
010246
010146

5613

023074

016501

000130

5615

023102

122765

000121

5614
616

023066

010046

023100

005401

023110

0061005

023116

001375

023112
023114

Se22

023124

S62S

Seeb
5627

See8

'
PRT
'
PAT
WORDS (N) ! NO. OF PAT. WORDS (N)
RANDOM DARTA

!
i

ZERO FILL

'
!
i
i

WORD O
WORD 1
WORDS 2
TO N+l

'
i

WORDS N+2
70 255

'STORE R3 ON STACK
;STORE R2 ON STACK
:STORE R1 ON STACK

MOV

P RWC (RS) , R1

; STORE_WORD COUNT

CMPB

#RDDATA,P.CMND(RS) ;CHECK IF READ DAT

:STORE RO ON STACK

:GET BUS ADDRESS

:GET POSITIVE Nuneen ron WORD COUNT

25%

nssrons REGISTERS

MOVB

P. DPQT(RS) RO

;STORE PATTERN COUNT

006316

ASL

(SP)

0S001¢

8IS

3s:

116500

023136
023140

006316
006316

000121

BNE

(5P)

hanL<Rs> R4

sNO.

010046
006316

023142

;STORE R4 ON STACK

R3,-(5P)
R2,-(SP)
Rl-(sp)

NEG

000001

RY,-(SP)

MOV
MOV
MOV

5§

005024
005301

023130
023132
023134

MOV

CLR
DEC

(RY)+
Rl

BNE

ggg? 023120 000137 023270
6623
SeeN

CPU ID
NO. OF PRT.

MOV

3070 016504 000132

5617
S618
5619

'
i
i
i

;*
ettt
sttt *
X
:; 36 3636 36 36 36 36 3 3 36 3 36 3 3 3 3 3 3 36 36 36 3 3 36 3 36 3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 B W W 3 3 3 3 I W %X HEKE XX EEEEER

5608
5609
So10

5612

PC,LDDATA

Bommmmmmm———m
e ————— e Bommemmm
e e Bommmm—m
e»

%
S%

5611

JSR
RETURN

BUFFER ADDRESS
PATTERN RDDRESS
WORDS LEFT IN SECTOR
WORD COUNT
PATTERN COUNT

5601
5602

gggg
gggg

ADDRESS OF PARAMETER BLOCK

RY
R3
R2
R1
RO

THE DATR WILL LOOK RS FOLLOWS:

¥
S
T
Sx

5600

-—

5596
5597
5598
5699

5607

USE

e
S

JIMP

S§:

MOV
ASL

ASL
ASL

RO, - (SP
(SP)
(SP)
(SP)

RO, (SP)

LORD BUFFER

TCLEAR eurrsa BEFORE RERD
caecx IF DONE
CONTINUE

:STORE PARTTERN FOR rxasr WORD
'MULTIPLY PATTERN BY
4 FOR
.

REDUNRCY

:STORE FIRST WORD OF SECTOR

vZRbPCO RKE11-06 PERF _EXEC

CZRePC.P11

S629

023144

113766

833120

12220

8331?2
154

b 3

164

g&gg

MACY1l 30(1046)_

01-DEC-?7 14:53

117 ?

00.°64

000001

1
ggg& 853193
625781 888395
000401

Se41

023206

010146

Se42
5643
ég:g
Se4b

023210
023214
0e3216

023222

Se4?
se48
Se49
S6S0
S651

023224
023c
02323
0

SeS

324

565

S654

3538

Q23242

S65S
Egg?

023246
023252

5658

0232SY

S659
ggg?

5668

#2854, ,RI

SEOSE Pg; ESSDQNBUCPUBIDEIN 1ST WORD

BHI

MOV

123

8254, ,-(SP)
138

R1 AS WORD COUNT
STOREUSESECTOR
COUNT = 254

12%:

MoV

R1,-(SP)

; STORE REMAINING WORD COUNT

158:

MOV

138:

?92

01370

162703

012700
000744

162703

005726

023272
023274
023276
023300

012501
012602
012603
012604

012600

000207

832.,R0

gSV

MOVB
Mov
MOV

000074

000040

000100

20$%

2S$

CHH&%TTE REST OF SECTOR WILL BE

(SP), 1(SP)
(SPY+, (RY)+
#8254, ,R2

:ADD_REDUNDACY
'STORE WORD COUNT IN 2ND WORD
:LORD SECTOR WORD COUNT

(R3)+, (RY)+

; STORE DATR PATTERN

R1
c0s
Re
RO
178

: DECREMENT HORD COUNT
!BRANCH _IF FIN
: DECREMENT
C OR COUNT
:DECREMENT PATTERN COUNT
s ZERO INITIg&IgE PATTERN

BNE

158

iNO

#32.,R0
118

.INITIRLIZ PQTT RN COUNT
; STRRT NEXT

T END

#60.,R3

suB

#64. ,R3
#32.,R0
158

; INITIALIZE PATTERN
; REPERT PATTERN

TST

(SP)+

MOV
MOV
MoV
MOV
RTS

(SP)+,R1
(SP)+,Re
(SP)+,R3
(SP)+,RY
pC

;RESTORE RO

MOV
BR

MOV

(SP)+,R0O

CTOR

CONTINUE 0 LORD DATA PRATTERN

suB

MOV
BR

178:

]

:LOAD PATTERN COUNT

OEC
BEQ
DEC
DEC
BEQ
TST

000040

ON_STACK

(29&1(R41+

118:

000376

005301
881417
5302
005300
00}407

012700
000756

023302

000001

012324

023260
023264

5625 8 32
Seb4
S66S
5666
5667

111666
O0lcbe4
012702

MoV

SEQ Jl23

HULTIPLY DATA _PATTERN BY 2
:LOAD DATA PATTERN ADDRESS

101007
S638 023176
023200 Qle?4s
000376
023204

CPUID, 1(SP)

PAGE 125

RO
PATTAB(PO),R3

5637
ggag

15:04

MOovB

ASL
MOV

004602

000040
o

O0Ol1-DEC-77

LORD DATA BUFFER

G10

:INYTIRLIZE

PATTERN ADCRESS

;INITIALIZE PAQTTERN ADDRESS

; ADJUST STRCK

;RESTORE
;RESTORE
;RESTORE
:RESTORE
;RETURN

Rl
R2
R3
R4

By BERF-6%8S. 63
ESRERE® pryot
5669
5670

MARCY11 39§h8qéiR59168§8-EER0A5:Oq

023304

032777

000002

155626

023312
023314

0010.i7
013768

001362

000220

000010
000012
000222
023362

000ec14
000e2e

823355

023332

H10
PAGE

SEQ Jl24

126

.SBTTL

FIND FIRST DATA ERROR

BUFERL:

8IT

8SW1, dSKR

ECHESgpszelNHIBIT SOF TWARE DATA

BNE

:YES,

s
i
[F_NO MOR
ARISONS,
RETUR
E.BQLO(RS),P.ERHO(ES)
'L898
888:ES§
SP
START
OF SECTOR
P.WC(RG),P.BFCP(RS) ;LOAD TRANSFER LENGTH

JSR
108

PC, CMPBUF

D0 _COMPARISON
!ERROR RETURN

MOV
NEG

]

RETURN

SOFCMP,P.CMLG(RS) -LOAD COMPARISON LENGTH

P.BFCP(RS)

:MAKE IT POSITIVE IT POSITIVE

023350

004737
023356

023352
023354

00S720
000200

cs:

TST
RTS

(RO)+
RO

:ADJUST RO FOR RETURN
'RETURN

0233Se
023360

011000
000200

109:

MOV

(RO),RO
PO

:LOAD ERROR RETURN
'RETURN

RTS

CZRSPCO RK&11.06 PERF EXEC
P11
CZRH
01-DEC-77 14:53

MACY11

30(1046\
01-DEC-77
15:04
COMPARE DARTR BUFFER
.SBTTL

I10
PRGE

127

COMPARE DATR BUFFER

XXX XTITITILIZZIZIIIRZSSIZZIZ
RIS S22
22222222222 2222 )

R
B

THE REGISTERS WILL BE USED RS FOLLOWS:

USE

HE4

RADDRESS OF PRRAMETER BLOCK
BUFFER RDDRESS

HE 4

PATTERN RODRESS
SECTOR WORD COUN

PRTTERN COUNT

RY
R3

o
;B

;%
HE4

(RDDRESS 0¢ CUMPARISON ERROR RETURN)

,:CRLL

JSR

HE 3

RETU

; #

I
R

WORDS ON SECTOR HRITTEN

(SP)
(SP+2)

NUMBER OF SOFT DARTA COMPARES

WORD COUNT

lll!illllllll!lllllllllll!!llilllllll!lll’lill!lli!i!illiillili

CMPBUF :

nOV

Pt Pt P

023416

B2342e

R3,-(SP)

023646

108:

MoV

RY,P.ERHD(RS)

R2’
(qus RO

0177760 RO
8177417.R3
R3

RO, R3

023456

005366

023462
023464
Q23470
023474
023476

006300
00105S
012401

goooce

004602
000001

:STORE R4

:STORE R3
:STORE R2
; STORE RI
:STORE_RO

P.ERHD(RS)
,R4
:GET START noonsss
P.BFCP(RS)
. -(SP)’;GET COMPARE COUN
P.CMLG(RS).-(SP) :LORD NUMBER Of COHP RISON
108
: LOMPRRE IF COMPARE COUNT NOT ZERO
408
'ELSE RETURN

000214
000222
000220

000214

RY, -(SP)

R2,-(5P)
RI,-(SP)
RG. -(5P)

Pt Pt et

Efiagsz 8&¥DCK?OCKMDG

023362
023364
0e

138:

ASL

;LOAD SECTOR HEARD IN CASE OF ERROR

'CLERR OFFSET FROM HERD
:STORE 1ST WORD (PRTTERN INDEX)

:KEEP LOW 4 BITS

*MRSK CPU 1D
'SHIFT 4 axrs RIGHT
: CHECK FOR PATTERN MATCH

304
R2
2(SP)

*NO, REPORT ERROR
" INCREMENT OFFSET
'DECREMENT COMPARISON COUNT

sMULTIPLY INDEX BY 2

PATTAB(RU),R3
1(R4), (RY)
308
\R4)+,R1

:STORE PATTERH ADDRESS
:CHECK WORD COUNT
!NO, REPORT ERROR
:STORE WORDS IN SECTOR WRITTEN

SEQ 0128

CZRePCO RKbB11-06 PERF_EXEC .53
01-DEC-77 14

CZRBPC. Pll

MACY1l

01-DEC-77
COMPARE DATA BUFFER

30(1046)

J10
PAGE

8177400,R1
Re
2.5k,
P.SMPL (RS)

177400

023500
023504

15:04

000002
000116

R1
000040

159:

000002

20s:
023610
023612

023614

000400

023630

023644
022646
023550

110265
02ebeb
017666
000404

308:

000217
oooole

ooool2

000002

gooole

0oc117

409
:
45S:

023676
023700

50%:

START SAMPLED COMPARE SEQUENCE

40$
R2

:NO MORE COMPARISONS
: INCREMENT OFFSET

NO MORE conmqaxso s

: " "DATA COMPARE

'CHECK IF COMPLETE sscron COMPARES
'YES, START NEXT SECTOR
'DECREMENT NUMBER OF WORDS WRITTEN
:IF 2ERO, GO YO ZERO FILL LOOP
'DECREMENT PATTERN COUNT
INEXT WORD
'REINITIALIZE PATTERN COUNT
'REINITIALIZE PATTERN ADDRESS
1CHL
K NEXT WORD

(RY)+

: CHECK ZERO FILL OF PATTERN

:MISCOMPARE

30%

ERROR

; DECREMENT WORD COUNT
:NO MORE COMPRRISONS

(SP)

oecnsnenr NUMBER OF SOFT

40$
Re
#256. ,R2
108

NO MORE COMPRRISONS
: INCREMENT OFFSET VALUE
'CHECK IF COMPLETE SECTOR COMPARED
PYES, START NEXT SECTOR

R2,P.ERAD(RS)

;STORE OFFSET RDDRESS

DRTA COMPARES

conPnRE NEXT WORD ON

(SPY+_(SP)+
912(SP),12(SP)
45§
(SP)+,

(SP)+

82, 12lsP)

P.ECMP(RS)

:ADJUST STACK
:LOAD ERROR RETURN
:RETURN
;ADJUST STACK

*ADJUST RETURN
s CLERR_ECC COMPARE FLAG

($P)+,R0

'RESTORE RO

(SP)+.R3
(5P)+.RY
pC

'RESTORE R3
RESTORE RY
*RETURN

(5P)+ Rl
(SP)+.R2

023672
023674

iYES,

DECREHENT NUMBER
OF SOFT

208

023626

: INCREMENT OFFSET VRLUE
:DECREMENT WORD COUNT
:CHECK _IF SAMPLED COMPARE

(SP)

2(5P)
40$

000002

;KEEP LOW BYTE

#32. RO
(R34, (R4)+
303
2(SP)

8256. ,R2
108
Ri
208
RO
15%
£32. RO
864, |R3
158

000040
000100

SEQ 0126

:CHECK IF SECTOR ALL ZEROES
:YES GO TO zsno FILL LOOP
:LORD PATTERN COUNT
: CHECK PATTERN
:MISCOMPARE ERROR
DECREHENT WORD COUNT

40§

000400

128

JRESTORE Rl
'RESTORE R2

:CHECK

52%

1F ALL ZERCES

:YES, TEST FOR ZEROES

1.2
4 M~

CZR6PCO RKb11-06 PERF EXEC
CZRePC. PlLl
D1-DEC-77 14:53

023712

103443
gl0146

15:04

K10
PAGE

(R3), (RY)
308
2(SP),RI

000002

ss
1,-(SP)
WNL

021314
001351
026601

30(1046)
0l -DEC-77
COMPRARE DRTA BUFFER

W~~UN~DeDDDDN
O
= D0 e s s b
WPHOOARW >
——
~DND

023702
023704
023706

MACY1l

700,R1

177700

i
(0 D 00 Qo QD 0 G0 0 0
m._’_.p_._’_p—.—;OVONCN LW

S1$:

000002
000377

0ooo02
52%:

000377

000002

¥
1%

177760

—

rRe'

3?7 R2

5ss
2(SP),R2
55§
(RY)

309
#377,2(SP)
55§
#3727

000002

000043
000106
000006

000011

0177760 RO

.7 RO
#35. R1

60%
835.,2(SP)
40%
83S. ,R2

8106 RY

(Rfi),(na)

000002

*NO, DO snnPLE conPnRE
1SAVE SECTOR
C
CflLCULRT%ONgQBEg or WORDS FROM START
:CALCULATE MEMORY RDDRESS
'GET PATTERN RDORESS OFFSET
:CALCULATE PATTERN ADDRESS

:CHECK IF DARTR uono IS CORRECT
'YES,

CHECK ZERO FILL

:CALCULATE OFFSET
:STORE OFFSET
:REPORT ERROR
;STORE OFFSET

:CALCULATE OFFSET ron START OF ZERO FILL
:CHECK IF NO ZERO
F
:YES,

DO SAMPLE conpnns

'CHELK WORD WAS READ
'NO, DO SAMPLE COMPARE
:CHECK START OF ZERO FILL
:NO, REPORT ERROR
fiutcx IF LRST WORD READ
SECTO

;SET START OF SECTOR

(RH)+

308

162766

: " BOUNDARY COMPARISON

ERHD(RS) RY

22,R

57%:

s CHECK FIRST WORD OF PATERN

*MISCOMPARE, REPORT ERROR
SCHECK IF ENOUGH WORDS RERD FOR

(RY4)
308

0177400 R1

177400
000002
000007
000043

SEQ Q127

CGLCULRTE END OF SECTOR
:CHECK_LAST WORD OF SECTOR
:REPORT ERROR

RO
PRTTQB(RO) R3
R
(R4)+

004602

?
Nv-NNNQ.J)NO"U‘N

000214
=
000000
OO L)

(SP)+ R2

S) R4
ERHD(R
o77s,nq

000377
000214
000776

000043

po]
n

, (R4)+

S811

129

578
%11,2(SP)

:GET PATTERN INDEX
: MASK OFF UNNECESSARY BIT
iMULTIPLY BY
{GET PATTERN RDDRESS
GET SECTOR WORD COUN

MRSK OFF UNNECESSQRY BITS

INITIQLIZE
:LOAD NUMBER OF SRHPLES
:SUBTRACT 35 FROM SECTOR WORD COUNT

;CHECK IF ZgRO FILL
FROM NORD COUNT
; SUBTRARCT 35
CHECK IF FINISHED
; CALCULATE OFFSET
;OETERMINE RDDRESS OF COMPARE
;DETERMINE RDDRESS OF PATTERN
'CHECK IF DRTR CORRECT
ERROR
REPORT
NO,

DECREHENT NUMBER OF COMPARES
{CHECK IF FINISH ED
'CHECK IF IF TIME FOR NEXT SECTOR
INO, CHECK NEXT SAMPLE
*ADJUST WORD COUNT

CZREPCO RKB11-06 PERF EXEC
CZRBPC.P11]
01-DEC-77 14:53

58565

Q24134

024136
Oc4l42

062704
000137

0N0O0Ce22
023416

5859

024146

162766

000043

5856
%ggg
S860
S861
S862

5863
S864
S86S
S866
5867
$868
5869
S870
871
S872

024154
024156

024162

0541
0241
024172
024174
024176
024200
024202
024210
0e4ele
024216

101644

10.534
062702
062704

QS71Y4
01217
00S31e
00leeH4
005300
001262
162766
101616

062704
000137

MACY1l 30(1046)
01-DEC-?7
15:04
COMPARE DATR BUFFER

BLOS

ADD
JMP

000002

000043
000106

000011
00002e
023416

&0%:

sus

000002

;CHECK IF FINISHED

835.,2(SP)

; SUBTRACT 3S FROM WORD COUNT

s22,RY
108’

40$%
835. .R2

T1ST
BNE
DEC
BEG
DEC
BNE
suB
BLOS

(R4)
308
(SP)
40$
RO
60%
8)1,2(SP)
403

ADD
JMP

PRGE 130

403

BLOS
ADD

RADD

L10

:CALCULATE START CF NEXT SECTOR
;GO SERVICE NEXT SECTOR

#106,R4

;CHECK IF FINIS ED
DETERHINE FFSET

DETERMINE RDDRESS OF COMPARE

CHECK IF ?flTQ
CORR
INO, REPOR
i DECREMENT NUHBER OF COMPARES
{BRANCH_IF FINISHED
iCHECK IF SAMPLE COUNT EXHAUSTED
iNO, CHECK NEXT SAMPLE
:ADJUST WORD COUNT
'CHECK IF FINISHED

%22, ~
108’

:CALCULATE START OF NEXT SECTOR
:GO SERVICE NEXT SECTOR

Ad
a o

SEQ J128

CZR6PCO Rkel!
CZR&PC. Pll

06 PERF EXEC
01-DEC-77 14:53

MACY1l

30(1046)
O01-DEC-77
15:04
NO RMAL COMMAND RETURN

.SBTTL

PRARGE

131

SEQ 0129

NORMAL COMMAND RETURN

XXIITIIXTIZIITITZIIIIIZIZRAZZ2S
SRS 2222222222222 2228 3222222222}
.

*
*
,

%
]
]
'
!
!

|
O

’
l

0
O

*
*
*
|
*
]

*
*
’
’

'
,

.
’

R
024234

8 4737

2765
gcioio

824330 oooo16

*
®
*

THIS ROUTINE wWILL HANDLE ALL NORMAL COMMAND TERMINATIONS

CALLED ROUTINE

USE

RSNORM

ngs;gnnzur NORMAL TERNIMATION

QBNSR"
BXFY <A

ORM
R Bnm
R_RECOOYEBY
?ncofiheEEf

CNTRL1

OLLER ERROR

ASSUMED REGISTERS
REGISTER

CONTENTS

RS
R2

ADDRESS OF PARMETER BLOCK
ADDRESS OF RKO& REGISTERS

o J30 336363 3 336 3 36 3 3 3 3 36 36 3 36 3 3 36 3 3 3 3 3 3 3 3 36 3 3 3 3 3% 3 3 3 3 3 3% I 3 23
'

NO RMAL:

é?rJSR

BNE

3 W W

WX KRR EEEEEEE

ATHER
CONTROLLER STATUS
gb&hc ETS P. c51thg
,»HEE
bk?vs BUS PARITY OR CONTROLLER TIME OUT
. YES, xnoxcnrs CONTROLLER FAULT

CHECK IF ANY

THE FOLLOWING ERRORS ARE SET IN €S2
Rty PrelBeRloh

MULTIPLE onxv: schcr
PROGRAMMING ERROR

NON-EXISTENT DRI
UNIBUS PRRITY snnoa
gnxrs SHECK ERROR

024246
024254
024256
024264

032765
001004

032765
00140S
0S2737
000137

1774C9

BIT

000020

131761

000034

600001
027164

001564

BNE
WIWE
VI B WL B WE B W B B

024236
Ca4244

n
"

i
0 DO O DD DD DD DD
mm;—.—.—...;—.—.—.—.—
—=O0ONCNLEWNN=-0O

NON- xig NT M nonv

SUFE ' MDS 'PGE ! NEM! NED* UPE ' WCE'DLT,P.CS2(RS)

:YES, INIDICATE CONTROLLER ERROR

CHECK IF ANY OF THE FOLLOWING ERRORS ARE SET IN RFER
ILLEGAL FUNTION CODE

FORMAT ERROR

DRIVE TYPE ERROR
ECC HARD
BAD SECTOR ERROR
HERDER VRC ERROR
chxnoen ADDRESS OVERFLOW
DRI VE TIMING ERROR
ganrxon INCOMPLETE

BIT

BEQ
BIS
JMP

IILC!FMTE!DTYE!ECH'BS&'HVRC'COE’DTE OPI!DCK,P.ER(RS)

3s
88170, ERCONT

CNTRLY

Al
a4
M

NO, CHECK FOR UNREPORT DRIVE ERRORS
,,E+ +ONTROLLER ERROR NOT FLAGGED
REPORT CONTROLLER ERROR

CZROPCO_RK61i/06 PERF EXEC

CZR&PC.P11

01-DEC-77 14:53

MACY1l 30(1046)

5929

5937

§938

024270

O24a7e

032765

00100M

046016

000034

5340

59y
§qy2
5943

024300

032765

000070

000036

5949
5950

024322
024330

032765
001005

000001

000CI4

000212

024306
(024310
024316

As:

(124332
(24390

052765
000137

000200
025312

§364
5955

024344
Q024350

005737
100017

001564

5957

024360

101007

Q24352

:
:
:

001405
052765
0000I0 000212 4S:
000137 02532

6351
5952
6956

:
:
:
:
:
:

6344

§945
§a4g
5347

122765

000121

025032

S8:

6S:

00000L

BIT

8NE

BIT

§963

024404

001324

§966

0PY410

00S765

024406

78:

Sdod

108:

5967
§968

024406

Qgy414
024416

000207

001417
004737

Do4422

€973

024436

012605

£975
§976
€977
5378

024440
Q024442
Q24446
024452

001762
010537
004737
000763

032002

5980

024454

105765

000210

£962

024462

Q024426

001367

118:

040262

€969

E970

005737

000150

001566

208 :

6971
024430
004037
051466
5972
Q24439
001330
5974

§a81

5984

001566

024460

001402

000137

013504

024466

122765

000117

32%:
000001

33%:

YES,SET UNREPORTED DRIVE ERROR

AC LOW
SPEED LOSS
BRIVE GEP TRACK

_
8ACLO! SPDLSS!DROT, P. DS (RS

BIT
BNE

IDRVUSE.P.PRST(RSI - CHECK IF DRIVE IN USE
6S
;YES,
CHECK IF SPECIAL SEQUENCE

BIS
JMP

$8IT?,P.ERR(RS) :SET UNSOLITATCC ATTENTION
ABNORM
!PROCESS ERROR

ST
BPL

ERCONT
118

BH1

CMPB

5362 024400 004037 051406

osxx-nxr-onpnn-xons WLE!UNS,P.ER(RS)

4§

5§
: NO QUEGK IF SPECIAL SEQUENCE
8B173,P.ERR(RS)
set
ORIVE ERROR NOT REPORTED
ABNORM
PROCESS ERROR

108

004037

INVALID DISK RDDRESS
WRITE LOCK ERROR
UNSAFE

BEQ
BIS
IMP

5961

024376

SEQG 0130

CHECK THE FOLLOWING ERROR BITS IN RKDS

BITB
BNE

024372

PAGE 132

CHECK THE_FOLLOWING ERROR BITS IN RKER(UNREPORTED DRIVE ERROR,
SEEK INCOMPLETE
NON-EXECUTABLE DRIVE FUNCTION
DRIVE DETECTED DRIVE BUS PARITY ERROR

5958
(024362 132765 000040 000001
8459 (24370 001003
5960

15:04

NORMAL COMMAND RETURN

€330

6931
§932
8333
§934
§935
8936

01-DEC-77

N1O

3an

ISR

CINITQ

:CHECK IF CONTROLLER ERROR HAS OCCURRED
NO, CONTINUE NORMAL PROCESSING

#RDDATA,P. CMND(RQ)!CHECK IF DATA TRANSFER COMMAND
REISSUE_COMMAND

#BITS,P.CMNC(RS)':¥FS,
N HECKREISSUE
TP SPECTAL
COMMAND
78
COMMAND

RO, CHKADD

RO, G. PUSH

,vnEcK'BUS AND DISK ADDRESS
'ERROR RETURN

'ENQUEUE PARAMETER BLOCK IN
!~

COMMAND INITIATION QUELE

RTS

P.DSTT(RS)

:CHECK IF RETRY SEQUENCE

18T

ERRPRO

cuscx IF ERROR PROCESSINC COMPLETE

MOV

(SP)+,RS

;LORD_ADDRESS OF PARAMETER CLOCK FOR

BEQ
MOV
JSR
BR

108
RS, ERRPRO
PC| ERCVY
208

'IF NO MORE ERRORS, RETURN
' INDICATE THAT ERROR IS BEIYG PROCESSED
!GO0 THROUGH ERROR RECOVERY
!CHECK IF ERROR PROCESSING . )MPLETE

TSTB

P.ASSN(RS)

;CHECK IF DRIVE 1S BEING ASS GNED

JHP

ASNORM

!GO’ CONTINUE RSSIGNMENT

cMPB

#SEEK,P.CMND(RS)

BEQ
JSR
BNE

32§
PC,ERCVY1
108

JSR
RO, Q.POP
ERRPRQ

BEQ

33%

;RETURN

NO, CHECK IF DRIVE IS BEING ASSIGNED
!GO’ THROUGH ERROR RECGVERY

cef RETURN
NEXT ERROR TO BE PROCESSED
NEXT ERROR

!NO, CHECK IF SEEK OR RELERSE

;CHECK IF SEEK TO PREVIOUS POSITION

CZR&PCO RK611-C6 PERF EXEC
01-DEC-77 14:53
CZR6PC. Pll

000140

000001

177777

001506
000000

000300
051406

000140
051406

g24s3e

024540
D24544
024546

MARCY11

000001

01-DEC-77
15:04
30(1046)
NORMAL COMMAND RETURN

Bll

PAGE

BNE
MOvB

J
AVAILQ
RT

024554

1777?77
000300
177776
oooi2l

ISRL

s RETURN

#-1.1.1ISRL

:INDICATE

:ALLOW RKO® XNTERRUPTS

RO, aursnx

001452

Ocab4e

177776

0e4e72
024700

005037
032777
001043

040040

154240

0e470e

026565

000110

000154

024710

101010

024712
024714

103404
026565

0e47ee

103003

024724
024730

004737
000435

013004

024732

016546

00C166

177776

000106

NORMZ:

CMP

SCAN FOR DRIVE INTERRUPTS
F READ DAT

COMPRRE eurren

cntcxDATA
RERD
TURN

:ERROR RE
:RELERSE BUFFER

cnecx IF unxre COMMAND

NORM2

-NO'

RO, Q.PUSH

Pfi

RELEARSE
B

i
C
: RETURN

FER

oc IN

erxnrxou QUEUE

RKPRI PS

:LOCK

*ALLOW RKO® INTERR 16

BUFREL

#5SWS ! SW1Y, ISWR

333

‘RELE

OuT Rxos INTERRUPTS

BUFF

cascx IF INHIBIT AUTOMATIC DESELECT
PUT PARAMETER BLOCK
AILIABLE QUEUE

P.MXCD+2(RS),P. Nbon+a(R5)
-CHECK VEIF BEEN
MAXIMUM
NUMBER
OF
CO
ISSUED

BHI

298

BLO
CMP

29%

BHIS

29¢

28%:

JSR
BR

PC, DROP
3¢

29%:

MOV

P.NRD+2(RS),~(SP)

ooolse

;gaugx,P.PRST(RS}
Cuscx
IF unxrs CHECK ISSUED
M
S,
REL Enss aurrs
un*
8H_WCK, P.PRST(RS) ctEnR

[=]

[

000014

RDORE

THAT AN xnrennupr HAS BEEN ISSUED

SWRTCHK , P. CMND (RS)

NORM1
:
DOSDOD
—A-Mm
VZDOO

000200
051406

:~
COMMAND INITIATICN QUEUE
;sRETURN

;CHECK_WORD_COUNT, B8US ADDRESS,
TRACK QND CYLINDER
CcT

NORM

DDOGX
Z=CUNO
MDDV

oo
O00000000
PUONIN)
+= s e bt bt ps st e
N--OVONTN
LW

01373?
004737

000014

:PUT RELEARSE COMMAND IN PARAMETER BLOCK

:ENQUEUE PARAMETER BLOCK IN

RO, CHKARDD

NORM2
000200

:PUT PARAMTER BLOCK RDDRESS ON
: onxvs AVAILIARBLE QUEUE

cnoonra P. cnnocnt;o
cnecx

000001

HECK ADDRESS AND WORD COUNT

INOICQTE THAT AN INTERRUPT MRS BEEN ISSLED

oxnfn RKCSl(Ra) ;G0

001506
000000

000131

14 OPTION)

sxnfn RKCS1(R2) :FORCE
AN INTERRUPT SCAN DRIVE ATTENTIONS

RO, . PUSH

PUSH

023304

122765
001013
032765
001407
04276
00403
001324
000207

(SWITCH

ORELEQS P.CMND(RS)

348

35s:

025032

SEC 0131

34s
:YES, RELEASE
DRIVE
#RELERS,P. cnnotns) -CHECK IF RELERSE COMMAND

BEQ
cMPB

024550

133

INO, CHECK IF MAXIMUM NUMBER OF
N bF WORDS MAVE BEEN TRANSFERRED

P.MXCD(RS),P. Nook(RSS DROP
-CHECKDRIVE
IF MAXIMUM NUMBER

OF LOMMANDS HAVE BEEN ISSUED
CHECK IF MAXIMUM NUMBER OF
HAVE BEEN TRANSFERRED
ono DRIVE
SALLOCATE BUFFER

;STORE NUMBER OF WORDS RERD ON STRCK

CZRePCO RKb11/ 06 PERF EXEC
01-DEC-77 14:53
CZR6PC. P11
000170
000160

024736
024742
4

MACY11l

15:04
30(1046)
01-DEC-77
NORMAL COMMAND RETURN
MOV
ADD

ooooce

aDg

000162

BCS
CMP

000114

PAGE

134

SEQ 0132

P.1']D+4(RS),-(SP)

P.NLRT+2(RSS,2(SP) ; ADD NUMBER OF WORDS WRITTEN
SP

#.nun1+q(n5),<sp)
3Cs

:DROP DRIVE IF O\ERFLOW

P_MXWT+2(RS), (SP}+ -cugcx }‘ MCX M
:

HAV

"AVARILIABLE QUEUE

BHI

328

:NO,

PUT

BLO
CMP

P.MXWT(RS), (SP)+ ;CngSK

ngneen OF WORDS

*1 TRANSFERRED

PARRAMETER BLOCK IN

024764

101010

4766
4770

026526

024774
024776

103753
000404

BLO
B8R

288

8 5726
S7¢26
000747

W
-0
["]

024760

Cll

IS71
TST
BR

(SP)+
(5P)+
28%

sADJUST STACK
*ADJUST STARCK
:DROP DRIVE

329:
33%:

TST
MOVB
JSR
CINITQ

SRELEARS,P.CMND(RS) :PUT RELEASE COMMAND IN PARAMETER BLOCK
RO, @.PUSH
: ENQUEUE PARAMETER BLOCK IN

(SP)+

: ADJUST STACK

JSR
RTS

PC, GETBUF
PC

10340S

025006
025010
025016
0esgz2
025024
025030

oooll2

000140
051406
004737
000207

0ca34e

000001

35%:

318

338

; YES

I YES ,
NG,

!”

DR?P DRIVE

anfl¥égggrgggggfl OF WORDS

SRSS DRIVE

'PUT PRRAMETER BLOCK IN

AVAILABLE QUEUE

'COMMAND INITIATION QUEUE

:GET NEW BUFFER
:RETURN

0000e2

737

000002

001SeH4

32765

001400

000016

EgR(RS)

: SO CAE ROBDS “RDRe £ER

a2us

; REPORT ERROR

BIT

.8fl16!8fl17,P.C51(RE)
;
YES,
108

8885%8

CLR

000002

19§:

CMP

20s$:

CMPB

CcMPB

ces:

CMFB

000002
0000630
O2SeeH

OF BITS

EXPECTED BUS ADDRESS

23s8:

187

:TRACK,
iSET
‘REP

(SP)

TS(RS), (SP)+

;STORE WORD COUNT
'MAKZ IT POSITIVE
CHECK TF EVEN MUMBER OF SECTORS
*YES,
DO g
ARISO N

Esross uunegg gr SECTORS
TRANSFERRED
Erncx
;gggnn ngnr¥gu ON

Eguecx rgn SECTORTOVEEFngCT

;DBCRE?§N¥ §£c§53 88u~?flev 22 AND

: "INCREMENT TRACKS TRANSFERRED
:CHECK FOR SECTOR OVERFLOW
;SHECS gr 5‘"2% SECTOR CORRECT

anks Eogg FSR ?Sncx& TRANSFERRED
STORE STARTING TRAC

;EEngHéNE FINARL TRACK RDDRESS
,CLE

_CYLN(RS), (SP)
"DCYL(RS)
. (5P)
258

INARL CYLINDE

:CHECK FOR TRACK OVERFLOW
:NO,
CHECK FINAL TRACK

:DECREMENT TRACK COUNT BY 3 AND
CYLINDER COUNT

cHEOK FOR TRSCK OVERFLOW

TS+1(RS), (SP)+

(SP)+

AND SECTOR
ADDRESS INCORRECT
ERROR

2(5P ECLEER
-0ET RHINEgg
e 2f
}82 TRANSFERRED
DRESS
NUHBE&NQ*
?SScxs

22.,(SP)

—~~
e

218:

000003
000002

000027

:DETERMINE

Eézgkcsgg" SECT?SC&OUNT
'

188:

(RS),-(SP)

MOV

v
o

178:

T2,ERCONT

~—~

BIS
BR

nuo
ooy

108:

001564

00000S
000002
000002
000003

(SP)

naxg 1T POSIT]V

:BUS RDDRESS CORRECT--CHECK CYLINDER,

[

s
s Pt ot bt Bt
e Pt B
s
s e B
e e et P
e
P

122716
101005
162716

;8Er nnan

.BAR(RS), tSP)+ :CHECK BUS RDORESS

000026
000002
000026

;CHECK IF HIGH BUS RDORESS BITS SET
REPORT ERROR

SP)

_BALO(RS)

AND CYL INDER

;SET WORD COUNT NOT EQUAL ZERO

;STORE WORD COUNT

126526
001027
005296
116516
066616
005066

WOV
U
MU PO 0=ONC
s m bN psL W—O
e HMHSDOODO
N£

000770

6103
[saZs als alealo al e ado alealopl o als aXs ats alo ale ol o aTs aTo o¥ s o1

000026

TRACK,

P.WC(RS),-(SP)
(SP)

000001
0000083
000002
000004
000002
0000602

8BIT1,ERCONT

SECTOR,

AND CYLINDER

TET
BtQ@
8IS
BR

6S:

WORD COUNT,

TRRCK,

CHKRDD:

[ANY
o RN
-

oooo12

YT
S

88
& FEOREREYENSrn of 82d

PR
RoRRRRRLLN
o
oo
N
v
o

016546

135S

SECTOR,

CHECK BUS RDDRESS,

000010
000024

PRGE

.SBTTL

oooo12

000004

D11

WORD COUNT,

CHECK BUS RDDRESS,

VONUVVVINIWV
T OE
VUMV OVUVDO
()

000S12

15:04

BUNNA

025046

01-DEC-7?7

VN HNWMO

4 Lok gy

30(1046)

ORO

6068
6069

MARCY1l

ns QQ:DNUI'-F—HAV
s
=~V
O~
‘U'OCS'D NUsUs
—~WNW
NN TINND
~-lus
~W
0~
~—~ e~~~ U
L@
N

CZR6PCO RKb11-06 PERF EXEC
O1-DEC-77 14:53
CZR6PC .P11

INCREMENT

:CHECK

IF FINAL TRACK CORRECT

; TRACK SNEORRECT

RROR

CYLINDER
FINAL
:CRLCULATE
:CHECK IF CYLINDER CORRECT
;CORRECT GO TO NORMAL RETURN
; ADJUST STACK

SEQ 0133

CZREPCO RKb11-/06 PERF EXEC

CZRePC P11
ble4

025266

01-DEC-77 14:53
0S2737

6125
6i2e

025274
025300

004737
011000

6129

025304

005726

gisg

6130
6131

025302

025306
025310

000010

027164

MACY1l 30(1046)

1S5:04

PAGE 136

CHECK BUS ADDRESS, WORD COUNT, SECTOR,

OO1SEH

248 :

000200

005720
000200

O0l1-DEC-77

Ell

BIS

;SET INCORRECT SECTOR,

TRRCK, OR CYLINDER

JSR
MoV

PC,CNYRLI
(ROY, RO

; REPORT ERROR
;LORD RO FOR ERROR RETURN

1S1

(SEP)+

;ADJUST STARCK

RTS

25%:

8BIT3, ERCONT

TRACK, AND CYLINCER

TST
RTS

(RO, +
RO

;

RETURN

;RDJUST RO
; NORMAL RETURN

SEQ J13%

CZR6EPCO RKG11-06 PERF EXEC
CZRGPC.P11
01-DEC-77 I4:53

MACY1l 30(1046)
01-DEC-77
15:04
ABNORMAL TERMINATION

gigg

6134
6135

025312

004737

0S1626

6136
6137

025316
0eS324

032765
001402

000100

6140
6141

025332
02533

005737
100010

001564

6143

025346

001403

6145
2139

(025354
S

001324
000207

gigg 025326 000137 025516
6144

025350

004037

025360

032765

Ef%é

025376

000420

6163
6154

025400

005765

6165
6156
gigg

025404
025406
G2S410

001415
100402
000137

043060

6169

025414

0S2765

000100

013737

001452

6149

025366

001004

000001

000014

6150 025370 0S2765 000200 000212

gig?

6162

028422

025424

000207

g{ga

028432

052765

6165

025440

012765

6167

025452

001015

6166

025446

0001S0

025460
025464

6173

025476

6175
Ei;g

025502
025504

6178

025506

6180

025514

6171

025470

PC,Q.RMCV

BIT
BEQ

#CMDTO,P. Pnsr(nsi cuecx IF COMMAND TIME
O
3s
NG,
PROCESS RBNORMAL TERHINRTTON

TIMeUT

ufip TO TIME OUT ROUTINE

157
BPL

ERCONT
108

cuecx IF CONTROLLER
CONTINUE ERROR

BEQ

IMP

3s:

JSR

c§:

CiNITQ
RTS

10S:

BIT

ABNODOO:

000212

13S:

6179

025500

025512

8DRVUSE, P. PRST(RS) :CHECK FOR UNSOLICATED IHTERRUPT

RO, @.PUSH
PC

-YES,

DO NOT ENQUEUE PAPAMETER BLOCK

:ENQUEUE PARAMETER BLOCK IN
1"
COMMAND INITIATION QUEUE
RETURN

#DRVUSE ,P.PRST(RS)

caecx IF onsv; IN USE

BIS

>YES ~

ABNOO!

:CHECK IF ERROR IS BEING PROCESSED

TST

P.DSTT(RS)

BEQ
BMI
IMP

ABNOO1
138
ERCVY2

:CHECK IF CURRENTLY UNDERGOING
:~
ERROR PROCESSING

'NO cuecx IF enaon PRESENTLY BEING PROCESSED
'ERROR ENQUEUED
: ERROR RECOVERY ROUTINE

BIS

CHECK IF

DRIVE BEING nssxcuzo

8BIT7. P.ERR(RS) ;xuotcnrs UNSOLICATED INTERR

RTS

#BIT6,P.ERR(RS)

;SET ERROR WHILE ENQUEUED IN ERROR QUEUE

MOV

RKPRI,PS

LOCK RKO& INTERRUPTS

000150

ABNOOL:

MOV

2s:

BNE

032002
001566

ERROR Hns OCCURRED
PROCESSIN

RBNOOG

100200

004737
005737

;REMOVE PRRAMETER BLOCK FROM COMMAND
INITIRTION QUEUE

BNE

DATERR:

6172 025472 004037 051466

6174

BIT

177776

001566

001005

JSR

000212

6168 025454 010537 001566
6169
6170

ABNORM:

000004

00S737

SEQ 0135

RBNORMAL TERMINATION

051406

6148

PAGE 137

.SBTTL

000014

6142 025340 032765 000001 000014

F11

BIS

157

:RETURN

8BIT2,P.ERR(RS) ser SOF TWARE DETECTED DATA ERROR
o91715-9117 P. DSTT(RS)

ERRPRO
S$

§s

RROR ENQUEUED AND FIRST ERROR

K }F ERROR 1S BEING PROCESSED
co ENQUEUE ERROR

MOV

RS, ERRPRO

Lonb ERROR esxnc
PROCESSED

BNE

RO,Q.POP

cef NEXT ERROR ENQUEUED

JSR
I57

JSR

PC'ERCVY
ERRPRO

'START ERROR
RECOVERY
cuccx IF ERROR PROCESSING THROUGH
RETURN

001330

ERRPRQ

001364
000207

BNE
RTS

2%
pC

xr NOT ZERO PROCESS NEXT ERROR
! RETURN

JSR

RO, G. PUSH

:PUT PARAMETER BLOCK ON

RTS

:RETURN

012605

004037

001330
000207

MOV

3%:
051406

c§:

ERRPRG

(SP)+,RS

LOAD RS FOR ERROR PROCESSING

snpon PROCESSING QUEUE

vznspco RKE11-06 PERF EXEC

CZRePC. P11

01-DEC-77 [4:53

MACY1l 30(1046)

6184
6185
6186
6187
6188

MOV

001014
016237

000000

001410

BNE
MOV

001462

BIS
IMP

¥E. cnro E.CONT
CONTR

040000
026346

6194
6195

025564
025570

005737
100004

001564

6197

025572

004037

0S1406

026552
025560

025576
025600

001324
000207

6201
6202

025602
025610

032765
001404

gggg

025620

000667

6206

025622

032765

010000

001410

025630
025632
025646
025642

025650

001404
0S2765
000657
0S2765

000653

RKCS2(R2),-(SP)

;GET CS2 FOR DRIVE NUMBER

8GO, T.CS1
s§

;CHECK_IF GO IS STILL SET
'NO, TEST IF LOOPING ON CONTROLLER ERROR

15T
BPL

ERCONT
108

cuecx IF CYCLING ON CONTROLLER ERROR
CHECK IF DRIVE IS CURRENTLY

JSR

RO, @. PUSH

REQUEUE COMMAND IN COMMAND

BIC

CMPB
BIT
BEQ

c§:

CINITQ
RTS
000014

6c93 025612 0S2765 000020 000212

6212

TIMOUT:

025532
35

626 122665 000000
062737
000137

6211

COMMAND TIME OUT RGUTINE

SEQ 0136

8+C<DRVM~
K>, (SP)’ ;KEEP DRIVE NUMBER
(SP)+,Ponvfi(RS)ICHECK IF TIHE OUT IF FOR
;" "CURKENTLY SELECTED DRIVE
cs
:NO, TEST IF LOOPING ON CONTROLLER ERROR
RKCSI(RE) T.CS1 :GEY COMMAND AND STATUS REGISTER 1

177770

000001

6207
6208
gsgg

.SBTTL

138

000G10

042716

032737
001405

6198
gégg

PRGE

016246

025522

025542
025550

6196

G1ll

025516

6189
6190

6191
E}gg

15:04

COMMAND TIME OUT ROUTINE

g{gé

6183

O01-DEC-77

020000

000014

000400

000212

000C40

000212

10S:

12$:

15$:

:SEY CONTROLLER TIMED OUT ON COMMAND
:GO REPORT CONTROLLER ERROR

éexzso BY OTHER PORT

P
INITIATION QUEUE
RETURN

BIT
BEQ

sDRVSZD,P. PRST(RS)
12%

B8R

RBNOOO

BIT

OE.UNLD,P.PRST(RS)

BIS

BEQ
BIS
BR
BIS

;CHECK IF DRIVE WAS SEIZED
CONTINUE

$BIT4,P.ERR(RS) Ef TIME CUT BECAUSE DRIVE SEIZED
0 INITIARTE ERROR PROCESSING

cuscx IF WRITING FOR HEADS TO RELORD

15%
*NO. SET TIME OUT FOR POSITIONING
#8178,P.ERR(RS) :SE}TIME OUT IN RELOADING HERDS
ABNOOG
!GO0 INITIATE ERROR PROCESSING
$BITS.P.ERR(RS)

RBNOOG

;SET TIME OUT DURING POSITIONING

:G0 INITIATE ERROR PROCESSING

CZREPCO RKbl1-06 PERF EXEC
01-DEC-77 14:%3
CZR&PC. Pl1

6213
bc14

18
6219
62
6221
6222
62
6224

H1l

01-DEC-77
15:04
PRGE
PRINT RKO& UNIBUS REGISTERS

30(1046)

PRINT RKO& UNIBUS REGISTERS

PRIREG:

MOV

R3, -(SP}

MOV

IT os R1

MOV
MOV
TYPE

JSR

MOV
TYPE

064507
0eel32

616546

10585

884567

0036
052774
064576

JSR

pC BINOCY

82277H

052774
064652
0S2774
060530
052774
064665

052774
060530

052774
001165

"RESTOR
RETURN

R3,-(SP)

TYPE
MOV

TYPE

ERRI02

ERR303
RS,R3
#P.R00,R3
(R3)+ L(sp)
BINOC

Btnnxs

{R3)+. -(SP)
PCe§hocr

:PRINT MESSHGE B

:PRINT MESSAGE B
;PRINT MESSAGE R

JSR

PC.RINOCT

MOV

ISP+, R3

RTS

:PRINT MESSAGE A

IES)+-(?P)
tn3)+-(SP)
PC,B1MOCT

PC axkoc

IYPE

MES

:PRINT HEADER
'DETERMINE START OF PRINT OUT

;PRINT MESSAGE R

MOV
JSR
MOV
JSR

TYPE

ETRCK

‘PRINT R cxsr

5
tR3)+ -(sp)

PC exfiocr

MOV

;STORE R

:PRINT MESSAGE A
:PRINT MESSAGE B

455:

TYPE

NAMES

PRINT
REGISTER coursnvs
ESTOR 5

PC BX&OCT

tR3)+ -(SP)
t8,4=(SP)
PC axhoc

TYPE
MOV

'PRINT REGISTER

# DS(RS),-(SP) :CONVERT DRIVE STATUS REG TO OCTAL

MOV
%552
MOV
JSR

TYPE

LOAD END OF REGISTER STORAGE

PRINT REGISTER Nnnes

(SP)+,R1
(SP)+' R3
PC

ERR301

#c PRSTAT

MOV

:STORE R1 ON STACK
Loao BEGINNING OF REGISTER STORAGE

‘PRINT
zscr Ts
NTENTS
*LOARD E
Ecxsren STORAGE

PRDSTT:

TYPE

;STORE R3 ON STACK

#c
PRSTAT
T'DBR1

PRINT DRIVE STATUS

MOV
JSR

052774
060530

RR300

.SBTTL

052774

4637

012603
000207

MOV
MOV
RTS

RDD
ngv
JSR

000040
060530

026070
026072

JSR

R1.-(SP)
8T CS1,R3

SEJ 0137

139

.SBTTL

6218
6215

MARCY11l

B( ANKS

lR3)+ -(SP)
SLRLF

:PRINT “MESSAGE B
:RESTORE R3

'RETURN

CZREPCO RKB11.
06 PERF EXEC
CZRBPL.PIL1
O1-DEC-77 (4:83

2523
6265
6266

6267
6268

6269
6270
2?1
G272
6273

6274

gggg

026074
026076
026100

010346
010146
010503

026104
6110
026114

062703
062701
104401

026102

026120
026124
026126

026130

010501

004737
012601

012346

681

026140

020103

6282
6283
2582

026142
026144
026150

6286

026152

£287

026156

004737

026132

001403
104401
000770

060530

104401

0921165

000207

SE3 0138

:STORE R3 ON STACK
:STORE R1 ON STACK
'STORE PRARAMETER BLOCK ADDRESS

RDOD
ADD
TYPE

8P (S1,R3
sP.DS Rl
ERR300

:CALCULATE BEGINNING OF OUTPUT GCTAL
:CALCULATE END OF OUTPUT OCTAL
:PRINT Recxsrsn NAMES

(SP)+.R3

*RESTORE R3

RS R1

JSR
MOV

AC,PRSTAT
(SP)+ R

RTS

.SBTTL

PRINT REGISTER CONTENTS

PRSTAT:

MOV

(R3)+. -(SP)

JSR

pC,BINOCT

BEQ
TYPE
BR

10¢
BLANKS
ARSTAT

CHP

108:

140

R3,-(SP"
R1.-(SP)
RS.R3

MOV

052774

PAGE

MOV
MOV
MOV

MOV

000016
000036
064410

000207

026132

I11

.S3TTL PRINT CONTROLLER STATUS

012603

6279

026134

30(1046)
O01-DEC-77
15:04
PRINT CONTROLLER STATUS

PRISTT:

gs;g

6280

MACY1l

TYPE

RTS

R1'R3

SCRLF

:”

FOR INDEX CACULATIONS

:PRINT REGISTER CONTENTS
'RESTORE R}
:RETURN

:SAVE REGISTER VALUE FOR TYPE OUT

*CONVERT TO OCTAL

!CHECK IF FINISHED

'YES, RETURN
:TYPE 2 BLANKS
'TYPE NEXT REGISTER
. TYPE

*RETURN

CZREPCO RKB11-06 PERF EXEC
CZREPC.P1I
01-DEC-77 14:53

MACY11 30(1046)
O01-DEC-77
15:04
ECC CORRECTION ROUTINE

gggg

6290

026160

010446

6291
6292
5293
6294
5295
5299

026162
026164
026166
026170
026174
026200

010346
010146
01004€
013703
013704
006304

6298
6239
6300

026204
026e
0eebele

060416
016501
005301

6302

026214

010100

6306
6307
6308

026224
026230
026232

042701
020104
103037

000001

001624

6287

6301

6303
6304
6305

6309

026202

026216
026220
026222

026234

ECC CORRECTION ROUTINE

ECCCOR:

MGV

001634
001636

6311

000060

026244

005037

6314

026254

001406

6317

026256

6319

026266

6322

026272

(11300

6324

026300

043713

6337

026310

ggig
6318

ggg?

042700

006337

026262

006137

026270

001372

005300

177760

001622

6323 026274 013701 001622
6325
6326

026304
0263

040001
0sC123

026312

£330
6331

026316
026322

6335

026332

6337
£338
€339
€340

026336
026340
026342
026344

6332
ggga

6336

026326
026330

026334

S§:

001622

040001
050113

005726

012600

012601
012603
012604
000207

R4’ (SP)
P.EPOS(RS),R1
Rl

CQLCULRTE END OF SECTOR
:SAVE POSITION INFORMATION
:DECREMENT BIT COUNT BY ONE TO GET

MOV

R1,R0O

OF STRRT OF SECTOR

BIT ADDRESS

ADD

MOV

R1,R3

BIC

CLR

ECCPAT+2

8177760, RO

DEESSSéEEISIT POSITION FOR START OF ECC

:CORRECTION STARTS ON

ECCPAT

:SHIFT PRTTERN 1 BIT LEFT

ASL

oersnnxne WORDS THAT ARE BAD
;
FOR onrn READ (SHIFT 3 BITS
RIGHT

8l Rl
R1’RY
104

CLEAR evrs INDICATOR
'CHECK IF ERROR WITHIN TRANSFER
.NO RE TURN
DEYERMINE ADDRESS OF ERROR

P. EPQT(RS) eccrat -LOAD PATTERN
"

WORD BOUNDARY

ROL

ECCPAT+2

BNE

:CHECK IF IN POSITION

(R3

: CORRECT FIRST WORD WITH EXCLUSIVE

MOV

CMP

MOV

: DECREMENT COUNT

Eccphr R1

:" OF BITS IN ERROR

ECCPAT. (R3)
RO,RI
Rl (R3)+

(5P),R3

cuecx xr sscouo WORD IN TRANSFER

(R3),RO

coknscr secono uono WITH EXCLUSIVE

BEQ

108

MOV
BIC

EC-PAT+2,R1
ECCPAT+2. (R3)

15T

(SPY+

:ADJUST STACK

MOV
MOV
MOV
RTS

(SP)+.R1
(5P)+'R3
(5P)+ . R4
pC

:RESTORE RI
'RESTORE R3
RESTORE RY
RETURN

BIC
BIS

108:

TORE RDDRESS

R1
R1
Rl

BIC
8IS

001624
00162u

R3,-(SP)

ASR
ASR
ASR

BIC

001407

013701
043713

ADD
MOV
DEC

DEC

021603

6..» 026314 011300
6.

33:

:STORE R4 ON STACK

:STORE R3 ON STACK
:STORE R1 ON STACK
:STORE RO ON STACK
:LOAD BEGINNING OF SECTOR ADDRESS
:LORD WORDS READ FROM SECTOR
nnxs 1T BY Eg

BEQ
001624

RY,-(SP

SEQ 0139

R3,-(SP)
R1,-(SP)
RO, -(SP)
RTYBR,R3
RTYWC, R4
RY

BIC
CMP
BHIS

060103

026250

MOV
MOV
MOV
MOV
MOV
ASL
MOV

6310 026236 016537 000062 001622
ggig

PAGE 141

.SBTTL

010346

006201
006201
006201

J11

MOV

OF BITS IN ERROR

RO, R1
R1, (R3)

(SP)+,R0

'RESTORE RO

CZR6PCO RK611 06 PERF EXEC
01-DEC-77 14:53
CZREPC.P11

K1l

MACY11l 30(1046)
01-DEC-77 15:04 PAGE 142
CONTROLLER ERROR DETECTED BY RKO& ORIVER

2335
6343

6344
6345
6346
6347
6348
6349

.SBTTL
026346

026350
(026354
026362
026364
026370
(026374

010446

004737
032777
001402
(04401
013704
032704

047236
002000
001160
001462
100000

18:

6350 026400 001403
026402 104401 061002
6351
Eggg 026406 000S01
6354
6355

026410

032704

6356

6357

026414

001403

gggg

026416

6360

0ee422

000473

060560

026424

032704

000002

6361
6362
ggga

026430
026432
026436

6365

026440

6366
6367
gggg

000001

104401

001403
104401
000465
032704

060654

6370
6371
6372

026454

032704

000020

026460

001403

gg;g

026466

000451

6376

026470

6378

026476

6377

026462

104401

060707

032704

000100

104401

060753

026479

001403

gggg

026502

000443

€381
Eggg

026504
026510

032704
001403

000400

6389

026512

026516

000435

104401

063611

6387
6388

026520

032704

001000

6389

(026524

001425

392

026536

gggg

6390
6391
6393

6394

6395
6396

026526
026534

032737
001003
104401

063651

132766

000001

026542

000423

026552
026554

001003
104401

026544

000040

063651

JER
BlT
BEQ
TYPE
MOV
BIT

3%:

4s:

5§:

8EQ

TYPE

ics

'DISPLRY REGISTERS

8IT

$E.CCLR, R4

BEQ

ios

BIT

BEQ
TYPE
BR
BIT

001426

8E . UDAT,RY

INO, CHECK OTHER CONTROLLER ERRORS
:DISPLAY REGISTERS
:CHECK IF “NO ARTTENTION IN RKASOFTM

'NO, CHECK THE OTHER CONTROLLER ERRORS
;DISPLAY REGISTERS
:CHECK IF “UNEXPECTED DATA TYPE ERROR"

BIT

$E.CLAT,RY

BEQ

;CHECK IF “ATTENTION DID NOT RESET
:”
WITH DRIVE CLEARTM
:NO, CHECK OTHER CONTROLLER ERRORS

ios

;DISPLAY REGISTERS

8E. ILLD,RY

:CHECK IF "ILLEGAL DRIVER COMMAND"

BIT

ERROOY

BEQ

ios

:DISPLAY REGISTERS

BIT
BEQ

8E.OLT,RY
8%

cnecx IF “DATA LATE WHEN UNLOADING HEADER"
g c¥scx IF “CONTROLLER ERROR WHILE GATERING

ERROOS

ERR200

!NO, CHECK IF DATR LATE WHEN UNLOADING HERDER

ics

-oxsanv REGISTERS

BIT

8E.CERR,RY

BEQ

;CHECK IF “CONTROLLER ERROR DURING
;
DRIVE SERVICING"

BIT
BNE
13%:

8E.NOAT,RY

ys
ERROO2
i6s

.CHECK IF "CLEAR CONTROLLER DID NOT
.~
CLERR ERROR”

INO, CHECK OTHER CONTROLLER ERRORS
:DISPLAY REGISTERS

TYPE

000210

ERROO1

FOR OTHER ERRORS
DRIVE SELECT"
“MULTIPLE
rv#s CHECK

S§
ERROC3
10s

TYPE

8%:

ERROOG

BEQ
TYPE
BR

TYPE

78:

:STORE R4 ON STACK

*GET CONTROLLER STATUS
:CHECK IF BELL ON ERROR
no CONT xnue
RING BELL
srons CONTROLLER INDICATORS
cuecx IF DUPLICATE DRIVE SELECT

TYPE

6%:

RY, - (SP}

PC’'1.STOR
osaxo JSWR
SBELL
£.CONT,R4
8. MDS . RY

TYPE

000010

001403
104401
000457

6373

2%:

060625

026444
026446
026452

CUNTROLLER ERROR DETECTED BY RKO& DRIVER

CONTRL: MOV

152556

SEQ J140

BITB
BNE
TYPE

'NO,

CHECK IF CONTROLLER TIME OUT

#DTYE, T.ER
13%

:SEE xr ORIVE TYPE ERROR
'BR IF YES

103

:DISPLAY REGISTERS

148
,ERR201

:BR IF Y£S
‘ELSE VALID ERROR

ERR201

#BITO,P.ASSN(RS)’

-SEE IF IN PROCESS OF ASSIGNING

C‘R&PCO RK611-06 PERF _EXEC
CZREPC. Pll
01-DEC-77 14:53

6397

oo o
L r£
U 0 s s ot Bt s s P
Ov@NC
N LW

6398
6399
6400
6401

026560

000414

8 6562
6566
026574
026576

004737
012737
glee04

88?030
000G«

026600
026604
026606

032704

040000

geeele

104401
004737
004737
104401
000000
000776

001165
043670
025652
060533

026636
026642
026644

032704
001001
000000

002000

026646
026650

012604
052765

MARCv11

9s:

108

JSR

PC, FLPAPM

128

BIT

BEQ

TYPE

064136

10%:

TYPE

JSR
JSR
TYPE
HALT
BR

20s:

BIT

000010

000034

808040
00000

000010

30%:
12%:

é L PARAM BLOCK WITH CORRECT RK06-07 DATA

8] NEWFLG
(SP)+,RY

'SET
FLAG TO SHOW
DTYE ERROR ON ASSIGNING
:RESTORE RY

#E.CMTO,RY

:CHECK IF CONTROLLER TIME OUT

20%

:NO, CHECK IF DRIVE DETECTED DRIVE BUS PARITY ERROR

, ERR207

$SCRLF

TYPE < CR> «(LF>

AC,PRITIM
PC’PRIREG
, ERROOO

PRINT TIME
PRINT CONTROLLER REGISTERS
:TYPE FATAL ERROR
‘HANG ON FATAL ERROR

-2

8E . DPAR, RY

;CHECK IF “DRIVE DETECTED DRIVE BUS PARITY ERROR"

(SP

;RESTORE R4

CLR

RKMR1 (R2)

CLEQR nnxnrsnnncs REGISTER 1

Bés
5558

§u§8 Ek
RKCSE(R&)
cngn
RKC
unx
R READY

JSR

octna,r.csx

30%

MOV

oonpnh P ER(RS) ;SET DRIVE DETECTED DRIVE BUSSOTT> PARITY
R3, -(SP)
:STORE R3 ON THE STACK
0. anx
:CLERR unxtxuc FOR ZOMMAND COMPLETION
P DRVN(RS),R3
;GET DRIVENUMBER

BIS
MOV
CLR
MOVB
MOV

35%:

'YES, SET DRPAR IN ERROR REGISTER

R3, RKCS2(R2)

ono oaxvs NUMBER

STOR

s STORE REGISTERS

047236
106000

001410

BIT

137400

ooi4le

CHECK FOR CONTROLLER TYPE ERROR
grxé
5g§£enosePcsenenensoeupszoLr,T.cse

130761

0c142e

BIT

0ee726

001413

026730
026736
026740
026746

032737
001004
032737
001412

026750
026754

104401
000716

063651

026756
026764
026766
026772

136337
001403
104401
000707

001514

026774

146337
006303
005063
012603
005737
001402

BEQ

BEQ
36%:

001425

37%:

001514
001544
027156

TYPE

pois1e

40%:

*CHECK IF CONTROLLER ERROR

378

'NO, CHECK IF ATTENTION CLEARED

$ILC!DTYE!FMTE!ECH!BSE'HVRC'DTE!OPI'DCK,
T.ER

40§

ERR201

: TYPE CONTROLLER ERROR DURING DRIVE SERVICING

GO REPORT ERROR

ios

BITB
BEQ

INTMSK(R3),T.ASOF+1_;CHECK IF ATTENTION CLEARED
REPORT ERROR
E
40%

TYPE
BR

060707

SEQ 0141

:DISPLAY REGS

BNE

HALT

001464

027012
027016

B8R
MOV
MOV

027156

ooo42?
DO1414
104401

L1l

01-DEC-77
15:04
PRGE 143
CONTROLLER ERROR DETECTED BY RKO6 DRIVER

30(1046)

BICB

ASL
CLR
MOV
75T
BEQ

ERROOY
ios

YPE “DRIVE CLEAR DID NOT RESET RTTENTION"
co REPORT ERROR

xnrnsx(na) W.TIM:.

3
W.DRV(R3)
(SP)+,R3
NEWFLS
41§

:CLEAR TIMING CURRENTLY ON THIS DRIVE

sMOLTIPLY BY
:CLEAR WATCH DOG TIME
:RESTORE R3
:SEE IF DTYE ERROR ON ASSIGNING
:BR IF NO

CZR6PCO RK611-06 PERF EXEC
01-DEC-77 1M4:S83
CZR6PC .P11

000137
000137

024222
0es3ie

483 g878%8 331083

000004

6453

64SY
6:55
6458

027020
027024

027040

142765

4gd 887838 BABZ87

6461
b46

646
b46M

000207

887052

68276

027104
Dezile
027120
027126

012737

027130
027136
027144
027152

027154
027162

141

000007

30(1046)

000Lu4

00207

000000
000000
peoc:
"
000CCu

15:04

M1l

PRGE

144

SEQ 0142

418:

JMP
JMP

NORMAL
RBNORM

FLPARM:

BETB

cg.CDT,P.CSIH(RS)

-gse IF RKO&6 PARMETER USED LAST

#8.C0T,P.CS1H(RS)

{ELSE TRY RKO& PARAM BECRUSE OF DTYE

BICB

ngv
18:

LSTCYL:
NEWFLG:
HOLD:
HOLDi:

OBSE.P.MXCL(RS)

81sB

#8.CDT,P.CSIH(R ?)

; TRY RKO7 PARAM BECAUSE OF DTYE

#8.CDT,P.CSIH(RS)

-gss IF RKOB

MOV

BITB

#1456,
P. MXCL (RS

1§

MOV

#814. ,LSTCYL

RTS

MOV

#410.,LSTCYL

RTS

MOV
MOV

0p4741

:BR IF YE

GETNUM:

18:

;ELSE GO NORMAL RET
;GO TO ABNORMAL RETURN

RYS

RTS PC

000207

012737
012737
012737

O01-DEC-77

CONTROLLER ERROR DETECTED BY RKO& DRIVER

000004
000632

357084 dis7ee 387988

027072

MACY1l

MOV
MOV
O
O
0
O

:BR IF Y&

.ELSE LOAD RKO7? VALUES

#(B14. %22, #3.>4¢22.%2.> ,HOLD
$(81Y4.%02.%3.>+¢22.%2.>4]
,HOLD!

-LORD RKO6& VALUES

8410, %22, 83.>+<22.%2.> ,HOLD
#8410, %22, %3.>+<22.%2.>+1,HOLD1

CZR6EPCO RKB11-0& PERF _EXEC
CZREPC.P11
01-DEC-77 14:53

N1l

MACY11l 30(1046)
O01-DEC-77 15:04 PAGE 14S
CONTROLLER ERROR DUE TO REIGSTER INCONSISTANCIES

2383

ENEE
6487

_SBTTL

027164

004737

051626

6488
6489
6430
6441
6492
6483
6494
6495

027170
027176
857200
7204
027212
027214
(027222
QO2re2ed

032777
0OCI402
104401
032777
001404
032777
001050
032737

002000
001160
020000
040000
000001

€498

(27240

032737

000002

601

027254

032737

6496
6497

6499
6500
6522
6503

2?83

6506
6507

027232
027234

Q027246
027250
(27262
027264

027270

027276
027300

001402
104401

001402
104400
001402
104401

032737
001402
104401

6508
6509
6510
6511
6512
ggia

027304
027312
027314
027320
027324
027330

032777
001014
004737
004737
004737
032737

6515

027336

001402

,
061311

061350

000004
061401

000010
061425

CNTRL1: JSR

PC,G.RMCV

1S1742

151726
151716
001564

1S:

28:

BIT
BEQ
TYPE
BIT
BEQ
BIT
BNE
BIT

#SW10, ISWR
18
$BELL
kSWI3, aSUR
23
#SW14, ISWR
108
88170, ERCONT

ICHECK IF BELL ON ERROR
:NO conrxnue
:RING
B
CHECK IF INHIBIT PRINT OUT
:NO_PRINT ERRORMESSAGE
:CHECK IF CYCLE ON OPERATION
SYES, CHECK IF LOOP ON OPERATION
:CHE&K IF “CONTROLLER ERROR NOT FLAGGED"

001564

3%:

8IT

kBIT1, ERCONT

;CHECK IF "WORD COUNT NOT O

001564

4$:

hBIT2, ERCONT

;CHECK IF “BUS ADDRESS INCORRECT"

001564

65%:

kBIT3, ERCONT

°“§fi§ IFEE$YLINDER TRACK, SECTOR

020000

151626

043670
02607
030244
000001

001564

6516 027390 004737 030066
6517 027344 032777 100000 151566
6518 027352 001010
6519 027354 032777 040000 151556
6520
7362 00100S
6521 027364
104401 060533
6522

027370

6524

027376

6531
6532

027436
027440

6523

£E5es
6526
€527
6528
6529
6530

104401

027374

000000

02740M
027412
027416
027424
027430
027432

012762
005062
112737
004037
027440
004037

012737

001324
000207

061030
100000

100000
000026
000005
046774
051406

CONTROLLER ERROR DUE TO REIGSTER INCONSISTANCIES

2JC1S64

000090
001410

7%:

10S:

118:

i58:

20%:

BEQ
TYPE

38
ERRO13

BEQ
TYPE

T
ERRO 1TM

BED
T &

S$
ERRO1S

BIT

Bii

BEQ
TYPE

’

ERRO16

BIT
BNE
JSR
JSR
ISR
BIT

kSW13, ISWR
108
PC PRITIM
PG PRISTT
PC’PRIDOZ
#8170, ERCONT

BEQ

108

JSR
BIT
BNE
BIT
BNE
TYPE

TYPE

HALT

MOV

MOV
CLR
MOVB
JSR
208
JSR

CINITG
s

s REMOVE PRRAMETER BLOCK FROM THE
:
"COMMAND INITIARTION QUEUE

sCHECK IF INHIBIT PRINT OUT
:YES, CHECK IF HALT ON ERROR
'PRINTTIME
PRINT RKO6 REGISTERS
*PRINT CURRENT SUPPLIED COMMAND
CH§8¥ é{nggggROLLER ERROR
0

PC,
PRIOO!
#SW15, ISWR
118
osu1u aSWR
168
, ERROOO

DO NOT PRINT PREVOUS COMMAND
PRINT
PREVIOUS COMMAND
CHECK IF HALT ON ERROR
ES, HALT
CHECK
IF LOOP OPERATION
YES,
CLEAR ERROR
PRIHT “FQTRL ERROR”

#8IT15S,ERCONT

;SET CONTROLLER ERROR PRESENT

"
"INITIRTION QUEUE
*RETURN

' ERROO?

'PRINT *SET SWITCH 14 TO CYCLE ON ERROR"

#CCLR hKcsx(Ra):CLERR CONTROLLER
RKMR] LR2
:CLERR MAINTANENCE REGISTER 1
%0R. CLR CS1
;LORD COMMAND INTO TEMPORARY CS1
RO,I.ISSU
:GO ISSUE oaxvs CLEAR
'ERROR _RETU
RO, Q. PUSH
‘PUT pnnnnsrsn BLOCK ON COMMAND

SEQ 0143

CZR6PCO RKB11-06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:53

MACY11 30(1046)
01-DEC-7??7
15:04
PRINT WHOLE DATA BUFFER

ggga

6535

(027442

6537

0274

PRINT WHOLE DATA BUFFER

PRIBUF:

CMPB

000121

000i23

032765

000010

000150

027462
027470

052765
032777

000010
020000

000150
151442

8IS
817

gg:g

027500

032777

000010

151432

BIT

6544
22:2

027506
027510

001001
000207

6547

027512

010146

6549

027516

010446

104401

064321

027524

013703

001634

6538

6539
6540
6541

6548
6550
6551
6552

027y

001017

027460

0CIO01Z

027476

027514

027520

001004

010346

6553
6554
6565
6556
6557

027530
027534
(027536
027542
(027546

013704
01034
004737
104401
012701

6559

127556
02

012346
004737

6558 027552 104401 001165
6561
6562

027564
027566

6563
6564
6565
gggg

027570
027572
0275749
027600

6568

027602

6569
6570
6571
£572

027606
027610
027612
027614

005304
00140S

052774

005301
001765
104401
000766

060530

104401

001165

012604
012603
012601
000207

SRDDATA, P.RCMD(RS)

; CHECK xr RERD DATA

BNE

¢§

BNE

:YES

c§:

BNE
RTS

108
PC

:YES, PRINT
:RETURN

108:

MOV

R1,-(SP)

;STORE Rl ON THE STACK

MOV

RY’ -(5P)

:STORE R4 ON THE STACK

MOV

RTYBA,R3

:
SECTOR IN ERROR
:GET
RODRESS OF START OF SCTOR

BIT

MOV
TYPE

001636
052774
064372
000010

PRGE 146

.SBTTL

122765

Bl2

158:

208$:

MOV
MOV
JSR
TYPE
MOV

TYPE

MOV
JSR

DEC
BEQ

DEC
BEQ
TYPE
B8R
30S:

TYPE

MOV
MOV
MOV
RTS

:NO, RET

»31T3,F. DSTT(PS) . CHECK IF TIME TO PRINT BUFFER
RE TURN

#BI73,P. osrvxnsm stT BUFFER ATTEMPTED T0 as PRINTED
#SiW13, ISWR
,c né INHIBIT PRINT OUT

#SKW3, ISKR

R3.-(5P)
,ERR213

TURN

CHESEO F P@éUER$ECT°“ BEFORE BEGINNING
SECTOR IN ERROR

:STORE R3 ON THE STACK

:TYPE RDDORESS OF BEGINNING OF

RTYWC ' RY
R3, -(5P)
PC BINOCT
Ehnexu
ks.

:GET WORD COUNT
:STORE
STQRTING ADDRESS FOR PRINT OUT
:CONVERT OF OCTAL
'TYPE DATR READ
'SET 8 COLUMNS ON PAGE

tR3)+ -(SP)
PC BINOCT

:GET NEXT WORD OF SECTOR
: CONVERT 19 OCTAL

sckLr

(¥YPE «CRYLF)

3os

;cuecxaér o&uxsuso
YES
gr E
REGISTERS

$CRLF

rvp; CCR> (LF)>

R1
15%
BLANKS
20§
1SF)+, RY
(5P)+ ' R3
(5P)+ Rl
PC

:cHECK IF END OF LINE
vss IN TIRLIZE COLUMN COUNT
ENE
ANKS
GET
XT WORD
:RESTORE RY
"RESTORE R3
'RESTORE R1
'RETURN

SEC 1N

CZREPC.P11

CIR6PCO RKB11

J1-DEC-77 14:S3
06 PERF

EXEC

MACY1l

Cleé

gnfnv ovaé RN PACK ?egxaL NU séng

30(}0N6)

0}-DEC-77

15:04

PRE

SEQ Q148

ggga

.SBTTL

PRINT DRIVE ANO PARCK StRIAL NUMBERS

65 S
76
1
6578
§§7E§§
§i§5:§
7
6o
49

PRISER:

MOV
n§v
MOV

6578
65

027624
027630

658

6580

658

6583

6584

sgas
6

6587

027634

7642

012701
016503
103

MOV
MOV
ROL

103

ROL

012704

ROL

000003

2s:

6594
6595
659%
6597

6238

6599
6600
6601
6602
6603

2&8}

606

6607

106111
006103
106111

ROLB
ROL
ROLB

7706

016503

000060
056555

000226

MOV

016504

000230

MOV

027716
357753

012701
685065

057143

MOV
CLRB

7726

027730

10501}

S ¥

006103

006104
xosxxé
00610
006104
106111
006103
006104
106111

6617

027756

022701

067156

6619
6620

027764
027770

104401
012604

O0S7116

6622

0277?74

012601

b2l

6623

BISB
DEC
BNE
TYPE

027712

(27782
027762
027772

027776

152721

101361

(R1)

e
o
ol

027732
0277NM
027736
027740
027742
027794
02774
027750

6618

(R1)
R3
(R1)

4
7598
76

152721
005304
001363
104401

ROLB

027672
027675
00
7702

83, RY

ROL

J06111

6608
5609
6610
6611
bole
6613
6614
6615

6616

CLRB

027654

e
Do
i
8
ke
el

659]
6532
6533

MOV

7s:

000060

CLRB
ROL

860, (R1)+
RY
2s
§TTD00

P PKSR(RS),R3

:LOAD NUMBER OF DIGITS OF SERIAL NUMBER

:CLEAR NEXT BYTE FOR PRINT OUT
:SHIFT IN NEXT 4 BITS

:CHANGE BCD TO DECIMAL
'CHECK IF FINISHED
: CONVERT NEXT
&cxr
*TYPE "on*vg
}RL

SIGNIFICANT

:SYART C

RSION

(R1)

:CLEAR NEXT BYTE OF PRINT OUT

cMP

8STY013,R!

860, (R1)+

BHI

812&03

MOV

(5P)+.R3

000207

RTS

MOV

BITS OF

.
PACK
SERIAL NUMBER
P.PKSR+2(RS),RY :GET MOS 3 gtxrxcnur BITS OF
.
PACK SE
NUMBER
sSTT012,R1
:GET RDDRSESS OF ASCII STRING
(R1)
‘S#ERR FIRST
BYTE gr PR;NT out

RY
(R1)
R3
RY
(R1)
R3
RY
(R1)

TYPE
MOV

:SHIFT DRIVE SERIAL NUMBER 4 BITS LEFT

:GET LEARST

ROL
ROLB
ROL
ROL
ROLB
ROL
ROL
ROLB

BI1S8

K
gh‘?&
TRCK

:GET ADDRESS OF RSCII érach
:GET DRIVE SERIAL NUMBER

ROL

6103

:S7
;gr&‘fg
B4
;STORE
RY

sstri00,.R1
P SERL(RS),R3

103

0276MM

857522

056600
000224

-(SP}
né.-(gm
R4, -(5P)
R},

YO oCtAL

:SHIFT IN NEXT THREE BITS

;MAKE IT RSCII

"CHECK IF FINISHED
:NO,

CONTINUE CONVERSION

STT011
tSP)+,RY

PTYPE PACK SERIAL NUMBER
'RESTORE RY

(5P)+ R1

'RESTORE

'RESTORE
*RETURN

CZREPCO RKBI1

CZRBPC.P11

06 PERF EXEC

01-DEC-77 14:53

MACYL1

ggg
6626

6627

030000

0300

032777

001402

66
6ggg?

3001 633“%
30014
7
838853 ?‘BéE§9

ssag

030032

152337

002000

151132

30(1046)

056357
056357

15:04

D12
PARGE

PRINT BEGINNING OF ERROR HERDER

148

SEQ 0146

.SBTTL

PRINT BEGINNING OF ERROR HEADER

PRIOOC:

BIT

1160
0000 151116 1§:

00000C
000038

DOI1-DEC-77

223'4 83@3 1337& 838801 000210
2%35
o3 :55 003090;
276
5639
838820
ke
vd
843558
6638
(030064
000207
208:

BEQ

#SW10, 3SWR

cnscx IF BELL ON ERROR

HECK IF INMIBIT PRINT OUT

TYPE
BIT
NE

goa

BIT
?35
JSR
RTS

58178 2 nssmnsw
S x? sE IEZING FOR DRIVE
ecspa
SER
‘PR
mYE?OETQNO
Pncx SERIAL NUMBERS
pcpninn
PR%NT
9
s RETURN

ov8
g\x{ga

bsuxa JSWR

Rm
cnscx
xr INHIBITCONTROLLER
PRINT OUT ERROR
g A?casnem

RVN(RS) , opro1l
;2%0
cso OPRO11
nbe ~on1v§”

BER
R N

CZREPCO RKB11-06 PERF

CZREPC.P11

_EXEC

01-DEC-77

14:53

MACYil

6639

6640

6641
6642
6643
6644
664S

0300
030072
030100
30182
0301

10440]
122765
001402
104401
104401

063462
000121

6647
6648
6649

030114
030120
030124

116516
004737
104401

000135
052774
060530

6651
6eS2
6653
66SY
66SS
6656
6657

030134
030140
030144
030146
030152
030156
030162

004737
104401
00S046
116516
004737
104401
00S046

052774
060530

6e46

6650

6658
6659
6660
666l

6bbe
6663
6664
6665
6666
6667
6668
6669
6670

030112

030130

030164
030170
030174
030200

030204
030210
030216
030220
030224
030226
030232
030236
030242

005046

016546

116559
0047
104401
016546
004737
122765
001407
104401
SO46
116516
004737
104401
000207

000135

3544
1165

30(1046)
1S5:04
01-DEC-77
PRINT PREVIOUS COMMAND

PRINT PREVIOUS COMMAND

PRIOOL:

TYPE

cs:

cMPB
BEQ
TYP
TYp

CLR
MovB
JSR

TYPE
MOV
JSR
TYPE
CLR
MovB
JSR
TYPE
CLR

000141
052774
060S30
000140
052774
060S30
000142

SEQ Q14?7

149

“PREVIOUS CMND
SYL

hnoonrn P. LCHO(RS) HECK IF READ DAT
R101

Ennxga
SCRL

YEQ

PRINT <CR>LF>
:MAKE ROOM ON STACK

P, LCHO(RS) (SP) GET LAST COMMAND

tnNK
Z(SP

P LTRK(RS) (SP)

INOCT

ainnxs

:TYPE 2 BLANKS

‘MAKE ROOM ON STARCK
IGET LARST TRACK USED
:CONVERT TO OCTAL

TYPE 2 BLANKS

-(SP)C(RS)
(spy |onvkn
HKE OO TSESC
N 3R SED
pC,BINOCT
'
BLANKS
TYPE 2 BL
BINOCT

ONVER

uono COUNT
#n§7

oabonrn,P LCHD(RQ);CHECK
IF Pnr # VALID
T TYPE
oo

00013S

108

BLRNKS

TY#E

P.LDPT(RS), (SP)
PC,BINOCT
SCRLF
pC

cer LAST DATAR PATTERN
:CONVERT TO QOCTAL
STYPE (CR><LF>
*RETURN

(SP)

109%:

TRK SEC

DO NOT PRINT PATTERN NUM

PR§fiT “pQT"~

PC exnoc
'CONVERT TO OCTAL
BLANK
,TYPE
2 BLANKS
P LCYL(RS) -(SP)':GET LRST CYLINDER USED
NoCT
: CONVERT TO OCTAL

#LNC(RS),-(SP)

060530

000144
052774
00116S

PAGE

.SBTTL

000136

052774
000121

El2

NKS

MAKE ROOH on STACK

WRD CT”

¢ ZR6 CO RK611-06 PERF_EXEC
C ZRb
ePC. P11
01-DEC-77 14:53

6671
6672
6673
6674
6675
6676
6677
66

030244

104401

063351

030250

1 2765
402
104401

ooolel

0302

401

Tieele

MACY11l

F12

30(1046)
15:04
PAGE
01-DEC-77
PRINT CURRENT GENERARTED COMMAND

PRINT CURRENT GENERARTED COMMAND

PRIOO2:

TYPE

,ERR100

CMPB
BEQ

cpoonvn,P.cho(Ré)-CHECK IF PAT # IS TO BE PRINTED
nor PRINT HERDER
:NO’
3
:PRIN
"ERR102
! PRINT <cn> (LF>
. anr
SP
‘MAKE ROOM ON STACK

Ss:

; PRINT “CURRENT SUPPLIED COMMAND"TM
CYL TRK SEC OFFSET
WRD CTTM
BUS RD

P. CHND(RS) (SP)

Z(SP)

2(SP)
#21,P.RERD(RS)
108

000147
108:

poglel
052774
0011865

B{ ANKS
:TYPE 2
aLnuKs
#.BR&O(RS),-(SP) T
gus
PC,BINOCT
;Covsn
0 OCTAL
e(nnxs
;TYPE
BLANK

I SP

PC . BINOCT

$CRLF
pC

TORE

WORD CO

:COVERT TO OCTA
cho(RSJO
cnecx IF Pnr 8 IS TO BE PRINTED

P. DPRT(RS) (SP)
159%:

ROOM ON THE STACK
*MAKE
-cwccx IF OFFSET
INDICATE ZERO OFFSET

PC,BINOCT

BLQNKS

060530

s{noon
ON STACK

svo
: CONVERT T0 OCTAL
'TYPE 2 BLANKS
:MAKE ROOM ON STARCK
:STORE SECTOR
'CONVERT TO OCTAL
;TYPE 2 BLANKS

P.OFST(RS), (SP) svbsg ?rrser
FOR PRINT OUT

:RODRTR

000123

oQu4?37
104401
000e0?

:STORE COMMAND FOR PRINT OUT

PC,BINOCT
: CONVERT TO OCTAL
BL ANKS
STYPE 2 BLANKS
A CYLN(RS),-(SP)’.STORE CYLINDER
PC,BINOCT
; CONVERT TO OCTAL
, B ANKS
TYPE 2 BLANKS
P.TRCK(RS), (SP)
P~ BINOCT
, BLANKS
1 (SP)
P.SECT(RS),
(SP)
PC,BINOCT
, BLANKS

030440
030444
030446
030452
030456
030462

SEQ Q148

.SBTTL

00C1e3

063544
001165

150

TY#E
: MAK

Roon on THE STACK

'STORE DARTA PATTERN FOR PRINT OUT
'CONVERT TO OCTAL
'YYPE <CR><LF>
'RETURN

CZREPCO RKB11.06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:S3

MARCY11l

Gle

30(1046)
O0O1-DEC-77
15:04
PRGE 151
PRINT ERROR MESSRGE AND CPOP DRIVE

SES J1i49

g;ig

.SBTTL

671;

H ‘lllllilllilil{llllllllll!Illl!i!llll!llllllllilll{Illl!illliiii

6718

EXPECTED PRINT CODES

BIT 1

67)

6719
6720

(#
; ¥

5755

s a

6721
67

g;gg

E;Sg

6728

030464

010446

030466
838:7
7
030476

012004
5204
10437
004737
wgb

132765

67
g;

é?

1045

4
7

PRI100:

030S04
030000
000001

30544

2s:

794

026074

031550
(03,654

1407

6747
6748
6749
5750

030t62
030564
030570
030579

001402
104401
004737
132714

064102
025720
0001060

£O0002

0306

2714

038213

oo:;g;

£764

g;gs

PRINT PR vxgug IT]ON

QUESTIONABLE

DRIVE

STATUS

CURRENT csnsnnrso COMMAND

030600

001402

030612

1402

(030634
030640
030644
030650
030652

004737
004737
00S037
012604
000200

MOV

RY, -(SP)

MOV
INC
MOV
JSR
Tvps

(RO)+,RY
RY
R4, 2%
PC.PRIOGO

BITB

#BITO,P.RSSN(RS)

WORD

1 s

bgula,asun

e
ABsrras
TYPE
ERR202
:

3s:

JSR

PC PRISTT

:STORE ADDRESS OF PRINT CODE
:CALCULATE START OF MESSAGE
:STORE ERROR MESSAGE ADDRESS
:PRINT HEADER
:TYPE ERROR MESSAGE
-SEE IF SIZING FOR DRIVE

YP <c > <L
‘CHECK IF INHIBIT PRINTOUT

IEECH
Pleoremon
3£ Egn ? 3555 E §oy
|4

PRINT CONTROLLER REGISTERS

4§ :
c3:

BEQ
TYPE
JSR
BITB

4s
ERR206
PC,PRDSTT
88176, (RY)

'NO, DO NOT PRINTM SAGE
(PRINT ~QUE
TIONRBLE DRIVE STATJS"
PR NT ovas 2
CK IF
P ;a ?L
RENT fsnzanrso COMMAND

000004

8%:

BITB

oetTa (RY)

og?ggg

;gs

013004
022342
001566

aére

(RS)

;STORE R4 ON STACK

cuscx 1F PRINT DRIVE STARTUS

678 8305
05265 000206
6768
030630 004737 022642
6789
6760
6761
6762
6763

PRINT DRIVE srnrus

2871, -(RD)

6752 030602 004737 030244

6763

BIT &

TYPE
eér

6746 030556 132714 000040
6251

gxr g

BNE

00G1

6744

6745

000210

01165
Bo0008 150410

el
BE8 B
oo
674 838233
ug; 063721
674

eeeemceecccccccecceao-

!}lllliilllll!lllllllllllllllllllllllllllll*illllillllilllilfllll»

6729
6730
6731
6732
6733
67

PRINT ERROR MESSRGE AND DROP DRIVE

BIT8

12%:

BEQ

JSR

BEQ

INC

#BITS, (RY)

RTS

CONTINU

Htcx IF ouesrlouanLE STATUS
DO NOT

CURRENT COMMANC

PC,PRIOCR2

PRtNT CURRENT GENERATED COMMAND

;g PR%OOé

JPRINT Paevxous COMMAND

PC BUFREL
PC . DROP
pC’ GETBUF
ERRPR
(sp>+ Rq

'RELEARSE BUFFER
‘DROP DRIVE rnon TEST SEQUENCE
:GET NEW DRIVE, COMMAND, AND BUFFER
*CLEAR_ERROR CURRENTLY BEING PROCESSED
'RESTORE RM

Hfi 32

JSR
JSR
JSR
CLR
MOV

;

cnecxHér
PRINT Pnevxous CuMMAND
INO,

T ON ERROR

xngnsnsnv bTHgN ERROR COUNT

*RETURN

CZRePCO RKe1l
CZR6PC.PLI

06 PERF EXEC
D1-DEC-77 14:53

MACYLIL

30(1046)
OL1-DEC-77
PRINT ERROR MESSRGE

15:04

H12
PRGE

1S2

SEQ 3180

g; g

.SBTTL

676
676

,‘illllllliilllilllllfill!lllll!lll!i!l!!i!!lillltiil*iill!ll*l!}’
:

6768

EXPECTED PRINT CODES

;¥
%]
L

BIT O

6769
6770

R
HE

6774

o ¥

67?27

6771
6772
6773
6775
6776

E;;g

PRINT ERROR MESSRGE

ittty

BIT |

BIT 2

o %
3

BIT 3
S}T Y

; ¥

BIT &

DATR TYPE ERROR
= 1
?RTR TYPE ERROR =0
PRINT
DRIVE
STATUS

PRINT PREVIOUS POSITION

PRINT aECTOR IN ERROR
PRINT
RgER

QUESTIONABLE DRIVE STATUS

CURRENT GENERRTED COMMAND

g;go
1

6782

6783
6784

030654

010446

030656
030660

012004
132724

6788
6789
2;30

030674
030676
030700

001402
012604
000200

679

030702

0S276S

PRI200:

000001

E;SS
6789 338222 8gé;ég 000002 000150
030710
030712
030720

10001S
0527865
000411

000002

000150

000001

000150

6797
0?7
6798
830733

2765

000004

0001S0

6793
&7
g;gg

1402

1§:

=oS:

%gITl P. DSTT(RS) CQE?NG
gfifgnTnT;Y¢$PER2820R
PR8g

18
(SP)+,RH
RO

BIS

#BIT1,P.DSTT(RS)

000004

gggs

030756

801&5;

3100

ggs

6808
6809
6810

030770
030772
030776

100402
104401
10%406

063721

BMI
TYPE
TYPE

104401

O0O0!116S

€804 030750 032777 020000 150162

680

6811

68le

6813
681N

8%8764 16g765
031000

031002

000

6815

31006
31012

031016

004737
132744

£817
£818

031024
031026

001402
104401

001407

6%3:

108:

JO1S

118:
129%:

6619

0231032

9304737

BIS

JSR

<sp)+ RY

OBITE P.DSTT(RS)

PRYO0O

BIT

osfixa JSWR

7578

0%#?(RS)
ERREOE

. WORD

026074
(000002

JSR
glTe

AC _PRISTY
IBITl -(R4Y)

064102

BEQ
TYPE

208
ERR206

025720

TYPE

BEGQ

6816 031020 132714 000040

BITB
20%:

:SET DATA TRANSFER ERROR OCCURRED

#BI1T2,P.DSTT(RS)
IF NON-DATA TYPE ERROR OCCURRED
6
Ho;CHECK
REPORT
ERROR

BEQ

RTS

000150

NO PRINT HESSRGE
'RESTORE R4
:RETURN

BIT

MOV
030000

GET PRINT CODE ERROR FLRGS
;CHECK IF DATA TYPE ERROR

108
¢HECK IF START OF ERROR RECOVERY
cBITO P.DSTT(RS) . YES, SET SERVICING DATR ERROR
108
60 REPORT ERROR

0S2765

004737

;STORE R4 ON STARCK

BPL
BIS
BR

030736

030744

(Rb)+ RY
oBITO (RY)+

BEQ
MOV
RTS

6802

6803

RET CR AR AR R

g??

012604
000206

NN R RN

RY, -(SP)

030732
030734

MOV

MOV
BIlTB

6799
ggg?

JSR

SCRLF

ccs

88175, (RY)

¢C PRDSTTY

'RESTORE RY
;

RETURN

SET NON-DRTR ERROR OCCURRED

,?YPE ERROR HERDER

;CHECK IF INHIBIT PRINT ouT
YES INgéBIT
PRINT OUT

CH CKi ggRgs SURgNG RECOVERY

,No PRIN
PRiNT 8R"8gRING ERROR RECOVERY"TM
‘PRINT ERROI
;s TYPE

<CR> <LF)»

PRINT CONTROLLER REGISTERS
CHECK IF PRINT DRIVE STATUS
E

GCK IF Qu STIONRBLE DRIVE STATUS

NO DO NOT PRINT MESSAGE
TY#E “QUESTIONRBLE DRIVE STRTUSTM

PRINT DRIVE STATUS

CoREPCO RKBI1-06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:83

6820
6821

6822
6823

031036
031

132714
001402

000100

seeg

031044
031050
331054
(031056
8310&2

004737
132714
001402
004737
32714

030244
000004
030066
000001

6828

031070

032765

100000

031100
031104
031110
031114
(031120
031124

104401
016546
004737
(04401
3665
4737

063150
000062
052774
060530
000060
052774

6837

031134

682724

000020

6839
6840
6841

031142
031146
031152

104401
013746
004737

68249

6825
682

6829

£830
€831
6832
6833
6834
66835
836

6838

1066

031076

031130

031140

1422

001416

104401

1424

013746
004737

060530
001650
052774
060530
001652
052774

6849

03i2le

132744

000010

104401

6850
6851

031216
031220

00502
004737

6863

031230

001403

6852

031224

000001

031232

042765

100200

6856

031240

004737

031250

£868

031246

000200

031244

012604

25§

000150

8BITH, (R4
238

153

SEQ Q1S1

:CHECK IF PRI~ CURRENT COMMAND
*NO,
CONTINUE

BIT

8DCK,P.ER(RS)

:CHECK IF DATAR CHECK

JSR

BEQ

278
27%

'NO,

DO NOT PRINT ECC

'NO,

DO NOT PRINT ECC

TYPE
MOV
JSR
TYPE
MOV
JSR

ERROL7
:TYPE ECC PAT, ECC POS
P EPAT(RS),-(SP) .GET PATTERN
PC,BINOCT
:LONVERT TO OCTAL
B( ANKS
P EPOS(RS),-(SP) :GET POSITION
PC,BINOCT
; LONVERT T0 OCTAL

BITB

BBITY, (R4 +

:CHECK IF PRINT HEADER

ERR111
HERD1, - (SP)
PC,BINOCT

:TYPE HERDER DESCRIPTOR
:STORE FIRST WORD OF THE HEARDER
*CONVERT TO OCTAL

TYPE

BEQ

SLRLF

308

BLANKS
HERD2, - (SP)
PC,BINOCT
Bl ANKS

!NO,

CHECK IF WALT ON ERROR

STYPE 2 BLANKS
:STORE SECOND WORD OF THE HERDER
:CONVERT TO OCTAL
:TYPE 2 BLANKS

MOV
JSR

HERD3, - (SP)
PC,BINOCT

BIT8

kBIT3, -(RY)

'CHECK IF PRINT WHOLE SECTOR

86170, (RW)

'CHECK IF DATA TYPE ERROR

TYPE

SLRLF

BEQ
JSR

40$
PC, PRIBUF

BEQ

45§

JSR

PC,HLTOOO

RTS

BITB

BIC
45§

PRGE

BIT8

8EQ

TYPE
MOV
JSR
TYPE

40$:

I12

‘PRINT CURRENTLY ISSUED COMMAND
SCHECK IF PRINT PREVIOUS COMMAND
'NO, CHECK IF PRINT HEADER
:PRINT PREVIOUS COMMAND
:CHECK IF DARTA TYPE ERROR

TYPE
MOV
JSR

308:

15:04

PC,PRIOC2
s8lte, (RY)
258
PC,PRIONO!
#8710, (RW)

BEQ

278:

027442

Eggg
6857

JSR
BIT8

000034

001165

132714

BITB
BEQ

23%:

063563
001646
0S2774

031156
(031162
031195
031172
031176
831202
031206

22%:

001165

6842
6943
£ 44
645
6846
6847
6848

104401
01374
004737
104401

MACY1l 30(1046)
O01-DEC-77
PRINT ERROR MESSAGE

MOV

'STORE THIRD WORD OF THE HERDER
: CONVERT TO OCTAL
:TYPE (CR><LF>

:NO, CHECK IF HALT ON ERROR
:GO’ PRINT BUFFER
'NO,

CHECK IF MALT ON ERROR

OBITlS!BIT?,P.DS?T(éE%UQSESQR FIRST ERROR AND ERROR
(SP)+, R4

'CHECK IF HALT ON ERROR

‘RESTORE R4
:RETURN

QZRBPCO RK611.06 PERF EXEC
CZR6PC.P11
O1-DEC-?7 14:583

MACTYL] 30(1046)
01-DEC-77
15:04
T ON ERROR CHECK

gggg

6861

.SBTTL

6862

031256

031250

032777

e8e?

031272

00177S

6869

031276

000207

100000

6863
031260 00S737 001464
6864
6865
031264
001403
6866 031266 10576 000000
ege8

031274

001407

000000

147662

HLTOOO:

PRAGE 1S4

SES 0182

HALT ON ERROR CHECK

BIT

18:

TST
BEQ
7578

S§:

HALT

108:

Jie

BEQ

BEQ
RTS

8SW1S5, dSWR

CHECK *F HALT ON ERROR

O0.WRIT
ss
RKCS1(R2)

;HQCK
IF WAITING FOR COMMAND
; COHPLE ION
;N
;HR!T FOR RERDY

;RETURN

108

(WK
B ]

TURN

’ZRbPCO RKB11-06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

MACY!1l

gggg

6872
6873

031300
031304

105765
100057

000150

6875
6876
6877
gg;g

0313I4
031320
031326
031330

005265
022765
103426
000445

000206
000020

6874 031306 042765 100200 0001S0

6883
68849
gggg

031332

031336
021340
031344

105765

100042
005265
Q00405

000150

031346
03132

105765
100034

031354
031360
031366
031372

005265
042765
016546
066516

000204
106200
000204
000202

0001S0O

6897
6898

031404
031412

032777
001014

040020

147526

6900

031420

004737

6302

031430

004737

(031376

026526

6896 031402 103020
6899
6901

031414

P.NER(RS)
REMENT OTHER ERRORS COUN
38 .en P.NER(RS)' cuecx IF ERROR THRESHOLD sxcszoeo
ST~2%
9:5. CHECK IF DROP DRIVE
STT_$
INO, 'START ERROR RECOVERY SEQUENCE

031424

INO, CONTINUE ERROR RECOVERY
P INCREMENT NUMBER OF SEEK INCOMPLETES
G0 CHECK IF ERROR THRESHOLD EXCEEDED

.SBTTL

OPERATION INCOMPLETE STATISTICS GRTHERING

OPISTT:

TSTB
BPL

P.DSTT(RS)
STTS$

CHP

P.SKET(RS)
. (SP)+’:CHECK IF ERROR

STT1S:

BHIS

P.NOPI(RS)
' INCREMENT NUMBER OF OPERATION INCOMPLETES
#81715'B8177,P.DSYT(RS) ;RESET FIRST ERROR AND ERROR ENGUELED
P.NOPI(RS),>(5P) :STORE'
NUMBER OF OPERATION INCOMPLETES
P.NSKI(RS) (SP) ;hoo SEEK INC
TES

STTSS

THRESHOLD EXCEEDED

fio srnn ERROR RECOVERY

"GET
NEW COMMAND,

£910
6911

031456
031464

0000IC

031466
031470

122766
103402

005720
000200

6915

03:472

004737

000146

031502

STT28:

INC
BIC
MOV
ADD

:CHECK IF FIRST ERROR
iNO,
CONTINUE ERROR PROCESSING

PC’ GE TBUF

000120

011000
000200

:CHECK IF FIRST ERROR

JSR

105765
001010

031476
031500

5TTSS
P.NSKI(RS)
sTT1§

022342

013004

105265

P.DSTT(RS)

RELSQSE vgrrsn

031444
031450

031452

TSTB

BPL
INC
BR

#C, BUFREL

004737

011000
000200

SEEK INCOMPLETE STATISTICS GATHERING

JSR

064047

£907
£908

031440
031442

saxrxs-arr7 P. ostrckS) -RESET FIRST ERROR nno ERROR ENQUEUED

022642

104401

001566

6916
6917

INC
CMP
BLO
BR

BIC

cnecx IF FIRST ERROR
CONTINUE ERROR RECOVERY

BSWH!SW1Y, ISWR : CHECK
NHIBIT DRIVE DESELECTION
sTT5$
vss srna RECOVERY SEQUENCE

005037

6912
ggia

P, DSTT(PS)
STTSS

BIT
BNE

031434

6909

TSTB
BPL

000104

6903

6304
2282

NERSTT:

000202

6831
6832
6893
6894
6895

OTHER ERROR STRTISTICS GAT ~“RING

SKISTT:

000150

SEQ OJl€3

.SBTTL

ESSZ
6889
6890

30(1046)
O01-DEC-77
15:04
PAGE 155
OTHER ERROR STATISTICS GATHERING

000206

ggg?
6882

Kle

TYPE

ISR

5§:

DRIVE,

AND BUFFER

ERRPRO

(RO),RO
RO

: INDICATE NO RECOVERY SEQUENCE IN PROGRESS
'RETURN

TSTB
BNE

P.IERC(RS)
S§

:CHECK IF INWIBIT ERROR RECOVERY
:YES,
INDICATE UNRECOVERRBLE RETURN

cMPB
8LO

#8. P.RECT(RS)
Ss

:CHECK IF RETRY FINISHED
;YES,
CLERAN UP AFTER UNSUCCESSFUL RETRY

INCB

000146

PC. DROP

T “ERROR THRESHOLD EXCEEDED"

CLR

MOV
RTS
STTSS:

ERR20S

P.RECTRS)

157
RTS

(RO)+
RO

JSR

PC unnscv

MOV
RTS

:CLEAR ennon CURRENT BEING PROCESSED

: INCREMENT RETRY COUNT

: INDYCATE RECOVERY SEQUENCE IN PROGRESS
SRETURN
;CLEAN UP FOR UNSUCCESSFUL RECOVERY

xnoxcnrs NO RECOVERY SEQUENCE IN PROGRESS
'RETUR

CZR6EPCO RKB11-06 PERF EXEC
CZREPC.P11
01-DEC-77 I4:53

L12

MACY1l 30(1046)
O0O1-DEC-7?7
15:04
PAGE 156
UNSUCESSFUL RECOVERY CLERNUP

gg%g

6920

6321

031502

031506

105037

004737

001644

022642

6322 0315i2 032765 00000I 000150

.SBTTL

UNSUCESSFUL RECOVERY CLEANUP

UNRECY:

CLRB

il
6925 831?55 QT
882?5

p—
88
102 000200
6926 031534 103007
31552

6932

031554

BIT
TYPE

BNE

000413

000210

18:

105765

6329 031602 104401 064012

2%:

Eggg S{S?S 532785 000010 000210
Egg 831?72 132765 000200 000210
6333

831550

001421

1404

6338

031600

001441

6940
6941

031606
0316l

004737
004737

013004
022342

6945

031624

105765

000120

6942
2333
6946
6947

031616
031622
031630
031632

6948

031640

6351

1650

6949
6950

005037
000207
001006
032777

001002

001566

020000

031642
83‘2”

104401
010446

064012

6952
6353

031654
ogxsse

156437
Séaggq

001514

£955

(031670

001314

6354 (031664

116504 000000

4037 051406

6356
6957
gggg

031672
031676
031702

004737
005037
000207

Q22342
001566

6360

031704

122765

000010

6961
6962

S§:

147300
X ¥
001513

6964

031722

156437

001514

001513

6966
6967

031732
031740

152765
005065

000200
000146

000210

6970

031754

112766

000Il3

000001

£3972
6973

031766
031770

6965

6968
6969

031733
031744
031750

% 9

005065
005065

000150
000212

6371 031762 004037 051406
001324
004737

022342

cBiTO P.DSTT(RS)’ cwecx IF DATA HARD ERROR

1578

BEQ

géTB
axga

P.ASSN(RS)

cnecx
é‘ DS$VE &s BEING ASSIGNED

52173 P. QSSN(RS) chscaIF RERD PACK SERIAL NUMBER
8BIT7,P. RSSN(RS) Shsgxxr RECSLFORRREQD OF

BEQ

108

JSR
JSR

ERR204

AC, DROP
PC' GETBUF

TYPE *ERROR

ERRPRO
PC

:CLERR ERROR CURRENT BEING PROCESSED
*RETURN

1578

P.IERC(RS)

:CHECK IF INHIBIT RETRY

BNE

1YES,

MOVB

bRVN(RS) RY

TYPE

BNE
BIT

TYPE
MOV

BISB
MOV

JSR

10%:

8541 SW1Y, ISWR INQIBIT DRIJE DESELECTION
18
YES
E F DRIVE IS BEING ASSIGNED
ERR20S
PRINT “ERROR THRESHOLD EXCEEDED
GO DROP DRIVE

JSR
CLR
RTS
000126

'RELEASE BUFFER

AVAILG

101733
010446

s CLEAR RETRY SECTOR COUNT

REL

CLR
RTS

031712
031714

6963 031716 116504 000000

BIT

RTYSCN

e
SunEIERK "E Loat HARD
e gERROR
SElGTHRESHOLD
eSIanD EXCEEDED
CMP
P.
uen?cn?x
P.
HRRO(RS)
BHIS
18
Hscx IF DRIVE IS BEING ASSIGNED

6327 031536 032777 040020 147374
6328 031544 001003
£329 831546 104401 064047
gggg

JSR

SEQ 0154

CMPB

BLOS
MOV

MOVB

BISB

MOV

s§

HS Rssn%gsanre AND TRY AGAIN

VERY UNSUCCESSFUL”

QP
FROM TEST 850 5
'GET NEW o IVE, COMMAND,
AND BUFFER

6%
#SW13, ISWR

snneoq
RY, - (SP)

*YES, DO NOT PRINT MESSAGE
:CHECK IF } IBIT PRINT OUT
CONTINUE

:TYPE “ERROR Recovsnv UNSUCCESSFUL"
ETQRS
R4 ON STACK

NUMBER

‘NTHSK(RH) ovsfi INDICRTE IMPLIED SEEKS ARE ALLOWED
8P)+
é;Tgs

PUSH

'PUT

PC,GETBUF
ERAPRO
PC

'GET NEW DRIVE, COMMAND, AND BUFFER
*CLERR ERROR CURRENT BEING PRGCESSED
RETURN

#8. ,P.RSEC(RS)

PARAMETER BLOCK IN DRIVE

"AVRILIABLE QUEUE

-(SP

PORVN(RS) R4

;CHECK IF ALL 16-BIT MODE SECTORS HAVE BEEN TRIED

:YES, DROP DRIVE
;sroks R4 ON STACK

:GET DRIVE NUMBER FOR INDEX

INTMSK(RY) 0. ovsh-INDICATE THRT IMPLIED SEEKS ARE ALLOWED
(SP)+,RY

RESTOR 8 RY

g1s8
CLR

#BIT7 P.ASSN(RS)’: INDICATE THAT RECALIBRATE HAS BEEN ISSUED
P.REC}(RS)
CLEQR ERROR FLAGS

MOVB

RO, Q. PUSH

CLR
CLR

JSR

CINITQ
JSR

P.DSTT(RS)
P.ERR(RS)

$RECAL , P.CMND(RS)

PC,GETBUF

ad
a
A

;LOARD RECALIBRATE COMMAND

-PUTPARAMETER BLOCK IN COMMAND

:"
"INITIATION QUEUE
:GO ALLOCATE MEMORY BUFFER

CZR6PCO RKb611-06 PERF

CZR6PC.P11

€974
§975

031774
(032000

EXEC

01-DEC-77 14:53

Q0S037
000207

001566

MACY1l

30(1046)

O0O1-DEC-77

15:04

Ml
PRAGE

UNSUCESSFUL RECOVERY CLERNUP

S%R
S

ERRPRO
C

157

;Sksflfl ERROR PROCESSING IN PROGRESS
:
URN

Af
@&

SEQ 015§

CZR6EPCO RKB11-06 PERF EXEC
CZREPC.PL1
01-DEC-77 14:53

23;? 032002
6978
6979
032010
6380
032012
63981 03202C
6982 032022
6983 032026
6984 032034
£a9S
(32036
6986 032044
6387 032052
6388
032056
6989 032062
6990 032066
6391 032072
6992
6993
6934
gggg

032076
032102
032106
032112

6997

032114

032765
00INN1

000200

MACY11 30(1046)
01-DEC-77 15:04
ERROR RECOVERY SEQUENCE

000212

032765

2%:

032122
(032124
032130
032134

001427
004737
104401
032777

000020

000212

030000
062753
020000

146776

032144
032150
032154
032160
032164
032170

004737
005265
009737
004737
004737
004737

030244
000206
031250
022642
013004
022342

;Sf?
7012
7013
7014

032200
032202
032210
032212

000207
032765
001404
004037

;81%

032220

000207

7018

032222

032765

000040

000212

001666
000014

6998
6999
7000
7001
7002

7003
7004
7005
7006
7007
7008

7009

7015

7019
7020
7021
7022
7023

032142

032174

032216

001002

005037

063306

3%:

000400
030464

4s:

7026

042765

000100
000001
000002

032274

004037

051406

7030

7031

032304

032312

001324
000.J7
032765

00I404

JSR
CLR
CLR
RTS
BIT

BEQ
JSR
TYPE
BIT

N0O0212

5S:

6S:

000100

PC . KL TOOO
P.ERR(RS)
ERRPRO
PC

#BIT4,P.ERR(RS)

:CHECK IF HQLT on ERROR
:CLERR ERROR FLAGS
'CLERR ERROR asxnc PROCESSED
:RETURN

;CHECK IF SERVICING DRIVE SEIZED TIME OUT

PC, PRIOO2
P.NER(RS)
PC HL TO00
PC, BUFREL
PC, DROP
PC. GETBUF

PRIfiT CURRENT GENERATED COMMAND
: INCREMENT OTHER ERRORS
ICHECK If HALT ON ERROR
'RELERSE BUFFER
'DROP DRIVE
{GET NEW DRIVE, COMMAND, AND BUFFER

RTS
BIT
8EQ
JSR

PC
#BIT8,P.ERR(RS)
X
RO, PRI100

JRETURN
;CHECK xr TIME OUT BECAUSE HEADS DID NOT RELOAD
'NO, CONTINUE
'PRINT TIME OUT BECRUSE HERDS DID NOT RELOAD

s RETURN

$BITS,P.ERR(RS)

CHECK IF TIME OUT DURING DRIVE POSITIONING

BIT

4§

ERRPRO

YES,

DO NOT PRINT c RENT GENERATED COMMAND

*CLEAR ERROR BEING PROCESSED

BEQ
BIC
B1S
MOVB

73
N
NTINUE
#BITI1S,P,
DSTT(R55
kessr
ERROR ENQUEUED
#8176, P.DSTT(RS) sET RERD STATUS ISSUED
P.CMRO(RS) Poscno sSTORE COMMAND IN ERR on

JSR

RO, Q.PUSH

BIC

JSR
MOVB
7%:

#SW10,
ISWR
cnécx
IF BELL ON ERROR
1s
INO, CONTINUE PROCESSING
‘RING BELL
bsula ASWR
cuecx IF INHIBIT PRINT OUT
23
HECK IF HALT ON ERROR
P.860,DRVN(RS)
opaoxi
Lbno
DRIVE NUMBER FOR PRINT OUT
UPRO11’
,nhk 17 nsuxx
OPRO10
s TYPE “onxvs
éc
PRITIM
JPRINT
TIME
ERRO26
STYPE_"INT FORM DRV NOT UNDER TEST”
#c PRISTT
{PRINT CONTROLLER REGISTERS
PC.PRDSTT
;PRINT DRIVE STATUS

JSR
INC
ISR
JSR
ISR
JSR

CINITQ
RTS
000212

#BIT7,P.ERR(RS) cnacx IF UNSOLICITED INTERRUPT
33
CHECK IF ERROR INFORMATICON STILL VALID

'NO, CONTINUE
PPRINT HEARDER
IPRINT “TIME OUT aecnuss DRIVE SEIZED"
JCHECK IF INHIBIT
PRINT OUT

ERRO7Y4

100000 000150
000150

SEQ 0156

Ss
PC,PRIOOO
ERROSS
kSW13, ISKR

RTS

001425
042765
0S2765
116537

032300
032302

BIT
BEQ
TYPE
BIT
BNE
MOVB
BISB
TYPE
JSR
TYPE
JSR
JSR

CLR

7024 032262 004737 036746
.02S 032266 112766 000141 000001
7027
;ggg

BIT
BEQ

BNE

001566

032230
032232
032240
032246
032254

ERCVY:

002000 147120
001160
020000 147104 1%:
000000
056357
000060 056357
056340
043670
061663
026074
025720
031250
000212
001566

PAGE 158

.SBTTL ERROR RECOVERY SEQUENCE

032777
001402
104401
032777
00102
116537
152737
104401
004737
104401
004737
004737
004737
00S06S
005037
000207

N1&

BIT

BEQ

conpos
P.PRST(

-RESET DRIVE POSITIONING

TCUR
bRE PRESENT STATUS FOR PRINT OUT
cRbSTnT P. cnno<ns) GET DRIVE STATUS
ENQUEUE COMMAND IN COMMAND

;
INITIATION QUEUE
;nerun

#BI1T6,P.ERR(RS)

;CHECK IF ERROR WHILE ENQUEUED

:NO, CONTINUE

CZR6PCO RKB11-06 PERF EXEC
CZRBEPC.P 11
01-DEC-77 14:S3

032314
032320

004037
061543

01-DEC-77
15:04
ERROR RECOVERY SEQUENCE

30(1046)

004000

03276S
Q01404
037
1485
074

037322

032765

002000

8CTO,P.CS1(RS)

000016

RO, CONERR

000C20

9s:

000001

000034

ios:

188:

000010

000034

030654

19%:

031300

032546

001011

020000

000016

003400

00G1S0

000007

000210

4ADNMe—

DMLDOD

VIDDO—

4 DNM«

BNE

:NO,

IF CONTROLLER TIME OUT

CONTINUE

:GO’' REPORT ERROR

;CHECK

RO, CONEPR

"PRINT Mnosn
:TYPE “PROG ERROR"

INO,

IF PROGRAMMING EPROR

CONTINUE

*RETURN

#ILC,P.ER(RS)

;CHECK

:TYPE "ILLEGAL FUNCTION CODE"
SRETURN

ILLEGAL FUNCTION CODE

'NO, CONTINU
E
:PRINT HERDER

RO, PRI100

'PRINT HEADER

P RETURN

#NED,P.CS2(RS)

;CHECK FOR NON-EXISTENT DRIVE

STYPE “NON-EXISTENT DRIVETM
RE TURN

SUFE,P.CS2(RS)

cuscx

RO,PRI100

:TYPE "DRIVE BECAME NOT AVAIL"

INO,

CONTINUE

Pninr
nos

:NO,

IF UNIT FIELD ERROR

18%

CONTINUE

RO,PRIL100
pC

PRINT
YPE 'UNRQEFIELD ERRORTM

:g:an P.CS1(RS)

CHECKpsF"CONTROLLER DETECTED BRD PRRITY

25$
RG, PR1200

'NO $ T1
;PRIN HERDE

RO, NERSTT

rnxs STATISTICS FOR OTHER ERRORS

80RPAR,P.ERIRS) cueéxogéNuévt DETECTED BRD PRRITY

000016

020000

030464

O
n
n

15$:

;CHECK

#PGE,P.CS2(RS)

158

[¢4]

000020

000400

IML@MD

030464

VIO

12%:

% -+ VDOIDO
Sofv
-1

000020

REPORT ERROR”
.
;RETURN

nggvszo P. PRST(RS%R ?HECS FOR DRIVE AVAIL LOST

AoA

010000

—

030464

DMDD
DVMre

119:

—OunDULNLM
~“ADDDO
Q

000014

>—

010000

:PRINT HEADER

:TYPE “ERROR WHILE WAITING TO

: RETURN

118
RO, CONERR

037322

Se@ 0187

159

108

037322

132765

PRGE

00Ne2Q?

03es40

B1l3

RO, PRI100

030464

DOODLWODON
ML DDOD

7032

MRCYL1

'PRINT ~SERCON PRRITY"

RECOVE Y SEQUENCE

FINISHED RETUR

#SPAR,P.CS1(RS) cuccx
CONTROLLER DETECTD SERCON PQRITY ERROR
22%
IYES §o RETRY COMMAND
s6178'B179'8BIT10,ssgsv(RS) :C cx IF NO POSITIONING

22s

TRY LOMm
sBITO'BITI!BIT2, # RSQN(RS)
? CKASSIGNME
xr NO_PQOSITION
NT

a22s

NG OR

RETRY COMMRND

cznspco nxsxx/

CZR6PC
.P
;oee

032550

2583 032572
B:sepy

042765

7096

765

7097 03261

004000

4037 037322

063761

1404

8?3553

7101

03022

032765

020000

7103
7108

02 63
03

4037
231

037322

;?30

7102

z{gz

000020

001404

000020

7113

7112

7118

1»g

037664
0306

220

;}}E

4037

2764

004037
062216
004037
2764

7124

032730

768

;is%

744

7183 032722

000036

4SS:

031300

7134

032766

00S765

004000

001000

103004
004037

;i:é

033012

000207

7140

7143

033010

033014

000180
000001

000034

033002
033004

063171

032765

;CHECK IF UNIBUS PARITY

RO, CONERR

;pn§n7 5
'PRINT “UNIBUS PRRITY"

INO

4es

06836;

7138
7139

SUPE,P.CS2(RS)

35s

032762

6565

aso

608

7131

038774

BI7

RO, SKISTT

7130 032756 004037 037322
7136

(RETURN

PRINT ~NON- sxxsrsnr MEMORYTM

JSR

032765
001404

7137

ERRO38

2746
032754

141

RTS

031332

7128
7129

835772

PRINTch

;

000113

7135

RO, CONERR

030654

12765

032764

cu:cx
4r
NON-EXISTENT MEMORY

30§

Hgs
RO, PRI200

032736

;}gg

#NEM, P.CS2(RS)

JSR

BEQ

BEQ
JSR

034000 000150 48S:

071

;

2765

7125

BIT

RO, TSTDRP

030654

0327
032712
032714
032720

225
BIT

000040

7119
7126
7121
7182

-ax;xa-axrxa*? o?rv(nsx -RESET RE
RE 555“ AND RE-OFFSET

JSR

35§ :

608 :
000022

000022 000012

EOS:

037322
001400

Ble

B1S

#8IT11,P.DSTI(

BIC

SS:

RO, PRI200

BIT
BEG

8COE,P.ER(RS)
EOS

)

TS~

CHP

BEQ

CHECK
_IF
DRIVE ERROR
CEEC¥E
%um
cuséx IF SEEK INCOMPLETE
ONT]
HE

SPRINT = "é
OHP¥E E

,rn«

: ERROR

OMPLE

TRTISTICS

ovznv FINISHED RETURN

:GO ISSUE RECALIBRATE

xr oa VE OFF TRACK

RO CCoNTT

(PRINT ussoca
JPRINT
IVE
OFF RncK*
: TAKE srnrxs 1CS ON OTHER ERRORS
gng
asgo RY RETURN

r (RS)

‘SEY

RECALLakn

srnrus

#RECAL | P CMND(RS) hgono RESQLS

ccs

JSR

IRET

#BIT1L! exrxa-a Tl

Ennosx

covmnus

8OROT,P.D.
(RS) ; CHECK

8§

RO, NERSTT

RO, CONERR
PC
P.WCR(RS)

cuscx IF CYLINDER RDDRESS OVERFLOMW
CONTINUE

PR!NTER HEADER

PR;NT “CYLINDER RDDRESS OVERFLOW"TM
cuscx

P WCR(RS),P. HC(RS) c
5§

IF FINRL WORD COUNT

Hggu ;ng;

INITIAL WORD COUNT

cs
RO, CONERR

vss conrx
UE
STYPE “WORD COUNT INVALIDTM

RTS

: RETURN

BIT

8BAIB'BALT,P.CS1(RS)

;CHECK

IS ZERO

FINARL WORD COUNT IS LESS

OR EQUAL TO

BHIS
JSR

ERRO70

00J0l&

#SKI,P.ER(RS)

JSR
ERRO39
JSR
60$
MOVB

SOS:

SEQ 0158

2ite B3587% B3%aes

PRGE 160

RTS

ooo412

7117

15:0

Blve
sRALAL-P-BRNO( SE S&“EE%L?BRQ&
R ENRanD
JszITO RO, Q. PUSH
12?§55R03§82K IN COMMAND
¢

JSR
ERo4S

7107
Y
5188
835248
B9 037512
7109
765 000002 000034
G

308:

BIC

Ennowq

7110
7111

2S8:

2277

032630

100150

O01-DEC-77

gnéon RECOVERY ssoucné

BBhiEs

?209%

MACY11l 30(1046)

Qrecke
880??8 838487 22s:
37 0S1406

;oex

EXEC

86-52 7§ 14:53

Cl3

IF BUS RDDRESS BITS

1% OF

17 SET

CZR6PCO RKb11-06 PERF EXEC
CZR&PC.PI1
01-DEC-77 14:53

MACY1l

30(1046)
O01-DEC-77
15:04
ERROR RECOVERY SEQUENCE

D13
PRGE

161

SEQ 3159

Z%:g9 8833858 B3¢EAE 000024Y 000010

C
T
FINARL BUS RDDRESS IS GREATER
B.BAR(RS),P.BALOIREY
i%ES’ .. FREQRTERTOR

7148
831k
7151 033044 066S16 000010

nBv

REC
ADD

E WC (RS), - (SP) u? IN%QQRL
uono COUNT ON STRCK

;}33 833835 6? 53& 000012
000024

BLO

; HégpoaEounL TO INITIAL BUS RDDRESS

(3P
r)

"““$ Ay PEILIvE

P.BRLO(RS), (SP) CRLCULGTE nnxxnun FINAL RDDORESS

;xgg

oss

7155

(033062

063214

;igg

033066

026565

7160

033074

00i40S

1014

?H&

; Eng

;igg

033106

000207

S
ERRO72

56’

RTS

: RETURN

033110

026565

CMP

P.DTS(RS),P. SECT(RS) guch TR

7168

033116

103004

7170

033124

7{54 §§§§§§ 6o$o§§ 037322
vt

;{gg 833054 000267
716

000030

000002

4%
7169 033120 604037 037322

PgQR(RS) tsPr+ ;cooB Exéigés éSN"?TTO LARGE

8s:

gggo?l Ro,conean
RTS

108 :

CMP

P.DCYL(RS),P.
CYLN(RS)
CHECK THRT FINAL CYLINDER IS GREARTER
52
e Eobgf“cfisgfitfégcévééé?bgc*L‘"°E

BEQ

715é
§S§?68
b898§7
037322
716
33104
063240
000026

8585

000004

15S:

, CONERR

TYPE ~BUS RDDRESS INVALID"”

-RETURN

chxn aookc

EETERHAES ERROR

NVAL

x/sscvongncnren THAN OR

A0 INTHIAC vales

JSR
RO, CONERR
ERRO73

rvpt ”SECTOR/TRRCK INVALID

RTS

3%53 833}32 88?683 010000 000034 EIS :

;};E

033140

000137

033632

gfizT

80TE,P.ER(RS)
ag
£

;CHECK FOR DRIVE TIMING
1YES,
PROCESS DRIVE TIMI cERROR
ERROR

;{;g

033144

10S765

000147

1578

P.RERD(RS)

7179

033150

001117

BNE

P BALO(RS) .RTYBA' f

;{;é

7180

033i26

063261

000207

16537

2s:

0010 001634

BHIS

ELS

IMP

MOV

NGO, ' CONTINUE

308

§R$r FIRST
Eata ERROR IN
REPORT

ERROR

Essaosgs
noonsss

il
gies gieed 8ag8id BRied
7183 033195 02737 000400 001636

CNP

B$256. ,RTYWC
RS aTshon
S
} CHECK xr L ss runr OR EQUAL TO A SECTOR

;185

SRE

gngS(RS),P.secrtgg) h%.scxa §5§T“R§I"° TRACK AND SECTOR

7184

033200

103013

8335

856335

000026

000004

7190

033230

12737

000001

001644

7192

033244

(16537

000002

001642

7189 oaaaiz oeéssé 000030 000002
7188 0332
J
7189 033253 1575? DOO400 001636
7191 033236
3%33
I'4

033252

016537 000004 001640

000456

E2S

BHIS

218:

4
c$:
7%32 83%323Y 8%223774 8888%8 88%24%
ess
7197
7198
7199

033270
033274
033276

105737
001403
105337

001640
001640

218

YES,

{ ONE SECTOR

CMP
BNE
MOV

P.DCYL(RS),P. CYLfi(RS) CHECK ?TRRTING
IF
CYLINDER
25$
RETRY
$256. ,RTYWC
sefo c r = 1 SECTOR

MOV

p CYLN(RS)'RTYCYL :LORD CYLINDER

MOVB

MOV
BR

8l RTYSCN

:SET secron COUN

SECT(RS) RTYSEC ;LORD SECTOR nuo TRACK
308

;GO REPORT ERROR

MOV

P.DTS(RS) RTYSEC ;SET SECTOR AND TRACK

1578
BEQ
OECB

nrvssc
268
RTYSEC

MOV

P.DCYL(RS), RTYCYL GET CYLINDER

CHECK IF SECT
0
vss GO D caenenr TRACK
'DECREMENT SECTOR

CZR6EPCO RKB11-/06 PERF_EXEC
CZR6PC P11
D1-DEC-77 14:583
7200
7201
7202
7203

033302

MACY11

01-DEC-77
1S:04
ERROR RECOVERY SEGQUENCE

30(1046)

000416

112737

00002S
001641

001640

26$%:

NNNNNNNNNYN
oo
oo

001641

001000

001636

000400

001636

000001

001644

001644
001636

030654

27$:

—ren

o
NN
WoOW—-o
NLENNN
WOoOLor
NEC=

8 n8ndn 8 8 Grodn

e b=e O)
I«
1
oo
LN

800043

000147

oooleal

000123

000021

000147

000021

000147

000001

001644

00002S

001640

013765

: CHECK xr TRACK O
' YES
DECREMENT CYL INDER

RTYTRK

oschsnsnr TRACK

82, RTYTRK

:LOAD TRACK = 2

:DETERMINE WORD COUNT

#512. ,RTYWC

conhgoa?ERROR

29s:

8256. ,RTYWC
308

cnscx IF ONLY ONE SECTOR
GO REPORT ERROR

308:

RO, PR1200

; PRINT HEADER
:PRINT DRIVE TIMING ERROR

#1,RTYSCN

LohoSECTOR COUNT = 1

P.1ERC(RS)
358

ICHECK IF INMIBIT ERROR RECOVERY
SYES,
GO CLEAN UP FOR NEXT COMMAND

#43,P.RERD(RS)
358

;CHECK IF RETRY UNSUCCESSFUL
; YES cgesggoxcn E UNSUCCESSFUL

P.RERD(RS)

: INCREMENT

REREAD COUNT

$RDDATA, P. RCMD(RS) -CHECK IF READ DATA

37$

821,P.RERD(RS)

3798:

001513

408

000001
000Co4
000002
000010
ooooie

:LOAD SECTOR
= 21

308

38%:

037026

033572

RTYSEC

RTYTRK
278

:DECREMENT CYLINDER
:CALCULATE RETRY uono COUNT
:L0AN SECTOR COUN
2
cngux
IF Lssg THQN OR EQLAL

28%:

358%:

031502

SEQ 0160

:DETERMIMNE WORD COUNT

28s
#21.

162

RTYCYL
PC, CALWC
82 RTYSCN
gs}a RTYWC

000120

000123
001e40
001642
001634
001636

7578

PRGE

28%

000002
00le4e
037210
000002
001000

000000
001514

Move

EL13

,vss GO TO RECOVERY SEQUENCE

408’
PC, UNRECY

:CHECK IF RETRY UNSUCCESSFUL
:NO, GO YO RETRY SEQUENCE
‘CLEAN UP FOR UNSUCCESSFUL RECOVERY

#21,P.RERD(RS)
408

cuccx IF OFFSET 4400 MICRO-INCHES
CONTINUE
RECOVERY

38
821.,RTYSEC

vss o? 8&
xcx Eu?l arnnnsrsn SEEK

358
R4, -(SP)
P.DRVNLRS),

vzs
ST
: GE

(SP)+,RY4

IRESTO

RO, DETOFF

; DETERMINE IF OFFSET INSTRUCTION

#1,RTYSCN

RETURN

Htcx IF NUHBER OF SECTORS= 1

;UNSUCCESSFUL RETRY
INDICR
TACK
IVE Nunasn FOP xnoex

INTMSK(RH) ovehoo
NOT SEEK BEFORE DAT
“22‘5” (RESETTING orrssr)

:OFFSET ISSUED RETU
P. RCHD(RS) P.CMND(RS) :LOARD COMMAN

RTYSEC,P.SECT(RS) Lono SECTOR AND TRACK
RTYCYL.P. CYLN(RS ) :LOAD CYLINDER

RTYBRA, # anLo (RS) :(0RD BUS ADDRESS
RTYWC,P.WC(RS)

Lono WORD COUNT

c‘nspco RK611/06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53
7256

033600

005465

7259 033614

7258

033612

001003

7261

7260

033622

;gs

033626

033630

001324

033632

032765

7257 033604

7264

7265
;gg;
7268

033640
033642
033646

7269
7270
7271
7272
7273

033652
033660
033666
033674
033702

7275
7276
7277
7278

000012

122765 000131

MACY1l

000001

2765 000200 000014
037

051406

000207
801003
000137
004737

020400

000034

036746

001644
001640
001642
001634
001636

033714
033722
033724

022737
103021
026565

000400

001636

000026

000004

7279

033732

001004

7282

033742

001406

;ggg

033750

022737

000400

001636

7087

033760

012737

000400

001636

7291
7232
7293

034000
034002
0340

006216
006216
006219

034020

062233

005437

E2%:

034170
D0O000I
0026
0630
000010
000012

033710

Ys§:

001636

2s:

7283

033744

004737

70286 033756 103003
7288
7289
7290

033766
033772
033776

06546
42716
006216

000052
160017

022637
001420
004037

001642
031346

7294
7295
7

034006
Q34012
034014

7298
7293
7300
7301
7302

034022
034026
034030
034036
034044

004037
034166
052765
112765
004037

;ggg

034052

000267

7297

7303

7306

034050

037210

001324

208!

004000
000113
0S1406

7307

034056

034054

010446
113704

001641

7311

034074

004037

030654

4ss

NO. 1SSUE COMMAND

JSR

CINITQ

RTS
BIT

7308 034062 136465 001507 0000S?
7309 034070 001013
7310 034072 012604

PUSH

,eh EUEPARAMETER BLOCK IN
:

connnuo INITIATION QUEUE

*RETURN

OOPI!HVRC,P.ER(RS)

CHECK IF uenosn TYPE ERROR

Eé ocsss ERRO
INO, ' CONTINUE

JSR

PC,GETCUR

;GET CURRENT REGISTER STATUS

NEG

RTYWC

MOVB
MOV
MOV
MOV
MOV

BEQ

81 RTYSCN
LOAD RETRY SECTOR COUNT TO 1
p.BTS(RE) RTYSEC' sSTORE CURRENT SECTOR AND TRACK
P.DCYL(RSY,RTYCYL' STORE cunnsn1 SECTOR
P.BALO(RS) 'RTYBR cgr INITIRL BUS RDDRESS
P.WC(RS),RtyuC cE INI nL WORD COUNT
POSITIVE

8256. ,RTYWC
cuscx xr LESS THEN OR EQUAL TO ONE SECTOR
208
:RETRY C
P.DTS(RS),P. SecTIRE) :CHECK IF CURRENT SECTOR AND TRACK EQUALS
o INETIAC TRACK AND SECTOR
15$

CARLCULARTE DESIRED SECTOR

P.DCYL(RS),P. CYLN(R%)I*CHECéyzENSERRENT CYLINDER EQUALS
18%

YES

us;
INITIRL CYLINDER,

AND SECTOR

8256. , RTYWC

cuegx IF gggoosounr LESS THAN OR EQUAL

PC, CALWC

BHIS

208

MOV
BIC
ASR

P.B10tRS),-(SP) :STORE DRIVE CYLINDER RDDRESS
#+C<M.CADD>, (SP)' THROW AWAY PARITY AND MESSAGE TYPE
(SP)
SHIFT 4 BITS RIGHT

cHMP
BEQ
JSR

(5P)+,RTYCYL
308
RO, PRI200

JSR
608
BIS
MOVB
JSR

RO, OPISTT

RTS

MOV

RY, - (SP)

srons R4 ON THE STACK

ISR

RO, PR200

TPRINT HERD SELECT ERRCF

CMP

MOV

MOVB

BITB
BNE
MOV

$256.

RTYWC

(SP)
(SP)
(5P)

:CALEULATE
WORD COUNT

TRRCK,

JSR

CINITQ

30%:

cu ucx P.PRST(RS} +ss SET ISSUE WRITE COMMAND

2$
E3s

ERROYO

0001S0
000001

SWRTCHK ,P. CMND(RS) ; CHECK IF WRITE CHECK

BNE
JMP

ASR
ASR
ASR

030654

SEQ 0161

BNE

8IS

CMP

18S:

163
MAKE 1T NEGRTIVE

BNE

158:

PAGE

P.WC(RS)

CMP
BHIS
CMP

;gg? 033734 026565 000030 000002

F13

NEG

CMPB

508§ :

112737
8155 7
016537
016537
016537

7274

30(1046)
0O1-DEC-77
15:04
ERROR RECOVERY SEQUENCE

Evss, SgE CALCULATED WORD COUNT

:USE’ 256 WORDS

s CHECK IF CYLINDER 1S CORRECT
:YES,
ISSUE RERD HERDER
;nepbar ERROR
:TYPE *MISPOSTM

IGET oprnxsposxrxouxnc STATISTICS
'ERROR THRESHOLD EX
cesoeo RE TURN
#BITLI, P DSTT(RSY ;SET RECALIBRATE ISSUED
ORECQL CMND(RS) :LORD RECALIBRATE IN PRRAMETER BLOCK
Q. PUSH
;PUT PARAMETER BLOCK IN COMMAND

RTYTRK , R4

"INITIATION QUEUE

RETURN

TRACK FOR INDEX

H.HEADLRY) ,P. 911$1<n5) cuecx IF CORRECT HERD IS SELECTED
3ss
bn
(SP)+ RY
Resf R

DD
oo

O
L ]

£l

nn
-0 DONCN LW

NNNNNNMINNNNY
WWWWwwwwww

XEC
0 _RKbl11-Q06 PERF
14:63
1-0eC-7

03%'00

063105

MACY 11

15:04
38&& Q4s)
1-DEC-77
OR RECOVERY SEQUENCE
ERROGS

JSR

031346

60%
JSR

0S 1406

002
164

oclie4e

CINITQ
RTS

00350

00634

35%:

:83
hove

886165 38665

JSR

0S1406

032765
001403

:
609

004737
000207

000200

000034

E3S:

042356

100000

000020

03C000
020000

144710

BIS

MOV

000002

000207

MOV

cs:

108:

CINITQ

BEQ
JSR
BIT
BNE
TYPE
JSR
JSR

10576S
100005
89276
0SL3
004037

000150

159:

000150
20%:

03434
03435
034356
034364
034372
034400

100000

001636

(SP)+, nq

;RESTORE RM

gxrw 3 (RS):SET RERE ?Bb
HEAD: RS ISSUED

RYYSEC,P.SECT(RS) ' ;LOARD SEC

RTYCE?#
$LoRD
°£Bé§s
82 CYLE(?E))
B-BAnS(RE)
(L8R
CORmand OF HERDER BUFFER
Puéu

;PUf Pannnsrsn BLOCK IN COMMAND
;

x ITIQTION QUEUE

cnecx FOR BAD SECTOR ERROR
CONTINUE

PC,BDSECT

sshvxce
BRD SECTOR
:RETURN

#DLT,P.CS2(RS)

;CHECK IF DATA LATE

EYS
PC, PRIOOOD
osala SR
10
ERROH?
AC,PRISTT
PC HLTODO

'NO, CONTINUE
rv#e HERDER
CHECK IF INMIBIT PRINT OUT
YES CHECK IF HALT ON ERROR
TYPE *DATA LATE”
PRINT CONTROLLER STATUS
cnecx IF HALT ON EPROR
NT DATA

LATE COUNT

ERE

6AIS
TYPE

ERROOO

NO REISSUE connnno
Tvbs FATAL

.DLT DLTCNT

' ERROOY

-2

1578
BPL

P.DSTT(RS)
208

BIC
CLR

JSR
CINITG

' TYP

' HANG

F THRESHOLD EXCEEDED

onrn L TE THRESHOLD EXCEEDED

cnecx IF FIRST ERROR
REISSUE COMMAND

cexr1s'sxr7 P. DS#T(&S)R ERROR
CLEAR RECOVERY
ERROR Enousueo
AND FIRST ERROR
IN PROGRESS

ERRPRO
RO, Q. PUSH
PC

: RETURN

BIT

BNE
JMP

23
ESS

'YES, START RECOVERY
*NG, ' CONTINUE

cs:

MOVB

MOV

P.SECTI(RS), RTYSEC:STORE RETRY SECOTOR AND TRACK

#1 RTYSCN

SET SECTOR COUNT
= 1

MOV

P.WC(RS),RYYWC ;"stBRE RETRY WORD COUN

MOV
MOV
NEG

#DCK,P.ER(RS)

ENOUEUE PARAMETER BLOCK IN COMMAND
: Inxrxnrxou QUEUE

E4s:

035136

000001
000004

s RETURN

RTS
034326
034334
034336

INC

TYPE

034276
034302
Q34304
034312

RO, Q. PUSH

#BSE,P.ER(RS)
S§

BIT

:RECORD RS AN OPI

'ERROR THRESHOLD EXCEEDED RETURN
TREISSUE COMMAND

BIT
BEQ

HAILT

034274

RO,OPISTT

JSR
RTS

SEG Q1k2

PARGE 164

RTS

CMP

001626

Gl3

;CHECK IF DATA CHECK

P.CYLN(RS)|RTYCYL :STORE RETRY CYLINDER
P BALO(RE) 'RTYBA :&TORE RETRY BUS noonsss
RTYWC

:MAKE

IT POSITIVE

CIR6PCO RKB11-06 PERF
CZRBPC. PL1

7368

7383
/

7371
7372
7373
7374
375
7376
7377
737

737
7380
72381
7382
7383
7384
7385
733
738
7388
7389
7330
7381
7332
7393
7394

7335
73%
7397
7398

739
740
7401

7408
Y

7404
7405

034404

834%12

EXEC

14:S3

022737

000400

001636

000026
000030
001640

001640
001642

Y41y

03u4d22
0349430

0349434

034436
g34442

001640

03444y
834452

00002S
00164l

4460
034464

001641

Y456

03%500

12737
5337
004737

000002
0gle4e
037210
000400

034514
Q34522

012737
004037

000400
030654

034534
034536

001123
122765

034466
834474

g34aTa 165083
834233 {8e76e

G345
034846
034554
034556
034564

831278

034574

g34eee

034632
c34640
034646

034666
034670
03467
03470
034704

001641
C01636
001636

01-DEC-77
15:04
ERROR RECOVERY SEQUENCE

128:

P DTS(RE) RTYSEC' :STORE

7578
BEG
DECB
BR

RT SEC
118
RTYSEC

hg E 2 ?R
DECREMEN Taacx
:YES,
'DECREMENT SECTOR
:GO CALCULATE WORD COUNT

-ax

ser secron 21

MOVB

7518
BEQ

000123

000100

000034

010040

000060

10S76S
Q01017
013765

01376
01376

112765
004737
034670
004737
000207

001634

000214

001636
001636
177777
023362

000222
000220
000117

832677

020000

104401

063024
064303

1024

184461

144242

RTYSEC

YTRK
es

cK é ACK
= 0
D CREHENT CYLINDER
YE
DECREMENT TRACK

MOVB

2, RTYTRK

:SET TRACK = 2

15%:

8256. , RTYWC
RC,PRI200

BHIS

BNE
CMPB
BN

BI
8NE
SESS
TST
Bta
137
?ss

ERROGE

P.1ERC(RS)

: DECREMENT chxnoea
:CALCULATE WORD
C
cugcxpé
SS THQN on EQUAL TO ONE SECTOIR
RF

n cc CORRECTION

AKE IT ONE
SECTOR
PRINT uenoen
;PR NT
?nr H§?§
INHI

ERRROR RECOVERY

vss xnoxcnre UNSUCESSFUL RECOVERY
408
$RDDATA, P. chotns) buscx*r RD DARTA
30$

DO Ecc CORRECTION
8ECH,P.ER(RS) cutcx
xr
ORRE
TABLE
HE 80 C CORRECTION
308
:égoqo P. spos<ns$ tc
cK xr cc POSITION T00 LARGE
P.EPOS(RS)
’C 6x
c PO'83 TION =
‘et népo5$
168
P?EPQT(RS)
cueéx IF ECC SQETERN =0
;TYPE ”EES LSS ER&OR"
fio,conenfl
: RETURN

R
2%
BNE
MOV

PC,ECCC n

MOV
MOV

RTYWC,P .BFCP(RS)' ;LORD NUMBER OF WORDS OF
RTYUC .CMLG(RS) : SECTOR PRESENT

20%
JSR

PC, SURECY

;8ET ECC COMPARE FLAG
:CHECK ECC CORRECTION
*INDICATE ECC MISCORRECTION
:INDICATE SUCCESSFUL RECOVERY

BIT
?“S

#SW13, ISWR
325

cnecx IF INHIBIT ERROR PRINT OUT
g
cg T0 RECOV RY
EQUENCE

TYPE

JERRZ2IL

TYPE “RKPOS*

MOVB

JSR

c0%:

PRESENT TRACK AND SECTOR

co CALCULRTE WORD COUNT

MOV
JSR
;Rn 48

18S:

036276

138

13%:

17%:

366218

E é‘ ECC CORRECTION

RTYTPK
138

08478?

;

P.DOCYL (RS}, nrvch STORE PRESENT chxnosn

TYCYL
PC, CALWC
sags RTYWC

168:

037322

caccx xr LESS THAN OR EQUAL TO & SECTOR

DECB
BR

oooi21l

SEQ 0163

MOV

158

DEC
JSR
cHP

000120

165

8256. ,RTYWC

MOV

118:

PAGE

cCMP

BHIS

000062

034606
034610

034624

001640

30(1048)

000060

8346
46

833818

MRCY1l

O1-DEC-77

RTS

YPE

0
CORRE
Agg
8
EECC FOTRERZ
ANN NMENT SEQUENCE
oo nor CHECK ECC CORRECTION
nrvaa P. ERHD(RS) Loho START OF sscron FOR
ATA COMPARR]
?

8-1

P.ECMP(RS)

PC, énpaur

.ERRO60

*RETURN

“EcC MISCORRECTION"

CZR6EPCO RKB11-06 PERF EXEC

ZZR6PC.PILI
7424

01-DEC-77 14:53

034710

7425
7426

034714
034720

7428

034730

7427

034724

016546

30.1046)

0Se?7M
001165

01654

000062

O01-DEC-77

15:04

ERROR RECOVERY SEQUENCE

000060

004737
104401
104401

MACY11

MOV

JSR
TYPE

064312

TYPE

I13
PAGE

P.EPOS(RS),-(SP)

PC exnoc
, SERL
'ERR 212

166

SEG 0164

:STORE RKPOS FOR PRINT OUT

tonvsnr TO0 OCTR
*TYPE <CR><LF>
S TYPE “RKPATTM

MOV

P EPAT(RS),-(SP)’.STORE RKPAT FOR PRINT OUT

JSR

#c PRERWD

7435 034764 122765 000121 000123

BLOS

cMPB

408’

7437

BEG

CMPB

45§

YES

40$:

BHI
JSR

821 ,P.RERD(RS)

50§’
PC, UNRECY

:NO, DO RERERD
*INOICATE UNSUCCESSFUL RECOVERY

4S§:

CMPB

7429
7430

034734
034740

737
104401

052774
001165
888647

JSR
TYPE

7431 034744 004737 036C2M4
7432

7433

03v7

7434

034762

101410

7436

034772

001407

7438
7439

035002
(035004

101021
004737

;::?
7442

034784 | 55@

034774
035010
035012

122765

000207
122765

43 000147

000021

000147

031502
000021

308:

000147

;3:3

035020

0061007

74945

035022

010446

7448
7449

035036
(035040

012604
004037

037026

7451
7452

035046
035054

116565
013765

000123
001640

000001
000004

7446 035024 116504 000000
7447 035030 146437 001SI4 001513
7450

7483

035044

035062

03513y

013765

001642

(035070
(035076
035104
0358110

013765
013765
005465
(22765

001634
001636
000012
000131

000010
000012

7469
7460

(035120
035126

0S2765
004037

000200
0S1406

000014

7458

116

7461
;325

035132
035134

7464

035136

;329
7468

7465
7469

7470

001003

001324
000207
032765

040000

035146

000137

035310

035152

004037

030654

105765

000120

035144

035156

035160

001002

062376

7471
7472
7473
7474
7475

035164
035166
035172
035200
035202

00100
105265
122766
101003
004737

7478

035210

016537

;:;g
7479

035206
035316

000207
162737

000147
000021

000024

000002

001634
001634

#43,P. RERD(RS)

:PRINT WORD 1~ ERROR

P INCREMENT RETRY COUNT

;cusc IF UNSUCCESSFUL RETRY

xnoxcnrs UNSUCESSFUL RETRY
#RDDATA, P. chO(ns) 6H£cx
F RERD DAT
cwsc FOR orrss

:CHELK IF ABOUT TO ENTER OFFSET OPERATATIONS

SRETURN

#21,P.RERD(RS)

;CHECK IF OFFSET +400 MICRO-INCHES

R4,-.5P)

:STORE nw ou STACK

(SP)*, RY
RO, DEtOFF

;RESTORE RY
;8$rennx
IF OFFSETY IS TO BE ISSUED

BNE

48§

uoéeco
oevsnnxns IF OFFSET IS TO

MOV

P.bN(RS),R4 :GET on¥ NUMBER RS INDEX
INTHSK(R ‘0.ovsk ‘RESETY ISSUE IMPLIED SEEK

MOV
JSR

50$:

MOVB
MOV

P.RCMD(RS),P.CMNO(RS) :REISSUE Lnsr connnND
RTYSEC,P.SECT(RS) ;ngg
CTOR AND TRACK

MOV
MOV
NEG
CHPB

RTYBAR,P.BALO(RS) ;(ORD BUS RDDRESS
RTYWC P.WC(RS)
;Loao WORD COUNT
P.WC(RS)
nnxs T NE rxv;
SURTCHK,P. CMND (RE) 5
CHECK IF WRITE CHECK

BIS
JSR

#id. WCK, P.PRST(RSS ; YSSUE unxrs gerons WRITE CHECK
RO, G. PUSH
; pT"PRRAMETER
BLOCK ON COMMANG

608

MOV

BNE

55§

:OFFSET

ISSUED RETURN

RTYCYL 'P.CYLN(RS) ;L

55§

NO’

YL INDER

ISSUE COMMAND

608 :

CINITG
RTS

:COMMAND
RETURN

ESS:

BIT

BWCE,P.CS2(RS)

;CHECK

IMP

El0$

*NO, ' CONTINUE

18-

JSR

RO, PRI200

TST8

P.IERC(RS)

c§:

BNE
INCB
CMPB
BHI
JSR

cs
P.RERD(RS)
821 ,P.RERD(RS)
108
PC, UNRECY

108:

MOV

P.BAR(RS),RTYBA

000147

031502

RTS

P.RERD(RS)

Covenr TO OCTAL
:TYPE <CR><LF>

4ges:

000001

000020

CMPB

MOVB
BICB

000002

7464
7455
7466
7487

INCB

PC,BINOCT
$CRLF

BNE

ERROSO

RTS
SUB

82, RTYBA

INITIARTION QUEUE

IF WRITE

CHECK

ERROR

'YES, PROCESS WRITE CHECK ERROR
:PRINT WRITE CHECK ERROR

:CHECK

INHIBIT ERROR CORRECTION AND RETRY

YES xuxrxnrg NEXT COMMAND
: INCREMENT RETRY COUNT
CHECK IF 16 REREADS OCCURRED
'NO, START RECOVERY SEQUENCE
xnfixcnrs UNSUCCESSFUL RECOVERY
£ TURN

;cs* ADDRESS OF

'ADJUST

ADDRESS

WORD

IN ERROR

CZR6PCO RKB11-06 PERF EXEC
CZRBPC. P11
01-DEC-77 14:53

03se12
000123
001640

035224

MARCY11l

30(1046)

15:04

J13

ERROR RECOVERY SEQUENCE

000014

PRGE 167

JSR

PC, CALSEC

MOV
MOV
MOV

RTYCYL P.CYLN(RS)

MOVB
MOV

000001

ooooie2
051406

01-DEC-77

000004

gooele

E10S:

23:

000217
000214
001634
03se61e
000002

000150

000002

000150

000001
030000
020000

000150

143532

000207

122765

38:

5s:

000147

15%:
000147

000000
001S14

001513

116565

000123

20s:

000001

;CHECK

INITIARTION QUEUE

IF DATA COMAARE ERROR

YES

CONTINUE PROCESSING ERROR

P E QD(RS) (SP)
SP)
P ERHD(RS), (SP)
csp)+ RTYBA
SEC

cer WORD n RROR
TMOLTIPLY
CQLCULQTE noonsss OF nIsconPnRED WORD
LORD RDDRESS OF BAD WORD
CRLCULRTE CYLINDER, TRACK, AND SECTOR

YTM unxno ENTRY

108

ES,

GO TO RETRY SEQUENCE

HECK IF FIRST ERROR

OBITO P.DSTT(RS)' :SET INITIAL DATA ERROR
,PRINT HERDER
PR}0OO

usa13 JSWR
RO62

PRINT OUu7
‘CHECK IF INHIBIT
IF HALT ON ERROR

:YES

cugcx

YES,

GO PRINT ERROR WORD

:TYPE DATA COMPARE ERROR

;cuecx IF FIRST ERROR

#c PRERND

' TYPt ERROR

PC, PRIBUF

;GO P

R202

'PRINT WORD

émcERROR RECOVERY

PC. PRIDO2
{PRINT CURRENTLY SUPPL IED COMMAND
oetrxs'exrr P. DS?T(RS) CL
ansr ERROR AND ERROR ENQUELED

EUF

PC’ HLTOO00
P.ERC(RS)
1ss
P.RERD(RS)
#43,P.RERD(RS)
c0s
gg,UNRECY

cuscx xr HALT ON ERROR
‘CHECK IF INHIBIT ERROR CORRECTION AND RECOVERY
YES INDICATE UNSUCCESSFUL RECOVERY
NCREMENT RETRY COUN
CHECK IF_ERROR RECOVERY UNSUCCESSFUL
iNO, GO YO RECOVERY SEQUENC
ég?égRTE UNSUCCESSFUL RECOVERY

#21,P.RERD(RS)

;CHECK IF ENTERING OFFSET

25§’
R4, -(SP)

P.DRVN(RS), RH

'NO, DETERMINE IF TIME TO CHANGE OFFSET
,sTORE R4 ON STACK

:GET DRIVE NUMBER FOR INDEX

}g;?sx<nq) ovshnégsssg gsex BEFORE DATA TRANSFER

RO, ocforr
+

25%:

037026
035540

#BIT2,P.ERR(RS)

000021

COMMAND

RETURN

031502

:GET CYLINDER

#BIT1,P.DSTT(RS)’*.SEt DATAR TYPE ERROR OCCURRED

108:

000147
000043

ANG CYLINGER

RTYBA,P.BALO(RS) :8ET BUS noonsss
RTYWC P.WC(RS)
;8ET WORD C
P.WC(RS)
“MAKE IT
MNEGR 1 VE
nu ucx P PRST(RS) :SET ISSUE WRITE BEFORE WRITE CHECK
PUSH
: ENQUEUE PARRMETER IN

R.DSTT(RS)
000150

TRACK

oatT1 P.DSTT(RS) vcuccx IF DATA TYPE Enngn HAS ALREADY OCCURRED

063050
000150
063721

CALCULATE SECTOR,

P.RCID(RS) P, CHNb(RS) :GET PREVIOUS COMMAND
RTYSEC.P.SECT(RS) ;GET'SECTOR AND TRACK

035310
035316
035320
035322

SEQ 0168

‘DETERMINE IF OFFSET TO BE ISSUED

:OFFSET HAS BEEN ISSUED
P.RCMD(RS),P. CMNB(RS) :GET LAST ISSUED COMMAND

cZRBPCO RKE11-06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

035546
035554
035562
035570
035576
035602
035606
035610

013765

001324
000207

001640
00le4e
001634
001636
000012
0S1406

MARCY11l

01-DEC-77
15:04
ERROR RECOVERY SEQUENCE

30(1046)

MOV
MOV

000004
0ooao02
000210
oooole

S0%:

K13
PRGE

168

RTYSEC,P.SECT(RS)
RTYCYL,P.CYLN(RS)

;LOAD SECTOR AND TRACK ADDRESS
;LOAD CYLINDER ADDRESS

MOV
MOV
NEG

RTYBR,P.BALO(RS) :LOAD BUS ADDRESS
RTYWC P.WC(RS) ;GET WORD COUNT
P.WC(RS)
IMAKE IT NEGATIVE

RTS

JSR
CINITQ

RO, Q. PUSH

SE3 Ulies

"ENQUEUE PARAMETER BLOCK
:"
INITIARTION QUEUE

*RETURN

IN COMMAND

CZR6EPCO RKB11-06 PERF EXEC

CZREFC.P11

01-DEC-77 14:53

MACY11

;g:g
7646

30(1046)

CALCULATE CYLINDER,
.SBTTL

035612

7647
7648

035614
035616

7660
7661

010146

010346
013703

035626
035632

7553

7656
7857
7568

O01-DEC-77

CALSEC:

MOV

077, R3
RtyBa

8355

812581

000012

03IS6S4
035
035662

160301
022701
103002

000400

012701

000400

0 702

016537

000002

7554
7665

NEG
ASR

(03566M

7560
7561 ggssro
674 010137
116537
7662

7665
7566

7567
7568

7869
7570

001636
00000S 001641 S§:
001642

‘MAKE IT ON SECTOR BOUNDARY
:STORE CALCULATED BUS RDDRESS

P.QQLO(RS) RTYBA' ;:CALCULATE START OF SECTOR WITH ERROR

MOV

P.WC(RS),R]

bsr 1"}‘&8& u?RE COUNT

SuB
CHP
BHIS

R3,R1
82%6. ,R1
S§

: CALCULRT
OF WORDS LEF
caaecx 1
s THQN OR sounL TO ONE SECTOR
LORD RETRY WORD COUNT

MOV

P CYLN(RS) |RTYCYL ‘STORE RETRY CYLINDER

MOV

MOV
MOVB

Ri
R3

cess

"MAKE I
' DETERMINE uonos acrons ERROR
T ONE SECTOR

RTYWC RTYTRk oég
uono TRACK
COUNT
?RCK(RS)
STORE35RETRY

CLRB

035724
035730

MOVB
RDD

P.SECT(RS),
(SP) :GET INITIAL SECTOR
(SP)+ . (SP)
noo SECTORS TRANSFERRED

BHIS

158

035722

005046

035732

022716

000025

035736

116516
062616
10300S

CLR

000004

108:

;g;g

035750

000770

105237

001641

7575
7576

035752
035756

112637
005046

001640

158:

035744

001641
000002

i78:

7677
7578
7579
7580
7581
;ggg

035760
035764
035770
035772
035776
036002

113716
122716
103005
162716
00S237
000770

7584

036004

112637

7685
7586
7587
7588

on STACK

:STORE R3 ON STACK
:GET ADDRESS OF ERROR
WORD

035716 1650&5 000001
3

7671 035740 162716 000026
7572

:CALCULATE BYTES CCRRECTLY TRANSFERRED

BIC
MOV

ADD

AND SECTOR FOR RETRY

P. BQLb(RS) R3

000777
001634

7562 035636 066537 000010 001634

TRACK,

:STORE R]

042703
010337

suB

169

R1,-(SP}

1634

05401
006203

PAGE

AND SECTOR FOR RETRY

CALCULATE CYLINDER,

R3) -(sp)
RTYBA

3552
(035652

L13

TRACK,

MOV
MOV

7649 (035622 166503 000010

7669

15:04

036010
036016
036020
036022

112737
012603
012601
000207

001641

SuB

O0O1644

208 :

-(5P)

821.,1tSP)

,ELEES HIGH ORDER BY

;

E ROOM ON STARC

HECK iF sscvon COUNT GREATER THAN 21
CHECK

TRACK

822., (SP)

suérnncr ae SECTORS/ TRACK

INCB

RTYTRK

108

:CHECK SECTOR COUNT

MOVB
CLR

(SP)+,RTYSEC
-(SP)

; STORE_RETRY SECTOR
MAKE ROOM on THE STACK

000003
001642
000001

CMP

1(5p)’

MOVB
CMPB
BHIS
SuB
INC
BR
MOVB

MOVB
MOV
MOV
RTS

:INCREMENT TRACK

RTYTRK, (SP)
82, (SP)
20¢
83, (SP)
RTYCYL
178

srons RETRY TRACK
:CHECK TRACK GREATER THAN 2
*NO, RETURN
:SUBTRACT 3 TRACKS/CYLINDER
: INCREMENT CYL INDER
:CHECK TRACK COUNT

(SPY+,RTYTRK

:LORD RETRY COUNT

81, RTYSCN
(58)+,R3
(5P)+.R1
PC

: INDICARTE ONE SECTOR IN RETRY COUNT
'RESTORE R3
'RESTORE R1
*RETURN

SEQ J167

CZR6PCO Rkb!1-06 PERF EXEC
c7R6PC. P11
01-DEC-77 14:53

725
7591

MACY1l

0360e4

M1l3

30(1046)
PAGE 170
01-DEC-77
.5:04
PRINT FIRST ERROR WORD IN BUFFER

.SBTTL

PRINT FIRST ERROR WORD IN BUFFER

PRERWD:

MOV

~N
NN
oocooocoo oo
hb—"—‘b—.—fi—b—fi—b—o
D@ NN LW
O W

7608

Ru’-(SP)

PgRHé(RS) R3

000217

P ERAD(RS), (SP)

(SP)

000214
000002
177400

036122
036126

126500
101402

036130
036132

005046
000414

036134
0

011404

P.ERRD(RS)

000217

Ss:

060530
052774
0605230
052774
060530

036240
036244
036250

10440]
D17546
042716

,RY

5177#50 RY

01?7?00 Rl
(Rfi) -(SP)
BLANKS
AC,BINOCT
B( ANKS

tna) -(sP)

pC,BINOCT
BLQNKS

QUESMK

20$
15%:

TRCRERER
SENT
T RO TO MRKE OFFSET FROM STRRT
INOF
;

CTOR

'CHECK IF IN ZERO FIL. QRER
NO CALCULATF RDDRESS
0
W4ORD IN DR. a PRT ERN

'GO PRINT EXPECTED CONTENTS

Enno(Rs;

0605.5
060530
000214
177760

(RY)

;GET HERDER FOR PATTERN INDEX

Lono ZERO FOR PRINT OUT

P EPRD(RS) (SP)
NOCT

000217
052774
000217
000410

'2177400, RO

PRTTQB(R%) RY

109:

"¥§RngRESS0} BAD WORD

:STORE ADDRESS FOR PRINT OUT
:CONVERT TO OCTAL
: CHECK xr INEESSRBPTOR AREA
*NO, CALC

GET NUHBER OF WORDS WRITTEN IN SECTOR

7§

93:

HORD IN ERROR OF SECTOR

E RHD(RS) ,R4
2 R4) RO
P.

P.ERAD(RS),RO

7%:

STQCK
STORE RY ON
TYPE RROR HS
GET Rgg"SS
F STQRT OF SECTOR

:GO TYPE WORD RERD

-(SP)
9$

177?760

TACK
TACK

ios
7

0002:7

5 SN
R

‘TYPE oussrxon MARKS

QUESHK

004602
000004
177700

0
036236

(5P} R3
R3, -(5P)
PC BINOCT

060515

036104
036110
036114
036120

TOR
TOR

R3-(5P)

(SP)

036102

STORE RO ON STACK

RO, -(SP‘

Rg P)

386214

052774
000001

SEQ J168

;GET DQTQ PRTTERN NUMBER FOR INDEX

; MASK

éNS
GNIFICANT BITS

c%#’éa

SUBTRRCT FROH SECTOR OFFSET
HQKE T_MOD 32
W
R%S LRT

PQTTERN Qe ESS

EX ECTED CONTENTS

FOR PRINT OUT

CONVERT TO OCTRL
:TYPE BLANKS

:STORE WORD RERD
CONVERT TO OCTAL
*TYPE BLANKS
*MAKE ROOM ON STACK
'STORE SECTOR WORD NUMBER FOR PRINT OUT
:CONVERT "TO OCTAL
:CHECK IF ERROR IS IN PATTERN WORD
'NO, PRINT PATTERN NUMBER
STYPE QUESTION MARKS
:GO RESTORE REGISTERS
TYPE _BLANKS

ép ERHD(RS) -(sP} ;GET FIRST WORD OF SECTOR RERD
NKS

$177760, (5P}

Al
a

;CLEAR INSIGNIFICANT BITS

7645

036254
03€260
036264
036266
036270
036272
036274

004737
104401
4
0
012600
000207

0Se?74
001168

N13

PAGE 171
15:04
MACYL11 30&10“6)
01-DEC-77
INT FIRST ERROR WORD IN BUFFER

20s8:

JSR

PC BINOCT

MOV

(SP)+.R3

TYPE

MOV
MOV
MOV
RTS

$RL

tSP)+ RY

(5P)+.R1
(SP)+,RO
PC

SEQ@ 0169

; CONVERT TO OCTAL

:TYPE <CR)<LF)>
;RESTORE RY
iRESTGRE R3
{RESTORE R1
:RESTORE RO
:RETURN

CZREPCO RKB11-06 PERF EXEC
CZRE”C.P 11
01-DEC-?7 14:53

CZR6PCO RKBII/S? P ERF_EXEC
~-DECEC-77 14 : 683
CZR6PC. P11

036276

833k

032365

00100
26

122765
103403
005265
000417

000001

MACr1l

000150

SUCCESSFUL RECOVERY CLERN UP

SURECY:

BIT

OBITO.P.DSTT(RS)

108

P _RERD(RS)
P.SECC(RS)
s$

000176

000147

cs:

000172

826000

172

.SBTTL

000147

000020

Bl4

01-DEC-77
15:04
PRAGE
SUCCESSFUL RECOVERY CLERN UF

30(1046)

#20,P.RERD(RS)

IF OFFSET

*YES,

INCREMENT OFFSET RECOVERABLE

* INCREMENT REREAD RECOVERABLE
:GO CLEAN UP FOR NEXT COMMANO

P.SOFF (RS)

; INCREMENT OFFSET RECOVERABLE

(CHECK IF INWIBIT PRINT OUT
SYES,

CLEAN UP FOR NEXT COMMAND

:MAKE

ROOM ON STACK

Enmoe

;TYPE “OFFSETTM

P orsr(ns> (SP)

:STORE

gInoCT

9s:

cntcx IF FIRST
ERROR
CHECK IF orrser
INCREHENT NO. OF ECC RECOVERRBLE ERRCRS

P.SRRD(RS)
CT

(SP)

000006

IF DQTQ TYPE ERROR

CLEAN
UP FOR NEXT COMMAND

;CHECK

063552

; CHECK

:GO CLEAN UP FOR NEXTCOMMANO

8513, ISR

142566

SEQ 0170

sCRLF
RTYSCN

P.SECC(RS),-(SP)’'

:CONVERT

STYPE

iCLEAR

QFFSET FOR PRINT OUT

OCTAL
<CR>TO(LF)>

SECTAR RETRY FLAG

:STORE M 'TMoER OF ECC RECOVERRBLE ERRORS

P.SRRO(RS)
| (SP) '388 NOM R 8; SEQEQQ EECOVERQBLE ERRORS
P.SOFF(RS)’

(SP)

108

142506

142450

063757
001644
000146
000150
0o0ele
001566
000000
001S14

' YES

036566

000117

000001

000140

000001

0S1406

xssué HRE
NEXT COMMAND

ERAPRO
PC, GE TBUF
pC’

s CL
URRENTLY BEING PROCESSED
cs eurrsn FOR NEXT COMMAND
' RETURN

108:

#S5W13, 3SKR
cs

:CHECK IF INMIBIT PRINT OUT
no Pncx SERIAL NUMBER
CHECK IF
SYES,

15%:

RTYSCN
P.RECT(RS)

:CLEAR SECTOR RETRY o
:CLERR ERROR FLAGS AND RETRY COUNTS

ERRPRO

-Cqun

: YPE “ERROR ¥
-co osvs

ERR203

R4, -(SP)

00010

COVERABLE ERRORS

1GO0 RELERSE

P.DSTT(RS)
P.ERR(RS)

001s13

FSE

PC BUFREL

ERR20S
#c DROP

ue0000

NUM. R

(5P)+,P.CERT(RS"’ ;CHECK ]JF SOFT ERROR RATE EXCEEDED
108
;NO0, GO IssuE N?XT co
BSWY'SWIY, 3SWR CHECK IF INHIBIT AUTOMATIC DRIVE DROPPING

P.ORVN(RS) R4

SHOLD EXCEEDED"

: TYPE RECOVERABL

RROR CURRENTLY BEING PROCESSED

4 ON STR

ouc DRIVE Nunasn FOR INDEX

INT
nsu(nu) oveh.ALLOW
OVERLAPPED OPERATIONS ON THIS DRIVE
(SP
sRESTORi RY

S nssk(RS)

cuecx

IN nssxcuncur SEQUENCE

8SEEK,P. CMNO(RS) " cutcx IF EEK?fi
PREVIOUS CYL INDER
16
.YES. GO 1S3UE RELEASE
nRELsns P. cnno(RS) CHECK
IF RELERSE
CARRY OUT NORMAL RECOVERY
7$
RO @.PUSH
ENOUEUE PRRAMETER BLOCK IN DRIVE
0s

Fa NN}

RMINA

CIR6PCO RKBL1-06 PERF EXEC
c:ps C.P11
01-DEC-77 [4:53
77

036S72

001314

7711

036576

112765

7713

036610

;;?3

7712

036S79

30(1046)
O1-DEC-77
15:04
PRGE
SUCCESSFUL RECOVERY CLEAN UP
AVRILG

000207

0O0IN0

000001

16$:

MOVB

178

ImP

NORM|

7718
7716

;
;

CHECK

7721

036614

D00137

CINITQ

024616

7720

7722
7723
7724

036620

7728

7725

7788

7729

3bo

132765

000117

800137 013504

000210

:
.
<£0S:

036634

032765

002000

000014

2SS:

0366

(36642

21402

00]0

7739
Deedy
109063 D002Ll
77
832222 6§3§2§ 888é88
77

¥4

01656

880153

016565

000132

1656

7735

036700

7738

8327

001324

7741
7742

036724
036730

004737
104401

022642
056260

7744

036734

004737

013004

746

C36744

000207

7736
7737
;;33

7743

7/ws

036706
036719
7

036740

016565
4037

000130
0S1406

nooo:
Golv

060002

000010

004737

022342

;cnnnv OUT NORMAL DARTR TRANSFER TERMINATION

SPINOL

RECAL
RERD PACK SERIAL NUMBER
s8IT0'BITI! exra-exra-axfs P.RSSN(RS)

BEQ

RSNORM

BIT

SDRPDRV,P.PRST(RS)

BNE

RovB

25$

PROCESS WRITE PAC

PROCES NORMAL TERHINQTION
:CHECK IF DROP DRIVE

:YES,

GO DROP DRIVE

P8.RCHD(RS),P
cma?“?“ R HR%TE
DY BEFORIRTFORRT
T CHECK CoMMAND
WCK , P.PRST(RS) Bgsr IS
WRITE CHE"X

MOV

P.RSEC!

MOV

P.RBAL (RS) P.BALO(RS)

CINITQ

30%:

;nxv‘nrxon QUEUE

BITB

MOV
JSR

006207

1SSUE RELEASE COMMAND

nbu
UE PARAMETER BLOCK IN COMMAND

SET VOLUME VALID

MOV

000012

GQUEUE

IF ANY OF THE FOLLOWING ASSIGNMENT STAGES
RERD DRIVE STARTUS
STRRT

BIS

00000M

AVRAIL IRBLE

onELsns CHND(RS)

000207

SEa G171

" RETURN

RTS

036612

0S 1406

173
H

RO,G.PUSH

;;{g

uoa

RTS

JSR

;;ig

036604

MRCY1l

ClYy

P RCYL(KS)

),P.SECT(gé) ;ngg ;ggvi
P CYLN(RS)

P.RWC(RS),P.WC(RS) :L
RO, @. PUSH
SENQUEUE
.

viOUS

TRACK AND SECTUR

CYLINDER

:LORD PREVIOUS BUS RDDRESS

Pgsvxggg ugno co?nr
PARAMETER BLOCK IN COMMAND

INITIRTION QUEUE

RTS

JSR
TYPE

PC, BUFREL
, OPROOS

G0 RELEASE BUFFER
:TYPE ~“OPERATOR INITIATED DROP DRIVE

JSR

PC, DROP

:GO DROP DRIVE

JSR

RTS

PC GETBUF

:RETURN

DURING PACK

WRITING'

‘GET BUFFER FOR NExT COMMAND
{RETUR

CIR6PCO RKB11-06 PERF EXEC
CZR6PC P11
01-DEC-77 14:83
27247
7748
7749

010446
010346

812283

MACY11

037010
037012
0370186
037020
037022
037024

GETCUR:

MOV
MOV
MOV
MOV

cs:

MOV
cHP
BNE
MoV
MOV
RTS

RY,-(SP?

;STORE R4 ON STACK

nphnnxo R3

LORO STQRT OF RETRY PARAMETER BLOCK

R3 -(SP)
(RY)+

RSTAT:

MOV
MOV
MOV
MOV

MOV
cMP
BNE
MOV
MOV

RTS

STORE R3?NoéTQCK

CURRENT PARRAMETER BLOCK

. EPAT+2,

(SP)+,R3
(SP)+ R4
PC

RESTORE STATUS

Ss:

(R3)+

sPRRM]0+P

.SBTTL

004516
004602

SEQ Ui72

GET CURRENT STARTUS INFORMATION

036774

Og 77
03700
37002
37004

174

.SBTTL

004516
004602

D14

15:04
PAGE
01-DEC-77
GET CURRENT STATUS INFORMATION

30(1046)

Y PQRQHT R

BLOCK

FEEECRENT
HoRD
0
REQT
NS
RESTORE RY
:RETURN

RY, -(SP)

;STORE RY ON STARCK

oPARnio R3

28 gTRRT OF S RRENT PARRAMETER BLOCK
TART OF
TRY PRRAMETE
LOCK

R3 -(SP)
(R3)+_

(RY4)+

STORE R3 ON STRCK

copv PARAMTER BLOCK

sPARMI0+P. EPART+2] na

£} 3

(SP)+ R3
(SP)+,RY
PC

:CHECK

IF FINISHED

ST
NEXT

Rssro

:RESTORE RH

i RETURN

WORD

CZR6PCO RKb1] /06 PERF EXEC
D1-DEC-77 14:53
CZR6PL .P11

7779

037046
037054
037056
037064

7778

037026
037034
037036
037044

00 O
WWw
NN

2777

O 000000
0000
W WWWWW
WWWwWw
N~ NNNNN O NNNNY
N
O~ NOOnOWWNME
£
n
oo

72774
777%
777b

MACY11

122765

000021

000147

000020

000006

122765
001004

000024

000147

000220

000006

000027

000147

000040

000006

00003e

000147

000240

000026

000035

00C1iN7

000060

000006

000040

000147

000260
000115
0S1406

000006
000001

001004

112765
000437

17S

.SBTTL

DETERMINE OFFSET FOR RETRY

DETOFF:

gzgfl

108:

118:

128:

13%:

821,P.RERD(RS)
108

ggECK
IF OFFSET = +400 MICRO-INCHES
CONTINUE

OFFPY,P. OFST (RS} ioao orrssr VALUE = +400 MICRO-INCHES
158

; 18SUE OFFSET

gge

fi:,P.RERD(RS)

cnscxo'x‘rxoréssr = -400 MICRO-INCHES

15§

,xs
SUE OFFSE

CMPB

827 ,P.RERD(RS)

HECK IF OFFSET = +B00 MICRO-INCHES

15¢

xssuc

CMPB

#32,P.RERD(RS)

;CHECK IF OFFSET = -B00 MICRO-INCHES

CMPB

#3S,P.RERD(RS)

;CHECK IF OFFSET = 41200 MICRO-INCHES

#40,P.RERD(RS)

;CHECK IF OFFSET = -1200 MICRO-INCHES

MOVB
BNE

MOVB

BNE
MOVB
BR
BNE
MOVS
BR

norrnu,P.or57tns5 Lono orrser VALUE = -400 MICRO-INCHES
128’

148
CONTINUE
SOFFP12,P. OFST(RS):LORD orrser VALUE = +1200 MICRO-INCHES
15§
- 1SSUE OFFSET

BNE

30s’

158:

MOV8

RO,Q. PUSH’

JSR

CINITQ
MOY

RTS
757

RTS

TINUE

138’
NO, CONTINUE
8OFFM8,P. oFST(RSS ;L 0RD orrs;r VALUE = -B00 MICRO-INCHES
158
xs
SUE OFFSE

CMPB

MOVB

8OFFPB,P. OFST(R55 LonoOFFSET
OFFSET VALUE= +800 MICRO-INCHES

148 :

308 :

SEQ 3173

MOVB
BR

037202
037204
037206

E1Y

01-DEC-77
15:04
FAGE
DETERMINE OFFSET FOR RETRY

30(1046)

NO, DO RERERD

8OFFM12,P .OFST(RS) |:LORD OFFSET VALUE= -1200 MICRO-INCHES
80FFSET P.CMND(RS)

:LORD OFFSET COMMAND

,ENO UE PARAMETER BLOCK IN COMMAND

(RO),RO

;
xnxrxnrxou QUEUE
'LOAD OFFSET ISSUED RETURN

(RO)+

:ADJUST RETURN FOR NO OFFSET

RO
RO

*RETURN
*RETURN

cznspco RKG611 06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53
;gig
7814

037210

013746

7816
7817
7818
7819
7820

037220
037222
037224
7226
037230

011646
006316
2616
5046
113716

7822
7823
7824
7825

78
037w
037244
037

005046
116516
162616
012746

7828
7829
7830
7831

0372
0372
037266
037270

005046
113716
062616
005046

7815

7821

7826
7827

7832
7833

7834

(037214

7 gz

037
037256

037272
037276

037300

166516

2616

004737
012616

116516
162616

001641
00000S

000026

0S4714

001640
000004

CALWC:

MOV

RTYCYL,

MOV
ASL
RDD
CLR
MOVB

<sp) -(SP
(SP)
(SP,+, (SP)
-(SP)
RTYTRK, (SP)

:STORE CYLINDER DIFFERENCE
TMULTIPLY DIFFERENCE BY 2
:MULTIPLY DIFFERENCE BY 3
:MAKE ROOM ON STACK
sGET SETRY TRACK

CLR
MOVB
sug
MOV

-(SP)
P.TRCK(RS), (SP)
(5P)+, (SP)
822.,-(SP)

:MAKE ROOM ON THE STACK
;GET INITIAL TRACK
'SUBTRACT INITIAL TRACK
SMULTIPLY TRACK BY 22

CLR
MOVB
ADD
CLR

-(SP)
RTYSEC, (SP)
(sp)4,tspy
(SP)

'MAKE ROOM ON THE
S
IGET RETRY SECTOR
:ADD PRESENT SECTOR
*MAKE ROOM ON STACK

(5P, 1 (SP)

'MULTIPLY BY 256 WORDS/SECTOR

(5P), RTYWC

:SUBTRACT FROM

SUB

ADD

JSR
MOV

001634

PC,SAULT
(SP)+, (SP)

:RDD

RETRY TRACK

: THROW AWAY MOST sxcnxr:cnnr BITS

(SP)

ASL
ADD
RTS

(5P)
(SF)+,RTYBA
PC

Sus

006316
062637
000207

(sP)+, lsP)

CLRB

001636

037312
037314
037320

;STORE RETRY CYLINOER

P.SECT(RS),(SP) ;GET INITIAL SECTOR
(SP)+, (5P)
:CALCULATE NUMBER OF SECTORS UNTIL ERRCR

161637

7837
7838
7833

- (SP)

CYLN!RS) (SP, :SUBTRRCT INITIAL CYLINDER

MOVE
suB

MOVe

105016

SED 0179

CRLCULARTE RETRY WORD COUNT

000001

037304

037306

000002

176

.SBTTL

111666

7835

7836

001642

F1Y4

MACY1l 30(1046)
O1-DEC-7?7
15:04
PAGE
CALCULATE RETRY WORD COUNT

INITIAL WORD COUNT

:DETERMINE NUMBER OF BYTES
:CALCULATE STARTING BUFFER ADDRESS
*RETURN

cznspco RK611-06 PERF EXEC
CZREPC.P11
01-DEC-77 [4:53

GlY

MACY11 30(1046)
O1-DEC-7?7
15:04
PRGE 177
RECOVERABLE CONTROLLER ERROR TERMINATION

;g:?

7842

037322

012037

037344

7?7

020000

7833 833 ;7
7844

784S

037

7839

1032

486

838808

;qu 03;395 10“;0% 001695
7850 33 SEE 8837 7 858244
7851
7852
7853

CONERR:

MOV

141600

#5L13, ISR

cuecx IF

BNE

108

TYP

. WORD

}ES‘
I5R

#gcgkrsTr
PC Pn¥ooe

EHS

INHIBIT PRINT OUT

IF HALT ON ERRCR

-Tvpt RROR MESSAGE

;;?51(C8§§5F)L
ISTERS
*PRINT E 3* ExscuED COMMAND

7856

060530

JSR

PC exnoc

MOV
JSR
TYPE

b, epos<ns> -(SP)'.STORE ECC POSITION FOR PRINT oUT
PC,BINOCT
,convs T Tu OCTAL
$LRLF
:TYPE <CR><(LF)>

INC
cHP

CNYCNT
87.CONT,CNTCNT

000062

7857
76858
7859

037412
037416
037422

016596
004737
104401

7861
7862

037432
037436

005237
022737

001630
000012

104401

061072

MOV

TYPE

000060
052774
001165

7860 037426 004737 03.i250
7863

037444

103006

7864 037446 104401 060533

7865
786
;gge

7869

037452

8 74
746

037462

880992
0

7870

037466

100005

105765

000150

7872
7873

037476
037502

005037
004037

001566
051406

108:
001630

7871 037470 04¢765 100200 0001S0
7874
7875

037506
037S10

001324
008200

JSR

BHIS

TYPE

HALT
BR

158 :

208 :

7578

oeknoss 2s
1
RROG7

:PRINTER

052774

104401

037344

:STORE ERROR nessnce ADDRESS

pC, PROOO

2s:

(RO)+, 28

J?R

0631

4737

063130

RECOVERARBLE CONTROLLER ERROR TERMINATION

7854 8 7353 865;4
037406

022737
1016
104401

_SBTTL

CHP
BNE
TYPE

7855

0373;8
0373
037372

SEQ 317S

{CHECK IF ECC LOGIC ERROR
NO CHECK IF WALT ON ERROR
PE “RKECPT RKECPS”

b spnr(n§> -(59) STORS E c PATTERN FOR PRINT OUT
0 OCTAL

Bl AN

TYPE

#c HL 7000

:CHECK IF MALT ON ERROR

15$

rvbs “FATAL ERRORTM

, ERROOO

' ERROOS

P INCREMENT CONTROLLER ERROR COUNT
cuecx IF THRESHOLD EXCEEDED
CONT INUE

:TYPE “CONTROLLER ERROR THRESHOLD EXCEEDED"

. =2

BPL

208

P.DSTT(RS)

cnccx

CLR
JSR

ERRPRO
RO, G.PUSH

CLEAR ERROGR BEING PROCESSED
REOUEUE COMMAND IN COMMAND

RTS

8IC

¢ INITQ

IF FIRST snnoa

EQUEUE COMM

cBITlS'BIT? P. os?r(hS) CLEAR E~ ?on ENQUEUED AND FIRST ERROR
'
"INITIATION QUEUE
; RETURN

]

»
.

CZR6PCO RKb11-06 PERF EXEC
01-DEC-77 14:53
CZR6PC. P11

03276S
001016

000030

000036

178

BIT

BNE

SEG 0176

BACLO!SPDLSS, P. os<ns>

108

.CHECK

IF AC LOW OR SPEED LOSS

S REPORT ERROR

CHECK IF RNY8F THE FOLLbHING ERRORS RRE SET
ILLEGRL DISK RDDRESS

OCK ERROR
;g

03276S

037530

001026

037532

032765

037540

001072

o460eH4

037522

000034

8IT

YES

006010

000212

004070

000014

837883 JB&328
037584

000200

037556
037562

030000
000010

037576

004737
032765
001403
104401
poo472

037600
037604

104401
ooo4e?

geelle

037606
03;212

004737

030000
040000

337653 ke

037626

000456

037630
037636
037640
037644

032765
001403
10440
00044

037646
037654
03765k

032765
001403
1089401

10%:

062103
118:

000034

129:

BNE

188

000040

000034

0e212s
0000eC
Obal4e

149

GC REPORT ERROR

DRIVE HRRD ERRO

DRIVE STATUS CHANGE DID NOT CLEQR
BIT

HN; P;?TED
RTTN FR H DRIVE
COMMAN
C AND F ULT RESET

SDRVHRD! onvosc uexnrr-uoosc _PRST(RS)

?§§

<S3)+

JSR

PC,PRI1000

TYPE
BR

ERRO33
A0s

81T
BEQ

TYPE

#RtLO,P.DS(RS)
11
ERRO34

REPORT

cE?RnnL ETURN ADDRESS
PRINT ERROR HEADER

;CHECK IF RC LOW
NO CONTINUE

TYPE =
W
co GET ERROR QUALIFICATION
: TYPE “SPEED LOSS"

30s

:GET ERROR QUALIFICATION

JSR

PC, anooo

:PRINT ERROR HERDER

TYPE

138

£RROSE

TINUE
v#s “ova
UNSRFE"

BIT

sUNS,P.ER(RS)

308

BIT

#DTYE,P.ER(RS)

cuecx IF DRIVE UNSAFE

csr ERROR QUALIFICRTION
;CHECK IF DRIVE TYPE ERROR

T¥Pe
BR

30s

LeAmo3s

?$¢EC°N;
VE-TveE ERRORTM
‘GET ERg& EUQLIE ER BITS

BIT
BEG

.rnrs P.ER(RS)
cg

:CHECK IF FORMAT ERROR
:NO,
CONTINUE

00003

;YES,

CHECK IF _RANY OF THE FOLLOWING FLAGS RARE SET

BEQ

0eesee

ERROR

BIT

RTS
000036

REPORT

DRIVE READY NOT SETY RFTER START SPINDLE
ME VAL D N?
SET AFT R PRCK ACKNOWLEDGE
.ERR(
3!BITI0!BI

032765

NON EXECUTRBLE DRI.e FUNCTION
SUNS!IDRE'WLE!DTYE!FM TE!HXF ,P.ER(RS)

OF THE NS#LQNAOQ AGS QRE SET
gchx xrlgav
DRIVE ERROR

wsws

037542

7911

PRGE

TSTORP:

@s @e

7886

ERRCORS

788

H14

TEST FOR DROP DRIVE ERROF
"

7882
7883

15:04

.SBTTL

7881

037512
037520

30(1046)
O1-DEC 77
TEST FOR DROP DRIVE

7 ?9
787
7878
7879

MACY11

TvPE

ERR036

:TYPE FORMART ERRGR

c ZR6PCO ?Tbll06 PERF

EXEC

01-DEC-77

CZR 6PC.P

14:583

MARCY11 3? (1l 046 )

ES TF OR DROP DRIVE

037662

000440

037664

032765
001403
104401

000004

032765
001403
104401

002000

037720
037724

104401
000417

062066

037726
037732
037740
027742
037746

004737
032765
001403
104401
000406

030000
002000

037750

032765

004000

037756
037760

001404
104401

062555

037764
037770
037776

040000
040004

104401
032765
00140S
104401
000402

040006
040012
040020
040822
040026

Do4737
032765
001402
104401
032765

004000

DoOoo1H4

040034
040036
o40042

001402
104401
032765

062676
000040

000014

Q40050
040052
0400S6

001402
104401
032765

040064

0g1402

000431

037716

ooo4e2

000034

158

169:

ooo21e

18%:

062514
oooz2le

19%:

061723

061742
000010

062032
000206
020000

004737

TYPE

:NO, CONTINUE
:TYPE ILLEGAL DRIVE FUNCTION
'GET ERROR QUALIFIER BITS

IF NON-EXECUTRBLE DRIVE FUNCTION

oxoas P.ER(RS)

;CHECK

7$
ERRO31
30s

ERRO32

ILLEGAL DISK RDORESS

'NO, CONTINUE
:TYPE “ILLEGAL DISK ADDRESSTM
:GET ERROR QUALIFER BITS
. TYPE "WRITE LOCK ERROR"

30s

:GET ERROR QUALIFIER BITS

JSR
BIT

PC pnxooo

;PRINT ERROR HERDER

ERROS3+1
30s

'PPINT ~DRIVE NOT READY AFTER START SPINDLE"
:GET ERROR QUALIFIER BITS

-g%rxo .ERR(RS) fiS"EESN¥§N°21VE NOT READY AFTER START SPINCLE

®BIT11,P.ERR(RS) ;CHECK IF VOLUME VALID DID NOT SET
AFTER PACK RCKNOWLEDGE

PC, PRI000

NO CONT INUE
;PRINT “VOLUME VAID NOT SET AFTE?
PACK RCKNOMLEDGE

TYPE <CR> <LF>

INOSTRUCTION"

. PRINT ERROR anoe

oohvuflo PRST(RQ) :CHECK IF HARD DRIVE ERROR

ERROE

CHECK OTHER QUALIFIER BITS

rv#s “DRIVE HARD ERRORTM

kNODSC, P. PRS.(RSS ;CHECK IF ATTENTICN BUT

NO DRIVE STATUS CHANGE OR FAULT
CHECK OTHER OURLIFIER BITS

448
:

45S8:

R0S8
the “QATTN BUT NO DSC OR FAULT"
honvosc P. PRST(RS) hguegx IF DRIVE STATUS CHANGE DID
RO28

468:

ERR

CHECK OTHER ERROR QUALIFIER BITS

YPE “DRI

STATUS CHANGE DID NOT CLERRTM

ERRO30
P _NER(RS)
#SW13, aSWR

BRIVE COMMAND
CHECK OTHER QUALIFIER BITS
'TYPE “UNEXPECTED RTTN FROM DRIVE COMMANDTM
: INCREMENT OTHER ERROR COUNT
ICHECK IF INWIBIT PRINT OUT

P.DSTT(RS)
51§
ERR202
pC,PRISTT
PC.PROSTT

cneéx IF ERROR DHRING ERROR RECOVERY
INO, PRINT STATUS
:TYPE “ERROR DURING ERROR RECOVERY"
:PRINT CONTROLLER REGISTERS
:PRINT DRIVE STARTUS

60%

518:

‘UEXRTT P. PRST(RQ) CHECK IF UMNEXPECTED ATTENTION FROM
46$

000150
063721
026074
025720

BIT
BEQ

;CHECK

bBIT3,P.ERR(RS):CHECK IF ERROR NOT INDICATED BY FRULT
42$
!NO, CHECK OTHER QUALIFIER BITS
*TYPE “ERROR NOT INDICATED BY FRULT"
ERROS?
42s
:CHECK OTHER QUALIFIER BITS

000014

141034

SEQ Q17?7

16%
ERRO37
A0s

SCRLF

oooele

000014

179

SNXF ,P.ER(RS)

318
_ERROS4+1

062635
030000
000020

PRGE

BIT
BEQ

BR
178:

ERRCRS

:GET ERROR QUAILIFER BITS

TYPE

062052

I14

308

BR
000034

1,-0M

B8R

TYPE

062155

001165
000010

=77

'NO,

YES,

CHECK IF HALT ON ERROR

CZREPCO RKB11 06 PERF EXEC
CZREPC.PL]
01-DEC-77 14:53

7988

040130

004737

030244

7930

(040140

004737

031250

7992

040152

001431

7989

7991

7993

7994
7995
7936

7997

7998

Q40134

0O401%4
(040154

040216

8006

032765

00003C

000036

040000

000034

001012

8002
8003

140766

040200

040202
040206

gggg

000100

001004
032765
00l4el

040174

040214

10S7?6S

000120

105265
122765

000146
000CIC

004037

051406

103404

040222

001324

040226

004737

0o40224

040232
040234

000200

8010
8011
801e

040236
040242
040246

004737
004737
004737

8014
8015

(040256
040260

011000
000200

8013

040252

608%:

61S:

000146

011000

00S037

031502

Q22642
013004
022342

001566

PC,PRI00O2

; PRINT CURRENT COMMAND

JSR

PC,HLTOCO

;CHECK IF HALT ON ERROR

8EQ

638

BNE
BIT
BEQ

618
#UNS,P.ER(RS)
63$

JSR

8IT

638:

#SWE, ISKR

; PRINT PREVIOUS COMMAND

;CHECK FOR SWITCH &
:NO DROP DRIVE

8ACLO!SPDLSS,P.DS(RS) ;CHECK IF UNSAFE, ACLOW AND SPEED LOSS

P.IERC(RS)

;CHECK

INCB
CMPB
BLO

P.RECT(RS)
88. ,P.RECT(RS)

; INCREMENT ERROR_RETRY COUNT
;CHECK IF RETRY THRESHOLD EXCEEDED

CINITQ

57%:

PC,PRID0I

7578

BNE

JSR

6es:

SEQ 0178

JSR

BIT

000402

8007

gggg

030066

032777

Q40162
Qu0led
Q40172

7999
8000

8001

004737

J14

MACv1l 30(1046)
01-DEC-77
15:04
PRGE 180
TEST FOR DROP DRIVE ERRORS

62$

62s

RO, G. PUSH

; YES,

INMIBIT ERROR RECOVERY

INDICATE UNSUCCESSFUL RECOVERY

:ENQUEUE PARAMETER BLOCK IN COMMAND
;

_INITIARTION QUEUE

JSR

PC,UNRECY

RTS

JSR
JSR
JSR

PC,BUFREL
, DROP
PC, GETBUF

; RELERSE BUFFER
; DROP DRIVE
;GET NEW BUFFER

MOV
RTS

(RO),RO
RO

; LOAD ERROR RETURN
; RETURN

MOV

CLR

(RO),RO

ERARPRO

; RETURN

; INDICATE UNSUCCESSFUL RECOVERY

; CLEAR_ERROR BEING PROCESSED

CZREPCO RKE11
CZREPC.PI11

06 PERF EXEC
01-DEC-?7 14:53

MACY11

8819

8018
8019

040262
040270

03276S
0C.415

004000

0001S0

8021

040300

042765
0S2765

004000

000150

040320

000117
0S1406

000001

8024

66276
4037

010000

8020

8022
8323

gggg

8027

040272

040306
040314
040322

001427
04276S
105765

010000

000150

010000
000211

0001S0

8032

040350

004737

036276

04035k
040364

122765
1010S3

000021

000147

020000
000115
0S1406

000150
0GC00CI

8833
8035
8036

8037
8038
8039

040346

040354

040366
040374
040402

032765

001403

000207

0S276S
112765
004037

8040
8835

(40406
040410

001324
000207

8043
8044

040412
040420

032765
001453

8047

040436

B804S
8046
8048
8049

122765

000024

000147

12276S

000027

000147

122765

000032

000147

122765

00003S

000147

122765

000040

000147

105265
116565
122765

000147
000123
000131

000001
000001

0S276S5
004037

000200
0S1406

000014

001424

040466

001414

8053

040466

001410

040476

001404

040506

0061002

8055

040470

8056

040500

8058
8059
8060

040510
(O40514
040522

8062
8063

0405832
040540

8057

8061

8064
8822
8067
8068
B069

8070
8071

000150

040440

8051

8054

020000

0001S0
000147

040460

040530

001003

040544
040846

001324
000207

0O40SS0

032765

0O40SS6

001436

040560
040566

158:

042765
113765

BIC
BIS

EC3S:

SS:

000100

0001S0

000100
001666

000:30
00000

"INITIATION QUEUE

BIT

#BIT12,P.DSTT(RS)

' RETURN

:CHECK IF SEEK ISSUED

BEQ
BIC
7578

108
-NO. CONTINUE
#BIT712,P.DSTT(RS) ;LLEAR SEEK ISSUED
P.SEEKLRS)
.CHECK IF SEEK TO PREVIOUS POSITION

JSR

PC, SURECY

CMPB
BHI

821 ,P.RERD(RS)
20$

;CHECK IF OFFSET
'NO,
RFTSSUE COMMAND

:
"INITIARTION QUEUE
:RETURN

BIT
BEQ

"NO,

PROCESS DATA TRANSFER

RETURN

"INDICATE SUCCESSFUL RECOVERY

8BIT13,P.DSTT(RS) ;8E, OFFSET ISSUED
8OFFSEY, P.CMND(RS)'; ~SUE OFFSET
RO, Q. PUSH
;PUt PARAMETER BLOCK IN COMMAND
#BIT13,P.DSTT(RS)
ECY
.

:CHECK IF DO PREVIOUS OFFSET
CONTINUE

8B8IT13,P.DSTT(RS) ;CLEAR OFFSET ISSUED
#21,P.RERD(RS)
;CHECK IF OFFSET +400 MICRO-INCHES
158

'YES,

GO ISSUE RERD

'YES,

GO ISSUE RERD

cMP8

#24,P.RERD(RS)

;CHECK IF OFFSET -400 MICRO-INCHES

CHPB

827 ,P.RERD(RS)

:CHELK IF OFFSET +800 MICRO-INCHES

CMPB

832,P.RERD(RS)

BEQ
BEQ

BEQ

158

15%

:CHELK

T -800 MICRO-INCHES

:YES,

GO ISSUE RERD

158

‘YES,

GO I1SSUE RERD

208

'NO,

#35,P.RERD(RS)

CMPB

840,P.RERD(RS)

BNE

15§

cHPB

BEQ

:CHECK IF OFFSET +1200 MICRO-INCHES

;CHELK IF OFFSET -1200 MICRO-INCHES
DO NOT INCREMENT REREAD COUNT

INCB
MOVB
CMPB

P.RERD(RS)
: INCREMENT REREARD COUNT
P.RCMD(RS) ,P.CMNO(RS) :LORD COMMAND
SWURTCHK,P.EMND(RS) ;CHECK IF WRITE CHECK

8IS
JSR

8. WCK,P.PRST(RS) ;YES,
RO, Q. PUSH
:ENQUEUE

BNE

ECYS:

:SET SEEK ISSUED

BEQ

25§ :

#RIT12'P.DSTT(RS)

#B1T11,P.DSTT(RS) ;ELEAR RECALIBRATE ISSUED

RTS

BIC
CMPB

15$:
20%:

:CHECK .F RECALIBRATE ISZJED
CONT INUE

8SEEK P.CMND(RS) ; YSSUE SEEK INSTRUCTION
RO, G. PUSH
:PUT PRRAMETER BLOCK IN COMMAND

BIS
MOVB
JSR

10S:

#BIT11,P.DSTT(RS)
EC3$
.

MOVB
JSR

CINITQ
RTS

020000
C. J21

001420

8052

BIT
BEQ

RTS

042765
122765

040453

ERCVYl:

BEQ

(040422
040430
040446

8050

ERROR RECOVERY SEQUENCE NORMAL RETURN

CINITQ

040332
040334
040342

SE2 0179

.SBTTL

000207

8028
8029
8030
8031

040324

001324

000150

K1Y

30(1046)
O0O1-DEC-?7
15:04
PAGE 181
ERROR RECOVERY SEQUENCE NORMAL RETURN

CINITQ
RTS

258

-NO

:"
INITIATION QUEUE
: RETURN

BIT

#BI1T6,P.DSTT(RS)

BEQ

ECSS

BIC
MOVB

UE C

ISSUE WRITE BEFOR WRITE CHECK
PARAMETER BLOCK IN COMMAND

;CHECK IF WRITING FOR READ STATUS
: "FOR POSITIONING TIME OUT
INO,
CONTINUE

#8176,P.DSTT(RS) ' ;CLEAR WAITING FOR READ STRTUS
POSCMD,P.CMND(RS) " ; RESTORE COMMAND OF ERROR

P
e B ) BEe
&PC
.

7%v

40602
gigen
s

8075

Q40610

807

5 T ' s3

004737

8076
8077

040612

000207

8080

Q40622

878 ity BAE
04

JSR

03046

c§:

4037

030654

DO4O37

031300

108:

a0d
808

8030

BBced gaTdeE 000U
O4OBEY
000137

041400

35 BuBC7e BIENEE

000020

000150

8094

040700

Q16546

0o01s0 ECSS:
i

00015

Q40714

T
8185 l
940

0000SE

OD6ele

fio
e o Demie
8109
Q40752

000407

0OSY16

i3 BgE K

8116 D4D768 DbSED3
8119 040764
8116 040730 062703 066000
Datao0

ROS2

PAGE

BIT

013335 001646

011337 oBlees

8150 041909 012503 036776

i cugh ol G
BISE D4ibsk Da371E Doleas
8127
041032
052616
013746

001650

]

3s:

SEQ 3180

182 N

U ECK
:
;CH

Y,P.DS(RS)

RIVE READY

ML TROP A —

RO,
pe

' RETURN

RO, FR1200
’

;PRINT RIVE
TIME OUT DU RING

moesn
ETA

11 ?

?é;s
-6 PUBH
e

RROR STATICS
e Sm
es
?ggugggntsannrs Jss

uep

Efi?“§¥§g$?8§"§LESEBL°C K IN COMMAND
et

#8ITY,P.DSTT(RS) ?ggscE IERSEEQEREEROR

RROR

Ees

ABITYES

iNO, ' CONTINUE

491742, 05T (RS gcg

iéflnéfgfi BLL

HEADERS

ISSUED

BIC

IR
TR

ASR

1362,

RAKE_ROOM ON_THE STACK

BMI
nay

YBUFADD-6,R3
(SP)

R PART OF BUFFER
}LO
AD
BAS
E
OF
THR
CHE
RNT
Y &
MULTIPLY SE

#tC(M.SECT>,

e
(sP)I,égP)

NEG

Ariy

(5P)

E
P)+

.
R3

MOV

BHDBUPF-6,R3
(R3)+,HEAD

nov

(83478

Pcbg??nlsp)

B1s

&HIFT

L
X

& BITS RIGHT

. CALCULATE HEADER ADDRESS

CRE Bt

ADD
MOV

(SP

S
RR W
:
BRANCH

8114

8120

g
ADD

742 (006316

8112

i
gigg Q40

040750

L14Y

8195 Q8758 1gehis
8193 84732 012703 066204

gii?

RTS

8028

£8Ros2

D83 Buoede 11762 020113 500001
08
3 !
geH oy oeuce

8839 ooese Donenr

:04
15:04

01-DEC-77

MT RABRORECOVERY “SEQUENGE NORMAL RET

1
RyeTas
cooemo oo

Q40604

8081

(1046)

(R3)+) HEAD?

23551589”5159§é2

VE
§c
s

RESS
{GET FIRST WORD-OF HEAD
ER
GE
t@ET ECOND WORD OF HERDER

T PHIRD WORD OF HEADER
258;8“5132?LD OF THE HEADER

RESTORE B3

EReR IERE IR
e
HERDI, (SP)

(SP)+, (SP)

| GENERRTE EXPEC TED HEADER VRC

CZREPCO RKB11-06 PERF EXEC

CZR6PC.P11

8128

9139
8130
813!

aiag

041034

8“1842
041084

OY1046

031053

01-DEC-77 14:53

023726

0150
04037

062262

105765

MACY11

30(1046)

813
8138

841872

4107
041100

125

001652

CMP

030654

BEQ
JSR

000120

rara

ERRO43

000121 000123

1407
8139
041102
122766 000021 000147
8140 041110 10tp021

8141
gizg

041112
041116

004737
000207

031502

8144
8145

D41120
Q41126

122765
001007

000021

8147
8148
8149
8150
8151
8152
8153
8184

041132
041136
SHIIHH
041146
041152
041154
041158
041176

116504
146437
812& Y
004037
041242
116565
013765
013765

000000
001514
000123
00le42
001640

000001
000002
000004

041204

013765

001636

000012

8146 041130 010446

8156

041176

8157

841215

?NEB

CMPB

8LOS

CMPB
BEQ

CMPB

PilERC(RS)

HECK IF xngxerv ‘“38"s§5E°§gcovsav

HENDI
RneLE ERROR
#RDDATR,
P.
RCHD(RS)
6%
TRRT ERROR RECOVERY

821,P.RERD(RS) cnetx
IF UNRECOVERABLE HRITE
:NO, STRRT ERROR RECOVERY

3 ¥

8s
PC, UNRECY
PC

xnbxcnrs UNRECOVERRBLE ERROR
*RETURN

6S:

CMPB
BNE

821,P.RERD(RS)
7s

cuecx IF BEGINNING OFFSETTING OPERATION
DETERMINE PROPER OFFSET

7%:

MOVB
BIC8
MOV
JSR
128
MOVB
MOV
MOV

8S:

MOV

R4, -(SP)

8158 0d12:6 1227656 000131 000001
Q4,224 001003
8160 041226 0S2765 000200 GOGCoCiY

MOV

S1EQ

041234

041290
041242

8165

041244

8168

041260

8166

041252

004037
001324
000207

023765

001420

0S1406

001646

8167 041254 004037 030654
8169
8170

063075

041262
041266

004037
041312

031346

8172
8173

04176
041304

1127656
004037

00CI13
051406

gigg

41312

000207

8171 041270 052765
8174

8177

841310
Q41314

001324

00S046

8178
8179

041316
041324

113766
006216

8183

041336

0S2716

8180
8181
8182

041326
041330
041332

006216
006216
1583716

000030

108:
128:

15$:

cMP

140000

BEQ

000001

208:

S RDDRESS
counr

Hér Po§ ;

SWRTCHK,P. CHND(RS) ; CHECK
WR] e cuecx COMMAND
108
“NO’ "GO ISSUE COMM
#ld. WCK,P.PRST(RS} tssue WRITE sgroas WRITE CHECK

RO, Q. PUSH
PC

MEAD1,P.DCYL(RS)

;Efia

PRRAMETER BLOCK ON COMMAND

PTUIN x ATION QUEUE
: RETURN

;CHECK IF CYLINDER CORRECT

JSR

RO, PRI200

Pnlfir MISPOSITIONING

JSR
17%

RO, OPISTT

co TAKE STARTISTICS
E$°VE %s Ennon RETURN

MOVB
JSR

SRECAL .P.CMND(RS) ;ISSUE RECALI
RO, Q. PUSH
,Ehoueus Pnnnnsrsn BLOCK IN

RTS

8IS

000001

RTYWC
. P.WC(RS) ct

208

ERROBY

178:

001640

JSR

CiNITQ
RTS

004000 0001S0

001641

CMPB
BIS
BNE

srbns R4 ON THE STACK

P.DRVN(RS) ,R4
:GET DRIVE NUMBER FOR INDEX
INTHSK(RH) oveéoo NOT oo IMPLIED SEEKS
8P)+ RY
é8
RO, DEYOFF
:DETERM NE OFFSET VALUE
:OFFSET ISSUED RETURN
P.RCMD(RS),P.CMNO(RS) ;éroneogonnnno
RTYCYL,P.CYLN(RS) ;GET
IN
RTYSEC.P.SECT(RS) GET TRACK AND SECTOR

P.WC(RS)

B8i62
giga

"NO, CONTINUE
:PRINT HEARDER VRC ERROR

3#43,P.RERD(RS)
RERD(RS)
8&:nen$
2 533538
?
cx IF
E

NEG

8161

SEQ 0181

:CHECK IF HEADER VRC IS CORRECT

158
RO PRI2CC

RTYBA, # BRLO(RS)

000012

183

HERD3, (SP)
+

MOV

00S46S

001634

PRGE

BHI
JSR
RTS

001513

037026

M1lY

000010

8166

013765

000147

15:04

ERROR RECOVERY SEQUENCE NORMAL RETURN

8134
8%1855
fgégég
000147 000147 4§
8135
041062
122755
000043
81

O0O1-DEC-7??

CINITQ
CLR

MOVB
ASR
ASR
ASR
gIss

BIS

:YES,

CHECK SECTOR TRACK AND FORMAT

#BIT1!,P.DSTT(R5 ;SET
:~

COMMAND INITIATION QUEUE

:RETURN

-(SP)

RTYTRK, 1 (SP)
(5P)

(sp)
(Sp
RTYSEC

RECAL R TE ISSUEO

(SP)

#140000, (SP)

nnKE ROOM ON STACK

'GET TRACK
:SHIFT RIGHT 3 BITS
: GENERATE EXPECTED SECOND WORD

:PUT IN GO TRACK BITS

000147

000032

000147

00003S

000147

000040

000147

ECHS:

s oo Pt

e B

Pt Pt

n n oo
££W
Wwn—
-0
o£o
L0O00NNOLENVE

000000
No
.l

;GO TRY TO RETRY COMMAND

#21,P.RERD(RS)
108

;CHECK IF REISSUE DATA TRANSFER
vss INDICATE SlInESSFUL RECOVERY

#24,P.RERD(RS)

000001

5§

%27 ,P.RERD(RS)

5§

Juulso

10%:

goo14e
000210

11%:

036276

ISSUE DATA TRANSFER

YES,

ISSUE DATA TRANSFER

:YES,

ISSUE

;CHECK IF orsger +1aoo MICRO-INCHES

sqg P.RERD(RS)

;CHECK IF OFFSET -1200 MICRO-INCHES
1

#BIT14,P.DSTT(RS)

118

P.RECT(RS)
EC7S
P.ASSN(RS)
12%
PC, SURECY

INITIRTION QUEUE

RETURN

;CHECK IF SERVICING BAD SECTOR

NO,

CONTINUE

cutcx IF IN RETRY SEQUENCE
GO TO BAD SECTOR SERVICE ROUTINE
cutcx IF DRIVE IS BEINGRSSIGNED
'NO, CHECK IF SEEK TO PREVIOUS CYLINDER
xntoxcnrs SUCCESSFUL RECOVERY

'RETURN

12%:

#SEEK,P.CMND(RS)

036276

14%:

PC, SURECY

168

-NO.

S RETURN

025032

169:

RO, CHKADD

; CHECK sscron

000001

000140

000001

177776
ooo121
023304

000001

DATA TRANSFER

P.RERD(RS)
1
NEREMENT RERERD COUNT
P.RCMD(RS),P. CMNB(RE) - ; REISSUE COMMAND
RO,
@. PUSH
:ENQUEJE PARAMETER BLOCK IN COMMAND

000117

ATA

:CHECK IF OFFSET +800 MICRO-INCHES

#35,P.RERD(RS)

PC
040000

:YES,

cuscx IF OFFSET -;oosnégao INCHES

;CHECK IF OFFSET -800 MICRO-INCHES

S§
5%:

"OFFSET = +400 MICRO-INCHES

tssue DATA TRANSFER

#32,P.RERD(RS)

000207

[ Pt bt

000147
000123
051406

C41630

SNPB

; TYPE HERDER ERROR

—

000027

000147

RO,PRI200

000147

041056

UNRECOVERRBLE RETURN
:G0 ISSUE LAST COMMAND

&
m

000024

25%:

(V2]

122765
001420
122765

041626
005037

IF SECOND WORD IS CORRECT

| ]

041412
041420

004037

;CHECK

;GO _TRKE STATISTICS

000021

0ooec?

‘SP)+,HEAD2

RO,OPISTT

122765
101036
001424

041554

SEQ 0182

031346

041400
041406
O41410

122765

184

030654

000207

PAGE

:CHECK FOR BAD SECTOR
: INDICATE OPERARTION INCOMPLETE

004037
og4232
000137

032765
001403

N14

25
RO,PRI2CO

041366
041372
041374

000
££L

rnorufun
m.—p........’...—...
OWwONCNLEW

cMP

001650

000673

041430

15:04

RROR RECOVERY SEQUENCE NORMAL RETURN

041364

o4l4ee

[esloeleatoeleafeeTs
o)

022637

31-DEC =77

m
[9)]

Q41342
041346

MACY11l 32(1046;

Ay W
i
I
i
iy N
i
S
[y S

GO0 W0 DD DD O DM
SDONCNLWN-OOm N

(0 Q000 00 @O 4o €0 O (0 00 (D MO B (0

CZRBEPCO Rhbl1/06 PERF EXEC
CZRePC.P11
01-DEC-77 14:53

;CHECK IF SEEK TQ PREVIOUS CYLINDER

19
-YES, INDICATE SUCCESSFUL REZOVERY
ORELERS,P.CHND(RS) ;CHECK IF RELERSE

PROCESS DATA TRANSFER

bexchE SUCCESSFUL RECOVERY
TRACK,

ND WORD COUND
ERROR RE TURN

LLOW RKO6 INTERRUPTS

CYLINDER,

#RDDATA, P. cnno(RS) CHECK IF READ DATA
308
HECKJ IF
:WRITE CHECK
RO, BUFER1
FIND FIRST DATA ERROR
‘ERROR RETURN

BUS RDDRESS

CZR6EPCO RKB11-0€ PERF EXEC

CZREPC.P11

01-DEC-7?7 [4:53

(Q4iblY

013737

gg:g

091626

000207

8244

(41630

081636
Owies4

0S276S5
000137

000004
035310

000212

1777?6

25$:

8248

(041650

276S

000131

000001

30S8:

8250

041660

032765

000200

041670
8:1975

042765
004037

000200
0S140€

gggg

O41704

000207

8257

041706

004037

Q41712

042000

3248
gszg
8249

8252
8253
8254

041622

041656
O4lbbt

1702

00473:

013737

135&

001752

001324

8258
8259
)
8cbl

041714
041722

Q42765
004737

041734

100022

8264

8265

536276

001452

177776

O4I794

013765
013765

001654
O0G1656

041772

8270

041774

8273

042002

gg;

042000

001324

00037

001566

10S76S

000210

000207

g8e74
g8e7s
8276

042006
Q42010
042014

001012
383737
037

8278
8279

042022
042026

004737
005037

Q22342
001566

8202

QN203M4

001566

8277

ggg?

(042020

042032

001314

000207

042040
04204
042054
02062
O4206M

013765
013765
032777
0010
000137

001654
001656
040000

8289

042070

004737

022642

8291
gsgz

042102
O42104

001402
000137

016040

8294

042110

112765

177777

SEG 0183

RKPR1,PS

;LOCK OUT RKO& INTERRUPTS

20$:

RTS

pc’

:RE [URN

MOV

RKPRI,PS

JSR

PC, SURECY

xwoxcnrs SUCCESSFUL RECOVERY
;LOCY OUT RKO6 INTERRUPTS

8BIT2.P.ERR(RS) ;INDICATE DATA COMPARE ERROR
E108
:PROCESS DATR COMPRRE ERROR

cMeB

SWRTCHK ,P.CMND(RS)

000014

BIT

8ld. WCK, P. Pnsr(nsi -CHECK IF WRITE CHECK ISSUED

000014

BIC
JSR

ou ucxP.PRST(RS) :CLEAR WRITE BEFORE WRITE
C
PUSH
ehoueuz COMMAND IN COMMAND xuxrxnrxou QUEUE

18%

v&S,

RTS

; RETURN

JSR

RO, CHKARDD

;CHECK IF BUS ADD,

MOY

asac P. HC(RS)

: LORD

MOV

assecr P. secr(flsi ;LORD

CiNITG

EC?S:

0001S0

81¢C
JSR
8PL

000004

000002

108:

022647
0SI406

8283
8284
8285
8286
gggz

PAGE 185

MOV

Bo6S
8268 OMi768
82:7?2 aae2
403§ Jolbes
1406 D0001D cs:
8269

B1S

18$:

041726 01376 001660 000UL2
041736

15:04

BIS
IMP

025032

040000
042142

01-DEC-7??

ERROR RECOVERY SEQUENCE NORMAL RETURN

8240

8241

0,-32

MACY1l 30(1046)

MOV

Ble
JSR

CINITQ

015276

8290 042074 032765 002000 000014
000211

8295 042116 016565 000!:36 000002

148:

IS§:

IF WRITE CHECK

NOICATE SUCCESSFUL RECOVERY
INDICATE SUCCESSFUL RECOVERY

WORD COUNT,

BSCYUN.P.CYUN(RS)

K IF

:LORD

noone;s FOR NEXT DATA TRANSFER
DATA

TRANSFER FINISHED

SECTOR nng TRACK FOR NEXT COMMAND

CYLINDER

FOR NEXT COMMAND

%aes¢.<9“LSS$%R55L°“°
e R TE IN|OnCOMMAND
MEXT DATA
TRANSFER
POSH
ha R
UéSUSHHRND
INITIATION
QUEUE

CL§9R ERROR PROCESSING FLAG

1578

P ASSN(RS)

;CHECK IF PACK 1S BEING WRITTEN

RTS

SECTOR,

; TRACK nuo CYLINDER ARE CORRECT
ERROR RETURN
.exrxw P.OSTT(RS} :CLEAR SERVICING BAD SECTOR
BSTRAN
;CALCULATE NUMBER OF WORDS TRANSFERRED

ERRPRO
PC

BNE
JSR
JSR

3s
PC BUFREL
RO G.PUSH

SYES, CHECK xr SEEK TO NEXT CYLINDER
RELEQSE gur
: ENQUE
ARMETER BLOCK IN DRIVE

JSR
CLR

PC, GETBUF
ERRPRO

'GET MNEXT BUFFER FOR DAT TRANSFER
CLERR ERROR BEING PROCESSING

CLR

ERRPRO

JSR

BIT

PC, BUFREL

BEG
IMP

158
Wvls

MOVB

LC\L\RS) >CviN(RS) SGET LRST CYLINGER

RTS

138:

;CHECK

CLR

AVAILG

000026
000030
137056

188

MOV
MOV
BIT
BNE
IMP

MOV

} " AVAILIRBLE QUEUE
: RE TURN

:CLEAR ERROR BE ING Pnocsssso

BSSECT,P.DTS(RS)" ;LORD NEXT SECTOR AND TRACK
BSCYLN P.DCYL(RS)’ ;LORD NEXT CYL INDER
8SW14, JSWR
:CHECK IF LOOP ON CURRENT OPERAT.ON
14§
1YES, ISSUE SEEK TO PREVIOUS CYLINDER
Wvos
INO, 'CONTINUE TO WRITE PACK
ELERSE BUFFER

8ORPDRYV , P pnsvcns) ;CHECK IF DROP DRIVE

-NO’ ISSUE SEEK TO PREVIOUS CYL INDER
'DROP DRIVE

SEEK(RS)

:SET SEEK TO PREVIOUS CYLINDER

CoRBPCO RKb1106 PERF

SZRePC.PII
8296

042124

EXEC

MACYLl 3

000140

000004

ox-osc--/; 14:53
016565

Sag?
8“5135
668?63
000117 000001
s
Duein
71

EC-77

15:04

ClS
PRJE

186

Ecgvsgv SEQUENCE NORMAL né?um«
MOV

MOVB
BR

P.LSEC(RS),P.SECT(RS)

SEQ 018M
GET LQSY TRACK AND SECTOR

'?EEKb"‘OlRSl c.oLOMD
'
COMMAND
1SSUE sssx COMMAND

CZR6PCO RKB11.06 PERF EXEC

CZR6PC.PII

01-DEC-77 14:53

MACv1l

gggg

{58

042176

ggxo
11
8312

ggxa

042 22

83' 33

Buéc

8315

042234

8s1

£2%

8319

gaaa

122737

00002S

105237

001655

182843 001654
122737

7 8815@5
1656

01374

Asszxz

1154

5046

113716
882&15
SO46

8322

8323

652&15

8323

000002

BSTRAN: MOV

116516

00000S

18746

000026

Saeq owaegu 884737 054714

eg
9 §§S§;§
6é§2?2 001654
gga
e
Q6c 16

D1S
PRGE

187

SE2 0165

001654

MOV
INCB

TS(R
SECT ;STORE RDDRESS OF BAD SECTOR
8CYL(§5583
&SN ADVANCE TO MNEXT SECTOR ON PACK

L
R4

E SECT

cMP

INCB

cMPB

001655

auag
c§:

cL
INC

assecr

BSTRCK

82, BSTRCK

TRCK

SCYLN

MOV

aschu -(SP)

Rov

<s ),~(5

SuB

RDD

001655

15:04

CALCULATE WORDS TRANSFERRED UNTIL BRD SECTOR

RSL

2616

2242
8322
e
D42252

001656

006316

8318
8319
8320
8321

000002

01-DEC-??

CALCULATE WCRDS TRANSFERRED UNTIL BARD SECTOR
.SBTTL

14
16537
00
01654
gsglgé
8&§§§7
-@8853
831626
1
1
7
001654

8307

30(1046)

CLR

(sp)+ (SP)

(SP

asrncx (SP)
(SP)+, tSP)
-(SP)

suB

(5P)+, (SP)’

MOV

éSS

MOVB

gog

SECTOR OVERFLOW

CLE o8SECT
6"8

: INCREMENT

cuccx

x OVERFLOW

OR T

onr NUE

NE
nensnr chxuocn

SYLNlRS),(SP)

MOVB
ADD
CLR
MOVB

cuzcx FOR

ON STACK

mménc CYLINDER

IO rERE

:MULTIPLY CYLINOER BY 3
MAKE ROOM ON STACK

PLRCE TRACK ON STACK
:R0D_TRACK
nnx: ROOH ON THE STACK

P.TRCK(RS), (SP)

oa& n?

822.,-(5P)

:2&’ PLY av a

P? 3?ULT

aséecv
(SP)
(§p;+,lsp)

ncr

uxrx

STRCK ron MULTIPLICRTION

STACK

Esrofig:§8§sgg
¥a3§
CTOR
ooassa

833
Sgg? 835388
8:53?8 ilgg?g
1?12&2 000004
000001

QSEB
7'§§CTER§;'(SP)
°§§:§§2’
SECTORnoogsss
MOvB
:gP),ltgP)
EE
NUHBSRG 3?“§£§§ons
TRANSFERRED

ggga

ggt

8332

042314

048313

105016

°1é5?7

001664

-(SP)

CLRB

(SP)

Eg;;,asuono

on? ogur

8335 SZSSSq 826%12 000010

RDD

P.BRLO(RS), (SP) a

8340

MOV

(5P)+,B5We

833%
042433
Déé??:
886?35
8338
835340
605215
8339 042342 066516 000130
834]
8342

042346

042352
042354

012637

005726
000207

001660

ggv
RS
ADD

TST
RTS

gpbar?nc RDDRESS FOR NEW DATH

éSSéhE?gg)
(SP) SSNVEH
GET New E?o
BUS nDDYTE
TRANSFERRED
(SP)
’
uong
vaxoe
BY 2)
P.RWC(RS), (SP) gg Snnxue RENRINING WORD COUNT
(5P)+
PC

ORE CALCULATED WORD COUNT

'THROW AWAY MOST SIGNIFICANT BITS
:RETURN

CZR6EPCO RKB11-06 PERF EXEC
CZREPC. P11
01-DEC-77 14:53

MACY1l

gg:a

30(1046)
O1-DEC-?7?
15:04
BAD SECTOR HANDL ING
.SBTTL

BRD SECTOR HANDL ING

8345

042356

032765

040000

0001S0

BDSECT:

BIT

8347
8548

(042366
048370

000000
132765

000010

000210

5S$:

HALT
BIT8

8353

Q42414

013746

001662

8346
8349

042364
M42376

001401

0011S

8350 (o400 004737 Q42142
835]
O~
682755
000121 000001
8352 QDuc .12
1076
8364
8355
8356

(04o420
(Qu24aM
04e430

162716
026526
001404

8357
gueuaa
804037
037322
8358
Q4o436
063214
042440

000207

836]

042442

016546

000022

8364
8365

042456
Q42460

001404
004037

037322

8362
8363

8366

gggg

04o446
0424s2
042464

062716
023726
063171

C42466

000207

8369

042470

042765

8371
8372
8373
8374
8375
gg;g

042504
042506
Q42512
04eSIN
042522
042524

001413
004037
04304
063765
100410
00046H

8378

042526

8382

8370

8379
8380
B838]

8383
8384

8385
8386

042476

022737

108:

000460
001660

100200

000400

001664

023304
001664

000012

2765

000200

000014

042552

013765

001654

042572
042574

001324
005?65

000146

042534
(042542
042544

042560
(042566

013765
100055
(013765

013765
037

8387

(042600

001002

gggg

042606

000207

8391

042610

042765

8393

8395
8396
8397
8398

001660
001656

001662
0S1406

042616

100200

Q42624

12.765

OC (343

000131

(042634
042636
042642
O42eM6

001734
012746
163716
012665

000400
001664
000012

19%:

000012

20%:

000002

22%:

000004

000010

000150

000001

8394 Q42606 0c2737 000400 001664

SEQ 0186

SBIT3,P.ASSN(RS)

cuccx IF READING PQCK ssnan NUMBER

BNE

40§

:NO, CONTINUE
9£

DETERMINE NEXT
S

JSR
CMPB
BNE

PC, BSTRAN
aLCULnTE WORDS TRRNSFERRED
.Rbonrn
cn~0(a5)
;CHECK IF RERD COMMAND
258
NO oo NO cuccx aus RODRESS AND WORD COUNT

suB
cHP
BEQ

8256. #2, (SP)
arnnc ROOITIONQL SECTOR
P.BRR(RS), (SP)+ cnccx xr BUS ADDRESS CORRECT
os
JYES
TINUE

85BA, - (SP)

ags

JSR
RO,CONERR
ERRO71

anhT -aus ADDRESS INVALID”

RTS

s RETURN

MOV

P.WCR(RS),-(SP)

;STORE WORD COUNT FOR con:anlav

BEQ
JSR

158
RO,CONERR

:YES, CONTINUE
"PRINT “WORD COUNT INVA. ID"

RTS

s RETURN

BIC

#BITIS'BIT7.P.DSTT(RS)

BEQ
JSR
50%
ADD
BMI
BR

208
RO, BUFER!

ADD
CHP

CMP

8IS

MOV
BPL
MOV
MOV

MOV
JSR

CINITQ
TST

8388 042602 005037 001566
8392

15%:

188

:CHECK IF PRESENTLY SERVICING BRD SECTOR

ERRO70

000150

PAGE

8BITI4,P.DSTT(RS)

BEQ

MOV

001000
000024

gggg

ELS

8256. , (5P)
BSWC, {SP)+

8256. , BSWORD

'SUBTRACT OFF BRD SECTS
'CHECK IF WORD COUNT connscv

: CHECK tF

8. WCK,P.PRST(RS)

;]SSUE WRITE BEFORE WRITE CHECK

BSWC,P WC(RS)
;GET NUMBER OF WORDS TO BE TRANSFERRED
308
:CHECK IF DATR TRANSFER COMPLETE
BSCYLN,P.CYLN(RS) ;GET NEW CYLINOER

BSSECT.P.SECT(RS)

NEW SECTOR

BSBA,P.BALO(RS) ;GET NEW BUS RDORESS
RO, Q. PUSH
;PUT PARAMETER IN COMMAND

:
INITIATICN QUEUE
.cnccx IF ERROR RECOVERY IN PROGRESS

BNE

23s:

RTS

258:

BIC

$BITIS'BIT?,P.DSTT(RS)

BNE

208

BEQ
MOV
SUB
MOV

19§
-ess -(SP)
BSWORD, (SP)
(SP)+ P .WCIRS)

CMPB

CMP

NO WORDS TRRNSFERRED

*YES, DO NOT CHECK DART
:CHELK DATA RERD
:ERROR RETURN
BSWORD,P.WC(RS) :CALCULATE NEW WORD COUNT
22%
'CHECK IF DATA TRANSFER NOT COMPLETE
308
'DRTA TRANSFER COMPLETE

P.RECT(RS)
23%

CLR

:CLERR FIRST ERROR AND ERROR ENQUEUED

ERRPRO

ES,

DO NOT RESET ERROR PROCESSING IN PRGGRESS

RESET ERROR PROCESSING IN PROGRESS
'RETURN

CLEQR FIRST ERROR AND ERROR ENQUEUED

SWRTCHK , CfiND(RS)
P
cuséx F WRITE CHECK COMMAND

8256., BSWORD

CON xnue

ecx IF NO WORDS TRANSFERRED

vss ISSUE NEXT DATA TRANSFER
:STORE EXCESS WORD COUNT ON STACK
:CALCULATE NEW WORD COUNT
:STORE NEW WORD COUNT

a0 00 W@ 00 ®
£y

BIS

04276S
004037
0013e4
000207

000200
0S1406

000014

Q42676
042702

004737
005755

peee4e
000146

Q42706
042710
042714

001403
004737
000207

036276

Q42716
Q42722
g427ed
042730
042734

004037
001314

042736

UM
NVO

30%:

359:

051406

0ce34e
001566
000150
000126

000123
000124

000135

409
:

043020
043024
043030
Q43034
043040
043044

000207

043046
043054

052765
000137

000004
035310

i
"INITIRTION QUEUE
RETURN

PC, BUFREL

;RELEASE BUFFER

35%
PC, SURECY

SYES, PUT IN AVAILIABLE QUEUE
: INDYCATE SUCCESSFUL RECOVERY

P.RECT(RS)
pC

RO, Q. PUSH

;os;gggsggyxr CURRENTLY UNDERGOING ERROR
RETURN

: ENQUEUE PRRAMETER BLOCK IN

PC.GETBUF

:”
AVAILIABLE QUEUE
:GET NEXT BUFFER

: RETURN

'CLEAR ERROR BEING PROCESSED

#BIT)S!'BIT7,P.DSTT(RS)

:g.,P.RSEC

:CLEAR FIRST ERROR AND ERROR ENQUEUED

;CHECK YF ALL SECTORS HAVE BESN READ
!YES,

DROP DRIVE FROM TEST SE.JENCE

P.RCYL(RS).P.LCYL(RS)
P.RSEC(RS) P.LSEC(RS)

P.RWC(RS),P.LWC

45%:

RO, @.PUSH

; ENQUEUE PARAMETER BLOCK IN COMMAND

ERRPRO

:CLEAR ERROR RECOVERY IN PROGRESS

INITIARTION QUEUE

*RETURN

PC,BUFREL

;GO RELERSE BUFFER

ERR20M
AC, DROP
ERRPRO

50%:

PC . GETBUF

oooele

; INDICATE THRT BRD
SECTOR_IS BEING PROCESSED

W . WCK PRPRST(RS5 ;00 WRITE CHECK PART OF COMMAND
RO.Q.PUS
sPUT PARAMETER BLOCK IN COMMAND

pooi42

gece42
oe40l12
013004
022342
001566

SEQ 0187

189

P RCMD(RS),P.LCMO(RS} ;STORE PREVIOUS COMMAND

001566

043016

PRGE

ERRPRO

100200
000010

000126
000130
051406

—

042660
Q42666
Q4e672
Q42674

15:04

F1S5

#BITI4,P.DSTT(RS)
«

0001S0

040000

DOD

0S276S

—H

o42652

AU
NZDO

30( 1046)
01-DEC-77
A
BRD
SECIOR HANDLING

Y
—D

CZR6EPCO RKB11-06 PERF_EXEC
01-DEC-77 14:53
CZR6PC.P11

MACY11l

:DROP DRIVE FROM TEST SEQUENCE
:GET NEW BUFFER

'CLEAR ERROR RECOVERY IN PROGRESS

:RETURN

#BIT2,P.ERR(RS)
E109

;SET DATA TYPE ERROR
; GO PROCESS DRTR ERROR

czaspco RKB11 06 PERF EXEC
CZRBPC.P11
01-DEC-77 14:53

G15

MACYI1 30(1046)
01-DEC-7?7
15:04
PAGE 190
ERROR RECOVERY SEQUENCE RBNORMAL RETURN

g::?
8442

(043060

032765

GO0l20

8449
g:g?

043114
043120

104401
000402

0O0116S

8452

043122

8454

Q43134

8443

043066

001524

000150

8444 (043070 004737 030000
043074 104401 064201
B446 042100 032765 000020 0001S0
8447 043106 001005
8448 043110 104401 062436

.SBTTL

ERROR RECOVERY SEQUENCE ABNORMAL RETURN

ERCVY2:

BIT

8445

8463
g455

8456
8457

8458

104401

064233

Q43126

032777

020000

136004

(43136

032765

000020

000212

043144
043146

043152

001066

001402
104401

JSR
TYPE
BIT
BNE
TYPE
TYPE
BR

2$:

38:

TYPE

BIT

062032

061723

BEQ
TYPE

78
ERRO27

BEQ
TYPE

BIT

g464 043202 032765 000020 000014 6%:

BIT

8465
g4eb

8467

032765

001402
104401

062436

000010

043210
043212

001402
10M40]

043224
043226

001402
104401

061742

0B0I402
104401

062676

78:

BIT

8470 043232 032765 004000 000014 6%:

BIT

8468
8469
8471
g472

473
8474
8475
8476
8477
8478
8479

Q43216
043240
043242

0327656

043246
(C43252
043256
043262
043264
Q43270
043274

004737
004737
004737
010546
012705
104401
004737

043304
043310

004737
01260S

026074
025720
0630244

8483

043312

005265

000206

8485
8486
8487
S:Sg

(043322
043326
043332
043336

004737
004737
004737
00040S

022642
013004
022342

8430

043316

004737

8491

(043344

Q43340

004737

8493
8494

Q43350
(043352

001007
004037

8492

8495

(043356

005737
001330

000014

118:

004516
064252
026074

043300

8484

004737

000040

8480

8481
8482

ERR209+1

025720

030244
631250

032002

001566
051466

30%:

BEQ
TYPE

JSR
JSR
ISR
MOV
MOV
TYPE
JSR

;PRINT HERDER TYPE ERROR

BSW13, ASUR

BEQ
TYPE

SS:

043174
043176

043166

TYPE CCR> (LF)>
:GO PRINT STATUS

S$
ERROS2+]

000014

8462
8463

8461

' §CRLF
is

BEQ
TYPE

000090

GOTC ERROR RECOVERY SEGUENCE

PC,PRIOOO
Pninr HEADER
ERR208
YPE “ERROR WHILE DIAGNOSING ---°*
hex.q P.DSTT(RS)’ cuecx IF Henoen TYPE ERROR
2s
9 PRINT MESSAGE
, ERROS2+1
vpe “TIME OUT WHILE DRIVE POSITION"

4$
ERROSS

BIT

001402
104401

[CHECK IF DIAGNOSING SEQUENCE

NO,

BEQ
TYPE

BIT
4S:

043160
043162

#BIT4!BITH,P.DSTT(RS)

308

007212

8459
8460

032765

BEQ

BNE

062753

SEQ 0188

:CHECK IF INHWIBIT PRINT ouT
YES,

DO NOT PRINT STATUS

#BIT4,P.ERR(RS) cuséx IF DRIVE SEI2ED TIME OUT

bBITS,P.ERR(RS) ;CHECK IF TIME OUT WHILE DRIVE POSITIONING

BUEXATT,P.PRST(RS) ;CHECK IF UNEXPECTED ATTENTION
RRO30

&onvuno,P.PnsrrRSJ :CHECK IF DRIVE HARD ERROR
BORVDSC,P.PRST(RS) ;CHECK IF DSC DID NOT CLEAR
RO28

hnoo:c P.PRST(RS) ;CHECK IF ATTN BUT NO DSC OR FAULT
1
ERROSB

PC,PRISTT
PC.PRDSTT
PC.PRIDC?
RS’ -(SP)
#PARM10, RS
ERR210’
AC,PRISTT

sPRINT CONT ROLLER STATUS
:PRINT DRIVE STATUS
'PRINT RETRY connnno
:STORE RS ON STACK
*LOAD RS FOR PREVIOUS STATUS
:TYPE “FIRST ERROR INFO"
*PRINT CONTROLLER STARTUS

JSR

PC.PRDSTT

IPRINT DRIVE STATUS

INC

P.NERLRS)

;zncnsninr OTHER EARORS

JSR
JSR
JSR
BR

PC., BUFREL
PC, DROP
PC’ GETBUF
4od

:RELERSE BUFFER
:DROP DRIVE
GO ALLOCATE BUFFERS
*CHECK IF ERROR QUEUE EMPTY

J5R
MOV
ISR

PC’PRIDG2
(SP)+ RS

PC HL TO00

SPRINT INITIARL COMMAND
'RESTORE RS
CHECK

IF HALT ON ERROR

35%:

JSR

157

ERRPRO

PC,ERCVY

;GO DO ERROR RECOVERY

40$:

8NE
JSR

45§
RO, Q.POP

NO RETUR
et NEXT ELEHENT FROM

ERRPRQ

CHECK IF ERROR RECOVERY ON LAST DRIVE
IS FINISHED

CS“ROR PROCESSING QUEUE

CZR6PCO RKB11

CZREPC.PI11
8496

043360

8439
8S00

043370

49"
498

06 PERF EXEC

01-DEC-T7 14:53

MaCyll

30(1046)

15:04

H1S
PARGE

191

ERROR RECOVERY SEQUENCE RBNORMAL RETURN

01260
Qu336e
010%3? 001566
Q43366 001364
000207

01-DEC-77

4E§:

MOV

M8V
BNE

(9P
+.R
Rg
ERQPSO
354

RTS

pPC

;LOAD

PARAMETER
;LSR
CURR ET PfigtggglflG ERROR
;
IF_ERROR PROCESSING QUEUE NOT EMPTY GO
;
__PROCESS NEXT ERROR
; RETURN

SEQ 0189

CcRBEPCO RkB11 06 PERF EXEC
CZREPC.PIL1
01-DEC-77 [14:53

I1S

MACY1] 30(1046)
O0l1-DEC-77
1--04
PAGE
DETERMINE IF CLOCK IS WRESENT

gggé

8503

8s04
8505
8506
gggg
8509

043372

043400
043406
Q43412
Q43420
Q43422

012737

Q012737
005777
112737
000413
022626

BS10
8511
8512
ggia

Q43424
Q43432
043436
043444

012737
005777
112737
000401

8S1S

Q43446

022626

8S17
8518

Q43456
043462

005037
000207

8Sle6

043450

312737

043422

000340
1357e4
177777

000004

000006

DETERMINE

CHKCLK:

MOV

001374

043446
135704
000001

000004

000006

000004

00000e

.SBTTL

cs:

001374
15§:

20%:

MOV
TST
MOovB
BR
CMP

MoV
TST
Mov8
BR
cMP

MOV

CLR
RTS

192

IF CLOCK IS PRESENT

858 ERRVEC

;SET UP ERROR VECTOR FOR NON-EXISTENT MEMORY

8PR? ERRVEC+2
asLklse
.-I,CLKFLG
20s

,LOCK ALL INTERRUPTS
;CHECK FOR P CLOCK
; INDICATE KiWll-P PRESENT
:LORD COMMON CLOCK PRRAMETERS

(SP)+,(SP)+

;ADJUST STACK

(SP)+,(SP)+

; ADJUST STRACK

ERRVEC*E
PC

;RETURN

8158 ERRVEC
ISLKS
.l CLKFLG
208

{SET UP ERROR VECTOR FOR NON-EXISTENT MEMORY
:CHECK FOR
L CLOCK
iSET KWll-L P ESENT
'REINSTATE TRAP CATCHER

8ERRVEC+2,ERRVEC' ;REINSTATE TRAP CATCHER

SEQ 0190

SZREPCO RKB11 06 PERF_EXEC
CZREPC.PLI
01-DEC-T7 14:53

MACY11 30(1046)
O1-DEC-77
15:04
SET UP CLOCK INTERRUPT

Séég
8521
8522

043464
043470

105737
001431

001374

8524

~43474

013701

001340

8523

043472

8525
8526

(43500
043506

8529

043516

ggsg

8530
8531
8532
8533
8534
8535

043514

043622
043530
(O43E34
043540
(0Q43S4e
043554

100011

012777
012777

1772777
000135

013701

001344

00040S
0127?77
012721
012711
113737
113737
000207

000100
043556
000300
001352
001360

SET UP CLOCK INTERRUPT

CLKINT:

TST8
BEG

CLKFLG
208

MOV

SLPVEC,RI

108

135630
135620

001353
001375

PAGE 193

.SETTL

8PL

135612

J15

MOV
MOV
5§:

10S:
208:

MOV

MOV
MOV
MOV
MOVB
MOVB
RTS

:CHECK IF A CLOCK
*NO,
RETURN

SEQ 0191

IS ON SYSTEM

SCHECK IF KW1l-L

#-1,38(KCSB
8135, ISLKCSR

:LOAD COUNT BUFFER WITH 1°S
:SET COUNT UP, 16 MS, CONT

SLLVEC,RI

8100, 98LKS
sCLOGK, (R1)+
8PR6, (R])
HZ, CLKFRQ
PERINV,PERIOD
pC

:LORD VECTOR RDDRESS

:LORD COMMON LLOCK PARAMETERS
:LORD VECTOR ADDRESS

"SET UP L CLOCK FOR_ INTERRUPT MODE
'LOAD ADDRESS OF INTERRUPT ROUTINE
!SET UP FOR PRIORITY b
:SET UP CLOCK FREQUENCY
.
:SET UP COUNTER FOR INITIAL STATISTIC SUMMARY
: RETURN

c<cRBPCO RkEl]
CZRBPC. PLL
8536
8537
8538
8539
8540
8541
8542
8543
BSYY
8548
8546
8547

Qu3s
0435S

043564

Q43572
Q43576
043604
Q436
04361

0Ot PERF EXEC
01-DEC-77 14:83

MACr1l

0013S3

001352
001372
000074

K15

30(1046)
01-DEC-77
15:04
PRGE 194
KWll-L AND KW1l-P INTERRUPT HRANDLER

.SBTTL

KWll-L AND KWll-P

CLOCK:

8528

001370
001366

CLKFRQ
108

CHECK IFRONE SECOND PRSTED
RETURN

MOVB

HZ, CLKFRQ

REfNITIflLIZE SYSTEM CLOCK

001372

CMP

860. , SECOND

cuecx IF MINUTE MRS occunneo

INC

BNE

001375
001633
001370

vunu

CLt
ECOND
: CHECK xr INTERVAL STATISTILS

DECB

PERIOD

:DECnsnznr PERIOD COUNT

MOVB

PERINV PERIOD

:INITIALIZE PERIOD

INC
CMP

MINOTE
860. ,MINUTE

INC
RTI

nOUR

MOVB

BNE
CLR

108:

108

: INCREMENT SECOND COUN

SECOND
PERINV

BNE
S§:

SECLOND

CLR
15718
BEQ

001375
043634
Q43642
043646
Q43654
043656
g43e662
043666

INTERRUPT K&« _ER

001353

001372
001360

001360
177777
001370
000074

SEQ 0192

'NO,

UPDARTE MINUTE COUNT

'CHECK IF END OF PERIOD,

IF NOTM UPDATE MINUTE COUNT

s-1,STATI

:INDICRTE TIME FOR srnrrsvrc TYPE OUT

108
MINUTE

'NO, RETU
icLeRR nxnurs COUNT

; INCREMENT MINUTE COUNTE
: CHECK xr HOUR HAS occuaso

*INCREMENT HOUR COUNT
IRETURN

CZR6EPCO RkE11-06 PERF EXEC
CZRBPC. Pll
D1-DEC-77 14:53

MACY11

001374

Bue7s
843808

177776
0o0o340

Q43704

381358

843728

001372
177776
064743

30(1046)
PRINT

TIME

ROUTINE

TIME ROUTINE

PRITIM:

TSTB
BEG

CLKFLG
SOs
P)

nov
MOV

sscono TIMSEC
(SP)Y+_PS
crxn001 RO
(RO)
TIMHR, - (SP)
#100. . (SP)

000002

000060

000207

(SP)

508

TIMOOO
tsP)+,RO
PC

.SBTTL

CONVERT DECIMAL

CONHUN:

CLRB

18:

S$:

0oo00e
000002

#100.,

TYPE
MOV
RTS

TST

SUB

6%:
7s:

Txhssc (sp)
SPi+

%10.

TST

2(SP)

BISB
CLRB
BEQ

INCB

;RESTORE PSW
'LORD RO FOR INDEX
‘DETERMINE HUNDREDS OF HOURS
:STORE MOURS FOR CONVERSION
:CONVERT HUNDREDS

:CHECK IF TOO SMALL

:MAKE DIGIT ARSCII
:LOAD STACK FOR MINUTES

:LOAD STACK FOR SECONDS

LESS THAN 100
: ZERO DIGIT

:CONVERT TENS

,2(SP)

860, RO+
(RO}

(RD)

DEC
BNE

2(SP)
6$

;$;e

é§05+

BISS

:SAVE TIME FOR PRINT OUT

:TYPE TIME:
‘RESTORE RO
"RETURN

(RO)

c§
(RO)

EQVE
pe,,
'LOCK QUT CLOCK

;ADJUST STACK

810.,2(SP)

BMI
INCB

gooo0le
000060

(RO)
18

PC CONHUN

MOV

000002

JSR

064736

o44072
o44074
044100
D44102
044106
044110

ADD

MINUTE, TIMMIN

860, (RO)+
PC CONHUN
éfiném
(SP)

001402
o44032

ooogi2

—(

BISB
JSR
?gg

44032

044032
044034
044042
044044
044046

s
sph, PS

MOV
MOV
MOV
CLRB
MOV
SUB

BMI

195

CHECK xr CLOCK ON SYSTEM
9, RE
URN

HOUR TIMHR

INCB
BR

2s:

PRGE

ngv

MOV

1$:

044030

L15

140
001402

000144
000060
o44032
01400

15:04

.SBTTL

177776
8 137

001376
000144

O1-DEC-7?7

860,

(R7)+

:MAKE ASCI]
:ZERO DIGIT
: CONVERT ONES
:MAKE ASCII

:SKIP OVER COLON

SEQ 0193

CZR6PCO RKBL1.
06 PERF

CZREPC.P11

EXEC

01-DEC-77 14:53

MACY11l

30(1046)

O1-DEC-77

15:04

MLS
PAGE

196

RK611/RKO6-RKGO? UNIBUS DRIVER FOR QUEUED OPERARTIONS (REV.

gggg

.SBTTL

8609

; #COPYRIGHT

SEiS

: #QUTHOR: 'ROY SPITZER

ggig

.SBTTL

ggig

, o 3030333 33 30 3 B 3 28 36 36 36 3 36 36 3 3% 3 36 6 3 36 3 3 3 36 36 3 36 3 3% 3 3 3 % 3 3 % 3 3% 3 3 3 3 3 3 3 3%

8618

ség

8621

RKB!1/RKO6-RKO? UNIBUS DRIVER FOR QUEUED OPERATIONS (REV.
(C)

1975

THE RK

me e

VER
WILL USE THE LOCA
LIMIT FOR ALL OTHER COMMANDS.

el
et e

gg:g

e e

CALL

044160

136437

O001Si4

001512

PC,W.WTCH

IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT

THERMW
NORMAL RETURN TO THE ROUTINE RDDRESS
N&L gcun 8ND ;HE gné
A.ABNL
LOC£§§0N
SY
IN THE PROGRAM DEVICE STATUS REGISTER OF THE

Bebe

001466
177776

JSR

RETURN

Y12 222222222222222:22122222:X22 X222 X222

.WTCH:

177776
00146k
001470
001452
001446

RS THE TIME

010446
010346
010246
013746
005227
001046
013737
013737
013702
005004
00S003

SPINDLE COMMAND.

APPROPRIATE PARAMETER BLOCK WILL BE SET.

010546

044114
044116
044120
044122
044126
044132
044134
(44142
044150
044154
044156

.SEC

0O44il2

8650
8651
B8ES2
8653
8654
8655
8656
8657
8658
BBE9
8660

PROGRAM DEVICE STARTUS
BLOCK.

gg:g

CH § z RO

roa QUEUED OPERATIONS THE WATCH-DOG TIMER WIL
ATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIQL

b4
8644

nxn uH W. M

OPERRTIONS ONLY ONE OPERATION WILL BE WATCHED.

e wr el

IS ON THE SYSTEM

THE *
CAT
2 E MIIM F R

THE DRIVER WILL USE THE LOCATION W.MIN AS THE NUMBER

8639

gg:?

Sn
R ux

NOT GUARANTEE

OR xuxx L)

?F an& 2sconos FOR AN UNL ng 8R
START

w
o
W
o

gggg

LOCK (KW11-P

TIH? ET }L* 3§ 85? 2
N TH
REGISTER
Of
TH
VE'S
R METER

8635

COMMAND

HWILL SCAN THE onrv
DETERMINED ev THE LOCATION W.TIME. THE TIMER counrs
(one FOR EACH DRIVE) ARE KEPT IN THE TABLE u.on.
Y COUNT IN THE TneLr
W.DRV REACHES ZERO
A COMMAND

ggga

INE

"55& 8

8630

gggé

%W KX %% ®® %R

THE WATCH-DOG TIMER ooss PSEUDO TIMING OF RKO?/O?
UNIBUS

EEESY TEM

es ws s

gggg

#*WATCH-DOG TIMER

8624
8625
8626
8627

8661

ITY

eh s mrwe e

SSSS

8649

0.11)

!DSGITR EQHIPHENT CORP.

wae ws we

g i?

19:

MOV

RS, -(SP)

SEQ 0194

222 )

;SAVE RS ON THE STACK

MOV
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
CLR
CLR

R4, -(SP)
R3,-(SP)
R2,-(SP)
PS. -(SP)
W.ATIM
208
W.MILI,W.MTIM
RKPRI, PS
RKBRAS, R2
R4
R3

:SAVE R4Y ON THE STACK
:SAVE R3 ON THE STARCK
:SAVE R2 ON STACK
:5AVE PROGRAM STATUS WORD ON STACK
DECREHENT HILLISECOND TIMER
JIF
g ETURN
REINITI LIZE HILLISECOND TIMER
:LOCK OUT RKO® INTERRUPTS
'LORD BASE OF RKOb REGISTERS
:CLEAR INDEX OF DRIVE nnsxs
CLEQR INDEX OF DRIVE TIMES

BITB

INTMSK(RY) ,W. TIMé;CHECK IF DRIVE IS BEING TIMED

AND PRRAMETER BLOCK ADDRESSES

0.11)

CZR6-CO RKB11-06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

8663

8664
gggg
8667
8668
8669
8670
8671
8672
8673
8674
8675
8676
677
8678

8679
8680
8681
8682
83
8684
8685
8686
8687

QY4166

044170
o44174
044176
Q44202
044210
044216
044222
Q44224
Q44230
044234

0Q4Y240
(044eM2
0O44246
0O44250
044254
044256
044260
044262
044264

001422

005363
NO101?7
. 5305
14437
052765
020537
001002
00S037
004777
062703

00S204
022704
0013494
012637
012602
012603
012604
012605
000207

MACY1l 30(1046)
Ol-DEC-77
#WATCH-DOG TIMER

BEG

001544
001524
001514
000100
001464
001464
135222

000002

001612

000014

5g:

68:

000010

177776

208:

DEC
BNE
MOV
BICB
BIS
CMP
BNE
CLR
JSR
ADD

INC
cMP
BNE
MOV
MOV
MO v
MOV
MOV
RTS

15:04

N1S

PAGE 197

:NO,

SEG D195

GO TO NEXT DRIVE

W.DRV(R3)
:DECREMENT DRIVE COUNT
X
IFNQO} gé?egour GO TO
PBLKT(R3),RS
’LORD nooasss OF PARAMETER
BLOCK TABLE FOR INDEXING
INTHSK (RY) W, TIME;RESET TIMING Inoxcaron FOR DRIVE
ucnoroPkST(RS) SET COMMAND TIME OUT
O.WAIT
,chsc IF DRIVER IS WAITING FOR
:~
COMMAND COMPLETION
S$
:NO, DO NOT ALTER WAITING FOR
: CoMMAND COMPLETION
0.WAIT
:CLERR WAIT FOR COMMAND COMPLETION
PC, @A.ABNL
ennucu TO ERROR ROUTINE
%2, R3

RY
210, RY
13
(SP)+,PS
(5P)+.R2
(5P)+ R3
(SP)+. R4
«3P)+.RS
PC

ADD 2 TO INGEX OF DRIVE TIMES
"AND PARAMETER BLOCK ADDRESSES

: INCREMENT INDEX OF DRIVE MASK
:CHECK IF ALL DRIVES ARE TESTED
'NO, CHECK NEXT DRIVE
"RESTORE PSMW
'RESTORE R2
RESTORE R3
:RESTORE RY
'RESTORE RS
: RETURN

30(1046)
01-DEC-77
1S:04
PAGE 198
#RKNE-RKO7 INTERRUPT SERVICE ROUTINE

.SBTTL

#RK06-RK07

IR TTTT

UPON RECEIVING AN INTERRUPT,

.)
)
)
)

)

FOR THE QUEUED RKO& DRIVER.

ISSUED

THREE LINKS RRE PROVIDED TO THE DRIVING PROGRAM.
THEY ARE:

1.) A.NORM RDDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND)
2.) A.ABNL ADDRESS OF RBNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND
R RETURN
3.) R.CONT RDDRESS OF CONTROL ERR

FOR NORMAL RAND RBNORMAL RETURNS,

THE RDDRESS OF THE RPPROPRIATE

FOR THE CONTROLLER ERROR RETURN,

THE LOCRTION E.CONT CONTAINS

PARAMETER BLOCK WILL BE

TN RS.

THE REASON FOR THE CONTROLLER ERROR.

ROUTINES USED

(OUEUED ONLY)
.OPT
-PUSH (QUEUED ONLY)
.RMOV
.CONT

(QUEUED ONL
(SEQUENTIAL ONLY)
«SEQUENTIRL ONLY)
(SEQUENTIAL ONLY)

4404

.ABNL

001446
000010
001000
100000
135122

001412
001412
goive2

RIYTYTIITITIETIRZIIIZIIIIIZS2ZIS222ZESSSIR
2222222222222 2222 22X

446

)

THIS ROUTINE WILL

SERVICE PORT WAS SEIZED BY OTHER PORT
SERVICE DRIVER 1S WRIT FOR COMMAND COMPLETION
SERVICE
POSITIONING COMPLETION
REQUE
COMMAND IF DRIVE WAS RELEASED
FOR THE QUEUED RKO6 DRIVER.
IF NO SERVICE IS REQUIRED,
THE COMMAND W.
BE

3 0 DDOO

RS WY @ B
B
WS
B MW BB
WI WL G B
BB
W W

IRYTIIIZT S22 2SS 2222222222332 22 382322222

PERFORM ONE OF THE FOLLOWING SERVICES:

2RISR

THIS ROUTINE WILL SERVICE ALL RKO6/07 INTERRUPTS.

$== = s bz s s Pt Pt s s

000N NILWNU—0O

000D D00 (0
M OM MM
NN NN NNNNNNN

SRR RSN
N .-t***“*

3EQ U1%

INTERRUPT SERVICE ROUTINE

MACY11l

pd
[«
po]

CZRBPCO RKB11-06 PERF_EXEC
01-DEC-77 14:53
CZRePC.P11

Bl6

.INTR: MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BEQ
BIS
JSR

RS, -(SP)

R4, - (5P)
R3,-(5P)
R2,-(5P)
RI,-(5P)
RO, -(5P)
RKBAS | R2
RKCS2LR2),T.CS2
#MDS, T.CS2
18
8E.MDS,E.CONT
PC,aA. LONT

'
I

;STORE RS ON THE STACK

iSTORE R4 ON THE STACK
;STORE R3 ON THE STACK
;STORE R2 ON THE STACK
iSTORE R1 ON THE STACK
:STORE RO_ON ThHE STACK
Lono R2_TO RDDRESS RKO® REGISTER
;STORE CS2
CHECK IF MULTIPLE DRIVE SELECT
iNO, CONTINUE PROCES3ING
;SEY MULTIPLE DRIVE SELECT
ERROR
REPORTM

CZR6PCO RKEB11-06 PERF EXEC
CZR6PC .P11
01-DEC-77 14:53

B74M
8748

044336

000137

8738

MACY11l

8748
8749
8750
8751

I.RTRN

: RETURN

1578
e?a
BM]I

ét ISRL
53

cuccx

F INTERR
ASE
Hé
IF OR?PE geflthSLE
cnécx IF RELERSE COMMAND

S§:

CLRB

I.ISRL

:CLEAR
F

6S:

BIT

SNED'UFE,T.CS2

BEQ

;CHECK FOR NON- EXISTENT DRIVE OR
by unxr
FIFBR Eu

BIC
MOV
RSL

84C<DRVMSK> ,R4
RY,R3
R3’

:KEEP DRIVE BITS
:STORE DRIVE NUMBER FOR INDEX
"?8 épb gfleg

MOV
JMP

RKCS1(R2),T.CS1 ;LOAD TEMPORARY CSI FOR STATUS REPORT
1.ERRC
iREPORT ERROR

18:

CLRB
BR

001506
0o4s4eg

8753
8754
8755

032737

8
28
87
8758

010400

001412

042704
010383

816303

016237
000137

o44602

I.ISRL
1.1C0o

I.RTTN

1.CS2,RY

PBLKT(R3),RS

YES CLEAR FLA
: CONYINUE PROCESSINC INTERRUPT
;GO PROCESS DRIVE RTTENTIONS
AL ACCESS INTERRUPT

Loho
RY FOR DRIVE NUMBER
RE

PRR

ER BLOCK RDDPESS

7S:

Q44432
o444 3¢E

013705
001002

oo14eM

044440

000137

045420

044450

OHH44Y

013704
042704

00l4le

O4445Y
044456

010403
006303

Y4460
O4446Y

1.100:

2s:

177770

044476
044500

0o4° 60

Q44504
o44E10
O44S 1Y
Q44522
04430

001464
001544
001514
000000
100000

o
£
[N
N

0.WRIT,RS

:LORD PRARAMETER BLOCK huonre3S INTO RS

I.ATTN

MOV

BIC

T.CS2

:STORE RKCS2 FOR DRIVE NUMBER

MOV

RY,R3

'MULTIPLY BY 2 FOR INDEX

CMPB

P.DRVN(RG),R4

;CHECK IF DRIVE NUMBER IS EXPECTED

BNE

ASL

000164

D'—DSOO'—D
OW—-0W—- L0

MOV

IMP

u00000

834458
44?2

D44566

MOV

001410

044432

o445SY
044556
0445862

JMP

MOV

001415
013704

8759
8760
876

SEJ 3197

PARG

001506

8752

Clb

SERVICE SO&??NE

046674
001506

30(1046)
01-DEC-77
*5 04
#RK06-RKG?
INTERRUP

BEQ
000001

38:
108:

CMPB

BNE
JMP
CLR

134672
046674
000014

15%:

IS ”0nn9~0 WAITING PROCESSING
D0 PROCESSING

NO Pkocsss RTTENTION

qu<okvnsx> RY :MASK OUT UNNECFSSAry RITS

:STORE DRIVE NUMBER FOR .NDEX

,vss, CONTINUE
:NO,

'DRIVER ERROR

#RDALHD,P.CMND(RS);CHECK IF READ ALL HERDERS

108
x HDAL

NO, EXECUTE NORMAL DARTA TRANSFER
GO’ EXECUTE SPECIAL HERDER SEQUENCE

0.WAIT

;CLERR WAJT FOR COMMAND COMPLETION

CLR
BICB
MOV
BIT
BNE
MOV

W.DRV(R3)
:CLERR WATCH-DOG TIME
INTMSK(RY) W.TIME:RESET TIMING ON THIS DRIVE
RKCS1(R2), }Y.CS1 ;SYORE CoMMAND AND srnrus REGISTER |
#CERR, T.C51
:CHECK IF CONTROLLER ERR
I.ERRE
:YES, PROCESS ERROR
RKASOF (R2),T.ASOF :SYORE ATTENTION SUMMARY

JSR
JMP

PC JA.NORM
1.RTRN

8IS

BUEXATT,P.PRST(RS)

8178
BNE

000016
001514

000010

HALT

INTMSK(RY)
| nsor+l
;CHECK IF DRIVE ATTENTION SET
15$
;YES. REPORT ERROR
: INDYCATE NORMAL RETURN
:RESTORE REGISTERS

;SET UNEXPECTED ATTENTION

<ZR6PCO RK611-06 PERF EXEC
CZR6PC. P11
01-DEC-77 14:53

QuuS7Y
044600

004737
00040S

"0 D0 00O M@ M@
m
e e e s e e e s Pt P
U

el DD NN LWNN—-O

000016

000032
000030
046712

000062
000060

010400

000020

000001

000036

010000

000014

I.ERRC:

1.ERR:

43787

oo142s

052737

000020

ool4e2

4?77

0137

34526
46674

032737

040000

001434

2s:

000040
001000

000014
001436

3s:

001462

000137

002000
134462

046674

032765

000020

000014

020000

001434

020000
001514
ClY474

000014
golsie
001544

004777
000137

5§:

.SBTTL
045060

016237

000000

001410

045066
045074

032737
001423

100000

001410

SEC 0198

ROUTINE

PC,1.CSTS

JgR

RR
K
Pé CS1,P,CS1(RS)
? 65T1
EET Ess?Rog
ESNTROLLER STATUS

MOV

MOV
MOV

1.ERR

BNE

I1.RTRN

:STORE PATTERN AND POSITION INFORMATION

RKECPS(R2)|P.EPOS(RS) ;STORE

RO, I.CCLR

BIT
BNE
BIS
BR
JSR

:STORE CONTROLLER STATUS

RKECPT(R2),P.EPAatirs) g E ECC PATTE

JSR

ECC POSITION

cksnn SSNTROLLER

sNED! UFE,P. cs2(Ré) 0c CKxéLoIT ung NON-EXISTENT DRIVE OR
l

-onn P.DS(RS)

2EPORT ERR

:SE xr DRIVE IS pvnxL
:BR IF YES
.onszo P.PRST(R&) :SET “DRIVE SIEZEDTM BIT
108
REPOT ERROR
RO, 1.STAT
ERTHERRERIVE STATUS

RRO

BEQ

BIS

8E.CLAT,E.CONT se?xnrrgnrggu DID NOT RESET

JSR
JMP

PC, 3R.CONT
I.RTRN

:REPORT CONTROL ER snnon
:GO RESTORE RE

1.HDAL:

CATE DRIVE

ERROR

BIT

#5.0SC, T.MR2

:CHECK IF DRJVE

STATUS CHANGE CLEARED

BEQ
8IS
BIT
BEQ
BIS
JSR
IMP

3
‘YES,
CHECK FAUL
8DRVDSC,P. PRST(RS) -8eF
BSC DID NOT CLEAR
#S.PAR, t.M
cnécx If DRIVE PARITY ERROR
INO, INDICATE ABNORMAL TERMINATINN
5§
8E.DPAR E.CONT ;SEY ORIVE PARITY ERROR
PC. 3A.CONT
:INDICATE CONTROLLER ERROR
I.RTRN
JRETURN

BIT

#DRVHRD,P.PRST(RS)

BNE

BIT

BEQ
BIS
BISB
MOV
IMP
108:

134402
046674

PAGE 200

SERVICE

HOXB
agRIC%SQU ¢S iLoAD
C8“455 CLERR
1°RTRN
FEEL
éNTNSK(RH),T. nso¢+6?“5? F QTTENT on RESET
eére

001S14

46674

D16

JSR

I.RTRN

001410

ob313

15:04

INTERRUPT

BIT

00000S
046774

084762

O01-DEC-7?

#RKO6-RK0O?

ys:

047470

Q4S0S0
045054

30(1046)

1.ERRR:

047364

ARt
AN
Y€

MACY1l

JSR

IMP

108

ss PIP,T.MR2

;CHECK IF HARD DRIVE ERROR

vE4,

GO REPORT ERROR

cuetx 1F DRIVE IS CYCLING DOWN

108
:NO, REPORT ERROR
os UNLD,P.PRST(RS):SET DRIVE UNLOARDING
seconos FOR
INTMSK (RY) W. TIME ;5ET UP

W.8SEC, tW h(Ra) .'"DRIVE YO CYCLEU
I.R RN

;80 RESTORE REGISTERS

PC,

:GO REPORT ERROR

3R . RBNL

I.RTRN

:GO RESTORE REGISTERS

¥READ ALL HEADERS INTERRUPT SEGUENCE

MOV

RKCS1(R2),T.CS1

srgnsogsx TO CHECK CONTROLLER

BIT
BEQ

#CERR, T.CS!
S§

:CHECK IF CONTROLLER ERROR
"NO, CHECK FOR ATTENTION

.
‘

CZR6PCO RKG11-06 PERF EXEC

CZR6PC.PL1
8856

g8eS?

Q4S076

01-DEC-77 14:53
005037

00146M

8858
8859
8860
8861
8862
8863
8864
8822

(45102
045110
04S114
Q48122
045126
045132
046139
045180

146437
005063
013766
4737
004037
046674
004777
000137

134316
046674

8867

045144

016237

000016

8869

045160

001411

045174
045200

00S063
000137

045204

013701

045214
Q452

016221
oxsaa;

8468

05152

(36437

001SI4
001544
001410
04406
046712

001514

6670 045162 005037 001464
8871 045166 146437 001SI4
8872
gg;g
£37S

<76

045210

8579
8880
8881
8382
8883
88849
B68S
8886
8887
8888
8889
8830

(045224
045230
045236
(45244
045246
04
045254
045260
045264
Q45272
Q453
045306

RB77
w878

8831
8892
86823

045312
045314
045322

001544
044574

000024

010137
016237
032737
ooxosg
005337
001027
005037
005063
(46437
0127
112737
004037

001502
000010
100000

000020

000002

gggg

045354

042765

165777

8901
8302

045362
045370

890S

04S402

BEQ

0.WRIT
:CL t
AR WAITING FOR COMMAND COMPLETION
INTMSK (RY) , W. Txnt nessr TIMING ON DRIVE

MOV

:STORE ATTENTION SUMMARY

INTMSK(RY)
| T.RSOF
+} cnecx IF DRIVE ATTENTION IS SET

;NO,"CHECK IF READ ALL HEADERS

W.DRV(R3)
x ERRR

c(EARTIME OUT COUNT
1 GO REPORT ERROR

HDR. AD, R1

;GET MAIN_ MEMORY ADDRESS

RKDB(R2)
) (R1)+
RKDB(R2) . (R1)+

G
ET secono uono OF HERCER
;GET agg D OF HERDER

MOV

RKDB(R2), (R1)+

}GET FIRST WORD OF HEADER

MOV
MOV
817
BNE
DEC
BNE
CLR
CLR
BICB
MOV
MOVB
JSR

Rl HDR.RD
,svo £
RESS ron NEXT HERDER
RkS2(R2),T.CcS2 ,sro
£ cs‘ ro CHECK FOR DATA LATE
#0LT,T.CS2
ATE
35§
ves figpgar ERR
HDR.CT
: DECRE
Nuneen OF HEADER YET TO READ
25$
:IF NON-ZERO, GO ISSUE NEXT READ HEADER
0.WAIT
'CLEAR DRIVER WAITING FOR COMMAND COMPLETION
W.DRV(R3)
‘CLEAR TIME OUT COUNT FOR THIS DRIVE
INTMSK(RY) ,W.TIME :CLERR WATCH DOG TIME ON THIS DRIVE
#3, RKMR1 (R2)
Lbno MAINTENANCE REGISTER FOR SECTOR COUNT
#DR.SEL,T.CS1
:LORD SELECT COMMAND
RO, 1.1S5u
PGET SECTOR COUNT

I.RTRN
MOV
JSR

;ERROR _RETURN
T.MR3,P. Bll(RS) SLORD SECTOR COUN
PC, 3R . NORM
*INDICATE NORMAL rsnnxnnrxom

MOV

P.CYLN(RS),RKDCYL(RB)

#1C<CDT!CFAMT> ,P. C516§?3£ ?LEER ALL BITS EXCEPT FORMAT AND

:RESTORE REGISTERS

. LOAD CYLINDER noonsss REGISTER

BIC

112765
016562

000125
000016

000016
000000

MOVB
MOV

$RDHERD,P.CS1(RS} srons connnno ISSUED
P.CSI(RS),RKCS1(R2)’ . ISSUE READ HEADER

I.RTRN

nssvbas REGISTERS

052737

000400

001462

BIS

sE DLT CONT

;SET DATA LATE WHILE UNLOADING HEADER

004777

139044

JMP
35%:

.SBTTL
016237

000000

001410

MOV
MOVB

x.hrnn

000016

gggg
045420

.CLEAR WAITING FOR COMMAND COMPLETE

RKRSOF(R?),T ASOF

IMP
25%:

0.WAIT

000006
000017

gggg O4S414 000137 04946674
8311

SEQ 3199

000004
000007

ggga 045376 000137 046674
045410

PAGE 201

MOV

BIT8

CLR
JMP

001412
001412

000056

EL1E

INTMSK(PY),W.
TIME ;RESET TIMING ON DRIVE
W.DRV(R3)
sCLEAR TIME ou COUNT
T.CS1,P.CS'(RS) ;STORE ERROR RKCSI
PC,1.85T]
*STORE COHTROLLER REGISTERS
RO, I.CCLR
:CLERR CONTROL
:ERROR RETUR
PC, 8n.RBNL
:INDICATE snnon RE TURN
I.RTRN
IRESTORE REGISTERS

MOV
MOV

001436
134126

15:04

gIcB
CLR
MOV
JSR
JSR
I.RTRN
JSR
JMP

CLR
BICB

001512
000026
001410

016562

8906

GS:

001512

001464
001544
001514
000003
000001
046774

045332

01eSee
(16565

001425

001504

8896

045340
045346

CLR

000016

001424

O01-DEC-77

#READ ALL HMEADERS INTERRUFT SEQUENCE

000024
000024

8832 045326 000137 0496674
8897
8898

30(1046)

001512

001502

016221

045574
013765
004777

MACY11

I.ATTN:

JSR

IMP

P.SECT(RS) .RKDA(R2) ;LOAD SECTOR AND TRACK
P CSIH(RE)'P.CS1+1(RE)5;STORE BITS 8-15 OF CSl

éo

'REPORT ERROR

*RESTORE REGISTERS

*DRIVE ATTENTION SCANNER
MOV

RKCS1(R2),T.CS1

;STORE COMMAND AND STATUS

[¥e]

Qoo NocCnLIwnn

CZREPCO RKb11/06 PERF_EXEC
Pll
01-DEC-77 14:53
CIREP

8321
e

01-DEC-77
15:04
#DRIVE ATTENTION SCANNER

MACY11 30(1046)

Q4S426
04SY43Y4

032737
001444

100000

001410

045436

032737

164000

oo1412

QYSH4Y
045446

001007
016237

000014

001426

O45S4SY

032737

125700

001426

o4Su4ee

001407

Q4S4HEY
o45472
045476

052737
004777
000137

000010
133762
046674

045502
045506
Q4sS512
Q45514
045516
Q45524
045530

013704
Q42704
010403
006303
146437
005063
016305

001412
177770

BIT

BEG

001514
001544
001524

SEQG 0200

PAGE 202

#CERR, T.CS1

(33

'CHECK IF CONTROLLER ERROR OCCURRED

:NO, CHECK IF ATTENTION

CHECK IF ANY DATA TRANSFER TYPE ERROR EXISTS

Vhi

BNE

MOV

8DL T WCE ! UPE 'NEM, T.CS2
18

RKER(RE) T.ER

: INDICATE ERROR

:STORE ERROR REGISTER

CHECK FOR DATA TRQNSFER ERROR TYPE
SOCK!OPI'WLE!COE'HVRC!BSE!ECH, T.ER
BIT

BEQ
oco1462

F16

:NO DATR TRANSFER ERROR

8E.UDAT,E.CONT

;SET UNEXPECTED DATAR TYPE ERROR

19%:

BIS

JSR
JMP

PC.aR.CONT
I.RTRN

IREPORT ERROR
'RESTORE REGISTERS

e9:

MOV

T.C

;SAVE €S2 FOR necxsrsn NUMBER

MOV
RSL
Bice
CLR
MOV

RY4,R3
:STORE DRIVE NUMBER IN R3
R3’
:MULTIPLY DRIVE NUMBER BY 2
INTMSK(RY) , W. Txne-CLEAR WATCH- ooc TIMER FOR DRIVE
W.DRV(R3)
RESET WATCH DOG TIME
PBLKT(R3),RS
:STORE PARAMETER BLOCK ADDRESS IN RS

ooisle

BIC

l?C(DfiVHSK) R4 :STRIP OFF JUNK

CLEAR onxvs POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER

045534

042765

000006

o4ss42

00015/

044602

045546

032737
001004
004737
000137

040000

o4ssee
045566
045574
045600

045602
045610

o45614

Q4se2C

016237

004777
000137

o4S634

00Ssuo4
136437
001002
005204
009772

Q45636
Q4se40
o45642
045646
D454

010403
006303
016305
032765
oo1402

IN PROGRAM DEVICE STARTUS REGISTER
uonv 0S!DRVPDT,P.PRST(RS)
B1C

000014

IMP
001410

gs:

BIT

000016
001425

001424

000002
133644
046674

ool462

001514

001425

6%:

8%:

99%:

000014

#DI, T.CSl

;GO REPORT ERROR

:CHECK IF ANY DRIVE ATTENTION

'YES, PROCESS INTERRUPT
‘CALL COMMAND OPTIMIZER

BNE
JSR

MOV

Rxnsor(na) T.ASOF ; STORE ntvsnr:on SUMMARY

BNE
BIS
JSR
IMP

7%
#E.NOAT, E.CONT
PC.aR.CONT
I.RTRN

:YES GO PROCESS INTERRUPT
;SET NO ATTENTION IN ATTENTION SUMMARY
:G0 REPORT ERROR
:GO RESTORE REGISTERS

CLR

:CLERR DRIVE NUMBER

MOV

R4,R3

: STORE_DRIVE NUMBER

JMP

0S1740
046674

1.ERRC

1578

BTTB
BNE
INC
BR
ASL
MOV
BIT
BEQ

C.OPT

kTRN

T.ASOF+

{RESTORE REGISTERS

chec IF ANY

ATTENTIONS SET

INTMSK(RY),T. nso¢+1 ;CHECK IF ATTENTION OF THIS DRIVE
YES PROCESS xursnnup
9g
Inchsnsnr DRIVE NUMBER
RY
83
:CHECK ATTENTION on NEXT DRIVE
R3’
'MULTIPLY DRIVE NUMBER BY 2
PBLKT(R3),RS
:STORE PARAMETER BLOCK ADDRESS
#DRVSZD,P.PRST(RS) ;CHECK IF DRIVE WAS SEIZED
:NO., PROCESS NORMAL ATTENTION
108

CZR6EPCO RKB11-06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

gggg

O4S6S6

8970

83335

89;1

000137

046506

032355

020000

§§;§ 8922E 886195 046402

MACY1l 30(1046)
01-DEC-77 15:04
¥DRIVE ATTENTION SCANNER

000014

108:

V4
000014 118:
G377
R
BiEeS
gage
O
8977 045710 112737 000001 0O014i0
83978
8979
83980
83981
8982
ggga
8985

045716
(045722
045724
045732
045740
045742

004037
046674
013765
032765
001401
000473

046774
001436
00020C

000042
000042

(QYS744

013765

001434

000040

8986
8987
8388
gggg

(45752
045760
(45762
045770

899]

045778
112737

8993

046004

899

032765
001009
052765
000460

04688

ouo;
046674

040000

000040

128:

004000 000014
00000S

046774

OCI410

13S:

8994 (046006 013765 001424 000032
8935
046014 136465 001SI4 000033
89396 046022 001407
8997

8998
8993

046024

052737

046032

004777

9002

046042

013765

3005

046056

001404

3885

046066

000421

9009

046070

3889

3883

046036

046050

000137

032765

000020

001462

133422

001434

040000

000040

15%:

9006 046060 052765 000040 000014
3016
4011
9012
3013
ggig

00S063
0327656

046110

001004

38{9

O46112
046116

9018

046122

ggég

146437

046076
046102

046126

004777
000137
004737

000137

001514

0015 44
000004

001512

0427~

RYPOS,P.PRST(RS)
3
N
BRR
P
AR
R
E
RV,
$DR,.SEL,T.CS1
;LOAD
C

0S1740

17%:

00CO0i4

I.RERR:

f.UNLo

:PROCESS THE RELERSE OF DRIVE
;CHECK IF DRIVE UNLORDING

sgavfgs 6R¥vs IN POSITION AFTER ERROR

JSR
1.RTRN
MOV
BIT
BEQ
BR

RO, 171U
‘SELECT onxve WITH ATTENTION HIGH
:ERROR RETURN
T.MR3,P.BOO(RS) :STORE STATUS BYTE 00 nsss B8
#5.FLY,P.BOOCRS) ;CHECK IF DRIVE FAUL
12§
N0, CHECK FOR onxve srnrus CHANGE
1.RERR
'PROCESS ERROR

MOV

T.MR2,P.AOO(RS)

MOVB

ooR CLR,T.CS1

MOV
BITB
BEQ

1.RTRN

ASOF , nP sortnsi .STORE ATTENTION SUMMARY
xnrnsxtnq)
asor+1tn5)
.CHECK IF ATTENTION RESET
158
:YES,
CONTINUE INTERRUPT PROCESSING

ISR

PC,3A.CONT

'""WITH DRIVE CLEAR
'FLAG ERROR

MOV

T.MR2,P.AO0(RS)

;STORE MRINTENANCE REGISTER 2

BEQ

uonvosc P. PRST(RS) .87DRIVE STATUS CHANGE DID NOT CLEAR

BIT
BNE
BIS
BR

JSR

BIT

BICB

CLR
BIT

JSR
JMP

046674
(000004

1
E
MOVB

?ng

BNE

133336
046674

.SBTTL

048132

#E.UNLD,P.PRST(RS)

000014

gggé

9023

aér

BIS
16$:

SEQ 0201

1.DUAL

JiP
0077040

PAGE 203

IMP

BIS

046674

G16

ISR

IMP

;STORE MRINTENANCE REGISTER 2

#5.058,P.ROO(RS)' ;CHECK FOR DRIVE STATUS CHANGE
13§
STATUS CHANGE
#NODSC, P. PRST(RS’.YES.
séT PROCESS
NO DRIVEDRIVE
STATUS
CHANGE
I.RERR’
PROCESS ERROR
i.Is8u

$E.CLAT,E.CONT
I.ATRN

;LOAD_COMMAND

CLEQR ORIVE STATUS CHANGE
RROR RETUN

SET ATTENTION DID NOT RESET

‘RESTORE REGISTERS

#5.05¢, P. ROO(RS)CHEgETIF DRIVE STATUS CHANGE
16

CONTINUE INTERRUPT PROCESSING

1.AERR

Go’ ROCESS ERROR

INTMSK(RH) W.TIME ;RESET TIMING on THIS ovas

W.DRV(R3)
-CLEAR DRIVE TIMING COUN
sDRVPDT P. PRST(RQ) “CHECK IF DRIVE IS POSITIONING
#OR DATA TRANSFER
73
'YES, CALL COMMAND OPTIMIZER
Pc,an.nonn
REEOR;LE¥?8ESSFUL COMMAND

I.RTRN
PC,C. 00T

1.RTRN

'RESTORE REGISTERS
:CALL COMMAND OPTIMIZER

'RESTORE REGISTERS

*ATTENTION ERROR HANDLER

BIC

#DRVPDT,P.PRST(RS)

;RESET POSITIONING IN PROGRESS BECRUSE

CZR6PCO RK611-06 PERF EXEC
CZR6PC. P11
01-DEC-?7 14:53

MRCY11l

8“2%“2 3oEdZ3

goisie

O1-DEC- 77

30(1046)

*ATTENTION

ERROR

15:04

PAGE

204

SEa 0202

HANOLER

F _DRTA TRANSFER

INTMSK (RY) , W. Timt ct§nn
.
TIMING ron THIS DRIVE

W.DRV(R3)

ATCH-DOG TIME

8177741 . P. csx<ns$ KEEP COMMAND ISSUED

000016
001-10

#36,7.C51°
KEEP CURRENT CONTROLLER STATUS
T.CQé,P.Cgé(Rg):MAKE GOOD
MESSAGL

880028

1.C82.p.C82(RE) :STORE CONTROLLER REGISTERS
T.WCR.P.WCR(RS)

T.BR,P.BAR(RS)

T.DA.P.DTS(RS)
T.gc P.DCYL(RS)

T.RSOF, P.ASOF (RS)
T.ER,P ER(RS)
1.0S,P.DS(RS)

000036

RO, 1.STAT

000020

000014

o46324
o46332
Q46334
Q4e342
046344
Q46352
046360
046366

032765
001017
032737
001413
052765
156437
013763
000137

020000

001434

C20000
001514
001474
046674

000014
golsie
001544

046372
046376

oo4777
000137

133360
046674

cs:

10%:

.SBTTL

046402
Q46410
Q46416
Q46422
Q46424
046432
O46434
o4B442
oueu4e
046450
Q46456
Q46460
0464%6
046474
046500
g46504

052765
112737
004037

004777
gogsie
032737
001403

0047727
00oa473

020000
00000S

000014
001410

001514

001425

000020
133012

001462

040000

001434

159%:

000040

000014
gois1e2

20%:

046774

132752

I1.UNLD:

XIOODOOmM

001462

X O 4T~
T4
T

004777
000137

000020
133140
046674

Sy
IV
TDO®D

001425

<8(I)D—Cm—¢ DOVNO

DO
ZUN~Mse N

001410

*¥ERROR

#DR.CLR,7.CS1
RO, 1.ISSu

s GRTHER onxvs STATUS

ERROR R
;LOAD
C
Eksnn BR;VE ERRORS

INTMSK(RY),T. ASOR+] ; CHECK IF RTTENTION RESET

:YES,

FLAG DRIVE ERROR

8F. LLAT, E.CONT

ger ATTENTION DID NOT RESET

1. RTRN

'RESTORE REGISTERS

P 20 cbn

#DRVHRD,P.PRST(RS)

108

cs PIP,T.MR2

PORT ERROR

;CHECK IF AHARD DRIVE ERRCR

YES

REPORT ERROR

CHE¢K IF ?RéVEIS UNLOADING

108
:NO, REPOR
cs UNLD,P.PRST(RS)
:sgt oaxvs UNLOQDING ous TO ERROR
INTnsx(kq) TIME
HIS DRIVE

W-BoEC, .W DRVR3) hégngng SEG?QQERFOR CYCLE UP
PC,aA.ABNL

1.RTRN

:REPORT ERROR

'RESTORE REGISTERS

CAUSING DRIVE TO UNLORD
8E.UNLD, P PRST(RS)

:CLERR DRIVE UNLOQDING BECAUSE OF ERROR

aBRICLR csl
1s8u’

Loho IN DRIVE CLEAR
,c 1SSUE onxvs CLEAR

15%
os CLQT E.CONT
6T

: YES, CONTINUE
;SET' nrrsnrrou DID NOT RESET
:REPORT ERROR

#S.0SC, T.MR2
208

:CHECK IF DRIVE STRUS CHANGE RESET
YES,
CONTINUE

W.DRV(R3)

cte TIME COU

ERROR RETU

xnrnsx<nu) T. nso¢+1cuecx IF ATTENTION CLEARRED

'RESTORE REGISTERS

$DRVDSC , PRST(RQJ végr DRIVE STAUS CHANGE oxo NOT CLEAR
INTMSK(QH)W.TIME ;RE ET TimM NG on THIS DRIVE

PC. JA. ABNL

1.“RTRN

REPORT ERROR

*RESTORE REGISTER

CZR6PCO RKbll 06 PERF EXEC
CZREPC.PI1
01-DEC-77 14:S3

I16

MACY1l 30(1046)
01-DEC-77
15:04
PRGE 205
#ERROR CRUSING DRIVE TO UNLORD

9080

gggé

9083

.SBTTL

046506

112737

000001

001410

000200

001436

9084
9085
9086
9087
gggg

046514
046520
046522
046530
046532

004037
Q46674
032737
001402
000137

046774

9090
3091

046536
046544

032737
00100S

040000

3833

046554

000137

046132

3095

Q46560

042765

010000

000014

9098
3099

046600
046602

046674
136437

O001SI4

001425

000020
132634

001462

040000

001434

000040
046132

000014

001514

001Sl2

046132
001434

9032 046546 0S2765 004000 000014

9096
9037

9100
9101
9102

046566
Q46574

112737
004037

046610
0O46ble
046620

001406
052737
004777

J46626

032737

gigg O4eb24 00C423
9105

3106
3107
g{gg

046634
046636
O46b44

9110

046650

9113

Q46666

9111
9112

gi{g
9116

9117
9118
9119
9120
3121
gigg

001405
052765
000137
146437

90246656
Q46662

005063
004037

046670

004737

Q46674

046676
046700
046702
046704
046706
g48710

001324
012600

012601
012602
012603
012604
01260S
000002

I DUAL:

00000S
046774

001544
051406

001410

10$:

*DURL ACCESS INTERRUPT HANDLER

MOVB

#S.FLT,T.MR3
108
1.RERR

iSELECT DRIVE
:ERROR RETLAN
:CHECK IF DAIVE FAULT
iNO, PROCESS INTERRUPT
:PROCESS ATTENTION ERROR

BIT
BNE

#S.DSC, T.MR2
118

CHECK IF DRIVE STRTUS CHANGE SET
PROCESS INTERR

I.RERR’

k CESS ATTENTION ERROR

BIS

#NODSC,P. PRST(RS’ StT NO DRIVE STRTUS CHRNGE

BIC

8DRVSZD,P PRST(RS)

I.RTRN
BI'B
BEQ
BIS
JSR

:ERROR RETURN
INTMSK(RY),T. QSO¢+1;CHECK IF ATTENTION RESET
158
YES CONT INUE
.E CLQT E.CONT ;SET ATTENTION DID NOT RESET
6T
; INDICATE CONTROLLER ERROR

mMove
JSR

15%:

BIT

20%:

BICB

8EQ
BIS
JMP

RESET DRIVE SEIZED

.DR CLR cs1
Issu’

LOA
MMAND
:CLEAR DRIVE DSsC

iRESTORE REGISTERS

85.0SC, T.MRe

CHECK IF DRIVE STQTUS CHANGE IS STILL SET

c0s
iNO, GO ENQUEUE
COMMAND
#DRVDSC,P. PRST(RQ) SET DRIVE STRTUS CHANGE DID NOT CLEAR
I.RERR
pORT ATTENTION ERROR
INTMSK(RY) ,W.TIME

;STOP TIMING ON _THIS DRIVE

CLR
JSR

W.DRV(R3)
RO Q. PUSH

;CLEAR WATCH DOG TIME OF THIS DRIVE
:PUT PARAMETER BLOCK ADDRESS ON

JSR

PC,C.OPT

:CALL COMMAND OPTIMIZER

MOV

(SP)+,RO

CINITQ

I.RTRN:

; LORD COMMAND

RO, i 1S8u

0S1740

#0R.SEL,T.CS1

JSR
I.RTRN
BIT
BEQ
JMpP

JMP
11%:

SEQ 0203

MOV
MOV
MOV
MOV
MOV
RTI

(SP)+,Rl1
(SP)+,R2
(SP)+,R3
(SP)+,RY
(SP)+,RS

COMMAND

; RESTORE RO

:RESTORE R1
:RESTORE R2
:RESTORE R3
{RESTORE RY
:RESTORE RS
; RETURN

INITATION QUELE

MACY1l

30(1046)

01-DEC-77

#CONTROLLER

.SBTTL

FLWWWWWWWWWWNRIUINVNLNDND [4Y)

ONCN LW~ ODO NN LWN—-O VO NCNLWNN—ODD
NN £

Dt Gt Dt Pt Gt Pt Pt P

et Bt P

Pt Pt Dt

vrnnnnnnnne L £ £LLL L

s Pt Pt Pt Pt Pt Bt Pt Bt o

DO DD D DO DO D DO WO D O LDDD DD DD DO DD DD

e Bt Bt

e Pt Pt Pt Pn Pt Pe —

D DD OD D ¥

CoREPCO Rkbll.
0& PERF EXEC
CZREPC.PLI
01-DEC-77 14:S3

15:04

J16

CLEARR ROUTINE

PARGE 206

#CONTROLLER CLERR ROUTINE

RIS
T2IR R IT 2222222 2223222222222 222222222222

et
ix

THIS ROUTINE
AND CHECK IF

E.CCLR SET IN E.CONT

s ¥

CLEARED,

WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER
THE CONTROLLER ERRORS nns RESET.
IF THE ERROR IS NOT

THE ROUTINE AS SPECIFIED IN A.CONT WILL BE CALLED WITH

USE

‘¥

ADDRESS

‘%CALL

JSR

RETURN

i E
X

OF RKO6& REGISTERS

ADDRESS OF PARAMETER BLOCK

CCLR

:; 3636 3 3 36 9 3 3 3 3 3 36 3 3 36 3 36 36 3 3 3 3 2 3 3 3 36 3 3 36 3 3 3 3 3 3 3 I 3 16 2% % 3 3 3 3 3 3 3 3 3 3 3 3 3 3¢ 2% % % ¥ ¥ * %
o4e71e
Q46720
046726

g127e2
016237
032737

046734
046736
046744
046750
046752

0c1407
052737
004777
011000
000200

046754
046762
Q46770
046772

012762
000200

I.CCLR:

MOV

BIT

RKCS1tR2),T.CS1 ;STORE COMMAND AND STATUS REGISTER 1

#CCLR,RKCS1(R2)

;CLEAR CONTROLLER

BEQ
BIS
JSR

5%
ns CCLR E.CONT
cb T

:YES, RETURN TO DRIVER PROCESSING
;SET CLEAR CONTROLLER DID NOT CLEAR ERROR
:REPORT CONTROLLER ERROR

MOV

8IE,RKCS1(R2)

RTS

S :

8CERR, c
T éx

MOVB
;§g

#-1 I.ISRL
égoi+

CHEEEIFEggg;ROLLER CLERR DID
‘SET UP ERROR RETURN

'RETURN

;SET INTERRUPT ENABLE

:SET INTERRUPT ENABLE ISSUED
SEJUST FOR NORMAL RETURN

SEQ 0204

0t PERF EXEC
D1-DEC-77 14:53

MACY1l

0100 D DO
D DD D DD O OD DD D DD DO DD DD D 0
o gm&&\D\D\D\D\D\D\D\D\D
s ot Pt Pt Pt B Pt Dt Bt Port Pt Pt Pt Prme Pt Pt Pt Pt it Pt Pt ot Pt Pt s P Pt Pt Pt Pt Pt Pt Pt Pt e Prnt ot it e Pt
OVOO
wn
OMOM@MOMO@
I NNNNNINNNNINO
OO T O
VeV N IV IV o}
@
owm \ng:umwsm
\.DQVU‘U‘!IUNHD\DQ‘JO‘U'IUNHDGQ\JU‘MIUNO—S
£LO

CZRePCO RKBI1
<ZREPC.Pl1

30(1046)

O01-DEC-77

.SBTTL

#COMMAND

ISSUED

15:04

K1b

DRIVER

PAGE 207
SERVICE

SEQ 020S

ROUTINE

ISSUED BY DRIVER SERVICE ROUTINE

T2 ITTTZITZ
TR
ST SRS

SIS

2222222222222

22222222222 2

tx
‘e
S x

THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CSl
AND CHECK IF A CONTROLLER ERROR OCCURRED.
1 A CONTROLLER
ERROR OCCURRED,
E.CERR WILL BE SET IN E.CONT AND

ADDRESS

CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE
IN A.CONT

USE

ADDDRESS OF RKO® REGISTERS

:2CALL

JSR

RETURN

ROUTINES USED:

‘e

ADDRESS OF PARAMETER BLOCK

RO, I.1ISSU

iE
P *

1.CCLR

1.STOR

:; 2221222222222 2222222232222221z2223222121XX3X22X2X2222222XX2222 23
046774
047000
Q47004
047012
047020
047026

001410
0cl4le
000000
01412
00007
177753

047034
o4"04e

001410
000000

9201

000450

022737
001004
032737

0010e3

I.ISSU:
001412
000010
0141}
01411

000000

047236
100000

001410

001000

001412

100000
132352

0ot4e2

000001

001500

010000

oo1412

024000

001410

176400

oo141e

MOV

CLR
MOVB
MOV

2%:
4$:

:STORE COMMAND ISSUED

7.€52’
:CLEAR TEMPORARY CS2
P.DRVN(RS), T.CS2';LORD IN DRIVE NUMBER
T C5e Rxcsétna) Lono DRIVE NUMBER FOR COMMAND

MOVB

P, c51fi(n5) 5141 ; STORE BITS8-15 OF CSl

MOV
EEIB

7.CS1,RKCS1(R2) ;ISSUE connnn
Tgc51lne
*WAIT FOR RERDY

Séé
RIT

JSR

PC,1.STOR

:GO_STORE REGISTERS

BEQ
BIS
JSR
BR

23
8E.MDS,E.CONT
PC.aR. LONT
108

'NO, CHECK FOR OTHER CONTROLLER ERRORS
:SE} MULTIPLE DRIVE SELECT FLAG
:REPORT CONTROLLER ERROR
*RETURN

.CHECK

IF ANY CONTROLLER ERROR IS SET

L.S,omLG

,sss gr
CURRENTLY IN CMND OPTIMIZER

BIT
BNE

sNED, T.CS2
33

:SEE IF NED ERROR SET
'BR IF YES, TO ISSUE CLERR AND EXIT

g1CcB
18:

T.CS1,-(SP)

SNE
Sgg

BIT

BNE

#+C<B.CDT! é crnr> T!FORMAT
CSl+1AND
CLEQR DRIVE
ALL axrs
EXCEPT
TYPE

ggéna,r.csx
#MDS, T.CS2

;gTOESPQR,T.CSI

cuscxIERCONTROLLER ERROR OCCUERED
cwtcx IF MULTIPLE DRIVE SELECT

SUFE ! PGE'NEM!NED' UPE*WCE'DLT, T.CS2

01-DEC-77

14:53

047150
047156

032737
001017

131761

047160
047164
047166

122716
001003
052765

00000S

47174
47200

27335

000100

000000

o47216

0Se737

001000

047224

04777
005726
011000

132230

000200

BIT
BNE

;gLC!DTYE!FHTE!ECH!BSE!HVRC!COE!DTE!OPI!DCK,T.ER
; CHECK IF CLERR DRIVE
ggRD ERROR
NO, D 0 NOT SET DRIVE

#0R.CLR, (SP)

000014

000200

L16

30(1048)
15:04
PAGE 208
01-DEC-77
#COMMAND ISSUED BY DRIVER SERVICE ROUTINE

001426

000020
o4e712

o47cde
047210
Q47212
047214

047234

MACY1l

3%:

$ORVHRD, P. PRST(RQ);SET HRRD DRIVE ERR
RO, 1.CCLR
ERR%SSHE CONTROLLER CLERR

c%:

OIE RKCS1(R2)

iSET INTERRUPT ENARBLE

pl+

:ADJUST STRCK
QD%LUJET RO FOR NORMAL RETURN

(R0)+
RO

ool4e2

7%:

10%:

#E.CERR,E.CONT

REPORT ERROR

PC,aR.CONT

(SPy+

:ADJUST STAC
gg%HST RO FOR ERROR RETURN

(SO),RO

SET CONTROLLER ERROR DURING
PRIVER SERVICING

SEJ 3206

CZR6EPCO RKB11-06 PERF EXEC

CZR6PC.P11

01-DEC-7?7 14:53

MACY11l 30(1046)

01-DEC-7?7

15:04

M1lb

PAGE 209

SEQ 0207

#STORE RKG11 UNIBUS REGISTERS

.SBTTL

3sgg
923%

#STORE RKbl1l UNIBUS REGISTERS

HXY 2122X22222222222:22222:222::22X2XXXX222222XX2X2XXX2XEXTZRTLTSLS

; *

923

§§§§

THIS SUBR

9241
9242

;¥CALL
;¥

JSR
RETURN

USE

ADDRESS OF RKG11 REGISTERS

H %

9243

3245
9246

P
L

9244

gs:g

gggg

:; 12
016237

016237

000010

000000

001410

I.STOR: MOV

9254
9255
9256
9257

(047260
Q47266
047274
047302

016237
016237
016237
016237

000004
000006
000012
000014

001416
001420
001430
001426

MOV
MOV
MOV
MOV

9259

047316

016237

000020

001422

MOV

J00034
000036

001434
001436

MOV
MOV

000032

001442

001412

9253 (047252 016237 000002 001414

9258
3260

9261
9262

9263

9264

3265

047310
047324

016237

000026

016237

000030

047332
047340

016237
016237

047354

016237

(<7346

047362

000016

000207

001424
001432
001440

RK06-/07 DRIVER TO STORE ALL

-—-

I 1222222222222 22322:22222222222222X222XX2XXX2 2222222222332 224

Q47236

047244

D BY THE

PC,1.STOR

9251

9252

NE IS

Kéll sgc?grén INT anSnRY Locsrxons.

MOV

RKCSI(RB) T CS! ;STORE ALL CONTROLLER REGISTERS

kCS2(R2)'T.CS2 :~

RKucrna),t.ucn
RKBA(R2),7.BA
RKDR(R2),T1.0R
RKDS(R2),T1.0S
RKER(R2),T.ER

MOY

RKASOF (R2), T.ASOF

MOV

RKMR1 (R2), ¥.MR1

MOV

RKECPS(R2}, T.P0S

MOV

RTS

EXCEPT DATR BUFFER

RKDCYL(R2),T.DC

RKMR2(R2), T.MR2
RKMR3(R2), T.MR3

RKECPT(R2),T.PAT

s RETURN

C2R6PCO RKE11-06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

MACY1l 30(1046)
01-DEC-7?
15:04
%S TOPE CONTROLLER STATUS

BO1

PAGE 210

SEQ 0208

gggg

.SBTTL

gggg

;ill!!!l!llfllll*!ll!!!ll!lllll!llll!l!ii*lll!!ll!llll!l!!llil!!ll*

9270

9273

9275S

gsgé

9274

9276

277
9278
9279

THIS SUBROUTINE IS CALLED BY THE RKO6 DRIVER AT PRIORITY 7.
THE FOLLOWING REGISTERS WILL BE STORED:

COMMAND AND STRTUS REGISTER 2

WORD COUNT REGISTER

DESIRED TRACK AND SECTOR

BUS ADDRESS REGISTER

Sk
L x
tx

gsg?

STATUS REGISTE!
ERROR REGISTER

ATTENTION SUMMARY/OFFSET REGISTER
CYLINDER ADDRESS REGISTER

9282

)

3583

‘%CALL
H°
i

gg E

3287

3288

3289
3230

JSR

RETURN

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTRIN:

D x

CONTENTS

%
1

R2
RS

RK06/07 BRSE ADDRESS
ADDRESS OF PRRAMETER BLOCK

SRR

923

047364

042765

177741

000016

9299

047372
047400

042737
053765

000036
001410

9301
9302
9303
9304
9305
gggg

0474:'%
047422
047430
047436
047444
047482

016265
016265
016265
016265
(16265
016265
016265

I.CSTS:

9309

047460

047466

000207

BIC

#177741,P.CS1(RS)

001410
000016

BIC
BIS

#36,7.CS1
T.C51.P.CS1(RS)

000002
000004
000006
000012
000014
000016

000022
000024
000026
000036
000034
000032

MOV
MOV
MOV
MOV
MOV
MOV

000020

000030

MOV

9300 047406 016265 000010 000020 I.CST1: MOV

9308

PC,I.CSTS

e
B

9291
3535

14
.
3298

#STORE CONTROLLER STATUS

RTS

RKcselRe) P.CS2(RS)

;CLEAR ALL BITS EXCEPT FUNCTION

J0F LAST COMMAND ISSUED

;CLEAR FUNCTION OF CSI STATUS
: GENERRTE c51 STATUS INFORMATION

;STORZ COMM

AND STATUS REGISTER 2

RKWC (R2) ,P.WCR(RS)
RKBA(R2) ,P.BAR(RE)
RKDA(R2),P.DTS(RS)
RKDS(R%),P.DS(RS)
RKER(RS) .P.ER(RS)
RKASOF (R2) , P. ASOF (RS)

:STORE uoao COUNT REGISTER
;STORE BUS RDDRESS REGISTER
:STORE DESIRED TRACK AND SECTOR
:STORE DRIVE STATUS REGISTER
:STORE ERROR REGISTER
srggesgrrsnrron SUMMARRY AND

RKDCYL (R2),P.DCYL(RS)

;STORE CYLINDER ADDRESS

'RETURN

P
P

MACY1l

30(1046)

O01-DEC-77_

COl

15:04

PRGE 211

%¥GATHER DRIVE STATUS

.SBTTL

N+

D SO L DD O [VelV]
W W WL
W) ww

cZR6PCO RK611-06 PERF eXEC
CZRBPC. Pll
01-DEC-77 14:53

S ¥

3
1]

#GATHER DRIVE STATUS
I IE 0600 0

00 00 0000 006 30 0600 06 T 00 00 00 00

OO0 0

3000 0

AND

11.

1S ASSUMED THAT

THE DRIVE

HAS PREVIOUQLY BEEN SEIZED. 1IT RUNS AT PRIORITY 7.
<ADDRESS o# ERROR RETURN)>

JSR

RETURN

000 00 0606 0300 0000 0

THIS SUBROUTINE WILL BE USED TO GRTHER DRIVE STATUS

BYTE Ol

:%CALL

SEQ 0209

)

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTRIN:

X
’

H
Tx

CONTENTS

RKO& BASE ADDRESS

ROUTINES

;l'

ADDRESS OF PARAMETER BLOCK

USED:

1.1SsuU

o 363636 3 3 36 36 36 3 36 36 36 36 o 36 3t 36 36 36 36 36 3 36 36 36 36 36 3 3 3 3 3 36 3 3 36 9636 2 3 36 36 36 3 3 36 3¢ 3 3 3¢ 3 6 3 3 3 3¢ 3 3 3 3 3¢ 34 ¢

047470

012762

000001

000026

047476
047504
047510
047512
047520
047526

112737
004037
047700
013765
013765

000001
046774

001410

001434
001436

000044
000046
000026

047534
Q47542
p47546

112737
004037

000001
046774

001410

8:? SO
7556

047564

012762

0?7;00
81372?

0000062

01434
01436

012762

000003

0000s0
0000Se2
000026

047572
047600
C47604
047606
047614
047622

112737
004037

000001
(046774

001410

013765
013765
005062

001434
001436
000026

000054
000056

047626
047634

112737
004037

000001
046774

001410

001434
001436
001000

000040
000042
001436

047640
047642
047650
047656
o47664

047700
013765
013765
032737
001407

1.STAT:

MOV

#1,RKMR1 (R2)

:LOAD MAINTENANCE REGISTER 1

MOVB
JER
33
MOV
MOV
MOV

#DR.SEL,T.CS1
RO, 1-1S5U
T.MR2,P.A0L(RS)
T.MR3.P.BO1(RS)
82, RKMR1 (R2)

:LOARD COMMAND
IGET srnr¥s8YTES 01
:ERRCR RETURN
'STORE STATUS BYTE 01 MESS A
:STORE TRTE Eé ;sg B
LOQD
INT Nnncs REGISTER 1

#DR.SEL,T.CSI

Lono coo

T.MR2,
P A10(RS)
T.MR3P.B10(RS)

Erons
gfin?fis BYTE 10 MESS A
:STORE STATUS BYTE 10 MESS B

MOVB

ggn *~

MOV
MOV

MOV
MOVB
JSR
33
MOV
MOV

RO,IT1SSU°

: " FOR STATUS BYTE Ol

IGET STATUS BYTES 10

CLR

83, RKAR1 (R2)
#DR.SEL, T.CS1
RO, 1.1IS5U
T MR2, P R11(RS)
MR3'P.B11(RS)

Rxnnxlna

Long
MA NTENQNC REGISTER
ATUS BYTE 11
LORD coMAND
1GET érnrgsBYTES 11
:ERRO
: STORE srarus BYTE 11 MESS A
:STORE STATUS BYTE 11 MESS B

MOVB
JSR
33
MOV
MOV
BIT
BEQ

#DR.SEL,T.CS1
RO, 1-1S8U”

Lono COMMAND
:GET STATUS BYTES 00
:ERROR RETURN
:STORE STATUS BYTE 00 MESS A
*STORE STATUS BYTE 00 MESS B
:CHECK IF BAD PARITY DETECTED BY DRIVE
'NO, RETURN NORMALLY

T.MR2,P.ROO(RS)
T.MR3’P.BOO(RS)

#S.PAR, T.MR3
3

Lono MRINTENANCE REGISTER 1
FOR srnrus BYTE GO

9367

9368
9369
gg;?

9372

9373
9374

047666

(047674
04??02
04770

047704

047712
047714

052737

004777
816288

002000

131560

MACY1l 30(1046)
O0l1-DEC-77
15:04
#GATHER DRIVE STARTUS

001462

0S2765

005720
000200

001000

000014

BIS

DOl

PAGE 212

8E .DPAR,E.CONT

SEQ 0210

; INDICATE BAD PRRITY DETECTED BY DRIVE

3%:

JSR
MOV

PC.3A.CONT
(RO),RO

:REPORT ERROR
LORD RO FOR ERROR RETURN

S%:

BIS

%PBSVAL ,P.PRST(RS)

;SET PARAMETER BLOCK STATUS VALID

RTS

TST
RTS

(RO, +
RO

; RETURN

QDJUST RO FOR NORMAL RETURN
!RETURN

CZR6EPCO RK&11-06 PERF EXEC
CZR&PC.PLL
01-DEC-77 14:53

CZR6PCO RK611-06 PERF EXEC

CZREPC.P11

01-DEC-77 14:53

MACY11l 30(1046)

EOL
O01-DEC-77 15:04 PAGE 213

*COMMAND INITATOR

.SBTTL #COMMAND INITATOR

3339
gg;g

;;l*l!ll!ll!ll*llllllil!!l*llll!l'l!*!*lllll!illl!**li*lllllllliii

9380
938]

Sx
'

9385
9386
9387
gggg

sy
T
Tx
H

X
x

gggg
9384

THIS SUBROUTINE WILL INITIATE ALL COMMANDS AS_SPECIFIED
BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING
SPECIAL COMMAND ARE ALSO EXECUTED:
RELEASE
CONROLLER CLEAR
SUBSYSTEM CLEARR
REARD ALL DRIVE STATUS
READ SPECIFIED HEARDER

ggg?

THE RBOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS

9332

i¥CALL

JSR

RETURN

9333

gggg

9396

PC,C. INIT

FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE

LOCATIONS, PBLKT AND INTMSK.
ROUTINES USED:

gggg
9399

H
"

g:gg
9407
9408
9409
9410
G411
9412
9413

: ; l*l!lll!**l*illlll*ll*lll!l»*Illlill!i*lil*l*!lll**i!ll*ii******
:STORE RS ON STACK
RS, -(SP)
C.INIT: MOV
*STORE R3 ON STACK
R4’ -(SP)
MOV
'STORE R3 ON STACK
R3,-(5P)
MOV
:STORE R2 ON STACK
R2,-(5P)
MOV
:STORE R1 ON STACK
R1.-(SP)
MOV
:STORE RO ON STACK
RO, -(SP)
MOV
:STORE PSW_ON STACK
PS’ -(SP)
MOV

S
T
%
‘x

9400
9401
9402
3383

9414
9415
416
9417
9418

- %

047716
047720
047722
047724
047726
047730
087732

047736
Q47744
047750
047756
047762

010546
010446
010346
010246
010146
010046
013746

177776

013737
017605
062766
016504
042704

001452
000016
000002
000000
177770

177776
000016

047776
050000

006303
013763

001472

001544

g:gg 0S0006 013702 001446

RKPRI, PS
316(SP),RS
#2, 16(5P)
P.ORVN(RS) ,R4
#+C<DRVMSKS ,R4

ASL
MOV

'MULTIPLY DRIVE NUMBER BY 2
R3
W.SEC,W.DRV(R3) ;LOAD WATCH-DOG TIME

MOV

g:gg

;

9428
9429
9430

:
:

:LOCK_OUT RKDE INTERRUPTS
:STORE_PARAMETER BLOCK ADDRESS
*ADJUST RETURN
;STORE DRIVE NUMBER
:MARSK OUT JUNK

MOV
MOV
ADD
MOV
BIC

BISB
MOV

9419 047766 156437 001514 001512
9420 Q47774 010403

9421
g:gg

W.WTCH
1.CSTS
1.STRT
1.CCLR

TIME ;SET WATCH DOG TIME
INTMSK(RY),l.
;SYORE _DRIVE NUMBER
P4 R3

RKBAS, R2

:LOAD R2 WITH RKO6 ADDRESS BASE

RESET RLER?5ESI§NUgEocRnn DEVICE STRTUS REGISTER EXCEPT
WRITE FOR WRITE CHECK
NO CHECK
DROP DRIVE FROM TEST SEQUENCE

INHIBIT BUS ADDRESS INCREMENT

SEQ 0211

CZR6PCO RKB11/06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53
0s0012

042765

050020

010500
062700
010s01
0ee701

075176

MARCY11 30(1046)

*COMMAND

01-DEC-77
INITATOR

8IC

000014

1%:

050446

050072

122765

000107

; STORE PARAMETER BLOCK RDDRESS

:CALCULATE FIRST LOCATION TO BE CLEARED
;STORE PARAMETER BLOCK ADDRESS

#P.EPAT,R1

;CALCULATE LAST LOCATION TO BE CLEARED

(RO)+
RQ,Rl!
3
I.ISRL
RY,P. cse(RS)

;CLEAR RETURN PRRAMETER

33
C.SPEC

;NO,

cuscx IF FINISHED

CLERR NEXT RETURN PARAMETER

CLEQR RELERSE OR INTERRUPT ISSUED

:STORE DRIVE NUMBER
:CLEAR RKO® MAINTENANCE REGISTER 1
OBITS P CMND(RS) ‘CHECK IF SPECIAL COMMAND

RKMR1

000001

SUNLOAD,P.CMND(RS)

3%:

BHI

101125

258

PROCESS

Juhp TO SPECIAL COMMAND PROCESSOR
;CHECK IF POSITIONING COMMAND

&$TART SPINDLE

RECALIBRATE
OFFSET
SEEK
UNLOAD

’

050100

SEQ 0212

#¢C<DRVUSE!W.WCK! NOCHK ! DRPDRV!DTBRII> ,P.PRST(RS)

RS,R1

005020

000137

PRGE 214

$P.CS1,R0

003062

050066

FO1

RS, RO

oooo1le

001506
000020
000026
000040

15:04

;NO,

DRIVE COMMAND

SELECT DRIVE

PACK ACKNOWLEDGE
CLEAR

016562
052765
005037

016562
000431
122765
001007
oogo41e

050232

122765
001003
013763
122765
001003

CMPB
BLO

#SEEK,P.CMND(RS) : CHECK IF DATA TRANSFER
9E§egonrn ;Rnusrsn COMMAND
20%

000117

000001

000020
000002
001464
000117

000010
000014

P.CS2(RS), RKCS2(R2) L OAD onxvz NUMBER
RI POSITIONING
#DRVPQS,P PRST (RS) Ssr

000091

lgEEK,P.CMND(RS)’ CHECK

000002
000004

oono20
000u0b

000115

000001

000006
000032

000032
000016

000111

000001

6%:

001476
000113

001544
0ooo0!

7¢:

WRITE

0.WARIT

s CLEAR

T FOR COMMAND

xr SEEK
CHECK FOR OFFSET

P.CYLN(RS), RKDCYC (R®) = LORD CYLINDER ADDRESS
ESSECT(RS)RKDQ(RE) -LOAD SECTOR AND TRACK
o 1SSUE COMMAND
5§

BOFFSET,P.CMND(RS)O'CgEEK IF OFFSET
CK FOR_UNLORD
6%

P.OFST(RS), nso#cns) ;STORE OFFSET

gsnsor(RS)RKRSOF(RE) :LORD OFFSET REGISTER
0 ISSUE COMMAND
$SRTSPL ,P. CMND(RS)

;CHECK IF START SPINDLE

:NO, CH ECK IF RECAL
W.MIN,W.DRV(R3) :LOAD WATCH DOG TIME FOR 1 MINUTE
ggscnt P. cnnotnsi .CHECK IF RECAL
NS, CONTINUE

czaspco RK611/06 PERF EXEC
ZR6PC. P11
01-DEC-77 14:53

9488

050234

9492

(0S02Sk

(050264
Q50272

042765
000460

9496

9438

Q489
ggg?
9433
g:gg
9497

013763

001474

000007
165777

000017
000016

116565

000001

000016

(0S0274

016562

000010

060310

016562

000002

0S0242
050250

050302

9499
9500

(050316
050324

9503
9504
gggg

0503452
050344
050352

9507

0S03S4

9501

MACY1l 30(1046)
O1-DEC-77
xCOMMAND INITATOR

050332

116565
042765

016562
016562
122765
001010

000200

001544

8%:
'

000014
000004

000012

0OLO002

000004
000131

ggié

050362
050370
050376

MOVB

P.CMND(RS),P.CS1tRS) :MOVE COMMAND INTO CS1

MOV

;:LOAD RECAL TIME TO 8 SECONDS

P.CSIHIRS),P.CS1+1(RS);STORE BITS 8-15 OF CSI
ofc<crnrecbt>,P.csxazg)ohgbgngygLL BITS EXCEPT FORMAT
i WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK
308
cb I1SSUE COMMAND
P.BALO(RS),RKBA(R2)

:LOAD BUS ADDRESS REGISTER

000006
0OCOOI

MOV
CMPB

P.SECT(RS) 'RKDAR(R2) ;LOAD SECTOR AND TRACK NUMBER
SWRTCHK,P.LMND(RS) ;CHECK IF WRITE cuscx COMMAND

BEQ
MOV
BR

25%
<NO. GO ISSUE THE COMMAND
$WRDATA,P.CS1(RS) ; ISSUE WRITE COMMAND
268
G0’ ISSUE COMMAND

MOVB

P.CMND(RS) ,P.CS1(RS)

00020

000123

000016

116565

0000C1

000016

000200
000007
177750

W.B8SEC,W.DRV(R3)

MOVB
BIC

P.WCC(RS),RKWC(R2) :LOARD WORD COUNT REGISTER

001404
012765
000406
042765
116565
142765

SEQ 0213

MOV

MOV
BNE

9502 0S0334 032766 000200 000014

9508
9509
9510

PAGE 215

MOV

BIC
BR
20%:

15:04

GOl

003014
0030i7
0C0017

BIT

25%:

26%:

BIC
MOVE
BICB

258

#id. WCK, P. PRST (RS}

NO,

GO ISSUE THE COMMAND

:CHECK IF WRITE COMMAND SHOULD BE iSSUED
:MOVE COMMAND INTO CSl

#ld. WCK P, PRST(RS) REQET
WRITE FOR WRITE CHECK
P.CSIHIRS),P.CS1+1IR
jSTORE BITS 8-15 OF CS1
#tC<B.CFMT!B.CDT!B.BA16!B. sn~7> P.CS1+1(RS) ;CLEAR ALL BITS EXCEPT

;

ronnnr

DRIVE TYPE, AND BUS ADDRESS

9513
050404 010537 001464
9514 (050410 032765 100000 000014

BIT

RS,0.WAIT
'L f#xuc FOR COMMAND
CDTBRII,P.PRST(RS) cnscx IF INHIBIT BUS ADDRESS INCREMENT

9516
9517

0S0420
050426

BIS
MOV

#BAI.P.CS2(R5) :SEt INHIBIT BUS ADDRESS INCREMENT
P.csé(RSJ,RKcsa(ha) ;LORD CS2

325%

0SO442

JMP

C.RTRN

9515

9518

(0S0416

001403

0S0434

016562

052765
016562

000137

000020
000020

000016

0S1364

000020
0000I0

000000

3255
9523

49524
9525
9526

MOV

P.CYLN(RS), RKDCYL (R2) :LORD CYLINDER ADDRESS REGISTER

BEQ

27%:

30%:

.SBTTL
0SO446

122765

000141

000001

00002"
000007

000010
000017

112765
016562
004737
016265
032765

000001
000016
044112
000006
000200

000016
000000

004737

047406

Q50454
(0S0456
050464

001132
0l16S62
116565

9529
9530
953]
9532
9533

050500
050506
050514
080520
(050526

9535

(050536

C.SPEC:

3gsg 050472 042765 165777 000016

9534

9536
9537
9538

0S0534

001767

9539

050842
(050550
050556

(QSO5e4

016265
016265
032765

9541
9542
9E4E

050574
0S0600
0S0806

00S063
032765
001046

001443

000016
000016

MOV

:NO.

LORD CS2

P.CSI(RS),RKCSI(R2)

:ISSUE COMMAND

Rssfons REGISTERS

%*SPECIAL COMMAND PROCESSING
CMPB

#RDSTAT,P.CMND(RS)

;CHECK IF RERD DRIVE STATUS

BNE
MOV
MOVB

108
-NO, PROCESS OTHER connnnos
P. CSE(RS) RKCS2(R2)' :LORD CS2 FOR COMMAND
P.CSIH(RG) .P.CS1+I(RE);STORE BITS 8-15 OF CSl

MOVB
MOV
JSR
MOV
BIT

#DR.SEL,P.CS1(RS) :STORE COMMAND
P.CS1(RS),RKCS1(R2); ISSUE COMMAND
PC, W.WTCH
-CALL WATCH-DOG TIMER
RKLSI(R2) ,P.CS1(RS) :STORE COMMRND AND STATUS REG. 1
#ROY,P.CS1(RS) TM ;WARIY FOR RERDY

JSR

PC,1.CSTI

:STORE CONTROLLER REGISTERS

BIC
2%:

27%

BEQ

OfC(CFHT'CfiT)CSléng)ok?LEg§gEL BITS EXCEPT FORMAT

002034
000036
100000

000040
000042
000016

MOV
MOV
BIT
BEQ

:NO

001544
001000

000020

CLR
BIT
BNE

W.DRV(R3)
#MDS,P.CS2(RS)
9%

ctsnn WATCH DGG COUNT
:CHECK IF MULTIPLE DRIVE SELECT
:YES, INDICATE CONTROLLER ERROR

9540 080566 146437 001514 001512

Bics

RKMR2(R2),P.RO0(RS) ;STORE STATUS BYTE 00 MESSAGE
A
RKMR3(R2) P.BOO(RS) :STORE STATUS BYTE 00 MESSAGE B
#CERR,P.C81(RS) ;CHEéK IF CONTROLLER ERROR
THER DRIVE STATUS

INTMSK(RY),W. TIME hsssr WATCH DOG TIMING ON THIS DRIVE

CZREPCO RK611/06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

g84d geBe18 881324
276
4238 BEBe3s 8 101

MACY1l

¥SPECIAL

010400

000020

050626

032765

000001

000036

9551

0S0644

013763

001514
001476

0ois1e
001544
000014

§2e8 Be8keh 885157 847324

9554

01-DEC-77
COMMAND

SR
.RTRN

o4e?12

9548

284 peBe3d 784343

30(1046)

15:04

PAGE 216

SEQ J214

PROCESSING

RO, I.CCLR

EksflR

g?ggn

gNED'UFE,P. CSE(RQ)
8H$CK &F NON-EXISTENT IRIVE OR UNIT FIELD ERROR
S
#0RA,P.DS(RS)
CHECK IF DRIVE AVAILIABLE

?firrsxtnq)
rime R TN RDR Rt netue
W MIN W, oRO(Ra) “WATT1 MINUTE FOR PE EASE

DRV P“s"RQ&ss?S£e°§éX§s?E§EE°

333 328e53 883757 420365

S%:

c.R?RN

-REs?gRs REg*’(:R

9558
3559

6%:

RO, 1.STAT

cnrnsn DRIVE STATUS

9557

9560

004037

047470
oglisle

050?14
050720

Q04777
000137

01514
01544
130534
051364

0S0724
050732
050736

052737
004777
000137

100000
130522
051364

001462

050742
050750
050752

122765
001031
010837

000140

050756
050764

050772
051000
051006

5276
1656
112737
116565
04276S

00001
00002
00”001

0S1014
0S1022
051030

112765
016562
000137

000101
000016
051364

0S1034

122765
001047
010537
016537
682? 5

000164

0oc001

001464
000010
000020

001502
000007

012737
000403

000024

001504

012737
giese2
glesee
042765

000026
000002
000004
000020
000007
165777

001504
000020
000006
000010
000017
000016

112765

000125

000016

050674

0s0700

328778

1404

PC,

dR. ABNL

xnrnsxrnu) W. Txnt 5?09unVRH-ooc TIHING ON DRIVE

W.DRV(R3)

PC ?n NORM
9%:

10%:

001464

s REPQRT ER

$E.MDS,E.CONT

EcthNéon

REZET WATCH-DOG TIM

REP RT c nnang 88HPLETE
RESTORE

;SET MULTIPLE DRIVE SELECTM

*INDICATE CONTROLLER ERROR

IRELEQS,P.CMND(RS)

13%
RS,0.WAIT

REGISYE

;CHECK IF RELERSE COMMAND

;NO' CHECK IF READ ALL AERDERS
:STORE PARAMETER BLOCK ADDRESS IN
FOR _COMMAND

”RLSépng??(%a hggT5855“352gon DESELECT

ISRL
$
FOR R;gsnss COMMAND
PCSlH(RS)
P. csx$1(95)-STORE
15 OF CSI

000007
165777

8?C<CFMT'C6T>,P CSl(Rgs CLERR REL BITS EXCEPT FORMAT

119%:

13%:

#SELDRV,P.CS1 (RS} sronr COMMAND
P.CS1(RS),RKCS1(R2}; ISSUE COMMAND
C.RTRN
Rssfons REGISTERS
#RDALHD,P.CMND(RS)

305

WAIT

;CHECK IF READ ALL HERDERS

NO HECK IF CONTROLLER CLERR
1 unxrxnc FOR connnno COMMPLETION

énLO(RS)
HDR. nb 0 HE ER g ;
oe CFMT,P.LSIH(RS)’ CHECK 1F 22 SECTOR FORMANT
14%:
22%:

14%
#20.,HDR.CT
22%

:YES, LORD 22 INHERDER COUNT
:LORD 20 IN SECTOR COUNT
GO ISSUE RERD HERDER COMMAND

#22.

:LOAD 22 IN SECTOR COUNT

,HDR.CT

P.CYLN(RS), RKDCYL(RE) -LORD CYLINDER ADDRESS
P SECT(RS)'RKDA(R2) ;LOADTRACK

NUMBER

P.CS2(RS) hxcsa<na) ‘LORD DRéVE 17S
NUHBER
P.csxutnsi S1+1(RS3)
8-15 OF CS1
#1C<CFMT? cbr> P. CSléRS’
CLERR ALL BITS EXCEPT DRIVE TYPE
:

MAT

#RDHEAD,P.CS1 (RS} ;STORE REQD HEADER COMMAND

CZR6PCO RK611/06 PERF_EXEC
CZR6PC.P11
01-DEC-77 14:S3

9600

gggé
9603

0S11S0

0S1156

0S1162

3604
3605
9606
gggg

0S1170
051172
0S1176
0S1200

9609

0S1202

016562

101

MACY1l 30(1046)
O01-DEC-77
15:04
PAGE 217
¥SPECIAL COMMAND PROCESSING

000137

0S1364

000016

000000

122765

00Ci176

000001

001004
004037
0S1364
000467
122765

000177

000001

32%:

000100
130234

001462

34S:

012762

000040

000010

36%:

3615

0S1226

0S1234

016265

9618
9619

051250
0S1252

001406
0S2737

000001

9621
ggsg

0S1260
0Slee4

004777
000437

130174

9624
9625

0S1266

013746

001470

9626
9627
9628
9629
9630
9631
9632

051272
051300
0S13C6
051310
0S1312
0S1314
0S1316

016265
032765
001411
005316
001367
005726
052737

000000
040000

000016
000016

000040

001462

9634
gggg

0S1324
051330

004777
000415

9637

0S1332

005726

9639
9640
9641
gg:g

0Si342
0SI1344
051352
051360

001010
112737
012762
004777

177777
000100
130070

9644

0S1364

012637

177776

000000

000016

3617 0Sle42 032765 100000 000016

9633

0S1370
0S1372
051374
051376
0S1400
051402
0SI404

012600
012601
012602
012603
012804
012605
000207

CMPB

SEQ
BIS
JSR
BR

OCONCLR,P.CMND(RS)

328
RO, I.CCLR
40%

ISSUE REARD HEARDER

ES*ORE REGISTERS

; CHECK IF CONTROLLER CLEARR

:NO, CHECK_IF SUBSYSTEM CLEAR
;CLEAR CONTROLLER
{ERROR RETURN
: INDICATE NORMAL RETURN

$SUBCLR, P. CMND(RS)

;:CHECK IF SUBSYSTEM CLERR

368
SE. ILLD,E.CONT
PC,dA.CONT
C.RTRN

YES, CLEAR SUBSYSTEM
:iSET ILLEGAL DRIVER COMMAND
:REPORT ERROR
:RESTORE REGJISTERS

BIT

#SCLR,RKCS2(R2)

;ISSUE SUBSYSTEM CLEARR

BEQ
BIS

37%
#B8ITO,E.CONT

iNO, FINISH COMMAND
:SEt CLEAR SUGSYSTEH DID NOT CLERR

JSR
BR

PC,adR.CONT
C.RTRN

37%:

MoV

W.MILI,~(SP)

38%:

MOV
BIT
BEQ
DEC
BNE
TST
BIS

RKCS1(R2),P. CSl(kS) 1 STORE C?
$DI,P.CS1LRS)
HECK IF ATTENTIONS CLERRED
398
YES FINISH COMMAND
(SP)
;DECREMENT 16_MILISECOND COUNT
388
;CHECK DRIVE INTERRUPT AGAIN
(SP)+
IADJUST STACK
#E.SCLR,E.CONT SET SUBSYSTEM CLEQR BID NOT CLERR

JSR
BR

PC,dR.CONT
C.RTRN

REPORT ERROR
;RESTORE REGISTER

T1ST

CNOCHK P. PRST(RSS CHECK IF NO CHECK MODE

(SP)+

ADJUST STACK

C.RTRN
8-1,1. ISR
s$1E; RKCSI(RE)
PC,3A.

YES RESTORE REGISTERS
:SET’ INTERRUPT ENABLE SET
iSET_INTERRUPT ENABLE
:INDICATE NORMAL TERMINATION

(SP)+,PS

; RESTORE PSW

39%:

40%:
C.RTRN:

MOV

C.RTR

RKCS1tR2),P CSl(hS) : STORE COMMAND AND STATUS REGISTER |

130130

001506
000000

cMPB

BNE
JSR
C.RTRN
BR

P. CSI(RS) RKCSI(RE)

MOV

001462

9638 0S1334 032765 000400 000014

9645
9546
3647
3648
9649
9650
96S1

30%:

001406
052737
004777
000457

051210
051212
051220
0S1224

3620

JMP

046712

910
9611
9%le
ggia

9616

MOV

SEQ 0218

BIT

BNE
MOovB
MOV
JSR
MOV

MoV
MoV
MoV
MoV
MOV
MOV
RTS

OCERRCQI(R ;CLEAR IF CONTROLLER ERROR RESET

(SP)+ RO
(SP)+,R1
(SP)+,R2
(SP)+,R3
(SP)+,RY4
(SP)+,RS
PC

;

__CONTROLLER ERROR

i REPORT ERROR
:RESTORE REGISTERS

;LOAD 16 MILI-SECOND COUNT FOR RTTENTION
TO_DISAPPEAR

ORIVE RTTENTION

;RESTORE RO
:RESTORE RI
:RESTORE R2
:RESTORE R3
{RESTORE R4
{RESTORE RS
' RETURN

CZRE6PCO RKBII/O& PERF EXEC
CZRBPC.P11

01-DEC-77 14:53

MACY11 30(1046)

01-DEC-77

*ENQUEUE ROUTINE

15:04

JO1

PAGE 218

gggg

.SBTTL

gggg

Hi!*!l*ll!*lli*!l!*l!!*’l!llllll{l!*l«llwllllli!illllll*ll!*!!illli

9656
gggg

"
X

THIS ROUTINE WILL BUT THE ADDRESS OF THE PARAMETER IN THE
QUEUE SPECIFIED BY THE LOCATION FOLLOWING THE CALL.

9659
3660

:%CALL
T

JSR
RO, Q. PUSH
(ADDRESS Of QUEUE>

Q.PUSH:

MOV

3062

¥
RETURN
: ; 12221222222222222322222222X2223232222221XXX2222222X2222X22222 232222

ggga

9665

3666
9667
9668
9669

051406

010446

051410
051412
051416
051424

010346
013746
013737
012004

9671
9672
9673
9674
9675
9676

051432
051434

005724
001405

9670

000064

051436
051440
051444

011403
010563
010514

000064

9679

0SIY4S0C

010514

.82

051454

012637

ggg?
3683
3684
9685

051426

177776
001452

00S06S

gg;g

*ENQUEUE ROUTINE

051446

051452
051460
051462
0S1464

177776

:STORE R4 ON STACK

R3,-(SP)
PS’-(SP)
RKPRI, PS
(RO)+ RY

:STORE R3 ON STACK
:STORE PSW ON STACK
;LOCK _OUT RKO®& INTERRUPTS
'STORE QUEUE RDDRESS

(RH)+
18

P.QULNK(RS)

MOV
MOV
MOV

(R4),R3
RS,P'QLNK(R3)
RS, (R4)

iCHECK IF QUEUE IS EMPTY
vzs PUT PARAMETER BLOCK ADDRESS
At
HEAD AND TRIL OF THE QUEUE
STORE TAIL OF Q'JEUE
;UPDATE QUEUE LINK
JUPDATE QUEUE TAIL

18:

MOV

RS, (RY)

;LORD TAIL OF QUEUE

2%:

MOV

(SP)+,PS

TST
BEQ

010544

RY, - (SP)

CLR

000402

012603
012604
000200

MOV
MOV
MOV
MOV

MOV
MOV
MOV
RTS

RS,-(RY)

(SP)+, R3
(5P)+.R
RO

:CLEAR QUEUE LINK

'LORD HERD OF QUEUE
:RESTORE PSW

*RESTORE R3
IRESTORE RH
'RETURN

SEQ 0216

CZR6EPCO RKE11/06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

MACY1l 30(1046)
O01-DEC-7?7 15:04
%POP QUEUE ROUTINE

KO1

PAGE 219

gggg

.SBTTL

gsgg

;‘!!!lllnl!lill!ll!l!llll'll!!!l!lfll!*!Il!*!ll!l!!lllli!!*l*llillll»l

9690
969!
9632
9693
9694
gggg

‘x
S
1
%
3
3

THIS ROUTINE WILL PUT THE ADDRESS OF THE FIRST PARAMTER
BLOCK RDDPESS OF THIS QUEUE ON THE STACK AND REMOVE IT
FROM THE QUEUE DESIGNATED BY THE CALL.
A RETURN OF ZERO
ON THE STACK INDICATES THAT THE QUEUE WAS EMPTY.
OTHERWISE,
THE STACK WILL CONTAIN THE ADDRESS OF THE FIRST
PARAMETER BLOCK ON THE QUEUE.

9697
3698

J%CALL
T

JSR
RO, Q. POP
<ADDRESS OF QUEUE)>

;

3?33

¥
, *

g;gé

9703

RETURN

HHo 30363636 3 3 36 3 3 3 3 3 36 36 38 36 36 36 3 36 36 3 3 36 3 3 3 3 36 36 36 36 3 3 36 36 3 36 3 3 3 3 3 6 3 3 3 3 3% 2 9 % % K K X K XWX X%

0SIN6E

011546

9704
9705
9706
9707
9708
9709
9710
9711
9712
9713
g;{g

051470
051472
051474
051500
051506
051510
051512
051516
051520
051524
051526

010546
010946
013746
013737
012004
011405
010566
001404
016524
001001
005014

9716

051530

012637

9717
9718
§719

#POP QUEUE ROUTINE

0651534
051536
051540

Q12604
012605
000200

Q.POP:

177776
001452

177776

000010

000064
177776

1$:

MOV

(SP) -(SP)

; CRERTE_SPACE_ON THE srncx

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BEQ
MOV
BNE
CLR

g, -lsP)
'STORE RS ON THE STA
RH -(SP)
:STORE R4 ON THE srncx
PS’ -(SP)
;STORE PSW _ON THE STACK
RKPRI, PS
:LOCK OUT RKO6 INTERRUPTS
(R0)+ RY
:STORE QUEUE RDDRESS
RS
'STORE PARAMETER BLOCK ADDRESS
RS10(59)
:LORD ADDRESS ON_ STACK
18’
*IF QUEUE IS EMPTY, RETURN
P.QLNK(RS), (R4)+’ REQDJUST HEAD OF' THE QUEUE
18
:YF NOT LAST ELEMENT OF THE QUEUE, RETURN
(R4)
CLEQR TAIL POINTER IF LAST ELEMENT OF QUEUE

MOV

(SP)+,PS

MOV
MOV
RTS

(5P)+ . RY
(5P)+ RS
RO

; RESTORE PSW

'RESTORE RH
:RESTORE RS
*RETURN

SEQ 0217

DD
O
Vo

CO RKEL11-06 PERF EXEC
c.P11
01-DEC-77 14:53

LO1

MACY11 30(1046)
01-DEC-?7
15:04
PAGE 220
¥SEARCH QUEUE FOR DRIVE NOT POSITIONING

SEQ 0218

SBTTL

: ii!!lllll*li!llill!ll!l!*!l*ll!lll*ll*{lli*i!l*‘lll!!!'!!l{l'\TREER

DL ODOOOOHDODOND
NNNNUIINNNNNNNY
Wwhnuuuunilu

g
6
7

‘x
¥
tx

H %

0
1

‘¥CALL
*

#SERARCH QUEUE FOR DRIVE NOT POSITIONING

THIS DOUTINE WILL SEARCH THROUGH THE COMMAND INITIATION

QUEUE rOR THE FIRST Po!QMETER BLOCK WHOSE DRIVE 1S
NOT POSITIONING.
Ir THE QUEUE xs EMPTY OF RLL onxvss
ARE POSITIONING ZERO IS PLACED IN RS.
OTHERWIS

THE ADDRESS OF THE PARAMETER BLOCK 1S PLACED IN hs

JSR
RETURN

PC,Q.SRCH

::NOTE THIS ROUTINE DESTROYS RY.
:H I 2222222222232 2¥222222X1222222222 222222222 2X2X2222222222222 24
7

0S1S542

012704

001324

9739

(051546

011405

9742
9743
9744
9745

051560
051562
051564
051570

001404
010504
062704
000766

9747

0S1572

016514

00006M

9750
9751

05'600
0S1604
51606
Sl6l2
51616

022704
001405
162704
010437
000207

001324

51620

005024

§1624

000207

9741 051552 032765 0000C2 000014
9740

9748

051550

051576

S1622

001425

001012

005014

Q.SRCH:

MOV

18:

MoV

#CINITQ,RY

L°SBESE°§ESE OF COMMAND INITIATION

BEQ

5§

(R4),RS

PGET _NEXT oueue ELEMENT

BEQ
MOV
ADD
BR

23
RS, RY
#P. QLNK, R4
18

NO. RETURN PRRRH TER BLOCK ADDRESS
upb
ATE LINK ADDRESS POINTER
:CALCULATE L TNK ADDRESS
'GET NEXT ELEMENT OF .JEUE

MOV

P.QLNK(RS),
(R4)

;UPDATE QUEUE L INK

CMP
BEQ
suB
MOV
RTS

#CINITQ,RY
4g
#P. QLNK R4
RY,CINItQ+2
PC

cuscx IF ONLY ELEMENT IN QUEUE
:YES, CLEAR HERD AND TAIL
:ADJUST R4 FOR TRIL POINTER
*LORD TAIL
RETURN

4§ :

CLR

(RY)+

s CLEAR HEAD OF QUEUE

c§:

RTS

: RETURN

000064
2%:

000064
001326

BIT

BNE

CLR

END OF QUEUE,
8DRVPOS, P. PRST(RQJIF :CHECK
IF DRIOERETURN
xs POSITIONING

(R4)

CHECK IF LAST ELEMENT OF QUEUE
IF NOT,

DO
NOT UPDATE ouzus TRIL

'CLEAR TAIL OF QUEUE

CZRePCO RKB11-06 PERF EXEC
01-DEC-77 14:53
CZR&PC. Pll

MRCY11

MOl

30(1046)
01-DEC-77?
15:04
PRGE 221
%*REMOVE PARAMETER BLOCK FROM COMMAND

.SBTTL

SEQ 0219

INITIATION QUEUE

#REMOVE PRRAMETER BLOCK FROM COMMAND INITIATTON QUEUE

H‘I*llll!!llllliill!lil! 3636 96 36 36 36 36 36 36 36 36 36 3 3 36 3 3 36 3 3 3 3 9 3 3 3 3 3 3 3 3 3% 3 3 % % % W % %%

Sa
Ta

;#CALL

i %

THIS ROUTINE WILL CHECK IF THE CURRENT Pnnnnsrsa BLOCK

ROUTINE WILL REMOVE IT FROM THE COMMARND INITIhTION QUELE.
1S

IN THE COMMAND

JSR

RETURN

INITIATION QUEUE.

HIS

PC,@.RMOV

iNOTE RS CONTAINS RDDRESS OF CURRENT PRRAMETER BLOCK.
l!!!i!l!!lill!lllllllllll!llllll!llllll!!llil!llll!illll!li*lfll!

BIT

#Q. INIT,P.PRST(RS)

001001

BNE

J0207

RTS

MOV

R4, -(SP)

MOV

sCINITQ,RY

Lono noonsss OF COMMAND INITIATION

BNE

(R4),R3
118

GET NEXT o

gns

R3§RS

;
=x% FLAGS DO NOT AGREE WITH
. COMMAND INITIRTION QUEUE
Ecx
xr
ggnnscr PRRAMETER BLOCK

051626

3032765

051634
051636

O40000

000014

Q.Rnov:

S%:
0013e4

108:

MOV

MoV
HALT

118:

000767
016314
001012

000064

022704
00140S
162704
010437
000402

001324

005024
00S01Y4
042765

12%:

040036

000014

TORE

012603
012604
000207

TACK

ICHECK IFN85 uSRE L ELEMENTS

#P. QLNK, R4
108

:CALCULATE LINK ADDRESS
:GET NEXT ELEMENT OF QUEUE

MOV

P.QLNK(R3),
(RY)

;UPDATE QUEUE LINK

CMP

#CINITQ,R4

IF
NOT, DO NOT UPDATE QUEUE TRIL
;cuscx IF ONLY ELEMENT IN QUEUE

SUB
MOV
BR

#P. QLNK , R4
R4.CINItg+2
15¢

'ADJUST R4 FOR TAIL POINTER
:LORD TAIL
:RETURN

BNE

148:

CLR

15%:

BIC

CLR

158

14%

(RY)+

(RY)

us ATE L?

MOV

MOV
RTS

Ess POINTER

iCHECK IF LAST ELEMENT OF QUEUE

:YES,

CLEAR HEAD AND

;CLEAR HEAD OF QUEUE

CLEQR TAIL OF QUEUE

#DRVPDT!DRVPOS!
Q. INIT,P PRST(R? -CLEAR DRIVE POSITIONING
;"

:
051732
051734
051736

R4 on
?TQCK

Rg R4

BEQ

000064
001326

FROM COMMAND INITIATION QUEUE
;RETURN

MOV

ADD
BR

000064

R3! ~(5P)

;CHECK IF PARAMETER BLICK ENQUEUED IN

INITIATION QUEUE
'YES, REMOVE PARAMETER BLOCK

(SP)+,R3

(SP)+ R4
PC

DRIVE

ONING FOR DATA TRANSFER AND
IN INITIA TioN QUEUE

pnnnmsrea BLOCK ENQUEUED

:RESTORE R3

:RESTORE RY4
:RETURN

cznspco RK&11-/06 PERF EXEC
CZREPC.PI11
01-DEC-77 14:53

MACY1l 30(1046)
0}-DEC-?7 15:04
¥COMMAND OPTIMIZER

NO1

PAGE 222

SEQ 0220

gg;g

.SBTTL

ggi‘s{

;ill!lll!!*!il!il!!lll!!lllil!l!l*!illl!ll!li!!!lill!ll*ll!l!!ll!

9816

Tx
i *

PARAMETER BLOCK OF THE FIRST DRIVE WHICH IS NOT POSITIONING
IN THE COMMAND INITIRTION QUEUE.

€20

:%CALL

JSR

9817
gg{g
9821

" x

9822

*COMMAND OPTIMIZER

THIS ROUTINE WILL INITIATE THE COMMAND AS SPECIFIED IN THE

RETURN

PC,C.OPT

9823
9824
9825
ggsg

‘x
sy
T
M

gggg

:; 336 36 36 35 36 36 36 3 36 36 3 36 36 36 3 36 3 3 36 3 3¢ 3 3 3 36 3 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 % % ¥ ¥ %

9830

0S1740

010546

9832
9833
9834
9835

051744
051746
051750
051752

010346
010246
010146
010046

051760

012737

000001

052002
0S2006

013702
016237

001446
000000

9831

0Si742

9836

081754

9838

051766

9837

3835
9843

C.OPT:

010946

013746

013737

001452

000200

001500

MOV

RS, -(SP)

;STORE RS ON STACK

MOV
MOV
MOV
MOV

R3,-(SP)
R2.-(SP)
RI,~(SP)
RO, - (SP)

'STORE
:STORE
*STORE
:STORE

R3
R2
R1
RO

:SET

FLAG FOR CMND OPTIMIZER

MOV

001410
001410

:STORE R¥ ON STACK
ON
ON
ON
ON

STACK
STACK
STACK
STACK

MOV

PS’ -(5P)

MOV

RKPRI,PS

MOV
MOV

RKBRS, R2
22c§§ uxgu BASE nooasss OF THE RKOb
RKCS1(R2),T.CS1 5sTORE COMMAND AND STATUS REGISTER 1

JSR

PC,Q.SRCH

ssbncu FOR PARAMETER BLOCK ADDRESS
cuetg Rgaxvs INTERRUPT WRITING

MOV

177776

R4, -(SP)

;LOCK OUT RKDO& INTERRUPTS

052024

004737

051542

gggg

gggggg

88?38:

040000

001410

Séé

:g£,1.051

9882

052052

012762

000300

000000

MOV

sINTR; RKCS1(R2) roacs INTERRUPT TO SCAN DRIVE ATTENTIONS

9855

0S2064

112737

000001

001410

9858
9859

052100
(052106

032737
001034

010000

001412

9862

052120

013703

001412

9865

082136

006303

9867

052146

005037

ggga

9863

052060

(0S2124

006137

042703

0S2444

177770

9864 052130 156337 001514 001512
9866

0G2140

O0lI3763

001476

001464

001544

12%:
1S:

MOVB

#ROY, 7.CS|
128

:STORE PSW _ON STRCK

062014
052022

9851 052044 112737 177777 001506

BIT
BEQ

#1 OPTFLG

9844
9845

9845

032737
001416

177776

ROUTINES USED:
C.INIT
Q.PUSH
Q. SRCH

#-1.1.ISRL

;CHECK IF RERDY SET
'NO, WAIT FOR COMMAND COMPLETION

Ef FLRG THAT INTERRUPT WAS FORCED

JMP

0.RTRAN

'RESTORE REGISTERS

MOVB

#DR.SEL, T7.CS1

SET DRIVE SELECT BIT

817
BNE

SNED, 7.CS2
248

see IF NED ERROR SET
an IF YES

MOV

T. csa R3

cs RK csa

BIC

BISB
ASL

MOV

CLR

¥i77770.R

:CLEAR ALL BUT DRIVE NO.

Inrnsxrha) W.TIME;SET BIT FOR THIS DRIVE

W.MIN,W.DRV(R3)

0.uWRIt

;SET TIMER FOR 1 MINUTE FOR RELEASE

:CLEAR WAITING FOR CMND COMPLETION

CZR6PCO RKB11/06 PERF EXEC
CZRBPC.P11
01-DEC-77 14:53

3868

0S2152

004037

MACY11 30(1046)
O01-DEC-?7
15:04
%COMMAND OPTIMIZER

046712

PARGE 223

SEQ 0221

J.RTRN
BiC
BIS
JIMP

RO, I.CCLR

ERROR RETURN ADDRESS
#DRVPOS
! DRVPDT!Q’ INIT, 2. PRST(RS)
#DRVSZD,P.PRST(RS) :SET DRIVE SIEZED FLAG
0.RTRN
-Exi

: ISSUE CONTROLLER CLEAR

3875 (52204 122765 000164 000001

CLR

P.ERR(RS)

CLEAR ERROR STATUS INFORMATION

9876

062212

O00I410

CMPB

BEQ

. YE

9878
9879
9880

052222
(062224
052232

101021
122765
103415

000131

000001

BHI
CMPB
BLO

33
:NO, GO TO THE COMMAND INITIATOR
8 'RTCHK,P. cnuo(ns):CHECK IF SPECIAL COMMAND
3s
YES, GO TO THE COMMAND INITIATOR

9882

052240

136437

001514

001513

9884

052250

032765

000004

000014

3869
9870
3871
9872

052156
052160
052166
052174

0S2444
042765
052765
000137

052444

9874

(052200

005065

000212

€873

052200

CY40006
010000

JSR

BO2

000014
0000!4

10%:
248

9877 062214 122765 000121 000001
9881 052234 116504 000000

CMPB

2s:

0S2256

BIT B
BEQ

BIT

9887
052260 042765 040004 00CO14
3888
9886

MOVB

001411

BEQ

3889

9891

9892
9893
389y

383
9897

0S2266

052272
052276
052300
0S2302

010537

004737
000000
156437

052310

010403

9900
9901
3302

052314
052322
0523%

013763
005037
105037

052312

3s:
4§

006303

001514

001512

001472
001464
(CO1S06

001544

9904

3305
9906
9307

9308
9909
3310

052332

042765

075176

000014

052340

052765

9916

052346

010500

9917
9918
3313
9321

9952
9923

(052350
052354
0523%
052362

052364
052366

062700
010501
062701

005020

020001
101775

040006

000014

sroks DRIVENUMBER

N0,

INTMSK(RY) | 0.0VER: CHECK IF OVERLAPPED OVERATIONS FOR THIS DRIVE
G O TO THE COMMAND INITIATOR

sDRVPDT, P. PRST(RQ):CHECK IF POSITIONING FOR
N b A TRANSFER OCCURED

I
SUE SEEK

#DRVPDT!Q. INIT,P.PRQT(RS)
:CLEAR POSITIONING IN PROGRESS FOR
A TRANSFER AND PARAMETER BLOCK ENQUEUED
;
R INITIATION GUEUE

RS, 48

;LORD PARAMETER BLOCK ADDRESS

0.RTRN

'RESTORE REGISTERS

JSR
.WORD
BISB

PC.C. INIT
O

: ISSUE_COMMAND
; ADDRESS OF PARAMETER BLOCK
PLACED HERE

INTMSK(R4Y),W.TIME

;SET WATCH DOG TIMING

MOV

RY,R3

MOV
CLR
SRe

W.SEC,W.DRV(R3) :LOAD WATCH-DOG TIME
0.WAIt
!CLEAR WAIT FOR COMMAND
Y:MeR(
!CLEAR RELERSE OF INTERRUPT ISSUED

,sfo
RE_DRIVE NUMBER

MULTIPLY DRIVE NUMBER BY 2

RESET ALL THME BITS IN THE PROGRAM STATUS REGISTER EXCEPT

:
:

DROP DRIVE FROM TEST SEQUENCE
INHIBIT BUS ADDRESS INCREMENT
#+C (DRVUSE
! W. WCK 'NOCHK! DRPDRV'DTBRII) P.PRST(RS)

;

3314

P.DRVN(RS),RY

MOV

ASL

:
!
:

9912

9913

S8:

HECK IF IHPLIED SEEK

SRDDATA, P. CMND(RS) buec IF DATA TRANSFER

00046!

9898
9893

052276

047716

#RDALHD, P.CMND(RE) cuecx IF READ ALL MEARDERS

000016

DRIVE IN USE
WRITE FOR WRITE CHECK
NO CHECK

BIC

SET DRIVE POSITIONING,

BIS

$DRVPOS
! DRVPDT!Q. INIT,P.PRST(RS)

MoV

RS, RO

ADD
MOV
ADD

000062
&s:

DRIVE POSITIONING BECAUSE OF LATA TRANSFER,

AND PARAMETER BLOCK ENQUEUED IN INITIATION QUEUE

CLR

CMP
BLOS

$P.CS1,R0
RS, R1
#P_EPAT,R1
(RO)+

RO, R1
&S

; STORE PARAMTER BLOCK ADDRESS

'CALCULATE FIRST LOCATION TO BE CLEARED
:STORE PRRAMETER BLOCK ADDRESS
!CALCULATE LAST LOCATION TO BE CLEARED
:CLEAR RETURN PRRAMETERS

!CHECK IF FINISHED
'NO, CLEAR NEXT RETURN PARAMETER

CIR6PCO RKbB11-06 PERF_EXEC

CZREPC.PLI

9924

9925
9926

052370

01-DEC-77 14:53

00S062

052374
05e4Qe

016562
C10462

gggg

0S2414

9931
9932

000026

MACYll 30(1046)

#COMMAND OPTIMIZER

CLR

PAGE 224

SEQ J222

; CLEAR MRINTENANCE REGISTER 1

MOV
MOV

P.CYLN(RS) RKDCYL(RE) +LOARD CYLINDER ADDRESS
R4, RKCS2 (R2)
D OEVICE NUMBER

042765

165777

000016

BIC

CfC<CFMT'CbT),P CS1(RS)’ CLSRR EITS EXCEPT FORMAT AND

855430
0S2436

86683;
4

000016
051406

000C00

0S2444

005037

001500

0S2462
(0S24e4
052466

012603
012604
012605

0Se442

9936
9937
9338
9939

052450
0S2454
0S2456
0Se460

9943

0S2470

9940
9341
9942

RKMRI1 (R2)

coe2

000020

MOvB

9930 0S2422 112765 000117 000016

9935

15:04

000002
000010

9927 (0524C% 116565 000007 000017

ggga

O01-DEC-77

001324

012637
012600
012601
012602

000207

177776

MovB

#SEEK,P.CS1(RS) :STORE CbHHRND

MOV
JSR

CSltRS), CSl(h éué
RO Q.PUSH
EQU
COHHQND IN COMMAND

CLR

OPTFLG

MOV
MOV
MOV

(SP)+,R3
(SP)+,RY
(SP)+,RS

CINITQ
O0.RTRN:

P.LS1HIRS),P. CSl*l(RS);STORE BITS 8-1S OF CS1

MoV
MOV
MoV
MOV

RTS

;

INITIRTIRTION QUEUE

;CLERR OPTIMIZER FLRG

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

{RESTORE PSW
:RESTORE RO
{RESTORE RI
iRESTORE R2

RETURN

; RESTORE R3
; RESTORE RY
; RESTORE RS

CZR6EPCO RKE11-06 PERF EXEC

CZR&PC.P11

01-DEC-77 14:53

gg:g
9946

9947
9948
9949
9950

MACYL11 30(1046)

3?5“78
S0
(52504

0S25i0

104401

861949
4737
104401
000002

064700

052774
001165

15:04

D02

MEMORY CHECK ENRBLE TEST

.SBTTL
Q0S2472

O01-DEC-7??7

MEMERR:

PARGE 225

MEMORY CHENK ENABLE TEST
TYPE

ngv
JSR
TYPE
RTI

ERR400

tsp),-isp)
PC,.BINOC
,$LRLF

s TYPE UNEXPECTED MEMORY PARITY TRAP

"TYPE PC VALUE
; RETURN

SEG 0223

CZR6PCO RKb11-06 PERF_EXEC
01-DEC-77 14:53
CZR&PC.P 11

15:04

01-DEC-77

MACYLl 39(10“6)
YPE ROUTINE

.SBTTL

EQ2

SEQ 0224

PRGE 226

TYPE ROUTINE

Lttty l

et e S S e S et Ll s bt bodbobobfatobodobatetdofotalhododylad-tal-dol

*%ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O SYTE.
!¥THE ROUTINE WILL INSERT_A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
; #NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHRRACTERS REQUIRED.
i ¥NOTE2:
$FILLC CONTRINS THE CHRRACTER TO FILL RFTER.
;:NOTEB:

S %CALL:
‘x])

;:on

USING A TRAP INSTRUCTION

; %
Ly

TYPE
MESADR

§TYPE:

TSTB

; %*

001157

0sasie

TYPE

BPL

HALT
18:

000002
000001

goielo

000100

0Cciell

05esee
0ss424
000040

001211l

6l1%:
628 :

2s:
000002

000011

608 :

4§:

000200

052770
0Se7a4
001156

052660
052664
0Sebbb
0ses72

105366
0027790
004737
105337

000001

0se27eM
052770

. ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

::1S THERE A TERMINAL?

2:BR IF YES

S!HALT HERE IF NO TERMINAL
D ILEAVE
JiSAVE RO

BR
MOV

3%
RO, - (SP)

gIT8
BEQ
MOV

L ;; SPOOL MESSAGE TO APT
, SENVM
#APTSPOO
::NO,GO CHECK FOR CONSOLE
ADDRESS FOR APT
MES
iisetuP
RO,61$
APT

MOV
CMPB
BNE

JSR
.WORD
BITB
BNE

MOVB

BNE
TST

MOV

ADD

J32lsP), RO
$APTENY, SENV
62%

::GET RDDRESS OF ASCIZ STRING
:RUNNING IN APT NMZCS
*INO,GO CHECK FOR APT_CONSOLE

T0
MES
: 1SPOOL
PC.SATY3
ARDDRESS
MESSAGE
s
;
O
SAPTCSUP, SENVM ; ; APT CONSOLE SUPPRESSED
: S YES,SKIP TYPE OUT
60%
: {1pUSH CHARACTER TO BE TYPED ONTO STACK
(RO)+,~-(SP)
PIBR IF IT ISN’T THE_ TERMINATOR
yg
! !IF _TERMINATOR POP IT OFF THE STACK
(SP)+
: 'RESTORE RO
(SP)+,R0O

82, (SP)

: 'ADJUST RETURN PC

RTI
8259

#HT, (SP)

: 'RETURN
:IBRANCH IF <HT>

gnze

ggRLF,(SP)

: sBRANCH IF NOT <CRLF>

ST
IéfiEr

(SP)+

;;POP_ (CR)<LF> EQUIV
*TYPE R CR AND LF

CLRB

$CHARCNT

. s CLERR_CHARACTER COUNT

‘

:IGET_NEXT CHARACTER

5%:
6%:

B8R
JSR
CMPB

23
PC,STYPEC
sFiLLC, (SP)+
2%
$NULL , - (SP)

::G0 TYPE THIS CHARACTER
1116 IT TIME FOR FILLER CHARS.?
*:IF _NO GO GET NEXT CHAR.
!!GET 8 OF FILLER CHARS. NEEDED

7%:

DECB
BLT

1(SP)
&3

1!DOES A NULL NEED TO BE TYPED?
!!BR IF NO--GO POP THE NULL OFF OF STACK

DECB

$CHARCNT

001154

0S2654

, MESADR

BNE
MOV

JSR

PC,$TYPEC

*2AND THE NULL CHAR.

GO TYPE A NULL

DO NOT COUNT RS A COUNT

CZR6PCO RKG11/06 PERF_EXEC
CZREPC.P1!
01-DEC-77 14:53

igggg

052676

MACY1l 30(1046)
01-DEC-77
TYPE ROUTINE

000770

igggg

10011

0S2700

082704
052710
052716
052720

10017

0S2724

112716

004737
132737
001372
005726

052722

000724

10018

052730

100375

10020

062740

122766

10619

FO2

PAGE 227

; ; LOOP

s HORIZONTAL TAB PROCESSCR

10012
10013
10014
10015
10016

15:04

052732

000040

052724
000007

105777

126220

116677

000002

052770

93:

MOVB

JSR
BITB
BNE
TST

$TYPEC: TSTB
BPL

126212

MOVB

,,REPLACE TAB WITH SPACE

TYPE A SPACE
::BRANCH IF NOT AT
::TAB STOP
,,POP SPACE OFF STACK

a8TPS

:iWAIT UNTIL PRINTER IS READ(

$TYPEC

2(SP),38TFB

:GET_NEXT CHRRACTER

LORD CHAR TO BE TYPED INTO DATA REG.

CLRB

SCHARCNT

' 1 YES-~CLEAR CHARACTER COUNT

CMPB
BEQ
INCB

SLF,2(SP)
STYPEX
(PC)+

,,IS CHARACTER A LINE FEED”
iBRANCH _IF YES
: ;COUNT THE CHARACTER

STYPEX:

RTS

%gggé

.SBTYTL

BINGRY TO OCTAL

iggga

;i!l*lllilll!i*lliill!llllilll!l!!llill!llli!illil*i!ii!li!lllil-l

10035

P
X

6-DIGIT OCTAL

10038
10039

J¥CALL
Tx

MOV
JSR

0S2746

001003

10023

052754

000406

10027

052770

000000

10024
10025
10026
10028
10029
10030

052750

0S27Se6
052764
052766
052772

105037

052770

122766
001402
105227

000012

}883?

1S:

9°
R

igg:g
10044

BNE

STYPEX

:BRANCH IF NO

s 1EX

; ;CHARACTER COUNT 35TORAGE

(ASCII) CONVERSION

THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARRY NUMBER T

RETURN

(ASCII) NUMBER.

NUM, = (SP)
PC,BINOCT

;NUMBER IN OCTSTG

: !il!!l*lllllllll!il!!!llll**!&ll!lllllllllllllll!il!iiiii!!}Qli
052774

052774

axnocr:

010346

10046
10047
10048

052776
053000
053002

010946
010546
012704

10050
10051
10052
18823

053012
053016
053020
053022

012703
00S013
006105
000404

1005

053024

006105

10058
10060
10061
10062

053034
053036
053042
053046

106113
142713
152723
00S304

053026
053030
053032

; ;PUSH R3 ON STACK

MOV
CLR
ROL
BR

#0CTST4,R3
(R3)
RS
33

:LOAD RODRESS or CONVERTTED STRING
:CLEAR OUTPUT BYTE
:ROTATE MSB INTO “C*
iGO DO MSB

2s:

ROL

;FORM THIS DIGIT

3s:

ROLB
BICB
BISB
DEC

MOV

053070

177770
000060

R3,-(SP)

R4, -(5P)
ns -(SP)
RY

000006

006105
006105
110513

MOV

MOV
MOV
MOV

10049 053006 016605 000010

10056
10057
10058

$CHARCNT: .WORD

000207

igggg

10046

000002

CMPB

,(SP)

,,IS CHARACTER A CARRIAGE RETURN?

10022

000002

8’

PC,$TYPEC
87, SCHARCNT
qs’
(SP)+

cca 2lsP)

10021

000015

8%:

ROL
ROL
MOVB

10tsp) RS

RS
RS
RS,

(R3)

(R3)
.177770 (R3)
0, (R3}+
nq

; ;PUSH RY ON STACK
:PUSH RS on STACK
:STORE COUN

:PICKUP INPUTUMBER

;GET LSB OF THIS DIGIT
:GET _RID OF JUNK
IMAKE IT ASCII
:CHECK IF DONE

SEQ 0225

CZREPCO RKB11-/06 PERF EXEC
<ZR6PC.P11
01-DEC-77 14:S3

GO2

MACY!l 30(1046)
O0Ol1-DEC-7?7
15:04
PAGE 228
BINARY TO OCTAL (RSCII)} CONVERSION

10063

0S30S0

001365

8NE

;NO CONVERT NEXT DIGIT

10065
10066
10067

0S3054
053056
0S3060

0l2604
012603
O0ieele

MOV
MOV
MOV

(SP)+ RY
(SP)+,'R3
(SP)+. (SP)

,,POP STACK INTQO R4
; :POP_STACK INTO R3
QETUP STACK FOR RETURN

f 8893

053066

000207

RTS

*RETURN

10071

0S3070

000006

10064

0530Se

012605

MOV

10068 0S3062 104401 0583070

{88;5

053076

000

(SP)+,RS

TYPE

000

QCTSTG

OCTSTG:

.BL<B

.SBTTL

TTY

igg;g
10076

.BYTE

;POP STACK INTO RS

TYPE NUMBER

ag,0

INPUT ROUTINE

o 3630 I 0 U636 36 46 96 36 06 30 06 06 96 36 36 36 36 3 3 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 3 3 96 36 3 3 3 36 3 3 36 9 36 3 3 3 3 3 3 % 3 % 3%

1007?

10078
10079

{50t

10082

"ENABL

LSB

.DSABL

LSB

o 303636 3 36 36 36 36 06 96 36 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 96 36 3 36 36 36 36 36 6 36 36 3 3 36 3 36 3 36 36 3 3% 3 96 36 3¢ % %

{8883

iggfis ROUTINE WILL INPUT A SINGLE CHRRACTER FROM THE TTY

10085
1086

:l
s

17087

10088
10089

053100

011646

1009¢
10093
10094

083110
083114
0583116

1058777
10037S
117766

10097
10098

0S3140
053142

10095
10096

053102

063124
063132

10099

0S3146

10101
10102
10103
10104
10108

0583154
083160
053164
083166
0583170

10107
10108
10109

0583200
0S32
0S3210

10100

10106

10110

10111

0S31S0

016666

042766
026627
001013
105777

100375

117746

000004

000002

126024

000004

126030

177600
000004
125776

026627
003003
042766

000004

000175

000040

000004

000002

TSTB
BPL
MOVB

MOV

J3%:

ws-

(SP),-(SP)

; INPUT A SINGLE CHRRACTER FROM THE TTY
,,CHQRQCTER IS ON THE STRCK
; s WITH PARITY BIT STRIPPED OFF

PUSH DONN THE PC

H(SPi,E(SP)

,,SQVE HE PS

8IC
CMP

#1C<127> 4(SP)
H(SPJ.OEQ

;;GET RID OF JUNK IF RNY
s3IS IT A CONTROL-S”?

B8PL

BIC
CMP
BNE
BR
CMP

#1C177, (S5P)
(SP)+,521
23
19
4(SP), #8140

H KE IT 7-BIT ASCII
IS ITR CONTROL-Q”
IF NOT DISCARD 1IT
YES RESUME
IS 11 UPPER CARSE?

4(SP),#l7S
4s
#40,4(SP)

IS IT A SPECIAL CHAR?
BRQNCH IF YES
,,MQKE I7 UPPER CRSE

BNE
TS78

MOVB

000140

053216

18:

125772

000004

002407

MOV

c9%:

177600
000021

083176

SROCHR:

000004
000023

042716
022627
001366
000750
026627

10112
10113

BLT

CcMP
BGT
BIl.
RTI

J$TKS
18
JdSTKB,4(SP)

3%
Q$TKS

JSTKB,-(SP)

4ys

s ;WARIT FO
; ;A CHRARACTER
,,REQD THE TTY

,,BRRNC IF NO
;:WRIT FOR R CHARACTER

,,LOOP UNTIL ITS THERE
+GET CHARACTER

RANCH IF YES

: GO BACK TO
USER

!ll&!&lllilli!!ii;**i*illilli*iiil*l!llil*i&l!l*&l*i}ii**i***i*

iTHIS ROUTINE WILL INPUT
A STRING FROM THE TTY
*CRLL

10118

igiig

10118
1011.

RDCHR
RETURN HERE

;

10090

10091

SEQ 0226

% )

083220

010346

SROLIN:

RDLIN

RETURN HERE
MOV

R3,-(SP}

;; INPUT
A STRING FROM THE TTY

; ; ADDRESS OF FIRST CHQRRCTER WILL BE ON THE STRCK
:; TERMINARTOR WILL BE
R BYTE OF ALL 23’S
; :SRVE R3

CZRePCO Rkb11-/06 PERF EXEC

01-DEC-77 14:53

CZREPC.PL1

101

00504

MACY1l 30(1046)

TTY INPUT ROUTINE

18:

053454

181&3 83355 81390
022703 053505
10121
101456

2s:

37§

000177

10%:

104401

053452

103434

10122

10123

osae

0832

10124 053240

10152 gggsu
101

104402

11261
10

10127 053250 005716
00390?
32
18129
10129 0383284 112737 000134 053452
10130

10131

053266 012716

177777

10132 053272 005303
10133 053274 020327 053454
10134

10135
10136
10137
10138

053302
053306
osg 12
053314

111337 053452
104401 053452
000746
00S716

10141

0683326

104401

10139

10140
10142
10143

053316

0533

063332
33

112737 000134 053452
053452

5$:
78:

8&3358 122713 000022
10149
10148 053354 001011

8%:

053340

001003

18{35 053332 6oq;gé 053505

10149
10150
10151
10152
10153

053356
33
053364
053370
063372

105013
104401
104401
000717

001165
053454

104401

001164

104461

0853482

10164 053376 000712
111337 053452

10155 0S3400
10156

101567

10158
10159
10160
10161
10162

053404

053410

053414
(0S3416
053422
0683426
053430

122723

10163 053432 011646
10164 053434 016666
10165 053442 012766
10166 053450 000002
000
10167 053452
000
10168 053453
10169 053454 000031

10170 053505
10171

10172
10173

10174

043536

063524

036440

053530

000004
053454

BLOS

CMP

ROCHR

D18

020040

005015

000

0S1412

0S1i2?

042516

020127

000040

:CLEAR THE RUBOUT KEY

*GET ADDRESS
#$TTYIN,R3S. R3 ,,BUFF
FULL?
ER
#$TTYIN42
H:

: GO Rsno ons CHARACTER FROM THE TTY

(SP)+, (R3)

,,?ET HARACTER

BNE

TYPE

xs THIS THE FIRST RUBOUT?
‘B8R IF NO
;-TYPE A BRCK SLASH

b-1,(sP)

MOVB

CMPB

TST
BNE
MOVB
MOV

DEC
CMP

MOVB
TYPE
BR
TST
BEQ

MOVB

CLR
CHMPB

BNE

g;PE

CMPB
BNE

CLRB
TYPE
TYPE
BR
TYPE

BR
MOVB

TYPE
CMPB

BNE
CLRB
TYPE
TST
MOV

000002
000004

SEQ J227

PRGE 229

MOV
MOV
MOV
RTI
.BYTE
93
BYTE
STTYIN: .BLKB

2177, IR3)

(SP)
33
#'\,9%
qg

R3
R3, #STTYIN
4g

(R3),9%
93
23
(SP)
73

%'\, 9%
93

tsp)
#25, (R3)

$CNTLU

cge,(na)

33
(R3)
, 3CRLF
"§TTYIN

$CNTLG: .ASCIZ
$MSWR:

.ASCIZ

S$MNEW:

.RSCIZ

A RUBOUT

:SET THE_RUBOUT KEY

:BACKUP BY ONE
,,srncx EMPTY?
;;BR_IF YES

:GETUP TO TYPEOUT THE DELETED CHAR.

,,co TYPE
G0 _READ RNOTHER CHAR.
,,RUBOUT KEY SET
IF NO
::TYPE A BACK SLASH

,,CLERR THE RUBOUT KEY
:1S CHARACTER R CTRL U?
'BR

IF NO

A CONTROL ey
,,TEPE

gnnnnc?ssA "tR"?
::?
,,BRQNCH IF NO

:CLEAR THE CHARACTER
A
ATHE“CR"
£
INPUT STRING
,,TYPE
,,co PICKUP ANOTHER CHACTER

93
(R3)+
kiS,

;CHECK FOR RETURN

SQUES

i3
(R3),9%

23
-1(R3)
SLF
tsp)+
(SP)+,R3

(SP), =(SP)
4(sP}, 2(5P)
sSTTYIN, G(SP)
O
O
25.

<12
136 006525 0000i2 S$CNTLU: .ASCIZ /tU/¢1S
/<15><12>

0S3512
083517

3%:

000015

00130S
105063 177777
104401 001166
005726
012603

-(SP)

TYPE

000025

10144

15:04

CLR

MOV

BLO

001406

005016
122713

O1-DEC-77

<1S><12>/SWR = /

NEW = /

R
YPE

CLERR THE aurrsn AND LOOP
'ECHO THE CHARACTER

,,LOOP IF NOT RETURN
:CLEAR RETURN (THE 1S)
,,TYPE A LINE FEED
:CLEAN RUBOUT KEY FROM THE STACK
;;RESTORE R3
SS OF THE
! 'ADJUST THE STACK AND PUT_ADDRE
FIRST ASCII CHARACTER ON IT
i

; s RETURN

sronncs FOR ASCII CHRR. TO TYPE

,,TER INATOR
RESERVE £5. BYTES FOR TTY INPUT
: CONTROLU

: :CONTROL "G"

CZREPCO RKb611-06 PERF_EXEC
01-DEC-77 14:53
CZRePC.P11

053536

Bt Pt ot Pt ot P Pt

02007S
0S3s42

000

30(1046)
18] Y INPUT ROUTINE

:*CRLL
; ®

P ¥
l

05357¢
001452
125364
000100

053570

053572

1177237

053600
0S3606
0S3614
053616

000060
000062

0S4134

000200
000003

OS4134
054134

STKINT:

0oo100

125264

053662
0S3670
053672
053676

122737
001403
104401
000002

000007

DS4134

053700

022737
001373
122737
001767
104401
10440]
013746
oQ4737
104401
005077
005046
005046
105777

0s4134

001140

000001

001134

ALL

THE

PC,STKINT

gov
ov
TST
MOV
RTS

#STKSRY, TKVEC

RKPRI, TKVEC+2

ATTK
$1E,
IS TKS
PC

MOVB

J37KB,
28

BICB
CMPB

#B177,2%
£3,28

TYPE

§CNTLC

BNE

ISTKS

JSR
MOV

PC, OPRCMD
RKPRI, PS

5$:

IS REGNIZED)

;PICK UP CHARRACTER AND STORE FOR
;"
"PRINT OUT
iSTRIP THE JUNK
'15 IT A CONTROL-C

NO PRINT (CHRR>?<(1S>
(12>
:TYPEA CONTROL-C

:CLEAR INTERRUPT ENRBLE
:REINSTATE PREVIOUS PSK
PROCESS OPERATOR COMMAND

ORD PSW TO LOCK OUT TTY AND RKOG

CLEQR DONE FLAG
;ENRBLE INTERRUPTS
:RETURN

CMPB
BEQ
TYPE
RTI

87,28
S3
.28

cnscx

CMP
BNE

#SWREG, SWR
3s

BEQ

TYPE
TYPE

MOV
7%:

(ONLY CONTROL C

d3TKB’

cCMPB

19%:

2(SP),PS

; INITIALIZE THE KEY BORRD VECTOR

;LOCK RKO& AND TTY INTERUPTS
:CLEAR DONE _FLAG
{ENABLE INTERRUPT
; RETURN

TST

MOV
RTI

18:

CLR

MOV

0s3si2

1e51eH4

JSR

RETURN

$TKSRV:

3%:

000176

THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD
OPERATOR TO COMMUNICATE WITH THE PROGRAM.

TK SERVICE ROUTINE

177776
012777
000002

INITIARLIZE ROUTINE

.SBTTL

054141

053652
053660

3 JE36 3636 36 26 36 36 36 36 38 36 36 38 36 3 36 3 36 36 36 3¢ 36 36 36 36 36 36 36 36 36 36 3¢ 3¢ 36 36 36 36 36 36 3 3¢ 3 3 36 3 3¢ 3¢ 3 36 36 96 36 36 36 3 3 06 06 3 3 3 3

177776

0S3754

SEQ 0228

125354

1253S0

125174

PAGE 230

(2222222222222 2222 2222222222222 2222222222 2222 2222222222222 22

I
,l

053542
0S3550

15:04

102

.EVEN
.SBTTL

s Pt P

ot Pt Pt Pt Pt Bt Pt Bt Pt Pt Pt et Pt (et Pt et s it Pt e et Pt Pt Pt Pt etPt Pt Pt et Pt s Pt Pt Pt Pt Pt Pt Pt P Pt s Pt Pt P

0000000000000 00000 0000000000 0000000000000 00000000000000
o oD
R RDRR RN
Ot Pt Pt Pt Pt Pt Pt Pont Pt Pt Pt Pt Pt Pt ot Pt Pt P P
g nFUMUN 0t e 4t s s Pt e s e pe ()
J£0
0 000000 00w
DO
L w N—=OVONCNLWNN—0O
W

1017S

MACY1l

01-DEC-77

#1E, 38TKS

, SAUTOB

scanc
MSWR

sunsc -(SP)

JSR
TYPE
CLR

PC,BINCCT
SMNEW
AFTKS

TSTB

A$TKS

CLR
CLR

-(S5P)
-(5P)

IF CONTROL G

*YES,
GET NEW SWITCH REGISTER VALUE
'PRINT CHARACTER ?<15><12>

;

TURN

s CHECK

IF SOFTWARE SWITCH REG

NO, RETURN
:CHECK IF IN RUTO ACCEPT MODE
:YES, RETURN
s TYPE CONT oL G
;TYPE OLD SW-TCH REGISTER
;GO INTO FLAG MODE

.,CLERR COUNTER
: THE NEW SWR

:'CHAR THERE®

CZR6PCO RK611/06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

igggé

053760

10233

083762

053766

042716

117746

125160

10236

083772

021627

000025

10238

0S4000

0S4004
0S40i10

104401

062706
00075?

0S350S

000006

10243
10244
10245

0S4012
054016
(0S4020

r"1e27
0LJ1016
005766

00001S

10247
10248
10249

054026
0S4034
0S4040

016677
062706
104401

000002
000006
001165

054052
0S40S4

002
004737

{8%3;

10237

10239
{gg:?
10242

10246

10250
10251
10252

10253

10254
10255
10256
10257

10258

0537?76

054024
054044

(QS4060
054064
054066
054072
0S4074

Q0S4100

10037S

001005

001403

012777
021627

2420
021627
003015
042726

005766

10259
10260
10261
10262
10263

0S4104
0S4106
0S4110
0S4112
0OS4114

001403
006316
006316
006316
005266

igggg

0S4132

000724

10269

0OSH4134

000

{gggé

0S4141

136

10264
10265
10266

10270

0S4120
054124
0S4l126

05413S

JO2

MACY11 30(1046)
O01-DEC-77
15:04
PRAGE 231
TK SERVICE ROUTINE (ONLY CONTROL C IS REGNIZED)

0S6616
000713
104401

077

177600
q%:

125104

125072

0Se7e-

000060

J8TKB, -(SP)

CMP

(SP}, 825

;3 IS IT A CONTROL-U?

LOCNTLU

;s YES, ECHO CONTROL-U (tU)

ADD
BR

86, SP
19¢

109:

CMP
BNE
TST

(SP), 815
169
Y(SP)

;IS IT A <CR>?
: :BRANCH IF _NO
;3 YES, IS IT THE FIRST CHAR?

MOV
ADD
TYPE

2(SP), dSWR
86, SP
SCRLF

; ;SAVE NEW SWR
; ;CLEAR UP STACK
;;ECHO <CR> AND <LF>

RTI
JSR

PC,STYPEC

iy
URN
; ;ECHO CHRR

BLT
CMP
BGT
BIC

189
(SP), 867
189
#60, (SP)+

TYPE

BEQ
11%:
148
159:
16%:

MOV
CMP

15T

000002
177776

17%:

001164

189%:

000012

;3;MRKE IT 7-BIT ASCII

208%:

000002

000

; ;PICK UP CHAR

chl??,(SP)
1098

000060

006503

MOVB

;3
IF NOT TRY RGRIN

000067

00S0lS

BIC

000004

000100

BPL

cs:

S$CNTLC:

118

k100, a8TKS

; ;BRANCH IF NOT

;;IGNORE PREVIOUS INPUT
;s LET’S TRY IT RAGRIN

: 'BRANCH IF YES

:'RE-ENARBLE TTY KBD INTERRUPTS

(SP),:&O

;

2(SP)

;1S THIS THE FIRST CHAR

BEQ
ASL
ASL
ASL
INC

179
(SP)
(SP)
(SP)
2(5P)

;CHAR ¢ 07

; ;BRANCH IF YES
;;CHAR > 77
; ; BRANCH IF YES
:;STRIP-OFF RSCII

-2(SP), (SP)
78
$QUES

208

; ;BRANCH IF YES
; ;NO, SHIFT PRESENT
3
CHAR OVER TO MAKE
3
ROOM FOR NEW ONE.
; ; KEEP COUNT QOF CHARR
;;SET IN NEW CHAR
;;GET THE NEXT ONE
;3 TYPE ?2<CR><LF)>

.BYTE

;STORAGE FOR QUESTIONRBLE INPUT

.RSCIZ

/tCr/<15 <12

; CONTROL-C

BIS
BR
TYPE

.RSCIZ2

/<15 <12

; ; SIMULATE CONTROL-U

igg;g

LSBTTL

18532

S5 B0 0T 0606 I 00 030 0606 00 06 0600 000 00 00 00006 0030 3 0006 3003 300 I

10277

10278
10279
iggg?
10e82
10283
10284

10285

10286

%
;

OCTRL TO BINARRY CONVERSION ROUTINE

THIS ROUTINE WILL CHECK A STRING OF RSCII CHARACTERS TERMINATED

WITH A NULL <000> OR COMMA.

IF THE CHARACTERS ARE LEGAL

IT
WILL GENERATE TWO BINRRY WORDS PLACING THE LOW 16 BITS
ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT.

; #CALL
%
]

MOV
JSR

RETURN

‘%

SEQ 0229

(ADDRESS OF RSCII
PC,OCTBIN

STRING>,-(SP)

CZR6PCO RKG11-06 PERF EXEC
CZREPC.P11
0i-DEC-77 [4:53

10290

H ;l!l!!lllilil!!l!!lliii!llll!i*ilililli*!l!i!iiiiillll!illil!lii

0S4146

010046

10291
10292
10293
10294

084150
054152
084154
084160

010146
010246
016600
005001

10296

0S4164

112046

10295

0S4162

OCTBIN:

000010

005002

2%:

MOV

MOV
MOV
MOV
CLR
CLR

MOVB

10297
10298
10299
10300

054166
084170
954174
084176

001423
121627
001420
122716

10302
16303

084204
084210

122716
002425

10305
10306
10307

0S4214
054216
054820

006102
006301
006102

ROL
ASL
ROL

10309

054224

006102

ROL

10301

10304

10308

10310

0S4202
084212

054222

054226

003030

000060
000067

042716

062
000753
005726
010166

10316
10317

42
054252

012602
012701

177770

000010

BEQ
CMPB
BEQ
CMPB

3%:

BIC

81C7, (SP)

(SPY+,R2
(5P)+.RI

;RESTORE R2
'RESTORE RI

0S4264

005726

10324
10325

054270
054272

012601
012600

10327

084276

10326
10328

igggg

054274

084300

013616
000207

000000

$HIOCT:

“GBTTL.

;STRIP THE ASCII JUNK

MOV
MOV

10322

4s:

'ADD THIS DIGIT
:LOOP
:CLEAN PARTIAL FROM STACK
'SAVE RESULT

MOV
ADU

012602

(SP)4,R1
[
(SP)+
R1, 10(SP)

000002

ADD
BR
TST
MOV

012600
062716

10323

AN OCTAL DIGIT

R2
RI
Re

*1F ZERO GET OUT
ICHECK IF COMMA
:IF COMMA GET OUT
:MAKE SURE THIS uHflRflCTER IS
.

£'7, (SP)
4$

ASL

054254
0S42S6

000207

sPICK THIS cunnncren

33
(SP), »’,
33
2’0, (SP)

MOV

0S4262

(RO)+,-(SP)

ASL

054300

{ggg?

:SAVE RO

'SAVE R1
:SAVE R2
:GET RDDRESS OF ASCII STRING
:CLEAR DATA WORDS

010237

10318
10319

RO, -(SP)

R1,-(S5P)
R2.-(SP)
16tsP), RO
R1

BGT

CMPB
BLT

006301

054232
084234
054236
084240
054244

000054

006301

10311
10312
10313
10314
10315

SEG 3230

. %

10287

lgggg

KO2

MACY1l 30(1046)
O01-DEC-?7
15:04
PAGE 232
OCTAL TO BINARY CONVERSION ROUTINE

R2 ' SHIOCT

RTS

(SP)+ RO
82, (SP)

'RESTORE RO
:ADJUST RETURN

TST

(SP)+

;CLEAN UP PARTIAL FROM STACK

MOV
MOV

(SP)+.R]
(5P)+ RO

;RESTORE R
:RESTORE RO

MOV

:RETURN

(5P)+,R2

'RESTOURE R2

3(sP)4+, (sP)

'PUT ADDRESS OF ERROR ROUTINE ON STACK

.WORD

HIGH ORDER BITS GO HERE

RTS

co PROCESS ERROR

DECIMAL TO BINARY CONVERSION ROUTINE

igggé

;i*lllll*lll!*li'lll!llll*lil*l*!lllilllllllliii!llli!lllllll!lllfll

10333

igggg

10334

10337
10338
10333

10340
10341
10342

: %CALL

THIS ROUTINE WILL CHECK
A STRING OF ASCII CHARACTERS rennxnnreo

WITH A NULL <000>

IT WILL GENERATE A

¥
2

MOV
JSR

T
sy

RETURN

OR COMMA.

IF THE CHARACTERS ARE LEGAL

BINARY WORD PLACING IT ON THE STACK.

<noonsss OF ASCII
ECBIN

STRING>,-(SP)

CZR&PCO RK611-06 PERF EXEC
CZR6PC.PILIL
01-DEC-77 14:53

18343

1034y

10345

R IZIT2E 2222222223222
0S4302

10346
10347
10348
10349
10350
10351
10352
10353
10354
10355

054304
S4306
54310
054314
0S4316
0S4320
S43ed4
0S43e6
4330
054332

10358

0S4342

10360
10361

M
0OS4354

10363

0S4362

103
103S

103%9
10362
10364

10365

1ogs
1036
10368

10369
10370
10371
10372
10373
10374
10378
10376
10377

4334
4340

010046

000055

122701

000060

122701
002431

000071

680127
1424

4348

003034

084356

032716

0S4364

S4366

4372
437
0S4374

059358
SYy
054404
0S4406
0S4410
QS4412
0S4414
0OS4416
0S4420

001026

000002

10384

0S4440

005726

10387

0OS4446

012600

iggg?

0S44S0
0S4452

012602
(01ee0l
0213616
000207

10392

4s:

;

A DIGIT BETWEEN O & 9

$'9,R1
s9

BNE

BRRNCH IF NUMBER WOULD OVERFLOW

MOV

(SP),-(SP)

SRVE FOR LATER

BVS
SuB
RADD
BvVS
BR
TS7
BEQ
NEG
MOV
MOV
MOV
MOV

8170000, (SP)
(SP)

(SP)
(SP)
(SP)+, (SP)

5%
#’0,R1
Rl,lSP)
5%
29
R2
43
(SP)
(SP)+, 10(SP)
(SP)+,Re
(SP)+,R1
(SP)+,.R0O

82,(Sfi)

;OON'T LET MUMBER GET TO BIG
T4

;
;

58
¥10

ovsanou ISN'T ALLOWED
STRIP AWAY THE ASCII JUNK
RDD IN THIS DIGIT
OVERFLON ISN'T ALLOWED
LOOP
CHECK IF NUMBER IS NEGARTIVE
BRQNCH IF NO
YES--NEGRTE THE NUMBER
;SRVE RESULT
;RESTORE R2
;RESTORE Rl
;RESTORE RO

sADJUST RETURN

RTS

;

TURN

TST

(SP)+

;CLEAN PARTIAL NUMBER FROM STRCK

MOV
MOV

(SP)+,R2
(SP)+,Rl

RES ORE Re
RESTORE Rl

MOV
TS

a(SP)l,(SP)
PC

90 RESS OF ERROR ON STACK
GO PROCESS ERROR

MOV
.SBTTL

HRKE SURE THIS CHRRACTER IS

CMPB
BLT

ADD
59:

$'0,Rl1

;CHECK IF C
A
;GET OUT IF COMMA

(SP)+ RO

ROUTINE TO SIZE MEMORY

o 363636 36 3 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 3¢ 36 96 36 36 36 36 96 36 36 3 46 35 36 3 36 36 3 3 3% 36 36 36 36 36 36 96 3¢ 36 36 36 36 36 3 36 36 3 3¢ 36 36 3 3

10399
10395

hcaLL:
ISR
PC,$SIZE
'
RETUR
tx

iggg%

10398

3%:

SQVE R1
SR E Re
GET ADDRESS OF ASCII STRING
CLEQR DATA WORD
SIGN SET POSITIVE
SEE IF A MINUS SIGN
BRRNCH IF NO MINUS SIGN
SRVE FOR LATER USE
PICKUP THIS CHARARCTER
,GET OUT IF ZERO

BGT

BIT

000060

;SAVE RO

Rl' ~(5P)
{SP)
1DlSP)
RO
-(SF)
Re
%'
-, (RD)
29
(RO)+,R2
(R0)+ R1
3%

RL,®’,
3%

ASL
ASL
ADD

062716

SEQ 0231

22 322 2222222 a2 s 2 a2t a2 ae s2 s a st e

RO, -(SP>

CMPB
BEQ

ASL

000010

000207

MOV
MOV
MOV
CLR
CLR
CMPB
BNE
MOVB
MOVB
BEQ
CMPB

170000

102420
162701
060116
102414
000747
0205702
001401
00SH16
O0leebb

054436

10388
10389

000054

006316
006316
06261¢&

igggg

QS4442
0S4444

011646

(0lee0e
012601
012600

10385
10386

000010

006316

0OS4424
0Su426
0S4430

0S4432

DECBIN: MOV

010146
010246
016600
00S046
005002
122710
001001
112002
112001
001427

10378
10379
10380

10381

LO2

MACY1l 30(1046)
01-DEC-77
15:04 PAGE 233
DECIMAL TO BINARY CONVERSION ROUTINE

lSLSTQD WILL CONTRIN THE LRST AVAILABLE MEMORY LOCATION

0S4454

010046

§SIZE:

MOV

RO, -(SP)

:;SAVE RO ON THE STACK

CZR6PCO RK611-/06 PERF EXEC
CZR6PC. P11
D1-DEC-77 14:53

884428 81344

05446Y
054470

013746
010600

gs4472
4474

Yeed?

054500

Pt
et eLy

Y ey ey e

e e

el o

o o]=] 0000000000000
o
¥ & [ ol i < o i oV o
G ol o
¥ N o
runn PUNIN) = 3t pms 0t s ot Pt Pt Pt P
nLfw N—0OL0O
NN LW-0O

884278

c342s8

30(1046)
O1-DEC-77
15:04
ROUTINE TO SIZE MEMORY

000006
054520
020000

nov

000004

18:
2%:

000006
000004
054550

SLSTnn

nvs THE STACK POINTER

(SP)+, IERRVEC+2’

PUSH OLD PSW nNo PC ON STACK

sSAVE THE PSW IN 2#ERRVEC+2

#2$ . J4ERRVEC
osoboo,nx

s sSET Fok’ T, MEOUT
;;FéR?T n?gnsgs

TST

(R1)+

::STEP TO NEXT RDDRESS

TST

R
us
MOV

MOV

WORD

(RI)

13
s ,Rl

;i TEST

DRESS

: YRy nng HER
;;DROP BACK
RESTORE THE STACK

(sh)+ INERRVEC+2' | ;RESTORE ERROR VECTOR

(SP)+’ J#ERRVEC
R1,SL4TAD
(5PY+,R1
égp)20
O

; ;LAST ADDRESS
:RESTORE F.|
P IRESTORE RO
. CONTRINS THE LAST ADDRESS

*l&*i!lll*l!ll!l!!&lll!l!il!li&ii***llillll!!al!!l*l**!lli!lii!

017737
012737
000009
000776

12436¢
0s4572

005037

054676

001404
000024

PJOWER DOWN AND UP ROUTINES

+ POWER DOWN ROUTINE

$PWRON: MOV

ngtT

000144
054676

0S4552

054672

000137

013777

001404
007172

0S4676
054702
054710

000000
005015
006522

000000
047520
0oogl12

JSWR, SAVSWR

0S4700

SET UP VECTOR

-2

:HANG UP

18:

0oo024
000026
00003¢C

SPW

INC

SPWRCY

1s
$PWRCT2
1%
#3PWRDN ,PWRVEC

JSR

Pc PRITIM

MOV
JMP

SAVSWR, aSWR
PWRSRT

Move

$PWRCT:

0100 ' SPWRCT+2

BNE
DEC
BNE
MOV

MOV
MOV
MOV
TYPE

001361
124246

042527

CLR

MOV

:SAVE SWITCH REGISTER

4$PURUP, PWURVEC

PONER uP ROUTINE

$§PWRUP:

0S4700

os4664

:SAVE R1 ON THE STACK

aséRRvsc -(SP) ,,snve PRESENT ERROR VECTOR PS & PC

MOV
MOV

MOV
MOV
MOV
ggg

.SBTTL

054572
0S4576

aosnnvscia -(SP)

RAP

OSHSHB
0os4<50

0QsS4ss2
054560

MOV

SEQ 0232

:;SET THE ERRVEC Ps TO THE Pnssshf

000002

EH
42

PRGE 234

R1,-(SP

MOV

os4Se4
Q54526
054532
0S4S36

MO2

MOV

000004
000006

oS4s1Y4

054566
054570
431

MACY11

sWRIT LOOP FOR THE TTY

sWAIT FOR THE INCREMENT

:"OF WORD

;SET PONER DOWN VECTOR

$PR7,PWIVEC+2
$PR7 TRUWPVEC+2
osvnéx 4P
§

:PRIORITY
:LOCK OUT RLL INTERRUPTS FOR TRAPS
SINITIALIZE STACK
REPORT
POWER FRIL

s-1,FLARG

'SET FLAG FOR RESTART SEQUENCE

.WORD

IME

'RESTORE SWITCH REGISTER
*RESTART PROGRAM
-WAIT COUNT FOR TTY

$POMER: .ASCIZ <ls><1a>/PousR/<1s><1a>
.EVEN

.SBTTL
D

INTEGER MULTIPLY ROUTINE

EEEEEEREEARRIEE R R AR SRR AR AR EFRRRRR AR R R AR

AR AR RNER LR NRERERS

CZR6EPCO RKB11/0% PERF EXEC

CZR6PC.P11

01-DEC-77 14:53

MACY1l 30(1046)

01-DEC-77

NOe

INTEGER MULTIPLY ROUTINE

10455

10457

MOV

MULTIPLER, -(SP}

T
tx

JSR
RETURN

PC, SMULT

STACK

PRODUCT

TOP

LSH'S

: %CALL

10456

10458

;04538
i82§?

10462

SEQ 0233

15:04 PRGE 23S

MOV

meem=

- (5P)
MULTIPLICAND,

: sPRODUCT IS ON THE STACK

mmem—e-

10463
10464

R
R

18‘4%%

: ;l»li*llllllil!*!l*l*ll!*ll!l!!*li!!!**!*!!ill!*!*lll!*ll*l!*ll!l

10465
Y

10470

054714

SMULT:

10471
10472
10473
10474
10475
10476
10477
10478
10479

0S4714
054716
054720
0S4722
054729
054726
054730
0S4734
0S4740

010046
0i0146
010246
010346
010446
010546
016605
016603
005000

10483

054750

012746

104686

0S4760

006002 ,

10480 0S4742
10481 054744
10482 . 054746
10484
10485

10487

10488

10463

0S4754
064756
0S4762

0S4764

0S4766

000016

000020

005001
005002
005004

000041

006000
006001

006003

103003

10494
10495
10496
10497
10498
10499
10500
10501
10502

054776

055000
085002
055006
065012
055014
055016
055020
085022
055024

18:

2s:
000020
000016

RO, - (SP)
Ri,-(SP)
R2.-(SP)
R3, -(SP)
R4, -(SP)
RS’ -(SP)
16tSP), RS
20(5P) \R3
RO

:;PUSH RO ON STACK
::PUSH R1 ON STACK
:!PUSH R2 ON STACK
::PUSH R3 ON STACK
:;PUSH R4 ON STACK
::PUSH RS ON STACK
:STORE MULTIPLICAND
:STORE MULTIPLIER
:CLEAR HIGH ORDER WORDS

#41,-(SP)

sMOVE 33 DEC TO COUNTER

;SHIFT TO ADD
:NO CARRY NO RDD

R1
R2
RY

ROR
ROR

RO
R1

ROR

ADD

001366

005726
010266
010366
012605
012604
012603
012602
012601
012600

MOV
BCC

060501

10503 055026 000207
10504
10505

CLR
CLR
CLR

ROR

10430 054270 005500
10491 084772 060400
10492 0S47?4 005316
10493

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR

ADC
DEC

ADD
BNE

TST
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RTS

RS,R1

RO
R4, RO
(SP)
13

(SP)+
R2,20(SP)
R3! I6(5P)

(5P)+,RS

(SP)+,RY
(SP)+.R3
(SP)+.R2
(SP)+.RI
(5P)+.RO

;ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL
: PRODUCT
DECREMENT COUNTER
; REMOVE COUNTER
:GET LEAST SIGNIFICANT BITS
:GET_MOST SIGNIFICANT BITS
:;POP STACK LNTO RS
::POP STARCK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
:POP STACK INTO RI
:POP STACK INTO RO

:RETURN

}ggg;
o
10508

_SBTTL RANDOM NUMBER GENERATOR ROUTINE
HH llllllllll&lli*l*!!*lllil!!l*l**lilllll*lll!i*ll*!ll*!il!i!!**!

10510

!%WITH A RANGE OF O TO 2(+33)-1.

10509

'4THIS ROUTINE 1S A DQUBLE_PRECISION PSEUDO RANDOM NUMBER GENERATOR

BO3

30(1046)
PAGE 236
01-DEC-77
15:04
RANDOM NUMBER GENERARTOR ROUTINE
; #CALL:

JSR

Pt P

X
(=]
<

it P

063700

055130

063701

055126

062701
010037
010137

047401
055130
055126

0S510e
0SS106

055126
055130

00
000207
176543
123456

; ;CALL THE ROUTINE
; ;RETURN HERE THE RANDOM
;3 NUMETMR WILL 3E IN
5 3 SHINUM, SLONUM

;;PUSH RO ON STACK
:!PUSH R1 ON STACK
::PUSH R2 ON STACK
*:SET RO WITH LOW

! !SET R1 WITH HIGH

:ISET SHIFT COUNT
3 SHIFT FT RO LEFT FT_AND
; ;ROTATE _CARRY INTO R1 AND
; s CHECK FOR DONE
; ;CONTINUE SHIFT LOOP
; ;RDOD NUMBER TO MAKE X 129
; ; PROPOGARTE CARRY
; ;ADD NUMBER TO MAKE X 129
; ;ADD _LOW CONSTANT
; ; PROPOGATE CARRY
; ;ADD HIGH CONSTANT
; s SAVE RO

n
~

062700

001057
2
[=]
<

055074

19%:

SEQ 0234

PC, SRAND

g VOO -

F2R

055062

n
Q
N
n

[72]
[w]

000000

RETURN

;1POP STACK INTO R2

:POP STACK INTO RI
;1POP STACK INTO RO
RE TURN

3
123456

SHINUM:
SLONUM:

. WORD
. WORD

.SBTTL

SINGLE/DOUBLE LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINES

NUM, - (SP)

010046
010146
010246
010346
010446
010546

$SBeD:

MOV
MOV
MOV
MOV
MOV
MOV

RO,
RI,
R2,
R3,
R4’
RS,

;POINTER TO LOW WORD OF BINARRY NUMBER

; DECIMAL NUMBER IN SDECVL

; DECMRL NUMBER IN SDECVL
NN

055132
055132
0SS5134
055136
0SS140
0SS14e
055144

et Nt Nwut

S g MIHIIRMINIIN NN

PC, $582D

MoV
JSR
RETURN

; ¥CALL

'z )

SPNTR, ~(SP)
PC, $DB20

MOV
JSR
RETURN

*
*

*CALL

THESE ROUTINE WIL CONVERT A 16-BIT OR 32-BIT BINARY NUMBER
TO AN UNSIGNED DECIMAL (RSCII) NUMBER.

*
¥
%

[N G0
TCUVOVOVOO

wrwswswew

o s JE6 36U 3636 3 30 26 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3¢ 36 3 36 36 36 38 30 36 36 36 36 26 36 38 36 36 36 3 36 36 36 2 3636 3 3 96 38 36 3 3% 3¢ 3¢ 3 %

MACY11

P~~~ DD
Dx N0 V=DV
D PR DDD
NOWVNIWI—
O LX
ou—0 1 Irn—o0
O

o
VYU

N NI N 6 bt bt s e ot st e e
DONTNLWNI—OLDONONLEWN—

RAR

0000000000
v
RV

OO0

o RK6.1-06 PERF_EXEC
.P 11
D1-DEC-7?7 14:83

NI RN

; ;PUSH
; s PUSH
s ;PUSH
;s PUSH
; ;PUSH
; ;PUSH

RO
R1
R2
R3
R4
RS

ON
ON
ON
ON
ON
ON

EERELREERERRR AR RER

STACK
STACK
STACK
STACK
STACK
STARCK

CZR6PCO RK611/06 PERF EXEC
CZRG6PC.P11
01-DEC-77 14:53
10567
10568

055146
0ssi1se

016601

1885 gested

055300

e P
P

WO
N

704

055300

$820:
$2DEC:
29:

3%:

SDECNT:

#STNPW+2,RS
$820

MOV
MOV
MOV
MOV
MOV
MOV

RO, -(SP)
R1,-(SP)
R2,-(5P)
R3,-(SP)
R4, -(5P)
RS’ -(5P)

oy
MOV

(ReYe, Al
c15.'sgecnr

PAGE 237

$TNPWR:

sStNPU, RY

16lsFy,R2

MOV
MOV

#$STNPWR , RY
#STNPWR{2,
RS

MoV
CLR
UB
5BC
SuB
BLT
INC

#SDECVL,
RO
Rs
(R4),R1
Re
(RS),R2
3%
R3

B8R

ADD
ADC
ADD
CMP

(R4)+,F
R2
(R1)+,
(R5)+’ (R5)+

MOVB
DEC

R3, tRO)+
P&+

WORD

BNE
CLRB
MOV
MOV
MOV
MOV
MOV
MOV
MOV

TYPE
RTS

055402

000230

MOV
BR

BIS

000060

055344

CO3

16(SP),R1
R
85,
SDECNT

002402
005203

Pt Dt Pt Dt Pt Bt et Bt Dt Bt Pt P

000000000000
00
oocooocooooco oo,
PUPUN)
b= bt bt 4t st Pt Pt Pt Pt e
N=-=OWO
O NN LWNN—0O

$ms 9

000012
055332
055334

— U=

[

ot it Pt P Pt Pt s et Pt Pt Bt ot i Pt Pt Pt P

o ot P

RRROROGE RARNANAA RAAAR
R
VA
£
BBIRREER=E8S83R wn 20828383

Put P

Pt Pt Pt P

DRIN—
N OTM
~

NI
wn Lo
(@} Q00
AV} ()

055402

201

15:04

MOV
CLR
MOV

MOV
$082D:

000016

01-DEC-7?

SINGLE/DOUBLE LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINES

055360

000000000000

0SS174

30(1046)

0C0016

peB3es

0SS166
05517¢

0SS174

MACY11l

145000
35632
160400
2765
113200
230

#'0 R3

sosc
(RO)+

(SP)+,RS
(SP)+.RY
(SP)+.R3
(SP)+ R2
(SP)+.R1
(5P)+ RO
(SP)+. (SP)

$DECVL
AC

; STORE NUMBER IN Rl

ANT EITS
, SION
"s] SIgEle
5o
;
RODRESS
FOR S
POW

; START CONVERSION

TACK

:PICKUP DATA POINTER

; PICKUP BINARY NUMBER

;SET UP TO DO 10 CONVERSIONS
; ADDRESS OF TEN POUWER
;GET ADDRESS OF "SDECVLTM STRING
i CLEOR PARTIAL
!SUBTRACT TEN POWER

;BRANCH_IF TEN PENER TOO LARGE

;ADD 1
; LOOP

TO PARTIA

;RESTORE SUBTRRCTED VALUE
;MOVE TO NEXT TEN POWER
; CHANGE IT TO RSCII
;SAVE IT
; DONE?

; BRANCH IF NO

; TERMINATOR
; ;POP STRACK INTO RS
NTO R4
; s POP gTQEK
STARCK
; s POP
; ;POP STRCK INTO R2
; s POP STACK INTO Rl

; sPOP_STACK INTO RO

:8ETUP STACK FOR RETURN
; RETURN

; 1.0EQS
; 1.0EO8

;1.0E07

SEQ@ 0e3s

CZR6PCO RKb11-06 PERF EXEC
CZRePC .Pl1
01-DEC-77 14:53

MACY11

PRGE 238

; 1.0E06

041i00
17
103240

1.0EQS

PRRR
R RS &
52598 RRZBRBI

et Pt Pt s

1.0E04

1750

; 1.0E03

144

1.0€02
1.0E01

OO0

. P Pt Pt e st P

0
12

000014

112737
662737
0403
112737

R RRE
F&ePRERFRRERER
A A A R AT &

Q
oo
£L
£

it P

£
~

010046
010146

SDECVL:

.SBTTL

000001
000001

055662
055660

000001

055662

.BLKC

MuvB
MOvB
BR
MOvB8

000100

oo121l

000004

001204

004737
000000

0seslie

105737
001416
005737

055662

aq(sp)

18:
cs:

017637

F NOT:

.,SHOUL? SPOOL MESSAGES?
IFTNO

i GE "Essncfipn88§unn ADDR.

,,FIND END OF MESSAGE

GTYPE

F NOT:
PUT RDBR IN MAILBOX

; SUB START OF MESSAGE

,,GET MESSAGE LNGTH IN WORDS
,,PET L H”TH IN MAILBOX

TELL

¥ Yo TAKE MSG.

DH(SP) 4ys

; ;PUT MSG ARDDR

EC,STYPE

,,CRLL TYPE MACRO

SFFLG
129
SENV
12$
SH%GTYPE

,,SHOULD REPORT FRTAL ERROR?
BR
:IF NOT:

82, 4(SP)
1772776, -(SP)

118:

UIF

(ROY+

es
snscno RO

gngc GTY

TST

,:SPERS}iNG UNDER RPT?

RO SMSGARD

7578

; PUSH RO ON STACK

;PUSH R1_ON STACK
,,SHOULD TYPE R MESSAGE?

W/ LAST XMISSION?
,,ses If’bone
WAIT

055572
000004

001172

SP)

snécTYPE

001210

000004

TST

001170

001170
0SSel1s

;;
7O ONLY REPORT FATAL ERROR

33
3?PTSPO0L, SENVM

—ung

N o oo oo o
Owm Yo N LWhor
~N

00004

#1,SFFLG

.3PTENV,SENV

001204

66
013746

;370 REPORT FATAL ERROR
!!70 TYPE R MESSAGE

81 SMFLG
sAtyC

SMELG

001210

884585

%1, SFFLG

RO, - (SP)
R1 -(SP)

000001

001170

; RESERVE STORRGE FOR ASCIZ STRING

12.

= 336363030 36 336 3 3 36 36 36 3 36 36 38 36 3 36 36 36 96 36 36 96 36 36 3 36 36 36 36 3 3 36 36 3 3 3 3 3 3 3¢ 36 3 3 3 3 36 36 30 36 36 36 36 36 36 36 3 0 3 %

tthx:

055660

880882

; 1.0E00

APT COMMUNICATIONS ROUTIAE

(@17 1]

s Pt Pt Pt Pt ot Pt Pt Pt (it Pt

D03

STNPW: éauao

|DCADCNDDE?DCKDOCKDO
oo o, o 05! o

$e Bt Bt Pt Pt Pt ot Pt P P Pt Pt Pt Pt Pt Bt et Pt Pt Pt Pt ot Pt Pt (s Pt P

15:04

SINGLE/DOUBLE LENGTH BINARY TO DECIMAL ARSCII CONVERT ROUTINES

Bob41?

18253

01-DEC-77

30(1046)

@4(SP),SFATAL

BUMP

IN_JSR L INKAGE

RETURN ADDRESS

s PUSH 17#7?5 ON STARCK

,,RUNNING UNDER APT?
F NOT:

..gznggnso LAST MESSAGE”
:'GET ERROR

SEQ 0236

CZR6PCO RKE11/06 PERF EXEC
CZR6PC. P11
01-DEC-77 14:83

000002
001170
055662
055661
055660

10679
10680
10681

EO3

MACY!1l 30(1046)
O0O1-DEC-77
15:04
PRGE 239
APT COMMUNICATIONS ROUTINE

12%:

$MFLG:

PRERRRRERRER
8 8B89RR 2002833

.SBTTL
< JI I

o
un

Q0000000000000

s ot Pt ot Pt Pt ot et

§TRAP:

0oo002

$MFLG

MOV

(SP,+.R0

,,POP STACK INTO RO

.BYTE

,,ne:sc FLAG

.BYTE

,,rnTnL FLAG

RTS

.BYTE

SFFLG
SLFLG

(SP)+,R1

} iCLEAR FATAL FLAG
'CLEAR LOG FLAG

,,CLERR MESSAGE FLAG
POP STACK INTO R1

RETURN

LOG FLAG

TRAP DECODER

IET I 065 U0 30003606 00 0 06 2030 00 00 0 00300600 06 0

0SS704

MOV

RO, - (SP)

ASL

RTS

MOV
TST
MOVB
MOV

0557e0

300 0600 06

3 300 0

3300 0 2

; SAVE_RO

2(5P),RO
(R’
(RO),RO

,,GET TRARP RDDRESS
:BACKUP BY 2
,,csr RIGHT BYTE OF TRAP

§TRPAD(RO)
RO

:: INDEX TO TABLE

'PCSITION FOR INDEXING

GO TO ROUTINE

;s THIS IS USE TO HANDLE THE "GETPRI® MACRO
055706
0ss710
0S5716

000004

000002

$TRAP2:

MOV

MOV
RTI

.SBTTL

(SP),-(SP)

4(sP},2(SP)

MOVE THE PC DOWN

,,nove THE PSW DOWN
{'RESTORE THE PSW

TRAP TRBLE

; #THIS TRBLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

s Pt ot

CLRB

CLRB
CLRB

s s TELL nfit T0 TAKE ERROR

iTHIS ROUT. E WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION
;¥AND USE IT TO INDEX THROUGH THE TRAP TRBLE FOR THE STARTING ADDRESS
;#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
%GO TO THAT ROUTINE.
010046

o
Q
~ NN NNNNNNNNNNN NN
n nmn m;—p.....;—y-p-.._p...—.— o0
w n - OCOuONCNILZWN—-0O O m

BUMP RETURN RDDR.

SMSGTYPE

.EV
APTSIZE=200
APTENV=001
APTSPOOL =100
RPTCSUP=040

s e ot s P Pt s P Pt Pt Pt Pt ot Pt Pt Pt Pt Pt Pt P

$LFLG:

$§FFLG:

055662

#2.4(SP)

INC

MOV

10687

:%¥8Y THE *“TRAPTM INSTRUCTION.

Pt e

10724

ADD

000004

SEQ 0237

:
055720
055722

055706
0sesie

0S5724
055726

053100
053220

ROUTINE

§TRPAD: .WORD
§TYPE

SRDCHR

SROLIN

STRAP2

;;CALL=TYPE

TRAP+1(104401)

; CALL=RDCHR

TRAP+2(104402)

,.CRLL RDLIN

TRAP+3(104403)

TTY TYPEOUT ROUTINE

TTY TYPEIN CHRRACTER ROUTINE

TTY TYPEIN STRING ROUTINE

CZR6PCO RKB11/06 PERF EXEC
CZRePC .P11
D1-DEC-7/ 14:S3

0S5730
055736
0SS5744
055752
055760

(0174
0S57
0S

00S0O1S
042507
020120
00S01S
020122

044103
040520
046103
047514

MARCY11l

g4710!
Q42130
Q45503
040505

30(1046)
01-DEC-77
RSCII MESSAGES

15:04

FO3

PAGE 240

.SBTTL

ARASCII MESSAGES

XXDPMG:

.RSCII

(CR> <LF> /CHANGE XXDP PARCK~/

.RSCIZ

(CR><LF>/CLERR LIC 40,RESTART PROGRAM~/

051054
gSelee
0S1107

046501

Q46114
Q47440
047524
04651S

Q43505
042520
ge01iee
047101

ILLCOM:

.ASCII

/ILLEGARL

056056
056064

020040
051104
0S2516
040

006477
0S3111
04111S

000012
020105
0S110S

ILLCMOD:
OPROOO:

SCI 2
.ASCI 1

/IS
/DRIVE NUMBER

0S6070
056076
056103
0S6110
0S6116
oSeiay
056135
0S6140
0S6142
0S6150
056156
gsSelb2
056170
056176
0S6204
0seele
056220
be
056230
056236
0S6244
0562
0Se6eb0

046111
037514
125
0S2040
046101
02013;
Q47107
000012
047516
044523
006477
040510
047105
0S01e0
047525
0S2led
042523
00001
046120
042440
041440
042119
0S0117

Q42514
005015
042116
051505
04ese2
051501
042105

OPRCN!L:
OPRODO2:

.ASCIZ
.RSC1IZ

OPROO3:

.RSCIZ

/UNDER

OPROOM:

.RSCIZ

/ALRERDY RSSIGNED?/¢15><¢12>

051501
04210S

OPROOS:

.RSCIZ

/NOT RSSIGNED?/<¢15>
12>

042502
047522
043040
g425eu
05050S
00650S

OPROOG6:

.ASCIZ

/HARS BEEN DROPPED FROM TEST SEQUENCE/<15><¢12>

040505
0S2116
046517
00SU1S
051105

OPROQ7:

.ASCIZ

<
12> 7%~/
/PLERSE ENTER COMMAND/¢15>

OPROO8:

.RSCIZ

/0PERARTOR

056274
0563
056310
056316

044524
Q42040
0S1104
0S2504

(0S210l
Q47S2e
053111
0O44Se2

OPRO10:

.ASCII

15> <¢12>/DRIVE NUMBER ~

OPROL1:
OPRO12:

.ASCIZ
.ASCIZ

056010
0Se011
0S6016
6
056032
056040
0S604e
60S0

0S6065S

0sSee

0Se362

0475ce
000
111
046101
040522
047503
020104

060

0S1117

060
051104

000040

029124
047107
000012
020123
042040
042105
020115
0S1440
041516

044440

053111

040507
000
051105
044523
0ue477

OPERATOR COMMAND -/

(12>
ZILLEGRL?/7¢<1S»

TEST/

INITIATED DROP DRIVE DURING WRITE PRCK/

/DRIVE WRITE LOCKED/¢15><¢i2>

SEQ J238

CZRBEPCO RKb11-/06 PERF_EXEC
CZR6PC.PI11
01-DEC-77 14:53
10787
10788

0S6370
0S6376

0S1127
047514

0S2111
Q45503

10790

056407

101

046114

0S6414

/ALL DRIVES CURRENTLY UNDER TEST/<¢1S><12>

0S1104

OPRO14:

.ASCIZ

/NO DRIVE IN USE/<15><12>

043 S11
020 124
044 440
053 111

OPRO1S:

.ASCIZ

/ALLIGNMENT PACK IN DRIVE/<1S5><12>

046114
Q4710S
045503
gsiio4

0S1104

0S3111

DRVSTT:

.RSCIZ

/##DRIVE STATISTICS*#/<15><1a>

g4ye0lz
0S1440
020114

000
o444 5ee
0S1 105
047 516

STTO00:

.ASCII

«15><12>/DRIVE SERIAL NO.

042526

020123
Q4710S
Q47125

000040

3
4

051127
025168

0Selll
032466

n
£
o
o

047527

.BLKB

STTOO1:

.ASCIZ

042122

STT002:

.ASCIZ

<15><¢12>/WORDS WRITTENXESK /

STTO03:

.ASCIZ

<¢15><¢12>/WORDS READ®ESK /

.RSCIZ

<15>¢12>/SOFT DATA ERRORS-<15>¢12>/

/ORDERS PERFORMED /

NNr—
£N

061522
047506

O
n
O
=N
==0r
N

STTi00:

042504
051105
042105

822n

052101
0S! 503

7
0
2

(=
n

052123
o44Sa4

(@]
W

01
16
20

SEQ 0239

.ARSCIZ

Sb
3

(o
o
o
o

PAGE 241

OPRO13:

0S
11
S2
15
26
11

@]
n

GO3

020105
042105

047111
00Ss0 15

8mcnmmmcnmmcnmmmm o

00000000000
[ee]es]es)
@®
vafua]ee)
nnn
MDY
e b b b pe pa e = (O O
@]
LW N—OWOVO NN LWN—-OOMmN
v

Bt Bt Pt P Pt Bt Bt Pt Pt Pt Bt Bt Pt ¥
s it P

000000000000 00000

s s Pt Pt Pt Bt Bt Pt Bt Pt Pt Pt s Bt
et Bt ot Pt Prme Bt ot B
Bt P

15:04

042040

044522

ot Pt Pt e Pt Pt

10791

000

MACY1l 30 (1046)
0i-DEC-7?7
A SCII MES SAGES

STTOO4:

831

056730

00501S

020040

042522

STTO00S:

.ASCIZ

<1S>¢<i2>/

RERERD /

833

0S6744

82526&

020040

043117

STTOO06:

.ASCIZ

<1S5><le@>s

OFFSET /

835

056760

005015

040510

042122

STT007:

.ARSCIZ

<15>¢12>/HARD DRTA ERRORS ~/

837

056774

0S51'05

047522

051522

gag

82;8?3

8838&8

83?2?2

8:22?;

STTO08:

.ARSCIZ

<«15><12>/SEEK INCOMPLETES -

841
g42

057020
057026

046120
000040

052105

0515805

ECC -

CcZR6PCO RKBL11/0E FeRF EXEC
CZRBPC.P11
01-DEC-77 14:S53

00s01s

30(1046)
01-DEC-77
RSCII MESSAGES

15:04

PAGE 242

SEQ 0240

STT009:

.RSCIZ

<15><12>"OPERARTION

STT010:

.ARSCIZ

(15><12>/0THER ERRORS

STTO11:

.RSCII

15> <12, /PACK SERIAL NUMBER /

.BLKB
.ASCIZ
.ASCIZ

11.

044440

ST70l2:
STT013:
SYS000:

US> <i2
/CPU 1D=/

gyel2e

SYS001:

.RSCIZ

/OVERLRY LOADER=/

sysog0e:

.RSCIZ

/MRX TRANSFER SIZE

SYS003:
SYSO0M:

.ASCIZ
.RSCIZ

026466
Q41040
o42104

SYS00S:

.ASCIZ

/RK06~-RK07 BUS RDD=/

0510SS
Q42526
036504

SYS006:

.RSCIZ

/RKO6-RKO? VEC RDD=/

SYs007:

.RSCIZ

/NONEXISTENT MEMORY <1S><12>

Sys008:

ASC1Z

/READY TO BEGIN PERFORMANCE TESTING/<1S><l1a><le

052101
020103
053122

SYS009:

.RSCIZ

/STATISTIC

033060

SYS010:

.RSCIZ

/RK06-RK07 PRIOR=/

050117

INCOMPLETES/MISPOSITIONS *

057030
057036
057044
057052
060

PARCAR
AT B
o

i 0)O)

10843
10844
10845
10846
10847

MACY1l

040517
000
052040
042506

(

MARX:

042532

054101

000

47440
52106
041440

)=/

/NO.

OF SOFTWARE COMPARES=/

o42522

033060
020067
042101
047117

Q43516

0S7466

INTERVAL=/

0s1120
000
04eS1S
043040
044522

30(1046)
01-DEC-77
RSCII MESSAGES

15:04

103

PRGE 243

PAROOCO:

.RSCII

/PRRMETERS

00aQole
042116
0s4101
036440

PAROOL
:
PAROO2:

.RSCIZ
.ASCIZ

/CYLINDER MAX,MIN =/

Q45503
o4e4SY
cao
047SeH

PARDOO3:

.RSCIZ

/TRACK

PAROOM:

.RSCIZ

/SECTOR MAX,MIN =/

053457
0S1040
036440

PRROOS:

.RSCIZ

"READ/WRITE RARTIO ="

042524

PAROOG:

.ASCIZ

/WRITE CHECK AFTER WRITE =/

g42522

PAROO7:

.ASCIZ

/CORRECTARBLE RERD ERROR THRESHOLD =~

PAROOS8:

.RASCIZ

/UNCORRECTABLE RERD ERROR THRESHOLD

PAROOS:

.RSCIZ

/SEEK ERROR THRESHOLD =/

PARCIO:

.RSCIZ

/INHIBIT

PRROL1:

.RSCIZ

/OPERATION COUNT THRESHOLD#6SK =/

026130
00007S

045503
0S1105
o4a2se4

/07

FOR

DRIVE

SEQ Qe4!

187 "¢l

MAX,MIN

[

020067
036522

] 0000000000000
0000
[Yal¥e] DO OD DD D OO -DODNDDD
nn
nL WN—O0OOMNC
N L W0
WVm

030113
0%7516

MACY11l

CZR6PCO RKB11/06 PERF_EXEC
CZR6PC.P11
01-DEC-77 14:53

060142

036440

054522

036440

o4e2s20
047117
0s2l116
0S1505
033052
000

g40522
041440
052040
047510
045465

ERROR CORRECTION AND RETRY

o42s50s

L=
mmo—v—mam
LENW

o42ll4

CZR6PCO RKB11-/06 PERF _EXEC
CZR6PC.PI11
D1-DEC-77 14:53
060145

PARO13:
PARO1M:

.ASCIZ
.RASCIZ

/FIRST/
/SECOND/

044510

o4elee

PAROLS:

.RSCIZ

/THIRD/

052517

oselz22

PRRO16:

.RSCIZ

7FOURTH/

052106
041530
020104
040440
00207S
047101

000110
05es514
040520
o4a2se2

PARO17:
PARO18:

.ASCIZ
.ASCIZ

/FIFTH/

042507

PARO19:

.RSCIZ

/CHANGE/

046102

PRRO20:

.RSCII

/UNRBLE TO GENERATE NEW COMMAND DUE TO-/<1S5¢<l2>

.RSCIZ

/EXCLUDED PACK ARERS AND MAX TRANSFER SIZE CONFLICT/<15>«<12>

PARDO21!:

.RSCIZ

/SAMPLED COMPARRES

PAROZZ:

.RSCIZ

/TESTING RKO&?

QUESMK:

.RSCIZ

272%27°

BLRNKS:
ERROOQ:

.RSCIZ
.RSCIZ

ERROO1L:

.RSCIZ

/CONTROLLER CLERR DID NOT CLEARR ERROR~

0515e2
047503

o»—»—-—mgoo;
= e O

n — TCNWLWNWON-—O
N} £ YN O 2 bt e pt e e O

046

v
YN
W

o0
? [=
£0N
£ ZO2RERBAR

QU= b= st (S} £ 0 (e bt e e

mumamoa:o-—mo—o
LRONWW
O NWwn

042111

SEQ D242

0C0oleY4
o42lle

020113

040506
05110S
0esose

080602

PAGE 244

/WORDS TRANSFERRED THRESHOLD#!1,048K =/

0S1504

037477
000040

JO3

.ASCIZ

2RZZRRZRZRT
fi\)rNOoOons

10957
10958
10959
10960
10961

15:04

30(1046)
01-DEC-77
ASCII MESSAGES
PARO12:

0S111?
o40S22
gsilee
051110
Q42114
034464

OO0
W

1095%
10956

MACY1l

Q47522
Q41440
042040
gsell7

/ EXCLUDED PRCK RRER =/

Y OR N

/7%%%FATAL ERROR®%%/<(1S>(12><12>

C-77

0 RKbll~ 06 PERF _EXEC
.P11
0i-DEC-77 14:53

1513

57
wn -0

KO3

PAGE 245

SEG 0243

ERROOZ:

.ASCIZ

/NO ATTENTION

ERROO3:

.ASCIZ

/UNEXPECTED DARTA TYPE ERROR/

ERROQOY:

.RSCIZ

/DRIVE CLEAR DID NOT RESET ATTENTION/

o44s24

042526
051101
047040
05150
0Seley
047117

o46114

043505

ERROOS:

.RSCIZ

/ILLEGRL DRIVER COMMAND/

ERRCO6:

.RSCIZ

/MULTIPLE DRIVE SELECT/

053523
030440
Q41440
047440
047522

ERRCO7:

.RSCIZ

/SET SWITCH 14 TO CYCLE ON ERROR/<15><¢12>

030122
042440
052040
Q47510
041530
000104
046040
o44124
g46117
042507
go0
g4esee
047517
041040
020040
047524
052101

ERROOS8:

.ASCIZ

/CONTROLLER ERROR THRESHOLD EXCEEDED/

ERROOS:

.ASCIZ

/DATA LATE THRESHOLD EXCEEDED~

ERRO1E:

.ASCII

/RADDRESS GOOD

.ASCIZ

IN RKRSOF/

s
b

0S0040

PRLREZSRSRrnA

==+

[l el adad ' 21721 o7, [ YT o T

REZR2ZZRRARBA

o4610S

Q
£

051122

NE LOQMNN)

000
£ LO0—-N00
=== N0

Or—-

061002
061010
061016
gel1024
061030
061036
061044
061052
061060
061066
061072
061100
061106
061114
0bllee
061130
061136
061144
0blis2
061160
061166
061173
061200
061206
Oelely
gble222
061230
061236
0ble4]
0big46
061254
0blee
061270

15:04

o4es
os1

8O - &'-08 £ NN ——-ONNN00 L \)Ohw:x
memzaegpo
W 0‘8

041440
042440

ZRREE RZRRAZZRZ

060610

2233P2ERIRAZIZZRP2P
RAR

NELWN—-DVONTCNLEWN—-DOVONCNLWN-

gDODDDDDODDDDDDDDD
oo

Bl aad ad X S Sy S Sy Y Sy S

0000000000 0000000000000 000000000000
WoiWwwnnnunn(81 V1aV Lo ST ST oy ooy ] Y =y S

oo
¢]

020

0s1S817

020040
052101
042040
020040
020040

DARTA

BRD

SECTOR

DRTAR/<15>¢<12>

DATA

POS

PAT #/¢(15

12>

061643

|=
’-‘008 O NVWUINEZN
0

052

b= bm e O 0= 0= (VUNOWN
0= b= Y = O 4

Pt s Pt Pt Pt Pt Pt

LWN——0ON
NN
L
mgggmmmmmm:;:::;::
O
L0 - IU‘BH;N-CU‘D%U\NI
FRBR%

e P

L£L£
L L L LWMIWWWWWIMWIWWWN
NONN
L LW
—~0~N
LW+
oo~
Lon

s Pt it Pt Pt P
s Pt ot Pt Pt Pt Pt Pt
s ot Pt

oo
WM
=b
O No o
CONLE~-ONLOO

Dt Pt Pt ot Pt Pt Pt P Pt ot Pt

mmm»—-r-w-v-v-v—o—t—o—-»—-OODDDDDDOD\Dg a.o..o.ommagmmmmm MMM NN

0000
oo
o

Bt Pt s B et o Bt s s Pt Pt Pt Pt Pt Pt Bt Pt Pt Pt } 8 Pt Pt Pt Pt Pt Pt et Dt Pt Pt Pt Pt Pt P Pt Pt Pt Pt Pt Pt s Pt Pt et Pt Pt Pt Pt Pt Pt s Pt s Pt e
Lt
T e e Y Y Y Y e e el e e e e ey Y ey e Y el an] o) o) —o¥ Sy PRI WPy W Y S P I P S G
R S S S I AP I R
I
e
[ anl ad ot ot Sy ot Y oy ey Y ey e e el
Y S T S
= [= ]
NNNOO
N—-O00ONOVN LWN-OVONTVNILWN—OW
NN LW
OWO NN £ LW~ - 0O Om
nNe—0OWwo

11067

PRRRERRE O RRORRE R AR R I RRE TR S P RERPREPRRER (=]
o

CZRBPCO F«b11-/06 PERF EXEC
CZFbPC. P11
01-DEC-77 14:53

MARCY1l

050040
005015
047117
Q4esS14
Q47522
020124
042507

30(1046)
01-DEC-?7
ASCII MESSAGES

15:04

LO3

PAGE 246

SEQ J244

ERRO13:

.RASCIZ

/CONTROLLER ERROR NOT FLAGGED/<15><¢12>

o4elee
052116

041440
047040

ERROILY:

.RSCIZ

/WORD COUNT NOT EQUAL

0/<¢1S><12>

051525

040440

ERROIS:

.RSCIZ

/BUS ADD INCORRECT/<1S<l2>

052054

ERRO1G:

.ASCIZ

/CYL, TRK, SEC INCORRECT/<15>¢12>

ERRO17:

.RSCIZ

/CONTROLLER COMMAND TIME OUT/

ERRORO:

.RSCIZ

/PROG ERROR/

ERRO21:

.RSCIZ

/ILL FUNCT CODE~/

ERRO22:

.BYTE
.RSCIZ

106
/ERROR WHILE WAITING TO REPORT ERROR/

ERRO23:

.BYTE
.RSCIZ

/NON-EXIST DRV/

ERRO2Y:

.BYTE
.ASCI1Z

/SERCON PARR/

ERRORS:

.BYTE
.RSCI1Z

/UNIT FIELD ERR/

ERRO26:

.RASCIZ

<15><¢12>/INT FROM DRV NOT UNDER TEST/<1S5><12>

838048 06EsT4
Q41516
052103

00S015

047117
Q42s14
Q4651S
044524
052125
047522
047522
020114
0c0le4
000

gs1ia4

047See

047522

000122

047117
052123

042455
042040

047117
coo
043040
042440

052116
020118
047516
Q42504
052123

.06

106
106

MACY11l

X
OO 0N+
—— 3
=~ O
NW—- W

.RSCIZ

/DRV STATUS CHANGE DID NOT CLR/<¢15>¢l@>

ERRO2S:

.BYTE
.RSC1I2Z

106
/CRIVE BECAME NOT AVRIL/

Q42520
oscie4

ERRO30:

.RSCIZ

ZUNEXPECT ATTN/C1S> (12>

0S1S04
000104
047514
osii122

ERRO31:

.ASCIZ

/ILL DSK RDD~/

ERRO32:

.RA3CIZ

/WRT LOCK ERR/

047514

ERRO33:

.ASCIZ

/RC LOWs

020104
Q00
052040
05110S

ERRO3Y:

.ASCIZ

/SPEED LOSS/

ERRO3S:

.ASCI1Z

/DRV

0s2l10l
000

ERRO36:

.ASCIZ

/FORMRT

ERRO37:

.RSCIZ

/NON-EXIST DRV FUNCT/

ERR(O38:

.BYTE
.ASCI2Z

/SEEK

ERRO39:

.BYTE
.RSCIZ

106
/DRV OFF TRK/

ERRO40:

.BYTE
.PCIZ

/MISPOS/

ERRUMZ:

.BYTE
.RSCIZ

/0PERART

ERROM43:

.BYTE
.RASCIZ

/HOR VRC ERR/

J4Y4:

.ASCIZ

/NON-EXIST MEM/

uvn

044440
000120
Q47440
045522

051517

0S1104
042440

Obe3le

b
0445830
046505

047157
0selel3
000

PRGE 247

9:
ERRO:

O—

cs3
052

MO3

/HARD DRV ERR/<15> 12>

Que4SsS
Quz0o40
04712S
C4S
O46

15:04

.ASCIZ

g0eSe2

000127

30(1046)
01-DEC-77
RASCII MESSAGES

ERRO27:

110

051164

NNN NN
NG
£

N NN

RRRFRRRRER
2 PN

go T2%RRRRR

i}
o
AVIES (Va0
n
YA
U TOTUNU N 0= ot - e 3t Dot e s s s s Pt p—
Pt
s P
QNN
L £ NN
= = O

RRRRRR

G6e

Bt s ot Be 4t s s Pt Bt B Pt Pen P Bt et Pt Bt s Pt Pt Pt Pt Pt Pt Pt Pt Pt B Bt e Bt Pt B @ s Bt it Pt s B Bt Bt Bt Pt e Pt B s Bt Pt Pt P s Pt P
Ll
el e ey e e o o R e Y ey e el ol oy o e S e ey ey e
S R
¥ Wy WUy Y S U U P DY W
S G
G G
G
G
G,
T et e et Pt e S P e s Pt P Pt D 2 et et B B ot Bt Bt Pt Bt Bt D Bt e s Bt B Be B ot e Bt Bt Bt Pt Bt s Foe Bt e e B
e s e P it Pt e Pemn s

111

\J\IV\J\I\l\l‘»lVU"U‘U‘U‘U‘U"U"&U‘U‘U‘U\U\U‘U\U’IU!WU\SI&I&LLLILIUUN#UW&B%N%&W
W
NN L WU~ OO0 NN
LWNA-OWDVO
NN LLN—ODO
NN L WOV
NN L)
s o]
LW

CZRePCO RK611-06 PERF EXEC
CZRePC .P11
01-DEC-77 1M4:83

Queuss
046440

106

" YPE ERR/
ERR/

INCOMP/

106

126

INCOMP~/

127

SEQ 0eu4s

MACY1l 30(1046)

PCO RKell-06 PERF EXEC

g6e
062630

ERRO4S: .RSCIZ

/UNIBUS PAR~/

117
104

0583122

0S2040

ERRO46: .BYTE_
.RSCIZ

117
/ORv TIMING ERR/

046040

ERRO47: .ASCIZ

1>
/DATA LATE/«15>

0SS0

040

040520

047111
000122

020107

006505

000012

052101

020101

|
£
£
N
n
n

040524

000iee

o42S24

000113

040440

0S2040

.BYTE

.RSCIZ
.BYTE

11?7

/DARTA CHK/
107

.RSCIZ

/WRITE CHK ERR/

ERROS1:

.ASCIZ

/CYL RADDR OVRFLW/

ERROS2:

.BYTE_

/CMND TIME OUT DURING POSITIONING OPERARTION/¢15><l12>

ERROS3:

.BYTE

_ASCIZ

DRV NOT RDY RFTER STRRT SPINODLE~/

ERROS4:

.BYTE

.ASCIZ

,VOL VALID DID NOT SET RFTER PACK RACK/

.ASCIZ

/DRV UNSAFE/

"RSCIZ

106

—

[

~N
n

ERROS0:

0SeSi?
Q
£
£

ZRARE

096131

020105

ERROMB:

042440

045868

N LWNNONNWEN—
L
ONOO—(38.SD-ONDONNONOg*‘N’-‘hHNPORNODNINODDPOO
LWEW—
Cr—00NiWW—L£
L N0 LW

062544

PRGLE 248

052502

046511
0S1105

NO3

044516

s (V00
0o (ST 00 [ ove s Bt et ot s Bt s ot ot fon

Al
o
[

RRRRRR
y33555]
SRERRE

n
w
~
n

)

062336
Ob2344

062330
062331

1S5:04

125

020123

£
2809
9
AP
£
300
L Al
o el
Wil =
el Ll oo slad e, ' Al

062322

062215

O
o
n
N

LW OV NN LWR—~O DO NCTNLWN—O
DD \)8011(0'\”—0\98\'*0’1 LW OOMNTNLWNU—~OB O

NNV N NIVIVNL VLNV
VDLV Y
000000
Ww
W W W W W NN PN
NI NN MU DY b b bt s bt st e b e = O O O

ASCII MESSAGES

01-DEC-77 14:53

P11

O0O1-DEC-?77

106

046117

0S3C40

0201eb

Dq?ésg

ERROSH:

053122

042440

ERROS?: .ASCIZ

(12>
<15T/
DRV ERR NOT INDICATED BY FRUL

ERROS8: .ASCIZ

DRV ATTN BUT NO FAULT OR DRV STATUS CHANGE/¢15><12>

gé
06

062726
062734

042040
040524

0S3lee
052524

051440
020123

SEQ 0246

CZR6PCO RKb11/06 PERF_EXEC
CZR6PC.P11
01-DEC-77 14:53

11237

062753
062?22
0627
062774
06

g44Sey
0S212S
0S1440
020104

11244

063024

04l

063050

040504

11238
11239
11240
l1l1e41

11245
11246
11247

11248

063032
063040
063046

103

Q474un
0S3122
042532
047440

020104

ERR0OSS:

.ASCIZ

/CMND TIME OUT DRV SEIZED BY OTHER PORT/<15>
(12>

020103

044515

ERROBO:

.ASCIZ

~/ECC MISCORRECTION/<1S><12>

0O4'

ERRO62:

.ASCIZ

/DARTA COMPARE ERROR/<1S>
12>

0S0123

.
051517

ERROB4:

.BYTE
.ASCIZ

126
/MISPOS~/

042101
041505

0S1440
020124

ERROBS:

.BYTE_
.ARSCIZ

106
/HEAD SELECT ERROR/

020103

047514

ERROBb:

.ASCIZ

/ECC LOGIC ERROR/

0O4150S
045522
005015
051117
047125
04052

052120
041505
000
020104
020le4
044514

ERRCB7:

.ASCIZ

/RKECPT

ERRO70:

.RSCIZ

/WORD COUNT INVALID/

020123

11270
11271
11272
11273
11274
11275
11276
11277
11278
11279
11280

063222
063230
0632
063240
063246
063254
063261
063266
063274
063302
063306

0S1104
047111
000104
0S4503
051105
096101
124
0S1457
020122
044514
106

11282
11283
11284
11285
11286
11287
11288
11289
11290

063314
063322
0633
063336
063344
063351
063356
063364
063372

044440
020126
047516
047514
040505
103
0S2116
046120
gla

063307

O42515
042040
044505
0S4S02

QO4eS22
051117

126
044515
000
106
042510
(46105
0S110S
041505
044507
047522
045522
020040
051520
127
047503
047111
000104

11281

SEQG 0247

040520
O0OSllee

06307
063076
063104
06310S
063106
063114
063122
063130
063136
063144
063150
063156
063164
063171
063176
063204
063212

063214

PARGE 249

Q46517
042440

11252
11253
11254
11255
11256
11257
11253
11259
11260
11261
11262
11263
1164
11265
11266
11267
11268

11e69

BO4

0S1117
047511

063056
063064
063072

15:04

041523
0S2103
000012

11249
11250
11251

04711S

MACY1l 30(1046;
01-DEC-77
RSCII MESSAGES

005015

052502

105

040524
000

047See2

020103
000122

Q42%e2
006516

000122

051105

RKECPS/<1S>d1a2>

051505
040526

042101

020123
044514

ERRO?71:

.ASCIZ

~/BUS ADDRESS INVALID/

044514
044440
0Q42111]
040522
041505
047111
000104

042116
053116
000
(045503
047524
040526

ERRO72:

.RSCIZ

/CYLINDER

ERRO73:

.ASCIZ

"TRACK/SECTOR INVALID

0Sllee

O0S1i1?

ERRO74:

.BYTE

.ASCIZ

/ERRGR IN DRV DID NOT RELORD HERDS/

ERR100:

.ASCII

/CURRENT SUPPLIED/¢15><l1a2>

020116
044504
020124
042101

051104
020104
Q42See
044040

051125
051440
042511

042522
0S0125
006504

051504

000

INVALID/
.

106

CZR6PCO RKb11-06 PERF EXEC
CZRePC.P11
01-DEC-77 14:53

11291
Bt 0 Bt 4t Pt Bt Bt Bt Bt Pt Pt ot Dot Bt et Pt ot Pt Pt Pt Pt Pt Pt Bt Pt Pt Pt P et Pt s (ot Pt Pt Pt P Pt s Pt P Pt Pt P Pt Pt P ot s Pt Pt Pt Pt s Pt
Bt Bt 5t Bt s Bt ot et (ot Bt Pt ot o o (et Pt P s et Pt ot Pt Pt Pt Dt Pt Pt Pt Pt P Pt Pt Pt Pt e Pt P Pt Pt Pt s Pt s Bt Pt P Pt Pt P (et P Pt Pt P

11292

063373

063400

MACY1l 30(1046)
01-DEC-7?7
RSCII MESSAGES

103

047115

042523
|

020124
8: 440

041040
020104

020040

041440

047440

020104
Q46131

063436
063444

ggé

33§‘1*3§

0478{é

30
304

%350%

1
020040

047115
041440

020104
046131

063516

5522

020040

3
g

DD~

3
320
321

SSS
324

325
3c6

lé

16
063624
0636
063640

063664
063b72

1‘-0

122

85@"00

533

124

020040

03l

Q40514
042510
047514
852?1 07

063721

063757

10S

3:5

02:022

064012

TRK

SEC

WRD CT/

PAT/

.ASCIZ

/HDI

020040

044040

ERR200:

.ASCJZ

/DATA LATE WHEN UNLORADING HERDER/

020116
042101
042510

ERR111:

080
8501 1
3440
04712S
047111
042101

ERR108:

HD2

HD3/<15> ¢ 12>

lee

1
1

éé

6514

051105

0;5%22

7111

105

.ASCIZ

/ERROR DURING ERROR RECOVERY/<(1S><12>

ERR203:

.ASCIZ

/ERROR RECOVERY SUCESSFUL/<1S><12>

ERR204:

.ASCIZ

/ERROR RECOVERY UNSUCESSFUL/¢15><12>

ERR20S:

.ASCIZ

/ERROR THRESHOLD EXCEEDED/<1S><12>

7503

054522

00S.1S

0S1122

0S111?

1 5

047522

020122

0‘45383

0‘-02%26

0S1117

046125

ERR202:

7522

346

064047

cyL

0040

4040

RIS

064042

/CMND

gOSO"’

R R Brig

i34S

.ASCIZ

/OFFSET =/

0S1117

336

341

ERRIOL:

.RSCIZ

0S1122

0'*25260&)

/PREVIOUS /<15 t(12>

OFFSET

.ASCIZ

105

063;SO

064006

.RSCII

SEC

ERRI02:

0201e2
043516

063742

339

TRK

020040
o42iee

047522
044522

333

340

cyL

052040

0S110S
0S2504

063726

ggg

/CMND

183 g:;z% 83612'4 ERR201: .RSCIZ ~/CONTROLLER ERROR DURING DRIVE SERVICING/

o461l

331

332

.ASCIZ

SEJ J248

041440

£ g
Erg Dk gim
2
UE g
e
330

PAGE 250

000124

0S20

ER—O

307
308
30
3
3
3

06351

g???
1% ¥

305

306

&g:gfi

cOo4

043106

297
298

ggé

15:04

00S01S

0S1122

000

BUS AD

WRD CT/

064372

045522
000

égs

00S01S

D644

644?§ §§83éq

064470

41504

045522

s Gl
0e4S14

122

020040

DO4

PRGE 251

SEQ 0249

51505

ERR206:

.ARSCIZ

/QUESTIONABLE DRIVE STRTUS/<15><12>

ERR207:

.ASCIZ

~/CONTROLLER TIMED OUT WITH GO SET/<15 ¢12>

ERR208:

.ASCIZ

/ERROR WHILE DIAGNOSING/<¢15>
1>

§§H 24

g
b

000
—

0S1117
o
£
n
wn

P Pt s L) 9=
== 0N

8866?3

15:04

42440
042504

[yt

mg 7773
&
SRR

047107
006507

042504

ERR209:

047522

.BYTE

127

.ASCIZ

/HEARDER ERROR/<¢15><¢12>

ERR2'0:

.RSCIZ

/%xxFIRST ERROR INFO#%%/(15><(l2>

051517

ERR211:

.RSCIZ

/RKPOS 7

040520

020124

ERR2l12:

.ASCIZ

/RKPAT /

83;109

Q42522

ERR213: .RSCIZ

/ADDRESS OF BEGINNING OF SECTOR IN FRROR ~

040504 882?84

ERR214: .ASCIZ

<15>¢<12>/DARTA REARD ‘<15 (1>

@]
<
[N]
(]
[Vs]
n

0S1111

£
£
£
£
o

O4e440

25052
o
[Ta]

T
4T, 1

UMY
MO
NNO
VN0 O

- N0

MRCY1l 30(1046)
O01-DEC-77
ASCII MESSAGES

Q64321

)0
s pa
Lad
ad V]
NNW

064312

41230

RRRRER BR2R g 532
eSS RBRRE i 2 %.—-KRR =

(i Q RS
£
oo

288
ww%
&k FER

FER

§§;§48

A
s

IR TR TR

RRRRRRRRRRRRRRRRRRR

o
£r £ LLLLrLLf
L
L
rnnrn
U
DU 1Y 0= 5 e oot s s B Pt s Ps e ()

4078

W W W W WL
w W
W LW W

L £ £ WLWLIW W W W L)W G W W) () () () L) W) W LHIW W W W W

000V HODODD
nN—=OWDoONCNLEW

38;%

(o
o

oo
N
AL
L N NNNNNNNO L& nrtw
AT (LS BRAES

Pe Bee Bt e e B Bt e Bt Ps Bt Bt et e Pt (ims Bt et Pt Pt s s Bt Bt Bt et B Bt Bt e (o Bt ot Pt et et Pt s Pt S Pt Pt Pt Pt B P Pt Pt Pt Pt Pt e B Pt
Bt Dt Bt bt ot ot Bt Bt Pt Pt it Pt Pt P et B Pt e Pt Pt Pt Pt Pt Bt Bt Bt Bt e Pt et P s Pn B Pe e Pt e Bt s et ot et it Pt Pt Pt et P Pt P Pt Pt

11347

223
R
ZR2RARR £0

CZR6PCO RK6il1/06 PERF EXEC
CZR&PC.P11
01-DEC-?7 14:53

O0OSllee
043116
00S015

Q51503

@06l ERR300: .ASCIZ /RKCS!

0S1501

043117

1503

Cegg Lo
042113

051040

020123

046513

ERR301:

.ASCIZ

/RKDS

RKCS2

RKWCR

RKBA

RKDA

RKDC

RKASOF RKER/(15>¢12>

RKMR1

RKMR2

RKMR3

RKPOS

RKPAT/<15>«<12,

CZR6PCO RK611-06 PERF EXEC
CZR6PC.P11
01-DEC-77 14:53

phhpwphoooga
W~ O0OVONTNLWN—-ODONCNILWNI—-OLDLDN

LLrLrrrfrrf
L4 "Ltk £
W
WWRINMN NIV
— -

s Pt s

s Pt
Pt Pt
Pt Pt P

it Pt Pt Pt Pt Pt Pt P
Pt Bt Pt

- Pt
et P Pt P
e e
Mo
o et b
e
e Pt

s Pt Pt Pt Pt Pt ot Pt P
Pt

Bt e

Bt P
Pt b

30(1046)
01 NEC-77
ASCII MESSAGES

;i8:04

EO4

PAGE 252

SEQ 02%0

051040

11403
11404
114

Bt be b

MACY1l

064756

000

064760

052101

00S01S

o42113

006523

ERR302:

.RSC1IZ

/RKDS/¢18>
12>

Q42515
020040
020040
041040
020060
00

051523
020040
020040
005015
020040

ERR303:

.ASCIZ

15>¢12>/MESS

030460
000040
020060
020
030461
000040

ERR304:

«IsSr<le>s 01

ERR30S:

<1S><¢i2>7 10

ERR306:

SLIXO-IVARY

ERRY00:

/UNEXPECTED MEMORY PARITY TRAP/

020040

020072
00S015S

/TIME:/
/
s

/IS
2>

B8/¢1S><l1e>s 00

CZR6EPCO RKB11-06 PERF EXEC

01-DEC-77 [4:53

CZREPC.P11

MACY1l 30(1046)

%%% DUMP MEMORY #¥x

.SBTTL

11434

11435

ff:gg 064760 000040
000000

-EVEN

..STCK:

ii:gg

065060

11440

0650

012737

0CO340

11442

065074

012706

065060

11444
11445
11446
11447
11448

11449
11450
11451

065102
065104
065106
065110
82%112

010446
010346
010246
010146
gxoous

065120

004737

11483
11484
11455
11456

065132
0668134
065140
822144

11459

(65186

11441 0&50?5 010637 065060
11443

11452

11457
11458
11460

065100

114
065124

065130

1sn
065152

010546

11467
11468

065210
065214
065216

11471 82?553

(SP), -(SP)
PC,..0CT
PC...CR
RO, . .ASCI

:TYPE Rl =

C2M?37

(v.5556

004037

065532

5653
016646

065302

11483

065304

11485
11486
11487

065314
065320
065324

11489

2(SP),-(SP)

C.35452

JSR

PC,..CR

JSR

..R2

01664

000004

MOV

004737

065452

JSR

004737

824 37

S701
01664

065556

065532
000006

065714

004737
065727

016646

RO, . .ASCI

..RY

JSR

.. RS

MOV

065452
065532

JSR
JSR

013746

065060

MOV

004737
004737
004037

065452
065452
065532

JSR
JSR
JSR

004737
004037
065742

004737

065330

065755

004737

065556

065452

JSR

..SP

JSR
.. ADD

JSR

ON STACK
ON STACK
ON STACK
ON STACK
ON STACK

:8§TOE FIRST ADDRESS
:T* £ RO =

.
sTYPE R2 =

Y(SP),~-(SP)

JSR

000012

004737

065310

065332

055556

RO, . .ASCI

pc,..0cT

..R3
MOV

: 1PUSH R4
1 PUSH R3
:'PUSH R2
PPUSH RI
:1PUSH RO

pc,..0cT

JSR

JSR
ISR

065272
065876

1i488

000002

..Rl
MOV

065452
065532

i:480
11481

:LOAD STACK POINTER

065556
065452
065532

..RO

004737
004037

065266

:STORE STACK POINTER

MOV
JSR
JSR
JSR

065250
ggsasu
065262

11484

..LOW;RS
RO, ..ARSCI

%..STCK,SP

011646
004737
004737
037

065640

000224
065532

MOV

11478

11482

:sPUSH RS ON STACK

000010

5260

11479

RS, - (SP}

016646

11477

11475
11476

#PR7, PS

MOV

065240

065244

RESERVE SPACE FOR STACK

:LOCK OUT ALL INTERRUPTS

JSR

11479

:STORED STACK POINTER

SP, . .STCK

5532

065236

MOV

og;

11472

11473

..DUMP: MOV

:TY . (CRYLF>

065200

0652084

BLKW

.WORD

PC, ..LR

11464
11466

#¥% DUMP MEMORY ¥x#¥

MOV
JSR

065666

11465

SEQ 0251

JSR

065172

065174

PAGE 253

065452

013705
004037

11462

11463

FOY4

R4, -(5P)
R3)-(SP)
R2,-(SP)
RI,-(SP)
RO.-(SP)

004737

065162

177776

15:04

MOV
MOV
MOV
MOV
MOV

065162

11461

O01-DEC-77

PC,..CR
6(SP),

:TYPE R3 =

-(SP)

RO, ..ASCI
10(SP)

:TYPE R4 =

,~(SP)

PC,..0LT

PC...CR
RO, . .ASCI
12(SP),

:TYPe RS =

- (SP)

pC,..0LT

PC,..CR
RG, . .ASCI

:TYPE SP =

..STCK,-(SP)

PC,..0¢T

PC,..CR
PC,..CR
RO, . .ASCI
PC,..CR

: TYPE HEADER

CZR6PCO RKG11-06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:53
if:g?

065336

004737

065452

11492
11493
11494

065342
065344
0656350

86054
4737
012703

065556

11497

0653

11495
11496

065532

065364

004737

065556

11500
11601

065372
065374

001370
004737

11603
11504

065404
0654

100001
000000

11506
11507
11508

065414
065416
068422

103352
004737
004737

11510
11511

065433
06S432

017601
012602

11499

11502

11805

11509

065370

065400
065410

0654c6

012546

005303

005777
023705

012600

108:

00000M

004037
066000

11498

065354
0653

MACY11 30(1046)
O01-DEC-77
15:04
2%% DUMP MEMORY #¥#

128:

158:

065452
065452

5434
5436
065440

81 603
012604
01260S

11516
iigig

065446
065450

000000
000776

11519
11520
11521

065452
065486
065460

105777
100375
112777

000015

11346M

11553
118

822472
474

102;7;
112777

000012

113450

0655
(06551

001410
105777

6516
065524

113777
005301

11522
11625
11536
11527

11528

11559
11830

068442

065466
065502
065514

013706

105777

113701

100375

..CR:

113434
001154

(RS)+,-(5P)

s TYPE CONTENTS

;CHECK IF START OF NEXT LINE

JSWR

:CHECK IF STOP PRINT OUT

. .HIGH, RS

:CHECK IF FINISHED

(SP)+,RO

; ;POP STACK INTO RO

(5P)+.R3
(SP}+.RY
(SP)+,RS

:'POP STACK INTO R3
:POP STACK INTQ RY
; :POP STACK INTO RS

RO, ..ARSCI

JSR

rc,..bcT

BNE
JSR

12%
PC,..CR

BPL
HALT

CMP

5§:

109%:
113426

108
PC,..CR
PC’..CR

MOV
MOV

(SP)+.R1
(5P)+ R2

MOV

..sTc&,5p

TSTB
BPL
MOVB

MOVB

$FILLS,RI

MOVB
DEC

$NULL , 3STPB
R1

;LJAD FILL CHARACTER
'CHECK IF FILL COMPLETE

BPL

065532

012001

..ASCI:

MOV

105711

18:

11840
iféflé
i;g:a
Py

11645

065546
065552

112177
000770

065554

000200

(0BSSSe

012701

113400

000006

(CR>

'WAIT FOR RERDY
'RETURN IF NO FILLS
;WAIT FOR REARDY

{iggg

113404

:LOAD

203
J3TPS

BNE
RTS

001406
105777
100375

:WRIT FOR RERDY

BEQ
TST8B

208:

065534

:RESTORE STACK POINTER

sLORD <LF>

001370
000207

065536
065540
(55544

:1POP STACK INTO Rl
:'POP STACK INTO R2

13
#l2,33TPB

065526
065530

11836

JSTPS
..CR
#15,aSTPB

J3TPS

LPL
MOVB

: TYPE ADDRESS

-2

TSTB

11831
{iggg

11837
11538
11539

153

BHIS
JSR
JSR

HALT

113472

001155

s TYPE 4 LOCATIONS PER LINE

JSR
.. BLNK

MOV
MOV
MOV

065060

113456

RS, -(SP}
PC...0CT
84, R3

MOV

11515
1181
11514

11518

MOV
JSR
MOV

18T

000226

SEQ 0252

PC,..CR

DEC

113534

PAGE 254

JSR

MOV

065452

GO4

1578

108

108
PC

'LCAD FILL COUNT

s FETURN

(RO)+,R1

:STORE ADDRESS OF RSCII

(R1)

: CHECK

IF FINISHED

BEQ
1STB
BPL

208
J$TPS
2%

:WAIT FOR READY

(R1)+,3$TPB
18

: TYPE CHARACTER

20%:

RTS

: RETURN

..0CT:

MoV

#6,R1

:LORD DIGIT COUNT

2%:
.

MOVB
BR

INTO RI

CZR6PCO RKe11-06 PERF EXEC
01-DEC-77 14:53
CZR6PC.P11

MACY1l 30(1046)
O0O1-DEC-77
15:04
xx% DUMP MEMORY #x¥

%igq; 882 Es 888983
11548

5%:

{253
fee2sh
83236
ooooo:
11581
579
10

11552
11553
11354
11558
11556

115857

065576
065602
82260"
610
065612

ggggég

006366
006102
06366
6102
052702

18877?

000002
000002

108:

000060

113326

158:

iigsg 0556 ilflg;; 113322
1]%60 gfigbég
=~

11581

005%0%

656

00135

065636

000207

06S634

1156S
11566
11567
11568
11569
11270
11571

06564)
OeSe46
065653
065660
065666
065674
065701

030122
020040
122
020040
03112
0200
122

036440
020040
020061
020040
038490
020040
020063

02004C
000
020075
000040
020040
000
020075

11673

065714

032122

036440

iigga

11572
11574

065706
2

11575

065733

11577

065742

11579

0657SS

11576

11578

11580
11581
11582
11583
11584

11587

11588
11589
11590
11591
11592
11533
11594
11595

11598
11599
1i600
11601

012616

;GET OCTAL DIGIT

ASL
ROL
ASL
ROL
BIS

2(SF)
R2
2(SP)
Re
#60,R2

;MAKE IT ASCII

ESbB

éESQSTPB

1578

MOV

ers
Re

3STPS

gé

;WAIT FOR RERDY

)

’

(SP)Y+, (SP)

TYPE OCTAL DIGIT

;CHECK IF WHOLE WORD PRINTED
; ADJUST RETURN

..RO:

.ASCIZ

/RO =

..Rl1:

.RSCIZ

/Rl

..Re:

.ASCIZ

/Re =

..R3:

.ASCIZ

/R3 =

020040

..R4:

.ASCIZ

/R4 =

8288

020075

. .RS:

.RSCIZ

/RS =

050123

036440

020040

..SP:

.ASCIZ

/SP =

101

042104

042522

..RDD:

.RSCIZ

/ADDRESS

CONTENTS/

020040

Uoo

..BLNK:
.EVEN

.RSCIZ

020105

048522

HELP:

.ASCII

/THE RKO6-RKO7-K MUST BE PROPERLY FORMATED 22 SECTORS PER TRACK/«1S»><la>

.ASCII

/7O BEGIN PERFORMANCE TESTING TYPE CONTROL-C ¢« >>/<1S><1a>

020040

IZS

02004

020040

065762
065770
065776
066000

0S1S23
047117
000123
020040
8660

066006

044124

020040
02004

20040

020040
020040
042524

066066

033
026467
0521
0S11e0
0S4S14
040515
031062
Q475

0S10SS
020113
041040
0SO117
043040
042524
O0S1440
0SiSee

066106

Q47524

84109

066114
066l22
066130

;GET LERDING DIGIT

RTS

065750

066014
0660%5
60
066036
066044
066052

108

g
ROL

SEQ 0253

:CLERR _R2 FOR OUTPUT

gfig

11562

PJIGE 2S5

CLR

1154

HO4Y

47111
047506
042503

[

5004
0465e2
052040

000040

000

000040

000

041440
0S211b6

030113
052515
020105
051105
O0S1117
020104
041505
0S0040

04305

0S110S
047101
051505

; RETURN

+ b +}

o4452Y4
0S0131
052116
020103
00S0

MACY11l

30(1046)
xx¥

DUMP

01-DEC-7?7

MEMORY

#x#%

15:04

I04

PRAGE 256

SEQ 0254

043516
020105
047522
057074

052040
047503
0e6S1Y
037103

040507

020114
047101

.ASCII

/LEGAL COMMANDS ARE:/<(15><¢12>
12>

020040
042040
047040

.ASCII

/TN -

TEST DRIVE N/<1S> 12>

020040
020105
053054

.ASCII

/kN -

WRITE PACK,VERFY PACK,

.ASCII

/PN -

CHANGE PARAMETER & TEST DRIVE N/<15<12>

020040
052123
044524
020116
020105

.RSCII

/SN -

GET STATISTICS ON DRIVE N/<15><¢12>

020055

.RSCII

/DN -

DROP DRIVE N RAND GET STATISTICS/<15><c12><¢12>

.ASCII

/N CAN BE 0-7 OR A/<1S>
12> (12>

.ASCII

/DATR PATTERNS MUST BE WRITTEN BY THE EXERCISER/<15><12>

.ARSCII

/BEFORE PERFORMANCE TESTING/<«15><l2><l2»

o42s22

042526
026440

—

PRER

oy —O—-N-0ONNWN0 w}b—

N Lt Qo= L O~ = — (N
O
LN
O 0me e ) L 12 1t Y O 0= ) 4t 0t e L 10
£NVO
= NS U
L= =N — O

Q000000

o
Q0
n
nn

Oetble

AND TEST DRIVE N/<15><12>

042526

WWw

nnLrLrlffLrfrrrwww
g

e ey e e
T e e e e O e
el ] o ) Y iy iy Sy iy by Wby WY Wby Wy Uy U W W Uy U U P U
S ury
Pt Dot Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pt i Pt Bt Pt Dt Pt Pt Pt et Pt Pt Pt et Pt Pt Pt Pt Pt Pt P Pt Pt P Pt Pt Pt Pt Pt Pt

s et P

Pt Pt Pt Pt Pt et P Pt st P Pt e

[oa e aleat o aTe sl ATeadeATs ATs gt e gT 0 g0 oo aT0 g¥s aTo gTo oTo 2T 0 a¥s aTo a0 a¥s ol ¢ a0 a0 ATa a0 a¥ ] oo
oo oo agaoooo o

066136
066144

ZRZRZ RRZZAZAL
S8R
- 22 R
5FnRESREF2RAIN

e0e

Q00
\zmmxuwwomm\:mm:umv— O0m \zg:fl:um» BNNNNNNNNNNO—O—'—F*-'-'—'-""'-‘0008
DONC N LW
OO NN LWN—-O O~ N LW

6PCO RKb11/06 PERF_EXEC
0I-DEC-77 14:53
ePC .Pl1l

e L

C
C

052123
044524
0le
047101
026460
UH0440

020101

042523

006Se2

043105
042520

0s1117
043122

CO RK&11,06 PERF_EXEC
01-DEC-77 14:53
6PC.P11
066620

0S1117

040S1S

O
n

006504

.ASCIZ

(=}
~

O
£
~N
n
n
n

(047101
ooo

[

o
Q
£
(=]

Q46515
00S012

[uoy

Q
P
o

067076
067104

SEQ 0255

REZRERA

~N
o
o

FRPRE

PRGE 257

/xxxWARNING#*% IF PROCESSOR HALT DURING DRTA TRANSFER/<15>
12>

.ASCII

042040

000001

JO4

041

L.RSCII

o
o

DO NN
L W~ DWOm NN NEWN—-0OOBONTNEWN—-O

MACY1l 30(1046)
01-DEC-77
15:04
k%% DUMP MEMCRY ¥x#

.END

TO DRIVE,

BRD ECC MAY BE WRITTEN ON PARCK./<15>
12>

DRIVES MUST BE DROPPED BY PROGRAM OR WITH DROP COMMAND/<1S><l12><12

CZR6PCO RKB11-06 PERF _EXEC
CZR6PC.PI11
01-DEC-77 14:53
ABASE =
ABNORM
ABNOOO
ABNOO1

177440
025312
025400
025440

11748
187¢
6149
6151

1743
4210
61S3%
6155

1784
4219
6204
6165#%

5947
6209

£ase
eele

= 000010

13018

S84y

7878

7910

7953

1743

1798

4248

4273

RCDW]1 = 000000
ACOWe = 000000

ACLO

KO4

MACY11 30(1046)
O1-DEC-77
15:04
PAGE 259
CROSS REFERENCE TARBLE -~ USER SYMBOLS

1743
1743

1786
1787

ACPUOP= 000000
ADDWO = 000000
RADDW1 = 00000

1743
1743
1743

ADDW11= 000000
ADDW12= 000000

1743
1743

ADDW14=
ADDK1S=
ADDW2 =
ADDW3 =
ADDWY =
ADDWS =
RADDOW6 =
RDDW? =
ADDW8 =
ADDWY _=
ADEVCT=
ADEVM =
RENV
=
AENVM =
AFATAL=
AMADR1=
AMADR2=
AMADR3=
AMADRY=
AMAMS 1=

000000
000000
000C00
00LJJ0
000000
000000
000000
000000
000000
000000
000000
00G0
000000
0000
000000
000000
000000
000
000000
000000

1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
1743

1799
1800
1801
1802
1803
1790
1791
1792
1793
1794
1795
1796
1797
1749
1785
1754
1755
1746
1771
1775
1778
1781
1765

AMAMS3=
AMAMSY=
AMSGRD=
AMSGLG=
AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYPY4=
APASS =
APRIOR=

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000240

1743
1743
1743
1743
1743
1743
1743
1743
1743
1743
11728

1776
1779
1751
1752
1745
1766
1774
1777
1780
1748
1743

RADDW10= 000000
ADDW13= 000030

AMAMS2= 000000

APTCSU= 000040

1743

9981

1758
1788
1789

10694

9374
3374

10650
10691

10692

ASNORM
ASN1S
ASN2S

013504
013600
013632

41768
41908
4189

5982
4208
41964

7726

ASN4S

013672

ASN3S

ASWREG=

000100

9976

013662

4194

000000

1743

Y4177

B4SH

4297

4309

1773

APTENV= 000001
APTSIZ= 000200
APTSPO=

61348

SEG 0256

10652

42008

Y204
#
1756

10693#

4225

4398

4411

Y443

4493

CZRBPCO RK611-/06 PERF_EXEC
CZREPC.P11
01-DEC-77 14:53
ATESTN=
AUNIT =
AUSWR =
AVRILQ
AVECT1=
AVECT2=
A.ABNL
R.CONT

000000
000000
000000
001314
120210
000000
001456
001460

R.NORM
BAI

001454

1743
1743
1743
18108
11738
1743
18728
18738
9230
1871

1747
1750
1757
3419
1743
1783
86786
8743
9368
8796

0004G0
001000
(042356
(052774

12368
12378
7331
3569

6075
6075
834Ss
6233

= 000020

BR16
=
BR17
=
BOSECT
BINOCT

BITO

= 000001

BITO0
BITOl
BIT02
81703
BITO4
BITOS
BITO6
BITQ7?
BI1708
BI709
BIT1I

=
=
=
=
=
=
=
=
=
=
=

000001
000002
000004
002010
000020
000040
000100
000200
000400
001000
000002

BIT10 = 002000
BIT11

= 004000

BITie2 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S =

LO4

MACY1l 30(1046)
01-DEC-77
15:04
PAGE 260
CROSS REFERENCE TARBLE -- USER SYMBOLS

100000

BITe

= 000004

BIT3

= 000010

8IT4

= 000020

BITS

= 000040

BITe

= 000100

BIT?

= 000200

12608

9516

3814

4361

45e8

5932

695S

7708

8277

8847
8826
9566
8893

8864
8835
36ie
014

3058
8906
9621
3562

9078
8328
3634
9642

9555
8954

8939

9046

1782

6238

ba4l

6651
6832

6655
683S

6659
6841

32?3

6513

6634

6735

1147%
11468
11458
114948
11438
11428
11418
11408
11398
11388
11568

1157
1156
11585
1154
1153
1152
1161
1150
1149
1148
1251

7855
1233

9102

9181

9203

7143
7143

6648
6711

7672
11578

SEG 0257

7858
1250

624y

6662
6844

6668
6847

6682
7425

6555
£702

7636

6560
£705

1880

5927

6394

6247

6250

9948
1276

10044s
1298

10225
1479

6794

6826

6784

7654

7845

7724

6814
%égzc

7085
%sag

1278
7502
1267

1480
7504
1289

1881
7724
13eM4

4199

4204

6744

6786

6792

1338

1351

1830

4209

7083

11368
7123
1135¢

1239
7124
1e41

1268
7300
1269

1290
7894
1291

1309
7953
13e6

1325
8018
1340

1339
8020
1353

1493

4217

7089

1494

7088

7123

1292

1310

1327

1341

1495

7088

7123

1293

1311

1328

1342

1496

‘891

g821le

1329

6165

524

6854

1882

6084

6163

6501

1883

4311

4327

S946

3477
8455

40S3

188S

4417

1485
8442
1377

1887

Yo24

1487

4318

8021
11348
8037
11338
8260
11328

6874

11554

8027
1242
8043
1243
8345
144

6892
12Se

8Ce9
1270
8045
1271
8399
1245

1272

1294

1312

7020

7352

7516

7871

8369

1279

1280

1300

1481

6753

6797

6802

6823

708S

7493

7724

ela4
11538

6504
1253

6537
1260

6539
l28¢e

6849
1302

6934
1303

7724
1318

11548

4069
11528
Y472
11518
Y227
11508

1258

4341
1261
4486
1234
4229
1235

1259

4404
1262
5958
1263
6159
lee4

1281

6203
1283
6211
1284
6750
1285

1301

6837
1304
6746
130S
6820
1306

1482

6997
1319
6816
1320
7021
1307

7320
1333
7018
1334
7030
1321

1484

CZR6PCO RK611-06 PERF EXEC
CZR&PC.P11
01-DEC-77 14:83

MACY1l

30(1046)

01-DEC-77

= ooc400

8I19
- 001000
060530
BLANKS

6257

BITE

1288

6703

BPTVEC= 000014
gole6e

8353

Lornrunfuiu Lo
NN
L LWL—ounininne-—
LU~ LONOOW
N — O~

CINITQ

0013eH4

000i0S
00:374

7871

1287

1308

1322

1888

1323

6283

383

303%

8372
4394
4495
8289
YoMl
6456

Qcs?

6686
7856

6708

923

8318
8379

8394
5387
4502

8326

8382

8397

S423%

8406

6022

6758

6900

6921

7006

7682

4251

4526
8431
4ae?

4401

4488

4497

538S

8390

8397

6458

Y62

9132

3510

7842

8357

7814

L 2

]

]9t Pt Pt et e
) L =t st s e N

nunn

—

CFMT

CHWKADD
CHKCLK

689¢2

8301%

8374

SWAITQ
E.BRlb=

SEQ 02c8

6874

8311#%

8310%
8363

7741

PRAGE 26!

6854

83(.2%

7329

BUF FARL
BUFREL

MO4

CROSS REFERENCE TRBLE -- USER SYMBOLS
6165
10201
1286

4318

15:04

9527
8654
9527
6000

9577
8913
9577
60708

4201
7c61

5213
7303

8024
9737

8040
9750

851¢e»

8521

CLERR =
CLKFLG
Ci KFRQ
CLKINTY
CLOCK
CLR
CMDTO
CMPBUF
CNTCNT
CNTRL
L
=
COE
CONCLR=
CONERR

001000
000176
037322

6923

921%

7097

7103

CONHUN
CONTRL
CPUID

044032
026346
0C13e4

85904

8540+

6145

7542

8254

7862

S6e9

7130

7139

7154

7162

7169

7403

MACY11 30(1046)

CZREPCO_RK611-/06 PERF_EXEC

CZrePC.P11
CR _
CRLF
10

= 000015
= £00200
004000

C.OPT

D0S174G

C.INIV

10728
10738
12338

10020
3385
5899

10030
9931
7037

3793

8947

9018

94078

3892

9563

9567

5925

B436

6828

7358

8923

9215

4806

4832

DSQ446
025424

3447
6009

95238
61628

= 020020

13038

= 100000

1294s

9830s

3559

C.RTRN 051364
DCK_

9l14

10736

956

g5us

DCLO

10733
10030
9211

9553

3513

C.SPEC
DATERR

DOISP = 177570

1G798

1726

3362

054302

3606

3632

4716

4741

478M

DETGFF 037026
= Q40000
CI__

7849
12438

7449
84S
33p2e

7533
9627
3370%

77768
9849

BISO

= 100000

5911

e434

7334

8917

9213

= 000040

7343

es8l

OMD

7342

8613
4ig8

9548
4207

9860
8072

us)4

5372

6036

0OT_

= 0O0CY00

DESL

= 0G.010

DECBIN
OISPLA
Di5PRE

OLTCNT
DRA
DROY

OROP

001142
000174

1308

12588

7268
66a8

001626

= 00QOCI
= G0G20G

s
s

013004
012260

DROPOV

L
]
&

3370

34i5e

Yogds

4290

N34

]
]
]

8
s

DTE

= 010000

DTYPE

0204.0

= 00004T

-MNTR= 000000

3468
3468

9011
egul

9023
8573

3805

391/

7055

8815

8889

8977

9083

9339

1725

3361

5SeS

6436

g3s

5825

834l
7n22

3470

3468

943¢

9601

9606

313

9635

6901

6340

7007

7BBY

7THM

yo48#

40SS®*

4059

4030

40si

4067

103458

6759

0 ;l

4018

432

9910

9870
9741

agay
9805

9627
9870

331
914

290

]
4
8
s
]
|

177570

DIBRII= 100000

DTYE

LJ
s

9581

39748

]

ons-oDb- 01000C

SEQ 0259

15:04 PAGE 262

01-DEC-77

CROSS REFERENCE TABLE -- USER SYMBOLS

01-DEC-77 14:52

047716

NO4

4993s

he01

3514

9910

6390

p436

5006

I932
0

3215

7887

9805
09
8966

40c2

3953

39865

3095

9552

9871

3994

4gl1s

3346

93s3

3360

9529

985S

7924

9215

3979

CZR6PCO RKb11-06 PERF _EXEC
CZR6PC.P11
01-DEC-77 14:53

MACY11

4653

4658
4617

4940
4938

6317%

B318%

6323

7395

8923

9215

6927%

5954

6072*

SEQ 020

—

.MXTR=
.RATE=
.SKET=
} =

aluiminielelolelele)

D.MxSC= 000025

BOS

15:04
PRGE 263
01-DEC-77
CROSS REFERENCE TARBLE -- USER SYMBOLS

30(1046)

EMTVEC=
ERCONT
00ise4
ERCVY
ERCVYL
ERCVY2
ERRPRO

032002
o40262
043060
001566

Pt Pt
Dot e Pt Pt (et Pt Pt P Pt Pt Pt Pt P Pt Pt Pt Pt Pt

0000000 0000000 L0000
oo~
L WWW L£r—es-e

O 00 0=t 5t Pt Pt P Pt Pt Pt Pt Pt Pt ot Pt Pt Pt Pt Pt o
b e O

L —UNNO
U W \18
L0 LN

NWIHWLW NOW £—=NUT— 0= WO

e Pt ot Pt Pt ot Pt P

(s ot Pt Pt Pt Pt s Pt Pt

NNOOCCNNINLE
L L WW— 00

FRARRRRRRERRERRRRR

8490

5969

S976%

6166

6173
3360
8S04#%
7345

6179
3371%
8S10%

8495
3387+
B8S1H*

7685%

ERRPRQ
ERRVEC=

ERROOO
ERROO1

3795
6524#*
69788

8469

11023%

7696%

7864

7872%

11003#

6324

6330

6331

6084x

bla4x

6140

5194

6495

6498

6501

6761%

5903%

8282%

H94e*
8388*

6957#%
BY1bn

6974x
8428%

69
»
B435#

2400%
10400

3401x
10401

36b61#
10405#*

3b62%
10M406%

3664#
10413%

3665*
10414%

3669»

Dx»

8279%

CZR6PCO RKb11-06 PERF EXEC

MARCY1l 30(1046)

ERRO32
ERRQ33
ERRO34
ERRO3S

062066
062103
062112
06e2leS

7944
7912
7915
7926

11142s
11145
11147¢
11149

ERRO37?
ERRO38
ERRO39
ERRO40
ERROM2
ERRQ43

06215
062201
062216
062233
062243
DOFRe26e

7936
7112
7120
7297
8187
8131

11154
11158#
11161#
11165#
11168%
111724

ERROY6
ERRO47?
ERRO48
ERROSO
ERRQS]
R
gg

062330
062350
062364
062376
15
2435

7222
7339
7330
7469
7131
8075

ERROSY
ERROSE
ERROS?
ERROS8
ERROSS
ERRO6Q
ERRO62
ERROBY
ERROES
ERRO66
ERRO67
ERRO7?0
ERRO71
ERRQ7?2
ERRQ73
ERRO7Y

062554
062622
0625;5
062676
062753
063024
0630
063075
063105
063130
063150
063171
063214
063240
063261
063306

7956
7921
7961
7971
7000
7422
7510
gles
7312
7404
6830
7140
7155
7163
7170
7015

ERR101
ERRIOE
ERR1IO8
ERRI11
ERR200

3462
063544
0635Se
063563
063611

664l
6644
7669
6839
6384

113018
6678
113118
11313#
113178

ER
ERR203
ERR2OM
ERR2OS
ER
ERR207?
ERR208
ERR209
ERR210
ERR lé

063721
063757
4012
4047
4102
064136
064201
064232
064252
06430

6742
7691
6939
6899
6748
6406
844S
8193
g478
7423

6809
113368
6949
6929
6818
11356#
113628
84Se
113718
11376

CZREPC.P11

RR03§

RROYY
RRO4S

RRJ

ERRIQ0O

ERR201

RR2le
ERR213
ERR214

01-DEC-77 14:53

0621y

(o2277
315

2513

3351

063651

06431
064321
064372

7931

11152

111764
11179

7950

11206#

6392

7427
6550
6556

15:04

COS

PAGE 2bY4

CROSS REFERENCE TABLE -- USER SYMBO.S

7098
7104

6673

01-DEC-77

11181#
11185¢
11187
11190s
11194
8079
11213s
11221
11223
8472
8457
112448
liz24es
11252
11255s
7851
7853
8366
8358
112738
112768
11280s

8448

8460

11197

11229
11237#

112594

112624
11265

11269#

11287%

6396

11378
11380#%
11387

11310#%

6439

11323#

g432
7683
113Si#s

[1341s
11346

7513

11367#

7985

11330s

SEQ 02kl

CZR6PCO RK611-06 PERF EXEC
01-DEC-77 14:S3
CZRePC.P11

01-DEC-?77

15:04

DOS

PAGE 265

SEQ 0262

CROSS REFERENCE TARBLE -- USER SYMBOLS
11390

064567

30(1046)

Pt Pt Pt Pt P

ERR302

RRI0L OEHaD?

MARCY11

8 848
8
8
1

8
8
8874
8928
8
8
8
8

5083

S087#

S103»

S10S*

8997

3045

9069

9101

6348
9228#%

8742%
q9367%

*
8824
9565%

8834#
96l

90S3

9063

S120

Si24s

5126

5128

S1e9

5133

890S*
9619+

8S27#
9632#

8953

8997»

9045

9069+

3558

3559

3738+

3742

6973

7008

7686

9367

9202

2565

8971

FBLKT

001672

SS40*
3446%

SSe5#
3529%

3S4e*

3545

FLAG

001361

343S

3503

3780

10443

6760

6902

B34l

6956

7518

786C

7990

8484

9215
GETBUF

(022342

GETCUR

036746

HOLD

HOLD1

027074
EREERR

|=]
Q

nwnnn

P
(9]

GETNUM

6066
8487

027160

0271ee

8345

H470%
6471

EOS

CZR6PCO RKB11/06 PERF_EXEC
CZR6PC.P11
01-DEC-77 14:53

MACY11 30(1046)
01-DEC-77
15:04 PRAGE 266
CROSS REFERENCE TABLE ~- USER SYMBO.S

HOUR
HT

HVRC

001366
= 000011

18348
10708

3487®
9989

BS5Sx
10030

001352

18248

8533

854J

= 000400

H.HERD

10RE
IE
ILC
ILF

ILLCMD
ILLCOM
INTMSK
INTR

001507

12878

19198

5925

7308

7264

8923

9215

7939
3223
7049

9641

10194

10210

12898
12348
12768

5937
5379
5925

7887
3155

0Se042
056011
001514

3905
3906
192Ss

5005
10742

10747

= 000300

12248

= 000004

I0TVEC= 000020
IR
= 000100

12798

8789
3043

11658
1263%

8564

6431,

= 002000
= 000100
= 000001

6436

3218

4160
8794
9054
4424

b4y
8822
3067
5990

6447
8843
3076
6004

6952
8858
3039
3852

6364
8868
9110

7248
8871
419

I.RERR

046132

8983

8939

3007

9023%

9088

3093

9108

I.CCLR

046712

8808

g862

91458

9221

3544

9605

9868

I.ATTN

045420

8753

8771

8311s

I.CSTS
I1.CST1
I.DURL
I.ERR
I.ERRA
I.ERRC
I.HDAL
I.INTR
I.ISRL

047364
047406
(046506
Q44614
044574
044602
045060
044266
001506

5898
880S
8968
8802
880is
8764
878S
3448
égég.

8801
8861
9083
88064
8873
8792
ge8sSas
3763
3434%

I.ISSU

046774

6528

8820

I.]100
I.RTRN

044432
046674

3361
8750
8744

8903

8907

I.STAT
I.STOR
I.UNLD

047470
047236
046402

8817
6344
8973

9038
6429
3063%

93378
9197

3558
92S1s

LDDRTR

0e30S6

3835

4Yey?7

4Ya7e

4397

4492

10718

10024

10030

10733

10736

3782
18278
13228

3783
3S83®

37908
3594

3796
3595

3816
3597%

3820
3608

8740

9200

9542

BSSE

8554«

8565

LDEXAR
LF

LSTCYL

#x¥x%x U

020506

= 000012

027154

MAIN
011356
MAXBUF
001354
MCLK
= 000400

MD
= 001000
MEMBRS= 172100

9056

10396

4306
4238

12668
11768

MEMERR
052472
MEMVEC= 000114

3393
11758

MESMSK=
MEWD
=
MIND
=
MINUTE

13168
13248
13210
18358

MERD

= 001000

000017
002000
000200
001370

13238

9856
8768
8797

9059

4810

4239

5911
3389

7447

8887
39540

7531

893S
9550

9535
-

88048

8943

8732#
4423%

5989%

H003%

B746

B749%

9156#

9575%

640

#
9851

8890

8978

8932

9041

906S

9097

9340

347

9354

8809

8818

geel

8827

8836

3066

9071

3079

3085

3098

[VelVelso)
=L
p—.—_‘
oom

KIPARD=

3296
9300%

SEQ 0263

8865
9039

8891
9042

8894
9047

6469+

6474x

64798

8929

4914

4550

6434

9946
4
3393%

3394#

3486»

BSSl¥

8348

4918
4571

8955

Y922
4576

8979

8993

$393

Se07s

4936

5009#

S50s0s

3828
3751%

5063
3843

4381

S101
5239

CZREPCO RKb11-06 PERF_EXEC
CZR6PC.P11
01-DEC-77 14:53
MSP
=
M.CADD=
M.CDIF=
M.DRV_=
M.HERD=
M.10
=
M.PAR_=
M.SECT=
M.SER =

NED

NEM

NERSTT

FOS

MACY1l 30(1046)
01-DEC-77
15:04
PRGE 267
CROSS REFERENCE TRBLE -- USER SYMBOLS

000100
017760
017760
000007
007000
000003
100000
000760
077770

13208
13928
13918
13888
13958
13908
1389s%
13948
13938

B09S
4184

= 004000

2688

5911

= 010000

031300

12698
68728

7289

S91l

7079

NEWFLG
NOCHK =
NODSC =
NORMAL
NORM1

027156
000430
004000
024”22
024616

4178
14e8s
14938
1871
6007

4180%
9432
7903
58988
e0l2s

OCTBIN

0SH4146

3514

3577

NXE- = 06000

0CTSTG
053070
OFFM12= 000260

1980s
5079
10050

14238

SEG O2e4

6434

7061

7121

8080

6434
6400%
9638
7968
B4S3
7716

8317

B4S1
9910
8470

64808

8937

7887

7934’

5099
10068

S116
10071%

10290#

7803

3656

8755

709S

3689

8810
9213

8988

9092

3712

4YS46

9215

9209

9213

9546

9858

4559

45e8

4600

4629

4641

4670

S061

OFFP12=
OFFPY =
OFFP8_=
OFFSET=
OFST
=
PI
__=
OPISTT

000060
000020
000040
000115
000004
020000
031346

14
14188
14208
14198
12088
13008
12928
68898

7798
7778
7788
7804

8038

477

5925
7298

6436
7313

7264
8169

8923
8188

OPROO1

0S6065

3876%

3878

3880

3882

3889%

4O74%

107S1s

3938%

3948

39%1

3974

3991

4000*

056070
056103
056116
0S6l42
0S6l6e2
056230

4064

3929

OPROO2
OPROO3
OPROO4
OPROOS
OPROO6
OPROQ7?

4010
3885
4356
3940
4002
4091
3873

OPROL11

0S6357

40B88#

4103

4353%

4354®

4508%

4S09*

6631x

6632

£98S*

£986*

1078Ss

OPRO14

058451

3988

8768

8787%

B8857»

B8870%

888S®

470%

9513

OPROle
OPRO13

OPROLIS

OPTFLG

0S6362
056407

0S6473

001500

85LYLD= 88?38%
.

O.WRIT

Q201464

4027
10752
4511
4076
4038
107638
107708

107548
10756#
10760%

40B9I*

4102%

4Y0eu4

107908
107968

4166%

9207

9837%

993S#

3432%
9585%

p422*
9839

6863
9867%

g671
9901x

4348
3926

10786#
4061

4289

10800#

isgg.]

3439

19148

18948
9571%

4036%

3539%

4046

3555#%

3912

37393

8675

GOS

CZRBEPCO RKbE11-06 PERF_EXEC
CZR6PC.P11
01-DEC-77 1M4:53

MACY1l 30(1046)
01-DEC-77
15:04
PAGE 268
CROSS REFERENCE TRBLE -- USER SYMBO.S

PACK
= 000103
PRRCYL
001602

4191
4S4B8x®

4ige2
4550

4Selx

4SH2

4YS71%

7752

77SS

7766

7769

8477

PARM
PARMOV

PARMIO

12038
19688

016120
012150

395¢
3894

004S16

27568

002750

13939

PRRM2

002472

PARMY
PARMS

3964
39484

4533

SEQ 0285

4S76b#

4S77#

4578

4579

1938

21974

003226
003504

1940
1941

2383
24764

SSRSE$

88"12

lgggt

3335*

4632

He43%

HbMY

4653%

46S8*

4659%

4660

4661

PARTRK

001606

19698

4590%

4591

YeO2%

4603

4bi2%

MHB17%

4618%

4619

4620

5739

5836

7623

PRRM3

PAR.EN=
PRROOO
PRROOL
PAROO2
PAROO3
PRROOY
PRROCS
PRROO6
PRROQ7?
PRROOB

PRROOY

PAROIO0
PRRO11
PAROl2

PRARO13
PAROIY
PRROLS
PRRO16
PAROL7
PARO1B
PARO19
PARO20
PARO21
PARO22
PRASCNT

2290

)

000001
057507
0S7533
057540
057563
(0S7603
057624
057647
057701
0S7744

11778
4537
453S%
4539
4581
4622
4663
4687
4708
4733

2
10901
4S36#
10906+
10910
10913s
10916#
103920
10925s
10931s

060040
06010S
06014S

4778
4799
4825

109428
10949s
10955#

060011

060212
060220
060227
060235
060244
060252
060300
060307
060443
060466
001356

4757

10938

4907
4911
4915
4919
45923
4881
4880
5371
4860
49393
18284
13188
1672

109628
10963
109658
10967#
10969
S0S4
10974#
109768
10992
1099%6#

279sS
2796

30684
31018

PAT
= 000020
PATTAB
004602
PATO
oo4e42
PAT1
004742

2787
27e8

2787s
2804s
2837

PRAT12
PATI3
PRTIY
PATIS
PATI6E
PAT1?
PRT2
PAT3
PATY

2797
2798
2799
2800
2801
e80e
2789
2790
2781

3134y
31678
3200%
32334
32664
3299
2870s
2903#
29364

PATIB
PAT1]

00S642
005742

006042
0O06l4e
006242
006342
006442
0eS42
005042
00S142
00se4e

1090S#

10970

5631

CZREPCO RKb11-06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53
PATS
PAT
PRT

0534
OSHH

MACY1l 30(1046)
01-DEC-77
15:04
PRGE 269
CROSS REFERENCE TABLE -- USER SYMBO.S

7’92
2793
2794

9698
002s
30358
8397
9372

3488

8762

3804

8937

3916

8965

3931

39¢€1

PBSVAL= 001000
PCR
= 004000

HO&S
14898
13258

PERINVY
001360
PERIOD
88587
PGE
=
8]

18298
1838#»
12678

3637%
g 34%
11

3647%
8547%
6434

3757%
§5491
7043

8534

8545

8549

7022%

8071

7S14
4869
3337

7591
48808
3340

6991

7987

8474

8480

4896
3344

PBLKT

001524

010000

19368

13268

PIP
= 020000
PIRQ
= 177?272
PIRQVE= 000240

13108
10778
1171s

PRDST

6230

OSCHQ

CO1666

PRERWD
PREXAR
PRGSRT

036024
017774
006676

0gesrz20

027442

PRIREG

025652

PRISER
PRISTT
PRITIM
PRIOOO
PRIOO!L
PRIOO2
PRI100

7431
4859
3334

65358

62158

6749

6851

6410

6819

7517

41085
62658
4106
66268
6516
6512

4357
6511
4358
6732
bb4ls
66738

4sile
6743
4513
6803
675S
6752

65758
6813
6409
6999
6825
6822

6636
6990
6510
73..
7989
7003

7340
6637
7507

(030654

g?ggl

7077

7111

7119

722l

7296

67288

7014

7032

7057

7063

PRSTAT (026132

6%20

6223

6272

62798

6284

PR}
PR2
PR3
PRY
PRS

109Ss
10968
1097
1098#
1099

1172

1870

3734

3760

owmo

PRO

= 000000
=
=
=
=
=

000040
000100
000140
000200
000240

;s% z 800380
S

1094

11004
B

8532
RS

88
mm

3978

3993

7849
6988
7843

7986
85598
7909

8473
10442
7918

8479

7850

7988

847s

8481

7311

7369

7468

8078

7068

8074

Y
SR

6
104
B

4077
7

4YO#

9682%

9706

17?776

9668
107Ss

970;l

9716%

9836

9838

P ASOF= 000032

15108

8994 4%

#4995

90354#

838

gq;g§

9480

=
=

PIaSSh= COGE1D

P.AWCK= Q00077

P.RCO = DOO0O40D

P.AGCL1

000044

;

Y 09

7518

4073%

PSW

4084

3963

4Ol4

4029

7964

guMyY

8130

8167

4050

9213

027616
(026074
043670
030000
30066
30244
030464

PRI20O0

19938

3450

SEQ 0266

4100 *

Youb

7947

10439 1144
OCNL HS
HYe7l#

;

4391 #

4396

8186

Y425

Q936* 10206% 102081 11440#

IBI7
303
W2
o
0%
uoowr
wwr
wiew e
i
4311
4315
4318 el
4327 Bl
4341
Y404
Y417
Y72 ugses
4486
HSSM 4S07»
4520
§980
%

8333

6634

6735

1€368

4695

4706%

1S1E5s

Q34ex

16138

6236

898S#*

6932

6934

4Q43%

5263

8h86

9002#%

6936

6966%

7088

9003

Q9363

QC36#

7408

7701

7724

8220

8273

6PCO_RKE11-/06 PERF _EXEC
6PC.Pl11
01-DEC-77 14:53
.A10 = 0000S0
.All = 0000S4
.8AHI= 000007

TVUVVVOVOVOVUVOD

9Q349#
1183

9356#%

14738

428l

4Y435%

S4S4e

SYEE*

SB76

6080

6701

.BAR = 000024
.BFCP= 000222

15078
16488

7145
Sp78%

7152
S718

9032%

9302%

15168
15188
15208
15378

S466*
Q364#

7478
7412%
5506
9537%

8355

801 =
810 =
B11 =
CERT=

6081
SB77%
34S6*
B8980%
3343*
7288
7308
4718%

9350#*
8094
4730%

8892%
4944%

9357#x
7678

14668
Y4y2®

4169%
S5209%

4191%
S218%

4197%
5220

4222%
S290*

H4234%
SbiS

4259%
5956

7481%
g152%

7535%
8158

7703
g172%

770S
B2ll%

7711%
8225

7731%
8227

3875

9877

9879

éggét

gggg!

ggé;l

15058

5911

14678

4238%

.BRLO= 000010

BUFF= 00014S
800 = 000042
000046
0000Se
000056
000100

.CMLG= 000220

.CMND= 000001

15178
15198
14728

105

MACY1l 30(1046)
01-DEC-77
15:04
PAGE 270
CROSS REFERENCE TARBLE -- USER SYMBOLS

;ggg!

15688
15148

16478

p062%
9449
.CS1 = 000016

.CS1H= 000007
P.CS2 = 000020
P.CYLN= 000002

P.DCYL= 000030
FP.JPAT= 000121

P.DRVN= 000000

3609

15048

3468
7158

7365

74S4%

S5674%

6681
9461

5899

6970%
9471

7043

7413%

7022

94?727

7538%

7025%
9483

4439%
6012

9486

7804%
8236

9492

B022*
8248

8038%
8297%

8059%
8351

8060
8392

8071%
8783

8083#
Q445

7090%

7125%

7251%
9500

bY462®

bY4BL

8898

9191

9489

9509

9526

9576

7334

7464

8810

9030%

9300%

Q443»

4446

5210

5219

S360%

6120

6684

9533

9925
7371

8165

8284#

B302

7061

7067

7095

7101

7253%

7280

73cex

7364

7453%

7446

4306%

H376%¥

4434

elel

8836

473

94398

4380%

44BY®

5217%

Sobe*

Sbee

6710

7530

7698

8147

8780

9189

41?7

9304#
5966

9548
6153

6165%

6537

6874%
7300%*

gs&g

ggzgl

g082%

8088

8092*

P.DTS = 000026

éggg.

3385

Y432

6105

P.ECMP= 000117
P.EPAT= 000062
P.EPOS= 0000&0

15438
1522s
15218

4165%
6310
6299

5789%
6831
6834

74]14#
7401
7397

9037%
S200%

7869

4159

7158

BB72
7124*

7871%

4353

4345

4366

5944

7280

7562

7734%

7818

6185

6423

6631

6951

6363

698S

6232

6270

7117

7878

7910

7993

6786

6792%

6794»

797

6539

9881

6740

£968#%
7504*

8l71%

8216

260%

8345

8369%

B8391x

B8037%

BO43

8045#

6118

7166

7185

7195

7270

7277

7370

8283%

8301

7428
7399

7755
7424

7769
7857

7854
8807#%

8806

9437

9919

7329

7358

7614
5832

7635
7410%

7637
7499

7173
9305#%

Teed

7604
5827

7128
9036%

b1b3#

H2C3#

7983

6420%
7924

6828
7929

16338

3457%

3492%

4087%

4209

6882
7320

453S

7271

7537%

6922
7502

§937
7919

7598
g7?23%

4508

7196

7483%

6892%
7352%

5925
7887

7497
5717

7187

9595

6889
7350

15118
7395

5781%
S676%

HYYY

8381l%

e8s4*
7123%

7694

HY33®

8313

6807
7089%

8813
3458%

9603

£E458%

7192

72494

9583

7457

6456

7187

4263%

9569

7451®

8901

9574

gggg

7324%

8899%

9573%

B8295%

9507

7301%

8898

9546

4o60%

7257

8860

6802
7088%

P.ERR = 000212

Y437
6006

954e

15458

16468
16458

4Yyel
§995#

9496

8804»*

4215

P.ERARD= 000217
P.ERHD= 000214

N410®
5987

8383%

7143

4237

= 000034

M373%
S38Y

B33S

7081

4188

P.ER

4308%
5958

B2bb#

S508#%

9525

7654

7272

B155%

7073

1512

P.0STT= 009150

7254%

9517

8072
15888

7180

7735%

2037

4102

= 000036

7151

7552

6269

4088

P.DS

714S

7549

9Sle®

Bc065®

14658

5719

6075

81S3%
5883.

S4S7%
898l

74B4%

SEQ 0287

g0i8

7049
7934

4217%

8020%

7075
7939

S201*

802l*

7109
7995

S946%

8027

759%

59S1x

8029*

7609

b1S0O*

7020%
7S500%

7643

£1S9¢

702l*
7511

B8399%

7083
7?516%

B419x

CZR6PCO RK611-06 PERF EXEC
CZREPC.P11
01-DEC-77 14:53

6208#
P.EXAR= 000232
P.HARD= 000200

7953

1655+«

16118

JOS

MACY11l 30(1046)
Ol-DEC-77
15:04
PRAGE 271
CROSS REFERENCE TABLE -- USER SYMBOLS

62lls
7959

3495

4370%

Y429%

15658

6654

P.LWC = 000142

15668

P.MNTR= 000072
P.MXCD= 000106

16318
15404

P.MXSC= 00007S

15348

P.MXWT= 000112

15418

P.MNCL= 000066
P.MNSC= 00CO74
P.MXCL= 000070

P.MXTR= 000073

P.NER = 000206

P.NODR= 000152
P.NOPI= 000204

P.NRD = 000164
P.NSKI=

000202

4856
%

5233%

6650

8295

8423

6658

8296

842U

6032

4940#%

§321

4838%

4839#%

4840

Y4y 1=

4842

4843

4844 %

4845

6875#*

6876

4518

7004 %
S253#%

7980%
S254%

8483

5276#%

S2774

6027

6032

H480%*

Y481%

S281%

S28ex

S283%

5287%

5288x

5289

6040

Yy478%

Y4479

Se69%

G270

Se71ix

5278%

S279%

5280#

6042

7783%

7788%

7793%

7798#%

7803%

9479

3805

3817

4660#%
4834%

4B837%

5307

4951 x

6046

6051

4109

4385S#*

Y477%

4133

6884 %

65894

7671

7778%

3470

3491 *

9638
9712

4117

6757%

4388*

4386#%

Yo82%

4283

3996#

Y4015

4030

9049
9S08*
15268

9053%
9S14
9670%

9063#
g552%
9675

15568

4331

4435

Y3748

4426

5218

3468

4343

4170%

4682%

6893

4389#

4387%

4051

4067

6600

H266%

3932

3953

3965

3979

3981#

3994

9092%
9741
744

9095x
9774
9747

9107%
9805%
9752

S9220%
9870%
9791

9372%
9871%
9794

9432%
3884
9799

G469%
9887%

9493
9910%

9502
G914s

S4c3x

S4eplx

SC2

S6l2

5232

5268%

5274®

5286%

468S*

4190

4192%

4151
3459

4263
5199%

7521%

7522

5320#%

6598

4168#%

15508
15718

8206
4240*
6960

bHE3%

40B6#*

P.ROPT= 000122
P.RECT= 000146

8050

6459%

4334#%

P.RCYL= 000124

6696

530S

4332%

7481
4320

15548

4855

5210

6027

7451
4260

P.RTRK= 000127

Buc2»

Y4 7%

4949x

7435
gsggi

P.RSEC= 000126

8132
6663

448

6891#

8204
15538
5361

7997
bBM7

4823*

4136

8048

7519
6642

Yg822*

S297

16138

15728

7470
S232#

S308
4Bl

7393
;;gsl

P.RERD= 000147

7391
Y426 %

4939#%
YBllx

5298
5322

4139

15518

7223
4369+

4620%
48084%

5698

P.RCMD= 000123

6945
4319

8425

14708

P.RBAL= 000132

7948

6661

4937%
494 ] %

16148

15358
15574

7894

G235#

P.OFST= 000006

P.RATE= 000076
P.RBAKH= 000134

7695#

Y430%

4113

P.GLNK= 000064

7493

4372%

4938%

147Ss

7030

Y322#%

éggac

P.PRST= 000014

7018

S234#

4619#%

165448

7012

g2l

4936 *

16.2%

9874%

4428%

4578%

éggzc

8458

4Y371x

1S30%

1605s

6907
u233#

5997

6667

4321#*

4579
4661 %

4QS0O»

4a47%
Yeol#

8455

S236%

4307

P.NWRT= 000156
P.PKSR= 000226

4797#%
4196#%

1529
18338

165328

5294

4320%

15678

P.LTRK= 000141

4900

4306

P.LDOPT= 000144

15648

6993

8438
£925

4787
4130%

P.LSEC= 000140

4154

6978

6924#

1544 %
15628
15638

8245#

4130

P.IERC= 000120
P.LCMD= 000135
P.LCYL= 000136

6969%

SEQ J2e8

494ex

4196

5257

4198%

3917

7735

4294

8337

Y4296 #

4301

4376#

4221

4e23*

4233

4235*%

4259

4319

4369

8059
4427

8137
4434#*

glse
5219

8211
5233

g4ee
S306*

5336

5360

5290

6535

6676

6706

72e9

7535
4370

7731
4377%

4429
6909*

Y482
6310

44B3*
6967%

Y4BY
7693%

selz
7999%

5236
8000

S261%
8218

8386

8407

7527

7656

7661

7776

7781

7786

7791

8136

8035

8210%
4321
8420

8144

7801

8208
4ebl
7733

8139

7796

4379%

4428

4432%

5223

ga34

7177
8052

7225%

80sY

72¢b6

7231

8056

80s8*

4323#¢
8424

4324

4407

7236

B8134®

4371

7432%
813S

7433

7437

7442

7281

7472%

7473

8200

8202

8046

334

KOS

CZREPCO RKB11-06 PERF_EXEC
CZR&PC.P11
01-DEC-77 14:53

MACY1l 30(1046)
01-DEC-77
15:04
PAGE 272
CROSS REFERENCE TARBLE -- USER SYMBOLS

P.RWC = 000130

égggi

’;sgg

4322

4372

4430

4460

4490%

5224

5235

c427%

§509

613

7736

P.SECC= 000176
P.SECT= 000004

16108
14688

w12l
Y4232

7658%
4240

7675
42bl®

M307%

4324®

4378%

Y43L1x

445Y

S2ll»

S223®

S36l#

6095

7832
16298
16538
15398

8101
3825%
4183%
476b*

8154%
3827
41B4®
4776%

Bob4®
4256
418S%
494b6*

B296%
4258%
4186%
6895

8329
4305%
4187%

8382%
5206
6579

8897
c208%

474
S216%

9499
7730

9594
8030

B8294#»

7823

8321

4388

4390%

NY4bl®

H471x

447§

4490

4739

Y762

4784

4804

4830

4865

P.SEEK= 000211
P.SERL= 000224

P.SKET=
P.SMPL=
P.SOFF=
P.SRRD=

000104
000116
000174
000172
P.TRCK= 000005
P.UERT= 000102
P.WC
= 000012

P.WCR = 000022

6692

7166

15428
16098
16088
14698
15388
14748

4B868%
4127
4leY4
4448
N4743%
4236b%

S252%
7455%

S224*
7366

6077
7486*

6087
7539%

6704
7540%

7134

7136

8361

9031%

9301#x

3468
5389

11000
9774
5971

805
6172

9870
8494

9887
3703

9914

e01

6063

614y

6070

P1$
P10S
P11
Pl2s
P2$
P3$
P4$
PSS
PES
P7$
P8s
P3$
QNEWSW=
QUESMK

020200
0202/6
020312

4543
4803
4829
4864
458s
4626
4667
4691
4713
4738
4761
4783
1192
7606

49368
49484
4950%
H9S2e
4938
49408
494os
49438
Y944
494Se
4946
s
4947
%
1418
7639

3836

384

7315

7325

020250

020264
020272
000000
060515
@.INIT= 040000
@.POP
051466

Q@.PUSH

051406

14968
3813

5336

:ggg

4586

4171

7354

4627

4668

2707

771@

7737

780S

7873

8002

8023

6663

6676

7393
1329
leles
3874

743S

12208

890!
4974
4169

9599
107308
4170

702s

9523

RECAL = 000113

12078

4eee

Y223

6970

7080

RELFLG

1843

RELEAS= 000140

001406

12198

9533

4421

984Y
4442

7273
BI74x

7541

S61S

12358

7256%
B2be*

74498

5286

= 000200

7255%
Bl57#

7460

4235

ROY

7181
B81S6*

5991

4234

ROGATE= 100000
RDHERD= 000125
ROLIN = 104403
RDSTAT= 00014}

7148
7736%

5362

9875

8137

4714

7136
7553

5394

9583

12108

4692

4386

5212

8783

RDDATA= 000121

43B4x

4se7

9846
7324
10729

00016Y4
104402

7733%

4496

97378
le2ls
10123

RDALHD=
ROCHR =

7567

4400

8173

051626
051542

7536%

4360

6178

8l6l

@.RMOV
@.SRCH

7482%

4250

8084

9932
Q7744

7452%

4200

8063

96658
6486

7363

5746

8039

9112
6134

7321%

5677
7485k

15068

020256

7277

S4e6
7456%

:gggl

020236
020244

725e»

7561
6925
438e*

016174

4B78%
766b*
76b63%
6108
4754%
42be2x

7191

4952%
7677
7676
6688
494Sx
438l1%

POS

020326
0c02i2
020224

7185

SEQ 0269

8236

5987

8351

54935

6197

6530

6354

6971

gale

8253

8268

8276

59356

6006

653S

eb4e

71es

7301

8083

g8l7¢

9877

e0ee

7705

7711

8227

7026

8384

9486

9569

7031

8402

7260

7302

8413

8426

6706

7229

CZREPCO RKE11/06 PERF EXES

CZREPC.PIL1

01-DEC-77

:83

MACY11l 30(1046)
CROSS REFE

15:04

LOS
PAGE

273

SEQG 0270

ABLE -- USER SYMBO.S

33364

RESTRT
RESTO
REST!

006652
007636
011236

1667
3436
3724

RESVEC=
RKARSOF=
RKBR
=
RKBRS
RKCS1 =

000010
000016
000004
001446
000000

llbl#s
11888
11838
18688
1181%

942y
6525#*
9251

8790
9532

885e
9580%

8902»
9600

8911
916

11858

9130%

q517%

952S#

9574x

1184s#
11918
11898

*
9534

RESTZ

glia2se

RKCS2 = 000010
RKDA
=
RKDB
=
RKDC
=
RKDCYiL=
RKDS
=
RKECPS=
RKECPT=
RKER
=
RKMR]1 =
RKMR2 =
RKMR3 =
RKPAT =
RKPOS =

RKPRI

000006
000024
000020
000020
0012
000030
000032
000014
000026
000034
000036
000032
000030

001l4se

RKVEC
001450
RKWC
= 000002
RLS
= 000010
RSTAT
036776
RTYBR
001634
RTYCMD

001645

RTYCYL

001lg42

RTYSCN
RTYSEC

001644
001640

RTYTRK

001641

RTYWC

001636

SAVSWR
SCLR
=
SECOND
SEEK
=
SELDRV=
K1
=
SKISTT
SOFCMP
SPAR
=
SPDLSS=

001404
000040
(001372
000117
000101
000002
031332
(001362
020000
000020

3481

S480*

9145
9626
9595%

9593

1190

11868
11968
11988
1187s
118cs
1193%
1194s
1197»
1195¢%

1870¢

4100

9707

8976

9260

9337%

93S1#

9358#

QYL

#
9924

3777
6021

3937
8240

3999
g4y

403S

8657

4073
9414

4085

7454

7478%

7479

7484

7500%

7364%

7371%

7384%

7453

7483

7362%
7270%

732l

7585#%

7674%
7363*%

7692#
7370%

7372

7561%

7572%

7577

7584#%

7820

7214%
7412

2217
7413

7255
7455

7873%
748S

7274%
75839

3461

9471

9930

18698
11828
12598
77638
19774
7538
1983%
19818
7537
19828
1979%
7374%
1980#%

8182

8178

1978%
7275
7560#%
18428
12628
1836#
12098
12028
12788

c882#
1831
1242
1302

8225

9668

CZR6PCO RK611-06 PERF EXEC

CZR&PC.PL1
RTISPL=

D001
TACK = 881166

01-DEC-77 14:53
1

ZSEEO&

MARCY11l 30(1046)

01-DEC-77

4197
3351

419

3739

9483
10440

006670

1666

33428

TIAT

§1§1 g

éég?

4§1

4032

4N99s

STRTIS
STATO0

001633
013114

19768
4097
4095
10764
6597
4107
Y111
4115

3417%
41014#

3801

3811%

STATO1
STKLMT=
STTO000
STT001
STT002
STT003
STTO04
STT00S
STTO006
STT007
STT008
STTO00S
STT010
STT011
ST10le
STT013
STT1S
STTI00
STT2$
STTSS
SUBCLR=
SURECY
SVAL
=

SWR

Q1244

013352
177774
0S&55S
0S6604
056626
056653
056675
056730
056744
0S6760
057004
057030
057076
057116
057143
057156
031360
0S6600
031404
031444
000177
036276
100000

00114C

SWREG
000176
SWO0
= 000001

SWO0
SWO01
SWoe
SWO3
SWO4
SWOS
SWO6
SKO7
SWog
SWos
SW1
SWi0
SW1l
SWi2

=
=
=
=
=
=
=
=
=
=
=
=
=
=

SWi4

= 040000

SW13

SW1S

000001
000082
0C0004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000

= 020000
=

100000

4119
4123
4126
4129
4132
4135
4138
6619
6602
6617
6885
6578
6877

6873

12238
7417
1312

17258

6488
6897

4O10%

10809
108i5%
108184
108224
10826#s
10831
10833%
10835s
10839
10843%
10850s
10853#
10857#
108584
68928
10813#
6B897#
6878
9609
76548

6883

6890

6896

6898

6807

8032

8222

8229

8241

8410

3349

336l%

3363

3369%

3376%

3798

3822

10247%

10425

6629
8453
6024

3369

10218

10224

8453

10218

11198
11188
1117%
11168
111S¢
11148
1113
1112
1111
11108
11288
11098
11084
1107%

1129
1128
1127
1126
1125
1124
1123
l11ee
1121
1120
5671
6345

488

6626

6380

11048

3798
7667
3738

BS17

6491
7689
3822

6508
7844
4254

6540
7981
5203

11068
7508
11058

SEQ 0271

Y142

6493
6947

16648
11298

PRGE 274

BS50%

64391
6927

7981

MOS

CROSS REFERENCE TRBLE -- USER SYMBOLS

START

TRTDV

15:04

7991

8285

686l

6508
6980

6517
6983

6S19
7001

6738
7680

6804
7689

6345

11502

6629
7667

6024

10444%

6626
7508

6738

6804

6347

6983

7001

7337

7420

6493

6519

6897

6327

7680

8285

6540
7337

6S4e
7420

4254

Se03

S671

6861
7844

000100
2

L J

Pt Gt Pt et Pt et ot P

Pt et Pt

s Pt Pt Pt P

mmmmmgmmmmm
n

Pt ot ot ot Pt Pt ot

00000000000

Pt Pt P

n
~N

b—

[

000004

=L 1

Pt P P

WL
Wl W Wt (J W LWL
Wt Qmww
LN
LNWD
o = L0 N
0O n

Pt Pt Pt Pt Pt P

wvIULILNUINITUTIVLIWVILINIIVIIL YNVNLIINWVVINNIYNWL

CZR6PCO RK611-/06 PERF_EXEC
CZR6PC.PI11
01-DEC-77 14:53

MRCY1l 30(1046)
01-DEC-77
15:04
PAGE 275
CROSS REFERENCE TRBLE -- USER SYMBOLS

NOS

834
874

378

3086

8832
8840

6927
7680

8986

9003

9365

9051

3073
3030
9105

SEQ 0272

MRCY11l

C?3BPCO RKB11-06 PERF _EXEC
01-DEC-77 14:53
CZR6PC P11

1375
13768

= () 0= (I O 0= 0= s Pt ot Pt Pt Pmee P

w £ NWOMNNMAINNY
-o
~ W NO =W
LDo
o £ PdeFda
)1 Fdal, VN 4,7) o

000000000000
000
O O 1= e e L) s bt P prs s pomt poe ps ()

SEQ 0273

3737

37468
37564

3955

3967

358!
5323%
S309#%

3594
5327
8313

3777%

10439

4054

4070

$147%

OWr-DO—-0Q0
0N
nN—oNNO
W@

~——t—
AE2A3T3
MC— DO

e
e L T
P
e
e
L L
T
Tttt
= MMM
NN
L WY+
VNN
B AR BB AWNM X X

000040

BO6

15:04
PRGE 276
01-DEC-?77
CROSS REFERENCE TRBLE -- USER SYMBOLS

30(1046)

Ceo340
TSTDRP
TYPE
=

037S1e
104401

3600

4780

3523
3644
3775

4038

10145

101580

10183

10156

10204

10222

10068
10223

10226

CZR6EPCO_RK611-/06 PERF_EXEC

CZR6PC.P11

MACYLl 30Q(]1046)

01-DEC-77 14:53

00l14e4

10249
é§§§l

10266
5436

10441
ggga:

Y.BR

001416

18528

9254

T.CS2

001412

T.0R

001420

T.08
T.0C

001444
001422

T.0LT = 001000

-15:04

CO6
GE

277

SEQ 0274

gnégs REFE&ENEE TRBLE -- U g EYHBO.S

T.RSOF

;.EgTTz 88?018

-DEC-77

1352.
860

7932 *
Séagr

S 89
1l%

18498

6't34

8739%

]

9i46%
Q353%#

9189%

9I47
9360%

9190

18538

9033

14278

7343

18648
18548

622l
9034

T1.0S

001430

18588

6218

T.MR}

001432

185S8

9260%

9187
9843®

9200

9255#

10614
8794

107268
88ee

8867%

BBE8

8950

8951

89s8

8994

903S

9043

17
8813

6430
894s

33 7%
7%

B8763%
B991s

8790%
9UeB8®

8791
9029

8804
9040*

8819%
S064*

B8852*
9083%

B88SY
9096*

8758

8773
9858

9862

g880*

8881

8917

8931

39030

9188%

9349

9356

91%
9844

9192%
9849

9209

9213

8740

8755

9194
985S5#

9252*

9198

9211

92Si%

9298%

9299

9339%

9346#

9259+#

6390

6436

3037

9256%

8920%

8923

9036

9215

9257
%

égggt

8829

8840

8385

3002

9051

9073

9090

39105

9%26l*

9342

18618

8832

8980

3086

92be*

9343

930

9357

9364

936S

UEXATT= 000010

14828

7903

9253#
7976

846l

8799

UNLORD=
UNRECY
UNS
=
UPE
=

12058
6915
12938
12708

875S

8810

9213

9546

7233
7887
6434

7439
7919
7101

7475
7935
6317

7524

8006

8141

7464
7887
9504

8917
8923

9213

4410
9879

4437

5ee0

5274

6012

7257

7457

8060

8158

Bbb4s

8788

T.ER

001426

T.MR2

001434

T.MR3

001436

T.NER = 000020
T.PAT
001442
T.PO0S
001440
T.WCR_
001414

UFE

= 000400

000107
031502
040000
020000

18578

14148
18638
18628
18518

12658

vV
=
WCE
=
WLE _ =
WRDATR=
WRHERD=
WR
=

000100
040000
004000
000123
000127
004000

WRTEPK
WRTGAT=
WRTVER
Wv0S

012614
Q40000
015234
015276

4313
4408

gl1e0Se

4419

WRTCHK= 000131

Wvlis

]

WVSS
Wvas

W.DRV
W.MILI
W.MIN

016040
0l6le2
016166

001S44

001470
001476

W.SECT QO147S
W.TIME 001512
W.WCK = 000200

13058
12718
12908
12118
12138
1309%

12148
8248

3786
13288

6876
9264#
9263%
9031

5911

9449
69208
5937
5§91l
421§
S911
58937
5268
4345

4374
3500

Y4CH
&
44138

8287

3903

4YsQ3s

4505
4530#

45298

45074

3431
9485

8656
9551

9076*

9110%

19008
19208

uz2"
3430#%

14878

4266

7067

9213

4439

8292

64Y49x

91ll®

90S4#

YO46

3424

9077%

18978
19138

4366

4373
839¢

4303

19478

6434

9860

9488

9SHlx

9551¥

I5e1x

9866X

9300%

8936%

9010%

S026%

0SS#

oo
8662

8669%

B789%

8843

B98S8*

B8871%

B8887%

B8I3S*

9009%

302S#

4296

4375

4407

4409

Y420

Y441

5222

527s

6014

eCie

9422%

Q48S5%

93300
5449!
4294

9624
9866

9419%

9540%

BBM4e

9550%

8859

9560%

8872%

9864x

B8B6*

9BI7x

CZREPCO RKBEL1-06 PERF EXEC

CZR6PC.P11

MRCY11l 30(1046)

D1-DEC-77 14:53

W.WTCH

XXDPMG
SAPTHD
$ASTAT=z
SATYC

SATY]}

$ATY3
TYY

0ONMl12

001474

(0585730
001000
wxsuns U
0SS442

0SS416
24

§ESE?P ggifég

BB44

9055

9488

6347

6490

6628

6982

10006%

10013

10022%

10027s

3346

3347

102718
10222
101708

10238

10030
41i4

10180
4118

4YS1Y4
6848

b0
426

107338
16918
10687
1064Ss

9979

10642

17228
17848
17178
17198
17358

10220

106418

17878
9996%
10729
17058
1735Ss
10204
101718
10145

I;Sg.
g?%?
]

0SS174
001254
001256
001300
001302

9995
4110
17888
17898
17988
1799

SODWIN
SODW1S
DWe
SO0W3
SDDWY
SOOKWS
$O0OWe
SODW?
$D
$O
SODECNT

001310
001312
001260
001262
001264
001266
001270
001272
001274
001276
(055300

18028
1803
1790
17918
17928
1793
17948
17954
17968
17978
10569%

SDECV%
SOEVCT

SENV
SENVM
SERFLG

SERMAX
SERRPC

001304
001306

0ssu40e

001200
0Cle4e

001510
00121}
001103
001118
00l11&

86498

37¢8
1685
1067
1064

$082D
$ODWO
$O0M1
SODWI0
S$OOWll

SOD0MW1
3070 71

8062

19128

3794

10572
17868

001252
052770
#¥xess U
00110C
000000
8 Yi4]
35
053508

7732

9910

0S5236
D01250

$COWE
C
SCKSWR=
SCMTRG
sCM3
=
SCNTLC
SCNTLG
SCNTLU

7487

9508

106448

lé
1244
00l12e
001126
001160

$82D0
$COMW]

7459

9502

Y34

AUTOB
BRSE
SBDADR
$BDDAT
$BELL

15:04

PAGE 278

SEQ 027S

CROSS REFERENCE TABLE -- USER SYMBOLS

7259

W.BSEC

01-DEC-77

1058848

Yl
Sélé

9S31

4359
6836

10176
10574%

10249

1800
1801»

10588

17498
178Ss

17548
17558
1708s
1714
171Ss

10584+

106048

10614

106378

9974
3374

10650
9976

10674
9981

10652

8160

8250

8es2

8267

8378

8401

9432

9493

286
9930

6408
7646

558
%673

6568
7848

bEY4S
7859

6669
7958

6679
8449

5712
949

SPOWER
N

[

—

W e pa e b PV (I MY = ()
W n PUNTNIO
o= = - —
» £ oo
sEon s

MK bt e Pt e (fY m s Pt Pt e

= lalad ade el Y od oy o oy Y
() 0 b=t Pree ot e () 92 0 0t pe O s $e s 0= O G o=t O 0 e e e D0
N = NINN=C
N NN N NNNNILIOOMONNLO @OMOO NNNNWLOCONNNNNG
o N LN ONN NO O
N N NWMNNY
= e e @RV
= D)= N O = DD GI N
= I£
o nNUM— LNWO0: W NWe—OnN—OWNO—-0 £—=0ONDMNOWWOUIWNIDO W [
-L X
2
1
5
2 & 5 2 4= N
SNBSS
SNV
E KBNS ENEEE
N KKS
L X R
X J | ]

NWWwhurun

NLEL—
o
om:o:oommmmooc‘oogo;m:a\o-m.c&‘.cg&u
O WL

[

| O N W NO
n oL LN NOO

BRE88RREE88888808R08 888 RE888R80008RNROE
* B0B0ROB6 Q0
0o

SERRTB
SERTTL

O 0000000
wn [Glelall;[alela
£

CZR6PCO RK611-06 PERF _EXEC
CZR6PC .P11
01~-DEC-77 14:S3

MACY11

5255
103288

1637

104488

01-DEC-77
15:04
PRGE 279
38 (1046)
ROSS REFERENCE TARBLE -- USER SYMBOLS

EOS

852S%

8530%

830!

10521
10528

3738

10415%
104198

17449

3373
9974

10683#
106878

10661

%
10664

10681%
10689

5259

5265
5312
5326
10522

10160
10170

10534%
105418

s302
8315

10676
10680%

1?%22
se4l

SEQ 3278

10530
1053S#*

10540%

5329
5339
7826

8324

104708

FOb

CZR6PCO RKE11 06 PERF EXEC
CZREPC.P11
01-DEC-77 14:S3

MACY11l 30(1046)
O01-DEC-77
15:04
PAGE 280
CROSS REFERENCE TRBLE -- USER SYMBOLS

SPWRCT

10431%

10432%

10433%

gggg

4727

47S1

5237

5296

10517#

[DS4676

SPURUP 001164
DE4ers

19338
10431
O
17368
3523
3562

SQUES

SRAND

055030

SRDDEC=

musuus

wxx¥Ex

SSETUP=

0014

SROCHR

100908

10729

SROLIN
0S3220
SROOCT= muznsx U
$RDSZ = 000031

101188
10731
10111ls

10730

gggggs: "§T§5 v

‘Efgé

41eS

SSIZE
0S445Y
$S
= 1?7?7777

3402
33318

103984

SSWREG

1756#

3376

17288

SRCA

$SWR

053100

= 162000

STESTN

$TKB

STKINT

$TKS

$TKSRY
STN
=
STNPW
STNPWR

$TPB

$TPFLG

S$TPS

STRAP
S$TRAPZ
STRP
=
STRPAD
$TSTM
$TSTNM
STTYIN
STYPBN=

00117y

$2DEC
.

1054

173S

10077

10094

10100

10193

10199

10209

10233

S2c7#

§379%

10077

10092

10098

10194%

1020S*

10030

11621%

11524%

11529#

11540

1]1559%

10030

11519

11522

11527

11538

11557

10729

107308

107318

10121

10133

10151

10168

101698

10669

10718

10726

100178

10018

10252

1896

3402

3765

8687

83903

9146

9157

9198

1658

16628

17298

gssese

= 067107

.SASTAz

1053

9368

$.5.SM= saxzxx U

sensex

4875

1052

17308

3701

1051

17348

001202
0010:
001214
001240
00lev4e

4852

1050

001157

STYPOC= #uunux

SUNIT
SUNITM
SUSWR
SVECT1
SVECT2

3677

1031

101998
1031
10571
10586

(052724
0S2772

4819

105608

17278

Sun¥xs U

3644

4140

10191
10188
10570
10585

0SSe6Y
055706
000004
(055720
001004
0011
053454

4794

4137

(053572
000001
055356
(0S5332

001150

3618

4772

Y4134

3776

001152

3581

4131

3352

053542

001144

10447«

4128

3331

17478

001146

0Sesle

STYPEC
STYPEX

10731

1018#

00i2le

STYPDS= wxsunz U
T

10731

10435%

SEQ 0277

3353
107148
107188
10708
16948
17078
10120
10727

107e7

99688

9998
10023
10727

1750%
16968
1757%
1782%
1783

101Sl»

10019%

10017

107038
1072S
107278
107258

1000S
100eS

3353

106271
106174

10030

10012
100284

lggggo 13282

394

6413
108578

7867
114378

10642

7348
114338

10645

16688

335S

16738

10030
11439

3357

167Ss

1007is
11517

3382

1681

10077
115848

3383

l6828

101698
11585

10073

16848

10170
11586

3731

489S

4568
5154

4609

10030

4650

101S3

4679

10170

10176
.

10210%

10227

10230

10250

9519

9531

9581

9601

16868

101768

17048

10428

1739

106378

3350

106908

%16
3385s

10813s

CZREPCO RKB11 06 PERF EXEC

MACY1l 30(1046)

. $X
= 001000
.RDC
0657SS

1686
115798

CIRBPC.P11

..ASCI

065532

..CR

0eS452

..BLNK

066000

11471

11476

11481

11487

11495

115348

11480

11455

11460

11465

11470

11475

11480

11485

11486

11489

11505
11439

11449

11464

114689

11474

11479

11484

11493

11498

115458

11442

11483

11818

065653

114587

065E56
065701
065714
065727
ges7ye

..STCk

114686

11459

R2
R3
. .R4
..RE
..SP

085060

SEQ 0278

11461

11583#%

11454

065640

PAGE 28

11456

11496

065556

..RO

GO6

11451

115198
114408

065062
000226
000224

..Rl

16818
11488

15:04

CROSS REFERENCE TRBLE -- USER SYMBOLS

11508
1670

..DUMP
..HIGH
..LOW

..oCT

01-DEC-77 14:S3

Q0l1-DEC-77

16728
16718

11452

11462
11467
11472
11477
11482

114388

115654

11520

115678

115698
11571s
11573
11575s
11577

1i441%

114390

11501

11507

CZR6PCO RK611-06 PERF EXEC
CZRePC.P11
01-DEC-77 14:53

ENDCOM
ERROR
ESCAPE
GETPR]
GETSWR

MULT

M. DUMP
NEWTST
PARMBK

PARMDF
PARMS
POP

Pi'SH

P.DRVR

QINPUT

REGDEF
REPORT
R.DRIV
R.QDRV

tiER8

3508

11728
10668
11728
11728
1172

10404
3383

4800

4826

4861

488e

3650

3683
50sS

3706

4540

2008

el01

2194

2287

2380

2473

2566

2659

2753

2133
10497
10470

ceed
10536
10817

2319
10607
10560

a4le
10684

2S0S
10685

10645

2598
11509
10647

2691

11728

2040
10064
10044

10668

11443

16568

3519

3548

3587

3673

3697

3727

4Se4

1172%

s
11728
18
ila
16568
1172
¥

4747
1l

SCANST
SCOPE
SETPR]
SETTRR
SETUP
SKIP
SLASH

STRRS

éggg

SWRSU
S.DRVE

9378
10076
10558
11728
ls

TRMTRP
TYPBIN
TYPDEC

11728

1 YPNUM
TYPOCS

10718%#
11724
11728
11728
1172%
11728

TYPTXT

1172s

SSCMRE

1698

TYPNGM

TYPQOCT

SOECBN
SOCTBN

ssCMTHM
S$SESCAR
SSNEWTY
$SSET
$SSETM
$SSKIP

SEQ 0279

4780

4735

11728
ls
ls
16568
10678
1172
107188
11728
1172%
11728

SPARCE

HOG

4758

3532

16988
11728
1172

10718#
33738
11728

3600

3626

4582

4623

4664

“e88

4710

460S

4646

4675

4699

4723

11434

3614

4769

4790

4815

4848

4S54

4595

4636

5070

10729
3348

10730

1045
3197

11728
404
647
9654
10111
10697

616
9405
10082
10640
3357s
133

3378

11728
ls
ls

3571

10329
10273

10729

10730

1678
3436

b
9663
10180

10574

3640

4871

4891

500

5107

1687

1700

8500

2573

9701
10275

9722
10288

126

9828
10454

janTan
B¥a 14 0T )
now-~o
O G = NYs—
OWwWwom

01-DEC-77

15:04
PAGE 283
CROSS REFERENCE TRBLE -- MACRO NAMES

30.1046)

GEPCEY

MACY1l

CZRBEPCO RKB11-06 PERF _EXEC
CZR6PC.PL1
D1-DEC-77 14:53
EQUAT

10188

1062

SETUP

10188

3331

SWRLO

10188

1054s

HERDE
. SWRHI

.$APTB
.$APTH
. SAPTY
SCRTC
SCMTA
SRERD
SSIZE
$TRAP
STYPE
.

ABS.

10188

1021

10188

17408
10188
10188
1018s
1018s
10188
10188
10188
10188

106

MACY1l 30(1046)
O01-DEC-77
15:04
PRGE 284
CROSS REFERENCE TABLE -- MRCRO NAMES

1046

10Se

10s8

106C

1061

1676
10638

1656
1698
10074
10390
10€35
995)

067107

ERRORS DETECTED:

ooc

RMO3: CZR6EPC, RMO3: cznsPc SEQ
S . CRE "U:"l2 D30 €5 PEWSw=RMC3:0RIVI1.P11,RMO3:DUMP.P11,RMO3:CZRE6PC.P11

RUN-TIME: 3] 3273 SECONDS
RUN-TIME RATID:
CORE USED:
42x

DOCUMENT PAGES:

aow 67=30.
(B3 PQGES’

280

SEG 0280