Digital PDFs

AC-3136D-MC-B01

March 1978

266 pages

Original

14MB

view download

OCR Version

12MB

view download

Document:	CZR6MD0 RK611-06 SUBSYSTEM VERIFICATION 1 AH-9138D-MC MAR 1978 bw
Order Number:	AC-3136D-MC
Revision:	B01
Pages:	266
Original Filename:	CZR6MD0__RK611-06__SUBSYSTEM_VERIFICATION_1__AH-9138D-MC__MAR_1978_bw.pdf

OCR Text

RK611/06

&mawesTMTM"TM
—

S, i

—

FICHE1OF2

MADEINUSA

SUBSYSTEM VERIFICATION 1
CZR6MDO

AH-9138D-MC

copymiGHT=76.78

FICHE2OF2

MAR 1978

TOEOREM

MADEIN USA

EOF 1CZRSKESEQ
POPSBGQ40280
CZREMD.PI1
i

10-JAN-78

303910000
780223
CZR6MDO RKB11-/06 SS VERIF 1

POP10 411
MACY1l 30R(10S2)

11:48

HDR1CZR6MDSEQ
10-JAN-78
12:16
PAGE 2

00010000

SEQ 000!

.REM @

S
&
7
8
9
10
1]
12

IDENTIFICATION

i
ig

PRODUCT CODE:

AC-9136D-MC

ég

PRODUCT NAME:

CZR6MDO RKb11/06 SS VERIF

Sé

DATE:

FEB 1978

MQINTRINER:

DIAGNOSTIC GROUP

AUTHOR:

DAVE HOFFMAN

28
3
30

THE

INFORMATION

FOR ANY ERRORS THRT MAY APPEAR IN THIS DOCUMENT.

38
39
:?

CORPORATION.

NOT

CONSTRUED

IS SUBJECT TO CHANGE

AND

SHOULD

IN THIS DOCUMENT

WITHOUT

NOTICE

A COMMITMENT BY DIGITAL EQUIPMENT

DIGITAL EQUIPMENT CORPORARTION ASSUMES NO

RESPONSIBILITY

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER
A
LICENSE
AND
MAY
ONLY
BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH
LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR

S%E}REILLTY

ITS

SOFTWARE

1976,

EQUIPMEMT

THRT IS NOT SUPPLIED BY

1978 BY DIGITAL EQUIPMENT CORPORATION

780223

30A(10S2)

10-JAN-78

COl

12:16

PRAGE 3

TABLE OF CONTENTS

RBSTRACT

NN -

HARDWARE REQUIREMENTS

PRELIMINARY PROGRAM REQUIREMENTS

gsgfiggL PROGRAM CONSIDERATIONS
N

XXDP
CHRIN MODE

gUMP MODOE
CT/RP
AUTOMATIC MODE
DUMP MODE

APT ETABLE DEFINITIONS
DUAL -RCCESS
MEMORY MANAGEMENT
MEMORY PRARITY CHECK
BRD SECTORS
EXECUTION TIME
PROGRAM LORDING

STARTING PROCEDURE
STARTING ADDRESSES
SWITCH REGISTER OPTIONS USED
OPERATOR ACTION
PROGRAM ACTION

DESCRIPTION OF OPERATING PARAMETERS
SELSETIS” og gzennrxnc PARAME TERS

nNnLwne—

R
N--

MACY11l

EDSD(DP(DSIJEDPQCD N OO0 N FLLLLLLLLLELLELELE W

<ZR6MDO _RKE11-06 95 VERIF 1
<ZREML.P11
10-JAN-78 11:48

?Eér SELEE$13N
LIST TESTS,

(L)

CHANGE TESYs, (C)
INPUT PARAMEYERS AND RUN TESTS, (I)

CONTROL 2
CONTROL C

(f2)
($C)

FUNCTION
FUNCTION

CZR6MDO RKE11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACY1l

30A(1052)

12:16

10-JAN-78

PRGE 4

SEQ 0282
SEQ 0003

ounrLwnr-

LLErWWWLWWWWW

[seloeleatooRooToaTealsole]es]

PARAMETER LI;T ALTERATION
TYPE LIST, (D)
(0)
OPEN LIST.

SET INDIVIDUAL PRRAMETER, (%)

RUN TESTS,

(R)

CONTROL 2'(42) FUNCTION
CONTROL € (4C) FUNCTION
SPECIAL PARAMETER SPECIFICATIONS
PT - DATA PATTERN SELECT
WORD
CS - CONTROL SWITCH WORD

TEST 21

I
I
O
T
IO D
I
O

-0

SEEK/SEEK TEST
CYLINDER RDORESSING TEST
CYLINDER RODRESS CROSSTQLK TEST
INCREMENT /DECRE
K TEST

SEEK TEST
880VEBE}§290?V§RGIN2

0 BTN T
I
T

oo NLEWw

m
v

TIMING
TEST
TESY
TEST

RECALIBRATE/SEEK TEST

MAXIMUM VELOCITY REVERSRL SEEK TEST
CHANICAL VIBRATION SEEK TEST
TEST
HRXIHUH ROTATIONRL LATENCY MERSUREMENT
IgEER ?EEK TIME MEASUREMENT
VER
ME MEASUREMENT
§s8*ggfl §§EK
T{NE
HERSUREHENT
LI T

mo-»—»—»—-—oo—»—-—wm:mmv—-*

-4

LW
—O0ONC
LW~

:noomm\omm\ommo.ooo

U LWNNNNUNUS
b e b be b b e = = O

0.0
0.1
0
o

(CONT'D)

DESCRIP;ION OF TESTS

‘

(OO DDODD

TUAV VRV TVRUTV
PV TV

TARBLE OF CONTENTS

(o e

WWNELLLLLErrLfw
OO0 NCNL W0 W

Pt Pt Pt Pt Pt Bt Pt Pt Pt B Pt Bt Pt B

s P

s e Bt ot Pt Pt P

k) WL W WM R

R RN

s Pt Pt et Pt Gt Pt P Pt Pt s Pt Pt

e 000000000

Bt Bt Pt Pt Pt e e e =2 = O O O O
O00O
NN LW~ OOV NN S WH—ODO
NN LW—-0OOMm \30‘8?(."0’—

100

CK RD

RERD/WRITE

g?NG
EST

DATA

TEST

DATA PATTERNS
TEST 22 - DURL-RCCESS DATA TEST

ERROR REPORTING
COMMON ERRORS
ERROR HANDL ING
ERROR PRINTOUT EXAMPLES

RAPPENDIX A

SAMPLE RDDORESS 200 DEFRULT RUN

APPENDIX B

SAMPLE RDDRESS 204 RUN

CZR6MDO RKB11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

nno
[o]m] 00000 WOLDDDDDD DDOODODDDMDM@DMDO NN NN NIYNNNNOC
OO T OO OO i
on L WO VONCNLWN—OOO NN LWNN—O
VD NN .LWN—OWD N UL WL—C)Dm NI

152
183
154

207

MACY1l 30A(1052)

10-JAN-78

EOL

12:16

PAGE S

SEQ 0283
SEQ@ 0004

ABSTRACT

1.0

THIS PROGRAM PERFORMS PART 1

TESTS,

WHICH

OF THE RKO6/RK0O6-RKO7 SUBSYSTEM

VERIFICATION

PROVIDE A FUNCTIONAL SHRAKEDOWN OF THE ENTIRE SUBSYSTEM

INCLUDING THE UNIBUS INTERFACE AND ACCESS TO MAIN MEMORY.

IN
PART
1
EMPLOYS
WORST-CASE
POSITIONING,
DISK
ADDRESSING
RND

SITURTIONS
INVOLVING
DRTA
TRANSFER.
IN

THE TESTING
MECHANICAL
ADDITION,

MERSUREMENTS ARE MADE PERTRINING TO DRIVE OPERATIONAL TIMING.
WITHIN THE VARIOUS SUBSYSTEM TESTS,

LOOPS

AND

OPERATOR

SEE£NNNG OF TESTING,

SPECIFICATION

EMPHARSIS IS GIVEN TO USEFUL

OF TEST PARAMETER VALUES.

THE FOLLOWING OPTIONS MARY

SCOPE

AT THE

SPECIFIED

B8Y

ARE

PROVIDED,

FOR

THE

RKb11 REGISTER ADDRESS
RKO6-/07 VECTOR_RDDRESS
RKO6/07 PRIORITY LEVEL

DRIVE(S)

TO BE TESTED

TEST(S) TO_BE_RUN
NUMBER OF TEST ITERRTIONS

DISK ADDRESS LIMITS
S _INCREMENTS
DISK AD:
DRTA PATTERNS USED

PHYSICAL MEMORY ADDRESS ON DAIA TRANSFERS
WORD COUNT ON DRTR TRANSFERS
STALL TIME BETWEEN OPERRTIONS

IN ADDITION,

STANDARD SWITCH REGISTER

OPTIONS

VARIETY OF PROGRAM LOOPING, RUNNING, AND REPORTING MODES.

ERRORS WILL BE REPORTED RS THEY OCCUR.
THE REPORT WILL INCLUDE R TEST
NUMBER AND DESCRIPTION, CURRENT AND PREVIOUS OPERATIONS, GOCD AND BRD

TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS.

2.0

HARDWARE REQUIREMENTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN
VERIFICATION TESTS:

POP~11/04, (05,10 MFG.

16 K MEMORY

PART

THE

SUBSYSTEM

ONLY),20,34,35,40,45,50,70 OR POQ

CONSOLE TELETYPE
KWll-L OR KWll-P CLOCK
RKO6-07 UNIBUS CONTROLLER
1 T0 8 RKD6-/07 DRIVES

(RK6&11)

1 TO 8 RKO6-/07 DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT)
NOTE

NEITHER_KW1l-L

PROVIDED,

THE

TIMING

__ P

CLOCK

TESTS IN SECTION

CZREMDO RK&11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACY1l 30A(1052)

10-JAN-78

FO1

12:16

PAGE b

SEQ_0284
SEQ@ 000S

208

£h0
ell

9.2 WILL BE BYPASSED, AND A MESSAGE WILL
INFORM THE OPERRTOR.

cle

el3

si2

3.0 PRELIMINARY PROGRAM REQUIREMENTS

Si%
cl8

BEFORE

cc0
SSé

DRIVE DIAGNQOSTIC (CZRe6H THRU CZR6J) SHOULD FIRST BE RUN, TO
RESOLVE BRSIC, SOLID HARDWARE FARULTS.

cl9

2e3
e

SSE
¥4
ces

sgg

231

RUNNING

THE

SUBSYSTEM

VERIFICATION_ _ PROGRAM

THE

RKbll

SYSTEM

MACRO

CONTROLLER DIARGNOSTIC (CZR&R THRU DZRBE AND CZREK) AND RKO6

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMRC

THIS PROGRAM USES PORTIONS

THE

SYSMAC

DIAGNOSTIC

4.2

238
239

THIS PROGRAM MAY BE LOADED UNDER XXDP.
SUBSYSTEM TESTS 1-21 MAY BE
RUN IN CHAIN OR DUMP MODE, BUT DUAL-ACCESS TEST 22 MAY ONLY BE RUN IN

240

a4l
a4e
243

PACKRAGE.

232
233
234
23%
ggg

XXDP

DUMP MODE.

g:g

4.2.1

246
247

THIS PROGRAM IS DESIGNED TO BE RUN_IN THE DEFRULT MODE WHEN CHARINED
UNDER XXOP.
_THUS, INPUT DIALOGUE IS BYPASSED, AND RKOG& UNIBUS ADDRESS

249
Sg?

PRESENT AND READY WILL BE TESTED WITH THE EXCEPTION OF DRIVE 0,
RKO& CONTRINS THE XXDP MEDIUM.

248

52
253

ggg

256

257
258
259
260

CHRIN MODE

AND INTERRUPT VECYOR ARE DEFAULTED TO

4.2.2

_STANDARD

VALUES.

ALL

DRIVES

WITHOUT

DEFAULT

IF THE

DUMP MODE

THE PROGRAM

CAN

RUN

DUMP

MODE,

WITH

MAY BE TESTED, BUT _IF IT CONTARINS THE XXDP
DRIVE
PARAMETERS.
MEDIUM, THE OPERATOR MUST REPLACE THE XXDP PACK WITH A FORMATTED
SCRATCH PACK PRIOR TO TESTING. R MESSAGE WILL INFORM THE OPERATOR
WHEN THIS IS NECESSRRY.

CZR6EMDO RKb611-06 SS “ERIF 1
CZR6MU.P11
10-JAN-78 11:48

MARCY1l 30R(1052)

4.3

10-JAN-78

12-ib

PRAGE 7

SEQ_ 0285
SEQ 0006

RACT/APT

THE PROGRAM IS COMPATIBLE WITH ACT/APT CONVENTIONS.

1-21 MAY BE RUN IN AUTOMATIC OR DUMP MOOE.

SUBSYSTiM

TESTS

269
4.3.1

AUTOMATIC MODE

8 .
THIS
MODE
1N
THE PROGRAM PROVI?E? FOR AUTOMATIC APT/ACT OPERRAT ION.
PARAMETERS
DEFARULT VALUES, AND ALL DRI VES WHICH APE PRESEN?

AND READY ARE TESTED

280

4.3.2

DuUMP MODE

IN DUHP MODE,

PARAMETERS MAY BE INPUT,

DEFRULTED,

RAND

TESTS 1-21 OR DUAL-RCCESS DARTAR TEST 26 MAY BE RUN.
4.3.3

APT ETRBLE DEFINITIONS

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING
APT
TABLE (ETRBLE) ENTRIES, VIA THE APT UTILITY PROGRAMS :

WWWWWWWW WWW
et bt st bt s e e O 00
onNLsWw—0umNeE
~N

SUBSYSTEM

ENVIRONMENTAL

SOFTWARE ENVIRONMENT
=1 IF APT SCRIPT MODE
=0 IF STRNDQLONE MODE

ENVIS?NNENT MODE BYTE
ETRBLE DOES SIZING
= 1
= 0
PROGRAM DOES SIZING
BIT & =1
SPOOL HESSQGES TO _APT IF SCRIPT MODE
SPOOL TO APT
DON'T
=0
SUPPRESS CONSOLE OQUTPUT
BIT § = 6
ALLOW CONSOLE OUTPUT
BITS 4-0
NOT USED

SWITCH 1

(SOF TWARE SNITCH REGISTER)

IF_ENVIRONMENT MODE BIT
7 (SIZING BIT)

IS SET_TO
THE SOF TWARE
SWITCH REGISTER WILL BE USED. INSTEQD
OF THE HARDNQRE
CONSOLE
SWITCH REGISTER.

REGARDLESS OF

WHICH

ONE

USED

BITS

DEFINED IN SECTION 6.2 (SWITCH REGISTER OPTIONS) MAY BE USED WHEN
RUNNING IN STANDALONE MODE.

éETR$0 SCRIPT MODE, HOWEVER,

BIT 14 (LOOP ON TEST) MUST RLWAYS BE

SWITCH 2

(USER SWITCH REGISTER)

MEMORY TYPES 1-4 AND MRAX MEMORY RDDRESSES

NOT USED

]

30R(1052)

10-JAN-78

12:16

PAGE 8

SEQ 0286
SEG 0007

NOT USED
6. INTERRUPT VECTOR 1
USED WHEN ENVIRONMENT MODE BIT 7

DEFRULT

7. BUS PRIORITY 1
USED WHEN ENVIRONMENT MODE

BIT 7

DEFRULT

USED WHEN ENVIRONMENT MODE BIT 7

DEFAULT

INTERRUPT VECTOR 2
NOT USED

BUS PRIORITY 2

10.

BRSE RDDRESS

210
wn

MACY11l

CZR6MDO RKE11-06 SS VERIF 1
CZREMC.P11
10-JAN-78 11:48

NOT USED

177440

11. DEVICE MAP
USED WHEN ENVIRONMENT MODE BIT 7 = 1.
EACH BIT SET TO
0-7 WILL SELECT THE CORRESPONDING DRIVE TO BE TESTED.
BITS B-15 RARE NOT USED.
12.

4.4

BITS

REMAINING ETABLE ENTRIES RRE NOT USED.

DURL-RCCESS

THIS PROGRAM IS DESIGNED
(DUQL*RCCESS
DATA
TEST

TO
UTILIZE
DURL RCCESS
IN
TEST
22
ONLY
- SE; SE
FOR THE PURPOSES OF ALL
OTHER TESTS (1-21).
_THE OPERATO
MUST
GURRQNTEE
THAT
THERE
IS
NO
INTERFERENCE
FROM_
THE
UNUSED
PORT.
IF FARILURES ARE ENCOUNTERED IN
ZSTS 1-21 DUE _TO INTERFERENCE FROH THE OTHER PORT
THE
OPERQTOR
IS

QDVISED TO SWITCH THAT PORT OFF-LINE AND RE-RUN THE TESTS
4.5

MEMORY MANRGEMENT

THIS PROGRAM SUPPORTS MEMORY MANAGEMENT OPTIONS KT11C,D Ri'D

_PDPL11-/70

FOR_ THE PURPOSES OF TESTS 21 AND 22 ONLY.
IN'THESE TESTS, NPR
TRANSFERS BETWEEN THE RKO6 AND ANY SPECIFIED PHYSICAL MEMORY ABOVE THF
PROGRAM,

ARE

PERFORMED,

AND

22’ ALSO

4.6

MEMORY PARRITY CHECK

INSTALLED).

SUPPORT

DURING READ/WRITE TESTING.

22-BIT

IN ALL OTHER TESTS,

RDDRESSING

REPORTED,

DONE

WITH

AND TESTING

PARITY

IS ABORTED,

THE

MEMORY MANRGEMENT

IF THE HEMORY PARITY CHECK OPTION IS

TESTING

AND

CHECK

AVAILABLE

ENRBLED.

ON_

(NOTE - TESTS 1

UNIBUS

iiAF,

IS DISABLED.

THE

PARITY

UNLESS THE BYTE LABELED

SYSTEM,

ERRORS
MEMARBT

ALL

ARE

WRS

CZR6MDO RK&11-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

MACY1l 30A(10S2)

10-JAN-78

101

12:16

PRGE 9

SEQ 0287
SEQ 0008

PREVIOUSLY LORDED WITH A NON-ZERO VALUE.

4.7

BRD SECTORS

ACCORDING TO A CONTROL SWITCH OPTION (SEE SECTION 8.2.4.2
THE
BRD
SECTOR_ _FILE
ON EACH DRIVE TO BE TESTED IS TYPED AT THE CONSOLE PRIOR
TO TESTING.

ALL DARTR ERRORS OCCURRING IN THE PROGRAM ARE

éSFTagsE) OCCUR

4.8

EXECUTION

SECTORS

DESIGNRTED

MASKED

OUT

RS BAD (BY EITHER FACTORY OR

TIME

EXECUTION TIME IS DEPENDENT UPON
PRARAMETERS
INPUT
BY
THE
OPERATOR
(SUCH_
AS STALL TIME OR ITERATION COUNT),
AND TO A LESSER DEGREE,
UPON

THE PROCESSOR.
HOWEVER, THE "AVERAGETM TIME REQUIRED 10 RUN_ A
QUICK-VERIFICATION (FIRST PASS) IS 14MINUTES PER DRIVE. A SUBSEQUENT

PRSS WITH PARAMETERS DEFAULTED REQUIRES 21 MINUTES PER DRIVE.
NOTE: TIMES ARE RPPROX. DOUBLED FOR RKO?7 TESTING.

S.0

PROGRAM LORDING

THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR

6.0

STARTING PROCEDURE

6.1

STARTING RDDRESSES

200 NORMAL STARTING RDDRESS OF TESTS 1-21 (PARAMETERS DEFAULTED)
204 SE%%%A ggsRflgéNg PQSQMETERS,RKO6/07 UNIBUS RDDR.
RND
INTERRUPT

e Pt Pt Pt

v Pt Pt

ELfLLLLrx

DO NN LW

FROM ANY MEDIA SUPPORTED BY XXDP.

220 DURL-RCCESS DATAR TEST 22 START ADDRESS

420

6.2

SWITCH REGISTER OPTIONS USED

THIS PROGRAM IS DESIGNED TO ALLOW
THE
USE
OF
THE
HRRODWARE
SWITCH
REGISTER
IF PRESENT,
OR THE SYSMARC-SUPPORTED SOFTWARE SWITCH REGISTER

(IF _HARDWARE SWR IS NOT PRESENT OR IS SET TO

ALL

_ONES)

EITHER

SQEEQETT¥E TOLLONING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS

CZRBEMDO RK611-06 SS VERIF 1|
CZREMD.P11
10-JAN-78 11:48
429

MACY11 30A(10S2)

10-JAN-78
BIT

JO1

12:16

OPTION

PAGE 10

SEQ 0288
SEG 0009

MACY1l 30A(1052)

10-JAN-78

12:16

SEQ_ Q289
SEQ 0010

PAGE 11

15
14
13

HALT ON ERROR
LOOF ON TEST

11
10
09

INHIBIT ITERRTION
BELL ON ERROR
LOOP ON ERROR

s
04

INHIBIT WRITES IN TEST 21
INHIBIT WRITE CHECKS IN TEST 21

08
a?
e
03
02
01
00

INHIBIT ERROR REPORTS
REPORT DESCRIPTION ONLY,

ON ERRORS

APPLY RANDOM STALL BETWEEN OPERATIONS
DO EXPLICIT SEEKS IN TESTS 1-1
REPORT ONE ERROR PER TRANSFER IN TESTS 17,21
INHIBIT RERDS AND SOFTWARE COMPARES IN TEST 21
INHIBIT _SOFTWARE COMPARES IN TEST el
READ AFTER A WRITE CHECK ERROR IN TEST 21

REPORT ALL SOFTWARE COMPARE ERRORS IN TESTS 17,21
NOTE

OPTIONS
FOR ADDITIO NAL PROGRAM CONTROL
OF CONTROL SWITCH WORD
DESCRI PTION
SEE
(CS), SECTI ON B.2.4.2.

OPERATOR ACTION
Whoe

7.0

LOAD PROGRAM INTO MEMORY (SEE SECTION 5.0)
LORD A FORMATTED _FACK ON ERCH DRIVE TO BE TESTED.
BRING DRIVE (S) TO ONLINE STARTE, WRITE ENRBLED, AND LOCKED ON

CZR6MDO RKB11/06 SS VERIF 1
10-JAN-78 11:48

CZR6MD.P11

KOl

LORD THE DESIRED STARTING QDDRESS (SEE SECTION 6.1)
SET SWITCHES IF DESIRED (SEE SECTION b.2)
PRESS START OR GIVE APPROPRIATE MONITOR START COMMAND.

8.0

PROGRAM ACTION

8.1

DESCRIPTION OF OPERATING PRRAMETERS

AFTER

THE

PROGRAM

STARTED,

TYPES

ITS

IDENTIFI CATION

fl?

PART
SUBSYSTEM_ VERIFICATION:
FOLLOWS: ~CZR6EMD RKG611/RKD6-RKO?
FOLLOWED BY: “LAST PHYS MEM ADR=XXXXXXXX". THEN, EITHER THE TEST g’
BEGIN EXECUTION WITH DEFRULT PARRAMETERS, OR RN OPERATOR INTERACTIVE
MODE 1S ENTERED (SEE STARTING ADDRESSES, SECTION 6.1). IN THIS MODE
OPERATING PARAMETERS MAY BE LISTED OR’ RLTERED BY VARIOUS MEANS. ALL
PARAMETERS ARE TREATED RS OCTQL NUMBERS, AND

THE

PARAMETER

LIST

E%R&HDO RK&11-/06
SS VERIF 1
R6EMD.PL1
10-JAN-78 11:48

MACY1l

30A(1052)

10-JAN-78

LO1

12:16

PAGE

SEQ 0290
SEQ 001!

486

4Y§?

488
489
490

SHARED AMONG THE TESTS.

428

G5
RAN RECSETIRNEE PARVERaT Bakkartin (RTBEIRACH:
ID

oip TNRLCATER,
TN

AND THE PRRAMETER

FIRST CYLINDER RDDRESS IN TESTS WHICH RRE DONE
RANGE OF CYLINDERS, FC=0-631, DEFRULT=0

OVER

LAST CYLINDER RDDRESS IN TESTS WHICH RRE
DONE
RANGE OF CYLINDERS, LC=0-632, DEFRULT=632

OVER

CYLINDER INCREMENT VALUE IN TESTS

FIRST TRACK ADDRESS IN TESTS

LAST TRACK

TRACK INCRSHENT VALUE
IN TE?TS WHICH RRE
RANGE OF TRACKS, IT=1-2, DEFAULT=1

WHICH O
HAS 2
R
CIRS] SEETORSHRAESS N JESTS WaloH DRIVE
JE, 09,

CYLINDER RDDRESSES,
RANGE OF TRACKS,

FT=0-2,

DONE

OVER

DUNE

OVER

S0=0-23, DEFAULT=0

AST
SECTOR
AODDRESS IN TESTS WHICH ARE
OVER
RARCe
SESFORPROBEES
N
TESTR, WHESH oATGe DONE
CRNEcHOVERs

S1=0-23, DEFAULT=23

FIRST SECTOR ADDRESS IN TESTS WHICH
ARE
DONE
OVER
RANGE
OF
SECTORS " USED
‘ON
“ANY
ORIVE
WHICH
HAs

LAST SECTOR QDORESS IN TESTS
WHICH
ARE
DONE
OVER
RANGE
OF
_SECTORS,
USED
ON
“ANY_
DRIVE
BHICH
HAS
SECTOR INCREMENT VALUE IN TESTS WHICH ARE DONE

RANGE OF SECTORS,

IS=1-25,

S2=0-25, DEFAULT=0

S3=0-25, DEFAULT=25

DEFAULT=l

DATA PATTERN SELECT
DETRILS) PT=0-177777,

CONTROL SWITCH WORD (SEE SECTION 8.e¢.4.2

DEFRULT=2

S3_CECTOR FORMATTED CARTRIDGF.
IS

ARE

RDDRESS IN TESTS WHICH RRE DONE OVER R RANGE

LT=0-2,

22-GECTOR FORMATTED CARTRIDGE.
S3

THROUGH

WHICH

20-SECTOR FORMATTED CARTRIDGE.

STEP

DEFAULT=0

20-SECTOR FORMATTED CARTRIDGE.
S1

WHICH

DEFAULT=1

OF TRACKS,

IC=1-632,

s Pme Pt P

e e Pe Pt s

OoOLONCN LWH—O

509

(WHICH APPLY TO THE

VALUE.
AL
PRRQMETERS RREUENTERED RE gaTfl
NUMBERS,
MNEMONICS
HOWN RArE THOSE
ED BY TH
OGRAM.

49y
495
496

THE FOLLOWING IS THE LIST OF OPERATING PRRAMETERS,

:91

CS=0-000070,
WORD COUNT

WRITE

DEFAULT=0

(NO.

CHECK

WORD
(SEE
DEFAUL1=0

OF WORDS)

COMMANDS

SETTION

OVER

8.2.4.1
FOR

USED IN DISK RERD,

FOR

DETARILS)
WRITE, OR

DATA TEST 20 , Wl=0-177%77,

CZRBEMDO RKG611-06 SS VERIF |
10-JAN-78 11:48
CZR6MC.PL1

MACY11l 30A(10S2)

10-JAN-78

MOl

12:16

PRGE 13

SEG 029l
SEQ 0012

DEFAUL T=MAXIMUM BUFFER AVAILABLE,
RS 65,536 WORDS

WC=0

INTERPRETED

PHYSICAL MEMORY RDDRESS__(STARTING RDDRESS OF
BUFFER) USED ON ALL DATA TRANSFERS IN TESTS 21

DRTA
MR

T RvATERE EOUREndRYPORER® LT it
PR BhREE"
= RDDRESS OF RWBUF.
DEFRULT

8.2

(DELRY)

NUMBER OF UNIT STALL TIMES WITH WHICH TO STALL

MAXIMUM NUMBER OF UNIT STALL TIMES USED IN TEST 12 ONLY

BETWEEN RKO& COMMANDS

SELECTION OF OPERATING PARAMETERS (RDDRESS 204 START)

DRIVE SELECTION

8.2.1

e RCOREEY RBDETM "R Treh © 1hE RKo11FOR
O R RRE

ggfifgsg AND RKO6 PRIORITY ARE(PENED
RKO6-07 BUS RDR
RKO6-07 VEC RDR
RKO6-07 PRIORI1TY

177440
210
S

‘REGIGIER ADDKESS. kDL VECIOR
AS
MODYFICARTION

POSSIBLE

NEW=(TYPE NEW VALUE HERE)
NEW=(TYPE NEW VALUE HERE)
NEW=(TYPE NEW VRALUE HERE)

NEXT THE PROGRRH TYPES THE NUMBER(S) OF THE CURRENT DRIVES UNDER TEST

BYR (%) ON THE NEXT LINE TO REQUEST NEW DRIVE NUMBERS.

Eg%hgtED

FOR

PARAMETER INPUT MODE
DRIVE(S)=0

% (INPUT, ir nfiv coes HERE)

THE OPERATOR TYPES THE NEH NUMBERS (S‘PPRRTED BY COMMAS) PLUS <CR>

LERVE

SIMPLY

<CR>

THOSE

TYPED

WHICH

THEM

UNCHANGED.

HE ENTERS DRIVE NUMBERS
IF

THESE DRIVES ARE THEN CHECKED FOR VALIC STATUS BY THE PROGRAM,

RAND ALL

RRE RCCEPTRBLE WILL NOW BE LISTED RS BEFORE.

THE

OPERATOR MAY MANURLLY RECONFIGURE THE DRIVES AND TYPE IN_ NEW DRIVE
NUMBERS,
AND THESE WILL BE CHECKED AND TYPED, UNTIL THE OPERATOR
FINALLY' TYPES JusT <CR>
ON INITIAL ENTRY FROM RDDRESS 204,

THOSE

ON_

THE

THE DRIVES WHICH ARE LISTED ARE ALL

RERDY

SUBSYSTEM WHICH ARE ON-LINE,

NRITE-ENARBLED, AND

LOADED WITH A CARTRIDGE OTHER THAN AN AL IGNAMENT PALK.
DEFAULT

DRIVE SELECTION FOR ADDRESS 200 START).

70 THE DRIVE SELECTION ROUTINE

(VIR

<#C>

THIS

IS’ THE

SECTIONS

ON ALL OTHER ENTRIES

DESCRIBED

CZREMDO RKB11-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

MACY1l

30R(10S52)

NO1

10-JAN-78

12:16

8.2.2.5 AND B.2.3.6)

PAGE

SEQ 0292
SEQ 0013

THE PROGRAM FIRST TYPES:

TO TEST AL DRIVES TYPE "R"<(CR>,
%#

NEXT,
N—O0ONCNLW—~0OW

oo oo oo

608

(CHARACTER

GOES

ELSE

HERE)

<CR>

THE DRIVES RRE LISTED RS SHOWN RBOVE.

(R)

TYPED,

ALL

AVAILABLE DRIVES WILL BE LISTED, AND IF NOT, THE PREVIOUS SELECTION OF

DRIVES WILL BE LISTED.

8.2.2

TEST SELECTION

WHEN THE OPERATOR FINALLY TYPES JUST <CR> IN
RESPONSE
REQUEST,
THE
PROGRAM
ENTERS
THE TEST INPUT ROUTINE.

INSTRUCYIVE LINES ARE TYPED :

TO
THE
DRIVE
THE FOLLOWING

L = LIST TESTS
¢ = CHANGE TESTS
I = INPUT PARRMETERS AND RUN TESTS
THEN,

THE FOLLOWING REQUEST

ENTER L,C,

IS MRDE

# (CHARACYER GOES HERE)

THE OPERARTOR TYPES THE DESIRED CHARACTER PLUS

8.2.2.1

LIST TESTS,

<CR>.

(L)

gSLEh&SIS TYPED, THE PROGRAM TYPES THE CURRENT DESIRED TEST
TE?T

2
3

LIST.,

ITERQEIONS

177777
400

ETC.

THE ITERATION NUMBER IS THE NUMBER OF TIMES THE TEST WILL
BE
RUN
ON
THIS
PASS,
AND IT MUST BE BETWEEN O AND 177777.
IF IT 1S ZERO,
THAT

TEST WILL NOT BE RUN. ON THE FIRST TIME THROUGH. ALL TESTS ARE LISTED
WITH DEFAULT ITERATIONS. THE LIST OF DEFAULT ITERATION NUMBERS BEGINS
AT ADDRESS "DFLTSTTM,

WHEN THE LIST
OR I” AGRIN.

AND CAN BE ALTERED

IS COMPLETED,

IN CORE.

THE PROGRAM RETURNS TO TYPE

“ENTER L.C,

}
CZR6EMCO RKB11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACY11

BO2

30R(1052)

10-JAN-78

8.2.2.2

CHRANGE TESTS,

IF (C) 1S TYPED,

12:16

PAGE

SEQ 0293
SEQ 0014

(C)

THE PROGRAM THEN ASKS:

"TO DEFAULT TESTS TYPE D<CR>

ELSE <CR>”.
YF JUST <CR> IS TYPED, THE PROGRAM SEQUENTIALLY OPENS
EACH TEST FOR POSSIBLE ALTERATION OF THE ITERARTION NUMBER. EACH TEST
IS OPENED AND A NEW LINE IS TYPED,

TEST

ITERATIONS

0 % CINPUT,

IF ANY,

FOR EXAMPLE :

UNCHANGED.

THE

NO.

GOES HERE)

THE OPERATOR THEN TYPES THE NEW VRLUE PLUS <CR>,

AND ITER.

GIVING THE TEST NO.

IN OCTAL, FOLLOWED BY (¥) ON THE SAME LINE.

OPERATOR_

OR JUST <CR> TO LEAVE

NUMBER

TYPES

FOLLOWED

_BY ¢!>

(EXCLAMATION POINT) THE NUMBER JUST ENTERED WILL BE LORDED INTO THE
AFTER ALL TESTS HAVE BEEN
ITERATION TRBLE FOR _RALL REMARINING TESTS.
“ENTER L,C, OR ITM RGARIN.
OPENED, THE PROGRAM RETURNS TO TYPE :
8.2.2.3

INPUT PARAMETERS AND RUN TESTS,

IF (1) IS TYPED,

THE PROGRAM

ENTERS

(I)

THE

PARAMETER

LIST

ALTERATION

ROUTINE, DESCRIBED IN SECTION 8.2.3, IN WHICH OPERATING PARAMETERS MAY
BE INPIit. AND TESTING BEGUN.
8.2.2.4

CONTROL Z (t2Z) FUNCTION

IF THE OPERATOR WISHES TO EXIT AT ANY TIME

FROM

MODE,

AND

RETURN

RETURN TO SELECT A NEW MODE (L,C, OR I), CONTROL Z (%Z) MAY BE TYPED.
8.2.2.5

CONTROL C (tC) FUNCTION

IF THE OPERATOR WISHES TO TERMINATE L,C, OR

REQUEST NEW DRIVES AND TESTS, CONTROL C (tC) MAY BE tvPeED.
8.2.3

PARAMETER LIST ALTERATION

THE PROGRAM NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES:
T = TYPE LIST

0 = OPEN LIST
S = SET INDIVIDURL PARAM.
R = RUN TESTS
OR R
ENTER T 0,5,

¥ (CHRRACYER GOES HERE)

THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>.

ZR6MDO0 _RK611l
ZREMD.P11

RIF l
-/8 11:

MACY1l

30A(10S2)

10-JAN-78

8.2.3.1

TYPE LIST,

coa

12:16

PAGE

**985%0015

U= b

om0t Pt P Pt P

OowoNoCNLWU-0O Voled)

s s [@]e]

NN NINNNINNNNN N

707

(T)

IS TYPED,

FOLLOWS:

FC
LC
ETC.

(T)

THE PROGRAM TYPES

THE

CURRENT

PARAMETER

LIST,

XXXXXX
XXXXXX

SEES”THEQ%IST

IS COMPLETED,

THE PROGRAM RETURNS TO TYPE "ENTER

T,0,S,

72l
zae

8.2.3.2

(0)

YPE D¢

OPEN LIST,

(0)

ég)TYPE THE)PRO
RAM THEN RSKS:

*TO0

DEFAULT

F JUST (CR> 15 TYPED

ALL

PARAMETERS

HE PROGRAM SEQUENTIALLY

QPENS
ERCH OP RQT&N?
PQRRHETER EN E 2
t ERRTISN
(IN
THE
ORDE
SHOKN
ARAM TER IS OPENED ANDO
R NEW LINE
S TYPED, GIVING THE PRRQMETE
RND
ITS
CURRENT
VALUE
(IN
OCTARL),

FOLLONED BY (%) ON THE SAME LINE.
IC=3 #

(INPUT,

IF ANY,

FOR EXRMPLE:

GOES HERE)

THE OPERATOR THEN TYPES THE NEH VRL¥E PLUS
A

LERVE THAT _PARAMETER UNCHANGED

FOR

ALTERATION,

<CR>

JUST

THE PROGRAM RETURNS TO TYPE "ENTER T,0,S,

AND

_(S)

SET INDIVIDURL PRRAMETER,
1S TYPED

“WAITS

FOR'

PARAME TER:

ENTER T,0,S,

OPERATOR

PROGRAM

M~
——UN0O

W
W

SET

THE

(>)

VALUE

ON THE NEXT

LINE

OF ANY INDIVIDUAL

OR R

THE OPERATOR TYPES THE PARAMETER AND

(ENTER PRRAMETER AND VALUE HERE)

Egg PTEE

AND CAN

(S)

THE PROGRAM TYPES THE PROMPTER

THE

OR RTM AGRAIN.

THE LIST OF DEFAULT PARAMETERS BEGINS AT ADDRESS "PRDFLT",
ALTERED IN CORE.

8.2.3.3

<CR>

R ALL PRRRMETERS HAVE BEEN OPENED

600
12
1

GIVES

THE

ITS NEW VALUE FOLLOWED

PROMPTER

<CR>

(>) ARGAIN RS IN THE FOLLOWING

CZRBEMDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZR6MC.PL1

MACY1l

30A(1052)

DO2

10-JAN-78

12:16

PAGE

TO_TERMINATE IND IVIDUR L _SETTING
ETTI
MODE,
(123, AND THE PROGRRA M RET URNS T 0 T TYPE

IF_THE OPERATOR TYPES (R),

CURRENT PARAMETERS.

8.2.3.5

CONTROL Z

THE

OPERRTOR

TYPES

CONTROL

"ENTER T,0, S, OR RTM AGRIN

(R)

RUN TESTS,

8.2.3.4

SEQ_3J29S
SEQ 0016

(tZ)

EXECUTION OF TESTS BEGINS,

USING

ALL

THE

FUNCTION

IF THE OPERATOR WISHES TO EXIT RY ANY TIME rnon

(RUNNING TESTS),

OR R nooe
NEWN nbos tr,0,5,
OR R)

AND RETURN TO SELECT

CONTROL 2 (12) MAY BE TYPED.

CONTROL C (tC) FUNCTION

8.2.3.6

IF THE OPERATOR WISHES TO TERMINATE
T, O,

EXECUTION

(R MODE),

RETURN TO REQUEST NEW DRIVE SELECTION (SEE
ADDRESS

200

CONTROL C (+C) MAY BE TYPED,

MODE,

STOP

TEST

AND’ THE PROGRQM WILL

SECTION

8.2.1

(ON

DIGITS),

DEFAULT RUN, TYPING CONTROL C CAUSES THE PROGRQH TO HALT

AFTER COMPLETING ANY DATA’ TRANSFER).
8.2.4

SPECIAL PARAMETER SPECIFICATIONS

8.2.4.1

PT-DATA PATTERN SELECT WORD

THE OPERATOR SPECIFIES A HORD OF SIXTEEN BITS

(6_

OCT.

SEEESE.
USF
ENY B&% SE*
IN PT CORRESPOERNS LISng I SSCT£ONPQT§ERN
CHOSEN.
IF THE HIGH BIT OF PT (BIT 1S5) IS SET, THE USER WILL BE ASKED
70 TYPE UP TO SIXTEEN DATR WORDS WHICH WILL BE LOADED INTO THE

FOR PATTERN 15.

THE PROGRAM TYPES:

BUFFER

“SELECT USER DEFINED PRTTERN 15"
NEXT,

MANNER

EARCH OF UP TO 16 WORDS ARE REQUEST %E gY THE PROGRAM IN THE

(SEE SECT.

WORD O
gggo 1

WH ICH

THE

8.2.3.2)

OPERATING PARAME

(OLD VALUE)
(OLD VALUE)

SAME
ARE OPENED FOR ALTERARTION

¥ (NEW VALUE GOES HERE)
* (NEW VALUE GOES HERE)

CZR6MDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

MACY1l

30AR(1052)

EQ2

10-JAN-78

FOR ERCH WORD,

12:1&

PAGE

SEQ_029%
SEQ 0017

THE USER TYPES THE NEN VALUE PLUS

(CR>,

JUST

<«CR»>,

(TO LEAVE IT UNCHANGED). TO INPUT LESS THAN 1b WORDS FOR PATTERN 1S,
THE OPERATOR MAY TYPE (!} (EXCLAMATION POINT) "AND THE PROGRAM WILL

FILL
UP
THE
REST
OF
THE
PATTERN
1S
BUFFER
WITH
THE LRST WORD
SPECIFIED.
NEXT, THE PROGRAM WILL CONTINUE, IN THE
PROPER
PRRAMETER

INPUT MODE (0 OR’S)

B.2.4.2

CS- CONIROL SWITCH WORD

(HARDWARE
IN ADCITION TO THE OPTIONS PROVIDED BY THE SWITCH
REG ISTER
OR__SOF TWARE )
A
CONTROL SWITCH WORD (CS) MAY BE SPE CIFIED RMONG THE

OPERATING PARAMETERS TO PROVIDE THE FOLLOWING OPTIONS:
BIT

0S
04
03

OPTION

DROP DRIVE IF 20(DEC) ERRORS EXCEED ED
TYPE_BAD _SECTOR FILES (BSF’S) ON FI RST PRSS
INHIBIT TIMING REPORTS IN TESTS 13- 16
NOTE

OTHER BITS UNUSED

9.0

DESCRIPTION OF TESTS

9.1

SEEK TESTS

THIS GROUP OF TESTS PERFORMS

THROUGH

VARIETY

THE EXECUTION OF READ HERDER COMMANDS,

POSITIONING

OPERATIONS.

IMPLIED SEEKS RRE DONE

70 SELECTED CYLINDERS, AND HEADER WORDS ARE READ AND CHECKED TO VERIFY
THAT _THE CORRECT CYLINDER
WAS RDORESSED. TESTING BEGINS WITH SIMPLE

OPERATIONS WHICH VERIFY CYLINDER ADDRESSING CAPABILITY,

COMPLETION OF EACH SUBSYSTEH COHHQND
BITS

ARE _ CHECKED

9.1.1

TEST

THROUGHOUT TESTING,

STATUS

DETERMINE 'THE

SECTOR=FS,

INDICATIONS

SUCCESS

AND TRACK=FT.

THE

PROCEEDS

AND

AT THE

ERROR

OPERATION.

- RECALIBRATE/SEEK TEST

THIS TEST WILL PERFORM A RECALIBRATE COMMAND

FOLLOWED

AND

INVOLVED SEEKING WHICH STRESSES THE SERVO MELHANISM.

SEEK

SEEKING IS IMPLIED,

CYLINDER

LC.

(POSITION TO CYLINDER 0)

(AS IN ALL OF THE SEEK TESTS

VIA THE RERD HERDER COMMAND).

CZREMDO RKB11-06 SS VERIF

CZR6MD.P11L

10-JAN-78 11:48

MACY1l

30A(10S2)

9.1.2

10-JAN-78

FO2

12:16

PAGE

SEQ 0297
SEQ 0018

TEST 2 - SEEK/SEEK TEST

THIS TEST WILL PEPFORM A SEEK TO CYLINDER FC,
CYLINDER LC.

9.1.3

FOLLOWED BY

SEEK

TEST 3 - CYLINDER RDDRESSING TEST

THIS TEST vsnxrlss THE CYLINDER noonsss BITS,

ARE bns in REVERéE ehcx fo c9L1NDER

BY SEEKING TO

nuo 400’ (OCTAL).

ADDRESSES SEQUENCE AS FOLLOW

THEN,

CYLINDERS

THE SEEKS

IN BINARY, THE CYLINDER

000000000
000000001
000000010

000000001

000000000

TEST 4 - CYLINDER RDODRESS CROSSTALK TEST

o00—-0O—-0—0
-000—-0~0
-0O—-000~0

OO0
=== 0O—0
—O—0—-0-0
o0
o—-0

=
-0

—

00000000
—r= OO0
0000

THIS TEST PERFORMS SEEKS TO CYLINDERS WHOSE RDDRESSES ARE
SUSCEPTIBLE
T0
BIT
CROSSTALK WITHIN THE CYLINDER ADDRESSING LOGIC.
FIRST R SEEK
TO CYLINDER O IS DONE, FOLLOWED BY R_SEEK TO 377 (OCTQL)
THEN A SEEK
10
0
I S DONE AGAIN, 'AND A SEEK TO 376 , ETC.
THE CYLINDER ADDRESSES
SEQUENCE RS FOLLOWS:

o0
-0
oo

VoV IV Vo Vo IV IV IV I IV Y o)O OD
U s bt e ot et s s e e 0= O
oL NCNLWNN—-0OWwD

9.1.4

“

CZREMDO RKE11-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

MACYL11l

30A(10S2)

10-JAN-78

GO2

12:16

PAGE 20

101

SEQG_0J298
SEQ 0019

111

BY SEEKING TO O BETWEEN CROSSTALK SEEKS,
TEST THE CYLINDER DiFFERENCE LOGIC.

9.1.5

THE CROSSTALK

PARTTERNS

ALSO

TEST S - INCREMENT/DECREMENT SEEK TEST

IN THIS TEST SEEKS ARE DONE IN INCREMENTS OF IC CYLINDERS STARTING
AT
CYL
FC,
AND
_ENDING
AT
OR
BEYOND LC.
THEN, THE SEEKS ARE DONE IN

REVERSE' BACK TO FC.

IF FC IS CHOSEN > LC, THE SEEKS WILL PROCEED

THE oppbsxrs DIRECTION.

9.1.6

TEST 6 - OSCILLATING SEEK TEST

THIS TEST FIRST SEEKS TO CYLINDER FC,

WHICH IS INITIALLY EQUAL TO

NC.

THEN NC IS INCREMENTED BY IC,
AND A SEEK FROM FC TO NC IS MADE
FOLLOWED BY A SEEK ancx TO FC. N& IS INCREMENTED AGRIN, AND SEEKING
FROM
FC
TO
NC
FC
1S
REPEATED UNTIL NC EXCEEDS LC.
REVERSE IS DONE, oscnsnsnr:na NC UNTIL NC EXCEEDS FC.

9.1.7

THEN,

THE

TEST 7 - CONVERGING/DIVERGING SEEK TEST

THIS TEST PERFORMS SEEKS WHICH EXERCISE

INITIALLY,

NCYL1 = FC

AND

NCYL2
= LC.

CYLINDER

DIFFERENCE

VALUES.

A SEEK IS DONE TO NCYL1 AND

THEN T0 N&yL2, THEN, NCYL! IS INCREHENTED BY IC IN THE DIRECTION OF
AND NCY(2 IS INCREMENTED BY IC IN THE DIRECTION OF FC, AND SEEKS

nRt DONE TO NCYL1 AND NCYL2 AGARIN.
INCREMENTED

anues

nch1

AND

THIS SEEKING IS CONTINUED "WITH
NCYL2,

UNTIL NCYL1 EXCEEDS LC AND

NCYL2 EXCEEDS FC.
(NOTE: FC > LC IS PERMISSIBLE.) THIS TEST
SEEKING TO convsncxnc AND THEN DIVERGING CYLINDER anuss
9.1.8

TEST 10 - PSEUDO-RANDOM SEEK TEST

THIS TEST PERFORMS A SEEK TO A PSEUDO-RANDOMLY CHOSEN

IS WITHIN THE RANGE (0-632),

9.1.9

CAUSES

(0-1456 FOR RKO?)

CYLINDER

WHICH

&Q1(0CT)

AND

TEST 11 - MAXIMUM VELOCITY REVERSAL SEEK TEST

THIS TEST PERFORMS A SEEK FROH CYLINDER O TO_

CYLINDER

BACK TO__CYLINDER O.
THIS PARTICULAR SEEK _CAUSES THt HEhDS T0
ACCELERATE TO MAXIMUM VELOCITY
AND_THEN IMMEDIATELY DECELERATE,
WITH
NO APPRECIABLE PLATEAU OF CONSTANT VELOCITY. THIS OPERATION INDUCES
HERTING IN THE SERVO MECHANISM.

REMPO _RKE11-0

QER&HB P11

VERIF

8 §2N— 8 11:48

MACY11l

30A(1052)

10-JAN-78

HO2

12:16

PAGE 21

SEQ 0299

SEG 0020

987

9.1.10

3990

DECRERSING STALL TIME BETNEEN OPERRTIONS WITH INTENT TO INDUCE VARY ING

331

992

993
394

3%
997
998

THIS

TEST 12 - MECHRNICAL VIBRATION SEEK TEST

TEST PERFORMS GEOMETRICALLY

INCRERSING SEEKS

VIBRATIONAL MODES_LIPON_ THE
D

WITH

i
gsnéonneo TH

GEOMETRICALLY

G
ks g&t oong

FoLL
IN
gsruegn ) nns(c rn5(058
?“
2 SEQuU
?Encs
DED BY 2 A
DOUBLED AND stsxs ARE DONE Bsrueshnno LC ncnxn IO(DEC) TIHES

[13ROCESE
15,EONTINED
£OR NEW, VELUER pZbceel
/8 Sevtfiseo "athy &%
BEING DOUBLED RND LC DIVIDED 992, UNTIL LC BECOMES < 1.
.

1003
004

THIE GROQUP OF
TESTS
PERFORMS
TIMING
MEARSUREMENTS
OF
BARSIC
DRIVE
OPERATIONS - SPINDLE ROTATION AND SEEKING.
FOR EACH TEST THE FUNCTION

WL WL v
D Ut

eb eb

e 1= e = O OO O o

0000000000000 0000000000000D00000000

0t bt 0t et Pt Pt P Pt Pt st Dt s e Pt (it Pt Pt et e

DN LWN—~ODONN LW~ O WO NN LWN—DNDNT n

9.2

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

1001

TIMING TESTS

BEING MERSURED IS TIMED FOR A GIVEN

NUMBER_

OCCURENCES,

AND

THE

MINIMUM,
MAXIMUM,
"AND AVERAGE VALUES ARE TYPED ALONG WITH' THE NUMBER
OF OPERATIONS WHILH EXCEEDED THE LIMITS SPECIFIED IN THE RKO6/07 DBISK
DRIVE SPECIFICATION.

NOTE- FOR S0 HZ OPERRTION,

g.2.1

PRTCH

INTO LOCATION

166

(LABELED HZ:).

TEST 13 - MAXIMUM ROTATIONAL LATENCY MEASUREMENT

THIS TEST MERSURES THE

INTERVAL OF TIME BETWEEN 2

MILLI-SEC + OR - 2.5%.

THIS MEARSUREMENT

SINGLE

DISK

ROTATION.

INDEX

MARKS

THE SPECIFIED MAXIMUM ROTATIONAL LATENCY = 25
1S MADE

128 TIMES.

SAMPLE PRINTOUT --

ROTQTIO"QL
oF
LOW SPEC’D
n x z 823 Tfl"
3 103 8
OF SS ESOVE
spEc'o MIN
MAX OF
OF 24375
25625 US
US

AVG = 24285 US

9.2.2

TEST

I4 - ONE CYLINDER SEEK TIME MEASUREMENT

THIS TEST MEASURES THE

TIME

REQUIRED

SEEK

BETWEEN

RADJRCENT

CYLINDERS

BOTH IN THE FORWARD AND REVERSE DIRECTIONS
SEEKS ARE DONE
632 AND THEN TO 631,630
AND THE RESULTS ARE

MILLI-SEC.

NOTE:

TYPEO FOR egcn DIRECTION

SAMPLE PRINTOUT -ONE CYL

SEEK

THE SPECEFI Eb 6NE ch SEEK TIME IS ¢ 8

SEEKS RRE TO CYL

TIMES

1455 ron THE
R

CZREMDO RKB11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACY1l 30A(10S2)

1040
1041
1042
1043
1044

9 fme P Pt Pt Pt Pt Bt Pt Pt Pt Pt P Pt ot et Pt Pt Pt Pt s B Pt Pt e Dot it Do Pt Bt s s s Pt Pt P b ot ot Pt ot P Pt Pt Pt P
Q000
(=] 0000000000 0000 000000000
WOONN
~ ~ NN oo
oo oo oIV
@
N~ 000
W n —OoVONCNLW—-0OWVoONCNLWL~-0O

1046
1047
1048
1049

076

DDDDDODSDDODOO

07?7

9.2.3

PRAGE 22

SEQ 0300
SEQ 002!

THIS

TEST 15 - AVERAGE SEEK TIME MERSUREMENT
TEST MEASURES THE

REVERSE DIRECTIONS.
FOR

TRUE AVERAGE SEEK

TIME

IN BOTH THE FORWARD

AND

THE AVERAGE TIME IS CALCULARTED FROM THE FOLLOWING

RVG [TI(410)(2)+T2(409)(2)+...+TH1I0(1)(2)1/7(410)(410)
WHERE TX = THE MEASURED TIME TO SEEK X CYLINDERS.
FORWARD AND REVERSE
TIMES
RARE
HERSURED
AND TYPED, SEPARATELY.
THE AVERAGE SEEK TIME IS
SPECIFIED TO BE
< 38 MILLI-SEC.
SAMPLE PRINTOUT -AVERAGE SEEK TIMES

#%F ORWARD_DIRECTIONX
¥

AVG
= 35673 US
SPEC D MAX IS 38000 US
{!REVERSE DIRECTION#*
AVG
= 35823 US
SPEC D MAX IS 38000 US

9.2.4

TEST

16 - MAXIMUM SEEK TIME MERSUREMENT

THIS TEST HERSURES THE TIME REQUIRED TO SEEK FROM CYL

oCT

410 DEC.

HIS TIME REPRESENTS THE MRXIMUM SEEK TIME,

IS MERSURED 128 TIHES IN EACH DIRECTION.

TIME

IS
< 75 MILLI-SEC.

THE SPECIFIED

MAXIMUM SEEK TIMES :
I!FORHGRD DIRECTION*#*
MIN = 6895 0 us
MAX = 69286 US
0O OF 128 RBOVE SPEC’D MRX OF 75000 US
AVG
= 69122 U
i!REVERSE DIRECTION#*#*
MIN
= 70194 US
MAX = 70667 US
0O OF 128 ABOVE SPEC’D MAX OF 75000 US
RVG = 70407 US

90
)

9.3

TEST

17 - SECTOR RDDRESSING TEST

CyL

MAXIMUM

SAMPLE PRINTOUT --

83
84

I02

12:16

#%#FORWARD DIRECTIONX*
MIN = 6332 US
MRAX = 6749 US
0O OF 410 ARBOVE SPEC’D MAX OF 8000 US
AVG = 6536 US
¥¥REVERSE DIRECTION%x
MIN = 6314 US
MAX = 6749 US
0 OF 410 ABOVE SPEC’D MRX OF 8000 US
AVG = 6532 US

1045

074

10-JAN-78

632

AND I7

SEEK

CZRBMDO RK&11-/06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48
1096
1097
1098

[GIVIF
¥ 9-

Ll ad d o ey ey e ey
52 s e P ot Pmn Pt Pt Pt s o

£ £ L L L LWWWWLWLWILWLWLWLWIRINNINININI
TN
Y

o e e be =

e
e Y e ey e e ey e e T S e e e el ol o T N Y
YNy Y Yy Gy Y U Wy U O Uy Uy Y Sy
et Pt it Pt Pt Pt Pt Pt v it Pt B s Pt o s B P P P P Pt e Pt Pt Pt s s Pt P ot o Pt P ot ot et P P Pt Pome

1099

MACY11l 30A(10S2)

10-JAN-78

IN THIS TEST,

WORDS

JO2

12:16

PRARGE 23

ALL SECTORS OF FC, FT ARE WRITTEN,

OWN

'SECTOR

NO.

g§I¥LENDQTgRITE CHECK IS DONE,

9.4

ERCH

100(OCT).

WITH

256(DEC)

NEXT, FOR ERCH SECTOR

FOLLOWED BY R READ AND SOF TWARE COMPARE

TEST 20- TRACK ADDRESSING TEST

IM THIS TEST,

THE

SEG_ 0301
SEQ 0022

TRACK_

SECTOR FS OF CYL FC IS WRITTEN WITH 256_(DEC)

No;

+ 100(OCT), FOR ERCH OF TRACKS O,1,2.

CHECK OF EACH SECTOR 1S DONE'TO VERIFY THE WRITES.
3 SECTORS IS RE-WRITTEN,

THEN,

WORDS

R WRITE

YHEN, EACH OF

THE

AND AFTER EACH WRITE ALL OF THE THREE SECTORS

ARE WRITE-CHECKED TO DEYECT TRACK ADDRESSING PROBLEMS.
9.5

TEST 21 - RERD/WRITE DATA TEST

THE READ/WRITE DATA TEST HAS 2 DIFFERENT VERSIONS,
VALUE OF THE DRTA PATTERN PARAMETER (PT).
FOR PT =D

DEPENDING

THE

THIS TEST IS THE QUICK VERIFY DEFAULT DATA TEST,

WHICH

RUN

WHEN

=0, DUE TO PRRAMETER INPUT CHOICE, OR ADDRESS 200 START. IN THIS
TEST' THE ENTIRE PACK IS TESTED WITH A SINGLE DATR PATTERN.
THIS

PATTERN

COMPRISED OF THE DATR PATTERNS 00-1S5,

WHICH REPEATS EVERY

256(DEC) WORDS. EACH TRACK IS WRITTEN IN 4 SEGMENTS,
FOLLOWED BY A
WRITE-CHECK, READ,
AND SOFTWAR" COMPARE. THE SEGMENTS ARE & SECTORS
EACH, WHICH MEANS YHAT TRACK SPIRALING OCCURS ON THE LARST SEGMENT
WRITYEN ON ERCH TRACK.
FOR PT NOT =0

THIS TEST

CYLINDERS

PERFORMS

(FC-LC),

READ/MRITE

FUNCTIONS

TRACKS (FT-LT),

THE

ENTIRE

EACH SPECIFIED SECYOR WC WORDS OF YHE CURRENT REPEARTING

ARE

WRITTEN,

RANGE

AND SECTORS (FS-LS) SPECIFIED.

AND THEN WRITE-CHECKED,

DATA

PATTERN

FOLLOMED BY A RERD AND SOF TWARE

COMPARE. THIS IS DONE FOR ALL THE SPECFIEID SECTORS ON ALL THE TRACKS
USING THE SECTOR INCREMENT IS, AND TRACK INCREMENT IT.
AND THEN IT IS
REPEATED USING EACH OF THE OTHER DATA PATTERNS CHOSEN IN PARAMETER PT
THEN.
EACH OF THE ABOVE OPERATIONS RRE REPEATED AT ERCH OF THE
REMAINING CYLINDERS,
INCREMENT IC.

THE

SPECIFIED

RANGE,

USING

NOTE' THRT FS MUST BE CHOSEN ¢ OR'= LS,

THE

CYLINDER

AND FT MUST BE ¢

OR = LT. HOWEVER, FC MAY BE <, =, OR > LC, AND IF F>LC, THE CYLINDER
RDDRESS WILL BE DECREMENTED B8Y Ic (INSTEAD OF INCREMENYED) TO GBTRIN

EACH NEW CYLINDER RDDRESS.

NOTE:

THE

PARCK

ADDRESS

LIMITS

CZR6EMDO RKE11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACY11l 30A(1052)

10-JRAN-78

K02

12:16

PRGE 24

SEQ 0302
SEQ 0023

NNNNINO
OO
O
UL
LWN—-OOmMNCNLZWN—-0DO0o NN
L

s P
s Pt

Pt Pt Pt Pt Pt Pt Pt Pt P

s Pt Pt

Pt Pt Pt P

s Pt
s Pt Pt Pt
s
et Bt

Dt Dt et Bt Pt Bt B

Pt Pt Pt Pt Pue

1152
1183

(FT,LT,FS,LS,FC,LC)

REFER__TO THE RANGE

OF BATA SECTORS’AT WHICH
BEGIN,

USING

THE

TRANSFERS

MRAY

GSPECIFIED WORD COUNT

WC. IF WC IS LARGE ENOUGH, HOWEVER, THE
l§fi?§gsns MAY EXTEND BEYOND THE ABOVE

9.5.1

DRATA PATTERNS

EACH DATA PATTERN IS COMPRISED OF 16 WORDS.
PATTERNS ARE REPEATED AS
NECESSARY TO OBTRIN THE DESIRED WORD COUNT ON THE WRITE DATA COMMANDS.
THE MAXIMUM ALLOWARBLE WORD
COUNT
AVAILABLE
BUFFER
SPACE
AT
THE

LARGE AS 65,536 (DEC) WORDS.

IS
DETERMINED
B8Y
END OF THE PROGRAM,

DATA SPIRALING AND

THUS POSSIBLE DURING THE DARTA TESTS.

TRAEK

THE
AMOUNT
OF
AND COULD BE RS

THE FOLLOWING IS THE LIST OF 16 SELECTRBLE DATR PATTERNS
WITH NOTRBLE FERTURES DESCRIBED:

SWITCHING
(IN

OCTAL),

CZRGEMDO RK611-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48
1175
1176
1177

1178

MACY11 30R(10S2)

10-JAN-78

PRAGE 25

SEQG 0303
SEQ 0024

HIGH-LOW
FREQUENCY MIX

HIGH FREQUENCY
FFASE MIX

LOW FREQUENCY
PHASE MIX

17727727

000000

052525

1187
1188

052525
052525

17272777
17772727

125252
125252

1193
1194

052525
1777727

1179
1180
i}gé
1183

1184

1185
1186
1189
1190
1191
1192

LO2

12:16

177777
177777

000000
000000

066666
155555

125252
052525
052525
125252

066666
066666
155655
1655585

125252
052525

133333
133333

177277
000000
000000
177777

1195
1196

052525
177252

177777
000000

1198

172765

000000

052525

4
ROTATING

s
ROTATING

3
ALL

1197

1199

1200
1201

1202
1203

1772582

172765

177777

177?777

125252
052525
125252

125252

PRECOMPENSATION

PRECOMPENSRTION

CELL PULSE

ZEROS

1208

121105

026455

000000

1210
1211
1212
1213

064221
132110
0SS044
026422

045513
122645
151322
064551

000000
000000
00000
00000

1215
1216

105504
o42642

055132
026455

1219
1220
1221

o44264
022132
011055

122645
151322
055861

1223

042213

1204

isgg

1207

1209

1214

1217
1218

1222

BOUNDARY PULSE

150442

013211

021321
110550
104426

133333

052525
052525

052525
177777
177777
052525

1727777
000000

MAX IMUM
PRECOMPENSATION
PHRSE MIX

156555
133333

133333
133333
133333
133333

133333
7
ALL

ONES
1277277

000000

17727227

132264

000008

1777727

113226
0458513

000000
000000

177777
1772777

132264

000000

177777

113226

055132

00000
000000

000000
000000
000000
000000

1777727
177777
177777
177777

177777
1772777

1772277
1727?27
177777
177777

CZR6MDO RKB11-06 SS VERIF 1

CZR6MD.PI11
1224
122S
12e6

10-JAN-78 11:48

MACY11l 30A(10S2)

10-JAN-78

MO2

12:16

PAGE 26

SEQ Q304

SEQ 00es

iee?
1228
1229
1230

8
SHIFTED 1
IN FIELD
oF 0O’

9
SHIFTED O
IN FIELD
OfF 1'S

ALTERNATING
-

1233

000001

177776

pS252S

125252

231
1232

1234
1235

eee;scececs

000002
000004

1
ALTERNATING
-

ecccecocccc | cecemcccccos | eseccecaae-

17?277S
17272773

052525
05252S

1252%e
125252

1236
1237
1238
1239
1240
1241

000010
000020
000040
000100
000200
000400

177767
177757
177737
177677
177577
177377

052525
052525
052525
05252S
052525

125252
125252
125252
125252
125252
125252

1243
1244
124S

002000
004000
010000

1787727
1737727
1677277

0525eS
052525
052525

125252
125252
125252

040000

1377277

1242

1246

1247
1248

1248
1250

1251
1252

igéa

1258
1256
1257
1258
1259
1260
1261
1262
1263
1264

1268

1266

1267
1268
1269
1270

0G1000

J20000
100000

12
SHIFTING

0'S AND 1'S
000001
000003
000007
000017
000037
GJ0077
000177
000377
000777
001777
003777
007777

0172777
0372777
077?2??
1772277

176777

052525

187777

052525

077?77

13
COMPO%ITE

ROTATING

072307
135143
1S6461
167230
073514
035646
016723
107351
143564
0619?2

030735
114356

046167
123073
151453
164616

052525

FSEUDO-

RANDOM

125252

15
USER-

DEFINED

CZREMD.P11

1271
1272
1273
{S;;
1276

10-JAN-78

11:48

MACY1l

30A(10%52)

9.6

NO2

10-JAN-78

12:16

PAGC 27

SEQ 0305

SEQ 0026

TEST 22 - DUAL-RCCESS DATA TEST

THIS TEST

IS DESIGNED TO RUN ON 2 DIFFERENT_PROCESSUDS, SIHULTQNEOUSLY

1277

AND~

1279

STARTING

RDDRESS= 220 AND IT IS NEVER RUN WITH THE OTHER 15STS IN AN

THIS TEST

IS A MODIFIED VERSION OF RERD/WRITE DATA TEST 21,

1278
1280

1283

DRIVE,

TNDEPENDENTLY
THROUGH 2

nuronnrxc MANNER.

ALSO,

DYNAMIC

CONTROLLERS.

DRTR

OPERATIONS

~TEST

HAS

ON THE SAME

A__SEPARATE

BOTH PORTS MUST BE SWITCHED ON-LINE,

IN WHICH
A

1286
1287
1288
1289
1290

TESTS 21 AND 22 ARE IDENTICAL, RS FRAR RS EACH PROCESSOR 1S CONGERNED
THIS nenns THAT THE TEST PARAMETERS (RDORESS LIMITS,
DARTR PATTERNS
ETC.)
CAN
EFINED oxrrsnsnrtv FOR EQCH PROCESSOR.
IF DIFFEREN?
DRTA PQTTERN RRE USED,
FOR EXAMPLE,
THE DRTA WHICH APPEARS ON THE
DISK AT TIME
FRILURE
CAN IDCNTIFY THE CONTROLLER FROM WHICH IT

1292

SMALL (WC=1) TO CAUSE’ THE GREATEST AMOUNT OF CONTENTION FOR THE USE OF

iSEE
1295

iggg

THE

DRIVE

1281

connnflo

1284

1285

RELERSE

PERFORMING

DIFFERENT

DONE IMMZOIRILLY nrrsn COMPLEYION
OF READ

WRITE OPERATIONS AT
R PARTICULAR PRCK ADDRESS.

ORIGINATED.

LIKEHISE

THE DRIVE.

NOTE

THAT

DATA,

THE WORD

COUNT

MAY

IN ALL OTHER RESPECTS,

CHOSEN

IF BOTH PROCESSORS ARE Psnronnxnc TRANSFERS

THE

SAME

PACK

RODRES

INTERFERENCE

MAY

APPROPRIATELY

WITH

DIFFERENT

OCCUR,

CONTROLLER SHOULD LOSE THE DRIVE PRénnTURELv T0 REPORT AN ERROR.

IF ONE

1288
1299
13 00

WHEN THE TEST 1S STARTED (AT ADDRESS
220)
PARAMETER
INPUT
MODE
IS
ENTERED,
AND OPERRTIONQL PARAMETERS AND THE DRIVE NUMBER MAY BE TYPED

1302
1303

VECTOR. ~ THE
ST nunssn 1S5 AUTOMATICALLY SET T0 22,
TYPES “ENTER T1,0,5,
OR R” RS aEscnreso
IN
SECTION

1301

IN (SEE’SECTION e

1304

POINT,

1307

MUST INDEPENDENTLY LOARD AND START

1305
1306
1308

1309

ig{?
1312
1313

THE

RS WELL AS

OPERRYION

oOF

RKO®6

UNIBUS

PROGRAM

IS~

THE

TEST

RDDRESS

AND

INTERRUPT

AND THE pnocngn
8.2.3.
THIS

THE

SAME

RS PREVIOUSLY

ERCH

PROCESSOR

DESCRYBED IN CONJUNCTION WITH THE OTHER TESTS.
HOWEVER, ONLY TEST 22
MAY BE RUN, AND ONLY ON THE SINGLE SELECTED DRIVE. ALSO, THE OPERATOR
SELECT

INPUT

PARAMETERS,

INDEPENDENTLY.

AND

THE DRIVE NUMBER TYPED AT

EACH PROCESSOR CONSOLE MUST BE THE SAME, IN ORDER TO PERFORM THE TESTS
ON THE SAME DRIVE,

SIMULTANEOUSLY.

1314

10.0

ERROR REPORTING

{3{3

10.1

COMMON ERRORS

1320
1321

THE FOLLOHING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR
TYPEOUTS
FROM
THE
GSUBSYSTEM
VERIFICATION
PROGRAM.
THE ERRORS ARE

1315
1316
1317

igsg

1324

1325
1326

SELF-EXPLANATORY.

2.
3.

UNIBUS PRRITY ERROR

NON-EXISTANT MEMORY ERROR
NON-EXISTANT DRIVE ERROR

[aYa

CZR6MDO RK611-06 SS VERIF

.
24.
2S5.
26.
27.
28.

29.
30.
J1l.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.

12:16

SEQ 0306
SEQ 0027

PRGE 28

UNIT FIELD_ERROR
SUBSYSTEM TIMEOUT
SERCON PARITY ERROR
DRIVE DETECTED PARITY ERROR
LOW
SPEED LOSS
ILLEGAL FUNCTION ERROR
PROGRAMMING ERROR
NON-EXECUTQBLE FUNCTION ERROR
DRIVE TYPE ERROR
FORMAT ERROR
WRITE LOCK ERROR
DRIVE UNSARFE ERROR
SEEK INCOMPLETE ERROR
CYLINDER OVERFLOW ERROR

ILLEGAL CYLINDER ARDDRESS ERROR
RIVE OFF TRACK

DRIVE TIHING ERROR
DATA LRTE
E
CONTROLLER TIHEOUT ERROR
OPERATION INggggLETE ERROR
HEAQDER VRC
ERROR
DRATA CHECK
WRITE CHECK ERROR
DATA MISCOMPARE

NO DRIVE RESPONSE - UFE QND NXD
DORIVE ERRO WILL NOT CLERR
STRTUS CHANGE WILL NOT CLEAR
DRIVE
CHANGE OR FAULT
ATTENTION BUT NO STATUS
ATTENTION BUT DRIVE NOT AVAILABLE
ERROR HHIBS GRTHERING DRIVE STRTUS
IVE SELECT
MULTIPLE
HERDER COMPARE ERROR
ERROR IN RECRLIBRQTE FOR RECOVERY
CLERR_CONTROLLER DID NOT CLEAR ERROR
NO RTTENTION IN ATTENTION SUMMARY REGISTER

UNSOLICITED RTTENTION
UNEXPECTED DARTA TYPE ERROR
ATTENTION DID NOT RESET WITH CLEAR

4S.

SUBSYSTEH CLERR DID NOT CLEQR DRIVE ATTENTION
DAT LATE WHEN UNLORDING HEADER
CONTROLLER ERROR NHEN ORIVER SERVICING

47.

BAD SECTOR ERROR ON SECTOR NOT LISTED BARD

43.

4y,
46.

10.2

10-JAN-78

POPU NN 0 bt e s pt s e e e e
W= OVONCNLWR—O0ONN
L

MACY11l 30R(10S52)

wgwwwwwwwwmwwwwwwwuwwwwwwumwwwwwww
goonunninNnINNINNL
L L L L
LS
L L LWWW

CZR6EMDO RKb11-06 SS VERIF 1
10-JAN-78 11:48
CZREMD.PI1

BO3

RETRY UNSUCCESSFULL

ERROR HANDL ING

ERRORS REPORTED BY THE PROGRAM CONSIST OF COMMON FAILURES RESULTING
FROM RATTEMPTED SUBSYSTEM FUNCTIONS, AS WELL RS CERTAIN ERRORS UNIQUE

TO PARTICULAR

TESTS.

EACH

ERROR 'PRINTOUT

CONSISTS

ERROR

DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HEARDER LINES, COLUMN

CZREMDO RKB11-0S S 3V R IF 1
10-J AN~ 8 1 1:48
CZR6MD.P11

£ £ Wi
WWwW i, W
OO0V O0DONODD
D0
DM
OVONCNLWN—DODDm NN

1383
1384
1385

MACY1l

30A(1052)

£ WR— O DO ~N
U

I(fi(f"fjl£££££££££££.££££££££££
e e bt b b bt e e DD (=)

AND

12:16

COLUMNS

SEGQ_0307
StEQ@ 0028

PAGE 29

CONTENTS

OCTAL.

_MUCH

MEANINGFOL REGISTER DATA AS POSSIBLE (FOR EXAMPLE, RKbE11 REGISTERS)
ARE REPORTED ON A GIVEN ERROR. 1IN THE CASE OF DRTA MISCOMPARE ERRORS

INSTAN
THE W
NUMBER
0 DATA WORD,
BAD
DATA_WORD, PHYSICA
MEMORY
noSEtss
V?E?um.
BEDORES
AND
MEMORY
ngmcsngn?
aEc?&?sE
CONTENTS (IF PRESENT) ARE REPORTED. OTHER ERROR REPORTS MAY CONSIST
FOR

OF A SINGLE DESCRIPTIVE LINE.

MANY OF THE COMMON ERRORS ARE

PERSIST,

AN ABORT IS

MADE.

RETRIED

SEVERAL

TIMES,

AND

10.3

ERROR PRINTOUT EXAMPLES
1:
NON-EXISTANT

DRIVE ERROR

TEST 2

PREVIOUS COMMAND

DRIVE
000000

HI BA
000000

CMND
000177

LO BRA
000000

DRIVE
000000

RK611

REGISTERS:

HI BR
000000

RKCS1
140324

LO BR
000000

RKCSe2
010100

TRACK
000000

SECTOR
000000

WD CNT
000000

CMND
000125

CYLNDR
000000

TRACK
000000

SECTOR
000000

WD CNT
000000

RKDC
000000

RKDA
000000

RKWCR
000300

RKBA
000000

RKASOF
000400

TRACK
000000

SECTOR
000000

WD CNT
036000

CYLNDR

TRACK

SECTOR

CURRENT COMMAND

ERR PC
037576

CYLNDR
000000

REMAINING REGISTERS NOT VALID
EXAMPLE 2:
#%

DATA MISCOMPARE
TEST 21

PREVIOUS COMMAND

DRIVE
000000

HI gfl
000000

CMND
CJ0l21

bO BA
G74000

CURRENT COMMAND

ERR PC

DRIVE

CYLNDR
000000

DMnND

THEY

DATA ERRORS AND MISCOMPARES ARE REPORTED,

AND THE PROGRAM CONTINUES TESTING.

|8)
n UMY
MY RN
R
b
n —0Ouw 0 N0 N £ WN— O LM

10-JAN-78

HEADINGS,

EXAMPLE

433

ca3

WD CNT

CZR6MDO RKE11-06 SS VERIF 1
i0-JAN-78 11:48
CZR6MD.P11

MACY11 30A(10S2)

10-JAN-78

DO3

12:16

PAGE 30

000121

000000

SEG 0308
SEQ 0029

1439
1440

1441
144
144
1449

1445

034606
HI

000000

LO BR

000000

036000

074000

PACK RADDRESS OF ERROR(S)
CYLNDR
TRACK
S ECTOR
000000
000000
000000

WD 8

GOOoD

BARD

HI PHY

LO PHY

VRT AD

KIPARRB

000000
000001
000002
000003
000004
00000S
000006
000007
000010
000011

000001
000002
000003
000004
000005
000006
000007
000010
000011
000012

125252
155252
125252
125252
125252
12525e
125252
125252
125252
12S5ese

000000
000000
000000
000000
00
000000
000000
000000
000000
000000

07400
Q7400
074004
074006
074010
074012
074014
074016
074020
074022

iSHOOO

000600
000200
000600
000600
000600

000600
000600

CZR6MDO RK611-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACY!l 30R(1052)

EOQ3

10-JAN-78

12:16

PAGE 31

SEQ 0309
SEQ 0030

1462
1463
1464
1465
1466
1467
1468
1469
i:;?

APPENDIX A

i:;g

SAMPLE ADDRESS 200 DEFAULT RUN

1476
1477

THE
FOLLOWING
PRINTOUT
WAS
THE
RESULT
OF
VERIFICATION,
PART 1,
ON A SINGLE DRIVE (onxvs o

1478

OF THE PROGRAM

1480

ADDRESS 200 RUN.

1479
i

{333
"S?

NON-EXISTENT

DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

3
4
5
6

NON-EXISTENT
NON-EXISTENT
NON-EXISTENT
NON-EXISTENT

fOD

ALL

MESSAGES

PART

DRIVE 2 NON-EXISTENT

7 NON-EXISTENT

DRIVE(S)

= O

TESTING DRIVE O

DRIVE SER.
CART.

SER.

NO.
NO.

s s

ROTQTIONQL TIMES

MIN = 24153 US

s Pt Bt ot Pt

e Pt Pt

s Pt Bt Bt Pt

s B

et Pt Pt

e B

RAVG = 24374 US

Dt Bt

THIS

LAST PHYS MEM ARDR = 377776
DRIVE

Bt B ¢ Dt Bt Bt B

CZR6M-D - RKB11/RK06-RKO? SUBSYSTEM VERIFICATION

PASS)

APPEARING HERE WERE OUTPUTS - NO opsnnron INPUTS nnt PROVIDED ON AN

QI TG T T LA [ T TTA TR TTR VATV T I T T Nl i i o A olol o ol o
= 42 e b 0= 02 = O O O OO0 OO0 OO0 VDD D DD D DDD
NN L£WN—-OD0NCN LW OOONCIN LWH-0O

Y o

Bt i

1485

(QUICK-VERIFY

RUNNING
SUBSYSTEM
ron THE FIRST PRSS

MAX = 25125 US

334

99 OF 128 BELOW SPEC’S MIN OF 24375 US
0 OF

ONE CYL SEEK TIMES

128 ABOVE SPEC’'D MAX OF 25625 US

!lFORugggBDIRECTIONli
MIN
us

geé
= gg?g Ug
#%¥REVERSE

0 OF 410

(814 FOR RKO7?)

RBOVE SPEC’'D MRX OF 8000 US

(814 FOR RKQ7)

ABOVE SPEC'D MAX OF 8000 US

DIRECTION#¥

MIN = 6332 US
MAX = 6713 US
AVG = B513 US
AVERAGE SEEK

0 OF 410
TIMES

CZR6EMDO RKB11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACY1l 30A(10S2)

FO3

10-JAN-78

12:15

PRGE 32

ugisvunoinnanynnniiniiun
W wwwwnmnrory—
oCNLEWN—OODDONOCNLWN—~DW

Y OySy
e

1518

%#FORWARD DIRECTION®®

AVG = 35673 US

SPEC D MARX IS 38000 UuS

RVG = 35823 US

SPEC D MAX IS 3800C US

*%¥REVERSE DIPECTION

MAXIMUM SEEK TIMES

i!FORHQRD DIRECTION®*

MIN = 68950
US

MRX = 69150 US
AVG

0O OF 128 ABOVE SPEC’D MRX OF 75000 US

= 69064 U

llREVERSE DIRECTION#x

MIN

70222
US

MAX = 70530 US

O OF 128 RBOVE SPEC’D MAX OF 75000 US

AVG = 70379 US

END PRSS #

SEQ Q3310
SEQ 003!

CZREMDO RKE11-06 SS VERIF 1
CZReMD.P11
10-JAN-78 11:48

MACY11l

30A(10S2)

GO3

10-JAN-78

12:16

PRGE 33

1837
1538
1539
1540
1541
1542
1543
IEHH

1845

RPPENDIX

1546
1547
1548

1223
1561

1552

1553
1554
1555

1556

1557
1558
{ggg
1561

}ggg

THE

FOLLONING

VERIFICQT&

PRINTOUT

THE

RESULT

NG%E DR%VE

RUNNING

(DRIVE Q),

SUBSYSTEM

WITH PARTICULAR

TESTS SELECTED TO B
RUN FO
CIF
NUMBERS 'OF TIMES,
WITH
SPECIFIED
PARAMETERS,
AND A SPECIFIED NO.
__OF _PROGRAM #flSSES
SPECIFICQLLY IT WAS DESIRED THAT TEST 2 BE RUN 2S(OCTAL) TIMES,
TEST
7 FOUR TIMES, TEST 14 RUN 2 TIMES, AND TEST 21 ONCE. THESE TEStS WERE
SPECIFIED TO'RUN FOR 2 PROGRAM PRSSES, USING PARAMETER VALUES TYPED BY
THE OPERATOR.
IN THIS CASE PACK
ADDRESS PARAMETERS AND DATA TRANSFER

WORD COUNT WERE SPECIFIED,

FOR TESTS WHICH UTILIZE THEM.

CZR6M-D - RKB11/RK0OB-RKO7 SUBSYSTEM VERIFICATION

1571
1572

RKO6 BUS ADR =
RKO6 VEC ADR =

LAST PHYS MEM ADR = 377776

177440
210

igza

RKO®6 PRIORITY =

1575
1576

DRIVE
1 NON-EXISTENT
DRIVE 2 NON-EXISTENT

1578
1579
1580

DRIVE 4 NON-EX{%TENT
DRIVE
S NONTENT
DRIVE & NON-EXISTENT

NEW =
NEW =

NEW =

DRIVE 3 NON-EXISTENT

iggé

DRIVE 7 NON-EXISTENT

1583
1584
1585
1586
1587

DRIVE(S

L = LIST TESTS
C = CHANGE TESTS

1590

ENTER L,

i831
1€92

NQS

PRRAMETER INPUT MODE

{ggg

SAMPLE ADDRESS 204 RUN

1564
1565
1566
1567
1568
ig%g

1877

SEQ 0311
SEQ 0032

I = INPUT PARAMETERS AND RUN TESTS
C,

x C
TO DEFAULT

OR I
TESTS TYPE D<«CR>,

ELSE

:CR>

PART

«~Sda w
-oQIaTwXiOZMwgm-(&} [W492[](.8] [49V[T]+
- aw-zZ

—
30A(10S2)

10-JAN-78

0o
—~r—a

——

elele) e
LN
7B- 8858 11 v

>aow))

80081—~g1yYiN1Qs1lUOplilbOISP1I1DT1PUIFDNPISY2OPR2RNo2RORT02I—D~2oU5~LMoT3eUNR3OeNML3LOLTe3NR3ROD4LqNDuDR.OeqOeuqROu—K~LqAeUMDTKUDIDNLeDbOib
WO-[oo0VpTF—v—NoXOwe-x—u>UnwQE0V2aazXoNIx—W-Wk4o-x~1Do(lNUel=e~lUeilMteTlUelVeglOeNtodOl~elUlMaTleVoO/oNhOid)— -~g9-Z[ezS~[S_-[¥YB49]=)ET[]+[=0—~=M—~N—UMSN0~MOP0QTONBUON~ROOIeUN0NR0t~DOtOITQOOBtrOuoTR0wTUOEINQROOD0NO=BQ=SOQ0USv—~P0W— -oT-2bw
COREMB P T
MRCY11

12:16

HO3
PAGE 34

)
=

SEQ 0312
SEG 0033

1593
1594
189S

et s Pt s Pt Ps i s Pt Pt P

Pt Pt P

Bt Bt P

1649
1650
1651
Se

OE V=N
Tl
U’)OD—QU)UN*—D-‘—C—OOO
R
R
N O TR U
T [T
QQ.—G‘N.—.—»—[’UQ&-.—.—-»—-N

ST=0

o
w MY
o

ENTER T,
T

EN;ER T,

EN;ER NO.

DRIVE SER.
CART. SER.

ONE CYL SEEK TIMES

MIN = 6319
US
MAX = 6691 US
#%#FORWARD

=]
[

-0
o

8§
——

;7] »

30R(1052)

LBAN
& SR 2N 3

Or—

OE X V=N Nl )
VODANWNFO 44000
NN+
OLoro—nNonNO~no-m o

NNNNNO
ooLoadoag Al o ale e aleale aloads ol oo oo ol o] oooooo oo
oroo
00000V LDDODDDD [VelooloaTeedooTueleolns] WMDY NNNNNINNNNoO
OO o oo UNUIIUWN
L WN—-ODO NN
L W—-ODDDNNL W~ DWONNCN L WNN—0O
0D NN LWU—0OVoNNCN
LW

D Bt Gt Pt Pt Pt Pt P Pt e Dt Pt Bt Dt Pt Bt P Pt (s e Pt ot Pt Pt Bt Bt ot Pt Pt et Pt Pt Pt o

CZR6EMDO RKB11-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48
MACY11
10-JAN-78

TESTING DRIVE

NO.
NO.
O

12:16

103

FC=0

ST=
SM=1000

0,
S,
OR R

OF PRSSES

PAGE 35

TO DEFAULT ALL PARAMETERS
TYPE D<«CR>,

SM=1000 #*

(1-77777)

8
334

DIRECTION*»

0 OF 410 ABOVE SPEC'D MAX OF 8000 US

SEQ 3313
SEQ 0034

NN L W—~OD0m N
NV L WN— OO
DD
LW
£ WO
W NV

Dt Dt s s P o Pt ot P Pt Bt P

ot Pt Pt P P Pt Pt Pt s s Pt e Pt s Pt et Pt Bt Pt Pt Pt (ot o Pt s Pt

NNNNNNNNNNNNNN NN NN NNNN NN NN N NN NNNNNNNNYNY
£ £L L LWWWWWWWWW WIYNINTVNI NI NN N N e e et b pt ps e 0= 0= = O O O

CZREMDO RKbE11-06 SS VERIF |
10-JAN-78 11:48
CZR6MD.P11

MACY11l

30A(10S2)

10-JAN-78

JO3

12:16

PAGE 36

SEQ 0314
SEQ 003S

AVG = 6502 US
#¥REVERSE

DIRECTION#*»

MIN = 630 1U
MRX = 6682 US
AVG = 6498 US

0 OF 410 RBOVE

SPEC’D MRX OF 8000 us

ONE CYL SEEK TIMES :
#%#FORWARD DIRECTION#»
MIN = 6332 US
0 OF 410 RBOVE SPEC’D MRX OF 8000 us
MAX = 6695 US
AVG = 6506 US
*##REVERSE DIRECTION¥®x»
MIN = 6314 US
MAX = 6686 US
0 OF 410 RBOVE SPEC’'D MAX OF 8000
RYG = 6503 US
ONE CYL SEEK TIMES

%#%#FORWARD DIRECTION*x

MIN = 6319 US
MAX = 6691 US
RVG = 6504 US

0 OF 410 ABOVE SPEC’D MRX OF 8000 us

MIN = 6301 US
MAX = 6700 US
AVG = 6500 US

0 OF 410 ABOVE SPEC’D MRX OF 8000 us

¥#REVERSE

DIRECTIONX»

ONE CYL SEEK TIMES

##FORWARD DIRECTION#*

MIN = 6326 US
MAX = 6698 US
AVG = 6511 US

0 OF 410 ABOVE SPEC’D MAX OF 8000 us

MIN = 6317 US
MAX = 6698 US
AVG = 6507 US

0 OF 410 RBOVE SPEC’'D MRX OF 8000 us

¥#REVERSE DIRECTION##

e
END_PRSS J
IO TEST ALL DRIVES TYPE “R"<«CR>,

ELSE

<CR>

CZREMDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZReMD.P11
000000

MACY11l 30A(1052)

10-JAN-78

PART=0
;%%
;x%%

IF “PARTTM
IF “PART"

;%%

REV 004

.NLIST

MC,HMD,CND

ENRBL

ABS, AMA

§SWR=

167000

STARTING ADDRESSES

; %

200

204
220

$ 5 SN0

TN=1

.TITLE

Q 031¢€
SEQ 0036

#*»#

MES

"4BTTL
;%
;¥

PAGE 37

IS DEF INED = 0, PART | WILL BE RSSEMBLED. #¥%
IS DEF INED NOT = 0, PART 2 WILL BE RSSEMBLED.

2222222222222

000001

12:16

xxx

.LIST

167000

KO3

:1222X2X222222222X22X22222222222222X22 22

DEFAULT PARAMETERS FOR TESTS 1-21
SELECT PARAMETERS FOR TESTS
DUAL-ACCESS DATA TEST

000600 00 000 036 06 06 06

000 03600 0 300230

l-21

I R

CZR6MDO RKBl11/06 SS VERIF 1

; XCOPYRIGHT

(C)

1876,1977

;¥DIGITAL EQUIPMENT éonp

: XMAYNQRD, MRSS. 01754
'l>
lPROGRflH BY DAVE HOFFMAN

lTHIS PROGRAM WAS RSSEMBLED USING THE PDP-11 MRINDEC SYSMAC
lPflCKRGE (MRINDEC-11-DZQARC-C3), JAN 19, 1977

SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

g
! g
!
!
L
L
! ¥
!
g

15
14
13
12
11
10
9
8
7

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUT
REPORT DESCRIPTION ONLY, ON ERRORS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
APPLY RANDOM STALL BETWEEN OPERATIONS
DO EXPLICIT SEEKS IN TESTS 1-12

e
Ly
‘%
Ly
'y
'

5
g
3
2
1
0

INHIBIT WRITES IN TEST 21
INHIBIT WRITE CHECKS IN TEST 21
INHIBIT READS AND SOF TWARE COMPARES IN TEST 21
INHIBIT SOFTWARE COMPARES IN TEST 21
READ AFTER
A WRITE CHECK ERROR IN TEST 21
REPORT ALL SOF TWARE COMPARE ERRORS IN TESTS 17,21

1804

USE

ROrPSRT - 1 ERROR PER TRANSFER IN TESTS 17,21

{SBTTL

CONTROL SWITCH SETTINGS (PARRMETER CS)

SWITCH

tx
!

05
84

USE
DROP DRIVE IF 20(DEC) ERRORS EXCEEDED
TYPE BAD SECTOR FILES (BSF'S) ON FIRST PASS
INHIBIT

TIMING REPORTS

IN TESTS

13-16

Pt
Pt s P Pt P

001100

P
e P
e s Pt Bt Pt st Pt Pt P

Pt Pt Bt Pt Pt Pt

s Pt

Smmmmmmmmmmmmmmma)mmmm

$o0 9t Bt Pt

000011
ggoole
CoO001S
000200
177776

BRSIC DEFINITIONS

-lINITIR%IBSDRESS

8TACK=

x#%

1100

*%#

;;3005 FOR HORIZONTAL TAB

; *MISCELLANEOUS

LF=
CR=
CRLF=
PS=

; ; PROCESSOR STATUS WORD

177570
177570

;3 STRCK LIMIT REGISTER
; ; PROGRAM INTERRUPT REQUEST REGISTER
; s HARDWARE SWITCH REGISTER
; ; HARDWARE DISPLAY REGISTER

Re=
R3=

%2
%3

: #GENERAL

Rl=

R7?=

SP=
PC=

PURPOSE REGISTER DEFINITIONS

PR1=
PR2=
PR3=
PRY=
PRS=
PR6=
PR7=

s ; GENE RAL REGISTER

;;gsgsRflL gEGISTER

i
RAL
REGISTER
; s GENERAL REGISTER

: 'GENERAL REGISTER

%S
%6

GENERAL R c{sren
i
RAL
REGISTER

%6
%7

:'STACK POINTER
; PROGRAM COUNTER

. ¥PRIORITY

PRO=

; ;CODE FOR LINE FEED
;;COBE F8R SQRR}REE RETURN
; ;CODE
FOR
CRARRIAGE
RETURN-LINE FEED

7“1

Ri4=

RS=
Rb=

DEFINITION

12
S
00
177776

000010

POINTER

HT=

RO =

100000
040000
020000

STACK

; ;BASIC DEFINITION OF ERROR CALL
: !BASIC DEFINITION OF SCOPE CALL

000000

000340

THE

EMT,ERROR
TOT,SCOPE

DSWR=
DDISP=

000000
000040
000100

"EQUIV
.EQUIV

127774
17?2772
177570
177570

000007

SEQ D316
SEQ 0037

: 'GENERAL REGISTER

LEVEL

DEFINITIONS

s s

PRIORITY LEVEL O

40
100
140
200
240
300
340

!'PRIORITY
:PRIORITY
::PRIORITY
; ;PRIORITY
P IPRIORITY
: 'PRIORITY
:iPRIORITY

- ¥"SWITCH REGISTER”

SWITCH DEFINITIONS

&4415=
SWil=
SWio=
SWOS=
SuWog=
SuWg7=
SWOb=
SWOS=
SWo4=
SWO3=

00000

400
2000
1000
400
200
100
20
10

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

1I
2
3
Y4
S
b
7

LO3

30R(10S2)
10-JAN-78
PAGE 38
1 3:16
CONTROL SWITCH SETTINGS
(PRRAMETER CS)

.SBTTL

@®m
[oa
eedeefaoloalealeoloo]so]
ww
WWww W wwMnrnyrfunrfn L L e e e e e e
] o] & [ ]
O NN LW
ODWVm NN
£ Wh— Owo NN LWL —-OW

1807

MACY1l

[

CZR6MDO RK611-06 SS VERIF 1
CZR6EMD.P11
10-JRN-78 11:48

CZR6MDO RKE11-06 SS VERIF |
CZReMD.P11
10-JAN-78 11:48

SEQ 3317
SEQ 0038

.EQUIV

SWO9, SK9
SWO8, SW8

g: ug

O-nwLnoeNoD

]
ol ot ol el e

e e e o

Lol

(BITOO TO BITIS)

e o o

OTOOODooODm

lal

TIONS

e e

TBITVE C
TRTVEC

oLxXL£rLo

.
C “CPU” TRRA P VECTOR RDDRESSES
4
;; TIME OUT AND OTHER ERROR:

BPTVEC=
IOTVEC
PWRVEC = 24
EMTVEC= 30
TRAPVEC=34
TKVEC=

000e40

0000000000
O—NWILNoONDOY

g Ot Dt
Dbt D) Dl Dt

— = =~

erfeelocralonloeloclanloales
Lot VI8 o

0=t b

4444
L9444

TSR

POCOOOOOLEOODOD 4444444444444
CCCCCCCCCCOOODO000O0O0O
N Ittt—D

[ Ll L Lo

D>
(O 1O M
D D000 (D 00 0O 0O M)

®16oB86"TM""
40000

U $= b

000004
000010
000014
000014
000014

[YIVITVIITY VYN TV PTUTTY IV 0t 0t D 0t Dl Dot S o B Dt Dl D Ot 0 bt P »

Pt o Pt B
s P

000002
000001

0m
m p.:] W
1F)] po) D
<
<<D
mmuw
m
[@]
OO

100000
040000
020060
010000

=TS o [ Y 11W ENCNDOO-NW
L un—
AN N RRRININRTRTRTNIRIRTETR]
non

e]
J0

s Pt Pt

PRAGE

SWO1,SWl
SWO00, SWO

Bt Pt Bt Bt et Pt Bt Pt Pt
D e Pt Bt Pt Pn Pt Pt Pt Pt Bt Gt Dt B

SWie=
SWOl=
SW00=

12:16

SWOS, SWS

D DO DD D DD D DD DDD D
P be e he Be b b e 3= () O OO o Q
@ NN L W—O
Do N(T3 £

30R(10S 2)
10-JAN- 78
BRSIC DEFINITIONS

2482 2d

et Pt P

e it Pt Bt Pt ot Pt Pt Pt Bt ot Bt Pt Pt Pt s

000004
000J02
000001

MACY1l

PIRGVEC=240

.SBTTL

;;5$§ES¥$D AND ILLEGAL IN3)RUCTIONS

;P TRACE TRAP

, s BRERKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (I0T)
; ; POMER FAIL

#%SCOPE#%#

; EMULATOR TRAP (EMT) #*ERROR3#
:;"TRAP”

TRAP

;3 TTY KEYBORRD VECTOR
;;TTY PRINTER VECTOR
: :s PROGRAM INTERRUPT REQUEST VECTOR

MEMOR: MANAGEMEN?Y' DEFINITIONS

CZR6EMDO RKB11-/06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

1919
igs?

iggg

000250

{gsg

MACY11

NOJ3

30A(10S2)
10-JAN-78
12:16
PAGE 40
MEMORY MANAGEMENT DEFINITIONS
;#KT11

VECTOR

MMVEC=

2S0

;#KT11

STATUS

ADDRESS

1926

177572

SRO=

177572

1928
{ggg

177576
172516

SRe=
SR3=

177576
172516

1927

1772524

SRl=

iggé

1933
1934
1935
1936
1937
1938
1939

172300
172302
172304
172306
172310
172312
172314

ig:?

172316

SEQ 0318
SEQ 0039

ADDRESSES

177574

; #KERNEL

"ITM

PAGE

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDRY=
KIPDRS=
KIPDRb=

172300
172302
172304
172306
172310
172312
172314

; #KERNEL

“I"

KIPARO=

172340

DESCRIPTOR

REGISTERS

KIPDR?= 172316

{g:g

PAGE

RDDRESS

REGISTERS

1944

172340

1946
1947
1948
1949
1950
iggé

172344
172346
172350
172382
172354
172356

KIPAR2= 172344
KIPAR3= 172346
KIPARY= 172350
KIPARS= 172352
KIPARb= 172354
KIPAR?= 172356

1953
1954
1955
1956

170200
170202
172100
177740

MAPL0OO=170200
MAPHOO0=170202
MEMCSR=172100
LOERAD=177740

s MEMORY CSR REG START ADRS
:11/70 MEM LO ERROR ADRS REG

177744

MEMSYS=177744

;11770 MEM SYSTEM REG

000000

=0
;#ALL UNUSED LOCATIONS FROM
4 - 776 CONTAIN A *.+2,HALT"

1945

172342

1957

KIPARL= 172342

1777492

1958

iggg
1961
1962

1963
iggg

HIERAD=177742
.SBTTL

000174
000176

000000
000000

000200

888%25

1971
1972
1973
1974

000166

000000
000204
000137
000220

000204

;11,70 MEM HI ERROR ADRS REG

TRAP CATCHER

: ¥SEQUENCE 10 CATCH ILLEGAL TRAPS AND INTERRUPTS
lLOCQTIOng CONTRINS 0O TO CATCH IMPROPERLY LOADED VECTORS

000174

1966
1967
1968
{ggg

o1ese2

012574

DISPREG: .WORD
O
SWREG:
.WORD
O
.SBTTL
STARTING QDDRESS(ES)
JM
Tse
d8DFSTRT

; s SOFTWARE DISPLAY REGISTER
;s SOFTWARE SWITCH REGISTER

HZ:

sLINE FREQ.

WORD
. =204
JMP
.=e20

JWPSTART

;3 JUMP TO STARTING ADDRESS OF PROGRAM
FLARG -

0 = 60 HZ

CZR6EMDO RKB11-/06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48
197S
1976
1877
iggg

000220
007224
000226

000137
000700
001100

1980

1382

000230

1984

000046

1986
1987

000052

1985
1988
}ggg

ARCT1i YOOKS

;3 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

140000
000230

.WORD
140000
.=8SVPC

;;2)SET LOC.S2 TO 140000
i3 RESTORE PC

000052

.SBTTL

=1000
APT PARAMETER BLOCK

00 I 060 I 0030 00 0636 06 06 6 0000 00 06 30 30 06 600306 36 30 30 3006 6 3606 30 36 36 06 0 30 00 00 00 36 00 6 00 3 26 0

QET LOCARTIONS 24 AND 44 AS REQUIRED FOR APT
000024
000044

001000
000024

000200
000044
001000
001000

33300606 00 3300 36 3000 36 06 0636 06 06 36 06 06 0 06 0630 00 30 696 30 3 3600 3630 6 363 336 36 300 36 300 3 30 44 0 000 0 3006 630 36 3 36 2

.8X=.

.=e4

900

; s SAVE _CURRENT LOCATION

; ;SET POMER FRIL TO POINT TO START OF PROGRAM

; ;FOR APT START UP
; sPOINT TO APT INDIRECT ADDRESS PNTR.
SRPTHDR ,,POINT TO APT HERDER BLOCK
$X
;RESET LOCATION COUNTER

; !i!&**iil{i*llii*i*iill*lli!*llli!*!lii;il&!&*i!ll!*!!*il*illi;

SETUP APT PRRAMETER BLOCK RS DEFINED IN THE APT-POP11 DIAGNOSTIC
: INTERFACE SPEC.
001000

$APTHD:

200S
2006
2007
2008

001000
001002
001004
001006

000000
001320
001320
001546

SHIBTS:
SMBADR:
$TSTM:
$PASTM:

201G
2011

001012

000030
120210

WORD
AVECT1=120210

2013

SENDRD

$ & 306

2000

20l2

d#DASTRT
700
1100

025534

2001
gggg

2009

SEQ@ 0319
SEQ 0040

; SAVE PC

001000

1993

2004

PAGE 41

$SVPC=

1992

1996
1997
1998
1999

JMP
.WORD
.WORD

looks REQUIRED BY ACT1I

000046

1391

1994
1995

..LOW:
..HIGH:
.SBTTL

BO4

12:16

< 33U 000 0606063036 30 3606 460606 36 36 0606 36 3606 30 6 36 0 0 6 0 000 00

1981

1983

012556

MACY1l 30A(10S2)
10-JAN-78
STRRTING RDDRESS(ES)

001010

001546

1774940

000377

SUNITM:

.WORD
.WORD
.WORD
.WORD

.WORD

ABASE=177440
ADEVM=000377

O
SMAIL
1320
1546

1546

;; TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
,,RDDRESS OF APT MAILBOX (BITS 0-15)
i s RUN TIM OF LONGEST TEST

;s RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
:ADDITIONAL RUN TIME (SECS) OF A PRASS FOR EACH ADDITIONAL UNIT

SETEND-SthL/a; ;LENGTH _MAILBOX-ETABLE (WORDS)
iRKVEC=210, RKPRI=5

i RKBAS_ADRS

:SET DEVICES 0-7 IN MAP

CZR6EMDO RKG11-06 SS VERIF

CZREMD. P11

10-JAN-78

11:48

MACY1l

30A(1052)

COMMON TRG

ng;

.SBTTL

5918
ggig

;
:#USED

éD-JQN-?B

001100
000

$CMTAG:

.=1100
JoR

2024
2025

001103
081104

000
000000

$ERF_G:
§ICI
T:

.BYTE
.WORD

2033

001122

000000

.WORD

5855 881182

888

S055 881112
001118 000000
B9900a
2028
030 opoiile
907
2034
2832

00l1i24
881158

2038

001134
88{{32

000888

2041
2042
2043
2044
2045
2046
2047
2048
2049
2058
gggé

001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160

177570
177570
177860
177562
177564
177566

2053

001162

001172
001174
001176

SLPERR. THORD
sER$TLE
-WOR
StRHAx. BYIE

09
1

1Eigonrn}zg
CONTAING 3KOPE
?8 AL RETURN
§5n3§sFOR-ERRORS
DETECTED
i CONTAING HAX| CRRORS-PER TEST

$B0ADR:

' 'CONTAINS RDDRESS OF °'BAD’ DATA

$GDDAT:
$BDDAT:

.WORD
.WORD

000

$AUTOB:

.BYTE

$INTAG:

.Eg;g

O
O

: s CONTAINS THE TEST NUMBER

: :CONTRINS ERROR FLAG
: :CONTAINS SUBTEST ITERATION COUNT

O
O

: 'CONTARINS
;;conrnxng

; ;AUTOMATIC MODE INDICATOR

DSWR
DDISP

’GOOD’ DATA
'ang' DATA

: P INTERRUPT MODE INDICATOR

002
0ie
006
000000

SWR:
-MORD
DISPLAY: .WORD
§TKS:
177560
§TKB:
177562
§TPS:
177E54
$TPB:
177566
SNULL:
.BYTE
§FILLS:
.BYTE
SFILLC:
.BYTE
$TPFLG: .BYTE
SREGAD: .WORD

O
@
[2
O
O

. s ADDRESS OF SWITCH REGISTER
;;ngonsgg OF gxsanv REGISTER
PITTY KBD
STARTUS
11TTY KBD BUFFER
PITTY PRINTER STATUS REG. ADDRESS
*'TTY_PRINTER BUFFER REG. ADDRESS
: 'CONTAINS NULL CHARACTER FOR FILLS
P CONTARINS ® OF FILLER CHARACTERS REQUIRED
: 'INSERT FILL CHRRS. AFTER A “LINE FEED"
: I“TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES)
”53?531"? Tugo?oaggsgagg?gso

000000

$REGO:

.WORD

:Econmng ((gnscaonm

SREG3:

.WORD

::¢ NTQ§N§ (<§55238)+5)

000000
880 0o
0000

2062 001204 880808
001206
001510
001212
001214
001216
001220
001222

:;START OF COMMON TAGS

$TSTNM: .BYT

000000
00000

2286 001193 800 00

2063
2064
2065
2066
2067
2068
2069

SEQ 9328

FATHIS TABLE
CONTAING VARIOUS COMMON STORAGE LOCATIONS & iex¥¥¥
IN THE PROGRAM.

ooi{oo

2057
2058
2059

PAGE 42

COMMON TAGS

2020
2021

gggg

co4

12:16

000000
000000
000000
000000
000000
000000
000000

SREGY:
SREG :
SREGh:

.WORD
.WORD
.WORD

REG1I: .WOR

$REG12:
SREGI3:
SREGI4:
$REGIS:
$REG16:
$REG1?:
SREG20:

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

O
O
O

: :CONTRINS
: :CONTA ng
: *CONTR

:Econrnfng ((3553%8)+52)

O
O
O
O
O
O
O

: ;CONTAINS
: 'CONTAINS
P 'CONTAINS
: CONTARINS
: 'CONTRINS
: 'CONTRINS
: :CONTRINS

(($REGAD)+10)
(¢
8)+1a)
((
)+14)

((SREGRD)+24)
((gns
)+26)
((SREGARD)+30)
((SREGRD)+32)
( (SREGRD)+34)
((SREGRD)+36)
( (SREGAD)+40)

041

CZR6MDO RKB11-06 SS VERIF 1|
10-JAN-78 11:48
CZR6MD.P11

2070
2071
2072
2073
2074
207S

oL B

001256
001260
00l26e
001264
001266
001270
001272
001274
0012?8
00.i30
00%302

2036
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
Sifl?

001310
001314
001315
001316

c2la4
el1es

;.conrnxns ( ($REGAD) +46)

SREGSH: .WORD

:§CONTRIN2 ((iggcno)+su)

feddl: 8 o
el
SREG3S: i
.WORD O

SEOIAN | dReaniics
e
; CONTAINS (Ha
((gaecno)+7a)

SREG36:

.WORD

§TMP1:

.WORD

; ;CONTAINS ((SREGAD) +42)
:CONTAINS ( (SREGARD)+44)

;,conrnxns ( (SREGRD) +74)

: USER DEFINED

”CSEE"ég?x&éS"“‘“D“"”

177607
Q77
gis
000012

000377

PAGE 43

O
O

SiMe.: WORD

fipans

M TR
i}ggég’
SHORD 0
ESCAPE
:

} {USER DEFINED
:Eggin Rfi;é?%o F ITERATIONS
:3 céPE on ER OR ADDRESS

5;97><377><377>'ou : on fl

§85§§’

.ggglz

*48TTL

APT MAILBOX-ETABLE

$CRLF: 'nsc%f
15>
::953 3 TURN
<12
ASCIZ
SLF:
; !llll!llllllil!ll!llllllllll!liilllllllllllllil!lil!ll!lil!§l§§
,Elillllllllllllllll!lllllllll!!lillil*’l!!liil****l}!lllil!iiiil

001320
001320
00{325

VEN

000000

001330
001332
08133H
001336
001340
001340
001341
001342
001344
001346

$MAIL :

§MSGTY:

.WORD

srnrgh: .fiogo

ipEE © CWOR
SDEVCT: .WORD

iR g

2110
2111l
8115
2113
2114
2115
2116
2117
2118
2119
2120
2lel
elee
2la3

DO4Y

12:16

.WORD
.WORD

SREG23: .WORD

001%;8

2083
2084
208S
2086
2087
2088
2089
2090
2091
2092
2033

30A(10S2)
10-JAN-78
COMMON TAGS

SREG21:
SREG22:

001224
001226
001230
001232
001234
001236
DU

2079

MACY1l

AUNIT
AMSGAD
AMS

;;I1/0 UNIT NUMBER
DRESS
:}MESS
!
!MESSAGE
LENGTH
{1 PT
ENVIRONMENT TABLE
: ENVIRONMENT

npsgs ,,oevxce
::p52 COUNT
ADEVCT

$SWREG:
SUSWR;
§CPUOP:

ASWREG
AUSWR
ACPUOP

.WORD
[WORD
.WORD

;:MESSRGE TYPE CODE

.,FnTnL ERROR NUMBER

RENV

.BYTE

;1 APT_MAILBOX

S?“T?h

SUNIT:
.WORD
WORD
SFISGAD:
§MSGLG:
.WORD
SETABLE :
.BYTE
SENV:

SENVM:

000000

AMSGTY

AENVM

;;ENVIRONMENT nooE BITS

;;APT SWITCH REGISTER
:IUSER _SW éT
::CPU TYP
ONS

Bt7s 15-11% CPU TYPE
11/04=
/08202, 11/20 03, 11/40=04, 1145=05

BIT 10=REAL TIME' CLOCK

‘¥

BIT

117708& éé 8

BIT

9=FLOATING POINT PROCESSOR

B=MEMORY MANAGEMENT

SEQ 032!l
SEQ 0042

cznsnoo RK611/06 SS VERIF |
CZRBMD.P11
10-JAN-78 11:48

2126

2127

2128

0013S0

001351

000

2129
2130
2131

2132 001352 000000
2133
2139 001354
000

2135
2136
2137
2138
2139
2140
2141
2142
2143
2144

001355
001356
001360
001361
001362
001364
001365
001366
001370
001372

2147
2148

001400

2145
2146

001374
001376

000
000000
000

006

000000
000

000

000000
120210
000000
177440
000377

MACY11 30A(1052)
10-JAN-78
ARPT MAILBOX-ETABLE

$MAMS1:

.BYTE

SMTYP1: .BYTE

sTk%

inaonx: .WORD
snnnsa: .BYTE

SMTYP2:
$§MADR2:
$MAMS3:
SMTYP3:
$MADR3:
$MAMSH:
SMTYPY:
$MADRY:
SVECT1:
SVECT2:
3BASE:
§DEVM:

SETEND:
CMEXIT

.BYTE
.WORD
.BYT

.BYT

.WORD
.BYTE

.BYTE

.WORD
.WORD
.WORD
.WORD
.WORD

EO4

12:16

AMAMS1

PAGE 44

SEQ 0322
SEQ 0043

;;HIGH noonsss M.S.

AMTYP1 . :MEM.

BLK#1

BYTE

htn TYPE 900
avfs
-- (MIGH BYTE)
NSEC cone:oox
300 NSEC BIPOLAR=002
500 NSEC nos 003

AMAGR1 ;;HIGH nogne
MEM. LAS nooh -a 8lBYTES, THIS WORD AND LOW OF “TYPETM ABOVE
AMAMS2 ;;HIGH RDDRESS,M.S. BYTE'
AMTYP2
AMADRZ
AMAMS3

AMTYP3
AMADR3
AMAMSH

AMTYPY

AMADRY
AVECT1
AVECT2
ABASE
RADEVM

;:MEM.TYPE,BLKN2
;:MEM.LAST’ noonsss BLK#2
; ;HIGH ADDRESS,M.S.BYTE
;i MEM. TYPE, aLKh
;;MEM.LAST ADDRESS,BLK#3
;:HIGH RDDRESS,M.S.BYTE
,,nsn TYPE, Kbq
BL
;:MEM.LAST ADDRESS,BLK#4
;;:INTERRUPY VECTORNI,BUS PRIORITYSI
;:INTERRUPY VECTOR#2BUS PRIORITY#2

'BASE ADDRESS OF EQUIPMENT UNDER TEST
,,osvrcs MAP

2204

30A(1052)_
10-JAN-78
ERROR POINTER TABLE
.SBTTL

FOH4

12:16

PRGE 45

ERROR POINTER TRBLE

; #THIS TRBLE

CONTRINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

"xTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
:#LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

i %NOTE] :

IF SITEMB IS O THE ONLY PERTINENT DATA_IS (SERRPC)
; ;POINTS 70 THE ERROR MESSAGE
,,POINTS 70 THE DATA HEADER

:iPOINTS TO THE DRTA FORMAT

—

EM
OH
o

3
8

EACh ITEM IN THE TRBLE CONTRINS4 POINTERS EXPLAINED AS FOLLOWS:

;POINTS TO THE DRTAR

SERRTB:

001400

L 8

arwe

: ¥NOTE2:

-s

nnn RPNV
IVIVIVY YRR
RNV
VIV
VIV VR VY n
nnn n P Dt Bt Bt s Bt Bt s Pt Pt s Pt Pt Bt Dot Bt Pt Bt Bt Bt Pt Bms Be e Pt ot e Bt B Pt Pt Pt Bt s et Bt Pt e Pt Pt Pt Pt s s Pt ot B i Bt Pt —
jalele] O D WO
DO L0
DD WD D 0D 000 D D @ NNNNNNNNNNO
OO
wnr- OLVDNCNLWN—ODDD
NN LW COOONONLWNN—OOOMNC
N LWN—ODONCNLWNN—0O

oo mwma'a*mmmmmmmmmm:‘:)

CZR6EMDO RKE11-06 SS VERIF 1
CZR6MD.P1 1
10-JAN-78 11:48

MACY11l

0S6361

éERROR 1

;UNIBUS PARRITY ERROR

ERROR 2

; NON-EXISTANT MEMORY

ERROR 3

:NON-EXISTANT DRIVE

;:ERROR 4

;UNIT FIELD ERROR

ERROR S

:SUBSYSTEM TIMEOUT

06100S

062504
062620
0S6400
06100S
062504
062620

001426

0S6416
06100S
062504
062620

001430
001432
001434
001436

0SE43Y
06100S
062504
062620

001440
001442
001444
001446

056453
061005
062504
062650

001450
001452
001454
001456

0Se472
061005
062504
062704

001460
001462
001464

0sesli
061005
0e2s04

éflb

;D TO C PARITY ERROR

éfl?

:DRIVE DETECTED PARITY ERROR

SEQ 0323
SEQ 0044

062704

DFO3

001470

0S6530
06100S
062504
062650

£M10

0000
0000

056537

—r—

30AR(1052)
10-JAN-78
ERROR POINTER TRBLE

001466

a5655e
06100S
062504
062650

2210

. ERROR 10

GO4

12:16

PAGE 46

;AC LOW

; SPEED LOSS

062650

0S6564
061005
062504
062620
056574
06100S
062504
062650
0Se614
061005
062504
062650
[

LANTANIAV
AV A VI VT4 g 0T V] A V1o V)
AV AN AV AV IaUT oV aWTa ¥ aV]gV]gt]
mmp...p_._._.._,..._.—
= OO
NN L WM

MACY11l

0000
0000

CZREMDO RKE11-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD .Pl1

0S6630

: ILLEGAL FUNCTION

; PROGRAMMING ERROR

s NON-EXISTANT FUNCTION

;DRIVE TYPE ERROR

; FORMAT ERROR

062650
;WRITE LOCK ERROR

056640
06100S
062504
062650
056655
061005
062504
062650

; DRIVE UNSRFE

SEQ Q324
SEG 00M4S

CZREMDO RKE11-06 SS VERIF

CZR&MD.P11
2261

2e62

001600

10-JAN-78 11:48

0S6670

MACY11l 30A(1052)

10-JAN-78

ERROR POINTER TARBLE
. ERROR 21

tM21

2263
264
226S
2266
2267

001602
001604
001606

061005
062509
062650

DH10
D710
DFO2

2269
270
271

001610

081512
001614
0016le

056701

gMa2

2274

ooxsag

056714

gMe3

2277
2278
2279

001626

062650

DF02

801538

056731

EMaYy

001640

056745

EMas

2268

2272
2273

2275
276

280

281
2282
2283
2284

2285

2286

801&2
001624

001632
001634
001636

61005
062504
062650

061005
062504

061005
062504
062650

.ERROR 22

BHISS
T1
OF02
-ERROR 23

DHI00
DT100
. ERROR 24

DHI00
DT100
DFO2
. ERROR 25

12:16

PAGE 47

:SEEK INCOMPLETE

:CYLINDER OVERFLOW

: ILLEGAL CYLINDER

:DRIVE OFF TRACK

;CGRIVE TIMING ERROR

2287
2288
2289
2290
2291

0016M2
0016M4
001646

061005
062509
062650

DH100
DT100
DFO02

2032

2293

001650

£M26

2294

001652

0SE76M4

001654

062504

07100

001660

056776

EM27

:CONTROLLER TIMEOUT

2304

001670

.ERROR 30

061005
062504
062760

£M30

: OPERATION INCOMPLETE

001672
001674
001676

057013

2310

001700

057025

EM31

gggg

2297

2298

2299
2300
sggé

2303
2305
2306
2307
2308
2309

2311
2312
ggig
231s

2316

001656

001662
001664
001666

061005

082650

061005
062504
062650

.ERROR 26

DH100

:DATA LATE

DF02

.ERROR 27

OH100
0T100
OF02

DH100
DT100
OFOS
:ERROR 31

001702
001704
001706

061005
062504
062760

DH100
DT100
DFOS

001710

057041

gM32

.ERROR 32

:HERDER VRC ERROR

:DATA CHECK ERROR

SEGQ 0325

SEQ 0046

CZRBEMDO RKE11-/06 SS VERIF 1
CZReMD. Pll
10-JAN-78 11:48

MACY11l

30A(1052)
10-JAN-78
ERROR POINTER TRBLE

104

12:16

PAGE 48

061005
062504
063014

001726

057056
061005
062504
063050

001730
001732
001734
001736

057072
06100S
062504
062744

001740
001742
00174y
001746

057112
06100S
062504
062620

0017S0

057144
000000
000000
000000

001756
001760
001762
001764
001766

000000

001770
001772
001774
001776

057234
06100S
062504
062650

057173

0S7300
061005
062504
062650
057330
061005
062504
062650
057360
061005
062504

;WRITE CHECK ERROR

;DATA MISCOMPARE(S)

;NO DRIVE RESPONSE-UFE & NXD

;DRIVE ERROR WILL NOT CLERR

:DRIVE STATUS CHANCE WILL NOT CLEAR

;ATTENTION BUT NO STATUS CHRANGE OR FARULT

;ATTENTION BUT DRIVE NOT AVAILABLE

;ATTENTION WHEN NOT EXPECTED

;ERROR WHILE GATHERING DRIVE STARTUS

SEQ 0326
SEQ 0047

30A(10S2)
10-JAN-78
ERROR POINTER TARBLE

002026

063114

DF12

002030
002032
002034
002036

057560
061005
062504
063114

EMe3

002040
00c042
002044
002046

0S7616
061005
062504
063114

002050
00205¢e
002054
002056

O57644
06100S
062504
063114

002060

002066

0S7666
06100S
062504
063114

002070
002072
002074
002076

057705
06100S
062504
063114

002100

0S7744
061005
062504
063114

. ERROR 4y

DH100
07100
DF12

4?7

PAGE 49

SEQ@ 0327
SEQ 0048

; CLEAR CONTROLLER DID NOT CLERR ERROR

IN ATTENTION SUMMARY REG

;UNSOLICITED ATTENTION

; UNEXPECTED DARTA TYPE ERROR

;ATTENTION DID NOT RESET WITH CLERR

; SUBSYSTEM CLEARR DID NOT CLERR DRIVE RTTENTION

OOOM:
Mo

157426
051005
062509
0631494

DOOM-:
9T IM

O
]

057013
061005
062504
063174

057411
06100S
062504
063114

Ja4

12:16

;NC ATTENTION

oODOM::
MNITIM

oMY
LfrLrrsfrcrt
N $e s Pt s Pt Pt s e
owoNTMNL
W

2373

MACY11l

;MULTIPLE DRIVE SELECT

; ABREVIATED HCE ERROR

; OPERATION INCOMPLETE ERROR

CZR6EMDC RK611-06 SS VERIF 1
10-JAN-78 11:48
CZReMD.P11

CZRGMDO RKE11-06 S5 VERIF 1
CZREMD.P11
10-JAN-78 11:48
2429

2430
2431
2432
2433
o434

2435

2436

2437
2438
5333

2441

2442

2443
2444
2445

MACY11l 30A(1052)
10-JAN-78
ERROR POINTER TABLE
-ERROR S5

PAGE S0

002140

057025

061005
062504
063144

DH100
DT100
DF13

002150

057443

061005
062504
06322'

EMSE

DH100
DT100
OF18

:2 TIMEOUT ERROR

72160

0S7443

£MS6

:ERROR 57

:2ND LEVEL IN SUBSYSTEM TIMEOUT

002142
002144
002146

002152
002154
002156

EM31

KO4

12:16

. ERROR 56

sABREVIATED HVRC ERROR

002162
002164
002166

061005
062504
063270

DH100
DT100
OF16

2448

002170

002172
002174
002176

057462

000000
000000
000000

tMe0

0
0
0

24E4

_02200

002202
002204
002206

057514

000000
000000
000000

tMel

002210

057544
061005
062504
063334

EMe2

DH100
DT100
OF17

; CYLINDER MISCOMPARE

002220

000000

.ERROR 63

;DATA ERROR WORDS

000000
062576
063444

0
DT602
DF25

002230

057560

tMe3

002240

057616

EMBY

002250

057644

£MeS

2446

2447

2449
2460
2451
2452
2453
2455
2456
2457
2458
2459

2460

2461
2462
S:ga

2465

2466

2467
2468
g:gg
2471

2472

2473
2474
g:;g

2477

2478

2479
2480
s:gé
2483

2484

002212
002214
002216

002222
002224
002226

002232
002234
002236

002242
002244
002246

061005
062504
062650

.ERROR 60

. ERROR 61

0
0
0

.ERROR 62

:ERROR B4

DH100
DT100
OF02

. ERROR 65

DH100
DT100
OF02
:ERROR 66

sERROR IN RECAL FOR RECOVERY

s ABORT MESSAGE

:CLEAR CONTROLLER DID NOT CLEAR ERROR

:NO ATTENTION IN ATTENTION SUMMARY REG

;UNSOLICITED ATTENTION

SEQ 0328
SEQ 0049

062650

002270
goz2272
002274
002276

0S770S
061005
0eeS04
062650

002300
002302
002304
002306

057744
06100S
062504
062650

002310
002312
002314
002316

060011
06100S
062504
062650

002320

060044

002326

062650

002330
8 2332

002336

060077
061005
062504
062650

002340

060117

002346

062650

VNN PPV
N VNn
(VA VaTTaRialbalUalValUalUafiy
Ty] n
PUNON b e st s e s e pe [
=0 0NV
£ WI—-

382365 84883

2523

BRs3ze 880638

002354
002356

000cco
000000

002360
002362
002364

060161
061717
062570

LO4Y

12:16

PAGE S1

o0
00O

002266

(= Q0D
oo

057666

D00

002260

ERROR POIN

—

06100S
86 S04
52650

-JAN-78
TARBLE

30A(1052)

[

082555

MACY1l

O om-.

CZR6MDO RKBE11-/06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48

; UNEXPECTED DATA TYPE ERROR

DF02
70

;ATTENTION DID NOT RESET WITH CLERR

; SUBSYSTEM CLERR DID NOT CLEARR RTT

;DATA LATE WHEN UNLORDING HEARDER

; CONTROLLER ERROR DURING DRIVER SERVICE

;ODRIVE DETECTED PARITY ERROR

; UNDEF INED ERROR

; MARKING SECTOR BAD MESSAGE

:BAD DATA VERIFICATION WITH RERD

SEQ 0329
SEQ 00SO

MACY1l

30A(10S2)

10-JAN-78

ERROR POINTER TRBLE

002366

063370

DF21

002370

060243

Em77

002376

063430

DF23

002400
002402

060243
000000
062570
063430

EM77

002410
00e412
002414
002416

0e0264
000000
062570
063430

002420
goa422
002424
002426

060307
061701
062570
063440

002430

060365

888375 8£2898

. ERROR 100

8T601
. ERROR 101

0
DT601
DF23

- ERROR 102

gnxoo

MO4

12:16

PAGE 5e

; RETRY SUCCESFUL MESSAGE

; ANOTHER RETRY SUCCESSFUL MESSAGE

; RETRY UNSUCCESSFUL MESSAGE

DT601
OF23

. ERROR 103

EM101

DHE042
DT601
DFe4
104

;NO VALID HERDERS IN TRACK JUST RERD

;BSE ERROR ON SECTOR NOT LISTED RS BRD

002436
105

002440
002442
002444
002446

106

p0024sg

; TIMED-OUT ON READ HERDER

; TIMED-OUT ON SEEK

002456
002460

060501

002466

062650

002470
00eu472
002474
002476

060532
061005
062504
063460

107

110

;ORIVE SIEZED BY OTHER PORT

:"DATA MISCMPR WHILE BRI SET"

SEQG 0330
SEQ 00S!

OO0

CZR6MDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

CZRBEMDO RK611~
CZReMD P11

)

MACY11l

10-JAN-78
ERROR POINTER TABLE

30R(10Se)

. ERROR

EM107

002500

111

NO4

12:16

PRGE 53

SEQ 0331
SEQ 00Se

; "NO NEM WHEN EXPECTED”

000000

DONCNLEW-0O

060630
06100S
062504
062620

002526

060663
061005
062504
062650

002530
002532
002534
002536

060704
0b2126
062544
063450

002540
002542
002544
002546

000000

002550
00e2sse
002554
062556

057072
061263
062614
063360

002560
002566

000000
000000
062504
063400

002570
00es7e
002574
002576

060726
06100S
062504
062620

002600
002602
002604
002606

060754
06100S
062504
063504

002610

060771

s Pt Pt Pt Pt (ot

DN
[eplealoaleaoalsalsol

cell

2620

112

113

114

115

;" INTRPT WHEN CNTRLR NOT READY*"

;"NO ATT'N ON SEEK"

;ORIVE’S CYLINDER INCORRECT

; TYPE

ADRS

OF DATA MISCOMPARE(S)

0
063074
116

117

120

121

122

;DATA MISCOMPARRE

(11-70)

; PART OF DATA MISCOMPARE

;RBORT- CAN’T RERD BSF

sKT11

FRILURE

;MEM PARITY ERROR

CZR6MDO RK611/06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P1

MACY11l

30R(1052)
10-JAN-78
ERROR POINTER TRBLE

002626

PARGE S4

DH100
DT100

06100S
062504
063530
0se4l6
000000
000000
000000

BOS

12:16

DF31

ERROR

£M3
0
0
0

123

;sNED WHEN SIZING UNDER APT DRIVE TARBLE

SEQ 0332
SEQ@ 00S3

CZREMDO RKB11-06 SS VERIF 1
B 11:48
CZR6MD.P11
10-J
2668
2669

2671

567

674
267S

MACY1l

COS

0011228 anhENTEM
IR b1 1 PREE 18%ers

30A(10

.SBTTL

*595P8 %8054

BIT ASSIGNMENTS IN THE RKBl1 REGISTERS
;RKCS1

;

’ggfg :

! DCPAR! CFMT ! CTO

COT

R/W i

! SPARE!

:RDY !
i

RZ/W!'

R/W!

: DLT ! WCE

° HPE

;

)

! NEM

! NED

SNU
:

READ

! R/UW

! UFE

NJU

! DCY

! DCB

' DC7 ' DC6

! DCS

' DCY

' DC3

! DC2

! DCL

! DCO

' TR2

¢ TAL

! TAO

READ ONLY

:RKDA (DESIRED TRACK AND_SECTOR)

SNU
:

UN
:

;18

RMUW'!

! MDS

11
ONLY

! PGE

VLD

!'!R/W

R/MU!

! BRL?7 : BA16 !

R/W!

! RO

nynre

R/W!

; RKCS@

R/K!

;

NN NNNNNNNNN
TUNY = =2 3 o s oo Pt Pt e
- OO NCTN LW

! R/W

REARD ONLY

' SRY

' SA3

! SA2

! SAl

! SAO

READ ONLY

]

CZR6MDO RKE11-06 SS VERIF 1
CZREMD.PL1
10-JAN-78 11:48

3758

2724

575

MACY11l

10-JAN-78

30A(1052)

DOS

12:16

PRGE 56

SEG 0334
SEQ 00SS

BIT RSSIGNMENTS IN THE RKb1l REGISTERS
;RKEB

BUFFEg)
(DRTR

!DB1S ! DBI4 ! OB13 ! DBl2 ! DBI1 ! DB1O ! DBY

READ/WRITE

! DBB

'a?fi??‘E?RE'T'E?RE‘T'EERS ;:5?55'7‘5?55'7'§?§I'7‘5?fi6'7
.7

P UN

' OF6

! OFS

;RKWC

ks D/
unhgF3

! OF2

! OF1

! OF0

C(WORD COUNT)

JWCIS ! WCIY ! WC13 ! ugxa ' WC1l ! WCIO ! WCS
:
READ/WRE TE

! uWcs

DWC7 ! WCE

! WCS

! WCH

! WC3

! WC2

! WCl

! Wco

:BA1S ! BAIY ! BA13 ! BAl2 ! Enu ' BA1O ! BA9
:
RERD/WRIT

! BRB

;

: E

;RKBR

(BUS ADDRESS)

:BAR? ! BAB
:

! BAS

READ/WRITE

! BAY ! BA3
READ/WRITE

! BA2

! BAl

i
!

!
i

! BAO !
iaLWYso!

CZREMDO RKB11-/06 SS VERIF 1
CZRBMD.P11
10-JAN-78 11:48

2773

EOQS

MACY1l 30A(1052)
10-JAN-78_
12:16
PAGE 57
BIT QSSIGNHENTS IN THE RKb11 REGISTERS

; RKER (ERROR REGISTER)
14

: DCK ! UNS

! OPI

¢ DTE

2782

! BSE ' ECH

! DTYPE! FMTE ! DRPAR! ILF

2786

;RKDS
; 1S

(DRIVE STARTUS)
14
13

2789
2790

;SVAL
;

DSC

2795
2796

;ORDY !
;

802

;RD

2804

;

2776

2803

2809

2810

SEQ_033S
SEQ 00Ss

;

! WRT

! IDRE ! COE

READ ONLY

PIP

SPON ! WRL
READ ONLY

! SKI

! ILC

!
!

! DROT ! SPLS ! RCLO ! OFSET!
READ ONLY

! ECCW ! PCD

:GATE ! GATE i

IMIND ¢ MSP

! WLE

READ ONLY

RERD ONLY

' DMD

! PAT

! PCA

! MS3

READ/WRITE

! MEWD ! MERD ! MCLK !

! MS2

! RERD/WRITE

CZREMDO RKE11-/06 SS VERIF 1

CZREMD.P11
2812

3313
2815
Sgig

2818

10-JAN-78 11:48

MARCY11 30R(1052)

FOS

10-JAN-78

12:16

PAGE 58

SEQ 0336

BIT RSSIGNMENTS IN THE RKG611 REGISTERS
s RKECC/PAT

; 15

SUN
:

’

READ ONLY

2824

sggg

2828

PUN

! EPAID! EPAS ! EPRB !

iEPA7 ! EPAL ! EFWS ! EPAY ! EPA3 ! EPAR2 ' EPAL ! EPAD !

2831

2821

gggg

2825

ggég

ggsg

SEQ 0057

READ ONLY

s RKECC/POS

’

! EPOl2! EPOLL! EPO10! EPO9 ! EPOB !
READ ONLY

Sggg

2834

'EPO7 ! EPOG ' EPOS ' EPOM ! EPO3 ! EPO2 ! EPOL ! EPOO !

gggg

2837

Sggg

2840

ERD

ONLY

sLINE A MESSAGE 00

;15

53:3

: PAR ! DSC

! PIP

2845

’

2848

;DRIVE STATUS INFORMATION

533%

gg:g

e e e e e e a e e e

:DRDY !

e o

! DRA

! SPON ! WRLK ! OFFON! FMT

S
e

3
e

! DRTP !
0

= e e

! DRIVE SELECT CODE

CZR6MDO RKE11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48
2850

GOS

MACY11 30A(10S2)
10-JAN-78_
12:16
PAGE 59
BIT ASSIGNMENTS IN THE RKb11 REGISTERS
; LINE B MESSAGE 00

gggé

;

egga

: PAR ! UNS

85S

2856

! DROT ! DCLO ! WLE

! SKI

IVDA !

2857

2859
2860

2858
2861

emmee e e e

; FLT * ACLO !

ee e e s~

;LINE R MESSAGE 01l

gggg

;

2864

P PAR ! UNLDG! RTZ

2866
2867

2865

;

! HDS

SEQ 0337
SEQG 00S8

! LDG

! REV

! FWD

—e——ee—eoasaa—

! SPEED! CART !
!

PRES !

D Dt
it

2870
2871

;D00R ! BRUSH! HEADS! TRK
!
;:LTCH ! HOME ! HOME ’ FOLON'

2873
2874

ittt
ettt

gg;g

;

HDS

12
!

! PERR ! ILF

cc—e o

Sggg

2872

e eee

!
!

DRIVE SELECT COOE !
!

2875

;LINE B MESSAGE Ol

2878

! PAR ! SERVO! LIMIT! SEEK ! PLO

2880
2881

e883

s esecescscccsecscececcc
o e e eeeceecccccsmeossas s~ oo ——————-

2879

;

ON SK!NO MO !

2882

2884

‘HEAD 'WR GTE'WR CUR! SEC

2886

;

288s

BRAKE!

'FAULTIAND NO'AND NO! ERR
!XISTON!WR GTE!

ERR

! DIBIT! INDEX! MULTI!
!

ERR !
2

!
!

ERR !'HD SEL!
1

H
!

!
!

H
!

CZRBMDO RKE11-06 SS VERIF 1
CZRBMD.P11
10-JAN-78 11:48

MACY1l

HOS

10-JAN-78
12:16
PAGE 60
BIT RSSI GNMENTS IN THE RK611 REGISTERS

30A(10S2)

;LINE A MESSAGE
:°15
14

10
13

! PAR '

:
2911

: PAR !

*
12

;LINE B MESSAGE

P PAR !

]

1
g

Q0
8

. DRIVE SERIAL NUMBER

DRIVE SERIAL NUMBER

CYLINDER ADDRESS

sLINE A MESSAGE

UV VLTIV VIV
[V 1V V1Y)
DO D DD DD OD OO0
PO
) DU 0t bt s Doss Dt s s e
WOV NN LW

! CYLINDER DIFF/OFFSET VALUE

: PAR ' ALIGN'
e

SEQ 0338
SEQ 0059

SECTOR COUNT

'
12

NU
S

DRIVE SELECT CODE !
10

DECODED HEAD

! SECTOR!

ORE

COUNT

000010

-0 L0

RKO& CONTROLLER REGISTER DEFINITION

000000
000002

; CONTROL AND STQTUS REGISTER

:WORD COUNT REGIS
:BUS_ ADDRESS REGISTER

:DESIRED TRACK SECTOR REGISTE R

;CONTROL AND STATUS REGISTER 2

CZR6EMDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZREMD.P11
000ale
000014

I0S

10-JAN-78
12:16
PAGE b1
KO& CONTROLLER REGISTER DEFINITION

38R(1052)

RKDS=
RKER=

;ERROR_REGISTER
'ATTENTION SUMMARY AND OFFSET REGISTER
iDESIRED CYLINDER REGISTER
:DESIRED CYLINDER REGISTER
:DATA_BUFFER
{MAINTENANCE REGISTER
1
:MAINTENANCE REGISTER 2
:MRINTENANCE REGISTER 3
:ECC POSITION INFORMATION

16
20

30
32
RKECPT= 32

WRTCHK=

NNNW—
N
=

SRTSPL-

DRIVE COMMANDS

; SELECT DRIVE

: PACK _ACKNOWLEDGE
:DRIVE CLEAR
: UNLORD
:START SPINDLE
RECRLIBRRTE
FFSET
K

RERD DARTA
{WRITE DATA
:READ _HERDER
:WRITE HERDER AND DATA
SWRITE CHECK

FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER
SIMULATE A SPECIFIC DESIRED OPERRTION

Wr—

RELEAS=
ROSTAT=
RDALHD=
CONCLR=
SUBCLR=
INTR=

o~ NOL£L
o~ L0

SELDRV=
PACK=
CLEAR=
UNLORD=

;ECC POSITION INFORMATION
;ECC PATTERN INFORMATION
;ECC PRTTERN INFORMATION

WNUNNNMNEE—=—-O000

.SBTTL

SEQ 0339
SEQ 00&0

;DRIVE STATUS REGISTER

c0
a4
26
34
36
30

WRNNN
=~ -~ 0000

; RELERSE DRIVE

iGET _ALL STATUS FROM DRIVE

{READ ALL
HEADERS
:CONTROLLER CLEAR (BIT 15 OF CS1)

:SUBSYSTEM CLEAR (BIT 5 OF CS2)
:GENERATE INTERRUPT TO CPU

DRIVER ISSUED SERVICE COMMANDS

1 BITS

;GO _BIT

CONTROLLER D
:CONTROLLER T
;

RIVE RESP

Gl
C
wn

; INTERRUPT ENRBLE
CONTROLLER REQDY1

6
i?
BYPE

UT WAITING #on

A
== PoONNO
-0

DOOOODOm

CFMT=

Pt 0t et Pt Bt Dt bt

010000

—
—
n

004000

GO=
IE=
RDY=
BAlb=
BR17=
CoT=
CT0=

CONTROL AND STATUS REGISTER

—

.SBTTL

;DRIVE SELECT

:DORIVE CLEAR

o
Q
P
m
v
wn

DR.SEL= 001
DR.CLR= 00S

28]

294y
2945

MACY11

{CONTROLLER D

(0=RK06,

ORMAT

1=RK07)

(0=22 SECTOR,

1=20 SECTOR)

; ILLEGARL FUNCTION CODF

ILLEGAL FUNCTION CODE

SEEK INCOMPLETE
:ILLEGAL DRIVE FUNCTION

,ILLEGRL DRIVE
FUNCTION
; ORIVE DETECTED DRIVE BUS PARITY ERROR
,FOR T_ERROR
DRIVE TYPE ERROR
;ECC HARD
-

g
D=t
Pt D=l Dt D
D

rrzZ<<2

—

STATUS REGISTER BIT DEFINITION

HCRC=
HVRC=

A
A A
A
A
A A
= = 1 b b = O O O N
U LW
-0 O
NLw—-0

.SBTTL

DTYE=
ECH=
BSE=

ROR

COE=
IDAE=
WLE=
DTE=
OPl=
UNS=
OCK=

ILF=

(0=22 SECTOR,

O
c

Dd
D) Bl ef e B
e D) Sl D) D

ILC=
®ILF=

NXF=

(0=RKOb&, 1=RK0?7)

NON EXISTENT MEMORY
iNON-EXISTENT DRIVE
:UNIBUS PARITY ERROR
iWRITE CHECK ERROR
:DATA LATE ERROR

.SBTTL

&1z

YPE

ORMAT

BUS ADDRESS INCREMENT I
iCLEAR CONTROLLER AND AL
:CLERR CONTROLLER AND AL
: INPUT _RERDY

m
p:]
po]
o
po]

DLT=

A A A~
— b= b b = O D N O W £ WW
nLwh—-0

NED=
UPE=
WCE=

e 5t ol 0=

CLR=
SCLR=
IR=
OR=
UFE=
MDS=

—

[a)>4
N

—

o
<0
-1im
mm

Om
X

e
s
o
P

onnLsw
—

IIm

£V-0

ODmD
bttt

BQD SECTCR ERROR

DRIVE TIMING ER
:OPERATION (SEQRCH) INCOMPLETE
;DRIVE UNSAFE
:DATA CHECK

1=20 SECTOR)

'Yl

Wn)

——t— mm —~—4<—~ O»r

:CONTROLLER DR IVE
:CONTROLLER DR IVE

[eofenlonfoslosTeolonfoslosTaoloaloofaolue]ss
RN]

OOmm
nox>»
X
=S N
n
nn

; BUS ADDRESS B I7 1
:BUS_ADDRESS B IT 1

DRVMSK=
DESL=
RLS=

FMTE=

100000

TIONS ARE USED FOR RDDRESS
RKCS1

CONTRUL AND STARTUS REGISTER 2 BITS

Dl Dl D

000002
0cooo4

;DRIVE BUS PQRITY ERROR DETECTED BY CONTROLLER

:DRIVE INTERRUP
:CONTROLLER ERROR
iCONTROLLER CLERR

0000 0D 00 (D 113 (D 00 0D 00 00 10 00 1D 00 [0 (DD (D

000001

SEQ 0061

.SBTTL

NEM=

100000

SEG_034Q

Dt P D

800007
000010
000010
000020

000001
000002
000004
000020

OoOOmD
Pttt

——<4
T
L

SPAR=
DI=
CERR=
CCLR=
=~

100000

Jas

30A(10S2)
0 JAN-78
12:16
PRGE 62
TATUS REGISTER 1 BITS
CONTROL AN

el 0 D

020000

MARC'11

Sl Bl D

CZR5MDO RK611-06 SS VERIF 1
CZREMD.PI1
10-JAN-78 11:48

CZR6MDO RKB11-06 SS VERIF 1
CZREMD.PI11
10-JAN-78 11:48

3056
3057

3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
38;?

KOS

MACY1l 30R(10S2)
10-JAN-78
12:16__PAGE 63
STATUS REGISTER BIT DEFINTTIUN

000001

DRA=

000004
000010
000020
000020
000040
000100
000200
000200
000400
004000
020000
040000
100000

QFST=
BIT2
ACLO=
BIT3
SPDLSS= BITH
DCLO=
BITM
DROT=
BITS
Vv=
BIT6
DRY=
BIT?
CRDY=
BIT?
DDT=
BIT8
WRL=
BITil
PIP=
BIT13
DSC=
BITIY
SVAL=
BITIS

gg;g

.SBTTL

3170

DRIVE AVAILABLE (CONTROLLER IS SET IF
HIS BIT IS RESET

DRIVE OFFSET
;AC_LOW
:SPEED LOSS
:DC_LOW
:DRIVE OFF TRACK
:VOLUME VALID
:DRIVE READY
:DRIVE READY
:DRIVE TYPE (0=RKO&, 1=RK0?7)
IWRITE LOCK
POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE
{STATUS VALID

MARINTENANCE REGISTER 1 BIT DEFINITION

gg;g

000017

MESMSK= 17

; MESSRGE MARSK

3076

000020

PAT=

BITHY

;FORCE EVEN PRRITY ON DRIVE BUS MESSRGE LINES

3078

000100

MSP=

BITHE

3077

000040

DMD=

BITS

3079
3080
3081

000200
000400
001000

MIND=
MCLK=
MERD=

3083
3084
3085
3086
gggg

004000
010000
020000
040000
100000

PCA=
BITIil
PCD=
BITle
ECCW=_
BITI3
WRTGAT= BITIY
ROGATE= BITIS

3082

002000

gggg

BIT?
BIT8
BIT9

BITI1O

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A
BITS

000040

S.DRA=

3093
3094

000200
000400

S.DRY=
BIT?7
S.TYPE= BIT8

309S
3096
3097
3098
3099
gig?

000100

001000
002000
004000
010000
020000
040000

gigg
3104

3108
3106
3107
3108
3109
3110
3111

S.vv=

000100
000200
000400
001000
002000
004000
010000

BITH

S.FORM= BITS
S.0FF= BITI0
S.WRL= BITIil
S.SPIN= BITl2
S.PIP= BITI13
S.DSC= BITIH
.SBTTL

000040

iMAINTENANCE SECTOR PULSE

:MAINTENANCE INDEX
:MAINTENANCE CLOCK
MRINTENRNCE ENCODED READ DRATA

MEWD=

3081

3082

:DIAGNOSTICMODE

MARINTENACNE ENCODED WRITE DATA

PRECOHPENSQTION ADVANCE
: PRECOMPENSATION DELAY
{ECC_WORD IS BEING RERD OR WRITTEN
iWRITE GATE
iREAD GATE
;DRIVE AVAILIABLE

:VOLUME VAL ID

,DRIVE RERDY
;ORIVE TYPE

:DRIVE _FORMAT
IOFFSET
iWRITE LOCK
iSPINDLE ON
:POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE

DEFINITION OF DRIVE STRTUS BYTE 00 MESSAGE B

S.ICvL= BITS

S.ACLO= BIT®
S.FLT= BIT?7
S.ILF= BIT8
S.PAR= BIT9
S.S5KI= BITI0
S.uLeE= BITil
S.SPLS= BITle

; ILLEGRL CYLINDER ADDRESS

:AC LOW
iDRIVE FAULT
;ILLEGAL FUNCTION
SDRIVE DETECTED DRIVE BUS PARITY ERROR
:SEEK _INCOMPLETE
SWRITE LOCK ERROR
;SPEED LOSS

SEQ Q341
SEQ 0062

CZR6MDO RKE11-06 SS VERIF 1
CZR6MU.PIL1
10-JAN-78 11:48

LOS

MACY11 30A(1052)
10-JAN-78
12:16
PAGE &4
DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B

3lle

010000

S.0CLO= BITI2

;DC _LOW

g{ig

040000

S.UNS=

BITIH

DRIVE UNSRFE

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 01 MESSRGE R

3113

020000

gii%
3118

000020

S.DROT= BITI3

S.XDOK= BITH

3119
3120
3121
3le2e
31e3
3le4
)
3126

000040
00100
00200
000400
001000
002000
004000
010000

S.HDHM= BITS
S.BRHM= BITb
S.DOOR= BIT?
S.CART= BIT8
S.SPOK= BITS
S.FWD= BITIO
S.REv= BITl1l
S.LORD= BITl2

gigg

040000

S.UNLD= BITIH4

3127

320000

gig?
3132

3133
3134
3135

3136
3137
3138
3139
3140
3141
g{:g

000020

000040
000100
000200

000400
001000
002000
004000
010000
020000
040000

gi:g

3146
3147
3148

3149
3150
3151
2152
3153

000007
100000
000003

017760
017760
077770
000?60
007000

:DRIVE OFF TRACK

; TRANSDUCER OK

i HEADS _HOME
: BRUSHES HOME
:DOOR INTERLOCKED
CQRTRQGE INTERLOCK
;SPEED OK
: FORWARD
: REVERSE
;HERDS LOADING
IRETURN TO ZERO
:HEADS UNLORDING

S.RTZ=

BITI3

.SBTTL

DEFINITION OF DRIVE STRTUS BYTE 01 MESSAGE B

S.SECT= BITY

S.WCLK= BITS
S.WGAT= BITH6
S.HOFL= BIT?

S.MHD=
S.XERR=
S.0IB=
S.PLO=
S.NMOv=
S.LIMD=
S.BRKE=

BIT8
BITS
BITIO
BITLl
BITl2
BITI3
BITI1H

.SBTTL

COMMON MASKS

M.DRV=
M.PAR=
M.ID=_

7
BITI1S
3

M.CDIF= 17760
M.CARDD= 17760
M.SER= 77770
M.SECT= 760
M.HERD= 7000

; SECTOR ERROR

{WRITE CLOCK AND NO_WRITE GATE
IWRITE GRTE AND NO TRANSISTIONS
SHERD FAULT

;MULTIPLE HERD SELECT
; INDEX ERRO
;DIBIT ERRO
; PLO ERROR
; SEEK_AND NO
M
sLIMIT DETECT ON SEEK
; SERVO-BRAKE

; DRIVE CODE
i PARITY
;BYTE ID

:CYLINDER DIFFERENCE/OFFSET
:CYL INDER ADDRESS
:DRIVE SERIQL NUMBER
:SECTOR COUN
:HEAD DECODE

SEQ _g342
SEQ 0063

MOS

30A(10S2)
10-JAN-78
12:16
PRRAMETER BLOCK ALLOCRTION

uu“uuuun"uuunuuuuuuuuuu*u

DRIVE NO.
SECTOR
OFFSET

(o 16 BIT s

LWORD coun7 (2'S COMPLEME
PROGRAM DRIV
srq7us INFORMQTION
COMMAND AND STATUS REGISTER
1
COMMAND AND
anus REGISTER a
WORD COUNT
REGISTER
BUS ooa;ss REGISTER
PESIRED
TRACK AND SECTOR
DESIRED CYLINDER
ATTENTION SUMMARY AND DRIVE OFFSET
ERR?R nsc STER
§TAafUs REGISTER
MESSAGE LINE A STATUS BYTE 0O
MESSAG
LiNE g STATUS BYTE QO
LINE A STATUS BYTE Ol
MESSAGE
MESSAGE LINE B STATUS BYTE Ol
MESSAGE LINE A STATUS BYTE 10
MESSAGE LINE B STATUS BYTE 10
MESSAGE
LINE A STATUS BYTE 11
MESSAGE LINE B STATUS BYTE 11
ECC Posxrxou INFORMATION

i ECC PRTTERN INFORMATION

i
i
i

0
2
g
B

i 10

P12
i 14
i 16
i 20
i 22
i 24
i 26
i 30
T
i 34
i 36
i 40
iy
i 4y
i 4g
i 50
i §2
i 6y
i Sp
i 60

i B2

l!lll!l!!!lllllllfi!lllll!!l!**!lil!llllllililllli

PARAMETERS PRSSED TO THE DRIVER

THE FOLLOWING DEFINITIONS ARE USED TO PRSS PARAMETERS

; DRIVE NUMBER

; COMMAND
:CYLINDER ADDRESS
:SECTOR
; TRACK

; OFFSET

£MoO

TO THE RKO6/RKO7 DRIVER

o
n
u

VUV UVOVOOVOVVUVVOY

ORE

'
i
i
i
i
i
i
i
i
i
i
i
i
i
i
i
i
i
i
i

=t YNV
LU O

W
WE WO
W
WG WO W WMWY WG
N WEBE ORI
W

!
COMMAND
*
i CYLINDER RDDRESS
I TRACK
'
'9915‘56 ronnnr DRV TYPE'

oo £re BANINTINTAL
VI VT el
W= ~NUTHW —
- NNW - U1
— NN W
NN
— NN

B W

PRRAMETER BLOCK ALLOCATION

WO WO

SEQ g343
SEQ 0064

.SBTTL

000000
000001

PRGE 65

0K M B0 ¢ MK K 0 I R I M0 K K M B C I i i i N K K

MACYL11l

030 2 0

NN NNNNNNNININO
OO

OCLONOCN L WN—~OWVONCNLWNL—-0ODONCNIZWNL—-OVOoNNoWN mewgggflg

WWWWWWWWWWWWwWwWWWWWWW W WWLWW
W WWW WWW WW WWWWWWWWW

CZR6MDO RKB11-06 SS VERIF 1
CZRB6MD.P11
10-JAN-78 11:48

{RKCS] BITS 8-15
:BUS ADDIESS (BITS
:BUS QDDRESS (BITS
WORD C
Eg
co
PROGRQM DRIV
TAT

PROGRAM DEVICE STATUS REGISTER DEFINITION
10

;DRIVE IN
USE

T2
}3

DRIVE POSITIONED FOR DARTR TRANSFER
{UNEXPECTED ATTENTION

DRVDSC=

:DRIVE POSITIONING

:DRIVE HHS HARD ERROR

:DRIVE STATUS CHANGE DID NOT CLEFR

3210
3211

10-JAN-78 11:48

MARCY11

30AR(10S2)

10-JAN-78

NOS

12:16

PAGE bb

SEQ Q344

PROGRAM DEVICE STATUS REGISTER DEFINITION

000100

CMDTO=

3212
3el3
3214

000200
000400
001000

W.WCK= BIT?
NOCHK= BIT8
PBSVAL= BIT9

NRITE FOR WRITE WRITE CHECK
iNO CHECK, DO NOT SET INTERRUPT ENABLE
'PARAMETER STATUS WORDS
VAL ID

3217
3218
3219
3ce0
3221
gssg

002000
004000
010000
020000
040000
100000

DRPDRV= BIT10
NODSC= BITIl
DRVSZD= BITi2
E.UNLD= BITI13
@.INIT= BITI1Y
DTBARII= BITIS

:DROP DRIVE FROM TEST SEQUENCE
IATTENTION SET BUT_DCS RND FAULT RESET
iDRIVE SEIZED BY OTHER PORTY
:DRIVE UNLOADED DUE TO ERRQ
;PARAMETER BLOCK ENQUEUED IN INITIRTION QUEUE
:INHIBIT BUS ADDRESS INCREMENT

3218
3216

BITE

SEQ 0085

NO TERMINRTION TO COMMAND FOR AT
LEARST 1 SECOND

i
;

(SET WHEN ERROR TERHINQTION OR
__RERD STATUS COMMAND)

ggsg

.SBTTL

PARAMETERS PASSED FROM DRIVER TO PROGRAM

3226
gssg

;
;

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

3ee9

000016

3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243

000026
000030
000032
000034
000036
000040
000042
000044
000046
0000s0
0000S2

P.DTS=
P.DCYL=
P.ASOF=
P.ER=
P.0S=
P.AO0=
P.BO0=
P.AOLl=
P.B0l=
P.R10=
P.B10=

3245
3246

000056
000060

P.Bll=
Sb
P.EPOS= 60

3230
3231
3232

000020
000022
000024

3244

000asY4

gg:g

000062

gggg
3251

002630

3252
3253
3254
3255
3256
3257

002631
002632
002634
002635
002636
002637

3261
3262
3263
3264
3265

002646
002650
002652
002654
002656

3258
3259
3260

002640
002642
002644

000

000
000000
000
000
000
000000
000000
000000

000000
000000
000000
000000
000000

P.CSl=

P.CS2=
P.WCR=
P.BAR=

P.All=

COMMAND AND STATUS REGISTER

20
22
24

26
30
32
34
36
40
42
44
46
50
52

;DESIRED TRACK SECTOR REGISTER
;DESIRED CYLINDER
REGISTER
;ATTENTION SUMMARY/OFFSET REGISTER
;ERR
EGISTER
; STATUS REGISTER
;MESSAGE R STATUS BYTE 00
;MESSAGE B STATUS BYTE QO
;MESSAGE A STATUS BYTE Ol
; MESSAGE B STATUS BYTE 01
;MESSGGE R STATUS BYTE 10
; MESSAGE B STATUS BYTE 10

;MESSAGE A STATUS BYTE 11

;MESSRGE B_STATUS BYTE 11
;ECC POSITION INFORMATION

P.EPRT= 62

:ECC PRTTERN INFORMATION

.SBTTL

PARRAMETER BLOCK O FOR DRIVE

PRARMO:

.BYTE

.BYTE
.WORD
.BYTE
BYTE
BYTE
BYTE

O
O
O
O
O
O

WORD
WORD
WORD
.WORD
.WORD

O
O
O
O
O

WORD
WORD
WORD

COMHQND AND STATUS REGISTER 2
:WORD COUNT REGISTER
;BUS_RDDRESS REGISTEP

O
O
O

; ORIVE NUMBER

: COMMAND
:CYL INDER ADDRESS
;SECTOR _ADDRESS
: TRACK _ADDRESS
iOFFSET VALUE
;BUS ADDRESS (BITS 16 AND 17)

;BUS RDDRESS (BITS 0 - 15)
,NORD COUNT (2'S_COMPLEMENT)
; PROGRAM DRIVE STATUS INFORMATION

;COMMAND AND STATUS REGISTER 1
:COMMAND AND STATUS REGISTER 2
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
;DESIRED TRACK AND SECTOR REGISTER

(gl

CZREMD.PI1L

[ VT N

CZRBEMDO RKE11-/06 SS VERIF

CZRBEMDO RKB11-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48

BO6

MACY1l 30Q(1052)
10-JAN-78
12:16
PRGE &7
PARAMETER BLOCK O FOR DRIVE

SEQ Q345
SEG 0066

3266
3267
3268
3269
3270
3271
3272

002660
002662
002664
002698
0026
002672
002674

000000
000000
000000
880000
0000
000000
000000

.WORD
.WORD
.WORD
.WORD
L.WORD
.WORD
.WORD

O
O
O
O
O
O
O

;OESIRED CYLINDER REGISTER
;ATTENTION SUMMARY/OFFSET REGISTER
;ERROR REGISTER
; STRTUS REGISTER
;MESSAGE LINE R STATUS BYTE GO
;MESSAGE LINE B STRTUS BYTE QO
;MESSAGE LINE Q STATUS BYTE 0l

3274
32?5
3276
3277
3276

002700
002702
002704
002706
002710

000
00C000
000000
000000
000000

WORD
WORD
WORD
WORD
WORD

O
O
QO
O
O

;MESSAGE
LINE
;MESSAGE LINE
MESSAGE LINE
,HESSRGE LINE
;ECC POSITION

3273

gggg

002676

002712

000000

gggé
3283

3284
3285
3286
3287
3288
3289
S

3291
3292
3233
3294
3295
3¢9

3297
3298
3299
3300
3301
3302
3303
3304
3305
3206
3307
308
3309
3310

gg}é

002714

002715
002716
002720
002721
002722
002723
002724

002726
002730
002732
002734
002736
002740

002742
002744
002746
002750
002752
00274
002756
002760
002762
002764
002766
002770
002772
002774

002776

WORD

000

gog
000000

WORD

; MESS

PARAMETER BLOCK 1 FOR DRIVE

PARRMl:

.BYTE

000000
000000
000000
000000
00O
000000
00000
000000
000000
000000
00
000000
000000
00
000000
000000
000000
000000
000000
(000000

.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

000000

.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

LINE B STRTUS BYTE Ol

R STATUS BYTE
8 STATUS BYTE
A STATUS BYTE
B STRTUS BYTE
INFORMATION

10
10
11
i1

;ECC PATTERN INFORMATION

.SBTTL

cog0
000
0
000000

ggia

; ORIVE NUMBER

; COMMAND
; CYL INDER ADDRESS
:SECTOR ADDRESS
; TRACK_ADDRESS
:OFFSET VALUE
:BUS ADDRESS (RITS 16 AND 17,
:BUS RDORESS (BITS 0 - 15)

; WORD COUNT
(2°S_COMPLEMENT)
; PROGRAM DRIVE STATUS INFORMATION
; COMMAND AND STATUS REGISTER |
; COM
AND STATUS REGISTER 2
; WORD COUNT ngISTER
; BUS RDORESS
REGISTER
;DESIREB TRACK AND SECTOR REGISTER
; %SIR;
CYLINDER REGIS
;ATTENTION SUMMARY/OFFSET REGISTER
; ERROR _REGISTER
; STATUS REGISTER
; MESSAGE LINE A STATUS BYTE OO
;MESSAGE LINE B8 STATUS BYTE QO
;MESSAGE LINE A STATUS BYTE 0Ol
;MESSAGE LINE B STATUS BYTE Ol
;MESSAGE LINE A STATUS BYTE 10
;MESSAGE LINE B STATUS BYTE 10
;MESSAGE LINE A STATUS BYTE 11
i ESSAGE LINE B STATUS BYTE 11
;ECC POSITION INFORMATION

{ECC PATTERN INFORMATION

.SBTTL

TEMPORARY CONTROLLER REGISTER STORAGE

gg{g

003000

000000

T.CS1:

.WORD

TERES??RERSIORRGE FOR COMMAND AND STATUS

ggig

003002

000000

T.CS2:

.WORD

TEQES??RERS£ORRGE FOR COMMRAND AND STATUS

3319
3320
3321

003004
003006
003010

000000
000000
000000

T.WCR:
T.8A:
T.DR:

.WORD
.WORD
.WORD

O
O
O

: TEMPORARY STORAGE FOR WORD COUNT REGISTER
: TEMPORARY STORAGE FOR BUS ADDRESS REGISTER
: TEMPORARY STORAGE FOR DISK TRACK AND SECTOR

COb

ROL
Er AEE1ETeRPERORRGE
EriORaAy LORTROLC
O
O

T.MR3:

.WORD

T.POS:
T.PAT:
T.0B:

.WORD

.SBTTL

DRIVER PARAMERTERS

177440
000210
000240
040716
Q42164
041460
J00000

RKBRS:
RKVEC:
RKPRI:
A.NORM:
A.ABNL:

.WORD
.WORD
.WORD
ERRFRE
ERRHDL

000001
000902

E.CCLR=
E.NOAT=
E.URTT=

000040

E.SCLR=

000100

100000

E.ILLD=
E.OLT=
E.CERR=
E.0PAR=
E.CMTO=
E.MDS=

BITH
BIT8
BITS
BITiO
BITIY
BITIS

003054

000000

0.WAIT:

.WORD

0030S6
003060

000400
000400

W.MTIM:

.WORD

400

W.MILI:

.WORD

CONTROLLER

STATUS

THIS LOCRTION IS CLERRED WHEN EVERY COMMAND
IS INITIRTED.
IF
R CONTROLLER ERROR
SgggRS
HE FOLLOWING BIT QSSIGNMENT IS

CLERR CONTROLLER DID NOT CLERR ERROR

BITO
BITI
BIT2
BIT3
BITY4
BITS

€.UDAT=
E.CLAT=

ADDRESS OF NORMAL RETURN FROM DRIVER

RDDRESS OF ABNORMAL RETURN FROM DRIVER
; ADDRESS OF EONTROLLER ERROR RETURN
cwsmsmawswe

CONERR
.WORD

{ADDRESS OF R611 VECTOR
RKSII INTERRUPT PRIORITY

'NO ATTENTION IN ATTENTION SUMMARY REG
UNSO%éERTSD RTTENT ON (SEQUENTIRL ONLY)
DRTA T

; UNEX

ERROR

SATTENTION DID NOT RESET WITH CLERR
;SUBSYSTEM CLERR DID NOT CLERR DRIVE
RTTEET&R

IVER COMMAND
ILLEG
A LATE HHEN UNLORDING HERDER

CONTROB&; $ 2
ING DRIVER SERVICING
ECTED PARRITY

; ORIVE

iCONTROLLER COMMAND TIME OUT (QUEUED ONLY)
:MULTIPLE DRIVE SELECT

40O

; PARAMETER BLOCK OF THE DRIVE

IWAITING FOR COMMAND COMPLETION
:LOOP_COUNTER FOR MILISECOND SCQN OF DRIVE
16 MILISECOND TIME FOR PROGRAM

A.CONT:
E.CONT:

; ADDRESS OF RKB611 UNIBUS ADDRESS BLOCK

0030S2

177440
210
PRS

003036
003040
003042
003044

O
O
O

TEMPORRRY STORAGE FOR
: TEMPORARY STORQGE FOR MRINTENANCE RE
: TEMPORARY 2 E FOR ECC PO?*TION
: TEMPORARY STORAGE FOR
PA
N
: TEMPORARY STORAGE FOR DRTA BUFFER REGISTER

CPU

VALUE

DO00Co

.WORD
.WORD

FOR DR}V; STATUS R
FOR MAINTE

000000
800000

?TORQG
TORAGE

380008

TEMPORRRY STORAGE FOR ERROR REGISTER

OHoom

.WORD
WORD

o)
m

T.ER:
T.0S:

000000

m
P

003016

; TEMPORARY STORAGE FOR DRIVE CYLINDER

TEHPSRRPY E*ORQGE FOR ATTENTION SUMMARY

4
D
4
O

O
O

.WORD
.WORD

=
m

T.0C:
T.ASOF:

—

000000
000000

X
D

003012
003014

SEQSESHBOB?

39 A(1052)

@IV

10-JAN-78 11:48

MACY11

CZR6MD. Pll

CZRBMDO RKe11/06 SS VERIF

1
11

11,45
11
11

400

CZREMDO RKb11-06 SS VERIF |
10-JAN-78 11:48
CZREMD. P11
003062

MACY11

W.SEC:

000300

003101

009
002
000

000

oo4

010

.WORD

DOG

12:16

PAGE 69

SEQ 0347
SEQ 0068

300

ssconopgou?gncounr
FOR ALL COMMANDS

.WORD

HOR:€

'583"
. WOR

3000

30000
8

nooR
S IgE
F R Ren
gPINDLS
ngfiHEF
HERESRS
LEPT
#h RERB R3R READ

I.ISRL:
H.HERD:
W.TIME:

.BYTE
BYTE
BYTE

0
2,4,10
O

INTERR PT OR RELEQSED COMMAND ISSUED
'HEAD DECODES
onxvss BEING WATCH-DOG TIMED

.SBTTL

INTERRUPT MASKS

INTMSK

.BYTE

W.8SEC:
W.MIN:

88306 832608
883672 386600
003074
003075
003100

10-JAN-78
DRIVER PRRAMERTERS

30A(1052)

85 ? Tvg 8YELE DOWN

: INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK

INTERRUPT MASK TABLE
I1.DRV:

.BYT
BYT
BYTE
BYTE

1
2
4
10

FOR
FOR
FOR
FOR

DRIVE
DRIVE
DRIVE
DRIVE

O
1
2
3

! INTERRUPT MASK FOR DRIVE H

BYTE

200

! INTERRUPT MASK FOR DRIVE 7

40
100

PARAMETER BLOCK

,%NT RRUPT MASK FOR BRIVE g
! INTERRUPT MA3K FOR
DRIVE
6

TABLE

PARMO

002630

MASK
MARSK
MASK
MASK

BYTE
YT
T

oo3l1e

: INTERRUPT
! INTERRUPT
: INTERRUPT
! INTERRUPT

: ADDRESS OF PARAMETER BLOCK GIVEN WITH

‘DRIVE CALL.

MUST BE LORDED INTO PBLKT

TIME FOR WATCH-DOG TIMER

003114
003116
003117

.BYTE

.BYTE
BYTE

O
O

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

003133

003134
003135
003136
003137
003140
003141

IME FOR INSTRUCTION IN PARAMETER BLOCK

WORD
PROGRAM
SPECIFIC RESERVEb LOCATIONS

000000

XOVLQ :
XDPSVD:
DULACS:

DRNAFG:

REISSU:
WCEFLG:

Mt
.8Y7
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
BYTE

;FLRG TO INDIC. DEFLT OR PRRAM MODE

0
O
O
O
O
O

:XXDP_CHAIN MODE FLAG
'CURRENTLY RUNNING TESTS IF
= 1
iDATA ERROR COUNT
:OPERATION COMPLETE FLAG
DONE_SWITCH
;DRI
TYPE & FORMAT CONTROL

4
O
0
0
O

{ERROR LIMIT
; ERROR COUNT FOR CURRENT DRIVE

OPERRT ON CONTROL SWITCHES
;IF BYTE= , KWi11l-P CLOCK IS PRESENT
;IF BYTE=1,
DO TIMING TESTS

;FLARG =

O
O
O
g

;ORIV FORMAT
; ERROR COUNT

IN BIT 4 OF BYTE

‘FLAG = 1 ;FF XXB
%g
POSSIBLY OVERLRID
XXOP

FLAG=1 IF DUAL RCCESS
i=1 INDICRTES
DRIVE SIEZEO BY OTHER PORT
:DUAL-RCC FLAG

E-ISSUE COMMAND

:WRITE CHECK ERROR FLAG

CZR6MDO RK611-06 SS VERIF 1

CZREMD.P11
3434

3435
3436
g:gg
3439

10-JAN-78 11:48

003142

003143
003144
00314s
003146

3442

3448
3449
3450
3451
3452
3453

3454

003150
003152
003154
003156
003160
003162

000

DLTFLG:

000
000
000
000

WCDASW=BIT2
RCDASW=BIT3
OREQSW=BIEcEN

177546
172540
172542
172544
000100
000104

LKS:
PKS:
PKSB:
PKRB:
LCVEC:
PCVEC:

000114

003172
003174
003176
003200
003202
003204
003206

000000
000000
CO0000
000000
000000
000000
000000

3466
3467

003212
003214

000000
000000

BLNHIN .WORD

000000

3476

003224

0000

005232

000000

005246

000000

3477

005240

3479

005254

3481

005264

3478

3480
3482

005262
5266

O
O
O
O

SEQ 0069

;DATAR_LATE ERROR FLAG

: "NO-RETRY" FLAG
; UNIBUS MAP PRESENT IF = 1
SET g;TfiEEOéYFgSR??Ygggsgfls
HELP FILE OVERLAID INDICATOR
VERIFY HERDERS SHITCH

:WMRITE CHECK DATA SWITCH
iREAD _CHECK DATA SWITCH
;OFFSET REQUIRED SWITCH
177546
172540
172542
172544
100
104

;KWll-L
; KWl1-P
;KW11-P
; KW11-P
;KWll-L
;KWl1-P

CLOCK STRTUS REGISTER
CONTROL AND STATUS REGISTER
COUNT SET BUFFER REGISTER
COUNTER REGISTER
VECTOR STORAGE
VECTOR STORAGE

iCOUNT OF TIME SELOH MIN

; MEMORY PARITY TRAP _VECTOR

O
0
O
O
O
O
O

; COUNT OF FORWARD TIMES ABOVE MAX
; COUNT _OF REVERSE TIH%S RABOVE MAX
;LO BITS OF FORWARD TIME SUM
;HI BITS OF FORWARD TIME SUM
;LO BITS OF REVERSE TIME SUM
;HI EITS OF gsVEgaE TIME SUM
; SAVE
WORD FOR
PAR
CONSTANT

MINILl:
MINIH1:

.WORD
.WORD

O
O

;LO BITS OF H}N REQS'D TIME (FORWARG)
;HI BITS OF MIN
MEARS’D TIME (FORWARD)

MINIHZ:

.WORD

.WORD
.WORD

; SCRATCH WORD

S I

et e

;HI BITS OF MIN MERS’'D T.ME

(REVERSE)

:LO BITS OF MIN MERS'D TIME (REVERSE)

000000

PRVCMD: .WORD

0,0,0,0,0,0

PREVIOUS COMMAND STORRGE

000000

COMSTR:

.WORD

0,0,0,0,0,0

; CURRENT COMMAND STORAGE

PRMPLO:

.WORD

;PREV.

000

CRMPLO:

.WORD

; CURRENT U.B.

000000

LOWOCT:

.WORD

LON 16 BITS OF CONVERTED BINARY NUMBER

O
O

RECOVERY CODE NORD
;ERROR COMMAND

000000

00000C

000000

005270
00S272

000000
000102

3488
3489

(005504
00SS0e

(000000
000000

00S476

SEQ@ 0348

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

B
MINIL2:
000000

PAGE 70

ABVMX1:
ABVMX2:
SUMLOLl:
SUMHI1:
SUMLO2:
SUMHI2:
SAVPAR:
SAVWRD:

000000

3483
3484

3485

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

MEHVEC 114

e
gl o
3470 003222 000000
3471

12:16

VFHDSW=BIT1

000004
0000i0
000020

3458
3459
3460
3461
3462
3463
3464

003210

.BYTE

NORTRY: .BYTE
UBMPRS: .BYTE
MEMABT: .BYTE
HLPOVL: .BYTE

3457 003170 000000

3465

10-JAN-78

PROGRAM SPECIFIC RESERVED LOCATIONS

000002

3443
3444
g:zé
3447

MACY11l 30A(1052)

EOB

000000

PRMPHO:

CRMPHO:
BUFFO

.WORD
.WORD
BLKW

RECODE: .WORDC
ERRCOM: .WORD

O
tD6b

U.B.

MARP REG O
MAP REG O

; OUTPUT BUFFER 1

00se2S

;LIST OF

BYTE=0,

OOOOOé -

we
wmswe
s

0=RKO6,

DON'T

TEST DRIVE)

(IF=0

TEST NOT RUN)

NON 0=RKO0O?7

ITERATION COUNTS FOR DES

:MAXIMUM ALLOWABLE NUMBER OF ITER
tsTieT:

NN LWhe— o

:LIST OF DRIVE TYPES

(IF

NN LWh—0O

TO TEST

—

;:LIST OF DESIRED DRIVES

ORVLST

OTYLST

00ck2t

PQ“TIQL TRANSFER MEMORY START ADRS

< C<<CCT<
m mmmmmmm

.BYTE
.WORD
.BLKW

.BYTE

NO OF WORDS ACTURLLY XFERRED
:FINAL CYLINDER ADRS
FINRL TRACK RDRS
FINQL SECTOR ADRS
RCTUQL FINAL WC

FINSEC:
LASTWC:
PMA:

NEXT CYL SCRATCH WORD
‘OFFSET IN USE
TRRCK IN USE
TTY INTERRUPT INPUT WORD
PANY BIT SET IN LOW BYTE GIV ES AUTO-SELECTED DRIVE NO.
RNY BIT SET IN LOW BYTE IND ICATES A DRIVE WARS ON-LINE
INEW LOOK AT ONLINE DRIVES
RLL-PURPOSE SCRATCH HORD
DRTR PATTERN LIST WORD
STRRTING ADDRESS OF XXDP LORDER
I XXDP PHY ICRL SAVE ADDRESS
(+) OFFSET
VALUE
(-) OFFSET RLUE
SRVE INITIAL PRRAMS FOR XFER

O
o
) DDODDDOD 0

FINTRK:

.WORD

IN U SE

LI IT
!
;NEXT CYL SCRATCH WORD

o
P
<

005606

FINCYL:

DRIV E

o
D

005602

000000
000
oo
000000
000002

:CURRENT NG. OF UN I T STALLS TO APPLY
: CURRENT CYL INDE R N UMBER
;FIRST SECTOR L% Ml

Dre

. WORD
. WORD

SEQ 3349
SEQ 0070

;NO.

oy N,
Y
[

DONN LW

W
nnnininnnn

FS
LS

.WORD
.WORD
.WORD

00SSe4
005526

3511

3520

DRIVE:
STALLS:
CYLNDR:

Pt Pt Pt Pt Pt Pt P

3498

000000
800000

30A(1052)
10-JAN-78
12:16
PAGE 71
PROGRAM SPECIFIC RESERVED LOCATIONS

0000000

3496

3497

00SS10
00sS1e
005514
00Ss1
00552
00ss22

00000000
OCO000000

3490
3491
349¢
3493
3494
349S

MACY11

nNOO0O0OONOONOOO0O0ODODOOD000O0O0O

CZREMDO ?5611/06 SS VERIF 1
CZReMD.P
10-JAN-78 11:48

77726 (bCT

CZRBMDO RKB11-06 SS VERIF |
CZREMC.P11
10-JAN-78 11:48
3546
3547
3548
3549
3550
3551
3552

005626
005630
005632
(005634
005636
00Se40
(0Sed2

3556
3557
3558
3559
3560
3561
3See

005652
005654
005656
(005660
005662
005664
005666

3553
3554
3555

3563

3566

3567

3568
3569
3570
3571

3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584

005644
0CSe4e6
(005650

005670

005670
005672
005674
005676

005?00
005702
5704
005706
005710
005712
005714
005716
005720
005722
005724
005726
005730

gggs
3589
3530

359]

3532
35393
3594
3585
3596
3597

388
3599
3600
3601

000010
000200
000010
000010
000002
000002
000002

005732
005734

005736
(005740
005742
005744

005746
005750
005752
005754

.WORD
.WORD
JWORD
.WORD
CWORD
CWORD
.WORD

000400
000500
000002
000001
000001
000001
000001
000010
000010
000001

.WORD
.WORD
.WORD
CWORD
CWORD
"WORD
JWORD
JWORD
JWORD
CWORD

10
200
10
10
2
2
2

400
SO0
2
I
1
1
1
10
10
1

SEQ 0350
SEQ 0071

: TEST
:TEST
:TEST
STEST
:TEST
JTEST
:TEST

01
02
03
04
05
06
07

:TEST
'TEST
:TEST
‘TEST
STEST
:TEST
TEST

13
14
15
16
17
20
21

*TEST 10
STEST 11
PTEST 12

.LIST OF DEFAULT ITERATION COUNTS FOR ALL TESTS

000010
000200
000010
000010
000002
000002
000002
000400
000S00
000002
000001
000001
000001
000001
000010
000010
000001

000021

005732

GO6

MACY1l 30R(10S2)
10-JAN-78
12:16 PAGE 72
PROGRAM SPECIFIC RESERVED LOCATIONS

OFLTST:

.WORD
.WORD
.WORD
.WORD
_WORD
_WORD

"WORD
CWORD
.WORD

CWORD
"WORD

CWORD
SWORD
JWORD

JWORD
JWORD

CWORD

10
200
10
10

2
2
@
400
500
2
1
1
1
1
10
10
1

NMTSTS=<DFLTST-TSTLST> /2

s TEST
PTEST
:TEST
STEST

:TEST
'TEST
TEST
*TEST
ITEST
:TEST
PTEST
:TEST
STEST
'TEST
‘TEST
' TEST
:TEST

01
02
03
04
0S
06
07
10
11
12
13
1Y
15
1B
17
20
21

s TOTAL NO.

OF AUTOMATIC TESTS

. OPERATING PRRAMETER LIST

000000
000000
000001
000000
000002
000001

000000
000623
000000
000025

PRMLST:

FC:
LC:
1C:
FT:

WORD
WORD
"WORD
WORD

50:
S1:
S2:
§3:

JWORD
JWORD
WORD
.WORD

LT:
I7:

WORD
WORD

O
O
|
O

2
I

O
23
G
25

:FIRST CYLINDER
'LAST CYLINDER. 632 FOR RKOB,
:CYLINDER INCREMENT
'FIRST TRACK

'LAST TRACK
: TRACK INCREM

1456 FOR RKO7

*FIRST SECTOR IF 20(DEC) SECTOR FMT
'LAST SECTOR IF 20(DEC) SECTOR FMT
*FIRST SECTOR
22(DEC) SECTOR FMT
*LRST SECTOR IF 22(DEC) SECTOR IMT

CZR6MDO RK611-06 SS VERIF

CZR&EMG.PI11
3602

10-JAN-78 11:48

005756

000001

MACY1l

30A(1052)

IS:

005760
88§7g2

000000
888884

PT:
MA:

3606
3607
3608
gggg

005766
005770
005772
005774

000403
000000
000000
001000

We
cS
ST:
SM:

764

)

3611

3612

3613

005776

3616

006002

3614
3615

3617
3618

3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
gggé

0000O0
000000

006004
006006

000000
000002

006034
006036
006040

3636

3637
3638
3639
3640
3641
3642

3643

3644
3645
3646

3e47
3648
3649
3650
3651
3652
3653
3eS4
3655
3656
3657

006042

006042
006044
006046
006050
006054

006056
006062
006064
006066
006070
006072
006074
006076
006100

006102

006104
006106
006110
006112

PROFLT:

000001

.WORD

CWORD
- WOR
-WOR

_WORD
WORD
WORD
.WORD

SEQ 03S!

SEQ 0072

:SECTOR INCREMENT

O
RWBUF

'DATA PATTERN SELECT WORD
‘Lo %TS OF PHYS. MEM. ADDR. (BITS 0-15)

403
O
O
1000

:WORD COUNT (IF uc 0, WRD CNT IS B5,536 DEC)
'CONTROL SWITCH WORD
:NUMBER OF UNIT STALLS
*MAX. STALLS, TEST 11

‘HI

BITS OF PHYS. MEM. ACOR. (BITS 1p-21)

.WORD
WORD

O
O

:FC DEFAULT
'LC DEFAULT

WORD
.WORD

O
2

'FT DEFAULT
;LT DEFAULT
:IT DEFAULT
150 DEFAULT
'S1 DEFAULT
:S2 DEFAULT
1S3 DEFAULT
1S DEFAULT
:PT DEFAULT
'LOW MA (0-15) DEFAULT
‘HIGH MA (16-21) DEFAULT
:WC DEFAULT
:CS DEFQULT
:ST DEFAULT

"WORD

000001
000000
000023
000000
000025
000001
000000
063554
000000
000403

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

000000
000000
001000

3633
3634

3635

PARGE 73

.DEFAULT OPERATING PARAMETER VALUES

005776
006000

885010
12
006014
006016
006020
006022
006024
006026
006030
006032

HO6

12:16

PROGRAM SPECIFIC RESERVED LOCATIONS

3603
328"
S

10-JAN-78

WORD
WORD
.WORD

I
O
23
O
25
I
O
RWBUF
O
403
O
O
1000

:IC DEFAULT

:SM DEFAULT

. OPERATING PARAMETER VALUE LOW AND HIGH LIMITS

000000
000000
000000
000GO0
000001
000000

(000000
000002
000000
000002

000001
000002
000000
000023
000000
000023
000000
000025
000000
000025
000061

PRMLIM:

.WORD
.WORD
CWORD
WORD
WORD
WORD

O
O
O
O
1
O

WORD
WORD
WORD

2
O
2

WORD

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
CWORD
.WORD
JWORD

|
2
O
23
O
23
G
25
O
2%
1

;FC LIMITS

:LC LIMITS
sIC LIMITS

sFT LIMITS
,LT LIMITS

sIT LIMITS
;S0 LIMITS
:S1

LIMITS

:S2 LIMITS
:S3 LIMITS
:I1S LIMITS

CZREMDO RKB11-06 SS VERIF 1
CZRBMD.PI 1
10-JAN-78 11:48

MACY11

106

30A(10S2)
10-JAN-78
12:16
PRAGE 74
PROGRAM SPECIFIC RESERVED LOCATIONS
.WORD

000025

.WORD
. WORD
.WORD
MAHILM:

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

177777

;MA LOWER LIMIT
;MA UPPER LIMIT
;WC LIMITS
;CS LIMITS
;ST LIMITS
:SM LIMITS

7FCr

Bt Bl Pt

S T o T TSV T
[l T

Pttt

e [

o T T

Dt 0

wuy

-RS

OOOOTJOOOOOOOO

D
[0

7LC/

006214

006244

1€7776
77
O
177777
O
000070

;PT LIMITS

:ASCII PRARAMETER MNEMONICS

041527

0ge2le

PR MNEM:

006152
006152

177777

Q0[ ] 00000000000
or nnLwwwwnnnNnrt L £
o0 i S e
O
-+
(=] =N
b= e b= = LAV UN
Q == NI
= = O~ O
o N0
WWWWr— £
L0

006146
006150

WORD

O
177777
RWBUF

s71Cr
/F17
/LT,
71T/
7S50/
/Sl/
752/

783/

718/
/PT/
/MA/

/WC/
/CS/s
/ST/

/SM/

:DATA PA TTERN 00
HI-LO FREG.

177777
177777
172777
052525
0525esS
05252S
127777
17272777
05252s
052525

PATOO:

1777277
177277
177777
052525
052525
052525
1772777

052525

; TABLE FILLER FOR MR

MIX

SEQ 0352
SEQ 0073

WWWwWw Ww
NNNNN NN
mp-.;...._.— e e
O ne

CZREMDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZREMD.PI11
00e246
00&e250
006252
006254

006256
006256

006314

006316

006354

006356
006356
00e3&0

MACYL11

JO6

30AR(1052)
10-JAN-78
12:16
PAGE 7S
PROGRAM SPECIFIC RESERVED LOCATIONS

177252
177252
172765
172765

1 77252
1 7725e
72765
172
72
172765

; DATA PRLTERN 01
I FREG.

000000
000000
000000
17727227
1227277
177?777

baTo1:

000000
1772777
000000
1772777

PHASE MIX

000000

000000
177777

;DRTA PATTERN 02
LO FREQ. PHRSE MIX

05252s
052525

Pato2:

125252

1252582

; DRTA PQ;TERN 03
AX. PRECOMP.

133333
066666

PATO3

133333

0ebbbb

PHRSE MIX

SEQ 0353
SEQ 0074

CZR6MDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD .P11
006362
006364
006366
006370
006372
006374
006376
006400
006402
00&E404
006406
006410
ooe412
006414

MACY1l

KO6

10-JAN-78
12:16
PAGE 76
PROGRAM SPECIFIC RESERVED LOCATIONS

30A(10S2)

155555

;DATR PA TTERN 04

PATOY:

006416
006416

et
ot

s Pt Pt Pt Pt P

WL
W WWWW
00 (D 00 00 aD D M

NoNLIWN

006454

006456
006456

3820

006504
006506
00es510

ROTATING BOUNDARY PULSE PRECOMP.

121105
150442
oe4ecl
132110
0SS0u4y4
0264e2
013211
105504
g4yae4e
021321
110550

104426
o4e213

104426
O4eei
3

:DRTR PATTERN 0S
ROTATING CELL PULSE PRECOMP.

02645S
113226
045513
122645
151322
064551
132264
0ssi32
026455
113226

PATOS:

045513
122645
15132¢
064551

0e4ss!

SEQ_03s4
SEQ 007S

006S 1 e
006514
1

MRCY1l

LO6

PAGE 77
12:16
30A.10S2)
10-JAN-78
PROGRAM SPECIFIC RESERVED LOCATIONS

132264
055132

132264
0sS13e

;DRTR PATTERN 06
ALL ZERJOS

000000
000000

006552
006554

PATOE:

000000
000coo

000000
000000

;DATA PATTERN 07
006556

006614

006616

006630

17277277
127777
172727277
1727777

PATO7:

ALL ONES

1272777
172777
1777277
1722777

177777

1772777
12722727
177777
127777
1727777
177277
177777
1272277
127777
177777
122777
1727777

177777
177?777
1772?77
1772777

177777
1722777
;DATA PATTERN 08
SHIFTED 1

000001
000002

000040

paTOoSs:

000040

IN FIELD OF ZEROS

SEQ Q3SS
SEQ 0076

(gle]

CZR6MDO RK611-/06 SS VERIF 1
CZR6MD P11
10-JAN-78 11:48

CZREMDO RK611-06 SS VERIF 1
CZREMD P11
10-JAN-78 11:48

020000

:DRTA PR TTERN 09
SHIFTED O

IN FIELD OF ONES

~ ~Nwnoe
N NNNN
~N NNNN ~N

P
s et P

277
7773
7767
7757
27

NN NN NNNN NN
NN
N

17777

173777

1572777
1372777
077777

137777
077777

:DATA PA TTERN 10
ALTERNATING 0-1

fAT10:

006716

006754

PATO9:

0t Bt Pt Pt

e
—e

TUNUNU MU 0= b $mt pms et ot Pt s s
WO
WO
LW

WHIW
W W WWWWWWWW
OO D O D DDDDDD
D

006712
006714

708888

deeet

010000
020000

Syera

006656

0oci00

BBEss

30R(1052)
10-JAN-78
12:16
PAGE 78
PROGRAM SPECIFIC RESERVED LOCRTIONS

000100

o NNN
NN NNNN NINNY
~N
N
~N
~

006632
006634

MACY11l

05eses

052525

SEQ 0356
SEQ 0077

CZRBEMDC RKG11-06 SS VERIF

CZREMC . P11

10-JAN-78

3938
3939

3940

3941

3942
3943
3944
3945
3946
3947
3948
3949
3950
3351
3952
3953
3954
3955
3956
3957
3958
3959
3960
3361
3962

3963

3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3380
3981
3982
3383
3384

3985

3986
3987
3988
3989
3990
3991
3992
3993

11:48

MACY1l

30RA(10S2)

10-JAN-78

006756
006760
006762
(006764
006766
006770
006772
006774
006776
007000
007002
007004
007006
007010
007012
007014

007016

007016
007020
007022
N07024
007026
007030
007032
007034
7036
007040
007042
(007044
007046
007050
007052
007054

007056

007056
007060
007062
007068
007066
007070
007072
007074

125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252
125252

PAGE 79

PROGRAM SPECIFIC RESERVED LOCARTIONS
:DRTA PRTTERN

006756

NO6

12:16

PATIL:

ALTERNATING 1-0
125252
125252
125252
125253
125252
125252
125252
125252
125252
125252
125252
126252
125252
125252
125252
125252

;DATA PATTERN 12
:
SHIFTING ZEROS AND ONES

000001
000003
000007
000017
000037
000077
000177
000377
0007?77
0017
003777
007777
017777
037777
077777
177777

PaTi2:

000001
000003
000007

000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

:DATA PATTERN 13
:
COMPOSITE ROTATING

072307
135143
156461
167230
073514
035646
016723
107351

PAT13:

072307
135143
156461
167230
073514
035646
016723
107351

SEQ 0357

SEQ 0078

MACY11

BO7

30RA(10S2)
10-JAN-78
12:16
PRAGE 80
PROGRAM SPECIFIC RLSERVED LOCATIONS

v-»—»-oo—ogv—
oI L= WO L

;DATA PATTERN 14
PSEUDO-RANDOM

000o0eco
000000

PATIY:

(COMPUTED BY PROGRAM)

000000

. USER-DEFINED CQTAR PATTERN 15

007214

164616

:
g
WORD 06

057467
000000
062031

NONLW—-0O~N

072307
135143
156461
167230
073514
035646

PATIS:

E
o
p.«]
o

007156
007156
007160
007162
007164
00716
00717

Pt et e Bt Bt Pt s s ()

007154

SEQ 0358
SEQ 0079

143Se4

[V]
n
o

CZR6MDO RKEL11-06 SS VERIF 1
CZR6MD .P11
10-JAN-78 11:48

ROT.
ROT.
ROT.

LATENCY
LATENCY
LRTENCY

CZRBHOO RK611-06 SS VERIF

CZR&MD.P11
40S0

10-JAN-78 11:48

MACY11 30A(1052)

Ngg;{l
=0 —

4028
4053 007216 000000
4054

405S

007220

4056
4057

4058
4059
4060
4061

Xufzd

hflXLOE -WORD

000000

MARXHIZ2:

007224

4062

4063

.WORD

112160

MAXL 03= 038000

000000

: MAXHI4=1
fiRXLOH . WORD

QieS1M

RN?#NG:?D?SDU

000060

00722

12:

CD?

?% é

PROGRAM SPECIFIC RESERVED LOCR

000000

10-JAN-78

MAXHIY: .WORD
RNDSHT=¢D1500

00000

LSTTRK=2

BI;S
OF SSEC ggi ROT

MAXHI3=0
; MAXLO4=tD946H

000033
002734

SEQ 2853

59 BITS o SPECIR TEX | 6t SRS IR

; LORD FRbH NEW DRIVE ROUTINE

; LORD_FROM NENDRIVE ROUT INE

;LO BITS OF SPEC’'D MRX AVG SEEK TIME

;HI BITS OF SPEC’D MAX AVG SEEK TIME
;LO BITS OF SPEC’D MAX 410 CYL SEEK TIME

:HI _BITS OF SPEC’'D MAX 410 CYL SEEK TIME
; LORD FROM THE D NBR%VE ROUTINE
;LOARD FROM THE NEWDRIVE
ROUTINE
; SHORT RANDOM SEEKS = 1500(10)

LgN? RQNgOHSEEKS= 7500(10)
S

4064
4065
4066

00036
000002
000004

ALNCYL=365
BSERR=BIT1
HVRCER=BIT2

IALIGNMENT CYLINDER =245(10)
BSE ERROR
;HVRC ERROR

4068

000020

DCKERR=BITH4

DQTR CHECK ERROR

000100
000200

WCERR=BITH
ABORT=B1T17

{WRITE CHECK ERROR
RBORT

TWOTOS=BIT10

; TWO TIME OUT

4067

000010

4069

000040

4070
4071

4072
4073

000400
001000

407S
4076

004000
010000

4074

4081

ECCNC=BITS

LEV2ER=BITS
SEC=BIT9

002000

:8;5
4079
4080

OPIERR=BIT3

RCLREQ=BITI1
DRNQVk:gITlE

100000

007226
007234

007240

005015
042115

0OSO1E

ANYDER=BITI1S
0S5103
000060

Q4410

0073

4030 88;2%2

8200s5

4097
4098
4099

007372
007400
007403

035040
020124
gel

4102
4103
4104

007420
00?426
007434

052123
020123
042101

4100
4101

4105

0Q7407
007413

007442

062
015

000

0S0040
000
00S01S

00:015
005012

0S0040
042515
020122

;OPI ERROR

ECC NON-CORRECTABLE

LEVEL TWO ERROR
,BQD SECTOR FLQG

RECQLIBRQTE REQUIRED
DRIVE T RELSD_BY OTHER PORT
; ANY

ERROR DETECTED FLAG

033122

DZReM:

.ASCIZ

<«15><12>/CZREMDO/

guz1gl

XXDPMG:

.ASCII

<CR><LF>/CHANGE XXDP PACK/

LASCIZ

<(CR><LF>/CLEAR LOC 40,RESTART PROGRAM/

1985 995545 st
30530 04=533
4084
0072
0
46103
040505
4085 0072
Sggxég 849 14 020103

LQTENCY

5522 SUBVER: .ASCIZ & - RKb11/RKO6-RKO7 SUBSYSTEM VERIFICARTION : PART 3
17

051101

000
000
040514

054510
020115
020075

PARTIL
PRRTZ2:
LSTMEM:

ASCIZ
ASCIZ
.ASCIZ

~1/¢1S><1>
r27¢15>X¢la>
«<15><12>¢12>/LAST PHYS MEM RDR =

080

CZR6MDO RKB11-06 SS VERIF

CZR6MD.P11

MACY1l

30R(10S2)

117
0S4501
04eS

042526
0O4604Q
0c0lee

046122
040517
020077

OVLODR:

4516

025040

000040

85811

8:7

052520

10-JAN-78 11:48

4106
4107
4108

007443
007450
007456

4110

4111

00747

Y4115

007?526

045522

033060

030055

:i{g

00; gg

042101

020122

020075

Hxls

4116

4119

4120
:ial

10-JAN-78

DO7

12:16

PAGE B2

SEG_0360

PROGRAM SPECIFIC RESERVED LOCATIONS
.ARSCIZ

/OVERLAY LORDER

SEQ 0081

(Y OR N)

* /

& 85 Olg 040520 040522 PRMINP: .ASCIZ <15»¢12>/PARAM INPUT MODE-/<1S><cl2><i2>

007534

7551

007556
DO;S;;

020067

122

(033460
OM0440

052502

030113

053040
0S1104

020123

026466

041505
036440

RKBADR:

.ASCIZ

/RKOB-07 BUS ADR =

RKVADR:

.ASCIZ

/RK0O&6-07 VEC ADR =

4155 887 lda) 888832 033060 030055 RKPRTY: .ASCIZ /RK0O6-07 PRIOR =~

Yleeb 007614 0S So§ 0e0l22 020075 SWRMSG: .ASCIZ /SWR = /

Y4127
Yie8
4129

007622
007623
007630

Y4131

007642

4130

0
040
036440

047040
000040

053505

NEWMSG:

.ASCIZ

024523

0S1104

036440

024126

DRVSEQ:

.ASCIZ

<15><12>/DRV(S)

053611

000040

020105

BADDRV:

.ASCIZ

/DRIVE

NTREDY:

.ASCIZ

/NOT RDY/<15>¢<l1&>

WRTLOK:

.ASCIZ

/WRT-LOCK/<15><12>

REPLPK:

.ASCIZ

~/IF XXDP PACK ON DRV 0O,

NODRTS:

.ASCII

<1S»<12><12>/%% NO DRVS TO TEST/<(1S> <12

CNTRDY:

.ASCIZ

,
"
/PRESS “CONTTM
WHEN RDY/(15><¢12>

007634

005015

:{gg

88;%28

gglxog

4135
4136
4137
4138

007666
007674
00767S
7702

044530
000
116
0S4S04

4134 007661

005018

(0S2[17
00S01S

0S1040
000

4143

007736

4146

00775

4163

010024

042522

046120

4156

01084

80;01

82%015

4147
4148
4149
4150
4151
4152

4157
4158
41589
4160
416!

88;;;3

0077%
0077
007774
0100
01001
010016

0100S
Q0100Se
UJl0064
010071
010076

Oqléf;

0S2123

88;;?3

:{:g

116 0471?9 042455 NXDRIV: .ASCIZ /NON-EXIST/<(15><12>

:{ag

4141
0077
Yl4e
0077

NEW = 7/

ooaéfg

0488?3

47514
04%101
§820110
10S ALNPAK: .ASCIZ /LOADED WITH ALIGN PACK/<15><l12>
3440
052111

046101

040888

111

8501
2011
08312
0S4S24
020131
Q026042

4751
020123
051505
120
021040

043511

020116

85 10

859 30

045503
04
047117
0300840
0u4ese0
041474
023040

4204
047524
006524
042522
047503

00S01S
41501
042040
020054
021040
037122
020040

TYPE Y <CR>", 8

041501

020052

gs31ee
052040
012
051523
052116

REPLARCE 1T :

CZREMDO RKE11-/06 SS VERIF

CZReMD.PI11

MACY1l

10-JAN-78 11:48

4162

010104

020042

044127

0O4710S

9125

Dlglaé

oqaéég

gggégi

8886?2

4168

010i42

0S1S11

046040

Q40S17

:{23

8%8{%8

051838

054504

30AR(10S2)

10-JAN-78

EQ?

12:16

PAGE 83

SEG_ 0361

PROGRAM SPECIFIC RESERVED LOCARTIONS

SEQ 0082

005018

HLTRQD:

.ASCIZ

/HALT REQ/<1S><12>

Hib% giOigfl 051104 020126 020060 DROXDP: .ASCIZ ~/DRV O IS LOAD MEDIUM/<1S5><¢l12>
y

4171 010163

4172
4173
4174
4175
4176
41727

015

005012 047524 ALDRVS: .ASCIZ <«1S><l2><12>/T0 TEST ALL DRVS TYPE "R" <CR>, ELSE ‘CR>/<1S><(l2>/% /

:i;g

010170
010176
010204
010212
010220
010226

8{8533

052040
(046101
051526
020105
1474
6105

051505
020114
052040
Q4O44e
037122
042523

020124
0S1104
050131
020042
020054
036040

4180

010244

005015

020114

020075

4183

010266

020103

020075

4186
4187
4188

010310
010316
010324

020111l
0525
040522

4191
4192

010346
010354

4195
4136

010374
010402

4199
4200

010424
010432

56688

006476

025012

.ASCII

«<15><l2>/L = LIST TESTS/<¢1S><12>

044103

.ASCII

= CHANGE

020075
020124
0S151S

04711l
040520
020054

.ASCIZ

00501
020122

047105
026114

047524
026103

ENTLCI:

.ASCIZ

<15 <12>/ENTER L,C,

047524
0S2501

042040
0S2114

043105
052040

OFTEST:

.ASCIZ

/TO

i fieE s GOl G

4197
4138

010410
010416

0c<isS
0S0131

14
046105

0S1Se4
020105

037122
042523

TSTMDS:

TESTS/<15>¢12>

INPUT PARAMS,

DEFAULT

TESTS

010456

020040

044440

4207
4208

010500
010506

00SQiS
0S4524

02C!
042520

020075
0S0040

4211
4212

010527
010534

117
042520

036440
020116

4215
42lb

010554
010See

020123
020124

044526

I/<15><12>/%

TYPE D

<CR>,

ELSE

<(CR>/<1S><l2>/%

020054
036040

4203 010450 805015 042524 052123 TLSTHD: .ASCIZ <«15><¢12>/TEST

010570

052040
020104

4204

4217

RUN TESTS/<1S><12>

EXPLAN:

.ASCII

<15><12>/T

047440
040520

.ASCII

020075
047111

042523
044504

.ASCII

S =

052504

046101

ITERATIONS/<15>
< 12>
TYPE

PARAM LIST/<15>¢l2>

OPEN PRARAM LIST/<1S>¢12>

SET

INDIVIDURL PARAM/<1S><la>

CZR6MDO RKB11-06 SS VERIF |
CZREMD.PI11
10-JRAN-78 11:48

FO7

MACY1l 30A(10S2)
10-JAN-78
12:16
PAGE 84
PROGRAM SPECIFIC RESERVED LOCATIONS

£i fiEm g o ows
4220

010606

020122

020075

052522

o Bl moll g oeieS

4223

01
47105 042524
YooY 0Ol
018253 gggxeg
82&124
026117

PARMDE:

.ASCIZ

/R = RUN TESTS/«1S> <12

.ASCIZ

<15><12>/ENTER T1,0,S5, OR R/<1S><¢12>

3?%5

8{0658

Geele3

047942

020122

4228
4229

0106?%
0106

046101
C20leY

0SO0SS
040504

0S1117
Q40S24

4232

010710

040S1

Ge0l

Q47527

MAWRDC:

.ASCIZ

/MAX WORD CT = ~/

0182 4 88%3?5 8%88%2 0S2504 DURCES: .ASCIZ «15><12>/% DUAL-PORT DATAR TEST #/¢15>¢l1e>

3 Hen mews
4233
4234

SEQ 0382
SEQ 0083

sl oo

:Sgg

010716
010724

8%8;53

042122
020075

O4i440
NnogQ

gggggg

0S1440

SECNL1:

.ASCII

/%%

4237

010740

047040

052117

040440

NOTALD:

.ASCIZ

~ NOT ALLOWED/<¢15><1e>

4239

010754

005015

4241

010764

037062

031523

O0SI440

SECNL2:

.RSCIZ

/%%

011003

052

020052

0S3440

WC2BIG:

S Bl pll St dhisos
4249
011034
047524
Q42040
043105

4238

4240

010746

010757

g
4244

037828
046114

053517
000

020052

4245
4e4e

01.010
011016

020103
020101

4250
4251

011042
011050

052501
Q46114

046501
050131

026123
020105

8{}{?&

046105
051138

042523
006476

4252
4253
4254
4255

011056
011064
011072
011100

4268

011116

:ggg

4259

011124

041474

005015

042055

Q51117
047524

0S2114
050040

037122

0S1525

(020124

042105
oo

046440
020117

040440
051101

4263

4264

011145
011152

011160

4265

011166

4267
4268
4269
4270
4271

011174
011202
011210
011216
0ll224

4266

427c¢
4273

011167

0l1232
011240

0S0040

032461

000

124

020104
030440
050131
041474
046105

051103
900040

.RSCIZ

/%%

WC OR MA TOO LARGE/<1S><12>

DFQUES:

.ASCIZ

~/TO DEFAULT ALL PARAMS,

PFIFTN:

.ASCIZ

<«15><¢12>/7USER-DEF PATT 15

SELPLIS:

.ASCIZ

<«15>¢12>/MOD PATT 1S

MOFY1S:

.ASCIZ

/7O MOD PATT 1S,

TYPE D <CR>,

ELSE

<CR>/(1S><12>/% /

020054

0S110S

0S0OC40

046412

042117

035040

00501S

020117

0O47515

006476

025012

040520
026065
020105
037122
042523

036040
025012

043105

0S2101

S2>S53/

052040
020104

0 Hie Bl G S
Y22

SO>Sl1l/

020124

052124
052040
020115
020054
036040

:/c1S> 1>

:/<¢1S> 1>

TYPE M (CR>,

ELSE <CR>/<15><12>/#% /

CZRBEMDO RKB11-/06 SS VERIF |

CZREMD. P11

4274

4275

0l1242

011250

4278 011292
Y

10-JAN-78 11:48

00S01S

020122

047105

047516

MACY11 30A(10S2)

042524

020056

020855

006472

025012

428l

011310

ogsoég

ogso?;

osgoqo

4o84

011332

026940

031040

020060

4287
4288

011351
011356

015
052123

005012
047111

042524
020107

4533 Sxxg,u 84§f1s 843640

53?52

1585 Dil346 oDosoie 'ohg Osisee
4289

011364

4291

011374

4293
4294
4235

C11406
011410
011416

4290
4232

3239

4338

4299
4300
4301
4302
4303

3382
4306

4307

051104

020126

0SI1104

020126

011370

006440

011401

103

§ii:§3
011436

000040
042623
027117

q7sé§

0s14i2

0060012

000

0S1101

027124

027122
020040

047040
0ao

SEQ 0363

SEQ 0084

ENTPARS:

.ASCIZ

<15><12>/ENTER NO. OF PASSES (1-77777)

DROPDR:

.ASCIZ

<1S><12>/%%

TSTDRN:

.ASCII

<15>¢12><12>/TESTING DRV /

DRVNO:

.ASCIZ

/ /<1S>¢12>

CART:

.ARSCIZ

/CART.

SERNM:

.ASCIZ

/SER.

NO.

DRIV:

.ASCIZ

/DRV

§35 36

FACTBS:

.ASCIZ

<15><(12>/FACTORY /

04311

63524

SOFTBS:

.ASCII

(12> /SOFTWARE /

011444
011450
011456
011464
011470

051101
040502
052103
006472
020040

020105
020104
0S1117
000012
047516

042523

BDSECT:

.ASC1Z

/BAD SECTORS

042516

NOFALS:

.ASCIZ

011477

0S2

020052

047040

NOCLKS:

:MESSAGES USED

.ASCII

IN TIMING TESTS

/=%

NO CLOCK/

OM0

020055

0S2040

TIMSKP:

.ASCIZ

~ -

TIMING TESTS WILL BE SKIPPED/<15><12>

CLKFAL:

.ASCIZ

/%%

KW1l

011476

000

020117
113

4311
4312
4313
4314
4315
4316

011520
011526
011834
011842
011550
011556

0O4eS11
042524
044527
020105
042520
025052

047111
052123
046114
045523
006504
020040

020107
020123
041040
0S0i1l
000012
053513

3320

Offb?q

gggoao

0“58{1

051505

4323

011624

0S1440

042505

020113

047117

020105

011513

046103

020123

011504
011512

041517

:/<¢15><12>

NONE/

FRILURE/

43ia 0li233 933274 Gu3g3d O%4E8)
4319 011377
051012 052117 ROTIMS: .ASCIZ <15>¢12>/ROT TIMES :/<15>¢12>
wg§§ 81121;
4326

4327
4328
4329

:/¢15,712,
% 7

DROPPING DRV - 20 ERRORS/
(15> (12>

ogggég

4308
4309

4310

PAGE 85

33455 Sggws; 033467

81%382
11316

GO7

12:16

PROGRAM SPECIFIC RESERVED LOCATIONS

3553
4

10-JAN-78

011644

011652
011660
011666

318 883q13 ouaggg AVGSEK: .ASCIZ <15><(12>7/AVG SEEK TIMES :/¢15>(12>

00SOIS

0S4S03
045505
051505

020114
052040
035040

523
046511
00S01S

ONECYL:

.RSCIZ

<¢15><12>/0NE CYL SEEK TIMES

:/¢1S»<12>

CZR&EMDO RKB11.06 SS VERIF

CZR6EMD. P11

011674

000

4332

011702

0SI1440

:gga

011675

oii;lo

016

Dase2y

4335 811753 8984¢
4338

011740

4340

011754

000012

4342

011764

000

433

434]

4343

4345

MACY11

30R(1052)

046412

0S4101

MAXSEK:

§wggig

620123

10-JAN-78 11:48

4330

4331

042505

020113

011756

011768

011772

011779

044515

020116

020075

MINEQ:

.ASCIZ

/MIN = /

054101

036440

MAXEQG:

.RSC'Z

/MAX = /

053101

020107

020075

AVGEQ:

.AS.IZ

/AVG = /

040

093117

030440

BELOW:

.ASCIZ

~ OF 128 BELOW SPEC’D MIN OF

ABOVE:

.ASCIZ

~ OF

RBOVEL:

.ASCII

~ OF 410

_ASCIZ

/(6500-RKO7)/<CR><LF>

.ASCII

~ OF

_ASCIZ

~(71000-RKO?7)/<CR>(LF>

.ASCIZ

115

000040

888 051525

000 MICROS:

4353

012044

0474+0

020106

031061

4355

(12060

0201

as01

41505

01205

20079

041040
051440

galigl

0946105
042520

53117

4380 015035 Od594n oagioe CoYgDd
012101

(12106
012114
012122

040

030061
020064
045522

043117

024040
047506
033960

032040

030470
020122
020051

432

012130

041101

053117

020105

4364
4365
4366

012149
012152
012160

096440
020106
052440

064101
030070
123

047940
030060

4367

012136

012163

0S0123

0s0

041505

4377

012206
012214
0Qlee22
012230
(12236
012244

032466

030060

040440
051440
020104
043117
030060

047502
042520
040515
033440
052440

012245

0S0

030467

030060

023503
020130

020104
061511

040515
031340

032466

030060

0510SS

034062
042526
023503
020130
030065
123

4379 015565 O5eaci Oodgis 336l
4380
012264
020040
0SI440
042520
438]
4382

0l2e72
012300

0123 0t
0123 14
0123 22

030070
030113

SEQ 0085

030060
024467

.ASCIZ / US/

128 ABOVE SPEC’D MAX OF /

(814 FOR RKO7) ABOVE SPEC'D MAX OF 8000 US/

Q4047

4368 015178 Oosoje 030443 0ewder
4370
012201
040
043117
030440

437]
4372
4373
4374
4375
4376

SEQ 0364

<15><12>/MAX SEEK TIMES :/(16>(12>

/#%REV DIRX%/<1S><12>

034062
053517

4363

.ASCIZ

Q012014
012022

4359
4360
436l

PAGE 86

PROGRAM SPECIFIC RESERVED LOCATIONS

REVRSE:

012007

4358

3506 020104 FORWRD: .ASCIZ /#%FWD DIR¥%/(15><12>

4348

4354

12:16

0825
42522
1
011742 844&33
82@152
B5R.ER

4345 815895
4349
4350

10-JAN-78

031450
052440

RBOVE3:

SPCOMX:

128 ABOVE SPEC'D MAX OF 75000 US/

SPEC'D MAX

IS 38000(36500-RK07)

US/¢15><12>

CZREMDO RKE11/06 SS VERIF 1
CZREMC. P11
10-JAN-78 11:48

107

MACY1l 30R(1052)
10-JAN-78
12:16
PAGE 87
PROGRAM SPECIFIC RESERVED LOCATIONS

4386
4387
4388

006523
032062
051525

020065
000
032462
0OOOIR

.ASCIZ

/24375 US/<15><12>

062
052440

000012
033463
005015
033065
00BS23

LIMl:

4389
4330

012330
012334
012342
Q12347
012354

LIM2:

.ASCIZ

/25625 US/¢15><i2>

4332

012362

025052

020040

040503

BADE32:

.ASCIZ

/%%

4338
4399
4300

0Ola4eb
(012433
012440

041536
136
051136

005015
006532
005015

000
0000l2

CNTRLC:
CNTRLZ:
CNTRLR:

.RSCIZ
.ASCIZ

/$C/<15><12>
742/¢15>¢12>
/tR/<15><12>

4333
4399
4395
439
4397

4401
4402
4403
4404
4405

012370
012376
012404
012412
012420

047116
040505
020104
0S1117
045503

012445
012452
012457
012463
012465

136
043536
016
134
054

012472
012473

a4a
a40

006525
005015
005012
000
000

4406
4407

012467
012471

4410

012474

000040

4412

012476

020040

000075

4414
4415
441e

012510
Q012514
012517

036440
020052
076

000040
000
000040

4408
4403
9411

4413

012502

040
o4a

052117
020104
042523
052040
006441

047527

051040
090502
052103
040522
000012

000

000012
000
000

040

.ASCIZ
.RSCIZ
.RSCIZ
.RSCIZ
.ASCIZ

SPACE3:
SPACE2:

.RSCII
.ASCII

SPACEG:
SPRCEY:
SPRCEL:

(42122

000040

PRMBUF:

WORDSP:

EQUALS:
PROMPT:
PRMPSP:

4418
4419
$420

4423

012526

012522

10S037

105037

003136

003116

4426
4427
4428
4423

012536
0l2544
012546
012554

022737
001003
012737
0OO4I4

013732

000042

017014

000042

4431

012556

112737

000001

4425 012632 105037 003126

/tU/<15><¢12>
/1G/<18>¢12>
<15>¢12><12>
/\/
/,/

.ASCII
.ASCII

/'
~
7 7

.ASCIZ

/ 7

_EVEN

.ASCIZ

.RSCIZ

.ASCIZ
.RSCIZ
.ASCIZ

/ 7
/ 7
~

/WORD
7 = /
/% /
/> /

DFSTRT:

CLRB

DULACS

:CLEAR DUAL-RCCESS FLA

CMP
BNE
MOV
BR

SORVTST, 2842
4§
SNEWPAS,a#42
CMSTRT

!SEE IF EOP RETURN ADRS
= DRVTST
!BR_IF NOT DRVTST
:;SET RETURN RADRS
= NEWPAS
' PROCEED

CLRB

MDFLAG

ERRCNT

:CLEAR _ERROR COUNT FGR nesrnnvs

003116

003136

DASTRT:

MOVB

000001

003116

PSTART:

MOVEB

012737

00034C

177776

CMSTRT:

MOV

012706

001100

:SCLEAR

THE COMMON TAGS (SCMTAG) AREA
MOV
$SCMTAG,Rb
:;FIRST LOCATION TO BE

012564
012572

112737
000405

4435

012574

012602

105037

003136

4438

012606

4440
4441

0Ol2614

112737

MOVB
BR

CLRB

#1,DULACS

;SET FLAG FOR DEFAULT MODE

000001

4432
4433

4439

CANNOT READ BAD SECTOR TRACK!/<15><12>

EVEN

4424

443

.ASCIZ

CNTRLU:
CNTRLG:
CR2LF:
BKSLSH:
COMMA:

SEQ 0365
SEQ 0086

#1.MDFLAG
CMSTRT

#1,MDFLAG

DULACS

24PS

:SET FLAG FOR DURL-ACCESS DATR TEST

!SET FLAG FOR PARAMETER MODE
* PROCEED
;SET FLAG FOR PARAMETER MODE

'CLEAR DUAL-RCCESS TEST FLAG
BLOCK ALL

BT TR rraLIZE TE “Common TRS

INTERRUPTS

CLERRED

CZREMDO RKB11-/06 SS VERIF

CZREMO.P11
444~

012620

00S026

0l26e6

001374

4447

4449

4445

Qleek22

4445

Y446

012630

4444

Y448

10-JAN-78 11:48
022706

001140

012706

001100

012634

012737

0SS1S4

012650

012737

012642

MACY1l 30A(1052;

10-JAN-78

CLR

#SWR,RE

MOV

#STACK

BNE

000020

000340

000022

MOV

000036
000024
000026
025474

44E8
4459

012732
012790

112737
012737

000001
O0l2740

001115
001106

4460

012746

005037
005037
012737

001304
001306
0i2746

Y461
4462
Y463 012754 013746 00000

001110

4464
4465

012760
012766

012737
012737

013014
177570

000004
001140

4467
4468

013002
013016

023777
001012

177777

166130

4470
4471

013012
0130i4

000403
012716

013022

4473

013022

012737

000176

4472

013020

000002

4474
::;g

013030
013036

012737
012637

000174
000004

4477
4478
4479

013042
013046
013054

005037
132737
001403

001326
000200

00134

4481

013064

001342

001140

4483
4484

013066
013074

012737
005037

000006
000006

000004

013106
013112
013120

105037
112737
104401

003130
000001
007226

(013130

104401

4480
4482
4485

4486
4487
4488
4489
4430

4491
4492
4493
4494
4495
4496
4497

013056

013064
013100

Q013124

013134
013140
Q13142
013146
Q13152
013156
013160

012737
0O0000S

112737

104401

105737
001004
104401
105237
105737
001402
104401

000144

001142

B&5S:

66%:

678
:

001115

;; 10T VECTOR FOR SCOPE ROUTINE

#SERROR, 98EM

: EMT VECTOR FOR ERROR ROUTINE

31 SERMAX
SLPQDR

P ALLOW ONE ERROR PER TEST
,,INITIQLIZE THE LOOP ADDRESS FOR SCOPE

MOV
MOV

osqs acsknvec
#0SuWR,S

:SET UP ERROR VECTOR
,,serup FOR A HARDWARE SWICH REGISTER

CMP
BNE

#-1, ISUR
668’

: 'TRY TO REFERENCE HARDWARE SWR
,,eanncu IF NO TIMEOUT TRAP OCCURRED

BR
MOV

65%
#8653, (SP)

"BRANCH IF NO TIMEOUT
,,ssr UP FOR TRAP RETURN

MOV

#SWREG, SWR

:sPOINT TO SOFTWARE SWR

CLR
BITB
BEQ

$PASS
$APTSIZE, SENVM
67%

,,CLEQR PASS COUNT
,,TEST USER SIZE UNDER APT
' YES, USE NON-APT SWITCH

RTI

MOV
MOV

MOV

RESET

oawo aotnvvsc+a (LEV
sSTRAP ?lTRflPVEC TRQP vscvon FOR TRAP CALLS

§T
ssscnpe

LPERR

;i INITIALIZE _NUMBER OF ITERATIONS
:CLEAR THE ESCRPE ON ERROR ADDRESS
S UP HE ERROR LOOP ADDRESS

003146

39%:

#SSWREG, SWR

CLRB
MOVB
TYPE

DRVERS
81 HLPOVL
DZREM

TYPE

TSTB
BNE
TYPE
INCB
7578
BEQ
TYPE

'AND

THE HARDWARE SWR IS NOT = -

$DISPREG, DISPLAY
(SP)+,d8ERRVEC ;;RESTORE ERROR VECTOR

#6, 98ERRVEC
JsERRVEC+2

TYPE

003147

cooxsb o:sanv ;'ANDA HARDWARE DISPLAY REGISTER

MOV
CLR

MOVB

007403

010654

#SSCOPE IWIOTVEC

MOVB
MOV

MOV

007321

063554
003147
003136

IF NO

8340, R TRAPVEC+2; {Eve
#SPWARDN, 8PWRVEC' ; PONER FAILURE VECTOR
8340, I8PURVEC+2 ;;LEV
senobr SEOPCT
,,serup END OF -PROGRAM COUNTER

MOV

BYS:
001140

:LOOP BACK

,,ssrup THE STACK POINTER

:SI1ZE FOR A HnnouhRE SWITCH RectSTsR F NOT FOUND OR xr 1S
,EounL T0 A *~-1%, SETUP FORA SOF TWARE SHITCH REGISTER
MOV
hsnavsc -(SP) ~;;SAVE ERROR VECTOR

4466 012774 012737 177570 001142
Y469

. :CLEAR MEMORY LOCATION

MOV
MOV
MOV
MOV

MOV

CLR
CLR

000340
055020
000340
025502

SEQG 0087

#3490 aotorvzc+a
o EVEL

445
4457

012737
012737
012737
013737

; ; DONE?

SEG 0366

MOV

MOV
MOV

012672
012700
(012706
012714

PAGE 88

,,INITIQLIZE A FEW vsc?oa

000030

4452
4453
4454
4455

(R&)+

CHP

4450 012656 012737 000340 000032
4451 Qleebd 012737 0Sbeee 000034
Qle7z22
012726

12:16

INITIALIZE THE COMMON TAGS

012737

054450

Jav

#100. , SERMAX

' SUBVER
PART]

NOTYPE
39%
NOTMSG
NOTYPE
DULRCS
408
, DUACES

NG, USE APT SWITCH REGISTER

;CLEAR THE UNIBUS

:SET TIME-OUT VECTOR
:GET MAX ERROR CNT TO

100 FOR_$SCOPE

'CLEARR ERROR COUNT FOR CURRENT DRIVE
'SET HLP FILE OVLD INDICTR
:TYPE PROGRAM I.D. FOR PART 1
:SEE_IF OPERATOR NOTE SHOULD BE TYPED
'BR IF
NOT
:TYPE OPERATOR NOTE
"SET FLAG FOR NEXT TIME
'SEE IF DUAL-ACCESS DATA TEST
:BR _IF NOT
:TYPE "% DUAL-RCCESS DATA TEST ¥

CZR6EMDO RKB11-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48
4498

013164

012737

025700

MACY1l
000060

4499
4500
4501
4502
4503
4S04
4S50S
4506
4507
4508
4509

(013172
013200
013204
013210
013214
013222
013230
013234
013242
013246
013252

012737
013701
012721
013711
012737
012737
105037
012737
012701
012700
005036

000200
003040
045270
003042
026510
000340
003120
000000
005232
000006

4512
4513
4S14
4515
4516
4517

013260
013264
013272
013274
013300
013306

005037
023727
101002
004737
012737
012737

005512
000042

017014

026370
176543
123456

052716
052720

4519

013314

105037

003132

4510
451}l

4518

013254
013256

4520
4521

013320
013324

4623

(013336

4522

0053
001375

105037
012737

013332

005777

4524
4525
4Sep

(013342
(013346
013352

013700
012720
O0l27I0

4528

013362

000414

105237

003133
013364

167614

000062

4532
4533

4534

4535
4536
4537
4538
4539
4G40
4841

013364
013366
013374

000252
177776

4as:

003160

(013410
013414
013422
013426
013432
013434
013440

104401
012737
004737
105737
001404
004737
105037

011477
000006
026072
003135
027262
003135

122737

000013

104401
000000

007240

105737

003116

013444
013444

4545
4546
4547
4s48

013484
013460
013462
013462

4649
4E50
4551
4SS2

4553

013406
167550

013452

013466
013470
013474
013502

013510

022626

001003

001031
013700
013737
132737

001005

001370
001374
000200

MOV

MOV
MOV
MOV
MOV
MOV
MOV
CLRB
MOV
MOV
MOV
CLR
DEC
BNE

6%:

7%:

000041

RO
42$

;LOAD VECTOR FOR

TTY KBD

SET KBD PRIORITY
!ADDR. OF RKOG vscron STORAGE
;SET IT TO RKO® HANDLER
:SET_RKO® PRIORITY
:VECT FOR KT11 FRILURE
;SET PRIOR. = ? FOR HNDLER
:CLEAR “RUNNING TESTS" FLAG
'ALLOW ALL INTERRUPTS ARGAIN
1 ZERO OUT PREVIOUS COMMAND
'SET counrsn
:ZEROA WORD
:BR

xr NOT DONE YET

:DON’T ALLOW STALLS YET
:SEE IF CHAIN MODE
:BR_IF YES
:OPEN SOFTWARE SWR FOR MODIFICATION
:INIT. PSEUDO-RANDOM NOS.

CLRB

PCLKF

s INIT. P’ CLOCK FLAG

TST

IPKS

'SEE If P-CLOCK IS PRESENT

MOV
MOV
MOV

PCVEC, RO
nCLock (RO)+
(RO)

:LOAD KuWl1-P VECTOR ADDRESS
'ADDR OF CLOCK SERVICE ROUTINE
;ssr CLOCK HANDLER PRIORITY =

8%:

9%
:

99§
:

DOTIM
8685, I8Y

PCLKF

INCB

ooh

CMP
MOV
TST

(SP)+. (SP)+
478 aby
ILKS

B8R

PINIT. TIMING TESTS FLAG
'SET TIME-OUT ERROR VECTOR

IPRESENT,

SET FLAG

*SET FLAG TO RLLON TIMING TESTS

'BR TO CONTINU

MOV
BR

LCVEC,RO
4s

{LORD KNé%-L vscron nooREss
;BR TO SET
UP L-CLK VECTOR

-E
oV
JSR
1578
BEQ
JSR
CLRB

NOCLks
ko, 984
PC.SIZMEM
XOPSVD
95
PC,GETXDP
XDPSVD

:SAY TIMING TESTS WON’T BE RUN
:SET TIME-OUT VECTOR TQ LOCQTION 3
*SIZE MEMORY, FIX MA LIMIT IN PRMLIM
ISEE IF XXDP'PREVIOUSLY SAVED
:BR IF NOT
:RESTORE SAVED XXDP
:CLERAR THE FLRAG

813, 3841

:LOAD

Are

cMPB

(SP)+, (SP)+

BNE

99§

1578

MDFLAG

TYPE
HALT

003036
001341

sPRY, utKVEC+2
RKVEL R1
sI.INYR (R1)+
RKPRI, (R1)
SKTERHD, 98MMVEC
8PR7, J8MMVEC+2
TSTING
#PRO, 984PS
sPRVEMD, R1
%6, RO
(RI)+

STALLS
acqa SNEWPAS
4ys
PC, GTSWRG
#176593, SHINUM
81234956 SLONUM

CLRB
MOV

4s:

000004

#KBDHDL , 98 TKVEC

SEQ 0367
SEQ 0088

CLR
CMP
BHI
JSR
MOV
MOV

INCB

000004

PAGE 89

; CHECK FOR Pnsssncs or ku11 OR P CLOCK, AND SET FLAGS

000004

003162
032664
006340

013700
000760

013406

44$:

003132

013400
013404

4542
45643

4544

022626
012737
005777

4OS:

000250

4527 013356 105237 003133
4529
4530
4531

KO?

30A(1052)
10-JAN-78
12:16
INITIRLIZE THE COMMON TAGS

BNE
MOV
MOV
BITB

BNE

. XXDPMG

10$
$VECT1,RO
$BASE, RKBAS
$BIT7 SENVM

188

:P-CLK NOT THERE RESET THE STACK
'SET TIME-OUT E ho
iSEE IF L-CLK PRES

jL-CLK_NOT THERE

FROM XXDP

:BRANCH IF NOT

:SEE

RESET THE STACK

DEFQULT MODE

"BR_IF NOT DEFAULT MODE
:GET APT RKO6 VECTOR AND PRTY
:GET APT RKO& BASE ADDRESS
:SEE IF NO SIZING

'BR IF NO SIZING

4S54

013512

4SS6

013524

4555

Q12700

120210

110037

003040

Q13516

012737

4558

813234

000300

3225

013546

000137

1774940

4557 013530 10S037 003041
4559
4Sp0

01383
013542

042700
010037

177437
003042

013552

104401

007500

4569

(013556

013746

003036

4571
4572

013566
013572

004737
012637

026260
003036

4874

013576

013746

457

81320

1361

104401

003040

8047 7

026260

4579

013616

013746

003042

45g8.
4cg2
“233

013624
013626
gxgggg

006316
006316
000316

4585
458

013636
gxgsqa

004737
oéago

4588

013650

002414

LO?

MACY1l 30R(1052)
10-JAN-78
12:16
INITIALIZE THE COMMON TAGS

003036

188:

3229
4568

OI4444

4575

4E7

4578
458

4589

458

(013602

013622
01

13644

109401

020027
003011
000300
osgoo

000007

Q13652
013656
013660
8135&2

4594

013666

006200

4536

013674

104401

00131S

104401

00S272

4533

4595

(013664

(013670

4597

013700

00040S

4539

(013706

104401

4598

013702

328?

013712

4602

013714

4603
4604

3282
4607
4608

4609

000741

105037

:CLERR HI BYTE

BIC
MOV

$177437 R0
RO, RKPR}

'CLEAR OTHER
:STORE RKOB PRIORITY

TYPE

003126

013726

000137

014522

INPUT MODE

, PRMINP

GO CHECK ALL DRIVES

: TYPE “PRRAMETER INPUT MODETM

RKBRAS, - (SP)

;PUT
OLD VALUE ON STACK

JSR
MOV

pC GETPRH
(SP)+,
RKBRS

:TYPE OLD csr Nsu RKBARS VALUE
STORE NEW
V

MOV

RKVEC, - (5P)

;PUT OLD anus ON_STACK

JSR

MOV

AC, GETPRM

sro £ Nsn

MOV

RKPRI,

ASL
ASL
WAB

(SP)
(S5P)
(gp)

JSR
MOV

AC, GETPRM
(SP)+,R0

*TYPE OLD, GET NEW RKPRI VALUE

12§

:BR_IF NEW anus T00 snnLL

ASL

YPE

nnanba

:TYPE "RKO6 BUS RDR=

RKVADR

(SPY+ RKVEC

;T PE ”RKOB VEC ADR=
s

cer NEN RKVEC VALUE

16%:

KPRTY

:GET OLD VALUE OF PRIORIT

'GET IT INTO BITS 0-2
:TYPE

"RKO® PRIORITY =

:SEE

CMP
BGT
SWAB
ASR

RO, 87
12$
RO
RO

‘SEE IF LEVEL
7
‘BR IF NEN VQLUE TOO LQRGE
:GET PRIORITY INTO BITS 5-7

ARSR

TYPE

000042

-(SP)

RO, #4

MOV

12%:

(SP)

CMP

BLT

001314

013732

ALLDRY

IGET PRTYénro
BITS 5-7

.OPEN RKO6 INTERRUPT finNoLER PRISRITY LEVEL FOR nooxrrcnrxon

i1s:

003042

012737

MOV

ASR

013720

: STORE vscron

RKOEC+1

TYPE

6200

010037

'GET DEFAULT BASE RDDRESS

: OPEN RKOB VECTOR nookess FOR nobxrxcnrl

026260

4589
4530
4531
45932

:GET DEFAULT VECTOR AND PRIORITY

CLRB

TYPE

007574

000004

SEQ 03e8
SEG 0089

:OPEN RKOB UNIBUS ADDRESS FOR MODIFICATION

0067551

020627

KVEC

.BEGIN PARAMETER

ios:

12637 003040

006316

MOVB

cnense RKBRS

JMP

4570 013562 104401 007526
4573

SAVECT1,RO

MOV

SlAB

4563
4564

4565

MOV

PAGE 90

TYPE

IF AT LEAST LEVEL
4

RO, RKPRI

$LRLF

ies

:STORE NEW VALUE

,BUFFO

;ECHO BRD

i1s

;GO ASK AGRIN

CLRB

ERRCNT

#ORVTST, aa42

SSET UP DUMP MODE RETURN FROM SEQP

IMP

CHKLST

-co CHECK STATUS OF MARKED DRIVES

TYPE

MOV

$QUES

INPUT

;CLEAR ERROR CNT FOR RESTRRTS

UPON COMPLETION OF REQUESTED PRSSES

EEEERREEARREREREAREREREEEFRRRR
R RRRRR RN LR AR RRRRERRAR R R LR

szsnoo RK&11-06 SS VERIF |
CZREMD.P11L
10-JAN-78 11:48

CZR6MD.P11

10-JAN-78 11:48

MACY1l

4610

30R(1052)

10-JAN-78

MO?

12:16

PRGE 9l

SEG 0369

TO - DESIRED DRIVE INPUT ROUTINE
.SBTTL

SEQ 0090

TO - DESIRED DRIVE INPUT ROUTINE

4gx1

;T?¥s RSUTINE ;vpgs ;Hgggg?RENgYLéST"gF o¥5g§s TONEEST

4614
4615

: xDRIVES ARE cuscx
DITY AND PROPER’STATUS
1%AND_IF THEY_ ARE anxo THEY nns LOADED INTO THE DRIVE

461

- ¥WITH
V
lCHOICE
SF
YEE ?s E §E BY 9? ?NPUT hNo THESE

Y61

4616

*LIST (DRVLST).

4617

4618

4619

lllllllllill!ill!llllvl!l*li!'ll!!llllllllllllll*ll!l*lllii**l*!l

013732

4620

013732

012706

46e4
4625
4626
4627

913752
013754
013756
013760

013732
013732
013732
005700

4629
4630
463

013764
013772
813774

022737
001002
000137

000101

4633

014004

104401

001314

4621
4622
4623

4628

463

013736
013742
013746

013762

19000

005037
104401
004737

001413

104481

4634

014010

000750

4636
4637

014012
014016

104401
005001

4635

4638
4639

4640

ye4]l
4e42
4643
4644

4645
4646

014020
014022

014626

014032
014034
014036
014040

014044
014050

005000
012703

105761

001414
005700
001402
104401

010137
052737

DRVTST:

001100

005512
010163
030624

sRESET THE STR

DRVTST
DRVTST
DRVTST
75T

1 (1C) RETURN RDDRESS
2 (12) RETURN ADD
:(tU) OR ERROR RETURN ADDRESS
:SEE
NULL INPUT

CMP
BNE
{np

#'A,BUFFO
4g
RbL

:SEE IF ALL DRIVES REQUESTED
:BR IF NOT ALL DRIVES
E SK nbL
onxvss

TYPE

souss

STYPE ¢7) nno <ca> (LF>

BEQ

005272

0Ol4444

4§:

YPE

STALLS'
ALDRVS
PC, ROCHRS

TELDRV

VTST

TYPE CURRENT onxvs LIST

007634

YeLDRV:

000001

005606

4s:

012465

005542

6%:

TSTB

DRVLSt(R1)

:SEE IF THIS DRIVE IS LISTED

CLR
MOV

BEQ
TST
BEQ
TYPE

RO
$BITO,R3

‘BR_IF on}v
NOT LISTED
'SEE IF FIRST
TIME HERE
!BR_IF FIRST TIME HERE
s TYPE_A_COMMA

TYPE
INC
INC
ASL
CMP
BNE

SCRACH
RO
RI
R3
810,R!
43

:TYPE DRIVE NO.
P INCREMENT NO. OF LISTED DRIVES
: INCREMENT DRIVE
NO.
:SHIFT BIT POINTER
:SEE IF DONE YET
.BR IF NOT DONE

26%
,NOFALS
"NODRTS

:BR IF YES
STYPE TM NONETM
TYPE “%% NO DRIVES TO TEST

MOV
BIS

R1,SCRACH
8’0, SCRACH

014100
014102
014106

001016
104401
104401

011470
010042

BNE
TYPE
TYPE

4658
4659

014112
Q014116

012703
012701

000401
005606

MOV
MOV

$401,R3
oonvtsr R1

4661

014124

010321

MOV

R3,(R1)+

MOV

R3]

4657

4660
4662

4663

4664

4665

014122

005700

010321

014126

010321

014132

000137

014130

014136

010311

104401

TST

MOV
MOV

044134

001315

26%:

SINIT. COUNT OF LISTED DRIVES
PINIT BIT POIN

$
RO
6%
COMMA

4654
4655
4656

014076

:G0 ASK AGAIN

- TYPE “DRIVE(S) = *
!INITIALIZE DRIVE NUMBER

104401
005200
005201
006303
022701
001354

000010

'BR IF NULL INPUT

DRVSEQ
R1

014056
gxw 62
014064
014066
014070
014074

8%:

:INHIBIT STALL asrussn OPERATIONS
‘ASK IF ALL DRIVES DESIRED
'READ RESPONSE

TYPE
CLR

4e47
4648
4649
4650
4651
4652
4653

005542

8STACK, SP

CLR
TYPE
JSR

005272

005542
000060

MOV

JMP

TYPE

;USE SCRACH FOR BUFFER
:CONVERT DRIVE NO. TO ASCII

:SEE_IF ANY DRIVES WERE LISTED

“PRESS

'CONT’

*MARK A_L DRIVES IN LIST

R3, (R1)+
(R1)

HL tPRG

,$CRLF

WHEN ROY*

pnrrsnn TO MARK DRIVES
'DRIVE LIST ADDRESS

:HALT PROGRAM

:TYPE <CR>, <LF>

(e Ta)

CZR6EMDO RKG11-06 SS VERIF

CZR6MDO RKB11/06 SS VERIF

CZREMD. P11
4666

014142

4668

014150

4667
4669
4670
4671
4672
4673

4674
4675
4676
4677
4678
4679
4680
4681

4682
4683

10-JAN-78 11:48
105737

014146

001002

014154
014162
014164
014170
014172

122737
001032
105737
001427
104401

014176
014202
014204
014206
014210

004737
014172
014172
014172
005700

014212
014214

000137

001416
022737

015062

000013

4690

014254

004737

030624

4692
4693
4694
4695
4696
4697

014262
014264
Q014266
014270
014272
014276

4698
4699
4700
4701

014260

013732

013732
014012
005700
001007
105737
001002

010071

000100

000137
000137
022700
002005

4704
4705

014326
014336

000631
005001

4707
4708
4709

014340
014342
014350

002766
126127
003362

4711
4712
4713
4714
4715
4716

014354
014356
014360
014366
014370
014372

020100
001406
126127
001353
005201
000757

005272

4718

014374

012701

005606

4720
4721

014402
014404

005021
005021

4706

4710

4717
4719

014316
014322

014332

014352

014400

104401
104401

126127

000041

20%:
248 :

00S272

000000

198:

PAGE 92

MDFLAG

JIMP

LODFLS

;SEE

20%

CMPB
BNE
TST8
BEQ
TYPE

#13,3841
198
DPVLST
19§
, REPLPK

JSR
248
243
243
TsT

PC,RCCHRS

22%:
95

00S272
001314

10$:

128:
148:

DEFAULT MODE

:BR IF NOT DEFAULT MODE

‘GO LOAD CEFLT ITER. COUNTS

'SEE_IF RKO6 1S XXDP MEDIUM
:BR IF NOT
'SEE IF DRIVE O LISTED TO TEST
!BR_IF NOT
:TYPE “IF XXDP PACK ON DRV O, TYPE Y (CR>

:
AND REPLACE
'READ RESPONSE
1($Cs RETURN
:(12) RETURN
1(1U) RETURN
:SEE IF NULL
IN

19%
8’Y,BUFFO

24%
CNTRDY
bIE,RKCS1(R2)

SEQ 0091

;BR_IF_JUST <CR)
SSEE IF "Y (CR>"

TYPED
TYPED

BNE
TYPE
BIC
HALT
JSR
JMP
TYPE

PC, INITSS
CHkLST
MPT

;DISABLE RKO® INTERR
IHALT FOR Pncx cunncs
:INIT THE SUB-S
1GO CHECK srnrus OF LISTED DRIVES
:TYPE ASTERISK AND SPACE

JSR

PC,RDCHR

sREAD

DRVTST
TELDRV
TST
BNE
1ST8
BNE

RO
9
DULRCS
22%

:(¢2) RETURN ADDRESS
:(#U) OR ERROR RETURN ADDRESS
SSEE_IF NULL INPUT
'BR IF NEW DRIVES WILL BE SELECTED
;SEE IF ounL ACCESS FLAG SET
;

TYPE
TYPE

BUFFQ
' §QUES

DRVTST

014574
015340
006017

SEQ 0370

INPUT ROUTINE

:BR_IF NOT, TO ASK AGAIN
PTYPE ~PRESS CONT NHEN DRV RDY"

sREAD AND CHECK fiew DRIVE NUMBERS

JIMP
IMP
CMP
BGE

ASKTST
INPUTP
$15.,R0
128

INPUT STRING

:($C) RETURN RDDRESS

: JUMP TO THE TEST INPUT ROUTINE
:GO ASK FOR INPUT PARAMETERS
!SEE IF TOO MANY CHARACTERS TYPED
:BR IF NOT TOO MANY

BR
CLR

YELDRV
R1

{ECHO BRD INPUT
STYPE (7> AND _<CR)>, <LF>
:GO TYPE DRIVES nnb RSK ARGAIN
c ERR CHAR. POINTE

108
BUFFO(R1),%’7
10%

an T0 ECHO BAD INPUT
:SEE IF > 7
'BR 10 ECHO BAD INPUT

R1,RO
16$
BUFFO(R1),®’,
108
R1
14$

:SEE IF MORE CHARS TO CHECK
:BR_IF ALL CHARS CHECKED
:SEE_IF THIS 1S COMMA
iBR _IF NOT COMMA
: INCREMENT CHAR POINTER
'BR TO CONTINUE CHECKING CHARS

00S272

000060

00S272

000067

BLT
CMPB
BGT

000OS4

CMP
BEQ
cMPB
BNE
INC

005201

005021

NO7

12:16

1578

BEQ
CMP

003136

014300
014304
014310
014314

4702
4703

TO - DESIRED DRIVE

030624

000131

10-JAN-78

BNE

0077S3

027522
014522
012514

4691

30A(10S52)

00S606

014230
014236
014240
014244
014250

4689

MACY11l

003116

001363
104401
042762
000000
004737
000137
.04401

4684
4685
4686
4687
4688

014222
014224

CMPB

INC

BUFFO(R!),#'0

RI1

SEE

IF DRIVE

NO.

: INCREMENT CHAR POINTER

.GET NEW DRIVE NUMBERS INTO LIST’

les:

CLR
CLR
CLR

$DRVLST,R1

(R1)+

(R1)+
(R1)+

:GET DRIVE LIST ADDRESS

:CLERR OUT THE DRIVE LIST

CZR6EMDO RKB11-06 SS VERIF

CZR6EMD.P11

10-JAN-78 11:48

4722

014406

005011

4724

0I4412
014416

116001

042701

4729
4730

014440
Ol4442

001364
0O0427

4732

014444

005000

4734
4735

014452
014460

132737
001002

000200

4737
4738

014466
014472

012701
105060

000001
00S606

4740
4741
4742
4743
4744
4745

014500
Q14502
014516
014512
Q14514
014520

001403
112760
006301
005200
(022700
001364

014522

005000

014530
014532

001410
010037

4723
4725

014410

005000

MACY11

005272
000060

4733

4736
4739

4746
4747

4748

4749
4750

475]

4752

4753

014446

014462
014476

014524

014536

013703

012703

030103

105760

004737

001376

000001

MOVB
BIC

MOVB
ADD
TSTB

MOV

BITB
BNE

MOV

1$:
2%:

SEQ 0371

(R1)

SEQ 0092

:CLEAR BUFFER POINTER

BUFFO(RC) R1
Rl

01DRVLST(RI)
2 RO
su#ro—xtno)
18
CHK
s

;csr A DRIVE NUMBER
:STRIP ASCII

BITS

*MARK THIS DRIVE IN DRIVE LIST
:POINT TO NEXT DRIVE NUMBER
ISEE IF NULL CHAR YET
;BR IF _NOT DONE YET
GO CHECK NEW DRIVES

00S606

ys:

003124

4757
4758

Q014564
014560

022700
001361

000010

4760
:;gé

014566
014572

105060
000767

005606

014012

;CLEAR DRIVE NUMBER

$BIT7, SENVM
13

:SEE _IF NO SIZING
:BR_IF NO SIZING

$DEVM,R3

:GET APT DEVICE
MAP

#377,R3

"SET UP FOR SIZING

#8170,R1
DRVLST(RO)

:SET BIT POINTER
:INITIALI2E DRIVE ENT

BEQ
MOVB
ASL
INC
cMP
BNE

yg
#1,DRVLST(RO)
Rl
RO
#10,R0
2%

'BR_IF NOT
:MARK TH1§ DRIVE IN DRIVE LIST
'SHIFT BIT
POINTER
: INCREMENT DRIVE NUMBER
; SEE }r oong MARKING ALL DRIVES
:BR IF
NOT
DONE YET

75718

DRVLST(RO)

:SEE IF THIS DRIVE IS MARKED IN LIST

JSR

PC, SCNDRV

R1,R3

:SEE

IF THIS DRIVE

xs REQUESTED

CHECK ALL DRIVES MARKED IN DRIVE LIST FOR PROPER STATUS
éHKLs CLR
RO
sCLEAR DRIVE NUMBER
BEQ
MOV

027650

113760

FOR VALID STATUS

MOV
CLRB
BIT

005510

014566

4763
Y764

CLR

BNE
BR

001341

005606

014544

000137

188:

000010

014542

014862

PAGE 93

TO - DESIRED DRIVE INPUT ROUTINE

AULDRV: CLR

000377

4755
4769

12:16

COME HERE IF ALL onxvss REQUESTED

4754

4756 014552 005200

BOS

10-JAN-78

CLR

4726 014422 112761 000001 005606
4727 014430 062700 000062
4728 014434 105760 00S271
4731

30A(10S2)

00S616

MOVB

INC

: CHECK svnrgs OF THIS DRIVE

‘IF NOT VALID,

TYPFMT, DTYLST (RO}

TYPE MESSAGE

AND REMOVE IT FROM DRIVE LIST

ERROR RETURN RDDRESS FOR scnonv

:SET DRV TYPE. 0=RKOB,

:RETURN HERE IF DRIVE IS ussnéLE

CMP
BNE

$10,R0
23

CLRB
BR

DRVLST(RO)
4s

JIMP

68:

'BR_IF NOT MARKED
:SET DRIVE NUMBER FOR SCNDRV

:”

4g:

45
RO, DRIVE

;SEE_IF DONE CHECKING
:BR IF NOT DONE YET

TELDRV

LIST

:GO BACK TO LIST SELECTED DRIVES

*REMOVE INVALID DRIVE FROM LIST
SCONTINUE CHECKING THE LIST

- P22222222222222
223223222X22222 2222222222222 222222222222 2223

4765

'8BTTL

4767
4768

"%COUNT FOR EACH TEST. THE INPUT IS5 CHECKED FOR VALIDITY,
‘%AND IF VALID, THE ITERATION COUNTS ARE LOADED INTO THE'

4766

4769
4770

4771

4772
4773

4774

47275

4776
47?77

4=RKO7

TO - DESIRED TEST INPUT ROUTINE

:XTHIS ROUTINE ALLOWS

INPUT OF DESIRED TESTS AND

ITERATION

!TEST LIST (TSTLST) AN xrznnrxon VALUE OF O INDICATES
%THAT

THE

TEST

NOT

RUN

!THIS ROUTINE REQUESTS "ENTER
L

OR ITM.

TYPING (L)

:%CAUSES THE
CURRENT LIST
OF
rssfs AND ITERATIONS TO BE
S¥TYPED,
(C) ALLOWS TE
sra AND ITERATIONS TO BE CHANGED
J%AND (1) ALLOWS THE OPERATOR TO PROCEED WITH SELECTION

: ¥0F OPERATING PRRAMETERS,

AND RUN TESTS.

:xTYPING ($C) CAUSES IMMEOIATE RETURN TO DRVTST. TYPING
l

(1Z)

CAUSES RETURN TO ASKTMD.

CZREMDO RKb11-06 SS VERIF |
10-JAN-78 11:48
CZR6MD.P11

CO8

550888?8093

MRCTLL 3QRC10REL 1RAB1EET Inel T ABLTTRES X
HH 33606 3 3 36 3 36 36 36 36 3 36 36 3 3 36 36 36 3 3 36 36 36 36 36 36 36 3 3 36 3 3 3 3 3 36 36 3 3 30 30 36 3 3 3 36 30 3 3 3 3 36 3 3 3¢ 3% 3 3 % % 3% %
DETERMINE L,C,

ASKTMD: TYPE
ggn

VTST
ASKTMD

ngxrno
T

00se7e
001314

64y

000114

00s272

014700
000103

0ose7e2

015016
000111

00se7e

8s:

000137

015340

104401

010450

013732
000032

2s:

005532

i
(o]
W
o

00000000

[

104401
po4737
013732
014600
015016
005700
001426
022737

1(fC)
URN~
ADDRESS
:(42) RETURN ADDRESS

;(fE)
'SEE

ERR?R R;Tunn ADDRESS

ANY

INPU

ASKTMD

:GO ASK AGAIN

TYPE

CMP
BNE
JMP

MP
NE

JMP
MP
NE
JMP
CLR
JSR
JSR
TYPE
TST

4g:

JMP

MPB
ME

' $QUES

#’L,BUFFO
63
LSTTST

8'C,BUFFO

CHGTST
£’ I, BUFFO

INPUTP

164132

TLSTHD

1
PC, PREPKB
PC’ TYPTST
SCRLF
INTCHR

8%
8803,INTCHR
Y
DRVTST

cgaa,xnrcun

Jns

§SKT"89go

MOV

RI R2

380

BNE
BIC
JMP

:TYPE <?> AND <CR>,(LF>

,gss ;F (#) TYPED
(L)
NOT
IF
'BR
:JUMP TO LIST TESTS

Sss EF(;;TYPED
:JUMP TO cnnnce TESTS
EEE }F 3* g
O ECHO BAD INPUT
(x)
N
:GO INPUT PARAMS AND RUN TESTS

.S'S?

87 r%gr R2
eg
$BIT6, ISTKS
ASKTMD
sOFLTST R2

s TYPE HEADING "TEST

ITERATIONSTM

s INITIALIZE TEST INDEX
'PREPARE FOR POSSIBLE KBD INPUT
:TYPE CURRENT TEST AND ITERATION NUMBER
s TYPE <CR>, <LF)>
'SEE _IF ANY INPUT

!BR_IF NO INPUT
;gss }r (4C) TYPED
'BR

NOT (C)

:JUMP TO ASK FOR DRIVES AGAIN

BEE }r
(fZ) TYPED
t2)

:JUMP TO nsx FOR NEW TEST INPUT MODE

?Pgr INDEX
ENCSEE@RT
GET COPY OF INDEX

ET POSBTNSN i" LIST
TH LIST
S
8 arNOT
ISABLE KB

INTE RUPT

:GO ASK FOR NEW TEST INPUT MODE

CHANGE CURRENT TESTS AND Irsnnrxon COUNTS

&HGTST: TYPE

JSR

01 0374
030624

DRVTST

DF TEST

#c ROCHRS

ASKTMD

CHGTST
000104

{READ RE?PSNS

'BR IF ANY INPUT
;ECHO BAD INPUT

BNE

32:

8856
6

000137

:TYPE "ENTER L,C, OR I°

4g
,BUFFQ

BEQ
CMPB

005532

866852
000100
014600

AC,RDCHRS

:ASK FOR TEST INPUT MODE

LIST CURRENT TESTS AND ITERATION COUNTS

014600

G013

ENTLCI

BNE
TYPE

(&TTST: TYPE

026040
031136
001315
005532

000003

oa I MOCE

ASKTST: TYPE' ' ,T1STMDS

010244
010346
030624

005272

'READ RESPONSE

:(#C) RETURN ADDRESS
:(42) RETURN RDDRESS

7ST

CMP

#’'0D,BUFFO

BEQ

:ASK IF TESTS SHOULD BE DEFAULTED

NUL INP

: (#U) OR ERROR RETURN ADDRESS

'SEE IF NULL INPUT

:BR IF NULL INPUT

'SEE IF (D) TYPED

CZR6EMDO

RKG11-06 SS

CZR&MD.P11
4834

4835
483

015046

VERIF

MACY11

10-JAN-78 11:48
00140S

4837

(015050
015054

015060

104401
68%%1

005272
001314

4840
484]
4842

015066
015072
812074

012702
012022
2792

005626

4846
4847

015116

000137
005001

016244

4848

015110
015114

104401

010450

4852

015132

104401

012514

DO8

10-JAN-78

TO - DESIRED TEST
BEQ

4838
4839 81 62 81 700 005670
0756

30R(1052)

12:16

PAGE

SEQ 0373

INPUT ROUTINE

LODFLS

SEQ 0094
:BR

IF DEFAULTS REQUESTED

TYPE
TYPE

,BUFFO
SQ%?

:ECHO BAD INPUT
TYPESM)
QND (CR>, <LF»

MOV
MOV
CMP

#TSTLST) Re
(RQ)+ (ka)+
$DFLTST,

Lono TEST LIST ADDRESS
:LORD A SSFQULT VALUE
,ses IF
DONE
Y

LODFPT
Rl

co LORD DEFAULT PQRRMETERS
INITIRLIZ% TEST INDEX

ono DEFQULT
ITERQT;ON
COUNTS tho
rsgEFAULT
5 LIST ADDRESS
to
MOV
;L
BR

ys:

005670

3833 o{sioo
égag 003116
4845 015135 68123~

?gga
BNE

JMP
NULINP: CLR

TYPE

nganc
ASKTMD

THD

K ncn

EREIFFNOTFRONE
YET
S é N8§ EFRULTMODE
TYPE

HEQD NG "TEST

ITERATIONS"

4849
4850 015122 004737 031136
4851 018126 104401 012474

TYPE CURRENT TEsT nno ITERATION' NUMB
&s:
JSR
157
: TYPE n TEST NO. AND ITERATIGON NO.
TYPE
s#ncsx
'TYPEA SPACE

3853

3 READ nN?sSHECK
%QPHBc Ig ANY
DRVTST

151

YPE

04737 030624

4855 812133 813?32
4856

015144

014600

4529
4860
:gbl
486

0iies
8131?4
815160
01§1EE

993523
825961 000002
010%02 .35626
835?85 uas670

4857

4864
4865
4866
4867

015146

015172
Q015174
015200
015206

4868
4869

015210
015212

4871

015222

4870

4872
4873

015220

oxsegg
0152

4874
4875
4876
4877
4878
4879

016232
015836
015240
015244
015250
015252

4881
4882
4883

015260
015262
015266

4880
4884

4885
4886

015264

ASKTMD

015122

0061353
000137
882737
1431

4889

005002
122760

000041

00S271

105060

005271

0052300

005202

022700

0062433
012796
004737
015326
012600
020027

101022
010061
00S702

015270

001731

015272

010102

015300

022702

015304

108:
005272

00000S
005272
052464
077776

005626

4887 015274 062702 005626
4888

014600
000041

001004

001002

' PROMPT

005666

12%:

BE
RDD
283
CMP

BNE
JMP
CMP
BEQ

: READ

DIGITS TYPED

1(fC) SE kn 3 5 E
1 ($+Z) RETURN ADDRE ss
,(fU)

snnon

RETURN

B Aol TABOT
:INC%EHENT inogx
S TI N IN LIST
;'80$YP
;sgs 19 60 WiTH LIsT

ADDRESS

CLR
CMPB

[
ASKTMD
8’ ! BUFFO
6%
R2
#'! BUFFO-1(RO)

:BR 1r NOT oonc YET
:GO0_ASK
FOR NEH TEST INPUT MODE
'SEE IF (') TYPE
'BR TO PROPAGATE CURRENT ITER.
NO
"INITIARLIZE (') INDICA
:SEE_IF LAST CHAR IN BUF IS (!)

CLRB

aurro 1(RO)

;INSERT

'SET

BNE

DEC
148

3%
%2,R1
R%s?fsr
]
[ R2
$DFLTST,R2

:TYPE ASTERISK AND SPACE

INC

CMP

148’

%5, RO

BLT
MOV
JSR
203
MOV
CMP

RO, 877776

BEQ

108

BHI
MOV
TST

20$
#BUFFQ, - (SP)
PC, OCTBIN

'BR_IF NOT (!)

TERMINATOR BYTE

; DECREMENT
(')

CHAR COUNT

INDICATOR

SEE HOW MANY CHARS NOW

(SP)+.RO

'BR_IF TOO MANY (MAX ITER. NO. = 77776)
:GET BUF ADDR. ON STRCK FOR OCTBIN
;CHECK DIGITS AND CONVERT TO BINARY
'ERROR RETURN ADDRESS FOR OCTBIN
GET %TERQT;?N NUMBER

20$
RO, TSTLST(R1)
R2’

'BR IF TOO BIG
;PUT Irsnnrxon N neen INTO TEST LIST
‘SEE IF
‘BR IF NOT <-

PROPAGATE CURRENT ITERATION NO. TO THE END or TSTLST
ies:
MOV
R1,R2
. COPY INDEX

ADD

cTsTLsr R2

'GET POSITION IN LIST

BNE

178

‘BR IF NOT DONE

CMP

OOFLTST 2,Re

‘SEE IF AT END OF LIST

CZR&EMDO RKB11-06 SS VERIF

CZRE6MD. P11

10-JAN-78 11:48

MACY11l

30A(10S2)

10-JAN-78

EQS

12:16

PAGE 96

SEQ 0374

TO - DESIRED TEST INPUT ROUTINE

4890

015306

000137

014600

4894
4895

(015336
(015332

0CJ671

005272
001314

20%:

018336

'.+4J1
104401

4899

Q15340

104401

010500

{NPUTP:

4901
4902
4903

015350
015354
015360

104401
104401
004737

010626
012514
030624

SEQ 0035

4891 015312 016161 005626 005630 17%:
4832 015320 062701 000062
4833 015324 00752

MOV
ADD
BR

Imp

ASK TMD

ASK FOR NEW TEST

:ggg

TYPE
TYPE

" BUFFQ
' §QUES

:ECHO BAD INPUT
STYPE ¢?> AND <CR>,<LF>

4838

4300 015344 005037 00S512

4904
4905
4906
4907
4908

015364
015366
015370
015372
015374

013732
015344
015344
005700
001005

4311

O0I5406

000756

4909
4910

015376
015402

104401
104401

005272
001314

4912
43913

015410
015416

(022737
001002

000124

4915
4316

015424
015432

(022737
001002

000ii7

015440
015446

(22737
001002

4914

015420

4917

015434

4320

015450

4923
4924

015464
(015472

4918
4919

4921
4922
4925

4326
4927
4328

018484
(015462
015474

4933
4934

015832
015534

4935
4936

(015540
015544

104401
000677

4938

015546

013700

4942

Q015560

4937

4939
4943
494]
4943
4q44
4945

(15552
015554
015556
(Q155e2
(15564
018570

005300
005001
000241

00S272

8%:

CHP
BNE

#’S, BUFFO
10%

10$:

JIMP

JMP

JIMP

CMP
BNE

CMP
BLE

TYPE

00S7S4

12%:

010757

005742

148:

010771
010740

:JUMP

SETPRM

:JUMP TO THE SET INDIV. PARAM. ROUTINE

#'R,BUFFO
2%

S0,S1
12¢

SECNL1

THE

OPEN

SEE IF (S) TYPED
'BR IF NOT (S)

,SECNL2

‘TYPE

“sa>sa”

20$
, TRKNLW

'BR IF FT NOT > LT
STYPE “FTOLT*

TYPE
BR

*NOTALD
ASKMDE

MOV
DEC
CLR
¢Le

W, RO

RO’
R1

ROL
ADD
ADC

R1
MA.RO
Rl

ECHO

ROUTINE

BAD

INPUT

:COMPARE 20(DEC) SECTOR LIMITS
'BR IF SO NOT > Sl
“S0)S1

*NOTALD
ASKMDE
FT, LT

LIST

'SEE IF (R) TYPED
"BR IF NOT (R),
TO
s TYPE

TYPE
BR
CMP
BLE
TYPE

*JUMP TO THE TYPE LIST ROUTINE

OPNLST

ASKMDE
52,63
144

NOT_ALLOWEDTM

:GO ASK AGAIN FOR PARAMETERS
: COMPRARE 22 (DEC) SECTOR LIMITS
,BR IF S2 NOT > S3

:TYPE “NOT ALLOWED”
:G0 ASK ncnxn FOR PARAMETERS
: COMPARE cnossn rnncx LIMITS

STYPE "NOT ALLOWED”
G0 ASK AGAIN FOR PARAMETERS

. CHECK WORD COUNT RGAINST PHYSICAL MEMORY AVAILABLE

20s:

ROL

005762

TYPLST

BR
CMP
BLE

TYPE

010740

006100

006101
063700
005501

<(CR>,<LF>

:SEE IF (0) TYP
'BR _IF NOT (O)

010727

005766

:GO0 ASK ARGAIN

#'0,BUFFO
8%

005750

00S740

ASKMOE

CMP
BNE

00S746

003405
104401

6S:

023737
003403

104401

'ECHO BAD IM
STYPE <?> AND

:(fC) RETURN ADDRESS
:(#2) RETURN ADDRESS
1($U) OR ERROR RETURN ADDRESS
ISEE IF NULL INPUT
'BR IF ANY INPUT

005272

104401
000710
023737

TYPE
TYPE

RO
4s
,BUFFO
$QUES

DRVTST
ASKMDE
ASKMDE
157
BNE

;ASK_FOR DESIRED INPUT MODE
'TYPE "%
' RERD RESPONSE TO MODE QUESTION

'SEE IF (T) TYPED
:BR IF NOT (T)

000122

Q015516
015522
(015524

- PARMDE
' PROMPT
PC,RDCHRS

#’T,BUFFO
6%

016464

00S752

: INHIBIT STALL BETWEEN OPERATIONS

TYPE
TYPE
JSR

CMP
BNE

000137

104401

QTnLLs

INPUT MODE

SEXPLAIN INPUT MODES

4S:

016200

Q22737
001345

XPLAN

005272

000137

000721
023737
003405

015512

4930
493]
4932

2%:

015726

015500
(015502
015510

4929

nsxnos CLR

000137

000123

:GO0 ASK AGARIN

ASK_FOR ossxnso OPERRTIONQL PARAMETER

TYPE

INPUT MODE

TSTLST(RI) chLsf+a<n1) Pnopncnrs TG NEXT WORD
: INCREMENT INDE
15&
'BR TO couvxnus

WORD COUNT LO BITS
'DECREMENT BY 1
*WORD COUNT
HI BITS
:CONVERT WORD COUNT TO BYTES

:ADD

WORD

COUNT

(WC)

MEM.

ADR.

(MA)

CZRBEMDO RKB11-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48
4946

494?
4948
4949
4350
495l
4952
4353

015572

015576
(15602
(15604
015606
Q015ele
(15614

063701

020137
161004
001006
020037
101403
104401

(015620

000651

4385
4956
4957
49Sg
4959
4960

Q15622
015626
015630
(015634
015640
Q015642

004737
015634
000137
105737
001773
104401

4962

015652

015634

015664

001405

4954

4361

4363
4964
4965

4966

4967

4968

015646
015654
015656
015660
015666

0156

004737

006126
011003
016720
000041
007443

30%:
36%:

030624

104-01

005272

4972
4973

015710
015712

000747
122737

000116

:g;g

015722

000137

015344

4974

015720

001362

000131

JSR
368
JIMP
1ST8
BEQ
TYPE
JSR

369%

368
363
CMP

37%:

001314

000756
122737

CMP
BHI
BNE
CMP
BLOS
TYPE

MA+2,R1

R1,MAHILM+2
264
288
RO, MAHILM
2e$
WCEBIG
ASKMDE

.GAVE XXDP LORDER,

28$:

000001

001001

268:

027000

015676
015700
015706

ADD

006130

4969
4370
4971

MACY1l 30A(1052)
10-JAN-78 12:16 PAGE 97
TO - DESIRED TEST INPUT ROUTINE

005764

015634
015634
022700

104401

FO8

005272

RUNTST
Nyl
308
OVLODR

IREAD RESPONSE

%1, RO

:(#2)
RETURN ADDRESS
' ($U) OR ERROR RETURN RDDRESS
'SEE_IF 1 CHAR_TYPE

BUFFO

!ECHO BRD INPUT

38d

TYPE

' $QUES

TYPE

38%:

BR
cMP8

40S:

BR
CMPB

BNE

: COMPARE HI BITS
,BR IF WC TOO BIG
:BR IF WC IS OK
: COMPARE LO BITS
'BR IF WC IS OK
STYPE "#% WC OR MA TOO LARGE"
:GO BACK TO RSK AGAIN FOR PRARAMS
GO SAVE XXDP LORDER 1F NECESSARY
:*NO SAVETM RETURN_ ADDRESS
:JUMP TO THE RUN TESTS ROUTINE
:SEE IF LOADED BY XXDP
:BR IF NOT
:TYPE “OVERLAY LORDER ? (Y OR N) #"

#C,RDCHRS

BEQ

JMP

4977
4978

IF NECESSARY

P, CHKXDP

SEG 0375
SEQ 0096

:(1C) RETURN ADDRESS
'BR IF 1 CHAR TYPED

63
8'Y,BUFFO

:GO_ASK AGARIN
;SEE_IF (Y) TYPED

303
%’'N, BUFFO

:GO RUN TESTS
:SEE IF (N) rvpso

40$

378’

ASKMDE

:BR IF NOT (N

:GO ASK FOR PQRQMETERS AGAIN

.SBTTL

4981

LIST ROUTINE

:%CONSOLE, LINE BY LINE. EACH LINE HRS THE FOLLOWING

:¥THIS ROUTINE TYPES THE ENTIRE PARAMETER LIST ON_THE

4982

lFORMQT

4983

XX=YYYYYY

NHERE XX ISA PARAMETER MNEMONIC

‘%AND YYYYYY IS THE VALUE OF THE PARAMETER IN OCTAL.

4384

'%TYPING_(1C) CAUSES_ IMMEDIRTE RETURN TO DRVTST,

:ggg

"%AND (t2Z) CAUSES RETURN TO ASKMDE.

4987

015726

4989
4990
4991
4992
4933
4994
4995
4935
4997
4938
4999
S000
SO0l

(015730
(15734
015740
(15744
(015750
Q15752
(15760
(015762
(015766
(015774
(15776
016002
016006

4988

(T)

(Y)

4979

4980

TO - TYPE

!BR IF NOT

015726

005001

004737
004737
104401
005737
001420
122737
001002
000137
122737
001002
000137
004737
004737

TYPLST:

026040
031172
001315
005532

18:

000003

005532

013732
000032

005532

015344
026060

026040

4$:

B%:

CLR

JSR
JSR
TYPE
TST
BEQ
CMPB
BNE
JMP
CMPB
BNE
IMP
JSR
ISR

PC, PREPKB
PC’ TYPPRM
$ERLF
INTCHR
8%
8003, INTCHR
4§
CRVTST
#032, INTCHR
6%
ASKMDE
PC, ECOBARD
PC., PREPKB

s INITIALIZE INDEX

:PREPARE FOR POSSIBLE KBD INPUT
TYPE cunnsnr PQRQMETER AND VALUE
“TYPE (CR>, <L
:SEE IF ANY INPUT AT KBD
'BR_IF _NO INPUT
'SEE IF (#C) TYPED
'BR IF NOT (tC)
:JUMP TO ASK FOR DRIVE(S) AGRIN
:SEE IF (12) TYPED
'BR IF NOT (2)
:JUMP TO nsx roa NEW MODE
:ECHO BRD IN
:PREPARE FOR POSSIBLE kBD INPUT

l2
Sg

02276l
00100e

n B

Bt Bt Bt B

000000000000

CZR6EMDO RKB11-06 SS VERIF 1
.P
10-JAN-78 11:48
CZReMD

000002
000002

8%:
108:

n
n
~N
W
~N

o
&£

104401
005001

VU‘U‘U‘U\W&IU“?NH'—O
Fadyldudaldalids]
OINI%U"&

000137

NN N
0O

100000

005760

000100
015344

163060

izs-

005532

148:
005532

01373¢
000032

005532

015344
026060
026040
031ese
001315
000002

16%:

188:

20%:

000137

cMP

PAGE 98

#"MA, PRMNEM(R1)

BNE
ADD
ADD
MOV

108
#2,R1
EMD
RI R2

BNE
BIT
BNE
BIC
IMP

15
cexrls PT
Ss
#8176, ISTKS
ASKMD

TYPE

CLR

TST
BEQ
CMPB
BNE

JIMP

CMPB

BNE

JIMP

#PRMLST, R2
#PRLFLT. R2

162750

PFIFTN

INTCHR
20%
$003, INTCHR
169

DRVTST

8032, INTCHR
18%

ASKMDE

JSR

PC, ECOBRD

ADD

SCRLF
k2.
R

BNE
BIC

14§
#BIT6, 3STKS

JSR
JSR
TYPE

CMP

000040

000100
015344

(T)

;SEE

SEQ 3376
SEQ 0097

_IF PARAM.

(MA)

;BR_IF NOT (MA)
: INCREMENT PRRAMETER INDEX
: INCREMENT PARAMETER INDEX
:GET COPY OF INDEX
COHPUTE PaEITION IN LIST
ITH LIST
,SEE IF DO
;BR_IF NOT DONE YET

DISRBLE K3D INTERRUPT
:JUMP TO ASK FOR NEW MODE
TYPE OUT USER-DEFINEO PATTERN 15

011116

000003

GOS8

12:16
LIST ROUTINE

10-JAN-78

ADD
CMP

05732
05776

e
Bt Pt Pt
Pt P
e Dot Pt ot s Pt Pt P

e ot

e e Bt Pt o Bt pt e

0000000000000 000000

006152

IMP

PC,PREPKB
PC’ TYPPAT

caé Rl

ASKMOE

"USER-DEF INED PATTERN 1S

INI IALIZE WORD_INDEX
ISEE_IF ANY INPUT
BR IF_NO INPUT
:SEE_IF (fC) TYPED
iBR IF NOT (1C)
JUHP T0 RSK FOR BRIVE(S) AGAIN

:”

t2)

JUHP TO ASK FOR NEW MODE
:ECHO BAD INPUT
»PREPARE_FOR POSSIBLE KBO INPUT
:TYPE WORD XX = YYYYY
TYPE (CR>, <LF>
: INCREMENT" INDEX
‘SEE IF 16 WORDS TYPED
‘BR_IF NOT DONE_YET
:DISABLE KBD INTERRUPT
:JUMP TO ASK FOR NEW MODE

ROUTINE
TO - OPEN (0) ) LIST LIST R
IS US ED 10 EITHER REQUEST Lonoxnc OF ALL
T0
: DEFRULT PARAME TERS INTO THE PARAMETER LIST

.SBTTL

*THIS

ROUTINE

EACH PARAMETER FOR RLTERhTION BY

lSEQUENTIRLLY OPEN
TETTY INPUT.
ING (4C) CAUSES IMMEDIATE RETURN TO
: ¥DRVTST, nno (fZ) c AUSES RETURN TO ASKMDE.
OPNLST:

TYPE

PC,ROCHRS

S
BEG
CMP

RO
NOTDFT
#’'D,BUFFO

DRVTST
ASKMDE
CPHLST

000104
005272
001314

005272

DFQUES

JSR

BEQ

LODEPT

TYPE

' $QUES

TYPE

B8R

aurro

OPNLST

;ASK IF ALL DEFAULT VALUES DESIRED

‘READ RESPONSE TO DEFAULT QUESTION
:(4C) RETURN ADDRESS
:(42) RETURN ADDRESS
: (#U) _OR ERROR RETURN ADDRESS
{SEE _IF NULL INPUT
:BRIF DEFRULTS NOT REGQUESTED
,SEE IF (D) TYPED
-4

0000000000000

M
N0 U £
D

—
[y S SNy
Dy

AN
UK
00000000 O

040S1S

MACY11l 309(1052)
TO - TYPE

;BR IF DEFQULTS DESIRED

:ECHO BRD INPU

:GO ASK RGRIN

CZR&EMDO RKBL11-06 SS VERIF

CZR6MD.P11
5058

€059

0l1k244

10-JAN-78 11:48

012700

012702
012022
022702
001374
105737
001005
012737
000137
000137
005001

MACY11

016250
016254
016256
016262
016264
016270
016272
016300
016304
016310

6073

016322

104401

012514

016326

004737

030624

005776

003116
025474

5071 016312 004737 031172
5076
5077
5078
5079
080
081
082
5083

5084

5085

5086

016332
016334
015338
01634
016342
016344
016352

013732
015344
16312
05700
001007
022761
001023

016360

000420

016354

816362

016366

040515

062701

000002

8 2700

000010

2431

087
5088
5089

016370
016374
016400

012746
004737
016452

005272
052464

5091
5032

016406

013737

0S2616

€094

016420

016452

5030

5083

016402

012637

005476

004737

031630

016426

062701

000002

016440
016444

022702
001322

005776

016452
016466
0ie4e2

104401
104401
000713

005272
001314

016414

5035
6096 016422 004737 031304
5097
098

5099

016432

016102

e
e
s
ot
e
e
s Pt
e
e ot
e

= 000000000
WOV
NN LW

owvwwvnnvnn

000137

015344

JSR

TYPE

SEQ 0377

SEQ 0098

#PRDFLT, RO

LOAD DEFAULT LIST ADDRESS

YPPRM

s TYPE PARAMETER AND VALUE

s#ncsx

PROMPT

:READ AND CHECK INPUT IF ANY
JSR
PC, ROLHRS

O0061S:

10%:

:TYPE ARSTERISK AND SPACE

:READ OCTAl DIGITS TYPED

RO
108
8”MA, PRMNEM(R1)
128

:($C) RETUI'N ADDRESS FOR RDCHRS
'(#Z) RETUIN RDDRESS FOR RDCHRS
($U) OR ERROR RETURN ADDR. FOR RDCHRS
‘SEE IF ANY INPU
:BR_IF ANY
T
;SEE IF (MA) JUST DEFAULTED
'BR_IF NOT
(MA)

12$

;BR_T novs

4’

‘BR IF

cMP

BLT

MOV
JSR
148

005500

:TYPE A SPACE

DRVTST
ASKMDE
gs
15T
BNE
CMP
BNE
ADD

82 ,R1

810 RO

OBUFFO -(SP)
PC, OCTBIN

;INCREHENT INOEX

0 NEXT PARAMETER

' SEE ;F Eunancrsn§
TYPED

THAN

:PUT BUFFER_ADDR. ON srncx FOR OCTBIN
:CHECK DIGITS AND CONVERT TO BINARY
,ERRO RETURN RDDRESS FOR OCTBIN

MOV

(SP)+,LOWOCT

'GET LOW BINARY BITS

JSR

PC, CHKPRM

,CHECK VALIDITY OF PARAM VALUE

MOV
sHIOCY,HIGOCT
;GET HIGH BINARY BITS
; CHECK PARAMETER VALUE' AND PUT 1h76 L15T
148

RETURN RDDR. FOR CHKPRM
OPEN USER- oerrnso PATTERN 15 Foh RROR
MODIFICATION,
IF NECESSARY
i2s:
JSR
MODP 5
:MOVE ON TO NEXT PARnnETER
RDD

MOV

ADD

RI.R2

IE,Rl

: INCREMENT THE PRRAMETER INDEX

CMP
BNE

TYPE
TYPE
BR

ASKMDE

:SEE IF DONE WITH LIST
:BR IF NOT DONE YET

148

JIMP

#PROFLT,R2
8%

,BUFFO
' §QUES
83

:ECHO BAD INPUT
STYPE <?> AND <CR>,<LF>
'BR TO ASK AGAIN

.SBTTL

TO - SET (S)

5100 016434 062702 005732
016446

PAGE 99

MOV
sPRMLST| R2
:LOAD PARAMETER LIST ADDRESS
4g:
MOV
(RO)+, (R2)+
:LOAD A DEFAULT VALUE
CMP
sPROFLT,R2
:SEE IF DONE YET
BNE
4¢
'BR IF MORE anuss TO LORD YET
TSTB
MDFLAG
:SEE IF DEFRULT MODE
BNE
68
‘BR_IF NOT DEFRULT MODE
MOV
81, SEOPCT
'SET PASS couw =1
JMP
STPASS
:G0 RUN DFLT TESTS
6%:
ImP
ASKMDE
:JUMP TO ASK FOR NEW MODE
NOTDFT: CLR
R1
:INITIRLIZE INDEX
TYPE GURRENT PRRQHETER anpD vALUE

8s:

6072 016316 104401 012474
5074
€075

12:16

TO - OPEN (0) LIST ROUTINE

{ GOFPT: MOV

005732

000001
017002
015344

HOS8

10-JAN-78

LOAD ALL DEFAULT VALUES INTO PARAMETER LIST

005776

060
06l
062
5063
5064
S06S
066
S067
5068
5069
5070

30RA(1052)

; ¥THIS ROUTINE

cPhanr R2

'GET COPY OF INDEX

:COMPUTE POSITION IN LIST

:JUMP TO ASK FOR NEW MODE

INDIVIDUARL PARAM ROUTINE

IS USED _TO ALLOW SEITING OF ANY INDIVIDUAL

: ¥PARAMETER VALUE BY TTY INPUT. A PROMPTER (>) IS
"%¥TYPED AND THE ROUTINE WAITS FOR INPUT OF THE FORM

CZR6MDO RKB11-06 SS VERIF 1
CZREMD. P11
10-JAN-78 11:48

108

MACY11 309(1052)
10-JAN-78
12:16
PAGE 100
TO - SET (S) INDIVIDURL PARAM ROUTINE

5114

s% XX=YYYYYY,

8117
5118
5119

: #¥PARAMETER BY TYPING *> " AGARIN. TYPING ($C) CAUSES
:#IMMEDIATE RETURN TO onrsr AND ($2) CAUSES RETURN TO
: #ASKMDE.

5118
8116

§120
5121

6122

5123
S124
5125
§126
§127
5128
§129
§130
5131
6132
S§133
5134
5135
S136

6137
138
6139
5140

N16YeY

016464

104401

012517

016470
016474
016476
016500
016502
016506
016510
016514
016520
016522
0168526

004737
013732
015344
016464
020027
062005
104401
104401
000761
020027
003370

030624

016530

005001

SETPRM:

005272
001314
000013

023761
OOC1411
062701
010102

00S272

142

016554

(022702

Sl44

016562

146

016564 012702 000002

006152

8%:

5145

00i364

016570
016576
016600
016606
016610
0l66l2
016620
016622
016624
016626
016630

122762
O00IN1l
122762
061340
005202
122762
001333
005202
020200
002330
122762

159
5160
5161
5162
S163

016640
016642
016644
016646
016650

005202
0620200
002321
160200
020027

5158

164

016636

001003

s INITIALIZE PARAMETER INDEX

sphanr R2

'SEE IF ALL ENTRIES HAVE BEEN CHECKED

:BR IF MORE TO CHECK YET

005776

CMP

$PRDFLT.R2

ADD
BNE

005272

000040

005272

000075

005272

ios:

12%:
000040

000010

S166

016656

062702

005272

€168
5169

016664
0O16E70

004737
016510

052464

CHECK FOR VALID LINE FORMART

000075

003315

€167 016662 010246

CLR

000002

016654

5165

s TYPE "> " PROMPTER

BUFFO,PRMNEM(R1)’: TRY TO MATCH 2-CHAR MNEMONIC
108
QR IF PARAMETER FOUND IN TABLE
#2,R1
P INCREMENT INDEX
RI’ R2
:GET COPY OF INDEX

000752

S147
5148
5149
5150
6151
§152
153
164
S155
6156
€157

PRMPSP

CHP
BEQ
A0D
MOV

5141 016550 062702 005732
016560

TYPE

:READ AND CHECK tnpur IF ANY
JSR
C, ROLHRS
:REARD INPUT LINE
DRVTST
:($C) RETURN ADDRESS FOR RDCHRS
ASKMDE
1 (42) RETURN RDDRESS FOR RDCHRS
SETPRM
:(#U) OR ERROR RETURN ADDR. FOR RDCHRS
CHP
RO, #4
‘SEE IF AT LERST4 CHARACTERS TYPED
BGE
6%’
'BR IF AT LERST 4 TYPED
4g:
TYPE
,BUFFQ
'ECHO BRD INPUT
TYPE
' §QUES
*TYPE <?> AND <CR), (LF)>
BR
SETPRM
:BR TO ASK FOR INPUT AGAIN
6%:
CMP
RO, #11.
:SEE xr ELEVEN OR LESS cunas TYPED
BGT
ys'
*BR IF MORE THAN ELEVEN TYPED
:SEE IF THIS MNEMONIC RESIDES IN’PARAM MNEMONIC TABLE

000004

016532
016590
016542
016546

5143

WHERE XX IS THE MNEMONIC FOR ANY VALID

:%PARAMETER IN THE LIST, AND YYYYYY IS THE DESIRED PARAMETER
%VALUE IN OCTAL DIGITS. THE PROGRAM THEN ASKS FOR ANOTHER

005272

MOV

s INITIALIZE BUFFER POINTER

CMPB
BEQ
CMPB
BNE
INC
cMPB
BNE
INC
CMP
BGE
CMPB

#’% BUFFO(R2)
128’
8040, BUFFO(R2)
4§
R2
#'= BUFFO(R2)
4§
R2
R2, RO
4g
8040, BUFFO(R2)

:SEE IF NEXT CHAR IS "=
'BR IF IT IS “= "
:SEE_IF NEXT CHAR IS A SPACE
'BR TO ECHO BAD INPUT
: INCREMENT BUFFER POINTER
;SEE_IF NEXT CHAR IS "=*
'BR TO ECHO INVALID INPUT
: INCREMENT BUFFER POINTER
'SEE_IF MORE CHARS LEFT IN BUFFER
'BR TO ECHO INVALID INP
;ses IF NEXT CHARACTER xs SPACE

INC
CMP
BGE
SuB
cMP

R2
R2,RO
4§’
R2,R0
RO, %10

: INCREMENT BUFFER POINTER
:SEE IF MORE CHARS LEFT IN BUFFER
'BR_IF NONE LEFT
*SUBTRACT POINTER FROM cnnn COUNT
{SEE HOW MANY CHARSLEFT

BNE

148:

#2,R2

'BR TO ECHO BRD INPUT

BGT

149

ysg'

:BR _IF NOT A SPACE

:BR IF TOO MANY LEFT

: CHECK FOR LEGAL PQRRMETER VALUE'
ADD

MOV
JSR
43

$BUFFO,R

:GET ADDRESS OF DIGITS

PC.OCTBIN

:CHECK DIGITS AND CONVERT TO BINARY
:ERROR RETURN ADDR. FOR OCTBIN

R2,-csfi)

'PUT IT ON STRCK FOR OCTBIN

SEQ 0378
SEQ 009

005476
052616
031630

MACY11

T0 -

SE T

(S )

Ja8

12:16

IN DIVIDUAL

MOV

MOV
JSR

4§

PAGE

101

SEQ 0379
SEQ 0100

PARAM ROUTINE

(SP)+,LOWOCT

S$HIOCY HIGOCT
PC, CHKPRM

:GET LOW BINARY BITS

:GET HIGH BINARY BITS
:CHECK VALIDITY OF PARAMETER VALUE
ERROR RETURN ADDR.

FOR CHKPRM

; OPEN USEgRDEFINgD ng;ggN 15 FON MODIFICATION, IF NECESSARY
BR
SEfFRM
;RETURN TO ASK FOR ANOTHER PARAMETER

031304

.SBTTL

70 - RUN (R)

TESTS_ROUTINE

; #THIS ROUTINE IS ENTERED TO SET UP THE RUNNING OF TESTS,

: #WHOSE PARAMETERS HAVE BEEN DETERMINED. IT FIRST ASKS
:%FOR_THE DESIRED NUMBER OF PROGRAM PASSES, AND STIRES

:#THIS IN SEOPCT FOR THE END OF PASS ROUTINE. THEN THE
:¥ORIVE LIST 1S SCANNED FOR THE FIRST DESIRED DRIVE

; #THE HEADER ON SECTOR 0_IS_READ TO GET THE FORHQT ¢0R THIS
:%DRIVE, THIE ;s
IN THE FORMART BYTE, AND
A JUMP IS
FIRST
:#THE END OF PASS ROUTINE RETURNS TO “"NEWDRV” TO SELECT
: ¥EARCH SUCCESSIVE DRIVE FOR TESTING, UNTIL THE ENTIRE PASS

:¥MADE TO THE
‘%

016720
016720

(ALL DRIVES)

IS COMPLETED.

RUNTST

104401
004737
013732
015344
016720

5202

INPUT THE ossxnso NUNBER OF PROGRAM PASSES

242
624

00000S

6%:

00se72
001314

8%:

00se7e
0Se4eH
001763

025474

00s037
112737
012737
005037

001326
000001
177777
001330

012737
012706
105037
005037
005237
022737
oco1002
000137

000000
001100
003130
005532
00ss510
000010
D2s442

TYPE

JSR

TPAS

#c ROCHRS

ASK FOR NUMBER OF PARSSES

:READ RESPONSE

DRVTST
ASKMOE
43
15T
BEQ
CMP
BGE

85, RO
8s’

:(fC) RETURN ADDRESS
:($2) RETURN ADDRESS
:(#U) OR ERROR RETURN ADDRESS
:SEE IF NULL INPUT
1GO_ASK AGAIN
'SEE HOW MANY CHARS TYPED
:BR IF 5 OR LESS

TYPE
BR

' §QUES
4g

;GO_RSK_RGAIN

JSR
68
MOV
BEQ

PC, OCTBIN

(SP)+, SEOPCT
6%

CHECK DIGITS AND CONVERT TO BINARY
'ERROR RETURN ADDRESS FOR OCTBIN
‘SET oesxnso NO. OF PRSSES (1-77777)
‘B
0 ASK RGAIN

CLR

s ss

s INIT. THE PRSS

CLR

SDEVCT

MOV

ssrnéx SP

TYPE

MOV

,BUFFOD

:ECHO BAD INPUT

$BUFFO, - (SP)

GET BUF ADDR ON STACK FOR OCTBIN

THIS IS THE ACTUAL START OF A RON NITH k Pnsss

0031
00ssS

[agA]
00

ni
n oD
n U =t 0t et Bt P s Bt Pt Pt
— OO
LW

30A(1052)

005S00

Ws—
O

wn i g n
n TV 0= 0t et Pt Pt Pt s Pt Pt s st P Pt it Pt Pt ot Pme Pt Pt Bt Dot ot Prct Pt ot Pt Pt s [
o O WD WO DO
DD
GO DDA
I~ NNNNNNN ~
—
OWVONCNLWAI—OVONCNLWN—-OVONICN LW+ o

CZREMDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZRBEMD.P 11

10-JA N-78

177776

005510

&TPASS:

MOVB

NEWPRS: MOV

TING

81?77?7 DRIVE

NUMBER

ISET_“RUNNING TESTS“ FLAG

;%NITIRLIZE DRIVE NO. TQ -1

CHECK DRIVE LIST FOR MORE DRIVES TO TEST ON THIS PASS

NEWDRY:

MOV

#PS

; RE-ESTRBL ISH PRIORITY o

;RESTORE_THE STA

CLRB
CLR
INC
CMP

DRVERS'
INTCHR
DRIVE
#10,DRIVE

*CLEAR ERROR count FOR CURRENT DRIVE
:CLEAR TTY INPUT BUFFER WORD
: INCREMENT DRIVE
NUMBER
'SEE IF DONE WITH THIS PASS

JMP

OUNPRS

:JUMP IF DONE WITH THIS PASS

BNE

:BR IF NOT DONE CHECKING LIST

CZR6MDO RKbB11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

S226
5227
S228

5229
5230
5231
S232

017070
017074

013700
105760

00SS10
00S606

017102
017106
017112
017116

105037
005037
105760
001077

001102
001304
00S616

(017100

0017Se

5233
5234
5235
5236
5237
5238
5239
5240
Sa41
Se42
Sa43
Se4y4
Se4s
5246
Se47
5248
Se49
S2S50
SeS1
Se2se
5253
gggg

017120
017124
017132
017140
017146
Q017154
017162
017170
017176
017204
017212
Q17220
017226
017234
Q017242
017250
017256
017264
017272
017300
017306
017314

105037
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
Q12737
000477

003124
000625
000631
000631
000
000632
0006
000632
0006
000633
0004
001000
00002S
010025
010125
000002
110244
017500
000000
022370
000001

5256
5257
5258
5259
5260
Sebl
Seee
5263
S2e4
SeeS
Sebe
5267
5268
See9
5270
S271
gg;g

017316
017324
017332
017340
017346
017354
017362
017370
017376
017404
017412
017420
017426
017434
0l7442
017450
017456

152737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737
012737

0000CY
001451
001455
001455
001456
001456
001456
001456
001456
001457
001000
002000
002025
012025
Q0l21eS
000012
016104

S274
S2?7S
5276
Se7”
gg;g

017484
017472
017500
017506
017514

012737
012737
012737
012737
010037

014544
000000
012530
000001
001332

Se80
5281

017520
017524

004737
112765

027522
000125

MARCY1l

30R(1052)

TO - RUN

es:

KO8

10-JAN-78
12:16
(R) TESTS ROUTINE

PAGE

DRIVE,RO

:GET NEW DRIVE NUM

NEWDRY
STSTNM
STIMES
DTYLST(RO)
18

sBR_IF NOT MRRKED, TO CHECK RANOTHER
SINIT TEST NUMBER’ TO O
:INIT ITERATION COUNT
SEE IF RKO?
‘BR IF YES

ORVLSY (RO

TYPFMT
%625, LCMS
8631, LCM1
8631
, PRMLIM+2
#632.LC

017754
017756
006044
005734
017760
006000

102

‘SEE IF THIS DRIVE IS MARKED IN LIST

'ELSE LOAD ALL RKOB PARAMETERS

8632, LSTCYL
#632
. PRDFLT+2
8632 PRMLIM+6
#8632, PRMLIM+12

8633, LCP1
#400. HOLD1

#1000, HOLD2
225 HOLD3
#10025,
HOL DY
810125’ HOLDS

82, HOLD6

007eeH
003124

1%:

s1102494, HOLD?
#8000.,MAXL02
80, MAXAI2
89464.,MAXLOY
5§,nnxfixq

;8000 US FOR RKOG
:
;75000 US FOR RKOG
:

TYPFMT
#8.CDT,
?qg

:LORD ALL RKO7 PRRAMETERS

#14951,(CMS

s 1455 "LCM1
M 1455 ' PRML IM+2

:1455 LC

1456, LSTCYL

|} 1486 'PROFLT+2
] 145 6. PRML IM+E
8 145 6. PRMLIM+12
] 145 7.LCPI

#1000, HOLD1
#2000, HOLD?2
#2025 HOLD3

812028,
HOL D4
#12125) HOLDS

812, HOLDG
#16104, HOLD?

#6500. , MAXLO2

007224

000001

80, MAXAI2
#5464. , MAXLOY
81, MAXAIY

:6500 US FOR RKO?

171000 US FOR RKO?

:SET DRIVE NO FOR APT
RO, SUNIT
MOV
; RERD THE HERDER ON SECTOR 0, TRACK 0,CYL 0, AND GET THE DRIVE FORMAT
JSR
PC, INI
INITSS
; IN 1t. DRIVER PRRAMS AND S.S.
MOvB
#ROHERD,P.CMND(RS) ;SET READ HEADER COMMAND

3$:

SEQ 0383
SEQ 010!

10-JAN-78 11:48

4737

MACY1l 30R(1052)

2585 8 7§3§ 8?37?2 819958
6284

(017542

032712

10-JAN-78

T0 - RUN

000200

4§ :

785
712
017772
2582
917288
BR4%7
3587 81;2 y 88?755 000200

(R)

12:16

TESTS ROUTINE

JSR

PC,DRVCA

BIT

#BIT7. (P2)

nSv

PAGE 103

SEQ 0381

SEQ 0102

0 READ

HERDER

H8183 (R2)

ssuE Bo WITH FMT BIT = 0O
CHECK FOR c. RERDY IN CS1

MOV
Hoy
1T

HOLDY, (R2)

Ho
$BIT7. (R2)

SSUE
R
IE RDNOT HDRRQY WITH
YeT FMT BIT = 1
'CHECK FOR C. RERDY IN CS1

2500
gossie
2537 O1726E
Ri%e8% 813937
Bio%7 90o¥e2
BB2%e5 BB22iS

soe
Moy

GonFal
23f2

INLTIALIZE FORMAT BYTE 10 Oc ) SECTOR FMT

5293

csxre RKDB(R2)

6%:

6232

017602

6234

017614

5295

005762

017606

032762

017616

155737

001411

000024

BIT

000020

003125

BIS8

005750

005520

017624

013737

005746

5298
299
6300

017640
017646
017652

013737
004737
004737

0057?72
027522
036674

5304

017676

005737

001326

6306

017704

004737

032134

6301
30
30

6305

017632

017656
8175 4
17672
017702

6307
6308
€309
6310
6311
312

017710
017714
017722
017724
017730
017734

6314
ggig

017742
017750

S313

013737

113737
152737
104401

001012

037164
005532
003136

112737
000137

000021
024516

001420

§317

0177?54

000000

§321
€322
€323

017764
017766
017770

€318
319
6320

324
325
6326
€327
€328
5329
6330

005510
0000e0
011351

004737
032737
001402
004737
005037
105737

017740

TST

001000

€236

6297

£Q

032254
000020

005516
00SS12

8$:

011370
011370

MOV

S0,FS

MOV
JSR
JSR

ST,STALLS
PC.INITSS
PC . REDBSF

MOV

LCMS:

BNE

108

$PAssS

PC, DRVSER

JSR
BIT
BEQ
JSR
CLR
TSTB

PC’ CRTSER
#81Ty4,CS
108
PC TYPBSF
INTCHR
DULRCS

MOVB
JMP

%21 STSTNM
RWDYST

000000
000000
000000

LCMlI:
LSTCYL:
LCPLI:

O
O
O

017772
017774
017776
020000

000000
000000
000000
000000

HOLDY:
HOLDS:
HOLDGE:
HOLD?:

O
O
O
O

HOLDl:
HOLD2:
HOLD3:

S1,LS

DR}VE DRVNO
2’0 Bkvno
TSYORN

017756
017760
017762

000000
000000
000000

#B.CFMT,FORMAT

MOVB
BISH
TYPE

BEQ

001102

RKOB(R2)
8%

JSR

108 :

[]

BEQ

TST

005770

O
O
O

TST

‘BR IF NOT RDY YET
:POP SILO ONE TIME

:TEST FORMAT BIT IN HERDER WORD 2
"BR_IF 22 SECTOR FOR

:SET 20 SECTOR FORHRT FOR THIS DRIVE

*INIT SECTOR LIMITS FOR 20(DEC) SECTOR FMT
,SET nunBER OF UNIT STALLS DESIRED
SINIT THE
: READ ano SECTOR FILE FOR THIS DRIVE

;GET DRIV
'CONVERT
To RSCII
.
S TYPE "TESTING DRIVE X'

ses }F ag F;Rsr PASS
1

NOT FI

TYPE “DRIVE SER.

XXX*

STYPE "CART. SER. NO. XXXXXXXXXXX"
SEE xF aao SECTORS SHOULD BE TYPED
:BR_IF NOT
TYPE eng S%CTOR ILES
SINIT. TTY INPUT CHAR BUFFER
sss IF DURL-RCCESS FLAG SET
F NOT

ser TEST NO.
:JUMP TO R/W DATA TEST
:LAST CYL-S

*LARST CyL-1
:LAST CYL 632 FOR RKDOG&, 1456 FOR RKO?
:LAST CyL+1

cznsnoo RK611-06 SS VERIF 1

CZREMD.PL1

LA3

MACY1l

MOS

30R(1052)
10-JAN-78
12:16_
PAGE
Tl
RECALIBRATE/SEEK TEST
R

ITI T

;:TEST

ITTIET IR ITSATTIITTT SIS IS

SEQ_gJ382
SEQ 0103
ILI2

RECALIBRATE/SEEK TEST

2222222222222 2 3338222 2%

THIS TEST PERFORMS R RECALIBRATE, FOLLOWED BY A

t
;l

Be8885 312937

104

SEEK TO CYLINDER LC.

;s§§§i§§iéssgiliilia;i;ii!iliiililiiliii!i;lll!li;!l;lil!ii!illii
001324

02001e
020016
020022

004737
004737
000137

000001
030462
030530
020062

020026
020032

004737
004737

027522
026040

020036
020044

112765
004737

000113
040316

0o000!L

020050
0200se

013765
004737

005734
032374

000002

MOV

81,STESTN

SET TEST NUMBER IN APT MAIL BOX

JSR
JSR
Jmp

C,SETTUP
C.CHKITR
TSTe

éET UP FOR_LOOP ON ERROR
iSEE IF ITER. NO. = O FOR THIS TEST
:JUMP TO N XT TEST

PC, INITSS

; INITIALIZE DRIVER PARAMS AND SUB-SYS

;RETURN HERE FROM CHKITR IF TEST’ SHOULD BE
R
JSR

PC. PREPKB

;RECRLIBRQTE THE DRIVE

SRECRL P.CMND(RS)

PC onvb
AL
;D0 SEEK T0 CYLIND
t
JSR

MOV

JSR

i PREPARE FOR POSSIBLE KBD INPUT

LC,P CYLN(RS)

PC’ SEEKER

:SET RECAL COMMAND

:RECALIBRATE DRIVE
:SET CYLINDER = LC

‘DO A READ HEARDER OR EXPLICIT SEEK

l!***lil*l!l!!i!i*lllll!lliliii!l!*llllllil*l!l*il!!*lllill!*!*

it T2
*

THIS TEST PERFORMS A SEEK TO CYLINDER FC, FOLLOWED

020062
020064

000004
012737

BY A SEEK

CYLINDER
LC.

féiilillll*l!lllll**lllllll!!l**!!llllllllllllllll!ll!*!l***!llil
T2:

001324

004737
000137

000002
030462
030530
0e014e2

004737
004737

0e75ee
026040

013765
004737

005732
032374

000002

013765
004737

00S734
032374

000002

004737

SEEK/SEEK TEST

SCOPE

MOV

82, STESTN

JSR

PC.CHKITR

'SEE IF ITER.

JSR

PC, INITSS

;INITIALIZE DRIVER PARAMS AND SUB-SYS

MOV

rc P.CYLN(RS)

;SET CYL = FC

MOV

LC,P. CYLN(RS)

:SET CYL = LC

JSR

PC.SETTUP

:SET TEST NUMBER IN APT MAIL BOX

éET UP ron LOOP ON ERROR

NO. = O ron THIS TEST

1JUMP TO NEXT TEST
1513
JIMP
sRETURN HERE FROM CHKITR IF TEST' SHOULD BE RUN
ISR
PC’ PREPKB
;D0 SEEK TO CYLINDER FC
JSR

EEKER

:D0 SEEK T0 CYLINDER
JSR

PC SEEKER

'PREPARE FOR POSSIBLE KBD INPUT
: SEEK T0 Fc
:SEEK TO LC

o 303 36 36 3 36 3 36 36 3 36 36 3 36 36 3 36 3 36 36 36 36 36 36 3 3¢ 36 3 3 3 3 3 36 3 36 3 3 36 3 36 36 36 36 36 3 36 3 36 336 36 3 3¢ 36 3 2% 36 0 3 3 3 3

iTEST 3
x

CYLINDER RDDRESSING TEST

THIS TEST VERIFIES THE CYLINDER noonsss BITS

SEEKING TO CYLINDERS
O

4g,20,10,4,2,1,0.

qoo(ocr)
THEN, THE sezxs ARE oohs IN hevtnst ?o100,200
440, 2060,
100

loNe]

CZR6MDO RK&ll/OB SS VERIF 1
10-JAN-78 11:48
CZR6MD.PL

CZR6MDO RKB11-06 SS VERIF 1
CZREMD.PL1
10-JAN-78 11:48
£388

6389

020142

000COM

020152
020156
020162

004737
004737
000137

020144

£395

020166

004737

026040

5398
§399

020176
020202

00S06S
004737

000002
032374

S401
€402
403
5404
S405

020206
020212
020216
020222
020230

005265
004737
006365
033765
001770

000002
032374
000002
017766

S408
6409
410

020236
020242
020246

004737
005765
001371

032374
000002

5336
£397

§400

020172

000003

030462
030530
020250

SCOPE
MOV

83, STESTN

;

:SET TEST NUMBER IN APT MAIL BOX

JSR

PC, INITSS

s INITIARLIZE DRIVER PARAMS AND SUB-SYS

CLR
ISR

P.CYLN(RS)
PC, SEEKER

:SET cv' = o
SEEK
LO

INC
ISR
ASL
BIT
BEQ

P.CYLNIRS)
cINITEALT2E
1
PC, SEEKER
;sssw T0 CURRENT ch
P.LYLN(RS)
"GET MEXT CYL NO.
HOLD2,P.CYLN(RS)' ;SEE IF DONE WITH FORWARD SEEKS
2%
B8R IF
N
or DONE YET

JSR
157
BNE

PC SEEKER
P.LYLN(RS)
4

JSR
PC,SETTUP
ésr UP FOR LOOP ON ERROR
an
PC.CHKITR
sss IF ITER. NO. = O FOR THIS TEST
JMP
TSty
!JUMP TO NEXT TEST
:RETURN HERE FROM ChKITR IF TEST' SHOULD BE RUN

2%:
000002

'PREPARE FOR POSSIBLE KBD INPUT

SEEK TO CYLINDERS 400,200, 100, ué 20,10,4,2,1,0 (REVERSE DIRECTION)
ASR
P.CYLNIRS)’
sGET NEXT’ CYL’ NO.

:SEEK TO CURRENT CYLINDER
'SEE IF DONE IN REVERSE DIRECTION
'BR IF NOT DONE YET

< 360636 3 30 3 0 00 36 06 36 36 36 36 36 36 06 36 36 36 0036 3636 36 06 36 36 630 06 30 30 36 36 06030 36 06 36 30 06 3036 36 36 36 30 36 0 6 36 36 30 30 30 3 6 3 30 3

iTEST 4
;*

;%
3 ]
;%

g
Iz

i ¥
12

S4y24
5425

CYLINDER RDDRESS CROTM"TALK TEST

THIS TEST PERFORMS SEEKS TO CYLINDERS WHQOSE ADDRESSES
ARE SUSCEPTIBLE TO BIT CROSSTALK WITHIN THE CYLINDER
ADDRESSING LOGIC. THE CYLINDER ADDRESS BITS SEQUENCE
RS FOLLOWS
:
000 000 000

011 111 110
000 000 000

e
;%

0l1 111 101
000 000 000

3 ]
; ®
;%
Iz
; ¥
x|
;:

020250

000004

6438

(020252

012737

000004

S443

020274

004737

027522

020260
020264
020270

004737
004737
000137

030462
030530
020414

001324

011 111 111
000 000 000

x|
E

5426
g427
c4e8
8429
S430
S431
S432
§433
E:gg

5439
S440
S441
S4yye

SEQ 0383
SEQ 0104

:SEEK TO CYLINDERS'1,2,4, 10,20, ub 160 aoo woo (FORNRRD DIRECTION)

S4y2e
S4e3

5436
S437

+473:

JSR
PC' PREPKB
:SEEK TO CYLINDER 0

OO0V

LWhr-

= 0 p—s et s s s Pt P

001324

027522

5406
407 020232 006265 000002

it
LLEfrrrLrrrLcx

MACY1l 30R(1052)
10-JAN-78
12:16 PAGE 10S
T3
CYLINDER ADDRESSING TEST
o 3536 36 36 36 3 36 3 3 3 3 3 3 3 3 3 3 3 36 3 36 3 3 36 3 36 3 3 3% 26 3 36 3 3 W 3 3 3 3 3 3¢ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2% % 3 % %% %%

5390

6391
§392
§333
£394

012737

NO8

.
.
.
000 000 000
010 111 111
00 000 000
101 111 111

: 122212222222 222222222 3 2212132222222
2222222223 3222222222222
QTH
SCOPE
MOV

¥4, 3TESTN

;:SET TEST NUMBER IN APT MARIL BOX

JSR

PC, INITSS

; INITIARLIZE DRIVER PARAMS AND SUB-SYS

JSR
PC SETTUP
QET UP FOR LOOP 0 ERROR
JSR
PC.CHKITR
SEE IF ITER. NO. = 0 FOR THIS TEST
JIMP
G
JUHP TO NEXT TEST
;RETURN HERE FROM CHKITR IF TEST’SHOULD BE RUN

CZR6H00 RKBII/O& SS VERIF 1
10-JRAN-78 11:48
CZR6MD.P
004737

026040

020304
020310

005065
004737

00o00e
032374

012765
004737

000377
032374

000002

012737

000001
000002
032374
000200

00S514

000377

10-JAN-78
12:16
PAGE 106
CYLINDER ADDRESS CROSSTALK TEST

ISR

G20300

sSEEK TO CYL 0

CLR

JSR

020410

000577
032374

2s:

005S14

’
’
'

3BT 0060 0 T

xrxntxzsoaxr MASK
IN

iSET CY
:SEEK T0 CYL O
:SEE IF ABOUT TO DO LAST SEEK
,9 IF THIS WILL BE LARST SEEK
:SET CYL = 377

chNbR
CYLN(RS’
-ZERO A BIT TO PROMOTE CROSSTALK
kER
:SEEK TO THIS CYL INDER
chNDR
:SHIFT BIT MASK

2$
:GO SEEK T0 ch 0 AGAIN
4577 .P. CYLN(RS) :SET CYL = 577
:SEEK TO CYL 577
PC,SEEX
000600 0

IO 0

000

INCREMENT/DECREMENT SEEK TEST

IN THIS TEST SEEKS RRE DONE IN INCREMENTS OF IC CYLINDERS
STARTING AT CYL FC, AND ENDING AT OR BEYOND LC. THEN, THE

SEEKS ARE DONE IN REVERSE, BACK TO FC. IF FC_IS CHOSEN > LC,
THE SEEKS WILL PROCEED IN' THE OPPOSITE DIRECTION.

’ o 3636363 3 3 36 3 36 36 3 3 3 3 3 36 3 36 3 3 3 3 3 3 33 3 3 3 3 3 2 3 3 3 3 3 3 I 2 3 3% 3 3 3 3 I % % 3 % 3 3 3 3 X K W K EE %

a5,

020414
020416
Oc04eH
020430
020434

000004
012737
0g4737
004737
000137

030462
030530
020620

020440
020444

004737
004737

027522
026040

0204S0

013737

005732
005522
032374
005732

005522
0oooce

005736
00S734

00ss22
00ss522

005736
005734

005522
0ossee

4s:

005732

005734

023737
003010

YLNDR

#377,P.CYLN(RS)

BR
MOV
JSR

Y§:

020536
020544

sSET CYL = O
!SEEK TO CYLINDER O

MOV

BIC
JSR
ASL

003750

P.CYLN(RS)
PC, SEEKER

CYLN(RS)
KER
ceiro7 CYLNDR

iTEST

c
020526
020534

; PREPARE FOR POSSIBLE KBD INPUT

CLR
JSR
Bl
BNE

000002
(s]a]0]8]er

000002

PC, PREPKB

:SEEK TO Psnnxnxnc CROSSTRLK cvL {NOERS

00SS514
012765
004737

SEQ_038Y4
SEw 0105

:SEEK TO CYL 377 (OCT)
MOV
8377,P.CYLN(RS) ;SET CYL
= 377
'SEEK TO CYL 377
PC, SEEKER
JSR

*’k****

S44y
5445
S4Y46
5447

B0O9Y

MARCYI11 3?&(1058)

000005

001324

sgops
MOV

JSR
JSR
JMP

85, STESTN

PC,SETTUP
PC.CHKITR
g
T5T6

; :SET TEST NUMBER IN APT MAIL BOX

:8ET UP FOR LOOP ON ERROR
;sse IF ITER. NO. = O FOR THIS TEST
; JUMP

TO NEXT TEST

;RETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN
JSR

PC.INI S S

MOV
JSR

CMP

NCYLI . P.CYLN(RS) :SET CYL = NCYLI
PC, SEEKER
;8EEK TO NCYLI
FC.LC
;SEE IF rc > LC

ADD
CMP
BGE

IC,NCYLL
LCINCYL1
23

PC,PREPKB

; INITIALIZE DRIVER PRARAMS AND SUB-SYS

:PREPARE FOR POSSIBLE KBD INPUT

xncnsnsnrs FROM FC 10 (C
s SEEK IN MOV
FC,NCYL1
sINITIALIZE NCYL! TO FC
JSR

2s:

005734

BGT

B8R

SUB
CMP
BLE

4§

658

LC RERCHED - DO REVERSE SEEKS

1C,NCYL1
LC,NCYL1
2s’

: DECREMENT NCYL1
'SEE IF LC EXCEEDED
'BR IF NOT YET

FC,LC
8%

:SEE IF FC >LC
:BR IF FC » LC

.SEEK IN INCREMENTS,

CMP
BGT

‘BR IF FC

xucnsnenr NCYL1
‘SEE IF LC EXCEEDED
:BR IF
NOT YET

BRCK TO FC

LZR&HDO RK&ll/OB
?S VERIF 1
AN-78 11:48
6MD.P11

5500

020546

163737

asf) 8éfeza fediss

i
innnnvinn
PUP=
= = bt pme P Pt ot o e
owaNCNLEWN—-0O

020260 15
020203

020604
o206l
020618
020620

e
004737
000747

005736
00573c

cOo9

MACTLL 3pRC10S2) ARERENT BechEndNT EEER 184y
00SSze

oossee

005736
005732

00SSe2
00sse2

0ossae

000002

032374

es:

35 $0
?

CMP
BLT

FCINCYLL
124

IF FC sxcssoso
FC REACHED - ALL DONE

108:

1E%evL

MOV
JSR

6%’

2222222222222

iTEST 3
;*

L%
Tk
tx

020ess 812997
020640

020634

_J0006
030462
030530
021050

020644
020650

004737
004737

027See
026040

020654

013737
013765

001324

23737
03010

023737

: CONTINUE

2222222222222

OSCILLATING SEEK TEST

2222222222222 2

IN THIS TEST, SEEKS OF INCRERSING LENGTH ARE DONE FROM FC
TO
cht AND
BACK 10 Fg NCYL1 IS INCREMENTED BY IC AFTER
EK, AND THE SEEK TO NCYL1 RLNRYS PROCEED FROM FC
rounao LC' (FC » LC 1S PERMISSIBLE). WHEN LC IS REACHED OR

EXCEEDED,

THE SAME sesxs ARE "DONE

NCYLI EXCEEDS FC.

IN REVERSE ORDER,

UNTIL

Q0sse2
000002

00c732

005734

005736
00S734

005522
00sSa2

005736
005734

005522
005522

005732

005734

005736
005732

00sSee
005522

005736
005732

005522
00ssee

MOV

86, STESTN

JSR

PC I 1TSS

:SET TEST NUMBER IN APT MAIL BOX

JSR
PC.SETTUP
éET UP FOR LOOP ON ERROR
JSR
PC CHKITR
sss IF ITER. NO = 0 FOR THIs TEST
JMP
7517
: JUM P TO _NEXT TEST
;RETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN

2s:

MOV

JSR
MOV
JSR
CHP

4s:

PC, SEEKER
FCP.CYLN(RS)
PC. SEEKER
rc LC

BGT
ADD

13
IC,NCYL1

B8R

CMP
BGE
SuB
CHP
BLE

LG NCYL1
28’
IC,NCYL!
LG NCYL1
28’

.DO OSCILLATING SEEKS TOWARD FC

is:

CMP
8GT
SUB
CMP
BLE
BR
ADD
CMP

; INITIARLIZE DRIVER PARAMS AND SUB-SYS

:PREPARE FOR POSSIBLE KBD INPUT

sstks TOWARD LC NITIALIZE Nthl T0 FC
Nc?Lx B.CYLN(RS) SET CYL =

JSR
REPKB
:D0 OSCILLATING
MOV
FC NCYL 1

Doo0o0e

020754
020762
020764
020772
021000
21002
021004
021012

?$¥;§illgzaggil!llllill&llllillllll!lll!l{!lllll!lill!!lllili!i&l

004737
0o4737
000137

020630

mcEEfiEnfi Vb

L DON

NCYLI P. CYLN(RS) SET CYL = NCYLI
PC,SEEKER
,SEEKTO NCYLI

129%:

*35¥8%8106

FC,LC
8$
IC,NCYLL
FC!NCYLL
108
12%
IC,NCYL1
FCINCYL]

éEEK_TO NCYLI
:SET CYL
= FC
!SEEK TO FC
,s E IF FC » LC

'BR IF FC > LC
P INCREMENT NCYL1
sss IF LC EXCEEDED
BR IFNOT YET

LC REACHED - DO REVERSE SEEKS
:DECREMENT NCYL1
sse gr C EXCEEDED
1

T Yet

:SEE_IF FC >LC
‘BR IF FC » LC
: DECREMENT NCYL
'SEE IF FC sxcesoso
‘BR IF NOTYET
'FC REACHED - ALL DONE
: INCREMENT NCYLI
'SEE IF FC EXCEEDED

CZR6MDO RKB11-06 SS VERIF

CZR6MD.P11

10-JAN-78 11:48

5556

021020

002413

gggg

851830
1034
021042
021046

04737
013765
004737
000742

6657
6660
5561
€662

2263

(021022

021050

013765

oossaa

83
00 732
032374

MACY1l 30A(1052)

10-JAN-78

000002

PAGE

108

OSCILLATING SEEK TEST
BLT

108:

MOV

JSR
MOV
JSR
BR

oocoo2
12%:

S56S

D09

12:16

SEQ 0386

SEQ 0107

128

:FC REACHED - ALL DONE

PC, SEEKER
FCIP.CYLN(RS)
PC. SEEKER
6%’

;8EEK TO NCYLI
:SET CYL = FC
:SEEK_TO FC
:CONTINUE

NCYL1,P.CYLN(RS) :SET ch NCYL1

X1 12222222222222222222222223:222222222XXX2222TXX22XTL22L22S222L
L]

2229

iTssr

5568
6569
5570

Dy
s
Tk

THIS TEST PERFORMS SEEKS WHICH EXERCISE CYLINDER_DIFFERENCE
anue§. INITIR&LY, NEYL* FC AND g
LC. A ?EE 12
DCNE TO NCYL1
AND'THEN TO NCYL2. THEN NCYLI 1S INCREMENTED

5572

IC IN THE oxngcrlgn
OF FE

S571

12"

5573

00000Y4

5682
6683
6584
5585

021060
021064
021070

004737
004737
000137

030462
030530
021226

0Q4737
004737
013737

027522
026040

6581

CYLINDER VALUES.

. X Y 2121221222222222:1123222222:2222::22:2211:X2222T22X2222X2222222222
L
+817.
SCOPE

Pc,xnxrss
PC . PREPKB
FC, NCYLI

£54
§6473§
§69 §§11§g
11
13765 §§§§§u
5624 000002
6533 021140 004737 032374
6594 831144 883737 005732 005734

JSR
MOV

8
gét eSCYLN(RS)'SEE YL
? = cha
NC?La

CMP

FC,

;SEE

5596
55397
6598

ADD
SUB
CMP

IC,NCYL1
IC,NCYL2
LC,NCYL1

: INCREMENT NCYL1
*DECREMENT NCYL2
‘SEE IF LIMITS EXCEEDED

6699
5600
S601
S602
6603
6604
605

5606

5607
5608
5609

€610
Sell

1182

(21154
021162
021170

(021176
021200
021202
021210
021216
021224
021226

013

0057?32

001324

THIS TEST CRUSES SEEKING TO CONVERGING AND THEN DIVERGING

JSR
JSR
MOV

€635

000007

UNTIL NCYL! sxczsos LC AND NCYL2

#7,STESTN

021074
021100
021104

012737

VALUES OF NCYL1 AND NCYLE

kING 18 ONTINUED TH INCREHENTED

MOV

6586
687
5688

021052

EXCEEDS FC. (NOTE : FC > LC 1S PERMISSIBLE.

021050

5576

5579
6680

nuo chta IS INCREHENTED BY

AND NCYL2 AGRA

gggg

BY IC IN THE DIRECTION OF LC

s¥

S574

¥4

CONVERGING/DIVERGING SEEK TEST

005522

063737
163737
023737

005736
005736
005734

005522
005524
005522

163737
063737
023737
003735

005736
005736
005734

005522
005524
00SSe2

002350
000412

SET TEST NUMBER IN QPT MAIL BOX

JSR
PC.SETTUP
ésr UP FOR LOOP ON ERROR
JSR
PC.CHKITR
:SEE _IF ITER. NO. = O FOR THIS TEST
JMP
15t10
1JUMP TO NEXT TEST
:RETURN HERE FROM CHKITX IF TEST' SHOULD

JSR
BGT

4$:

6$:

BGE
BR
SuB
ADD
CMP
BLE

4§

23
63
IC,NCYL1
IC.NCYL2
LC,NCYLI
2s

s INITIALIZE DRIVER PARAMS AND SuB-SYS
,PR$ ARE FOR POSSIBLE KBD INPUT
;SET
NCYLL = FC

,QEEK TO NCYL2

_IF FC > LC

'BR IF FC >

:BR IF NOT YET
:LIMITS REACHED - ALL DONE
:DECREMENT N
: INCREMENT N
‘SEE IF LIMITS EXCEEDED
‘BR IF NOT Y

CRRRRBARAREEBRERERE
R R R RN REREEEERERR AR EERE R R R RN REEREEER R EERER

iTEsr 10
:

PSEUDO-RANDOM SEEK TEST

CZREMDO RKB11-06 SS VERIF 1

CZR6MD.P11

10-JAN-78 11:48

MACY1l 30R(1052)

T10

Sel2

EE%E
€615

‘x
-I

021226

000004

S618
S619
5620
562l
Se22
5623
Se24
5625

021236
021242
021246

004737
004737
000137

030462
030530
021300

021252

004737

027522

021262

004737

032554

021230

021256
02lebb

012737

004737
013765

12:16

PAGE 109

SEQ 0387

PSEUDO-RANDOM SEEK TEST

SEQ 0108

THIS TEST PERFORMS R SEEK TO A PSEUDO- RQNDOHLY CHOSEN

CYLINDER,

WHICH IS WITHIN THE RANGE

(0-632)

X Y2 2222222222222 222222:1x22:222:xz:2232222:*2X2X2X2X22XT22XX2XTX2X22XR LS

616

5617

10-JAN-78

EQY

000010

001324

026040
005514

ggg; 021274 004737 032374

000002

S630

Y4710:

SCOPE
MOV

#10,STESTN

SET TEST NUMBER IN APT MAIL BOX

JSR
PC, SETTUP
ésr UP FOR_LOOP ON ERROR
JSR
PC’CHKITR
ses IF ITER. NO. = O FOR THIS TEST
IMP
Tstil
'JUMP TO NEXT TEST
:RETURN HERE FROM cuern IF TesT’ SHOULD BE RUN
JSR
PC, INITSS
sINITIALIZE DRIVER PARAMS AND sue SYS
JSR
PC, PREPKB
!PREPARE FOR POSSIBLE KBD INPUT
JSR
PC | RNDADR
SELECT R PSEUDO
~RANDOM CYL INDER
MOV
cvtnoa CYLNC(RS) :SET CYL VALUE

JSR

kER

stsx T0 THIS CYLINDER

o 363636 36 36 36 36 36 36 36 3 36 36 3 36 3 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 3% 38 36 36 36 36 36 36 36 36 3 36 3% 36 36 36 36 36 36 36 36 3 36 36 3 3 3 3 % % % %

gggé

iTEST 11

5633

MAXIMUM VELOCITY REVERSAL SEEK TEST

THIS TEST PERFORMS
A SEEK TO CYLINDER
O

5635

‘¥

5636

OPERATION REOUIRES THe HERDS TO DECELERATE UPON REACHING

gggg

THE SERVO MECHANISM.

5639
€640

021300

: < 636363 3 3 36 3 36 3 3 3 3 3 3 36 36 36 36 36 36 36 3 3 3 9 3 3 3 3 3 3 % 3% 3 3 3 3 3 3 2 3 3 W 3 A 3 2%
+&T11:
SCOPE

Se42
Se43
Sp44
5645

021310
021314
021320

Se41

Se46

647
5648
5649

000004

021302

012737

004737
004737
000137

030462
030530
021366

021324

004737

027522

021330
021334
021340

004737
005065
004737

000011

001324

]

5657

021362

004737

AND THENA RETURN SEEK TO 0. THIS

THE POINT OF MAXIMUM VELOCITY,

AND INDUCES HEARTING IN

WK E XXX KKK ER

MOV

811, STESTN

::SET TEST NUMBER IN APT MAIL BOX

JSR

PC, INITSS

:INITIALIZE onxvsn PARAMS AND SUB-SYS

MOV
JSR
CLR

oab1 P CYLN(RS) "SET CYL = 201 (OCT)
PC, SEEK
,sssK_T0 CYL 201
CYLN(RS)
'SET CYL = O

JSR
PC,SETTUP
SET UP FOR LOOP ON ERROR
JSR
PC.CHKITR
sss IF ITER. NO. = O FOR THIS TEST
IMP
TSti2
:JUMP TO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST’ SHOULD BE
R

026040
000002
032374

JSR
CLR
JSR

5650 021344 012765 000201 000002
6651 021352 004737 032374
5652 021356 00065 000002

ggga

SEEK TO CYL 201 (OCT),

FOLLONED BY A

5634

032374

JSR

PC’ PREPKB
¢YLN(RS)
EKER

PREPRRE FOR POSSIBLE KBD INPUT
'SET CYL= O
*SEEK TO CYL O

PC SEEKER

:SEEK TO cyL O

o 363636 36 36 36 3 06 36 36 3 36 38 36 38 3 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 3% 36 36 36 36 36 3 3 36 36 36 36 36 36 96 36 3 36 36 3 3 3 3 3 3 38 3 3 3 % % %

gggg

firesw 12

5660

MECHANICAL VIBRATION SEEK TEST

THIS TEST PERFORMS GEOMETRICALLY INCREASING SEEKS WITH

5661
5662
5663

S
‘a
a

GEOHETRICRLLY DECRERSING STALL TIME BETWEEN OPERATIONS
WITH INTENT TO INDUCE VARYING vxannrxonnL MODES UPON
THE DRIVE. THE TEST BEGINS WITH LC
= I, AND ST = SM. THEN,

5665

SEEKS ARE DONE BETWEEN O AND LC,

SkEY

S66b

S667

THE FOLLOWING SEQUENCE

IS PERFORMED

TEN' TIMES.

THEN,

ST IS

OIVIDED BY 2 AND LC IS DOUBLED, 'AND SEEKS ARE DOFE BETWEEN
0 AND LC AGAIN,

TEN TIMES.THIS PROCESS IS CONTINLED FOR NEW

CZR6MDO RK&II‘06 SS VERIF 1
10-JAN-78 11:48
CZR&6MOD.P

MACY1l

30R(1052)

gnooo4
2737
004737
004737
000137

OclMle
021416
021422
021430

004737
004737
012737
013737

027522
026040
000001
005774

00SS1Y
001276

021436
021444
0e14s2
021456
021462
021470
021474
021500
0215062
021504
021510
021514
021520
021526

012737
013737

000012
001276

poss42
00ssi2

00001e

VALUES OF ST AND LC,

DO NCNLEW—-0O

SEG 0109

LC DIVIDED BY 2, UNTIL LC BECOMES ¢ 1.

UNTIL LC EXCEEDS CYL 400

THE WHOLE PROCESS IS REVERSED,

fér1a

(OCT).

THEN,

WITH ST BEING DOUBLED AND

001276
001300
00SS1Y4
001000

SCOPE
MOV

812, STESTN

: ser TEST NUMBER IN APT MAIL BIX

JSR

PC, INITSS

s INITIALIZE DRIVER PRRAMS AND SUB-S'S

MOV

oxCYLNDR

JSR
PC, SETTUP
:8ET
FOR_LOOP ON ERROR
JSR
PC.CHKITR
szs xr ITER., NO. = O FOR THIS TEST
IMP
15413
1JumMP YO NEXT TEST
;RETURN HERE FROM cu«xrn IF TEST’ SHOULD BE RUN

JSR

PC. PREPKB

MOV

DO INCRERSING sesks

bs.

MOV

Ys:

SINIT. CURRENT CYL TO 1

TMPE

:INIT.

JSR

:SET CURRENT STALL IN STALL WORD
,SET CyL = O

PC SEEK

SEEK TO CYL O

BNE

cvtnon PCYLN(RS’ SET CURRENT
CYLINDER
sts T0 CURRENT CYL INDER
EEKER
COUNTER
'DECREMENT LOOP
H
k
:BR_IF NOT S TIHES YET

ROR

STMPG

ASL

CYLNDR

cLC

ROR

:CLEAR GARBAGE BIT

oxvxos STALLS BY 2

§TMP?

SAVE THE DROPPED STALL BIT

DOUBLE THE CURRENT CYLINDER NUMBER

SEE IF DONE WITH INCREARSING SEEKS YET

#BIT09, CYLNOR

BIT

£Q

aa IF NOT DONE YET

.DO DECREASING SEEKS

£s:

005514
005542
0osSslie

ASR
ROL
ROL
MOV
MOV
CLR

8%:

005514

005772

005512

oxvxoe CURRENT CYLINDER BY 2
'GET R SAVED STALL BIT INTO CARRY
‘DOUBLE THE STALL
SINIT. LOOP COUNTER TO 10(DEC)
:SET CURRENT STALL IN STALL WORD
,SET ¢yL = O

JSR
DEC
BNE

PC, SEEKER
SCRACH
83

sés TO CURRENT CYLINDER
'DECREMENT LOOP COUNTER
:BR_IF NOT S TIMES YET

BEQ

EKER
SEEK TO CYL O
cvtnon B CYLN(RS :SET CURRENT CYL NUMBER

JSR

00sSs4e
0pocoe

CYLNDR
STMP?
§TMPE
#10., SCRACH
§$TMPE, STALLS
CYLfl(RS)

MOV

000002

BIT

MOV
S

STALLS TO SM

;INIT. LOOP CQUNTER TO 10(DEC)

$TMPE, STALLS
CYLfi(RS)

MOV
JSR
DEC

00SS14

PREPQRE FOR POSSIBLE KBD INPUT

#10. , SCRACH

MOV
CLR

0oss4e

851228

Pt Pt Pt Pt Pt Pct Pt Pt Pt P

001324

021626

8%%544

unnnnnninnnn
NNNNNNNNNY

SEQ 0388

. ¥

000002

013737

PAGE 110

MECHANICAL VIBRATION SEEK TEST

!ll!l!iillllllllllllllilllI»lllllll!iil!lllilli!lllflll!!llllll»!}l

021366
021370
02.376
p2140e
021406

021564
021570
021576
021602
021606
021610
021616
021620

12:16

Ti2

021530
021534
021540

FO9

10-JAN-78

$8IT0O1, CYLNDR

sss IF DONE YET

ST,STALLS

'RESTORE DESIRED NO. OF UNIT STALLS

N0 NI

R IF NOT DONE YET

RN R

AR RN R R RRE R LR SRR

iTE 13
MAX ROTATIONAL LATENCY MERSUREMENT
iTHIS TEST MEASURES THE INTERVAL OF TIME BETWEEN 2 INDEX MARKS
;#IN A SINGLE DISK ROTRTION THE _SPECIFIED MAXIMUM ROTATIONAL
*L?EEN$¥ ESES MILLI-SEC+ OR - 2.5%. THIS MERSUREMENT IS MADE

5720

02l1&2¢e

000004

CRNEEAREEARERERERERRERRE
RN
RN RN AR ARR AR R AR RBR R AR AR RS

t&T13:

SCOPE

CZRBEMDO RKB11-06 SS VERIF 1

CZREMD. P11

5724

6725
6726

€727
6728

021630

021636
021642

021646

10-JAN-78 11:48

012737

004737
004737

000137

§729

021652

004737

g;gg

85%963

004737

730
§731
6732
§733

021656
021662
021666
(021670

004737
105737
001002
000177

000013

030462
030530

MACY11l 30A(1052)

T13

001324

0224940

027522

00000M

142765

000020

744

021734

112737

000001

003120

021742

5748

021752

005000

000125
040316

000007

022422

161066

(021754
021762
021770

152765
0527?65
004737

000020
010000
040606

000007
000016

5753
6764
5755
5756
§757

(022000
022002
(022004
022006
022010

005700
001012
005201
001374
004737

5760
5761
762

022022
022024
022026

000572
104410
000770

5752 0217?74 013712 017774

758
5759

5763
S764
5765
5766

5767

S768
5769

5770
6771

022014
(022020

022030

004737
104105

005004
010501

022042

005005

022036

022044

041704

142761

000020

57274
§775

022072

022010

S777
S778

022102
022104

5776
S779

022074

022076
022110

104407

004737
022024
060337

0058537

!JuUMP TO NEXT TEST

PC, INITSS

s INITIALIZE DRIVER PARAMS AND SUB-SYS

PC,CALBRT

:CALIBRATE sorrunns TIMER

PC. FREPKB
potIm
26$
J18

:PREPARE FOR POSSIBLE k8D INPUT
‘SEE IF TIHING TESTS ARE ALLOWED
'BR_IF TEST
;o
'SKIP TO NEXT
:ERROR RETURN ADOR FOR CALBRT

8B.CFMT, P CSIH(RS)

;SET FORMART BIT
= O

SRDHEAD P.CMND(RS) :SET READ HDR COMMAND
PC, onCAL
;00" READ HOR_TO_SET FORMAT TO O
81, TSTING

‘ALLOW $C,

tZ ESCAPE

MOV

SRHEDHD, JRKVEC

;SET SPECIAL RKOB HANDLER ADORESS

CLR

MOV

Hotos (R2)

BIsB
BIS
JSR
TST
BNE
INC
BNE
JSR

JSR
ERROR

INIT TIME-OUT INDICATOR

8. CFHT P CSIH(RS); COMPLEMENT FORMAT BIT T0 1
QCFMT 'CSI(RS) ;cofiPLsnENT FORMAT BIT
STRCMD
:STORE PREV AND CURRENT connnnos

ss
R1
63
PC,REPSUP

PC' TOPROC
105
363

'ISSUE RD HOR WITH FMT BI

'SEE IF RKO6 INTR REC'D YET
'BR If RKO& INTR
REC’D
: INCREMENT TIMEour INDICARTOR
'BR_IF NO TIME-OUT
'GET COMMAND FOR REPORT

: GATHER STATUS
:TIMED-OUT ON READ HEADER

BR
RESREG
BR

‘GO T0 E
;RESTORE RO-RS
KE ERROR EXIT

CLR
MOV

RY
RS,R1

INIT HI CYCLE COUN
:SAVE PARAM BLK noonsss

CLR

RS’

. CHANGE FORMAT
AND
READ HDR TO nénsuRE
TIME TO NEXT INDEX
8s:
CLR
RO
NIT RKOG INTERRUPT INDICATOR
010000
000016

6772 022066 004737 033150

§773

MOVS

28%:

005542

04276l
016162

; ssr TEST NUMBER IN APT MARIL BOX

Q
FOR LOOP ON ERROR
,sse xr ITER. NO. = O FOR THIS TEST

. CHANGE FORMAT nno RERD HOR TO FIND INDEX
2s:
CLR
RO
-INIT RKO®& INTR INDICATOR

7%:

044352

010537

022052
022060

JSR

MOVB
JSR

6%:

005000

022032
022034

JSR
1578
BNE
JMP

BICB

0OCOOO0!L

012777

5749
5750
6761

380

TSTIM

021744

005001

813 srssrn

PC,5ETT
PC’ cuxxrn

SEQ 0110

JSR
PC, INIVRB
:INIT VARIABLES Y0 BE USED
CLRB
1StING
s INHIBIT #C, #Z ESCAPE
CLR
R3
INIT MERSUREMENT COUNTER
:READ HERDER 7O INITIALIZE FormAt BIT IN CONTROLLER

021714

S747

SEQ 0389

f%"

6741

5745
S746

111

032712

033204
003120

112766
004737

JSR
JSR

JSR

004737
105037
005003

021722
021730

MOV

026040
003133

022440

742
65743

PRGE

MAX ROTATIONAL LATENCY MEASJREMENT

IMP

021700

(021702
021706
(0e2l7le

GAaS

12:16

:RETURN HERE FROM CHKITR IF TEST' SHOULD BE RUN

5736

6737
§738
739
§740

10-JAN-78

034136
003176

003200

MOV

000007

000016
000000

BICB

RS, SCRACH

$B. CFMT .CSIH(R1)

;COMPLEMENT FORMAT BIT TO O

BIC
MOV

#CFMT
P CSI(R1) cofiPLenENT FORMART BIT T0 O
P. CSlle),RKCSl(fiE ISSUE RERD HDOR TO FIND NEXT INDEX

ERROR RETURN ADDRESS

JSR

PC, TIMER

nsnéunz THE TIME TO NEXT INDEX

PC,CNVTIM

:CONVERT MEAS’D CYCLES TO TIME

: CONVERT SAVREG
MEARS’D CYCLES TO TIME nho
CHECK AGRINST LIMITS
:SAVE RO-RS
ISR

28%
ADD

RDC

R3, SUMLO1

SUMHI1

:ERROR RETURN ADDRESS
:ADD CONVERTED TIME TO SUM

CZR6MOO RKB11.06 SS VERIF

CZREMD.P11

10-JAN-78 11:48

MRCY1l 30R(10S2)

T13

4737
3}
2781
578 005120 004537 D3I6332

§78

5784 oesxgw
022130 020237
101010
(022132
022134

103403
020337

003212

788

022142

010237

003214

103410

§787
5789
27
791

§792
5793

5794
6795

022140

022146
51
0221
022162

022166
022170

103004

010337
08 237

003212
003220

101003
020337

003216

101404
010237

000000

5801

c800

0222

§802

022214

5805

828583

103403

020327

057467

022216
022222

005237
020227

003170
000000

B222030
022232

101003
020327

062031

022240

005237

003172

5811
sexg

022246
0e2250

005203
013705

005542

cgl4

022260

001230

€816
£817

022262
022266

012704
000241

€820

022300

00S304

6803

022304

£806
5807

€808

022236

810

022244

5809

813

5815

£818
5819

€821
£802

0222854

022270
022274

022302

103002

183405

101402
1044910

022703

006037
006037

032737

022312
(022314
022320
022324
022330
022334

€831
§832
6833

022342
022346
(022352

104401
012701
004737

SE3S

022362

10440S

€834

(022336

022356

001036
104401
01270}
004737
013746
104405

34§:

16%:
188

208:
228:

012007

013746

003172

012334
003216
034234

SEQ 0111

308
R3,MINILI

'BR IF <« MIN
;COMP_LO BITS TO LO MIN

MOV

R2,MINIHI

SSET NEW MIN

BHIS
MOV
MP
LO

BLOS
MOV

324

R3 MINIL1
Ra MAXIH1
54

33
R3, MAXIL
1

144
Ra HflXIHl

'BR IF > OR = MIN

: COMP HI 9575 TO HI MAX
'BR IF< MAX

:BR IF > MAX
;COMP_LO BITS T0 LO MAX

'BR IF ¢ OR
=
{SET NEW MAX

168

:BR IF

MIN

CMP

R3, sMINLO1

:COMPARE LO BITS TO LO MIN

INC
CMP

BLWMIN
R2, $MAXHI1

: INCREMENT COUNT OF TIMES BELOW MIN
:COMPARE HI BITS TO HI MAX

BHI
CMP

203
R2, $MAXLO1

BHIS

8LO

BLOS
RESREG

18¢

'BR IF > OR = MIN

224

;SR §r< nnx

BR fi‘ < gn = MAX

ABVMX 1

R
conpnns LO BITS TO LO MAX

; INCREMENT

COUNT OF TIMES ABOVE MAX

:RESTORE RO-RS

INC
MOV

R3
SCRACH, RS

INCREHENT nsgsgnengnt
counrsn
"RESTOR

BNE

:BR IF NOT oons HITH MEASUREMENTS YET

MOV
cLC

$7,RY

CMP

#8128, ,R3

JSEE_IF 128 ncnsuasnsnrs YE

;DVIDE SUM BY 128. TO GET AVERAGE TIME OF ROTATION
248 :

003200
003176

104401

SEQ 0390

8LO
CMP

BLO

000007

011577
003212
034210
003170

112

. COMPARE MOV
MERS’D Txhs XIL
T0 spscxrxso LIMITS
1ys:
CMP
R2, sSMINHI1
sCOMPARE HI BITS TO HI MINIMUM
BHI
1e¢
'BR IF > MIN

000200

000010

PAGE

MAX ROTATIONAL LATENCY MEASUREMENT

BHI
CMP

ROR
ROR

DEC

001371

£824
£§825
826
£8287
5828
6829
€830

328:

003216

022210

6803
£804

30S$:

003220

£79 022174 010337
§798 022200 020227
5799 (022204 101006
57

HO9

12:16

CH
PooTLout
F Egsuggné+ ;é K 80 INPUT
conpnns o8
Ee-R3 9081N55
EURRENT ntn ENE 8
R2,MINIHI
BHI
323
,BR xr I> BITS
MIN

003214

6785
§786

10-JAN-78

005770

SUMHI
|
SUMLO1

'SET LOOP COUNTER =
:DIVIDE DOUBLE-WORD sun BY 2

:SEE IF DONE WITH DIVISION

881703, CS

;SEE _IF TIMING TEST REPORTS SHOULD BE INHIBITED

BNE
249
'BR IF NOT DONE YET
: TYPE TIHING nsnsunsnsnr RESULTS’ (IN DECIMAL)
BIT

BNE
TYPE
MOV
JSR
MOV
TYPDS

363
ROTIMS
MINILI,RI
PC, TYPMIN
BLUMIN, - (SP)

TYPE
MOV
JSR

"LIMI
kMAXIL1,R1
PC, TYPMAX

TYPE

MOV

TYPOS

, BELOW

ABYMX1, - (SP)

:BR _IF REPORTS SHOULD ee INHIBITED
S TYPE ”ROTQTIONQL TIMES
:POINTER TO LO nxn
*TYPE MIN MEAS’D TIME
GET COUNT OF TIMES BELOW MIN
convenr AND TYPE 1T
TYPE
* OF

128 BELOW MIN OF "

rvps spsc D MIN LIMIT
SPOINTER TO LO
M
nx
'TYPE MAX nsns D TIME

:GET COUNT OF TIMES RBOVE MRX

:CONVERT AND TYPE IT

ZREMDO

RKE11-06 SS VERIF 1
LZRSHD. 11
10-JAN-78 11:48

022364
022370

022416

104401
104401
012701

004737
104401
Q12777
000177

012044
012347
003176
034260
001315
045270
177256

MACY!11

3??;1052)

12:16
PAGE 113
MAX ROTATIONAL LATENCY MEASJREMENT
TYPE

TYPE

MOV

160422 36%:

109

10-JAN-78

JSR
TYPE

MOV

JMP

, ABOVE

LIM2

bsunLox R1
PAVG
LF

:TYPE

SEQ 0391
SEG 0112

128 ABOVE MRX OF

STYPE SPEC’D MAX LIMIT

'POINTER TL AVG TIHE
: TYPE nvennus TIHE
:TYPE <CR>

bx.INTR,anxvsc 'RESTORE Rkos HRNDLER ADDRESS

Jls

:PROCEED TO NEXT TEST

363 3 3 3 3% 3 36 3 36 3 3 3 3 3 3 3 3 3% 3 3 3 W 3 3 3 3 3% 3% I X WMWK E W

RE M N

RCEEEE KRN EEEEEEER

' §SPECIAL INTERRUPT HANDLER FOR READ HEADERS IN ROT. LAT. MEAS. TEST
0224e2

0e2436

005200
005762
100002
000137
a0000e

X222 2223222r222X2 2222222222222

RHEDHD:

000000

045270

2%:

INC
IsT

BPL
JMP
RTI

RO
RKCS1(R2)

2%
I.INTR

2222222222222

:SET RKO6 INTR HANDLER
:SEE IF CONTROLLER ERROR SET

:BR_IF NO ERROR
'LET DRIVER PROCESS THE ERROR
'RETURN FROM INTR

; l*lllllllllllll*illll!llllill‘lllillllllll!l!{l{llll»ll»*}lll{l'il»l»

TETEST 1M
ONE CYLINDER SEEK TIME MERSUREMENT
:%#THIS TEST MEASURES THE TIME REQUIRED TO SEEK BETWEEN 2 AJACENT

: #CYL INDERS sorn xn THE ronunno AND REVERSE DIRECTIONS. SEEKS
,;nns DONE 10
O
AND THEN T0 631,630,...,2,1,0

% AND THE Resutrs ARE fvpsb FOR ERCH DIRECTION.

'%THE SPECIFIED ONE CYL SEEK TIME IS< 8 MILLI-SEC.

022440
02e442

000004
012737
004737
004737
000137
004737

SEEKS ARE

TO & FROM CYL

1456 FOR

THE

RKO7

g¥T:ll!;gg;glll!llllllllli*ll!!l!ll*lllllllllllillll*!llllilll!l
000014
030462
030530
0227e0

001324

027522
026040
003133

004737

000004
03e71e

0e2760
004737

033204

004737

040316

005e26s

000002
033312

003176
OeceseY4

004737

036332

022570

012703

0o3212

MOV

$14, STESTN

::SET TEST NUMBER IN APT MAIL BOX

JSR

PC, INITSS

INITIRLIZE DRIVER PARAMS nno sua SYS

JSR
PC,SETTUP
éeT uP FOR LOOP ON ERROR
ISR
PC CHKITR
:SEE IF ITER. NO. = O FOR THIS TEST
IMP
1stis
'JuMP TO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST'SHOULD BE RUN

1:
3§:

ISR
I578
BNE
IMP
JSR
1STIS

JSR
MOVB
CLR
JSR

000001

PC’ PREPKB
00t1IM
23
IS
PC, CALBRT

;ERROR RETURN ADDR FOR CALBRT

PC, INIVRB
:INIT VARIABLESUSED
osésx P, CMND(RS) SET SEEK COMMAND
cv N(R
tNIT L TO00
CRL
D0 INITIRL SEEK TO CYL O

MEASURE ronunno stEK TIME

is:

INC

N(RS)

JSR

PC rrnsex

ADD
ADC

R1,SUMLOI
SUMHI1

15715

ADD
JSR

PREPARE FOR POSSIBLE KBD INPU
see IF TIMING TESTS ARE RLLONED
‘BR_IF ALLOW ED
:SKIP TO NEXT TESTY
:CALIBRATE THE SOFTWARE TIMER

INCREHENT CYLINDER BY 1
*MEASURE
A SEEK TIME

:ERROR RETURN RDDR FOR CALBRT

'ADD MEARS’'D TIME TO FORWARD SUM

RO, sunnxx
PC CTLOUT

:CHECK FOR

SMINIL1,R3

;SET POINTER TO CURRENT MIN AND MRAX

(C)

($2)

; COMPARRE FORWRRD TtHE TO CURRENT FORWARD MIN AND MAX
MoV

KBD

INPUT

CZR6MDO RKb11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

022574

004737

033be4

020037

007220

MACY1l

JO9

30A(10S2)
10-JAN-78
12:16_PAGE 114
Ti4
ONE CYLINDER SEEK TIME MERSUREMENT

i
D 0D OO0 DD DO DODD
PUN == 1o s pt P e Pt Pt s pe
OOV NTNLW—0O

001342

5922

005365
004737

000002
033312

022660

004737

003e0e
003204
003204
036332

022664
0ee670

012703
004737

003222
033624

022674

020037
103406

007220

022724
022730

013703
004737

017760
033676

022734

032737

000010

004737

011644
0lelol
033770

022754

TIM

CMP

RO, MAXHI2

BHI

000002

CMP
BLOS
INC
cMP

108:
12%:

BNE

124

108

{us:

COM PQRE Hg BITS TO HI

;BR IF
<
‘BR

MAX

R1,MAXLO2
conanE LO exrs TO LO MAX
at
‘BR IF ¢ OR
=
na
INCREHENT couur or TIMES ABOVE SPEC'D MAX
LSTCYL P.CYLN(RS)
SEE IF LAST FORWARD SEEK DONE

;BR IF Nbr DONE

P.CYLN(RS)
PC, TIMSEK

oscnsneur cYL ev 1
'MEASURE
A SEEK TIME
:ERROR RETURN ADDR FOR CALBRT
*ADD MERASURED TIME TO REVERSE SUM

MEASURE A REVERSE SEEK TIME

DEC
JSR
15715
ADD
ADC

R1,SUMLO2
SUMHI2

JSR

PC.CTLOUT

:CHECK FOR

MOV
JSR

onINILa R3

:SET POINTER TO CURRENT MIN AND MAX

CMP

RO, MRXHI2

co PRRE HI BITS TO HI MRX

MOV
JSR

LS C L R3
VG

: COMPUTE

8IT

#81703,CS

ADD

RO, SUMHIE

($C)

: COMPARE REVERSE Tine TO CURRENT'REVERSE MIN ANDM

(fZ)

KBD

INPUT

:COMPARE _TO MEAS’D MIN AND MAX

; COMPRRE REVERSE TIHE TO SPEC D finx LIMIT

BLO
184
;BR IF
nn
BHI
168
:BR IF »
CMP
R1, MAXLO2
conpnns LO axrs TO LO MAX
BLOS
18%
'BR IF¢ OR= MAX
168:
INC
ABVMX2
'INCR COUNT OF TIMES ABOVE SPEC'D MAX
183:
TsT
P.CYLN(RS)
'SEE IF LAST REVERSE SEEK DONE
BNE
14§
BRI F NOT DONE YET
; COMPUTE FORWARD AND REVERSE SEEK TIME AVERAGES

003174
0000302

001343

JSR

BLO

007216

0ea27e2

COHPQRE TO MERS’D MIN AND MAX

: COMPRRE FORWARD Tins TO SPEC’D hnx MIT

007216
003172
017760

SEQ@_0392
SEQ@ 0113

005770

;GET NO. OF MERSUREMENTS
nvsancss

s TYPE TIMING nensuhznenr RESULTS’ (IN DECIMA
BNE

TYPE

MoV
JSR

;SEE IF TIHING TEST REPORTS SHOULD BE INHIBITED

BR IF _REPORTS SHOULD BE INHIBITED

kRBOVEL,R3
PC, TYPTHS

GET POINTER TO MAX SPEC’'D LIMIT MSG
;TYPE TIMING TEST RESULTS

ONECYL

TYPE "ONE CYL SEEK TIMESTM

; !l*l!!ili!illllllil!l!lllllllllll!lllllll!l!llilli!lliillil!ii!

iTE
T 15
AVERAGE SEEK TIME MERSUREMENT
;#THIS TEST MEASURES THE TRUE AVERAGE SEEK TIME IN BOTH THE FORWARD
;#AND REVERSE DIRECTIONS. THE AVERAGE TIME IS CALCULATED FROM THE
iFOLLONING FORMULA :

T AVG
= [T1(410)(2)+T2(409) (2)+.

+T410(1)(2)]/(410)(410)

WHERE TX = THE MEASURED TIME TO SEEK
X CYLINDERS.

5285222955"0 "REVERSE TIMES ARE MEASURED AND TYPED,

;#THE SPECIFIED AVERAGE SEEK TIME IS ¢ 38 MILLI-SEC.
;% CYL 8I4 USED FOR THE RKO7
022760
De27e2

000004
012737

SRR RAENNNE RN
RRR AR R RARR AR RAAERR

000015

001324

férls

SCOPE

MOV

#15,STESTN

; +SET

TEST NUMBER

IN APT MAIL BOX

CZREMDO RKE11-06 SS VERIF |1
CZRBMD.P111
10-JAN-78 11:48

022770
022774
023000

004737
004737
000137

MACY11

030462
030530
023316

000004
032712

1%:
cs:

8800
000
R MR

033312

000001

011617
003176
003200
00320e

PC,SETTUP

:SET UP FOR LOOP ON ERROR

JSR

PC, INITSS

sINITIALIZE DRIVER PARAMS AND sue SYS

JSR
1578
BNE
JMP
JSR

ooooo2

017760

003216
003220
003226
003230
003202

0232se
023256
023262
023266

011722
003176
034260
OleeeM
104401

011740

:ERROR RETURN ADDR FOR CALBRT

INC
DEC
MOV
JSR
15716
JSR
CLR
JSR
TST16
JSR
CMP

NCYL |
:INCR DESTINARTION CYL
SCR nc
:DECREMENT COEFF ICIENT
NCYLI,P. CYLN(RS)
PC, TIMSE
:MEASURE A FORWARD SEEK TIME
'ERROR RETURN noon FOR CALBRT
PC,FDTERM
:COMPUTE AND RDDA FORWARD TERM
P.LYLN(RS)
ISET CYL T0 O
PC TIMSEK
nensuns R REVERSE SEEK TIME
!ERROR RETURN noon FOR CALBRT
PC,RVTERM
:COMPUTE AND RDDA REVERSE TERM
NCYLL,LSTCYL
:SEE_IF DONE MEASURING YET

MOV

TYPE

LCPI,

SCRACH

GSEK

SINIT COEFFICIENT TO 411(DEC)/B14(DEC}

'BR IF NOT DONE YET

:TYPE “AVERAGE SEEK TIMES"

FORWARD sun BY (410)(410%/(814)(814) FOR RKQO?

MOV
MOV
MOV
MOV

SUMLO1, RO
SUMHIL Rl
SUMLO2,
R2
SUMHI2' R3

MOV

HOLD? RS

MOV

3,SUMLOL

JSR
MOV

; DIVIDE

!PREPARE FOR POSSIBLE KBD INPUT
'SEE _IF TIMING TESTS ARE ALLOWED
‘BR IF nLLouso
'SKIP TO NEXT TEST
'CALIBRATE THE SOF TWARE TIMER

PC, INIVRB
:INIT VARIABLES
8SEEK, P, CNND(RS) .SET sssx COMMAND
P.CYLN(R
;8ET
0
PC oavan
SEEK INITIRL T0 0
NCYL L
'SET DESTINATION CYLINDER

BLTY

;DIVIDE

PC’ PREPKB
potim
es
a4s
PC, CALBRT

JSR
MOVB
CLR
JSR
CLR

MOV

003176

023e27e

8%:

033514
00000e
033312
033560
00sse2

SEQG 0393
SEQ 0114

JSR

1ST16

005542

023100
0e

12:16
PAGE 115
TIME MEASUREMENT

JSR
PC. CHKITR
:SEE IF ITER. NO. = O FOR THIS TEST
IMP
15tie
:JUMP TO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST SHOULLD BE RUN

027522
026040
003133

033204

3CA(10S2)
10-JAN-78
T15
AVERAGE SEEK

:GET DIVIDEND

HOLDG, R4

M. 0PID
R2, SUMHI1

;GET DIVISOR
: PERFORM DIVISION
:GET FORWARD AVG

REVERSE SUM BY (410)(410)

MOV
MOV
MOV
MOV

JSR
nov

AXIL1,RO
MAXIH! )R]
MAXIL2.R2
MAXIH2 R3

C,M.DPID
RE,SUMHIE
R3) SUMLO2

: TYPE Fonunno nvsnhcs
YPE

nov
JSR

YPE

F ORWRD

kSUMLOL,R1
PC. TYPRYG
SPCDMX

: TYPE REVERSE nvtnnce
PE

REVRSE

:GET DIVIDEND

: PERFORM DIVISION
'GET REVERSE AVG
s TYPE " #%%%F ORWARD DIRECTION!}*“

'POINTER TO FORWARD
AVG
'TYPE FORWARD AVERAGE
:TYPE “SPEC’D MAX IS 40UO0 USTM
; TYPE

“#%%REVERSE

DIRECTION#®%x"

FOR RKO?

CZR&MDO RK611-06 SS VERIF 1
CZREMG.P11
10-JAN-78 11:48

6004

6005
6006
gggg

023276

023302
023306
023312

012701

004737
104401
004737

LOS

MACY1l 30A(1052)
10-JAN-78
12:16 PAGE 116
T1S
AVERAGE SEEK TIME MEASUREMENT

003202

MOV

034260
012264
027522

JSR
TYPE
JSR

6009

#SUMLO2,R1

PC, TYPRVG
SPCDMX
pC, INITSS

SEQ 0394
SEQ 0115

sPOINTER T0 REVERSE AVG

'TYPE REVERSE AVERAGE
: TYPE “SPEC’ nnx IS 40000 USTM
JINIT THE SUB-SYS

6010

; *!l»llllllli!lllllll»lillfll}lll!lllillll!llllill!!l*lil!il!lil!*}l

5813

?YL sas 8c1

6016
6017

‘% CYL BI4 IS THE LAST CYL FOR THE
R
!i!i*llllllllillll!!Il'llli'l*i!lll!iilllllllllllll!ll!l*lll!llll

6011
6012

ir 16
MAXIMUM SEEK TIME MEASUREMENT
iTHIS TEST MEASURES THE TIME Rsouxnso TO SEEK FORH cYL O TO

(410 gg
ng REPRESENT ;
Y 19
ME heo és
128 TIME
xn EACH DIReECTIOnnxxnun SEEK
iTHE QPECIFIED MAXIMUM SEEK TIME xs 7s MILLI-SEC.

6014
6015

6018

023316

000004

6020
6021
6022
6023

023326
023332
023336

004737
004737
000137

6019

023320

012737

000016

030462
030530
023642

001324

6026
023352 185737 063133
6027 023356 001002

6028
gggg

023360
gggggg

000177
004737

sogé

053373

88394;

60
6033

02337
023376

000004
032712

4737
112765

033204
000117

6034 023404 005065 000002
6035 023410 009737 040316
6036

023414

005037

005542

6038

023420

013765

017760

023440

005537

003200

6037

6039
6740
6041

023426
023432
023434

6043

023444

023450

004737

6046

023454

012703

6042
6044

6045

6047

023460

004737
023642
060137
060037

004737

6048
6049 (023464 020037
6050 023470 103406

6051
gggg

033312
003176

003200

036332

003212

033624
007224

fész

SCOPE
MOV

816 STESTN

{gre

oSfI
2%

1$:
3§:

BNE
JIMP
JSR

1ST17

JSR
MOVE

00000l

CLR
an
CLR

000002

63:

MOV

JSR
15717
RDD
ADC

PINIT MEASUREMENT COUNT

LSTCYL,P.CYLN(RS)

PC, TIMSEK
R1,SUMLO!
SUMHT1

SET CYL= 632 OCT, 1456 FOR RKO?

. MEASURE
'R SEEK TIME
tERROR_RETURN ADDR FOR CALBRT
:ADD MERS’'D TIME TO FORWARD SUM
s

MOV

OHINILJ R3

:SET POINTER TO CURRENT MIN AND MAX

108
Rl MAXL OY4
128
ABVMX1

‘BR IF
COMPRRE 50axrs TO LO MAX
1BR
INCREMENT counr OF TIMES RBOVE SPEC’D MAX

P.CYLN(RS)

JSR

CHECK _FOR (C) on (fZ) KBD INPUT

Tim

COMPARE TO MEARS’D MIN AND MAX

: COMPARE cMP
F ORWARD Ting
T0 SPEC’D finx55RE é HI BITS TO HI MAX
BLO
12t
en IF < nnx
10%:

6056

023506

005065

000002

=LY

CLR

003202

SCRACH

1NIT
CYL TO O
:D0 INITIAL SEEK TO CYL O

PC ' CTLOUT

JSR

6054

(C33312

CYLfi(RS)
PC DRVCAL

: COMPRRE FORWARD Ttns TO CURRENT’FORWARD MIN ANDM
BHI
CMP
BLOS
INC

004737
023642
060137

: ERROR RETURN ADDR FOR CALBRT

PC, INIVRB
:INIT VARIABLESUSED
#SEEK ,P.CMND(RS)' :SET SEEK COMMAND

RO, SUMHIL

007222
003172

023512
023516
023520

E IF T §E§§§ QLLONED

BR IF
A
:SKIP TO NEXT TEST
:CALIBRATE THE SOFTWARE TIMER

ADD

101003
020137
101402
005237

6057
60588
60S9

ays
PC, CALBRT

MEASURE FORWARD SEEK TIME

(023472
85 474
500
023502

6055

s <SET TEST NUHBER IN APT MAIL BOX

JSR
PC,8ETT
SET P FOR LOOPON ERROR
JSR
PC’ CHKITR
sss IF ITER. NO. = O FOR THIS TEST
IMP
1517
UMP TO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST HOULD
RF RUN

.MEASURE A REVERSE SEEK TIME

JSR
T5T17
ADD

PC, TIMSEK

R1,sumMLO2

:SET CYL = O

‘MEASURE A SEEK TIME
*ERROR RETURN ADDR FOR CALBRT
:ADD MEASURED TIME TO REVERSE SUM

CZR6MDO RKE11-06 SS VERIF

CZR&EMD.PI11
6060
6061

023524
023530

10-JAN-78 11:48
005537
060037

T16

003204
003204

6062

606

023534

004737

036332

6064

065

023540

023544

012703
004737

003222

6067

023550

020037

007224

MACY1l 30R(1052)

10140
005237
005237
022737
001305

003174
005542
000200

6078

6077

023606
023ble

012703

000200

6082
6083
2882

023626
023632
023636

1044C1
012703
004737

011675
012201
033770

004737

PRGE 117

SEQ 0395

MAXIMUM SEEK TIME MEARSUREMENT
ADC
ADD

SUMHI2
RQ, sunHIa

MOV

JSR

OHINIL
g

cMP

RO, MAXHIY

SEQ D116

ET PO NT R TO CURRENT MIN AND MAX

; COMPARE REVERSE tne TO spsc D hnonPnRr

ed
fesEs! A
6070 023560 020137 007222
023564
023566
023572
023576
023604

MOS

12:16

CTLOUT
CHECK_FOR_($C) OR (¢z) KBD INPUT
: COMPRRE JSR
REVERSE PC.Ttne
10 cunasnr; REVERSE
MIN ANDM

033684

6071
6072
6073
6074
6075
607

10-JAN-78

00SS42

033676

MERS’D MIN AND

MAX

conpnas HI BITS TO HI MRX

B I <

CMP
R1, MRXLOY
: COMPRRE LO BITS TO LO MAX
BLOS
18¢
'BR IF ¢ OR= MAX
16$:
INC
ABYMX2
*INCR COUNT OF TIMES naove spsc D MAX
188:
INC
SCRACH
: INCREMENT MEASUREMENT COUN
CMP
#128., SCRACH
SEE IF oo~£ HITH 129 nsnsunensmrs
BNE
X
‘BR IF NOT
; COMPUTE_FORWARD AND REVERSE ssek T;ME nv
gsgs
MOV
ae R3
NO.
unsnsnrs
JSR
GEtave
COHPUTE nven

6079
s TYPE TIMING
nsnsuk;nsnr RESULTS';S(INDE % &NG TEST REPORTS SHOULD BE INHIBITED
6080 023616 032737 000010 005770
BIT
6081
023624
001255
BNE
1s
BR IF REPORTS SHOULD BE INHIBITED
TYPE
MOV
JSR

coss

MAXSEK
kABOVE3, R3
PC, TYPTHS

: TYPE_"MAXIMUM SEEK TIMES"
'GET POINTER TO MAX SPEC’D LIMIT MSG
:TYPE TIMING TEST RESULTS

6088

; = 3636 36 3% 3 36 36 3 3 3 3 3 36 3 36 3 3 3 3 3¢ 6 3 3 36 3 3 3 9 3 J 3% 3% 3 3 3 3 3 3 3 3 3% 3 3 W 3 3 3 3 % 3 % % 3 W 2 2 X

6030

‘%IN THIS TEST,

6092

: EACH SECTOR WRITTENA WRITE CHECK IS DONE, FOLLOWED BY
A

6089

iTEST 1?7

6091

023642

6097
6038
6099
6100

023652
023656
023662

£102

023644

000004

012737

000017

004737
004737
000137

030462
030530
024262

023666

023672

004737

027522

6104

023704

013765

005732

6106

023720

013737

005732

105065
012765

0000CH
063554

02604

001324

FOR

JSR

s INITIALIZE DRIVER PARAMS AND sue SYS

000002

MOV

rcP.CYLN(RS)

:SET CYL = FC

001174

MOV

FC.$REGS

:SET PACK ADR FOR ERROR PRINTOUT

00000S

023726
023734

023740
023744

023752

113768

013°37
005037

012765

6113

023760

012703

6115

023770

001002

005740

005740
001200

177900

000024

6114 023764 105737 003125

SCOPE

;:SET TEST NUMBER IN APT MAIL BOX

6105

023712

$4T17:

817 srssrn

000001

6111
6112

+ 100(OCT;. NEXT,

MOV

6103 023676 112765 000123

6109
6110

FT ARE WRITTEN, EACH WITH

l!lllllll§!ll!ll!ii!lll!llll!ili!iill!i!llil*ll!ll!ili*!l!li!l*

6101

6107
6108

%KX E %

: ¥READ AND SOFTWARE COMPARE OF THE DAT

6095

6096

ALL SECTORS OF FC,

: #2956 (DEC) WORDS OF ITS OWN SECTOR NO.

6333
6094

SECTOR RDDRESSING TEST

001176
000010

000012

JSR
PC,8ETT
:8ET UP FOR LOOP ON ERROR
JSR
PC. CHKITR
sss IF ITER. NO. = O FOR THIS TEST
IMP
15120
'JuMP TO NEXT TEST
:RETURN HERE FROM cuxxrn IF TEST’SHOULD BE RUN
JSR

MOVB

MOVB
MOV
CLR

CLRB
MOV

FT.P.TRCK(RS)

TSTB

P.SECT(RS)
#RWBUF ,P- an 0(RS)

BNE

ronnhr
4§

;SET WRITE DATA COMMAND

'SET TRACK = FT

FT!SREGH
SREG?

MOV
#-256. . P.WC(RS)
:SET NUMBER OF SECTORQ xn R3
MOV

: PREPARE FOR PgS?IBLE KBD INPUT

hog A,P.CMND(RS)

:SET SECTOR = O
:SET DRTA BUFFER ADDRESS

"SET WORD CNT FOR 256(DEC) WORDS

:SET R3 INITIALLY = EO(DEC)

‘DETERMINE THE FORM

:BR

IF 20 SECTOR ronnnr

CZREMD.P11
6116

10-JAN-78

11:48

012703

000026

6117

023772

6119

024002

062700

000100

6121
6122
6123
6184
6125
6126
6127

024012
024016
024022
024026
024030
024036
024042

004737
105265
120365
001363
012737
004737
105065

040316
000004
000004

024030
030462
000004

6129
6130
6131

024046
02402
024056

116500
062700
004737

000004
000100
034304

024106

012701

063554

6118 023776

MACY1l

T17

10-JAN-78

NOS

12:16

PAGE

SECTOR ADDRESSING TEST

118

MOV

SEQ 0396

SEQ 0117

T R3 = 22(DEC)

WRITE THE cunasur stcron WITH Tfie SECTOR NUMBER + 100(0CT)

116500 000004

6120 024006 004737 034304

6128

30R(10S2)

MOVB

P se T(RS),RO

JSR
INCB
CMPB
BNE
MOV
JSR
CLRB

PC’ DRVCAL
P.8ECT(RS)
R3 P.SECT(RS)
s
, SLPERR
PC SETTUP
QECT(RS)

‘WRITE THE
S
: INCREMENT THE sscro NO.
:SEE IF LRST SECTOR WRITTEN YET
'BR_IF NOT DONE YET
:SET NEW LOOP ON ERROR ADRS
'SET UP FOR LOOP ON ERROR
:INITIALIZE SECTOR T0 O

MOVB
ADD
JSR

P.SECT(RS),RO
.100 RO
LODSEC

;GET SECTOR INTO RO
noo 100¢(OCT) TO SECTOR NO.
ORD BUFFER WITH SECTOR + 100(OCT)

SRUBUF, R1

,cz ADDR. OF DATA BUF INTO Rl

RDD

JSR

001110

PCLbossc

.00 WRITE CHECK or SECTOR

PUT SECTOR NO. INTO o

noo 100(0OCT) T0 SECTOR NO.

:L0RD THE ENTIRE BUFFER WITH SECTOR NO. + 100(0CT)

6132 024062 112765 000131 000001
MOVB
ouATcnx P. cnno<n$) SET WRITE CHECK COMMAND
6133 024070 004737 040316
JSR
RVCAL
D0’ A WRITE CHECK
6134
:RERD THE SECTOR nfio conpnns THE'DATA TO SECTOR NUMBER + 100(OCT)
6135
024074
112765
000121
000001
MOVB
#RDDATA,
P.CMND(RS)
:SET READ COMMAND
6136 024102 004737 040316
JSR
PC, DRVChL
,RshoTHIS SECTOR INTO MEMORY

6137
6138
6139

0241.2
024114

00S004
005037

6140
614]
pl42
6143
6144
6145
6146

024120
024126
024134
0e4136
024140
024142
024146

116537
032737
001045
020021
001437
005737
001006

6148

024154

012737

6147

6149
6150
6151

024150
024162
024164
024170

105037

1049034
005237
032777

6152
61€3
6184
6155
6156
6187
6168
6159

024176
024200
024206
024210
024214
024220
024226
Q24230

001004
022737
002420
010437
010037
016137
104063
032777

6161
6162

024240
024242

005204
022704

6160

6163
6164
6165
gig;

B1e9

6170

6171

024236

024246
024250
024254
024260

001004

001333
105265
120365
001272

00S542

000004
000002

MOV
CLR
CLR

001200
005504

108:
005542

062105

000005

063446

005542
000001

154742

000012

005542

001202
001204
177776

001206

000100

154702

000400
000004
000004

MOv8
BIT
BNE
CMP
BEG
TST
BNE

148

208:
22%:

; R

i CLEAR WORD Ngnesn
:INIT. COMPARE
ERROR COUNT

P.SECT(RS),$SREG?’
#8SERR,RECODE
;SEE IF BAD SECTOR ERROR OCCURRED
228
IBR IF YES
RO, (R1)+
: COMPARE BUF WORD TO sscron + 100(0CT)
20
'BR IF NO COMPARE ERROR
SCRACH
: CHECK ERROR COUNT
12%
'BR_IF NOT FIRST ennon IN SECTOR

CLRB

DH?01+38.

*ADJUST DATA HEADERFOR MSG

ERROR
INC
BIT

34
SCRACH
$BITO, aSWR

*TYPE HERDING FOR ERROR MSG
,INCREMENT ERROR
NT
ISEE_IF ALL snnons SHOULD BE REPORTED

12%:

RY
SCRACH

#5,DF25+2

'ADJ.

ERROR DATA WORD counr

BNE
CMP
BLT
MOV
MOV
MOV
ERROR
BIT

148
#10.,SCRACH
228
RY, snscxo
RO, SREG11
-2tR1),$REGI2
63
$BIT6, ASWR

'BR_TO REPORT ALL ERROR
'SEE IF I10(DEC) ERRORS YET
'BR IF
> 10.
:WORD NUMBER
:GOOD DATR
:BAD DATA
:TYPE GOOD AND BRD DATR
,ses IF JUST 1 ERROR SHOULD BE REPORTED

INC
CMP

RY
#256. ,RY

! INCREMENT WORD NUMBER
:SEE IF DONE YET

BNE

BNE
INCB
CMPB
BNE

228

108
P.SECT(RS)
R3,P.SECT(RS)
8%

:BR

IF JUST

ERROR SHOULD BE REPORTED

'BR_IF NOT oone conpnnxnc YET
' INCREMENT SECTO
;SEE IF ALL secrons CHECKED YET
:BR IF NOT DONE YET

Y I X222 222222222222XX222X322222X2222233
2122222223222 XXX2X2T R

(kTEST 20

TRACK ADDRESSING TEST

CZR6EMDO RK611-/06 SS VERIF

ot e ad el alealealoato aloaleale alo als ol o als oo o ale als ol e als oo aTo aTu o1 o a¥'e o 10 o1 o]
U 2 Bt et et Bt e Pt st s e s Pt Pt ot Pt Pt Pt Pt Pt Bt Pt Bt Pt Pt et P Bt B

Eg@dhb*g*omdhflJGNDDGNDQGNDQGPQV\PQV\PQV
[Vels s RN
LWR—ODVONOCNIWN—ODONTN
LW

CZRoHDO RKe11-06 SS VERIF 1
CZR MD. P11
10-JAN-78 11:48

MRCY11l

B10

30n(1osa)
10-JAN-78
12:16
PAGE 119
T20
TRACK RADDRESSING TEST

;%IN THIS TEST,

SEQ 0397
SEQ 0118

SECTOR FS OF CYL FC IS WRITTEN uzrn ass

'x0F THE TRACK'NO. + 100(0CT),

FOR EACH OF TRACKS
O, 1

(DEC)

uoaos

*%WRITE CHECK OF EACH SECTOR 1S DONE TO VERIFY THE fiRiTEs THtN EACH
'%0F THE 3 SECTORS 1S RE-WRITTE..,

AND AFTER EACH WRITE ALL OFTHE

! ¥THREE SECTORS RRE WRITE-CHECKEO TO DETECT TRQCK ADDRESSING PROBLEMS.

000004

?s#;3!!1;33;;!!lll!llllll§llilllll!llll*l*llll!!llll!lllllil!lll*

024262
024264
ge4eze
024276
024302

000137

030462
030530
024516

024306

004737

027522

000020

001324

1?7400

000005
000100
034304
040316
00000S
000003

024404
Oe4dle
024414
O24422
024426

004737

024516

00135S

000040

JSR

PC, INITSS

; INITIALIZE DRIVER PARAMS AND SUB-SYS

MOVB

FS,P.SECT(RS)

:SET SECTOR =FS

MOVB

P.TRCK(RS),RO ~ ;SET TRACK
NO.

PC. PREPKB
:PREPARE FOR POSSIBLE KBD INPUT
#WRDATA, P.CMND(RS) -SET WRITE COMMAND
FC,P.CYLN(RS)
se? CyL
= FC
P.YRCK(RS)
,INITIQLIZE TRACK NO. TO O

nov

SRUWBUF ,P.BARLO(RS) :SET DATA BUFFER ADDRESS
$-2S6. .P.WC(RS) :SET WORD COUNT FOR 256(DEC) WORDS
- WRITE THE TRACK No. +'100(0CT) AT SECTOR FS OF TRACKS O, 1,2

ADD
JSR

#100, RO
PC, LODSEC

JSR

000005

0441y
030462
034326

001110

024432
030462
000005
000005

001110

000003

::SET TEST NUMBER IN APT MAIL BOX

JSR
MOVB
MOV
CLRB

PC . DRVCAL

IN RO

*ADD 100(0CT) TO TRACK NO.
Lono BUFFER WITH TRACK NO. + 100(0CT)
WRITE THE SECT

INCB
P.¥RCK(RS)
mcnensn THE TRACK
;SEE IF ALL 3 TRACKS HRITTEN YET
#3,P_TRCK(RS)
CMPB
BNE
ys'
:BR IFNOT DONE YET
:D0 A NRITE CHECK OF THE 3 SECTORS WRITTEN, TO VERIFY THE DATA
8., SLPERR
-SET NEW LOOP ON ERROR ADRS
‘SET UP FOR LOOP ON ERROR
PC. serrup
an
JSR
PC’ TRKCHK
:WRITE A SECTOR nnb WRITE-CHECK QLL 3 SECTORS
MOV

, SLPERR

JSR

PC SETTUP

CLRB
MOVB

6%:

P.YRCK(RS)
P TRCK(RS),RO0

MOVB

JSR
JSR
INCB
CMPB
BNE

00000s

T NEW LOOP ON ERROR ADRS

ser UP FOR LOOP ON ERROR

*INIT TRACK TO O
;GET TRACK NO. IN RO
o1oo RO
*ADD 100(0CT) TO TRACK NO.
LODSEC
LORD BUF uxT TRACK + 100¢0CT)
cuhonvn P. CMND(RS)RE-WRITE
:SET WRITE
DATA COMMAND
A SECTOR
PC, DRVCAL
PC’ TRKCHK
{WRITE-CHECK ALL 3 SECTORS
P.YRCK(RS)
:INCR THE TRACK NO.
#3,P.TRCK(RG)
:SEE _IF ALL 3 TRACKS RE-WRITTEN YET
68’
'BR IF NOT DONE YET

ADD
JSR

000001

0c4s14

820, STESTN

JSR
PC, SETTUP
:8ET UP FOR LOOP ON ERROR
JSR
PC’ CHKITR
sss IF 1TER. NO. = O FOR THIS TEST
IMP
15t21
!JUMPTO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN

000001
000002
000004
000010
ooool2

MOV

RWDTST:

RWTINX=<STN-1>#2

.R/W TEST INDEX

; llli!!lllll!*!l!!lil!ll’lllil!il!llllil!lll*lllill***ll*ii***ll

irss 21
READ/WRITE DATRA TEST
'%#THE _READ/WRITE DATA TEST HAS_2 DIFFERENT VERSIONS, DEPENDING
*ON THE VALUE OF THE DATA PATTERN PRARAMETER (PT).
*

FOR PT =0

8-n"5 8 11:48

CZREMDO RKG11.
0B
CZREMD.PLY
1

RIF

ClO

PRCYLL 3810520 AR IR S0nd 4y TMPCE 120

SE303%,11

6228
6229
6230

SWHERE$S§
I3 ’“$o°8955n5$”&‘¥NBEF“EHo18?’“ REROoREEACHOASS
B
"IN T
tsr THE ENTIRE PARCK
TESTED WITHA SINGLE DATA PATTERN.

6535

gvsnv S?? EC) uongg EACH TRACK IS WRITTEN IN
4 SEGMENTS. FOLLOWED
W
HECK
AD, AND SOF TWARE COMPARE. THE SEGMENTS
ARE 6

iTHIS PATTERN' IS conpaxseo OF THE DATA PQTTERNS 00-15,

*SECTORS EACH,

6234
6235
6238

WHIcH MEANS THQT SPIRALING OCCURRS ON THE LAST

:SEGHENT WRITYEN ON EACH TRACK
s

} %THIFOR_P
TEST PERFORME READ/WRITE Funcrxons ON_THE ENTIRE RANGE OF

853
/

i ¥CYLINDERS (FC-LC), TRACKS (FT-LT),
*AT_EACH SPECIFIED’ SECTOR WC WORDS' OF

6239
6240
6241
6242

6243
B4
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
626
626
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283

WHICH REPEARTS

SECTORS (FS-LS) SPECIFIED.
HE CURRENT RE EQTING DQTQ

lPQTTERN AR

HRS ER H?N HRITE CHECKED FO%EONED 2

USING SECTOR

lQN

SOFTW

TRRCKS

;pnrrzans

N 7

THIS

1S REPEATED

CHOSEN é

S DONE
D
F TR

INCR

USING EACH OF THE oruen o

ARAMETER PT.

THEN,

ERD

ECTORS ON ALL

EACH

THE

neovs

OPERATIONS

:¥ARE REPERTED nT ACH OF THE REMAINING’ CYLINDERS, IN THE SPECIFIED
: XRANGE , us*ng
?YL NDER INCREH NT IC.
‘% NOTE THAT FS M
cuos
o = LS AND rr MUST BE < OR
= LT.
: ¥HOWEVER, FC MAY BE
0 IF FC>LC,
THE CVLINDER

! #ADDRESS' WILL BEORtfiTEo av 16 (xnsrsno or tncasnsnvso) 70
*#0BTAIN ERCH NEW CYLINDER ACDRES

llil!llllllilllllllilllllllil»llllil!ll!!lillll!!l!llllIllll*llfll

024516
024520
024526
024532
024536

000004
012737
004737
004737
000137

000021
030462
030530
025430

024542
024546
024852
024556
024564
024566
024572
4600
4604

004737
004737
105037
032777

027522
026040
003134
000040

024606
024614
0246
024624
Q246
024636
02ub4e
024644
024646
024654
024660
024664
024670
024676

001002
004737

013737
8857 7

001324

+4721:

’

000012

803733
850457

2%:

JSR
CLRB
BIT
BNE
JSR
MOY
TST

PC ' PREPKB
XOVLAD
8BITS, JSWR
28
PC,LODP14
PT.PATRN
PT

000010

013737

005602
00S604

005764

::SET TEST NUMBER IN APT MAIL BOX

QET UP FOR LOOP ON ERROR
ses IF ITER. NO. = O FOR THIS TEST

141

!PREPARE FOR POSSIBLE KBD INPUT
S INIT XXDP OVERLAID Inoxcnron
sss IF WRITES INHIBITED
*1IF YES,DON’T CHANGE RAND DATA PAT
csnsna?sPSSHDO RAND PAT 14
IGET
35 }rggxsx
vsnxrv nTn TEST DESIRED
‘BRI

;SET PQRSS%TERS FOR QUICK VERIFY' DEFRULT DATA
T
4§ :

S§:

6%:

13765

srzsrn

PC,SETT
pC’ CHKITR

BNE

000010

821

JSR
JSR

RETURN flQSE
rnogsgnxxrn
IF TEST'?GHe
T_END-OF-PASS ROUT INE
JSR
PC,INITSS
??&nL?SE stven PARAMS AND SUB-SYS

154354
005544

SCOPE

MOV

nnuaur .BALO(RS)

-?57
R/W SUFFER ADDRESS

CLRB

NIT TRACK 1O O

CLRB

P SECT(RS)

CLR
MOV

JSR

303

NLRS)

c (RS)

8-1536.

,P.WC(RS)

PC; CHKLIM

18%

MOV
BIC

nn# RO
01??774 RO

,%h

cYL 10

szr uono
Souur FOR & SECTORS

,I
NIT

: CHK
uRo counr AND PACK ADR TO AVOID OVERFLOW
'RETURN RDDR FOR TRANSFER NOT ALLOWED
PROCEED

.SET PARAMETERS FOR NON-DEFAULT DATA TEST
43
MOV
MR,P.BALOCRS)
;SET BA BITS 0-15

g81SB
MOV
MOV

RO,P.BRAHJ(RS)
MR’ PMA
MRi2, PMA+2

;GET MA BITS l6-21
‘MASK FOR LO 2 BITS

:SET BA BITS 16,17

:SET BUFFER ADDRESS

CZR6MDO RK&11-06 SS VERIF 1
CZREMD. P11
10-JAN-78 11:48

6284

024704
4710
4714

105237

208082

003134
055716

024716

C04737

026604

024722
024730
024734
024740
0e474e
024744

013765

005732
000001
005760

D10

30A(1052)
10-JAN-78
12:16
PAGE
T21
RERD/WRITE DATAR TEST
INCB

005740
005516
005766

024776
025002

04737
25330

025004

012737
004737
po4737
004737

8339%7
00
oocoooooo
WWwWwwWwwww
m.......;...—.—.—...
OOVONOCN
LW

6312

000012
035762

000002

00000S
000004
oooal2

025004
030462
037626
034626
003140
000040

001110

000123
037740
000020

000001

000131
37740
03141

000001

000002

154026

000010

154016

000121
037740
000004

000001

0Q5737

SSEé 881031

005760

025202
025210
025216
0z2s5ee0

000006
000004

062765
126527
002002
000137

024636

§T11

154056

JSR

EPAR

MOV

FC,F.CYLN(RS)

INITIALIZE TEST PénnnETERs

44g:
108:

14%:
163:
178:

SEQ 0399
SEQ 0120

:SET XXDP OVERLAID

INDICATOR

'SSEIE nsngnv
nnnncsnemT PRESENT

;INIT CYL TO FC

MOV
BIT
BNE
ASL
BEQ
BR
MOVB
MOVB
zgg

#1 Rl
R1'PT
14$
R1
25$
108
FT,P.TRCK(RS)
FS'P.SECT(RS)
gcagzgg§RS)

:INIT PATTERN BIT POINTER
SEE IF THIS PATTERN SELECTED
R IF TH*% PQTTERN IS SELECTED
SHIFT PATTERN BIT
P
:BR IF ALL PATTERNS cuscxso ON THIS CYLINDER
GO CHECK ANOTHER PATTERN
:INIT TRACK TO FT
}INITIRLIZE SECTOR TO FS
:SET WORD COUNT FOR WC WORDS

JSR
25g

PC,CHKLIM

-SH CK WRD
CNT AND PACK ADR TO AVOID OVERFLOW
ETURN ADDRESS FOR TRANSFER NOT ALLOWED

MOV

JSR
JSR
JSR
CLR8

208:

22%:

BITS,
aog

JSR

PC, TRNSFR

BNE

22%

BIT

asuWr

SET NEW LOOP ON ERROR ADRS

:SET UP FOR LOOP ON ERROR
'STORE PARAMS FOR THIS XFER
:LOAD DATA INTO R/W BUFFER
QEQL ncgg;gnnnn RE-ISSUE FLRG

#WRDATA,CP HND(RS)

WRITES INHIBITED
g f?é ED

ET WR

WriTETus 9979

OMMAND

MOVB
5259

uairq FSWR

‘SEE IF

JSR

uuavcnx P. cnnotns) :SET WRITE cuscx COMMAND
NSER'
8 R}TS
CHECK OF DATA WRITTEN
eee L
ERROR OCCURRED

BIT
BEQ
Sfi{

$BIT1, aSWR
248
gegra JSWR

see IF RERO AND COMPARE SHOULD BE DONE
'BR IF NOT
g E IF REQB nng COMPRRE INHIBITED

MOVB

onoonrn P. CMND(RQ) ET Rsno COMMAND

JSR

RNSER

BIT
BNE

catre,asun
248

JSR

PC,DRVCA

24%:

JSR
TSTB
BEQ
MOVB

27%:

SCOPER

000001

3LPE R

PC ETTUP
PC. SVPRMS
PC| LODBUF
RE!§§

BIT
BNE

MOVB

183774

TST

BNE

00000
000030

s PREPARE MEM MGT FOR RELGCATION

PERFORM TESTS nr CURRENT RDDRESS

{gs-

154100

035054
003136

358518

XOVLAD

121

: PREPARE Pnce noonsss REGISTERS FOR RELOCATION

118:

024746

ges01e

MACY1l

BR IF

READ T

} i
CHECKS INHIBITED

INWIBITED

ATA

ses IF sorrunn COMPARRES INHIBITED
'BR IF INHIBITE

PC, CMPBUF
:PERFORM SOF TWARE COMPARE OF DATA
pbULACS
'SEE IF DUAL-ACCESS DATA TEST
278
:BR IF NOT DURL-ACCESS
cREbERScnno(ns) EET
oaxvs R?LEQSE COMMAND
PT

REL

cnecx FOR INTERNQL LOOP ON ERROR

a }F 8¥xcx vsnrrv onrn TEST DESIRED

40$

QUICK
V

: INCREMENT PACK noonsss FOR QUICK vsnxrv DEFARULT oqrn TEST
ADD

SECT(RS)

; INCREMENT SECTOR BY &

CMPB

QECT(RS),CEH :SEE IF SECTOR LIMIT REARCHED YET

JMP

BGE

345

:BR IF LIMIT EXCEEDED
:GO BACK AND TEST

CZREMDO RKB11-/06 SS VERIF 1
10-JAN-78 11:48
SZRBMD.PL1
&340
6341
6342
6343
6344
6345
6346
6347

025ee4
025230
025236
025240
025244
025250
025256
025260

025264
025272

025430

105265
122765

000005
000003

Q24624
goQooe
017762
000137

024620

063765
126537
003631

005756
000004

005037

MACY11

00000S

ogcooe

000004
00ss5e0

30R(1052)
10-JAN-78
12:16
PARGE
T2l
RERD/WRITE DATA TEST

348

36%:

INCB

CMPB
BEQ
JMP

INC

CMP
?gg
ADD

005736
000002

goooge
005734

024730
005736
000002

000002
005734

:SEE IF TRACK LIMIT EXCEEDED
‘BR IF YES

P.CYLN(RS)

: INCREMENT CYL

LCP1,P.CYLN(RS) :SEE IF CYL LIMIT EXCEEDED
ags
:BR IF YES

25%:

26%:

027262
003144

318:
329%:

.SBTTL

; INCREMENT SECTOR BY IS

MOVB
RDD
MOVB
CMP

P.TRCK(RS),R3
IT,R3
R3,P TRCK(RS)
R3L

:GET TRACK NO.
: INCREMENT TRACK
:PUT IT BACK
'SEE IF LT EXCEEDED

JMP
CMP
BGT
ADD
CMP
?fi;

118
FC,LC
264
IC,P.CYLN(RS)
P.LYLN(RS),LC
34’

:IMP T0 cnecx FOR NEXT PATTERN
'SEE IF FC>LC
‘BR IF FC)LC
;INCREMENT THE CYLINDER
:SEE IF LC EXCEEDED
‘BR IF LC EXCEEDED

CMP

SUB

P 6 (RS),LC

;DECREMENT THE CYLINDER

TSTB
BEQ
JSR
1578
BEQ
CLR

XOVLRD
318
PC, GETXDP
UBMPRS
32%

:SEE IF XXDP MIGHT BE OVERLAID NOW
'BR IF NOT
'RESTORE XXDP LOADER, IF SAVED
:SEE IF UNIBUS MAP PRESENT
:BR IF NOT
:DISABLE 22-BIT MODE AND UNIBUS MAP

?hg

30%:

SECT(RS)

PQECT(RS) Ls

BLE

0e4730
003134

172516

: INCREMENT TRACK

83, P.TRCK(RS)
368

CMPB

BLE

005734

178

15&

YLN(RS)

J8SR3

,sss IF LS EXCEEDED
:BR_IF NOT YET

'BR IF NOT YET

;SEE IF LC EXCEEDED
:BR IF LC EXCEEDED

END OF PASS ROUTINE

< 3606363605 363600 36 36 36 36 36 36 36 36 36 36 36 36 96 3606 36 30 06 30 000606 I N U D H AN MM RN ARSI R

iINCREHENT THE PASS NUMBER (S$PASS)
;#TYPE “END PRSS AXXXXX" (WHERE XXXXX IS R DECIMAL NUMBER)
;#IF THERES
R HONITOR GO TO_IT
{%#IF THERE ISN'T JUMP TO APTPRS
025430
025430
g2s43e
025436
025442
025442
025450
025454
025460
0asueH

SEOP:

000004
005237
000137
042777
005037
005037
005237
042737

153474

001326

SEQ_3J400
SEQ 012!

: INCREMENT PACK nooness FOR NON-DEFAULT DATA TEST

408

00000S
005744
00000s
005742

024742
005732

P.TRCK(RS)

122

DUNPAS:

SCOPE

LRFRRS

SDEVCT
NEWDRV

: INCREMENT DEVICE COUNT FOR APT
GO SEE IF MORE DRIVES TO TEST ON THIS PRASS

CLR

$TIMES

:ZERO THE NUMBER OF ITERATIONS

BIC

#100000., $PASS

INC
ImP

:THIS IS TRULY THE END o# RSS
DISRBLE TTY KBD INTERRUPT
#8176, a$TKS
CLR
$TSTNM
,,zsno THE TEST NUMBER

BIC
INC

$PASS

INCREMENT THE PASS NUMBER

.,DON ALLOW A NEG. NUMBER

CZR6EMDO RKB11-06 SS VERIF |
CZRBMO. P11
10-JAN-78 11:48

gesu472
025474

MACY11l

005327

30A(10S2)
10-JAN-78
EN D OF PRSS ROUTINE

SEOPCT:
SENDCT:

Q0O NONLWN

ooooooooo
o o o 3 o o o
P
N"‘"‘"""""""""

6421

000240

025600
025606
025610
025614
025616

000137

(PC)+
|
$DOAGN
(PC)+,a(PC)+
|

MOV

§PASS, - (SP)

TYPDS
TYPE

025550
000042

000137
025570
377

DEC
.WORD
BGT
MOV
.WORD
SEOPCT
TYPE

025553
001326

277
p4e4le
051501

coo
Q42116
0eol23

000001

001340

001326

ooooae

SENULL

Js42, RO
SDOARGN

$ENDAD:

PC, (RD)

$RTNAD:
$ENULL:

RESET
JSR
NOP
NOP
NOP

JMP

.WORD
.BYTE

PARGE

SENDMG

$GETY2: MOV
BEQ

$DOAGN:

F10

12:16

123

SEQ J 40 1
SEGQ o1 a2

; s LOOP?
;s YES
; ;RESTORE COUNTER

; TYPE “END PRSS
#

,,SRVE $PASS FOR TYPEO

;GO _TYPE--DECIMAL RSCII WITH SIGN
; TYPE R NULL CHARACTER

,,GET MONITOR ADDRESS

; ; BRANCH _IF NO MONITOR
; ;CLEAR THE WORLD
; ;GO TO MONITOR
,,SQVE ROOM
;FOR

;;QCTII
Jd(PC)+

inpns

; s RETURN

NULL CHARACTER STRING

SENDMG: .RSCIZ <1s><la>/£no pAss’s
APTPAS:

CMPS
BNE

SAPTENV, SENV
2%

BLO
INC
BR
IMP

2%
$TSTNM
18
NEWPRS

cCMP

001102

18:

017014

c$:

$PASS,
#2

;RUN UNDER THE RPT

iBRANCH IF NO
: TWO PASSES
?
NOT
:BRANCH_IF
: INCREMENT THE TEST NUMBER
:LOOPING FOR APT TO DUMP NEXT PROG
:JMP TO MAIN LOOP

; THIS IS THE ABNORMAL RETURN FROM THE DRIVER

WHICH IS USED WHEN NED INDICQTION 1S EXPECTED (AND VALID).

0ese22

032765
gg1002
000137

010000

o421e4
000001

ooss1o

00ss40
012600
000137

o44342

000020

&EDHD&NED
= NONEXISTENT DRIVE)
INED .CS2(RS)
BIT
18
BNE
ERRHOL
RO, -(SP)
19:
R1,-(SP)

#1,R0

29:

39:

R1
R1,DRIVE
33
R1
RO
2%
RO, NEWON

(SP)Y+,R1
(SP)+ RO
RETNML

;SEE _IF NED ON DRIVE SELECT

iBR IF NED SET
:GO HANDLE ~OTHER ERROR
:SAVE RO,R!
;SET BIT POINTER

CLEQR COUNTER

EEIéF
R1 = CURRENT DRIVE NUMBER

INCREHENT COUNTER
!SHIFT BIT POINTER

;TRY AGAIN

'CLEAR ONLINE BIT FOR
:RESTORE RO,R1
. TAKE

NORMAL

THIS DRIVE

RETURN

;;i!***il*i*if!*l§ill§§fiiiii§iiiifililflillii*fii*iiiilii*i!ii*i

CZR6MDO RKB11-06 SS VERIF 1
CZReMD.P 11
10-JAN-78 [1:48

MACY11l

64Se

30A(1052)

Gl0

12:16

10-JAN-78

KB DHDL

124

PAGE

- TTY KEYBORRD INTERRUPT HANDLER

.SBTTL

KBDHDL - TTY KEYBOARD

KBDHDL:

MOV

INTERRUPT HANDLER

Do EREEEEEERRERRERARE
R RN
N R AR AAR R AR R AR R R AR AR R R RRRAREE S

025700

010146
17701
42701

120127
003?0;

863382

042701

153240
177600
000172

BGT

MPB

000141

000040

20%:

142431 363535

001007
104401
Q42777

012426
000100

153166

18
2s:

000032

33:

0000ee

26028

0e6024
026026
026032
026036

104401
104401
000744

BIC
MOV
CMPB
NE
TYPE

000007

poss3e
001315

Ré $141

#BITS,R1
Ré snfcnn
0

ON STACK

'READ A CHAR FROM KBD BUFFER
‘MASK OuT UNUSED BIT
‘SEE IF LOWER CRSE TYPED
:BR

IF NOT

:BR IF NOT

nnxs IT UPPER CASE
AVE INPUT CHARACTER
EE IF
(#C) TYPED
BR IF NOT (#C)

CMPB
BNE

%032, R1
33

'SEE _IF (%2) TYPED
‘BR IF NOT (t2)

RTI

RLC

;SAVE R1

PECHO (C)

CNTRLZ

:CLEAR
KBDR INTERRUPT ENARBLE BIT
:RESTORE
;RETURN

SECHO

($2)

*RETURN

CMPB
BNE

#022,R1
4§

‘SEE IF (4R) TYPED
'BR IF NOT (tR)

B8R

[

'RETURN

CMPB

BNE

TYPE

gl124s2

JstkB Rl
#177600,R1
nx 8172’

&axts
JSTKS
(SP)+.R1

TYPE

012440

R1,-(SP)

BIC
MOV

TYPE

012433

104401
000757
122701
081003
104401
000751

MOV
BIC
CMPB

CNTRLR

#007,R1

CNTRLG

TYPE

NTCHR

CRLF

:ECHO

(1R)

iSEE_IF

'BR IF

(1G)

NOT

TECHO (1G)

TYPED

(tG)

RETURN
CHO

d <C ) nno (LF»

RETURN

H R 222323222222 2222%222222z2222222¥222222XX2X22222222222 222222222222

'43TTL

PREPKB - PREPARE FOR KEYBOARD INPUT

:¥THIS SUBROUTINE CLEARS THE KEYBOARD BUFFER AND THE

:¥DONE BIT, AND CL5 ? HE TTY INTERRUPT INPUT WORD
:#INTCHR, IN PREPARATION FOR NEW TTY INPUT. IT ALSD

*ENRBLEQ KBD INTERRUPT.

;% CALL

P ¥
"JSR
PC, PREPKB
!*llillll!!!il*li*llliill!lllllilll!ii!l!llillllilll!li*l!ili*&
0ee040

PREPKB:

005077

000207

153066

CLR

J$TKB

RTS

CLR
BIS

INTCHR
#BIT6,d$TKS

;CLEAR KBD BUFFER AND COONE BIT

CLERR TTY INPUT WORD
!ENABLE KBD INTERRUPT
:RETURN

R IY2222222222222222222222222X22X22XXXXXX22XTXEXL2XIZEXSISS2
LS R

‘4BTTL

ECOBAD - ECHO ano TTY INPUT

:¥THIS SUBROUTINE ECHOS
A CHARACTER WHICH HAD BEEN

SEQ o4 c 2
S E Q 0l a3

CZREMDO RK6L11-06

LZRBHD. i1

VERIF

10-JAN-78

11:48

MARCril

ooooocooco oo oo o
i
iy i dnuiainan uwn wn
WM NIMUNY NN PUNINY NY 3 b= s b 4o s > —
=~ O0ONCNLE WH—OVDONOCN LW n

125

HO BARD

AND

WAS

DETERHINED

SEgsegoaxaq
INVALID

.RBQSOEP ngt0§§aBYA QUESTION MARK

026060
026064
026070

104401
104401
000207

ECOBAD:

00SS32
001314

(?).

FOR

THEN,

SOME

R (CR>

PC,ECOBRD

TYPE

TYPE
RTS

, INTCHR

R AR R RN AR AR ARARRARLRERRE RGN

:ECHO BAD CHARACTER

' $QUES
pC

STYPE <?> AND <CR>, <LF>
: RETURN

30330 0000030 30 06 36 30 38 36 36 36 36 36 38 38 38 36 36 36 36 30 36 38 36 36 20 30 26 36 36 36 36 36 36 30 30 36 3 38 30 3 06 20 30 6 30 36 3 38 08 36 3 3 3 3 3 %

*?Hfgsguad3u¥§ngen?an Enokv 6v CALLING LIMITS
SUBROUTINE
SSIZE, AND
ou pnnnnefen MA.
rxr USES
THE VALUES RETURNED, TO SET THE
3 “gEQ TY
PES RST ang MEA QPR xxxxxxxx“ (
*
026072
026074
0cbl102
026106

104407
012737
004737
005737

6532
6533
gggg

026114
0e26l22
02blee

6536

0561%4 00s004

055716

013737
005037
000436

0Sbk162
006130

006126

026130

013700

0S6164

6538
6539
BS540

026136
026142
026144

012702
000241
(006100

000006

65S4S

026154

063700

056162

6S47
es48

026162
826192

010037
10137

006126
006130

ONOO0O0O000D

000200
(0SSE60
055716

653

EéO-JQN 7§TY1?NAS PAGE

COBA

; #TYPED

6508

H10

3 Q(IDBEI

#AND

S THE

112737

000001

6560
6S61
6562
£Se3

026224
026230
026234
028240

104401
012746
004737
004737

007413
C06126
(053422
053736

22-BIT ADDRESS

JSR

157
BMI
MOV
CLR
BR

%200, 8KT11
PC séxzs
skt
8s
$LSTAD,MAHILM
MAHILM$2

f‘

SUPRS'D)

SED (11,70).

168

: SAVE RO-RS
'SET nzn ncr KEY FOR $SIZE

:SIZE
ME

:SEE IF nsn ncr PRESENT
:BR IF MEM MGT PRESENT
:SET MEM LIMIT LO BITS
CLEQR MEM LIMIT HI BITS
GO TYPE LAST ADDRESS

-SHIFT SAF LEFT &, AND PUT IN RI-‘RO
83:
MOV
${STBK,RO
L0 glrg
CLR
RI
‘HI BIT
128:

MOV

cLC
ROL

86, R2

:SET LOOP COUNT

‘ROTATE LOOP

= &

R1
RE

:ADD VIRTUAL nooasg;
70 SHIFTED
snr 10
csr PHYSICAL ADDRESS
ADD
ITS
RDC
R1
HI axrs

MOV

003144

RO, MAHILM

ggg

R1.MAHILM+2

ROL
ROL
ROL
ROL
ROL
R0L

RO
R1
RO
R1
RG
Rl

CMP

000637

0Oefe2lb

= 1 IF

lll'lll!lllllllllllllll!llll!lllliillllllllll!!llill!l!l!llilli*

Stznsn SAVREG
MoV

ROL
gsg

6558

FLAG UBMPRS

BLO
MOVB

R1,

153

837

‘SET LO BITS OF MEM LIMIT

:SET HI

:SEE

PRS

BITS OF MEM LIMIT

IF 22 BIT ADOR

‘BR IF NO
:SET "UNIBUS MAP PRESENT" FLAG

TYPE ”LRST PHYS ntn noR XXXXXKX X"
{es:
YPE
LSTMEM
:TYPE "LAST PHYS MEM ADR ="
nov
bnnHILn -(SP) :PUT POINTER ON STACK
JSR
JSR

PC, 3#$0820
PC J#SSUPRS

:CONVERT BINARY TO OCTAL ARSCII
TYPE 4099600
&

CZReEMDO RK&11-06 SS VERIF |
CZREMD.PI1L
10-JAN-78 11:48

6564

6565

6566
6567
6568

0Oebkedd

026250
026254
026256

104401

104410
000207

I10

MACY11l 30A(10S2)
10-JAN-78
l2: 16
PRGE
ECOBAD - ECHO BAD TTY INPUT

00131S

6577
6578
6579
6580
6581
6582
6583
6584

026260
02beb4
(026266
026267
026270
026274
026300
026302

0l6646
104403
006
000
104401
004737
026332
026332

(026304
026306
026310
(026312
026314
026320
026322

026332
005700
001001
000207
020027
003407
104401

6593
6594
6535
6536
6537
6598

026332
026336
026340
026344
026350
026352

162716
000207
012746
004737
026322
012600

6600
6601
6602

026360
026362
026366

001360
010066
000207

6599

6603
6604
66085
6606

RESREG
RTS

;RESTORE RO-RS
; RETURN

026326

(026354

104401

00S737?

c BRI

000002

¢ETPRM MOV
TYPQS
.BYTE
.BYTE
TYPE
JSR
79
79

007623
030624

000006

4s:

005272

6%:

000010

00Se72
0S2464

8%:

001314

052616
000002

NEWMSG
PC,RDCHRS

$QUES

SUB
RTS
MOV
JSR
63
MOV

510,(SP)
PC
OBUFFO -(SP)
PC,0C TBIN

BNE
MOV
RTS

69
RO, 2(SP)
PC

(SP)+ RO

6608

ER LR R R

R DR

;FIX ERROR RETURN PC
ERROR RETURN
PUT POINTER TO CHARRS ON STACK
CONVERT DIGITS TO BINRRY
ERROR RETURN RDDRESS
GET NEW BINARY VALUE

gH10Cct

; (tU) OR ERROR RETURN ADDRESS
,SEE IF ANY CHARS TYPED
:BR IF YES
,RETURN - OLD VRLUE UNCHANGED
:SEE IF > 6 CHRRS TYPED
+BR IF NOT BARD
;ECHO BRD INPUT

RO
43
PC
RO, #6
8%
, BUFFQ

TYPE

;GET OLD VALUE
TYPE IT
SIX DIGITS
SUPPRESS LERDING ZEROS
TYPE
NEW
RERD NEW VALUE FROM KBD
(fC) RETURN ADDRESS
,(fZ) RETURN ADDRESS

6
0

79
TST
BNE
RTS
CMP
BLE
TYPE

$ 2 NN

QBTTL

TN ENNE NN RN NN RN

2(SP),-(SP)

TST

6607

SEE IF HI BITS RRE O

8 IF NOT
PUT NEN VALUE ON STACK
,RE URN
RN

RN R RN R RN RN R RERREREREER

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

; #THIS SUBROUTINE ALLOWS THE CONTENTS OF THE SOFTWARE SWITCH

6609

iREGISTER T0 BE HOOIFIED BY TTY INPUT. THE SUBROUTINE TYPES

6610

;% "SWR
= XXXXXX

661l

eble

; TYPE <CR> ,<LF>»

SCRLF

i GETPRM - INPUTA SIX-DIGIT OCTAL NO. ON TTYKBD
*ENTER SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE
lTYPES OLD VALUE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON
lTOP OF STRCK.

6585
6586
6587
£588
6589
6590
6591
6S92

, SCRLF

l!l!ll!l!illl*i!liill!*llllll*!l!§ilillll!!llll!llll!lill!i!l!l

6572
6573
6574
6575
6576

SEG O4CH
SEQ 0125

TYPE

6571

126

NEW

AND WAITS FOR R NEW OCTAL VALUE

!OF upP T0 SIX DIGITS TO B8E TYPED.

6613
bbl4
661S
6616

026370
026376
026400
026404

022737
001010
013746
104401

000176

6ol8
6619

026414
026420

012637
000207

000176

000176
007614

6617 026410 004737 026260

001140

o 3636 3636 36 36 36 36 38 36 36 36 36 36 36 36 36 36 96 36 36 36 6 36 36 96 36 36 36 3 36 36 36 3 36 36 36 36 36 36 36 36 36 3¢ 36 3 36 36 36 36 06 3 36 36 36 3 36 36 3 2 3 % %

bfsuRG CcMP
BNE
MOV
TYPE

JSR

63:

MOV
RTS

#SWREG, SWR
69
SUREG -(5P)
WRMSG

;SEE IF SOFTWARE SWR SELECTED
BR IF NOT
PUT oLD VRLUE ON STARCK
STYPE “SWR =

(SP)+,SWREG
PC

:STORE NEW
V
RETURN

PC GETPRM

TYPE oLD GET NEN SWREG VALUE

CZR6EMDO Rk611.06 SS VERIF 1
CZREMC. P11
10-JAN-78 11:48

MACYL1

J10

30A(1052)
10-JAN-78
12:16
PAGE 127
GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

6620

6853

:
CAINITMM
= INITIALIZE MEMORY MANAGEMENT
MAN
REGISTERS oo rryrixxxs

6625

:#THIS SUBROUTINE INITIALIZES KIPAR’'S AND KIPDR’'S,

6626
6627
6628
6629
223?

'¥MEM MGT

gggg

02622

104407

6634

026424

005001

6637
6638
6639

026436
026444
026446

6635
6636

6640
66M1
eb42
6643
6644
6E4S

6646

6647
gg:g

026426
026432

012702
012703

026452
026454
02645
026462
026466
026470

005303
001370
012742
105737
001403
012737

026476
026504
026506

0le762
0}0122
062701

012737
104410
000207

172340
000010

077406

177740

ENABLED.

177600
003144
000060

001000

172516

177572

10%:

CLR

MOY
MOV
RDD

#77906, -40(R2)
R1, (R2}+
8200, R1

SAV

:INIT FOR PAR_LOADING

$KIPARO, R2
8. ,R3

;ADDR OF FIRST PAR
:LORD 8 PAR’S AND 8 PDR’'S

DEC
BNE
MOY
TSTB
BEQ
MOV

R3
4$
$177600,-(R2)
UBMPRS
10%
#60, 9%SR3

;DECREMENT LOOP COUNTER
'LOOP UNTIL ALL 8 ARE LOADED
:SET UP KIPAR7? FOR 1/0 PAGE
:SEE IF 22-BIT ADDRESSES
:BR_IF NOT
:ENRBLE 22-BIT MODE,AND UNIBUS MAP

RESREG
RTS

MOV

#8119, 38SR0

:PDR = YK,UP,RERD/WRITE
:LORD A PAR
:UPDATE FOR NEXT PAR

'ENARBLE KT1l TRAPS
!RESTORE RO-RS
RETURN

;igg;*¥EE*;3*¥¥*E*:3;*;E;*%¥*¥;a;g*‘*******'********************

026510
0265614

6653
6660
6661

026536
026544
026552

026522
0265306

026560
026562

6664
6665

026564
026572

gggg

026600

6666

4S:

;

6655
6656

6662
6663

ARE

MOV
MOV

000200

gggg

6667
6658

TRAPS

i&?#r‘:;llgalazz!l!&l!!!llll!*lllll;llgl;gl;;illlllllill*!*l’l!l!*l

T
6654

FOR

*xCONTIGUOUS 4K PRGES, STARTING AT PHYSICAL ADDRESS 0.
:#KIPAR7 1S LOADED WIYH 177600, TO PRESERVE THE I1/0 PAGE.
:x22-BIT MODE AND THE UNIBUS MAP ARE ENABLED, IF PRESENT
PxBUT MEM MGT IS NOT TURNED ON IN THIS SUBROUTINE. HOWEVER,

026576

UTIN

o o 3036 36 36 3 36 3k 36 3 36 36 36 36 36 3 36 3 36 36 3¢ 3 3 3 36 3% 3 3 3 I I 3 3 3 3 3 3 3 3 3 3 3 3 % W I 3% K 3 K

004737
013737

041704
177572

001174

KYERHD: JSR
MOV

012737
012737
013737

026562
000340
172516

000004
000006
001202

MOV
MOV
MOV

013737
013737

000406
022626

177674
177576

112737
105037

000003
062201

000137

044134

104121

001176
001200

063526

8%:
108:

PC, REPSUP
95RO, SREGS

MOV
MOV

45R1 . SREGE
J8SR2’ SREG?

BR
CMP

108
(SP)+,

:GET SRl
:GET SR2

888, JBERRVEC
:SET TIME-OUT VECTOR
8PR? , 98ERRVEC+2
38SR3, SREG1O
:GET SR3
(SP)+

MOVB
CLRB

#3,DF30+18.
DH?O4+11.

JMP

HLTPRG

ERROR

I Ik 3 I W % % WH % %K% %

s GRTHER STATUS FOR PRINTOUT
'GET SRO

121

:CLEAN UP STACK

:FIX PRINTOUT FOR NC SR3
:KT11

PABORT

FARILURE

1117

6669

134
Be7s

| LPREPAR = PREPARE MEM MGT FOR RELOCATION o rrxRaxyyiixsndarsy

6673

:¥THIS SUBROUTINE CALLS

8675

; #IF

6674

INITMM,

AND

THEN SETS UP CONSTANT

‘¥FOR KIPARE IN SAVPAR, AND LOADS THE UNIBUS MAP REGISTERS,
PRESENT.

SEG Q405
SEQ 0126

CZR6MDO RKB11-06 SS VERIF 1
10-JAN-78 11:48
CZRBMD.P 11
026604

104407

MACY1l

30A(10S2)

2 30U

II IR

BIC

MOV
MOV

026662

oo
oo
NNNNNNNNNN

1) 4t 0o 4=t Pt Pt Pt ps s pme.

OwoONONIEZWL—O

026724

6721

R R AR R R RRE R R R R R R R AR R R AR R RRRRRERLLS

PMA+2, R1
RO,R3’

‘HI BITS OF MA
:SAVE THESE BITS

;GET MR BITS 13-21

017?77 RO

ROL

ROL
ROL
SWAB
ROL
RORB

RO
R1
R1
RO
Rl

TSTB

UBMPRS

MOV

4g§:

MOV

020000
160000
000003

R1, SAVPAR

nnsx FOR BITS 13-15

INTO Rl BITS 7-15

; CONSTANT FOR LOADING PARG LATER

:SEE_IF UNIBUS MAP ENRBLED

000010
000007

000207

:SET REGISTER COUNTER

:LORDA MAP REGISTER

MOV
ggg

R4’ (RO)+
aaoooo R3

SOB

BIC

60000 P. anLO(Rs) ;CLERR BA BITS 13-17

RESREG
RTS

BIC8

9§

#31. .R1’

R3, (ko)+

;ADD 4K WORDS
LOOP UNTIL 31(DEC) ARE LORDED

P.BANI(R

§ 5 636000 I 00 000

: RESTORE RO-RS
*RETURN

000000 0 3000 300 30

RN RN

i FNDXDP - FIND STARTING RDR OF XXDP LORDER , AND STORE IT
: #IN XXDPRD.
026726
0ee732
026734
06742
026744

026776

00Ss737

SEQ_Q406
SEQ 0127

BEG
93
;BR_IF NOT (NO UNIBUS MAPPING)
; PREPARE FOR 22-BIT ADDRESSING LORD UNIBUS MAP REGISTERS
MOV
#MAPLOO, RO
;S RTING ADDR OF MAP REGISTERS

170200
000037
062703

128

:SAVE RO-RS
INIT nsn MGT REGISTERS
LO BITS OF MA

R1,RY

MOV

003206
003144

PAGE

PC, INITMM
PMA
. RO

MOV

ROL

026654
026660

12:16_

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

PAEPAR: SAVREG
JSR
MOV

Oce422
005602
01?7777
00S604

K10

10-JAN-78

fobd-tubabet othababobobfd-dotcfeboh-Salabababobo
bbbl b
bk bbbl of-dabefot-4- 1o tufofbedetbotataotl

FADXDP: TST

006130

160000

005546

4§:

ooeleb

157776

6S:

006126
ooooae
006000

00SS46
005546
005546

8%:

A RN

MAHILM+2

BEQ

CMP

MAHILM, #157776

ggv

BHIS
MOV
ADD
SuB
RTS

TEST HI BITS or UPPER MEMORY LIMIT

'BR_IF HI BITS

ARE O

gésoooo,xxopno:START OF 28K IS END OF XXDP

4§
MAHILM, XXOPAD
82, XXDPAD
osboo XXDPAD

;SEE_IF MEM LIMIT > OR
= 157776

:BR IF YES
;HI MEM LIMIT IS END OF XXDP
*ADD 2 BYTES
conpurs START OF XXDP
RETURN

S 3063036 36 36 36 36 30 36 30 36 36 3600 06 06 6 36 36 36 06 06 36 3000 96 06 38 36 38 36 30 06 3036 30 90 0630 36 30 3036 30 00 36 06 36 303006 00 3 6

2 2 2

iCHKXDP - CHECK FOR_IMMINENT OVERLRY OF XXDP LORDER
i%¥THIS SUBROUTINE DETERMINES IF THE CURRENT MA AND WC COMBINATION
*NOULD CRUSE OVERLAY OF THE XXDP LOARDER ON R WRITE TRANSFER.
®IF SO,

AN ATTEMPT IS MADE TO MOVE THE LOADER INTO UNUSED MEMORY.

*IF THYS IS NOT POSSIBLE, A RETURN IS MADE TO THE ADDRESS

cznsnoo RKSII‘06 SS VERIF

CZREMD. P11

10-JAN-78 11:48

MACY1l 30A(1052)

10-JAN-78

GTSWRG - OPEN SOFTWARE

6732

:#FOLLOWING THE CALL.

6734

‘% CALL

6733

6735
6736

027000

6739

027002

6741

027010

6740

027006

104407
105737

003136

012700

005626

001005

6751
6762
6763
6754

027046
027052
027054
82705

013700
005300
005001
000241

005766

6757

027064

063700

005762

6760

027076

105037

6762
6763
6764

027106
027112
027116

013703
062703
023703

6766
6767
6768
6769

027124
027126
027130
057134

005701
001003
020037
1gg7q

6758
6763

6761

6765

6270

6771

027044

7060
027062
027070
027072

027102

027122

02713

005760
001406
005737
001403
005737
001404
062716
104410
000207

006100
006101
005501
063701

004737

101345

(00040

005760

2%:

005764
000002

43 :
c$:
6%:

8%:

000002

12%:

027210

005503

6782
6783

6784

6785

6786

£787

027204

027212

027216
027220

027222

:COMPUTE LAST ADR OF XFER IN R1-RO

CLRB

XDPSYD

sINIT LORDER SAVE INDICATOR

00S552

NCB

CMP

BLO
MOV

CLR
JSR

MA, 8100000

124

072000 XDPSAV

XDPSAV+2

PC, SAVXDP

R1'R3

0e0337

006130

CMP

006126

XDPSVD

MOV

RDC
MOV

ADD

020237

4g’
%2, R0

005776

001003

PC, FNDOXDP

BR
ADD

062702

101011

R1
MA+2,R1

:COMPUTE START ADR OF

!BR IFf YES - DON’T MOVE
XXDP

ET snvs INDICATOR

sATTEMPT TO FINDA SAVE AREA FOR' LORDER

108:

010103

MA, RO

005546

027254

027202

ADD

'CHECK HI BITS OF LRST XFER ADDRESS
'BR IF NOT O
CHECK LO BITS OF LAST XFER ADR
XXDP ADR - DON’T MOVE XXOP

004737

6781

RETURN

GET WORD COUNT LO BITS
:DECREMENT IT
'SET HI BITS= O
'DOUBLE IT FOR BYTES

Rl
8%
RO, XXDPAD
3

027164

00Ss01
0100062

RO
R1

WC, RO
RO
R1

TST
BNE
CMP
?LO

005550

027176
027200

ROL
ROL

BHI

072000

6779
6780

!GET START OF XXDP LOADER
:COMPUTE LAST ADDRESS OF XXDP
;SEE_IF MA > LAST ADR OF XXDP

0127

000722
062700

RTS

MOV
DEC
CLR
cLC

:SEE_IF R/W DATA TEST TO BE RUN
'EXIT IF NOT TO BE RUN
!SEE IF DEFAULT DATA_TEST
'BR If DEFRULT DATA TEST
SEE_IF HI MEM ADR
= O
'BR IF O
'FIX UP NORMAL RETURN PC
RESTORE RO-RS

xxOPAD, R3
#5776,R3
MR, R3’

Q027152

027170
027172

RWTINX(RO)
4g
PT
4g
MA+2
6%
82, (SP)

‘BR IF YES

MOV
ADD
CMP

6774

6777
6778

'GET ADRS OF TEST LIST

TST
BEQ
TST
BEQ
TST
BEQ
ADD
RESREG

00S546
005776
005782

100000

6776

#TSTLST,RO

JSR

003135

005037

MOV

026726

003135

005762

027160

,SAVE RO-RS

:SEE IF DUAL-ACCESS DATA TEST

005764

023727

6775

KXDP

DULACS

ADC
ADD

1085237

03459

JSR

TST8

BNE

027142

027150

'SEE IF LOADER MUST BE PROTECTED'

6772

6773

THE SAVE ADDRESS IS STORED IN XXDPSAV AND XXDPSAV+2.

AKXDP: SAVREG

027014
027020
0c7022
027026
027030
027034
027036
027042

6755
6756

¥« 336363 3 36 36 3 36 3 36 36 3 36 <RETURN
noh FOR NO SAVE>
36 36 36 3 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 3 3 36 3 36 36 36 3 36 36 3 3% 3 3 06 3 3 36 36 3 3 3 3% % % % %

6742
6743
6744
6745
6746
6747
6748
6749
6750

PQSE ige

SWITCH

:%xIF IT IS NOT NECESSRRY TO novs THE LOADER, A NORMAL RETURN IS MACE.

6737

6738

L10

éazl?

ADC

3H1

BNE

CMP

R1
RO, R2

#5776,R2

R3,MAHILM+2

SEE

IF MA >

IF NOT

OR
= 1BK

nvs RDR
= 72000
snvs THE LORDER

‘BRTO RETURN
: ADD 2 BYTES TO LAST ADR OF XFER
:GET R COPY

;COMPUTE END OF SAVE AREA
:SEE IF THIS Excssos MEMORY LIMIT

164

:BR IF YES - CAN'T SAVE LORDER

R2, MAHILM

:SEE IF LO BITS EXCEED MEM LIMIT

148

:BR

<«

MEM LIMIT

3 Q407

SEG 0128

CZR6MDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD. P11

6792

027242

10100S

ggeze3
i
it
NN

5723

027226

017616

733 887548 483873

000000
00313S

MARCY11l

10-JAN-78

30R(1052)

M10

12:16_

PRGE

130

SEQ Q408
SEQ 0129

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION
1 4§:
1 6%:

BHI

MOV

fibRB

168

;BR IF YES - CAN’T SAVE LOADER

Ro,xgpgnv

:SET SAVE ADR IN HI MEMORY

Ré XDPSRV+2

108

J(SP),

gg
psvhd

:GO SAVE LOADER

(SP)

SFIX UP_NO- snvE RETURN PC

ShEnR TH; gnv

CATOR

TO RETURN

6795

5 36363636 36 30 30 30 06 30 3608 30 30 00 06 00 60 36 30 30 06 00 30 3036 36 36 08 36 30 36 36 36 36 36 30 30 36 3 3 2 3000 0000 3 0

M M

D
I
THE SEE
208 Lo
L QRDER
. WHTGH
RESIDES SD
AT THE
lPHYSIéQ&
5
E
§
iN
XXDPkS
;
SHYSE%&
:#STORED IN XDPSRV ND XDPSAv+2. ?OTQL OF 1536 (DEC) HORDS QRE MOVED.
ETX%P - R;?TORE THE

XXDP

LOADER TO OR GINQB bOERTI

lTH S SUBROUTINE MOVES THE RELOCRTED XXD
ADER
FROM THE ADDRESS
:#STORED IN XDPSAV,XDPSAV+2, BACK TO LOCATION XXDPAD (ITS ORIGINAL
; #ADDRESS).
SR

OWVONCN LW

oo
oo
0D G000 GO0 00 0D A0 D D D
PUTONU
NU RO
e s et s s s pst s

027254

005004

000410
104407
105037

003134
003135
000001
000041

GETXDP:

XDP1:

802858

005550

38231

XDP2:
006000
006000

000766

027374
027400
027402
027404
027406

004737
006100
00el0l
006100
006101

U030

SAVREG

CLRB
TSTB
BEQ
MOV
TSTB

283
MOV

XDP4:

8%:

XDP1

XOVLAD
XDPSVD
XDP2
#1,RY
Jndl

?pas
RO,,R2
R3

I I

; SAVE RO-RS
*SET INDICATOR TO SAVE XXDP

:CLEAR XXDP OVERLAID INDICATOR
:SEE IF XXDP WAS SAVED
'BR_IF NOT SAVED
SSET INDICATOR TO GET XXDP
SEE } bgnoso BY XXDP

WORDS
E 5 goMOVE é?36(DEC)
37 OF xXDP

csr snvs ADR LO BITS
é I

TST

RY4

gse

MOV
DEC
BNE
RESREG

(R3)+, (RO)+
R2
X3

i SAV
ORD
: SEE xr 1536(DEC) WORDS YET
'BR_IF NOT YET
:RESTORE RO-RS

MOV
DEC

-(ROJ,-(R3)
R2
83
XDP2

BNE

RTS
ADD
RDD

ISR

ROL

ROL
ROL
ROL

$KT11
XDP3

XDPY

PC
#6000, RO
#6000 R3

IF MEM MGT

PC, INITMM

RO’
Rl
RO
R1

; SAVE RO-RS

xoPsnv RO
xoPsnvLa R1

COME HERE

&oP3:

MOV
MOV

BNE
BR

Des4ee

75T
BMI

6%:

027372

éhvxop SAVREG
CLR

104407

SEE

IF MEM ncr PRESENT
if PRESENT

F unnr TO

SAVE OR GET XXDP

T TO GET XXDP

*RETURN
'POINT TO END OF SAVE AREA
:POINT TO END OF XXDP LOADER AREA
:GET A_WORD
'SEE_IF 1536(DEC) WORDS YET
‘BR IF NOT YET
160 EXIT
: INIT MEM MGT REGISTERS

'GET ADR BITS 13-21 INTO Rl BITS 7-15

CZREMDO RKB11-/06 SS VERIF 1
CZRBMOD.P 11
10-JAN-78 11:48
6844

027410
De74le
027414

000301
006100
106001
0in137
013701
Q42701
052701
005704

MACY1l

172354
005550
160000
140000

SWAB
RJL
RCRB
MOV

R1
RG
R1
R1 acxxpnns

BIS

8146000, R1

BIC

168:

TST

177572

208%:

020000

172354

22s:

000713

§p

'FIX UP R1 TO REFERENCE PARG
;SEE

_IF WANT TO snve OR GET XXDP

‘BR IF unur TO GET XXDP

5SRO

:TURN ON nsnonv MANARGEMENT

(R1)+

"GAVEA

WORD

gsc

SB%RO

s TURN OFF MEMORY MANAGEMENT

INC

85RO

: TURN ON MEMORY MANAGEMENT

MOV
DEC

(R1)+,RS
34SRO

'GET R WORD
:TURN OFF MEMORY MANAGEMENT

#8i113,R1
228
1-344

:SEE_IF OVERFLC'! TO PAGE 7
'BR_IF
NOT

R2
16%
xoPa

'SEE If 1536 WORDS YET
'BR IF NOT YET
'BR TO RETURN

(R3)+

MOV

RS,

ADD

%200,ahxxpnns

BIT
BEQ
BIC
DEC
BNE
BR

SN0 I

QBTTL

:SET UP PARB

'GET LO RDRS BITS

18$

RS,

MOV

185:

nlsooob Rl
(R3)+,RS

INC

177572

XDPSA
RY

BNE

MOV

177572

027516
027520

10-JAN-78
12:16_
PRGE 131
OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

MOV

177572

020000
000200

N1O

389(1052)
TSWRG -

:GET PAGE = & AGARIN

:UPDATE PAR BY YK

0 RN I NI

INITSS - INITIALIZE SUBSYSTEM

RN R

AR RR AR R RRRE AR R EREAR

!THIS SUBROUTINE INITIALIZES THE DRIVER AND ITS PRARAMETERS
:%AND _DOES A_SUBSYSTEM CLEAR.

USES

l CALL:

R2,R5

JSR

PC, INITSS

!l*il!*lllllllllllllili*i*ll!*!!li!lil!llll!l!*l!l!lillll!ll!i*
027522

g4yele4

003046
003044

INITSS: MOV

MOV
MOV
MOV
CLRB
JSR

MOVB
JSR
MOVB

000001
000000

MOVB

002714
000007
000037

MOVB

BISB

RTS

SERRHDL , n ABNL

;SET UP ABNORMAL ERROR RETURN ADDRESS

SERRFRE_R.NORM
RKBRS,RE
sPARMO, RS
NORTRY
LRPRM

:SE1 UP NORMAL RETURN ADDRESS
:GET ADDRESS OF RKb11 REGISTERS
:GET ADDRESS OF PARAMETER BLOCK
!CLEAR “NO-RETRY" FLAG
:CLEAR DRIVER INPUT PRRAMETERS

DRIVE
. PARMI

.SET DRIVE NO. IN QLTERNRTE P.B.

osOBCLR P. cnnotns) sSET suesvsrsn CLERR COMMAND
RVCAL
00’ SUBSYSTEM CLERR
onive P DRVN(RS)' :SET CURRENT DRIVE NO.

FORMAY, P CSIH(RS) sSET CURRENT DRIVE FOR
TYPFMT, P CS1H(RS)

SET DRV TYPE exr

suaflourtns EXIT

EHEREEEEEREEHERIHRE
LRI RN
R R E
AR AR RN
RRF R AR

QBTTL

CLRPRM - CLEAR DRIVER INPUT PARAMETERS

SEQ g409
SEQ 0130

CZRBEMDO RKE11/06 SS VERIF 1
10-JAN-78 11:48
CZReMD.P1 1

MACY11

Bll

389(1052)
10-JAN-78
12:16_
PAGE 132
RPRM - CLEAR DRIVEP INPUT PARAMETERS
; ¥THIS SUBROUTINE ZEROS THE FIRST

14 BYTES

: ¥PARAMETER BLOC?SéHHOSE QDORE%S IS IN RS)

SEG_ Q410
SEQ 0131
IN

THE DRIVER

*l***l***************’**‘*"*******!******‘**!****************}

g27ece

Pt Pt Pt
Pt bt Pt Pt P

DO NN LW

oo
D OODDDOD

6911

027646

010048
010546
010500
062705
005020
02000S

CALL

CLRPRM:
000016

1%:

000207

MOV

RO, -(SP)

MoV
Mov
ADD
CLR
CMP
BNE
MOV
MOV
RTS

; SAVE RO

RS -(SP)
RS RO
CP.CSI,RS
(RO)+
RO, RS
18’
(SP)+ RS
(SP)+ RO
PC

SQVE RS
GET PARAMETER BLOCK ADDRESS
COHPUTE LIMIT ADDRESS
CLEQR A WORD IN PARAMETER BLOCK
SEE IF DONE YET
BR IF _NOT DONE VYET
'RESTORE RS
RESTORE RO
;RETURN

; X Y2212 222222222222222222222222 222222 3222222222232 232 2222222224

"48TTL

SCNDRY - SCAN DRIVE FOR STATUS

:%¥THIS SUBROUTINE SCANS THE SELECTED DRIVE TO

:%xTHAT THE DRIVE IS ON-LINE,

INSURE

READY, NOT WRITE-LOCKED,

:%¥AND NOT LORDED WITH AN _ALIGNM NT CARTRIDGE. IF ANY’
‘%0F THESE CONDITIONS ARE NOT

AN APPROPRIATE

: ¥MESSAGE 1S TYPED RKO6 INTERRUPT 1S DISABLED, AND

i%A RET.RN IS MRDE'T0 T
:

RDDRESS LISTED IMMEDYATELY

THE REQGUESTED DRIVE NO.

: ¥MUST BE PRSSED TO THE suaeourxns

IN WORD “DRIVETM

!¥ALS0, IF RUNNING FROM ADRS 200 AND RKO® IS LORD MEDIUM,
:xDRIVE O WILL BE REJECTED FOR USE.

‘% CALL

105037
Do4737
113765

003124
027522
005510

006000

027666
027670

0oi0le
122737
001006

000013

000041

JSR

003116

000c10

3%:

000001

5§:

002001
00SS54e
005542
032762

001000

SCNDRV

73
14$:
000010

TYPF

;ASSUME RKO6 FOR FIRST TRY

813,841
33
MDFLAG
33

'SEE_IF RKOG& IS XXDP MEDIUM
'BR_IF NOT
'SEE_IF 200 START
:BR_IF NOT

23
$1E, (R2)
DRIVE ,RKCS2(R2)
TYPFmt
5§

:TAKE ERROR EXIT
'DISABLE RKO6 INTERRUPT
:SET DRIVE NO. IN RKCS2
:SEE_IF RKO?7
'BR _IF YES

DRIVER AND CLEAR SUBSYSTEM
:GET DRIVE NUMBER
onivs DRVN(RS)'PINITIALIZE
MOVB
:SEE IF gzévs s] gs$ xxbp LORD MED g IF NOT DRIVE O

010134

027760

PC,

(ERROR RETURN ADDRESS>

{!!illlilllllllll!l!llll!!!lllllllllll*llliilill*l**ili!l*!**ii

&ANDRV: CLRB

027650
027654
027660

000100
00SS10
003124

JSR

CMPB
BNE
7578
BNE
TYPE
BR
BIC
MOVB
TST8
BNE
ESV
MOV

CLR
INC
BNE
BIT

NITSS

DROXDP

STYPE "DRIVE O 1S LOAD MEDIUM"

;go,<na)

'ELSE SET GO FOR RKO6 IN CSl

$<CDT!GO>,
(R2)

;SET GO FOR RKD? IN CSl

SCRACH
SCRACH
148
#MDS,RKCS2(R2)

'CLEAR STALL CTR
: INCREMENT STALL COUNTER
:STALL FOR SEVERAL MILLI-SEC
:SEE IF MDS ERROR

LZRGHDO RK611/ 0]}
CZR6MD.P
10~

6356

MACY1l

027766
0827770

8 0016

3 Q(é

BEQ

041704

030072

004737

030076
030104
030112
030114

012737
022737

005504

000004
027522
000141

003124

000014

000001
o4
54

183:

20%:

040316

QueleM
000377

003046
005540

005510
000060

007656
007656

000200

001341

SE058316132

18%

:BR

BIS
JMP
BIT

®ABGRT,RECODE
ALLTRM
#DTYE,RKER(R2)

:SET ABORT
FLAG
:GO ABORT TESTING
;SEE } DRV TYPE
ERROR

BISB

ce cor TYPFMT

:ELSE

BEQ

JSR

MOVB
MOV

368399 862

Cll

égfl0] IV Fés é?fiTPQGE 133

MOVB
MOV
JSR
JSR
ERROR

000001

000200
043760
oooo40

52)
v-S5

MOV

IF_NOT

#SELDRV,P.CMND(RS) :SET CMND FOR REPORT
(R2),P.LS1(RS)
-GE RKCS]
PC, I!CST1
GET OTHER RKb11 REGISTERS
PC. REPSUP
:SET UP ERROR REPORT
S2'
‘REPORT
MDS ERROR

208

NI1tss

'BR

SET’

=RK

RKO?

FLAG

:INIT THE SUBSYSTEM

oRbsrnT _CMND(RE) :SET Reno DRIVE STATUS COMMAND
§9H0k . RBNL
WON

JSR

PC okVCAL

MOV

SERRHOL , A. ABNL

BEQ
MOVB
BISB
TYPE

ua
DRIVE ,BADDRV+6
8’0, BADDRV+6
, BRDDRV

isf negéflflL RET¥RN ADDRESS
N-L

RERD ALL DRIVE STATUS

:SEE IF THIS DRIVE' Exxsrs AND IS’3 % NE

CMP

TYPE

aége
ERROR

8377, nsaon
NXDRIV

59177 SENVM
123

ORE

ABNL RETURN ADDRESS

sas IF NED INDICATION ON THIS DRIVE

‘BR_IF
NED NOT SET
:GET DRIVE NO. INTO BUF
: CONVERT TO nscxx
TYP “DRIVE
X
TYPE

“NON-EXISTENT”

SEEIF UNDER APT
'NED unogn APT SIZING

030146
030150

104123

0301Se
030160
030164

Q42762
017616
000207

000100
000090

000000

2%:

030166
030174

032765
001013

000200

000040

RETURN
4%:EE IF 8n * VE IS REQBY P.RADN(RS) ERROR
:TEST FOR
DRIVE READY

7 BO3580

087656
007656

830209

030212
030216
030222

007650
00767S

030224
030232
030234
030242
030250
030254
030260

104401
104401
000734

030262
030270
030274
030302
030306
030314
£30320
0303ee

112765
004737
112765
004737
11%76
10573
001004
012765

oo4000

000040

005510

007656
007656

000001
000001

000001t
0ooooe

. SERVICE ERRORS HERE

.SEE

£s:

BIC
nov

8 IE RKCSL(RE)
3(SP),(

ROV
BIS
TYPE

VE SASDB
. BRDDRY+6 convgn¥v§o
;6n 1¢ °"‘V§o’sx§$8°aur
6
I1
anbonv
:TYPE “DRIVE x"
*NTREDY
:TYPE “NOT RERDY"

TYPE
BR

IF DRIVE

BIT
BEQ
MOVB
BISB
TYP
EEP

[

IS WRITE ENARBLED

:DISABLE RKO® INTERRUPT
:SET UP ERROR RETURN RDDRESS

*TRKE

ERROR EXIT

#5.WRL,P.AROOCRS) :SEE_IF WRITE LOCK SET
88
éR IF WRITE LOCK NOT SET
DRIVE , BRDDRV+6 cer DRIVE NO.
8’0, BADDRV+6
onvenr To nscxx
, BRODRY
NRTLOK

YPE "DRIV
TYPE
~uné; ELOCKED"

2Set”TF RKO7

-gss IF MOVB
DRIVE NOTkgnogo CMND
WITH(RS)
nLicnnguEnn
3
ACKN NLEOGE COMMAND
JSR
PC DROC
. VOLUHEvnt
nove
oatan
P
CMND(R
s
!
CAL COMMAND
JSR
veaL
anxeknTE
DRIVE
MOVB
unbonrn P. cnnoraS) ser Rsno COMMAND

TSTB

BNE

MOV

ass

#632,P.CYLN(RS)

:BR

IF YES

CZR6MDO RKb11-/06 SS VERIF 1
CZR&MD.P11
10-JAN-78 11:48
7012
7013

;Oifl

030330
030332
0303:2

000403
012765
1{2;65

7012
7018

030398
0303

14276
15376

7020
7021

030402
030410

MACY1l

001456
000003

000002
0000?5

0020
3124

000007
000007

7812 830335 Bis7es D3dsai BARRIS
7019

030376

004737

040316

100000

00S504

032737
001402

7022
7023
7024

030412
030416
030424

104401
022737
00101

012362
177777

0b3562

7026
7027
7028

030434
030442
030446

000637

000060
007650
007722

007656

030452

152737
104401
104401

005510

7031
7032
7033

030454
030460

062716
000207

0000062

7025

;8%3

0304

113737

7048
7049
7050
7051
7052
7053
7054
7058
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067

25%:

PAGE

27%:

108:

BR
MOV

27%
#1456 P CYLN(RS)

MOV

8-4

MOVB
MOV

134

sLsrrhx TRCK (RS)
SET TRACK=2
#RWBUF , P SRLO(RS) BUS nbgness

CMP

5177777 RWBUF+6 ;SEE IF ALL 1°S IN I.D. WORD 3

MOVB

DRIVE,BADDRV+6

TYP

BEG
TYPE

BNE

1os
AD632

‘BR_IF OK
; TYPE READ ERROR MESSAGE

129

;BR_IF NOT RBL

0'0 ehoonv+s

;CONVERT TO RSCII

ERROR FREE

ADD

RETURN

RTS

pC’

II00 I

READ

se. LFMT,P 1H(a§
:SET
22 SECTOR FORMAT
TYPFHT # c51 (RS)
:SET CORRECT DRV TYPE
; READ 4 WORDS OF BAD SECTOR FILE
onflvoenRECOOE 'SEE IF DATA ERROR

$$ge

{25

P.UC(

BICB
BISB
JSR
BIT

1'S

iGET ORIVE N

TYPE
"LoéoEoWITH ALIGN PACK"
:TAKE ERROR EXIT

82, (SP)

:FIX UP RETURN PC
'RETURN

0E I0 MU

iSETTUP - SET UP FOR LOOP ON ERROR

7037
7038
7039

7047

D11

12:16

SCNDRV - SCAN DRIVE FOR STATUS

007656

7035
783
7040
7041
7042
7043
7044
7045
7046

10-JAN-78

30R(10S2)

N AR R

AR R R RRERRRRRAERER

; #THIS SUBROUTINE CANNOT BE CALLED BY ANY OTHER
: #SUBROUTINE --- ONLY MAIN-LINE CODE !!!
030462
030466
030472
030476
030502
030506

030514

030520
030526

llllllllllll!llll{&lll§lllllilllilllll!*!l!lllli!ll!l!!lllillll

011637
012706
005037
105037
0127?05
112765

004737

012737
000207

SETTUP: MOV

001076
001076
00SS04
003126
002630
000177

000001

000000

177776

040316

(SP) acsrncx 2

;MOVE R TURN PC ON STACK

ERRCNT
SPRRMO

MOV
CLR

#STARLK-2
RECODE

MOv8
JSR
ggg

cSUBCLk cnno(RQJ <SET SUBSYSTEH CLEQR CMND
ancAL
Etn
THE ; ?
cph A8PS
ESTQBLI H PRIORITY O

CLRB
MOV

iRE-INI
CLEAR ERRO

STACK POINTER
RECOVERY FLAGS

AR RETRY ERROR COUNT
PARAM BLK ADRS

(3332222232222 2222322222232 32 2223222823222z 2233 3832322222222 24

QQT
HI

CHKITR - CHECK CURRENT TEST ITERARTION NUMBER

SUBROUTINE LORDS

:#TEST INTO STIMES,

THE ITERATION NUMBER FOR THE CURRENT

AND CHECKS IT TO DETERMINE IF THIS TEST

;:%TQ
#SHOULD
BE RUN. I# (QND
ITERATION
NO. = 0, THE SUBROUTINE
RETURNS
THE STOR D s
TH TEST HILL BS SKéPPE
IF IT IS
:¥NOT
0, THE

N IS _MADE

_TO PC+2

1100. SERMAX

;

ST WILL

; #BE RUN. HONEVER ON THE FIRST PASS (QUICK VERIFY) OF A RUN
{#WHICH STARTED At ADRS 200, ALL TESTS WILL BE RUN ONCE.
030530
030532
030540
030544
030S4%

010146
112737
105737
001006
105737

000144
003136
003116

001115

CHKITR:

MQV
MovB

-(SP)

SAVE Rl

TSTB

ogané

:8ET MAX ERROR CNT TO 100 FOR $SCOPE
SEE IF DURL-~ACCESS FLAG SET

TST8B

MDFLAG

;SEE

BNE

IF_YES
IF 200 START

CZRBEMDO RKE11-06 SS VERIF

030560

[N]
(@}
o0
o
o

~N
(=]
~
n

7080

030622

001007
1

NN
== O L N

7070

030554

on—
oo NWoON—N

030552

7069

c»—mc»—gcr-g 538

7068

10-JAN-78 11:48

000000000

CZRBMD.PI11

MACYL1l

Ell

30A(10S2)
10-JAN-78
12:16_
PAGE 135
CHKITR - CHECK CURRENT TEST ITERATION NUMBER

000001

001304

oo1102
005626

001304

000004

000002

;BR_IF

TST

0013e6

iSEE_IF FIRST PARSS
iBR_IF_NOT
iSET UP FOR 1| ITERATION
:G0_RUN DURL-ACCESS TEST
!GET CURRENT TEST NUMBER
DECREHENT 8Y
T0 GET TEST LIST
: DOUBLE

:BR IF TEST SHOULD BE SKIPPED

3:955

3%:

MoV

:é,STIMES

4S:

MovB

3TSTNH R1

;STLST(RI),STIMES;LOAD Irtnnrxon NUMBER

MoV

1%:

SEQ Q413
SEQ 0134

RADD

INDEX

'ADJUST RETURN PC TO RUN THIS TEST
Rssagzs R1

4, 2(SP)

(SP)+,R1

!l!*lll!lllllllli*!illil!l!!l!!ll!lli*l!ilillllllllii!ll!lll*!f

"88TTL

RDCHRS - READ
A STRING OF KBD INPUT CHARS
; #THIS SUBROUTINE READS R_STRING OF UP TO EIGHTY INPUT

: ¥CHARACTERS AT THE KBD TERHINQTED BY <CR>,
AND PLACES
'xTHEM IN BUFFO, TERMINATED BY
A NULL (0) BYTE.
: xRUB-0OUT AND (3O
F
FEARTURES ARE PROVIDED.

:#IMMEDIRTELY FOLLOWING THE SUBROUTINE CALL THREE SPECIAL
: #RETURN noonsssgg nusg BE hésrso THEFIRSY
R
1S

S#TAKEN IF (4C)
SECOND IS TQKEN IF (fZ IS
:%TYPED, AND THE TH
‘%IF (#8) 1S TYPED, THE SOF TWARE SWITCH REGISTER IS OPENED

:;gnTgogxrxcnrlon IF SELECTED,

AND THEN THE

:IHERgunaea OF INPUT CHARACTERS

IN THE BUFFER IS RETURNED

JSR

030634
030636

104406
112602

030640
030644
030646
030652
030660

122702
001006
104401
017666
000523

000003

030662
030e6&

122702
001006

000032

NN NI

RN RRERRREEEERARERRRER
R R RN

RDCHRS

:CHECK FOR (1C)
CMPB
BNE

000004

3%:

TYPE

MOV

BR
:CHECK FOR

4q:

(12)

CMPB

BNE

(SP)+,R2
¥003, R2
4§
CNTRLC

Q4(SP),4(SP)
248

%032, R2

R1
R2

IALIZE CHARACTER COUNT
IALIZE RUB-OUT INDICATOR
A CHARACTER
HARACTER INTO R2
(1C)EYPED

m
'41
O
01)
T~
m~—~
m
I gm g 4
(o]

O0l2426
000004

ROCHR

MOVRE

wsws

<<
—~—tmm

R1,-(SP)
MOV
R2.-(5P)
MOV
CLR
RO
CLR
R1
RERD A CHARACTER

BR I

010146
010246
00SC0050.

PC, ROCHRS

<CONTROL-Z RETURN ADDRESS>
<CONTROL-U OR ERROR RETURN RDDRESS>
RETURN

s %

;¥
;l
030624
030624
030626
030630
030632

RETURN

<CONTROL-C’ RETURN ADDRESS>

URN RDDRESS ON STACK
AKE EXIT

CALL

(tG)

4D
O
O

;¥

g1nnmu1
[P
H»«nm
cCOODXM
MM
Z2Z2DD

‘%

w
m

S
N
N
ey e e
ey e e

Y ey o

o e

Y o

NN N NN N NN NN N NININ N

Ll e

MUV NY = 4= s e g
e = 0= = = O O O OO OO 00O
WN—-OWVW
NN LWU—-ODONON LW

NN NI NNNINNY

HIRD IQ TAKEN IF (tU) OR INVALID INPUT IS TYPED.

( (#Z) TYPED
NO T (t2)

£ZR6MDO RKB11-06 SS VERIF 1

CZREMD. P11
7124

7125
7126
7127

7128

7129
7130
7131
7132

030670

i0-JAN-78 11:48
104401

012433

030674
030702

062766
000753

000002

030704

122702

000025

030710
030712
030716
030724

001006
104401
062766
000752

030726
030732
030734

122702
001005
104401

000007

7140 030746

122702

000177

104401

012463

7133

7134
7135
7136

7137
7138
7139

030740
030744

004737
000764

7141
7142
7143
7144
7145
7146

030752
030754
030756
030760
(030762
030769

001020
005700
001726
005701
001003
005201

7148
7149
7150
7161
7152
7183
7184
7165
7186

030772
030776
031000
031006
031012
031014
(031016
031020
031024

005037
005300
116037
104401
000710
005701
001403
104401
005001

7188

031026

122702

7147

7157

7189
7160

7161

030766

(031032

001426

031034

CNSE37

7162
7163
7164
7165
7166
7167
7168

031040
031044
031050
031054
031056
031062
031064

110237
104401
110260
005200
022700
0061264
104401

7170

031076

104401

012445
000004

MACY11 30A(1052)

TYPE

000004

ADD
B8R

.CHECK FOR

000004

7%:

(tU)

CMPB

118:

005542

012463

000015

8007, R2
9s
CNTRLG
fic GTSWRG

:SEE IF (1G) TYPED
'BR IF NOT (1G)
"ECHO (1G)

0OS542

CMPB

000120
001315

$CRACH
uss SCRATCH uono FOR TEMP. BUFFER
RO
:DECREMENT COUNT
BUFFO(RO),SCRACK' ;GET LAST CHAR. INTO BUFFER
SCRACH
:£°HO CHARRACTER TO BE DELETED
o3
:GO RERD ANOTHER CHARACTER
R1
:CHECK THE RUB-OUT INDICATOR
168
:BR _IF INDICATOR IS NOT SET
BKSLSH
:TYPE A BACK-SLASH
:CLEAR THE RUB-OUT INDICATOR

CMPB

8015, R2

TYPE

031134

000207

BKSLSH

cnanxncs RETURN

BEQ

19%

CLR

SCRACH

MOVB
TYPE
MOVB
INC
CMP
BNE
TYPE

R2, SCRACH
SERACH
R2,BUFFO(RO)
RO
#80. ,R0
as

TYPE

,BUFFOD

TYPE

7172 031106 000703
7173 031110 104401 001315
198:
7174 031114 112760 000000 005272
7175 031122 062766 000006 00000
176 031130 01ee02
24%:
7177 031132 012601

:SEE IF RUB-OUT (DEL) TYPED

CLR
DEC
MOVB
TYPE
BR
TST
BEQ
TYPE
CLR

:HANDLE POSSIBLE DIGIT

00S542
00SS4e
005272

:OPEN SOFTWARE SWITCH REG. FOR CHANGE
:TRKE (tU) RETURN

14§
RO
23
R1
118
R1

7171

z{;g

(DELETE)

$177,R2

:BR IF NOT (tU)
SECHO (tU)
'MAKE OLD PC POINT TG NEXT RETURN ADDR.
'BR TO TRKE (tU) EXIT

BNE
TST
BEQ
TST
BNE
INC

CHECK FOR

{s:

(t2)

CMP8
BNE
TYPE

($G)

SEQ 013S

'MAKE OLD PC POINT TGO NEXT RETURN ADR.
'BR TO TAKE (12) EXIT

CHECK FOR RUB- OUT

&g,

:ECHO

:SEE IF (tU) TYPED

JSR
BR

14%:

001314

CNTRLZ

8025, R2

MOVB

104401

SEG Q414

k2, 4(SP)
3s

8%
CNTRLU
hw 4(SP)

7169 031070 112760 000000 005272
031102

PAGE 136

BNE
TYPE
ADD
B8R

.CHECK FOR

83:

005542

005272

F11

12:16

ROCHRS - RERD A STRING OF KBD INPUT CHARS

012452
026370

005272
005542

10-JAN-78

BR
TYPE
MOVE
ADD
MOV
MOV
RTS

50 BUFFO(RD)
" §QUES

73
ho BUFFO(RO)
(SP)
(s¢)+ R2
(S5P)+.RI

'BR_IF NOT RUB-OUT
‘CHECK THE CHARACTER COUNT
‘BR IF COUNT
=
!CHECK THE RUB-OUT INDICATOR
'BR_IF WE HAD R PREVIOUS RUB-OUT
ssr RUB-OUT INDICATOR
TYPE A BRCK-SLASH

(\)

:SEE IF <(CR> TYPED
‘BR IF <CR>

;USE SCRATCH WORD FOR TEMP.

BUFFER

:GET THIS CHRRACTER INTO BUFFER
'ECHO THE CHARACTER TYPED
:PUT CHARACTER INTO BUFFER
: INCREMENT CHARACTER COUNTER
‘SEE IF 700 MANY CHARACTERS TYPED
:BR IF NOT TOO MANY
:TYPE <CR> AND <LF>

PUT TERMINATING NULL INTO BUFFER
:ECHO INPUT ST RI c

STYPE <7>, (CR)

: TAKE ERROR sxtr FROH RDCHRS
JPUT TERMINATING NULL INTO BUFFER
'FIX UP RETURN ADDRESS
‘RESTORE R2
"RESTORE RI
PTYPE (CR>,<LF>

:SUBROUTINE EXIT

P
P
Pt Dt Pt Pt Pt Pt Pt Pt Pt ot Pt Bt Pt Pt Bt Pt Pt P

000 D DO D D0
TD 0D 00O D000 0D
D
DONCNLWNI—-ODWONICCNLW—-0O

NN AN INN NN NN NNINNINNYNNY

CZREMDO RKEL11-06 SS VERIF 1
CZRBMC.P11
10-JAN-78 11:48

7200
7201
7202
7203
~204

Gll

MACYil 30A(1052)
10-JAN-78
12:16 PAGE 137
RDCHRS - READ A STRING OF KBD INPUT CHARS

SEJ Q4
SEQ

S EEEEERRRREEERRERR
R R RRT R RERR AR AR R R ARR AR R AR R R R AR R A RERRRRLY

'SBTTL

_TYPTST - TYPE CURRENT TEST AND ITERATION NUMBER

; #THIS SUBROUTINE TYPES :

YYYYYY”,

WITH NO <CR»

(#OR (LF>, XX IS THE NUMBER OF THE CURREN} TEST AND
; #YYYYYY IS THE NUMBER OF ITERATIONS FOR_THAT TEST.
; #R1 MUST CONTARIN_ THE INDEX INTO THE TEST LIST FOR

; #*THE CURRENT TEST.
;% CALL JSR
PC,TYPTST

; ;lllllllllilll!l!lili!l!l‘llili*!l&llllil!lllli*l!ll{liilllfiiiil

031136

031142
031144

031i46
031150
031182
031183
031154

031160
031164
031166
031167
031170

104401

010146
006216
00S216
104403
002
000
104401

016146
104403

012474

TYPTST:

TYPE

SPACE |

MOV
ASR

INC
TYPOS
.BYTE
BYTE
TYPE

012467

005626

MOV
TYPOS

006
000
0002G7

.BYTE
BYTE
RTS

:TYPE A SPACE

R1,-(SP)
(SP)

:PUT INDEX ONTO STACK
‘DIVIDE BY ;

(5P)

2
O

:INCREMENT
TO GET TEST NO.
:TYPE TEST NO. IN OCTAL
:TYPE
2 DIGITS
:SUPPRESS LEADING ZEROS
:TYPE & SPACES

SPACEG

$STLST(R1),-(SP)’ :PUT CURRENT ITERATION NO. ONTO STACK
:+YPE ITERATION NO. IN OCTAL

&
O
PC

:TYPE & DIGITS
'SUPPRESS LERDING ZEROS
*RETURN

7207

HIH 2222121222222 22222322222222222222222X22X222
X2 YX2X222X2X22222XX2222 L 23

7209

:XTHIS SUBROUTINE TYPES THE LINE

7208

"48TTL

TYPPRM - TYPE CURRENT PARAMETER
:

XX=YYYYYYYY

7210
7211

! $WHERE XX IS THE CURRENT PARAMETER MNEMONIC, AND
'2YYYYYYYY IS ITS VALUE IN OCTAL DIGITS, WITH LERDING

7213

:x0N ENTRY,

7ele

'%ZERQS SUPPRESSED.
R1

NOTE:

«CR>

MUST CONTAIN THE

AND <LF)> ARE_NOT DONE.
INDEX INTO THE

7214

: %PARAMETER TRBLES, FOR _THE CURRENT PRRAMETER.

;S;%

;;i!l*!ll!li*l!!llllllilli*lll!l!illl!lilllll!l*l**lllilliiiliiii

7215
4

7518

031175

016137

Q06152

012476

7220
7221

031204
oglaxa

016137
00593?

005732
005500

00S476

7223

031224

001003

5519
7222

7224
7225
7226

7e27
gsgg

7232

7232
7234
7e3¢

031206

031216

031226
031234
031240

031244
031250

109401

022761

016137
012746
004737

004737
(00207

012476

040515

006152

005734
005476
053422

00SS00

CALL

TYPPRM:

053736

PC,

TYPPR

MOV

PRHNEH(RI),PRHEUF

MOV
CLR

PRMLST(R1),LoWoCct ;PUT LOW BITS OF PARAM. INTO LOWOCT
HIGOCT
;CCEQR HIGH BINARY BITS

BNE

TYPE

CMP

18:

JSR

MOV
MOV
JSR

JSR
RTS

-PET MNEMONIC

PRMBUF

- TYPE

8 MA, PRMNEM(R1)

;SEE
:BR

*Xx="

INTO OUTPUT BUFFER

PARAMETER IS

IF NOT

(MA)

PRMLST+2(R1),HIGOCT ;PUT HI BITS OF PARAM. INTO HIGOCT
SLOWOCT, -(SP} ~ ;PUT ADDRESS OF BINARY VALUE ON STACK
PC, 3830820
:CONVERT BINARY TO OCTAL ASCII
.

PC, 983SUPRS
PC

STYPE YYYYYYYY,
*RETURN

SUPPRESSING LEADING 0'S

HIA 2232212222222 222222222222222X2222X22X2X2222XX223X222
22222222222 4

'48TTL

TYPPAT - TYPE CURRENT WORD OF DATA PATTERN 1S

:%¥THIS SUBROUTINE
:#WHERE XX IS THE

TYPES THE
NUMBER OF

LINE : WORD XX =
THE CURRENT WORD

YYYYYY,
OF

CZR6MDO RKB11.06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48

H1l

MACY11 30A(1052)
10-JAN-78 12:16 PAGE 138
TYPPAT - TYPE CURRENT WORD OF ORTR PATTERN 15

7236

; ®USER-DEFINED PATTERN 15, AND YYYYYY IS 1TS 16-BIT

7240

7237
7238
239

‘#VALUE, IN OCTAL DIGITS, (CR> AND <LF> ARE_NOT TYPED.
120N ENTRY, RI MUST conraxn THE INDEX OF THE CURRENT
:#WORD IN YHE PATTERN 1S TABLE.

qué
7o

7243
7244

031252
031262

104401

012502

104401

012510

031256
831552
1862
031264
ggxsgg

010146
005263
1044
002
0gQ!

7251
7252
7253
7S84
7265

031272
031276
031300
(031301
(031302

0Olbl146
104403
086
001
000207

7256
7257
7258

CALL -

JSR

PC, TYPPAT

l<l>I»l»l'illl!!liillll’l!llllli!lillllll!llilllllli}!l{lfiillilfiiii

7245
7e4
724
7248
754
725

TYPPQT:

TYPE

WORDSP

; TYPE "WORD

MOV
ASR
TYPOS
.BYTE
.BYTE

R1,-(SP)
(SP)
e

MOV
TYPOS
.BYTE
JBYTE
RTS

PATIS(R1),-(SP) :GET BINARY VALUE OF THIS WORD
*TYPE VALUE IN OCTAL
&
PTYPE & DIGITS
|
I TYPE LEADING ZEROS
PC
*RETURN

TYPE

007156

7259

PUT INDEX ONTO STACK
VIDS BY TWO FOR WORD NO.
'G60 TYPE WORD NUMBER
:DIGIT COUNT= 2 FOR TYPOC
TEb%TYPOS 10 TYPE LERDING ZEROS

EQURLS

l»!lllill!i!!ll*i!l'lli!!l!l!llllll!lil{llill!lilill!*!!if*i**!ii

7260

'&8TTL

MODPIS

- nog;rv USER-DEFINED PATTERN 1S

7261

:¥THIS SUBROUTINE

7264

'¥INPUT ON THE

7262

DETERMINES WHETHER OR NOT ussn oerxnso

"¥DATA PATTERN 1S

7263

SHOULD BE OPENED FOR MODIFICATION,

TTY. IT

CHECKS

'%_ORDS THE16 WORDS INTO THE

7266

VALUES FOR VALIDITY,

‘%IF THE OPERRTOR ANSWERS THE REQUEST FORA PATTERN WORD

"%WITH EXCLAMATION POINT (!) (CR),

7269

: #lIORDS OF THE PATTERN

7268

7273

031304

MODP15:

7275
7276

031304

031306
031310

010046

7278

031312

022761

052120

006152

7281
7282

031322
031330

032737
001523

100000

005760

7284

031332

104401

011167

7287

031344

7283

7285
7286
288

7289

7290
7291

CALL -

15 TABLE,

C,MODP1S

l*‘l'I"I‘I‘l‘l"l*Ill"l‘liilllllil’***lli***l*ll!*l!‘ll’ll!ill’l'ii‘li‘ll“l{i{li

;2_:’%

7280

THE SUBROUTINE

' ¥PROPAGATES THE LAST WORD TYPED INTO ALL REMAINING

787

7279

AND

PATTERN 1S Tn LE (PATIS).

7267

7277

AND

:#IF SO, IT REQUESTS THE NEW anuss AND CONTROLS THtIR

7265

7279

SEQ Q416
SEQ 0137

031320

010146
010246
001127

031336
031342

004737
031610

031348

031404

031350

031352

031384

MOV
MOV

R1.-(5P)
R2. -(SP)

CMP

.SEE

#"PT,PRMNEM(R])

030624

:SAVE Rl
:SAVE R2

;SEE IF CURRENT PARAMETER IS (PT)

BNE

22%

BIT
BEQ

$BITIS,P
223

:SEE_IF PATTERN 1S5 SPECIFIED
!BR IF NOT SPECIFIED

MDFY15

:ASK_WHETHER PATTERN 15 SHOULD BE MODIFIED

IF PATTERN IS

IS spscxrzso

TYPE

JSR
248

pC, RDCHRS

268

000115

: SAVE RO

'BR IF NOT (PT)

.SEE IF PATTERN 15 SHOULD BE MODYFIED

005700

022737

RO,- (SP)

.SEE IF PRRAMETER ts PT

031620

001512

MOV

0QOg2re

,(fZ)

757

CHP

£ M, BUFFQ

BEG

'READ RESPONSE
:($C) RETURN ADDRESS

22%

RETURN ADDRESS

,(fE QR
ERROR RETURh ADDRESS
‘SEE'I

:BR _IF noorr:cnt:ou NOT REQUESTED
:SEE

(M)

TYPED

CZREMDO RKG11-06 SS VERIF

CZREMC. P11
7292

7293

7294

031362

031364

031370

10-JAN-78
001405

104401
104401

7295

031374

000756

7297
7298
7899
7300
7301
7302
7303
7304
730S

031376
031402
031404
031410
031414

104401
005001
004737
104401
104401

031420
031424
031426

004737
031610
031620

7236

7306
7307
7308
7309

7310

031430
031432
031434
031436

031442

022701

031450

000755

7311

031446

7313
7314
7315
7316
7317
7318

031462
031460
031462
031464
031472
031474

7312

031404
005700
001006
062701

001454
022737
001431
005002
122760
001004
105060

7319
7320
7321
7322
7323

031500
031502
031504
031510
031512

005300
005202
022700
002426
Q12746

7325
7326

031522
031524

031566
012600

7328

031532

7331

031542

7324

7327
7329
7330

7332

031516

004737

11:48

000041

00S271

000006

052464

016161
062701

007156
000002

7342

7343
7344
7345

7346
7347

000767

104401

031572
031576

104401
000702

031600
031602
031604

012602
012601
012600

031606

005272
001314

PRTTERN

I11

12:16

PAGE

139

;GO ASK RGAIN

SELP1S
Rl
PC, TYPPAT
, SPACE
'PROMPT
tNPur IF ANY
C, ROLHRS

: TYPE “MODIFY PATTERN 15"
SINITIALIZE WORD INDEX
*TYPE CURRENT WORD AND VALUE
:TYPE A SPACE
:TYPE ASTERISK AND SPACE

$QUES

22%

CMP
BEQ
CLR
CMP8
BNE
CLRB

DEC
INC
cMP
BLT
MOY
20%
MOV

TST

'BR

#'! BUFFO
16$
R2
#’' BUFFO-1(RO)
14$
BUFFO-1(RO)

- (SP)

PC,OCT8IN
(SP)+,RO

IF DONE,

:SEE_IF
(') TYPED
'BR TO PROPRGQTE CURRENT
JINIT.
(') INDICATOR
:SEE IF Lnsr cmnn IN BUF
‘BR IF NOT
: INSERT TERHINQTOR BYTE

007160

208 :

168

TYPE

DECREMENT CHAR COUNT
'SET (') INDICATOR
:SEE_HOW MANY CHARS NOW
:BR_IF TOO MANY
‘GET B
ADDR. ON STACK FOR OCTBIN

'CHECK DIGITS AND CONVERT TQ BINARY
'ERROR RETURN noonsss
'GET BINARY VALU

000207

;: ($C)

FOR OCTBIN

'BR

TO ECHO BAD

:BR

(-)

INPUT

uns NOT

TYPED

,ses IF ALL DONE YET
BR

IF DONE

PATIS(RL), PRT15+é(R1) : PROPAGATE TO NEXT WORD
82, R1
s INCREMENT
WORD INDEX

,BUFFQ

:LOOP UNTIL DONE

:ECHO BAD INPUT

TYPE
BR

$QUES
83

*TYPE <?> AND <CR»>,<LF>
'BR TO RSK AGRIN

MOV
MOV
MOV

(SP)+,R2
(5P)+'RI
(5P)+.RO

;RESTORE R2
*RESTORE RI
RESTORE RO

- NORMAL RETURN

228:

#30.,R1

22%

INPUT

RTS
RETURN

()

L PUT neu uono anus INTO TRBLE
,ssz IF
WRS TYPED

BEQ

-ECHO BRD

RO, PATIS(R1)
Re’
10%

MOV
ADD

VALUE

;SEE_IF_VALUE Excssos 16 BITS

BEQ

RDCHRS

TO RETURN

gHI10ct

208

CMP

FOR

;conrxnus u!TH NEXT WORD

pnopgcnrs CURRENT WORD TO END Of PRTTERN 15 TRBLE

1e3:

ADDR.

'SEE IF ALL DONE

RO
R2
%6, RO
20
#BUFFO,

:READ NEW DATA PATTERN WORD
:($C) RETURN ADDRESS FOR RDCHRS
:(#Z) RETURN ADDRESS FOR RDCHRS

' (tU) OR ERROR RETURN
:SEE IF nnv INPU
:BR IF ANY INPUT
: INCREMENT WORD INDEX

#32. Rl

BNE

MOV
TST

HODIFICQTION REGUESTED

BEQ

SEQ 0138

‘ECHO BRD INPU

RO
12%
%2 Rl

CMP

:BR

SEQ Q417

.BUFFO

TST
BNE
ADD

JSR

001735

031552
031560

031566

148:

005272

007156

001413

12%:

005271

7335
7336
7340
7341

108:

005272

010061
005702

B8R

TYPE
CLR
8%:
JSR
TYPE
TYPE
:RERD AND CHECK
JSR
24%
268

000041

000036

7339

000040

031534
031540

031564

-MODIFY

000002

022701

7338

TYPE

030624

031544

7337

TYPE

031252
0l2474
012514

052616

031550

BEQ

O0I1145

005737

10-JAN-78

MODP1S - MODIFY USER-DEFINED PATTERN

001314

7333
7334

30A(1052)

005272

031526

001015

MACY11

RETURN

CZRSHDO RKel1-06 SS VERIF |
CZReMD.PL1
10-JAaN-78 11:48
7348

7349
7350

7351
;ggg

031610

J11

MACY1l 30AR(10S2)
10-JAN-78
12:16
PAGE 140
MODPL1S - MODIFY USER-DEFINED PATTERN 1S

(0316l6

000770

012766

013732

000006

24S:

MOV

031620
031626

012766
000764

015344

000006

26S:

- (¢2)

RETURN

£32¢
2356

SDRVTST,6(SP)

;PC

FOR

SEQ Q418
SEG 0139
(tC)

RETURN

2ecs

,BR 70 RETURN

MOV
BR

BASKMDE ,6(SP)
2c3

;PC FOR (tZ) RETURN
BR TO RETURN

FREEEREN NN

REREE RN EEERERRRERERLERREREEREERE
R R A AL RE LS

2357

SBTTL

7359
7360
7361
7362
7363
7364
736€
2366

!HIGOCT (IF 32-BIT VALUE) AGARINST LNWER AND UPPER
!LIHITS FOR THE CURRENT PARAMETER. THE PARAMETER TABLE
lINDEX FOR THE CURRENT PARAMETER MUST BE PRSSED
!TO CHKPRM IN R1 ON ENTRY.
lF THE PARAMETER VALUE
!IS LEGAL, IT IS ENTERED INTO T
PARAMETER TRBLE
l(PRHLST) IF NOT, R RETURN 1S MRDE TO THE ADDR. FOLLOWING
!THE CALL TO CHKPRM. IF THE PARAMETER HRS A 2-WORD
lVQLUE (32 BITS) R1 IS INCREMENTED BY 2 BEFORE RETURN,

7358

;#THIS SUBROUTINE

7367

7368

;

2369

;g;?

7372

7373
7374
7375
7376
7377
737
7379
7380
7381
7382
7383

7384
7385
7386

7387

031630

104407

CHKPRM:

031632
031634
031636
031644
031646
031652
031654
031660

010102
006302
022761
0Q0l4ee
005737
001403
017616
000475

031662

023762

005476

006042

031672
031700

023762
101365

005476

006044

031670

006152

005500
000000

000457

013761

00S476

005732

031712

032737

000001

00S476

7392
7393

031722
031730

023762
103751

00SS00

006044

(0237?62
103744
(023762

00S476

006042

005500

006050

7395
7396
7397
7398
7399

031702

103771

040515

031710

7394

®# CALL

CHECKS THE

031720

001355

031732

001004

031752
031754

101340
001004

031734
031742
031744

MOV
ASL
CMP
BEQ
TS7T
BEQ
163:
MOV
BR
.CHECK VALIDITY
18%:
CMP
BLO

LOWOCT

AND

RETURN

SAVREG

CONTENTS

JSR

I TIIIITITISIT ST

7388
7389
7390

7391

CHKPRM - CHECK VALUE OF INPUT PARAMETER

IZSI2 S22 222 2222
; SAVE

LRI SIS SIS

S S

RO-RS

R1,R2
GET COPY OF INDEX
R2
DO
UBLE IT
8"MA, PRMNEM(R!L) SEE IF PQRQMETER IS (MA)
0%
BR IF (MA
HIGOCT
SEE IF HIGH BITS= 0
189
BR IF ZERO
d(SP), (SP)
GET ERROR RETURN PC
308
: GO TO RE URN
OF 16-BIT PARAMEYER
v
LOWOCT ,PRMLIM(R2) SEE IF INPUT VALUE IS T00 SMALL
168

INPUT VALUE

TOO SMALL

CMP
LOWOCT, PRHLIH+2(§2) SEE IF INPUT VALUE IS TOO LRRGE
BHI
169
: BR IF INPUT VALUE IS TOO LARGE
;UPDARTE 16-BIT PARAMETER VALUE IN LIST
MOV

LOWOCT,PRMLST(R1)

:PUT NEW PRRQHETER VALUE

BR
288
-8RTO RETUR
:CHECK VALIDITY OF 32-B17 PRRRME?ER VRALUE
20%:
BIT
88170, LOKWOCT
;SEE IF MR IS ODD
BNE

:BR

248

:BR

HIGH WORD NOT

169
ESS

,BR
BR

F
IF

HIGH WORD T0O BIG
HI WORD NOT EQUAL

HIGOCT,PRHLIH+2(§2) :SEE IF HIGH WORD TOO SMALL
169
,BR }F HIGH WORD IS TOO SMALL

CcMP
BLO
cMP

LOWOCT, PRMLIM(R2) :SEE IF LOW WORD IS TOO SH LL
16%
-BRIF LOW WORD IS TOO SMALL
HIGOCT, PRMLIM+6(§2) :SEE IF HIGH WORD IS TOO BIG

BHI1
BNE

LIST

ODD

CMP
8LO
BNE

24$:

168

INTO

EQUAL

LOW

LIMIT

UPPER

LIMIT

7400
031756
023762
005476 006046
CMP
LOHOCT
PRHLIM#H(#E)!
:SEE
IF LOW WORD IS TOO LARGE
7401
031764
101333
BHI
169
F LOW NORD IS T00 LQRGE
7402
:UPDATE MOV
32-B1T PRRAMETER
VALUE IN LI
7403
031766
013761
005476
005732
26%:
LOWOCT,PRMLST(R1) PUT LOW WORD INTO LIST

K1l
'd

CZRBEMDO RKB11-/06

CZRBMD.PI11

VERIF

MACY11l

005734

10-JAN-78 11:48
00SS00

7406
7407
7408
7409

032002
032006
032012
032016

004737

032060

MOV

HIGOCT, PRMLST+2(R1)

TYPE

nAuRoc

MXWRCC

o
N
(]

104410
000207

000002

00001

SEQ Q413
SEQ 0140

;PUT HIGH NORD INTO LIST

;PUT POINTER ON STACK

JSR
TYPE

PC. $SUPRS
stR
F

;TYPE 17
PTYPE <CR>, <LF>

§ 3 DI

PC, $0820

ADD

308:

IN R1-RO

RO, SUMLO1
R1,SUMHI1
#SUMLOL,-(SP)

ADD

28$:

:GET WORD COUNT

:TYPE "MAX WORD COUNT = *

MOV
MOV
MOV

JSR

o
w
n

s Pt Pt —
s
Pt 0t Bt Pt Pt

032056

10-JAN-78
12:16
PAGE 141
CHECK VALUE OF INPUT PARAMETER

COMPUTEJSSD TYPE MRX ALLOWABLE WORD' COUNT FOR _THIS
MA

=]
W
n
o
n
n

013761

DO NN LW+ o

031774

NINNNINININYN ~N
LLfrrrc £

;:82

30R(1052)
CHKPRM -

RESREG
RTS

IIE I I 006 0

:CONVERT TO OCTAL

: INCREMENT'RI INDEX

.2, (sp) GET NORMAL RETURN PC

: RESTORE RD RS
*RETURN

00 300 00 06 0606

0030 3606 00

000 00 06

3000 0

30006 0 0

inquDC - GET MAX WORD COUNT FOR CURRENT MEM LIMITS AND CURRENT MA,

; #AND LEAVE THE WORD COUNT IN R1-RO. NO REGISTERS ARE SAVED.
032068

3 3696 330606 06 06 06 3600 06 36 30 06 06 06 36 6 0 30 30 96 08 06 36 696 36 36 08 06 30 06 36 630 06 36 3036 30 36 30 30 3636 00 30 06 30 30 3606 00 00 0 0 36 30 30 26 2

00bles
006130
005762

AXWRDC: MOV
MOV
ggg

MAHILM, RO
MAHILM$2,RI1
Rn,no

sGET LO BITS OF MEM LIM
‘HI BITS OF MEM LIM
:SUBTRACT MA rnon MAHILM

005764

SuB
BMI

MA+2,R1
27%

; IF NEGATIVE,

ROR
ROR
ADD
ADC

R1
RO
$1,R0
R1

CLC

000001
—

n
~N
o

=
(@

WNINN
N = e O)
o Lnooccnooe

7425

000001

27%:

§ 3 S

QBTTL

CLR

'MAKE WORD COUNT
= 65,536

; RETURN

27%

MOV

060606 0

104407

7459

032202

03 30 00 00 06 06 0 6330 36 36 06 006 3 00 0606 06006 36303600 03000 3

§5,536 DEC

0 0

DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)
TYPES

“DRIVE

SER.

NO.

XXX*

(IN DECIMAL),

+ 36066636 36 06 06 06 30 66 36 06 30 30 00 06 06 636 36 36 06 36 06 36 6 3 30 36 36 36 06 636 36 30 3000 36 6 33006 00 06 0036 36 3 3000 00 00 2

6501

027522
00014l
040316
011374
011410
0000S4

703

000003

704

;BR IF WORD COUNT

$1,R1

RTS

; ¥THIS SUBROUTINE

032134

WORD

; #ZEROS SUPPRESSED.
7449

; INCREMENT BY 1

TST

BEQ
012701
000207

RETURN

:DIVIDE BY 2'TO GET WORDS

053524

BAVSER: SAVREG
000001

MOVB
JSR

JSR
TYPE
TYPE
MOV
MOV
MOV
MOV
ROL

snve RO-RS

PARAMETERS
nnbsrnr7SSP. CMND(RS)LEAR
-SET S.S.
READ AND
STATUS
COMMAND

PC, DRVCAL
,DRIV
SERNM
P AL1(RS),R1
#$0CTVL R4
R4, -(SP}
ca R3

WITH LEADING
2 2 2

;READ STATUS OF THIS DRIVE
P TYPE “DRIVE"
STYPE= SER. NO. "
*GET "R” STATUS BYTE 1l
:GET ADDR OF CHAR BUFFER
:STORE IT ON srncx FOR $SUPRS
'INIT CHAR COUNT
SINITIALIZE BIT POSITIONS

CZR6EMDO RK611-06 SS VERIF 1
CZREMC. P11
10-JAN-78 11:48
7460

032204

006101

7462
7463
7464

032210
032212
032214

006101
006101
006101

7461

;:gs

032206

032218

006101

o:o;oo

7168
83555 B45788
7468 032230 110024

7469
7470

032232
032234

005303
001364

032240
032244
032250

004737
104401
104410

7471

032836

;:;E

032252

7472
7473
7474

L1l

MACY11l 30A(1052)
10-JAN-78
12:16
PAGE 142
DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

105014

4§:

7760

ROL

ROL
ROL
ROL

R1
R1
R1

Bl&
MOVB

RE"’
ROtnq)+

GbROBRT R BYE Yoo e8]
'PUT ASCII DIGIT INTQ CHAR BUFFER

(RY)

P INSERT NULL TERMINATOR

ROL

MOV

4danes

R3’
4§

JSR
TYPE
RESREG

RTS

2378
747

7482

*#WITH LEADING ZEROS

7483

7485 032260 142765 000020 000007

7486
7487
7488
7489
7490

032266
032272
032274
032300
032306

105737
001402
105265
112765
013765

7492
7493

032322
032330

012765
012765

000004
000i21
017760
000002
063554
177776

7496
7497

032346
032352
032356
(032362

104401
012746

011410
063554

032372

000207

104401

001315

032314

112765

7S0S

032366

004737
004737

000001
000002

SER.

SUPPRESSED.

NO.

XXXXXXXXXXX*

(IN OCTAL),

!l**ill!!l!ll!ll!!ii!lill!illllll!!l!!!llllilllll*l!il!llll*l**

LATSER: J?R

00312S

7494 (032336 004737 040316
7495 032342 104401 011401

7502

CRTSER - TYPE CARTRIDGE SERIAL NUMBER

: ¥THIS SUBROUTINE PES “CART.,

7484 032254 004737 027522

7601

'RETURN

= 3636 3 3 3 3 3 36 3 3 3 3 3 3 3 36 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 3 I 3 3 3 % W 3 3% % 3 % % X % WEE® R

7481

7500

:TYPE DRIVE SER. NUMBER
:TYPE <CR> AND <LF>
'RESTORE RO-RS

"eBTTL

7498
7499

:DECREMENT CHAR COUNT
-BR IF NOT 3 CHARS YET

PC, 288SUPRS
,$CRLF

7480

7491

csggn HERKING cgpv

CLRB

000207

:GET NEXT 4 BITS

Ri’
R0 0. RO

DEC
BNE
053736
001315

SEQ Q420
SEQ 0141

4S$:

00000S

Pg é 3

SECTOR

FORMAT

FOR
CHECK THE ACTUAL FORMAT
4§
:BR IF 22 SECTORS
P.SECT(RS)
:IF 20 SECTORS Rsno SECTOR 1
SRDDATA
P.CMND(R&) : SET RERD COMMAND
LSTCYL,P.CYLN(RS) ;QET CYL = saa(ocr)/1qss<oc1) FOR RKQO?

MOV
MOV

#RIWBUF , P. BALO(RS) ET READ BUFFER nooaess
8-2.PQC(RS)
SET
uon COUNT T0 READ
2 WORDS

$LSTTRK,P. TRCK(RS)

JSR
TYPE
TYPE

PC, DRV
cART
’ SERNM

JSR
JSR

PC, 3830820
PC’ a#$SUPRS

RTS

MOV

053422
053736

7578
BEQ
INCB
MOVB
MOV

MOVB

000010
000012

CLEAR S.g nug PQRRME FRE

rnr CSlH(RS)

TYPE

T TRACK
= 2

no QL no IN BSF

kRUBUF, - (SP)

TYPE "ssn NO
'GET POINTER FOR_$DB20

$LRLF

: TYPE <cn> AND <LF>

'CONVERT BINQRY TO OCTAL
:TYPE CART. SERIAL NO. IN OCTAL

RETURN

< 363636 36 36 3 3 3 3 3% 3 3¢ 3 6 3 3 36 3 2 3 36 36 36 9 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 W 3 3 3 3 3 3 3 3 3 3 3 2 KK

"&BTTL

7508

! ¥SEEK VIA THE READ HEADER COMMAND’ IS PERFORMED. If THE HEADER

7507

7509

SEEKER - PERFORM IMPLICIT OR EXPLICIT sss

* K % X% %

7506

:%THIS SUBROUTINE CHECKS SWR BIT 7,

AND

IS
0, AN

IMPLICIT

:#DOES NOT conrnxn THE CORRECT CYLINDER NO. AN ERROR IS REPORTED.

7510

7611

‘xIF SWR BIT 7 =

AN EXPLICIT SEEK COMMAND IS PERFORMED.
'%ON ENTRY TO THE SUBROUTINE
THE DRIVE AND CYLINDER NUMBERS

7812
75

¥MUST BE PRE-LORDED INTO THE PARRAMETER BLOCK.
;* CALL -

PC, SEEK

!*l!ll**lll*il!***lllk!!**l*i*!lll**ll*l!**l*!l!l**ii**i*l!l!**

CZREMDO RKbE11-06 SS VERIF |
CZReMD. P11
10-JAN-78 11:48

032374
032376
032404
03c41e

MACY1l

000117
000200

000001
146526

sice

000001

30A(10S2)

SEEKER ~ PERFORM
SEEKER:

00024
000002

032436

835448

Bdba82

032452

001176

S 36600

JEIF

143

SEQ Q42!
SEQ 0l4e

:SAVE RO

BNE

50P.CYLNC(RS)

ggnpang
ro EXPECTED CYLINDER

#SEEK,P. CMND(RS) SET SEEK COMMAND
$BIT07,aS
,QEE IF EXPLICIT SEEKS REQUESTED
IF EXPLICIT SEEKS

MOVB
JSR
MOV

aRoHSng ALP. cnnocné) 857 fiEQBHERDER COMMAND
RKbS(Ra) RO
GETWORD 1 or RCTUAL HEADER

JSR

MOV

C,REP
PR v nno URRENT CMNDS
F
E ?HE) $REGS':STORE
GEQ cooB
8

JSR

pc DRVCAL

RO $REGH
s

MOV
RTS

éBTTL

PAGE

IMPLICIT OR EXPLICIT SEEK

RO, -(SP)

MOVB
BIT

MOV
gaon
2%:

040316

032466
032470

12:16

MOV

ggg
001174

M1l

10-JAN-78

(SP)+,R0
PC

IE 0006 06 00360030 00 00 06 06

363000000

65T BRD cv o
:CYLINDER MISCOMPARE
; PERFORM COMMAND

:RESTORE RO
RETURN
000

STALL - STQLL FOR ST UNIT STALL TIMES

sz BIT 8 =

THIS suenourxus STALLS FOR ST

P®WHEREA STALL Txhs= 40°US,

ERARRR AR LR

STALL

TIHES

FOR AN “AVERAGETM CPU. IF BIT

*%x1S EQUAL TOJSRI, A RANDOM
sthL 1S APPLIED.
PC,STALL

; CALL -

lllllllll*illl*l*!l!‘lllll!ll!ilill!!!llill!ll!li!lll*iilfililli

032472

010046

STALL:
000400

RO, -(SP)

00ss12

18:

000016

2%:
§g:

6%:

snve RO

SAVE,
i'BR
PPLY RY nuoon STALL 2
IF NOT RANDOM

BYY

é
s 1708,5823SR

gsg

MOV

STALLS, RO

GET Rsouesrso NO. OF STALLS

814. Rl
Rl
4§
RO
23
(SP)+,R1
(5P)+ RO
PC

GET CONSTAN
:INNER LOOP COUNTER
: INNER LOOP BR
:OUTER LOOP COUNTER
*QUTER LOOP
'RESTORE Rl
'RESTORE RO
:RETURN

BiT
BEQ
JSR
MOV

146434

052620
gsa7en

032544
3254
3255
032552

MOV

PC $RAND
$LONUM, RO

BEQ

MOV
DEC
BNE
OEC
BNE
MOV
MOV
RTS

:GENERATE PSEUDO-RANDOM NUMBER
'GET IT INTO RO

'SCALE IT DOWN

;GO STALL WITH RANDOM NO.

E g 9 ?TRLL
REQUIRED

369 3 3 6 3 3 36 3 3 3 3 3 3 3% 3 3 3 I 3% 3 % 3 3 3% W X % 3 3 W 3% W% W % WH I E

'4BTTL

:XTHIS

W E W

E KW EEEEEEREEEE®EEE

RNDADR - RANDOM CYLINDER RDORESS GENERATOR

SUBROUTINE

GENERATES
A PSEUDO-RANDOM

: *ADDRESS nno LEnvss IT IN "CYLNDR”.
: xSUBROUTINE SRAND.
‘% CALL -

PC, RNDADR

9-BIT

CYLINDER

IT REQUIRES THE SYSMAC

LZR&HOO RK611-06 SS VERIF 1
CZR6MC. Pl
10-JAN-78 11:48

MACY11

N1l

300(1052)
10-JAN-78
12:16
PAGE 144
RNDADR - RANDOM CYLINDER ADDRESS GENERATOR
EREFSSRERNRRR AR

032554
032560
032566

004737

032612

000207

0S2620
0Se720
177000
017760

00SS1u4
00SsS1i4
00SS14

017764

00SS14

ANDADR. JSR
MOV
BIC
CMP
BGE
BIC
2s:
RTS
.SBTTL
;

RN RN

R R R

PC, SRAND
SLONUM,CYLNOR
8177000, CYLNDR
LSTCYL,LYLNOR
ot
HOLL 1, CYLNDR
PC

SE3 Q422
SEQ 0143

R R RN R R RN AR R BB R BB R AR BB RN SR RR R

GENERQTE 2 16-BIT RANDOM NUMBERS
:GET
A Ranoon NUMBER
:SCALE IT TO 9 BITS
:SEE IF CYL IS TOO BIG
:BR IF CYL IS OK
:SCALE DOWN TO A VALID CYLINDER
:RETURN

ROUTINES TO HANDLE KWil-L OR P CLOCK

(2222222222 X222 P22 2222222 Y2222 222222 Y22

iCLKCN - ENRBLE KWli-L OR P CLOCK INTERRUPT
032614

105737
001004
012777
000207
012777

032654

012777

032662

000207

(2222222222

&lkoN:

003132

000100

150320

174575
000166

150314

18:

174060
000131

150300
150270

3s:

7578
BNE
MOV
RTS
MOV

SY )

X2 T2 YXT XIS X222222222222222
Y S

PCLKF
18
#100, 3LKS
PC
$-1667.,3PKSB

15T
BEQ
MOV
MOV

H2Z
3s

RTS

$-2000.,39PK3B
cxax JPKS

:SEE WHICH CLOCK WILL BE USED
'BR IF P-CLOCK TO BE USED
- CLgCK ENABLE INTERRUPT
‘RET
:SET 60 HZ. COUNT

:DETERMINE LINE FREQUENCY
‘BR_IF 60 MZ.
:SET SO HZ. COUNT

ENARBLE xnrsnnupr CNT UP,REP. INT.
130 KHZ.,AND

;RETURN

RON

= 363636 3 3 36 36 3 36 3 3 36 3 36 3 A 36 3 3 3 3 3 3 3 3 3 3 3% 3 3 3 3 3 3 3 3 2 3 3 I 33 % 3 W% WK% K WX E K Kk E % RE XX KEEENE R

iCLOCK - HANDLE KW1l-L OR P CLOCK INTERRUPT
032664
032666

lll}illllllllll!*liil!l!l!!I!!lli!!l!!i!llllliil!!l!lllllli!li!

&lock:

005200
000oQ00e

;

INC
RTI

:SIGNIFYA CLOCK TICK
;RETURN FROM INTR

[ 2222222222222 22222X22222X2223XX22222X22222222 2222

Y S

NNNNNNN
oo

icLKor - DISABLE KWll-L OR P CLOCK INTERRUPT

7619

032670
032674
032676
032702
032704
032710

105737
001003
005077
000207
00s077
000207

00313e

2222222222222

&LKOF:

150246
150242

1%:

;

TSTB
BNE
CLR
RTS
CLR
RTS

X222222X2X22X22222X222X2X2X2XT22222223TXTTXTYL]

PCLKF
18
aLKS
PC
aPKS
PC

:SEE WHICH CLOCK USED
:BR IF P-CLOCK USED
iDISABLE KWII-L INTR
:RETURN
iDISABLE KW11-P INTR
;RETURN

*!l*l!l*l**l!ill**ll*l****ll!i!!il!illll*ll*!i*ll*l!llllll!!!li

QBTTL

CALBRT - CALIBRATE THE SOFTWARE TIMER

lTHIS SUBROUTINE CALIBRATES

THE SOFTWARE

TIMER USED_IN THE

TIMING

, ¥TESTS. IT CALLS SUBROUTINE *“TIMERTM TO MEASURE THE TIME BETWEEN
* 2 TICKS OF THE KWll-L OR P CLOCK. THIS INTERVAL EQUALS THE LINE

; *PERIOD.

128 MEASUREMENTS ARE MADE AND AVERAGED

QND HE

; ¥RESUL TANT CRLIQRQTION CONSTANT IS LEFT_IN_TCONHI-TCONLO¢
;%

NANO-SEC).

THE

‘¥Q TICK OF THE CLOCK

SUBROUTINE

HAPPENS

TIME

OUT

NRITING

FOR

RETURN IS MADE TO THE ADDRESS LISTED

:%IMMED. AFTER THE CR(L TO CALBRT.

CZREMDO RKB11-06 SS VERIF 1
CZREMD. P11
10-JAN-78 11:48
7628

% CALL -

7629

;6%0

631

032712

7634

032716

005037

7636
7637

032726
032730

005001
005000

7635
7638

032714

032722

104407

00sS002

005037

7639
7640

032732
032736

004737
005700

7642

032742

005201

7641

7643
7644

032740
032744
(032746

CALBRT:
003176

003200

032614

001013
001374
104401

011556

032762

017616

060000

7650

032770

005000

7652

032774

005005

7654

033002

032746

7645
7646

032752
032756

7648
7649

032766

7647

7661

7663
7655

032772

032776

104401
105037

000464

011513
003133

005004

004737

033004

060537

003176

7658

033014

0604937

003200

7662

033030

001336

7664
7665
7666

033032
033036
033040

012702
000241
006037

7668

033050

7663

7667

7669
7670
7671

033020
033022
033024

033044

103752
005202
022702

006037

005302

033052

001371

033054

005000

7672
7673

033056
033060

005001
012702

7675

033070

005737

2%:
:GET

4s:

6%:

003200

033074
033076

001404
012702

683

033106
033112
033116
033122

033126

013704
013705
004737
010237

001307

SUMHT|

: SAVE RO-RS

*INIT CALIBRATION LOOP CONSTANT

SUMLO1

SINIT SUM TO ©

CLR
CLR

R1
RO

s INIT TIME-OUT INDICATOR
SINIT CLOCK INTR INDIC.

JSR
157

PC, CLKON
RO

;ENABLE KW11-L OR P CLOCK INTR
iSEE_IF CLOCK INTR REC’'D YET

INC

TYPE
CLRB

' TIMSKP
DOTIM

IN SYNCH WITH CLOCK

BNE

BNE
TYPE

:BR IF

4s
, CLKFAL

'BR IF NO TIAE-OUT
: TIMED-OUT ON Ku11 L OR
P INTERRUPT

CLR

ADD

ADC

TICK

s INIT CLOCK INTR INDIC

;COUNT CYCLES TIL NEXT CLOCK INTR
SUM

RDD

RY, SUMHI1

BNE

8CS
INC
cnp

'FIX UP ERROR RETURN PC

:GO0 TO RETURN

:INIT HI BITS OF CYCLE COUNT

RS, SUMLO1

sufinxl

'SAY ALL TIMING TESTS NILL BE SKIPPED
'DON’T ALLOW TIMING TESTS

:LO BITS

PC, TIMER

:ADD MEASURED CYCLES TO

68’
R2
8128.,R2

"ERROR RETURN ADDRESS

:ADD MEASUREMENT TO SUM

sBR IF SUM OVERFLOMW
:INCR CAL IBRATION LOOP COUN
'SEE IF 128 MEASUREMENTS nnos YET

: TRKE nvsnncs OF 1ae MEASUREMENTS
12%:

INTR REC'D

: INCREMENT CLQCK TIME-OUT INDICATOR

J(SP)
. (SP}

CLR

JSR

003176

R IF

NOT YET

CLC
ROR

#7 R2

:SET DIVIDE LOOP COUNT

sunwxx

;DIVIDE SUM BY 2

DEC

: DECREMENTT LOOP COUNT

;SET DIVIDEND =

ROR

SUMLO1

BNE
12%
:BR IF DIVISION NOT DONE YET
:DIVIDE LINE PERIOD IN N-SEC BY YIMER CYCLE COUNT TO GET CALIB. CONST.
CLR

000376

CLR
MOV

R
%3

000166

TST

MOV
BEQ
MOV

000461

7678 033102 012703 026400
7679
7680
7681
7682

CLR

000200
000007

BR
183
.RUN TIMER TO NEXT CLOCK

7674 033064 012703 0S0053
7676
7677

PC, CALBRT

CLR

MOV

033150

7657 033010 005537 003200

SAVREG
CLR

76566

7659
7660
7661

JSR

SEQ Q423
SEQ 0144

i!lllilii*ill!l’l!*l*!i}«liillll*!illll!ll!l!lll*!!l!l!il&lill!i

7632

7633

Bl2

MACY1l 30A(1052)
10-JAN-78_
12:16_
PAGE_145
CALBRT - CALIBRATE THE SOFTWARE TIMER

003200
003176
0S3244
003166

16%:

MOV

MOV
MOV
JSR
MOV

BNE

nfoabsea,na
168
#4961, R2

ofo1lsao R3

SUMHII,R%
SUMLOI ‘RS
M.DPID
RE rconax

&8’

16666667 NS

:DETERMINE THE LINE FREQUENCY

:BR_IF 60 HZ.
'SET DIVIDEND= 20000000 NS
:SET DIVISOR
:PERFORM THE DIVISION
:GET FINAL TIMING CONSTANT

'BR IF HI BITS NOT O

o4 R&HDO RK&II J
CZR6MD.P

18-3An"

7684

033130

010;3?

7687
7688
7689

033144
033146

104410
000207

RIF 1
8 11:48

Cle
mACYL 3RRCART. CADTARRTE®
rHé° 40P TuARE 1 inER

003164

MOV

7688 833130 885748 882638

18S:

988
J
RESREG
RTS

R3, TCONLO

IE (SP)
CLKOF

*303%d1us

;GET LO B ITS

(FIX UP_ERRORFRES RETURN PC
'DISABLE KWIl-L OR P CLOCK INTERRUPT
RESTORE RO-RS
s RETURN

;630

783b

R II2Z22I2I2I22223L2LL2222LL2L2
RS2 L2 22222222 2222222222 223232222

7693
7694
7695

"4BTTL

TIMER - SOFTWARE TIMER SUBROUTINE

: #INCRE

CLE COUNT

4TH13 "EBR?UTINE
LOOPS

THROUGH

THE

SOF TWARE

TIMING LOOP

IN R4-RS EACH LOOP, AND CHECKS

:Tue INTERRUPT xnoxcnrxou xn RO FOR COMPLETION. IF A COUNT
‘%0F 4,194 304 IS REACHEDIN RY-RS
TIME-OUT ERROR RETURN

121S MADE 10 THME oonsss LISTED nrtsn THE CALL .
;% CALL R
MER
;¥
<ERROR Rsfuan ADDRESS)>

2363 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% % A 3 3 33232 3 W W I E KK

033150

033166
033170

000001

062716
000207
017616
000e0?

00oace

fIMER

000200

ADD

81,RS

ADC
BIT

RY
#8IT07,RY4

BNE

BEQ

4§

TIMER

5 S 336 36363 3 3 3 3 3 3 3 3 36 36 36 3¢ 36 36 3 3¢ 3¢ 3 3 3¢ %

4S$:

000000

NNNNN
NNINNN

033174
033176
033202

06270S
005504
032704
001005
005700
001770

"ixx SPECIAL TIMING LOOP ¥¥¥

%2, (SP)

RTS

MoV

d(SP), (SP)

; INCREMENT

E R %%

E KRR EEEE

LO CYCLE COUNT

:ADD CARRY TO HI CYCLE COUNT
SEE IF TIMED-OUT WRITING FOR INTR

: BR

SEE IF

ifl; g

ERRUPT RECEIVED

:BR IF INTERRUPT NOT REC’D YET
;FIX UP ERROR FREE RETURN PC

ERROR
FREE
FIX

RROR RETURN PC

ERROR RETURN

S 303632 3 3 3 36 3 36 3 3 3 3 3 36 3 3 36 36 36 36 36 3 3 3 3 3 3 3 36 3 3 3 06 3 30 30 3 36 3 30 98 3 36 36 36 36 36 36 3 3 3 36 3 3 3 3 3 3 3 %

’& INIVRB - INITIALIZE VARIABLES USED IN TIMING TESTS
o B0 2036 36 3 36 36 36 3 36 36 3% 36 3 3 3 3 3 3 3 3 3 3 3 33 3 3% 3 3 3 3 3% % % % 3 3 3 3 3 % 3% % % % % 3 3 3

tAIVRB: CLR
CLR
CLR
CLR

005037

033304
033310

000207

003230

003212
003214

CLR
CLR
CLR
MOV
MOV

003222
003224

CLR
MOV
MOV

CLR

CLR
RTS

BLWMIN
ABVMX 1
ABVMX2
SUMLOI

SUMHI
1
SUML 02
sunmx;
#-1,MINILL
s-1 MINIH]

MaxtL1

MAXIH]1
s-1,MINIL2
$-1 néana

MaxtL

MAX IH2
PC

3% %% % %X EEEEEE

:COUNT OF TIMES BELOW SPEC’D MIN
:COUNT OF FORWARD TIMES ABOVE SPEC'D MAX
:COUNT OF REVERSE TIMES ABOVE SPEC'D MAX
:FORWARD TIME SUM AND AVERAGE
;REVERSE TIME SUM AND AVERAGE

;MIN MERS’'D FORWARD TIME

:MAX MERS’'D FORWARD TIME
;MIN MEARS’D REVERSE TIME

:MAX MEAS’D REVERSE TIME
;s RETURN

JIREEREERFAAREERRERRAERERERRERERERRE
LR SRR
AL R AR ERRRRRER AL RS

CZREMDO RK611-06 SS VERIF

CZR6MD.P11

10-JAN-78 11:48

MACY1l 30RA(10S2)

10-JAN-78

Dl2

12:16

PAGE 147

SEG Q425

TIMSEK - MEASURE AN EXPLICIT SEEK TIME

SEQ 0146

7740
77:1

.SBTTL
TIMSEK - nsnsuns nn EXPLICIT SEEK TIME
: ¥THIS
sugnourINE L
o
s NN CYLTIME gaouggggnfoLEER§a§g

7744

¢TH§

;;45

4@135 ?s 8E¥UENEE IN Eg 9?°R§§ u§ 1# E égsx fixnss-ouY,

274
774
7747
774

774

2720

gg 312

;;53

033322

oia;77

7766
7757
;;se

033342
Sgggqq
53

005005
2702
:;3?

fInssK

oaaqz;

7785 833332 61 535 8825

éaggé?

828298

7767
7768
7769
7770

033366

033370
033374
033376
033400

033402
033410
033416

033420

033436

004737
033436
010200
010301

062766
012777
012605

MOV

2%:

034136

000002
045270

000004
147422

e
&R

3838

000000

7723 833320
880030
033362 004737 033150

7763
7764
7765
7766

R THE

lllllllllili!!I»l!ll»l!illlllll!ll!ll!*llllllllll!liilul»*llilii*l!

010246

83331 Ovoocs

OrR IF

”§5§9$E g IYPED, nno AN ERROR

lRE ALL
URN - s n
Hg Efi Llsrs
(ERROR RE?URN RDDRESS)

5725 833348 932835

7761
7762

ELRTI?N
oV R#kg

CLR
ADD
ggs

JWORD

JSR
63
JSR
63
MOV
MOV

4§:

58"‘59’

:SAVE R2

?fl”%
BRIVE INTR INDICATOR
HNET BT eSclE CoUN

s?? anEn sLx
nooness FOR DRIVER

:ggsfino ggfigggs)ssrngEcan
RKO& sssx TIMER HANDLER VECTOR

RS
#RKCS1,R2
;EET?S??

*INIT LO CYCLE COUNT
g; ADR OF RKCSI IN R2 FOR SEEKHD
ORE PREV AND CURRENT COMMANDS

OPC, TIMER

Bnnnn
BLK 385 GOES HERE
ncnsun TIME TIL DRIVE ATT’N

PC,CNVTIM

CONVERT MERS'D CYCLES TO TIME
nnon RETURN
ADR FOR CNVTIM
u H1
% gx S IN RO
T LO TIME
BITS IN Rl

R2,RO
R3, Rl

E OR

RETURN

ADDRESS FOR TIMER

82, 4(SP
&I’ INTR anxvec
(SP)+ s

FIX UP ERROR-FREE RETURN PC
RESTORE RK06 INTR HANDLER
RES

SisneLE RQSE IN?ERRUPT

1273; 000177 000001
47
040316

MOVB
JSR

MOV

csuacLR P. LHND(RS) T su SYSTEM CLEAR COMMAND
PC,DRvCAL
e HE SUBSYSTEM

7775 833443 Bu 725 888183 000000

Bic

OIE 3kc§1(na)

7778 8334 ) 1841 6

ganon

7771 834438
7772
34
;;Z%

012602

AD
OV
MOV

2,-(

033353

go:;a;

83&583

033462

017666

000004

Jsg

7779

;;g?

033470

000747

7782

7785

7786
7787
7788
7789
7790

;zgé
4

7793
7794

7795

MOV

gc$ggggg

186

d4(SP),4(SP)

4§

GET PREV
nnoscunnenr CMNDS

EB-our
ON SEEK

rxx ERRCR RETURN PC

:BR TO EXIT

o 363636 3 36 36 3 36 3 3 36 3 3 36 3 36 36 3 36 3 36 36 3 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 30 36 36 36 36 38 36 36 36 3 96 3 2 2 2N N KN

7783
7784

000004

(SP)+

ispscan INTERRUPT HANDLER FOR SEEKS IN SEEK TIMING TESTS
033472

033474
033476
033502
033506
033510

033512

« J6 36363 3 36 3 3 3 % 3 3 3 3 36 3 3 3 3% 3 3 3 36 3 3 % 3 3 3 3 3 % % 3 3 3 333 2% 33 W 3 A X% B

011203

100002
000137
032703
00I4Cl
005200

000002

SEEKHD: MOV

045270
040000

2s:

BPL
JMP
BIT
BEQ

4s:

RTI

INC

(R2),R3

2s
I.INTR
#01,R3
4§

:GET BITS OF RKCS!

H X2 %R

W W B K %K K FEEEE %

:BR_IF CERR NOT SET
'LET DRIVER PROCESS THE ERROR
:SEE IF DRIVE INTR SET YET
:BR_IF NOT YET
'SET RKO6 INTR INDICATOR

:RETURN FROM INTERRUPT

li*llliilliill«lllli!flllllil!}iiiil!!il*li!&ll!lli!ll**i!l*lll*ii

iFDTERM - COMPUTE
R TERM OF THE FORWARD SEEK AVERAGE FORMULR,

CZR6MDO RK&ll 06 SS VERIF 1 48
CZREMD.
P
10-JAN-78 11:

;#AND
033514
033516
033520
033822
033524
033530
033532
033536
033542
033544
033550
033554
033856

104407
010002
010103
0OSOOH
013705
006305
004737
060337
005502
060237
005537
1049410
000207

7830

7831
7832
7833
7834
7835
7836
7837
7838
7839
7840
7841
7842
7843
7844
7845
7846
7847
7848
7849
7850
7851

ADD

THE

FORWARD

SUM

SEJ Q426
SEG 0147

SUMLO1-SUMHI1-SUMLO2-SUMHIZ.

HRRBRRBEERARRRERERRE
RN
RN RRRRRARRRRRRRARRRRERRRRRRE RS

FOTERM: SAVREG
00ss42

053204
003204

:GET MERSUREMENT INTO

RO, R2

CLR
MOV
ASL
JSR

RuY
SCRACH,
RS
RS
PC,M.DPIM

ADD

R2, SUMLO2

RESREG
15

RDD
ADC

003202
003200

; SAVE RO-RS

MOV

ADC

R1,R3

R2-R3

;GET COEFFICIENT

IMULTIPLY BY
2

iMULTIPLY COEFFICIENT

:ADD TO FORWARD SUM

R3)SUMHIE
R2’

SUMHI1

; RESTORE RO-RS

936 36 36 36 36 3 36 36 3 36 36 3 96 3 3 3 36 36 3 36 3 36 3 3 36 38 3 36 36 3 30 3 36 3 3 3 38 3 3 3% 3 3 36 36 36 36 3 36 3 2 3 3 2 3 3 % 3 3 2 3 3 %

'invrsnn - COMPUTE R_TERM OF THE REVERSE AVERAGE FORMULA
:#AND ADD IT TO THE REVERSE SUM IN MAXIL1-MAXIH1-MAXIL2-MAXIH2.

7816

7817
7818
7813
7820
7821
7822
7823
7824
7825
7826
7827
7828
7829

El2

30Q(1052)
10-JAN-78
12:16
PAGE 148
TIMSEK - MERSURE AN EXPLICIT SEEK TIME

033560
033562
033564
033566
033570
033579
033576
033602
033606
033610
033614
033620

033622

104407
010002
010103
00SOQY
013705
006305
004737
060337
005502
060237
005537
109410

5 333036 36 38 3096 06 06 08 3638 36 30 36 96 36 36 36 06 36 06 98 3606 30 06 36 00 00 30 30 6 06 06 30 6 3

AUTERM: SAVREG
MOV

MOV

CLR
MOV
ASL
JSR

00ss42

053204
003230

MAXIH]1

INTO R2-R3

GET COEFFICIENT

scnncu RS
RS
PC,M.DPIM

ADC

§ 3 SO

Rl'R3

R3, MAXIH2
R’

RESREG

000207

ADD
ADC
ADD

003226
003220

00 3336 3 30 0 3 30 30 3000 30 3030 36 36 30 30 06

; SAVE RO-RS
; GET MEARSUREMENT

TIPLY BY 2

MULTIPLY COEFF.CIENT
iADD TG REVERSE SUM

R2, MAXIL2
; RESTORE

I I 00 00 00 0000000 0

RO-RS

AR AR R

i CMPTIM - COMPARE MERS’'D TIME TO MERS’D MIN AND MAX
*nno REPLACE IF NECESSQRY TIME IS IN RO-R1, POINTER

AR R R R RS RAE

;%70 LO MIN
TIS 1

033624
033630
033632
033634
03363
033640
033644
033646
033652
033684
033656
033662

020063
101006
103402
020113
103003
010063
010113
020063
103410
101003
020163
101404

oocooe

l!lll!llill!illillillli!llIi!lllilllllliillll*l!l*ll&lll!!****!

LHPTIM: CMP

0oooa0e

4g:

000006

63:

000004

BHI
BLO
CMP
BHIS
MOV
MOV

RO, 2(R3)

68
48
R1, (R3)
63

RO, 2(R3)
R1, (R3)

CMP

RO 6(R3)

BHI
CMP

8%
R1,4(R3)

BLO

BLOS

104
10$

COMPARE HI BITS TO HI

;BR IF )

X IXXOr XX
DD =1
DO i)
x
22Z

7796
7797
7798
7799
7800
7801
7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815

MACYI1

MIN

iBR IF
COHPRRE
>
iBR_IF
ISET NEW
1SET NEW
COHPQRE
iBR IF
iBR IF ) MAX
;COMPARE LO BITS TO LO MAX
iBR IF < OR = MAX

CZRBMDO RK611-06 SS VERIF 1
CZREMD.P 1l
10-JAN-78 11:48
033664
033670
033674

010063
010163
000207

000006
000004

Fl2

SEQ Q427
SEQ 0148

MACY11 309(1052)
10-JAN-78
12:16
PAGE 149
TIMSEK - MERSURE AN EXPLICIT SEEK TIME

8s:

MoV

RO,6(R3)

;SET NEW MAX
HI BITS

108:

RTS

{RETURN

MOV

R1,4(R3)

:SET NEW MAX LO BITS

5 30333033330 0936 3606 0006 30 06 00 00 00 0600 06 30 0606 36 00 06 06 06 00 06 06 3000 06 00 000 36 0 30 300 20 0 0

3200030 30 00 2

iGETRVG - COMPUTE FORWARD AND REVERSE SEEK TIME AVERAGES BY
:#DIVIDING TIME SUMS BY NO. OF MEASUREMENTS (PASSED IN R3 ON ENTRY).
033676

= 3636363696 3636 36 36 36 36 36 36 36 30 34 36 96 36 36 96 36 36 36 30 36 30 30 0026 30 06 06 06 00 00 00 00 0

LETAVG: SAVREG

104407
01030S
00s000

033766

104410
000207

MOV

R3,RS

MOV

SUMHI1,R2

CLR

gts
003200
003176

;SAVE_RO-RS

053244
003200
003176

JSR
MOV
MOV
gtg

PC,M.DPID
R, SUMHI1
R3, SUMLO1
99

003204
003202
053244
003204
003202

MOV

SUMHIZ2,R2

RESREG
RTS

:8BTTL

:PERFORM DIVISION
:STORE FORWARD TIME AVG
:SET DIVIDEND
= REVERSE TIME SUM

M.DOPID

MOV
MOV

o HEENAAR

:HI DIVISOR = O

SUMLOE R3

JSR

: PERFORM DIVISION

na SUMHIE
R3, SUMLO2

:STORE REVERSE TIME AVG
: RESTORE RO-RS
' RETURN

N NN RN

SET DIVIDEND= FORWARD TIME SUM

SUMLO1. R3

MOV

MMM MR

LO DIVISOR
= MEASUREMENT COUNT

MOV

M R

AR AR

ARRER RS RR

_TYPTMS - TYPE RESULTS OF SEEK TIMING MEARSUREMENTS

; *THIS SUBROUTINE TYPES THE MIN an QNO AVG SEEK TIMES

;#(IN_DECIMAL) MEASURED IN ONE OF

SEEK TIMING TEST

:#IN BOTH THE FORWARD AND REVERSE DIRECTIONS ALSO TYPEO ARE

!#THE MAX SPEC’'D TIME AND THE NO. OF SEEKS EXCEEDING IT
‘% AND THE TOTAL NO. OF MEASUREMENTS. POINTER T0 SPECIF}ED
*nnx MESSAGE MUST BE IN R3 ON ENTRY

ll*!!5!!!*!!!*ll!lllll!*lll**l!l§l!*ll!l*lli*l*i!il*i*llli!iil*

033770
033770
033774

034036

TYPTMS:

104401
012701
004737
104401
012701
004737
013746
104405
010337
104401
000000
012701

: TYPE Fonunno HERSUREHENTS

TYPE
MOV

PC,TYPMIN

JSR
MOV
TYPDS
MOV

PC, TYPMAX
RBYMX1, - (SP)
R3,4$

STYPE MAX MEAS’D TIME
:GET COUNT OF TIMES ABOVE MAX
:CONVERT AND TYPE IT
SET POINTER TO SPEC’D MAX MESSAGE

.WORD
MOV

O
#SUMLO1,R1

'SPEC’D MAX MSG POINTER GOES HERE
:SET POINTER TO LO AVG

MOV

003176

: TYPE "*;*roaunno DIRECTION®x%%"

'POINTER TOLO MIN

JSR

TYPE

Yg:

ORWRD

hn1~r|1 R1

TYPE

SERLF

hnnx1L1 R1

STYPE MIN nens D TIME

STYPE <CR> AND (LF>

*POINTER TO LO nnx

TYPE * OF XXX RBOVE MAX OF XXXXX US *

CZREMDO RKE11/-06 SS VERIF 1
CZREMD. P11
10-JAN-78 11:48
7908

034042

7911

8 4052

7909

7910

7912
7913
7914

034046

004737

034260

104401

011740

104401

4056
034062
034066

012701
004737
104401

034076
034102
034106
034110
034114
034116
034120
034124
034130
034134

004737
013746
10440S
010337
104401
000000
012701
Q04737
104401
000207

001318

003222
034210
001315

Gle

MACY11 30A(1052)
10-JAN-78
12:16 PAGE 150
TYPTMS - TYPE RESULTS OF SEEK TIMING MEARSUREMENTS

7926
7927
7928

BMINIL2,R1
PC, TYPMIN
SCRLF

JSR
MOV
TYPDS
MOV
TYPE
.WORD
MOV
JSR
TYPE
RTS

PC, TYPMAX
RBYMX2, - (SP)

MOV

034116

7929

nov
JSR
TYPE

SCRLF

: TYPE REVERSE
nshsunsneurs
REVRSE
YPE

034234
003174

003292
034260
00131S

PC, TYPAVG

TYPE

79.5 (034072 012701 003226

7916
7917
7918
7919
7920
7921
7922
7923
7924
7925

JSR

X ¥

hnnxxLa R1

R3,6%
O
#SUMLO2,R1
PC.TYPAYG
$LRLF
AC

:TYPE AVG TIME

:TYPE <CR> AND <LF>
. TYPE "4;¢Rsvsnse DIRECTION®#%"

:POINTER TO LO MIN
:TYPE MIN MERS’D TIME
:TYPE <CR> AND (LF>

'POINTER TO LO MRX

:TYPEMAX MEAS’D TIME
:GET COUNT OF TIMES ABOVE MAX
:CONVERT AND TYPE IT
:GET POINTER TO SPEC’'D MAX MESSAGE
STYPE* OF XXX ABOVE MAX OF XXXXX US *
:SPEC’D MAX MSG POINTER GOES HERE
:SET POINTER 10 LO AVG
:TYPE AVG TIME
rvps (CR> AND <LF>
*RETURN

!lllllllllllllll!lillll!llllllill{l!l!llllillllll!lli!l!l»l»l»l»{i{

7930
7931
7932

& CNVTIM - CONVERT SOFTWARE TIMER CYCLES TO TIME
'¥THIS SUBROUTINE
MULTIPLIES THE CYCLE COUNT_IN R4-RS BY THE
:#TIME CONSTANT IN TCONHI-TCONLO, TO OBTRIN TIME IN
N
ssc THIS

7934

lTHIS TIME IS RETURNED IN R2-R3.

7933

%15 THEN DIVIDED BY 1000 (DEC) to OBTRIN TIME IN MICRO-SEC.

7936
7937
7938
7939

7940

7941
7942
7943
7944

7945
7946

7947

7648
7949
7950
7951
7952
;gga

*CQLL TO'CNVTIM.
‘%CALL JSR
PC,CNVTIM
‘e
<ERROR REYURN RDDRESS>
034136

034142
034146
034152
034184

013732

013703
004737
005700
001002

(034156
034160

005701
001403

034166
(034170
034172
034176
034202

000207
005004
012705
004737
062716

034162

034206

017616

000207

003166

003164
0S3204

000000

001750
053244
000002

7955
7956

7957

o 363 3 3 36 36 36 36 36 36 36 3 36 36 36 36 3 36 3 36 36 3 3 3 3 3 3 3 3 36 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 9 3 3 3 3 J 3 3 % W %% % %% ER

SAVTIM: MOV

MOV
JSR
15T
BNE

4§:

034210

7963

034216

034214

104401

01175k

004737

053542

010146

TCONLO R3
M.DPIM
RO
4§

R1
63

RTS
CLR
MOV
JSR
ADD

PC
RY
£1000. ,RS
PC,M.DPID
82, (SP)

RTS
I

TCONHI, R2

TST
BEQ

MOV

X ¥

R Y

7958
7959
7960
7961

7962

IF THE
MULTIPLICATION OVERFLOWS

%32 BITS, AN ERROR RETURN IS MARDE TO THE ADDRESSLISTED AFTER THE

7935

;SET MULTIPLIER = TIME CONST

sMULTIPLY
'MAKE SURE HI 2 WORDS ARE O
:BR IF NOT O

J(SP), (SP)

:SET ERROR RETURN PC

: ERROR-FREE RETURN

ERROR RET u
:SET HI BITS = O
:SET LO oxvxson 1000 (DEC)
:CONVERT TIME
TO US
:FIX ERROR-FREE RETURN PC

Y1122 22222222 2222222222 3XX2X2222222222222232 3222222 34

irvpnxn - TYPE MIN MERS'D TIME IN US. POINTER TO LO TIME IS IN Rl
:%0N ENTRY.
NN NNN NN NN E AR E RN EE RN RN SRR AR NN RN LR R FREREE SRR RR RS LY
HPMIN: TYPE
MINEQ
:TYPE “MIN = *

MOV

JSR

R1,-(SP)

PC.383DB2D

:GET POINTER TO LO TIME
:CONVERT 10 DEC

SEQ Q428
SEQ 0149

<ZR6MDO R¥BLL

0B SS VERIF

CZREMO .P11

10-JAN-78

11:48

004737
104401
000207

053736
012003

7964
7965
7966
736?
7968
7969
7970
7971
?9?%
797
7974

g34222
034226
034232

MACYL1l

30R(10S2)

10-JAN-78

H12

12:16

PAGE

151

SEQ 0429
SEQ 0150

TYPTMS - TYPE RESULTS OF SEEK TIMING MERSUREMENTS

TYPE

PC, 38$SUPRS

ISR

TYPE
RTS

micros
pc

STYPE *US *

s REREARRERRRERERERRREREREREERERERERRERFEERRERARERER
AL RRAR XL X2

;iS;PE§¥R; TYPE MAX MERS’D TIME IN US. POINTER TO LO TIME IS IN Rl
®

034234
Q34240
Q34e4e
034246
034252
034256

104401
010146
004737
004737
104401
300207

0117865

Y 2222:22222222222222X2:3:X2XX2
XXX
2222X2222S2XL2 S

tevPMax: TYPE

053S4e
053736
012003

MAXEQ

MOV
JSR
JSR

1,-(SP)
PC. 348DB2D
PC’ 388SUPRS

RTS

TYPE

:TYPE "MAX = "

:GET PQINTER TO LO TIME
‘CONVERT TGO DEC
STYPE IT

MtCcrROS

REAREERREREENNEN RN

:TYPE *uUS *

RN R RN R R RN

;kTYPAVG - TYPE AVERAGE MERS’D TIME IN US.

034260
034264
034266
Q34272
034276
034302

104401
010146
004737
004737
104401
000207

011774

AR AR RN

ARRRRNRR

POINTER TO LO TIME IS IN Rl

; #ON ENTRY.
"li*Iiilllil!l!ll*llllll*l!*l‘illlfilitl!}*l*t*l!iililllill*ll*l*

t¥PAVG:

TYPE

AVGEQ

MOV
JSR
ISR

gsS35ue
053736
012003

: CONVERT TO DEC
STYPE IT

MICROS
PC

"AVG =

'GET POINTER TO LO TIME

PC, 3880820
PC’ 3uSSUPRS

TYPE
RTS

$ 5 MMM

s TYPE

R1,-(SP)

STYPE *us *

AR B AR R AR AR RRERR R

& LODSEC - THIS SUBROUTINE LORDS THE CONTENTS OF RO INTO ALL
; #256(DEC) WORDS OF THE DATR BUFFER (RWBUF).

034304

104407

S 2 B3 3636063006 3006 06 30 06 30 36 06 36 06 06 06 36 06 30 060006 06 06 06 00000 00 JH UMM

063554

064554

034324

(ODSEC: SAVREG
MOV

2%:

SRWBUF ,R1

RO, (R1}+

:PUT WORD INTQ BUFFER

BNE

'BR_JF NOT DONE YET

RESREG
RTS

AR RERRER RS

:GET ADDRESS OF DATA BUF INTO Rl

MOV
CMP

000207

:SAVE RO-RS

R1, #RWBUF+512.

;SEE IF 256 WORDS WRITTEN YET

‘RESTORE RO-RS
:RETURN

a0 0D (0
M
o000 000

;'lllilillil*il*llll*illll*!il!!lil{ll*l!ll{lll**li!ii*!illi!l!ii

'% TRKCHK - THIS SUBROUTINE DOES A WRITE-CHECK OF SECTOR FS ON CYL

;2FC,

FOR EACH OF

TRACKS O,

AND 2,

' «TRACK NUMBER + 100(0CT) FOR'THAT

THE DATA

IS COMPARED

PARTICULAR BLOCK OF DATR WRITTEN.

' #THE PARAMETER BLOCK MUST BE PRE-LOARDED WITH THE PROPER PARAMETERS.
034326
034330
034334

104407
016546
105085

000004
goooos

222222222222222222222223X:X222X22221222222222X22222X2X2222X2222

HAKCHK: SAVREG
MOV

CLRE

- SAVE RO-RS

P.SECT(RS),-(SP) ' ;SAVE TRACK AND SECTOR PARAMETERS

P.TRCK(R3)

.LCEAR THE TRACK NG.

cZREMDO RKB11-06 SS VERIF 1
CZRBMO. Pll
10-JAN-78 11:48

034340
034344
034350
034354
034362
034366
034372
034400
034402
034406
034410

116500

MACY11l

30A(10S2)
TYPTMS -

SEJ_3J4330
SEQ 018!

LORD THE DATA BUFFER WITH THE CURRENT TRARCK NO.

00000S
000100

Move

P TRCK(RS) RO

cer TRACK NO. INTO RO

cMPB
BNE

ca _TRCK(RS)
28’

:SEE IF DONE WITH ALL TRACKS
:BR_IF NOT DONE YET

RTS

' RETURN

ADD

JSR
MOVB
JSR
INCB

000001
S
000003

I12

_10-JAN-78_
12:16
PAGE 152
TYPE RESULTS OF SEEK TIMING MERSUREMENTS

oocoes

MOV
RESREG

000004
000207

100(0CT)

'TO TRACK NG.

PC Lbo
OAD DATR BUF WITH TRACK NO. + 100.0CT)
ouhrcnx P CHND(RS) SET WRITE CHECK COMMAND
DRVCALPEkFoan THE WRITE CHECK
fRCK(RS)
P INCREMENT THE TRACK NO.
(SP)+,P.SECT(RS)’ ;:RESTORE TRACK AND SECTOR PARAMETERS
. AESTORE RO-RS

3695389806 30 06 3698 0006 30 08 00 00 36 00 36 06 96 0600 30 06 3000 06 00 06 00 06 00 00 00 0

MMM AR

A AN R AR AR R

iLODPlH - GENERATE SIXTEEN PSEUDO-RANDOM NUMBERS RAND LORD THEM
;#INTO THE PATTERN 14 TABLE.
bt bbbttt bbottitb b

(dDP14: SAVREG

Q34412
034414
034420
03442y
034430
04434
034440
034442
D3444Y
034446

4s:

Y
MOV

JSR
MOV
MOV
DEC
BNE
RESREG
RTS

2 2 ST TSI

anfxq RO

PC, SRAND
SLONUM, (RO)+
SHINUM, (RO)+
R1
qs
PC

T SRS LSS R22 2222222222 222223222 2 2

; SAVE RO-RS

SINIT LOOP COUNTER TO 8.

'GET ADDRESS OF PATTERN 14 BUFFER

:GENERATE 2 16-BIT RANDOM NUMBERS
:PUT ONE NUMBER INTO PATTERN
'PUT OTHER NO. INTO PATTERN
'SEE IF 16 WORDS LORDED YET
'BR _IF NOT YET
RESTORE RO-RS
'RETURN

= 3636 3 36 36 36 3 36 36 36 3¢ 3 36 36 3 3 36 3 38 3 3 3 3 3 3 3 36 3¢ 36 3% 3 3 3 38 3 3 3 36 38 3 3 36 3 3 3 3 3 3 3 3 3 9 3 3 3 3 3 4% % 3 % % %

QBTTL

FINRDR - COMPUTE FINAL PQCK ADDRESS

; ¥THIS SUBROUTINE

IS USED AFTER
AR DATA TRANSFER HAS COMPLETED,

: #COMPUTE THE FINAL PACK ADDRESS AT TERMINARTION. THE 2°'S COMP. OF THE
:#WORD NO. AT THE POINT OF INTEREST IS PRSSED IN LASTWC. THIS IS USED WITH
;%P. CYLN(RS),
P. TRCK(RS) AND P.SECT(RS) TO COMPUTE THE CORRESPONDING
: ¥PACK ADDRESS, WHICH IS'RETURNED IN FINCYL, FINTRK, AND FINSEC.
:%#THE SUBROUTI“EEIS USED TO DETERMINE THE PACK ADDRESS OF A SOF TWARE
; ¥DATA MISCOMPA
034450

104407

< 3696363696 36 38 36 3696 36 36 36 36 36 36 36 36 06 36 36 06 36 36 06 06 6 6 36 6 0

00s600

000003
0oooa2
000004
000002
0cooo2
000026
0031es
034522
034526

020016

EtNADR: SAVREG

000024

18%:
000002

19%:

MOV

LASTKC, - (SP)

MOVB

3(5P), (SP)

NEG
CLR

CLR
MOVB
ADD
CLR
MOV
TSTB
BEQ
MOV
CMP

(SP)
-(SP)

3OO0 O

: SAVE RO-RS5

AR R AR

:STORE WORD counr

IMAKE IT POSITIVE
‘MAKE ROOM ON STACK

:STORE NO, OF SECTORS TRANSFERRED

2(5P)
‘CLEAR LOCATION ON STACK
P.SECT(RS).2(SP)' :STORE STARTING SECTOR
2(SP), (SP)
bsrsnnxne FINAL SECTOR RDDRESS
2(5P)
:CLERR NO. OF TRACKS TRANSFERRED
222. RO
:SET FOR 22 SECTORS
FORMAT
:DETERMINE THE FORMAT
19%
:BR IF 22 SECTORS
#20. ,RO
:SET FOR 20 SECTORS
RO, (5P)
:CHECK FOR SECTOR OVERFLOW

CZR6EMDO RKGIL/OB SS VERIF 1
CZREMD.P11
10-JAN-78 11:48

8076

8077
8078
8079
8080
8081
8082
8083
8084
8085
8086
8087
8088
8089
8030
8091
8092
8093
8094
8095
80396

034530

034532
034534
Q34540
034542
034546
034550
034554
Q34560
034564
034570
034572
034576
034602
034604
034610
034614
034620
034622
034624

J1le

MARCY1l 30A(1052)
10-JAN-78
12:16
PRGE 153
FINARDR - COMPUTE FINAL PACK RDDRESS

101004

160016
005266
000772
112637
005046
116516
066616
00S066
122716
10100S
162716
005266
000770
112637
066516
011637
005726
104410
000207

BHI

000002
005577

20%:

00000S
000002
000002
000003

21s:

000003
000002
005576
000002
00S574

8093

22%:

suB
INC
BR
MovB
CLR
Move
ADD
CLR
cMPB
BHI
SuB
INC
BR
Move
RDD
MOV
TST
RESREG
RTS

20s

RO, (SP)
2(5P)
19%
(SP)+,FINSEC
-(SP)
P.TRCK(RS), (SP)
2(SP), (SP)
2(SP)
83, (SP)
224
83, (SP)
2(5P)
218
(SP)+,FINTRK
P.CYLN(RS), (SP)
(SP) FINCYL
(spr
PC

;NO,

SEQ@ 0431
SEQ 0182

CHECK IF SECTOR CORRECT

;DECREMENT SECTOR COUNT BY 20 OR 22
: INCREMENT TRACKS TRANSFERRED
;CHECK FOR SECTOR OVERFLOW
iSTORE _FINAL SECTOR
i MAKE_ROOM FOR TRACKS TRANSFERRED
;STORE STARTING TRACK
:DETERMINE FINAL TRACK ADDRESS
:CLEAR FINAL CYLINDER
:CHECK FOR TRACK OVERFLOW
iNO, CHECK FINAL TRACK
: DECREMENT TRQCK COUNT BY 3
: INCR CYL COUN
; CHECK FOR TRRCK OVERFLOW
:STORE FINAL TRACK
;CALCULATE FINAL CYLINDER
:STORE FINAL CYLINCER
:CLEAN OFF STACK
;RESTORE RO-RS
;RETURN

* 3636 36 36 36 30 36 3 36 36 36 3 36 3 3t 36 36 3 36 36 36 36 36 36 36 36 3 36 96 3 3 3 30 3 36 36 36 36 3 38 3 36 3 3 3 36 3 36 36 3 36 36 3 3 3 3 3¢ 3 3 3 3 ¢

8100

QBTTL

8102

;% PMA AND PMA+2)

8104

:#0F ALL THE PQTTERNS 00-15 (QUICK VERIFY DEFAULT DATA TEST

810l

LODBUF - LOPD THE READ/WRITE DATA BUFFER

; #THIS SUBROUTINE LOADS THE READ/WRITE DATA BUFFER (POINTED TO BY

8103

WITH THE APPROPRIATE REPEATING DRTA PRTTERN.

: ¥PARAMETER PATRN = O ON ENTRY,

810S

:#IF PATRN IS NOT

THE DRTR WHICH IS LORDED IS LOHPRISED

THE NO. OF WORDS IN THE WORD WDSXFR

8106

; %0F _THE PATTERN IDéNTIFIED BY THE NO. OF THE BIT SET IN Rl ON

gigg

!llliiflll‘llilll*l*ll*lll!**lillll*!lllll**!*l!lllll’!l*l**!{*li{l

8107
8110

lENTRY
034626

104407

8111
8112
8113
8114
811S
8116

034630
034634
034640
034642
034646
034652

013702
005737
001007
012700
012746
012701

8118
8119
8i20
8121
Bl2e
8123
gle4

034660
034662
034666
034670
034672
034674
034676

005000
032701
001003
005200
006201
000772
006300

8129

034710

8117

8125
gl2t
8127
8128

8130
8131

034656

000463

034700
034702
034704
034706

006300
006300
006300
006300

034714
034720

012746
013701

062700

005572
005544

LODBUF: SAVREG

MoV
TST
BNE
MOV
MOV
MOV

006216
000400
063554
000001

33:
4$:

63:

006216

000020
005602

ARE LOADED INTO THE BUFFER.

; SAVE RO-RS

WDSXFR, R2
PRATRN
33
#PATO0, RO
#256., 2 (SP)
SRWBUF, R1

iGET NO. OFWORDS
{SEE_IF QUICK VERIFY DATA TEST DESIRED
:BR_IF NOT QUICK VERIFY
:SET DATR PATTERN STRRTING ADDRESS
:SET PRTTERN WORD COUN
SET BUFFER RDDRESS

CLR
BIT
BNE
INC
ASR
BR
ASL

RO
#8IT0,R1
6%
RO
R1
4§
RO

INIT PRTTERN NUMBER
:SEE_IF _THIS BIT IS SET
iBR_IF THIS BIT 1S SET
: INCREMENT _PARTTERN NO.
ISHIFT TO EXAMINE NEXT BIT
:BR TO CHECK NEXT BIT
{MULTIPLY PATTERN NO. BY 32(DEC)

ADD

#PATOO, RO

:GET ADDRESS OF DESIRED PATTERN

ASL
ASL
ASL
ASL

MOV
MOV

308

RO
RO
RO
RO

#16.,-1SP)
PMA,R1

PROCEED

;SET PATTERN WORD COUNT
:SET BUFFER ADDRESS

cZREMDO RKE11-06 SS VERIF 1
CZREMD.PL1
10-JAN-78 11:48

8132
8133

034724
034730

005737
100036

0S5716

034732

013737

003206

034756

010003

41
42
43
44
4S5
46
47
48
49
S0
S1
52
S3
S4
SS
S6
S7
S8
S9
60
61
62

034762
034764
034770
Q34772
035000
035004
035006
035010
035012
035014
035016
035024

01232l
032701
00140S
062737
042701
00S302
001403
00S304
001363
000769
042737
000410

035026
035030
035032
035034
035036
035040

010003
0l1604
012321
005302
001403
00S304

34
36
37
38

034740
034746
034752

0S2737
042701
0Se701

MOMOOMMMM NNNNNNNNNNOCCOOCOT
NONL£WN-OVONCNLW—-0ODONTN
LW

00 €D (D 00 00 €D 00 00 00 GO €O (D (O 00 D 0D 4D A CD 0000 O €D G0 D 0D €D 4D OO 0D 4D (D 00 0 D

40 034760 011604

035042
035044
035046
035050
035052

000001
160000
140000

Kl2

MACY11l 30R(1052)
10-JAN-78
12:16_
PAGE 154
LODBUF - LORD THE RERD/WRITE DATR BJFFER

172354

000001

177572

001373
000770
005726
104410
0002087

MOV

SAVPAR, d#K IPARG SET UP WORKING PAR

MoV

(SP) RY

MOV

24%:

172354

$KT11
308

8IS
BIC
BIS

22s:

000200
020000

TST
BPL

;SEE _IF MEM MGY PRESENT
BR IF NOT PRESENT

; BUFFER LORD LOOP FOR MEM MGT STARTSHERE

177572

020000

SEQ Q432
SEQ@ 01563

88170 fiISRO
#160000,R
8140000 Rl
R3

TURN ON MEMORY MANAGEMENT
FORCE RELOCATION THRU KIPARE
;GET R COPY OF PATTERN RDDRESS

:INIT PATTERN WORD COUNT

MoV
(R3) 4 (R1)+
:LOAD A DATA WORD INTO BUFFER
BIT
#BIT13,R
{SEE_IF OVERFLOW TO NEXT PAGE
BEQ
26es
iBR_IF NO_OVERFLOW
ADD
#8200, J#KIPARE
: INCREMENT PAR BY 4K FOR NEW PAGE
BIC
$8IT13,RI
:SET PAGE
= & AGAIN
cbs:
DEC
R2
:DECREMENT "WORD COUNTER
BEQ
c8s
:BR IF ALL DONE
DEC
R4
:DECREMENT PRTTERN_ WORD COUNT
BNE
249%
:BR IF NOT DONE WITH PATTERN YET
BR
223
iBR _TO REPEAT THE PATTERN
28%:
BIC
#8ITO, J#SRO
DISRBLE MEMORY MANAGEMENT
BR
44§
:GO TO RETURN
. BUFFER LOAD LOOP FOR NO MEM MGT'STARTS HERE
30s:
MoV
RO,R3
;GET _R_COPY OF PQTTERN RDDRESS
MOV
(SP) R4
JINIT PARTTERN WORD COUN
348:
MoV
(R3)4, (R1)+
:LORD A DATA WORD INTO BUFFER
DEC
R2
:DECREMENT WORD COUNTER
BEQ
44§
:BR _IF ALL DONE
DEC
R4
! DECREMENT PATTERN WORD COUNT
BNE
34%
:BR IF NOT DONE WITH PRTTERN YET
BR
308
iBR_TO REPEAT THE PATTERN
44§ :
ST
(SP)+
;POP_THE STACK
RESREG
RESTORE RO-RS
RTS
PC
{RETURN
X

122222222222222222232222312222322X22222222222X23X222222222222
224

"&BTTL

CMPBUF - SOFTWARE COMPARE DATA

: #THIS SUBROUTINE PERFORMS A SOF TWARE COMPARE OF THE R/W DATA BUFFER

(POINTED

:%xTO BY PMA AND PMA+2) 10 THE APPROPRIATE REPEATING DATA PATTERN. IF
: xPARAMETER PATRN = 0 ON ENTRY, THE onrn IS COMPRISED OF ALL THE PATTERNS
: %00-15 (QUICK vsnxrv DEFAULT DATATEST
‘xIF PATRN 1S NOT
O, THE NO. OF THE BIT SET IN Rl ON ENTRY IDENTIFIES THE
: ¥REPEATING DATA PATTERN TO COMPARE AGRINST.

035054

035056
035Ce4

104407

035072
035076
035102
035106

112737
012737
013702
005037
009737
005737

005572
005542
041704
005544

035114
035120
035124

012700
012746
012701

006216
000400
063554

035112

001007

000040
000007

062105
063446

200000 36 30 06 30 06 3006 06 060 T30 06 06 00

LHPBUF: SAVREG

MOVB
MOV

#40,DH701+38.
87 DF25+2

00 0 0

s SAVE RO-RS

A AR R RN ER

;RESTORE ERROR MSG PARAMS

MOV
CLR
JSR
15T

WDSXFR, R2
SCRACH'
PC, REPSUP
PAtRN

:SET NO. OF WORDS
:CLEAR COMPARE ERROR COUNT
:STORE PREV CMND FOR P0OSS. PRIN
sss IF THIS IS QUICK VERIFY DEFRULT DATA TEST

MOV
MOV
MoV

#PATOO, RO
$256. .- (SP)
SRWBUF ,R1

'CET DATA PATTERN srnnrxnc ADDR
:SET PATTERN WORD COUN
:SET BUFFER ADDRESS

BNE

R IF NOT

A L0 -L0

Wow

MACYil

L £ £ L

cMP BUF

3%:

BR
CLR

308
RO

BNE
INC
naa

63
RO
R

4s:

000001

6%:

nunnn
oL

L12

10-JAN-78
12:16
PAGE
- SOFTWARE COMPARE DATA

30A(1052)

BIT

100041

013737
052737
042701

006216
000020
005602
055716

4
RO
RO

ASL
ASL
ADD

RO
RO
sPATOO, RO

003206
000001

160000
140000

172354

MOV
MOV
TST

BPL

354
572

NN
N

035160

000200
020000
035740

XAMIN NNQ¥BE?T
RECK NEXY BIT
Y PATTERN NO.

32(DEC)

$16.,-LSP)
MA . R1
$kTi1
308

; GET _ADDRESS OF OESIRED PATTERN

:PATTERN WORD COUN
iSET BUFFER QDORESS
:SEE_IF MEM MGT PRESENT
BERéF NOT PRESENT

: COMPARE LOOP FOR MEM MGT STARTS'H
MOV
snvpnn asxxpnns %E; US HOEKINE PAR

BIS

BIC

#BIT0, J4SR

#1600 Rl

MOV

oxqoooo R1

iFORCE RELOCATION THRU KIPARG

223 :

BIS

?ET R_COPY OF PATT RN QDDRESS

248

CMP

(R34, (R1)+

; COMPARE DATA WORD TO PRTTERN WORD
BR IF _NO_ERROR
:SET PAR FOR PgéNTOUT
:GO_HANDLE sRR
:SEE IF OVERFLOW TO NEXT PAGE
;BR_IF_NO OVERFLOW
: INCR_PAR BY 4K FOR NEW PARGE
= & AGAIN
iSET PAGE
: DECREMENT "WORD COUNTER
iBR IF NOT RLLTDSNE YET
ALL DONE - GET_OUT
: DECREMENT PARTTERN WORD COUNT
SR *F NOT DON§ WITH PATTERN YET

00l121s

258 :

020000

SEG _O433
SEQ 01S4

#BITO,R!

B
ASL
ASL

ARSL

155

172354

26%:
27%:

MOV

(SP),RY

BEQ
MOV
BR
BIT
BEQ
ADD

258
J8KIPARG, SREGLE
358
#BIT13,RI
263
#200 asxxpnns

DEC
BNE
JMP
DEC
BNE
BR

Re
27%
54§
RY
24
22

BNE
IMP

BIC

#BIT13,

NIT PRTTERN WORD

0 REPEART

HE PARTTERN

. COMPARE LOOP ron NO MEM MGT STnhTs HERE
;GET _COPY_OF PARTTERN QDDRESS
MOV
30s:
:INIT PATTERN WORD COUN
(sP
MOV
(R3)& (R1)+
CMP
COHPRRE DRTA NORD T0 PQTTERN WORD
34§
35720
62105
00000S
001202
005572
001202
034450

035376

005574
005576
00ss57?7
o4021e

318:

CLRB
MOV

DH?01+38.

85, DF25+2

- COMMON COMPARE ERkoR HANDLER
5cs:
MOV
EG1D

sF EOHPQRE ROR
umP
_IF
DATA C MPQRES 0K

QOJUST DATA HERDER FOR MSG
{ADJUST ERROR DATA WORD COUNT

uoéxFR $REG1O

;GET WORD NO.

JSR

PC, F INADR

MOVB
MOVB
JSR

FINTRK.RI
FINSEC. R2
PC, BDSRCK

:COMPUTE ACTUAL PACK ADRS
:SAVE RO-RS
IGET CYL
'GET TRACK
:GET SECTOR
;SEE IF THIS SECTOR LISTED BRD

SuB
MOV

SAVREG
MOV

SREG10 LASTWC

FINCYL,RG

;GET 2’S COMP OF WORD NO.

CZR6MDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD. P11

001024

00ss4e

#BRDSEC, RECODE

Rac

368
UBMPRS
468
CRMPHO, SREGS

003144

005270
005266

10-JAN-78

RESREG
T

NN
oL

035420

Ml2

12:16
PAGE
CMPBUF - SOFTWARE COMPRRE DRTA

30A(10S2)

005504

832414 Bos435

001000

104410
032737

—

035402
035404

00
oo

8244
8245

MACY1l

?REPLO $SREGE
117

48$

RoROToINGErORT ERROR
ER
e
4h
dk
Re
BR IF_THIS IS NOT FIRST ERRCR

gsEI}F UNIBUS MAP PRESENT
NOT

'GET CURRENT MAP REG O
; DRTR MISCOMPARE
; TYP

(11/70)

HERDING FOR ERROR MSG
CYL N 0.

34
8-1,SREGS

: INI

SREG?
SCRACH

; INCREMENT THE ERROR COUN

gooole

005542

001174

00S574

001176

005576

sngca,FINTRK

SEE IF géFFEREHT TRACK

001200

00s577

SREG? FINSEC

8 1174
1176
001200

SEEIF DIFFERENT SECTOR
;8
AME PACK ADDRESS
ISET NEH PACK RDRS FOR PRINTOUT

SRESH

143434

001204

#8170, aSKR
38%
gxo, SCRACH

38%:

428

H4§:

; TYPE N W PRCK RDDRESS

IGET WORD NO.

iGET GOOD DARTA

SSHPUTE SHYSICQL ADDRESS

SREG13

PMA+2, SREG13

R1,$REGIS

82, SREGIS
63’

001214
143242

S0%:

055716

035306

dhécio
-2(R3),SREG
SEEGIO iREEis

iBR_1

PMA, SREG1Y

poli1z210

035250

FINQYL gnsgg

:SEE IF ALL ERRORS_SHOULD BE REPORTED
iBR_TO REPORT ALL ERRORS
iSEE_IF 10(DEC) ERRORS YET
iBR_IF ERROR LIMIT EXCEEDED
i SEE EFEéFFERENT CcYL

snsqu
$REG!3

golizle

005544

sngcs FINCYL

FINSEC, SREG?

881273

035730

sRESTORE RO-RS

001174

005577

001406
005304
golooe
000137

SEQ Q434
SEQ@ 0158

177777
001176
001200
0SS4e
(o]s]0]s
)

82 7

10000
00013
005302

156

40%:

$BI1T6, ASWR
54%
PATRN
4

;GET VIRT.

RDORS FOR PRINTOUT

: TYPE GOOD AND BAD DATA,

MEM.

ADRS.

1 ERROR SHOULD BE REPORTED
ERROR SHOULD BE REPORTED

sss IF DEFAULT DATA TEST
!BR_IF_YES
:SEE_IF MEM MGT PRESENT
iBR IF NOT PRESENT
:GO HANDLE MEM MGT
:DECREMENT WORD COUNTER
;BR _IF ALL DON ;
:DECREMENT PATTERN WORD COUNT

iBR IF NOT DONE WITH PATTERN YET

*JUMP TO REPEART THE PATTERN

ZR6MDO RKB11-06 SS VERIF 1
ZR6MD. P11
10-JAN-78 11:48

8300

035734

000137

8302
8303

035744
035746

100003
042737

8305
8306

035756
035760

8301

8304
8307

035740

035754

005737
005726

MACY1l

035312

539:

055716

000001

54§ :

177572

104410
000207

£ies
8310

8322

035762

000002

8327

036000

005037

003200

017760

000002

8330
8331
8332
8333
8334

036014
036022
036024
036030

122765
001537
105737
001411

000002

000005

8336
8337

036036
036042

036032

012746

012746
012746

024000

8339
8340

036052

000410

012746

006024

8341
8342

036054
036060

012746
012746

8344

036070

0Ol2?46

036074

012603

8338

8343

8345

8346

035774
036004
036012

036046

036064

005037

023765
001004

012746

8347
8348
8349

036076
036102
(036104

116502
160203
005002

8353
8354

036120
036124

010337
016605

8350
8351
8352

BPL
BIC

56$
#8170, JaSRO

:BR IF NOT PRESENT
oxsneLe MEM MGT

RESTORE RO-RS
:RETURN

757

RESREG
RTS

SKT11

(SP)+

:SEE

IF MEM MGT PRESENT

POP THE STRCK

036106
036112
036114

LIM

«*NO rngusrsk“ RETURN ADDRESS)>

o S 36306 3 3 3 36 9 36 36 3 36 3 3 96 4 3 3 3 3 3 3 3 36 3 3 3 % % 3 3 W 3% 3% W W% 3

026537
002551
104407

8335

34$

157

035762
035770
035772

8328
8329

JMP

‘% CYL 1456 USED FOR RW
‘s
CALL JS

8323
8324
8325

8326

SE2 Q43S
SEQ 01S6

"4 CHKLIM - CHECK CURRENT DATA TRANSFER LIMITS
;ruxs SUBROUTINE DETERMINES IF THE NEXT DATA TRANSFER SHOULD BE
*#ALLOWED WITH THE CURRENT PRCK RDDRESS AND WORD COUNT. IF THE
*#TRANSFER WOULD CRUSE OVERFLOW BEYOND CYL 632, TRACK i, THE
:#WORD COUNT IN P.WC(RS) MUST BE SCALED DOWN TO
A VALID NUMBER.
i#IF NO POSSIBLE TRANSFER CAN BE RLLONED RETURN 1S MRDE TO
' 8ADDRESS FOLLOWING THE CRLL TO CHKLIM

8318
8319

8321

Se$:

157

22X Y2222222222
RS X2 X222
222
S 2

8311
8312
8313
8314
8315
8316
8317

8320

N12

30R(1052)
10-JAN-7?8
12:16
PAGE
CMPBUF - SOFTWARE COMPARE DRTR

012705
005004
004737

017754

SAKLIN:

003176

003125

013000
000026

000004
000400
053204

003176
000012

SAVE RO-RS

W E

KSR %R % EEE®®

P.CYLN(RS),LCMS ;SEE IF SHOULD CHECK ADDR. LIMITS YET
34§
'BR TO RETURN IF NOT
'SAVE RO-RS

CLR

SUHLOI

CMP
BNE

LSTCYL,P.CYLN(RS)
sss
es
:BR_IF NOT

CLR

SUMMI1

IF ON LAST CYL

CMPB
#2,P.TRCK(RS)
;SEE IF ON TRACK
2 ch 6321456
BEQ
36
'BR_IF CAN’T DO TRANS
8%:
7578
FORMAT
'DETERMINE THE FORM
r
BEQ
10%
BR IF 22(DEC) SECTORS
: STORE consrnnrs FOR EO(DEC) SE
cf

036000
012000
026000
041000

CMP
BLT
SAVREG

nov
MOV

MOV

#10246. , - (SP)

cxsaso -(5P)
#5120. . -(SP)

#20. -!sp

BR
128
i STORE CONSTANTS FOR 22(DEC)

ios:

MOV
MOV

#11264.,-(SP)
oxsees.,-(sp)

or WORDS ON 2 TRACKS

NO OF WORDS PER CYL
INO. OF uoaos PER TRRCK

INO. OF SECTORS
SECTORS

sssaa. Z(SP)

NO. OF WORDS ON 2 TRACKS
INO. OF WORDS PER CYL
;NO. OF WORDS PER TRQCK

(SP)+,R3

:GET NO. OF SECTORS

~tsP)

NO.

OF SECTORS

. COMPUTE NO. OF uonos LEFT ON rHts TRACK

ies:

MOV

MOVB
SuB
CLR

MOV
CLR
JSR

MOV

sscf<95) R2
Ra R3
Re’
cass. RS

PC .DPIM

R3’ SUMLOI
1215p

;GET CURRENT SECTOR NO.
INO. OF SECTORS LEFT
{GET NO. OF WDS IN THESE SECTORS
:STORE THIS NO.
:RESTORE PARAM BLK RDDR

; COMPUTE NO. OF NOROS CEFT ON THS CYLINDER
MoV

CZR6MDO RK611,06 SS VERIF 1
CZRBMD.P11
10-JAN-78 11:u48

8356

036130

012703

8358
8359
8360

036142
036144
036146

001001
005303
116502

036154
036156
036160

005002
012605
004737

036170

016605

8370
8371
8372
8373

036204
036206
036210
036212

100001
005003
005002
012605

8376
8377

036224
036226

005502
063702

MACY1l

Bl3

30R('0S2)
10-JAN-78
12:16
PAGE
CMPBUF - SOFTWARE COMPARE DATA

000002

MOV

000005

BNE
DEC
MOVB

8357 036134 023765 017760 000002

8361

036152

8365

036164

8362
8363
8364
8366

160203

060337

148

036214

004737

053204

003176

000010

036232

016605

8379
8380 036236 023765
8381 036244 001002
8382

8383
8384
8385
8386

036246

053204

000402
062603
00S5G2

8387
6388

036256
026260

00S000
016501

8391

036270

8389
8390

8392

036264
036266

8393

8394 036272

005401
001001

060301
005401

8403

036312

8406

036322

8407
g:gg
410

*RESTORE PARAM BLK ADR

168
R3
R2
(sp)+ RS

;ADD_WORDS TQ TOTAL

R2
sunnrx

000002

7ST

(SP)+

6(SP),

OF WDS PER CYL

' COMPUTE NO. OF WDS IN THESE WHOLE CYLS

sufiL01 R3

ADC
ADD

MOV

GET NO.

M.OPIM

"ADD THESE WDS TO TOTAL

.RESTORE _PARAM BLK ADDR

;ADD THE NOC. OF WDS ofi TRACKS 0,1, CvL sae/1456
cCMP
LSTCYL,P.CYLN(RS)’
SEE_IF CYL = 632/1456
BNE
188
;BR_IF NOT 632714956
{PCP STACK

BR
20%
188:
ADD
(SP)+,R3
ADC
R2
:GET DESIRED WORD COUNT

000012

OF TRACKS LEFT

208:

;ADD WDS ON TRKS 0,1,

CLR
MOV

RO
P.WC(RS),RI

INC

NEG
BNE

Ri
22%

CYL

b32/1456

;WORD COUNT HI BITS
;GET THE DESIRED WORD COUNT
;BR_IF WORD COUNT NOT ©5,536(DEC)

{SET HI WORD COUNT = 1|

suarnncr WORD COUNT FROM NO. OF 'WORDS LEFT TO DETERMINE IF OVERFLOM.
UMBER OF WORDS LEFT

010165

104410

036314
036320

062716
000207

036326
036330

104410
000207

017616

000012

000002
000000

suUB

sac
SuB

R2
RO, R2

ADD
NEG

R3,R1
R1

RETURN MOV

30s:

RESREG

368:

MOV

348:

R1,R3

IN R2-R3,

WORD COUNT

AOD
RTS

RESREG
RTS

R1,P.WC(RS)

82, (SP)
PC

2(sP), (SP)

;LO PRRTS

IN RO-R

BPL
308
‘B8R IF WORD COUNT NOT > NO. OF WDS LEFT
. SCALE DOWN WORD COUNT TO AVOID OVERFLOW (SUBTRACT THE EXCESS)

036302
036304

8404
8405

10tSP),

GET NO.

100004

8393
8400

036306

'GET NO. OF WORDS IN THESE TRACKS
:NO. OF ''DS PER TRACK

R2,R3

bos:

005602
160002

S:Sé

R2
(SP)+,RS
PC,M.OPIM

160103

036274
036276

036300

;BR_IF NOT
‘DECREMENT TRACK LIMIT TO 1 FOR CYL 632/1456
GET CURRENT TRACK
NO.

BPL
CLR
CLR
MOV

ADD

000006

005200

8395
839

8397
8398

14
R3
P.TRCK(RS),R2

R3 SUHLOI

JSR

003200

005726

036250
03F352
03b254

TRACK LIMIT = 2

; COMPUTE NO. OF uonos bn WHOLE CYLINDERS REMAINING
MOV
LCM
;CYL LIMIT =631/1455
SuUB
P. CYLN(RS) R3 iGET NO. OF WHOLE CYLS LEFT
168:

G17760

SEG Q436
SEQ 0157

sfch P.CYLN(RS} :SEE IF ON CYL 632/1456

ADD

MOV

8375 (036220 063703 003176
8378

SUB

CLR
MOV
JSR

8367
8368
036174
013703
017756
8369 036200 166503 000002

8374

CMP

158

PARTS

:GET NEW WORD COUNT

IN Rl

;SET NEW WORD COUNT

IN PARAM BLOCK

;RESTORE RO-RS

"FIX NORMAL RETURN PC
JEXIT
sFIX “NO TRANSFER"

!RESTORE RO-RS
:RETURN

RETURN PC

VERIF
C%RSPWO RKbll/OB §2N
(8

1
11:48

MARCY11

C13

OBAAEF2. cAPSHRNE BondRdSonTACE 15°

8412

ig
SIS M NI

8415
8416
8417
8418
8419
8420
8421
8422
8423
842y

RN RN AR

R R RRRRRRRRRRR

RRARRRER RS

CUTED,

AND THE STACK 1S RE-INIT

ETLO T - THIS EHBR?UTINE HECKS FOR_(#C) OR (tZ) TTY INPUT.
)
) _WARS TYP
HE SUBROUTINE RETURNS TO DRVTST. IF (t2)
; ¥WAS TYPED, THE ??éROUTINERETURNS TO INPUTP. IN EITHER CRSE

413
419

;%R RESET INSTRUC

;#IALIZED. IF THEPE IS NO INPUT R INPUT OTHER THAN (1C) OR (t2),

:#NO ACTION IS _TAKEN

;#
;¥

036332
036340
036342
036346
036350

122737
001077
005737
001474
105737

000001

003120

005532
003116
000003

005532

013732
003134

000032

S BN

036540

004737
000207

026370
026040

"PC,CTLOUT

RR R RN

OlsTSTING
10
INTCHR
10%
MDFLRG
128
%003, INTCHR
4§
#DRVTST, RO

R R R AR R R RN R E B R R RN

PC,GETXDP

003046

JSR
RESET
CLR
CLR
CLRB
MOV

INTCHR
STIMES
XDPSVD
SERRHDL , A. ABNL

000001

MOVB

cnsan P. anO(Rsi

63:

005532

MOV

JSR

4§ :
12%:

005532

7%:
?3&

;

RvEAL

REST RE SAVED XXDP, IF NECESSARY
'RESE
L DEVICES
'CLEAR TTY CHRR BUFFER WORD
CLERR T
ITER. COUNT
‘CLE
XXOP SAVED FLAG
RESTORE ERROR HANDLER ADDRESS
RESET THE STACK

SET RECAL COMMAND

0b GLEANUP RECAL IBRATE

ard

'EXIT FROM TESTS

BNE

:BR_IF _NOT

TYPE

HLTRQD

CMPB
CMPB
BNE

TYPE
MOV
BR
CMPB
BNE
JSR
g;g

STQTNM

8032, INTCHR

sINPUTP, RO

EI Néxop CURRENTLY OVERLAID

CLR
IMP
MOV

00ss32

#STACK,

EERRR RN AR

; SEE _IF CURRENTLY RUNNIgG TESTS
'BR IF NOT RUNNING TEST
"SEE IF ANY TTY INPUT
:BR_IF NO INPUT
'SEE IF DEFRULT MODE RUN
‘BR IF YES
:SEE IF (1C) TYPED
'BR IF NOT (#C)
SETRETURN RDCR
= DRVTST

é%VLRD

giolal
010071
O44134

000007

JSR
CKEXIT

ggge

015340
000003

C*LOUT cMPB
BNE
TST
BEQ
7578
BEQ
CMPB
BNE
MOV

2s:

Oe7esbe
00S532
081304
003135
QueleM
001100
000113
040316
oo1102

CALL
OR

CL%RR THE TEST NO.

‘SEE IF (92) TYPED

($2)

'SET RETURN RDOR
= INPUTP

TAKE EXIT

8003, INTCHR
7S

'SEE
IF (1C)
'BRIF
NOT

TYPED

CNTRDY
kHLTPRG, RO
2%
8007, INTCHR
8%
PC, GTSWRG
Pg PREPKB

PTYPE "PRESS CONT WHEN RDY"
:SET HALT ADDRESS
'TAKE EXIT
'SEE IF (1G) TYPED
:BR IF NOT (1G)
:OPEN SOFTWARE SWR FOR MODIFICATION
EEQBLE KBD INPUT AGAIN

:TYPE “HALT REQUESTED"

!l!!lllll!ll!l!l!lll!!lliillllli!lll!&!ililll!l!lilll!lll!lll!*

iuRTSEC - WRITE
A BLOCK OF 400(0CT) WORDS ONTQ DISK AND PERFORM
;%A WRITE CHECK. PARAMETER BLOCK MUST BE PRE-LOADED WITH_PACK
: #ADDRESS. DATA WORD IS PASSED IN R3 ON ENTRY. RWBLF 1S THE BUFFER

; #USED.

:R IIE2I222 LIRSS SIS 2222222222222

2222t

e sl

ss s

CZREMDO RK611-06 SS VERIF 1
CZRSMD.P11
10-JAN-78 11:48
g:gg

036542

104407

8470

6S4Y

12700

8472
8473

036554
036556

010320
8]

MACY1l

WRTSEC:

160

SAVREG

063554

4§:

MOV
MOV

unugur PO
#40

MOV

Ra,(ho>+

gns

DEC

SEQ Q438
SEQ 01S9

: SAVE RO-RS

;LOAD THE R/W BUFFER WITH DATA

8471 838?50 815?81 0oo40C
8474

D13

30A(10S2)
10-JAN-78
12:16
PAGE
CMPBUF - SOFTWARE COMPARRE DRTR

aurrsn noonsgg
400(0CT)

:LORD A BUFFER WORD

:DECR_COUN 5

‘BRIF NOT

ONE YET

036560

8476
8477

036562
036570

O
O

000010
oooo12

8479
8480

Q3e576
036604

|
O

0ooo01

PARAMETER
MOV
$RWBUF,P.BALO(RS) :SET BUS ADDRESS
#-400,P.WC(RS)
;SET WORD COUNT
MOV
;WRITE THE DRTA
.NR QTQ P. CMND(RS)
? T WRIT
gonnnuo
Move

8482
8483
8484
8485

036610
036616
03b6bee
036624

1
?

000001

is:

;SET UP

JSR

PERFORM WRITE CHE
c
MOVB

WrRiTE

CAL

SWRTCHK ,P.CMND(RS)

PC, oncAL

THE DAT

:SET WRITE CHECK COMMAND

PEkFORn NRITE CHEC

'RESTORE
*RETURN

= 363636 36 36 36 36 3 36 3 36 3 36 36 3¢ 36 3 36 36 3 36 3 36 3 33 3 3 3 3 38 36 36 36 3 36 3 36 36 3 36 36 3630 306 36 3 36 2 3 3 33 2 2 3 NN X

'iINCRnn - INCREMENT MA BY WORC COUNT IN P.WC(RS).
8492
8493
8494

036626
036630
036632

104407
005001
016500

8497

036642

00040l

8502
8503
8504
8505
8506

036654
036660
036664
036670
036672

060037
005537
060137
104410
000207

o 33363 36 3 336 36 3 3 36 3 6 3 3 3 3 3 3% 3 % 3 3% 3 I

tACRMA: gn;qsc
MOV

000012

4g:
63:
005762
005764
005764

P.WC(RS),RO

BNE
INC

43
Rl

NEG
cLC

ROL
ROL

ADD

ADC

0
RESREG
S

333303 333

RO
R1

RO, MA

Made

R1,MA+2

36306 3 000NN

3 %3

MWW

W EE R EEE R

:SAVE RO-RS

FEEEEEREEEEEEEEEE

:GET WORD COUNT

:BR IF NOT 65,536(DEC)
,ser HI BIT

*CONTINUE

'GET TRUE WORD COUNT
:DOUBLE THE WORD COUNT TO GET BYTES
:ADD

IT TO COMPUTE NEW MA

:RESTORE RO-RS
:RETURN

RN R R R B R R AR

RRR R LR

iREOBSF = RERD FACTORY BSF INTO BSFARCT, AND READ SOFTWRARE BSF
: #INTO BSSOFT
8514
8515
8516
8517
8518

036674
036674
036700
036706
036714

8521
B8See
BS23

036734
036740
038742

RN
RN R
R R RE RN AR

004737
142765
112765

027522
000020
Q00121

013765
1 12765
0 2703
é 5737

017760
000002
0000)2
003125

000004

S265

ADBSF:
000007
000001
000002
000005

JSR

PC, INITSS

MOVB

MOV

#RODATAR P CHND(RS)

LSTCYL p.CYLN(RS)

SET keag
DQTR COMMAND

BEQ
INCB

6%
P.SECT(RS)

IF 22 SECTORS

gics

MOVB
MOV
1ST8

INIT THE S.S.

88’ CFMT. P.CSIH(RS)

P.TRCK(RS)
310
R3
FORMAT

SETFOR 22 SECTOR FORMAT

= 632/ 1456
;SET Tnntx=
:SET FACTORY asr SECTOR LIMIT
:BR

:SET STARTING FACTORY BSF SECTOR NO.

CZR6MDO RK611-06 SS VERIF 1
10-JAN-78 11:48
CZReMD. Pll
036746
036750
036756

005203

177400
004232
037140
003141
040316
003141

google
000010
003046

000002
000004

000004

-0y

O0—00

O44134
003232
000004
000026
003125

037160

000207

032765
001002
000137
105237
000137

000023
037140
003141
040316
003141

EL3

38Q(1052)
10-JAN-78
12:16
PAGE
MPBUF - SOFTWARE COMPARE DRTA

000010

MOV

#-400,P.WC(RS)

#8SFALT.P "BALO(RS) :SET BA FOR FACTORY BSF

CLRB

WCEFLG

CMPB

sscr(ns> R3

:SEE IF LIMIT EXCEEDED YET

MOV
TSTB

:aé
ronnhr

'SET 22 SECTOR LIMIT
‘SEE IF 22 sscron FORMAT

MOV

#13.

SET 20 SECTOR LIMIT

CLRB

WCEFLG

83:

MOV

JSR
1578
BEQ
ADD

148:

:SET WORD COUNT FOR 1 SECTOR

$BDSCHD | n ABNL ;SET ERROR HANDLER FOR BSF READ

PC, DRVCAL
uctrLc
SECT(RS)

BNE
JSR
ERROR
IMP
MOV
MOVB

“INIT THE ERROR FLAG

'READ THE FACTORY BSF
:SEE xr ANY ERRORS
'BR_IF NOT
:CHECK NEXT SECTOR

es
‘BR_IF NOT YET
PC, REPSUP
:GATHER STATUS FOR PRINTOUT
eb
: ABORT ING- ano BSF RERD
HL TPRG
:HALT- CAN'T PROCEED
uassorr
P.BALO(RS) :SET BA FOR SOF TWARE RECORD
sstrrns
,sa? STARTING SECTOR NO.

BEQ
003046

SEQ 0439
SEQ 0180

MOV

12%:

161l

INC

6%:

10%:

041704

(PDGMCgflMDI

148

MOV

'BR_IF YES

#B0SCHD, A. ABNL ;QET ERROR HRNDLER FOR BSF RERD

000002
000004

000004

o42164

003046

168:

BLE
BR
ggg

; #THIS

IS THE RBNORMAL DRIVER RETURN WHICH IS USED TO HANDLE

130600

042164
003141
o44342

000034

PC, DRVCAL
WCEFLG
155
E (RS)

;INIT THE ERROR FLRAG

JSR
1578
BEQ
ADD

éscT(RS),R3

CMPB

145
108
sERRHoL,n.naNL

'READ THE SOF TWARE BSF
!SEE_IF ANY ERRORS
'BR IF NOT
:CHECK NEXT SECT

:SEE IF LIMIT EXCEEDED YET

‘BR IF NOT YET
'REPORT ERROR AND ABORT
ggsagne ERROR HANDLER ADRS

:¥POSSIBLE ERRORS IN READING BAD SECTORS.

QDSCHD BIT

4g:

$ s

8BSE'HVRC!DTE!OPI?DCK,P,ER(RS)

BNE
JMP
INCB
JmP

4$
ERRHDL
WCEFLG
RETNML
0000 06

;SEE IF ANY READ ERRORS

; BR I# A READ EQROR QCCURRED
:GO_HANDLE OTHER ERROR
{SET _ERROR FLAG
:TAKE NORMAL DRIVER RETURN

00000000

I 300000 03330000

2300000 0 M0

iTYPBSF - TYPE FRACTORY AND SOFTNRRE BRD SECTOR FILES (BSF'’S)
;#WITH THE CYLINDER, TRRCK AND SECTOR NO. OF ERCH BRD SECTOR

:glggEQSSEPQRRTELY
037164

037214

104407
00S004
012700
104401
104401
104401
104401
00s001

A YRBLE OF OCTAL VALUES, FOR EACH OF THE

o 3636 3 36 3 3 36 36 3 36 3 36 36 0 36 3 3 4 36 36 3 36 3 3 3 36 3 36 3 36 3 2 3¢ 30 30 3 2% 36 36 3 36 3¢ 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3% % % % % ¥ %

t{PBSF: SAVREG
00000
o—-—0
e
e p—e L
woeLrLen
—-nunnu
L
O W

8524

MACY11

sasrncr+10 RO

TYPE

" BDSECT

TYPE

38:

; SAVE RO-RS

CLR
MOV

TYPE

CLR

PINIT BSF FILE INDICATOR
:ADRS OF DATA IN FACTORY BSF

,FACTBS

;TYPE "FACTORY"

» DHBO0Y 1

:TYPE

' SCRLF

:TYPE “BAD SECTORS"

"CYLNDR

TRACK

:INIT LIMIT COUNTER

SECTOR"

CZREMDO RKB11-06 SS VERIF |
CZR6MD. P11
10-JAN-78 11:48
037216
037220
037222

MACYL11

1ST

4g:

005710
100007
005701
001032

BPL

TYPE

NOFALS

TYPE
BR

MOV
TYPOC
TYPE

1ST

000176

Ppa
=t B

Pt s Pt Pt P

0000 G0 Q00D CD Q0
oo

DoONoCN LW

003242
011436
000207

;:GET THE
; TYPE

; TYPE

$CRLF

{RO)+

SOFTBS

:INCR_THE COUNTER
'SEE IF LIMIT REACHED IN THIS FILE
iBR_IF NOT YET
EEEIIF EgTH FILES TYPED YET
:SET_INDICATOR FOR SOFT. FILE
:ADRS OF DATA IN SOF TWARE BSF
:TYPE "SOF TWARRE BRD SECTORS :*
:G0_TYPE SOFT. BSF
RESTORE RO-RS

RETURN

; INCR THE POINTER

189
RY
#BSSOFT+10,R0

:GET SECTOR NO.

tRO) ,R3
R3, -{SF)

BNE
INC
MOV

TRACK NO.

: TYPE_SEPARATORS

SPACE2

R1
R1, #126.
4g

TYPE
BR
RESREG

189:

:GET TRACK AND SECTOR

INC
CMP
BLT
TST

14%:

(TYPE IT
: TYPE _SEPRRATORS

SPACE2

R3
R3,-(SP)

TYPOC
TYPE

00131S

;GET A CYL NO.

(RO)+,-(SP)

SWAB
MOV

MOVB
MOV

'TYPE <CR>, (LF>

' §CRLF
14s

tRO) R3

TYPOC
TYPE

012473

SEQ 0440
SEQ Ol6l

!BR_IF _YES
iSEE_IF FILE IS EHPTY
T EMPTY
:BR

148

MOV

CLRB

162

;SEE _IF A SECTOR LISTED HERE

(RD)

TST

BNE

8%:

037334

FL13

12:16
PAGE
CMPBUF -~ SOFTWARE COMPARE DATA
10-JAN-78

3LAC10S2)

AR R RERER R R RRER

iFINMEM - COMPUTE NO. OF WORDS XFERRED ON PARTIAL XFER
;#(TERMINATED BY BSE ERROR) AND STORE IT IN WDSXFR.
037336
037340
037344
037350
037354
037356
037362
037364
037370
037372
037376
037400
037402
037406
C37410
037412
037416

000002
000005
0000CH4
000030

£ tNMEM: snvnec

104410

P.CYLN(RS) R0
P.TRCK(RS),R1

P.SECT(RS),R2

6S%:

000026

00ss72

R3
P.DCYL(RS),R0O
gs
P.DTS+1(R5),R1
83
P.DTS(RS),R2
123
R3
PC, INCRSC
6%

000027

037422

T T T

8%:
12%:

MO
RESREG

R3
R3, WDSXFR

T T

; SAVE RO-RS

T ST P P

2 S

:GET ORIG. CYL NO.
iGET TR CK NO.
{SECTOR _NO.
SINIT SECTOR COUNT TO O
COMPQRE ORIG. AND CURRENT CYLS
;B

COMPRRE SECTORS
R

IF ADRS ARE EQUQL

INCR SECTOR COUN
: INCR_PACK RDRS BY 1 SECTOR
GO COMPARE ADDRESSES
:COMPUTE NO. OF WORDS XFERRED
;STORE IT
RESTORE RO-RS

CZR6MDO RKe11-06 SS VERIF |
CZREMD.P il
10-JAN-78 11:48
8636
8637

037420

MACY1l

G1l3

30A(1052)

CMPBUF

000207

12:16
PAGE
10-JAN-78
- SOFTWARE COMPARE DATRA
RTS

163

SEJ J _gu4M4])
SE@ 0182

; RETURN

l!lilllllllllll!‘*!I!lllill*ill!lfilll*l!iill(lllllil**l!lll!iil

PACK ADTMR
*NCQ $Lfn e MENT
RETORNED N R ECTO
S PASSED AN

TRACK

037422
037426
037432
037434
037440

AND

SECTOR

lill!!lilllllli*iiil*lll!l*l!!l!’!lllf!ll!!ll!l*li*!l*f%lll§l§§

tficnsc novB

0000es
0o31es
000023

g3zau2
74944

;SET SECTOR LIMIT

iSEE_IF 22 SECTOR FORMAT
iBR_IF YES
iSET SECTOR LIMIT
; INCR, SECTOR
NO.
SEE ;F S;CTOR LIMIT EXCEEDED

INC

iSET SECTOR= O
:INCR, TRACK NO.

SEE éF SRQCK LIMIT EXCEEDED

000002
037462
037464

IN R1,

;BRI

00S001
005200
000207

63%:

{SET TRACK = O
éECR CYLINDER NO.

RTS

336363030 36330 36 30 06 00 00 30300 30 36 30 36 00 06 3 06 30 3600 06 00 00 30 00 00 00 36 06 0 030 000000 06 S0 0300 30 00 00 06 00 30000 00 00 2

iMIDXFR - MID-TRANSFER PARAMETER UPDATE SUBROUTINE
!¥THIS SUBROUTINE UPDATES PMA,PMA+2,MEM MGT REGS,UNIBUS MAP,P
lP BAHI(RS),

AND P.WC(RS)

BALO(RS),

IN Pnsphanrxou T0 RESUME
A TRANSFER

'¥TERMINATED BY A BAD SECTOR ERRO
037466
037470
037474
037500

26363 3 36 36 3 36 36 3 3 38 3 3 3 36 36 36 36 36 36 36 36 3 3 36 3 36 36 36 36 36 36 36 2 36 336 36 30 36 3 6 3 3 2 3 3 3 36 3 36 3¢ 3 3 3 3 3 3 3 3 3 3

S01
502

737

hiDxFR: SAVREG
ISR
MOV

037336
000030
000027
000026

MovB

OCYL(RS) RO,
oTs+1(Rsi !
P DTS(RS), Ré
MEM

PC, INCRSC'
RO.P.CYLN(RS)

037422

RlP TRCK (RE)

SECT(RS)

uoéxrn R3
$400, R

000400
oooo1e

R3,P.NC(RS)

R4
R3
RY
R3 PMR

005602

000010

037614

100002

055716

A+2

PnhBQLO(RS)
PMA$+2
R
q
77¢
o17BQHI(R
S)
s?1
168

; SARVE RO-RS

:COMPUTE NO. OF WORDS XFERRED
:GET CYL NO.
iGET TRACK NO.
iGET_SECTOR NO.
: INCREMENT PACK ADRS TO NEXT SECTOR
;

CYLINDER
TRACK

UPDQTE SECTOR
:GET NO. OF WORDS XFERRED

;SKIP BRD SECTOR
; UPDATE P.WC(RS)

!GET BYTES XFERRED
: UPDATE PMA, PMA+2

: UPDATE P.BALO(RS)

;UPDRTE P.BAHI(RS)
;SEE

IF MEM MGT

CZR6MOO RKE11.06 SS VERIF

CZREMD.P11

MACY11l

10-JAN-78 11:48

gggs

837E§5

004737

8694
8695

037624

000207

104410

026604

168:

037633

04407

0376

164

SE3 auN2

RTS

SEQ 0163
:UPDATE MEM

MGT AND UNIBUS MAP

:RESTORE RO-RS
: RETURN

XTSI YZ XTSRS

22222 S22 2SS

037634

012701

8707
8708
8709
8710
71

037652
037660
037664
037670
837978

012737
005037
005737
001414
8137 Y4

063554
005604
00SS44

005602

88 762

ougeoa

8713
8714

037706
8 771

00040S
04407

MOV

005560

MOV

8705 037640 016537 000012 005572
8706 037646 005437 005572
770

8716
037716
9719 8 77§5

13737

Oioo00
oS58
1 78§ 88888?

GTO:
6£%:

8o§gga

87
1 S 7734 184418
g722 037736 000207

8752

PARAMS

MOV
CLR
TST
BEQ
MOV

SRWBUF , PMA
PMA+2
PATRN
cr

:INIT PMR TO RNBUF
TINIT PMAR+2
10 O
‘SEE IF DEFRULT DATA TEST
,ER IF
Y
'SET nn nn

BR
SAVREG

GTO

OF SAVE AREA

P. uc<Rsi WDSXFR
WORD COUNT
WDSXFR
hnxs IT POSITIVE

nn#a Pnn+a

:SET Pnn+a=na+a
; SAVE RO-RS

MOV
n8v

]

APARWDYA.R1
#5, R2

ADRS
°r BARAHE
T
E S WORDS

ogc

s§

:SEE

RTS

MOV

SEEREG

8723

MOV
GTPRMS:

3 5 9g

opnnno+a RO

8SAVPRS , R1

MOV
NEG

7649 008604

8718 037726 012021
03;;32

3 )

(2222222222222222222222222
IIEEZ2 2SS
Y 33

002632

e;xg

PC, PREPAR

RESREG

&UPRMS: SAVREG

12700

PAGE

isvpnns - SAVE INITIRE PARAMETERS FOR TRANSFER
‘#GTPRMS - RESTORE SAVED TRANSFER PARAMETERS

8703

8704

H13

12:16

JER

XTI

8699
8700

8702

10-JAN-7?8

CMPBUF - SOFTWARE COMPARE DATA

=
8698

8701

30A(10S2)

(Rb)+ (R1)+

IF oons ¥ET

RES*ORE
RO-ES
'RETURN

8726

8728
8729

! *ENCOUNTERED, THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SUB*¥ROUTINE IS SUBSTITUTED FOR DRVCAL WHEN BAD SECTORS MUST BE HANDLED.

8727

8730

8731
8732
8733
8734
8735
8736
8737
8738

8739

AR R R R RERRR R R R AR R AR

RRAE A REAREEY

iTRnsrR - PERFORM A DATRA TRANSFER, AND HANDLE BAD SECTORS,

037740
037742
037744
037750
037784
037762
037764
037772

040000

8740
8741
8742
8743
8744
8745

(040002
040004
040010
040014
040016
(040020

8747

040026

874&

HMEAINENE IR

novs uono

040022

010446
005004
105037
004737
(032737
001403
112737
032737

001406

005204
004737
005765
001355
005704
001411
004737

004737

o 363636 3 36 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 % 3 3 3 3 ¥ 3% K 3 3 3% 3 3 3 3 I W I I 3 % X 3 W% I KW KX

00314l
040316
000100

005504

000001
000002

003141
005504

YANSFR: MOV
CLR
CLRB
48
JSR
BIT
BEQ
MOV8
65%:
BIT

6%
037710

037626

E K E KX R EWEEEEE R

R4, -(SP)
RY’
WCEFLG
PC, DRVCAL
sUCERR,RECODE
ss
8] WCEFLG
sBSERR, RECODE

:SAVE R4 ON STACK
:CLEAR BSE ERROR INDICATOR
SINIT WCE ERROR FLAG TO 0
:PERFORM THE S.S. FUNCTION
:SEE IF WCE ERROR OCCURRED
'BR IF NOT
:SET WCE ERROR FLAG
,s:s IF BSE ERROR OCCURRED

INC
JSR
TST
BNE
TST
BEQ

PC MIDXFR
P.WC(RS)
q
Rq
8%

:INCR BSE ERROR INDICATOR
:UPDATE PRRAMS TO RESUME XFER
‘SEE (F ENTIRE XFER IS COMPLETED
'BR IF NOT
:SEE IF ANY BSE ERRORS OCCURRED
‘BR IF NOT

JSR

PC. SYPRMS

"RESTORE WDSXFR,PMA,PMA+2

BEQ

037466
000012

JSR

PC, GTPRMS

:BR

IF NOT

:RESTORE ORIGINAL

PARAMS

XFER

OO0

I13

10-JAN-78 11:
040032
040036
Q40040
o40044
040046

005737
100002
004737
012604
(00207

PAGE 165
MARCY11 389(1052)
10-JAN-78
12:16
MPBUF - SOFTWARE COMPARE DRTRA
1ST

0SS716
026604

$KT11

8%:

"8BTTL

:SEE

IF MEM MGT PRESENT

'BR IF NOT
:PREPARE MEM MGT AND U.M.
RESTORE RY
*RETURN

8%
PC, PREPAR
(SP)+,RY
PC

8PL
JSR
MOV
RTS

SEQ Q443
SEQ Olie4

AR R

SEARCH BAD SECTOR TABLES ROUTINE

NR R R EE R AR R RRRAREAE R

; #THIS ROUTINE RETURNS
R LIST OF BAD_SECTORS FOUND IN

:%THE SPECIFIC TABLE (BAD SECTOR_SOF TWARE OR BRD SECTOR FACTQRY)
:¥FOR_THE SPECIFIC CYLINDER_AND TRACK DESIRED. RO AND Rl MUST
*CONTQIN THE CYLINDER AND TRACK, RESPECTIVELY.
lTHE LIST OF BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE
: #RETURNS TO THE CALLER. THE FIRST ENTRY ON THE STACK WILL BE THE
; *NUMBER OF BAD SECTORS FOUND FOR THIS CYLINDER AND TRACK.
R

4RHTBS: MOV

o400S0
040054

MOV

MOV
MOV
MOV
ADD

00lee4

CLR

18:

ADD
TST
BMI

001302
174377
001303

3s:
001302

177700

000204

001266
001270
001272

5§:

TR R

R R e

R3'§TMP3

STORE RETURN CONTENTS OF R4
(SPY+, STMPY
(R4) ,R2 ;GET nooksss OF BAD SECTOR TABLE TO SEARCH
(R4)4, STAPI
ETUP FOR LENGTH OF BAD SECTOR TABLE
#1000, $THP1
:CLEAR R3 FOR COUNT
R3
:GET R2 FOR POINTER TO CYLINDER ENTRY
$10,R2

BEQ
ADD
CMP
BGE
BR
TST
MOV
BIC
CMPB

*TEST IF ALL ONES
: YES-DONE
*TEST IF BAD SECTOR IN PRESENT CYL
:YES-GO CHECK TRACK
'ELSE BUMP POINTER
:TEST IF OUT OF TABLE
PYES-EXIT
1LOOP
' TRACK CHECK - PUT POINTER AT TRK/SEC BYTE
'GET TRK/SEC WORD
:CLEAR ALL BUT TRACK
CHECK IF BAD SECTOR IN THIS TRACK

TST
BR
INC
MOV
BIC
BR
MOV
MOV
MOV
MOV

(R2)+
13
R3
(R2)+,-(SP)
8177700, (SP)
13
R3 -(sp)
§THP2,
$TMP3, R3
srnpq -(SP)

ELSE BUMP POINTER TO NEXT CYL WGRD
GO TEST NEXT CYL
:BUMP BAD SECTOR COUNT
:PUT TRK/SEC WORD ON STACK
'CLEARR ALL BUT SECTOR NUMBER
'GO CHECK REST OF FILE
PEXIT - PUT NUMBER OF BAD
;SECTORS ON STACK-RESTORE
'REGISTERS
:PUT RETURN ON STRCK

BEQ

4s:

R2, STMP2

(R2}
$
RO, (R2)
84, R2
R2.$TMPL
5§
1%
(R2)+
(R2),$TMP10
8174377 $TMP10
§TMP10+1,R1

CMP

000004
001264

RTS

YES - GO PUT SECTOR NUMBER ON STACK

URN

; l!ii*lll!!l!lll!*l!llil*l l!i!lili*l!l!il’llil*l*ill***l!*!lifii

"48TTL

BAD SECTOR CHECK ROUTINE

; ¥THIS ROUTINE WILL SEARCH BOTH TABLES TO DETERMINE IF
A
:¥SPECIFIC SECTOR IS LISTED AS BAD. IF THE SECTOR IS LISTED IMN THE
:#TRBLES THE ROUTINE SETS THE *“BADSEC* FLAG AND RETURNS. IF THE SECTOR

CZREMDO RK611-06 SS VERIF 1
CZREMD.P1 1
10-JAN-78 11:48

MACY11

J13

38Q(1052)
10-JAN-78
12:16
RD SECTOR CHECK ROUTINE
; #IS

oo4232
0400S0

g40226

040226

003232

g40226

001000

00SS04

U 0= 0=

o s pt pt oo pe

104407

ooV

00 00 CDAD 0D (DD 0D
[sefealeelesfosleoToeleo]so]

g40212

NOT

i I

o40314

00SS04

THE
e

ébsncx sgvasc
2$:
13:

d ¥
3%:

9s:

6S:

00:000

LISTED
T

8%:
33

JSR
. WORD
MOV
BNE
CMP
BEQ
MOV
BR
BIC

RESREG
RTS

166

FLRG

RESET,

#BSFACT,

R4, SRHTBS

(SP,+,R3
6%
1S, ¥BSSOF T
33
#BSSOFT, 18
23
$BRDSEC,RECODE
PC

22 S

SEJ_J444
SEQ 0165
S

222

:SET TABLE

I 22222222

L L)

TO SERRCH

‘GO SEARCH IT
:TABLE RDDRESS GOES HERE
!GET NUMBER OF BAD SECTORS, IF ANY
‘IF ANY, GO TEST WHICH ONES
'ELSE TEST IF OTHER TRBLE RALREADY SEARRCHED
SIF YES-EXIT
:SET OTHER TABLE FOR SEARCH
:GO SEARCH IT
;CLERR BARD SECTOR BIT
RETURN

CMP
BEQ
DEC
BNE
BR
BIS
DEC
BEQ

(SP)+,R2
8%
R3
X3
73
#BADSEC,RECODE
R3
4g

THIS SECTOR IN TRBLE?
'YES-GO SET BIT & EXIT
:DECREMENT BRD SECTOR COUNT
:IF NOT ZERO-CHECK NEXT ENTRY
'ELSE GO SERRCH OTHER TRBLE
:SET BAD SECTOR BIT
:CLEAR STACK OF OTHER BAD SECTOR
NUMBER

9§

JEXIT

(SP)+

TST

000774

PRGE

;-illiiii*l*l&*!lllli*lll!!!l*l!llil!lill*lill*iii**l*il**ii**!!l

'8BTTL

iENTRY

CALL DRIVER ROUTINE

JSR

PC,DRVCAL

lRETURN RTS PC

WITH RS POINTING TO PARAMETER BLOCK

iTHIS ROUTINE IS USED TO INITIARTE A SUBSYSTEM OPERATION BY

:¥CALLING THE DRIVER. THE PARAMETER BLOCK MUST BE SET UP
:¥BY THE CALLER AND RS MUST POINT TO THE PARAMETER

*BLOCK WHEN THE ROUTINE IS CARLLED.

1THIS ROUTINE WAITS FOR THE OPERATION TO BE COMPLETED.
i#WHILE WAITING THE WATCHDOG TIMER IS CALLED_TO PR&VENT

:#SILENT DEATH IN CRSE THE SUBSYSTEM DOES NOT PROVIDE
R

; *INTERRUPT. THE TERMINARTION HANDLER ROUTINES WILL SET THE DONE
:#FLAG WHICH KEYS THE ROUTINE TO RETURN TO THE CALLER.
040316

040356

lli!i*!lli!llll!l!llllli!ill!llll*llilllllllilll*!ll!illll*l!!i

104407
004737
004737
105037
105037
0o4737
105737
001542
005077
113762

bAvCAL:
032472
036332
003123
003137
040606
003136

140566
005510

000010

SAVREG

ISR
JSR
CLRB
CLRB
JSR
I5T8
BEQ
CLR
Move

PC,STALL
PC! CTLOUT
DONE
DRNAF G
PC,STRCMD
ouincs
263
I$TKS
DRIVE,RKCS2(R2)

: SAVE RO- RS

!PERFORMA STALL IF REQUIRED
*CHECK FOR (#C) OR ($Z) KBO INPUT
:CLEAR DONE FLAG
:CLEAR DRIVE SIEZED BY OTHER PORT FLAG
:STORE PREV AND CURRENT COMMANDS
:SEE IF DUAL-RCCESS TEST
‘BR IF NOT
:DISABLE KBD INPUT
:SET DRIVE NO. IN RKCS2

CZREMDO RKB11-/06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

8860

040364

0l2712

040374

001775

8861

040370

8863

040376

8862

032712
032762

8864
8865
8366
8867
8868

040404
040406
040414
Q40416
040422

001060
032762
001044
012712
113700

86870
8871

040432
040434

005001
005201

8873

040440

005303

MACY1l 30A(1052)
10-JAN-78
CALL DRIVER ROUTINE

000001

000200

208 :

010000

000010

000001

000012

8869 040426 012763 000100

8872

040436

001027

8874
8875
8876
8877
8878
8879
8880
8881
8882
8883
8884
8885
8886
8887
8888

Q40442
040444
040452
040460
040466
040474
040500
040504
040510
(040512
040516
Q40524
040526
040534
040540

001373
062737
112737
112765
113737
011265
004737
004737
104107
000137
136062
001743
113762
012712
032712

8890

040546

012712

8889

040544

8891
8892
8893
8894
8835

040552
040556
040562
040566
040570

8897

(040600

8896

8898
gggg

040574

040602
040604

001775

004737
010537
004737
000000
004737

105737

001773

000200
000101
000176
005510
000016
050212
041704
043760

000017

22%:

00SS5i0
00000S
000200

000010

30%:

100000

026040
040566
050570
04S140

003123

104410
000207

28%:

268:

4g:
6S:

SEQ Q4M5
SEQ 0166

#BITO, (R2)

8EQ

208

BNE
8I7
BNE
MOV
MOVB

28%
$BITO,RKDS(R2)
3G6%
3100000 (R2)
ORIVE,RO

:BR _IF YES
;SEE IF DRIVE IS AVAILABLE
'BR IF YES
: ISSUE CONTROLLER CLEAR
"GET DRIVE NO.

CLR
INC

Rl
R1

SINIT INNER COUNTER
:INCR INNER COUNTER

DEC

BIT

MOV
BNE

BNE
BIS
MOVB
MOVB
MOVB
MOV
JSR
JSR
ERROR
JMP
BIT8
BEQ
MOVB
MOV
BIT

BEQ

MOV

$BIT7. (R2)

$BIT12,RKCS2(R2)

#100,ha

228

248

#100000, (R2)

PC, PREPKB
RS’ 4§
PC.C.INIT

BEQ

RESREG
RTS

*WAIT FOR C. READY
.SEE IF NED ERROR SET

*SET OUTER COUNTER

:DECR_OUTER COUNTER

323
'BR_IF NO TIME-OUT YET
#ABORT,RECODE
;SET ABORT FLAG
$SELDRY, PRVCMD+1' ;SET PREV CMND = SELECT DRIVE
#CONCLR Pcnno(nsi -GET CURRENT CMND = CONTR CLEAP
DRIVE ,PRVCMD
SEY DRIVE NO. FOR PREV. CMND
(R2),P.CSI(RS) cer CURRENT CONTENTS OF RKCS!
PC,1.CST1
:GO_READ CONTROLLER REGS
PC’ REPSUP
'SET UP REGS FOR_PRINTOUT
107
,rvps “DRIVE SIEZED ev OTHER PORT"
ALLTRM
'REPORT DRIVE SIEZED AND
HALT
1.DRV(RO), RKQSOF*I(RE) WAIT FOR DRIVE ATTENTION
33§
:BR F N0 ATT'N YET
DRIVE,RKCS2(R2) ;SET onxve NO. IN RKCS2
85, (R2)
'ISSUE DRIVE CLEAR
88177, (R2)
‘WRIT FOR CONTROLLER READY

JSR
MOV
JSR
. WORD
JSR

T578

:SELECT THE DRIVE

PC,W.WTCH

DORNE
PC

; ISSUE CONTROLLER CLEAR

{ENRBLE KBD INPUT
'GET PARAM BLOCK ADDRESS
!CALL DRIVER
'P.B. RDDRESS coss HERE
CALL WATCH DOG

oone SET?
NO-L00P

RESTORE RO-RS
. YES-RETURN

; o 3636 36 36 36 36 36 3 36 36 36 3 36 36 3 3 3 3 3 36 36 3 3 36 3 3 3 36 36 3 3¢ 3 3 3 3 36 3 3 3 3¢ 36 3 3 W 3 3% 3 36 3 3 3 3 3 36 3 3 3 3 3 % K X% R

8904

'4STRCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS

83906

040606

040610
040614

012701
012700

8910

040620

012021

83912
8913
8914
8915

Q40624
040626
040630
040632

012021
012021
012021
012021

8911

24$:

128:

8903

8907
8908
8909

005504
005233
000001
005232

003102

o
8390S

32%:
333:

PAGE 167

MOV
BIT

100000
00SS10

K13

12:16

040622

104407

012021

o 3636 36 36 3 36 36 36 36 36 36 3 36 3 3 3 3 3 3 3 3 36 3 3 3 36 3 3 36 36 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 ¥ % % %

005232
005246

&tRCMD: SAVREG

#PRVCMD, R
SCOMSTR, RO
: STORE PREVIOUS COMMAND’
MOV

(RO)+, (R1)+

MOV
MOV
MOV
MOV

(RG)+. (R1)+
(RO)+. (R1)+
(RO)+. (R1)+
(RO)+.(R1)+

MOV

(RO)+. (R1)+

: SAVE RO-RS

‘ADDR OF PREV_COMMAND STORAGE
'ADDR OF CURRENT COMMAND STORAGE

MDO RK611-06 SS VERIF 1
C. P11
10-JAN-78 11:48

MACY11l 30A(10S2)

_10-JAN-78

CALL DRIVER ROUTINE

1ST8

003144

040634
g40640
g4oe4e
040650
Q40656
040664

005270

170200

00sSee4
00S2e2
005270
005266

48308

12:16

PAGE 168

UBMPRS

SEQ QY46
SEG 0167

; SEE _IF UNIBUS MAP PRESENT

BEQ
MoV
MOV
MOV
MOV

4$
:BR IF NOT
CRMPHQO, PRMPHO
:STORE PREV U.B. MAP REG O
CRMPLO, PRMPLO
asMAPHOD, CRMPHO ; STORE CURRENT U.B. MAP REG O
S#MAPLOO, CRMPLO

MOV

8COMSTR,R1

MOV

(R5)+! (R1)+

STORE CURRENT COMMAND

00S246

040672

L13

MOV

MOV
MOV
MOV
MOV

Q40702

RESREG
RTS

040714

(RG)+, (R1)+

(RS)+. (R1)+
(R5)+. (R1)+
(R§)+,(Rl)+
(RB)+) (R1)+

SBTTL

NN NN NI

:RS POINTS TO DRIVER PARAM BLK

: RESTORE RO-RS
SRETURN

DRIVE ERROR FREE RETURN ROUTINE

; ¥THIS ROUTINE

RR R R

RERERERRREERR LR

? CALLED BY THE DRIVER_WHEN NO ERROR

:¥HAS BEEN DETECTED IN THE OPERATION. THE ROUTINE SETS THE

:888;15%96 THRT IS TESTED IN THE DRIVER CALLING
040716
o40724
040732
040734
040740
p4074e
040746
040750

040754
040762
040764
040770
040774

152737
032737
?01403

000377
100000

003123
005504

001174
003126

000207

EkRFRE BISB

003126

2%:

003126

001174

003126
005S04

I 060

< 360600

0006 00 06

3030 30 06 0 3 300000 00 0 0

#4377, DONE

I 300

33330

;SET_THE DONE FLAG

BIT
BEQ
ghRB

$ANYDER,RECODE
4]
§§RON1

; TEST IF ANY DATA ERROR
:IF _NO - DO ERROR_RECOVERY PRINT TEST
E%gflfl ERROR COUNT

TST18B

ERRCNT

CHECK IF_ANY ERRORS HRVE OCCURRED

CLR

$SREGS

BEQ

Move

ERROR
CLRB
CLR
RTS

NO - SKIP TO EXIT

ERRCNT, SREGS

CET RETRY COUNT

PRINT RETRY SUCCESSFUL MESSAGE
{CLEAR ERROR COUN
18:
:CLEAR RECOVERY FLQGS
! RE TURN
llillllllll!illl!ll!*ll{lllil!illlliillllifilii!l!l*!*l*l**i!!il
"48TTL TYPE ERROR ROUTINE
: %ENTRY -

iRETURN -

101
ERRCNT
RECODE
PC
JSR

RTS

PC, TYPERR

PC’

iTHIS ROUTINE USES THE “ITEM CONTROL BYTETM (SITEMB) TO DETERMINE WHICH

'#ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TRBLE" (SERRTB)
:%ENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING
:%THE ERROR
040776
04.000
041004

104407
105237
032737

g4l01e
041014
041022

ool1412
123727
002406

*lllllillli*liiii*llll*!!l!l*!llllllll!l!l}lllii!li!l!lll!*liii

003130
000040
003130

$4PERR: SAVREG
005770

0o00eH

: INCR ERROR COUNT FOR THIS DRIVE

INCB

DRVERS

#BITS,CS

SEE IF DRIVE SHOULD BE DROPPED

BEG

'BR IF NOT

:BR IFNOT

BIT

CMPB

BLT

DRVERS. #20.

IF ERROR LIMIT EXCEEDED

:SEE IF 20(DEC) ERRORS EXCEEDED

CZRBMDO RKb11-06 SS VERIF

CZR6MD.P11

10-JAN-78 11:'i8

8972
8973
8974
8975
8976

041024
041030
041034
Q41040
041046

105037
104401
000137
032777
001402

8978
8979

Q41084
041056

005000
005005

8977

8980
83981

8382

8983

egsq

(041050

Q41060
041062

041066

8418 g
41

;

003130
011310
017026
020000

000137

041454

005105
113700

001114

005300

MACY11l

140072

012037

041122

8389
89390
8991

Q41110
041114
041120

104401
104401
104401

012457
056354

8392
8993
8994
8995

8996

8997

041108

041122
Q41124
041130

000000
012037
0014967

041300

041136

104401

0S6342

041132

Q41142

4938
8999
9000

Q41146
(041150
041151

9002

041156

9001

003
9004
300S

3006
9007
9008

9009
8010

001406

041152

041164
041166
041172

041176

041202
Q41206

0412i2
041216

104401

001315

013746

001102

104403
002
000

104401

032777

061023

104401
012701

104401

012702
012246

041220
oqxsaa

9014
9015
8016
3017
3018

041230
Q41232
041236
Q4lae42
841222

001372
104401
104401
104401
104401

9020

041256

012246

Q41262

104401

9019

041226

0412

9021

841250

9023

041266

3022

9024
9025
3026
3027

041270
(041272
041276
041300

010000

001133
104401
104401

9011
9015

3013

012457

104402
Q4401

005301

104401

104402

011246

104402
104431
104401
000000

18:

169

SEQ QYNT

SEQ 0168

; CLEAR DRIVE ERROR COUNT
: TYPE "“DROPPING DRIVETM
;PROCEED
TO TEST NEXT DRIVE
"INHIBIY
ERROR TYPEOUTS?
:BR IF NO

CLR
CLR

RO
RS

;CLR RO FOR ERROR NUMBER
SINIT INDENT INDICATOR

IMP

20%

COM
MOVB

RS
$ITEMB, RO

ASL

ggL

MOV

(RO)+,2%

TYPE
TYPE
TYPE

_WORD
MOV
BEQ
TYPE

TYPE

MOV

;ENTER ERROR NUMBER

:FORM INDEX FOR ERROR TABLE

$SERRTB, RO

; FORM RADDRESS OF ERROR ENTRY

:BRANCH IF THERE ISN’T ONE

CR2LF
. AS2SP2

O
(RO)+,48
c$
SCRLF

TSTMSG

$TSTNM, -(SP)

TYPQS
.BYTE
.BYTE

2
O

BIT

bBITI2,3SWR

TYPE

137754

PAGE

DRVERS
, DROPDR
NEWDRY
8SW13, ISWR
63

BEQ

2%:
33:

M13

12:16

CLRB
TYPE
IMP
BIT
BEQ

DEC

041102

8388

9$:

885388

8987

10-JAN-78

TYPE ERROR ROUTINE

63:

8985 Sqi 76 883988 001400
41074

30A(1052)

CR2LF

:GET EM POINTER

sTYPE "%%
TM
i TYPE ERROR MESSAGE

(EM)
'EM POINTER GOES HERE
'GET DH_POINTER
:BR IF THERE ISN’'T ONE
s TYPE *

TEST *

"GET TEST NO. ON STACK

STYPE IT
:2 DIGITS
!SUPPRESS LEARDING ZEROS

:REPORT DESCRIPTION ONLY ?

001315

BNE
TYPE
TYPE

203
,DH105
" $CRLF

001315
000006

TYPE
MOV

SCRLF
6,R1

:SIX COMMAND VALUES

SPACER

STYPE IT
I TYPE SEPARATORS

061166

001236

TYPE

308:

012473

MOV
MOV

TYPOC
TYPE

DEC

BNE
TYPE
TYPE
TYPE
TYPE

001315
012473
061245
001315

012473

TYPE

4§ -

30%
SCRLF
) SPACE2
DH102
" SCRLF

SPACER2

tR2)+,-(SP)

TYPE

SPACE2

MOV

012457

#SREG26 , R2
(R2)+,-1SP)

MOV

TYPQC

012473

,DH101+10

TYPOC
TYPE
TYPE
.WORD

tR2), -(sP)
,CRELF

‘BR_IF YES
'TYPE "PREVIOUS COMMAND

; TYPE PREV COMMAND HEARDER

:STARTING ADDR OF PREV CMND VALUES
*PUT A WORD ON STACK

‘SEE IF 7 VALUES TYPED YET

:BR

IF NOT

; INDENT
:TYPE HDR FOR BR DATA

; INDENT
s TYPE PREV.

HI BA BITS

:TYPE PREV.

LO BR BITS

: TYPE DATA HEADER
:DH POINTER GOES HERE

CZREMDO RK&11-06 SS VERIF |
CZRBMOD. Pl1
10-JAN-78 11:48

MARCY11

3?0(1052)
YPE

ERROR

—0O—-0000~——-000
O—-000000M

137622

58§:

10%:

0124723

00N
oot

001315

LfLLrLrr
s
£ £ £ WWLWNRNINUNY
MoL oL
LoD

O41434

(RO)+,R3

(RQ)+.R2

1578
157

(RO)+
R3

TST
BNE
TYPE

RS
118
SPRCE2

J(R1)+,-(SP)

DEC
s}

R3
12%

113

BEQ

TYPE

SPACE2

14%

$CRLF

15%:

MOV
1578

(RD)+, 163
(RO)

34§

CLR

TYPE

34%:

012473

168:

20s:

$CRLF

BR
COM
BNE
TYPE
TYPE
LWORD

TSTB

tRO)

TYPE

BNF
RDD

0oooa0e2

20%

ENE

ngnsc

; INIT

INDENT

;STORE NUMBER OF DH’S
;GET 8 STORE NUMBER OF DRTA WORDS

BUHP PRAST FORMRT WORD
-

SKIP DATR PRIN

:SEE IF SHOULD INDENT
BR IF NOT
INDE
PUT FIRST DRTA WORD ON STACK

TYPE IT
HORE DQTQ WORDS
NO-B NCH
TYPE SEPRRATORS

369
RS
36%
, SPACE2

SEE IF <CR>, <LF> NEEDED
iBR_IF NOT
STYPE IT
iMORE DH’S?
: NO-BRANCH
{GET NEXT DH PQINTER
SEE_IF ANY DATA FOR HDR
iBR_IF YES
;SKIP EXTRA
LINE
iRE-INIT INDENT INDICATOR
; COMPLEMENT INDENT INDICATOR

?nDé NO INDENT REQUIRED
I TYPE D
:DH POINTER GOES HERE

$CRLF

;TYPE

R DT?

: YES-BRANCH

10%
%2, RO

: INCREMENT DF _POINTER
iSEE IF END OF DF BLOCK

14¢
c

3363696 6 36 3606 06 06 36 36 36 36 96 06 06 36 06 36 30030 2 300 00 26 2622 M

QBTTL CONTROLLER ERROR REPORTER ROUTINE

;s #ENTRY

S R PC,

RTS PC’

*RETURN

INDICATOR

LOOP

DEC
BLE

SEQ Q448
SEQ 0189

; REPORT DESCRIPTION ONLY 7
;BR_IF _YES
;SET DT POINTER
BRANCH IF THERE RARE NONE
; GEY DF POINTER

MOV

TST

170

TEST IF ANY DATA FOR THIS HERDER

14$

14%:

001315

001318

$CRLF

MOVB

MOV

PAGE

881712, 2SWR
208
(RD)+,R1
208
(RO,+,R0O

TYPE

12%:

N13

12:16

BIT
BNE
MOV
BEQ
MOV

TYPOC

012473

000207

CLR

BEQ

4402

J:éx:wuwww

5 1t P Pt Bt Pt Bt e Pt Pt Pt Pt B Pt Pt Dot st Pt Pt P B P Pt

it Pt

00000 QO0O0000C0O0 0000000000000
fLrrer L

o41344

ROUTINE

TYPE

001315
010000

10-JAN-78

E AR AR RN

CONERR

!THIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND
; ¥REPORTS THE APPROPRIATE MESSAGE. THE RKG61l1l REGISEEEE ARE
;¥RETRIEVED FROM THE RKbI1 AND PLACED IN THE PARA

; ¥BLOCK

TH%SEIS DONE BECRUSE PARM 0 MAY NOT BE VALID

*QT THIS T
041460

104407

363636 36 36 96 36 96 36 36 36 36 36 36 36 6 36 36 36 36 36 36 36 36 36 06 36 36 36 36 36 36 36 36 36 6 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 % 36 % %

EBNERR: SAVREG

; SARVE RO-PS

CZR&MDO RKG11.06 SS VERIF 1

CZREMD. P11
3084

3085
3086
9087
9088
039
9090

3031

3032
9093

3094

3095

9096
9097
3038
9099
9100
9101

9102

Q41462

105237
004737
032737
001402
10406M

041514

032737

Q41512

041522
041524

041526

041530

041536
Q41540
041544
041546
041552
041554

041556

041564
041566

9106
3107

041572
041600

9108

152737

(041470
041474
041500
041506
041510

9103
9104

9105

10-JAN-78 11:48

041570

041602

000470

14
104065

032737

001407
105737
001402
105237
104066
(000447

032737

001402
104067

000441

032737
001402

041604
041606

(000433
032737

9113

041620

000425

041630

001401

9114

9115

9116

041614
041616
041622

041632

003126
044352
000001

001402
104071

032737

104072

10-JAN-78

Bl4

12:16

PAGE 171

CONTROLLER ERROR REPORTER ROUTINE

003123

B1S8

INCB
ISR
BIT
BEQ
ERROR

003052

000002

003052

1§:

000004

003052

2%:

817

BEQ
ERROR

: INCREMENT ERROR COUNT
;LORD RK REGS INTO SREGS
JERROR 0°?
: NO-BRANCH
ICLEAR CONT DID NOT CLEAR ERROR

#BITL, E.CONT

:ERROR 1?

2s
65

: NO-BRANCH
:NO ATTENTION IN ATTENTION SUM REG

#81T2,E.CONT

; ERROR 27

15%:

BEQ
TSTB
BEQ
INCB
ERROR

3%
DRNAFG
158
REISSU
66

: NO-BPANCH
:SEE_IF ORIVE WAS SIEZED BY OTHER PORT
‘BR_IF NOT
:SET FLAG TO RE-ISSUE COMMAND
'UNSOLICITED ATTENTION

BIT

$BIT3,E.CONT

; ERROR 37

000010

003052

3$:

000020

003052

4S:

BIT

BEQ
ERROR

4§
&7

BIT
BEQ

$BITY,E.CONT
5§

; ERROR 47
NO-BRANCH

BR
BIT

7S
#BITS, E.CONT

ERROR 52

BEQ

ERROR

000040

003052

S§:

000400

003052

6%:

BEQ
ERROR
BIT

ERROR

6%
71

:CONTROLLER ERROR DURING DRIVER SERVICE

ERROR

:DRIVE DETECTED PARITY ERROR

ERROR

sMULTIPLE DRIVE SELECT

001000

003032

B8%:

BIT
BEQ

$BIT9,E.CONT
9g

9120
9121

041646
041654

032737
001401

002000

003052

9%:

BIT
BEQ

#BIT10,E.CONT
108

041660
041666

032737
001401

100000

003052

10S$:

041672
041674
041700

104075
005037
000137

3122

041656

9125

041670

9123
9124

9126
9127
9128
S129

104074

1040S2

118:
7s:

003052
044152

*48TTL

9131

BIT
BEQ

#BIT1S,E.CONT
118

REPORT SUPPORT ROUTINE

:%THIS ROUTINE LOADS ALL THE PARAMETER BLOCK DATA TO BE REPORTED

9132
9133
9134

041704

9136

041706

9137
9138

ERROR

ERROR
7S
UNDEF INED_ERROR
CLR
E.CONT
:CLEAR CONTROLLER ERROR WORD
INP
BGNRTY
:GO DO RETRY
; iill!lillllil!l!lllllll*lllll!ifll!lllllIllllllllll{'!ll!llll*lii*

9130

9135

NO-BRANCH
'SUBSYS CLEAR DIDN'T CLEAR DRIVE ATTENTION
;DATA LATE WHEN UNLOADING HEADER

032737
001401

104073

RTTENTION DID NOT RESET WITH CLEAR

041634
041642

041644

:NO-BRANCH
'UNEXPECTED DATR TYPE ERROR

881T8,E.CONT

9117
3118

9119

;SET DONE FLAG

003137
003140

%377, DONE

ERRCNT
PC, TOPRCC
sstro .CONT
13
b4

B8R

104070

9109
9110

3111
9112

000377

MACY11 30R(1052)

(041704

0417:2
041720

104407

005037

116537
012700

*%INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING.
ALL THESE MAY
'¥NOT BE INCLUDED IN THE REPORT, BUT THEY ARE LOADED ANYWAY.
REPSUP:
005506

000061
001162

Q139 041724 016520 000002

SAVREG

005506

CLR

ERRCOM

MOV

CYLN(RS) (RO)+

MOVB
MOV

.CLEAR ERROR COMMAND STORE

P. cnno<n5) ERRcofi STORE COMMAND START VALUES
#$REGO, RO
FR REPORTING

SEG 0449

SEQ 0170

2 R6MDO RK611~/ 06 SS VERIF 1
c ZR6MD.P 11
10-JAN-78 11:48

417
4174
174
041750

Q41754

116520
105020

et
012700

000004

10 -JAN-78

P.TRCK(RS), (RO)+
(RO)+
P.SECT(PS), (RO)+

MOV

P.WC(RS),

CLR

000012
001174

MOV
MOVB
MOV

001260

000024

MOV

Q42146
Q42152
g4elsy
042160
o42162

8 O
n

n) U‘U‘GU‘&U‘U‘U"U‘U‘

MOV

=
1 b bt bt pa b= =

:HI BA BITS

;.cs;cgsm,tso;+ ;gégggL%Erns vgkusa Fnog THE
P.0TS(RS), tRO)+ ;FOR REPORTING. ALL THIS

P.BAR(RS),

(RO)+

;DATA MAY NOT BE

000001

388888
000004

P.ER(RS) . (RO)+

MOV
MOV

.SREGEB,RI
#PRVCMD ' RO

CLR
MGV
CLRB
MOV
MOV
CLR
MOVB
CLRB

(R6)+
(RO)+, (R1)+
(R1)+
(RO)+, (R1)+
1(RO) . (R1)+
(R1)+
(RO), (R1)+
(R1)+

:ADRS
'ADRS

(RO)+, (R1)+

n8v
MOVB

8(R8),(R1)+
(RO)'R3

MOV

R3,

MOV

OF PRINT BUF AREA
OF PREV CMND STORAGE

'DRIVE NO.
: COMMAND

:CYL ADDRESS
' FRACK
:SECTOR

;uflag COUNT
‘HI
BR BITS

8177774 ,R3
(R1)+

4(RO), (R1)

:LO BA BITS

RESREG
RTS
PC
HH 1 2222222222222
X2222222222X2X22X22 T2 Y2 Y222

'8BTTL

;% ENTRY
: ¥RE TURN
;¥

REPORT ERROR ROUTINE

; #THIS ROUTINE

JSR
RTS

PC,
PC

DRIVER WHEN AN ERROR

IS DETECTED

THE ROUTINE DETERMINES WHICH COMMAND WAS

; ¥BEING EXECUTED AND GENERATES THE PROPER ERROR MESSRGE.
ESEEEERNEERARER

ISR X

ERRHOL

IS CALLED BY THE

;#IN THE OPERATION.
D

P.ROO(RS), (RO)+

. (RO) +
P.BOC(RS)
P.ROI(RS)
. (RO)+
S)
. (RQ)+
P.BO1(R
P.AIOC(RS)
) (RO)+
P.BIO(RS), (RO)+
P.Rll(Ré),(R8)¢
P.BI1(RS)' (RO)+

BIC

177774

VALID

'FOR ALL REPORTS (T0 BE
:DETERMINED _ATER) BUT IT

P.ngor(nsi (RO)+’ ;STORED ANY WAY.
P.D3(RS), (RO)+

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

ngogkgv REG?S*ERS

(RQ)+

.CSe(

:STORE PREVIOUS COMMAND FOR PRINTOUT

= Q0

B48138

MOV
MOV

MOV

848150

SREGA6

P.WCR(RS), (RO)+

MOV

o42022
Q42026
Q42032

042132
042134

${77774.R3

R3,

P.§§YL(3§5 (RO)+ -?HE

MOV

g4eleg
032{25

(RO)+

#SREGS, RO
P.gGH;fRS),R3

MOV

000022

O4E 108
Qug1
14
B4g11g

SEG_g4sQ
SEQ 0171

P.BALO(RS) ;$SREG3? :LO BA BITS

o42016

Q42072
042076

(RQ)4

172

MOV

ngv

04208§

PAGE

MOVB
CLRB
MOV

BIC

B4e8?

Cl4

12:16
REPORT SUPPORT ROUTINE

30R(10S2)

C0000s

841788
84157

OO0000C0000D00
e e et whwt et

o*ma*mmmuunmm

041730
041734

OO0 0r=0)r 4= pape O 00
|a e STl 4 atad @ Lol ® ST @ T @ TySy
O L OGN
— NOIY NTVUIN MY
L OWNOOO DO
000

—

¥ o£

Pt st e —

s s e Pt Pt Pt Bt Pt Bt P P B

D D

D WD O DD

DD DO WD D DD

e Pt Pt e Pt e Bt Bt Bt ot Bt Bt (et Bt ot Pt Bt e Pt s Pt Bt Pt Pt Bt et et Pt e Pt s s

D
0 W DO D 000D (D GO DD Q0 GO NNNNNINNNNNOC OO
N LW—O0O0ONTN LWh—-0O DO
LWU— OO0 ONCNSWRI—-0OWONMNE

$s be et et Pt Pt P

D 0D DD D DD DD DO

[Vg i ol g @ o
- OOoONNONN
L

DD OO0 DD D SROWD OO RO 0 O DDD [V

9140

MRCY11l

ARERRRF RN

REAR R R

AR AR IR SRR AR RARRRRREA AR

CZREMDO RKbE11-06 SS VERIF 1
CZREMC.PI11
10-JAN-78 11:48
9196

9197
9198

9183

Q42164
042166

guali7y

1827 ?

10523?

B4£209 032737
BuE815 804788
B43580 818745
042234

004737

000377

00400

002714
44324
44342

041704

MACY11l

G03123

30A(1052)
10-JRAN-78
REPORT ERROR ROUTINE

ERRHDL:

005504

ERCENT:

883845

ses:

D14

12:16

PAGE

SAVREG
BISHB
INCB
CLR
BIT
BEQ
MOV

REC
SLEVEER,RECODE
SSS
$PARM1 RS

JSR

PC, REPSUP

MOV

173

SEQ Qus!
SEQ 0172

;SET DONE FLRG

INCR MENT ERROR COUNT

:CLEAR RECOVERY CODE WORD
:TEST IF o2ND LEVEL ERROR
iNO_- SKIP PARAM BLOCK_CHANGE
JELSE E RS TO PARAMETER BLOCK 1

SR DA opERm
e vl By o
byl BT

#RETANL
, A n NL
sRETNML| A.N

HHICH THEY ARE TESTED

| §On? I PRASRSAENIF
IGRRT In

!CATASTROPHIC NATURE ARE FIRST

,TESTE

:IF AN ERROR IS FOUND SET

THRT ERROR IS REPORTED AAD

IFQDEP?§8§SE éfinofifl”éfigTEEf

THE RKBll REGISTER PRINTOUTS’

S
LL

48548 84836 BeBHad

gu225s2
Q42254
Q42256

001406

000200
Q43660
004000

000020

000400

000020

38%:

833588

000020

010000

000020

043660

032765

23:

39%:

000014

NON-EXISTANT MEMORY

$ABORT, RECODE
378
ggED,P.CSE(RS)

; TEST

NON-EXISTANT

DRIVE

; TEST

IF NED

BOTH

SUFE,P.CS2(RS)
389
35
37s
3
37§
SUFE,P.CS2(RS)

4§

BIT

; REPORT ERROR

; TEST

.N;D,P.CSE(RS)
39
35
378

39%:

§?E£r“flpl‘? e

37%
8NEM,P.CS2(RS)

2s
e

00S504

043660

042404

¥ABORT , RECODE

005504

000200
043660
010000

043660
gooioo

R
EE gséSE(RS)

000020

D TO LOCATE THE

UFE

SET

;NED & UFE BOTH SET ERROR

:NED ONLY
: TEST

UNIT FIELD ERROR

TEST }F UFE

NED BOTH

SET

;REPORT NED & UFE BOTH SET
:REPORT UFE ONLY

379
#CMODTO,P.PRST(RS)

;

CZREMDO RK&II/O& SS VERIF 1
CZRB6MD.P 11
10-JAN-78 11:48

p4241le

001423

MACY1l

Q44352
002000

005504

00c400

00sso4

043660

043660
020000

000014

000016

004000
043660
000010

005504

004000
043660
000010

00SS04

B5%:

79:

000036

8%:

043660
004000

0coole

249%:
25%:

000020

PRGE

TOPROC

sLEV2ER, RECODE
418
S
37%

S6
378
57
ERQENT

174

SEQ Q452
SEQ 0173

;GO _PROCESS TIMEQUT

:2ND TIMEQUT IN TIMEOUT PROC?
iYES - SKIP TO ERROR Sb
TEST IF LEVEL 2 ERROR
YES - SKIP TO ERROR 57

ELSE MAKE FULL TIMEOUT REPORT
; TWO

TIMEOUTS ERROR REPORT

END LEVEL ERROR REPORT

BUILD AND MAKE 2ND REPORT

gggVSZD P. PRST(RS)R%EE IF DRIVE SIEZED BY OTHER PORT

107
37%
#SPAR,P.CS1(RS)
S
6
$RCLREQ, RECODE
378
8DRPAR,
RY
4

DRIVE

IS AVAILABLE

;ORIVE SIEZED BY OTHER PORT
;TEST

TO C

; TEST

DRIVE

; TEST

PARITY

DETECTED

ERROR

PARITY

043660
000020

043660
002000

Q4e70e
042704

cs:

BS:

000036

El4

12:16

gaaoros.ascoos

419:

000001

032704
001403
104016

PC,

409:

043660

Q42204
010000

30R(1052)
10-JAN-78
REP ORT ERROR ROUTINE

10%:

043660
000004

119:

043660
000040

12%:

043660
000020

13%:

SRCLREG, RECODE
378
$ACLO,P.DS(RS)
83

10
37%
#SPDLSS,P.DS(RS)
24$
37%
8CTO,P.CS1(RS)
258
27
$1LC,RY
108
12
37s
®PGE,P.CS2(RS)
118
37s
SILF,RY
128
14
37%
$DTYE,RY
138
15
37
RY
#FMTE,
148
16

LOW

; TEST SPEED LOSS

;:TEST FOR CONTROLLER
: TEST

ILLEGAL

; TEST

PROGRAMMING

TIMEOUT

FUNCTION CODE

ERROR

: TEST ILLEGAL DRIVE FUNCTION

; TEST

DRIVE

;: TEST

FORMAT

TYPE

ERROR

CZREMDO RKE11-06 SS VERIF 1
10-JAN-78 11:48
CZFEMO.PL1

000137

m;_.._.ppnp_yqu—._.'..

042706
Q42712

MACY11

043660
004000

158:

040000

000200
043760
00002

00Ss0o4

004000
043660
001000

005504

004000
043660
002000

005504

004000
043660
000040

00SS0H4

004000
043660
010000

0osso+

000200
043660
100000

005504

16$:

17%:

18%:

000036

043660
020000
000010
003121
043660
000400

043172
Q43176
043204
043206
g43212
043220

01e237

19%:

208 :

000020

21%:

223 :
005504

005504

50%:

005504

n03036
ooglo0
000024

000000
001202

268 :

F1Y

12:16

PAGE

IMP
BIT
BEQ
ERROR
JMP

37%
, RY
#WLE
15%
17
373

BEQ
ERROR
BIS
IMP
BIT
BEQ
ERROR
8IS

168
20
$ABORT
, RECODE
ALLTRM
#SKI,RY
178
21
SRCLREQ, RECODE

BIT
BEQ
ERROR
BIS
IMP
BIT
BEQ
ERROR
8IS
IMP

, R4
#COE
18%
22
#RCLREQ, RECODE
37§
RY
# IDRE,
198
23
$RCLREQ, RECODE
378

BEQ
ERROR
BIS
JMP
BIT
BEQ
ERROR
8IS

208
o4
SRCLREQ, RECODE
37%
8DTE,RY
21%
25
$ABORT, RECODE

BIT

JIMP

BIT

R4
SUNS,

378

#DROT,P.DS(RS)

78
80LT,P.CS2(RS)
22%

JMP
BIT
BEQ
ERROR
IMP
BIT
BEQ
BIS

37s
SOPI,R4
29%
$OPIERR, RECCDE

BEQ
IMP

50%
373

1578

27%:

043660
o4s012
044522
000400

10-JAN-78

REPORT ERROR ROUTINE

148

Q43660

9321

30A(1052)

BIT

17S

SEQ_OM483
SEQ 0174

;s TEST

WRITE LOCK ERROR

; TEST

DRIVE UNSRAFE

; TEST SEEK INCOMPLETE

; TEST

CYLINDER OVERFLOW

; TEST

ILLEGAL CYLINDER

:TEST DRIVE OFF TRRCK

; TEST

DRIVE TIMING ERROR

; TEST DRTAR LATE

s TEST

IF OPI

ERROR

DERCNT

; TEST

IF FIRST ERROR

$LEV2ER, RECODE

;NO - SKIP REPORT
; TEST IF A SECOND LEVEL
;HAS A LRERDY OCCURRED

BEQ
ERROR
IMP
JSR
JSR

26%
G4
37%
PC, BLDEXH
PC’ RDHDO

BNE
MOV

26%
RKBRS, R2

MOV

RKDB(R2),$REGIO ;FOR REPORTING

BIT

BIC

sLEV2ER, RECOCE

#1E. RKCS1(R2)

2 ERROR

;GET O UT _OF ERROR REPORT
;GO BU ILD EXPECTED_HERDER
:GET H EADER OF SECTOR O

;s TEST IF ERROR GETTING HDR
:IF YE S-GO MAKE ABREVIATED REPORT
: STORE HERDER O INTO REGISTERS
; RESET INTERRUPT ENRBLE

CZREMDO RKB11-06 SS VERIF 1
CZREMO.PII
10-JAN-78 11:48
3364
9365

9366
9367

9368
3369
9370
3371
3372
9373
9374
9375

9376
9377

043226
(043234

016237
016237

043242

032762

043252
043254
04326
04326
043266
043272
(043274
043302

104030
000137
604054
00137
032704
001457
052737
105737

(043250

043306

043310

001343

001402
000137

000024
000024

100000

043660

043314
043322

032737
001403

000400

9383
3384
39385
9386
9387
3388
9389
9390
939]
9382
9393

043336
043342
(043350
043352
043356
043364
Q43372
043400
043
(043414
(043416

004737
032737
00102S
013702
042762
016237
016237
016237
832752
001343
104031

044522
000400

9394
9395

Q43420
(43424

000137
104055

9398

043436

001430

3400

043446

9396
3397
9399

043426
043432

(043440

003036
000100

000024
000024
000024
100000

052737

0000C2

177740
0M0212

000030

9401 043452 116501 000027
340
4345
qa78§
77774
940
4346
165
00026
043466
Q43472

042702
004737

Q407
3408
9409
9410
3411

043504
043506
043510
043516
Q43520

001065
104104
042737
000460
032704

RKDB(R2),SREG1
]
RKDB(R2) . SREG12

BNE

27%

000000

BIT

28%:
29%:
00SSOM

00SS04

30%:

>13:
31%:
00SS04
000000

001202
001204
001206
0000600
32%:

23%:
005504

34l2
9413
9414

043824
043526
043534

9416

04354

9415
9417

3418
34,3

00SS04

100000

33%:

001435
0S2737
032704

000020
000100

00SS04

835737

000040

005504

(43540

001406

(4385

037

043554
0Q43SS6

000002

Q00403
012737

001206
00000L

001208

378

§E§OR
JSR

JSR
BIT
BNE
MOV
BIC
MOV
MOV
MOV
BIT
BNE
ERROR

30%

SEG Q454
SEQ 0175

:MAKE

OPI

REPORT

:GO MAKE
:TEST IF

2ND LEVEL REPORT
HVRC ERROR

:TEST

FIRST

: JUMP

RETUR

:YES- REPORT

ERROR

SLEV2ER,RECODE
318

;TEST IFA 2ND LEVEL ERROR HAS ALREADY
1OCCURRED. NO-SKIP EXIT

PC. ROHDO
nLévesR RECODE
328
ng
$IE RKCS1(R2)
RKDB(R2),$REG10
RKDB(R2), SREG1]
RKDB(R3) $REG12
#CERR,RKES1(R2)
Si%
31

GO GET HDR O
TEST IF ERROR IN GETTING HDR
:1F YES-GO MAKE ABREVIATED REPORT
'GET RKB1] ans ADDRESS
:CLEAR INTERRUPT ENRBLE
;STORE OFF HEARDER

gss
PC, BLDEXH

IMP
ERROR

37%
§S

BEQ

33%

IMP
BIT

176

8CERR,RF{S1(R2) ;TEST IF ERROR DURING STORAGE

JMP

BIT
BEQ

:GET OUT OF ERROR REPORT
] BUILD expscrso HERDER

;TEST IN ANY ERROR IN UNLOAD
:IY YES - GO MAKE SHORT REPORT
:MAKE FULL REPORT
s ABREVIATED HVRC

ER2ENT
#BSE, RY

ERROR RPORT

:GO REPORT 2ND LEVEL ERROR
TEST FOR BAD SECTOR ERROR
3R3

MOV

MOvB
BIC
MOV

8BSERR RECOOE

P.DCYLIRS)

ser E

BIC
JSR

BIT

.177?40 R2
DSREK

:CLEAR ALL ssz EXCEPT SECTOR
'G0 SEE IF THIS SECTOR LISTED

oahossc,nscooz :TEST RESULT

BNE
ERROR
BIC
BR
BIT
BEQ
BIS
BIT

:GET

R FLAG
o

ors+1(nsi R1 GET TR NO.
017?
% AR A L BITS EXCEPT TRACK
DTS(RS) R2
c SECTOR IN ERROR
37%
104
#BSERR,RECODE
373
#DCK, R4

36%
#OCKERR,RECODE
SECH, RY

:YES- EXIT,

NO ERROR OR REPORT

‘ELSE REPORY BAD BSE
:RESET BSE ERROR FLAG

160 EXIT
:TEST IF DATA CHECK

;SET_DATA_CHECK ERROR
TEST IF ECC IS HARD.

IN RECOVERY
IF

BEG

34$

ves SET UNCORRECTRBLE IN

CLR

$REGI2

:REG12 TO INDICATE UNCORRECTABLE,

BIS
34%:

PAGE

30
378
G4
ER2ENT
#HVRC, R4
23%
OHVRCER RECODE
DERCN

8IS

9406 043476 032737 001000 00S504

12:16

ERROR
JMP
ERROR
JMP
BIT
BEQ
BIS
TSTB

BEQ

043660

042204
010200

9404
g40s

MOV
MOV

43660
401

000137
032704

016500

001204
001206

042204
000400

9378
9379

333? 033324 xogos;
3382 8q§§SS 884%37

30A(1052)
10-JAN-78
REPORT ERROR ROUTINE

043660

000004
003121

Gl4Y

MACY11l

BR
MGV

SECCNC,RECODE

35%
#1,SREGL2

+RECOVERY FLAG AND
R O IN
:A

IN REG

12 FOR

CORRECTRBLE

CODE

CZR6MDO RKE11-06 SS VERIF 1
<ZRBMD. P11
10-JAN-78 11:48

MACY11

358:

003121

9420
9421

8d08eR
0006:

4285

éem 813883

4453
9428

000200
000100
043650
Q43652
043656

003121

104033

30R(1052)
10-JAN-78
REPORT ERROR ROUTINE

001202
001204
000020

043660
Q43666
043670
Q43672

032765

0000e0

000014

052737

00ce00

005504

043700
043706
Q43710
043712

032765
001404
104037
052737

000040

000014

000200

005504

043720
043726
Q43730
043732

032765
001404
104040
052737

004000

000014

000200

00ss0o4

043740
Q43746
Q43750
043752

032765
001404

00o010

000014

000200

005c04

37%:

43%:

44§

i35

OF ERROR
Bc 586 XRB) , sreG1Dcos?E&s P EEc 888R F¥2n0k

gég

5ugs P.CS2(RS)

§§§oa

SABORT,RECODE

oucenn RECODE
DERCNT

TSR
ERROR

PC,GTPKAD
33

BIT

TEST xr rxnsr ERROR

Réponr ocx ERROR

T(RS),$REG11

BiS
7578

37%

;PATT

;TEST WRITE CHECK ERROR
;CLEAR ABORT
& SET WRITE

:CHECK ERROR IN RECODE
,TEST IF FIRST ERROR
NO
- SKIP

:GO GET ADDRESS OF ERROR
:REPORT WCE

BEQ
ERROR
BIS

43%
36
#ABORT, RECODE

#DRVHRD,P.PRST(RS)

; TEST HARD ERROR

gés

gggvosc,P.PRsr(RS)

: TEST STATUS CHANGE NOT CLEARED

ERROR
BIS

37
$ABORT, RECODE

BIT
BEQ
1S

¥NODSC,P.PRST(RS)
468
40
#ABORT, RECODE

BIT
BEQ
ERROR
8IS

SUEXQTT,P.PRST(RS)
ALLTRM
42
$ABORT, RECODE

ERROR

46%:

SEQ _QussS
SEQ 0176

JSR

BNE

o4Y4666

177

DERCNT

BIC

00SS04
00SS04

PAGE

TSTB

BNE

MOV

368:

H1Y4

12:16

;IFST ATTENTION BUT NO FAULT OR DBSC

;TEST UNEXPECTED ATTENTION

:ALL ERRORS MUST EXIT THROUGH THIS POINT

3475

$PARMO, RS

s RESTORE PARAMETER BLOCK SELECTION

BIT

oqgonr RECODE

MOY

BNE
gas

RKBAS,R
sRBY,RKSS(Ra)

478
:g§0RT,RECODE

CICLED1 DOWN)
og?es aénov SET
?EST

SET

nncbazo RECODE

}r
Rscn

000001
003046

MOVB
MOV

$RECAL ,P.CMND
#RETANL
, A. RBNL

BLOCK ro DO IT.

003046

MOV

$ERRHDL ,A.ABMNL

;RESTORE ERROR RETURN

002630
Q4ale4
040716
000200

003046
003044
005504

883338

oooole

344853

000200

005504

004000

00S5CH4

000113
o44324
040316
C42led

44006

9472
9473

MOV

043760
043764
Q43772
44000

44034
44052

044044
044052
044060
D44064

012737

ALLTRM:

MOV
MOV
BNE

BIT
47§

JSR

8ERRHDL
,A.ABNL
SERRFRE
A .NORM

PC onvchL

:RESTORE INTERRUPT VECTORS FOR RETRY
ORIVER opennrxons IF ANY
HE

vas

? NOTSET AND

S RERDY (HAS NOT

'RECALIBRATE REQUIRED BIT IS SET
:ELSE ABORT WITH RBORT MESSAGE
IBRATE

Y SET UP

]IS REGUIRED

PARAM

<REMDO RK611-06 SS VERIF 1
\-LR &MD.P111
10-JAN-78 11:48
9476
Q477
3478
3479

g44072
Q44100
o44102
o44110
O4Mlle
o44116
Q44120
o44124
044130

032737

MRCYL1

000400

00ss04

000200

00sso4

o42204

105037
000137

10-JAN-78
EPORT ERROR ROUTINE

3gfl(10521

BIT

48%:

003130
003126
017026

Il4

12:16

PAGE

178

SEQ J4S6
CEQ Q177

BEQ

BIS

BGNRTY

SLEV2ER,RECODE

;IF AN ERROR OCCURRED IN THE

ERROR
Jmp

ERCENT

;GO REPORT DETAILS

CLRB

DRVERS

ERROR

CLRB
JMP

8RABORT, PECODE

:PRINT THE RECAL ERROR fiESSflGE AND
; REPORY RBORT RETRY FAILED

iDROP DRIVE8 GO TO NEW DRIVE

ERRCNT
NEWDRYV

: THE PROGRAM WILL HALT HERE

RECAL ATTEMP SET ABOR

IF THE ABORT FLAG HAS BEEN SET OR

; IF THE DRIVE RERDY BIT IS RESET.
o44134
044136
D4Y4140
DHY 144
44146

00000S
000000
105037
00000S
000137

HLTPRG:
003126

RESET

HALT
CLRB
RESET
JMP

012606

;DISABLE ALL DEVICES

ERRCNT
CMSTRT

{HALT THE CPU
:CLERR ERROR COUNT
{RESET ALL DEVICES

; THE FOLLOWING CODE WILL DETERMINE IF AND DATA TrPE ERROR

iHRS OCCURRED. IF YES, THE RETRY IS NOT DONE HEXE BUT RETURNS TO
; _THE INITIATING ROUTINEFOR RETRY. ANY OTHER ERROR IS TO BE
iRETRIED HERE. IF_RETRY IS UNSUCCESSFUL AFTER 4 ATTEMPTS, THE RBORT
:FLAG IS SET AND PROGRAM HALTS.

e
s Pn Pt s Pt
Pt Bt Bt

OO NN LW

D00 ODOD DD V1)
i un

p441582
044160
Q44162
Q44170
g44l172
g44172

032737
001404
0Se737
000453

000138

00SSso4

BGNRTY: Séé

ggssna.ancea.opxsnnsocxennsuesna,Rscoos :TEST IF ANY DATA ERROR

100000

005504

93
25

BIS
BR

#ANYDER, RECODE
2%

105737
001371
032737
001044
123737
001012

003143

1578
BNE
BIT

NORTRY
9§

001000

00SS04

0031e6

003127

001174
003126

001174

000200

00SsSso4

003036
000177
040316
005246

Q44306
Q44314
044320

002630
000000
040316

000001

BNE

#BADSEC,RECODE ; TEST IF BAD SECTOR FLAG SET
2
i
IF_YES-EXIT TQ CALLER

BNE

:NOT BEEN EXCEEDED

102
cneoat RECODE
HLPRG

*REPORT RETRY UNSUCCESSFUL
:SET ABORT 8 QUIT

CMPB

18:

177776

2%:

:SEE_IF "NO-RETRY" FLAG SET
:BR IF YES

ERRCNT,ERRLHT

'BEGIN RETRY IF ERROR COUNT HAS

CLR
MOVS

$REGS
ERRCNT, SREGS

MOV

MOVB

RKBA

GET RK BRSE ADDRESS

JSR
MOV
MOV
MOV

MOV
MOV
MOV
MOV

PC,DRVCAL
#sCOMSTR, RO
(RO)+, (RS)+
(RO)+. (R5)+

MOV
MOV
JSR
RESREG

(RO)+. (RS)+
(RO)+, (RG)+
(RG)+, (RS)+
(RO)+. (RS)+

060 1T
:GO AND REESTABLISH THE COMMAND
‘RS IT WAS ENTERED INTO THE
:PARRAMETER BLOCK

#PARMA RS
#PRO, 98PSW
PC, DRVCAL

ERROR
BIS
BR

:GET ERROR RETRY COUNT

usuactn P. cnnocRS)

SET UP TO CLEAR SUBSYSTEM

LOWER PRIORITY TO ALLOW INTERRUPT
anL DRIVER
:IF RETURN GETS HERE. NG ERROR

o443e22

000207

044324
044332
044340
Q44342
Q44350

152737
052737
000207
152737
000207

MACYil

30AR(10S2)
10-JAN-78
REPORT ERROR ROUTINE

000377
000400

003123
00SS0o4

RETANL:

000377

0031e3

RETNML:

‘4BTTL

:XTHIS

J14

12:16

8l B
8l
RT
BIsB
RT

%377,DONE

; SET DONE

SLEV2ER, RECODE

2222222222 P2

TIME OUT PROCESSOR ROUTINE
THE

2060600 0 0300 0000 00

0300 00 0000 0

0600 00 00 0

QR
PPPOOO
O
=2 ps s 0 s ps s s e ) )
RPN
O—0

o44512
Q44516
o44520

HANDLER

300006 00 0

PSSR

BY PROCESSING

00000 3

I 000000

ST XS

TIME

OUT

STATUS

000 0 0

RKBRS , R2

#SREGS, R1
:SET UP Rl FOR RK REGISTER STORAGE
RKCS1(R2), (R1)+ :STORE ALL VALID RKE11
RKCS2(R2) . (R1)+ :REGISTERS
RKDC(R2), IR1)+

RKRSOF (R2), (R1)+
RKDS(R2), (R1)+

2)
| (R1)+
RKER(R

000014

: THIS CODE WILL ATTEMPT TO

RETR%EVE THE STATUS FROM THE

$PARM

SET UP TO USE PARM

000100

000014

snosrn? .CMND(R&) ;DO READ DRIVE srnTus COMMAND
CALL DRIVER
cchoro P.PRST(RS&N TES'r FgR TIMEOUT

002000
000040

00Sss04

$TWOTOS, RECODE

)

ettt
b pape

044510

SAVREG

ERROR

XXX

. (R1)+
RKDA(R2)
. (R1)+
RKWC(R2)
RKBA(R2) | (R1)+

002714

044432
044436
Q44444
Q44450
Q44456
044460
044466
044472
D444 7Y
044476

; SET DONE

ig?r. DONE

22T

RECOVERY WRS SUCCESSFUL

:SET LEVEL TWO ERROR

SUPPORTS

003036
001174

SEQ_Qus?
SEQ 0178

; OCCURRED,

ROUTINE

bk 0C:

179

: #GATHERING DUTIES.
Q443s2
Q443Se
O443cy
044360
044364
O44370
044374
044400
O44404
044410
o444 1Y
044420
D44424
044430

PAGE

RTS
uvunununwm

CZREMOO RKSll/O& SS VERIF 1
<ZR6MD.PI
10-JAN-78 11:48B

000001

SKI
;SET TNO TIMEQUTS FLRG

#P.R00, RS
(RS)+, {R1)+
(R5)+. (R1)+

:BUMP RS TO POINT TO DRIVE STATUS
{MOVE ALL THE DRIVE STATUS INTO THE
:TEMP REGS FOR REPORTING.

$PARMO,
RS

:RESTORE PARM O

(R5)+) (R1)+
(RS)+, (R1)+
(RS)+, (R1)+
(RS)+, (R1)+
(RS)+) (R1)+
(RS)+, (R1)+
002630

IZITIZIZIIIIIS SIS

éBTTL

SIS RS2SRSS 2222 2222222222222 2222222222

RERD HEARDER 0 ROUTINE

)

CEEERREENENEEERRERRER
AR R R
AR RERARRRR R LA R AR R AR AR AR NI RAR LR

LGsnoo RK811/06 SS VERIF 1
CZREMD.P
10-JAN-78 11:48
9588
9589

9590

QY4522
Q44522

Q44524

104407

012705

002714

012737
004737
11276S
004737
013712

000000 177776
040316
000125 000001
040316
017770

016500
042700
006203
006200
006200
006200

9598
9599
3600

Q44554
Q44560
O4vSpd

010165
010065
112765

9606

044622

3601
3602
9603
9604
9605
3607

044572
044600
044604
Q044612
044616
0Q4M62€

9608
3609
3610
3611
9612
9613

044630
044634
044640
044642
044650
044656

ggig

044664

3619

044662

RDHDO:

000026

(44530
Q44534
Q44540
Q44542
Q44544
Q44546
044550

MACY11 30RA(1052)
10-JAN-78
12:16
READ HEADER O ROUTINE

016501

9841
9592
9533
3594
3595
9596
9597

K14

032712

001775

013712
032712
001775
142765
153766
012705
104410

0000S2
160017

000004
000002
000177

000001

017772
000200

6%:
000007
000007

'88TTL

3622

Q44666

016537

9624

Q44700

005037

001200

9627

044720

005737

001200

9630
9631
9632

044726
044732
044734

0Q44724

001403

044742
044744

001404
012737

010000

0000i6

0IN023

001200

012737

000025

001200

001403
005337

001176

9625

9633
9634

3635

044674

044704

005037
116537

000403

044762

005737

044784

3638
9639

044766
Q44770

964]

044776

3640

9p42

9643

005337
000426
032765

Q44752

9636

8637

P.SECT(RS)
:INSERT TRK,SECT FOR READ HDR
RO CYLN(RS)
:SET CYL NO.
OSUBCLR CMND(RQ) SET S.S. CLEAR CMND

'SET UP TO USE P.B.

MOV
JSR
MOVB
JSR
MOV

ob
ALL.OM INTERRUPTS
PC oh
:CLERR THE S.S.
IRbHERDP CMND (RE) sSET READ HERDER COMMAND
RVCAL
D0’ RERD HERDER
HoLoa (R2)
PISSUE RD HDR WITH FMT BIT = O

BEQ

4§

BIT

#BIT7. (R2)

;CHECK FOR C. READY IN CSl
:BR_IF NOT ROY YET

MOV
BIT
BEQ
BICB
BIS8
MOV

HOLDM, (R2)
:ISSUE RD HDR WITH FMT BIT = 1
#BIT7. (R2)
:CHECK FOR C. READY IN CS!
6%
‘BR IF NOT ROY YET
#B.CFMT.P.CS1H(RS);CLEAR THE FORMAT BIT
FORMAT,P.CSIH(RS) ;RESTORE TYPE AND FMT IN USE
#PARMO. RS
-RtsTORE P.B. O RDDRESS

RTS

RESTORE RO-RS

;RETURN

000030

001176

000026

061174

G&1PKAD: Mov

CLR
CLR

001200

MOVB

044779

00040S

045004

005337

0845010

012737

000207

MOVB
TST

BEQ

001200

001176

000002

001174

GET PACK RDDRESS ROUTINE

o 36363 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 36 3 36 36 3 3 3 3 36 3 3 3 3 3 3 36 3 3 3 3 I W 3 3% 3 3 I 3 3 I 3 3 I I 3 3 W X X &% %K RE

3626 044712 116637 000027 001176
3628
3629

MOV
MOV
MOVB

sPanx RS

:GET THE CYLINDER ADRS
:FROM THE DRIVE STATUS. CLEAR
OFF UNUSED BITS AND POSITION
:FOR USE AS THE DESIRED
SCYLINDER IN THE REARD
,HERDER COMMAND.

; o 3536 3 3 36 3 3 3 3% 3 3 3 36 36 3 3 9 3 3 3 3 3 2 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 % % X% K K * K% %%

93620
3623

:STORE TRACK AND SECTOR

P.B10(RS) RO
#160017,R0
RO
RO
RO
RO

RESREG

000207

9619
9621

4§:

P.DTS{RS),Rl

MOV
BIC
ASR
ASR
ASR
ASR

MOV

000200

000020
003125
002630

SAVREG

MOV

PAGE 180

001176

1$:

2%:

3%:

4$:

5§:

DEC
BR
BIT

BEQ
MOV

B8R

MOV

TST

BEQ
DEC

B8R

MOV

DEC

RTS

P. DCYL(RS) SREGS :GET CYLINDER NUMBER

SREGH

CLEQR REGIST ERS FOR

s EG7

TRACK 8 SECTOR STORAGE

P DIS(RS).SREG? .STORE THE TRACK AND SECTOR

P.DT s S) SREGH
SREG?

$REG?
5§
8CFMT,P.CS1(RS)

23
#19.,SREG?

#21.,

SREGH

SREG?

4$
$REGH

#2, SREGH

SREGS
PC

-ADJUST THE ADDRESS CONTAINED IN

sYHE RK REGISTERS FOR THE AUTOMATIC
: INCREMENT

SEG Q458
SEg 0179

CZREMDO RKE11
CZR 6MD.P11

06 SS VERIF |
10-JAN-78 11:48

MACr1l

L14

30R(10S2)
10-JAN-78
12:16
GET PACK RDDRESS ROUTINE

PAGE

18l

SEQ g4s9
SEQ 0180

3644
9B4S

H 363 353 36 36 36 36 3 36 36 36 3 96 36 3 36 3 2 3 36 % 36 3 3 3 3 3 3 3 3 3 3 % 3 3 3 3 2 % 3 % 3 3% % % %I %%

"8BTTL

BUILD EXPECTED KEADER

: ¥USES DESIRED CYLINDER,

®E R E %R E RN

TRACK AND SECTOR REGISTERS TO DETERMINE

‘#WHICH HERDER WARS EXPECTED. LORDS EXPECTED VALUES IN SREGS, &, AND
‘27 FOR REPORTING.

o o 30303 3 3636 3 3% 3% 36 3 36 36 35 3 36 3¢ 3% 3 36 36 3 3 4 3 3% 3 3 3 3 3 3 % 3 3 % 3% % 3 % I 3 3 I W3 WK% ® %W EREREEEEERER

g4sol2
g4s014
04S0e2

045036

104407
016537
016501
042701
006201
006201
006201

045040

016537

045116
g4Siey
045136

104410
000207

000030
000026
174377

001174

000026
177740
001176
140000
010000

001176
001176

001000
8 1174
1176
001176
001174
001200

BLDEXH: SAVREG

001200

P.DCYL (RS),SREGS

ASR
ASR
ASR

R1
R1
R1

MOV
BIC

23%:

P.DTS(RS),$REGE

817
BEQ
BIS
MOV

#CFMT,P.CSI(RS)
23%
1000, SREG

gnscg,ansc

BIS

R1,SREG?

MOV
BIC
BIC

RESREG
RTS

: CONSTRUCT EXPECTED HDR

P.DTS(RS),R1 ;DESYRED CYLINDER 8 DESIRED TRACK
8174377, R
:CLEAR ALL BUT TRACK BITS

BIC
ADD
BIS

001176
000016
001176
001200

MOV
0

‘AND SECTOR. SHIFT THE TRACK
‘OVER TO CONFORM TO HERDER FORMAT
:CHECK THE FORMAT BIT AND
'IF _SET, SET THE HEADER FORMAT
;BIT.,

8177740, SREGE
;CLEAR ALL BUT SECTOR
R1, SREGH
'ADD TRACK AND SECTOR TOGETHER
#1490000, SREGE : INSERT BSE BITS

REGE.R1
$REGE, SREG?
$REGS R1

:COMPUTE THE HEARDER VRC

CZR6MDO RKB11 .06 SS VERIF

CZRBMD.PL1

10-JAN-78 11:48

MARCY11l

30A(10S2)

10-JAN-78

M1Y

12:16

PAGE

gggg

.SBTTL

%678

iCOPYRIGHE(?; é975663?6 1977

9682
3683

.SBTTL

§§§81

182

RKB1l/RKOB-RKO7 UNIBUS DRIVER FOR SEQUENTIRAL OPERATIONS

(REV.

:lRAGRLED
ERKIPHTYL
AUTHOR: 'ROY SPITZER

aggé

®*WATCH-DOG TIMER

,t!Illl!l!llllllililll!!lil!lli§i!lllili’ll!lillilll!lifill!!liill

3687

;§

THE WRTCH-DOG TIMER DSEE R PSEUDO-gIHéNGROF EKO& R#O? UNIBUS

3ee8s

AERCYTIRE CPBERM
kT IMEE R MRuT
RN, YOI CHRRGHEEE, IHE#

9691
692

i *
3

MILLI-SECOND TIMING. WHEN W.MTIM REARCHES ZERO THE
WATCH-DOG TIMER
WILL SCAN THE DRIVES IN USE RS

693S

I? SNY co N R *HETABLE BRV REQEHES &ERO 2 COMMAND

9690

9696
gggg

%
;:

9699

§§

9701

;¥

9700

THE RKO6-RK07 DRIVER WILL USE THE LOCATION W.MTIM FOR

TIME-OUT WILL BE DESIGNATED IN THE PROGRAM DEVICE STATUS
REGISTER OF THART DRIVE'S PRRAMETER BLOCK.

THE DRIVER WILL USE THE LOCATION W.MIN RS THE NUMBER

OF MILLISECONDS FOR AN UNLORD OR START SPINDLE COMMAND.

P *

LIMIT FOR ALL OTHER COMMANDS.

9? |

< ¥

FOR QUEUED OPERRTIONS THE WATCH-DOG TIMER WILL

9708

:*anL

gzog

s¥

9708
g;g%

%
;%
- ¥

g;?g

;¥
¥

9711

THE DRIVER WILL USE THE LOCATION W.SEC RS THE TIME

ATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIRL
OPERRTIONS ONLY ONE OPERRTION WILL BE WRTCHED.

JSR

RETURN

PC,W.WTCH

IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT

OTHERWISE AN QBNORHRL RETURN TO THE ROUTINE RDDRESS

9712
9713
g;ig

I
x|
s

g;x%

:,llil!!lllllll!lll!l!l!l!!!i*}lI*!lll!*llil*iillll*liil!lliili*(

9718

9719
9720

045142
045144

010546

010446
(010346

3;21
0:5%48
010;:5
9?55
BH
154
86 33
3724 045160 001034
3725

045162

9729

(45204

9726
9727
9728
9730

8731

BY LOCATION A.ABNL WILL OCCUR AND THE CMDTO FLA
IN THE PROGRAM DEVICE STATUS REGISTER OF THE
APPROPRIATE PRARAMETER BLOCK WILL BE SET.

< %

(045140

013737

W.WTCH:

77776
03056
003056

003042

177776

108737
80 Hgg
137

003100

045210

00833

003114

0O4S214

(1370

001016

003036

MOV

MOV
MOV

flgv
DEC
BNE
v

003060

045170
45174
45176

SEQ 0460

RK611/RKO6-RK0O7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

RS,-(SP)

H,-(S )
R3,-(SP)

gg'-ggg;
W.MTIM
209
-

MOV

W.MILI,W.MTIM

Mgv

RKBAS,R2

BNE

20%

TETB
BEQ
MOV

OEC

W.TIME
20%
RKPRI,PS

W.DRV

;SAVE RS ON THE STACK

SAVE R4 ON THE
SQVE R3 ON THE

STACK
STRCK

SRVE
anognngTnT
WORDT?M
ON STACK
SECEEHE
?
HILLISEESND
IF NOT ZERO RETURN

REINITIQLIZE MILLISECOND TIMER

CHEVK *F DRIVE IS BEING TIMED
NO RETURN
L0¢K OUT RKO6-RKO7 INTERRUPTS

bo 2 895; SF RKO6-RKO7 REGISTERS
ECREMEN

OMMAND

TIMER

RETURN IF NO TIME OUT

SEQ 0181

O.1Q»

CLRBHDO RKG11-06 SS VERIF

CZR6MO. P11
9732

10-JAN-78

11:48

9733

045222

013705

105037

003100

9735
9736

(045226
045234

0S2765
020537

000100
003054

9738
9739
9740
9741
9742
9743
9744

0Q4S240

001002

(Q4S242
Q45246
Q45252
045256
Q45260

005037
004737
012637
012602
012603

9746
9747

045264
045266

012605
000207

9734

9737

9745

045216

Q45262

012604

MACY11

30R(1052)

*WATCH-DOG TIMER
CLRB

003112

003054
050522
177776

10-JAN-78

000014

5§:
20%:

N14

12:16

W. TIME

PAGE

183
:RESET TIMING

SEQ J46!

SEQ 0182

INDICATOR

MOV

PBLKT,RS

BIS
CMP

#CMDTO, P. PRST(RSS SET COMMAND TIME OUT
RS,0.WAIT
CHECK IF DRIVER IS WARITING FOR

BNE

CLR
JSR
MOV
MOV
MOV

0.WAIT
PC.R.ABNL
(SPY+,PS
(5P)+ R2
(SP)+.R3

:BRANCH TO ERROR ROUTINE
'RESTORE PSW
'RESTORE R2
‘RESTORE R3

MOV
RTS

(5P)+ RS
pC

"RESTORE RS
'RETURN

MOV

(SP)+.RY

LORD ADDRESS OF PARAMETER BLOCK
TABLE FOR

INDEXING

COMMAND COMPLETION

DO NOT ALTER WRITING FOR
COMMAND COMPLETION
CLEQR WAIT FOR COMMAND COMPLETION

:RESTORE RY4

%¥RKO6

003052

SEQ 0183

#RKO6 INTERRUPT SERVICE ROUTINE

THIS ROUTINE WILL SERVICE ALL RKO® INTERRUPTS.

UPON RECEIVING AN _INTERRUPT,

THIS ROUTINE WILL

PERFORM ONE OF THE FOLLOWING SERVICES:

SERVICE PORT WAS SEIZED BY OTHER PORT
SERVICE DRIVER IS WAIT FOR_COMMAND COMPLETION

fwn

1.)

SERVICE POSITIONING COMPLETION
REQUEUE COMMAND IF DRIVE NRS RELERSED
FOR THE QUEUED RKO®& DRIVE

IF NO SERVICE IS REQUIRED "THE COMMAND WILL BE ISSUED

FOR THE QUEUED RKO6 DRIVER.

THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM.
THEY ARE:

1.) AR.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND)
2.) A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND)
3.)

R.CONT ADDRESS OF CONTROL ERROR RETURN

FOR NORMAL AND ABNORMAL RETURNS

THE ADDRESS OF THE APPROPRIATE

FOR THE CONTROLLER ERROR RETURN,

THE LOCATION E.CONT CONTRINS

PARAMETER BLOCK WILL BE IN RS.

THE RERSON FOR THE CONTROLLER ERROR.

Z
[=]
p

mnHHZ)Z)IJOOO

ROUTINES USED
.OPT
.PUSH
.RMOV
.CONT
.
.ABNL

(QUEUED ONLY)
(QUEUED ONLY)
(QUEUED _ONLY)
(SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)

o 36363 36 36 36 06 3 36 36 36 36 3 36 6 36 3 36 36 36 36 3 3 36 36 3 3 36 3 38 3 3 36 30 38 3 36 06 0 3 3 36 3 36 3 36 3 3¢ 36 3 36 34 36 3 30 36 46 3 2 3 %4 ¥

.INTR: MOV

RS, -(SP)

MOV

R4, -(5P)

MOV
MOV
BIT
BEQ
BIS
JSR

RKBAS R2
RKCS2tR2),T.CS2
#MDS, T.CS2
18
$E.MDS,E.CONT
PC.R.CONT

MOV
MOV
MOV
MOV

003002
003002

SEQ_g4ee

e -

I HE B X K

I R I
R
T
R
R
R
R
R
R
R
R

100000
050546

0 0 3 i o g M I B R R M R o 0E 2K C K I 3 M DI R 0 K

LR LR

003036
000010
001000

PAGE 184

CREEEENNAREEERENEER
AR ENRE R R RN R R
ARE R R R AR AR ERRRAR RS RERY

MC N

L R
H

045270
o4s272
Q45274
045276
Q45300
045302
Q45304
g4s310
Q45316
Q4S3eY4
045326
04s334

12:16

INTERRUPT SERVICE ROUTINE

w0 o

.SBTTL

B1S

_10-JAN-78

CZREMDU RKB11-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

MACY11l 30A(10S2)

R3,-(SP)
R2,-(SP)
RI)-(5P)
RO’ -(5R)

:STORL RS ON THE STACK

;STORE R4 ON THE STACK

:STORE
:STORE
;STORE
:STORE

R3 ON
R2 ON
RI ON
RO_ON

THE
THE
THE
THE

STACK
STACK
STACK
STACK

‘LOAD R2 TO ADDRESS RKO& REGISTER
;s ORE CS2
'CHECK IF MULTIPLE DRIVE SELECT
:NO, CONTINUE PROCESSING
:SEY MULTIPLE DRIVE SELECT
'REPORT ERROR

CZRBMDO RKB11-06 SS VERIF

CZRGMD.P11
gggg

045340

3806

045344

10-JAN-78 11:48
000137

047520

105737

003074

105037

003074

9807
9808

045350
045352

001410
100403

gg{?

045360

000473

3809

Q45354

30A(1052)

000137

046502

003074

ggig

045372

032737

010400

9817
3818

(Q4SY00
048402

001413
013704

003002

9820
9821

Q48412
84§qxs

013705
016237

003112
0000Q0C

003000

39824

045430

016237

000012

003020

gg“g

Q4SHY4Y

001041

3829

O4S446

032737

003002

gggg

333?
3832

C4S436

000137

032737

04S71e

000001

003020

164000

003002

048486

0Q4S4S4

301007

016237

000014

003016

3835
gggg

O4S464

032737

125700

003016

gggg

Q45472

001407

9840

045474

052737

000010

9844

Q45512

10S037

003100

045502

004737

gg:s 045506 000137 047520
9845
gg:g

Q45516
045822

005037
013705

003114
003112

9848
3849
9850
9851

045526

052765

010000

Q45534
045540

00S037
004737

003054
050522

39854

045550

013705

003054

gggg

9855

3856

045844

Q45554

060137

001002

003052

0O4ESe2

C13704

sCHECK

INTERRUPT OR RELEARSE

:CONYINUE PROCESSING INTERRUPT

c§:

CLRB

I1.ISRL

:CLEAR FLAG

6S:

BIT

SNED'UFE, T.CS2

CHEC?TFQ?ENSNEEXISTENT DRIVE OR

BEQ
MOV

78
T.CS2

*NO, WRIT FOR DUAL nccess INTERRUPT
:LOAD R4 FOR DRIVE NUMBE

MOV
MOV

PBLKT,RS
:STORE PARAMETER BLOCK ADDRESS
Rxcs1tna) T.CS1 k8“8 TEMPORARY CS1 FOR STATUS REPORT

MOV

RKDS(R2),T.DS

;STORE STATUS REGISTER FOR COMPARISON

BNE

1.100

!NO, CONTINUE PROCESSING INTERRUPT

IMP

73:

BIT
CHECK

BiT
BNE

MOV
.

10%:

118:

000014

0497520

003002

;RETURN

1.1Co

CHECK
BIT

BIS

JSR

IMP

CLRB

1.100:

2s:

1.1ISRL
CATTN

YES,CLERR FLAG

:GO PROCESS DRIVE ATTENTIONS

sfc<ohvnsx> RY KEEP DRIVE BITS
I1.ERRC

#ORA,T.0%

PORT ERROR

cugcs IF DRIVE SEIZED BY OTHER

IF ANY DATA TRRNSFER ERROR EXISTS

#DL T!WCE ! UPE!NEM, T.CS2

102

RKER(R2),T.ER

: INDICATE

ERROR

:STORE ERROR REGISTER

FOR DATA_TRANSFER ERROR TYPE ERROR
#DCK! OPI! WLE ' COE'HVRC'BSE 'ECH, T.ER

118
$E. uonr E.CONT

PC.R.CONT

I. ATRN

W.TIME

:NO,

WRIT FOR RELEASE OF RkO& ORIVE

;SET UNEXPECTED DATA

'REPORT ERROR

"RESTORE REGISTERS

TYPE ERROR

:RESET TIMING ON THIS DRIVE

CLR
MOV

W. DRV
PBLKT,RS

BIS

oonvszo,P.pRsrtns)

CLR
JSR

0.WAIT
PC,R. ABNL

I.ATRN

-SET DRIVE SEIZED IN THE
PROGRAM DRIVE STATUS REGISTER
'CLEAR WRIT FOR COMMAND COMPLETION
:INDICATE RBNORMAL TERMINATION
:GO RESTORE REGISTERS

MOV

0.WARIT,RS

:LOAD PARAMETER BLOCK ADODRESS INTO RS

IMP

1.4TTN

'NO, phocsss A ENTION

T.CS2,RH4

:STORE

ggég 045556 000137 046502
9859

SEQ 0184

BEQ

0SO54E

I.ISRL

SEG 0463

'NO, CHECK IF DRIVE AVAILABLE
ICHECK IF RELEQSE COMMAND

BIC

3ggq

3g4]

1STB

1.RTRN

18S

6%
53

38i9 Q45406 Q42704 177770
48424

PAGE

BEQ
BMI

CLRB

045366

ClS

12:16

%RKO6 INTERRUPT SERVICE ROUTINE

18:

045362

gggg

10-JAN-78

IMP

9812

3313

105037

MACY1l

BNE

MOV

"CLEAR TIMING COUNT FOR THIS DRIVE
Loggoggsgrru PARAMETER BLOCK

IS connnuo unxrrnc PROCESS NG
YES,

B0 PROCESSI

RKCS2 FOR DRIVE

NUMBER

REMDO RKEB11.0

Efngn P11
332?
986,
9863

9864

9865

VERIF

8 ?én-ia 11:48

045566
045572

045576
Q45600

042704

177770

126504

000000

001401

000000

9859 ggggos 682733 000164
386

gggg

04S612

000137

046150

gg;?

045616

00503;

003?53

16237

000000

37
387

9874

§:g§§§ §8§8§7 §83160
4

3875

Q45640

Sq 64

(32737

100000

3878
3879
ggg?

045664
owss;g
0456

001004
004737
000137

0S0534
047520

3235

045676

0S2765

000010

9884

045704

004737

0S0170

MACY11

30R(1052)

%RK

3%:
10$:

003000

gggg

9887

9888
9889
39830

045710

045712

045720
045724
045732

010 %

000405

013765

004737
01265
016265

003000

050212
000032
000030

047536

1 HDAL

:GO' EXECUTE SPECIAL HERDER SEQUENCE

gts

3'“25T

: CLEAR unxr FOR COMMAND COMPLETION

MOV

RKCS1(R2,T.CS1

MOV
BITB

RKASOF (Ri2) nso# sfone ATTENTION SUMMARY
INTMSK, nT éor+1 ckscx F DRIVE ATTENTION SET

10%

OCERRT.¢81°

“NO, EXECUTE NORMAL DATA TRANSFER

Skéer
NG 08 THTE
OR

;STORE COMMAND AND srnTus necrsrsn

CHECKPAF Egnragkbsn ERROR

:STORE

000016

I.ERRC:

MOV

7.CS1,P.CS1(RS)

;GET ERROR RKCS1

000062
000060

1.ERR:

000020

003052

93905
gggg

Q46016
04e022

004737
000137

050546
0847520

9308
9909

046026
Q46034

032737
001403

040000

003024

2%:

000040
001000

000014
003026

3%:

002000

003G52

:YES REPORT ERROR
: INDYCATE NORMAL RETURN
*RESTORE REGISTERS

;SET UNEXPECTED ATTENTION
CONTROLLER

STATUS

:STORE PRTTERNY AND POSITION INFORMATION

PC,1.8571
GET REST OF CONTROLLER STATUS
RKECPT(R2),P EPQT(RS) sSTORE ECC PATTERN
RKECPS(RS) EPOS(R grogs ECE POSITION

BIT

sNED' UFE, P. csa(Ré) cn;cxgroxr WAS NON-EXISTENT DRIVE OR

BNE
JSR
%ésgnn
JSR

003015

JSR
MOV
MOV

JSR
I.RTRN

003101

I.tRR

IS EXPECTED

DRIVER ERROR

PC,1.CS7S

133737
001407
082737

9915 046066 000137 047520

JMP

BNE

NO,

JSR

04577e
046000
046006
046010

0SOS46

SROALHD,P. CMND (RS) ¢‘CHECK IF READ ALL HEADERS

I.ERRA:

001046
0G4037 050274
??ggag 849520
0Q0g5 003000
0958037
047520

004737

CMPB

IF DRIVE NUMBER

SUEXATT,P.PRST(RS)

O4S7S4
045756
83%?65
0%5792

Q46062

HALT

;CHECK

,YES CONT INUE

B1S

3835
9896
gggg
3899

9914

P.DRVN(RS),R4

BNE

qeqa 045746 032765 010400 000020

0S2765
032737
001407
0S2737

CMPB

;MASK OUT UNNECESSARY BITS

15%:

000014

004037
(047520

046036
046044
046052
046054

#4C<DRVMSK>
,R4

158
PC,R.NORM
I.RTRN

Q45740
(QuS744

9910
9911
9912
9913

SEQ

BNE
JSR
IMP

9891
3842

39300
9301
9902
3383

186

BIC

BIT

39876 0u486S
162
000016 003014
9877 045656 133737 003101 003015

Pnc

INTéSRUPT s?nvf OUTIN
BEQ

000001

DlS

-JAN-7

I.RTRN
BITB
BEQ
BIS

53
RO, I.STAT
#DR.CLR,T.CSl
RB,I.&SSU

i Eg REP # eanS
cnrhsn DRIVE STATUS
: ERROR RE
URCLERR
&Ssue
vae

:ERROR RETURN
INTMSK, T.ARSOF+1 ; CHECK IF ATTENTION RESET
2%
'NO, INDICATE DRIVE ERROR
8E.CLAT,E.CONT SEfix$fiTEEEI°" DID NOT RESET

JSR
JMP

PC,R.CONT
I.RTRN

'REPORT CINTROLLER ERROR
:GO RESTORE REGISTERS

BIT
BEQ

#5.0DSC, T.MR2
3§

:CHECK IF DRIVE srnrus
YES,
CHECK FARULT

8IS
BIT
BEQ
BIS

JSR

IMP

CHANGE

CLERRED

uonvosc P. PRST(RQ) -SET DSC DID NOT CLEAR
R, t.MR3
CHEGK IF DRIVE PARITY ERROR
ss
NO INDICATE ABNORMAL TERMINATION
Ot DPAR,E.CONT
:SEY DRIVE PARITY ERROR

R.CONT

hTRN

:INDICATE CONTROLLER ERROR

:RETURN

0464

sga 0185

CZREMOO RKB11-06 SS VERIF 1
CZREMC.PI 1
10-JAN-78 11:48
000020

000014

020000

003024

020000
003101
003064
047520

000014
003100
003114

g4e120
046126
O46134

032765
001017
032737
001413
0S276s
113737
013737
000137

Q46140
C46 144

004737
000137

gs0see
047520

Que072
Q46100
Q46102
046110
Q4elle

MACY1l

30R(10S2)
¥RK06

000000

003000

046156
O46164

032737
0ol422

100000

003000

046166

005037

003054
003100
003114
003000
gs0212
047536

Q46222
046226

050522
047520

Q46232
Q46240
046246
Q46250
Q46254
046260
046264

000016
00310!¢

I.HDAL:

W
~N

O
(D)
o~

003070
000024
000024
000024
003070
000010
100000

SERVICE

000016

CHECK IF DRIVE IS CYCLING DOWN
sef UP8 SECONDS FOR DRIVE TO CYCLE UP

JSR
JMP

;GO RESTORE REGISTERS
; GO REPORT ERROR

PC,R.ABNL

GO RESTORE REGISTERS

I.RTRN

¥READ ALL

HEARDERS

INTERRUPT

Q46374
Q46376

047520
013765

003026

TO CHECK CONTROLLER

BIT
BEQ

8CERR, T.CS!
X3

CHECK IF CONTROI LER_ERROR
INO, CHECK FOR ATTENTION

0.
W.

;CLERR WAITING FOR COMMAND COIPLETE

iRESET TIMING ON DRIVE
iCLEAR TIME OUT COUNT
:STORE ERROR RKCS1
:STORE CONTROLLER REGISTERS
;CLEAR CONTROLLER
;ERROR RETURN
; INDICATE ERROR RETURN

:RESTORE REGISTERS

ASOF

STORE ATTENTION SUMMARY

cHECK IF DRIVE ATTENTION IS SET
Igrnsxnsor+1:NO
cnecx IF READ ALL HERDERS
R KASOF (R2)

:CLEAR WAITING FOR COMMAND COMPLET:ON
'RESET TIMING ON DRIVE
:CLEAR TIME OUT COUNT
:GO REPORT ERROR

W.
W.

GET MRIN MEMORY ADDRESS

7%:

' STORE ADDRESS FOR NEXT HEADER
'STORE CS2 TO CHECK FOR DATA LATE

003002
003002

000056

STORE CS1
ERROR

RKCS1(R2),T.CS!1

000026
003000

SEQUENCE

MOV

'CHECK FOR DARTA LATE
'YES, REPGRT ERROR

003072

003054
003114
003100
000003
000001
047620

SEQ_QU4ES
SEQ 0186

ODQVHRD P. PRST(RS)
CHECK IF HARD DRIVE ERROR
ved GG REPORT ERROR
0
#S.PIP,T.MR2
'NO, REPORT ERROR
108
os UNLD,P.PRST(RS)
: SET onxvs UNLORDING

ce:

187

PAGE

ROUTINE

W,
T.

003054
003100
003114
04S704

0000000
et ot ot v e b

Q46270
046274
046300
o46304

ELS

12:16

xnrrsx a TIME
s
W ssc DRV

.SBTTL

a16237

INTERRUPT

5%:

10%:

0461S0

10-JAN-78

%3 RKMRI(RE)
#DR.SEL . T.CS1

RO, 1. Iséu

T.MR3,P.BL1(RS)

'DECREMENT NUMBER OF HERDER YET TO RERD
*IF NON-ZERO, GO ISSUE NEXT RERD HEADER
:CLEAR DRIVER WAITING FOR COMMAND COMPLETION
'CLEAR TIME OUT COUNT FOR THIS DRIVE
'CLEAR WATCH DOG TIME ON THIS DRIVE
'L0AD MAINTENANCE REGISTER FOR SECTOR COUNT
:LOAD SELECT COMMAND
'GET SECTOR COUNT
'ERROR RETURN
"LOAD SECTOR COUNT

CZRBMDO RK611-06 SS VERIF 1
CZR6MD.PLI
10-JAN-78 11:48

MACYLll

9972

Q46404

004737

0S0S34

9975

Q46414

016562

000002

000004
000007
165777

000006
00C0L17
000016

9980
9981

QU444
046452

112765
016562

000125
000016

000016
000000

9384

Q46464

0S2737

000400

003052

FL15

30R(10S2)
10-JAN-78
12:16
PRAGE 188
¥READ ALL HEADERS INTERRUPT SEQUENCE

gg;a Q4e410 000137 047520
9976
9977
gg;g

046422
046430
Q4e436

0le6S6e
116565
042765

ggga O4e460 000137 047520
9985
3389

Q46472
046476

QQ4737
030137

0SOS4e
047520

000020

gggg
9990
9991

2S5%:

016237

000000

003000

046510
046516

032737
001441

100000

ggg%

046520

032737

9998

Q46526

046530

10001
%888%

JMP

MOV

P. CYLN(RS),RKDCYL(RE)

Move
MoV

#RDHEAD, P.CS1 (RS}
STORE COMMAND ISSUED
P.CSI(RS),RKCSL(R2)’
UE RERD HEADER

JMP

35%:

.SBTTL
O0veSCz2

JSR

MOV
MOovB
BIC

#E.DLT,E.CONT

;SET DATA LATE WHILE UNLORDING HERDER

PC,R.CONT
I.RTRN

#CERR, T.CS1
58

164000

003002

016237

000014

003016

046536

032737

125700

003016

1888;

o4esS44

001407

10006

046546

052737

CHECK

BNE

MoV
;

000010

Q46554
046560

004737
000137

0S0S46
047520

10010

046564

013704

003002

10012
10013
%88%;

046574
046600
O4e604

105037
005037
013705

003100
003114
003112

003052

18%:

10011 046570 042704 177770

2s:

10016
10017
igg{g

046610

042785

000006

;
;

}885?

Q46616

000137

045712

046622

032737

040000

10022

10023
%885;

046630
046632

100t

046636

10027

Q04ee4d

001002
000137
016237

105737

00001+

003015

BIS

CHECK IF CONTROLLER ERROR OCCURRED
iNO, CHECK IF ATTENTION

IF_ANY DRTA TRQNSFER

TYPE ERROR EXISTS

DLT!WCE!UPE!NEM, T.CS2

RKER(R2),T.ER

; INDICATE ERROR

:STORE ERROR REGISTER

cs
8E.UDAT, E.CONT

;NO DATA TRANSFER ERROR
;SET UNEXPECTED DATA TYPE ERROR

JSR
JMP

PC,R.CONT
I.RTRN

:REPORT
{RESTORE REGISTERS

MoV

T.C

; SAVE CS2 FOR REGISTER NUMBER

CLRB
CLR
MOV

W.TIME
W.DRV
PBLKT RS

iCLEAR WATCH DOG TIMER
IRESET TIMER VALUE
:STORE PRRRHETER BLOCK RDDRESS IN RS

BIC

8?C<DRVMSK> R4 :STRIP OFF JUNK

CLEAR DRIVE POSITIONING AND ORIVE POSITIONED FOR DATA
IN PROGRAM DEVICE STATUS REGISTER
BIC
#ORVPOS!DRVPOT,P.PRST(RS)

JMP

I.ERRC

; GO REPORT ERROR

DI, T.CS1

; CHECK

003000

S%:

BIT

BNE
JMP

63
I.RTRN

003014

6%:

MoV

RKQSOF(RE) T.ASOF

047520
000016

STORE COMMAND AND STATUS
REGISTER 1 FOR COMPRRISON

CHECK FOR _DATA TRRNSFER ERROR TYPE
BIT
#OCK!OPI'ULE:COE!HVRC!BSE!ECH, T.ER

BEQ

10007
igggg

; REPORT ERROR
;RESTORE REGISTERS

¥DRIVE ATTENTION SCANNER

BIT
BEQ

001007

:LOAD CYLINDER ROORESS REGISTER

,RESTORE REGISTERS

003000

13888

:RESTORE REGISTERS

I RTRN

RKCS1(R2),T.CS1

3995

ATTN:

JSR
JMP

; INDICARTE NORMAL TERHINQTION

P.SCT(RS) ,RKDA(R2) ;LOAD SECTOR AND
TRACK
P.CS1H(RS),P. CSl+1(RS; STORE BITS 8-1S5 OF CSl
st C‘CDT.CFhT)'P'C51és?&ECngR ALL BITS EXCEPT FORMAT AND

MOV

9992
ggga

BIS

C,R. NORH

SEG 0466
StEQ@ 0187

TS18B

T.ASOF +1

_IF ANY DRIVE RATTENTION

iYES, PROCESS INTERRUPT
:RESTORE REGISTERS
;STORE

ATTENTION

SUMMARY

;CHECK IF ANY ATTENTIONS SET

TRANSFER

CZREMDO RKB11-06 SS VERIF 1
CIREMD. P11
10-JAN-78 11:48

10028

046650

10030

046660

10029

Q46652

001007

10034
10035
10036
{8835
10039

046670

000002

003052

133737

003101

003015

000004
0SOS46
047520

003052

004737

046676
046700
046706
046712

001007
0S2737
004737
000137

046716

013705

10040
10041
10042

Q46722
046726
046734

10045

Q46742

050546

003112

000000
020000

000014

042765

000002

000014

10046
10047
10048
10049
10050
100S1
10052

046750
Q46754
046762
046766
046770
046776
047004

005062
112737
004037
047520
013765
032765
001401

100SS

047010

013765

{8823 047006 000461
047016
Q47024

032765
001004

000026
000001
047620

003000

003026
000200

000042
000042

003024

000040

040000

000040

047034

10061

047036

10063

047050

10062

7%:

112737

00000S

10065
10066
10067

047060
047066
047070

133765
001407
052737

003101

000033

000020

003052

10069
i%%;?

047076
C47102

004737
000137

0S0S46
047520

10072

Q47106

047114

032765

1007S

Q47122

001404

18835

047132

000407

10079

Q47134

047520

047620

003000

004037

118:

188;3

O0137eS

003024

040000

000040

00CO40

12%:

047140
047144
047150

105037

005037
004737
0G0Se3

003100

003114
0S0S34

81718

BNE
BIS
JSR
JMP
MOV

MovB
B1T
BEQ
BIC

13%:

; YES GO PROCESS INTERRUPT

OE NOAT,E.CONT

iSET NO ATTENTION IN ATTENTION SUMMARY

INTMSK, T.ASOF+1

;CHECK IF DESIRED INTERRUPT

PBLKT, RS

; STORE PQRRHETER BLOCK TABLE

I.UNLD

SERVICE DRIVE IN POSITION AFTER ERROR

R.CONT

8%
8E.UATT,E.CONT
PC,R.CONT
1.RTRN

:GO REPORT ERROR

GO RESTORE REGISTERS

;YES, GO PROCESS 1T
:SET UNSOLICATED ATTENTION
:G0 REPORT ERROR
GO RESTORE REGISTERS

P.DRVAN(RS) ,RY
:STORE DRIVE NUMBER
E UNLD,P
RRST(RE)
; CHECK IF DRIVE UNLOADING
118
" CONTINUE
$DRVPOS,P.PRST(RS)

;RESET DRIVE POSITIONING

I.RERR

PRDCESS ERROR

MoV

T.MR2,P.A00(RS)

;STORE MAINTENANCE REGISTER 2

BIS

#NOOSC,P. PRST(RS, SET NO DRIVE STATUS CHANGE

BIT
BNE

MOovB

; CLEAR MAINTENANCE REGISTER 1
:LOAD COMMAND
iSELECT DRIVE WITH ATTENTION HIGH
: ERROR ; ¥
T.MR3,P.BOO(RS) :STORE STATUS BYTE DD MESS B
8S.FLE, P, BO0(RS)' ; CHECK_IF DRIVE FAU
128
fi CHECK FOR DRIVE STRTUS CHANGE
#5.0S¢,P. ABO(RS)’;CHECK FOR DRIVE STATUS CHANGE
13§
9 PROCESS DRIVE STRTUS CHANGE

1.RERR’

#DR.CLR, T.(CS1

PROCESS ERROR
; LOAD COMMAND

JSR

RO, I.ISSU

BITB
BEQ
BIS

INTHSKP.ASOF+1(RS) ;CHECK IF ATTENTION RESET
iS%
s YES, CONTINUE INTERRUPT PROCESSING
OE.CLRT,E.CONT :SET ATTENTION DID NOT RESET

CLERR DRIVE STATUS CHANGE
RROR RETUN

T.ASOF,PQSOF(R55 : STORE ATTENTION SUMMARY
:”

WITH DRIVE CLEAR

JSR
JMP

PC,R.CONT
I.RTRN

:FLAG ERRON
{RESTORE REGISTERS

MOV

T.MR2,P.ROC(RS)

;S1GRE MAINTENANCE REGISTER 2

BEQ

163

I.AERR

GO’ PROCESS ERROR

W.TIME

;RESET TIMING ON THIS PRIVE

BIT

gls

16%:

SEG_0467
SEQ 0188

RKMR1 (Ré)
#0R.SEL,T.CS1
RO, 1-IS5U

I.RTRN

1iS%:

PAGE 189

CLR
MovB
JSR
I.RTRN
MoV
BIT
BEQ

10076 047124 (052765 000040 000014
10080
10081
18883

RTRN

10064 047052 013765 003014 000032
10068

JSR

JMP

000446

047044

JMP

10058 047026 052765 004000 000014
igggg

BNE

BIS

8%:

116504
032765
001402

%88:3 046736 000137 047420

10056
10057

MACY1l 30AR(10S2)
_10-JAN-78
12:16
¥DRIVE ATTENTION SCANNER

0S2737

{88%5 g4ebb4 000137 047520
10033

GLlS

CLRB

CLR
JSR
BR

#5.05¢,P. RDD(RS)CsEgETIF DRIVE STRTUS CHANGE
CONTINUE INTERRUPT PROCESSING

IDRVDSC P. PRST(RE) QET DRIVE STATUS CHANGE OID NOT CLERR

N DRV
PC,R.NORM
I.RTRN

:CLEAR_DRIVE TIMING COUN
!REPORT SUCCESSFUL COMMRND COMPLETETION
:RESTORE REGISTERS

CZReMDO RKb11-06 SS VERIF 1

CZR&MD.P11

10-JAN-78 11:48

MACY1l 30R(1052)

10-JAN-78

12:16

#*ATTENTION ERROR HANDLER

.SBTTL

000014

18839

OM7152

042765

000004

{ooee

o:;{sg

185037

0031?3

I.RERR: BIC

10094

(47220

013765

003004

000022

10096
10087

(047234
047242

013765
013765

003010
003012

000026
000030

MOV
MOV

047256
Q047264
047272

003016
003020
050274

000034
000036

MOV
MOV
ISR

T.ER,
P ER(RS,
1.05.P.DS(RS)
RO, I.STAT

JSR

RO, I.1IS5U

W.TIME

MOV

T.WCR P.WCR(RS)

10096

MOV

098

Y o
Pt u N
e e
Sep e W
DY W W W
el ol ol Y ooy SN IRy WY S
e e
e
e o
e
[

[

ol c L

o S e

e O

o S

iy Wy

Y WO S

WPy

Uy WOy Uy WY U

Y U

OOOoOO0O0O00O000O000CO0OO0OOOOO0000DOO0ODO00ODO0O000O0D

Uy iy Sy Sy

E&C
g§g
MOV

(047250

847575
42300

047306

013765

013765
013765
004037

047;59
112

004037

003006

003014
00000S

047620

000024

000032
003000

047520
133737
001407
062737
004737
000137

003101
000020
050546
047520

003015
003052

Q47342

032765

047350
047352
047360
047362
047370
047376
047404

001017
032737
001413
052765
113737
013737
000137

000020

000014

020000
020000
003101
003064
047520

003024
000014
003100
003114

047410

004737

0S0S22

047414

000137

MGV

1.RTRN
MOVB

Q47312
047314
047322
Q4r324
047332
047336

@2%:

10%:

047520

.SBTTL

03;358

o§g;g;

047440

047442
047452
047460

047520

047450

001406

136437
012737
004737

00310f
000020
0S0546

003015
003052

Q47466

032737

040000

003024

Q47504

105037

003100

47434

004037 047533

047464 DOO41S
047474

ggggoo

001403

888853

047476 0S2765 000040 000014

0197741
csx(nsi
K EPguggsut
COMMAN CONTROLLER
xsé Eo STATUS
gas r.géxfigEP
T.E é:P Eg (R5) :STORE ONTRSLLER REGISTERS
T7.8A, P.BAR(RS)

T.0A.P.DTS(RS)
T.DC,P.DCYL(S)

T.RSOF
. P.AS

"RS)
:GATHER DRIVE STATUS

#DR.CLR,T.CS1

1.RTRN
gite
BEG
BIS
ISR
IMP

INTMSK, T.RSOF +1
23
WE.CLAT,E.CONT
C.R. CONT
I.RTRN

:ERROR RETURN
|cnecx IF ATTENTION RESET
YES, FLAG DRIVE ERRO
.SET’ATTENTION DID NOT RESET
:REPORT ERROR
‘RESTORE REGISTERS

BIT

#DRVHRD,P.PRST(RS)

:CLERR onxvs ERRORS

:CHECK IF AHARD DRIVE ERROR

BNE
BIT
BEQ
BIS
MOVB
MOY
IMP

108
s YES, REPORT ERROR
ss PIP,T.MR2
'CHECK IF DRIVE IS UNLOADING
10%
*NO, REPORT ERROR
8E.UNLD,P.PRST(RS):SET DRIVE UNLORDING DUE TO ERROR
INTMSK, a TIME
;SE}TIMING ON THIS DRIVE
W.BSEC
. W.DRY
:LORD 8 SECONDS FOR CYCLE UP TIME
1 RTRN’
*RESTORE REGISTERS

JSR

PC,R.ABNL

IMP

I.ATRN

:REPORT ERROR

'RESTORE REGISTERS

*ERROR CAUSING DRIVE TO UNLORD

'Eaung SS?T(RSEOACLESRDgflngCEgngDING BECRUSE OF ERROR

JSR

8 5 su

BITB
BEQ
MOV
JSR

INTMSK(RY),T. nso#+1CHECK IF ATTENTION CLEARED
15%
s YES,
CONTINU
cs CLAT,E.CONT ;SET ATTENTION DID NOT RESET
R.CONT
:REPORT ERROR

I.RTRN

BR
20%:

CLERRTé¥éncDF8RTrnxs DRIVE

'ERROR RET un
:LORD COMM

I.UNLD: fiése

15%:

SEQ 0189

¥DRVPDT F.PR5T(RS) RESST P933T§°"5"° IN PROGRESS BECAUSE

CLgB

18833
10091 847190
o:;xgs quggg
043;37 999541
000036 000016
003000
18835 847512 8?3?2? 883882 8388§8
(047226

SEG O4e8

*ATTENTION ERROR HANDLER

W W
W W W L LW WL NI MM NN N NI NUNUN) 6= b e bt b 1 e pe 12 = D OO O Q0 QOO0 00O W
DONOCNIZIWNLODLODNOCNZWNN—OWVONOCNLZWNL—-0DODNON LW-0W

i888§

PAGE 190

BIT

?séue DRIVE CLEAR

nao RETURN

hrnn

:RESTORE REGISTERS

BEQ

20%

#5.DSC, T.MR2

CHECK IF DRIVE STAUS CHANGE RESET

CLRB

W.TIME

Rsésr TIMING ON THIS DRIVE

BIS

ONTINUE

oonvosc P. PRST(RS) ésr DRIVE STAUS CHANGE DID NOT CLERAR

<ZREMO0 RKB11-06 SS VERIF |
CZREMD.PI11
10-JAN-78 11:48
10140
}gizé

1043

10144
10145
10146
10147
10148
ig{gg

047510
047514

047520

Q47See
Q47524
Qu475¢6
047530
047532
Q47534

005037
004737

012600

012601
0lee0e
Cle603
0ice604
012605
003002

003114

050522

MACY11l 30A(10S2)
10-JAN-78
12:16 PRAGE 191
*ERROR CRUSING DRIVE TO UNLORD
CLR
JSR

I.RTRN: MoV

MOV
MOV
MoV
MoV
MOV
RTI

SEQ _O4&93
SEQ 0190

W.DRV

PC,R.ABNL

;CLERR_TIME COUNT
; REPORT ERROR

(SP)+,R0O

; RESTORE RO

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

;RESTORE
;RESTORE
;RESTORE
;RESTORE
:RESTORE
; RETURN

Rl
R2
R3
RY
RS

CZR6EMDO RKE11-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48

J15

MACY1l 30R(10S2)

10-JAN-79
12:16
%#CONTROLLER CLEAR ROUTINE

PAGE 192

igigé

.SBTTL

lgiga

;i{l!lll!lillililllili!! EEFUREEEREEFREREEESEXEEEEEREREERERREEEEEXR

10185
10186
10157

!
‘e
¥

10159

10161
10162

(%
o

10158

10160

10163
igigg

10166

101€7

047536

0l2762

016237

000000

100000

000000

10176
10177
10178
10179
{gig?

047560
047562
047570
047574
047576

001407
052737
004737
011000
000200

000001
0S0S46

003052

10182

047600

012762

000100

000000

047544

003000

igi;g 047852 032737 100000 003000

10183
10184
10185

E.CCLR SET IN E.CONT

USE

Sx
¥

R2
RS

ADDRESS OF RKO& REGISTERS
ADDRESS OF PARAMETER BLOCK

‘¥CALL

JSR

RETU

—eemmeee

-—-

RO, I.CCLR

:: P Y Y2222 2222 2223222222222 222222222222 2242222222222 2222222

10172

10173

THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER
AND CHECK IF THE CONTROLLER ERRORS nRE RESET.
1IF THE ERROR IS NOT
CLEARED, THE Rourxns AS SPECIFIEC IN A.CONT WILL BE CALLED WITH

10168
}8{;9

#CONTROLLER CLERR ROUTINE

04606
047614
04761e

112737
005720
000200

177777

003074

1I.CCLR: MOV

;CLEAR CONTROLLER

RKCS1tR2),T.CS1 :STORE COMMAND AND STATUS Rscxsrsn 1

BIT

S%:

#CCLR,RKCS1(R2)

MOV

BEQ
BIS
JSR
MOV
RTS

#CERR, 0
T 91

Y
8E.CCLR,E.CONT
PC.R.CONT
(ROY,RO
RO

CHEEE éFEgggEROLLER CLERR DID

MOV

$I1E,RKCS1(R2)

;SET INTERRUPT ENABLE

MOVB
TST
RTS

#-1.1.ISRL
(RO} +
RO

'YES, RETURN TO DRIVER PROCESSING
:SET CLERR CONTROLLER 010 NOT CLERR ERROR
'REPORT CONTROLLER ERRO
'SET UP ERROR RETURN
*RETURN
'SET INTERRUPT ENABLE ISSUED
"ADJUST FOR NORMAL RETURN
*RETURN

SEG 3470

SEQ 0191

.SBTTL
ey
T

013762
105762

003000
000000

000000

047674

004737

0S0042

Q47726
047732

004737
000440

0S0S46

Q47734

032737

024000

003000

176400

003002

003016

NNV
NN RN
RN

O K K Jreu

T
T
L

047660
047666

Q47672

10037S

K i R I I I ROK i

003002

003000

B A

047636 013762 003002 000010
047644 116537 000007 002001
047652 142737 177753 003001

013746

001027
(032737
001023

047?54

032737

131761

047784

122716

00000S

047762

001017

ERROR OCCURRED,

222222222222222
2232322 )

ISSUE THE COMMAND AS SPECIFIED

IN T.CSl1

IFg CONTROLLER

E.CERR WILL BE SET IN E.CONT

AND

CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE

ADDRESS

IN R.CONT.

USE

R2
RS

ADDDRESS OF RKO6 REGISTERS
ADDRESS OF PARAMETER BLOCK

JSR

RO,

I.ISSU

RETURN

ROUTINES USED:

I.CCLR
1.STOR

o 363636 3 3 3 3 3 3 3 3 3 3 3 36 36 3 3 3 3 3 3 36 3 396 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 % % W 3 3 3 3 U3 K3 % K% E % %X XL ER

.ISSu:

18:

047700 032737 100000 003000
Q47706
001437
047710 032737 001000 003002
047716
001406
047720 052737 100000 003052
047742
047744
0477s2

THIS ROUTINE WILL

E SRS IR TS 2R3

AND CHECK IF A CONTROLLER ERROR OCCURRED.

i i

I R

003002
000000

R TYITETIETEETIT
2222 2R

CALL

SEQ 0471
SEQ 0192

ISSUED BY DRIVER SERVICE ROUTINE

R R I
e
R

s s b

005037
116537

£ £ WL WLW LW LW LW WNINININNINIM NN N

VVVND UMV VNV TU TV N PV R MO NN

= e e b

047624
047630

RNV

047620

#COMMAND

o 200

b-D\.D(D\JU‘U’lIwNHO\D(‘D\)U‘Lfl-CUN’-‘D\.D(D\lU"U’\.SUl’Ut—D\D(D\JU‘WI(JNHD\DQ\JU‘U“E(UND—DQCDE}%
OO

MACY1l 30R(10S2)
10-JAN-78
12:16
PAGE 193
#COMMAND ISSUED BY DRIVER SERVICE ROUTINE

= 0 0 e b 2 bt Be 3t 0t s s e D
ps —— 0000000000
WYY
DDDDOMMD

0000000000000 0000000000000000000000000000000000000000000

OO0

NN
VO
U"U‘

0 RKe11l 06 SS VERIF 1
P11
10-JAN-78 11:48

Mov

CLR
MOVB

s STORE COMMAND ISSUED

1.652’
:CLEAR TEMPORARY CSe
P.DRVN(RS),T.cS2' ;LOARD IN DRIVE NUMBER

MOVB

MOV
gIc8

P.CSlfi(RS) es1dl ;STORE BITS 8-15 OF CS!

ov
TSTB

T.CS1,RKCS1(R2) ;ISSUE COMMAND
RKCS1LR2)
'WAIT FOR RERDY

JSR

PC,1.STOR

BPL

BIT
BEQ
BIT
BEQ
BIS
JSR
BR

2%:

T.CS1,-(SP)

T.CS2 Rxcsé(na) .{ GAD DRIVE NUMBER FOR COMMAND
#tC<B.CDT! é crnr>TFCSI+1 bfibESSICEL e;gs EXCEPT
15

tnn T.CSI
ss
#M0S, T.CS2
23
8E.MDS,E.CONT
PC.R.CONT
108

:GO_STORE REGISTERS

CHECK xr CONTROLLER ERROR OCCUERED
TURN
cnécx If MULTIPLE DRIVE SELECT
CHECK FOR OTHER CONTROLLER ERRORS
ssf MULTIPLE DRIVE SELECT FLAG

REPORT CONTROLLER ERROR
‘RETU

CHECK IF ANY CONTROLLER ERROR IS SET

BNE
BIT
BNE

BIT

BNE
CMPB

#CTO!SPAR, T.CSI

7S
SUFE ' PGE'NEM! NED! UPE ' WCE!DLT, T.CS2
7%

;échorvssrnrssscnsesssuvacecoszors:opxeocx,r.gn
#0R.CLR, (SP)

:CHECK

IF CLERR DRIVE

CZREMDO _Rkb11 0B SS VERIF 1
CZREMD. P11
10-JAN-78 11:48

L15

MACr11 30A(1052)
10-JAN-78
12:16 PAGE 194
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

10242

047770 001003
10243 047772
052765 000020 000014

BNE

JSR
10%
MOV
TST
TST
RTS

RO, I1.CCLR
#IE RKCSI1(R2)
(SPY+
(RO, +
RO

60’ ISSUE
A CONTROLLER CLERR
"ERROR RETU
:SET INTERRUPT ENRBLE
PADJUST STACK
RDJUST RO FOR NORMAL RETURN
‘RETURN
;SET CONTROLLER ERROR DURING
: " DRIVER SERVICING
:REPORT ERROR

BIS

DO NOT SET DRIVF Hnno ERROR
#DORVHRD, P. PRST(RS)'SET
Hnao DRIVE ERRG

10244
10245
10846
10247
10248
igggg

0S0000
0S0004
050006
050014
0S0016
050020

004037
0S0034
012762
00S726
005720
000200

047536
000100

000000

3%:
5%:

10251
10252
10253

0S0022

052737

001000

003052

7%:

BIS

E.CERR,E.CONT

050030

004737

050546

JSR

10255

050036

011000

10%:

<s¢)+

10254 050C34 005726
10256

0S0040

000200

TST

MOV
RTS

CONT

(RO),RO

:ADJUST STACK

RDJUST RO FOR ERROR RETURN
IRETU

SE3 Q472
SEG 0193

CZREMDO RKG11

CZR&MD.P11

08 SS VERIF

10-JAN-78 11:48

MACY1l

30R(1052)

10-JAN-78

M1S

12:16

PAGE

195

#STORE RK611 UNIBUS REGISTERS

SE3 0473

SEQ 0194

igggg

.SBTTL

10253
1026

;;l!!llllli*!!!lilllll!! 3 3 36 36 36 3 3 3 3 3 3 3 3% 3 3 3 3 % % 3% 3 3% 3 3% 3% 3 3% % 3% % % % XX
;

igggg

RK611 REGISTER IN TEMPORRRY LOCARTIONS.

:#CALL

JSR

18561

10264

xgsgg

10267
10268
10269

e
(¥
Sx

igg;g

DoRE EME R

iSS??

10274
{0275

0S0042

050050

016237
01523;

000000
000010

003000
003005

1§§;9 §§§§§3 Bitigr §88883 883885
10278
ioa79

PC,1.STOR

RETURN
REGISTER
ememsaao

USE
-—

ADDRESS OF RKb11 REGISTERS

R
MOV

RKCS1(R2),T.CS1

nox

§§Es§éng)?racga

n8v

RKB (RS):T:BS

016237
016237

000006
000013

003010
ooaoag

MOV
nov

RKDA(R2)
. T.DA
sfiograa),;.og

0122

016237

000020

003012

MOV

RKDCYL (R2) ) T7.DC

18285 828144 81253? 880835 003026

MOV

10287
10288

MOV
RTS

10286

0S0152
050160
050166

016237
016237
000207

000030

000032

003030
003032

®EEEER

THIS SUBROUTINE IS CALLED BY THE RKOB DRIVER TO STORE ALL

2
050100

{88 geRi Rieswr BRI GRARiS
1028

I.STOR:

#STORE RK&1l UNIBUS REGISTERS

MOV

EEEERT

;STORE ALL CONTROLLER REGISTERS
:

EXCEPT DATA BUFFER

RKMR3(R2) ' 7.MR3

RKECPS(R2}, 7.POS

HHHHO

RKECPT(R2)
. T.PAT
PC
: RETURN

CZRBEMDO RKE11
CZRBMD.P11

06 SS VERIF 1
10-JAN-78 [1:48

MACY1l

.SBTTL

nr
DO
wn

wuunuuuuuunumunuwuuuwuuugqumnnumnnu ~

e et Bt Pt Pt P

0000000000000 000000NOOO0O0000

10289
10290
91

10329
10330
10331
10332
10333

CONTROLLER

196

SEQ_ Q474
SEQ 013s

STATUS

THIS SUBROUTINE IS CALLED BY THE RKO6 ORIVER AT
THE FOLLOWING REGISTERS WILL BE STORED:

PRIORITY

HE4

COMMAND RAND STATUS REGISTER 2
WORD COUNT REGISTER
BUS RDDRESS REGISTER

HE2

; B

DESIRED TRACK AND SECTOR
STATUS REGISTER
ERROR REGISTER

FE]

HEJ
HE

ATTENTION SUMMARY/QFFSET REGISTER
CYLINDER RDDRESS REGISTER

HE]
s &
[

; #CALL

s ®
; ¥
; ®

JSR
RETURN

PC,I1.CSTS

THIS ROUTINE

RSSUMES

THE

FOLLOWING REGISTERS

CONTARIN:

; %
s ®

10311

10323
10324
1032S
10326
103e7
10328

#STORE

PAGE

ERRRERERRFRRARRRRRRREFERRRERRRRR
R R AR RARA B R AR RAR AR R SRR RRARRRRRD

97
10298
1
9
10300
1
1
10302
10303
10304
10305
10306
10307
10308
10309
10310

1031¢
10313
10314
10315
10316
10317
10318
10319
10320
10321
10322

N1S

10-JAN-78
12:16
¥STORE CONTROLLER STRTUS

30AR(10S2)

;%
X

‘¥

;%
HE
;!

CONTENTS

R2
RS

RKO& BASE ADDRESS
ADDRESS OF PARAMETER BLOCK

5 3633636 36 36 08 36 36 08 3 3 3 36 06 3 36 3 36 3 3 3 36 3 36 3 3 3 3 3 46 3 26 30 3 36 3 3 36 3 3 6 3 3 36 36 3 3k 3 3 3 3 36 3¢ 3% 3 3 3% I 3 3 % %

0s0170

050176
050204

042765

177741

000016

000036

050256

000016

003000
00001
p00020
0000
000024
000026
000036
000034
000032

0s0264
0s0e7e

000020

000030

I.CSTS:

1I.CSTI:

BIC

8177741,P.CS1(RS)

BIC
BIS

#36,T.CS1
7.C51. P.CS1(RS)

{OF _LAST COMMAND ISSUED
:CLEAR FUNCTION OF CSI STATUS
:GENERATE CS1 STRTUS INFORHQTION

RKWC(R2),P.WCR(RS)
RKBR(RE),P.BAR(RS)
RKDA(R2),P.DTS(RS)
RKDS(R2),P.DS(RS)
RKER(R2),P.ER(RS)

iSTORE WCRD COUNT REGIS
:STORE BUS RDDRESS REGISTER
:STORE DESIRED TRACK AND SECTOR
:STORE DRIVE STATUS REGISTER
;STORE ERROR_REGISTER

MOV

MOV
MOV
MOV
MOV
MoV

RKCSE!RE) P.CS2(RS)

;CLERAR ALL BI1S EXCEPT FUNCTION

STORE COMMAND AND STRTUS REGISTER&

MOV

RKASOF (R2) ,P.RSOF (RS)

STgRESETTENTION SUMMARY AND

MoV
RTS

RKDCYL(R2),P.DCYL(RS)
PC

STORE CYLINDER ADDRESS
:RETU

C<REMDO RKE11-08 SS VERIF 1
10-JAN-78 11:48
CZREMD. P11

MACYLll

10-JAN-78
12:186
* GATHER DRIVE STATUS

.S BTTL

#GRATHER DRIVE STATUS

THIS SUBROUTINE WILL BE USED

BYTE

11.

JSR

TO GARTHER DRIVE STATUS

IS RSSUMED THAT THE DRIVE
IT RUNS AT PRIORITY 7.

HAS PREOIOUQLY BEEN SEIZED.

M5 me as 4s wo as @0

SES_Q4rS
SEQ 0136

RO,I.STA

RETURN

S S

CONTENTS

R2
RS

RKOE& BASE RADDRESS
ADDRESS OF PARAMETER

XZ22222223I2ITITII2L2LIII2S2S
RSS2SR
L2222 22222222 2

050302

112737
004037

000001
047620

003000

MOVB

012762

00004y
000046
000026

MOV

050332

003024
003026
000002

MOV
MOV

T.MR3!P.BC1(RS)
82, RKMR1(R2)

0s0o340
050346
0S0352
0S0354
050362
0S0370

112737
004037
0s0s04
013765
01376S
012762

000001
047620

003000

MOVB

#DR,SEL, T.CS1

003024
003026
000003

0000S0
0000se
000026

MOV

MOV
MOV

T.MR2, P A10(RS)

050376

112737
004037
0S0S04
01376S
01376S
00s0e2

000001
047620

003000

MOVB

%gn

#DR.SEL,

RO,
1 ISSU

003024
003026
000026

0000SH4
000056

MOV

CLR

T MR2, P A11(RS)

Rxnaxtna)

112737
004037

000001
047620

003000

MOVB

ggn

#DR.SEL,T.CS]

RO, 1. IS4U

003024
003026
001000

00coQo40
goo042

MOV

T.MR2,P.A00(RS)

032737
co1407

003026

.STAT:

MOV

%gn

MOV
BIT
BEQ

#1,RKMR1(R2)
#DR.SEL,T.CS1

RO, 1. 1S4u

T.MR2, P AD1(RS)

T.MR3,P.B10(RS)
#3,RKMR1 (R2)
T.CS1

MR3 P.B11(RS)

T.MR3)P.BOO(RS)
#S.PAR, T.MR3

S§

LOQD HRINTENQNCE REGISTER
FOR STATUS BYTE Ol

LOQD COMMAND
iGET STATUS BYTES 01
;ERROR RETURN
:STORE STATUS BYTE 01 MESS
:STORE STATUS BYTE 01 MESS
:LOAD_MAINTENANCE REGISTER
;

FOR STATUS BYTE

;

FOR STATUS BYTE

;

_FOR STRTUS BYTE 0O

:LOAD COMMAMND
!GET STATUS BYTES 10
:ERROR RETURN
:STORE STATUS BYTE 10 MESS
:STORE STATUS BYTE 10 MESS
:LOAD_MAINTENANCE REGISTER
{LOAD_COMMAND
iGET STATUS BYTES 11
;ERROR RETURN
:STORE STATUS BYTE 11 MESS
:STORE STATUS BYTE 11 MESS
:L0AD MAINTENANCE REGISTER

000026

000001

0127862

0so432
0so440
050444
0S0446
0S0o4sHy
0so462
050470

BLOCK

ROUTINES USED:
I.ISSu

0S0274

050426

FOLLOWING REGISTERS CONTRIN:

— oD

as
Bt @8 62 @
IR
e
W

L LSS

B BV W

THE

353

THIS ROUTINE ASSUMES

S 8N NN

£
o

345

197

PAGE

(2222222222232 222222222222 22223222 2222222 2222222222222222222222
2]

WS »> LB
8 B

£ LW
-~ Ow~

r
L

000
OLHDO”TNDSCNDOCKMDD
W
Lt
WWWwWwwwww

Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Dt Pt Pt Pt Pt Pt

10334
0335
336

Bl6

30A(10S2)

:LOAD COMMAND
{GEY STATUS BYTES 0O

;ERROR RETURN

;STORE STATUS BYTE 00 MESS A
:STORE STATUS BYTE 00 MESS B
'CHECK IF BAD PARTITY DETECTED BY DRIVE
; MO,

RETURN NORMALLY

CZREMDO RKE11-06 SS VERIF |
CZREMD.PLL
10-JAN-78 11:48
10390
10381

0s0472
050500
0S50S0
050S06

052737
004737
011000
000200

002000
050546

0s0os10
050516
050520

05276S
005720
000200

001000

MRCY1l

30A(10S52)

*GATHER

PRGE 198

8E . DPAR,E.CONT

0030se
3%:
000014

Clb

0-JAN-78
12:16
IVE STATUS

5%:

SES_ QY76
SEQ 0137

INDICRTE BRD PARITY DETECTED BY DRIVE

. RO
(R8)

{REPORT ERROR
LO?BRRU FOR ERROR RETURN

$PBSVAL ,P.PRST(RS)
(RO,
+

22%83; RO FOR NORMAL RETURN

PC,R. CONT

;SET PARAMETER BLOCK STATUS VALID

CZRBMDO RKB11-06 SS VERIF 1

CZRBMC.PL1

10-JAN-78 11:48

igagg

MACy11 304(10%2)

10-JAN-78

D16

12:16

#COMMON DRIVER RETURNS

.SBTTL

PAGE 199

#COMMON DRIVER RETURNS

10401
1C40
ig:gq

0S0S22
8585%5
505

1068037
004777
00ce20?

003101
132214

R.ABNL: CLRB
?R
RTS

INTMSK
PC,aR.RBNL
PC

; INHIBIT FUTURE DRIVE INTERRUPT REPORTING
.IN?XSQTE ABNORMAL RETURN
; RETURN

10405
10406

0S0S34
0S0S40

105037
004777

003101
132300

R.NORM- CLRB
JSR

INT!ISK
PC, dR.NORM

; INHIBIT FUTURE DRIVE INTERRUPT REPORTING
; INDICATE NORMAL RETURN

10409
10410
10411
i04l2
10413

050546
0S0S52
050556
0S056e
0S0Se6

105037
105037
00S037
004777
000207

003101
(CG31C<C
003114
132262

R.CONT: CLRB
CLRB
CLR
JSR
RTS

INTMSK
W.TIME
W.DRY
PC.aR.CONT
pPC

; INHIBIT FUTURE ORIVE INTERRUPT REPORTING
;RESET WATCH DOG TIMING ON THIS DRIVE
:CLEAR TIMING COUNT FOR THIS DRIVE
; INDICATE CONTROLLER ERROR RETURN
:RETURN

ig:gg

0S0S44

000207

RTS

PC’

; RETURN

SEQ Q477

SEQ 0198

CZR6MDO RKB11.06 SS VERIF !
CZR6MC.P11
10-JAN-78 11:48

WACY11 30R(1052)
10-JAN-78
#COMMAND INITATOR

ELG

12:16

PAGE 200

ig:{g

.SBTTL

18"01%

HH [T X T 2222222231222 222 22X

(0418
10419

Sx
T

{8353

10431

JSR

P ¥

RETURN

18332

,!
H »*

10437
10438
10439
10440
1044]
10442
{83:3

INTO A SEQUENCE OF COMMANDS

PC,C. INIT

FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE
LOCATIONS,

PBLKT

AND

INTMSK.

Ly
ROUTINES uszo
tw
W.WTCH
‘x
1.CSTS
tx
1.STRT
T
I.CCLR
P ¥
HHX YYZ22222222222222222222222:X22X:X2X22222X2X2X222FX22X2X2X2X22XES2XL

10445

0S0570

10450
10451

050602
050604

010046
013746

10455
10456
10457
10458
10469
ig:g?

05063C
050634
080640
050644
(50652
050660

016504
042704
010537
1169437
116437
0:3737

000000
177770
003112
003102 003101
003102 003100
003062 003114

fS:ES

0S0e66

013702

003036

10465
10466
10467
10468

:#CALL
;l

104349

10464

THE ABOVE COMMANDS ARE TRANSLATED

18333

READ SPECIFIED HERDER

*
H %*

10430

10462
10453
10454

RELEASE
CONROLLER CLEAR
SUBSYSTEM CLEAR
READ ALL DRIVE STATUS

et
’ %

050572
050574
050576
050600

050610
080616
080622

010546

C.INIT:

010946
010346
010246
010146

013737
017605
062766

177776

003042
000016
000002

MOV

000016

:
:
:
:

RS, - (SP)

:STORE RS ON STACK

MOV
MOV
MOV
MOV

R4, -(SP)
R3,-(SP)
R2,-(SP)
Rl ~(SP)

:STORE R4 ON STACK
‘STORE R3 CN STACK
*STORE R2 ON STACK
:STORE R1 ON STACK

MOV
MOV
ADD

MOV
BIC
MOV
MOVB
MOVB
MOV

RKPRI,PS
als(s#) RS
82, 16(SP)

*LOCK OUT RKO& INTERRUPTS
:STORE PRRAMETER BLOCK ARDDRESS
TADJUST RETURN

P. bRVN(RS)
:STORE DRIVE NUHBER
cfc<onvnsxi RH IMASK OUT JUNK
:LORD PARAMETER BLOCK TABLE
ORV(RH) xmrnsx sLOAD INTERRUPT MRSK
1 ORV(R4Y)
iW.TIME :SET WATCH-DOG TIMER FLAG
W.SEC, o
W kv
.{0AD WATCH-DOG TIME

MOV

RKBRS, R2

:LOAD R2 WITH RKO& ADCRESS BASE

MOV
MOV

177776

Y )

SPECIAL COMMAND ARE ALSO EXECUTED:

‘x
a
‘x
Tx

}8359

222222222222

THIS SUBROUTINE WILL INITIATE ALL COMMANDS AS SPECIFIED
BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING

; 4

10422
10423
10424
1042s

10446
10447
10448
10449

#COMMAND INITATOR

;

iS:S?

SEQ Q478
SEG 0199

RO, -(SP)
PS’ -(SP)

RESET ALL BITS

;STORE RO ON
STACK
:STORE PSW ON STACK

IN PROGRAM DEVICE STATUS REGISTER EXCEPT

ORIVE IN USE
WRITE FOR WRITE CHECK
NO CHECK
DROP DRIVE FRGM TEST SEQUENCE

INHIBIT BUS ADORESS INCREMENT

CZR6MDO RK611.06 SS VERIF 1
CZRBMD.F 11
10-JAN-78 11:48
0S0e72

042765

050700

010500
062700
010501
062701

9)
050710

075178

30R{10S2)

#COMMAND

10-JAN-78

INITATOR

000014

19%:

050746

300137

051462

050752

122765

000107

PAGE 201

RS,RC

00c0oe2

003074
000020
000026
000040

FL6

12:16

#tC(DRVUSE!W. WCK!NOCHK!DRPDRV!DTBRII>

oooo1e

0S0714

;STORE PARAMETER BLOCK RADDRESS

:CALCULATE FIRST LOCATION 70 BE CLEARED
:STORE PARAMETER BLOCK ADDRESS
:CALCULATE LAST LOCATION TO BE CLEARED

(RO)+

:CLEAR RETURN PARAMETER

RKfiRl(R2)

:CLEGR RKOB nnxnrsnnnce REGISTER 1

C.SPEC

;Jufip TO SPECIAL COMMAND PROCESSOR

RO, R1
s
R
CS2(RS)

:CHECK IF FINISHED
*NO, CLERR NEXT RETURN PRRAMETER
:CLEAR RELERSE on INTERRUPT ISSUED
:STORE DRIVE NUMBER

$BITS,P.CMND(RS)’ cuecx IF SPECIAL COMMAND
3s
:NO,
PROCESS

000001

SUNLORD,P.CMND(RS)

39:

:CHECK

101174

BHI

253

nsanxaanre

:
;s

050762
050770

2765
3540

000117

CMPB
BLO

000001

#SEEK,P.CMND(RS)

20%

OFFSFT
SEEK
UNLORD

:NO,

IF POSITIONING COMMAND

8TART SPINDLE

:
.
;
050760

,P.PRST(RS)

8P.CS1,RO
RS,R1
8P.EPAT,RI1

——

10470
1087
10472
10473
10474
1475
10476
10477
10478
10479
10480
10481
10482
10483
10484
10488
10486
10487
10488
10489
10490
10491
10492
10493
10494
10495
10496
10497
10498

MACY1l

DRIVE COMMAND

SELECT DRIVE

PACK ACKNOWLEDGE
CLERR

;CHECK

IF DARTR TRANSFER

QEEE
onrn TRQNSFER COMMANG
NRITE onrn

050772

051036

016562
052765
005037
122765
001007
glese2
0le562
000431

0S1040
051046
051050
0S1056
0S1064

122765
001007
116565
016562
000416

0S1066
0S1074
051076
0S1104
0sltle

122765

e e

e e o

Y oY Sy Uy Sy WY S

0000000000000 00000000
iy
anninannn wn
PO PN DY = 0 e b 0 b e = e = (3O O o0
NILWL-OVONTNIZWNN—-OVO
Nn

10504

0010063

. WRITE
P.CS2(RS), RKCS2(R2) : LOAD oaxve NUMBER
convpos P PRST(RS) ;SET DRIVE POSITIONIMNG

000020
000002
003054
000117

000010
000014

0oooa2
000004

000020
000006

000115

000001

000006
000032

000032
000016

000111

000001

6%:

003066
000113

003114
000001

’3%:

0.WAIT
"CLEAR WAIT FOR COMMAND
csssx P.CMND(RS)’ ;CHECK IF SEEK
ss
.HG. CHECK FOR OFFSET

000001

P.CYLN(RS),
Rxocvttaé) -LORD chxnoen ADDRESS
P.SECT(RS)' RnDA(R2) :LOAD SECTOR AND TRACK
8%
;GO tssus COMMAND
Ss:

8OFFSET,P.CMND(RS)

;CHECK

IF OFFSET

ss
“NO’ CHECK FOR UNLORD
P.OFST(RS),P.ASOF (RS) ;STORE OFFSET
P.ASOF (RS) |nxnsortna) :LORD OFFSET REGISTER
8%
;GO ISSUE COMMAND
BERTSPL P. CHND(RS)O
CHECK IF START SPINDLE
HECK IF RECAL

W.MIN,W
Loho WATCH DOG TIME FOR 1 MINUTE
$RECAL ,P.anO(RSS CHECK IF RECAL

Nb CONTINUE

R6MDO RKB11/06 SS VERIF 1
REMD.P11
10-JAN-78 11:48

MACY1l 30A(10S2)
10-JAN-78
%*COMMAND INITATOR

0S26

003114

0S1114

013737

0527
8%5%
0530
0531
0532
0533
0534
0S3S
0536
0537

051122
051130
0S1136
051144
051152
0511€7
051162
061170
051176
05i202

116565
042765
116565
042765
032765
0601533
042765
016562
004737
016237

0539

051216

001767

0538
0540
0S4]

0S42
0543
OS44

054s
0846
0547
0548

gggg
0551

051210
051220
051226

051230
0S5ie34
0Sies2
051250
061252
051256
0S!262

032737
032737
001011

004737
01237
133737

001767
105037
005037
004737

000406

8235

003100
003114
050534

032765

G51350

0575
0576

003014
003015

000131

001404

0S63
0564
0565
0566
0567
0S68
0569
0570
0571
0572
0573
0S74

045140
000016
003101

051332
051342

051352

ISR
MOV
8178

BEQ
CLRB
CLR
JSR

'CHECK IF WRITE CHECK COMMAND

8l WCK,P.PRST(RS)

;CHECK IF WRITE COMMAND SHOULD BE ISSUED

$WRDATA,P.CS1(RS)

> ISSUE WRITE COMMAND

000016

142765

177750

000017

051414

001403

0S2765
016562
032765
001403
0949765
C.6562
000137
122765

-NO,

BEG

25%

-NO|

269

GO’ ISSUE COMMAND

MOVB

P.CMND(RS).P.CS1(RS)

BIC
MOVB
BICB
MOV

BIT

000020
000020
000400

000020
000010
000014

27%:

000100
000016

000016
000000

30%:

BIS
MOV
BIT
BEQ
BIC
MOV
IMP

000141

000001

BEQ

C.SPEC:

P.WC(RS) . RKWC (R2) ;:LOAD WORD COUNT REGISTER
P.CYLN(RS) ,RKDCYL (R2) :LOAD CYLINDER ADDRESS REGISTER
P.SECT(RS) 'RKDA(R2) ;LOAD SECTOR AND TRACK NUMBER
258

000014

.SBTTL

:RESTORE REGISTERS

BNE

100000

0S244e

SWAIT FOR DRIVE INTERRUPT
'RESET
TIMING ON THIS DRIVE
:CLEAR DRIVE TIMING COUNT
:INDICATE COMMAND IS FINISHED

SWRTCHK,P.&MND(RS)

000001

003054

11%
W.TIME
W. DRV
PC.R. NORM

PC,W.WTCH
‘CALL WATCH DOG TIMER
RKASOF (R2),T.ASOF ;STORE ATTENTION SUMMARY
INTMSK, T.A80F+1 ;CHECK IF INTERRUPT HAS OCCURRED

:LOAD BUS ADDRESS REGISTER

116565

032765

: CHECK FOR ERROR
'YES, GIVE NORMAL RETURN

P.BALO(RS) ,RKBA(R2)

MOV
MOV
MOV

MOV

268:

#CERR, T.CS1
158

MOV

000016
25%:

‘WAIT FOR RERDY

C.ATRN

000123

000014
000017

sROY, T7.Csl

IMP

012765

010537

0Si4e2

BIT
BNE

BIT

000200
000607

.LOAD RECAL TIME FOR B8 SECONDS

10%

000014

gggg
0SB81

20%:

W.8SEC,W.DRV

BEQ

000200

0S1402

O0S14le
051424
051432
051440
051442
0514s0
051456

000004

SEQ g480
SEG 0201

P.CSIHIRS),P.CS141(RS) ;STORE BITS B8-15 OF CSl
OfC<CFMT!CbT>,P.CSlézg)oéngR$Yg%L BITS EXCEPT FORMAT
P.CMND(RS),P.CS1tRS) :MOVE COMMAND INTO CSl
#il. WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK
sNOCHK
| P.PRST(RS) :CHECK IN NO CHECK MOCE
308
;0. SKIP CLERR OF INTERRUPT ENABLE
8IE.P.CSI1(RS)
:CLEAR INTERRUPT ENRBLE
P.CS1(R5),RKCS1(R2) ;1SSUE COMMAND
PC. W.WTCH
:CALL WATCH DOG TIMER
RKESI(R2), T.CS1 :STORE COMMAND AND STATUS REGISTER |

CMPB

042765
116565

0S1406

118:

PAGE 202

MOVB
BIC
MOVB
BIC
BIT
BEQ
BIC
MOV
JSR
MOV

BIT

15%:

000082
000020
000006

MOV

000001

051360
051366
051374

0000i2
000002
000004

108:

003000

122765

051322

016562
016562
016562

000014

100000

000010

051340

0562

000200

016562

001010

8229

000016
000000
003000

051272

051336

0558

000100
000016
045140
000000

000400

052442

0556

0558

J00017
000016
000016
000014

000137

051300
051306
051314

0557

000007
165777
000001
000200

051366

0552
0583
0584

0555

003064

.Gl6

12:16

"GO ISSUE THE COMMAND
ISSUE THE COMMAND

:MOVE COMMAND INTO CS!

8l WCK,P.PRST(RS) :RESET WRITE FOR WRITE CHECK
P.cszntRS)'P.c51+1tR5) {STORE BITS 8-1S OF (Sl
i
84C<B.CFMTIB.CDT!'B.BRI6IB.BARLI7> ,P.CS1+1(RS) ;CLEAR ALL BITS EXCEPT
: 'FORMAT. DRIVE TYPE, AND BUS ADORESS
. BITS 16-17
RS,0.NAIT
'LOAD WAITING FOR COMMAND
s01BAI1,P.PRST(RS) ;CHECK IF INHIBIT BUS ADDRESS INCREMENT
27%
:NO’
LOAD CS2
8BAI. P.CS2(RS) :SEY INHIBIT BUS ADDRESS INCREMENT
P.CS2(RS),RKCS2(R2) ;LORD CSe
#NOCHK
, P.PRST(RS) :CHECK IN NO CHECK MODE
30%
:NO. SKIP CLERR OF INTERRUPT ENABLE
8IE.P.CS1(RS)
:CLEARR INTERRUPT ENRBLE
P.C81(R5),RKCS1(R3) ; ISSUE COMMAND

C.RTRN

:RESYORE REGISTERS

¥SPECIAL COMMAND PROCESSING
CMPB

#ROSTAT,®.CMND(RS)

;CHECK IF RERD DRIVE STATUS

CZRBEMDO RKE11-06 SS VERIF

CZREMD. P11
10582

0S1470

MACY11l

10-JAN-78 11:48
001132

30AR(10S2)

H16

10-JAN-78

12:16

*SPECIAL COMMAND PROCESSING
BNE

PRGE 203

108

.NO,

SEG Q48!

SEQ 0202

PROCESS OTHER COMMANCS

10583
10584
igggé

0S1472
051500
051506

016562
116565
042765

000020
000007
165777

000010
000017
000016

MOV
MOVB
BIC

P.CS2(RS) ,RKCS2(R2)' :LOAD CS2 FOR COMMAND
P.CSIH(PS),P.CS1+1(RS) ;STORE BITS 8-15 OF CSI
#+C<CFMTICOT> ,P.CSI1(fio ok?bE“?vgkL BITS EXCEPT FORMAT

10587
10688
10589
10530
18591

0S1SI4
051522
061530
051534
051542

112765
016562
004737
O0l6265
032765

000001
000016
045140
000000
000200

000016
000000

MOVB
MOV
JSR
MOV
BIT

%OR.SEL ,P.CS1(RS} :STORE COMMAND
P.CS1(R5),RKCS1(R2); ISSUE COMMAND
PC, . WTCH
-CALL WATCH-DOG TIMER
RKES1 (R2),P.CS1(RE):STORE COMMAND AND STATUS REG. 1
sROY,P.CSI
(RS) ;WARIt FOR REARDY

10843

Q51852

004737

0s0212

10592

0S15S

001767

016265

000016
000016

{gsqq

021553

16599
10600
10601
10602

051606
05161
05162
051622

005037
8 2765

10604
10605
10606
10607
10608
10609

05lbs2
051636
051640
051646
0S1650
0S1656

004037
0S2442
£32765
_11007
032765
001003

010400

000020

00000:f

000036

10611

0S1ebb

004737

050522

004037

0S0274

2%:

BEQ

JSR

800034

ogogqg

283

003114
000400

000014

CLR
BIT

001000

000020

iP=237 Beiz53 QBissez B8B83 68351E
10597
051600
001436
10598 0S1602 105037 003100

10601

10610

051630

051660

1043
032765
001043

10614

051676

052765 010000

0S1702
051704
051710
051714
0S1722

052442
105037
005037
032765
00I402

10621
igggg

051730
051734

004737
000137

10624

0S1740

052737

igggg

051752

000137

003100
003114
000400

10620 051724 00S062 000000
10625

000014

050534
052442
100000

8%:
003052

0SOS46

0S1756
051764

122765
001040

000140

000001

10632

0S1772

052765

000010

10634

052006

112737

000001

9%:

052442

10630 051766 010537 003054
10631

5%:

.STORE CONTROLLER REGISTERS

.cmi,p 24T (RES EHECK ?r c NIROCLER E 83s
R DRIVE STATUS
TIME
REéET unrca DOG TIHING ON THIS DRIVE
u DRV
'CLEAR WATCH DOG
C
#NACHK, P. PRST(RS} :CHECK TF NO CH E
8%
:YES, INDICATE NORMAL RE URN
#MDS,P.CS2(RS) :CHECK IF MULTIPLE DRIVE SELECT

BIS

soR»szo P.PRST(RS) : INDICATE onxvs IS SEIZED BY OTHER PORT

RO, I.CCLR

YES,

INDICATE CONTROLLER ERROR

CLEAR ERROR
‘ERROR RETURN
SNED' UFE,P. csa<né) CHECK IF NON-EXISTENT DRIVE OR UNIT FIELD ERROR
S%
REPGRT ERROR
#DRA,P.DS(RS)
CHECK IF pp‘ve AVAILIRBLE
:YES, REPOKT ERROR

JSR

IMP

JSR

RO, I.STAT

:GATHER DRIVE STATUS

RKCS1 (R2)

CLtnn INTERRUFT ENABLE

$E.MDS, E.CONT

;SET MULTIPLE DRIVE SELECT

C.RTRN
CLRB
CLR
BIT
BEQ

CLR

JSR
JHP
BIS

fiL

xnb;cnrs ABNORMAL RETURN

'RESTORE REGISTERS

:ERROR RETURN
W.TIME
:STOP WATCH-DOG TIHING ON DRIVE
W.DRV
'RESET WATCH-DO0G
SNOCHK, P. pnsrcnsi cnecx IF NO cuscx MODE
8%
NG,
REPORT ERROR

PC,R.NORM
C.RTRN

: REPORT COMMAND COMPLETE
:RESTORE REGISTERS

JSR

PC.R.CONT

CMPB
BNE

SRELERS,P. CMNO(RS)
138

JHP
10%:

1.CST1

gfiggegsg;; nogggs>g;ons
STATUS a;¥s ao ggggggg

BNE

JSR
C.RTRN
BIT
BNE
BIT
BNE

6%:

004737

10628
10629

051746

BNE
BiT

047536

igg{g 051672 000137 052442
10615
10616
10617
10618
10619

BEY
BEQ
CLRB

C.RTRN

:INDICATE CONTROLLER ERROR
:CHECK IF RELEASE COMMAND
CHECK IF RERD ALL HEADERS

MOV

ns O.WAIT

STORE PARAMETER BLOCK ADDRESS IN

000020

BIS

#RLS,P.CS2(RS)

ssr RELERSE BIT

003074

MOVB

#1, 1.ISRL

-SET'FLAG FOR RELEQSE COMMAND

10633 052000 016562 000020 000010

10635 052014 116565 000007 000017
{gggg 082022 042765 165777 000016

MOV

MOVB
BIC

WARIT FOR conn ND

P.CS2(RS), RKCS2 (R2) ;LORD CS2 FOR DESELECT

p.csxa(a P.CS141(RS);STORE BITS 8-15 OF (Sl
81C<CFHT'00T>CSléfigsoh?bEg$rgéL BITS EXCEPT FORMAT

CZREMDO RKB11-06 SS VERIF 1
CZREMD.PIL
10-JAN-78 11:48

10638

052030

10640

0S2044

10639

112765

000101

052036

032765

000137

052442

122765

000164

001403

000400

MACY11l 30A(10S2)
10-JAN-78
12:16 PAGE 204
%SPECIAL COMMAND PROCESSING

000016

000014

igg:a

0Se0e2

118:

10645

0S2066

13%:

10646
10647
10648
10649
10650

052074
0S2076
0521C2
052110
Q0S211ie

001053
010537
016537
13276S
001404

igggg

0Seiee

000403

10654

052130

012737

000001

003054

000010 003070
000020

000007

10651 052120 012737 000024 003072
10655
10656
10657
10658
}gggg
10661
10662
10663
10664
{8222

0S2136
0Se2144
0S2i52
052160
0S21eb
0S2i74
0S2202
0Seel0
0Seele
0S2220

052442

1227¢S

000176

10667

0Seee4

10670

0Se224Q

QSe442

igg;g

052256

000467

10676

052260

10668
10669

0See32
052234

000026

016562
016562
016562
116565
042765
112765
032765
001027
016562
000137
001012
004037

000002
000004
000020
000007
165777
000125
000400

003072

#SELDRV,P.CS1(RS)

BEQ

lIE CS1(RS) REQET INTERRUPT ENRBLE
CQI(RS) RKCSl(flE) ISSUE COMMAND

BIC
MOV

JMP

CMPB

14%:

000001

308:

cmMPB

; INDICATE NORMAL RETURN

10682

052304

Q0l2762

000040

000010

36%:

MOV

10685

052326

001406

052737

000001

10688
igggg

0S2336
0Sa342

004737
000437

050546

igggé

052344

013746

003060

10e93

052350

01e265

000000

10687

052330

cMPB

ERROR RETURN

#NOCHK, P. PRST(R55 CHECK IF _NO CHECK MODE
40$
NO, INDICATE NORMAL RETURN
RKCS1(R2)
REQET INTERRUPT ENABLE
#SUBCLR,P.CMND(RS)

368
IE ILLD,E.CONT
R.CONT

;CHECK IF SUBSYSTEM CLERR

s YES, CLEAR SUBSYSTEM
:SET ILLEGAL DRIVER COMMAND
:REPORT ERROR

CkTRN

{RESTORE REGISTERS

MOV

BIT

RKCS1UR2) ,P CSl(fiS) :STORE COMMAND AND STATUS REGISTER 1|

#SCLR RKCS2(R2)

;ISSUE_SUBSYSTEM CLERR

BEQ

BIS

37%

#BITO,E.CONT

;NO,

JSR
BR

PC,R.CONT
C.RTRN

37%:

MOV

W.MILI,-(SP)

38%:

MOV

RKCS1(R2),P. uSl(hS) : STORE CSl

003052

0000le

;CHECK IF CONTROLLER CLERR

40$

BIT
BEG
CLR

34%:

10685

#8CONCLR,P.CMND(RS)

C.RTRN

0030S2

10684 052320 032765 100000 000016

P.CYLN(RS),RKDCYL (R2) ;LOAD CYLINDER RDDRESS
P.SECT(RS) 'RKDA(R2) ;LOAD TRACK NUMBER
P.CS2(R5) AKCS2(R2):iLORD DRIVE NUHBER
P.CSIH(RS) P. CSl+1(R§) ;STORE BITS 8-15
0O
stC<CFMTICOTS, CSl&fiS FbSLS¢R ALL BITS EXCEPT DRIVE TYPE
$ROHERD, P Sl(RSi; STORE RERD HEARDER COMHQND
SNOCHK, P. PRST(RS) :CHECK IF NO CHECK
348
YES, INDICATE ILLEGRL ORIVER COMMAND
P.
CSl(RS)
RKCSI(QE)
ISSUE RERAD HERDER
C.RTR
fORE REGISTERS
:NO. CHECK IF SUBSYSTEM CLERR
CLeRR CONTROLLER

000100
0SOS46

000016

LOflb €0 _IN SECTOR COUN

3298
RO, I.CCLR

BEQG
BIS
JSR

000000

320 ,HOR.CT

BNE
JSR

328:

016265

3OS

; CHECK IF READ ALL HEQOERS

;LOARD 22 IN SECTOR COUNT

MOV
MoV
MOV
MOVB
BIC
MovB
BIT
BMNE
MOV
JMP

000001

052312

SRDALHD, P.CHND(RS)

822. ,HOR.CT

MOV

000177

10683

ES*ORE REGISTERS

;GO ISSUE READ HERDER COHHQND

001406
0S2737
004737

iggg? 052302 000457

C.R

2es

052266
052270
052276

10677
10678
10679

DO NOT RESET INTERRUPT ENARBLE

BR
22§%:

047536

;NO, CHECK IF CONTROLLER CLERR
WAIT
:SEY WAITING FOR COMMAND COMMPLETION
PQRLO(RS) HOR. Qfi;LORD HERDER RADDRESS
#B.CFMT,PCSIH(RS) ;CHECK IF 22 SECTOR FORMANT
148
YES, LOAD 22 IN HEQDER COUNT

000020
000006
000010
00C0L17
000016
000016
000014

000016 000000

;STORE
COMMAND

.NOCHK P.PRST(RS) :CHECK IF NO CHELK MODE

BNE
MOV
MOV
8l18
BEG

MOV

10671 0Seged4e 032765 000400 000014
10672 0S2250 001472
10673 052252 005062 000000
122765

Move

BIT

10641 0S2046 042765 000100 000016
10642 0S20S4 016562 000016 000000

SEJ _Qu82
SEQ 0203

#CERR,PCQI(RS) ,CLEAR IF CONTROLLER ERROR RESET

FINISH COMMAND

:SEY CLEAR SUBSYSTEM DID NOT CLEAR
;

_CONTROLLER ERROR

:REPORT_ERROR
:RESTORE REGISTERS

LOflg é?SHI%é
SECOND COUNT FOR RTTENTION

6100 RKb611-06 SS VERIF 1
eMD. P11
10-JAN-78 11:48

MACY1l

694

695
696
697
698
699

052364
052366
052370
052372
082374

001411
005316
001367
005726
0S2737

040000

000016

000040

003052

701

0S2402

052406

004737

000415

050546

0704

0S2410

005726

it e Pt Pt P

700

;gg

052356

032765

J16

30A(10S2)
10-JAN-78
12:16
PAGE 205
#SPECIAL COMMAND PROCESSING

BIT

398
(SP)
38%
(SP)+
8E.SCLR,E.CONT

JSR

PC,R.CONT

BR
39s:

TST

052412
052420
052422
052430
052436

032765
001010
112737
012762
004737

000400

000014

177777
000100
0S0S534

003074
000000

0711

0S2442

012637

177776

0713
0714

052450
052452

012601
012602

MOV
MOV

0716
0717
0718

052456
052460
0852462

012604
012605
000207

MOV
MOV
RTS

s Pt Pt e Bt Pt Bt Bt Pt Pse P B Pt P Pt Dt Pn Pt Pt Dt et Pt Pt P

0705
0706
0707
0708
8;?3

0712

0715

8358

052446

052454

012600

408 :
C.RTRN:

012603
.SBTTL

BZSé

80I,P.CS1(RS)

BEQ
DEC
BNE
TST
BIS

BIT
BNE
MOVS
MOV
JSR
MOV

SEQ Q483
SEQ 0204

;CHECK

IF ATTENTIONS CLEARED

{YES, FINISH COMMAND
:DECREMENT 16 MILISECOND COUNT
:CHECK DRIVE INTERRUPT AGAIN
;ADJUST STACK
iSET SUBSYSTEM CLEAR DID NOT CLEAR

_DRIVE ATTENTIONS

:REPORT _ERROR

C.ATRN

‘RESTORE REGISTER

(SP

ADJUST STACK

(SP)+,PS

;RESTORE PSW

(SP)+.R1
(SP)+.R2

'RESTORE Rl
'RESTORE R2

unocnx P.PRST(RS} :CHECK IF NO CHECK MODE
c. R RN
. YES, RESTORE REGISTERS
,1.ISRL
{SET" INTERRUPT ENARBLE SET
MIE’RKC21(R2)
iSET_INTERRUPT ENABLE
PC,R.NORM
:INDICATE NORMAL TERMINATION

MOV

(S5P)+ RO

MOV

(S5P)+.R3

{RESTORE RO
;RESTORE R3

(5P)+.RY
(SP)+ RS
PC

'RESTORE RY
:RESTORE RS
:RETURN

OCTAL TO BINARY CONVERSION ROUTINE

H ‘!!l!!*lIllil»ll!*!l!llllil*illlllfiillllllll!llllli!ll*iil!ii!lflli

;

0724

WITH
A NULL

<000>

AND

0723

0725

8%59

THIS ROUTINE WILL CHECK
AR STRING OF ASCII

OR COMMA.

CHARACTERS TERMINATED

IF THE CHARACTERS ARE LEGAL

11 WILL GENERATE TWO BINARY WORDS PLACING THE LOW IE BiTs
THE

STACK

THE

HIGH

16 BITS

IN LOCATION SHIOCT.

; ®

0728
0729
0730

: #CALL
Sx
D

MOV
JSR

RETURN

<nooness OF ASCII
CTBIN

8;3;

:H (2222222222222 2222222232222 22222222232 222222222 2222222222222

00 Dt Pt Pt ot Pt Pt Pt v

0731

8?33

0736

0737
0738
0733
10740

10741
10742

10743
10744

052464

052466
052470
052472
052476

052500
052502

052504
052506

010046

010146
010246
016600
005001

000010
2%:

001423
121627

000054

122716

000060

052512

001420

10747
10748
10748

052520
052522
052526

(003030
122716
(002425

082514

OCTEBIN:

005002
112046

10745
10746

{ADDRESS Of ERROR RETURN>

STRING>,-(SP)

000067

MOV

RO, -(SP)

MOV
MOV
MOV
CLR

R1.-(5P)
R2,-(5P)
16tsP), RO
R1

BEQ
CMPB

33
(SP),s",

CLR
MOVE

BEGQ

CMPB

BGT
CMPB
BLT

Ra
(RO)+,-(SP)

$°0, (SP)

4g
87, (SP)
4%

;SAVE RO

!SAVE Rl
:SAVE R2
:GET ADDRESS OF ASCII STRING
:CLEAR DATA WORDS
;PICK_TH1S CHARACTER

:1F ZERQ GET OUT
ICHECK IF COMMA

:IF COMMA GET QUT

:MAKE SURE THIS CHARACTER 1S

OCTAL CIGIT

CZREMDO RKB11/06 SS VERIF 1
CZREMD. PL1
10-JAN-78 11:48
006301
00ei02
006301
00el102
006301

0Se600

4s:

SHIOCT:
.SBTTL

0Seelb

00
0

)

000002

0See02

——

PN
s s Y0
V+++T0+
O e .
—~2DVDOWV
OO

000010
0S2ble

39:

177770

052530

PAGE 206
12:16
10-JAN-78
OCTAL TO BINARY CONVERSION ROUTINE

SES_Qusy
SEQ 0208

30AL10S2)

¥2

;

:STRIP THE QSCII JUNK
fDD THIS DIGIT
OoP

:CLEAN PARTIAL FROM STACK
:SAVE RESULT
:RESTORE R2

:RESTORE RI
{RESTORE RO
*ADJUST RETURN
: RETURN

!RESTORE R2
{RESTORE Rl
;RESTORE RO

RD
RANDOM NUMBER G

YTt TSI I T

;CLEAN UP PARTIAL FROM STRCK

O~nUY

107s0
10751
10752

MARCY1l

!PUT_ADDRESS OF ERROR ROUTINE ON STACk
:GO_PROCESS ERROR
HIGH ORDER BITS GO HERE

ENERATOR kourxNE

IITTRRL LI IT IR TZZ I 2 T 2T T E 8 8BS

habhobobotodtad fodofaedded

iTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

:¥WITH A RANGE OF O TO 2(+33)-1.

&CRLL

s ®

JSR
RETURN

PC, SRAND

{iNUMBER WILL BE IN

; s SHINUM, SLONUM

052620
0Seeec0
g52622
0Se2ee4

052626
052632
052636
0Saek4e
0Sa644
052646
052650
05e6se
052656
052660

052706

,,CRLL THE ROUTINE
;RETURN HERE THE RANDOM

$RAND:

;PUSH RO ON STACK

,,PUSH Rl ON STARCK

USH R2 ON STACK
,,P
;:SET 0 WITH LOW
;;SET R1 WITH HIGH
.;SET SHIFT COUNT
:SHIFT RO LEFT AND

1%:

052720

aLONUH RO

052716
001057

51057RO

047401
052720
052716

SHINUM,R1
47401

,R1

RO, SLONUM
R1.SHINUM
(SP)+,R2

!ROTATE CARRY INTO R1 AND
CHECK FOR DONE
.,CONTINUE SHIFT LOOP
E0D NUMBER To MAKE X 123

| PROPOGATE CARRY

!aDD NUMBER TO MAKE X
*1ADD LOW_CONSTANT
! ! PROPOGATE CARRY
,,noosuégu CONSTANT
; SAVE
R

..POP STRCK INTO R2

129

Nty
0D

6"00 RK&11-06 SS VERIF 1
eMC.PL1
10-JAN-78 11:48

P 9

e s Berm s B Bt Pt Pt P Pre Pt Bt Dt Pt Pt Pt Pt Bt e Pt Pt P Pt s e Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pt s Pt s

e Bt Pt Dt Pt Pt Pt Pt Pt Pt P

0000000000000 0000000000000000000N

806

807
808
809
810
gié

052710

052712

052714
052716
052720

MACY1l

L16

30A(10S2)
10-JAN-78
12:16
_PAGE
RANDOM NUMBER GENERATOR ROUTINE

0l260!

MOV

012600

(SP)+ Rl

MOV

000207
176543
123456

815
16

!TH§
ROUTINE HI%L INSE
gHEER
ONTRIN
HE

gig

;lNOT

: #NOT E:

s i

st ssstssstals

QF NU%%
HQRRCTERS
QFTER
A Lé FEED.
CHRRACTE
ILLER CHARACTER.

SFILLS CONTAINS THE NUMBER OF FILLER CHQRRCTEPS REQUIRED.

FILLC

CONTAINS

THE

CHRRACTER

FILL

AFTER

; #CALL

gel

238 USING A TRAF INSTRUCTION

gs%

*OR
X

824

‘e

825

Q%2722
052726
052730
052732
052734

105737
100002
00C0CO0
000430
010045

833
834

0Se736
0Se74e
052750

001011l

837

052760

001405

835

HE3

820

sttt dt st

‘ROUTINE TO TYPE RSCIZ HESSRGE MESSAGE MUST TERMINATE WITH A 0O BfTE

g1z

822
829
830
831
832

s s

; 1RETURN

I3 a1 S il

INTO Rl

,.POP STACK INTO wG

813

BlY

SEQ_g48s
SEQ 0206

; +POP STACK

(SP)+,R0

RTS
PC
.WORD
176543
.WORD
123456
TYPE ROUTINE

SHINUM:
SLONUM:
.SBTTL

207

017600
122737

000002
(000001

, MESADR

: +MESRDR

STPFLG
13

:: 1S THERE A TERMINAL"
;sBR IF YES
,,HRLT HERE IF NO TERMINRAL
i
Av
; SAVE RO

MESADR

$TYPE:

7578
BPL
HALT
BR
MOV

33
RO, -(SP)

BNE

62$%

19:

001340

FIRST

ADDRESS

MOV
cMPB

a2tsPi, RO
8APTENV, SENV

GO CHECK

FOR RPT CONSOLE

BITB

838
839

0Se762
052766

MoV
JSR

RO,61$8
PC.SRTY3

SEYUP MESSAGE ADDRESS FOR APT
,,SPOOL MESSRGE TO RPT

841

0S2774

BITB

S$APTCSUP, SENVM

,,QPT CONSOLE

840

052772
0St420

132737

000040

052772

00090

053002

001003

053006

001005

053012

012600

053020

000002

850
851
852
853

053026
053030
053034
053

001430
122716
001306
005726

8S5S
856
857
858

053042
053044
053050
053052

001313
10S0-7
00075S
004737

880
gl

0S3062
0S30e4

0013S0
013746

842

843 053004 112046
844

84S

846

05301

847

0S3014

849

0S3022

848

8S4

859

(053040

053056

005726

062716

000002

122716

000011

Q01341

BEQ

61%:

6&.S:

2s:

60%:

60%

MOovB
S

MOV

001154

(RO)+,-LSP)
(SP)+

(SP)+ RO

NO,GO CHECK

; MESSAGE

SKIP

FOR CONSOLE

RESS

SUPPRESSED

TYPE 0¥T

PUSfl CHRRQCT R O BE TYPED ONTO STRC¥K
? % A? THE TERH;NQTOP
F

TERMINKRTOR POP

:RESTORE RO

82, (SP)

.,QDJUST RETURN PC

4%:

cMPB

84T, (SP)

,,BRQNCH IF (HT

053200

001156

BNE

RTI

BE@
cMPB
BNE
TST

8s
8CRLF, (SP:
-1
(SP)+

SCRLF
CLRB
BR
JSR

SCHRRCNT
23
PC,STYPEC

BNE
MOV

2s
SNULL,-(SPy

TYPE

0S3134

R00

10440,

123726

.WORD

#APTSPOOL, SENVM ;,SPbOL MESS Gs

33:

000200

5%:

6%:

STRING

:GET ADDRESS OF ASC1Z STRING
..RUNNING IN APT MODE

836 052752 132737 000100 001341
010037
004737

ARSCIZ

TYPE

001157

YPE

CMPB

$FYLLC, (SPi+

IT OFF

RE TURN

NOT

~
<CRLF:

«CR><LF>

EQUIV

: ;BRANCH

;POP_

,,TYPE A CR AND LF

.,LLERR CHARACTER COUNT
;s GET _NEXT CHARACTER
.iGO TYPE THIS CHARRCTER

.;IS IT TIME FOR FILLER CHRRS."
IF NO
GET 8

THE STACK

GO GET NEXT CHAR
OF FILLER CHARS. NEEDED

<ZREMDO RKk611l
SCREMG.PLL

10862
10863

VERIF

10-JAN-78

11:48

105366

00000!

MACr11

30A.1052)
TYPE

M16

10-JAN-78

ROUTINE

s ¥

053134
0S3200

PRGE

12:16

{ANG THE NULL CHAR.
;:COES A NULL NEED 70 BE TYPED®

1§SP

Oece

T5R

::BR
]F NO--GO PCP THE NULL CFF OF STARCK
::GO0
TYPE A NULL
; ;00 NOT COUNT RS R COUNT
; LOOP

Bc.srvpsc
SCHARCNT

DeECB
BR

208

7€

112716

000040
053134
000007

053200

126010

AR AR PTRA AR

W W WWW

;HORIZONTAL TARB PROCESSOR

W W W

38082
105ee?
000000
000207

BS:
qs:

STYPEC:

126082
00000e

053200
00Cule

(DQGND%GHDQ

0000a2

MOVB
JSR
BITB

88
1671

s’

(SP)

,,REPLRCE

TAB WITH SPACE

pc,$T7PEC
87 SCHARCNT

..BRQNCH IF NOT AT

(SP)+

SPQ E OFF8TQSK
..PSP

3s’

B8PL
MOV
CMP
BNE
CLRB
BR
19:
cMPB
BEQ
INCS
SCHARCNT:
. WORD
$TYPEX: RTS

2
asrps
$TYPEC
2.5P) . asTPB

ocn 2tsp)

18
SCHRARCNT
ST;PEXSP

S§YPEx
8

(

TYPE
R SPRCE

; TRB

STOP

WRIT UNTIL PRINTER IS RERDY
..LOQD CHAR TO BE TYPED INTO DRTA REG.
; 1S CHARACTER
A CRARRIAGE RETURN?
: ;BRANCH IF NO

,,YE?--CLEQR

CHRRACTER

COUNT

.,és CHQRQSTER A LINE FEED”

)

ANCH

: :COUNT THE CHRRQCTER

( PC,+

: ; CHRRACTER COUNT STORRGE

REREEEEBBRRERERRERREEEREER
AL ERERA R ERERRRRRB R B R R A AR RAEREREARERRD

0wt

'&BTTL

053204

00s000
005001
012746
006000
006001
006002

. *.ilfilllfii

e Pt Pt P Pt Pt B Bt Pt s P Bt Pt e Pt P P Pt Pt Pt P
O00000000D
0000000
Mo W [exoo
e oo
@
[seluslselee o0
v 0] oamm o~
~N
oo ne [NT, V=
W

000770

Bt Do 0t Bt Bt Pt Pt Pt Pt st et Pt Pt e Bt P Bt Pt e Pt Pt Pt n Pt Bt P P
0000000000000
0000
DD DODDDDD DO OOL
[
Y
Y ve = QO0O00
NOCNLWNN—-0O <D NN
L
n

DOUBLE-PRECISION MULTIPLY SUBROUTINE

GEBS

INTEGERS

PC,M.DPIM
ENTER HITH
SR
-R
MULTIPLIER IN RE

MULTIPLICAND IN R4-RS
PRODUCT RET URNED IN RO-R1-R2-R3

ZIZXIXIIIXIIZIIZIZIZIZSLIZIISISLIZILSL

h DPIM: CLR
000041

P E ;go DOUBLE PRECISION

Rl RectsTeks

M.DPOIL:

2222222222222 2222222

;CLERR HI

ORDER WORDS

:MOVE 33

(DEC)

;SHIFT
:NO

TO CGCUNTER

TO ADD

CRRRY NO ADD

;ADD _DOUBLE PRECISION

053236
0s3e40

001366
00€726

M.DPO2:

2222222

DECRggEgT CCUNTER

:REMOVE THE COUNTER

TO OBTAIN NEW PARRTI

BO1

_12:16

RTS

000207

SEQ_Q487

000 I

BRI

DOUBLE-PRECISION DIVIDE SUBROUTINE

SUBROUT INE 70 PERFORM DOUBLE-PRECISION INTEGER DIVISION
USES ALL REGISTERS (RO-RS)

ENTER WITH
JSR
DIV

IR ITII22 2222 22

'DPID:

SEG 0208

333369
3 3 9 3 300 00 3 0T 000 000

QBTTL

000040

PRGE 209

DOUBLE-PRECISION MULTIPLY SUBROUTINE

0S324e

11- 48

10-JAN-78

-—

Q9is
9

10-JAN-78

MACY11 30R.1052)

PC M.OPID

IN R0-R1-R2-R3

RY-RS
IN
REMA NDER RETURNED IN RO-R1
N
o

MO.P1I

} wiwswrws W ws WG B
o 0K e i 0 ok i o

NN
0
o

lgle]

ReEMDO RXK611/06 SS VERIF

QUOTIENT RETURNED IN R2-R3
sl sdsd s

ol dobubodododbulodblobododdubaldotrfulubofalaiod
b

COUNTER FOR DIVISION CYCLES
H1 ORDER

LO ORDER DIVISOR TO THE STARCK
FORH NEGRTIVE

000002

VERSION OF THE DIVISOR

000002

;PERFORM THE INITIAL SUBTRACTION

000002

; IF CARRY THEN OVERFLOW HRS OCCURRED
M.DPY40:

:THIS IS A LONGER LASTING CRRRY BIT

; TEST “CARRY

INDICATORTM

{IF NO “CARRYTM THEN ADD ELSE SUBTRACT
iCLEAR UP FOR NEXT TIME

000002

;ADD -(DIVISOR)

SET *CARRY"TM

00004
M.DP41:

;RDD +(DIVISOR)

:SET “CARRY”
M.DP42:

000006

062706

000010

M.DP4Y:

:SET “CRRRY"

!TEST THE UPDATE INDICATOR
:IF ZERO FORGET IT
*NO CARRY POSSIBLE HERE
! DECREMENT COUNTER
'8R IF MORE TO DO

; ADJUST STACK BY 4 WORDS

CZREMDO RKG11-06

CZREMD.PI11

0S3406
053410

10977
10978

053416
053420

10979

10-JAN-78 11:48

10974
10975

10976

SS VERIF

053412

000242
000207

062706
000262
000207

000006

{2282

MACY11 30A(}1052)

cOl

-JAN-

:16__PA

DouBL -Pnsé?sfou 3?v16§ éuenou$fné
M.DMFSO:

CLV
RTS

SEV
RTS

ADD

SEQ_Q48

sEa 3209

6, SP

igggg

.SBTTL

10984

- 3636 3 336 3 3 36 98 36 36 36 36 30 35 36 36 3 36 36 36 36 3 36 36 36 3 3 36 36 3 3 3 3 3 3 3 3 3 3 3 I 2 3 3 3t 3 3 I 3 3 3 3 3 3 3 3 3% 3 3 3¢ % %

10986

*¥UNSTGNED OCTAL ASCIZ NUMBER.

10985

*4THIS ROUTINE WILL CONVERT R 32-BIT UNSIGNED BINARY NUMBER TO AN

10387

' #CALL

18383

109

10994
10995

1099

10998

109

0S3422
0S3424
0S3430

104407

016601
012705

000002
053541

012703

177770

343N

815704

053444

012100

3440

053446

012101

11004
11605

0S3460
053462

003007
001405

11008
11009
11010
11011
11012

053422
053474
3476
0525
083502

104410
000207
006203
006001
006000

0S3464
0S3466

005205
010566

11013
11014
11018
11016
11017

053504
053506
0
053512
053514

006001
006000
00600
006000
040302

11819

053522

000753

11018

11020

ii%%é

ngv

RETURN

05351

053524

062702
000016

§0B20:

000014

11001
1188é 0e34cs
823:?5 Jo505e
61880
11003
0534Se
005304
11006
11007

‘x

{Sgg?

10993

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

JSR

SAVREG

2(SP),R1
#$OCTVL+13.,RS

MOV

81C7 R3

MOV

2%:
3%:

000060

_SBTTL

i 1CALL

THE

L?N WORD OF BINARY NUMBER

ROUTINE

::THE RDDRESS OF THE FIRST ASCIZ CHAR.

::PICKUP THE POINTER TO LOW WORD
::POINTER TO DATA TABLE

D0 ELEVEN CHARACTERS
: ' MASK

Sovs
n8v
DEC

RS,
RS:Ra-(RS)
RY

i;;cgr
RN INARSRTER
HIS 81517 IN DATA TABLE
: ICOUNT THIS CHARACTER

INC
MOV

RS
RS,2(SP)

MOV

RESREG
RTS
ASR
ROR
ROR

(R1)+ RIi

3s
2s

PC
R3
R1
RO

:'HIGH WORD

::BR IF NOT THE LAST DIGIT
18R IF IT IS THE LRST DIGIT

_
:ALL DIGITS DONE-ADJUST POINTER FOR FIRST
12ASCIZ CHAR. & PUT IT ON THE STACK

: 'RESTORE ALL REGISTERS
*'RETURN TO USE
P'POSITION THE MASK FOR THE LAST DIGIT
:'POSITION THE BINARY NUMBER FOR
2
THE NEXT OCTAL DIGIT

ROR
ROR
ROR
ROR
BIC

R1
RO
R1
RO
R3,R2

; ;MASK OUT ALL JUNK

1160 PUT

.BLKB

s'0,R2

;P MAKE TH%? CHAR. nsc*r

14,

IN THE DATA TARBLE

: :RESERVE DATR TABLE

DOUBLE LENGTH BINARRY TO DECIMAL ARSCII CONVERT ROUTINE

11023

H 3636 3636 36 3 3 3 36 38 3 36 36 36 3 36 3 36 3 3 36 3 3 3 36 I 3 3 9 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 % I 3 3 3 3 I 3 W 2 W X % ¥ XX

110628

'¥DECIMAL (RSCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

1iges

11024
11026
11027

11029

:kTHIS ROUTINE WILL CONVERT A 32-BIT_BINARY NUMBER TO AN UNSIGNED

:%POSITIVE.
t xCALL

MOV

JSR

#PNTR,

- (SP)

PC, a#$082D

IS ON THE STACK

: sSAVE ALL REGISTERS

:'LOWER WORD

ADD
SOCTVL:

sl2.,RY

;;POINT;R T

(R1)$,RO

BGT
BEQ

000002

(SP)

MOV
MOV

MOV

#PNTR, -

PC, 3880820

; ;POINTER TO LOW WORD OF BINARY NUMBER

MACY11l

0%2?00

012202

£ £ IhC&JHdgE;

036

O0000000000O0000000000 000000000 0000000000000
0000
00 Mo MONN NN
i
L L
L £
£
nLw
-0
~No NL£WN-OVO
NN L
Wh—
NILWN—-OW

8% ge3ada APecBs
1

pex
ceeind

000002
0S3722
000002

ge3eds
053654

s ®

RETURN

$0B2D:

SAVREG
MOV
MOV

053640

00Se02

INC

V\PQV\PQOOWPQUWPTgrrg uunvghnzuficwcnom

s ; THE FIRST ADDRESS OF ASCIZ

:11S ON THE STACK

2(SP),Re

H xcxug ?HE Bn§n POINTER

RRa54R1

HA R

o*?NPua R4

i i 2 akES T 8F P

R3
(R4),R1
R2
(RS),R2
33
R3
2s
(R4)+,R1
R2
(R4)+,R2
(RS)+. (RS)+
#'0,R

; ;CLERR PARTIAL
; s SUBTRACT TEN POWER

OSDECOLsRO

:R2)+4R2

O
r
P

P s e s Bt B Pt e Pt e P Pt Bt P Pt Pt it Bt Pt Bt Pt Pt (e Pt Pt ot Pt s ot s Pt ot Pmct Bt Bt et P
s Pt et Pt P Pt Pt Pt it s P Pt Pt P Pt e
e e et Pt Bt s ot Pt ot s s Pt Pt s Pt st Pt Pt Pt s Bt Pt ot Pt Pt ot Pt P [t Pt (s s P
s Pt it Pt Pt Pt Pt Pt Bt Pt D ot P Pt Pt i Pt ot P

11030
11031
032
033

DO1

10-JAN-78
12:16
PAGE 211
DOUBLE LENGTH BINARRY TO DECIMAL ASCII CONVERT ROUTINE

30A(10S52)

4} o
"N

CZR6MDO RK611-06 SS VERIF 1
CZR6MD P11
10-JAN-78 11:48

3s:

RDD

000060
4s:

. WORD
8

$TNPUR:

8STNPWR2,
RS

:s SAVE

: :GET ADDRESS OF “S$DECVL"” STRING

DpGRERERSIONS

; ;BR _IF TEN PONESLTO LARGE
;;ADD 1 TO PARTI
; ; LOOP
; ;RESTORE SUBTRACTED VALUE

R3, LRO)+

; sMOVE TO NEXT TEN POWER
; s CHANGE _PRRTIAL TO RSCII
SAVE IT

;3BR _IF NO

; s RESTORE REGISTERS
; s RETURN
;; 1.0E09

6P¢)+
(RO)+

; : DONE?

; s TERMINATOR

;; 1.0E08

;3 1.0E07

:;1.0E086
;; 1.0EDS
;3 1.0E04
O-—-0--0—0
£

;;1.0E03

;3 1.0EQ2

0s37ee

000014

SOECVL::

LSBTTL

.BLKB

;;1.0E01
;;1.0E00
12.

. : RESERVE

STORRGE FOR flSCéZ STRING

TYPE NUMERICAL ASC1Z STRING SUPPRESS LEADING ZERO

;;!****i!lill***lllli!****llillllll*llll!*l*il*l*lii*!illl***!l!i

SEQ J4e9
SEQ 0210

CZR6MDO RK611-/06 SS VERIF 1

CZR6MD.P11

10-JAN-78 11:48

MACY11 30R(10S2)

10-JAN-78

EOL

12:16

PAGE 212

TYPE NUMERICAL ASCIZ STRING SUPPRESS LERDING ZEROS

11086

: ¥THIS ROUTINE IS USED TO TYPE AN ARSCIZ NUMBER SUPPRESSING THE

11089
11090

:*
T

}}885
11091
11092

:Egnoxnc NUMBERS.

11093

053736

11095
11096

053744
053746

11094

11097

0S3740
053750

010046

016600

000004

(22720

000060

105710
001403

11098
11099

053754
053756

0061773
005300

11101

053764

104401

11100

053760

010037

11102

053766

000000

11104

083772

012616

11103

1110S

iiigg

053770

0537?74

$SUPRS:
18:

2s:

053766

3s:

012600

000207

_SBTTL

11108

MOV
JSR
MOV

SNUMADR, -(SP)
PC, a8SSUPRS
RO, -(SP)

;;FIRST ADDRESS OF ASCIZ STRING
; SAVE RO

MOV

q(ép) RO

,,PICKUP THE POINTER

CMPB

%’0, (RD)+

:11S THIS AN ASCII "0” *

RO, 3%

,,snvs FOR TYPING

TSTB
BEQ

BEQ
DEC

MOV

TYPE

(R
as
13
RO

,,TERHINQ EOR
:BR IF YES

;sBR IF YES
: BACKUP BY "1*
1GO TYPE

.WORD

,,nscxz POINTER GOES HERE

MOV

(SP)+) (SP)

,,RESTORE THE STACK

MOV

RTS

(SP)+,R0

TORE

RETURN

BINARY TO OCTAL (RSCII) AND TYPE

o 369636 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3 36 36 36 36 3¢ 36 36 36 3 36 36 36 36 36 3 36 36 38 36 36 36 36 36 36 3 3 3 36 36 3 36 36 36 3¢ 3¢ 3¢ 3t 36 % 3¢

11109
11110
iiiié

iTHIs ROUTINE IS USED TO cunncs A 16-BIT BINARY NUMBER TO A 6-DIGIT
:%0CTAL (ASCII) NUHBER AND TYPE IT.
lg;EPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

11113

MOV

NUM, - (SP)

; sNUMBER TO_BE TYPED

11118

.BYTE

,,N-l T0 6 FOR NUMBER OF DIGITS TO TYPE

* 3%

11114

TYPOS

11116
11117
;i;;g

¥
T
T

11120

P #§TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS RS THE LAST

11123
iiigg

S
;*

4444

.BYTE

{CALL_FOR TYPEOUT

; %*

11121
11122

1 x§TYPOS OR STYPOC
: %CALL:
*

MOV
TYPON

NUM, - (SP)

iM=1 OR O
;31=TYPE_LEADING ZEROS
: D=SUPPRESS LEADING ZEROS

: s NUMBER TO BE TYPED
::CALL FOR TYPEOUT

{iisg

:*sgtfoc---znrsn HERE FOR TYPEOUT OF A 16 BIT NUMBER

11128

MOV

NUM, - (SP)

; sNUMBER TO BE TYPED

§TYPOS:

MOV

J(SP),-(SP)

; s PICKUP THE MODE

ADD
BR

82, (SP)
STYPON

: 'ADJUST RETURN ADDRESS

MOV
MOV
MOV

R3)-(SP)
RY,-(SP)
RS, -(SP)

; ¥

iiigg

11131

0S3776

017646

000000

11134
11135

0S4014
(054020

062716
000406

000002

0S4044
054046
0S40S0

010346
010446
010546

11132
11133
11136
11137
11138

11139
11140
11141

054002
054010
0S4022
054030
0S4036

116637
112637

112737
112737
112737

000001
0S4223

OSs4221

000001
000006
00000S

054221
054223
054220

S$TYPOC:

$TYPON:

TYPOC

MOVB
MOVB

MOVP
MOV
MOV3

1(SP),SOFILL
(SP)+ SOMODE+1

#1,SOFILL
86, SOMODE+1
85, SOCNT

:1CALL FOR TYPEOUT

:'LORD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

;;SET THE ZERO FILL SWITCH
iiSET FOR SIX(b) DIGITS
*SET THE ITERATION COUNT

:'SAVE R3
:'5AVE RY
: :SAVE RS

SEQ Q490

SEQ 0211

CZREMDO RK611/06 SS VERIF 1
CZREMD. P11
10-JAN-78 " 11:48
11142

054052

0S4223

MOVB

062704
110437

000006
0S4222

A0D
MOVE

054074
0S4i00
054102

016605
00S003
006105

000012

054106

006105

054056

11146

054070

11147
11148
11149

11150
11181

054060
054064

054104

005404

113704

054110
054112
054114

11156
111567
11168
11159
11160
11161
11162

0S4120
054124
084126
054132
054139
054136
0S4140

105337
100016
042,03
001002
005704
001403
005204

11164

054146

052703

11163

11165
11166
11167

0S41le

054142
054152
054156
054162

006105
006105
010503

006103

000060

110337
104401
105337

0S4216
054216
054220

054166
054170
Q54172
054174
054176

003347
002402
005204
000744
012605

11174
11175

054202
054204

012603
016666

11177
11178
11179
11180
11181
11182

054214
054216
054217
054220
054221
0S4222

000002
000
000
000
000
000000

11173
11176

11183

054200

054212

; ;SUBTRACT IT FOR MAX.
:3SAVE _IT FOR USE

18:

MOV
CLR
ROL

12(SP) RS
R3
RS

;iPICKUP_THE INPUT NUMBER
:iCLERR_THE OUTPUT WORD
: tROTATE MSB INTO "C*

2s:

ROL

: 'FORM THIS DIGIT

3s:

000040

MOVB

SOFILL,RY

B8R

ROL
ROL
MOV

ROL

RS,R3

ALLOWED

$1GET THE_ZERQ FILL SWITCH

:1GO_DO_MSB

;;GET_LSB OF THIS DIGIT

4s:

SOMODE
4
8177270,R3
4§
RY
s
RY

;i TYPE_THIS DIGIT?
1iBR_IF _NO
:$GET_RID OF JUNK
I TEST FOR O
; } SUPPRESS THIS 07
::BR IF YES
::DON’T_SUPPRESS_ANYMORE 0’S

5§:

BIS

8’

:MAKE RSCII IF NOT ALRERDY

6S:
000002

NEG

DECB
8PL
BIC
BNE
ST
BEQ
INC

78:

012604

012616

86, RY
R4,SOMODE

177770

052703

11168
11169
11170
11171
11172

;;GET THE NUMBER OF DIGITS TO TYPE

054222

SEQ Q491
SEQ 0212

SOMODE+1,RY

054221

000404

11152
11183
11154

11155

MACY1l 30A(1052)
10-JAN-78
12:16 PAGE 213
BINARY TO OCTAL (ASCII) AND TYPE

113704

11143

11144
11145

FO1

000004

BIS

MOVB
TYPE
DECB

SOCNT:

$OFILL:
$OMODE:

.SBTTL

.R3

R3,A%
84
$OCNT

:MAKE THIS DIGIT ASCII
: 1SAVE FOR TYPING
1GO TYPE THIS DIGIT
' COUNT BY 1

BGT
BLT
INC
8R
MOV

2s
6$
RY
2s
(SP)+,RS

::BR IF MORE TO DO
::BR_IF DONE
;3 INSURE_LAST DIGIT ISN’T A BLANK
1160 DO _THE LAST DIGIT
: 'RESTORE RS

MOV
MOV

(SP)+.R3
2(SP) 14(SP)

; tRESTORE R3
:iSET THE STACK FOR RETURNING

RTI
.BYTE
‘BYTE
.BYTE
.BYTE
.WORD _

O
O
O
O
G

; s RETURN
; 1STORAGE_FOR_ASCII DIGIT
:: TERMINATOR FOR TYPE ROUTINE
:10CTAL _DIGIT COUNTER
$1ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE

MOV

8s:

%’'0,R3

(SP)+.RY4

(SP)+) (SP)

; tRESTORE RY

CONVERT BINARY TO DECIMAL'AND TYPE ROUTINE

11188

HH 2 2636 36 36 96 36 3 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3¢ 3 3 3 3¢ 36 3 3 36 3 38 36 3 36 3 36 36 36 3 3 36 3 3 3 36 3 3 3 3 36 3 3% 3 3 3 3 3 3% 3 %

11187
11188
11189
11130

' #SIGNED DECIMAL (RSCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER_THE
! ¥NUMBER IS POSITIVE OR NEGATIVE R SPACE OR A MINUS SIGN WILL BE TYPED
:%BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS SE
{ XREPLACED WITH SPACES.

11186

'4THIS ROUTINE IS USED TO CHANGE A '3-BIT BINARY NUMBER TO A S-DIGIT

11192

‘x

11153

11195

0s4224

11197

054226

11196

054224

010046

010146

$TYPDS:

MOV

TYPDS

MOV
MOV

NUM, - (SP)

RO, - (SP)

RI,-(SP)

; ;PUT_THE BINARY NUMBER ON THE STACK

':GO

THE ROUTINE

; ;PUSH RO ON STACK

:1PUSH R1

ON STACK

CZR6MDO RKB11/06 SS VERIF

CZR6MD. P11

10-JAN-78 11:48

MACYL1

30A(1052)

GOl

10-JAN-78

12:16

11198

0S4230

010246

MOV

R2,-(SP)

11200

054234

010546

MOV

RS’ -(SP}

11199

084232

11201

054236

11207

11202
11203
112049

010346

MOV

054242
0S4246
054250

012746

016605
100004
00S40S

020200
000020

QS4262

012703

054440

MOV

11509
02498 Bospps ooO
11210 054274 016001 054430

11211

0S4300

}igia

82338”

11212

160105

3%:

054302

002402

11215
11216
11217
11218
11219

054310
054312
0S4314
05431e
054320

060105
005702
001002
105716
100407

11221
11222

054324
0S4326

103003
116663

000001

11224

054340

052702

000040

11228
11229
11230
11231

054354
0B5435e
054360
054362

002746
003002
010502
000764

11234

054370

116663

177777

177776

104401
0le6be

0OS4440
000002

000004

11220

11223

0854322

054334

883;95
4§:

106316

052702

5%:

000060

177777

iisgg
11235
11236
11237
11238
11239
11240

11241
11242
11243

11244
11245

11246
11247
11248
11249

i{ggg
liese

11283

8?333:
084376
054400
054402
054404
054406
054410

054412
0S4416
054424

054426
054430

054432
054434
0S4436
054440

iggggg

105013
012605
012603
012602
012601
012600
012616

000002
023420

001750
000144
000012
000COH

6%:
78:

11558
Deudve 002350
11227 0S4350 020027 000010

PAGE 214

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

R3.-(5P)

; ;PUSH R2 ON STACK

:PUSH R3 ON STACK

:'PUSH RS ON STACK

MOV
BPL
NEG

820200, - (SP)

20(SP),RS
13
RS

11GET BLANK SWITCA AND SIGN

MOV

#SDBLK,R3

:SETUP THE OUTPUT POINTER

MOV
suUg

$OTBL (RO),R1
R1,RS

éEC

;" INCREARSE THE 4CD DIGIT BY 1

ADD
TST
BNE
TSTB
BMI

R1,RS
R2
13
(5P)
78

: sADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
:'FALL THROUGH IF O
:'STILL DOING LEADING 0’S?
:BR IF YES

BCC
MOVS

63
1(SP),-1(R3)

JiIBR_IF NO
' YES--SET THE SIGN

BLT

ASLB

BIS
BIS

(SP)

$'0,R2
'

'Re

novs
CMP

REplRIe
RO, 810

8%:

EEIB

éép’*

CLRB
MOV
MOV
MOV
MOV
MOV

BLT
BGT
MOV
BR

3
3
RS,R2
$

MOVB

-1(SP),-2(R3)

TYPE
MOV

$DBLK
2(SP),4(SP)

MOV

(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.RI
(SP)+,RO

(SP)+. (SP)

$OTBL:

RTI
10000

$OBLK:
.SBTTL

4
ERROR HANDLER ROUTINE

:PGET_THE INPUT UMBER
JIBR IF INPUT 15 POS.
:'MAKE THE SINAIRYY NUMBER POS.

i::GET
2LEAR
THE. BOD NOMEER o BLANK
THE CONSTANT
*'FORM THIS BCD DIGIT
:'BR IF DONE

:IMAKE THE BCD DIGIT ASCII

:'MAKE IT A SPACE IF NOT ALREADY A DIGIT

T
TNCRENERTING . L |he OUTPUT BUFFER
! 'CHECK THE TRBLE INDEX

11G0 DO THE NEXT DIGIT
$1G0 TO EXIT
::GET THE LSD
1GO_CHANGE TO_ASCII

;;unsxgusoLso THE FIRST NON-ZERG?

::YES--SET_THE SIGN FOR TYPING

:1SET
::POP
:'POP
1POP
:1POP
: 'POP

THE TERMINATOR
STACK INTO RS
STACK INTO R3
STRCK INTO R2
STACK INTO Rl
STRCK INTO RO

PNOW TYPE THE NUMBER
: JADJUST THE STACK
: sRETURN TO USER

1000.
100.
10.
.BLKW

H 2 3 36 96 96 36 3 7 36 3 36 3 3 3 3 3 3 36 2 3 36 3 3 3 69 3 3 3 3 36 36 3 3 46 3 3 36 3 3 3 3 4 3 3 3 3 4 36 3 3 I 3 3 3 2 XXX X2

'$THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

SEQ Q492

SEQ 0213

CZRBMDO RK61106 SS VERIF

CZREMD.P11

10-JAN-78 11:48

MACY11l

11254

ERROR HANDLER ROUTINE

; #SW13=1
; ¥SW10=1
; ¥SW09=1

11261

s #CALL

iisgg

;%
0OSH44S0

1126S
11266
11267

QSH4450
(OS5S44S4
0S4456

;;
001
S
01377

11269

0S4472

001402

054464

032777

S$ERROR:

001103
001102

002000

11272 824 o4 811587 081116

ré ¥
124456

124446

0S4510

162737

11276

054532

001004

11278

084540

104401

084534

000002

040776

122737
001007

000001

001340

054566

11262
11583

0S455S4
ggqgsg

113737
004737

001114
055430

11286
11287
11288

0S4570
0S4572
054576

000777
005777
100001

124342

11290

0S4602

032777

001000

0S4ele
0S4ele

013716
005737

11284
11285

11289
11291

11292
11293
11294

0S4S44
0S45S¢2

456
Q054567

054600
0S4610

Q0S4622

000
000

000000

001402

(gP) kERRPC

::88 QADDRESS OF ERROR INSTRUCTION

BNE

20%

,,SKIP TYPEQUTS

TYPE

, SCRLF

MOVB
BIT
SUB

20%:

CMPB
BNE

astRRPC
SITEMB ,,STRIP
AND SAVE THE ERROR ITEM CODE
OBITIS,QSNR
;SKIP TYPEOUT IF SET
PC

PC, TYPERR
SAPTENV, SENV
c9®

; ;GO TO USER ERROR ROUTINE
,,RUNNING IN APT MODE
;NO,SKIP APT ERROR REPORT

BIT

#BIT09, JSUR

001110
001306

MOV
TST

MOV

2l%:

124330

000042

.BYTE
.BYTE

HALT

4¢

BEG

cMP

6%:

.SBTTL

0
o

BEG

BNE
HALT
RTI

SLPERR, (SP)
SESCAPE

SESCRAPE, (SP)
#$SENDAD, d#4e

TTY INPUT ROUTINE

,,HRLT ON ERROR!

; ; LOOP ON ERROR SWITCH SET?

IF NO

FUDGE RETURN FOR LOOPING
,,(HECK FOR AN ESCAPE RDDRESS
;BR _1F NONE

,,FUDGF RETURN ADDRESS FOR ESCAPE
;;ACT-11 AUTO-ACCEPT?

,.BRR CH IF NO
;s YES
; s RETURN

= 363636 36 36 36 36 3 36 36 36 36 36 3 36 36 96 36 3 3t 36 36 36 36 36 36 3 3 36 96 36 36 36 36 36 3 36 36 3 36 36 36 36 36 96 3 3 36 36 3 36 3 36 36 3 36 2 96 3 06 3k 2 %

11308

"ENABL

LSB

.DSABL

11308
11309

;sNO
- SKIP

3%:

025534

11304

,,BELL ON ERROR?

; ; APT_ERROR LOOP
,,HQLT ON ERROR
; s SKIP IF CONTINUE

022737

000002

QBITIO aSHR

ec$
JSWR
33

0S4630

Q0S4642
0OS4e42

BEQ

,,SST THE
ERROR FLAG
i
'T LET
THE FLAG GO TO ZERO
STSTNM,ADISPLAY
;;DISPLAY TEST NUMBER AND ERROR FLRG

BR
TST
BPL

11297

001001
000000

;ERFLG

ccs:
=

0013086

0S4636
0S4640

INCB
BEQ
MOV

; ; ERROR=EMT AND N=ERROR ITEM NUMBER

SEf ITEH NUMBER AS ERRQOR MNUMBER
:
PORT FATHL ERROR TO APT

013716

iiggg

SEQ 0214

$ITEMB,213
PC, $AT Y4

gg:ggg

11300
11301

SEQ 0493

MOVB
JSR

iisgg

11298
11299

JSR

001315

DSHS44

ERROR

MOV

001116

004737

11279

11280
11281

PAGE 215

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOF ON ERROR

BIT

11274
ogwgés 117737 124374 001114
11275 0S4Sed4 (032777 020000 124406
11273

11277

HO1

12:16

;QND GO TO TYPERR ON ERROR
lTHE SWITCH OPTIONS PRCVIDED BY THIS ROUTINE RARE:
,!SNIS-I
HALT ON ERROR

11258
11259
11260

11268

1N-JAN-78

;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

11255
11256
11257

11264

30A(10S2)

s Bt B Bt s e Bes s Bt e Bt e Bt Bt Bt e bt Bt Bt e e b

PRARGE 216

SEQ_Q494
SEQ 0215

RE LR RERE AR R AR R AR R AR R R R R RN R R

OSv“huY
054446
0S4654
0S4660
gs4662
054670
054676
0S4704
0S4706
Qs471e
0SM714
054720

000004
124264

00c0c2

RETURN HERE

$RDCHR:

MOV

18:

TSTB

J$TKS

124260
177600
000004

000004
000004
000023

MOVB

JSTKB,4(SP)

BNE
TSTB
BPL
MOVB

3%
IS TKS
2%

: 'BRANCH IF NO
JIWAIT FOR A CHARACTER
:1LOOP UNTIL ITS THERE

#1C177, (5P)

; MAKE 1T 7-BIT ASCII

BNE
BR

2%
13

,,IF NOT DISCARD IT
YES,
RESUME

4(SP), #175
4$
$40,4(SP)
.tU/<¢15>¢12>
~/1G/<15>¢12>
<15><(12>/SWR =
7/

124226
177600
000021

os4771
0S4776
055004
055007
0SsOo14

BIC

CMP

3s:

cMP
BLT

:CHARACTER IS ON THE STACK

PIWITH PARITY BIT STRIPPED OFF

(SP),-(SP)

4(SP},2(SP)

#1CC177>,4(SP)
4(SP), 823

JSTKB, - (SP)

(SP)+, k21

4(SP), #140
43

,,PUSH ooun THE PC

;i SAVE

,,n CHARACTER
'RERD THE TTY
}IGET RID OF JUNK IF ANY
1 IS ITA CONTROL-S”
::GET CHARACTER

211S iT R CONTROL-Q?

‘1S 1T UPPER CASE”
.,snnnc IF YES

000140

000004

000175

000040

000004

00S01S
006507
053523
000
847040
000040

aoo
gogole
020122

4§ :
$CNTLU:
§CNTLG:
§MSWR:

CMP
BGT
BIC
RTI
.ASCIZ
.ARSCIZ
.ASCIZ

053505

$MNEW:

.ASCIZ

.SBTTL

POWER DOWN AND UP ROUTINES

012737
000000
000776

0Ss032

055032

005037

0sS104
0SS104

000024

HALT

055020
000340
000340
001100
055106
124002

#SPURUP, PWRVEC
-

POWER UP ROUTINE

;SET VECTOR FOR POWER UP

:RANG UP

éng

s:uncv

$PURCT

sWARIT LOOP FOR TTY TO COME UP

MOV

#3PWRDN, PURVEC

;SET VECTOR FOR POWER DOWN

MOV

#STALK

: RE- INITIQLIZE THE STACK

JSLPADR

U19us
:CLEAR THE
:RESTART THE CURRENT TEST

QPNRUP. CLR
000024
000026
000036

1115 IT A SPECIAL CHAR?
: 'BRANCH IF YES
:'MAKE 1T UPPER CRSE
::G0 BACK TO USER
: JCONTROL "U"”
,,CONTROL "G

NEW = /7

. POWER DOWN ROUTINE

$§PWRON: MOV

THE PS

JWAIT FOR

000004

055020
055026
055030

0ss100

BPL

BIC
CMP
2%:

124232

MOV

RRRRRER

;3 INPUT A_SINGLE CHRRQCTER FROM THE TTY

RDCHR

;¥

e Bt e Bt D
e B Bt Bt Bt B Bt Bt e Bt ot B Bt e B

I01

12:16

SEEEE ROUTINE WILL INPUT R SINGLE CHRRACTER FROM THE TTY

e Dt e Bt Bt (o Bt Pt Bt B B et

30R(10S2)
10-JAN-78
TTY INPUT ROUTINE

S HENNBEINNNEE NN

0 RK611/06 SS VERIF 1
P11
10-JAN-78 11:48

MARCY11l

MOV
MOV

TYPE

RESET
IMP

sPR7,PWRVEC+2
sPR?’ Tnnpvec+e

, PURMSc

;RE-ESTABLISH POWER AND TRAP PRIORITIES

PTYPE “PONE AILEDTM

CZR6EMDO RKb611-/06 SS VERIF 1
10-JAN-78 11:48
CZREMD. P11
000000
00S01S
gz20lee
042105
0SS5130

NN LW~ OVONCNLWNL—0OW

047520

040506
00s501S

10-JAN-78

JO1

12:16

POWER DOWN AND UP ROUTINES

Quase7
O4blll
000

SPWRCT:
PWRMSG:

.WORD_
.ASCIZ

SEQ_049S
SEQ 0216

PAGE 217

O
<15>¢<12>/POKER FRILED/<15><12>

.EVEN

I 00T 0 00

$ 5 B3I

0000 0000 30 30

i SCOPE1 - INTERNAL SCOPE ON ERROR ROUTINE
: #CALLED BY *SCOPERTM

055130
0SS5134
055136
0SS144
0SS146
0ssise

105737
001406
032777
a01402
013716
000002

< 3300 0

&80PE1: TSTB

001103
001000

SERFLG

23 00 06 0

00600 00 06

63
#8179, ASWR
63
SLPERR, (SP)

BS:

BEQ
BIT
BEQ
MoV
RTI

.SBTTL

SCOPE HANDLER ROUTINE

123774

001110

3 0606 0 0

o 2636360608 3606 36 36 36 36 36 06 36 00 06 06 3¢ 06 36 06 06 06 06 06 6 0

= OLONONIZWNL-0ODoNCNLWN-0O0ONTTN
LW —

L F L f L LS L FELLELEELEE EQDEOOOLODREORELRDEELRLIRWRELDWWEW
WL WLl W
WL W WWwWWwWwWww
WwWww

et Dt s Bt Bt Bt B Bt Bt Bt Bt Bt Bt

s Bt Bt ot o

ot Pt ot (s s Pt s ot Pt ot Pt Pt Pt Pt Pt Pt Bt Dt Pt Pt Pt Pt

s P Pt Pt Pt Pt Pt Bt Bt Pt

s Pt et s

11366
11367
68

MACY1l 30A(10S2)

I 00 2

I MR IR
33330 0

N RN R
R

s SEE }F
AN ERROR HRS OCCURRED

:BR_IF_NOT
:SEE_IF LOOP ON ERROR DESIRED
:BR_IF NOT
:SET ERROR LOOP ADDRESS ON STACK
:RETURN

6 8 96 06 30 36 36 38 36 50 36 36 36 36 36 36 3036 336 36 36 3 3 3 I 0006 36 06 06 00 3 2 2

iTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
:%AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<¢7:0>)
:%AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY(15:08>
: #THE SWITCH OPTfiggg SROVIDED BY THIS ROUTINE ARE:
S ESWIY=]
N TEST
PxSW11=1
INHIBIT ITERATIONS
* ¥51403=1
LOOP ON ERROR
lCQLL

‘x

0SS1s4
0SS5154
055160
gssiee
055170

00S737
001404
032777
0o1101

055172

000416

055174

013746

000413
105737

0Ssa46

101015
032777

$SCOPE

001304
040000

000004
0S5ee0
177060
000004

123750

000004

18:

157

srxnss

; CHECK CURRENT ITERATION NUMBER

SKIP CHECK OF SWR BIT 14

BIT
BNE

#8IT14,SKR
$OVER

T0
TEST?
PRESENT
oN
,,LOOP
YES IF SWI14=1

B8R

§SVLAD

;1GO_TO THE NEXT TEST

MoV

(SP)+, 98ERRVEC

,.RESTORE THE ERROR VECTOR

BEQ

$xTSTR

‘BR IF

#u#u¥START OF CODE FOR THE XOR TESTEROOOOO
§xTSTR: BR
&S
s IF RUNNING ON THE "XORTM TESTER CHANGE
ITHIS INSTRUCTION TO A _"NOPTM (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR
J8ERRVEC,-(SP)
MOV
,,ss FOR TIMEOUT
853, J#ERRVEC
MOV
TST
J8177060
TIME OUT ON XOR?
(SP)+, IERRVEC ,,RESTORE THE ERROR VECTOR
MOV
5%:

000004

; ; SCOPE=10T

SCOPE

CMP

(SP)+, (SP)+

LEAR THE STACK AFTER n TIME OUT

LOOP ON THE PRESENT TEST

fESTEROO
6%:; sususEND OF CODE FOR THE XOR ,,
HAS AN ERROR OCCURRED?
2%:

001103

001115

001103

001000

123664

BEQ

7S718

SERFLG
33

BIT

#BIT09, ISWR

BE?B

SERHQX,SERFLG

;BR IF_NO

.,SQX FERSORS FOR THIS TEST OCCURRED"
:LOOP ON ERROR”?

CZREMDO RK611-/06 SS VERIF 1
CZREMD. P11
10-JAN-78 11:48

0SS254
055256
055264
055266
055272
085876
055300
0553
055310
055314
055322
0553

001404

001104
001304

001104
001104
001304

30A(1052)

10-JAN-78

SCOPE HANCLER ROUTINE

ré ¥

4s:

CLRB

3%:

BIT

19:

O
—

w928

—Orr—
0O—-0000000TM0=00

S
W
3
Z~NOn
PR
TATS]

~N o
oW
o ~N wNo

055658
055654

000001

055656

%1,

001340

000100

001341

000004
000032
001320

000004

001334

SLPAOR. (SP)

2000.
RPT C OMMUNICATIONS

$ATY3:
SATYY:
$ATYC:

; ; ZERO_THE ERROR FLAG
; ; CLEAR _THE NUMBER OF ITERATIONS TO MRAKE
; ;ESCAPE _TO _THE NEXT TEST

:!CHECK THE NUMBER OF ITERATIONS MADE
;3BR_IF MORE ITERATION REQUIRED
SREINITIALIZE THE ITERATION COUNTER
:SET NUMBER OF ITERATIONS TO DO
: :COUNT TEST NUMBERS
PISET _TEST NUMBER IN APT MAILBOX
: :SAVE SCOPE LOOP RDDRESS
: 'SAVE ERROR LOOP ADDRESS
:'CLEAR THE ESCAPE FROM ERROR ADDRESS
::ONLY ALLOW ONE(I1) ERROR ON NEXT TEST

' 'DISPLAY TEST NUMBER
“F?QGE RETURN ADDRESS
1

;
ES PS
iMAX. NUMBER OF

ROUTINE

MovB
MovB
BR
MOovB

S
$1,8FFLG
- (SP)
RO,
R1,-(SP)

5$
SAPTENV, SENV
3%
, SENVM
$APTSPOOL
33
J4(SP),RO

1%:
2%:

TST
1578

€2, 9(5P)
?gécrvps

RO, SMSGRD

(ROY+

2%
RO
$MSGRD,

RO
RO, SMSGLGT
44, SMSGTYPE

001320
055566
000004

::BR _IF NO
;;StT LOOP ADDRESS TO LAST SCOPE

ITERATIONS

o 3363 3636 36 36 3 3 36 36 3 3 36 36 36 3% 36 36 36 36 3 36 36 36 36 36 3 3 36 3 36 36 3 3% 3 36 36 20 3 36 36 36 36 3 3 3 36 3 3 3 3 36 3 3 3 36 3 % 3 3 % %

ghTYl:

001334

000004
000002
177776
0s27ee

SERMAX

SMFLG

000001

SEQ_ Q496
SEQ@ 0217

;;IEH%BIT ITERATIONS?
33
F YES
s : INCREMENT ITERATION COUNT

§$TSTNM, aDISPLAY

0S5654

001336
000004

4s
SLPERR, SLPROR
SOVER

$SVLAD:

SMXCNT:
.SBTTL
000001
000001

PAGE 218

MOV

$OVER:

—-0O000—0 OP—OWONOOO
W MO—IN
V=R
RO

055502
055506
055510
055514
055516
055520
£55524
055526
055532
055540
DSE542
055550
055356
055568
(05E566

123632

001324

OO
n IO

QS544Q055442
055446
055450
055456
055460
0S5466
055470
055474

001106

004000

000001

055332
055340
055344
085352
055356
055362
055366
055374
055402
05406
055410

055412
055420
055426
055430
055436
0S5436

go1110
001103
001304

000000

11422
11423
11489
11425
11426
11487
11428
11429
11430
11431
11432
11433
11434
11435
11436
11437
11438
11439
114490
11441
11442
11443
11449
11445
11446
11447
11448
11443
11450
11451
11452
11453
11454
11455
11456
11457
11458
11459
11460
11461
11462
11463
11464
11465
11466
11467
11468
11469
11470
11471
11472
11473
11474
11475
1i476
1 477

MACY1l

KOl

12:1&

39%:

MOV

. WORD

S$
AY(SP),

#2.9(5P)

; ; JO REPORT FATAL ERROR
;370 TYPE R MESSAGE

;3
TO ONLY REPORT FATAL ERROR

; ;PUSH RO ON STARCK

;;PUSH R1

_ON STARCK

; ;SHOULD TYPE R MESSRGE?

53
NOT:
BR
' 'OPERATING UNDER APT?
BR
IF NOT:
;3
: 'SHOULD SPOOL MESSAGES?
BR
“}IF_NOT:
: 'GET MESSAGE RDDR.
; :BUMP RETURN ADDR.

:;SEE IF'OONE W/ LAST XMISSION?

Vs F NOT:

; ;PUT_ADDR

WRIT
A
IN MAILBOX

; ;FIND END OF MESSAGE

;;SUB START OF MESSAGE
; sGET MESSAGE LNGTH IN WORDS
; ;PUT LENGTH IN MRILBOX
;; TELL APT

TRKE MSG.

:;PUT MSG ADDR IN JSR LINKAGE
: ;BUMP _RETURN RDDRESS

:;PUSH 1777276 ON STACK
; ; CALL

TYPE MACRO

CZR6EMDO RK&11-06 SS VERIF 1 ug
CZREMD.P11
10-JAN-78 11:
11478
11479
11480
11481
11482
11483
11484
11485
11486
11487

11488
11489
11490
11491
11492
11493
11494
11495
11496
11497
11498
11499
11500
11501
11502

0S5570
Q55570
055574
055576
055602
0556
0SS610
0SSe6i2
05620
0S5626

S6
055636
05564
0SS646
0SS5650
055652
0SSb54
0S5655
055656

105737
001416
005737
001413
00S737
001375
017637
062766
005237

10237
105037
105037
012601
012600
000207
o]8]0)
000
000
055660
000200
000001
000100
000040

MRCY11

30A(10S52)
10-JAN-78
12:16
AP T COMMUNICATIONS ROUTINE

S%:

108:

0S5656

118:

001320
000004
000002
001320
055656
055655
0SS654

001322
000004

; ;SHOULD REPORT FATAL ERROR?
:IF NOT:
BR

BEQ
TST
BNE
MOV

128
§MSGTYPE
11§
aq(sp) $FATAL

J1IF NOT:
BR
,,rrnxsneo LAST MESSAGE?
JUIF NOT:
WAIT
;:GET ERROR §

SLFLG

:CLEARLOG FLAG

(SP)+ RO

,,POP STACK INTO RO

$LFLG:

CCRB
MOV

SMFLG
(SP)+,R1

CLRB
RTS

.BYTE
.BYTE

,,RUNNING UNDER APT?

sp)

snécrvps
SFFLG

-BUMP_RETURN ADDR.

;3:CLEAR
TELL APt
70 TAKE ERROR
FATAL FLRG

;i CLEAR HESSAGE FLAG
:'POP STACK INTO Rl

URN

,,nsssc FLARG

P FATAL FLAG

:LOG FLAG

SFFLG:

.BYTE

.SBTTL

ROUTINE TO SIZK MEMORY

.EVEN
APTSIZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

11504
11505
11506
11507
11508
11503

SENV

INC
CLRB

MOV
$MFLG:

SEG Q497
SEQ 0218

SFFLG
129

ADD
128:

PAGE 219

TSTB
BEQ

TST

001340

11503

o 363636 36 36 36 3 36 36 36 36 36 3 36 36 36 36 36 3 36 36 3 36 3 3 3 36 3 36 3 36 3 3 3 3 36 3 3 A3 3 36 3 3 3 3 3 36 3 3 2 3 2 06 3 3 3 3 3 3 3 3

ianL
,*

JSR

RE TURN

PC,S$SIZE

*SLSTRD WILL CONTAIN:

;¥

s ¥

11510

WITH KTI1 OPTION

-- LAST VIRTUAL ADDRESS OF THE LAST BANK

NITHOUT KT11 OPTION

-- LAST ABSOLUTE RDDRESS OF AVAILABLE MEMORY

{¥SLSTBK WILL CONTAIN THE LAST BRNK RS A SAF

11511

;%3KT11 IS THE MEMORY MANAGEMENT KEY

11512
11513
11514
115185

11516
11517
11518
11518
11620
11521
11522
11523
115e4
11525
11526
11527
11528
11529
11530
11531
1i532
11533

LOl

*BITD? = 0 _DON'T _USE MEMORY MANRGEMENT
MUST BE SET
UP BEFORE

THE CALL

;*BITIS 0 DON’T HAVE MEMORY MANAGEMeNT OPTION
DETERMINED BY ROUTINE

055660
0SSe62
0S5664
0SS666
0S5670
055674
0SS5700

010046
010146
010246
010346
013746
013746
010600

055702
055704
055710
0SS714
055716
055720
055722
0585730

104400
012637
012701
105727
000200
100062
012737
005737

$SIZE:

RO, -(SP)

MOV
MOV
MOV

Ri,-(SP)
R2.-(SP)
R3’-(5P)

MOV

aaERRvscie -(SP)

MOV

000004
000006

MOV

; ;SAVE RO ON THE STACK

;:5AVE R1 ON THE STACK
'SAVE R2 ON THE STACK
;;snvs R3 ON THE STRCK

autnnvec -(SP) ::SAVE PRESENT ERROR VECTOR PS & PC
SAVE THE STACK POINTER

:;SET THE ERRVEC ps TO THE PRESEN? PS
TRAP

000006
003776

$KT11:
056060
177572

MOV

000004

MOV
MOV
TSTB

USH LD PSW AND PC ON STACK

(SP)+, 38ERRVEC+2’
SAVE THE PSW IN @SERRVEC+2
#3776,R1
; s SETUP ABDRESS
(PC)+’
: 'USE MEMORY MANAGEMENT

.WORD

200

MOV

#SKTNEX, assnnvsc ,,SET FOR TIMEOUT

BPL

TST

$CORE

J#SRO

,,ssr TO USE MEMORY nnnncsnsnr
:BR IF NO

:KT11

ARE YOU THERE?

CZR&MDO RKE11-06 SS VERIF |

CZREMD.PI11
11634
11835

055734
055742

1183
11538

&587s0
055784

1153

11539
11540
11541

55744

(055762
055764
055770

10-JAN-78 11:48
052737
005046

100000

8 5785
01
012762
011622
062716

000200

0S6016

077307

0S6000

012737

11547

056016

022626

056032
056036
osso:e

005737
062712
02?7;2

11545
11646

11848
11549

11550
11551
i{ssg

056006
0S6014

(56020
(056024

012737
000401

005237
012737

000020

177572
0S6050

143776
000040
172356

0S5716

177740

11556

056056

11558
11558

606
(0S6074

11560

ggsgs

84 737

056076

062701

004000

086110
056114

022701
001370

177776

056122
056126
056130

162702
010006
012637

056140

010137

11861
11562

056102
056106

11865

056116

11569

056134

11863
11564

112&5
11567
11568

11570

11571

iiggg
11681

162701

004000

012637

00000

000040
000006

012602

012003

012601
012600

056160

000207

0Sel64

000000

056162

000000

18%:

000004

MOV
MOV
MOV
MOV
ADD

12:16

2%:
000004

3%:

4g:

000004

18:

$CRCUT:

#2%, I¥ERRVEC

: 'CATCH TIMEOUT IF NO SR3

'LOOP UNTIL ALL EIGHT ARE LORCED

JUSRO
;s TURN ON_MEMORY MANAGEMENT
#SKTOUT, JWERRVEC' ;SET FOR
TIME OUT

(SP)+, (SP)+

TST
ADD
gmg

J8143278
#40, (R2)
JsKIPAR7, (R2)

$SIZEX

MOV
CLR

32) R2
ausnb

,,SETUP
KIPAR? FOR 1,0
*SETUP KIPARG FOR TESTING

; JENRBLE 22 BIT MODE
:THIS PDP-11 HAS A SR3 REGISTER

: 'CLEAN OFF THE STACK--NO SR3
?RnP ON NON-EX-MEM
'MAKE A LK STEP
,,LRSTTgNE;T

::c T LAST BANK+1
: TURN OFF MEMORY MANAGEMENT

#100000, $KT11 _ ;;KT11 NON-EXISTENT

ADD
TST

#$CROUT| 98ERRVEC' } :SET FOR TIMEOUT
R2
éET UP_BANK
#4000, R1
,,xncnensnr BY 1K
#40, R2
P11K STEP
(R1}
: TRAP ON_TIME OUT

SUB

#4000, R1

ADD

cMP
BNE

$177776,R1
18

(5P)+ @%ERRVEC

R1,8LSTARD

MOV

(SPY+,R3

MOV

MOV
MOV
RTS

.WORD

$LSTBK: .WORD

,,LQST ONE
NO--TRY RGARIN

%40, R2
; DROP BACK
RO, 5P
*RESTORE THE STACK
(s¢)+,ac£RRvec+a ; ;RESTORE ERROR VECTOR

MOV
MOV

_SBTTL

,,noonsg?
OF g "PAR"
;
GHT
"PAR.’S” AND EIGHT °‘PDR.'S"
PDR = YK, UP, READ/WRITE
,,Lono “PAR"
} ;UPDATE FOR NEXT "PAR"

INC
MOV

cMP

MOV

$LSTAD:

IKIPQRO R2
#108,R3’
877406, -40(R2)
(SP), (R2)+
uaoo (SP)

%20, JuSR3
33

$SIZEX: SUB
MOV
MOV

- -

;;YES-=SET KT11 KEY
SINITIALIZE FOR “PRR“ LOADING

MOV
BR

$KTNEX: BIC

$CORE:

#100000,SKT11

-(SP)

c1¢7soo,-<Ra)
-(R2)

$KTOUT: MOV
CLR
055716

PAGE 220

MOV
CLR
MOV

172516

056162

056152

0561584
0561586

11578

000040

056164

11579
11575

11577

062702
00S711

0S6l16

010237

056150

11576

10737
005002

100000

056144

11572

11873

000421

BIS
CLR

SOB

11??4 822858 6?120
11585 (056052 005037 177572
11587

MO1

10-JAN-78

ROUTINE TO SIZE MEMORY

172340

006010
077406

11542
055772 8 2742
177800
11843 085776
S042
11544

MACY11 30A(1052)

R2’8SLSTAK

(S5P)+.R2

(SP)+.R1
(SP)+.RO

; ;LAST ADDRESS

;JLAST BANK

: 'RESTORE R3

: 'RESTORE R2

: 'RESTORE Rl
: :RESTORE RO

;CONTRINS THE LAST ADDRESS

:CONTARINS THE LAST BANK

SAVE AND RESTORE RO-RS RbfiTINES

o 36363 36 3 3 36 36 36 36 35 3 36 3 3 3¢ 3% 36 3 36 3 3 3 3 36 3 36 36 36 3 36 36 3 3 3 3 3 36 3 36 3 3 ¥ 3 36 3 3¢ I 3 3 3 3 3 3 3 B £ % ¥ 3 B 2 X

115882
11583

isnvs RO-RS
;;anL.

iiggg

;upon RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

11584

11887

11588
11889

SAVREG

;Top---<+1s)

l +2---(+18)
! +4---RS5

SEQ 0498

SEQ 0219

6MDO RK611-06 SS VERIF |
6MD.P11
10-JAN-78 11:48

NO1

MACY11 30R(10S2)
10-JAN-78
12:16
PAGE 221
SAVE AND RESTORE RO-RS ROUTINES

5390

;% +b---RY

591
592
593

S94
595
S96

597
598
£99

st Pt Pt Pt

; ¥+ 14---R0O

056166
(0S6166
(056170
(Sel172

010046
010146
010246

056202

016646

0S6174
056176
056200

604
605
€06

056206
0Sek212
0S62lb6

ggg
€09
610
b1l

612

613
ol4
615
616
617

Dt Dot Pt Pt Pt Bt ot Pt P Pt Pt ot Pt it ot Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt s P Pt e Pt Pt P

;¥ +8---R3
; #+10---Re
; ¥+ 12---R1

600
601
602

603

0Se222

056224

0S6224
056230
USE234
056240
0S6244

618
615

0Se246
056250

621
622
623

0Sb2SH
0S6eSe
GS6260

e2C

Egg

SEQ Q499
SEQ 0220

056252

010346
010446
010546
O0l1eb46
016646
016646

000002

$SAVREG:

000022

MO
MOV
MOV
MOV
MOV
MOV

RO, ~(SP)
R1,-(SP)
R2,-(SP)
R3.-(SP)
RY,-(SP)
RS, -(SP)

; ;PUSH
;PUSH
::PUSH
; ;PUSH
; ;PUSH
; sPUSH

MOV
MOV
MOV

22(SP), -(SP)
22(SP),-(SP)
22(SP), -(SP)

::SAVE PC OF MARIN FLOW
; ;SAVE PS OF CALL
; 3SAVE PC OF CALL

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(5P)
(SP)+,RS

; ;RESTORE PC OF CALL
s sRESTORE PS OF CALL
: :RESTORE PC OF MAIN FLOW
: :RESTORE PS OF MRIN FLOW
: :POP STACK INTO RS

MOV

000022
000022
000022

22lsp), -(sp)

RTI

RO
R1
R2
R3
R4
RS

ON STACK
ON STACK
ON STACK

; ;SAVE PS OF MAIN FLOW

; *SRESTORE RO-RS
: #CALL:
s ¥
RESREG

012666
012666
012666
012666
012605

$RESREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MOV

012604
012603

MOV
MOV

(SP)+ ) RY
(SP)+,R3

: :POP STACK INTO RY
::POP STACK INTO R3

012601
012630
000002

MOV
MOV
RTI

(5P)+.RI
(SP)+,R0

::POP STACK INTO Rl
;;POP STACK INTO RO

012602

MOV

.SBTTL

62k

{(SP)+ R2

::POP STACK INTO R2

TRAP DECODER

- 1222222222221 222222222223222222 X222

222222222222

627

JETHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP" INSTRUCTION

gg?

:#G0C

628
629

:#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:%0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTARINED IT WILL

632

0Sk262

010046

634
635
636
637
%gg

0S6270
0Se272
056274
056276
0S6302

005740
111000
006300
016000
00020

633

0SE264

016600

STRAP:

000002
0S63ib

640

Ezé

THAT

ROUTINE.

MOV

RO, -(SP)

TST
MOVB
ASL
MOV
RTS

-(RD)
(RO), RO
RO
$TRPAD(RO),RO
RO

MOV

2(5pP), RO

; s SAVE RO

::GET TRAP RDDRESS

; iBACKUP BY 2
::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;; INDEX TO TABLE
::GO0 TO ROUTINE

;:THIS IS USE TO HANDLE THE “GETPRITM MACRO

643

056304

0116y

645

0Se314

000002

E44

0S6306

O0O166EE

000004

000002

$TRAPZ:

MOV

RT1

(SP),

-(SP)

4(sP),2(sP,

:;MOVE THE PC DOWN

: MOVE THE PSi DOWN

: :RESTORE

THE PSW

RIF

CZR6MDO _RKB11/
CZR6MD.P11

SEQ_0S00
SEQ 0221

PRGE 222

TRAP TARBLE

; #BY THE “TRAP” INSTRUCTION.

;

ROUTINE

$ TRPRD: JUORD

0S6332
0S6336
0S6340

TRAP+6
TRAP+7
TRAP+1
TRAP+1

TEST 7

052502

.ASCIZ

/UNIBLIS PAR ERR/

0s410S
042515

EM2:

LARSCIZ

/NON-EXIST MEM/

05410S
0S1104

EM3:

.ASCIZ

/NON-EXIST DRV/

043040
042440

EMY:

LASCIZ

/UNIT FIELD ERR/

0s45e3
04251S

EMS:

.ASCIZ

/SUBSYS TIMEOUT/

041440

EME:

.ASCIZ

/D TO C PAR ERR/

020117
g20lee

EM?7:

.ASCIZ

/C TO D PAR ERR/

0S3517

EM1O:

.ASCIZ

/RC LOW/

g4210S
000123
ns2506

EML1:

.ASCIZ

/SPEED LOSS/

EM12:

.ASC1Z

/ILL FUNCT/

020118

0S110S

EM13:

.ASCIZ2

/PGM ERR/

026516
020124
Co0le4

0S410S
052506

EMIY:

.ASCI7

/NON-EXIST FUNCT/

O+
-—
LU0 L

020122

ettt 1 tetretts thit T

; ; CALL=RDCHR
; ; CALL=SAVREG
; ; CALL=RESREG
;;CALL=SCOPER

AS2SP2:

042440

ST
o0
O
0OW

£ :ogggs

SROCHR
$SAVREG
SRESREG
SCOPE1l

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4 (104404)
TRAP+S(10440S)

EML:

000

—r—NOw—oo
U = YUY O 0 O U = b=t
P pa e P
0o b= LD

o000

o
n
~N
n

STYPOC
STYPOS
STYPON
STYPDS

;:CALL=TYPOC
:;:CALL=TYPOS
:CALL=TYPON
;;CALL=TYPDS

.RSCIzZ2

295 FARAR 7228328 RZAR B

i
3

(=]
n
o
£
o
(=]

RRAR
o

0se610

STRAP?

TSTMSG:

o4esa4

0S6342

o—g‘ngvgm:umv—oam\w‘m} ana%s%

BO2

12:16

:¥THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

£
O

Y
Y o
T

s Pt Pt (rrs Pt st Pt Pt Pt it e et Pt it Pt Pt Pt ot ot ot Pt Bt Pt Pt (et Pt et Pt Pt Pt Pt Pt Pt Pn P

Pt [

oo o
NNoOoo oo oo, oo oo
oot
DWJD@O@mGMOMOMMNINNN
- OO0 mN

11:48

.SBTTL

el el e

s Bt Dt Bt et P o s s (et et Pt i s ot Pt (it ot ot ot et (s s Pt s Pt (s e Pt Pt ot P (ot Pt Bt ot Dot B Bt Bt Pt Pt Pt (. et s Pt o Pt Bt Bt Pt Pt et

10-JAN-78
MACY11 30R(10S2)
TRAP DECODER

/%%

TTY TYPEQUT ROUTINE

TYPE
TYPE
TYPE
TYPE

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING_ZEROS)
OCTAL NUMBER (RS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)

TTY TYPEIN CHARACTER ROUTINE
SAVE RO-RS ROUT-INE
) RESTORE RO-RS ROUTINE

INTERNAL LOOP ON ERROR ROUTINE

CZR6MDO RK611-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

11702

11703

11704

020126

0S4S5e4

EMIS:

.RSCIZ

DRV TYP ERR/

0S6630

046506

020124

0S110S

EMi6:

.ARSCIZ

/FMT ERPR/

0See40

0S1le’7

020124

047514

EM17:

.ASCIZ

/WRT LOCK ERR/

0S3122
043101
0O4SS0S

0Se440
000105
044440

EM20:

.ASCIZ

/DRV UNSRAFE/

EM21:

.RSCIZ

/SEEK INC/

046131
046106
020114
042101

047440
000117
0S4503
0S1104

EMe2:
_
cM23:

.ARSCIZ

/CYL OVRFLO/

.ASCIZ

~/ILL CYL RDDR/

0S3l22
0S2040

047440
045522

EM24:

.ASCIZ

/DRV OFF TRK/

83 122
111

EMeS:

.ARSCIZ

/DRV TIMING ERR/

000l22
040Se4
000105

052040
020107
046040

EM26:

.ASCIZ

/DATAR LATE/

0S2116
047505

0S2u40
052125

EM27:

.RSCIZ

/CONT TIMEOUT/

020120
050115
0S1104
O0O4e440

047111
000
0S3040
O0Sliee

EM30:

.RSCIZ

/0P

EM31:

.ASCIZ

/HDR VRC ERR/

0Se101
020113

020101
051105

EM3e:

.ASCIZ

/DATA CHK ERR/

ggfll
61
040524

8341%3
Olee
046440

EM33:

.ASCIZ

/WRT CHK ERR/

EM34:

.ASCIZ

/DATA MISCOMPARE~/

11707

11708

0S6654

11712

0S6676

11713
11714
11718
11716

11717
11718
11719
11720
11721
11722
11723
11724
11725
11726
11727
11728
11729
11730
11731
11732
11733
11734
11735
11736
11737
11738
11739

020120
00012

045503

000

oS
0<6b
056670

104
0S1516

056701
0S6706

103
051126

6722
056730
0S6731
0S6736
0S6744
8%67"
6
0S6760
0S6764
0S6772
056776
057004
0S701¢
057013
057020
057025
7032
0S7040
0S7041
0S7046
057054
057
7064
057072

C~0114
000
104
043106
000
éofl
o46S11
0S110S
040SO4
052101
047503
046511
000
117
047503
110
041522
000
104
044103
Q00122
82112?
8&63
O0O40504

0567éfl

11742 05711

Q42523
041516

Q46111

04%516

051105

042440

000

057120
057126
0S7134
0S7142

0S1040
0S1S16
020105
000104

0S1505
026505
0200

11748
11749
11750
11781
11752
11753
11754
11755
11756

057152
0S7160
057166
057173
057200
7206
0S7214
057222
0S7230

020128
047040
042514
104
0O40S24
044103
0S3440
C-7516
04050

g44527
052117
0S1101
053122
0SeSe4
047101
046111
020124
Coole2

11757

057144

0S7234

051104

052101

000122

O0Sl11ee

42040 053122 EM3S:

11743
11744
11745
11746

11747

PAGE 223

0S1104

0Sebe2

0S6b

11709
11710
11711

cae

12:16

0Se6l4

11705

11706

MACY1l 30A(1052)
10-JAN-78
TRAP TABLE

020126

023324

047520
Q43125
os4l16

051105

(046114
041440
000
0S1440
020123
0Q4es07
020114
046103

020116

INCOMP/

.ASCIZ /NO DRV RESPONSE-UFE 8 NXD/

EM36:

.ASCIZ

/DRV ERR WILL NOT CLERR/

EM37:

.ASCIZ

/DRV STATUS CHANGE WILL NOT CLERR/

EMH0:

.ASCIZ

/ATT’'N BUT NO STATUS CHANGE OR FRULT~

SEQ_0S01
SEQ 0222

CZR6MDO RKb11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

MACYil

30R(1052)
10-JAN-78
TRAP TABLE

12:16

PAGE 224

11768
11759
11760

0S7242
057250
72256

052502
0S1440
0201

020124
040Se4
41

047516
0S2Se4
7101

11;63

0s?7

0s2101

3524

020{13

EM41:

.ASCIZ

/ATT'N BUT DRV NOT AVAIL/

;Ssg

85961

EMY2:

.ASCIZ

/ATT'N WHEN NOT EXPECTED/

0O40S07

EMM43:

.ASCIZ

/ERR GARTHERING DRV STARTUS/

i B BN HRL B
11764

11767

2 gg
7

11771

057360

0S110S

ll?bg

020122

11772
11773
11774
11775

4
057374
740
05741

Q44124
020107
052128
00

11777
11778

0S7416
0S7424

0S1104
000114

020126

042523

0e0le4

EMSe:

.ASCIZ

/MULT DRV SEL/

0S7434

0S0115

020122

0O4e440

047503

EMS3:

.ASCIZ

/HDR COMP ERR/

123

041125

0S4523

EMSH:

.RSCIZ

/SUBSYS TIMEOUT~

047111
046101

EMBO:

.RSCIZ

/ERR

11776

11779
11780

11781

0S7411

0S7426

057442

115

042110

000

0S110S
0S1104
052101

046125

047111
020126
051525

O0S1i22

11782

0S7443

1178S
11786
11787
ii;gg

TM
0S7470
0S7476
027512

0S110S
051040
043040
Oql?g?

020122
041505

11791
11792
11793
11794
11795
11796
11797
11798
11799

057522
057530
057536
0§7 4y
057552
057560
057566
0S7S574
057602

043S16
0200S4
020114
ggqggg
1
046103
047503
044504
0O20le4

042040
(040506
0S110S
020114
046517
O040S0S
052116
020104
046103

053122
0O40Se4
000122
044515
0120
Q20122
7”0l122
047516
040505

11801

057616

047516

040440

0S1117
0S3117

0S1040
0S110S

11790 0S7514 gg?low 050117 044520 EMBL:

11800

057610

020122

0S110S

IN RECAL FOR RECOVERY/

.ARSCIZ /DROPPING DRV, FRTAL ERR/

EMB2:

.ASCIZ

/CYL MISCOMP/

EMB3:

.ASCIZ

/CLEAR CONTR DID NOT CLERR ERR~/

0S2124

EMBY:

.ASCIZ

/NO ATT’N

000122

IN ARTT'N REG/

11802

0S7624

047047

Q44440

020116

11805
11806
11807
11808

0S7644
057652
057660
0%76 )

Q47125
044503
0S2101
BH7 es

047523
042524
023524
85 10S

044514
020104
000116
020120

EMBES:

.ASCIZ

/UNSOLICITED RTT’'N/

EME6:

.ASCIZ

/UNEXP DRTAR ERR/

11811

0S%770S

101

0S2124

047047

EMB7:

.RSCIZ

/ATT'N DID NOT RESET WITH CLERR~

1iBle
11813

0S7712
0S7720

042040
0S2117

042111
O0SI040

047040
0S150S

SEQ dJS02
SEQ Oee3

CZREMDO RKH11/06 SS VERIF 1

CZR6MD. Pll
11814

057726

10-JAN-78

11:48

0S2105

O0S3440

0S2523

0S1502

MACY1l 30A(1052)

TRAP TABLE

11817

057744

057752
0S7760
057766
0S7774
8288?5

11824

060011

11825
11826

11830
11831

SEQ_0JS03

SEQ Q224

0Q42S14
042111
Q41440
042040
052124

0S1101
Q47040
042514
0S3122
047047

0S1S31

EM70:

.ASCIZ

sSUBSYS CLEAR DID NOT CLERR DRV ATT'N/

0S2101

020101

EM71:

.ASCIZ

/DATA LATE WHEN RERDING HDR/

EM72:

.ASCIZ

/CONTR ERR WHEN DRIVER SERV/

060016
0024

0O40S14
0O4eS10

060044

047503

00Se
0060

PRGE 225

041440
0O4204C
052117
0S1101
090340

Q42524
020116

0S3440
Q42522

el e SE sl e
11829

EO2

12:16

0Seill

el Bl GE ceiss ol
11818
11819
11820
11821
{%ggg

_10-JAN-78

0S110S
047105

052116

020le2
Q42040

020122

Q44127
Q44522

e B Gios g o
11834

060077

104

0S3122

042040

EM?73:

.ASCIZ

/DRV DET PAR ERR/

i{ggg

gggiéz

owaasg

ggfiég

043683

EM7Y:

.ARSCIZ

/UNDEF ERR/

11839

060131

115

051101

044513

EM?7S:

.RSCIZ

/MARKING THIS SECTOR BARD/

EM76:

.ASCIZ

/BAD DATA VERIF’'N WITH READ.

e Bl melg g <y
11840
11841

060136
060144

043S16
020123

052040
Q42523

Q44510
052103

11844

060161

102

042101

042040

11847
11848
11843
11850

060202
060210
060216
060224

044527
040505
041503
040514

044124
027104
047440
052123

11853

06043

122

052105

0S4S22

EM?7:

.ASCIZ

/RETRY SUCCESSFUL~

11856
11857
iigég

060264
060272
068382

042522
047125
051888

0S11e4
052523
043123

020131
041503
0O4bleS

EMIO00:

.ARSCIZ

/RETRY UNSUCCESSFUL~/

11860

060307

103

047101

047516

EMI0Ll:

.ARSCIZ

/CANNOT FIND A VALID HERDER IN TRACK JUST RERD/

EM102:

.ASCIZ

~BAD SECT ERR ON SECT NOT LISTED BRD/

g g

11845
11846

0e0166
060174

iy Sow

0Se10)l
4522

020101
023506

el B Beln S

042526
020116

051040
Q42440
020106
051040

el i @it dl gk
11861
11862
11863
11864
11865

060314
060322
060330
060336
060344

020124
040440
042111
042504
0S2040

044506
0S3040
044040
020122
040522

042116
046101
040505
047111
045503

060365
060372

102
041505

042101
020124

0S1440
051105

HEe S R el Lo
1i868
11869

ECC OF LAST RETRY IS:/

CZR6MDO RK611/06 SS VERIF 1
10-JAN-78 11:48
CZR6MD .P11
060400

0201ee

047117
020124
O4451Y4
041040

75
26
77

061036

o4ssee

PR
e O~ 20 2

OO N——-NONO
— Y
= N0 s (JV0—2 0=s (JV0— =2 O 0 e (N0

030461

030466

30A(10S2)
TRAP

TABLE

FO2

10-JAN-78

12:16

PAGE 226

SEQ QS04
SEQ 0228

0S1440
047516
052123
042101

Q42105
047440
o42101
000
Q4e210S
047440
045505

EM103:

.RSCIZ

/TIMED-OUT ON REARD HDR/

EMIO4Y:

.RSCIZ

/TIMED-OUT

0S1440
020104
o441ey4
051117

EM10S:

.RSCIZ

/DRV SIEZED BY OTHER PORT/

o46440
051120
o4a514
051440

EM106:

.RSCIZ

/DATA MISCMPR WHILE

042S16
Q20122

EM107:

.ASCIZ

/NO NEM ERR WHEN REF’ING LOC

EM110:

.ASCIZ

/INTRPT

EMI1l:

.RSCIZ

/NO

EMll2:

.RSCIZ

/DRV CYL INCORRECT/

EM113:

.RSCIZ

/RABORT-

043040
o4ase2

EM114:

.ARSCIZ

/KT11

0S0040
osliie2

EM11S:

.RSCIZ

/MEM

Quesee
o4211s

DH100:

.RSCIZ

/CURRENT

CMD

020126
000072
020061

DH10S:

.RSCIZ

/PREV CMD

DH200:

.ARSCIZ

/RK&11

Q41517
0060

S22R LENLN

QEN-BZaE
R PonEre

QRO000C0000 COOREERCON o
& _ENNOISTLES

Q41040

Q
00
£
Wwwn
o
v
(S
LU=
e s st e (O e 9o
N—0Or- e O
b= O U= (N L0t bt s e L
ot 000000
L L0
woo
QO0CWO-NO—-WNNOOTMN
L

DO D DD

PO
U MUY Y s e bt s s s s s b=s bee (O
N LW~ O0OVONCNZWN~0OWw

DO 0D DO OOD DD D0DDDDDDDD 0 0 0D 00 0 ) 0O 4D A (D QD D GO 00 0D (D €D €D OD D (D (D D M (D D
0 S0 00 00 WMo MO~
NN LW
am~N
LW — 00D NC N LW(@ Veo)

Pt 0t Pt Bt Pt Pt s Pt Pt Pt Pt Pt it e Bt et Bt Dt Pt Pt Pt Pt Pt Pt Pt Pt et et Pt P Pt P ot Pt Pt P Pt P Pt Pt ot Pt Pt P Pt s ot Pt Pt s Pt et Pt
e B0 s et s ot ot ot P Pt ot (ot Bt Pt it s Bt Pt ot ot ot et Pt Dt s Bt et Pt Pt Pt Pt Pt Bt Pt Pt Pt Pt e s et et Bt Pt Bt Bt s Bt Pt Bt P Pt e

11870
11871
11872
1873
874

MACY1l

WHEN

ATT’N

SEEK~/

CNTRLR NOT

SEEK~/

CAN'T

RERD

c20104
FRILURE/
PAR

ERR~

REGS

BAI

:~/

BSF~/

SET~/

RDY/

760000/

CZRBMDO RK611/06 SS VERIF 1
CZR6MD.P 11
10-JAN-78 11:48

MACY1l 30A(10S2)
10-JAN-78
TRAP TABLE

GO2

12:16

PAGE 227

SEQ@ 0S0S
SEG 0226

122

046505

044501

DHSOO:

.ASCIZ

/REMAINING REGS NOT VALID/

O G g Do s

DHSO01:

.RSCIZ

-THE FOLLOWING REG DRTR MA: BE INCORRECT :~/

/ERR PC

DRIVE

~/HI BRA

LO BR/

—

035040

J0
0
nn
~Nor

051507

—

042522

11
11928

061044
g610Se
061053

S Eier oels L Gio
11933

061104

Qu4lev4

oegéog

8:;?9?

11936
11937

061126
061134

Q405
0S4S01

40524
041040

046440
020105

11940

061156

051105

020122

11935 061155 SBOIQZ §38522 0820107
11934

0611

6114

e RuE B e g
11941
11942
11943
11944
11945
11946
11947
11348
11943

Oe6lit4
061172
061200
061206
061214
0Oble22
061230
061236
061244

020040
020105
042116
054508
020040
020113
052103
042127
000

0S1104
020040
020040
Q47114
0Slled
020040
0S1117
041440

041520

053111
046503
020040
0S1104
041501
042523
020040
052116

DH101:

.RSCIZ

iigSl

06%22§

858840

020111

096838

040502

OH102:

.RSCIZ

11954
}{ggg

061270
06{275

0S2440
0881;3

044516
040S1S

052502
020120

11960

061326

052503

027122

0S2440

DHIO6:

.ASCIZ

/CUR.

11963

061350

045522

0S1503

020061

DOH201:

.RSCIZ

/RKCS!

RKCS2

.RASCIZ /RKDS

RKER/

.ASCIZ

800

11350

061245

119%% 82156

110

020117

lgg 042522 027126 DH103:

11957 821382 88481 0S1040 043505 DHI04:
e gl Bl gl S

HE E5F ok
11964
11965
11966
11967
11968
11969
11970
{}ggé

061356
061364
061372
061400
061406
061414
0O6l4e2
82{:30

020040

041504
SS
020040

Q20122
040S02
045822

045522
020040
020040
o40S04
045522
020040
020040
051501

GRS
051503
045522
020040
020040
041527
Q4S5See
020040
043117

11973 0614%9
122 O42113 020123 DH202:
HEE g g Schod BB
11376
061454
Q3010
o)
Q040 DH203:
5 R R meme s
11978
11979
1i380
11981

061470
061476
061504
0O&iSi2

020040
020061

030102
020040

020040
020040
02006!
030101

030101
020040

020040
020062

CMND

CYLNDR

TRACK

SECTOR

WD CNT/

RKDC

RKDR

RKWCR

RKBA

RKASOF~

RO1

BO1

802

RO3

.ASCIZ /PREV. UNIBUS MAP :~/
.ASCIZ ~/HI REGO LO REGOD/

~-R00

UNIBUS MARP :~/

803~

CZReMDO RK611-06 SS VERIF

[

MACY1l 30A(10S2)

0OM7440

DHED2:

.ASCIZ

/HDR OF SECTOR O THIS CYyL IS:~/

20
o4

045503

040440

DHBEO4:

.RSCIZ

/PACK ADDR OF ERR(S)

Q42440

020122
0Sll2e

859808

84?1 4

Q51104

DHBO41:

.RSCIZ

/CYLNDR

TRACK

046131

042116

DHBEO42:

.ARSCIZ

~/CYLNDR

TRRACK/

020101

041503

042040

DHBOS:

.ASCIZ

/ECC DARTAR 1S:~/

§20040

DHBOS!1: .ARSCIZ

S11
020040
0S1117

0S2040
000

52103
0Se040

043117
0S1M4S0

41501
042523
000

040S22
0S1S11

PART

CORRECTRBLE?~/

—

WORD2

WORD3~/

030504

DHBOB:

.ASCIZ

/WORD!

DHE0?:

.RSCIZ

/BRD HERDER IS :/

DH702:

.ASCIZ

~G30D

o
u
W
Q
£
o

062166

0S1123
004461

—

042117
Q40502

—

047507

020107
053440

(@]
v
o

o
£
n
£
£
O

0b2lee

[

=)
14V]
o

0S110l

F—

0sO1l1l

[

(=]
"N
n

O
o
n

n
(=]

)

062150
062156

SECTOR/

/POS

§§§§§§ 85?% §§i 38 020043 DH70Ll: .ASCIZ /WD #
o

—

o000
L
~N
N
L EN
000

[

2004
020113
0s2103

842823
30040

£
£
o
£
o

[

09
1

|®)
n

0S1104

@]
W
=]

]
=]
£
o

~/HDR SHOULD BE:~/

SR FER 20 oR2VERE
FR

.ASCIZ

NN NNNNNNNO
OO
OO T oo
NNun wn
Uit W)
£
£ nEeENE
AV

s—
s Bt s
Pt Pt Pt

s Pt Pt P

s Pt Bt
s
e

e
et Pt ot

DHeOl:

041040

GOOD

BAD

020040
000104

040504
0S1117

040524
020104

047111

DH703:

.ASCIZ

/FARILING DATA WORD : -

004460

0S1123

DH704:

.RSCIZ

~/SRO

Q45111

0S1123

004462

HI PHY LO PHY VRT AD KIPARG~

BRD/

SR1

SR2

SEQ@ 0227

044123

2663

0S1117

— —

SEQ 0506

20122

=] o
[N o
nn

PAGE 228

061771

Oe2174

12:16

030102
020040
88882%

080é5§

(o]
o
n
|&]

10-JAN-78

02004C
020040
020063

Pt Dt B

Pt Pt

R R AR AR

TRAP TABLE

020040
020062
C 0101

(=] o
Ln
Qo
wn o
Q£
oo

061520
061526
061534

£W
n£

ol Sl )

ST S

Sy WP

DY SO DY

Y Uy Wy Shy Py Py Uy Sy Ny s
s
[ X1 —— Pt

st Pt Pt Pt Pt Pt Pt Pt Pt it Pt Pt Pt Pt P

Pt Pt Pt

VNN NN NNV
MY TVNY R N PV
N Y
VNN XYnrun n nr U U ) 0 0t 3t ot et Pt Bt Bt Pt Pt Bt ot fon Pt Bt e
O000000000 000 0000000000000
0 MM000 o 00 [@] QO WD WD DODDDDDODODDODD
W [}
WWwWww
|9
nn nnn
TU N N0 b=t $os ot host poct st pe 4a ) 000 o 00 |=] [ I IV IV e ]V ]
o
W0 [¥eldo] NN LW~ OODNTN LWN-— OWD[
RN
To ) n FaN n fe—y OVONCNL£WNL—-0OWONCNL
~N
n

8»00\00\0\90)0)0@0(1)

11982
11983

10-JAN-78 11:48

Q
[Ty
n

CZR6MD.P11

HO?

SR3~

CZR6MDO RK611-06 SS VERIF

CZREMD.P11

10-JAN-78

11:48

MACY1l 30A(10S2)

TRAP TABLE

10-JAN-78

102

12:16

PAGE 229

12039

062206

062202

0S1123

000063

030461

051040

DH70S5:

.ASCIZ

/KT1l REGS :/

12041
12042

062222
062230

042515
051507

020115
035040

042522
000

DH706:

.RSCIZ

/MEM REGS

DH707:

.ARSCIZ

/PC

LOERAD

HIERRD

CSR RD

SR/

062303
062310

2054

062317

o
n
n
n

Q
=)
£
n
o
£

0S151S

0S1531

004503

0S1503

DH710:

.ASCIZ

/PC

103
048888

047111
035040

DH711:

.ARSCIZ

~/CYLINDERS

122

020123

DH204:

.ASCIZ

/RKDS

10S

0S1122

052040

DHS02:

.ARSCIZ

/ERR TRYING TO GET FRILURE

052040

DHSO3:

.ASCIZ

/2°'ND TIMEOUT OCCURRED GETTING DRV STARTUS/

000
020106
04251l

DHBOO:

.RSCIZ

/s OF RETRIES:~/

00SSO6

DT100:

046511

047505

2073
20?4
2075
2076

062465
0Obe472
062500

043
042522
035123
062504

047440
051124
000

2078
2079
2080

062512
062520
062522

001162
001170
001256

001164

062534
06e2S42
062544

001202
001210
001212

2077

062504

054522
047524
043040
042522

023462

001116

2081

062526

2085

062550

001216

2087

06beSe4

001232

2089

062576

2082
2083
2084
2086
2088
2090
2091
5092

062556
062570

062604
0e2bl2
0t2bl4

051040
020040
031122
046513

ngflgg

062414

MEMSYS/

042113

2067

2066

SEQ 0228

020040
020122
046513
051040

062324
062332
062340
062346
0623b2
0e2370
062376
062404

041411

SEQ@_0S07

042101
000
046131
0S1522

2035
2us6
SOS?
0S8
2
2 060
4 061
2 062
2 063
2064
206S

062355

047S14

004503

BBRRERCRE

2 051
052

052113

— OUN
U e =

12038

001174

00lee4
001174

001202

001210
00216
00S2e4

047111
043440
044501
O44440

042116

00SS10

001260

001176
001204
001214

00i220

00le226
001234

001176

001204

001212
005262

042513
0S1040
020040
03152
020107
05210S
0S2S14
043116

0572125

001166

001200
001206

001222

001230
001200

001206
001214

DT102:

.EVEN

RKMR3-

INFO/

SERRPC,DRIVE,ERRCOM,SREGO.SREGI,S$REG2,
SREG3

.WORD

SREG36,S$REG37

.WORD

DT202:

.WORD

OT60l:

RKMR2

.WORD

OT20I:
DT203:

RKER

.WORD

S3REGS,$REGE,SREG7,SREG10,SREG11,SREG12,SREGL3
SREGI4,SREGIS

SREG16,SREG17,SREG20,SREGZ21,S$REG22,
SREG23, SREG2Y, SREG25
SREGS,SREGH, SREG?

DTe02:

.WORD

SREG10,SREGI1,SREG12,$REG13,$REGIY,SREGIS,SREG1E

DT103

.WORD

PRMPHO,PRMPLO

cLRsnoo RK611-06 SS VERIF 1
CZREMD. P11
10-JAN-78 11:48

12094

062620

000006

062630

061245

12095
12096
12097
12098

062622
062623
062624
062626

12100

062632

12099
12101

000
000
061156
007

DFOi:

000

002

0oo

.BYTE

2,0

000

.BYTE

007

000

12103

062640

061350

12105

igigg

062644

062646

061053
000

000

12168
12109

062650
062652

000007
000

000

12111

062650

007

000

002

000

12104

12110

12112

062642

062659

061156

062660

061245

062664

061036

062670
062672
062674

061350
00?7
061437

12120

062700

061454

12123
12124

062704
062706

12126

062712

12113

062662

12115

062666

12114

12116
12117
12118
12119

iSigé

12125

12127

062676

062702

062710

000

010

000

000010
000

000

06115&

osxaqs

12129

062720

061036

12131

062724

061350

062730

061104

062734

061437

062740

061454

12140
12141

12143

12130
12132

12133
12134

12135

062716

000

007

000

002

000

01c

000

062744
062746

000003
000

000

062752

007

000

002

000

062726
062732

12136

062736

igigg

062742

12137

12142
12144

062750

061156

igizg

062754

062756

061245

12147

0e2760

000007

12148

062764

O0B1156

12148

062762

000

.WORD

000

DAHSOO

.WORD
.BYTE

7
0,0

.BYTE

DFO3:

-WORD

DHeo3

2,0

10,0

10
0,0

.WORD

DAI1OI

-WORD

DAHI102

_WORD

DF200

"WORD

DH201

.BYTE

'BYTE
BYTE

.WORD
'BYTE

.WORD

7,0

2,0

0,0

7,0

DASO!
0,0
2,0

.BYTE

10,0

.WORD
BYTE

.WORD
.BYTE

DH2u3

3
0,0

DAIOI
7,0

.WORD

DAHI1OD2

.WORD

7?7

.WORD

DAIOI

.BYTE

'BYTE

:*THE FOLLOWING REG DATA MB INCORRECT"

DR202

.BYTE

.WORD

DFOS:

0,0

DH201
7,0
DH202

.BYTE

DFO4:

2,0

-WORG
'BYTE
.WORD

.WORD
.BYTE

7,0

DH200

'BYTE

'NUMBER OF COL FOR FIRST HDR
*ALL CHARACTERS OCTAL
:SECOND HDR LINE
:NUM OF COL-ALL OCTAL

DH1D1

_WORD

'BYTE

:NUMBER OF HEADER LINES

0,0

DHl1O02

"BYTE

SEQ 0508
SEQ 0229

7,0

-WORD
BYTE

PARGE 230

0,0

.WORD

Joe2

12:16

DH200

DH201

.BYTE
DF02:

DKF102

.WORD
.BYTE

000

002

062722

.WORD

000

002

062714

12128

O
O
DH101
7,0

061036

062636

.WORD

'BYTE
BYTE
.WORD
BYTE

062634

12102

MACY11l 30A.1052)
10-JAN-78
TRAP TABLE

2,0
0,0

:0PI,

HVRC

CZR6MDO RKB11-06 SS VERIF 1
CZREMD. P11
10-JAN-78 11:48
12150

062766

007

000

002

000

003

000

.BYTE

000

.BYTE

003

000

000007
000

000

007

0c0

002

000

.BYTE

2,0

060

000

.BYTE

0,0

003

0co

000

12151

062770

061245

12153

062774

061550

(063000

061771

12157

063004

061567

12189
{gig?

063010

063012

061771

12162
12163

063014
063016

12182

12184

12185
12156

12158

062772

062776
063002

063006

12164

063020

061156

12166

063024

061245

063030

061624

063034

061652

063040

061717

063044

061734

003

000

063050
063052

00000S
000

000

063056

007

12165

063022

12167

063026

12169

063032

12168
12170
12171

12172

12173

12179

}gigg
12177
12178

063036
063042
063046

000

12191

063102

061156

.WORD
.BYTE

DAH&OM
DAH6OY41
3,0

.WORD

DABOS

.WORD

DH60S1

'BYTE
.BYTE

0,0
3,0

000

12193

063106

.WORD

.WORD
-WORD

.WORD

DHl102
DHEOY

DAHBOM1

000

'BYTE

0,0

003

000

.BYTE

063104

061652

12194

063110

062037
000

000

12187
12198

063114
063116

000006
000

000

12200

063122

087

000

002

000

000
061350

000

063120

061156

12201

063124

061245

12203

063130

061036

DF1l:

DA1iOI

M4
0,0

061624

063132
063134

.WORD

7,0

.WORD
.BYTE

063100

12204
12205

DAHIOR2

3,0

000004
000

063126

.WORD

.BYTE

063074
063076

12202

DAIO!

0,0

12188
12189

12199

.WORD

.BYTE

000

063112

7
0,0

000

003

igigg

.WORD
.BYTE

3,0

000

061652

12192

DHBOB

0,0

2,0

063070

12190

.WORD

3,0

'BYTE

12185

063072

DABO2

000

061624

{gigg

.WORD

062

063064
063066

DH60B

.BYTE

DF10:

0,0

-WORD

.BYTE
DFO7:

DA6O!

7,0

061245

12183

.BYTE

2,0

'BYTE

063060

12184

.WORD

7,0

000

12181

063062

.BYTE

.WORD

DHBEOM1
3,0

DAH?701

.WORD
.BYTE

&
0,0

.BYTE

DF12:

DAHEO4

.WORD

-WORD
BYTE

0,0

DHI1OI
7,0

_WORD

DHIO2

_WORD

DAH200

'BYTE
'BYTE
.WORD

¢,0

0,0
DH20l

KO2
L

12:16

DA102

S
0,0

063054

12182

.BYTE

.WORD

.WORD
'BYTE

12179
12180

MACY11l 30A(1052)
10-JAN-78
TRAP TABLE

PAGE 231

SEQ _0S09
SEQ 0230

CZREMDO RKB&11-06 SS VERIF 1
CZR6MD. P11
10-JAN-78 11:48
12206

063136

igggg

063142

12207

12210

000

.BYTE

7,0

oou

000

.BYTE

4,0

062317

063144

000006

063154

061245

063146
063150
063152

12215

063156

12214

007

063140

12211
12212
12213

000
061156
00?7

000
000

002

000

12216
12217
12218

063160
063162
063164

0B61SSC
000
061771

12220

063170

062355

063174

000006

12219

isggé

12223

12224

063166

063172

063176
063206

12530

063212

12232

063216

12229

000

003

000

000011
000

000

Oe3222

12236
12237

063224
063226

061156
00?7
061,45

12252

063264

061454

122585
18256

12258

12269

12260
12261

.WORD
.BYTE

11
0,0

.WORD
.BYTE
"WORD

0,0

DA101
7,0
DA102

000

061104

12257

DHSO2

.BYTE

000

3,0

.WORD

007
061437
002

063260

issga

DHEOE

.BYTE

0,0

062414

12251

.WORD

2,0

'BYTE

063254

12250

DAe&O!

000

061350

063256

.WORD

000

063244

18249

ofi101
0
ohxoe

2,0

12244

12248

- WORD
"BYTE
-WORD

'BYTE

06136

063246
063250
063252

0,0

000

063240

12245
12246
12247

.WORD

BYTE

.WORD
.WORD

DAH200
DH201

000

'BYTE
_WORD
.BYTE

7,0
DH202
2,0

000

BYTE

0,0

000

oio

000

063~”0
063¢72

00001l
000

000

063276

007

000

602
061036

000

063262

063266

063274

063300

063302
063304

061156
061245

.WORD
-WORD

DF16:

DHSO3
DHSD1

'BYTE

0,0

.BYTE

10,0

.WORD
.WORD
'BYTE

.WORD
BYTE

"WORD

_BYTE
_WORD

sFORMAT FOR 2ND LEVEL ERROR

:IN HEADER COMPARE ERROR
'AND 2ND LEVEL HEARDER
: VRC ERROR

3,0

DASO2

'BYTE

PAGE 232

DHEO!
0,0
DHBOB

-WORD

.BYTE

DF1S:

DA1O2

€2

12242

063242

DF14:

000
000

igsgg

12243

000

002

062355

063236

.WORD
.BYTE
.WORD

.BYTE

063220

12241

2,0

000

061771

063230
063232
063234

.BYTE

.WORD

00o

0,0
DHIGI
27,0

000

063214

12238
12239
12240

.WORD

LO2

12:16

DH204

.BYTE
.WORD
'BYTE

.BYTE

061550

12233

DF13:

000

063210

12231

"WORD

003

12225 063200 061156
12226
007
12227 063202
063204 061245
12228

MACY11l 30A(1052)
10-JAN-78
TRAP TABLE

DH203
11
0,0

DAHIO!
7,0

DAIO2

2,0
DA200

;FORMAT FOR 2ND LEVEL ERROR

:IN OPERATION INCOMPLETE ERROR

SEQ 0510
SEQ 0231

CZR6EMDO RKG11-06 SS VERIF |

CZR&MD.P11
12262

063306

12264

063312

12263

063310

10-JAN-78 11:48

063322

12270

063326

12269

000

.BYTE

0,0

007

000

.BYTE

7,0

000

.BYTE

0,0

000

"BYTE

0,0

061104

}Sg;g

063330

063332

061454
010

000

12274
12275

063334
063336

000005
000

000

12377

063342

007

000

002

000

002

000

12276

063340

061156

12278

063344

061245

12280

063350

062303

12279
12281

12282

063346

063352

isgga

063356

063354

062126

12285
12286
12287
issgg

063360
J63362
063264
063366

000002
060
061306
002

12290
12291

063370
063372

000002
000

000

{5533

063376

003

000

12292

063374

061734

063400

000006

63404

06100S

12299
12300
12301

063410
063412
063414

06!156
00?7
061245

12303

063420

061326

063424

061306

12308
12309

iS%ié

12295

1229

1829

12298

12302

63402

063406

063416

.BYTE
DF17:

.WORD
.BYTE

000

10,0

S
0,0

DA101
7,0

_WORD

DA1O2

.WORD

DH711

.BYTE

2,0

"MORD

DAM702

OF20:

.WORD
.BYTE
.WORD
.BYTE

2
0,0
DA104
2,0

DF21:

.WORD
BYTE

2
0,0

.BYTE

000

060

.WORD
.BYTE

DH203

.WURD
.BYTE
DF22:

.WORD

JBYT

DFBOS!
3,
&

0,0

-WOR

DAH100

"WORD
BYTE
_WORD

DA101
7,0
DA102

.BYTE

000

2.0

000

'BYTE

0,0

002

000

.BYTE

2,0

063430
063432

000002
000

000

063436

001

000

063426

063439

062465

12313

063440

000001

002

000

12316
12317

063444
063446

000000
007

000

063442

'BYTE

0,0

0G0

1538?

}sgig

.WORD

DASOI

000

063422

12310

000

HORD
DHg02
.WORD DHSO2

.WORD

-WORD
DF23:

¢&,0

DA106
DAH1OM

.WORD
'BYTE

2
0,0

.BYTE

1,0

"WORD

DHABOO

DF24:

.WORD

.BYTE

2,0

DF25:

.WORD
'BYTE

O
7,0

MO2

12:16

DA201

002

12304

12305

.WORD

ooo

063324

12271

TRAP TRBLE

10-JAN-78

000

061350

15560
§2§3%" 061432
1§as§ 6332 osagss
12268

MACY1l 30R(10S2)

PAGE 233

SEQ 3S11

SEQ 0232

358

063670

o
On
NO O
\ID'—DSD
o

~Onn
n

D\JO\JQEDFO
o
]
o

DF31:

000

—

000

000
000

000
030

000

£
[Ye

—

coo

020040
020040
02005e
025040
ole
Quel14
042526
041040
0selel
051525
042526
0 12
020056
047440
0S1440

DF30:

000

;READ/WRITE DATA BUF <AT LEARST 1536(DEC) WORDS>

:
RWBUF

005015
020040
025052
042524
005015
101
o44522
047524
042524
o46440
o40s10
00s01S
061
030062
031062

[—

X-

po]
Nel

000

063554
063554

OoONNONOOoOVT

000

o~NOo
Q
\IDHDED
0
o
o
n

063552

000005
000
061156
007
061245
002
062222
000
062265
003

000

00000S
000
761156
007
061245
002
062206
000
062166
004

FO00NNONDO i

002

DFe7:

000

000005
000
06! 1Sk
807
061245
002
062148
ooc
062126

000

063460
063462

DFeb:

000

PAGE 234

000302
002
OF 1454
010

NO2

12:16

30R(105c2)
10-JAN-78
TRAP TABLE

063450
063452
063454
063456

MACY1l

WOoOOONONOOoOUT

nnunn
wwwma(&:wwmwwwuuuwwwwwuuwwwwwuc
HJWWWWWWIIIWW
NNELEL
L £ L L L £ LWWWWWWWWWGL
VIV
NN NY>——
ook W -Oom xw'uu:umo—o.om\w"m:uk‘»—&)mm\ly{x:umhoom

CZR6MDO RK611/ 06 SS VERIF 1
1
10-JAN-78 11:48
CZR6MD.PL1

.ASCII

(1Sr<12> 7/

o42040
020123
020105
042105
ge0leYy
035040

.ASCII

7ALL DRIVES TO BE TESTED MUST HAVE :/<¢1S><1a><12>

020101
020122
041505

.ASCII

/1.

020040
020040
047516
0esose

NOTMSG:

%%% NOTE *%%/<1S)<(12><12>

A 20 OR 22 SECTOR FORMATTED CARTRIDGE/<¢1S5><12>

SEQ 0512
SEQ 0233

.o
o

s OSIII
cdsi

CZR6MDO RKB11/06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.PL1

N
RER

ot Pt Pt P P Pt ot Pt Pt Pt Pt Pt P
ryrofururv n DY

sttt

MACY11l 30A(1052)

TRAP TABLE

_10-JAN-78

il Rl

BO3

12:16

PRAGE 235

047506

047524
Q46522
020104
o44S2e

12374

006505

Q4as10
Q40515

.RSCII

/e.

12>
HEADS MANUARLLY LOADED/<¢15>

guaso

.RSCII

/3.

DESIRED PORT SELECTED/<¢15><l12>

.RSCII

/M,

WRITE LOCK DISRBLED/<15><¢<12>

0S1104
g4esee
O44S1Y
047117

.ASCII

/S.

<12
DRIVE READY LIGHT ON/<1S><12>

042526

.ASCII

/DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15><12>

.RSCII

/PORTS DE-SELECTED. /<«1S><12> 12>

.RSCII

8PLERSE NOTE THAT THE DEFAULT VERSION OF READ/WRITE3¢1S><«12>

.ASCII

>
12>
/DATA TEST 21 TAKES ABOUT 10 MIN, (20 FOR RKO7),/¢15

.RSCII

(12>
/REGARDLESS OF THE PASS NUMBER./¢15)<12>

054514
o42504

386

o4ese4

osl1le?

289

006504

SPekiisseR

o|
£ =]
oun
e e (IO
e
Fdal
O~

2353222820

Pt ot Pt et Pt Pt Pt Pt Pt P (@)

DOV
L W0 0

393

RN
fLrrLLLcL

Dt et s Pt ot Pt Pt s ot (s it Pt s Pt Pt P P Pt Pt et ot Pt Pt Pt Pt Pt et st Pt Bt P

0Ob4200

064344

1ee
o46104

04210S
o42se3

024467

006454

043505
0S1505

051101
020123

SEQ 0S13
SEQ Oe34

CEREIROL
O P SRR g

CO3

T HRROTRY
10T
12ins

12430
18331

064352
06:360

043117
OSOgHO

0S2040
0315?1

042510
gg?igg

12434

064400

OH7SOS

g20l2g

02013¢
0S0117
047511

030065

050103
0S110S
026116

12440
12441

QOe4444
064452

033061
027061

Q41517
020066
005015

020C
020075
000012

18035

12435
12436
12437

12445

Beudsh BRERAR Boddi3

064406
064414
0e4422

0O4404C
020125
052101

000001

.ASCIZ

.END

e 23

/FOR S0 HZ CPU OPERATION,

SE0,95 4o
PATCH LOC.

166 = 1./¢1S><¢12><1>

CZR6MDO RKB11-06 SS VERIF

CZR6MD.PL1

10-JAN-78 11:48

MACY1l

30AR(10S2)

10-JAN-78

12:16

PARGE 23?

ABASE = 177440
ABORT = 000200
ABOV
12044

coies
40718
awbg.

2104
6962
9478

2145
8875
9516

4555
9228

9233

9316

9341

ABOVE3
ABVMX]

43708
3458%

6083
5809*

S834

S899*

60SY#

7721%

7902

-;§é79

4323
3?§30

REBHA = QU 88

Sl Y

ACPUOP=
ADDWG =
ADDW]1 =
ADDW10=
R0DW1
1=
ADDMie=
RDD1
3=
RADDW14=
ADDWS=
ADDWe =

000000
000000
000000
0000
000000
000088
0000
000000
000000
000000

2104
2104
o4

RODWY =
ADDWS =
ADDWE
=

0000
0000
000

APRIOR= 000000

R DYDY

6919

6072%

7722%

7917

9278

ells

2146

J
L X

£
£
£
£

—

000000

LfENIZLLrrrf
L
L~ LWL L LWL L L rLr L L L L L L L

APASS

o
P1]
<

D
r

RADODW3 = 000000

30598

RN NIV

= 000010

. LRV £ 200 £ £

Ot 0t () bt D Pt ot Pt Bt Pt Pt P P Pt e e s Pt Bt (D) (] 9 Dt e Pt () 0 s Pms st Pt Pt e Pt Pt ot Bt Bt Pt Pt me Pt
0O0ONOOOOOQOQO00Q0OOOQOQ
Lo NOOO—~ 0000000000000
00

ACLO

2838

4622
4631

8883

~N
O
n
[+2]

gavnxa

012201
003172

4732

9317

3452

8943

3504

O LWWNO—r— LW
LW
DO—-ONNCTWNON
L0V

ABOVEL 15101

SEQ 0S1S
SEQ 02 36

CROSS REFERENCE TABLE -- USER SYMBOLS

9459

9429

9439

344y

9449

9454

462

CZR6EMDO RK&11.06 SS VERIF |

MACY1l 30R(10S52)

APTCSU= 000040

10841

11501%

APTPAS

(025570

6415

64208

ASKMDE

015344

ASKTMD

014600

CZR6EMD.P11

APTENV= 000001

APTSIZ= 000200
APTSPO= 000100

ASKTST

014574

10-JAN-78 11:48
6420

11280

4478
10836

11498%
11459

11500%

4698

47818

ASWREG= 000000

2104

RUNIT = 000000
AUSWR = 000000

2104
2104

A.ABNL

RS2SP2
ATESTN=

0SH3ISY
000000

AVECT1= 120210
AVECT2= 000000

3'585; 883834
BADDRY

007650

Al
=
BAle
=
17
=
BDSCHD
BOSECT
BDSRCK

000020
000400
001000
037140
011450
040212

BADSEC= 001000
BADE32
012362

BITO

= 000001

BITOO = 000001
BITOl = 000002
BIT02 = 00000M

BITG3 = 000010
BITOM = 0060020

BITOS
8IT06
BITO?
BITO8
BITO9

=
=
=
=
=

EQ3

12:16

PAGE 239

SEQ 0516

CROSS REFERENCE TRBLE -- USER SYMBOLS

10834

43008
5049
47828

10-JAN-?8

490S
5068
4785

SEQ 0237

11457

11499

4306
5077
4786

4911
5103
4791

ug2g
S1e6
4815

4931
5198
4823

4936
7351
4829

4953

4975

4999

5013

4845

4856

4865

4890

5024

5033

2117

8990
2104

11669%
2108

20118
2104

210M
2144

2143

4554

33408

6882*

6969%

6£973%

B438%

BS27%

BS44x

BSS3¥

9204*

9Y60*

9473k

947S*

10402

41328

6976%

6977%

6978

65990%

6991%

6992

£998%

6999%

7000

7025%

7026%

7027

3204

3348

3441

4639

4737

6151

7390

8119

2111
2118

ggg%: 123@5,
40738
43928

8245
7022

30188
29944
29958
8527
43008
8243

10S71

19638

2991

1893%
18928
1891s

1903
1902
1901

8136

18908
18898

000040
000100
000200
000400
061000

18888
18878
18868
188Ss
18848

8544
8576
88068

8151

1900
1899

1898
1897
1896
189S
1894

9205%
8816

9461% 10406

8824

9406

9509

85584
S40S

3008

8190

3034

3056

8207

8261

8303

8860

8865

9087

10686

5823

5926

65080

7518

7705

11290
3205

11421
3349

3442

3096

3109

3124

3138

3217

3358

4074

9120

5710

BIT10 = 002000

19028

ligggo

3008

5455
764
5696
3036

BIT11 = 004000
BITi2 = 010000

18828
%ggéc

2997
gggg

3026
3027

3048
3049

3067
3084

3083
3098

3097
311l

3110
3112

3125
3126

3139
3140

3218
3219

4075
4076

11428
8863

BIT13 = 020000

1880

3000

3028

3050

3068

3085

3099

3113

3127

3141

3220

6862

6864

BITI

= 000002

2996

3025

3047

3082

4065

6319

9091

BITIN = 040000

?é;Sc

géQ?

3553

ggé?

15822

3086

3100

3114

3128

3142

3360

4677

BIT2

1901s

3010

3037

3038

3058

3206

3350

3443

4066

6325

9095

BITIS =

100000

= 0000OM

é?ggu

3002

3003

3030

3052

3070

3087

3147

3232

3221

3359
5010

11403
7e8l

CZRBMDO RKbB11/06 SS VERIF 1
CZR6MD.PL1
10-JAN-78 11:48

MACY11l

FOJ3

10-JAN-78
12:16__PAGE 240
CROSS REFERENCE TARBLE -- USER SYMBO.S

30R(1052)

3118

3132

6321
3208

9102
3352

3445

4068

3062
9110
306
6351
3064
6380
3045

3104

3119

3133

3209

3383

4069

310S
ge88
3093
9606

3120

3134

3210

335S

4070

3121

3135

321e

4071

3094

3106
9609
3107

3iee

3136

3213

3356

3081

3123

3137

3214

3357

4073

5293

7150

4708
4876
S104
7164%

4713
4894
5130
7169%

7017

7485

8516

9611

10219

10S6eS

10636
9992
9978

10658
10174
10528

10225
10885

10540
10636

10596
10659

10684

§527

5583

5619

5643

5676

5726

BIT3
BITHY

000010
000020

3039
3040

3059
3060

BITS

00c040

BITe

0oo100

B17?

000200

BIT8

000400

3041
8967
3042
6159
3043
5287
3044

BIT9

= 001000

3046

BKSLSH
BLDEXH
BLWMIN
BPTVEC=
BSE
=
BSERR =
BSFACT
BSSOFT
BUFFQ

012463
g4s0le
003170

9836
9399
8807
8812

nunan

O
o

00ss02
000001

7323

10219
S749
6029

10565
5769
76328

105e8

10585

3632

39665

15016
030S30

CHKLIM
CHKLST
CHKPRM

035762
014522
031630

CLOCK
=
CLR
CLRPRM
CMDTO =
CMPBUF
CMPTIM
CMSTRT
CNTRDY
010071

3381
3076

10002
9409
8814
4661
4866
5053
6591
7339

4632
4835
4973

00seze

CHGTST
CHKITR

3207
3061

7720%

5207
BUFPRY

SEQ 0517
SEQ 0238

4837

S440
6256

9933

g479
7063

HY747%

3566

3735

6047

5065
9493

H4384%

g4sl

7840w

4706
487 1%

5087

4792
4918

515e

7293

10649

5867

5949

CZREMDO RKBL11-06 SS VERIF

CZR6MD.P11
CNTRLC
CNTRLG
CNTRLR
CNTRLU
CNTRLZ
CNVTIM
COE
=
comMmMa

COMSTR
CONCLR=
CONERR
CR
=
CRLF
=
CRMPHO
CRYPLO
CRTSER

CR2LF
¢S
CTLOUT
CTO

CYLNDR

0l2426
Q12452
0l2440
0l244s
012433
034136
001000
012465

10-JAN-78 11:48
43988
44028
44008
4401s
43998
5776
30468
44058

MACY1l 30R(10S2)
6466
6480
6476
7130
p4Y72
7763
9323
Y644

7124
79404
9836

8908
8877
9083
4081
10851
8251
8252

10890
8918
8919

012457
005770
036332

4403
3607
5781

8989
S308
5889

9001
5823
5909

3492#

S45ex

004000

005514

239978

PRGE 241

74848

93286

10002

8923
10667

9521

4084

4367

4377

10880

10890

3025
5326
6044

6080
6062

8967
B4ces

8852

5455

5458

S460*

5625

SeB8lx

SeB8

5695%

5696

5699%

5706

5710

1060S

10612

10615

10622

10626

10643

10665

10670

10680

10689

10702

9836

10002

10238

2265

eerl

2e??

eesa

10234

g8920#%
8921
%

(052442

ig;gg

ig;iz

C.SPEC
DASTRT
DCK
=
DCKERR=
DCLO
=
DDISP =
DT
=
DERCNT
DESL
_=
DFLTST
DFQLES
DFSTRT

0Slidee
012556
100000
000020
000020
177570
000400
003121
000010
00S670
011034
0125e2

10485
1975
30528
4088
30614
18258
30668
34178
30164
35674
42438
1369

10581#
Y4318
8558
9413

9411
3502

2042

4466

9350

9375

9420

9431

3587
5046
44238

4820

4839

4842

4863

4888

DFOe

0eees

2193

cell

g?gg

2181

2187

2229

2337

2607

2643

12094s

2289

229s

2301

2355

236!

2367

2475

248l

a487

2583

12123

2391

2397

2517

062704
062744
062760
063014

2199
2331
230?
2319

DF1S
DFle
DF17
OF20
DFel

063114
063144
063174

063224
063270
063334
063360
063370

2373
e4el
a24e?7

DFle
DF13
DF 14

gigg.

DFO3
OF 04
DFQS
DFO?
DF10
DF11

063050
063074

SEQ 0239

_
10238

C.RTRN

BEEEST gégggg

SEQ JS18

7118
7136

3478¢
2980«
3341
18188
18198
34838
34828
5307

GOJ3

12:16

CROSS REFERENCE TABLE -- USER SYMBO.S

005246
000176
Q41460
000015
000200
005270
005266
032254

10-JAN-78

2523

2325
2625

c2e0s
12140
2313
le2liees
12177
12188#

2439
2445
2463
2631
2541

12236
12255
12274
12285
12290

2379
2433
122238

e2el?
2529
2577

2223
2571

2235

2589

2e4l

2247

26l3

12108

2403

2409

2253

2259

12147

2385
12210

2415

12197s

2493

2499

25058

a511

CZR6MDO RK611-06 SS VERIF 1

MACY1l 30R(10S2)

DFee
DFa3
DF24
F

063400
063420
063440
g Hyy

2637
2547
2565
SH&

12295s
€553
12313s
géfl *

DF31

063530

2655

12346

CZR6MD.P11
F
F
DF 30

DHI00

10-JAN-78 11:48

450
63460
063504

bl
2535
2649

0e100S

2lb?
2e4s
2323

DH101

061156

DH102

061245

DHIO3
DHIOY
DHIOS
DHI06

061263
061306
061023
061326

DHS02
DHS03
DH&01
DHEQ2

062355
062414
061550
0B1SB7

120608
120668
119868
119898

DHBEO41
OHe042
DHBEOS
DHEOS1
DHEOE
DH607?
DH701
DH702
DH703
DH704
DH70S
DH706
DH707

061652
061701
061717
061734
061771
062017
062037
062126
06elye
062166
062206
062222
062235

8577
2563
2539
120088
120138
12017
6147
ebl?
120328
666S*
120398
12041%
120438

DHEOY

DH710
DHZ11
DHB0O

061104

0bleeHd

06526
06230
062465
DI
= 040000
DISPLA
00!142
DISPRE
000174
T
= 100000
DLTFLG
003142
= 000040

113338

11994#

1204848
120S1s
120738
3001s
20428
1968
30308
34348
3077

PAGE

2559

12308#»

Bl79%

B8233%

1231b#H

242

SE3

el79

2185

2138l

2197

2329
1

2332

2353

235?

2335

12133
12220
12248
12153
12157

12168

119988
12002
120058
12174
12155
8178%
12030%
12330
12036%
12341
12352

15354
12280
12310
7788
44B6*
4474
9343

2269

2275

2203
2esl

2209

eels

23;7

2333

2371

2287

2293

e22l
2299

REOHM

)

12097

12110

12125

12142

12149

12184

12179

iaa? . iaaqg
1A338% 18847
11953#

12287
11923s
12303
12101}
12103
12118
12120
12207
12105

2263

}2?26
ISME

{S?g;
1859

{S?:s
153<0

12181

1230S

12114
12116
12135
12137

12129
12131
12246
12252

12250

12269

leele

12229

12183

12190
12185

12192

12172
12292
12159

12218

12231

8232%
12282

12020
12332

12134

12233

12170

12203
12205
12265
1227l

lea42
12244
12321

12267

12343

10022
YY7HE

10694
11267%

11441

9830

3960

93936

10236

legebl
12263

12166

12181

2389

12199

12201

ceea?

2305

2335

12212

leeld

2233
2311l

2239
2317

12225

12238

E:g;

leee7
/

SEd 32%0

12335

2257

11940#

061036
061350
061437
061454
962317
0610S3

DHSO1L

2173
eesl

9006

119578
3004
119608
119258
119638
119738
119768
120548
119288

DH200
DH201
DH202
DH203
DH20Y4
DHSOO0

123198
123248
bbb4*

Bde

1825;
123345
2629

12:16

CROSS REFE&ENCE TQSLE -- USER gYMSOhS

g3
Y

C-JAN=?7

HO3

2987

12240

CZRBEMDO RKB11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

DONE
DOTIM
DRR

DROY

DRIV
DRIVE

003123
003133

34198
34278

= 000200

3065%

= 0000Cl

DRNRFG
DRNAVL=
DROPDR
DROTM
=
DRPAR =
DRPDRV=

DRVCAL

011374
00SS10

003137
010000
(011310
000040
000010
002000

(040316

30568
42918
34908
6930

34318
40768
42818
30628
30398
32178

MACY11l

8853%
4520%
982S

10608

894cx
5731

9084*
5872

9198%
5954

9535k
6026

9538
7646%

7453
4750%
6998

S5215%
702S

S222%
8859

tea3
8868

5226
8878

5301
8886

6440
12077

5743

5881

S963

603S

bizl

6133

9910
S220%
9917
4659
9860
S30c#*
10086
1004S

10076
B8966*
10il2
4671
10011

1013¢
8970
10243
4718
10456

8972%

4B2H

Y726%

4738%

4741

9848
46198
5021

10610
4b2H

8854®

700S
8529

000040
003130
000020
00S606
000307
011370
000004
000002
007634
032134
010000
013732

32098
34248
32088
35208
30158
42908
32068
32058
41308
5306
32198
4426

9u4]
44B6x
9436
4640
9819
S301%
10018
10018
4636
74498
9264
4603

DRVUSE=
DRY
=
DR.CLR=
DR.SEL=
DROXDP
DSC
=
DSWR
=
DTBATI=
DTE_
=
CTIYE
=
DIYLST
DT100

000001
000200
00000S

10470

0e&2S04

32048
30644%
29878
29868
41678
30698
18248
32228
30498
30418
35318
c2le8

0eeSse2
06ebl4

2648
12080
2630

062544
062550
062570
062576
010654
003136
0esH4e

eels
120854
es40
2468
Yoe7s
34308
5225

bT102
DT103

DT1201

DT202
D7203
DTe01
DT602
DUACES
DULACS
ODUNPRS

DOOO40
00S61l6

062526

2246
2324
2414
2510

12081
#

6891

6936

6946

6976

6331
8441

8480

4828

48SS

9273

DRVDSC=
DRVERS
DRVHRO=
DRVLST
DRVMSK=
DRVNQO
DRVPDT=
DRVPOS=
DRVSEQ
DRVSER
DRVSZD=
DRVTST

000001
010134
040000
177570
100000
010000

9097

6890

8973
9333

Sege

4904

SEQ _0Sa0
SEQ 024!

8896
4S27%

10470
S349

6971
8483

I03

30R(10S2)
10-JAN-78
12:16
PAGE 243
CROSS REFERENCE TRBLE -- USER SYMBOLS

4996

7007
8546

7019
8734

7452
9474

7494
9520

7521
9530

s048

4625
5076

4626
5125

4634
5197

4691
7348

10127
10369

10241
10376

10383

10587

eell

10061
10047

10103
10362

2041
10470
8558
6964
4755%
2174

Y465
10569
9338
9301
5231
2180

10238
10238

2654

12077»

2258
2336
2426
e2see

2186

c2aeH
2354
2432
25e8

2270
2360
2438
2570

2lsz

)
2366
244Y
2576

2198

2204

2552

2858

2564

2624

120884

H431%

443bx®

H4SS

4696

.
£31e

2e8e
2372
e462
2582

4692

4784

4gla

6739

7065

8856

8430

2288
2378
2474
2588

12092
12084

2546
12089#
4497
4424*
63390

6889

10507

9898
9968
B943

eese
2330
a4e0
2516

7047
88498

6328

MACY1l 30A(10S2)
10-JAN-78
12:16_
PAGE 244
CROSS REFERENCE TABLE -- USER SYMBOLS
4488

ZR6M
007226
ECCNC = 000040
ECCW
= 020000

EM3?7
EMY

057173
0Se434

EMH40

057234

EMY42

057330

EMY1

EMM3
EMS
EMS2
EMS3
EMSE

057300

057360
056453
057411
0S7426
0S7443

53
X235
X2 X
X
2
2
2
2
2
£
2
L 2

Y O S

Y Uy Y

it s s Pt Pt s Pt s

ey O
Y
Y
ol ey
]
el
O
Y
e e ey
e

056745
056764
056776
0S6416
057013
0570es
057941
0570S6
057072
0s71i1e
0S71494

056714
056731

Y e e e

EM2S
EM2E
EMS7
EM3
EM30
EM3]
EM32
EM33
EM34
EM3S
EM36

EM23
EM2Y

056640

056400
0S66SS
056670
056701

EM1?7

TR 0 0t 5t Dt Bt Bt Pt P Bt Pt Pt P (s ot Pt ot s s s B Pt P

EM2
EM20
EM2]
EM22

060532
D60SKS
056537
060630
060663
060704
060726
060754
Ne0771
056552
056564
056574
0SeblY
056630

EMIOE
EMIO?
EMLL
EMII0
EMILY
EMIle
EMII3
EMIIY
EMLIS
EMI2
EM13
EMIY
EMIS
EMIE

Y450%

s Pt Pt Pt Pt Pt Pt

026060
000030
GS6361
056530
060264
060307
06036S
060431
060457
060501

3836
50es

414

= 000100

ECOBRD
EMTVEC=
EM]
EMIO
EMIOO
EMI0I
EMIO2
EMIO3
EMIOM
EMIOS

et Pt Pt ot

9416

NNNNNNNNCNNNO
OO DO W OO
OO EOMm
NN
e =~ QNO OO D DD
—— 00
CL—-DONW—DWOLNNONNNLO

CZREMDO RKB11-06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

JO3

)

7
7
7
6
7574
7634
7
7

7
7

Y 42

117824

10002
6S14s

10238

SEG_0Sel
SEQ 0242

KOJd

12:16__PAGE 245
10-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBOLS

SEQ_0S22
SEQ 0243

MACY11l

30A(10S2)

2550

11853

Y425 *

4602%

894S*

8947

8350

8952»%

9085#

9199%

6435

6882

8438

8553

8560

91978

9460

q47S

4483x

4y4yg4x
11558%

B6SI*
11568%

666O*
11569%

11408

114909

9106
10029%

9110
1003S*

911
1006

U
oo
~ -

CZRBEMDO RK611/06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11

5505
6290

5533
6358

056472
0S7462
0S7S14
0S7S44
057560

ERRCNT

003126

ERRCOM
ERRFRE
ERRHOL
ERRLMT
ERRVEC=

0055086
040716
Q42164
003127
000004

Q42204
010500
000001
001000
000020
040000
0030S2
000400
002000
000100

005732

033514
034450

005576

9511

11527%
9263

11532#%
9371

Y475%
%
11544
9396

11549%
9480

10177
10251
9903

10067

10108

10132

9087
9903%
10624%

9091
9913%
10678%

9093S
»
9984
10686%

9102
10006%
10699%

9913
10678
9802
10029
10699
10035
9840
9921
8575
5372
5588

10390

4463

4899

77984

8238
80%e2x
8669
8080x
8090x

YYEY*

10228

10624

10006
10041

10116

10126

548S
5584

5488
6104

5498
6106

8240

8265

8271

8242
8241

8269
8267

8273
8272

%
9483

q4Qg1x

9511

11411»

114]14%

11522

127%
229#%

9120
10132#%

5536

5538

sS4

65851

9802*
%
10251

S55S

CZREMDO RKB11-/06
CZRE6MD.P11
= 000020
FMTE
FNDXDP

FORMAT
FORWRD
FS
FT

VERIF

-78

11:48

LO3

12:16
PAGE
246
MACYLL SBRO48RErehRN JAN-78
CE TRBLE -- USER SYMBOLS
930S
6761

10238

GETRVG
GETPRM
GETXDP
GNS
GO
GTPKAD
GTPRMS
GTSWRG
GT

7486

8072

8332

8521

8541

11658

11659

11662

11663

11664

11665

7224%

7377

7392

7397

7404

94898

9517

5504

5540

SS4Y4

7775

9362

bilYy

6892

6189
6107

62398
€297

8646

5536

597

se01

S602

9387

10534

10575

10641

10708

£395
6101

S443
6184

5586
6935

See22
6967

5646

S679

4994
8435%
10033

4997
8444
10065

S01?

s022

geels

S311%

645634

10106

10130

%
10401

10405*

10409%

6617

8456

9958*
%
1C651

10648*
10654#*

S171%

7221%

8452

005736
002000
000100
000001
000004
036626

INIVRB
INPUTP

SEG O
3

027522

5345
6007

5369
6024

033204
015340
005532

6032
8446
4813
g4zg9922

77204

003101l
000300
000020
gogloo

4992
8428
9947

7450

7484

CZR6MDO RKb11-06 SS VERIF 1
CZR6MD.P11
10-JAN-78 11:48

SEQ_QSa4
SEQ 0248

10086#

Q45724

101724

10244

10604

10669

9888
10458

10959

103e3s

10593

10183%
10104

7787

97924
104680%
10128

10634%
10214s

10707%
10363

10370

10377

10384

98932
10008
10 129

9897
10024
10134

9300
10031
10143«

9906
10037

991S
10048

100863

9924

9927
10070

9942
10082

9944
10102

Bl4ys*

g8206%

8214

8218#%

5375
6358

5488
636l

5491
6365

5495

g498

5538

S541

S545

5548

9378
10884

9384
10890

9476

9536

BHE?DH
46712

10020

046150
045270
003074
047620

7758
981e*
10062

045550
047520

10118
10360#

L X

O Lr=)r—r
WU
NO»—
e L0

0
0
D

005756
005744

050274
050042

MO3

12:16__PAGE 247
10-JAN-78
CROSS REFERENCE TRBLE ~- USER SYMBOLS

30RKR(1052)

11508

686S#

8135k

o e s pme e )
oocLnoor

—

0t 5t

M XXERXXEXEXRRXRRERRER
KRR 41t

Pt 5t 5t

.RERR
.ATTN
[

e Bt St Dt Pt Gt Bt Pt "

MARCY1l

6345
9359
4377

LODP1Y4

CZR6EMDO RK611-06 SS VERIF 1
CZR6MD.PI11
10-JAN-78 11:48
LODSEC

034304

NO3

12:16__PAGE 248
10-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBOLS

MRCY11

30A(10S2)

6131

6195

6210

S170%
%
G297
8319

SEQ_ 0525
SEQ 0246

8001

8023

7225

7382

7384

7387

7390

7395

7400

7403

5923

5976

6038

7490

7576

8328

8357

8380

8518

bese
8712
%
BSH7

6283

6746

6757

6759

6764

6772

7427

6548%

6561

6713

6717

8719

6784

6787

6941

7067

8426

7491
00S762

0cel126

5275

5914

S277%
6795

7730

7828%

990

7729#%

7300

4666

4EYY

soe4

6046

7787+

7897

6067

7734%

5796%

7733%

7915

S274#%

5917

S276%

6070
4Y435#

38CC

i0ee?

7978

7991

5788+

77284

5789
6064

5826

%
4504
7e73s

7731¢#

4548

i060e

N
[¥elo4]
-0

L2Z222Z22ZX
T
T MO

4432%

ZXAZXIXIZIIXIIIIIIXIT

CZR6EMDO RK611/06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P11
017760
0

MRCY11 30R(10S2)

10-JAN-78

SEQ_ 0526
SEQ 0247

PAGE 249

CROSS REFERENCE TABLE -- USER SYMBOLS
7681
7942

7869
8352

S490*
SSY4x
%
SO64
%
5597
9245

00SSe2

_ 00ss5ed

SSo4*
5557

5505
5588%

S644

S677

9996
8974

6974
6426
5393
e
10573

016200
000200

51e8

5208

9347
e
S0Ss0

9236

5057

1070S

CERETBCTEE
1 08 SR

L e

OREQSW= 000020

34458

PART

8Yh8?$ Sgggga
= 000000

PART1
PARTe
PRT

007403
D07407
= 000020
PRTRN
00SS44
PATO0
006216
PATOl
0062Se
PRTO2
006316
PRTO3
006356
PATOY
006416
PATOS
006456
PATO6
06516
PRTO?
006556
PATO8
006616
PAT09
006656
PAT10
671

PATI1L

PAT12
PRT13

006756

" SRR RRrc B

TR 2

3525:

g;gg

9740%

9850%

9854

9870%

993b%

9949x

99bN# 10S08% 105S68% 10630% 10647%

17518

1764

1767

1770

1780

179¢

1800

1806

1807

1970

1972

1974

1976

4976
8489

531¢
8830

5332
12357

6378
12358

6428
12406

6726
12442

6817
12443

6819

7036

750S

7583

8310

8480

35048
37018
37238
37458
37678
3789%

6265%
8114

8l1e
8129

8183
818S

8290
8200

8709

Ze8l
9335

zaeax
3820

z3ae
9846 10014

4S519%
4524

4523%

7588

89293

10236

8ese

8284

8683

B8eB4x

B868S*

B6B6

s483

§531

gggz

5623

Se47

4099%
4100
30764%

4490

39418

PBSVAL=
PCRA
=
PCDO
=
PCLKF
PCVEC
PFIFTN
PGE
=
PIP
=
PIRQ
=
PIRQVE=
PKRB
PKS

001000
004000
010000
003132
003162
011116
002000
020000
177772
000240
003156
003152

32148
3083%
30848
34268
34538
4yesg8s
3025
3068#
18234
19178
34S1s
34498

10395

4522

7596%

7613

PMA

00S602

351;0
868

g;g;!
*

ggggl
¥

S 79
11

4805

4389

5001

S026

40878
34064

PLOFST D0358W

Sodgs

PREPER Q2b604

243"
€

PREPKB

026040

PRMBUF
PRMINP

012476
007500

3875#
38974
3919

39638
39854

QO7ise
88311

38114
3832
38548

007016
0070S6

PATIS
PBLK

cO4

5680

Y412¢
4111ls

5015

ooex

287%.
5730

7218%
4566

gess
5871

7219

gpes
5953

10039

104S7#x

668l
8712#%

8131

8202

SOt

S346

SiNE

See

602S

S370

6102

6185

7609

S396

Sev

SYYY

6260

64988

B4YS?7

CZR6EMDO RKb11/06 SS VERIF

CZR6MD.P11
gg:tl?

sl gt4
00S262

o yesl

PRO
PR1
PR2
PR3
PRY
PRS
PR&

= 000000
= 000040
=
000100
= 000140
= 000200
= 000240
= 000300

PR7

MRCY11l 30A(10S2)

10-JAN-78 11:48

006942

PRMPHO
PRMPLO

= 000340

- 36364

DI
H8ls
»

34808

1840%
1841
18424
1843#
18448
18458
18468

PWRVEC=
000024
P.RSOF= 000032

P.RO0 = 000040

8919%

1209
12092

R
18
4506

44358
3529%

113&g

1912
3235

3238

5239*

omr

4504

4526

5218

6292

6333

6744

7281

Y453#
9157

YySyx
10064

113S1%
10065

11359%
10098%

11360%
10329%

10517%

10518

9162
9164
745
628lx

10365%
10372%
9 Sg
B703%

10379#%
BE8I*

9146

6278%

6702%

10325%
100S1

10387%

10S95%

9971%
S34Bx

10373#%
10380%
S742x

6888%
B024®
10483

S879%

957
B440x
10487

5961%

5770%

6771

6908

6988

6996

9156
9iel
9163
9165

10095%
100S0*
10366%
9591

6323
77S4»
9603

6£330%
7771w
9866

P.B11 = 000056
P.CMND= 00000!

324Ss
31918

9167
S28i%

P.CS1

32298

S750%

P.DCYL= 000030

9601

6266

113674

9601*

32328
32398
32418
32438

P.CYLN= 000002

9529

6265

S010

000024
000042
000046
D0OOS2

P.CS2 = 000020

;agg

;335

7395

7397

10711#

7400

{

1%;61

P.BAR
P.B00
P.BO1
P.B10

P.CS1H= 000007

;38;

11368

18&&8*

000016

7048

;26:1

6668

lgég?c

6315%
7520%
9600%

;263*

SEQ 0249

S218x

Y438%

000010

SEQ 0S28

4S0b¥

1821

000044
0000SO
000QS4
8 0007

=
=
=
=

32408
32428
3c44s
31978

5?“1*

P.AOL =
P.R10 =
P.Al1l =
P.BAH]=

P.BALO=

PAGE 251

4493
3338

1973
18218

36038

855626

Sa40*

4438

005760

PWRMSG

523?!

18478

1820

012574
177776

12:16

CROSS REFERENCE TARBLE -- USER SYMBOLS

177776

PSTRART
PSW
=

DO4

10-JAN-78

6190%

9160

H269%

9569

7048

1005S*

£968%
B479%
10499

974ex

10451

10452¢

10072*%

10073

10386x%

10S94#

701S¥

7492%

B47b%

B8526%

8538%

B686%

9149

H033%

6103*

Hl32*

H13IS*

Hl1B6*

p2llx

B311k

10056

9728%

7004%
8482x
10509

7006%
B8S517%
0
10S1S

7008%
B8877%
10S2i

7046%
9137
10Se4

7451
9472%
10S30

7489k
9519%
10S85S

7517#
95b64»
10S62

9939%
10S34#*
10591

9977%
10535
10596

9978#%
10559%
1063S*

9980%
10562%
1063b%

9981
10Se64*
10638%

10090%
10S6S*
10641*

10092*
10575%
10642

8879%

9150
|1 0319%
| 0S76
1 0658%

9268
10322*
10584*
10659%

9286
10473
10585%
1066l

9632
10S527%
10587%
10664

9665
10S28%
10588
10683%

9887
*
10S30%
10590%
10684

lgéQSI

18;9;*

15223*

15;33*

16892*

lbgggl

1701?l

7018%

7485%

B8S16*

96ll*

96l2%

3977

10093*

10323%

10481%

10506

10571%

10572

10583

10602

10606

10632%

10633

10657

S4S7%
SeS0x

S4SBx
SpSex

SYpex
SeBex

S4Bb®
SpA8®

5507%
5704#

5534#
5706

553p*
5880%

S5557%
5883%

5559%
S900

5590%
5903

5592%
5920

5625%
S96ex

3258.
31928

S972%
6365
8620

32348

6433

5351%

6034*
7011%
g8674%
Be2H

8151

53702%

6038
7013
9139
8670

22s

637S%

H0S6*
7490%
9599%
9152

8333

5398%

blO4¥
7523
9975
9400

6958%

8235

S4Ol*

6187%
7526

10511

3622

8235

S403%

6270%
8091
10553
9654

3243
S404

6290%
8323
10655

10097%

9245

S407%

b344*
8328

10331%*

9293

5409

B3YS
8357

9343

S446x

6360*
8369

427

9893

SH49®

S4S3#

636l
8380

S648»
5968%
8518%

EO4

CZREMDO RK&11-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48

MACY11 30R(10S2)
10-JAN-78
12:16 PRGE 252
CROSS REFERENCE TARBLE -- USER SYMBOLS

P.DRVN= 000000
P.DS_ = 000036

£890%
9158

6936*
9278

9863
9282

9889*
9890*

10475

9159

3190¢
32378

P.DTS = 000026

185%8:

18352!

P.EPAT= 000062
P.EPOS= 000060

32478
32468

QueM
9423

P.OFST= 000006

31958

10517

P.ER

= DOOO34

P.PRST= 000014

32368

8558

8628

10040
9333

10216
10100*

9224

10069%

10328%

8671

8672

9183

104SS
10327%

9401

SEG_0Se9
SEQ 0250
10608

9403

95390

962S

9626

9655

%61

1 10138%

9882%

10618

9910%
10243%
10639

9917
10395%
10662

6189%
BS53e*

6273%
8533

6298%
8539

32008
9921%
1047C0%

9251
10018%
10507%

9264
10041
10531%

9436
1004S#
10532

441
10058%
10557

446
10076%
10S63*

9451
10086%*
10569

9566
10112

9735
10116%
10600

9848%
10126%
10610%

3193
6336%
g549x
3194
6341

6109%
6337
BSS0
6105%

6354x

bleex
6350
8676%
6193

6123
7488%
9142
6197%

6127%
8018
9598%
6198

6129
8029%
9976
6207%

6140
g8oes8

6352

6118
6349
86a2
6188%

bl164%
8347
10554
6214®

B16S
8523%
10656
6215

8082

8330

8360

8519

31998

6ill*

6191x

6272%

8388

B4O1x®

B477%

B4Y9Y4

8525#

000022
000000
040000
000010

32318
2950
3c2ls
3444
e

9154

RDALKD= 000164
RDCHR = 104406

29798
7113

P.SECT= 000004
P.TRCK= 00000S
P.WC

= 000012

P.WCR =
QNEWSW=
@. INIT=
RCORSW=

RCLREQ= 004000

RDCHRS

8679%

4g7ss

B870S

9271

RESVEC=
RETRANL
RETNML
REVRSE
RHEDHD

000010
044324
Q44342
011740
Q22422

RKASOF= 000016

9276

9321

9326

3331

9336

9470

4903

4361

S047

S07S

5124

5196

6582

8735
9271%
9384
34 9%

8738
9276%
9399%
9470

8816%
9316%
9406
476

B8824%
9321%
9409*
9y78%

B887S5%
9326%
9413%
9502

8943
9331x
9416*
9504*

8953#
3336
9429
9509

8535

8881

91348

9206

8407
3580

8484
9614

7809

7829

10518»

10S43

8517

7520
9564

9603
10581

9980

7020
9233
9359
9449x

7043%
9254
9374%
9YSHR

9472

10524

036674
003140
000140
007753

041704

10324#*

7489

REDBSF
REISSU
RELERS=
REPLPK

RESREG= 104410

10094%

7008

00SS04

REPSUP

7493%

6323

RECODE

29938
23658

7016%

6135
S281
69368

95884

S74e
7451

34888
9200%
9341%
Q430#

9466
5348

6141
9201
9349%
Q439x

10538
7006

S300
34328
2977%
Yl468

BS14#
6308%
6330
4673

9099
10628

5761

5810

6566

6647

9535
9205
7911

95388

9557

9876

5757

8006
8693

1166448
1907%
9204
6448
4338
5747

2946s

6962%
9228%
9353
444X

6655

6960

8030
8721

8047
8817

9473
8562
6003
SB847#

8884

6340%

6307%

4854

9383

6297%

6299%

4ge?7

29708
29788

6271%

10552

4783

ROHERD= 00012S
RDSTART= 000141

8027

9144

8742

;ggg

29688

ROY
= 000200
RECAL = 000113

8021

;ggg

RDDATR= 000121

3087s
9358

8019%

10645

;?g;

RDGATE= 100000
RDHDO
044522

7491x

10Sle
6208
8026*

3866
11662

030624

7014%

10573

10591
8440

7525

8094
8898

7776

8245
9256
9378
94e2

glse

10661

6704

6749

6830

8305
9185

8403
9531

994p

10026

10281

10329

8163
8930

8244
3070

7416

7474

7687

8s0s
3673

8610
11008

7879

863S
11060

FOY4

CZR6EMDO RKE11-06 SS VERIF |1
CZR6MD.PI1
10-JAN-78 11:48

MRCY1l 30R(10S2)
10-JAN-78
12:16_
PRGE 253
CROSS REFERENCE TARBLE -- USER SYMBO.S

RKBA

= 000004

29418

9556

10277

10325

1055i#

RKBARS

003036

g;gg.

13325!

4S55%

4569

4s72x

RKCS1

= 000000

29398

4eB84x

5771%

SBY8

RKBADR

007526

RKCS2 = 000010

Y1158

9873
10576%

4570

9931
105688#%

Q981%
10590

9990
10620%

6984*

10172%
10642*

7757

7774
7775%

10221%
10683

10S512%

10554®

10656%

= 000024

B9ISS
10633%
9976%
5293

8859*
10657%
10278
7522

RKDS

= 000012

2944s

8865

10282
9466

10331
9558

10S11*
9824

10S53%
10279

10655%
10327

RKER
RKMR1

= 000014
= 000026

9559
10046%

9833
10283

9999
10360*

10280
10367%

10328
10374%

4Sp0*

4579

459S*

9728

104Se

= 000006

RKDC
= 000020
RKDCYL= 000020
RKECPS=
RKECPT=

000030
2000

RKMR2 = 000034
RKMR3 = 000036
RKPAT =
0000
RKPOS = 000030
RKPRI
003042
RKPRTY
007574
RKVADR
007551

RKVEC

003040

29478
2948s

29548
29568
2945s

95853
9975%
9890
9889

10286
10287

29S1ls
29528
2955
29534
33388
Y1238
41198

10284
10285

10534
10595

29508

33378

6964
9967%

4502
4584
4575

4500

R.NORM
SAVPAR

0S0OS34
003206

SAVPRS

00SS60

SAVREG= 104407

SAVWRD
SAVXDP
SCLR
=
SCNDRV

003210
027254
000040
027650

SCOPER= 104411
SCOPE1
(055130
SCRACH
005542

10217%

10275

10323

10S06%*

9388

9389

9390

9955

9956

9957

10381%

10482#

9799

9959

3661
8470

6110
8476

6137
8707

6190
12357

6269

7018

7023

7492

7497

8002

8004

9851
9841

9926
990S

9943
9914

10i2l
9985

10141
10007

10401%
10030

10611
10036

10069

10109

10133

10178

10230

10621

10709

7862

104098

5775

6527

11034
346548
6776
30208
4751
6332
113788
35038

11663

6073%

10537

3626
8187

82s
S193%
g18#

10391

8001
8702

1053S*%

7768%

10253

9879
34648
35098

10274

7753%

62204
6742

9741
9803

10246%
10708%

SB41x

S31S
be2ls

050522
050546

9821

10222
10693

5747%

024516
000040

R.ABNL
R.CONT

9551

9729

4S77%

RWDTST
RWTINX=

3604
8116

9391

9549

4E57Y

9555
10632
7573%

063554

9365

9387%

9518

10SS2#x

29408
3017%
S6e4
406oH
4Ob1#
43198
4957
5975

RWBUF

9364

9552

9366

9465

10324

000002
000010
032554
016514
002734
Q011577
016720
033560

9972
6691%
8704

8017
8714

6809
10682
63348
1166SH
11665
4b4S*

6074

4557x

B8886%

9386

10276

RKWC
=
RLS
=
RNDRDR
RNDLNG=
RNDSHT=
ROTIMS
RUNTST
RVTERM

YSSex

9362%

10182%
10673%

6946®
10S83%
9554
5292

RKDB

9361

10173
10664*

29438
10572%
294es
c9v3s

RKDR

8863
10682%
0326
9363

6884

SEQ _0S30
SEQ 0eSl

10625

10679

10688

6633

6677

6737

6809

egle

8239
3083

7372

8325
9135

7449

7632

g849e
9548

7798

8572
3589

7818

8619
9653

8668
10993

4b4b®

4BM7

Seg4*

Se30*

5702*

S708*

5767

S8l2

S96S*

5967x

6036#

10081
8135
8715

8039
8806

6139%

Q40Ss
8206

8062
8850

BINS

10548

8110
8306

6150*

8177
8965

B1S3

10701

63952%

B3S3*

8468
39197

Tl48x

7150

7181

7161%

7lb2%

CZRBEMDO RKe11-06 SS VERIF 1
10-JAN-78 11:48
CZREMD.PI11I
010727
010757

SECNL1
SECNL2

3EEKeR” 388444

7163
42354
4240

SIZMEM
SK1I
SM
SOF1BS

SRO

7802
4925
4929

7822

gi18l1%

8247

B8260%

8263

2358

gggg

S560

??84
S408
55493

10499

5558

7517
5402
€59l

8876

10638

5132
S439
6180

S176
5478
6202

5526
6206

7192

7300

016

3019

9022

042

3047

3062

6854*

6BSbH#*

6858%

6860%

8136#

81S1x»

8207#

bbbl

11545#%

5219

7041%

7042

4300%

5298%

5685

7771

9519

9600

5818%

5887

5983
5838

S99S#*
5886%

2573

537

7496

5127
£39!
bleb

030462

0ee072
000002
005774
011436
81 Y74
12473
012472
0 12471
0l 2467
020000
01 22ty
0o 0020
oY 00S0
0Q 0l1l
= 17 7572

q01e

17 7574
17 7576

17 2516
00 Y&
001100
032472
005512

192258

SUMKIL

017002
040606
000177
007321
03200

SUMKIZ2
SUMLO1L

003204
003176
003202
100000

83064

7724%

%
5907
S778%

87028
6613
11403

4473
6616

7518

11421
6613

7808%

S4E89
5653

5463
5687

S48?7
5683

SS08
5708

5675

§72s

5866

5948

8303x

11533

11548»

S888#%

7409

7635%

7657%

7877
7410

7634%

7656#%

S996*

6004

Y467
7546

Y473%
8ebl

8288

11428
6615

7871%

6618#%

447

S4SY
Sesl

5626

75583

786

6060%
598
[0
6059%

7867

7680
5306
444

SWREG
SWRMSG

SEQ QJS3l
SEQ 02se

30R(1052)

011145
011410
Ole4e4

=
SR1
SRe
=
SR3
=
ST
STACK =
STALL
STALL
STKLMT=
STPASS
STRCMD

12:16__PAGE 254
10-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBOLS

MACY11l

SEEKHD
033472
SELDRV= 000101
SELECT
00SS34

SETTUP

GO4

H480*

7922

7875

6262
3030

6309
11268

6313

1 127s

6319
11287

6321
11290

CZREMDO RK611-06 SS VERIF |

CZREMD.PLI
SWo
SWO00
SWO0l
SWo2
SW03
SWO4
SW0S
SWoe
SW07

SW08
SW09
SWl
SWi0
SWIl
SuWle
SWi3
SWI1Y4
SW1S
SWe
SW3
SW4
SWS

=
=
=
=
=
=
=
=
=
=
=
=
=
=

=
=
=
=
=
=
=
=

000001
000001
000002
Q00004
000010
000020
880040
000100
000200
000400
001000
00000
82
Y

10-JAN-78 11:48
18758
18658
18648
18638
18628
18618
18608
18598
18588
18574
18568
18748
1855
18548

000100
000200
000400
001000
000100

S.DCLO=
S.DIB
=
S.DOOR=
S'DSST:

010000
002000
000200
000040

31128
3138
31218
30S1s

S.DSC =
S.FLT =
S.FORM=
S.FWD =
S.HOFL=
S.HDHM=
S.ICvL=

040000
000200
001000
002000
000200
000040
000040

S.BRHM= 80 100
S.BRKE=
Q40000
S.CART= 000400

2-BRY'= BAB288
.

S.ILF =
S.LIMD=
S.LORD=
S.MHD =
S.NMOv=
S.OFF =
S.PAR =
S.PLO =
S.REV =
S.RTZ =
S.SECT=
S.SKI =

1875
1874
1873
1872
1871
1870
1869
1868
1867
1866

8975

31200
1424
3122

438

]

3100%
31068
3095s
31248
3135
31198
3104

000400
020000
010000
000400
010000
88280
100

3107
3i41s
31268
31364
3140
30968
31088

004000
DO4000
020000
000020
002000

3139
3125
3127
3132
3109

S.PIP = (020000

10-JAN-78

HO4

12:16

PRQE 25s

CROSS REFERENCE TARBLE -- USER SYMBOLS

18538
18528
1851#
18508
1873%
1872s
18718
18708
18698
1868%
18678
18668
3105s

SWe
=
SW?
=
S8
=
SW9
=
S.ACLO=

010000
020000
0M0000
100000
00000M
000010
000020
000040

MACY11 30A(1052)

30998

coss

9908
10051

10086

9911

10388

99]9

10114

10073

10136

SEQ 0S32

SEQ 0253

CZR6MDO RKE11-06 SS VERIF 1
10-JAN-78 11:48
CZRBMD.PL1

I04

MACY1l 30A(1052: 10-JAN-78 12:16 PAGE 256
CROSS REFERENCE TRBLE -- USER SYMBOLS

S.SPIN= 010000
S.SPLS= 010000
S.SPOK= 001000
S.TYPE= 000400
S.UNLD= Q40000
S.UNS = 04000C
S.vv = 000100
S.WCLK= 000040
S.WGAT= 000100
S.WLE = 004000
S.WRL = 004000
S.XDOK= 000020
S.XERR= 001000
005746
SO
005750
Sl
005752
Se
005754
S3

30988
3ills
31238
30948
31288
3l14s
30928
31338
31348
3110%
30978
3118%
3137%
35988
35998
36008
36018

4923
4923
4927
4827

5296
5297
5290
5291

003166
003164

34568
34558

7682%
7684*

7941

TBITVE= 000014

TCONHI
TCONLO

13084

Q14012
033150

4628
s772

TIMSKP 011513
TKVEC = 000060
TLSTHD 010450

43108
19158
4203s

TELDRV
TIMER

TIMSEK

033312

5884

6996

46368
7653

S04

7645
4498%
4803

7?77

7940

4704
7708

4759
44}

9086

9253

95474%

4693
7703

5969

4499x
4848

5973

6039

Q44352

5758

TRAPVE= 000034
TRKCHK 034326

19148
6203

44S1®
6213

44yS2*
8017%

11361#

037740

6312

6316

6324

8731

35468

3587

4819

4840

4862

$877
5959
6031

5885
5970
6040

590S
5974
6058

Squbs
60184
6095

TOPROC

TPVEC = 000064
005530
TRACK

TRKNLW

TRNSFR

010771

TRTIVEC= 000014

TSTLST
TS5TMDS
TSTMSG
IST1
TSTIO
ISTI1
TSTl2
TST13

00S626

19168
34984

4e4es
1309

4334

TSTI4

10244
0Sb342
020002
021226
021300
021366
Q21626
022440

418
8936
531
5584
5620
Se44
5677

5727

4781
116674%
£339s
Sblb#
Se40#
56734
5723%
5736

TS72
TST20
IST2l
TST13
TSTHY
TSTS

020062
024eb2
024516
020142
020250
020414

S343
6099
blBe
5367
5393
S4M1

53638
61784
62534
S5389s
S4374%
S4768

TST1S
ISTle
TST17

TS7?7

022760
023316
023642

5868
5950
6022

021050

gses

SEQ 0533
SEG 0254

55804

SB64s

6057

77498

4gg82®

4887

4891¥

B74l1

7076

7200

CZR6EMDO RK611-06 SS VERIF 1
CZREMD.P11
10-JAN-78 11:48
TWOTOS= 002000

TYPAVG

9254

S310

85724

£839

TYPDS = 10440S

5829

TYPE

037164

= 104401

MACY1l 30A(10S2)
10-JAN-78
12:16 PRGE 257
CROSS REFERENCE TABLE -- USER SYMBO.S

40748

(034260

TYPBSF

JO4

4488

3568

6000

6005

7308

7923

79874

5835

6404

7903

7918

11659%

4489

TYPERR

040776

83658

TYPLST

015726

4914

4987

8588

8594

8598

6578

7196

7201

TYPFMT

TYPMAX
TYPMIN

003124

034234
034210

TYPOC = 104402

34208

5833
5827

TYPON =

104404

116584

TYPPRT
TYPPRM

031252
031172

5027
4930

T.RSOF

(003014

T.CS1

003000

TYPOS = 104403

11277

4490

4493

4755

5233%

5256*

7901
7898

7916
7913

79744
796148

6966%

9011

9021

3024

3044

116564

7247

7252

8938

116574

4596

4598

11166

11241

11270

11278

7009

7018

9876%

9877

9901

9946%

9947

10026%

10027

10033

100e4

10098

10106

10130

33158

9821%

9873%

9874

9887

9898%

9931

9933

9939

9968%

9990%

9992

10022

003002

1
BB
10274#%
1
I
%
g
33178
9799%
9800
9815

T.DAR
T.08B

003010
003034

10216%
3321s
33328

T.D0S
T.ER

003020
003016

33268
33cS8

T.MR2

003024

T.PAT
T.POS
T.WCR

003032
003030
003004

10217
1009%

10227
10278#%

33228

10097

10282#

33278

10283#%

003026

33294

991

0GC3144

34368

UEXRTT= 000010
UFE
= 000400
UNLORD= 000107

4584

33238

T.CS2

UBMPRS

457S

7299
7cl8s

O IS 1

T.MR3

4570

72438
s071

003022

4566

B47

T.MR1

4545

6334x

0030ie

4535

6893

e e

T.0C

4497

SEG_OS34
SEQ 0255

39818

(R
*
00
0
BN,
E
el
o
9830
9859
9359%
9960
9936
10010
10083

10236

10275%

9825
9836

10100
9999%

10279%
10002

10099

10238

10280%

9908

9919

10055

10072

10114

10136

10284*

33318
33308
33198

10287%
10286%
10094

10276#%

3207%

9451

6558%
3882

6643

6692

8249

8316

9243

9815

9833

10236

10606

33288

3023%

29638

9824#
9833

6371

9237

10487

9971

10050

10285%

10366

10373

10380

10365
10387

10372

10388

10379

10386

10215#

KO4
PRGE 258
CROSS REFERENCE TABLE -- USER SYMBOLS

MACY1l 30A(10S2)

UNS
UPE

= 040000
= 020000

3051#s
30288

313
9225

9830

9996

\QY)

= 000100
005766

30638
36068

4938

6299

67S1

WCE
= 040000
WCEFLG 003141

30290
34334

42?7
6317

9830
8528#%

9996
8530

10236
854Sx

8547

8561
#%

B8733%

HYoN4 e
35104

4952
8111

8180

8236

8634%

8677

870S#*

8706#%

9309

9836

10002

6103

6186

e2ll

6311

8479

105859

6132

6315

80e4

8482

10555

CéR&HD.Pll

10-JAN-78 11:48

VFHDSW= 000002
WCDRSW= 000004

WCERR = 000100

WCeBIG
WDSXFR

011003
005572

WHDSW = 000001

WLE

WORDSP

= Q04000

34428

34438

4070#
3441

30484%

012502

Y4138

WRHERD= 000127
WRL
= 004000

2s71n
30678

WRDATA= 000123
WRTCHK= 000131

WRTGART= 040000
WRTLOK
007707
WRTSEC

W.DRV

W.MILI
W.MIN
.

;

W.TIME

036542

003114
003060
003066

Q03100

W.WCK = £00200
W.WTCH
0O4S140

2969

2972
30864
41398

84088

J4i2e

104]11%

33658
33818
s

33878

10139%

8735

724

10S47%

10599%

10617%

9951
*

9965%

10013+

10080x

10089%

10118+

10140%

9726

q73c*

9844

q872*

9922*»

9937%

9S50

9966
#

10012

10079» ° 10088

10117%»

9725
10523

10S46*

3323

10118

10526

6774%
4538

6811
681S
6824

6817#
6818
6839

XOVLAD
XXDPAD

003134
00SS46

34284%
35054

bcbl#
6715*

XXDPMG

007240

4yoBls

HS4S

XXDPCH

SAPTHD
SASTAT=
SATYC
SATY]

$ATY3

SATYY
SAUTOB
$BRSE
$8DADR
$8DDART
$BELL
SCHARC
SCKSWR=

$CMTARG

003117

341Ss

001000
»uxxuyx U
0SS436
055412

1998
11479
11450
114484

0SS430
001134
001374
0O0ll22
001126
001310
053200
xxxxxs U

11283
2038
214Ss
2033%
2035
20968
108S6*
11662

0Ss5420

001100

10839

2021

10691

9871 %

10459%

3506#
34298

6826

984S *

10410%

10470
Q7188

027302
027350
027374
027354

8737#

10S526%

XDP1
XOP2
XDP3
XDPY

10523%

q9730%

32ies
8895
3380

10236

10460%

003064

00SSS0
003135

9502

12:16

7001

W.BSEC

XDPSAY
XDPSVD

9430

10-JAN-78

SEQ 0535
SEQ 0256

CZREMDO RKB11-06 SS VERIF 1

683cH

q923%

9938%

10557
10542

10563
10589

10598*%

10616%*

6789#%
6760%

6790
6770%

6821
6793%

68ee
6814

6848
B437%

6830

6837

6868

62B8Y*
6719%

6368
6720%

6813
6721%

8431
6762

6768

6820

4456

Y457

10531
10536

6775%
Yol %

2004
#
11484
114524

114492

114518

4551
11270
10866%

11302
10873

10882%

10887

4440

4441

4449

Y455

CZR6MDC RKG11-06

Efpg 2 Pll
$CM1

SS VERIF |

MACY1l 30A(10S2)

18-JQN-?8 11:48

= 000040

20538
]

20544
8

2088

20894

20904

2091#s

20392

2093

2094

4596
7500
9028

4665
7899
9051

4807
7909
9057

4991
7914
9065

5028
7924
10858

S840
8578
10890

6483
8585
11278

6564
8599
11302

6565
8995

11034s
7498

10993

10834

11280

11457

10836

10841

11459

S210%

_—
637" #

11419
11445

1142S%

(0S6116
0S4440

$0820
$0820

053542
gs34el

SOECVL
SOEVCT
SOEVM
$O0AGN

(053722
001330
001376
(025544

SENDAD
SENDCT
SENDMG
SENULL

(025534
(25502
025553
025550

SOTBL

SENV

SENVM

7963
6562

11036
2ll0n
2146
6398

0sS4430

11210

001340

2l11Ss

001341

1984
4455
6402
6405

11417
11440%

2031ls

11272%

11273%

11274

11302

12077

11293

11295

11302

11439%

11479
10890

11488%

11496%

8044
S171
11430%

10791
6599
11431

10799
7327
11433%

10804»
10761%
11444

gasl

11274%

11282

11302

21638
20288

20954

SETABL
SETEND
S$SFATAL
SFFLG
SFILLC
SFILLS
S$GDRADR
SGODAT
S$GET42
SGTSWR=
$HD
=
$HIBTS

001340
001400
001322
055656
0011S6
001155
(001120
001124
QessSed
®xxxxx U
000000
001000

2ll4ys
2010
21078
11448%
20498
c0488
2032
20344
640648
11661
1780
2005%

$INTRG
$ITEMB

001135
001114

2039
20294

SHINUM
$HIOCT
SICNT

0582716
(052616
C0110M4

Ucibx
S0S1
20258

63864
S066*

112648
8986
11271%

4457%

21474
11485S*
11451%
10859
10890

4552

11302

4734

6380

11481

11392
11419

01400
O0011lle

001306

11297

1137t
7064%

Y449

SESCAP

6420

64138

11302
Y4B85%

0OS4450

SERRTB
SERTTL

64098
6400
641748
64168

6388%

11265#
4458#%

$ERROR

Q001116

11245

7411

2024s
2030%

6257
445S#

SERRPC

110824
S2le*
4733
6407

112494
7989

4478

025430
(025474

001103
O00111S

7976
7226

2116#

SEOP
SEOPCT

SERFLG
SERMAX

115658
1124]

20748

2062

20871

SCROUT
$0BLK

11558
11207

20618

20868

2098#s
7473
9018

728

20608

S
ager

001315

718

2059

X
Zsar

SCRLF

708

2058

sge
aal
2085»

11340
11339

]

2057

S]
oer
2084

Q54771
QS47eM4

$CNTLG
SCNTLU

]

20568

B]
O
20834

2085

20554

SEQ 0257

MEl]
Joeen
2082

= 000011

$CM4

SEQ 0536

BRE]
e
c08l#

000040

PAGE 259

20738

G
4
Zodn
ggggt

SCM3

12:16

CROSS REFERENCE TRBLE -- USER SYMBOLS

Sl]
oo
Sgg?l

La4

10-JAN-78

6401

10809
10774s

11445

207Ss

o
Rl

20638

cC76s

o
S

7168
9005

c0b4n

2077s

o
BN.

7173
9007

2065
20788

]

7413
30185

MACY11l

CZR6MDO RKB11-06 SS VERIF 1
CZR6MD.PI1I
10-JAN-78 11:48
056060
056050

MADRY
MAIL

MOY

12:16

PRGE 260

SEQ 0537
SEQ 0258

CROSS REFERENCE TABLE -- USER SYMBOLS

6530
11302

6823

8132

7574

8043

10790
11457%

11571%

s Rt

2010
5724

2105Ss
5865

5947

11490#*

114948

8203

8292

8301

10797

10803
114494

10810

b2d5x

1&442
304%

S340
e019

5364
6096

8690

8748

11530#

11534%

11857»

5617

Se4l

11292

11382

11423

11438%

1144y

S390
6179

S438
6254

5477
10834

5525
11280

5581
11436

S469
585S#

S513%
£857

53344

5518

SSeSs
5936

5105

S131

sa0s

11578%

4y42?7

] w” .
3
3
£

11471%

11483

11487%

S416
S7168

5382
56574
6172

358
Pt Pt Pt pa:

L. X

11468

56304
6030

11145»
11441s
S304

11156%

111828

5394»

6395%

4703
7294

4790
7340

6224

6403

6416

6422

7068

489S

4910

4368

5056

[y,

U=
=

[

0S4220
053524
0S4eee

e
e
[

—

LN U= NN~ Y U
- 0

SNWTST= 000001

055032
001314

052620
054644

48
% 3% % %
3% 9% 96 3 3% %
HEREER

000000
001160
001162
001164

10786#
ccc

SOCNT
SOCTVL
$OMODE
SOVER
SPA
SPASTM
SPWRCT

10-JAN-78

=»

$MAMS
]
$MAMSe
$MAMS3
SMAMSY
$SMBAOR

— N N N UV
L= LU0 L£retspep— ) 0= e 00 () L 0D P2 0= s b= N O 0=
WU
0 LWEWWN
LO ¢+ LO L WWUNO
WMo NN ~N L0
0 WW oo
£

SKTNEX
SKTOUT
$KT11
SLF
LFLG
LONUM
$LPADR
gLP RR
LSTAD
SLSTBK
S$MADR1

30R(1052)

12077

4836

10830

11302

CZR&MDO RKbll~/ 06 SS VERIF 1
10-JAN-78 11:48
CZR6MD.P 11
——— 00

LNOT L0000 LNOCLNCOC£VO0N
£

P Pt e
s

s Pt Pt (et Prad s Pt Pt Pt s Pt Pt Pt Pt s Pt Pt P

AV LV AN T STV AV AV T ST g T W g T Ta N TA VAV A D Lt V b Tt LV oV [AVI A V)

c0bls
ci6bes
20638

"
(12}
E
P ]

SSWREG
001342
SSWRMK= 000000
001324
STESTN
STIMES

001304

B8257%
3671
B8258%
3669
B26S

12081
Bek7
9670

B8eB86%

12084
120889

7526%
96S4*
7527%
9bb4¥
6658%

12085
12077
12085
12085
12085
12085
12085
12085
9009

8281%
B8280%

12089

SEG 0538
SEQ 0259

8278
12081

9363%
12089

9388*

9423%

12088
g8e72%
12081

8271%

B8950#%

9145

9513%

9514%

9bcb*

9637

9p39%

641

9624%

B94Ix
9623%
12088
962SH

9627

9630%

9634*

IBI6H

4459

392

11265

11290

12089

12081

12089

9169

12077

gSeee4
025546

27777

B8251%
9668
B2S2%
IpE7X
B259%

12085

SRESRE

053736
055340
000230
167000

12089

8285x
8214#

001200

055660
0Sel2e

12081
12089

B8283%
B8282%

SREG?

000037

8284x%
12084

9389%

bl106%
96o2*
6107%
9p62%
6108%

3 2
3343

12081

9364#

8279%
g278%

827Sx
Q419»

8237
Qu24x
9417x

823bx%
93%0¥

BEbIX
B827b%
8277%

9148%
9149%

SRTNRD
=
$R2R

8235
9365%

615S*
6156%
6157%

Pt P Pt Pt P

oL
£ LNLWWwwwhy NN

o
ODDDOOQDOOODDDOQQOOODOQODg
0000000000000 000000000000

01202

NO4

MACY11l 30A(1052) 10-JAN-78 12:16 PAGE 261
CROSS REFERENCE TRBLE -- USER SYMBOLS

9670%

11664

11663
11400%

Y446

12080
12080

6656%
9b4ox
6657%
96b3%
bH140%

8265

8273%

S672%

1208l

12088

Y447

4449

4451

4453

4455

4456

4457

11307

11345

11401

7ee?

7412

7472

7488

7964

7977

7990

11093

1780
Y457
5724
11267
11397

1784
4459
5865
11258
11403

1785
4460
5947
11259
11415

1786
s340
6019
11260
11417

1787
5364

1788
5390

1789
5438

1790
S477

2094
5581
6408
11393
11438

203s
617
6414
11394
11441

2096
Sb4l
6416
11395
11444

§340%
8019%
44S6*

S53k4%
B096*
5230%

5390%
6179%
6393

S438%
b2S4®
7071

Se74x

S724x

SBESH

11434%

11444

115184
115664

4480

6096
11268
11418

6179
11275
11419

6254
11287
11426

6383
11230
11427

S477%
7076x

S52S%
B843bx

SSBl¥
11401

Sbl7#
11426%

1143b#

T
T TT TIDearlweenrTT helthesl
TR

CZR6MO0 RK611/06 SS VERIF 1
10-JAN-78 1]:48
CZR6EMD.P11

PAGE 262
MACY11 30A(1052) 10-JAN-?8 12:16
CROSS REFERENCE TRBLE -- USER SYMBOLS

$TKB

001146

STMPO

001262

Yygeex

001144

$TKS

20448

2043

2085%

6456

6498%

11305

8780
8786

S012%

001264
001302

208648
20938

8771%
8784#%

g772o%
8785%

001270

20888

8768#%

8796

sSTHMPL
$TMP10
STMP2
$TMP3

001266

$TMPS

001274

2090s

STMP?

001300

= 000022

2092

5694%

§5700%

STNPUR
$TPB
STPFLG
$TPS

053652
Q01152
001157
0011S0

5441
5630
5877
6040

11041
20468
20508
204Ss

5467
56418
5885
6058

c4y77%
Se44
530S
6088

STMPH

001272

$TMPG

001276

$TN

$TRAP
STRAP2

056262
0S6304

$STRP = 000012
STRPAD
$TSTM

056316
001004

$TSTNM 001102
STYPBN= %#%%%%

STYPDS

054224

2087
20891

2091s

17698

445l
116438

11637
2007»

1165448

10883

10885

111368

SUNITM
SUSWR

001010
001344

137

11632
11654

11659

0S4022

SVECT!

11042
10879%
10828
10877

111958

STYPOC

(0S4036
053776
001332

1780

11660

108288
10858

STYPON
STYPOS
SUNIT

S682%

283?! l?sfigl

0s27ee
0S3134

053202

8769%

8795

5685

§332

11062
10890
10890
10890

S693%

53408

5480
5657
5934
650964

11476
10865
11656

2111im

111388
11657
G278#%

21439

4550

11135
111318

g8s8x 1130S

11320

11326

5356

53648

5367

5380

6390%

5393

66258
5677
5950
6170

5528
5716
§959
61798

2009
2l118s

11136%

11146

11181

11444

11445

19618
1999»
6201

11353

.SASTA= #%A%%%
= 001000
.8X

114489
19944

000ec24

19764

19779

11403

1965%
2020%
6205

113708
11452
1999

65818
§727
5974
622l

S584
§736
6010
6222

S609
£8SS
60198
62544

SH1Y

56178
58658
6022
6257

S438s
5620
S868
6031

116638 116648 116658 116668

11302

11392

1143S% 11436

10577

10589

10643

10665

10683

10710

1994
1983 198Ss 1987% 19884 4459
19748 1982
35158 HY44Y 11302
35068 35098 11082%
3475% 34844 10962
112498
110208
6420 10890

1995s
Y460

1997»
6l1esS

10184

11132#
11277

5565
c724s
5970
6182

7073

gy4x
~

11658

05422l

000226

6500%

11267

10878

108684%

10173

..LOW

6467%

8997

11655
108778

9982

..HIGH

5613
56748
Sq47 %
6099

11647
10872

9747

= 064460

5343

(L-LT

18;?:

5703

6392%

$.5.SM= ExnEXE

SUOCAT= XxE%%¥

5701

E314#%

114064

SOFILL

11328

6391%

8797

214448
11402
6408

001372
SVECT2
SXTSTR (055172
$SGET4= 000000

11322

116478 116568 11657% 116588 11659% 116608 11662

STYPE
STYPEC

STYPEX

B767%

S032x

SEQ 0S39
SEQ 0260

19704
2100
6304

19728
34744
bY41b

114978

10222

120768

10536

11305

11345

SoREmBOp
11 0B JRNYBE
T tug
BYEOPS
BYSCOP

63788
113878

COMMEN
ENDCOM

19188
19188

CKEXIT

ERROR

ESCRPE
GETPRI

26678

5387
11401

ca5

MACTI! IRRIARSRAFcARREEMTABLE12 tRackB RaE

SE0.
P8 82¢,

5781

5889

5909

6044

6062

8852

18lcs

5759

6149

6158

6666

6961

€982

7528

7778

8253

8254

8256

8274

8287

8536

9239
9299
9333

9241
9303
Q39S

9247
9307
9408

9249
Q311
a42s

9258
9315
434

S260
9320
9438

9262
9325
443

9266
9330
9448

9270
9335
9453

9275
9340
94/9

9280
934
3481

9284
935S
9515

9288
9368

9291
9370

9295
9380

3568

5358

5380

5382

S4l4s

Sulb

5334s

5936

6010

55658

6224

5857

5515

c20s

58558

6012

e0e8s

6090

8882

8951

9089

1918s
19188

11526

Sell

56308

5632

9093

9100

9104

3108

9112

9116

9119

91iee

9125

3126

9227

9232

GETSKWR
MSG

1918#
53328

MULT

?ézgz

NEWTST

égégl

E?;g

gggg

5380

S414

8467

5513

5565

5609

5630

5657

5716

5855

S934

6010

NEXTRD
NXTARD
NXTST

26bb#
26658
2bb3s

5735
5736
5343

5876
5877
5367

5885
$885
5393

S90S
590S
5441

5958
5959
s480

5970
5970
5528

5374
5974
5584

6030
6031
5620

6040
6040
Se44

6058
6058
5677

5727

5868

5950

e0ce

Se40

5673

5723

5864

5946

6018

S334

6172

5658

S716s

5718

54678

5469

55138

5567

S609s

6099
18
ls
19188
19188

6182
3e48
315
10805
10786

11236
11195

11491
11452

11492
11454

11617
11475

11597

18138

5339

§363

5389

S437

5476

5524

5580

5616

SETPRI
SETTRA

1918#
116478

11656

11657

11658

11659

11662

11663

11664

11665

STARS

1761

1767

19188

1980

1991

1993

2000

2016

2100

2103

4609

4617

4764

4778

8332

6094

6170

6177

beae

b625¢

6380

6451

645

&Hgg

6496

6505

6S1e

652

6526

6571

8571
8832

8615
8848

8618
8903

8640
830S

8644
8935

gebe
8941

8667
8355

8698
8964

8701
9072

8726
3082

8730
9129

8756
9187

8766
9195

8799
9542

880S
9546

PARMBK
PARMOF
POP
PUSH
P.DRVR
REGDEF
REPORT

SCOPE

SETUP
SKIP
SLASH
SPACE

1s
18
19184

6095

19188
1916s
1918s
13184«

3585
10272
10984

3312
2936

6178
4439

9587
10291
11023

6257
3280

56578

6253

3619
10317
11085

6387

962
10336

11108

p47
10358
11185

9652
10416

11252

3685
10443
11304

9716
10721
11310

975
10734
11374

9790
10777
11377

10153
10813
11389

10170
10893
11447

10188
10903
11504

10212
1082l
11581

10259
10932
116286

R6MDO RK611-06 SS VERIF

g%RBHD.Pll
SWRSU

10-JAN-78 11:48

17608

?égT .

266&.

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

116474
19184
1
1
|
1
1
1

6088

19188

Y461s

MACY1l 30A(10S2)

10-JAN-78

DOS

12:16

PRGE 265

SEQ 0S4l

CROSS REFERENCE TARBLE -- MACRO NRMES

SEQ 0262

gggg

5356

5380

S414

S467

5513

5565

5609

5630

5657

5716

585S

5934

6010

5829

58§8

SO;?

2072

2057

2073

2058

2074

2059

2060

207s

2076

206l

2077?

206

2063

2078

2064

2073

2080

206S

2066

2092

2093

S657

s716

5855

S934

6010

6170

6222

SSCHRE

Sgé?

L 2

SOCTBN

L= — 0O
0m

gggg

SSCMTM

20148

2065

2086

2087

2088

2089

2030

2091

e
11657

5565

5609

116478

0
11656

11658

11659

lleb2

11663

11664

116865

1793

1794

179S

1796

1797

1798

1799

g%fiéfig
SSSET
EQURT

HERDE
KT1l

igig:

1760#

17608
17608

S332

1780

.SACTI
.SAPTB
.SAPTH
.SAPTY

17608
2101ws
17608
17608

1978

SRERD
SSAVE
$SCOP
SSIZE
SSUPR
$TRAP
STYPD
STYPE
$TYPO

17608
17608
17€0#
17608
1760%
17608
1760%
17608
17608
1760
17608
1760%
17608
17608

RBS.

0B4460

SCATC
SCMTR
$0B2D
$0B20
SEOP
SERRO
SPOWE
SRAND

17608
17608
17608

SH1Y4

S467

8513

1808

17608
17608

5380

1770
1918

:SaRHT
SWRLO

S356

17928

1989
11445

1958
2014
11021
10982
6378
11250
1077S
11302
11579
11387
11502
11083
11624
11183
10811
11106

000

5630

2081

CZR6MDO RK611/06 SS VERIF 1

CZR6MD.PI11

10-JAN-78 11:48

ERRORS DETECTED:

MACY1l 30R(10S2)

10-JAN-78

EQS

12:16

PAGE 266

CROSS REFERENCE TABLE -- MRCRO NAMES

DSKZ CZRSHD DSKZ CZR6MD. SEQ/SOL
“CRF /NL: TOC/EQ: QNEWSW/DOC=DSKM: CRIV10.P11,DSKM: CZR6EMD.P11

RUN-TIME: 46 90
3 SECON os

RUN-TIME RARTIO: 658-/89=7.3
CORE USED:
49K
(97 PAGES)

DOCUMENT PAGES:

@263

SEQ_QSu4e

SEQ@ 0263

FOS